collapseos/blk/814

CODE (loop) ( 0x80 )
    [BP] 0 INC[w]+, ( I++ )
    ( Jump if I <> I' )
    AX [BP] 0 MOVx[]+, AX [BP] -2 CMPx[]+,
    JNZ, L2 @ RPCs, ( branch )
    ( don't branch )
    BP 4 SUBxi, JMPs, L1 @ RPCs,
ORG @ 0xa3 + HERE !
CODE 2>R ( 0xa9 )
    [BP] 4 POP[w]+, [BP] 2 POP[w]+, BP 4 ADDxi,
;CODE NOP, NOP, NOP, NOP, NOP,
CODE (n) ( 0xbf, number literal )
    DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,
    DX INCx, DX INCx,
;CODE ( END OF STABLE ABI )
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 (loop) ( 0x80 )`
			`[BP] 0 INC[w]+, ( I++ )`
			`( Jump if I <> I' )`
			`AX [BP] 0 MOVx[]+, AX [BP] -2 CMPx[]+,`
			`JNZ, L2 @ RPCs, ( branch )`
			`( don't branch )`
			`BP 4 SUBxi, JMPs, L1 @ RPCs,`
			`ORG @ 0xa3 + HERE !`
			`CODE 2>R ( 0xa9 )`
			`[BP] 4 POP[w]+, [BP] 2 POP[w]+, BP 4 ADDxi,`
			`;CODE NOP, NOP, NOP, NOP, NOP,`
pcat: adapt to word type change 2020-06-18 20:50:32 +10:00			`CODE (n) ( 0xbf, number literal )`
pcat: implement (br) and (br?) 2020-06-17 12:10:32 +10:00			`DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,`
			`DX INCx, DX INCx,`
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 ( END OF STABLE ABI )`