28
FILE INFORMATION
FILENAME(S): 28
FILE TYPE(S): PRG
FILE SIZE: 941b
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
0e8da2a06cf970a5647654856390f1dc935c9fecc14665d90069be0710c27d36
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 28 | PRG | Curtcool, Nigel | 17 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 20 20 20 3B 20 53 41 56 |.. ; SAV| 00000010: 45 20 52 55 54 49 4E 45 0D 0D 0D 20 20 20 20 20 |E RUTINE... | 00000020: 20 20 20 20 4C 44 58 20 23 24 30 38 0D 20 20 20 | LDX #$08. | 00000030: 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 0D 20 | LDA #$01. | 00000040: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 | LDY #$01| 00000050: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00000060: 46 42 41 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |FBA.. LD| 00000070: 41 20 43 41 4E 54 41 4C 0D 20 20 20 20 20 20 20 |A CANTAL. | 00000080: 20 20 4C 44 58 20 23 3C 43 4E 41 4D 45 0D 20 20 | LDX #<CNAME. | 00000090: 20 20 20 20 20 20 20 4C 44 59 20 23 3E 43 4E 41 | LDY #>CNA| 000000A0: 4D 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |ME. JSR | 000000B0: 24 46 46 42 44 0D 0D 20 20 20 20 20 20 20 20 20 |$FFBD.. | 000000C0: 4C 44 58 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDX #$00. | 000000D0: 20 20 4C 44 59 20 23 24 37 38 0D 20 20 20 20 20 | LDY #$78. | 000000E0: 20 20 20 20 4C 44 41 20 23 24 46 42 0D 20 20 20 | LDA #$FB. | 000000F0: 20 20 20 20 20 20 4A 53 52 20 24 46 46 43 30 0D | JSR $FFC0.| 00000100: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 00000110: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |1. LDA #| 00000120: 24 30 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |$01. JSR| 00000130: 20 24 46 46 43 39 0D 20 20 20 20 20 20 20 20 20 | $FFC9. | 00000140: 4C 44 41 20 23 24 30 30 20 20 3B 20 46 52 4F 4D |LDA #$00 ; FROM| 00000150: 20 3C 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 | <. STA | 00000160: 24 30 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$02. LDA| 00000170: 20 23 24 37 30 20 20 3B 20 46 52 4F 4D 20 3E 0D | #$70 ; FROM >.| 00000180: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 | STA $03| 00000190: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 44 |.. LDA D| 000001A0: 46 52 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |FR. JSR | 000001B0: 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 4C |$FFD2. L| 000001C0: 44 41 20 44 46 52 2B 31 0D 20 20 20 20 20 20 20 |DA DFR+1. | 000001D0: 20 20 4A 53 52 20 24 46 46 44 32 0D 0D 4D 4D 4B | JSR $FFD2..MMK| 000001E0: 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 20 | LDY #$00. | 000001F0: 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 30 32 | LDA ($02| 00000200: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |),Y. JSR| 00000210: 20 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 | $FFD2. | 00000220: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |CLC. LDA| 00000230: 20 24 30 32 0D 20 20 20 20 20 20 20 20 20 41 44 | $02. AD| 00000240: 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 |C #1. ST| 00000250: 41 20 24 30 32 0D 20 20 20 20 20 20 20 20 20 4C |A $02. L| 00000260: 44 41 20 24 30 33 0D 20 20 20 20 20 20 20 20 20 |DA $03. | 00000270: 41 44 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 |ADC #0. | 00000280: 53 54 41 20 24 30 33 0D 20 20 20 20 20 20 20 20 |STA $03. | 00000290: 20 4C 44 41 20 24 30 32 0D 20 20 20 20 20 20 20 | LDA $02. | 000002A0: 20 20 43 4D 50 20 23 24 30 30 20 20 20 20 20 20 | CMP #$00 | 000002B0: 20 20 3B 20 4C 4F 57 20 45 4E 44 0D 20 20 20 20 | ; LOW END. | 000002C0: 20 20 20 20 20 42 45 51 20 4D 45 0D 20 20 20 20 | BEQ ME. | 000002D0: 20 20 20 20 20 4A 4D 50 20 4D 4D 4B 0D 4D 45 0D | JMP MMK.ME.| 000002E0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 | LDA $03| 000002F0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00000300: 37 31 20 20 20 20 20 20 20 20 3B 20 48 49 47 48 |71 ; HIGH| 00000310: 20 45 4E 44 0D 20 20 20 20 20 20 20 20 20 42 45 | END. BE| 00000320: 51 20 45 4E 44 0D 20 20 20 20 20 20 20 20 20 4A |Q END. J| 00000330: 4D 50 20 4D 4D 4B 0D 45 4E 44 0D 0D 0D 0D 20 20 |MP MMK.END.... | 00000340: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 0D | LDA #$01.| 00000350: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 | JSR $FF| 00000360: 43 33 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |C3. JSR | 00000370: 24 46 46 43 43 0D 20 20 20 20 20 20 20 20 20 52 |$FFCC. R| 00000380: 54 53 0D 0D 0D 44 46 52 20 20 20 20 20 20 2E 42 |TS...DFR .B| 00000390: 59 54 45 20 24 30 30 2C 24 30 34 20 20 20 3B 20 |YTE $00,$04 ; | 000003A0: 32 20 46 49 52 53 54 20 42 59 54 0D 0D |2 FIRST BYT.. |
.. ; SAVE RUTINE... LDX
#$08. LDA #$01. LDY #$01
. JSR $FFBA.. LDA CANTAL
. LDX #<CNAME. LDY #>CNA
ME. JSR $FFBD.. LDX #$00
. LDY #$78. LDA #$FB.
JSR $FFC0. LDX #$01.
LDA #$01. JSR $FFC9.
LDA #$00 ; FROM <. STA $02.
LDA #$70 ; FROM >. STA $03
.. LDA DFR. JSR $FFD2.
LDA DFR+1. JSR $FFD2..MMK
LDY #$00. LDA ($02),Y.
JSR $FFD2. CLC. LDA
$02. ADC #1. STA $02.
LDA $03. ADC #0.
STA $03. LDA $02. CMP #$
00 ; LOW END. BEQ ME.
JMP MMK.ME. LDA $03.
CMP #$71 ; HIGH END. BE
Q END. JMP MMK.END.... L
DA #$01. JSR $FFC3. JSR
$FFCC. RTS...DFR .BYTE $00,
$04 ; 2 FIRST BYT..
> CLICK IMAGE PREVIEW FOR FULL MODAL