SH-2A Datasheet, PDF (93/501 Pages) Renesas Technology Corp – Renesas 32-Bit RISC Microcomputer SuperH™ RISC engine Family

Section 6 Instruction Descriptions
int abs;
abs = FR_HEX[n] & 0x7fffffff;
if(FPSCR_PR == 0) { /* Single-precision */
if(abs < 0x00800000){
if((FPSCR_DN == 1) || (abs == 0x00000000)){
if(sign_of(n) == 0) {zero(n, 0); return(PZERO);}
else
{zero(n, 1); return(NZERO);}
}
else
return(DENORM);
}
else if(abs < 0x7f800000) return(NORM);
else if(abs == 0x7f800000) {
if(sign_of(n) == 0)
return(PINF);
else
return(NINF);
}
else if(abs < 0x7fc00000) return(qNaN);
else
return(sNaN);
}
else { /* Double-precision */
if(abs < 0x00100000){
if((FPSCR_DN == 1) ||
((abs == 0x00000000) && (FR_HEX[n+1] == 0x00000000)){
if(sign_of(n) == 0) {zero(n, 0); return(PZERO);}
else
{zero(n, 1); return(NZERO);}
}
else
return(DENORM);
}
else if(abs < 0x7ff00000) return(NORM);
else if((abs == 0x7ff00000) &&
(FR_HEX[n+1] == 0x00000000)) {
if(sign_of(n) == 0) return(PINF);
else
return(NINF);
}
else if(abs < 0x7ff80000) return(qNaN);
else
return(sNaN);
Rev. 3.00 Jul 08, 2005 page 79 of 484
REJ09B0051-0300