Subversion Repositories zet86

/////////////////////////////////////////////////////////////////////////

// $Id: bcd.cc,v 1.1 2008-11-14 03:31:23 zeus Exp $

/////////////////////////////////////////////////////////////////////////

//

//  Copyright (C) 2002  MandrakeSoft S.A.

//

//    MandrakeSoft S.A.

//    43, rue d'Aboukir

//    75002 Paris - France

//    http://www.linux-mandrake.com/

//    http://www.mandrakesoft.com/

//

//  This library is free software; you can redistribute it and/or

//  modify it under the terms of the GNU Lesser General Public

//  License as published by the Free Software Foundation; either

//  version 2 of the License, or (at your option) any later version.

//

//  This library 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

//  Lesser General Public License for more details.

//

//  You should have received a copy of the GNU Lesser General Public

//  License along with this library; if not, write to the Free Software

//  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA

/////////////////////////////////////////////////////////////////////////

#define NEED_CPU_REG_SHORTCUTS 1

#include "bochs.h"

#include "cpu.h"

#define LOG_THIS BX_CPU_THIS_PTR

void BX_CPP_AttrRegparmN(1) BX_CPU_C::AAA(bxInstruction_c *)

{

  /*

   *  Note: This instruction incorrectly documented in Intel's materials.

   *        The right description is:

   *

   *    IF (((AL and 0FH) > 9) or (AF==1)

   *    THEN

   *        IF CPU<286 THEN {  AL <- AL+6 }

   *                   ELSE {  AX <- AX+6 }

   *        AH <- AH+1

   *        CF <- 1

   *        AF <- 1

   *    ELSE

   *        CF <- 0

   *        AF <- 0

   *    ENDIF

   *    AL <- AL and 0Fh

   */

  /* Validated against Intel Pentium family hardware. */

  /* AAA affects the following flags: A,C */

  if (((AL & 0x0f) > 9) || get_AF())

  {

    AX = AX + 0x106;

    assert_AF();

    assert_CF();

  }

  else {

    clear_AF();

    clear_CF();

  }

  AL = AL & 0x0f;

  /* AAA affects also the following flags: Z,S,O,P */

  /* modification of the flags is undocumented */

  /* The following behaviour seems to match the P6 and

     its derived processors. */

  clear_OF();

  clear_SF(); /* sign is always 0 because bits 4-7 of AL are zeroed */

  set_ZF(AL == 0);

  set_PF_base(AL);

}

void BX_CPP_AttrRegparmN(1) BX_CPU_C::AAS(bxInstruction_c *)

{

  /* AAS affects the following flags: A,C */

  if (((AL & 0x0F) > 0x09) || get_AF())

  {

    AX = AX - 0x106;

    assert_AF();

    assert_CF();

  }

  else {

    clear_CF();

    clear_AF();

  }

  AL = AL & 0x0f;

  /* AAS affects also the following flags: Z,S,O,P */

  /* modification of the flags is undocumented */

  /* The following behaviour seems to match the P6 and

     its derived processors. */

  clear_OF();

  clear_SF(); /* sign is always 0 because bits 4-7 of AL are zeroed */

  set_ZF(AL == 0);

  set_PF_base(AL);

}

void BX_CPP_AttrRegparmN(1) BX_CPU_C::AAM(bxInstruction_c *i)

{

  Bit8u al, imm8 = i->Ib();

  if (imm8 == 0)

    exception(BX_DE_EXCEPTION, 0, 0);

  al = AL;

  AH = al / imm8;

  AL = al % imm8;

  /* modification of flags A,C,O is undocumented */

  /* The following behaviour seems to match the P6 and

     its derived processors. */

  SET_FLAGS_OSZAPC_LOGIC_8(AL);

}

void BX_CPP_AttrRegparmN(1) BX_CPU_C::AAD(bxInstruction_c *i)

{

  Bit16u tmp = AH;

  tmp *= i->Ib();

  tmp += AL;

  AX = (tmp & 0xff);

  /* modification of flags A,C,O is undocumented */

  /* The following behaviour seems to match the P6 and

     its derived processors. */

  SET_FLAGS_OSZAPC_LOGIC_8(AL);

}

void BX_CPP_AttrRegparmN(1) BX_CPU_C::DAA(bxInstruction_c *)

{

  Bit8u tmpAL = AL;

  int   tmpCF = 0;

  /* Validated against Intel Pentium family hardware. */

  // DAA affects the following flags: S,Z,A,P,C

  if (((tmpAL & 0x0F) > 0x09) || get_AF())

  {

    tmpCF = ((AL > 0xF9) || get_CF());

    AL = AL + 0x06;

    assert_AF();

  }

  else

    clear_AF();

  if ((tmpAL > 0x99) || get_CF())

  {

    AL = AL + 0x60;

    tmpCF = 1;

  }

/*  else

    tmpCF = 0;

*/

  clear_OF();   /* undocumented flag modification */

  set_SF(AL >= 0x80);

  set_ZF(AL==0);

  set_PF_base(AL);

  set_CF(tmpCF);

}

void BX_CPP_AttrRegparmN(1) BX_CPU_C::DAS(bxInstruction_c *)

{

  /* The algorithm for DAS is fashioned after the pseudo code in the

   * Pentium Processor Family Developer's Manual, volume 3.  It seems

   * to have changed from earlier processor's manuals.  I'm not sure

   * if this is a correction in the algorithm printed, or Intel has

   * changed the handling of instruction. Validated against Intel

   * Pentium family hardware.

   */

  Bit8u tmpAL = AL;

  int tmpCF = 0;

  /* DAS effect the following flags: A,C,S,Z,P */

  if (((tmpAL & 0x0F) > 0x09) || get_AF())

  {

    tmpCF = (AL < 0x06) || get_CF();

    AL = AL - 0x06;

    assert_AF();

  }

  else

    clear_AF();

  if ((tmpAL > 0x99) || get_CF())

  {

    AL = AL - 0x60;

    tmpCF = 1;

  }

  clear_OF();   /* undocumented flag modification */

  set_SF(AL >= 0x80);

  set_ZF(AL==0);

  set_PF_base(AL);

  set_CF(tmpCF);

}