> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 00 00 9E 33 32 37 36 38 3A 2E 4F 50 |.......32768:.OP|
00000010: 54 20 50 2C 4F 4F 00 38 08 0A 00 2E 54 49 54 20 |T P,OO.8....TIT |
00000020: 22 52 41 53 54 45 52 5A 45 49 4C 45 4E 2D 49 4E |"RASTERZEILEN-IN|
00000030: 54 45 52 52 55 50 54 22 00 45 08 0B 00 2E 50 41 |TERRUPT".E....PA|
00000040: 47 20 32 35 35 00 52 08 0C 00 AC B2 20 24 43 30 |G 255.R..... $C0|
00000050: 30 30 00 60 08 0D 00 52 AF 4F 20 B2 20 31 30 36 |00.`...R.O . 106|
00000060: 00 6E 08 0E 00 52 AF 55 20 B2 20 31 39 34 00 81 |.n...R.U . 194..|
00000070: 08 0F 00 49 52 51 41 4C 54 20 B2 20 24 45 41 33 |...IRQALT . $EA3|
00000080: 31 00 94 08 10 00 52 41 53 54 45 52 20 B2 20 24 |1.....RASTER . $|
00000090: 44 30 31 32 00 A5 08 11 00 4D 41 53 4B 20 B2 20 |D012.....MASK . |
000000A0: 24 44 30 31 41 00 B9 08 12 00 52 45 51 55 45 53 |$D01A.....REQUES|
000000B0: 54 20 B2 20 24 44 30 31 39 00 CB 08 13 00 4D 4F |T . $D019.....MO|
000000C0: 44 55 53 20 B2 20 24 44 30 31 38 00 DA 08 14 00 |DUS . $D018.....|
000000D0: 4B 4C 45 49 4E 20 B2 20 32 31 00 E9 08 15 00 47 |KLEIN . 21.....G|
000000E0: 52 4F 53 53 20 B2 20 32 33 00 EF 08 16 00 3B 00 |ROSS . 23.....;.|
000000F0: 02 09 17 00 3B 49 4E 49 54 49 41 4C 49 53 49 45 |....;INITIALISIE|
00000100: 8A 47 00 17 09 18 00 3B B2 B2 B2 B2 B2 B2 B2 B2 |.G.....;........|
00000110: B2 B2 B2 B2 B2 B2 B2 00 1D 09 19 00 3B 00 40 09 |............;.@.|
00000120: 1A 00 53 45 49 20 20 20 20 20 20 20 3B B5 45 52 |..SEI ;.ER|
00000130: 52 52 55 50 54 20 56 45 52 48 49 4E 44 45 52 4E |RRUPT VERHINDERN|
00000140: 00 51 09 1B 00 4C 44 41 20 23 B3 49 52 51 4E 45 |.Q...LDA #.IRQNE|
00000150: 55 00 62 09 1C 00 4C 44 58 20 23 B1 49 52 51 4E |U.b...LDX #.IRQN|
00000160: 45 55 00 84 09 1D 00 53 54 41 20 24 30 33 31 34 |EU.....STA $0314|
00000170: 20 3B 49 52 51 AB 56 45 4B A4 52 20 41 55 46 20 | ;IRQ.VEK.R AUF |
00000180: 4E 45 55 45 00 A2 09 1E 00 53 54 58 20 24 30 33 |NEUE.....STX $03|
00000190: 31 35 20 3B 52 4F 55 54 49 4E 45 20 53 45 54 5A |15 ;ROUTINE SETZ|
000001A0: 45 4E 00 AF 09 1F 00 4C 44 41 20 23 52 AF 4F 00 |EN.....LDA #R.O.|
000001B0: D1 09 20 00 53 54 41 20 52 41 53 54 45 52 20 20 |.. .STA RASTER |
000001C0: 3B 31 2E 5A 45 49 4C 45 20 46 55 45 52 20 49 52 |;1.ZEILE FUER IR|
000001D0: 51 00 E2 09 21 00 4C 44 41 20 52 41 53 54 45 52 |Q...!.LDA RASTER|
000001E0: AB 31 00 08 0A 22 00 AF 20 23 25 30 31 31 31 31 |.1...".. #%01111|
000001F0: 31 31 31 20 20 3B 48 49 47 48 AB 42 59 54 45 20 |111 ;HIGH.BYTE |
00000200: 4C 4F 45 53 43 48 45 4E 00 19 0A 23 00 53 54 41 |LOESCHEN...#.STA|
00000210: 20 52 41 53 54 45 52 AB 31 00 40 0A 24 00 4C 44 | RASTER.1.@.$.LD|
00000220: 41 20 23 25 31 30 30 30 30 30 30 31 20 20 3B 49 |A #%10000001 ;I|
00000230: 52 51 20 44 55 52 43 48 20 52 41 53 54 45 52 AB |RQ DURCH RASTER.|
00000240: 00 64 0A 25 00 53 54 41 20 4D 41 53 4B 20 20 20 |.d.%.STA MASK |
00000250: 20 20 20 20 20 3B 5A 45 49 C3 20 46 45 53 54 4C | ;ZEI. FESTL|
00000260: 45 47 45 4E 00 85 0A 26 00 43 4C 4F 8E 8E 8E 8E |EGEN...&.CLO....|
00000270: 8E 8E 8E 8E 8E 8E 8E 8E 8E 8E 16 1E 20 E2 6A 1F |............ .j.|
00000280: EA D9 DA 89 DB 98 8E F1 00 D8 8E 8D 9E C8 1E C1 |................|
00000290: 08 E8 05 C8 18 F1 01 E8 05 CB 99 DD D9 E8 1C D9 |................|
000002A0: DE 8E 8D DD 8D 9E 8A FD DD 9B EB 99 D8 84 D1 01 |................|
000002B0: 88 05 54 14 14 14 14 14 14 14 14 14 14 14 14 14 |..T.............|
000002C0: 14 14 14 14 14 14 14 88 87 F1 01 C8 05 C8 0F D1 |................|
000002D0: 08 F8 8B EE 8D CB 99 DD E8 08 89 F9 99 48 8E 89 |.............H..|
000002E0: DD CD D9 DE CD A8 08 08 05 CB EE 8D 51 CE 89 DA |............Q...|
000002F0: DB EE CD 99 DE 88 8C 91 41 F8 53 54 41 20 52 45 |........A.STA RE|
00000300: 51 55 45 53 54 20 20 20 20 20 20 3B 4C 4F 45 53 |QUEST ;LOES|
00000310: 43 48 45 4E 00 3B 0B 2E 00 42 4D 49 20 52 41 53 |CHEN.;...BMI RAS|
00000320: 54 45 52 49 52 51 20 20 20 20 3B 5A 55 4D 20 52 |TERIRQ ;ZUM R|
00000330: 41 53 54 45 52 20 AB 20 49 52 51 00 41 0B 2F 00 |ASTER . IRQ.A./.|
00000340: 3B 00 54 0B 30 00 3B 54 49 4D 45 52 AB B5 45 52 |;.T.0.;TIMER..ER|
00000350: 52 55 50 54 00 69 0B 31 00 3B B2 B2 B2 B2 B2 B2 |RUPT.i.1.;......|
00000360: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 6F 0B 32 00 3B 00 |..........o.2.;.|
00000370: 97 0B 33 00 4C 44 41 20 24 44 43 30 44 20 20 20 |..3.LDA $DC0D |
00000380: 20 20 20 20 20 3B 49 52 51 AB 52 45 47 2E 20 4C | ;IRQ.REG. L|
00000390: 4F 45 53 43 48 45 4E 00 BA 0B 34 00 43 4C 49 20 |OESCHEN...4.CLI |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 52 | ;IR|
000003B0: 51 20 5A 55 4C 41 53 53 45 4E 00 E2 0B 35 00 4A |Q ZULASSEN...5.J|
000003C0: 4D 50 20 49 52 51 41 4C 54 20 20 20 20 20 20 20 |MP IRQALT |
000003D0: 3B 54 49 4D 45 52 AB 49 52 51 AB 52 4F 55 54 49 |;TIMER.IRQ.ROUTI|
000003E0: 4E 45 00 E8 0B 36 00 3B 00 00 0C 37 00 3B 52 41 |NE...6.;...7.;RA|
000003F0: 53 54 45 52 5A 45 49 C3 AB B5 45 52 52 55 50 54 |STERZEI...ERRUPT|
00000400: 00 1C 0C 38 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |...8.;..........|
00000410: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 22 0C 39 |.............".9|
00000420: 00 3B 00 48 0C 3A 00 52 41 53 54 45 52 49 52 51 |.;.H.:.RASTERIRQ|
00000430: 20 20 4C 44 41 20 52 41 53 54 45 52 20 20 3B 5A | LDA RASTER ;Z|
00000440: 45 49 4C 45 20 48 4F C3 00 67 0C 3B 00 43 4D 50 |EILE HO..g.;.CMP|
00000450: 20 23 52 AF 55 20 20 20 20 20 20 20 3B 55 4E 54 | #R.U ;UNT|
00000460: 45 52 45 52 20 52 AF 00 86 0C 3C 00 42 43 53 20 |ERER R....<.BCS |
00000470: 4F 4B 20 20 20 20 20 20 20 20 20 20 20 21 EA EE |OK !..|
00000480: 21 8E EE 90 8E E2 00 EE 0E 2E 00 EC EE E8 EF 0E |!...............|
00000490: EE EE 8E 2E 0E 2E 2E 2E 2E 2E 2E 2E 2B E3 E7 01 |............+...|
000004A0: EE 2A 88 9C DD AA 88 B7 3B FE BB 1C 81 FE EB EE |.*......;.......|
000004B0: EE EE EE E7 EE DA D0 EE EE EE EF EF EF EF EF EF |................|
000004C0: EF EF E6 EE DE E2 EE 36 ED EE EE DE E2 E6 EA EE |.......6........|
000004D0: EE DE EF B0 EB E0 EE EA EE E7 EF EE EE F0 EE EE |................|
000004E0: E6 FA EE EE DE DA EF EE EE E2 D2 ED EF EF EF EF |................|
000004F0: EF EF EF EF EF E7 5A 55 4D 20 53 43 48 4C 55 53 |......ZUM SCHLUS|
00000500: 53 00 28 0D 41 00 4F 4B 20 20 4C 44 41 20 23 47 |S.(.A.OK LDA #G|
00000510: 52 4F 53 53 20 20 20 3B 47 52 4F 53 53 53 43 48 |ROSS ;GROSSSCH|
00000520: 52 8B 54 4D 4F 44 55 53 00 4A 0D 42 00 53 54 41 |R.TMODUS.J.B.STA|
00000530: 20 4D 4F 44 55 53 20 20 20 20 20 20 20 20 3B 45 | MODUS ;E|
00000540: 49 4E 53 43 48 41 4C 54 45 4E 00 57 0D 43 00 4C |INSCHALTEN.W.C.L|
00000550: 44 41 20 23 52 AF 4F 00 6C 0D 44 00 45 58 49 54 |DA #R.O.l.D.EXIT|
00000560: 20 20 53 54 41 20 52 41 53 54 45 52 00 8C 0D 45 | STA RASTER...E|
00000570: 00 4A 4D 50 20 24 45 41 37 45 20 20 20 20 20 20 |.JMP $EA7E |
00000580: 20 20 3B 49 52 51 20 42 45 80 45 4E 00 00 00 | ;IRQ BE.EN... |
.......32768:.OPT P,OO.8....TIT "RASTERZ
EILEN-INTERRUPT".E....PAG 255.R..... $C0
00.`...R.O . 106.N...R.U . 194.....IRQAL
T . $EA31.....RASTER . $D012.....MASK .
$D01A.....REQUEST . $D019.K...MODUS . $D
018.Z...KLEIN . 21.....GROSS . 23.....;.
....;INITIALISIE.G.....;................
....;.@...SEI ;.ERRRUPT VERHINDERN
.Q...LDA #.IRQNEU.B...LDX #.IRQNEU.....S
TA $0314 ;IRQ.VEK.R AUF NEUE.....STX $03
15 ;ROUTINE SETZEN.....LDA #R.O.Q. .STA
RASTER ;1.ZEILE FUER IRQ...!.LDA RASTER
.1...".. #%01111111 ;HIGH.BYTE LOESCHEN
...#.STA RASTER.1.@.$.LDA #%10000001 ;I
RQ DURCH RASTER..D.%.STA MASK ;ZE
IC FESTLEGEN...&.CLO................ .J.
.YZ......X...H.A...H.....K..Y..Y........
....X.Q...T........................H.H.Q
.....K.......H...MY.M....K..QN.Z..M.....
A.STA REQUEST ;LOESCHEN.;...BMI RAS
TERIRQ ;ZUM RASTER . IRQ.A./.;.T.0.;T
IMER..ERRUPT.I.1.;................O.2.;.
..3.LDA $DC0D ;IRQ.REG. LOESCHEN.
..4.CLI ;IRQ ZULASSEN...5.J
MP IRQALT ;TIMER.IRQ.ROUTINE...6.;
...7.;RASTERZEIC..ERRUPT...8.;..........
.............".9.;.H.:.RASTERIRQ LDA RA
STER ;ZEILE HOC.G.;.CMP #R.U ;UNT
ERER R....<.BCS OK !..!.......
....................+....*......;.......
.....ZP................6................
.............Z....R...........ZUM SCHLUS
S.(.A.OK LDA #GROSS ;GROSSSCHR.TMODUS
.J.B.STA MODUS ;EINSCHALTEN.W.C.L
DA #R.O.L.D.EXIT STA RASTER...E.JMP $EA
7E ;IRQ BE.EN...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL