words/unloop.asm

Jump to Vocabulary

; ( -- ) Control Structure
; R(loop-sys -- )
; remove loop-sys
VE_UNLOOP:
    .db 6, "unloop", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_UNLOOP
XT_UNLOOP:
    .dw PFA_UNLOOP
PFA_UNLOOP:
    pop temp1
    pop temp0
    pop temp1
    pop temp0
    pop temp1
    pop temp0
    rjmp DO_NEXT

Jump to Vocabulary