izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

forth: Forth-ify "TOWORD"

This commit is contained in:
Virgil Dupras 2020-03-28 13:02:04 -04:00
parent 8b7947bc6a
commit c1693c6256
3 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

19
forth/forth.asm
View File

@ -875,26 +875,11 @@ NOT:
push hl push hl
jp next jp next
; ( -- c )
; C< DUP 32 CMP 1 - SKIP? EXIT DROP TOWORD
.db "TOWORD"
.dw $-NOT
.db 6
TOWORD:
.dw compiledWord
.dw CIN
.dw DUP
.dw ISWS
.dw CSKIP
.dw EXIT
.dw DROP
.dw TOWORD
.dw EXIT
.fill 73 .fill 100
.db "(parsed)" .db "(parsed)"
.dw $-TOWORD .dw $-NOT
.db 8 .db 8
PARSED: PARSED:
.dw nativeWord .dw nativeWord

8
forth/icore.fs
View File

@ -78,12 +78,18 @@
HERE @ 1 + HERE ! HERE @ 1 + HERE !
; ;
: TOWORD
BEGIN
C< DUP WS? NOT IF EXIT THEN DROP
AGAIN
;
( Read word from C<, copy to WORDBUF, null-terminate, and ( Read word from C<, copy to WORDBUF, null-terminate, and
return, make HL point to WORDBUF. ) return, make HL point to WORDBUF. )
: WORD : WORD
( JTBL+30 == WORDBUF ) ( JTBL+30 == WORDBUF )
[ JTBL 30 + @ LITN ] ( a ) [ JTBL 30 + @ LITN ] ( a )
TOWORD ( a c ) _c TOWORD ( a c )
BEGIN BEGIN
( We take advantage of the fact that char MSB is ( We take advantage of the fact that char MSB is
always zero to pre-write our null-termination ) always zero to pre-write our null-termination )