(loader '((title |lap68k.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'lap68k)))
(defvar #:sys-package:colon 'ld68k)
(add-feature 'loader)
(defvar #:ld68k:31bitfloats (eq 0. 0.))
(if (not (boundp '#:ld68k:mc68881)) (progn (defvar #:ld68k:mc68881 ())))
(if (not (boundp '#:ld68k:mc68020)) (progn (defvar #:ld68k:mc68020 t)))
(defvar #:ld68k:stopcopy (typefn '#:ld:gcafter-daemon))
(if (not (boundp '#:ld:special-case-loader)) (progn (defvar #:ld:special-case-loader ())))
(defvar #:ld68k:align-flag ())
(defvar #:ld68k:ecode (subadr (#:system:ecode) 64))
(defvar #:ld68k:locnil (loc ()))
(defvar #:ld68k:entry-list ())
(defvar #:ld68k:entries-not-resolved ())
(if (not (boundp '#:ld68k:module)) (progn (defvar #:ld68k:module ())))
(if (not (boundp '#:ld68k:saved-by-loader)) (progn (defvar #:ld68k:saved-by-loader ())))
(if (not (boundp '#:ld68k:global-saved-by-loader)) (progn (defvar #:ld68k:global-saved-by-loader '(#[#:ld68k:lobj #:ld68k:talkp #:ld68k:pccurrent #:ld68k:llabels #:ld68k:llabels-nr #:ld68k:fntname #:ld68k:codop #:ld68k:arg1 #:ld68k:arg2 #:ld68k:arg3 #:ld68k:localstack #:ld68k:valaux #:ld68k:f #:ld68k:nwl obj]))))
(defvar #:ld68k:lobj)
(defvar #:ld68k:talkp)
(defvar #:ld68k:pccurrent)
(defvar #:ld68k:llabels)
(defvar #:ld68k:llabels-nr)
(defvar #:ld68k:fntname)
(defvar #:ld68k:codop)
(defvar #:ld68k:arg1)
(defvar #:ld68k:arg2)
(defvar #:ld68k:arg3)
(defvar #:ld68k:localstack)
(defvar #:ld68k:valaux)
(defvar #:ld68k:f)
(defvar #:ld68k:nwl)
(defvar obj)
(if (not (boundp '#:ld:cons-llitt)) (progn (defvar #:ld:cons-llitt ())))
(if (not (boundp '#:ld68k:local-cons-llitt)) (progn (defvar #:ld68k:local-cons-llitt ())))
(defvar #:ld68k:max-lap-dpl8 13)
(defvar #:ld68k:rga0 0)
(defvar #:ld68k:eaa0 8)
(defvar #:ld68k:rga1 1)
(defvar #:ld68k:eaa1 9)
(defvar #:ld68k:rga2 2)
(defvar #:ld68k:eaa2 10)
(defvar #:ld68k:rga3 3)
(defvar #:ld68k:eaa3 11)
(defvar #:ld68k:rga4 4)
(defvar #:ld68k:eaa4 12)
(defvar #:ld68k:rga5 5)
(defvar #:ld68k:eaa5 13)
(defvar #:ld68k:rga6 6)
(defvar #:ld68k:eaa6 14)
(defvar #:ld68k:rga7 7)
(defvar #:ld68k:eaa7 15)
(defvar #:ld68k:rgd0 0)
(defvar #:ld68k:ead0 0)
(defvar #:ld68k:rgd1 1)
(defvar #:ld68k:ead1 1)
(defvar #:ld68k:d0_dst_field 0)
(defvar #:ld68k:d1_dst_field 512)
(defvar #:ld68k:rgd2 2)
(defvar #:ld68k:ead2 2)
(defvar #:ld68k:rgd3 3)
(defvar #:ld68k:ead3 3)
(defvar #:ld68k:rgd4 4)
(defvar #:ld68k:ead4 4)
(defvar #:ld68k:rgd5 5)
(defvar #:ld68k:ead5 5)
(defvar #:ld68k:rgd6 6)
(defvar #:ld68k:ead6 6)
(defvar #:ld68k:rgd7 7)
(defvar #:ld68k:ead7 7)
(defvar #:ld68k:rgaux0 #:ld68k:rga0)
(defvar #:ld68k:eaaux0 #:ld68k:eaa0)
(defvar #:ld68k:rgaux1 #:ld68k:rga6)
(defvar #:ld68k:eaaux1 #:ld68k:eaa6)
(defvar #:ld68k:rgsp #:ld68k:rga7)
(defvar #:ld68k:easp #:ld68k:eaa7)
(defvar #:ld68k:rgbfloat #:ld68k:rgd2)
(defvar #:ld68k:eabfloat #:ld68k:ead2)
(defvar #:ld68k:rgbvect #:ld68k:rgd3)
(defvar #:ld68k:eabvect #:ld68k:ead3)
(defvar #:ld68k:rgbstrg #:ld68k:rgd4)
(defvar #:ld68k:eabstrg #:ld68k:ead4)
(defvar #:ld68k:rgbsymb #:ld68k:rga5)
(defvar #:ld68k:eabsymb #:ld68k:eaa5)
(defvar #:ld68k:rgnil #:ld68k:rgbsymb)
(defvar #:ld68k:eanil #:ld68k:eabsymb)
(defvar #:ld68k:rgbvar #:ld68k:rgd6)
(defvar #:ld68k:eabvar #:ld68k:ead6)
(defvar #:ld68k:rgbcons #:ld68k:rgd7)
(defvar #:ld68k:eabcons #:ld68k:ead7)
(defvar #:ld68k:direct-add-mask 8)
(defvar #:ld68k:indirect-add-mask 16)
(defvar #:ld68k:indirect-add-disp-mask 40)
(defvar #:ld68k:indirect-add-indx-mask 48)
(defvar #:ld68k:abs-long-add-mask 57)
(defvar #:ld68k:indirect-pc-disp-mask 58)
(defvar #:ld68k:indirect-pcm-pindx-mask 59)
(defvar #:ld68k:data-mask 60)
(defvar #:ld68k:|add.l| -12160)
(defvar #:ld68k:|add.w| -12224)
(defvar #:ld68k:|adda.l| -11840)
(defvar #:ld68k:|adda.w| -12096)
(defvar #:ld68k:|addi.w| 1600)
(defvar #:ld68k:|addq.l| 20608)
(defvar #:ld68k:|addq.w| 20544)
(defvar #:ld68k:|and.w| -16320)
(defvar #:ld68k:|andi.l| 640)
(defvar #:ld68k:|andi.w| 576)
(defvar #:ld68k:beq 26368)
(defvar #:ld68k:bge 27648)
(defvar #:ld68k:bgt 28160)
(defvar #:ld68k:bhi 25088)
(defvar #:ld68k:ble 28416)
(defvar #:ld68k:bls 25344)
(defvar #:ld68k:blt 27904)
(defvar #:ld68k:bne 26112)
(defvar #:ld68k:bra 24576)
(defvar #:ld68k:|bset.ld| 2240)
(defvar #:ld68k:bsr 24832)
(defvar #:ld68k:|clr.l| 17024)
(defvar #:ld68k:|cmp.b| -20480)
(defvar #:ld68k:|cmp.l| -20352)
(defvar #:ld68k:|cmp.w| -20416)
(defvar #:ld68k:|cmpa.l| -20032)
(defvar #:ld68k:|cmpi.l| 3200)
(defvar #:ld68k:|divs.w| -32320)
(defvar #:ld68k:|eor.w| -20160)
(defvar #:ld68k:|eori.w| 2624)
(defvar #:ld68k:|ext.l| 18624)
(defvar #:ld68k:jmp 20176)
(defvar #:ld68k:lea 16848)
(defvar #:ld68k:|lsl.ld| -7800)
(defvar #:ld68k:|lsr.ld| -8056)
(defvar #:ld68k:|lsl.w| -7832)
(defvar #:ld68k:|lsr.w| -8088)
(defvar #:ld68k:|lsl.wd| -7864)
(defvar #:ld68k:|lsr.wd| -8120)
(defvar #:ld68k:|move.b| 4096)
(defvar #:ld68k:|move.l| 8192)
(defvar #:ld68k:|move.w| 12288)
(defvar #:ld68k:|movea.l| 8256)
(defvar #:ld68k:moveq 28672)
(defvar #:ld68k:|muls.w| -15936)
(defvar #:ld68k:|neg.w| 17472)
(defvar #:ld68k:nop 20081)
(defvar #:ld68k:|or.w| -32704)
(defvar #:ld68k:|ori.w| 64)
(defvar #:ld68k:pea 18512)
(defvar #:ld68k:pop 8223)
(defvar #:ld68k:push 12032)
(defvar #:ld68k:|ror.ld| -8040)
(defvar #:ld68k:rts 20085)
(defvar #:ld68k:|sub.w| -28608)
(defvar #:ld68k:|suba.l| -28224)
(defvar #:ld68k:|subi.w| 1088)
(defvar #:ld68k:|subq.l| 20864)
(defvar #:ld68k:|subq.w| 20800)
(defvar #:ld68k:|swap.w| 18496)
(defvar #:ld68k:|tst.l| 19072)
(defvar #:ld68k:|f68881.1| -3584)
(defvar #:ld68k:|f68881.2| -3544)
(defvar #:ld68k:|fadd.s| 17442)
(defvar #:ld68k:|fsub.s| 17448)
(defvar #:ld68k:|fmul.s| 17443)
(defvar #:ld68k:|fdiv.s| 17440)
(defvar #:ld68k:fbeq -3455)
(defvar #:ld68k:fbne -3442)
(defvar #:ld68k:fbgt -3438)
(defvar #:ld68k:fbge -3437)
(defvar #:ld68k:fblt -3436)
(defvar #:ld68k:fble -3435)
(defvar #:ld68k:|fcmp.s| 17464)
(defvar #:ld68k:|fcmp.d| 21560)
(defvar #:ld68k:|fmove.s| 17408)
(defvar #:ld68k:|fmove.d| 17408)
(loader'((fentry #:ld68k:ins subr1)
(entry #:ld68k:ins subr1)
(push (cvalq obj))
(mov a1 (cvalq obj))
(push '1)
(push '(obj))
(push (@ #:ld68k:ins))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(btnil (cvalq #:ld68k:talkp) 102)
(bfcons a1 104)
(push (@ 105))
(push '4)
(mov '1 a4)
(jmp outpos)
105
(eval ())
104
(push (@ 106))
(push (cvalq obj))
(mov '1 a4)
(jmp prin)
106
(eval ())
(push (@ 109))
(push (@ 110))
(mov '0 a4)
(jmp outpos)
110
(eval ())
(push a1)
(push '30)
(mov '2 a4)
(jmp >=)
109
(eval ())
(btnil a1 108)
(push (@ 111))
(mov '0 a4)
(jmp terpri)
111
(eval ())
108
(push (@ 112))
(push '30)
(mov '1 a4)
(jmp outpos)
112
(eval ())
(mov (cvalq #:ld68k:pccurrent) a1)
(call #:ld68k:prinhex)
(push (@ 113))
(push '"  ")
(mov '1 a4)
(jmp prin)
113
(eval ())
102
(bfnil (cvalq obj) 114)
(mov nil a1)
(bra 115)
114
(btcons (cvalq obj) 116)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall copylist)
(mov a1 a2)
(mov (cvalq obj) a1)
(jcall cons)
(mov (cvalq #:ld68k:llabels) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:llabels))
(mov (cvalq #:ld68k:llabels-nr) a2)
(mov (cvalq obj) a1)
(jcall cassq)
(push a1)
118
(bfcons (& 0) 119)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a1)
(mov (car a1) a1)
(cabne a1 '8 121)
(mov (& 0) a1)
(mov (cdr a1) a1)
(call #:ld68k:1byterelpc)
(bra 120)
121
(cabne a1 '16 122)
(mov (& 0) a1)
(mov (cdr a1) a1)
(call #:ld68k:1wordrelpc)
(bra 120)
122
(mov (& 0) a2)
(mov '"RESOL" a1)
(call #:ld68k:error)
120
(adjstk '1)
(bra 118)
119
(adjstk '1)
(mov (cvalq #:ld68k:llabels-nr) a2)
(mov (cvalq obj) a1)
(jcall assq)
(mov (cvalq #:ld68k:llabels-nr) a2)
(jcall delete)
(mov a1 (cvalq #:ld68k:llabels-nr))
(bra 115)
116
(mov (cvalq obj) a4)
(mov (car a4) (cvalq #:ld68k:codop))
(mov (cdr a4) a4)
(mov (car a4) (cvalq #:ld68k:arg1))
(mov (cvalq obj) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (car a4) (cvalq #:ld68k:arg2))
(mov (cvalq obj) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (cdr a4) a4)
(mov (car a4) (cvalq #:ld68k:arg3))
(mov '0 (cvalq #:ld68k:localstack))
(mov (cvalq #:ld68k:codop) a1)
(cabne a1 'abort 125)
(mov nil a1)
(bra 115)
125
(cabne a1 'entry 126)
(call #:ld68k:align)
(push (@ 127))
(push (cvalq #:ld68k:arg1))
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'subr0 129)
(cabeq a4 'subr1 129)
(cabeq a4 'subr2 129)
(cabeq a4 'subr3 129)
(cabeq a4 'nsubr 129)
(cabeq a4 'fsubr 129)
(cabeq a4 'msubr 129)
(cabne a4 'dmsubr 128)
(bra 129)
128
(mov (cvalq obj) a2)
(mov '"ENTRY" a1)
(call #:ld68k:error)
(mov a1 a4)
129
(push a4)
(push (cvalq #:ld68k:arg3))
(mov '3 a4)
(jmp list)
127
(eval ())
(mov (cvalq #:ld68k:entry-list) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:entry-list))
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall cassq)
(push a1)
131
(bfcons (& 0) 132)
(mov (& 0) a1)
(mov (cdr a1) (& 0))
(mov (car a1) a1)
(call #:ld68k:1wordrelpc)
(bra 131)
132
(adjstk '1)
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall assq)
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(jcall delete)
(mov a1 (cvalq #:ld68k:entries-not-resolved))
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall copylist)
(mov '#:ld68k:fval a3)
(mov a1 a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall putprop)
(mov (cvalq #:ld68k:arg1) (cvalq #:ld68k:fntname))
(mov (cvalq #:ld68k:arg1) a1)
(bra 115)
126
(cabne a1 'endl 133)
(btnil (cvalq #:ld68k:talkp) 135)
(push (@ 136))
(mov '0 a4)
(jmp terpri)
136
(eval ())
135
(btnil (cvalq #:ld68k:llabels-nr) 137)
(mov (cvalq #:ld68k:llabels-nr) a2)
(mov '"Il reste des references locales non resolues " a1)
(call #:ld68k:error)
(bra 115)
137
(mov nil a1)
(bra 115)
133
(cabne a1 'end 139)
(mov '(endl) a1)
(jcall #:ld68k:ins)
(btnil (cvalq #:ld68k:entries-not-resolved) 142)
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(mov '"Il reste des ENTRY non resolus " a1)
(call #:ld68k:error)
142
(btnil (cvalq #:ld68k:entry-list) 143)
(mov (cvalq #:ld68k:entry-list) a1)
(mov (car a1) a1)
(mov '#:ld68k:fval a2)
(mov (car a1) a1)
(jcall remprop)
(mov (cvalq #:ld68k:entry-list) a1)
(mov (car a1) a1)
(mov '#:llcp:fval a2)
(mov (car a1) a1)
(jcall remprop)
(mov (cvalq #:ld68k:entry-list) a1)
(mov (car a1) a1)
(mov '#:llcp:ftype a2)
(mov (car a1) a1)
(jcall remprop)
(mov (cvalq #:ld68k:entry-list) a1)
(mov (car a1) a1)
(mov '#:system:loaded-from-file a2)
(mov (car a1) a1)
(jcall remprop)
(mov (cvalq #:ld68k:entry-list) a4)
(mov (cdr a4) (cvalq #:ld68k:entry-list))
(bra 142)
143
(btnil (cvalq #:ld:special-case-loader) 145)
146
(bfcons (cvalq #:ld:special-case-loader) 145)
(mov (cvalq #:ld:special-case-loader) a4)
(bfcons (car a4) 145)
(btnil (cvalq #:ld68k:stopcopy) 149)
(mov '#:ld68k:patch-cons-llitt a1)
(jcall typefn)
(btnil a1 149)
(call #:ld68k:patch-cons-llitt)
149
(push (@ 150))
(push 'setfn)
(mov (cvalq #:ld:special-case-loader) a4)
(mov (cdr a4) (cvalq #:ld:special-case-loader))
(push (car a4))
(mov '2 a4)
(jmp apply)
150
(eval ())
(bra 146)
145
(call #:ld68k:clean-llitt)
(bra 115)
139
(cabne a1 'eval 151)
(push 't)
(push (cvalq #:system:error-flag))
(mov (& 1) (cvalq #:system:error-flag))
(push '1)
(push '(#:system:error-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 152))
(push '#:system:error-tag)
(push dlink)
(push tag)
(stack dlink)
(push (@ 153))
(push (cvalq #:ld68k:arg1))
(mov '1 a4)
(jmp eval)
153
(eval ())
(jcall ncons)
(mov (& 1) dlink)
(adjstk '4)
152
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:error-flag))
(adjstk '8)
(bra 115)
151
(cabne a1 'fentry 154)
(call #:ld68k:align)
(mov '#:system:loaded-from-file a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall remprop)
(btnil (cvalq #:ld:special-case-loader) 155)
(push (@ 157))
(push (cvalq #:ld68k:arg1))
(push (cvalq #:ld68k:arg2))
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall copylist)
(push a1)
(mov '3 a4)
(jmp list)
157
(eval ())
(mov (cvalq #:ld:special-case-loader) a2)
(jcall cons)
(mov a1 (cvalq #:ld:special-case-loader))
(bra 156)
155
(mov '#:llcp:ftype a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall remprop)
(mov '#:llcp:fval a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall remprop)
(mov (cvalq #:ld68k:pccurrent) a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall setfn)
156
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall copylist)
(mov a1 a2)
(mov (cvalq #:ld68k:arg1) a1)
(jcall cons)
(mov (cvalq #:ld68k:llabels) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:llabels))
(mov (cvalq #:ld68k:arg1) (cvalq #:ld68k:fntname))
(mov (cvalq #:ld68k:arg1) a1)
(bra 115)
154
(cabne a1 'local 158)
(mov (cvalq #:ld68k:arg1) a1)
(jcall ncons)
(mov (cvalq #:ld68k:llabels) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:llabels))
(bra 115)
158
(cabne a1 'title 159)
(mov (cvalq #:ld68k:arg1) (cvalq #:ld68k:module))
(mov (cvalq #:ld68k:arg1) a1)
(bra 115)
159
(mov (cvalq obj) a1)
(call #:ld68k:machins)
115
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq obj))
(adjstk '7)
(return)
))
(loader'((entry #:ld68k:machins subr1)
(push (cvalq obj))
(mov a1 (cvalq obj))
(push '1)
(push '(obj))
(push (@ #:ld68k:machins))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov (cvalq #:ld68k:codop) a1)
(cabne a1 'btnil 102)
(mov (cvalq #:ld68k:eanil) a1)
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:beq) a2)
(call #:ld68k:brtf1)
(bra 101)
102
(cabne a1 'bfnil 103)
(mov (cvalq #:ld68k:eanil) a1)
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:bne) a2)
(call #:ld68k:brtf1)
(bra 101)
103
(cabne a1 'btcons 104)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:ble) a2)
(call #:ld68k:brtf1)
(bra 101)
104
(cabne a1 'bfcons 105)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:bgt) a2)
(call #:ld68k:brtf1)
(bra 101)
105
(cabne a1 'btfix 106)
(btnil (cvalq #:ld68k:31bitfloats) 107)
(mov (cvalq #:ld68k:eabvect) a1)
(bra 108)
107
(mov (cvalq #:ld68k:eabfloat) a1)
108
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:bhi) a2)
(call #:ld68k:brtf1)
(bra 101)
106
(cabne a1 'bffix 109)
(btnil (cvalq #:ld68k:31bitfloats) 110)
(mov (cvalq #:ld68k:eabvect) a1)
(bra 111)
110
(mov (cvalq #:ld68k:eabfloat) a1)
111
(call #:ld68k:what-cmp)
(mov (cvalq #:ld68k:bls) a2)
(call #:ld68k:brtf1)
(bra 101)
109
(cabne a1 'btfloat 112)
(bfnil (cvalq #:ld68k:31bitfloats) 113)
(mov (cvalq #:ld68k:eabfloat) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabvect) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brt2)
(bra 101)
113
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|tst.l|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:blt) a1)
(call #:ld68k:brarel)
(bra 101)
112
(cabne a1 'bffloat 115)
(bfnil (cvalq #:ld68k:31bitfloats) 116)
(mov (cvalq #:ld68k:eabfloat) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabvect) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brf2)
(bra 101)
116
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|tst.l|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:bge) a1)
(call #:ld68k:brarel)
(bra 101)
115
(cabne a1 'btstrg 118)
(mov (cvalq #:ld68k:eabstrg) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabsymb) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brt2)
(bra 101)
118
(cabne a1 'bfstrg 119)
(mov (cvalq #:ld68k:eabstrg) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabsymb) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brf2)
(bra 101)
119
(cabne a1 'btvect 120)
(mov (cvalq #:ld68k:eabvect) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabstrg) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brt2)
(bra 101)
120
(cabne a1 'bfvect 121)
(mov (cvalq #:ld68k:eabvect) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabstrg) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brf2)
(bra 101)
121
(cabne a1 'btsymb 122)
(mov (cvalq #:ld68k:eabsymb) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brt2)
(bra 101)
122
(cabne a1 'bfsymb 123)
(mov (cvalq #:ld68k:eabsymb) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brf2)
(bra 101)
123
(cabne a1 'btvar 124)
(mov (cvalq #:ld68k:eabvar) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brt2)
(bra 101)
124
(cabne a1 'bfvar 125)
(mov (cvalq #:ld68k:eabvar) a1)
(call #:ld68k:what-cmp)
(push a1)
(mov (cvalq #:ld68k:eabcons) a1)
(call #:ld68k:what-cmp)
(mov a1 a2)
(pop a1)
(call #:ld68k:brf2)
(bra 101)
125
(cabne a1 'cabeq 126)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:cmpeq-ne)
(mov (cvalq #:ld68k:arg3) a2)
(mov (cvalq #:ld68k:beq) a1)
(call #:ld68k:brarel)
(bra 101)
126
(cabne a1 'cabne 127)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:cmpeq-ne)
(mov (cvalq #:ld68k:arg3) a2)
(mov (cvalq #:ld68k:bne) a1)
(call #:ld68k:brarel)
(bra 101)
127
(cabne a1 'cnbeq 128)
(mov (cvalq #:ld68k:beq) a2)
(mov (cvalq #:ld68k:beq) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
128
(cabne a1 'cnbne 129)
(mov (cvalq #:ld68k:bne) a2)
(mov (cvalq #:ld68k:bne) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
129
(cabne a1 'cnblt 130)
(mov (cvalq #:ld68k:bgt) a2)
(mov (cvalq #:ld68k:blt) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
130
(cabne a1 'cnble 131)
(mov (cvalq #:ld68k:bge) a2)
(mov (cvalq #:ld68k:ble) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
131
(cabne a1 'cnbgt 132)
(mov (cvalq #:ld68k:blt) a2)
(mov (cvalq #:ld68k:bgt) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
132
(cabne a1 'cnbge 133)
(mov (cvalq #:ld68k:ble) a2)
(mov (cvalq #:ld68k:bge) a1)
(call #:ld68k:cmp-numerical-and-branch)
(bra 101)
133
(cabne a1 'cfbeq 134)
(btnil (cvalq #:ld68k:mc68881) 135)
(btnil (cvalq #:ld68k:31bitfloats) 135)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fbeq a1)
(call #:ld68k:cfltxx)
(bra 101)
135
(btnil (cvalq #:ld68k:mc68881) 137)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fbeq a1)
(call #:ld68k:cfltxx)
(bra 101)
137
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:feqn a1)
(call #:ld68k:generatecall2subr)
(bra 101)
134
(cabne a1 'cfbne 139)
(btnil (cvalq #:ld68k:mc68881) 140)
(btnil (cvalq #:ld68k:31bitfloats) 140)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fbne a1)
(call #:ld68k:cfltxx)
(bra 101)
140
(btnil (cvalq #:ld68k:mc68881) 142)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fbne a1)
(call #:ld68k:cfltxx)
(bra 101)
142
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:fneqn a1)
(call #:ld68k:generatecall2subr)
(bra 101)
139
(cabne a1 'cfblt 144)
(btnil (cvalq #:ld68k:mc68881) 145)
(btnil (cvalq #:ld68k:31bitfloats) 145)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fblt a1)
(call #:ld68k:cfltxx)
(bra 101)
145
(btnil (cvalq #:ld68k:mc68881) 147)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fblt a1)
(call #:ld68k:cfltxx)
(bra 101)
147
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:flt a1)
(call #:ld68k:generatecall2subr)
(bra 101)
144
(cabne a1 'cfble 149)
(btnil (cvalq #:ld68k:mc68881) 150)
(btnil (cvalq #:ld68k:31bitfloats) 150)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fble a1)
(call #:ld68k:cfltxx)
(bra 101)
150
(btnil (cvalq #:ld68k:mc68881) 152)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fble a1)
(call #:ld68k:cfltxx)
(bra 101)
152
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:fle a1)
(call #:ld68k:generatecall2subr)
(bra 101)
149
(cabne a1 'cfbgt 154)
(btnil (cvalq #:ld68k:mc68881) 155)
(btnil (cvalq #:ld68k:31bitfloats) 155)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fbgt a1)
(call #:ld68k:cfltxx)
(bra 101)
155
(btnil (cvalq #:ld68k:mc68881) 157)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fbgt a1)
(call #:ld68k:cfltxx)
(bra 101)
157
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:fgt a1)
(call #:ld68k:generatecall2subr)
(bra 101)
154
(cabne a1 'cfbge 159)
(btnil (cvalq #:ld68k:mc68881) 160)
(btnil (cvalq #:ld68k:31bitfloats) 160)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fbge a1)
(call #:ld68k:cfltxx)
(bra 101)
160
(btnil (cvalq #:ld68k:mc68881) 162)
(mov nil a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float64)
(mov '#:llcp:fcmp a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float64)
(mov '#:llcp:fbge a1)
(call #:ld68k:cfltxx)
(bra 101)
162
(mov (cvalq #:ld68k:arg3) a2)
(mov '#:llcp:fge a1)
(call #:ld68k:generatecall2subr)
(bra 101)
159
(cabne a1 'decr 164)
(mov (cvalq #:ld68k:arg1) a3)
(mov ''1 a2)
(mov 'diff a1)
(call #:ld68k:arithm)
(bra 101)
164
(cabne a1 'diff 165)
(mov (cvalq #:ld68k:arg2) a3)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:arithm)
(bra 101)
165
(cabne a1 'incr 166)
(mov (cvalq #:ld68k:arg1) a3)
(mov ''1 a2)
(mov 'plus a1)
(call #:ld68k:arithm)
(bra 101)
166
(cabne a1 'negate 167)
(mov (cvalq #:ld68k:arg1) a4)
(cabeq a4 'a1 168)
(cabeq a4 'a2 168)
(cabeq a4 'a3 168)
(cabeq a4 'a4 168)
(mov nil a3)
(mov a4 a2)
(mov (cvalq #:ld68k:|neg.w|) a1)
(call #:ld68k:ins68k-src-word)
(bra 101)
168
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|neg.w|) a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
167
(cabne a1 'plus 170)
(mov (cvalq #:ld68k:arg2) a3)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:arithm)
(bra 101)
170
(cabne a1 'quo 171)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:d1_dst_field) a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|ext.l|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|divs.w|) a4)
(lor (cvalq #:ld68k:rgd1) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|andi.l|) a1)
(call #:ld68k:1word)
(mov '-1 a1)
(call #:ld68k:1long)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
171
(cabne a1 'rem 172)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:d1_dst_field) a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|ext.l|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|divs.w|) a4)
(lor (cvalq #:ld68k:rgd1) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|swap.w|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|andi.l|) a1)
(call #:ld68k:1word)
(mov '-1 a1)
(call #:ld68k:1long)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
172
(cabne a1 'times 173)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:d1_dst_field) a4)
(mov (cvalq #:ld68k:arg2) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|muls.w|) a4)
(lor (cvalq #:ld68k:rgd1) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|andi.l|) a1)
(call #:ld68k:1word)
(mov '-1 a1)
(call #:ld68k:1long)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
173
(cabne a1 'fplus 174)
(btnil (cvalq #:ld68k:mc68881) 175)
(btnil (cvalq #:ld68k:31bitfloats) 175)
(mov nil a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fadd a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float31>32)
(bra 101)
175
(mov nil a2)
(mov '#:llcp:fadd a1)
(call #:ld68k:generatecall2subr)
(bra 101)
174
(cabne a1 'fdiff 177)
(btnil (cvalq #:ld68k:mc68881) 178)
(btnil (cvalq #:ld68k:31bitfloats) 178)
(mov nil a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fsub a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float31>32)
(bra 101)
178
(mov nil a2)
(mov '#:llcp:fsub a1)
(call #:ld68k:generatecall2subr)
(bra 101)
177
(cabne a1 'ftimes 180)
(btnil (cvalq #:ld68k:mc68881) 181)
(btnil (cvalq #:ld68k:31bitfloats) 181)
(mov nil a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fmul a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float31>32)
(bra 101)
181
(mov nil a2)
(mov '#:llcp:fmul a1)
(call #:ld68k:generatecall2subr)
(bra 101)
180
(cabne a1 'fquo 183)
(btnil (cvalq #:ld68k:mc68881) 184)
(btnil (cvalq #:ld68k:31bitfloats) 184)
(mov nil a2)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float32>31)
(mov '#:llcp:fdiv a2)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:float32>31)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:float31>32)
(bra 101)
184
(mov nil a2)
(mov '#:llcp:fdiv a1)
(call #:ld68k:generatecall2subr)
(bra 101)
183
(cabne a1 'land 186)
(mov nil a3)
(mov (cvalq #:ld68k:|and.w|) a2)
(mov (cvalq #:ld68k:|andi.w|) a1)
(call #:ld68k:logxx)
(bra 101)
186
(cabne a1 'lor 187)
(mov nil a3)
(mov (cvalq #:ld68k:|or.w|) a2)
(mov (cvalq #:ld68k:|ori.w|) a1)
(call #:ld68k:logxx)
(bra 101)
187
(cabne a1 'lshift 188)
(bfcons (cvalq #:ld68k:arg1) 191)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 191)
(mov (cdr a4) a3)
(btfix (car a3) 189)
191
(mov nil a2)
(mov '#:llcp:logshift a1)
(call #:ld68k:generatecall2subr)
(bra 101)
189
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(mov (car a4) (cvalq #:ld68k:arg3))
(cnbge (cvalq #:ld68k:arg3) '0 192)
(mov '0 a3)
(diff (cvalq #:ld68k:arg3) a3)
(bra 193)
192
(mov (cvalq #:ld68k:arg3) a3)
193
(mov a3 (cvalq #:ld68k:arg1))
(mov '0 a2)
(mov (cvalq #:ld68k:arg3) a1)
(jcall eq)
(bfnil a1 101)
(cnblt (cvalq #:ld68k:arg1) '32 195)
(mov (cvalq #:ld68k:moveq) a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
195
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(cabne (cvalq #:ld68k:arg1) '8 197)
(cnblt (cvalq #:ld68k:arg3) '0 199)
(mov (cvalq #:ld68k:|lsl.wd|) a1)
(bra 198)
199
(mov (cvalq #:ld68k:|lsr.wd|) a1)
(bra 198)
197
(cnble (cvalq #:ld68k:arg1) '8 201)
(mov (cvalq #:ld68k:|move.w|) a4)
(lor (cvalq #:ld68k:data-mask) a4)
(mov (cvalq #:ld68k:rgd1) a3)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:1word)
(cnblt (cvalq #:ld68k:arg3) '0 203)
(mov (cvalq #:ld68k:|lsl.w|) a4)
(lor (cvalq #:ld68k:d1_dst_field) a4)
(mov a4 a1)
(bra 198)
203
(mov (cvalq #:ld68k:|lsr.w|) a4)
(lor (cvalq #:ld68k:d1_dst_field) a4)
(mov a4 a1)
(bra 198)
201
(cnblt (cvalq #:ld68k:arg3) '0 205)
(mov (cvalq #:ld68k:|lsl.wd|) a1)
(bra 206)
205
(mov (cvalq #:ld68k:|lsr.wd|) a1)
206
(mov (cvalq #:ld68k:arg1) a4)
(lshift '9 a4)
(lor a4 a1)
198
(call #:ld68k:1word)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
188
(cabne a1 'lxor 207)
(mov 't a3)
(mov (cvalq #:ld68k:|eor.w|) a2)
(mov (cvalq #:ld68k:|eori.w|) a1)
(call #:ld68k:logxx)
(bra 101)
207
(cabne a1 'adjstk 208)
(bfcons (cvalq #:ld68k:arg1) 209)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 209)
(mov (cdr a4) a3)
(bffix (car a3) 209)
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(mov '4 a3)
(times (car a4) a3)
(push a3)
(cabeq a3 '0 211)
(cnble a3 '0 213)
(cnbgt a3 '8 215)
(mov (cvalq #:ld68k:|addq.l|) a4)
(lor (cvalq #:ld68k:easp) a4)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(bra 212)
215
(mov (cvalq #:ld68k:|adda.l|) a4)
(lor (cvalq #:ld68k:data-mask) a4)
(mov (cvalq #:ld68k:rgsp) a2)
(lshift '9 a2)
(lor a2 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (& 0) a1)
(call #:ld68k:1long)
(bra 212)
213
(mov '0 a4)
(diff a3 a4)
(mov a4 (& 0))
(cnbgt a4 '8 217)
(mov (cvalq #:ld68k:|subq.l|) a3)
(lor (cvalq #:ld68k:easp) a3)
(lshift '9 a4)
(lor a4 a3)
(mov a3 a1)
(call #:ld68k:1word)
(bra 212)
217
(mov (cvalq #:ld68k:|suba.l|) a3)
(lor (cvalq #:ld68k:data-mask) a3)
(mov (cvalq #:ld68k:rgsp) a2)
(lshift '9 a2)
(lor a2 a3)
(mov a3 a1)
(call #:ld68k:1word)
(mov (& 0) a1)
(call #:ld68k:1long)
(bra 212)
211
(mov nil a1)
212
(adjstk '1)
(bra 101)
209
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '1024 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:rgsp) a4)
(lshift '9 a4)
(mov (cvalq #:ld68k:|adda.l|) a3)
(lor a4 a3)
(mov a3 a1)
(call #:ld68k:1word)
(bra 101)
208
(cabne a1 'bra 219)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:bra) a1)
(call #:ld68k:brarel)
(call #:ld68k:align)
(bra 101)
219
(cabne a1 'bri 220)
(mov (cvalq #:ld68k:arg1) a4)
(cabeq a4 'a1 223)
(cabeq a4 'a2 223)
(cabeq a4 'a3 223)
(cabne a4 'a4 221)
223
(push (@ 224))
(push 'val)
(push a4)
(mov '2 a4)
(jmp list)
224
(eval ())
(mov a1 a2)
(mov (cvalq #:ld68k:jmp) a1)
(call #:ld68k:ins68k-src)
(bra 222)
221
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '64 a3)
(mov (cvalq #:ld68k:rgaux0) a2)
(lshift '9 a2)
(lor a2 a3)
(mov a4 a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:jmp) a1)
(call #:ld68k:1word)
222
(call #:ld68k:align)
(bra 101)
220
(cabne a1 'brx 225)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|add.l|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:lea) a4)
(lor (cvalq #:ld68k:indirect-pcm-pindx-mask) a4)
(mov a4 a1)
(call #:ld68k:1word)
(push (@ 226))
(push '2048)
(push '6)
(mov '2 a4)
(jmp +)
226
(eval ())
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|adda.w|) a4)
(lor '16 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:jmp) a1)
(call #:ld68k:1word)
(push nil)
(push (cvalq #:ld68k:arg1))
227
(bfcons (& 0) 228)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:valadrel)
(mov a1 (& 2))
(call #:ld68k:check16)
(btnil a1 229)
(mov (& 2) a1)
(call #:ld68k:1word)
(bra 230)
229
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov '16 a2)
(mov (car a1) a1)
(call #:ld68k:addlabel)
(mov '0 a1)
(call #:ld68k:1word)
230
(adjstk '1)
(bra 227)
228
(adjstk '2)
(call #:ld68k:align)
(bra 101)
225
(cabne a1 'call 231)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:bsr) a1)
(call #:ld68k:brarel)
(bra 101)
231
(cabne a1 'car 232)
(push (@ 233))
(push 'mov)
(push (@ 234))
(push 'car)
(push (cvalq #:ld68k:arg1))
(mov '2 a4)
(jmp list)
234
(eval ())
(push a1)
(push (cvalq #:ld68k:arg1))
(mov '3 a4)
(jmp list)
233
(eval ())
(jcall #:ld68k:ins)
(bra 101)
232
(cabne a1 'cdr 235)
(push (@ 236))
(push 'mov)
(push (@ 237))
(push 'cdr)
(push (cvalq #:ld68k:arg1))
(mov '2 a4)
(jmp list)
237
(eval ())
(push a1)
(push (cvalq #:ld68k:arg1))
(mov '3 a4)
(jmp list)
236
(eval ())
(jcall #:ld68k:ins)
(bra 101)
235
(cabne a1 'hbmovx 238)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:load-heap-address-in-a0)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(bfcons (cvalq #:ld68k:arg3) 239)
(mov (cvalq #:ld68k:arg3) a4)
(cabne (car a4) 'quote 239)
(mov (cdr a4) a3)
(bffix (car a3) 239)
(mov (cvalq #:ld68k:|move.b|) a4)
(lor '320 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg3) a4)
(mov (cdr a4) a4)
(mov '8 a3)
(plus (car a4) a3)
(mov a3 a1)
(call #:ld68k:1word)
(bra 101)
239
(mov (cvalq #:ld68k:arg3) a4)
(cabeq a4 'a1 243)
(cabeq a4 'a2 243)
(cabeq a4 'a3 243)
(cabne a4 'a4 241)
243
(mov (cvalq #:ld68k:|move.b|) a3)
(lor '384 a3)
(mov (cvalq #:ld68k:rgaux0) a2)
(lshift '9 a2)
(lor a2 a3)
(mov a3 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg3) a1)
(cabne a1 'd0 245)
(mov '2048 a1)
(bra 244)
245
(cabne a1 'd1 246)
(mov '6144 a1)
(bra 244)
246
(cabne a1 'a1 247)
(mov '-26624 a1)
(bra 244)
247
(cabne a1 'a2 248)
(mov '-22528 a1)
(bra 244)
248
(cabne a1 'a3 249)
(mov '-18432 a1)
(bra 244)
249
(cabne a1 'a4 250)
(mov '-14336 a1)
(bra 244)
250
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
244
(lor '8 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
241
(mov (cvalq #:ld68k:|move.l|) a3)
(lor (cvalq #:ld68k:d1_dst_field) a3)
(mov a4 a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.b|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov 'd1 a1)
(cabne a1 'd0 253)
(mov '2048 a1)
(bra 252)
253
(cabne a1 'd1 254)
(mov '6144 a1)
(bra 252)
254
(cabne a1 'a1 255)
(mov '-26624 a1)
(bra 252)
255
(cabne a1 'a2 256)
(mov '-22528 a1)
(bra 252)
256
(cabne a1 'a3 257)
(mov '-18432 a1)
(bra 252)
257
(cabne a1 'a4 258)
(mov '-14336 a1)
(bra 252)
258
(mov 'd1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
252
(lor '8 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
238
(cabne a1 'hbxmov 260)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:load-heap-address-in-a0)
(mov (cvalq #:ld68k:|clr.l|) a1)
(call #:ld68k:1word)
(bfcons (cvalq #:ld68k:arg2) 261)
(mov (cvalq #:ld68k:arg2) a4)
(cabne (car a4) 'quote 261)
(mov (cdr a4) a3)
(bffix (car a3) 261)
(mov (cvalq #:ld68k:|move.b|) a4)
(lor '40 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg2) a4)
(mov (cdr a4) a4)
(mov '8 a3)
(plus (car a4) a3)
(mov a3 a1)
(call #:ld68k:1word)
(bra 262)
261
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'a1 265)
(cabeq a4 'a2 265)
(cabeq a4 'a3 265)
(cabne a4 'a4 263)
265
(mov (cvalq #:ld68k:|move.b|) a3)
(lor '48 a3)
(lor (cvalq #:ld68k:rgaux0) a3)
(mov a3 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg2) a1)
(cabne a1 'd0 267)
(mov '2048 a1)
(bra 266)
267
(cabne a1 'd1 268)
(mov '6144 a1)
(bra 266)
268
(cabne a1 'a1 269)
(mov '-26624 a1)
(bra 266)
269
(cabne a1 'a2 270)
(mov '-22528 a1)
(bra 266)
270
(cabne a1 'a3 271)
(mov '-18432 a1)
(bra 266)
271
(cabne a1 'a4 272)
(mov '-14336 a1)
(bra 266)
272
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
266
(lor '8 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 262)
263
(mov (cvalq #:ld68k:|move.l|) a3)
(lor (cvalq #:ld68k:d1_dst_field) a3)
(mov a4 a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.b|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov 'd1 a1)
(cabne a1 'd0 275)
(mov '2048 a1)
(bra 274)
275
(cabne a1 'd1 276)
(mov '6144 a1)
(bra 274)
276
(cabne a1 'a1 277)
(mov '-26624 a1)
(bra 274)
277
(cabne a1 'a2 278)
(mov '-22528 a1)
(bra 274)
278
(cabne a1 'a3 279)
(mov '-18432 a1)
(bra 274)
279
(cabne a1 'a4 280)
(mov '-14336 a1)
(bra 274)
280
(mov 'd1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
274
(lor '8 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
262
(mov nil a3)
(mov (cvalq #:ld68k:arg3) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
260
(cabne a1 'hgsize 282)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:load-heap-address-in-a0)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '40 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov '4 a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov a4 a1)
(call #:ld68k:ins68k-dst)
(bra 101)
282
(cabne a1 'hpmovx 283)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:load-heap-address-in-a0)
(bfcons (cvalq #:ld68k:arg3) 284)
(mov (cvalq #:ld68k:arg3) a4)
(cabne (car a4) 'quote 284)
(mov (cdr a4) a3)
(bffix (car a3) 284)
(mov (cvalq #:ld68k:arg3) a4)
(mov (cdr a4) a4)
(cnbge (car a4) '16376 284)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '320 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg3) a4)
(mov (cdr a4) a4)
(mov '4 a3)
(times (car a4) a3)
(mov '8 a4)
(plus a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(bra 101)
284
(bfcons (cvalq #:ld68k:arg3) 286)
(mov (cvalq #:ld68k:arg3) a4)
(cabne (car a4) 'quote 286)
(mov (cdr a4) a3)
(bffix (car a3) 286)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:data-mask) a4)
(mov (cvalq #:ld68k:rgd0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg3) a4)
(mov (cdr a4) a4)
(mov '4 a3)
(times (car a4) a3)
(mov '8 a4)
(plus a3 a4)
(mov a4 a1)
(call #:ld68k:1long)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov 'd0 a1)
(cabne a1 'd0 289)
(mov '2048 a1)
(bra 288)
289
(cabne a1 'd1 290)
(mov '6144 a1)
(bra 288)
290
(cabne a1 'a1 291)
(mov '-26624 a1)
(bra 288)
291
(cabne a1 'a2 292)
(mov '-22528 a1)
(bra 288)
292
(cabne a1 'a3 293)
(mov '-18432 a1)
(bra 288)
293
(cabne a1 'a4 294)
(mov '-14336 a1)
(bra 288)
294
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
288
(lor '0 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
286
(btnil (cvalq #:ld68k:mc68020) 296)
(mov (cvalq #:ld68k:arg3) a4)
(cabeq a4 'a1 300)
(cabeq a4 'a2 300)
(cabeq a4 'a3 300)
(cabne a4 'a4 298)
300
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '384 a3)
(mov (cvalq #:ld68k:rgaux0) a2)
(lshift '9 a2)
(lor a2 a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg3) a1)
(cabne a1 'd0 302)
(mov '2048 a1)
(bra 301)
302
(cabne a1 'd1 303)
(mov '6144 a1)
(bra 301)
303
(cabne a1 'a1 304)
(mov '-26624 a1)
(bra 301)
304
(cabne a1 'a2 305)
(mov '-22528 a1)
(bra 301)
305
(cabne a1 'a3 306)
(mov '-18432 a1)
(bra 301)
306
(cabne a1 'a4 307)
(mov '-14336 a1)
(bra 301)
307
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
301
(lor '8 a1)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
298
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov 'd0 a1)
(cabne a1 'd0 310)
(mov '2048 a1)
(bra 309)
310
(cabne a1 'd1 311)
(mov '6144 a1)
(bra 309)
311
(cabne a1 'a1 312)
(mov '-26624 a1)
(bra 309)
312
(cabne a1 'a2 313)
(mov '-22528 a1)
(bra 309)
313
(cabne a1 'a3 314)
(mov '-18432 a1)
(bra 309)
314
(cabne a1 'a4 315)
(mov '-14336 a1)
(bra 309)
315
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
309
(lor '8 a1)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
296
(mov (cvalq #:ld68k:arg3) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '1024 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov 'd0 a1)
(cabne a1 'd0 318)
(mov '2048 a1)
(bra 317)
318
(cabne a1 'd1 319)
(mov '6144 a1)
(bra 317)
319
(cabne a1 'a1 320)
(mov '-26624 a1)
(bra 317)
320
(cabne a1 'a2 321)
(mov '-22528 a1)
(bra 317)
321
(cabne a1 'a3 322)
(mov '-18432 a1)
(bra 317)
322
(cabne a1 'a4 323)
(mov '-14336 a1)
(bra 317)
323
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
317
(lor '8 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
283
(cabne a1 'hpxmov 325)
(mov (cvalq #:ld68k:arg1) a1)
(call #:ld68k:load-heap-address-in-a0)
(bfcons (cvalq #:ld68k:arg2) 326)
(mov (cvalq #:ld68k:arg2) a4)
(cabne (car a4) 'quote 326)
(mov (cdr a4) a3)
(bffix (car a3) 326)
(mov (cvalq #:ld68k:arg2) a4)
(mov (cdr a4) a4)
(cnbge (car a4) '16376 326)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '40 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov (cvalq #:ld68k:arg2) a3)
(mov (cdr a3) a3)
(mov '4 a2)
(times (car a3) a2)
(mov '8 a3)
(plus a2 a3)
(mov (cvalq #:ld68k:arg3) a2)
(mov a4 a1)
(call #:ld68k:ins68k-dst)
(bra 101)
326
(bfcons (cvalq #:ld68k:arg2) 328)
(mov (cvalq #:ld68k:arg2) a4)
(cabne (car a4) 'quote 328)
(mov (cdr a4) a3)
(bffix (car a3) 328)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:data-mask) a4)
(mov (cvalq #:ld68k:rgd0) a3)
(lshift '9 a3)
(lor a3 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg2) a4)
(mov (cdr a4) a4)
(mov '4 a3)
(times (car a4) a3)
(mov '8 a4)
(plus a3 a4)
(mov a4 a1)
(call #:ld68k:1long)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(push a4)
(mov 'd0 a1)
(cabne a1 'd0 331)
(mov '2048 a3)
(bra 330)
331
(cabne a1 'd1 332)
(mov '6144 a3)
(bra 330)
332
(cabne a1 'a1 333)
(mov '-26624 a3)
(bra 330)
333
(cabne a1 'a2 334)
(mov '-22528 a3)
(bra 330)
334
(cabne a1 'a3 335)
(mov '-18432 a3)
(bra 330)
335
(cabne a1 'a4 336)
(mov '-14336 a3)
(bra 330)
336
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
330
(lor '0 a3)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg3) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
328
(btnil (cvalq #:ld68k:mc68020) 338)
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'a1 342)
(cabeq a4 'a2 342)
(cabeq a4 'a3 342)
(cabne a4 'a4 340)
342
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '48 a3)
(lor (cvalq #:ld68k:rgaux0) a3)
(push a3)
(mov a4 a1)
(cabne a1 'd0 344)
(mov '2048 a3)
(bra 343)
344
(cabne a1 'd1 345)
(mov '6144 a3)
(bra 343)
345
(cabne a1 'a1 346)
(mov '-26624 a3)
(bra 343)
346
(cabne a1 'a2 347)
(mov '-22528 a3)
(bra 343)
347
(cabne a1 'a3 348)
(mov '-18432 a3)
(bra 343)
348
(cabne a1 'a4 349)
(mov '-14336 a3)
(bra 343)
349
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
343
(lor '8 a3)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg3) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
340
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(push a4)
(mov 'd0 a1)
(cabne a1 'd0 352)
(mov '2048 a3)
(bra 351)
352
(cabne a1 'd1 353)
(mov '6144 a3)
(bra 351)
353
(cabne a1 'a1 354)
(mov '-26624 a3)
(bra 351)
354
(cabne a1 'a2 355)
(mov '-22528 a3)
(bra 351)
355
(cabne a1 'a3 356)
(mov '-18432 a3)
(bra 351)
356
(cabne a1 'a4 357)
(mov '-14336 a3)
(bra 351)
357
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
351
(lor '8 a3)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg3) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
338
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '1024 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(push a4)
(mov 'd0 a1)
(cabne a1 'd0 360)
(mov '2048 a3)
(bra 359)
360
(cabne a1 'd1 361)
(mov '6144 a3)
(bra 359)
361
(cabne a1 'a1 362)
(mov '-26624 a3)
(bra 359)
362
(cabne a1 'a2 363)
(mov '-22528 a3)
(bra 359)
363
(cabne a1 'a3 364)
(mov '-18432 a3)
(bra 359)
364
(cabne a1 'a4 365)
(mov '-14336 a3)
(bra 359)
365
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
359
(lor '8 a3)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg3) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
325
(cabeq a1 'jcall 368)
(cabne a1 'jmp 367)
368
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:ins68k-jump-or-call)
(bra 101)
367
(cabne a1 'mov 369)
(bfcons (cvalq #:ld68k:arg1) 370)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) '@ 370)
(mov (cvalq #:ld68k:arg2) a1)
(call #:ld68k:cmp-reg?)
(push a1)
(btnil a1 372)
(mov (cvalq #:ld68k:lea) a4)
(lor (cvalq #:ld68k:indirect-pc-disp-mask) a4)
(lor (& 0) a4)
(mov a4 a1)
(call #:ld68k:1word)
(bra 373)
372
(mov (cvalq #:ld68k:lea) a4)
(lor (cvalq #:ld68k:indirect-pc-disp-mask) a4)
(mov a4 a1)
(call #:ld68k:1word)
373
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov (& 0) a1)
(call #:ld68k:valadrel)
(push a1)
(call #:ld68k:check16)
(btnil a1 374)
(mov (& 0) a1)
(call #:ld68k:1word)
(bra 375)
374
(bfsymb (& 1) 376)
(mov (cvalq #:ld68k:llabels) a2)
(mov (& 1) a1)
(jcall assq)
(bfnil a1 376)
(mov (& 1) a1)
(call #:ld68k:addentry)
(bra 377)
376
(mov '16 a2)
(mov (& 1) a1)
(call #:ld68k:addlabel)
377
(mov '0 a1)
(call #:ld68k:1word)
375
(adjstk '2)
(bfnil (& 0) 378)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '8 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov a4 a1)
(call #:ld68k:ins68k-dst)
(bra 379)
378
(mov nil a1)
379
(adjstk '1)
(bra 101)
370
(bfcons (cvalq #:ld68k:arg1) 382)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 382)
(mov (cdr a4) a3)
(bffix (car a3) 382)
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(cnblt (car a4) '0 382)
(mov (cvalq #:ld68k:arg1) a3)
(mov (cdr a3) a3)
(cnblt (car a3) '127 380)
382
(mov (cvalq #:ld68k:arg2) a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src-dst)
(bra 101)
380
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(land '255 a4)
(mov (cvalq #:ld68k:moveq) a3)
(lor a4 a3)
(mov a3 a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
369
(cabne a1 'movxsp 383)
(bfcons (cvalq #:ld68k:arg2) 384)
(mov (cvalq #:ld68k:arg2) a4)
(cabne (car a4) 'quote 384)
(mov (cdr a4) a3)
(bffix (car a3) 384)
(push (@ 386))
(push 'mov)
(push (cvalq #:ld68k:arg1))
(push (@ 387))
(push '&)
(mov (cvalq #:ld68k:arg2) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov '2 a4)
(jmp list)
387
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
386
(eval ())
(jcall #:ld68k:ins)
(bra 101)
384
(btnil (cvalq #:ld68k:mc68020) 388)
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'a1 392)
(cabeq a4 'a2 392)
(cabeq a4 'a3 392)
(cabne a4 'a4 390)
392
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '384 a3)
(mov (cvalq #:ld68k:rgsp) a2)
(lshift '9 a2)
(lor a2 a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a1)
(cabne a1 'd0 394)
(mov '2048 a1)
(bra 393)
394
(cabne a1 'd1 395)
(mov '6144 a1)
(bra 393)
395
(cabne a1 'a1 396)
(mov '-26624 a1)
(bra 393)
396
(cabne a1 'a2 397)
(mov '-22528 a1)
(bra 393)
397
(cabne a1 'a3 398)
(mov '-18432 a1)
(bra 393)
398
(cabne a1 'a4 399)
(mov '-14336 a1)
(bra 393)
399
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
393
(lor '0 a1)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
390
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgsp) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov 'd0 a1)
(cabne a1 'd0 402)
(mov '2048 a1)
(bra 401)
402
(cabne a1 'd1 403)
(mov '6144 a1)
(bra 401)
403
(cabne a1 'a1 404)
(mov '-26624 a1)
(bra 401)
404
(cabne a1 'a2 405)
(mov '-22528 a1)
(bra 401)
405
(cabne a1 'a3 406)
(mov '-18432 a1)
(bra 401)
406
(cabne a1 'a4 407)
(mov '-14336 a1)
(bra 401)
407
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
401
(lor '0 a1)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
388
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '1024 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '384 a4)
(mov (cvalq #:ld68k:rgsp) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(mov 'd0 a1)
(cabne a1 'd0 410)
(mov '2048 a1)
(bra 409)
410
(cabne a1 'd1 411)
(mov '6144 a1)
(bra 409)
411
(cabne a1 'a1 412)
(mov '-26624 a1)
(bra 409)
412
(cabne a1 'a2 413)
(mov '-22528 a1)
(bra 409)
413
(cabne a1 'a3 414)
(mov '-18432 a1)
(bra 409)
414
(cabne a1 'a4 415)
(mov '-14336 a1)
(bra 409)
415
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
409
(lor '0 a1)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a1)
(call #:ld68k:1word)
(bra 101)
383
(cabne a1 'nop 417)
(mov (cvalq #:ld68k:nop) a1)
(call #:ld68k:1word)
(bra 101)
417
(cabne a1 'pop 418)
(mov nil a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:pop) a1)
(call #:ld68k:ins68k-dst)
(bra 101)
418
(cabne a1 'push 419)
(bfcons (cvalq #:ld68k:arg1) 422)
(mov (cvalq #:ld68k:arg1) a4)
(cabeq (car a4) '@ 420)
422
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:push) a1)
(call #:ld68k:ins68k-src)
(bra 101)
420
(mov (cvalq #:ld68k:pea) a4)
(lor (cvalq #:ld68k:indirect-pc-disp-mask) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov (cvalq #:ld68k:arg1) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:valadrel)
(push a1)
(call #:ld68k:check16)
(btnil a1 423)
(mov (& 0) a1)
(call #:ld68k:1word)
(bra 424)
423
(bfsymb (& 1) 425)
(mov (cvalq #:ld68k:llabels) a2)
(mov (& 1) a1)
(jcall assq)
(bfnil a1 425)
(mov (& 1) a1)
(call #:ld68k:addentry)
(bra 426)
425
(mov '16 a2)
(mov (& 1) a1)
(call #:ld68k:addlabel)
426
(mov '0 a1)
(call #:ld68k:1word)
424
(adjstk '2)
(bra 101)
419
(cabne a1 'return 427)
(mov (cvalq #:ld68k:rts) a1)
(call #:ld68k:1word)
(call #:ld68k:align)
(bra 101)
427
(cabne a1 'sobgez 428)
(mov (cvalq #:ld68k:arg1) a3)
(mov ''1 a2)
(mov 'diff a1)
(call #:ld68k:arithm)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:bge) a1)
(call #:ld68k:brarel)
(bra 101)
428
(cabne a1 'sstack 429)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '64 a4)
(mov (cvalq #:ld68k:rgsp) a3)
(lshift '9 a3)
(lor a3 a4)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-src)
(bra 101)
429
(cabne a1 'stack 430)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '8 a4)
(lor (cvalq #:ld68k:rgsp) a4)
(mov nil a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov a4 a1)
(call #:ld68k:ins68k-dst)
(bra 101)
430
(cabne a1 'xspmov 431)
(bfcons (cvalq #:ld68k:arg1) 432)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 432)
(mov (cdr a4) a3)
(bffix (car a3) 432)
(push (@ 434))
(push 'mov)
(push (@ 435))
(push '&)
(mov (cvalq #:ld68k:arg1) a4)
(mov (cdr a4) a4)
(push (car a4))
(mov '2 a4)
(jmp list)
435
(eval ())
(push a1)
(push (cvalq #:ld68k:arg2))
(mov '3 a4)
(jmp list)
434
(eval ())
(jcall #:ld68k:ins)
(bra 101)
432
(btnil (cvalq #:ld68k:mc68020) 436)
(mov (cvalq #:ld68k:arg1) a4)
(cabeq a4 'a1 440)
(cabeq a4 'a2 440)
(cabeq a4 'a3 440)
(cabne a4 'a4 438)
440
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '48 a3)
(lor (cvalq #:ld68k:rgsp) a3)
(push a3)
(mov a4 a1)
(cabne a1 'd0 442)
(mov '2048 a3)
(bra 441)
442
(cabne a1 'd1 443)
(mov '6144 a3)
(bra 441)
443
(cabne a1 'a1 444)
(mov '-26624 a3)
(bra 441)
444
(cabne a1 'a2 445)
(mov '-22528 a3)
(bra 441)
445
(cabne a1 'a3 446)
(mov '-18432 a3)
(bra 441)
446
(cabne a1 'a4 447)
(mov '-14336 a3)
(bra 441)
447
(mov a1 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
441
(lor '0 a3)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg2) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
438
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgsp) a4)
(push a4)
(mov 'd0 a1)
(cabne a1 'd0 450)
(mov '2048 a3)
(bra 449)
450
(cabne a1 'd1 451)
(mov '6144 a3)
(bra 449)
451
(cabne a1 'a1 452)
(mov '-26624 a3)
(bra 449)
452
(cabne a1 'a2 453)
(mov '-22528 a3)
(bra 449)
453
(cabne a1 'a3 454)
(mov '-18432 a3)
(bra 449)
454
(cabne a1 'a4 455)
(mov '-14336 a3)
(bra 449)
455
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
449
(lor '0 a3)
(mov '2 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg2) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
436
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '1024 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '48 a4)
(lor (cvalq #:ld68k:rgsp) a4)
(push a4)
(mov 'd0 a1)
(cabne a1 'd0 458)
(mov '2048 a3)
(bra 457)
458
(cabne a1 'd1 459)
(mov '6144 a3)
(bra 457)
459
(cabne a1 'a1 460)
(mov '-26624 a3)
(bra 457)
460
(cabne a1 'a2 461)
(mov '-22528 a3)
(bra 457)
461
(cabne a1 'a3 462)
(mov '-18432 a3)
(bra 457)
462
(cabne a1 'a4 463)
(mov '-14336 a3)
(bra 457)
463
(mov 'd0 a2)
(mov '"INDIRECT-INDEX " a1)
(call #:ld68k:error)
(mov a1 a3)
457
(lor '0 a3)
(mov '0 a4)
(lshift '9 a4)
(lor a4 a3)
(mov (cvalq #:ld68k:arg2) a2)
(pop a1)
(call #:ld68k:ins68k-dst)
(bra 101)
431
(mov a1 a2)
(mov 'ld-codop a1)
(jcall getfn1)
(mov a1 (cvalq #:ld68k:f))
(btnil a1 466)
(push (@ 468))
(push a1)
(push (cvalq obj))
(mov '2 a4)
(jmp apply)
468
(eval ())
(bra 101)
466
(mov (cvalq obj) a2)
(mov '"MACHINS" a1)
(call #:ld68k:error)
101
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq obj))
(adjstk '7)
(return)
))
(loader'((entry #:ld68k:generatecall2subr subr2)
(push a2)
(push a1)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:push) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:pea) a4)
(lor (cvalq #:ld68k:indirect-pc-disp-mask) a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:pccurrent) a1)
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(mov (cvalq #:ld68k:localstack) a4)
(plus '2 a4)
(push a1)
(push (cvalq #:ld68k:localstack))
(mov a4 (cvalq #:ld68k:localstack))
(push '1)
(push '(#:ld68k:localstack))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov '0 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:push) a1)
(call #:ld68k:ins68k-src)
(mov (& 8) a2)
(mov 'jmp a1)
(call #:ld68k:ins68k-jump-or-call)
(push (@ 101))
(push (& 8))
(mov (& 9) a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall subadr)
(push a1)
(mov '2 a4)
(jmp memory)
101
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:ld68k:localstack))
(adjstk '8)
(bfnil (& 1) 102)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:pop) a1)
(adjstk '2)
(bra #:ld68k:ins68k-dst)
102
(mov (cvalq #:ld68k:pop) a1)
(call #:ld68k:1word)
(mov (& 1) a2)
(mov (cvalq #:ld68k:bne) a1)
(adjstk '2)
(bra #:ld68k:brarel)
))
(loader'((entry #:ld68k:check8 subr1)
(bffix a1 101)
(cnblt a1 '-125 101)
(cnbgt a1 '124 101)
(return)
101
(mov nil a1)
(return)
))
(loader'((entry #:ld68k:check16 subr1)
(bfnil a1 101)
(mov nil a1)
(return)
101
(bffix a1 103)
(return)
103
(bfcons a1 105)
(cabeq (car a1) '0 109)
(cabne (car a1) '-1 107)
109
(mov (cdr a1) a1)
(return)
107
(push (@ 110))
(push (cvalq obj))
(push a1)
(mov '2 a4)
(jmp list)
110
(eval ())
(mov a1 a2)
(mov '"CHECK16" a1)
(call #:ld68k:error)
(mov '0 a1)
(return)
105
(mov a1 a2)
(mov '"CHECK16" a1)
(call #:ld68k:error)
(mov '0 a1)
(return)
))
(loader'((entry #:ld68k:what-cmp subr1)
(cnbgt a1 (cvalq #:ld68k:ead7) 101)
(lshift '9 a1)
(mov (cvalq #:ld68k:|cmp.l|) a4)
(lor a1 a4)
(mov a4 a1)
(return)
101
(land '7 a1)
(lshift '9 a1)
(mov (cvalq #:ld68k:|cmpa.l|) a4)
(lor a1 a4)
(mov a4 a1)
(return)
))
(loader'((entry #:ld68k:brtf1 subr2)
(push a2)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (& 0) a1)
(adjstk '1)
(bra #:ld68k:brarel)
))
(loader'((entry #:ld68k:brt2 subr2)
(push a2)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:pccurrent) a1)
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(push a1)
(mov '0 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg1) a2)
(mov (& 1) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:bhi) a1)
(call #:ld68k:brarel)
(push (@ 101))
(push (& 1))
(mov (& 2) a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall subadr)
(mov '2 a2)
(jcall subadr)
(mov (cvalq #:ld68k:bhi) a4)
(lor a1 a4)
(push a4)
(mov '2 a4)
(jmp memory)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:brf2 subr2)
(push a2)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:bhi) a1)
(call #:ld68k:brarel)
(mov (cvalq #:ld68k:arg1) a2)
(mov (& 0) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:bls) a1)
(adjstk '1)
(bra #:ld68k:brarel)
))
(loader'((entry #:ld68k:cmpeq-ne subr2)
(push a2)
(push a1)
(mov a2 a1)
(call #:ld68k:cmp-reg?)
(push a1)
(btnil a1 101)
(mov (cvalq #:ld68k:|cmpa.l|) a4)
(lor a1 a4)
(mov (& 1) a2)
(mov a4 a1)
(adjstk '3)
(bra #:ld68k:ins68k-src)
101
(mov (& 1) a1)
(call #:ld68k:cmp-reg?)
(mov a1 (& 0))
(btnil a1 103)
(mov (cvalq #:ld68k:|cmpa.l|) a4)
(lor a1 a4)
(mov (& 2) a2)
(mov a4 a1)
(adjstk '3)
(bra #:ld68k:ins68k-src)
103
(bfcons (& 1) 105)
(mov (& 1) a4)
(cabne (car a4) 'quote 105)
(mov (cdr a4) a3)
(bffix (car a3) 105)
(bfcons (& 2) 107)
(mov (& 2) a4)
(cabne (car a4) 'quote 107)
(mov (cdr a4) a3)
(bffix (car a3) 107)
(mov (& 2) a4)
(mov (cdr a4) a4)
(mov (& 1) a3)
(mov (cdr a3) a3)
(cabne (car a4) (car a3) 109)
(mov (cvalq #:ld68k:|cmp.b|) a1)
(adjstk '3)
(bra #:ld68k:1word)
109
(mov (cvalq #:ld68k:rgbcons) a1)
(call #:ld68k:what-cmp)
(lor (cvalq #:ld68k:rgnil) a1)
(adjstk '3)
(bra #:ld68k:1word)
107
(mov (& 1) a3)
(mov (cdr a3) a3)
(mov (car a3) a3)
(mov (& 2) a2)
(mov (cvalq #:ld68k:|cmpi.l|) a1)
(adjstk '3)
(bra #:ld68k:ins68k-src+2)
105
(bfcons (& 2) 111)
(mov (& 2) a4)
(cabne (car a4) 'quote 111)
(mov (cdr a4) a3)
(bffix (car a3) 111)
(mov (& 2) a3)
(mov (cdr a3) a3)
(mov (car a3) a3)
(mov (& 1) a2)
(mov (cvalq #:ld68k:|cmpi.l|) a1)
(adjstk '3)
(bra #:ld68k:ins68k-src+2)
111
(mov (& 1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 2) a2)
(mov (cvalq #:ld68k:|cmp.l|) a1)
(adjstk '3)
(bra #:ld68k:ins68k-src)
))
(loader'((entry #:ld68k:cmp-reg? subr1)
(cabne a1 'a1 102)
(mov '512 a1)
(return)
102
(cabne a1 'a2 103)
(mov '1024 a1)
(return)
103
(cabne a1 'a3 104)
(mov '1536 a1)
(return)
104
(cabne a1 'a4 105)
(mov '2048 a1)
(return)
105
(mov nil a1)
(return)
))
(loader'((entry #:ld68k:cmp-numerical-and-branch subr2)
(push a1)
(bfcons (cvalq #:ld68k:arg1) 102)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 102)
(push (cvalq #:ld68k:arg2))
(mov (cvalq #:ld68k:arg1) (cvalq #:ld68k:arg2))
(pop a4)
(mov a4 (cvalq #:ld68k:arg1))
(mov a2 (& 0))
102
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|cmp.w|) a1)
(call #:ld68k:ins68k-src-word)
(mov (cvalq #:ld68k:arg3) a2)
(mov (& 0) a1)
(adjstk '1)
(bra #:ld68k:brarel)
))
(loader'((entry #:ld68k:arithm subr3)
(push a3)
(push a2)
(push a1)
(mov a3 a1)
(call #:ld68k:cmp-reg?)
(cabne (& 0) 'plus 101)
(mov (cvalq #:ld68k:|addq.w|) a4)
(bra 102)
101
(mov (cvalq #:ld68k:|subq.w|) a4)
102
(cabne (& 0) 'plus 103)
(mov (cvalq #:ld68k:|add.w|) a3)
(bra 104)
103
(mov (cvalq #:ld68k:|sub.w|) a3)
104
(cabne (& 0) 'plus 105)
(mov (cvalq #:ld68k:|addi.w|) a2)
(bra 106)
105
(mov (cvalq #:ld68k:|subi.w|) a2)
106
(push a2)
(push a3)
(push a4)
(bfcons (& 4) 107)
(mov (& 4) a4)
(cabne (car a4) 'quote 107)
(mov (cdr a4) a4)
(bffix (car a4) 107)
(mov (& 4) a4)
(mov (cdr a4) a4)
(cnbgt (car a4) '8 107)
(mov (& 4) a4)
(mov (cdr a4) a4)
(cnble (car a4) '0 107)
(bfnil a1 109)
(mov (& 4) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(lshift '9 a4)
(mov (& 0) a1)
(lor a4 a1)
(mov nil a3)
(mov (& 5) a2)
(adjstk '6)
(bra #:ld68k:ins68k-src-word)
109
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 4) a4)
(mov (cdr a4) a4)
(mov (car a4) a4)
(lshift '9 a4)
(mov (& 0) a3)
(lor a4 a3)
(mov a3 a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '6)
(bra #:ld68k:ins68k-dst)
107
(bfcons (& 4) 111)
(mov (& 4) a4)
(cabne (car a4) 'quote 111)
(mov (cdr a4) a4)
(bffix (car a4) 111)
(bfnil a1 113)
(push a2)
(mov (& 5) a3)
(mov (cdr a3) a3)
(mov (car a3) a3)
(mov (& 6) a2)
(pop a1)
(adjstk '6)
(bra #:ld68k:ins68k-src-word)
113
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 2) a1)
(call #:ld68k:1word)
(mov (& 4) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '6)
(bra #:ld68k:ins68k-dst)
111
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov nil a3)
(mov (& 4) a2)
(mov (& 1) a1)
(call #:ld68k:ins68k-src-word)
(mov nil a3)
(mov (& 5) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '6)
(bra #:ld68k:ins68k-dst)
))
(loader'((entry #:ld68k:logxx subr3)
(push a3)
(push a2)
(push a1)
(bfcons (cvalq #:ld68k:arg1) 101)
(mov (cvalq #:ld68k:arg1) a4)
(cabne (car a4) 'quote 101)
(mov (cdr a4) a4)
(bffix (car a4) 101)
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'a1 103)
(cabeq a4 'a2 103)
(cabeq a4 'a3 103)
(cabeq a4 'a4 103)
(mov (cvalq #:ld68k:arg1) a3)
(mov (cdr a3) a3)
(mov (car a3) a3)
(mov a4 a2)
(adjstk '3)
(bra #:ld68k:ins68k-src-word)
103
(mov a4 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 0) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:arg1) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '3)
(bra #:ld68k:ins68k-dst)
101
(mov (cvalq #:ld68k:arg2) a4)
(cabeq a4 'a1 105)
(cabeq a4 'a2 105)
(cabeq a4 'a3 105)
(cabeq a4 'a4 105)
(mov (cvalq #:ld68k:arg1) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 1) a4)
(lor '256 a4)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov a4 a1)
(adjstk '3)
(bra #:ld68k:ins68k-src-word)
105
(bfnil a3 109)
(mov (cvalq #:ld68k:arg1) a4)
(cabeq a4 'a1 109)
(cabeq a4 'a2 109)
(cabeq a4 'a3 109)
(cabne a4 'a4 107)
109
(mov (cvalq #:ld68k:rgd1) a4)
(lshift '9 a4)
(mov (cvalq #:ld68k:|move.l|) a1)
(lor a4 a1)
(mov (cvalq #:ld68k:arg1) a2)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(btnil (& 2) 111)
(mov '257 a4)
(bra 112)
111
(mov '1 a4)
112
(mov (& 1) a3)
(lor a4 a3)
(mov a3 a1)
(call #:ld68k:1word)
(btnil (& 2) 113)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor (cvalq #:ld68k:rgd1) a4)
(mov a4 a1)
(bra 114)
113
(mov (cvalq #:ld68k:|move.l|) a1)
114
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(adjstk '3)
(bra #:ld68k:ins68k-dst)
107
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov nil a3)
(mov (cvalq #:ld68k:arg1) a2)
(mov (& 1) a1)
(call #:ld68k:ins68k-src-word)
(mov nil a3)
(mov (cvalq #:ld68k:arg2) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '3)
(bra #:ld68k:ins68k-dst)
))
(loader'((entry #:ld68k:load-heap-address-in-a0 subr1)
(mov a1 a4)
(cabeq a4 'a1 103)
(cabeq a4 'a2 103)
(cabeq a4 'a3 103)
(cabne a4 'a4 101)
103
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '64 a3)
(mov (cvalq #:ld68k:rgaux0) a2)
(lshift '9 a2)
(lor a2 a3)
(push a3)
(push (@ 104))
(push 'val)
(push a4)
(mov '2 a4)
(jmp list)
104
(eval ())
(mov a1 a2)
(pop a1)
(bra #:ld68k:ins68k-src)
101
(mov (cvalq #:ld68k:|move.l|) a3)
(lor '64 a3)
(mov (cvalq #:ld68k:rgaux0) a2)
(lshift '9 a2)
(lor a2 a3)
(mov a4 a2)
(mov a3 a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|move.l|) a4)
(lor '64 a4)
(mov (cvalq #:ld68k:rgaux0) a3)
(lshift '9 a3)
(lor a3 a4)
(lor '16 a4)
(lor (cvalq #:ld68k:rgaux0) a4)
(mov a4 a1)
(bra #:ld68k:1word)
))
(loader'((entry #:ld68k:cfltxx subr1)
(cabne a1 '#:llcp:fbeq 102)
(mov (cvalq #:ld68k:fbeq) a1)
(call #:ld68k:1word)
(bra 101)
102
(cabne a1 '#:llcp:fbne 103)
(mov (cvalq #:ld68k:fbne) a1)
(call #:ld68k:1word)
(bra 101)
103
(cabne a1 '#:llcp:fbgt 104)
(mov (cvalq #:ld68k:fbgt) a1)
(call #:ld68k:1word)
(bra 101)
104
(cabne a1 '#:llcp:fbge 105)
(mov (cvalq #:ld68k:fbge) a1)
(call #:ld68k:1word)
(bra 101)
105
(cabne a1 '#:llcp:fblt 106)
(mov (cvalq #:ld68k:fblt) a1)
(call #:ld68k:1word)
(bra 101)
106
(cabne a1 '#:llcp:fble 101)
(mov (cvalq #:ld68k:fble) a1)
(call #:ld68k:1word)
101
(mov (cvalq #:ld68k:arg3) a1)
(bra #:ld68k:fdplrel)
))
(loader'((entry #:ld68k:fdplrel subr1)
(push a1)
(call #:ld68k:valadrel)
(push a1)
(call #:ld68k:check8)
(btnil a1 101)
(mov (& 0) a1)
(adjstk '2)
(bra #:ld68k:1word)
101
(mov (& 0) a1)
(call #:ld68k:check16)
(btnil a1 103)
(bffix (& 0) 107)
(cnble (& 0) '0 105)
107
(mov (cvalq #:ld68k:module) a2)
(mov '"Module trop gros" a1)
(adjstk '2)
(bra #:ld68k:error)
105
(mov (& 0) a1)
(adjstk '2)
(bra #:ld68k:1word)
103
(bfsymb (& 1) 108)
(mov (cvalq #:ld68k:llabels) a2)
(mov (& 1) a1)
(jcall assq)
(bfnil a1 108)
(mov (& 1) a1)
(call #:ld68k:addentry)
(bra 109)
108
(mov '16 a2)
(mov (& 1) a1)
(call #:ld68k:addlabel)
109
(mov '0 a1)
(adjstk '2)
(bra #:ld68k:1word)
))
(loader'((entry #:ld68k:float32>31 subr2)
(push a2)
(mov a1 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src)
(mov (cvalq #:ld68k:|lsl.ld|) a4)
(lor '512 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (& 0) a1)
(cabne a1 '#:llcp:fadd 102)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fadd.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
102
(cabne a1 '#:llcp:fsub 103)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fsub.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
103
(cabne a1 '#:llcp:fmul 104)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fmul.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
104
(cabne a1 '#:llcp:fdiv 105)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fdiv.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
105
(cabne a1 '#:llcp:fcmp 106)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fcmp.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
106
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fmove.s|) a1)
(adjstk '1)
(bra #:ld68k:1word)
))
(loader'((entry #:ld68k:float31>32 subr1)
(push a1)
(mov (cvalq #:ld68k:|f68881.1|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fmove.d|) a4)
(lor '8192 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|bset.ld|) a1)
(call #:ld68k:1word)
(mov '0 a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|ror.ld|) a4)
(lor '512 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov nil a3)
(mov (& 0) a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(adjstk '1)
(bra #:ld68k:ins68k-dst)
))
(loader'((entry #:ld68k:float64 subr2)
(push a2)
(mov a1 a2)
(mov (cvalq #:ld68k:|movea.l|) a1)
(call #:ld68k:ins68k-src)
(mov (& 0) a1)
(cabne a1 '#:llcp:fcmp 102)
(mov (cvalq #:ld68k:|f68881.2|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fcmp.d|) a1)
(call #:ld68k:1word)
(mov '0 a1)
(adjstk '1)
(bra #:ld68k:1word)
102
(mov (cvalq #:ld68k:|f68881.2|) a1)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:|fmove.d|) a4)
(lor '4096 a4)
(mov a4 a1)
(call #:ld68k:1word)
(mov '0 a1)
(adjstk '1)
(bra #:ld68k:1word)
))
(loader'((entry #:ld68k:ins68k-src-dst subr3)
(push a3)
(push a2)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a4)
(push (car a4))
(push (cdr a4))
(call #:ld68k:1word)
(mov nil a2)
(mov (& 3) a1)
(call #:ld68k:op68k)
(mov a1 (& 3))
(mov nil a2)
(mov (& 4) a1)
(call #:ld68k:op68k)
(mov a1 (& 4))
(mov (& 2) a4)
(lor (& 3) a4)
(lshift '3 a1)
(mov (& 4) a3)
(lshift '9 a3)
(lor a3 a1)
(land '4032 a1)
(lor a1 a4)
(mov a4 a3)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '5)
(bra #:ld68k:1word_pc)
))
(loader'((entry #:ld68k:ins68k-src subr2)
(push a2)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a4)
(push (car a4))
(push (cdr a4))
(call #:ld68k:1word)
(mov nil a2)
(mov (& 3) a1)
(call #:ld68k:op68k)
(mov (& 2) a4)
(lor a1 a4)
(mov a4 a3)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '4)
(bra #:ld68k:1word_pc)
))
(loader'((entry #:ld68k:ins68k-src+2 subr3)
(push a3)
(push a2)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a4)
(push (car a4))
(push (cdr a4))
(call #:ld68k:1word)
(mov (& 4) a1)
(call #:ld68k:1long)
(mov nil a2)
(mov (& 3) a1)
(call #:ld68k:op68k)
(mov (& 2) a4)
(lor a1 a4)
(mov a4 a3)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '5)
(bra #:ld68k:1word_pc)
))
(loader'((entry #:ld68k:ins68k-src-word subr3)
(push a3)
(push a2)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a4)
(push (car a4))
(push (cdr a4))
(call #:ld68k:1word)
(btnil (& 4) 102)
(mov (& 4) a1)
(call #:ld68k:1word)
102
(mov 't a2)
(mov (& 3) a1)
(call #:ld68k:op68k)
(mov (& 2) a4)
(lor a1 a4)
(mov a4 a3)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '5)
(bra #:ld68k:1word_pc)
))
(loader'((entry #:ld68k:ins68k-dst subr3)
(push a3)
(push a2)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a4)
(push (car a4))
(push (cdr a4))
(call #:ld68k:1word)
(btnil (& 4) 102)
(mov (& 4) a1)
(call #:ld68k:1word)
102
(mov nil a2)
(mov (& 3) a1)
(call #:ld68k:op68k)
(mov a1 (& 3))
(lshift '3 a1)
(mov (& 3) a4)
(lshift '9 a4)
(lor a4 a1)
(land '4032 a1)
(mov (& 2) a4)
(lor a1 a4)
(mov a4 a3)
(mov (& 0) a2)
(mov (& 1) a1)
(adjstk '5)
(bra #:ld68k:1word_pc)
))
(loader'((entry #:ld68k:op68k subr2)
(push a2)
(push a1)
(cabne a1 'nil 101)
(mov (cvalq #:ld68k:eanil) a1)
(adjstk '2)
(return)
101
(cabne a1 'a1 103)
(mov (cvalq #:ld68k:eaa1) a1)
(adjstk '2)
(return)
103
(cabne a1 'a2 105)
(mov (cvalq #:ld68k:eaa2) a1)
(adjstk '2)
(return)
105
(cabne a1 'a3 107)
(mov (cvalq #:ld68k:eaa3) a1)
(adjstk '2)
(return)
107
(cabne a1 'a4 109)
(mov (cvalq #:ld68k:eaa4) a1)
(adjstk '2)
(return)
109
(cabne a1 'aux0 111)
(mov (cvalq #:ld68k:eaaux0) a1)
(adjstk '2)
(return)
111
(mov a1 a4)
(cabeq a4 'llink 115)
(cabeq a4 'dlink 115)
(cabeq a4 'cbindn 115)
(cabeq a4 'tag 115)
(cabeq a4 'lock 115)
(cabne a4 'prot 113)
115
(mov a1 a2)
(mov 'llcp a1)
(jcall symbol)
(mov (cval a1) a1)
(call #:ld68k:1long)
(mov (& 0) a4)
(cabeq a4 'llink 118)
(cabne a4 'dlink 116)
118
(mov '57 a1)
(adjstk '2)
(return)
116
(mov (cvalq #:ld68k:data-mask) a1)
(adjstk '2)
(return)
113
(btcons a1 119)
(bfsymb a1 121)
(mov a1 a2)
(mov 'ld-dir a1)
(jcall getfn1)
(mov a1 (cvalq #:ld68k:f))
(btnil a1 121)
(push (@ 123))
(push (cvalq #:ld68k:f))
(push (& 2))
(mov '2 a4)
(jmp funcall)
123
(eval ())
(adjstk '2)
(return)
121
(mov (& 0) a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
119
(cabne (car a1) 'quote 124)
(btnil (cvalq #:ld68k:31bitfloats) 128)
(mov (cdr a1) a3)
(btfloat (car a3) 127)
128
(mov (cdr a1) a3)
(btfix (car a3) 127)
(btnil (cvalq #:ld68k:stopcopy) 129)
(mov (cdr a1) a3)
(bfcons (car a3) 129)
(mov (cdr a1) a1)
(mov (cvalq #:ld68k:pccurrent) a2)
(mov (car a1) a1)
(call #:ld68k:add-cons-llitt)
(bra 127)
129
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:add-llitt)
127
(btnil (& 1) 131)
(mov (& 0) a4)
(mov (cdr a4) a4)
(bffix (car a4) 133)
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(call #:ld68k:1word)
(bra 134)
133
(push (@ 135))
(push (& 1))
(push (& 3))
(mov '2 a4)
(jmp list)
135
(eval ())
(mov a1 a2)
(mov '#:ld68k:op68k a1)
(call #:ld68k:error)
134
(mov '60 a1)
(adjstk '2)
(return)
131
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(jcall loc)
(call #:ld68k:1long)
(mov '60 a1)
(adjstk '2)
(return)
124
(cabne (car a1) '@ 136)
(mov a1 a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
136
(cabne (car a1) '& 138)
(mov (cdr a1) a3)
(bffix (car a3) 142)
(mov (cdr a1) a4)
(cnbge (car a4) '0 140)
142
(mov a1 a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
140
(mov (cdr a1) a4)
(mov (car a4) a4)
(plus (cvalq #:ld68k:localstack) a4)
(mov '4 a3)
(times a4 a3)
(btnil a2 143)
(mov '2 a4)
(bra 144)
143
(mov '0 a4)
144
(plus a4 a3)
(cabne a3 '0 145)
(mov '23 a1)
(adjstk '2)
(return)
145
(mov a3 a1)
(call #:ld68k:1word)
(mov '47 a1)
(adjstk '2)
(return)
138
(bfnil a2 147)
(mov (car a1) a3)
(cabeq a3 'car 149)
(cabeq a3 'val 149)
(cabne a3 'cval 147)
149
(mov (cdr a1) a1)
(mov (car a1) a1)
(cabne a1 'a1 151)
(mov '17 a1)
(adjstk '2)
(return)
151
(cabne a1 'a2 152)
(mov '18 a1)
(adjstk '2)
(return)
152
(cabne a1 'a3 153)
(mov '19 a1)
(adjstk '2)
(return)
153
(cabne a1 'a4 154)
(mov '20 a1)
(adjstk '2)
(return)
154
(mov a4 a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
147
(mov (car a1) a3)
(cabeq a3 'car 158)
(cabeq a3 'val 158)
(cabeq a3 'cval 158)
(cabeq a3 'cdr 158)
(cabeq a3 'plist 158)
(cabeq a3 'fval 158)
(cabeq a3 'pkgc 158)
(cabeq a3 'oval 158)
(cabeq a3 'alink 158)
(cabne a3 'pname 156)
158
(push nil)
(mov (car a1) a1)
(cabne a1 'car 160)
(mov '0 a4)
(bra 159)
160
(cabne a1 'val 161)
(mov '0 a4)
(bra 159)
161
(cabne a1 'cval 162)
(mov '0 a4)
(bra 159)
162
(cabne a1 'cdr 163)
(mov '4 a4)
(bra 159)
163
(cabne a1 'plist 164)
(mov '4 a4)
(bra 159)
164
(cabne a1 'fval 165)
(mov '8 a4)
(bra 159)
165
(cabne a1 'pkgc 166)
(mov '12 a4)
(bra 159)
166
(cabne a1 'oval 167)
(mov '16 a4)
(bra 159)
167
(cabne a1 'alink 168)
(mov '20 a4)
(bra 159)
168
(cabne a1 'pname 169)
(mov '28 a4)
(bra 159)
169
(mov a4 a2)
(mov '#:ld68k:op68k a1)
(call #:ld68k:error)
(mov a1 a4)
159
(mov a4 (& 0))
(btnil (& 2) 172)
(plus '2 a4)
(mov a4 (& 0))
172
(mov a4 a1)
(call #:ld68k:1word)
(adjstk '1)
(mov (& 0) a1)
(mov (cdr a1) a1)
(mov (car a1) a1)
(cabne a1 'a1 174)
(mov '41 a1)
(adjstk '2)
(return)
174
(cabne a1 'a2 175)
(mov '42 a1)
(adjstk '2)
(return)
175
(cabne a1 'a3 176)
(mov '43 a1)
(adjstk '2)
(return)
176
(cabne a1 'a4 177)
(mov '44 a1)
(adjstk '2)
(return)
177
(mov (& 0) a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
156
(cabne (car a1) 'cvalq 179)
(mov (cdr a1) a4)
(btsymb (car a4) 181)
(mov a1 a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
181
(mov (cdr a1) a1)
(btnil a2 183)
(mov '2 a2)
(bra 184)
183
(mov '0 a2)
184
(mov (car a1) a1)
(adjstk '2)
(bra #:ld68k:op68kquotesymb)
179
(cabne (car a1) 'fvalq 185)
(bfnil a2 189)
(mov (cdr a1) a4)
(btsymb (car a4) 187)
189
(mov a1 a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
187
(mov (cdr a1) a1)
(mov '8 a2)
(mov (car a1) a1)
(adjstk '2)
(bra #:ld68k:op68kquotesymb)
185
(cabne (car a1) 'eval 190)
(push nil)
(push '0)
(push nil)
(push (cvalq #:system:debug))
(mov (& 1) (cvalq #:system:debug))
(push (cvalq #:system:print-msgs))
(mov (& 3) (cvalq #:system:print-msgs))
(push (cvalq #:system:error-flag))
(mov (& 5) (cvalq #:system:error-flag))
(push '3)
(push '(#:system:debug #:system:print-msgs #:system:error-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 193))
(push '#:system:error-tag)
(push dlink)
(push tag)
(stack dlink)
(push (@ 194))
(mov (cdr a1) a4)
(push (car a4))
(mov '1 a4)
(jmp eval)
194
(eval ())
(mov (& 17) a2)
(call #:ld68k:op68k)
(jcall ncons)
(mov (& 1) dlink)
(adjstk '4)
193
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:error-flag))
(mov (& 7) (cvalq #:system:print-msgs))
(mov (& 8) (cvalq #:system:debug))
(adjstk '12)
(mov (car a1) a1)
(bfnil a1 192)
(mov (& 0) a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
192
(adjstk '2)
(return)
190
(bfsymb (car a1) 195)
(mov (car a1) a2)
(mov 'ld-ind a1)
(jcall getfn1)
(mov a1 (cvalq #:ld68k:f))
(btnil a1 195)
(push (@ 197))
(push (cvalq #:ld68k:f))
(push (& 2))
(mov '2 a4)
(jmp funcall)
197
(eval ())
(adjstk '2)
(return)
195
(mov (& 0) a2)
(mov '#:ld68k:op68k a1)
(adjstk '2)
(bra #:ld68k:error)
))
(loader'((entry #:ld68k:op68kquotesymb subr2)
(push a2)
(push a1)
(call #:ld68k:add-llitt)
(mov (& 0) a1)
(jcall loc)
(mov (cvalq #:ld68k:locnil) a2)
(jcall subadr)
(mov a1 (cvalq #:ld68k:valaux))
(bffix a1 101)
(cnble a1 '0 101)
(cnble (cvalq #:ld68k:eabsymb) (cvalq #:ld68k:ead7) 101)
(mov (& 1) a2)
(jcall addadr)
(call #:ld68k:1word)
(mov (cvalq #:ld68k:rgbsymb) a4)
(lor (cvalq #:ld68k:indirect-add-disp-mask) a4)
(mov a4 a1)
(adjstk '2)
(return)
101
(btnil (& 1) 103)
(mov (& 0) a1)
(jcall loc)
(mov a1 a2)
(mov (& 1) a1)
(jcall addadr)
(bra 104)
103
(mov (& 0) a1)
(jcall loc)
104
(call #:ld68k:1long)
(mov '57 a1)
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:ins68k-jump-or-call subr2)
(push a2)
(push a1)
(push a2)
(mov (cvalq #:ld68k:llabels) a2)
(pop a1)
(jcall cassq)
(mov a1 (cvalq #:ld68k:valaux))
(btnil a1 101)
(mov (cvalq #:ld68k:pccurrent) a2)
(jcall subadr)
(mov a1 (cvalq #:ld68k:valaux))
(bffix a1 101)
(cabne (& 0) 'jmp 103)
(mov (cvalq #:ld68k:bra) a1)
(bra 104)
103
(mov (cvalq #:ld68k:bsr) a1)
104
(mov (& 1) a2)
(call #:ld68k:brarel)
(cabne (& 0) 'jmp 105)
(adjstk '2)
(bra #:ld68k:align)
105
(mov nil a1)
(adjstk '2)
(return)
101
(push (@ 107))
(push 'fvalq)
(push (& 3))
(mov '2 a4)
(jmp list)
107
(eval ())
(mov 'aux0 a3)
(mov a1 a2)
(mov (cvalq #:ld68k:|move.l|) a1)
(call #:ld68k:ins68k-src-dst)
(cabne (& 0) 'jmp 108)
(mov '20176 a1)
(bra 109)
108
(mov '20112 a1)
109
(call #:ld68k:1word)
(cabne (& 0) 'jmp 110)
(adjstk '2)
(bra #:ld68k:align)
110
(mov nil a1)
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:valadr subr1)
(push a1)
(btcons a1 101)
(mov (cvalq #:ld68k:llabels) a2)
(jcall cassq)
(bfnil a1 103)
(mov (& 0) a1)
(jcall symbolp)
(btnil a1 105)
(mov '#:ld68k:fval a2)
(mov (& 0) a1)
(jcall getprop)
105
(bfnil a1 103)
(mov nil a1)
103
(adjstk '1)
(return)
101
(bffix (car a1) 106)
(bffix (cdr a1) 106)
(adjstk '1)
(return)
106
(mov a1 a2)
(mov '#:ld68k:valadr a1)
(adjstk '1)
(bra #:ld68k:error)
))
(loader'((entry #:ld68k:valadrel subr1)
(push a1)
(call #:ld68k:valadr)
(mov a1 (& 0))
(btnil a1 101)
(mov (cvalq #:ld68k:pccurrent) a2)
(adjstk '1)
(jmp subadr)
101
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry #:ld68k:brarel subr2)
(push a2)
(push a1)
(mov a2 a1)
(call #:ld68k:valadrel)
(push a1)
(call #:ld68k:check8)
(btnil a1 101)
(mov (& 0) a4)
(diff '2 a4)
(mov '255 a3)
(land a4 a3)
(mov (& 1) a4)
(lor a3 a4)
(mov a4 a1)
(adjstk '3)
(bra #:ld68k:1word)
101
(mov (& 0) a1)
(call #:ld68k:check16)
(btnil a1 103)
(bffix (& 0) 107)
(cnble (& 0) '0 105)
107
(mov (cvalq #:ld68k:module) a2)
(mov '"Module trop gros" a1)
(adjstk '3)
(bra #:ld68k:error)
105
(mov (& 1) a1)
(call #:ld68k:1word)
(mov (& 0) a4)
(diff '2 a4)
(mov a4 a1)
(adjstk '3)
(bra #:ld68k:1word)
103
(mov (cvalq #:ld68k:lobj) a2)
(mov (& 2) a1)
(call #:ld68k:notoofar)
(btnil a1 108)
(mov '8 a2)
(mov (& 2) a1)
(call #:ld68k:addlabel)
(mov (& 1) a1)
(adjstk '3)
(bra #:ld68k:1word)
108
(mov (& 1) a1)
(call #:ld68k:1word)
(bfsymb (& 2) 110)
(mov (cvalq #:ld68k:llabels) a2)
(mov (& 2) a1)
(jcall assq)
(bfnil a1 110)
(mov (& 2) a1)
(call #:ld68k:addentry)
(bra 111)
110
(mov '16 a2)
(mov (& 2) a1)
(call #:ld68k:addlabel)
111
(mov '0 a1)
(adjstk '3)
(bra #:ld68k:1word)
))
(loader'((entry #:ld68k:align subr0)
(btnil (cvalq #:ld68k:align-flag) 101)
(btnil (cvalq #:ld68k:mc68020) 101)
(bffix (cvalq #:ld68k:pccurrent) 103)
(mov (cvalq #:ld68k:pccurrent) a4)
(bra 104)
103
(mov (cvalq #:ld68k:pccurrent) a4)
(mov (cdr a4) a4)
104
(mov '3 a3)
(land a4 a3)
(cabeq a3 '0 101)
(mov (cvalq #:ld68k:nop) a1)
(bra #:ld68k:1word)
101
(mov nil a1)
(return)
))
(loader'((entry #:ld68k:1word subr1)
(push (cvalq obj))
(mov a1 (cvalq obj))
(push '1)
(push '(obj))
(push (@ #:ld68k:1word))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(btnil (cvalq #:ld68k:talkp) 102)
(push (@ 105))
(push (cvalq #:ld68k:nwl))
(push '6)
(mov '2 a4)
(jmp >)
105
(eval ())
(btnil a1 104)
(mov '0 (cvalq #:ld68k:nwl))
(push (@ 106))
(mov '0 a4)
(jmp terpri)
106
(eval ())
(push (@ 107))
(push '30)
(mov '1 a4)
(jmp outpos)
107
(eval ())
(mov (cvalq #:ld68k:pccurrent) a1)
(call #:ld68k:prinhex)
(push (@ 108))
(push '"  ")
(mov '1 a4)
(jmp prin)
108
(eval ())
104
(mov (cvalq #:ld68k:nwl) a1)
(jcall 1+)
(mov a1 (cvalq #:ld68k:nwl))
(push (@ 109))
(push '" ")
(mov '1 a4)
(jmp prin)
109
(eval ())
(mov (cvalq obj) a1)
(call #:ld68k:prinhex)
102
(push (@ 110))
(push (cvalq #:ld68k:pccurrent))
(push (cvalq obj))
(mov '2 a4)
(jmp memory)
110
(eval ())
(mov '2 a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall incradr)
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq obj))
(adjstk '7)
(return)
))
(loader'((entry #:ld68k:1word_pc subr3)
(push '(9 . -28754))
(mov (& 0) a4)
(mov a1 (car a4))
(mov a2 (cdr a4))
(push (@ 101))
(push a4)
(push a3)
(mov '2 a4)
(jmp memory)
101
(eval ())
(adjstk '1)
(return)
))
(loader'((entry #:ld68k:1wordrelpc subr1)
(push a1)
(mov a1 a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall subadr)
(push a1)
(bffix a1 101)
(cnblt a1 '0 101)
(jcall evenp)
(btnil a1 103)
(push (@ 105))
(push (& 2))
(push (& 2))
(mov '2 a4)
(jmp memory)
105
(eval ())
(adjstk '2)
(return)
103
(push (@ 106))
(push (& 1))
(push (& 3))
(push (cvalq #:ld68k:pccurrent))
(mov '3 a4)
(jmp list)
106
(eval ())
(mov a1 a3)
(mov '"ODD address" a2)
(mov '#:ld68k:1wordrelpc a1)
(adjstk '2)
(jmp error)
101
(mov (cvalq #:ld68k:module) a2)
(mov '"Module trop gros" a1)
(adjstk '2)
(bra #:ld68k:error)
))
(loader'((entry #:ld68k:1byterelpc subr1)
(push a1)
(mov a1 a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall subadr)
(mov '2 a2)
(jcall subadr)
(push a1)
(cabne a1 '0 101)
(push (@ 103))
(push (& 2))
(push (cvalq #:ld68k:nop))
(mov '2 a4)
(jmp memory)
103
(eval ())
(adjstk '2)
(return)
101
(call #:ld68k:check8)
(btnil a1 104)
(push (@ 106))
(push (& 2))
(push (@ 107))
(push (& 4))
(mov '1 a4)
(jmp memory)
107
(eval ())
(lor (& 2) a1)
(push a1)
(mov '2 a4)
(jmp memory)
106
(eval ())
(adjstk '2)
(return)
104
(mov (& 0) a2)
(mov '"BYTErelPC" a1)
(adjstk '2)
(bra #:ld68k:error)
))
(loader'((entry #:ld68k:1long subr1)
(push a1)
(bffix a1 101)
(mov '0 a1)
(call #:ld68k:1word)
(mov (& 0) a1)
(adjstk '1)
(bra #:ld68k:1word)
101
(bfcons a1 103)
(mov (car a1) a1)
(call #:ld68k:1word)
(mov (& 0) a1)
(mov (cdr a1) a1)
(adjstk '1)
(bra #:ld68k:1word)
103
(mov a1 a2)
(mov '"1LONG" a1)
(adjstk '1)
(bra #:ld68k:error)
))
(loader'((entry #:ld68k:clean-llitt subr0)
(push (cvalq #:ld68k:saved-by-loader))
(push '-1)
(push nil)
101
(btnil (& 2) 102)
(mov (& 2) a4)
(bfsymb (car a4) 103)
(mov (car a4) a1)
(jcall boundp)
(bfnil a1 105)
(mov (& 2) a1)
(mov (car a1) a1)
(jcall typefn)
(btnil a1 103)
105
(mov (& 2) a1)
(mov (cdr a1) (& 2))
(mov (cvalq #:ld68k:saved-by-loader) a2)
(mov (car a1) a1)
(jcall delq)
(mov a1 (cvalq #:ld68k:saved-by-loader))
(bra 101)
103
(mov (& 2) a4)
(mov (cdr a4) (& 2))
(bra 101)
102
(mov (cvalq #:ld68k:saved-by-loader) a1)
(jcall length)
(cnble a1 '0 107)
(mov (cvalq #:ld68k:saved-by-loader) a1)
(jcall length)
(mov nil a2)
(jcall makevector)
(mov a1 (& 0))
108
(btnil (cvalq #:ld68k:saved-by-loader) 109)
(mov (& 1) a4)
(plus '1 a4)
(mov a4 (& 1))
(mov (cvalq #:ld68k:saved-by-loader) a3)
(mov (cdr a3) (cvalq #:ld68k:saved-by-loader))
(hpmovx (car a3) (& 0) a4)
(bra 108)
109
(btnil (cvalq #:ld68k:module) 110)
(mov '#:ld68k:saved-by-loader a2)
(mov (cvalq #:ld68k:module) a1)
(jcall get)
(btnil a1 113)
(mov (cvalq #:ld68k:module) a3)
(mov '"Module de'ja` utilise'" a2)
(mov 'loader a1)
(jcall printerror)
113
(mov '#:ld68k:saved-by-loader a3)
(mov (& 0) a2)
(mov (cvalq #:ld68k:module) a1)
(jcall putprop)
(bra 107)
110
(mov (cvalq #:ld68k:global-saved-by-loader) a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:ld68k:global-saved-by-loader))
107
(mov nil (cvalq #:ld68k:module))
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((entry #:ld68k:add-llitt subr1)
(push (cvalq obj))
(mov a1 (cvalq obj))
(push '1)
(push '(obj))
(push (@ #:ld68k:add-llitt))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov (cvalq #:ld68k:saved-by-loader) a2)
(jcall memq)
(bfnil a1 101)
(mov (cvalq #:ld68k:saved-by-loader) a2)
(mov (cvalq obj) a1)
(jcall cons)
(mov a1 (cvalq #:ld68k:saved-by-loader))
101
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq obj))
(adjstk '7)
(return)
))
(loader'((entry #:ld68k:add-cons-llitt subr2)
(push a1)
(mov a2 a1)
(jcall vag)
(mov (& 0) a2)
(jcall cons)
(mov (cvalq #:ld68k:local-cons-llitt) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:local-cons-llitt))
(adjstk '1)
(return)
))
(loader'((entry #:ld68k:notoofar subr2)
(push a2)
(push a1)
(push (@ 101))
(push 'ok)
(push dlink)
(push tag)
(stack dlink)
(mov (cvalq #:ld68k:max-lap-dpl8) a4)
(bra 103)
102
(push a4)
(mov (& 6) a4)
(mov (cdr a4) (& 6))
(cabne (car a4) (& 5) 104)
(mov 't a1)
(mov 'ok a2)
(jmp #:llcp:exit)
104
(mov nil a4)
105
(pop a4)
103
(sobgez a4 102)
(mov nil a1)
(mov (& 1) dlink)
(adjstk '4)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:addlabel subr2)
(push a2)
(push a1)
(mov (cvalq #:ld68k:llabels-nr) a2)
(jcall assq)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a1)
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(mov a1 a2)
(mov (& 2) a1)
(jcall cons)
(btnil (& 0) 101)
(mov (& 0) a2)
(mov (cdr a2) a2)
(jcall cons)
(mov (& 0) a4)
(mov a1 (cdr a4))
(bra 102)
101
(push (@ 103))
(push (& 2))
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(mov (cvalq #:ld68k:llabels-nr) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:llabels-nr))
102
(mov '0 a1)
(adjstk '3)
(return)
))
(loader'((entry #:ld68k:addentry subr1)
(push a1)
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(jcall assq)
(push a1)
(btnil a1 101)
(push a1)
(mov (cvalq #:ld68k:pccurrent) a1)
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(mov (& 1) a2)
(mov (cdr a2) a2)
(jcall cons)
(pop a4)
(mov a1 (cdr a4))
(bra 102)
101
(push (@ 103))
(push (& 2))
(mov (cvalq #:ld68k:pccurrent) a1)
(mov (cdr a1) a2)
(mov (car a1) a1)
(jcall cons)
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(mov (cvalq #:ld68k:entries-not-resolved) a2)
(jcall cons)
(mov a1 (cvalq #:ld68k:entries-not-resolved))
102
(mov '0 a1)
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:prinhex subr1)
(push a1)
(jcall numberp)
(btnil a1 101)
(mov (& 0) a4)
(lshift '-8 a4)
(land '255 a4)
(mov a4 a1)
(call #:ld68k:prinhexb)
(mov (& 0) a4)
(land '255 a4)
(mov a4 a1)
(adjstk '1)
(bra #:ld68k:prinhexb)
101
(bfcons (& 0) 103)
(mov (& 0) a1)
(mov (car a1) a1)
(call #:ld68k:prinhex)
(mov (& 0) a1)
(mov (cdr a1) a1)
(adjstk '1)
(bra #:ld68k:prinhex)
103
(mov (& 0) a3)
(mov 'errnna a2)
(mov 'memory-dump a1)
(adjstk '1)
(jmp error)
))
(loader'((entry #:ld68k:prinhexb subr1)
(push a1)
(jcall numberp)
(bfnil a1 101)
(mov (& 0) a3)
(mov 'errnna a2)
(mov 'memory-dump a1)
(jcall error)
(bra 102)
101
(push (@ 105))
(push (& 1))
(push '0)
(mov '2 a4)
(jmp <)
105
(eval ())
(btnil a1 103)
(mov '255 (& 0))
(bra 102)
103
(push (@ 108))
(push (& 1))
(push '16)
(mov '2 a4)
(jmp <)
108
(eval ())
(btnil a1 102)
(push (@ 109))
(push '48)
(mov '1 a4)
(jmp princn)
109
(eval ())
102
(push (@ 110))
(mov '0 a4)
(jmp obase)
110
(eval ())
(push a1)
(push (@ 111))
(push dlink)
(push prot)
(stack dlink)
(push (@ 113))
(push '16)
(mov '1 a4)
(jmp obase)
113
(eval ())
(push (@ 114))
(push (& 5))
(mov '1 a4)
(jmp prin)
114
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 112) a3)
111
(push a3)
(push a2)
(push (@ 115))
(push (& 4))
(mov '1 a4)
(jmp obase)
115
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
112
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry memory-dump subr2)
(entry memory-dump subr2)
(push a2)
(push a1)
101
(push (@ 103))
(push (& 2))
(push '0)
(mov '2 a4)
(jmp <=)
103
(eval ())
(bfnil a1 102)
(mov (& 0) a1)
(call #:ld68k:prinhex)
(push (@ 104))
(push '10)
(mov '1 a4)
(jmp outpos)
104
(eval ())
(mov (& 0) a1)
(jcall copylist)
(push a1)
(mov '8 a4)
(bra 106)
105
(push a4)
(push (@ 107))
(push (& 2))
(mov '1 a4)
(jmp memory)
107
(eval ())
(call #:ld68k:prinhex)
(push (@ 108))
(push '" ")
(mov '1 a4)
(jmp prin)
108
(eval ())
(mov '2 a2)
(mov (& 1) a1)
(jcall incradr)
(pop a4)
106
(sobgez a4 105)
(adjstk '1)
(mov (& 1) a1)
(jcall 1-)
(mov a1 (& 1))
(push (@ 109))
(mov '0 a4)
(jmp terpri)
109
(eval ())
(bra 101)
102
(adjstk '2)
(return)
))
(loader'((entry #:ld68k:error subr2)
(push a2)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp terpri)
101
(eval ())
(push (@ 102))
(push '"***** Loader Error in : ")
(push (& 2))
(push '" : ")
(push (& 5))
(mov '4 a4)
(jmp print)
102
(eval ())
(mov nil a1)
(mov '#:ld68k:tagerr a2)
(jmp #:llcp:exit)
(adjstk '2)
(return)
))
(loader'((fentry loaderesolve subr0)
(entry loaderesolve subr0)
(push (@ 101))
(push '((end)))
(mov '1 a4)
(jmp loader)
101
(eval ())
(return)
))
(loader'((fentry loader nsubr)
(entry loader nsubr)
(cnbge a4 '1 0)
(mov 'loader a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(push (cvalq #:ld68k:talkp))
(mov a1 (cvalq #:ld68k:talkp))
(push (cvalq #:ld68k:lobj))
(mov (& 2) (cvalq #:ld68k:lobj))
(push '2)
(push '(#:ld68k:talkp #:ld68k:lobj))
(push (@ loader))
(push llink)
(mov nil llink)
(push dlink)
(push cbindn)
(stack dlink)
(bfcons a1 102)
(mov (car a1) (cvalq #:ld68k:talkp))
102
(push (@ 103))
(mov '0 a4)
(jmp #:system:ccode)
103
(eval ())
(push nil)
(push nil)
(push nil)
(push 'loader)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push nil)
(push '0)
(push nil)
(push (cvalq #:ld68k:pccurrent))
(mov a1 (cvalq #:ld68k:pccurrent))
(push (cvalq #:ld68k:local-cons-llitt))
(mov (& 2) (cvalq #:ld68k:local-cons-llitt))
(push (cvalq #:ld68k:nwl))
(mov (& 4) (cvalq #:ld68k:nwl))
(push (cvalq #:ld68k:f))
(mov (& 6) (cvalq #:ld68k:f))
(push (cvalq #:ld68k:valaux))
(mov (& 8) (cvalq #:ld68k:valaux))
(push (cvalq #:ld68k:localstack))
(mov (& 10) (cvalq #:ld68k:localstack))
(push (cvalq #:ld68k:arg3))
(mov (& 12) (cvalq #:ld68k:arg3))
(push (cvalq #:ld68k:arg2))
(mov (& 14) (cvalq #:ld68k:arg2))
(push (cvalq #:ld68k:arg1))
(mov (& 16) (cvalq #:ld68k:arg1))
(push (cvalq #:ld68k:codop))
(mov (& 18) (cvalq #:ld68k:codop))
(push (cvalq #:ld68k:fntname))
(mov (& 20) (cvalq #:ld68k:fntname))
(push (cvalq #:ld68k:llabels-nr))
(mov (& 23) (cvalq #:ld68k:llabels-nr))
(push (cvalq #:ld68k:llabels))
(mov (& 25) (cvalq #:ld68k:llabels))
(push '13)
(push '(#:ld68k:pccurrent #:ld68k:local-cons-llitt #:ld68k:nwl #:ld68k:f #:ld68k:valaux #:ld68k:localstack #:ld68k:arg3 #:ld68k:arg2 #:ld68k:arg1 #:ld68k:codop #:ld68k:fntname #:ld68k:llabels-nr #:ld68k:llabels))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push 't)
(push (cvalq #:system:error-flag))
(mov (& 1) (cvalq #:system:error-flag))
(push '1)
(push '(#:system:error-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 104))
(push '#:system:error-tag)
(push dlink)
(push tag)
(stack dlink)
(push (@ 105))
(push '#:ld68k:tagerr)
(push dlink)
(push tag)
(stack dlink)
106
(btnil (cvalq #:ld68k:lobj) 107)
(mov (cvalq #:ld68k:ecode) a2)
(mov (cvalq #:ld68k:pccurrent) a1)
(jcall gtadr)
(btnil a1 109)
(push (@ 110))
(mov '0 a4)
(jmp outchan)
110
(eval ())
(push a1)
(push (@ 111))
(push dlink)
(push prot)
(stack dlink)
(push (@ 113))
(push nil)
(mov '1 a4)
(jmp outchan)
113
(eval ())
(push (@ 114))
(push (cvalq errfcod))
(mov '1 a4)
(jmp print)
114
(eval ())
(mov nil a1)
(mov '#:system:toplevel-tag a2)
(jmp #:llcp:exit)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 112) a3)
111
(push a3)
(push a2)
(push (@ 115))
(push (& 4))
(mov '1 a4)
(jmp outchan)
115
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
112
(eval ())
(adjstk '1)
109
(mov '0 (cvalq #:ld68k:nwl))
(mov (cvalq #:ld68k:lobj) a1)
(mov (cdr a1) (cvalq #:ld68k:lobj))
(mov (car a1) a1)
(jcall #:ld68k:ins)
(btnil (cvalq #:ld68k:talkp) 106)
(push (@ 118))
(mov '0 a4)
(jmp terpri)
118
(eval ())
(bra 106)
107
(mov '(endl) a1)
(jcall #:ld68k:ins)
(mov (& 1) dlink)
(adjstk '4)
105
(eval ())
(push (@ 119))
(push (cvalq #:ld68k:pccurrent))
(mov '1 a4)
(jmp #:system:ccode)
119
(eval ())
(btnil (cvalq #:ld68k:stopcopy) 121)
(mov '#:ld68k:patch-cons-llitt a1)
(jcall typefn)
(btnil a1 121)
(call #:ld68k:patch-cons-llitt)
121
(push (@ 122))
(push (cvalq #:ld68k:local-cons-llitt))
(push (cvalq #:ld:cons-llitt))
(mov '2 a4)
(jmp nconc)
122
(eval ())
(mov a1 (cvalq #:ld:cons-llitt))
(jcall ncons)
(mov (& 1) dlink)
(adjstk '4)
104
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:error-flag))
(adjstk '8)
(mov nil a1)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:ld68k:llabels))
(mov (& 7) (cvalq #:ld68k:llabels-nr))
(mov (& 8) (cvalq #:ld68k:fntname))
(mov (& 9) (cvalq #:ld68k:codop))
(mov (& 10) (cvalq #:ld68k:arg1))
(mov (& 11) (cvalq #:ld68k:arg2))
(mov (& 12) (cvalq #:ld68k:arg3))
(mov (& 13) (cvalq #:ld68k:localstack))
(mov (& 14) (cvalq #:ld68k:valaux))
(mov (& 15) (cvalq #:ld68k:f))
(mov (& 16) (cvalq #:ld68k:nwl))
(mov (& 17) (cvalq #:ld68k:local-cons-llitt))
(mov (& 18) (cvalq #:ld68k:pccurrent))
(adjstk '32)
(mov (& 1) dlink)
(mov (& 2) llink)
(mov (& 6) (cvalq #:ld68k:lobj))
(mov (& 7) (cvalq #:ld68k:talkp))
(adjstk '9)
(return)
))
(loader'((entry #:ld68k:patch-cons-llitt subr0)
(mov nil a1)
(return)
))
(if (neq (typefn '#:llcp:nlist) 'subr0) (progn (loader '((fentry #:llcp:nlist subr0) (pop a3) (mov nil a1) (bra 4) 3 (pop a2) (jcall xcons) 4 (sobgez a4 3) (bri a3) (fentry #:llcp:errwna subr2) (mov a2 a3) (mov 'errwna a2) (jmp error) (end)) ()) (if #:ld68k:stopcopy (loader '((fentry #:ld:gcafter-daemon subr0) (mov (cvalq #:ld:cons-llitt) a4) 5 (btnil a4 6) (mov (car a4) a1) (mov (cdr a4) a4) (mov (cdr a1) a2) (mov (car a1) a1) (mov a2 (car a1)) (bra 5) 6 (return) (fentry #:ld68k:patch-cons-llitt subr0) (push a1) (push a2) (push a3) (push a4) (mov (cvalq #:ld68k:local-cons-llitt) a4) (call 5) (pop a4) (pop a3) (pop a2) (pop a1) (return) (end)) ()))))
(loader '((end)))
(if (not (or (eq (typefn 'loaderesolve) 'expr) (get 'loaderesolve 'resetfn))) (progn (mapc (lambda (m) (when (typefn m) (remfn m) (remprop m '#:system:loaded-from-file))) (delq '#:ld68k:ins (oblist 'ld68k)))))
(loader '((end)))