From 24b745e6a4bd2241096bd13446a1cc779155790a Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Sun, 10 Nov 2024 13:15:24 +0100
Subject: [PATCH] Update cpmfiles

---
 8080/CPM/cpmfiles/coreacpt.fth |  35 ----
 8080/CPM/cpmfiles/incltest.fth |  10 -
 8080/CPM/cpmfiles/logapp.fth   |  78 --------
 8080/CPM/cpmfiles/logfile.fth  |  50 +++++
 8080/CPM/cpmfiles/logprep.fth  |  14 --
 8080/CPM/cpmfiles/logtest.fth  |  38 ----
 8080/CPM/cpmfiles/sblkint.fth  |  86 +++++++++
 8080/CPM/cpmfiles/sfileint.fth | 334 +++++++++++++++++++++++++++++++++
 8080/CPM/cpmfiles/tc-base.com  | Bin 21248 -> 20224 bytes
 8080/CPM/cpmfiles/test-blk.fth |   2 +-
 8080/CPM/cpmfiles/test-krn.fth |  22 +++
 8080/CPM/cpmfiles/test-min.fth |   2 +-
 8080/CPM/cpmfiles/test-std.fth |   2 +-
 8080/CPM/cpmfiles/testprep.fth |  38 ----
 8080/CPM/cpmfiles/v4th.com     | Bin 13440 -> 13184 bytes
 8080/CPM/cpmfiles/v4th.fth     |   4 +-
 8080/CPM/cpmfiles/v4thblk.com  | Bin 0 -> 14464 bytes
 8080/CPM/cpmfiles/v4thblk.fth  |  16 ++
 8080/CPM/cpmfiles/vf-bdos.fth  |  31 +--
 8080/CPM/cpmfiles/vf-bufs.fth  |  48 +++--
 8080/CPM/cpmfiles/vf-core.fth  |  11 +-
 8080/CPM/cpmfiles/vf-file.fth  | 149 +++------------
 8080/CPM/cpmfiles/vf-io.fth    |  23 ++-
 8080/CPM/cpmfiles/vf-sys.fth   |   5 +-
 24 files changed, 610 insertions(+), 388 deletions(-)
 delete mode 100644 8080/CPM/cpmfiles/coreacpt.fth
 delete mode 100644 8080/CPM/cpmfiles/incltest.fth
 delete mode 100644 8080/CPM/cpmfiles/logapp.fth
 create mode 100644 8080/CPM/cpmfiles/logfile.fth
 delete mode 100644 8080/CPM/cpmfiles/logprep.fth
 delete mode 100644 8080/CPM/cpmfiles/logtest.fth
 create mode 100644 8080/CPM/cpmfiles/sblkint.fth
 create mode 100644 8080/CPM/cpmfiles/sfileint.fth
 create mode 100644 8080/CPM/cpmfiles/test-krn.fth
 delete mode 100644 8080/CPM/cpmfiles/testprep.fth
 create mode 100644 8080/CPM/cpmfiles/v4thblk.com
 create mode 100644 8080/CPM/cpmfiles/v4thblk.fth

diff --git a/8080/CPM/cpmfiles/coreacpt.fth b/8080/CPM/cpmfiles/coreacpt.fth
deleted file mode 100644
index d629533..0000000
--- a/8080/CPM/cpmfiles/coreacpt.fth
+++ /dev/null
@@ -1,35 +0,0 @@
-\ From: John Hayes S1I
-\ Subject: core.fr
-\ Date: Mon, 27 Nov 95 13:10
-
-\ (C) 1995 JOHNS HOPKINS UNIVERSITY / APPLIED PHYSICS LABORATORY
-\ MAY BE DISTRIBUTED FREELY AS LONG AS THIS COPYRIGHT NOTICE REMAINS.
-\ VERSION 1.2
-\ THIS PROGRAM TESTS THE CORE WORDS OF AN ANS FORTH SYSTEM.
-\ THE PROGRAM ASSUMES A TWO'S COMPLEMENT IMPLEMENTATION WHERE
-\ THE RANGE OF SIGNED NUMBERS IS -2^(N-1) ... 2^(N-1)-1 AND
-\ THE RANGE OF UNSIGNED NUMBERS IS 0 ... 2^(N)-1.
-\ I HAVEN'T FIGURED OUT HOW TO TEST KEY, QUIT, ABORT, OR ABORT"...
-\ I ALSO HAVEN'T THOUGHT OF A WAY TO TEST ENVIRONMENT?...
-
-CR
-TESTING CORE WORDS
-HEX
-
-\ ------------------------------------------------------------------------
-TESTING INPUT: ACCEPT
-
-CREATE ABUF 50 CHARS ALLOT
-
-: ACCEPT-TEST
-   CR ." PLEASE TYPE UP TO 80 CHARACTERS:" CR
-   ABUF 50 ACCEPT
-   CR ." RECEIVED: " [CHAR] " EMIT
-   ABUF SWAP TYPE [CHAR] " EMIT CR
-;
-
-T{ ACCEPT-TEST -> }T
-
-CR .( End of Core input word set tests) CR
-
-
diff --git a/8080/CPM/cpmfiles/incltest.fth b/8080/CPM/cpmfiles/incltest.fth
deleted file mode 100644
index 02da693..0000000
--- a/8080/CPM/cpmfiles/incltest.fth
+++ /dev/null
@@ -1,10 +0,0 @@
-
-\needs (type include extend.fb include multi.vid include dos.fb
-include log2file.fb
-logopen output.log
-
-.( hello, world) cr
-: test-hello ." hello, world, from test-hello" cr ;
-test-hello
-
-logclose
diff --git a/8080/CPM/cpmfiles/logapp.fth b/8080/CPM/cpmfiles/logapp.fth
deleted file mode 100644
index 39cdc5b..0000000
--- a/8080/CPM/cpmfiles/logapp.fth
+++ /dev/null
@@ -1,78 +0,0 @@
-
-
-\ Experimental code and test for text logs that can be closed
-\ and reopened for appending.
-\ Already integrated into log2file.fb/.fth
-\ Yet to be done: A more permanent test for m+!
-\ and an extension of logtest.fb/.fth to also cover the reopen feature.
-
-
-\  Code +!     ( 16b addr -- )
-\     D W mov   A pop   A W ) add   D pop   Next   end-code
-
-  Code m+!     ( 16b addr -- )
-     D W mov   W inc  W inc  A pop   A W ) add
-     CS ?[  W dec  W dec  W ) inc ]?
-     D pop   Next   end-code
-
-
-
-
-
-\ *** Block No. 2, Hexblock 2
-
-\ log-type log-emit log-cr alsologtofile             phz 04jan22
-  context @ dos also context !
-\ vocabulary log dos also log definitions
-  file logfile
-  variable logfcb
-  variable logpos 0 ,
-
-  : log-type
-     dup logpos m+!
-     2dup (type  ds@ -rot logfcb @ lfputs ;
-
-  : log-emit
-     1 logpos m+!
-     dup (emit  logfcb @ fputc ;
-
-  : log-cr
-     2 logpos m+!
-     (cr  #cr logfcb @ fputc  #lf logfcb @ fputc ;
-
-Output: alsologtofile
- log-emit log-cr log-type (del (page (at (at? ;
-
-
-
-\ *** Block No. 3, Hexblock 3
-
-\ logopen logclose                                   phz 11jan22
-
-  : logopen ( -- )
-     isfile push  logpos dup 2+ off off
-     logfile make  isfile@ dup freset logfcb !
-     alsologtofile ;
-
-  : logclose ( -- )  display  logfcb @ fclose ;
-
-  : logreopen ( -- )
-     logfcb @ freset  logpos 2@  logfcb @ fseek
-     alsologtofile ;
-
-  logopen output.log
-  .( logtest started) cr
-  logpos @ cr u. cr
-  .( logtest interrupted) cr
-  logclose
-  logreopen
-  create 2v 4 allot
-  hex
-  12345. 2v 2!
-  1 2v m+!
-  2v 2@ d. cr
-  1ffff. 2v 2!
-  1 2v m+!
-  2v 2@ d. cr
-  .( logtest done) cr
-  logclose
diff --git a/8080/CPM/cpmfiles/logfile.fth b/8080/CPM/cpmfiles/logfile.fth
new file mode 100644
index 0000000..c0262bc
--- /dev/null
+++ b/8080/CPM/cpmfiles/logfile.fth
@@ -0,0 +1,50 @@
+
+\ *** Block No. 2, Hexblock 2
+
+\ logfile                                            phz 20aug23
+
+  Dos also Forth definitions
+
+  $18 constant fcb\nam
+  create logfile  ," LOGFILE TXT"  fcb\nam allot  1 logfile c!
+  create logdma  b/rec allot
+  variable logoffset  0 logoffset !
+
+  : logflush  logdma dma!  logfile $15 bdos  $80 dma! ;
+
+  : logc!  ( c -- )
+    logoffset @ dup >r  logdma +  c!  r> 1+
+    dup logoffset !  b/rec =
+      IF logflush  0 logoffset ! THEN ;
+
+
+\ *** Block No. 3, Hexblock 3
+
+\ log-emit log-type log-cr alsologtofile            pphz 03sep23
+
+  : log-emit  ( char -- )
+      dup (emit  logc! ;
+
+  : log-type  ( addr count -- )
+      0 ?DO count log-emit LOOP drop ;
+
+  : log-cr  ( -- )
+      (cr  #cr logc!  #lf logc! ;
+
+Output: alsologtofile
+  log-emit log-cr log-type (del noop 2drop (at? ;
+
+
+\ *** Block No. 4, Hexblock 4
+
+\ logopen                                            phz 20aug23
+
+  : logopen  ( -- )
+      logfile filenamelen + 1+ fcb\nam erase
+      0 logoffset !
+      logfile killfile
+      logfile createfile
+      alsologtofile ;
+
+  : logclose  ( -- )
+      cr display  &26 logc!  logflush  logfile closefile ;
diff --git a/8080/CPM/cpmfiles/logprep.fth b/8080/CPM/cpmfiles/logprep.fth
deleted file mode 100644
index 4e4e3d6..0000000
--- a/8080/CPM/cpmfiles/logprep.fth
+++ /dev/null
@@ -1,14 +0,0 @@
-
-  include extend2.fth
-\needs drv  : drv 2 ;  \ showing C: if drv isn't defined
-  include multivid.fth
-
-\ : .blk|tib
-\     blk @ ?dup IF  ."  Blk " u. ?cr  exit THEN
-\     incfile @ IF tib #tib @ cr type THEN ;
-
-\ ' .blk|tib Is .status
-
-\  include dos2.fth
-  include dos3.fth
-  include log2file.fth
diff --git a/8080/CPM/cpmfiles/logtest.fth b/8080/CPM/cpmfiles/logtest.fth
deleted file mode 100644
index 57a43d0..0000000
--- a/8080/CPM/cpmfiles/logtest.fth
+++ /dev/null
@@ -1,38 +0,0 @@
-
-\ *** Block No. 0, Hexblock 0
-
-\ logtest.fb                                         phz 04jan22
-
-  basic tests for log2file.fb
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 1, Hexblock 1
-
-\ loadscreen                                         phz 22jan22
-
-  include log2file.fb
-
-  logopen output.log
-  .( logtest done) cr
-  logclose
-
-
-
-
-
-
-
-
-
diff --git a/8080/CPM/cpmfiles/sblkint.fth b/8080/CPM/cpmfiles/sblkint.fth
new file mode 100644
index 0000000..986e7fc
--- /dev/null
+++ b/8080/CPM/cpmfiles/sblkint.fth
@@ -0,0 +1,86 @@
+
+Dos definitions
+
+: file-r/w  ( buffer block fcb f  -- f )
+    over 0= Abort" no Direct Disk IO supported! "
+    >r  dup  (open   2dup in-range r> (r/w ;
+
+\ backup was made visible in vf-blk.fth so no need to peek its address
+\ ' (save-buffers >body $0C + @ | Alias backup
+
+| : filebuffer?  ( fcb -- fcb bufaddr/flag )
+   prev  BEGIN @ dup WHILE  2dup 2+ @ = UNTIL ;
+
+| : (flushfile  ( fcb -- )  \ flush file buffers
+     BEGIN  filebuffer?  ?dup  WHILE
+            dup backup  emptybuf  REPEAT  drop ;
+
+' (flushfile is flushfile
+
+Forth definitions
+
+: list  ( n -- )   3 spaces  file? list ;
+
+\ *** Block No. 15, Hexblock f
+
+\ words for viewing                                   UH 10Oct87
+
+Forth definitions
+
+| $200 Constant viewoffset \ max. %512 kB files
+
+: (makeview  ( -- n )  \ calc. view filed for a name
+   blk @ dup  0= ?exit
+   loadfile @ ?dup IF fileno @ viewoffset * + THEN ;
+
+: (view      ( blk -- blk' ) \ select file and leave block
+   dup 0=exit
+   viewoffset u/mod  file-link
+   BEGIN @ dup WHILE 2dup fileno @ = UNTIL
+   !files drop ;        \ not found: direct access
+
+
+\ *** Block No. 17, Hexblock 11
+
+\ print a list of all buffers                         UH 20Oct86
+
+: .buffers
+   prev BEGIN  @ ?dup WHILE  stop? abort" stopped"
+           cr dup u. dup 2+ @ dup 1+
+           IF ."    Block: " over 4+ @ 5 .r
+              ."    File : " [ Dos ] .file
+              dup 6 + @ 0< IF ."     updated" THEN
+           ELSE ." Buffer empty" drop THEN  REPEAT ;
+
+
+
+
+
+
+
+
+: loadfrom     ( n -- )
+               isfile push  fromfile push  use load   close ;
+
+| : addblock  ( n -- )  \ add block n to file
+     dup buffer under   b/blk  bl fill
+     isfile@   rec/blk  over filesize +!  false file-r/w
+     IF close Abort" disk full!" THEN ;
+
+: more ( n -- )   open >fileend
+   capacity swap bounds  ?DO I addblock LOOP close
+   open close ;
+
+\ *** Block No. 22, Hexblock 16
+
+\ Status                                              UH 10OCt87
+
+
+: .blk ( -- )   blk @ ?dup 0=exit
+   dup 1 = IF cr file? THEN base push hex ."  Blk " . ?cr ;
+
+' .blk Is .status
+
+' (makeview     Is makeview
+' file-r/w      Is r/w
+
diff --git a/8080/CPM/cpmfiles/sfileint.fth b/8080/CPM/cpmfiles/sfileint.fth
new file mode 100644
index 0000000..ef60c0e
--- /dev/null
+++ b/8080/CPM/cpmfiles/sfileint.fth
@@ -0,0 +1,334 @@
+
+\ *** Block No. 0, Hexblock 0
+
+\ CP/M 2.2 File-Interface (3.80a)                     UH 05Oct87
+
+\ Dieses File enthaelt das File-Interface von volksFORTH zu CP/M.
+\ Damit ist Zugriff auf normale CP/M-Files moeglich.
+\ Wenn ein File mit USE benutzt wird, beziehen sich alle Worte,
+\ die mit dem Massenspeicher arbeiten, auf dieses File.
+
+\ Benutzung:
+\   USE <name>       \ benutze ein schon existierendes File
+\   FILE <name>      \ erzeuge ein Forthfile mit dem Namen <name>.
+\   MAKE <name>      \ Erzeuge ein File mit <name> und ordne
+\                   \ es dem aktuellen Forthfile zu.
+\   MAKEFILE <name>  \ Erzeuge ein File mit CP/M und FORTH-Namen
+\                      <name>.
+\   INCLUDE <name>   \ Lade File mit Forthnamen <name> ab Screen 1
+\   DOS RESET        \ zum Wechsel von Disketten. (Oh! CP/M)
+
+\ *** Block No. 1, Hexblock 1
+
+\ CP/M 2.2 File-Interface  load-Screen                UH 18Feb88
+OnlyForth
+
+\       2 load \ view numbers for this file
+\   3   4 thru \ DOS   File Functions
+\   5 $11 thru \ Forth File Functions
+\ $12 $16 thru \ User Interface
+
+\ File source.fb      \  Define already existing Files
+\ File fileint.fb     File startup.fbr
+
+\ ' (makeview     Is makeview
+\ ' remove-files  Is custom-remove
+\ ' file-r/w      Is r/w
+\ ' noop          Is drvinit
+ \      include startup.fb \ load Standard System
+
+\ *** Block No. 3, Hexblock 3
+
+\ File Control Blocks                                 UH 18Feb88
+Dos definitions also
+| : Fcbyte ( n len -- len' )  Create over c, + does> c@ + ;
+&11 Constant filenamelen
+0              2 | Fcbyte nextfile  immediate
+               1   Fcbyte drive    ' drive | Alias >dosfcb
+ filenamelen 3 -   Fcbyte filename
+               3   Fcbyte extension
+           &21 + \ ex, s1, s2, rc, d0, ... dn, cr
+               2   Fcbyte record    \  r0, r1
+              1+ \ r2
+               2   Fcbyte opened
+               2   Fcbyte fileno
+               2   Fcbyte filesize  \ in 128-Byte-Records
+               4   Fcbyte position
+Constant b/fcb
+
+\ *** Block No. 4, Hexblock 4
+
+\ dos primitives                                      UH 10Oct87
+
+' 2-  | Alias body>             ' 2- | Alias dosfcb>
+
+: drive!     ( drv    --      )     $0E bdos ;
+: search0    ( dosfcb -- dir  )     $11 bdosa ;
+: searchnext ( dosfcb -- dir  )     $12 bdosa ;
+: createfile ( dosfcb -- f    )     $16 bdosa dos-error? ;
+: size       ( dos    -- size ) dup $23 bdos dosfcb> record @ ;
+: drive@     (        -- drv  )   0 $19 bdosa ;
+: killfile   ( dosfcb --      )     $13 bdos ;
+
+
+
+\ *** Block No. 5, Hexblock 5
+
+\ File sizes                                          UH 05Oct87
+
+: (capacity  ( fcb -- n )  \ filecapacity in blocks
+    filesize @  rec/blk  u/mod swap 0= ?exit 1+ ;
+
+: in-range ( block fcb -- )
+    (capacity u< not Abort" beyond capacity!" ;
+
+Forth definitions
+
+: capacity ( -- n )    isfile@  (capacity ;
+
+Dos definitions
+
+\ *** Block No. 6, Hexblock 6
+
+\ (open                                               UH 18Feb88
+
+: (open  ( fcb -- )
+    dup opened @ IF drop exit THEN   dup position  0. rot 2!
+    dup >dosfcb openfile  Abort" not found!"  dup opened on
+    dup >dosfcb size  swap filesize ! ;
+
+: (make  ( fcb -- )
+   dup >dosfcb killfile
+   dup >dosfcb createfile Abort" directory full!"
+   dup position 0. rot 2!
+   dup filesize off   opened on  offset off ;
+
+\ *** Block No. 7, Hexblock 7
+
+\ Print Filenames                                     UH 10Oct87
+
+: .file ( fcb -- ) 0 case? IF ." DIRECT"  exit THEN
+         fcb dosfcb> case? IF ." DEFAULT" exit THEN
+         body> >name .name ;
+
+: .drive   ( fcb -- ) drive c@ ?dup 0=exit
+     [ Ascii A 1- ] Literal + emit  Ascii : emit ;
+
+: .dosfile ( fcb -- )  dup filename  8 -trailing type
+    Ascii . emit           extension 3           type ;
+
+
+
+
+
+
+\ *** Block No. 8, Hexblock 8
+
+\ Print Filenames                                     UH 10Oct87
+
+: tab ( -- ) col &59 > IF cr exit THEN
+        &20  col &20 mod  -  0 max  spaces ;
+
+: .fcb  ( fcb -- )  dup fileno @  3 u.r tab
+     dup .file tab dup .drive dup .dosfile
+     tab dup opened @ IF ." opened" ELSE ." closed" THEN
+     3 spaces  base push  decimal   (capacity  3 u.r  ."  kB" ;
+
+
+
+
+
+
+
+
+\ *** Block No. 9, Hexblock 9
+
+\ Filenames                                           UH 05Oct87
+
+: !name ( addr len fcb -- )
+     dup >r filename filenamelen bl fill
+     over 1+ c@  Ascii : =
+     IF over c@ [ Ascii A 1- ] Literal - >r 2 /string r>
+     ELSE 0 THEN  r@ drive c! r> dup filename 2swap
+     filenamelen 1+ min bounds
+     ?DO  I c@ Ascii . =
+         IF drop dup  extension ELSE  I c@ over c! 1+ THEN
+     LOOP 2drop ;
+
+: !fcb  ( fcb -- )  dup opened off   name count rot !name ;
+
+
+
+
+\ *** Block No. 10, Hexblock a
+
+\ Print Directory                                     UH 18Nov87
+
+| Create dirbuf  b/rec allot    dirbuf b/rec erase
+| Create fcb0    b/fcb allot    fcb0   b/fcb erase
+
+| : wildchard?  ( f c -- f' )  Ascii * = IF drop Ascii ? THEN ;
+| : (expand ( addr len -- )  false -rot bounds
+     ?DO  I c@  wildchard? dup ?dup IF I c! THEN  LOOP drop ;
+| : expand ( fcb -- )  \ expand * to ???
+     dup filename 8 (expand   extension 3 (expand ;
+
+: (dir  ( addr len -- )
+    fcb0 !name fcb0 expand  dirbuf dma!  fcb0 >dosfcb search0
+    BEGIN dup dos-error? not
+    WHILE  $20 * dirbuf + dosfcb> tab .dosfile
+           fcb0 >dosfcb searchnext  stop? UNTIL  drop ;
+
+\ *** Block No. 11, Hexblock b
+
+\ File List                                           UH 10Oct87
+
+User file-link   file-link off
+
+| : #file ( -- n )   file-link @ dup IF fileno c@ THEN 1+ ;
+
+
+Forth definitions
+
+: forthfiles ( -- )
+   file-link @
+   BEGIN dup WHILE  cr  dup .fcb  @ stop? UNTIL drop ;
+
+Dos definitions
+
+
+
+\ *** Block No. 12, Hexblock c
+
+\ Close a file                                        UH 10Oct87
+
+Defer flushfile  ' noop is flushfile
+
+: (close  ( fcb -- )  \ close file in fcb
+   dup flushfile
+   dup opened  dup @ 0= IF 2drop exit THEN  off
+   >dosfcb closefile Abort" not found!" ;
+
+
+\ *** Block No. 13, Hexblock d
+
+\ Create fcbs                                         UH 10Oct87
+
+: !files ( fcb -- )  dup  isfile ! fromfile ! ;
+
+' r@ | Alias newfcb
+
+Forth definitions
+
+: File  ( -- )
+   Create here >r   b/fcb allot  newfcb b/fcb erase
+          last @ count $1F and  newfcb !name
+          #file   newfcb fileno !
+          file-link @  newfcb nextfile !   r> file-link !
+   Does> !files ;
+
+: direct     0 !files ;
+
+\ *** Block No. 14, Hexblock e
+
+\ flush buffers & misc.                  UH 10Oct87   UH 28Nov87
+Dos definitions
+
+: save-files  ( -- )  file-link BEGIN  @ ?dup  WHILE
+     dup opened @ IF dup >dosfcb closefile drop THEN  REPEAT ;
+
+' save-files Is save-dos-buffers
+
+\ : close-files  ( -- )  file-link
+\     BEGIN  @ ?dup  WHILE  dup (close  REPEAT ;
+
+Forth definitions
+
+: file?   isfile@ .file ;  \ print current file
+
+\ *** Block No. 16, Hexblock 10
+
+\ FORGETing files                                     UH 10Oct87
+
+| : remove?      ( dic symb addr -- dic symb addr f )
+     dup heap? IF  2dup u> exit THEN 2 pick over 1+ u< ;
+
+
+| : remove-files ( dic symb -- dic symb )  \ flush files !
+     isfile@      remove? nip  IF direct       THEN
+     fromfile @   remove? nip  IF fromfile off THEN
+     file-link
+     BEGIN @ ?dup WHILE remove? IF dup (close THEN REPEAT
+     file-link remove ;
+
+
+
+
+
+\ *** Block No. 18, Hexblock 12
+
+\ File Interface User words                           UH 11Oct87
+
+| : same ( addr -- )  >in ! ;
+: open      isfile@ (open   offset off ;
+: close     isfile@ (close ;
+: assign    close   isfile@ !fcb  open ;
+: make      isfile@ dup !fcb   (make ;
+
+| : isfile?  ( addr -- addr f )    \ is adr a fcb?
+  file-link BEGIN  @ dup 0=exit 2dup body> = UNTIL drop true ;
+
+: use       >in @ name find \ create a fcb if not present
+            IF isfile? IF execute drop  exit THEN THEN drop
+            dup same File   same ' execute  open ;
+
+
+
+\ *** Block No. 19, Hexblock 13
+
+\ File Interface User words                           UH 25May88
+
+: makefile     >in @   File  dup  same ' execute  same make ;
+: emptyfile    isfile@ >dosfcb createfile ;
+
+: from         isfile push use ;
+
+: include ( -- )
+  increc-offset push  isfile push  fromfile push
+  use  cr file?
+  include-isfile
+  incfile @
+    IF increc @ incfile @ cr+ex!
+    incfile @ increadrec Abort" error re-reading after include"
+    THEN ;
+
+: eof ( -- f ) isfile@  dup filesize @ swap record @ = ;
+
+: files        " *.*" count (dir ;
+: files"       Ascii " word count 2dup upper (dir ;
+
+' files Alias dir     ' files" Alias dir"
+
+\ *** Block No. 20, Hexblock 14
+
+\ extend Files                                        UH 20Nov87
+
+| : >fileend   isfile@ >dosfcb size drop ;
+
+: Drive: ( n -- n' ) dup Constant 1+ Does> @ drive! ;
+0   Drive: a:   Drive: b:   Drive: c:   Drive: d:
+5 + Drive: j:  drop
+
+\ *** Block No. 21, Hexblock 15
+
+\ save memory-image as disk-file                      UH 29Nov86
+
+Forth definitions
+
+: savefile ( from count -- ) \ filename
+   isfile push  makefile bounds
+   ?DO I dma!  isfile@ >dosfcb write-seq  Abort" disk full!"
+       b/rec +LOOP  close ;
+
+' remove-files  Is custom-remove
+' noop          Is drvinit
diff --git a/8080/CPM/cpmfiles/tc-base.com b/8080/CPM/cpmfiles/tc-base.com
index 74d00ac49cae2e3b2a05d568d53fc162ee4835be..d3af40c4bbea66d314eca4ef94d5ec65f7d79b5d 100644
GIT binary patch
delta 1212
zcmZ8gT}&KR6uvwEJHW7OQOdN1SpqB}8DL>0Rk5-xGcepcGcY?KR%)_^rNyk&EEwt&
z_+lT#q-8Yz1g(MCW=%|ljccrlPbQ_N8pDhB!6=5T4?e)6M)U>mU3k$+Zf3r7zH`pK
z-~DFsmT&QW-}RGKMH>JSG{%!1+4|q23OElQfj1&Q-RNO+0pAx@)Sq_ln}>g9ncwZZ
zc5eMtr=OySyh1}8b#RcYZtNAP&+Xi^>I5yp$c4yCBonz#g}K)v-u?DBg@(vMdm+-%
zk(-X3rl?P&xoe%R74<au-$MeF@NSGlc7LB4b8EamdM3Q@d(H$Y;eO1IqqeRmG}o<(
z<}SxNgi0|H8`ToeBwF=e(7hb@=FO&Z4g^YVedTWtdReos_Q4?2<{G_4nS}ot6b&nm
zM*6f;&Fw+2U^YF$gMp(OiHBuIpPf)O$FZHK^76I-7@sr%{f48(`qYFroR?1sRj_>&
zlEib+>$jR{X&!nnT1^Ym2av;~G+TFT@KL0Dkc+zxQqLD<8N(kStJz4$ZMWbaA7<Za
z-xorn0Q~GtzCdq7g37@b{E^S{yvTqp9x$}@E9CK(bpvUnDJ`8r9LA0oKY}U}@wZBp
zSs>C7N;l%Le!U}lQC<W^`4ER}#FG<XYF-Yri?9oAFb3M=#}MdDKl(gA4J}<ne%x8r
z`!yG{47AF;)NxVx7Vjzm!WgAdNaVmaEYKu3hIDS6$?^u;X8^-UucFg_oy<UnrRC*J
z&<7tAr^K^h8HL$h=zU^0Eo{M6ra*rz+M*Bc1U8u3DtSJcnVFus^th6qo=GXGt8=N;
z<gD^S@~Yy4D-BV#w(0~9W|GRp<z!}7nZ7i0C6k(rs>^5>R`Mb7;E*&0OkN(tbH<tf
zidu<f9!E>~2s?*<wmORyWu>nW*OqW&iGiX#1X$^H(@PJj)YqoBezv8Dl~zpd!g2a9
zla>B9xe_|(*4)NWuz2D+e9d`zC$P$x!ByrK7iNRjDx-6h<*~z|1p@BSuT<WlgVsK?
zMw6-47QU#2Ydc4^VRniBk|SwC&IAd4jV7X)!9Bc9PD)!r!*Vre2v?}1MocZu{0=SA
z>k8pKRJTTl#Jxkpeb1^m_O)tQ)`I5b<u0_T+~iZuS(s{0qwV^W6UmwIoRUc;CzaW`
zWM)peGNnvSr&ALqF=3WJ6)MnST$E}KV{?QoJjdF7a*cl30t_$Rvxp7JpF^y%scbcF
zD!<^Ror|hZcR#R*K|*3D=)&)E0<!SPGhVyX5SLnPvAHDU@QC5&<qyrEwZVk30lV-j
ss|SoAU9-zejANDZ@*)3*{aIaODfyA@z2&r2+_lTxxY`>_XsvPkUz1!_!2kdN

delta 2190
zcmZ8ieQX=$8Gm#4-iI$oeQrYIxU{v?#IXX`CT*s)Sx4hIcg4Q*z3012Lur7fC4sQ2
zlL8glq{*!`iGR8Yddm3F)>MuNiY9~_3l|l^h7cl14TVnYgvOMCLbQoVIFTw<n<n$T
z7qc;9C4Qgh`90qsId`ey+<e1x(dOT~2uY|TGq!J`?W^86dI+sr&-bi6KfslhhPRrT
z_uTUG-GAfoyY7rzzOsFPi220z*V^|of3KEXItE4NS+{&#J;iQu%n5UkdEVS+t{B+#
zuXoRgj&-LylizKXCwuN;n50pDcK@Ec+A#Xw4`ndo%W2*uM~3oguhs8Q@9_UTa4N!x
z*V7^35?yyS&ucA|pGfZ$i=hXz78&;T=!59c#SGe{;&FX2j?lS*?^#EO0}hWi1zzi%
z!N@P>I8Sr({gv2bt)1LuWruKIbU6|o#kX=Ltn&s&n2|rrg(xU%rA+|-Iu<}~<ra&9
zw87vq!w#{kImF024W1IZUd=I#e6PVdM_nocD+djp5>&)9vTop^v}06rA|rbSWSmKR
zS~Vvz@(Du#6Q-tnmDp)@L>N<P3}*tall3&p4F}vJBmV--4Ce=%jOUndKb<_nto$-W
zwbvmd>oFU#a+y*YVy?%c$ZMsAS&w~Uu=2YGn@WS9w~P_tYADKmSpV+hmyOTxq(Lox
zYGA+|uEds&_aI?b{*S?>?DP?>QjE<CvjRmP50G0-F6AAwA;L~>+1S9d!bM3!QN`$a
zO(If=qsmFZX!$JoTma1tZ1f<E<($c;GEOD-N27$pb(;?dk`pFQ4QVFzUczsRZTM!O
zHU&bj*xCizbRk+1k^ecT^AnL09_8lw0rlzKv~Dz#3#`s}a$zCLQRy5z&yNV_!#9PA
z$OfeIKLo{mi}+o5Vt14~jTiol>f=8(`}p6QRHKi-8oY~?7!jt8#(co$Wc-p@!V{52
zNPQE`%Re&(NFYOope!E<o}7@jqRt?cX~^bRMp#&5o5Ut6kU`Lfr=bUwwT-frI(9>p
zam`#~&v#R<6aZTu&9AY4_$~wJCb8~=rqahxi%;@xxG@lHr>Z<k0P)K}s~u5LCpTj*
zLg0(=I<1Zdq0RI2{Fv%*>DgA?jP;ce%?e>&KA0C$+Jm;1ffiE5iAWV1Mh(qC?k7bW
z-F0<M6{LUG=qL(utA$gBcB~Rh8j~G&x)ajBYQ07T8i<f#NpAY6<{oo{9iGpjI$7Ug
z1^L&qcgq4&=**&qEfbdim+Y>cuUdGommOS>QSOo@Wvz@kJfsCi&RTvnm;9lK9-u<h
zp!~^d%nlJ()f|U7Fvp*Z2sbF(NGR)Q=^@qC3YA!s*lcvS6Dqim_&?1hSw$m$DVHoN
zX9y3jG@{eRVU!mLpYa@1eP}%v19F~l8ZmV+dzn;)PVS}d4Jd(#LfkBL@pVEe8C@oS
z6&3_R!sw;|TcEr_1PEErni@6ADqj&EXa|ZKkpCtUyj6PbiuBx3h-C9{69<R&_1HPs
z-WsrW*aFP}pmd5Yg6&1zVpoNvjrO1Z!2!sIRl4mESXT8Tng^&ByM)i~J1KqyQ7Py)
zDdB#b&cy3vjis`rt@EQW^({8t4Xk+fJt3X?FtZlS?^NW5bx@j+4xkfuC-*k-zc7;W
zWw5fw(ha|1`ORix@`m-B_Fi>obJO_r(^F&dQ%{UdJr$pP{LD|L#vkidPuOphu#k}M
z)Tkoen<Us8#s6QpFqE>(z5rpa)<WC@6pd3Z+WcPEOS=!yo5m@}3;rcjWnL`!R}ORy
zaLSVf{^7d#{Q{?aP~ZdVey{Z`khcl~9WCf&CAO-Ra2^JB9`3?Qf!_I#3w~cdQKZB*
z_I&snyHePIQ$f9cS%6-+9&t8x={<Rer(z18ict6*yQ(aL#VUl!EB#I+Yr+2u8#L6T
z*|Zw?ykuWsuf!>4>#jLAAysP>`(x*>`sk`z%i5~J3B>kNd{!7wJwwJ*{kH#){PstB
z3Us0tgzbqn_BL6HkEd>vMf`Q)0$X&x{?QzJ#DO(aUU2A4(KVobUW(uBSc-oEzuNu1
z>d2v29op@Lv>##UGkrfpHv8|NwAwSu9Y;z9^(qY0<NQ=%rLYLFs(@jj8ru*Sm0?#7
z5cP6YVm0BUdv#YwAe?sn53R1lGj5}oQ3unmwkJdK=+LT#>U13F283P-mhwA)I^bQa
Ig*G|g05}CeO8@`>

diff --git a/8080/CPM/cpmfiles/test-blk.fth b/8080/CPM/cpmfiles/test-blk.fth
index 0171163..66f9810 100644
--- a/8080/CPM/cpmfiles/test-blk.fth
+++ b/8080/CPM/cpmfiles/test-blk.fth
@@ -1,5 +1,5 @@
 
-include log2file.fb
+include logfile.fth
 ' noop Is .status
 logopen
 
diff --git a/8080/CPM/cpmfiles/test-krn.fth b/8080/CPM/cpmfiles/test-krn.fth
new file mode 100644
index 0000000..60373be
--- /dev/null
+++ b/8080/CPM/cpmfiles/test-krn.fth
@@ -0,0 +1,22 @@
+
+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
diff --git a/8080/CPM/cpmfiles/test-min.fth b/8080/CPM/cpmfiles/test-min.fth
index 8e66150..9e6ff59 100644
--- a/8080/CPM/cpmfiles/test-min.fth
+++ b/8080/CPM/cpmfiles/test-min.fth
@@ -1,5 +1,5 @@
 
-include log2file.fb
+include logfile.fth
 logopen
 
 include ans-shim.fth
diff --git a/8080/CPM/cpmfiles/test-std.fth b/8080/CPM/cpmfiles/test-std.fth
index dd1818a..2606c25 100644
--- a/8080/CPM/cpmfiles/test-std.fth
+++ b/8080/CPM/cpmfiles/test-std.fth
@@ -3,7 +3,7 @@
 \     blk @ ?dup IF  ."  Blk " u. ?cr  exit THEN
 \     incfile @ IF tib #tib @ cr type THEN ;
 
-include log2file.fb
+include logfile.fth
 logopen
 
 include ans-shim.fth
diff --git a/8080/CPM/cpmfiles/testprep.fth b/8080/CPM/cpmfiles/testprep.fth
deleted file mode 100644
index d438799..0000000
--- a/8080/CPM/cpmfiles/testprep.fth
+++ /dev/null
@@ -1,38 +0,0 @@
-
-\ *** Block No. 0, Hexblock 0
-
-\ include file to bundle what test-*.fth need        phz 30jan22
-\ on top of kernel.com
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 1, Hexblock 1
-
-\ loadscreen to prepare kernel.com for test-*.fth    phz 30jan22
-
-  include extend.fb
-  include multi.vid
-  include dos.fb
-  include include.fb
-  include log2file.fb
-
-
-
-
-
-
-
-
-
diff --git a/8080/CPM/cpmfiles/v4th.com b/8080/CPM/cpmfiles/v4th.com
index af77fffe6bcec116d26dd7622bbb97ff4baf17e3..be6bbe18ffda43e43a613aa7e54150ec65109e55 100644
GIT binary patch
delta 8798
zcmY*94R}-KxhLm8Y1*bFZIhFvO>&y1Nt%>E9g3_aO;Q?2lbRoXwEh4MSS?gb{XxLs
zbPwCLFkR|(D)-hEh2eA6t<^Dbx<M~P>0lNw&Y?_ug>JL{0M6sQI&$CloK~IB8qW8=
z-}`;<_kQpHx9#2A*Sm<ZUN13L4u9R=&&Swl0{@#PK51$s2o3R}???Wx9ID2uhXe0E
zyjY_e%$KSB-a!-0As3QlrbGFRkZiOg6<i)sh8-lAjD!-)Bgw)1EvossfLW^|$U%}!
z&E0M0333lfCgDp%kk682xMR0jOOOXhHqqLeilld&O9=8XNw)-3k=<q;LH+?SnRG`6
zFmnj<ZIX$`<$-}9|3+#f$z&qg7L12uk>qZ31wl$AzdRB0#iH?LyUj*|)KCnSflWs3
z<Rhd?${(Obl{ES`{a>nBz+5O0<aUl}4aQQDfEiD<lT*!AzMkMzfq+>Bu%|iIynva6
zuje_{{D7H)uY;VbF<_?QYm6g(fk6HZb~&u;;Y_LuN$6xQ@w?#f7M7q1vPn&b7fGY5
z_=76-plJ`al_F><Z`Qc4LV4kzB(xO`({_!9*w3{UU81L`SM|fRmd4Qtoz;cm_uXos
z5)gipZ_IDg)FfW34g*zI7h`@+j?gh?FDn!cz}f^!7BNlj!Q?VY$m)i;ojQcQRK$8`
zfU%;Ty0Ibz{-KC(N=8zN*z$;!zo0Pz@3Eq+JYS{d7k!PYE~;Q8VK3X5UsyEXD+vY8
zu6e6yKZk4FtPQ8zB5_H0N4=lBLi>rl@D^=20z#GYKPj@hB|)tnmFGUIjjU*k#v+n1
z3R6cpWt{?dxxj;{r2L<YYE~$?aUG{QtHt%d&_*)xbTl>#x6i=m6t{#E$jUlk<z;z!
zPjRSOf&KVv*msM=u|%Rn%CFLz;r{Q?ZiU}V+WGKXTf7T?Uo39QNx}eiLcNE2p#*pQ
zute1$37?kqFgQ|`QtgQ_j@9zGw3P8Q$dCc*V(~0Zbt&lqB3G$GbVVtXQ6>#>M&^Eb
z*>EYF3C~gvafhh;OZHGkW`Mds-&ZmSoN%S>@S7>U(tsB?LXUD=<g56hjttdH`Ja~R
zjfl|mEv>R*J*V3dO0;*NJoCRVHJStF2S6du>S!??ZBcCT10CIjgM6X%M~fBE56Y;P
z*fQmNu#8T11mnu!$ubJ2O2TE`FpUR)wv4$Z6G^TD!I$azjv7z?q;41Zfa}Z71=&<0
zlMF=&%St^#HtV@MWsFlV&XC9T^om3h1lOj2b`GxBrDr;VNl*$9c3b|@InLZ2dO99#
z2f#t`R=tZc>K>XiB`fegJ(EfY(=!g`xB5sh6^cfcd8J$@jb>oi(1e@Eg-_~fM=YBD
zT<-~zH;Bu<rv?4}cZv6$B<>pXkp%g%o~(CBf}VG5)1$SNf>>D;Y>q58e6J2rpXqTK
zm*FsckL&6Ua|}3cG~8e3m$63OZEl2w4Mz|#u3I`YWw{|(hbz0c>0R=btT(jyXCVsB
z-G*SNBs^Y*3>%1D@b4?^LT7pDuChxxngf$ZdF?72kwyM*hL%p49j%=O{L;X7#v_q%
zN)n#acUAQ;4tkf&+%W^y7FmgV>)r(GNABJ;aN$TO+8zW`(es*F@TUeg99<GkH<y=}
z=?G7ZG)-)IbMBcQ{&HAzrlI_D8GOFUy>hCDuO)iVk7amCKrT;$XeGg@JH-K~u)ZX$
z;Eb|5YRWaiP$<)$iNOs?`EEmX<l1sBl!$}JPfJ26Ow*U!H9WDtoYVZhumVg|5*+mF
zl#5j}uTzi6V?AFV0}p9r^t}HPpOLNqgrP0BqnrwN#0E`;f<mKa_E31!6Kp4=W`v4i
zx|CbMXlXUGLtY0Vr?^WzI!mDf86`+V1sBh>w?vZ7lJF+U+jo`mcGNBus!(y38{!5i
zJx{>@I+=y#`^v-Rdfu1T+BGFa?saMhU=`>%oI*>W9A{>gpXB$IuP<+@SXf?F0aP%y
zYc3Qz$`8mGq2dCkU^vbH6p)jZ6|BOEB&?}ez<}o#Rn7Z=h$c>`al&K;9Sf$?Xn^1)
zD~EIR0@=xsm2_J)43<$`i9BSvVcKsQrj?5}RkF#*@(A8DqBVg22Kk-J*C6_4lBp>8
zbfLKtg|95Kjp?K_Y>epv;o;t?N_DioJra)MHG;-0&Q=m3fN!hh!SSb)(Gc9Gp5G2&
zfDTq_La_+gZ#o!ScCfOHmsJVOZTbt@%AToY+k&xJA}!@lSGZCKD(@qIHlvuw;V_Y4
zha~)r9H#X=t9UQ)iwK1~DlsmjN<kdpJ{dI7y{wCQqq4+kWbP|1G2&QVd5Lb$Co0Qx
zRwG+?btr+N*+YTA=o<t@C~J*J!-+_$3C**|sOL{SsT<c_V?@@s8kuI;Dy+D<M~$kj
zk}zb%0DFoXGAiUx8^a({h+;_ak`aU(T{1Iz)z}IrQ-(RfzG>uE1e5V-e2H>xpU6ug
zFL(<E*+`FxI35y~8o2D;-JAM1*@|Tka^A?d2bV>bM<Xi;%MeG9b`w_@N=D=>$m)!s
zrFy>l7B;I}#Id@1(@q_(IZW@=Wp(Px5jvOEb%F(K(S2&f6WBE-NEwEVmuMHWQ`Z2;
zwq+|_az3DDnkzB(gDg(V7c|er&TjOa-l*Hp!Q@i)AloQvyEopsx~IF#wsG}_><Vs?
z31#qviH^4ho8K@^Ox`Q5>wV#PJ$YUfbLUUrD^6A4SV5R3-oJNp%69y76QZ{sI&#^x
z?WM^hr%j?bRu5kHxQS^}oO?Mn4D8u87GeQ=jN8i^nF-SZ81uv~#>GxioaViP5;fHV
zTZc4FZ31knY$GrBU4fC|QVvw4RWO1k1NXPEXh=%1S}rh6Er~D$E32Fe+$AtL1a-*D
z;~fIySJ=U=&4i0_8todESZYvhoss!%ZVq@_YM`2%n~#YogGU8U5!pgXc*<m}^jmVn
zbdzO-9^x<^Bgo$iDnPv{^cW%ZcyIIG?g*0lmSwWMKNJpM4SEK7&N#Tu*Q(JJ36eMS
z;3>g~;$U1)!TrMhOoJ6EcT{EOmj{#4U<;;5Pnl+Ow?$?)qu5p{oZklWY-RO)VE_`r
z4T9C5GSit<B#9KGT&MX-TvLE6LSHY7?}ugv6gUV$<SCOn|0}_o%T~6^b|VQpxJHp#
z+qZht&B)#}W+ohIRn{tS@0h>lZ+dJ#T<V8ra=DW9W1aBLe`Jw`1D}(O#AR1TkToz)
z#M6<La7vxU#URIcF*vevO*sp0)@Y$2^M)Kw2RaTB>oGnqmM`yJyL!zXJ*)dR+cx#D
zUVE!;-5otWO)z1U(^)Rb(ns2r7CN0s!HJL-eIO>0I02D^77Y{u!4`;6n7$~2L}6xi
zsEj*xYs#q+y2p6p8YA8&lKjHLv?h}2wzn(<(E!B{LB4OHlZiwc0k?QAS_twp3!R9^
zU_G7X0{4~WM)?e^RgFNI796d08sMv~aM1h}mg=0@S_I;Z#-r&dT)HISIsEdDk^reY
zS0)U}4ku-0AXP%K>nw}7Cd)bqMIUQ6Sn*JAXcC%H?u_WSY=CtMa*LJ0ylQ4OG_B9-
zPC}_+*XW31w~MiIL&7nU(@YiATJZDeR6FSbsx|+v#h=?}W$J*Ra7ESR#8F|YI-!@X
z_r)W=s>9~fV?8|B_`Orr2ajJ}H91yQby^J4%<*KE@XGP_stJUM`mtvC62-%qDiEZ$
zipKTuXn4yp21C^)Il^VRZ2&P;p{4gQr>#>|jAV5AT~<@>`YM%6$!N5696}<VYj4$S
z*UhA}*Gs}PRZ7`%sA}vwmpoQ-z1ORX;+a?s!&7_-#11^%N!|r{k>Wz$t16Bs{GfM{
zcuJAEk}I+VhTfUIawJjB#}nz+L?#|4EV^oftgU9{<TOcGx?s4VS{()TO?D(BpuvyX
zp3{F^rKJ~FV?u*6?W#gIVg=`mf@g`Vpk|AU+O@qKZtL#J+IlzkY+h5Lr32t4W+&^2
zUx8TUsX1z=Zi>Q;0544e8yPq6=BFqmA;{M1;B{ErbX9*|-BSIk{(|hpj#jHc6b0_#
z8R%IV`gS!{7X@|LL*eBQfP$k+qk<JU!U9E`sNLAxZ|lmg%l7qUyI}bod9k_$NuH^4
zF`O+Ymz8Kl<GRnQku_xj)&WlTG00hp`n%WP+^^VUb0uaIh8YLS6E_GPIN^TIT8Eyb
zG~B(mzq@xMnlBnIo~6ddHp^MV6E^TjWm>|N1BYiPh^w~cw?2O4fbGPs<PsY}pGPcD
zm;gC>&#%v%upK#J+w$@$9|?F|yC^05gY1Ue`Zwdc57{_BRtcFDVR?we%6gB?I6?l!
z_CQA_)rKN5GA^jFhQR<nvkg#6d92FW`B)+tZiUK8$q8(BrVb&J@V1k;d+oe^8vcD8
z@<z-ZF>ibv{=Rg2?IZL>TT;HFfSp!I7J%{%aaY-qr>vdvDp1V$TiG5NdXJq>w<R-j
zZp^IHXmViOJ@#k8u;p_A&A*@l`@OHR&)P#iAB3^}+~bgk?<%{%T?APX<hY#$kI|8a
zQ;tAd)k9e!w6@5F=KFSV;xfidVajEM3`)UVwsUnI$waQb1GHK(jAEk8z0^QnZ^K#y
zf}gGT)-JcQh0(#nWSC1>91envIGDO?GEtyBKQHb$T9yQB_y<@6L8cvy3o(SH6XtDn
z(8@IAYb(`Obb))V`c4N<-0CR8(3cAbli_HCT)kJR&XLEs`$`f0sDpI{TfhzDg%ae8
z4n`hH!b<0X%2ymuJMNcP`ELi63MB_k*qnLCK_*4z694L8>*RirBs}dnCPM22%9q>R
z$HZbcUIrRl3Gu&<5qeh+h9AL)vfQVR9d+_PO06eP8=wwU?t#|PGO%mRma#@O0){8P
zff1xf{M{_!xUNxD%Em77cQO}pp%|Y5ZWh(PbTSx)zSNT4Vs2vcylL9J^+iakgv+)g
z^`zH4HY^h4E|F}3zLX6P_JYVjX&!<+;GlS|oICzTWMv50?GX24VC9&osE{PQpi{D(
z36X9~#6XQtaUY16=nq6t3^~00T_hKYlJJ4}fe5y}0AyWULyDkQE*2+!AYzt{S5Q?$
zr{q)@s}v4uB;S{EDs)ASN|f@8#j2b#ZU=H;<eHiV>|C{dMi1_+p~8L$V!N1a%tiH_
znk_Y*%%U0*eq+qjYTV+Cs8q!d){r>S$ed7jG7s0_&M($b8H8cOM1j0oLx%kbc(_K%
z$IjHK{MC|hLjA5xF<nDuWV|x`0@h4P`L9GFce!Si!?=m-@=hw$076|1LTz+Xv4&It
z`ica(*r|@h!+0y9$hFQU%{(7zr+OWJQqJCDPH0v@R)r0OTby9&A?T)Igj+^obYlrM
zGX?$@a}S>Ab7EXr2F^xFCQ9yfvYGfS&9?kUHP+ldCmT(n$JuR$T;i0IZw1r(#sj_Q
z<P`Mce>%%7O6vABaDUOs#G>udG&CilS*fnoVxQI5l4*q`P4;^PSy`*a4C7yc^|ee(
z1N3=-4wSc(w#fN1e%~N$gBHjdD7~FVx$YK9@>|^vD{m0i$XSG+I7DG?e5P;+d`f$*
zU1KC-41TYKZ!KW0Tq|VRThyH9mxb3Meg99{2?T4QDs6|huOcTjw?>Q-dCD{2DhZf)
zDe(>+azA&zb`Ow#2&7Uz<+(bCGtSq>Aoa09o$#>+nj%aoXclI6A6Y)uj6gI~lA#4G
z)<oaNDk&8>gWBRyCY4UK`xH*ljX+0}3Au7Em+K7|mXv$hH!87TI>cc;g$gp}VnVST
zl(yJhb1}=PKe})NqP}o(b&%RE!6X1HhDK4{y~(y|^M*COJ-5{U(S>vLb?odE45tOo
zs2Zl%K-5&<*4NvgUE81SDwBy(Q@)9oNV=eoiGX{Bl(JAOli}V4t`-)s&4jYPIvQ^r
zSwm!g#9NmetfN|10jRci&0M_EuiP)yD@wV8dtL6Ijn_f{EP=H(??Gk#Q{A8Hu<t^U
zAJtLKAvoy)_d@3Y@1VQDwP1$qVxH7lIXNZnq|brlZe^FrBH-Md(tn>RbWU88GoG6f
z&y{XE0=nsPgE^(#WGLx!gSp)3rqioBA}%*<*X^dD5$tla1bK&>?g%acFl3F}-DD8R
z;0a*BO$F1<E;qaZ{JWb<CZPSh+pY8`e(I(|3FvX`c4KPy4U@SUE-!wI%U`%z`CZ^^
zCXE+ocznlAEsLxgM;0YF4WG^9$fU}{LbD9|2;<0Rv4@SU?1+TY<H#vN&?&jQ0vZRY
zK8nrlslhbA*h-L#avrCg?oWdqFY!3#Wc+zRq&ziP&Olv2-stguEANMTfHZq}7j{*G
zN^rw0uG8^(_1%s~8g_UJoCB_$fh#X?50Rf&|JHG!@@Yr1T8U3vJ&X$k0f{PV^M8=}
zw|sTqoo~Im_BS4vb%$He8_$S35<^{=`#}$Kd%!~@LAlpsP?fQSsZ6UXX%_Ah^~Fc*
zUe!@gzS-|;IplN%2-(+Zz3^Zov)1iZ?evV*&(ek4fpS_DAtSrzS4XyZw;Y6@aJz>k
z{DebaoBx^Lle^x_IY3&;P}{iorf$b|<izCr5ZHe1-SSA{p505%{M<`Hr{Mkb(>I>D
zX-?_}@$O#$t_Z%j96Iumw`0}e>G!A4A3a?JaBsa{I6X5>o-lEot)DzRaqs&_!|l^!
zfAvmGOip;ud#)qH?e;=JE^Twa@lxSL3ahm8xuo@PczaAsG?5Cfs`sdf3A4#$nmF3B
z>_n{oF!VQNnnXPVPY0>smU<|H+D|aV*v<6>d3!yLbkOIlSM+ZO0AQLVY@Pu$)l*^%
zL=PTxX+M02k^ytB7zQuGAl4dyCoOops;9+BDikoodlGp92I*i+z^sPB85n>u01XWO
z0)rMDa4`5g(6<7;7QR(JxVyMr5{_}Z>hUs*eM}vyEe66-Zbkh`eo%?jJ{J5^4p4}B
z88A5eJ3bm`OG2Ns)@RrJU!mDY&})2?+b-Kq-RhIJD-u`+Yog^!!c9Jdug{5;xBDpQ
zL`lL+^#<QD_(RzDVKrb`5}pUZLDAsDe-ZH*Ai!=VAvXl=RD_K9=ybFLntYg>Xb7Y3
zS~q4ViYUi?TsWHQhy_=*xi|YB^d0v->3fKDu?Jx>^sEm0Ngwu!p^5F|U`M6F_k2Az
zWm)1Y-xT%nx4vJJzqJrt_Lb#E=wl*A;%nUl)B<QNV#?nGEizn8<LBxWyOxA~kiZXd
z`ylg+F#{06HN;o$3J<6GxS(|Im-~5;TT22m(`k3oSL-wQZ}Q_J-}6Hxg_df-ydAFR
z2|qq=Dv_0k#%m6`8styvHJ~UyIqd_POv<kkFZ-$15L|sHP@VEKU||?VhM?_MJS1P$
zpZ$EIBNE3P0Q;<^o9mCu8-D6nhhm8o^bHh*ZWdA00FBvT*q4f2g9HYI=a9vk2K9<$
zG##16l+RKuYM{gIK~N?=FDRR48ff5uF+%K{Wj5B!5P6P6f$aBl;pB46DG1B{1|_-P
z+yIXYt-(wT&hS{n1@0|BzQY_8Yq0eWO=2VTR#@Fd9b%x1%ek1hog?%#{9X1p=6^fS
zwD_?GrCc3q(8)OrO6==A#yOWDziKF!&+YrxM#J<VtEJ!aS2i^Mc)m49kPkNS9f?#r
zmI=e-(?fG1otcXoh=;=%2^FtuFN?piQX{C9q6ewDj6W5<7Q~Ft0sk~$#lxk#@5wH-
z)oz@7xn`+>=~%r!y9s6agSpTq^+r~Lh+ObE;b>($p@7o!CGe30|4gWy@QE{Dn3)Np
z8=#ae55c<vV0-92@ByTle53pVW&!&9bl?KW<(M3+c}O6KxG9PcVC2>kbl@zvpTko6
zl&rdE=W@|_=$rg-VE_VL4!V&c<vx}MiUAKppYm?5?6MtpDuBMN3TR|(Fbp&BATQ5N
z1xDy@U|>U_v%$(WG@!h?1H<$l{~8{jF?2*2Mh^tg;P}84g}4m?JpF#IJ8%gO0>(aC
zc20MdW}W6rVt2sBXan0AEE6<X&ca(34QJXXFJ=J9XxU!&BD`WIG&C$VMWHu12O2U$
zFEt2vt?t{{y>b0QTTl1KtSx(Ye>U5-$+ltj-L`YOPipXf^Z@KzZCiWu>b_03?)4jc
zp>?si%e_0G4V1#`^FIo>Dl)YJIO(MSRjQ>R=i38l=I07(2H&Xz<_>sje>l(q|96D5
z^9D^j=SjkY^CstEo+k;)8{9CBFAtORF!?z<54x-3oc``L*!I|Tv#s~eY~Q+`-n#~<
z(K37=Yh`ibA?m);L)7HFOK{`35azb80Ok^n*wHe?@1gL}Sh>qG{Cxo4jcqtgR^!{&
z1vz`ZD^LPAhHC9o>HtYd1$g@q_oZ`c?w8I70*#_^?dpxLep_F5br<r~*Kg}xXIlsD
zrW@yBYPp~5u}@K9Ao|i7hRgnB-T-y&{5{l_^YLP>9GH+eC)>BSueZ;(wx@R!h+n2g
zRqmUw4yIC(cIZ1NF_hXHmqJ8@NZJ&KR$9P}RS?t2v|(2zV8-^ozL5zlBQK0Tna|59
Pk?+d+_=56qpymGoe8l30

literal 13440
zcmd^mi+@v9w(!Y$=QM4Srlo1pM;>jHK9Z(s9eiL*nxr(-G>LhDTr0>URG?CZ78Phw
zM;#oe@?%u)bsQO(_7i-J&b=TrijO<Aml5H@SVkD1Gm}C19IK30$2gBm?^=7Oz@6{=
z1HRwy^Jh=aUVH7m*Is+Q_ko%Cb|W+4gukK2?1VVQ;D1xhpH^SRFbXr%H0u4>)^Jq?
z0ssH-*jZ}4y}xhmKu0v5>~vk-Y}t^$-EC=hU+r0T`kcb`D_rjq`@*R|GAzTe@z~B%
zU<!LJ%cgR#K~@aK6265&+7n}?c+ekR7>w^Movib*_3P`uW%IG^T@x;LnEe8t_p*P3
zC&Mmf`A9Sx!`JV!Vl*CF5Q=!s8WqDn%CZU1F0;(AV=NnoH-%xJW7$A#ms!KGKL_NF
zjzloI%Ur;)hgrVemk91M>lpS|(348WQqWV#u<x-#C_)-V4Esk`6O6~B@lIbP5Dvz7
znddO<SFF4+>UV`hk*-~4Bf}~jm%=qn3~S=JL~Oo`vog#z6AeINH3F=yT;?x?_HO`c
zY<@Ra7iLL!5Zl(9xr_|}xT6%u#bfi=aliqBunODOt$+XkM7W*%c58e)M_9C>eqa{7
zjr(@I^+_BCOt%B{G{OE6$HwQsk^@uFLGJ!|ARdjKLZ}^43Fc9b58fC`euU77z2g%6
zcbu4tM1l$EVc0Auv>{djpBXwh{t-t;^1SG|9-&nTJ(h!(@>1}|pg)xiUdLx9nt}30
zUWx_dATHhAd}gbCRX>6Hc-B9E37=V4!;lRxg0^)XpP3vWllSs`M>rI_3#Lx@6NKA&
z$)AiaSP%|A3Rqj8y@TLAz^mr}FFpgC&uyGnSzo|e>>Eh`^E~UFe}vDRv)chDbNUkE
zYtUi+Eyc87LjMiV)?2^C`R~2MzV$)6#-}`wjLQ=;WJ*@x6N`K?laM(}2-6E(AQh_>
zGUrIsD)4R4zD7W%%oixoBk(BV5n&Rr>VYXifs03zOQ3z0v=<6oBotdGWG2ZZs{|nx
z2?XPJ0e}wJDDW;Au>$~S&(XbZ6Zlxj-!&#=YOlGpug3*G9u0@HCWkP>{aC2y974G?
z#%ZONf@igAf#DhUr-A@eA<hW&QVhg03WvCsf_t<SyF=X1Blaml@Zx?I5m&Yf%r#p#
zEUMo+urxymXGFn^+^H2als%Oq@5TKC`e{nKM^x2!LbH@?tzBfJ@kP)a+TS~TfSzqk
z<Ur5*5IEX9JVt>lMefFE{2l~8(>weu1#S|#NHqD+VrHnZces(lwu>s)Q{rT1_>umh
z$9u^lqoNoIF7PFTzYsI^6aOMI>_JfqP|&Yo#(#NaX)E*iqE=>Ce=GAuFWJfKA{(gx
zOtgy3HA}u_U%38orgSPZ{N4Vc2YL?^gg=UGQ@viw*vS%##Cq#1p+%cUiEXZTW0STW
z65CSWDrNLMgZu7;H<7$C>|BX$axIpCFtikLn8(!%E!w;V#<^|>?7z=Ye)UUyGM);0
z%`-C$d$%NX_`(Tjp;diIQhDgx4<%KT*Q^5Alak8oHKXnQsibQ5nmKrTNm8|V%{;tK
zNURGGajFv%8;$%<%CyehVW)Ebw#0#<oR%^_o%n;qupdiYIFwY$N<XLca)j2uNW33l
z#Q>{eC`co}4v=8nM?`K$VrJHeRz+cs>t>{fbmzI_I)l7N$M8dkelh&=8$-`bFOWCC
z@`iP0hD=x~v#EJ2<;l#61@gNo8O$dE-z=-<ZANG}LMQsbvJV1g>vkFRV->Wv$*R^L
zVq*vzJ7v~0?`b(xJBvFCfYw8DX6WaC?UN6V=Vmwn(Cgm>=)q$-$Qv@}nb&$2L9<Bj
z$*SwWgo%e=9`BQf4#8t01xs9zrPQKOvNIIXt3eHb+EW$k3=lR+2`3~9YA)cp-m8Y`
zGB|J&2G*(B!1Y;Ek1#E7hrcx<s#Gfg=OJ*eI4xThnQ@5A<@4MR<UXN~XlO#sr@DPN
z4#Qfw)OXZVge`*z4n-cN;I@fxs~PrtY7Q{>A*fp>klg?YMP8y1iu7-4F?eG#7zzAJ
z4ff|5pzA->oUc9cTcGvl(+w<Dkuz#O0KhMDz=^j&Z9Z0u?Qvhk->Ft^Sq(;}zBJHH
ztl&kp)JA*k3bIrU-jH;ZC}MjQj92111ynv~syxazSUn8x`vwIZ4XVPd0}3klIs?&L
z0h#LWISySBh5_~9=O*zni+YQ4pR+9xeH3uvXx1ojNNbb{HF*2)Dfc^Z_MhVHE#ogM
z_LgHV7FPoG1Gh#fds6w1vmUWdBi5{muY6|uWrg$~Q&gePunUbTaTinrKUP%Vl=E;h
z)Zj0aouy;k5XbOY(-;>P`nX}iDC`v-!VqT!n_HMSLVnTy8U?hb43D7>{$)*_d80h4
z$J0`0-ZX!n`@k^DYj|w!=hM0XJbzz_Gb8+@Y_n@Nt{WKKuyMuU#trF}IM~LYB17?A
z!ygCDI#wBg_p~l7yu$A1!$67&NI*Gb^MuxJU%V@8O6zumHX`ihJh46p4Cg(ho5(}p
zukz&9crXzSFAO3s&S4bx^Mj=G!#rUgoh6)?CUdAX^1Lh1_lghcD5^mtw#9s*cp_`s
zEB*uVxK4vc@I&y`wopS(aJgpqWzfabM0>)T_E1OGG$UD+xAUHs5dBt7AlVs=WKHj@
zpO&uD{E3jWMH2{u1<aZdG$ToXZ4~~LcZ!VIp$WDJAui0C)S3eX@|-5Ps52A>`~!f0
zK%(={NEc^h(8a8&LgNsyg^H*!YM4n<F3jNS|E}qX2V+5Bk`6ttlavoM*zp%lFcnFL
zz~JGO$92{myfD8#5XBv=0-9bWtJmfGL0}Q~@Fm#w`9u-2rdP@6=al2Rs6zL4Lw=A5
z=xpDwujuQ`zdsy=u=(NqoLGaDVzf3@zp#D@)k-j*1$=GEsTcE0PcrcP3;fL=|JVFC
z81{jDF4bN4tNh8#k-+eYXY<eX-Wh<O$#1GpGO50thkHGr?XJVnVV{iRYgKsWHIM{s
zBX?dC$GAtu5$;6(80niN*6fpf6^uENPlF3<0qd>%MnR^QSgb~9H3kYYLz1?#ceoP$
z_0pm5_ilOY)S7~!dwRDN9|baF1r*j$JifF5UBh7-G+kdHrn(!uqk;PiZdrYJ^6b>`
z_lF)kwZ32|y=IPl`oz+L$#ZMrxv1yxvcspza+?bTGJr-u@2kUvaG4nvI$#_3798Sm
zBSo;0uwYd*3`RWIvq*ZAD9ld^cw7$yqZ8^e?u7z8?oSF-jakzd1=KXFv>d_sqJZvK
zs}<^I$9xWap<^nwY#j`8Xz8G<v_gs^?S?4pUNUV!E2aXoBX>)OxO)r6h~dCrT=zz;
z;O~a0@m}pMt8F*2hbJ?4{@by~v|H_khP;XIY3pucbEbHcRwRh6&t1Y)*H6L!fPYlG
zwZ71tH}Ucn_@i1L=Y8)IHu{+FX(tY9FHq3r;mncKhKaLUi2k%fEbQ}x`h248Bk|xx
zAPek!(xl5QnZwv~241J*J3`@bqmIxD6TsT-x&eFM#9ZBFN^5iiL<*?9yCoMfC1D-k
z8H@*eb$Sg0$x-RVld$t8I>8qXN0Y;spnnGFfKJtb)@eU~K-xkEe^<x)38)V&C<Xmc
z$HjbbfN2Oj+B=ARKCj#6k9Nn14HzTg@CY}`Q)_rw$2TTJ?OyYJ5FCA=<L%I(dFjVG
zzLhjs{r?kLJ)6~Wt)U1d?g2g59`2&=kLvkE%$MufqvwF=tm&d|lpNM`df|ptFuoW}
zmEIu7u5$0wkMf@b3%Bb(lOBgZhCg@Y^7*_9b9IGcf7V}dioe%yeR=%%dN|4d(t|Pp
zhTj({Df|bFV+5lT(&&OhsWFj^hawB+6+#Mtvei*Il{s5__KNu2Q^@;$u>|hm+9iei
zj&8ZQ?CpzN-aKPj3Z^PmC_!f^=?iZyoIH^(q}k4fLLn7{MDpRn$wa287~K03=o_$4
z{4*^2K%wAV6paUdO6fYBH(9qsUpjSm>Ky!T+Sz~S6TPS2E#x+Ncj)i*eqTSCIX$5@
z*aO`trk@tV20tx?4gR+99JK!n+VFt(1*Ch+&i>6$^a5OCu-kU%Gh22>H$So9Tuxpw
zpPfASEj#o#8%%fDK{aa(->_U}>63+WIO+?4a^wmgZ3ZzBO~p~A9*4u2OAOIB!QDUT
zjMbdy4(LD6on6ep<Ce0f#fIk!(I9Lx2r*wAwP%D|Y}gKiuPqEi>@mg_7mh$Af-%S#
zmy!31+x64r_#ZUz5nne9*k`}n;1G<u9fjwKZF$8YB$ALGQ4u<A2>KHKP>AAbr5+x`
z548TZGA?}9z}q0m*A&s%sQ$Fc0O|4OlMKxpxFWW}mNgk<+rtJ79<-o~B2iFV(YKw@
z0~Qx%nOAfe-jC~iMGn#q72WG}lU}3l9v5OPE*eL`aoy4!%Gx5I6DO{H*x(?#JXF-~
zo`ujc4;A@(vL<B4YofEdSUbD*-9_y^&=ITIuBUnI&x^#KNH7?H*kr<xuILkN{1~C*
zXc5;Lyb+htoq+%f3CR>mfuKLsjY*9`R%XFp7Ks6<IwjlY6zg@wTup8{<9WAFzNozG
zDZZ$Ow=>dfr~2d?rvDt|4V12vz{9M`s5>Q5+Onoal98|{uUPT<{i*I$7>)u^NW^%C
z9p%xP_6YRt0ytfy>84`IAB{i}0pbxYOi)yenZvEclJe!uBGBWk$;Q9QIYhPaCbyHc
z4RS*mat@<lkloXAiiA5ug$B7Msj(_*1~#@$I?oy8s@b-Vwmbi!U5#y-IUr#-P7V52
z%mrfMouxA~bXheB9?Hw4*dwR~^PEv$E6o)&yjs{sNI}RcX<Eim*F1*`XYm{<lIm^`
z#@n){GpyRWU9YyHjN*Zr=X@aTmPUX$Ad~44t}A}3I9P0uT}Vm+^Cq_qIw|l!fe#u6
zkBGL5iciW<72jIypL1Pt<(yzKwynx%GdC2!NP5h3K9gvVq`XA}y~T4xN=VkUV$NIv
z!){d@1`0fLLXErq!yG>BOC(WQK$uHVX%Wno@SULm99%&Ol8}~0`NpzQo{EsEM2rU)
z22p~rTY>J&opVdxfTCwAo(N&UJ--A`k4`cy^zbQ&PWpg#xJI%>9qR5520}za4D$R{
zfXuL4OJoSZ!OHqU8VvH?6uPrS@k5Ll2i5j>9V*ewL`ES_oT638XG_FR;#jk$r$EYR
zm|xG8OAe4Wv>s0Z7Y|537O-av`;PX-l6zQ$;gZK;w?SWw4mHRkb*>;?2!$im8oM|x
zunS`^nnE~)w@S1|%z?B<oKY#6=5eoJMRHZ%!v<>GD~zJ^I)4;-ImRJ_mzwCJD~(42
z(O{w#jlyk4gM4C-?zk>)M0$peLK`d{peF1wqiQH?+GE6|=#;d_NQdt=2H*@J8^8gt
z7~wQR3v#VDj2*y>OU>UHrA5AY1iThK<<H1WND7`>F)<eh?bzO9T3RHf?_51FIAEzD
zX6w9B?)G&B7lwk1RAsxNa$+l$oc=gu4zQoJ&ImGXkSo`SY27?Y)VWF@(&3yKf~0jy
z3Fdu0pe|c<UmB5qt5OQt;U42O?+_l+d0^9)RV5CR+o^^5C78znCn(>VOU2oBCJaX1
z(-I(S)sJH8wR+v{%lcNYw5(fpTY8aneJOI_iBdk&;cI)VbduCzUpUslLS6LS>8<wj
zl}qO^rITm3X3krVeO-!P4KnPR(&3jg<7Y~9C9UJ7LMwGA#SlO_z;Tr^bH&#sOcqa-
zq9c=;?Sex*&q>PfXK3WBm_#RzX$_fRO}Y#T)mu#hfup!A0MpmQ1MOHk;u#vcEHVkL
z?a=^)F6G4J+-VZ938IjuCdeeXDK)sVnQ;g;Mynz+ON&%PIfmckl7OV8MO<53+d(^W
z;4za#8Fp>f^kk{E1P`LEY(KwS!n7NTVkQ;z{Kj;f@v@K_$Xx`(erh^=9R{wL@?qAE
zqRg;rvkYb#G%f;~_#~Vy9L^LL5J*X((kw6Z#Y4V!OhBJ3olU~8H;bv9B02;MFtbB6
z$TK5gc=A&N=?%*^q?cJ%ZS3pAE+ZgJ6Aet7`BWkp$B7O|H=Fn1QYJVz5;tQh@j)}h
z%^@FnxF<_dR6(t0xvF6>$=w1utOOPnBx(WCu&imDWU~t^HY^*s6?gNjSqKC>=o&N9
z2j)xLnIc8|PtEK?dX4ixV`5fQCV@GN2P4Et!u1EVqmd*Oow6o<nM1%G;xS^YTxu)B
zwXQ1Tp_B>9u^tWqoY4>DdG_Lk{VSF&-`KZo!zRnX;Ib8K2^-n~;eezsn<i(4V;7h4
z$!G#Lieu5b;_eUuJ9m~Ta8KiF2e*omFJ(KjKCMH+eF&cW`P+;q;zm4r9I?MlAlF&%
zlrhXd!Mz^Cepm)&^k@<RTinxSaQRclM<ZdFPG9z!^j~GSkS$2%Y6Oz8V8P2j0r>KA
z+$Pl!bO~W$P}&dLj*i8ud_p`<S$Q6?ITQ&cLm)d@6K=4P(2_MlDMu<a?I9*BSuQ{X
zh{vHXn+I%L1-|csvaTF=`)eht9FUIM8_U+giVQncE?~Hrn+*?Nbe)8PqgBx{6)vpr
z?=c;;OUn5f^em`$J^To_z;p<l>?OrJ1$ijA6RL-c;NAc{4sE<f;;*O51t-uQD5=Oy
z9x<J-j2eikI5_UEIBdo`4%m~e=PO@2Hm@QxQCV@??&F1Hi3-ze$08Mz2(cR`=EIxa
z4mmy+R`V+$Z;S+x1t=w90a=E%7#<wvFhGhc(5&<cXUfk*h>OxQ0=){P?rEs~{1(g%
zjYyVMs2nu1)9~}ae<MrwRlIRiF7>-PYkIaKR{^V-xXD4<G`gLv$cv=HVVbjmBSXfV
zg!+e#rzR{@kspb=N&PfIkBdgfB7<?l>{_Zy87?L|u=1%Y(^oRAqf#W%dR$eOhUV3k
z>JTVIJQfdvPCRazF#M@P!}}^Re8b~NSD+ay2h)%IhC2u-4$iY{R`lPtesy2k(!Z{6
z(~3D7-V0`G7Fox<2&|x}SZc@M1y7qojY6$l3sq$t!LSP|eK%nlDqZ<?rN8n617>~<
z`^!odFanBGIp_xj`hF$n41pY7PL@$iP%>vERT(Mlt?M7OtW2*;Z-A;KPBdNFjw7C}
za0s&HZc@F(LprYex)Ld)<G-?kr2PPlT;Aa7-dhK$g3m9(z^5o@zQJ0XBslv)si6Ta
zlQyt=#o+4xb!ZRJAmUop7O{;)I8Ru>@<AR}3g#9sUWXqUdVKsv%ZasYrv>s_?377o
zX7elWp0tdgv}}3xl#7LaoH{Q->`VH#^@E#m+V5K=H|9jCgsN-@i#6UcLN~*HWVtVv
zN^~Mauoi~ZgAwj4%LtdNvRVbGJ!8?qP@}ef)1bE6;rDTfW-+40X!ddV+w1(MVLv}@
zNs!~PT6sETE{NG~sn&`Vq^tr||8OEq3_HXg0$pR}lb!Jt3HpUqz|;#$kM%iFejIW)
z4Ee|24VQX%S^X{-ILxOZ)t@FQ|1>ZLYQR<ztV%2iTiOqCU>`()d&PEAmHM?6902L5
z=P*XZ$~Nt}V3nM)I22Mqe5nHDGaFq?i`bhj5>N$R*3!Rrql>N}+eC`1Dl4>sskaHv
z8&V+{*=jqYPk_*W4MNYb0h{1JxT-7+SUonLA|X*jTxZ^A(y_{wHbh)w%R?6%@Wlh6
zMp93$P<_b0F5RQW-urE$!`BYqBjCxwM*uc~w6dlh)i0L(#P*2oTV#^`HZI|Z&kXRI
z?3j&>+iB={#wI$+U4Pc}i0z;~t=j|1+C8p=_6pZ*f({vn4QnQ&{Cn_AXUo{OImt3K
zg$2zkU`DtXOU5{X>jLGaR#qu8LXXT`hB2(s{>#~c$8|P4&4%OlUlJln{yQ%R?6s?1
z$+#~BpByZB&<=OUrBi0OYiVFj7cJv(ZDXF;VF$}^XWPSGvjw&_Y8Rjwgtdiz_O&E9
zea<ct2x#YSC_>B3K|2+mtmy?EjimnF&UZ$`Aa<vux9!vX+jbBM;uim4XXn|ornl{H
z+o_-Yo1L|TJUK+fdE1UbJ@Q{u#V1H4jY$*67p^~&Xv<!ug5j9PF4Oiv77F#)J98Kk
zMm(Mlks@AK#oEzvRm~MWYHLn7R#tHVH@Lp-!m#kUnyFe{)g#nZ>ERg`o`k9Pibw6V
z2C%7$MMR@;Lfs?WRfQytRdFeVVZD_?epbZ>+z7a<ipGLRt5ncFp*}$dyi>)dNH=Z%
zZ<rD&qDp{kf$4f!eU0)k@xY_}CshX|^uV~*S5=(95e{HJ9DuEw3pXab@O25px~utc
zC;>u`!n3r9PpsHrdDDhtTdH@%B|#PF&js+|PXR#)|CRHC;;gPN=zv1T1F$tbr;X$g
zudP<Y^%;tSKlpHUtKxOBR<7UXrk`-!R}FO`hz#*Fkx^JP>W3R2^rl@LdQuT?HO@ob
z69Xlgd8QgYP8V1*dZf=+!*?FDLk?D>U&z$MS1EYcg}(hS_yx*g63qUtS_~zykhRMU
z0g+N8cYry#T-Y+!@Zj7QqEb=Cs;v>)8{1PIUb75bx|X!UU2tJd?!z!rcxk-9#=iAM
z@_d;*4`rYL*jXbw{n2=^ZEFoFGwKUw6WPO=b4N<2>bx~4Zmb#KTQfO{7XIACN1Sb8
z4O08U_)9gjwKs|~RkyGP>vE<$%rI;Uz6+_hd21$~sDXlVjqD7B5?!EoSxD*%!JGAO
zuv#`)2K(Wora^Ey`ECfy*N9j&iBHRzS4qp3_iq@aPVe0sDK}hIb`It<Ik<Quq=1br
z$o>upWKbWX4CdEZ5V0!F%;!+(_z?acu^~nnqB0C^e+>P*C6B|Z=)sVRcWhWan6^|o
zB;~!Cd1Ua6G;`M)C=2Y*l?Cb?au6)>V&E?3M-JfwX`X~<hb!-KTwVq1g2zAsJ76$|
zc5;WfU3i)-rGupe$TU`xmEM`bGE>&%siBfm2x%AwjkIoKRX(0+sX18f5Lz6F1yL9`
zS3Cp`l1_dIT*!WYj6)(?YCfu_Gtnfm0DSu_Gw99QP6u2e!0~2HLp2VO#%~Fy<b>Uj
z++(QbQ-{Gh>m+)eqO+Y!D0Vzgy1pX*;~u9(C35~#PJJ0ogzy6438y$a*IwthoT#KP
zIECCKdz}vw$m>oq6$|9*DtCKofJu^8qL%L+rw%_+a|NOa7o7>Bg3p^7_RmfY>Bs@I
zCgjRoCry4^;KaV1k!vXjpcG!4Pflre3W|*@A-)29*#je{fwRalhP|#<=m?WYqrA4O
z79neEg>a}ll%!vI3`0L$uI6&A@73m!9CCK2kJLi#366TN*j`gEEr(iLd(CU&Bel~!
z_TXB$GRlyrhU)$gY8ANR3|=|G{k82id*N#YtKw#GSPKk7fx!2@5SYp!7I;C5ZHx}~
z!y>o@68jz@=<;R}XJ0Ko(F{$)iJ^FXCfyIP{ruH+*v=)W_`1|I45j1cP*JKe(qg67
zh-uUa1Y(q9J;1RMZV+S-At>65K=coBI0hwfscAV$c-+h(4vPWr&LFg>&Z-z06#sIm
z7v43{TP`gC8Q!9nl%LJK3FV3(5pk-kgPI*)jZyQ7ht!e_Obej=iFL6NS%L{(CGSWq
zPDh!FVQZftDZk9+S4cXI$0^ZY){VhJnEz!>T|fYGwTnZZI-!b!yiDt~;QTNY9_3N-
z@Tf4!!HS5aoSeZDIA)e#)^$TBXn|1|lu>@WfTJ)2zEE~S*$*)~%?;;@Slqa>mu8p@
zI|aAWsYEi`?V`KIs3~g-3-S8x_1~!fLp|2)_KI(n;O7LpC9F{4>7J?=NO2KMS`ML$
zJ716e*dsScPDp_lU}A$+7@J+adcZQU>9*zleVgje*CURtL7YXwBw<D}sz&+ckPE2S
zZ|EOPuK<%;NCu;bUCse;Xh(xUv<MRw9ED5INHy?g$pz^5H1MdDNEvq0+<TC4F#SJr
z?=Ef^3!f;dXxKQ`z_l-iQ3JK#Z8+M3yv=u?^iY?%Eq5dQZUbDDM6teE>PA=kal^+A
z)L>m~;M)A)IF7oU)lj+N(Nklw0TfMFE|Ky=5C0)Cy<LP&MwdjtHqBL-p#Jb-j)Nf=
z9|SGG+67U=N*C*oUyZ(ey^BvSjs>rF0TVX6IQZ=0Y8QNx^Bor-^DO`{q|e`Xu|60E
zU%>2galT~R)h_tpb)O5qEnJi}J?Fw06sj98&L4$3^m8suX#WoyKfi*;ahFKGfxS%P
z=Q$ETb#Yz6#qT49lADLuw)c_7LbnJvB~ZD2AE~Tx!*@oppg;LO63Q@qf)v2PdqL3z
zNx9Ztg$0v>a)#}8SChKQClE{A=&mNUi+=_9N_Q2Og`mK~u6Ng8Q6_=H3fth89a#AG
z(O4fvB5eD*a+Pg!^JDHA$p%6pfKbdxJJ_!)pSQhO@`x=_N#pg0+=2tx0NFW8`!2SN
zqmlsS4lEbO9#)UQ<=Y|d9r$AB${W&_@^IZi?VE0A`C~4FY&>e$v6vogbUoq59UXP^
zIIFX<u1JM3lU}1LXv2Ubf4rqpb;g|oV?;%h(W$@amDzA+3Sz6)39pB-PFLHS7+NxH
zgb$+04u=|5KXOmB&CVR?hPkK6cdVOV9N*r!<t2Coy6Z&7&Dgfp>X|>4+UBVA%->6G
zl$5DkR>Q|r6TB*uAu-YH*LCX~B^w+}+~4`zMtY5#ISX0EL?gZ0e0QRegG%t(b5l!C
z+)|iWf_Iw}jd}3C<<L0ei7h^i_o_!u=K;LcV=$f0p%H}1W2K(V;mNIMj|94>CjQnq
zIhmQPKS!6(ee-v!kps7im9<PWSN=zo6QMm6P5Amebt-1kTv}Q>d8EDT#8S^;xJM(!
z;^iIzKCMakwtJxL)O|u=CboDO_C61f<FckT9xCXM0|3zAel!QT!Nb|xAsUxKYF~kO
zf81-%hxeoK9)`G7f%msOygiukd(H4kCHs45Bz^EbfEpT~LIae}YrYE_e}zUnHY8|B
zO`N?0#%tics0johV$GUfmwxO)iLf*YPSg*~H4aE?JSQP=M0it^2qqGGu;W$eKwzke
zN93&Ond)nrtjb?!;!O;{u_-fr(Q;~Q(^q%X{V#zj(LjK$YH~C^LxP3-nmD**$eK=i
z98K@SAI|m|%mx%^P2&LAXLmH=FLwL{I>0>O%5XsefFn(OG8BW`983zKnx<Pz(hbVT
zGff!S!gn8w7rRE9e$@0q(}AWPtV8@ym<vt3jX%(YSB?z(MUw;z(wm!c4_?lRjMjUe
zQ#D<FKS|&kaBKUZ4sy_rxyV`<#*ZCvwP}Q_E-jg>+$%Y$^?>XZFn3G%u>!hWbZ_}?
zhZ_SAdJnwXD+AZsqfig{yDQyvO_Rer;6;LVdLie4yEU)*ZaACgz4(s{8sS?Bl!3Ga
zC200pj{-8{BFQ!|1OohNxS(a&H@#ekA5Ojp#(m@!KnKyE?S?Cr{QcypzVyn`STKSK
z4-V6gcs?LYs+-mRa5Mq+T-u?V?XWiUfo>m2hCw#bDXwkifu8vYv5t^Q!vsQbY!vc}
zR|>=zVr^Jew!N8VQcIfQKDxt~3Ij!3n?I8-c=3{cpB*n$iTz5$h5P3^?10NR2rUc{
z;o0G@sM%&OfkNG~jeUcbRai*G%H68|jq6rgw>Hyq-+j&bgnri*ON{c5iW>fc*9GHC
zS1eoS7__YD>mNvC(GTZx;apIjB0Hfsf$N)jC!|00qjJ1MEnnAf39Q}#z8!uB)>=YQ
z%fQC<>q+`#wczLGzw}lYKnm2dn<PSgaC17w^$4+=Ym`;WwNU5sHP40cNMRDqY6z@!
zOuCsw&EhsGs$ezv^2n!QwrT!nUQEenGYV&m9E&EB;Zz`~D*LJ>Yx)mZXt#tXfsq1Q
z|GgqU!&)PVG!?>^S_F3@^iOcYcqM(Y2rFDtV)f?qwU(N<T0W_Qlqt5XH$8w7bD>4;
zOC*BbaJdsla~8hpX0S?N%~~T+E%utxKYFebI<a`@HRA<M>s3O4w(#Eon68qE2ZVn_
OLvASH-r@i9-+u!Kf`t13

diff --git a/8080/CPM/cpmfiles/v4th.fth b/8080/CPM/cpmfiles/v4th.fth
index 88959c4..66ce9c5 100644
--- a/8080/CPM/cpmfiles/v4th.fth
+++ b/8080/CPM/cpmfiles/v4th.fth
@@ -1,13 +1,13 @@
 
 Onlyforth
-    $9000 displace !
+    $8000 displace !
 Target definitions   $100 here!
 
   include vf-core.fth
   include vf-io.fth
-  include vf-bufs.fth
   include vf-sys.fth
   include vf-bdos.fth
+  include vf-file.fth
   include vf-end.fth
 
 cr .( unresolved: )  .unresolved   ( ' .blk is .status )
diff --git a/8080/CPM/cpmfiles/v4thblk.com b/8080/CPM/cpmfiles/v4thblk.com
new file mode 100644
index 0000000000000000000000000000000000000000..2e7cf411b90d72295d49293e12af1569517c79a7
GIT binary patch
literal 14464
zcmd^mdwi7Dwdj}cJ(Ec?$s}a*<u#9FCLv@dlY~SN6DBhgGG;O}&SVH`1OtQsjzp7y
zJQ9@B9&8&aD%RH0M#HPvV?BZ%1S&1$P!uj`pm=+*R;N5}H5DQ1a6DFW*V=mmw13{;
z{p0?A*Pltgz4qFBuf6tq?+r8ZSOqhZ4?mAqTptm~82oRH`Mhxk!>E}rE1$3WyGb>p
zfPnvh__Z}hzp6X>P;X-()Y?>jN0p(cbCu0dWxJ!I<J=`R*RAHd=9}k^eZsH|!-j%e
zbAT!AOqPu#K0U1H4Tha_J+vptN+FLcFxL~>nln1p$(B7*_Nd9pHZ+fvvjglG@OvZs
z4g6-<1uX9m1cLbaeO3&FymP#MN3JG`VYjkuxMEwb%&^;8HUwX4hJA%)-N9|S8iw5u
z$c>F*PwTeaRE9mm@(s?gXIrk8Vc&(GNNX?xJsAx90V{a@q>;(6pRgKFC=>`aIsI;*
zC$ueh3d6=(d2YZ}?(_Pax8>>?R?Tq{Tti`4h2z4(+2x#(VP=d>0}6`~V65X}UlZDE
z05v$fg`4VQNw){v#s|2V2>`gG2*-tjvsZAy0fMju+s5^P002Z-#eJtPw3#C;>M84;
z1aIQL6RO*Z!+_~#fSx1Rzu?%=?B6876!Zr7y^uQ;2%bTx8Bq!5+Z^wi=WYEfLjC5(
zoA8e~G2-`o!qCI8*Eyjcu~PY1{~JgD%8`*gFIL=z&?1DMNI-LV$urO6inMy}<YOaM
zK)Iclf}RkFOG^tMTW?;{O`uMmb<Lj7$5vPvvf(yp8&~kL(Oxon7tc5Pyurs|>dtP0
zu!@&lt${gne4ed<wf<L+5xgh)q}e<87;HYVaX!iTI?iJ5A^pGR*~;0+_}C@08E|6f
zZXzCr4&$FGruioN|K!;+<Ci%9#>dR-e?ZsxjOUSY$wG`w$qIb9%^6gL*abpZy1=<3
z!BQc1i8PG@Uk~jW0y1T`K!Ftkk0S0DMggk~nBoz*P@r`_v@ekMT!Hg@gDZsCD4Ar5
zAVmCbPv~&~&;ct2z8pqu0l<Yzbg!EPKInBdZx>>vGj8td1%VF*e7?A16$ZJNgfh-5
z<V)MRG^slES7|DN;TiT-L4c_cXApWR24d-jgIsm$hBS)ZDDLGE`-~t|;(pa4u51*T
z8S8u6%GUQTh!MgWQK&@jl!`IRo<fnY#Qg*MIZAqkm{isT%^b3|29XVf+MwCLw`*V@
zJ=>tjfu2PXINUX`odOq&+`K?&0|H;}8u%3jt`RwZp!LUMtl!=>V5hLnVp91p#nITn
zv)%nKbdg1dMbYn><81Z(PK=d}JTEfr8=~Z<ptCUJ^Up4*V_s;hV}9OU$875&J2@`0
z?y{?*QDkP!f7Cqpkt4C3vDm=(yZfK)IzkXW5m`rBx)d{$CDamISyl)w+SE&IRhbQ&
zv~88x>asd1md-P{?<V*X$rr=cO01*&UI_?8OA&&3%DbRNn-9Xc@>PKS_X*0cZi#OV
zMLdq&i3x^%LJ}ICzA&`Vsy-zpRnV`WNl6YzZW6$DN=cQDT(rHfN=a3YTn@etNJ-U>
zTpqqgB(@w7ajH`i8}NT5#p)&=GgCSLqr`!s9G7CRj{HSp*iR+S=WR`r)!m%BizBpt
zE%7dZWdY2>P>@DG4iHbsNknc!VkVZ0MzxwbshyCX(q86HYIX99T88gG_`88a@ASVs
zK1W{rn|F*86J)|dnT^a^ERV)c&5_SXWH6ru{D7P^Yb`=s5IPbC%iaf=b(>|-k0sFB
zBq!DV3>*E>cur<3X6=z<rIWbB0H`}C$NKmGcT|4kXkvza0KMxyfWC1e0eMH}DrVJP
zK+q)82XfL~U&6!#hmJ<&{)6yqBmzrZk)=qRx3$UZPgj8&0JUcdR52iIloC!z6jYqM
z;;u>+Oc%p}qcCu)ign)=SK5Vfc{BVh7g43^05}VQwc@yJRLhK2Tqs}Wekw<WDACZc
zijTB7=MBJGxYWO>#t2*b5bX7DrQrIJ@2D8|hbj&*cO$4pCXgY3c>M<`gd)AB5<T-;
zJ%0DQDzHB<16}{2;+zfPKLf4%$EUGWMc!BOZUBCf0FL|t)aFx_*bs91T}>+WgUi6k
zl;yZvh!wn{lIm%XS&b}Jfj1-_*=n&N0LCkPry5i~VX7+Bn_zVxxbJ(^;Al`4CLNGR
zy|Kg{SPIBge=l+9iZBc)13x#4za~*1RDZXm-W}KqxNtPf)o@75)gvnK_CHjAuLNg*
z6=$zLdPr@qK2gr%N}zt=)(B-g)&EjbhFIqiYtqCQzC3<NP5Mu$le|~43ympp7gPg3
zRVUpoC*x$O!C$Di=4|KsIfjob+c}>Q<pu=3uuHTG{hS_bZbtGT`HS{fFQ7GLcno#$
zC$2Ol5A&!Vd!(l1asD#*wr-f$@YveRcWT}6`=dgf8R4hpYO`kLir&7Sm5cgT_H-`B
z!6yC;8H(Q;{v>GDJB4oe?$r8(->`dmACRH|2`Fc5vQXFJ3^m7<PVEqABf<_Pi)9I*
zFZn6$NHPN7O_u9Io^Zf7*Mqn?hhEsr_mR$v$-*o;i!Zs8%#oy#XWfRrOMFU8QFR)z
zKIrs@!f|Dn_)o;+I@2_Q3xcouxf*hU3pE3WKo`#u?eS?Eyp3^XLNcoVn7l_q^raei
zYm>(xSN^2hBTd(QPRLoOaeKf5#uWrjND^S{h0l}EkP%xno(2!Zg>glt*+(F+XgqCA
zULWA^1N?mwoqs~QF(HF4#+3q%RlpW1qMA{`Op^M_1g`#DO=HLt^f+7T(34t8{h<as
zzSejm{#Gv-Je=~R)|h~2q%^n#xPv7?(_3WqsVOcHScE-u6Lwb$QG~ei78(7D`lL3X
zrhB_5#X|&ivhVC|ebJQf`8*IdKa-LWYmicm*2c=_md&SH3Fb4EFU>ylW=hU!2LApI
z|E3)Mx0H7n_Q@13(lYhkl+oBR_rR%NrCjP-?S?<2cdJe_k!Zrh9Zz9fref%@TSoCU
zs(I!xNCLKzJBP*X+*WarJC(AX^o<g0_P3NI7;`Fx1{cOuwsLAsYOIu4EIYL9?$lVn
zlvda^P>B9|LI2ZT>wa=(d20WLu60>&1DU~83Y(U7bU`Y*h9fj+x+_(TwAfn$?(d~O
zxa`R2g|UIB`+sugk<|Xq<x}Kyrxv7+UU~?Ax3wSXIC73Gw>DKE18DT~CzX#7E;9o{
zBWz=1>Ol@Sk_j8}2}ZSs!H5TY+NAf0!u)G0kLzJzbV{|Idp#A8`){d9_PFvzDmBeX
zX&k}$B9-npElrp@Ip!Mhg^npqW2eF(YZ@IiJxz#Eq#=m1Hj-)GX=21ZIdVuk$ZbsB
zP7DYB#dYVU39c518aJjrxXg4vdt@}W`n3~3Nn3Bu&?S%jFm3AnY{C?;NfQZT-77aS
zRb^xFKj6Qew!SPQH+kgHZTQ1!JkI;UO>FcrKTI2WBkc+WjUI^|JEt4DkOt9Tnh^9k
zU7$XHON)|t@CJ|t_Ptfn#^z69%n1Xp)$)yApU<u(w88|ic7wLpoIFyiy+x@-D?p@x
z$~z>L6I0^T@=czQr%RizVIVom8QBRtpRX01K3|}9;3o7dfc9#WrlED(%kPuck-^{B
zvMvIOf(50ZpJ}<E6ArKw!j6VUBA>t3ZgK@$g2V=FC*klQH_TIOctp$FTfGgA-0wng
z^r4nFLxbj}pKAF!(qPm7pUCRj>sqc3d_PI2pG@Z(e9iQGYdRkeIuji)rgK1aT)Ckg
zCWrM(x^Pd#6S@~nRk}_NPP6Y$ALg$C3pb}<m0o}!hQD;|*7>{zb2WQ|U!~u6iXW%1
zKXmltbU4Xx(?J;k!{zj6XZ#b!34&1wX>@9aWDmE7y#6_}G9U#&*=o!fi(SaMa9ey{
zk-@v1!7%P%=KPG^Z?C)2@y8qM-h1D$08CXRLxN6ktJAkWWAs#K2F-SQGK5GF63J&W
zM#HhpEO77hp|96G@?%)^$qb>SEf8|QO6fY1JUVqtdd}E|u}koG&2!zWw{@L4pTVuE
z+>*Y!^6B)^*twB3o!Q-jV)|JIZ1A%T*x;WtE<yWSXu~gPUqQOpJ=eW<TNl7JI<sj@
zdTiZufwkM_TuR6*=Ch-h9yLRMl}>rg4613-)fjHEbZ3Sb4n#sO50f`u!m#x^sf4!i
zNUkN0$*<#)dI%46uVkR^FV+b`X9yK#kZaOyhC`c~;e#+^JC~I)2tfyi8{4^<yi44i
zK2A=0rH=PITVTKe^FunTpx186xJ=B*Zk-Trg-nP_%kOj^XV~TSQoJ;&oySN64SlJM
z3!m2UCWz;+>u4BMc23bjCcO4ELsNt+I(C{VuIOabfDYq?G*CN{=weFdcS@k=D;>^a
z%{&6%C$-ZuGcvJVow>2ZMtb$y)i#8<Gmj$Rr1tIv%G^w62~J!(ptBOS?aFMhO+x6H
z)tS!rxbgxp18q1m<*+!jI4ccVAc1>AZf;JeS?don8`=TcYncT6d#2d#_jue8n*3U~
zxF9N+_|1g2<C$EOXC5xCeIMc{B<|x($?b7@TQH~5$?8e)7n!0PicYQdSy|~?Vy#Bk
zy<c%YD&J6_w`bi*hp+dg!)Kzhh3UQoX+vB=8czdX<BDE;MxsX*SK1^!VVOEh?R2>!
zEfF6a51^2M@qKofM_<}5(61}tbCIU|vLsi)4>be`N77&dT^1$|U0IU)%ZWBn<G5nt
z-{Y*JN_dZZj<j|1G#{iKdO;`K#^nf!cKS1PvZYmHRI3=+*e2;Rr<02&+gjRg`log=
zwq<6Ygxxqbq+eN_JLub*GciGzRe>;~42_EIf=W=P4D)GHt)Ssm!X`orLe5CzGDf<}
z6e_TpQzU<+rNI-bk1Ox9vT<{|Y(%-m15>7aC=E%2Kpc?Cv<ow{c4xV>baFY8lFGct
zZGuh;JPCZzFnB}>q^#5O?yRn?hAA_%3Z}pyXdBg6CxTh~Nslt+sziGv^&d!_H*bna
z35hEUr_>4<btlzhoWL`uRJhyN6yE0yx1s_;T$w%0*ODZS&E}iDZaBD<Y$Tym8s=?z
z!#owCoNO`Vnd?Cb!frKm-|DQ%eg|rvkx<x+@pgSSo*tcKKxpS95S&DTb+~jmTjgzO
z@wmN2LUi)%PC#bZfovJ#Z!oehkOrOn1ch$RR=XfX41v14nh#{B%S1*YOdO*{$d|Ll
zCgNA)$}d66Xp~>Z<x5tOHnb?e1TOBAUJ|fp9s8eY`?EK&2*V{$z-~RxARVfcMe182
znn5TWVXD5FO9OUc=tVOKt8g|uRgWo9svc)lWsmc?SFkLJBJU9$HSPI&vE)uy0C~Bc
zLk7=R=%S1C$J_x=xDE|PRIigyy{J8@y+@Dq^y`IsSlUg^+VlFPeh4b`m=m3mhV*p!
zPQ4q>0FnV5a7YiQ;hmFcy{&HqUfgWHub0}KAwM`Rddi=ZnUEAbwM=3zj+?PPq}-h;
zb*^64+t+KzBBtz;UT$$Vd**sQZA{(}6i$peQi&@Bi39AXQ>zD=*2#s-#ZK)kNz_iu
zc}k0OVg%BuRb^w^*AD8kPWy!(={Kr#AUPb;kMmaHDXkqgZRpIllGIKm)MsNF2b`dM
ztIQE6*ZH+huiYa7a++!@W?suytm=p^TWna-@o;CGG%E)=@UtA=-{`DAn=?wvu&<w(
z#zI;2(z*5K%Y_T3Fgc?a*2gXzPF&AHrv?f3jhul)v7_g55*4izIYJ$EF<B5lSs{SV
zV`|0Y66T7dIknK1nazS#yv#}Jk0)s0t5U=g98=e%z?yU!5~<&%2n3Ge(g>!nod?>n
za>O$<a+#|LbqxVGL@xQn<UFPb*aT7Nq$WraY?K;YIhU~t#d@P!WbV#P>Q69ywM_z&
z?#|@u>+6r3kps^w5@p!TxUwV1kc|gXm$#Q6k}&IL*#Ds<LC^b2RDVlIb>u1nA|K_*
zofx-b#)nBaiZa8>xiXk#&^SM6;tn`lIGi!8ACQVdL9RU48S*+CF#p_<Gns?W$`vCC
zMYIYAU}mGJlP3nj@T5d~J9|2MIy($YRz{=Pr3Zv@qJiODJ`(nXaH4%ud+v+4lmh2Q
z!e*=_em@t&X0H=G+>RU+RZ#0mu4)*}ao0f#D}hA?iE1Po7FRY&)n;K)Pe<=k+|A3m
zg4@$b*O-w0lzVeKW29#Pw_J8Ey~X**keE%*lfayXJbq#%8MX-80e>shoZ^Z$&nn;!
z@ffj{FV*GYTGe?xR5Bqq*1{oxGy19QH)qZ5UevL0WwfJbjiI-%W6?u|4RwI9PtxX%
zle5CH^YZxCKo~ZPW6`?e?hpYxx8|wgn#S1xZWRMx%64RZrxpeGDfqpYkLpj|qsODi
z5wGP5<TmS%c??rK11qZ+@}P<yXhlGe{aPNwewD`u{63gYn|D?Ed)@-F1u<WRKr$9A
zc>Wl`JMwXxR721u_=G-bFK9bD7Nh!a#N*`VCj*<kes8N6WGAlR25p3vxB`_NDP0*N
zCM%pTKvamwq0O5GY+C}p?~3~2eBA9>bwIsOI&Ze+Jq#-{?7DmbL&(Hzc=+FzpN4v)
zQLSaNY*^kOQjVJ?_2milEU0$v{2<q;90VtOQ}NC~8Vc@&>R}sP8-T~5jl(1++nq0z
z0Nw5>1+md%%H_g<j+lx!j+Pf3$;C1b*pu~_3lE&QvmiE7P;k!d<b@NV0_E_DmV!})
zm~|ud@MShbijQ?wO#!5hemAlJrNk#7%dix~gTovENM-?=m8fto|1yNVC_RJFtA@<I
z6G}gS1~Wq=k_QTstTeLI@P6>$$dX+J@7$lr{2quaFBj01?_j~m{Z`VZ5$}5i$^MAX
zM^hGXWXPD)Q2sFS)P#Lpkm3*6Ncl8OkBdgkB7<?l<XTLj4EGX^Somb}w1o_7DHKTr
zA7b(rL$kI}<pqTZ1w$UtiJuyNt-Dg7;b#|O_=d-^xB$&qKA3*wH(WtLZP0JlEb4yv
zk!8_NL-&g4nuSv|yaUYCB(j!y6Iek}vC@vg3!XNG>V;Cd6pG3?f?*pAo%drEYH{K9
z!iK`Pb(r`u?6JZmV8n#<bOQPzfqqcPm3TppZsp3TB`BFt-OnR+y%pVkhQ*yrI(wif
zi4$EbY`_sO7gz<!@Hi=6;vt>XUN1z-=y=ftlJ-+Da>;$mx|a4)1+UM>z$Y_dzGY^<
zBEi}BNyX)8nbO?L7WFObUV-)i4I-{pWDx5~g!3~4SUyO@a=_f;z3afU{VyEdZ#eZ3
zJI4TNEq2PJGq(0O=T8}qo-(X^>r6Qd{Wx`UnAn%jhac%%gVSy?NH)xqB4H+P3yUS*
z?SyWI{a=Rf1|#7nWC)hRuy`=YePtNrXpuF^DEk6VH&j0oDVD(~KrI@J5FZrF#xkR9
z9D~0vKzNHGE{3-+z|S|uWyZbyHA9G;kHg5*A+;cPL(&W*lGJGwpc;r1Vb0SiMhSGS
zk#B7ZMMxGPECDWGQAdrhfHfeyfFb|f`<<J;uNYnB<={d0K<YnEN&we@Qw)33D1w;@
zw!$9wLSPt$kZ_mSK&n(1jNlPSPZ@_nBUZX;&kdtg5)46M1>~7(L<$qN-JQukV8CPy
z+^(Vfp{R|npf`yWm&r4k;P%rbl-v{X!pP5R{ib8-A<%>W0zF{ZR+C`G9wx6H@K%_3
ziiTwMb4|%trFRNfnGmtxl#E{2?F_lSc2Z$2NV>=#mo}tf@AD?n>TG})3V4`s`DYSH
zE3V8d-k*Kgw9~YaO!6NlF6@Gb2Y7MzClebo(`fRqCb5Lv{>PP_rsHNPo<sh&+IHNW
zWy6y|HA`jwV!|rQF#j3+rL%ou+EhZ8p_wkh8szq8Z|4NA8T6SN-mi3e=#iOQFt{Z$
z|9*1dNo}>6Ce4e@zb8bHG})g3t}(01TSHDSJVKbW%?!86Ib*qS`!bDHZWxZjMNaO>
zu$f^uo7o1RBi8`idfhBQc?b)52h0mey!u<SNFboFLr|8Mnd4?EK5^xBEe)<l&3se9
z2ZDD-`qVtme`*GyAfEC|Gds&1S3Wg=YNoC;rHD0yL|H||`P7VYKJveyh!2zC8uKU&
zIm*8w0oe4SBp8mFZAV%=B&JZIU7f&?FbJw>6e(g0%nJnGQ&cNfsEi5WSXIQiZQu<z
z3j@M6RYuXeqIO|ckr{sbgq<+eF7dpXmI{7Y#3G_zIHhVAo-RU?-YDWC2*V02g}hzF
zx@`z}x`>8{=Zlh{eM<Ea88BAFMo2epehpIsMN|!NEwE<KsAj02Ax?RizfrVLLZ^&t
z$;F(@4hJwB4xqZ2^V!1=cyGe6vx`-54TcBk^4wQkr>-n#ja;|MMxSE%ilOKOAs#;W
zSY8YU!38%r=oXtfbcrI|PF#liB}P0l(^HJDqZv#RJ&0As@Lpqb$Urd~_*fadF2Or1
zbkbkrOOhibD&1Wydc$b1w&g-(bEa5s1U0^8zdkOOX!q=Ii_`OHc!^cnYsG@k+v077
z8)vvaR#`Ooh^M?E(g*<~7|ps;hRwEUFsiu)Trd?beJnzQ9m<t34rXy$c<_O9QPHTf
z1xR<K(UB{Ydom0m4jkQNF|U7<{60i}AB;g^@Ii}M;tGU3^*^?d@?(1HWQKbrcIjBo
z*wlHJQ;%4V9=42*qUpah@>kBZ!h*Yh{phG=vL;7S#-^^YV7*RxEEk52!F!Q1(>%+_
z>lV07w8$lHZ@3w>FAmvW2DrKI9;2bh(AN!*o%+BR@pg#Umy1|U360B`a7i5tyL<Ym
zHypP}iQ!D%w=iF&l?&M+H{1x!Xt0V6kex>$k%q(vf*n+l0E0O=7EO%mD&`s#LoUM4
zP7`AIAacX-_a*2blA5eWbvoEq@v)v|eVv9`R!RNA#4Iv+LYjDdIg}3eCQ1i>tLy>e
zd@mdj=1^AQLur<TVu34<SZ}R@^~4jPk&Q4I!#}xE+$_M2BrK(cr3A=E7L%3!a{^0I
zab>QB3SkDMY8Y73+Ky5E>BN1OfnuxBW<@NB)VNylAUIJv`9bh1d-?4g5^<m9--_u>
zG?7dN|3AqLdinOI6>b^eq~pp~i&dmC-l`I*go+zNwIwwrlV0NoC1Obf6@Kg(wPIJC
zIFubF;^dfbino@a2>!N2NFaYx{0f1bDM^O$&E=Do*-0y}Vakld{3|71%Vq9Xwf16(
z7zw%)6`3dIT7Y#@nnVp`MrlgP?RpVckSF(*pwEz*HaM>@C$gv0{WGksG=-eeq{2{a
zoDuQWz?BggF%Eo1elcu&snF;nv53VIEk(#6K;XVLk$3%~G@0a;lRMs33iT*B+FjyO
zOTM%a>TgRehs9l`<2?4@?6?-n%v=jKBmY{ehFee1?GvP1mRfef0|len#^A6v7=!|V
z-@71Kl|c;f&J^1iAnb)ja0w*u3L)s$_7LY_DgH)_HV!9*;&fF?hY@@E=BZm@Q&`b5
z((=+>Q~4559r{oS3v>A^x()7SJ)MjC;7{*E25-R7yYi7oi0T;)_=M?DRdK3Mcy#Iz
z(VQrh<F<3{g4Z%by+l0|Vx`5^wLr6)SyinPBoOc?s|lmUO;SLODaNgldtkP4{#R9K
z)F(x-e=6_uh9Pc2?|*kDA70dB_=^dRe`E0w-1`<m2y_MVvV-7J5PrVoih5>oacUzJ
zs$T%#gpM`}UKk#K(9|41=PLtHNM8t*+G0H|)28Y%fgFSoluAN7NWvi32O5PCRM<99
z=z|=NLA{!<EF`I(jXB6+8RYx~LL+5HwVpwx&X*p9Zw>V3OO2qJ>r|5Z-zVOKLd`FT
zlBASDwG!_HslP$tt4@UEsZjXEir}Cu!31xSZzL9{qoRWWdlY#2`$T4mq~i?Q1ks<B
zZHI+0^NlObKmf{4Gl!B>0`()5m`-gP_;^eLhIuq6D3F-mVJ%2fpPs-A0nDjCEAv4P
zY=BW$)KKada1`eLpXFUq?}hAyX2rE4mUV9LrMWf3UMx#-MZ&FtmU6mV3=ZRpPiUUD
zX_|f72h*@xxl25ojqfOiB&^M$44<4Pkg_Tk^Q=NM_t7-$$DX8esRWY$IhfL6{i)il
zTGngmUGwn5?r2ZhN7E1|w_Kb=!SrZC(kBh`3qh1skMwl+fgpD-PA7v=k#1!_IJCZ8
zAl3m>G#rIXPe>N{G9*%ywdFh-8>9?7Y1N^RaIo_qst(QE&soUcl4x|it(<GP7e-ku
z%cmn}dHaZiMi`qC7vX2i;nFC8bzQ9;Bac{ltehI*ugbZ47x=~B+GZ9H%8(=zY2J}z
z6<*ZlOQfvQ&R-<%q?s@&%_h-Dwu#Cb)Lkwn_&3|edmx~&+aNT$-^RK^b{m8~T{gb;
z-k`^B0~S1L<KVT2-3Bj_25fxLIS0T{Hh9v;I$;<*{Ml;boUQeC8@%)Vg$<rmg00wL
zqqXxrHqI4*`uh$WCh}Ma`Ue`X-A3a9n@FDi-Xif@g2an9uGw?%S)}lWjfc<rvq+=L
zF2W5FRIJY;m05OpUKRAXTF)Y(48w;>;U5GNibZ&m4to(6ic<37;>%u4>P2G^dIjvo
zq-OIf!0)#gVL1#6OKg|D?6&d{6qH!AUAAJu-$@f16o_`y^}^MrpI86LJ|USvBm@wN
z326&^z3_LY{n<NBp+cIJeAg~mfelcVKw1Ae+ssipfHDu3NrTU*2Enx*<o**LD&2lD
zT$O*P<+$CN|0A1D)}J?PS<HZ<wrB0QpWoVfoHM^-YGx7!nCY6N)Ow7jQjV5ZB%QJ+
zz!-kg6nyOKboFGcHU@!c-AH8xV?0=Faxf$$&8&b|;ADS~RwO-VAE}<4+1&zjkCDf_
zYu`M&v0~i;_~mYyDl#_4q_d<mpXZpSB&9Qd&oNO_#vWV-FUCgrq*#mue3MTKJ1Zm;
z981X6bhd)tUB@m!;`C+(z0W=WW(5cJ?+cg47Myx8BRn53bl<E<hVOL;kA77Vy!QxR
zCLcSOj2FEQopLULMi53%q&i|pM%Q0B=584qxmqzg8XGOUM3+xIbUa?cxdUOWC+1IQ
z^FKi;5gNRKu(QK4HHjI`&B@6bJ=V~Cs?~7>ZVyR`yv-rNd!n#&qXUX<EvE!#<PitM
zu5s`<F0L$aP%-}z001qnY)Aka9h|uV5)K(;_BHr+g&esl@ckBi`yk9#!}mK5-s}mx
z9J%n0lsyNHRwq1yP(kA_&;XTl<US6K&!N$P4G9{5hw+UtUIX8%N)Q0QF|Hh!e(XSr
z$f^`dP&+W4+9xe=oQ9|v;g(7f%p>$*$6L^Wz`9Bvk>g5Fv8~dm{_lx7l?=bUGB$9-
zaHh91{si5B7^Xz?5LcE~=2iBP0BB7m2Uja`WyFzJ`7Zq6Y)`>#Kyh5z4}b&ayh{9w
z9WOx#7zbP#u4Mplu##`}1|jsuyccSS+J(d+Q$C)o#Hbw}yWAVJZK!;<@=WC~E4Q##
z@d(U?=H0~qvJx*^8TPN05-dpXtM)taN)onOb(xFb_B}$rHQ>^AL$T+$856gKHjIcH
z;X+pr7kp`Cu8b<FgxZd{f|x@RzR*B-i>{5g7uYehqBr96t7PC>LjX!1U)b)ev{mL+
zEv-U=eozG&7ThR0a-V>+*<OYJqJm~zGL%uF@Xo&IP=kz=lX?O$BnEfVQ2wjp8eMSg
z?J($kl>iEej%)~Sky3V(bGlq52ZA0yriK`lrEPGWA?tlprE>WKVJKnK4(()zt{Uzo
zo$m6m=N=r8ISHRut!fLwE8)qGtjP{{HScb5f*k2&g|7KPH4oI!CPCl^LPa-$5F8VQ
zyjCT-Lvu0HWb$6CrfKAcYPhp+bVhuzg_o+YN*`C@<AwufymThEt`i<AT+?C)Tu?#~
z@<H)lehhxZ>S}W~6f-+kM*9p)u-J;#%_ZF{S1dNZR832wyQ{S%s7D^s&=?Zl^63oA
zPfsD7D8Fs(VScNq;Xke_go$$&b*!-V85TvmdpogWii?!vBBYe}Y_%K=gj;<PH@pt{
z$@I9gWIBo}G6G#X8tPpl{`RHmLH?-3+&^8gg}wK|iQujIx0zUTlfui^cFr_dR!zTA
z1Q}bfqpPzQPk768xF9U^%ma2>q1s|<6x$)((#a5ywu84|k}xtw#NQ+kfy;x$LHN=z
z6@=a>#Lr|T<~PV{2mE`NxT2}K3Osz5gbgwjCWhc`fVKvM2o0mD`B2(J!Z-RT^U`$5
z>v!EMFf`PFw}pE+7d^R9O$u$6(|@Kz7kL5}ngGG<s8N$%ryB;~HjYidzh*E0D6GG-
zW^r}CR9lVQdbDO3LiL3*Ub1KzAG8K*P%pJLmpSZPS%X{NBRyJ!i3z^Fxv0gI;0|U-
zjaA638Av>Fgkma$oILDkH<>FFQigr$yF_%20ksBZy3An^e-UH}GXUkWj-D0ER&>oY
zM3=4TG<2@+>+D?IYk0V0wc(=n^CCPP9RPbe42za_^z<5*b*<=zqIuM|qb9Qk^Zoyt
zz)6v$l|V>4|Boz9117JjL1S<cqHBB=>&Ok#!U^+#^FK%KrP{4I&(+42XKO#H#ppJ!
z(C0Lm<5`7IYOy|WsTS`jGy0Y-#NvJLQbYHu&YmUF?#D2Mz*=adh=>Qd4In+A)Q*Gb
z;6#|a9EP589(ys^z*o_e!3JXdp=OY~X23UTp+bB~a+PEykJqHa(W7>h(}Gl7xxYp>
z4oTk>Uzz?*@nB80Sx@zglqi6to<2kO5~9RiwHQzDk)lRO>R`|}#XgXl>$QX2!aKHe
zv+qC&$(K+?X?cgJD4Zi1j2f}_4wW+;_O!s&Z3x|V>5LF~U+~&>ez*&A<YJL7Wrom%
jR|Ae*ynfA{A-HJ^|AEi-J7f~)!M~6r?+^ZuPwRgJ6V!^5

literal 0
HcmV?d00001

diff --git a/8080/CPM/cpmfiles/v4thblk.fth b/8080/CPM/cpmfiles/v4thblk.fth
new file mode 100644
index 0000000..14712d0
--- /dev/null
+++ b/8080/CPM/cpmfiles/v4thblk.fth
@@ -0,0 +1,16 @@
+
+Onlyforth
+    $8000 displace !
+Target definitions   $100 here!
+
+  include vf-core.fth
+  include vf-io.fth
+  include vf-bufs.fth
+  include vf-sys.fth
+  include vf-bdos.fth
+  include vf-file.fth
+  include vf-end.fth
+
+cr .( unresolved: )  .unresolved   ( ' .blk is .status )
+
+save-target  V4THBLK.COM
diff --git a/8080/CPM/cpmfiles/vf-bdos.fth b/8080/CPM/cpmfiles/vf-bdos.fth
index 2844a60..4b151c9 100644
--- a/8080/CPM/cpmfiles/vf-bdos.fth
+++ b/8080/CPM/cpmfiles/vf-bdos.fth
@@ -83,12 +83,14 @@ Input:  keyboard    [ here input ! ]
 Dos definitions
 ' 2- | Alias dosfcb>         ' 2+ | Alias >dosfcb
 
-: dos-error? ( n -- f )   $FF = ;
+: dos-error? ( n -- f )   0<> ;
 
 $5C Constant fcb
 : reset     (   --     )  0 &13 bdos ;
 : openfile  ( fcb -- f )    &15 bdosa dos-error? ;
 : closefile ( fcb -- f )    &16 bdosa dos-error? ;
+: read-seq  ( fcb -- f )    $14 bdosa dos-error? ;
+: write-seq ( fcb -- f )    $15 bdosa dos-error? ;
 : dma!      ( dma --   )    &26 bdos  ;
 : rec@      ( fcb -- f )    &33 bdosa ;
 : rec!      ( fcb -- f )    &34 bdosa ;
@@ -97,7 +99,9 @@ $5C Constant fcb
 
 \ Default Disk Interface: open and close                 20Nov87
 
-Target Dos also     Defer drvinit       Dos definitions
+Target Dos also     Defer drvinit
+
+Dos definitions
 
 | Variable  opened
 : default  ( -- )  opened off
@@ -106,35 +110,20 @@ Target Dos also     Defer drvinit       Dos definitions
    openfile Abort" default file not found!"  opened on  ;
 ' default Is drvinit
 
+Defer save-dos-buffers
+
 : close-default ( -- ) opened @ not ?exit
     fcb closefile Abort" can't close default-file!" ;
 ' close-default Is save-dos-buffers
 
 
 
-\ *** Block No. 125, Hexblock 7d
-
-\ Default Disk Interface: read/write                     14Feb88
-
-Target Dos also
-
-| : rec# ( 'dosfcb -- 'rec# )  &33 + ;
-
-: (r/w  ( adr blk file r/wf -- flag )  >r
-    dup 0= Abort" no Direct Disk IO supported! " >dosfcb
-    swap rec/blk *  over rec#   0 over 2+ c!   !
-    r> rot  b/blk bounds
-    DO I dma!  2dup IF rec@ drop
-       ELSE rec! IF 2drop true endloop exit THEN THEN
-       over rec#   0 over 2+ c!  1 swap +!
-    b/rec +LOOP  2drop false ;
-
-' (r/w Is r/w
-
 \ *** Block No. 126, Hexblock 7e
 
 \ Postlude                                               20Nov87
 
+Target Dos also
+
 Defer postlude
 
 | : (bye ( -- )   postlude 0 0 bdos ;
diff --git a/8080/CPM/cpmfiles/vf-bufs.fth b/8080/CPM/cpmfiles/vf-bufs.fth
index 8105105..6274848 100644
--- a/8080/CPM/cpmfiles/vf-bufs.fth
+++ b/8080/CPM/cpmfiles/vf-bufs.fth
@@ -2,12 +2,9 @@
 
 \ buffer mechanism                             20Oct86   07Oct87
 
-User isfile          0 isfile !   \ addr of file control block
-Variable fromfile    0 fromfile !
 Variable prev        0 prev !     \ Listhead
 | Variable buffers   0 buffers !  \ Semaphor
 $408 Constant b/buf               \ physikalische Groesse
-$400 Constant b/blk
 \ \\ Struktur eines Buffers:    0 : link
 \                               2 : file
 \                               4 : blocknummer
@@ -97,7 +94,7 @@ Defer r/w
 
 \ backup emptybuf readblk                                20Oct86
 
-| : backup ( bufaddr -- )       dup 6+ @ 0<
+  : backup ( bufaddr -- )       dup 6+ @ 0<
      IF 2+ dup @ 1+         \ buffer empty if file = -1
        IF input push output push standardi/o
          BEGIN  dup 6+ over 2+ @ 2 pick @ 0 r/w
@@ -141,13 +138,16 @@ Defer r/w
 : (block ( blk file -- addr )
     BEGIN  (core? take readblk mark  REPEAT ;
 
-Code isfile@ ( -- addr )  user' isfile  D lxi
-   UP lhld   D dad   fetch jmp   end-code
-
 : buffer ( blk -- addr )   isfile@ (buffer ;
 
 : block  ( blk -- addr )   isfile@ (block ;
 
+: (blk-source   ( -- addr len)
+    blk @ ?dup IF loadfile @ (block  b/blk  exit THEN
+    tib #tib @ ;
+
+' (blk-source IS source
+
 \ : isfile@ ( -- addr )    isfile @ ;
 
 \ *** Block No. 102, Hexblock 66
@@ -156,11 +156,10 @@ Code isfile@ ( -- addr )  user' isfile  D lxi
 
 : update          $80 prev @ 6+ 1+ ( Byte-Order! )  c! ;
 
-Defer save-dos-buffers
-
-: save-buffers ( -- )   buffers lock
+: (save-buffers ( -- )   buffers lock
    BEGIN updates? ?dup WHILE backup REPEAT save-dos-buffers
    buffers unlock ;
+' (save-buffers IS save-buffers
 
 : empty-buffers ( -- )   buffers lock prev
    BEGIN @ ?dup  WHILE dup emptybuf REPEAT  buffers unlock ;
@@ -172,7 +171,7 @@ Defer save-dos-buffers
 \ *** Block No. 103, Hexblock 67
 
 \ Allocating buffers                                     10Oct87
-$10000 Constant limit            Variable first
+Variable first
 
 : allotbuffer ( -- )
    first @  r0 @  -  b/buf 2+  u< ?exit
@@ -186,5 +185,30 @@ $10000 Constant limit            Variable first
 
 : all-buffers  BEGIN  first @ allotbuffer first @ =  UNTIL ;
 
-| : init-buffers    prev off  limit first ! all-buffers ;
+| : (init-buffers    prev off  limit first ! all-buffers  flush ;
+' (init-buffers IS init-buffers
 
+\ *** Block No. 125, Hexblock 7d
+
+\ Default Disk Interface: read/write                     14Feb88
+
+Target Dos also
+
+| : rec# ( 'dosfcb -- 'rec# )  &33 + ;
+
+: (r/w  ( adr blk file r/wf -- flag )  >r
+    dup 0= Abort" no Direct Disk IO supported! " >dosfcb
+    swap rec/blk *  over rec#   0 over 2+ c!   !
+    r> rot  b/blk bounds
+    DO I dma!  2dup IF rec@ drop
+       ELSE rec! IF 2drop true endloop exit THEN THEN
+       over rec#   0 over 2+ c!  1 swap +!
+    b/rec +LOOP  2drop false ;
+
+' (r/w Is r/w
+
+: list ( blk -- )
+   scr ! ." Scr " scr @ u.
+   l/s 0 DO
+     cr I 2 .r space scr @ block I c/l * + c/l -trailing type
+   LOOP cr ;
diff --git a/8080/CPM/cpmfiles/vf-core.fth b/8080/CPM/cpmfiles/vf-core.fth
index ba54d5d..686e8b9 100644
--- a/8080/CPM/cpmfiles/vf-core.fth
+++ b/8080/CPM/cpmfiles/vf-core.fth
@@ -1010,10 +1010,11 @@ Code (word ( char adr0 len0 -- addr )
 
 \ source word parse name                       20Oct86UH 25Jan88
 
-Variable loadfile
+defer source
 
-: source ( -- addr len )   blk @ ?dup
-   IF loadfile @ (block  b/blk   exit  THEN  tib #tib @ ;
+: (source   ( -- addr len)   tib #tib @  ;
+
+' (source IS source
 
 : word ( char -- addr )   source (word ;
 
@@ -1054,7 +1055,9 @@ Code "lit   RP lhld   M E mov   H inx   M D mov   H dcx
 : (        ascii ) parse 2drop ; immediate
 : .(       ascii ) parse type ; immediate
 
-: \        >in @ negate  c/l mod  >in +! ; immediate
+: \        blk @ IF >in @ negate  c/l mod  >in +!
+                 ELSE #tib @ >in ! THEN ; immediate
+
 : \\       b/blk >in ! ; immediate
 : \needs   name find nip 0=exit [compile] \ ;
 
diff --git a/8080/CPM/cpmfiles/vf-file.fth b/8080/CPM/cpmfiles/vf-file.fth
index 16729d6..f31925c 100644
--- a/8080/CPM/cpmfiles/vf-file.fth
+++ b/8080/CPM/cpmfiles/vf-file.fth
@@ -1,52 +1,13 @@
 
-\ *** Block No. 0, Hexblock 0
-
-\ include for stream sources for cp/m                phz 30aug23
-
-cr .( order) order cr
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 1, Hexblock 1
-
-\ load screen                                        phz 02sep23
-
-  \ onlyforth dos also forth definitions
-
-  : idos-error?  ( n -- f )  0<> ;
-  : iread-seq  ( dosfcb -- f )  $14 bdosa  idos-error? ;
   : cr+ex@  ( fcb -- cr+256*ex )
     dup &34 + c@  swap &14 + c@ $100 * + ;
   : cr+ex!  ( cr+256*ex fcb -- )
     >r $100 u/mod  r@ &14 + c!  r> &34 + c! ;
 
-  \ 1 7 +thru
+| variable tibeof tibeof off
+| $1a constant ctrl-z
 
-
-
-
-
-\ *** Block No. 2, Hexblock 2
-
-\ fib /fib #fib eolf?                                phz 09okt24
-
-  \ context @ dos also context !
-  \ $50 constant /tib
-  variable tibeof tibeof off
-  $1a constant ctrl-z
-
-  : eolf? ( c -- f )
+| : eolf? ( c -- f )
     \ f=-1: not yet eol; store c and continue
     \ f=0: eol but not yet eof; return line and flag continue
     \ f=1: eof: return line and flag eof
@@ -54,32 +15,22 @@ cr .( order) order cr
     dup #lf = IF drop 0 exit THEN
     ctrl-z = IF tibeof on  1 ELSE -1 THEN ;
 
-
-
-\ *** Block No. 3, Hexblock 3
-
-\ incfile incpos inc-fgetc                           phz 02sep23
-
   variable incfile
   variable increc
-  variable rec-offset
-  $80 constant dmabuf    | $ff constant dmabuf-last
+  variable increc-offset
+| $80 constant dmabuf
+| $ff constant dmabuf-last
 
-  : readrec  ( fcb -- f )
+  : increadrec  ( fcb -- f )
     dup cr+ex@ increc !
-    rec-offset off  dmabuf dma!  drive iread-seq ;
+    increc-offset off  dmabuf dma!  >dosfcb read-seq ;
 
-  : inc-fgetc  ( -- c )
-    rec-offset @ b/rec u< 0=
-      IF incfile @ readrec IF ctrl-z exit THEN THEN
-    rec-offset @ dmabuf + c@  1 rec-offset +! ;
+| : inc-fgetc  ( -- c )
+    increc-offset @ b/rec u< 0=
+      IF incfile @ increadrec IF ctrl-z exit THEN THEN
+    increc-offset @ dmabuf + c@  1 increc-offset +! ;
 
-
-\ *** Block No. 4, Hexblock 4
-
-\ freadline probe-for-fb                             phz 25aug23
-
-  : freadline ( -- eof )
+| : freadline ( -- eof )
   tib /tib bounds DO
     inc-fgetc dup eolf? under 0< IF I c! ELSE drop THEN
     0< 0= IF I tib - #tib ! ENDLOOP tibeof @ exit THEN
@@ -92,80 +43,28 @@ cr .( order) order cr
   dmabuf BEGIN dup c@ #lf = IF drop 0 exit THEN
          1+ dup dmabuf-last u> UNTIL drop 1 ;
 
+| $50 constant /stash
+| create stash[  /stash allot  here | constant ]stash
+| variable stash>   stash[ stash> !
+| : clear-tibstash  stash[ stash> ! ;
 
-
-\ *** Block No. 5, Hexblock 5
-
-\ save/restoretib                                    phz 06okt22
-
-  $50 constant /stash
-  create stash[  /stash allot  here constant ]stash
-  variable stash>   stash[ stash> !
-
-  : savetib  ( -- n )
+| : savetib  ( -- n )
       #tib @ >in @ -  dup stash> @ + ]stash u>
         abort" tib stash overflow"   >r
       tib >in @ +  stash> @  r@ cmove
       r@ stash> +!  r> ;
 
-  : restoretib  ( n -- )
+| : restoretib  ( n -- )
       dup >r negate stash> +!   stash> @ tib r@ cmove
       r> #tib !  >in off ;
 
-
-\ *** Block No. 6, Hexblock 6
-
-\ interpret-via-tib inner-include                    phz 02sep23
-
-  : interpret-via-tib
+| : interpret-via-tib
   BEGIN freadline >r .status >in off  interpret  r> UNTIL ;
 
-  : include-inner ( -- )
+  : include-isfile ( -- )
   increc push  0 isfile@ cr+ex!
-  isfile@ readrec Abort" can't read start of file"
+  isfile@ increadrec Abort" can't read start of file"
   probe-for-fb IF 1 load exit THEN
   incfile push  isfile@ incfile !
-  savetib >r  interpret-via-tib close  r> restoretib ;
-
-
-
-
-
-
-\ *** Block No. 7, Hexblock 7
-
-\ include                                            phz 02sep23
-
-  : include ( -- )
-  rec-offset push  isfile push  fromfile push
-  use  cr file?
-  include-inner
-  incfile @
-    IF increc @ incfile @ cr+ex!
-    incfile @ readrec Abort" error re-reading after include"
-    THEN ;
-
-
-
-
-
-
-
-\ *** Block No. 8, Hexblock 8
-
-\ \                                                  phz 02sep23
-
-  : (stashquit  stash[ stash> !  incfile off  increc off
-    (quit ;
-  : stashrestore  ['] (stashquit IS 'quit ;
-  ' stashrestore IS 'restart
-
-  : \  blk @ IF >in @ negate  c/l mod  >in +!
-       ELSE #tib @ >in ! THEN ; immediate
-
-\ : \needs  have 0=exit
-\      blk @ IF >in @ negate  c/l mod  >in +!
-\      ELSE #tib @ >in ! THEN ;
-
-
-
+  savetib >r  interpret-via-tib  r> restoretib
+  incfile @ 2+ closefile Abort" error closing file" ;
diff --git a/8080/CPM/cpmfiles/vf-io.fth b/8080/CPM/cpmfiles/vf-io.fth
index 61860ee..b5c6d83 100644
--- a/8080/CPM/cpmfiles/vf-io.fth
+++ b/8080/CPM/cpmfiles/vf-io.fth
@@ -8,6 +8,7 @@ Defer .status   ' noop Is .status
 
 : push   ( addr -- )   r> swap dup >r @ >r pull >r >r ;
                        restrict
+Variable loadfile
 
 : (load  ( blk offset -- )
    isfile push  loadfile push  fromfile push  blk push >in push
@@ -45,7 +46,7 @@ Defer .status   ' noop Is .status
 
 Defer prompt    ' (prompt Is prompt
 
-: (quit       BEGIN prompt query interpret REPEAT ;
+: (quit      clear-tibstash  BEGIN prompt query interpret REPEAT ;
 
 Defer 'quit     ' (quit Is 'quit
 : quit   r0 @ rp!  level off  [compile] [ 'quit ;
@@ -159,11 +160,6 @@ $20 Constant bl
 $40 Constant c/l        \ Screen line length
 $10 Constant l/s        \ lines per screen
 
-: list ( blk -- )
-   scr ! ." Scr " scr @ u.
-   l/s 0 DO
-     cr I 2 .r space scr @ block I c/l * + c/l -trailing type
-   LOOP cr ;
 
 
 
@@ -187,3 +183,18 @@ Code pause   >next here 2- !  end-code
 Label wake   H pop   H dcx   UP shld
    6 D lxi   D dad   M A mov   H inx   M H mov  A L mov   sphl
    H pop   RP shld   IP pop   Next   end-code
+
+\ file related definitions moved here from vf-bufs.fth
+
+User isfile          0 isfile !   \ addr of file control block
+Variable fromfile    0 fromfile !
+
+Code isfile@ ( -- addr )  user' isfile  D lxi
+   UP lhld   D dad   fetch jmp   end-code
+
+$FF00 Constant limit
+
+Defer save-buffers  ' noop IS save-buffers
+Defer init-buffers  ' noop IS init-buffers
+
+$400 Constant b/blk
diff --git a/8080/CPM/cpmfiles/vf-sys.fth b/8080/CPM/cpmfiles/vf-sys.fth
index 4686808..8c9ce96 100644
--- a/8080/CPM/cpmfiles/vf-sys.fth
+++ b/8080/CPM/cpmfiles/vf-sys.fth
@@ -82,7 +82,8 @@ Defer custom-remove     ' noop Is custom-remove
    voc-link @ BEGIN  dup 4- @ over 2- ! @ ?dup  0= UNTIL
    up@ origin $100 cmove ;
 
-: bye       flush empty (bye ;
+: bye       save-buffers  (bye ;
+\ : bye       flush empty (bye ;
 
 | : end?    key #cr = IF true rdrop THEN ;
 
@@ -146,7 +147,7 @@ Defer 'cold    ' noop Is 'cold
 
 | : (cold      origin up@ $100 cmove  $80 count
      $50 umin >r tib r@ move r> #tib ! >in off  blk off
-     init-vocabularys init-buffers  flush  'cold
+     init-vocabularys init-buffers  'cold
      Onlyforth page &24 spaces  logo count type cr (restart  ;