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

Move EMIT to low core

Browse Source 
This allows us to remove one layer of indirection in (wnf). This is
possible now that EMIT is a switch word.
This commit is contained in:
Virgil Dupras 2020-10-28 16:34:49 -04:00
parent 038c25957b
commit 8f3891f7d3
5 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/381 → blk/356
View File

@ -7,3 +7,4 @@ SYSVARS 0x0a + :** NL
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
: (oflw) LIT" stack overflow" ERR ; : (oflw) LIT" stack overflow" ERR ;
XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + ! XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + !
: (wnf) (print) LIT" word not found" ERR ;

2
blk/363
View File

@ -1,5 +1,3 @@
: (wnf) LIT" (print)" FIND DROP EXECUTE
LIT" word not found" ERR ;
: (parse) ( a -- n ) : (parse) ( a -- n )
_pc IF EXIT THEN _pc IF EXIT THEN
_ph IF EXIT THEN _ph IF EXIT THEN

4
blk/364
View File

@ -5,3 +5,7 @@ SYSVARS 0x0c + :** C<*
?DUP NOT IF C<* ELSE EXECUTE THEN ; ?DUP NOT IF C<* ELSE EXECUTE THEN ;
: , H@ ! H@ 2+ HERE ! ; : , H@ ! H@ 2+ HERE ! ;
: C, H@ C! H@ 1+ HERE ! ; : C, H@ C! H@ 1+ HERE ! ;
: ,"
BEGIN
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
AGAIN ;

4
blk/382
View File

@ -1,4 +0,0 @@
: ,"
BEGIN
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
AGAIN ;

BIN
cvm/forth.bin
View File

Binary file not shown.