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

33 lines
706B
Raw Blame History 

  1. 0x8000 CONSTANT RAMSTART

  2. 0xf000 CONSTANT RS_ADDR

  3. 0x80   CONSTANT ACIA_CTL

  4. 0x81   CONSTANT ACIA_IO

  5. 4      CONSTANT SDC_SPI

  6. 5      CONSTANT SDC_CSLOW

  7. 6      CONSTANT SDC_CSHIGH

  8. RAMSTART 0x70 + CONSTANT ACIA_MEM

  9. 212 LOAD  ( z80 assembler )

  10. 262 LOAD  ( xcomp )

  11. : CODE XCODE ;

  12. : IMMEDIATE XIMM ;

  13. : (entry) (xentry) ;

  14. : : [ ' X: , ] ;

  15. 

  16. CURRENT @ XCURRENT !

  17. 

  18. 282 LOAD  ( boot.z80 )

  19. 352 LOAD  ( acia.z80 )

  20. 372 LOAD  ( sdc.z80 )

  21. 393 LOAD  ( icore low )

  22. 415 LOAD  ( icore high )

  23. (entry) _

  24. ( Update LATEST )

  25. PC ORG @ 8 + !

  26. 422 437 XPACKR ( core )

  27. 358 360 XPACKR ( acia.fs )

  28. 438 452 XPACKR ( print fmt readln )

  29. 123 132 XPACKR ( linker )

  30. ," : _ ACIA$ RDLN$ (ok) ; _ "

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

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