words/r_from.asm

Jump to Vocabulary

; ( -- n ) Stack
; R( n --)
; move TOR to TOS
VE_R_FROM:
    .db $02, "r>", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_R_FROM
XT_R_FROM:
    .dw PFA_R_FROM
PFA_R_FROM:
    savetos
    pop tosl
    pop tosh
    rjmp DO_NEXT

Jump to Vocabulary