endcase;
#endif
+ case ID_SLEEP_P:
+ TOS = sdSleepMillis(TOS);
+ endcase;
+
case ID_SP_FETCH: /* ( -- sp , address of top of stack, sorta ) */
PUSH_TOS;
TOS = (cell_t)STKPTR;
{
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;