collapseos/blk/818

mirror of https://github.com/hsoft/collapseos.git synced 2025-02-05 23:36:01 +11:00
( find cont. )
        DI 3 SUBxi, AX [DI] MOVx[], ( prev )
        AX AX ORxx,
    JNZ, AGAIN, ( loop )
    SI DECx, ( start of string, and NZ ) RETn,
pcat: implement (loop) 8086 asm is a lot terser than z80... Those indirect memory operations are very handy. 2020-06-19 05:01:04 +10:00			`( find cont. )`
			`DI 3 SUBxi, AX [DI] MOVx[], ( prev )`
			`AX AX ORxx,`
			`JNZ, AGAIN, ( loop )`
pcat: it works! Forth intepreter now works! There's still DOES> and overflow checks to implement, but otherwise, we have it! 2020-06-21 10:06:42 +10:00			`SI DECx, ( start of string, and NZ ) RETn,`