(
 ô. SHELL SORT ON REAL NUMERIC ARRAYS= ô. (c) Richard Russell 1984, from an idea by Robin Tracy. Þ sort 300( exterr=&2092 ã pass=0 ¸ 1< P%=sortF [OPT pass*2P LD A,(IX):DEC A:JP NZ,error Z LD A,(IX+1):CP 5:JP NZ,error)d LD L,(IX+2):LD H,(IX+3):LD (start),HLHn DEC HL:LD D,(HL):DEC HL:LD E,(HL):DEC HL:LD A,(HL):DEC A:JP NZ,errorx ;C‚ LD HL,(start):ADD HL,DE:ADD HL,DE:ADD HL,DE:ADD HL,DE:ADD HL,DEBŒ LD (end),HL:SRL D:RR E:LD HL,&FFFF:EX DE,HL:.rotate SRL D:RR E;– „ A:SBC HL,DE:ADD HL,DE:JR C,rotate:.loop LD (space),DEG  LD H,D:LD L,E:ADD HL,HL:ADD HL,HL:ADD HL,DE:LD (spacer),HL:EX DE,HLEª LD IY,(start):PUSH IY:ADD IY,DE:LD (check),IY:POP IX:LD (item),IX´ ;¾ .newlenEÈ EXX:LD L,(IX):LD H,(IX+1):EXX:LD L,(IX+2):LD H,(IX+3):LD C,(IX+4)EÒ EXX:LD E,(IY):LD D,(IY+1):EXX:LD E,(IY+2):LD D,(IY+3):LD B,(IY+4)Ü Ö fcp:JR C,okæ ;4ð .swap PUSH IX:POP HL:PUSH IY:POP DE:LD B,5:.moveJú LD A,(DE):LD C,A:LD A,(HL):LD (DE),A:LD (HL),C:INC HL:INC DE:DJNZ move@LD DE,(check):PUSH IX:POP HL:„ A:SBC HL,DE:ADD HL,DE:JR C,okDPUSH HL:POP IY:LD DE,(spacer):SBC HL,DE:PUSH HL:POP IX:JR newlen;3".ok LD HL,(item):LD BC,5:ADD HL,BC:LD (item),HL:,PUSH HL:POP IX:LD DE,(spacer):ADD HL,DE:PUSH HL:POP IY>6LD DE,(end):SBC HL,DE:JR C,newlen:LD DE,(space):SRL D:RR E@LD A,D:„ E:JP NZ,loop:RETJ;@T.fcp LD A,H:XOR D:LD A,H:RLA:RET M:JR NC,fcp0:Ö fcp0:CCF:RETC^.fcp0 LD A,C:CP B:RET NZ:SBC HL,DE:RET NZ:EXX:SBC HL,DE:EXX:RETh;=r.start ÝW 0:.end ÝW 0:.spacer ÝW 0:.check ÝW 0:.item ÝW 0*|.space ÝW 0:.error LD A,100:Ö exterr:] †$P%="Bad sort parameters"+½0
í passš:¤ô. Test program:®:	¸@%=20$Âñ "Filling 1000 real numbers..."ÌÞ A(999)/Öã I=0 ¸ 999:A(I)=(0.5-³(1))*10^(10-³(20)):í%àã I=0 ¸ 14:ñ A(I);:í:ñ "  etc..."êñ "Sorting the numbers..."9ôÖ sort,A(0) : ô. Call assembly language sort routine.%þã I=0 ¸ 14:ñ A(I);:í:ñ "  etc..."ñ "Finished."@%=&90A ÿÿDort ›B   Ý~ =ÂšCÝ~þÂšCÝnÝf"ŽC+V+^+~=ÂšC*ŽC"CË:Ë!ÿÿëË:Ë·íR8öíS˜Cbk))"’Cëý*ŽCýåýý"”CÝáÝ"–CÙÝn Ýf