collapseos/blk/334

CODE RSHIFT ( n u -- n )
    DE POP, ( u )
    HL POP, ( n )
    chkPS,
    A E LDrr,
    A ORr, IFNZ,
        BEGIN,
            H SRL, L RR,
            A DECr,
        JRNZ, AGAIN,
    THEN,
    HL PUSH,
;CODE
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`CODE RSHIFT ( n u -- n )`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-06 13:12:17 +10:00			`DE POP, ( u )`
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, ( n )`
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`chkPS,`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-06 13:12:17 +10:00			`A E LDrr,`
			`A ORr, IFNZ,`
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`BEGIN,`
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			`H SRL, L RR,`
z80: protect or avoid BC wherever it's used For the IY->BC move, of course. 2020-07-06 13:12:17 +10:00			`A DECr,`
			`JRNZ, AGAIN,`
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`THEN,`
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 PUSH,`
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`;CODE`