Return to tools.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.8, 1999/02/21 14:55:44 | version 1.9, 1999/02/22 21:39:44 |
---|---|
Line 45 Variable /dump | Line 45 Variable /dump |
: .4 ( addr -- addr' ) | : .4 ( addr -- addr' ) |
3 FOR -1 /dump +! /dump @ 0< | 3 FOR -1 /dump +! /dump @ 0< |
IF ." " ELSE dup c@ 0 <<# >r # # r> #>> type space THEN | IF ." " ELSE dup c@ 0 <<# # # #> type #>> space THEN |
char+ NEXT ; | char+ NEXT ; |
: .chars ( addr -- ) | : .chars ( addr -- ) |
/dump @ bounds | /dump @ bounds |