collapseos/blk/461

( See comment in B321. TODO: test on real hardware. in qemu,
  the resulting delay is more than 10x too long. )
CODE TICKS 1 chkPS, ( n=100us )
    SI DX MOVxx, ( protect IP )
    AX POPx, BX 100 MOVxI, BX MULx,
    CX DX MOVxx, ( high ) DX AX MOVxx, ( low )
    AX 0x8600 MOVxI, ( 86h, WAIT ) 0x15 INT,
    DX SI MOVxx, ( restore IP )
;CODE
Add word TICKS Adding a delay such as the 20ms one we have in AVR programmer's initialization routine is tricky without a word like TICKS. This implementation is highly inaccurate, but more accurate and reliable than a "ballpark" DO..LOOP... 2020-09-26 07:31:06 +10:00			`( See comment in B321. TODO: test on real hardware. in qemu,`
			`the resulting delay is more than 10x too long. )`
			`CODE TICKS 1 chkPS, ( n=100us )`
			`SI DX MOVxx, ( protect IP )`
			`AX POPx, BX 100 MOVxI, BX MULx,`
			`CX DX MOVxx, ( high ) DX AX MOVxx, ( low )`
			`AX 0x8600 MOVxI, ( 86h, WAIT ) 0x15 INT,`
			`DX SI MOVxx, ( restore IP )`
			`;CODE`