collapseos/blk/309

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 23:30:54 +11:00
( a b -- a b a )
CODE OVER
    HL POPqq,       ( B )
    DE POPqq,       ( A )
    chkPS,
    DE PUSHqq,      ( A )
    HL PUSHqq,      ( B )
    DE PUSHqq,      ( A )
;CODE
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( a b -- a b a )`
			`CODE OVER`
			`HL POPqq, ( B )`
			`DE POPqq, ( A )`
			`chkPS,`
			`DE PUSHqq, ( A )`
			`HL PUSHqq, ( B )`
			`DE PUSHqq, ( A )`
			`;CODE`


VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00