collapseos/blk/290

lbluflw BSET ( abortUnderflow )
    DE BIN( @ 0x06 ( uflw ) + LDdd(n),
    JR, lblexec BWR
lblchkPS BSET ( chkPS )
( Note that you only need to call this in words that push
  back to PSP. If they don't, calling chkPS is redundant with
  check in next )
    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- LDdn,
    SP SUBHLd,
    EXX,
    CNC RETc, ( PS_ADDR >= SP? good )
    JR, lbluflw BWR
z80: move lbluflw code around with uflw checks not being in next anymore, we can save ourselves a forward jump. 2020-08-08 22:19:31 +10:00			`lbluflw BSET ( abortUnderflow )`
			`DE BIN( @ 0x06 ( uflw ) + LDdd(n),`
			`JR, lblexec BWR`
Extract EXIT code from stable ABI zone 2020-07-06 03:41:12 +10:00			`lblchkPS BSET ( chkPS )`
			`( Note that you only need to call this in words that push`
			`back to PSP. If they don't, calling chkPS is redundant with`
			`check in next )`
			`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- LDdn,`
			`SP SUBHLd,`
			`EXX,`
			`CNC RETc, ( PS_ADDR >= SP? good )`
z80: move lbluflw code around with uflw checks not being in next anymore, we can save ourselves a forward jump. 2020-08-08 22:19:31 +10:00			`JR, lbluflw BWR`