00000000: 01 1C 0C 1C 64 00 DE 20 35 3A FE 25 00 3A 1C 6E |....d.. 5:.%.:.n|
00000010: 00 99 22 93 50 52 4F 47 52 41 4D 4D 20 5A 55 4D |..".PROGRAMM ZUM|
00000020: 20 54 45 53 54 45 4E 20 44 45 52 20 53 4F 52 54 | TESTEN DER SORT|
00000030: 45 58 50 41 4E 53 49 4F 4E 22 00 68 1C 78 00 99 |EXPANSION".h.x..|
00000040: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
00000050: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000060: B8 B8 B8 B8 B8 B8 B8 22 00 6E 1C 82 00 3A 00 89 |.......".n...:..|
00000070: 1C 8C 00 8B 20 C2 28 D1 28 22 30 42 30 30 22 29 |.... .(.("0B00")|
00000080: 29 B2 38 20 89 20 31 39 30 00 B5 1C 96 00 99 22 |).8 . 190......"|
00000090: 11 53 4F 52 54 52 4F 55 54 49 4E 45 20 55 4E 44 |.SORTROUTINE UND|
000000A0: 20 53 4F 52 54 45 58 50 41 4E 53 49 4F 4E 20 4C | SORTEXPANSION L|
000000B0: 41 44 45 4E 22 00 E7 1C A0 00 FE 11 22 53 4F 52 |ADEN"......."SOR|
000000C0: 54 45 58 50 41 4E 53 49 4F 4E 22 20 20 20 20 3A |TEXPANSION" :|
000000D0: 20 8F 20 45 49 47 45 4E 45 20 53 4F 52 54 45 58 | . EIGENE SORTEX|
000000E0: 50 41 4E 53 49 4F 4E 00 2A 1D AA 00 FE 11 22 43 |PANSION.*....."C|
000000F0: 31 32 38 2D 53 4F 52 54 52 4F 55 54 49 4E 45 22 |128-SORTROUTINE"|
00000100: 20 3A 20 8F 20 41 53 53 45 4D 42 4C 45 52 2D 51 | : . ASSEMBLER-Q|
00000110: 55 49 43 4B 53 4F 52 54 20 41 55 53 20 53 4F 4E |UICKSORT AUS SON|
00000120: 44 45 52 48 45 46 54 20 32 32 00 30 1D B4 00 3A |DERHEFT 22.0...:|
00000130: 00 53 1D BE 00 99 22 11 45 52 53 54 45 4C 4C 45 |.S....".ERSTELLE|
00000140: 4E 20 56 4F 4E 20 44 52 45 49 20 46 45 4C 44 45 |N VON DREI FELDE|
00000150: 52 4E 22 00 74 1D C8 00 48 B2 32 32 3A 86 20 41 |RN".t...H.22:. A|
00000160: 24 28 48 29 3A 86 20 42 24 28 48 29 3A 86 20 43 |$(H):. B$(H):. C|
00000170: 24 28 48 29 00 82 1D D2 00 81 20 49 B2 31 20 A4 |$(H)...... I.1 .|
00000180: 20 48 00 95 1D DC 00 8D 20 34 31 30 3A 41 24 28 | H...... 410:A$(|
00000190: 49 29 B2 41 24 00 A8 1D E6 00 8D 20 34 31 30 3A |I).A$...... 410:|
000001A0: 42 24 28 49 29 B2 41 24 00 BB 1D F0 00 8D 20 34 |B$(I).A$...... 4|
000001B0: 31 30 3A 43 24 28 49 29 B2 41 24 00 C3 1D FA 00 |10:C$(I).A$.....|
000001C0: 82 20 49 00 C9 1D 04 01 3A 00 F2 1D 0E 01 99 22 |. I.....:......"|
000001D0: 93 41 55 53 47 41 42 45 20 44 45 52 20 46 45 4C |.AUSGABE DER FEL|
000001E0: 44 45 52 20 28 55 4E 53 4F 52 54 49 45 52 54 29 |DER (UNSORTIERT)|
000001F0: 11 22 00 02 1E 18 01 8D 20 34 33 30 3A A1 F9 20 |."...... 430:.. |
00000200: 41 24 00 08 1E 22 01 3A 00 48 1E 2C 01 99 22 93 |A$...".:.H.,..".|
00000210: 53 4F 52 54 49 45 52 45 4E 20 56 4F 4E 20 46 45 |SORTIEREN VON FE|
00000220: 4C 44 20 31 20 28 46 45 4C 44 4E 55 4D 4D 45 52 |LD 1 (FELDNUMMER|
00000230: 3D 30 29 20 4F 48 4E 45 20 53 4F 52 54 45 58 50 |=0) OHNE SORTEXP|
00000240: 41 4E 53 49 4F 4E 11 22 00 64 1E 36 01 9E 20 D1 |ANSION.".d.6.. .|
00000250: 28 22 31 33 30 30 22 29 3A 8D 20 34 33 30 3A A1 |("1300"):. 430:.|
00000260: F9 20 41 24 00 6A 1E 40 01 3A 00 A9 1E 4A 01 99 |. A$.j.@.:...J..|
00000270: 22 93 53 4F 52 54 49 45 52 45 4E 20 56 4F 4E 20 |".SORTIEREN VON |
00000280: 46 45 4C 44 20 32 20 28 46 45 4C 44 4E 55 4D 4D |FELD 2 (FELDNUMM|
00000290: 45 52 3D 31 29 20 4D 49 54 20 53 4F 52 54 45 58 |ER=1) MIT SORTEX|
000002A0: 50 41 4E 53 49 4F 4E 11 22 00 CD 1E 54 01 97 20 |PANSION."...T.. |
000002B0: 39 39 39 2C 31 3A 9E 20 D1 28 22 30 42 30 30 22 |999,1:. .("0B00"|
000002C0: 29 3A 8D 20 34 33 30 3A A1 F9 20 41 24 00 D3 1E |):. 430:.. A$...|
000002D0: 5E 01 3A 00 12 1F 68 01 99 22 93 53 4F 52 54 49 |^.:...h..".SORTI|
000002E0: 45 52 45 4E 20 56 4F 4E 20 46 45 4C 44 20 33 20 |EREN VON FELD 3 |
000002F0: 28 46 45 4C 44 4E 55 4D 4D 45 52 3D 32 29 20 4D |(FELDNUMMER=2) M|
00000300: 49 54 20 53 4F 52 54 45 58 50 41 4E 53 49 4F 4E |IT SORTEXPANSION|
00000310: 11 22 00 36 1F 72 01 97 20 39 39 39 2C 32 3A 9E |.".6.r.. 999,2:.|
00000320: 20 D1 28 22 30 42 30 30 22 29 3A 8D 20 34 33 30 | .("0B00"):. 430|
00000330: 3A A1 F9 20 41 24 00 3C 1F 7C 01 80 00 42 1F 86 |:.. A$.<.|...B..|
00000340: 01 3A 00 48 1F 90 01 3A 00 78 1F 9A 01 41 24 B2 |.:.H...:.x...A$.|
00000350: 22 22 3A 81 20 49 31 B2 31 20 A4 20 33 3A 41 24 |"":. I1.1 . 3:A$|
00000360: B2 41 24 AA C7 28 BB 28 30 29 AC 32 36 AA 36 35 |.A$..(.(0).26.65|
00000370: 29 3A 82 20 49 31 3A 8E 00 7E 1F A4 01 3A 00 A5 |):. I1:..~...:..|
00000380: 1F AE 01 81 20 49 B2 31 20 A4 20 48 3A 99 41 24 |.... I.1 . H:.A$|
00000390: 28 49 29 2C 42 24 28 49 29 2C 43 24 28 49 29 3A |(I),B$(I),C$(I):|
000003A0: 82 20 49 3A 8E 00 00 00 |. I:.... |
....D.. 5:.%.:.N..".PROGRAMM ZUM TESTEN
DER SORTEXPANSION".H.X.."...............
.......................".N...:...... B(Q
("0B00")).8 . 190......".SORTROUTINE UND
SORTEXPANSION LADEN"... ..."SORTEXPANSI
ON" : . EIGENE SORTEXPANSION.*....."C
128-SORTROUTINE" : . ASSEMBLER-QUICKSORT
AUS SONDERHEFT 22.0...:.S....".ERSTELLE
N VON DREI FELDERN".T.H.H.22:. A$(H):. B
$(H):. C$(H)...R.. I.1 . H...... 410:A$(
I).A$...... 410:B$(I).A$...... 410:C$(I)
.A$.C.... I.I...:......".AUSGABE DER FEL
DER (UNSORTIERT)."...... 430:.. A$...".:
.H.,..".SORTIEREN VON FELD 1 (FELDNUMMER
=0) OHNE SORTEXPANSION.".D.6.. Q("1300")
:. 430:.. A$.J.@.:...J..".SORTIEREN VON
FELD 2 (FELDNUMMER=1) MIT SORTEXPANSION.
".M.T.. 999,1:. Q("0B00"):. 430:.. A$.S.
^.:...H..".SORTIEREN VON FELD 3 (FELDNUM
MER=2) MIT SORTEXPANSION.".6.R.. 999,2:.
Q("0B00"):. 430:.. A$.<.|...B...:.H...:
.X...A$."":. I1.1 . 3:A$.A$.G(.(0).26.65
):. I1:..~...:...... I.1 . H:.A$(I),B$(I
),C$(I):. I:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL