aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/dump.fs
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-09-21 21:59:17 +0200
committerDimitri Sokolyuk <demon@dim13.org>2018-09-21 21:59:17 +0200
commit2f83a0bea9da444e3d70569eba3d6847ca02be03 (patch)
tree20163bbd478f40679d22f5e964aef94c688639f0 /forth/forth/dump.fs
parent125127ee67891e1813164e20aa848a80b9d2f2a0 (diff)
...
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
+;