6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-22 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Extract vf-end.fth from source.fth and use it building v4th.com

Browse Source
This commit is contained in:
Philip Zembrod 2024-10-09 04:02:02 +02:00
parent a88ecc8cef
commit da911706ce
3 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
8080/CPM/Makefile
View File

@ -81,7 +81,7 @@ inctest.log: \
$(cpmfilesdir)/v4th.com: \
$(patsubst %, $(cpmfilesdir)/%, volks4th.com \
include.fb log2file.fb target.fb source.fb \
v4th.fth vf-core.fth vf-io.fth vf-bufs.fth vf-sys.fth) \
v4th.fth vf-core.fth vf-io.fth vf-bufs.fth vf-sys.fth vf-end.fth) \
Makefile | emu
rm -f $(runcpmdir)/A/0/V4TH.COM $@
./emulator/run-in-runcpm.sh \

3
8080/CPM/src/v4th.fth
View File

@ -8,7 +8,8 @@ Target definitions $100 here!
include vf-bufs.fth
include vf-sys.fth
use source.fb
$74 $75 thru \ Standard 8080-System
$76 load \ Standard 8080-System
include vf-end.fth
cr .( unresolved: ) .unresolved ( ' .blk is .status )

36
8080/CPM/src/vf-end.fth Normal file
View File

@ -0,0 +1,36 @@
\ *** Block No. 116, Hexblock 74
\ Rest of Standard-System 04Oct87 07Oct87
\ 2 +load \ Operating System
Host ' Transient 8 + @ Transient Forth Context @ 6 + !
Target Forth also definitions
Vocabulary Assembler Assembler definitions
Transient Assembler
>Next Constant >Next
hpush Constant hpush
dpush Constant dpush
Target Forth also definitions
: forth-83 ; \ last word in Dictionary
\ *** Block No. 117, Hexblock 75
\ System patchup 04Oct87
$EF00 r0 !
$EB00 s0 !
s0 @ 6 + origin 2+ ! \ link Maintask to itself
\ s0 und r0 werden beim Booten neu an die Speichergroesse
\ angepasst. Ebenso der Multi-Tasker-Link auf die Maintask
here dp !
Host Tudp @ Target udp !
Host Tvoc-link @ Target voc-link !
Host move-threads