static gpasmVal do_tstf(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
do_insn("movf", add_symbol_constant(parms, 1));
return r;
}
static gpasmVal do_negf(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
do_insn("comf", add_symbol_constant(parms, 1));
do_insn("incf", parms);
return r;
}
static gpasmVal do_movfw(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
if (enforce_arity(arity, 1)) {
do_insn("movf", add_symbol_constant(parms, 0));
}
return r;
}
static gpasmVal do_negf(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
if ((arity == 1) || (arity == 2)) {
do_insn("comf", add_symbol_constant(parms, 1));
do_insn("incf", parms);
} else {
enforce_arity(arity, 2);
}
return r;
}