(loader '((title |sort.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'sort)))
(loader'((fentry sort subr2)
(entry sort subr2)
(push a2)
(push (cvalq fn))
(mov a1 (cvalq fn))
(push '1)
(push '(fn))
(push (@ sort))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(bfnil (cdr a2) 101)
(mov a2 a1)
(bra 102)
101
(push nil)
(push a2)
(mov (& 9) a1)
(jcall length)
(quo '2 a1)
(jcall 1-)
(mov (& 9) a2)
(jcall nthcdr)
(mov a1 (& 9))
(mov (cdr a1) (& 1))
(mov nil (cdr a1))
(mov (& 0) a2)
(mov (cvalq fn) a1)
(jcall sort)
(push a1)
(mov (& 2) a2)
(mov (cvalq fn) a1)
(jcall sort)
(mov a1 a2)
(pop a1)
(call ffusion)
(adjstk '2)
102
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq fn))
(adjstk '8)
(return)
))
(loader'((entry ffusion subr2)
(push a2)
(push a1)
(push (@ 103))
(push (cvalq fn))
(push (car a1))
(push (car a2))
(mov '3 a4)
(jmp funcall)
103
(eval ())
(bfnil a1 102)
(push (& 1))
(mov (& 1) (& 2))
(pop a4)
(mov a4 (& 0))
102
(push (& 0))
104
(mov (& 1) a4)
(btnil (cdr a4) 105)
(btnil (& 2) 105)
(push (@ 108))
(push (cvalq fn))
(mov (& 4) a4)
(push (car a4))
(mov (& 4) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov '3 a4)
(jmp funcall)
108
(eval ())
(btnil a1 107)
(push (& 2))
(mov (& 2) a4)
(mov (cdr a4) (& 3))
(pop a4)
(mov (& 1) a3)
(mov a4 (cdr a3))
107
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(bra 104)
105
(btnil (& 2) 110)
(mov (& 1) a4)
(mov (& 2) (cdr a4))
110
(pop a1)
(adjstk '2)
(return)
))
(loader'((fentry sortl subr1)
(entry sortl subr1)
(mov a1 a2)
(mov 'alphalessp a1)
(jmp sort)
))
(loader'((fentry sortn subr1)
(entry sortn subr1)
(mov a1 a2)
(mov '< a1)
(jmp sort)
))
(loader'((fentry sortp subr1)
(entry sortp subr1)
(mov a1 a2)
(mov 'pkgcmp a1)
(jmp sort)
))
(loader'((fentry pkgcmp subr2)
(entry pkgcmp subr2)
(push a2)
(cabne (pkgc a1) (pkgc a2) 101)
(adjstk '1)
(jmp alphalessp)
101
(push (pkgc a1))
(mov (& 0) a1)
(jcall symbolp)
(btnil a1 104)
(mov nil a1)
(bra 105)
104
(mov 't a1)
105
(bfnil a1 103)
(mov (& 1) a4)
(push (pkgc a4))
(mov (& 0) a1)
(jcall symbolp)
(btnil a1 106)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '3)
(jmp pkgcmp)
106
(adjstk '1)
103
(adjstk '2)
(return)
))
(loader '((end)))