SRC.HARDCOPYMOD

FILE INFORMATION

FILENAME(S): SRC.HARDCOPYMOD

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-10-20 14:30:46

APPEARS ON: 1 disk(s)

FILE HASH

26aca12843fe4c0b4e591ab2bac8d7affa7595953490fd468506001d07db2ccd

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DISK	SRC.HARDCOPYMOD	PRG	Treasure Chest - Klaus Der Suhler	33	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F DE 1F E8 03 3B 00  E4 1F F2 03 3B 00 F9 1F  |......;.....;...|
00000010: FC 03 3B 4B 45 52 4E 41  4C 2D 52 4F 55 54 49 4E  |..;KERNAL-ROUTIN|
00000020: 45 4E 00 FF 1F 06 04 3B  00 13 20 10 04 20 2E 47  |EN.....;.. .. .G|
00000030: 4C 41 43 50 54 52 3D 24  46 46 41 35 00 27 20 1A  |LACPTR=$FFA5.' .|
00000040: 04 20 2E 47 4C 43 48 4B  49 4E 3D 24 46 46 43 36  |. .GLCHKIN=$FFC6|
00000050: 00 3C 20 24 04 20 2E 47  4C 43 48 4B 4F 55 54 3D  |.< $. .GLCHKOUT=|
00000060: 24 46 46 43 39 00 50 20  2E 04 20 2E 47 4C 43 48  |$FFC9.P .. .GLCH|
00000070: 52 49 4E 3D 24 46 46 43  46 00 65 20 38 04 20 2E  |RIN=$FFCF.e 8. .|
00000080: 47 4C 43 48 52 4F 55 54  3D 24 46 46 44 32 00 79  |GLCHROUT=$FFD2.y|
00000090: 20 42 04 20 2E 47 4C 43  49 4F 55 54 3D 24 46 46  | B. .GLCIOUT=$FF|
000000A0: 41 38 00 8C 20 4C 04 20  2E 47 4C 43 49 4E 54 3D  |A8.. L. .GLCINT=|
000000B0: 24 46 46 38 31 00 A0 20  56 04 20 2E 47 4C 43 4C  |$FF81.. V. .GLCL|
000000C0: 41 4C 4C 3D 24 46 46 45  37 00 B4 20 60 04 20 2E  |ALL=$FFE7.. `. .|
000000D0: 47 4C 43 4C 4F 53 45 3D  24 46 46 43 33 00 C9 20  |GLCLOSE=$FFC3.. |
000000E0: 6A 04 20 2E 47 4C 43 4C  52 43 48 4E 3D 24 46 46  |j. .GLCLRCHN=$FF|
000000F0: 43 43 00 DD 20 74 04 20  2E 47 4C 47 45 54 49 4E  |CC.. t. .GLGETIN|
00000100: 3D 24 46 46 45 34 00 F2  20 7E 04 20 2E 47 4C 49  |=$FFE4.. ~. .GLI|
00000110: 4F 42 41 53 45 3D 24 46  46 46 33 00 07 21 88 04  |OBASE=$FFF3..!..|
00000120: 20 2E 47 4C 49 4F 49 4E  49 54 3D 24 46 46 38 34  | .GLIOINIT=$FF84|
00000130: 00 1C 21 92 04 20 2E 47  4C 4C 49 53 54 45 4E 3D  |..!.. .GLLISTEN=|
00000140: 24 46 46 42 31 00 2F 21  9C 04 20 2E 47 4C 4C 4F  |$FFB1./!.. .GLLO|
00000150: 41 44 3D 24 46 46 44 35  00 44 21 A6 04 20 2E 47  |AD=$FFD5.D!.. .G|
00000160: 4C 4D 45 4D 42 4F 54 3D  24 46 46 39 43 00 59 21  |LMEMBOT=$FF9C.Y!|
00000170: B0 04 20 2E 47 4C 4D 45  4D 54 4F 50 3D 24 46 46  |.. .GLMEMTOP=$FF|
00000180: 39 39 00 6C 21 BA 04 20  2E 47 4C 4F 50 45 4E 3D  |99.l!.. .GLOPEN=|
00000190: 24 46 46 43 30 00 7F 21  C4 04 20 2E 47 4C 50 4C  |$FFC0..!.. .GLPL|
000001A0: 4F 54 3D 24 46 46 46 30  00 94 21 CE 04 20 2E 47  |OT=$FFF0..!.. .G|
000001B0: 4C 52 41 4D 54 41 53 3D  24 46 46 38 37 00 A8 21  |LRAMTAS=$FF87..!|
000001C0: D8 04 20 2E 47 4C 52 44  54 49 4D 3D 24 46 46 44  |.. .GLRDTIM=$FFD|
000001D0: 45 00 BD 21 E2 04 20 2E  47 4C 52 45 41 44 53 54  |E..!.. .GLREADST|
000001E0: 3D 24 46 46 42 37 00 D2  21 EC 04 20 2E 47 4C 52  |=$FFB7..!.. .GLR|
000001F0: 45 53 54 4F 52 3D 24 46  46 38 41 00 E5 21 F6 04  |ESTOR=$FF8A..!..|
00000200: 20 2E 47 4C 53 41 56 45  3D 24 46 46 44 38 00 FA  | .GLSAVE=$FFD8..|
00000210: 21 00 05 20 2E 47 4C 53  43 4E 4B 45 59 3D 24 46  |!.. .GLSCNKEY=$F|
00000220: 46 39 46 00 0F 22 0A 05  20 2E 47 4C 53 43 52 45  |F9F..".. .GLSCRE|
00000230: 45 4E 3D 24 46 46 45 44  00 24 22 14 05 20 2E 47  |EN=$FFED.$".. .G|
00000240: 4C 53 45 43 4F 4E 44 3D  24 46 46 39 33 00 39 22  |LSECOND=$FF93.9"|
00000250: 1E 05 20 2E 47 4C 53 45  54 4C 46 53 3D 24 46 46  |.. .GLSETLFS=$FF|
00000260: 42 41 00 4E 22 28 05 20  2E 47 4C 53 45 54 4D 53  |BA.N"(. .GLSETMS|
00000270: 47 3D 24 46 46 39 30 00  63 22 32 05 20 2E 47 4C  |G=$FF90.c"2. .GL|
00000280: 53 45 54 4E 41 4D 3D 24  46 46 42 44 00 78 22 3C  |SETNAM=$FFBD.x"<|
00000290: 05 20 2E 47 4C 53 45 54  54 49 4D 3D 24 46 46 44  |. .GLSETTIM=$FFD|
000002A0: 42 00 8D 22 46 05 20 2E  47 4C 53 45 54 54 4D 4F  |B.."F. .GLSETTMO|
000002B0: 3D 24 46 46 41 32 00 A0  22 50 05 20 2E 47 4C 53  |=$FFA2.."P. .GLS|
000002C0: 54 4F 50 3D 24 46 46 45  31 00 B3 22 5A 05 20 2E  |TOP=$FFE1.."Z. .|
000002D0: 47 4C 54 41 4C 4B 3D 24  46 46 42 34 00 C6 22 64  |GLTALK=$FFB4.."d|
000002E0: 05 20 2E 47 4C 54 4B 53  41 3D 24 46 46 39 36 00  |. .GLTKSA=$FF96.|
000002F0: DA 22 6E 05 20 2E 47 4C  55 44 54 49 4D 3D 24 46  |."n. .GLUDTIM=$F|
00000300: 46 45 41 00 EE 22 78 05  20 2E 47 4C 55 4E 4C 53  |FEA.."x. .GLUNLS|
00000310: 4E 3D 24 46 46 41 45 00  02 23 82 05 20 2E 47 4C  |N=$FFAE..#.. .GL|
00000320: 55 4E 54 4C 4B 3D 24 46  46 41 42 00 17 23 8C 05  |UNTLK=$FFAB..#..|
00000330: 20 2E 47 4C 56 45 43 54  4F 52 3D 24 46 46 38 44  | .GLVECTOR=$FF8D|
00000340: 00 1D 23 96 05 3B 00 42  23 A0 05 3B 2D 2D 2D 2D  |..#..;.B#..;----|
00000350: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 00 48 23 AA 05  |-----------.H#..|
00000370: 3B 00 56 23 B4 05 20 2E  42 41 24 43 31 30 30 00  |;.V#.. .BA$C100.|
00000380: 72 23 BE 05 20 2E 4F 42  22 40 30 3A 48 52 44 43  |r#.. .OB"@0:HRDC|
00000390: 4F 50 59 2E 43 31 2C 50  2C 57 22 00 78 23 C8 05  |OPY.C1,P,W".x#..|
000003A0: 3B 00 9D 23 D2 05 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |;..#..;---------|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 00 A3  23 DC 05 3B 00 B1 23 E6  |------..#..;..#.|
000003D0: 05 2E 4D 41 20 52 41 4D  4F 4E 00 BA 23 F0 05 20  |..MA RAMON..#.. |
000003E0: 53 45 49 00 C5 23 FA 05  20 4C 44 41 24 31 00 CE  |SEI..#.. LDA$1..|
000003F0: 23 04 06 20 50 48 41 00  DB 23 0E 06 20 4C 44 41  |#.. PHA..#.. LDA|
00000400: 23 24 33 34 00 E6 23 18  06 20 53 54 41 24 31 00  |#$34..#.. STA$1.|
00000410: EE 23 22 06 2E 52 54 00  F4 23 2C 06 3B 00 03 24  |.#"..RT..#,.;..$|
00000420: 36 06 2E 4D 41 20 52 41  4D 4F 46 46 00 0C 24 40  |6..MA RAMOFF..$@|
00000430: 06 20 50 4C 41 00 17 24  4A 06 20 53 54 41 24 31  |. PLA..$J. STA$1|
00000440: 00 20 24 54 06 20 43 4C  49 00 28 24 5E 06 2E 52  |. $T. CLI.($^..R|
00000450: 54 00 2E 24 68 06 3B 00  53 24 72 06 3B 2D 2D 2D  |T..$h.;.S$r.;---|
00000460: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000470: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 00 59 24 7C  |------------.Y$||
00000480: 06 3B 00 6C 24 86 06 53  54 41 52 54 20 4A 4D 50  |.;.l$..START JMP|
00000490: 48 43 4F 50 59 00 77 24  90 06 4C 46 20 4E 4F 50  |HCOPY.w$..LF NOP|
000004A0: 00 9C 24 9A 06 3B 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..$..;----------|
000004B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000004C0: 2D 2D 2D 2D 2D 00 B4 24  A4 06 48 43 4F 50 59 20  |-----..$..HCOPY |
000004D0: 4C 44 58 23 34 3B 44 52  55 43 4B 45 52 00 C9 24  |LDX#4;DRUCKER..$|
000004E0: AE 06 20 4A 53 52 43 48  4B 4F 55 54 3B 24 46 46  |.. JSRCHKOUT;$FF|
000004F0: 43 39 00 D4 24 B8 06 20  4C 44 41 23 30 00 E2 24  |C9..$.. LDA#0..$|
00000500: C2 06 20 53 54 41 4C 49  4E 49 45 00 F3 24 CC 06  |.. STALINIE..$..|
00000510: 20 53 54 41 50 4C 49 4E  4C 31 2B 31 00 FE 24 D6  | STAPLINL1+1..$.|
00000520: 06 20 4C 44 41 23 34 00  0F 25 E0 06 20 53 54 41  |. LDA#4..%.. STA|
00000530: 50 4C 49 4E 4C 31 2B 32  00 15 25 EA 06 3B 00 2E  |PLINL1+2..%..;..|
00000540: 25 F4 06 50 4C 49 4E 49  45 20 4C 44 41 23 31 33  |%..PLINIE LDA#13|
00000550: 3B 52 45 54 55 52 4E 00  42 25 FE 06 20 4A 53 52  |;RETURN.B%.. JSR|
00000560: 43 48 52 4F 55 54 3B 46  46 44 32 00 51 25 08 07  |CHROUT;FFD2.Q%..|
00000570: 20 4C 44 41 4C 46 3B 4C  46 3F 00 60 25 12 07 20  | LDALF;LF?.`%.. |
00000580: 42 4E 45 50 4C 49 4E 4C  41 00 6F 25 1C 07 20 4C  |BNEPLINLA.o%.. L|
00000590: 44 41 23 31 30 3B 4C 46  00 83 25 26 07 20 4A 53  |DA#10;LF..%&. JS|
000005A0: 52 43 48 52 4F 55 54 3B  46 46 44 32 00 9C 25 30  |RCHROUT;FFD2..%0|
000005B0: 07 50 4C 49 4E 4C 41 20  4C 44 59 23 38 3B 4C 45  |.PLINLA LDY#8;LE|
000005C0: 46 54 53 50 43 00 AF 25  3A 07 50 4C 49 4E 4C 42  |FTSPC..%:.PLINLB|
000005D0: 20 4C 44 41 23 22 20 22  00 C3 25 44 07 20 4A 53  | LDA#" "..%D. JS|
000005E0: 52 43 48 52 4F 55 54 3B  46 46 44 32 00 CC 25 4E  |RCHROUT;FFD2..%N|
000005F0: 07 20 44 45 59 00 DB 25  58 07 20 42 4E 45 50 4C  |. DEY..%X. BNEPL|
00000600: 49 4E 4C 42 00 E1 25 62  07 3B 00 F3 25 6C 07 20  |INLB..%b.;..%l. |
00000610: 4C 44 58 23 30 3B 53 50  41 4C 54 45 00 02 26 76  |LDX#0;SPALTE..&v|
00000620: 07 50 4C 49 4E 4C 43 20  54 58 41 00 0B 26 80 07  |.PLINLC TXA..&..|
00000630: 20 54 41 59 00 21 26 8A  07 50 4C 49 4E 4C 31 20  | TAY.!&..PLINL1 |
00000640: 4C 44 41 24 30 34 30 30  2C 59 00 2A 26 94 07 20  |LDA$0400,Y.*&.. |
00000650: 54 41 59 00 33 26 9E 07  20 53 45 49 00 45 26 A8  |TAY.3&.. SEI.E&.|
00000660: 07 20 4C 44 41 24 31 3B  53 50 4B 4F 4E 46 00 53  |. LDA$1;SPKONF.S|
00000670: 26 B2 07 20 50 48 41 3B  50 55 53 48 00 68 26 BC  |&.. PHA;PUSH.h&.|
00000680: 07 20 4C 44 41 23 24 33  34 3B 52 41 4D 4F 4E 4C  |. LDA#$34;RAMONL|
00000690: 59 00 77 26 C6 07 20 53  54 41 24 31 3B 4E 4F 57  |Y.w&.. STA$1;NOW|
000006A0: 00 8F 26 D0 07 20 4C 44  41 24 42 46 30 30 2C 59  |..&.. LDA$BF00,Y|
000006B0: 3B 54 41 42 45 4C 4C 45  00 9F 26 DA 07 20 54 41  |;TABELLE..&.. TA|
000006C0: 59 3B 45 58 43 48 4E 47  00 AD 26 E4 07 20 50 4C  |Y;EXCHNG..&.. PL|
000006D0: 41 3B 50 55 4C 4C 00 C0  26 EE 07 20 53 54 41 24  |A;PULL..&.. STA$|
000006E0: 31 3B 4F 4C 44 4B 4F 4E  46 00 C9 26 F8 07 20 43  |1;OLDKONF..&.. C|
000006F0: 4C 49 00 D9 26 02 08 20  54 59 41 3B 45 58 43 48  |LI..&.. TYA;EXCH|
00000700: 4E 47 00 ED 26 0C 08 20  4A 53 52 43 48 52 4F 55  |NG..&.. JSRCHROU|
00000710: 54 3B 46 46 44 32 00 F6  26 16 08 20 49 4E 58 00  |T;FFD2..&.. INX.|
00000720: 09 27 20 08 20 43 50 58  23 34 30 3B 5A 45 49 4C  |.' . CPX#40;ZEIL|
00000730: 45 3F 00 18 27 2A 08 20  42 4E 45 50 4C 49 4E 4C  |E?..'*. BNEPLINL|
00000740: 43 00 1E 27 34 08 3B 00  33 27 3E 08 20 4C 44 41  |C..'4.;.3'>. LDA|
00000750: 50 4C 49 4E 4C 31 2B 31  3B 4C 4F 57 00 3C 27 48  |PLINL1+1;LOW.<'H|
00000760: 08 20 43 4C 43 00 4F 27  52 08 20 41 44 43 23 34  |. CLC.O'R. ADC#4|
00000770: 30 3B 31 5A 45 49 4C 45  00 64 27 5C 08 20 53 54  |0;1ZEILE.d'\. ST|
00000780: 41 50 4C 49 4E 4C 31 2B  31 3B 4C 4F 57 00 78 27  |APLINL1+1;LOW.x'|
00000790: 66 08 20 42 43 43 50 4C  49 4E 4C 44 3B 53 4B 49  |f. BCCPLINLD;SKI|
000007A0: 50 00 8E 27 70 08 20 49  4E 43 50 4C 49 4E 4C 31  |P..'p. INCPLINL1|
000007B0: 2B 32 3B 48 49 47 48 00  A2 27 7A 08 50 4C 49 4E  |+2;HIGH..'z.PLIN|
000007C0: 4C 44 20 49 4E 43 4C 49  4E 49 45 00 B0 27 84 08  |LD INCLINIE..'..|
000007D0: 20 4C 44 41 4C 49 4E 49  45 00 C4 27 8E 08 20 43  | LDALINIE..'.. C|
000007E0: 4D 50 23 32 35 3B 53 52  43 4E 45 4E 44 00 D8 27  |MP#25;SRCNEND..'|
000007F0: 98 08 20 42 45 51 50 4C  49 4E 4C 45 3B 53 4B 49  |.. BEQPLINLE;SKI|
00000800: 50 00 EF 27 A2 08 20 4A  4D 50 50 4C 49 4E 49 45  |P..'.. JMPPLINIE|
00000810: 3B 4E 58 54 4C 49 4E 45  00 09 28 AC 08 50 4C 49  |;NXTLINE..(..PLI|
00000820: 4E 4C 45 20 4A 53 52 43  4C 52 43 48 4E 3B 46 46  |NLE JSRCLRCHN;FF|
00000830: 43 43 00 12 28 B6 08 20  52 54 53 00 18 28 C0 08  |CC..(.. RTS..(..|
00000840: 3B 00 1E 28 CA 08 3B 00  2C 28 D4 08 4C 49 4E 49  |;..(..;.,(..LINI|
00000850: 45 20 4E 4F 50 00 32 28  DE 08 3B 00 3B 28 E8 08  |E NOP.2(..;.;(..|
00000860: 20 2E 45 4E 00 00 00                              | .EN...         |

X.....;.....;.....;KERNAL-ROUTINEN.....;
.. .. .GLACPTR=$FFA5.' .. .GLCHKIN=$FFC6
.< $. .GLCHKOUT=$FFC9.P .. .GLCHRIN=$FFC
F.E 8. .GLCHROUT=$FFD2.Y B. .GLCIOUT=$FF
A8.. L. .GLCINT=$FF81.  V. .GLCLALL=$FFE
7.. `. .GLCLOSE=$FFC3.I J. .GLCLRCHN=$FF
CC.. T. .GLGETIN=$FFE4.. ~. .GLIOBASE=$F
FF3..!.. .GLIOINIT=$FF84..!.. .GLLISTEN=
$FFB1./!.. .GLLOAD=$FFD5.D!.. .GLMEMBOT=
$FF9C.Y!.. .GLMEMTOP=$FF99.L!.. .GLOPEN=
$FFC0.!D. .GLPLOT=$FFF0..!N. .GLRAMTAS=
$FF87..!X. .GLRDTIM=$FFDE..!.. .GLREADST
=$FFB7.R!.. .GLRESTOR=$FF8A..!.. .GLSAVE
=$FFD8..!.. .GLSCNKEY=$FF9F..".. .GLSCRE
EN=$FFED.$".. .GLSECOND=$FF93.9".. .GLSE
TLFS=$FFBA.N"(. .GLSETMSG=$FF90.C"2. .GL
SETNAM=$FFBD.X"<. .GLSETTIM=$FFDB.."F. .
GLSETTMO=$FFA2. "P. .GLSTOP=$FFE1.."Z. .
GLTALK=$FFB4.F"D. .GLTKSA=$FF96.Z"N. .GL
UDTIM=$FFEA.."X. .GLUNLSN=$FFAE..#.. .GL
UNTLK=$FFAB..#.. .GLVECTOR=$FF8D..#..;.B
# .;-------------------------------.H#..
;.V#.. .BA$C100.R#.. .OB"@0:HRDCOPY.C1,P
,W".X#H.;..#R.;-------------------------
------..#..;..#...MA RAMON..#.. SEI.E#..
 LDA$1.N#.. PHA..#.. LDA#$34..#.. STA$1.
.#"..RT..#,.;..$6..MA RAMOFF..$@. PLA..$
J. STA$1. $T. CLI.($^..RT..$H.;.S$R.;---
----------------------------.Y$|.;.L$..S
TART JMPHCOPY.W$..LF NOP..$..;----------
---------------------..$..HCOPY LDX#4;DR
UCKER.I$.. JSRCHKOUT;$FFC9.T$.. LDA#0..$
B. STALINIE..$L. STAPLINL1+1..$V. LDA#4.
.%.. STAPLINL1+2..%..;..%..PLINIE LDA#13
;RETURN.B%.. JSRCHROUT;FFD2.Q%.. LDALF;L
F?.`%.. BNEPLINLA.O%.. LDA#10;LF..%&. JS
RCHROUT;FFD2..%0.PLINLA LDY#8;LEFTSPC..%
:.PLINLB LDA#" ".C%D. JSRCHROUT;FFD2.L%N
. DEY..%X. BNEPLINLB..%B.;..%L. LDX#0;SP
ALTE..&V.PLINLC TXA..&.. TAY.!&..PLINL1 
LDA$0400,Y.*&.. TAY.3&.. SEI.E&.. LDA$1;
SPKONF.S&.. PHA;PUSH.H&.. LDA#$34;RAMONL
Y.W&F. STA$1;NOW..&P. LDA$BF00,Y;TABELLE
..&Z. TAY;EXCHNG..&.. PLA;PULL..&.. STA$
1;OLDKONF.I&.. CLI.Y&.. TYA;EXCHNG..&.. 
JSRCHROUT;FFD2..&.. INX..' . CPX#40;ZEIL
E?..'*. BNEPLINLC..'4.;.3'>. LDAPLINL1+1
;LOW.<'H. CLC.O'R. ADC#40;1ZEILE.D'\. ST
APLINL1+1;LOW.X'F. BCCPLINLD;SKIP..'P. I
NCPLINL1+2;HIGH..'Z.PLINLD INCLINIE..'..
 LDALINIE.D'.. CMP#25;SRCNEND.X'.. BEQPL
INLE;SKIP..'.. JMPPLINIE;NXTLINE..(..PLI
NLE JSRCLRCHN;FFCC..(.. RTS..(..;..(J.;.
,(T.LINIE NOP.2(..;.;(.. .EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL