izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1493 Commits
4 Branches
13MB
Struktur: 124da6adec
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „124da6adec“
${ noResults }
collapseos/blk/263

16 Zeilen
429B
Originalformat Blame Verlauf 

  1. CREATE XCURRENT 0 ,

  2. : XCON XCURRENT CURRENT* ! ;

  3. : XCOFF 0x02 RAM+ CURRENT* ! ;

  4. : (xentry) XCON (entry) XCOFF ;

  5. : XCREATE (xentry) 2 C, ;

  6. : XCODE XCON CODE XCOFF ;

  7. : XIMM XCON IMMEDIATE XCOFF ;

  8. : _xapply ( a -- a-off )

  9.     DUP ORG @ > IF ORG @ - BIN( @ + THEN ;

  10. : X' XCON ' XCOFF ;

  11. : X['] XCON ' _xapply LITN XCOFF ;

  12. : XCOMPILE

  13.     XCON ' _xapply LITN

  14.     LIT< , FIND DROP _xapply , XCOFF ;

  15. : X[COMPILE] XCON ' _xapply , XCOFF ;