izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:08: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 , 32 _c , _c ,
; ;
: IMMED? 1 _c - _c C@ 0x80 _c AND ;
( : and ; have to be defined last because it can't be ( : and ; have to be defined last because it can't be
executed now also, they can't have their real name executed now also, they can't have their real name
right away. right away.

12
forth/z80c.fs
View File

@ -311,18 +311,6 @@ CODE R>
HL PUSHqq, HL PUSHqq,
;CODE ;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 CODE BYE
HALT, HALT,
;CODE ;CODE