emul: extract capture mark from icore into xstop.fs

This commit is contained in:
Virgil Dupras 2020-04-10 14:16:45 -04:00
parent f62376bd0a
commit a6efb65010
3 changed files with 13 additions and 7 deletions

View File

@ -1,6 +1,14 @@
TARGETS = runbin/runbin forth/forth
BIN2C = ../tools/bin2c
# Those Forth source files are in a particular order
BOOTSRCS = ./forth/conf.fs \
../forth/xcomp.fs \
./forth/xcomp.fs \
../forth/boot.fs \
../forth/z80c.fs \
../forth/icore.fs \
./forth/xstop.fs
FORTHSRCS = core.fs cmp.fs print.fs str.fs parse.fs readln.fs fmt.fs z80a.fs
FORTHSRC_PATHS = ${FORTHSRCS:%=../forth/%} forth/run.fs
OBJS = emul.o libz80/libz80.o
@ -60,11 +68,9 @@ emul.o: emul.c
$(CC) -c -o emul.o emul.c
forth/z80c.bin: forth/stage2
cat ./forth/conf.fs ../forth/xcomp.fs ./forth/xcomp.fs ../forth/boot.fs ../forth/z80c.fs ../forth/icore.fs | ./forth/stage2 | tee $@ > /dev/null
.PHONY: updatebootstrap
updatebootstrap: forth/z80c.bin
updatebootstrap: forth/stage2
cat $(BOOTSRCS) | ./forth/stage2 > ./forth/z80c.bin
.PHONY: clean
clean:

3
emul/forth/xstop.fs Normal file
View File

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

View File

@ -231,6 +231,3 @@
ELSE (parse*) @ EXECUTE LITN THEN
AGAIN
;
(xentry) _
H@ 256 /MOD 2 PC! 2 PC!