; ( -- ) Compiler
; R( -- )
;
VE_DOES:
.db $85, "does>"
.dw VE_HEAD
.set VE_HEAD = VE_DOES
XT_DOES:
.dw DO_COLON
PFA_DOES:
.dw XT_DOLITERAL
.dw XT_DODOES
.dw XT_COMMA
.dw XT_COMPILE
.dw $940e ; code for call
.dw XT_COMPILE; the address of this cell is used by (does>)
.dw DO_DODOES
.dw XT_EXIT
; ( -- )
;R( -- )
; runtime of does>
;VE_DODOES:
; .db $07, "(does>)"
; .set VE_HEAD = VE_DODOES
XT_DODOES:
.dw DO_COLON
PFA_DODOES:
.dw XT_R_FROM
.dw XT_HEAD
.dw XT_EFETCH
.dw XT_DUP
.dw XT_IFETCH
.dw XT_DOLITERAL
.dw $001f
.dw XT_AND
.dw XT_2SLASH
.dw XT_1PLUS
.dw XT_PLUS
.dw XT_1PLUS
.dw XT_ISTORE
.dw XT_EXIT