LISTING 7

FILE INFORMATION

FILENAME(S): LISTING 7

FILE TYPE(S): PRG

FILE SIZE: 1.2K

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

APPEARS ON: 3 disk(s)

FILE HASH

5996c71059098627ac2842db340e7fd06a7b9f9d8ddfd5580bf21c4c189c95f8

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
SONDERHEFT ASS	LISTING 7	PRG	Treasure Chest - ToGuMi	15	DOWNLOAD FILE
SONDERHEFT ASS	LISTING 7	PRG	C64er	15	DOWNLOAD FILE
15835 SEITE A	LISTING 7	PRG	C64er	15	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: 07 20 6E 00 2E 42 41 20  24 43 30 30 30 20 3B 20  |. n..BA $C000 ; |
00000020: 53 54 41 52 54 3A 20 53  59 53 20 34 39 31 35 32  |START: SYS 49152|
00000030: 00 0D 20 78 00 3B 00 30  20 82 00 3B 20 55 4E 54  |.. x.;.0 ..; UNT|
00000040: 45 52 50 52 4F 47 52 41  4D 4D 56 45 52 53 43 48  |ERPROGRAMMVERSCH|
00000050: 41 43 48 54 45 4C 55 4E  47 00 54 20 8C 00 3B 20  |ACHTELUNG.T ..; |
00000060: 28 4F 50 54 49 4D 49 45  52 54 45 20 41 53 53 45  |(OPTIMIERTE ASSE|
00000070: 4D 42 4C 45 52 56 45 52  53 49 4F 4E 29 00 5A 20  |MBLERVERSION).Z |
00000080: 96 00 3B 00 71 20 A0 00  2E 47 4C 20 53 54 52 4F  |..;.q ...GL STRO|
00000090: 55 54 20 3D 20 24 41 42  31 45 00 77 20 AA 00 3B  |UT = $AB1E.w ..;|
000000A0: 00 8F 20 B4 00 2E 4D 41  20 50 52 49 4E 54 20 28  |.. ...MA PRINT (|
000000B0: 41 44 52 45 53 53 45 29  00 A3 20 BE 00 20 4C 44  |ADRESSE).. .. LD|
000000C0: 41 23 3C 28 41 44 52 45  53 53 45 29 00 B7 20 C8  |A#<(ADRESSE).. .|
000000D0: 00 20 4C 44 59 23 3E 28  41 44 52 45 53 53 45 29  |. LDY#>(ADRESSE)|
000000E0: 00 C6 20 D2 00 20 4A 53  52 53 54 52 4F 55 54 00  |.. .. JSRSTROUT.|
000000F0: CE 20 DC 00 2E 52 54 00  D4 20 E6 00 3B 00 F8 20  |. ...RT.. ..;.. |
00000100: F0 00 3B 20 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..; ------------|
00000110: 2D 2D 2D 20 48 41 55 50  54 50 52 4F 47 52 41 4D  |--- HAUPTPROGRAM|
00000120: 4D 00 FE 20 FA 00 3B 00  13 21 04 01 2E 2E 2E 50  |M.. ..;..!.....P|
00000130: 52 49 4E 54 20 28 54 45  58 54 31 29 00 19 21 0E  |RINT (TEXT1)..!.|
00000140: 01 3B 00 25 21 18 01 20  4A 53 52 55 50 31 00 50  |.;.%!.. JSRUP1.P|
00000150: 21 22 01 3B 20 20 20 20  20 20 20 20 20 5E 20 41  |!".;         ^ A|
00000160: 55 46 52 55 46 20 56 4F  4E 20 55 4E 54 45 52 50  |UFRUF VON UNTERP|
00000170: 52 4F 47 52 41 4D 4D 20  31 00 56 21 2C 01 3B 00  |ROGRAMM 1.V!,.;.|
00000180: 6B 21 36 01 2E 2E 2E 50  52 49 4E 54 20 28 54 45  |k!6....PRINT (TE|
00000190: 58 54 32 29 00 71 21 40  01 3B 00 8A 21 4A 01 20  |XT2).q!@.;..!J. |
000001A0: 4A 4D 50 24 41 34 37 34  3B 20 57 41 52 4D 53 54  |JMP$A474; WARMST|
000001B0: 41 52 54 00 90 21 54 01  3B 00 96 21 5E 01 3B 00  |ART..!T.;..!^.;.|
000001C0: BC 21 68 01 3B 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.!h.; ----------|
000001D0: 2D 2D 2D 2D 2D 20 55 4E  54 45 52 50 52 4F 47 52  |----- UNTERPROGR|
000001E0: 41 4D 4D 20 31 00 C2 21  72 01 3B 00 DF 21 7C 01  |AMM 1..!r.;..!|.|
000001F0: 55 50 31 20 4E 4F 50 3B  20 42 45 4C 49 45 42 49  |UP1 NOP; BELIEBI|
00000200: 47 45 52 20 43 4F 44 45  00 F4 21 86 01 2E 2E 2E  |GER CODE..!.....|
00000210: 50 52 49 4E 54 20 28 54  45 58 54 33 29 00 FA 21  |PRINT (TEXT3)..!|
00000220: 90 01 3B 00 00 22 9A 01  3B 00 06 22 A4 01 3B 00  |..;.."..;.."..;.|
00000230: 35 22 AE 01 3B 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |5"..; ----------|
00000240: 2D 2D 2D 2D 2D 20 43 4F  44 45 20 56 4F 4E 20 55  |----- CODE VON U|
00000250: 4E 54 45 52 50 52 4F 47  52 41 4D 4D 20 32 00 3B  |NTERPROGRAMM 2.;|
00000260: 22 B8 01 3B 00 58 22 C2  01 55 50 32 20 4E 4F 50  |"..;.X"..UP2 NOP|
00000270: 3B 20 42 45 4C 49 45 42  49 47 45 52 20 43 4F 44  |; BELIEBIGER COD|
00000280: 45 00 74 22 CC 01 20 4C  44 41 23 3C 28 54 45 58  |E.t".. LDA#<(TEX|
00000290: 54 34 29 3B 20 4C 4F 57  2D 42 59 54 45 00 91 22  |T4); LOW-BYTE.."|
000002A0: D6 01 20 4C 44 59 23 3E  28 54 45 58 54 34 29 3B  |.. LDY#>(TEXT4);|
000002B0: 20 48 49 47 48 2D 42 59  54 45 00 AD 22 E0 01 20  | HIGH-BYTE..".. |
000002C0: 4A 4D 50 53 54 52 4F 55  54 3B 20 54 45 58 54 41  |JMPSTROUT; TEXTA|
000002D0: 55 53 47 41 42 45 00 D6  22 EA 01 3B 20 55 4E 44  |USGABE.."..; UND|
000002E0: 20 52 55 45 43 4B 53 50  52 55 4E 47 20 56 4F 4D  | RUECKSPRUNG VOM|
000002F0: 20 55 4E 54 45 52 50 52  4F 47 52 41 4D 4D 2C 00  | UNTERPROGRAMM,.|
00000300: FC 22 F4 01 3B 20 57 45  49 4C 20 41 4D 20 45 4E  |."..; WEIL AM EN|
00000310: 44 45 20 44 45 52 20 53  54 52 4F 55 54 2D 52 4F  |DE DER STROUT-RO|
00000320: 55 54 49 4E 45 00 18 23  FE 01 3B 20 45 49 4E 20  |UTINE..#..; EIN |
00000330: 52 54 53 2D 42 45 46 45  48 4C 20 53 54 45 48 54  |RTS-BEFEHL STEHT|
00000340: 2E 00 1E 23 10 27 3B 00  24 23 1A 27 3B 00 40 23  |...#.';.$#.';.@#|
00000350: 24 27 3B 20 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |$'; ------------|
00000360: 2D 2D 2D 20 54 45 58 54  45 00 46 23 2E 27 3B 00  |--- TEXTE.F#.';.|
00000370: 71 23 38 27 54 45 58 54  31 20 2E 54 58 22 48 49  |q#8'TEXT1 .TX"HI|
00000380: 45 52 20 49 53 54 20 44  41 53 20 48 41 55 50 54  |ER IST DAS HAUPT|
00000390: 50 52 4F 47 52 41 4D 4D  2E 22 00 8D 23 42 27 2E  |PROGRAMM."..#B'.|
000003A0: 42 59 20 31 33 2C 31 33  20 3B 20 31 20 4C 45 45  |BY 13,13 ; 1 LEE|
000003B0: 52 5A 45 49 4C 45 00 A7  23 4C 27 2E 42 59 20 30  |RZEILE..#L'.BY 0|
000003C0: 20 3B 20 45 4E 44 4D 41  52 4B 49 45 52 55 4E 47  | ; ENDMARKIERUNG|
000003D0: 00 AD 23 56 27 3B 00 DF  23 60 27 54 45 58 54 32  |..#V';..#`'TEXT2|
000003E0: 20 2E 54 58 22 48 49 45  52 20 49 53 54 20 57 49  | .TX"HIER IST WI|
000003F0: 45 44 45 52 20 44 41 53  20 48 41 55 50 54 50 52  |EDER DAS HAUPTPR|
00000400: 4F 47 52 41 4D 4D 2E 22  00 EF 23 6A 27 2E 42 59  |OGRAMM."..#j'.BY|
00000410: 20 31 33 2C 31 33 2C 30  00 F5 23 74 27 3B 00 22  | 13,13,0..#t';."|
00000420: 24 7E 27 54 45 58 54 33  20 2E 54 58 22 48 49 45  |$~'TEXT3 .TX"HIE|
00000430: 52 20 49 53 54 20 44 41  53 20 55 4E 54 45 52 50  |R IST DAS UNTERP|
00000440: 52 4F 47 52 41 4D 4D 20  31 2E 22 00 32 24 88 27  |ROGRAMM 1.".2$.'|
00000450: 2E 42 59 20 31 33 2C 31  33 2C 30 00 38 24 92 27  |.BY 13,13,0.8$.'|
00000460: 3B 00 65 24 9C 27 54 45  58 54 34 20 2E 54 58 22  |;.e$.'TEXT4 .TX"|
00000470: 48 49 45 52 20 49 53 54  20 44 41 53 20 55 4E 54  |HIER IST DAS UNT|
00000480: 45 52 50 52 4F 47 52 41  4D 4D 20 32 2E 22 00 75  |ERPROGRAMM 2.".u|
00000490: 24 A6 27 2E 42 59 20 31  33 2C 31 33 2C 30 00 00  |$.'.BY 13,13,0..|
000004A0: 00                                                |.               |

X...D..LI 1,3,0.. N..BA $C000 ; START: S
YS 49152.. X.;.0 ..; UNTERPROGRAMMVERSCH
ACHTELUNG.T ..; (OPTIMIERTE ASSEMBLERVER
SION).Z ..;.Q  ..GL STROUT = $AB1E.W ..;
.. ...MA PRINT (ADRESSE).. .. LDA#<(ADRE
SSE).. H. LDY#>(ADRESSE).F R. JSRSTROUT.
N ...RT.T ..;.. ..; --------------- HAUP
TPROGRAMM.. ..;..!.....PRINT (TEXT1)..!.
.;.%!.. JSRUP1.P!".;         ^ AUFRUF VO
N UNTERPROGRAMM 1.V!,.;.K!6....PRINT (TE
XT2).Q!@.;..!J. JMP$A474; WARMSTART..!T.
;..!^.;..!H.; --------------- UNTERPROGR
AMM 1.B!R.;..!|.UP1 NOP; BELIEBIGER CODE
..!.....PRINT (TEXT3)..!..;.."..;.."..;.
5"..; --------------- CODE VON UNTERPROG
RAMM 2.;"..;.X"B.UP2 NOP; BELIEBIGER COD
E.T"L. LDA#<(TEXT4); LOW-BYTE.."V. LDY#>
(TEXT4); HIGH-BYTE..".. JMPSTROUT; TEXTA
USGABE.V"..; UND RUECKSPRUNG VOM UNTERPR
OGRAMM,.."..; WEIL AM ENDE DER STROUT-RO
UTINE..#..; EIN RTS-BEFEHL STEHT...#.';.
$#.';.@#$'; --------------- TEXTE.F#.';.
Q#8'TEXT1 .TX"HIER IST DAS HAUPTPROGRAMM
."..#B'.BY 13,13 ; 1 LEERZEILE..#L'.BY 0
 ; ENDMARKIERUNG..#V';..#`'TEXT2 .TX"HIE
R IST WIEDER DAS HAUPTPROGRAMM."..#J'.BY
 13,13,0..#T';."$~'TEXT3 .TX"HIER IST DA
S UNTERPROGRAMM 1.".2$.'.BY 13,13,0.8$.'
;.E$.'TEXT4 .TX"HIER IST DAS UNTERPROGRA
MM 2.".U$.'.BY 13,13,0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL