DISKIO.SRC
FILE INFORMATION
FILENAME(S): DISKIO.SRC
FILE TYPE(S): PRG
FILE SIZE: 17.5K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
cafbe7ba539f562317df3128bb9a32a6fa36931d8756e28e649a3a49227831f1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | DISKIO.SRC | PRG | Treasure Chest - ToGuMi | 3 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F ED 1F 64 00 2E 45 51 20 53 45 54 46 4C 53 |....d..EQ SETFLS|
00000010: 3D 24 46 46 42 41 00 02 20 6E 00 2E 45 51 20 53 |=$FFBA.. n..EQ S|
00000020: 45 54 4E 41 4D 3D 24 46 46 42 44 00 15 20 78 00 |ETNAM=$FFBD.. x.|
00000030: 2E 45 51 20 53 41 56 45 3D 24 46 46 44 38 00 28 |.EQ SAVE=$FFD8.(|
00000040: 20 82 00 2E 45 51 20 4C 4F 41 44 3D 24 46 46 44 | ...EQ LOAD=$FFD|
00000050: 35 00 2E 20 8C 00 3B 00 43 20 96 00 2E 45 51 20 |5.. ..;.C ...EQ |
00000060: 43 48 4B 4B 4F 4D 3D 24 41 45 46 44 00 58 20 A0 |CHKKOM=$AEFD.X .|
00000070: 00 2E 45 51 20 46 52 4D 4E 55 4D 3D 24 41 44 38 |..EQ FRMNUM=$AD8|
00000080: 41 00 6D 20 AA 00 2E 45 51 20 41 44 52 46 4F 52 |A.m ...EQ ADRFOR|
00000090: 3D 24 42 37 46 37 00 82 20 B4 00 2E 45 51 20 47 |=$B7F7.. ...EQ G|
000000A0: 45 54 50 4F 53 3D 24 42 30 38 42 00 95 20 BE 00 |ETPOS=$B08B.. ..|
000000B0: 2E 45 51 20 56 41 52 50 54 52 3D 24 34 37 00 9B |.EQ VARPTR=$47..|
000000C0: 20 C8 00 3B 00 AD 20 D2 00 2E 45 51 20 49 4E 44 | ..;.. ...EQ IND|
000000D0: 49 5A 3D 24 46 42 00 C0 20 DC 00 2E 45 51 20 49 |IZ=$FB.. ...EQ I|
000000E0: 4E 44 49 5A 31 3D 24 46 44 00 C6 20 E6 00 3B 00 |NDIZ1=$FD.. ..;.|
000000F0: D4 20 F0 00 2E 42 41 20 24 39 38 30 30 00 DA 20 |. ...BA $9800.. |
00000100: FA 00 3B 00 E0 20 04 01 3B 00 F2 20 0E 01 20 4A |..;.. ..;.. .. J|
00000110: 4D 50 42 4C 41 45 54 54 45 52 4E 00 02 21 18 01 |MPBLAETTERN..!..|
00000120: 20 4A 4D 50 43 4F 4E 56 45 52 54 00 11 21 22 01 | JMPCONVERT..!".|
00000130: 20 4A 4D 50 53 45 54 43 52 53 00 22 21 2C 01 20 | JMPSETCRS."!,. |
00000140: 4A 4D 50 53 41 54 5A 49 4E 46 4F 00 34 21 36 01 |JMPSATZINFO.4!6.|
00000150: 20 4A 4D 50 53 41 56 45 41 52 52 41 59 00 46 21 | JMPSAVEARRAY.F!|
00000160: 40 01 20 4A 4D 50 4C 4F 41 44 41 52 52 41 59 00 |@. JMPLOADARRAY.|
00000170: 56 21 4A 01 20 4A 4D 50 44 49 52 52 45 41 44 00 |V!J. JMPDIRREAD.|
00000180: 68 21 54 01 20 4A 4D 50 53 50 45 49 43 48 45 52 |h!T. JMPSPEICHER|
00000190: 4E 00 6E 21 5E 01 3B 00 74 21 68 01 3B 00 86 21 |N.n!^.;.t!h.;..!|
000001A0: 72 01 3B 2A 2A 2A 20 4C 4F 41 44 20 2A 2A 2A 00 |r.;*** LOAD ***.|
000001B0: 95 21 7C 01 20 4A 53 52 53 4C 49 4E 49 54 00 A0 |.!|. JSRSLINIT..|
000001C0: 21 86 01 20 4C 44 41 23 30 00 AE 21 90 01 20 4C |!.. LDA#0..!.. L|
000001D0: 44 58 49 4E 44 49 5A 00 BE 21 9A 01 20 4C 44 59 |DXINDIZ..!.. LDY|
000001E0: 49 4E 44 49 5A 2B 31 00 CB 21 A4 01 20 4A 4D 50 |INDIZ+1..!.. JMP|
000001F0: 4C 4F 41 44 00 D1 21 AE 01 3B 00 D7 21 B8 01 3B |LOAD..!..;..!..;|
00000200: 00 E9 21 C2 01 3B 2A 2A 2A 20 53 41 56 45 20 2A |..!..;*** SAVE *|
00000210: 2A 2A 00 13 22 CC 01 53 50 45 49 43 48 45 52 4E |**.."..SPEICHERN|
00000220: 20 4A 53 52 53 4C 49 4E 49 54 3B 3D 3E 20 45 4E | JSRSLINIT;=> EN|
00000230: 44 41 44 52 2E 20 49 4E 20 59 2F 41 00 30 22 D6 |DADR. IN Y/A.0".|
00000240: 01 20 50 48 41 3B 4E 41 43 48 20 58 2F 59 20 55 |. PHA;NACH X/Y U|
00000250: 42 45 52 54 52 41 47 45 4E 00 39 22 E0 01 20 54 |BERTRAGEN.9".. T|
00000260: 59 41 00 42 22 EA 01 20 54 41 58 00 4B 22 F4 01 |YA.B".. TAX.K"..|
00000270: 20 50 4C 41 00 54 22 FE 01 20 54 41 59 00 63 22 | PLA.T".. TAY.c"|
00000280: 08 02 20 4C 44 41 23 49 4E 44 49 5A 00 70 22 12 |.. LDA#INDIZ.p".|
00000290: 02 20 4A 4D 50 53 41 56 45 00 76 22 1C 02 3B 00 |. JMPSAVE.v"..;.|
000002A0: 7C 22 26 02 3B 00 99 22 30 02 3B 2A 2A 2A 20 50 ||"&.;.."0.;*** P|
000002B0: 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E 20 2A |ARAMETER HOLEN *|
000002C0: 2A 2A 00 AA 22 3A 02 53 4C 49 4E 49 54 20 4C 44 |**..":.SLINIT LD|
000002D0: 41 23 31 00 B5 22 44 02 20 4C 44 58 23 38 00 C0 |A#1.."D. LDX#8..|
000002E0: 22 4E 02 20 4C 44 59 23 32 00 CF 22 58 02 20 4A |"N. LDY#2.."X. J|
000002F0: 53 52 53 45 54 46 4C 53 00 D5 22 62 02 3B 00 E4 |SRSETFLS.."b.;..|
00000300: 22 6C 02 20 4A 53 52 43 48 4B 4B 4F 4D 00 F3 22 |"l. JSRCHKKOM.."|
00000310: 76 02 20 4A 53 52 47 45 54 50 4F 53 00 FE 22 80 |v. JSRGETPOS..".|
00000320: 02 20 4C 44 59 23 30 00 11 23 8A 02 20 4C 44 41 |. LDY#0..#.. LDA|
00000330: 28 56 41 52 50 54 52 29 2C 59 00 1A 23 94 02 20 |(VARPTR),Y..#.. |
00000340: 50 48 41 00 23 23 9E 02 20 49 4E 59 00 36 23 A8 |PHA.##.. INY.6#.|
00000350: 02 20 4C 44 41 28 56 41 52 50 54 52 29 2C 59 00 |. LDA(VARPTR),Y.|
00000360: 3F 23 B2 02 20 54 41 58 00 48 23 BC 02 20 49 4E |?#.. TAX.H#.. IN|
00000370: 59 00 5B 23 C6 02 20 4C 44 41 28 56 41 52 50 54 |Y.[#.. LDA(VARPT|
00000380: 52 29 2C 59 00 64 23 D0 02 20 54 41 59 00 6D 23 |R),Y.d#.. TAY.m#|
00000390: DA 02 20 50 4C 41 00 7C 23 E4 02 20 4A 53 52 53 |.. PLA.|#.. JSRS|
000003A0: 45 54 4E 41 4D 00 82 23 EE 02 3B 00 91 23 F8 02 |ETNAM..#..;..#..|
000003B0: 20 4A 53 52 43 48 4B 4B 4F 4D 00 A0 23 02 03 20 | JSRCHKKOM..#.. |
000003C0: 4A 53 52 46 52 4D 4E 55 4D 00 AF 23 0C 03 20 4A |JSRFRMNUM..#.. J|
000003D0: 53 52 41 44 52 46 4F 52 00 BD 23 16 03 20 53 54 |SRADRFOR..#.. ST|
000003E0: 59 49 4E 44 49 5A 00 CD 23 20 03 20 53 54 41 49 |YINDIZ..# . STAI|
000003F0: 4E 44 49 5A 2B 31 00 D3 23 2A 03 3B 00 E2 23 34 |NDIZ+1..#*.;..#4|
00000400: 03 20 4A 53 52 43 48 4B 4B 4F 4D 00 F1 23 3E 03 |. JSRCHKKOM..#>.|
00000410: 20 4A 53 52 46 52 4D 4E 55 4D 00 00 24 48 03 20 | JSRFRMNUM..$H. |
00000420: 4A 53 52 41 44 52 46 4F 52 00 09 24 52 03 20 52 |JSRADRFOR..$R. R|
00000430: 54 53 00 0F 24 5C 03 3B 00 15 24 66 03 3B 00 1B |TS..$\.;..$f.;..|
00000440: 24 70 03 3B 00 21 24 7A 03 3B 00 27 24 84 03 3B |$p.;.!$z.;.'$..;|
00000450: 00 4D 24 8E 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.M$..;**********|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000470: 2A 2A 2A 2A 2A 2A 00 73 24 98 03 3B 2A 20 20 20 |******.s$..;* |
00000480: 20 20 20 20 20 20 20 46 41 53 54 46 49 4C 45 20 | FASTFILE |
00000490: 20 20 20 20 20 20 20 20 20 20 20 2A 00 99 24 A2 | *..$.|
000004A0: 03 3B 2A 20 20 20 20 28 43 29 20 53 41 49 44 20 |.;* (C) SAID |
000004B0: 42 41 4C 4F 55 49 2C 20 31 39 38 37 20 20 20 20 |BALOUI, 1987 |
000004C0: 20 2A 00 BF 24 AC 03 3B 2A 2A 2A 2A 2A 2A 2A 2A | *..$..;********|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 C5 24 B6 03 3B 00 CB |********..$..;..|
000004F0: 24 C0 03 3B 00 D1 24 CA 03 3B 00 F7 24 D4 03 3B |$..;..$..;..$..;|
00000500: 2A 2A 2A 2A 2A 20 46 55 4E 4B 54 49 4F 4E 3A 20 |***** FUNKTION: |
00000510: 44 52 45 49 54 45 49 4C 49 47 20 2A 2A 2A 2A 2A |DREITEILIG *****|
00000520: 00 FD 24 DE 03 3B 00 1F 25 E8 03 3B 31 2E 46 41 |..$..;..%..;1.FA|
00000530: 53 54 53 41 56 45 3A 20 53 50 45 49 43 48 45 52 |STSAVE: SPEICHER|
00000540: 54 20 41 52 52 41 59 53 00 40 25 F2 03 3B 20 20 |T ARRAYS.@%..; |
00000550: 20 20 20 20 20 20 20 20 20 20 42 45 4C 49 45 42 | BELIEB|
00000560: 49 47 45 4E 20 54 59 50 53 00 46 25 FC 03 3B 00 |IGEN TYPS.F%..;.|
00000570: 6B 25 06 04 3B 32 2E 46 41 53 54 4C 4F 41 44 3A |k%..;2.FASTLOAD:|
00000580: 20 4C 41 45 44 54 20 45 49 4E 45 4E 20 45 49 4E | LAEDT EINEN EIN|
00000590: 5A 45 4C 2D 00 8E 25 10 04 3B 20 20 20 20 20 20 |ZEL-..%..; |
000005A0: 20 20 20 20 20 20 4E 45 4E 20 53 54 52 49 4E 47 | NEN STRING|
000005B0: 20 28 49 4E 43 4C 2E 00 B2 25 1A 04 3B 20 20 20 | (INCL...%..; |
000005C0: 20 20 20 20 20 20 20 20 20 41 4C 4C 45 52 20 42 | ALLER B|
000005D0: 45 49 20 27 49 4E 50 55 54 23 27 00 D7 25 24 04 |EI 'INPUT#'..%$.|
000005E0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 5A |; UNZ|
000005F0: 55 4C 2E 5A 45 49 43 48 45 4E 20 28 2E 3A 2C 29 |UL.ZEICHEN (.:,)|
00000600: 00 FB 25 2E 04 3B 20 20 20 20 20 20 20 20 20 20 |..%..; |
00000610: 20 20 4D 49 54 20 4D 41 58 2D 4C 41 45 4E 47 45 | MIT MAX-LAENGE|
00000620: 20 32 35 35 00 1A 26 38 04 3B 20 20 20 20 20 20 | 255..&8.; |
00000630: 20 20 20 20 20 20 5A 45 49 43 48 45 4E 20 4F 44 | ZEICHEN OD|
00000640: 45 52 3A 00 3C 26 42 04 3B 20 20 20 20 20 20 20 |ER:.<&B.; |
00000650: 20 20 20 20 20 45 49 4E 20 47 41 4E 5A 45 53 20 | EIN GANZES |
00000660: 41 52 52 41 59 00 5E 26 4C 04 3B 20 20 20 20 20 |ARRAY.^&L.; |
00000670: 20 20 20 20 20 20 20 42 45 4C 49 45 42 49 47 45 | BELIEBIGE|
00000680: 4E 20 54 59 50 53 2E 00 64 26 56 04 3B 00 8A 26 |N TYPS..d&V.;..&|
00000690: 60 04 3B 20 20 20 20 20 20 20 20 20 20 20 20 27 |`.; '|
000006A0: 46 41 53 54 4C 4F 41 44 27 20 56 45 52 4B 52 41 |FASTLOAD' VERKRA|
000006B0: 46 54 2D 00 AF 26 6A 04 3B 20 20 20 20 20 20 20 |FT-..&j.; |
000006C0: 20 20 20 20 20 54 45 54 20 49 4D 20 47 45 47 45 | TET IM GEGE|
000006D0: 4E 53 41 54 5A 20 5A 55 00 D4 26 74 04 3B 20 20 |NSATZ ZU..&t.; |
000006E0: 20 20 20 20 20 20 20 20 20 20 27 49 4E 50 55 54 | 'INPUT|
000006F0: 23 27 20 41 55 43 48 20 4C 45 45 52 45 00 FA 26 |#' AUCH LEERE..&|
00000700: 7E 04 3B 20 20 20 20 20 20 20 20 20 20 20 20 53 |~.; S|
00000710: 54 52 49 4E 47 53 20 45 49 4E 57 41 4E 44 46 52 |TRINGS EINWANDFR|
00000720: 45 49 21 00 00 27 88 04 3B 00 15 27 92 04 3B 53 |EI!..'..;..'..;S|
00000730: 50 45 49 43 48 45 52 46 4F 52 4D 41 54 3A 00 39 |PEICHERFORMAT:.9|
00000740: 27 9C 04 3B 2D 53 54 52 49 4E 47 53 3A 20 5A 45 |'..;-STRINGS: ZE|
00000750: 49 43 48 45 4E 57 45 49 53 45 20 4D 49 54 20 41 |ICHENWEISE MIT A|
00000760: 42 2D 00 5E 27 A6 04 3B 20 20 20 20 20 20 20 20 |B-.^'..; |
00000770: 20 20 53 43 48 4C 2E 20 43 41 52 52 49 41 47 45 | SCHL. CARRIAGE|
00000780: 20 52 45 54 55 52 4E 00 7E 27 B0 04 3B 2D 49 4E | RETURN.~'..;-IN|
00000790: 54 45 47 45 52 3A 20 48 49 47 48 2F 4C 4F 57 20 |TEGER: HIGH/LOW |
000007A0: 4F 48 4E 45 20 43 52 00 96 27 BA 04 3B 20 20 20 |OHNE CR..'..; |
000007B0: 20 20 20 20 20 20 20 28 32 20 42 59 54 45 29 00 | (2 BYTE).|
000007C0: B9 27 C4 04 3B 2D 52 45 41 4C 3A 20 53 50 45 49 |.'..;-REAL: SPEI|
000007D0: 43 48 45 52 46 4F 52 4D 41 54 20 4F 48 4E 45 20 |CHERFORMAT OHNE |
000007E0: 43 52 00 CE 27 CE 04 3B 20 20 20 20 20 20 20 28 |CR..'..; (|
000007F0: 35 20 42 59 54 45 29 00 D4 27 D8 04 3B 00 F5 27 |5 BYTE)..'..;..'|
00000800: E2 04 3B 41 43 48 54 55 4E 47 3A 20 44 41 53 20 |..;ACHTUNG: DAS |
00000810: 46 4F 52 4D 41 54 2C 20 49 4E 20 44 45 4D 00 19 |FORMAT, IN DEM..|
00000820: 28 EC 04 3B 20 20 20 20 20 20 20 20 20 52 45 41 |(..; REA|
00000830: 4C 2D 20 55 2E 49 4E 54 45 47 45 52 41 52 52 41 |L- U.INTEGERARRA|
00000840: 59 53 00 3F 28 F6 04 3B 20 20 20 20 20 20 20 20 |YS.?(..; |
00000850: 20 47 45 53 50 45 49 43 48 45 52 54 20 57 45 52 | GESPEICHERT WER|
00000860: 44 45 4E 2C 20 49 53 54 00 5D 28 00 05 3B 20 20 |DEN, IST.](..; |
00000870: 20 20 20 20 20 20 20 49 4E 4B 4F 4D 50 41 54 49 | INKOMPATI|
00000880: 42 45 4C 20 5A 55 00 78 28 0A 05 3B 20 20 20 20 |BEL ZU.x(..; |
00000890: 20 20 20 20 20 27 49 4E 50 55 54 23 27 20 21 21 | 'INPUT#' !!|
000008A0: 21 00 9C 28 14 05 3B 20 20 20 20 20 20 3D 3E 20 |!..(..; => |
000008B0: 5A 55 4D 20 45 49 4E 4C 45 53 45 4E 20 4D 55 53 |ZUM EINLESEN MUS|
000008C0: 53 20 28 21 29 00 BF 28 1E 05 3B 20 20 20 20 20 |S (!)..(..; |
000008D0: 20 20 20 20 27 46 41 53 54 4C 4F 41 44 27 20 56 | 'FASTLOAD' V|
000008E0: 45 52 57 45 4E 44 45 54 00 D8 28 28 05 3B 20 20 |ERWENDET..((.; |
000008F0: 20 20 20 20 20 20 20 57 45 52 44 45 4E 20 21 21 | WERDEN !!|
00000900: 21 00 DE 28 32 05 3B 00 E4 28 3C 05 3B 00 06 29 |!..(2.;..(<.;..)|
00000910: 46 05 3B 56 4F 52 42 45 52 45 49 54 55 4E 47 3A |F.;VORBEREITUNG:|
00000920: 20 44 41 54 45 49 20 4D 55 53 53 20 42 45 49 00 | DATEI MUSS BEI.|
00000930: 24 29 50 05 3B 20 20 20 20 20 20 20 20 20 20 20 |$)P.; |
00000940: 20 20 20 41 55 46 52 55 46 20 56 4F 4E 00 49 29 | AUFRUF VON.I)|
00000950: 5A 05 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |Z.; |
00000960: 20 46 41 53 54 53 41 56 45 2F 46 41 53 54 4C 4F | FASTSAVE/FASTLO|
00000970: 41 44 00 68 29 64 05 3B 20 20 20 20 20 20 20 20 |AD.h)d.; |
00000980: 20 20 20 20 20 20 4F 46 46 45 4E 20 53 45 49 4E | OFFEN SEIN|
00000990: 2E 00 6E 29 6E 05 3B 00 74 29 78 05 3B 00 9A 29 |..n)n.;.t)x.;..)|
000009A0: 82 05 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |..;************ |
000009B0: 20 41 55 46 52 55 46 20 2A 2A 2A 2A 2A 2A 2A 2A | AUFRUF ********|
000009C0: 2A 2A 2A 00 BB 29 8C 05 3B 53 41 56 45 20 3A 20 |***..)..;SAVE : |
000009D0: 53 59 53 20 58 2C 4C 46 4E 2C 4E 52 2C 56 41 52 |SYS X,LFN,NR,VAR|
000009E0: 28 2E 2E 29 00 DC 29 96 05 3B 20 20 20 20 20 20 |(..)..)..; |
000009F0: 2D 20 4C 46 4E 3A 20 4C 4F 47 2E 46 49 4C 45 4E |- LFN: LOG.FILEN|
00000A00: 55 4D 4D 45 52 00 01 2A A0 05 3B 20 20 20 20 20 |UMMER..*..; |
00000A10: 20 2D 20 4E 52 3A 20 41 4E 5A 41 48 4C 20 44 45 | - NR: ANZAHL DE|
00000A20: 52 20 5A 55 20 53 50 45 49 2D 00 24 2A AA 05 3B |R ZU SPEI-.$*..;|
00000A30: 20 20 20 20 20 20 2D 20 20 20 20 20 43 48 45 52 | - CHER|
00000A40: 4E 44 45 4E 20 45 4C 45 4D 45 4E 54 45 00 4A 2A |NDEN ELEMENTE.J*|
00000A50: B4 05 3B 20 20 20 20 20 20 56 41 52 28 2E 2E 29 |..; VAR(..)|
00000A60: 3A 20 31 2E 5A 55 20 53 50 45 49 43 48 45 52 4E |: 1.ZU SPEICHERN|
00000A70: 44 45 53 00 6B 2A BE 05 3B 20 20 20 20 20 20 20 |DES.k*..; |
00000A80: 20 20 20 20 20 20 20 20 41 52 52 41 59 45 4C 45 | ARRAYELE|
00000A90: 4D 45 4E 54 00 71 2A C8 05 3B 00 8D 2A D2 05 3B |MENT.q*..;..*..;|
00000AA0: 4C 4F 41 44 3A 20 53 59 53 20 58 2C 4C 46 4E 2C |LOAD: SYS X,LFN,|
00000AB0: 4E 52 2C 56 41 52 00 AD 2A DC 05 3B 20 20 20 20 |NR,VAR..*..; |
00000AC0: 20 2D 20 4C 46 4E 3A 20 4C 4F 47 2E 46 49 4C 45 | - LFN: LOG.FILE|
00000AD0: 4E 55 4D 4D 45 52 00 D2 2A E6 05 3B 20 20 20 20 |NUMMER..*..; |
00000AE0: 20 2D 20 4E 52 3A 20 41 4E 5A 41 48 4C 20 44 45 | - NR: ANZAHL DE|
00000AF0: 52 20 5A 55 20 4C 41 44 45 4E 2D 00 F0 2A F0 05 |R ZU LADEN-..*..|
00000B00: 3B 20 20 20 20 20 20 20 20 20 20 20 44 45 4E 20 |; DEN |
00000B10: 45 4C 45 4D 45 4E 54 45 3A 00 13 2B FA 05 3B 20 |ELEMENTE:..+..; |
00000B20: 20 20 20 20 20 20 20 20 20 20 2D 20 31 2C 57 45 | - 1,WE|
00000B30: 4E 4E 20 44 2E 52 4F 55 54 49 4E 45 00 34 2B 04 |NN D.ROUTINE.4+.|
00000B40: 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 4E |.; N|
00000B50: 55 52 20 41 4C 53 20 45 52 53 41 54 5A 00 55 2B |UR ALS ERSATZ.U+|
00000B60: 0E 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00000B70: 46 2E 27 49 4E 50 55 54 23 27 20 5A 55 4D 00 7B |F.'INPUT#' ZUM.{|
00000B80: 2B 18 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 |+..; |
00000B90: 20 4C 45 53 45 4E 20 45 49 4E 45 53 20 53 54 52 | LESEN EINES STR|
00000BA0: 49 4E 47 53 00 9D 2B 22 06 3B 20 20 20 20 20 20 |INGS..+".; |
00000BB0: 20 20 20 20 20 20 20 56 45 52 57 45 4E 44 45 54 | VERWENDET|
00000BC0: 20 57 49 52 44 2E 00 C0 2B 2C 06 3B 20 20 20 20 | WIRD...+,.; |
00000BD0: 20 20 20 20 20 20 20 2D 20 53 4F 4E 53 54 20 41 | - SONST A|
00000BE0: 4E 5A 41 48 4C 20 44 45 52 00 E0 2B 36 06 3B 20 |NZAHL DER..+6.; |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 41 52 52 41 | ARRA|
00000C00: 59 45 4C 45 4D 45 4E 54 45 00 05 2C 40 06 3B 20 |YELEMENTE..,@.; |
00000C10: 20 20 20 20 2D 20 56 41 52 3A 20 5A 55 57 45 49 | - VAR: ZUWEI|
00000C20: 53 55 4E 47 53 56 41 52 49 41 42 4C 45 3A 00 2A |SUNGSVARIABLE:.*|
00000C30: 2C 4A 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 |,J.; |
00000C40: 2D 20 42 45 4C 49 45 42 49 47 45 20 53 54 52 49 |- BELIEBIGE STRI|
00000C50: 4E 47 2D 00 50 2C 54 06 3B 20 20 20 20 20 20 20 |NG-.P,T.; |
00000C60: 20 20 20 20 20 20 20 56 41 52 2E 20 42 45 49 20 | VAR. BEI |
00000C70: 27 49 4E 50 55 54 23 27 2D 00 6B 2C 5E 06 3B 20 |'INPUT#'-.k,^.; |
00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 53 | ERS|
00000C90: 41 54 5A 2E 00 8D 2C 68 06 3B 20 20 20 20 20 20 |ATZ...,h.; |
00000CA0: 20 20 20 20 20 20 2D 20 41 52 52 41 59 56 41 52 | - ARRAYVAR|
00000CB0: 2E 20 42 45 49 4D 00 B0 2C 72 06 3B 20 20 20 20 |. BEIM..,r.; |
00000CC0: 20 20 20 20 20 20 20 20 20 20 4C 41 44 45 4E 20 | LADEN |
00000CD0: 45 49 4E 45 53 20 4D 49 54 00 D6 2C 7C 06 3B 20 |EINES MIT..,|.; |
00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 46 41 | 'FA|
00000CF0: 53 54 53 41 56 45 27 20 47 45 53 50 45 49 2D 00 |STSAVE' GESPEI-.|
00000D00: F9 2C 86 06 3B 20 20 20 20 20 20 20 20 20 20 20 |.,..; |
00000D10: 20 20 20 43 48 45 52 54 45 4E 20 41 52 52 41 59 | CHERTEN ARRAY|
00000D20: 53 2E 00 FF 2C 90 06 3B 00 05 2D 9A 06 3B 00 2B |S...,..;..-..;.+|
00000D30: 2D A4 06 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 |-..;********** B|
00000D40: 45 49 53 50 49 45 4C 45 20 2A 2A 2A 2A 2A 2A 2A |EISPIELE *******|
00000D50: 2A 2A 2A 2A 00 4B 2D AE 06 3B 31 2E 20 53 59 53 |****.K-..;1. SYS|
00000D60: 20 4C 4F 41 44 2C 32 2C 31 2C 41 24 20 20 20 20 | LOAD,2,1,A$ |
00000D70: 4F 44 45 52 00 67 2D B8 06 3B 20 20 20 53 59 53 |ODER.g-..; SYS|
00000D80: 20 4C 4F 41 44 2C 32 2C 31 2C 58 24 28 32 33 29 | LOAD,2,1,X$(23)|
00000D90: 00 6D 2D C2 06 3B 00 93 2D CC 06 3B 3D 3E 20 4C |.m-..;..-..;=> L|
00000DA0: 45 53 45 4E 20 45 49 4E 45 53 20 45 49 4E 5A 45 |ESEN EINES EINZE|
00000DB0: 4C 4E 45 4E 20 53 54 52 49 4E 47 53 00 B0 2D D6 |LNEN STRINGS..-.|
00000DC0: 06 3B 20 20 20 41 55 53 20 44 41 54 45 49 20 4D |.; AUS DATEI M|
00000DD0: 49 54 20 4C 46 4E 20 32 2E 00 B6 2D E0 06 3B 00 |IT LFN 2...-..;.|
00000DE0: BC 2D EA 06 3B 00 E0 2D F4 06 3B 32 2E 20 53 59 |.-..;..-..;2. SY|
00000DF0: 53 20 53 41 56 45 2C 31 2C 32 2A 35 2C 41 25 28 |S SAVE,1,2*5,A%(|
00000E00: 33 29 20 20 20 20 55 4E 44 00 FC 2D FE 06 3B 20 |3) UND..-..; |
00000E10: 20 20 53 59 53 20 4C 4F 41 44 2C 33 2C 31 30 2C | SYS LOAD,3,10,|
00000E20: 41 25 28 37 29 00 02 2E 08 07 3B 00 24 2E 12 07 |A%(7).....;.$...|
00000E30: 3B 3D 3E 20 53 50 45 49 43 48 45 52 4E 20 56 4F |;=> SPEICHERN VO|
00000E40: 4E 20 31 30 20 49 4E 54 45 47 45 52 53 00 4A 2E |N 10 INTEGERS.J.|
00000E50: 1C 07 3B 20 20 20 41 25 28 33 29 2D 41 25 28 31 |..; A%(3)-A%(1|
00000E60: 32 29 20 49 4E 20 44 41 54 45 49 20 28 4C 46 4E |2) IN DATEI (LFN|
00000E70: 20 31 29 00 6D 2E 26 07 3B 20 20 20 55 4E 44 20 | 1).m.&.; UND |
00000E80: 4C 45 53 45 4E 20 56 4F 4E 20 31 30 20 49 4E 4E |LESEN VON 10 INN|
00000E90: 54 45 47 45 52 53 00 8F 2E 30 07 3B 20 20 20 49 |TEGERS...0.; I|
00000EA0: 4E 20 41 25 28 37 29 2D 41 25 28 31 36 29 20 41 |N A%(7)-A%(16) A|
00000EB0: 55 53 20 44 41 54 45 49 00 A2 2E 3A 07 3B 20 20 |US DATEI...:.; |
00000EC0: 20 4D 49 54 20 4C 46 4E 20 33 2E 00 A8 2E 44 07 | MIT LFN 3....D.|
00000ED0: 3B 00 AE 2E 4E 07 3B 00 B4 2E 58 07 3B 00 BA 2E |;...N.;...X.;...|
00000EE0: 62 07 3B 00 E0 2E 6C 07 3B 2A 2A 2A 2A 2A 2A 2A |b.;...l.;*******|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 2F 76 07 3B 2A |*********../v.;*|
00000F10: 20 20 20 20 20 20 20 20 20 20 20 4C 41 42 45 4C | LABEL|
00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000F30: 2C 2F 80 07 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,/..;***********|
00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F50: 2A 2A 2A 2A 2A 00 32 2F 8A 07 3B 00 38 2F 94 07 |*****.2/..;.8/..|
00000F60: 3B 00 5E 2F 9E 07 3B 2A 2A 2A 2A 2A 2A 2A 20 42 |;.^/..;******* B|
00000F70: 45 54 52 49 45 42 53 53 59 53 54 45 4D 20 2A 2A |ETRIEBSSYSTEM **|
00000F80: 2A 2A 2A 2A 2A 2A 2A 00 64 2F A8 07 3B 00 88 2F |*******.d/..;../|
00000F90: B2 07 2E 45 51 20 43 48 4B 4B 4F 4D 20 3D 24 41 |...EQ CHKKOM =$A|
00000FA0: 45 46 44 20 20 3B 4C 49 45 53 54 20 4B 4F 4D 4D |EFD ;LIEST KOMM|
00000FB0: 41 00 B1 2F BC 07 2E 45 51 20 47 45 54 42 59 54 |A../...EQ GETBYT|
00000FC0: 20 3D 24 42 37 39 45 20 20 3B 48 4F 4C 54 20 31 | =$B79E ;HOLT 1|
00000FD0: 2D 42 59 54 45 2D 57 45 52 54 00 E1 2F C6 07 2E |-BYTE-WERT../...|
00000FE0: 45 51 20 46 52 4D 4E 55 4D 20 3D 24 41 44 38 41 |EQ FRMNUM =$AD8A|
00000FF0: 20 20 3B 57 45 52 54 45 54 20 4E 55 4D 2E 41 55 | ;WERTET NUM.AU|
00001000: 53 44 52 55 43 4B 20 41 55 53 00 23 30 D0 07 2E |SDRUCK AUS.#0...|
00001010: 45 51 20 41 44 52 46 4F 52 20 3D 24 42 37 46 37 |EQ ADRFOR =$B7F7|
00001020: 20 20 3B 46 4C 49 45 53 53 4B 4F 4D 4D 41 5A 41 | ;FLIESSKOMMAZA|
00001030: 48 4C 20 4E 41 43 48 20 41 44 52 45 53 53 46 4F |HL NACH ADRESSFO|
00001040: 52 4D 41 54 20 57 41 4E 44 45 4C 4E 00 55 30 DA |RMAT WANDELN.U0.|
00001050: 07 2E 45 51 20 47 45 54 50 4F 53 20 3D 24 42 30 |..EQ GETPOS =$B0|
00001060: 38 42 20 20 3B 5A 45 49 47 45 52 20 41 55 46 20 |8B ;ZEIGER AUF |
00001070: 56 41 52 49 41 42 4C 45 20 48 4F 4C 45 4E 00 81 |VARIABLE HOLEN..|
00001080: 30 E4 07 2E 45 51 20 56 41 52 50 54 52 20 3D 24 |0...EQ VARPTR =$|
00001090: 34 37 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 |47 ;ZEIGER AU|
000010A0: 46 20 56 41 52 49 41 42 4C 45 00 B8 30 EE 07 2E |F VARIABLE..0...|
000010B0: 45 51 20 43 48 4B 4F 55 54 20 3D 24 46 46 43 39 |EQ CHKOUT =$FFC9|
000010C0: 20 20 3B 41 55 53 47 41 42 45 20 41 55 46 20 4C | ;AUSGABE AUF L|
000010D0: 4F 47 2E 44 41 54 45 49 20 55 4D 4C 45 49 54 45 |OG.DATEI UMLEITE|
000010E0: 4E 00 EF 30 F8 07 2E 45 51 20 43 48 4B 49 4E 20 |N..0...EQ CHKIN |
000010F0: 20 3D 24 46 46 43 36 20 20 3B 45 49 4E 47 41 42 | =$FFC6 ;EINGAB|
00001100: 45 20 41 55 46 20 4C 4F 47 2E 44 41 54 45 49 20 |E AUF LOG.DATEI |
00001110: 55 4D 4C 45 49 54 45 4E 00 1A 31 02 08 2E 45 51 |UMLEITEN..1...EQ|
00001120: 20 43 4C 52 43 48 20 20 3D 24 46 46 43 43 20 20 | CLRCH =$FFCC |
00001130: 3B 4B 41 4E 41 45 4C 45 20 53 43 48 4C 49 45 53 |;KANAELE SCHLIES|
00001140: 53 45 4E 00 4D 31 0C 08 2E 45 51 20 42 53 4F 55 |SEN.M1...EQ BSOU|
00001150: 54 20 20 3D 24 46 46 44 32 20 20 3B 42 59 54 45 |T =$FFD2 ;BYTE|
00001160: 20 49 4E 20 4C 4F 47 2E 44 41 54 45 49 20 41 55 | IN LOG.DATEI AU|
00001170: 53 47 45 42 45 4E 00 7E 31 16 08 2E 45 51 20 42 |SGEBEN.~1...EQ B|
00001180: 41 53 49 4E 20 20 3D 24 46 46 43 46 20 20 3B 42 |ASIN =$FFCF ;B|
00001190: 59 54 45 20 56 4F 4E 20 4C 4F 47 2E 44 41 54 45 |YTE VON LOG.DATE|
000011A0: 49 20 48 4F 4C 45 4E 00 A3 31 20 08 2E 45 51 20 |I HOLEN..1 ..EQ |
000011B0: 56 41 4C 54 59 50 20 3D 24 30 44 20 20 20 20 3B |VALTYP =$0D ;|
000011C0: 56 41 52 49 41 42 4C 45 4E 54 59 50 00 D7 31 2A |VARIABLENTYP..1*|
000011D0: 08 2E 45 51 20 49 4E 54 46 4C 47 20 3D 24 30 45 |..EQ INTFLG =$0E|
000011E0: 20 20 20 20 3B 53 50 45 5A 49 46 49 4B 41 54 49 | ;SPEZIFIKATI|
000011F0: 4F 4E 20 4E 55 4D 2E 56 41 52 49 41 42 4C 45 4E |ON NUM.VARIABLEN|
00001200: 00 0A 32 34 08 2E 45 51 20 53 54 52 45 4E 44 20 |..24..EQ STREND |
00001210: 3D 24 33 33 20 20 20 20 3B 28 55 4E 54 45 52 45 |=$33 ;(UNTERE|
00001220: 53 29 20 45 4E 44 45 20 53 54 52 49 4E 47 53 54 |S) ENDE STRINGST|
00001230: 41 43 4B 00 40 32 3E 08 2E 45 51 20 53 54 52 52 |ACK.@2>..EQ STRR|
00001240: 45 53 20 3D 24 42 34 46 34 20 20 3B 50 4C 41 54 |ES =$B4F4 ;PLAT|
00001250: 5A 20 46 55 45 52 20 53 54 52 49 4E 47 20 52 45 |Z FUER STRING RE|
00001260: 53 45 52 56 49 45 52 45 4E 00 46 32 48 08 3B 00 |SERVIEREN.F2H.;.|
00001270: 4C 32 52 08 3B 00 72 32 5C 08 3B 2A 2A 2A 2A 2A |L2R.;.r2\.;*****|
00001280: 2A 2A 2A 20 50 52 4F 47 52 41 4D 4D 49 4E 54 45 |*** PROGRAMMINTE|
00001290: 52 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 00 78 32 66 08 |RN ********.x2f.|
000012A0: 3B 00 9E 32 70 08 2E 45 51 20 43 4F 55 4E 54 20 |;..2p..EQ COUNT |
000012B0: 20 3D 24 46 42 20 20 20 20 3B 45 4C 45 4D 45 4E | =$FB ;ELEMEN|
000012C0: 54 41 4E 5A 41 48 4C 00 C9 32 7A 08 2E 45 51 20 |TANZAHL..2z..EQ |
000012D0: 53 54 52 44 45 53 20 3D 24 46 44 20 20 20 20 3B |STRDES =$FD ;|
000012E0: 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 4F 52 |STRINGDESCRIPTOR|
000012F0: 45 4E 00 EE 32 84 08 2E 45 51 20 50 4F 49 4E 54 |EN..2...EQ POINT|
00001300: 52 20 3D 24 41 37 20 20 20 20 3B 48 49 4C 46 53 |R =$A7 ;HILFS|
00001310: 50 4F 49 4E 54 45 52 00 29 33 8E 08 2E 45 51 20 |POINTER.)3...EQ |
00001320: 53 54 52 4C 45 4E 47 54 48 20 3D 24 41 39 20 20 |STRLENGTH =$A9 |
00001330: 20 20 3B 4C 41 45 4E 47 45 20 44 45 53 20 45 49 | ;LAENGE DES EI|
00001340: 4E 47 45 4C 45 53 45 4E 45 4E 20 53 54 52 49 4E |NGELESENEN STRIN|
00001350: 47 53 00 5B 33 98 08 2E 45 51 20 4F 46 46 53 45 |GS.[3...EQ OFFSE|
00001360: 54 20 3D 24 41 41 20 20 20 20 3B 4F 46 46 53 45 |T =$AA ;OFFSE|
00001370: 54 20 44 45 52 20 41 52 52 41 59 56 41 52 49 41 |T DER ARRAYVARIA|
00001380: 42 4C 45 4E 00 61 33 A2 08 3B 00 67 33 AC 08 3B |BLEN.a3..;.g3..;|
00001390: 00 6D 33 B6 08 3B 00 73 33 C0 08 3B 00 79 33 CA |.m3..;.s3..;.y3.|
000013A0: 08 3B 00 7F 33 D4 08 3B 00 A5 33 DE 08 3B 2A 2A |.;..3..;..3..;**|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB |**************..|
000013D0: 33 E8 08 3B 2A 20 20 20 20 20 20 20 20 20 20 20 |3..;* |
000013E0: 20 53 41 56 45 20 20 20 20 20 20 20 20 20 20 20 | SAVE |
000013F0: 20 20 20 2A 00 F1 33 F2 08 3B 2A 2A 2A 2A 2A 2A | *..3..;******|
00001400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F7 33 FC 08 3B |**********..3..;|
00001420: 00 1D 34 06 09 3B 2A 2A 2A 2A 2A 20 41 55 53 47 |..4..;***** AUSG|
00001430: 41 42 45 20 41 55 46 20 4C 4F 47 2E 44 41 54 45 |ABE AUF LOG.DATE|
00001440: 49 20 2A 2A 2A 2A 00 35 34 10 09 53 41 56 45 41 |I ****.54..SAVEA|
00001450: 52 52 41 59 20 4A 53 52 43 48 4B 4B 4F 4D 00 44 |RRAY JSRCHKKOM.D|
00001460: 34 1A 09 20 4A 53 52 47 45 54 42 59 54 00 53 34 |4.. JSRGETBYT.S4|
00001470: 24 09 20 4A 53 52 43 48 4B 4F 55 54 00 59 34 2E |$. JSRCHKOUT.Y4.|
00001480: 09 3B 00 67 34 38 09 20 4A 53 52 46 49 4E 49 54 |.;.g48. JSRFINIT|
00001490: 00 79 34 42 09 20 42 43 53 53 54 52 49 4E 47 4F |.y4B. BCSSTRINGO|
000014A0: 55 54 00 9F 34 4C 09 3B 2A 2A 2A 2A 2A 2A 2A 2A |UT..4L.;********|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 34 56 09 3B 00 AB |********..4V.;..|
000014D0: 34 60 09 3B 00 B1 34 6A 09 3B 00 D7 34 74 09 3B |4`.;..4j.;..4t.;|
000014E0: 2A 2A 2A 2A 2A 2A 2A 20 5A 41 48 4C 45 4E 20 41 |******* ZAHLEN A|
000014F0: 55 53 47 45 42 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A |USGEBEN ********|
00001500: 00 EB 34 7E 09 5A 41 48 4C 4F 55 54 20 4C 44 59 |..4~.ZAHLOUT LDY|
00001510: 23 24 46 46 00 FC 34 88 09 54 52 41 4E 53 46 45 |#$FF..4..TRANSFE|
00001520: 52 20 49 4E 59 00 0B 35 92 09 20 43 50 59 4F 46 |R INY..5.. CPYOF|
00001530: 46 53 45 54 00 1C 35 9C 09 20 42 45 51 4E 45 58 |FSET..5.. BEQNEX|
00001540: 54 5A 41 48 4C 00 2F 35 A6 09 20 4C 44 41 28 56 |TZAHL./5.. LDA(V|
00001550: 41 52 50 54 52 29 2C 59 00 3D 35 B0 09 20 4A 53 |ARPTR),Y.=5.. JS|
00001560: 52 42 53 4F 55 54 00 4E 35 BA 09 20 4A 4D 50 54 |RBSOUT.N5.. JMPT|
00001570: 52 41 4E 53 46 45 52 00 54 35 C4 09 3B 00 6B 35 |RANSFER.T5..;.k5|
00001580: CE 09 4E 45 58 54 5A 41 48 4C 20 4A 53 52 49 4E |..NEXTZAHL JSRIN|
00001590: 43 50 54 52 00 7B 35 D8 09 20 42 43 53 45 4E 44 |CPTR.{5.. BCSEND|
000015A0: 45 4F 55 54 00 8B 35 E2 09 20 42 43 43 5A 41 48 |EOUT..5.. BCCZAH|
000015B0: 4C 4F 55 54 00 B1 35 EC 09 3B 2A 2A 2A 2A 2A 2A |LOUT..5..;******|
000015C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B7 35 F6 09 3B |**********..5..;|
000015E0: 00 BD 35 00 0A 3B 00 C3 35 0A 0A 3B 00 E9 35 14 |..5..;..5..;..5.|
000015F0: 0A 3B 2A 2A 2A 2A 2A 2A 2A 20 53 54 52 49 4E 47 |.;******* STRING|
00001600: 20 41 55 53 47 45 42 45 4E 20 2A 2A 2A 2A 2A 2A | AUSGEBEN ******|
00001610: 2A 2A 00 01 36 1E 0A 53 54 52 49 4E 47 4F 55 54 |**..6..STRINGOUT|
00001620: 20 4A 53 52 48 4F 4C 44 45 53 00 07 36 28 0A 3B | JSRHOLDES..6(.;|
00001630: 00 14 36 32 0A 20 4C 44 59 23 24 46 46 00 26 36 |..62. LDY#$FF.&6|
00001640: 3C 0A 54 52 41 4E 53 46 45 52 31 20 49 4E 59 00 |<.TRANSFER1 INY.|
00001650: 35 36 46 0A 20 43 50 59 53 54 52 44 45 53 00 45 |56F. CPYSTRDES.E|
00001660: 36 50 0A 20 42 45 51 4E 45 58 54 53 54 52 00 5A |6P. BEQNEXTSTR.Z|
00001670: 36 5A 0A 20 4C 44 41 28 53 54 52 44 45 53 2B 31 |6Z. LDA(STRDES+1|
00001680: 29 2C 59 00 68 36 64 0A 20 4A 53 52 42 53 4F 55 |),Y.h6d. JSRBSOU|
00001690: 54 00 7A 36 6E 0A 20 4A 4D 50 54 52 41 4E 53 46 |T.z6n. JMPTRANSF|
000016A0: 45 52 31 00 80 36 78 0A 3B 00 93 36 82 0A 4E 45 |ER1..6x.;..6..NE|
000016B0: 58 54 53 54 52 20 4C 44 41 23 31 33 00 A1 36 8C |XTSTR LDA#13..6.|
000016C0: 0A 20 4A 53 52 42 53 4F 55 54 00 A7 36 96 0A 3B |. JSRBSOUT..6..;|
000016D0: 00 B6 36 A0 0A 20 4A 53 52 49 4E 43 50 54 52 00 |..6.. JSRINCPTR.|
000016E0: C8 36 AA 0A 20 42 43 43 53 54 52 49 4E 47 4F 55 |.6.. BCCSTRINGOU|
000016F0: 54 00 EE 36 B4 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |T..6..;*********|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001710: 2A 2A 2A 2A 2A 2A 2A 00 F4 36 BE 0A 3B 00 FA 36 |*******..6..;..6|
00001720: C8 0A 3B 00 00 37 D2 0A 3B 00 15 37 DC 0A 45 4E |..;..7..;..7..EN|
00001730: 44 45 4F 55 54 20 4A 53 52 43 4C 52 43 48 00 1E |DEOUT JSRCLRCH..|
00001740: 37 E6 0A 20 52 54 53 00 44 37 F0 0A 3B 2A 2A 2A |7.. RTS.D7..;***|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 37 |*************.j7|
00001770: FA 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00001780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001790: 2A 2A 2A 00 90 37 04 0B 3B 2A 2A 2A 2A 2A 2A 2A |***..7..;*******|
000017A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 96 37 0E 0B 3B 00 |*********..7..;.|
000017C0: 9C 37 18 0B 3B 00 A2 37 22 0B 3B 00 A8 37 2C 0B |.7..;..7".;..7,.|
000017D0: 3B 00 AE 37 36 0B 3B 00 D4 37 40 0B 3B 2A 2A 2A |;..76.;..7@.;***|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FA 37 |*************..7|
00001800: 4A 0B 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |J.;* |
00001810: 20 4C 4F 41 44 20 20 20 20 20 20 20 20 20 20 20 | LOAD |
00001820: 20 20 2A 00 20 38 54 0B 3B 2A 2A 2A 2A 2A 2A 2A | *. 8T.;*******|
00001830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 38 5E 0B 3B 00 |*********.&8^.;.|
00001850: 2C 38 68 0B 3B 00 52 38 72 0B 3B 2A 2A 2A 2A 2A |,8h.;.R8r.;*****|
00001860: 20 45 49 4E 47 41 42 45 20 41 55 46 20 4C 4F 47 | EINGABE AUF LOG|
00001870: 2E 44 41 54 45 49 20 2A 2A 2A 2A 00 6A 38 7C 0B |.DATEI ****.j8|.|
00001880: 4C 4F 41 44 41 52 52 41 59 20 4A 53 52 43 48 4B |LOADARRAY JSRCHK|
00001890: 4B 4F 4D 00 79 38 86 0B 20 4A 53 52 47 45 54 42 |KOM.y8.. JSRGETB|
000018A0: 59 54 00 87 38 90 0B 20 4A 53 52 43 48 4B 49 4E |YT..8.. JSRCHKIN|
000018B0: 00 8D 38 9A 0B 3B 00 BA 38 A4 0B 20 4A 53 52 46 |..8..;..8.. JSRF|
000018C0: 49 4E 49 54 3B 48 4F 4C 54 20 41 4E 5A 41 48 4C |INIT;HOLT ANZAHL|
000018D0: 2C 20 50 52 55 45 46 54 20 45 4C 45 4D 45 4E 54 |, PRUEFT ELEMENT|
000018E0: 54 59 50 00 CB 38 AE 0B 20 42 43 53 53 54 52 49 |TYP..8.. BCSSTRI|
000018F0: 4E 47 49 4E 00 F1 38 B8 0B 3B 2A 2A 2A 2A 2A 2A |NGIN..8..;******|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F7 38 C2 0B 3B |**********..8..;|
00001920: 00 FD 38 CC 0B 3B 00 03 39 D6 0B 3B 00 29 39 E0 |..8..;..9..;.)9.|
00001930: 0B 3B 2A 2A 20 4E 55 4D 45 52 49 53 43 48 45 53 |.;** NUMERISCHES|
00001940: 20 41 52 52 41 59 20 45 49 4E 4C 45 53 45 4E 20 | ARRAY EINLESEN |
00001950: 2A 2A 00 3C 39 EA 0B 5A 41 48 4C 49 4E 20 4C 44 |**.<9..ZAHLIN LD|
00001960: 59 23 24 46 46 00 49 39 F4 0B 5A 49 4E 31 20 49 |Y#$FF.I9..ZIN1 I|
00001970: 4E 59 00 58 39 FE 0B 20 43 50 59 4F 46 46 53 45 |NY.X9.. CPYOFFSE|
00001980: 54 00 65 39 08 0C 20 42 45 51 5A 49 4E 32 00 73 |T.e9.. BEQZIN2.s|
00001990: 39 12 0C 20 4A 53 52 42 41 53 49 4E 00 86 39 1C |9.. JSRBASIN..9.|
000019A0: 0C 20 53 54 41 28 56 41 52 50 54 52 29 2C 59 00 |. STA(VARPTR),Y.|
000019B0: 93 39 26 0C 20 4A 4D 50 5A 49 4E 31 00 99 39 30 |.9&. JMPZIN1..90|
000019C0: 0C 3B 00 AC 39 3A 0C 5A 49 4E 32 20 4A 53 52 49 |.;..9:.ZIN2 JSRI|
000019D0: 4E 43 50 54 52 00 BB 39 44 0C 20 42 43 43 5A 41 |NCPTR..9D. BCCZA|
000019E0: 48 4C 49 4E 00 CA 39 4E 0C 20 42 43 53 45 4E 44 |HLIN..9N. BCSEND|
000019F0: 45 49 4E 00 F0 39 58 0C 3B 2A 2A 2A 2A 2A 2A 2A |EIN..9X.;*******|
00001A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 39 62 0C 3B 00 |*********..9b.;.|
00001A20: FC 39 6C 0C 3B 00 02 3A 76 0C 3B 00 28 3A 80 0C |.9l.;..:v.;.(:..|
00001A30: 3B 2A 2A 2A 2A 20 53 54 52 49 4E 47 2F 53 54 52 |;**** STRING/STR|
00001A40: 49 4E 47 41 52 41 59 20 4C 45 53 45 4E 20 2A 2A |INGARAY LESEN **|
00001A50: 2A 00 3D 3A 8A 0C 53 54 52 49 4E 47 49 4E 20 4C |*.=:..STRINGIN L|
00001A60: 44 41 23 24 46 46 00 4C 3A 94 0C 20 4A 53 52 53 |DA#$FF.L:.. JSRS|
00001A70: 54 52 52 45 53 00 52 3A 9E 0C 3B 00 58 3A A8 0C |TRRES.R:..;.X:..|
00001A80: 3B 00 63 3A B2 0C 20 4C 44 59 23 30 00 77 3A BC |;.c:.. LDY#0.w:.|
00001A90: 0C 53 54 52 49 4E 31 20 4A 53 52 42 41 53 49 4E |.STRIN1 JSRBASIN|
00001AA0: 00 83 3A C6 0C 20 43 4D 50 23 31 33 00 92 3A D0 |..:.. CMP#13..:.|
00001AB0: 0C 20 42 45 51 53 54 52 49 4E 32 00 A5 3A DA 0C |. BEQSTRIN2..:..|
00001AC0: 20 53 54 41 28 53 54 52 45 4E 44 29 2C 59 00 AE | STA(STREND),Y..|
00001AD0: 3A E4 0C 20 49 4E 59 00 BD 3A EE 0C 20 42 4E 45 |:.. INY..:.. BNE|
00001AE0: 53 54 52 49 4E 31 00 C3 3A F8 0C 3B 00 DB 3A 02 |STRIN1..:..;..:.|
00001AF0: 0D 53 54 52 49 4E 32 20 53 54 59 53 54 52 4C 45 |.STRIN2 STYSTRLE|
00001B00: 4E 47 54 48 00 E1 3A 0C 0D 3B 00 E7 3A 16 0D 3B |NGTH..:..;..:..;|
00001B10: 00 07 3B 20 0D 3B 2A 50 4F 49 4E 54 45 52 20 41 |..; .;*POINTER A|
00001B20: 55 46 20 53 54 52 49 4E 47 41 4E 46 41 4E 47 2A |UF STRINGANFANG*|
00001B30: 00 18 3B 2A 0D 20 4C 44 41 53 54 52 45 4E 44 2B |..;*. LDASTREND+|
00001B40: 31 00 29 3B 34 0D 20 53 54 41 50 4F 49 4E 54 52 |1.);4. STAPOINTR|
00001B50: 2B 31 00 36 3B 3E 0D 20 4C 44 41 23 24 46 46 00 |+1.6;>. LDA#$FF.|
00001B60: 3F 3B 48 0D 20 53 45 43 00 51 3B 52 0D 20 53 42 |?;H. SEC.Q;R. SB|
00001B70: 43 53 54 52 4C 45 4E 47 54 48 00 5A 3B 5C 0D 20 |CSTRLENGTH.Z;\. |
00001B80: 43 4C 43 00 69 3B 66 0D 20 41 44 43 53 54 52 45 |CLC.i;f. ADCSTRE|
00001B90: 4E 44 00 78 3B 70 0D 20 53 54 41 50 4F 49 4E 54 |ND.x;p. STAPOINT|
00001BA0: 52 00 87 3B 7A 0D 20 42 43 43 4E 4F 49 4E 43 52 |R..;z. BCCNOINCR|
00001BB0: 00 98 3B 84 0D 20 49 4E 43 50 4F 49 4E 54 52 2B |..;.. INCPOINTR+|
00001BC0: 31 00 9E 3B 8E 0D 3B 00 A4 3B 98 0D 3B 00 BE 3B |1..;..;..;..;..;|
00001BD0: A2 0D 3B 2A 53 54 52 49 4E 47 20 56 45 52 53 43 |..;*STRING VERSC|
00001BE0: 48 49 45 42 45 4E 2A 00 D6 3B AC 0D 4E 4F 49 4E |HIEBEN*..;..NOIN|
00001BF0: 43 52 20 4C 44 59 53 54 52 4C 45 4E 47 54 48 00 |CR LDYSTRLENGTH.|
00001C00: E5 3B B6 0D 20 42 45 51 4E 4F 43 4F 50 59 00 EE |.;.. BEQNOCOPY..|
00001C10: 3B C0 0D 20 44 45 59 00 06 3C CA 0D 46 43 4F 50 |;.. DEY..<..FCOP|
00001C20: 59 20 4C 44 41 28 53 54 52 45 4E 44 29 2C 59 00 |Y LDA(STREND),Y.|
00001C30: 19 3C D4 0D 20 53 54 41 28 50 4F 49 4E 54 52 29 |.<.. STA(POINTR)|
00001C40: 2C 59 00 22 3C DE 0D 20 44 45 59 00 2F 3C E8 0D |,Y."<.. DEY./<..|
00001C50: 20 43 50 59 23 24 46 46 00 3D 3C F2 0D 20 42 4E | CPY#$FF.=<.. BN|
00001C60: 45 46 43 4F 50 59 00 43 3C FC 0D 3B 00 49 3C 06 |EFCOPY.C<..;.I<.|
00001C70: 0E 3B 00 70 3C 10 0E 3B 2A 44 45 53 43 52 49 50 |.;.p<..;*DESCRIP|
00001C80: 54 4F 52 45 4E 20 55 2E 53 54 52 45 4E 44 20 42 |TOREN U.STREND B|
00001C90: 45 48 41 4E 44 45 4C 4E 2A 00 81 3C 1A 0E 4E 4F |EHANDELN*..<..NO|
00001CA0: 43 4F 50 59 20 4C 44 59 23 30 00 93 3C 24 0E 20 |COPY LDY#0..<$. |
00001CB0: 4C 44 41 53 54 52 4C 45 4E 47 54 48 00 A6 3C 2E |LDASTRLENGTH..<.|
00001CC0: 0E 20 53 54 41 28 56 41 52 50 54 52 29 2C 59 00 |. STA(VARPTR),Y.|
00001CD0: AF 3C 38 0E 20 49 4E 59 00 BE 3C 42 0E 20 4C 44 |.<8. INY..<B. LD|
00001CE0: 41 50 4F 49 4E 54 52 00 D1 3C 4C 0E 20 53 54 41 |APOINTR..<L. STA|
00001CF0: 28 56 41 52 50 54 52 29 2C 59 00 E0 3C 56 0E 20 |(VARPTR),Y..<V. |
00001D00: 53 54 41 53 54 52 45 4E 44 00 E9 3C 60 0E 20 49 |STASTREND..<`. I|
00001D10: 4E 59 00 FA 3C 6A 0E 20 4C 44 41 50 4F 49 4E 54 |NY..<j. LDAPOINT|
00001D20: 52 2B 31 00 0D 3D 74 0E 20 53 54 41 28 56 41 52 |R+1..=t. STA(VAR|
00001D30: 50 54 52 29 2C 59 00 1E 3D 7E 0E 20 53 54 41 53 |PTR),Y..=~. STAS|
00001D40: 54 52 45 4E 44 2B 31 00 24 3D 88 0E 3B 00 33 3D |TREND+1.$=..;.3=|
00001D50: 92 0E 20 4A 53 52 49 4E 43 50 54 52 00 44 3D 9C |.. JSRINCPTR.D=.|
00001D60: 0E 20 42 43 43 53 54 52 49 4E 47 49 4E 00 6A 3D |. BCCSTRINGIN.j=|
00001D70: A6 0E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00001D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D90: 2A 2A 2A 00 70 3D B0 0E 3B 00 84 3D BA 0E 45 4E |***.p=..;..=..EN|
00001DA0: 44 45 49 4E 20 4A 53 52 43 4C 52 43 48 00 8D 3D |DEIN JSRCLRCH..=|
00001DB0: C4 0E 20 52 54 53 00 B3 3D CE 0E 3B 2A 2A 2A 2A |.. RTS..=..;****|
00001DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 3D D8 |************..=.|
00001DE0: 0E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E00: 2A 2A 00 FF 3D E2 0E 3B 2A 2A 2A 2A 2A 2A 2A 2A |**..=..;********|
00001E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E20: 2A 2A 2A 2A 2A 2A 2A 2A 00 05 3E EC 0E 3B 00 0B |********..>..;..|
00001E30: 3E F6 0E 3B 00 11 3E 00 0F 3B 00 17 3E 0A 0F 3B |>..;..>..;..>..;|
00001E40: 00 3D 3E 14 0F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.=>..;**********|
00001E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E60: 2A 2A 2A 2A 2A 2A 00 63 3E 1E 0F 3B 2A 20 20 20 |******.c>..;* |
00001E70: 20 20 20 20 20 55 4E 54 45 52 50 52 4F 47 52 41 | UNTERPROGRA|
00001E80: 4D 4D 45 20 20 20 20 20 20 20 20 2A 00 89 3E 28 |MME *..>(|
00001E90: 0F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00001EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EB0: 2A 2A 00 8F 3E 32 0F 3B 00 95 3E 3C 0F 3B 00 D1 |**..>2.;..><.;..|
00001EC0: 3E 46 0F 3B 2A 2A 2A 20 41 4E 5A 41 48 4C 20 55 |>F.;*** ANZAHL U|
00001ED0: 2E 5A 45 49 47 45 52 20 41 55 46 20 56 41 52 2E |.ZEIGER AUF VAR.|
00001EE0: 48 4F 4C 45 4E 2F 56 41 52 2E 2D 54 59 50 20 50 |HOLEN/VAR.-TYP P|
00001EF0: 52 55 45 46 45 4E 20 2A 2A 2A 00 D7 3E 50 0F 3B |RUEFEN ***..>P.;|
00001F00: 00 F2 3E 5A 0F 3B 2A 45 4C 45 4D 45 4E 54 41 4E |..>Z.;*ELEMENTAN|
00001F10: 5A 41 48 4C 20 48 4F 4C 45 4E 2A 00 06 3F 64 0F |ZAHL HOLEN*..?d.|
00001F20: 46 49 4E 49 54 20 4A 53 52 43 48 4B 4B 4F 4D 00 |FINIT JSRCHKKOM.|
00001F30: 15 3F 6E 0F 20 4A 53 52 46 52 4D 4E 55 4D 00 24 |.?n. JSRFRMNUM.$|
00001F40: 3F 78 0F 20 4A 53 52 41 44 52 46 4F 52 00 32 3F |?x. JSRADRFOR.2?|
00001F50: 82 0F 20 53 54 59 43 4F 55 4E 54 00 42 3F 8C 0F |.. STYCOUNT.B?..|
00001F60: 20 53 54 41 43 4F 55 4E 54 2B 31 00 48 3F 96 0F | STACOUNT+1.H?..|
00001F70: 3B 00 4E 3F A0 0F 3B 00 71 3F AA 0F 3B 2A 50 4F |;.N?..;.q?..;*PO|
00001F80: 49 4E 54 45 52 20 41 55 46 20 31 2E 45 4C 45 4D |INTER AUF 1.ELEM|
00001F90: 45 4E 54 20 48 4F 4C 45 4E 2A 00 80 3F B4 0F 20 |ENT HOLEN*..?.. |
00001FA0: 4A 53 52 43 48 4B 4B 4F 4D 00 8F 3F BE 0F 20 4A |JSRCHKKOM..?.. J|
00001FB0: 53 52 47 45 54 50 4F 53 00 95 3F C8 0F 3B 00 9B |SRGETPOS..?..;..|
00001FC0: 3F D2 0F 3B 00 B5 3F DC 0F 3B 2A 45 4C 45 4D 45 |?..;..?..;*ELEME|
00001FD0: 4E 54 54 59 50 20 50 52 55 45 46 45 4E 2A 00 C4 |NTTYP PRUEFEN*..|
00001FE0: 3F E6 0F 20 4C 44 41 56 41 4C 54 59 50 00 D6 3F |?.. LDAVALTYP..?|
00001FF0: F0 0F 20 42 50 4C 4E 55 4D 45 52 49 53 43 48 00 |.. BPLNUMERISCH.|
00002000: E1 3F FA 0F 20 4C 44 41 23 33 00 F0 3F 04 10 20 |.?.. LDA#3..?.. |
00002010: 53 54 41 4F 46 46 53 45 54 00 FF 3F 0E 10 20 42 |STAOFFSET..?.. B|
00002020: 4E 45 53 54 52 49 4E 47 00 05 40 18 10 3B 00 1D |NESTRING..@..;..|
00002030: 40 22 10 4E 55 4D 45 52 49 53 43 48 20 4C 44 41 |@".NUMERISCH LDA|
00002040: 49 4E 54 46 4C 47 00 2D 40 2C 10 20 42 4D 49 49 |INTFLG.-@,. BMII|
00002050: 4E 54 45 47 45 52 00 38 40 36 10 20 4C 44 41 23 |NTEGER.8@6. LDA#|
00002060: 35 00 44 40 40 10 2E 42 59 20 24 32 43 00 56 40 |5.D@@..BY $2C.V@|
00002070: 4A 10 49 4E 54 45 47 45 52 20 4C 44 41 23 32 00 |J.INTEGER LDA#2.|
00002080: 65 40 54 10 20 53 54 41 4F 46 46 53 45 54 00 6B |e@T. STAOFFSET.k|
00002090: 40 5E 10 3B 00 82 40 68 10 20 43 4C 43 3B 43 4C |@^.;..@h. CLC;CL|
000020A0: 43 3D 4E 55 4D 45 52 49 53 43 48 00 8B 40 72 10 |C=NUMERISCH..@r.|
000020B0: 20 52 54 53 00 91 40 7C 10 3B 00 AB 40 86 10 53 | RTS..@|.;..@..S|
000020C0: 54 52 49 4E 47 20 53 45 43 3B 53 45 43 3D 53 54 |TRING SEC;SEC=ST|
000020D0: 52 49 4E 47 00 B4 40 90 10 20 52 54 53 00 DA 40 |RING..@.. RTS..@|
000020E0: 9A 10 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
000020F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002100: 2A 2A 2A 00 E0 40 A4 10 3B 00 E6 40 AE 10 3B 00 |***..@..;..@..;.|
00002110: EC 40 B8 10 3B 00 15 41 C2 10 3B 2A 2A 2A 20 4E |.@..;..A..;*** N|
00002120: 41 45 43 48 53 54 45 53 20 45 4C 45 4D 45 4E 54 |AECHSTES ELEMENT|
00002130: 20 42 45 48 41 4E 44 45 4C 4E 20 2A 2A 2A 00 1B | BEHANDELN ***..|
00002140: 41 CC 10 3B 00 3C 41 D6 10 3B 2A 56 41 52 50 54 |A..;.<A..;*VARPT|
00002150: 52 20 55 4D 20 4F 46 46 53 45 54 20 45 52 48 4F |R UM OFFSET ERHO|
00002160: 45 48 45 4E 2A 00 51 41 E0 10 49 4E 43 50 54 52 |EHEN*.QA..INCPTR|
00002170: 20 4C 44 41 56 41 52 50 54 52 00 5A 41 EA 10 20 | LDAVARPTR.ZA.. |
00002180: 43 4C 43 00 69 41 F4 10 20 41 44 43 4F 46 46 53 |CLC.iA.. ADCOFFS|
00002190: 45 54 00 78 41 FE 10 20 53 54 41 56 41 52 50 54 |ET.xA.. STAVARPT|
000021A0: 52 00 85 41 08 11 20 42 43 43 49 4E 43 31 00 96 |R..A.. BCCINC1..|
000021B0: 41 12 11 20 49 4E 43 56 41 52 50 54 52 2B 31 00 |A.. INCVARPTR+1.|
000021C0: 9C 41 1C 11 3B 00 A2 41 26 11 3B 00 C6 41 30 11 |.A..;..A&.;..A0.|
000021D0: 3B 2A 45 4C 45 4D 45 4E 54 41 4E 5A 41 48 4C 20 |;*ELEMENTANZAHL |
000021E0: 44 45 4B 52 45 4D 45 4E 54 49 45 52 45 4E 2A 00 |DEKREMENTIEREN*.|
000021F0: D8 41 3A 11 49 4E 43 31 20 4C 44 41 43 4F 55 4E |.A:.INC1 LDACOUN|
00002200: 54 00 E5 41 44 11 20 42 4E 45 49 4E 43 32 00 F5 |T..AD. BNEINC2..|
00002210: 41 4E 11 20 44 45 43 43 4F 55 4E 54 2B 31 00 07 |AN. DECCOUNT+1..|
00002220: 42 58 11 49 4E 43 32 20 44 45 43 43 4F 55 4E 54 |BX.INC2 DECCOUNT|
00002230: 00 0D 42 62 11 3B 00 1D 42 6C 11 20 4C 44 41 43 |..Bb.;..Bl. LDAC|
00002240: 4F 55 4E 54 2B 31 00 23 42 76 11 3B 00 29 42 80 |OUNT+1.#Bv.;.)B.|
00002250: 11 3B 00 49 42 8A 11 3B 2A 41 4E 5A 41 48 4C 20 |.;.IB..;*ANZAHL |
00002260: 4D 49 54 20 30 20 56 45 52 47 4C 45 49 43 48 45 |MIT 0 VERGLEICHE|
00002270: 4E 2A 00 5A 42 94 11 20 42 4E 45 4E 4F 46 45 52 |N*.ZB.. BNENOFER|
00002280: 54 49 47 00 68 42 9E 11 20 4C 44 41 43 4F 55 4E |TIG.hB.. LDACOUN|
00002290: 54 00 79 42 A8 11 20 42 4E 45 4E 4F 46 45 52 54 |T.yB.. BNENOFERT|
000022A0: 49 47 00 82 42 B2 11 20 53 45 43 00 8B 42 BC 11 |IG..B.. SEC..B..|
000022B0: 20 52 54 53 00 9C 42 C6 11 4E 4F 46 45 52 54 49 | RTS..B..NOFERTI|
000022C0: 47 20 43 4C 43 00 A5 42 D0 11 20 52 54 53 00 CB |G CLC..B.. RTS..|
000022D0: 42 DA 11 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |B..;************|
000022E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022F0: 2A 2A 2A 2A 00 D1 42 E4 11 3B 00 D7 42 EE 11 3B |****..B..;..B..;|
00002300: 00 DD 42 F8 11 3B 00 03 43 02 12 3B 2A 2A 2A 20 |..B..;..C..;*** |
00002310: 53 54 52 49 4E 47 44 45 53 43 52 49 50 54 4F 52 |STRINGDESCRIPTOR|
00002320: 45 4E 20 48 4F 4C 45 4E 20 2A 2A 2A 00 14 43 0C |EN HOLEN ***..C.|
00002330: 12 48 4F 4C 44 45 53 20 4C 44 59 23 32 00 2E 43 |.HOLDES LDY#2..C|
00002340: 16 12 48 4F 4C 44 45 53 31 20 4C 44 41 28 56 41 |..HOLDES1 LDA(VA|
00002350: 52 50 54 52 29 2C 59 00 3F 43 20 12 20 53 54 41 |RPTR),Y.?C . STA|
00002360: 53 54 52 44 45 53 2C 59 00 48 43 2A 12 20 44 45 |STRDES,Y.HC*. DE|
00002370: 59 00 58 43 34 12 20 42 50 4C 48 4F 4C 44 45 53 |Y.XC4. BPLHOLDES|
00002380: 31 00 61 43 3E 12 20 52 54 53 00 87 43 48 12 3B |1.aC>. RTS..CH.;|
00002390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023B0: 00 8D 43 52 12 3B 00 93 43 5C 12 3B 00 99 43 66 |..CR.;..C\.;..Cf|
000023C0: 12 3B 00 9F 43 70 12 3B 00 A5 43 7A 12 3B 00 AB |.;..Cp.;..Cz.;..|
000023D0: 43 84 12 3B 00 CA 43 8E 12 3B 2A 2A 2A 2A 2A 2A |C..;..C..;******|
000023E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023F0: 2A 2A 2A 00 E9 43 98 12 3B 2A 20 20 20 44 49 52 |***..C..;* DIR|
00002400: 45 43 54 4F 52 59 20 45 49 4E 4C 45 53 45 4E 20 |ECTORY EINLESEN |
00002410: 20 2A 00 08 44 A2 12 3B 2A 20 28 43 29 20 53 41 | *..D..;* (C) SA|
00002420: 49 44 20 42 41 4C 4F 55 49 2C 20 31 39 38 37 20 |ID BALOUI, 1987 |
00002430: 2A 00 27 44 AC 12 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.'D..;*********|
00002440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002450: 00 2D 44 B6 12 3B 00 33 44 C0 12 3B 00 39 44 CA |.-D..;.3D..;.9D.|
00002460: 12 3B 00 5F 44 D4 12 3B 46 55 4E 4B 54 49 4F 4E |.;._D..;FUNKTION|
00002470: 3A 20 4C 49 45 53 54 20 44 49 52 45 43 54 4F 52 |: LIEST DIRECTOR|
00002480: 59 20 49 4E 20 45 49 4E 00 7E 44 DE 12 3B 20 20 |Y IN EIN.~D..; |
00002490: 20 20 20 20 20 20 20 20 53 54 52 49 4E 47 41 52 | STRINGAR|
000024A0: 52 41 59 20 45 49 4E 00 84 44 E8 12 3B 00 8A 44 |RAY EIN..D..;..D|
000024B0: F2 12 3B 00 AC 44 FC 12 3B 41 55 46 52 55 46 3A |..;..D..;AUFRUF:|
000024C0: 20 53 59 53 20 58 2C 46 4E 2C 45 58 54 24 2C 41 | SYS X,FN,EXT$,A|
000024D0: 52 52 41 59 24 00 B2 44 06 13 3B 00 D5 44 10 13 |RRAY$..D..;..D..|
000024E0: 3B 20 2D 20 46 4E 3A 20 46 49 4C 45 4E 55 4D 4D |; - FN: FILENUMM|
000024F0: 45 52 20 28 47 45 4F 45 46 46 4E 45 54 45 00 F9 |ER (GEOEFFNETE..|
00002500: 44 1A 13 3B 20 20 20 20 20 20 20 44 41 54 45 49 |D..; DATEI|
00002510: 20 56 4F 52 41 55 53 47 45 53 45 54 5A 54 21 21 | VORAUSGESETZT!!|
00002520: 21 29 00 FF 44 24 13 3B 00 22 45 2E 13 3B 20 2D |!)..D$.;."E..; -|
00002530: 20 41 52 52 41 59 24 3A 20 45 52 53 54 45 53 20 | ARRAY$: ERSTES |
00002540: 45 4C 45 4D 45 4E 54 20 44 45 53 00 45 45 38 13 |ELEMENT DES.EE8.|
00002550: 3B 20 20 20 20 20 20 20 20 20 20 20 41 52 52 41 |; ARRA|
00002560: 59 53 2C 20 49 4E 20 44 45 4D 20 44 49 45 00 6A |YS, IN DEM DIE.j|
00002570: 45 42 13 3B 20 20 20 20 20 20 20 20 20 20 20 44 |EB.; D|
00002580: 49 52 2E 47 45 53 50 45 49 43 48 45 52 54 20 57 |IR.GESPEICHERT W|
00002590: 49 52 44 00 70 45 4C 13 3B 00 76 45 56 13 3B 00 |IRD.pEL.;.vEV.;.|
000025A0: 91 45 60 13 3B 42 53 50 2E 3A 20 53 59 53 20 58 |.E`.;BSP.: SYS X|
000025B0: 2C 31 2C 44 49 52 24 28 30 29 00 B4 45 6A 13 3B |,1,DIR$(0)..Ej.;|
000025C0: 20 20 20 20 20 20 4C 45 53 45 4E 20 41 55 53 20 | LESEN AUS |
000025D0: 44 45 52 20 55 4E 54 45 52 20 44 45 52 00 D3 45 |DER UNTER DER..E|
000025E0: 74 13 3B 20 20 20 20 20 20 4C 4F 47 2E 46 4E 20 |t.; LOG.FN |
000025F0: 31 20 47 45 4F 45 46 46 45 54 45 4E 00 EF 45 7E |1 GEOEFFETEN..E~|
00002600: 13 3B 20 20 20 20 20 20 44 49 52 45 43 54 4F 52 |.; DIRECTOR|
00002610: 59 2D 44 41 54 45 49 3B 00 10 46 88 13 3B 20 20 |Y-DATEI;..F..; |
00002620: 20 20 20 20 49 4E 20 27 44 49 52 24 28 30 29 27 | IN 'DIR$(0)'|
00002630: 20 57 49 52 44 20 44 45 52 00 32 46 92 13 3B 20 | WIRD DER.2F..; |
00002640: 20 20 20 20 20 48 45 41 44 45 52 20 47 45 53 50 | HEADER GESP|
00002650: 45 49 43 48 45 52 54 2C 20 49 4E 00 56 46 9C 13 |EICHERT, IN.VF..|
00002660: 3B 20 20 20 20 20 20 27 44 49 52 24 28 31 29 27 |; 'DIR$(1)'|
00002670: 2C 20 27 44 49 52 24 28 32 29 27 20 2E 2E 2E 00 |, 'DIR$(2)' ....|
00002680: 76 46 A6 13 3B 20 20 20 20 20 20 44 49 45 20 44 |vF..; DIE D|
00002690: 49 52 45 43 54 4F 52 59 2D 5A 45 49 4C 45 4E 00 |IRECTORY-ZEILEN.|
000026A0: 7C 46 B0 13 3B 00 82 46 BA 13 3B 00 88 46 C4 13 ||F..;..F..;..F..|
000026B0: 3B 00 8E 46 CE 13 3B 00 9D 46 D8 13 3B 2A 2A 2A |;..F..;..F..;***|
000026C0: 2A 2A 2A 2A 2A 2A 00 AC 46 E2 13 3B 2A 20 4C 41 |******..F..;* LA|
000026D0: 42 45 4C 20 2A 00 BB 46 EC 13 3B 2A 2A 2A 2A 2A |BEL *..F..;*****|
000026E0: 2A 2A 2A 2A 00 C1 46 F6 13 3B 00 E1 46 00 14 3B |****..F..;..F..;|
000026F0: 2A 2A 2A 2A 2A 20 42 45 54 52 49 45 42 53 53 59 |***** BETRIEBSSY|
00002700: 53 54 45 4D 20 2A 2A 2A 2A 2A 00 14 47 0A 14 2E |STEM *****..G...|
00002710: 45 51 20 43 48 4B 49 4E 20 3D 24 46 46 43 36 20 |EQ CHKIN =$FFC6 |
00002720: 20 3B 45 49 4E 47 41 42 45 20 41 55 46 20 4C 4F | ;EINGABE AUF LO|
00002730: 47 44 41 54 45 49 20 4C 45 4E 4B 45 4E 00 3E 47 |GDATEI LENKEN.>G|
00002740: 14 14 2E 45 51 20 43 4C 52 43 48 20 3D 24 46 46 |...EQ CLRCH =$FF|
00002750: 43 43 20 20 3B 4B 41 4E 41 45 4C 45 20 53 43 48 |CC ;KANAELE SCH|
00002760: 4C 49 45 53 53 45 4E 00 6D 47 1E 14 2E 45 51 20 |LIESSEN.mG...EQ |
00002770: 42 41 53 49 4E 20 3D 24 46 46 43 46 20 20 3B 5A |BASIN =$FFCF ;Z|
00002780: 45 49 43 48 45 4E 20 56 4F 4E 20 44 41 54 45 49 |EICHEN VON DATEI|
00002790: 20 48 4F 4C 45 4E 00 91 47 28 14 2E 45 51 20 52 | HOLEN..G(..EQ R|
000027A0: 45 41 44 53 54 3D 24 46 46 42 37 20 20 3B 53 54 |EADST=$FFB7 ;ST|
000027B0: 41 54 55 53 20 48 4F 4C 45 4E 00 B4 47 32 14 2E |ATUS HOLEN..G2..|
000027C0: 45 51 20 43 48 4B 4B 4F 4D 3D 24 41 45 46 44 20 |EQ CHKKOM=$AEFD |
000027D0: 20 3B 4C 49 45 53 54 20 4B 4F 4D 4D 41 00 DD 47 | ;LIEST KOMMA..G|
000027E0: 3C 14 2E 45 51 20 47 45 54 42 59 54 3D 24 42 37 |<..EQ GETBYT=$B7|
000027F0: 39 45 20 20 3B 4C 49 45 53 54 20 31 2D 42 59 54 |9E ;LIEST 1-BYT|
00002800: 45 2D 57 45 52 54 00 0E 48 46 14 2E 45 51 20 47 |E-WERT..HF..EQ G|
00002810: 45 54 50 4F 53 3D 24 42 30 38 42 20 20 3B 48 4F |ETPOS=$B08B ;HO|
00002820: 4C 54 20 50 4F 49 4E 54 45 52 20 41 55 46 20 56 |LT POINTER AUF V|
00002830: 41 52 49 41 42 4C 45 00 45 48 50 14 2E 45 51 20 |ARIABLE.EHP..EQ |
00002840: 53 54 52 52 45 53 3D 24 42 34 46 34 20 20 3B 52 |STRRES=$B4F4 ;R|
00002850: 45 53 45 52 56 49 45 52 54 20 50 4C 41 54 5A 20 |ESERVIERT PLATZ |
00002860: 49 4D 20 53 54 52 49 4E 47 53 54 41 43 4B 00 85 |IM STRINGSTACK..|
00002870: 48 5A 14 2E 45 51 20 53 54 52 45 4E 44 3D 24 33 |HZ..EQ STREND=$3|
00002880: 33 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 |3 ;POINTER AU|
00002890: 46 20 55 4E 54 45 52 47 52 45 4E 5A 45 20 44 45 |F UNTERGRENZE DE|
000028A0: 53 20 53 54 52 49 4E 47 53 54 41 43 4B 53 00 BA |S STRINGSTACKS..|
000028B0: 48 64 14 2E 45 51 20 56 41 52 50 54 52 3D 24 34 |Hd..EQ VARPTR=$4|
000028C0: 37 20 20 20 20 3B 50 4F 49 4E 54 45 52 20 41 55 |7 ;POINTER AU|
000028D0: 46 20 41 4B 54 55 45 4C 4C 45 20 56 41 52 49 41 |F AKTUELLE VARIA|
000028E0: 42 4C 45 00 C0 48 6E 14 3B 00 C6 48 78 14 3B 00 |BLE..Hn.;..Hx.;.|
000028F0: E6 48 82 14 3B 2A 2A 2A 2A 2A 20 50 52 4F 47 52 |.H..;***** PROGR|
00002900: 41 4D 4D 49 4E 54 45 52 4E 20 2A 2A 2A 2A 2A 00 |AMMINTERN *****.|
00002910: 24 49 8C 14 2E 45 51 20 4E 55 4D 42 45 52 3D 24 |$I...EQ NUMBER=$|
00002920: 46 37 20 20 20 20 3B 5A 41 45 48 4C 45 52 20 46 |F7 ;ZAEHLER F|
00002930: 55 45 52 20 47 45 4C 45 53 45 4E 45 20 44 49 52 |UER GELESENE DIR|
00002940: 45 43 54 4F 52 59 2D 5A 45 49 4C 45 4E 00 5A 49 |ECTORY-ZEILEN.ZI|
00002950: 96 14 2E 45 51 20 4C 49 4E 45 4C 45 4E 47 54 48 |...EQ LINELENGTH|
00002960: 3D 24 46 38 20 20 20 20 3B 4C 41 45 4E 47 45 20 |=$F8 ;LAENGE |
00002970: 44 45 52 20 47 45 4C 45 53 45 4E 45 4E 20 5A 45 |DER GELESENEN ZE|
00002980: 49 4C 45 00 99 49 A0 14 2E 45 51 20 44 49 4E 44 |ILE..I...EQ DIND|
00002990: 49 5A 20 3D 24 46 39 20 20 20 20 3B 50 4F 49 4E |IZ =$F9 ;POIN|
000029A0: 54 45 52 20 46 55 45 52 20 49 4E 44 49 52 2E 2D |TER FUER INDIR.-|
000029B0: 49 4E 44 49 5A 2E 41 44 52 45 53 53 49 45 52 55 |INDIZ.ADRESSIERU|
000029C0: 4E 47 00 AF 49 AA 14 2E 45 51 20 45 58 54 53 54 |NG..I...EQ EXTST|
000029D0: 52 49 4E 47 3D 24 46 42 00 C5 49 B4 14 2E 45 51 |RING=$FB..I...EQ|
000029E0: 20 53 54 52 45 4E 44 4B 4F 50 3D 24 46 45 00 EB | STRENDKOP=$FE..|
000029F0: 49 BE 14 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |I..;************|
00002A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A10: 2A 2A 2A 2A 00 F1 49 C8 14 3B 00 F7 49 D2 14 3B |****..I..;..I..;|
00002A20: 00 FD 49 DC 14 3B 00 16 4A E6 14 3B 2A 2A 2A 2A |..I..;..J..;****|
00002A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002A40: 2F 4A F0 14 3B 2A 20 49 4E 49 54 49 41 4C 49 53 |/J..;* INITIALIS|
00002A50: 49 45 52 55 4E 47 20 2A 00 48 4A FA 14 3B 2A 2A |IERUNG *.HJ..;**|
00002A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A70: 2A 00 4E 4A 04 15 3B 00 80 4A 0E 15 3B 2A 2A 2A |*.NJ..;..J..;***|
00002A80: 2A 2A 20 45 49 4E 47 41 42 45 20 41 55 46 20 4C |** EINGABE AUF L|
00002A90: 4F 47 49 53 43 48 45 20 44 41 54 45 49 20 4C 45 |OGISCHE DATEI LE|
00002AA0: 47 45 4E 20 2A 2A 2A 2A 2A 00 96 4A 18 15 44 49 |GEN *****..J..DI|
00002AB0: 52 52 45 41 44 20 4A 53 52 43 48 4B 4B 4F 4D 00 |RREAD JSRCHKKOM.|
00002AC0: A5 4A 22 15 20 4A 53 52 47 45 54 42 59 54 00 B3 |.J". JSRGETBYT..|
00002AD0: 4A 2C 15 20 4A 53 52 43 48 4B 49 4E 00 B9 4A 36 |J,. JSRCHKIN..J6|
00002AE0: 15 3B 00 D5 4A 40 15 3B 2A 2A 2A 2A 2A 20 45 58 |.;..J@.;***** EX|
00002AF0: 54 24 20 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 00 E4 |T$ HOLEN *****..|
00002B00: 4A 4A 15 20 4A 53 52 43 48 4B 4B 4F 4D 00 F3 4A |JJ. JSRCHKKOM..J|
00002B10: 54 15 20 4A 53 52 47 45 54 50 4F 53 00 FE 4A 5E |T. JSRGETPOS..J^|
00002B20: 15 20 4C 44 59 23 32 00 17 4B 68 15 48 4F 4C 45 |. LDY#2..Kh.HOLE|
00002B30: 58 54 20 4C 44 41 28 56 41 52 50 54 52 29 2C 59 |XT LDA(VARPTR),Y|
00002B40: 00 2B 4B 72 15 20 53 54 41 45 58 54 53 54 52 49 |.+Kr. STAEXTSTRI|
00002B50: 4E 47 2C 59 00 34 4B 7C 15 20 44 45 59 00 43 4B |NG,Y.4K|. DEY.CK|
00002B60: 86 15 20 42 50 4C 48 4F 4C 45 58 54 00 49 4B 90 |.. BPLHOLEXT.IK.|
00002B70: 15 3B 00 5B 4B 9A 15 20 4C 44 59 45 58 54 53 54 |.;.[K.. LDYEXTST|
00002B80: 52 49 4E 47 00 6B 4B A4 15 48 4F 4C 45 58 54 31 |RING.kK..HOLEXT1|
00002B90: 20 44 45 59 00 7A 4B AE 15 20 42 4D 49 45 4E 44 | DEY.zK.. BMIEND|
00002BA0: 45 58 54 00 92 4B B8 15 20 4C 44 41 28 45 58 54 |EXT..K.. LDA(EXT|
00002BB0: 53 54 52 49 4E 47 2B 31 29 2C 59 00 A1 4B C2 15 |STRING+1),Y..K..|
00002BC0: 20 53 54 41 4E 41 4D 45 2C 59 00 B1 4B CC 15 20 | STANAME,Y..K.. |
00002BD0: 4A 4D 50 48 4F 4C 45 58 54 31 00 B7 4B D6 15 3B |JMPHOLEXT1..K..;|
00002BE0: 00 E5 4B E0 15 3B 2A 2A 2A 2A 2A 20 5A 45 49 47 |..K..;***** ZEIG|
00002BF0: 45 52 20 41 55 46 20 53 54 52 49 4E 47 41 52 52 |ER AUF STRINGARR|
00002C00: 41 59 20 48 4F 4C 45 4E 20 2A 2A 2A 2A 2A 00 FA |AY HOLEN *****..|
00002C10: 4B EA 15 45 4E 44 45 58 54 20 4A 53 52 43 48 4B |K..ENDEXT JSRCHK|
00002C20: 4B 4F 4D 00 09 4C F4 15 20 4A 53 52 47 45 54 50 |KOM..L.. JSRGETP|
00002C30: 4F 53 00 0F 4C F6 15 3B 00 1C 4C F8 15 20 4C 44 |OS..L..;..L.. LD|
00002C40: 41 23 24 31 31 00 2B 4C FA 15 20 4A 53 52 53 54 |A#$11.+L.. JSRST|
00002C50: 52 52 45 53 00 31 4C FE 15 3B 00 37 4C 08 16 3B |RRES.1L..;.7L..;|
00002C60: 00 3D 4C 12 16 3B 00 6B 4C 1C 16 3B 2A 2A 2A 2A |.=L..;.kL..;****|
00002C70: 2A 20 5A 45 49 4C 45 4E 5A 41 45 48 4C 45 52 20 |* ZEILENZAEHLER |
00002C80: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 2A |INITIALISIEREN *|
00002C90: 2A 2A 2A 2A 00 78 4C 26 16 20 4C 44 41 23 24 46 |****.xL&. LDA#$F|
00002CA0: 46 00 87 4C 30 16 20 53 54 41 4E 55 4D 42 45 52 |F..L0. STANUMBER|
00002CB0: 00 8D 4C 3A 16 3B 00 93 4C 44 16 3B 00 99 4C 4E |..L:.;..LD.;..LN|
00002CC0: 16 3B 00 C2 4C 58 16 3B 2A 2A 2A 2A 2A 20 50 52 |.;..LX.;***** PR|
00002CD0: 4F 47 52 41 4D 4D 4C 49 4E 4B 20 55 45 42 45 52 |OGRAMMLINK UEBER|
00002CE0: 4C 45 53 45 4E 20 2A 2A 2A 2A 2A 00 FA 4C 62 16 |LESEN *****..Lb.|
00002CF0: 20 4C 44 59 23 36 3B 32 20 27 5A 55 53 41 54 5A | LDY#6;2 'ZUSATZ|
00002D00: 42 59 54 45 53 27 20 53 54 41 52 54 41 44 52 45 |BYTES' STARTADRE|
00002D10: 53 53 45 20 44 45 53 20 27 50 52 4F 47 52 41 4D |SSE DES 'PROGRAM|
00002D20: 4D 53 27 00 09 4D 6C 16 20 42 4E 45 53 54 41 52 |MS'..Ml. BNESTAR|
00002D30: 54 31 00 2F 4D 76 16 3B 2A 2A 2A 2A 2A 2A 2A 2A |T1./Mv.;********|
00002D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D50: 2A 2A 2A 2A 2A 2A 2A 2A 00 35 4D 80 16 3B 00 3B |********.5M..;.;|
00002D60: 4D 8A 16 3B 00 41 4D 94 16 3B 00 5A 4D 9E 16 3B |M..;.AM..;.ZM..;|
00002D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D80: 2A 2A 2A 00 73 4D A8 16 3B 2A 20 44 49 52 45 43 |***.sM..;* DIREC|
00002D90: 54 4F 52 59 20 4C 45 53 45 4E 20 2A 00 8C 4D B2 |TORY LESEN *..M.|
00002DA0: 16 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00002DB0: 2A 2A 2A 2A 2A 00 92 4D BC 16 3B 00 B9 4D C6 16 |*****..M..;..M..|
00002DC0: 3B 2A 2A 2A 2A 2A 20 5A 45 49 4C 45 4E 4C 49 4E |;***** ZEILENLIN|
00002DD0: 4B 20 55 45 42 45 52 4C 45 53 45 4E 20 2A 2A 2A |K UEBERLESEN ***|
00002DE0: 2A 2A 00 C9 4D D0 16 53 54 41 52 54 20 4C 44 59 |**..M..START LDY|
00002DF0: 23 34 00 EF 4D DA 16 53 54 41 52 54 31 20 4A 53 |#4..M..START1 JS|
00002E00: 52 42 41 53 49 4E 3B 44 49 45 20 45 52 53 54 45 |RBASIN;DIE ERSTE|
00002E10: 4E 20 34 20 42 59 54 45 00 0F 4E E4 16 20 44 45 |N 4 BYTE..N.. DE|
00002E20: 59 3B 4A 45 44 45 52 20 5A 45 49 4C 45 20 55 45 |Y;JEDER ZEILE UE|
00002E30: 42 45 52 4C 45 53 45 4E 00 1E 4E EE 16 20 42 4E |BERLESEN..N.. BN|
00002E40: 45 53 54 41 52 54 31 00 24 4E F8 16 3B 00 2A 4E |ESTART1.$N..;.*N|
00002E50: 02 17 3B 00 30 4E 0C 17 3B 00 61 4E 16 17 3B 2A |..;.0N..;.aN..;*|
00002E60: 2A 2A 2A 2A 20 42 49 53 20 5A 55 20 41 4E 46 55 |**** BIS ZU ANFU|
00002E70: 45 48 52 55 4E 47 53 5A 45 49 43 48 45 4E 20 4C |EHRUNGSZEICHEN L|
00002E80: 45 53 45 4E 20 2A 2A 2A 2A 2A 00 73 4E 20 17 49 |ESEN *****.sN .I|
00002E90: 4E 49 54 20 4A 53 52 42 41 53 49 4E 00 91 4E 2A |NIT JSRBASIN..N*|
00002EA0: 17 20 54 41 59 3B 45 4E 44 45 2C 20 57 45 4E 4E |. TAY;ENDE, WENN|
00002EB0: 20 53 54 41 54 55 53 3C 3E 30 00 A0 4E 34 17 20 | STATUS<>0..N4. |
00002EC0: 4A 53 52 52 45 41 44 53 54 00 AE 4E 3E 17 20 42 |JSRREADST..N>. B|
00002ED0: 45 51 4E 4F 45 4E 44 00 BB 4E 48 17 20 4A 4D 50 |EQNOEND..NH. JMP|
00002EE0: 45 4E 44 45 00 CC 4E 52 17 4E 4F 45 4E 44 20 43 |ENDE..NR.NOEND C|
00002EF0: 50 59 23 33 34 00 D9 4E 5C 17 20 42 4E 45 49 4E |PY#34..N\. BNEIN|
00002F00: 49 54 00 DF 4E 66 17 3B 00 E5 4E 70 17 3B 00 EB |IT..Nf.;..Np.;..|
00002F10: 4E 7A 17 3B 00 0C 4F F2 17 3B 2A 2A 2A 2A 2A 20 |Nz.;..O..;***** |
00002F20: 45 49 4E 45 20 5A 45 49 4C 45 20 4C 45 53 45 4E |EINE ZEILE LESEN|
00002F30: 2A 2A 2A 2A 2A 00 17 4F FC 17 20 4C 44 59 23 30 |*****..O.. LDY#0|
00002F40: 00 4B 4F 06 18 44 49 4E 50 55 54 20 4A 53 52 42 |.KO..DINPUT JSRB|
00002F50: 41 53 49 4E 3B 42 49 53 20 5A 55 20 41 4E 46 55 |ASIN;BIS ZU ANFU|
00002F60: 45 52 48 55 4E 47 53 5A 45 49 43 48 45 4E 20 4C |ERHUNGSZEICHEN L|
00002F70: 45 53 45 4E 00 57 4F 10 18 20 43 4D 50 23 33 34 |ESEN.WO.. CMP#34|
00002F80: 00 67 4F 1A 18 20 42 45 51 4C 49 45 53 45 4E 44 |.gO.. BEQLIESEND|
00002F90: 00 7A 4F 24 18 20 53 54 41 28 53 54 52 45 4E 44 |.zO$. STA(STREND|
00002FA0: 29 2C 59 00 83 4F 2E 18 20 49 4E 59 00 92 4F 38 |),Y..O.. INY..O8|
00002FB0: 18 20 42 4E 45 44 49 4E 50 55 54 00 98 4F 42 18 |. BNEDINPUT..OB.|
00002FC0: 3B 00 C3 4F 4C 18 4C 49 45 53 45 4E 44 20 53 54 |;..OL.LIESEND ST|
00002FD0: 59 4C 49 4E 45 4C 45 4E 47 54 48 3B 4C 41 45 4E |YLINELENGTH;LAEN|
00002FE0: 47 45 20 53 50 45 49 43 48 45 52 4E 00 C9 4F 56 |GE SPEICHERN..OV|
00002FF0: 18 3B 00 CF 4F 60 18 3B 00 F6 4F 6A 18 3B 2A 2A |.;..O`.;..Oj.;**|
00003000: 2A 2A 2A 20 45 58 54 24 20 42 45 52 55 45 43 4B |*** EXT$ BERUECK|
00003010: 53 49 43 48 54 49 47 45 4E 20 2A 2A 2A 2A 2A 00 |SICHTIGEN *****.|
00003020: 05 50 74 18 20 4C 44 41 4E 55 4D 42 45 52 00 12 |.Pt. LDANUMBER..|
00003030: 50 76 18 20 43 4D 50 23 24 46 46 00 1F 50 78 18 |Pv. CMP#$FF..Px.|
00003040: 20 42 4E 45 43 45 58 54 00 2E 50 7A 18 20 49 4E | BNECEXT..Pz. IN|
00003050: 43 4E 55 4D 42 45 52 00 3D 50 7C 18 20 42 45 51 |CNUMBER.=P|. BEQ|
00003060: 57 45 49 54 45 52 00 43 50 7D 18 3B 00 53 50 7E |WEITER.CP}.;.SP~|
00003070: 18 43 45 58 54 20 42 45 51 45 58 54 00 65 50 88 |.CEXT BEQEXT.eP.|
00003080: 18 20 4C 44 58 45 58 54 53 54 52 49 4E 47 00 71 |. LDXEXTSTRING.q|
00003090: 50 92 18 20 42 45 51 45 58 54 00 98 50 9C 18 20 |P.. BEQEXT..P.. |
000030A0: 44 45 58 3B 45 43 48 54 45 20 4C 41 45 4E 47 45 |DEX;ECHTE LAENGE|
000030B0: 20 44 45 52 20 45 52 57 45 49 54 45 52 55 4E 47 | DER ERWEITERUNG|
000030C0: 21 00 C5 50 A6 18 20 44 45 59 3B 45 43 48 54 45 |!..P.. DEY;ECHTE|
000030D0: 20 4C 41 45 4E 47 45 20 44 45 53 20 47 45 4C 45 | LAENGE DES GELE|
000030E0: 53 45 4E 45 4E 20 53 54 52 49 4E 47 53 21 00 CB |SENEN STRINGS!..|
000030F0: 50 B0 18 3B 00 E4 50 BA 18 43 4D 50 45 58 54 20 |P..;..P..CMPEXT |
00003100: 4C 44 41 28 53 54 52 45 4E 44 29 2C 59 00 F3 50 |LDA(STREND),Y..P|
00003110: C4 18 20 43 4D 50 4E 41 4D 45 2C 58 00 02 51 CE |.. CMPNAME,X..Q.|
00003120: 18 20 42 4E 45 57 45 49 54 45 52 00 0B 51 1E 19 |. BNEWEITER..Q..|
00003130: 20 44 45 59 00 14 51 28 19 20 44 45 58 00 23 51 | DEY..Q(. DEX.#Q|
00003140: 32 19 20 42 50 4C 43 4D 50 45 58 54 00 29 51 3C |2. BPLCMPEXT.)Q<|
00003150: 19 3B 00 3C 51 46 19 20 4C 44 41 4C 49 4E 45 4C |.;.<QF. LDALINEL|
00003160: 45 4E 47 54 48 00 45 51 50 19 20 53 45 43 00 57 |ENGTH.EQP. SEC.W|
00003170: 51 5A 19 20 53 42 43 45 58 54 53 54 52 49 4E 47 |QZ. SBCEXTSTRING|
00003180: 00 6A 51 64 19 20 53 54 41 4C 49 4E 45 4C 45 4E |.jQd. STALINELEN|
00003190: 47 54 48 00 70 51 6E 19 3B 00 76 51 78 19 3B 00 |GTH.pQn.;.vQx.;.|
000031A0: 7C 51 82 19 3B 00 9C 51 8C 19 3B 2A 2A 2A 2A 2A ||Q..;..Q..;*****|
000031B0: 20 53 54 52 49 4E 47 20 41 4E 4C 45 47 45 4E 20 | STRING ANLEGEN |
000031C0: 2A 2A 2A 2A 2A 00 A2 51 96 19 3B 00 C7 51 A0 19 |*****..Q..;..Q..|
000031D0: 3B 2A 45 43 48 54 45 4E 20 53 54 52 49 4E 47 41 |;*ECHTEN STRINGA|
000031E0: 4E 46 41 4E 47 20 45 52 4D 49 54 54 45 4C 4E 2A |NFANG ERMITTELN*|
000031F0: 00 DB 51 AA 19 45 58 54 20 4C 44 41 53 54 52 45 |..Q..EXT LDASTRE|
00003200: 4E 44 2B 31 00 01 52 B4 19 20 53 54 41 44 49 4E |ND+1..R.. STADIN|
00003210: 44 49 5A 2B 31 3B 45 43 48 54 45 52 20 53 54 52 |DIZ+1;ECHTER STR|
00003220: 49 4E 47 41 4E 46 41 4E 47 3D 00 1D 52 BE 19 20 |INGANFANG=..R.. |
00003230: 4C 44 41 23 24 31 31 3B 53 54 52 49 4E 47 41 4E |LDA#$11;STRINGAN|
00003240: 46 41 4E 47 20 2B 00 3D 52 C8 19 20 53 45 43 3B |FANG +.=R.. SEC;|
00003250: 44 49 46 46 45 52 45 4E 5A 20 5A 57 49 53 43 48 |DIFFERENZ ZWISCH|
00003260: 45 4E 20 24 46 46 00 6C 52 D2 19 20 53 42 43 4C |EN $FF.lR.. SBCL|
00003270: 49 4E 45 4C 45 4E 47 54 48 3B 55 4E 44 20 47 45 |INELENGTH;UND GE|
00003280: 4C 45 53 45 4E 45 52 20 5A 45 49 43 48 45 4E 41 |LESENER ZEICHENA|
00003290: 4E 5A 41 48 4C 00 75 52 DC 19 20 43 4C 43 00 84 |NZAHL.uR.. CLC..|
000032A0: 52 E6 19 20 41 44 43 53 54 52 45 4E 44 00 93 52 |R.. ADCSTREND..R|
000032B0: F0 19 20 53 54 41 44 49 4E 44 49 5A 00 A1 52 FA |.. STADINDIZ..R.|
000032C0: 19 20 42 43 43 4E 4F 49 4E 43 00 B2 52 04 1A 20 |. BCCNOINC..R.. |
000032D0: 49 4E 43 44 49 4E 44 49 5A 2B 31 00 B8 52 0E 1A |INCDINDIZ+1..R..|
000032E0: 3B 00 BE 52 18 1A 3B 00 EF 52 22 1A 3B 2A 53 54 |;..R..;..R".;*ST|
000032F0: 52 49 4E 47 20 41 4E 20 45 43 48 54 45 20 53 54 |RING AN ECHTE ST|
00003300: 41 52 54 50 4F 53 49 54 49 4F 4E 20 56 45 52 53 |ARTPOSITION VERS|
00003310: 43 48 49 45 42 45 4E 2A 00 07 53 2C 1A 4E 4F 49 |CHIEBEN*..S,.NOI|
00003320: 4E 43 20 4C 44 59 4C 49 4E 45 4C 45 4E 47 54 48 |NC LDYLINELENGTH|
00003330: 00 25 53 36 1A 20 44 45 59 3B 53 54 52 49 4E 47 |.%S6. DEY;STRING|
00003340: 20 56 4F 4E 20 41 4B 54 55 45 4C 4C 45 52 00 4F | VON AKTUELLER.O|
00003350: 53 40 1A 44 43 4F 50 59 20 4C 44 41 28 53 54 52 |S@.DCOPY LDA(STR|
00003360: 45 4E 44 29 2C 59 3B 41 44 52 45 53 53 45 20 5A |END),Y;ADRESSE Z|
00003370: 55 20 45 43 48 54 45 4D 00 7B 53 4A 1A 20 53 54 |U ECHTEM.{SJ. ST|
00003380: 41 28 44 49 4E 44 49 5A 29 2C 59 3B 53 54 52 49 |A(DINDIZ),Y;STRI|
00003390: 4E 47 41 4E 46 41 4E 47 20 56 45 52 53 43 48 49 |NGANFANG VERSCHI|
000033A0: 45 42 45 4E 00 84 53 54 1A 20 44 45 59 00 91 53 |EBEN..ST. DEY..S|
000033B0: 5E 1A 20 43 50 59 23 24 46 46 00 9F 53 68 1A 20 |^. CPY#$FF..Sh. |
000033C0: 42 4E 45 44 43 4F 50 59 00 A5 53 72 1A 3B 00 AB |BNEDCOPY..Sr.;..|
000033D0: 53 7C 1A 3B 00 D3 53 86 1A 3B 2A 53 54 52 49 4E |S|.;..S..;*STRIN|
000033E0: 47 44 45 53 43 52 49 50 54 4F 52 45 4E 20 41 4B |GDESCRIPTOREN AK|
000033F0: 54 55 41 4C 49 53 49 45 52 45 4E 2A 00 DC 53 90 |TUALISIEREN*..S.|
00003400: 1A 20 49 4E 59 00 EF 53 9A 1A 20 4C 44 41 4C 49 |. INY..S.. LDALI|
00003410: 4E 45 4C 45 4E 47 54 48 00 02 54 A4 1A 20 53 54 |NELENGTH..T.. ST|
00003420: 41 28 56 41 52 50 54 52 29 2C 59 00 0B 54 AE 1A |A(VARPTR),Y..T..|
00003430: 20 49 4E 59 00 1A 54 B8 1A 20 4C 44 41 44 49 4E | INY..T.. LDADIN|
00003440: 44 49 5A 00 2D 54 C2 1A 20 53 54 41 28 56 41 52 |DIZ.-T.. STA(VAR|
00003450: 50 54 52 29 2C 59 00 3C 54 CC 1A 20 53 54 41 53 |PTR),Y.<T.. STAS|
00003460: 54 52 45 4E 44 00 45 54 D6 1A 20 49 4E 59 00 56 |TREND.ET.. INY.V|
00003470: 54 E0 1A 20 4C 44 41 44 49 4E 44 49 5A 2B 31 00 |T.. LDADINDIZ+1.|
00003480: 69 54 EA 1A 20 53 54 41 28 56 41 52 50 54 52 29 |iT.. STA(VARPTR)|
00003490: 2C 59 00 7A 54 F4 1A 20 53 54 41 53 54 52 45 4E |,Y.zT.. STASTREN|
000034A0: 44 2B 31 00 80 54 FE 1A 3B 00 86 54 08 1B 3B 00 |D+1..T..;..T..;.|
000034B0: 8C 54 12 1B 3B 00 B6 54 1C 1B 3B 2A 2A 2A 2A 2A |.T..;..T..;*****|
000034C0: 20 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 20 | NAECHSTE ZEILE |
000034D0: 42 45 48 41 4E 44 45 4C 4E 20 2A 2A 2A 2A 2A 00 |BEHANDELN *****.|
000034E0: C3 54 21 1B 20 4C 44 41 23 24 31 31 00 D2 54 22 |.T!. LDA#$11..T"|
000034F0: 1B 20 4A 53 52 53 54 52 52 45 53 00 D8 54 23 1B |. JSRSTRRES..T#.|
00003500: 3B 00 DE 54 26 1B 3B 00 0E 55 30 1B 3B 2A 27 56 |;..T&.;..U0.;*'V|
00003510: 41 52 50 54 52 27 20 41 55 46 20 4E 41 45 43 48 |ARPTR' AUF NAECH|
00003520: 53 54 45 4E 20 53 54 52 49 4E 47 20 44 45 53 20 |STEN STRING DES |
00003530: 41 52 52 41 59 53 2A 00 1D 55 3A 1B 20 4C 44 41 |ARRAYS*..U:. LDA|
00003540: 56 41 52 50 54 52 00 3C 55 44 1B 20 43 4C 43 3B |VARPTR.<UD. CLC;|
00003550: 41 44 52 45 53 53 45 20 44 45 53 20 4E 41 45 43 |ADRESSE DES NAEC|
00003560: 48 53 54 45 4E 00 58 55 4E 1B 20 41 44 43 23 33 |HSTEN.XUN. ADC#3|
00003570: 3B 53 54 52 49 4E 47 50 4F 49 4E 54 45 52 53 20 |;STRINGPOINTERS |
00003580: 3D 00 7C 55 58 1B 20 53 54 41 56 41 52 50 54 52 |=.|UX. STAVARPTR|
00003590: 3B 41 4B 54 55 45 4C 4C 45 20 41 44 52 45 53 53 |;AKTUELLE ADRESS|
000035A0: 45 20 2B 20 33 00 8B 55 62 1B 20 42 43 43 53 50 |E + 3..Ub. BCCSP|
000035B0: 52 55 4E 47 00 9C 55 6C 1B 20 49 4E 43 56 41 52 |RUNG..Ul. INCVAR|
000035C0: 50 54 52 2B 31 00 B1 55 76 1B 53 50 52 55 4E 47 |PTR+1..Uv.SPRUNG|
000035D0: 20 49 4E 43 4E 55 4D 42 45 52 00 B7 55 80 1B 3B | INCNUMBER..U..;|
000035E0: 00 BD 55 8A 1B 3B 00 D9 55 94 1B 3B 2A 42 49 53 |..U..;..U..;*BIS|
000035F0: 20 5A 45 49 4C 45 4E 45 4E 44 45 20 4C 45 53 45 | ZEILENENDE LESE|
00003600: 4E 2A 00 ED 55 9E 1B 57 45 49 54 45 52 20 4A 53 |N*..U..WEITER JS|
00003610: 52 42 41 53 49 4E 00 0D 56 A8 1B 20 43 4D 50 23 |RBASIN..V.. CMP#|
00003620: 30 3B 24 30 30 20 4B 45 4E 4E 5A 45 49 43 48 4E |0;$00 KENNZEICHN|
00003630: 45 54 20 44 41 53 00 37 56 B2 1B 20 42 4E 45 57 |ET DAS.7V.. BNEW|
00003640: 45 49 54 45 52 3B 45 4E 44 45 20 45 49 4E 45 52 |EITER;ENDE EINER|
00003650: 20 44 49 52 45 43 54 4F 52 59 2D 5A 45 49 4C 45 | DIRECTORY-ZEILE|
00003660: 00 45 56 BC 1B 20 4A 4D 50 53 54 41 52 54 00 6B |.EV.. JMPSTART.k|
00003670: 56 C6 1B 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |V..;************|
00003680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003690: 2A 2A 2A 2A 00 71 56 D0 1B 3B 00 77 56 DA 1B 3B |****.qV..;.wV..;|
000036A0: 00 7D 56 E4 1B 3B 00 97 56 EE 1B 3B 2A 2A 2A 2A |.}V..;..V..;****|
000036B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036C0: 00 B1 56 F8 1B 3B 2A 20 45 49 4E 4C 45 53 45 4E |..V..;* EINLESEN|
000036D0: 20 42 45 45 4E 44 45 54 20 2A 00 CB 56 02 1C 3B | BEENDET *..V..;|
000036E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036F0: 2A 2A 2A 2A 00 D1 56 04 1C 3B 00 DE 56 06 1C 45 |****..V..;..V..E|
00003700: 4E 44 45 20 43 4C 43 00 ED 56 08 1C 20 4C 44 41 |NDE CLC..V.. LDA|
00003710: 53 54 52 45 4E 44 00 FA 56 0A 1C 20 41 44 43 23 |STREND..V.. ADC#|
00003720: 24 31 31 00 09 57 0C 1C 20 53 54 41 53 54 52 45 |$11..W.. STASTRE|
00003730: 4E 44 00 17 57 0E 1C 20 42 43 43 45 4E 44 45 31 |ND..W.. BCCENDE1|
00003740: 00 28 57 10 1C 20 49 4E 43 53 54 52 45 4E 44 2B |.(W.. INCSTREND+|
00003750: 31 00 2E 57 12 1C 3B 00 4D 57 16 1C 3B 2A 5A 45 |1..W..;.MW..;*ZE|
00003760: 49 4C 45 4E 41 4E 5A 41 48 4C 20 55 45 42 45 52 |ILENANZAHL UEBER|
00003770: 47 45 42 45 4E 2A 00 61 57 20 1C 45 4E 44 45 31 |GEBEN*.aW .ENDE1|
00003780: 20 4A 53 52 43 48 4B 4B 4F 4D 00 70 57 2A 1C 20 | JSRCHKKOM.pW*. |
00003790: 4A 53 52 47 45 54 50 4F 53 00 76 57 3E 1C 3B 00 |JSRGETPOS.vW>.;.|
000037A0: 81 57 48 1C 20 4C 44 41 23 30 00 8A 57 52 1C 20 |.WH. LDA#0..WR. |
000037B0: 54 41 59 00 9D 57 5C 1C 20 53 54 41 28 56 41 52 |TAY..W\. STA(VAR|
000037C0: 50 54 52 29 2C 59 00 A6 57 66 1C 20 49 4E 59 00 |PTR),Y..Wf. INY.|
000037D0: B5 57 70 1C 20 4C 44 41 4E 55 4D 42 45 52 00 C8 |.Wp. LDANUMBER..|
000037E0: 57 7A 1C 20 53 54 41 28 56 41 52 50 54 52 29 2C |Wz. STA(VARPTR),|
000037F0: 59 00 CE 57 84 1C 3B 00 D4 57 8E 1C 3B 00 01 58 |Y..W..;..W..;..X|
00003800: 98 1C 20 4A 4D 50 43 4C 52 43 48 3B 4B 41 4E 41 |.. JMPCLRCH;KANA|
00003810: 45 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 20 2B |ELE SCHLIESSEN +|
00003820: 20 42 41 53 49 43 20 21 21 21 00 36 58 AC 1C 4E | BASIC !!!.6X..N|
00003830: 41 4D 45 20 2E 42 59 30 2C 31 2C 32 2C 33 2C 34 |AME .BY0,1,2,3,4|
00003840: 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C 31 31 |,5,6,7,8,9,10,11|
00003850: 2C 31 32 2C 31 33 2C 31 34 2C 31 35 2C 31 36 00 |,12,13,14,15,16.|
00003860: 3C 58 B6 1C 3B 00 42 58 C0 1C 3B 00 48 58 CA 1C |<X..;.BX..;.HX..|
00003870: 3B 00 4E 58 D4 1C 3B 00 54 58 DE 1C 3B 00 66 58 |;.NX..;.TX..;.fX|
00003880: E8 1C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |..;************.|
00003890: 78 58 F2 1C 3B 2A 20 53 41 54 5A 49 4E 46 4F 20 |xX..;* SATZINFO |
000038A0: 2A 00 8A 58 FC 1C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..X..;*********|
000038B0: 2A 2A 2A 00 90 58 06 1D 3B 00 96 58 10 1D 3B 00 |***..X..;..X..;.|
000038C0: AB 58 1A 1D 2E 45 51 20 50 4C 4F 54 20 3D 20 24 |.X...EQ PLOT = $|
000038D0: 46 46 46 30 00 C2 58 24 1D 2E 45 51 20 43 48 4B |FFF0..X$..EQ CHK|
000038E0: 4B 4F 4D 20 3D 20 24 41 45 46 44 00 D9 58 2E 1D |KOM = $AEFD..X..|
000038F0: 2E 45 51 20 47 45 54 42 59 54 20 3D 20 24 42 37 |.EQ GETBYT = $B7|
00003900: 39 45 00 F0 58 38 1D 2E 45 51 20 46 52 4D 4E 55 |9E..X8..EQ FRMNU|
00003910: 4D 20 3D 20 24 41 44 38 41 00 07 59 42 1D 2E 45 |M = $AD8A..YB..E|
00003920: 51 20 41 44 52 46 4F 52 20 3D 20 24 42 37 46 37 |Q ADRFOR = $B7F7|
00003930: 00 1E 59 4C 1D 2E 45 51 20 49 4E 54 4F 55 54 20 |..YL..EQ INTOUT |
00003940: 3D 20 24 42 44 43 44 00 33 59 56 1D 2E 45 51 20 |= $BDCD.3YV..EQ |
00003950: 53 49 48 45 4C 50 20 3D 20 24 46 42 00 39 59 60 |SIHELP = $FB.9Y`|
00003960: 1D 3B 00 3F 59 6A 1D 3B 00 45 59 74 1D 3B 00 5C |.;.?Yj.;.EYt.;.\|
00003970: 59 7E 1D 53 41 54 5A 49 4E 46 4F 20 4A 53 52 53 |Y~.SATZINFO JSRS|
00003980: 45 54 43 52 53 00 69 59 88 1D 20 4C 44 41 23 22 |ETCRS.iY.. LDA#"|
00003990: 28 22 00 77 59 92 1D 20 4A 53 52 42 53 4F 55 54 |(".wY.. JSRBSOUT|
000039A0: 00 87 59 9C 1D 20 4A 53 52 41 55 53 47 41 42 45 |..Y.. JSRAUSGABE|
000039B0: 00 8D 59 A6 1D 3B 00 93 59 B0 1D 3B 00 A0 59 BA |..Y..;..Y..;..Y.|
000039C0: 1D 20 4C 44 41 23 22 20 22 00 AE 59 C4 1D 20 4A |. LDA#" "..Y.. J|
000039D0: 53 52 42 53 4F 55 54 00 BB 59 CE 1D 20 4C 44 41 |SRBSOUT..Y.. LDA|
000039E0: 23 22 56 22 00 C9 59 D8 1D 20 4A 53 52 42 53 4F |#"V"..Y.. JSRBSO|
000039F0: 55 54 00 D6 59 E2 1D 20 4C 44 41 23 22 4F 22 00 |UT..Y.. LDA#"O".|
00003A00: E4 59 EC 1D 20 4A 53 52 42 53 4F 55 54 00 F1 59 |.Y.. JSRBSOUT..Y|
00003A10: F6 1D 20 4C 44 41 23 22 4E 22 00 FF 59 00 1E 20 |.. LDA#"N"..Y.. |
00003A20: 4A 53 52 42 53 4F 55 54 00 0C 5A 0A 1E 20 4C 44 |JSRBSOUT..Z.. LD|
00003A30: 41 23 22 20 22 00 1A 5A 14 1E 20 4A 53 52 42 53 |A#" "..Z.. JSRBS|
00003A40: 4F 55 54 00 2A 5A 1E 1E 20 4A 53 52 41 55 53 47 |OUT.*Z.. JSRAUSG|
00003A50: 41 42 45 00 37 5A 28 1E 20 4C 44 41 23 22 29 22 |ABE.7Z(. LDA#")"|
00003A60: 00 45 5A 32 1E 20 4A 53 52 42 53 4F 55 54 00 4B |.EZ2. JSRBSOUT.K|
00003A70: 5A 3C 1E 3B 00 54 5A 46 1E 20 53 45 43 00 61 5A |Z<.;.TZF. SEC.aZ|
00003A80: 50 1E 20 4A 53 52 50 4C 4F 54 00 6A 5A 5A 1E 20 |P. JSRPLOT.jZZ. |
00003A90: 54 59 41 00 73 5A 64 1E 20 53 45 43 00 82 5A 6E |TYA.sZd. SEC..Zn|
00003AA0: 1E 20 53 42 43 53 49 48 45 4C 50 00 8B 5A 78 1E |. SBCSIHELP..Zx.|
00003AB0: 20 54 41 59 00 98 5A 82 1E 20 4C 44 41 23 22 20 | TAY..Z.. LDA#" |
00003AC0: 22 00 AA 5A 8C 1E 53 49 4C 4F 4F 50 20 43 50 59 |"..Z..SILOOP CPY|
00003AD0: 23 31 35 00 B8 5A 96 1E 20 42 43 53 53 49 45 4E |#15..Z.. BCSSIEN|
00003AE0: 44 00 C6 5A A0 1E 20 4A 53 52 42 53 4F 55 54 00 |D..Z.. JSRBSOUT.|
00003AF0: CF 5A AA 1E 20 49 4E 59 00 DE 5A B4 1E 20 42 4E |.Z.. INY..Z.. BN|
00003B00: 45 53 49 4C 4F 4F 50 00 EC 5A BE 1E 53 49 45 4E |ESILOOP..Z..SIEN|
00003B10: 44 20 52 54 53 00 F2 5A C8 1E 3B 00 F8 5A D2 1E |D RTS..Z..;..Z..|
00003B20: 3B 00 0E 5B DC 1E 41 55 53 47 41 42 45 20 4A 53 |;..[..AUSGABE JS|
00003B30: 52 43 48 4B 4B 4F 4D 00 1D 5B E6 1E 20 4A 53 52 |RCHKKOM..[.. JSR|
00003B40: 46 52 4D 4E 55 4D 00 2C 5B F0 1E 20 4A 53 52 41 |FRMNUM.,[.. JSRA|
00003B50: 44 52 46 4F 52 00 3D 5B FA 1E 20 53 54 59 53 49 |DRFOR.=[.. STYSI|
00003B60: 48 45 4C 50 2B 32 00 4E 5B 04 1F 20 4C 44 58 53 |HELP+2.N[.. LDXS|
00003B70: 49 48 45 4C 50 2B 32 00 5D 5B 0E 1F 20 4A 4D 50 |IHELP+2.][.. JMP|
00003B80: 49 4E 54 4F 55 54 00 63 5B 18 1F 3B 00 69 5B 22 |INTOUT.c[..;.i["|
00003B90: 1F 3B 00 7E 5B 2C 1F 53 45 54 43 52 53 20 4A 53 |.;.~[,.SETCRS JS|
00003BA0: 52 43 48 4B 4B 4F 4D 00 8D 5B 36 1F 20 4A 53 52 |RCHKKOM..[6. JSR|
00003BB0: 47 45 54 42 59 54 00 9C 5B 40 1F 20 53 54 58 53 |GETBYT..[@. STXS|
00003BC0: 49 48 45 4C 50 00 AB 5B 4A 1F 20 4A 53 52 43 48 |IHELP..[J. JSRCH|
00003BD0: 4B 4B 4F 4D 00 BA 5B 54 1F 20 4A 53 52 47 45 54 |KKOM..[T. JSRGET|
00003BE0: 42 59 54 00 CB 5B 5E 1F 20 53 54 58 53 49 48 45 |BYT..[^. STXSIHE|
00003BF0: 4C 50 2B 31 00 DA 5B 68 1F 20 4C 44 59 53 49 48 |LP+1..[h. LDYSIH|
00003C00: 45 4C 50 00 E3 5B 72 1F 20 43 4C 43 00 F0 5B 7C |ELP..[r. CLC..[||
00003C10: 1F 20 4A 4D 50 50 4C 4F 54 00 F6 5B 86 1F 3B 00 |. JMPPLOT..[..;.|
00003C20: FC 5B 90 1F 3B 00 02 5C 9A 1F 3B 00 08 5C A4 1F |.[..;..\..;..\..|
00003C30: 3B 00 0E 5C AE 1F 3B 00 21 5C B8 1F 3B 2A 2A 2A |;..\..;.!\..;***|
00003C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 5C C2 1F 3B |**********.4\..;|
00003C50: 2A 20 42 4C 41 45 54 54 45 52 4E 20 2A 00 47 5C |* BLAETTERN *.G\|
00003C60: CC 1F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00003C70: 00 4D 5C D6 1F 3B 00 53 5C E0 1F 3B 00 6A 5C EA |.M\..;.S\..;.j\.|
00003C80: 1F 2E 45 51 20 43 48 4B 4B 4F 4D 20 3D 20 24 41 |..EQ CHKKOM = $A|
00003C90: 45 46 44 00 81 5C F4 1F 2E 45 51 20 47 45 54 42 |EFD..\...EQ GETB|
00003CA0: 59 54 20 3D 20 24 42 37 39 45 00 98 5C FE 1F 2E |YT = $B79E..\...|
00003CB0: 45 51 20 47 45 54 50 4F 53 20 3D 20 24 42 30 38 |EQ GETPOS = $B08|
00003CC0: 42 00 AF 5C 08 20 2E 45 51 20 41 44 52 42 59 54 |B..\. .EQ ADRBYT|
00003CD0: 20 3D 20 24 42 37 45 42 00 C3 5C 12 20 2E 45 51 | = $B7EB..\. .EQ|
00003CE0: 20 5A 41 48 4C 50 54 52 3D 24 34 37 00 D6 5C 1C | ZAHLPTR=$47..\.|
00003CF0: 20 2E 45 51 20 5A 4D 41 58 20 3D 20 24 31 34 00 | .EQ ZMAX = $14.|
00003D00: EB 5C 26 20 2E 45 51 20 56 45 4B 54 4F 52 20 3D |.\& .EQ VEKTOR =|
00003D10: 20 24 46 42 00 FE 5C 30 20 2E 45 51 20 5A 41 48 | $FB..\0 .EQ ZAH|
00003D20: 4C 20 3D 20 24 46 44 00 11 5D 3A 20 2E 45 51 20 |L = $FD..]: .EQ |
00003D30: 42 48 45 4C 50 3D 20 24 46 46 00 17 5D 44 20 3B |BHELP= $FF..]D ;|
00003D40: 00 1D 5D 4E 20 3B 00 35 5D 58 20 42 4C 41 45 54 |..]N ;.5]X BLAET|
00003D50: 54 45 52 4E 20 4A 53 52 43 48 4B 4B 4F 4D 00 44 |TERN JSRCHKKOM.D|
00003D60: 5D 62 20 20 4A 53 52 41 44 52 42 59 54 00 4D 5D |]b JSRADRBYT.M]|
00003D70: 6C 20 20 44 45 58 00 5B 5D 76 20 20 53 54 58 42 |l DEX.[]v STXB|
00003D80: 48 45 4C 50 00 6A 5D 80 20 20 4A 53 52 43 48 4B |HELP.j]. JSRCHK|
00003D90: 4B 4F 4D 00 79 5D 8A 20 20 4A 53 52 47 45 54 50 |KOM.y]. JSRGETP|
00003DA0: 4F 53 00 84 5D 94 20 20 4C 44 59 23 30 00 98 5D |OS..]. LDY#0..]|
00003DB0: 9E 20 20 4C 44 41 28 5A 41 48 4C 50 54 52 29 2C |. LDA(ZAHLPTR),|
00003DC0: 59 00 A7 5D A8 20 20 53 54 41 5A 41 48 4C 2B 31 |Y..]. STAZAHL+1|
00003DD0: 00 B0 5D B2 20 20 49 4E 59 00 C4 5D BC 20 20 4C |..]. INY..]. L|
00003DE0: 44 41 28 5A 41 48 4C 50 54 52 29 2C 59 00 D1 5D |DA(ZAHLPTR),Y..]|
00003DF0: C6 20 20 53 54 41 5A 41 48 4C 00 D7 5D D0 20 3B |. STAZAHL..]. ;|
00003E00: 00 E5 5D DA 20 20 4C 44 41 42 48 45 4C 50 00 EE |..]. LDABHELP..|
00003E10: 5D E4 20 20 41 53 4C 00 F7 5D EE 20 20 54 41 58 |]. ASL..]. TAX|
00003E20: 00 06 5E F8 20 20 4C 44 41 42 54 41 42 2C 58 00 |..^. LDABTAB,X.|
00003E30: 15 5E 02 21 20 53 54 41 56 45 4B 54 4F 52 00 26 |.^.! STAVEKTOR.&|
00003E40: 5E 0C 21 20 4C 44 41 42 54 41 42 2B 31 2C 58 00 |^.! LDABTAB+1,X.|
00003E50: 37 5E 16 21 20 53 54 41 56 45 4B 54 4F 52 2B 31 |7^.! STAVEKTOR+1|
00003E60: 00 48 5E 20 21 20 4A 4D 50 28 56 45 4B 54 4F 52 |.H^ ! JMP(VEKTOR|
00003E70: 29 00 4E 5E 2A 21 3B 00 60 5E 34 21 50 4C 55 53 |).N^*!;.`^4!PLUS|
00003E80: 31 30 20 4C 44 41 23 31 30 00 6C 5E 3E 21 20 2E |10 LDA#10.l^>! .|
00003E90: 42 59 24 32 43 00 7C 5E 48 21 50 4C 55 53 31 20 |BY$2C.|^H!PLUS1 |
00003EA0: 4C 44 41 23 31 00 85 5E 52 21 20 43 4C 43 00 92 |LDA#1..^R! CLC..|
00003EB0: 5E 5C 21 20 41 44 43 5A 41 48 4C 00 9F 5E 66 21 |^\! ADCZAHL..^f!|
00003EC0: 20 53 54 41 5A 41 48 4C 00 AC 5E 70 21 20 42 43 | STAZAHL..^p! BC|
00003ED0: 43 42 43 4D 50 00 BB 5E 7A 21 20 49 4E 43 5A 41 |CBCMP..^z! INCZA|
00003EE0: 48 4C 2B 31 00 C8 5E 84 21 20 42 4E 45 42 43 4D |HL+1..^.! BNEBCM|
00003EF0: 50 00 CE 5E 8E 21 3B 00 E2 5E 98 21 4D 49 4E 55 |P..^.!;..^.!MINU|
00003F00: 53 31 30 20 4C 44 41 5A 41 48 4C 00 EB 5E A2 21 |S10 LDAZAHL..^.!|
00003F10: 20 53 45 43 00 F7 5E AC 21 20 53 42 43 23 31 30 | SEC..^.! SBC#10|
00003F20: 00 05 5F B6 21 20 4A 4D 50 4D 49 4E 55 53 00 18 |.._.! JMPMINUS..|
00003F30: 5F C0 21 4D 49 4E 55 53 31 20 4C 44 41 5A 41 48 |_.!MINUS1 LDAZAH|
00003F40: 4C 00 21 5F CA 21 20 53 45 43 00 2C 5F D4 21 20 |L.!_.! SEC.,_.! |
00003F50: 53 42 43 23 31 00 3E 5F DE 21 4D 49 4E 55 53 20 |SBC#1.>_.!MINUS |
00003F60: 53 54 41 5A 41 48 4C 00 4B 5F E8 21 20 42 43 53 |STAZAHL.K_.! BCS|
00003F70: 42 43 4D 50 00 5A 5F F2 21 20 44 45 43 5A 41 48 |BCMP.Z_.! DECZAH|
00003F80: 4C 2B 31 00 60 5F FC 21 3B 00 73 5F 06 22 42 43 |L+1.`_.!;.s_."BC|
00003F90: 4D 50 20 4C 44 41 5A 41 48 4C 2B 31 00 80 5F 10 |MP LDAZAHL+1.._.|
00003FA0: 22 20 42 4D 49 53 45 54 31 00 8E 5F 1A 22 20 42 |" BMISET1.._." B|
00003FB0: 4E 45 42 43 4D 50 31 00 9B 5F 24 22 20 4C 44 41 |NEBCMP1.._$" LDA|
00003FC0: 5A 41 48 4C 00 A8 5F 2E 22 20 42 45 51 53 45 54 |ZAHL.._." BEQSET|
00003FD0: 31 00 AE 5F 38 22 3B 00 C2 5F 42 22 42 43 4D 50 |1.._8";.._B"BCMP|
00003FE0: 31 20 4C 44 41 5A 41 48 4C 2B 31 00 D1 5F 4C 22 |1 LDAZAHL+1.._L"|
00003FF0: 20 43 4D 50 5A 4D 41 58 2B 31 00 DE 5F 56 22 20 | CMPZMAX+1.._V" |
00004000: 42 43 43 42 45 4E 44 00 EE 5F 60 22 20 42 45 51 |BCCBEND.._`" BEQ|
00004010: 4E 45 58 54 43 4D 50 00 FE 5F 6A 22 20 42 43 53 |NEXTCMP.._j" BCS|
00004020: 53 45 54 5A 4D 41 58 00 12 60 74 22 4E 45 58 54 |SETZMAX..`t"NEXT|
00004030: 43 4D 50 20 4C 44 41 5A 41 48 4C 00 1F 60 7E 22 |CMP LDAZAHL..`~"|
00004040: 20 43 4D 50 5A 4D 41 58 00 2F 60 88 22 20 42 43 | CMPZMAX./`." BC|
00004050: 53 53 45 54 5A 4D 41 58 00 35 60 92 22 3B 00 44 |SSETZMAX.5`.";.D|
00004060: 60 9C 22 42 45 4E 44 20 4C 44 59 23 30 00 53 60 |`."BEND LDY#0.S`|
00004070: A6 22 20 4C 44 41 5A 41 48 4C 2B 31 00 67 60 B0 |." LDAZAHL+1.g`.|
00004080: 22 20 53 54 41 28 5A 41 48 4C 50 54 52 29 2C 59 |" STA(ZAHLPTR),Y|
00004090: 00 70 60 BA 22 20 49 4E 59 00 7D 60 C4 22 20 4C |.p`." INY.}`." L|
000040A0: 44 41 5A 41 48 4C 00 91 60 CE 22 20 53 54 41 28 |DAZAHL..`." STA(|
000040B0: 5A 41 48 4C 50 54 52 29 2C 59 00 9A 60 D8 22 20 |ZAHLPTR),Y..`." |
000040C0: 52 54 53 00 A0 60 E2 22 3B 00 AF 60 EC 22 53 45 |RTS..`.";..`."SE|
000040D0: 54 31 20 4C 44 59 23 31 00 BC 60 F6 22 20 53 54 |T1 LDY#1..`." ST|
000040E0: 59 5A 41 48 4C 00 C5 60 00 23 20 44 45 59 00 D4 |YZAHL..`.# DEY..|
000040F0: 60 0A 23 20 53 54 59 5A 41 48 4C 2B 31 00 E1 60 |`.# STYZAHL+1..`|
00004100: 14 23 20 42 45 51 42 45 4E 44 00 E7 60 1E 23 3B |.# BEQBEND..`.#;|
00004110: 00 FB 60 28 23 53 45 54 5A 4D 41 58 20 4C 44 41 |..`(#SETZMAX LDA|
00004120: 5A 4D 41 58 00 08 61 32 23 20 53 54 41 5A 41 48 |ZMAX..a2# STAZAH|
00004130: 4C 00 17 61 3C 23 20 4C 44 41 5A 4D 41 58 2B 31 |L..a<# LDAZMAX+1|
00004140: 00 26 61 46 23 20 53 54 41 5A 41 48 4C 2B 31 00 |.&aF# STAZAHL+1.|
00004150: 33 61 50 23 20 4A 4D 50 42 45 4E 44 00 39 61 5A |3aP# JMPBEND.9aZ|
00004160: 23 3B 00 4B 61 64 23 42 54 41 42 20 2E 57 4F 50 |#;.Kad#BTAB .WOP|
00004170: 4C 55 53 31 00 5A 61 6E 23 20 2E 57 4F 4D 49 4E |LUS1.Zan# .WOMIN|
00004180: 55 53 31 00 67 61 78 23 20 2E 57 4F 53 45 54 31 |US1.gax# .WOSET1|
00004190: 00 77 61 82 23 20 2E 57 4F 53 45 54 5A 4D 41 58 |.wa.# .WOSETZMAX|
000041A0: 00 86 61 8C 23 20 2E 57 4F 50 4C 55 53 31 30 00 |..a.# .WOPLUS10.|
000041B0: 96 61 96 23 20 2E 57 4F 4D 49 4E 55 53 31 30 00 |.a.# .WOMINUS10.|
000041C0: 9C 61 A0 23 3B 00 A2 61 AA 23 3B 00 A8 61 B4 23 |.a.#;..a.#;..a.#|
000041D0: 3B 00 AE 61 BE 23 3B 00 B4 61 C8 23 3B 00 CF 61 |;..a.#;..a.#;..a|
000041E0: D2 23 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#;*************|
000041F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EA 61 DC 23 3B 2A 20 |********..a.#;* |
00004200: 53 45 51 2E 44 41 54 45 49 20 57 41 4E 44 45 4C |SEQ.DATEI WANDEL|
00004210: 4E 20 2A 00 05 62 E6 23 3B 2A 2A 2A 2A 2A 2A 2A |N *..b.#;*******|
00004220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0B |**************..|
00004230: 62 F0 23 3B 00 22 62 FA 23 2E 45 51 20 43 48 4B |b.#;."b.#.EQ CHK|
00004240: 4B 4F 4D 20 3D 20 24 41 45 46 44 00 39 62 04 24 |KOM = $AEFD.9b.$|
00004250: 2E 45 51 20 47 45 54 42 59 54 20 3D 20 24 42 37 |.EQ GETBYT = $B7|
00004260: 39 45 00 55 62 0E 24 2E 45 51 20 44 54 41 42 45 |9E.Ub.$.EQ DTABE|
00004270: 4C 4C 45 20 20 20 20 3D 20 24 30 37 30 30 00 6B |LLE = $0700.k|
00004280: 62 18 24 2E 45 51 20 42 53 4F 55 54 20 3D 20 24 |b.$.EQ BSOUT = $|
00004290: 46 46 44 32 00 81 62 22 24 2E 45 51 20 47 45 54 |FFD2..b"$.EQ GET|
000042A0: 49 4E 20 3D 20 24 46 46 45 34 00 97 62 2C 24 2E |IN = $FFE4..b,$.|
000042B0: 45 51 20 43 48 4B 49 4E 20 3D 20 24 46 46 43 36 |EQ CHKIN = $FFC6|
000042C0: 00 AE 62 36 24 2E 45 51 20 43 48 4B 4F 55 54 20 |..b6$.EQ CHKOUT |
000042D0: 3D 20 24 46 46 43 39 00 C4 62 40 24 2E 45 51 20 |= $FFC9..b@$.EQ |
000042E0: 43 4C 52 43 48 20 3D 20 24 46 46 43 43 00 D9 62 |CLRCH = $FFCC..b|
000042F0: 4A 24 2E 45 51 20 53 54 41 54 55 53 20 3D 20 24 |J$.EQ STATUS = $|
00004300: 39 30 00 DF 62 54 24 3B 00 F2 62 5E 24 2E 45 51 |90..bT$;..b^$.EQ|
00004310: 20 46 4C 41 47 20 3D 20 24 30 32 00 07 63 68 24 | FLAG = $02..ch$|
00004320: 2E 45 51 20 49 4E 46 49 4C 45 20 3D 20 24 46 42 |.EQ INFILE = $FB|
00004330: 00 1D 63 72 24 2E 45 51 20 4F 55 54 46 49 4C 45 |..cr$.EQ OUTFILE|
00004340: 20 3D 20 24 46 43 00 34 63 7C 24 2E 45 51 20 53 | = $FC.4c|$.EQ S|
00004350: 54 41 52 54 50 4F 53 20 3D 20 24 46 44 00 3A 63 |TARTPOS = $FD.:c|
00004360: 86 24 3B 00 40 63 90 24 3B 00 5F 63 9A 24 3B 2A |.$;.@c.$;._c.$;*|
00004370: 20 45 49 4E 2D 2F 41 55 53 47 41 42 45 20 55 4D | EIN-/AUSGABE UM|
00004380: 4C 45 4E 4B 45 4E 20 2A 00 75 63 A4 24 43 4F 4E |LENKEN *.uc.$CON|
00004390: 56 45 52 54 20 4A 53 52 43 48 4B 4B 4F 4D 00 84 |VERT JSRCHKKOM..|
000043A0: 63 AE 24 20 4A 53 52 47 45 54 42 59 54 00 93 63 |c.$ JSRGETBYT..c|
000043B0: B8 24 20 53 54 58 49 4E 46 49 4C 45 00 A2 63 C2 |.$ STXINFILE..c.|
000043C0: 24 20 4A 53 52 43 48 4B 4B 4F 4D 00 B1 63 CC 24 |$ JSRCHKKOM..c.$|
000043D0: 20 4A 53 52 47 45 54 42 59 54 00 C1 63 D6 24 20 | JSRGETBYT..c.$ |
000043E0: 53 54 58 4F 55 54 46 49 4C 45 00 C7 63 E0 24 3B |STXOUTFILE..c.$;|
000043F0: 00 E0 63 EA 24 3B 2A 20 52 45 41 44 2F 57 52 49 |..c.$;* READ/WRI|
00004400: 54 45 20 46 49 4C 45 20 2A 00 F6 63 F4 24 52 45 |TE FILE *..c.$RE|
00004410: 41 44 42 59 54 45 20 4A 53 52 43 4C 52 43 48 00 |ADBYTE JSRCLRCH.|
00004420: 05 64 FE 24 20 4C 44 58 49 4E 46 49 4C 45 00 13 |.d.$ LDXINFILE..|
00004430: 64 08 25 20 4A 53 52 43 48 4B 49 4E 00 21 64 12 |d.% JSRCHKIN.!d.|
00004440: 25 20 4A 53 52 47 45 54 49 4E 00 27 64 1C 25 3B |% JSRGETIN.'d.%;|
00004450: 00 30 64 26 25 20 54 41 58 00 3F 64 30 25 20 4C |.0d&% TAX.?d0% L|
00004460: 44 41 53 54 41 54 55 53 00 48 64 3A 25 20 50 48 |DASTATUS.Hd:% PH|
00004470: 41 00 55 64 44 25 20 4C 44 41 46 4C 41 47 00 64 |A.UdD% LDAFLAG.d|
00004480: 64 4E 25 20 42 4E 45 49 4D 50 4F 52 54 00 73 64 |dN% BNEIMPORT.sd|
00004490: 58 25 45 58 50 4F 52 54 20 44 45 58 00 86 64 62 |X%EXPORT DEX..db|
000044A0: 25 20 4C 44 41 44 54 41 42 45 4C 4C 45 2C 58 00 |% LDADTABELLE,X.|
000044B0: 95 64 6C 25 20 4A 4D 50 49 4D 50 45 58 50 00 9B |.dl% JMPIMPEXP..|
000044C0: 64 76 25 3B 00 AA 64 80 25 49 4D 50 4F 52 54 20 |dv%;..d.%IMPORT |
000044D0: 54 58 41 00 B3 64 8A 25 20 44 45 58 00 BC 64 94 |TXA..d.% DEX..d.|
000044E0: 25 20 44 45 58 00 CD 64 9E 25 20 53 54 58 53 54 |% DEX..d.% STXST|
000044F0: 41 52 54 50 4F 53 00 E7 64 A8 25 49 4D 50 4C 4F |ARTPOS..d.%IMPLO|
00004500: 4F 50 20 43 4D 50 44 54 41 42 45 4C 4C 45 2C 58 |OP CMPDTABELLE,X|
00004510: 00 F7 64 B2 25 20 42 45 51 45 4E 44 4C 4F 4F 50 |..d.% BEQENDLOOP|
00004520: 00 00 65 BC 25 20 44 45 58 00 11 65 C6 25 20 43 |..e.% DEX..e.% C|
00004530: 50 58 53 54 41 52 54 50 4F 53 00 21 65 D0 25 20 |PXSTARTPOS.!e.% |
00004540: 42 4E 45 49 4D 50 4C 4F 4F 50 00 27 65 DA 25 3B |BNEIMPLOOP.'e.%;|
00004550: 00 37 65 E4 25 45 4E 44 4C 4F 4F 50 20 49 4E 58 |.7e.%ENDLOOP INX|
00004560: 00 40 65 EE 25 20 54 58 41 00 46 65 F8 25 3B 00 |.@e.% TXA.Fe.%;.|
00004570: 55 65 02 26 49 4D 50 45 58 50 20 50 48 41 00 63 |Ue.&IMPEXP PHA.c|
00004580: 65 0C 26 20 4A 53 52 43 4C 52 43 48 00 73 65 16 |e.& JSRCLRCH.se.|
00004590: 26 20 4C 44 58 4F 55 54 46 49 4C 45 00 82 65 20 |& LDXOUTFILE..e |
000045A0: 26 20 4A 53 52 43 48 4B 4F 55 54 00 8B 65 2A 26 |& JSRCHKOUT..e*&|
000045B0: 20 50 4C 41 00 99 65 34 26 20 4A 53 52 42 53 4F | PLA..e4& JSRBSO|
000045C0: 55 54 00 A2 65 3E 26 20 50 4C 41 00 B2 65 48 26 |UT..e>& PLA..eH&|
000045D0: 20 42 4E 45 52 45 41 44 45 4E 44 00 C1 65 52 26 | BNEREADEND..eR&|
000045E0: 20 4C 44 41 53 54 41 54 55 53 00 D2 65 5C 26 20 | LDASTATUS..e\& |
000045F0: 42 45 51 52 45 41 44 42 59 54 45 00 D8 65 66 26 |BEQREADBYTE..ef&|
00004600: 3B 00 EE 65 70 26 52 45 41 44 45 4E 44 20 53 54 |;..ep&READEND ST|
00004610: 41 53 54 41 54 55 53 00 FC 65 7A 26 20 4A 4D 50 |ASTATUS..ez& JMP|
00004620: 43 4C 52 43 48 00 04 66 84 26 2E 45 4E 00 00 00 |CLRCH..f.&.EN...|
X...D..EQ SETFLS=$FFBA.. N..EQ SETNAM=$F
FBD.. X..EQ SAVE=$FFD8.( ...EQ LOAD=$FFD
5.. ..;.C ...EQ CHKKOM=$AEFD.X ..EQ FRM
NUM=$AD8A.M ...EQ ADRFOR=$B7F7.. ...EQ G
ETPOS=$B08B.. ...EQ VARPTR=$47.. H.;.. R
..EQ INDIZ=$FB.. ...EQ INDIZ1=$FD.F ..;.
T ...BA $9800.Z ..;.. ..;.. .. JMPBLAETT
ERN..!.. JMPCONVERT..!". JMPSETCRS."!,.
JMPSATZINFO.4!6. JMPSAVEARRAY.F!@. JMPLO
ADARRAY.V!J. JMPDIRREAD.H!T. JMPSPEICHER
N.N!^.;.T!H.;..!R.;*** LOAD ***..!|. JSR
SLINIT. !.. LDA#0..!.. LDXINDIZ..!.. LDY
INDIZ+1.K!.. JMPLOAD.Q!..;.W!..;..!B.;**
* SAVE ***.."L.SPEICHERN JSRSLINIT;=> EN
DADR. IN Y/A.0"V. PHA;NACH X/Y UBERTRAGE
N.9".. TYA.B".. TAX.K".. PLA.T".. TAY.C"
.. LDA#INDIZ.P".. JMPSAVE.V"..;.|"&.;.."
0.;*** PARAMETER HOLEN ***..":.SLINIT LD
A#1.."D. LDX#8.."N. LDY#2.O"X. JSRSETFLS
.U"B.;.."L. JSRCHKKOM.."V. JSRGETPOS..".
. LDY#0..#.. LDA(VARPTR),Y..#.. PHA.##..
INY.6#.. LDA(VARPTR),Y.?#.. TAX.H#.. IN
Y.[#F. LDA(VARPTR),Y.D#P. TAY.M#Z. PLA.|
#.. JSRSETNAM..#..;..#.. JSRCHKKOM. #..
JSRFRMNUM..#.. JSRADRFOR..#.. STYINDIZ.M
# . STAINDIZ+1.S#*.;..#4. JSRCHKKOM..#>.
JSRFRMNUM..$H. JSRADRFOR..$R. RTS..$\.;
..$F.;..$P.;.!$Z.;.'$..;.M$..;**********
**********************.S$..;* F
ASTFILE *..$..;* (C) SAID
BALOUI, 1987 *..$..;****************
****************.E$..;.K$..;.Q$J.;..$T.;
***** FUNKTION: DREITEILIG *****..$..;..
%..;1.FASTSAVE: SPEICHERT ARRAYS.@%..;
BELIEBIGEN TYPS.F%..;.K%..;2.F
ASTLOAD: LAEDT EINEN EINZEL-..%..;
NEN STRING (INCL...%..;
ALLER BEI 'INPUT#'.W%$.; UNZ
UL.ZEICHEN (.:,)..%..; MIT MA
X-LAENGE 255..&8.; ZEICHEN OD
ER:.<&B.; EIN GANZES ARRAY.^&
L.; BELIEBIGEN TYPS..D&V.;..&
`.; 'FASTLOAD' VERKRAFT-..&J.
; TET IM GEGENSATZ ZU.T&T.;
'INPUT#' AUCH LEERE..&~.;
STRINGS EINWANDFREI!..'..;..'..;S
PEICHERFORMAT:.9'..;-STRINGS: ZEICHENWEI
SE MIT AB-.^'..; SCHL. CARRIAGE
RETURN.~'..;-INTEGER: HIGH/LOW OHNE CR.
.'..; (2 BYTE)..'D.;-REAL: SPEI
CHERFORMAT OHNE CR.N'N.; (5 BYTE).
T'X.;..'..;ACHTUNG: DAS FORMAT, IN DEM..
(..; REAL- U.INTEGERARRAYS.?(..;
GESPEICHERT WERDEN, IST.](..;
INKOMPATIBEL ZU.X(..; 'IN
PUT#' !!!..(..; => ZUM EINLESEN MUS
S (!)..(..; 'FASTLOAD' VERWENDET
.X((.; WERDEN !!!..(2.;..(<.;..)
F.;VORBEREITUNG: DATEI MUSS BEI.$)P.;
AUFRUF VON.I)Z.;
FASTSAVE/FASTLOAD.H)D.; OF
FEN SEIN..N)N.;.T)X.;..)..;************
AUFRUF ***********..)..;SAVE : SYS X,LF
N,NR,VAR(..)..)..; - LFN: LOG.FILEN
UMMER..* .; - NR: ANZAHL DER ZU SPE
I-.$*..; - CHERNDEN ELEMENTE.J*
..; VAR(..): 1.ZU SPEICHERNDES.K*..
; ARRAYELEMENT.Q*H.;..*R.;
LOAD: SYS X,LFN,NR,VAR..*..; - LFN:
LOG.FILENUMMER.R*..; - NR: ANZAHL DE
R ZU LADEN-..*..; DEN ELEMENTE
:..+..; - 1,WENN D.ROUTINE.4+.
.; NUR ALS ERSATZ.U+..;
F.'INPUT#' ZUM.{+..;
LESEN EINES STRINGS..+".; V
ERWENDET WIRD...+,.; - SONST A
NZAHL DER..+6.; ARRAYELEMENT
E..,@.; - VAR: ZUWEISUNGSVARIABLE:.*
,J.; - BELIEBIGE STRING-.P,T.
; VAR. BEI 'INPUT#'-.K,^.;
ERSATZ...,H.; -
ARRAYVAR. BEIM..,R.; LADEN
EINES MIT.V,|.; 'FASTSAVE'
GESPEI-..,..; CHERTEN ARRAY
S...,..;..-..;.+-..;********** BEISPIELE
***********.K-..;1. SYS LOAD,2,1,A$
ODER.G-..; SYS LOAD,2,1,X$(23).M-B.;..
-L.;=> LESEN EINES EINZELNEN STRINGS..-V
.; AUS DATEI MIT LFN 2...-..;..-..;..-
..;2. SYS SAVE,1,2*5,A%(3) UND..-..;
SYS LOAD,3,10,A%(7).....;.$...;=> SPEI
CHERN VON 10 INTEGERS.J...; A%(3)-A%(1
2) IN DATEI (LFN 1).M.&.; UND LESEN VO
N 10 INNTEGERS...0.; IN A%(7)-A%(16) A
US DATEI...:.; MIT LFN 3....D.;...N.;.
..X.;...B.;...L.;***********************
*********../V.;* LABEL
*.,/..;***************************
*****.2/..;.8/..;.^/..;******* BETRIEBSS
YSTEM *********.D/..;../...EQ CHKKOM =$A
EFD ;LIEST KOMMA../...EQ GETBYT =$B79E
;HOLT 1-BYTE-WERT../F..EQ FRMNUM =$AD8A
;WERTET NUM.AUSDRUCK AUS.#0P..EQ ADRFO
R =$B7F7 ;FLIESSKOMMAZAHL NACH ADRESSFO
RMAT WANDELN.U0Z..EQ GETPOS =$B08B ;ZEI
GER AUF VARIABLE HOLEN..0...EQ VARPTR =$
47 ;ZEIGER AUF VARIABLE..0...EQ CHKOU
T =$FFC9 ;AUSGABE AUF LOG.DATEI UMLEITE
N..0...EQ CHKIN =$FFC6 ;EINGABE AUF LO
G.DATEI UMLEITEN..1...EQ CLRCH =$FFCC
;KANAELE SCHLIESSEN.M1...EQ BSOUT =$FFD
2 ;BYTE IN LOG.DATEI AUSGEBEN.~1...EQ B
ASIN =$FFCF ;BYTE VON LOG.DATEI HOLEN.
.1 ..EQ VALTYP =$0D ;VARIABLENTYP.W1*
..EQ INTFLG =$0E ;SPEZIFIKATION NUM.V
ARIABLEN..24..EQ STREND =$33 ;(UNTERE
S) ENDE STRINGSTACK.@2>..EQ STRRES =$B4F
4 ;PLATZ FUER STRING RESERVIEREN.F2H.;.
L2R.;.R2\.;******** PROGRAMMINTERN *****
***.X2F.;..2P..EQ COUNT =$FB ;ELEMEN
TANZAHL.I2Z..EQ STRDES =$FD ;STRINGDE
SCRIPTOREN..2...EQ POINTR =$A7 ;HILFS
POINTER.)3...EQ STRLENGTH =$A9 ;LAENG
E DES EINGELESENEN STRINGS.[3...EQ OFFSE
T =$AA ;OFFSET DER ARRAYVARIABLEN.A3.
.;.G3..;.M3..;.S3..;.Y3J.;.3T.;..3..;**
******************************.K3..;*
SAVE *..3..;******
**************************..3..;..4..;**
*** AUSGABE AUF LOG.DATEI ****.54..SAVEA
RRAY JSRCHKKOM.D4.. JSRGETBYT.S4$. JSRCH
KOUT.Y4..;.G48. JSRFINIT.Y4B. BCSSTRINGO
UT..4L.;********************************
..4V.;..4`.;..4J.;.W4T.;******* ZAHLEN A
USGEBEN ********..4~.ZAHLOUT LDY#$FF..4.
.TRANSFER INY..5.. CPYOFFSET..5.. BEQNEX
TZAHL./5.. LDA(VARPTR),Y.=5.. JSRBSOUT.N
5.. JMPTRANSFER.T5D.;.K5N.NEXTZAHL JSRIN
CPTR.{5X. BCSENDEOUT..5.. BCCZAHLOUT..5.
.;********************************..5..;
..5..;.C5..;..5..;******* STRING AUSGEBE
N ********..6..STRINGOUT JSRHOLDES..6(.;
..62. LDY#$FF.&6<.TRANSFER1 INY.56F. CPY
STRDES.E6P. BEQNEXTSTR.Z6Z. LDA(STRDES+1
),Y.H6D. JSRBSOUT.Z6N. JMPTRANSFER1..6X.
;..6..NEXTSTR LDA#13..6.. JSRBSOUT..6..;
..6 . JSRINCPTR.H6.. BCCSTRINGOUT..6..;*
*******************************..6..;..6
H.;..7R.;..7..ENDEOUT JSRCLRCH..7.. RTS.
D7..;********************************.J7
..;********************************..7..
;********************************..7..;.
.7..;..7".;..7,.;..76.;.T7@.;***********
*********************..7J.;*
LOAD *. 8T.;***************
*****************.&8^.;.,8H.;.R8R.;*****
EINGABE AUF LOG.DATEI ****.J8|.LOADARRA
Y JSRCHKKOM.Y8.. JSRGETBYT..8.. JSRCHKIN
..8..;..8.. JSRFINIT;HOLT ANZAHL, PRUEFT
ELEMENTTYP.K8.. BCSSTRINGIN..8..;******
**************************..8B.;..8L.;..
9V.;.)9..;** NUMERISCHES ARRAY EINLESEN
**.<9..ZAHLIN LDY#$FF.I9..ZIN1 INY.X9..
CPYOFFSET.E9.. BEQZIN2.S9.. JSRBASIN..9.
. STA(VARPTR),Y..9&. JMPZIN1..90.;..9:.Z
IN2 JSRINCPTR..9D. BCCZAHLIN.J9N. BCSEND
EIN..9X.;*******************************
*..9B.;..9L.;..:V.;.(:..;**** STRING/STR
INGARAY LESEN ***.=:..STRINGIN LDA#$FF.L
:.. JSRSTRRES.R:..;.X:..;.C:.. LDY#0.W:.
.STRIN1 JSRBASIN..:F. CMP#13..:P. BEQSTR
IN2..:Z. STA(STREND),Y..:.. INY..:.. BNE
STRIN1.C:..;..:..STRIN2 STYSTRLENGTH..:.
.;..:..;..; .;*POINTER AUF STRINGANFANG*
..;*. LDASTREND+1.);4. STAPOINTR+1.6;>.
LDA#$FF.?;H. SEC.Q;R. SBCSTRLENGTH.Z;\.
CLC.I;F. ADCSTREND.X;P. STAPOINTR..;Z. B
CCNOINCR..;.. INCPOINTR+1..;..;..;..;..;
..;*STRING VERSCHIEBEN*.V;..NOINCR LDYST
RLENGTH..;.. BEQNOCOPY..;.. DEY..<J.FCOP
Y LDA(STREND),Y..<T. STA(POINTR),Y."<..
DEY./<.. CPY#$FF.=<.. BNEFCOPY.C<..;.I<.
.;.P<..;*DESCRIPTOREN U.STREND BEHANDELN
*..<..NOCOPY LDY#0..<$. LDASTRLENGTH..<.
. STA(VARPTR),Y..<8. INY..<B. LDAPOINTR.
Q<L. STA(VARPTR),Y..<V. STASTREND..<`. I
NY..<J. LDAPOINTR+1..=T. STA(VARPTR),Y..
=~. STASTREND+1.$=..;.3=.. JSRINCPTR.D=.
. BCCSTRINGIN.J=..;*********************
***********.P=..;..=..ENDEIN JSRCLRCH..=
D. RTS..=N.;****************************
****.Y=X.;******************************
**..=..;********************************
..>..;..>..;..>..;..>..;.=>..;**********
**********************.C>..;* UNT
ERPROGRAMME *..>(.;**************
******************..>2.;..><.;.Q>F.;***
ANZAHL U.ZEIGER AUF VAR.HOLEN/VAR.-TYP P
RUEFEN ***.W>P.;..>Z.;*ELEMENTANZAHL HOL
EN*..?D.FINIT JSRCHKKOM..?N. JSRFRMNUM.$
?X. JSRADRFOR.2?.. STYCOUNT.B?.. STACOUN
T+1.H?..;.N? .;.Q?..;*POINTER AUF 1.ELEM
ENT HOLEN*..?.. JSRCHKKOM..?.. JSRGETPOS
..?H.;..?R.;..?..;*ELEMENTTYP PRUEFEN*.D
?.. LDAVALTYP.V?.. BPLNUMERISCH..?.. LDA
#3..?.. STAOFFSET..?.. BNESTRING..@..;..
@".NUMERISCH LDAINTFLG.-@,. BMIINTEGER.8
@6. LDA#5.D@@..BY $2C.V@J.INTEGER LDA#2.
E@T. STAOFFSET.K@^.;..@H. CLC;CLC=NUMERI
SCH..@R. RTS..@|.;..@..STRING SEC;SEC=ST
RING..@.. RTS.Z@..;*********************
***********..@..;..@..;..@..;..AB.;*** N
AECHSTES ELEMENT BEHANDELN ***..AL.;.<AV
.;*VARPTR UM OFFSET ERHOEHEN*.QA..INCPTR
LDAVARPTR.ZA.. CLC.IA.. ADCOFFSET.XA..
STAVARPTR..A.. BCCINC1..A.. INCVARPTR+1.
.A..;..A&.;.FA0.;*ELEMENTANZAHL DEKREMEN
TIEREN*.XA:.INC1 LDACOUNT..AD. BNEINC2..
AN. DECCOUNT+1..BX.INC2 DECCOUNT..BB.;..
BL. LDACOUNT+1.#BV.;.)B..;.IB..;*ANZAHL
MIT 0 VERGLEICHEN*.ZB.. BNENOFERTIG.HB..
LDACOUNT.YB.. BNENOFERTIG..B.. SEC..B..
RTS..BF.NOFERTIG CLC..BP. RTS.KBZ.;****
****************************.QB..;.WB..;
..B..;..C..;*** STRINGDESCRIPTOREN HOLEN
***..C..HOLDES LDY#2..C..HOLDES1 LDA(VA
RPTR),Y.?C . STASTRDES,Y.HC*. DEY.XC4. B
PLHOLDES1.AC>. RTS..CH.;****************
****************..CR.;..C\.;..CF.;..CP.;
..CZ.;..C..;.JC..;**********************
***..C..;* DIRECTORY EINLESEN *..D..;
* (C) SAID BALOUI, 1987 *.'D..;*********
****************.-D..;.3D..;.9DJ.;._DT.;
FUNKTION: LIEST DIRECTORY IN EIN.~D..;
STRINGARRAY EIN..D..;..D..;..D..
;AUFRUF: SYS X,FN,EXT$,ARRAY$..D..;.UD..
; - FN: FILENUMMER (GEOEFFNETE..D..;
DATEI VORAUSGESETZT!!!)..D$.;."E..; -
ARRAY$: ERSTES ELEMENT DES.EE8.;
ARRAYS, IN DEM DIE.JEB.; D
IR.GESPEICHERT WIRD.PEL.;.VEV.;..E`.;BSP
.: SYS X,1,DIR$(0)..EJ.; LESEN AUS
DER UNTER DER.SET.; LOG.FN 1 GEOEFF
ETEN..E~.; DIRECTORY-DATEI;..F..;
IN 'DIR$(0)' WIRD DER.2F..; HEA
DER GESPEICHERT, IN.VF..; 'DIR$(1)'
, 'DIR$(2)' ....VF..; DIE DIRECTORY
-ZEILEN.|F..;..F..;..FD.;..FN.;..FX.;***
******..F..;* LABEL *..F..;*********.AF.
.;..F..;***** BETRIEBSSYSTEM *****..G...
EQ CHKIN =$FFC6 ;EINGABE AUF LOGDATEI L
ENKEN.>G...EQ CLRCH =$FFCC ;KANAELE SCH
LIESSEN.MG...EQ BASIN =$FFCF ;ZEICHEN V
ON DATEI HOLEN..G(..EQ READST=$FFB7 ;ST
ATUS HOLEN..G2..EQ CHKKOM=$AEFD ;LIEST
KOMMA..G<..EQ GETBYT=$B79E ;LIEST 1-BYT
E-WERT..HF..EQ GETPOS=$B08B ;HOLT POINT
ER AUF VARIABLE.EHP..EQ STRRES=$B4F4 ;R
ESERVIERT PLATZ IM STRINGSTACK..HZ..EQ S
TREND=$33 ;POINTER AUF UNTERGRENZE DE
S STRINGSTACKS..HD..EQ VARPTR=$47 ;PO
INTER AUF AKTUELLE VARIABLE..HN.;.FHX.;.
.H..;***** PROGRAMMINTERN *****.$I...EQ
NUMBER=$F7 ;ZAEHLER FUER GELESENE DIR
ECTORY-ZEILEN.ZI...EQ LINELENGTH=$F8
;LAENGE DER GELESENEN ZEILE..I ..EQ DIND
IZ =$F9 ;POINTER FUER INDIR.-INDIZ.AD
RESSIERUNG..I...EQ EXTSTRING=$FB.EI...EQ
STRENDKOP=$FE..I..;********************
************..IH.;..IR.;..I..;..J..;****
***************./J..;* INITIALISIERUNG *
.HJ..;*******************.NJ..;..J..;***
** EINGABE AUF LOGISCHE DATEI LEGEN ****
*..J..DIRREAD JSRCHKKOM..J". JSRGETBYT..
J,. JSRCHKIN..J6.;.UJ@.;***** EXT$ HOLEN
*****..JJ. JSRCHKKOM..JT. JSRGETPOS..J^
. LDY#2..KH.HOLEXT LDA(VARPTR),Y.+KR. ST
AEXTSTRING,Y.4K|. DEY.CK.. BPLHOLEXT.IK.
.;.[K.. LDYEXTSTRING.KK..HOLEXT1 DEY.ZK.
. BMIENDEXT..K.. LDA(EXTSTRING+1),Y..KB.
STANAME,Y..KL. JMPHOLEXT1..KV.;..K..;**
*** ZEIGER AUF STRINGARRAY HOLEN *****..
K..ENDEXT JSRCHKKOM..L.. JSRGETPOS..L..;
..L.. LDA#$11.+L.. JSRSTRRES.1L..;.7L..;
.=L..;.KL..;***** ZEILENZAEHLER INITIALI
SIEREN *****.XL&. LDA#$FF..L0. STANUMBER
..L:.;..LD.;..LN.;.BLX.;***** PROGRAMMLI
NK UEBERLESEN *****..LB. LDY#6;2 'ZUSATZ
BYTES' STARTADRESSE DES 'PROGRAMMS'..ML.
BNESTART1./MV.;************************
********.5M..;.;M..;.AM..;.ZM..;********
***********.SM..;* DIRECTORY LESEN *..M.
.;*******************..M..;..MF.;***** Z
EILENLINK UEBERLESEN *****.IMP.START LDY
#4..MZ.START1 JSRBASIN;DIE ERSTEN 4 BYTE
..N.. DEY;JEDER ZEILE UEBERLESEN..N.. BN
ESTART1.$N..;.*N..;.0N..;.AN..;***** BIS
ZU ANFUEHRUNGSZEICHEN LESEN *****.SN .I
NIT JSRBASIN..N*. TAY;ENDE, WENN STATUS<
>0. N4. JSRREADST..N>. BEQNOEND..NH. JMP
ENDE.LNR.NOEND CPY#34.YN\. BNEINIT..NF.;
..NP.;..NZ.;..O..;***** EINE ZEILE LESEN
*****..O.. LDY#0.KO..DINPUT JSRBASIN;BIS
ZU ANFUERHUNGSZEICHEN LESEN.WO.. CMP#34
.GO.. BEQLIESEND.ZO$. STA(STREND),Y..O..
INY..O8. BNEDINPUT..OB.;.COL.LIESEND ST
YLINELENGTH;LAENGE SPEICHERN.IOV.;.OO`.;
..OJ.;***** EXT$ BERUECKSICHTIGEN *****.
.PT. LDANUMBER..PV. CMP#$FF..PX. BNECEXT
..PZ. INCNUMBER.=P|. BEQWEITER.CP}.;.SP~
.CEXT BEQEXT.EP.. LDXEXTSTRING.QP.. BEQE
XT..P.. DEX;ECHTE LAENGE DER ERWEITERUNG
!.EP.. DEY;ECHTE LAENGE DES GELESENEN ST
RINGS!.KP..;..P..CMPEXT LDA(STREND),Y..P
D. CMPNAME,X..QN. BNEWEITER..Q.. DEY..Q(
. DEX.#Q2. BPLCMPEXT.)Q<.;.<QF. LDALINEL
ENGTH.EQP. SEC.WQZ. SBCEXTSTRING.JQD. ST
ALINELENGTH.PQN.;.VQX.;.|Q..;..Q..;*****
STRING ANLEGEN *****..Q..;.GQ .;*ECHTEN
STRINGANFANG ERMITTELN*..Q..EXT LDASTRE
ND+1..R.. STADINDIZ+1;ECHTER STRINGANFAN
G=..R.. LDA#$11;STRINGANFANG +.=RH. SEC;
DIFFERENZ ZWISCHEN $FF.LRR. SBCLINELENGT
H;UND GELESENER ZEICHENANZAHL.UR.. CLC..
R.. ADCSTREND..R.. STADINDIZ..R.. BCCNOI
NC..R.. INCDINDIZ+1..R..;..R..;..R".;*ST
RING AN ECHTE STARTPOSITION VERSCHIEBEN*
..S,.NOINC LDYLINELENGTH.%S6. DEY;STRING
VON AKTUELLER.OS@.DCOPY LDA(STREND),Y;A
DRESSE ZU ECHTEM.{SJ. STA(DINDIZ),Y;STRI
NGANFANG VERSCHIEBEN..ST. DEY..S^. CPY#$
FF..SH. BNEDCOPY..SR.;..S|.;.SS..;*STRIN
GDESCRIPTOREN AKTUALISIEREN*..S.. INY..S
.. LDALINELENGTH..T.. STA(VARPTR),Y..T..
INY..T.. LDADINDIZ.-TB. STA(VARPTR),Y.<
TL. STASTREND.ETV. INY.VT.. LDADINDIZ+1.
IT.. STA(VARPTR),Y.ZT.. STASTREND+1..T..
;..T..;..T..;..T..;***** NAECHSTE ZEILE
BEHANDELN *****.CT!. LDA#$11.RT". JSRSTR
RES.XT#.;..T&.;..U0.;*'VARPTR' AUF NAECH
STEN STRING DES ARRAYS*..U:. LDAVARPTR.<
UD. CLC;ADRESSE DES NAECHSTEN.XUN. ADC#3
;STRINGPOINTERS =.|UX. STAVARPTR;AKTUELL
E ADRESSE + 3..UB. BCCSPRUNG..UL. INCVAR
PTR+1..UV.SPRUNG INCNUMBER..U..;..U..;.Y
U..;*BIS ZEILENENDE LESEN*..U..WEITER JS
RBASIN..V.. CMP#0;$00 KENNZEICHNET DAS.7
V.. BNEWEITER;ENDE EINER DIRECTORY-ZEILE
.EV.. JMPSTART.KVF.;********************
************.QVP.;.WVZ.;.}V..;..V..;****
****************..V..;* EINLESEN BEENDET
*.KV..;********************.QV..;..V..E
NDE CLC..V.. LDASTREND..V.. ADC#$11..W..
STASTREND..W.. BCCENDE1.(W.. INCSTREND+
1..W..;.MW..;*ZEILENANZAHL UEBERGEBEN*.A
W .ENDE1 JSRCHKKOM.PW*. JSRGETPOS.VW>.;.
.WH. LDA#0..WR. TAY..W\. STA(VARPTR),Y..
WF. INY..WP. LDANUMBER.HWZ. STA(VARPTR),
Y.NW..;.TW..;..X.. JMPCLRCH;KANAELE SCHL
IESSEN + BASIC !!!.6X..NAME .BY0,1,2,3,4
,5,6,7,8,9,10,11,12,13,14,15,16.<X..;.BX
..;.HXJ.;.NXT.;.TX..;.FX..;************.
XX..;* SATZINFO *..X..;************..X..
;..X..;..X...EQ PLOT = $FFF0.BX$..EQ CHK
KOM = $AEFD.YX...EQ GETBYT = $B79E..X8..
EQ FRMNUM = $AD8A..YB..EQ ADRFOR = $B7F7
..YL..EQ INTOUT = $BDCD.3YV..EQ SIHELP =
$FB.9Y`.;.?YJ.;.EYT.;.\Y~.SATZINFO JSRS
ETCRS.IY.. LDA#"(".WY.. JSRBSOUT..Y.. JS
RAUSGABE..Y..;..Y..;. Y.. LDA#" "..YD. J
SRBSOUT..YN. LDA#"V".IYX. JSRBSOUT.VY..
LDA#"O"..Y.. JSRBSOUT..Y.. LDA#"N"..Y..
JSRBSOUT..Z.. LDA#" "..Z.. JSRBSOUT.*Z..
JSRAUSGABE.7Z(. LDA#")".EZ2. JSRBSOUT.K
Z<.;.TZF. SEC.AZP. JSRPLOT.JZZ. TYA.SZD.
SEC..ZN. SBCSIHELP..ZX. TAY..Z.. LDA#"
"..Z..SILOOP CPY#15..Z.. BCSSIEND.FZ . J
SRBSOUT.OZ.. INY..Z.. BNESILOOP..Z..SIEN
D RTS..ZH.;..ZR.;..[..AUSGABE JSRCHKKOM.
.[.. JSRFRMNUM.,[.. JSRADRFOR.=[.. STYSI
HELP+2.N[.. LDXSIHELP+2.][.. JMPINTOUT.C
[..;.I[".;.~[,.SETCRS JSRCHKKOM..[6. JSR
GETBYT..[@. STXSIHELP..[J. JSRCHKKOM..[T
. JSRGETBYT.K[^. STXSIHELP+1.Z[H. LDYSIH
ELP..[R. CLC..[|. JMPPLOT..[..;..[..;..\
..;..\..;..\..;.!\..;*************.4\B.;
* BLAETTERN *.G\L.;*************.M\V.;.S
\..;.J\...EQ CHKKOM = $AEFD..\...EQ GETB
YT = $B79E..\...EQ GETPOS = $B08B..\. .E
Q ADRBYT = $B7EB.C\. .EQ ZAHLPTR=$47.V\.
.EQ ZMAX = $14..\& .EQ VEKTOR = $FB..\0
.EQ ZAHL = $FD..]: .EQ BHELP= $FF..]D ;
..]N ;.5]X BLAETTERN JSRCHKKOM.D]B JSRA
DRBYT.M]L DEX.[]V STXBHELP.J]. JSRCHK
KOM.Y]. JSRGETPOS..]. LDY#0..]. LDA(Z
AHLPTR),Y..]. STAZAHL+1..]. INY.D]. L
DA(ZAHLPTR),Y.Q]F STAZAHL.W]P ;..]Z LD
ABHELP..]. ASL..]. TAX..^. LDABTAB,X.
.^.! STAVEKTOR.&^.! LDABTAB+1,X.7^.! STA
VEKTOR+1.H^ ! JMP(VEKTOR).N^*!;.`^4!PLUS
10 LDA#10.L^>! .BY$2C.|^H!PLUS1 LDA#1..^
R! CLC..^\! ADCZAHL..^F! STAZAHL..^P! BC
CBCMP..^Z! INCZAHL+1.H^.! BNEBCMP.N^.!;.
.^.!MINUS10 LDAZAHL..^.! SEC..^.! SBC#10
.._.! JMPMINUS.._.!MINUS1 LDAZAHL.!_J! S
EC.,_T! SBC#1.>_.!MINUS STAZAHL.K_.! BCS
BCMP.Z_.! DECZAHL+1.`_.!;.S_."BCMP LDAZA
HL+1.._." BMISET1.._." BNEBCMP1.._$" LDA
ZAHL.._." BEQSET1.._8";.B_B"BCMP1 LDAZAH
L+1.Q_L" CMPZMAX+1.._V" BCCBEND.._`" BEQ
NEXTCMP.._J" BCSSETZMAX..`T"NEXTCMP LDAZ
AHL..`~" CMPZMAX./`." BCSSETZMAX.5`.";.D
`."BEND LDY#0.S`." LDAZAHL+1.G`." STA(ZA
HLPTR),Y.P`." INY.}`D" LDAZAHL..`N" STA(
ZAHLPTR),Y..`X" RTS. `.";..`."SET1 LDY#1
..`." STYZAHL.E`.# DEY.T`.# STYZAHL+1..`
.# BEQBEND..`.#;..`(#SETZMAX LDAZMAX..A2
# STAZAHL..A<# LDAZMAX+1.&AF# STAZAHL+1.
3AP# JMPBEND.9AZ#;.KAD#BTAB .WOPLUS1.ZAN
# .WOMINUS1.GAX# .WOSET1.WA.# .WOSETZMAX
..A.# .WOPLUS10..A.# .WOMINUS10..A #;..A
.#;..A.#;..A.#;..AH#;.OAR#;*************
********..A.#;* SEQ.DATEI WANDELN *..B.#
;*********************..B.#;."B.#.EQ CHK
KOM = $AEFD.9B.$.EQ GETBYT = $B79E.UB.$.
EQ DTABELLE = $0700.KB.$.EQ BSOUT = $
FFD2..B"$.EQ GETIN = $FFE4..B,$.EQ CHKIN
= $FFC6..B6$.EQ CHKOUT = $FFC9.DB@$.EQ
CLRCH = $FFCC.YBJ$.EQ STATUS = $90..BT$;
..B^$.EQ FLAG = $02..CH$.EQ INFILE = $FB
..CR$.EQ OUTFILE = $FC.4C|$.EQ STARTPOS
= $FD.:C.$;.@C.$;._C.$;* EIN-/AUSGABE UM
LENKEN *.UC.$CONVERT JSRCHKKOM..C.$ JSRG
ETBYT..C.$ STXINFILE..CB$ JSRCHKKOM..CL$
JSRGETBYT.ACV$ STXOUTFILE.GC.$;..C.$;*
READ/WRITE FILE *..C.$READBYTE JSRCLRCH.
.D.$ LDXINFILE..D.% JSRCHKIN.!D.% JSRGET
IN.'D.%;.0D&% TAX.?D0% LDASTATUS.HD:% PH
A.UDD% LDAFLAG.DDN% BNEIMPORT.SDX%EXPORT
DEX..DB% LDADTABELLE,X..DL% JMPIMPEXP..
DV%;..D.%IMPORT TXA..D.% DEX..D.% DEX.MD
.% STXSTARTPOS..D.%IMPLOOP CMPDTABELLE,X
..D.% BEQENDLOOP..E.% DEX..EF% CPXSTARTP
OS.!EP% BNEIMPLOOP.'EZ%;.7E.%ENDLOOP INX
.@E.% TXA.FE.%;.UE.&IMPEXP PHA.CE.& JSRC
LRCH.SE.& LDXOUTFILE..E & JSRCHKOUT..E*&
PLA..E4& JSRBSOUT..E>& PLA..EH& BNEREAD
END.AER& LDASTATUS.RE\& BEQREADBYTE.XEF&
;..EP&READEND STASTATUS..EZ& JMPCLRCH..F
.&.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL