collapseos/blk/305

( Native words )
CODE EXECUTE
    DE POP,
    chkPS,
    JR, lblexec BWR      ( execute-B301 )

CODE EXIT
PC ORG @ 0x0d + ! ( stable ABI JP )
    L 0 IX+ LDrIXY,
    H 1 IX+ LDrIXY,
    IX DECd, IX DECd,
    HL PUSH, IY POP, ( --> IP )
    JPNEXT,
Extract EXIT code from stable ABI zone 2020-07-05 13:41:12 -04:00			`( Native words )`
			`CODE EXECUTE`
			`DE POP,`
			`chkPS,`
			`JR, lblexec BWR ( execute-B301 )`

			`CODE EXIT`
			`PC ORG @ 0x0d + ! ( stable ABI JP )`
z80: inline all uses of pushRS/popRS I'm trying to move stuff around and it simplifies things. Will make a lot more sense to inline when BC replaces IY. 2020-07-05 21:54:01 -04:00			`L 0 IX+ LDrIXY,`
			`H 1 IX+ LDrIXY,`
			`IX DECd, IX DECd,`
Extract EXIT code from stable ABI zone 2020-07-05 13:41:12 -04:00			`HL PUSH, IY POP, ( --> IP )`
			`JPNEXT,`