mirror of https://github.com/Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
467 lines
13 KiB
467 lines
13 KiB
| |
|
| gen_except.sa 3.7 1/16/92 |
|
| |
|
| gen_except --- FPSP routine to detect reportable exceptions |
|
| |
|
| This routine compares the exception enable byte of the |
|
| user_fpcr on the stack with the exception status byte |
|
| of the user_fpsr. |
|
| |
|
| Any routine which may report an exceptions must load |
|
| the stack frame in memory with the exceptional operand(s). |
|
| |
|
| Priority for exceptions is: |
|
| |
|
| Highest: bsun |
|
| snan |
|
| operr |
|
| ovfl |
|
| unfl |
|
| dz |
|
| inex2 |
|
| Lowest: inex1 |
|
| |
|
| Note: The IEEE standard specifies that inex2 is to be |
|
| reported if ovfl occurs and the ovfl enable bit is not |
|
| set but the inex2 enable bit is. |
|
| |
|
| |
|
| 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. |
|
|
|
GEN_EXCEPT: |idnt 2,1 | Motorola 040 Floating Point Software Package |
|
|
|
|section 8 |
|
|
|
#include "fpsp.h" |
|
|
|
|xref real_trace |
|
|xref fpsp_done |
|
|xref fpsp_fmt_error |
|
|
|
exc_tbl: |
|
.long bsun_exc |
|
.long commonE1 |
|
.long commonE1 |
|
.long ovfl_unfl |
|
.long ovfl_unfl |
|
.long commonE1 |
|
.long commonE3 |
|
.long commonE3 |
|
.long no_match |
|
|
|
.global gen_except |
|
gen_except: |
|
cmpib #IDLE_SIZE-4,1(%a7) |test for idle frame |
|
beq do_check |go handle idle frame |
|
cmpib #UNIMP_40_SIZE-4,1(%a7) |test for orig unimp frame |
|
beqs unimp_x |go handle unimp frame |
|
cmpib #UNIMP_41_SIZE-4,1(%a7) |test for rev unimp frame |
|
beqs unimp_x |go handle unimp frame |
|
cmpib #BUSY_SIZE-4,1(%a7) |if size <> $60, fmt error |
|
bnel fpsp_fmt_error |
|
leal BUSY_SIZE+LOCAL_SIZE(%a7),%a1 |init a1 so fpsp.h |
|
| ;equates will work |
|
| Fix up the new busy frame with entries from the unimp frame |
|
| |
|
movel ETEMP_EX(%a6),ETEMP_EX(%a1) |copy etemp from unimp |
|
movel ETEMP_HI(%a6),ETEMP_HI(%a1) |frame to busy frame |
|
movel ETEMP_LO(%a6),ETEMP_LO(%a1) |
|
movel CMDREG1B(%a6),CMDREG1B(%a1) |set inst in frame to unimp |
|
movel CMDREG1B(%a6),%d0 |fix cmd1b to make it |
|
andl #0x03c30000,%d0 |work for cmd3b |
|
bfextu CMDREG1B(%a6){#13:#1},%d1 |extract bit 2 |
|
lsll #5,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put it in the right place |
|
bfextu CMDREG1B(%a6){#10:#3},%d1 |extract bit 3,4,5 |
|
lsll #2,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put them in the right place |
|
movel %d0,CMDREG3B(%a1) |in the busy frame |
|
| |
|
| Or in the FPSR from the emulation with the USER_FPSR on the stack. |
|
| |
|
fmovel %FPSR,%d0 |
|
orl %d0,USER_FPSR(%a6) |
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a1) |set exc bits |
|
orl #sx_mask,E_BYTE(%a1) |
|
bra do_clean |
|
|
|
| |
|
| Frame is an unimp frame possible resulting from an fmove <ea>,fp0 |
|
| that caused an exception |
|
| |
|
| a1 is modified to point into the new frame allowing fpsp equates |
|
| to be valid. |
|
| |
|
unimp_x: |
|
cmpib #UNIMP_40_SIZE-4,1(%a7) |test for orig unimp frame |
|
bnes test_rev |
|
leal UNIMP_40_SIZE+LOCAL_SIZE(%a7),%a1 |
|
bras unimp_con |
|
test_rev: |
|
cmpib #UNIMP_41_SIZE-4,1(%a7) |test for rev unimp frame |
|
bnel fpsp_fmt_error |if not $28 or $30 |
|
leal UNIMP_41_SIZE+LOCAL_SIZE(%a7),%a1 |
|
|
|
unimp_con: |
|
| |
|
| Fix up the new unimp frame with entries from the old unimp frame |
|
| |
|
movel CMDREG1B(%a6),CMDREG1B(%a1) |set inst in frame to unimp |
|
| |
|
| Or in the FPSR from the emulation with the USER_FPSR on the stack. |
|
| |
|
fmovel %FPSR,%d0 |
|
orl %d0,USER_FPSR(%a6) |
|
bra do_clean |
|
|
|
| |
|
| Frame is idle, so check for exceptions reported through |
|
| USER_FPSR and set the unimp frame accordingly. |
|
| A7 must be incremented to the point before the |
|
| idle fsave vector to the unimp vector. |
|
| |
|
|
|
do_check: |
|
addl #4,%a7 |point A7 back to unimp frame |
|
| |
|
| Or in the FPSR from the emulation with the USER_FPSR on the stack. |
|
| |
|
fmovel %FPSR,%d0 |
|
orl %d0,USER_FPSR(%a6) |
|
| |
|
| On a busy frame, we must clear the nmnexc bits. |
|
| |
|
cmpib #BUSY_SIZE-4,1(%a7) |check frame type |
|
bnes check_fr |if busy, clr nmnexc |
|
clrw NMNEXC(%a6) |clr nmnexc & nmcexc |
|
btstb #5,CMDREG1B(%a6) |test for fmove out |
|
bnes frame_com |
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a6) |set exc bits |
|
orl #sx_mask,E_BYTE(%a6) |
|
bras frame_com |
|
check_fr: |
|
cmpb #UNIMP_40_SIZE-4,1(%a7) |
|
beqs frame_com |
|
clrw NMNEXC(%a6) |
|
frame_com: |
|
moveb FPCR_ENABLE(%a6),%d0 |get fpcr enable byte |
|
andb FPSR_EXCEPT(%a6),%d0 |and in the fpsr exc byte |
|
bfffo %d0{#24:#8},%d1 |test for first set bit |
|
leal exc_tbl,%a0 |load jmp table address |
|
subib #24,%d1 |normalize bit offset to 0-8 |
|
movel (%a0,%d1.w*4),%a0 |load routine address based |
|
| ;based on first enabled exc |
|
jmp (%a0) |jump to routine |
|
| |
|
| Bsun is not possible in unimp or unsupp |
|
| |
|
bsun_exc: |
|
bra do_clean |
|
| |
|
| The typical work to be done to the unimp frame to report an |
|
| exception is to set the E1/E3 byte and clr the U flag. |
|
| commonE1 does this for E1 exceptions, which are snan, |
|
| operr, and dz. commonE3 does this for E3 exceptions, which |
|
| are inex2 and inex1, and also clears the E1 exception bit |
|
| left over from the unimp exception. |
|
| |
|
commonE1: |
|
bsetb #E1,E_BYTE(%a6) |set E1 flag |
|
bra commonE |go clean and exit |
|
|
|
commonE3: |
|
tstb UFLG_TMP(%a6) |test flag for unsup/unimp state |
|
bnes unsE3 |
|
uniE3: |
|
bsetb #E3,E_BYTE(%a6) |set E3 flag |
|
bclrb #E1,E_BYTE(%a6) |clr E1 from unimp |
|
bra commonE |
|
|
|
unsE3: |
|
tstb RES_FLG(%a6) |
|
bnes unsE3_0 |
|
unsE3_1: |
|
bsetb #E3,E_BYTE(%a6) |set E3 flag |
|
unsE3_0: |
|
bclrb #E1,E_BYTE(%a6) |clr E1 flag |
|
movel CMDREG1B(%a6),%d0 |
|
andl #0x03c30000,%d0 |work for cmd3b |
|
bfextu CMDREG1B(%a6){#13:#1},%d1 |extract bit 2 |
|
lsll #5,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put it in the right place |
|
bfextu CMDREG1B(%a6){#10:#3},%d1 |extract bit 3,4,5 |
|
lsll #2,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put them in the right place |
|
movel %d0,CMDREG3B(%a6) |in the busy frame |
|
|
|
commonE: |
|
bclrb #UFLAG,T_BYTE(%a6) |clr U flag from unimp |
|
bra do_clean |go clean and exit |
|
| |
|
| No bits in the enable byte match existing exceptions. Check for |
|
| the case of the ovfl exc without the ovfl enabled, but with |
|
| inex2 enabled. |
|
| |
|
no_match: |
|
btstb #inex2_bit,FPCR_ENABLE(%a6) |check for ovfl/inex2 case |
|
beqs no_exc |if clear, exit |
|
btstb #ovfl_bit,FPSR_EXCEPT(%a6) |now check ovfl |
|
beqs no_exc |if clear, exit |
|
bras ovfl_unfl |go to unfl_ovfl to determine if |
|
| ;it is an unsupp or unimp exc |
|
|
|
| No exceptions are to be reported. If the instruction was |
|
| unimplemented, no FPU restore is necessary. If it was |
|
| unsupported, we must perform the restore. |
|
no_exc: |
|
tstb UFLG_TMP(%a6) |test flag for unsupp/unimp state |
|
beqs uni_no_exc |
|
uns_no_exc: |
|
tstb RES_FLG(%a6) |check if frestore is needed |
|
bne do_clean |if clear, no frestore needed |
|
uni_no_exc: |
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1 |
|
fmovemx USER_FP0(%a6),%fp0-%fp3 |
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar |
|
unlk %a6 |
|
bra finish_up |
|
| |
|
| Unsupported Data Type Handler: |
|
| Ovfl: |
|
| An fmoveout that results in an overflow is reported this way. |
|
| Unfl: |
|
| An fmoveout that results in an underflow is reported this way. |
|
| |
|
| Unimplemented Instruction Handler: |
|
| Ovfl: |
|
| Only scosh, setox, ssinh, stwotox, and scale can set overflow in |
|
| this manner. |
|
| Unfl: |
|
| Stwotox, setox, and scale can set underflow in this manner. |
|
| Any of the other Library Routines such that f(x)=x in which |
|
| x is an extended denorm can report an underflow exception. |
|
| It is the responsibility of the exception-causing exception |
|
| to make sure that WBTEMP is correct. |
|
| |
|
| The exceptional operand is in FP_SCR1. |
|
| |
|
ovfl_unfl: |
|
tstb UFLG_TMP(%a6) |test flag for unsupp/unimp state |
|
beqs ofuf_con |
|
| |
|
| The caller was from an unsupported data type trap. Test if the |
|
| caller set CU_ONLY. If so, the exceptional operand is expected in |
|
| FPTEMP, rather than WBTEMP. |
|
| |
|
tstb CU_ONLY(%a6) |test if inst is cu-only |
|
beq unsE3 |
|
| move.w #$fe,CU_SAVEPC(%a6) |
|
clrb CU_SAVEPC(%a6) |
|
bsetb #E1,E_BYTE(%a6) |set E1 exception flag |
|
movew ETEMP_EX(%a6),FPTEMP_EX(%a6) |
|
movel ETEMP_HI(%a6),FPTEMP_HI(%a6) |
|
movel ETEMP_LO(%a6),FPTEMP_LO(%a6) |
|
bsetb #fptemp15_bit,DTAG(%a6) |set fpte15 |
|
bclrb #UFLAG,T_BYTE(%a6) |clr U flag from unimp |
|
bra do_clean |go clean and exit |
|
|
|
ofuf_con: |
|
moveb (%a7),VER_TMP(%a6) |save version number |
|
cmpib #BUSY_SIZE-4,1(%a7) |check for busy frame |
|
beqs busy_fr |if unimp, grow to busy |
|
cmpib #VER_40,(%a7) |test for orig unimp frame |
|
bnes try_41 |if not, test for rev frame |
|
moveql #13,%d0 |need to zero 14 lwords |
|
bras ofuf_fin |
|
try_41: |
|
cmpib #VER_41,(%a7) |test for rev unimp frame |
|
bnel fpsp_fmt_error |if neither, exit with error |
|
moveql #11,%d0 |need to zero 12 lwords |
|
|
|
ofuf_fin: |
|
clrl (%a7) |
|
loop1: |
|
clrl -(%a7) |clear and dec a7 |
|
dbra %d0,loop1 |
|
moveb VER_TMP(%a6),(%a7) |
|
moveb #BUSY_SIZE-4,1(%a7) |write busy fmt word. |
|
busy_fr: |
|
movel FP_SCR1(%a6),WBTEMP_EX(%a6) |write |
|
movel FP_SCR1+4(%a6),WBTEMP_HI(%a6) |exceptional op to |
|
movel FP_SCR1+8(%a6),WBTEMP_LO(%a6) |wbtemp |
|
bsetb #E3,E_BYTE(%a6) |set E3 flag |
|
bclrb #E1,E_BYTE(%a6) |make sure E1 is clear |
|
bclrb #UFLAG,T_BYTE(%a6) |clr U flag |
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a6) |
|
orl #sx_mask,E_BYTE(%a6) |
|
movel CMDREG1B(%a6),%d0 |fix cmd1b to make it |
|
andl #0x03c30000,%d0 |work for cmd3b |
|
bfextu CMDREG1B(%a6){#13:#1},%d1 |extract bit 2 |
|
lsll #5,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put it in the right place |
|
bfextu CMDREG1B(%a6){#10:#3},%d1 |extract bit 3,4,5 |
|
lsll #2,%d1 |
|
swap %d1 |
|
orl %d1,%d0 |put them in the right place |
|
movel %d0,CMDREG3B(%a6) |in the busy frame |
|
|
|
| |
|
| Check if the frame to be restored is busy or unimp. |
|
|** NOTE *** Bug fix for errata (0d43b #3) |
|
| If the frame is unimp, we must create a busy frame to |
|
| fix the bug with the nmnexc bits in cases in which they |
|
| are set by a previous instruction and not cleared by |
|
| the save. The frame will be unimp only if the final |
|
| instruction in an emulation routine caused the exception |
|
| by doing an fmove <ea>,fp0. The exception operand, in |
|
| internal format, is in fptemp. |
|
| |
|
do_clean: |
|
cmpib #UNIMP_40_SIZE-4,1(%a7) |
|
bnes do_con |
|
moveql #13,%d0 |in orig, need to zero 14 lwords |
|
bras do_build |
|
do_con: |
|
cmpib #UNIMP_41_SIZE-4,1(%a7) |
|
bnes do_restore |frame must be busy |
|
moveql #11,%d0 |in rev, need to zero 12 lwords |
|
|
|
do_build: |
|
moveb (%a7),VER_TMP(%a6) |
|
clrl (%a7) |
|
loop2: |
|
clrl -(%a7) |clear and dec a7 |
|
dbra %d0,loop2 |
|
| |
|
| Use a1 as pointer into new frame. a6 is not correct if an unimp or |
|
| busy frame was created as the result of an exception on the final |
|
| instruction of an emulation routine. |
|
| |
|
| We need to set the nmcexc bits if the exception is E1. Otherwise, |
|
| the exc taken will be inex2. |
|
| |
|
leal BUSY_SIZE+LOCAL_SIZE(%a7),%a1 |init a1 for new frame |
|
moveb VER_TMP(%a6),(%a7) |write busy fmt word |
|
moveb #BUSY_SIZE-4,1(%a7) |
|
movel FP_SCR1(%a6),WBTEMP_EX(%a1) |write |
|
movel FP_SCR1+4(%a6),WBTEMP_HI(%a1) |exceptional op to |
|
movel FP_SCR1+8(%a6),WBTEMP_LO(%a1) |wbtemp |
|
| btst.b #E1,E_BYTE(%a1) |
|
| beq.b do_restore |
|
bfextu USER_FPSR(%a6){#17:#4},%d0 |get snan/operr/ovfl/unfl bits |
|
bfins %d0,NMCEXC(%a1){#4:#4} |and insert them in nmcexc |
|
movel USER_FPSR(%a6),FPSR_SHADOW(%a1) |set exc bits |
|
orl #sx_mask,E_BYTE(%a1) |
|
|
|
do_restore: |
|
moveml USER_DA(%a6),%d0-%d1/%a0-%a1 |
|
fmovemx USER_FP0(%a6),%fp0-%fp3 |
|
fmoveml USER_FPCR(%a6),%fpcr/%fpsr/%fpiar |
|
frestore (%a7)+ |
|
tstb RES_FLG(%a6) |RES_FLG indicates a "continuation" frame |
|
beq cont |
|
bsr bug1384 |
|
cont: |
|
unlk %a6 |
|
| |
|
| If trace mode enabled, then go to trace handler. This handler |
|
| cannot have any fp instructions. If there are fp inst's and an |
|
| exception has been restored into the machine then the exception |
|
| will occur upon execution of the fp inst. This is not desirable |
|
| in the kernel (supervisor mode). See MC68040 manual Section 9.3.8. |
|
| |
|
finish_up: |
|
btstb #7,(%a7) |test T1 in SR |
|
bnes g_trace |
|
btstb #6,(%a7) |test T0 in SR |
|
bnes g_trace |
|
bral fpsp_done |
|
| |
|
| Change integer stack to look like trace stack |
|
| The address of the instruction that caused the |
|
| exception is already in the integer stack (is |
|
| the same as the saved friar) |
|
| |
|
| If the current frame is already a 6-word stack then all |
|
| that needs to be done is to change the vector# to TRACE. |
|
| If the frame is only a 4-word stack (meaning we got here |
|
| on an Unsupported data type exception), then we need to grow |
|
| the stack an extra 2 words and get the FPIAR from the FPU. |
|
| |
|
g_trace: |
|
bftst EXC_VEC-4(%sp){#0:#4} |
|
bne g_easy |
|
|
|
subw #4,%sp | make room |
|
movel 4(%sp),(%sp) |
|
movel 8(%sp),4(%sp) |
|
subw #BUSY_SIZE,%sp |
|
fsave (%sp) |
|
fmovel %fpiar,BUSY_SIZE+EXC_EA-4(%sp) |
|
frestore (%sp) |
|
addw #BUSY_SIZE,%sp |
|
|
|
g_easy: |
|
movew #TRACE_VEC,EXC_VEC-4(%a7) |
|
bral real_trace |
|
| |
|
| This is a work-around for hardware bug 1384. |
|
| |
|
bug1384: |
|
link %a5,#0 |
|
fsave -(%sp) |
|
cmpib #0x41,(%sp) | check for correct frame |
|
beq frame_41 |
|
bgt nofix | if more advanced mask, do nada |
|
|
|
frame_40: |
|
tstb 1(%sp) | check to see if idle |
|
bne notidle |
|
idle40: |
|
clrl (%sp) | get rid of old fsave frame |
|
movel %d1,USER_D1(%a6) | save d1 |
|
movew #8,%d1 | place unimp frame instead |
|
loop40: clrl -(%sp) |
|
dbra %d1,loop40 |
|
movel USER_D1(%a6),%d1 | restore d1 |
|
movel #0x40280000,-(%sp) |
|
frestore (%sp)+ |
|
unlk %a5 |
|
rts |
|
|
|
frame_41: |
|
tstb 1(%sp) | check to see if idle |
|
bne notidle |
|
idle41: |
|
clrl (%sp) | get rid of old fsave frame |
|
movel %d1,USER_D1(%a6) | save d1 |
|
movew #10,%d1 | place unimp frame instead |
|
loop41: clrl -(%sp) |
|
dbra %d1,loop41 |
|
movel USER_D1(%a6),%d1 | restore d1 |
|
movel #0x41300000,-(%sp) |
|
frestore (%sp)+ |
|
unlk %a5 |
|
rts |
|
|
|
notidle: |
|
bclrb #etemp15_bit,-40(%a5) |
|
frestore (%sp)+ |
|
unlk %a5 |
|
rts |
|
|
|
nofix: |
|
frestore (%sp)+ |
|
unlk %a5 |
|
rts |
|
|
|
|end
|
|
|