collapseos/blk/818

( 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-18 15:01:04 -04: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-20 20:06:42 -04:00			`SI DECx, ( start of string, and NZ ) RETn,`