19
FILE INFORMATION
FILENAME(S): 19
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
02ca57fa08c5793920c64383eaff46fa2bf4f321560ae4d60fe1fa01bb34df71
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 19 | PRG | Curtcool, Nigel | 14 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 3B 4C 4F 41 |.... ;LOA| 00000010: 44 45 52 0D 0D 0D 49 4E 54 4F 20 20 20 20 20 3D |DER...INTO =| 00000020: 20 24 33 30 30 30 20 20 20 3B 41 44 52 45 53 53 | $3000 ;ADRESS| 00000030: 20 57 48 45 52 45 20 54 48 45 0D 20 20 20 20 20 | WHERE THE. | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 48 | ;H| 00000050: 49 47 48 2D 53 43 52 4F 52 45 20 4D 55 53 54 0D |IGH-SCRORE MUST.| 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 3B 42 45 20 4C 4F 41 44 45 44 20 49 4E | ;BE LOADED IN| 00000080: 54 4F 0D 53 41 56 45 41 44 52 20 20 3D 20 24 30 |TO.SAVEADR = $0| 00000090: 32 42 30 20 20 20 3B 41 44 52 45 53 53 20 46 4F |2B0 ;ADRESS FO| 000000A0: 52 20 53 41 56 45 52 21 0D 53 41 56 45 4A 4D 50 |R SAVER!.SAVEJMP| 000000B0: 20 20 3D 20 24 34 30 30 30 20 20 20 3B 41 44 52 | = $4000 ;ADR| 000000C0: 45 53 53 20 54 4F 20 50 4C 41 43 45 0D 20 20 20 |ESS TO PLACE. | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 3B 41 20 4A 55 4D 50 20 54 4F 20 54 48 45 0D 20 |;A JUMP TO THE. | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 3B 53 41 56 45 52 21 0D 47 41 4D 45 53 54 | ;SAVER!.GAMEST| 00000110: 41 52 54 20 3D 20 24 39 30 30 30 20 20 3B 53 54 |ART = $9000 ;ST| 00000120: 41 52 54 2D 41 44 52 20 46 4F 52 20 47 41 4D 45 |ART-ADR FOR GAME| 00000130: 0D 0D 4C 4F 41 44 4E 41 4D 45 20 20 20 20 20 20 |..LOADNAME | 00000140: 20 20 20 20 20 3B 4E 41 4D 45 20 4F 46 20 46 49 | ;NAME OF FI| 00000150: 4C 45 20 54 4F 0D 20 20 20 20 20 20 20 20 20 20 |LE TO. | 00000160: 20 20 20 20 20 20 20 20 20 3B 4C 4F 41 44 20 43 | ;LOAD C| 00000170: 41 4E 20 42 45 20 45 44 49 54 45 44 0D 20 20 20 |AN BE EDITED. | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 3B 49 4E 20 54 48 45 20 42 4F 54 54 4F 4D 0D 20 |;IN THE BOTTOM. | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 3B 4F 46 20 54 48 49 53 20 50 52 4F 47 2E | ;OF THIS PROG.| 000001C0: 21 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |!.... *=| 000001D0: 20 24 30 34 30 30 0D 20 20 20 20 20 20 20 20 20 | $0400. | 000001E0: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDA #0. | 000001F0: 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 20 20 |STA $D020. | 00000200: 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 20 20 | STA $D021. | 00000210: 20 20 20 20 20 20 53 54 41 20 24 30 32 38 36 0D | STA $0286.| 00000220: 20 20 20 20 20 20 20 20 20 54 41 58 0D 41 31 20 | TAX.A1 | 00000230: 20 20 20 20 20 20 53 54 41 20 24 44 38 30 30 2C | STA $D800,| 00000240: 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 |X. INX. | 00000250: 20 20 20 20 20 20 20 20 43 50 58 20 23 31 32 30 | CPX #120| 00000260: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 41 31 |. BNE A1| 00000270: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000280: 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |20. STA | 00000290: 53 41 56 45 4A 4D 50 0D 20 20 20 20 20 20 20 20 |SAVEJMP. | 000002A0: 20 4C 44 41 20 23 3C 53 41 56 45 41 44 52 0D 20 | LDA #<SAVEADR. | 000002B0: 20 20 20 20 20 20 20 20 53 54 41 20 53 41 56 45 | STA SAVE| 000002C0: 4A 4D 50 2B 31 0D 20 20 20 20 20 20 20 20 20 4C |JMP+1. L| 000002D0: 44 41 20 23 3E 53 41 56 45 41 44 52 0D 20 20 20 |DA #>SAVEADR. | 000002E0: 20 20 20 20 20 20 53 54 41 20 53 41 56 45 4A 4D | STA SAVEJM| 000002F0: 50 2B 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |P+2. JSR| 00000300: 20 4C 4F 41 44 0D 20 20 20 20 20 20 20 20 20 4A | LOAD. J| 00000310: 4D 50 20 47 41 4D 45 53 54 41 52 54 0D 0D 0D 20 |MP GAMESTART... | 00000320: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C | .BYTE 0,| 00000330: 30 2C 30 2C 30 2C 30 0D 0D 0D 0D 0D 0D 4C 4F 41 |0,0,0,0......LOA| 00000340: 44 20 20 20 20 20 3D 20 2A 0D 0D 20 20 20 20 20 |D = *.. | 00000350: 20 20 20 20 4C 44 58 20 23 24 30 38 0D 20 20 20 | LDX #$08. | 00000360: 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 0D 20 | LDA #$01. | 00000370: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 | LDY #$01| 00000380: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00000390: 46 42 41 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |FBA.. LD| 000003A0: 41 20 23 4E 41 4D 45 31 2D 4E 41 4D 45 0D 20 20 |A #NAME1-NAME. | 000003B0: 20 20 20 20 20 20 20 4C 44 58 20 23 3C 4E 41 4D | LDX #<NAM| 000003C0: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #| 000003D0: 3E 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 4A |>NAME. J| 000003E0: 53 52 20 24 46 46 42 44 0D 0D 20 20 20 20 20 20 |SR $FFBD.. | 000003F0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 00000400: 20 20 20 20 20 4C 44 58 20 23 3C 49 4E 54 4F 0D | LDX #<INTO.| 00000410: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 49 | LDY #>I| 00000420: 4E 54 4F 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |NTO. JSR| 00000430: 20 24 46 46 44 35 0D 20 20 20 20 20 20 20 20 20 | $FFD5. | 00000440: 43 4D 50 20 23 24 30 34 0D 20 20 20 20 20 20 20 |CMP #$04. | 00000450: 20 20 42 45 51 20 45 52 0D 20 20 20 20 20 20 20 | BEQ ER. | 00000460: 20 20 52 54 53 0D 0D 45 52 20 20 20 20 20 20 20 | RTS..ER | 00000470: 4A 4D 50 20 47 41 4D 45 53 54 41 52 54 0D 20 20 |JMP GAMESTART. | 00000480: 20 20 20 20 20 20 20 52 54 53 0D 0D 4E 41 4D 45 | RTS..NAME| 00000490: 20 20 20 20 20 2E 54 45 58 54 20 22 48 49 47 48 | .TEXT "HIGH| 000004A0: 2D 53 43 4F 52 45 20 20 20 20 20 20 22 0D 4E 41 |-SCORE ".NA| 000004B0: 4D 45 31 0D 0D |ME1.. |
.... ;LOADER...INTO = $3000
;ADRESS WHERE THE. ;H
IGH-SCRORE MUST. ;BE L
OADED INTO.SAVEADR = $02B0 ;ADRESS FO
R SAVER!.SAVEJMP = $4000 ;ADRESS TO P
LACE. ;A JUMP TO THE.
;SAVER!.GAMESTART = $9
000 ;START-ADR FOR GAME..LOADNAME
;NAME OF FILE TO.
;LOAD CAN BE EDITED.
;IN THE BOTTOM. ;OF TH
IS PROG.!.... *= $0400.
LDA #0. STA $D020. STA $
D021. STA $0286. TAX.A1
STA $D800,X. INX.
CPX #120. BNE A1. LDA #$
20. STA SAVEJMP. LDA #<S
AVEADR. STA SAVEJMP+1. L
DA #>SAVEADR. STA SAVEJMP+2.
JSR LOAD. JMP GAMESTART...
.BYTE 0,0,0,0,0......LOAD =
*.. LDX #$08. LDA #$01.
LDY #$01. JSR $FFBA..
LDA #NAME1-NAME. LDX #<NAM
E. LDY #>NAME. JSR $FFBD
.. LDA #$00. LDX #<INTO.
LDY #>INTO. JSR $FFD5.
CMP #$04. BEQ ER.
RTS..ER JMP GAMESTART. R
TS..NAME .TEXT "HIGH-SCORE ".NA
ME1..
> CLICK IMAGE PREVIEW FOR FULL MODAL