LISTING 10.5 (S)
FILE INFORMATION
FILENAME(S): LISTING 10.5 (S)
FILE TYPE(S): PRG
FILE SIZE: 989b
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 1 disk(s)
FILE HASH
016ae8d0c479780e50553f930753064391c3f5029a651ef40f44e8a11de3a830
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.5 (S) | PRG | Treasure Chest - Klaus Der Suhler | 21 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 64 00 3B 00 F8 1F 6E 00 3B 20 44 52 |....d.;...n.; DR| 00000010: 55 43 4B 45 52 2D 41 55 53 47 41 42 45 20 4D 49 |UCKER-AUSGABE MI| 00000020: 54 00 11 20 78 00 3B 20 44 45 52 20 53 54 52 4F |T.. x.; DER STRO| 00000030: 55 54 2D 52 4F 55 54 49 4E 45 00 17 20 82 00 3B |UT-ROUTINE.. ..;| 00000040: 00 2E 20 8C 00 2E 47 4C 20 53 54 52 4F 55 54 20 |.. ...GL STROUT | 00000050: 3D 20 24 41 42 31 45 00 45 20 96 00 2E 47 4C 20 |= $AB1E.E ...GL | 00000060: 53 45 54 4E 41 4D 20 3D 20 24 46 46 42 44 00 5C |SETNAM = $FFBD.\| 00000070: 20 A0 00 2E 47 4C 20 53 45 54 4C 46 53 20 3D 20 | ...GL SETLFS = | 00000080: 24 46 46 42 41 00 73 20 AA 00 2E 47 4C 20 4F 50 |$FFBA.s ...GL OP| 00000090: 45 4E 20 20 20 3D 20 24 46 46 43 30 00 8A 20 B4 |EN = $FFC0.. .| 000000A0: 00 2E 47 4C 20 43 48 4B 4F 55 54 20 3D 20 24 46 |..GL CHKOUT = $F| 000000B0: 46 43 39 00 A1 20 BE 00 2E 47 4C 20 43 4C 52 43 |FC9.. ...GL CLRC| 000000C0: 48 4E 20 3D 20 24 46 46 43 43 00 B8 20 C8 00 2E |HN = $FFCC.. ...| 000000D0: 47 4C 20 43 4C 4F 53 45 20 20 3D 20 24 46 46 43 |GL CLOSE = $FFC| 000000E0: 33 00 BE 20 D2 00 3B 00 D6 20 2C 01 2E 4D 41 20 |3.. ..;.. ,..MA | 000000F0: 50 52 49 4E 54 20 28 41 44 52 45 53 53 45 29 00 |PRINT (ADRESSE).| 00000100: EA 20 36 01 20 4C 44 41 23 3C 28 41 44 52 45 53 |. 6. LDA#<(ADRES| 00000110: 53 45 29 00 FE 20 40 01 20 4C 44 59 23 3E 28 41 |SE).. @. LDY#>(A| 00000120: 44 52 45 53 53 45 29 00 0D 21 4A 01 20 4A 53 52 |DRESSE)..!J. JSR| 00000130: 53 54 52 4F 55 54 00 15 21 54 01 2E 52 54 00 1B |STROUT..!T..RT..| 00000140: 21 5E 01 3B 00 3C 21 90 01 2E 42 41 20 24 43 30 |!^.;.<!...BA $C0| 00000150: 30 30 20 3B 20 53 54 41 52 54 3A 20 53 59 53 20 |00 ; START: SYS | 00000160: 34 39 31 35 32 00 42 21 9A 01 3B 00 55 21 F4 01 |49152.B!..;.U!..| 00000170: 20 4C 44 41 23 30 3B 20 4B 45 49 4E 45 4E 00 6F | LDA#0; KEINEN.o| 00000180: 21 FE 01 20 4A 53 52 53 45 54 4E 41 4D 3B 20 46 |!.. JSRSETNAM; F| 00000190: 49 4C 45 4E 41 4D 45 4E 00 75 21 08 02 3B 00 94 |ILENAMEN.u!..;..| 000001A0: 21 58 02 20 4C 44 41 23 34 3B 20 4C 4F 47 2E 20 |!X. LDA#4; LOG. | 000001B0: 46 49 4C 45 4E 55 4D 4D 45 52 20 3D 34 00 AF 21 |FILENUMMER =4..!| 000001C0: 62 02 20 54 41 58 3B 20 47 45 52 41 45 54 45 41 |b. TAX; GERAETEA| 000001D0: 44 52 45 53 53 45 20 34 00 CE 21 6C 02 20 4C 44 |DRESSE 4..!l. LD| 000001E0: 59 23 30 3B 20 53 45 4B 55 4E 44 41 45 52 41 44 |Y#0; SEKUNDAERAD| 000001F0: 52 45 53 53 45 20 30 00 EF 21 76 02 20 4A 53 52 |RESSE 0..!v. JSR| 00000200: 53 45 54 4C 46 53 3B 20 50 41 52 41 4D 45 54 45 |SETLFS; PARAMETE| 00000210: 52 20 53 45 54 5A 45 4E 00 F5 21 80 02 3B 00 10 |R SETZEN..!..;..| 00000220: 22 BC 02 20 4A 53 52 4F 50 45 4E 3B 20 46 49 4C |".. JSROPEN; FIL| 00000230: 45 20 4F 45 46 46 4E 45 4E 00 16 22 C6 02 3B 00 |E OEFFNEN.."..;.| 00000240: 2F 22 20 03 20 4C 44 58 23 34 3B 20 46 49 4C 45 |/" . LDX#4; FILE| 00000250: 4E 55 4D 4D 45 52 20 34 00 5A 22 2A 03 20 4A 53 |NUMMER 4.Z"*. JS| 00000260: 52 43 48 4B 4F 55 54 3B 20 41 55 53 47 41 42 45 |RCHKOUT; AUSGABE| 00000270: 20 41 55 46 20 44 52 55 43 4B 45 52 20 4C 45 4E | AUF DRUCKER LEN| 00000280: 4B 45 4E 00 60 22 34 03 3B 00 84 22 84 03 2E 2E |KEN.`"4.;.."....| 00000290: 2E 50 52 49 4E 54 20 28 54 45 58 54 29 20 3B 20 |.PRINT (TEXT) ; | 000002A0: 54 45 58 54 20 41 55 53 47 45 42 45 4E 00 8A 22 |TEXT AUSGEBEN.."| 000002B0: 8E 03 3B 00 B3 22 98 03 20 4A 53 52 43 4C 52 43 |..;..".. JSRCLRC| 000002C0: 48 4E 3B 20 57 49 45 44 45 52 20 42 49 4C 44 53 |HN; WIEDER BILDS| 000002D0: 43 48 49 52 4D 41 55 53 47 41 42 45 00 B9 22 A2 |CHIRMAUSGABE..".| 000002E0: 03 3B 00 E4 22 AC 03 2E 2E 2E 50 52 49 4E 54 20 |.;..".....PRINT | 000002F0: 28 54 45 58 54 29 20 3B 20 4A 45 54 5A 54 20 41 |(TEXT) ; JETZT A| 00000300: 55 46 20 42 49 4C 44 53 43 48 49 52 4D 00 EA 22 |UF BILDSCHIRM.."| 00000310: B6 03 3B 00 08 23 C0 03 20 4C 44 41 23 34 3B 20 |..;..#.. LDA#4; | 00000320: 4C 4F 47 2E 20 46 49 4C 45 4E 55 4D 4D 45 52 20 |LOG. FILENUMMER | 00000330: 34 00 27 23 CA 03 20 4A 4D 50 43 4C 4F 53 45 3B |4.'#.. JMPCLOSE;| 00000340: 20 46 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E | FILE SCHLIESSEN| 00000350: 00 40 23 D4 03 3B 20 26 20 50 52 4F 47 52 41 4D |.@#..; & PROGRAM| 00000360: 4D 20 42 45 45 4E 44 45 4E 00 46 23 DE 03 3B 00 |M BEENDEN.F#..;.| 00000370: 69 23 E8 03 54 45 58 54 20 2E 54 58 22 44 49 45 |i#..TEXT .TX"DIE| 00000380: 53 45 52 20 54 45 58 54 20 57 49 52 44 20 41 55 |SER TEXT WIRD AU| 00000390: 46 22 00 8D 23 F2 03 2E 54 58 20 22 20 44 45 4E |F"..#...TX " DEN| 000003A0: 20 44 52 55 43 4B 45 52 20 41 55 53 47 45 47 45 | DRUCKER AUSGEGE| 000003B0: 42 45 4E 20 21 22 00 B1 23 FC 03 2E 42 59 20 31 |BEN !"..#...BY 1| 000003C0: 33 2C 31 33 2C 31 33 2C 30 20 3B 20 33 20 2A 20 |3,13,13,0 ; 3 * | 000003D0: 43 41 52 2E 52 45 54 55 52 4E 00 00 00 |CAR.RETURN... |
X...D.;...N.; DRUCKER-AUSGABE MIT.. X.; DER STROUT-ROUTINE.. ..;.. ...GL STROUT = $AB1E.E ...GL SETNAM = $FFBD.\ ..GL S ETLFS = $FFBA.S ...GL OPEN = $FFC0.. . ..GL CHKOUT = $FFC9.. ...GL CLRCHN = $FF CC.. H..GL CLOSE = $FFC3.. R.;.V ,..MA PRINT (ADRESSE).. 6. LDA#<(ADRESSE).. @. LDY#>(ADRESSE)..!J. JSRSTROUT..!T..RT.. !^.;.<!...BA $C000 ; START: SYS 49152.B! ..;.U!.. LDA#0; KEINEN.O!.. JSRSETNAM; F ILENAMEN.U!..;..!X. LDA#4; LOG. FILENUMM ER =4..!B. TAX; GERAETEADRESSE 4.N!L. LD Y#0; SEKUNDAERADRESSE 0..!V. JSRSETLFS; PARAMETER SETZEN..!..;..".. JSROPEN; FIL E OEFFNEN.."F.;./" . LDX#4; FILENUMMER 4 .Z"*. JSRCHKOUT; AUSGABE AUF DRUCKER LEN KEN.`"4.;..".....PRINT (TEXT) ; TEXT AUS GEBEN.."..;..".. JSRCLRCHN; WIEDER BILDS CHIRMAUSGABE.."..;..".....PRINT (TEXT) ; JETZT AUF BILDSCHIRM.."..;..#.. LDA#4; LOG. FILENUMMER 4.'#J. JMPCLOSE; FILE SC HLIESSEN.@#T.; & PROGRAMM BEENDEN.F#..;. I#..TEXT .TX"DIESER TEXT WIRD AUF"..#... TX " DEN DRUCKER AUSGEGEBEN !"..#...BY 1 3,13,13,0 ; 3 * CAR.RETURN...
> CLICK IMAGE PREVIEW FOR FULL MODAL