(loader '((title |array.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'array)))
(loader'((fentry makearray nsubr)
(entry makearray nsubr)
(cnbge a4 '1 0)
(mov 'makearray a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(push a1)
(btnil a1 101)
(mov nil a2)
(mov (& 1) a1)
(jcall makevector)
(push a1)
(mov (& 2) a1)
(jcall 1-)
(push '0)
(push a1)
103
(push (@ 105))
(push (& 2))
(push (& 2))
(mov '2 a4)
(jmp <=)
105
(eval ())
(btnil a1 104)
(push (@ 106))
(push 'makearray)
(push (& 5))
(mov '2 a4)
(jmp apply)
106
(eval ())
(hpmovx a1 (& 2) (& 1))
(push (@ 107))
(push (& 2))
(push '1)
(mov '2 a4)
(jmp +)
107
(eval ())
(mov a1 (& 1))
(bra 103)
104
(adjstk '2)
(mov (& 0) a1)
(adjstk '3)
(return)
101
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((fentry aref dmsubr)
(entry aref dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a4)
(bfnil a4 101)
(adjstk '1)
(return)
101
(btcons a4 103)
(mov a4 a3)
(mov 'errwna a2)
(mov 'aref a1)
(adjstk '1)
(jmp error)
103
(push (@ 105))
(push 'vref)
(push (@ 106))
(push 'aref)
(push a1)
(mov a4 a1)
(jcall reverse)
(mov (cdr a1) a1)
(jcall nreverse)
(push a1)
(mov '3 a4)
(jmp mcons)
106
(eval ())
(push a1)
(mov (& 3) a1)
(jcall last)
(push (car a1))
(mov '3 a4)
(jmp list)
105
(eval ())
(adjstk '1)
(return)
))
(loader'((fentry aset dmsubr)
(entry aset dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a4)
(btcons a4 101)
(mov a4 a3)
(mov 'errwna a2)
(mov 'aset a1)
(adjstk '1)
(jmp error)
101
(bfcons (cdr a4) 103)
(push (@ 105))
(push 'vset)
(push (@ 106))
(push 'aref)
(push a1)
(mov a4 a1)
(jcall reverse)
(mov (cdr a1) a1)
(mov (cdr a1) a1)
(jcall nreverse)
(push a1)
(mov '3 a4)
(jmp mcons)
106
(eval ())
(push a1)
(mov (& 3) a1)
(jcall reverse)
(mov (cdr a1) a3)
(push (car a3))
(mov (& 4) a1)
(jcall last)
(push (car a1))
(mov '4 a4)
(jmp list)
105
(eval ())
(adjstk '1)
(return)
103
(adjstk '1)
(return)
))
(loader '((end)))