interpret
interpret input word by word. may throw exceptions
Stackeffects
( -- )R( i*x - j*x )
Definition
: interpret
PFA_INTERPRET1:
bl word dup c@ 0>
(?branch) PFA_INTERPRET4
find ?dup 0=
(?branch) PFA_INTERPRET2
number state @
(?branch) PFA_INTERPRET9
compile
compile
(unnamed)
PFA_INTERPRET9:
(branch) PFA_INTERPRET3
PFA_INTERPRET2:
0>
(?branch) PFA_INTERPRET5
execute
(branch) PFA_INTERPRET6
PFA_INTERPRET5:
state @ 0=
(?branch) PFA_INTERPRET7
execute
(branch) PFA_INTERPRET8
PFA_INTERPRET7:
(unnamed)
PFA_INTERPRET8:
PFA_INTERPRET6:
PFA_INTERPRET3:
(branch) PFA_INTERPRET1
PFA_INTERPRET4:
drop exit
;