aboutsummaryrefslogtreecommitdiff
path: root/forth/forth/dump.fs
blob: 7a6908f5fb782ef6bbbf9da9054af83cbdce6fde (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
;