1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 21:08:05 +11:00
collapseos/recipes/pcat/xcomp.fs
2020-06-16 22:10:32 -04:00

12 lines
229 B
Forth

0xff00 CONSTANT RS_ADDR
0xfffa CONSTANT PS_ADDR
750 LOAD ( 8086 asm )
262 LOAD ( xcomp )
270 LOAD ( xcomp overrides )
812 818 LOADR
(entry) _
( Update LATEST )
PC ORG @ 8 + !
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!