From b8ea5156123138db029f659868b908f17a777552 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 27 Apr 2020 21:28:34 -0400 Subject: [PATCH] Add word WIPE --- blk/064 | 2 +- blk/151 | 6 +++--- blk/470 | 2 ++ 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/blk/064 b/blk/064 index 2256262..28752d4 100644 --- a/blk/064 +++ b/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 diff --git a/blk/151 b/blk/151 index d115eb3..bb49b54 100644 --- a/blk/151 +++ b/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 at each - read attempt. We know that write is finished when we read the same - value twice. ) + ( as long as writing operation is running, IO/6 will toggle + at each read attempt. We know that write is finished when + we read the same value twice. ) BEGIN ( n1 a ) DUP C@ ( n1 a n2 ) OVER C@ ( n1 a n2 n3 ) diff --git a/blk/470 b/blk/470 index 29bb9b5..ebbcb7e 100644 --- a/blk/470 +++ b/blk/470 @@ -1,2 +1,4 @@ ( b1 b2 -- ) : LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ; + +: WIPE BLK( 1024 0 FILL BLK!! ;