> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 3B 20 22 43 48 41 52 22 00 30 |....d.; "CHAR".0|
00000010: 08 6E 00 3B 20 4F 4D 56 AF 4C 41 52 20 54 45 43 |.n.; OMV.LAR TEC|
00000020: 4B 45 4E 20 4B 4F 44 20 54 49 4C 4C 20 C6 49 49 |KEN KOD TILL .II|
00000030: 00 36 08 78 00 3B 00 4A 08 82 00 43 48 41 52 20 |.6.x.;.J...CHAR |
00000040: 4C 44 41 20 54 45 43 4B 45 4E 00 59 08 8C 00 42 |LDA TECKEN.Y...B|
00000050: 50 4C 20 48 4F 50 52 56 53 00 65 08 96 00 4C 44 |PL HOPRVS.e...LD|
00000060: 41 20 52 56 53 00 71 08 A0 00 42 4E 45 20 55 54 |A RVS.q...BNE UT|
00000070: 35 00 84 08 AA 00 4C 44 41 20 23 31 38 3B 20 52 |5.....LDA #18; R|
00000080: 56 53 20 91 00 92 08 B4 00 4A 53 52 20 50 4C 41 |VS ......JSR PLA|
00000090: 43 45 00 9D 08 BE 00 4C 44 41 20 23 31 00 A9 08 |CE.....LDA #1...|
000000A0: C8 00 53 54 41 20 52 56 53 00 BC 08 D2 00 55 54 |..STA RVS.....UT|
000000B0: 35 20 4A 4D 50 20 4B 4C 41 52 54 35 00 CF 08 DC |5 JMP KLART5....|
000000C0: 00 48 4F 50 52 56 53 20 4C 44 41 20 52 56 53 00 |.HOPRVS LDA RVS.|
000000D0: DE 08 E6 00 42 45 51 20 4B 4C 41 52 54 35 00 F4 |....BEQ KLART5..|
000000E0: 08 F0 00 4C 44 41 20 23 31 34 36 3B 20 52 56 53 |...LDA #146; RVS|
000000F0: 20 4F 46 46 00 02 09 FA 00 4A 53 52 20 50 4C 41 | OFF.....JSR PLA|
00000100: 43 45 00 0D 09 04 01 4C 44 41 20 23 30 00 19 09 |CE.....LDA #0...|
00000110: 0E 01 53 54 41 20 52 56 53 00 2F 09 18 01 4B 4C |..STA RVS./...KL|
00000120: 41 52 54 35 20 4C 44 41 20 54 45 43 4B 45 4E 00 |ART5 LDA TECKEN.|
00000130: 53 09 22 01 AF 20 23 31 32 37 3B 20 4D 41 53 4B |S.".. #127; MASK|
00000140: 41 20 45 56 45 4E 54 55 45 4C 4C 20 52 56 53 AB |A EVENTUELL RVS.|
00000150: 42 49 54 00 5F 09 2C 01 43 4D 50 20 23 33 32 00 |BIT._.,.CMP #32.|
00000160: 6D 09 36 01 42 43 43 20 53 4B 49 50 31 00 79 09 |m.6.BCC SKIP1.y.|
00000170: 40 01 41 44 43 20 23 36 34 00 81 09 4A 01 52 54 |@.ADC #64...J.RT|
00000180: 53 00 93 09 54 01 53 4B 49 50 31 20 43 4D 50 20 |S...T.SKIP1 CMP |
00000190: 23 36 34 00 A1 09 5E 01 42 43 43 20 53 4B 49 50 |#64...^.BCC SKIP|
000001A0: 32 00 A9 09 68 01 52 54 53 00 BB 09 72 01 53 4B |2...h.RTS...r.SK|
000001B0: 49 50 32 20 43 4D 50 20 23 39 36 00 C9 09 7C 01 |IP2 CMP #96...|.|
000001C0: 42 43 43 20 53 4B 49 50 33 00 D5 09 86 01 41 44 |BCC SKIP3.....AD|
000001D0: 43 20 23 33 32 00 DD 09 90 01 52 54 53 00 EF 09 |C #32.....RTS...|
000001E0: 9A 01 53 4B 49 50 33 20 41 44 43 20 23 36 34 00 |..SKIP3 ADC #64.|
000001F0: F7 09 A4 01 52 54 53 00 08 0A AE 01 2E 46 49 4C |....RTS......FIL|
00000200: 45 20 43 4F 4C 4F 55 52 00 00 00 |E COLOUR... |
....D.; "CHAR".0.N.; OMV.LAR TECKEN KOD
TILL FII.6.X.;.J...CHAR LDA TECKEN.Y...B
PL HOPRVS.E...LDA RVS.Q. .BNE UT5.....LD
A #18; RVS ......JSR PLACE.....LDA #1...
H.STA RVS...R.UT5 JMP KLART5.O...HOPRVS
LDA RVS.....BEQ KLART5.....LDA #146; RVS
OFF.....JSR PLACE.....LDA #0.....STA RV
S./...KLART5 LDA TECKEN.S.".. #127; MASK
A EVENTUELL RVS.BIT._.,.CMP #32.M.6.BCC
SKIP1.Y.@.ADC #64...J.RTS...T.SKIP1 CMP
#64...^.BCC SKIP2...H.RTS...R.SKIP2 CMP
#96.I.|.BCC SKIP3.U...ADC #32.....RTS...
..SKIP3 ADC #64.....RTS......FILE COLOUR
...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL