LISTING 9

FILE INFORMATION

FILENAME(S): LISTING 9

FILE TYPE(S): PRG

FILE SIZE: 1000b

FIRST SEEN: 2025-11-02 22:11:34

APPEARS ON: 3 disk(s)

FILE HASH

723751d68bfda471ec3f5a9dffd27a89a7e446ade69a2b3ae5967482dd604999

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT ASS	LISTING 9	PRG	Treasure Chest - ToGuMi	15	3	DOWNLOAD FILE
SONDERHEFT ASS	LISTING 9	PRG	C64er	15	3	DOWNLOAD FILE
15835 SEITE A	LISTING 9	PRG	C64er	15	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 4C  49 20 31 2C 33 2C 30 00  |....d..LI 1,3,0.|
00000010: 07 20 6E 00 2E 42 41 20  24 43 30 30 30 20 3B 20  |. n..BA $C000 ; |
00000020: 53 54 41 52 54 3A 20 53  59 53 20 34 39 31 35 32  |START: SYS 49152|
00000030: 00 0D 20 78 00 3B 00 23  20 82 00 2E 47 4C 20 42  |.. x.;.# ...GL B|
00000040: 41 53 49 4E 20 3D 20 24  46 46 43 46 00 3A 20 8C  |ASIN = $FFCF.: .|
00000050: 00 2E 47 4C 20 4E 55 4D  4F 55 54 20 3D 20 24 42  |..GL NUMOUT = $B|
00000060: 44 43 44 00 51 20 96 00  2E 47 4C 20 53 54 52 4F  |DCD.Q ...GL STRO|
00000070: 55 54 20 3D 20 24 41 42  31 45 00 57 20 A0 00 3B  |UT = $AB1E.W ..;|
00000080: 00 6F 20 AA 00 41 4E 46  41 4E 47 20 4C 44 41 23  |.o ..ANFANG LDA#|
00000090: 3C 28 54 45 58 54 31 29  00 81 20 B4 00 20 4C 44  |<(TEXT1).. .. LD|
000000A0: 59 23 3E 28 54 45 58 54  31 29 00 90 20 BE 00 20  |Y#>(TEXT1).. .. |
000000B0: 4A 53 52 53 54 52 4F 55  54 00 96 20 C8 00 3B 00  |JSRSTROUT.. ..;.|
000000C0: A1 20 D2 00 20 4C 44 58  23 30 00 B8 20 DC 00 53  |. .. LDX#0.. ..S|
000000D0: 43 48 4C 45 49 46 45 31  20 4A 53 52 42 41 53 49  |CHLEIFE1 JSRBASI|
000000E0: 4E 00 D1 20 E6 00 20 43  4D 50 23 31 33 3B 20 31  |N.. .. CMP#13; 1|
000000F0: 33 20 3D 20 52 45 54 55  52 4E 00 E0 20 F0 00 20  |3 = RETURN.. .. |
00000100: 42 45 51 57 45 49 54 45  52 00 F0 20 FA 00 20 53  |BEQWEITER.. .. S|
00000110: 54 41 53 54 4F 52 45 2C  58 00 F9 20 04 01 20 49  |TASTORE,X.. .. I|
00000120: 4E 58 00 0B 21 0E 01 20  4A 4D 50 53 43 48 4C 45  |NX..!.. JMPSCHLE|
00000130: 49 46 45 31 00 11 21 18  01 3B 00 26 21 22 01 57  |IFE1..!..;.&!".W|
00000140: 45 49 54 45 52 20 53 54  58 4C 41 45 4E 47 45 00  |EITER STXLAENGE.|
00000150: 38 21 2C 01 20 4C 44 41  23 3C 28 54 45 58 54 32  |8!,. LDA#<(TEXT2|
00000160: 29 00 4A 21 36 01 20 4C  44 59 23 3E 28 54 45 58  |).J!6. LDY#>(TEX|
00000170: 54 32 29 00 59 21 40 01  20 4A 53 52 53 54 52 4F  |T2).Y!@. JSRSTRO|
00000180: 55 54 00 64 21 4A 01 20  4C 44 41 23 30 00 8A 21  |UT.d!J. LDA#0..!|
00000190: 54 01 3B 20 30 20 3D 20  41 55 53 47 41 4E 47 53  |T.; 0 = AUSGANGS|
000001A0: 57 45 52 54 20 44 45 52  20 50 52 55 45 46 53 55  |WERT DER PRUEFSU|
000001B0: 4D 4D 45 00 A0 21 5E 01  20 54 41 58 3B 20 5A 41  |MME..!^. TAX; ZA|
000001C0: 45 48 4C 45 52 20 3D 20  30 00 C2 21 68 01 53 43  |EHLER = 0..!h.SC|
000001D0: 48 4C 45 49 46 45 32 20  52 4F 4C 3B 20 50 52 55  |HLEIFE2 ROL; PRU|
000001E0: 45 46 53 55 4D 4D 45 20  2A 20 32 00 D2 21 72 01  |EFSUMME * 2..!r.|
000001F0: 20 45 4F 52 53 54 4F 52  45 2C 58 00 ED 21 7C 01  | EORSTORE,X..!|.|
00000200: 20 49 4E 58 3B 20 5A 41  45 48 4C 45 52 20 45 52  | INX; ZAEHLER ER|
00000210: 48 4F 45 48 45 4E 00 FC  21 86 01 20 43 50 58 4C  |HOEHEN..!.. CPXL|
00000220: 41 45 4E 47 45 00 0E 22  90 01 20 42 4E 45 53 43  |AENGE..".. BNESC|
00000230: 48 4C 45 49 46 45 32 00  17 22 9A 01 20 43 4C 43  |HLEIFE2..".. CLC|
00000240: 00 37 22 A4 01 20 41 44  43 4C 41 45 4E 47 45 3B  |.7".. ADCLAENGE;|
00000250: 20 4C 41 45 4E 47 45 20  41 44 44 49 45 52 45 4E  | LAENGE ADDIEREN|
00000260: 00 4C 22 AE 01 20 54 41  58 3B 20 50 52 55 45 46  |.L".. TAX; PRUEF|
00000270: 53 55 4D 4D 45 00 61 22  B8 01 20 4C 44 41 23 30  |SUMME.a".. LDA#0|
00000280: 3B 20 41 55 53 47 45 42  45 4E 00 70 22 C2 01 20  |; AUSGEBEN.p".. |
00000290: 4A 53 52 4E 55 4D 4F 55  54 00 8C 22 CC 01 20 4A  |JSRNUMOUT..".. J|
000002A0: 4D 50 41 4E 46 41 4E 47  3B 20 4E 4F 43 48 20 45  |MPANFANG; NOCH E|
000002B0: 49 4E 4D 41 4C 00 92 22  E8 03 3B 00 9E 22 F2 03  |INMAL.."..;.."..|
000002C0: 3B 20 54 45 58 54 45 00  A4 22 FC 03 3B 00 B4 22  |; TEXTE.."..;.."|
000002D0: 06 04 54 45 58 54 31 20  2E 42 59 31 33 00 E7 22  |..TEXT1 .BY13.."|
000002E0: 10 04 2E 54 58 20 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |...TX "---------|
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 2D  2D 2D 2D 2D 2D 2D 2D 22  |---------------"|
00000310: 00 FD 22 1A 04 2E 54 58  20 22 45 49 4E 47 41 42  |.."...TX "EINGAB|
00000320: 45 20 3F 20 20 22 00 07  23 24 04 2E 42 59 20 30  |E ?  "..#$..BY 0|
00000330: 00 0D 23 2E 04 3B 00 1D  23 38 04 54 45 58 54 32  |..#..;..#8.TEXT2|
00000340: 20 2E 42 59 31 33 00 33  23 42 04 2E 54 58 20 22  | .BY13.3#B..TX "|
00000350: 50 52 55 45 46 53 55 4D  4D 45 20 22 00 3D 23 4C  |PRUEFSUMME ".=#L|
00000360: 04 2E 42 59 20 30 00 43  23 D0 07 3B 00 5A 23 DA  |..BY 0.C#..;.Z#.|
00000370: 07 3B 20 5A 57 49 53 43  48 45 4E 53 50 45 49 43  |.; ZWISCHENSPEIC|
00000380: 48 45 52 00 60 23 E4 07  3B 00 82 23 EE 07 4C 41  |HER.`#..;..#..LA|
00000390: 45 4E 47 45 20 2E 42 59  30 3B 20 5A 57 49 53 43  |ENGE .BY0; ZWISC|
000003A0: 48 45 4E 53 50 45 49 43  48 45 52 00 91 23 F8 07  |HENSPEICHER..#..|
000003B0: 53 54 4F 52 45 20 2E 42  59 30 00 BC 23 02 08 3B  |STORE .BY0..#..;|
000003C0: 20 5E 20 41 42 20 53 54  4F 52 45 20 57 49 52 44  | ^ AB STORE WIRD|
000003D0: 20 44 49 45 20 45 49 4E  47 41 42 45 20 41 42 47  | DIE EINGABE ABG|
000003E0: 45 4C 45 47 54 00 00 00                           |ELEGT...        |

X...D..LI 1,3,0.. N..BA $C000 ; START: S
YS 49152.. X.;.# ...GL BASIN = $FFCF.: .
..GL NUMOUT = $BDCD.Q ...GL STROUT = $AB
1E.W  .;.O ..ANFANG LDA#<(TEXT1).. .. LD
Y#>(TEXT1).. .. JSRSTROUT.. H.;.. R. LDX
#0.. ..SCHLEIFE1 JSRBASIN.Q .. CMP#13; 1
3 = RETURN.. .. BEQWEITER.. .. STASTORE,
X.. .. INX..!.. JMPSCHLEIFE1..!..;.&!".W
EITER STXLAENGE.8!,. LDA#<(TEXT2).J!6. L
DY#>(TEXT2).Y!@. JSRSTROUT.D!J. LDA#0..!
T.; 0 = AUSGANGSWERT DER PRUEFSUMME. !^.
 TAX; ZAEHLER = 0.B!H.SCHLEIFE2 ROL; PRU
EFSUMME * 2.R!R. EORSTORE,X..!|. INX; ZA
EHLER ERHOEHEN..!.. CPXLAENGE..".. BNESC
HLEIFE2..".. CLC.7".. ADCLAENGE; LAENGE 
ADDIEREN.L".. TAX; PRUEFSUMME.A".. LDA#0
; AUSGEBEN.P"B. JSRNUMOUT.."L. JMPANFANG
; NOCH EINMAL.."..;.."..; TEXTE.."..;.."
..TEXT1 .BY13.."...TX "-----------------
-----------------------".."...TX "EINGAB
E ?  "..#$..BY 0..#..;..#8.TEXT2 .BY13.3
#B..TX "PRUEFSUMME ".=#L..BY 0.C#P.;.Z#Z
.; ZWISCHENSPEICHER.`#..;..#..LAENGE .BY
0; ZWISCHENSPEICHER..#..STORE .BY0..#..;
 ^ AB STORE WIRD DIE EINGABE ABGELEGT...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL