izaya
/
collapseos
огледало от https://github.com/hsoft/collapseos.git
1
1
Разклонения 0
Код Задачи 0 Версии 0 Уики 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.
1438 Ревизии
4 Клонове
13MB
ИН на ревизия: 3068b58be5
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от '3068b58be5'
${ noResults }
collapseos/emul/xcomp.fs

36 lines
737B
Директен файл Blame История 

  1. 0xe800 CONSTANT SYSVARS

  2. 0xff00 CONSTANT RS_ADDR

  3. 0xfffa CONSTANT PS_ADDR

  4. 212 LOAD  ( z80 assembler )

  5. 262 LOAD  ( xcomp )

  6. 282 LOAD  ( boot.z80.decl )

  7. 270 LOAD  ( xcomp overrides )

  8. 283 335 LOADR ( boot.z80 )

  9. 353 LOAD  ( xcomp core low )

  10. : (emit) 0 PC! ;

  11. : (key) 0 PC@ ;

  12. : EFS@

  13.     1 3 PC! ( read )

  14.     256 /MOD 3 PC! 3 PC! ( blkid )

  15.     BLK( 256 /MOD 3 PC! 3 PC! ( dest )

  16. ;

  17. : EFS!

  18.     2 3 PC! ( write )

  19.     256 /MOD 3 PC! 3 PC! ( blkid )

  20.     BLK( 256 /MOD 3 PC! 3 PC! ( dest )

  21. ;

  22. : COLS 80 ; : LINES 32 ;

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

  24. 

  25. 380 LOAD  ( xcomp core high )

  26. (entry) _

  27. ( Update LATEST )

  28. PC ORG @ 8 + !

  29. ," CURRENT @ HERE ! "

  30. ," BLK$ "

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

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

  33. EOT,

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

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