> 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 C2 08 |..}.d.. STX 1...|
00000080: 90 01 4D 41 49 4E 34 20 54 58 41 3A 4C 44 58 20 |..MAIN4 TXA:LDX |
00000090: 23 34 3A AB 20 53 54 41 20 24 41 36 2C 58 3A 44 |#4:. STA $A6,X:D|
000000A0: 45 58 3A 42 50 4C 20 AB 3A AB 20 4A 53 52 20 4D |EX:BPL .:. JSR M|
000000B0: 31 3A 49 4E 58 3A 42 43 43 20 4D 32 3A 42 45 51 |1:INX:BCC M2:BEQ|
000000C0: 20 AA 00 E5 08 9A 01 4A 53 52 20 4D 31 3A AA 20 | ......JSR M1:. |
000000D0: 52 4F 4C 20 24 41 38 3A 52 4F 4C 20 24 41 39 3A |ROL $A8:ROL $A9:|
000000E0: 42 50 4C 20 AB 00 27 09 A4 01 4D 32 20 53 45 43 |BPL ..'...M2 SEC|
000000F0: 3A 4C 44 41 20 24 46 45 3A 53 42 43 20 24 41 38 |:LDA $FE:SBC $A8|
00000100: 3A 53 54 41 20 24 46 45 3A 4C 44 41 20 24 46 46 |:STA $FE:LDA $FF|
00000110: 3A 53 42 43 20 24 41 39 3A 53 54 41 20 24 46 46 |:SBC $A9:STA $FF|
00000120: 3A 4A 53 52 20 4D 33 00 56 09 B8 01 4C 44 41 20 |:JSR M3.V...LDA |
00000130: 23 31 3A 4A 53 52 20 4D 31 3A 42 43 53 20 4D 35 |#1:JSR M1:BCS M5|
00000140: 3A 41 44 43 20 23 31 3A 49 4E 43 20 24 41 41 3A |:ADC #1:INC $AA:|
00000150: 42 4E 45 20 4D 34 00 7C 09 C2 01 4D 35 20 4A 53 |BNE M4.|...M5 JS|
00000160: 52 20 4D 31 3A 42 43 43 20 AA 3A 4A 53 52 20 4D |R M1:BCC .:JSR M|
00000170: 31 3A 52 4F 4C 3A 42 50 4C 20 4D 35 00 B2 09 CC |1:ROL:BPL M5....|
00000180: 01 AA 20 41 44 43 20 23 32 3A 4D 34 20 53 54 41 |.. ADC #2:M4 STA|
00000190: 20 24 41 38 3A 4A 53 52 20 4D 31 3A 52 4F 4C 20 | $A8:JSR M1:ROL |
000001A0: 24 41 41 3A 4A 53 52 20 4D 31 3A 52 4F 4C 20 24 |$AA:JSR M1:ROL $|
000001B0: 41 41 00 CB 09 D6 01 4D 37 20 4C 44 59 20 24 41 |AA.....M7 LDY $A|
000001C0: 41 3A 4C 44 58 20 54 42 31 2C 59 00 F2 09 E0 01 |A:LDX TB1,Y.....|
000001D0: AB 20 4A 53 52 20 4D 31 3A 52 4F 4C 20 24 41 36 |. JSR M1:ROL $A6|
000001E0: 3A 52 4F 4C 20 24 41 37 3A 44 45 58 3A 42 4E 45 |:ROL $A7:DEX:BNE|
000001F0: 20 AB 00 31 0A EA 01 4C 44 41 20 24 41 41 3A AF | ..1...LDA $AA:.|
00000200: 20 23 33 3A 42 45 51 20 4D 36 3A 49 4E 43 20 24 | #3:BEQ M6:INC $|
00000210: 41 36 3A 42 4E 45 20 AA 3A 49 4E 43 20 24 41 37 |A6:BNE .:INC $A7|
00000220: 3A AA 20 44 45 43 20 24 41 41 3A 42 50 4C 20 4D |:. DEC $AA:BPL M|
00000230: 37 00 49 0A 08 02 4D 36 20 4A 53 52 20 4D 39 3A |7.I...M6 JSR M9:|
00000240: 42 4D 49 20 4D 41 49 4E 34 00 83 0A 12 02 4D 31 |BMI MAIN4.....M1|
00000250: 30 20 4C 44 59 20 24 46 45 3A 42 45 51 20 4D 32 |0 LDY $FE:BEQ M2|
00000260: 30 3A AB 20 44 45 43 20 24 46 45 3A 50 48 41 3A |0:. DEC $FE:PHA:|
00000270: 4A 53 52 20 4D 31 31 3A 53 54 41 20 24 46 42 3A |JSR M11:STA $FB:|
00000280: 50 4C 41 00 AF 0A 1C 02 53 45 43 3A 2E 42 59 54 |PLA.....SEC:.BYT|
00000290: 20 24 32 34 3A 4D 31 20 43 4C 43 3A 52 4F 4C 20 | $24:M1 CLC:ROL |
000002A0: 24 46 42 3A 42 45 51 20 4D 31 30 3A 52 54 53 00 |$FB:BEQ M10:RTS.|
000002B0: CD 0A 26 02 4D 32 30 20 43 50 59 20 24 46 46 3A |..&.M20 CPY $FF:|
000002C0: 44 45 43 20 24 46 46 3A 42 43 43 20 AB 00 E9 0A |DEC $FF:BCC ....|
000002D0: 30 02 50 4C 41 3A 50 4C 41 3A 44 45 43 20 31 3A |0.PLA:PLA:DEC 1:|
000002E0: 4A 4D 50 20 4D 41 49 4E 33 00 20 0B 3A 02 4D 39 |JMP MAIN3. .:.M9|
000002F0: 20 4C 44 41 20 24 46 43 3A 41 44 43 20 24 41 36 | LDA $FC:ADC $A6|
00000300: 3A 53 54 41 20 24 46 37 3A 4C 44 41 20 24 46 44 |:STA $F7:LDA $FD|
00000310: 3A 41 44 43 20 24 41 37 3A 53 54 41 20 24 46 38 |:ADC $A7:STA $F8|
00000320: 00 65 0B 4E 02 4D 33 20 4C 44 59 20 24 41 38 3A |.e.N.M3 LDY $A8:|
00000330: 42 45 51 20 4D 31 32 3A 4C 44 41 20 24 46 43 3A |BEQ M12:LDA $FC:|
00000340: 53 45 43 3A 53 42 43 20 24 41 38 3A 53 54 41 20 |SEC:SBC $A8:STA |
00000350: 24 46 43 3A 42 43 53 20 4D 31 35 3A AB 20 44 45 |$FC:BCS M15:. DE|
00000360: 43 20 24 46 44 00 93 0B 58 02 4D 31 35 20 44 45 |C $FD...X.M15 DE|
00000370: 59 3A 4A 53 52 20 4D 38 3A 53 54 41 20 28 24 46 |Y:JSR M8:STA ($F|
00000380: 43 29 2C 59 3A 43 50 59 20 23 30 3A 42 4E 45 20 |C),Y:CPY #0:BNE |
00000390: 4D 31 35 00 B5 0B 62 02 4D 31 32 20 44 45 43 20 |M15...b.M12 DEC |
000003A0: 24 46 38 3A 44 45 43 20 24 41 39 3A 42 50 4C 20 |$F8:DEC $A9:BPL |
000003B0: AB 3A 52 54 53 00 D8 0B 76 02 4D 38 20 54 58 41 |.:RTS...v.M8 TXA|
000003C0: 3A 42 4E 45 20 4D 31 31 3A 4C 44 41 20 28 24 46 |:BNE M11:LDA ($F|
000003D0: 37 29 2C 59 3A 52 54 53 00 0B 0C 80 02 4D 31 31 |7),Y:RTS.....M11|
000003E0: 20 44 45 43 20 31 3A 4A 53 52 20 52 42 3A 44 45 | DEC 1:JSR RB:DE|
000003F0: 43 20 24 44 30 32 30 3A 49 4E 43 20 24 44 30 32 |C $D020:INC $D02|
00000400: 30 3A 49 4E 43 20 31 3A 52 54 53 00 22 0C 85 02 |0:INC 1:RTS."...|
00000410: AC B2 24 43 35 30 30 3A 2E 4F 46 46 20 24 30 31 |..$C500:.OFF $01|
00000420: 30 30 00 3F 0C 8A 02 54 42 31 20 2E 42 59 54 20 |00.?...TB1 .BYT |
00000430: 35 2C 32 2C 32 2C 33 2C 34 2C 32 2C 32 2C 32 00 |5,2,2,3,4,2,2,2.|
00000440: 69 0C BC 02 9F 20 4C 44 41 20 23 38 3A 4A 53 52 |i.... LDA #8:JSR|
00000450: 20 24 46 46 42 31 3A 4C 44 41 20 23 24 46 46 3A | $FFB1:LDA #$FF:|
00000460: 4A 4D 50 20 24 46 46 39 33 00 89 0C C6 02 54 58 |JMP $FF93.....TX|
00000470: 54 31 20 2E 42 59 54 20 22 4D 22 2C 22 2D 22 2C |T1 .BYT "M","-",|
00000480: 22 45 22 2C 24 43 30 2C 37 00 BA 0C D0 02 52 42 |"E",$C0,7.....RB|
00000490: 20 53 54 58 20 24 41 34 3A 52 42 34 20 4C 44 58 | STX $A4:RB4 LDX|
000004A0: 20 24 41 33 3A 53 45 43 3A 42 49 54 20 24 44 44 | $A3:SEC:BIT $DD|
000004B0: 30 30 3A 42 56 43 20 52 42 35 00 E6 0C DA 02 AB |00:BVC RB5......|
000004C0: 20 4C 44 41 20 24 44 30 31 32 3A 52 42 32 20 53 | LDA $D012:RB2 S|
000004D0: 42 43 20 23 30 3A 42 43 43 20 AA 3A AF 20 23 37 |BC #0:BCC .:. #7|
000004E0: 3A 42 45 51 20 AB 00 F6 0C E4 02 AA 20 53 54 58 |:BEQ ....... STX|
000004F0: 20 24 44 44 30 30 00 0C 0D EE 02 2E 8B 20 4E 54 | $DD00....... NT|
00000500: 53 43 3A 20 2E 42 59 54 20 24 32 34 00 20 0D F8 |SC: .BYT $24. ..|
00000510: 02 2E 45 4C 53 45 3A 20 2E 42 59 54 20 24 41 39 |..ELSE: .BYT $A9|
00000520: 00 28 0D FD 02 2E 8B 45 00 33 0D 02 03 2E 42 59 |.(.....E.3....BY|
00000530: 54 20 30 00 76 0D 0C 03 54 58 41 3A AF 20 23 37 |T 0.v...TXA:. #7|
00000540: 3A 53 54 41 20 24 44 44 30 30 3A 4C 44 41 20 24 |:STA $DD00:LDA $|
00000550: 44 44 30 30 3A 4C 53 52 3A 4C 53 52 3A 45 B0 20 |DD00:LSR:LSR:E. |
00000560: 24 44 44 30 30 3A 4C 53 52 3A 4C 53 52 3A 45 B0 |$DD00:LSR:LSR:E.|
00000570: 20 24 44 44 30 30 00 A5 0D 16 03 4C 53 52 3A 4C | $DD00.....LSR:L|
00000580: 53 52 3A 52 42 33 20 45 B0 20 23 30 3A 45 B0 20 |SR:RB3 E. #0:E. |
00000590: 24 44 44 30 30 3A 4C 44 58 20 24 41 34 3A 52 42 |$DD00:LDX $A4:RB|
000005A0: 36 20 52 54 53 00 CF 0D 20 03 52 42 35 20 42 49 |6 RTS... .RB5 BI|
000005B0: 54 20 24 44 44 30 30 3A 42 56 43 20 52 42 35 3A |T $DD00:BVC RB5:|
000005C0: 4A 53 52 20 52 42 36 3A 42 4D 49 20 52 42 34 00 |JSR RB6:BMI RB4.|
000005D0: E3 0D 2A 03 50 4C 41 3A 50 4C 41 3A 43 4C 43 3A |..*.PLA:PLA:CLC:|
000005E0: 52 54 53 00 14 0E 10 04 49 4E 49 20 4A 53 52 20 |RTS.....INI JSR |
000005F0: 9F 3A 4C 44 41 20 23 22 49 22 3A 4A 53 52 20 24 |.:LDA #"I":JSR $|
00000600: 46 46 41 38 3A 4A 53 52 20 24 46 46 41 45 3A 4A |FFA8:JSR $FFAE:J|
00000610: 53 52 20 9F 00 50 0E 15 04 4C 44 58 20 23 24 46 |SR ..P...LDX #$F|
00000620: 42 3A AB 20 4C 44 41 20 54 58 54 31 AB 24 46 42 |B:. LDA TXT1.$FB|
00000630: 2C 58 3A 4A 53 52 20 24 46 46 41 38 3A 49 4E 58 |,X:JSR $FFA8:INX|
00000640: 3A 42 4E 45 20 AB 3A 4A 53 52 20 24 46 33 46 36 |:BNE .:JSR $F3F6|
00000650: 00 90 0E 1A 04 4C 44 41 20 24 44 30 31 31 3A AF |.....LDA $D011:.|
00000660: 20 23 24 37 3A 41 44 43 20 23 24 32 46 3A 53 54 | #$7:ADC #$2F:ST|
00000670: 41 20 52 42 32 AA 31 3A 4C 44 41 20 24 44 44 30 |A RB2.1:LDA $DD0|
00000680: 30 3A AF 20 23 37 3A 53 54 41 20 24 44 44 30 30 |0:. #7:STA $DD00|
00000690: 00 C2 0E 1F 04 B0 41 20 23 24 32 30 3A 53 54 41 |......A #$20:STA|
000006A0: 20 24 41 33 3A 4C 53 52 3A 4C 53 52 3A 45 B0 20 | $A3:LSR:LSR:E. |
000006B0: 24 41 33 3A AF 20 23 37 3A 53 54 41 20 52 42 33 |$A3:. #7:STA RB3|
000006C0: AA 31 00 D0 0E 24 04 53 54 58 20 24 44 30 31 35 |.1...$.STX $D015|
000006D0: 00 EE 0E 2E 04 AB 20 42 49 54 20 24 44 44 30 30 |...... BIT $DD00|
000006E0: 3A 42 56 53 20 AB 3A 53 45 49 3A 52 54 53 00 00 |:BVS .:SEI:RTS..|
000006F0: 00 |. |
.......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.B...MAIN4 TXA:LDX #4:. STA $A6,X:D
EX:BPL .:. JSR M1:INX:BCC M2:BEQ ......J
SR M1:. ROL $A8:ROL $A9:BPL ..'...M2 SEC
:LDA $FE:SBC $A8:STA $FE:LDA $FF:SBC $A9
:STA $FF:JSR M3.V...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.K.V.M
7 LDY $AA:LDX TB1,Y...... JSR M1:ROL $A6
:ROL $A7:DEX:BNE ..1...LDA $AA:. #3:BEQ
M6:INC $A6:BNE .:INC $A7:. DEC $AA:BPL M
7.I...M6 JSR M9:BMI MAIN4.....M10 LDY $F
E:BEQ M20:. DEC $FE:PHA:JSR M11:STA $FB:
PLA.....SEC:.BYT $24:M1 CLC:ROL $FB:BEQ
M10:RTS.M.&.M20 CPY $FF:DEC $FF:BCC ....
0.PLA:PLA:DEC 1:JMP MAIN3. .:.M9 LDA $FC
:ADC $A6:STA $F7:LDA $FD:ADC $A7:STA $F8
.E.N.M3 LDY $A8:BEQ M12:LDA $FC:SEC:SBC
$A8:STA $FC:BCS M15:. DEC $FD...X.M15 DE
Y:JSR M8:STA ($FC),Y:CPY #0:BNE M15...B.
M12 DEC $F8:DEC $A9:BPL .:RTS.X.V.M8 TXA
:BNE M11:LDA ($F7),Y:RTS.....M11 DEC 1:J
SR RB:DEC $D020:INC $D020:INC 1:RTS."...
..$C500:.OFF $0100.?...TB1 .BYT 5,2,2,3,
4,2,2,2.I.... LDA #8:JSR $FFB1:LDA #$FF:
JMP $FF93...F.TXT1 .BYT "M","-","E",$C0,
7...P.RB STX $A4:RB4 LDX $A3:SEC:BIT $DD
00:BVC RB5...Z.. LDA $D012:RB2 SBC #0:BC
C .:. #7:BEQ ....... STX $DD00....... NT
SC: .BYT $24. ....ELSE: .BYT $A9.(.....E
.3....BYT 0.V...TXA:. #7:STA $DD00:LDA $
DD00:LSR:LSR:E. $DD00:LSR:LSR:E. $DD00..
...LSR:LSR:RB3 E. #0:E. $DD00:LDX $A4:RB
6 RTS.O. .RB5 BIT $DD00:BVC RB5:JSR RB6:
BMI RB4...*.PLA:PLA:CLC:RTS.....INI JSR
.:LDA #"I":JSR $FFA8:JSR $FFAE:JSR ..P..
.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
.B....A #$20:STA $A3:LSR:LSR:E. $A3:. #7
:STA RB3.1.P.$.STX $D015...... BIT $DD00
:BVS .:SEI:RTS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL