mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 00:08:05 +11:00
99c05fff3c
Forth intepreter now works! There's still DOES> and overflow checks to implement, but otherwise, we have it!
6 lines
152 B
Plaintext
6 lines
152 B
Plaintext
( find cont. )
|
|
DI 3 SUBxi, AX [DI] MOVx[], ( prev )
|
|
AX AX ORxx,
|
|
JNZ, AGAIN, ( loop )
|
|
SI DECx, ( start of string, and NZ ) RETn,
|