LISTING 10.10(S)
FILE INFORMATION
FILENAME(S): LISTING 10.10(S)
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 1 disk(s)
FILE HASH
2e8911ef5942bf2e554977b5f6662024a3fe37c33452d84cfc99eeb710400d7d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.10(S) | PRG | Treasure Chest - Klaus Der Suhler | 13 | 1 | 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 C5 20 E6 00 20 43 | JSRBASIN.. .. C| 000000E0: 4D 50 23 22 20 22 3B 20 53 50 41 43 45 3F 00 E8 |MP#" "; SPACE?..| 000000F0: 20 F0 00 20 42 45 51 53 43 48 4C 45 49 46 45 31 | .. BEQSCHLEIFE1| 00000100: 3B 20 44 41 4E 4E 20 55 45 42 45 52 4C 45 53 45 |; DANN UEBERLESE| 00000110: 4E 00 01 21 FA 00 20 43 4D 50 23 31 33 3B 20 31 |N..!.. CMP#13; 1| 00000120: 33 20 3D 20 52 45 54 55 52 4E 00 11 21 04 01 20 |3 = RETURN..!.. | 00000130: 42 45 51 57 45 49 54 45 52 31 00 21 21 0E 01 20 |BEQWEITER1.!!.. | 00000140: 53 54 41 53 54 4F 52 45 2C 58 00 2A 21 18 01 20 |STASTORE,X.*!.. | 00000150: 49 4E 58 00 3C 21 22 01 20 4A 4D 50 53 43 48 4C |INX.<!". JMPSCHL| 00000160: 45 49 46 45 31 00 42 21 2C 01 3B 00 58 21 36 01 |EIFE1.B!,.;.X!6.| 00000170: 57 45 49 54 45 52 31 20 53 54 58 4C 41 45 4E 47 |WEITER1 STXLAENG| 00000180: 45 00 6A 21 40 01 20 4C 44 41 23 3C 28 54 45 58 |E.j!@. LDA#<(TEX| 00000190: 54 32 29 00 7C 21 4A 01 20 4C 44 59 23 3E 28 54 |T2).|!J. LDY#>(T| 000001A0: 45 58 54 32 29 00 8B 21 54 01 20 4A 53 52 53 54 |EXT2)..!T. JSRST| 000001B0: 52 4F 55 54 00 96 21 5E 01 20 4C 44 41 23 30 00 |ROUT..!^. LDA#0.| 000001C0: BC 21 68 01 3B 20 30 20 3D 20 41 55 53 47 41 4E |.!h.; 0 = AUSGAN| 000001D0: 47 53 57 45 52 54 20 44 45 52 20 50 52 55 45 46 |GSWERT DER PRUEF| 000001E0: 53 55 4D 4D 45 00 D2 21 72 01 20 54 41 58 3B 20 |SUMME..!r. TAX; | 000001F0: 5A 41 45 48 4C 45 52 20 3D 20 30 00 F4 21 7C 01 |ZAEHLER = 0..!|.| 00000200: 53 43 48 4C 45 49 46 45 32 20 52 4F 4C 3B 20 50 |SCHLEIFE2 ROL; P| 00000210: 52 55 45 46 53 55 4D 4D 45 20 2A 20 32 00 04 22 |RUEFSUMME * 2.."| 00000220: 86 01 20 45 4F 52 53 54 4F 52 45 2C 58 00 1F 22 |.. EORSTORE,X.."| 00000230: 90 01 20 49 4E 58 3B 20 5A 41 45 48 4C 45 52 20 |.. INX; ZAEHLER | 00000240: 45 52 48 4F 45 48 45 4E 00 2E 22 9A 01 20 43 50 |ERHOEHEN..".. CP| 00000250: 58 4C 41 45 4E 47 45 00 40 22 A4 01 20 42 4E 45 |XLAENGE.@".. BNE| 00000260: 53 43 48 4C 45 49 46 45 32 00 49 22 AE 01 20 43 |SCHLEIFE2.I".. C| 00000270: 4C 43 00 69 22 B8 01 20 41 44 43 4C 41 45 4E 47 |LC.i".. ADCLAENG| 00000280: 45 3B 20 4C 41 45 4E 47 45 20 41 44 44 49 45 52 |E; LAENGE ADDIER| 00000290: 45 4E 00 91 22 C2 01 3B 20 48 49 45 52 20 53 54 |EN.."..; HIER ST| 000002A0: 45 48 54 20 44 49 45 20 50 52 55 45 46 53 55 4D |EHT DIE PRUEFSUM| 000002B0: 4D 45 20 49 4D 20 41 4B 4B 55 00 97 22 CC 01 3B |ME IM AKKU.."..;| 000002C0: 00 A2 22 D6 01 20 4C 44 58 23 30 00 C1 22 E0 01 |..".. LDX#0.."..| 000002D0: 53 43 48 4C 45 49 46 45 33 20 43 4D 50 50 52 55 |SCHLEIFE3 CMPPRU| 000002E0: 45 46 53 55 4D 4D 45 4E 2C 58 00 D1 22 EA 01 20 |EFSUMMEN,X..".. | 000002F0: 42 45 51 57 45 49 54 45 52 32 00 DA 22 F4 01 20 |BEQWEITER2..".. | 00000300: 49 4E 58 00 E5 22 FE 01 20 43 50 58 23 34 00 F7 |INX..".. CPX#4..| 00000310: 22 08 02 20 42 4E 45 53 43 48 4C 45 49 46 45 33 |".. BNESCHLEIFE3| 00000320: 00 17 23 12 02 3B 20 50 52 55 45 46 53 55 4D 4D |..#..; PRUEFSUMM| 00000330: 45 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E |E NICHT GEFUNDEN| 00000340: 00 1D 23 1C 02 3B 00 26 23 26 02 20 50 4C 41 00 |..#..;.&#&. PLA.| 00000350: 2F 23 30 02 20 50 4C 41 00 41 23 3A 02 20 4C 44 |/#0. PLA.A#:. LD| 00000360: 41 23 3C 28 54 45 58 54 33 29 00 53 23 44 02 20 |A#<(TEXT3).S#D. | 00000370: 4C 44 59 23 3E 28 54 45 58 54 33 29 00 62 23 4E |LDY#>(TEXT3).b#N| 00000380: 02 20 4A 53 52 53 54 52 4F 55 54 00 7C 23 58 02 |. JSRSTROUT.|#X.| 00000390: 20 4A 53 52 41 4E 46 41 4E 47 3B 20 56 4F 4E 20 | JSRANFANG; VON | 000003A0: 56 4F 52 4E 45 00 82 23 62 02 3B 00 A4 23 6C 02 |VORNE..#b.;..#l.| 000003B0: 57 45 49 54 45 52 32 20 4C 44 41 4C 4F 57 54 41 |WEITER2 LDALOWTA| 000003C0: 42 2C 58 3B 20 4C 4F 57 2D 42 59 54 45 00 C1 23 |B,X; LOW-BYTE..#| 000003D0: 76 02 20 4C 44 59 48 49 47 48 54 41 42 2C 58 3B |v. LDYHIGHTAB,X;| 000003E0: 20 48 49 47 48 2D 42 59 54 45 00 D0 23 80 02 20 | HIGH-BYTE..#.. | 000003F0: 4A 53 52 53 54 52 4F 55 54 00 ED 23 8A 02 20 4A |JSRSTROUT..#.. J| 00000400: 4D 50 41 4E 46 41 4E 47 3B 20 4E 4F 43 48 20 45 |MPANFANG; NOCH E| 00000410: 49 4E 4D 41 4C 21 00 F3 23 94 02 3B 00 F9 23 E8 |INMAL!..#..;..#.| 00000420: 03 3B 00 05 24 F2 03 3B 20 54 45 58 54 45 00 0B |.;..$..; TEXTE..| 00000430: 24 FC 03 3B 00 1B 24 06 04 54 45 58 54 31 20 2E |$..;..$..TEXT1 .| 00000440: 42 59 31 33 00 4E 24 10 04 2E 54 58 20 22 2D 2D |BY13.N$...TX "--| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000470: 2D 2D 2D 2D 2D 2D 22 00 64 24 1A 04 2E 54 58 20 |------".d$...TX | 00000480: 22 43 4F 4D 50 55 54 45 52 20 3A 20 22 00 6E 24 |"COMPUTER : ".n$| 00000490: 24 04 2E 42 59 20 30 00 74 24 2E 04 3B 00 84 24 |$..BY 0.t$..;..$| 000004A0: 38 04 54 45 58 54 32 20 2E 42 59 31 33 00 9A 24 |8.TEXT2 .BY13..$| 000004B0: 42 04 2E 54 58 20 22 50 52 4F 5A 45 53 53 4F 52 |B..TX "PROZESSOR| 000004C0: 3A 20 22 00 A4 24 4C 04 2E 42 59 20 30 00 AA 24 |: "..$L..BY 0..$| 000004D0: 56 04 3B 00 CA 24 60 04 54 45 58 54 33 20 2E 54 |V.;..$`.TEXT3 .T| 000004E0: 58 22 57 45 49 53 53 20 49 43 48 20 4E 49 43 48 |X"WEISS ICH NICH| 000004F0: 54 21 22 00 D4 24 6A 04 2E 42 59 20 30 00 DA 24 |T!"..$j..BY 0..$| 00000500: 74 04 3B 00 E0 24 7E 04 3B 00 F8 24 88 04 54 36 |t.;..$~.;..$..T6| 00000510: 35 30 32 20 2E 54 58 22 4D 4F 53 20 36 35 30 32 |502 .TX"MOS 6502| 00000520: 22 00 02 25 92 04 2E 42 59 20 30 00 08 25 9C 04 |"..%...BY 0..%..| 00000530: 3B 00 20 25 A6 04 54 36 35 31 30 20 2E 54 58 22 |;. %..T6510 .TX"| 00000540: 4D 4F 53 20 36 35 31 30 22 00 2A 25 B0 04 2E 42 |MOS 6510".*%...B| 00000550: 59 20 30 00 30 25 BA 04 3B 00 4E 25 C4 04 54 38 |Y 0.0%..;.N%..T8| 00000560: 35 30 32 20 2E 54 58 22 4D 4F 53 20 38 35 30 32 |502 .TX"MOS 8502| 00000570: 20 26 20 5A 38 30 22 00 58 25 CE 04 2E 42 59 20 | & Z80".X%...BY | 00000580: 30 00 5E 25 D8 04 3B 00 7D 25 E2 04 54 36 38 30 |0.^%..;.}%..T680| 00000590: 30 30 20 2E 54 58 22 4D 4F 54 4F 52 4F 4C 41 20 |00 .TX"MOTOROLA | 000005A0: 36 38 30 30 30 22 00 87 25 EC 04 2E 42 59 20 30 |68000"..%...BY 0| 000005B0: 00 8D 25 F6 04 3B 00 93 25 D0 07 3B 00 AD 25 DA |..%..;..%..;..%.| 000005C0: 07 3B 20 4E 55 4D 45 52 49 53 43 48 45 20 54 41 |.; NUMERISCHE TA| 000005D0: 42 45 4C 4C 45 4E 00 B3 25 E4 07 3B 00 E6 25 EE |BELLEN..%..;..%.| 000005E0: 07 4C 4F 57 54 41 42 20 2E 42 59 3C 28 54 36 35 |.LOWTAB .BY<(T65| 000005F0: 30 32 29 2C 3C 28 54 36 35 31 30 29 2C 3C 28 54 |02),<(T6510),<(T| 00000600: 38 35 30 32 29 2C 3C 28 54 36 38 30 30 30 29 00 |8502),<(T68000).| 00000610: 1A 26 F8 07 48 49 47 48 54 41 42 20 2E 42 59 3E |.&..HIGHTAB .BY>| 00000620: 28 54 36 35 30 32 29 2C 3E 28 54 36 35 31 30 29 |(T6502),>(T6510)| 00000630: 2C 3E 28 54 38 35 30 32 29 2C 3E 28 54 36 38 30 |,>(T8502),>(T680| 00000640: 30 30 29 00 20 26 02 08 3B 00 42 26 0C 08 50 52 |00). &..;.B&..PR| 00000650: 55 45 46 53 55 4D 4D 45 4E 20 2E 42 59 32 32 38 |UEFSUMMEN .BY228| 00000660: 2C 38 33 2C 31 34 39 2C 31 33 36 00 6A 26 16 08 |,83,149,136.j&..| 00000670: 3B 20 52 45 49 48 45 4E 46 4F 4C 47 45 3A 20 56 |; REIHENFOLGE: V| 00000680: 43 32 30 2C 43 36 34 2C 50 43 31 32 38 2C 41 4D |C20,C64,PC128,AM| 00000690: 49 47 41 00 70 26 B8 0B 3B 00 87 26 C2 0B 3B 20 |IGA.p&..;..&..; | 000006A0: 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 |ZWISCHENSPEICHER| 000006B0: 00 8D 26 CC 0B 3B 00 AF 26 D6 0B 4C 41 45 4E 47 |..&..;..&..LAENG| 000006C0: 45 20 2E 42 59 30 3B 20 5A 57 49 53 43 48 45 4E |E .BY0; ZWISCHEN| 000006D0: 53 50 45 49 43 48 45 52 00 BE 26 E0 0B 53 54 4F |SPEICHER..&..STO| 000006E0: 52 45 20 2E 42 59 30 00 E9 26 EA 0B 3B 20 5E 20 |RE .BY0..&..; ^ | 000006F0: 41 42 20 53 54 4F 52 45 20 57 49 52 44 20 44 49 |AB STORE WIRD DI| 00000700: 45 20 45 49 4E 47 41 42 45 20 41 42 47 45 4C 45 |E EINGABE ABGELE| 00000710: 47 54 00 00 00 |GT... |
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.E .. CMP#" "; SPACE?.. .. BEQSCHLEIFE1; DANN UEBERLESEN..!.. C MP#13; 13 = RETURN..!.. BEQWEITER1.!!.. STASTORE,X.*!.. INX.<!". JMPSCHLEIFE1.B! ,.;.X!6.WEITER1 STXLAENGE.J!@. LDA#<(TEX T2).|!J. LDY#>(TEXT2)..!T. JSRSTROUT..!^ . LDA#0..!H.; 0 = AUSGANGSWERT DER PRUEF SUMME.R!R. TAX; ZAEHLER = 0..!|.SCHLEIFE 2 ROL; PRUEFSUMME * 2..".. EORSTORE,X.." .. INX; ZAEHLER ERHOEHEN..".. CPXLAENGE. @".. BNESCHLEIFE2.I".. CLC.I".. ADCLAENG E; LAENGE ADDIEREN.."B.; HIER STEHT DIE PRUEFSUMME IM AKKU.."L.;.."V. LDX#0.A".. SCHLEIFE3 CMPPRUEFSUMMEN,X.Q".. BEQWEITE R2.Z".. INX..".. CPX#4..".. BNESCHLEIFE3 ..#..; PRUEFSUMME NICHT GEFUNDEN..#..;.& #&. PLA./#0. PLA.A#:. LDA#<(TEXT3).S#D. LDY#>(TEXT3).B#N. JSRSTROUT.|#X. JSRANFA NG; VON VORNE..#B.;..#L.WEITER2 LDALOWTA B,X; LOW-BYTE.A#V. LDYHIGHTAB,X; HIGH-BY TE.P#.. JSRSTROUT..#.. JMPANFANG; NOCH E INMAL!..#..;..#..;..$..; TEXTE..$..;..$. .TEXT1 .BY13.N$...TX "------------------ ----------------------".D$...TX "COMPUTE R : ".N$$..BY 0.T$..;..$8.TEXT2 .BY13..$ B..TX "PROZESSOR: "..$L..BY 0..$V.;.J$`. TEXT3 .TX"WEISS ICH NICHT!".T$J..BY 0.Z$ T.;..$~.;..$..T6502 .TX"MOS 6502"..%...B Y 0..%..;. %..T6510 .TX"MOS 6510".*%...B Y 0.0%..;.N%D.T8502 .TX"MOS 8502 & Z80". X%N..BY 0.^%X.;.}%..T68000 .TX"MOTOROLA 68000"..%...BY 0..%..;..%P.;..%Z.; NUMER ISCHE TABELLEN..%..;..%..LOWTAB .BY<(T65 02),<(T6510),<(T8502),<(T68000)..&..HIGH TAB .BY>(T6502),>(T6510),>(T8502),>(T680 00). &..;.B&..PRUEFSUMMEN .BY228,83,149, 136.J&..; REIHENFOLGE: VC20,C64,PC128,AM IGA.P&..;..&B.; ZWISCHENSPEICHER..&L.;.. &V.LAENGE .BY0; ZWISCHENSPEICHER..&..STO RE .BY0..&..; ^ AB STORE WIRD DIE EINGAB E ABGELEGT...
> CLICK IMAGE PREVIEW FOR FULL MODAL