void mu_push_end()
{
PUSH_ADDR(&end);
}
/* The basis of create/does>. */
static void mu_do_does()
{
NEST; /* entering a new word; push IP */
IP = (xtk_cell *)_(W[1]); /* new IP is stored in the parameter field */
PUSH_ADDR(&W[2]); /* push the address of the word's body */
}
void mu_push_first()
{
PUSH_ADDR(&first);
}
void mu_push_start()
{
PUSH_ADDR(&start);
}
void mu_push_state()
{
PUSH_ADDR(&state);
}
/* Push lineno variable */
void mu_push_line()
{
PUSH_ADDR(&lineno);
}
void mu_push_compiler_chain()
{
PUSH_ADDR(compiler_chain);
}
/*
* .forth. and .compiler. push the address of the respective struct
* dict_name.
*/
void mu_push_forth_chain()
{
PUSH_ADDR(forth_chain);
}
void mu_here() /* push current _value_ of heap pointer */
{
PUSH_ADDR(ph);
}
void mu_push_h0() /* push address of start of dictionary */
{
PUSH_ADDR(ph0);
}
void mu_push_command_line()
{
PUSH_ADDR(&pcmd_line->data);
}
