izaya
/
collapseos
zrcadlo https://github.com/hsoft/collapseos.git
1
1
Rozštěpit 0
Zdrojový kód Úkoly 0 Vydání 0 Wiki Aktivita
Mirror of CollapseOS
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
1577 Revize
4 Větve
13MB
Strom: adea75e50a
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „adea75e50a“
${ noResults }
collapseos/blk/263

14 řádky
528B
Surový Blame Historie 

  1. CREATE XCURRENT 0 ,

  2. : XCON XCURRENT CURRENT* ! ; : XCOFF 0x02 RAM+ CURRENT* ! ;

  3. : (xentry) XCON (entry) XCOFF ; : XCREATE (xentry) 2 C, ;

  4. : X:** (xentry) 5 C, , ;

  5. : XCODE XCON CODE XCOFF ; : XIMM XCON IMMEDIATE XCOFF ;

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

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

  8. : XFIND XCURRENT @ SWAP _find DROP _xapply ;

  9. : XLITN LIT" (n)" XFIND , , ;

  10. : X' XCON ' XCOFF ; : X['] XCON ' _xapply XLITN XCOFF ;

  11. : XCOMPILE XCON ' _xapply XLITN

  12.     LIT" ," FIND DROP _xapply , XCOFF ;

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