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; }