/*---------------------------------------------------------------------------+
|
/*---------------------------------------------------------------------------+
|
| fpu_arith.c |
|
| fpu_arith.c |
|
| |
|
| |
|
| Code to implement the FPU register/register arithmetic instructions |
|
| Code to implement the FPU register/register arithmetic instructions |
|
| |
|
| |
|
| Copyright (C) 1992,1993 |
|
| Copyright (C) 1992,1993 |
|
| W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
|
| W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
|
| Australia. E-mail billm@vaxc.cc.monash.edu.au |
|
| Australia. E-mail billm@vaxc.cc.monash.edu.au |
|
| |
|
| |
|
| |
|
| |
|
+---------------------------------------------------------------------------*/
|
+---------------------------------------------------------------------------*/
|
|
|
#include "fpu_system.h"
|
#include "fpu_system.h"
|
#include "fpu_emu.h"
|
#include "fpu_emu.h"
|
#include "control_w.h"
|
#include "control_w.h"
|
#include "status_w.h"
|
#include "status_w.h"
|
|
|
|
|
void fadd__()
|
void fadd__()
|
{
|
{
|
/* fadd st,st(i) */
|
/* fadd st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_add(&st(0), &st(FPU_rm), &st(0), control_word);
|
reg_add(&st(0), &st(FPU_rm), &st(0), control_word);
|
}
|
}
|
|
|
|
|
void fmul__()
|
void fmul__()
|
{
|
{
|
/* fmul st,st(i) */
|
/* fmul st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_mul(&st(0), &st(FPU_rm), &st(0), control_word);
|
reg_mul(&st(0), &st(FPU_rm), &st(0), control_word);
|
}
|
}
|
|
|
|
|
|
|
void fsub__()
|
void fsub__()
|
{
|
{
|
/* fsub st,st(i) */
|
/* fsub st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_sub(&st(0), &st(FPU_rm), &st(0), control_word);
|
reg_sub(&st(0), &st(FPU_rm), &st(0), control_word);
|
}
|
}
|
|
|
|
|
void fsubr_()
|
void fsubr_()
|
{
|
{
|
/* fsubr st,st(i) */
|
/* fsubr st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_sub(&st(FPU_rm), &st(0), &st(0), control_word);
|
reg_sub(&st(FPU_rm), &st(0), &st(0), control_word);
|
}
|
}
|
|
|
|
|
void fdiv__()
|
void fdiv__()
|
{
|
{
|
/* fdiv st,st(i) */
|
/* fdiv st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_div(&st(0), &st(FPU_rm), &st(0), control_word);
|
reg_div(&st(0), &st(FPU_rm), &st(0), control_word);
|
}
|
}
|
|
|
|
|
void fdivr_()
|
void fdivr_()
|
{
|
{
|
/* fdivr st,st(i) */
|
/* fdivr st,st(i) */
|
clear_C1();
|
clear_C1();
|
reg_div(&st(FPU_rm), &st(0), &st(0), control_word);
|
reg_div(&st(FPU_rm), &st(0), &st(0), control_word);
|
}
|
}
|
|
|
|
|
|
|
void fadd_i()
|
void fadd_i()
|
{
|
{
|
/* fadd st(i),st */
|
/* fadd st(i),st */
|
clear_C1();
|
clear_C1();
|
reg_add(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
reg_add(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
void fmul_i()
|
void fmul_i()
|
{
|
{
|
/* fmul st(i),st */
|
/* fmul st(i),st */
|
clear_C1();
|
clear_C1();
|
reg_mul(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
reg_mul(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
void fsubri()
|
void fsubri()
|
{
|
{
|
/* fsubr st(i),st */
|
/* fsubr st(i),st */
|
/* This is the sense of the 80486 manual
|
/* This is the sense of the 80486 manual
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word); */
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word); */
|
clear_C1();
|
clear_C1();
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
void fsub_i()
|
void fsub_i()
|
{
|
{
|
/* fsub st(i),st */
|
/* fsub st(i),st */
|
/* This is the sense of the 80486 manual
|
/* This is the sense of the 80486 manual
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word); */
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word); */
|
clear_C1();
|
clear_C1();
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word);
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
void fdivri()
|
void fdivri()
|
{
|
{
|
/* fdivr st(i),st */
|
/* fdivr st(i),st */
|
clear_C1();
|
clear_C1();
|
reg_div(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
reg_div(&st(0), &st(FPU_rm), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
void fdiv_i()
|
void fdiv_i()
|
{
|
{
|
/* fdiv st(i),st */
|
/* fdiv st(i),st */
|
clear_C1();
|
clear_C1();
|
reg_div(&st(FPU_rm), &st(0), &st(FPU_rm), control_word);
|
reg_div(&st(FPU_rm), &st(0), &st(FPU_rm), control_word);
|
}
|
}
|
|
|
|
|
|
|
void faddp_()
|
void faddp_()
|
{
|
{
|
/* faddp st(i),st */
|
/* faddp st(i),st */
|
clear_C1();
|
clear_C1();
|
if ( !reg_add(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
if ( !reg_add(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|
void fmulp_()
|
void fmulp_()
|
{
|
{
|
/* fmulp st(i),st */
|
/* fmulp st(i),st */
|
clear_C1();
|
clear_C1();
|
if ( !reg_mul(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
if ( !reg_mul(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|
|
|
void fsubrp()
|
void fsubrp()
|
{
|
{
|
/* fsubrp st(i),st */
|
/* fsubrp st(i),st */
|
/* This is the sense of the 80486 manual
|
/* This is the sense of the 80486 manual
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word); */
|
reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word); */
|
clear_C1();
|
clear_C1();
|
if ( !reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
if ( !reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|
void fsubp_()
|
void fsubp_()
|
{
|
{
|
/* fsubp st(i),st */
|
/* fsubp st(i),st */
|
/* This is the sense of the 80486 manual
|
/* This is the sense of the 80486 manual
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word); */
|
reg_sub(&st(0), &st(FPU_rm), &st(FPU_rm), control_word); */
|
clear_C1();
|
clear_C1();
|
if ( !reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word) )
|
if ( !reg_sub(&st(FPU_rm), &st(0), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|
void fdivrp()
|
void fdivrp()
|
{
|
{
|
/* fdivrp st(i),st */
|
/* fdivrp st(i),st */
|
clear_C1();
|
clear_C1();
|
if ( !reg_div(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
if ( !reg_div(&st(0), &st(FPU_rm), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|
void fdivp_()
|
void fdivp_()
|
{
|
{
|
/* fdivp st(i),st */
|
/* fdivp st(i),st */
|
clear_C1();
|
clear_C1();
|
if ( !reg_div(&st(FPU_rm), &st(0), &st(FPU_rm), control_word) )
|
if ( !reg_div(&st(FPU_rm), &st(0), &st(FPU_rm), control_word) )
|
pop();
|
pop();
|
}
|
}
|
|
|
|
|