37
FILE INFORMATION
FILENAME(S): 37
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
32cc4a56f175e5987546a6350580f0350d6f5ef577fa94ebf7f1ec4952956008
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 37 | PRG | Curtcool, Nigel | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 20 20 20 20 20 20 20 3B 20 2A 20 49 4E |... ; * IN| 00000010: 50 55 54 20 4C 4F 41 44 2F 53 41 56 45 20 4E 41 |PUT LOAD/SAVE NA| 00000020: 4D 45 20 2A 0D 0D 20 20 20 20 20 3B 20 53 45 4C |ME *.. ; SEL| 00000030: 49 4E 20 3D 20 30 20 50 52 47 20 2D 20 31 20 53 |IN = 0 PRG - 1 S| 00000040: 2C 52 20 2D 20 32 20 53 2C 57 0D 0D 0D 43 4E 41 |,R - 2 S,W...CNA| 00000050: 4D 45 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 |ME .TEXT " | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 22 0D 0D 43 41 4E 54 41 4C 20 20 20 2E 42 59 | "..CANTAL .BY| 00000080: 54 45 20 30 0D 0D 53 45 4C 49 4E 20 20 20 20 2E |TE 0..SELIN .| 00000090: 42 59 54 45 20 30 0D 0D 0D 43 49 4E 50 55 54 0D |BYTE 0...CINPUT.| 000000A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 000000B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 43 41 4E | STA CAN| 000000C0: 54 41 4C 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |TAL. JSR| 000000D0: 20 43 38 0D 43 31 20 20 20 20 20 20 20 4A 53 52 | C8.C1 JSR| 000000E0: 20 24 46 46 45 34 0D 20 20 20 20 20 20 20 20 20 | $FFE4. | 000000F0: 42 45 51 20 43 31 0D 20 20 20 20 20 20 20 20 20 |BEQ C1. | 00000100: 43 4D 50 20 23 22 14 22 0D 20 20 20 20 20 20 20 |CMP #".". | 00000110: 20 20 42 45 51 20 43 33 0D 20 20 20 20 20 20 20 | BEQ C3. | 00000120: 20 20 43 4D 50 20 23 24 30 44 0D 20 20 20 20 20 | CMP #$0D. | 00000130: 20 20 20 20 42 45 51 20 43 34 0D 20 20 20 20 20 | BEQ C4. | 00000140: 20 20 20 20 43 4D 50 20 23 22 20 22 0D 20 20 20 | CMP #" ". | 00000150: 20 20 20 20 20 20 42 43 53 20 43 32 0D 20 20 20 | BCS C2. | 00000160: 20 20 20 20 20 20 4A 4D 50 20 43 31 0D 43 32 20 | JMP C1.C2 | 00000170: 20 20 20 20 20 20 43 4D 50 20 23 22 5A 22 2B 31 | CMP #"Z"+1| 00000180: 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 43 31 |. BCS C1| 00000190: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 43 41 |. LDY CA| 000001A0: 4E 54 41 4C 0D 20 20 20 20 20 20 20 20 20 43 50 |NTAL. CP| 000001B0: 59 20 23 31 36 0D 20 20 20 20 20 20 20 20 20 42 |Y #16. B| 000001C0: 45 51 20 43 31 0D 20 20 20 20 20 20 20 20 20 50 |EQ C1. P| 000001D0: 48 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |HA. LDA | 000001E0: 23 22 14 22 0D 20 20 20 20 20 20 20 20 20 4A 53 |#".". JS| 000001F0: 52 20 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 |R $FFD2. | 00000200: 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 4A 53 | PLA. JS| 00000210: 52 20 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 |R $FFD2. | 00000220: 20 4C 44 59 20 43 41 4E 54 41 4C 0D 20 20 20 20 | LDY CANTAL. | 00000230: 20 20 20 20 20 53 54 41 20 43 4E 41 4D 45 2C 59 | STA CNAME,Y| 00000240: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 38 |. JSR C8| 00000250: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 43 41 |. INC CA| 00000260: 4E 54 41 4C 0D 20 20 20 20 20 20 20 20 20 4A 4D |NTAL. JM| 00000270: 50 20 43 31 0D 0D 43 33 20 20 20 20 20 20 20 4C |P C1..C3 L| 00000280: 44 59 20 43 41 4E 54 41 4C 0D 20 20 20 20 20 20 |DY CANTAL. | 00000290: 20 20 20 43 50 59 20 23 30 0D 20 20 20 20 20 20 | CPY #0. | 000002A0: 20 20 20 42 45 51 20 43 31 0D 20 20 20 20 20 20 | BEQ C1. | 000002B0: 20 20 20 44 45 43 20 43 41 4E 54 41 4C 0D 20 20 | DEC CANTAL. | 000002C0: 20 20 20 20 20 20 20 4C 44 41 20 23 22 14 22 0D | LDA #".".| 000002D0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 | JSR $FF| 000002E0: 44 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |D2. JSR | 000002F0: 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 4A |$FFD2. J| 00000300: 53 52 20 43 38 0D 20 20 20 20 20 20 20 20 20 4A |SR C8. J| 00000310: 4D 50 20 43 31 0D 0D 43 34 20 20 20 20 20 20 20 |MP C1..C4 | 00000320: 4C 44 41 20 23 22 14 22 0D 20 20 20 20 20 20 20 |LDA #".". | 00000330: 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 | JSR $FFD2. | 00000340: 20 20 20 20 20 4C 44 41 20 53 45 4C 49 4E 0D 20 | LDA SELIN. | 00000350: 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 0D 20 | CMP #1. | 00000360: 20 20 20 20 20 20 20 20 42 45 51 20 43 35 0D 20 | BEQ C5. | 00000370: 20 20 20 20 20 20 20 20 43 4D 50 20 23 32 0D 20 | CMP #2. | 00000380: 20 20 20 20 20 20 20 20 42 45 51 20 43 37 0D 20 | BEQ C7. | 00000390: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 43 35 20 | RTS..C5 | 000003A0: 20 20 20 20 20 20 4C 44 58 20 43 41 4E 54 41 4C | LDX CANTAL| 000003B0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 36 |. JSR C6| 000003C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 |. LDA #"| 000003D0: 53 22 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |S". STA | 000003E0: 43 4E 41 4D 45 2C 58 0D 20 20 20 20 20 20 20 20 |CNAME,X. | 000003F0: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 4A 53 | INX. JS| 00000400: 52 20 43 36 0D 20 20 20 20 20 20 20 20 20 4C 44 |R C6. LD| 00000410: 41 20 23 22 52 22 0D 20 20 20 20 20 20 20 20 20 |A #"R". | 00000420: 53 54 41 20 43 4E 41 4D 45 2C 58 0D 20 20 20 20 |STA CNAME,X. | 00000430: 20 20 20 20 20 53 54 58 20 43 41 4E 54 41 4C 0D | STX CANTAL.| 00000440: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 43 37 | RTS..C7| 00000450: 20 20 20 20 20 20 20 4C 44 58 20 43 41 4E 54 41 | LDX CANTA| 00000460: 4C 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 |L. JSR C| 00000470: 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |6. LDA #| 00000480: 22 53 22 0D 20 20 20 20 20 20 20 20 20 53 54 41 |"S". STA| 00000490: 20 43 4E 41 4D 45 2C 58 0D 20 20 20 20 20 20 20 | CNAME,X. | 000004A0: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 4A | INX. J| 000004B0: 53 52 20 43 36 0D 20 20 20 20 20 20 20 20 20 4C |SR C6. L| 000004C0: 44 41 20 23 22 57 22 0D 20 20 20 20 20 20 20 20 |DA #"W". | 000004D0: 20 53 54 41 20 43 4E 41 4D 45 2C 58 0D 20 20 20 | STA CNAME,X. | 000004E0: 20 20 20 20 20 20 53 54 58 20 43 41 4E 54 41 4C | STX CANTAL| 000004F0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 43 |. RTS..C| 00000500: 36 20 20 20 20 20 20 20 4C 44 41 20 23 22 2C 22 |6 LDA #","| 00000510: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 4E |. STA CN| 00000520: 41 4D 45 2C 58 0D 20 20 20 20 20 20 20 20 20 49 |AME,X. I| 00000530: 4E 58 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |NX. RTS.| 00000540: 0D 43 38 20 20 20 20 20 20 20 4C 44 41 20 23 22 |.C8 LDA #"| 00000550: 12 22 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |.". JSR | 00000560: 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 4C |$FFD2. L| 00000570: 44 41 20 23 22 20 22 0D 20 20 20 20 20 20 20 20 |DA #" ". | 00000580: 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 20 | JSR $FFD2. | 00000590: 20 20 20 20 4C 44 41 20 23 22 92 22 0D 20 20 20 | LDA #".". | 000005A0: 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 32 0D | JSR $FFD2.| 000005B0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D | RTS.. |
... ; * INPUT LOAD/SAVE NAME *..
; SELIN = 0 PRG - 1 S,R - 2 S,W...CNA
ME .TEXT " "..CANT
AL .BYTE 0..SELIN .BYTE 0...CINPUT.
LDA #0. STA CANTAL.
JSR C8.C1 JSR $FFE4.
BEQ C1. CMP #".". BEQ C3
. CMP #$0D. BEQ C4.
CMP #" ". BCS C2. JM
P C1.C2 CMP #"Z"+1. BCS C1
. LDY CANTAL. CPY #16.
BEQ C1. PHA. LDA
#".". JSR $FFD2. PLA.
JSR $FFD2. LDY CANTAL.
STA CNAME,Y. JSR C8.
INC CANTAL. JMP C1..C3 L
DY CANTAL. CPY #0. BEQ C
1. DEC CANTAL. LDA #".".
JSR $FFD2. JSR $FFD2.
JSR C8. JMP C1..C4
LDA #".". JSR $FFD2. LDA
SELIN. CMP #1. BEQ C5.
CMP #2. BEQ C7.
RTS..C5 LDX CANTAL. JSR C6
. LDA #"S". STA CNAME,X.
INX. JSR C6. LD
A #"R". STA CNAME,X. STX
CANTAL. RTS..C7 LDX CANTA
L. JSR C6. LDA #"S".
STA CNAME,X. INX. J
SR C6. LDA #"W". STA CNA
ME,X. STX CANTAL. RTS..C
6 LDA #",". STA CNAME,X.
INX. RTS..C8 LDA #"
.". JSR $FFD2. LDA #" ".
JSR $FFD2. LDA #".".
JSR $FFD2. RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL