izaya
/
collapseos
镜像自地址 https://github.com/hsoft/collapseos.git
1
1
派生 0
代码 工单 0 版本发布 0 百科 动态
Mirror of CollapseOS
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
1621 提交
4 分支
13MB
目录树: c939c7e84a
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 'c939c7e84a'
${ noResults }
collapseos/cvm/forth.fs

16 行
371B
原始文件 Blame 文件历史 

  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!