LISTING 10.7 (S)
FILE INFORMATION
FILENAME(S): LISTING 10.7 (S)
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 1 disk(s)
FILE HASH
205e2ceee0a5d58968812639b9cbd3c44b1de6eb70dd28d318b4473888b7163f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.7 (S) | PRG | Treasure Chest - Klaus Der Suhler | 22 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F9 1F 64 00 2E 42 41 20 24 43 30 30 30 20 |....d..BA $C000 | 00000010: 3B 20 53 54 41 52 54 3A 20 53 59 53 20 34 39 31 |; START: SYS 491| 00000020: 35 32 00 FF 1F 6E 00 3B 00 22 20 78 00 3B 20 55 |52...n.;." x.; U| 00000030: 4E 54 45 52 50 52 4F 47 52 41 4D 4D 56 45 52 53 |NTERPROGRAMMVERS| 00000040: 43 48 41 43 48 54 45 4C 55 4E 47 00 46 20 82 00 |CHACHTELUNG.F ..| 00000050: 3B 20 28 4F 50 54 49 4D 49 45 52 54 45 20 41 53 |; (OPTIMIERTE AS| 00000060: 53 45 4D 42 4C 45 52 56 45 52 53 49 4F 4E 29 00 |SEMBLERVERSION).| 00000070: 4C 20 8C 00 3B 00 63 20 96 00 2E 47 4C 20 53 54 |L ..;.c ...GL ST| 00000080: 52 4F 55 54 20 3D 20 24 41 42 31 45 00 69 20 A0 |ROUT = $AB1E.i .| 00000090: 00 3B 00 81 20 AA 00 2E 4D 41 20 50 52 49 4E 54 |.;.. ...MA PRINT| 000000A0: 20 28 41 44 52 45 53 53 45 29 00 95 20 B4 00 20 | (ADRESSE).. .. | 000000B0: 4C 44 41 23 3C 28 41 44 52 45 53 53 45 29 00 A9 |LDA#<(ADRESSE)..| 000000C0: 20 BE 00 20 4C 44 59 23 3E 28 41 44 52 45 53 53 | .. LDY#>(ADRESS| 000000D0: 45 29 00 B8 20 C8 00 20 4A 53 52 53 54 52 4F 55 |E).. .. JSRSTROU| 000000E0: 54 00 C0 20 D2 00 2E 52 54 00 C6 20 F4 01 3B 00 |T.. ...RT.. ..;.| 000000F0: EA 20 FE 01 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. ..; ----------| 00000100: 2D 2D 2D 2D 2D 20 48 41 55 50 54 50 52 4F 47 52 |----- HAUPTPROGR| 00000110: 41 4D 4D 00 F0 20 08 02 3B 00 05 21 12 02 2E 2E |AMM.. ..;..!....| 00000120: 2E 50 52 49 4E 54 20 28 54 45 58 54 31 29 00 0B |.PRINT (TEXT1)..| 00000130: 21 1C 02 3B 00 17 21 26 02 20 4A 53 52 55 50 31 |!..;..!&. JSRUP1| 00000140: 00 42 21 30 02 3B 20 20 20 20 20 20 20 20 20 5E |.B!0.; ^| 00000150: 20 41 55 46 52 55 46 20 56 4F 4E 20 55 4E 54 45 | AUFRUF VON UNTE| 00000160: 52 50 52 4F 47 52 41 4D 4D 20 31 00 48 21 3A 02 |RPROGRAMM 1.H!:.| 00000170: 3B 00 5D 21 44 02 2E 2E 2E 50 52 49 4E 54 20 28 |;.]!D....PRINT (| 00000180: 54 45 58 54 32 29 00 63 21 4E 02 3B 00 7C 21 58 |TEXT2).c!N.;.|!X| 00000190: 02 20 4A 4D 50 24 41 34 37 34 3B 20 57 41 52 4D |. JMP$A474; WARM| 000001A0: 53 54 41 52 54 00 82 21 62 02 3B 00 88 21 E8 03 |START..!b.;..!..| 000001B0: 3B 00 AE 21 F2 03 3B 20 2D 2D 2D 2D 2D 2D 2D 2D |;..!..; --------| 000001C0: 2D 2D 2D 2D 2D 2D 2D 20 55 4E 54 45 52 50 52 4F |------- UNTERPRO| 000001D0: 47 52 41 4D 4D 20 31 00 B4 21 FC 03 3B 00 D4 21 |GRAMM 1..!..;..!| 000001E0: 06 04 55 50 31 20 2E 42 41 55 50 31 3B 20 42 45 |..UP1 .BAUP1; BE| 000001F0: 4C 49 45 42 49 47 45 52 20 43 4F 44 45 00 E9 21 |LIEBIGER CODE..!| 00000200: 10 04 2E 2E 2E 50 52 49 4E 54 20 28 54 45 58 54 |.....PRINT (TEXT| 00000210: 33 29 00 EF 21 1A 04 3B 00 F5 21 24 04 3B 00 FB |3)..!..;..!$.;..| 00000220: 21 D0 07 3B 00 2A 22 DA 07 3B 20 2D 2D 2D 2D 2D |!..;.*"..; -----| 00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 43 4F 44 45 20 |---------- CODE | 00000240: 56 4F 4E 20 55 4E 54 45 52 50 52 4F 47 52 41 4D |VON UNTERPROGRAM| 00000250: 4D 20 32 00 30 22 E4 07 3B 00 50 22 EE 07 55 50 |M 2.0"..;.P"..UP| 00000260: 32 20 2E 42 41 55 50 32 3B 20 42 45 4C 49 45 42 |2 .BAUP2; BELIEB| 00000270: 49 47 45 52 20 43 4F 44 45 00 6C 22 F8 07 20 4C |IGER CODE.l".. L| 00000280: 44 41 23 3C 28 54 45 58 54 34 29 3B 20 4C 4F 57 |DA#<(TEXT4); LOW| 00000290: 2D 42 59 54 45 00 89 22 02 08 20 4C 44 59 23 3E |-BYTE..".. LDY#>| 000002A0: 28 54 45 58 54 34 29 3B 20 48 49 47 48 2D 42 59 |(TEXT4); HIGH-BY| 000002B0: 54 45 00 A5 22 0C 08 20 4A 4D 50 53 54 52 4F 55 |TE..".. JMPSTROU| 000002C0: 54 3B 20 54 45 58 54 41 55 53 47 41 42 45 00 CE |T; TEXTAUSGABE..| 000002D0: 22 16 08 3B 20 55 4E 44 20 52 55 45 43 4B 53 50 |"..; UND RUECKSP| 000002E0: 52 55 4E 47 20 56 4F 4D 20 55 4E 54 45 52 50 52 |RUNG VOM UNTERPR| 000002F0: 4F 47 52 41 4D 4D 2C 00 F4 22 20 08 3B 20 57 45 |OGRAMM,.." .; WE| 00000300: 49 4C 20 41 4D 20 45 4E 44 45 20 44 45 52 20 53 |IL AM ENDE DER S| 00000310: 54 52 4F 55 54 2D 52 4F 55 54 49 4E 45 00 10 23 |TROUT-ROUTINE..#| 00000320: 2A 08 3B 20 45 49 4E 20 52 54 53 2D 42 45 46 45 |*.; EIN RTS-BEFE| 00000330: 48 4C 20 53 54 45 48 54 2E 00 16 23 34 08 3B 00 |HL STEHT...#4.;.| 00000340: 1C 23 10 27 3B 00 38 23 1A 27 3B 20 2D 2D 2D 2D |.#.';.8#.'; ----| 00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 54 45 58 54 |----------- TEXT| 00000360: 45 00 3E 23 24 27 3B 00 69 23 2E 27 54 45 58 54 |E.>#$';.i#.'TEXT| 00000370: 31 20 2E 54 58 22 48 49 45 52 20 49 53 54 20 44 |1 .TX"HIER IST D| 00000380: 41 53 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D |AS HAUPTPROGRAMM| 00000390: 2E 22 00 85 23 38 27 2E 42 59 20 31 33 2C 31 33 |."..#8'.BY 13,13| 000003A0: 20 3B 20 31 20 4C 45 45 52 5A 45 49 4C 45 00 9F | ; 1 LEERZEILE..| 000003B0: 23 42 27 2E 42 59 20 30 20 3B 20 45 4E 44 4D 41 |#B'.BY 0 ; ENDMA| 000003C0: 52 4B 49 45 52 55 4E 47 00 A5 23 4C 27 3B 00 D7 |RKIERUNG..#L';..| 000003D0: 23 56 27 54 45 58 54 32 20 2E 54 58 22 48 49 45 |#V'TEXT2 .TX"HIE| 000003E0: 52 20 49 53 54 20 57 49 45 44 45 52 20 44 41 53 |R IST WIEDER DAS| 000003F0: 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 2E 22 | HAUPTPROGRAMM."| 00000400: 00 E7 23 60 27 2E 42 59 20 31 33 2C 31 33 2C 30 |..#`'.BY 13,13,0| 00000410: 00 ED 23 6A 27 3B 00 1A 24 74 27 54 45 58 54 33 |..#j';..$t'TEXT3| 00000420: 20 2E 54 58 22 48 49 45 52 20 49 53 54 20 44 41 | .TX"HIER IST DA| 00000430: 53 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 |S UNTERPROGRAMM | 00000440: 31 2E 22 00 2A 24 7E 27 2E 42 59 20 31 33 2C 31 |1.".*$~'.BY 13,1| 00000450: 33 2C 30 00 30 24 88 27 3B 00 5D 24 92 27 54 45 |3,0.0$.';.]$.'TE| 00000460: 58 54 34 20 2E 54 58 22 48 49 45 52 20 49 53 54 |XT4 .TX"HIER IST| 00000470: 20 44 41 53 20 55 4E 54 45 52 50 52 4F 47 52 41 | DAS UNTERPROGRA| 00000480: 4D 4D 20 32 2E 22 00 6D 24 9C 27 2E 42 59 20 31 |MM 2.".m$.'.BY 1| 00000490: 33 2C 31 33 2C 30 00 00 00 |3,13,0... |
X...D..BA $C000 ; START: SYS 49152...N.; ." X.; UNTERPROGRAMMVERSCHACHTELUNG.F .. ; (OPTIMIERTE ASSEMBLERVERSION).L ..;.C ...GL STROUT = $AB1E.I .;.. ...MA PRINT (ADRESSE).. .. LDA#<(ADRESSE).. .. LDY# >(ADRESSE).. H. JSRSTROUT.. R..RT.F ..;. . ..; --------------- HAUPTPROGRAMM.. .. ;..!.....PRINT (TEXT1)..!..;..!&. JSRUP1 .B!0.; ^ AUFRUF VON UNTERPROGRAM M 1.H!:.;.]!D....PRINT (TEXT2).C!N.;.|!X . JMP$A474; WARMSTART..!B.;..!..;..!..; --------------- UNTERPROGRAMM 1..!..;.T! ..UP1 .BAUP1; BELIEBIGER CODE..!.....PRI NT (TEXT3)..!..;..!$.;..!P.;.*"Z.; ----- ---------- CODE VON UNTERPROGRAMM 2.0".. ;.P"..UP2 .BAUP2; BELIEBIGER CODE.L".. L DA#<(TEXT4); LOW-BYTE..".. LDY#>(TEXT4); HIGH-BYTE..".. JMPSTROUT; TEXTAUSGABE.N "..; UND RUECKSPRUNG VOM UNTERPROGRAMM,. ." .; WEIL AM ENDE DER STROUT-ROUTINE..# *.; EIN RTS-BEFEHL STEHT...#4.;..#.';.8# .'; --------------- TEXTE.>#$';.I#.'TEXT 1 .TX"HIER IST DAS HAUPTPROGRAMM."..#8'. BY 13,13 ; 1 LEERZEILE..#B'.BY 0 ; ENDMA RKIERUNG..#L';.W#V'TEXT2 .TX"HIER IST WI EDER DAS HAUPTPROGRAMM."..#`'.BY 13,13,0 ..#J';..$T'TEXT3 .TX"HIER IST DAS UNTERP ROGRAMM 1.".*$~'.BY 13,13,0.0$.';.]$.'TE XT4 .TX"HIER IST DAS UNTERPROGRAMM 2.".M $.'.BY 13,13,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL