; ( -- n ) (R: loop-sys1 loop-sys2 -- loop-sys1 loop-sys2) ; Compiler ; loop counter of outer loop VE_J: .dw $FF01 .db "j",0 .dw VE_HEAD .set VE_HEAD = VE_J XT_J: .dw DO_COLON PFA_J: .dw XT_RP_FETCH .dw XT_DOLITERAL .dw 7 .dw XT_PLUS .dw XT_FETCH .dw XT_RP_FETCH .dw XT_DOLITERAL .dw 9 .dw XT_PLUS .dw XT_FETCH .dw XT_PLUS .dw XT_EXIT