From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/dump.fs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 forth/forth/dump.fs (limited to 'forth/forth/dump.fs') 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 +; -- cgit v1.2.3