     jit-3r>
 ] jit-3dip jit-define
 
+: prepare-(execute) ( -- operand )
+    3 ds-reg 0 LWZ
+    ds-reg dup 4 SUBI
+    4 3 word-xt-offset LWZ
+    4 ;
+
+[ prepare-(execute) MTCTR BCTR ] jit-execute-jump jit-define
+
+[ prepare-(execute) MTLR BLRL ] jit-execute-call jit-define
+
 [
     0 1 lr-save stack-frame + LWZ
     1 1 stack-frame ADDI

4 \ cell set
big-endian on

CONSTANT: ds-reg 29
CONSTANT: rs-reg 30

: factor-area-size ( -- n ) 4 bootstrap-cells ;


    4 MTCTR
    BCTR
] \ (call) define-sub-primitive

! Objects
[
