 4 \ cell set
 big-endian on
 
-CONSTANT: ds-reg 29
-CONSTANT: rs-reg 30
+CONSTANT: ds-reg 13
+CONSTANT: rs-reg 14
 
 : factor-area-size ( -- n ) 4 bootstrap-cells ;
 

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

[
    3 ds-reg 0 LWZ
    ds-reg dup 4 SUBI
    4 3 word-xt-offset LWZ
    4 MTCTR
    BCTR
] \ (execute) define-sub-primitive

! Objects
[

    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
