izaya
/
collapseos
kopie van https://github.com/hsoft/collapseos.git
1
1
Vork 0
Code Kwesties 0 Publicaties 0 Wiki Activiteit
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.
1156 Commits
4 Branches
13MB
Tree: 4e1fe916be
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '4e1fe916be'
${ noResults }
collapseos/blk/247

10 lines
203B
Ruw Blame Geschiedenis 

  1. : THEN,

  2.     DUP PC          ( l l pc )

  3.     -^ 1-           ( l off )

  4.     ( warning: l is a PC offset, not a mem addr! )

  5.     SWAP ORG @ + BIN( @ - ( off addr )

  6.     C!

  7. ;

  8. : FWR BSET 0 A, ;

  9. : FSET @ THEN, ;