ADDCOMS.PAL

FILE INFORMATION

FILENAME(S): ADDCOMS.PAL

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-11-30 16:59:36

APPEARS ON: 1 disk(s)

FILE HASH

0b7fe0a5e65632df2a98a0ad216749285dfda2863f5e59695b7f9a851f3117aa

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PAL POWER	ADDCOMS.PAL	PRG	High Voltage Complete C64 Collection	3	13	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0A 04 0A 00 9E 37  30 30 00 18 04 14 00 2E  |.......700......|
00000010: 4F 50 54 20 50 2C 4F 4F  00 1E 04 1E 00 3B 00 38  |OPT P,OO.....;.8|
00000020: 04 28 00 3B 43 4F 4D 4D  AF 20 50 41 52 53 45 52  |.(.;COMM. PARSER|
00000030: 20 52 4F 55 54 49 4E 45  00 52 04 32 00 3B 81 20  | ROUTINE.R.2.;. |
00000040: 45 58 54 52 41 20 50 4F  57 45 52 20 43 4F 4D 4D  |EXTRA POWER COMM|
00000050: AF 53 00 58 04 3C 00 3B  00 6A 04 46 00 43 41 4C  |.S.X.<.;.j.F.CAL|
00000060: 4C 56 45 43 20 B2 20 37  30 34 00 70 04 50 00 3B  |LVEC . 704.p.P.;|
00000070: 00 7F 04 5A 00 50 4F B5  52 20 B2 20 24 37 41 00  |...Z.PO.R . $7A.|
00000080: 91 04 64 00 49 4E 50 42  55 46 20 B2 20 24 32 30  |..d.INPBUF . $20|
00000090: 30 00 A4 04 6E 00 55 43  4F 4D 56 45 43 20 B2 20  |0...n.UCOMVEC . |
000000A0: 24 32 44 33 00 B6 04 78  00 55 43 56 43 48 4B 20  |$2D3...x.UCVCHK |
000000B0: B2 20 24 32 44 32 00 C6  04 82 00 48 49 4D 45 4D  |. $2D2.....HIMEM|
000000C0: 20 B2 20 24 33 37 00 E8  04 8C 00 54 45 52 4D 49  | . $37.....TERMI|
000000D0: 4E 20 B2 20 AB 32 3B 43  4F 4D 4D AF 20 9B 20 54  |N . .2;COMM. . T|
000000E0: 45 52 4D 49 4E 41 A4 52  00 FB 04 96 00 4F 55 54  |ERMINA.R.....OUT|
000000F0: 50 55 54 20 B2 20 24 46  46 44 32 00 01 05 A0 00  |PUT . $FFD2.....|
00000100: 3B 00 4A 05 AA 00 AC B2  24 34 30 30 30 3B 57 48  |;.J.....$4000;WH|
00000110: 45 52 45 20 44 4F 20 59  4F 55 20 57 41 4E 54 20  |ERE DO YOU WANT |
00000120: 49 54 20 A4 20 8A 2C 20  54 48 49 53 20 53 48 4F  |IT . ., THIS SHO|
00000130: 55 4C 44 20 42 45 20 41  53 53 45 4D 42 4C 45 44  |ULD BE ASSEMBLED|
00000140: 20 57 49 54 48 20 52 50  41 4C 00 50 05 B4 00 3B  | WITH RPAL.P...;|
00000150: 00 63 05 BE 00 3B 41 44  44 20 49 4E 20 43 4F 4D  |.c...;ADD IN COM|
00000160: 4D AF 53 00 71 05 C8 00  A2 43 4F 4D 53 20 B2 20  |M.S.q....COMS . |
00000170: AC 00 77 05 D2 00 3B 00  7D 05 DC 00 3B 00 83 05  |..w...;.}...;...|
00000180: E6 00 3B 00 99 05 F0 00  3B 43 41 4C 43 55 4C 41  |..;.....;CALCULA|
00000190: 54 45 20 56 45 43 A4 52  53 00 9F 05 FA 00 3B 00  |TE VEC.RS.....;.|
000001A0: B9 05 04 01 4C 44 41 20  43 41 4C 4C 56 45 43 AA  |....LDA CALLVEC.|
000001B0: 32 3B 48 49 20 42 59 54  45 00 CA 05 0E 01 53 54  |2;HI BYTE.....ST|
000001C0: 41 20 4E B0 4D 43 4F 4D  AA 31 00 D9 05 18 01 53  |A N.MCOM.1.....S|
000001D0: 54 41 20 45 4E 54 9D AA  31 00 DF 05 22 01 3B 00  |TA ENT..1...".;.|
000001E0: F1 05 2C 01 4C 44 41 20  43 41 4C 4C 56 45 43 AA  |..,.LDA CALLVEC.|
000001F0: 31 00 F9 05 36 01 54 41  58 00 01 06 40 01 53 45  |1...6.TAX...@.SE|
00000200: 43 00 1C 06 4A 01 53 42  43 20 23 36 3B 4F 46 46  |C...J.SBC #6;OFF|
00000210: 53 45 54 20 A4 20 4E B0  4D 43 4F 4D 00 2B 06 54  |SET . N.MCOM.+.T|
00000220: 01 53 54 41 20 4E B0 4D  43 4F 4D 00 39 06 5E 01  |.STA N.MCOM.9.^.|
00000230: 42 43 53 20 4E 4F 44 45  43 00 4A 06 68 01 44 45  |BCS NODEC.J.h.DE|
00000240: 43 20 4E B0 4D 43 4F 4D  AA 31 00 58 06 72 01 4E  |C N.MCOM.1.X.r.N|
00000250: 4F 44 45 43 20 54 58 41  00 60 06 7C 01 53 45 43  |ODEC TXA.`.|.SEC|
00000260: 00 79 06 86 01 53 42 43  20 23 39 3B 4F 46 46 53  |.y...SBC #9;OFFS|
00000270: 45 54 20 81 20 45 4E 54  9D 00 86 06 90 01 53 54  |ET . ENT......ST|
00000280: 41 20 45 4E 54 9D 00 95  06 9A 01 42 43 53 20 4E  |A ENT......BCS N|
00000290: 4F 44 45 43 31 00 A4 06  A4 01 44 45 43 20 45 4E  |ODEC1.....DEC EN|
000002A0: 54 9D AA 31 00 B3 06 AE  01 4E 4F 44 45 43 31 20  |T..1.....NODEC1 |
000002B0: B2 20 AC 00 B9 06 B8 01  3B 00 DD 06 C2 01 3B 54  |. ......;.....;T|
000002C0: 45 53 54 20 45 58 49 53  54 49 4E 47 20 56 45 43  |EST EXISTING VEC|
000002D0: A4 52 20 AF 20 52 45 53  45 54 20 49 54 00 FB 06  |.R . RESET IT...|
000002E0: CC 01 4C 44 41 20 55 43  4F 4D 56 45 43 3B 50 52  |..LDA UCOMVEC;PR|
000002F0: 45 53 45 4E 54 20 56 45  43 A4 52 00 03 07 D6 01  |ESENT VEC.R.....|
00000300: 43 4C 43 00 15 07 E0 01  41 44 43 20 55 43 4F 4D  |CLC.....ADC UCOM|
00000310: 56 45 43 AA 31 00 21 07  EA 01 45 B0 20 23 24 41  |VEC.1.!...E. #$A|
00000320: 35 00 3F 07 F4 01 43 4D  50 20 55 43 56 43 48 4B  |5.?...CMP UCVCHK|
00000330: 3B 43 48 45 43 4B 20 81  20 C5 49 44 49 54 59 00  |;CHECK . .IDITY.|
00000340: 5B 07 FE 01 42 4E 45 20  4E 91 C5 54 48 3B A8 20  |[...BNE N..TH;. |
00000350: 41 20 C5 49 44 20 56 45  43 A4 52 00 74 07 08 02  |A .ID VEC.R.t...|
00000360: 3B 41 53 20 49 54 20 57  41 53 20 C5 49 44 2C 20  |;AS IT WAS .ID, |
00000370: 94 20 49 54 00 84 07 12  02 4C 44 41 20 55 43 4F  |. IT.....LDA UCO|
00000380: 4D 56 45 43 00 97 07 1C  02 43 4D 50 20 23 B3 45  |MVEC.....CMP #.E|
00000390: 58 54 52 41 43 4F 4D 00  A7 07 26 02 42 4E 45 20  |XTRACOM...&.BNE |
000003A0: 53 54 52 53 46 55 4E 00  B9 07 30 02 4C 44 41 20  |STRSFUN...0.LDA |
000003B0: 55 43 4F 4D 56 45 43 AA  31 00 CC 07 3A 02 43 4D  |UCOMVEC.1...:.CM|
000003C0: 50 20 23 B1 45 58 54 52  41 43 4F 4D 00 DA 07 44  |P #.EXTRACOM...D|
000003D0: 02 42 45 51 20 4E 91 C5  54 48 00 EA 07 4E 02 53  |.BEQ N..TH...N.S|
000003E0: 54 52 53 46 55 4E 20 B2  20 AC 00 FA 07 58 02 4C  |TRSFUN . ....X.L|
000003F0: 44 41 20 55 43 4F 4D 56  45 43 00 09 08 62 02 53  |DA UCOMVEC...b.S|
00000400: 54 41 20 4E B0 4D 43 4F  4D 00 1B 08 6C 02 4C 44  |TA N.MCOM...l.LD|
00000410: 41 20 55 43 4F 4D 56 45  43 AA 31 00 2C 08 76 02  |A UCOMVEC.1.,.v.|
00000420: 53 54 41 20 4E B0 4D 43  4F 4D AA 31 00 3A 08 80  |STA N.MCOM.1.:..|
00000430: 02 4E 91 C5 54 48 20 B2  20 AC 00 5B 08 8A 02 3B  |.N..TH . ..[...;|
00000440: 53 45 54 20 56 45 43 A4  52 20 A4 20 50 4F B5 20  |SET VEC.R . PO. |
00000450: 41 54 20 A2 20 43 4F 4D  4D AF 53 00 6E 08 94 02  |AT . COMM.S.n...|
00000460: 4C 44 41 20 23 B3 45 58  54 52 41 43 4F 4D 00 7E  |LDA #.EXTRACOM.~|
00000470: 08 9E 02 53 54 41 20 55  43 4F 4D 56 45 43 00 91  |...STA UCOMVEC..|
00000480: 08 A8 02 4C 44 41 20 23  B1 45 58 54 52 41 43 4F  |...LDA #.EXTRACO|
00000490: 4D 00 A3 08 B2 02 53 54  41 20 55 43 4F 4D 56 45  |M.....STA UCOMVE|
000004A0: 43 AA 31 00 BD 08 BC 02  3B 43 41 4C 43 55 4C 41  |C.1.....;CALCULA|
000004B0: 54 45 20 43 48 45 43 4B  20 42 59 54 45 00 C5 08  |TE CHECK BYTE...|
000004C0: C6 02 43 4C 43 00 D8 08  D0 02 41 44 43 20 23 B3  |..CLC.....ADC #.|
000004D0: 45 58 54 52 41 43 4F 4D  00 E4 08 DA 02 45 B0 20  |EXTRACOM.....E. |
000004E0: 23 24 41 35 00 F3 08 E4  02 53 54 41 20 55 43 56  |#$A5.....STA UCV|
000004F0: 43 48 4B 00 03 09 EE 02  4C 44 58 20 23 B3 A2 43  |CHK.....LDX #..C|
00000500: 4F 4D 53 00 11 09 F8 02  43 50 58 20 48 49 4D 45  |OMS.....CPX HIME|
00000510: 4D 00 21 09 02 03 4C 44  41 20 23 B1 A2 43 4F 4D  |M.!...LDA #..COM|
00000520: 53 00 31 09 0C 03 53 42  43 20 48 49 4D 45 4D AA  |S.1...SBC HIMEM.|
00000530: 31 00 40 09 16 03 42 43  53 20 4E 4F 53 A4 52 45  |1.@...BCS NOS.RE|
00000540: 00 53 09 20 03 4C 44 41  20 23 B3 52 45 53 49 44  |.S. .LDA #.RESID|
00000550: 45 4E 54 00 61 09 2A 03  53 54 41 20 48 49 4D 45  |ENT.a.*.STA HIME|
00000560: 4D 00 74 09 34 03 4C 44  41 20 23 B1 52 45 53 49  |M.t.4.LDA #.RESI|
00000570: 44 45 4E 54 00 84 09 3E  03 53 54 41 20 48 49 4D  |DENT...>.STA HIM|
00000580: 45 4D AA 31 00 93 09 48  03 4E 4F 53 A4 52 45 20  |EM.1...H.NOS.RE |
00000590: B2 20 AC 00 9B 09 52 03  52 54 53 00 A1 09 5C 03  |. ....R.RTS...\.|
000005A0: 3B 00 A7 09 66 03 3B 00  CD 09 70 03 52 45 53 49  |;...f.;...p.RESI|
000005B0: 44 45 4E 54 20 B2 20 AC  3B 52 45 53 49 44 45 4E  |DENT . .;RESIDEN|
000005C0: 54 20 43 4F 44 45 20 42  4F 55 4E 44 53 00 EC 09  |T CODE BOUNDS...|
000005D0: 7A 03 3B 56 45 43 A4 52  53 20 81 20 50 4F 57 45  |z.;VEC.RS . POWE|
000005E0: 52 20 45 4E 54 52 59 20  50 4F B5 53 00 FE 09 84  |R ENTRY PO.S....|
000005F0: 03 4E B0 4D 43 4F 4D 20  2E 57 B0 44 20 30 00 0E  |.N.MCOM .W.D 0..|
00000600: 0A 8E 03 45 4E 54 9D 20  2E 57 B0 44 20 30 00 14  |...ENT. .W.D 0..|
00000610: 0A 98 03 3B 00 1A 0A A2  03 3B 00 2B 0A AC 03 45  |...;.....;.+...E|
00000620: 58 54 52 41 43 4F 4D 20  B2 20 AC 00 31 0A B6 03  |XTRACOM . ..1...|
00000630: 3B 00 3C 0A C0 03 4C 44  59 20 23 30 00 48 0A CA  |;.<...LDY #0.H..|
00000640: 03 93 58 50 20 B2 20 AC  00 55 0A D4 03 4C 44 58  |..XP . ..U...LDX|
00000650: 20 50 4F B5 52 00 65 0A  DE 03 54 53 54 4C 4F 4F  | PO.R.e...TSTLOO|
00000660: 50 20 B2 20 AC 00 72 0A  E8 03 4C 44 41 20 9D 53  |P . ..r...LDA .S|
00000670: 2C 59 00 80 0A F2 03 42  45 51 20 46 4F 55 4E 44  |,Y.....BEQ FOUND|
00000680: 00 90 0A FC 03 43 4D 50  20 23 54 45 52 4D 49 4E  |.....CMP #TERMIN|
00000690: 00 9F 0A 06 04 42 45 51  20 A8 46 4F 55 4E 44 00  |.....BEQ .FOUND.|
000006A0: A7 0A 10 04 49 4E 59 00  B7 0A 1A 04 91 4C 59 42  |....INY......LYB|
000006B0: 4D 50 58 20 49 4E 58 00  C8 0A 24 04 43 4D 50 20  |MPX INX...$.CMP |
000006C0: 49 4E 50 42 55 46 2C 58  00 D8 0A 2E 04 42 45 51  |INPBUF,X.....BEQ|
000006D0: 20 54 53 54 4C 4F 4F 50  00 FA 0A 38 04 3B 41 4C  | TSTLOOP...8.;AL|
000006E0: 4C 4F 57 20 42 4C 41 4E  4B 53 20 49 4E 20 43 4F  |LOW BLANKS IN CO|
000006F0: 4D 4D AF 20 4E 41 4D 45  53 21 00 0B 0B 42 04 4C  |MM. NAMES!...B.L|
00000700: 44 41 20 49 4E 50 42 55  46 2C 58 00 18 0B 4C 04  |DA INPBUF,X...L.|
00000710: 43 4D 50 20 23 22 20 22  00 28 0B 56 04 42 4E 45  |CMP #" ".(.V.BNE|
00000720: 20 4D 56 54 5A 4C 4F 50  00 40 0B 60 04 4C 44 41  | MVTZLOP.@.`.LDA|
00000730: 20 9D 53 AB 31 2C 59 3B  8C 20 9D 20 43 48 41 52  | .S.1,Y;. . CHAR|
00000740: 00 5B 0B 6A 04 4A 4D 50  20 91 4C 59 42 4D 50 58  |.[.j.JMP .LYBMPX|
00000750: 3B 42 55 4D 50 20 58 20  91 4C 59 00 7B 0B 74 04  |;BUMP X .LY.{.t.|
00000760: 3B 44 49 44 4E 27 54 20  4D 41 54 43 48 2C 20 54  |;DIDN'T MATCH, T|
00000770: 52 59 20 54 48 45 20 82  20 91 45 00 97 0B 7E 04  |RY THE . .E...~.|
00000780: 3B 53 43 41 4E 20 81 57  41 52 44 20 81 20 5A 45  |;SCAN .WARD . ZE|
00000790: 52 4F 20 42 59 54 45 00  A7 0B 88 04 4D 56 54 5A  |RO BYTE.....MVTZ|
000007A0: 4C 4F 50 20 B2 20 AC 00  AF 0B 92 04 49 4E 59 00  |LOP . ......INY.|
000007B0: BE 0B 9C 04 4C 44 41 20  9D 53 AB 31 2C 59 00 CE  |....LDA .S.1,Y..|
000007C0: 0B A6 04 42 4E 45 20 4D  56 54 5A 4C 4F 50 00 D6  |...BNE MVTZLOP..|
000007D0: 0B B0 04 49 4E 59 00 F0  0B BA 04 49 4E 59 3B 42  |...INY.....INY;B|
000007E0: 55 4D 50 20 50 41 53 54  20 41 44 44 52 45 53 53  |UMP PAST ADDRESS|
000007F0: 00 06 0C C4 04 4A 4D 50  20 93 58 50 3B 54 52 59  |.....JMP .XP;TRY|
00000800: 20 41 47 41 49 4E 00 1E  0C CE 04 A8 46 4F 55 4E  | AGAIN......FOUN|
00000810: 44 20 4A 4D 50 20 28 4E  B0 4D 43 4F 4D 29 00 24  |D JMP (N.MCOM).$|
00000820: 0C D8 04 3B 00 32 0C E2  04 46 4F 55 4E 44 20 B2  |...;.2...FOUND .|
00000830: 20 AC 00 4D 0C EC 04 3B  53 45 54 20 50 4F B5 52  | ..M...;SET PO.R|
00000840: 20 A4 20 80 20 4F 46 20  43 4F 4D 4D AF 00 62 0C  | . . OF COMM..b.|
00000850: F6 04 3B 58 20 50 4F B5  53 20 91 45 20 42 45 59  |..;X PO.S .E BEY|
00000860: 91 44 00 86 0C 00 05 53  54 58 20 50 4F B5 52 3B  |.D.....STX PO.R;|
00000870: 48 49 47 48 20 42 59 54  45 20 4F 46 20 50 4F B5  |HIGH BYTE OF PO.|
00000880: 52 20 49 53 20 32 00 91  0C 0A 05 4C 44 41 20 23  |R IS 2.....LDA #|
00000890: 32 00 B1 0C 14 05 53 54  41 20 20 50 4F B5 52 AA  |2.....STA  PO.R.|
000008A0: 31 3B 49 4E 20 43 41 53  45 20 4F 46 20 24 31 46  |1;IN CASE OF $1F|
000008B0: 46 00 D2 0C 1E 05 3B 48  49 47 48 20 42 59 54 45  |F.....;HIGH BYTE|
000008C0: 20 4F 46 20 9D 20 41 44  44 52 45 53 53 20 49 4E  | OF . ADDRESS IN|
000008D0: 20 58 00 E1 0C 28 05 4C  44 41 20 9D 53 AA 32 2C  | X...(.LDA .S.2,|
000008E0: 59 00 E9 0C 32 05 54 41  58 00 F8 0C 3C 05 4C 44  |Y...2.TAX...<.LD|
000008F0: 41 20 9D 53 AA 31 2C 59  00 0E 0D 46 05 54 41 59  |A .S.1,Y...F.TAY|
00000900: 3B 4C 4F 57 20 42 59 54  45 20 49 4E 20 59 00 14  |;LOW BYTE IN Y..|
00000910: 0D 50 05 3B 00 35 0D 5A  05 4A 4D 50 20 28 45 4E  |.P.;.5.Z.JMP (EN|
00000920: 54 9D 29 3B 50 4F 57 45  52 20 43 4F 4D 4D AF 20  |T.);POWER COMM. |
00000930: 53 45 54 55 50 00 3B 0D  64 05 3B 00 41 0D 6E 05  |SETUP.;.d.;.A.n.|
00000940: 3B 00 53 0D 78 05 3B 20  43 4F 4D 4D AF 20 54 41  |;.S.x.; COMM. TA|
00000950: 42 4C 45 00 59 0D 82 05  3B 00 64 0D 8C 05 9D 53  |BLE.Y...;.d....S|
00000960: 20 B2 20 AC 00 7D 0D 96  05 2E C6 20 22 4E 41 4D  | . ..}..... "NAM|
00000970: 45 22 3B 43 4F 4D 4D AF  20 4E 41 4D 45 00 93 0D  |E";COMM. NAME...|
00000980: A0 05 2E 42 59 54 45 20  30 3B 54 45 52 4D 49 4E  |...BYTE 0;TERMIN|
00000990: 41 A4 52 00 C3 0D AA 05  2E 57 B0 44 20 59 4F 55  |A.R......W.D YOU|
000009A0: 52 4E 41 4D 45 AB 31 3B  4C 4F 43 41 54 49 91 20  |RNAME.1;LOCATI. |
000009B0: 4F 46 20 43 4F 4D 4D AF  20 53 55 42 52 4F 55 54  |OF COMM. SUBROUT|
000009C0: 49 4E 45 00 C9 0D B4 05  3B 00 CF 0D BE 05 3B 00  |INE.....;.....;.|
000009D0: E0 0D C8 05 2E 42 59 54  45 20 54 45 52 4D 49 4E  |.....BYTE TERMIN|
000009E0: 00 E6 0D D2 05 3B 00 FD  0D DC 05 3B 43 4F 44 45  |.....;.....;CODE|
000009F0: 20 81 20 4E 41 4D 45 20  43 4F 4D 4D AF 00 0E 0E  | . NAME COMM....|
00000A00: E6 05 59 4F 55 52 4E 41  4D 45 20 B2 20 AC 00 2A  |..YOURNAME . ..*|
00000A10: 0E F0 05 3B 54 48 49 53  20 49 53 20 41 4E 20 45  |...;THIS IS AN E|
00000A20: 58 41 4D 50 4C 45 20 91  4C 59 00 35 0E FA 05 4C  |XAMPLE .LY.5...L|
00000A30: 44 58 20 23 30 00 50 0E  04 06 4E 41 4D 45 4C 4F  |DX #0.P...NAMELO|
00000A40: 4F 50 20 4C 44 41 20 4E  41 4D 45 53 54 52 2C 58  |OP LDA NAMESTR,X|
00000A50: 00 5F 0E 0E 06 4A 53 52  20 4F 55 54 50 55 54 00  |._...JSR OUTPUT.|
00000A60: 67 0E 18 06 49 4E 58 00  76 0E 22 06 43 50 58 20  |g...INX.v.".CPX |
00000A70: 23 4E 41 4D 45 C3 00 87  0E 2C 06 42 43 43 20 4E  |#NAME....,.BCC N|
00000A80: 41 4D 45 4C 4F 4F 50 00  8F 0E 36 06 52 54 53 00  |AMELOOP...6.RTS.|
00000A90: 95 0E 40 06 3B 00 B5 0E  4A 06 4E 41 4D 45 53 54  |..@.;...J.NAMEST|
00000AA0: 52 20 2E C6 20 22 59 4F  55 52 20 4E 41 4D 45 20  |R .. "YOUR NAME |
00000AB0: 48 45 52 45 22 00 C4 0E  54 06 2E 42 59 54 45 20  |HERE"...T..BYTE |
00000AC0: 31 33 3B 8E 00 DA 0E 5E  06 4E 41 4D 45 C3 20 B2  |13;....^.NAME. .|
00000AD0: 20 AC AB 4E 41 4D 45 53  54 52 00 E0 0E 68 06 3B  | ..NAMESTR...h.;|
00000AE0: 00 60 00                                          |.`.             |

.......700......OPT P,OO.....;.8.(.;COMM
. PARSER ROUTINE.R.2.;. EXTRA POWER COMM
.S.X.<.;.J.F.CALLVEC . 704.P.P.;..Z.PO.
R . $7A...D.INPBUF . $200...N.UCOMVEC . 
$2D3...X.UCVCHK . $2D2.F...HIMEM . $37..
...TERMIN . .2;COMM. . TERMINA.R.....OUT
PUT . $FFD2... .;.J.....$4000;WHERE DO Y
OU WANT IT . ., THIS SHOULD BE ASSEMBLED
 WITH RPAL.P...;.C...;ADD IN COMM.S.Q.H.
.COMS . ..W.R.;.}...;.....;.....;CALCULA
TE VEC.RS.....;.....LDA CALLVEC.2;HI BYT
E.J...STA N.MCOM.1.Y...STA ENT..1...".;.
..,.LDA CALLVEC.1...6.TAX...@.SEC...J.SB
C #6;OFFSET . N.MCOM.+.T.STA N.MCOM.9.^.
BCS NODEC.J.H.DEC N.MCOM.1.X.R.NODEC TXA
.`.|.SEC.Y...SBC #9;OFFSET . ENT......ST
A ENT......BCS NODEC1.....DEC ENT..1....
.NODEC1 . ......;...B.;TEST EXISTING VEC
.R . RESET IT...L.LDA UCOMVEC;PRESENT VE
C.R...V.CLC.....ADC UCOMVEC.1.!...E. #$A
5.?...CMP UCVCHK;CHECK . EIDITY.[...BNE 
N.ETH;. A EID VEC.R.T...;AS IT WAS EID, 
. IT.....LDA UCOMVEC.....CMP #.EXTRACOM.
..&.BNE STRSFUN...0.LDA UCOMVEC.1.L.:.CM
P #.EXTRACOM.Z.D.BEQ N.ETH...N.STRSFUN .
 ....X.LDA UCOMVEC...B.STA N.MCOM...L.LD
A UCOMVEC.1.,.V.STA N.MCOM.1.:...N.ETH .
 ..[...;SET VEC.R . PO. AT . COMM.S.N...
LDA #.EXTRACOM.~...STA UCOMVEC.....LDA #
.EXTRACOM.....STA UCOMVEC.1.....;CALCULA
TE CHECK BYTE.E.F.CLC.X.P.ADC #.EXTRACOM
...Z.E. #$A5.....STA UCVCHK.....LDX #..C
OMS.....CPX HIMEM.!...LDA #..COMS.1...SB
C HIMEM.1.@...BCS NOS.RE.S. .LDA #.RESID
ENT.A.*.STA HIMEM.T.4.LDA #.RESIDENT...>
.STA HIMEM.1...H.NOS.RE . ....R.RTS...\.
;...F.;.M.P.RESIDENT . .;RESIDENT CODE B
OUNDS...Z.;VEC.RS . POWER ENTRY PO.S....
.N.MCOM .W.D 0.....ENT. .W.D 0.....;....
.;.+...EXTRACOM . ..1...;.<...LDY #0.H.J
..XP . ..U.T.LDX PO.R.E...TSTLOOP . ..R.
..LDA .S,Y.....BEQ FOUND.....CMP #TERMIN
.....BEQ .FOUND.....INY......LYBMPX INX.
H.$.CMP INPBUF,X.X...BEQ TSTLOOP...8.;AL
LOW BLANKS IN COMM. NAMES!...B.LDA INPBU
F,X...L.CMP #" ".(.V.BNE MVTZLOP.@.`.LDA
 .S.1,Y;. . CHAR.[.J.JMP .LYBMPX;BUMP X 
.LY.{.T.;DIDN'T MATCH, TRY THE . .E...~.
;SCAN .WARD . ZERO BYTE.....MVTZLOP . ..
....INY.....LDA .S.1,Y.N...BNE MVTZLOP.V
...INY.....INY;BUMP PAST ADDRESS...D.JMP
 .XP;TRY AGAIN...N..FOUND JMP (N.MCOM).$
.X.;.2...FOUND . ..M...;SET PO.R . . OF 
COMM..B...;X PO.S .E BEY.D.....STX PO.R;
HIGH BYTE OF PO.R IS 2.....LDA #2.....ST
A  PO.R.1;IN CASE OF $1FF.R...;HIGH BYTE
 OF . ADDRESS IN X...(.LDA .S.2,Y...2.TA
X...<.LDA .S.1,Y...F.TAY;LOW BYTE IN Y..
.P.;.5.Z.JMP (ENT.);POWER COMM. SETUP.;.
D.;.A.N.;.S.X.; COMM. TABLE.Y...;.D....S
 . ..}....F "NAME";COMM. NAME... ..BYTE 
0;TERMINA.R.C....W.D YOURNAME.1;LOCATI. 
OF COMM. SUBROUTINE.I...;.O...;...H..BYT
E TERMIN...R.;.....;CODE . NAME COMM....
..YOURNAME . ..*...;THIS IS AN EXAMPLE .
LY.5...LDX #0.P...NAMELOOP LDA NAMESTR,X
._...JSR OUTPUT.G...INX.V.".CPX #NAMEC..
.,.BCC NAMELOOP...6.RTS...@.;...J.NAMEST
R .F "YOUR NAME HERE".D.T..BYTE 13;..Z.^
.NAMEC . ..NAMESTR...H.;.`.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL