; 2010-12-27  EW
	
; : emit_on  ['] tx is emit ; 
VE_EMIT_ON:
    .dw $FF05 
    .db "+emit",0
    .dw VE_HEAD
    .set VE_HEAD = VE_EMIT_ON
XT_EMIT_ON:
    .dw DO_COLON 
PFA_EMIT_ON:
    .dw XT_DOLITERAL 
    .dw XT_TX
    .dw XT_DOLITERAL 
    .dw XT_EMIT
    .dw XT_DEFERSTORE
    .dw XT_EXIT 

; : emit_off ['] drop is emit ; 
VE_EMIT_OFF:
    .dw $FF05 
    .db "-emit",0
    .dw VE_HEAD
    .set VE_HEAD = VE_EMIT_OFF
XT_EMIT_OFF:
    .dw DO_COLON 
PFA_EMIT_OFF:
    .dw XT_DOLITERAL 
    .dw XT_DROP
    .dw XT_DOLITERAL 
    .dw XT_EMIT
    .dw XT_DEFERSTORE
    .dw XT_EXIT 


; fin