collapseos/blk/307

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,
;CODE
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`CODE DUP ( a -- a a )`
			`HL POP, chkPS,`
			`HL PUSH, HL PUSH,`
Add word ?DUP 2020-05-23 03:48:30 +10:00			`;CODE`

			`CODE ?DUP`
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`HL POP, chkPS,`
			`HL PUSH,`
			`HLZ, IFNZ, HL PUSH, THEN,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`;CODE`

z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`CODE DROP ( a -- )`
			`HL POP,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`;CODE`