home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / FORTH / WIMPFO.ZIP / !WimpForth / dump < prev    next >
Text File  |  1995-12-29  |  647b  |  19 lines
  1. \ $Id: dump.f 1.1 1994/04/01 07:52:55 andrew Exp $
  2.  
  3. cr .( Loading the Memory Dump words..)
  4.  
  5. : EMIT.         ( n -- )
  6.                 DUP BL 127 WITHIN 0= IF  DROP [CHAR] .  THEN  EMIT ;
  7.  
  8. : DUMP          ( adr len -- )  ( hex byte format with ascii )
  9.                 OVER + DUP ROT
  10.                 ?DO     CR I 4 U.R SPACE SPACE   I 16 + OVER MIN I
  11.                         2dup
  12.                         DO      I C@ h.2 space I J 7 + = IF SPACE THEN
  13.                         LOOP    2DUP -  16 OVER - 3 *  SWAP 8 < -  1+ SPACES
  14.                         DO      I C@ EMIT.
  15.                         LOOP    START/STOP
  16.             16 +LOOP    DROP    ;
  17.  
  18.  
  19.