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

16 lines
396B
Raw Blame History 

  1. ( qq -- also works for ss )

  2. : OP1qq

  3.     CREATE C,

  4.     DOES>

  5.     C@              ( qq op )

  6.     SWAP            ( op qq )

  7.     <<4             ( op qq<<4 )

  8.     OR A,

  9. ;

  10. 0xc5 OP1qq PUSHqq,             0xc1 OP1qq POPqq,

  11. 0x03 OP1qq INCss,              0x0b OP1qq DECss,

  12. 0x09 OP1qq ADDHLss,

  13. 

  14. : ADDIXss, 0xdd A, ADDHLss, ;  : ADDIXIX, HL ADDIXss, ;

  15. : ADDIYss, 0xfd A, ADDHLss, ;  : ADDIYIY, HL ADDIYss, ;