LISTING 10

FILE INFORMATION

FILENAME(S): LISTING 10

FILE TYPE(S): PRG

FILE SIZE: 1.8K

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

APPEARS ON: 4 disk(s)

FILE HASH

dac64db1d75148d2be74ac2d41adffd27d0927242617b1c5d5e41274386ec5bf

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT ASS	LISTING 10	PRG	Treasure Chest - ToGuMi	15	5	DOWNLOAD FILE
SONDERHEFT ASS	LISTING 10	PRG	C64er	15	5	DOWNLOAD FILE
15835 SEITE A	LISTING 10	PRG	C64er	15	5	DOWNLOAD FILE
SONDERHEFT ASS	LISTING 10	PRG	DuncanTwain	15	5	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 CD 20 E6 00 20 43  4D 50 23 22 20 22 3B 20  |N.. .. CMP#" "; |
000000F0: 53 50 41 43 45 3F 00 F0  20 F0 00 20 42 45 51 53  |SPACE?.. .. BEQS|
00000100: 43 48 4C 45 49 46 45 31  3B 20 44 41 4E 4E 20 55  |CHLEIFE1; DANN U|
00000110: 45 42 45 52 4C 45 53 45  4E 00 09 21 FA 00 20 43  |EBERLESEN..!.. C|
00000120: 4D 50 23 31 33 3B 20 31  33 20 3D 20 52 45 54 55  |MP#13; 13 = RETU|
00000130: 52 4E 00 19 21 04 01 20  42 45 51 57 45 49 54 45  |RN..!.. BEQWEITE|
00000140: 52 31 00 29 21 0E 01 20  53 54 41 53 54 4F 52 45  |R1.)!.. STASTORE|
00000150: 2C 58 00 32 21 18 01 20  49 4E 58 00 44 21 22 01  |,X.2!.. INX.D!".|
00000160: 20 4A 4D 50 53 43 48 4C  45 49 46 45 31 00 4A 21  | JMPSCHLEIFE1.J!|
00000170: 2C 01 3B 00 60 21 36 01  57 45 49 54 45 52 31 20  |,.;.`!6.WEITER1 |
00000180: 53 54 58 4C 41 45 4E 47  45 00 72 21 40 01 20 4C  |STXLAENGE.r!@. L|
00000190: 44 41 23 3C 28 54 45 58  54 32 29 00 84 21 4A 01  |DA#<(TEXT2)..!J.|
000001A0: 20 4C 44 59 23 3E 28 54  45 58 54 32 29 00 93 21  | LDY#>(TEXT2)..!|
000001B0: 54 01 20 4A 53 52 53 54  52 4F 55 54 00 9E 21 5E  |T. JSRSTROUT..!^|
000001C0: 01 20 4C 44 41 23 30 00  C4 21 68 01 3B 20 30 20  |. LDA#0..!h.; 0 |
000001D0: 3D 20 41 55 53 47 41 4E  47 53 57 45 52 54 20 44  |= AUSGANGSWERT D|
000001E0: 45 52 20 50 52 55 45 46  53 55 4D 4D 45 00 DA 21  |ER PRUEFSUMME..!|
000001F0: 72 01 20 54 41 58 3B 20  5A 41 45 48 4C 45 52 20  |r. TAX; ZAEHLER |
00000200: 3D 20 30 00 FC 21 7C 01  53 43 48 4C 45 49 46 45  |= 0..!|.SCHLEIFE|
00000210: 32 20 52 4F 4C 3B 20 50  52 55 45 46 53 55 4D 4D  |2 ROL; PRUEFSUMM|
00000220: 45 20 2A 20 32 00 0C 22  86 01 20 45 4F 52 53 54  |E * 2..".. EORST|
00000230: 4F 52 45 2C 58 00 27 22  90 01 20 49 4E 58 3B 20  |ORE,X.'".. INX; |
00000240: 5A 41 45 48 4C 45 52 20  45 52 48 4F 45 48 45 4E  |ZAEHLER ERHOEHEN|
00000250: 00 36 22 9A 01 20 43 50  58 4C 41 45 4E 47 45 00  |.6".. CPXLAENGE.|
00000260: 48 22 A4 01 20 42 4E 45  53 43 48 4C 45 49 46 45  |H".. BNESCHLEIFE|
00000270: 32 00 51 22 AE 01 20 43  4C 43 00 71 22 B8 01 20  |2.Q".. CLC.q".. |
00000280: 41 44 43 4C 41 45 4E 47  45 3B 20 4C 41 45 4E 47  |ADCLAENGE; LAENG|
00000290: 45 20 41 44 44 49 45 52  45 4E 00 99 22 C2 01 3B  |E ADDIEREN.."..;|
000002A0: 20 48 49 45 52 20 53 54  45 48 54 20 44 49 45 20  | HIER STEHT DIE |
000002B0: 50 52 55 45 46 53 55 4D  4D 45 20 49 4D 20 41 4B  |PRUEFSUMME IM AK|
000002C0: 4B 55 00 9F 22 CC 01 3B  00 AA 22 D6 01 20 4C 44  |KU.."..;..".. LD|
000002D0: 58 23 30 00 C9 22 E0 01  53 43 48 4C 45 49 46 45  |X#0.."..SCHLEIFE|
000002E0: 33 20 43 4D 50 50 52 55  45 46 53 55 4D 4D 45 4E  |3 CMPPRUEFSUMMEN|
000002F0: 2C 58 00 D9 22 EA 01 20  42 45 51 57 45 49 54 45  |,X..".. BEQWEITE|
00000300: 52 32 00 E2 22 F4 01 20  49 4E 58 00 ED 22 FE 01  |R2..".. INX.."..|
00000310: 20 43 50 58 23 34 00 FF  22 08 02 20 42 4E 45 53  | CPX#4..".. BNES|
00000320: 43 48 4C 45 49 46 45 33  00 1F 23 12 02 3B 20 50  |CHLEIFE3..#..; P|
00000330: 52 55 45 46 53 55 4D 4D  45 20 4E 49 43 48 54 20  |RUEFSUMME NICHT |
00000340: 47 45 46 55 4E 44 45 4E  00 25 23 1C 02 3B 00 2E  |GEFUNDEN.%#..;..|
00000350: 23 26 02 20 50 4C 41 00  37 23 30 02 20 50 4C 41  |#&. PLA.7#0. PLA|
00000360: 00 49 23 3A 02 20 4C 44  41 23 3C 28 54 45 58 54  |.I#:. LDA#<(TEXT|
00000370: 33 29 00 5B 23 44 02 20  4C 44 59 23 3E 28 54 45  |3).[#D. LDY#>(TE|
00000380: 58 54 33 29 00 6A 23 4E  02 20 4A 53 52 53 54 52  |XT3).j#N. JSRSTR|
00000390: 4F 55 54 00 84 23 58 02  20 4A 53 52 41 4E 46 41  |OUT..#X. JSRANFA|
000003A0: 4E 47 3B 20 56 4F 4E 20  56 4F 52 4E 45 00 8A 23  |NG; VON VORNE..#|
000003B0: 62 02 3B 00 AC 23 6C 02  57 45 49 54 45 52 32 20  |b.;..#l.WEITER2 |
000003C0: 4C 44 41 4C 4F 57 54 41  42 2C 58 3B 20 4C 4F 57  |LDALOWTAB,X; LOW|
000003D0: 2D 42 59 54 45 00 C9 23  76 02 20 4C 44 59 48 49  |-BYTE..#v. LDYHI|
000003E0: 47 48 54 41 42 2C 58 3B  20 48 49 47 48 2D 42 59  |GHTAB,X; HIGH-BY|
000003F0: 54 45 00 D8 23 80 02 20  4A 53 52 53 54 52 4F 55  |TE..#.. JSRSTROU|
00000400: 54 00 F5 23 8A 02 20 4A  4D 50 41 4E 46 41 4E 47  |T..#.. JMPANFANG|
00000410: 3B 20 4E 4F 43 48 20 45  49 4E 4D 41 4C 21 00 FB  |; NOCH EINMAL!..|
00000420: 23 94 02 3B 00 01 24 E8  03 3B 00 0D 24 F2 03 3B  |#..;..$..;..$..;|
00000430: 20 54 45 58 54 45 00 13  24 FC 03 3B 00 23 24 06  | TEXTE..$..;.#$.|
00000440: 04 54 45 58 54 31 20 2E  42 59 31 33 00 56 24 10  |.TEXT1 .BY13.V$.|
00000450: 04 2E 54 58 20 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..TX "----------|
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 2D 2D 22 00  |--------------".|
00000480: 6C 24 1A 04 2E 54 58 20  22 43 4F 4D 50 55 54 45  |l$...TX "COMPUTE|
00000490: 52 20 3A 20 22 00 76 24  24 04 2E 42 59 20 30 00  |R : ".v$$..BY 0.|
000004A0: 7C 24 2E 04 3B 00 8C 24  38 04 54 45 58 54 32 20  ||$..;..$8.TEXT2 |
000004B0: 2E 42 59 31 33 00 A2 24  42 04 2E 54 58 20 22 50  |.BY13..$B..TX "P|
000004C0: 52 4F 5A 45 53 53 4F 52  3A 20 22 00 AC 24 4C 04  |ROZESSOR: "..$L.|
000004D0: 2E 42 59 20 30 00 B2 24  56 04 3B 00 D2 24 60 04  |.BY 0..$V.;..$`.|
000004E0: 54 45 58 54 33 20 2E 54  58 22 57 45 49 53 53 20  |TEXT3 .TX"WEISS |
000004F0: 49 43 48 20 4E 49 43 48  54 21 22 00 DC 24 6A 04  |ICH NICHT!"..$j.|
00000500: 2E 42 59 20 30 00 E2 24  74 04 3B 00 E8 24 7E 04  |.BY 0..$t.;..$~.|
00000510: 3B 00 00 25 88 04 54 36  35 30 32 20 2E 54 58 22  |;..%..T6502 .TX"|
00000520: 4D 4F 53 20 36 35 30 32  22 00 0A 25 92 04 2E 42  |MOS 6502"..%...B|
00000530: 59 20 30 00 10 25 9C 04  3B 00 28 25 A6 04 54 36  |Y 0..%..;.(%..T6|
00000540: 35 31 30 20 2E 54 58 22  4D 4F 53 20 36 35 31 30  |510 .TX"MOS 6510|
00000550: 22 00 32 25 B0 04 2E 42  59 20 30 00 38 25 BA 04  |".2%...BY 0.8%..|
00000560: 3B 00 56 25 C4 04 54 38  35 30 32 20 2E 54 58 22  |;.V%..T8502 .TX"|
00000570: 4D 4F 53 20 38 35 30 32  20 26 20 5A 38 30 22 00  |MOS 8502 & Z80".|
00000580: 60 25 CE 04 2E 42 59 20  30 00 66 25 D8 04 3B 00  |`%...BY 0.f%..;.|
00000590: 85 25 E2 04 54 36 38 30  30 30 20 2E 54 58 22 4D  |.%..T68000 .TX"M|
000005A0: 4F 54 4F 52 4F 4C 41 20  36 38 30 30 30 22 00 8F  |OTOROLA 68000"..|
000005B0: 25 EC 04 2E 42 59 20 30  00 95 25 F6 04 3B 00 9B  |%...BY 0..%..;..|
000005C0: 25 D0 07 3B 00 B5 25 DA  07 3B 20 4E 55 4D 45 52  |%..;..%..; NUMER|
000005D0: 49 53 43 48 45 20 54 41  42 45 4C 4C 45 4E 00 BB  |ISCHE TABELLEN..|
000005E0: 25 E4 07 3B 00 EE 25 EE  07 4C 4F 57 54 41 42 20  |%..;..%..LOWTAB |
000005F0: 2E 42 59 3C 28 54 36 35  30 32 29 2C 3C 28 54 36  |.BY<(T6502),<(T6|
00000600: 35 31 30 29 2C 3C 28 54  38 35 30 32 29 2C 3C 28  |510),<(T8502),<(|
00000610: 54 36 38 30 30 30 29 00  22 26 F8 07 48 49 47 48  |T68000)."&..HIGH|
00000620: 54 41 42 20 2E 42 59 3E  28 54 36 35 30 32 29 2C  |TAB .BY>(T6502),|
00000630: 3E 28 54 36 35 31 30 29  2C 3E 28 54 38 35 30 32  |>(T6510),>(T8502|
00000640: 29 2C 3E 28 54 36 38 30  30 30 29 00 28 26 02 08  |),>(T68000).(&..|
00000650: 3B 00 4A 26 0C 08 50 52  55 45 46 53 55 4D 4D 45  |;.J&..PRUEFSUMME|
00000660: 4E 20 2E 42 59 32 32 38  2C 38 33 2C 31 34 39 2C  |N .BY228,83,149,|
00000670: 31 33 36 00 72 26 16 08  3B 20 52 45 49 48 45 4E  |136.r&..; REIHEN|
00000680: 46 4F 4C 47 45 3A 20 56  43 32 30 2C 43 36 34 2C  |FOLGE: VC20,C64,|
00000690: 50 43 31 32 38 2C 41 4D  49 47 41 00 78 26 B8 0B  |PC128,AMIGA.x&..|
000006A0: 3B 00 8F 26 C2 0B 3B 20  5A 57 49 53 43 48 45 4E  |;..&..; ZWISCHEN|
000006B0: 53 50 45 49 43 48 45 52  00 95 26 CC 0B 3B 00 B7  |SPEICHER..&..;..|
000006C0: 26 D6 0B 4C 41 45 4E 47  45 20 2E 42 59 30 3B 20  |&..LAENGE .BY0; |
000006D0: 5A 57 49 53 43 48 45 4E  53 50 45 49 43 48 45 52  |ZWISCHENSPEICHER|
000006E0: 00 C6 26 E0 0B 53 54 4F  52 45 20 2E 42 59 30 00  |..&..STORE .BY0.|
000006F0: F1 26 EA 0B 3B 20 5E 20  41 42 20 53 54 4F 52 45  |.&..; ^ AB STORE|
00000700: 20 57 49 52 44 20 44 49  45 20 45 49 4E 47 41 42  | WIRD DIE EINGAB|
00000710: 45 20 41 42 47 45 4C 45  47 54 00 00 00           |E ABGELEGT...   |

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.M .. CMP#" "; 
SPACE?.. .. BEQSCHLEIFE1; DANN UEBERLESE
N..!.. CMP#13; 13 = RETURN..!.. BEQWEITE
R1.)!.. STASTORE,X.2!.. INX.D!". JMPSCHL
EIFE1.J!,.;.`!6.WEITER1 STXLAENGE.R!@. L
DA#<(TEXT2)..!J. LDY#>(TEXT2)..!T. JSRST
ROUT..!^. LDA#0.D!H.; 0 = AUSGANGSWERT D
ER PRUEFSUMME.Z!R. TAX; ZAEHLER = 0..!|.
SCHLEIFE2 ROL; PRUEFSUMME * 2..".. EORST
ORE,X.'".. INX; ZAEHLER ERHOEHEN.6".. CP
XLAENGE.H".. BNESCHLEIFE2.Q".. CLC.Q".. 
ADCLAENGE; LAENGE ADDIEREN.."B.; HIER ST
EHT DIE PRUEFSUMME IM AKKU.."L.;.."V. LD
X#0.I"..SCHLEIFE3 CMPPRUEFSUMMEN,X.Y".. 
BEQWEITER2..".. INX..".. CPX#4..".. BNES
CHLEIFE3..#..; PRUEFSUMME NICHT GEFUNDEN
.%#..;..#&. PLA.7#0. PLA.I#:. LDA#<(TEXT
3).[#D. LDY#>(TEXT3).J#N. JSRSTROUT..#X.
 JSRANFANG; VON VORNE..#B.;..#L.WEITER2 
LDALOWTAB,X; LOW-BYTE.I#V. LDYHIGHTAB,X;
 HIGH-BYTE.X#.. JSRSTROUT..#.. JMPANFANG
; NOCH EINMAL!..#..;..$..;..$..; TEXTE..
$..;.#$..TEXT1 .BY13.V$...TX "----------
------------------------------".L$...TX 
"COMPUTER : ".V$$..BY 0.|$..;..$8.TEXT2 
.BY13..$B..TX "PROZESSOR: "..$L..BY 0..$
V.;.R$`.TEXT3 .TX"WEISS ICH NICHT!"..$J.
.BY 0..$T.;..$~.;..%..T6502 .TX"MOS 6502
"..%...BY 0..%..;.(%..T6510 .TX"MOS 6510
".2%...BY 0.8%..;.V%D.T8502 .TX"MOS 8502
 & Z80".`%N..BY 0.F%X.;..%..T68000 .TX"M
OTOROLA 68000"..%...BY 0..%..;..%P.;..%Z
.; NUMERISCHE TABELLEN..%..;..%..LOWTAB 
.BY<(T6502),<(T6510),<(T8502),<(T68000).
"&..HIGHTAB .BY>(T6502),>(T6510),>(T8502
),>(T68000).(&..;.J&..PRUEFSUMMEN .BY228
,83,149,136.R&..; REIHENFOLGE: VC20,C64,
PC128,AMIGA.X&..;..&B.; ZWISCHENSPEICHER
..&L.;..&V.LAENGE .BY0; ZWISCHENSPEICHER
.F&..STORE .BY0..&..; ^ AB STORE WIRD DI
E EINGABE ABGELEGT...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL