collapseos/recipes/pcat/xcomp.fs

0xff00 CONSTANT RS_ADDR
0xfffa CONSTANT PS_ADDR
RS_ADDR 0x80 - CONSTANT RAMSTART
750 LOAD  ( 8086 asm )
262 LOAD  ( xcomp )
270 LOAD  ( xcomp overrides )
812 829 LOADR
353 LOAD  ( xcomp core low )
CODE (emit)
    AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
;CODE
CODE (key)
    AH AH XORrr, 0x16 INT, AH AH XORrr, AX PUSHx, ;CODE
380 LOAD  ( xcomp core high )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
EOT,
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!
pcat: implement RSP mechanism in execution model 2020-06-17 10:41:53 +10:00			`0xff00 CONSTANT RS_ADDR`
			`0xfffa CONSTANT PS_ADDR`
pcat: implement (s) 2020-06-20 10:09:51 +10:00			`RS_ADDR 0x80 - CONSTANT RAMSTART`
pcat: begin structuring around words 2020-06-15 04:15:44 +10:00			`750 LOAD ( 8086 asm )`
			`262 LOAD ( xcomp )`
			`270 LOAD ( xcomp overrides )`
pcat: implement does 2020-06-22 00:40:09 +10:00			`812 829 LOADR`
pcat: implement cell execution and shaping things up 2020-06-21 03:50:01 +10:00			`353 LOAD ( xcomp core low )`
			`CODE (emit)`
			`AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,`
			`;CODE`
pcat: it works! Forth intepreter now works! There's still DOES> and overflow checks to implement, but otherwise, we have it! 2020-06-21 10:06:42 +10:00			`CODE (key)`
			`AH AH XORrr, 0x16 INT, AH AH XORrr, AX PUSHx, ;CODE`
pcat: we have PROMPT! Not working, but we do get that sweet "CollapseOS". 2020-06-21 06:58:48 +10:00			`380 LOAD ( xcomp core high )`
pcat: begin implementing find Not comparing strings yet. Without asm tooling support, it's a big chunk to swallow at once. It's progressing well! 2020-06-15 11:52:58 +10:00			`(entry) _`
			`( Update LATEST )`
			`PC ORG @ 8 + !`
pcat: we have PROMPT! Not working, but we do get that sweet "CollapseOS". 2020-06-21 06:58:48 +10:00			`EOT,`
recipes/pcat: first steps into 8086! 2020-06-13 04:01:24 +10:00			`ORG @ 256 /MOD 2 PC! 2 PC!`
			`H@ 256 /MOD 2 PC! 2 PC!`