collapseos/blk/334

CODE RSHIFT ( n u -- n )
    BC POP, ( u )
    HL POP, ( n )
    chkPS,
    B C LDrr,
    B INCr, B DECr, IFNZ,
        BEGIN,
            H SRL, L RR,
        DJNZ, AGAIN,
    THEN,
    HL PUSH,
;CODE