13
FILE INFORMATION
FILENAME(S): 13
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
a572902010c5ae61fc075d41a233d3c4b3fe52a4127cd1ada1714240c2e0f7e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 13 | PRG | Curtcool, Nigel | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 |.. *= $1| 00000010: 30 30 30 0D 0D 20 20 20 20 20 20 20 20 20 53 45 |000.. SE| 00000020: 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |I. LDA #| 00000030: 24 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$01. STA| 00000040: 20 24 44 30 31 41 0D 20 20 20 20 20 20 20 20 20 | $D01A. | 00000050: 53 54 41 20 24 44 43 30 44 0D 20 20 20 20 20 20 |STA $DC0D. | 00000060: 20 20 20 4C 44 41 20 23 24 31 42 0D 20 20 20 20 | LDA #$1B. | 00000070: 20 20 20 20 20 53 54 41 20 24 44 30 31 31 0D 20 | STA $D011. | 00000080: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 49 52 | LDA #>IR| 00000090: 51 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |Q. STA $| 000000A0: 30 33 31 35 0D 20 20 20 20 20 20 20 20 20 4C 44 |0315. LD| 000000B0: 41 20 23 3C 49 52 51 0D 20 20 20 20 20 20 20 20 |A #<IRQ. | 000000C0: 20 53 54 41 20 24 30 33 31 34 0D 20 20 20 20 20 | STA $0314. | 000000D0: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 000000E0: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 32 0D | STA $D012.| 000000F0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 00000100: 30 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 24 |0. STX $| 00000110: 33 30 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |30. STX | 00000120: 24 33 31 0D 20 20 20 20 20 20 20 20 20 53 54 58 |$31. STX| 00000130: 20 24 33 32 0D 20 20 20 20 20 20 20 20 20 53 54 | $32. ST| 00000140: 58 20 24 33 33 0D 20 20 20 20 20 20 20 20 20 4C |X $33. L| 00000150: 44 41 20 23 24 46 46 0D 4D 52 20 20 20 20 20 20 |DA #$FF.MR | 00000160: 20 53 54 41 20 24 30 33 34 30 2C 58 0D 20 20 20 | STA $0340,X. | 00000170: 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 | INX. | 00000180: 20 20 20 43 50 58 20 23 24 34 30 0D 20 20 20 20 | CPX #$40. | 00000190: 20 20 20 20 20 42 4E 45 20 4D 52 0D 20 20 20 20 | BNE MR. | 000001A0: 20 20 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 | LDA #$FF. | 000001B0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 35 | STA $D015| 000001C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 |. LDX #$| 000001D0: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 000001E0: 23 24 30 44 0D 52 52 43 20 20 20 20 20 20 53 54 |#$0D.RRC ST| 000001F0: 41 20 24 30 37 46 38 2C 58 0D 20 20 20 20 20 20 |A $07F8,X. | 00000200: 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 | INX. | 00000210: 43 50 58 20 23 24 30 38 0D 20 20 20 20 20 20 20 |CPX #$08. | 00000220: 20 20 42 4E 45 20 52 52 43 0D 20 20 20 20 20 20 | BNE RRC. | 00000230: 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 | LDA #$01. | 00000240: 20 20 20 20 20 53 54 41 20 24 30 32 38 36 0D 20 | STA $0286. | 00000250: 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 35 34 | JSR $E54| 00000260: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |4. LDA #| 00000270: 24 30 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |$08. JSR| 00000280: 20 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 | $FFD2. | 00000290: 43 4C 49 0D 20 20 20 20 20 20 20 20 20 52 54 53 |CLI. RTS| 000002A0: 0D 49 52 51 0D 20 20 20 20 20 20 20 20 20 52 4F |.IRQ. RO| 000002B0: 4C 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 |L $D019. | 000002C0: 20 4A 53 52 20 53 50 52 49 54 45 53 0D 20 20 20 | JSR SPRITES. | 000002D0: 20 20 20 20 20 20 4A 4D 50 20 24 45 41 33 31 0D | JMP $EA31.| 000002E0: 0D 53 50 52 49 54 45 53 0D 20 20 20 20 20 20 20 |.SPRITES. | 000002F0: 20 20 4C 44 58 20 24 33 30 0D 20 20 20 20 20 20 | LDX $30. | 00000300: 20 20 20 4C 44 59 20 23 24 30 30 0D 44 44 44 0D | LDY #$00.DDD.| 00000310: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 00000320: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 | LDA #$00. | 00000330: 20 20 20 20 20 20 20 20 41 44 43 20 24 32 30 30 | ADC $200| 00000340: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |0,X. STA| 00000350: 20 24 44 30 30 31 2C 59 0D 20 20 20 20 20 20 20 | $D001,Y. | 00000360: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 49 | INX. I| 00000370: 4E 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |NX. INX.| 00000380: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. | 00000390: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 000003A0: 20 20 20 43 50 59 20 23 24 31 30 0D 20 20 20 20 | CPY #$10. | 000003B0: 20 20 20 20 20 42 4E 45 20 44 44 44 0D 20 20 20 | BNE DDD. | 000003C0: 20 20 20 20 20 20 49 4E 43 20 24 33 30 0D 20 20 | INC $30. | 000003D0: 20 20 20 20 20 20 20 49 4E 43 20 24 33 30 0D 20 | INC $30. | 000003E0: 20 20 20 20 20 20 20 20 49 4E 43 20 24 33 30 0D | INC $30.| 000003F0: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 24 33 |. LDX $3| 00000400: 31 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |1. CLC. | 00000410: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 30 | LDA #$30| 00000420: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 24 32 |. ADC $2| 00000430: 31 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |100,X. S| 00000440: 54 41 20 24 33 32 0D 20 20 20 20 20 20 20 20 20 |TA $32. | 00000450: 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDY #$00. | 00000460: 20 20 53 54 59 20 24 44 30 31 30 0D 20 20 20 20 | STY $D010. | 00000470: 20 20 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 | LDA #$01. | 00000480: 20 20 20 20 20 20 20 53 54 41 20 24 33 33 0D 44 | STA $33.D| 00000490: 4F 52 31 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |OR1. CLC| 000004A0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 33 |. LDA $3| 000004B0: 32 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 43 |2. ADC C| 000004C0: 4F 55 4E 54 2C 59 0D 20 20 20 20 20 20 20 20 20 |OUNT,Y. | 000004D0: 53 54 41 20 24 44 30 30 30 2C 59 0D 20 20 20 20 |STA $D000,Y. | 000004E0: 20 20 20 20 20 42 43 43 20 4F 4B 0D 0D 20 20 20 | BCC OK.. | 000004F0: 20 20 20 20 20 20 4C 44 41 20 24 44 30 31 30 0D | LDA $D010.| 00000500: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 00000510: 20 20 20 20 20 20 41 44 43 20 24 33 33 0D 20 20 | ADC $33. | 00000520: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 30 | STA $D010| 00000530: 0D 4F 4B 0D 20 20 20 20 20 20 20 20 20 41 53 4C |.OK. ASL| 00000540: 20 24 33 33 0D 20 20 20 20 20 20 20 20 20 49 4E | $33. IN| 00000550: 59 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |Y. INY. | 00000560: 20 20 20 20 20 20 20 20 43 50 59 20 23 24 31 30 | CPY #$10| 00000570: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 4F |. BNE DO| 00000580: 52 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |R1. INC | 00000590: 24 33 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |$31. INC| 000005A0: 20 24 33 31 0D 20 20 20 20 20 20 20 20 20 49 4E | $31. IN| 000005B0: 43 20 24 33 31 0D 20 20 20 20 20 20 20 20 20 52 |C $31. R| 000005C0: 54 53 0D 0D 0D 0D 43 4F 55 4E 54 0D 20 20 20 20 |TS....COUNT. | 000005D0: 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 32 | .BYTE 0,0,2| 000005E0: 34 2C 32 34 2C 34 38 2C 34 38 2C 37 32 2C 37 32 |4,24,48,48,72,72| 000005F0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000600: 39 36 2C 39 36 2C 31 32 30 2C 31 32 30 2C 31 34 |96,96,120,120,14| 00000610: 38 2C 31 34 38 0D 20 20 20 20 20 20 20 20 20 2E |8,148. .| 00000620: 42 59 54 45 20 31 37 32 2C 31 37 32 0D 0D |BYTE 172,172.. |
.. *= $1000.. SEI.
LDA #$01. STA $D01A.
STA $DC0D. LDA #$1B. STA
$D011. LDA #>IRQ. STA $
0315. LDA #<IRQ. STA $03
14. LDA #$00. STA $D012.
LDX #$00. STX $30.
STX $31. STX $32. ST
X $33. LDA #$FF.MR STA $03
40,X. INX. CPX #$40.
BNE MR. LDA #$FF. S
TA $D015. LDX #$00. LDA
#$0D.RRC STA $07F8,X. INX.
CPX #$08. BNE RRC.
LDA #$01. STA $0286.
JSR $E544. LDA #$08. JSR
$FFD2. CLI. RTS.IRQ.
ROL $D019. JSR SPRITES.
JMP $EA31..SPRITES. LDX $3
0. LDY #$00.DDD. CLC.
LDA #$00. ADC $2000,X.
STA $D001,Y. INX. I
NX. INX. INY. IN
Y. CPY #$10. BNE DDD.
INC $30. INC $30.
INC $30.. LDX $31. CLC.
LDA #$30. ADC $2100,X.
STA $32. LDY #$00.
STY $D010. LDA #$01. S
TA $33.DOR1. CLC. LDA $3
2. ADC COUNT,Y. STA $D00
0,Y. BCC OK.. LDA $D010.
CLC. ADC $33. S
TA $D010.OK. ASL $33. IN
Y. INY. CPY #$10.
BNE DOR1. INC $31. INC
$31. INC $31. RTS....CO
UNT. .BYTE 0,0,24,24,48,48,72,72
. .BYTE 96,96,120,120,148,148.
.BYTE 172,172..
> CLICK IMAGE PREVIEW FOR FULL MODAL