_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LISTING 10.6 (S)

FILE INFORMATION

FILENAME(S): LISTING 10.6 (S)

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-20 14:31:28

APPEARS ON: 1 disk(s)

FILE HASH

a00590feeb85285d811c0c52ab6a1e5f021793b6db496a687de009e4d593bd8d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MT90499 SEITE 2 LISTING 10.6 (S) PRG Treasure Chest - Klaus Der Suhler 22 2 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 2F 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 20 49 4E 20 41  |CHACHTELUNG IN A|
00000050: 53 53 45 4D 42 4C 45 52  00 35 20 82 00 3B 00 4C  |SSEMBLER.5 ..;.L|
00000060: 20 8C 00 2E 47 4C 20 53  54 52 4F 55 54 20 3D 20  | ...GL STROUT = |
00000070: 24 41 42 31 45 00 52 20  96 00 3B 00 6A 20 A0 00  |$AB1E.R ..;.j ..|
00000080: 2E 4D 41 20 50 52 49 4E  54 20 28 41 44 52 45 53  |.MA PRINT (ADRES|
00000090: 53 45 29 00 7E 20 AA 00  20 4C 44 41 23 3C 28 41  |SE).~ .. LDA#<(A|
000000A0: 44 52 45 53 53 45 29 00  92 20 B4 00 20 4C 44 59  |DRESSE).. .. LDY|
000000B0: 23 3E 28 41 44 52 45 53  53 45 29 00 A1 20 BE 00  |#>(ADRESSE).. ..|
000000C0: 20 4A 53 52 53 54 52 4F  55 54 00 A9 20 C8 00 2E  | JSRSTROUT.. ...|
000000D0: 52 54 00 AF 20 2C 01 3B  00 D3 20 36 01 3B 20 2D  |RT.. ,.;.. 6.; -|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 20 48  |-------------- H|
000000F0: 41 55 50 54 50 52 4F 47  52 41 4D 4D 00 D9 20 40  |AUPTPROGRAMM.. @|
00000100: 01 3B 00 EE 20 4A 01 2E  2E 2E 50 52 49 4E 54 20  |.;.. J....PRINT |
00000110: 28 54 45 58 54 31 29 00  F4 20 54 01 3B 00 00 21  |(TEXT1).. T.;..!|
00000120: 5E 01 20 4A 53 52 55 50  31 00 2B 21 68 01 3B 20  |^. JSRUP1.+!h.; |
00000130: 20 20 20 20 20 20 20 20  5E 20 41 55 46 52 55 46  |        ^ AUFRUF|
00000140: 20 56 4F 4E 20 55 4E 54  45 52 50 52 4F 47 52 41  | VON UNTERPROGRA|
00000150: 4D 4D 20 31 00 31 21 72  01 3B 00 46 21 7C 01 2E  |MM 1.1!r.;.F!|..|
00000160: 2E 2E 50 52 49 4E 54 20  28 54 45 58 54 32 29 00  |..PRINT (TEXT2).|
00000170: 4C 21 86 01 3B 00 65 21  90 01 20 4A 4D 50 24 41  |L!..;.e!.. JMP$A|
00000180: 34 37 34 3B 20 57 41 52  4D 53 54 41 52 54 00 6B  |474; WARMSTART.k|
00000190: 21 9A 01 3B 00 71 21 E8  03 3B 00 97 21 F2 03 3B  |!..;.q!..;..!..;|
000001A0: 20 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  | ---------------|
000001B0: 20 55 4E 54 45 52 50 52  4F 47 52 41 4D 4D 20 31  | UNTERPROGRAMM 1|
000001C0: 00 9D 21 FC 03 3B 00 BA  21 06 04 55 50 31 20 4E  |..!..;..!..UP1 N|
000001D0: 4F 50 3B 20 42 45 4C 49  45 42 49 47 45 52 20 43  |OP; BELIEBIGER C|
000001E0: 4F 44 45 00 CF 21 10 04  2E 2E 2E 50 52 49 4E 54  |ODE..!.....PRINT|
000001F0: 20 28 54 45 58 54 33 29  00 D5 21 1A 04 3B 00 E1  | (TEXT3)..!..;..|
00000200: 21 24 04 20 4A 53 52 55  50 32 00 0C 22 2E 04 3B  |!$. JSRUP2.."..;|
00000210: 20 20 20 20 20 20 20 20  20 5E 20 41 55 46 52 55  |         ^ AUFRU|
00000220: 46 20 56 4F 4E 20 55 4E  54 45 52 50 52 4F 47 52  |F VON UNTERPROGR|
00000230: 41 4D 4D 20 32 00 12 22  38 04 3B 00 2A 22 42 04  |AMM 2.."8.;.*"B.|
00000240: 20 52 54 53 3B 20 55 50  31 20 56 45 52 4C 41 53  | RTS; UP1 VERLAS|
00000250: 53 45 4E 00 30 22 4C 04  3B 00 36 22 D0 07 3B 00  |SEN.0"L.;.6"..;.|
00000260: 5C 22 DA 07 3B 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |\"..; ----------|
00000270: 2D 2D 2D 2D 2D 20 55 4E  54 45 52 50 52 4F 47 52  |----- UNTERPROGR|
00000280: 41 4D 4D 20 32 00 62 22  E4 07 3B 00 7F 22 EE 07  |AMM 2.b"..;.."..|
00000290: 55 50 32 20 4E 4F 50 3B  20 42 45 4C 49 45 42 49  |UP2 NOP; BELIEBI|
000002A0: 47 45 52 20 43 4F 44 45  00 94 22 F8 07 2E 2E 2E  |GER CODE..".....|
000002B0: 50 52 49 4E 54 20 28 54  45 58 54 34 29 00 9A 22  |PRINT (TEXT4).."|
000002C0: 02 08 3B 00 B2 22 0C 08  20 52 54 53 3B 20 55 50  |..;..".. RTS; UP|
000002D0: 32 20 56 45 52 4C 41 53  53 45 4E 00 B8 22 16 08  |2 VERLASSEN.."..|
000002E0: 3B 00 BE 22 88 13 3B 00  DA 22 92 13 3B 20 2D 2D  |;.."..;.."..; --|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 20 54 45  |------------- TE|
00000300: 58 54 45 00 E0 22 9C 13  3B 00 0B 23 A6 13 54 45  |XTE.."..;..#..TE|
00000310: 58 54 31 20 2E 54 58 22  48 49 45 52 20 49 53 54  |XT1 .TX"HIER IST|
00000320: 20 44 41 53 20 48 41 55  50 54 50 52 4F 47 52 41  | DAS HAUPTPROGRA|
00000330: 4D 4D 2E 22 00 27 23 B0  13 2E 42 59 20 31 33 2C  |MM.".'#...BY 13,|
00000340: 31 33 20 3B 20 31 20 4C  45 45 52 5A 45 49 4C 45  |13 ; 1 LEERZEILE|
00000350: 00 41 23 BA 13 2E 42 59  20 30 20 3B 20 45 4E 44  |.A#...BY 0 ; END|
00000360: 4D 41 52 4B 49 45 52 55  4E 47 00 47 23 C4 13 3B  |MARKIERUNG.G#..;|
00000370: 00 79 23 CE 13 54 45 58  54 32 20 2E 54 58 22 48  |.y#..TEXT2 .TX"H|
00000380: 49 45 52 20 49 53 54 20  57 49 45 44 45 52 20 44  |IER IST WIEDER D|
00000390: 41 53 20 48 41 55 50 54  50 52 4F 47 52 41 4D 4D  |AS HAUPTPROGRAMM|
000003A0: 2E 22 00 89 23 D8 13 2E  42 59 20 31 33 2C 31 33  |."..#...BY 13,13|
000003B0: 2C 30 00 8F 23 E2 13 3B  00 BC 23 EC 13 54 45 58  |,0..#..;..#..TEX|
000003C0: 54 33 20 2E 54 58 22 48  49 45 52 20 49 53 54 20  |T3 .TX"HIER IST |
000003D0: 44 41 53 20 55 4E 54 45  52 50 52 4F 47 52 41 4D  |DAS UNTERPROGRAM|
000003E0: 4D 20 31 2E 22 00 CC 23  F6 13 2E 42 59 20 31 33  |M 1."..#...BY 13|
000003F0: 2C 31 33 2C 30 00 D2 23  00 14 3B 00 FF 23 0A 14  |,13,0..#..;..#..|
00000400: 54 45 58 54 34 20 2E 54  58 22 48 49 45 52 20 49  |TEXT4 .TX"HIER I|
00000410: 53 54 20 44 41 53 20 55  4E 54 45 52 50 52 4F 47  |ST DAS UNTERPROG|
00000420: 52 41 4D 4D 20 32 2E 22  00 0F 24 14 14 2E 42 59  |RAMM 2."..$...BY|
00000430: 20 31 33 2C 31 33 2C 30  00 00 00                 | 13,13,0...     |
X...D..BA $C000 ; START: SYS 49152...N.;
./ X.; UNTERPROGRAMMVERSCHACHTELUNG IN A
SSEMBLER.5 ..;.L ...GL STROUT = $AB1E.R 
..;.J  ..MA PRINT (ADRESSE).~ .. LDA#<(A
DRESSE).. .. LDY#>(ADRESSE).. .. JSRSTRO
UT.. H..RT.. ,.;.S 6.; --------------- H
AUPTPROGRAMM.Y @.;.. J....PRINT (TEXT1).
. T.;..!^. JSRUP1.+!H.;         ^ AUFRUF
 VON UNTERPROGRAMM 1.1!R.;.F!|....PRINT 
(TEXT2).L!..;.E!.. JMP$A474; WARMSTART.K
!..;.Q!..;..!..; --------------- UNTERPR
OGRAMM 1..!..;..!..UP1 NOP; BELIEBIGER C
ODE.O!.....PRINT (TEXT3).U!..;..!$. JSRU
P2.."..;         ^ AUFRUF VON UNTERPROGR
AMM 2.."8.;.*"B. RTS; UP1 VERLASSEN.0"L.
;.6"P.;.\"Z.; --------------- UNTERPROGR
AMM 2.B"..;."..UP2 NOP; BELIEBIGER CODE
..".....PRINT (TEXT4).."..;..".. RTS; UP
2 VERLASSEN.."..;.."..;.Z"..; ----------
----- TEXTE.."..;..#..TEXT1 .TX"HIER IST
 DAS HAUPTPROGRAMM.".'#...BY 13,13 ; 1 L
EERZEILE.A#...BY 0 ; ENDMARKIERUNG.G#D.;
.Y#N.TEXT2 .TX"HIER IST WIEDER DAS HAUPT
PROGRAMM."..#X..BY 13,13,0..#..;..#..TEX
T3 .TX"HIER IST DAS UNTERPROGRAMM 1.".L#
...BY 13,13,0.R#..;..#..TEXT4 .TX"HIER I
ST DAS UNTERPROGRAMM 2."..$...BY 13,13,0
...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL