3
FILE INFORMATION
FILENAME(S): 3
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
0b612804974e638dffbb3de28fa2532da4b598eede0fa1579eebb38b8c3c3b83
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 3 | PRG | Curtcool, Nigel | 5 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 53 45 54 20 20 20 20 20 20 2E 42 59 54 45 20 |.SET .BYTE | 00000010: 30 0D 53 50 45 45 44 20 20 20 20 2E 42 59 54 45 |0.SPEED .BYTE| 00000020: 20 30 0D 0D 53 50 52 53 43 52 4F 4C 4C 20 3D 20 | 0..SPRSCROLL = | 00000030: 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |*. LDA S| 00000040: 50 45 45 44 0D 20 20 20 20 20 20 20 20 20 43 4C |PEED. CL| 00000050: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 00000060: 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |3. STA S| 00000070: 50 45 45 44 0D 20 20 20 20 20 20 20 20 20 4C 44 |PEED. LD| 00000080: 41 20 53 45 54 0D 20 20 20 20 20 20 20 20 20 53 |A SET. S| 00000090: 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |EC. SBC | 000000A0: 23 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#2. STA | 000000B0: 53 45 54 0D 20 20 20 20 20 20 20 20 20 42 43 53 |SET. BCS| 000000C0: 20 52 45 41 44 0D 20 20 20 20 20 20 20 20 20 43 | READ. C| 000000D0: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 000000E0: 23 24 32 43 0D 20 20 20 20 20 20 20 20 20 53 54 |#$2C. ST| 000000F0: 41 20 53 45 54 0D 20 20 20 20 20 20 20 20 20 4C |A SET. L| 00000100: 44 41 20 53 50 45 45 44 0D 20 20 20 20 20 20 20 |DA SPEED. | 00000110: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00000120: 44 43 20 41 44 44 2B 31 0D 20 20 20 20 20 20 20 |DC ADD+1. | 00000130: 20 20 53 54 41 20 53 50 45 45 44 0D 20 20 20 20 | STA SPEED. | 00000140: 20 20 20 20 20 4C 44 58 20 23 30 0D 52 45 54 0D | LDX #0.RET.| 00000150: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 37 | LDA $07| 00000160: 46 39 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |F9,X. ST| 00000170: 41 20 24 30 37 46 38 2C 58 0D 20 20 20 20 20 20 |A $07F8,X. | 00000180: 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 | INX. | 00000190: 43 50 58 20 23 37 0D 20 20 20 20 20 20 20 20 20 |CPX #7. | 000001A0: 42 4E 45 20 52 45 54 0D 44 52 20 20 20 20 20 20 |BNE RET.DR | 000001B0: 20 4C 44 41 20 54 45 58 54 0D 20 20 20 20 20 20 | LDA TEXT. | 000001C0: 20 20 20 42 45 51 20 52 45 53 31 0D 20 20 20 20 | BEQ RES1. | 000001D0: 20 20 20 20 20 41 4E 44 20 23 24 33 46 0D 20 20 | AND #$3F. | 000001E0: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 000001F0: 20 20 20 20 41 44 43 20 23 24 43 30 0D 20 20 20 | ADC #$C0. | 00000200: 20 20 20 20 20 20 53 54 41 20 24 30 37 46 46 0D | STA $07FF.| 00000210: 20 20 20 20 20 20 20 20 20 49 4E 43 20 44 52 2B | INC DR+| 00000220: 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 |1. BNE R| 00000230: 45 41 44 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |EAD. INC| 00000240: 20 44 52 2B 32 0D 52 45 41 44 20 20 20 20 20 3D | DR+2.READ =| 00000250: 20 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 | *. LDX | 00000260: 53 50 45 45 44 0D 20 20 20 20 20 20 20 20 20 4C |SPEED. L| 00000270: 44 59 20 23 30 0D 48 41 54 0D 20 20 20 20 20 20 |DY #0.HAT. | 00000280: 20 20 20 4C 44 41 20 24 32 43 30 30 2C 58 0D 20 | LDA $2C00,X. | 00000290: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 000002A0: 20 20 20 20 20 41 44 43 20 23 24 38 30 0D 20 20 | ADC #$80. | 000002B0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 30 31 | STA $D001| 000002C0: 2C 59 0D 20 20 20 20 20 20 20 20 20 54 58 41 0D |,Y. TXA.| 000002D0: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 41 44 44 | CLC.ADD| 000002E0: 20 20 20 20 20 20 41 44 43 20 23 24 46 30 0D 20 | ADC #$F0. | 000002F0: 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 | TAX. | 00000300: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00000310: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 | INY. C| 00000320: 50 59 20 23 31 36 0D 20 20 20 20 20 20 20 20 20 |PY #16. | 00000330: 42 4E 45 20 48 41 54 0D 20 20 20 20 20 20 20 20 |BNE HAT. | 00000340: 20 4C 44 58 20 23 24 43 30 0D 20 20 20 20 20 20 | LDX #$C0. | 00000350: 20 20 20 4C 44 41 20 53 45 54 0D 20 20 20 20 20 | LDA SET. | 00000360: 20 20 20 20 53 54 41 20 24 44 30 30 30 0D 20 20 | STA $D000. | 00000370: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000380: 20 20 20 20 41 44 43 20 23 24 32 43 0D 20 20 20 | ADC #$2C. | 00000390: 20 20 20 20 20 20 53 54 41 20 24 44 30 30 32 0D | STA $D002.| 000003A0: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 32 | ADC #$2| 000003B0: 43 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |C. STA $| 000003C0: 44 30 30 34 0D 20 20 20 20 20 20 20 20 20 41 44 |D004. AD| 000003D0: 43 20 23 24 32 43 0D 20 20 20 20 20 20 20 20 20 |C #$2C. | 000003E0: 53 54 41 20 24 44 30 30 36 0D 20 20 20 20 20 20 |STA $D006. | 000003F0: 20 20 20 41 44 43 20 23 24 32 43 0D 20 20 20 20 | ADC #$2C. | 00000400: 20 20 20 20 20 53 54 41 20 24 44 30 30 38 0D 20 | STA $D008. | 00000410: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00000420: 20 20 20 20 20 41 44 43 20 23 24 32 43 0D 20 20 | ADC #$2C. | 00000430: 20 20 20 20 20 20 20 42 43 43 20 4E 4F 0D 20 20 | BCC NO. | 00000440: 20 20 20 20 20 20 20 4C 44 58 20 23 24 45 30 0D | LDX #$E0.| 00000450: 4E 4F 20 20 20 20 20 20 20 53 54 41 20 24 44 30 |NO STA $D0| 00000460: 30 41 0D 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |0A.. CLC| 00000470: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |. ADC #$| 00000480: 32 43 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |2C. STA | 00000490: 24 44 30 30 43 0D 20 20 20 20 20 20 20 20 20 43 |$D00C. C| 000004A0: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 000004B0: 23 24 32 43 0D 20 20 20 20 20 20 20 20 20 53 54 |#$2C. ST| 000004C0: 41 20 24 44 30 30 45 0D 20 20 20 20 20 20 20 20 |A $D00E. | 000004D0: 20 53 54 58 20 24 44 30 31 30 0D 20 20 20 20 20 | STX $D010. | 000004E0: 20 20 20 20 52 54 53 0D 0D 0D 52 45 53 31 20 20 | RTS...RES1 | 000004F0: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 00000500: 4A 53 52 20 52 45 53 32 0D 20 20 20 20 20 20 20 |JSR RES2. | 00000510: 20 20 4A 4D 50 20 44 52 0D 52 45 53 32 20 20 20 | JMP DR.RES2 | 00000520: 20 20 4C 44 41 20 23 3C 54 45 58 54 0D 20 20 20 | LDA #<TEXT. | 00000530: 20 20 20 20 20 20 53 54 41 20 44 52 2B 31 0D 20 | STA DR+1. | 00000540: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 54 45 | LDA #>TE| 00000550: 58 54 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |XT. STA | 00000560: 44 52 2B 32 0D 20 20 20 20 20 20 20 20 20 52 54 |DR+2. RT| 00000570: 53 0D 0D 0D 54 45 58 54 20 20 20 20 20 3D 20 2A |S...TEXT = *| 00000580: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000590: 22 20 4E 49 47 45 4C 20 49 53 20 43 4F 4F 4C 21 |" NIGEL IS COOL!| 000005A0: 20 2E 2E 2E 20 20 20 22 0D 20 20 20 20 20 20 20 | ... ". | 000005B0: 20 20 2E 42 59 54 45 20 30 0D 0D 0D | .BYTE 0... |
.SET .BYTE 0.SPEED .BYTE 0..SPRS
CROLL = *. LDA SPEED. CL
C. ADC #3. STA SPEED.
LDA SET. SEC. SBC
#2. STA SET. BCS READ.
CLC. ADC #$2C. ST
A SET. LDA SPEED. CLC.
ADC ADD+1. STA SPEED.
LDX #0.RET. LDA $07F9,X.
STA $07F8,X. INX.
CPX #7. BNE RET.DR LDA TEX
T. BEQ RES1. AND #$3F.
CLC. ADC #$C0. ST
A $07FF. INC DR+1. BNE R
EAD. INC DR+2.READ = *.
LDX SPEED. LDY #0.HAT.
LDA $2C00,X. CLC. ADC
#$80. STA $D001,Y. TXA.
CLC.ADD ADC #$F0.
TAX. INY. INY. C
PY #16. BNE HAT. LDX #$C
0. LDA SET. STA $D000.
CLC. ADC #$2C. ST
A $D002. ADC #$2C. STA $
D004. ADC #$2C. STA $D00
6. ADC #$2C. STA $D008.
CLC. ADC #$2C. B
CC NO. LDX #$E0.NO STA $D0
0A.. CLC. ADC #$2C.
STA $D00C. CLC. ADC
#$2C. STA $D00E. STX $D0
10. RTS...RES1 = *.
JSR RES2. JMP DR.RES2 LDA #<
TEXT. STA DR+1. LDA #>TE
XT. STA DR+2. RTS...TEXT
= *. .TEXT " NIGEL IS COOL!
... ". .BYTE 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL