collapseos/blk/823

CODE + AX POPx, BX POPx, AX BX ADDxx, AX PUSHx, ;CODE
CODE - BX POPx, AX POPx, AX BX SUBxx, AX PUSHx, ;CODE
CODE *
    AX POPx, BX POPx,
    DX PUSHx, ( protect from MUL ) BX MULx, DX POPx,
    AX PUSHx,
;CODE
CODE /MOD
    BX POPx, AX POPx, DX PUSHx, ( protect )
    DX DX XORxx, BX DIVx,
    BX DX MOVxx, DX POPx, ( unprotect )
    BX PUSHx, ( modulo ) AX PUSHx, ( division )
;CODE
pcat: more native words 2020-06-19 13:10:14 +10:00			`CODE + AX POPx, BX POPx, AX BX ADDxx, AX PUSHx, ;CODE`
			`CODE - BX POPx, AX POPx, AX BX SUBxx, AX PUSHx, ;CODE`
			`CODE *`
			`AX POPx, BX POPx,`
			`DX PUSHx, ( protect from MUL ) BX MULx, DX POPx,`
			`AX PUSHx,`
			`;CODE`
			`CODE /MOD`
pcat: make /MOD division 16-bit Was required for the many "256 /MOD" in the code. 2020-06-21 09:14:51 +10:00			`BX POPx, AX POPx, DX PUSHx, ( protect )`
			`DX DX XORxx, BX DIVx,`
			`BX DX MOVxx, DX POPx, ( unprotect )`
			`BX PUSHx, ( modulo ) AX PUSHx, ( division )`
pcat: more native words 2020-06-19 13:10:14 +10:00			`;CODE`