Update cpmfiles/

8080/CPM/cpmfiles/test-blk.fs

@@ -0,0 +1,26 @@
+
+include log2file.fb  \ so that include with block file gets tested
+' noop Is .status
+logopen
+
+include ans-shim.fs
+: \vf  [compile] \ ; immediate
+
+include prelim.fs
+include tester.fs
+\ 1 verbose !
+include core.fs
+include coreplus.fs
+
+include util.fs
+include errorrep.fs
+
+include coreext.fs
+include doubltst.fs
+
+include block.fs
+
+REPORT-ERRORS
+
+logclose
+

8080/CPM/cpmfiles/test-blk.fth

@@ -1,26 +0,0 @@
-
-include log2file.fb  \ so that include with block file gets tested
-' noop Is .status
-logopen
-
-include ans-shim.fth
-: \vf  [compile] \ ; immediate
-
-include prelim.fth
-include tester.fth
-\ 1 verbose !
-include core.fr
-include coreplus.fth
-
-include util.fth
-include errorrep.fth
-
-include coreext.fth
-include doubltst.fth
-
-include block.fth
-
-REPORT-ERRORS
-
-logclose
-

8080/CPM/cpmfiles/test-krn.fs

@@ -0,0 +1,22 @@
+
+include log2file.fb
+logopen
+
+include ans-shim.fs
+: \vf  [compile] \ ; immediate
+
+include prelim.fs
+include tester.fs
+
+\ 1 verbose !
+include core.fs
+include coreplus.fs
+
+include util.fs
+include errorrep.fs
+
+include coreext.fs
+
+REPORT-ERRORS
+
+logclose

8080/CPM/cpmfiles/test-krn.fth

@@ -1,22 +0,0 @@
-
-include log2file.fb
-logopen
-
-include ans-shim.fth
-: \vf  [compile] \ ; immediate
-
-include prelim.fth
-include tester.fth
-
-\ 1 verbose !
-include core.fr
-include coreplus.fth
-
-include util.fth
-include errorrep.fth
-
-include coreext.fth
-
-REPORT-ERRORS
-
-logclose

8080/CPM/cpmfiles/test-min.fs

@@ -0,0 +1,14 @@
+
+include logfile.fs
+logopen
+
+include ans-shim.fs
+: \vf  [compile] \ ; immediate
+
+include prelim.fs
+include tester.fs
+
+\ 1 verbose !
+include core.fs
+
+logclose

8080/CPM/cpmfiles/test-min.fth

@@ -1,14 +0,0 @@
-
-include logfile.fth
-logopen
-
-include ans-shim.fth
-: \vf  [compile] \ ; immediate
-
-include prelim.fth
-include tester.fth
-
-\ 1 verbose !
-include core.fr
-
-logclose

8080/CPM/cpmfiles/test-std.fs

@@ -3,26 +3,26 @@
 \     blk @ ?dup IF  ."  Blk " u. ?cr  exit THEN
 \     incfile @ IF tib #tib @ cr type THEN ;
 
-include logfile.fth
+include logfile.fs
 logopen
 
-include ans-shim.fth
+include ans-shim.fs
 : \vf  [compile] \ ; immediate
 
-include prelim.fth
-include tester.fth
+include prelim.fs
+include tester.fs
 \ 1 verbose !
-include core.fr
-include coreplus.fth
+include core.fs
+include coreplus.fs
 
-include util.fth
-include errorrep.fth
+include util.fs
+include errorrep.fs
 
-include coreext.fth
+include coreext.fs
 
 \ ' .blk|tib Is .status
 
-include doubltst.fth
+include doubltst.fs
 
 REPORT-ERRORS
 

8080/CPM/cpmfiles/v4th.fs

@@ -12,12 +12,12 @@ Onlyforth
     $8000 displace !
 Target definitions   $100 here!
 
-  include vf-core.fth
-  include vf-io.fth
-  include vf-sys.fth
-  include vf-bdos.fth
-  include vf-file.fth
-  include vf-end.fth
+  include vf-core.fs
+  include vf-io.fs
+  include vf-sys.fs
+  include vf-bdos.fs
+  include vf-file.fs
+  include vf-end.fs
 
 cr .( unresolved: )  .unresolved   ( ' .blk is .status )
 

8080/CPM/cpmfiles/v4thblk.fs

@@ -13,13 +13,13 @@ Onlyforth
 
 Target definitions   $100 here!
 
-  include vf-core.fth
-  include vf-io.fth
-  include vf-sys.fth
-  include vf-bdos.fth
-  include vf-file.fth
-  include vf-bufs.fth
-  include vf-end.fth
+  include vf-core.fs
+  include vf-io.fs
+  include vf-sys.fs
+  include vf-bdos.fs
+  include vf-file.fs
+  include vf-bufs.fs
+  include vf-end.fs
 
 cr .( unresolved: )  .unresolved   ( ' .blk is .status )