11
FILE INFORMATION
FILENAME(S): 11
FILE TYPE(S): PRG
FILE SIZE: 831b
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
6fc133cf2d98b3a551c131036a5a4f4a52859b55e5edc28a79a7ec1bd8cbf6a0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 11 | PRG | Curtcool, Nigel | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 43 4C 4F 53 45 43 4F 4C 20 3D 20 30 0D |...CLOSECOL = 0.| 00000010: 50 41 50 45 52 43 4F 4C 20 3D 20 36 0D 42 4F 52 |PAPERCOL = 6.BOR| 00000020: 44 45 52 43 4F 4C 20 3D 20 31 34 0D 0D 20 20 20 |DERCOL = 14.. | 00000030: 20 20 20 20 20 20 2A 3D 20 24 34 30 30 30 0D 0D | *= $4000..| 00000040: 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 20 | SEI. | 00000050: 20 20 20 20 20 20 4A 53 52 20 24 45 35 34 34 0D | JSR $E544.| 00000060: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 50 41 | LDX #PA| 00000070: 50 45 52 43 4F 4C 0D 20 20 20 20 20 20 20 20 20 |PERCOL. | 00000080: 4C 44 59 20 23 42 4F 52 44 45 52 43 4F 4C 0D 20 |LDY #BORDERCOL. | 00000090: 20 20 20 20 20 20 20 20 53 54 58 20 24 44 30 32 | STX $D02| 000000A0: 31 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 24 |1. STY $| 000000B0: 44 30 32 30 0D 20 20 20 20 20 20 20 20 20 4C 44 |D020. LD| 000000C0: 59 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 20 |Y $D020. | 000000D0: 20 53 54 59 20 4B 4E 55 44 31 0D 20 20 20 20 20 | STY KNUD1. | 000000E0: 20 20 20 20 4C 44 59 20 24 44 30 32 31 0D 20 20 | LDY $D021. | 000000F0: 20 20 20 20 20 20 20 53 54 59 20 4B 4E 55 44 32 | STY KNUD2| 00000100: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 33 |. LDY #3| 00000110: 32 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 4A |2. STY J| 00000120: 45 53 55 53 31 0D 20 20 20 20 20 20 20 20 20 53 |ESUS1. S| 00000130: 54 59 20 4A 45 53 55 53 32 0D 48 45 4A 30 20 20 |TY JESUS2.HEJ0 | 00000140: 20 20 20 4C 44 58 20 4B 4E 55 44 31 0D 20 20 20 | LDX KNUD1. | 00000150: 20 20 20 20 20 20 4C 44 59 20 4B 4E 55 44 32 0D | LDY KNUD2.| 00000160: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4A 45 53 | LDA JES| 00000170: 55 53 31 0D 48 45 4A 31 20 20 20 20 20 43 4D 50 |US1.HEJ1 CMP| 00000180: 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 | $D012. | 00000190: 42 4E 45 20 48 45 4A 31 0D 48 45 4A 32 20 20 20 |BNE HEJ1.HEJ2 | 000001A0: 20 20 43 4D 50 20 24 44 30 31 32 0D 20 20 20 20 | CMP $D012. | 000001B0: 20 20 20 20 20 42 45 51 20 48 45 4A 32 0D 20 20 | BEQ HEJ2. | 000001C0: 20 20 20 20 20 20 20 53 54 58 20 24 44 30 32 30 | STX $D020| 000001D0: 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 24 44 |. STY $D| 000001E0: 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |021. LDY| 000001F0: 20 23 43 4C 4F 53 45 43 4F 4C 0D 20 20 20 20 20 | #CLOSECOL. | 00000200: 20 20 20 20 4C 44 41 20 4A 45 53 55 53 32 0D 48 | LDA JESUS2.H| 00000210: 45 4A 33 20 20 20 20 20 43 4D 50 20 24 44 30 31 |EJ3 CMP $D01| 00000220: 32 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 48 |2. BNE H| 00000230: 45 4A 33 0D 48 45 4A 34 20 20 20 20 20 43 4D 50 |EJ3.HEJ4 CMP| 00000240: 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 | $D012. | 00000250: 42 45 51 20 48 45 4A 34 0D 20 20 20 20 20 20 20 |BEQ HEJ4. | 00000260: 20 20 53 54 59 20 24 44 30 32 30 0D 20 20 20 20 | STY $D020. | 00000270: 20 20 20 20 20 53 54 59 20 24 44 30 32 31 0D 20 | STY $D021. | 00000280: 20 20 20 20 20 20 20 20 49 4E 43 20 4A 45 53 55 | INC JESU| 00000290: 53 31 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 |S1. DEC | 000002A0: 4A 45 53 55 53 32 0D 20 20 20 20 20 20 20 20 20 |JESUS2. | 000002B0: 4C 44 59 20 4A 45 53 55 53 32 0D 20 20 20 20 20 |LDY JESUS2. | 000002C0: 20 20 20 20 43 50 59 20 23 31 36 30 0D 20 20 20 | CPY #160. | 000002D0: 20 20 20 20 20 20 42 4E 45 20 48 45 4A 30 0D 20 | BNE HEJ0. | 000002E0: 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 | CLI. | 000002F0: 20 20 20 20 20 52 54 53 0D 0D 4A 45 53 55 53 31 | RTS..JESUS1| 00000300: 20 20 20 2E 42 59 54 45 20 30 0D 4A 45 53 55 53 | .BYTE 0.JESUS| 00000310: 32 20 20 20 2E 42 59 54 45 20 30 0D 4B 4E 55 44 |2 .BYTE 0.KNUD| 00000320: 31 20 20 20 20 2E 42 59 54 45 20 30 0D 4B 4E 55 |1 .BYTE 0.KNU| 00000330: 44 32 20 20 20 20 2E 42 59 54 45 20 30 0D 0D |D2 .BYTE 0.. |
...CLOSECOL = 0.PAPERCOL = 6.BORDERCOL =
14.. *= $4000.. SEI.
JSR $E544. LDX #PAPERCOL.
LDY #BORDERCOL. STX $D02
1. STY $D020. LDY $D020.
STY KNUD1. LDY $D021.
STY KNUD2. LDY #32.
STY JESUS1. STY JESUS2.HEJ0
LDX KNUD1. LDY KNUD2.
LDA JESUS1.HEJ1 CMP $D012.
BNE HEJ1.HEJ2 CMP $D012. BEQ
HEJ2. STX $D020. STY $D
021. LDY #CLOSECOL. LDA
JESUS2.HEJ3 CMP $D012. BNE H
EJ3.HEJ4 CMP $D012. BEQ HEJ4
. STY $D020. STY $D021.
INC JESUS1. DEC JESUS2.
LDY JESUS2. CPY #160.
BNE HEJ0. CLI. RTS
..JESUS1 .BYTE 0.JESUS2 .BYTE 0.KNUD
1 .BYTE 0.KNUD2 .BYTE 0..
> CLICK IMAGE PREVIEW FOR FULL MODAL