LISTING 5

FILE INFORMATION

FILENAME(S): LISTING 5

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 3 disk(s)

FILE HASH

5e566e0d33c2e740d15904e1d91fc65dd735a7eb4bba369773eb97315719c38c

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT ASS	LISTING 5	PRG	Treasure Chest - ToGuMi	16	14	DOWNLOAD FILE
SONDERHEFT ASS	LISTING 5	PRG	C64er	16	14	DOWNLOAD FILE
15835 SEITE A	LISTING 5	PRG	C64er	16	7	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: EC 1F 6E 00 3B 00 06 20  78 00 3B 20 44 52 55 43  |..n.;.. x.; DRUC|
00000020: 4B 45 52 2D 41 55 53 47  41 42 45 20 4D 49 54 00  |KER-AUSGABE MIT.|
00000030: 1F 20 82 00 3B 20 44 45  52 20 53 54 52 4F 55 54  |. ..; DER STROUT|
00000040: 2D 52 4F 55 54 49 4E 45  00 25 20 8C 00 3B 00 3C  |-ROUTINE.% ..;.<|
00000050: 20 96 00 2E 47 4C 20 53  54 52 4F 55 54 20 3D 20  | ...GL STROUT = |
00000060: 24 41 42 31 45 00 63 20  A0 00 2E 47 4C 20 53 45  |$AB1E.c ...GL SE|
00000070: 54 4E 41 4D 20 3D 20 24  46 46 42 44 20 3B 20 44  |TNAM = $FFBD ; D|
00000080: 49 45 20 42 45 44 45 55  54 55 4E 47 00 8C 20 AA  |IE BEDEUTUNG.. .|
00000090: 00 2E 47 4C 20 53 45 54  4C 46 53 20 3D 20 24 46  |..GL SETLFS = $F|
000000A0: 46 42 41 20 3B 20 44 49  45 53 45 52 20 52 4F 55  |FBA ; DIESER ROU|
000000B0: 54 49 4E 45 4E 00 B3 20  B4 00 2E 47 4C 20 4F 50  |TINEN.. ...GL OP|
000000C0: 45 4E 20 20 20 3D 20 24  46 46 43 30 20 3B 20 45  |EN   = $FFC0 ; E|
000000D0: 4E 54 4E 45 48 4D 45 4E  20 53 49 45 00 DB 20 BE  |NTNEHMEN SIE.. .|
000000E0: 00 2E 47 4C 20 43 48 4B  4F 55 54 20 3D 20 24 46  |..GL CHKOUT = $F|
000000F0: 46 43 39 20 3B 20 42 49  54 54 45 20 44 45 4D 20  |FC9 ; BITTE DEM |
00000100: 4B 55 52 53 00 03 21 C8  00 2E 47 4C 20 43 4C 52  |KURS..!...GL CLR|
00000110: 43 48 4E 20 3D 20 24 46  46 43 43 20 3B 20 22 41  |CHN = $FFCC ; "A|
00000120: 53 53 45 4D 42 4C 45 52  20 49 53 54 00 2C 21 D2  |SSEMBLER IST.,!.|
00000130: 00 2E 47 4C 20 43 4C 4F  53 45 20 20 3D 20 24 46  |..GL CLOSE  = $F|
00000140: 46 43 33 20 3B 20 4B 45  49 4E 45 20 41 4C 43 48  |FC3 ; KEINE ALCH|
00000150: 49 4D 49 45 22 00 32 21  DC 00 3B 00 4A 21 E6 00  |IMIE".2!..;.J!..|
00000160: 2E 4D 41 20 50 52 49 4E  54 20 28 41 44 52 45 53  |.MA PRINT (ADRES|
00000170: 53 45 29 00 5E 21 F0 00  20 4C 44 41 23 3C 28 41  |SE).^!.. LDA#<(A|
00000180: 44 52 45 53 53 45 29 00  72 21 FA 00 20 4C 44 59  |DRESSE).r!.. LDY|
00000190: 23 3E 28 41 44 52 45 53  53 45 29 00 81 21 04 01  |#>(ADRESSE)..!..|
000001A0: 20 4A 53 52 53 54 52 4F  55 54 00 89 21 0E 01 2E  | JSRSTROUT..!...|
000001B0: 52 54 00 8F 21 18 01 3B  00 B0 21 22 01 2E 42 41  |RT..!..;..!"..BA|
000001C0: 20 24 43 30 30 30 20 3B  20 53 54 41 52 54 3A 20  | $C000 ; START: |
000001D0: 53 59 53 20 34 39 31 35  32 00 B6 21 2C 01 3B 00  |SYS 49152..!,.;.|
000001E0: C9 21 36 01 20 4C 44 41  23 30 3B 20 4B 45 49 4E  |.!6. LDA#0; KEIN|
000001F0: 45 4E 00 E3 21 40 01 20  4A 53 52 53 45 54 4E 41  |EN..!@. JSRSETNA|
00000200: 4D 3B 20 46 49 4C 45 4E  41 4D 45 4E 00 E9 21 4A  |M; FILENAMEN..!J|
00000210: 01 3B 00 08 22 54 01 20  4C 44 41 23 34 3B 20 4C  |.;.."T. LDA#4; L|
00000220: 4F 47 2E 20 46 49 4C 45  4E 55 4D 4D 45 52 20 3D  |OG. FILENUMMER =|
00000230: 34 00 23 22 5E 01 20 54  41 58 3B 20 47 45 52 41  |4.#"^. TAX; GERA|
00000240: 45 54 45 41 44 52 45 53  53 45 20 34 00 42 22 68  |ETEADRESSE 4.B"h|
00000250: 01 20 4C 44 59 23 30 3B  20 53 45 4B 55 4E 44 41  |. LDY#0; SEKUNDA|
00000260: 45 52 41 44 52 45 53 53  45 20 30 00 63 22 72 01  |ERADRESSE 0.c"r.|
00000270: 20 4A 53 52 53 45 54 4C  46 53 3B 20 50 41 52 41  | JSRSETLFS; PARA|
00000280: 4D 45 54 45 52 20 53 45  54 5A 45 4E 00 69 22 7C  |METER SETZEN.i"||
00000290: 01 3B 00 84 22 86 01 20  4A 53 52 4F 50 45 4E 3B  |.;..".. JSROPEN;|
000002A0: 20 46 49 4C 45 20 4F 45  46 46 4E 45 4E 00 8A 22  | FILE OEFFNEN.."|
000002B0: 90 01 3B 00 A3 22 9A 01  20 4C 44 58 23 34 3B 20  |..;..".. LDX#4; |
000002C0: 46 49 4C 45 4E 55 4D 4D  45 52 20 34 00 CE 22 A4  |FILENUMMER 4..".|
000002D0: 01 20 4A 53 52 43 48 4B  4F 55 54 3B 20 41 55 53  |. JSRCHKOUT; AUS|
000002E0: 47 41 42 45 20 41 55 46  20 44 52 55 43 4B 45 52  |GABE AUF DRUCKER|
000002F0: 20 4C 45 4E 4B 45 4E 00  D4 22 AE 01 3B 00 F8 22  | LENKEN.."..;.."|
00000300: B8 01 2E 2E 2E 50 52 49  4E 54 20 28 54 45 58 54  |.....PRINT (TEXT|
00000310: 29 20 3B 20 54 45 58 54  20 41 55 53 47 45 42 45  |) ; TEXT AUSGEBE|
00000320: 4E 00 FE 22 C2 01 3B 00  27 23 CC 01 20 4A 53 52  |N.."..;.'#.. JSR|
00000330: 43 4C 52 43 48 4E 3B 20  57 49 45 44 45 52 20 42  |CLRCHN; WIEDER B|
00000340: 49 4C 44 53 43 48 49 52  4D 41 55 53 47 41 42 45  |ILDSCHIRMAUSGABE|
00000350: 00 2D 23 D6 01 3B 00 58  23 E0 01 2E 2E 2E 50 52  |.-#..;.X#.....PR|
00000360: 49 4E 54 20 28 54 45 58  54 29 20 3B 20 4A 45 54  |INT (TEXT) ; JET|
00000370: 5A 54 20 41 55 46 20 42  49 4C 44 53 43 48 49 52  |ZT AUF BILDSCHIR|
00000380: 4D 00 5E 23 EA 01 3B 00  7C 23 F4 01 20 4C 44 41  |M.^#..;.|#.. LDA|
00000390: 23 34 3B 20 4C 4F 47 2E  20 46 49 4C 45 4E 55 4D  |#4; LOG. FILENUM|
000003A0: 4D 45 52 20 34 00 9B 23  FE 01 20 4A 4D 50 43 4C  |MER 4..#.. JMPCL|
000003B0: 4F 53 45 3B 20 46 49 4C  45 20 53 43 48 4C 49 45  |OSE; FILE SCHLIE|
000003C0: 53 53 45 4E 00 B4 23 08  02 3B 20 26 20 50 52 4F  |SSEN..#..; & PRO|
000003D0: 47 52 41 4D 4D 20 42 45  45 4E 44 45 4E 00 BA 23  |GRAMM BEENDEN..#|
000003E0: 12 02 3B 00 DD 23 1C 02  54 45 58 54 20 2E 54 58  |..;..#..TEXT .TX|
000003F0: 22 44 49 45 53 45 52 20  54 45 58 54 20 57 49 52  |"DIESER TEXT WIR|
00000400: 44 20 41 55 46 22 00 01  24 26 02 2E 54 58 20 22  |D AUF"..$&..TX "|
00000410: 20 44 45 4E 20 44 52 55  43 4B 45 52 20 41 55 53  | DEN DRUCKER AUS|
00000420: 47 45 47 45 42 45 4E 20  21 22 00 25 24 30 02 2E  |GEGEBEN !".%$0..|
00000430: 42 59 20 31 33 2C 31 33  2C 31 33 2C 30 20 3B 20  |BY 13,13,13,0 ; |
00000440: 33 20 2A 20 43 41 52 2E  52 45 54 55 52 4E 00 00  |3 * CAR.RETURN..|
00000450: 00                                                |.               |

X...D..LI 1,3,0...N.;.. X.; DRUCKER-AUSG
ABE MIT.. ..; DER STROUT-ROUTINE.% ..;.<
 ...GL STROUT = $AB1E.C  ..GL SETNAM = $
FFBD ; DIE BEDEUTUNG.. ...GL SETLFS = $F
FBA ; DIESER ROUTINEN.. ...GL OPEN   = $
FFC0 ; ENTNEHMEN SIE.. ...GL CHKOUT = $F
FC9 ; BITTE DEM KURS..!H..GL CLRCHN = $F
FCC ; "ASSEMBLER IST.,!R..GL CLOSE  = $F
FC3 ; KEINE ALCHIMIE".2!..;.J!...MA PRIN
T (ADRESSE).^!.. LDA#<(ADRESSE).R!.. LDY
#>(ADRESSE)..!.. JSRSTROUT..!...RT..!..;
..!"..BA $C000 ; START: SYS 49152..!,.;.
I!6. LDA#0; KEINEN..!@. JSRSETNAM; FILEN
AMEN..!J.;.."T. LDA#4; LOG. FILENUMMER =
4.#"^. TAX; GERAETEADRESSE 4.B"H. LDY#0;
 SEKUNDAERADRESSE 0.C"R. JSRSETLFS; PARA
METER SETZEN.I"|.;..".. JSROPEN; FILE OE
FFNEN.."..;..".. LDX#4; FILENUMMER 4.N".
. JSRCHKOUT; AUSGABE AUF DRUCKER LENKEN.
T"..;..".....PRINT (TEXT) ; TEXT AUSGEBE
N.."B.;.'#L. JSRCLRCHN; WIEDER BILDSCHIR
MAUSGABE.-#V.;.X#.....PRINT (TEXT) ; JET
ZT AUF BILDSCHIRM.^#..;.|#.. LDA#4; LOG.
 FILENUMMER 4..#.. JMPCLOSE; FILE SCHLIE
SSEN..#..; & PROGRAMM BEENDEN..#..;..#..
TEXT .TX"DIESER TEXT WIRD AUF"..$&..TX "
 DEN DRUCKER AUSGEGEBEN !".%$0..BY 13,13
,13,0 ; 3 * CAR.RETURN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL