gforth: gforth/Attic/tools.fs

Initial revision

\ TOOLS.FS     Toolkit extentions                      2may93jaw

\ May be cross-compiled

hex

\ .S            CORE / CORE EXT                         9may93jaw

: .s ( -- )
\ depth 0= IF ." <empty> " THEN
  depth 0 ?DO  I pick . LOOP ;

\ DUMP                       2may93jaw - 9may93jaw    06jul93py
\ looks very nice, I know

: .4 ( addr -- addr' )
  3 FOR  dup c@ 0 <# # # #> type space char+ NEXT ;
: .chars ( addr -- )
  10 bounds DO  I c@ dup 7f bl within
                IF drop [char] . THEN emit LOOP ;

: .line ( addr -- )
  dup .4 space .4 ." - " .4 space .4 drop  space .chars ;

: dump  ( addr u -- )
  cr base @ >r hex        \ save base on return stack
  $F + $10 /              \ calc number of lines
  0 ?DO  dup 8 u.r ." : " dup .line 10 + cr  LOOP
  drop r> base ! ;

\ ?                                                     17may93jaw

: ? @ . ;

\ INCLUDE see.fs

CVS Admin Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help