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

So, why was ":" an immediate again?

This commit is contained in:
Virgil Dupras 2020-04-09 09:27:51 -04:00
parent afed423530
commit 784b109652
3 changed files with 2 additions and 4 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.

2
forth/icore.fs
View File

@ -220,7 +220,7 @@
( maybe number )
ELSE (parse*) @ EXECUTE LITN THEN
AGAIN
; IMMEDIATE
;
XCURRENT @ ( to PSP )

4
forth/xcomp.fs
View File

@ -53,8 +53,6 @@ VARIABLE XOFF
(xentry) 23 ,
;
: _IMM IMMEDIATE ;
: IMMEDIATE
XCURRENT @ 1 -
DUP C@ 128 OR SWAP C!
@ -88,4 +86,4 @@ VARIABLE XOFF
(parse*) @ EXECUTE LITN
THEN
AGAIN
; _IMM
;