mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Avoid using (xentry) outside xcomp config
This commit is contained in:
parent
fcd77f80ab
commit
dd6ce1b8fe
@ -12,7 +12,7 @@ ACIA_MEM
|
||||
+6 ACIA)
|
||||
)
|
||||
|
||||
(xentry) ~ACIA
|
||||
(entry) ~ACIA
|
||||
AF PUSHqq,
|
||||
HL PUSHqq,
|
||||
DE PUSHqq,
|
||||
|
@ -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,6 +1,7 @@
|
||||
262 LOAD ( xcomp )
|
||||
: CODE XCODE ;
|
||||
: IMMEDIATE XIMM ;
|
||||
: (entry) (xentry) ;
|
||||
: : [ ' X: , ] ;
|
||||
|
||||
CURRENT @ XCURRENT !
|
||||
|
@ -1,3 +0,0 @@
|
||||
(xentry) _
|
||||
H@ 256 /MOD 2 PC! 2 PC!
|
||||
|
@ -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 \
|
||||
|
Loading…
Reference in New Issue
Block a user