; ( n -- ) Numeric IO
; R( -- )
; prints TOS in free number format
VE_DOT:
.db $01, "."
.dw VE_HEAD
.set VE_HEAD = VE_DOT
XT_DOT:
.dw DO_COLON
PFA_DOT:
.dw XT_DUP
.dw XT_ABS
.dw XT_S2D
.dw XT_L_SHARP
.dw XT_SHARP_S
.dw XT_ROT
.dw XT_SIGN
.dw XT_BL
.dw XT_HOLD
.dw XT_SHARP_G
.dw XT_TYPE
.dw XT_EXIT