collapseos/blk/305

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 - LDddnn,
    SP SUBHLss,
    EXX,
    CNC RETcc,      ( PS_ADDR >= SP? good )
    JR, lblofl BWR      ( abortUnderflow-B298 )
z80: use named labels for boot routines The usage of numerotated labels for this was becoming severly confusing. 2020-06-18 21:16:40 +10:00			`lblchkPS BSET ( chkPS )`
z80: optimize chkPS Inline it in next and make chkPS, call a newly reserved label for it directly, removing a layer of indirection. This frees a spot in the stable ABI. 2020-06-14 23:48:10 +10:00			`( 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 - LDddnn,`
			`SP SUBHLss,`
			`EXX,`
			`CNC RETcc, ( PS_ADDR >= SP? good )`
z80: use named labels for boot routines The usage of numerotated labels for this was becoming severly confusing. 2020-06-18 21:16:40 +10:00			`JR, lblofl BWR ( abortUnderflow-B298 )`