21
FILE INFORMATION
FILENAME(S): 21
FILE TYPE(S): PRG
FILE SIZE: 754b
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
641bc46ec7842e3326aae57243809b731aec6dfadc0b72b97ff88ce27f8020d6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 21 | PRG | Curtcool, Nigel | 14 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D | LDX #0.| 00000010: 41 30 20 20 20 20 20 20 20 4C 44 41 20 4B 4E 55 |A0 LDA KNU| 00000020: 44 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 |D. JSR S| 00000030: 54 55 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |TUD. LDA| 00000040: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000050: 20 28 24 41 41 29 2C 59 0D 20 20 20 20 20 20 20 | ($AA),Y. | 00000060: 20 20 49 4E 43 20 4B 4E 55 44 2C 58 0D 20 20 20 | INC KNUD,X. | 00000070: 20 20 20 20 20 20 4C 44 41 20 4B 4E 55 44 2C 58 | LDA KNUD,X| 00000080: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00000090: 31 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |10. BNE | 000000A0: 41 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |AA. LDA | 000000B0: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA | 000000C0: 4B 4E 55 44 2C 58 0D 41 41 20 20 20 20 20 20 20 |KNUD,X.AA | 000000D0: 4A 53 52 20 53 54 55 44 0D 20 20 20 20 20 20 20 |JSR STUD. | 000000E0: 20 20 4C 44 41 20 43 4F 4C 2C 58 0D 20 20 20 20 | LDA COL,X. | 000000F0: 20 20 20 20 20 53 54 41 20 28 24 41 41 29 2C 59 | STA ($AA),Y| 00000100: 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 |. INX. | 00000110: 20 20 20 20 20 20 20 43 50 58 20 23 31 30 0D 20 | CPX #10. | 00000120: 20 20 20 20 20 20 20 20 42 4E 45 20 41 30 0D 20 | BNE A0. | 00000130: 20 20 20 20 20 20 20 20 52 54 53 0D 53 54 55 44 | RTS.STUD| 00000140: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 00000150: 20 20 4C 44 41 20 50 4F 53 31 2C 59 0D 20 20 20 | LDA POS1,Y. | 00000160: 20 20 20 20 20 20 53 54 41 20 24 41 41 0D 20 20 | STA $AA. | 00000170: 20 20 20 20 20 20 20 4C 44 41 20 50 4F 53 32 2C | LDA POS2,| 00000180: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |Y. STA $| 00000190: 41 42 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |AB. LDY | 000001A0: 23 30 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |#0. RTS.| 000001B0: 0D 0D 4B 4E 55 44 20 20 20 20 20 3D 20 2A 0D 20 |..KNUD = *. | 000001C0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 2C | .BYTE 1,| 000001D0: 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C |2,3,4,5,6,7,8,9,| 000001E0: 31 30 0D 0D 43 4F 4C 20 20 20 20 20 20 3D 20 2A |10..COL = *| 000001F0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000200: 30 2C 36 2C 34 2C 31 34 2C 33 2C 31 33 2C 37 2C |0,6,4,14,3,13,7,| 00000210: 31 2C 30 2C 30 2C 30 0D 0D 0D 50 4F 53 31 20 20 |1,0,0,0...POS1 | 00000220: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 00000230: 2E 42 59 54 45 20 30 2C 31 2C 32 2C 33 2C 34 2C |.BYTE 0,1,2,3,4,| 00000240: 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 0D 20 20 20 |5,6,7,8,9,10. | 00000250: 20 20 20 20 20 20 2E 42 59 54 45 20 31 31 2C 31 | .BYTE 11,1| 00000260: 32 2C 31 33 2C 31 34 2C 31 35 0D 0D 50 4F 53 32 |2,13,14,15..POS2| 00000270: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 00000280: 20 20 2E 42 59 54 45 20 24 44 38 2C 24 44 38 2C | .BYTE $D8,$D8,| 00000290: 24 44 38 2C 24 44 38 2C 24 44 38 2C 24 44 38 0D |$D8,$D8,$D8,$D8.| 000002A0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 000002B0: 44 38 2C 24 44 38 2C 24 44 38 2C 24 44 38 2C 24 |D8,$D8,$D8,$D8,$| 000002C0: 44 38 2C 24 44 38 0D 20 20 20 20 20 20 20 20 20 |D8,$D8. | 000002D0: 2E 42 59 54 45 20 24 44 38 2C 24 44 38 2C 24 44 |.BYTE $D8,$D8,$D| 000002E0: 38 2C 24 44 38 2C 24 44 38 2C 24 44 38 0D 0D 0D |8,$D8,$D8,$D8...| 000002F0: 0D 0D |.. |
LDX #0.A0 LDA KNUD.
JSR STUD. LDA #0. STA
($AA),Y. INC KNUD,X. LD
A KNUD,X. CMP #$10. BNE
AA. LDA #0. STA KNUD,X.A
A JSR STUD. LDA COL,X.
STA ($AA),Y. INX. C
PX #10. BNE A0. RTS.STUD
TAY. LDA POS1,Y. ST
A $AA. LDA POS2,Y. STA $
AB. LDY #0. RTS...KNUD
= *. .BYTE 1,2,3,4,5,6,7,8,9,
10..COL = *. .BYTE 0,6,4,14
,3,13,7,1,0,0,0...POS1 = *.
.BYTE 0,1,2,3,4,5,6,7,8,9,10. .B
YTE 11,12,13,14,15..POS2 = *.
.BYTE $D8,$D8,$D8,$D8,$D8,$D8.
.BYTE $D8,$D8,$D8,$D8,$D8,$D8.
.BYTE $D8,$D8,$D8,$D8,$D8,$D8.....
> CLICK IMAGE PREVIEW FOR FULL MODAL