/*****************************************************************************
* Disassemble a single command and return the number of bytes it uses.
*****************************************************************************/
offs_t h6280_dasm(char *buffer, offs_t pc, const UINT8 *oprom, const UINT8 *opram)
{
UINT32 flags = 0;
int PC, OP, opc, arg;
PC = pc;
OP = RDOP(PC);
OP = OP << 1;
PC++;
opc = op6280[OP];
arg = op6280[OP+1];
if (opc == _jsr || opc == _bsr)
flags = DASMFLAG_STEP_OVER;
else if (opc == _rts)
flags = DASMFLAG_STEP_OUT;
switch(arg)
{
case _acc:
sprintf(buffer,"%-5sa", token[opc]);
break;
case _imp:
sprintf(buffer,"%s", token[opc]);
break;
case _rel:
sprintf(buffer,"%-5s$%04X", token[opc], (PC + 1 + (signed char)RDBYTE(PC)) & 0xffff);
PC+=1;
break;
case _imm:
sprintf(buffer,"%-5s#$%02X", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpg:
sprintf(buffer,"%-5s$%02X", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpx:
sprintf(buffer,"%-5s$%02X,x", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpy:
sprintf(buffer,"%-5s$%02X,y", token[opc], RDBYTE(PC));
PC+=1;
break;
case _idx:
sprintf(buffer,"%-5s($%02X,x)", token[opc], RDBYTE(PC));
PC+=1;
break;
case _idy:
sprintf(buffer,"%-5s($%02X),y", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpi:
sprintf(buffer,"%-5s($%02X)", token[opc], RDBYTE(PC));
PC+=1;
break;
case _abs:
sprintf(buffer,"%-5s$%04X", token[opc], RDWORD(PC));
PC+=2;
break;
case _abx:
sprintf(buffer,"%-5s$%04X,x", token[opc], RDWORD(PC));
PC+=2;
break;
case _aby:
sprintf(buffer,"%-5s$%04X,y", token[opc], RDWORD(PC));
PC+=2;
break;
case _ind:
sprintf(buffer,"%-5s($%04X)", token[opc], RDWORD(PC));
PC+=2;
break;
case _iax:
sprintf(buffer,"%-5s($%04X),X", token[opc], RDWORD(PC));
PC+=2;
break;
case _blk:
sprintf(buffer,"%-5s$%04X $%04X $%04X", token[opc], RDWORD(PC), RDWORD(PC+2), RDWORD(PC+4));
PC+=6;
break;
case _zrl:
sprintf(buffer,"%-5s$%02X $%04X", token[opc], RDBYTE(PC), (PC + 2 + (signed char)RDBYTE(PC+1)) & 0xffff);
PC+=2;
break;
case _imz:
sprintf(buffer,"%-5s#$%02X $%02X", token[opc], RDBYTE(PC), RDBYTE(PC+1));
PC+=2;
break;
case _izx:
sprintf(buffer,"%-5s#$%02X $%02X,x", token[opc], RDBYTE(PC), RDBYTE(PC+1));
PC+=2;
break;
case _ima:
sprintf(buffer,"%-5s#$%02X $%04X", token[opc], RDBYTE(PC), RDWORD(PC+1));
PC+=3;
break;
case _imx:
sprintf(buffer,"%-5s#$%02X $%04X,x", token[opc], RDBYTE(PC), RDWORD(PC+1));
PC+=3;
break;
default:
sprintf(buffer,"%-5s$%02X", token[opc], OP >> 1);
}
return (PC - pc) | flags | DASMFLAG_SUPPORTED;
}
/*****************************************************************************
* Disassemble a single command and return the number of bytes it uses.
*****************************************************************************/
int Dasm6280(char *buffer, int pc)
{
int PC, OP, opc, arg;
PC = pc;
OP = RDOP(PC);
OP = OP << 1;
PC++;
opc = op6280[OP];
arg = op6280[OP+1];
switch(arg)
{
case _acc:
sprintf(buffer,"%-5sa", token[opc]);
break;
case _imp:
sprintf(buffer,"%s", token[opc]);
break;
case _rel:
sprintf(buffer,"%-5s$%04X", token[opc], (PC + 1 + (signed char)RDBYTE(PC)) & 0xffff);
PC+=1;
break;
case _imm:
sprintf(buffer,"%-5s#$%02X", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpg:
sprintf(buffer,"%-5s$%02X", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpx:
sprintf(buffer,"%-5s$%02X,x", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpy:
sprintf(buffer,"%-5s$%02X,y", token[opc], RDBYTE(PC));
PC+=1;
break;
case _idx:
sprintf(buffer,"%-5s($%02X,x)", token[opc], RDBYTE(PC));
PC+=1;
break;
case _idy:
sprintf(buffer,"%-5s($%02X),y", token[opc], RDBYTE(PC));
PC+=1;
break;
case _zpi:
sprintf(buffer,"%-5s($%02X)", token[opc], RDBYTE(PC));
PC+=1;
break;
case _abs:
sprintf(buffer,"%-5s$%04X", token[opc], RDWORD(PC));
PC+=2;
break;
case _abx:
sprintf(buffer,"%-5s$%04X,x", token[opc], RDWORD(PC));
PC+=2;
break;
case _aby:
sprintf(buffer,"%-5s$%04X,y", token[opc], RDWORD(PC));
PC+=2;
break;
case _ind:
sprintf(buffer,"%-5s($%04X)", token[opc], RDWORD(PC));
PC+=2;
break;
case _iax:
sprintf(buffer,"%-5s($%04X),X", token[opc], RDWORD(PC));
PC+=2;
break;
case _blk:
sprintf(buffer,"%-5s$%04X $%04X $%04X", token[opc], RDWORD(PC), RDWORD(PC+2), RDWORD(PC+4));
PC+=6;
break;
case _zrl:
sprintf(buffer,"%-5s$%02X $%04X", token[opc], RDBYTE(PC), (PC + 2 + (signed char)RDBYTE(PC+1)) & 0xffff);
PC+=2;
break;
case _imz:
sprintf(buffer,"%-5s#$%02X $%02X", token[opc], RDBYTE(PC), RDBYTE(PC+1));
PC+=2;
break;
case _izx:
sprintf(buffer,"%-5s#$%02X $%02X,x", token[opc], RDBYTE(PC), RDBYTE(PC+1));
PC+=2;
break;
case _ima:
sprintf(buffer,"%-5s#$%02X $%04X", token[opc], RDBYTE(PC), RDWORD(PC+1));
PC+=3;
break;
case _imx:
sprintf(buffer,"%-5s#$%02X $%04X,x", token[opc], RDBYTE(PC), RDWORD(PC+1));
PC+=3;
break;
default:
sprintf(buffer,"%-5s$%02X", token[opc], OP >> 1);
}
return PC - pc;
}