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

17 lines
381B
Raw Blame History 

  1. ( native words )

  2. CODE EXECUTE 1 chkPS,

  3.     DI POPx, JMPn, lblexec @ RPCn,

  4. CODE >R 1 chkPS,

  5.     BP INCx, BP INCx, [BP] 0 POP[w]+,

  6. ;CODE NOP, NOP, NOP,

  7. CODE R>

  8.     [BP] 0 PUSH[w]+, BP DECx, BP DECx,

  9. ;CODE

  10. CODE 2>R

  11. PC 0x37 - ORG @ 0x35 + ! ( stable abi )

  12.     [BP] 4 POP[w]+, [BP] 2 POP[w]+, BP 4 ADDxi,

  13. ;CODE

  14. CODE 2R> 2 chkPS,

  15.     [BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,

  16. ;CODE