izaya
/
collapseos
miroir de https://github.com/hsoft/collapseos.git
1
1
Bifurcation 0
Code Tickets 0 Versions 0 Wiki Activité
Mirror of CollapseOS
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
1621 Révisions
4 Branches
13MB
Aborescence: c939c7e84a
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de 'c939c7e84a'
${ noResults }
collapseos/cvm/forth.fs

16 lignes
371B
Brut Annotations Historique 

  1. : COLS 80 ; : LINES 32 ;

  2. : CELL! ( g pos -- )

  3.     COLS /MOD 6 PC! ( y ) 5 PC! ( x ) 0x20 + 0 PC! ;

  4. : NEWLN ( ln -- ) DROP 0xa 0 PC! ;

  5. 

  6. SYSVARS 0x70 + CONSTANT GRID_MEM

  7. 402 403 LOADR ( Grid )

  8. 390 LOAD  ( xcomp core high )

  9. (entry) _

  10. ( Update LATEST )

  11. PC ORG @ 8 + !

  12. ," BLK$ ' EFS@ BLK@* ! ' EFS! BLK!* ! 0 0 AT-XY " EOT,

  13. ORG @ 256 /MOD 2 PC! 2 PC!

  14. H@ 256 /MOD 2 PC! 2 PC!