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