52
FILE INFORMATION
FILENAME(S): 52
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
7ac0492d67fcb85211fdcdacd324521c84250948cae336614bfaf07116f0ea30
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 52 | PRG | Curtcool, Nigel | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 53 43 52 4F 4C 4C 20 20 20 3D 20 2A 0D 20 |..SCROLL = *. | 00000010: 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 48 | LDX #0.H| 00000020: 59 54 31 20 20 20 20 20 4C 44 41 20 24 30 34 30 |YT1 LDA $040| 00000030: 31 2B 28 31 39 2A 34 30 29 2C 58 0D 20 20 20 20 |1+(19*40),X. | 00000040: 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B 28 | STA $0400+(| 00000050: 31 39 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 |19*40),X. | 00000060: 20 20 4C 44 41 20 24 30 34 30 31 2B 28 32 30 2A | LDA $0401+(20*| 00000070: 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |40),X. S| 00000080: 54 41 20 24 30 34 30 30 2B 28 32 30 2A 34 30 29 |TA $0400+(20*40)| 00000090: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 000000A0: 24 30 34 30 31 2B 28 32 31 2A 34 30 29 2C 58 0D |$0401+(21*40),X.| 000000B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 000000C0: 30 30 2B 28 32 31 2A 34 30 29 2C 58 0D 20 20 20 |00+(21*40),X. | 000000D0: 20 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B | LDA $0401+| 000000E0: 28 32 32 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 |(22*40),X. | 000000F0: 20 20 20 53 54 41 20 24 30 34 30 30 2B 28 32 32 | STA $0400+(22| 00000100: 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 |*40),X. | 00000110: 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 |INX. CPX| 00000120: 20 23 34 30 0D 20 20 20 20 20 20 20 20 20 42 4E | #40. BN| 00000130: 45 20 48 59 54 31 0D 20 20 20 20 20 20 20 20 20 |E HYT1. | 00000140: 44 45 43 20 4B 4E 55 44 33 0D 20 20 20 20 20 20 |DEC KNUD3. | 00000150: 20 20 20 42 50 4C 20 4C 45 4D 0D 20 20 20 20 20 | BPL LEM. | 00000160: 20 20 20 20 4C 44 41 20 23 33 0D 20 20 20 20 20 | LDA #3. | 00000170: 20 20 20 20 53 54 41 20 4B 4E 55 44 33 0D 20 20 | STA KNUD3. | 00000180: 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 20 20 | LDX #0. | 00000190: 20 20 20 20 20 20 20 4C 44 41 20 28 24 39 45 2C | LDA ($9E,| 000001A0: 58 29 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |X). BNE | 000001B0: 56 49 44 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |VID. JSR| 000001C0: 20 52 45 53 0D 20 20 20 20 20 20 20 20 20 4C 44 | RES. LD| 000001D0: 41 20 28 24 39 45 2C 58 29 0D 56 49 44 20 20 20 |A ($9E,X).VID | 000001E0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 | PHA. | 000001F0: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDA #0. | 00000200: 53 54 41 20 24 31 31 0D 20 20 20 20 20 20 20 20 |STA $11. | 00000210: 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 41 4E | PLA. AN| 00000220: 44 20 23 24 33 46 0D 20 20 20 20 20 20 20 20 20 |D #$3F. | 00000230: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 52 |ASL A. R| 00000240: 4F 4C 20 24 31 31 0D 20 20 20 20 20 20 20 20 20 |OL $11. | 00000250: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 52 |ASL A. R| 00000260: 4F 4C 20 24 31 31 0D 20 20 20 20 20 20 20 20 20 |OL $11. | 00000270: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 52 |ASL A. R| 00000280: 4F 4C 20 24 31 31 0D 20 20 20 20 20 20 20 20 20 |OL $11. | 00000290: 53 54 41 20 24 31 30 0D 20 20 20 20 20 20 20 20 |STA $10. | 000002A0: 20 4C 44 41 20 24 31 31 0D 20 20 20 20 20 20 20 | LDA $11. | 000002B0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 000002C0: 44 43 20 23 24 44 30 0D 20 20 20 20 20 20 20 20 |DC #$D0. | 000002D0: 20 53 54 41 20 24 31 31 0D 20 20 20 20 20 20 20 | STA $11. | 000002E0: 20 20 4C 44 59 20 23 37 0D 4C 4F 46 54 20 20 20 | LDY #7.LOFT | 000002F0: 20 20 4C 44 58 20 23 24 33 33 0D 20 20 20 20 20 | LDX #$33. | 00000300: 20 20 20 20 53 54 58 20 24 30 31 0D 20 20 20 20 | STX $01. | 00000310: 20 20 20 20 20 4C 44 41 20 28 24 31 30 29 2C 59 | LDA ($10),Y| 00000320: 0D 20 20 20 20 20 20 3B 20 20 45 4F 52 20 23 24 |. ; EOR #$| 00000330: 46 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |FF. STA | 00000340: 56 41 52 53 2C 59 0D 20 20 20 20 20 20 20 20 20 |VARS,Y. | 00000350: 4C 44 58 20 23 24 33 37 0D 20 20 20 20 20 20 20 |LDX #$37. | 00000360: 20 20 53 54 58 20 24 30 31 0D 20 20 20 20 20 20 | STX $01. | 00000370: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 20 | DEY. | 00000380: 42 50 4C 20 4C 4F 46 54 0D 20 20 20 20 20 20 20 |BPL LOFT. | 00000390: 20 20 49 4E 43 20 24 39 45 0D 20 20 20 20 20 20 | INC $9E. | 000003A0: 20 20 20 42 4E 45 20 4C 45 4D 0D 20 20 20 20 20 | BNE LEM. | 000003B0: 20 20 20 20 49 4E 43 20 24 39 46 0D 4C 45 4D 20 | INC $9F.LEM | 000003C0: 20 20 20 20 20 4C 44 59 20 23 24 32 37 0D 20 20 | LDY #$27. | 000003D0: 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 56 41 | LDX #0.VA| 000003E0: 53 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 |S LDA #0. | 000003F0: 20 20 20 20 20 20 20 53 54 41 20 24 31 30 0D 20 | STA $10. | 00000400: 20 20 20 20 20 20 20 20 52 4F 4C 20 56 41 52 53 | ROL VARS| 00000410: 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 |,X. ROL | 00000420: 24 31 30 0D 20 20 20 20 20 20 20 20 20 52 4F 4C |$10. ROL| 00000430: 20 56 41 52 53 2C 58 0D 20 20 20 20 20 20 20 20 | VARS,X. | 00000440: 20 52 4F 4C 20 24 31 30 0D 20 20 20 20 20 20 20 | ROL $10. | 00000450: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 52 | INX. R| 00000460: 4F 4C 20 56 41 52 53 2C 58 0D 20 20 20 20 20 20 |OL VARS,X. | 00000470: 20 20 20 52 4F 4C 20 24 31 30 0D 20 20 20 20 20 | ROL $10. | 00000480: 20 20 20 20 52 4F 4C 20 56 41 52 53 2C 58 0D 20 | ROL VARS,X. | 00000490: 20 20 20 20 20 20 20 20 52 4F 4C 20 24 31 30 0D | ROL $10.| 000004A0: 20 20 20 20 20 20 20 20 20 54 58 41 0D 20 20 20 | TXA. | 000004B0: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 000004C0: 20 20 20 4C 44 58 20 24 31 30 0D 20 20 20 20 20 | LDX $10. | 000004D0: 20 20 20 20 4C 44 41 20 56 41 53 41 2C 58 0D 20 | LDA VASA,X. | 000004E0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 30 | STA $040| 000004F0: 30 2B 28 31 39 2A 34 30 29 2C 59 0D 20 20 20 20 |0+(19*40),Y. | 00000500: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 00000510: 20 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 54 | TAX. T| 00000520: 59 41 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |YA. CLC.| 00000530: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 34 30 | ADC #40| 00000540: 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 |. TAY. | 00000550: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00000560: 20 20 20 20 43 50 58 20 23 38 0D 20 20 20 20 20 | CPX #8. | 00000570: 20 20 20 20 42 4E 45 20 56 41 53 0D 20 20 20 20 | BNE VAS. | 00000580: 20 20 20 20 20 52 54 53 0D 0D 0D 0D 52 45 53 20 | RTS....RES | 00000590: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 000005A0: 20 20 4C 44 41 20 23 3C 54 45 58 54 32 0D 20 20 | LDA #<TEXT2. | 000005B0: 20 20 20 20 20 20 20 4C 44 59 20 23 3E 54 45 58 | LDY #>TEX| 000005C0: 54 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |T2. STA | 000005D0: 24 39 45 0D 20 20 20 20 20 20 20 20 20 53 54 59 |$9E. STY| 000005E0: 20 24 39 46 0D 20 20 20 20 20 20 20 20 20 52 54 | $9F. RT| 000005F0: 53 0D 0D 56 41 52 53 20 20 20 20 20 3D 20 2A 0D |S..VARS = *.| 00000600: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 | .BYTE 0| 00000610: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 |,0,0,0,0,0,0,0. | 00000620: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C | .BYTE 0,| 00000630: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 |0,0,0,0,0,0,0. | 00000640: 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 | .BYTE 0,0| 00000650: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 |,0,0,0,0,0,0. | 00000660: 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C | .BYTE 0,0,| 00000670: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0D 0D 54 45 |0,0,0,0,0,0...TE| 00000680: 58 54 32 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 |XT2 = *. | 00000690: 20 20 20 20 2E 54 45 58 54 20 22 20 20 46 49 52 | .TEXT " FIR| 000006A0: 45 2D 45 41 47 4C 45 20 31 39 38 39 20 2E 2E 2E |E-EAGLE 1989 ...| 000006B0: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 000006C0: 20 30 0D 0D 56 41 53 41 20 20 20 20 20 3D 20 2A | 0..VASA = *| 000006D0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000006E0: 24 32 30 2C 24 36 43 2C 24 37 42 2C 24 36 32 2C |$20,$6C,$7B,$62,| 000006F0: 24 37 43 2C 24 45 31 0D 20 20 20 20 20 20 20 20 |$7C,$E1. | 00000700: 20 2E 42 59 54 45 20 24 37 46 2C 24 46 45 2C 24 | .BYTE $7F,$FE,$| 00000710: 37 45 2C 24 46 46 2C 24 36 31 2C 24 46 43 0D 20 |7E,$FF,$61,$FC. | 00000720: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 45 | .BYTE $E| 00000730: 32 2C 24 46 42 2C 24 45 43 2C 24 41 30 0D 0D |2,$FB,$EC,$A0.. |
..SCROLL = *. LDX #0.HYT1
LDA $0401+(19*40),X. STA $0400+(
19*40),X. LDA $0401+(20*40),X.
STA $0400+(20*40),X. LDA
$0401+(21*40),X. STA $0400+(21*4
0),X. LDA $0401+(22*40),X.
STA $0400+(22*40),X. INX.
CPX #40. BNE HYT1.
DEC KNUD3. BPL LEM. LDA
#3. STA KNUD3. LDX #0.
LDA ($9E,X). BNE VID.
JSR RES. LDA ($9E,X).VID
PHA. LDA #0. STA $11.
PLA. AND #$3F.
ASL A. ROL $11. ASL A.
ROL $11. ASL A. R
OL $11. STA $10. LDA $11
. CLC. ADC #$D0.
STA $11. LDY #7.LOFT LDX #$
33. STX $01. LDA ($10),Y
. ; EOR #$FF. STA VARS,Y.
LDX #$37. STX $01.
DEY. BPL LOFT. INC $9
E. BNE LEM. INC $9F.LEM
LDY #$27. LDX #0.VAS L
DA #0. STA $10. ROL VARS
,X. ROL $10. ROL VARS,X.
ROL $10. INX. R
OL VARS,X. ROL $10. ROL
VARS,X. ROL $10. TXA.
PHA. LDX $10. LDA
VASA,X. STA $0400+(19*40),Y.
PLA. TAX. TYA.
CLC. ADC #40. TAY.
INX. CPX #8. BNE
VAS. RTS....RES = *.
LDA #<TEXT2. LDY #>TEXT2.
STA $9E. STY $9F. RT
S..VARS = *. .BYTE 0,0,0,0,0
,0,0,0. .BYTE 0,0,0,0,0,0,0,0.
.BYTE 0,0,0,0,0,0,0,0. .B
YTE 0,0,0,0,0,0,0,0...TEXT2 = *.
.TEXT " FIRE-EAGLE 1989 ...".
.BYTE 0..VASA = *. .BYTE
$20,$6C,$7B,$62,$7C,$E1. .BYTE $
7F,$FE,$7E,$FF,$61,$FC. .BYTE $E
2,$FB,$EC,$A0..
> CLICK IMAGE PREVIEW FOR FULL MODAL