izaya
/
collapseos
espelhamento de https://github.com/hsoft/collapseos.git
1
1
Fork 0
Código Issues 0 Versões 0 Wiki Atividade
Mirror of CollapseOS
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1532 Commits
4 Branches
13MB
Tag: fea9beac1e
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de fea9beac1e
${ noResults }
collapseos/blk/263

13 linhas
503B
Original Anotar Histórico 

  1. CREATE XCURRENT 0 ,

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

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

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

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

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

  7. : XFIND XCURRENT @ SWAP _find DROP _xapply ;

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

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

  10. : XCOMPILE XCON ' _xapply XLITN

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

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