DIS
FILE INFORMATION
FILENAME(S): DIS
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
6ee131b05fc599f5f86d92ba1548562bd210505cbb319a945e2fd99a892faed4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LADS64 | DIS | PRG | High Voltage Complete C64 Collection | 2 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1B 04 0A 00 3B 20 44 49 53 20 AB AB 20 44 |......; DIS .. D| 00000010: 49 53 41 53 53 45 4D 42 4C 45 52 00 28 04 14 00 |ISASSEMBLER.(...| 00000020: AC B2 20 31 37 30 30 30 00 69 04 1E 00 4C 44 41 |.. 17000.i...LDA| 00000030: 20 23 B3 44 49 53 4D 45 53 53 3A 53 54 41 20 54 | #.DISMESS:STA T| 00000040: 45 4D 50 3A 4C 44 41 20 23 B1 44 49 53 4D 45 53 |EMP:LDA #.DISMES| 00000050: 53 3A 53 54 41 20 54 45 4D 50 AA 31 3A 4A 53 52 |S:STA TEMP.1:JSR| 00000060: 20 50 52 4E 54 4D 45 53 53 00 87 04 28 00 4A 53 | PRNTMESS...(.JS| 00000070: 52 20 50 52 4E 54 43 52 3A 4C 44 41 20 23 24 33 |R PRNTCR:LDA #$3| 00000080: 46 3A 4A 53 52 20 99 00 B3 04 32 00 53 54 41 52 |F:JSR ....2.STAR| 00000090: 54 44 49 53 20 4C 44 41 20 23 31 3A 53 54 41 20 |TDIS LDA #1:STA | 000000A0: 48 58 46 4C 41 47 3A 4C 44 59 20 23 30 3A 53 54 |HXFLAG:LDY #0:ST| 000000B0: 59 20 59 00 F5 04 3C 00 44 54 4D 30 20 4A 53 52 |Y Y...<.DTM0 JSR| 000000C0: 20 43 48 41 52 49 4E 3B 20 20 20 20 20 20 20 20 | CHARIN; | 000000D0: 20 20 20 20 20 20 AB AB 20 A1 20 53 54 41 52 54 | .. . START| 000000E0: 20 41 44 44 52 45 53 53 20 28 44 45 43 49 4D 41 | ADDRESS (DECIMA| 000000F0: 4C 29 20 AB AB 00 02 05 46 00 42 45 51 20 44 54 |L) .....F.BEQ DT| 00000100: 4D 30 00 1B 05 50 00 43 4D 50 20 23 24 30 44 3B |M0...P.CMP #$0D;| 00000110: 20 43 41 52 52 49 41 47 45 20 8E 00 27 05 5A 00 | CARRIAGE ..'.Z.| 00000120: 42 45 51 20 44 4D 4F 00 43 05 64 00 4C 44 59 20 |BEQ DMO.C.d.LDY | 00000130: 59 3A 53 54 41 20 4C 41 42 45 4C 2C 59 3A 4A 53 |Y:STA LABEL,Y:JS| 00000140: 52 20 99 00 5A 05 6E 00 49 4E 59 3A 53 54 59 20 |R ..Z.n.INY:STY | 00000150: 59 3A 4A 4D 50 20 44 54 4D 30 00 9C 05 78 00 44 |Y:JMP DTM0...x.D| 00000160: 4D 4F 20 4C 44 58 20 59 3A 44 45 58 3A 44 45 43 |MO LDX Y:DEX:DEC| 00000170: 20 4C 41 42 45 4C 2C 58 3A 4C 44 59 20 59 3A 4C | LABEL,X:LDY Y:L| 00000180: 44 41 20 23 30 3A 53 54 41 20 4C 41 42 45 4C 2C |DA #0:STA LABEL,| 00000190: 59 3A 4A 53 52 20 50 52 4E 54 43 52 00 D5 05 82 |Y:JSR PRNTCR....| 000001A0: 00 4C 44 41 20 23 B3 4C 41 42 45 4C 3A 53 54 41 |.LDA #.LABEL:STA| 000001B0: 20 54 45 4D 50 3A 4C 44 41 20 23 B1 4C 41 42 45 | TEMP:LDA #.LABE| 000001C0: 4C 3A 53 54 41 20 54 45 4D 50 AA 31 3A 4A 53 52 |L:STA TEMP.1:JSR| 000001D0: 20 C5 44 45 43 00 ED 05 8C 00 4C 44 59 20 52 45 | .DEC.....LDY RE| 000001E0: 53 55 4C 54 3A 53 54 59 20 50 4D 45 4D 00 19 06 |SULT:STY PMEM...| 000001F0: 96 00 53 54 59 20 53 41 3A 4C 44 41 20 52 45 53 |..STY SA:LDA RES| 00000200: 55 4C 54 AA 31 3A 53 54 41 20 53 41 AA 31 3A 53 |ULT.1:STA SA.1:S| 00000210: 54 41 20 50 4D 45 4D AA 31 00 59 06 A0 00 3B 20 |TA PMEM.1.Y...; | 00000220: 4E 4F 57 20 41 44 4A 55 53 54 20 99 45 44 20 41 |NOW ADJUST .ED A| 00000230: 44 44 52 45 53 53 20 28 53 41 29 20 55 50 20 42 |DDRESS (SA) UP B| 00000240: 59 20 31 20 28 4C 4F 57 45 52 45 44 20 49 4E 20 |Y 1 (LOWERED IN | 00000250: 4C 49 4E 45 20 31 32 30 29 00 77 06 AA 00 49 4E |LINE 120).w...IN| 00000260: 43 20 53 41 3A 42 4E 45 20 A1 42 59 54 45 3A 49 |C SA:BNE .BYTE:I| 00000270: 4E 43 20 53 41 AA 31 00 B5 06 B4 00 3B AB AB AB |NC SA.1.....;...| 00000280: AB AB AB AB AB AB AB AB AB AB AB 20 50 55 4C 4C |........... PULL| 00000290: 20 49 4E 20 41 20 42 59 54 45 20 AF 20 53 45 45 | IN A BYTE . SEE| 000002A0: 20 8B 20 49 54 20 49 53 20 41 20 C5 49 44 20 4F | . IT IS A .ID O| 000002B0: 50 43 4F 44 45 00 E4 06 BE 00 A1 42 59 54 45 20 |PCODE......BYTE | 000002C0: 4A 53 52 20 90 4B 45 59 3A 4A 53 52 20 47 42 3A |JSR .KEY:JSR GB:| 000002D0: 53 54 41 20 46 49 C3 3B 28 94 20 41 53 20 49 4E |STA FI.;(. AS IN| 000002E0: 44 45 58 29 00 1B 07 C8 00 54 41 59 3A 4C 44 41 |DEX).....TAY:LDA| 000002F0: 20 4D 54 41 42 4C 45 2C 59 3A 42 4E 45 20 44 4D | MTABLE,Y:BNE DM| 00000300: B0 45 3A 4A 53 52 20 50 52 4E 54 53 41 3A 4A 53 |.E:JSR PRNTSA:JS| 00000310: 52 20 50 52 4E 54 53 50 41 43 45 00 48 07 D2 00 |R PRNTSPACE.H...| 00000320: 4C 44 58 20 46 49 C3 3A 4C 44 41 20 23 30 3A 4A |LDX FI.:LDA #0:J| 00000330: 53 52 20 50 52 4E 54 4E 55 4D 3A 4A 53 52 20 50 |SR PRNTNUM:JSR P| 00000340: 52 4E 54 53 50 41 43 45 00 80 07 DC 00 4C 44 41 |RNTSPACE.....LDA| 00000350: 20 23 24 33 46 3A 4A 53 52 20 99 3A 4A 53 52 20 | #$3F:JSR .:JSR | 00000360: 49 4E 43 53 41 3A 4A 4D 50 20 41 4C 4C 44 91 45 |INCSA:JMP ALLD.E| 00000370: 3B 20 A8 20 41 20 C5 49 44 20 4F 50 43 4F 44 45 |; . A .ID OPCODE| 00000380: 00 A7 07 E6 00 3B 20 9A 49 4E 55 45 20 91 2C 20 |.....; .INUE ., | 00000390: 46 4F 55 4E 44 20 41 20 C5 49 44 20 4F 50 43 4F |FOUND A .ID OPCO| 000003A0: 44 45 AB AB AB AB AB 00 E8 07 F0 00 44 4D B0 45 |DE..........DM.E| 000003B0: 20 53 54 41 20 57 B0 4B 3A 4C 44 59 20 23 30 3A | STA W.K:LDY #0:| 000003C0: 53 54 59 20 50 41 52 52 41 59 AA 31 3A 41 53 4C |STY PARRAY.1:ASL| 000003D0: 3A 53 54 41 20 50 41 52 52 41 59 3A 52 4F 4C 20 |:STA PARRAY:ROL | 000003E0: 50 41 52 52 41 59 AA 31 00 0F 08 FA 00 3B 20 20 |PARRAY.1.....; | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 55 4C 54 | MULT| 00000400: 49 50 4C 59 20 59 20 42 59 20 54 48 52 45 45 00 |IPLY Y BY THREE.| 00000410: 56 08 04 01 4C 44 41 20 57 B0 4B 3A 43 4C 43 3A |V...LDA W.K:CLC:| 00000420: 41 44 43 20 50 41 52 52 41 59 3A 53 54 41 20 50 |ADC PARRAY:STA P| 00000430: 41 52 52 41 59 3A 4C 44 41 20 23 30 3A 41 44 43 |ARRAY:LDA #0:ADC| 00000440: 20 50 41 52 52 41 59 AA 31 3A 53 54 41 20 50 41 | PARRAY.1:STA PA| 00000450: 52 52 41 59 AA 31 00 7D 08 0E 01 3B 20 20 20 20 |RRAY.1.}...; | 00000460: 20 20 20 20 20 20 20 20 20 20 41 44 44 20 54 48 | ADD TH| 00000470: 49 53 20 A4 20 57 B0 44 54 41 42 4C 45 00 AA 08 |IS . W.DTABLE...| 00000480: 18 01 43 4C 43 3A 4C 44 41 20 23 B3 57 B0 44 54 |..CLC:LDA #.W.DT| 00000490: 41 42 4C 45 3A 41 44 43 20 50 41 52 52 41 59 3A |ABLE:ADC PARRAY:| 000004A0: 53 54 41 20 50 41 52 52 41 59 00 D7 08 22 01 4C |STA PARRAY...".L| 000004B0: 44 41 20 23 B1 57 B0 44 54 41 42 4C 45 3A 41 44 |DA #.W.DTABLE:AD| 000004C0: 43 20 50 41 52 52 41 59 AA 31 3A 53 54 41 20 50 |C PARRAY.1:STA P| 000004D0: 41 52 52 41 59 AA 31 00 F4 08 2C 01 4A 53 52 20 |ARRAY.1...,.JSR | 000004E0: 50 52 4E 54 53 41 3A 4A 53 52 20 50 52 4E 54 53 |PRNTSA:JSR PRNTS| 000004F0: 50 41 43 45 00 18 09 36 01 4C 44 59 20 23 30 3A |PACE...6.LDY #0:| 00000500: 4C 44 41 20 28 50 41 52 52 41 59 29 2C 59 3A 4A |LDA (PARRAY),Y:J| 00000510: 53 52 20 99 3A 49 4E 59 00 35 09 40 01 4C 44 41 |SR .:INY.5.@.LDA| 00000520: 20 28 50 41 52 52 41 59 29 2C 59 3A 4A 53 52 20 | (PARRAY),Y:JSR | 00000530: 99 3A 49 4E 59 00 5C 09 4A 01 4C 44 41 20 28 50 |.:INY.\.J.LDA (P| 00000540: 41 52 52 41 59 29 2C 59 3A 4A 53 52 20 99 3A 4A |ARRAY),Y:JSR .:J| 00000550: 53 52 20 50 52 4E 54 53 50 41 43 45 00 A7 09 54 |SR PRNTSPACE...T| 00000560: 01 4C 44 59 20 46 49 C3 3A 4C 44 41 20 4D 54 41 |.LDY FI.:LDA MTA| 00000570: 42 4C 45 2C 59 3B 20 30 20 4D 45 41 4E 53 20 4E |BLE,Y; 0 MEANS N| 00000580: 4F 20 41 52 47 55 4D 45 4E 54 28 49 4E 44 49 52 |O ARGUMENT(INDIR| 00000590: 45 43 54 20 B0 20 41 43 43 55 4D 55 4C 41 A4 52 |ECT . ACCUMULA.R| 000005A0: 20 4D 4F 44 45 53 29 00 D0 09 5E 01 54 41 59 3A | MODES)...^.TAY:| 000005B0: 44 45 59 3A 4C 44 41 20 54 59 50 45 54 41 42 4C |DEY:LDA TYPETABL| 000005C0: 45 2C 59 3A 42 4E 45 20 42 52 41 4E 43 48 45 53 |E,Y:BNE BRANCHES| 000005D0: 00 E9 09 68 01 4A 53 52 20 49 4E 43 53 41 3A 4A |...h.JSR INCSA:J| 000005E0: 4D 50 20 41 4C 4C 44 91 45 00 06 0A 72 01 42 52 |MP ALLD.E...r.BR| 000005F0: 41 4E 43 48 45 53 20 4C 44 41 20 54 59 50 45 54 |ANCHES LDA TYPET| 00000600: 41 42 4C 45 2C 59 00 1A 0A 7C 01 43 4D 50 20 23 |ABLE,Y...|.CMP #| 00000610: 31 3A 42 45 51 20 86 4D 45 44 00 61 0A 86 01 43 |1:BEQ .MED.a...C| 00000620: 4D 50 20 23 32 3A 42 45 51 20 44 B6 4F 4C 3A 43 |MP #2:BEQ D.OL:C| 00000630: 4D 50 20 23 33 3A 42 45 51 20 44 5A 45 52 4F 3A |MP #3:BEQ DZERO:| 00000640: 43 4D 50 20 23 34 3A 42 45 51 20 44 49 4E 44 58 |CMP #4:BEQ DINDX| 00000650: 3A 43 4D 50 20 23 35 3A 42 45 51 20 44 49 4E 44 |:CMP #5:BEQ DIND| 00000660: 59 00 A9 0A 90 01 43 4D 50 20 23 36 3A 42 45 51 |Y.....CMP #6:BEQ| 00000670: 20 44 5A 45 52 4F 58 3A 43 4D 50 20 23 37 3A 42 | DZEROX:CMP #7:B| 00000680: 45 51 20 44 B6 4F 4C 58 3A 43 4D 50 20 23 38 3A |EQ D.OLX:CMP #8:| 00000690: 42 45 51 20 44 B6 4F 4C 59 3A 43 4D 50 20 23 39 |BEQ D.OLY:CMP #9| 000006A0: 3A 42 45 51 20 44 52 45 4C 00 C3 0A 9A 01 43 4D |:BEQ DREL.....CM| 000006B0: 50 20 23 31 30 3A 42 45 51 20 4A 44 4A 55 4D 50 |P #10:BEQ JDJUMP| 000006C0: 49 4E 44 00 05 0B A4 01 4A 53 52 20 44 4F 91 45 |IND.....JSR DO.E| 000006D0: 3A 4A 53 52 20 43 4F 4D 58 3A 4A 4D 50 20 41 4C |:JSR COMX:JMP AL| 000006E0: 4C 44 91 45 3B 20 46 41 4C 4C AB 54 48 52 4F 55 |LD.E; FALL.THROU| 000006F0: 47 48 20 A4 20 54 59 50 45 20 31 31 20 28 5A 45 |GH . TYPE 11 (ZE| 00000700: 52 4F 2C 58 29 00 4A 0B AE 01 86 4D 45 44 20 4C |RO,X).J....MED L| 00000710: 44 41 20 23 22 23 3A 4A 53 52 20 50 52 49 4E 54 |DA #"#:JSR PRINT| 00000720: 3A 4A 53 52 20 44 4F 4F 4E 45 3A 4A 4D 50 20 41 |:JSR DOONE:JMP A| 00000730: 4C 4C 44 4F 4E 45 3B 20 49 4D 4D 45 44 49 41 54 |LLDONE; IMMEDIAT| 00000740: 45 20 28 54 59 50 45 20 31 29 00 8F 0B B8 01 44 |E (TYPE 1).....D| 00000750: B6 4F 4C 20 4A 53 52 20 44 4F 54 57 4F 3A 4A 4D |.OL JSR DOTWO:JM| 00000760: 50 20 41 4C 4C 44 91 45 3A 4A 44 4A 55 4D 50 49 |P ALLD.E:JDJUMPI| 00000770: 4E 44 20 4A 4D 50 20 44 4A 55 4D 50 49 4E 44 3B |ND JMP DJUMPIND;| 00000780: B6 4F 4C 55 54 45 20 28 54 59 50 45 20 32 29 00 |.OLUTE (TYPE 2).| 00000790: C0 0B C2 01 44 5A 45 52 4F 20 4A 53 52 20 44 4F |....DZERO JSR DO| 000007A0: 91 45 3A 4A 4D 50 20 41 4C 4C 44 91 45 3B 20 5A |.E:JMP ALLD.E; Z| 000007B0: 45 52 4F 20 50 47 20 20 28 54 59 50 45 20 33 29 |ERO PG (TYPE 3)| 000007C0: 00 0B 0C CC 01 44 49 4E 44 58 20 4A 53 52 20 4C |.....DINDX JSR L| 000007D0: 45 50 41 52 3A 4A 53 52 20 44 4F 91 45 3A 4A 53 |EPAR:JSR DO.E:JS| 000007E0: 52 20 43 4F 4D 58 3A 4A 53 52 20 52 49 50 41 52 |R COMX:JSR RIPAR| 000007F0: 3A 4A 4D 50 20 41 4C 4C 44 91 45 3B 20 49 4E 44 |:JMP ALLD.E; IND| 00000800: 2E 58 20 28 54 59 50 45 20 34 29 00 57 0C D6 01 |.X (TYPE 4).W...| 00000810: 44 49 4E 44 59 20 4A 53 52 20 4C 45 50 41 52 3A |DINDY JSR LEPAR:| 00000820: 4A 53 52 20 44 4F 91 45 3A 4A 53 52 20 52 49 50 |JSR DO.E:JSR RIP| 00000830: 41 52 3A 4A 53 52 20 43 4F 4D 59 3A 4A 4D 50 20 |AR:JSR COMY:JMP | 00000840: 41 4C 4C 44 91 45 3B 20 49 4E 44 2E 20 59 20 28 |ALLD.E; IND. Y (| 00000850: 54 59 50 45 20 35 29 00 90 0C E0 01 44 5A 45 52 |TYPE 5).....DZER| 00000860: 4F 58 20 4A 53 52 20 44 4F 91 45 3A 4A 53 52 20 |OX JSR DO.E:JSR | 00000870: 43 4F 4D 58 3A 4A 4D 50 20 41 4C 4C 44 91 45 3B |COMX:JMP ALLD.E;| 00000880: 20 5A 45 52 4F 20 58 20 28 54 59 50 45 20 36 29 | ZERO X (TYPE 6)| 00000890: 00 CB 0C EA 01 44 B6 4F 4C 58 20 4A 53 52 20 44 |.....D.OLX JSR D| 000008A0: 4F 54 57 4F 3A 4A 53 52 20 43 4F 4D 58 3A 4A 4D |OTWO:JSR COMX:JM| 000008B0: 50 20 41 4C 4C 44 91 45 3B 20 B6 4F 4C 55 54 45 |P ALLD.E; .OLUTE| 000008C0: 20 58 20 28 54 59 50 45 20 37 29 00 06 0D F4 01 | X (TYPE 7).....| 000008D0: 44 B6 4F 4C 59 20 4A 53 52 20 44 4F 54 57 4F 3A |D.OLY JSR DOTWO:| 000008E0: 4A 53 52 20 43 4F 4D 59 3A 4A 4D 50 20 41 4C 4C |JSR COMY:JMP ALL| 000008F0: 44 91 45 3B 20 B6 4F 4C 55 54 45 20 59 20 28 54 |D.E; .OLUTE Y (T| 00000900: 59 50 45 20 38 29 00 33 0D FE 01 44 52 45 4C 20 |YPE 8).3...DREL | 00000910: 4A 53 52 20 47 42 3A 42 50 4C 20 52 45 4C 50 4C |JSR GB:BPL RELPL| 00000920: 3B 20 52 45 4C 41 54 49 56 45 20 28 54 59 50 45 |; RELATIVE (TYPE| 00000930: 20 38 29 00 5E 0D 08 02 53 54 41 20 57 B0 4B 3A | 8).^...STA W.K:| 00000940: 4C 44 41 20 23 24 46 45 3A 53 45 43 3A 53 42 43 |LDA #$FE:SEC:SBC| 00000950: 20 57 B0 4B 3A 53 54 41 20 57 B0 4B AA 31 00 7F | W.K:STA W.K.1..| 00000960: 0D 12 02 53 45 43 3A 4C 44 41 20 53 41 3A 53 42 |...SEC:LDA SA:SB| 00000970: 43 20 57 B0 4B AA 31 3A 53 54 41 20 57 B0 4B 00 |C W.K.1:STA W.K.| 00000980: A5 0D 1C 02 4C 44 41 20 53 41 AA 31 3A 53 42 43 |....LDA SA.1:SBC| 00000990: 20 23 24 30 30 3A 54 41 58 3A 4A 53 52 20 50 52 | #$00:TAX:JSR PR| 000009A0: 4E 54 4E 55 4D 00 DC 0D 26 02 4C 44 58 20 57 B0 |NTNUM...&.LDX W.| 000009B0: 4B 3A 4A 53 52 20 50 52 4E 54 4E 55 4D 3A 4A 53 |K:JSR PRNTNUM:JS| 000009C0: 52 20 49 4E 43 53 41 3A 4A 53 52 20 49 4E 43 53 |R INCSA:JSR INCS| 000009D0: 41 3A 4A 4D 50 20 41 4C 4C 44 91 45 00 10 0E 30 |A:JMP ALLD.E...0| 000009E0: 02 52 45 4C 50 4C 20 43 4C 43 3A 41 44 43 20 53 |.RELPL CLC:ADC S| 000009F0: 41 3A 41 44 43 20 23 32 3A 53 54 41 20 57 B0 4B |A:ADC #2:STA W.K| 00000A00: 3A 4C 44 41 20 23 30 3A 41 44 43 20 53 41 AA 31 |:LDA #0:ADC SA.1| 00000A10: 00 24 0E 3A 02 54 41 58 3A 4A 53 52 20 50 52 4E |.$.:.TAX:JSR PRN| 00000A20: 54 4E 55 4D 00 5B 0E 44 02 4C 44 58 20 57 B0 4B |TNUM.[.D.LDX W.K| 00000A30: 3A 4A 53 52 20 50 52 4E 54 4E 55 4D 3A 4A 53 52 |:JSR PRNTNUM:JSR| 00000A40: 20 49 4E 43 53 41 3A 4A 53 52 20 49 4E 43 53 41 | INCSA:JSR INCSA| 00000A50: 3A 4A 4D 50 20 41 4C 4C 44 91 45 00 A6 0E 4E 02 |:JMP ALLD.E...N.| 00000A60: 44 4A 55 4D 50 49 4E 44 20 4A 53 52 20 4C 45 50 |DJUMPIND JSR LEP| 00000A70: 41 52 3A 4A 53 52 20 44 4F 54 57 4F 3A 4A 53 52 |AR:JSR DOTWO:JSR| 00000A80: 20 52 49 50 41 52 3A 4A 4D 50 20 41 4C 4C 44 91 | RIPAR:JMP ALLD.| 00000A90: 45 3B 20 49 4E 44 2E 20 4A 55 4D 50 20 28 54 59 |E; IND. JUMP (TY| 00000AA0: 50 45 20 31 30 29 00 E9 0E 58 02 41 4C 4C 44 91 |PE 10)...X.ALLD.| 00000AB0: 45 20 4A 53 52 20 50 52 4E 54 43 52 3A 4C 44 58 |E JSR PRNTCR:LDX| 00000AC0: 20 42 41 42 46 4C 41 47 3A 43 50 58 20 23 31 3A | BABFLAG:CPX #1:| 00000AD0: 42 43 43 20 41 4C 4C 44 31 3A 50 4C 41 3A 50 4C |BCC ALLD1:PLA:PL| 00000AE0: 41 3A 4A 4D 50 20 46 49 4E 00 FD 0E 62 02 41 4C |A:JMP FIN...b.AL| 00000AF0: 4C 44 31 20 4A 4D 50 20 A1 42 59 54 45 00 3C 0F |LD1 JMP .BYTE.<.| 00000B00: 6C 02 44 4F 91 45 20 4A 53 52 20 47 42 3A 54 41 |l.DO.E JSR GB:TA| 00000B10: 58 3A 4C 44 41 20 23 30 3A 4A 53 52 20 50 52 4E |X:LDA #0:JSR PRN| 00000B20: 54 4E 55 4D 3A 4A 53 52 20 49 4E 43 53 41 3A 4A |TNUM:JSR INCSA:J| 00000B30: 53 52 20 49 4E 43 53 41 3A 52 54 53 00 63 0F 76 |SR INCSA:RTS.c.v| 00000B40: 02 44 4F 54 57 4F 20 4A 53 52 20 47 42 3A 50 48 |.DOTWO JSR GB:PH| 00000B50: 41 3A 4A 53 52 20 47 42 3A 54 41 58 3A 4C 44 41 |A:JSR GB:TAX:LDA| 00000B60: 20 23 30 00 A9 0F 80 02 4A 53 52 20 50 52 4E 54 | #0.....JSR PRNT| 00000B70: 4E 55 4D 3A 50 4C 41 3A 54 41 58 3A 4A 53 52 20 |NUM:PLA:TAX:JSR | 00000B80: 50 52 4E 54 4E 55 4D 3A 4A 53 52 20 49 4E 43 53 |PRNTNUM:JSR INCS| 00000B90: 41 3A 4A 53 52 20 49 4E 43 53 41 3A 4A 53 52 20 |A:JSR INCSA:JSR | 00000BA0: 49 4E 43 53 41 3A 52 54 53 00 D6 0F 8A 02 43 4F |INCSA:RTS.....CO| 00000BB0: 4D 58 20 4C 44 41 20 23 22 2C 3A 4A 53 52 20 50 |MX LDA #",:JSR P| 00000BC0: 52 49 4E 54 3A 4C 44 41 20 23 22 58 3A 4A 53 52 |RINT:LDA #"X:JSR| 00000BD0: 20 99 3A 52 54 53 00 03 10 94 02 43 4F 4D 59 20 | .:RTS.....COMY | 00000BE0: 4C 44 41 20 23 22 2C 3A 4A 53 52 20 50 52 49 4E |LDA #",:JSR PRIN| 00000BF0: 54 3A 4C 44 41 20 23 22 59 3A 4A 53 52 20 99 3A |T:LDA #"Y:JSR .:| 00000C00: 52 54 53 00 23 10 9E 02 4C 45 50 41 52 20 4C 44 |RTS.#...LEPAR LD| 00000C10: 41 20 23 22 28 3A 4A 53 52 20 50 52 49 4E 54 3A |A #"(:JSR PRINT:| 00000C20: 52 54 53 00 43 10 A8 02 52 49 50 41 52 20 4C 44 |RTS.C...RIPAR LD| 00000C30: 41 20 23 22 29 3A 4A 53 52 20 50 52 49 4E 54 3A |A #"):JSR PRINT:| 00000C40: 52 54 53 00 89 10 B2 02 47 42 20 49 4E 43 20 50 |RTS.....GB INC P| 00000C50: 4D 45 4D 3A 42 4E 45 20 44 49 4E 43 50 31 3A 49 |MEM:BNE DINCP1:I| 00000C60: 4E 43 20 50 4D 45 4D AA 31 3B 52 45 50 4C 41 43 |NC PMEM.1;REPLAC| 00000C70: 45 53 20 43 91 56 45 4E 54 49 91 41 4C 20 43 48 |ES C.VENTI.AL CH| 00000C80: 41 52 49 4E AD 44 49 53 4B 00 D3 10 BC 02 44 49 |ARIN.DISK.....DI| 00000C90: 4E 43 50 31 20 53 54 59 20 59 3A 4C 44 59 20 23 |NCP1 STY Y:LDY #| 00000CA0: 30 3A 4C 44 41 20 28 50 4D 45 4D 29 2C 59 3A 50 |0:LDA (PMEM),Y:P| 00000CB0: 48 50 3A 4C 44 59 20 59 3A 50 4C 50 3A 52 54 53 |HP:LDY Y:PLP:RTS| 00000CC0: 3B 20 94 20 53 54 41 54 55 53 20 52 45 47 49 53 |; . STATUS REGIS| 00000CD0: 54 45 52 00 13 11 C6 02 44 49 53 4D 45 53 53 20 |TER.....DISMESS | 00000CE0: 2E 42 59 54 45 20 22 44 49 53 41 53 53 45 4D 42 |.BYTE "DISASSEMB| 00000CF0: 4C 59 20 53 54 41 52 54 20 41 44 44 52 45 53 53 |LY START ADDRESS| 00000D00: 20 28 44 45 43 49 4D 41 4C 29 22 3A 2E 42 59 54 | (DECIMAL)":.BYT| 00000D10: 45 20 30 00 25 11 D0 02 2E 46 49 4C 45 20 44 54 |E 0.%....FILE DT| 00000D20: 41 42 4C 45 53 00 00 00 |ABLES... |
......; DIS .. DISASSEMBLER.(..... 17000
.I...LDA #.DISMESS:STA TEMP:LDA #.DISMES
S:STA TEMP.1:JSR PRNTMESS...(.JSR PRNTCR
:LDA #$3F:JSR ....2.STARTDIS LDA #1:STA
HXFLAG:LDY #0:STY Y...<.DTM0 JSR CHARIN;
.. . START ADDRESS (DECIMA
L) .....F.BEQ DTM0...P.CMP #$0D; CARRIAG
E ..'.Z.BEQ DMO.C.D.LDY Y:STA LABEL,Y:JS
R ..Z.N.INY:STY Y:JMP DTM0...X.DMO LDX Y
:DEX:DEC LABEL,X:LDY Y:LDA #0:STA LABEL,
Y:JSR PRNTCR.U...LDA #.LABEL:STA TEMP:LD
A #.LABEL:STA TEMP.1:JSR EDEC.....LDY RE
SULT:STY PMEM.....STY SA:LDA RESULT.1:ST
A SA.1:STA PMEM.1.Y. .; NOW ADJUST .ED A
DDRESS (SA) UP BY 1 (LOWERED IN LINE 120
).W...INC SA:BNE .BYTE:INC SA.1.....;...
........... PULL IN A BYTE . SEE . IT IS
A EID OPCODE......BYTE JSR .KEY:JSR GB:
STA FIC;(. AS INDEX)...H.TAY:LDA MTABLE,
Y:BNE DM.E:JSR PRNTSA:JSR PRNTSPACE.H.R.
LDX FIC:LDA #0:JSR PRNTNUM:JSR PRNTSPACE
.....LDA #$3F:JSR .:JSR INCSA:JMP ALLD.E
; . A EID OPCODE.....; .INUE ., FOUND A
EID OPCODE..........DM.E STA W.K:LDY #0:
STY PARRAY.1:ASL:STA PARRAY:ROL PARRAY.1
.....; MULTIPLY Y BY THREE.
V...LDA W.K:CLC:ADC PARRAY:STA PARRAY:LD
A #0:ADC PARRAY.1:STA PARRAY.1.}...;
ADD THIS . W.DTABLE.....CLC:LD
A #.W.DTABLE:ADC PARRAY:STA PARRAY.W.".L
DA #.W.DTABLE:ADC PARRAY.1:STA PARRAY.1.
..,.JSR PRNTSA:JSR PRNTSPACE...6.LDY #0:
LDA (PARRAY),Y:JSR .:INY.5.@.LDA (PARRAY
),Y:JSR .:INY.\.J.LDA (PARRAY),Y:JSR .:J
SR PRNTSPACE...T.LDY FIC:LDA MTABLE,Y; 0
MEANS NO ARGUMENT(INDIRECT . ACCUMULA.R
MODES).P.^.TAY:DEY:LDA TYPETABLE,Y:BNE
BRANCHES...H.JSR INCSA:JMP ALLD.E...R.BR
ANCHES LDA TYPETABLE,Y...|.CMP #1:BEQ .M
ED.A...CMP #2:BEQ D.OL:CMP #3:BEQ DZERO:
CMP #4:BEQ DINDX:CMP #5:BEQ DINDY.....CM
P #6:BEQ DZEROX:CMP #7:BEQ D.OLX:CMP #8:
BEQ D.OLY:CMP #9:BEQ DREL.C...CMP #10:BE
Q JDJUMPIND.....JSR DO.E:JSR COMX:JMP AL
LD.E; FALL.THROUGH . TYPE 11 (ZERO,X).J.
...MED LDA #"#:JSR PRINT:JSR DOONE:JMP A
LLDONE; IMMEDIATE (TYPE 1).....D.OL JSR
DOTWO:JMP ALLD.E:JDJUMPIND JMP DJUMPIND;
.OLUTE (TYPE 2)...B.DZERO JSR DO.E:JMP A
LLD.E; ZERO PG (TYPE 3)...L.DINDX JSR L
EPAR:JSR DO.E:JSR COMX:JSR RIPAR:JMP ALL
D.E; IND.X (TYPE 4).W.V.DINDY JSR LEPAR:
JSR DO.E:JSR RIPAR:JSR COMY:JMP ALLD.E;
IND. Y (TYPE 5).....DZEROX JSR DO.E:JSR
COMX:JMP ALLD.E; ZERO X (TYPE 6).K...D.O
LX JSR DOTWO:JSR COMX:JMP ALLD.E; .OLUTE
X (TYPE 7).....D.OLY JSR DOTWO:JSR COMY
:JMP ALLD.E; .OLUTE Y (TYPE 8).3...DREL
JSR GB:BPL RELPL; RELATIVE (TYPE 8).^...
STA W.K:LDA #$FE:SEC:SBC W.K:STA W.K.1.
...SEC:LDA SA:SBC W.K.1:STA W.K.....LDA
SA.1:SBC #$00:TAX:JSR PRNTNUM...&.LDX W.
K:JSR PRNTNUM:JSR INCSA:JSR INCSA:JMP AL
LD.E...0.RELPL CLC:ADC SA:ADC #2:STA W.K
:LDA #0:ADC SA.1.$.:.TAX:JSR PRNTNUM.[.D
.LDX W.K:JSR PRNTNUM:JSR INCSA:JSR INCSA
:JMP ALLD.E...N.DJUMPIND JSR LEPAR:JSR D
OTWO:JSR RIPAR:JMP ALLD.E; IND. JUMP (TY
PE 10)...X.ALLD.E JSR PRNTCR:LDX BABFLAG
:CPX #1:BCC ALLD1:PLA:PLA:JMP FIN...B.AL
LD1 JMP .BYTE.<.L.DO.E JSR GB:TAX:LDA #0
:JSR PRNTNUM:JSR INCSA:JSR INCSA:RTS.C.V
.DOTWO JSR GB:PHA:JSR GB:TAX:LDA #0.....
JSR PRNTNUM:PLA:TAX:JSR PRNTNUM:JSR INCS
A:JSR INCSA:JSR INCSA:RTS.V...COMX LDA #
",:JSR PRINT:LDA #"X:JSR .:RTS.....COMY
LDA #",:JSR PRINT:LDA #"Y:JSR .:RTS.#...
LEPAR LDA #"(:JSR PRINT:RTS.C...RIPAR LD
A #"):JSR PRINT:RTS.....GB INC PMEM:BNE
DINCP1:INC PMEM.1;REPLACES C.VENTI.AL CH
ARIN.DISK.S...DINCP1 STY Y:LDY #0:LDA (P
MEM),Y:PHP:LDY Y:PLP:RTS; . STATUS REGIS
TER...F.DISMESS .BYTE "DISASSEMBLY START
ADDRESS (DECIMAL)":.BYTE 0.%.P..FILE DT
ABLES...
> CLICK IMAGE PREVIEW FOR FULL MODAL