word QUIT 16384 define
word BYE 25 define
word WORDS 27 define
-word !CHANNEL 35 define
+word CHANNEL-IN 35 define
+word CHANNEL-OUT 48 define
word !HERE 36 define
word HERE 28 define
word STACKTRACE 46 define
+word FETCH 47 define
word ; 1 define
word JZ: 14 define
' word , ' 2dup , ' here , ' define-does , ' here , ' define , ' ; ,
\ write the execution semantics of a word to memory
-: MEMORIZE-WORD ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
+: MEMORIZE-WORD ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
-' drop , ' lit , ' lit , ' , , ' execute-num , ' , , ' ; ,
+' drop , ' lit , ' lit , ' , , ' execute-num , ' , , ' ; ,
\ change interpreter semantics to "memorize-word"
: memorizing ' lit , ' mode , ' lit , ' memorize-word , ' ! , ' ; ,
\memorizing
\: executing lit mode lit execute-word ! ;
\: FINISH-" drop string-end ;
-\: " string-start \: KLOOP key 34 =? JNZ: finish-" string-put JMP: KLOOP
+\: BSLASH-" drop key string-put JMP: \here \8 \+ \,
+\: " string-start \: KLOOP key 92 =? JNZ: bslash-" 34 =? JNZ: finish-" string-put JMP: KLOOP
\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;
\: DOELSE \:> ELSE lit JMP: , here dup , swap here ! ;
beyond this point, all hope is lost
)
+\ Print intro string
" watForth-32 Interactive CLI:
" .s