; ( -- ) 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