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

icore: simplify definition of ":" and ";"

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-09 09:38:59 -04:00
parent 784b109652
commit 0c3067ed9a
2 changed files with 10 additions and 16 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.

26
forth/icore.fs
View File

@ -201,12 +201,17 @@
: IMMED? 1 - C@ 0x80 AND ;
( : and ; have to be defined last because it can't be
executed now also, they can't have their real name
right away.
)
( ';' can't have its name right away because, when created, it
is not an IMMEDIATE yet and will not be treated properly by
xcomp. )
: _
['] EXIT ,
R> DROP ( exit : )
; IMMEDIATE
: X
';' XCURRENT @ 4 - C!
: :
(entry)
( We cannot use LITN as IMMEDIATE because of bootstrapping
issues. Same thing for ",".
@ -222,16 +227,5 @@
AGAIN
;
XCURRENT @ ( to PSP )
: Y
['] EXIT ,
R> DROP ( exit : )
; IMMEDIATE
( Give ":" and ";" their real name )
';' XCURRENT @ 4 - C!
':' SWAP ( from PSP ) 4 - C!
(xentry) _
H@ 256 /MOD 2 PC! 2 PC!