From 510a135321bcbeefd3ae84d96f44a3a53b7c83a3 Mon Sep 17 00:00:00 2001
From: Phil Howlett <phil.g.howlett@gmail.com>
Date: Wed, 24 Jan 2024 06:42:13 +1000
Subject: [PATCH] Improved output of DUMP.

Adding a space between the hex code and ascii output to make it easier to read.
---
 forth16/extend80.4th | 3 ++-
 forth24/extend24.4th | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/forth16/extend80.4th b/forth16/extend80.4th
index 2bb5eaa..937631a 100644
--- a/forth16/extend80.4th
+++ b/forth16/extend80.4th
@@ -261,6 +261,7 @@ VARIABLE SOURCE-LINK
   16 0 DO
    DUP I + C@ 0 <# # # #> TYPE
   LOOP
+  SPACE
   16 0 DO
    DUP I + C@ DUP 32 < OVER 127 = OR IF DROP ." ." ELSE EMIT THEN
   LOOP
@@ -271,7 +272,7 @@ VARIABLE SOURCE-LINK
 \G Show a hex/ascii dump of the memory block of len bytes at addr
   7 + 4 RSHIFT 0 DO
    DL ?TERMINAL IF LEAVE THEN
-  LOOP DROP ;
+  LOOP DROP CR ;
 
 : H. ( u ----)
     BASE @ >R HEX U. R> BASE ! ;
diff --git a/forth24/extend24.4th b/forth24/extend24.4th
index e37143a..44a79ed 100644
--- a/forth24/extend24.4th
+++ b/forth24/extend24.4th
@@ -228,6 +228,7 @@ CONSTANT ROOT-WORDLIST ( --- wid )
   16 0 DO
    DUP I + C@ 0 <# # # #> TYPE
   LOOP
+  SPACE
   16 0 DO
    DUP I + C@ DUP 32 < OVER 127 = OR IF DROP ." ." ELSE EMIT THEN
   LOOP
@@ -238,7 +239,7 @@ CONSTANT ROOT-WORDLIST ( --- wid )
 \G Show a hex/ascii dump of the memory block of len bytes at addr
   7 + 4 RSHIFT 0 DO
    DL ?TERMINAL IF LEAVE THEN
-  LOOP DROP ;
+  LOOP DROP CR ;
 
 : H. ( u ----)
     BASE @ >R HEX U. R> BASE ! ;