6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-20 02:28:58 +00:00
Code Issues Projects Releases Wiki Activity

Use the real interpret in include, and overwrite the original include

Browse Source
This commit is contained in:
Philip Zembrod 2023-05-07 12:54:14 +02:00
parent 5e6c400124
commit 164f12be49
4 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
8080/CPM/Makefile
View File

@ -27,7 +27,7 @@ inctest.log: $(patsubst %, $(cpmfilesdir)/%, \
| emu | emu
echo "volks4th" > $(runcpmdir)/input.script echo "volks4th" > $(runcpmdir)/input.script
echo "include include.fb" >> $(runcpmdir)/input.script echo "include include.fb" >> $(runcpmdir)/input.script
echo "xinclude inctest.fth" >> $(runcpmdir)/input.script echo "include inctest.fth" >> $(runcpmdir)/input.script
echo "bye" >> $(runcpmdir)/input.script echo "bye" >> $(runcpmdir)/input.script
echo "exit" >> $(runcpmdir)/input.script echo "exit" >> $(runcpmdir)/input.script
./emulator/run-in-runcpm.sh volks4th ./emulator/run-in-runcpm.sh volks4th

2
8080/CPM/include.fb
View File

File diff suppressed because one or more lines are too long

12
8080/CPM/include.fth
View File

@ -69,7 +69,7 @@
incfile @ drive iread-seq IF ctrl-z exit THEN incfile @ drive iread-seq IF ctrl-z exit THEN
0 rec-offset c! THEN 0 rec-offset c! THEN
rec-offset c@ dup 1+ rec-offset c! dmabuf + c@ rec-offset c@ dup 1+ rec-offset c! dmabuf + c@
; \\ ; \\
incfile @ f.handle @ 0= IF incfile @ f.handle @ 0= IF
incpos 2@ incfile @ fseek THEN incpos 2@ incfile @ fseek THEN
incfile @ fgetc incfile @ fgetc
@ -116,13 +116,13 @@
\ *** Block No. 6, Hexblock 6 \ *** Block No. 6, Hexblock 6
\ interpret-via-tib include phz 07mai23 \ interpret-via-tib include phz 07mai23
: xinterpret tib #tib @ type cr ;
: interpret-via-tib : interpret-via-tib
BEGIN freadline >r .status >in off xinterpret BEGIN freadline >r .status >in off interpret r> UNTIL ;
r> UNTIL ;
: pushfile r> isfile push fromfile push >r ; restrict : pushfile r> isfile push fromfile push >r ; restrict
: xinclude ( -- ) : include ( -- )
pushfile use cr file? cr pushfile use cr file?
probe-for-fb IF 1 load exit THEN probe-for-fb IF 1 load exit THEN
incfile push isfile@ incfile ! b/rec rec-offset c! incfile push isfile@ incfile ! b/rec rec-offset c!
incpos push incpos off incpos 2+ dup push off incpos push incpos off incpos 2+ dup push off

6
8080/CPM/inctest.fth
View File

@ -1,5 +1 @@
0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcde .( included from stream file: "1 2 + 4 * .": ) 1 2 + 4 * . cr
@123456789ABCDEF0123456789abcdef0123456789abcdef0123456789abcde
A123456789abcdef0123456789abcdef0123456789abcdef0123456789abcde
B123456789ABCDEF0123456789abcdef0123456789abcdef0123456789abcde
abc