izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests 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) +6 ACIA)
) )
(xentry) ~ACIA (entry) ~ACIA
AF PUSHqq, AF PUSHqq,
HL PUSHqq, HL PUSHqq,
DE PUSHqq, DE PUSHqq,

2
emul/Makefile
View File

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

1
emul/forth/xcomp.fs
View File

@ -1,6 +1,7 @@
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
: CODE XCODE ; : CODE XCODE ;
: IMMEDIATE XIMM ; : IMMEDIATE XIMM ;
: (entry) (xentry) ;
: : [ ' X: , ] ; : : [ ' X: , ] ;
CURRENT @ XCURRENT ! 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/acia.z80 \
$(BASEDIR)/drv/sdc.z80 \ $(BASEDIR)/drv/sdc.z80 \
$(FDIR)/icore.fs \ $(FDIR)/icore.fs \
$(EDIR)/xstop.fs $(EDIR)/stop.fs
PATHS = \ PATHS = \
$(FDIR)/core.fs \ $(FDIR)/core.fs \