> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 9E 39 AC 34 30 39 36 00 1B 08 |....d..9.4096...|
00000010: 6E 00 2E 4F 50 54 20 4E 2C 4F 4F 00 28 08 78 00 |n..OPT N,OO.(.x.|
00000020: AC B2 20 32 30 30 30 30 00 30 08 82 00 53 45 49 |.. 20000.0...SEI|
00000030: 00 40 08 8C 00 4C 44 41 20 23 B3 53 54 41 52 54 |.@...LDA #.START|
00000040: 00 4E 08 96 00 53 54 41 20 24 30 33 31 34 00 5E |.N...STA $0314.^|
00000050: 08 A0 00 4C 44 41 20 23 B1 53 54 41 52 54 00 6C |...LDA #.START.l|
00000060: 08 AA 00 53 54 41 20 24 30 33 31 35 00 83 08 B4 |...STA $0315....|
00000070: 00 4C 44 41 20 23 31 34 39 3A 4A 53 52 20 24 46 |.LDA #149:JSR $F|
00000080: 46 44 32 00 98 08 C8 00 4C 44 41 20 23 37 3A 53 |FD2.....LDA #7:S|
00000090: 54 41 20 24 44 30 32 32 00 AD 08 D2 00 4C 44 41 |TA $D022.....LDA|
000000A0: 20 23 39 3A 53 54 41 20 24 44 30 32 33 00 C2 08 | #9:STA $D023...|
000000B0: DC 00 4C 44 41 20 23 30 3A 53 54 41 20 24 44 30 |..LDA #0:STA $D0|
000000C0: 32 31 00 D0 08 E6 00 53 54 41 20 24 44 30 32 30 |21.....STA $D020|
000000D0: 00 E7 08 FB 00 4C 44 41 20 23 31 35 3A 53 54 41 |.....LDA #15:STA|
000000E0: 20 4E 55 4D 4D 45 52 00 F2 08 04 01 4A 53 52 20 | NUMMER.....JSR |
000000F0: 55 44 00 FA 08 0E 01 43 4C 49 00 02 09 18 01 52 |UD.....CLI.....R|
00000100: 54 53 00 08 09 22 01 3B 00 0E 09 2C 01 3B 00 14 |TS...".;...,.;..|
00000110: 09 36 01 3B 00 1A 09 40 01 3B 00 2C 09 4A 01 53 |.6.;...@.;.,.J.S|
00000120: 54 41 52 54 20 4C 44 41 20 24 43 35 00 37 09 54 |TART LDA $C5.7.T|
00000130: 01 43 4D 50 20 23 34 00 42 09 5E 01 42 45 51 20 |.CMP #4.B.^.BEQ |
00000140: 4F 4B 00 50 09 68 01 4A 4D 50 20 24 45 41 33 31 |OK.P.h.JMP $EA31|
00000150: 00 66 09 72 01 4F 4B 20 4C 44 41 20 23 30 3A 53 |.f.r.OK LDA #0:S|
00000160: 54 41 20 24 46 42 00 74 09 7C 01 53 54 41 20 4C |TA $FB.t.|.STA L|
00000170: 49 4E 49 45 00 87 09 86 01 4C 44 41 20 23 34 3A |INIE.....LDA #4:|
00000180: 53 54 41 20 24 46 43 00 92 09 9A 01 4C 44 59 20 |STA $FC.....LDY |
00000190: 23 30 00 9F 09 A4 01 4C 44 41 20 58 43 4F 4F 00 |#0.....LDA XCOO.|
000001A0: AF 09 AE 01 53 54 41 20 28 24 46 44 29 2C 59 00 |....STA ($FD),Y.|
000001B0: BC 09 B8 01 4A 53 52 20 41 44 46 44 00 C9 09 C2 |....JSR ADFD....|
000001C0: 01 4C 44 41 20 59 43 4F 4F 00 D9 09 CC 01 53 54 |.LDA YCOO.....ST|
000001D0: 41 20 28 24 46 44 29 2C 59 00 E6 09 D6 01 4A 53 |A ($FD),Y.....JS|
000001E0: 52 20 41 44 46 44 00 FA 09 E0 01 47 45 4D 20 4C |R ADFD.....GEM L|
000001F0: 44 41 20 28 24 46 42 29 2C 59 00 0A 0A EA 01 53 |DA ($FB),Y.....S|
00000200: 54 41 20 28 24 46 44 29 2C 59 00 12 0A F4 01 49 |TA ($FD),Y.....I|
00000210: 4E 59 00 1F 0A FE 01 43 50 59 20 58 43 4F 4F 00 |NY.....CPY XCOO.|
00000220: 2B 0A 08 02 42 4E 45 20 47 45 4D 00 38 0A 12 02 |+...BNE GEM.8...|
00000230: 44 45 43 20 59 43 4F 4F 00 45 0A 1C 02 42 45 51 |DEC YCOO.E...BEQ|
00000240: 20 80 47 45 4D 00 56 0A 26 02 4A 53 52 20 41 44 | .GEM.V.&.JSR AD|
00000250: 58 43 4F 4F 46 42 00 67 0A 30 02 4A 53 52 20 41 |XCOOFB.g.0.JSR A|
00000260: 44 58 43 4F 4F 46 44 00 75 0A 3A 02 49 4E 43 20 |DXCOOFD.u.:.INC |
00000270: 4C 49 4E 49 45 00 83 0A 44 02 4C 44 41 20 4C 49 |LINIE...D.LDA LI|
00000280: 4E 49 45 00 8F 0A 4E 02 43 4D 50 20 23 32 32 00 |NIE...N.CMP #22.|
00000290: 9B 0A 58 02 42 4E 45 20 56 49 44 00 AD 0A 62 02 |..X.BNE VID...b.|
000002A0: 4A 53 52 20 53 42 4E 59 4C 49 4E 49 45 00 BC 0A |JSR SBNYLINIE...|
000002B0: 6C 02 56 49 44 20 4C 44 59 20 23 30 00 C8 0A 76 |l.VID LDY #0...v|
000002C0: 02 4A 4D 50 20 47 45 4D 00 D9 0A 80 02 41 44 46 |.JMP GEM.....ADF|
000002D0: 44 20 49 4E 43 20 24 46 44 00 E7 0A 8A 02 42 4E |D INC $FD.....BN|
000002E0: 45 20 43 4C 45 41 52 00 F3 0A 94 02 49 4E 43 20 |E CLEAR.....INC |
000002F0: 24 46 45 00 01 0B 9E 02 43 4C 45 41 52 20 52 54 |$FE.....CLEAR RT|
00000300: 53 00 07 0B A8 02 3B 00 18 0B B2 02 41 44 58 43 |S.....;.....ADXC|
00000310: 4F 4F 46 42 20 43 4C 43 00 24 0B BC 02 4C 44 41 |OOFB CLC.$...LDA|
00000320: 20 24 46 42 00 30 0B C6 02 41 44 43 20 23 34 30 | $FB.0...ADC #40|
00000330: 00 3C 0B D0 02 53 54 41 20 24 46 42 00 48 0B DA |.<...STA $FB.H..|
00000340: 02 4C 44 41 20 24 46 43 00 53 0B E4 02 41 44 43 |.LDA $FC.S...ADC|
00000350: 20 23 30 00 5F 0B EE 02 53 54 41 20 24 46 43 00 | #0._...STA $FC.|
00000360: 67 0B F8 02 52 54 53 00 6D 0B 02 03 3B 00 7E 0B |g...RTS.m...;.~.|
00000370: 0C 03 41 44 58 43 4F 4F 46 44 20 43 4C 43 00 8A |..ADXCOOFD CLC..|
00000380: 0B 16 03 4C 44 41 20 24 46 44 00 97 0B 20 03 41 |...LDA $FD... .A|
00000390: 44 43 20 58 43 4F 4F 00 A3 0B 2A 03 53 54 41 20 |DC XCOO...*.STA |
000003A0: 24 46 44 00 AF 0B 34 03 4C 44 41 20 24 46 45 00 |$FD...4.LDA $FE.|
000003B0: BA 0B 3E 03 41 44 43 20 23 30 00 C6 0B 48 03 53 |..>.ADC #0...H.S|
000003C0: 54 41 20 24 46 45 00 CE 0B 52 03 52 54 53 00 D4 |TA $FE...R.RTS..|
000003D0: 0B 5C 03 3B 00 E6 0B 66 03 53 42 4E 59 4C 49 4E |.\.;...f.SBNYLIN|
000003E0: 49 45 20 53 45 43 00 F2 0B 70 03 4C 44 41 20 24 |IE SEC...p.LDA $|
000003F0: 46 42 00 FF 0B 7A 03 53 42 43 20 23 24 37 31 00 |FB...z.SBC #$71.|
00000400: 0B 0C 84 03 53 54 41 20 24 46 42 00 17 0C 8E 03 |....STA $FB.....|
00000410: 4C 44 41 20 24 46 43 00 22 0C 98 03 53 42 43 20 |LDA $FC."...SBC |
00000420: 23 33 00 2E 0C A2 03 53 54 41 20 24 46 43 00 36 |#3.....STA $FC.6|
00000430: 0C AC 03 43 4C 43 00 42 0C B6 03 4C 44 41 20 24 |...CLC.B...LDA $|
00000440: 46 42 00 4F 0C C0 03 41 44 43 20 58 43 4F 4F 00 |FB.O...ADC XCOO.|
00000450: 5B 0C CA 03 53 54 41 20 24 46 42 00 67 0C D4 03 |[...STA $FB.g...|
00000460: 4C 44 41 20 24 46 43 00 72 0C DE 03 41 44 43 20 |LDA $FC.r...ADC |
00000470: 23 30 00 7E 0C E8 03 53 54 41 20 24 46 43 00 86 |#0.~...STA $FC..|
00000480: 0C F2 03 52 54 53 00 8C 0C FC 03 3B 00 9C 0C 06 |...RTS.....;....|
00000490: 04 80 47 45 4D 20 4A 53 52 20 55 44 00 AA 0C 10 |..GEM JSR UD....|
000004A0: 04 4A 4D 50 20 24 45 41 33 31 00 C0 0C 1A 04 55 |.JMP $EA31.....U|
000004B0: 44 20 4C 44 41 20 23 30 3A 53 54 41 20 24 46 42 |D LDA #0:STA $FB|
000004C0: 00 CE 0C 1B 04 4A 53 52 20 24 45 35 34 34 00 E1 |.....JSR $E544..|
000004D0: 0C 24 04 4C 44 41 20 23 34 3A 53 54 41 20 24 46 |.$.LDA #4:STA $F|
000004E0: 43 00 FD 0C 2E 04 49 4E 43 20 4E 55 4D 4D 45 52 |C.....INC NUMMER|
000004F0: 3A 4A 53 52 20 41 44 58 43 4F 4F 46 44 00 14 0D |:JSR ADXCOOFD...|
00000500: 38 04 4C 44 41 20 4E 55 4D 4D 45 52 3A 43 4D 50 |8.LDA NUMMER:CMP|
00000510: 20 23 31 36 00 21 0D 42 04 42 4E 45 20 56 49 44 | #16.!.B.BNE VID|
00000520: 32 00 37 0D 4C 04 4C 44 41 20 23 30 3A 53 54 41 |2.7.L.LDA #0:STA|
00000530: 20 4E 55 4D 4D 45 52 00 43 0D 56 04 53 54 41 20 | NUMMER.C.V.STA |
00000540: 24 46 44 00 58 0D 60 04 4C 44 41 20 23 24 38 30 |$FD.X.`.LDA #$80|
00000550: 3A 53 54 41 20 24 46 45 00 72 0D 6A 04 56 49 44 |:STA $FE.r.j.VID|
00000560: 32 20 4C 44 59 20 23 30 3A 53 54 59 20 4C 49 4E |2 LDY #0:STY LIN|
00000570: 49 45 00 88 0D 74 04 4C 44 41 20 24 46 44 3A 53 |IE...t.LDA $FD:S|
00000580: 54 41 20 47 45 4D 46 44 00 9E 0D 7E 04 4C 44 41 |TA GEMFD...~.LDA|
00000590: 20 24 46 45 3A 53 54 41 20 47 45 4D 46 45 00 AE | $FE:STA GEMFE..|
000005A0: 0D 88 04 4C 44 41 20 28 24 46 44 29 2C 59 00 BB |...LDA ($FD),Y..|
000005B0: 0D 92 04 53 54 41 20 58 43 4F 4F 00 C8 0D 9C 04 |...STA XCOO.....|
000005C0: 4A 53 52 20 41 44 46 44 00 D8 0D A6 04 4C 44 41 |JSR ADFD.....LDA|
000005D0: 20 28 24 46 44 29 2C 59 00 EF 0D B0 04 53 54 41 | ($FD),Y.....STA|
000005E0: 20 59 43 4F 4F 3A 53 54 41 20 59 43 4F 4F 32 00 | YCOO:STA YCOO2.|
000005F0: FC 0D BA 04 4A 53 52 20 41 44 46 44 00 10 0E C4 |....JSR ADFD....|
00000600: 04 55 44 4C 20 4C 44 41 20 28 24 46 44 29 2C 59 |.UDL LDA ($FD),Y|
00000610: 00 20 0E CE 04 53 54 41 20 28 24 46 42 29 2C 59 |. ...STA ($FB),Y|
00000620: 00 28 0E D8 04 49 4E 59 00 35 0E E2 04 43 50 59 |.(...INY.5...CPY|
00000630: 20 58 43 4F 4F 00 41 0E EC 04 42 4E 45 20 55 44 | XCOO.A...BNE UD|
00000640: 4C 00 4F 0E F6 04 44 45 43 20 59 43 4F 4F 32 00 |L.O...DEC YCOO2.|
00000650: 5B 0E 00 05 42 45 51 20 80 55 44 00 6C 0E 0A 05 |[...BEQ .UD.l...|
00000660: 4A 53 52 20 41 44 58 43 4F 4F 46 42 00 7D 0E 14 |JSR ADXCOOFB.}..|
00000670: 05 4A 53 52 20 41 44 58 43 4F 4F 46 44 00 8B 0E |.JSR ADXCOOFD...|
00000680: 1E 05 49 4E 43 20 4C 49 4E 49 45 00 99 0E 28 05 |..INC LINIE...(.|
00000690: 4C 44 41 20 4C 49 4E 49 45 00 A5 0E 32 05 43 4D |LDA LINIE...2.CM|
000006A0: 50 20 23 32 32 00 B2 0E 3C 05 42 4E 45 20 56 49 |P #22...<.BNE VI|
000006B0: 44 33 00 C4 0E 46 05 4A 53 52 20 53 42 4E 59 4C |D3...F.JSR SBNYL|
000006C0: 49 4E 49 45 00 D4 0E 50 05 56 49 44 33 20 4C 44 |INIE...P.VID3 LD|
000006D0: 59 20 23 30 00 E0 0E 5A 05 4A 4D 50 20 55 44 4C |Y #0...Z.JMP UDL|
000006E0: 00 FA 0E 64 05 80 55 44 20 4C 44 41 20 47 45 4D |...d..UD LDA GEM|
000006F0: 46 44 3A 53 54 41 20 24 46 44 00 10 0F 65 05 4C |FD:STA $FD...e.L|
00000700: 44 41 20 47 45 4D 46 45 3A 53 54 41 20 24 46 45 |DA GEMFE:STA $FE|
00000710: 00 18 0F 66 05 52 54 53 00 2A 0F 78 05 4C 49 4E |...f.RTS.*.x.LIN|
00000720: 49 45 20 2E 42 59 54 20 30 30 00 3C 0F 82 05 59 |IE .BYT 00.<...Y|
00000730: 43 4F 4F 32 20 2E 42 59 54 20 30 30 00 4E 0F 83 |COO2 .BYT 00.N..|
00000740: 05 59 43 4F 4F 20 20 2E 42 59 54 20 30 30 00 60 |.YCOO .BYT 00.`|
00000750: 0F 84 05 58 43 4F 4F 20 20 2E 42 59 54 20 30 30 |...XCOO .BYT 00|
00000760: 00 72 0F 85 05 47 45 4D 46 44 20 2E 42 59 54 20 |.r...GEMFD .BYT |
00000770: 30 30 00 84 0F 86 05 47 45 4D 46 45 20 2E 42 59 |00.....GEMFE .BY|
00000780: 54 20 30 30 00 97 0F 87 05 4E 55 4D 4D 45 52 20 |T 00.....NUMMER |
00000790: 2E 42 59 54 20 30 30 00 00 00 00 |.BYT 00.... |
....D..9.4096...N..OPT N,OO.(.X... 20000
.0...SEI.@...LDA #.START.N...STA $0314.^
. .LDA #.START.L...STA $0315.....LDA #14
9:JSR $FFD2...H.LDA #7:STA $D022...R.LDA
#9:STA $D023.B...LDA #0:STA $D021.P...S
TA $D020.....LDA #15:STA NUMMER.....JSR
UD.....CLI.....RTS...".;...,.;...6.;...@
.;.,.J.START LDA $C5.7.T.CMP #4.B.^.BEQ
OK.P.H.JMP $EA31.F.R.OK LDA #0:STA $FB.T
.|.STA LINIE.....LDA #4:STA $FC.....LDY
#0.....LDA XCOO.....STA ($FD),Y.....JSR
ADFD.I.B.LDA YCOO.Y.L.STA ($FD),Y...V.JS
R ADFD.....GEM LDA ($FB),Y.....STA ($FD)
,Y.....INY.....CPY XCOO.+...BNE GEM.8...
DEC YCOO.E...BEQ .GEM.V.&.JSR ADXCOOFB.G
.0.JSR ADXCOOFD.U.:.INC LINIE...D.LDA LI
NIE...N.CMP #22...X.BNE VID...B.JSR SBNY
LINIE...L.VID LDY #0.H.V.JMP GEM.Y...ADF
D INC $FD.....BNE CLEAR.....INC $FE.....
CLEAR RTS.....;.....ADXCOOFB CLC.$...LDA
$FB.0.F.ADC #40.<.P.STA $FB.H.Z.LDA $FC
.S...ADC #0._...STA $FC.G...RTS.M...;.~.
..ADXCOOFD CLC.....LDA $FD... .ADC XCOO.
..*.STA $FD...4.LDA $FE...>.ADC #0.F.H.S
TA $FE.N.R.RTS.T.\.;...F.SBNYLINIE SEC..
.P.LDA $FB...Z.SBC #$71.....STA $FB.....
LDA $FC."...SBC #3.....STA $FC.6...CLC.B
...LDA $FB.O...ADC XCOO.[.J.STA $FB.G.T.
LDA $FC.R...ADC #0.~...STA $FC.....RTS..
...;......GEM JSR UD.....JMP $EA31.....U
D LDA #0:STA $FB.N...JSR $E544...$.LDA #
4:STA $FC.....INC NUMMER:JSR ADXCOOFD...
8.LDA NUMMER:CMP #16.!.B.BNE VID2.7.L.LD
A #0:STA NUMMER.C.V.STA $FD.X.`.LDA #$80
:STA $FE.R.J.VID2 LDY #0:STY LINIE...T.L
DA $FD:STA GEMFD...~.LDA $FE:STA GEMFE..
...LDA ($FD),Y.....STA XCOO.H...JSR ADFD
.X...LDA ($FD),Y.....STA YCOO:STA YCOO2.
....JSR ADFD...D.UDL LDA ($FD),Y. .N.STA
($FB),Y.(.X.INY.5...CPY XCOO.A...BNE UD
L.O...DEC YCOO2.[...BEQ .UD.L...JSR ADXC
OOFB.}...JSR ADXCOOFD.....INC LINIE...(.
LDA LINIE...2.CMP #22...<.BNE VID3.D.F.J
SR SBNYLINIE.T.P.VID3 LDY #0...Z.JMP UDL
...D..UD LDA GEMFD:STA $FD...E.LDA GEMFE
:STA $FE...F.RTS.*.X.LINIE .BYT 00.<...Y
COO2 .BYT 00.N...YCOO .BYT 00.`...XCOO
.BYT 00.R...GEMFD .BYT 00.....GEMFE .BY
T 00.....NUMMER .BYT 00....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL