41
FILE INFORMATION
FILENAME(S): 41
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
4a6ec2addfea2389ac3428f0d4f252f459315116400ba2b302e2a5639d615e1e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 41 | PRG | Curtcool, Nigel | 21 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 52 4F 4C 53 43 52 4F 4C 4C 20 3D 20 2A 0D 0D 3B |ROLSCROLL = *..;| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3B |---------------;| 00000020: 0D 53 43 54 45 58 54 32 20 20 3D 20 24 43 30 30 |.SCTEXT2 = $C00| 00000030: 30 0D 43 48 41 52 20 20 20 20 20 3D 20 24 35 33 |0.CHAR = $53| 00000040: 30 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |00.;------------| 00000050: 2D 2D 2D 3B 0D 0D 0D 53 50 52 53 43 52 4F 4C 4C |---;...SPRSCROLL| 00000060: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 | = *. LD| 00000070: 58 20 23 33 0D 48 31 20 20 20 20 20 20 20 52 4F |X #3.H1 RO| 00000080: 4C 20 24 32 35 46 44 2C 58 0D 20 20 20 20 20 20 |L $25FD,X. | 00000090: 20 20 20 52 4F 4C 20 24 32 35 43 38 2C 58 0D 20 | ROL $25C8,X. | 000000A0: 20 20 20 20 20 20 20 20 52 4F 4C 20 24 32 35 43 | ROL $25C| 000000B0: 37 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C |7,X. ROL| 000000C0: 20 24 32 35 43 36 2C 58 0D 20 20 20 20 20 20 20 | $25C6,X. | 000000D0: 20 20 52 4F 4C 20 24 32 35 38 38 2C 58 0D 20 20 | ROL $2588,X. | 000000E0: 20 20 20 20 20 20 20 52 4F 4C 20 24 32 35 38 37 | ROL $2587| 000000F0: 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 |,X. ROL | 00000100: 24 32 35 38 36 2C 58 0D 20 20 20 20 20 20 20 20 |$2586,X. | 00000110: 20 52 4F 4C 20 24 32 35 34 38 2C 58 0D 20 20 20 | ROL $2548,X. | 00000120: 20 20 20 20 20 20 52 4F 4C 20 24 32 35 34 37 2C | ROL $2547,| 00000130: 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 24 |X. ROL $| 00000140: 32 35 34 36 2C 58 0D 20 20 20 20 20 20 20 20 20 |2546,X. | 00000150: 52 4F 4C 20 24 32 35 30 38 2C 58 0D 20 20 20 20 |ROL $2508,X. | 00000160: 20 20 20 20 20 52 4F 4C 20 24 32 35 30 37 2C 58 | ROL $2507,X| 00000170: 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 24 32 |. ROL $2| 00000180: 35 30 36 2C 58 0D 20 20 20 20 20 20 20 20 20 52 |506,X. R| 00000190: 4F 4C 20 24 32 34 43 38 2C 58 0D 20 20 20 20 20 |OL $24C8,X. | 000001A0: 20 20 20 20 52 4F 4C 20 24 32 34 43 37 2C 58 0D | ROL $24C7,X.| 000001B0: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 24 32 34 | ROL $24| 000001C0: 43 36 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F |C6,X. RO| 000001D0: 4C 20 24 32 34 38 38 2C 58 0D 20 20 20 20 20 20 |L $2488,X. | 000001E0: 20 20 20 52 4F 4C 20 24 32 34 38 37 2C 58 0D 20 | ROL $2487,X. | 000001F0: 20 20 20 20 20 20 20 20 52 4F 4C 20 24 32 34 38 | ROL $248| 00000200: 36 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C |6,X. ROL| 00000210: 20 24 32 34 34 38 2C 58 0D 20 20 20 20 20 20 20 | $2448,X. | 00000220: 20 20 52 4F 4C 20 24 32 34 34 37 2C 58 0D 20 20 | ROL $2447,X. | 00000230: 20 20 20 20 20 20 20 52 4F 4C 20 24 32 34 34 36 | ROL $2446| 00000240: 2C 58 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 |,X. ROL | 00000250: 24 32 34 30 38 2C 58 0D 20 20 20 20 20 20 20 20 |$2408,X. | 00000260: 20 52 4F 4C 20 24 32 34 30 37 2C 58 0D 20 20 20 | ROL $2407,X. | 00000270: 20 20 20 20 20 20 52 4F 4C 20 24 32 34 30 36 2C | ROL $2406,| 00000280: 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D 20 |X. INX. | 00000290: 20 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 | INX. | 000002A0: 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 | INX. | 000002B0: 20 20 43 50 58 20 23 24 33 30 0D 20 20 20 20 20 | CPX #$30. | 000002C0: 20 20 20 20 42 4E 45 20 48 31 0D 20 20 20 20 20 | BNE H1. | 000002D0: 20 20 20 20 49 4E 43 20 24 31 32 0D 20 20 20 20 | INC $12. | 000002E0: 20 20 20 20 20 4C 44 41 20 24 31 32 0D 20 20 20 | LDA $12. | 000002F0: 20 20 20 20 20 20 43 4D 50 20 23 24 30 38 0D 20 | CMP #$08. | 00000300: 20 20 20 20 20 20 20 20 42 45 51 20 48 32 0D 20 | BEQ H2. | 00000310: 20 20 20 20 20 20 20 20 52 54 53 0D 48 32 20 20 | RTS.H2 | 00000320: 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 | LDA #0. | 00000330: 20 20 20 20 20 53 54 41 20 24 31 32 0D 4B 59 53 | STA $12.KYS| 00000340: 20 20 20 20 20 20 4C 44 41 20 53 43 54 45 58 54 | LDA SCTEXT| 00000350: 32 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 48 |2. BNE H| 00000360: 33 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |3. LDA #| 00000370: 3C 53 43 54 45 58 54 32 0D 20 20 20 20 20 20 20 |<SCTEXT2. | 00000380: 20 20 53 54 41 20 4B 59 53 2B 31 0D 20 20 20 20 | STA KYS+1. | 00000390: 20 20 20 20 20 4C 44 41 20 23 3E 53 43 54 45 58 | LDA #>SCTEX| 000003A0: 54 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |T2. STA | 000003B0: 4B 59 53 2B 32 0D 20 20 20 20 20 20 20 20 20 4C |KYS+2. L| 000003C0: 44 41 20 23 24 32 30 0D 48 33 20 20 20 20 20 20 |DA #$20.H3 | 000003D0: 20 4C 44 58 20 23 24 35 33 0D 20 20 20 20 20 20 | LDX #$53. | 000003E0: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 000003F0: 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 | ASL A. | 00000400: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 00000410: 42 43 43 20 48 34 0D 20 20 20 20 20 20 20 20 20 |BCC H4. | 00000420: 4C 44 58 20 23 24 35 34 0D 48 34 20 20 20 20 20 |LDX #$54.H4 | 00000430: 20 20 53 54 41 20 48 35 2B 31 0D 20 20 20 20 20 | STA H5+1. | 00000440: 20 20 20 20 53 54 58 20 48 35 2B 32 0D 20 20 20 | STX H5+2. | 00000450: 20 20 20 20 20 20 4C 44 58 20 23 30 0D 20 20 20 | LDX #0. | 00000460: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 48 35 20 | LDY #0.H5 | 00000470: 20 20 20 20 20 20 4C 44 41 20 43 48 41 52 2C 58 | LDA CHAR,X| 00000480: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 32 |. STA $2| 00000490: 36 30 30 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |600,Y. S| 000004A0: 54 41 20 24 32 36 30 33 2C 59 0D 20 20 20 20 20 |TA $2603,Y. | 000004B0: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 000004C0: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 49 4E | INY. IN| 000004D0: 59 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |Y. INY. | 000004E0: 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 | INY. | 000004F0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00000500: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 | INY. C| 00000510: 50 58 20 23 38 0D 20 20 20 20 20 20 20 20 20 42 |PX #8. B| 00000520: 4E 45 20 48 35 0D 20 20 20 20 20 20 20 20 20 49 |NE H5. I| 00000530: 4E 43 20 4B 59 53 2B 31 0D 20 20 20 20 20 20 20 |NC KYS+1. | 00000540: 20 20 4C 44 41 20 4B 59 53 2B 31 0D 20 20 20 20 | LDA KYS+1. | 00000550: 20 20 20 20 20 42 4E 45 20 53 54 4F 50 0D 20 20 | BNE STOP. | 00000560: 20 20 20 20 20 20 20 49 4E 43 20 4B 59 53 2B 31 | INC KYS+1| 00000570: 0D 53 54 4F 50 20 20 20 20 20 52 54 53 0D 0D 0D |.STOP RTS...| 00000580: 0D 0D |.. |
ROLSCROLL = *..;---------------;.SCTEXT2
= $C000.CHAR = $5300.;------------
---;...SPRSCROLL = *. LDX #3.H1
ROL $25FD,X. ROL $25C8,X.
ROL $25C7,X. ROL $25C6,X
. ROL $2588,X. ROL $2587
,X. ROL $2586,X. ROL $25
48,X. ROL $2547,X. ROL $
2546,X. ROL $2508,X. ROL
$2507,X. ROL $2506,X. R
OL $24C8,X. ROL $24C7,X.
ROL $24C6,X. ROL $2488,X.
ROL $2487,X. ROL $2486,X.
ROL $2448,X. ROL $2447,X.
ROL $2446,X. ROL $2408,X.
ROL $2407,X. ROL $2406,
X. INX. INX. INX
. CPX #$30. BNE H1.
INC $12. LDA $12. CM
P #$08. BEQ H2. RTS.H2
LDA #0. STA $12.KYS LD
A SCTEXT2. BNE H3. LDA #
<SCTEXT2. STA KYS+1. LDA
#>SCTEXT2. STA KYS+2. L
DA #$20.H3 LDX #$53. ASL A
. ASL A. ASL A.
BCC H4. LDX #$54.H4 STA H5
+1. STX H5+2. LDX #0.
LDY #0.H5 LDA CHAR,X.
STA $2600,Y. STA $2603,Y.
INX. INY. INY.
INY. INY. INY.
INY. CPX #8. BNE H5.
INC KYS+1. LDA KYS+1.
BNE STOP. INC KYS+1.STOP
RTS.....
> CLICK IMAGE PREVIEW FOR FULL MODAL