> 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 49 20 20 20 20 |EGEN...&.CLI |
00000270: 20 20 20 20 20 20 20 20 20 3B 49 52 51 20 B8 49 | ;IRQ .I|
00000280: 47 45 42 45 4E 00 8D 0A 27 00 52 54 53 00 93 0A |GEBEN...'.RTS...|
00000290: 28 00 3B 00 AC 0A 29 00 3B 4E 45 55 45 20 B5 45 |(.;...).;NEUE .E|
000002A0: 52 52 55 50 54 52 4F 55 54 49 4E 45 00 C7 0A 2A |RRUPTROUTINE...*|
000002B0: 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.;..............|
000002C0: B2 B2 B2 B2 B2 B2 B2 00 CD 0A 2B 00 3B 00 F5 0A |..........+.;...|
000002D0: 2C 00 49 52 51 4E 45 55 20 20 4C 44 41 20 52 45 |,.IRQNEU LDA RE|
000002E0: 51 55 45 53 54 20 20 20 3B 49 52 51 AB 52 45 47 |QUEST ;IRQ.REG|
000002F0: 49 53 54 45 52 00 14 0B 2D 00 53 54 41 20 52 45 |ISTER...-.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 3B 4A 41 |OK ;JA|
00000480: 2C 20 53 50 8A 47 00 AC 0C 3D 00 4C 44 41 20 23 |, SP.G...=.LDA #|
00000490: 4B 4C 45 49 4E 20 20 20 20 20 20 20 3B 4E 45 49 |KLEIN ;NEI|
000004A0: 4E 2C 20 41 55 46 20 4B 45 49 4E AB 00 D2 0C 3E |N, AUF KEIN....>|
000004B0: 00 53 54 41 20 4D 4F 44 55 53 20 20 20 20 20 20 |.STA MODUS |
000004C0: 20 20 3B 53 43 48 52 8B 54 20 53 43 48 41 4C 54 | ;SCHR.T SCHALT|
000004D0: 45 4E 00 DF 0C 3F 00 4C 44 41 20 23 52 AF 55 00 |EN...?.LDA #R.U.|
000004E0: 01 0D 40 00 4A 4D 50 20 45 58 49 54 20 20 20 20 |..@.JMP EXIT |
000004F0: 20 20 20 20 20 3B 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...&.CLI ;IRQ .I
GEBEN...'.RTS...(.;...).;NEUE .ERRUPTROU
TINE.G.*.;......................M.+.;...
,.IRQNEU LDA REQUEST ;IRQ.REGISTER...
-.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 ;JA, SP.G..
.=.LDA #KLEIN ;NEIN, AUF KEIN..R.>
.STA MODUS ;SCHR.T SCHALTEN...?.L
DA #R.U...@.JMP EXIT ;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