Diff for /gforth/Attic/tools.fs between versions 1.2 and 1.3

version 1.2, 1994/07/08 15:01:02 version 1.3, 1995/06/08 15:28:28
Line 21  variable maxdepth-.s Line 21  variable maxdepth-.s
 \ DUMP                       2may93jaw - 9may93jaw    06jul93py  \ DUMP                       2may93jaw - 9may93jaw    06jul93py
 \ looks very nice, I know  \ looks very nice, I know
   
   Variable /dump
   
 : .4 ( addr -- addr' )  : .4 ( addr -- addr' )
   3 FOR  dup c@ 0 <# # # #> type space char+ NEXT ;      3 FOR  -1 /dump +!  /dump @ 0<
           IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN
       char+ NEXT ;
 : .chars ( addr -- )  : .chars ( addr -- )
   10 bounds DO  I c@ dup 7f bl within      /dump @ bounds
                 IF drop [char] . THEN emit LOOP ;      ?DO I c@ dup 7f bl within
           IF  drop [char] .  THEN  emit
       LOOP ;
   
 : .line ( addr -- )  : .line ( addr -- )
   dup .4 space .4 ." - " .4 space .4 drop  space .chars ;    dup .4 space .4 ." - " .4 space .4 drop  10 /dump +!  space .chars ;
   
 : dump  ( addr u -- )  : dump  ( addr u -- )
   cr base @ >r hex        \ save base on return stack      cr base @ >r hex        \ save base on return stack
   $F + $10 /              \ calc number of lines      0 ?DO  I' I - 10 min /dump !
   0 ?DO  dup 8 u.r ." : " dup .line 10 + cr  LOOP          dup 8 u.r ." : " dup .line cr  10 +
   drop r> base ! ;          10 +LOOP
       drop r> base ! ;
   
 \ ?                                                     17may93jaw  \ ?                                                     17may93jaw
   

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>