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;