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

25 lines
443B
Raw Blame History 

  1. 0xe800 CONSTANT RAMSTART

  2. 0xf000 CONSTANT RS_ADDR

  3. 212 LOAD  ( z80 assembler )

  4. 262 LOAD  ( xcomp )

  5. : CODE XCODE ;

  6. : IMMEDIATE XIMM ;

  7. : (entry) (xentry) ;

  8. : : [ ' X: , ] ;

  9. 

  10. CURRENT @ XCURRENT !

  11. 

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

  13. H@ XOFF !

  14. 282 LOAD  ( boot.z80 )

  15. 393 LOAD  ( icore )

  16. (entry) _

  17. ( Update LATEST )

  18. H@ XOFF @ - XOFF @ 8 + !

  19. ," CURRENT @ HERE ! "

  20. ," : EMIT 0 PC! ; "

  21. ," : KEY 0 PC@ ; "

  22. 422 470 XPACKR

  23. ," ' KEY 12 RAM+ ! "

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