collapseos/blk/330

CODE _find  ( cur w -- a f )
    HL POP,       ( w )
    DE POP,       ( cur )
    chkPS,
    lblfind @ CALL,
    IFNZ,
        ( not found )
        HL PUSH,
        PUSH0,
        JPNEXT,
    THEN,
    ( found )
    DE PUSH,
    PUSH1,
;CODE
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`CODE _find ( cur w -- a f )`
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-27 22:01:56 -04:00			`HL POP, ( w )`
			`DE POP, ( cur )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`chkPS,`
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-27 22:01:56 -04:00			`lblfind @ CALL,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`IFNZ,`
			`( not found )`
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-27 22:01:56 -04:00			`HL PUSH,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`PUSH0,`
			`JPNEXT,`
			`THEN,`
			`( found )`
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-27 22:01:56 -04:00			`DE PUSH,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`PUSH1,`
			`;CODE`