> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 0A 00 9E 20 24 39 30 30 30 00 1B 08 |....... $9000...|
00000010: 14 00 2E 4F 50 54 20 4F 4F 2C 50 00 27 08 1E 00 |...OPT OO,P.'...|
00000020: AC B2 24 43 38 30 30 00 38 08 28 00 46 41 52 42 |..$C800.8.(.FARB|
00000030: 45 31 20 B2 20 24 46 42 00 49 08 32 00 46 41 52 |E1 . $FB.I.2.FAR|
00000040: 42 45 32 20 B2 20 24 46 43 00 5A 08 3C 00 4F 42 |BE2 . $FC.Z.<.OB|
00000050: 45 4E 20 20 20 B2 20 24 46 44 00 6B 08 46 00 55 |EN . $FD.k.F.U|
00000060: 4E 54 45 4E 20 20 B2 20 24 46 45 00 7F 08 50 00 |NTEN . $FE...P.|
00000070: 49 52 51 56 45 43 54 20 B2 20 24 30 33 31 34 00 |IRQVECT . $0314.|
00000080: 93 08 5A 00 49 52 51 41 4C 54 20 20 B2 20 24 45 |..Z.IRQALT . $E|
00000090: 41 33 31 00 A6 08 64 00 52 41 53 54 45 52 20 B2 |A31...d.RASTER .|
000000A0: 20 24 44 30 31 32 00 B9 08 6E 00 49 52 52 20 20 | $D012...n.IRR |
000000B0: 20 20 B2 20 24 44 30 31 39 00 CC 08 78 00 49 4D | . $D019...x.IM|
000000C0: 52 20 20 20 20 B2 20 24 44 30 31 41 00 DF 08 82 |R . $D01A....|
000000D0: 00 52 41 48 4D 45 4E 20 B2 20 24 44 30 32 30 00 |.RAHMEN . $D020.|
000000E0: F0 08 8C 00 48 47 8A 44 20 B2 20 24 44 30 32 31 |....HG.D . $D021|
000000F0: 00 18 09 96 00 3B AB AB AB AB AB AB AB AB AB AB |.....;..........|
00000100: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000110: AB AB AB AB AB AB AB AB 00 3A 09 A0 00 3B 20 20 |.........:...; |
00000120: 20 20 20 20 20 AC AC AC 20 49 4E 49 54 41 4C 49 | ... INITALI|
00000130: 53 49 45 52 45 4E 20 AC AC AC 00 5C 09 AA 00 3B |SIEREN ....\...;|
00000140: 20 20 20 20 20 20 20 AC AC AC AC AC AC AC AC AC | .........|
00000150: AC AC AC AC AC AC AC AC AC AC AC AC 00 84 09 B4 |................|
00000160: 00 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00000170: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000180: AB AB AB AB 00 94 09 BE 00 49 4E 49 54 20 20 20 |.........INIT |
00000190: 20 53 45 49 00 AE 09 C8 00 3A 20 20 20 20 20 20 | SEI.....: |
000001A0: 20 4C 44 41 20 23 B3 20 49 52 51 4E 45 55 00 C6 | LDA #. IRQNEU..|
000001B0: 09 D2 00 3A 20 20 20 20 20 20 20 53 54 41 20 49 |...: STA I|
000001C0: 52 51 56 45 43 54 00 E0 09 DC 00 3A 20 20 20 20 |RQVECT.....: |
000001D0: 20 20 20 4C 44 41 20 23 B1 20 49 52 51 4E 45 55 | LDA #. IRQNEU|
000001E0: 00 FA 09 E6 00 3A 20 20 20 20 20 20 20 53 54 41 |.....: STA|
000001F0: 20 49 52 51 56 45 43 54 AA 31 00 0F 0A F0 00 3A | IRQVECT.1.....:|
00000200: 20 20 20 20 20 20 20 4C 44 41 20 4F 42 45 4E 00 | LDA OBEN.|
00000210: 26 0A FA 00 3A 20 20 20 20 20 20 20 53 54 41 20 |&...: STA |
00000220: 52 41 53 54 45 52 00 3F 0A 04 01 3A 20 20 20 20 |RASTER.?...: |
00000230: 20 20 20 4C 44 41 20 52 41 53 54 45 52 AB 31 00 | LDA RASTER.1.|
00000240: 52 0A 0E 01 3A 20 20 20 20 20 20 20 AF 20 23 24 |R...: . #$|
00000250: 37 46 00 6B 0A 18 01 3A 20 20 20 20 20 20 20 53 |7F.k...: S|
00000260: 54 41 20 52 41 53 54 45 52 AB 31 00 86 0A 22 01 |TA RASTER.1...".|
00000270: 3A 20 20 20 20 20 20 20 4C 44 41 20 23 25 31 30 |: LDA #%10|
00000280: 30 30 30 30 30 31 00 9A 0A 2C 01 3A 20 20 20 20 |000001...,.: |
00000290: 20 20 20 53 54 41 20 49 4D 52 00 AA 0A 36 01 3A | STA IMR...6.:|
000002A0: 20 20 20 20 20 20 20 43 4C 49 00 BA 0A 40 01 3A | CLI...@.:|
000002B0: 20 20 20 20 20 20 20 52 54 53 00 E2 0A 4A 01 3B | RTS...J.;|
000002C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000002D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000002E0: AB AB 00 05 0B 54 01 3B 20 20 20 20 20 20 20 AC |.....T.; .|
000002F0: AC AC 20 B5 45 52 52 55 50 54 52 4F 55 54 49 4E |.. .ERRUPTROUTIN|
00000300: 45 20 AC AC AC 00 2D 0B 5E 01 3B AB AB AB AB AB |E ....-.^.;.....|
00000310: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000320: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 33 0B |..............3.|
00000330: 68 01 3B 00 47 0B 72 01 49 52 51 4E 45 55 20 20 |h.;.G.r.IRQNEU |
00000340: 4C 44 41 20 49 52 52 00 5B 0B 7C 01 3A 20 20 20 |LDA IRR.[.|.: |
00000350: 20 20 20 20 53 54 41 20 49 52 52 00 72 0B 86 01 | STA IRR.r...|
00000360: 3A 20 20 20 20 20 20 20 42 4D 49 20 49 52 51 52 |: BMI IRQR|
00000370: 41 53 00 88 0B 90 01 3A 20 20 20 20 20 20 20 4C |AS.....: L|
00000380: 44 41 20 24 44 43 30 44 00 98 0B 9A 01 3A 20 20 |DA $DC0D.....: |
00000390: 20 20 20 20 20 43 4C 49 00 AF 0B A4 01 3A 20 20 | CLI.....: |
000003A0: 20 20 20 20 20 4A 4D 50 20 49 52 51 41 4C 54 00 | JMP IRQALT.|
000003B0: C6 0B AE 01 49 52 51 52 41 53 20 20 4C 44 41 20 |....IRQRAS LDA |
000003C0: 52 41 53 54 45 52 00 DC 0B B8 01 3A 20 20 20 20 |RASTER.....: |
000003D0: 20 20 20 43 4D 50 20 55 4E 54 45 4E 00 F4 0B C2 | CMP UNTEN....|
000003E0: 01 3A 20 20 20 20 20 20 20 42 43 53 20 5A 57 45 |.: BCS ZWE|
000003F0: 49 54 45 52 00 0B 0C CC 01 3A 20 20 20 20 20 20 |ITER.....: |
00000400: 20 4C 44 41 20 46 41 52 42 45 31 00 22 0C D6 01 | LDA FARBE1."...|
00000410: 3A 20 20 20 20 20 20 20 53 54 41 20 52 41 48 4D |: STA RAHM|
00000420: 45 4E 00 37 0C E0 01 3A 20 20 20 20 20 20 20 53 |EN.7...: S|
00000430: 54 41 20 48 47 8A 44 00 4D 0C EA 01 3A 20 20 20 |TA HG.D.M...: |
00000440: 20 20 20 20 4C 44 41 20 55 4E 54 45 4E 00 64 0C | LDA UNTEN.d.|
00000450: F4 01 3A 20 20 20 20 20 20 20 53 54 41 20 52 41 |..: STA RA|
00000460: 53 54 45 52 00 7A 0C FE 01 3A 20 20 20 20 20 20 |STER.z...: |
00000470: 20 4A 4D 50 20 24 46 45 42 43 00 91 0C 08 02 5A | JMP $FEBC.....Z|
00000480: 57 45 49 54 45 52 20 4C 44 41 20 46 41 52 42 45 |WEITER LDA FARBE|
00000490: 32 00 A8 0C 12 02 3A 20 20 20 20 20 20 20 53 54 |2.....: ST|
000004A0: 41 20 52 41 48 4D 45 4E 00 BD 0C 1C 02 3A 20 20 |A RAHMEN.....: |
000004B0: 20 20 20 20 20 53 54 41 20 48 47 8A 44 00 D2 0C | STA HG.D...|
000004C0: 26 02 3A 20 20 20 20 20 20 20 4C 44 41 20 4F 42 |&.: LDA OB|
000004D0: 45 4E 00 E9 0C 30 02 3A 20 20 20 20 20 20 20 53 |EN...0.: S|
000004E0: 54 41 20 52 41 53 54 45 52 00 FF 0C 3A 02 3A 20 |TA RASTER...:.: |
000004F0: 20 20 20 20 20 20 4A 4D 50 20 24 46 45 42 43 00 | JMP $FEBC.|
00000500: 00 00 |.. |
....... $9000......OPT OO,P.'.....$C800.
8.(.FARBE1 . $FB.I.2.FARBE2 . $FC.Z.<.OB
EN . $FD.K.F.UNTEN . $FE..P.IRQVECT
. $0314...Z.IRQALT . $EA31...D.RASTER .
$D012...N.IRR . $D019.L.X.IMR . $
D01A.....RAHMEN . $D020.....HG.D . $D021
.....;..................................
.:. .; ... INITALISIEREN ....\...;
..........................;......
.................................INIT
SEI...H.: LDA #. IRQNEU.F.R.:
STA IRQVECT.....: LDA #. IRQNEU
.....: STA IRQVECT.1.....: L
DA OBEN.&...: STA RASTER.?...:
LDA RASTER.1.R...: . #$7F.K...:
STA RASTER.1...".: LDA #%10
000001...,.: STA IMR...6.: C
LI...@.: RTS...J.;................
.....................T.; ... .ERRU
PTROUTINE ....-.^.;.....................
..............3.H.;.G.R.IRQNEU LDA IRR.
[.|.: STA IRR.R...: BMI IRQR
AS.....: LDA $DC0D.....: CLI
.....: JMP IRQALT.F...IRQRAS LDA
RASTER.....: CMP UNTEN...B.:
BCS ZWEITER...L.: LDA FARBE1.".V.
: STA RAHMEN.7...: STA HG.D.
M...: LDA UNTEN.D...: STA RA
STER.Z...: JMP $FEBC.....ZWEITER L
DA FARBE2.....: STA RAHMEN.....:
STA HG.D.R.&.: LDA OBEN...0.:
STA RASTER...:.: JMP $FEBC.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL