15
FILE INFORMATION
FILENAME(S): 15
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
2eec09c60a98e7557c679f45170c1cdd13133bdb171dcb5547d724dc06230dd1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 15 | PRG | Curtcool, Nigel | 13 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |..... *=| 00000010: 20 24 33 30 30 30 0D 0D 20 20 20 20 20 20 20 20 | $3000.. | 00000020: 20 4A 53 52 20 49 4E 49 54 0D 20 20 20 20 20 20 | JSR INIT. | 00000030: 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 | SEI. | 00000040: 4C 44 41 20 23 24 37 46 0D 20 20 20 20 20 20 20 |LDA #$7F. | 00000050: 20 20 53 54 41 20 24 44 43 30 44 0D 20 20 20 20 | STA $DC0D. | 00000060: 20 20 20 20 20 4C 44 41 20 23 24 31 42 0D 20 20 | LDA #$1B. | 00000070: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 31 | STA $D011| 00000080: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 |. LDA #1| 00000090: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000000A0: 30 31 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |01A. LDA| 000000B0: 20 23 3C 49 4E 54 31 0D 20 20 20 20 20 20 20 20 | #<INT1. | 000000C0: 20 4C 44 59 20 23 3E 49 4E 54 31 0D 20 20 20 20 | LDY #>INT1. | 000000D0: 20 20 20 20 20 53 54 41 20 24 30 33 31 34 0D 20 | STA $0314. | 000000E0: 20 20 20 20 20 20 20 20 53 54 59 20 24 30 33 31 | STY $031| 000000F0: 35 0D 20 20 20 20 20 20 20 20 20 43 4C 49 0D 53 |5. CLI.S| 00000100: 53 20 20 20 20 20 20 20 4C 44 41 20 24 44 34 31 |S LDA $D41| 00000110: 43 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |C. STA $| 00000120: 44 44 30 31 0D 20 20 20 20 20 20 20 20 20 4A 4D |DD01. JM| 00000130: 50 20 53 53 0D 0D 0D 0D 0D 49 4E 54 31 20 20 20 |P SS.....INT1 | 00000140: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 52 | = *. R| 00000150: 4F 4C 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 |OL $D019. | 00000160: 20 20 4C 44 41 20 23 37 0D 20 20 20 20 20 20 20 | LDA #7. | 00000170: 20 20 53 54 41 20 24 44 30 31 36 0D 20 20 20 20 | STA $D016. | 00000180: 20 20 20 20 20 4C 44 58 20 23 30 0D 41 31 20 20 | LDX #0.A1 | 00000190: 20 20 20 20 20 4C 44 41 20 24 44 30 31 32 0D 20 | LDA $D012. | 000001A0: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 000001B0: 20 20 20 20 20 53 42 43 20 23 31 0D 20 20 20 20 | SBC #1. | 000001C0: 20 20 20 20 20 41 4E 44 20 23 37 0D 20 20 20 20 | AND #7. | 000001D0: 20 20 20 20 20 4F 52 41 20 23 24 31 30 0D 20 20 | ORA #$10. | 000001E0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 31 | STA $D011| 000001F0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F |. LDA CO| 00000200: 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |L,X. LDY| 00000210: 20 24 44 30 31 32 0D 41 32 20 20 20 20 20 20 20 | $D012.A2 | 00000220: 43 50 59 20 24 44 30 31 32 0D 20 20 20 20 20 20 |CPY $D012. | 00000230: 20 20 20 42 45 51 20 41 32 0D 20 20 20 20 20 20 | BEQ A2. | 00000240: 20 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 | STA $D020. | 00000250: 20 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D | STA $D021.| 00000260: 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 | INX. | 00000270: 20 20 20 20 20 20 43 50 58 20 23 36 35 0D 20 20 | CPX #65. | 00000280: 20 20 20 20 20 20 20 42 4E 45 20 41 31 0D 20 20 | BNE A1. | 00000290: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 000002A0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 | STA $D020| 000002B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000002C0: 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |021. LDA| 000002D0: 20 23 24 31 42 0D 20 20 20 20 20 20 20 20 20 53 | #$1B. S| 000002E0: 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 |TA $D011. | 000002F0: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00000300: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. | 00000310: 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 | STA $D021. | 00000320: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E | LDA #<IN| 00000330: 54 32 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |T2. LDY | 00000340: 23 3E 49 4E 54 32 0D 20 20 20 20 20 20 20 20 20 |#>INT2. | 00000350: 53 54 41 20 24 30 33 31 34 0D 20 20 20 20 20 20 |STA $0314. | 00000360: 20 20 20 53 54 59 20 24 30 33 31 35 0D 20 20 20 | STY $0315. | 00000370: 20 20 20 20 20 20 4C 44 41 20 23 31 31 34 0D 20 | LDA #114. | 00000380: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000390: 32 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 |2. JMP $| 000003A0: 45 41 33 31 0D 0D 0D 49 4E 54 32 20 20 20 20 20 |EA31...INT2 | 000003B0: 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 52 4F 4C |= *. ROL| 000003C0: 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 20 | $D019. | 000003D0: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDA #0. | 000003E0: 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 20 20 |STA $D020. | 000003F0: 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 20 20 | STA $D021. | 00000400: 20 20 20 20 20 20 4C 44 41 20 23 37 0D 20 20 20 | LDA #7. | 00000410: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 36 0D | STA $D016.| 00000420: 20 20 20 20 20 20 20 20 20 4A 53 52 20 52 55 4C | JSR RUL| 00000430: 0D 20 20 20 20 20 20 20 3B 20 4A 53 52 20 24 31 |. ; JSR $1| 00000440: 30 30 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |006. LDA| 00000450: 20 23 3C 49 4E 54 31 0D 20 20 20 20 20 20 20 20 | #<INT1. | 00000460: 20 4C 44 59 20 23 3E 49 4E 54 31 0D 20 20 20 20 | LDY #>INT1. | 00000470: 20 20 20 20 20 53 54 41 20 24 30 33 31 34 0D 20 | STA $0314. | 00000480: 20 20 20 20 20 20 20 20 53 54 59 20 24 30 33 31 | STY $031| 00000490: 35 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |5. LDA #| 000004A0: 34 38 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |48. STA | 000004B0: 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 4A |$D012. J| 000004C0: 4D 50 20 24 45 41 38 31 0D 0D 0D 0D 49 4E 49 54 |MP $EA81....INIT| 000004D0: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 000004E0: 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 20 | LDA #$FF. | 000004F0: 20 20 20 20 53 54 41 20 24 44 44 30 33 0D 20 20 | STA $DD03. | 00000500: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00000510: 20 20 20 20 20 20 20 53 54 41 20 24 30 32 38 36 | STA $0286| 00000520: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 |. JSR $E| 00000530: 35 34 34 0D 20 20 20 20 20 20 20 3B 20 4A 53 52 |544. ; JSR| 00000540: 20 24 31 30 30 30 0D 20 20 20 20 20 20 20 20 20 | $1000. | 00000550: 52 54 53 0D 0D 0D 52 55 4C 20 20 20 20 20 20 3D |RTS...RUL =| 00000560: 20 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 | *. LDX | 00000570: 23 30 0D 42 31 20 20 20 20 20 20 20 4C 44 41 20 |#0.B1 LDA | 00000580: 43 4F 4C 32 2B 30 2C 58 0D 20 20 20 20 20 20 20 |COL2+0,X. | 00000590: 20 20 53 54 41 20 43 4F 4C 2B 28 30 2A 38 29 2C | STA COL+(0*8),| 000005A0: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 |X. LDA C| 000005B0: 4F 4C 32 2B 31 2C 58 0D 20 20 20 20 20 20 20 20 |OL2+1,X. | 000005C0: 20 53 54 41 20 43 4F 4C 2B 28 31 2A 38 29 2C 58 | STA COL+(1*8),X| 000005D0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F |. LDA CO| 000005E0: 4C 32 2B 32 2C 58 0D 20 20 20 20 20 20 20 20 20 |L2+2,X. | 000005F0: 53 54 41 20 43 4F 4C 2B 28 32 2A 38 29 2C 58 0D |STA COL+(2*8),X.| 00000600: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C | LDA COL| 00000610: 32 2B 33 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |2+3,X. S| 00000620: 54 41 20 43 4F 4C 2B 28 33 2A 38 29 2C 58 0D 20 |TA COL+(3*8),X. | 00000630: 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 32 | LDA COL2| 00000640: 2B 34 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |+4,X. ST| 00000650: 41 20 43 4F 4C 2B 28 34 2A 38 29 2C 58 0D 20 20 |A COL+(4*8),X. | 00000660: 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 32 2B | LDA COL2+| 00000670: 35 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |5,X. STA| 00000680: 20 43 4F 4C 2B 28 35 2A 38 29 2C 58 0D 20 20 20 | COL+(5*8),X. | 00000690: 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 32 2B 36 | LDA COL2+6| 000006A0: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 000006B0: 43 4F 4C 2B 28 36 2A 38 29 2C 58 0D 20 20 20 20 |COL+(6*8),X. | 000006C0: 20 20 20 20 20 4C 44 41 20 43 4F 4C 32 2B 37 2C | LDA COL2+7,| 000006D0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |X. STA C| 000006E0: 4F 4C 2B 28 37 2A 38 29 2C 58 0D 20 20 20 20 20 |OL+(7*8),X. | 000006F0: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 00000700: 20 43 50 58 20 23 38 0D 20 20 20 20 20 20 20 20 | CPX #8. | 00000710: 20 42 43 43 20 42 31 0D 20 20 20 20 20 20 20 20 | BCC B1. | 00000720: 20 44 45 43 20 4B 4E 55 44 0D 20 20 20 20 20 20 | DEC KNUD. | 00000730: 20 20 20 42 45 51 20 42 32 0D 20 20 20 20 20 20 | BEQ B2. | 00000740: 20 20 20 52 54 53 0D 42 32 20 20 20 20 20 20 20 | RTS.B2 | 00000750: 4C 44 41 20 23 32 0D 20 20 20 20 20 20 20 20 20 |LDA #2. | 00000760: 53 54 41 20 4B 4E 55 44 0D 20 20 20 20 20 20 20 |STA KNUD. | 00000770: 20 20 4C 44 58 20 23 30 0D 42 33 20 20 20 20 20 | LDX #0.B3 | 00000780: 20 20 4C 44 41 20 43 4F 4C 32 2B 31 2C 58 0D 20 | LDA COL2+1,X. | 00000790: 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 4C 32 | STA COL2| 000007A0: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |,X. INX.| 000007B0: 20 20 20 20 20 20 20 20 20 43 50 58 20 23 31 36 | CPX #16| 000007C0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 42 33 |. BNE B3| 000007D0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F |. LDA CO| 000007E0: 4C 32 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 |L2+1. ST| 000007F0: 41 20 43 4F 4C 32 2B 31 36 0D 20 20 20 20 20 20 |A COL2+16. | 00000800: 20 20 20 52 54 53 0D 4B 4E 55 44 20 20 20 20 20 | RTS.KNUD | 00000810: 2E 42 59 54 45 20 32 0D 0D 0D 43 4F 4C 32 20 20 |.BYTE 2...COL2 | 00000820: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 00000830: 2E 42 59 54 45 20 30 2C 30 0D 20 20 20 20 20 20 |.BYTE 0,0. | 00000840: 20 20 20 2E 42 59 54 45 20 39 2C 31 31 2C 35 2C | .BYTE 9,11,5,| 00000850: 33 2C 31 33 2C 31 2C 31 33 2C 33 2C 35 2C 31 31 |3,13,1,13,3,5,11| 00000860: 2C 39 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,9. .BYT| 00000870: 45 20 30 2C 30 2C 30 2C 30 0D 0D 0D 43 4F 4C 20 |E 0,0,0,0...COL | 00000880: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 00000890: 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C | .BYTE 0,0,0,0,| 000008A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 |0,0,0,0,0,0,0. | 000008B0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 | .BYTE 0,0| 000008C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0| 000008D0: 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,0. .BYT| 000008E0: 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |E 0,0,0,0,0,0,0,| 000008F0: 30 2C 30 2C 30 2C 30 0D 20 20 20 20 20 20 20 20 |0,0,0,0. | 00000900: 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 | .BYTE 0,0,0,0,0| 00000910: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 |,0,0,0,0,0,0. | 00000920: 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C | .BYTE 0,0,| 00000930: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00000940: 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |0. .BYTE| 00000950: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0| 00000960: 2C 30 2C 30 2C 30 0D 0D |,0,0,0.. |
..... *= $3000.. JSR INI
T. SEI. LDA #$7F.
STA $DC0D. LDA #$1B. S
TA $D011. LDA #1. STA $D
01A. LDA #<INT1. LDY #>I
NT1. STA $0314. STY $031
5. CLI.SS LDA $D41C.
STA $DD01. JMP SS.....INT1
= *. ROL $D019. LDA #7
. STA $D016. LDX #0.A1
LDA $D012. SEC. SBC
#1. AND #7. ORA #$10.
STA $D011. LDA COL,X.
LDY $D012.A2 CPY $D012.
BEQ A2. STA $D020. ST
A $D021. INX. CPX #65.
BNE A1. LDA #0. S
TA $D020. STA $D021. LDA
#$1B. STA $D011. LDA #0
. STA $D020. STA $D021.
LDA #<INT2. LDY #>INT2.
STA $0314. STY $0315.
LDA #114. STA $D012.
JMP $EA31...INT2 = *. ROL
$D019. LDA #0. STA $D02
0. STA $D021. LDA #7.
STA $D016. JSR RUL.
; JSR $1006. LDA #<INT1.
LDY #>INT1. STA $0314.
STY $0315. LDA #48. STA
$D012. JMP $EA81....INIT = *
. LDA #$FF. STA $DD03.
LDA #0. STA $0286.
JSR $E544. ; JSR $1000.
RTS...RUL = *. LDX #0.B1
LDA COL2+0,X. STA COL+(0*8),
X. LDA COL2+1,X. STA COL
+(1*8),X. LDA COL2+2,X.
STA COL+(2*8),X. LDA COL2+3,X.
STA COL+(3*8),X. LDA COL2
+4,X. STA COL+(4*8),X. L
DA COL2+5,X. STA COL+(5*8),X.
LDA COL2+6,X. STA COL+(6*8
),X. LDA COL2+7,X. STA C
OL+(7*8),X. INX. CPX #8.
BCC B1. DEC KNUD.
BEQ B2. RTS.B2 LDA #2.
STA KNUD. LDX #0.B3
LDA COL2+1,X. STA COL2,X.
INX. CPX #16. BNE B3
. LDA COL2+1. STA COL2+1
6. RTS.KNUD .BYTE 2...COL2
= *. .BYTE 0,0. .BYTE
9,11,5,3,13,1,13,3,5,11,9. .BYT
E 0,0,0,0...COL = *. .BYTE
0,0,0,0,0,0,0,0,0,0,0. .BYTE 0,0
,0,0,0,0,0,0,0,0,0. .BYTE 0,0,0,
0,0,0,0,0,0,0,0. .BYTE 0,0,0,0,0
,0,0,0,0,0,0. .BYTE 0,0,0,0,0,0,
0,0,0,0,0. .BYTE 0,0,0,0,0,0,0,0
,0,0,0..
> CLICK IMAGE PREVIEW FOR FULL MODAL