collapseos/blk/820

( native words )
CODE >R
    BP INCx, BP INCx, [BP] 0 POP[w]+,
;CODE NOP, NOP, NOP,
CODE R>
    [BP] 0 PUSH[w]+, BP DECx, BP DECx,
;CODE
CODE 2R>
    [BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
;CODE
CODE I [BP] 0 PUSH[w]+, ;CODE
CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE
CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE
pcat: begin organizing native words properly This port is taking shape! 2020-06-19 05:28:30 +10:00			`( native words )`
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			`CODE >R`
			`BP INCx, BP INCx, [BP] 0 POP[w]+,`
			`;CODE NOP, NOP, NOP,`
			`CODE R>`
			`[BP] 0 PUSH[w]+, BP DECx, BP DECx,`
			`;CODE`
			`CODE 2R>`
			`[BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,`
			`;CODE`
			`CODE I [BP] 0 PUSH[w]+, ;CODE`
pcat: begin organizing native words properly This port is taking shape! 2020-06-19 05:28:30 +10:00			`CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE`
			`CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE`