|
|
| x_ovfl.sa 3.5 7/1/91
|
|
|
| fpsp_ovfl --- FPSP handler for overflow exception
|
|
|
| Overflow occurs when a floating-point intermediate result is
|
| too large to be represented in a floating-point data register,
|
| or when storing to memory, the contents of a floating-point
|
| data register are too large to be represented in the
|
| destination format.
|
|
|
| Trap disabled results
|
|
|
| If the instruction is move_out, then garbage is stored in the
|
| destination. If the instruction is not move_out, then the
|
| destination is not affected. For 68881 compatibility, the
|
| following values should be stored at the destination, based
|
| on the current rounding mode:
|
|
|
| RN Infinity with the sign of the intermediate result.
|
| RZ Largest magnitude number, with the sign of the
|
| intermediate result.
|
| RM For pos overflow, the largest pos number. For neg overflow,
|
| -infinity
|
| RP For pos overflow, +infinity. For neg overflow, the largest
|
| neg number
|
|
|
| Trap enabled results
|
| All trap disabled code applies. In addition the exceptional
|
| operand needs to be made available to the users exception handler
|
| with a bias of $6000 subtracted from the exponent.
|
|
|
|
|
|
| Copyright (C) Motorola, Inc. 1990
|
| All Rights Reserved
|
|
|
| For details on the license for this file, please see the
|
| file, README, in this same directory.
|
|
X_OVFL: |idnt 2,1 | Motorola 040 Floating Point Software Package
|
|
|section 8
|
|
#include "fpsp.h"
|
|
|xref ovf_r_x2
|
|xref ovf_r_x3
|
|xref store
|
|xref real_ovfl
|
|xref real_inex
|
|xref fpsp_done
|
|xref g_opcls
|
|xref b1238_fix
|
|
.global fpsp_ovfl
|
fpsp_ovfl:
|
link %a6,#-LOCAL_SIZE
|
fsave -(%a7)
|
moveml %d0-%d1/%a0-%a1,USER_DA(%a6)
|
fmovemx %fp0-%fp3,USER_FP0(%a6)
|
fmoveml %fpcr/%fpsr/%fpiar,USER_FPCR(%a6)
|
|
|
|
| The 040 doesn't set the AINEX bit in the FPSR, the following
|
| line temporarily rectifies this error.
|
|
|
bsetb #ainex_bit,FPSR_AEXCEPT(%a6)
|
|
|
bsrl ovf_adj |denormalize, round & store interm op
|
|
|
| if overflow traps not enabled check for inexact exception
|
|
|
btstb #ovfl_bit,FPCR_ENABLE(%a6)
|
beqs ck_inex
|
|
|
btstb #E3,E_BYTE(%a6)
|
beqs no_e3_1
|
bfextu CMDREG3B(%a6){#6:#3},%d0 |get dest reg no
|
bclrb %d0,FPR_DIRTY_BITS(%a6) |clr dest dirty bit
|
bsrl b1238_fix
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a6)
|
orl #sx_mask,E_BYTE(%a6)
|
no_e3_1:
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1
|
fmovemx USER_FP0(%a6),%fp0-%fp3
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar
|
frestore (%a7)+
|
unlk %a6
|
bral real_ovfl
|
|
|
| It is possible to have either inex2 or inex1 exceptions with the
|
| ovfl. If the inex enable bit is set in the FPCR, and either
|
| inex2 or inex1 occurred, we must clean up and branch to the
|
| real inex handler.
|
|
|
ck_inex:
|
| move.b FPCR_ENABLE(%a6),%d0
|
| and.b FPSR_EXCEPT(%a6),%d0
|
| andi.b #$3,%d0
|
btstb #inex2_bit,FPCR_ENABLE(%a6)
|
beqs ovfl_exit
|
|
|
| Inexact enabled and reported, and we must take an inexact exception.
|
|
|
take_inex:
|
btstb #E3,E_BYTE(%a6)
|
beqs no_e3_2
|
bfextu CMDREG3B(%a6){#6:#3},%d0 |get dest reg no
|
bclrb %d0,FPR_DIRTY_BITS(%a6) |clr dest dirty bit
|
bsrl b1238_fix
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a6)
|
orl #sx_mask,E_BYTE(%a6)
|
no_e3_2:
|
moveb #INEX_VEC,EXC_VEC+1(%a6)
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1
|
fmovemx USER_FP0(%a6),%fp0-%fp3
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar
|
frestore (%a7)+
|
unlk %a6
|
bral real_inex
|
|
ovfl_exit:
|
bclrb #E3,E_BYTE(%a6) |test and clear E3 bit
|
beqs e1_set
|
|
|
| Clear dirty bit on dest resister in the frame before branching
|
| to b1238_fix.
|
|
|
bfextu CMDREG3B(%a6){#6:#3},%d0 |get dest reg no
|
bclrb %d0,FPR_DIRTY_BITS(%a6) |clr dest dirty bit
|
bsrl b1238_fix |test for bug1238 case
|
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a6)
|
orl #sx_mask,E_BYTE(%a6)
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1
|
fmovemx USER_FP0(%a6),%fp0-%fp3
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar
|
frestore (%a7)+
|
unlk %a6
|
bral fpsp_done
|
e1_set:
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1
|
fmovemx USER_FP0(%a6),%fp0-%fp3
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar
|
unlk %a6
|
bral fpsp_done
|
|
|
|
| ovf_adj
|
|
|
ovf_adj:
|
|
|
| Have a0 point to the correct operand.
|
|
|
btstb #E3,E_BYTE(%a6) |test E3 bit
|
beqs ovf_e1
|
|
lea WBTEMP(%a6),%a0
|
bras ovf_com
|
ovf_e1:
|
lea ETEMP(%a6),%a0
|
|
ovf_com:
|
bclrb #sign_bit,LOCAL_EX(%a0)
|
sne LOCAL_SGN(%a0)
|
|
bsrl g_opcls |returns opclass in d0
|
cmpiw #3,%d0 |check for opclass3
|
bnes not_opc011
|
|
|
|
| FPSR_CC is saved and restored because ovf_r_x3 affects it. The
|
| CCs are defined to be 'not affected' for the opclass3 instruction.
|
|
|
moveb FPSR_CC(%a6),L_SCR1(%a6)
|
bsrl ovf_r_x3 |returns a0 pointing to result
|
moveb L_SCR1(%a6),FPSR_CC(%a6)
|
bral store |stores to memory or register
|
|
not_opc011:
|
bsrl ovf_r_x2 |returns a0 pointing to result
|
bral store |stores to memory or register
|
|
|end
|
