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.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/blk/010

15 lines
274B
Raw Blame History 

  1. ( r -- )

  2. : OP1r

  3.     CREATE C,

  4.     DOES>

  5.     C@              ( r op )

  6.     SWAP            ( op r )

  7.     <<3             ( op r<<3 )

  8.     OR A,

  9. ;

  10. 0x04 OP1r INCr,                0x05 OP1r DECr,

  11. : INC(IXY+), INCr, A, ;

  12. : DEC(IXY+), DECr, A, ;

  13. ( also works for c )

  14. 0xc0 OP1r RETc,