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