Multiple names: LISTING 10.30, LISTING 30
FILE INFORMATION
FILENAME(S):
• LISTING 10.30<br>• LISTING 30
FILE TYPE(S): PRG
FILE SIZE: 6.8K
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 4 disk(s)
FILE HASH
a8ffd26952e83b6c86f96634ebdfa0caf12ec3cbbfb7f04664511f82b1010591
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.30 | PRG | Treasure Chest - Klaus Der Suhler | 24 | 1 | DOWNLOAD FILE |
| SONDERHEFT ASS | LISTING 30 | PRG | Treasure Chest - ToGuMi | 19 | 6 | DOWNLOAD FILE |
| SONDERHEFT ASS | LISTING 30 | PRG | C64er | 19 | 6 | DOWNLOAD FILE |
| 15835 SEITE A | LISTING 30 | PRG | C64er | 22 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 64 00 2E 42 41 20 24 30 38 30 31 00 |....d..BA $0801.| 00000010: 04 20 6E 00 2E 4F 42 20 22 4C 4F 41 44 45 52 2D |. n..OB "LOADER-| 00000020: 4D 41 4B 45 52 20 36 34 2C 50 2C 57 22 00 0A 20 |MAKER 64,P,W".. | 00000030: 78 00 3B 00 10 20 82 00 3B 00 34 20 8C 00 3B 20 |x.;.. ..;.4 ..; | 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 20 |*************.X | 00000060: 96 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 2A 00 7C 20 A0 00 3B 20 2A 20 20 4C 20 4F 20 41 |*.| ..; * L O A| 00000090: 20 44 20 45 20 52 20 2D 20 4D 20 41 20 4B 20 45 | D E R - M A K E| 000000A0: 20 52 20 20 2A 00 A0 20 AA 00 3B 20 2A 20 20 20 | R *.. ..; * | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 2A 00 C4 20 B4 00 3B 20 | *.. ..; | 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 20 |*************.. | 000000F0: BE 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 2A 00 0C 21 C8 00 3B 20 2A 20 20 20 45 49 4E 20 |*..!..; * EIN | 00000120: 50 52 4F 47 52 41 4D 4D 47 45 4E 45 52 41 54 4F |PROGRAMMGENERATO| 00000130: 52 20 20 20 2A 00 30 21 D2 00 3B 20 2A 20 20 20 |R *.0!..; * | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 20 20 2A 00 54 21 DC 00 3B 20 | *.T!..; | 00000160: 2A 20 20 20 20 56 4F 4E 20 46 4C 4F 52 49 41 4E |* VON FLORIAN| 00000170: 20 4D 55 45 4C 4C 45 52 20 20 20 20 2A 00 78 21 | MUELLER *.x!| 00000180: E6 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 2A 00 9C 21 F0 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |*..!..; ********| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001C0: 2A 2A 2A 2A 2A 00 A2 21 FA 00 3B 00 A8 21 04 01 |*****..!..;..!..| 000001D0: 3B 00 AE 21 0E 01 3B 00 C5 21 18 01 2E 47 4C 20 |;..!..;..!...GL | 000001E0: 42 41 53 49 4E 20 20 3D 20 24 46 46 43 46 00 DC |BASIN = $FFCF..| 000001F0: 21 22 01 2E 47 4C 20 53 45 54 50 41 52 20 3D 20 |!"..GL SETPAR = | 00000200: 24 46 46 42 41 00 F3 21 2C 01 2E 47 4C 20 53 45 |$FFBA..!,..GL SE| 00000210: 54 4E 41 4D 20 3D 20 24 46 46 42 44 00 0A 22 36 |TNAM = $FFBD.."6| 00000220: 01 2E 47 4C 20 4C 4F 41 44 20 20 20 3D 20 24 46 |..GL LOAD = $F| 00000230: 46 44 35 00 21 22 40 01 2E 47 4C 20 52 45 41 44 |FD5.!"@..GL READ| 00000240: 59 20 20 3D 20 24 41 34 37 34 00 38 22 4A 01 2E |Y = $A474.8"J..| 00000250: 47 4C 20 4E 55 4D 4F 55 54 20 3D 20 24 42 44 43 |GL NUMOUT = $BDC| 00000260: 44 00 5E 22 54 01 2E 47 4C 20 54 41 53 54 50 46 |D.^"T..GL TASTPF| 00000270: 20 3D 20 36 33 31 20 3B 20 54 41 53 54 41 54 55 | = 631 ; TASTATU| 00000280: 52 50 55 46 46 45 52 00 85 22 5E 01 2E 47 4C 20 |RPUFFER.."^..GL | 00000290: 41 4E 5A 41 48 4C 20 3D 20 31 39 38 20 3B 20 45 |ANZAHL = 198 ; E| 000002A0: 4E 54 48 41 45 4C 54 20 41 4E 5A 41 48 4C 00 AB |NTHAELT ANZAHL..| 000002B0: 22 68 01 3B 20 20 20 20 20 20 20 20 20 20 20 20 |"h.; | 000002C0: 20 20 20 20 20 20 44 45 52 20 5A 45 49 43 48 45 | DER ZEICHE| 000002D0: 4E 20 49 4D 00 D1 22 72 01 3B 20 20 20 20 20 20 |N IM.."r.; | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 54 41 53 54 | TAST| 000002F0: 41 54 55 52 50 55 46 46 45 52 00 F8 22 7C 01 2E |ATURPUFFER.."|..| 00000300: 47 4C 20 4B 41 53 53 50 46 20 3D 20 38 32 38 20 |GL KASSPF = 828 | 00000310: 3B 20 4B 41 53 53 45 54 54 45 4E 50 55 46 46 45 |; KASSETTENPUFFE| 00000320: 52 00 FE 22 86 01 3B 00 04 23 90 01 3B 00 19 23 |R.."..;..#..;..#| 00000330: 9A 01 2E 4D 41 20 50 52 49 4E 54 20 28 54 45 58 |...MA PRINT (TEX| 00000340: 54 29 00 31 23 A4 01 20 4C 44 41 23 3C 28 54 45 |T).1#.. LDA#<(TE| 00000350: 58 54 29 3B 20 4D 41 4B 52 4F 00 48 23 AE 01 20 |XT); MAKRO.H#.. | 00000360: 4C 44 59 23 3E 28 54 45 58 54 29 3B 20 46 55 45 |LDY#>(TEXT); FUE| 00000370: 52 00 63 23 B8 01 20 4A 53 52 24 41 42 31 45 3B |R.c#.. JSR$AB1E;| 00000380: 20 54 45 58 54 41 55 53 47 41 42 45 00 6B 23 C2 | TEXTAUSGABE.k#.| 00000390: 01 2E 52 54 00 71 23 CC 01 3B 00 77 23 D6 01 3B |..RT.q#..;.w#..;| 000003A0: 00 7D 23 E0 01 3B 00 83 23 EA 01 3B 00 A0 23 F4 |.}#..;..#..;..#.| 000003B0: 01 2E 57 4F 20 4C 49 4E 4B 2B 31 20 3B 20 4C 49 |..WO LINK+1 ; LI| 000003C0: 4E 4B 50 4F 49 4E 54 45 52 00 BE 23 FE 01 2E 57 |NKPOINTER..#...W| 000003D0: 4F 20 31 39 38 35 20 20 20 3B 20 5A 45 49 4C 45 |O 1985 ; ZEILE| 000003E0: 4E 4E 55 4D 4D 45 52 00 E0 23 08 02 2E 42 59 20 |NNUMMER..#...BY | 000003F0: 24 39 45 20 20 20 20 3B 20 54 4F 4B 45 4E 20 46 |$9E ; TOKEN F| 00000400: 55 45 52 20 22 53 59 53 22 00 EF 23 12 02 20 2E |UER "SYS"..#.. .| 00000410: 54 58 22 32 30 36 31 22 00 10 24 1C 02 4C 49 4E |TX"2061"..$..LIN| 00000420: 4B 20 2E 42 59 30 2C 30 2C 30 3B 20 45 4E 44 4D |K .BY0,0,0; ENDM| 00000430: 41 52 4B 49 45 52 55 4E 47 00 3F 24 26 02 3B 20 |ARKIERUNG.?$&.; | 00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000450: 20 20 20 20 20 20 20 20 20 44 45 52 20 42 41 53 | DER BAS| 00000460: 49 43 2D 5A 45 49 4C 45 00 45 24 30 02 3B 00 69 |IC-ZEILE.E$0.;.i| 00000470: 24 3A 02 53 59 53 54 45 4D 20 4C 44 58 23 30 3B |$:.SYSTEM LDX#0;| 00000480: 20 46 4C 41 47 20 46 55 45 52 20 53 59 53 54 45 | FLAG FUER SYSTE| 00000490: 4D 2D 00 87 24 44 02 20 53 54 58 24 39 44 3B 20 |M-..$D. STX$9D; | 000004A0: 4D 45 4C 44 55 4E 47 45 4E 20 53 45 54 5A 45 4E |MELDUNGEN SETZEN| 000004B0: 00 8D 24 4E 02 3B 00 A9 24 58 02 20 4C 44 58 23 |..$N.;..$X. LDX#| 000004C0: 24 34 39 3B 20 44 45 4B 52 2E 2D 5A 41 45 48 4C |$49; DEKR.-ZAEHL| 000004D0: 45 52 00 D0 24 62 02 53 43 48 4C 45 49 46 45 31 |ER..$b.SCHLEIFE1| 000004E0: 20 4C 44 41 41 42 4C 41 47 45 2C 58 3B 20 4C 41 | LDAABLAGE,X; LA| 000004F0: 44 45 52 4F 55 54 49 4E 45 00 F0 24 6C 02 20 53 |DEROUTINE..$l. S| 00000500: 54 41 4B 41 53 53 50 46 2C 58 3B 20 56 4F 4E 20 |TAKASSPF,X; VON | 00000510: 41 42 4C 41 47 45 20 49 4E 00 06 25 76 02 20 44 |ABLAGE IN..%v. D| 00000520: 45 58 3B 20 44 45 4E 20 42 45 52 45 49 43 48 00 |EX; DEN BEREICH.| 00000530: 26 25 80 02 20 42 50 4C 53 43 48 4C 45 49 46 45 |&%.. BPLSCHLEIFE| 00000540: 31 3B 20 4B 4F 50 49 45 52 45 4E 2C 20 49 4E 00 |1; KOPIEREN, IN.| 00000550: 54 25 8A 02 3B 20 20 20 20 20 20 20 20 20 20 20 |T%..; | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 | D| 00000570: 45 4D 20 53 49 45 20 4C 41 45 55 46 54 00 6E 25 |EM SIE LAEUFT.n%| 00000580: 94 02 20 4A 4D 50 4B 41 53 53 50 46 3B 20 26 20 |.. JMPKASSPF; & | 00000590: 53 54 41 52 54 45 4E 00 74 25 9E 02 3B 00 7A 25 |STARTEN.t%..;.z%| 000005A0: A8 02 3B 00 A3 25 B2 02 3B 20 45 53 20 46 4F 4C |..;..%..; ES FOL| 000005B0: 47 54 20 44 49 45 20 4C 41 44 45 52 4F 55 54 49 |GT DIE LADEROUTI| 000005C0: 4E 45 2C 20 44 49 45 20 48 49 45 52 00 CD 25 BC |NE, DIE HIER..%.| 000005D0: 02 3B 20 41 4E 20 46 41 4C 53 43 48 45 52 20 53 |.; AN FALSCHER S| 000005E0: 54 45 4C 4C 45 20 41 42 47 45 4C 45 47 54 20 49 |TELLE ABGELEGT I| 000005F0: 53 54 20 55 4E 44 00 F4 25 C6 02 3B 20 56 4F 4E |ST UND..%..; VON| 00000600: 20 44 45 52 20 22 53 43 48 4C 45 49 46 45 31 22 | DER "SCHLEIFE1"| 00000610: 20 28 36 30 30 2D 36 34 30 29 20 49 4E 00 20 26 | (600-640) IN. &| 00000620: D0 02 3B 20 44 45 4E 20 4F 52 49 47 49 4E 41 4C |..; DEN ORIGINAL| 00000630: 42 45 52 45 49 43 48 20 47 45 53 43 48 52 49 45 |BEREICH GESCHRIE| 00000640: 42 45 4E 20 57 49 52 44 2E 00 26 26 DA 02 3B 00 |BEN WIRD..&&..;.| 00000650: 46 26 E4 02 41 42 4C 41 47 45 20 4C 44 41 23 31 |F&..ABLAGE LDA#1| 00000660: 3B 20 46 49 4C 45 4E 55 4D 4D 45 52 20 23 31 00 |; FILENUMMER #1.| 00000670: 64 26 EE 02 20 54 41 59 3B 20 53 45 4B 55 4E 44 |d&.. TAY; SEKUND| 00000680: 41 45 52 41 44 52 45 53 53 45 20 23 31 00 8B 26 |AERADRESSE #1..&| 00000690: F8 02 47 45 52 41 45 54 45 4E 52 20 4C 44 58 23 |..GERAETENR LDX#| 000006A0: 30 3B 20 47 45 52 41 45 54 45 41 44 52 45 53 53 |0; GERAETEADRESS| 000006B0: 45 20 23 3F 00 AC 26 02 03 20 4A 53 52 53 45 54 |E #?..&.. JSRSET| 000006C0: 50 41 52 3B 20 50 41 52 41 4D 45 54 45 52 20 53 |PAR; PARAMETER S| 000006D0: 45 54 5A 45 4E 00 B2 26 0C 03 3B 00 D9 26 16 03 |ETZEN..&..;..&..| 000006E0: 4C 41 45 4E 47 45 20 4C 44 41 23 30 3B 20 4C 41 |LAENGE LDA#0; LA| 000006F0: 45 4E 47 45 20 44 45 53 20 46 49 4C 45 4E 41 4D |ENGE DES FILENAM| 00000700: 45 4E 00 F7 26 20 03 20 4C 44 58 23 3C 28 24 33 |EN..& . LDX#<($3| 00000710: 35 43 29 3B 20 41 44 52 45 53 53 45 20 44 45 53 |5C); ADRESSE DES| 00000720: 00 1A 27 2A 03 20 4C 44 59 23 3E 28 24 33 35 43 |..'*. LDY#>($35C| 00000730: 29 3B 20 46 49 4C 45 4E 41 4D 45 4E 3A 20 24 30 |); FILENAMEN: $0| 00000740: 33 35 43 00 37 27 34 03 20 4A 53 52 53 45 54 4E |35C.7'4. JSRSETN| 00000750: 41 4D 3B 20 4E 41 4D 45 4E 20 53 45 54 5A 45 4E |AM; NAMEN SETZEN| 00000760: 00 3D 27 3E 03 3B 00 5B 27 48 03 20 4C 44 41 23 |.='>.;.['H. LDA#| 00000770: 30 3B 20 46 4C 41 47 20 46 55 45 52 20 22 4C 41 |0; FLAG FUER "LA| 00000780: 44 45 4E 22 00 68 27 52 03 20 4A 53 52 4C 4F 41 |DEN".h'R. JSRLOA| 00000790: 44 00 6E 27 5C 03 3B 00 93 27 66 03 46 45 48 4C |D.n'\.;..'f.FEHL| 000007A0: 45 52 20 42 43 53 4C 4F 41 44 45 52 52 4F 52 3B |ER BCSLOADERROR;| 000007B0: 20 4C 41 44 45 46 45 48 4C 45 52 3F 00 B4 27 70 | LADEFEHLER?..'p| 000007C0: 03 53 54 41 52 54 20 4A 4D 50 30 3B 20 5A 55 52 |.START JMP0; ZUR| 000007D0: 20 53 54 41 52 54 41 44 52 45 53 53 45 00 D8 27 | STARTADRESSE..'| 000007E0: 7A 03 4C 4F 41 44 45 52 52 4F 52 20 4C 44 58 23 |z.LOADERROR LDX#| 000007F0: 24 31 44 3B 20 22 4C 4F 41 44 20 45 52 52 4F 52 |$1D; "LOAD ERROR| 00000800: 22 00 F1 27 84 03 20 4A 4D 50 28 24 33 30 30 29 |"..'.. JMP($300)| 00000810: 3B 20 41 55 53 47 45 42 45 4E 00 F7 27 8E 03 3B |; AUSGEBEN..'..;| 00000820: 00 15 28 98 03 4E 41 4D 45 20 2E 42 59 30 2C 30 |..(..NAME .BY0,0| 00000830: 2C 30 2C 30 3B 20 31 36 20 42 59 54 45 53 00 35 |,0,0; 16 BYTES.5| 00000840: 28 A2 03 20 2E 42 59 30 2C 30 2C 30 2C 30 3B 20 |(.. .BY0,0,0,0; | 00000850: 46 55 45 52 20 46 49 4C 45 4E 41 4D 45 4E 00 52 |FUER FILENAMEN.R| 00000860: 28 AC 03 20 2E 42 59 30 2C 30 2C 30 2C 30 3B 20 |(.. .BY0,0,0,0; | 00000870: 52 45 53 45 52 56 49 45 52 45 4E 00 62 28 B6 03 |RESERVIEREN.b(..| 00000880: 20 2E 42 59 30 2C 30 2C 30 2C 30 00 68 28 C0 03 | .BY0,0,0,0.h(..| 00000890: 3B 00 87 28 CA 03 42 41 53 49 43 20 53 54 58 24 |;..(..BASIC STX$| 000008A0: 32 44 3B 20 50 4F 49 4E 54 45 52 20 46 55 45 52 |2D; POINTER FUER| 000008B0: 00 A8 28 D4 03 20 53 54 59 24 32 45 3B 20 50 52 |..(.. STY$2E; PR| 000008C0: 4F 47 52 41 4D 4D 45 4E 44 45 20 53 45 54 5A 45 |OGRAMMENDE SETZE| 000008D0: 4E 00 C9 28 DE 03 20 4A 53 52 24 45 35 34 34 3B |N..(.. JSR$E544;| 000008E0: 20 3D 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 | = PRINT CHR$(14| 000008F0: 37 29 00 E0 28 E8 03 20 4C 44 58 23 33 3B 20 33 |7)..(.. LDX#3; 3| 00000900: 20 42 59 54 45 53 20 49 4E 00 FF 28 F2 03 20 53 | BYTES IN..(.. S| 00000910: 54 58 41 4E 5A 41 48 4C 3B 20 54 41 53 54 41 54 |TXANZAHL; TASTAT| 00000920: 55 52 50 55 46 46 45 52 00 05 29 FC 03 3B 00 2F |URPUFFER..)..;./| 00000930: 29 06 04 53 43 48 4C 45 49 46 45 32 20 4C 44 41 |)..SCHLEIFE2 LDA| 00000940: 24 30 33 38 33 2C 58 3B 20 41 55 53 20 44 45 52 |$0383,X; AUS DER| 00000950: 20 54 41 42 45 4C 4C 45 00 4F 29 10 04 20 53 54 | TABELLE.O).. ST| 00000960: 41 54 41 53 54 50 46 2C 58 3B 20 49 4E 20 5A 45 |ATASTPF,X; IN ZE| 00000970: 49 4C 45 20 31 31 30 30 00 62 29 1A 04 20 44 45 |ILE 1100.b).. DE| 00000980: 58 3B 20 4B 4F 50 49 45 52 45 4E 00 74 29 24 04 |X; KOPIEREN.t)$.| 00000990: 20 42 50 4C 53 43 48 4C 45 49 46 45 32 00 7A 29 | BPLSCHLEIFE2.z)| 000009A0: 2E 04 3B 00 93 29 38 04 20 4A 4D 50 52 45 41 44 |..;..)8. JMPREAD| 000009B0: 59 3B 20 57 41 52 4D 53 54 41 52 54 00 99 29 42 |Y; WARMSTART..)B| 000009C0: 04 3B 00 C1 29 4C 04 2E 42 59 20 22 52 22 2C 24 |.;..)L..BY "R",$| 000009D0: 44 35 2C 31 33 20 3B 20 22 52 22 2C 53 48 49 46 |D5,13 ; "R",SHIF| 000009E0: 54 20 55 2C 52 45 54 55 52 4E 00 C7 29 56 04 3B |T U,RETURN..)V.;| 000009F0: 00 EA 29 60 04 3B 20 48 49 45 52 20 45 4E 44 45 |..)`.; HIER ENDE| 00000A00: 54 20 44 45 52 20 50 52 4F 47 52 41 4D 4D 54 45 |T DER PROGRAMMTE| 00000A10: 49 4C 2C 00 06 2A 6A 04 3B 20 44 45 52 20 4D 4F |IL,..*j.; DER MO| 00000A20: 44 49 46 49 5A 49 45 52 54 20 57 49 52 44 2E 00 |DIFIZIERT WIRD..| 00000A30: 2F 2A 74 04 3B 20 45 53 20 46 4F 4C 47 54 20 44 |/*t.; ES FOLGT D| 00000A40: 49 45 20 4D 4F 44 49 46 49 4B 41 54 49 4F 4E 53 |IE MODIFIKATIONS| 00000A50: 52 4F 55 54 49 4E 45 3A 00 35 2A 7E 04 3B 00 5F |ROUTINE:.5*~.;._| 00000A60: 2A 88 04 4D 44 46 49 4B 41 54 4F 52 20 4A 53 52 |*..MDFIKATOR JSR| 00000A70: 24 45 35 34 34 3B 20 3D 20 50 52 49 4E 54 20 43 |$E544; = PRINT C| 00000A80: 48 52 24 28 31 34 37 29 00 74 2A 92 04 2E 2E 2E |HR$(147).t*.....| 00000A90: 50 52 49 4E 54 20 28 54 45 58 54 31 29 00 8D 2A |PRINT (TEXT1)..*| 00000AA0: 9C 04 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 |..; STARTADRESSE| 00000AB0: 20 48 4F 4C 45 4E 00 93 2A A6 04 3B 00 B3 2A B0 | HOLEN..*..;..*.| 00000AC0: 04 20 4A 53 52 24 41 45 46 44 3B 20 50 52 55 45 |. JSR$AEFD; PRUE| 00000AD0: 46 54 20 41 55 46 20 4B 4F 4D 4D 41 00 D1 2A BA |FT AUF KOMMA..*.| 00000AE0: 04 20 4A 53 52 24 41 44 38 41 3B 20 48 4F 4C 54 |. JSR$AD8A; HOLT| 00000AF0: 20 50 41 52 41 4D 45 54 45 52 00 ED 2A C4 04 20 | PARAMETER..*.. | 00000B00: 4A 53 52 24 42 37 46 37 3B 20 4E 41 43 48 20 24 |JSR$B7F7; NACH $| 00000B10: 31 34 2F 24 31 35 00 F3 2A CE 04 3B 00 0D 2B D8 |14/$15..*..;..+.| 00000B20: 04 20 4C 44 58 24 31 34 3B 20 53 54 41 52 54 41 |. LDX$14; STARTA| 00000B30: 44 52 45 53 53 45 00 21 2B E2 04 20 4C 44 41 24 |DRESSE.!+.. LDA$| 00000B40: 31 35 3B 20 48 4F 4C 45 4E 2C 00 3E 2B EC 04 20 |15; HOLEN,.>+.. | 00000B50: 53 54 58 53 54 41 52 54 2B 31 3B 20 49 4D 20 50 |STXSTART+1; IM P| 00000B60: 52 4F 47 52 41 4D 4D 00 5B 2B F6 04 20 53 54 41 |ROGRAMM.[+.. STA| 00000B70: 53 54 41 52 54 2B 32 3B 20 41 42 4C 45 47 45 4E |START+2; ABLEGEN| 00000B80: 20 55 4E 44 00 78 2B 00 05 20 4A 53 52 4E 55 4D | UND.x+.. JSRNUM| 00000B90: 4F 55 54 3B 20 55 4E 44 20 41 55 53 47 45 42 45 |OUT; UND AUSGEBE| 00000BA0: 4E 00 7E 2B 0A 05 3B 00 84 2B 14 05 3B 00 AE 2B |N.~+..;..+..;..+| 00000BB0: 1E 05 3B 20 4E 55 4E 20 57 49 52 44 20 4E 4F 43 |..; NUN WIRD NOC| 00000BC0: 48 20 44 45 52 20 5A 55 20 4D 4F 44 49 46 49 5A |H DER ZU MODIFIZ| 00000BD0: 49 45 52 45 4E 44 45 00 D8 2B 28 05 3B 20 50 52 |IERENDE..+(.; PR| 00000BE0: 4F 47 52 41 4D 4D 54 45 49 4C 20 49 4E 20 44 45 |OGRAMMTEIL IN DE| 00000BF0: 4E 20 41 55 53 47 41 4E 47 53 5A 55 53 54 41 4E |N AUSGANGSZUSTAN| 00000C00: 44 00 E8 2B 32 05 3B 20 47 45 42 52 41 43 48 54 |D..+2.; GEBRACHT| 00000C10: 3A 00 EE 2B 3C 05 3B 00 10 2C 46 05 20 4C 44 58 |:..+<.;..,F. LDX| 00000C20: 23 31 35 3B 20 4E 41 4D 45 4E 20 4D 49 54 20 4E |#15; NAMEN MIT N| 00000C30: 55 4C 4C 2D 42 59 54 45 53 00 24 2C 50 05 20 4C |ULL-BYTES.$,P. L| 00000C40: 44 41 23 30 3B 20 42 45 4C 45 47 45 4E 00 48 2C |DA#0; BELEGEN.H,| 00000C50: 5A 05 53 43 48 4C 45 49 46 45 33 20 53 54 41 4E |Z.SCHLEIFE3 STAN| 00000C60: 41 4D 45 2C 58 3B 20 44 55 52 43 48 20 45 49 4E |AME,X; DURCH EIN| 00000C70: 45 00 60 2C 64 05 20 44 45 58 3B 20 44 45 4B 52 |E.`,d. DEX; DEKR| 00000C80: 45 4D 45 4E 54 49 45 52 2D 00 7C 2C 6E 05 20 42 |EMENTIER-.|,n. B| 00000C90: 50 4C 53 43 48 4C 45 49 46 45 33 3B 20 53 43 48 |PLSCHLEIFE3; SCH| 00000CA0: 4C 45 49 46 45 00 82 2C 78 05 3B 00 AA 2C 82 05 |LEIFE..,x.;..,..| 00000CB0: 20 53 54 41 53 59 53 54 45 4D 2B 31 3B 20 4B 45 | STASYSTEM+1; KE| 00000CC0: 49 4E 45 20 53 59 53 54 45 4D 4D 45 4C 44 55 4E |INE SYSTEMMELDUN| 00000CD0: 47 45 4E 00 B0 2C 8C 05 3B 00 CC 2C 96 05 20 4C |GEN..,..;..,.. L| 00000CE0: 44 41 23 33 3B 20 53 50 52 55 4E 47 57 45 49 54 |DA#3; SPRUNGWEIT| 00000CF0: 45 20 3D 20 33 00 DD 2C A0 05 20 53 54 41 46 45 |E = 3..,.. STAFE| 00000D00: 48 4C 45 52 2B 31 00 E3 2C AA 05 3B 00 05 2D B4 |HLER+1..,..;..-.| 00000D10: 05 20 4C 44 41 23 24 41 32 3B 20 4F 50 43 4F 44 |. LDA#$A2; OPCOD| 00000D20: 45 20 46 55 45 52 20 22 4C 44 58 20 23 22 00 17 |E FUER "LDX #"..| 00000D30: 2D BE 05 20 53 54 41 47 45 52 41 45 54 45 4E 52 |-.. STAGERAETENR| 00000D40: 00 1D 2D C8 05 3B 00 23 2D D2 05 3B 00 4C 2D DC |..-..;.#-..;.L-.| 00000D50: 05 3B 20 41 4E 20 44 49 45 53 45 52 20 53 54 45 |.; AN DIESER STE| 00000D60: 4C 4C 45 20 49 53 54 20 44 41 53 20 22 47 45 52 |LLE IST DAS "GER| 00000D70: 55 45 53 54 22 00 6F 2D E6 05 3B 20 28 44 45 52 |UEST".o-..; (DER| 00000D80: 20 5A 55 20 4D 4F 44 49 46 49 5A 49 45 52 45 4E | ZU MODIFIZIEREN| 00000D90: 44 45 20 54 45 49 4C 29 00 88 2D F0 05 3B 20 49 |DE TEIL)..-..; I| 00000DA0: 4D 20 41 55 53 47 41 4E 47 53 5A 55 53 54 41 4E |M AUSGANGSZUSTAN| 00000DB0: 44 00 8E 2D FA 05 3B 00 94 2D 04 06 3B 00 B0 2D |D..-..;..-..;..-| 00000DC0: 0E 06 3B 20 45 49 4E 47 41 42 45 20 44 45 53 20 |..; EINGABE DES | 00000DD0: 46 49 4C 45 4E 41 4D 45 4E 00 CC 2D 18 06 3B 20 |FILENAMEN..-..; | 00000DE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000DF0: 3D 3D 3D 3D 3D 00 D2 2D 22 06 3B 00 E7 2D 2C 06 |=====..-".;..-,.| 00000E00: 2E 2E 2E 50 52 49 4E 54 20 28 54 45 58 54 32 29 |...PRINT (TEXT2)| 00000E10: 00 01 2E 36 06 20 4C 44 58 23 30 3B 20 5A 41 45 |...6. LDX#0; ZAE| 00000E20: 48 4C 45 52 20 41 55 46 20 30 00 18 2E 40 06 53 |HLER AUF 0...@.S| 00000E30: 43 48 4C 45 49 46 45 34 20 4A 53 52 42 41 53 49 |CHLEIFE4 JSRBASI| 00000E40: 4E 00 37 2E 4A 06 20 43 4D 50 23 31 33 3B 20 45 |N.7.J. CMP#13; E| 00000E50: 4E 44 45 20 44 45 52 20 45 49 4E 47 41 42 45 3F |NDE DER EINGABE?| 00000E60: 00 53 2E 54 06 20 42 45 51 57 45 49 54 45 52 31 |.S.T. BEQWEITER1| 00000E70: 3B 20 4A 41 3D 3E 57 45 49 54 45 52 00 70 2E 5E |; JA=>WEITER.p.^| 00000E80: 06 20 53 54 41 4E 41 4D 45 2C 58 3B 20 42 59 54 |. STANAME,X; BYT| 00000E90: 45 20 41 42 4C 45 47 45 4E 00 79 2E 68 06 20 49 |E ABLEGEN.y.h. I| 00000EA0: 4E 58 00 96 2E 72 06 20 43 50 58 23 31 36 3B 20 |NX...r. CPX#16; | 00000EB0: 31 36 20 5A 45 49 43 48 45 4E 20 4D 41 58 2E 00 |16 ZEICHEN MAX..| 00000EC0: BB 2E 7C 06 20 42 4E 45 53 43 48 4C 45 49 46 45 |..|. BNESCHLEIFE| 00000ED0: 34 3B 20 4E 41 45 43 48 53 54 45 53 20 5A 45 49 |4; NAECHSTES ZEI| 00000EE0: 43 48 45 4E 00 C1 2E 86 06 3B 00 EB 2E 90 06 3B |CHEN.....;.....;| 00000EF0: 20 57 45 4E 4E 20 44 49 45 53 45 20 53 54 45 4C | WENN DIESE STEL| 00000F00: 4C 45 20 44 55 52 43 48 4C 41 55 46 45 4E 20 57 |LE DURCHLAUFEN W| 00000F10: 49 52 44 2C 00 11 2F 9A 06 3B 20 48 41 54 20 44 |IRD,../..; HAT D| 00000F20: 41 53 20 58 2D 52 45 47 49 53 54 45 52 20 44 45 |AS X-REGISTER DE| 00000F30: 4E 20 57 45 52 54 20 31 36 2E 00 17 2F A4 06 3B |N WERT 16.../..;| 00000F40: 00 45 2F AE 06 3B 20 42 45 49 20 22 57 45 49 54 |.E/..; BEI "WEIT| 00000F50: 45 52 31 22 20 48 49 4E 47 45 47 45 4E 20 4B 41 |ER1" HINGEGEN KA| 00000F60: 4E 4E 20 45 53 20 41 55 46 47 52 55 4E 44 00 6C |NN ES AUFGRUND.l| 00000F70: 2F B8 06 3B 20 44 45 53 20 42 52 41 4E 43 48 2D |/..; DES BRANCH-| 00000F80: 42 45 46 45 48 4C 53 20 22 42 45 51 20 57 45 49 |BEFEHLS "BEQ WEI| 00000F90: 54 45 52 31 22 00 90 2F C2 06 3B 20 55 4E 54 45 |TER1"../..; UNTE| 00000FA0: 52 53 43 48 49 45 44 4C 49 43 48 45 20 57 45 52 |RSCHIEDLICHE WER| 00000FB0: 54 45 20 48 41 42 45 4E 2E 00 96 2F CC 06 3B 00 |TE HABEN.../..;.| 00000FC0: AE 2F D6 06 57 45 49 54 45 52 31 20 53 54 58 4C |./..WEITER1 STXL| 00000FD0: 41 45 4E 47 45 2B 31 00 B4 2F E0 06 3B 00 BA 2F |AENGE+1../..;../| 00000FE0: EA 06 3B 00 DB 2F F4 06 3B 20 45 49 4E 47 41 42 |..;../..; EINGAB| 00000FF0: 45 20 44 45 52 20 47 45 52 41 45 54 45 41 44 52 |E DER GERAETEADR| 00001000: 45 53 53 45 00 FC 2F FE 06 3B 20 3D 3D 3D 3D 3D |ESSE../..; =====| 00001010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001020: 3D 3D 3D 3D 3D 00 02 30 08 07 3B 00 17 30 12 07 |=====..0..;..0..| 00001030: 2E 2E 2E 50 52 49 4E 54 20 28 54 45 58 54 33 29 |...PRINT (TEXT3)| 00001040: 00 33 30 1C 07 20 4A 53 52 42 41 53 49 4E 3B 20 |.30.. JSRBASIN; | 00001050: 48 4F 4C 54 20 5A 45 49 43 48 45 4E 00 4D 30 26 |HOLT ZEICHEN.M0&| 00001060: 07 20 53 45 43 3B 20 56 4F 52 20 53 55 42 54 52 |. SEC; VOR SUBTR| 00001070: 41 4B 54 49 4F 4E 00 6F 30 30 07 20 53 42 43 23 |AKTION.o00. SBC#| 00001080: 22 30 22 3B 20 49 4D 20 41 4B 4B 55 20 53 54 45 |"0"; IM AKKU STE| 00001090: 48 54 20 4A 45 54 5A 54 00 97 30 3A 07 3B 20 20 |HT JETZT..0:.; | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 20 20 44 49 45 20 5A 41 48 4C | DIE ZAHL| 000010C0: 00 9D 30 44 07 3B 00 BA 30 4E 07 20 53 54 41 47 |..0D.;..0N. STAG| 000010D0: 45 52 41 45 54 45 4E 52 2B 31 3B 20 41 42 4C 45 |ERAETENR+1; ABLE| 000010E0: 47 45 4E 00 DE 30 58 07 20 42 4E 45 57 45 49 54 |GEN..0X. BNEWEIT| 000010F0: 45 52 32 3B 20 47 45 52 41 45 54 3C 3E 30 20 3A |ER2; GERAET<>0 :| 00001100: 20 57 45 49 54 45 52 00 06 31 62 07 3B 20 44 41 | WEITER..1b.; DA| 00001110: 20 41 4C 53 20 47 45 52 41 45 54 45 4E 55 4D 4D | ALS GERAETENUMM| 00001120: 45 52 20 30 20 45 49 4E 47 45 47 45 42 45 4E 00 |ER 0 EINGEGEBEN.| 00001130: 2B 31 6C 07 3B 20 57 55 52 44 45 2C 20 4D 55 53 |+1l.; WURDE, MUS| 00001140: 53 20 44 45 52 20 47 45 53 41 4D 54 45 20 42 45 |S DER GESAMTE BE| 00001150: 46 45 48 4C 00 4C 31 76 07 3B 20 22 4C 44 58 20 |FEHL.L1v.; "LDX | 00001160: 23 47 45 52 41 45 54 22 20 49 4E 20 22 4C 44 58 |#GERAET" IN "LDX| 00001170: 20 24 42 41 22 00 71 31 80 07 3B 20 55 4D 47 45 | $BA".q1..; UMGE| 00001180: 57 41 45 4E 44 45 4C 54 20 57 45 52 44 45 4E 2C |WAENDELT WERDEN,| 00001190: 20 44 41 4D 49 54 20 44 41 53 00 99 31 8A 07 3B | DAMIT DAS..1..;| 000011A0: 20 4E 41 43 48 4C 41 44 45 4E 20 56 4F 4E 20 44 | NACHLADEN VON D| 000011B0: 45 4D 20 47 45 52 41 45 54 20 45 52 46 4F 4C 47 |EM GERAET ERFOLG| 000011C0: 54 2C 00 C2 31 94 07 3B 20 56 4F 4E 20 44 45 4D |T,..1..; VON DEM| 000011D0: 20 44 45 52 20 4C 41 44 45 52 20 45 49 4E 47 45 | DER LADER EINGE| 000011E0: 4C 45 53 45 4E 20 57 49 52 44 2E 00 C8 31 9E 07 |LESEN WIRD...1..| 000011F0: 3B 00 EB 31 A8 07 20 4C 44 41 23 24 41 36 3B 20 |;..1.. LDA#$A6; | 00001200: 4F 50 43 4F 44 45 20 46 55 45 52 20 22 4C 44 58 |OPCODE FUER "LDX| 00001210: 20 5A 50 22 00 FD 31 B2 07 20 53 54 41 47 45 52 | ZP"..1.. STAGER| 00001220: 41 45 54 45 4E 52 00 15 32 BC 07 20 4C 44 41 23 |AETENR..2.. LDA#| 00001230: 24 42 41 3B 20 22 4C 44 58 20 24 42 41 22 00 35 |$BA; "LDX $BA".5| 00001240: 32 C6 07 20 53 54 41 47 45 52 41 45 54 45 4E 52 |2.. STAGERAETENR| 00001250: 2B 31 3B 20 47 45 4E 45 52 49 45 52 45 4E 00 3B |+1; GENERIEREN.;| 00001260: 32 D0 07 3B 00 41 32 DA 07 3B 00 60 32 E4 07 3B |2..;.A2..;.`2..;| 00001270: 20 4D 41 53 43 48 49 4E 45 4E 50 52 4F 47 52 41 | MASCHINENPROGRA| 00001280: 4D 4D 20 28 4A 2F 4E 29 3F 00 7F 32 EE 07 3B 20 |MM (J/N)?..2..; | 00001290: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000012A0: 3D 3D 3D 3D 3D 3D 3D 3D 00 85 32 F8 07 3B 00 A1 |========..2..;..| 000012B0: 32 02 08 57 45 49 54 45 52 32 20 2E 2E 2E 50 52 |2..WEITER2 ...PR| 000012C0: 49 4E 54 28 54 45 58 54 34 29 00 BC 32 0C 08 20 |INT(TEXT4)..2.. | 000012D0: 4A 53 52 4A 41 4E 45 49 4E 3B 20 28 4A 41 2F 4E |JSRJANEIN; (JA/N| 000012E0: 45 49 4E 29 3F 00 D8 32 16 08 20 42 45 51 57 45 |EIN)?..2.. BEQWE| 000012F0: 49 54 45 52 33 3B 20 4A 41 3D 3E 57 45 49 54 45 |ITER3; JA=>WEITE| 00001300: 52 00 F7 32 20 08 20 4C 44 41 23 24 36 43 3B 20 |R..2 . LDA#$6C; | 00001310: 53 50 52 55 4E 47 20 41 55 46 20 24 30 33 36 43 |SPRUNG AUF $036C| 00001320: 00 0F 33 2A 08 20 4C 44 59 23 24 30 33 3B 20 56 |..3*. LDY#$03; V| 00001330: 45 52 42 49 45 47 45 4E 00 2F 33 34 08 20 53 54 |ERBIEGEN./34. ST| 00001340: 41 53 54 41 52 54 2B 31 3B 20 42 45 49 20 24 33 |ASTART+1; BEI $3| 00001350: 36 43 20 53 54 45 48 54 00 4E 33 3E 08 20 53 54 |6C STEHT.N3>. ST| 00001360: 59 53 54 41 52 54 2B 32 3B 20 45 49 4E 45 20 52 |YSTART+2; EINE R| 00001370: 4F 55 54 49 4E 45 2C 00 7C 33 48 08 3B 20 20 20 |OUTINE,.|3H.; | 00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001390: 20 20 20 20 20 20 20 44 49 45 20 44 45 4E 20 22 | DIE DEN "| 000013A0: 52 55 4E 22 2D 00 AC 33 52 08 3B 20 20 20 20 20 |RUN"-..3R.; | 000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013C0: 20 20 20 20 20 42 45 46 45 48 4C 20 53 49 4D 55 | BEFEHL SIMU| 000013D0: 4C 49 45 52 54 00 B2 33 5C 08 3B 00 B8 33 66 08 |LIERT..3\.;..3f.| 000013E0: 3B 00 D5 33 70 08 3B 20 53 59 53 54 45 4D 4D 45 |;..3p.; SYSTEMME| 000013F0: 4C 44 55 4E 47 45 4E 20 28 4A 2F 4E 29 3F 00 F2 |LDUNGEN (J/N)?..| 00001400: 33 7A 08 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |3z.; ===========| 00001410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F8 33 84 08 |===========..3..| 00001420: 3B 00 14 34 8E 08 57 45 49 54 45 52 33 20 2E 2E |;..4..WEITER3 ..| 00001430: 2E 50 52 49 4E 54 28 54 45 58 54 35 29 00 2F 34 |.PRINT(TEXT5)./4| 00001440: 98 08 20 4A 53 52 4A 41 4E 45 49 4E 3B 20 28 4A |.. JSRJANEIN; (J| 00001450: 41 2F 4E 45 49 4E 29 3F 00 4D 34 A2 08 20 42 4E |A/NEIN)?.M4.. BN| 00001460: 45 57 45 49 54 45 52 34 3B 20 4E 45 49 4E 3D 3E |EWEITER4; NEIN=>| 00001470: 57 45 49 54 45 52 00 65 34 AC 08 20 4C 44 41 23 |WEITER.e4.. LDA#| 00001480: 24 38 30 3B 20 46 4C 41 47 20 46 55 45 52 00 87 |$80; FLAG FUER..| 00001490: 34 B6 08 20 53 54 41 53 59 53 54 45 4D 2B 31 3B |4.. STASYSTEM+1;| 000014A0: 20 53 59 53 54 45 4D 4D 45 4C 44 55 4E 47 45 4E | SYSTEMMELDUNGEN| 000014B0: 00 8D 34 C0 08 3B 00 93 34 CA 08 3B 00 B4 34 D4 |..4..;..4..;..4.| 000014C0: 08 3B 20 4C 4F 41 44 20 45 52 52 4F 52 20 20 41 |.; LOAD ERROR A| 000014D0: 55 53 47 45 42 45 4E 20 28 4A 2F 4E 29 00 D5 34 |USGEBEN (J/N)..4| 000014E0: DE 08 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..; ============| 000014F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 DB |==============..| 00001500: 34 E8 08 3B 00 E1 34 F2 08 3B 00 FD 34 FC 08 57 |4..;..4..;..4..W| 00001510: 45 49 54 45 52 34 20 2E 2E 2E 50 52 49 4E 54 28 |EITER4 ...PRINT(| 00001520: 54 45 58 54 36 29 00 18 35 06 09 20 4A 53 52 4A |TEXT6)..5.. JSRJ| 00001530: 41 4E 45 49 4E 3B 20 28 4A 41 2F 4E 45 49 4E 29 |ANEIN; (JA/NEIN)| 00001540: 3F 00 36 35 10 09 20 42 45 51 57 45 49 54 45 52 |?.65.. BEQWEITER| 00001550: 35 3B 20 4E 45 49 4E 3D 3E 57 45 49 54 45 52 00 |5; NEIN=>WEITER.| 00001560: 52 35 1A 09 20 4C 44 41 23 30 3B 20 46 45 48 4C |R5.. LDA#0; FEHL| 00001570: 45 52 4D 45 4C 44 55 4E 47 45 4E 00 72 35 24 09 |ERMELDUNGEN.r5$.| 00001580: 20 53 54 41 46 45 48 4C 45 52 2B 31 3B 20 55 4E | STAFEHLER+1; UN| 00001590: 54 45 52 44 52 55 45 43 4B 45 4E 00 78 35 2E 09 |TERDRUECKEN.x5..| 000015A0: 3B 00 7E 35 38 09 3B 00 91 35 42 09 3B 20 50 52 |;.~58.;..5B.; PR| 000015B0: 4F 47 52 41 4D 4D 45 4E 44 45 00 A4 35 4C 09 3B |OGRAMMENDE..5L.;| 000015C0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 AA 35 | ============..5| 000015D0: 56 09 3B 00 B0 35 60 09 3B 00 CC 35 6A 09 57 45 |V.;..5`.;..5j.WE| 000015E0: 49 54 45 52 35 20 2E 2E 2E 50 52 49 4E 54 28 54 |ITER5 ...PRINT(T| 000015F0: 45 58 54 37 29 00 D2 35 74 09 3B 00 F6 35 7E 09 |EXT7)..5t.;..5~.| 00001600: 3B 20 56 45 4B 54 4F 52 20 46 55 45 52 20 42 41 |; VEKTOR FUER BA| 00001610: 53 49 43 2D 45 4E 44 45 20 53 45 54 5A 45 4E 00 |SIC-ENDE SETZEN.| 00001620: 1A 36 88 09 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.6..; ==========| 00001630: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001640: 3D 3D 3D 00 20 36 92 09 3B 00 26 36 9C 09 3B 00 |===. 6..;.&6..;.| 00001650: 3C 36 A6 09 20 4C 44 41 23 3C 28 4D 44 46 49 4B |<6.. LDA#<(MDFIK| 00001660: 41 54 4F 52 29 00 52 36 B0 09 20 53 54 41 24 32 |ATOR).R6.. STA$2| 00001670: 44 3B 20 4C 4F 57 2D 42 59 54 45 00 68 36 BA 09 |D; LOW-BYTE.h6..| 00001680: 20 4C 44 41 23 3E 28 4D 44 46 49 4B 41 54 4F 52 | LDA#>(MDFIKATOR| 00001690: 29 00 7F 36 C4 09 20 53 54 41 24 32 45 3B 20 48 |)..6.. STA$2E; H| 000016A0: 49 47 48 2D 42 59 54 45 00 9F 36 CE 09 20 4A 4D |IGH-BYTE..6.. JM| 000016B0: 50 52 45 41 44 59 3B 20 53 50 52 55 4E 47 20 49 |PREADY; SPRUNG I| 000016C0: 4E 53 20 42 41 53 49 43 00 A5 36 D8 09 3B 00 AB |NS BASIC..6..;..| 000016D0: 36 E2 09 3B 00 B1 36 10 27 3B 00 C6 36 1A 27 3B |6..;..6.';..6.';| 000016E0: 20 41 53 43 49 49 2D 54 41 42 45 4C 4C 45 4E 00 | ASCII-TABELLEN.| 000016F0: DB 36 24 27 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.6$'; ==========| 00001700: 3D 3D 3D 3D 00 E1 36 2E 27 3B 00 E7 36 38 27 3B |====..6.';..68';| 00001710: 00 06 37 42 27 54 45 58 54 31 20 2E 54 58 22 4C |..7B'TEXT1 .TX"L| 00001720: 4F 41 44 45 52 2D 4D 41 4B 45 52 20 36 34 22 00 |OADER-MAKER 64".| 00001730: 14 37 4C 27 20 2E 42 59 31 33 2C 31 33 00 2E 37 |.7L' .BY13,13..7| 00001740: 56 27 20 2E 54 58 22 53 54 41 52 54 41 44 52 45 |V' .TX"STARTADRE| 00001750: 53 53 45 20 3A 20 22 00 38 37 60 27 20 2E 42 59 |SSE : ".87`' .BY| 00001760: 30 00 3E 37 6A 27 3B 00 51 37 74 27 54 45 58 54 |0.>7j';.Q7t'TEXT| 00001770: 32 20 2E 42 59 31 33 2C 31 33 00 67 37 7E 27 20 |2 .BY13,13.g7~' | 00001780: 2E 54 58 22 46 49 4C 45 4E 41 4D 45 20 3A 20 22 |.TX"FILENAME : "| 00001790: 00 71 37 88 27 20 2E 42 59 30 00 77 37 92 27 3B |.q7.' .BY0.w7.';| 000017A0: 00 8A 37 9C 27 54 45 58 54 33 20 2E 42 59 31 33 |..7.'TEXT3 .BY13| 000017B0: 2C 31 33 00 B6 37 A6 27 20 2E 54 58 22 47 45 52 |,13..7.' .TX"GER| 000017C0: 41 45 54 45 4E 52 2E 20 28 31 2D 39 3B 30 3D 55 |AETENR. (1-9;0=U| 000017D0: 45 42 45 52 4E 45 48 4D 45 4E 29 20 3A 20 22 00 |EBERNEHMEN) : ".| 000017E0: C0 37 B0 27 20 2E 42 59 30 00 C6 37 BA 27 3B 00 |.7.' .BY0..7.';.| 000017F0: D9 37 C4 27 54 45 58 54 34 20 2E 42 59 31 33 2C |.7.'TEXT4 .BY13,| 00001800: 31 33 00 F5 37 CE 27 20 2E 54 58 22 4D 41 53 43 |13..7.' .TX"MASC| 00001810: 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D 22 00 FF |HINENPROGRAMM"..| 00001820: 37 D8 27 20 2E 42 59 30 00 05 38 E2 27 3B 00 18 |7.' .BY0..8.';..| 00001830: 38 EC 27 54 45 58 54 35 20 2E 42 59 31 33 2C 31 |8.'TEXT5 .BY13,1| 00001840: 33 00 32 38 F6 27 20 2E 54 58 22 53 59 53 54 45 |3.28.' .TX"SYSTE| 00001850: 4D 4D 45 4C 44 55 4E 47 45 4E 22 00 3C 38 00 28 |MMELDUNGEN".<8.(| 00001860: 20 2E 42 59 30 00 42 38 0A 28 3B 00 55 38 14 28 | .BY0.B8.(;.U8.(| 00001870: 54 45 58 54 36 20 2E 42 59 31 33 2C 31 33 00 74 |TEXT6 .BY13,13.t| 00001880: 38 1E 28 20 2E 54 58 22 4C 4F 41 44 20 45 52 52 |8.( .TX"LOAD ERR| 00001890: 4F 52 20 20 41 55 53 47 45 42 45 4E 22 00 7E 38 |OR AUSGEBEN".~8| 000018A0: 28 28 20 2E 42 59 30 00 84 38 32 28 3B 00 9A 38 |(( .BY0..82(;..8| 000018B0: 3C 28 54 45 58 54 37 20 2E 42 59 31 33 2C 31 33 |<(TEXT7 .BY13,13| 000018C0: 2C 31 38 00 BD 38 46 28 20 2E 54 58 22 2A 2A 2A |,18..8F( .TX"***| 000018D0: 20 4C 4F 41 44 45 52 20 47 45 4E 45 52 49 45 52 | LOADER GENERIER| 000018E0: 54 20 2A 2A 2A 22 00 CB 38 50 28 20 2E 42 59 31 |T ***"..8P( .BY1| 000018F0: 33 2C 31 33 00 EB 38 5A 28 20 2E 54 58 22 4D 49 |3,13..8Z( .TX"MI| 00001900: 54 20 27 53 41 56 45 27 20 53 50 45 49 43 48 45 |T 'SAVE' SPEICHE| 00001910: 52 4E 2C 22 00 08 39 64 28 20 2E 54 58 22 20 4D |RN,"..9d( .TX" M| 00001920: 49 54 20 27 52 55 4E 27 20 53 54 41 52 54 45 4E |IT 'RUN' STARTEN| 00001930: 22 00 12 39 6E 28 20 2E 42 59 30 00 18 39 78 28 |"..9n( .BY0..9x(| 00001940: 3B 00 2E 39 82 28 54 45 58 54 38 20 2E 42 59 31 |;..9.(TEXT8 .BY1| 00001950: 33 2C 31 33 2C 31 38 00 4F 39 8C 28 20 2E 54 58 |3,13,18.O9.( .TX| 00001960: 22 2A 2A 2A 20 50 52 4F 47 52 41 4D 4D 45 4E 44 |"*** PROGRAMMEND| 00001970: 45 20 21 20 2A 2A 2A 22 00 5F 39 96 28 20 2E 42 |E ! ***"._9.( .B| 00001980: 59 31 33 2C 31 33 2C 30 00 65 39 A0 28 3B 00 7D |Y13,13,0.e9.(;.}| 00001990: 39 AA 28 54 45 58 54 39 20 2E 54 58 22 20 28 4A |9.(TEXT9 .TX" (J| 000019A0: 2F 4E 29 3F 20 22 00 87 39 B4 28 20 2E 42 59 30 |/N)? "..9.( .BY0| 000019B0: 00 8D 39 BE 28 3B 00 93 39 C8 28 3B 00 99 39 20 |..9.(;..9.(;..9 | 000019C0: 4E 3B 00 B9 39 2A 4E 3B 20 55 4E 54 45 52 50 52 |N;..9*N; UNTERPR| 000019D0: 4F 47 52 41 4D 4D 20 46 55 45 52 20 22 4A 2F 4E |OGRAMM FUER "J/N| 000019E0: 3F 22 00 D9 39 34 4E 3B 20 3D 3D 3D 3D 3D 3D 3D |?"..94N; =======| 000019F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001A00: 3D 3D 00 DF 39 3E 4E 3B 00 E5 39 48 4E 3B 00 00 |==..9>N;..9HN;..| 00001A10: 3A 52 4E 4A 41 4E 45 49 4E 20 2E 2E 2E 50 52 49 |:RNJANEIN ...PRI| 00001A20: 4E 54 28 54 45 58 54 39 29 00 1D 3A 5C 4E 20 4A |NT(TEXT9)..:\N J| 00001A30: 53 52 42 41 53 49 4E 3B 20 45 49 4E 47 41 42 45 |SRBASIN; EINGABE| 00001A40: 20 48 4F 4C 45 4E 00 2A 3A 66 4E 20 43 4D 50 23 | HOLEN.*:fN CMP#| 00001A50: 22 5F 22 00 3A 3A 70 4E 20 42 4E 45 4A 41 4E 45 |"_".::pN BNEJANE| 00001A60: 49 4E 31 00 52 3A 7A 4E 20 50 4C 41 3B 20 53 49 |IN1.R:zN PLA; SI| 00001A70: 45 48 45 20 53 54 41 50 45 4C 2D 00 69 3A 84 4E |EHE STAPEL-.i:.N| 00001A80: 20 50 4C 41 3B 20 4D 41 4E 49 50 55 4C 41 54 49 | PLA; MANIPULATI| 00001A90: 4F 4E 00 7D 3A 8E 4E 2E 2E 2E 50 52 49 4E 54 28 |ON.}:.N...PRINT(| 00001AA0: 54 45 58 54 38 29 00 9D 3A 98 4E 20 4A 4D 50 52 |TEXT8)..:.N JMPR| 00001AB0: 45 41 44 59 3B 20 53 50 52 55 4E 47 20 49 4E 53 |EADY; SPRUNG INS| 00001AC0: 20 42 41 53 49 43 00 C4 3A A2 4E 4A 41 4E 45 49 | BASIC..:.NJANEI| 00001AD0: 4E 31 20 43 4D 50 23 22 4A 22 3B 20 56 45 52 47 |N1 CMP#"J"; VERG| 00001AE0: 4C 45 49 43 48 20 4D 49 54 20 22 4A 22 00 DC 3A |LEICH MIT "J"..:| 00001AF0: AC 4E 20 52 54 53 3B 20 52 55 45 43 4B 4B 45 48 |.N RTS; RUECKKEH| 00001B00: 52 20 56 4F 4D 00 09 3B B6 4E 3B 20 20 20 20 20 |R VOM..;.N; | 00001B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B20: 20 20 20 20 20 55 4E 54 45 52 50 52 4F 47 52 41 | UNTERPROGRA| 00001B30: 4D 4D 00 11 3B C0 4E 2E 45 4E 00 00 00 |MM..;.N.EN... |
X...D..BA $0801.. N..OB "LOADER-MAKER 64
,P,W".. X.;.. ..;.4 ..; ****************
*************.X ..; *
*.| .; * L O A D E R - M A K E
R *. ..; *
*.D ..; *****************************..
..; * *..!H.;
* EIN PROGRAMMGENERATOR *.0!R.; *
*.T!..; * VON
FLORIAN MUELLER *.X!..; *
*..!..; ****************
*************..!..;..!..;..!..;.E!...GL
BASIN = $FFCF..!"..GL SETPAR = $FFBA..!
,..GL SETNAM = $FFBD.."6..GL LOAD = $F
FD5.!"@..GL READY = $A474.8"J..GL NUMOU
T = $BDCD.^"T..GL TASTPF = 631 ; TASTATU
RPUFFER.."^..GL ANZAHL = 198 ; ENTHAELT
ANZAHL.."H.; DER ZEICHE
N IM.Q"R.; TASTATURPUFF
ER.."|..GL KASSPF = 828 ; KASSETTENPUFFE
R.."..;..#..;..#...MA PRINT (TEXT).1#..
LDA#<(TEXT); MAKRO.H#.. LDY#>(TEXT); FUE
R.C#.. JSR$AB1E; TEXTAUSGABE.K#B..RT.Q#L
.;.W#V.;.}#..;..#..;. #...WO LINK+1 ; LI
NKPOINTER..#...WO 1985 ; ZEILENNUMMER.
.#...BY $9E ; TOKEN FUER "SYS"..#.. .
TX"2061"..$..LINK .BY0,0,0; ENDMARKIERUN
G.?$&.; DER BAS
IC-ZEILE.E$0.;.I$:.SYSTEM LDX#0; FLAG FU
ER SYSTEM-..$D. STX$9D; MELDUNGEN SETZEN
..$N.;..$X. LDX#$49; DEKR.-ZAEHLER.P$B.S
CHLEIFE1 LDAABLAGE,X; LADEROUTINE..$L. S
TAKASSPF,X; VON ABLAGE IN..%V. DEX; DEN
BEREICH.&%.. BPLSCHLEIFE1; KOPIEREN, IN.
T%..; DEM SIE L
AEUFT.N%.. JMPKASSPF; & STARTEN.T%..;.Z%
..;..%..; ES FOLGT DIE LADEROUTINE, DIE
HIER.M%..; AN FALSCHER STELLE ABGELEGT I
ST UND..%F.; VON DER "SCHLEIFE1" (600-64
0) IN. &P.; DEN ORIGINALBEREICH GESCHRIE
BEN WIRD..&&Z.;.F&..ABLAGE LDA#1; FILENU
MMER #1.D&.. TAY; SEKUNDAERADRESSE #1..&
..GERAETENR LDX#0; GERAETEADRESSE #?..&.
. JSRSETPAR; PARAMETER SETZEN..&..;.Y&..
LAENGE LDA#0; LAENGE DES FILENAMEN..& .
LDX#<($35C); ADRESSE DES..'*. LDY#>($35C
); FILENAMEN: $035C.7'4. JSRSETNAM; NAME
N SETZEN.='>.;.['H. LDA#0; FLAG FUER "LA
DEN".H'R. JSRLOAD.N'\.;..'F.FEHLER BCSLO
ADERROR; LADEFEHLER?..'P.START JMP0; ZUR
STARTADRESSE.X'Z.LOADERROR LDX#$1D; "LO
AD ERROR"..'.. JMP($300); AUSGEBEN..'..;
..(..NAME .BY0,0,0,0; 16 BYTES.5(.. .BY0
,0,0,0; FUER FILENAMEN.R(.. .BY0,0,0,0;
RESERVIEREN.B(.. .BY0,0,0,0.H(..;..(J.BA
SIC STX$2D; POINTER FUER..(T. STY$2E; PR
OGRAMMENDE SETZEN.I(.. JSR$E544; = PRINT
CHR$(147)..(.. LDX#3; 3 BYTES IN..(.. S
TXANZAHL; TASTATURPUFFER..)..;./)..SCHLE
IFE2 LDA$0383,X; AUS DER TABELLE.O).. ST
ATASTPF,X; IN ZEILE 1100.B).. DEX; KOPIE
REN.T)$. BPLSCHLEIFE2.Z)..;..)8. JMPREAD
Y; WARMSTART..)B.;.A)L..BY "R",$D5,13 ;
"R",SHIFT U,RETURN.G)V.;..)`.; HIER ENDE
T DER PROGRAMMTEIL,..*J.; DER MODIFIZIER
T WIRD../*T.; ES FOLGT DIE MODIFIKATIONS
ROUTINE:.5*~.;._*..MDFIKATOR JSR$E544; =
PRINT CHR$(147).T*.....PRINT (TEXT1)..*
..; STARTADRESSE HOLEN..*..;..*.. JSR$AE
FD; PRUEFT AUF KOMMA.Q*.. JSR$AD8A; HOLT
PARAMETER..*D. JSR$B7F7; NACH $14/$15..
*N.;..+X. LDX$14; STARTADRESSE.!+.. LDA$
15; HOLEN,.>+.. STXSTART+1; IM PROGRAMM.
[+.. STASTART+2; ABLEGEN UND.X+.. JSRNUM
OUT; UND AUSGEBEN.~+..;..+..;..+..; NUN
WIRD NOCH DER ZU MODIFIZIERENDE.X+(.; PR
OGRAMMTEIL IN DEN AUSGANGSZUSTAND..+2.;
GEBRACHT:..+<.;..,F. LDX#15; NAMEN MIT N
ULL-BYTES.$,P. LDA#0; BELEGEN.H,Z.SCHLEI
FE3 STANAME,X; DURCH EINE.`,D. DEX; DEKR
EMENTIER-.|,N. BPLSCHLEIFE3; SCHLEIFE..,
X.;..,.. STASYSTEM+1; KEINE SYSTEMMELDUN
GEN..,..;.L,.. LDA#3; SPRUNGWEITE = 3..,
. STAFEHLER+1..,..;..-.. LDA#$A2; OPCOD
E FUER "LDX #"..-.. STAGERAETENR..-H.;.#
-R.;.L-..; AN DIESER STELLE IST DAS "GER
UEST".O-..; (DER ZU MODIFIZIERENDE TEIL)
..-..; IM AUSGANGSZUSTAND..-..;..-..;..-
..; EINGABE DES FILENAMEN.L-..; ========
=============.R-".;..-,....PRINT (TEXT2)
...6. LDX#0; ZAEHLER AUF 0...@.SCHLEIFE4
JSRBASIN.7.J. CMP#13; ENDE DER EINGABE?
.S.T. BEQWEITER1; JA=>WEITER.P.^. STANAM
E,X; BYTE ABLEGEN.Y.H. INX...R. CPX#16;
16 ZEICHEN MAX....|. BNESCHLEIFE4; NAECH
STES ZEICHEN.A...;.....; WENN DIESE STEL
LE DURCHLAUFEN WIRD,../..; HAT DAS X-REG
ISTER DEN WERT 16.../..;.E/..; BEI "WEIT
ER1" HINGEGEN KANN ES AUFGRUND.L/..; DES
BRANCH-BEFEHLS "BEQ WEITER1"../B.; UNTE
RSCHIEDLICHE WERTE HABEN.../L.;../V.WEIT
ER1 STXLAENGE+1../..;../..;../..; EINGAB
E DER GERAETEADRESSE../..; =============
=============..0..;..0.....PRINT (TEXT3)
.30.. JSRBASIN; HOLT ZEICHEN.M0&. SEC; V
OR SUBTRAKTION.O00. SBC#"0"; IM AKKU STE
HT JETZT..0:.;
DIE ZAHL..0D.;..0N. STAGERAETENR+1; ABLE
GEN..0X. BNEWEITER2; GERAET<>0 : WEITER.
.1B.; DA ALS GERAETENUMMER 0 EINGEGEBEN.
+1L.; WURDE, MUSS DER GESAMTE BEFEHL.L1V
.; "LDX #GERAET" IN "LDX $BA".Q1..; UMGE
WAENDELT WERDEN, DAMIT DAS..1..; NACHLAD
EN VON DEM GERAET ERFOLGT,.B1..; VON DEM
DER LADER EINGELESEN WIRD..H1..;..1.. L
DA#$A6; OPCODE FUER "LDX ZP"..1.. STAGER
AETENR..2.. LDA#$BA; "LDX $BA".52F. STAG
ERAETENR+1; GENERIEREN.;2P.;.A2Z.;.`2..;
MASCHINENPROGRAMM (J/N)?.2..; ========
================..2..;..2..WEITER2 ...PR
INT(TEXT4)..2.. JSRJANEIN; (JA/NEIN)?.X2
.. BEQWEITER3; JA=>WEITER..2 . LDA#$6C;
SPRUNG AUF $036C..3*. LDY#$03; VERBIEGEN
./34. STASTART+1; BEI $36C STEHT.N3>. ST
YSTART+2; EINE ROUTINE,.|3H.;
DIE DEN "RUN"-..3R.;
BEFEHL SIMULIERT..3
\.;..3F.;.U3P.; SYSTEMMELDUNGEN (J/N)?..
3Z.; ======================..3..;..4..WE
ITER3 ...PRINT(TEXT5)./4.. JSRJANEIN; (J
A/NEIN)?.M4.. BNEWEITER4; NEIN=>WEITER.E
4.. LDA#$80; FLAG FUER..4.. STASYSTEM+1;
SYSTEMMELDUNGEN..4..;..4J.;..4T.; LOAD
ERROR AUSGEBEN (J/N).U4..; ============
==============..4..;..4..;..4..WEITER4 .
..PRINT(TEXT6)..5.. JSRJANEIN; (JA/NEIN)
?.65.. BEQWEITER5; NEIN=>WEITER.R5.. LDA
#0; FEHLERMELDUNGEN.R5$. STAFEHLER+1; UN
TERDRUECKEN.X5..;.~58.;..5B.; PROGRAMMEN
DE..5L.; ============..5V.;..5`.;.L5J.WE
ITER5 ...PRINT(TEXT7).R5T.;..5~.; VEKTOR
FUER BASIC-ENDE SETZEN..6..; ==========
===================. 6..;.&6..;.<6.. LDA
#<(MDFIKATOR).R6.. STA$2D; LOW-BYTE.H6..
LDA#>(MDFIKATOR).6D. STA$2E; HIGH-BYTE
..6N. JMPREADY; SPRUNG INS BASIC..6X.;..
6..;..6.';.F6.'; ASCII-TABELLEN..6$'; ==
============..6.';..68';..7B'TEXT1 .TX"L
OADER-MAKER 64"..7L' .BY13,13..7V' .TX"S
TARTADRESSE : ".87`' .BY0.>7J';.Q7T'TEXT
2 .BY13,13.G7~' .TX"FILENAME : ".Q7.' .B
Y0.W7.';..7.'TEXT3 .BY13,13..7.' .TX"GER
AETENR. (1-9;0=UEBERNEHMEN) : "..7.' .BY
0.F7.';.Y7D'TEXT4 .BY13,13..7N' .TX"MASC
HINENPROGRAMM"..7X' .BY0..8.';..8.'TEXT5
.BY13,13.28.' .TX"SYSTEMMELDUNGEN".<8.(
.BY0.B8.(;.U8.(TEXT6 .BY13,13.T8.( .TX"
LOAD ERROR AUSGEBEN".~8(( .BY0..82(;..8
<(TEXT7 .BY13,13,18..8F( .TX"*** LOADER
GENERIERT ***".K8P( .BY13,13..8Z( .TX"MI
T 'SAVE' SPEICHERN,"..9D( .TX" MIT 'RUN'
STARTEN"..9N( .BY0..9X(;..9.(TEXT8 .BY1
3,13,18.O9.( .TX"*** PROGRAMMENDE ! ***"
._9.( .BY13,13,0.E9 (;.}9.(TEXT9 .TX" (J
/N)? "..9.( .BY0..9.(;..9H(;..9 N;..9*N;
UNTERPROGRAMM FUER "J/N?".Y94N; =======
==================..9>N;..9HN;..:RNJANEI
N ...PRINT(TEXT9)..:\N JSRBASIN; EINGABE
HOLEN.*:FN CMP#"_".::PN BNEJANEIN1.R:ZN
PLA; SIEHE STAPEL-.I:.N PLA; MANIPULATI
ON.}:.N...PRINT(TEXT8)..:.N JMPREADY; SP
RUNG INS BASIC.D:.NJANEIN1 CMP#"J"; VERG
LEICH MIT "J"..:.N RTS; RUECKKEHR VOM..;
.N; UNTERPROGRA
MM..;.N.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL