PRINTOPS
FILE INFORMATION
FILENAME(S): PRINTOPS
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
85a35360246b48f350a62b78c8f250e0da8a5b6f6f0ca22b3232be6935fa999d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LADS64 | PRINTOPS | PRG | High Voltage Complete C64 Collection | 6 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 3C 04 0A 00 3B 20 22 50 52 49 4E 54 4F 50 |..<...; "PRINTOP|
00000010: 53 22 20 20 20 99 53 20 26 20 97 53 20 C5 55 45 |S" .S & .S .UE|
00000020: 53 20 28 42 4F 54 48 20 4F 50 43 4F 44 45 53 20 |S (BOTH OPCODES |
00000030: 26 20 41 52 47 55 4D 45 4E 54 53 29 00 75 04 14 |& ARGUMENTS).u..|
00000040: 00 81 4D 41 54 20 4C 44 41 20 50 41 53 53 3B 20 |..MAT LDA PASS; |
00000050: 91 20 50 41 53 53 20 32 2C 20 49 47 4E B0 45 20 |. PASS 2, IGN.E |
00000060: 49 4E 43 53 41 20 28 52 41 49 53 45 53 20 50 43 |INCSA (RAISES PC|
00000070: 29 20 BF 43 45 00 AA 04 1E 00 42 4E 45 20 50 52 |) .CE.....BNE PR|
00000080: 4D 3B 20 91 20 50 41 53 53 20 32 2C 20 57 45 20 |M; . PASS 2, WE |
00000090: 4A 53 52 20 A4 20 97 49 54 20 28 49 54 20 CB 45 |JSR . .IT (IT .E|
000000A0: 53 20 A4 20 49 4E 43 53 41 29 00 E7 04 28 00 4A |S . INCSA)...(.J|
000000B0: 53 52 20 49 4E 43 53 41 3B 20 42 55 54 20 91 20 |SR INCSA; BUT . |
000000C0: 50 41 53 53 20 31 2C 20 57 45 20 44 91 27 54 20 |PASS 1, WE D.'T |
000000D0: 99 20 B0 20 97 20 41 4E 59 54 48 49 4E 47 2C 20 |. . . ANYTHING, |
000000E0: 57 45 20 4A 55 53 54 00 10 05 32 00 52 54 53 3B |WE JUST...2.RTS;|
000000F0: 20 52 41 49 53 45 20 54 48 45 20 50 43 20 AF 20 | RAISE THE PC . |
00000100: 8E 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |. ..............|
00000110: 00 38 05 3C 00 50 52 4D 20 4C 44 41 20 53 46 4C |.8.<.PRM LDA SFL|
00000120: 41 47 3B 20 53 48 4F 55 4C 44 20 57 45 20 99 20 |AG; SHOULD WE . |
00000130: A4 20 53 43 52 45 45 4E 00 69 05 46 00 42 45 51 |. SCREEN.i.F.BEQ|
00000140: 20 50 52 4D 58 3B 20 8B 20 A8 2C 20 53 4B 49 50 | PRMX; . ., SKIP|
00000150: 20 54 48 49 53 20 82 20 50 41 52 54 20 28 99 20 | THIS . PART (. |
00000160: A4 20 53 43 52 45 45 4E 29 00 9A 05 50 00 4A 53 |. SCREEN)...P.JS|
00000170: 52 20 9C 43 48 4E 3B 20 4F 54 48 45 52 57 49 53 |R .CHN; OTHERWIS|
00000180: 45 2C 20 52 45 53 45 54 20 4E B0 4D 41 4C 20 49 |E, RESET N.MAL I|
00000190: AD 4F 20 43 91 44 49 54 49 91 00 C5 05 5A 00 4C |.O C.DITI....Z.L|
000001A0: 44 58 20 23 31 3B 20 28 46 49 4C 45 20 23 31 20 |DX #1; (FILE #1 |
000001B0: 81 20 85 2C 20 53 43 52 45 45 4E 20 81 20 4F 55 |. ., SCREEN . OU|
000001C0: 54 50 55 54 29 00 D3 05 64 00 4A 53 52 20 43 48 |TPUT)...d.JSR CH|
000001D0: 4B 49 4E 00 EC 05 6E 00 4C 44 58 20 4F 50 3B 20 |KIN...n.LDX OP; |
000001E0: 93 20 54 48 45 20 4F 50 43 4F 44 45 00 02 06 78 |. THE OPCODE...x|
000001F0: 00 4A 53 52 20 50 52 4E 54 4E 55 4D 3B 20 99 20 |.JSR PRNTNUM; . |
00000200: 49 54 00 1F 06 82 00 4A 53 52 20 50 52 4E 54 53 |IT.....JSR PRNTS|
00000210: 50 41 43 45 3B 20 99 20 41 20 53 50 41 43 45 00 |PACE; . A SPACE.|
00000220: 5E 06 8C 00 50 52 4D 58 20 4C 44 58 20 4F 50 3B |^...PRMX LDX OP;|
00000230: AB AB AB AB AB AB AB AB AB AB AB 20 4E 4F 57 20 |........... NOW |
00000240: 97 20 54 48 45 20 4F 50 43 4F 44 45 20 B5 4F 20 |. THE OPCODE .O |
00000250: 52 41 4D AD 44 49 53 4B 20 4D 45 4D B0 59 00 6A |RAM.DISK MEM.Y.j|
00000260: 06 96 00 4A 53 52 20 97 49 54 00 9A 06 A0 00 52 |...JSR .IT.....R|
00000270: 54 53 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |TS;.............|
00000280: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000290: AB AB AB AB AB AB AB AB AB AB 00 DE 06 AA 00 3B |...............;|
000002A0: 20 99 20 54 57 4F 20 42 59 54 45 53 20 28 54 48 | . TWO BYTES (TH|
000002B0: 45 20 4F 50 43 4F 44 45 20 AF 20 41 20 31 AB 42 |E OPCODE . A 1.B|
000002C0: 59 54 45 20 41 52 47 55 4D 45 4E 54 29 AB AB AB |YTE ARGUMENT)...|
000002D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 1B |................|
000002E0: 07 B4 00 99 32 20 4C 44 41 20 50 41 53 53 3B 20 |....2 LDA PASS; |
000002F0: 91 20 50 41 53 53 20 32 2C 20 57 45 20 53 4B 49 |. PASS 2, WE SKI|
00000300: 50 20 49 4E 43 53 41 20 28 53 45 45 20 4C 49 4E |P INCSA (SEE LIN|
00000310: 45 20 32 30 20 41 42 4F 56 45 29 00 27 07 BE 00 |E 20 ABOVE).'...|
00000320: 42 4E 45 20 50 32 4D 00 35 07 C8 00 4A 53 52 20 |BNE P2M.5...JSR |
00000330: 49 4E 43 53 41 00 52 07 D2 00 52 54 53 3B AB AB |INCSA.R...RTS;..|
00000340: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000350: AB AB 00 91 07 DC 00 50 32 4D 20 4C 44 41 20 53 |.......P2M LDA S|
00000360: 46 4C 41 47 3B 20 8B 20 53 43 52 45 45 4E 20 99 |FLAG; . SCREEN .|
00000370: 20 46 4C 41 47 20 49 53 20 44 4F 57 4E 2C 20 53 | FLAG IS DOWN, S|
00000380: 4B 49 50 20 99 49 4E 47 20 A4 20 53 43 52 45 45 |KIP .ING . SCREE|
00000390: 4E 00 9E 07 E6 00 42 45 51 20 50 32 4D 58 00 E2 |N.....BEQ P2MX..|
000003A0: 07 F0 00 4C 44 58 20 52 45 53 55 4C 54 3B 20 4F |...LDX RESULT; O|
000003B0: 54 48 45 52 57 49 53 45 20 99 20 54 48 45 20 4C |THERWISE . THE L|
000003C0: 4F 57 AB 42 59 54 45 20 4F 46 20 22 52 45 53 55 |OW.BYTE OF "RESU|
000003D0: 4C 54 22 20 28 54 48 45 20 41 52 47 55 4D 45 4E |LT" (THE ARGUMEN|
000003E0: 54 29 00 F2 07 FA 00 4A 53 52 20 50 52 4E 54 4E |T).....JSR PRNTN|
000003F0: 55 4D 00 2E 08 04 01 50 32 4D 58 20 4C 44 58 20 |UM.....P2MX LDX |
00000400: 52 45 53 55 4C 54 3B 20 AF 20 41 4C 53 4F 20 97 |RESULT; . ALSO .|
00000410: 20 54 48 45 20 4C 4F 57 AB 42 59 54 45 20 A4 20 | THE LOW.BYTE . |
00000420: 52 41 4D AD 44 49 53 4B 20 4D 45 4D B0 59 00 71 |RAM.DISK MEM.Y.q|
00000430: 08 0E 01 4A 4D 50 20 97 49 54 3B 20 41 20 4A 4D |...JMP .IT; A JM|
00000440: 50 20 A4 20 97 49 54 20 57 49 4C 4C 20 52 54 53 |P . .IT WILL RTS|
00000450: 20 55 53 20 42 41 43 4B 20 A4 20 54 48 45 20 43 | US BACK . THE C|
00000460: 41 4C 4C 45 52 AB AB AB AB AB AB AB AB AB AB AB |ALLER...........|
00000470: AB 00 B7 08 18 01 3B 20 99 20 54 48 52 45 45 20 |......; . THREE |
00000480: 42 59 54 45 53 20 28 54 48 45 20 4F 50 43 4F 44 |BYTES (THE OPCOD|
00000490: 45 20 AF 20 41 20 32 AB 42 59 54 45 20 41 52 47 |E . A 2.BYTE ARG|
000004A0: 55 4D 45 4E 54 29 AB AB AB AB AB AB AB AB AB AB |UMENT)..........|
000004B0: AB AB AB AB AB AB AB 00 F1 08 22 01 99 33 20 4C |.........."..3 L|
000004C0: 44 41 20 50 41 53 53 3B 20 91 20 50 41 53 53 20 |DA PASS; . PASS |
000004D0: 32 2C 20 53 4B 49 50 20 49 4E 43 53 41 20 28 53 |2, SKIP INCSA (S|
000004E0: 45 45 20 4C 49 4E 45 20 32 30 20 41 42 4F 56 45 |EE LINE 20 ABOVE|
000004F0: 29 00 FD 08 2C 01 42 4E 45 20 50 33 4D 00 1A 09 |)...,.BNE P3M...|
00000500: 36 01 4A 53 52 20 49 4E 43 53 41 3B 20 52 41 49 |6.JSR INCSA; RAI|
00000510: 53 45 20 50 43 20 42 59 20 32 00 28 09 40 01 4A |SE PC BY 2.(.@.J|
00000520: 53 52 20 49 4E 43 53 41 00 45 09 4A 01 52 54 53 |SR INCSA.E.J.RTS|
00000530: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000540: AB AB AB AB AB 00 6D 09 54 01 50 33 4D 20 4C 44 |......m.T.P3M LD|
00000550: 41 20 53 46 4C 41 47 3B 20 53 48 4F 55 4C 45 20 |A SFLAG; SHOULE |
00000560: 57 45 20 99 20 A4 20 53 43 52 45 45 4E 00 7A 09 |WE . . SCREEN.z.|
00000570: 5E 01 42 45 51 20 50 33 4D 58 00 A5 09 68 01 4C |^.BEQ P3MX...h.L|
00000580: 44 58 20 52 45 53 55 4C 54 3B 20 99 20 AF 20 97 |DX RESULT; . . .|
00000590: 20 4C 4F 57 20 42 59 54 45 20 4F 46 20 41 52 47 | LOW BYTE OF ARG|
000005A0: 55 4D 45 4E 54 00 B5 09 72 01 4A 53 52 20 50 52 |UMENT...r.JSR PR|
000005B0: 4E 54 4E 55 4D 00 C9 09 7C 01 50 33 4D 58 20 4C |NTNUM...|.P3MX L|
000005C0: 44 58 20 52 45 53 55 4C 54 00 D5 09 86 01 4A 53 |DX RESULT.....JS|
000005D0: 52 20 97 49 54 00 F9 09 90 01 4C 44 41 20 53 46 |R .IT.....LDA SF|
000005E0: 4C 41 47 3B 20 53 48 4F 55 4C 44 20 57 45 20 99 |LAG; SHOULD WE .|
000005F0: 20 A4 20 53 43 52 45 45 4E 00 07 0A 9A 01 42 45 | . SCREEN.....BE|
00000600: 51 20 50 33 4D 58 58 00 3E 0A A4 01 4C 44 41 20 |Q P3MXX.>...LDA |
00000610: 48 58 46 4C 41 47 3B 20 41 52 45 20 57 45 20 99 |HXFLAG; ARE WE .|
00000620: 49 4E 47 20 4F 50 43 4F 44 45 53 20 AF 20 41 52 |ING OPCODES . AR|
00000630: 47 55 4D 45 4E 54 53 20 49 4E 20 48 45 58 00 67 |GUMENTS IN HEX.g|
00000640: 0A AE 01 42 45 51 20 50 33 4D 58 32 3B 20 8B 20 |...BEQ P3MX2; . |
00000650: 53 4F 2C 20 44 91 27 54 20 99 20 41 20 53 50 41 |SO, D.'T . A SPA|
00000660: 43 45 20 48 45 52 45 00 8F 0A B8 01 4A 53 52 20 |CE HERE.....JSR |
00000670: 50 52 4E 54 53 50 41 43 45 3B 20 4F 54 48 45 52 |PRNTSPACE; OTHER|
00000680: 57 49 53 45 2C 20 99 20 41 20 53 50 41 43 45 00 |WISE, . A SPACE.|
00000690: CB 0A C2 01 50 33 4D 58 32 20 4C 44 58 20 52 45 |....P3MX2 LDX RE|
000006A0: 53 55 4C 54 AA 31 3B 20 99 20 AF 20 97 20 54 48 |SULT.1; . . . TH|
000006B0: 45 20 48 49 47 48 20 42 59 54 45 20 4F 46 20 54 |E HIGH BYTE OF T|
000006C0: 48 45 20 41 52 47 55 4D 45 4E 54 00 DB 0A CC 01 |HE ARGUMENT.....|
000006D0: 4A 53 52 20 50 52 4E 54 4E 55 4D 00 F2 0A D6 01 |JSR PRNTNUM.....|
000006E0: 50 33 4D 58 58 20 4C 44 58 20 52 45 53 55 4C 54 |P3MXX LDX RESULT|
000006F0: AA 31 00 28 0B E0 01 4A 4D 50 20 97 49 54 3B 20 |.1.(...JMP .IT; |
00000700: AF 20 41 20 4A 55 4D 50 20 A4 20 97 49 54 20 57 |. A JUMP . .IT W|
00000710: 49 4C 4C 20 52 54 53 20 55 53 20 42 41 43 4B 20 |ILL RTS US BACK |
00000720: A4 20 43 41 4C 4C 45 52 00 6D 0B EA 01 97 49 54 |. CALLER.m....IT|
00000730: 20 53 54 58 20 57 B0 4B AA 31 3B AB AB AB AB AB | STX W.K.1;.....|
00000740: AB AB AB AB AB AB AB AB 97 20 49 4E 20 41 20 42 |......... IN A B|
00000750: 59 54 45 20 A4 20 52 41 4D AD 44 49 53 4B AB AB |YTE . RAM.DISK..|
00000760: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 94 0B |................|
00000770: F4 01 4C 44 41 20 97 46 4C 41 47 3B 20 41 52 45 |..LDA .FLAG; ARE|
00000780: 20 57 45 20 53 55 50 B9 45 44 20 A4 20 97 20 A4 | WE SUP.ED . . .|
00000790: 20 52 41 4D 00 AF 0B FE 01 42 45 51 20 44 49 53 | RAM.....BEQ DIS|
000007A0: 50 3B 20 8B 20 A8 2C 20 53 4B 49 50 20 49 54 00 |P; . ., SKIP IT.|
000007B0: F9 0B 08 02 4C 44 59 20 23 30 3B 20 4F 54 48 45 |....LDY #0; OTHE|
000007C0: 52 57 49 53 45 2C 20 53 80 20 54 48 45 20 42 59 |RWISE, S. THE BY|
000007D0: 54 45 20 A4 20 52 41 4D 20 4D 45 4D B0 59 20 41 |TE . RAM MEM.Y A|
000007E0: 54 20 43 55 52 52 45 4E 54 20 50 43 20 41 44 44 |T CURRENT PC ADD|
000007F0: 52 45 53 53 20 28 53 41 29 00 01 0C 12 02 54 58 |RESS (SA).....TX|
00000800: 41 00 21 0C 1C 02 53 54 41 20 28 53 41 29 2C 59 |A.!...STA (SA),Y|
00000810: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000820: AB 00 5F 0C 26 02 44 49 53 50 20 4C 44 41 20 44 |.._.&.DISP LDA D|
00000830: 49 53 4B 46 4C 41 47 3B 20 41 52 45 20 57 45 20 |ISKFLAG; ARE WE |
00000840: 53 55 50 B9 45 44 20 A4 20 97 20 A4 20 41 20 44 |SUP.ED . . . A D|
00000850: 49 53 4B 20 4F 42 4A 45 43 54 20 46 49 4C 45 00 |ISK OBJECT FILE.|
00000860: 7B 0C 30 02 42 45 51 20 49 4E 43 53 41 3B 20 8B |{.0.BEQ INCSA; .|
00000870: 20 A8 2C 20 53 4B 49 50 20 49 54 00 B1 0C 3A 02 | ., SKIP IT...:.|
00000880: 4A 53 52 20 9C 43 48 4E 3B 20 8B 20 53 4F 2C 20 |JSR .CHN; . SO, |
00000890: 41 4C 45 52 54 20 46 49 4C 45 20 23 32 20 28 57 |ALERT FILE #2 (W|
000008A0: 52 49 54 45 20 46 49 4C 45 20 91 20 44 49 53 4B |RITE FILE . DISK|
000008B0: 29 00 BC 0C 44 02 4C 44 58 20 23 32 00 CB 0C 4E |)...D.LDX #2...N|
000008C0: 02 4A 53 52 20 43 48 4B 4F 55 54 00 0A 0D 58 02 |.JSR CHKOUT...X.|
000008D0: 4C 44 41 20 57 B0 4B AA 31 3B 20 50 55 54 20 54 |LDA W.K.1; PUT T|
000008E0: 48 45 20 42 59 54 45 20 A4 20 42 45 20 53 45 4E |HE BYTE . BE SEN|
000008F0: 54 20 A4 20 44 49 53 4B 20 49 4E 20 54 48 45 20 |T . DISK IN THE |
00000900: 41 20 52 45 47 49 53 54 45 52 00 45 0D 62 02 4A |A REGISTER.E.b.J|
00000910: 53 52 20 99 3B 20 99 20 28 41 46 54 45 52 20 4C |SR .; . (AFTER L|
00000920: 49 4E 45 53 20 35 35 30 AB 35 37 30 20 41 42 4F |INES 550.570 ABO|
00000930: 56 45 29 20 99 53 20 A4 20 44 49 53 4B 20 46 49 |VE) .S . DISK FI|
00000940: 4C 45 20 23 32 00 6D 0D 6C 02 4A 53 52 20 9C 43 |LE #2.m.l.JSR .C|
00000950: 48 4E 3B 20 8C 20 4E B0 4D 41 4C 20 49 AD 4F 20 |HN; . N.MAL I.O |
00000960: 28 99 20 A4 20 53 43 52 45 45 4E 20 AF 00 88 0D |(. . SCREEN ....|
00000970: 76 02 4C 44 58 20 23 31 3B 20 87 20 46 52 4F 4D |v.LDX #1; . FROM|
00000980: 20 46 49 4C 45 20 23 31 00 96 0D 80 02 4A 53 52 | FILE #1.....JSR|
00000990: 20 43 48 4B 49 4E 00 E0 0D 8A 02 49 4E 43 53 41 | CHKIN.....INCSA|
000009A0: 20 43 4C 43 3B AB AB AB AB AB AB AB AB AB AB AB | CLC;...........|
000009B0: AB AB AB AB AB AB AB AB 20 52 41 49 53 45 20 54 |........ RAISE T|
000009C0: 48 45 20 50 43 20 43 4F 55 4E 54 45 52 20 28 53 |HE PC COUNTER (S|
000009D0: 41 29 20 42 59 20 31 20 AB AB AB AB AB AB AB AB |A) BY 1 ........|
000009E0: 00 EB 0D 94 02 4C 44 41 20 23 31 00 F6 0D 9E 02 |.....LDA #1.....|
000009F0: 41 44 43 20 53 41 00 01 0E A8 02 53 54 41 20 53 |ADC SA.....STA S|
00000A00: 41 00 0C 0E B2 02 4C 44 41 20 23 30 00 19 0E BC |A.....LDA #0....|
00000A10: 02 41 44 43 20 53 41 AA 31 00 26 0E C6 02 53 54 |.ADC SA.1.&...ST|
00000A20: 41 20 53 41 AA 31 00 2E 0E D0 02 52 54 53 00 71 |A SA.1.....RTS.q|
00000A30: 0E DA 02 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
00000A40: AB AB AB AB AB AB AB AB AB AB AB AB 20 20 99 4F |............ .O|
00000A50: 55 54 20 52 4F 55 54 49 4E 45 53 20 28 A4 20 53 |UT ROUTINES (. S|
00000A60: 43 52 45 45 4E 29 20 AB AB AB AB AB AB AB AB AB |CREEN) .........|
00000A70: AB 00 AF 0E E4 02 50 52 4E 54 4D 45 53 53 20 4C |......PRNTMESS L|
00000A80: 44 59 20 23 30 3B 20 99 20 41 20 4D 45 53 53 41 |DY #0; . A MESSA|
00000A90: 47 45 20 28 45 52 52 B0 53 20 55 53 55 41 4C 4C |GE (ERR.S USUALL|
00000AA0: 59 29 20 A4 20 54 48 45 20 53 43 52 45 45 4E 00 |Y) . THE SCREEN.|
00000AB0: F8 0E EE 02 4D 45 53 53 4C 4F 4F 50 20 4C 44 41 |....MESSLOOP LDA|
00000AC0: 20 28 54 45 4D 50 29 2C 59 3B 20 54 48 45 53 45 | (TEMP),Y; THESE|
00000AD0: 20 4D 45 53 53 41 47 45 53 20 41 52 45 20 44 45 | MESSAGES ARE DE|
00000AE0: 4C 49 4D 49 54 45 44 20 42 59 20 30 20 AF 20 41 |LIMITED BY 0 . A|
00000AF0: 52 45 20 50 4F B5 45 44 00 22 0F F8 02 42 45 51 |RE PO.ED."...BEQ|
00000B00: 20 4D 45 53 53 44 91 45 3B 20 A4 20 42 59 20 54 | MESSD.E; . BY T|
00000B10: 48 45 20 56 41 52 49 41 42 4C 45 20 22 54 45 4D |HE VARIABLE "TEM|
00000B20: 50 22 00 2C 0F 02 03 4A 53 52 20 99 00 72 0F 0C |P".,...JSR ..r..|
00000B30: 03 4A 53 52 20 50 54 50 3B 20 41 46 54 45 52 20 |.JSR PTP; AFTER |
00000B40: 99 49 4E 47 20 41 20 43 48 41 52 41 43 54 45 52 |.ING A CHARACTER|
00000B50: 20 A4 20 53 43 52 45 45 4E 2C 20 43 48 45 43 4B | . SCREEN, CHECK|
00000B60: 20 A4 20 53 45 45 20 8B 20 49 54 20 53 48 4F 55 | . SEE . IT SHOU|
00000B70: 4C 44 00 A7 0F 16 03 49 4E 59 3B 20 20 20 20 20 |LD.....INY; |
00000B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B90: 20 20 41 4C 53 4F 20 42 45 20 99 45 44 20 A4 20 | ALSO BE .ED . |
00000BA0: 54 48 45 20 99 45 52 00 B8 0F 20 03 4A 4D 50 20 |THE .ER... .JMP |
00000BB0: 4D 45 53 53 4C 4F 4F 50 00 E5 0F 2A 03 4D 45 53 |MESSLOOP...*.MES|
00000BC0: 53 44 91 45 20 52 54 53 3B AB AB AB AB AB AB AB |SD.E RTS;.......|
00000BD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000BE0: AB AB AB AB AB 00 10 10 34 03 50 52 4E 54 53 50 |........4.PRNTSP|
00000BF0: 41 43 45 20 4C 44 41 20 23 33 32 3B 20 99 20 41 |ACE LDA #32; . A|
00000C00: 20 53 50 41 43 45 20 43 48 41 52 41 43 54 45 52 | SPACE CHARACTER|
00000C10: 00 1A 10 3E 03 4A 53 52 20 99 00 48 10 48 03 4A |...>.JSR ..H.H.J|
00000C20: 53 52 20 50 54 50 3B 20 53 45 45 20 8B 20 49 54 |SR PTP; SEE . IT|
00000C30: 20 53 48 4F 55 4C 44 20 41 4C 53 4F 20 CB 20 A4 | SHOULD ALSO . .|
00000C40: 20 54 48 45 20 99 45 52 00 7E 10 52 03 52 54 53 | THE .ER.~.R.RTS|
00000C50: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000C60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000C70: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 BC |................|
00000C80: 10 5C 03 50 52 4E 54 4E 55 4D 20 53 54 58 20 58 |.\.PRNTNUM STX X|
00000C90: 3B 20 99 20 41 20 4E 55 4D 42 45 52 20 28 4C 4F |; . A NUMBER (LO|
00000CA0: 57 20 42 59 54 45 20 49 4E 20 58 2C 20 48 49 47 |W BYTE IN X, HIG|
00000CB0: 48 20 42 59 54 45 20 49 4E 20 41 29 00 EE 10 66 |H BYTE IN A)...f|
00000CC0: 03 4C 44 41 20 48 58 46 4C 41 47 3B 20 8B 20 57 |.LDA HXFLAG; . W|
00000CD0: 45 27 52 45 20 99 49 4E 47 20 49 4E 20 48 45 58 |E'RE .ING IN HEX|
00000CE0: 2C 20 A8 20 44 45 43 49 4D 41 4C 2C 20 A7 00 32 |, . DECIMAL, ..2|
00000CF0: 11 70 03 42 45 51 20 50 52 4E 54 4E 55 4D 44 3B |.p.BEQ PRNTNUMD;|
00000D00: 20 55 53 45 20 54 48 45 20 48 BD 52 B5 20 53 55 | USE THE H.R. SU|
00000D10: 42 52 4F 55 54 49 4E 45 2E 20 20 4F 54 48 45 52 |BROUTINE. OTHER|
00000D20: 57 49 53 45 2C 20 CB 20 A4 20 50 52 4E 54 4E 55 |WISE, . . PRNTNU|
00000D30: 4D 44 00 3A 11 7A 03 54 58 41 00 47 11 84 03 4A |MD.:.z.TXA.G...J|
00000D40: 53 52 20 48 BD 52 B5 00 81 11 8E 03 4A 53 52 20 |SR H.R......JSR |
00000D50: 50 54 50 4E 55 3B 20 43 48 45 43 4B 20 8B 20 4E |PTPNU; CHECK . N|
00000D60: 55 4D 42 45 52 20 53 48 4F 55 4C 44 20 42 45 20 |UMBER SHOULD BE |
00000D70: 99 45 44 20 A4 20 99 45 52 20 41 53 20 57 45 4C |.ED . .ER AS WEL|
00000D80: 4C 00 9F 11 98 03 4C 44 58 20 58 3B 20 8C 20 4E |L.....LDX X; . N|
00000D90: 55 4D 42 45 52 20 49 4E 20 58 20 42 45 81 45 00 |UMBER IN X BE.E.|
00000DA0: CF 11 A2 03 52 54 53 3B 20 8E 49 4E 47 20 A4 20 |....RTS; .ING . |
00000DB0: 43 41 4C 4C 45 52 AB AB AB AB AB AB AB AB AB AB |CALLER..........|
00000DC0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00000DD0: F7 11 AC 03 50 52 4E 54 4E 55 4D 44 20 4C 44 41 |....PRNTNUMD LDA|
00000DE0: 20 23 30 3B 20 99 20 41 20 44 45 43 49 4D 41 4C | #0; . A DECIMAL|
00000DF0: 20 4E 55 4D 42 45 52 00 28 12 B6 03 4A 53 52 20 | NUMBER.(...JSR |
00000E00: 4F 55 54 4E 55 4D 3B 20 42 41 53 49 43 27 53 20 |OUTNUM; BASIC'S |
00000E10: 4C 49 4E 45 20 4E 55 4D 42 45 52 20 99 4F 55 54 |LINE NUMBER .OUT|
00000E20: 20 52 4F 55 54 49 4E 45 00 51 12 C0 03 4A 53 52 | ROUTINE.Q...JSR|
00000E30: 20 50 54 50 4E 55 3B 20 53 48 4F 55 4C 44 20 57 | PTPNU; SHOULD W|
00000E40: 45 20 41 4C 53 4F 20 99 20 49 54 20 A4 20 99 45 |E ALSO . IT . .E|
00000E50: 52 00 6C 12 CA 03 4C 44 58 20 58 3B 20 8C 20 C5 |R.l...LDX X; . .|
00000E60: 55 45 20 49 4E 20 58 20 42 45 81 45 00 AA 12 D4 |UE IN X BE.E....|
00000E70: 03 52 54 53 3B 20 8E 49 4E 47 20 A4 20 54 48 45 |.RTS; .ING . THE|
00000E80: 20 43 41 4C 4C 45 52 20 AB AB AB AB AB AB AB AB | CALLER ........|
00000E90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000EA0: AB AB AB AB AB AB AB AB AB AB 00 E0 12 DE 03 50 |...............P|
00000EB0: 52 4E 54 53 41 20 4C 44 41 20 48 58 46 4C 41 47 |RNTSA LDA HXFLAG|
00000EC0: 3B 20 99 20 54 48 45 20 53 41 20 28 50 43 2C 20 |; . THE SA (PC, |
00000ED0: 50 52 4F 47 52 41 4D 20 43 4F 55 4E 54 45 52 29 |PROGRAM COUNTER)|
00000EE0: 00 1B 13 E8 03 42 45 51 20 50 52 4E 54 53 41 44 |.....BEQ PRNTSAD|
00000EF0: 3B 20 8B 20 A8 20 48 45 58 20 99 4F 55 54 2C 20 |; . . HEX .OUT, |
00000F00: A7 20 55 53 45 20 44 45 43 49 4D 41 4C 20 52 4F |. USE DECIMAL RO|
00000F10: 55 54 49 4E 45 20 42 45 4C 4F 57 00 56 13 F2 03 |UTINE BELOW.V...|
00000F20: 4C 44 41 20 53 41 AA 31 3B 20 4F 54 48 45 52 57 |LDA SA.1; OTHERW|
00000F30: 49 53 45 2C 20 99 20 4C 4F 57 20 AF 20 48 49 47 |ISE, . LOW . HIG|
00000F40: 48 20 42 59 54 45 53 20 4F 46 20 53 41 20 28 41 |H BYTES OF SA (A|
00000F50: 53 20 48 45 58 29 00 72 13 FC 03 4A 53 52 20 48 |S HEX).r...JSR H|
00000F60: BD 52 B5 3B 20 48 49 47 48 20 42 59 54 45 20 31 |.R.; HIGH BYTE 1|
00000F70: 53 54 00 7D 13 06 04 4C 44 41 20 53 41 00 8A 13 |ST.}...LDA SA...|
00000F80: 10 04 4A 53 52 20 48 BD 52 B5 00 B3 13 1A 04 4A |..JSR H.R......J|
00000F90: 53 52 20 50 54 50 53 41 3B 20 53 48 4F 55 4C 44 |SR PTPSA; SHOULD|
00000FA0: 20 57 45 20 41 4C 53 4F 20 99 20 53 41 20 A4 20 | WE ALSO . SA . |
00000FB0: 99 45 52 00 CC 13 24 04 52 54 53 3B AB AB AB AB |.ER...$.RTS;....|
00000FC0: AB AB AB AB AB AB AB AB AB AB AB AB 00 F6 13 2E |................|
00000FD0: 04 50 52 4E 54 53 41 44 20 4C 44 58 20 53 41 3B |.PRNTSAD LDX SA;|
00000FE0: 20 99 20 53 41 20 28 44 45 43 49 4D 41 4C 20 56 | . SA (DECIMAL V|
00000FF0: 45 52 53 49 91 29 00 03 14 38 04 4C 44 41 20 53 |ERSI.)...8.LDA S|
00001000: 41 AA 31 00 12 14 42 04 4A 53 52 20 4F 55 54 4E |A.1...B.JSR OUTN|
00001010: 55 4D 00 2D 14 4C 04 4A 53 52 20 50 54 50 53 41 |UM.-.L.JSR PTPSA|
00001020: 3B 20 99 20 A4 20 99 45 52 2C 20 A4 4F 00 67 14 |; . . .ER, .O.g.|
00001030: 56 04 52 54 53 3B AB AB AB AB AB AB AB AB AB AB |V.RTS;..........|
00001040: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001050: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001060: AB AB AB AB AB AB AB 00 9F 14 60 04 50 52 4E 54 |..........`.PRNT|
00001070: 43 52 20 4C 44 41 20 23 31 33 3B 20 20 20 20 20 |CR LDA #13; |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001090: 20 99 20 41 20 43 41 52 52 49 41 47 45 20 8E 00 | . A CARRIAGE ..|
000010A0: A9 14 6A 04 4A 53 52 20 99 00 D3 14 74 04 4A 53 |..j.JSR ....t.JS|
000010B0: 52 20 50 54 50 3B 20 53 48 4F 55 4C 44 20 57 45 |R PTP; SHOULD WE|
000010C0: 20 44 4F 20 49 54 20 91 20 54 48 45 20 99 45 52 | DO IT . THE .ER|
000010D0: 20 A4 4F 00 0C 15 7E 04 52 54 53 3B AB AB AB AB | .O...~.RTS;....|
000010E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000010F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001100: AB AB AB AB AB AB AB AB AB AB AB AB 00 51 15 88 |.............Q..|
00001110: 04 50 52 4E 54 4C 49 4E 45 20 4C 44 58 20 4C 49 |.PRNTLINE LDX LI|
00001120: 4E 45 4E 3B 20 20 20 20 20 20 20 20 20 20 20 20 |NEN; |
00001130: 20 20 20 20 20 20 99 20 41 20 53 4F 55 52 43 45 | . A SOURCE|
00001140: 20 43 4F 44 45 20 4C 49 4E 45 20 4E 55 4D 42 45 | CODE LINE NUMBE|
00001150: 52 00 61 15 92 04 4C 44 41 20 4C 49 4E 45 4E AA |R.a...LDA LINEN.|
00001160: 31 00 9A 15 9C 04 4A 53 52 20 4F 55 54 4E 55 4D |1.....JSR OUTNUM|
00001170: 3B 20 42 41 53 49 43 20 52 4F 55 54 49 4E 45 20 |; BASIC ROUTINE |
00001180: 28 4C 4F 57 20 42 59 54 45 20 49 4E 20 58 2C 20 |(LOW BYTE IN X, |
00001190: 48 49 47 48 20 49 4E 20 41 29 00 CC 15 A6 04 4A |HIGH IN A).....J|
000011A0: 53 52 20 50 54 50 4C 49 3B 20 53 48 4F 55 4C 44 |SR PTPLI; SHOULD|
000011B0: 20 57 45 20 41 4C 53 4F 20 99 20 4C 49 4E 45 20 | WE ALSO . LINE |
000011C0: 4E 55 4D 42 45 52 20 A4 20 99 45 52 00 05 16 B0 |NUMBER . .ER....|
000011D0: 04 52 54 53 3B 20 AB AB AB AB AB AB AB AB AB AB |.RTS; ..........|
000011E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000011F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001200: AB AB AB AB AB 00 3C 16 BA 04 50 52 4E 54 85 20 |......<...PRNT. |
00001210: 4C 44 41 20 23 B3 4C 41 42 45 4C 3B 20 20 20 20 |LDA #.LABEL; |
00001220: 20 20 20 20 20 20 20 20 20 20 20 99 20 9A 45 4E | . .EN|
00001230: 54 53 20 4F 46 20 4D 41 49 4E 20 85 00 76 16 C4 |TS OF MAIN ..v..|
00001240: 04 53 54 41 20 54 45 4D 50 3B 20 20 20 20 20 20 |.STA TEMP; |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 20 20 20 20 20 20 42 55 46 46 45 52 20 28 22 4C | BUFFER ("L|
00001270: 41 42 45 4C 22 29 00 A3 16 CE 04 4C 44 41 20 23 |ABEL").....LDA #|
00001280: B1 4C 41 42 45 4C 3B 20 50 4F B5 20 22 54 45 4D |.LABEL; PO. "TEM|
00001290: 50 22 20 A4 20 54 48 45 20 42 55 46 46 45 52 20 |P" . THE BUFFER |
000012A0: AF 20 A7 00 B2 16 D8 04 53 54 41 20 54 45 4D 50 |. ......STA TEMP|
000012B0: AA 31 00 E5 16 E2 04 4A 53 52 20 50 52 4E 54 4D |.1.....JSR PRNTM|
000012C0: 45 53 53 3B 20 55 53 45 20 47 45 4E 45 52 41 4C |ESS; USE GENERAL|
000012D0: 20 4D 45 53 53 41 47 45 20 99 49 4E 47 20 52 4F | MESSAGE .ING RO|
000012E0: 55 54 49 4E 45 00 ED 16 EC 04 52 54 53 00 23 17 |UTINE.....RTS.#.|
000012F0: F6 04 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00001300: AB AB AB AB AB AB AB AB AB AB AB 20 20 20 45 52 |........... ER|
00001310: 52 B0 20 99 4F 55 54 20 50 52 45 50 41 52 41 54 |R. .OUT PREPARAT|
00001320: 49 91 53 00 40 17 00 05 45 52 52 49 4E 47 20 4C |I.S.@...ERRING L|
00001330: 44 41 20 23 37 3B 20 52 49 4E 47 20 42 45 4C 4C |DA #7; RING BELL|
00001340: 00 4A 17 0A 05 4A 53 52 20 99 00 7C 17 14 05 4C |.J...JSR ..|...L|
00001350: 44 41 20 23 31 38 3B 20 54 55 52 4E 20 91 20 52 |DA #18; TURN . R|
00001360: 45 56 45 52 53 45 20 99 49 4E 47 20 A4 20 48 49 |EVERSE .ING . HI|
00001370: 47 48 4C 49 47 48 54 20 45 52 52 B0 00 86 17 1E |GHLIGHT ERR.....|
00001380: 05 4A 53 52 20 99 00 AE 17 28 05 4A 53 52 20 50 |.JSR ....(.JSR P|
00001390: 52 4E 54 85 3B 20 99 20 9A 45 4E 54 53 20 4F 46 |RNT.; . .ENTS OF|
000013A0: 20 4D 41 49 4E 20 85 20 42 55 46 46 45 52 00 CA | MAIN . BUFFER..|
000013B0: 17 32 05 4C 44 41 20 23 31 33 3B 20 99 20 41 20 |.2.LDA #13; . A |
000013C0: 43 41 52 52 49 41 47 45 20 8E 00 D4 17 3C 05 4A |CARRIAGE ....<.J|
000013D0: 53 52 20 99 00 DC 17 46 05 52 54 53 00 14 18 50 |SR ....F.RTS...P|
000013E0: 05 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000013F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001400: AB AB AB AB AB AB AB 20 99 4F 55 54 20 28 A4 20 |....... .OUT (. |
00001410: 99 45 52 29 00 3E 18 5A 05 3B 28 50 54 50 20 99 |.ER).>.Z.;(PTP .|
00001420: 53 20 41 20 BF 47 4C 45 20 43 48 41 52 41 43 54 |S A .GLE CHARACT|
00001430: 45 52 20 A4 20 54 48 45 20 99 45 52 29 2E 00 6B |ER . THE .ER)..k|
00001440: 18 64 05 50 54 50 20 4C 44 58 20 50 41 53 53 3B |.d.PTP LDX PASS;|
00001450: 20 91 20 50 41 53 53 20 31 2C 20 44 4F 20 4E 4F | . PASS 1, DO NO|
00001460: 20 99 49 4E 47 20 A4 20 99 45 52 00 78 18 6E 05 | .ING . .ER.x.n.|
00001470: 42 4E 45 20 50 54 50 31 00 80 18 78 05 52 54 53 |BNE PTP1...x.RTS|
00001480: 00 BA 18 82 05 50 54 50 31 20 4C 44 58 20 99 46 |.....PTP1 LDX .F|
00001490: 4C 41 47 3B 20 8B 20 99 46 4C 41 47 20 49 53 20 |LAG; . .FLAG IS |
000014A0: 44 4F 57 4E 2C 20 44 4F 20 A8 48 49 4E 47 2C 20 |DOWN, DO .HING, |
000014B0: 8E 20 A4 20 43 41 4C 4C 45 52 00 C7 18 8C 05 42 |. . CALLER.....B|
000014C0: 4E 45 20 4D 50 54 50 00 D9 18 96 05 52 54 53 3B |NE MPTP.....RTS;|
000014D0: AB AB AB AB AB AB AB AB AB 00 FF 18 A0 05 4D 50 |..............MP|
000014E0: 54 50 20 53 54 41 20 41 3B 20 94 20 9A 45 4E 54 |TP STA A; . .ENT|
000014F0: 53 20 4F 46 20 41 43 43 55 4D 55 4C 41 A4 52 00 |S OF ACCUMULA.R.|
00001500: 17 19 AA 05 4A 53 52 20 9C 43 48 4E 3B 20 41 4C |....JSR .CHN; AL|
00001510: 45 52 54 20 99 45 52 00 22 19 B4 05 4C 44 58 20 |ERT .ER."...LDX |
00001520: 23 34 00 31 19 BE 05 4A 53 52 20 43 48 4B 4F 55 |#4.1...JSR CHKOU|
00001530: 54 00 46 19 C8 05 4C 44 41 20 41 3B 20 52 45 43 |T.F...LDA A; REC|
00001540: 4F 56 45 52 20 41 00 59 19 D2 05 4A 53 52 20 99 |OVER A.Y...JSR .|
00001550: 3B 20 99 20 A4 20 99 45 52 00 73 19 DC 05 4A 53 |; . . .ER.s...JS|
00001560: 52 20 9C 43 48 4E 3B 20 8C 20 4E B0 4D 41 4C 20 |R .CHN; . N.MAL |
00001570: 49 AD 4F 00 7E 19 E6 05 4C 44 58 20 23 31 00 8C |I.O.~...LDX #1..|
00001580: 19 F0 05 4A 53 52 20 43 48 4B 49 4E 00 A6 19 FA |...JSR CHKIN....|
00001590: 05 52 45 54 54 20 4C 44 41 20 41 3B 20 52 45 43 |.RETT LDA A; REC|
000015A0: 4F 56 45 52 20 41 00 BA 19 04 06 52 54 53 3B 20 |OVER A.....RTS; |
000015B0: 8E 20 A4 20 43 41 4C 4C 45 52 00 E4 19 0E 06 3B |. . CALLER.....;|
000015C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000015D0: AB AB AB AB 20 20 20 4E 55 4D 42 45 52 53 20 A4 |.... NUMBERS .|
000015E0: 20 99 45 52 00 16 1A 18 06 50 54 50 4E 55 20 4C | .ER.....PTPNU L|
000015F0: 44 58 20 50 41 53 53 3B 20 53 41 4D 45 20 BC 49 |DX PASS; SAME .I|
00001600: 43 20 41 53 20 4C 49 4E 45 53 20 31 33 35 30 AA |C AS LINES 1350.|
00001610: 20 41 42 4F 56 45 00 24 1A 22 06 42 4E 45 20 50 | ABOVE.$.".BNE P|
00001620: 54 50 4E 31 00 2C 1A 2C 06 52 54 53 00 40 1A 36 |TPN1.,.,.RTS.@.6|
00001630: 06 50 54 50 4E 31 20 4C 44 58 20 99 46 4C 41 47 |.PTPN1 LDX .FLAG|
00001640: 00 4E 1A 40 06 42 4E 45 20 4D 50 54 50 4E 00 56 |.N.@.BNE MPTPN.V|
00001650: 1A 4A 06 52 54 53 00 69 1A 54 06 4D 50 54 50 4E |.J.RTS.i.T.MPTPN|
00001660: 20 4A 53 52 20 9C 43 48 4E 00 74 1A 5E 06 4C 44 | JSR .CHN.t.^.LD|
00001670: 58 20 23 34 00 83 1A 68 06 4A 53 52 20 43 48 4B |X #4...h.JSR CHK|
00001680: 4F 55 54 00 A6 1A 72 06 4C 44 41 20 48 58 46 4C |OUT...r.LDA HXFL|
00001690: 41 47 3B 20 48 45 58 20 B0 20 44 45 43 49 4D 41 |AG; HEX . DECIMA|
000016A0: 4C 20 4D 4F 44 45 00 B5 1A 7C 06 42 45 51 20 4D |L MODE...|.BEQ M|
000016B0: 50 54 50 4E 44 00 BF 1A 86 06 4C 44 41 20 58 00 |PTPND.....LDA X.|
000016C0: CC 1A 90 06 4A 53 52 20 48 BD 52 B5 00 DB 1A 9A |....JSR H.R.....|
000016D0: 06 4A 4D 50 20 46 49 4E 50 54 50 00 ED 1A A4 06 |.JMP FINPTP.....|
000016E0: 4D 50 54 50 4E 44 20 4C 44 41 20 23 30 00 F7 1A |MPTPND LDA #0...|
000016F0: AE 06 4C 44 58 20 58 00 06 1B B8 06 4A 53 52 20 |..LDX X.....JSR |
00001700: 4F 55 54 4E 55 4D 00 1A 1B C2 06 46 49 4E 50 54 |OUTNUM.....FINPT|
00001710: 50 20 4A 53 52 20 9C 43 48 4E 00 25 1B CC 06 4C |P JSR .CHN.%...L|
00001720: 44 58 20 23 31 00 33 1B D6 06 4A 53 52 20 43 48 |DX #1.3...JSR CH|
00001730: 4B 49 4E 00 3B 1B E0 06 52 54 53 00 5D 1B EA 06 |KIN.;...RTS.]...|
00001740: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00001750: AB AB AB 20 20 53 41 20 A4 20 99 45 52 00 8F 1B |... SA . .ER...|
00001760: F4 06 50 54 50 53 41 20 4C 44 58 20 50 41 53 53 |..PTPSA LDX PASS|
00001770: 3B 20 53 41 4D 45 20 BC 49 43 20 41 53 20 4C 49 |; SAME .IC AS LI|
00001780: 4E 45 53 20 31 33 35 30 AA 20 41 42 4F 56 45 00 |NES 1350. ABOVE.|
00001790: 9D 1B FE 06 42 4E 45 20 50 54 50 53 31 00 A5 1B |....BNE PTPS1...|
000017A0: 08 07 52 54 53 00 B9 1B 12 07 50 54 50 53 31 20 |..RTS.....PTPS1 |
000017B0: 4C 44 58 20 99 46 4C 41 47 00 C8 1B 1C 07 42 4E |LDX .FLAG.....BN|
000017C0: 45 20 4D 50 54 50 53 41 00 D0 1B 26 07 52 54 53 |E MPTPSA...&.RTS|
000017D0: 00 E4 1B 30 07 4D 50 54 50 53 41 20 4A 53 52 20 |...0.MPTPSA JSR |
000017E0: 9C 43 48 4E 00 EF 1B 3A 07 4C 44 58 20 23 34 00 |.CHN...:.LDX #4.|
000017F0: FE 1B 44 07 4A 53 52 20 43 48 4B 4F 55 54 00 21 |..D.JSR CHKOUT.!|
00001800: 1C 4E 07 4C 44 58 20 48 58 46 4C 41 47 3B 20 48 |.N.LDX HXFLAG; H|
00001810: 45 58 20 B0 20 44 45 43 49 4D 41 4C 20 99 4F 55 |EX . DECIMAL .OU|
00001820: 54 00 31 1C 58 07 42 45 51 20 4D 50 54 50 53 41 |T.1.X.BEQ MPTPSA|
00001830: 44 00 3E 1C 62 07 4C 44 41 20 53 41 AA 31 00 4B |D.>.b.LDA SA.1.K|
00001840: 1C 6C 07 4A 53 52 20 48 BD 52 B5 00 56 1C 76 07 |.l.JSR H.R..V.v.|
00001850: 4C 44 41 20 53 41 00 63 1C 80 07 4A 53 52 20 48 |LDA SA.c...JSR H|
00001860: BD 52 B5 00 74 1C 8A 07 4A 4D 50 20 46 49 4E 50 |.R..t...JMP FINP|
00001870: 54 50 53 41 00 89 1C 94 07 4D 50 54 50 53 41 44 |TPSA.....MPTPSAD|
00001880: 20 4C 44 41 20 53 41 AA 31 00 94 1C 9E 07 4C 44 | LDA SA.1.....LD|
00001890: 58 20 53 41 00 A3 1C A8 07 4A 53 52 20 4F 55 54 |X SA.....JSR OUT|
000018A0: 4E 55 4D 00 B9 1C B2 07 46 49 4E 50 54 50 53 41 |NUM.....FINPTPSA|
000018B0: 20 4A 53 52 20 9C 43 48 4E 00 C4 1C BC 07 4C 44 | JSR .CHN.....LD|
000018C0: 58 20 23 31 00 D2 1C C6 07 4A 53 52 20 43 48 4B |X #1.....JSR CHK|
000018D0: 49 4E 00 DA 1C D0 07 52 54 53 00 04 1D DA 07 3B |IN.....RTS.....;|
000018E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000018F0: AB AB 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 A4 |.. LINE NUMBER .|
00001900: 20 99 45 52 00 36 1D E4 07 50 54 50 4C 49 20 4C | .ER.6...PTPLI L|
00001910: 44 58 20 50 41 53 53 3B 20 53 41 4D 45 20 BC 49 |DX PASS; SAME .I|
00001920: 43 20 41 53 20 4C 49 4E 45 53 20 31 33 35 30 AA |C AS LINES 1350.|
00001930: 20 41 42 4F 56 45 00 44 1D EE 07 42 4E 45 20 50 | ABOVE.D...BNE P|
00001940: 54 50 4C 31 00 4C 1D F8 07 52 54 53 00 60 1D 02 |TPL1.L...RTS.`..|
00001950: 08 50 54 50 4C 31 20 4C 44 58 20 99 46 4C 41 47 |.PTPL1 LDX .FLAG|
00001960: 00 6E 1D 0C 08 42 4E 45 20 4D 50 54 50 4C 00 76 |.n...BNE MPTPL.v|
00001970: 1D 16 08 52 54 53 00 89 1D 20 08 4D 50 54 50 4C |...RTS... .MPTPL|
00001980: 20 4A 53 52 20 9C 43 48 4E 00 94 1D 2A 08 4C 44 | JSR .CHN...*.LD|
00001990: 58 20 23 34 00 A3 1D 34 08 4A 53 52 20 43 48 4B |X #4...4.JSR CHK|
000019A0: 4F 55 54 00 B3 1D 3E 08 4C 44 41 20 4C 49 4E 45 |OUT...>.LDA LINE|
000019B0: 4E AA 31 00 C1 1D 48 08 4C 44 58 20 4C 49 4E 45 |N.1...H.LDX LINE|
000019C0: 4E 00 D0 1D 52 08 4A 53 52 20 4F 55 54 4E 55 4D |N...R.JSR OUTNUM|
000019D0: 00 DD 1D 5C 08 4A 53 52 20 9C 43 48 4E 00 E8 1D |...\.JSR .CHN...|
000019E0: 66 08 4C 44 58 20 23 31 00 F6 1D 70 08 4A 53 52 |f.LDX #1...p.JSR|
000019F0: 20 43 48 4B 49 4E 00 FE 1D 7A 08 52 54 53 00 37 | CHKIN...z.RTS.7|
00001A00: 1E 84 08 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
00001A10: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001A20: AB AB AB AB AB AB 20 20 48 45 58 20 4E 55 4D 42 |...... HEX NUMB|
00001A30: 45 52 20 99 4F 55 54 00 7B 1E 8E 08 3B 20 99 20 |ER .OUT.{...; . |
00001A40: 54 48 45 20 4E 55 4D 42 45 52 20 49 4E 20 54 48 |THE NUMBER IN TH|
00001A50: 45 20 41 43 43 55 4D 55 4C 41 A4 52 20 41 53 20 |E ACCUMULA.R AS |
00001A60: 41 20 48 45 58 20 44 49 47 49 54 20 28 41 53 20 |A HEX DIGIT (AS |
00001A70: C6 49 49 20 43 48 41 52 53 2E 29 00 95 1E 98 08 |.II CHARS.).....|
00001A80: 48 BD 52 B5 20 50 48 41 3B 20 53 A4 52 45 20 4E |H.R. PHA; S.RE N|
00001A90: 55 4D 42 45 52 00 D8 1E A2 08 AF 20 23 24 30 46 |UMBER...... #$0F|
00001AA0: 3B 20 43 4C 45 41 52 20 48 49 47 48 20 42 49 54 |; CLEAR HIGH BIT|
00001AB0: 53 20 28 31 30 31 30 31 31 31 31 20 42 45 43 4F |S (10101111 BECO|
00001AC0: 4D 45 53 20 30 30 30 30 31 31 31 31 2C 20 81 20 |MES 00001111, . |
00001AD0: 45 58 41 4D 50 4C 45 29 00 1F 1F AC 08 54 41 59 |EXAMPLE).....TAY|
00001AE0: 3B 20 4E 4F 57 20 57 45 20 4B 4E 4F 57 20 57 48 |; NOW WE KNOW WH|
00001AF0: 49 43 48 20 B9 49 54 49 91 20 49 4E 20 54 48 45 |ICH .ITI. IN THE|
00001B00: 20 53 54 52 49 4E 47 20 4F 46 20 48 45 58 20 4E | STRING OF HEX N|
00001B10: 55 4D 42 45 52 53 20 28 22 48 45 58 41 22 29 00 |UMBERS ("HEXA").|
00001B20: 63 1F B6 08 4C 44 41 20 48 45 58 41 2C 59 3B 20 |c...LDA HEXA,Y; |
00001B30: 54 48 49 53 20 4E 55 4D 42 45 52 20 49 53 2E 20 |THIS NUMBER IS. |
00001B40: 20 53 4F 20 50 55 4C 4C 20 49 54 20 4F 55 54 20 | SO PULL IT OUT |
00001B50: 41 53 20 41 4E 20 C6 49 49 20 43 48 41 52 41 43 |AS AN .II CHARAC|
00001B60: 54 45 52 00 94 1F C0 08 3B 20 28 48 45 58 41 20 |TER.....; (HEXA |
00001B70: 4C 4F 4F 4B 53 20 4C 49 4B 45 20 54 48 49 53 3A |LOOKS LIKE THIS:|
00001B80: 20 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 | "0123456789ABCD|
00001B90: 45 46 22 29 00 B1 1F CA 08 54 41 58 3B 20 94 20 |EF").....TAX; . |
00001BA0: 4C 4F 57 AB 42 49 54 53 20 C5 55 45 20 B5 4F 20 |LOW.BITS .UE .O |
00001BB0: 58 00 E5 1F D4 08 50 4C 41 3B 20 50 55 4C 4C 20 |X.....PLA; PULL |
00001BC0: 4F 55 54 20 54 48 45 20 B0 49 47 49 4E 41 4C 20 |OUT THE .IGINAL |
00001BD0: 4E 55 4D 42 45 52 2C 20 42 55 54 20 54 48 49 53 |NUMBER, BUT THIS|
00001BE0: 20 54 49 4D 45 00 30 20 DE 08 4C 53 52 3B 53 48 | TIME.0 ..LSR;SH|
00001BF0: 8B 54 20 52 49 47 48 54 20 34 20 54 49 4D 45 53 |.T RIGHT 4 TIMES|
00001C00: 20 28 4D 4F 56 49 4E 47 20 54 48 45 20 34 20 48 | (MOVING THE 4 H|
00001C10: 49 47 48 20 42 49 54 53 20 B5 4F 20 54 48 45 20 |IGH BITS .O THE |
00001C20: 34 20 4C 4F 57 20 42 49 54 53 20 41 52 45 41 29 |4 LOW BITS AREA)|
00001C30: 00 60 20 E8 08 4C 53 52 3B 20 28 31 30 31 30 31 |.` ..LSR; (10101|
00001C40: 31 31 31 20 42 45 43 4F 4D 45 53 20 30 30 30 30 |111 BECOMES 0000|
00001C50: 31 30 31 30 2C 20 81 20 45 58 41 4D 50 4C 45 29 |1010, . EXAMPLE)|
00001C60: 00 68 20 F2 08 4C 53 52 00 70 20 FC 08 4C 53 52 |.h ..LSR.p ..LSR|
00001C70: 00 A5 20 06 09 54 41 59 3B 20 41 47 41 49 4E 2C |.. ..TAY; AGAIN,|
00001C80: 20 50 55 54 20 B9 49 54 49 91 20 4F 46 20 54 48 | PUT .ITI. OF TH|
00001C90: 49 53 20 C5 55 45 20 B5 4F 20 54 48 45 20 59 20 |IS .UE .O THE Y |
00001CA0: 49 4E 44 45 58 00 E9 20 10 09 4C 44 41 20 48 45 |INDEX.. ..LDA HE|
00001CB0: 58 41 2C 59 3B 20 50 55 4C 4C 20 4F 55 54 20 54 |XA,Y; PULL OUT T|
00001CC0: 48 45 20 52 49 47 48 54 20 C6 49 49 20 43 48 41 |HE RIGHT .II CHA|
00001CD0: 52 41 43 54 45 52 20 46 52 4F 4D 20 22 48 45 58 |RACTER FROM "HEX|
00001CE0: 41 22 20 53 54 52 49 4E 47 00 2A 21 1A 09 4A 53 |A" STRING.*!..JS|
00001CF0: 52 20 99 3B 20 99 20 48 49 47 48 20 C5 55 45 20 |R .; . HIGH .UE |
00001D00: 28 46 49 52 53 54 29 20 28 41 20 48 4F 4C 44 53 |(FIRST) (A HOLDS|
00001D10: 20 48 49 47 48 20 C5 55 45 20 41 46 54 45 52 20 | HIGH .UE AFTER |
00001D20: 4C 49 4E 45 20 32 32 38 30 29 00 54 21 24 09 54 |LINE 2280).T!$.T|
00001D30: 58 41 3B 20 28 58 20 48 45 4C 44 20 4C 4F 57 20 |XA; (X HELD LOW |
00001D40: C5 55 45 20 41 46 54 45 52 20 4C 49 4E 45 20 32 |.UE AFTER LINE 2|
00001D50: 32 31 30 29 00 69 21 2E 09 4A 53 52 20 99 3B 20 |210).i!..JSR .; |
00001D60: 99 20 4C 4F 57 20 C5 55 45 00 7D 21 38 09 52 54 |. LOW .UE.}!8.RT|
00001D70: 53 3B 20 8E 20 A4 20 43 41 4C 4C 45 52 00 8E 21 |S; . . CALLER..!|
00001D80: 42 09 2E 46 49 4C 45 20 50 53 45 55 44 4F 00 00 |B..FILE PSEUDO..|
00001D90: 00 |. |
..<...; "PRINTOPS" .S & .S EUES (BOTH
OPCODES & ARGUMENTS).U....MAT LDA PASS;
. PASS 2, IGN.E INCSA (RAISES PC) .CE...
..BNE PRM; . PASS 2, WE JSR . .IT (IT KE
S . INCSA)...(.JSR INCSA; BUT . PASS 1,
WE D.'T . . . ANYTHING, WE JUST...2.RTS;
RAISE THE PC . . ...............8.<.PRM
LDA SFLAG; SHOULD WE . . SCREEN.I.F.BEQ
PRMX; . ., SKIP THIS . PART (. . SCREEN
)...P.JSR .CHN; OTHERWISE, RESET N.MAL I
.O C.DITI..E.Z.LDX #1; (FILE #1 . ., SCR
EEN . OUTPUT).S.D.JSR CHKIN...N.LDX OP;
. THE OPCODE...X.JSR PRNTNUM; . IT.....J
SR PRNTSPACE; . A SPACE.^...PRMX LDX OP;
........... NOW . THE OPCODE .O RAM.DISK
MEM.Y.J...JSR .IT... .RTS;.............
...............................; . TWO B
YTES (THE OPCODE . A 1.BYTE ARGUMENT)...
....................2 LDA PASS; . PASS 2
, WE SKIP INCSA (SEE LINE 20 ABOVE).'...
BNE P2M.5.H.JSR INCSA.R.R.RTS;..........
...............P2M LDA SFLAG; . SCREEN .
FLAG IS DOWN, SKIP .ING . SCREEN.....BE
Q P2MX.....LDX RESULT; OTHERWISE . THE L
OW.BYTE OF "RESULT" (THE ARGUMENT).....J
SR PRNTNUM.....P2MX LDX RESULT; . ALSO .
THE LOW.BYTE . RAM.DISK MEM.Y.Q...JMP .
IT; A JMP . .IT WILL RTS US BACK . THE C
ALLER.................; . THREE BYTES (T
HE OPCODE . A 2.BYTE ARGUMENT)..........
.........."..3 LDA PASS; . PASS 2, SKIP
INCSA (SEE LINE 20 ABOVE)...,.BNE P3M...
6.JSR INCSA; RAISE PC BY 2.(.@.JSR INCSA
.E.J.RTS;.....................M.T.P3M LD
A SFLAG; SHOULE WE . . SCREEN.Z.^.BEQ P3
MX...H.LDX RESULT; . . . LOW BYTE OF ARG
UMENT...R.JSR PRNTNUM.I.|.P3MX LDX RESUL
T.U...JSR .IT.....LDA SFLAG; SHOULD WE .
. SCREEN.....BEQ P3MXX.>...LDA HXFLAG;
ARE WE .ING OPCODES . ARGUMENTS IN HEX.G
...BEQ P3MX2; . SO, D.'T . A SPACE HERE.
....JSR PRNTSPACE; OTHERWISE, . A SPACE.
K.B.P3MX2 LDX RESULT.1; . . . THE HIGH B
YTE OF THE ARGUMENT...L.JSR PRNTNUM...V.
P3MXX LDX RESULT.1.(...JMP .IT; . A JUMP
. .IT WILL RTS US BACK . CALLER.M....IT
STX W.K.1;.............. IN A BYTE . RA
M.DISK....................LDA .FLAG; ARE
WE SUP.ED . . . RAM.....BEQ DISP; . .,
SKIP IT.....LDY #0; OTHERWISE, S. THE BY
TE . RAM MEM.Y AT CURRENT PC ADDRESS (SA
).....TXA.!...STA (SA),Y;...............
.._.&.DISP LDA DISKFLAG; ARE WE SUP.ED .
. . A DISK OBJECT FILE.{.0.BEQ INCSA; .
., SKIP IT...:.JSR .CHN; . SO, ALERT FI
LE #2 (WRITE FILE . DISK)...D.LDX #2.K.N
.JSR CHKOUT...X.LDA W.K.1; PUT THE BYTE
. BE SENT . DISK IN THE A REGISTER.E.B.J
SR .; . (AFTER LINES 550.570 ABOVE) .S .
DISK FILE #2.M.L.JSR .CHN; . N.MAL I.O
(. . SCREEN ....V.LDX #1; . FROM FILE #1
.....JSR CHKIN.....INCSA CLC;...........
........ RAISE THE PC COUNTER (SA) BY 1
.............LDA #1.....ADC SA.....STA S
A.....LDA #0.....ADC SA.1.&.F.STA SA.1..
.P.RTS.Q.Z.;........................ .O
UT ROUTINES (. SCREEN) ...............PR
NTMESS LDY #0; . A MESSAGE (ERR.S USUALL
Y) . THE SCREEN.....MESSLOOP LDA (TEMP),
Y; THESE MESSAGES ARE DELIMITED BY 0 . A
RE PO.ED."...BEQ MESSD.E; . BY THE VARIA
BLE "TEMP".,...JSR ..R...JSR PTP; AFTER
.ING A CHARACTER . SCREEN, CHECK . SEE .
IT SHOULD.....INY;
ALSO BE .ED . THE .ER... .JMP MESSLOOP
...*.MESSD.E RTS;.......................
........4.PRNTSPACE LDA #32; . A SPACE C
HARACTER...>.JSR ..H.H.JSR PTP; SEE . IT
SHOULD ALSO K . THE .ER.~.R.RTS;.......
........................................
.\.PRNTNUM STX X; . A NUMBER (LOW BYTE I
N X, HIGH BYTE IN A)...F.LDA HXFLAG; . W
E'RE .ING IN HEX, . DECIMAL, ..2.P.BEQ P
RNTNUMD; USE THE H.R. SUBROUTINE. OTHER
WISE, K . PRNTNUMD.:.Z.TXA.G...JSR H.R..
....JSR PTPNU; CHECK . NUMBER SHOULD BE
.ED . .ER AS WELL.....LDX X; . NUMBER IN
X BE.E.O...RTS; .ING . CALLER..........
....................PRNTNUMD LDA #0; . A
DECIMAL NUMBER.(...JSR OUTNUM; BASIC'S
LINE NUMBER .OUT ROUTINE.Q...JSR PTPNU;
SHOULD WE ALSO . IT . .ER.L.J.LDX X; . E
UE IN X BE.E...T.RTS; .ING . THE CALLER
.......................................P
RNTSA LDA HXFLAG; . THE SA (PC, PROGRAM
COUNTER).....BEQ PRNTSAD; . . HEX .OUT,
. USE DECIMAL ROUTINE BELOW.V...LDA SA.1
; OTHERWISE, . LOW . HIGH BYTES OF SA (A
S HEX).R...JSR H.R.; HIGH BYTE 1ST.}...L
DA SA.....JSR H.R......JSR PTPSA; SHOULD
WE ALSO . SA . .ER.L.$.RTS;............
.........PRNTSAD LDX SA; . SA (DECIMAL V
ERSI.)...8.LDA SA.1...B.JSR OUTNUM.-.L.J
SR PTPSA; . . .ER, .O.G.V.RTS;..........
........................................
..`.PRNTCR LDA #13;
. A CARRIAGE ....J.JSR ..S.T.JSR PTP; S
HOULD WE DO IT . THE .ER .O...~.RTS;....
........................................
.....Q...PRNTLINE LDX LINEN;
. A SOURCE CODE LINE NUMBER.A...LD
A LINEN.1.....JSR OUTNUM; BASIC ROUTINE
(LOW BYTE IN X, HIGH IN A).L...JSR PTPLI
; SHOULD WE ALSO . LINE NUMBER . .ER....
.RTS; ..................................
..............<...PRNT. LDA #.LABEL;
. .ENTS OF MAIN ..V.D.STA TEM
P; BUFFER ("L
ABEL")...N.LDA #.LABEL; PO. "TEMP" . THE
BUFFER . ....X.STA TEMP.1.....JSR PRNTM
ESS; USE GENERAL MESSAGE .ING ROUTINE...
..RTS.#...;........................ ER
R. .OUT PREPARATI.S.@...ERRING LDA #7; R
ING BELL.J...JSR ..|...LDA #18; TURN . R
EVERSE .ING . HIGHLIGHT ERR......JSR ...
.(.JSR PRNT.; . .ENTS OF MAIN . BUFFER.J
.2.LDA #13; . A CARRIAGE ..T.<.JSR ....F
.RTS...P.;..............................
....... .OUT (. .ER).>.Z.;(PTP .S A .GLE
CHARACTER . THE .ER)..K.D.PTP LDX PASS;
. PASS 1, DO NO .ING . .ER.X.N.BNE PTP1
...X.RTS.....PTP1 LDX .FLAG; . .FLAG IS
DOWN, DO .HING, . . CALLER.G...BNE MPTP.
Y...RTS;............ .MPTP STA A; . .ENT
S OF ACCUMULA.R.....JSR .CHN; ALERT .ER.
"...LDX #4.1...JSR CHKOUT.F.H.LDA A; REC
OVER A.Y.R.JSR .; . . .ER.S...JSR .CHN;
. N.MAL I.O.~...LDX #1.....JSR CHKIN....
.RETT LDA A; RECOVER A.....RTS; . . CALL
ER.....;.................... NUMBERS .
.ER.....PTPNU LDX PASS; SAME .IC AS LIN
ES 1350. ABOVE.$.".BNE PTPN1.,.,.RTS.@.6
.PTPN1 LDX .FLAG.N.@.BNE MPTPN.V.J.RTS.I
.T.MPTPN JSR .CHN.T.^.LDX #4...H.JSR CHK
OUT...R.LDA HXFLAG; HEX . DECIMAL MODE..
.|.BEQ MPTPND.....LDA X.L...JSR H.R.....
.JMP FINPTP.....MPTPND LDA #0.....LDX X.
....JSR OUTNUM...B.FINPTP JSR .CHN.%.L.L
DX #1.3.V.JSR CHKIN.;...RTS.]...;.......
........... SA . .ER.....PTPSA LDX PASS
; SAME .IC AS LINES 1350. ABOVE.....BNE
PTPS1.....RTS.....PTPS1 LDX .FLAG.H...BN
E MPTPSA.P.&.RTS...0.MPTPSA JSR .CHN...:
.LDX #4...D.JSR CHKOUT.!.N.LDX HXFLAG; H
EX . DECIMAL .OUT.1.X.BEQ MPTPSAD.>.B.LD
A SA.1.K.L.JSR H.R..V.V.LDA SA.C...JSR H
.R..T...JMP FINPTPSA.....MPTPSAD LDA SA.
1.....LDX SA.....JSR OUTNUM.....FINPTPSA
JSR .CHN.D...LDX #1.R.F.JSR CHKIN.Z.P.R
TS...Z.;.................. LINE NUMBER .
.ER.6...PTPLI LDX PASS; SAME .IC AS LIN
ES 1350. ABOVE.D...BNE PTPL1.L...RTS.`..
.PTPL1 LDX .FLAG.N...BNE MPTPL.V...RTS..
. .MPTPL JSR .CHN...*.LDX #4...4.JSR CHK
OUT...>.LDA LINEN.1.A.H.LDX LINEN.P.R.JS
R OUTNUM...\.JSR .CHN...F.LDX #1...P.JSR
CHKIN...Z.RTS.7...;....................
.............. HEX NUMBER .OUT.{...; .
THE NUMBER IN THE ACCUMULA.R AS A HEX DI
GIT (AS FII CHARS.).....H.R. PHA; S.RE N
UMBER.X.... #$0F; CLEAR HIGH BITS (10101
111 BECOMES 00001111, . EXAMPLE).....TAY
; NOW WE KNOW WHICH .ITI. IN THE STRING
OF HEX NUMBERS ("HEXA").C...LDA HEXA,Y;
THIS NUMBER IS. SO PULL IT OUT AS AN FI
I CHARACTER.....; (HEXA LOOKS LIKE THIS:
"0123456789ABCDEF")...J.TAX; . LOW.BITS
EUE .O X...T.PLA; PULL OUT THE .IGINAL
NUMBER, BUT THIS TIME.0 ..LSR;SH.T RIGHT
4 TIMES (MOVING THE 4 HIGH BITS .O THE
4 LOW BITS AREA).` ..LSR; (10101111 BECO
MES 00001010, . EXAMPLE).H ..LSR.P ..LSR
.. ..TAY; AGAIN, PUT .ITI. OF THIS EUE .
O THE Y INDEX.. ..LDA HEXA,Y; PULL OUT T
HE RIGHT FII CHARACTER FROM "HEXA" STRIN
G.*!..JSR .; . HIGH EUE (FIRST) (A HOLDS
HIGH EUE AFTER LINE 2280).T!$.TXA; (X H
ELD LOW EUE AFTER LINE 2210).I!..JSR .;
. LOW EUE.}!8.RTS; . . CALLER..!B..FILE
PSEUDO...
> CLICK IMAGE PREVIEW FOR FULL MODAL