gVarEcho = 0; /* Echo input. */\r
gVarTraceLevel = 0; /* Trace Level for Inner Interpreter. */\r
gVarTraceFlags = 0; /* Enable various internal debug messages. */\r
gVarEcho = 0; /* Echo input. */\r
gVarTraceLevel = 0; /* Trace Level for Inner Interpreter. */\r
gVarTraceFlags = 0; /* Enable various internal debug messages. */\r
gVarReturnCode = 0; /* Returned to caller of Forth, eg. UNIX shell. */\r
gIncludeIndex = 0;\r
\r
/* non-zero */\r
gVarBase = 10; /* Numeric Base. */\r
gDepthAtColon = DEPTH_AT_COLON_INVALID;\r
gVarReturnCode = 0; /* Returned to caller of Forth, eg. UNIX shell. */\r
gIncludeIndex = 0;\r
\r
/* non-zero */\r
gVarBase = 10; /* Numeric Base. */\r
gDepthAtColon = DEPTH_AT_COLON_INVALID;\r
if( !dic->dic_HeaderBaseUnaligned ) goto nomem;\r
/* Align header base. */\r
dic->dic_HeaderBase = DIC_ALIGN(dic->dic_HeaderBaseUnaligned);\r
if( !dic->dic_HeaderBaseUnaligned ) goto nomem;\r
/* Align header base. */\r
dic->dic_HeaderBase = DIC_ALIGN(dic->dic_HeaderBaseUnaligned);\r
dic->dic_HeaderLimit = dic->dic_HeaderBase + HeaderSize;\r
dic->dic_HeaderPtr = dic->dic_HeaderBase;\r
}\r
else\r
{\r
dic->dic_HeaderLimit = dic->dic_HeaderBase + HeaderSize;\r
dic->dic_HeaderPtr = dic->dic_HeaderBase;\r
}\r
else\r
{\r
if( !dic->dic_CodeBaseUnaligned ) goto nomem;\r
dic->dic_CodeBase = DIC_ALIGN(dic->dic_CodeBaseUnaligned);\r
if( !dic->dic_CodeBaseUnaligned ) goto nomem;\r
dic->dic_CodeBase = DIC_ALIGN(dic->dic_CodeBaseUnaligned);\r
pfCopyMemory( &buffer[4], &FileName[len-numChars], numChars+1 );\r
CreateDicEntryC( ID_NOOP, buffer, 0 );\r
\r
pfCopyMemory( &buffer[4], &FileName[len-numChars], numChars+1 );\r
CreateDicEntryC( ID_NOOP, buffer, 0 );\r
\r
\r
/* Create a dictionary word named ;;;; for FILE? */\r
CreateDicEntryC( ID_NOOP, ";;;;", 0 );\r
\r
\r
/* Create a dictionary word named ;;;; for FILE? */\r
CreateDicEntryC( ID_NOOP, ";;;;", 0 );\r
\r