; ************************* 
; Math/Utilities Library 06
; *************************
; Sorting 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\06\MU-06.t59

#LISTING c:\ti-59\mu\06\MU-06.LST

#AZEMULATOR c:\ti-59\mu\06\MU-06.TI

lbl e                                    ;000
0 sto 0 rtn

lbl a                                    ;006
op 20 st* 0 rtn

gto a

lbl b                                    ;015
rcl 0 ( hir 08 hir 05 / 2 ) int
gto 53

hir 18 hir 05 hir 17 x%t 1 3 inv ge      ;031
53 4 inv ge 53 1 eq 113 hir 07 hir 55 
1 hir 06 hir 04 sto 0 rc* 0 x%t hir 17 
sum 0 rc* 0 ge 97 x%t st* 0 hir 14 sto 0 
x%t st* 0 hir 17 hir 54 1 x%t hir 14
ge 62 1 hir 36 hir 16 x%t hir 15 inv 
ge 31 x%t gto 60 0 rtn

lbl c                                    ;115
1 inv list sto 0 

lbl d                                    ;122
rc* 0 op 20 rtn gto 124


#end