From 9493061b232439c07933e7a305a6fa477e8094fa Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sun, 12 Jul 2020 13:39:57 +0200
Subject: [PATCH] Move remaining essential steps from vf-main.fth to
 vf-sys-indep and vf-finalize

---
 6502/C64/src/vf-finalize.fth  |  6 ++++++
 6502/C64/src/vf-main.fth      | 10 ----------
 6502/C64/src/vf-sys-indep.fth | 10 ++++++++++
 3 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/6502/C64/src/vf-finalize.fth b/6502/C64/src/vf-finalize.fth
index 907bf11..c4c128e 100644
--- a/6502/C64/src/vf-finalize.fth
+++ b/6502/C64/src/vf-finalize.fth
@@ -74,3 +74,9 @@ here dp !
 Host  Tudp @          Target  udp !
 Host  Tvoc-link @     Target  voc-link !
 Host  move-threads
+
+\ Final part of loadscreen
+
+Assembler nonrelocate
+
+.unresolved
diff --git a/6502/C64/src/vf-main.fth b/6502/C64/src/vf-main.fth
index 047dc08..c2b2840 100644
--- a/6502/C64/src/vf-main.fth
+++ b/6502/C64/src/vf-main.fth
@@ -2,12 +2,6 @@
 
 include vf-pr-target.fth
 
-Onlyforth
-
-(C64 $801 ) (C16 $1001 ) dup displace !
-
-Target definitions   here!
-
 include vf-sys-indep.fth
 
 $7E $93 thru          \ CBM-Interface
@@ -15,10 +9,6 @@ $7E $93 thru          \ CBM-Interface
 
 include vf-finalize.fth
 
-Assembler nonrelocate
-
-.unresolved
-
 ' .blk is .status
 
 include vf-pr-target.fth
diff --git a/6502/C64/src/vf-sys-indep.fth b/6502/C64/src/vf-sys-indep.fth
index 3b8d611..2bb6293 100644
--- a/6502/C64/src/vf-sys-indep.fth
+++ b/6502/C64/src/vf-sys-indep.fth
@@ -1,3 +1,13 @@
+\ The main and mostly system independent part of CBM VolkForth
+
+\ Initial part of load screen
+
+Onlyforth
+
+(C64 $801 ) (C16 $1001 ) dup displace !
+
+Target definitions   here!
+
 
 \ *** Block No. 16, Hexblock 10
 10 fthpage