> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 9E 39 39 39 00 13 08 14 00 2E |.......999......|
00000010: 4D 45 4D 00 20 08 19 00 4E 54 53 43 20 B2 20 30 |MEM. ...NTSC . 0|
00000020: 00 37 08 1E 00 AC B2 24 43 30 30 30 3A 2E 4F 46 |.7.....$C000:.OF|
00000030: 46 20 24 30 32 30 30 00 43 08 28 00 4A 53 52 20 |F $0200.C.(.JSR |
00000040: 49 4E 49 00 71 08 50 00 4D 41 49 4E 33 20 4C 44 |INI.q.P.MAIN3 LD|
00000050: 58 20 23 35 3A AB 20 4A 53 52 20 52 42 3A 53 54 |X #5:. JSR RB:ST|
00000060: 41 20 24 46 41 2C 58 3A 44 45 58 3A 42 4E 45 20 |A $FA,X:DEX:BNE |
00000070: AB 00 7D 08 64 00 AA 20 53 54 58 20 31 00 8B 08 |..}.d.. STX 1...|
00000080: 6E 00 4A 53 52 20 52 45 4C 4F 43 00 D0 08 90 01 |n.JSR RELOC.....|
00000090: 4D 41 49 4E 34 20 54 58 41 3A 4C 44 58 20 23 34 |MAIN4 TXA:LDX #4|
000000A0: 3A AB 20 53 54 41 20 24 41 36 2C 58 3A 44 45 58 |:. STA $A6,X:DEX|
000000B0: 3A 42 50 4C 20 AB 3A AB 20 4A 53 52 20 4D 31 3A |:BPL .:. JSR M1:|
000000C0: 49 4E 58 3A 42 43 43 20 4D 32 3A 42 45 51 20 AA |INX:BCC M2:BEQ .|
000000D0: 00 F3 08 9A 01 4A 53 52 20 4D 31 3A AA 20 52 4F |.....JSR M1:. RO|
000000E0: 4C 20 24 41 38 3A 52 4F 4C 20 24 41 39 3A 42 50 |L $A8:ROL $A9:BP|
000000F0: 4C 20 AB 00 35 09 A4 01 4D 32 20 53 45 43 3A 4C |L ..5...M2 SEC:L|
00000100: 44 41 20 24 46 45 3A 53 42 43 20 24 41 38 3A 53 |DA $FE:SBC $A8:S|
00000110: 54 41 20 24 46 45 3A 4C 44 41 20 24 46 46 3A 53 |TA $FE:LDA $FF:S|
00000120: 42 43 20 24 41 39 3A 53 54 41 20 24 46 46 3A 4A |BC $A9:STA $FF:J|
00000130: 53 52 20 4D 33 00 64 09 B8 01 4C 44 41 20 23 31 |SR M3.d...LDA #1|
00000140: 3A 4A 53 52 20 4D 31 3A 42 43 53 20 4D 35 3A 41 |:JSR M1:BCS M5:A|
00000150: 44 43 20 23 31 3A 49 4E 43 20 24 41 41 3A 42 4E |DC #1:INC $AA:BN|
00000160: 45 20 4D 34 00 8A 09 C2 01 4D 35 20 4A 53 52 20 |E M4.....M5 JSR |
00000170: 4D 31 3A 42 43 43 20 AA 3A 4A 53 52 20 4D 31 3A |M1:BCC .:JSR M1:|
00000180: 52 4F 4C 3A 42 50 4C 20 4D 35 00 C0 09 CC 01 AA |ROL:BPL M5......|
00000190: 20 41 44 43 20 23 32 3A 4D 34 20 53 54 41 20 24 | ADC #2:M4 STA $|
000001A0: 41 38 3A 4A 53 52 20 4D 31 3A 52 4F 4C 20 24 41 |A8:JSR M1:ROL $A|
000001B0: 41 3A 4A 53 52 20 4D 31 3A 52 4F 4C 20 24 41 41 |A:JSR M1:ROL $AA|
000001C0: 00 D9 09 D6 01 4D 37 20 4C 44 59 20 24 41 41 3A |.....M7 LDY $AA:|
000001D0: 4C 44 58 20 54 42 31 2C 59 00 00 0A E0 01 AB 20 |LDX TB1,Y...... |
000001E0: 4A 53 52 20 4D 31 3A 52 4F 4C 20 24 41 36 3A 52 |JSR M1:ROL $A6:R|
000001F0: 4F 4C 20 24 41 37 3A 44 45 58 3A 42 4E 45 20 AB |OL $A7:DEX:BNE .|
00000200: 00 3F 0A EA 01 4C 44 41 20 24 41 41 3A AF 20 23 |.?...LDA $AA:. #|
00000210: 33 3A 42 45 51 20 4D 36 3A 49 4E 43 20 24 41 36 |3:BEQ M6:INC $A6|
00000220: 3A 42 4E 45 20 AA 3A 49 4E 43 20 24 41 37 3A AA |:BNE .:INC $A7:.|
00000230: 20 44 45 43 20 24 41 41 3A 42 50 4C 20 4D 37 00 | DEC $AA:BPL M7.|
00000240: 57 0A 08 02 4D 36 20 4A 53 52 20 4D 39 3A 42 4D |W...M6 JSR M9:BM|
00000250: 49 20 4D 41 49 4E 34 00 91 0A 12 02 4D 31 30 20 |I MAIN4.....M10 |
00000260: 4C 44 59 20 24 46 45 3A 42 45 51 20 4D 32 30 3A |LDY $FE:BEQ M20:|
00000270: AB 20 44 45 43 20 24 46 45 3A 50 48 41 3A 4A 53 |. DEC $FE:PHA:JS|
00000280: 52 20 4D 31 31 3A 53 54 41 20 24 46 42 3A 50 4C |R M11:STA $FB:PL|
00000290: 41 00 BD 0A 1C 02 53 45 43 3A 2E 42 59 54 20 24 |A.....SEC:.BYT $|
000002A0: 32 34 3A 4D 31 20 43 4C 43 3A 52 4F 4C 20 24 46 |24:M1 CLC:ROL $F|
000002B0: 42 3A 42 45 51 20 4D 31 30 3A 52 54 53 00 DB 0A |B:BEQ M10:RTS...|
000002C0: 26 02 4D 32 30 20 43 50 59 20 24 46 46 3A 44 45 |&.M20 CPY $FF:DE|
000002D0: 43 20 24 46 46 3A 42 43 43 20 AB 00 F7 0A 30 02 |C $FF:BCC ....0.|
000002E0: 50 4C 41 3A 50 4C 41 3A 44 45 43 20 31 3A 4A 4D |PLA:PLA:DEC 1:JM|
000002F0: 50 20 4D 41 49 4E 33 00 2E 0B 3A 02 4D 39 20 4C |P MAIN3...:.M9 L|
00000300: 44 41 20 24 46 43 3A 41 44 43 20 24 41 36 3A 53 |DA $FC:ADC $A6:S|
00000310: 54 41 20 24 46 37 3A 4C 44 41 20 24 46 44 3A 41 |TA $F7:LDA $FD:A|
00000320: 44 43 20 24 41 37 3A 53 54 41 20 24 46 38 00 73 |DC $A7:STA $F8.s|
00000330: 0B 4E 02 4D 33 20 4C 44 59 20 24 41 38 3A 42 45 |.N.M3 LDY $A8:BE|
00000340: 51 20 4D 31 32 3A 4C 44 41 20 24 46 43 3A 53 45 |Q M12:LDA $FC:SE|
00000350: 43 3A 53 42 43 20 24 41 38 3A 53 54 41 20 24 46 |C:SBC $A8:STA $F|
00000360: 43 3A 42 43 53 20 4D 31 35 3A AB 20 44 45 43 20 |C:BCS M15:. DEC |
00000370: 24 46 44 00 A1 0B 58 02 4D 31 35 20 44 45 59 3A |$FD...X.M15 DEY:|
00000380: 4A 53 52 20 4D 38 3A 53 54 41 20 28 24 46 43 29 |JSR M8:STA ($FC)|
00000390: 2C 59 3A 43 50 59 20 23 30 3A 42 4E 45 20 4D 31 |,Y:CPY #0:BNE M1|
000003A0: 35 00 C3 0B 62 02 4D 31 32 20 44 45 43 20 24 46 |5...b.M12 DEC $F|
000003B0: 38 3A 44 45 43 20 24 41 39 3A 42 50 4C 20 AB 3A |8:DEC $A9:BPL .:|
000003C0: 52 54 53 00 E6 0B 76 02 4D 38 20 54 58 41 3A 42 |RTS...v.M8 TXA:B|
000003D0: 4E 45 20 4D 31 31 3A 4C 44 41 20 28 24 46 37 29 |NE M11:LDA ($F7)|
000003E0: 2C 59 3A 52 54 53 00 19 0C 80 02 4D 31 31 20 44 |,Y:RTS.....M11 D|
000003F0: 45 43 20 31 3A 4A 53 52 20 52 42 3A 44 45 43 20 |EC 1:JSR RB:DEC |
00000400: 24 44 30 32 30 3A 49 4E 43 20 24 44 30 32 30 3A |$D020:INC $D020:|
00000410: 49 4E 43 20 31 3A 52 54 53 00 30 0C 85 02 AC B2 |INC 1:RTS.0.....|
00000420: 24 43 35 30 30 3A 2E 4F 46 46 20 24 30 31 30 30 |$C500:.OFF $0100|
00000430: 00 4D 0C 8A 02 54 42 31 20 2E 42 59 54 20 35 2C |.M...TB1 .BYT 5,|
00000440: 32 2C 32 2C 33 2C 34 2C 32 2C 32 2C 32 00 77 0C |2,2,3,4,2,2,2.w.|
00000450: BC 02 9F 20 4C 44 41 20 23 38 3A 4A 53 52 20 24 |... LDA #8:JSR $|
00000460: 46 46 42 31 3A 4C 44 41 20 23 24 46 46 3A 4A 4D |FFB1:LDA #$FF:JM|
00000470: 50 20 24 46 46 39 33 00 97 0C C6 02 54 58 54 31 |P $FF93.....TXT1|
00000480: 20 2E 42 59 54 20 22 4D 22 2C 22 2D 22 2C 22 45 | .BYT "M","-","E|
00000490: 22 2C 24 43 30 2C 37 00 C8 0C D0 02 52 42 20 53 |",$C0,7.....RB S|
000004A0: 54 58 20 24 41 34 3A 52 42 34 20 4C 44 58 20 24 |TX $A4:RB4 LDX $|
000004B0: 41 33 3A 53 45 43 3A 42 49 54 20 24 44 44 30 30 |A3:SEC:BIT $DD00|
000004C0: 3A 42 56 43 20 52 42 35 00 F4 0C DA 02 AB 20 4C |:BVC RB5...... L|
000004D0: 44 41 20 24 44 30 31 32 3A 52 42 32 20 53 42 43 |DA $D012:RB2 SBC|
000004E0: 20 23 30 3A 42 43 43 20 AA 3A AF 20 23 37 3A 42 | #0:BCC .:. #7:B|
000004F0: 45 51 20 AB 00 04 0D E4 02 AA 20 53 54 58 20 24 |EQ ....... STX $|
00000500: 44 44 30 30 00 1A 0D EE 02 2E 8B 20 4E 54 53 43 |DD00....... NTSC|
00000510: 3A 20 2E 42 59 54 20 24 32 34 00 2E 0D F8 02 2E |: .BYT $24......|
00000520: 45 4C 53 45 3A 20 2E 42 59 54 20 24 41 39 00 36 |ELSE: .BYT $A9.6|
00000530: 0D FD 02 2E 8B 45 00 41 0D 02 03 2E 42 59 54 20 |.....E.A....BYT |
00000540: 30 00 84 0D 0C 03 54 58 41 3A AF 20 23 37 3A 53 |0.....TXA:. #7:S|
00000550: 54 41 20 24 44 44 30 30 3A 4C 44 41 20 24 44 44 |TA $DD00:LDA $DD|
00000560: 30 30 3A 4C 53 52 3A 4C 53 52 3A 45 B0 20 24 44 |00:LSR:LSR:E. $D|
00000570: 44 30 30 3A 4C 53 52 3A 4C 53 52 3A 45 B0 20 24 |D00:LSR:LSR:E. $|
00000580: 44 44 30 30 00 B3 0D 16 03 4C 53 52 3A 4C 53 52 |DD00.....LSR:LSR|
00000590: 3A 52 42 33 20 45 B0 20 23 30 3A 45 B0 20 24 44 |:RB3 E. #0:E. $D|
000005A0: 44 30 30 3A 4C 44 58 20 24 41 34 3A 52 42 36 20 |D00:LDX $A4:RB6 |
000005B0: 52 54 53 00 DD 0D 20 03 52 42 35 20 42 49 54 20 |RTS... .RB5 BIT |
000005C0: 24 44 44 30 30 3A 42 56 43 20 52 42 35 3A 4A 53 |$DD00:BVC RB5:JS|
000005D0: 52 20 52 42 36 3A 42 4D 49 20 52 42 34 00 F1 0D |R RB6:BMI RB4...|
000005E0: 2A 03 50 4C 41 3A 50 4C 41 3A 43 4C 43 3A 52 54 |*.PLA:PLA:CLC:RT|
000005F0: 53 00 22 0E 10 04 49 4E 49 20 4A 53 52 20 9F 3A |S."...INI JSR .:|
00000600: 4C 44 41 20 23 22 49 22 3A 4A 53 52 20 24 46 46 |LDA #"I":JSR $FF|
00000610: 41 38 3A 4A 53 52 20 24 46 46 41 45 3A 4A 53 52 |A8:JSR $FFAE:JSR|
00000620: 20 9F 00 5E 0E 15 04 4C 44 58 20 23 24 46 42 3A | ..^...LDX #$FB:|
00000630: AB 20 4C 44 41 20 54 58 54 31 AB 24 46 42 2C 58 |. LDA TXT1.$FB,X|
00000640: 3A 4A 53 52 20 24 46 46 41 38 3A 49 4E 58 3A 42 |:JSR $FFA8:INX:B|
00000650: 4E 45 20 AB 3A 4A 53 52 20 24 46 33 46 36 00 9E |NE .:JSR $F3F6..|
00000660: 0E 1A 04 4C 44 41 20 24 44 30 31 31 3A AF 20 23 |...LDA $D011:. #|
00000670: 24 37 3A 41 44 43 20 23 24 32 46 3A 53 54 41 20 |$7:ADC #$2F:STA |
00000680: 52 42 32 AA 31 3A 4C 44 41 20 24 44 44 30 30 3A |RB2.1:LDA $DD00:|
00000690: AF 20 23 37 3A 53 54 41 20 24 44 44 30 30 00 D0 |. #7:STA $DD00..|
000006A0: 0E 1F 04 B0 41 20 23 24 32 30 3A 53 54 41 20 24 |....A #$20:STA $|
000006B0: 41 33 3A 4C 53 52 3A 4C 53 52 3A 45 B0 20 24 41 |A3:LSR:LSR:E. $A|
000006C0: 33 3A AF 20 23 37 3A 53 54 41 20 52 42 33 AA 31 |3:. #7:STA RB3.1|
000006D0: 00 DE 0E 24 04 53 54 58 20 24 44 30 31 35 00 FC |...$.STX $D015..|
000006E0: 0E 2E 04 AB 20 42 49 54 20 24 44 44 30 30 3A 42 |.... BIT $DD00:B|
000006F0: 56 53 20 AB 3A 53 45 49 3A 52 54 53 00 1B 0F 38 |VS .:SEI:RTS...8|
00000700: 04 52 45 4C 4F 43 20 4C 44 41 20 24 46 43 3A 43 |.RELOC LDA $FC:C|
00000710: 4C 43 3A 41 44 43 20 23 24 30 30 00 38 0F 42 04 |LC:ADC #$00.8.B.|
00000720: 42 43 53 20 46 44 49 4E 43 3A 52 45 53 55 4D 45 |BCS FDINC:RESUME|
00000730: 20 53 54 41 20 24 46 43 00 5D 0F 47 04 4C 44 41 | STA $FC.].G.LDA|
00000740: 20 24 46 44 3A 43 4C 43 3A 41 44 43 20 23 24 30 | $FD:CLC:ADC #$0|
00000750: 30 3A 53 54 41 20 24 46 44 3A 52 54 53 00 7A 0F |0:STA $FD:RTS.z.|
00000760: 4C 04 46 44 49 4E 43 20 49 4E 43 20 24 46 44 3A |L.FDINC INC $FD:|
00000770: 4A 4D 50 20 52 45 53 55 4D 45 00 00 00 |JMP RESUME... |
.......999......MEM. ...NTSC . 0.7.....$
C000:.OFF $0200.C.(.JSR INI.Q.P.MAIN3 LD
X #5:. JSR RB:STA $FA,X:DEX:BNE ..}.D..
STX 1...N.JSR RELOC.P...MAIN4 TXA:LDX #4
:. STA $A6,X:DEX:BPL .:. JSR M1:INX:BCC
M2:BEQ ......JSR M1:. ROL $A8:ROL $A9:BP
L ..5...M2 SEC:LDA $FE:SBC $A8:STA $FE:L
DA $FF:SBC $A9:STA $FF:JSR M3.D...LDA #1
:JSR M1:BCS M5:ADC #1:INC $AA:BNE M4...B
.M5 JSR M1:BCC .:JSR M1:ROL:BPL M5...L..
ADC #2:M4 STA $A8:JSR M1:ROL $AA:JSR M1
:ROL $AA.Y.V.M7 LDY $AA:LDX TB1,Y......
JSR M1:ROL $A6:ROL $A7:DEX:BNE ..?...LDA
$AA:. #3:BEQ M6:INC $A6:BNE .:INC $A7:.
DEC $AA:BPL M7.W...M6 JSR M9:BMI MAIN4.
....M10 LDY $FE:BEQ M20:. DEC $FE:PHA:JS
R M11:STA $FB:PLA.....SEC:.BYT $24:M1 CL
C:ROL $FB:BEQ M10:RTS...&.M20 CPY $FF:DE
C $FF:BCC ....0.PLA:PLA:DEC 1:JMP MAIN3.
..:.M9 LDA $FC:ADC $A6:STA $F7:LDA $FD:A
DC $A7:STA $F8.S.N.M3 LDY $A8:BEQ M12:LD
A $FC:SEC:SBC $A8:STA $FC:BCS M15:. DEC
$FD...X.M15 DEY:JSR M8:STA ($FC),Y:CPY #
0:BNE M15.C.B.M12 DEC $F8:DEC $A9:BPL .:
RTS...V.M8 TXA:BNE M11:LDA ($F7),Y:RTS..
...M11 DEC 1:JSR RB:DEC $D020:INC $D020:
INC 1:RTS.0.....$C500:.OFF $0100.M...TB1
.BYT 5,2,2,3,4,2,2,2.W.... LDA #8:JSR $
FFB1:LDA #$FF:JMP $FF93...F.TXT1 .BYT "M
","-","E",$C0,7.H.P.RB STX $A4:RB4 LDX $
A3:SEC:BIT $DD00:BVC RB5...Z.. LDA $D012
:RB2 SBC #0:BCC .:. #7:BEQ ....... STX $
DD00....... NTSC: .BYT $24......ELSE: .B
YT $A9.6.....E.A....BYT 0.....TXA:. #7:S
TA $DD00:LDA $DD00:LSR:LSR:E. $DD00:LSR:
LSR:E. $DD00.....LSR:LSR:RB3 E. #0:E. $D
D00:LDX $A4:RB6 RTS... .RB5 BIT $DD00:BV
C RB5:JSR RB6:BMI RB4...*.PLA:PLA:CLC:RT
S."...INI JSR .:LDA #"I":JSR $FFA8:JSR $
FFAE:JSR ..^...LDX #$FB:. LDA TXT1.$FB,X
:JSR $FFA8:INX:BNE .:JSR $F3F6.....LDA $
D011:. #$7:ADC #$2F:STA RB2.1:LDA $DD00:
. #7:STA $DD00.P....A #$20:STA $A3:LSR:L
SR:E. $A3:. #7:STA RB3.1...$.STX $D015..
.... BIT $DD00:BVS .:SEI:RTS...8.RELOC L
DA $FC:CLC:ADC #$00.8.B.BCS FDINC:RESUME
STA $FC.].G.LDA $FD:CLC:ADC #$00:STA $F
D:RTS.Z.L.FDINC INC $FD:JMP RESUME...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL