//----------------------------------------------------------------------
bool outop(op_t &x)
{
switch(x.type)
{
case o_void: return 0;
case o_reg:
if(x.prepost) out_symbol('[');
//Вывод регистра по номеру в регистре
OutReg(x.reg);
if(x.xmode)
{
out_symbol('+');
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFW_8);
}
if(x.prepost) out_symbol(']');
break;
case o_phrase:
OutLine(ph.regNames[x.reg]);
break;
case o_bit:
{
switch(x.reg)
{
case rPSW:
{
OutLine("PSW.");
switch(x.value)
{
case 0: OutLine("CY");break;
case 4: OutLine("AC");break;
case 6: OutLine("Z");break;
case 7: OutLine("IE");break;
default:OutValue(x, OOFW_IMM);
} break;
}
case rA:
{
OutLine( "A." );
OutChar(char('0'+x.value));
} break;
default:
{
if(!OutVarName(x, 1, 0) ) OutValue(x, OOF_ADDR | OOFW_16);
out_symbol('.');
//Ичем название бита по указанному адрессу
if(!nec_find_ioport_bit((int)x.addr, (int)x.value))
{
//Вывод данных(тип o_imm)
OutChar(char('0'+x.value));
}
}// switch(x.regmode)
} // end switch(x.reg)
} break;
case o_imm:
{
if(!x.regmode)
{
out_symbol('#');
//Вывод данных(тип o_imm)
OutValue(x, OOFW_IMM );
}
else
{
out_symbol('1');
}
} break;
case o_mem:
{
if(x.addr16) out_symbol('!');
//выводит имя переменной из памяти(например byte_98)
//Вывод имени переменной
if(!OutVarName(x, 1, 0) )
//Вывод данных
OutValue(x, OOF_ADDR | OOFW_16);
} break;
case o_near:
{
if(x.addr16) out_symbol('!');
if(x.form) out_symbol('[');
//Получить линейный адресс
ea_t v = toEA(cmd.cs,x.addr);
if(!out_name_expr(x, v, x.addr))
{
//Вывести значение
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFW_16);
QueueMark(Q_noName, cmd.ea);
}
if(x.form) out_symbol(']');
} break;
default:
warning("out: %a: bad optype %d", cmd.ip, x.type);
break;
}
return(1);
}
//----------------------------------------------------------------------
// вывод одного операнда
bool N78K_outop(op_t &x)
{
#if IDP_INTERFACE_VERSION <= 37
uFlag = getFlags(cmd.ea);
#endif
switch(x.type){
case o_void: return 0;
case o_reg:
if(x.FormOut & FORM_OUT_SKOBA) out_symbol('[');
OutReg(x.reg);
if(x.FormOut & FORM_OUT_PLUS) out_symbol('+');
if(x.FormOut & FORM_OUT_DISP){
if(isOff(uFlag, x.n)){
OutVarNameVal(x);
}
else OutValue(x, OOFW_IMM );
}
if(x.FormOut & FORM_OUT_REG){
out_keyword( ph.regNames[x.SecondReg] );
}
if(x.FormOut & FORM_OUT_SKOBA) out_symbol(']');
break;
case o_bit:
switch(x.FormOut){
case FORM_OUT_S_ADDR:
case FORM_OUT_SFR:
OutVarName(x);
out_symbol('.');
#if IDP_INTERFACE_VERSION > 37
if( !nec_find_ioport_bit(x.addr, x.value) )
#endif
{
OutValue(x, OOFW_IMM);
}
break;
case FORM_OUT_A:
OutLine("A.");
OutValue(x, OOFW_IMM);
break;
case FORM_OUT_PSW:
OutLine("PSW.");
switch(x.value){
case 0: OutLine("CY");break;
case 1: OutLine("ISP");break;
case 3: OutLine("RBS0");break;
case 4: OutLine("AC");break;
case 5: OutLine("RBS1");break;
case 6: OutLine("Z");break;
case 7: OutLine("IE");break;
default:OutValue(x, OOFW_IMM);
}
break;
case FORM_OUT_HL:
out_symbol('[');
OutReg(rHL);
out_symbol(']');
out_symbol('.');
if(isOff(uFlag, x.n)){
OutVarNameVal(x);
}
else OutValue(x, OOFW_IMM );
break;
}
break;
case o_imm:
out_symbol('#');
if(isOff(uFlag, x.n)){
OutVarNameVal(x);
}
else OutValue(x, OOFW_IMM );
break;
case o_mem:
//выводит имя переменной из памяти(например byte_98)
if(x.FormOut & FORM_OUT_VSK) out_symbol('!');
if(x.FormOut & FORM_OUT_SKOBA) out_symbol('[');
//Вывод имени переменной
OutVarName(x);
if(x.FormOut & FORM_OUT_SKOBA) out_symbol(']');
break;
case o_near:
if(x.FormOut & FORM_OUT_VSK) out_symbol('!');
if(x.FormOut & FORM_OUT_SKOBA) out_symbol('[');
{
ulong adr;
adr = toEA(codeSeg(x.addr,x.n),x.addr);
#if IDP_INTERFACE_VERSION > 37
if( !out_name_expr(x, adr, x.addr)){
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFW_16);
QueueMark(Q_noName, cmd.ea);
}
#else
{const char *ptr;
ptr=get_name_expr(cmd.ea+x.offb, adr, x.addr);
if( ptr == NULL ){
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFW_16);
QueueMark(Q_noName, cmd.ea);
}
else OutLine(ptr);
}
#endif
}
if(x.FormOut & FORM_OUT_SKOBA) out_symbol(']');
break;
// неизвестный операнд
default: warning("out: %lx: bad optype",cmd.ea,x.type);
break;
}
return(1);
}
//----------------------------------------------------------------------
bool outop(op_t &x) {
ea_t segadr;
switch (x.type) {
case o_void:
return 0;
case o_reg:
OutReg(x.reg);
break;
case o_fpreg:
OutReg(x.reg + 8);
break;
case o_imm: // 27
if(x.ill_imm) {
out_symbol('(');
OutReg(rPC);
out_symbol(')');
out_symbol('+');
} else {
out_symbol('#');
if(x.dtyp == dt_float || x.dtyp == dt_double) {
char str[MAXSTR];
if(out_real(&x.value, 2, str, sizeof(str))) {
register char *p = str;
while(*p == ' ') p++;
out_symbol('^');
out_symbol('F');
out_line(p, COLOR_NUMBER);
} else out_long(x.value, 8);
} else OutValue(x, OOF_SIGNED | OOFW_IMM);
}
break;
case o_mem: // 37/67/77
case o_near: // jcc/ [jmp/call 37/67]
case o_far:
if(x.phrase != 0) {
if(x.phrase == 077 || x.phrase == 037) out_symbol('@');
if(x.phrase == 037) out_symbol('#');
if(x.addr16 < m.asect_top && !isOff(uFlag,x.n)) {
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFS_NOSIGN | OOFW_16);
break;
}
}
segadr = toEA(x.type == o_far ? x.segval : codeSeg(x.addr16,x.n), x.addr16);
if(!out_name_expr(x, segadr, x.addr16)) {
if(x.type == o_far || x.addr16 < 0160000)
QueueMark(Q_noName, cmd.ea);
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFS_NOSIGN | OOFW_16);
}
break;
case o_number: //EMT/TRAP/MARK/SPL
OutValue(x, OOF_NUMBER | OOFS_NOSIGN | OOFW_8);
break;
case o_displ: // 6x/7x (!67/!77)
if(x.phrase >= 070) out_symbol('@');
OutValue(x, OOF_ADDR | OOF_SIGNED | OOFW_16);
out_symbol('(');
goto endregout;
case o_phrase: // 1x/2x/3x/4x/5x (!27/!37)
switch(x.phrase >> 3) {
case 1:
out_symbol('@');
OutReg(x.phrase & 7);
break;
case 3:
out_symbol('@');
case 2:
out_symbol('(');
OutReg(x.phrase & 7);
out_symbol(')');
out_symbol('+');
break;
case 5:
out_symbol('@');
case 4:
out_symbol('-');
out_symbol('(');
endregout:
OutReg(x.phrase & 7);
out_symbol(')');
break;
}
break;
default:
warning("out: %" FMT_EA "o: bad optype %d", cmd.ip, x.type);
break;
}
return 1;
}
//----------------------------------------------------------------------
bool idaapi outop(op_t &x)
{
uval_t v;
switch ( x.type )
{
case o_imm:
out_symbol('#');
OutValue(x, OOFW_IMM);
break;
case o_ind_reg:
out_symbol('@');
case o_reg:
OutReg(x.reg);
break;
case o_phrase:
//ig: лучше out_keyword, чем простой OutLine()
// так цвет будет правильный
out_keyword(phrases[x.phrase]);
break;
case o_displ:
OutValue(x, OOF_ADDR | OOFW_IMM); // x.addr
out_symbol('(');
OutReg(x.reg);
out_symbol(')');
break;
case o_ind_mem:
out_symbol('@');
case o_mem:
case o_near:
v = map_addr(x.addr, x.n, x.type != o_near);
if ( !out_name_expr(x, v, x.addr) )
{
const char *name = z8_find_ioport(v);
if ( name != NULL )
{
out_line(name, COLOR_IMPNAME);
}
else
{
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFS_NOSIGN | OOFW_16);
QueueSet(Q_noName, cmd.ea);
}
}
break;
case o_void:
return 0;
default:
warning("out: %a: bad optype %d", cmd.ea, x.type);
}
return 1;
}
bool outop(op_t &x)
{
uval_t v;
int dir, bit;
char buf[MAXSTR];
switch ( x.type )
{
case o_reg:
OutReg(x.reg);
break;
case o_phrase:
if ( x.phrase == fRi )
{
out_symbol('@');
OutReg(x.indreg);
break;
}
out_colored_register_line(phrases[x.phrase]);
break;
case o_displ:
out_symbol('@');
OutReg(x.reg);
out_symbol('+');
OutValue(x, OOF_ADDR | OOFS_IFSIGN | OOFW_16);
break;
case o_imm:
out_symbol('#');
if ( cmd.auxpref & aux_0ext ) out_symbol('0');
if ( cmd.auxpref & aux_1ext ) out_symbol('1');
OutValue(x, OOFS_IFSIGN | OOFW_IMM);
break;
case o_mem:
case o_near:
v = map_addr(x.addr, x.n, x.type==o_mem);
if ( get_name_expr(cmd.ea+x.offb, x.n, v, x.addr, buf, sizeof(buf)) <= 0 )
{
/* int nbit;
if ( cmd.itype == I51_ecall || cmd.itype == I51_ejmp )
nbit = OOFW_32;
else
nbit = OOFW_16;*/
OutValue(x, OOF_ADDR | OOF_NUMBER | OOFS_NOSIGN | OOFW_32);
QueueMark(Q_noName, cmd.ea);
break;
}
// we want to output SFR register names always in COLOR_REG,
// so remove the color tags and output it manually:
if ( x.type == o_mem && x.addr >= 0x80 )
{
tag_remove(buf, buf, sizeof(buf));
out_register(buf);
break;
}
OutLine(buf);
break;
case o_void:
return false;
case o_bit251:
if ( x.b251_bitneg ) out_symbol('/');
dir = x.addr;
bit = x.b251_bit;
goto OUTBIT;
case o_bitnot:
out_symbol('/');
case o_bit:
dir = (x.reg & 0xF8);
bit = x.reg & 7;
if ( (dir & 0x80) == 0 ) dir = dir/8 + 0x20;
OUTBIT:
if(ash.uflag & UAS_PBIT)
{
const ioport_bit_t *predef = find_bit( dir, bit);
if ( predef != NULL )
{
out_line(predef->name, COLOR_REG);
break;
}
}
{
v = map_addr(dir, x.n, true);
ssize_t len = get_name_expr(cmd.ea+x.offb, x.n, v, dir, buf, sizeof(buf));
if ( len > 0 && strchr(buf, '+') == NULL )
{
// we want to output the bit names always in COLOR_REG,
// so remove the color tags and output it manually:
if ( dir < 0x80 )
{
OutLine(buf);
}
else
{
tag_remove(buf, buf, sizeof(buf));
out_register(buf);
}
}
else
{
out_long(dir, 16);
}
out_symbol(ash.uflag & UAS_NOBIT ? '_' : '.');
out_symbol('0'+bit);
}
break;
default:
warning("out: %a: bad optype",cmd.ea,x.type);
break;
}
return true;
}
