collapseos/blk/307

( a -- a a )
CODE DUP
    HL POPqq, chkPS,
    HL PUSHqq, HL PUSHqq,
;CODE

CODE ?DUP
    HL POPqq, chkPS,
    HL PUSHqq,
    HLZ, IFNZ, HL PUSHqq, THEN,
;CODE

( a -- )
CODE DROP
    HL POPqq,
;CODE
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( a -- a a )`
			`CODE DUP`
Add word ?DUP 2020-05-22 13:48:30 -04:00			`HL POPqq, chkPS,`
			`HL PUSHqq, HL PUSHqq,`
			`;CODE`

			`CODE ?DUP`
			`HL POPqq, chkPS,`
			`HL PUSHqq,`
			`HLZ, IFNZ, HL PUSHqq, THEN,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`;CODE`

			`( a -- )`
			`CODE DROP`
			`HL POPqq,`
			`;CODE`