16
FILE INFORMATION
FILENAME(S): 16
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
68206bec68ca376af15e696fd05a1b5a08e880a8d628031096cd6b3df620e62c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 16 | PRG | Curtcool, Nigel | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000010: 3B 53 41 56 45 52 0D 0D 0D 46 52 4F 4D 20 20 20 |;SAVER...FROM | 00000020: 20 20 3D 20 24 32 30 30 30 20 3B 41 44 52 45 53 | = $2000 ;ADRES| 00000030: 53 20 54 4F 20 53 41 56 45 20 48 49 47 48 2D 0D |S TO SAVE HIGH-.| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 3B 53 43 4F 52 45 20 46 52 4F 4D 21 0D 54 4F | ;SCORE FROM!.TO| 00000060: 20 20 20 20 20 20 20 3D 20 24 32 33 30 30 20 3B | = $2300 ;| 00000070: 41 44 52 45 53 53 20 54 4F 20 53 41 56 45 20 48 |ADRESS TO SAVE H| 00000080: 49 47 48 2D 0D 20 20 20 20 20 20 20 20 20 20 20 |IGH-. | 00000090: 20 20 20 20 20 20 3B 53 43 4F 52 45 20 54 4F 21 | ;SCORE TO!| 000000A0: 0D 49 4E 54 4F 20 20 20 20 20 3D 20 24 32 30 30 |.INTO = $200| 000000B0: 30 20 3B 41 44 52 45 53 53 20 54 4F 20 53 41 56 |0 ;ADRESS TO SAV| 000000C0: 45 20 48 49 47 48 2D 0D 20 20 20 20 20 20 20 20 |E HIGH-. | 000000D0: 20 20 20 20 20 20 20 20 20 3B 53 43 4F 52 45 20 | ;SCORE | 000000E0: 49 4E 54 4F 21 0D 47 41 4D 45 53 54 41 52 54 20 |INTO!.GAMESTART | 000000F0: 3D 20 24 39 30 30 30 3B 53 54 41 52 54 2D 41 44 |= $9000;START-AD| 00000100: 52 20 46 4F 52 20 47 41 4D 45 21 0D 0D 20 20 20 |R FOR GAME!.. | 00000110: 20 20 20 20 20 20 2A 3D 20 24 30 32 42 30 0D 0D | *= $02B0..| 00000120: 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 20 | SEI. | 00000130: 20 20 20 20 20 20 4A 53 52 20 24 46 46 38 31 0D | JSR $FF81.| 00000140: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 | JSR $FF| 00000150: 38 34 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |84. JSR | 00000160: 24 46 46 38 41 0D 20 20 20 20 20 20 20 20 20 4C |$FF8A. L| 00000170: 44 41 20 23 36 0D 20 20 20 20 20 20 20 20 20 53 |DA #6. S| 00000180: 54 41 20 24 30 32 38 36 0D 20 20 20 20 20 20 20 |TA $0286. | 00000190: 20 20 4C 44 41 20 23 3C 49 4E 54 4F 0D 20 20 20 | LDA #<INTO. | 000001A0: 20 20 20 20 20 20 53 54 41 20 44 46 52 0D 20 20 | STA DFR. | 000001B0: 20 20 20 20 20 20 20 4C 44 41 20 23 3E 49 4E 54 | LDA #>INT| 000001C0: 4F 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |O. STA D| 000001D0: 46 52 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |FR+1. LD| 000001E0: 41 20 23 3C 54 55 54 0D 20 20 20 20 20 20 20 20 |A #<TUT. | 000001F0: 20 4C 44 59 20 23 3E 54 55 54 0D 20 20 20 20 20 | LDY #>TUT. | 00000200: 20 20 20 20 4A 53 52 20 24 41 42 31 45 0D 20 20 | JSR $AB1E. | 00000210: 20 20 20 20 20 20 20 4A 53 52 20 53 41 56 45 0D | JSR SAVE.| 00000220: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 41 4D | JMP GAM| 00000230: 45 53 54 41 52 54 0D 20 20 20 20 20 20 20 20 20 |ESTART. | 00000240: 52 54 53 0D 0D 0D 54 55 54 20 20 20 20 20 20 3D |RTS...TUT =| 00000250: 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 | *. .BYT| 00000260: 45 20 31 34 32 0D 20 20 20 20 20 20 20 20 20 2E |E 142. .| 00000270: 54 45 58 54 20 22 93 13 08 9A 22 0D 20 20 20 20 |TEXT "....". | 00000280: 20 20 20 20 20 2E 54 45 58 54 20 22 20 27 48 49 | .TEXT " 'HI| 00000290: 47 48 2D 53 41 56 45 52 20 42 59 20 44 22 0D 20 |GH-SAVER BY D". | 000002A0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 52 | .TEXT "R| 000002B0: 20 5A 49 47 20 4F 46 20 54 48 45 20 57 41 52 52 | ZIG OF THE WARR| 000002C0: 49 4F 52 53 27 22 0D 20 20 20 20 20 20 20 20 20 |IORS'". | 000002D0: 2E 42 59 54 45 20 30 0D 0D 0D 53 41 56 45 20 20 |.BYTE 0...SAVE | 000002E0: 20 20 20 3D 20 2A 0D 0D 20 20 20 20 20 20 20 20 | = *.. | 000002F0: 20 4C 44 58 20 23 24 30 38 0D 20 20 20 20 20 20 | LDX #$08. | 00000300: 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 | LDA #$01. | 00000310: 20 20 20 20 20 4C 44 59 20 23 24 30 31 0D 20 20 | LDY #$01. | 00000320: 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 42 41 | JSR $FFBA| 00000330: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.. LDA #| 00000340: 43 41 4E 54 41 4C 2D 43 4E 41 4D 45 0D 20 20 20 |CANTAL-CNAME. | 00000350: 20 20 20 20 20 20 4C 44 58 20 23 3C 43 4E 41 4D | LDX #<CNAM| 00000360: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #| 00000370: 3E 43 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 |>CNAME. | 00000380: 4A 53 52 20 24 46 46 42 44 0D 0D 20 20 20 20 20 |JSR $FFBD.. | 00000390: 20 20 20 20 4C 44 58 20 23 24 30 30 0D 20 20 20 | LDX #$00. | 000003A0: 20 20 20 20 20 20 4C 44 59 20 23 24 37 38 0D 20 | LDY #$78. | 000003B0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 42 | LDA #$FB| 000003C0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 000003D0: 46 43 30 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |FC0. LDX| 000003E0: 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 4C | #$01. L| 000003F0: 44 41 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 |DA #$01. | 00000400: 20 4A 53 52 20 24 46 46 43 39 0D 20 20 20 20 20 | JSR $FFC9. | 00000410: 20 20 20 20 4C 44 41 20 23 3C 46 52 4F 4D 0D 20 | LDA #<FROM. | 00000420: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 32 0D | STA $02.| 00000430: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 46 | LDA #>F| 00000440: 52 4F 4D 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ROM. STA| 00000450: 20 24 30 33 0D 0D 20 20 20 20 20 20 20 20 20 4C | $03.. L| 00000460: 44 41 20 44 46 52 0D 20 20 20 20 20 20 20 20 20 |DA DFR. | 00000470: 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 20 20 |JSR $FFD2. | 00000480: 20 20 20 4C 44 41 20 44 46 52 2B 31 0D 20 20 20 | LDA DFR+1. | 00000490: 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 32 0D | JSR $FFD2.| 000004A0: 0D 4D 4D 4B 20 20 20 20 20 20 4C 44 59 20 23 24 |.MMK LDY #$| 000004B0: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 000004C0: 28 24 30 32 29 2C 59 0D 20 20 20 20 20 20 20 20 |($02),Y. | 000004D0: 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 20 | JSR $FFD2. | 000004E0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 000004F0: 20 4C 44 41 20 24 30 32 0D 20 20 20 20 20 20 20 | LDA $02. | 00000500: 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 20 | ADC #1. | 00000510: 20 20 53 54 41 20 24 30 32 0D 20 20 20 20 20 20 | STA $02. | 00000520: 20 20 20 4C 44 41 20 24 30 33 0D 20 20 20 20 20 | LDA $03. | 00000530: 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 | ADC #0. | 00000540: 20 20 20 20 53 54 41 20 24 30 33 0D 20 20 20 20 | STA $03. | 00000550: 20 20 20 20 20 4C 44 41 20 24 30 32 0D 20 20 20 | LDA $02. | 00000560: 20 20 20 20 20 20 43 4D 50 20 23 3C 54 4F 0D 20 | CMP #<TO. | 00000570: 20 20 20 20 20 20 20 20 42 45 51 20 4D 45 0D 20 | BEQ ME. | 00000580: 20 20 20 20 20 20 20 20 4A 4D 50 20 4D 4D 4B 0D | JMP MMK.| 00000590: 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ME. LDA | 000005A0: 24 30 33 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |$03. CMP| 000005B0: 20 23 3E 54 4F 0D 20 20 20 20 20 20 20 20 20 42 | #>TO. B| 000005C0: 45 51 20 45 4E 44 0D 20 20 20 20 20 20 20 20 20 |EQ END. | 000005D0: 4A 4D 50 20 4D 4D 4B 0D 45 4E 44 0D 0D 0D 0D 20 |JMP MMK.END.... | 000005E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 | LDA #$01| 000005F0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00000600: 46 43 33 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |FC3. JSR| 00000610: 20 24 46 46 43 43 0D 20 20 20 20 20 20 20 20 20 | $FFCC. | 00000620: 52 54 53 0D 0D 0D 44 46 52 20 20 20 20 20 20 2E |RTS...DFR .| 00000630: 42 59 54 45 20 24 30 30 2C 24 30 30 0D 0D 0D 0D |BYTE $00,$00....| 00000640: 0D 0D 0D 0D 0D 0D 0D 0D 0D 43 4E 41 4D 45 20 20 |.........CNAME | 00000650: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E | = *. .| 00000660: 54 45 58 54 20 22 40 3A 48 49 47 48 2D 53 43 4F |TEXT "@:HIGH-SCO| 00000670: 52 45 20 20 20 20 20 20 22 0D 43 41 4E 54 41 4C |RE ".CANTAL| 00000680: 0D 0D |.. |
.... ;SAVER...FROM = $200
0 ;ADRESS TO SAVE HIGH-.
;SCORE FROM!.TO = $2300 ;ADRESS T
O SAVE HIGH-. ;SCORE TO!
.INTO = $2000 ;ADRESS TO SAVE HIGH-.
;SCORE INTO!.GAMESTART
= $9000;START-ADR FOR GAME!.. *=
$02B0.. SEI. JSR $FF81.
JSR $FF84. JSR $FF8A.
LDA #6. STA $0286.
LDA #<INTO. STA DFR. L
DA #>INTO. STA DFR+1. LD
A #<TUT. LDY #>TUT. JSR
$AB1E. JSR SAVE. JMP GAM
ESTART. RTS...TUT = *.
.BYTE 142. .TEXT "....".
.TEXT " 'HIGH-SAVER BY D".
.TEXT "R ZIG OF THE WARRIORS'".
.BYTE 0...SAVE = *.. LDX #$0
8. LDA #$01. LDY #$01.
JSR $FFBA.. LDA #CANTAL-C
NAME. LDX #<CNAME. LDY #
>CNAME. JSR $FFBD.. LDX
#$00. LDY #$78. LDA #$FB
. JSR $FFC0. LDX #$01.
LDA #$01. JSR $FFC9.
LDA #<FROM. STA $02.
LDA #>FROM. STA $03.. L
DA DFR. JSR $FFD2. LDA D
FR+1. JSR $FFD2..MMK LDY #$
00. LDA ($02),Y. JSR $FF
D2. CLC. LDA $02.
ADC #1. STA $02. LDA $
03. ADC #0. STA $03.
LDA $02. CMP #<TO.
BEQ ME. JMP MMK.ME. LDA
$03. CMP #>TO. BEQ END.
JMP MMK.END.... LDA #$01
. JSR $FFC3. JSR $FFCC.
RTS...DFR .BYTE $00,$00....
.........CNAME = *. .TEXT "@:
HIGH-SCORE ".CANTAL..
> CLICK IMAGE PREVIEW FOR FULL MODAL