collapseos/blk/334

13 lines
210 B
Plaintext
Raw Permalink Normal View History

2020-05-07 15:40:10 -04:00
CODE RSHIFT ( n u -- n )
BC POPqq, ( u )
HL POPqq, ( n )
chkPS,
B C LDrr,
B INCr, B DECr, IFNZ,
BEGIN,
H SRLr, L RRr,
DJNZ, AGAIN,
THEN,
HL PUSHqq,
;CODE