izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-26 11:48:07 +11:00
Code Issues Releases Wiki Activity

Compare commits

base: izaya:1536434666638262327af0548ce659b07e42fdfe
Branches Tags
izaya:master
izaya:z80asm
izaya:wip
izaya:forth
...
compare: izaya:99c05fff3c0f0f41d7358b063269cae46633a9f2
Branches Tags
izaya:master
izaya:z80asm
izaya:wip
izaya:forth

4 Commits
1536434666 ... 99c05fff3c

Author SHA1 Message Date
Virgil Dupras
99c05fff3c pcat: it works! 
Forth intepreter now works! There's still DOES> and overflow checks
to implement, but otherwise, we have it!
 2020-06-20 20:06:42 -04:00
Virgil Dupras
ae719508d9 pcat: make /MOD division 16-bit 
Was required for the many "256 /MOD" in the code.
 2020-06-20 19:14:51 -04:00
Virgil Dupras
60ecab314e pcat: we have PROMPT! 
Not working, but we do get that sweet "CollapseOS".
 2020-06-20 16:58:48 -04:00
Virgil Dupras
397ee3e3e6 Simplify word ' 2020-06-20 14:13:41 -04:00
7 changed files with 15 additions and 15 deletions
Show Stats Expand all files Collapse all files

5
blk/369
View File

@ -1,8 +1,5 @@
: '? WORD FIND ; : '? WORD FIND ;
: ' : ' '? NOT IF LIT< (wnf) FIND DROP EXECUTE THEN ;
'? (?br) [ 4 , ] EXIT
LIT< (wnf) FIND DROP EXECUTE
;
: ROLL : ROLL
?DUP NOT IF EXIT THEN ?DUP NOT IF EXIT THEN
1+ DUP PICK ( n val ) 1+ DUP PICK ( n val )

6
blk/811
View File

@ -4,7 +4,9 @@ ORG @ 0x25 + HERE ! ( bypass BPB )
L1 FSET ( start ) L1 FSET ( start )
CLI, CLD, AX 0x800 MOVxI, DS AX MOVsx, ES AX MOVsx, CLI, CLD, AX 0x800 MOVxI, DS AX MOVsx, ES AX MOVsx,
SS AX MOVsx, STI, SS AX MOVsx, STI,
AH 2 MOVri, DX 0 MOVxI, CH 0 MOVri, CL 2 MOVri, AL 7 MOVri, AH 2 MOVri, DX 0 MOVxI, CH 0 MOVri, CL 2 MOVri, AL 12 MOVri,
BX 0 MOVxI, 0x13 INT, ( read sectors 2-9 of boot floppy ) BX 0 MOVxI, 0x13 INT, ( read sectors 2-14 of boot floppy )
( TODO: reading 12 sectors like this probably doesn't work
on real vintage PC/AT with floppy. Make this more robust. )
0x800 0 JMPf, 0x800 0 JMPf,
ORG @ 0x1fe + HERE ! 0x55 A, 0xaa A, ORG @ 0x1fe + HERE ! 0x55 A, 0xaa A,

2
blk/813
View File

@ -9,7 +9,7 @@ H@ XCURRENT ! ( set current tip of dict, 0x42 )
CODE (br) ( 0x53 ) L2 BSET ( used in br? ) CODE (br) ( 0x53 ) L2 BSET ( used in br? )
DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx, DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
;CODE NOP, NOP, ;CODE NOP, NOP,
CODE (br?) ( 0x67 ) CODE (?br) ( 0x67 )
AX POPx, AX AX ORxx, JZ, L2 @ RPCs, ( False, branch ) AX POPx, AX AX ORxx, JZ, L2 @ RPCs, ( False, branch )
( True, skip next 2 bytes and don't branch ) ( True, skip next 2 bytes and don't branch )
L1 BSET ( loop will jump here ) DX INCx, DX INCx, L1 BSET ( loop will jump here ) DX INCx, DX INCx,

2
blk/818
View File

@ -2,4 +2,4 @@
DI 3 SUBxi, AX [DI] MOVx[], ( prev ) DI 3 SUBxi, AX [DI] MOVx[], ( prev )
AX AX ORxx, AX AX ORxx,
JNZ, AGAIN, ( loop ) JNZ, AGAIN, ( loop )
AX INCx, ( NZ ) RETn, SI DECx, ( start of string, and NZ ) RETn,

8
blk/823
View File

@ -6,8 +6,8 @@ CODE *
AX PUSHx, AX PUSHx,
;CODE ;CODE
CODE /MOD CODE /MOD
BX POPx, AX POPx, BX POPx, AX POPx, DX PUSHx, ( protect )
BL DIVr, ( TODO: use DIVx, risk of 8086 error ) DX DX XORxx, BX DIVx,
BH BH XORrr, BL AH MOVrr, BX PUSHx, ( modulo ) BX DX MOVxx, DX POPx, ( unprotect )
BL AL MOVrr, BX PUSHx, ( division ) BX PUSHx, ( modulo ) AX PUSHx, ( division )
;CODE ;CODE

BIN
emul/forth.bin
View File

Binary file not shown.

7
recipes/pcat/xcomp.fs
View File

@ -9,11 +9,12 @@ RS_ADDR 0x80 - CONSTANT RAMSTART
CODE (emit) CODE (emit)
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT, AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
;CODE ;CODE
CODE (key) AH AH XORrr, 0x16 INT, AX PUSHx, ;CODE CODE (key)
: FOO (key) (emit) ; AH AH XORrr, 0x16 INT, AH AH XORrr, AX PUSHx, ;CODE
: BOOT 0x08 @ LIT< FOO _find DROP EXECUTE BYE ; 380 LOAD ( xcomp core high )
(entry) _ (entry) _
( Update LATEST ) ( Update LATEST )
PC ORG @ 8 + ! PC ORG @ 8 + !
EOT,
ORG @ 256 /MOD 2 PC! 2 PC! ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC! H@ 256 /MOD 2 PC! 2 PC!