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.
1691 Commits
4 Branches
13MB
Tree: ac3629b817
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ac3629b817'
${ noResults }
collapseos/emul/z80/xcomp.fs

36 lines
753B
Raw Blame History 

  1. 0xff00 CONSTANT RS_ADDR

  2. 0xfffa CONSTANT PS_ADDR

  3. RS_ADDR 0xa0 - CONSTANT SYSVARS

  4. 0 CONSTANT HERESTART

  5. 5 LOAD  ( z80 assembler )

  6. 262 LOAD  ( xcomp )

  7. 282 LOAD  ( boot.z80.decl )

  8. 270 LOAD  ( xcomp overrides )

  9. 283 335 LOADR ( boot.z80 )

  10. 353 LOAD  ( xcomp core low )

  11. : (emit) 0 PC! ;

  12. : (key?) 0 PC@ 1 ;

  13. : EFS@

  14.     1 3 PC! ( read )

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

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

  17. ;

  18. : EFS!

  19.     2 3 PC! ( write )

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

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

  22. ;

  23. : COLS 80 ; : LINES 32 ;

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

  25. 

  26. 390 LOAD  ( xcomp core high )

  27. (entry) _

  28. ( Update LATEST )

  29. PC ORG @ 8 + !

  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!