; ( -- ) System
; R( -- )
; send the READY prompt to the command line
;VE_PROMPTRDY:
;    .dw $ff04
;    .db "p_rd"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_PROMPTRDY
XT_PROMPTRDY:
    .dw DO_COLON
PFA_PROMPTRDY:
    .dw XT_CR
.if WANT_MPC == 1
    .dw XT_DOLITERAL
    .dw $7e 			; '~'
    .dw XT_EMIT 
    .dw XT_BASE 		; base @ $10 base !
    .dw XT_FETCH 
    .dw XT_DOLITERAL
    .dw $10 
    .dw XT_BASE 
    .dw XT_STORE 
    .dw XT_MPCID		; mpc_ID @ 2 u0.r
    .dw XT_FETCH 
    .dw XT_DOLITERAL
    .dw $2 
    .dw XT_UZERODOTR
    .dw XT_BASE 		; base !
    .dw XT_STORE 
.endif
    .dw XT_SLITERAL
    .dw 2
    .db "> "
    .dw XT_ITYPE
    .dw XT_EXIT

; ( -- ) System
; R( -- )
; send the OK prompt to the command line
;VE_PROMPTOK:
;    .dw $ff04
;    .db "p_ok"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_PROMPTOK
XT_PROMPTOK:
    .dw DO_COLON
PFA_PROMPTOK:
    .dw XT_SLITERAL
    .dw 3
    .db " ok",0
    .dw XT_ITYPE
    .dw XT_EXIT

; ( n -- ) System
; R( -- )
; process the error prompt
;VE_PROMPTERROR:
;    .dw $ff04
;    .db "p_er"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_PROMPTERROR
XT_PROMPTERROR:
    .dw DO_COLON
PFA_PROMPTERROR:
.if want_fun
	.dw XT_G_IN
	.dw XT_FETCH
	.dw XT_SPACES
	.dw XT_DOLITERAL
	.dw '^'
	.dw XT_EMIT
	.dw XT_CR
.endif
	.dw XT_SLITERAL
	.dw 4
	.db  " ?? "
        .dw XT_ITYPE
	.dw XT_BASE
	.dw XT_FETCH
	.dw XT_TO_R
	.dw XT_DECIMAL
	.dw XT_DOT
	.dw XT_G_IN
	.dw XT_FETCH
	.dw XT_DOT
	.dw XT_R_FROM
	.dw XT_BASE
	.dw XT_STORE
    .dw XT_EXIT