collapseos/blk/308

CODE ROT ( a b c -- b c a )
    HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,
    DE PUSH, ( B ) HL PUSH, ( C ) IY PUSH, ( A )
;CODE
CODE DUP ( a -- a a )
    HL POP, chkPS,
    HL PUSH, HL PUSH,
;CODE
CODE ?DUP
    HL POP, chkPS,
    HL PUSH,
    HLZ, IFNZ, HL PUSH, THEN,
;CODE
CODE DROP ( a -- )
    HL POP, chkPS,
;CODE
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`CODE ROT ( a b c -- b c a )`
z80: Use BC as IP register instead of IY It's a bit more inconvenient in terms of register protection (BC is much more generally useful than IY), but it makes tight spots such as next and execute much faster, so I think it's worth it. 2020-07-07 13:31:00 +10:00			`HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,`
			`DE PUSH, ( B ) HL PUSH, ( C ) IY PUSH, ( A )`
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`;CODE`
			`CODE DUP ( a -- a a )`
			`HL POP, chkPS,`
			`HL PUSH, HL PUSH,`
			`;CODE`
			`CODE ?DUP`
			`HL POP, chkPS,`
			`HL PUSH,`
			`HLZ, IFNZ, HL PUSH, THEN,`
			`;CODE`
			`CODE DROP ( a -- )`
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 22:38:04 +10:00			`HL POP, chkPS,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`;CODE`