1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
8 * Abstract: Programming Tools word set
16 /**************************************************************************/
17 /* WORDS ******************************************************************/
18 /**************************************************************************/
21 register Cell *p = sp;
35 register UCell u = *sp++;
36 register Char *addr = (Char *) *sp++;
39 printf("%08p: ", addr);
40 for (i = 0; i < 16; i++)
41 if ((int) (u - i) > 0) printf("%02x ", *(addr + i) & 0xff);
43 for (i = 0; i < 16 && (u - i) > 0; i++)
44 printf("%c", *(addr + i) < 32 ? '.' : *(addr + i));
57 register struct word_def *p;
58 register Cell col = 1;
59 while (i < VOC_HASH) {
62 *--sp = (Cell) p->name;
64 if (col + sp[0] > 79) {