1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 08:20:56 +11:00
collapseos/blk/818
Virgil Dupras 99c05fff3c pcat: it works!
Forth intepreter now works! There's still DOES> and overflow checks
to implement, but otherwise, we have it!
2020-06-20 20:06:42 -04:00

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,