SHADOW V4.0-SRC

FILE INFORMATION

FILENAME(S): SHADOW V4.0-SRC

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 01:13:11

APPEARS ON: 2 disk(s)

FILE HASH

8517ccebba6db050b07f2cae1c6044f821f2cb21194e079d1bde4676d6007bf1

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10911 SEITE A	SHADOW V4.0-SRC	PRG	C64er	28	1	DOWNLOAD FILE
10911 SEITE A	SHADOW V4.0-SRC	PRG	DuncanTwain	28	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 42  41 20 24 43 30 30 32 00  |....d..BA $C002.|
00000010: FD 1F 6E 00 2E 45 51 20  47 45 54 42 59 54 20 3D  |..n..EQ GETBYT =|
00000020: 20 24 42 37 39 45 00 14  20 78 00 2E 45 51 20 43  | $B79E.. x..EQ C|
00000030: 48 4B 4B 4F 4D 20 3D 20  24 41 45 46 44 00 2B 20  |HKKOM = $AEFD.+ |
00000040: 82 00 2E 45 51 20 47 45  54 50 4F 53 20 3D 20 24  |...EQ GETPOS = $|
00000050: 42 30 38 42 00 31 20 8C  00 3B 00 43 20 96 00 3B  |B08B.1 ..;.C ..;|
00000060: 20 20 20 20 27 57 49 4E  44 4F 57 27 00 64 20 A0  |    'WINDOW'.d .|
00000070: 00 3B 20 57 52 49 54 54  45 4E 20 49 4E 20 31 39  |.; WRITTEN IN 19|
00000080: 38 39 20 42 59 20 4D 2E  47 45 53 53 4C 00 6A 20  |89 BY M.GESSL.j |
00000090: AA 00 3B 00 8C 20 B4 00  3B 53 59 4E 54 41 58 3A  |..;.. ..;SYNTAX:|
000000A0: 20 53 59 53 34 39 31 36  37 2C 41 24 28 49 29 2C  | SYS49167,A$(I),|
000000B0: 41 2C 58 2C 59 00 92 20  BE 00 3B 00 A1 20 C8 00  |A,X,Y.. ..;.. ..|
000000C0: 20 4A 53 52 43 48 4B 4B  4F 4D 00 B0 20 D2 00 20  | JSRCHKKOM.. .. |
000000D0: 4A 53 52 47 45 54 50 4F  53 00 BC 20 DC 00 20 53  |JSRGETPOS.. .. S|
000000E0: 54 41 24 42 36 00 C8 20  E6 00 20 53 54 59 24 42  |TA$B6.. .. STY$B|
000000F0: 37 00 D7 20 F0 00 20 4A  53 52 43 48 4B 4B 4F 4D  |7.. .. JSRCHKKOM|
00000100: 00 E6 20 FA 00 20 4A 53  52 47 45 54 42 59 54 00  |.. .. JSRGETBYT.|
00000110: F2 20 04 01 20 53 54 58  24 42 38 00 01 21 0E 01  |. .. STX$B8..!..|
00000120: 20 4A 53 52 43 48 4B 4B  4F 4D 00 10 21 18 01 20  | JSRCHKKOM..!.. |
00000130: 4A 53 52 47 45 54 42 59  54 00 1C 21 22 01 20 53  |JSRGETBYT..!". S|
00000140: 54 58 24 42 39 00 2B 21  2C 01 20 4A 53 52 43 48  |TX$B9.+!,. JSRCH|
00000150: 4B 4B 4F 4D 00 3A 21 36  01 20 4A 53 52 47 45 54  |KKOM.:!6. JSRGET|
00000160: 42 59 54 00 46 21 40 01  20 53 54 58 24 42 41 00  |BYT.F!@. STX$BA.|
00000170: 53 21 4A 01 20 4C 44 41  23 24 30 31 00 5F 21 54  |S!J. LDA#$01._!T|
00000180: 01 20 53 54 41 24 42 42  00 6B 21 5E 01 20 4C 44  |. STA$BB.k!^. LD|
00000190: 41 24 42 36 00 77 21 68  01 20 4C 44 59 24 42 37  |A$B6.w!h. LDY$B7|
000001A0: 00 83 21 72 01 20 53 54  41 24 42 43 00 8F 21 7C  |..!r. STA$BC..!||
000001B0: 01 20 53 54 59 24 42 44  00 9C 21 86 01 20 4C 44  |. STY$BD..!.. LD|
000001C0: 59 23 24 30 30 00 AA 21  90 01 20 53 54 59 24 30  |Y#$00..!.. STY$0|
000001D0: 33 33 43 00 BC 21 9A 01  4D 31 20 4C 44 41 28 24  |33C..!..M1 LDA($|
000001E0: 42 43 29 2C 59 00 C5 21  A4 01 20 43 4C 43 00 D3  |BC),Y..!.. CLC..|
000001F0: 21 AE 01 20 43 4D 50 24  30 33 33 43 00 DE 21 B8  |!.. CMP$033C..!.|
00000200: 01 20 42 43 43 4D 32 00  EC 21 C2 01 20 53 54 41  |. BCCM2..!.. STA|
00000210: 24 30 33 33 43 00 FA 21  CC 01 4D 32 20 4C 44 41  |$033C..!..M2 LDA|
00000220: 24 42 42 00 06 22 D6 01  20 43 4D 50 24 42 38 00  |$BB..".. CMP$B8.|
00000230: 12 22 E0 01 20 42 45 51  49 49 49 00 1E 22 EA 01  |.".. BEQIII.."..|
00000240: 20 49 4E 43 24 42 42 00  2A 22 F4 01 20 4C 44 41  | INC$BB.*".. LDA|
00000250: 24 42 43 00 33 22 FE 01  20 43 4C 43 00 40 22 08  |$BC.3".. CLC.@".|
00000260: 02 20 41 44 43 23 24 30  33 00 4C 22 0D 02 20 53  |. ADC#$03.L".. S|
00000270: 54 41 24 42 43 00 57 22  12 02 20 42 43 43 4D 33  |TA$BC.W".. BCCM3|
00000280: 00 63 22 1C 02 20 49 4E  43 24 42 44 00 70 22 26  |.c".. INC$BD.p"&|
00000290: 02 4D 33 20 4A 4D 50 4D  31 00 81 22 27 02 49 49  |.M3 JMPM1.."'.II|
000002A0: 49 20 4C 44 41 24 30 33  33 43 00 8E 22 28 02 20  |I LDA$033C.."(. |
000002B0: 43 4D 50 23 24 30 30 00  9A 22 29 02 20 42 4E 45  |CMP#$00.."). BNE|
000002C0: 4D 33 41 00 A6 22 2B 02  20 4A 4D 50 4D 31 31 00  |M3A.."+. JMPM11.|
000002D0: B5 22 30 02 4D 33 41 20  4C 44 41 24 44 36 00 C1  |."0.M3A LDA$D6..|
000002E0: 22 3A 02 20 4C 44 58 24  44 33 00 CF 22 44 02 20  |":. LDX$D3.."D. |
000002F0: 4C 44 59 24 30 32 38 36  00 DD 22 4E 02 20 53 54  |LDY$0286.."N. ST|
00000300: 41 24 30 33 33 44 00 EB  22 58 02 20 53 54 58 24  |A$033D.."X. STX$|
00000310: 30 33 33 45 00 F9 22 62  02 20 53 54 59 24 30 33  |033E.."b. STY$03|
00000320: 33 46 00 05 23 6C 02 20  4C 44 58 24 42 39 00 11  |3F..#l. LDX$B9..|
00000330: 23 76 02 20 4C 44 59 24  42 41 00 1D 23 80 02 20  |#v. LDY$BA..#.. |
00000340: 53 54 58 24 44 36 00 29  23 8A 02 20 53 54 59 24  |STX$D6.)#.. STY$|
00000350: 44 33 00 37 23 94 02 20  4A 53 52 24 45 35 36 43  |D3.7#.. JSR$E56C|
00000360: 00 45 23 9E 02 20 4C 44  41 24 43 30 30 31 00 53  |.E#.. LDA$C001.S|
00000370: 23 A8 02 20 53 54 41 24  30 32 38 36 00 60 23 B2  |#.. STA$0286.`#.|
00000380: 02 20 4C 44 41 23 24 41  43 00 6E 23 BC 02 20 4A  |. LDA#$AC.n#.. J|
00000390: 53 52 24 41 42 34 37 00  7B 23 C6 02 20 4C 44 58  |SR$AB47.{#.. LDX|
000003A0: 23 24 30 32 00 88 23 D0  02 20 4C 44 41 23 24 41  |#$02..#.. LDA#$A|
000003B0: 32 00 98 23 DA 02 4D 34  20 4A 53 52 24 41 42 34  |2..#..M4 JSR$AB4|
000003C0: 37 00 A6 23 E4 02 20 43  50 58 24 30 33 33 43 00  |7..#.. CPX$033C.|
000003D0: B1 23 EE 02 20 42 45 51  4D 35 00 BA 23 F8 02 20  |.#.. BEQM5..#.. |
000003E0: 49 4E 58 00 C5 23 02 03  20 4A 4D 50 4D 34 00 D4  |INX..#.. JMPM4..|
000003F0: 23 0C 03 4D 35 20 4C 44  41 23 24 42 42 00 E2 23  |#..M5 LDA#$BB..#|
00000400: 16 03 20 4A 53 52 24 41  42 34 37 00 EF 23 20 03  |.. JSR$AB47..# .|
00000410: 20 4C 44 58 23 24 30 31  00 FD 23 2A 03 20 53 54  | LDX#$01..#*. ST|
00000420: 58 24 30 33 34 30 00 0C  24 34 03 4D 36 20 4C 44  |X$0340..$4.M6 LD|
00000430: 41 23 24 31 32 00 1A 24  3E 03 20 4A 53 52 24 41  |A#$12..$>. JSR$A|
00000440: 42 34 37 00 28 24 48 03  20 4C 44 41 24 43 30 30  |B47.($H. LDA$C00|
00000450: 30 00 36 24 52 03 20 53  54 41 24 30 32 38 36 00  |0.6$R. STA$0286.|
00000460: 42 24 5C 03 20 49 4E 43  24 42 39 00 4E 24 66 03  |B$\. INC$B9.N$f.|
00000470: 20 4C 44 58 24 42 39 00  5A 24 70 03 20 4C 44 59  | LDX$B9.Z$p. LDY|
00000480: 24 42 41 00 66 24 7A 03  20 53 54 58 24 44 36 00  |$BA.f$z. STX$D6.|
00000490: 72 24 84 03 20 53 54 59  24 44 33 00 80 24 8E 03  |r$.. STY$D3..$..|
000004A0: 20 4A 53 52 24 45 35 36  43 00 8D 24 98 03 20 4C  | JSR$E56C..$.. L|
000004B0: 44 59 23 24 30 30 00 9D  24 A2 03 20 4C 44 41 28  |DY#$00..$.. LDA(|
000004C0: 24 42 36 29 2C 59 00 A9  24 AC 03 20 53 54 41 24  |$B6),Y..$.. STA$|
000004D0: 42 42 00 B2 24 B6 03 20  49 4E 59 00 C2 24 C0 03  |BB..$.. INY..$..|
000004E0: 20 4C 44 41 28 24 42 36  29 2C 59 00 CE 24 CA 03  | LDA($B6),Y..$..|
000004F0: 20 53 54 41 24 42 43 00  D7 24 D4 03 20 49 4E 59  | STA$BC..$.. INY|
00000500: 00 E7 24 DE 03 20 4C 44  41 28 24 42 36 29 2C 59  |..$.. LDA($B6),Y|
00000510: 00 F3 24 E8 03 20 53 54  41 24 42 44 00 00 25 F2  |..$.. STA$BD..%.|
00000520: 03 20 4C 44 59 23 24 30  30 00 0C 25 F3 03 20 4C  |. LDY#$00..%.. L|
00000530: 44 41 24 42 42 00 19 25  F5 03 20 43 4D 50 23 24  |DA$BB..%.. CMP#$|
00000540: 30 30 00 24 25 F7 03 20  42 45 51 4D 38 00 36 25  |00.$%.. BEQM8.6%|
00000550: FC 03 4D 37 20 4C 44 41  28 24 42 43 29 2C 59 00  |..M7 LDA($BC),Y.|
00000560: 44 25 06 04 20 4A 53 52  24 41 42 34 37 00 4D 25  |D%.. JSR$AB47.M%|
00000570: 10 04 20 49 4E 59 00 59  25 1A 04 20 43 50 59 24  |.. INY.Y%.. CPY$|
00000580: 42 42 00 64 25 24 04 20  42 4E 45 4D 37 00 74 25  |BB.d%$. BNEM7.t%|
00000590: 2E 04 4D 38 20 43 50 59  24 30 33 33 43 00 7F 25  |..M8 CPY$033C..%|
000005A0: 38 04 20 42 45 51 4D 39  00 8C 25 42 04 20 4C 44  |8. BEQM9..%B. LD|
000005B0: 41 23 24 32 30 00 9A 25  4C 04 20 4A 53 52 24 41  |A#$20..%L. JSR$A|
000005C0: 42 34 37 00 A3 25 56 04  20 49 4E 59 00 AE 25 60  |B47..%V. INY..%`|
000005D0: 04 20 4A 4D 50 4D 38 00  BE 25 6A 04 4D 39 20 4C  |. JMPM8..%j.M9 L|
000005E0: 44 41 24 43 30 30 31 00  CC 25 74 04 20 53 54 41  |DA$C001..%t. STA|
000005F0: 24 30 32 38 36 00 D9 25  7E 04 20 4C 44 41 23 24  |$0286..%~. LDA#$|
00000600: 39 32 00 E7 25 88 04 20  4A 53 52 24 41 42 34 37  |92..%.. JSR$AB47|
00000610: 00 F5 25 92 04 20 4C 44  41 24 30 33 34 30 00 01  |..%.. LDA$0340..|
00000620: 26 9C 04 20 43 4D 50 24  42 38 00 0D 26 A6 04 20  |&.. CMP$B8..&.. |
00000630: 42 45 51 4D 31 30 00 1A  26 B0 04 20 4C 44 41 23  |BEQM10..&.. LDA#|
00000640: 24 41 31 00 28 26 BA 04  20 4A 53 52 24 41 42 34  |$A1.(&.. JSR$AB4|
00000650: 37 00 36 26 C4 04 20 49  4E 43 24 30 33 34 30 00  |7.6&.. INC$0340.|
00000660: 42 26 CE 04 20 4C 44 41  24 42 36 00 4B 26 D8 04  |B&.. LDA$B6.K&..|
00000670: 20 43 4C 43 00 58 26 E2  04 20 41 44 43 23 24 30  | CLC.X&.. ADC#$0|
00000680: 33 00 64 26 EC 04 20 53  54 41 24 42 36 00 70 26  |3.d&.. STA$B6.p&|
00000690: F6 04 20 42 43 43 4D 39  41 00 7C 26 00 05 20 49  |.. BCCM9A.|&.. I|
000006A0: 4E 43 24 42 37 00 8A 26  0A 05 4D 39 41 20 4A 4D  |NC$B7..&..M9A JM|
000006B0: 50 4D 36 00 9A 26 14 05  4D 31 30 20 4C 44 41 23  |PM6..&..M10 LDA#|
000006C0: 24 42 45 00 A8 26 1E 05  20 4A 53 52 24 41 42 34  |$BE..&.. JSR$AB4|
000006D0: 37 00 B6 26 28 05 20 4C  44 41 24 30 33 33 46 00  |7..&(. LDA$033F.|
000006E0: C4 26 32 05 20 53 54 41  24 30 32 38 36 00 D0 26  |.&2. STA$0286..&|
000006F0: 3C 05 4D 31 31 20 52 54  53 00 D8 26 46 05 2E 45  |<.M11 RTS..&F..E|
00000700: 4E 00 00 00                                       |N...            |

X...D..BA $C002...N..EQ GETBYT = $B79E..
 X..EQ CHKKOM = $AEFD.+ ...EQ GETPOS = $
B08B.1 ..;.C ..;    'WINDOW'.D  .; WRITT
EN IN 1989 BY M.GESSL.J ..;.. ..;SYNTAX:
 SYS49167,A$(I),A,X,Y.. ..;.. H. JSRCHKK
OM.. R. JSRGETPOS.. .. STA$B6.H .. STY$B
7.W .. JSRCHKKOM.. .. JSRGETBYT.. .. STX
$B8..!.. JSRCHKKOM..!.. JSRGETBYT..!". S
TX$B9.+!,. JSRCHKKOM.:!6. JSRGETBYT.F!@.
 STX$BA.S!J. LDA#$01._!T. STA$BB.K!^. LD
A$B6.W!H. LDY$B7..!R. STA$BC..!|. STY$BD
..!.. LDY#$00..!.. STY$033C..!..M1 LDA($
BC),Y.E!.. CLC.S!.. CMP$033C..!.. BCCM2.
.!B. STA$033C..!L.M2 LDA$BB.."V. CMP$B8.
.".. BEQIII..".. INC$BB.*".. LDA$BC.3"..
 CLC.@".. ADC#$03.L".. STA$BC.W".. BCCM3
.C".. INC$BD.P"&.M3 JMPM1.."'.III LDA$03
3C.."(. CMP#$00.."). BNEM3A.."+. JMPM11.
."0.M3A LDA$D6.A":. LDX$D3.O"D. LDY$0286
.."N. STA$033D.."X. STX$033E.."B. STY$03
3F..#L. LDX$B9..#V. LDY$BA..#.. STX$D6.)
#.. STY$D3.7#.. JSR$E56C.E#.. LDA$C001.S
#.. STA$0286.`#.. LDA#$AC.N#.. JSR$AB47.
{#F. LDX#$02..#P. LDA#$A2..#Z.M4 JSR$AB4
7..#.. CPX$033C..#.. BEQM5..#.. INX.E#..
 JMPM4.T#..M5 LDA#$BB..#.. JSR$AB47..# .
 LDX#$01..#*. STX$0340..$4.M6 LDA#$12..$
>. JSR$AB47.($H. LDA$C000.6$R. STA$0286.
B$\. INC$B9.N$F. LDX$B9.Z$P. LDY$BA.F$Z.
 STX$D6.R$.. STY$D3..$.. JSR$E56C..$.. L
DY#$00..$.. LDA($B6),Y..$.. STA$BB..$.. 
INY.B$.. LDA($B6),Y.N$J. STA$BC.W$T. INY
..$.. LDA($B6),Y..$.. STA$BD..%.. LDY#$0
0..%.. LDA$BB..%.. CMP#$00.$%.. BEQM8.6%
..M7 LDA($BC),Y.D%.. JSR$AB47.M%.. INY.Y
%.. CPY$BB.D%$. BNEM7.T%..M8 CPY$033C.%
8. BEQM9..%B. LDA#$20..%L. JSR$AB47..%V.
 INY..%`. JMPM8..%J.M9 LDA$C001.L%T. STA
$0286.Y%~. LDA#$92..%.. JSR$AB47..%.. LD
A$0340..&.. CMP$B8..&.. BEQM10..&.. LDA#
$A1.(&.. JSR$AB47.6&D. INC$0340.B&N. LDA
$B6.K&X. CLC.X&.. ADC#$03.D&.. STA$B6.P&
.. BCCM9A.|&.. INC$B7..&..M9A JMPM6..&..
M10 LDA#$BE..&.. JSR$AB47..&(. LDA$033F.
D&2. STA$0286.P&<.M11 RTS.X&F..EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL