1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 02:58:06 +11:00
collapseos/blk/335

14 lines
211 B
Plaintext
Raw Normal View History

2020-05-08 05:40:10 +10:00
CODE LSHIFT ( n u -- n )
BC POPqq, ( u )
HL POPqq, ( n )
chkPS,
B C LDrr,
B INCr, B DECr, IFNZ,
BEGIN,
L SLAr, H RLr,
DJNZ, AGAIN,
THEN,
HL PUSHqq,
;CODE