words/pad.asm

Jump to Vocabulary

; ( -- addr ) System Pointer
; R( -- )
; scratch buffer.
VE_PAD:
    .db $03, "pad"
    .dw VE_HEAD
    .set VE_HEAD = VE_PAD
XT_PAD:
    .dw DO_COLON
PFA_PAD:
    .dw XT_HEAP
    .dw XT_EFETCH
    .dw XT_EXIT

Jump to Vocabulary