; ( -- ) System
; R( -- )
; main loop of amforth. accept - interpret in an endless loop
VE_QUIT:
.db $04, "quit", 0
.dw VE_HEAD
.set VE_HEAD = VE_QUIT
XT_QUIT:
.dw DO_COLON
PFA_QUIT:
.dw XT_SP0
.dw XT_SP_STORE
.dw XT_RP0
.dw XT_RP_STORE
.dw XT_HEX
.dw XT_ZERO
.dw XT_STATE
.dw XT_STORE
PFA_QUIT2:
.dw XT_STATE
.dw XT_FETCH
.dw XT_EQUALZERO
.dw XT_DOCONDBRANCH
.dw PFA_QUIT4
.dw XT_CR
.dw XT_SLITERAL
.db 2, "> ",0
.dw XT_ITYPE
PFA_QUIT4:
.dw XT_REFILL
.dw XT_DOCONDBRANCH
.dw PFA_QUIT2
.dw XT_DOLITERAL
.dw XT_INTERPRET
.dw XT_CATCH
.dw XT_QDUP
.dw XT_DOCONDBRANCH
.dw PFA_QUIT3
.dw XT_DUP
.dw XT_DOLITERAL
.dw -2
.dw XT_LESS
.dw XT_DOCONDBRANCH
.dw PFA_QUIT5
.dw XT_SLITERAL
.db 3, " ??"
.dw XT_ITYPE
.dw XT_DECIMAL
.dw XT_DOT
.dw XT_G_IN
.dw XT_FETCH
.dw XT_DOT
PFA_QUIT5:
.dw XT_DOBRANCH
.dw PFA_QUIT
PFA_QUIT3:
.dw XT_SLITERAL
.db 3, " ok"
.dw XT_ITYPE
.dw XT_DOBRANCH
.dw PFA_QUIT2
.dw XT_EXIT ; never reached