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.
1258 Commits
4 Branches
13MB
Branch: forth
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'forth'
${ noResults }
collapseos/blk/286

17 lines
367B
Raw Permalink Blame History 

  1. CODE >R ( 0xa8 )

  2.     HL POPqq, chkPS,

  3.     17 BCALL, ( 17 == pushRS )

  4. ;CODE

  5. CODE 2>R ( 0xb9 )

  6.     DE POPqq, HL POPqq, chkPS,

  7.     17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,

  8. ;CODE

  9. CODE R> ( 0xce )

  10.     20 BCALL, ( 20 == popRS )

  11.     HL PUSHqq,

  12. ;CODE

  13. CODE 2R> ( 0xdc )

  14.     20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,

  15.     HL PUSHqq, DE PUSHqq,

  16. ;CODE ( END OF STABLE ABI )