words/slash.asm

Jump to Vocabulary

; ( n1 n2 -- n3) Arithmetics
; R( -- )
; diviion
VE_SLASH:
    .db $01, "/"
    .dw VE_HEAD
    .set VE_HEAD = VE_SLASH
XT_SLASH:
    .dw DO_COLON
PFA_SLASH:
    .dw XT_SLASHMOD
    .dw XT_SWAP
    .dw XT_DROP
    .dw XT_EXIT

Jump to Vocabulary