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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL