words/i.asm

Jump to Vocabulary

; ( -- n ) Control Structure
; R( loop-sys -- loop-sys)
; current loop counter
VE_I:
    .db 1, "i"
    .dw VE_HEAD
    .set VE_HEAD = VE_I
XT_I:
    .dw PFA_I
PFA_I:
    savetos
    pop tosl
    pop tosh
    push tosh
    push tosl
    rjmp DO_NEXT

Jump to Vocabulary