aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/dump.fs
diff options
context:
space:
mode:
Diffstat (limited to 'forth/forth/dump.fs')
-rw-r--r--forth/forth/dump.fs26
1 files changed, 26 insertions, 0 deletions
diff --git a/forth/forth/dump.fs b/forth/forth/dump.fs
new file mode 100644
index 0000000..7a6908f
--- /dev/null
+++ b/forth/forth/dump.fs
@@ -0,0 +1,26 @@
+\ *******************************************************************
+\ *
+\ Filename: dump.txt *
+\ Date: 14.11.2010 *
+\ FF Version: 3.6 4.7 *
+\ Copyright: Mikael Nordman *
+\ Author: Mikael Nordman *
+\ *******************************************************************
+\ FlashForth is licensed according to the GNU General Public License*
+\ *******************************************************************
+: dump ( addr +n -- )
+ $10 u/
+ for
+ cr dup 4 u.r [char] : emit \ display row addr
+ $10
+ for \ display bytes
+ c@+ 2 u.r
+ next
+ $10 -
+ $10
+ for \ display ASCII
+ c@+ >pr emit
+ next
+ next
+ drop cr
+;