/*
 *      Interactive disassembler (IDA).
 *      Version 3.05
 *      Copyright (c) 1990-95 by Ilfak Guilfanov.
 *      ALL RIGHTS RESERVED.
 *                              FIDO:   2:5020/209
 *                              E-mail: ig@estar.msk.su
 *
 */

#include "m65.hpp"

//----------------------------------------------------------------------
bool outop(op_t &x)
{
  switch ( x.type )
  {
  case o_reg:
        out_register("A");
        break;
  case o_imm:
        out_symbol('#');
        OutValue(x, 0);
        break;
  case o_near:
  case o_mem:
        if ( cmd.indirect ) out_symbol('(');
        {
          ulong base;
          if ( x.type == o_mem )
            base = dataSeg_op(x.n);
          else
            base = codeSeg(x.addr,x.n);
          ulong v = toEA(base,x.addr);
          const char *ptr = get_name_expr(cmd.ea+x.offb, x.n, v, x.addr);
          if ( ptr == NULL )
            OutValue(x,OOF_ADDR|OOF_NUMBER|OOFS_NOSIGN|OOFW_16|OOF_ZSTROFF);
          else
            OutLine(ptr);
        }
        if ( cmd.indirect ) out_symbol(')');
        break;
  case o_displ:
        switch ( x.phrase )
        {
          case rX:
          case rY:
          case zX:
          case zY:
            OutValue(x,OOF_ADDR|OOFS_NOSIGN|OOFW_16);
            out_symbol(',');
            out_register((x.phrase == zX || x.phrase == rX) ? "X" : "Y");
            break;
          case riX:
            out_symbol('(');
            OutValue(x,OOF_ADDR|OOFS_NOSIGN|OOFW_16);
            out_symbol(',');
            out_register("X");
            out_symbol(')');
            break;
          case riY:
            out_symbol('(');
            OutValue(x,OOF_ADDR|OOFS_NOSIGN|OOFW_16);
            out_symbol(')');
            out_symbol(',');
            out_register("Y");
            break;
          default:
            goto err;
        }
        break;
  case o_void:
        return 0;
  default:
err:
        warning("out: %a: bad optype %d", cmd.ea, x.type);
        break;
  }
  return 1;
}

//----------------------------------------------------------------------
void out(void)
{
  char buf[MAXSTR];

  init_output_buffer(buf, sizeof(buf));
  if ( inf.s_showbads && cmd.Op1.type == o_displ &&
       (cmd.Op1.phrase == rX || cmd.Op1.phrase == rY) &&
       cmd.Op1.value == uchar(cmd.Op1.value) ) OutBadInstruction();

  OutMnem();
  out_one_operand(0);
  if ( cmd.Op2.type != o_void ) {
    out_symbol(',');
    OutChar(' ');
    out_one_operand(1);
  }

  if ( isVoid(cmd.ea,uFlag,0) ) OutImmChar(cmd.Op1);

  term_output_buffer();
  gl_comm = 1;
  MakeLine(buf);
}

//--------------------------------------------------------------------------
void header(void) {
  gen_cmt_line("%s Processor:        %s",ash.cmnt,inf.procName);
  gen_cmt_line("%s Target assembler: %s",ash.cmnt,ash.name);
  if ( ash.header != NULL )
    for ( const char **ptr=ash.header; *ptr != NULL; ptr++ ) MakeLine(*ptr,0);
}

//--------------------------------------------------------------------------
void segstart(ea_t ea)
{
  segment_t *Sarea = getseg(ea);
  if ( ash.uflag & UAS_SECT )
  {
    printf_line(0,COLSTR("%s: .section",SCOLOR_ASMDIR),get_segm_name(Sarea));
  }
  else
  {
    printf_line(-1,COLSTR("%s.segment %s",SCOLOR_ASMDIR),
                   (ash.uflag & UAS_NOSEG) ? ash.cmnt : "",
                   get_segm_name(Sarea));
    if ( ash.uflag & UAS_SELSG ) MakeLine(get_segm_name(Sarea));
    if ( ash.uflag & UAS_CDSEG ) MakeLine(COLSTR("CSEG",SCOLOR_ASMDIR));  // XSEG - eXternal memory
  }
  if ( inf.s_org )
  {
    ulong org = ea - get_segm_base(Sarea);
    if ( org != 0 )
      printf_line(-1,COLSTR("%s %s",SCOLOR_ASMDIR),ash.origin,btoa32(org));
  }
}

//--------------------------------------------------------------------------
void footer(void) {
  char buf[MAXSTR];
  if ( ash.end != NULL )
  {
    MakeNull();
    char *ptr = buf;
    char *end = buf + sizeof(buf);
    APPEND(ptr, end, ash.end);
    char nbuf[MAXSTR];
    if ( get_colored_name(BADADDR, inf.beginEA, nbuf, sizeof(nbuf)) != NULL )
    {
      if ( ash.uflag & UAS_NOENS )
        APPEND(ptr, end, ash.cmnt);
      APPCHAR(ptr, end, ' ');
      APPEND(ptr, end, nbuf);
    }
    MakeLine(buf);
  }
  else
  {
    gen_cmt_line("end of file");
  }
}