%box-displaced-alien/dynamic ( dst displacement base temp end -- )


Vocabulary
cpu.x86

Inputs and outputs
dstan object
displacementan object
basean object
tempan object
endan object


Definition


:: %box-displaced-alien/dynamic
( dst displacement base temp end -- )
<label> :> not-f <label> :> not-alien temp base MOV
temp tag-mask get AND temp \ f type-number CMP not-f JNE
dst displacement %box-displaced-alien/f end JMP
not-f resolve-label temp alien type-number CMP not-alien JNE
dst displacement base temp %box-displaced-alien/alien
end JMP not-alien resolve-label
dst displacement base temp %box-displaced-alien/byte-array ;