31
FILE INFORMATION
FILENAME(S): 31
FILE TYPE(S): PRG
FILE SIZE: 617b
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
cf8e8d9727ee9a5f5d5cc8f0415c2e7614fb803ccb44efa2f0e8a5d50ee9cfda
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 31 | PRG | Curtcool, Nigel | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 3B 20 55 |.... ; U| 00000010: 44 53 4B 52 49 56 20 48 45 58 0D 0D 0D 0D 0D 0D |DSKRIV HEX......| 00000020: 53 53 43 52 45 45 4E 20 20 3D 20 24 30 34 30 30 |SSCREEN = $0400| 00000030: 2B 28 34 30 2A 30 29 0D 0D 0D 0D 20 20 20 20 20 |+(40*0).... | 00000040: 20 20 20 20 4C 44 58 20 23 24 30 30 0D 20 20 20 | LDX #$00. | 00000050: 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 0D 43 | LDY #$01.C| 00000060: 4F 53 20 20 20 20 20 20 4C 44 41 20 54 41 4C 2C |OS LDA TAL,| 00000070: 59 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |Y. CLC. | 00000080: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00000090: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 000000A0: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 000000B0: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 000000C0: 20 20 20 20 43 4D 50 20 23 24 30 41 0D 20 20 20 | CMP #$0A. | 000000D0: 20 20 20 20 20 20 42 43 53 20 41 4E 55 42 49 53 | BCS ANUBIS| 000000E0: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 |. CLC. | 000000F0: 20 20 20 20 20 20 20 41 44 43 20 23 24 33 30 0D | ADC #$30.| 00000100: 53 43 53 20 20 20 20 20 20 53 54 41 20 53 53 43 |SCS STA SSC| 00000110: 52 45 45 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 |REEN,X. | 00000120: 4C 44 41 20 54 41 4C 2C 59 0D 20 20 20 20 20 20 |LDA TAL,Y. | 00000130: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00000140: 41 4E 44 20 23 25 30 30 30 30 31 31 31 31 0D 20 |AND #%00001111. | 00000150: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 41 | CMP #$0A| 00000160: 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 41 4E |. BCS AN| 00000170: 55 42 49 53 31 0D 20 20 20 20 20 20 20 20 20 43 |UBIS1. C| 00000180: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 00000190: 23 24 33 30 0D 53 43 53 31 20 20 20 20 20 49 4E |#$30.SCS1 IN| 000001A0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |X. STA S| 000001B0: 53 43 52 45 45 4E 2C 58 0D 20 20 20 20 20 20 20 |SCREEN,X. | 000001C0: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 44 | INX. D| 000001D0: 45 59 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 |EY. BPL | 000001E0: 43 4F 53 0D 20 20 20 20 20 20 20 20 20 52 54 53 |COS. RTS| 000001F0: 0D 0D 41 4E 55 42 49 53 20 20 20 53 45 43 0D 20 |..ANUBIS SEC. | 00000200: 20 20 20 20 20 20 20 20 53 42 43 20 23 39 0D 20 | SBC #9. | 00000210: 20 20 20 20 20 20 20 20 4A 4D 50 20 53 43 53 0D | JMP SCS.| 00000220: 0D 41 4E 55 42 49 53 31 20 20 53 45 43 0D 20 20 |.ANUBIS1 SEC. | 00000230: 20 20 20 20 20 20 20 53 42 43 20 23 39 0D 20 20 | SBC #9. | 00000240: 20 20 20 20 20 20 20 4A 4D 50 20 53 43 53 31 0D | JMP SCS1.| 00000250: 0D 54 41 4C 20 20 20 20 20 20 2E 42 59 54 45 20 |.TAL .BYTE | 00000260: 24 30 31 2C 24 46 42 0D 0D |$01,$FB.. |
.... ; UDSKRIV HEX......SSCREEN
= $0400+(40*0).... LDX #$00.
LDY #$01.COS LDA TAL,Y.
CLC. LSR A. LSR A.
LSR A. LSR A. CMP
#$0A. BCS ANUBIS. CLC.
ADC #$30.SCS STA SSCREEN,X.
LDA TAL,Y. CLC.
AND #%00001111. CMP #$0A.
BCS ANUBIS1. CLC. ADC
#$30.SCS1 INX. STA SSCREEN,X
. INX. DEY. BPL
COS. RTS..ANUBIS SEC.
SBC #9. JMP SCS..ANUBIS1 SEC.
SBC #9. JMP SCS1..TAL
.BYTE $01,$FB..
> CLICK IMAGE PREVIEW FOR FULL MODAL