SPRITE-IRQ
FILE INFORMATION
FILENAME(S): SPRITE-IRQ
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:13:19
APPEARS ON: 1 disk(s)
FILE HASH
f26c613880c90bb57633a8e0e9724139d16b78a61ad0b9e28e12e1c58baf7fb1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10705 64ER 5 87 | SPRITE-IRQ | PRG | DuncanTwain | 19 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> 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 32 08 0A 00 2E 54 49 54 20 |T P,OO.2....TIT | 00000020: 22 53 50 52 49 54 45 2D 49 4E 54 45 52 52 55 50 |"SPRITE-INTERRUP| 00000030: 54 22 00 3F 08 0B 00 2E 50 41 47 20 32 35 35 00 |T".?....PAG 255.| 00000040: 4C 08 0C 00 AC B2 20 24 43 30 34 44 00 5C 08 0D |L..... $C04D.\..| 00000050: 00 56 49 43 20 B2 20 24 44 30 30 30 00 6F 08 0F |.VIC . $D000.o..| 00000060: 00 49 52 51 41 4C 54 20 B2 20 24 45 41 33 31 00 |.IRQALT . $EA31.| 00000070: 80 08 11 00 4D 41 53 4B 20 B2 20 24 44 30 31 41 |....MASK . $D01A| 00000080: 00 94 08 12 00 52 45 51 55 45 53 54 20 B2 20 24 |.....REQUEST . $| 00000090: 44 30 31 39 00 9A 08 16 00 3B 00 AD 08 17 00 3B |D019.....;.....;| 000000A0: 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 00 C2 08 |INITIALISIE.G...| 000000B0: 18 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..;.............| 000000C0: B2 B2 00 C8 08 19 00 3B 00 EB 08 1A 00 53 45 49 |.......;.....SEI| 000000D0: 20 20 20 20 20 20 20 3B B5 45 52 52 52 55 50 54 | ;.ERRRUPT| 000000E0: 20 56 45 52 48 49 4E 44 45 52 4E 00 FC 08 1B 00 | VERHINDERN.....| 000000F0: 4C 44 41 20 23 B3 49 52 51 4E 45 55 00 0D 09 1C |LDA #.IRQNEU....| 00000100: 00 4C 44 58 20 23 B1 49 52 51 4E 45 55 00 2F 09 |.LDX #.IRQNEU./.| 00000110: 1D 00 53 54 41 20 24 30 33 31 34 20 3B 49 52 51 |..STA $0314 ;IRQ| 00000120: AB 56 45 4B A4 52 20 41 55 46 20 4E 45 55 45 00 |.VEK.R AUF NEUE.| 00000130: 4D 09 1E 00 53 54 58 20 24 30 33 31 35 20 3B 52 |M...STX $0315 ;R| 00000140: 4F 55 54 49 4E 45 20 53 45 54 5A 45 4E 00 74 09 |OUTINE SETZEN.t.| 00000150: 24 00 4C 44 41 20 23 25 31 30 30 30 30 31 31 30 |$.LDA #%10000110| 00000160: 20 20 3B 49 52 51 20 44 55 52 43 48 20 53 50 52 | ;IRQ DURCH SPR| 00000170: 49 54 45 AB 00 9C 09 25 00 53 54 41 20 4D 41 53 |ITE....%.STA MAS| 00000180: 4B 20 20 20 20 20 20 20 20 3B 4B 4F 4C 4C 49 53 |K ;KOLLIS| 00000190: 49 91 20 46 45 53 54 4C 45 47 45 4E 00 BD 09 26 |I. FESTLEGEN...&| 000001A0: 00 43 4C 49 20 20 20 20 20 20 20 20 20 20 20 20 |.CLI | 000001B0: 20 3B 49 52 51 20 B8 49 47 45 42 45 4E 00 C5 09 | ;IRQ .IGEBEN...| 000001C0: 27 00 52 54 53 00 CB 09 28 00 3B 00 E4 09 29 00 |'.RTS...(.;...).| 000001D0: 3B 4E 45 55 45 20 B5 45 52 52 55 50 54 52 4F 55 |;NEUE .ERRUPTROU| 000001E0: 54 49 4E 45 00 FF 09 2A 00 3B B2 B2 B2 B2 B2 B2 |TINE...*.;......| 000001F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................| 00000200: 05 0A 2B 00 3B 00 2D 0A 2C 00 49 52 51 4E 45 55 |..+.;.-.,.IRQNEU| 00000210: 20 20 4C 44 41 20 52 45 51 55 45 53 54 20 20 20 | LDA REQUEST | 00000220: 3B 49 52 51 AB 52 45 47 49 53 54 45 52 00 4C 0A |;IRQ.REGISTER.L.| 00000230: 2D 00 53 54 41 20 52 45 51 55 45 53 54 20 20 20 |-.STA REQUEST | 00000240: 20 20 20 3B 4C 4F 45 53 43 48 45 4E 00 73 0A 2E | ;LOESCHEN.s..| 00000250: 00 42 4D 49 20 52 41 53 54 45 52 20 20 20 20 20 |.BMI RASTER | 00000260: 20 20 3B 5A 55 4D 20 52 41 53 54 45 52 20 AB 20 | ;ZUM RASTER . | 00000270: 49 52 51 00 79 0A 2F 00 3B 00 8C 0A 30 00 3B 54 |IRQ.y./.;...0.;T| 00000280: 49 4D 45 52 AB B5 45 52 52 55 50 54 00 A1 0A 31 |IMER..ERRUPT...1| 00000290: 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.;..............| 000002A0: B2 00 A7 0A 32 00 3B 00 CF 0A 33 00 4C 44 41 20 |....2.;...3.LDA | 000002B0: 24 44 43 30 44 20 20 20 20 20 20 20 20 3B 49 52 |$DC0D ;IR| 000002C0: 51 AB 52 45 47 2E 20 4C 4F 45 53 43 48 45 4E 00 |Q.REG. LOESCHEN.| 000002D0: F2 0A 34 00 43 4C 49 20 20 20 20 20 20 20 20 20 |..4.CLI | 000002E0: 20 20 20 20 20 3B 49 52 51 20 5A 55 4C 41 53 53 | ;IRQ ZULASS| 000002F0: 45 4E 00 1A 0B 35 00 4A 4D 50 20 49 52 51 41 4C |EN...5.JMP IRQAL| 00000300: 54 20 20 20 20 20 20 20 3B 54 49 4D 45 52 AB 49 |T ;TIMER.I| 00000310: 52 51 AB 52 4F 55 54 49 4E 45 00 20 0B 36 00 3B |RQ.ROUTINE. .6.;| 00000320: 00 38 0B 37 00 3B 52 41 53 54 45 52 5A 45 49 C3 |.8.7.;RASTERZEI.| 00000330: AB B5 45 52 52 55 50 54 00 54 0B 38 00 3B B2 B2 |..ERRUPT.T.8.;..| 00000340: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................| 00000350: B2 B2 B2 B2 00 5A 0B 39 00 3B 00 81 0B 3A 00 52 |.....Z.9.;...:.R| 00000360: 41 53 54 45 52 20 20 4C 44 41 20 56 49 43 AA 33 |ASTER LDA VIC.3| 00000370: 31 20 20 20 20 20 3B 53 50 52 AB 48 B5 45 52 47 |1 ;SPR.H.ERG| 00000380: 52 00 96 0B 3B 00 43 4D 50 20 23 30 30 3A 42 4E |R...;.CMP #00:BN| 00000390: 45 20 42 41 43 4B 00 9C 0B 3C 00 3B 00 B8 0B 3D |E BACK...<.;...=| 000003A0: 00 3B 53 50 52 49 54 45 AB 53 50 52 49 54 45 20 |.;SPRITE.SPRITE | 000003B0: 4B 4F 4C 4C 49 53 49 91 00 D5 0B 3E 00 3B B2 B2 |KOLLISI....>.;..| 000003C0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................| 000003D0: B2 B2 B2 B2 B2 00 DB 0B 3F 00 3B 00 E7 0B 42 00 |........?.;...B.| 000003E0: 4C 44 58 20 23 33 35 00 F7 0B 43 00 4C 31 20 20 |LDX #35...C.L1 | 000003F0: 4C 44 59 20 23 30 30 00 03 0C 44 00 4C 32 20 20 |LDY #00...D.L2 | 00000400: 54 59 41 00 25 0C 45 00 53 54 41 20 56 49 43 AA |TYA.%.E.STA VIC.| 00000410: 33 39 AA 31 20 20 20 3B 53 50 52 49 54 45 31 20 |39.1 ;SPRITE1 | 00000420: 46 41 52 42 45 00 30 0C 46 00 45 B0 20 23 31 35 |FARBE.0.F.E. #15| 00000430: 00 52 0C 47 00 53 54 41 20 56 49 43 AA 33 39 AA |.R.G.STA VIC.39.| 00000440: 32 20 20 20 3B 53 50 52 49 54 45 32 20 46 41 52 |2 ;SPRITE2 FAR| 00000450: 42 45 00 5A 0C 48 00 49 4E 59 00 65 0C 49 00 42 |BE.Z.H.INY.e.I.B| 00000460: 4E 45 20 4C 32 00 6D 0C 4A 00 44 45 58 00 78 0C |NE L2.m.J.DEX.x.| 00000470: 4B 00 42 4E 45 20 4C 31 00 9A 0C 4C 00 4C 33 20 |K.BNE L1...L.L3 | 00000480: 20 49 4E 43 20 56 49 43 AA 33 20 20 3B 53 50 52 | INC VIC.3 ;SPR| 00000490: 49 54 45 31 20 B6 54 55 52 5A 00 A6 0C 4D 00 4C |ITE1 .TURZ...M.L| 000004A0: 44 58 20 23 31 33 00 B7 0C 4E 00 4C 50 31 20 20 |DX #13...N.LP1 | 000004B0: 4C 44 59 20 23 30 30 00 C4 0C 4F 00 4C 50 32 20 |LDY #00...O.LP2 | 000004C0: 20 49 4E 59 00 D0 0C 50 00 42 4E 45 20 4C 50 32 | INY...P.BNE LP2| 000004D0: 00 D8 0C 51 00 44 45 58 00 E4 0C 52 00 42 4E 45 |...Q.DEX...R.BNE| 000004E0: 20 4C 50 31 00 F2 0C 57 00 4C 44 41 20 56 49 43 | LP1...W.LDA VIC| 000004F0: AA 33 00 FF 0C 58 00 43 4D 50 20 23 32 32 30 00 |.3...X.CMP #220.| 00000500: 0A 0D 59 00 42 4E 45 20 4C 33 00 19 0D 64 00 4C |..Y.BNE L3...d.L| 00000510: 44 41 20 56 49 43 AA 32 31 00 37 0D 65 00 AF 20 |DA VIC.21.7.e.. | 00000520: 23 25 31 31 31 31 31 31 30 31 20 3B 53 50 52 49 |#%11111101 ;SPRI| 00000530: 54 45 31 20 41 55 53 00 46 0D 66 00 53 54 41 20 |TE1 AUS.F.f.STA | 00000540: 56 49 43 AA 32 31 00 52 0D 67 00 4C 44 41 20 23 |VIC.21.R.g.LDA #| 00000550: 30 30 00 78 0D 68 00 53 54 41 20 56 49 43 AA 33 |00.x.h.STA VIC.3| 00000560: 30 20 20 20 20 20 3B 4B 4F 4C 4C 49 53 49 91 20 |0 ;KOLLISI. | 00000570: 4C 4F 45 53 43 48 45 4E 00 96 0D 69 00 4A 4D 50 |LOESCHEN...i.JMP| 00000580: 20 24 46 45 42 43 20 20 20 20 20 20 3B 49 52 51 | $FEBC ;IRQ| 00000590: 20 42 45 80 45 4E 00 9C 0D 6A 00 3B 00 B9 0D 6B | BE.EN...j.;...k| 000005A0: 00 3B 53 50 52 49 54 45 AB 48 B5 45 52 47 8A 47 |.;SPRITE.H.ERG.G| 000005B0: 20 4B 4F 4C 4C 49 53 49 91 00 DB 0D 6C 00 3B B2 | KOLLISI....l.;.| 000005C0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................| 000005D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 E1 0D 6D 00 |..............m.| 000005E0: 3B 00 F3 0D 6E 00 42 41 43 4B 20 20 4C 44 58 20 |;...n.BACK LDX | 000005F0: 23 33 35 00 03 0E 6F 00 4C 34 20 20 4C 44 59 20 |#35...o.L4 LDY | 00000600: 23 30 30 00 0F 0E 70 00 4C 35 20 20 54 59 41 00 |#00...p.L5 TYA.| 00000610: 32 0E 71 00 53 54 41 20 56 49 43 AA 33 39 AA 32 |2.q.STA VIC.39.2| 00000620: 20 20 20 20 3B 52 E0 52 49 54 45 32 20 46 41 52 | ;R.RITE2 FAR| 00000630: 42 45 00 3A 0E 72 00 49 4E 59 00 45 0E 73 00 42 |BE.:.r.INY.E.s.B| 00000640: 4E 45 20 4C 35 00 4D 0E 74 00 44 45 58 00 58 0E |NE L5.M.t.DEX.X.| 00000650: 75 00 42 4E 45 20 44 6E EF 56 FD 5E EE EB EC EF |u.BNE Dn.V.^....| 00000660: EE D2 DE DE EE EE D2 DE FF EE EF EF EF E6 EE EE |................| 00000670: EE D2 EE EE EE EF 7E EE EE EE EE EE 34 FD 54 EE |......~.....4.T.| 00000680: EA EE E3 EF EE E7 EE EF 22 FD 42 EE EA EF EE EF |........".B.....| 00000690: EE EA EE E3 EF EE EF EE EF EE FD 52 EE EA EF ED |...........R....| 000006A0: EF EE D2 DE E2 EF 66 FD 5E EE DE DE EE EE EA EF |......f.^.......| 000006B0: EE EF E2 FD 56 EE EE EE E2 EE AE FD 4A EE DE DE |....V.......J...| 000006C0: EE EE EA EF EE EF BE FD 5A EE EA EE E7 EE EE D2 |........Z.......| 000006D0: DE FF EE EF EE FD 5E EE DE DA EF EF EE EE EE EE |......^.........| 000006E0: EF D6 FE 3E EE DE DE EE EE EB EE EF 1E FE 3E EE |...>..........>.| 000006F0: EA ED 41 20 56 49 43 AA 32 31 00 19 0F 84 00 AF |..A VIC.21......| 00000700: 20 23 25 31 31 31 31 31 30 31 31 20 20 3B 53 50 | #%11111011 ;SP| 00000710: 52 49 54 45 32 20 41 55 53 00 28 0F 85 00 53 54 |RITE2 AUS.(...ST| 00000720: 41 20 56 49 43 AA 32 31 00 34 0F 86 00 4C 44 41 |A VIC.21.4...LDA| 00000730: 20 23 30 30 00 5B 0F 87 00 53 54 41 20 56 49 43 | #00.[...STA VIC| 00000740: AA 33 31 20 20 20 20 20 20 3B 4B 4F 4C 4C 49 53 |.31 ;KOLLIS| 00000750: 49 91 20 4C 4F 45 53 43 48 45 4E 00 7A 0F 88 00 |I. LOESCHEN.z...| 00000760: 4A 4D 50 20 24 46 45 42 43 20 20 20 20 20 20 20 |JMP $FEBC | 00000770: 3B 49 52 51 20 42 45 80 45 4E 00 00 00 |;IRQ BE.EN... |
.......32768:.OPT P,OO.2....TIT "SPRITE- INTERRUPT".?....PAG 255.L..... $C04D.\.. .VIC . $D000.O...IRQALT . $EA31.....MASK . $D01A.....REQUEST . $D019.....;.....; INITIALISIE.G.B...;................H...; .....SEI ;.ERRRUPT VERHINDERN..... LDA #.IRQNEU.....LDX #.IRQNEU./...STA $0 314 ;IRQ.VEK.R AUF NEUE.M...STX $0315 ;R OUTINE SETZEN.T.$.LDA #%10000110 ;IRQ D URCH SPRITE....%.STA MASK ;KOLLIS I. FESTLEGEN...&.CLI ;IRQ .I GEBEN.E.'.RTS.K.(.;...).;NEUE .ERRUPTROU TINE...*.;........................+.;.-. ,.IRQNEU LDA REQUEST ;IRQ.REGISTER.L. -.STA REQUEST ;LOESCHEN.S...BMI RAS TER ;ZUM RASTER . IRQ.Y./.;...0.;T IMER..ERRUPT...1.;..................2.;. O.3.LDA $DC0D ;IRQ.REG. LOESCHEN. ..4.CLI ;IRQ ZULASSEN...5.J MP IRQALT ;TIMER.IRQ.ROUTINE. .6.; .8.7.;RASTERZEIC..ERRUPT.T.8.;.......... .............Z.9.;...:.RASTER LDA VIC.3 1 ;SPR.H.ERGR...;.CMP #00:BNE BACK.. .<.;...=.;SPRITE.SPRITE KOLLISI..U.>.;.. ........................?.;...B.LDX #35. ..C.L1 LDY #00...D.L2 TYA.%.E.STA VIC. 39.1 ;SPRITE1 FARBE.0.F.E. #15.R.G.STA VIC.39.2 ;SPRITE2 FARBE.Z.H.INY.E.I.B NE L2.M.J.DEX.X.K.BNE L1...L.L3 INC VIC .3 ;SPRITE1 .TURZ...M.LDX #13...N.LP1 LDY #00.D.O.LP2 INY.P.P.BNE LP2.X.Q.DEX ...R.BNE LP1...W.LDA VIC.3...X.CMP #220. ..Y.BNE L3...D.LDA VIC.21.7.E.. #%111111 01 ;SPRITE1 AUS.F.F.STA VIC.21.R.G.LDA # 00.X.H.STA VIC.30 ;KOLLISI. LOESCHEN ...I.JMP $FEBC ;IRQ BE.EN...J.;...K .;SPRITE.H.ERG.G KOLLISI....L.;......... ......................M.;...N.BACK LDX #35...O.L4 LDY #00...P.L5 TYA.2.Q.STA VIC.39.2 ;R.RITE2 FARBE.:.R.INY.E.S.B NE L5.M.T.DEX.X.U.BNE DN.V.^.....R....R. .........R....~.....4.T.........".B..... ...........R......R...F.^...........V... ....J...........Z......R......^..Z...... .V.>..........>...A VIC.21...... #%11111 011 ;SPRITE2 AUS.(...STA VIC.21.4...LDA #00.[...STA VIC.31 ;KOLLISI. LOESC HEN.Z...JMP $FEBC ;IRQ BE.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL