32
FILE INFORMATION
FILENAME(S): 32
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
c027f7b27c113b12445d64ccb1798f445328696bfd7eb247d37cdb3205b81c8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 32 | PRG | Curtcool, Nigel | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 20 20 20 3B 20 57 52 49 |.. ; WRI| 00000010: 54 45 20 48 45 58 0D 0D 0D 41 4E 54 41 4C 20 20 |TE HEX...ANTAL | 00000020: 20 20 3D 20 24 30 32 0D 48 57 0D 20 20 20 20 20 | = $02.HW. | 00000030: 20 20 20 20 4C 44 41 20 23 3C 50 4F 4F 53 0D 20 | LDA #<POOS. | 00000040: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 50 4F | LDY #>PO| 00000050: 4F 53 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |OS. JSR | 00000060: 24 41 42 31 45 0D 20 20 20 20 20 20 20 20 20 4A |$AB1E. J| 00000070: 4D 50 20 53 53 0D 0D 50 4F 4F 53 20 20 20 20 20 |MP SS..POOS | 00000080: 2E 54 45 58 54 20 22 93 4E 55 4D 42 45 52 20 3A |.TEXT ".NUMBER :| 00000090: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 000000A0: 20 24 30 30 0D 0D 53 53 20 20 20 20 20 20 20 4C | $00..SS L| 000000B0: 44 58 20 23 41 4E 54 41 4C 2D 31 0D 50 4F 4F 38 |DX #ANTAL-1.POO8| 000000C0: 20 20 20 20 20 4A 53 52 20 50 4F 4F 37 0D 20 20 | JSR POO7. | 000000D0: 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 46 0D | CMP #$FF.| 000000E0: 20 20 20 20 20 20 20 20 20 42 45 51 20 48 57 0D | BEQ HW.| 000000F0: 20 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 | ASL A. | 00000100: 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 | ASL A. | 00000110: 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 | ASL A. | 00000120: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00000130: 20 20 20 20 20 53 54 41 20 46 54 2C 58 0D 20 20 | STA FT,X. | 00000140: 20 20 20 20 20 20 20 4A 53 52 20 50 4F 4F 37 0D | JSR POO7.| 00000150: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 | CMP #$F| 00000160: 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 48 |F. BEQ H| 00000170: 57 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |W. CLC. | 00000180: 20 20 20 20 20 20 20 20 4C 44 41 20 46 54 2C 58 | LDA FT,X| 00000190: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 50 4F |. ADC PO| 000001A0: 4F 30 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 |O0+1. ST| 000001B0: 41 20 46 54 2C 58 0D 20 20 20 20 20 20 20 20 20 |A FT,X. | 000001C0: 44 45 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 |DEX. CPX| 000001D0: 20 23 32 35 35 0D 20 20 20 20 20 20 20 20 20 42 | #255. B| 000001E0: 4E 45 20 50 4F 4F 38 0D 50 4F 4F 31 31 20 20 20 |NE POO8.POO11 | 000001F0: 20 4A 53 52 20 24 46 46 45 34 0D 20 20 20 20 20 | JSR $FFE4. | 00000200: 20 20 20 20 42 45 51 20 50 4F 4F 31 31 0D 20 20 | BEQ POO11. | 00000210: 20 20 20 20 20 20 20 43 4D 50 20 23 22 14 22 0D | CMP #".".| 00000220: 20 20 20 20 20 20 20 20 20 42 45 51 20 48 57 0D | BEQ HW.| 00000230: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 50 4F | RTS..PO| 00000240: 4F 37 20 20 20 20 20 53 54 58 20 50 4F 4F 30 2B |O7 STX POO0+| 00000250: 32 0D 50 4F 4F 31 20 20 20 20 20 4C 44 59 20 23 |2.POO1 LDY #| 00000260: 24 30 30 0D 50 4F 4F 32 20 20 20 20 20 4A 53 52 |$00.POO2 JSR| 00000270: 20 24 46 46 45 34 0D 20 20 20 20 20 20 20 20 20 | $FFE4. | 00000280: 42 45 51 20 50 4F 4F 32 0D 20 20 20 20 20 20 20 |BEQ POO2. | 00000290: 20 20 53 54 41 20 50 4F 4F 30 0D 20 20 20 20 20 | STA POO0. | 000002A0: 20 20 20 20 43 4D 50 20 23 22 14 22 0D 20 20 20 | CMP #".". | 000002B0: 20 20 20 20 20 20 42 45 51 20 50 4F 4F 30 31 0D | BEQ POO01.| 000002C0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 41 | CMP #"A| 000002D0: 22 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 50 |". BCS P| 000002E0: 4F 4F 33 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |OO3. CMP| 000002F0: 20 23 22 30 22 0D 20 20 20 20 20 20 20 20 20 42 | #"0". B| 00000300: 43 53 20 50 4F 4F 34 0D 20 20 20 20 20 20 20 20 |CS POO4. | 00000310: 20 4A 4D 50 20 50 4F 4F 31 0D 50 4F 4F 33 20 20 | JMP POO1.POO3 | 00000320: 20 20 20 43 4D 50 20 23 22 47 22 0D 20 20 20 20 | CMP #"G". | 00000330: 20 20 20 20 20 42 43 53 20 50 4F 4F 31 0D 20 20 | BCS POO1. | 00000340: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00000350: 20 20 20 20 53 42 43 20 23 36 35 2D 31 30 0D 20 | SBC #65-10. | 00000360: 20 20 20 20 20 20 20 20 4A 4D 50 20 50 4F 4F 35 | JMP POO5| 00000370: 0D 50 4F 4F 34 20 20 20 20 20 43 4D 50 20 23 22 |.POO4 CMP #"| 00000380: 3A 22 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 |:". BCS | 00000390: 50 4F 4F 31 0D 20 20 20 20 20 20 20 20 20 53 45 |POO1. SE| 000003A0: 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 23 |C. SBC #| 000003B0: 24 33 30 0D 50 4F 4F 35 20 20 20 20 20 53 54 41 |$30.POO5 STA| 000003C0: 20 50 4F 4F 30 2B 31 0D 20 20 20 20 20 20 20 20 | POO0+1. | 000003D0: 20 4C 44 41 20 50 4F 4F 30 0D 20 20 20 20 20 20 | LDA POO0. | 000003E0: 20 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 | JSR $FFD2. | 000003F0: 20 20 20 20 20 20 4C 44 41 20 50 4F 4F 30 2B 31 | LDA POO0+1| 00000400: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 50 4F |. LDX PO| 00000410: 4F 30 2B 32 0D 20 20 20 20 20 20 20 20 20 52 54 |O0+2. RT| 00000420: 53 0D 0D 0D 50 4F 4F 30 31 20 20 20 20 4C 44 41 |S...POO01 LDA| 00000430: 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 52 | #$FF. R| 00000440: 54 53 0D 0D 50 4F 4F 30 20 20 20 20 20 2E 42 59 |TS..POO0 .BY| 00000450: 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 0D 0D |TE $00,$00,$00..| 00000460: 46 54 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 |FT .BYTE $| 00000470: 30 30 2C 24 30 30 0D 0D |00,$00.. |
.. ; WRITE HEX...ANTAL = $02.
HW. LDA #<POOS. LDY #>PO
OS. JSR $AB1E. JMP SS..P
OOS .TEXT ".NUMBER :". .BYTE
$00..SS LDX #ANTAL-1.POO8 JSR
POO7. CMP #$FF. BEQ HW.
ASL A. ASL A. A
SL A. ASL A. STA FT,X.
JSR POO7. CMP #$FF.
BEQ HW. CLC. LDA FT,X
. ADC POO0+1. STA FT,X.
DEX. CPX #255. B
NE POO8.POO11 JSR $FFE4. BEQ
POO11. CMP #".". BEQ HW.
RTS..POO7 STX POO0+2.POO1
LDY #$00.POO2 JSR $FFE4.
BEQ POO2. STA POO0. CMP
#".". BEQ POO01. CMP #"A
". BCS POO3. CMP #"0".
BCS POO4. JMP POO1.POO3
CMP #"G". BCS POO1. S
EC. SBC #65-10. JMP POO5
.POO4 CMP #":". BCS POO1.
SEC. SBC #$30.POO5 STA
POO0+1. LDA POO0. JSR $
FFD2. LDA POO0+1. LDX PO
O0+2. RTS...POO01 LDA #$FF.
RTS..POO0 .BYTE $00,$00,$00..
FT .BYTE $00,$00..
> CLICK IMAGE PREVIEW FOR FULL MODAL