collapseos/recipes/pcat/xcomp.fs

21 lines
473 B
Forth
Raw Normal View History

0xff00 CONSTANT RS_ADDR
0xfffa CONSTANT PS_ADDR
2020-06-19 20:09:51 -04:00
RS_ADDR 0x80 - CONSTANT RAMSTART
2020-06-14 14:15:44 -04:00
750 LOAD ( 8086 asm )
262 LOAD ( xcomp )
270 LOAD ( xcomp overrides )
2020-06-21 10:40:09 -04:00
812 829 LOADR
353 LOAD ( xcomp core low )
CODE (emit) 1 chkPS,
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,
2020-06-12 14:01:24 -04:00
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!