SORTEXPAN.ASE

FILE INFORMATION

FILENAME(S): SORTEXPAN.ASE

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-11-02 16:30:17

APPEARS ON: 3 disk(s)

FILE HASH

6428acf2c11dd8ec3125c802424965ae5ff2aca39c5e598ef30bdba5f9f2510d

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
128ER SONDERH 76	SORTEXPAN.ASE	PRG	Treasure Chest - Onkel Wolfgang	4	9	DOWNLOAD FILE
128 ER SONDER 76	SORTEXPAN.ASE	PRG	C64er	4	9	DOWNLOAD FILE
64 ER SH 76 B	SORTEXPAN.ASE	PRG	DuncanTwain	4	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0F 62 5D 62 64 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.b]bd.;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000050: AB 62 6E 00 3B 2A 20 45  52 57 45 49 54 45 52 55  |.bn.;* ERWEITERU|
00000060: 4E 47 20 5A 55 52 20 53  4F 52 54 52 4F 55 54 49  |NG ZUR SORTROUTI|
00000070: 4E 45 20 2A 20 49 4E 20  41 44 52 45 53 53 45 20  |NE * IN ADRESSE |
00000080: 39 39 39 20 3D 3E 20 46  45 4C 44 4E 55 4D 4D 45  |999 => FELDNUMME|
00000090: 52 20 28 30 2E 2E 2E 32  35 35 29 20 2A 00 F9 62  |R (0...255) *..b|
000000A0: 78 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |x.;*************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 FF 62 82 00  |***********..b..|
000000F0: 3B 00 1D 63 8C 00 20 2E  AA 2E 4F 42 4A 45 43 54  |;..c.. ...OBJECT|
00000100: 22 53 4F 52 54 45 58 50  41 4E 53 49 4F 4E 22 00  |"SORTEXPANSION".|
00000110: 23 63 96 00 3B 00 30 63  A0 00 20 2E 90 24 30 42  |#c..;.0c.. ..$0B|
00000120: 30 30 00 36 63 AA 00 3B  00 67 63 B4 00 20 2E 8F  |00.6c..;.gc.. ..|
00000130: 46 45 4C 44 56 45 43 3D  24 33 31 3B 20 32 2D 42  |FELDVEC=$31; 2-B|
00000140: 59 54 45 2D 5A 45 49 47  45 52 20 41 55 46 20 46  |YTE-ZEIGER AUF F|
00000150: 45 4C 44 41 4E 46 41 4E  47 00 6D 63 BE 00 3B 00  |ELDANFANG.mc..;.|
00000160: 8E 63 C8 00 20 2E 8F 46  45 54 43 48 3D 24 30 32  |.c.. ..FETCH=$02|
00000170: 41 32 3B 20 46 45 54 43  48 52 4F 55 54 49 4E 45  |A2; FETCHROUTINE|
00000180: 00 C2 63 D2 00 20 2E 8F  46 45 54 56 45 43 3D 24  |..c.. ..FETVEC=$|
00000190: 30 32 41 41 3B 20 41 44  52 45 53 53 45 20 5A 55  |02AA; ADRESSE ZU|
000001A0: 52 20 53 45 4C 42 53 54  4D 4F 44 49 46 49 4B 41  |R SELBSTMODIFIKA|
000001B0: 54 49 4F 4E 00 FB 63 DC  00 3B 20 20 20 20 20 20  |TION..c..;      |
000001C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 44 45 52  |             DER|
000001E0: 20 46 45 54 43 48 52 4F  55 54 49 4E 45 00 2D 64  | FETCHROUTINE.-d|
000001F0: E6 00 20 2E 8F 46 45 4C  44 4E 52 3D 24 30 33 45  |.. ..FELDNR=$03E|
00000200: 37 3B 20 41 44 52 45 53  53 45 20 44 45 52 20 46  |7; ADRESSE DER F|
00000210: 45 4C 44 4E 55 4D 4D 45  52 20 28 39 39 39 29 00  |ELDNUMMER (999).|
00000220: 5C 64 F0 00 20 2E 8F 53  4F 52 54 52 4F 55 54 3D  |\d.. ..SORTROUT=|
00000230: 24 31 33 30 30 3B 20 41  44 52 45 53 53 45 20 44  |$1300; ADRESSE D|
00000240: 45 52 20 53 4F 52 54 52  4F 55 54 49 4E 45 00 62  |ER SORTROUTINE.b|
00000250: 64 FA 00 3B 00 82 64 04  01 20 AE 3B 20 53 54 41  |d..;..d.. .; STA|
00000260: 54 55 53 20 41 55 46 20  53 54 41 43 4B 20 52 45  |TUS AUF STACK RE|
00000270: 54 54 45 4E 00 99 64 0E  01 20 A9 3B 20 49 52 51  |TTEN..d.. .; IRQ|
00000280: 53 20 56 45 52 42 49 45  54 45 4E 00 9F 64 18 01  |S VERBIETEN..d..|
00000290: 3B 00 C8 64 22 01 20 81  23 24 45 41 3B 20 53 45  |;..d". .#$EA; SE|
000002A0: 49 20 55 4E 44 20 43 4C  49 20 49 4E 20 44 45 52  |I UND CLI IN DER|
000002B0: 20 52 49 43 48 54 49 47  45 4E 00 F5 64 2C 01 20  | RICHTIGEN..d,. |
000002C0: 82 24 31 33 30 30 3B 20  53 4F 52 54 52 4F 55 54  |.$1300; SORTROUT|
000002D0: 49 4E 45 20 44 55 52 43  48 20 4E 4F 50 53 20 45  |INE DURCH NOPS E|
000002E0: 52 53 45 54 5A 45 4E 00  01 65 36 01 20 82 24 31  |RSETZEN..e6. .$1|
000002F0: 33 31 32 00 07 65 40 01  3B 00 28 65 4A 01 20 81  |312..e@.;.(eJ. .|
00000300: 46 45 4C 44 56 45 43 3B  20 46 45 4C 44 42 45 47  |FELDVEC; FELDBEG|
00000310: 49 4E 20 53 49 43 48 45  52 4E 00 36 65 54 01 20  |IN SICHERN.6eT. |
00000320: 82 46 45 4C 44 56 5A 57  00 46 65 5E 01 20 81 46  |.FELDVZW.Fe^. .F|
00000330: 45 4C 44 56 45 43 2B 31  00 56 65 68 01 20 82 46  |ELDVEC+1.Veh. .F|
00000340: 45 4C 44 56 5A 57 2B 31  00 5C 65 72 01 3B 00 90  |ELDVZW+1.\er.;..|
00000350: 65 7C 01 20 81 23 46 45  4C 44 56 45 43 3B 20 46  |e|. .#FELDVEC; F|
00000360: 45 54 43 48 56 45 43 54  4F 52 20 53 45 54 5A 45  |ETCHVECTOR SETZE|
00000370: 4E 20 28 47 45 4E 41 55  45 20 46 55 4E 4B 54 49  |N (GENAUE FUNKTI|
00000380: 4F 4E 00 BB 65 86 01 20  82 46 45 54 56 45 43 3B  |ON..e.. .FETVEC;|
00000390: 20 53 49 45 48 45 20 46  45 54 43 48 52 4F 55 54  | SIEHE FETCHROUT|
000003A0: 49 4E 45 20 41 42 20 24  30 32 41 32 29 00 C1 65  |INE AB $02A2)..e|
000003B0: 90 01 3B 00 E8 65 9A 01  53 54 41 52 54 20 81 46  |..;..e..START .F|
000003C0: 45 4C 44 4E 52 3B 20 46  45 4C 44 4E 55 4D 4D 45  |ELDNR; FELDNUMME|
000003D0: 52 20 3D 20 4E 55 4C 4C  20 3F 00 0B 66 A4 01 20  |R = NULL ?..f.. |
000003E0: B8 53 4F 52 54 3B 20 4A  41 2C 20 44 41 4E 4E 20  |.SORT; JA, DANN |
000003F0: 53 4F 52 54 20 41 55 46  52 55 46 45 4E 00 11 66  |SORT AUFRUFEN..f|
00000400: AE 01 3B 00 33 66 B8 01  20 94 46 45 4C 44 4E 52  |..;.3f.. .FELDNR|
00000410: 3B 20 46 45 4C 44 4E 52  20 3D 20 46 45 4C 44 4E  |; FELDNR = FELDN|
00000420: 52 20 2D 20 31 00 39 66  C2 01 3B 00 55 66 CC 01  |R - 1.9f..;.Uf..|
00000430: 20 84 23 24 30 32 3B 20  4F 46 46 53 45 54 20 41  | .#$02; OFFSET A|
00000440: 55 46 20 5A 57 45 49 00  74 66 D6 01 20 83 23 24  |UF ZWEI.tf.. .#$|
00000450: 37 46 3B 20 43 4F 4E 46  49 47 55 52 41 54 49 4F  |7F; CONFIGURATIO|
00000460: 4E 20 52 41 4D 31 00 8B  66 E0 01 20 97 46 45 54  |N RAM1..f.. .FET|
00000470: 43 48 3B 20 48 4F 4C 45  20 42 59 54 45 00 AC 66  |CH; HOLE BYTE..f|
00000480: EA 01 20 82 5A 45 49 47  45 52 4C 4F 3B 20 55 4E  |.. .ZEIGERLO; UN|
00000490: 44 20 53 50 45 49 43 48  45 52 45 20 45 53 00 B2  |D SPEICHERE ES..|
000004A0: 66 F4 01 3B 00 CE 66 FE  01 20 84 23 24 30 33 3B  |f..;..f.. .#$03;|
000004B0: 20 4F 46 46 53 45 54 20  41 55 46 20 44 52 45 49  | OFFSET AUF DREI|
000004C0: 00 ED 66 08 02 20 83 23  24 37 46 3B 20 43 4F 4E  |..f.. .#$7F; CON|
000004D0: 46 49 47 55 52 41 54 49  4F 4E 20 52 41 4D 31 00  |FIGURATION RAM1.|
000004E0: 04 67 12 02 20 97 46 45  54 43 48 3B 20 48 4F 4C  |.g.. .FETCH; HOL|
000004F0: 45 20 42 59 54 45 00 25  67 1C 02 20 82 5A 45 49  |E BYTE.%g.. .ZEI|
00000500: 47 45 52 48 49 3B 20 55  4E 44 20 53 50 45 49 43  |GERHI; UND SPEIC|
00000510: 48 45 52 45 20 45 53 00  2B 67 26 02 3B 00 57 67  |HERE ES.+g&.;.Wg|
00000520: 30 02 20 A6 3B 20 46 45  4C 44 56 45 43 20 44 55  |0. .; FELDVEC DU|
00000530: 52 43 48 20 41 44 44 49  54 49 4F 4E 20 44 45 53  |RCH ADDITION DES|
00000540: 20 5A 45 49 47 45 52 53  2C 00 87 67 3A 02 20 81  | ZEIGERS,..g:. .|
00000550: 46 45 4C 44 56 45 43 3B  20 44 45 52 20 41 55 46  |FELDVEC; DER AUF|
00000560: 20 44 41 53 20 4E 41 45  43 48 53 54 45 20 46 45  | DAS NAECHSTE FE|
00000570: 4C 44 20 5A 45 49 47 54  2C 00 BE 67 44 02 20 86  |LD ZEIGT,..gD. .|
00000580: 5A 45 49 47 45 52 4C 4F  3B 20 41 55 46 20 44 41  |ZEIGERLO; AUF DA|
00000590: 53 20 5A 55 20 53 4F 52  54 49 45 52 45 4E 44 45  |S ZU SORTIERENDE|
000005A0: 20 46 45 4C 44 20 56 45  52 42 49 45 47 45 4E 2E  | FELD VERBIEGEN.|
000005B0: 00 CC 67 4E 02 20 82 46  45 4C 44 56 45 43 00 DC  |..gN. .FELDVEC..|
000005C0: 67 58 02 20 81 46 45 4C  44 56 45 43 2B 31 00 EB  |gX. .FELDVEC+1..|
000005D0: 67 62 02 20 86 5A 45 49  47 45 52 48 49 00 FB 67  |gb. .ZEIGERHI..g|
000005E0: 6C 02 20 82 46 45 4C 44  56 45 43 2B 31 00 01 68  |l. .FELDVEC+1..h|
000005F0: 76 02 3B 00 36 68 80 02  20 96 53 54 41 52 54 3B  |v.;.6h.. .START;|
00000600: 20 53 4F 4C 41 4E 47 45  20 27 56 45 52 42 49 45  | SOLANGE 'VERBIE|
00000610: 47 45 4E 27 2C 20 42 49  53 20 46 45 4C 44 4E 52  |GEN', BIS FELDNR|
00000620: 20 3D 20 4E 55 4C 4C 2E  00 3C 68 8A 02 3B 00 42  | = NULL..<h..;.B|
00000630: 68 94 02 3B 00 55 68 9E  02 53 4F 52 54 20 97 53  |h..;.Uh..SORT .S|
00000640: 4F 52 54 52 4F 55 54 00  5B 68 A8 02 3B 00 89 68  |ORTROUT.[h..;..h|
00000650: B2 02 20 81 46 45 4C 44  56 5A 57 3B 20 5A 45 49  |.. .FELDVZW; ZEI|
00000660: 47 45 52 20 41 55 46 20  44 45 4E 20 41 4C 54 45  |GER AUF DEN ALTE|
00000670: 4E 20 46 45 4C 44 42 45  47 49 4E 00 A6 68 BC 02  |N FELDBEGIN..h..|
00000680: 20 82 46 45 4C 44 56 45  43 3B 20 5A 55 52 55 45  | .FELDVEC; ZURUE|
00000690: 43 4B 53 45 54 5A 45 4E  00 B6 68 C6 02 20 81 46  |CKSETZEN..h.. .F|
000006A0: 45 4C 44 56 5A 57 2B 31  00 C6 68 D0 02 20 82 46  |ELDVZW+1..h.. .F|
000006B0: 45 4C 44 56 45 43 2B 31  00 CC 68 DA 02 3B 00 F8  |ELDVEC+1..h..;..|
000006C0: 68 E4 02 20 81 23 24 37  38 3B 20 53 4F 52 54 50  |h.. .#$78; SORTP|
000006D0: 52 4F 47 52 41 4D 4D 20  57 49 45 44 45 52 20 56  |ROGRAMM WIEDER V|
000006E0: 45 52 42 45 53 53 45 52  4E 2C 00 28 69 EE 02 20  |ERBESSERN,.(i.. |
000006F0: 82 24 31 33 30 30 3B 20  49 4E 44 45 4D 20 53 45  |.$1300; INDEM SE|
00000700: 49 20 55 4E 44 20 43 4C  49 20 57 49 45 44 45 52  |I UND CLI WIEDER|
00000710: 20 45 49 4E 47 45 42 41  55 54 00 3C 69 F8 02 20  | EINGEBAUT.<i.. |
00000720: 81 23 24 35 38 3B 20 57  45 52 44 45 4E 2E 00 48  |.#$58; WERDEN..H|
00000730: 69 02 03 20 82 24 31 33  31 32 00 4E 69 0C 03 3B  |i.. .$1312.Ni..;|
00000740: 00 65 69 16 03 20 A8 3B  20 49 52 51 53 20 46 52  |.ei.. .; IRQS FR|
00000750: 45 49 47 45 42 45 4E 00  7C 69 20 03 20 9F 3B 20  |EIGEBEN.|i . .; |
00000760: 53 54 41 54 55 53 20 5A  55 52 55 45 43 4B 00 8B  |STATUS ZURUECK..|
00000770: 69 2A 03 20 A4 3B 20 52  45 54 55 52 4E 00 91 69  |i*. .; RETURN..i|
00000780: 34 03 3B 00 A7 69 3E 03  46 45 4C 44 56 5A 57 20  |4.;..i>.FELDVZW |
00000790: 2E 91 24 30 30 2C 24 30  30 00 BA 69 48 03 5A 45  |..$00,$00..iH.ZE|
000007A0: 49 47 45 52 4C 4F 20 2E  91 24 30 30 00 CD 69 52  |IGERLO ..$00..iR|
000007B0: 03 5A 45 49 47 45 52 48  49 20 2E 91 24 30 30 00  |.ZEIGERHI ..$00.|
000007C0: 00 00                                             |..              |

.B]BD.;*********************************
***************************************.
.BN.;* ERWEITERUNG ZUR SORTROUTINE * IN 
ADRESSE 999 => FELDNUMMER (0...255) *..B
X.;*************************************
***********************************..B..
;..C.. ...OBJECT"SORTEXPANSION".#C..;.0C
 . ..$0B00.6C..;.GC.. ..FELDVEC=$31; 2-B
YTE-ZEIGER AUF FELDANFANG.MC..;..CH. ..F
ETCH=$02A2; FETCHROUTINE.BCR. ..FETVEC=$
02AA; ADRESSE ZUR SELBSTMODIFIKATION..C.
.;                                   DER
 FETCHROUTINE.-D.. ..FELDNR=$03E7; ADRES
SE DER FELDNUMMER (999).\D.. ..SORTROUT=
$1300; ADRESSE DER SORTROUTINE.BD..;..D.
. .; STATUS AUF STACK RETTEN..D.. .; IRQ
S VERBIETEN..D..;.HD". .#$EA; SEI UND CL
I IN DER RICHTIGEN..D,. .$1300; SORTROUT
INE DURCH NOPS ERSETZEN..E6. .$1312..E@.
;.(EJ. .FELDVEC; FELDBEGIN SICHERN.6ET. 
.FELDVZW.FE^. .FELDVEC+1.VEH. .FELDVZW+1
.\ER.;..E|. .#FELDVEC; FETCHVECTOR SETZE
N (GENAUE FUNKTION..E.. .FETVEC; SIEHE F
ETCHROUTINE AB $02A2).AE..;..E..START .F
ELDNR; FELDNUMMER = NULL ?..F.. .SORT; J
A, DANN SORT AUFRUFEN..F..;.3F.. .FELDNR
; FELDNR = FELDNR - 1.9FB.;.UFL. .#$02; 
OFFSET AUF ZWEI.TFV. .#$7F; CONFIGURATIO
N RAM1..F.. .FETCH; HOLE BYTE..F.. .ZEIG
ERLO; UND SPEICHERE ES..F..;.NF.. .#$03;
 OFFSET AUF DREI..F.. .#$7F; CONFIGURATI
ON RAM1..G.. .FETCH; HOLE BYTE.%G.. .ZEI
GERHI; UND SPEICHERE ES.+G&.;.WG0. .; FE
LDVEC DURCH ADDITION DES ZEIGERS,..G:. .
FELDVEC; DER AUF DAS NAECHSTE FELD ZEIGT
,..GD. .ZEIGERLO; AUF DAS ZU SORTIERENDE
 FELD VERBIEGEN..LGN. .FELDVEC..GX. .FEL
DVEC+1..GB. .ZEIGERHI..GL. .FELDVEC+1..H
V.;.6H.. .START; SOLANGE 'VERBIEGEN', BI
S FELDNR = NULL..<H..;.BH..;.UH..SORT .S
ORTROUT.[H..;..H.. .FELDVZW; ZEIGER AUF 
DEN ALTEN FELDBEGIN..H.. .FELDVEC; ZURUE
CKSETZEN..HF. .FELDVZW+1.FHP. .FELDVEC+1
.LHZ.;..H.. .#$78; SORTPROGRAMM WIEDER V
ERBESSERN,.(I.. .$1300; INDEM SEI UND CL
I WIEDER EINGEBAUT.<I.. .#$58; WERDEN..H
I.. .$1312.NI..;.EI.. .; IRQS FREIGEBEN.
|I . .; STATUS ZURUECK..I*. .; RETURN..I
4.;..I>.FELDVZW ..$00,$00..IH.ZEIGERLO .
.$00.MIR.ZEIGERHI ..$00...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL