LISTING 10.9 (S)

FILE INFORMATION

FILENAME(S): LISTING 10.9 (S)

FILE TYPE(S): PRG

FILE SIZE: 992b

FIRST SEEN: 2025-10-20 14:31:28

APPEARS ON: 1 disk(s)

FILE HASH

efc4cbdb8fe4e966301f1f138c870017ad85b5fdb00e1b4d310d84d85c1c4e5a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MT90499 SEITE 2	LISTING 10.9 (S)	PRG	Treasure Chest - Klaus Der Suhler	22	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F DE 1F 64 00 3B 00  FF 1F 6E 00 2E 42 41 20  |....d.;...n..BA |
00000010: 24 43 30 30 30 20 3B 20  53 54 41 52 54 3A 20 53  |$C000 ; START: S|
00000020: 59 53 20 34 39 31 35 32  00 05 20 78 00 3B 00 1B  |YS 49152.. x.;..|
00000030: 20 82 00 2E 47 4C 20 42  41 53 49 4E 20 3D 20 24  | ...GL BASIN = $|
00000040: 46 46 43 46 00 32 20 8C  00 2E 47 4C 20 4E 55 4D  |FFCF.2 ...GL NUM|
00000050: 4F 55 54 20 3D 20 24 42  44 43 44 00 49 20 96 00  |OUT = $BDCD.I ..|
00000060: 2E 47 4C 20 53 54 52 4F  55 54 20 3D 20 24 41 42  |.GL STROUT = $AB|
00000070: 31 45 00 4F 20 A0 00 3B  00 67 20 AA 00 41 4E 46  |1E.O ..;.g ..ANF|
00000080: 41 4E 47 20 4C 44 41 23  3C 28 54 45 58 54 31 29  |ANG LDA#<(TEXT1)|
00000090: 00 79 20 B4 00 20 4C 44  59 23 3E 28 54 45 58 54  |.y .. LDY#>(TEXT|
000000A0: 31 29 00 88 20 BE 00 20  4A 53 52 53 54 52 4F 55  |1).. .. JSRSTROU|
000000B0: 54 00 8E 20 C8 00 3B 00  99 20 D2 00 20 4C 44 58  |T.. ..;.. .. LDX|
000000C0: 23 30 00 B0 20 DC 00 53  43 48 4C 45 49 46 45 31  |#0.. ..SCHLEIFE1|
000000D0: 20 4A 53 52 42 41 53 49  4E 00 C9 20 E6 00 20 43  | JSRBASIN.. .. C|
000000E0: 4D 50 23 31 33 3B 20 31  33 20 3D 20 52 45 54 55  |MP#13; 13 = RETU|
000000F0: 52 4E 00 D8 20 F0 00 20  42 45 51 57 45 49 54 45  |RN.. .. BEQWEITE|
00000100: 52 00 E8 20 FA 00 20 53  54 41 53 54 4F 52 45 2C  |R.. .. STASTORE,|
00000110: 58 00 F1 20 04 01 20 49  4E 58 00 03 21 0E 01 20  |X.. .. INX..!.. |
00000120: 4A 4D 50 53 43 48 4C 45  49 46 45 31 00 09 21 18  |JMPSCHLEIFE1..!.|
00000130: 01 3B 00 1E 21 22 01 57  45 49 54 45 52 20 53 54  |.;..!".WEITER ST|
00000140: 58 4C 41 45 4E 47 45 00  30 21 2C 01 20 4C 44 41  |XLAENGE.0!,. LDA|
00000150: 23 3C 28 54 45 58 54 32  29 00 42 21 36 01 20 4C  |#<(TEXT2).B!6. L|
00000160: 44 59 23 3E 28 54 45 58  54 32 29 00 51 21 40 01  |DY#>(TEXT2).Q!@.|
00000170: 20 4A 53 52 53 54 52 4F  55 54 00 5C 21 4A 01 20  | JSRSTROUT.\!J. |
00000180: 4C 44 41 23 30 00 82 21  54 01 3B 20 30 20 3D 20  |LDA#0..!T.; 0 = |
00000190: 41 55 53 47 41 4E 47 53  57 45 52 54 20 44 45 52  |AUSGANGSWERT DER|
000001A0: 20 50 52 55 45 46 53 55  4D 4D 45 00 98 21 5E 01  | PRUEFSUMME..!^.|
000001B0: 20 54 41 58 3B 20 5A 41  45 48 4C 45 52 20 3D 20  | TAX; ZAEHLER = |
000001C0: 30 00 BA 21 68 01 53 43  48 4C 45 49 46 45 32 20  |0..!h.SCHLEIFE2 |
000001D0: 52 4F 4C 3B 20 50 52 55  45 46 53 55 4D 4D 45 20  |ROL; PRUEFSUMME |
000001E0: 2A 20 32 00 CA 21 72 01  20 45 4F 52 53 54 4F 52  |* 2..!r. EORSTOR|
000001F0: 45 2C 58 00 E5 21 7C 01  20 49 4E 58 3B 20 5A 41  |E,X..!|. INX; ZA|
00000200: 45 48 4C 45 52 20 45 52  48 4F 45 48 45 4E 00 F4  |EHLER ERHOEHEN..|
00000210: 21 86 01 20 43 50 58 4C  41 45 4E 47 45 00 06 22  |!.. CPXLAENGE.."|
00000220: 90 01 20 42 4E 45 53 43  48 4C 45 49 46 45 32 00  |.. BNESCHLEIFE2.|
00000230: 0F 22 9A 01 20 43 4C 43  00 2F 22 A4 01 20 41 44  |.".. CLC./".. AD|
00000240: 43 4C 41 45 4E 47 45 3B  20 4C 41 45 4E 47 45 20  |CLAENGE; LAENGE |
00000250: 41 44 44 49 45 52 45 4E  00 44 22 AE 01 20 54 41  |ADDIEREN.D".. TA|
00000260: 58 3B 20 50 52 55 45 46  53 55 4D 4D 45 00 59 22  |X; PRUEFSUMME.Y"|
00000270: B8 01 20 4C 44 41 23 30  3B 20 41 55 53 47 45 42  |.. LDA#0; AUSGEB|
00000280: 45 4E 00 68 22 C2 01 20  4A 53 52 4E 55 4D 4F 55  |EN.h".. JSRNUMOU|
00000290: 54 00 84 22 CC 01 20 4A  4D 50 41 4E 46 41 4E 47  |T..".. JMPANFANG|
000002A0: 3B 20 4E 4F 43 48 20 45  49 4E 4D 41 4C 00 8A 22  |; NOCH EINMAL.."|
000002B0: E8 03 3B 00 96 22 F2 03  3B 20 54 45 58 54 45 00  |..;.."..; TEXTE.|
000002C0: 9C 22 FC 03 3B 00 AC 22  06 04 54 45 58 54 31 20  |."..;.."..TEXT1 |
000002D0: 2E 42 59 31 33 00 DF 22  10 04 2E 54 58 20 22 2D  |.BY13.."...TX "-|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000300: 2D 2D 2D 2D 2D 2D 2D 22  00 F5 22 1A 04 2E 54 58  |-------".."...TX|
00000310: 20 22 45 49 4E 47 41 42  45 20 3F 20 20 22 00 FF  | "EINGABE ?  "..|
00000320: 22 24 04 2E 42 59 20 30  00 05 23 2E 04 3B 00 15  |"$..BY 0..#..;..|
00000330: 23 38 04 54 45 58 54 32  20 2E 42 59 31 33 00 2B  |#8.TEXT2 .BY13.+|
00000340: 23 42 04 2E 54 58 20 22  50 52 55 45 46 53 55 4D  |#B..TX "PRUEFSUM|
00000350: 4D 45 20 22 00 35 23 4C  04 2E 42 59 20 30 00 3B  |ME ".5#L..BY 0.;|
00000360: 23 D0 07 3B 00 52 23 DA  07 3B 20 5A 57 49 53 43  |#..;.R#..; ZWISC|
00000370: 48 45 4E 53 50 45 49 43  48 45 52 00 58 23 E4 07  |HENSPEICHER.X#..|
00000380: 3B 00 7A 23 EE 07 4C 41  45 4E 47 45 20 2E 42 59  |;.z#..LAENGE .BY|
00000390: 30 3B 20 5A 57 49 53 43  48 45 4E 53 50 45 49 43  |0; ZWISCHENSPEIC|
000003A0: 48 45 52 00 89 23 F8 07  53 54 4F 52 45 20 2E 42  |HER..#..STORE .B|
000003B0: 59 30 00 B4 23 02 08 3B  20 5E 20 41 42 20 53 54  |Y0..#..; ^ AB ST|
000003C0: 4F 52 45 20 57 49 52 44  20 44 49 45 20 45 49 4E  |ORE WIRD DIE EIN|
000003D0: 47 41 42 45 20 41 42 47  45 4C 45 47 54 00 00 00  |GABE ABGELEGT...|

X...D.;...N..BA $C000 ; START: SYS 49152
.. X.;.. ...GL BASIN = $FFCF.2 ...GL NUM
OUT = $BDCD.I ...GL STROUT = $AB1E.O  .;
.G ..ANFANG LDA#<(TEXT1).Y .. LDY#>(TEXT
1).. .. JSRSTROUT.. H.;.. R. LDX#0.. ..S
CHLEIFE1 JSRBASIN.I .. CMP#13; 13 = RETU
RN.X .. BEQWEITER.. .. STASTORE,X.. .. I
NX..!.. JMPSCHLEIFE1..!..;..!".WEITER ST
XLAENGE.0!,. LDA#<(TEXT2).B!6. LDY#>(TEX
T2).Q!@. JSRSTROUT.\!J. LDA#0..!T.; 0 = 
AUSGANGSWERT DER PRUEFSUMME..!^. TAX; ZA
EHLER = 0..!H.SCHLEIFE2 ROL; PRUEFSUMME 
* 2.J!R. EORSTORE,X..!|. INX; ZAEHLER ER
HOEHEN..!.. CPXLAENGE..".. BNESCHLEIFE2.
.".. CLC./".. ADCLAENGE; LAENGE ADDIEREN
.D".. TAX; PRUEFSUMME.Y".. LDA#0; AUSGEB
EN.H"B. JSRNUMOUT.."L. JMPANFANG; NOCH E
INMAL.."..;.."..; TEXTE.."..;.."..TEXT1 
.BY13.."...TX "-------------------------
---------------".."...TX "EINGABE ?  "..
"$..BY 0..#..;..#8.TEXT2 .BY13.+#B..TX "
PRUEFSUMME ".5#L..BY 0.;#P.;.R#Z.; ZWISC
HENSPEICHER.X#..;.Z#..LAENGE .BY0; ZWISC
HENSPEICHER..#..STORE .BY0..#..; ^ AB ST
ORE WIRD DIE EINGABE ABGELEGT...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL