23
FILE INFORMATION
FILENAME(S): 23
FILE TYPE(S): PRG
FILE SIZE: 752b
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
df5bcbe2eb5456047132bf92418407678e9e2368fd91a31ecb4e5130ad23e717
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 23 | PRG | Curtcool, Nigel | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 53 43 32 20 20 20 20 20 20 3D 20 2A 0D 20 |..SC2 = *. | 00000010: 20 20 20 20 20 20 20 20 44 45 43 20 4D 4F 56 45 | DEC MOVE| 00000020: 32 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |2+1. LDA| 00000030: 20 4D 4F 56 45 32 2B 31 0D 20 20 20 20 20 20 20 | MOVE2+1. | 00000040: 20 20 43 4D 50 20 23 24 46 46 0D 20 20 20 20 20 | CMP #$FF. | 00000050: 20 20 20 20 42 45 51 20 48 31 32 0D 20 20 20 20 | BEQ H12. | 00000060: 20 20 20 20 20 52 54 53 0D 0D 48 31 32 20 20 20 | RTS..H12 | 00000070: 20 20 20 4C 44 41 20 23 24 30 37 0D 20 20 20 20 | LDA #$07. | 00000080: 20 20 20 20 20 53 54 41 20 4D 4F 56 45 32 2B 31 | STA MOVE2+1| 00000090: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 |. LDX #$| 000000A0: 30 30 0D 53 41 53 20 20 20 20 20 20 4C 44 41 20 |00.SAS LDA | 000000B0: 24 30 34 30 31 2B 28 39 2A 34 30 29 2C 58 0D 20 |$0401+(9*40),X. | 000000C0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 30 | STA $040| 000000D0: 30 2B 28 39 2A 34 30 29 2C 58 0D 20 20 20 20 20 |0+(9*40),X. | 000000E0: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 000000F0: 20 43 50 58 20 23 24 32 38 0D 20 20 20 20 20 20 | CPX #$28. | 00000100: 20 20 20 42 4E 45 20 53 41 53 0D 47 55 46 20 20 | BNE SAS.GUF | 00000110: 20 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 | LDY #$00. | 00000120: 20 20 20 20 20 20 4C 44 41 20 28 24 46 30 29 2C | LDA ($F0),| 00000130: 59 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |Y. CMP #| 00000140: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$FF. BEQ| 00000150: 20 52 45 53 54 41 0D 20 20 20 20 20 20 20 20 20 | RESTA. | 00000160: 43 4D 50 20 23 24 34 30 0D 20 20 20 20 20 20 20 |CMP #$40. | 00000170: 20 20 42 43 43 20 53 53 53 0D 20 20 20 20 20 20 | BCC SSS. | 00000180: 20 20 20 43 4D 50 20 23 24 35 42 0D 20 20 20 20 | CMP #$5B. | 00000190: 20 20 20 20 20 42 43 53 20 53 53 53 0D 20 20 20 | BCS SSS. | 000001A0: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 000001B0: 20 20 20 53 42 43 20 23 24 34 30 0D 53 53 53 20 | SBC #$40.SSS | 000001C0: 20 20 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 | STA $0427+(| 000001D0: 39 2A 34 30 29 0D 20 20 20 20 20 20 20 20 20 49 |9*40). I| 000001E0: 4E 43 20 24 46 30 0D 20 20 20 20 20 20 20 20 20 |NC $F0. | 000001F0: 42 4E 45 20 50 49 4B 0D 20 20 20 20 20 20 20 20 |BNE PIK. | 00000200: 20 49 4E 43 20 24 46 31 0D 50 49 4B 20 20 20 20 | INC $F1.PIK | 00000210: 20 20 52 54 53 0D 52 45 53 54 41 20 20 20 20 4A | RTS.RESTA J| 00000220: 53 52 20 52 45 53 54 41 32 0D 20 20 20 20 20 20 |SR RESTA2. | 00000230: 20 20 20 4A 4D 50 20 47 55 46 0D 52 45 53 54 41 | JMP GUF.RESTA| 00000240: 32 20 20 20 4C 44 41 20 23 3C 53 43 54 45 58 54 |2 LDA #<SCTEXT| 00000250: 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |2. STA $| 00000260: 46 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |F0. LDA | 00000270: 23 3E 53 43 54 45 58 54 32 0D 20 20 20 20 20 20 |#>SCTEXT2. | 00000280: 20 20 20 53 54 41 20 24 46 31 0D 20 20 20 20 20 | STA $F1. | 00000290: 20 20 20 20 52 54 53 0D 0D 0D 53 43 54 45 58 54 | RTS...SCTEXT| 000002A0: 32 20 20 2E 54 45 58 54 20 22 20 20 44 52 20 5A |2 .TEXT " DR Z| 000002B0: 49 47 20 4F 46 20 43 4F 4C 54 52 41 58 20 22 0D |IG OF COLTRAX ".| 000002C0: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 000002D0: 32 33 30 34 20 20 20 20 20 20 22 0D 20 20 20 20 |2304 ". | 000002E0: 20 20 20 20 20 2E 42 59 54 45 20 24 46 46 0D 0D | .BYTE $FF..|
..SC2 = *. DEC MOVE2+1.
LDA MOVE2+1. CMP #$FF.
BEQ H12. RTS..H12 LDA #
$07. STA MOVE2+1. LDX #$
00.SAS LDA $0401+(9*40),X.
STA $0400+(9*40),X. INX.
CPX #$28. BNE SAS.GUF LDY
#$00. LDA ($F0),Y. CMP #
$FF. BEQ RESTA. CMP #$40
. BCC SSS. CMP #$5B.
BCS SSS. SEC. SBC #
$40.SSS STA $0427+(9*40). I
NC $F0. BNE PIK. INC $F1
.PIK RTS.RESTA JSR RESTA2.
JMP GUF.RESTA2 LDA #<SCTEXT2.
STA $F0. LDA #>SCTEXT2.
STA $F1. RTS...SCTEXT2 .TEXT
" DR ZIG OF COLTRAX ". .TEXT "
2304 ". .BYTE $FF..
> CLICK IMAGE PREVIEW FOR FULL MODAL