blk/050

@@ -10,7 +10,7 @@ C!       c a --          Store byte c in address a
 CURRENT  -- a            Set a to wordref of last added entry.
 CURRENT* -- a            A pointer to active CURRENT*. Useful
                          when we have multiple active dicts.
-FILL     a n b --        Fill n bytes at addr a with val b.
 HERE     -- a            Push HERE's address
 H@       -- a            HERE @
-                                                        (cont.)
+MOVE     a1 a2 u --      Copy u bytes from a1 to a2, starting
+                         with a1, going up.

blk/051

@@ -1,2 +0,0 @@
-MOVE     a1 a2 u --      Copy u bytes from a1 to a2, starting
-                         with a1, going up.

blk/064

@@ -5,7 +5,7 @@ LIST  n --      Prints the contents of the block n on screen
                 in the form of 16 lines of 64 columns.
 LOAD  n --      Interprets Forth code from block n
 LOADR n1 n2 --  Load block range between n1 and n2, inclusive.
-WIPE  --        Empties current block
+
 
 
 

blk/151

@@ -3,9 +3,9 @@
   and ABORT on mismatch. )
 : AT28! ( n a -- )
     2DUP C!
-    ( as long as writing operation is running, IO/6 will toggle
+    ( as long as writing operation is running, IO/6 will toggle at each
-      at each read attempt. We know that write is finished when
+      read attempt. We know that write is finished when we read the same
-      we read the same value twice. )
+      value twice. )
     BEGIN ( n1 a )
         DUP C@      ( n1 a n2 )
         OVER C@     ( n1 a n2 n3 )

blk/434

@@ -1,4 +1,5 @@
-: MOVE ( a1 a2 u -- )
+( a1 a2 u -- )
+: MOVE
     ( u ) 0 DO
         SWAP DUP I + C@   ( a2 a1 x )
         ROT SWAP OVER I + ( a1 a2 x a2 )
@@ -6,10 +7,10 @@
     LOOP
     2DROP
 ;
-: FILL ( a n b -- )
+
-    SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
-        DUP I C!
-    LOOP
-;
 : DELW 1- 0 SWAP C! ;
-: PREV 3 - DUP @ - ;
+
+: PREV
+    3 - DUP @                   ( a o )
+    -                           ( a-o )
+;

blk/470

@@ -1,4 +1,2 @@
 ( b1 b2 -- )
 : LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ;
-
-: WIPE BLK( 1024 0 FILL BLK!! ;