collapseos/blk/309

CODE DROP ( a -- )
    HL POP, chkPS,
;CODE
CODE SWAP ( a b -- b a )
    HL POP, ( B ) DE POP, ( A )
    chkPS,
    HL PUSH, ( B ) DE PUSH, ( A )
;CODE
CODE OVER ( a b -- a b a )
    HL POP, ( B ) DE POP, ( A )
    chkPS,
    DE PUSH, ( A ) HL PUSH, ( B ) DE PUSH, ( A )
;CODE
Add word ROT> There are many situations where it can be useful. Worth it. 2020-10-30 03:34:02 +11:00			`CODE DROP ( a -- )`
			`HL POP, chkPS,`
			`;CODE`
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`CODE SWAP ( a b -- b a )`
			`HL POP, ( B ) DE POP, ( A )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`chkPS,`
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`HL PUSH, ( B ) DE PUSH, ( A )`
			`;CODE`
			`CODE OVER ( a b -- a b a )`
			`HL POP, ( B ) DE POP, ( A )`
			`chkPS,`
			`DE PUSH, ( A ) HL PUSH, ( B ) DE PUSH, ( A )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`;CODE`