izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-24 14:38:05 +11:00
Code Issues Releases Wiki Activity

Move IMMED? from z80c to icore

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-08 20:09:32 -04:00
parent a7a2f3d08b
commit 2a2e3a64a4
3 changed files with 2 additions and 12 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

@ -244,6 +244,8 @@
32 _c , _c ,
;
: IMMED? 1 _c - _c C@ 0x80 _c AND ;
( : and ; have to be defined last because it can't be
executed now also, they can't have their real name
right away.

12
forth/z80c.fs
View File

@ -311,18 +311,6 @@ CODE R>
HL PUSHqq,
;CODE
CODE IMMED?
HL POPqq,
chkPS,
HL DECss,
DE 0 LDddnn,
7 (HL) BITbr,
JRZ, L1 FWR ( notset )
DE INCss,
L1 FSET ( notset )
DE PUSHqq,
;CODE
CODE BYE
HALT,
;CODE