From da911706ceac706fca4e0dbfa8947badfd8b7c8f Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Wed, 9 Oct 2024 04:02:02 +0200
Subject: [PATCH] Extract vf-end.fth from source.fth and use it building
 v4th.com

---
 8080/CPM/Makefile       |  2 +-
 8080/CPM/src/v4th.fth   |  3 ++-
 8080/CPM/src/vf-end.fth | 36 ++++++++++++++++++++++++++++++++++++
 3 files changed, 39 insertions(+), 2 deletions(-)
 create mode 100644 8080/CPM/src/vf-end.fth

diff --git a/8080/CPM/Makefile b/8080/CPM/Makefile
index fafbc73..b6961f3 100644
--- a/8080/CPM/Makefile
+++ b/8080/CPM/Makefile
@@ -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 \
diff --git a/8080/CPM/src/v4th.fth b/8080/CPM/src/v4th.fth
index 6f89d79..1fead85 100644
--- a/8080/CPM/src/v4th.fth
+++ b/8080/CPM/src/v4th.fth
@@ -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 )
 
diff --git a/8080/CPM/src/vf-end.fth b/8080/CPM/src/vf-end.fth
new file mode 100644
index 0000000..4e7bfa6
--- /dev/null
+++ b/8080/CPM/src/vf-end.fth
@@ -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
+