DC.SOURCE
FILE INFORMATION
FILENAME(S): DC.SOURCE
FILE TYPE(S): SEQ
FILE SIZE: 7.7K
FIRST SEEN: 2025-10-19 22:48:32
APPEARS ON: 1 disk(s)
FILE HASH
eb0e3bc28634ed38b1f25129c3084386cd9bcb6c6dc763d8b81d87be0dbed718
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCHIVER | DC.SOURCE | SEQ | Radd Maxx | 15 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 3B 44 43 2E 53 4F 55 52 43 45 0D 20 2E 4F 50 | ;DC.SOURCE. .OP| 00000010: 54 20 45 52 52 2C 4E 4F 47 2C 4E 4F 4C 0D 20 3B |T ERR,NOG,NOL. ;| 00000020: 44 45 43 4F 44 45 52 0D 20 3B 42 59 20 50 2E 4A |DECODER. ;BY P.J| 00000030: 2E 20 4D 59 45 52 53 0D 20 3B 0D 20 2E 4C 49 42 |. MYERS. ;. .LIB| 00000040: 20 4B 45 52 4E 41 4C 0D 20 3B 0D 20 3B 4D 45 4D | KERNAL. ;. ;MEM| 00000050: 4F 52 59 20 41 52 45 41 27 53 0D 20 3B 0D 20 53 |ORY AREA'S. ;. S| 00000060: 54 41 52 54 20 3D 24 46 42 20 20 20 20 3B 53 54 |TART =$FB ;ST| 00000070: 41 52 54 20 44 45 43 4F 44 45 0D 20 45 4E 44 20 |ART DECODE. END | 00000080: 20 20 3D 24 46 44 20 20 20 20 3B 45 4E 44 20 44 | =$FD ;END D| 00000090: 45 43 4F 44 45 0D 20 57 4F 52 4B 20 20 3D 24 32 |ECODE. WORK =$2| 000000A0: 32 20 20 20 20 3B 57 4F 52 4B 20 41 52 45 41 0D |2 ;WORK AREA.| 000000B0: 20 54 45 4D 50 20 20 3D 24 32 34 20 20 20 20 3B | TEMP =$24 ;| 000000C0: 54 45 4D 50 20 41 52 45 41 0D 20 50 52 49 4E 54 |TEMP AREA. PRINT| 000000D0: 20 3D 24 32 36 20 20 20 20 3B 50 52 49 4E 54 20 | =$26 ;PRINT | 000000E0: 53 55 42 0D 20 43 4F 55 4E 54 20 3D 24 30 31 30 |SUB. COUNT =$010| 000000F0: 30 20 20 3B 53 50 41 43 45 20 43 4F 55 4E 54 45 |0 ;SPACE COUNTE| 00000100: 52 0D 20 49 4E 53 54 20 20 3D 24 30 31 30 31 20 |R. INST =$0101 | 00000110: 20 3B 41 4E 44 20 23 24 31 46 20 49 4E 53 54 52 | ;AND #$1F INSTR| 00000120: 55 43 54 49 4F 4E 20 28 49 4E 44 49 52 3A 20 30 |UCTION (INDIR: 0| 00000130: 31 3D 58 2C 31 31 3D 59 29 20 28 42 52 41 4E 43 |1=X,11=Y) (BRANC| 00000140: 48 3A 20 31 30 3D 42 58 58 29 0D 20 42 59 54 45 |H: 10=BXX). BYTE| 00000150: 53 20 3D 24 30 31 30 32 20 20 3B 23 20 4F 46 20 |S =$0102 ;# OF | 00000160: 42 59 54 45 53 20 49 4E 53 54 0D 20 48 4F 4C 44 |BYTES INST. HOLD| 00000170: 20 20 3D 24 30 31 30 33 20 20 3B 53 43 52 41 54 | =$0103 ;SCRAT| 00000180: 43 48 20 4D 45 4D 4F 52 59 0D 20 44 41 54 41 20 |CH MEMORY. DATA | 00000190: 20 3D 24 30 32 30 30 20 20 3B 49 4E 50 55 54 20 | =$0200 ;INPUT | 000001A0: 42 55 46 46 45 52 0D 20 3B 0D 20 2A 3D 24 43 30 |BUFFER. ;. *=$C0| 000001B0: 30 30 20 3B 53 54 41 52 54 20 4F 46 20 4C 4F 41 |00 ;START OF LOA| 000001C0: 44 45 52 0D 20 4A 4D 50 20 53 45 54 55 50 0D 20 |DER. JMP SETUP. | 000001D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 |; 0 | 000001E0: 20 31 20 20 20 32 20 20 20 33 20 20 20 34 20 20 | 1 2 3 4 | 000001F0: 20 35 20 20 20 36 20 20 20 37 0D 20 3B 20 20 20 | 5 6 7. ; | 00000200: 20 20 20 20 20 20 20 20 20 38 20 20 20 39 20 20 | 8 9 | 00000210: 20 41 20 20 20 42 20 20 20 43 20 20 20 44 20 20 | A B C D | 00000220: 20 45 20 20 20 46 0D 54 41 42 4C 45 31 20 2E 42 | E F.TABLE1 .B| 00000230: 59 54 45 20 27 42 52 4B 20 4F 52 41 20 3F 3F 3F |YTE 'BRK ORA ???| 00000240: 20 3F 3F 3F 20 3F 3F 3F 20 4F 52 41 20 41 53 4C | ??? ??? ORA ASL| 00000250: 20 53 4C 4F 52 27 0D 20 20 20 20 20 20 20 2E 42 | SLOR'. .B| 00000260: 59 54 45 20 27 50 48 50 20 4F 52 41 20 41 53 4C |YTE 'PHP ORA ASL| 00000270: 20 41 4E 44 20 3F 3F 3F 20 4F 52 41 20 41 53 4C | AND ??? ORA ASL| 00000280: 20 53 4C 4F 52 27 0D 20 20 20 20 41 31 20 2E 42 | SLOR'. A1 .B| 00000290: 59 54 45 20 27 42 50 4C 20 4F 52 41 20 3F 3F 3F |YTE 'BPL ORA ???| 000002A0: 20 3F 3F 3F 20 3F 3F 3F 20 4F 52 41 20 41 53 4C | ??? ??? ORA ASL| 000002B0: 20 53 4C 4F 52 27 0D 20 20 20 20 20 20 20 2E 42 | SLOR'. .B| 000002C0: 59 54 45 20 27 43 4C 43 20 4F 52 41 20 3F 3F 3F |YTE 'CLC ORA ???| 000002D0: 20 52 4C 4F 20 3F 3F 3F 20 4F 52 41 20 41 53 4C | RLO ??? ORA ASL| 000002E0: 20 53 4C 4F 52 27 0D 20 20 20 20 41 32 20 2E 42 | SLOR'. A2 .B| 000002F0: 59 54 45 20 27 4A 53 52 20 41 4E 44 20 3F 3F 3F |YTE 'JSR AND ???| 00000300: 20 3F 3F 3F 20 42 49 54 20 41 4E 44 20 52 4F 4C | ??? BIT AND ROL| 00000310: 20 52 4C 41 4E 27 0D 20 20 20 20 20 20 20 2E 42 | RLAN'. .B| 00000320: 59 54 45 20 27 50 4C 50 20 41 4E 44 20 52 4F 4C |YTE 'PLP AND ROL| 00000330: 20 41 4E 44 20 42 49 54 20 41 4E 44 20 52 4F 4C | AND BIT AND ROL| 00000340: 20 52 4C 41 4E 27 0D 20 20 20 20 41 33 20 2E 42 | RLAN'. A3 .B| 00000350: 59 54 45 20 27 42 4D 49 20 41 4E 44 20 3F 3F 3F |YTE 'BMI AND ???| 00000360: 20 3F 3F 3F 20 3F 3F 3F 20 41 4E 44 20 52 4F 4C | ??? ??? AND ROL| 00000370: 20 52 4C 41 4E 27 0D 20 20 20 20 20 20 20 2E 42 | RLAN'. .B| 00000380: 59 54 45 20 27 53 45 43 20 41 4E 44 20 3F 3F 3F |YTE 'SEC AND ???| 00000390: 20 52 4C 41 20 3F 3F 3F 20 41 4E 44 20 52 4F 4C | RLA ??? AND ROL| 000003A0: 20 52 4C 41 4E 27 0D 20 20 20 20 41 34 20 2E 42 | RLAN'. A4 .B| 000003B0: 59 54 45 20 27 52 54 49 20 45 4F 52 20 3F 3F 3F |YTE 'RTI EOR ???| 000003C0: 20 3F 3F 3F 20 3F 3F 3F 20 45 4F 52 20 4C 53 52 | ??? ??? EOR LSR| 000003D0: 20 53 52 45 4F 27 0D 20 20 20 20 20 20 20 2E 42 | SREO'. .B| 000003E0: 59 54 45 20 27 50 48 41 20 45 4F 52 20 4C 53 52 |YTE 'PHA EOR LSR| 000003F0: 20 41 4E 52 20 4A 4D 50 20 45 4F 52 20 4C 53 52 | ANR JMP EOR LSR| 00000400: 20 53 52 45 4F 27 0D 20 20 20 20 41 35 20 2E 42 | SREO'. A5 .B| 00000410: 59 54 45 20 27 42 56 43 20 45 4F 52 20 3F 3F 3F |YTE 'BVC EOR ???| 00000420: 20 3F 3F 3F 20 3F 3F 3F 20 45 4F 52 20 4C 53 52 | ??? ??? EOR LSR| 00000430: 20 53 52 45 4F 27 0D 20 20 20 20 20 20 20 2E 42 | SREO'. .B| 00000440: 59 54 45 20 27 43 4C 49 20 45 4F 52 20 3F 3F 3F |YTE 'CLI EOR ???| 00000450: 20 52 58 52 20 3F 3F 3F 20 45 4F 52 20 4C 53 52 | RXR ??? EOR LSR| 00000460: 20 53 52 45 4F 27 0D 20 20 20 20 41 36 20 2E 42 | SREO'. A6 .B| 00000470: 59 54 45 20 27 52 54 53 20 41 44 43 20 3F 3F 3F |YTE 'RTS ADC ???| 00000480: 20 3F 3F 3F 20 3F 3F 3F 20 41 44 43 20 52 4F 52 | ??? ??? ADC ROR| 00000490: 20 52 52 41 44 27 0D 20 20 20 20 20 20 20 2E 42 | RRAD'. .B| 000004A0: 59 54 45 20 27 50 4C 41 20 41 44 43 20 52 4F 52 |YTE 'PLA ADC ROR| 000004B0: 20 41 44 52 20 4A 4D 50 20 41 44 43 20 52 4F 52 | ADR JMP ADC ROR| 000004C0: 20 52 52 41 44 27 0D 20 20 20 20 41 37 20 2E 42 | RRAD'. A7 .B| 000004D0: 59 54 45 20 27 42 56 53 20 41 44 43 20 3F 3F 3F |YTE 'BVS ADC ???| 000004E0: 20 3F 3F 3F 20 3F 3F 3F 20 41 44 43 20 52 4F 52 | ??? ??? ADC ROR| 000004F0: 20 52 52 41 44 27 0D 20 20 20 20 20 20 20 2E 42 | RRAD'. .B| 00000500: 59 54 45 20 27 53 45 49 20 41 44 43 20 52 4F 4C |YTE 'SEI ADC ROL| 00000510: 52 52 41 44 20 3F 3F 3F 20 41 44 43 20 52 4F 52 |RRAD ??? ADC ROR| 00000520: 20 52 52 41 44 27 0D 20 20 20 20 41 38 20 2E 42 | RRAD'. A8 .B| 00000530: 59 54 45 20 27 53 4B 50 32 53 54 41 20 53 4B 50 |YTE 'SKP2STA SKP| 00000540: 32 53 4B 50 32 53 54 59 20 53 54 41 20 53 54 58 |2SKP2STY STA STX| 00000550: 20 41 4E 44 58 27 0D 20 20 20 20 20 20 20 2E 42 | ANDX'. .B| 00000560: 59 54 45 20 27 44 45 59 20 53 4B 50 20 54 58 41 |YTE 'DEY SKP TXA| 00000570: 20 41 4E 41 58 53 54 59 20 53 54 41 20 53 54 58 | ANAXSTY STA STX| 00000580: 20 41 4E 44 58 27 0D 20 20 20 20 41 39 20 2E 42 | ANDX'. A9 .B| 00000590: 59 54 45 20 27 42 43 43 20 53 54 41 20 3F 3F 3F |YTE 'BCC STA ???| 000005A0: 20 3F 3F 3F 20 53 54 59 20 53 54 41 20 53 54 58 | ??? STY STA STX| 000005B0: 20 41 4E 44 58 27 0D 20 20 20 20 20 20 20 2E 42 | ANDX'. .B| 000005C0: 59 54 45 20 27 54 59 41 20 53 54 41 20 54 58 53 |YTE 'TYA STA TXS| 000005D0: 20 53 49 53 4D 3F 3F 3F 20 53 54 41 20 54 53 54 | SISM??? STA TST| 000005E0: 41 54 53 54 58 27 0D 20 20 20 20 41 41 20 2E 42 |ATSTX'. AA .B| 000005F0: 59 54 45 20 27 4C 44 59 20 4C 44 41 20 4C 44 58 |YTE 'LDY LDA LDX| 00000600: 20 3F 3F 3F 20 4C 44 59 20 4C 44 41 20 4C 44 58 | ??? LDY LDA LDX| 00000610: 20 4C 44 41 58 27 0D 20 20 20 20 20 20 20 2E 42 | LDAX'. .B| 00000620: 59 54 45 20 27 54 41 59 20 4C 44 41 20 54 41 58 |YTE 'TAY LDA TAX| 00000630: 20 4C 44 41 58 4C 44 59 20 4C 44 41 20 4C 44 58 | LDAXLDY LDA LDX| 00000640: 20 4C 44 41 58 27 0D 20 20 20 20 41 42 20 2E 42 | LDAX'. AB .B| 00000650: 59 54 45 20 27 42 43 53 20 4C 44 41 20 3F 3F 3F |YTE 'BCS LDA ???| 00000660: 20 3F 3F 3F 20 4C 44 59 20 4C 44 41 20 4C 44 58 | ??? LDY LDA LDX| 00000670: 20 4C 44 41 58 27 0D 20 20 20 20 20 20 20 2E 42 | LDAX'. .B| 00000680: 59 54 45 20 27 43 4C 56 20 4C 44 41 20 54 53 58 |YTE 'CLV LDA TSX| 00000690: 20 41 4E 53 50 4C 44 59 20 4C 44 41 20 4C 44 58 | ANSPLDY LDA LDX| 000006A0: 20 4C 44 41 58 27 0D 20 20 20 20 41 43 20 2E 42 | LDAX'. AC .B| 000006B0: 59 54 45 20 27 43 50 59 20 43 4D 50 20 3F 3F 3F |YTE 'CPY CMP ???| 000006C0: 20 3F 3F 3F 20 43 50 59 20 43 4D 50 20 44 45 43 | ??? CPY CMP DEC| 000006D0: 20 44 43 4D 50 27 0D 20 20 20 20 20 20 20 2E 42 | DCMP'. .B| 000006E0: 59 54 45 20 27 49 4E 59 20 43 4D 50 20 44 45 58 |YTE 'INY CMP DEX| 000006F0: 20 53 55 42 58 43 50 59 20 43 4D 50 20 44 45 43 | SUBXCPY CMP DEC| 00000700: 20 44 43 4D 50 27 0D 20 20 20 20 41 44 20 2E 42 | DCMP'. AD .B| 00000710: 59 54 45 20 27 42 4E 45 20 43 4D 50 20 3F 3F 3F |YTE 'BNE CMP ???| 00000720: 20 3F 3F 3F 20 3F 3F 3F 20 43 4D 50 20 44 45 43 | ??? ??? CMP DEC| 00000730: 20 44 43 4D 50 27 0D 20 20 20 20 20 20 20 2E 42 | DCMP'. .B| 00000740: 59 54 45 20 27 43 4C 44 20 43 4D 50 20 3F 3F 3F |YTE 'CLD CMP ???| 00000750: 20 43 4D 41 20 3F 3F 3F 20 43 4D 50 20 44 45 43 | CMA ??? CMP DEC| 00000760: 20 44 43 4D 50 27 0D 20 20 20 20 41 45 20 2E 42 | DCMP'. AE .B| 00000770: 59 54 45 20 27 43 50 58 20 53 42 43 20 3F 3F 3F |YTE 'CPX SBC ???| 00000780: 20 3F 3F 3F 20 43 50 58 20 53 42 43 20 49 4E 43 | ??? CPX SBC INC| 00000790: 20 49 53 42 43 27 0D 20 20 20 20 20 20 20 2E 42 | ISBC'. .B| 000007A0: 59 54 45 20 27 49 4E 58 20 53 42 43 20 4E 4F 50 |YTE 'INX SBC NOP| 000007B0: 20 53 55 42 20 43 50 58 20 53 42 43 20 49 4E 43 | SUB CPX SBC INC| 000007C0: 20 49 53 42 43 27 0D 20 20 20 20 41 46 20 2E 42 | ISBC'. AF .B| 000007D0: 59 54 45 20 27 42 45 51 20 53 42 43 20 3F 3F 3F |YTE 'BEQ SBC ???| 000007E0: 20 3F 3F 3F 20 3F 3F 3F 20 53 42 43 20 49 4E 43 | ??? ??? SBC INC| 000007F0: 20 49 53 42 43 27 0D 20 20 20 20 20 20 20 2E 42 | ISBC'. .B| 00000800: 59 54 45 20 27 53 45 44 20 53 42 43 20 3F 3F 3F |YTE 'SED SBC ???| 00000810: 20 53 42 4D 20 3F 3F 3F 20 53 42 43 20 49 4E 43 | SBM ??? SBC INC| 00000820: 20 49 53 42 43 27 0D 20 3B 20 20 20 20 20 20 20 | ISBC'. ; | 00000830: 20 20 20 20 20 30 31 32 33 34 35 36 37 38 39 41 | 0123456789A| 00000840: 42 43 44 45 46 0D 54 41 42 4C 45 32 20 2E 42 59 |BCDEF.TABLE2 .BY| 00000850: 54 45 20 27 20 58 20 20 20 20 20 20 20 23 20 23 |TE ' X # #| 00000860: 20 20 20 20 27 0D 20 20 20 20 42 31 20 2E 42 59 | '. B1 .BY| 00000870: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 00000880: 20 58 58 58 27 0D 20 20 20 20 42 32 20 2E 42 59 | XXX'. B2 .BY| 00000890: 54 45 20 27 20 58 20 20 20 20 20 20 20 23 20 23 |TE ' X # #| 000008A0: 20 20 20 20 27 0D 20 20 20 20 42 33 20 2E 42 59 | '. B3 .BY| 000008B0: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 000008C0: 20 58 58 58 27 0D 20 20 20 20 42 34 20 2E 42 59 | XXX'. B4 .BY| 000008D0: 54 45 20 27 20 58 20 20 20 20 20 20 20 23 20 23 |TE ' X # #| 000008E0: 20 20 20 20 27 0D 20 20 20 20 42 35 20 2E 42 59 | '. B5 .BY| 000008F0: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 00000900: 20 58 58 58 27 0D 20 20 20 20 42 36 20 2E 42 59 | XXX'. B6 .BY| 00000910: 54 45 20 27 20 58 20 20 20 20 20 20 20 23 20 23 |TE ' X # #| 00000920: 20 20 20 20 27 0D 20 20 20 20 42 37 20 2E 42 59 | '. B7 .BY| 00000930: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 00000940: 20 58 58 58 27 0D 20 20 20 20 42 38 20 2E 42 59 | XXX'. B8 .BY| 00000950: 54 45 20 27 20 58 20 20 20 20 20 20 20 20 20 23 |TE ' X #| 00000960: 20 20 20 20 27 0D 20 20 20 20 42 39 20 2E 42 59 | '. B9 .BY| 00000970: 54 45 20 27 20 59 20 20 58 58 59 59 20 59 20 59 |TE ' Y XXYY Y Y| 00000980: 20 58 20 20 27 0D 20 20 20 20 42 41 20 2E 42 59 | X '. BA .BY| 00000990: 54 45 20 27 23 58 23 20 20 20 20 20 20 23 20 23 |TE '#X# # #| 000009A0: 20 20 20 20 27 0D 20 20 20 20 42 42 20 2E 42 59 | '. BB .BY| 000009B0: 54 45 20 27 20 59 20 20 58 58 59 59 20 59 20 59 |TE ' Y XXYY Y Y| 000009C0: 58 58 59 59 27 0D 20 20 20 20 42 43 20 2E 42 59 |XXYY'. BC .BY| 000009D0: 54 45 20 27 23 58 20 20 20 20 20 20 20 23 20 23 |TE '#X # #| 000009E0: 20 20 20 20 27 0D 20 20 20 20 42 44 20 2E 42 59 | '. BD .BY| 000009F0: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 00000A00: 20 58 58 58 27 0D 20 20 20 20 42 45 20 2E 42 59 | XXX'. BE .BY| 00000A10: 54 45 20 27 23 58 20 20 20 20 20 20 20 23 20 20 |TE '#X # | 00000A20: 20 20 20 20 27 0D 20 20 20 20 42 46 20 2E 42 59 | '. BF .BY| 00000A30: 54 45 20 27 20 59 20 20 20 58 58 58 20 59 20 59 |TE ' Y XXX Y Y| 00000A40: 20 58 58 58 27 0D 20 3B 20 20 20 20 20 20 20 20 | XXX'. ; | 00000A50: 20 20 20 30 20 31 20 32 20 33 20 34 20 35 20 36 | 0 1 2 3 4 5 6| 00000A60: 20 37 20 38 20 39 20 41 20 42 20 43 20 44 20 45 | 7 8 9 A B C D E| 00000A70: 20 46 0D 54 41 42 4C 45 33 20 2E 42 59 54 45 20 | F.TABLE3 .BYTE | 00000A80: 30 2C 31 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C |0,1,0,0,0,1,1,1,| 00000A90: 30 2C 31 2C 30 2C 31 2C 30 2C 32 2C 32 2C 32 0D |0,1,0,1,0,2,2,2.| 00000AA0: 20 20 20 20 43 31 20 2E 42 59 54 45 20 31 2C 31 | C1 .BYTE 1,1| 00000AB0: 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 2C 32 |,0,0,0,1,1,1,0,2| 00000AC0: 2C 30 2C 32 2C 30 2C 32 2C 32 2C 32 0D 20 20 20 |,0,2,0,2,2,2. | 00000AD0: 20 43 32 20 2E 42 59 54 45 20 32 2C 31 2C 30 2C | C2 .BYTE 2,1,0,| 00000AE0: 30 2C 31 2C 31 2C 31 2C 32 2C 30 2C 31 2C 30 2C |0,1,1,1,2,0,1,0,| 00000AF0: 31 2C 32 2C 32 2C 32 2C 32 0D 20 20 20 20 43 33 |1,2,2,2,2. C3| 00000B00: 20 2E 42 59 54 45 20 31 2C 31 2C 30 2C 30 2C 30 | .BYTE 1,1,0,0,0| 00000B10: 2C 31 2C 31 2C 31 2C 30 2C 32 2C 30 2C 32 2C 30 |,1,1,1,0,2,0,2,0| 00000B20: 2C 32 2C 32 2C 32 0D 20 20 20 20 43 34 20 2E 42 |,2,2,2. C4 .B| 00000B30: 59 54 45 20 30 2C 31 2C 30 2C 30 2C 30 2C 31 2C |YTE 0,1,0,0,0,1,| 00000B40: 31 2C 31 2C 30 2C 31 2C 30 2C 31 2C 32 2C 32 2C |1,1,0,1,0,1,2,2,| 00000B50: 32 2C 32 0D 20 20 20 20 43 35 20 2E 42 59 54 45 |2,2. C5 .BYTE| 00000B60: 20 31 2C 31 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 | 1,1,0,0,0,1,1,1| 00000B70: 2C 30 2C 32 2C 30 2C 32 2C 30 2C 32 2C 32 2C 32 |,0,2,0,2,0,2,2,2| 00000B80: 0D 20 20 20 20 43 36 20 2E 42 59 54 45 20 30 2C |. C6 .BYTE 0,| 00000B90: 31 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 2C |1,0,0,0,1,1,1,0,| 00000BA0: 31 2C 30 2C 31 2C 32 2C 32 2C 32 2C 32 0D 20 20 |1,0,1,2,2,2,2. | 00000BB0: 20 20 43 37 20 2E 42 59 54 45 20 31 2C 31 2C 30 | C7 .BYTE 1,1,0| 00000BC0: 2C 30 2C 30 2C 31 2C 31 2C 31 2C 30 2C 32 2C 30 |,0,0,1,1,1,0,2,0| 00000BD0: 2C 32 2C 30 2C 32 2C 32 2C 32 0D 20 20 20 20 43 |,2,0,2,2,2. C| 00000BE0: 38 20 2E 42 59 54 45 20 31 2C 31 2C 31 2C 31 2C |8 .BYTE 1,1,1,1,| 00000BF0: 31 2C 31 2C 31 2C 31 2C 30 2C 31 2C 30 2C 31 2C |1,1,1,1,0,1,0,1,| 00000C00: 32 2C 32 2C 32 2C 32 0D 20 20 20 20 43 39 20 2E |2,2,2,2. C9 .| 00000C10: 42 59 54 45 20 31 2C 31 2C 30 2C 30 2C 31 2C 31 |BYTE 1,1,0,0,1,1| 00000C20: 2C 31 2C 31 2C 30 2C 32 2C 30 2C 32 2C 30 2C 32 |,1,1,0,2,0,2,0,2| 00000C30: 2C 32 2C 32 0D 20 20 20 20 43 41 20 2E 42 59 54 |,2,2. CA .BYT| 00000C40: 45 20 31 2C 31 2C 31 2C 30 2C 31 2C 31 2C 31 2C |E 1,1,1,0,1,1,1,| 00000C50: 31 2C 30 2C 31 2C 30 2C 31 2C 32 2C 32 2C 32 2C |1,0,1,0,1,2,2,2,| 00000C60: 32 0D 20 20 20 20 43 42 20 2E 42 59 54 45 20 31 |2. CB .BYTE 1| 00000C70: 2C 31 2C 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 30 |,1,0,0,1,1,1,1,0| 00000C80: 2C 32 2C 30 2C 32 2C 32 2C 32 2C 32 2C 32 0D 20 |,2,0,2,2,2,2,2. | 00000C90: 20 20 20 43 43 20 2E 42 59 54 45 20 31 2C 31 2C | CC .BYTE 1,1,| 00000CA0: 30 2C 30 2C 31 2C 31 2C 31 2C 31 2C 30 2C 31 2C |0,0,1,1,1,1,0,1,| 00000CB0: 30 2C 31 2C 32 2C 32 2C 32 2C 32 0D 20 20 20 20 |0,1,2,2,2,2. | 00000CC0: 43 44 20 2E 42 59 54 45 20 31 2C 31 2C 30 2C 30 |CD .BYTE 1,1,0,0| 00000CD0: 2C 30 2C 31 2C 31 2C 31 2C 30 2C 32 2C 30 2C 32 |,0,1,1,1,0,2,0,2| 00000CE0: 2C 30 2C 32 2C 32 2C 32 0D 20 20 20 20 43 45 20 |,0,2,2,2. CE | 00000CF0: 2E 42 59 54 45 20 31 2C 31 2C 30 2C 30 2C 31 2C |.BYTE 1,1,0,0,1,| 00000D00: 31 2C 31 2C 32 2C 30 2C 31 2C 30 2C 32 2C 32 2C |1,1,2,0,1,0,2,2,| 00000D10: 32 2C 32 2C 32 0D 20 20 20 20 43 46 20 2E 42 59 |2,2,2. CF .BY| 00000D20: 54 45 20 31 2C 31 2C 30 2C 30 2C 30 2C 31 2C 31 |TE 1,1,0,0,0,1,1| 00000D30: 2C 32 2C 30 2C 32 2C 30 2C 32 2C 30 2C 32 2C 32 |,2,0,2,0,2,0,2,2| 00000D40: 2C 32 0D 48 49 42 59 54 45 20 2E 42 59 54 45 20 |,2.HIBYTE .BYTE | 00000D50: 3E 44 43 4D 44 0D 20 20 20 20 20 20 20 2E 42 59 |>DCMD. .BY| 00000D60: 54 45 20 3E 50 43 4D 44 0D 20 20 20 20 20 20 20 |TE >PCMD. | 00000D70: 2E 42 59 54 45 20 3E 58 43 4D 44 0D 20 20 20 20 |.BYTE >XCMD. | 00000D80: 20 20 20 2E 42 59 54 45 20 3E 41 54 43 4D 44 0D | .BYTE >ATCMD.| 00000D90: 4C 4F 42 59 54 45 20 2E 42 59 54 45 20 3C 44 43 |LOBYTE .BYTE <DC| 00000DA0: 4D 44 2D 31 0D 20 20 20 20 20 20 20 2E 42 59 54 |MD-1. .BYT| 00000DB0: 45 20 3C 50 43 4D 44 2D 31 0D 20 20 20 20 20 20 |E <PCMD-1. | 00000DC0: 20 2E 42 59 54 45 20 3C 58 43 4D 44 2D 31 0D 20 | .BYTE <XCMD-1. | 00000DD0: 20 20 20 20 20 20 2E 42 59 54 45 20 3C 41 54 43 | .BYTE <ATC| 00000DE0: 4D 44 2D 31 0D 52 41 4E 41 53 43 20 2E 42 59 54 |MD-1.RANASC .BYT| 00000DF0: 45 20 27 2E 27 2C 30 0D 43 4F 4D 41 53 43 20 2E |E '.',0.COMASC .| 00000E00: 42 59 54 45 20 27 44 50 58 C0 27 2C 30 0D 53 50 |BYTE 'DPX.',0.SP| 00000E10: 43 20 20 20 20 2E 42 59 54 45 20 27 20 20 20 20 |C .BYTE ' | 00000E20: 20 20 20 20 20 20 20 20 27 0D 53 50 41 43 45 31 | '.SPACE1| 00000E30: 20 2E 42 59 54 45 20 39 2C 36 2C 33 0D 53 50 41 | .BYTE 9,6,3.SPA| 00000E40: 43 45 32 20 2E 42 59 54 45 20 35 2C 32 2C 30 0D |CE2 .BYTE 5,2,0.| 00000E50: 20 3B 42 45 47 49 4E 20 4D 41 49 4E 4C 49 4E 45 | ;BEGIN MAINLINE| 00000E60: 0D 53 45 54 55 50 20 4A 53 52 20 43 4C 45 41 52 |.SETUP JSR CLEAR| 00000E70: 0D 20 4C 44 41 20 23 31 0D 20 53 54 41 20 24 44 |. LDA #1. STA $D| 00000E80: 30 32 30 0D 20 53 54 41 20 24 44 30 32 31 0D 20 |020. STA $D021. | 00000E90: 4C 44 41 20 23 36 0D 20 53 54 41 20 24 30 32 38 |LDA #6. STA $028| 00000EA0: 36 0D 20 53 45 49 0D 20 4C 44 41 20 23 3C 49 4E |6. SEI. LDA #<IN| 00000EB0: 54 45 52 52 0D 20 53 54 41 20 24 30 33 31 34 0D |TERR. STA $0314.| 00000EC0: 20 4C 44 41 20 23 3E 49 4E 54 45 52 52 0D 20 53 | LDA #>INTERR. S| 00000ED0: 54 41 20 24 30 33 31 35 0D 20 43 4C 49 0D 43 4F |TA $0315. CLI.CO| 00000EE0: 4D 41 4E 44 20 4C 44 58 20 23 24 46 46 0D 20 54 |MAND LDX #$FF. T| 00000EF0: 58 53 0D 20 4A 53 52 20 4C 46 43 52 0D 20 4C 44 |XS. JSR LFCR. LD| 00000F00: 41 20 23 3C 52 41 4E 41 53 43 0D 20 4C 44 59 20 |A #<RANASC. LDY | 00000F10: 23 3E 52 41 4E 41 53 43 0D 20 4A 53 52 20 4F 55 |#>RANASC. JSR OU| 00000F20: 54 50 55 54 0D 20 4A 53 52 20 49 4E 50 55 54 0D |TPUT. JSR INPUT.| 00000F30: 20 4A 53 52 20 4C 46 43 52 0D 20 53 54 59 20 54 | JSR LFCR. STY T| 00000F40: 45 4D 50 0D 20 4C 44 58 20 23 30 0D 43 4D 4C 50 |EMP. LDX #0.CMLP| 00000F50: 20 4C 44 41 20 43 4F 4D 41 53 43 2C 58 0D 20 42 | LDA COMASC,X. B| 00000F60: 45 51 20 43 4F 4D 41 4E 44 0D 20 43 4D 50 20 44 |EQ COMAND. CMP D| 00000F70: 41 54 41 0D 20 42 45 51 20 43 4D 4C 50 31 0D 20 |ATA. BEQ CMLP1. | 00000F80: 49 4E 58 0D 20 42 4E 45 20 43 4D 4C 50 0D 20 4A |INX. BNE CMLP. J| 00000F90: 53 52 20 4C 46 43 52 0D 43 4D 4C 50 31 20 4C 44 |SR LFCR.CMLP1 LD| 00000FA0: 41 20 48 49 42 59 54 45 2C 58 0D 20 50 48 41 0D |A HIBYTE,X. PHA.| 00000FB0: 20 4C 44 41 20 4C 4F 42 59 54 45 2C 58 0D 20 50 | LDA LOBYTE,X. P| 00000FC0: 48 41 0D 20 52 54 53 0D 44 43 4D 44 20 4A 53 52 |HA. RTS.DCMD JSR| 00000FD0: 20 56 41 4C 49 44 0D 20 4A 53 52 20 44 45 43 4F | VALID. JSR DECO| 00000FE0: 44 45 0D 20 4A 4D 50 20 43 4F 4D 41 4E 44 0D 50 |DE. JMP COMAND.P| 00000FF0: 43 4D 44 20 4A 53 52 20 56 41 4C 49 44 0D 20 4A |CMD JSR VALID. J| 00001000: 53 52 20 50 52 4E 54 4F 4E 0D 20 4A 53 52 20 44 |SR PRNTON. JSR D| 00001010: 45 43 4F 44 45 0D 20 4A 53 52 20 50 52 4E 54 4F |ECODE. JSR PRNTO| 00001020: 46 0D 20 4A 4D 50 20 43 4F 4D 41 4E 44 0D 58 43 |F. JMP COMAND.XC| 00001030: 4D 44 20 4A 4D 50 20 28 24 41 30 30 32 29 0D 41 |MD JMP ($A002).A| 00001040: 54 43 4D 44 20 4A 4D 50 20 43 4F 4D 41 4E 44 0D |TCMD JMP COMAND.| 00001050: 56 41 4C 49 44 20 43 50 59 20 23 34 0D 20 42 43 |VALID CPY #4. BC| 00001060: 43 20 49 4E 56 41 4C 0D 20 4C 44 59 20 23 30 0D |C INVAL. LDY #0.| 00001070: 20 4A 53 52 20 48 45 58 49 4E 20 20 20 20 3B 47 | JSR HEXIN ;G| 00001080: 45 54 20 48 49 42 59 54 45 0D 20 53 54 41 20 57 |ET HIBYTE. STA W| 00001090: 4F 52 4B 0D 20 4A 53 52 20 48 45 58 49 4E 0D 20 |ORK. JSR HEXIN. | 000010A0: 53 54 41 20 57 4F 52 4B 2B 31 0D 20 4A 53 52 20 |STA WORK+1. JSR | 000010B0: 44 49 47 49 54 0D 20 53 54 41 20 53 54 41 52 54 |DIGIT. STA START| 000010C0: 2B 31 0D 20 4A 53 52 20 48 45 58 49 4E 20 20 20 |+1. JSR HEXIN | 000010D0: 20 3B 47 45 54 20 4C 4F 42 59 54 45 0D 20 53 54 | ;GET LOBYTE. ST| 000010E0: 41 20 57 4F 52 4B 0D 20 4A 53 52 20 48 45 58 49 |A WORK. JSR HEXI| 000010F0: 4E 0D 20 53 54 41 20 57 4F 52 4B 2B 31 0D 20 4A |N. STA WORK+1. J| 00001100: 53 52 20 44 49 47 49 54 0D 20 53 54 41 20 53 54 |SR DIGIT. STA ST| 00001110: 41 52 54 20 20 20 20 3B 47 45 54 20 48 49 42 59 |ART ;GET HIBY| 00001120: 54 45 0D 20 4A 53 52 20 48 45 58 49 4E 0D 20 53 |TE. JSR HEXIN. S| 00001130: 54 41 20 57 4F 52 4B 0D 20 4A 53 52 20 48 45 58 |TA WORK. JSR HEX| 00001140: 49 4E 0D 20 53 54 41 20 57 4F 52 4B 2B 31 0D 20 |IN. STA WORK+1. | 00001150: 4A 53 52 20 44 49 47 49 54 0D 20 53 54 41 20 45 |JSR DIGIT. STA E| 00001160: 4E 44 2B 31 20 20 20 20 3B 47 45 54 20 4C 4F 42 |ND+1 ;GET LOB| 00001170: 59 54 45 0D 20 4A 53 52 20 48 45 58 49 4E 0D 20 |YTE. JSR HEXIN. | 00001180: 53 54 41 20 57 4F 52 4B 0D 20 4A 53 52 20 48 45 |STA WORK. JSR HE| 00001190: 58 49 4E 0D 20 53 54 41 20 57 4F 52 4B 2B 31 0D |XIN. STA WORK+1.| 000011A0: 20 4A 53 52 20 44 49 47 49 54 0D 20 53 54 41 20 | JSR DIGIT. STA | 000011B0: 45 4E 44 0D 20 52 54 53 0D 49 4E 56 41 4C 20 4A |END. RTS.INVAL J| 000011C0: 4D 50 20 43 4F 4D 41 4E 44 0D 48 45 58 49 4E 20 |MP COMAND.HEXIN | 000011D0: 43 50 59 20 54 45 4D 50 0D 20 42 43 53 20 49 4E |CPY TEMP. BCS IN| 000011E0: 56 41 4C 0D 20 49 4E 59 0D 20 4C 44 41 20 44 41 |VAL. INY. LDA DA| 000011F0: 54 41 2C 59 0D 20 43 4D 50 20 23 24 32 30 0D 20 |TA,Y. CMP #$20. | 00001200: 42 45 51 20 48 45 58 49 4E 0D 20 43 4D 50 20 23 |BEQ HEXIN. CMP #| 00001210: 27 2C 0D 20 42 45 51 20 48 45 58 49 4E 0D 20 43 |',. BEQ HEXIN. C| 00001220: 4D 50 20 23 24 33 30 0D 20 42 43 43 20 49 4E 56 |MP #$30. BCC INV| 00001230: 41 4C 0D 20 43 4D 50 20 23 24 33 41 0D 20 42 43 |AL. CMP #$3A. BC| 00001240: 53 20 41 4C 50 48 41 0D 20 53 42 43 20 23 24 32 |S ALPHA. SBC #$2| 00001250: 46 0D 41 4C 50 48 41 20 43 4D 50 20 23 24 34 31 |F.ALPHA CMP #$41| 00001260: 0D 20 42 43 43 20 4E 55 4D 42 45 52 0D 20 53 42 |. BCC NUMBER. SB| 00001270: 43 20 23 24 33 37 0D 4E 55 4D 42 45 52 20 43 4D |C #$37.NUMBER CM| 00001280: 50 20 23 24 31 30 0D 20 42 43 53 20 49 4E 56 41 |P #$10. BCS INVA| 00001290: 4C 0D 20 52 54 53 0D 44 49 47 49 54 20 4C 44 41 |L. RTS.DIGIT LDA| 000012A0: 20 57 4F 52 4B 0D 20 41 53 4C 20 41 0D 20 41 53 | WORK. ASL A. AS| 000012B0: 4C 20 41 0D 20 41 53 4C 20 41 0D 20 41 53 4C 20 |L A. ASL A. ASL | 000012C0: 41 0D 20 53 54 41 20 57 4F 52 4B 0D 20 4C 44 41 |A. STA WORK. LDA| 000012D0: 20 57 4F 52 4B 2B 31 0D 20 4F 52 41 20 57 4F 52 | WORK+1. ORA WOR| 000012E0: 4B 0D 20 52 54 53 0D 44 45 43 4F 44 45 20 4C 44 |K. RTS.DECODE LD| 000012F0: 59 20 23 30 0D 20 4C 44 41 20 28 53 54 41 52 54 |Y #0. LDA (START| 00001300: 29 2C 59 0D 20 54 41 58 0D 20 41 4E 44 20 23 24 |),Y. TAX. AND #$| 00001310: 31 46 0D 20 53 54 41 20 49 4E 53 54 0D 20 4C 44 |1F. STA INST. LD| 00001320: 41 20 23 3C 54 41 42 4C 45 31 0D 20 53 54 41 20 |A #<TABLE1. STA | 00001330: 57 4F 52 4B 0D 20 4C 44 41 20 23 3E 54 41 42 4C |WORK. LDA #>TABL| 00001340: 45 31 0D 20 53 54 41 20 57 4F 52 4B 2B 31 0D 20 |E1. STA WORK+1. | 00001350: 4C 44 41 20 23 30 0D 20 53 54 41 20 54 45 4D 50 |LDA #0. STA TEMP| 00001360: 2B 31 0D 20 53 54 58 20 54 45 4D 50 0D 20 41 53 |+1. STX TEMP. AS| 00001370: 4C 20 54 45 4D 50 20 20 20 20 20 20 3B 20 54 49 |L TEMP ; TI| 00001380: 4D 45 53 20 32 0D 20 52 4F 4C 20 54 45 4D 50 2B |MES 2. ROL TEMP+| 00001390: 31 0D 20 41 53 4C 20 54 45 4D 50 20 20 20 20 20 |1. ASL TEMP | 000013A0: 20 3B 20 54 49 4D 45 53 20 34 0D 20 52 4F 4C 20 | ; TIMES 4. ROL | 000013B0: 54 45 4D 50 2B 31 0D 20 43 4C 43 0D 20 4C 44 41 |TEMP+1. CLC. LDA| 000013C0: 20 54 45 4D 50 20 20 20 20 20 20 3B 54 41 42 4C | TEMP ;TABL| 000013D0: 45 31 0D 20 41 44 43 20 57 4F 52 4B 0D 20 53 54 |E1. ADC WORK. ST| 000013E0: 41 20 57 4F 52 4B 0D 20 4C 44 41 20 54 45 4D 50 |A WORK. LDA TEMP| 000013F0: 2B 31 0D 20 41 44 43 20 57 4F 52 4B 2B 31 0D 20 |+1. ADC WORK+1. | 00001400: 53 54 41 20 57 4F 52 4B 2B 31 0D 20 4C 44 41 20 |STA WORK+1. LDA | 00001410: 53 54 41 52 54 2B 31 0D 20 4A 53 52 20 48 45 58 |START+1. JSR HEX| 00001420: 4F 55 54 20 20 20 20 3B 48 49 42 59 54 45 20 41 |OUT ;HIBYTE A| 00001430: 44 44 52 0D 20 4C 44 41 20 53 54 41 52 54 0D 20 |DDR. LDA START. | 00001440: 4A 53 52 20 48 45 58 4F 55 54 20 20 20 20 3B 4C |JSR HEXOUT ;L| 00001450: 4F 42 59 54 45 20 41 44 44 52 0D 20 4A 53 52 20 |OBYTE ADDR. JSR | 00001460: 53 50 41 43 45 0D 20 4C 44 41 20 54 41 42 4C 45 |SPACE. LDA TABLE| 00001470: 33 2C 58 20 20 3B 23 20 4F 46 20 42 59 54 45 53 |3,X ;# OF BYTES| 00001480: 0D 20 53 54 41 20 42 59 54 45 53 0D 20 49 4E 43 |. STA BYTES. INC| 00001490: 20 42 59 54 45 53 0D 20 54 41 59 0D 20 4C 44 41 | BYTES. TAY. LDA| 000014A0: 20 53 50 41 43 45 32 2C 59 0D 20 53 54 41 20 43 | SPACE2,Y. STA C| 000014B0: 4F 55 4E 54 0D 20 4C 44 59 20 23 30 0D 44 43 4C |OUNT. LDY #0.DCL| 000014C0: 31 20 4C 44 41 20 28 53 54 41 52 54 29 2C 59 0D |1 LDA (START),Y.| 000014D0: 20 4A 53 52 20 48 45 58 4F 55 54 20 20 20 20 3B | JSR HEXOUT ;| 000014E0: 48 45 58 20 44 41 54 41 0D 20 4A 53 52 20 53 50 |HEX DATA. JSR SP| 000014F0: 41 43 45 0D 20 49 4E 59 0D 20 43 50 59 20 42 59 |ACE. INY. CPY BY| 00001500: 54 45 53 0D 20 42 4E 45 20 44 43 4C 31 0D 20 44 |TES. BNE DCL1. D| 00001510: 45 59 0D 20 4C 44 41 20 53 50 41 43 45 31 2C 59 |EY. LDA SPACE1,Y| 00001520: 0D 20 54 41 59 0D 20 4A 53 52 20 53 50 41 43 45 |. TAY. JSR SPACE| 00001530: 53 0D 20 4C 44 59 20 23 30 0D 44 43 4C 32 20 4C |S. LDY #0.DCL2 L| 00001540: 44 41 20 28 57 4F 52 4B 29 2C 59 0D 20 4A 53 52 |DA (WORK),Y. JSR| 00001550: 20 43 48 52 4F 55 54 20 20 20 20 3B 41 53 53 45 | CHROUT ;ASSE| 00001560: 4D 42 4C 59 20 49 4E 53 54 0D 20 49 4E 59 0D 20 |MBLY INST. INY. | 00001570: 43 50 59 20 23 34 0D 20 42 4E 45 20 44 43 4C 32 |CPY #4. BNE DCL2| 00001580: 0D 20 4A 53 52 20 53 50 41 43 45 0D 20 4C 44 59 |. JSR SPACE. LDY| 00001590: 20 42 59 54 45 53 0D 20 44 45 59 0D 20 42 4E 45 | BYTES. DEY. BNE| 000015A0: 20 2A 2B 35 0D 4A 4D 50 20 44 43 4C 34 0D 20 4C | *+5.JMP DCL4. L| 000015B0: 44 41 20 54 41 42 4C 45 32 2C 58 0D 20 43 4D 50 |DA TABLE2,X. CMP| 000015C0: 20 23 27 23 0D 20 42 4E 45 20 44 43 4C 41 0D 20 | #'#. BNE DCLA. | 000015D0: 4A 53 52 20 43 48 52 4F 55 54 0D 20 44 45 43 20 |JSR CHROUT. DEC | 000015E0: 43 4F 55 4E 54 0D 44 43 4C 41 20 4C 44 41 20 49 |COUNT.DCLA LDA I| 000015F0: 4E 53 54 20 20 20 20 3B 49 4E 53 54 20 41 4E 44 |NST ;INST AND| 00001600: 20 23 24 30 46 0D 20 41 4E 44 20 23 24 30 46 0D | #$0F. AND #$0F.| 00001610: 20 43 4D 50 20 23 31 0D 20 42 4E 45 20 44 43 4C | CMP #1. BNE DCL| 00001620: 42 0D 20 4C 44 41 20 23 27 28 0D 20 4A 53 52 20 |B. LDA #'(. JSR | 00001630: 43 48 52 4F 55 54 0D 20 44 45 43 20 43 4F 55 4E |CHROUT. DEC COUN| 00001640: 54 0D 20 44 45 43 20 43 4F 55 4E 54 0D 44 43 4C |T. DEC COUNT.DCL| 00001650: 42 20 4C 44 41 20 23 27 24 20 20 20 20 20 3B 50 |B LDA #'$ ;P| 00001660: 52 49 4E 54 20 24 0D 20 4A 53 52 20 43 48 52 4F |RINT $. JSR CHRO| 00001670: 55 54 0D 20 4C 44 41 20 49 4E 53 54 0D 20 43 4D |UT. LDA INST. CM| 00001680: 50 20 23 24 31 30 0D 20 42 4E 45 20 44 43 4C 33 |P #$10. BNE DCL3| 00001690: 20 20 20 20 20 20 20 20 3B 4E 4F 54 20 41 20 42 | ;NOT A B| 000016A0: 52 41 4E 43 48 0D 20 43 4C 43 20 20 20 20 20 20 |RANCH. CLC | 000016B0: 20 20 20 20 20 20 20 3B 42 52 41 4E 43 48 20 49 | ;BRANCH I| 000016C0: 4E 53 54 52 55 43 54 49 4F 4E 53 0D 20 4C 44 41 |NSTRUCTIONS. LDA| 000016D0: 20 53 54 41 52 54 0D 20 41 44 43 20 23 32 0D 20 | START. ADC #2. | 000016E0: 53 54 41 20 54 45 4D 50 0D 20 4C 44 41 20 53 54 |STA TEMP. LDA ST| 000016F0: 41 52 54 2B 31 0D 20 41 44 43 20 23 30 0D 20 53 |ART+1. ADC #0. S| 00001700: 54 41 20 54 45 4D 50 2B 31 0D 20 4C 44 59 20 23 |TA TEMP+1. LDY #| 00001710: 31 0D 20 4C 44 41 20 28 53 54 41 52 54 29 2C 59 |1. LDA (START),Y| 00001720: 0D 20 42 4D 49 20 44 43 4C 45 0D 20 43 4C 43 0D |. BMI DCLE. CLC.| 00001730: 20 41 44 43 20 54 45 4D 50 0D 20 53 54 41 20 54 | ADC TEMP. STA T| 00001740: 45 4D 50 0D 20 4C 44 41 20 54 45 4D 50 2B 31 0D |EMP. LDA TEMP+1.| 00001750: 20 41 44 43 20 23 30 0D 20 53 54 41 20 54 45 4D | ADC #0. STA TEM| 00001760: 50 2B 31 0D 20 4A 4D 50 20 44 43 4C 46 0D 44 43 |P+1. JMP DCLF.DC| 00001770: 4C 45 20 53 45 43 0D 20 53 54 41 20 48 4F 4C 44 |LE SEC. STA HOLD| 00001780: 0D 20 4C 44 41 20 23 30 0D 20 53 42 43 20 48 4F |. LDA #0. SBC HO| 00001790: 4C 44 0D 20 53 54 41 20 48 4F 4C 44 0D 20 53 45 |LD. STA HOLD. SE| 000017A0: 43 0D 20 4C 44 41 20 54 45 4D 50 0D 20 53 42 43 |C. LDA TEMP. SBC| 000017B0: 20 48 4F 4C 44 0D 20 53 54 41 20 54 45 4D 50 0D | HOLD. STA TEMP.| 000017C0: 20 4C 44 41 20 54 45 4D 50 2B 31 0D 20 53 42 43 | LDA TEMP+1. SBC| 000017D0: 20 23 30 0D 20 53 54 41 20 54 45 4D 50 2B 31 0D | #0. STA TEMP+1.| 000017E0: 44 43 4C 46 20 4C 44 41 20 54 45 4D 50 2B 31 0D |DCLF LDA TEMP+1.| 000017F0: 20 4A 53 52 20 48 45 58 4F 55 54 0D 20 4C 44 41 | JSR HEXOUT. LDA| 00001800: 20 54 45 4D 50 0D 20 4A 53 52 20 48 45 58 4F 55 | TEMP. JSR HEXOU| 00001810: 54 0D 20 4A 4D 50 20 44 43 4C 43 0D 44 43 4C 33 |T. JMP DCLC.DCL3| 00001820: 20 4C 44 59 20 42 59 54 45 53 20 3B 48 49 42 59 | LDY BYTES ;HIBY| 00001830: 54 45 2C 20 4C 4F 42 59 54 45 0D 20 44 45 59 0D |TE, LOBYTE. DEY.| 00001840: 20 4C 44 41 20 28 53 54 41 52 54 29 2C 59 0D 20 | LDA (START),Y. | 00001850: 4A 53 52 20 48 45 58 4F 55 54 0D 20 44 45 59 0D |JSR HEXOUT. DEY.| 00001860: 20 42 4E 45 20 44 43 4C 33 2B 34 0D 44 43 4C 34 | BNE DCL3+4.DCL4| 00001870: 20 4C 44 41 20 54 41 42 4C 45 32 2C 58 0D 20 43 | LDA TABLE2,X. C| 00001880: 4D 50 20 23 27 24 0D 20 42 43 53 20 44 43 4C 35 |MP #'$. BCS DCL5| 00001890: 20 20 20 20 20 20 20 20 20 20 20 3B 50 52 49 4E | ;PRIN| 000018A0: 54 20 2C 58 20 4F 52 20 2C 59 0D 20 49 4E 43 20 |T ,X OR ,Y. INC | 000018B0: 43 4F 55 4E 54 0D 20 49 4E 43 20 43 4F 55 4E 54 |COUNT. INC COUNT| 000018C0: 0D 20 42 4E 45 20 44 43 4C 43 20 20 20 20 20 20 |. BNE DCLC | 000018D0: 20 20 20 20 20 20 3B 53 4B 49 50 20 2C 58 20 4F | ;SKIP ,X O| 000018E0: 52 20 2C 59 0D 44 43 4C 35 20 50 48 41 0D 20 4C |R ,Y.DCL5 PHA. L| 000018F0: 44 41 20 49 4E 53 54 0D 20 43 4D 50 20 23 24 31 |DA INST. CMP #$1| 00001900: 31 0D 20 42 4E 45 20 44 43 4C 44 0D 20 4C 44 41 |1. BNE DCLD. LDA| 00001910: 20 23 27 29 20 20 20 20 20 20 20 20 20 20 20 20 | #') | 00001920: 20 3B 49 4E 44 45 58 20 49 4E 44 49 52 0D 20 4A | ;INDEX INDIR. J| 00001930: 53 52 20 43 48 52 4F 55 54 0D 44 43 4C 44 20 4C |SR CHROUT.DCLD L| 00001940: 44 41 20 23 27 2C 20 20 20 20 20 20 20 20 20 3B |DA #', ;| 00001950: 50 52 49 4E 54 20 20 2C 0D 20 4A 53 52 20 43 48 |PRINT ,. JSR CH| 00001960: 52 4F 55 54 0D 20 50 4C 41 20 20 20 20 20 20 20 |ROUT. PLA | 00001970: 20 20 20 20 20 20 20 20 20 20 3B 50 52 49 4E 54 | ;PRINT| 00001980: 20 20 58 20 4F 52 20 59 0D 20 4A 53 52 20 43 48 | X OR Y. JSR CH| 00001990: 52 4F 55 54 0D 20 4C 44 41 20 49 4E 53 54 0D 20 |ROUT. LDA INST. | 000019A0: 43 4D 50 20 23 24 30 31 0D 20 42 4E 45 20 44 43 |CMP #$01. BNE DC| 000019B0: 4C 43 0D 20 4C 44 41 20 23 27 29 20 20 20 20 20 |LC. LDA #') | 000019C0: 20 20 20 20 20 20 20 20 3B 49 4E 44 49 52 20 49 | ;INDIR I| 000019D0: 4E 44 45 58 0D 20 4A 53 52 20 43 48 52 4F 55 54 |NDEX. JSR CHROUT| 000019E0: 0D 44 43 4C 43 20 49 4E 43 20 43 4F 55 4E 54 0D |.DCLC INC COUNT.| 000019F0: 20 49 4E 43 20 43 4F 55 4E 54 0D 20 49 4E 43 20 | INC COUNT. INC | 00001A00: 43 4F 55 4E 54 0D 20 4C 44 59 20 43 4F 55 4E 54 |COUNT. LDY COUNT| 00001A10: 0D 20 4A 53 52 20 53 50 41 43 45 53 0D 20 4C 44 |. JSR SPACES. LD| 00001A20: 59 20 23 30 0D 44 43 4C 36 20 4C 44 41 20 28 53 |Y #0.DCL6 LDA (S| 00001A30: 54 41 52 54 29 2C 59 0D 20 4A 53 52 20 50 52 54 |TART),Y. JSR PRT| 00001A40: 41 53 43 0D 20 49 4E 59 0D 20 43 50 59 20 42 59 |ASC. INY. CPY BY| 00001A50: 54 45 53 0D 20 42 4E 45 20 44 43 4C 36 0D 20 4A |TES. BNE DCL6. J| 00001A60: 53 52 20 4C 46 43 52 0D 20 4C 44 59 20 23 30 0D |SR LFCR. LDY #0.| 00001A70: 20 4C 44 41 20 28 53 54 41 52 54 29 2C 59 0D 20 | LDA (START),Y. | 00001A80: 43 4D 50 20 23 24 36 30 0D 20 42 45 51 20 44 43 |CMP #$60. BEQ DC| 00001A90: 4C 37 0D 20 43 4D 50 20 23 24 34 43 0D 20 42 4E |L7. CMP #$4C. BN| 00001AA0: 45 20 44 43 4C 38 0D 44 43 4C 37 20 4A 53 52 20 |E DCL8.DCL7 JSR | 00001AB0: 4C 46 43 52 0D 44 43 4C 38 20 4C 44 59 20 42 59 |LFCR.DCL8 LDY BY| 00001AC0: 54 45 53 0D 20 54 59 41 0D 20 43 4C 43 0D 20 41 |TES. TYA. CLC. A| 00001AD0: 44 43 20 53 54 41 52 54 0D 20 53 54 41 20 53 54 |DC START. STA ST| 00001AE0: 41 52 54 0D 20 4C 44 41 20 53 54 41 52 54 2B 31 |ART. LDA START+1| 00001AF0: 0D 20 41 44 43 20 23 30 0D 20 53 54 41 20 53 54 |. ADC #0. STA ST| 00001B00: 41 52 54 2B 31 0D 20 43 4D 50 20 45 4E 44 2B 31 |ART+1. CMP END+1| 00001B10: 0D 20 42 43 43 20 44 45 44 4A 4D 50 0D 20 4C 44 |. BCC DEDJMP. LD| 00001B20: 41 20 53 54 41 52 54 0D 20 43 4D 50 20 45 4E 44 |A START. CMP END| 00001B30: 0D 20 42 43 43 20 44 45 44 4A 4D 50 0D 20 52 54 |. BCC DEDJMP. RT| 00001B40: 53 0D 50 52 54 41 53 43 20 41 4E 44 20 23 24 37 |S.PRTASC AND #$7| 00001B50: 46 0D 20 43 4D 50 20 23 24 32 31 0D 20 42 43 43 |F. CMP #$21. BCC| 00001B60: 20 4E 4F 50 52 4E 54 0D 20 43 4D 50 20 23 24 35 | NOPRNT. CMP #$5| 00001B70: 42 0D 20 42 43 53 20 4E 4F 50 52 4E 54 0D 50 41 |B. BCS NOPRNT.PA| 00001B80: 4C 50 20 4A 4D 50 20 43 48 52 4F 55 54 0D 4E 4F |LP JMP CHROUT.NO| 00001B90: 50 52 4E 54 20 4C 44 41 20 23 27 2E 0D 20 42 4E |PRNT LDA #'.. BN| 00001BA0: 45 20 50 41 4C 50 0D 44 45 44 4A 4D 50 20 4A 4D |E PALP.DEDJMP JM| 00001BB0: 50 20 44 45 43 4F 44 45 0D 49 4E 50 55 54 20 4C |P DECODE.INPUT L| 00001BC0: 44 59 20 23 30 0D 49 4E 50 4C 50 20 4A 53 52 20 |DY #0.INPLP JSR | 00001BD0: 43 48 52 49 4E 0D 20 53 54 41 20 44 41 54 41 2C |CHRIN. STA DATA,| 00001BE0: 59 0D 20 49 4E 59 0D 20 43 4D 50 20 23 31 33 0D |Y. INY. CMP #13.| 00001BF0: 20 42 4E 45 20 49 4E 50 4C 50 0D 20 44 45 59 0D | BNE INPLP. DEY.| 00001C00: 20 52 54 53 0D 53 50 41 43 45 20 4C 44 41 20 23 | RTS.SPACE LDA #| 00001C10: 24 32 30 0D 20 4A 4D 50 20 43 48 52 4F 55 54 0D |$20. JMP CHROUT.| 00001C20: 53 50 41 43 45 53 20 4C 44 41 20 53 50 43 2C 59 |SPACES LDA SPC,Y| 00001C30: 0D 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 44 45 |. JSR CHROUT. DE| 00001C40: 59 0D 20 42 4E 45 20 53 50 41 43 45 53 0D 20 52 |Y. BNE SPACES. R| 00001C50: 54 53 0D 4C 46 43 52 20 4C 44 41 20 23 31 33 0D |TS.LFCR LDA #13.| 00001C60: 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 52 54 53 | JSR CHROUT. RTS| 00001C70: 0D 48 45 58 4F 55 54 20 50 48 41 20 3B 50 52 49 |.HEXOUT PHA ;PRI| 00001C80: 4E 54 20 41 44 44 52 20 26 20 33 20 42 49 54 53 |NT ADDR & 3 BITS| 00001C90: 20 4F 46 20 44 41 54 41 20 49 4E 20 28 57 4F 52 | OF DATA IN (WOR| 00001CA0: 4B 29 0D 20 4C 53 52 20 41 0D 20 4C 53 52 20 41 |K). LSR A. LSR A| 00001CB0: 0D 20 4C 53 52 20 41 0D 20 4C 53 52 20 41 0D 20 |. LSR A. LSR A. | 00001CC0: 4A 53 52 20 48 45 58 44 49 47 0D 20 50 4C 41 0D |JSR HEXDIG. PLA.| 00001CD0: 20 41 4E 44 20 23 24 30 46 0D 20 4A 4D 50 20 48 | AND #$0F. JMP H| 00001CE0: 45 58 44 49 47 0D 48 45 58 44 49 47 20 43 4D 50 |EXDIG.HEXDIG CMP| 00001CF0: 20 23 24 30 41 0D 20 42 43 43 20 53 4B 49 50 0D | #$0A. BCC SKIP.| 00001D00: 20 41 44 43 20 23 24 30 36 0D 53 4B 49 50 20 41 | ADC #$06.SKIP A| 00001D10: 44 43 20 23 24 33 30 0D 20 4A 4D 50 20 43 48 52 |DC #$30. JMP CHR| 00001D20: 4F 55 54 0D 50 52 4E 54 4F 4E 20 4C 44 41 20 23 |OUT.PRNTON LDA #| 00001D30: 30 20 20 20 3B 50 52 49 4E 54 20 4F 4E 20 52 4F |0 ;PRINT ON RO| 00001D40: 55 54 49 4E 45 0D 20 4A 53 52 20 53 45 54 4E 41 |UTINE. JSR SETNA| 00001D50: 4D 0D 20 4C 44 41 20 23 34 0D 20 54 41 58 0D 20 |M. LDA #4. TAX. | 00001D60: 4C 44 59 20 23 24 46 46 0D 20 4A 53 52 20 53 45 |LDY #$FF. JSR SE| 00001D70: 54 4C 46 53 0D 20 4A 53 52 20 4F 50 45 4E 0D 20 |TLFS. JSR OPEN. | 00001D80: 4C 44 58 20 23 34 0D 20 4A 4D 50 20 43 48 4B 4F |LDX #4. JMP CHKO| 00001D90: 55 54 0D 50 52 4E 54 4F 46 20 4C 44 41 20 23 31 |UT.PRNTOF LDA #1| 00001DA0: 33 0D 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 4C |3. JSR CHROUT. L| 00001DB0: 44 41 20 23 34 0D 20 4A 53 52 20 43 4C 4F 53 45 |DA #4. JSR CLOSE| 00001DC0: 0D 20 4A 4D 50 20 43 4C 41 4C 4C 0D 4F 55 54 50 |. JMP CLALL.OUTP| 00001DD0: 55 54 20 53 54 41 20 50 52 49 4E 54 20 3B 4F 55 |UT STA PRINT ;OU| 00001DE0: 54 50 55 54 20 53 43 52 45 45 4E 0D 20 53 54 59 |TPUT SCREEN. STY| 00001DF0: 20 50 52 49 4E 54 2B 31 0D 20 4C 44 59 20 23 30 | PRINT+1. LDY #0| 00001E00: 0D 4F 55 54 20 4C 44 41 20 28 50 52 49 4E 54 29 |.OUT LDA (PRINT)| 00001E10: 2C 59 0D 20 42 45 51 20 50 52 54 52 45 54 0D 20 |,Y. BEQ PRTRET. | 00001E20: 4A 53 52 20 43 48 52 4F 55 54 0D 20 49 4E 43 20 |JSR CHROUT. INC | 00001E30: 50 52 49 4E 54 0D 20 42 4E 45 20 4F 55 54 0D 20 |PRINT. BNE OUT. | 00001E40: 49 4E 43 20 50 52 49 4E 54 2B 31 0D 20 42 4E 45 |INC PRINT+1. BNE| 00001E50: 20 4F 55 54 0D 50 52 54 52 45 54 20 52 54 53 0D | OUT.PRTRET RTS.| 00001E60: 49 4E 54 45 52 52 20 4A 53 52 20 55 44 54 49 4D |INTERR JSR UDTIM| 00001E70: 0D 20 4A 53 52 20 53 54 4F 50 0D 20 42 45 51 20 |. JSR STOP. BEQ | 00001E80: 49 4E 52 0D 20 4A 4D 50 20 24 45 41 33 34 0D 49 |INR. JMP $EA34.I| 00001E90: 4E 52 20 4C 44 58 20 23 24 46 46 0D 20 54 58 53 |NR LDX #$FF. TXS| 00001EA0: 0D 20 4C 44 41 20 23 31 0D 20 53 54 41 20 24 43 |. LDA #1. STA $C| 00001EB0: 43 0D 20 53 45 49 0D 20 4A 4D 50 20 43 4F 4D 41 |C. SEI. JMP COMA| 00001EC0: 4E 44 0D 0D 0D 0D |ND.... |
;DC.SOURCE. .OPT ERR,NOG,NOL. ;DECODER.
;BY P.J. MYERS. ;. .LIB KERNAL. ;. ;MEM
ORY AREA'S. ;. START =$FB ;START DECO
DE. END =$FD ;END DECODE. WORK =$2
2 ;WORK AREA. TEMP =$24 ;TEMP ARE
A. PRINT =$26 ;PRINT SUB. COUNT =$010
0 ;SPACE COUNTER. INST =$0101 ;AND #$
1F INSTRUCTION (INDIR: 01=X,11=Y) (BRANC
H: 10=BXX). BYTES =$0102 ;# OF BYTES IN
ST. HOLD =$0103 ;SCRATCH MEMORY. DATA
=$0200 ;INPUT BUFFER. ;. *=$C000 ;STAR
T OF LOADER. JMP SETUP. ; 0
1 2 3 4 5 6 7. ;
8 9 A B C D E F.TABLE1 .B
YTE 'BRK ORA ??? ??? ??? ORA ASL SLOR'.
.BYTE 'PHP ORA ASL AND ??? ORA ASL
SLOR'. A1 .BYTE 'BPL ORA ??? ??? ???
ORA ASL SLOR'. .BYTE 'CLC ORA ???
RLO ??? ORA ASL SLOR'. A2 .BYTE 'JSR
AND ??? ??? BIT AND ROL RLAN'. .B
YTE 'PLP AND ROL AND BIT AND ROL RLAN'.
A3 .BYTE 'BMI AND ??? ??? ??? AND ROL
RLAN'. .BYTE 'SEC AND ??? RLA ???
AND ROL RLAN'. A4 .BYTE 'RTI EOR ???
??? ??? EOR LSR SREO'. .BYTE 'PHA
EOR LSR ANR JMP EOR LSR SREO'. A5 .B
YTE 'BVC EOR ??? ??? ??? EOR LSR SREO'.
.BYTE 'CLI EOR ??? RXR ??? EOR LSR
SREO'. A6 .BYTE 'RTS ADC ??? ??? ???
ADC ROR RRAD'. .BYTE 'PLA ADC ROR
ADR JMP ADC ROR RRAD'. A7 .BYTE 'BVS
ADC ??? ??? ??? ADC ROR RRAD'. .B
YTE 'SEI ADC ROLRRAD ??? ADC ROR RRAD'.
A8 .BYTE 'SKP2STA SKP2SKP2STY STA STX
ANDX'. .BYTE 'DEY SKP TXA ANAXSTY
STA STX ANDX'. A9 .BYTE 'BCC STA ???
??? STY STA STX ANDX'. .BYTE 'TYA
STA TXS SISM??? STA TSTATSTX'. AA .B
YTE 'LDY LDA LDX ??? LDY LDA LDX LDAX'.
.BYTE 'TAY LDA TAX LDAXLDY LDA LDX
LDAX'. AB .BYTE 'BCS LDA ??? ??? LDY
LDA LDX LDAX'. .BYTE 'CLV LDA TSX
ANSPLDY LDA LDX LDAX'. AC .BYTE 'CPY
CMP ??? ??? CPY CMP DEC DCMP'. .B
YTE 'INY CMP DEX SUBXCPY CMP DEC DCMP'.
AD .BYTE 'BNE CMP ??? ??? ??? CMP DEC
DCMP'. .BYTE 'CLD CMP ??? CMA ???
CMP DEC DCMP'. AE .BYTE 'CPX SBC ???
??? CPX SBC INC ISBC'. .BYTE 'INX
SBC NOP SUB CPX SBC INC ISBC'. AF .B
YTE 'BEQ SBC ??? ??? ??? SBC INC ISBC'.
.BYTE 'SED SBC ??? SBM ??? SBC INC
ISBC'. ; 0123456789ABCDEF.TA
BLE2 .BYTE ' X # # '. B1 .BY
TE ' Y XXX Y Y XXX'. B2 .BYTE ' X
# # '. B3 .BYTE ' Y XXX Y Y
XXX'. B4 .BYTE ' X # # '.
B5 .BYTE ' Y XXX Y Y XXX'. B6 .BY
TE ' X # # '. B7 .BYTE ' Y
XXX Y Y XXX'. B8 .BYTE ' X #
'. B9 .BYTE ' Y XXYY Y Y X '.
BA .BYTE '#X# # # '. BB .BY
TE ' Y XXYY Y YXXYY'. BC .BYTE '#X
# # '. BD .BYTE ' Y XXX Y Y
XXX'. BE .BYTE '#X # '.
BF .BYTE ' Y XXX Y Y XXX'. ;
0 1 2 3 4 5 6 7 8 9 A B C D E F.TABLE
3 .BYTE 0,1,0,0,0,1,1,1,0,1,0,1,0,2,2,2.
C1 .BYTE 1,1,0,0,0,1,1,1,0,2,0,2,0,2
,2,2. C2 .BYTE 2,1,0,0,1,1,1,2,0,1,0,
1,2,2,2,2. C3 .BYTE 1,1,0,0,0,1,1,1,0
,2,0,2,0,2,2,2. C4 .BYTE 0,1,0,0,0,1,
1,1,0,1,0,1,2,2,2,2. C5 .BYTE 1,1,0,0
,0,1,1,1,0,2,0,2,0,2,2,2. C6 .BYTE 0,
1,0,0,0,1,1,1,0,1,0,1,2,2,2,2. C7 .BY
TE 1,1,0,0,0,1,1,1,0,2,0,2,0,2,2,2. C
8 .BYTE 1,1,1,1,1,1,1,1,0,1,0,1,2,2,2,2.
C9 .BYTE 1,1,0,0,1,1,1,1,0,2,0,2,0,2
,2,2. CA .BYTE 1,1,1,0,1,1,1,1,0,1,0,
1,2,2,2,2. CB .BYTE 1,1,0,0,1,1,1,1,0
,2,0,2,2,2,2,2. CC .BYTE 1,1,0,0,1,1,
1,1,0,1,0,1,2,2,2,2. CD .BYTE 1,1,0,0
,0,1,1,1,0,2,0,2,0,2,2,2. CE .BYTE 1,
1,0,0,1,1,1,2,0,1,0,2,2,2,2,2. CF .BY
TE 1,1,0,0,0,1,1,2,0,2,0,2,0,2,2,2.HIBYT
E .BYTE >DCMD. .BYTE >PCMD.
.BYTE >XCMD. .BYTE >ATCMD.LOBYTE .
BYTE <DCMD-1. .BYTE <PCMD-1.
.BYTE <XCMD-1. .BYTE <ATCMD-1.RAN
ASC .BYTE '.',0.COMASC .BYTE 'DPX.',0.SP
C .BYTE ' '.SPACE1 .BYTE 9
,6,3.SPACE2 .BYTE 5,2,0. ;BEGIN MAINLINE
.SETUP JSR CLEAR. LDA #1. STA $D020. STA
$D021. LDA #6. STA $0286. SEI. LDA #<IN
TERR. STA $0314. LDA #>INTERR. STA $0315
. CLI.COMAND LDX #$FF. TXS. JSR LFCR. LD
A #<RANASC. LDY #>RANASC. JSR OUTPUT. JS
R INPUT. JSR LFCR. STY TEMP. LDX #0.CMLP
LDA COMASC,X. BEQ COMAND. CMP DATA. BEQ
CMLP1. INX. BNE CMLP. JSR LFCR.CMLP1 LD
A HIBYTE,X. PHA. LDA LOBYTE,X. PHA. RTS.
DCMD JSR VALID. JSR DECODE. JMP COMAND.P
CMD JSR VALID. JSR PRNTON. JSR DECODE. J
SR PRNTOF. JMP COMAND.XCMD JMP ($A002).A
TCMD JMP COMAND.VALID CPY #4. BCC INVAL.
LDY #0. JSR HEXIN ;GET HIBYTE. STA W
ORK. JSR HEXIN. STA WORK+1. JSR DIGIT. S
TA START+1. JSR HEXIN ;GET LOBYTE. ST
A WORK. JSR HEXIN. STA WORK+1. JSR DIGIT
. STA START ;GET HIBYTE. JSR HEXIN. S
TA WORK. JSR HEXIN. STA WORK+1. JSR DIGI
T. STA END+1 ;GET LOBYTE. JSR HEXIN.
STA WORK. JSR HEXIN. STA WORK+1. JSR DIG
IT. STA END. RTS.INVAL JMP COMAND.HEXIN
CPY TEMP. BCS INVAL. INY. LDA DATA,Y. CM
P #$20. BEQ HEXIN. CMP #',. BEQ HEXIN. C
MP #$30. BCC INVAL. CMP #$3A. BCS ALPHA.
SBC #$2F.ALPHA CMP #$41. BCC NUMBER. SB
C #$37.NUMBER CMP #$10. BCS INVAL. RTS.D
IGIT LDA WORK. ASL A. ASL A. ASL A. ASL
A. STA WORK. LDA WORK+1. ORA WORK. RTS.D
ECODE LDY #0. LDA (START),Y. TAX. AND #$
1F. STA INST. LDA #<TABLE1. STA WORK. LD
A #>TABLE1. STA WORK+1. LDA #0. STA TEMP
+1. STX TEMP. ASL TEMP ; TIMES 2. R
OL TEMP+1. ASL TEMP ; TIMES 4. ROL
TEMP+1. CLC. LDA TEMP ;TABLE1. ADC
WORK. STA WORK. LDA TEMP+1. ADC WORK+1.
STA WORK+1. LDA START+1. JSR HEXOUT ;
HIBYTE ADDR. LDA START. JSR HEXOUT ;L
OBYTE ADDR. JSR SPACE. LDA TABLE3,X ;#
OF BYTES. STA BYTES. INC BYTES. TAY. LDA
SPACE2,Y. STA COUNT. LDY #0.DCL1 LDA (S
TART),Y. JSR HEXOUT ;HEX DATA. JSR SP
ACE. INY. CPY BYTES. BNE DCL1. DEY. LDA
SPACE1,Y. TAY. JSR SPACES. LDY #0.DCL2 L
DA (WORK),Y. JSR CHROUT ;ASSEMBLY INS
T. INY. CPY #4. BNE DCL2. JSR SPACE. LDY
BYTES. DEY. BNE *+5.JMP DCL4. LDA TABLE
2,X. CMP #'#. BNE DCLA. JSR CHROUT. DEC
COUNT.DCLA LDA INST ;INST AND #$0F. A
ND #$0F. CMP #1. BNE DCLB. LDA #'(. JSR
CHROUT. DEC COUNT. DEC COUNT.DCLB LDA #'
$ ;PRINT $. JSR CHROUT. LDA INST. CM
P #$10. BNE DCL3 ;NOT A BRANCH. C
LC ;BRANCH INSTRUCTIONS. LDA
START. ADC #2. STA TEMP. LDA START+1. A
DC #0. STA TEMP+1. LDY #1. LDA (START),Y
. BMI DCLE. CLC. ADC TEMP. STA TEMP. LDA
TEMP+1. ADC #0. STA TEMP+1. JMP DCLF.DC
LE SEC. STA HOLD. LDA #0. SBC HOLD. STA
HOLD. SEC. LDA TEMP. SBC HOLD. STA TEMP.
LDA TEMP+1. SBC #0. STA TEMP+1.DCLF LDA
TEMP+1. JSR HEXOUT. LDA TEMP. JSR HEXOU
T. JMP DCLC.DCL3 LDY BYTES ;HIBYTE, LOBY
TE. DEY. LDA (START),Y. JSR HEXOUT. DEY.
BNE DCL3+4.DCL4 LDA TABLE2,X. CMP #'$.
BCS DCL5 ;PRINT ,X OR ,Y. INC
COUNT. INC COUNT. BNE DCLC ;S
KIP ,X OR ,Y.DCL5 PHA. LDA INST. CMP #$1
1. BNE DCLD. LDA #') ;INDEX
INDIR. JSR CHROUT.DCLD LDA #', ;
PRINT ,. JSR CHROUT. PLA
;PRINT X OR Y. JSR CHROUT. LDA INST.
CMP #$01. BNE DCLC. LDA #')
;INDIR INDEX. JSR CHROUT.DCLC INC COUNT.
INC COUNT. INC COUNT. LDY COUNT. JSR SP
ACES. LDY #0.DCL6 LDA (START),Y. JSR PRT
ASC. INY. CPY BYTES. BNE DCL6. JSR LFCR.
LDY #0. LDA (START),Y. CMP #$60. BEQ DC
L7. CMP #$4C. BNE DCL8.DCL7 JSR LFCR.DCL
8 LDY BYTES. TYA. CLC. ADC START. STA ST
ART. LDA START+1. ADC #0. STA START+1. C
MP END+1. BCC DEDJMP. LDA START. CMP END
. BCC DEDJMP. RTS.PRTASC AND #$7F. CMP #
$21. BCC NOPRNT. CMP #$5B. BCS NOPRNT.PA
LP JMP CHROUT.NOPRNT LDA #'.. BNE PALP.D
EDJMP JMP DECODE.INPUT LDY #0.INPLP JSR
CHRIN. STA DATA,Y. INY. CMP #13. BNE INP
LP. DEY. RTS.SPACE LDA #$20. JMP CHROUT.
SPACES LDA SPC,Y. JSR CHROUT. DEY. BNE S
PACES. RTS.LFCR LDA #13. JSR CHROUT. RTS
.HEXOUT PHA ;PRINT ADDR & 3 BITS OF DATA
IN (WORK). LSR A. LSR A. LSR A. LSR A.
JSR HEXDIG. PLA. AND #$0F. JMP HEXDIG.HE
XDIG CMP #$0A. BCC SKIP. ADC #$06.SKIP A
DC #$30. JMP CHROUT.PRNTON LDA #0 ;PRI
NT ON ROUTINE. JSR SETNAM. LDA #4. TAX.
LDY #$FF. JSR SETLFS. JSR OPEN. LDX #4.
JMP CHKOUT.PRNTOF LDA #13. JSR CHROUT. L
DA #4. JSR CLOSE. JMP CLALL.OUTPUT STA P
RINT ;OUTPUT SCREEN. STY PRINT+1. LDY #0
.OUT LDA (PRINT),Y. BEQ PRTRET. JSR CHRO
UT. INC PRINT. BNE OUT. INC PRINT+1. BNE
OUT.PRTRET RTS.INTERR JSR UDTIM. JSR ST
OP. BEQ INR. JMP $EA34.INR LDX #$FF. TXS
. LDA #1. STA $CC. SEI. JMP COMAND....
> CLICK IMAGE PREVIEW FOR FULL MODAL