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

So, why was ":" an immediate again?

Browse Source
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 ) ( maybe number )
ELSE (parse*) @ EXECUTE LITN THEN ELSE (parse*) @ EXECUTE LITN THEN
AGAIN AGAIN
; IMMEDIATE ;
XCURRENT @ ( to PSP ) XCURRENT @ ( to PSP )

4
forth/xcomp.fs
View File

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