izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
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.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/cvm/forth.fs

16 lines
257B
Raw Blame History 

  1. : (emit) 0 PC! ;

  2. : COLS 80 ; : LINES 32 ;

  3. : AT-XY 6 PC! ( y ) 5 PC! ( x ) ;

  4. 

  5. 390 LOAD  ( xcomp core high )

  6. (entry) _

  7. ( Update LATEST )

  8. PC ORG @ 8 + !

  9. ," BLK$ "

  10. ," ' EFS@ BLK@* ! "

  11. ," ' EFS! BLK!* ! "

  12. EOT,

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

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