24
FILE INFORMATION
FILENAME(S): 24
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
044c85465150b94c74f2f80815e47c71294937aa97b93db28402b95d6771fa71
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 24 | PRG | Curtcool, Nigel | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 53 43 31 20 20 20 20 20 20 3D 20 2A 0D 20 |..SC1 = *. | 00000010: 20 20 20 20 20 20 20 20 44 45 43 20 4D 4F 56 45 | DEC MOVE| 00000020: 31 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1+1. LDA| 00000030: 20 4D 4F 56 45 31 2B 31 0D 20 20 20 20 20 20 20 | MOVE1+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 41 50 53 31 0D 20 20 20 | BEQ APS1. | 00000060: 20 20 20 20 20 20 52 54 53 0D 0D 41 50 53 31 20 | RTS..APS1 | 00000070: 20 20 20 20 4C 44 41 20 23 24 30 37 0D 20 20 20 | LDA #$07. | 00000080: 20 20 20 20 20 20 53 54 41 20 4D 4F 56 45 31 2B | STA MOVE1+| 00000090: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |1. LDX #| 000000A0: 24 30 30 0D 41 50 53 32 20 20 20 20 20 4C 44 41 |$00.APS2 LDA| 000000B0: 20 24 30 34 30 31 2B 28 30 2A 34 30 29 2C 58 0D | $0401+(0*40),X.| 000000C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 000000D0: 30 30 2B 28 30 2A 34 30 29 2C 58 0D 20 20 20 20 |00+(0*40),X. | 000000E0: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 000000F0: 31 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 |1*40),X. | 00000100: 20 53 54 41 20 24 30 34 30 30 2B 28 31 2A 34 30 | STA $0400+(1*40| 00000110: 29 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |),X. INX| 00000120: 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 23 24 |. CPX #$| 00000130: 32 38 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |28. BNE | 00000140: 41 50 53 32 0D 20 20 20 20 20 20 20 20 20 4C 44 |APS2. LD| 00000150: 41 20 4D 4F 52 41 4C 0D 20 20 20 20 20 20 20 20 |A MORAL. | 00000160: 20 42 4E 45 20 47 59 46 59 0D 53 50 49 53 20 20 | BNE GYFY.SPIS | 00000170: 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 | LDY #$00. | 00000180: 20 20 20 20 20 4C 44 41 20 28 24 46 32 29 2C 59 | LDA ($F2),Y| 00000190: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 000001A0: 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |FF. BEQ | 000001B0: 53 54 4F 50 45 52 0D 20 20 20 20 20 20 20 20 20 |STOPER. | 000001C0: 43 4D 50 20 23 24 34 30 0D 20 20 20 20 20 20 20 |CMP #$40. | 000001D0: 20 20 42 43 43 20 41 45 44 0D 20 20 20 20 20 20 | BCC AED. | 000001E0: 20 20 20 43 4D 50 20 23 24 35 42 0D 20 20 20 20 | CMP #$5B. | 000001F0: 20 20 20 20 20 42 43 53 20 41 45 44 0D 20 20 20 | BCS AED. | 00000200: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 00000210: 20 20 20 53 42 43 20 23 24 34 30 0D 41 45 44 20 | SBC #$40.AED | 00000220: 20 20 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 | STA $0427+(| 00000230: 30 2A 34 30 29 0D 20 20 20 20 20 20 20 20 20 53 |0*40). S| 00000240: 54 41 20 4D 4F 52 41 4C 2B 31 0D 20 20 20 20 20 |TA MORAL+1. | 00000250: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000260: 20 41 44 43 20 23 31 32 38 0D 20 20 20 20 20 20 | ADC #128. | 00000270: 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 31 2A | STA $0427+(1*| 00000280: 34 30 29 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |40). INC| 00000290: 20 24 46 32 0D 20 20 20 20 20 20 20 20 20 42 4E | $F2. BN| 000002A0: 45 20 4C 45 4D 0D 20 20 20 20 20 20 20 20 20 49 |E LEM. I| 000002B0: 4E 43 20 24 46 33 0D 4C 45 4D 20 20 20 20 20 20 |NC $F3.LEM | 000002C0: 4C 44 41 20 23 24 30 31 0D 20 20 20 20 20 20 20 |LDA #$01. | 000002D0: 20 20 53 54 41 20 4D 4F 52 41 4C 0D 20 20 20 20 | STA MORAL. | 000002E0: 20 20 20 20 20 52 54 53 0D 53 54 4F 50 45 52 20 | RTS.STOPER | 000002F0: 20 20 4A 53 52 20 53 54 4F 50 50 45 52 0D 20 20 | JSR STOPPER. | 00000300: 20 20 20 20 20 20 20 4A 4D 50 20 53 50 49 53 0D | JMP SPIS.| 00000310: 53 54 4F 50 50 45 52 20 20 4C 44 41 20 23 3C 53 |STOPPER LDA #<S| 00000320: 43 54 45 58 54 31 0D 20 20 20 20 20 20 20 20 20 |CTEXT1. | 00000330: 53 54 41 20 24 46 32 0D 20 20 20 20 20 20 20 20 |STA $F2. | 00000340: 20 4C 44 41 20 23 3E 53 43 54 45 58 54 31 0D 20 | LDA #>SCTEXT1. | 00000350: 20 20 20 20 20 20 20 20 53 54 41 20 24 46 33 0D | STA $F3.| 00000360: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 0D 0D | RTS....| 00000370: 47 59 46 59 20 20 20 20 20 4C 44 41 20 4D 4F 52 |GYFY LDA MOR| 00000380: 41 4C 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4C |AL+1. CL| 00000390: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 000003A0: 36 34 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |64. STA | 000003B0: 24 30 34 32 37 2B 28 30 2A 34 30 29 0D 20 20 20 |$0427+(0*40). | 000003C0: 20 20 20 20 20 20 41 44 43 20 23 31 32 38 0D 20 | ADC #128. | 000003D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 32 | STA $042| 000003E0: 37 2B 28 31 2A 34 30 29 0D 20 20 20 20 20 20 20 |7+(1*40). | 000003F0: 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 | LDA #$00. | 00000400: 20 20 20 20 53 54 41 20 4D 4F 52 41 4C 0D 20 20 | STA MORAL. | 00000410: 20 20 20 20 20 20 20 52 54 53 0D 0D 0D 53 43 54 | RTS...SCT| 00000420: 45 58 54 31 20 20 3D 20 2A 0D 20 20 20 20 20 20 |EXT1 = *. | 00000430: 20 20 20 2E 54 45 58 54 20 22 20 44 52 20 5A 49 | .TEXT " DR ZI| 00000440: 47 20 4F 46 20 43 4F 4C 54 52 41 58 20 32 33 30 |G OF COLTRAX 230| 00000450: 34 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 |4". .TEX| 00000460: 54 20 22 20 20 20 22 0D 20 20 20 20 20 20 20 20 |T " ". | 00000470: 20 2E 42 59 54 45 20 24 46 46 0D 0D 4D 4F 52 41 | .BYTE $FF..MORA| 00000480: 4C 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 |L .BYTE $00,$| 00000490: 30 30 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |00. RTS.| 000004A0: 0D |. |
..SC1 = *. DEC MOVE1+1.
LDA MOVE1+1. CMP #$FF.
BEQ APS1. RTS..APS1 LDA
#$07. STA MOVE1+1. LDX #
$00.APS2 LDA $0401+(0*40),X.
STA $0400+(0*40),X. LDA $0401+(
1*40),X. STA $0400+(1*40),X.
INX. CPX #$28. BNE
APS2. LDA MORAL. BNE GYF
Y.SPIS LDY #$00. LDA ($F2),Y
. CMP #$FF. BEQ STOPER.
CMP #$40. BCC AED.
CMP #$5B. BCS AED. SE
C. SBC #$40.AED STA $0427+(
0*40). STA MORAL+1. CLC.
ADC #128. STA $0427+(1*
40). INC $F2. BNE LEM.
INC $F3.LEM LDA #$01.
STA MORAL. RTS.STOPER JSR ST
OPPER. JMP SPIS.STOPPER LDA #<S
CTEXT1. STA $F2. LDA #>S
CTEXT1. STA $F3. RTS....
GYFY LDA MORAL+1. CLC.
ADC #64. STA $0427+(0*40).
ADC #128. STA $0427+(1*40)
. LDA #$00. STA MORAL.
RTS...SCTEXT1 = *. .TEXT
" DR ZIG OF COLTRAX 2304". .TEX
T " ". .BYTE $FF..MORAL .BY
TE $00,$00. RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL