izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1309 Commits
4 Branches
13MB
Tree: 54bc2e4b96
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '54bc2e4b96'
${ noResults }
collapseos/blk/334

13 lines
210B
Raw Blame History 

  1. CODE RSHIFT ( n u -- n )

  2.     BC POPqq, ( u )

  3.     HL POPqq, ( n )

  4.     chkPS,

  5.     B C LDrr,

  6.     B INCr, B DECr, IFNZ,

  7.         BEGIN,

  8.             H SRLr, L RRr,

  9.         DJNZ, AGAIN,

  10.     THEN,

  11.     HL PUSHqq,

  12. ;CODE