QUICK.SRC
FILE INFORMATION
FILENAME(S): QUICK.SRC
FILE TYPE(S): PRG
FILE SIZE: 14.5K
FIRST SEEN: 2025-11-02 22:11:12
APPEARS ON: 1 disk(s)
FILE HASH
8dd01cf76cb9406b755b5f87328d4c2c068a2915d9c77cd22c9ce3189abc364e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90617 | QUICK.SRC | PRG | Treasure Chest - ToGuMi | 23 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 25 00 10 D7 49 00 00 01 20 3B 2A 2A 2A 20 51 55 |%...I... ;*** QU| 00000010: 49 43 4B 53 4F 52 54 20 2A 2A AA 10 01 20 3B 2A |ICKSORT **... ;*| 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AA | .| 00000030: 20 01 20 3B 2A 20 20 28 43 29 20 31 39 38 35 20 | . ;* (C) 1985 | 00000040: 42 59 20 20 AA 30 01 20 3B 2A 20 20 53 41 49 44 |BY .0. ;* SAID| 00000050: 20 42 41 4C 4F 55 49 20 20 AA 40 01 20 3B 2A 20 | BALOUI .@. ;* | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AA 50 | .P| 00000070: 01 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ;*************| 00000080: 2A 2A 2A AA 60 01 20 BB 70 01 20 BB 80 01 20 3B |***.`. .p. ... ;| 00000090: 53 4F 52 54 49 45 52 55 4E 47 20 42 45 4C 49 45 |SORTIERUNG BELIE| 000000A0: 42 49 47 45 52 20 41 52 52 41 59 54 59 50 45 CE |BIGER ARRAYTYPE.| 000000B0: 90 01 20 3B 4D 49 54 53 4F 52 54 49 45 52 55 4E |.. ;MITSORTIERUN| 000000C0: 47 20 45 49 4E 45 53 20 42 45 4C 49 45 42 49 47 |G EINES BELIEBIG| 000000D0: 45 CE 00 02 20 3B 41 52 52 41 59 D3 10 02 20 3B |E... ;ARRAY... ;| 000000E0: 53 4F 52 54 49 45 52 55 4E 47 20 4B 41 4E 4E 20 |SORTIERUNG KANN | 000000F0: 41 55 46 20 45 49 4E 45 4E 20 42 45 4C AE 20 02 |AUF EINEN BEL. .| 00000100: 20 3B 54 45 49 4C 20 44 45 53 20 41 52 52 41 59 | ;TEIL DES ARRAY| 00000110: 53 20 42 45 53 43 48 52 41 45 4E 4B D4 30 02 20 |S BESCHRAENK.0. | 00000120: 3B 57 45 52 44 45 CE 40 02 20 3B 53 54 52 49 4E |;WERDE.@. ;STRIN| 00000130: 47 41 52 52 41 59 53 20 4B 4F 45 4E 4E 45 4E 20 |GARRAYS KOENNEN | 00000140: 4E 41 43 48 20 45 49 4E 45 CD 50 02 20 3B 42 45 |NACH EINE.P. ;BE| 00000150: 4C 2E 20 53 54 52 49 4E 47 54 45 49 4C 20 53 4F |L. STRINGTEIL SO| 00000160: 52 54 49 45 52 54 20 57 45 52 44 45 4E BB 60 02 |RTIERT WERDEN.`.| 00000170: 20 3B 44 49 45 20 54 45 49 4C 45 20 4D 55 45 53 | ;DIE TEILE MUES| 00000180: 53 45 4E 20 48 49 45 52 5A 55 20 4D 49 D4 70 02 |SEN HIERZU MI.p.| 00000190: 20 3B 45 49 4E 45 4D 20 42 45 4C 2E 20 5A 45 49 | ;EINEM BEL. ZEI| 000001A0: 43 48 45 4E 20 56 4F 4E 45 49 4E 41 4E 44 45 D2 |CHEN VONEINANDE.| 000001B0: 80 02 20 3B 47 45 54 52 45 4E 4E 54 20 57 45 52 |.. ;GETRENNT WER| 000001C0: 44 45 CE 90 02 20 BB 00 03 20 BB 10 03 20 3B 41 |DE... ... ... ;A| 000001D0: 55 46 52 55 46 BA 20 03 20 3B 2D 2D 2D 2D 2D 2D |UFRUF. . ;------| 000001E0: AD 30 03 20 3B 53 59 53 20 58 2C 41 53 43 49 49 |.0. ;SYS X,ASCII| 000001F0: 2D 43 4F 44 45 20 54 52 45 4E 4E 5A 45 49 43 48 |-CODE TRENNZEICH| 00000200: 45 4E AC 40 03 20 3B 20 20 20 20 20 20 46 45 4C |EN.@. ; FEL| 00000210: 44 4E 55 4D 4D 45 52 AC 50 03 20 3B 20 20 20 20 |DNUMMER.P. ; | 00000220: 20 20 53 4F 52 54 41 52 52 41 59 28 58 29 AC 60 | SORTARRAY(X).`| 00000230: 03 20 3B 20 20 20 20 20 20 53 4F 52 54 41 52 52 |. ; SORTARR| 00000240: 41 59 28 59 29 AC 70 03 20 3B 20 20 20 20 20 20 |AY(Y).p. ; | 00000250: 28 4D 49 54 53 4F 52 54 41 52 52 41 59 28 58 29 |(MITSORTARRAY(X)| 00000260: A9 80 03 20 3B 20 20 20 20 20 20 28 4D 49 54 53 |... ; (MITS| 00000270: 4F 52 54 41 52 52 41 59 28 59 29 A9 90 03 20 BB |ORTARRAY(Y)... .| 00000280: 00 04 20 3B 53 59 53 20 58 2C 39 34 2C 32 2C 41 |.. ;SYS X,94,2,A| 00000290: 24 28 30 29 2C 41 24 28 35 32 29 2C 50 25 28 30 |$(0),A$(52),P%(0| 000002A0: 29 AC 10 04 20 3B 20 20 20 20 20 20 20 20 20 20 |)... ; | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 25 | P%| 000002C0: 28 35 32 A9 20 04 20 BB 30 04 20 BB 40 04 20 3B |(52. . .0. .@. ;| 000002D0: 54 52 45 4E 4E 5A 45 49 43 48 45 4E 3A 20 54 52 |TRENNZEICHEN: TR| 000002E0: 45 4E 4E 55 4E 47 20 4D 45 48 52 45 52 45 D2 50 |ENNUNG MEHRERE.P| 000002F0: 04 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |. ; | 00000300: 20 46 45 4C 44 45 52 20 49 4E 20 45 49 4E 45 CD | FELDER IN EINE.| 00000310: 60 04 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |`. ; | 00000320: 20 20 53 54 52 49 4E 47 20 4D 49 54 20 42 45 4C | STRING MIT BEL| 00000330: 2E 5A 45 C9 70 04 20 BB 80 04 20 3B 46 45 4C 44 |.ZE.p. ... ;FELD| 00000340: 4E 55 4D 4D 45 52 3A 20 53 4F 52 54 49 45 52 45 |NUMMER: SORTIERE| 00000350: 4E 20 41 42 20 41 4E 47 45 47 AE 90 04 20 3B 20 |N AB ANGEG... ; | 00000360: 20 20 20 20 20 20 20 20 20 20 20 53 54 52 49 4E | STRIN| 00000370: 47 54 45 49 4C 46 45 4C C4 00 05 20 3B 20 20 20 |GTEILFEL... ; | 00000380: 20 20 20 20 20 20 20 20 20 30 3D 47 41 4E 5A 45 | 0=GANZE| 00000390: 4E 20 53 54 52 2E 53 4F 52 54 AE 10 05 20 BB 20 |N STR.SORT... . | 000003A0: 05 20 3B 53 4F 52 54 41 52 52 41 59 28 58 29 3A |. ;SORTARRAY(X):| 000003B0: 20 5A 55 20 53 4F 52 54 49 45 52 45 4E 44 45 D3 | ZU SORTIERENDE.| 000003C0: 30 05 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |0. ; | 000003D0: 20 20 41 52 52 41 59 20 28 53 4F 52 54 49 45 52 | ARRAY (SORTIER| 000003E0: 55 4E C7 40 05 20 3B 20 20 20 20 20 20 20 20 20 |UN.@. ; | 000003F0: 20 20 20 20 20 41 42 20 45 4C 45 4D 45 4E 54 20 | AB ELEMENT | 00000400: 58 29 BB 50 05 20 3B 20 20 20 20 20 20 20 20 20 |X).P. ; | 00000410: 20 20 20 20 20 42 45 4C 49 45 42 49 47 45 52 20 | BELIEBIGER | 00000420: 41 52 52 41 59 AD 60 05 20 3B 20 20 20 20 20 20 |ARRAY.`. ; | 00000430: 20 20 20 20 20 20 20 20 54 59 50 20 4B 41 4E 4E | TYP KANN| 00000440: 20 53 4F 52 54 49 45 52 D4 70 05 20 3B 20 20 20 | SORTIER.p. ; | 00000450: 20 20 20 20 20 20 20 20 20 20 20 57 45 52 44 45 | WERDE| 00000460: CE 80 05 20 BB 90 05 20 3B 53 4F 52 54 41 52 52 |... ... ;SORTARR| 00000470: 41 59 28 59 29 3A 20 5A 55 20 53 4F 52 54 49 45 |AY(Y): ZU SORTIE| 00000480: 52 45 4E 44 45 D3 00 06 20 3B 20 20 20 20 20 20 |RENDE... ; | 00000490: 20 20 20 20 20 20 20 20 41 52 52 41 59 20 28 53 | ARRAY (S| 000004A0: 4F 52 54 49 45 52 55 4E C7 10 06 20 3B 20 20 20 |ORTIERUN... ; | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 42 49 53 20 45 | BIS E| 000004C0: 4C 45 4D 45 4E 54 20 59 A9 20 06 20 BB 30 06 20 |LEMENT Y. . .0. | 000004D0: 3B 4D 49 54 53 4F 52 54 41 52 52 41 59 28 58 29 |;MITSORTARRAY(X)| 000004E0: 3A 20 42 45 4C 49 45 42 49 47 45 D3 40 06 20 3B |: BELIEBIGE.@. ;| 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000500: 20 4D 49 54 5A 55 53 4F 52 54 49 45 52 AE 50 06 | MITZUSORTIER.P.| 00000510: 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ; | 00000520: 20 20 20 41 52 52 41 D9 60 06 20 BB 70 06 20 3B | ARRA.`. .p. ;| 00000530: 4D 49 54 53 4F 52 54 41 52 52 41 59 28 59 29 3A |MITSORTARRAY(Y):| 00000540: 20 42 45 4C 49 45 42 49 47 45 D3 80 06 20 3B 20 | BELIEBIGE... ; | 00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000560: 4D 49 54 5A 55 53 4F 52 54 49 45 52 AE 90 06 20 |MITZUSORTIER... | 00000570: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000580: 20 20 41 52 52 41 D9 00 07 20 BB 10 07 20 BB 20 | ARRA... ... . | 00000590: 07 20 3B 49 4D 20 27 4D 49 54 53 4F 52 54 41 52 |. ;IM 'MITSORTAR| 000005A0: 52 41 59 27 20 4D 55 45 53 53 45 CE 30 07 20 3B |RAY' MUESSE.0. ;| 000005B0: 49 44 45 4E 54 49 53 43 48 45 20 58 2F 59 2D 57 |IDENTISCHE X/Y-W| 000005C0: 45 52 54 45 20 41 4E 47 45 47 45 42 45 CE 40 07 |ERTE ANGEGEBE.@.| 000005D0: 20 3B 57 45 52 44 45 4E 20 57 49 45 20 49 4D 20 | ;WERDEN WIE IM | 000005E0: 53 4F 52 54 41 52 52 41 59 A1 50 07 20 BB 60 07 |SORTARRAY.P. .`.| 000005F0: 20 BB 70 07 20 BB 80 07 43 48 52 47 4F 54 20 2E | .p. ...CHRGOT .| 00000600: 44 45 20 24 37 B9 90 07 43 48 4B 4B 4F 4D 20 2E |DE $7...CHKKOM .| 00000610: 44 45 20 24 41 45 46 C4 00 08 47 45 54 42 59 54 |DE $AEF...GETBYT| 00000620: 20 2E 44 45 20 24 42 37 39 C5 10 08 47 45 54 50 | .DE $B79...GETP| 00000630: 4F 53 20 2E 44 45 20 24 42 30 38 C2 20 08 4B 4F |OS .DE $B08. .KO| 00000640: 4E 49 4E 41 52 47 20 2E 44 45 20 24 42 41 38 43 |NINARG .DE $BA8C| 00000650: 20 3B 4B 4F 4E 53 54 41 4E 54 45 3D 3E 41 52 C7 | ;KONSTANTE=>AR.| 00000660: 30 08 46 41 43 4B 4F 4E 53 54 20 2E 44 45 20 24 |0.FACKONST .DE $| 00000670: 42 43 35 42 20 3B 56 45 52 47 4C 2E 3A 46 41 43 |BC5B ;VERGL.:FAC| 00000680: 2F 4B 4F AE 40 08 20 BB 50 08 53 54 52 54 59 50 |/KO.@. .P.STRTYP| 00000690: 20 2E 44 45 20 24 30 C4 60 08 4E 55 4D 54 59 50 | .DE $0.`.NUMTYP| 000006A0: 20 2E 44 45 20 24 30 C5 70 08 46 41 43 20 2E 44 | .DE $0.p.FAC .D| 000006B0: 45 20 24 36 B1 80 08 41 52 47 20 2E 44 45 20 24 |E $6...ARG .DE $| 000006C0: 36 39 20 20 20 20 3B 46 4C 49 45 53 53 4B 4F 4D |69 ;FLIESSKOM| 000006D0: 4D 41 41 4B 4B 55 20 23 B2 90 08 44 45 53 43 52 |MAAKKU #...DESCR| 000006E0: 31 20 2E 44 45 20 46 41 43 20 3B 44 45 53 43 52 |1 .DE FAC ;DESCR| 000006F0: 49 50 54 4F 52 45 4E 20 56 4F 4E 20 53 54 52 B1 |IPTOREN VON STR.| 00000700: 00 09 44 45 53 43 52 32 20 2E 44 45 20 41 52 47 |..DESCR2 .DE ARG| 00000710: 20 3B 44 45 53 43 52 49 50 54 4F 52 45 4E 20 56 | ;DESCRIPTOREN V| 00000720: 4F 4E 20 53 54 52 B2 10 09 20 BB 20 09 20 BB 30 |ON STR... . . .0| 00000730: 09 54 52 45 4E 4E 20 2E 44 45 20 24 41 35 20 20 |.TRENN .DE $A5 | 00000740: 20 20 20 20 3B 54 52 45 4E 4E 5A 45 49 43 48 45 | ;TRENNZEICHE| 00000750: CE 40 09 46 45 4C 44 20 2E 44 45 20 54 52 45 4E |.@.FELD .DE TREN| 00000760: 4E 2B 31 20 20 20 3B 53 4F 52 54 53 54 52 49 4E |N+1 ;SORTSTRIN| 00000770: 47 54 45 49 CC 50 09 48 45 4C 50 20 2E 44 45 20 |GTEI.P.HELP .DE | 00000780: 46 45 4C 44 2B B1 60 09 20 BB 70 09 41 52 52 41 |FELD+.`. .p.ARRA| 00000790: 59 20 2E 44 45 20 48 45 4C 50 2B 31 20 3B 5A 45 |Y .DE HELP+1 ;ZE| 000007A0: 49 47 45 52 20 41 55 46 20 41 4E 5A 41 48 4C 20 |IGER AUF ANZAHL | 000007B0: 44 45 52 20 41 52 52 41 59 45 4C 45 4D 45 4E 54 |DER ARRAYELEMENT| 000007C0: C5 80 09 56 47 20 2E 44 45 20 41 52 52 41 59 2B |...VG .DE ARRAY+| 000007D0: 32 20 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 56 |2 ;POINTER AUF V| 000007E0: 45 52 47 4C 45 49 43 48 53 53 54 52 49 4E 47 20 |ERGLEICHSSTRING | 000007F0: 28 3D 32 2E 56 45 52 47 4C 45 49 43 48 53 45 4C |(=2.VERGLEICHSEL| 00000800: 45 4D 45 4E 54 A9 90 09 53 54 52 20 2E 44 45 20 |EMENT...STR .DE | 00000810: 56 47 2B 32 20 20 20 3B 50 4F 49 4E 54 45 52 20 |VG+2 ;POINTER | 00000820: 41 55 46 20 31 2E 56 45 52 47 4C 45 49 43 48 53 |AUF 1.VERGLEICHS| 00000830: 53 54 52 49 4E C7 00 10 58 20 2E 44 45 20 53 54 |STRIN...X .DE ST| 00000840: 52 2B B3 10 10 59 20 2E 44 45 20 58 2B B2 20 10 |R+...Y .DE X+. .| 00000850: 54 59 50 20 2E 44 45 20 59 2B 32 20 3B 30 3D 53 |TYP .DE Y+2 ;0=S| 00000860: 54 52 49 4E 47 2F 31 32 37 3D 49 4E 54 2F 31 32 |TRING/127=INT/12| 00000870: 38 3D 52 45 41 CC 30 10 5A 41 48 4C 20 2E 44 45 |8=REA.0.ZAHL .DE| 00000880: 20 54 59 50 2B 31 20 3B 53 43 48 4C 45 49 46 45 | TYP+1 ;SCHLEIFE| 00000890: 4E 5A 41 45 48 4C 45 52 20 46 55 45 52 20 56 45 |NZAEHLER FUER VE| 000008A0: 52 53 43 48 2E 41 52 52 41 59 54 59 50 45 CE 40 |RSCH.ARRAYTYPE.@| 000008B0: 10 4F 46 46 53 45 54 20 2E 44 45 20 5A 41 48 4C |.OFFSET .DE ZAHL| 000008C0: 2B 31 20 3B 4F 46 46 53 45 54 20 46 55 45 52 20 |+1 ;OFFSET FUER | 000008D0: 56 45 52 53 43 48 2E 41 52 52 41 59 54 59 50 45 |VERSCH.ARRAYTYPE| 000008E0: 4E 20 46 55 45 52 20 50 4F 49 4E 54 45 52 20 53 |N FUER POINTER S| 000008F0: 45 54 5A 45 CE 50 10 4B 4F 52 52 20 2E 44 45 20 |ETZE.P.KORR .DE | 00000900: 4F 46 46 53 45 54 2B 31 20 3B 4B 4F 52 52 45 4B |OFFSET+1 ;KORREK| 00000910: 54 55 52 46 41 4B 54 4F 52 20 46 55 45 52 20 56 |TURFAKTOR FUER V| 00000920: 45 52 53 43 48 2E 41 52 52 41 59 54 59 50 45 4E |ERSCH.ARRAYTYPEN| 00000930: 20 46 55 45 52 20 56 47 2D 45 52 4D 49 54 54 4C | FUER VG-ERMITTL| 00000940: AE 60 10 20 BB 70 10 58 4B 4F 50 49 45 20 2E 44 |.`. .p.XKOPIE .D| 00000950: 45 20 4B 4F 52 52 2B B1 80 10 59 4B 4F 50 49 45 |E KORR+...YKOPIE| 00000960: 20 2E 44 45 20 58 4B 4F 50 49 45 2B B2 90 10 54 | .DE XKOPIE+...T| 00000970: 59 50 32 20 2E 44 45 20 59 4B 4F 50 49 45 2B B2 |YP2 .DE YKOPIE+.| 00000980: 00 11 5A 41 48 4C 32 20 2E 44 45 20 54 59 50 32 |..ZAHL2 .DE TYP2| 00000990: 2B B1 10 11 4F 46 46 53 45 54 32 20 2E 44 45 20 |+...OFFSET2 .DE | 000009A0: 5A 41 48 4C 32 2B B1 20 11 20 BB 30 11 5A 20 2E |ZAHL2+. . .0.Z .| 000009B0: 44 45 20 4F 46 46 53 45 54 32 2B 31 20 3B 45 42 |DE OFFSET2+1 ;EB| 000009C0: 45 4E 45 4E 5A 41 45 48 4C 45 D2 40 11 4D 49 54 |ENENZAEHLE.@.MIT| 000009D0: 46 4C 41 47 20 2E 44 45 20 5A 2B 31 20 3B 46 4C |FLAG .DE Z+1 ;FL| 000009E0: 41 47 20 46 55 45 52 20 4D 49 54 5A 55 53 4F 52 |AG FUER MITZUSOR| 000009F0: 54 49 45 52 45 4E 44 45 53 20 46 45 4C C4 50 11 |TIERENDES FEL.P.| 00000A00: 20 BB 60 11 4C 47 20 2E 44 45 20 24 30 34 30 30 | .`.LG .DE $0400| 00000A10: 20 20 20 3B 27 53 54 41 43 4B 27 20 46 55 45 52 | ;'STACK' FUER| 00000A20: 20 4C 49 4E 4B 45 20 47 52 45 4E 5A 45 CE 70 11 | LINKE GRENZE.p.| 00000A30: 52 47 20 2E 44 45 20 24 30 34 38 30 20 20 20 3B |RG .DE $0480 ;| 00000A40: 27 53 54 41 43 4B 27 20 46 55 45 52 20 52 45 43 |'STACK' FUER REC| 00000A50: 48 54 45 20 47 52 45 4E 5A 45 CE 80 11 4C 47 32 |HTE GRENZE...LG2| 00000A60: 20 2E 44 45 20 24 30 35 30 30 20 20 3B 27 53 54 | .DE $0500 ;'ST| 00000A70: 41 43 4B 27 20 46 55 45 52 20 4C 49 4E 4B 45 20 |ACK' FUER LINKE | 00000A80: 47 52 45 4E 5A 45 20 56 4F 4E 20 4D 49 54 53 4F |GRENZE VON MITSO| 00000A90: 52 54 41 52 52 41 D9 90 11 52 47 32 20 2E 44 45 |RTARRA...RG2 .DE| 00000AA0: 20 24 30 35 38 30 20 20 3B 27 53 54 41 43 4B 27 | $0580 ;'STACK'| 00000AB0: 20 46 55 45 52 20 52 45 43 48 54 45 20 47 52 45 | FUER RECHTE GRE| 00000AC0: 4E 5A 45 20 56 4F 4E 20 4D 49 54 53 4F 52 54 41 |NZE VON MITSORTA| 00000AD0: 52 52 41 D9 00 12 20 BB 10 12 20 BB 20 12 20 2E |RRA... ... . . .| 00000AE0: 42 41 20 24 43 43 31 B0 30 12 20 2E 4F D3 40 12 |BA $CC1.0. .O.@.| 00000AF0: 20 BB 50 12 20 BB 60 12 20 3B 2A 2A 2A 2A 2A 2A | .P. .`. ;******| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B10: 2A 2A 2A 2A 2A 2A 2A 2A AA 70 12 20 3B 2A 2A 2A |********.p. ;***| 00000B20: 2A 2A 2A 2A 2A 49 4E 49 54 49 41 4C 49 53 49 45 |*****INITIALISIE| 00000B30: 52 55 4E 47 2A 2A 2A 2A 2A 2A 2A AA 80 12 20 3B |RUNG*******... ;| 00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 90 |**************..| 00000B60: 12 20 BB 00 13 20 BB 10 13 20 3B 2A 2A 2A 49 4E |. ... ... ;***IN| 00000B70: 49 54 20 46 55 45 52 20 53 4F 52 54 41 52 52 41 |IT FUER SORTARRA| 00000B80: 59 2A 2A AA 20 13 20 4A 53 52 20 43 48 4B 4B 4F |Y**. . JSR CHKKO| 00000B90: 4D 20 20 20 20 20 20 20 3B 54 52 45 4E 4E 5A 45 |M ;TRENNZE| 00000BA0: 49 43 48 45 CE 30 13 20 4A 53 52 20 47 45 54 42 |ICHE.0. JSR GETB| 00000BB0: 59 54 20 20 20 20 20 20 20 3B 55 2E 4E 52 2E 44 |YT ;U.NR.D| 00000BC0: 45 53 20 54 45 49 4C AD 40 13 20 53 54 58 20 54 |ES TEIL.@. STX T| 00000BD0: 52 45 4E 4E 20 20 20 20 20 20 20 20 3B 46 45 4C |RENN ;FEL| 00000BE0: 44 45 53 20 28 53 4F 52 54 AE 50 13 20 4A 53 52 |DES (SORT.P. JSR| 00000BF0: 20 43 48 4B 4B 4F 4D 20 20 20 20 20 20 20 3B 56 | CHKKOM ;V| 00000C00: 4F 4E 20 53 54 52 49 4E 47 53 A9 60 13 20 4A 53 |ON STRINGS.`. JS| 00000C10: 52 20 47 45 54 42 59 54 20 20 20 20 20 20 20 3B |R GETBYT ;| 00000C20: 48 4F 4C 45 CE 70 13 20 53 54 58 20 46 45 4C C4 |HOLE.p. STX FEL.| 00000C30: 80 13 20 BB 90 13 20 4A 53 52 20 48 4F 4C 56 41 |.. ... JSR HOLVA| 00000C40: D2 00 14 20 4C 44 58 20 23 B2 10 14 48 4F 4C 31 |... LDX #...HOL1| 00000C50: 20 4C 44 41 20 54 59 50 32 2C D8 20 14 20 53 54 | LDA TYP2,. . ST| 00000C60: 41 20 54 59 50 2C D8 30 14 20 44 45 D8 40 14 20 |A TYP,.0. DE.@. | 00000C70: 42 50 4C 20 48 4F 4C B1 50 14 20 BB 60 14 20 4C |BPL HOL.P. .`. L| 00000C80: 44 41 20 5A 41 48 4C 20 20 20 20 20 20 20 20 20 |DA ZAHL | 00000C90: 3B 4B 4F 52 52 BD 70 14 20 4C 44 58 20 54 59 50 |;KORR.p. LDX TYP| 00000CA0: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN| 00000CB0: 47 3A 20 B1 80 14 20 43 50 58 20 23 31 32 37 20 |G: ... CPX #127 | 00000CC0: 20 20 20 20 20 20 20 20 3B 49 4E 54 45 47 45 52 | ;INTEGER| 00000CD0: 3A 20 B1 90 14 20 42 45 51 20 4E 4F 4C 53 52 20 |: ... BEQ NOLSR | 00000CE0: 20 20 20 20 20 20 20 3B 52 45 41 4C 3A 20 B2 00 | ;REAL: ..| 00000CF0: 15 20 4C 53 52 20 C1 10 15 4E 4F 4C 53 52 20 53 |. LSR ...NOLSR S| 00000D00: 54 41 20 4B 4F 52 D2 20 15 20 BB 30 15 20 4C 44 |TA KOR. . .0. LD| 00000D10: 41 20 4C 47 B2 40 15 20 4C 44 58 20 4C 47 32 2B |A LG.@. LDX LG2+| 00000D20: B1 50 15 20 53 54 41 20 4C 47 20 20 20 20 20 20 |.P. STA LG | 00000D30: 20 20 20 20 20 3B 47 52 45 4E 5A 45 CE 60 15 20 | ;GRENZE.`. | 00000D40: 53 54 58 20 4C 47 2B 31 20 20 20 20 20 20 20 20 |STX LG+1 | 00000D50: 20 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 CE | ;INITIALISIERE.| 00000D60: 70 15 20 4C 44 41 20 52 47 B2 80 15 20 4C 44 58 |p. LDA RG... LDX| 00000D70: 20 52 47 32 2B B1 90 15 20 53 54 41 20 52 C7 00 | RG2+... STA R..| 00000D80: 16 20 53 54 58 20 52 47 2B B1 10 16 20 BB 20 16 |. STX RG+... . .| 00000D90: 20 BB 30 16 20 3B 2A 2A 2A 49 4E 49 54 20 46 55 | .0. ;***INIT FU| 00000DA0: 45 52 20 4D 49 54 5A 55 53 2E 41 52 52 41 59 2A |ER MITZUS.ARRAY*| 00000DB0: 2A AA 40 16 20 4C 44 41 20 23 30 20 20 20 20 20 |*.@. LDA #0 | 00000DC0: 20 20 20 20 3B 46 4C 41 47 20 46 55 45 52 20 4D | ;FLAG FUER M| 00000DD0: 49 54 5A 55 AD 50 16 20 53 54 41 20 4D 49 54 46 |ITZU.P. STA MITF| 00000DE0: 4C 41 47 20 20 20 20 3B 53 4F 52 54 2E 41 52 52 |LAG ;SORT.ARR| 00000DF0: 41 59 20 49 4E 49 54 AE 60 16 20 4A 53 52 20 43 |AY INIT.`. JSR C| 00000E00: 48 52 47 4F 54 20 20 20 20 20 3B 57 45 4E 4E 20 |HRGOT ;WENN | 00000E10: 4B 4F 4D 4D 41 20 46 4F 4C 47 54 BA 70 16 20 43 |KOMMA FOLGT.p. C| 00000E20: 4D 50 20 23 27 2C 27 20 20 20 20 20 20 20 3B 50 |MP #',' ;P| 00000E30: 41 52 41 4D 45 54 45 52 20 44 45 D3 80 16 20 42 |ARAMETER DE... B| 00000E40: 4E 45 20 49 4E 49 54 45 4E 44 20 20 20 20 3B 4D |NE INITEND ;M| 00000E50: 49 54 5A 55 53 4F 52 54 49 45 52 45 4E 44 45 CE |ITZUSORTIERENDE.| 00000E60: 90 16 20 4A 53 52 20 48 4F 4C 56 41 52 20 20 20 |.. JSR HOLVAR | 00000E70: 20 20 3B 41 52 52 41 59 53 20 48 4F 4C 45 4E 20 | ;ARRAYS HOLEN | 00000E80: 55 4E C4 00 17 20 49 4E 43 20 4D 49 54 46 4C 41 |UN... INC MITFLA| 00000E90: 47 20 20 20 20 3B 4D 49 54 46 4C 41 47 3D 31 20 |G ;MITFLAG=1 | 00000EA0: 53 45 54 5A 45 CE 10 17 20 BB 20 17 20 BB 30 17 |SETZE... . . .0.| 00000EB0: 20 3B 2A 2A 2A 45 42 45 4E 5A 41 45 48 4C 45 52 | ;***EBENZAEHLER| 00000EC0: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 2A | INITIALISIEREN*| 00000ED0: 2A AA 40 17 49 4E 49 54 45 4E 44 20 4C 44 41 20 |*.@.INITEND LDA | 00000EE0: 23 32 35 34 20 3B 45 42 45 4E 45 4E 5A 41 45 48 |#254 ;EBENENZAEH| 00000EF0: 4C 45 D2 50 17 20 53 54 41 20 5A 20 20 20 20 20 |LE.P. STA Z | 00000F00: 20 20 20 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 | ;INITIALIS| 00000F10: 49 45 52 45 CE 60 17 20 3B 2A 2A 2A 2A 2A 2A 2A |IERE.`. ;*******| 00000F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F30: 2A 2A 2A 2A 2A 2A 2A AA 70 17 20 3B 2A 2A 2A 2A |*******.p. ;****| 00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 80 17 20 BB 90 |**********... ..| 00000F60: 17 20 BB 00 18 20 BB 10 18 20 3B 2A 2A 2A 2A 2A |. ... ... ;*****| 00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 18 20 3B 2A 2A |*********. . ;**| 00000F90: 2A 2A 2A 2A 2A 51 55 49 43 4B 53 4F 52 54 2D 52 |*****QUICKSORT-R| 00000FA0: 4F 55 54 49 4E 45 2A 2A 2A 2A 2A 2A AA 30 18 20 |OUTINE******.0. | 00000FB0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA |***************.| 00000FD0: 40 18 20 BB 50 18 20 BB 60 18 20 3B 2A 2A 2A 4C |@. .P. .`. ;***L| 00000FE0: 47 28 5A 29 3E 3D 52 47 28 5A 29 3F 2A 2A AA 70 |G(Z)>=RG(Z)?**.p| 00000FF0: 18 45 49 4E 47 41 4E 47 20 49 4E 43 20 5A 20 20 |.EINGANG INC Z | 00001000: 3B 45 49 4E 45 20 45 42 45 4E 45 20 54 49 45 46 |;EINE EBENE TIEF| 00001010: 45 D2 80 18 20 49 4E 43 20 DA 90 18 20 BB 00 19 |E... INC ... ...| 00001020: 20 4C 44 58 20 DA 10 19 20 4C 44 41 20 4C 47 2B | LDX ... LDA LG+| 00001030: 31 2C 58 20 20 20 20 3B 4C 47 28 5A 29 20 4D 49 |1,X ;LG(Z) MI| 00001040: 54 20 52 47 28 5A A9 20 19 20 43 4D 50 20 52 47 |T RG(Z. . CMP RG| 00001050: 2B 31 2C 58 20 20 20 20 3B 56 45 52 47 4C 45 49 |+1,X ;VERGLEI| 00001060: 43 48 45 CE 30 19 20 42 43 43 20 45 49 4E 47 B1 |CHE.0. BCC EING.| 00001070: 40 19 20 42 4E 45 20 52 45 D4 50 19 20 4C 44 41 |@. BNE RE.P. LDA| 00001080: 20 4C 47 2C 58 20 20 20 20 20 20 3B 44 55 52 43 | LG,X ;DURC| 00001090: 48 47 41 4E 47 20 42 45 45 4E 44 45 54 AC 60 19 |HGANG BEENDET.`.| 000010A0: 20 43 4D 50 20 52 47 2C 58 20 20 20 20 20 20 3B | CMP RG,X ;| 000010B0: 57 45 4E 4E 20 4C 47 28 5A 29 3E 3D 52 47 28 5A |WENN LG(Z)>=RG(Z| 000010C0: A9 70 19 20 42 43 43 20 45 49 4E 47 20 20 20 20 |.p. BCC EING | 000010D0: 20 20 3B 44 41 4E 4E 20 27 52 45 54 55 52 4E A7 | ;DANN 'RETURN.| 000010E0: 80 19 52 45 54 20 4A 4D 50 20 52 45 54 55 52 CE |..RET JMP RETUR.| 000010F0: 90 19 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. ;************| 00001100: 2A 2A 2A 2A 2A 2A AA 00 20 20 BB 10 20 20 BB 20 |******.. .. . | 00001110: 20 20 3B 2A 2A 2A 58 3D 4C 47 28 5A 29 3A 59 3D | ;***X=LG(Z):Y=| 00001120: 52 47 28 5A 29 2A 2A AA 30 20 45 49 4E 47 31 20 |RG(Z)**.0 EING1 | 00001130: 4C 44 41 20 4C 47 2C D8 40 20 45 49 4E 47 20 53 |LDA LG,.@ EING S| 00001140: 54 41 20 58 20 20 20 20 20 3B 5A 45 49 47 45 52 |TA X ;ZEIGER| 00001150: 20 58 20 55 4E 44 20 D9 50 20 20 4C 44 41 20 4C | X UND .P LDA L| 00001160: 47 2B 31 2C 58 20 20 20 20 3B 47 4C 45 49 43 48 |G+1,X ;GLEICH| 00001170: 20 44 45 52 20 4C 49 4E 4B 45 CE 60 20 20 53 54 | DER LINKE.` ST| 00001180: 41 20 58 2B 31 20 20 20 20 20 20 20 3B 42 5A 57 |A X+1 ;BZW| 00001190: 2E 52 45 43 48 54 45 4E 20 47 52 45 4E 5A C5 70 |.RECHTEN GRENZ.p| 000011A0: 20 20 4C 44 41 20 52 47 2C 58 20 20 20 20 20 20 | LDA RG,X | 000011B0: 3B 41 55 46 20 44 45 52 20 4D 4F 4D 45 4E 54 41 |;AUF DER MOMENTA| 000011C0: 4E 45 CE 80 20 20 53 54 41 20 59 20 20 20 20 20 |NE.. STA Y | 000011D0: 20 20 20 20 3B 45 42 45 4E 45 20 49 4E 49 54 49 | ;EBENE INITI| 000011E0: 41 4C 49 53 AE 90 20 20 4C 44 41 20 52 47 2B 31 |ALIS.. LDA RG+1| 000011F0: 2C D8 00 21 20 53 54 41 20 59 2B B1 10 21 20 BB |,..! STA Y+..! .| 00001200: 20 21 20 4C 44 41 20 4D 49 54 46 4C 41 C7 30 21 | ! LDA MITFLA.0!| 00001210: 20 42 45 51 20 45 49 4E 47 45 4E C4 40 21 20 BB | BEQ EINGEN.@! .| 00001220: 50 21 20 4C 44 41 20 4C 47 32 2C 58 20 20 20 20 |P! LDA LG2,X | 00001230: 20 3B 57 45 4E 4E 20 4D 49 54 46 4C 41 47 2C 20 | ;WENN MITFLAG, | 00001240: 41 55 43 C8 60 21 20 53 54 41 20 58 4B 4F 50 49 |AUC.`! STA XKOPI| 00001250: 45 20 20 20 20 3B 46 55 45 52 20 4D 49 54 53 4F |E ;FUER MITSO| 00001260: 52 54 41 52 52 41 D9 70 21 20 4C 44 41 20 4C 47 |RTARRA.p! LDA LG| 00001270: 32 2B 31 2C 58 20 20 20 3B 47 52 45 4E 5A 45 4E |2+1,X ;GRENZEN| 00001280: 20 49 4E 49 54 AE 80 21 20 53 54 41 20 58 4B 4F | INIT..! STA XKO| 00001290: 50 49 45 2B B1 90 21 20 4C 44 41 20 52 47 32 2C |PIE+..! LDA RG2,| 000012A0: D8 00 22 20 53 54 41 20 59 4B 4F 50 49 C5 10 22 |.." STA YKOPI.."| 000012B0: 20 4C 44 41 20 52 47 32 2B 31 2C D8 20 22 20 53 | LDA RG2+1,. " S| 000012C0: 54 41 20 59 4B 4F 50 49 45 2B B1 30 22 20 3B 2A |TA YKOPIE+.0" ;*| 000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000012E0: 2A 2A 2A AA 40 22 20 BB 50 22 20 BB 60 22 20 BB |***.@" .P" .`" .| 000012F0: 70 22 20 3B 2A 2A 2A 5A 45 49 47 45 52 20 41 55 |p" ;***ZEIGER AU| 00001300: 46 20 56 47 2D 45 4C 45 4D 2E 52 49 43 48 54 45 |F VG-ELEM.RICHTE| 00001310: 4E 2A 2A AA 80 22 20 BB 90 22 20 3B 2A 2A 56 45 |N**.." .." ;**VE| 00001320: 52 47 4C 45 49 43 48 53 45 4C 45 4D 45 4E 54 20 |RGLEICHSELEMENT | 00001330: 45 52 4D 49 54 54 45 4C 4E 2A AA 00 23 20 3B 28 |ERMITTELN*..# ;(| 00001340: 45 4E 54 53 50 52 49 43 48 54 20 49 4E 20 42 41 |ENTSPRICHT IN BA| 00001350: 53 49 43 3A A9 10 23 20 3B 20 20 28 56 47 3D 49 |SIC:..# ; (VG=I| 00001360: 4E 54 28 28 58 2B 59 29 2F 32 29 A9 20 23 20 BB |NT((X+Y)/2). # .| 00001370: 30 23 45 49 4E 47 45 4E 44 20 4C 44 41 20 D9 40 |0#EINGEND LDA .@| 00001380: 23 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 |# CLC | 00001390: 3B 44 49 45 20 5A 45 49 47 45 52 20 58 20 55 4E |;DIE ZEIGER X UN| 000013A0: 44 20 D9 50 23 20 41 44 43 20 58 20 20 20 20 20 |D .P# ADC X | 000013B0: 20 20 20 20 3B 41 44 44 49 45 52 45 4E 2E 20 45 | ;ADDIEREN. E| 000013C0: 52 47 45 42 4E 49 D3 60 23 20 53 54 41 20 56 47 |RGEBNI.`# STA VG| 000013D0: 20 20 20 20 20 20 20 20 3B 56 47 28 4C 4F 29 20 | ;VG(LO) | 000013E0: 55 4E C4 70 23 20 4C 44 41 20 58 2B 31 20 20 20 |UN.p# LDA X+1 | 000013F0: 20 20 20 20 3B 41 4B 4B 55 28 48 49 A9 80 23 20 | ;AKKU(HI..# | 00001400: 41 44 43 20 59 2B B1 90 23 20 BB 00 24 20 52 4F |ADC Y+..# ..$ RO| 00001410: 52 20 41 20 20 20 20 20 20 20 20 20 3B 41 4B 4B |R A ;AKK| 00001420: 55 3D 48 49 2F B2 10 24 20 53 54 41 20 56 47 2B |U=HI/..$ STA VG+| 00001430: 31 20 20 20 20 20 20 3B 56 47 2B 31 3D 48 49 2F |1 ;VG+1=HI/| 00001440: B2 20 24 20 52 4F 52 20 56 47 20 20 20 20 20 20 |. $ ROR VG | 00001450: 20 20 3B 56 47 3D 4C 4F 2F B2 30 24 20 BB 40 24 | ;VG=LO/.0$ .@$| 00001460: 20 42 43 53 20 53 52 20 20 20 20 20 20 20 20 3B | BCS SR ;| 00001470: 52 45 53 54 20 28 4E 55 52 20 42 45 49 20 52 45 |REST (NUR BEI RE| 00001480: 41 CC 50 24 20 4C 44 41 20 54 59 50 20 20 20 20 |A.P$ LDA TYP | 00001490: 20 20 20 3B 2F 53 54 52 49 4E 47 29 3F 20 4A 41 | ;/STRING)? JA| 000014A0: 20 3D BE 60 24 20 43 4D 50 20 23 31 32 37 20 20 | =.`$ CMP #127 | 000014B0: 20 20 20 20 3B 53 4F 52 54 41 52 52 41 59 54 59 | ;SORTARRAYTY| 000014C0: 50 20 49 4E 54 AE 70 24 20 42 4E 45 20 56 41 52 |P INT.p$ BNE VAR| 000014D0: 48 4F 4C 20 20 20 20 3B 4E 45 49 4E 20 3D BE 80 |HOL ;NEIN =..| 000014E0: 24 20 BB 90 24 20 4C 44 41 20 56 47 20 20 20 20 |$ ..$ LDA VG | 000014F0: 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 46 20 | ;ZEIGER AUF | 00001500: 56 45 52 47 4C 2E AD 00 25 20 45 4F 52 20 58 20 |VERGL...% EOR X | 00001510: 20 20 20 20 20 20 20 20 3B 45 4C 45 4D 2E 45 42 | ;ELEM.EB| 00001520: 45 4E 53 4F 20 47 45 52 41 44 C5 10 25 20 4C 53 |ENSO GERAD..% LS| 00001530: 52 20 41 20 20 20 20 20 20 20 20 20 3B 4F 44 45 |R A ;ODE| 00001540: 52 20 55 4E 47 45 52 41 44 45 20 57 49 C5 20 25 |R UNGERADE WI. %| 00001550: 20 42 43 43 20 56 41 52 48 4F 4C 20 20 20 20 3B | BCC VARHOL ;| 00001560: 44 49 45 20 4C 49 4E 4B 45 20 47 52 45 4E 5A 45 |DIE LINKE GRENZE| 00001570: BF 30 25 20 3B 20 20 20 20 20 20 20 20 20 20 20 |.0% ; | 00001580: 20 20 3B 4A 41 20 3D BE 40 25 53 52 20 4C 44 41 | ;JA =.@%SR LDA| 00001590: 20 56 C7 50 25 20 53 45 43 20 20 20 20 20 20 20 | V.P% SEC | 000015A0: 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 46 20 | ;ZEIGER AUF | 000015B0: 56 45 52 47 4C 2E AD 60 25 20 53 42 43 20 4B 4F |VERGL..`% SBC KO| 000015C0: 52 52 20 20 20 20 20 20 3B 45 4C 45 4D 45 4E 54 |RR ;ELEMENT| 000015D0: 20 4B 4F 52 52 49 47 AE 70 25 20 53 54 41 20 56 | KORRIG.p% STA V| 000015E0: C7 80 25 20 42 43 53 20 56 41 52 48 4F CC 90 25 |..% BCS VARHO..%| 000015F0: 20 44 45 43 20 56 47 2B B1 00 26 20 3B 2A 2A 2A | DEC VG+..& ;***| 00001600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 10 26 20 BB |***********..& .| 00001620: 20 26 20 3B 2A 2A 49 4E 54 56 41 52 2E 2F 53 54 | & ;**INTVAR./ST| 00001630: 52 2E 44 45 53 43 52 2E 48 4F 4C 45 4E 2A AA 30 |R.DESCR.HOLEN*.0| 00001640: 26 56 41 52 48 4F 4C 20 4C 44 59 20 5A 41 48 CC |&VARHOL LDY ZAH.| 00001650: 40 26 48 4F 4C 53 54 52 20 4C 44 41 20 28 56 47 |@&HOLSTR LDA (VG| 00001660: 29 2C 59 20 20 3B 56 47 25 20 42 5A 57 2E 44 45 |),Y ;VG% BZW.DE| 00001670: 53 43 52 AE 50 26 20 53 54 41 20 44 45 53 43 52 |SCR.P& STA DESCR| 00001680: 31 2C 59 20 20 20 20 20 20 3B 56 4F 4E 20 56 47 |1,Y ;VON VG| 00001690: 24 20 4E 41 43 C8 60 26 20 44 45 59 20 20 20 20 |$ NAC.`& DEY | 000016A0: 20 20 20 20 20 20 20 20 20 20 20 3B 44 45 53 43 | ;DESC| 000016B0: 52 31 28 2B 32 A9 70 26 20 42 50 4C 20 48 4F 4C |R1(+2.p& BPL HOL| 000016C0: 53 54 D2 80 26 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |ST..& ;*********| 000016D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000016E0: 2A AA 90 26 20 BB 00 27 20 4C 44 41 20 54 59 D0 |*..& ..' LDA TY.| 000016F0: 10 27 20 42 4D 49 20 52 45 41 4C 54 59 D0 20 27 |.' BMI REALTY. '| 00001700: 20 42 4E 45 20 4E 45 58 D4 30 27 20 BB 40 27 20 | BNE NEX.0' .@' | 00001710: 3B 2A 2A 53 54 52 49 4E 47 44 45 53 43 52 2E 41 |;**STRINGDESCR.A| 00001720: 55 46 20 53 54 52 49 4E 47 54 45 49 4C 2A AA 50 |UF STRINGTEIL*.P| 00001730: 27 20 4A 53 52 20 53 54 52 54 45 49 4C 20 20 3B |' JSR STRTEIL ;| 00001740: 44 45 53 43 52 2E 46 55 45 52 20 53 54 52 54 45 |DESCR.FUER STRTE| 00001750: 49 CC 60 27 20 BB 70 27 20 4C 44 58 20 5A 41 48 |I.`' .p' LDX ZAH| 00001760: 4C 20 20 20 20 20 20 20 20 20 20 3B 45 4E 44 47 |L ;ENDG| 00001770: 55 45 4C 54 49 47 C5 80 27 48 53 54 52 20 4C 44 |UELTIG..'HSTR LD| 00001780: 41 20 44 45 53 43 52 31 2C 58 20 20 3B 53 54 52 |A DESCR1,X ;STR| 00001790: 49 4E 47 44 45 53 43 52 AE 90 27 20 53 54 41 20 |INGDESCR..' STA | 000017A0: 44 45 53 43 52 32 2C 58 20 20 20 20 20 20 3B 4E |DESCR2,X ;N| 000017B0: 41 43 48 20 44 45 53 43 52 32 20 AD 00 28 20 44 |ACH DESCR2 ..( D| 000017C0: 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX | 000017D0: 20 3B 44 45 53 43 52 32 2B B2 10 28 20 42 50 4C | ;DESCR2+..( BPL| 000017E0: 20 48 53 54 D2 20 28 20 42 4D 49 20 4E 45 58 54 | HST. ( BMI NEXT| 000017F0: 20 20 20 20 20 20 20 20 20 20 3B 41 42 53 AE 30 | ;ABS.0| 00001800: 28 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |( ;*************| 00001810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001820: AA 40 28 20 BB 50 28 20 3B 2A 2A 52 45 41 4C 3D |.@( .P( ;**REAL=| 00001830: 3E 41 52 47 2F 4B 4F 4E 53 54 3D 3E 46 41 43 2F |>ARG/KONST=>FAC/| 00001840: 46 41 43 3D 3E 41 52 47 AA 60 28 52 45 41 4C 54 |FAC=>ARG.`(REALT| 00001850: 59 50 20 4C 44 41 20 23 4C 2C 44 45 53 43 52 31 |YP LDA #L,DESCR1| 00001860: 20 3B 4B 4F 4E 53 54 41 4E 54 C5 70 28 20 4C 44 | ;KONSTANT.p( LD| 00001870: 59 20 23 48 2C 44 45 53 43 52 31 20 20 20 20 20 |Y #H,DESCR1 | 00001880: 20 20 20 3B 4E 41 43 48 20 41 52 C7 80 28 20 4A | ;NACH AR..( J| 00001890: 53 52 20 4B 4F 4E 49 4E 41 52 C7 90 28 20 BB 00 |SR KONINAR..( ..| 000018A0: 29 20 4C 44 58 20 5A 41 48 4C 20 20 20 20 20 20 |) LDX ZAHL | 000018B0: 20 20 20 20 3B 41 52 47 20 4E 41 43 48 20 46 41 | ;ARG NACH FA| 000018C0: C3 10 29 41 52 47 49 4E 46 41 43 20 4C 44 41 20 |..)ARGINFAC LDA | 000018D0: 41 52 47 2C 58 20 3B 4B 4F 50 49 45 52 45 CE 20 |ARG,X ;KOPIERE. | 000018E0: 29 20 53 54 41 20 46 41 43 2C D8 30 29 20 44 45 |) STA FAC,.0) DE| 000018F0: D8 40 29 20 42 50 4C 20 41 52 47 49 4E 46 41 C3 |.@) BPL ARGINFA.| 00001900: 50 29 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P) ;************| 00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001920: 2A 2A 2A AA 60 29 20 BB 70 29 20 BB 80 29 20 BB |***.`) .p) ..) .| 00001930: 90 29 20 3B 2A 2A 2A 58 3E 59 3F 20 4A 41 3D 3E |.) ;***X>Y? JA=>| 00001940: 45 49 4E 45 20 45 42 45 4E 45 20 54 49 45 46 45 |EINE EBENE TIEFE| 00001950: 52 2A 2A AA 00 30 4E 45 58 54 20 4A 53 52 20 58 |R**..0NEXT JSR X| 00001960: 59 56 45 52 47 4C 20 3B 58 20 4D 49 54 20 59 20 |YVERGL ;X MIT Y | 00001970: 56 45 52 47 4C AE 10 30 20 42 43 53 20 54 45 49 |VERGL..0 BCS TEI| 00001980: 4C 46 45 4C 44 20 20 20 20 3B 58 3E 59 3F 20 4A |LFELD ;X>Y? J| 00001990: 41 3D BE 20 30 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |A=. 0 ;*********| 000019A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000019B0: 2A 2A 2A 2A 2A 2A AA 30 30 20 BB 40 30 20 BB 50 |******.00 .@0 .P| 000019C0: 30 20 BB 60 30 20 3B 2A 2A 2A 56 41 52 28 58 2F |0 .`0 ;***VAR(X/| 000019D0: 59 29 20 4D 49 54 20 56 41 52 28 56 47 29 20 56 |Y) MIT VAR(VG) V| 000019E0: 45 52 47 4C 2A 2A AA 70 30 20 4A 53 52 20 43 4F |ERGL**.p0 JSR CO| 000019F0: 4D 50 41 52 C5 80 30 20 3B 2A 2A 2A 2A 2A 2A 2A |MPAR..0 ;*******| 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 AA 90 30 20 BB 00 31 20 |********..0 ..1 | 00001A20: BB 10 31 20 BB 20 31 20 3B 2A 2A 2A 58 3E 59 3F |..1 . 1 ;***X>Y?| 00001A30: 20 4A 41 3D 3E 45 49 4E 45 20 45 42 45 4E 45 20 | JA=>EINE EBENE | 00001A40: 54 49 45 46 45 52 2A 2A AA 30 31 20 4A 53 52 20 |TIEFER**.01 JSR | 00001A50: 58 59 56 45 52 47 4C 20 20 20 20 20 3B 58 3E 59 |XYVERGL ;X>Y| 00001A60: 20 BF 40 31 20 42 43 53 20 54 45 49 4C 46 45 4C | .@1 BCS TEILFEL| 00001A70: 44 20 20 20 20 3B 4A 41 20 3D BE 50 31 20 3B 2A |D ;JA =.P1 ;*| 00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 60 |**************.`| 00001AA0: 31 20 BB 70 31 20 BB 80 31 20 BB 90 31 20 3B 2A |1 .p1 ..1 ..1 ;*| 00001AB0: 2A 2A 53 57 41 50 20 56 41 52 28 58 29 20 55 4E |**SWAP VAR(X) UN| 00001AC0: 44 20 56 41 52 28 59 29 2A 2A AA 00 32 20 4C 44 |D VAR(Y)**..2 LD| 00001AD0: 59 20 5A 41 48 4C 20 20 20 20 20 20 3B 44 49 45 |Y ZAHL ;DIE| 00001AE0: 20 44 45 53 43 52 49 50 54 4F 52 45 CE 10 32 53 | DESCRIPTORE..2S| 00001AF0: 57 41 50 20 4C 44 41 20 28 58 29 2C 59 20 3B 56 |WAP LDA (X),Y ;V| 00001B00: 4F 4E 20 41 24 28 58 29 20 55 4E C4 20 32 20 54 |ON A$(X) UN. 2 T| 00001B10: 41 58 20 20 20 20 20 20 20 20 20 20 20 3B 55 4E |AX ;UN| 00001B20: 44 20 41 24 28 59 14 20 4D 49 54 AD 30 32 20 4C |D A$(Y. MIT.02 L| 00001B30: 44 41 20 28 59 29 2C 59 20 20 20 20 20 3B 45 49 |DA (Y),Y ;EI| 00001B40: 4E 41 4E 44 45 52 20 56 45 52 54 41 55 AD 40 32 |NANDER VERTAU.@2| 00001B50: 20 53 54 41 20 28 58 29 2C 59 20 20 20 20 20 3B | STA (X),Y ;| 00001B60: 53 43 48 45 CE 50 32 20 54 58 C1 60 32 20 53 54 |SCHE.P2 TX.`2 ST| 00001B70: 41 20 28 59 29 2C 59 20 20 20 20 20 3B 53 24 3D |A (Y),Y ;S$=| 00001B80: 41 24 28 58 29 3A 41 24 28 58 29 BD 70 32 20 44 |A$(X):A$(X).p2 D| 00001B90: 45 59 20 20 20 20 20 20 20 20 20 20 20 3B 41 24 |EY ;A$| 00001BA0: 28 59 29 3A 41 24 28 59 29 3D 53 A4 80 32 20 42 |(Y):A$(Y)=S..2 B| 00001BB0: 50 4C 20 53 57 41 D0 90 32 20 BB 00 33 20 4C 44 |PL SWA..2 ..3 LD| 00001BC0: 41 20 4D 49 54 46 4C 41 C7 10 33 20 42 45 51 20 |A MITFLA..3 BEQ | 00001BD0: 53 57 41 50 45 4E C4 20 33 20 BB 30 33 20 4C 44 |SWAPEN. 3 .03 LD| 00001BE0: 59 20 5A 41 48 4C B2 40 33 53 57 41 50 32 20 4C |Y ZAHL.@3SWAP2 L| 00001BF0: 44 41 20 28 58 4B 4F 50 49 45 29 2C D9 50 33 20 |DA (XKOPIE),.P3 | 00001C00: 54 41 D8 60 33 20 4C 44 41 20 28 59 4B 4F 50 49 |TA.`3 LDA (YKOPI| 00001C10: 45 29 2C 59 20 20 3B 57 45 4E 4E 20 4D 49 54 46 |E),Y ;WENN MITF| 00001C20: 4C 41 47 AC 70 33 20 53 54 41 20 28 58 4B 4F 50 |LAG.p3 STA (XKOP| 00001C30: 49 45 29 2C 59 20 20 3B 41 55 43 48 20 44 49 45 |IE),Y ;AUCH DIE| 00001C40: 20 44 45 53 43 52 AE 80 33 20 54 58 41 20 20 20 | DESCR..3 TXA | 00001C50: 20 20 20 20 20 20 20 20 20 20 3B 56 4F 4E 20 4D | ;VON M| 00001C60: 49 54 53 4F 52 54 41 52 52 41 D9 90 33 20 53 54 |ITSORTARRA..3 ST| 00001C70: 41 20 28 59 4B 4F 50 49 45 29 2C 59 20 20 3B 56 |A (YKOPIE),Y ;V| 00001C80: 45 52 54 41 55 53 43 48 45 CE 00 34 20 44 45 D9 |ERTAUSCHE..4 DE.| 00001C90: 10 34 20 42 50 4C 20 53 57 41 50 B2 20 34 20 3B |.4 BPL SWAP. 4 ;| 00001CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 30 34 20 BB |***********.04 .| 00001CC0: 40 34 20 BB 50 34 20 BB 60 34 20 3B 2A 2A 2A 58 |@4 .P4 .`4 ;***X| 00001CD0: 20 41 55 46 20 4E 45 58 54 2C 59 20 41 55 46 20 | AUF NEXT,Y AUF | 00001CE0: 4C 41 53 54 20 45 4C 45 4D 2A 2A AA 70 34 53 57 |LAST ELEM**.p4SW| 00001CF0: 41 50 45 4E 44 20 4A 53 52 20 58 4E 45 58 54 20 |APEND JSR XNEXT | 00001D00: 3B 5A 45 49 47 45 52 20 58 20 41 55 C6 80 34 20 |;ZEIGER X AU..4 | 00001D10: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00001D20: 20 20 4E 45 58 54 20 45 4C 45 4D 45 4E D4 90 34 | NEXT ELEMEN..4| 00001D30: 20 BB 00 35 20 4A 53 52 20 59 4C 41 53 54 20 20 | ..5 JSR YLAST | 00001D40: 20 20 20 20 20 20 3B 5A 45 49 47 45 52 20 59 20 | ;ZEIGER Y | 00001D50: 41 55 C6 10 35 20 3B 20 20 20 20 20 20 20 20 20 |AU..5 ; | 00001D60: 20 20 20 20 20 20 20 20 4C 41 53 54 20 45 4C 45 | LAST ELE| 00001D70: 4D 45 4E D4 20 35 20 BB 30 35 20 4A 4D 50 20 4E |MEN. 5 .05 JMP N| 00001D80: 45 58 54 20 20 20 20 20 20 20 20 20 3B 4E 41 45 |EXT ;NAE| 00001D90: 43 48 53 54 45 20 52 55 4E 44 45 A1 40 35 20 3B |CHSTE RUNDE.@5 ;| 00001DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA |***************.| 00001DC0: 50 35 20 BB 60 35 20 BB 70 35 20 BB 80 35 20 3B |P5 .`5 .p5 ..5 ;| 00001DD0: 2A 2A 2A 4C 49 4E 4B 45 53 20 54 45 49 4C 46 45 |***LINKES TEILFE| 00001DE0: 4C 44 20 45 52 4D 49 54 54 45 4C 4E 2A 2A AA 90 |LD ERMITTELN**..| 00001DF0: 35 54 45 49 4C 46 45 4C 44 20 4C 44 58 20 DA 00 |5TEILFELD LDX ..| 00001E00: 36 20 4C 44 41 20 59 20 20 20 20 20 20 20 20 20 |6 LDA Y | 00001E10: 20 20 20 3B 4E 41 45 43 48 53 54 45 20 52 45 43 | ;NAECHSTE REC| 00001E20: 48 54 C5 10 36 20 53 54 41 20 52 47 2B 32 2C 58 |HT..6 STA RG+2,X| 00001E30: 20 20 20 20 20 20 20 3B 47 52 45 4E 5A 45 3D 4D | ;GRENZE=M| 00001E40: 4F 4D 45 4E 54 AE 20 36 20 4C 44 41 20 59 2B 31 |OMENT. 6 LDA Y+1| 00001E50: 20 20 20 20 20 20 20 20 20 20 3B 52 45 43 48 54 | ;RECHT| 00001E60: 45 52 20 5A 45 49 47 45 D2 30 36 20 53 54 41 20 |ER ZEIGE.06 STA | 00001E70: 52 47 2B 33 2C D8 40 36 20 4C 44 41 20 4C 47 2C |RG+3,.@6 LDA LG,| 00001E80: 58 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 48 |X ;NAECH| 00001E90: 53 54 45 20 4C 49 4E 4B C5 50 36 20 53 54 41 20 |STE LINK.P6 STA | 00001EA0: 4C 47 2B 32 2C 58 20 20 20 20 20 20 20 3B 47 52 |LG+2,X ;GR| 00001EB0: 45 4E 5A 45 3D 4D 4F 4D 45 4E 54 AE 60 36 20 4C |ENZE=MOMENT.`6 L| 00001EC0: 44 41 20 4C 47 2B 31 2C 58 20 20 20 20 20 20 20 |DA LG+1,X | 00001ED0: 3B 4C 49 4E 4B 45 20 47 52 45 4E 5A C5 70 36 20 |;LINKE GRENZ.p6 | 00001EE0: 53 54 41 20 4C 47 2B 33 2C D8 80 36 20 BB 90 36 |STA LG+3,..6 ..6| 00001EF0: 20 4C 44 41 20 4D 49 54 46 4C 41 C7 00 37 20 42 | LDA MITFLA..7 B| 00001F00: 45 51 20 4C 49 45 4E C4 10 37 20 BB 20 37 20 4C |EQ LIEN..7 . 7 L| 00001F10: 44 41 20 59 4B 4F 50 49 45 20 20 20 20 20 20 20 |DA YKOPIE | 00001F20: 3B 57 45 4E 4E 20 4D 49 54 46 4C 41 47 AC 30 37 |;WENN MITFLAG.07| 00001F30: 20 53 54 41 20 52 47 32 2B 32 2C 58 20 20 20 20 | STA RG2+2,X | 00001F40: 20 20 3B 41 55 43 48 20 4E 45 55 C5 40 37 20 4C | ;AUCH NEU.@7 L| 00001F50: 44 41 20 59 4B 4F 50 49 45 2B 31 20 20 20 20 20 |DA YKOPIE+1 | 00001F60: 3B 47 52 45 4E 5A 45 4E 20 46 55 45 D2 50 37 20 |;GRENZEN FUE.P7 | 00001F70: 53 54 41 20 52 47 32 2B 33 2C 58 20 20 20 20 20 |STA RG2+3,X | 00001F80: 20 3B 4D 49 54 53 4F 52 54 41 52 52 41 D9 60 37 | ;MITSORTARRA.`7| 00001F90: 20 4C 44 41 20 4C 47 32 2C 58 20 20 20 20 20 20 | LDA LG2,X | 00001FA0: 20 20 3B 46 45 53 54 4C 45 47 45 CE 70 37 20 53 | ;FESTLEGE.p7 S| 00001FB0: 54 41 20 4C 47 32 2B 32 2C D8 80 37 20 4C 44 41 |TA LG2+2,..7 LDA| 00001FC0: 20 4C 47 32 2B 31 2C D8 90 37 20 53 54 41 20 4C | LG2+1,..7 STA L| 00001FD0: 47 32 2B 33 2C D8 00 38 4C 49 45 4E 44 20 4A 53 |G2+3,..8LIEND JS| 00001FE0: 52 20 45 49 4E 47 41 4E C7 10 38 20 3B 2A 2A 2A |R EINGAN..8 ;***| 00001FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 38 20 BB |***********. 8 .| 00002010: 30 38 20 BB 40 38 20 3B 2A 2A 2A 52 45 43 48 54 |08 .@8 ;***RECHT| 00002020: 45 53 20 54 45 49 4C 46 45 4C 44 20 45 52 4D 49 |ES TEILFELD ERMI| 00002030: 54 54 45 4C 4E 2A 2A AA 50 38 20 4C 44 58 20 DA |TTELN**.P8 LDX .| 00002040: 60 38 20 4C 44 41 20 58 20 20 20 20 20 20 20 20 |`8 LDA X | 00002050: 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 4C 49 | ;NAECHSTE LI| 00002060: 4E 4B C5 70 38 20 53 54 41 20 4C 47 2B 32 2C 58 |NK.p8 STA LG+2,X| 00002070: 20 20 20 20 20 20 20 3B 47 52 45 4E 5A 45 3D 4D | ;GRENZE=M| 00002080: 4F 4D 45 4E 54 AE 80 38 20 4C 44 41 20 58 2B 31 |OMENT..8 LDA X+1| 00002090: 20 20 20 20 20 20 20 20 20 20 3B 4C 49 4E 4B 45 | ;LINKE| 000020A0: 52 20 5A 45 49 47 45 D2 90 38 20 53 54 41 20 4C |R ZEIGE..8 STA L| 000020B0: 47 2B 33 2C D8 00 39 20 4C 44 41 20 52 47 2C 58 |G+3,..9 LDA RG,X| 000020C0: 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 48 53 | ;NAECHS| 000020D0: 54 45 20 52 45 43 48 54 C5 10 39 20 53 54 41 20 |TE RECHT..9 STA | 000020E0: 52 47 2B 32 2C 58 20 20 20 20 20 20 20 3B 47 52 |RG+2,X ;GR| 000020F0: 45 4E 5A 45 3D 4D 4F 4D 45 4E 54 AE 20 39 20 4C |ENZE=MOMENT. 9 L| 00002100: 44 41 20 52 47 2B 31 2C 58 20 20 20 20 20 20 20 |DA RG+1,X | 00002110: 3B 52 45 43 48 54 45 20 47 52 45 4E 5A C5 30 39 |;RECHTE GRENZ.09| 00002120: 20 53 54 41 20 52 47 2B 33 2C D8 40 39 20 BB 50 | STA RG+3,.@9 .P| 00002130: 39 20 4C 44 41 20 4D 49 54 46 4C 41 C7 60 39 20 |9 LDA MITFLA.`9 | 00002140: 42 45 51 20 52 45 45 4E C4 70 39 20 BB 80 39 20 |BEQ REEN.p9 ..9 | 00002150: 4C 44 41 20 58 4B 4F 50 49 45 20 20 20 20 20 20 |LDA XKOPIE | 00002160: 20 3B 57 45 4E 4E 20 4D 49 54 46 4C 41 47 AC 90 | ;WENN MITFLAG..| 00002170: 39 20 53 54 41 20 4C 47 32 2B 32 2C 58 20 20 20 |9 STA LG2+2,X | 00002180: 20 20 20 3B 47 4C 45 49 43 48 45 53 20 46 55 45 | ;GLEICHES FUE| 00002190: D2 00 40 20 4C 44 41 20 58 4B 4F 50 49 45 2B 31 |..@ LDA XKOPIE+1| 000021A0: 20 20 20 20 20 3B 4D 49 54 53 4F 52 54 41 52 52 | ;MITSORTARR| 000021B0: 41 D9 10 40 20 53 54 41 20 4C 47 32 2B 33 2C D8 |A..@ STA LG2+3,.| 000021C0: 20 40 20 4C 44 41 20 52 47 32 2C D8 30 40 20 53 | @ LDA RG2,.0@ S| 000021D0: 54 41 20 52 47 32 2B 32 2C D8 40 40 20 4C 44 41 |TA RG2+2,.@@ LDA| 000021E0: 20 52 47 32 2B 31 2C D8 50 40 20 53 54 41 20 52 | RG2+1,.P@ STA R| 000021F0: 47 32 2B 33 2C D8 60 40 52 45 45 4E 44 20 4A 53 |G2+3,.`@REEND JS| 00002200: 52 20 45 49 4E 47 41 4E C7 70 40 20 3B 2A 2A 2A |R EINGAN.p@ ;***| 00002210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 80 40 20 |************..@ | 00002230: BB 90 40 20 BB 00 41 20 BB 10 41 20 3B 2A 2A 2A |..@ ..A ..A ;***| 00002240: 45 49 4E 45 20 45 42 45 4E 45 20 48 4F 45 48 45 |EINE EBENE HOEHE| 00002250: 52 2A 2A AA 20 41 52 45 54 55 52 4E 20 44 45 43 |R**. ARETURN DEC| 00002260: 20 DA 30 41 20 44 45 43 20 DA 40 41 20 52 54 D3 | .0A DEC .@A RT.| 00002270: 50 41 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |PA ;************| 00002280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 60 41 20 3B 2A |**********.`A ;*| 00002290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000022A0: 2A 2A 2A 2A 2A AA 70 41 20 BB 80 41 20 BB 90 41 |*****.pA ..A ..A| 000022B0: 20 BB 00 42 20 BB 10 42 20 3B 2A 2A 2A 2A 2A 2A | ..B ..B ;******| 000022C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 42 20 |************. B | 000022D0: 3B 2A 2A 2A 55 4E 54 45 52 52 4F 55 54 49 4E 45 |;***UNTERROUTINE| 000022E0: 4E 2A 2A AA 30 42 20 3B 2A 2A 2A 2A 2A 2A 2A 2A |N**.0B ;********| 000022F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 40 42 20 BB 50 |**********.@B .P| 00002300: 42 20 BB 60 42 20 3B 2A 2A 2A 58 20 41 55 46 20 |B .`B ;***X AUF | 00002310: 4E 45 58 54 20 45 4C 45 4D 45 4E 54 2A 2A AA 70 |NEXT ELEMENT**.p| 00002320: 42 58 4E 45 58 54 20 4C 44 41 20 D8 80 42 20 43 |BXNEXT LDA ..B C| 00002330: 4C C3 90 42 20 41 44 43 20 4F 46 46 53 45 D4 00 |L..B ADC OFFSE..| 00002340: 43 20 53 54 41 20 58 20 20 20 20 20 20 20 20 20 |C STA X | 00002350: 20 3B 5A 45 49 47 45 52 20 41 55 C6 10 43 20 42 | ;ZEIGER AU..C B| 00002360: 43 43 20 58 4E 45 58 20 20 20 20 20 20 20 3B 4E |CC XNEX ;N| 00002370: 41 45 43 48 53 54 45 53 20 45 4C 45 4D 45 4E D4 |AECHSTES ELEMEN.| 00002380: 20 43 20 49 4E 43 20 58 2B B1 30 43 20 BB 40 43 | C INC X+.0C .@C| 00002390: 58 4E 45 58 20 4C 44 41 20 4D 49 54 46 4C 41 C7 |XNEX LDA MITFLA.| 000023A0: 50 43 20 42 45 51 20 58 4E 45 58 54 45 4E C4 60 |PC BEQ XNEXTEN.`| 000023B0: 43 20 BB 70 43 20 4C 44 41 20 58 4B 4F 50 49 C5 |C .pC LDA XKOPI.| 000023C0: 80 43 20 43 4C C3 90 43 20 41 44 43 20 4F 46 46 |.C CL..C ADC OFF| 000023D0: 53 45 54 B2 00 44 20 53 54 41 20 58 4B 4F 50 49 |SET..D STA XKOPI| 000023E0: C5 10 44 20 42 43 43 20 58 4E 45 58 54 45 4E C4 |..D BCC XNEXTEN.| 000023F0: 20 44 20 49 4E 43 20 58 4B 4F 50 49 45 2B B1 30 | D INC XKOPIE+.0| 00002400: 44 58 4E 45 58 54 45 4E 44 20 52 54 D3 40 44 20 |DXNEXTEND RT.@D | 00002410: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00002420: 2A 2A 2A 2A 2A 2A 2A 2A AA 50 44 20 BB 60 44 20 |********.PD .`D | 00002430: BB 70 44 20 3B 2A 2A 2A 59 20 41 55 46 20 4C 41 |.pD ;***Y AUF LA| 00002440: 53 54 20 45 4C 45 4D 45 4E 54 2A 2A AA 80 44 59 |ST ELEMENT**..DY| 00002450: 4C 41 53 54 20 4C 44 41 20 D9 90 44 20 53 45 C3 |LAST LDA ..D SE.| 00002460: 00 45 20 53 42 43 20 4F 46 46 53 45 54 20 20 20 |.E SBC OFFSET | 00002470: 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 C6 10 | ;ZEIGER AU..| 00002480: 45 20 53 54 41 20 59 20 20 20 20 20 20 20 20 20 |E STA Y | 00002490: 20 20 20 3B 56 4F 52 49 47 45 53 20 45 4C 45 4D | ;VORIGES ELEM| 000024A0: 45 4E D4 20 45 20 42 43 53 20 59 4E 45 D8 30 45 |EN. E BCS YNE.0E| 000024B0: 20 44 45 43 20 59 2B B1 40 45 20 BB 50 45 59 4E | DEC Y+.@E .PEYN| 000024C0: 45 58 20 4C 44 41 20 4D 49 54 46 4C 41 C7 60 45 |EX LDA MITFLA.`E| 000024D0: 20 42 45 51 20 59 4E 45 58 54 45 4E C4 70 45 20 | BEQ YNEXTEN.pE | 000024E0: BB 80 45 20 4C 44 41 20 59 4B 4F 50 49 C5 90 45 |..E LDA YKOPI..E| 000024F0: 20 53 45 C3 00 46 20 53 42 43 20 4F 46 46 53 45 | SE..F SBC OFFSE| 00002500: 54 B2 10 46 20 53 54 41 20 59 4B 4F 50 49 C5 20 |T..F STA YKOPI. | 00002510: 46 20 42 43 53 20 59 4E 45 58 54 45 4E C4 30 46 |F BCS YNEXTEN.0F| 00002520: 20 44 45 43 20 59 4B 4F 50 49 45 2B B1 40 46 59 | DEC YKOPIE+.@FY| 00002530: 4E 45 58 54 45 4E 44 20 52 54 D3 50 46 20 3B 2A |NEXTEND RT.PF ;*| 00002540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002550: 2A 2A 2A 2A 2A 2A AA 60 46 20 BB 70 46 20 BB 80 |******.`F .pF ..| 00002560: 46 20 BB 90 46 20 3B 2A 2A 2A 58 20 55 4E 44 20 |F ..F ;***X UND | 00002570: 59 20 56 45 52 47 4C 45 49 43 48 45 4E 2A 2A AA |Y VERGLEICHEN**.| 00002580: 00 47 58 59 56 45 52 47 4C 20 4C 44 41 20 58 2B |.GXYVERGL LDA X+| 00002590: B1 10 47 20 43 4D 50 20 59 2B B1 20 47 20 42 43 |..G CMP Y+. G BC| 000025A0: 43 20 58 59 52 54 D3 30 47 20 42 4E 45 20 58 59 |C XYRT.0G BNE XY| 000025B0: 52 54 53 20 20 20 20 20 20 3B 41 55 53 47 41 4E |RTS ;AUSGAN| 000025C0: 47 BA 40 47 20 4C 44 41 20 58 20 20 20 20 20 20 |G.@G LDA X | 000025D0: 20 20 20 20 3B 43 41 52 52 59 20 53 45 54 2C 20 | ;CARRY SET, | 000025E0: 57 45 4E CE 50 47 20 43 4D 50 20 59 20 20 20 20 |WEN.PG CMP Y | 000025F0: 20 20 20 20 20 20 3B 58 20 45 43 48 54 28 21 29 | ;X ECHT(!)| 00002600: 20 3E 20 D9 60 47 20 42 43 43 20 58 59 52 54 D3 | > .`G BCC XYRT.| 00002610: 70 47 20 42 45 51 20 58 59 43 4C C3 80 47 58 59 |pG BEQ XYCL..GXY| 00002620: 52 54 53 20 52 54 D3 90 47 58 59 43 4C 43 20 43 |RTS RT..GXYCLC C| 00002630: 4C C3 00 48 20 52 54 D3 10 48 20 3B 2A 2A 2A 2A |L..H RT..H ;****| 00002640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002650: 2A 2A 2A 2A AA 20 48 20 BB 30 48 20 BB 40 48 20 |****. H .0H .@H | 00002660: BB 50 48 20 3B 2A 2A 2A 52 45 41 4C 5A 41 48 4C |.PH ;***REALZAHL| 00002670: 45 4E 20 56 45 52 47 4C 45 49 43 48 45 4E 2A 2A |EN VERGLEICHEN**| 00002680: AA 60 48 52 45 41 4C 56 45 52 47 4C 20 4C 44 41 |.`HREALVERGL LDA| 00002690: 20 58 20 3B 5A 45 49 47 45 52 20 41 55 C6 70 48 | X ;ZEIGER AU.pH| 000026A0: 20 4C 44 59 20 58 2B 31 20 20 20 20 20 20 20 20 | LDY X+1 | 000026B0: 3B 4B 4F 4E 53 54 41 4E 54 45 20 41 28 58 A9 80 |;KONSTANTE A(X..| 000026C0: 48 20 4A 53 52 20 46 41 43 4B 4F 4E 53 54 20 20 |H JSR FACKONST | 000026D0: 20 3B 41 28 58 29 20 4D 49 54 20 46 41 C3 90 48 | ;A(X) MIT FA..H| 000026E0: 20 42 45 51 20 52 45 41 4C 59 20 20 20 20 20 20 | BEQ REALY | 000026F0: 3B 28 3D 41 28 56 47 29 29 20 56 45 52 47 4C AE |;(=A(VG)) VERGL.| 00002700: 00 49 20 42 4D 49 20 52 45 41 4C D9 10 49 52 45 |.I BMI REAL..IRE| 00002710: 41 58 20 4A 53 52 20 58 4E 45 58 54 20 20 3B 58 |AX JSR XNEXT ;X| 00002720: 3D 58 2B 31 2C 20 57 45 4E CE 20 49 20 4A 4D 50 |=X+1, WEN. I JMP| 00002730: 20 52 45 41 4C 56 45 52 47 4C 20 20 3B 46 41 43 | REALVERGL ;FAC| 00002740: 3C 41 28 58 A9 30 49 20 BB 40 49 52 45 41 4C 59 |<A(X.0I .@IREALY| 00002750: 20 4C 44 41 20 59 20 20 20 20 20 3B 5A 45 49 47 | LDA Y ;ZEIG| 00002760: 45 52 20 41 55 C6 50 49 20 4C 44 59 20 59 2B 31 |ER AU.PI LDY Y+1| 00002770: 20 20 20 20 20 20 20 20 3B 4B 4F 4E 53 54 41 4E | ;KONSTAN| 00002780: 54 45 20 41 28 59 A9 60 49 20 4A 53 52 20 46 41 |TE A(Y.`I JSR FA| 00002790: 43 4B 4F 4E 53 54 20 20 20 3B 41 28 59 29 20 4D |CKONST ;A(Y) M| 000027A0: 49 54 20 46 41 C3 70 49 20 42 50 4C 20 52 45 41 |IT FA.pI BPL REA| 000027B0: 4C 52 54 53 20 20 20 20 3B 28 3D 41 28 56 47 29 |LRTS ;(=A(VG)| 000027C0: 29 20 56 45 52 47 4C AE 80 49 52 45 41 59 20 4A |) VERGL..IREAY J| 000027D0: 53 52 20 59 4C 41 53 D4 90 49 20 4A 4D 50 20 52 |SR YLAS..I JMP R| 000027E0: 45 41 4C 59 20 20 20 20 20 20 3B 59 3D 59 2D 31 |EALY ;Y=Y-1| 000027F0: 2C 20 57 45 4E CE 00 50 52 45 41 4C 52 54 53 20 |, WEN..PREALRTS | 00002800: 52 54 53 20 20 20 20 20 3B 46 41 43 3E 41 28 59 |RTS ;FAC>A(Y| 00002810: A9 10 50 20 BB 20 50 20 BB 30 50 20 3B 2A 2A 2A |..P . P .0P ;***| 00002820: 56 45 52 47 4C 45 49 43 48 20 49 4E 49 54 49 41 |VERGLEICH INITIA| 00002830: 4C 49 53 49 45 52 45 4E 2A 2A AA 40 50 43 4F 4D |LISIEREN**.@PCOM| 00002840: 50 41 52 45 20 4C 44 41 20 54 59 D0 50 50 20 42 |PARE LDA TY.PP B| 00002850: 45 51 20 53 54 52 56 45 52 47 CC 60 50 20 42 4D |EQ STRVERG.`P BM| 00002860: 49 20 52 45 41 4C 56 45 52 47 CC 70 50 20 BB 80 |I REALVERG.pP ..| 00002870: 50 20 BB 90 50 20 3B 2A 2A 2A 49 4E 54 45 47 45 |P ..P ;***INTEGE| 00002880: 52 56 45 52 47 4C 45 49 43 48 2A 2A AA 00 51 49 |RVERGLEICH**..QI| 00002890: 4E 54 58 20 4C 44 59 20 23 B0 10 51 20 4C 44 41 |NTX LDY #..Q LDA| 000028A0: 20 28 58 29 2C 59 20 20 20 20 20 20 3B 48 49 20 | (X),Y ;HI | 000028B0: 28 58 25 A9 20 51 20 4A 53 52 20 42 49 54 B7 30 |(X%. Q JSR BIT.0| 000028C0: 51 20 42 43 43 20 49 4E 54 31 20 20 20 20 20 20 |Q BCC INT1 | 000028D0: 20 3B 48 49 28 58 25 29 3C 48 49 28 56 47 25 29 | ;HI(X%)<HI(VG%)| 000028E0: 20 3D BE 40 51 20 42 4E 45 20 49 4E 54 59 20 20 | =.@Q BNE INTY | 000028F0: 20 20 20 20 20 3B 47 4C 45 49 43 48 3F 20 4E 45 | ;GLEICH? NE| 00002900: 49 4E 20 3D BE 50 51 20 BB 60 51 20 49 4E D9 70 |IN =.PQ .`Q IN.p| 00002910: 51 20 4C 44 41 20 28 58 29 2C 59 20 20 20 20 20 |Q LDA (X),Y | 00002920: 20 3B 4C 4F 20 28 58 25 A9 80 51 20 43 4D 50 20 | ;LO (X%..Q CMP | 00002930: 44 45 53 43 52 31 2B 31 20 20 20 3B 4C 4F 20 28 |DESCR1+1 ;LO (| 00002940: 56 47 25 A9 90 51 20 42 43 53 20 49 4E 54 59 20 |VG%..Q BCS INTY | 00002950: 20 20 20 20 20 20 3B 4C 4F 28 58 25 29 3E 3D 4C | ;LO(X%)>=L| 00002960: 4F 28 56 47 25 29 3D BE 00 52 49 4E 54 31 20 4A |O(VG%)=..RINT1 J| 00002970: 53 52 20 58 4E 45 58 54 20 20 3B 58 3D 58 2B B1 |SR XNEXT ;X=X+.| 00002980: 10 52 20 4A 4D 50 20 49 4E 54 D8 20 52 20 BB 30 |.R JMP INT. R .0| 00002990: 52 49 4E 54 59 20 4C 44 59 20 23 B0 40 52 20 4C |RINTY LDY #.@R L| 000029A0: 44 41 20 28 59 29 2C 59 20 20 20 20 20 20 3B 48 |DA (Y),Y ;H| 000029B0: 49 20 28 59 25 A9 50 52 20 4A 53 52 20 42 49 54 |I (Y%.PR JSR BIT| 000029C0: B7 60 52 20 42 43 43 20 56 49 4E 54 45 4E 44 20 |.`R BCC VINTEND | 000029D0: 20 20 20 3B 48 49 28 59 25 29 3C 48 49 28 56 47 | ;HI(Y%)<HI(VG| 000029E0: 25 29 20 3D BE 70 52 20 42 4E 45 20 49 4E 54 32 |%) =.pR BNE INT2| 000029F0: 20 20 20 20 20 20 20 3B 47 4C 45 49 43 48 3F 20 | ;GLEICH? | 00002A00: 4E 45 49 4E 20 3D BE 80 52 20 BB 90 52 20 49 4E |NEIN =..R ..R IN| 00002A10: D9 00 53 20 4C 44 41 20 28 59 29 2C 59 20 20 20 |..S LDA (Y),Y | 00002A20: 20 20 20 3B 4C 4F 20 28 59 25 A9 10 53 20 43 4D | ;LO (Y%..S CM| 00002A30: 50 20 44 45 53 43 52 31 2B 31 20 20 20 3B 4C 4F |P DESCR1+1 ;LO| 00002A40: 20 28 56 47 25 A9 20 53 20 42 43 43 20 56 49 4E | (VG%. S BCC VIN| 00002A50: 54 45 4E 44 20 20 20 20 3B 4C 4F 28 59 25 29 3C |TEND ;LO(Y%)<| 00002A60: 4C 4F 28 56 47 25 29 20 3D BE 30 53 20 42 45 51 |LO(VG%) =.0S BEQ| 00002A70: 20 56 49 4E 54 45 4E 44 20 20 20 20 3B 47 4C 45 | VINTEND ;GLE| 00002A80: 49 43 48 3F 20 4A 41 20 3D BE 40 53 49 4E 54 32 |ICH? JA =.@SINT2| 00002A90: 20 4A 53 52 20 59 4C 41 53 54 20 20 3B 59 3D 59 | JSR YLAST ;Y=Y| 00002AA0: 2D B1 50 53 20 4A 4D 50 20 49 4E 54 D9 60 53 56 |-.PS JMP INT.`SV| 00002AB0: 49 4E 54 45 4E 44 20 52 54 D3 70 53 20 BB 80 53 |INTEND RT.pS ..S| 00002AC0: 20 BB 90 53 20 3B 2A 2A 48 49 47 48 2D 42 59 54 | ..S ;**HIGH-BYT| 00002AD0: 45 53 20 56 45 52 47 4C 45 49 43 48 45 4E 2A AA |ES VERGLEICHEN*.| 00002AE0: 00 54 42 49 54 37 20 4C 44 58 20 44 45 53 43 52 |.TBIT7 LDX DESCR| 00002AF0: B1 10 54 20 43 50 58 20 23 31 32 38 20 20 20 20 |..T CPX #128 | 00002B00: 20 20 20 20 20 20 20 3B 56 47 25 20 4E 45 47 41 | ;VG% NEGA| 00002B10: 54 49 56 BF 20 54 20 42 43 53 20 56 47 4D 49 4E |TIV. T BCS VGMIN| 00002B20: 55 53 20 20 20 20 20 20 20 20 3B 4A 41 20 3D BE |US ;JA =.| 00002B30: 30 54 20 43 4D 50 20 23 31 32 38 20 20 20 20 20 |0T CMP #128 | 00002B40: 20 20 20 20 20 20 3B 58 25 2F 59 25 20 4E 45 47 | ;X%/Y% NEG| 00002B50: 41 54 2E BF 40 54 20 42 43 53 20 4E 55 52 58 59 |AT..@T BCS NURXY| 00002B60: 4D 49 4E 20 20 20 20 20 20 20 3B 4A 41 20 3D BE |MIN ;JA =.| 00002B70: 50 54 58 59 4D 49 54 56 47 20 43 4D 50 20 44 45 |PTXYMITVG CMP DE| 00002B80: 53 43 52 31 20 20 3B 58 25 2F 59 25 20 4D 49 54 |SCR1 ;X%/Y% MIT| 00002B90: 20 56 47 A5 60 54 20 52 54 53 20 20 20 20 20 20 | VG.`T RTS | 00002BA0: 20 20 20 20 20 20 20 20 20 20 3B 56 45 52 47 4C | ;VERGL| 00002BB0: 45 49 43 48 45 CE 70 54 20 BB 80 54 56 47 4D 49 |EICHE.pT ..TVGMI| 00002BC0: 4E 55 53 20 43 4D 50 20 23 31 32 38 20 20 20 20 |NUS CMP #128 | 00002BD0: 3B 41 55 43 48 20 58 25 2F 59 A5 90 54 20 42 43 |;AUCH X%/Y..T BC| 00002BE0: 43 20 4E 55 52 56 47 4D 49 4E 20 20 20 20 20 20 |C NURVGMIN | 00002BF0: 20 3B 4E 45 47 41 54 49 56 3F 20 4E 4F 3D BE 00 | ;NEGATIV? NO=..| 00002C00: 55 20 42 43 53 20 58 59 4D 49 54 56 47 20 20 20 |U BCS XYMITVG | 00002C10: 20 20 20 20 20 3B 4A 41 20 3D BE 10 55 20 BB 20 | ;JA =..U . | 00002C20: 55 4E 55 52 58 59 4D 49 4E 20 4C 44 41 20 23 31 |UNURXYMIN LDA #1| 00002C30: 20 20 20 20 20 3B 4C 4F 45 53 43 48 2E 5A 45 52 | ;LOESCH.ZER| 00002C40: 4F 46 AE 30 55 20 43 4C 43 20 20 20 20 20 20 20 |OF.0U CLC | 00002C50: 20 20 20 20 20 20 20 20 20 3B 58 25 2F 59 25 20 | ;X%/Y% | 00002C60: 45 43 48 54 28 21 A9 40 55 20 52 54 53 20 20 20 |ECHT(!.@U RTS | 00002C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 3C 20 | ;< | 00002C80: 41 4C 53 20 56 47 A5 50 55 20 BB 60 55 4E 55 52 |ALS VG.PU .`UNUR| 00002C90: 56 47 4D 49 4E 20 53 45 43 20 20 20 20 20 20 20 |VGMIN SEC | 00002CA0: 20 3B 58 25 2F 59 25 20 45 43 48 54 28 21 A9 70 | ;X%/Y% ECHT(!.p| 00002CB0: 55 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 |U RTS | 00002CC0: 20 20 20 20 20 3B 3E 20 41 4C 53 20 56 47 A5 80 | ;> ALS VG..| 00002CD0: 55 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |U ;*************| 00002CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 90 55 20 BB 00 56 |*********..U ..V| 00002CF0: 20 BB 10 56 20 BB 20 56 20 3B 2A 2A 2A 53 54 52 | ..V . V ;***STR| 00002D00: 49 4E 47 56 45 52 47 4C 2E 49 4E 49 54 49 41 4C |INGVERGL.INITIAL| 00002D10: 49 53 49 45 52 45 4E 2A 2A AA 30 56 53 54 52 56 |ISIEREN**.0VSTRV| 00002D20: 45 52 47 4C 20 4C 44 41 20 58 20 20 20 3B 41 24 |ERGL LDA X ;A$| 00002D30: 28 58 29 20 4D 49 54 20 41 24 28 56 47 A9 40 56 |(X) MIT A$(VG.@V| 00002D40: 56 4C 49 4E 4B 53 20 4C 44 58 20 58 2B 31 20 20 |VLINKS LDX X+1 | 00002D50: 20 3B 56 45 52 47 4C 45 49 43 48 45 4E BA 50 56 | ;VERGLEICHEN.PV| 00002D60: 20 53 54 41 20 53 54 52 20 20 20 20 20 20 20 20 | STA STR | 00002D70: 20 3B 5A 45 49 47 45 52 20 41 55 46 20 41 24 28 | ;ZEIGER AUF A$(| 00002D80: 58 A9 60 56 20 53 54 58 20 53 54 52 2B 31 20 20 |X.`V STX STR+1 | 00002D90: 20 20 20 20 20 3B 4E 41 43 48 20 53 54 52 2C 53 | ;NACH STR,S| 00002DA0: 54 52 2B B1 70 56 20 4A 53 52 20 56 45 52 47 4C |TR+.pV JSR VERGL| 00002DB0: 45 49 43 48 20 20 20 3B 56 45 52 47 4C 45 49 43 |EICH ;VERGLEIC| 00002DC0: 48 45 4E 20 3D BE 80 56 20 42 43 53 20 56 52 45 |HEN =..V BCS VRE| 00002DD0: 20 20 20 20 20 20 20 20 20 3B 53 45 43 20 3D 20 | ;SEC = | 00002DE0: 53 54 52 24 3E 3D 56 47 A4 90 56 20 4A 53 52 20 |STR$>=VG..V JSR | 00002DF0: 58 4E 45 58 D4 00 57 20 4A 4D 50 20 53 54 52 56 |XNEX..W JMP STRV| 00002E00: 45 52 47 4C 20 20 20 20 3B 57 45 4E 4E 20 53 54 |ERGL ;WENN ST| 00002E10: 52 24 3C 56 47 A4 10 57 20 BB 20 57 56 52 45 20 |R$<VG..W . WVRE | 00002E20: 4C 44 41 20 59 20 20 20 20 20 20 20 20 3B 53 54 |LDA Y ;ST| 00002E30: 52 24 28 59 29 3C 56 47 24 BF 30 57 56 52 45 43 |R$(Y)<VG$.0WVREC| 00002E40: 48 54 53 20 4C 44 58 20 59 2B B1 40 57 20 53 54 |HTS LDX Y+.@W ST| 00002E50: 41 20 53 54 52 20 20 20 20 20 20 20 20 20 3B 5A |A STR ;Z| 00002E60: 45 49 47 45 52 20 41 55 46 20 41 24 28 59 A9 50 |EIGER AUF A$(Y.P| 00002E70: 57 20 53 54 58 20 53 54 52 2B 31 20 20 20 20 20 |W STX STR+1 | 00002E80: 20 20 3B 4E 41 43 48 20 53 54 52 2C 53 54 52 2B | ;NACH STR,STR+| 00002E90: B1 60 57 20 4A 53 52 20 56 45 52 47 4C 45 49 43 |.`W JSR VERGLEIC| 00002EA0: 48 20 20 20 3B 56 45 52 47 4C 45 49 43 48 45 4E |H ;VERGLEICHEN| 00002EB0: BA 70 57 20 42 43 43 20 56 4C 49 20 20 20 20 20 |.pW BCC VLI | 00002EC0: 20 20 20 20 3B 53 45 43 20 3D 20 53 54 52 24 3E | ;SEC = STR$>| 00002ED0: 3D 56 47 A4 80 57 20 42 45 51 20 56 4C C9 90 57 |=VG..W BEQ VL..W| 00002EE0: 20 4A 53 52 20 59 4C 41 53 54 20 20 20 20 20 20 | JSR YLAST | 00002EF0: 20 3B 57 45 4E 4E 20 41 24 28 59 29 3C 56 47 A4 | ;WENN A$(Y)<VG.| 00002F00: 00 58 20 4A 4D 50 20 56 52 45 20 20 20 20 20 20 |.X JMP VRE | 00002F10: 20 20 20 3B 44 41 4E 4E 20 59 20 41 55 46 20 4C | ;DANN Y AUF L| 00002F20: 41 53 D4 10 58 56 4C 49 20 52 54 D3 20 58 20 BB |AS..XVLI RT. X .| 00002F30: 30 58 20 BB 40 58 20 3B 2A 2A 2A 53 54 52 49 4E |0X .@X ;***STRIN| 00002F40: 47 56 45 52 47 4C 45 49 43 48 2A 2A AA 50 58 56 |GVERGLEICH**.PXV| 00002F50: 45 52 47 4C 45 49 43 48 20 4C 44 59 20 23 32 20 |ERGLEICH LDY #2 | 00002F60: 20 20 3B 44 45 53 43 52 49 50 54 4F 52 45 CE 60 | ;DESCRIPTORE.`| 00002F70: 58 55 45 42 45 52 4E 20 4C 44 41 20 28 53 54 52 |XUEBERN LDA (STR| 00002F80: 29 2C 59 20 3B 56 4F 4E 20 53 54 52 24 20 4E 41 |),Y ;VON STR$ NA| 00002F90: 43 C8 70 58 20 53 54 41 20 44 45 53 43 52 31 2C |C.pX STA DESCR1,| 00002FA0: 59 20 20 20 20 20 20 3B 44 45 53 43 52 31 20 42 |Y ;DESCR1 B| 00002FB0: 49 D3 80 58 20 44 45 59 20 20 20 20 20 20 20 20 |I..X DEY | 00002FC0: 20 20 20 20 20 20 20 3B 44 45 53 43 52 32 2B 32 | ;DESCR2+2| 00002FD0: 20 48 4F 4C 45 CE 90 58 20 42 50 4C 20 55 45 42 | HOLE..X BPL UEB| 00002FE0: 45 52 CE 00 59 20 3B 20 20 20 20 20 20 20 20 20 |ER..Y ; | 00002FF0: 20 20 3B 44 45 53 43 52 20 41 55 46 20 47 45 57 | ;DESCR AUF GEW| 00003000: 55 45 4E 53 43 48 AD 10 59 20 4A 53 52 20 53 54 |UENSCH..Y JSR ST| 00003010: 52 54 45 49 4C 20 3B 54 45 53 20 53 54 52 49 4E |RTEIL ;TES STRIN| 00003020: 47 54 45 49 4C 46 45 4C C4 20 59 20 4C 44 59 20 |GTEILFEL. Y LDY | 00003030: 23 32 35 35 20 20 20 20 3B 49 4E 49 54 49 41 4C |#255 ;INITIAL| 00003040: 49 53 49 45 52 45 CE 30 59 20 BB 40 59 20 4C 44 |ISIERE.0Y .@Y LD| 00003050: 58 20 44 45 53 43 52 31 20 20 20 20 20 20 20 3B |X DESCR1 ;| 00003060: 4B 4C 45 49 4E 45 52 2E 53 54 52 49 4E 47 AD 50 |KLEINER.STRING.P| 00003070: 59 20 43 50 58 20 44 45 53 43 52 32 20 20 20 20 |Y CPX DESCR2 | 00003080: 20 20 20 3B 4C 41 45 4E 47 45 20 49 4E D3 60 59 | ;LAENGE IN.`Y| 00003090: 20 42 43 43 20 56 45 52 47 20 20 20 20 20 20 20 | BCC VERG | 000030A0: 20 20 3B 58 2D 52 45 47 2E 20 55 4E C4 70 59 20 | ;X-REG. UN.pY | 000030B0: 4C 44 58 20 44 45 53 43 52 32 20 20 20 20 20 20 |LDX DESCR2 | 000030C0: 20 3B 44 49 45 53 45 53 20 41 4C D3 80 59 56 45 | ;DIESES AL..YVE| 000030D0: 52 47 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 |RG INX | 000030E0: 3B 53 43 48 4C 45 49 46 45 4E 5A 2E 56 45 52 D7 |;SCHLEIFENZ.VER.| 000030F0: 90 59 20 BB 00 60 56 45 52 47 4C 20 44 45 58 20 |.Y ..`VERGL DEX | 00003100: 20 20 20 20 20 20 20 20 3B 56 45 52 47 4C 45 49 | ;VERGLEI| 00003110: 43 C8 10 60 20 42 4E 45 20 56 45 52 47 4C 31 20 |C..` BNE VERGL1 | 00003120: 20 20 20 20 20 20 3B 44 55 52 43 48 46 55 45 48 | ;DURCHFUEH| 00003130: 52 45 CE 20 60 20 4C 44 41 20 44 45 53 43 52 B1 |RE. ` LDA DESCR.| 00003140: 30 60 20 43 4D 50 20 44 45 53 43 52 B2 40 60 20 |0` CMP DESCR.@` | 00003150: 52 54 D3 50 60 56 45 52 47 4C 31 20 49 4E D9 60 |RT.P`VERGL1 IN.`| 00003160: 60 20 4C 44 41 20 28 44 45 53 43 52 31 2B 31 29 |` LDA (DESCR1+1)| 00003170: 2C 59 20 3B 43 41 52 52 59 20 43 4C 41 45 52 BD |,Y ;CARRY CLAER.| 00003180: 70 60 20 43 4D 50 20 28 44 45 53 43 52 32 2B 31 |p` CMP (DESCR2+1| 00003190: 29 2C 59 20 3B 53 54 52 31 3C 53 54 52 B2 80 60 |),Y ;STR1<STR..`| 000031A0: 20 42 45 51 20 56 45 52 47 4C 20 20 20 20 20 20 | BEQ VERGL | 000031B0: 20 20 3B 43 41 52 52 59 20 53 45 54 BD 90 60 20 | ;CARRY SET..` | 000031C0: 52 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |RTS | 000031D0: 20 3B 53 54 52 31 3E 53 54 52 B2 00 61 20 3B 2A | ;STR1>STR..a ;*| 000031E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000031F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 10 61 20 BB |***********..a .| 00003200: 20 61 20 BB 30 61 20 BB 40 61 20 3B 2A 2A 2A 56 | a .0a .@a ;***V| 00003210: 41 52 49 41 42 4C 45 4E 20 48 4F 4C 45 4E 2A 2A |ARIABLEN HOLEN**| 00003220: AA 50 61 48 4F 4C 56 41 52 20 4A 53 52 20 43 48 |.PaHOLVAR JSR CH| 00003230: 4B 4B 4F 4D 20 3B 45 52 53 54 45 53 20 41 52 52 |KKOM ;ERSTES ARR| 00003240: 41 59 AD 60 61 20 4A 53 52 20 47 45 54 50 4F 53 |AY.`a JSR GETPOS| 00003250: 20 20 20 20 20 20 20 3B 45 4C 45 4D 45 4E 54 20 | ;ELEMENT | 00003260: 48 4F 4C 45 CE 70 61 20 53 54 41 20 4C 47 B2 80 |HOLE.pa STA LG..| 00003270: 61 20 53 54 59 20 4C 47 32 2B B1 90 61 20 BB 00 |a STY LG2+..a ..| 00003280: 62 20 4A 53 52 20 43 48 4B 4B 4F 4D 20 20 20 20 |b JSR CHKKOM | 00003290: 20 20 20 3B 4C 45 54 5A 54 45 53 20 41 52 52 41 | ;LETZTES ARRA| 000032A0: 59 AD 10 62 20 4A 53 52 20 47 45 54 50 4F 53 20 |Y..b JSR GETPOS | 000032B0: 20 20 20 20 20 20 3B 45 4C 45 4D 45 4E 54 20 48 | ;ELEMENT H| 000032C0: 4F 4C 45 CE 20 62 20 53 54 41 20 52 47 B2 30 62 |OLE. b STA RG.0b| 000032D0: 20 53 54 59 20 52 47 32 2B B1 40 62 20 BB 50 62 | STY RG2+.@b .Pb| 000032E0: 20 BB 60 62 20 3B 2A 2A 2A 54 59 50 46 4C 41 47 | .`b ;***TYPFLAG| 000032F0: 2F 4F 46 46 53 45 54 20 45 52 5A 45 55 47 45 4E |/OFFSET ERZEUGEN| 00003300: 2A 2A AA 70 62 20 4C 44 58 20 23 30 20 20 20 20 |**.pb LDX #0 | 00003310: 20 20 20 20 20 3B 54 59 50 3D 54 59 50 46 4C 41 | ;TYP=TYPFLA| 00003320: C7 80 62 20 4C 44 59 20 23 32 20 20 20 20 20 20 |..b LDY #2 | 00003330: 20 20 20 3B 20 20 30 3D 53 54 52 49 4E C7 90 62 | ; 0=STRIN..b| 00003340: 20 4C 44 41 20 53 54 52 54 59 50 20 20 20 20 20 | LDA STRTYP | 00003350: 3B 31 32 37 3D 49 4E 54 45 47 45 D2 00 63 20 42 |;127=INTEGE..c B| 00003360: 4E 45 20 54 59 20 20 20 20 20 20 20 20 20 3B 31 |NE TY ;1| 00003370: 32 38 3D 52 45 41 CC 10 63 20 4C 44 58 20 23 31 |28=REA..c LDX #1| 00003380: 32 B8 20 63 20 4C 44 59 20 23 34 20 20 20 20 20 |2. c LDY #4 | 00003390: 20 20 20 20 3B 5A 41 48 4C 3D 53 43 48 4C 2E 5A | ;ZAHL=SCHL.Z| 000033A0: 41 45 48 4C 45 D2 30 63 20 4C 44 41 20 4E 55 4D |AEHLE.0c LDA NUM| 000033B0: 54 59 50 20 20 20 20 20 3B 20 20 32 3D 53 54 52 |TYP ; 2=STR| 000033C0: 49 4E C7 40 63 20 42 45 51 20 54 59 20 20 20 20 |IN.@c BEQ TY | 000033D0: 20 20 20 20 20 3B 20 20 31 3D 49 4E 54 45 47 45 | ; 1=INTEGE| 000033E0: D2 50 63 20 44 45 58 20 20 20 20 20 20 20 20 20 |.Pc DEX | 000033F0: 20 20 20 3B 20 20 34 3D 52 45 41 CC 60 63 20 4C | ; 4=REA.`c L| 00003400: 44 59 20 23 B1 70 63 54 59 20 53 54 58 20 54 59 |DY #.pcTY STX TY| 00003410: 50 B2 80 63 20 53 54 59 20 5A 41 48 4C B2 90 63 |P..c STY ZAHL..c| 00003420: 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 | INY | 00003430: 3B 4F 46 46 53 45 54 3D 53 43 48 4C 45 49 46 45 |;OFFSET=SCHLEIFE| 00003440: 4E AD 00 64 20 53 54 59 20 4F 46 46 53 45 54 32 |N..d STY OFFSET2| 00003450: 20 20 20 20 3B 5A 41 45 48 4C 45 52 2B B1 10 64 | ;ZAEHLER+..d| 00003460: 20 52 54 D3 20 64 20 3B 2A 2A 2A 2A 2A 2A 2A 2A | RT. d ;********| 00003470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003480: 2A AA 30 64 20 BB 40 64 20 BB 50 64 20 BB 60 64 |*.0d .@d .Pd .`d| 00003490: 20 3B 2A 2A 5A 45 49 47 45 52 20 41 55 46 20 53 | ;**ZEIGER AUF S| 000034A0: 54 52 49 4E 47 54 45 49 4C 20 48 4F 4C 45 4E 2A |TRINGTEIL HOLEN*| 000034B0: AA 70 64 20 3B 28 41 45 4E 44 45 52 54 20 44 45 |.pd ;(AENDERT DE| 000034C0: 53 43 52 20 2D 20 44 45 53 43 52 2B 32 BA 80 64 |SCR - DESCR+2..d| 000034D0: 20 3B 44 45 53 43 52 3D 4C 41 45 4E 47 45 20 42 | ;DESCR=LAENGE B| 000034E0: 49 53 20 4E 45 58 54 46 45 4C C4 90 64 20 3B 44 |IS NEXTFEL..d ;D| 000034F0: 45 53 43 52 2B 31 2C 44 45 53 43 52 2B 32 3D 5A |ESCR+1,DESCR+2=Z| 00003500: 45 49 47 45 52 20 41 55 C6 00 65 20 3B 50 4F 53 |EIGER AU..e ;POS| 00003510: 2E 44 45 53 20 53 54 52 49 4E 47 54 45 49 4C 46 |.DES STRINGTEILF| 00003520: 45 4C 44 45 53 A9 10 65 20 BB 20 65 53 54 52 54 |ELDES..e . eSTRT| 00003530: 45 49 4C 20 4C 44 41 20 46 45 4C 44 20 20 3B 4E |EIL LDA FELD ;N| 00003540: 4F 52 4D 2D 56 45 52 47 4C 45 49 43 48 BF 30 65 |ORM-VERGLEICH.0e| 00003550: 20 42 45 51 20 54 45 49 4C 52 54 53 20 20 20 20 | BEQ TEILRTS | 00003560: 20 20 3B 4A 41 20 3D BE 40 65 20 BB 50 65 20 BB | ;JA =.@e .Pe .| 00003570: 60 65 20 3B 2A 5A 55 20 47 45 57 55 45 4E 53 43 |`e ;*ZU GEWUENSC| 00003580: 48 54 45 4D 20 46 45 4C 44 20 56 4F 52 54 41 53 |HTEM FELD VORTAS| 00003590: 54 45 4E AA 70 65 20 4C 44 58 20 46 45 4C C4 80 |TEN.pe LDX FEL..| 000035A0: 65 20 4C 44 59 20 23 32 35 B5 90 65 20 BB 00 66 |e LDY #25..e ..f| 000035B0: 54 32 20 44 45 58 20 20 20 20 20 20 20 20 20 20 |T2 DEX | 000035C0: 3B 47 45 57 55 45 4E 53 43 48 54 45 53 20 46 45 |;GEWUENSCHTES FE| 000035D0: 4C C4 10 66 20 42 45 51 20 54 45 49 4C 4F 4B 20 |L..f BEQ TEILOK | 000035E0: 20 20 20 20 3B 47 45 46 55 4E 44 45 4E 3F 20 4A | ;GEFUNDEN? J| 000035F0: 41 20 3D BE 20 66 20 BB 30 66 54 31 20 49 4E 59 |A =. f .0fT1 INY| 00003600: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN| 00003610: 47 45 4E 44 C5 40 66 20 43 50 59 20 44 45 53 43 |GEND.@f CPY DESC| 00003620: 52 31 20 20 20 20 20 3B 45 52 52 45 49 43 48 54 |R1 ;ERREICHT| 00003630: BF 50 66 20 42 43 53 20 4C 4E 55 4C 4C 20 20 20 |.Pf BCS LNULL | 00003640: 20 20 20 3B 4A 41 20 3D BE 60 66 20 4C 44 41 20 | ;JA =.`f LDA | 00003650: 28 44 45 53 43 52 31 2B 31 29 2C D9 70 66 20 43 |(DESCR1+1),.pf C| 00003660: 4D 50 20 54 52 45 4E 4E 20 20 20 20 20 20 3B 54 |MP TRENN ;T| 00003670: 52 45 4E 4E 5A 45 49 43 48 45 4E BF 80 66 20 42 |RENNZEICHEN..f B| 00003680: 4E 45 20 54 31 20 20 20 20 20 20 20 20 20 3B 4E |NE T1 ;N| 00003690: 45 49 4E 20 3D BE 90 66 20 42 45 51 20 54 32 20 |EIN =..f BEQ T2 | 000036A0: 20 20 20 20 20 20 20 20 3B 4A 41 20 3D BE 00 67 | ;JA =..g| 000036B0: 20 BB 10 67 54 45 49 4C 4F 4B 20 53 54 59 20 48 | ..gTEILOK STY H| 000036C0: 45 4C 50 20 3B 48 45 4C 50 3D 50 4F 53 2E 20 31 |ELP ;HELP=POS. 1| 000036D0: 2E 5A 45 49 43 C8 20 67 20 49 4E 43 20 48 45 4C |.ZEIC. g INC HEL| 000036E0: 50 20 20 20 20 20 20 20 3B 56 2E 47 45 57 55 45 |P ;V.GEWUE| 000036F0: 4E 53 43 48 54 2E 46 45 4C C4 30 67 20 BB 40 67 |NSCHT.FEL.0g .@g| 00003700: 20 BB 50 67 20 3B 2A 5A 55 20 46 45 4C 44 45 4E | .Pg ;*ZU FELDEN| 00003710: 44 45 20 56 4F 52 54 41 53 54 45 4E AA 60 67 4F |DE VORTASTEN.`gO| 00003720: 4B 31 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B |K1 INY ;| 00003730: 54 52 45 4E 4E 3D 4C 45 54 5A 54 45 D3 70 67 20 |TRENN=LETZTE.pg | 00003740: 43 50 59 20 44 45 53 43 52 31 20 20 20 20 20 3B |CPY DESCR1 ;| 00003750: 53 54 52 49 4E 47 5A 45 49 43 48 45 4E BF 80 67 |STRINGZEICHEN..g| 00003760: 20 42 43 53 20 4E 45 58 54 4F 4B 20 20 20 20 20 | BCS NEXTOK | 00003770: 3B 4A 41 20 3D BE 90 67 20 4C 44 41 20 28 44 45 |;JA =..g LDA (DE| 00003780: 53 43 52 31 2B 31 29 2C D9 00 68 20 43 4D 50 20 |SCR1+1),..h CMP | 00003790: 54 52 45 4E 4E 20 20 20 20 20 20 3B 54 52 45 4E |TRENN ;TREN| 000037A0: 4E 45 49 43 48 45 4E BF 10 68 20 42 4E 45 20 4F |NEICHEN..h BNE O| 000037B0: 4B 31 20 20 20 20 20 20 20 20 3B 4E 45 49 4E 20 |K1 ;NEIN | 000037C0: 3D BE 20 68 20 BB 30 68 20 BB 40 68 20 3B 2A 44 |=. h .0h .@h ;*D| 000037D0: 45 53 43 52 49 50 54 4F 52 45 4E 20 41 55 46 20 |ESCRIPTOREN AUF | 000037E0: 47 45 57 2E 46 45 4C 44 AA 50 68 4E 45 58 54 4F |GEW.FELD.PhNEXTO| 000037F0: 4B 20 54 59 41 20 20 20 20 20 20 3B 46 45 4C 44 |K TYA ;FELD| 00003800: 4C 41 45 4E 47 45 BD 60 68 20 53 45 43 20 20 20 |LAENGE.`h SEC | 00003810: 20 20 20 20 20 20 20 20 20 3B 41 4E 46 41 4E 47 | ;ANFANG| 00003820: 20 4E 45 58 54 46 45 4C 44 AD 70 68 20 53 42 43 | NEXTFELD.ph SBC| 00003830: 20 48 45 4C 50 20 20 20 20 20 20 20 3B 41 4E 46 | HELP ;ANF| 00003840: 41 4E 47 20 41 4B 54 2E 46 45 4C C4 80 68 20 53 |ANG AKT.FEL..h S| 00003850: 54 41 20 44 45 53 43 52 B1 90 68 20 BB 00 69 20 |TA DESCR..h ..i | 00003860: 4C 44 41 20 48 45 4C 50 20 20 20 20 20 20 20 3B |LDA HELP ;| 00003870: 46 45 4C 44 50 4F 53 49 54 49 4F 4E BD 10 69 20 |FELDPOSITION..i | 00003880: 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 20 3B |CLC ;| 00003890: 53 54 52 49 4E 47 50 4F 53 49 54 49 4F 4E AB 20 |STRINGPOSITION. | 000038A0: 69 20 41 44 43 20 44 45 53 43 52 31 2B 31 20 20 |i ADC DESCR1+1 | 000038B0: 20 3B 50 4F 53 2E 44 45 53 20 46 45 4C 44 45 D3 | ;POS.DES FELDE.| 000038C0: 30 69 20 53 54 41 20 44 45 53 43 52 31 2B 31 20 |0i STA DESCR1+1 | 000038D0: 20 20 3B 49 4D 20 53 54 52 49 4E C7 40 69 20 42 | ;IM STRIN.@i B| 000038E0: 43 43 20 54 45 49 4C 52 54 D3 50 69 20 49 4E 43 |CC TEILRT.Pi INC| 000038F0: 20 44 45 53 43 52 31 2B B2 60 69 54 45 49 4C 52 | DESCR1+.`iTEILR| 00003900: 54 53 20 52 54 D3 70 69 20 BB 80 69 4C 4E 55 4C |TS RT.pi ..iLNUL| 00003910: 4C 20 4C 44 41 20 23 30 20 20 20 20 3B 46 45 4C |L LDA #0 ;FEL| 00003920: 44 4C 41 45 4E 47 45 20 30 2C 57 45 4E CE 90 69 |DLAENGE 0,WEN..i| 00003930: 20 53 54 41 20 44 45 53 43 52 31 20 20 20 20 20 | STA DESCR1 | 00003940: 3B 54 52 45 4E 4E 5A 45 49 43 48 45 4E 20 BD 00 |;TRENNZEICHEN ..| 00003950: 70 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 |p RTS | 00003960: 20 3B 4C 41 53 54 20 53 54 52 49 4E 47 5A 45 49 | ;LAST STRINGZEI| 00003970: 43 48 AE 10 70 20 3B 20 20 20 20 20 20 20 20 20 |CH..p ; | 00003980: 20 20 20 20 20 20 42 5A 57 2E 20 47 45 57 2E 46 | BZW. GEW.F| 00003990: 45 4C C4 20 70 20 3B 20 20 20 20 20 20 20 20 20 |EL. p ; | 000039A0: 20 20 20 20 20 20 4E 49 43 48 54 20 56 4F 52 48 | NICHT VORH| 000039B0: 41 4E 44 45 CE 30 70 20 3B 2A 2A 2A 2A 2A 2A 2A |ANDE.0p ;*******| 000039C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000039D0: 2A 2A 2A 2A 2A 2A AA 40 70 20 2E 45 CE FF |******.@p .E.. |
%..WI... ;*** QUICKSORT **... ;*
. . ;* (C) 1985 BY .0. ;* SAID
BALOUI .@. ;* .P. ;*****
***********.`. .P. ... ;SORTIERUNG BELIE
BIGER ARRAYTYPEN.. ;MITSORTIERUNG EINES
BELIEBIGEN.. ;ARRAYS.. ;SORTIERUNG KANN
AUF EINEN BEL. . ;TEIL DES ARRAYS BESCHR
AENKT0. ;WERDEN@. ;STRINGARRAYS KOENNEN
NACH EINEMP. ;BEL. STRINGTEIL SORTIERT W
ERDEN.`. ;DIE TEILE MUESSEN HIERZU MITP.
;EINEM BEL. ZEICHEN VONEINANDER.. ;GETR
ENNT WERDEN.. ... ... ;AUFRUF. . ;------
.0. ;SYS X,ASCII-CODE TRENNZEICHEN.@. ;
FELDNUMMER.P. ; SORTARRAY(X).`
. ; SORTARRAY(Y).P. ; (MITSORT
ARRAY(X)... ; (MITSORTARRAY(Y)... .
.. ;SYS X,94,2,A$(0),A$(52),P%(0)... ;
P%(52. . .0. .@. ;
TRENNZEICHEN: TRENNUNG MEHRERERP. ;
FELDER IN EINEM`. ;
STRING MIT BEL.ZEIP. ... ;FELDNUMMER:
SORTIEREN AB ANGEG... ; STRIN
GTEILFELD.. ; 0=GANZEN STR.SO
RT... . . ;SORTARRAY(X): ZU SORTIERENDES
0. ; ARRAY (SORTIERUNG@. ;
AB ELEMENT X).P. ;
BELIEBIGER ARRAY.`. ;
TYP KANN SORTIERTP. ; WERDE
N.. ... ;SORTARRAY(Y): ZU SORTIERENDES..
; ARRAY (SORTIERUNG.. ;
BIS ELEMENT Y. . .0. ;MITSORT
ARRAY(X): BELIEBIGES@. ;
MITZUSORTIER.P. ; ARRAY
`. .P. ;MITSORTARRAY(Y): BELIEBIGES.. ;
MITZUSORTIER... ;
ARRAY.. ... . . ;IM 'MITSORTAR
RAY' MUESSEN0. ;IDENTISCHE X/Y-WERTE ANG
EGEBEN@. ;WERDEN WIE IM SORTARRAY.P. .`.
.P. ...CHRGOT .DE $7...CHKKOM .DE $AEFD
..GETBYT .DE $B79E..GETPOS .DE $B08B .KO
NINARG .DE $BA8C ;KONSTANTE=>ARG0.FACKON
ST .DE $BC5B ;VERGL.:FAC/KO.@. .P.STRTYP
.DE $0D`.NUMTYP .DE $0EP.FAC .DE $6...A
RG .DE $69 ;FLIESSKOMMAAKKU #...DESCR
1 .DE FAC ;DESCRIPTOREN VON STR...DESCR2
.DE ARG ;DESCRIPTOREN VON STR... . . .0
.TRENN .DE $A5 ;TRENNZEICHEN@.FELD
.DE TRENN+1 ;SORTSTRINGTEILP.HELP .DE
FELD+.`. .P.ARRAY .DE HELP+1 ;ZEIGER AUF
ANZAHL DER ARRAYELEMENTE..VG .DE ARRAY+
2 ;POINTER AUF VERGLEICHSSTRING (=2.VERG
LEICHSELEMENT...STR .DE VG+2 ;POINTER
AUF 1.VERGLEICHSSTRING..X .DE STR+...Y .
DE X+. .TYP .DE Y+2 ;0=STRING/127=INT/12
8=REAL0.ZAHL .DE TYP+1 ;SCHLEIFENZAEHLER
FUER VERSCH.ARRAYTYPEN@.OFFSET .DE ZAHL
+1 ;OFFSET FUER VERSCH.ARRAYTYPEN FUER P
OINTER SETZENP.KORR .DE OFFSET+1 ;KORREK
TURFAKTOR FUER VERSCH.ARRAYTYPEN FUER VG
-ERMITTL.`. .P.XKOPIE .DE KORR+...YKOPIE
.DE XKOPIE+...TYP2 .DE YKOPIE+...ZAHL2
.DE TYP2+...OFFSET2 .DE ZAHL2+. . .0.Z .
DE OFFSET2+1 ;EBENENZAEHLER@.MITFLAG .DE
Z+1 ;FLAG FUER MITZUSORTIERENDES FELDP.
.`.LG .DE $0400 ;'STACK' FUER LINKE G
RENZENP.RG .DE $0480 ;'STACK' FUER REC
HTE GRENZEN..LG2 .DE $0500 ;'STACK' FUE
R LINKE GRENZE VON MITSORTARRAY..RG2 .DE
$0580 ;'STACK' FUER RECHTE GRENZE VON
MITSORTARRAY.. ... . . .BA $CC1.0. .OS@.
.P. .`. ;******************************
.P. ;********INITIALISIERUNG*******... ;
******************************... ... ..
. ;***INIT FUER SORTARRAY**. . JSR CHKKO
M ;TRENNZEICHEN0. JSR GETBYT
;U.NR.DES TEIL.@. STX TRENN ;FEL
DES (SORT.P. JSR CHKKOM ;VON STRIN
GS.`. JSR GETBYT ;HOLENP. STX FELD
.. ... JSR HOLVAR.. LDX #...HOL1 LDA TYP
2,X . STA TYP,X0. DEX@. BPL HOL.P. .`. L
DA ZAHL ;KORR.P. LDX TYP
;STRING: ... CPX #127 ;INTEGER
: ... BEQ NOLSR ;REAL: ... LSR A.
.NOLSR STA KORR . .0. LDA LG.@. LDX LG2+
.P. STA LG ;GRENZEN`. STX LG+1
;INITIALISIERENP. LDA RG... LDX
RG2+... STA RG.. STX RG+... . . .0. ;**
*INIT FUER MITZUS.ARRAY**.@. LDA #0
;FLAG FUER MITZU.P. STA MITFLAG ;
SORT.ARRAY INIT.`. JSR CHRGOT ;WENN
KOMMA FOLGT.P. CMP #',' ;PARAMETER
DES.. BNE INITEND ;MITZUSORTIERENDEN
.. JSR HOLVAR ;ARRAYS HOLEN UND.. IN
C MITFLAG ;MITFLAG=1 SETZEN.. . . .0.
;***EBENZAEHLER INITIALISIEREN**.@.INIT
END LDA #254 ;EBENENZAEHLERP. STA Z
;INITIALISIEREN`. ;***************
***************.P. ;********************
**********... ... ... ... ;*************
*****************. . ;*******QUICKSORT-R
OUTINE******.0. ;***********************
*******.@. .P. .`. ;***LG(Z)>=RG(Z)?**.P
.EINGANG INC Z ;EINE EBENE TIEFER.. INC
Z.. ... LDX Z.. LDA LG+1,X ;LG(Z) MI
T RG(Z. . CMP RG+1,X ;VERGLEICHEN0. B
CC EING.@. BNE RETP. LDA LG,X ;DURC
HGANG BEENDET.`. CMP RG,X ;WENN LG(
Z)>=RG(Z.P. BCC EING ;DANN 'RETURN.
..RET JMP RETURN.. ;******************..
.. . ;***X=LG(Z):Y=RG(Z)**.0 EING1
LDA LG,X@ EING STA X ;ZEIGER X UND Y
P LDA LG+1,X ;GLEICH DER LINKEN` ST
A X+1 ;BZW.RECHTEN GRENZEP LDA RG
,X ;AUF DER MOMENTANEN. STA Y
;EBENE INITIALIS.. LDA RG+1,X.! STA
Y+..! . ! LDA MITFLAG0! BEQ EINGEND@! .
P! LDA LG2,X ;WENN MITFLAG, AUCH`! S
TA XKOPIE ;FUER MITSORTARRAYP! LDA LG
2+1,X ;GRENZEN INIT..! STA XKOPIE+..!
LDA RG2,X." STA YKOPIE." LDA RG2+1,X " S
TA YKOPIE+.0" ;********************.@" .
P" .`" .P" ;***ZEIGER AUF VG-ELEM.RICHTE
N**.." .." ;**VERGLEICHSELEMENT ERMITTEL
N*..# ;(ENTSPRICHT IN BASIC:..# ; (VG=I
NT((X+Y)/2). # .0#EINGEND LDA Y@# CLC
;DIE ZEIGER X UND YP# ADC X
;ADDIEREN. ERGEBNIS`# STA VG
;VG(LO) UNDP# LDA X+1 ;AKKU(HI..#
ADC Y+..# ..$ ROR A ;AKKU=HI/..$
STA VG+1 ;VG+1=HI/. $ ROR VG
;VG=LO/.0$ .@$ BCS SR ;REST (NU
R BEI REALP$ LDA TYP ;/STRING)? JA
=.`$ CMP #127 ;SORTARRAYTYP INT.P$
BNE VARHOL ;NEIN =..$ ..$ LDA VG
;ZEIGER AUF VERGL...% EOR X
;ELEM.EBENSO GERADE.% LSR A ;ODE
R UNGERADE WIE % BCC VARHOL ;DIE LINK
E GRENZE.0% ; ;JA =.@%SR LDA
VGP% SEC ;ZEIGER AUF VERGL..`
% SBC KORR ;ELEMENT KORRIG.P% STA V
G.% BCS VARHOL.% DEC VG+..& ;***********
*******************..& . & ;**INTVAR./ST
R.DESCR.HOLEN*.0&VARHOL LDY ZAHL@&HOLSTR
LDA (VG),Y ;VG% BZW.DESCR.P& STA DESCR
1,Y ;VON VG$ NACH`& DEY
;DESCR1(+2.P& BPL HOLSTR.& ;*********
*****************..& ..' LDA TYP.' BMI R
EALTYP ' BNE NEXT0' .@' ;**STRINGDESCR.A
UF STRINGTEIL*.P' JSR STRTEIL ;DESCR.FU
ER STRTEIL`' .P' LDX ZAHL ;ENDG
UELTIGE.'HSTR LDA DESCR1,X ;STRINGDESCR
..' STA DESCR2,X ;NACH DESCR2 ..( D
EX ;DESCR2+..( BPL HSTR (
BMI NEXT ;ABS.0( ;*************
****************.@( .P( ;**REAL=>ARG/KON
ST=>FAC/FAC=>ARG.`(REALTYP LDA #L,DESCR1
;KONSTANTEP( LDY #H,DESCR1 ;NACH
ARG.( JSR KONINARG.( ..) LDX ZAHL
;ARG NACH FAC.)ARGINFAC LDA ARG,X ;K
OPIEREN ) STA FAC,X0) DEX@) BPL ARGINFAC
P) ;*******************************.`) .
P) ..) ..) ;***X>Y? JA=>EINE EBENE TIEFE
R**..0NEXT JSR XYVERGL ;X MIT Y VERGL..0
BCS TEILFELD ;X>Y? JA=. 0 ;*********
**********************.00 .@0 .P0 .`0 ;*
**VAR(X/Y) MIT VAR(VG) VERGL**.P0 JSR CO
MPARE.0 ;*******************************
..0 ..1 ..1 . 1 ;***X>Y? JA=>EINE EBENE
TIEFER**.01 JSR XYVERGL ;X>Y .@1 BCS
TEILFELD ;JA =.P1 ;*****************
**************.`1 .P1 ..1 ..1 ;***SWAP V
AR(X) UND VAR(Y)**..2 LDY ZAHL ;DIE
DESCRIPTOREN.2SWAP LDA (X),Y ;VON A$(X)
UND 2 TAX ;UND A$(Y. MIT.02 L
DA (Y),Y ;EINANDER VERTAU.@2 STA (X)
,Y ;SCHENP2 TXA`2 STA (Y),Y ;S$=
A$(X):A$(X).P2 DEY ;A$(Y):A$(Y
)=S..2 BPL SWAP.2 ..3 LDA MITFLAG.3 BEQ
SWAPEND 3 .03 LDY ZAHL.@3SWAP2 LDA (XKOP
IE),YP3 TAX`3 LDA (YKOPIE),Y ;WENN MITF
LAG.P3 STA (XKOPIE),Y ;AUCH DIE DESCR..
3 TXA ;VON MITSORTARRAY.3 ST
A (YKOPIE),Y ;VERTAUSCHEN.4 DEY.4 BPL S
WAP. 4 ;***************************.04 .
@4 .P4 .`4 ;***X AUF NEXT,Y AUF LAST ELE
M**.P4SWAPEND JSR XNEXT ;ZEIGER X AUF.4
; NEXT ELEMENT.4 ..5 JSR
YLAST ;ZEIGER Y AUF.5 ;
LAST ELEMENT 5 .05 JMP NEXT
;NAECHSTE RUNDE.@5 ;****************
***************.P5 .`5 .P5 ..5 ;***LINKE
S TEILFELD ERMITTELN**..5TEILFELD LDX Z.
6 LDA Y ;NAECHSTE RECHTE.6 ST
A RG+2,X ;GRENZE=MOMENT. 6 LDA Y+1
;RECHTER ZEIGER06 STA RG+3,X@6
LDA LG,X ;NAECHSTE LINKEP6 STA
LG+2,X ;GRENZE=MOMENT.`6 LDA LG+1,
X ;LINKE GRENZEP6 STA LG+3,X.6 ..6
LDA MITFLAG.7 BEQ LIEND.7 . 7 LDA YKOPI
E ;WENN MITFLAG.07 STA RG2+2,X
;AUCH NEUE@7 LDA YKOPIE+1 ;GRENZEN
FUERP7 STA RG2+3,X ;MITSORTARRAY`7
LDA LG2,X ;FESTLEGENP7 STA LG2+2
,X.7 LDA LG2+1,X.7 STA LG2+3,X.8LIEND JS
R EINGANG.8 ;***************************
***. 8 .08 .@8 ;***RECHTES TEILFELD ERMI
TTELN**.P8 LDX Z`8 LDA X ;NAE
CHSTE LINKEP8 STA LG+2,X ;GRENZE=M
OMENT..8 LDA X+1 ;LINKER ZEIGER
.8 STA LG+3,X.9 LDA RG,X ;NAECHS
TE RECHTE.9 STA RG+2,X ;GRENZE=MOM
ENT. 9 LDA RG+1,X ;RECHTE GRENZE09
STA RG+3,X@9 .P9 LDA MITFLAG`9 BEQ REEN
DP9 ..9 LDA XKOPIE ;WENN MITFLAG..
9 STA LG2+2,X ;GLEICHES FUER.@ LDA
XKOPIE+1 ;MITSORTARRAY.@ STA LG2+3,X
@ LDA RG2,X0@ STA RG2+2,X@@ LDA RG2+1,X
P@ STA RG2+3,X`@REEND JSR EINGANGP@ ;***
****************************..@ ..@ ..A
..A ;***EINE EBENE HOEHER**. ARETURN DEC
Z0A DEC Z@A RTSPA ;********************
**.`A ;**********************.PA ..A ..A
..B ..B ;******************. B ;***UNTE
RROUTINEN**.0B ;******************.@B .P
B .`B ;***X AUF NEXT ELEMENT**.PBXNEXT L
DA X.B CLC.B ADC OFFSET.C STA X
;ZEIGER AUF.C BCC XNEX ;NAECHSTES
ELEMENT C INC X+.0C .@CXNEX LDA MITFLAG
PC BEQ XNEXTEND`C .PC LDA XKOPIE.C CLC.C
ADC OFFSET..D STA XKOPIE.D BCC XNEXTEND
D INC XKOPIE+.0DXNEXTEND RTS@D ;*******
****************.PD .`D .PD ;***Y AUF LA
ST ELEMENT**..DYLAST LDA Y.D SEC.E SBC O
FFSET ;ZEIGER AUF.E STA Y
;VORIGES ELEMENT E BCS YNEX0E DEC Y+.
@E .PEYNEX LDA MITFLAG`E BEQ YNEXTENDPE
..E LDA YKOPIE.E SEC.F SBC OFFSET..F STA
YKOPIE F BCS YNEXTEND0F DEC YKOPIE+.@FY
NEXTEND RTSPF ;***********************.`
F .PF ..F ..F ;***X UND Y VERGLEICHEN**.
.GXYVERGL LDA X+..G CMP Y+. G BCC XYRTS0
G BNE XYRTS ;AUSGANG.@G LDA X
;CARRY SET, WENNPG CMP Y ;X
ECHT(!) > Y`G BCC XYRTSPG BEQ XYCLC.GXY
RTS RTS.GXYCLC CLC.H RTS.H ;************
************. H .0H .@H .PH ;***REALZAHL
EN VERGLEICHEN**.`HREALVERGL LDA X ;ZEIG
ER AUFPH LDY X+1 ;KONSTANTE A(X..
H JSR FACKONST ;A(X) MIT FAC.H BEQ REA
LY ;(=A(VG)) VERGL..I BMI REALY.IRE
AX JSR XNEXT ;X=X+1, WENN I JMP REALVER
GL ;FAC<A(X.0I .@IREALY LDA Y ;ZEIG
ER AUFPI LDY Y+1 ;KONSTANTE A(Y.`
I JSR FACKONST ;A(Y) MIT FACPI BPL REA
LRTS ;(=A(VG)) VERGL..IREAY JSR YLAST
.I JMP REALY ;Y=Y-1, WENN.PREALRTS
RTS ;FAC>A(Y..P . P .0P ;***VERGLEIC
H INITIALISIEREN**.@PCOMPARE LDA TYPPP B
EQ STRVERGL`P BMI REALVERGLPP ..P ..P ;*
**INTEGERVERGLEICH**..QINTX LDY #..Q LDA
(X),Y ;HI (X%. Q JSR BIT.0Q BCC IN
T1 ;HI(X%)<HI(VG%) =.@Q BNE INTY
;GLEICH? NEIN =.PQ .`Q INYPQ LDA (X
),Y ;LO (X%..Q CMP DESCR1+1 ;LO (
VG%..Q BCS INTY ;LO(X%)>=LO(VG%)=.
.RINT1 JSR XNEXT ;X=X+..R JMP INTX R .0
RINTY LDY #.@R LDA (Y),Y ;HI (Y%.PR
JSR BIT.`R BCC VINTEND ;HI(Y%)<HI(VG
%) =.PR BNE INT2 ;GLEICH? NEIN =..
R ..R INY.S LDA (Y),Y ;LO (Y%..S CM
P DESCR1+1 ;LO (VG%. S BCC VINTEND
;LO(Y%)<LO(VG%) =.0S BEQ VINTEND ;GLE
ICH? JA =.@SINT2 JSR YLAST ;Y=Y-.PS JMP
INTY`SVINTEND RTSPS ..S ..S ;**HIGH-BYT
ES VERGLEICHEN*..TBIT7 LDX DESCR..T CPX
#128 ;VG% NEGATIV. T BCS VGMIN
US ;JA =.0T CMP #128 ;X
%/Y% NEGAT..@T BCS NURXYMIN ;JA =.
PTXYMITVG CMP DESCR1 ;X%/Y% MIT VG.`T R
TS ;VERGLEICHENPT ..TVGMI
NUS CMP #128 ;AUCH X%/Y..T BCC NURVGM
IN ;NEGATIV? NO=..U BCS XYMITVG
;JA =..U . UNURXYMIN LDA #1 ;LO
ESCH.ZEROF.0U CLC ;X%/Y%
ECHT(!.@U RTS ;< ALS VG.P
U .`UNURVGMIN SEC ;X%/Y% ECHT(!.P
U RTS ;> ALS VG..U ;*****
*****************..U ..V ..V . V ;***STR
INGVERGL.INITIALISIEREN**.0VSTRVERGL LDA
X ;A$(X) MIT A$(VG.@VVLINKS LDX X+1
;VERGLEICHEN.PV STA STR ;ZEIGER
AUF A$(X.`V STX STR+1 ;NACH STR,S
TR+.PV JSR VERGLEICH ;VERGLEICHEN =..V
BCS VRE ;SEC = STR$>=VG..V JSR
XNEXT.W JMP STRVERGL ;WENN STR$<VG..W
. WVRE LDA Y ;STR$(Y)<VG$.0WVREC
HTS LDX Y+.@W STA STR ;ZEIGER AU
F A$(Y.PW STX STR+1 ;NACH STR,STR+
.`W JSR VERGLEICH ;VERGLEICHEN.PW BCC
VLI ;SEC = STR$>=VG..W BEQ VLI.W
JSR YLAST ;WENN A$(Y)<VG..X JMP V
RE ;DANN Y AUF LAST.XVLI RTS X .
0X .@X ;***STRINGVERGLEICH**.PXVERGLEICH
LDY #2 ;DESCRIPTOREN`XUEBERN LDA (STR
),Y ;VON STR$ NACHPX STA DESCR1,Y ;
DESCR1 BIS.X DEY ;DESCR2+2
HOLEN.X BPL UEBERN.Y ; ;DESCR
AUF GEWUENSCH..Y JSR STRTEIL ;TES STRIN
GTEILFELD Y LDY #255 ;INITIALISIEREN0
Y .@Y LDX DESCR1 ;KLEINER.STRING.P
Y CPX DESCR2 ;LAENGE INS`Y BCC VER
G ;X-REG. UNDPY LDX DESCR2
;DIESES ALS.YVERG INX ;SCHLEIF
ENZ.VERW.Y ..`VERGL DEX ;VERGLEI
CH.` BNE VERGL1 ;DURCHFUEHREN ` LD
A DESCR.0` CMP DESCR.@` RTSP`VERGL1 INY`
` LDA (DESCR1+1),Y ;CARRY CLAER.P` CMP (
DESCR2+1),Y ;STR1<STR..` BEQ VERGL
;CARRY SET..` RTS ;STR1>S
TR..A ;****************************..A .
A .0A .@A ;***VARIABLEN HOLEN**.PAHOLVA
R JSR CHKKOM ;ERSTES ARRAY.`A JSR GETPOS
;ELEMENT HOLENPA STA LG..A STY LG
2+..A ..B JSR CHKKOM ;LETZTES ARRA
Y..B JSR GETPOS ;ELEMENT HOLEN B S
TA RG.0B STY RG2+.@B .PB .`B ;***TYPFLAG
/OFFSET ERZEUGEN**.PB LDX #0 ;TY
P=TYPFLAG.B LDY #2 ; 0=STRING.B
LDA STRTYP ;127=INTEGER.C BNE TY
;128=REAL.C LDX #12. C LDY #4
;ZAHL=SCHL.ZAEHLER0C LDA NUMTYP
; 2=STRING@C BEQ TY ; 1=INTEGE
RPC DEX ; 4=REAL`C LDY #.PCT
Y STX TYP..C STY ZAHL..C INY
;OFFSET=SCHLEIFEN..D STY OFFSET2 ;ZAE
HLER+..D RTS D ;************************
*.0D .@D .PD .`D ;**ZEIGER AUF STRINGTEI
L HOLEN*.PD ;(AENDERT DESCR - DESCR+2..D
;DESCR=LAENGE BIS NEXTFELD.D ;DESCR+1,D
ESCR+2=ZEIGER AUF.E ;POS.DES STRINGTEILF
ELDES..E . ESTRTEIL LDA FELD ;NORM-VERG
LEICH.0E BEQ TEILRTS ;JA =.@E .PE .
`E ;*ZU GEWUENSCHTEM FELD VORTASTEN.PE L
DX FELD.E LDY #25..E ..FT2 DEX
;GEWUENSCHTES FELD.F BEQ TEILOK ;GEF
UNDEN? JA =. F .0FT1 INY ;STRIN
GENDE@F CPY DESCR1 ;ERREICHT.PF BCS
LNULL ;JA =.`F LDA (DESCR1+1),YPF C
MP TRENN ;TRENNZEICHEN..F BNE T1
;NEIN =..F BEQ T2 ;JA =..G
..GTEILOK STY HELP ;HELP=POS. 1.ZEICH G
INC HELP ;V.GEWUENSCHT.FELD0G .@G
.PG ;*ZU FELDENDE VORTASTEN.`GOK1 INY
;TRENN=LETZTESPG CPY DESCR1 ;
STRINGZEICHEN..G BCS NEXTOK ;JA =..G
LDA (DESCR1+1),Y.H CMP TRENN ;TREN
NEICHEN..H BNE OK1 ;NEIN =. H .0H
.@H ;*DESCRIPTOREN AUF GEW.FELD.PHNEXTO
K TYA ;FELDLAENGE.`H SEC
;ANFANG NEXTFELD.PH SBC HELP ;ANF
ANG AKT.FELD.H STA DESCR..H ..I LDA HELP
;FELDPOSITION..I CLC ;
STRINGPOSITION. I ADC DESCR1+1 ;POS.DE
S FELDES0I STA DESCR1+1 ;IM STRING@I B
CC TEILRTSPI INC DESCR1+.`ITEILRTS RTSPI
..ILNULL LDA #0 ;FELDLAENGE 0,WENN.I
STA DESCR1 ;TRENNZEICHEN ..P RTS
;LAST STRINGZEICH..P ;
BZW. GEW.FELD P ; NI
CHT VORHANDEN0P ;***********************
******.@P .EN.
> CLICK IMAGE PREVIEW FOR FULL MODAL