29
FILE INFORMATION
FILENAME(S): 29
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
3a3b2f9102a7b6e4c89db84ea214152f69417cc2790b6c46103199567ddb7dae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 29 | PRG | Curtcool, Nigel | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 |... *= $| 00000010: 34 30 30 30 0D 0D 0D 20 20 20 20 20 20 20 20 20 |4000... | 00000020: 4A 53 52 20 49 4E 49 54 0D 20 20 20 20 20 20 20 |JSR INIT. | 00000030: 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 4C | SEI. L| 00000040: 44 41 20 23 24 37 46 0D 20 20 20 20 20 20 20 20 |DA #$7F. | 00000050: 20 53 54 41 20 24 44 43 30 44 0D 20 20 20 20 20 | STA $DC0D. | 00000060: 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 | LDA #1. | 00000070: 20 20 20 20 53 54 41 20 24 44 30 31 41 0D 20 20 | STA $D01A. | 00000080: 20 20 20 20 20 20 20 4C 44 41 20 23 24 31 42 0D | LDA #$1B.| 00000090: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3C 49 | LDY #<I| 000000A0: 4E 54 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |NT. LDX | 000000B0: 23 3E 49 4E 54 0D 20 20 20 20 20 20 20 20 20 53 |#>INT. S| 000000C0: 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 |TA $D011. | 000000D0: 20 20 53 54 59 20 24 30 33 31 34 0D 20 20 20 20 | STY $0314. | 000000E0: 20 20 20 20 20 53 54 58 20 24 30 33 31 35 0D 20 | STX $0315. | 000000F0: 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 | CLI. | 00000100: 20 20 20 20 20 52 54 53 0D 0D 0D 0D 49 4E 54 20 | RTS....INT | 00000110: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 00000120: 20 20 52 4F 4C 20 24 44 30 31 39 0D 20 20 20 20 | ROL $D019. | 00000130: 20 20 20 20 20 4C 44 41 20 24 44 30 31 32 0D 20 | LDA $D012. | 00000140: 20 20 20 20 20 20 20 20 43 4D 50 20 23 34 38 0D | CMP #48.| 00000150: 20 20 20 20 20 20 20 20 20 42 45 51 20 47 41 41 | BEQ GAA| 00000160: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |1. CMP #| 00000170: 31 32 30 0D 20 20 20 20 20 20 20 20 20 42 45 51 |120. BEQ| 00000180: 20 47 41 41 32 0D 20 20 20 20 20 20 20 20 20 43 | GAA2. C| 00000190: 4D 50 20 23 31 39 30 0D 20 20 20 20 20 20 20 20 |MP #190. | 000001A0: 20 42 45 51 20 47 41 41 33 0D 0D 0D 0D 0D 47 41 | BEQ GAA3.....GA| 000001B0: 41 31 20 20 20 20 20 4A 4D 50 20 52 41 53 31 0D |A1 JMP RAS1.| 000001C0: 47 41 41 32 20 20 20 20 20 4A 4D 50 20 52 41 53 |GAA2 JMP RAS| 000001D0: 32 0D 47 41 41 33 20 20 20 20 20 4A 4D 50 20 52 |2.GAA3 JMP R| 000001E0: 41 53 33 0D 0D 0D 0D 0D 52 41 53 31 20 20 20 20 |AS3.....RAS1 | 000001F0: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 | = *. LD| 00000200: 41 20 23 32 0D 20 20 20 20 20 20 20 20 20 53 54 |A #2. ST| 00000210: 41 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 20 |A $D020. | 00000220: 20 53 54 41 20 24 44 30 32 31 0D 20 20 20 20 20 | STA $D021. | 00000230: 20 20 20 20 4C 44 41 20 23 31 32 30 0D 20 20 20 | LDA #120. | 00000240: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 32 0D | STA $D012.| 00000250: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 46 45 | JMP $FE| 00000260: 42 43 0D 0D 0D 52 41 53 32 20 20 20 20 20 3D 20 |BC...RAS2 = | 00000270: 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |*. LDA #| 00000280: 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |3. STA $| 00000290: 44 30 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 |D020. ST| 000002A0: 41 20 24 44 30 32 31 0D 20 20 20 20 20 20 20 20 |A $D021. | 000002B0: 20 4A 53 52 20 46 4C 44 0D 20 20 20 20 20 20 20 | JSR FLD. | 000002C0: 20 20 4C 44 41 20 23 31 39 30 0D 20 20 20 20 20 | LDA #190. | 000002D0: 20 20 20 20 53 54 41 20 24 44 30 31 32 0D 20 20 | STA $D012. | 000002E0: 20 20 20 20 20 20 20 4A 4D 50 20 24 46 45 42 43 | JMP $FEBC| 000002F0: 0D 0D 0D 52 41 53 33 20 20 20 20 20 3D 20 2A 0D |...RAS3 = *.| 00000300: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 0D | LDA #4.| 00000310: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000320: 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |20. STA | 00000330: 24 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C |$D021. L| 00000340: 44 41 20 23 34 38 0D 20 20 20 20 20 20 20 20 20 |DA #48. | 00000350: 53 54 41 20 24 44 30 31 32 0D 20 20 20 20 20 20 |STA $D012. | 00000360: 20 20 20 4A 4D 50 20 24 45 41 33 31 0D 0D 0D 0D | JMP $EA31....| 00000370: 49 4E 49 54 20 20 20 20 20 3D 20 2A 0D 20 20 20 |INIT = *. | 00000380: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000390: 20 20 20 20 20 20 53 54 41 20 24 33 46 46 46 0D | STA $3FFF.| 000003A0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 0D 46 | RTS...F| 000003B0: 4C 44 20 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 |LD = *. | 000003C0: 20 20 20 20 20 4C 44 58 20 4B 4E 55 44 31 0D 41 | LDX KNUD1.A| 000003D0: 31 20 20 20 20 20 20 20 4C 44 41 20 24 44 30 31 |1 LDA $D01| 000003E0: 32 0D 41 32 20 20 20 20 20 20 20 43 4D 50 20 24 |2.A2 CMP $| 000003F0: 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 42 45 |D012. BE| 00000400: 51 20 41 32 0D 20 20 20 20 20 20 20 20 20 41 4E |Q A2. AN| 00000410: 44 20 23 37 0D 20 20 20 20 20 20 20 20 20 4F 52 |D #7. OR| 00000420: 41 20 23 24 31 30 0D 20 20 20 20 20 20 20 20 20 |A #$10. | 00000430: 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 |STA $D011. | 00000440: 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 | DEX. | 00000450: 42 4E 45 20 41 31 0D 20 20 20 20 20 20 20 20 20 |BNE A1. | 00000460: 4C 44 58 20 23 32 34 0D 41 33 20 20 20 20 20 20 |LDX #24.A3 | 00000470: 20 4C 44 41 20 24 44 30 31 32 0D 41 34 20 20 20 | LDA $D012.A4 | 00000480: 20 20 20 20 43 4D 50 20 24 44 30 31 32 0D 20 20 | CMP $D012. | 00000490: 20 20 20 20 20 20 20 42 45 51 20 41 34 0D 20 20 | BEQ A4. | 000004A0: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 000004B0: 20 20 20 20 42 4E 45 20 41 33 0D 20 20 20 20 20 | BNE A3. | 000004C0: 20 20 20 20 4C 44 58 20 4B 4E 55 44 32 0D 41 35 | LDX KNUD2.A5| 000004D0: 20 20 20 20 20 20 20 4C 44 41 20 24 44 30 31 32 | LDA $D012| 000004E0: 0D 41 36 20 20 20 20 20 20 20 43 4D 50 20 24 44 |.A6 CMP $D| 000004F0: 30 31 32 0D 20 20 20 20 20 20 20 20 20 42 45 51 |012. BEQ| 00000500: 20 41 36 0D 20 20 20 20 20 20 20 20 20 41 4E 44 | A6. AND| 00000510: 20 23 37 0D 20 20 20 20 20 20 20 20 20 4F 52 41 | #7. ORA| 00000520: 20 23 24 31 30 0D 20 20 20 20 20 20 20 20 20 53 | #$10. S| 00000530: 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 |TA $D011. | 00000540: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B| 00000550: 4E 45 20 41 35 0D 20 20 20 20 20 20 20 20 20 4C |NE A5. L| 00000560: 44 41 20 23 24 31 42 0D 20 20 20 20 20 20 20 20 |DA #$1B. | 00000570: 20 53 54 41 20 24 44 30 31 31 0D 53 54 55 44 20 | STA $D011.STUD | 00000580: 20 20 20 20 4C 44 58 20 23 24 30 30 0D 20 20 20 | LDX #$00. | 00000590: 20 20 20 20 20 20 4C 44 41 20 23 34 30 0D 20 20 | LDA #40. | 000005A0: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 000005B0: 20 20 20 20 53 42 43 20 44 41 54 31 2C 58 0D 20 | SBC DAT1,X. | 000005C0: 20 20 20 20 20 20 20 20 53 54 41 20 4B 4E 55 44 | STA KNUD| 000005D0: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 44 |2. LDA D| 000005E0: 41 54 31 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |AT1,X. S| 000005F0: 54 41 20 4B 4E 55 44 31 0D 20 20 20 20 20 20 20 |TA KNUD1. | 00000600: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 49 | INX. I| 00000610: 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 |NX. CPX | 00000620: 23 31 30 30 0D 20 20 20 20 20 20 20 20 20 42 4E |#100. BN| 00000630: 45 20 41 37 0D 20 20 20 20 20 20 20 20 20 4C 44 |E A7. LD| 00000640: 58 20 23 30 0D 41 37 20 20 20 20 20 20 20 53 54 |X #0.A7 ST| 00000650: 58 20 53 54 55 44 2B 31 0D 20 20 20 20 20 20 20 |X STUD+1. | 00000660: 20 20 52 54 53 0D 0D 4B 4E 55 44 31 20 20 20 20 | RTS..KNUD1 | 00000670: 2E 42 59 54 45 20 30 0D 4B 4E 55 44 32 20 20 20 |.BYTE 0.KNUD2 | 00000680: 20 2E 42 59 54 45 20 30 0D 0D 44 41 54 31 20 20 | .BYTE 0..DAT1 | 00000690: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 000006A0: 2E 42 59 54 45 20 24 31 45 2C 24 31 44 2C 24 31 |.BYTE $1E,$1D,$1| 000006B0: 43 2C 24 31 42 2C 24 31 41 2C 24 31 39 0D 20 20 |C,$1B,$1A,$19. | 000006C0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 38 | .BYTE $18| 000006D0: 2C 24 31 37 2C 24 31 36 2C 24 31 35 2C 24 31 35 |,$17,$16,$15,$15| 000006E0: 2C 24 31 34 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$14. .B| 000006F0: 59 54 45 20 24 31 33 2C 24 31 32 2C 24 31 31 2C |YTE $13,$12,$11,| 00000700: 24 31 30 2C 24 31 30 2C 24 30 46 0D 20 20 20 20 |$10,$10,$0F. | 00000710: 20 20 20 20 20 2E 42 59 54 45 20 24 30 45 2C 24 | .BYTE $0E,$| 00000720: 30 44 2C 24 30 43 2C 24 30 43 2C 24 30 42 2C 24 |0D,$0C,$0C,$0B,$| 00000730: 30 41 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |0A. .BYT| 00000740: 45 20 24 30 41 2C 24 30 39 2C 24 30 38 2C 24 30 |E $0A,$09,$08,$0| 00000750: 38 2C 24 30 37 2C 24 30 37 0D 20 20 20 20 20 20 |8,$07,$07. | 00000760: 20 20 20 2E 42 59 54 45 20 24 30 36 2C 24 30 36 | .BYTE $06,$06| 00000770: 2C 24 30 35 2C 24 30 35 2C 24 30 34 2C 24 30 34 |,$05,$05,$04,$04| 00000780: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000790: 24 30 33 2C 24 30 33 2C 24 30 33 2C 24 30 32 2C |$03,$03,$03,$02,| 000007A0: 24 30 32 2C 24 30 32 0D 20 20 20 20 20 20 20 20 |$02,$02. | 000007B0: 20 2E 42 59 54 45 20 24 30 31 2C 24 30 31 2C 24 | .BYTE $01,$01,$| 000007C0: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 0D 20 |01,$01,$01,$01. | 000007D0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 000007E0: 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 |1,$01,$01,$01,$0| 000007F0: 31 2C 24 30 31 0D 20 20 20 20 20 20 20 20 20 2E |1,$01. .| 00000800: 42 59 54 45 20 24 30 31 2C 24 30 31 2C 24 30 31 |BYTE $01,$01,$01| 00000810: 2C 24 30 31 2C 24 30 31 2C 24 30 32 0D 20 20 20 |,$01,$01,$02. | 00000820: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 32 2C | .BYTE $02,| 00000830: 24 30 32 2C 24 30 33 2C 24 30 33 2C 24 30 33 2C |$02,$03,$03,$03,| 00000840: 24 30 34 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |$04. .BY| 00000850: 54 45 20 24 30 34 2C 24 30 35 2C 24 30 35 2C 24 |TE $04,$05,$05,$| 00000860: 30 36 2C 24 30 36 2C 24 30 37 0D 20 20 20 20 20 |06,$06,$07. | 00000870: 20 20 20 20 2E 42 59 54 45 20 24 30 37 2C 24 30 | .BYTE $07,$0| 00000880: 38 2C 24 30 38 2C 24 30 39 2C 24 30 41 2C 24 30 |8,$08,$09,$0A,$0| 00000890: 41 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |A. .BYTE| 000008A0: 20 24 30 42 2C 24 30 43 2C 24 30 43 2C 24 30 44 | $0B,$0C,$0C,$0D| 000008B0: 2C 24 30 45 2C 24 30 46 0D 20 20 20 20 20 20 20 |,$0E,$0F. | 000008C0: 20 20 2E 42 59 54 45 20 24 31 30 2C 24 31 30 2C | .BYTE $10,$10,| 000008D0: 24 31 31 2C 24 31 32 2C 24 31 33 2C 24 31 34 0D |$11,$12,$13,$14.| 000008E0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 000008F0: 31 35 2C 24 31 35 2C 24 31 36 2C 24 31 37 2C 24 |15,$15,$16,$17,$| 00000900: 31 38 2C 24 31 39 0D 20 20 20 20 20 20 20 20 20 |18,$19. | 00000910: 2E 42 59 54 45 20 24 31 41 2C 24 31 42 2C 24 31 |.BYTE $1A,$1B,$1| 00000920: 43 2C 24 31 44 2C 24 31 44 2C 24 31 46 0D 20 20 |C,$1D,$1D,$1F. | 00000930: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 46 | .BYTE $1F| 00000940: 2C 24 31 46 2C 24 30 30 0D 0D |,$1F,$00.. |
... *= $4000... JSR INIT
. SEI. LDA #$7F.
STA $DC0D. LDA #1. STA
$D01A. LDA #$1B. LDY #<I
NT. LDX #>INT. STA $D011
. STY $0314. STX $0315.
CLI. RTS....INT = *
. ROL $D019. LDA $D012.
CMP #48. BEQ GAA1.
CMP #120. BEQ GAA2. C
MP #190. BEQ GAA3.....GAA1 J
MP RAS1.GAA2 JMP RAS2.GAA3 JMP R
AS3.....RAS1 = *. LDA #2.
STA $D020. STA $D021.
LDA #120. STA $D012.
JMP $FEBC...RAS2 = *. LDA #
3. STA $D020. STA $D021.
JSR FLD. LDA #190.
STA $D012. JMP $FEBC...RAS3
= *. LDA #4. STA $D0
20. STA $D021. LDA #48.
STA $D012. JMP $EA31....
INIT = *. LDA #0. ST
A $3FFF. RTS...FLD = *.
LDX KNUD1.A1 LDA $D012.A2
CMP $D012. BEQ A2. AN
D #7. ORA #$10. STA $D01
1. DEX. BNE A1.
LDX #24.A3 LDA $D012.A4 CMP
$D012. BEQ A4. DEX.
BNE A3. LDX KNUD2.A5 L
DA $D012.A6 CMP $D012. BEQ
A6. AND #7. ORA #$10.
STA $D011. DEX. B
NE A5. LDA #$1B. STA $D0
11.STUD LDX #$00. LDA #40.
SEC. SBC DAT1,X.
STA KNUD2. LDA DAT1,X. S
TA KNUD1. INX. INX.
CPX #100. BNE A7. LD
X #0.A7 STX STUD+1. RTS..K
NUD1 .BYTE 0.KNUD2 .BYTE 0..DAT1
= *. .BYTE $1E,$1D,$1C,$1B,$1
A,$19. .BYTE $18,$17,$16,$15,$15
,$14. .BYTE $13,$12,$11,$10,$10,
$0F. .BYTE $0E,$0D,$0C,$0C,$0B,$
0A. .BYTE $0A,$09,$08,$08,$07,$0
7. .BYTE $06,$06,$05,$05,$04,$04
. .BYTE $03,$03,$03,$02,$02,$02.
.BYTE $01,$01,$01,$01,$01,$01.
.BYTE $01,$01,$01,$01,$01,$01.
.BYTE $01,$01,$01,$01,$01,$02.
.BYTE $02,$02,$03,$03,$03,$04.
.BYTE $04,$05,$05,$06,$06,$07.
.BYTE $07,$08,$08,$09,$0A,$0A.
.BYTE $0B,$0C,$0C,$0D,$0E,$0F.
.BYTE $10,$10,$11,$12,$13,$14.
.BYTE $15,$15,$16,$17,$18,$19.
.BYTE $1A,$1B,$1C,$1D,$1D,$1F. .
BYTE $1F,$1F,$00..
> CLICK IMAGE PREVIEW FOR FULL MODAL