Mercurial > hg-old > index.cgi
diff lwasm/insn_rlist.c @ 357:0cf4948d53b4
Checkpoint - adding actual cpu instructions
author | lost@starbug |
---|---|
date | Wed, 31 Mar 2010 20:12:20 -0600 |
parents | old-trunk/lwasm/old/insn_rlist.c@eb230fa7d28e |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lwasm/insn_rlist.c Wed Mar 31 20:12:20 2010 -0600 @@ -0,0 +1,65 @@ +/* +insn_rlist.c +Copyright © 2009 William Astle + +This file is part of LWASM. + +LWASM is free software: you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation, either version 3 of the License, or (at your option) any later +version. + +This program is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for +more details. + +You should have received a copy of the GNU General Public License along with +this program. If not, see <http://www.gnu.org/licenses/>. +*/ + +/* +for handling inherent mode instructions +*/ + +#include <config.h> +#include "lwasm.h" +#include "instab.h" + +PARSEFUNC(insn_parse_rlist) +{ + int rb = 0; + int rn; + static const char *regs = "CCA B DPX Y U PCD S "; + + while (**p && !isspace(**p)) + { + rn = lwasm_lookupreg2(regs, p); + if (rn < 0) + { + lwasm_register_error(as, l, "Bad register '%s'", *p); + return; + } + if (**p && **p != ',' && !isspace(**p)) + { + lwasm_register_error(as, l, "Bad operand"); + } + if (**p == ',') + (*p)++; + if (rn == 8) + rn = 6; + else if (rn == 9) + rn = 0x40; + else + rn = 1 << rn; + rb |= rn; + } + l -> len = OPLEN(instab[l -> insn].ops[0]) + 1; + l -> pb = rb; +} + +EMITFUNC(insn_emit_rlist) +{ + lwasm_emitop(l, instab[l -> insn].ops[0]); + lwasm_emit(l, l -> pb); +}