Update cpmfiles

8080/CPM/cpmfiles/v4th.fth

@@ -1,5 +1,14 @@
 
 Onlyforth
+
+: .pagestatus  ( n -- )
+  cr ." page " .
+  ." here "  here u.
+  ." there " there u.
+  ." displaced there " there displace @ + u.
+  ." heap "  heap u.  cr
+;
+
     $8000 displace !
 Target definitions   $100 here!
 

8080/CPM/cpmfiles/v4thblk.fth

@@ -1,6 +1,16 @@
 
 Onlyforth
+
+: .pagestatus  ( n -- )
+  cr ." page " .
+  ." here "  here u.
+  ." there " there u.
+  ." displaced there " there displace @ + u.
+  ." heap "  heap u.  cr
+;
+
     $8000 displace !
+
 Target definitions   $100 here!
 
   include vf-core.fth

8080/CPM/cpmfiles/vf-bufs.fth

@@ -1,5 +1,7 @@
 \ *** Block No. 94, Hexblock 5e
 
+$5e .pagestatus
+
 \ buffer mechanism                             20Oct86   07Oct87
 
 Variable prev        0 prev !     \ Listhead
@@ -190,6 +192,8 @@ Variable first
 
 \ *** Block No. 125, Hexblock 7d
 
+$7d .pagestatus
+
 \ Default Disk Interface: read/write                     14Feb88
 
 Target Dos also
@@ -226,6 +230,8 @@ Variable loadfile
 
 \ *** Block No. 85, Hexblock 55
 
+$55 .pagestatus
+
 \ +load thru +thru --> rdepth depth                      20Oct86
 
 : +load    ( offset --)       blk @ + load ;

8080/CPM/cpmfiles/vf-core.fth

@@ -2,6 +2,8 @@
 
 \ FORTH Preamble and ID                            uho 19May2005
 
+2 .pagestatus
+
 Assembler
 
 nop  0 jmp   here 2- >label >boot
@@ -1543,6 +1545,8 @@ Defer parser
 
 \ *** Block No. 83, Hexblock 53
 
+$53 .pagestatus
+
 \ ?stack                                                 30Jun86
 | : stackfull ( -- )     depth $20 > Abort" tight stack"
     reveal last? IF dup heap? IF name> ELSE 4- THEN (forget THEN

8080/CPM/cpmfiles/vf-end.fth

@@ -1,5 +1,7 @@
 \ *** Block No. 116, Hexblock 74
 
+$74 .pagestatus
+
 \ Rest of Standard-System                      04Oct87   07Oct87
 
 \ 2 +load  \ Operating System
@@ -19,6 +21,8 @@ Target Forth also definitions
 
 \ *** Block No. 117, Hexblock 75
 
+$75 .pagestatus
+
 \ System patchup                                         04Oct87
 
 $EF00  r0 !

8080/CPM/cpmfiles/vf-file.fth

@@ -1,4 +1,6 @@
 
+$80 .pagestatus
+
 Target Dos also
 
   : cr+ex@  ( fcb -- cr+256*ex )

8080/CPM/cpmfiles/vf-io.fth

@@ -1,5 +1,7 @@
 \ *** Block No. 84, Hexblock 54
 
+$54 .pagestatus
+
 Target
 
 \ .status push load                                      20Oct86
@@ -149,6 +151,8 @@ $10 Constant l/s        \ lines per screen
 
 \ *** Block No. 93, Hexblock 5d
 
+$5d .pagestatus
+
 \ multitasker primitives                                 20Nov87
 
 Code end-trace    \ patch Next to its original state

8080/CPM/cpmfiles/vf-sys.fth

@@ -1,5 +1,7 @@
 \ *** Block No. 104, Hexblock 68
 
+$68 .pagestatus
+
 Target
 
 \ endpoints of forget                                    01Jul86
@@ -193,6 +195,8 @@ end-code
 
 \ *** Block No. 114, Hexblock 72
 
+$72 .pagestatus
+
 \ "search                                                05Mar88
 
 Label notfound      H pop   H pop