![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tools.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to tools.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.7, 1999/02/03 00:10:26 | version 1.8, 1999/02/21 14:55: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 <# # # #> type space THEN | IF ." " ELSE dup c@ 0 <<# >r # # r> #>> type space THEN |
| char+ NEXT ; | char+ NEXT ; |
| : .chars ( addr -- ) | : .chars ( addr -- ) |
| /dump @ bounds | /dump @ bounds |