Sort

Here is Don Lamen’s printout from his MC program HASP showing the code for “Sort”, and also the Basic for “Sort”. Sort was printed in a recent ZX Computing magazine. The addresses are in hex, and the start address is 16514.

DISASSEMBLY
ADDRESS 4082 TO 411C
4082 210C00   *
4085 39       *
4086 368A     *
4088 23       *
4089 360B     *
408B E7       *
408C CD1C11   *
408F DA4B0D   *
4092 23       *
4093 23       *
4094 23       *
4095 7E       *
4096 FE02     *
4098 207D     *
409A 23       *
409B 4E       *
409C 23       *
409D 46       *

409E ED433F40*
40A2 23       *
40A3 4E       *
40A4 23       *
40A5 46       *
40A6 23       *
40A7 ED433D40*
40AB ED4B3F40*
40AF AF       *
40B0 323C40   *
40B3 E5       *
40B4 E5       *
40B5 ED5B3D40*
40B9 19       *
40BA EB       *
40BB E1       *
40BC CDDC40   *
40BF DCF240   *
40C2 EB       *

40C3 0B       *
40C4 78       *
40C5 B1       *
40C6 20EC     *
40C8 E1       *
40C9 3A3C40   *
40CC A7       *
40CD C8       *
40CE ED4B3F40*
40D2 0B       *
40D3 ED433F40*
40D7 78       *
40D8 B1       *
40D9 20D0     *
40DB C9       *
40DC E5       *
40DD D5       *
40DE C5       *
40DF ED4B3D40*
40E3 1A       *
40E4 96       *
40E5 2007     *
40E7 23       *
40E8 13       *
40E9 0B       *
40EA 78       *
40EB B1       *
40EC 20F5     *
40EE C1       *
40EF D1       *
40F0 E1       *
40F1 C9       *
40F2 C5       *
40F3 D5       *
40F4 E5       *
40F5 ED4B3D40*
40F9 ED5B1440*
40FD EDB0     *

40FF D1       *
4100 D5       *
4101 ED4B3D40*
4105 EDB0     *
4107 2A1440   *
410A ED4B3D40*
410E EDB0     *
4110 323C40   *
4113 E1       *
4114 D1       *
4115 C1       *
4116 C9       *
4117 CF02     *
4119 0C       *
411A 0C       *
411B 0C       *
411C 0C       *

   5▒REM 2 DIM ARRAY S0RT "SORT2
"
  10 PRINT " TO RELOCATE ARRAY S
ORT:"
  20 PRINT
  30 PRINT TAB 8;"CHANGE",,TAB 3
;"ADDR              DATA"
  40 PRINT TAB 1;"START+3B     ST
ART+5A"
  50 PRINT TAB 1;"START+3E     ST
ART+70"
  60 PRINT
  70 PRINT "START=START ADDRESS
OFROUTINE.   (USE HEX)"
  80 PRINT AT 20,0;"PRESS ENTER"
  90 IF INKEY$="" THEN GOTO 90
 100 CLS
 110 GOTO 1000
 120 STOP
 130 SAVE "SORT2"
 140 GOTO 10
 150 STOP
1000 REM ARRAY SORT DEMO
1010 LET SORT=16514
1020 DIM E$(10,15)
1030 FOR A=1 TO 10
1040 FOR B=1 TO 15
1050 LET E$(A,B)=CHR$ (INT (RND*
26)+38)
1060 PRINT E$(A,B);
1070 NEXT B
1080 PRINT
1090 NEXT A
1100 PRINT ,,"PRESS A KEY TO SOR
T"
1110 PAUSE 4E4
1120 PRINT USR SORT,E$
1130 CLS
1140 FOR A=1 TO 10
1150 PRINT E$(A)
1160 NEXT A