Return to vars.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.40, 2006/02/26 17:23:47 | version 1.41, 2006/03/05 14:10:52 |
---|---|
Line 202 AUser dpp normal-dp dpp ! | Line 202 AUser dpp normal-dp dpp ! |
AUser LastCFA | AUser LastCFA |
AUser Last | AUser Last |
has? flash [IF] | |
AUser flash-dp | |
: rom flash-dp dpp ! ; | |
: ram normal-dp dpp ! ; | |
[THEN] | |
User max-name-length \ maximum length of all names defined yet | User max-name-length \ maximum length of all names defined yet |
32 max-name-length ! | 32 max-name-length ! |