17
FILE INFORMATION
FILENAME(S): 17
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
4e58d31400f8b09831763f09613d9598b09238803d765452c0d6878a80a9ce86
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 17 | PRG | Curtcool, Nigel | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 46 52 4F 4D 20 20 20 20 20 3D 20 24 36 |...FROM = $6| 00000010: 30 30 30 0D 54 4F 20 20 20 20 20 20 20 3D 20 24 |000.TO = $| 00000020: 43 46 46 46 0D 49 4E 54 4F 20 20 20 20 20 3D 20 |CFFF.INTO = | 00000030: 24 30 38 30 31 0D 53 54 41 52 54 53 59 53 20 3D |$0801.STARTSYS =| 00000040: 20 24 30 38 31 32 0D 0D 45 4E 44 20 20 20 20 20 | $0812..END | 00000050: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 53 45 | = *. SE| 00000060: 49 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 |I. JSR $| 00000070: 46 46 38 31 0D 20 20 20 20 20 20 20 20 20 4A 53 |FF81. JS| 00000080: 52 20 24 46 46 38 34 0D 20 20 20 20 20 20 20 20 |R $FF84. | 00000090: 20 4A 53 52 20 24 46 46 38 41 0D 20 20 20 20 20 | JSR $FF8A. | 000000A0: 20 20 20 20 4C 44 58 20 23 30 0D 52 52 20 20 20 | LDX #0.RR | 000000B0: 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 | LDA #1. | 000000C0: 20 20 20 20 53 54 41 20 24 44 38 30 30 2C 58 0D | STA $D800,X.| 000000D0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 000000E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 39 | STA $D9| 000000F0: 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E |00,X. IN| 00000100: 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 |X. BNE R| 00000110: 52 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |R. LDX #| 00000120: 30 0D 52 53 20 20 20 20 20 20 20 4C 44 41 20 54 |0.RS LDA T| 00000130: 45 58 54 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |EXT,X. S| 00000140: 54 41 20 24 30 34 30 30 2C 58 0D 20 20 20 20 20 |TA $0400,X. | 00000150: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 00000160: 20 43 50 58 20 23 31 31 0D 20 20 20 20 20 20 20 | CPX #11. | 00000170: 20 20 42 4E 45 20 52 53 0D 20 20 20 20 20 20 20 | BNE RS. | 00000180: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00000190: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. | 000001A0: 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 | STA $D021. | 000001B0: 20 20 20 20 20 20 20 20 4A 4D 50 20 53 4B 0D 0D | JMP SK..| 000001C0: 0D 54 45 58 54 20 20 20 20 20 3D 20 2A 0D 20 20 |.TEXT = *. | 000001D0: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 15 0E | .TEXT "..| 000001E0: 09 03 20 12 15 0C 05 13 21 22 0D 0D 0D 53 4B 20 |.. .....!"...SK | 000001F0: 20 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 | = *. | 00000200: 20 20 20 4C 44 58 20 23 24 35 30 0D 53 41 53 20 | LDX #$50.SAS | 00000210: 20 20 20 20 20 4C 44 41 20 46 4C 59 54 2C 58 0D | LDA FLYT,X.| 00000220: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 35 | STA $05| 00000230: 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 44 45 |00,X. DE| 00000240: 58 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 53 |X. BPL S| 00000250: 41 53 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |AS. JMP | 00000260: 24 30 35 30 30 0D 20 20 20 20 20 20 20 20 20 52 |$0500. R| 00000270: 54 53 0D 0D 46 4C 59 54 20 20 20 20 20 3D 20 2A |TS..FLYT = *| 00000280: 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 |. SEI. | 00000290: 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 30 0D | LDA #$30.| 000002A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 31 | STA $01| 000002B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C |. LDX #<| 000002C0: 49 4E 54 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 |INTO. LD| 000002D0: 59 20 23 3E 49 4E 54 4F 0D 20 20 20 20 20 20 20 |Y #>INTO. | 000002E0: 20 20 53 54 58 20 24 32 44 0D 20 20 20 20 20 20 | STX $2D. | 000002F0: 20 20 20 53 54 59 20 24 32 45 0D 20 20 20 20 20 | STY $2E. | 00000300: 20 20 20 20 4C 44 58 20 23 3C 46 52 4F 4D 0D 20 | LDX #<FROM. | 00000310: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 46 52 | LDY #>FR| 00000320: 4F 4D 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |OM. STX | 00000330: 24 34 41 0D 20 20 20 20 20 20 20 20 20 53 54 59 |$4A. STY| 00000340: 20 24 34 42 0D 20 20 20 20 20 20 20 20 20 4C 44 | $4B. LD| 00000350: 58 20 23 3C 54 4F 0D 20 20 20 20 20 20 20 20 20 |X #<TO. | 00000360: 4C 44 59 20 23 3E 54 4F 0D 20 20 20 20 20 20 20 |LDY #>TO. | 00000370: 20 20 53 54 58 20 24 34 43 0D 20 20 20 20 20 20 | STX $4C. | 00000380: 20 20 20 53 54 59 20 24 34 44 0D 20 20 20 20 20 | STY $4D. | 00000390: 20 20 20 20 4C 44 59 20 23 30 0D 55 30 20 20 20 | LDY #0.U0 | 000003A0: 20 20 20 20 4C 44 41 20 28 24 34 41 29 2C 59 0D | LDA ($4A),Y.| 000003B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 32 | STA ($2| 000003C0: 44 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E |D),Y. IN| 000003D0: 43 20 24 32 44 0D 20 20 20 20 20 20 20 20 20 4C |C $2D. L| 000003E0: 44 41 20 24 32 44 0D 20 20 20 20 20 20 20 20 20 |DA $2D. | 000003F0: 53 54 41 20 24 44 34 31 38 0D 20 20 20 20 20 20 |STA $D418. | 00000400: 20 20 20 42 4E 45 20 55 31 0D 20 20 20 20 20 20 | BNE U1. | 00000410: 20 20 20 49 4E 43 20 24 32 45 0D 55 31 20 20 20 | INC $2E.U1 | 00000420: 20 20 20 20 49 4E 43 20 24 34 41 0D 20 20 20 20 | INC $4A. | 00000430: 20 20 20 20 20 42 4E 45 20 55 32 0D 20 20 20 20 | BNE U2. | 00000440: 20 20 20 20 20 49 4E 43 20 24 34 42 0D 55 32 20 | INC $4B.U2 | 00000450: 20 20 20 20 20 20 4C 44 41 20 24 34 41 0D 20 20 | LDA $4A. | 00000460: 20 20 20 20 20 20 20 43 4D 50 20 24 34 43 0D 20 | CMP $4C. | 00000470: 20 20 20 20 20 20 20 20 42 4E 45 20 55 30 0D 20 | BNE U0. | 00000480: 20 20 20 20 20 20 20 20 4C 44 41 20 24 34 42 0D | LDA $4B.| 00000490: 20 20 20 20 20 20 20 20 20 43 4D 50 20 24 34 44 | CMP $4D| 000004A0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 55 30 |. BNE U0| 000004B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 000004C0: 33 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |37. STA | 000004D0: 24 30 31 0D 20 20 20 20 20 20 20 20 20 43 4C 49 |$01. CLI| 000004E0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 |. JSR $E| 000004F0: 33 42 46 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |3BF. JMP| 00000500: 20 53 54 41 52 54 53 59 53 0D 20 20 20 20 20 20 | STARTSYS. | 00000510: 20 20 20 52 54 53 0D 0D 0D 0D | RTS.... |
...FROM = $6000.TO = $CFFF.INT
O = $0801.STARTSYS = $0812..END
= *. SEI. JSR $FF81.
JSR $FF84. JSR $FF8A.
LDX #0.RR LDA #1. STA
$D800,X. LDA #0. STA $D9
00,X. INX. BNE RR.
LDX #0.RS LDA TEXT,X. S
TA $0400,X. INX. CPX #11
. BNE RS. LDA #0.
STA $D020. STA $D021.
JMP SK...TEXT = *. .TEXT "..
.. .....!"...SK = *. LDX #
$50.SAS LDA FLYT,X. STA $05
00,X. DEX. BPL SAS.
JMP $0500. RTS..FLYT = *
. SEI. LDA #$30.
STA $01. LDX #<INTO. LD
Y #>INTO. STX $2D. STY $
2E. LDX #<FROM. LDY #>FR
OM. STX $4A. STY $4B.
LDX #<TO. LDY #>TO.
STX $4C. STY $4D. LDY
#0.U0 LDA ($4A),Y. STA ($2
D),Y. INC $2D. LDA $2D.
STA $D418. BNE U1.
INC $2E.U1 INC $4A. BNE
U2. INC $4B.U2 LDA $4A.
CMP $4C. BNE U0.
LDA $4B. CMP $4D. BNE U0
. LDA #$37. STA $01.
CLI. JSR $E3BF. JMP
STARTSYS. RTS....
> CLICK IMAGE PREVIEW FOR FULL MODAL