{
ERR("' could not find ");
ioType( (char *) CharPtr+1, *CharPtr );
+ EMIT_CR;
M_THROW(-13);
}
else
endcase;
case ID_VAR_BASE: DO_VAR(gVarBase); endcase;
+ case ID_VAR_BYE_CODE: DO_VAR(gVarByeCode); endcase;
case ID_VAR_CODE_BASE: DO_VAR(gCurrentDictionary->dic_CodeBase); endcase;
case ID_VAR_CODE_LIMIT: DO_VAR(gCurrentDictionary->dic_CodeLimit); endcase;
case ID_VAR_CONTEXT: DO_VAR(gVarContext); endcase;
case ID_VAR_TRACE_STACK: DO_VAR(gVarTraceStack); endcase;
case ID_VAR_RETURN_CODE: DO_VAR(gVarReturnCode); endcase;
+ case ID_VERSION_CODE:
+ M_PUSH( TOS );
+ TOS = PFORTH_VERSION_CODE;
+ endcase;
+
case ID_WORD:
TOS = (cell_t) ffWord( (char) TOS );
endcase;