; ( -- addr )
; R( -- )
; place PFA on TOS
;VE_DOCONSTAN:
; .db $0a, "(constant)", 0
; .dw VE_HEAD
; .set VE_HEAD = VE_DOCONSTANT
XT_DOCONSTANT:
.dw PFA_DOCONSTANT
PFA_DOCONSTANT:
adiw wl, 1
savetos
movw tosl, wl
rjmp DO_NEXT