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

Avoid using (xentry) outside xcomp config

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-23 12:09:31 -04:00
parent fcd77f80ab
commit dd6ce1b8fe
5 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
drv/acia.z80
View File

@ -12,7 +12,7 @@ ACIA_MEM
+6 ACIA)
)
(xentry) ~ACIA
(entry) ~ACIA
AF PUSHqq,
HL PUSHqq,
DE PUSHqq,

2
emul/Makefile
View File

@ -3,7 +3,7 @@ TARGETS = forth/forth
BOOTSRCS = ./forth/conf.fs \
./forth/xcomp.fs \
../forth/icore.fs \
./forth/xstop.fs
./forth/stop.fs
FORTHSRCS = core.fs cmp.fs print.fs parse.fs readln.fs fmt.fs blk.fs
FORTHSRC_PATHS = ${FORTHSRCS:%=../forth/%} forth/run.fs

1
emul/forth/xcomp.fs
View File

@ -1,6 +1,7 @@
262 LOAD ( xcomp )
: CODE XCODE ;
: IMMEDIATE XIMM ;
: (entry) (xentry) ;
: : [ ' X: , ] ;
CURRENT @ XCURRENT !

3
emul/forth/xstop.fs
View File

@ -1,3 +0,0 @@
(xentry) _
H@ 256 /MOD 2 PC! 2 PC!

2
recipes/rc2014/Makefile
View File

@ -9,7 +9,7 @@ BOOTSRCS = conf.fs \
$(BASEDIR)/drv/acia.z80 \
$(BASEDIR)/drv/sdc.z80 \
$(FDIR)/icore.fs \
$(EDIR)/xstop.fs
$(EDIR)/stop.fs
PATHS = \
$(FDIR)/core.fs \