static gpasmVal do_bdc(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
do_insn("btfsc", make_constant_list(3, 1));
do_insn("goto", parms);
return r;
}
static gpasmVal do_subcf(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
do_insn("btfsc", make_constant_list(3, 0));
do_insn("decf", parms);
return r;
}
static gpasmVal do_lgoto(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
do_insn("pagesel", parms);
do_insn("goto", parms);
return r;
}
static gpasmVal do_adddcf(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
do_insn("btfsc", make_constant_list(3, 1));
do_insn("incf", parms);
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_lcall(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
do_insn("pagesel", parms);
do_insn("call", parms);
return r;
}
static gpasmVal do_addcf(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
gpvmessage(GPM_SPECIAL_MNEMONIC, NULL);
do_insn("btfsc", make_constant_list(3, 0));
do_insn("incf", parms);
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;
}
static gpasmVal do_mode(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
if (enforce_arity(arity, 1)) {
struct pnode* val = HEAD(parms);
if ((val->tag == PTAG_CONSTANT) && (val->value.constant > 0x1f)) {
gpvwarning(GPW_RANGE, NULL);
val->value.constant &= 0x1f;
}
do_insn("movlw", parms);
do_insn("movwm", NULL);
}
return r;
}
static gpasmVal do_b(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
do_insn("goto", parms);
return r;
}
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_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_skpnz(gpasmVal r,
const char *name,
int arity,
struct pnode *parms)
{
if (arity) {
gpverror(GPE_TOO_MANY_ARGU, NULL);
}
do_insn("btfsc", make_constant_list(3, 2));
return r;
}
static gpasmVal do_setdc(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
if (arity) {
gperror(GPE_TOO_MANY_ARGU, NULL);
}
do_insn("bsf", make_constant_list(3, 1));
return r;
}
static gpasmVal do_lgoto(gpasmVal r,
char *name,
int arity,
struct pnode *parms)
{
int address = maybe_evaluate(HEAD(parms));
int page = gp_processor_check_page(state.device.class, address);
state.org += gp_processor_set_page(state.device.class,
page,
state.i_memory,
state.org);
do_insn("goto", parms);
return r;
}