collapseos/blk/290

lblchkPS BSET ( chkPS )
    ( thread carefully in there: sometimes, we're in the
      middle of a EXX to protect BC. BC must never be touched
      here. )
    EXX,
( We have the return address for this very call on the stack
  and protected registers. 2- is to compensate that. )
    HL PS_ADDR 2- LDdi,
    SP SUBHLd,
    EXX,
    CNC RETc, ( PS_ADDR >= SP? good )
    ( continue to uflw )
lbluflw BSET ( abortUnderflow )
    DE BIN( @ 0x06 ( uflw ) + LDd(i),
    JR, lblexec BWR
Extract EXIT code from stable ABI zone 2020-07-05 13:41:12 -04:00			`lblchkPS BSET ( chkPS )`
z80: add missing chkPS, calls chkPS, used to be only for words that pushed back to PS, but I've recently removed underflow checks from next and I forgot to add missing chkPS, calls that go with this change. 2020-08-23 08:38:04 -04:00			`( thread carefully in there: sometimes, we're in the`
			`middle of a EXX to protect BC. BC must never be touched`
			`here. )`
Extract EXIT code from stable ABI zone 2020-07-05 13:41:12 -04:00			`EXX,`
			`( We have the return address for this very call on the stack`
			`and protected registers. 2- is to compensate that. )`
zasm: complete mnemonic argspecs harmonization 2020-08-15 08:11:48 -04:00			`HL PS_ADDR 2- LDdi,`
Extract EXIT code from stable ABI zone 2020-07-05 13:41:12 -04:00			`SP SUBHLd,`
			`EXX,`
			`CNC RETc, ( PS_ADDR >= SP? good )`
z80: add missing chkPS, calls chkPS, used to be only for words that pushed back to PS, but I've recently removed underflow checks from next and I forgot to add missing chkPS, calls that go with this change. 2020-08-23 08:38:04 -04:00			`( continue to uflw )`
			`lbluflw BSET ( abortUnderflow )`
			`DE BIN( @ 0x06 ( uflw ) + LDd(i),`
			`JR, lblexec BWR`