collapseos/blk/307

mirror of https://github.com/hsoft/collapseos.git
( 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-23 11:19:12 +10:00			`( a -- a a )`
			`CODE DUP`
Add word ?DUP 2020-05-23 03:48:30 +10: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-23 11:19:12 +10:00			`;CODE`

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