18
FILE INFORMATION
FILENAME(S): 18
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
2feab09a0af40163b377cb7b37b159dce3ab966b7ee7b1f0ab0af056849d2c51
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 18 | PRG | Curtcool, Nigel | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 |. *= $10| 00000010: 30 30 0D 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 |00... JS| 00000020: 52 20 4F 50 53 54 41 52 54 0D 44 44 20 20 20 20 |R OPSTART.DD | 00000030: 20 20 20 49 4E 43 20 59 31 0D 20 20 20 20 20 20 | INC Y1. | 00000040: 20 20 20 4A 53 52 20 42 49 54 53 0D 20 20 20 20 | JSR BITS. | 00000050: 20 20 20 20 20 4A 4D 50 20 44 44 0D 0D 0D 0D 0D | JMP DD.....| 00000060: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000070: 20 20 3B 20 43 4C 45 41 52 20 42 49 54 0D 0D 0D | ; CLEAR BIT...| 00000080: 42 49 54 43 20 20 20 20 20 3D 20 2A 0D 20 20 20 |BITC = *. | 00000090: 20 20 20 20 20 20 4C 44 59 20 59 31 0D 20 20 20 | LDY Y1. | 000000A0: 20 20 20 20 20 20 4C 44 41 20 59 56 41 52 31 2C | LDA YVAR1,| 000000B0: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |Y. STA $| 000000C0: 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |FE. LDA | 000000D0: 59 56 41 52 32 2C 59 0D 20 20 20 20 20 20 20 20 |YVAR2,Y. | 000000E0: 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 20 20 | STA $FF. | 000000F0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 4C | CLC. L| 00000100: 44 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 |DA $FF. | 00000110: 41 44 43 20 58 32 0D 20 20 20 20 20 20 20 20 20 |ADC X2. | 00000120: 53 54 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 |STA $FF. | 00000130: 20 4C 44 41 20 58 31 0D 20 20 20 20 20 20 20 20 | LDA X1. | 00000140: 20 41 4E 44 20 23 25 30 30 30 30 30 31 31 31 0D | AND #%00000111.| 00000150: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 00000160: 20 20 20 20 20 20 4C 44 41 20 42 59 54 56 31 2C | LDA BYTV1,| 00000170: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |Y. STA $| 00000180: 46 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |FD. LDA | 00000190: 58 31 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |X1. AND | 000001A0: 23 25 31 31 31 31 31 30 30 30 0D 20 20 20 20 20 |#%11111000. | 000001B0: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 | TAY. | 000001C0: 20 4C 44 41 20 28 24 46 45 29 2C 59 0D 20 20 20 | LDA ($FE),Y. | 000001D0: 20 20 20 20 20 20 41 4E 44 20 24 46 44 0D 20 20 | AND $FD. | 000001E0: 20 20 20 20 20 20 20 53 54 41 20 28 24 46 45 29 | STA ($FE)| 000001F0: 2C 59 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |,Y. RTS.| 00000200: 0D 0D 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 |.. ; S| 00000210: 45 54 20 42 49 54 0D 0D 0D 42 49 54 53 20 20 20 |ET BIT...BITS | 00000220: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4C | = *. L| 00000230: 44 59 20 59 31 0D 20 20 20 20 20 20 20 20 20 4C |DY Y1. L| 00000240: 44 41 20 59 56 41 52 31 2C 59 0D 20 20 20 20 20 |DA YVAR1,Y. | 00000250: 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 | STA $FE. | 00000260: 20 20 20 20 20 4C 44 41 20 59 56 41 52 32 2C 59 | LDA YVAR2,Y| 00000270: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000280: 46 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |F. CLC. | 00000290: 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D | LDA $FF.| 000002A0: 20 20 20 20 20 20 20 20 20 41 44 43 20 58 32 0D | ADC X2.| 000002B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 000002C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 58 31 |. LDA X1| 000002D0: 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 |. AND #%| 000002E0: 30 30 30 30 30 31 31 31 0D 20 20 20 20 20 20 20 |00000111. | 000002F0: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 00000300: 44 41 20 42 59 54 56 32 2C 59 0D 20 20 20 20 20 |DA BYTV2,Y. | 00000310: 20 20 20 20 53 54 41 20 24 46 44 0D 20 20 20 20 | STA $FD. | 00000320: 20 20 20 20 20 4C 44 41 20 58 31 0D 20 20 20 20 | LDA X1. | 00000330: 20 20 20 20 20 41 4E 44 20 23 25 31 31 31 31 31 | AND #%11111| 00000340: 30 30 30 0D 20 20 20 20 20 20 20 20 20 54 41 59 |000. TAY| 00000350: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 |. LDA ($| 00000360: 46 45 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4F |FE),Y. O| 00000370: 52 41 20 24 46 44 0D 20 20 20 20 20 20 20 20 20 |RA $FD. | 00000380: 53 54 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 |STA ($FE),Y. | 00000390: 20 20 20 20 20 52 54 53 0D 0D 42 59 54 56 31 20 | RTS..BYTV1 | 000003A0: 20 20 20 2E 42 59 54 45 20 25 30 31 31 31 31 31 | .BYTE %011111| 000003B0: 31 31 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |11. .BYT| 000003C0: 45 20 25 31 30 31 31 31 31 31 31 0D 20 20 20 20 |E %10111111. | 000003D0: 20 20 20 20 20 2E 42 59 54 45 20 25 31 31 30 31 | .BYTE %1101| 000003E0: 31 31 31 31 0D 20 20 20 20 20 20 20 20 20 2E 42 |1111. .B| 000003F0: 59 54 45 20 25 31 31 31 30 31 31 31 31 0D 20 20 |YTE %11101111. | 00000400: 20 20 20 20 20 20 20 2E 42 59 54 45 20 25 31 31 | .BYTE %11| 00000410: 31 31 30 31 31 31 0D 20 20 20 20 20 20 20 20 20 |110111. | 00000420: 2E 42 59 54 45 20 25 31 31 31 31 31 30 31 31 0D |.BYTE %11111011.| 00000430: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 25 | .BYTE %| 00000440: 31 31 31 31 31 31 30 31 0D 20 20 20 20 20 20 20 |11111101. | 00000450: 20 20 2E 42 59 54 45 20 25 31 31 31 31 31 31 31 | .BYTE %1111111| 00000460: 30 0D 0D 0D 42 59 54 56 32 20 20 20 20 2E 42 59 |0...BYTV2 .BY| 00000470: 54 45 20 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C |TE 128,64,32,16,| 00000480: 38 2C 34 2C 32 2C 31 0D 0D 0D 0D 58 31 20 20 20 |8,4,2,1....X1 | 00000490: 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 58 32 | .BYTE $00.X2| 000004A0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 | .BYTE $00| 000004B0: 0D 59 31 20 20 20 20 20 20 20 2E 42 59 54 45 20 |.Y1 .BYTE | 000004C0: 24 30 30 0D 0D 0D 0D 59 56 41 52 31 20 20 20 20 |$00....YVAR1 | 000004D0: 3D 20 24 35 30 30 30 0D 59 56 41 52 32 20 20 20 |= $5000.YVAR2 | 000004E0: 20 3D 20 24 35 31 30 30 0D 0D 0D 0D 20 20 20 20 | = $5100.... | 000004F0: 20 20 20 20 20 20 20 20 20 3B 20 53 45 54 20 53 | ; SET S| 00000500: 43 52 45 45 4E 20 4D 41 4B 45 20 59 2D 44 41 54 |CREEN MAKE Y-DAT| 00000510: 0D 0D 4F 50 53 54 41 52 54 0D 20 20 20 20 20 20 |..OPSTART. | 00000520: 20 20 20 4C 44 41 20 24 44 30 31 31 0D 20 20 20 | LDA $D011. | 00000530: 20 20 20 20 20 20 4F 52 41 20 23 24 32 30 0D 20 | ORA #$20. | 00000540: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000550: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |1. LDA $| 00000560: 44 30 31 38 0D 20 20 20 20 20 20 20 20 20 4F 52 |D018. OR| 00000570: 41 20 23 24 30 38 0D 20 20 20 20 20 20 20 20 20 |A #$08. | 00000580: 53 54 41 20 24 44 30 31 38 0D 0D 20 20 20 20 20 |STA $D018.. | 00000590: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 000005A0: 20 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 | STA $FE. | 000005B0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D | LDA #$20.| 000005C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 000005D0: 0D 0D 41 32 20 20 20 20 20 20 20 4C 44 59 20 23 |..A2 LDY #| 000005E0: 24 30 30 0D 20 20 20 20 20 20 20 20 20 54 59 41 |$00. TYA| 000005F0: 0D 41 31 20 20 20 20 20 20 20 53 54 41 20 28 24 |.A1 STA ($| 00000600: 46 45 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 |FE),Y. I| 00000610: 4E 59 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |NY. BNE | 00000620: 41 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |A1. INC | 00000630: 24 46 46 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$FF. LDA| 00000640: 20 24 46 46 0D 20 20 20 20 20 20 20 20 20 43 4D | $FF. CM| 00000650: 50 20 23 24 34 30 0D 20 20 20 20 20 20 20 20 20 |P #$40. | 00000660: 42 4E 45 20 41 32 0D 0D 0D 20 20 20 20 20 20 20 |BNE A2... | 00000670: 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 | LDA #$00. | 00000680: 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 | STA $FE. | 00000690: 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 20 20 | LDA #$20. | 000006A0: 20 20 20 20 20 20 20 53 54 41 20 24 46 46 0D 0D | STA $FF..| 000006B0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 000006C0: 30 0D 47 48 52 31 20 20 20 20 20 4C 44 59 20 23 |0.GHR1 LDY #| 000006D0: 24 30 30 0D 47 48 52 20 20 20 20 20 20 4C 44 41 |$00.GHR LDA| 000006E0: 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 53 54 | $FE. ST| 000006F0: 41 20 59 56 41 52 31 2C 58 0D 20 20 20 20 20 20 |A YVAR1,X. | 00000700: 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 | LDA $FF. | 00000710: 20 20 20 20 53 54 41 20 59 56 41 52 32 2C 58 0D | STA YVAR2,X.| 00000720: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 00000730: 20 20 20 20 20 20 4C 44 41 20 24 46 45 0D 20 20 | LDA $FE. | 00000740: 20 20 20 20 20 20 20 41 44 43 20 23 31 0D 20 20 | ADC #1. | 00000750: 20 20 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 | STA $FE. | 00000760: 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 46 0D | LDA $FF.| 00000770: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 30 0D | ADC #0.| 00000780: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 | STA $FF| 00000790: 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 |. INX. | 000007A0: 20 20 20 20 20 20 20 43 50 58 20 23 32 30 30 0D | CPX #200.| 000007B0: 20 20 20 20 20 20 20 20 20 42 45 51 20 55 44 46 | BEQ UDF| 000007C0: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 000007D0: 20 20 20 20 20 20 20 43 50 59 20 23 38 0D 20 20 | CPY #8. | 000007E0: 20 20 20 20 20 20 20 42 4E 45 20 47 48 52 0D 20 | BNE GHR. | 000007F0: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00000800: 20 20 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 | LDA $FE. | 00000810: 20 20 20 20 20 20 41 44 43 20 23 28 34 30 2A 38 | ADC #(40*8| 00000820: 29 2D 38 2D 32 35 35 0D 20 20 20 20 20 20 20 20 |)-8-255. | 00000830: 20 53 54 41 20 24 46 45 0D 20 20 20 20 20 20 20 | STA $FE. | 00000840: 20 20 4C 44 41 20 24 46 46 0D 20 20 20 20 20 20 | LDA $FF. | 00000850: 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 20 20 | ADC #0. | 00000860: 20 20 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 | STA $FF. | 00000870: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000880: 20 4C 44 41 20 24 46 45 0D 20 20 20 20 20 20 20 | LDA $FE. | 00000890: 20 20 41 44 43 20 23 24 46 46 0D 20 20 20 20 20 | ADC #$FF. | 000008A0: 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 20 20 | STA $FE. | 000008B0: 20 20 20 20 20 4C 44 41 20 24 46 46 0D 20 20 20 | LDA $FF. | 000008C0: 20 20 20 20 20 20 41 44 43 20 23 24 30 30 0D 20 | ADC #$00. | 000008D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 0D | STA $FF.| 000008E0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 48 52 | JMP GHR| 000008F0: 31 0D 55 44 46 20 20 20 20 20 20 52 54 53 0D 0D |1.UDF RTS..|
. *= $1000... JSR OPSTAR
T.DD INC Y1. JSR BITS.
JMP DD...... ; CLEA
R BIT...BITC = *. LDY Y1.
LDA YVAR1,Y. STA $FE.
LDA YVAR2,Y. STA $FF.
CLC. LDA $FF. ADC X2.
STA $FF. LDA X1.
AND #%00000111. TAY. LD
A BYTV1,Y. STA $FD. LDA
X1. AND #%11111000. TAY.
LDA ($FE),Y. AND $FD.
STA ($FE),Y. RTS...
; SET BIT...BITS = *. L
DY Y1. LDA YVAR1,Y. STA
$FE. LDA YVAR2,Y. STA $F
F. CLC. LDA $FF.
ADC X2. STA $FF. LDA X1
. AND #%00000111. TAY.
LDA BYTV2,Y. STA $FD.
LDA X1. AND #%11111000.
TAY. LDA ($FE),Y. O
RA $FD. STA ($FE),Y. RTS
..BYTV1 .BYTE %01111111. .BYT
E %10111111. .BYTE %11011111.
.BYTE %11101111. .BYTE %11
110111. .BYTE %11111011.
.BYTE %11111101. .BYTE %1111111
0...BYTV2 .BYTE 128,64,32,16,8,4,2,1.
...X1 .BYTE $00.X2 .BYTE $00
.Y1 .BYTE $00....YVAR1 = $5000.
YVAR2 = $5100.... ; SET S
CREEN MAKE Y-DAT..OPSTART. LDA $
D011. ORA #$20. STA $D01
1. LDA $D018. ORA #$08.
STA $D018.. LDA #$00.
STA $FE. LDA #$20.
STA $FF..A2 LDY #$00. TYA
.A1 STA ($FE),Y. INY.
BNE A1. INC $FF. LDA
$FF. CMP #$40. BNE A2..
. LDA #$00. STA $FE.
LDA #$20. STA $FF..
LDX #$00.GHR1 LDY #$00.GHR LDA
$FE. STA YVAR1,X. LDA $
FF. STA YVAR2,X. CLC.
LDA $FE. ADC #1. S
TA $FE. LDA $FF. ADC #0.
STA $FF. INX. C
PX #200. BEQ UDF. INY.
CPY #8. BNE GHR.
CLC. LDA $FE. ADC #(40*8
)-8-255. STA $FE. LDA $F
F. ADC #0. STA $FF.
CLC. LDA $FE. ADC #$
FF. STA $FE. LDA $FF.
ADC #$00. STA $FF.
JMP GHR1.UDF RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL