izaya
/
collapseos
kopie van https://github.com/hsoft/collapseos.git
1
1
Vork 0
Code Kwesties 0 Publicaties 0 Wiki Activiteit
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.
1564 Commits
4 Branches
13MB
Tree: 885e7db054
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '885e7db054'
${ noResults }
collapseos/emul/8086/xcomp.fs

24 lines
657B
Ruw Blame Geschiedenis 

  1. 0xff00 CONSTANT RS_ADDR

  2. 0xfffa CONSTANT PS_ADDR

  3. RS_ADDR 0x80 - CONSTANT SYSVARS

  4. 30 LOAD   ( 8086 asm )

  5. 262 LOAD  ( xcomp ) 270 LOAD  ( xcomp overrides )

  6. 445 461 LOADR ( 8086 boot code )

  7. 353 LOAD  ( xcomp core low )

  8. CODE (emit) AX POPx, 1 INT, ;CODE

  9. CODE (key) 2 INT, AH 0 MOVri, AX PUSHx, ;CODE

  10. : COLS 80 ; : LINES 25 ;

  11. CODE AT-XY ( x y ) BX POPx, AX POPx, 3 INT, ;CODE

  12. CODE _ BX POPx, AX POPx, 4 INT, ;CODE

  13. : EFS@ BLK( _ ;

  14. CODE _ BX POPx, AX POPx, 5 INT, ;CODE

  15. : EFS! BLK( _ ;

  16. 380 LOAD  ( xcomp core high )

  17. (entry) _ ( Update LATEST ) PC ORG @ 8 + !

  18. ," BLK$ "

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

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

  21. EOT,

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

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