Lines Matching refs:mov
97 mov.l %d0,-(%sp)
98 mov.l (_060FPSP_TABLE-0x80+_off_done,%pc),%d0
100 mov.l 0x4(%sp),%d0
105 mov.l %d0,-(%sp)
106 mov.l (_060FPSP_TABLE-0x80+_off_ovfl,%pc),%d0
108 mov.l 0x4(%sp),%d0
113 mov.l %d0,-(%sp)
114 mov.l (_060FPSP_TABLE-0x80+_off_unfl,%pc),%d0
116 mov.l 0x4(%sp),%d0
121 mov.l %d0,-(%sp)
122 mov.l (_060FPSP_TABLE-0x80+_off_inex,%pc),%d0
124 mov.l 0x4(%sp),%d0
129 mov.l %d0,-(%sp)
130 mov.l (_060FPSP_TABLE-0x80+_off_bsun,%pc),%d0
132 mov.l 0x4(%sp),%d0
137 mov.l %d0,-(%sp)
138 mov.l (_060FPSP_TABLE-0x80+_off_operr,%pc),%d0
140 mov.l 0x4(%sp),%d0
145 mov.l %d0,-(%sp)
146 mov.l (_060FPSP_TABLE-0x80+_off_snan,%pc),%d0
148 mov.l 0x4(%sp),%d0
153 mov.l %d0,-(%sp)
154 mov.l (_060FPSP_TABLE-0x80+_off_dz,%pc),%d0
156 mov.l 0x4(%sp),%d0
161 mov.l %d0,-(%sp)
162 mov.l (_060FPSP_TABLE-0x80+_off_fline,%pc),%d0
164 mov.l 0x4(%sp),%d0
169 mov.l %d0,-(%sp)
170 mov.l (_060FPSP_TABLE-0x80+_off_fpu_dis,%pc),%d0
172 mov.l 0x4(%sp),%d0
177 mov.l %d0,-(%sp)
178 mov.l (_060FPSP_TABLE-0x80+_off_trap,%pc),%d0
180 mov.l 0x4(%sp),%d0
185 mov.l %d0,-(%sp)
186 mov.l (_060FPSP_TABLE-0x80+_off_trace,%pc),%d0
188 mov.l 0x4(%sp),%d0
193 mov.l %d0,-(%sp)
194 mov.l (_060FPSP_TABLE-0x80+_off_access,%pc),%d0
196 mov.l 0x4(%sp),%d0
203 mov.l %d0,-(%sp)
204 mov.l (_060FPSP_TABLE-0x80+_off_imr,%pc),%d0
206 mov.l 0x4(%sp),%d0
211 mov.l %d0,-(%sp)
212 mov.l (_060FPSP_TABLE-0x80+_off_dmr,%pc),%d0
214 mov.l 0x4(%sp),%d0
219 mov.l %d0,-(%sp)
220 mov.l (_060FPSP_TABLE-0x80+_off_dmw,%pc),%d0
222 mov.l 0x4(%sp),%d0
227 mov.l %d0,-(%sp)
228 mov.l (_060FPSP_TABLE-0x80+_off_irw,%pc),%d0
230 mov.l 0x4(%sp),%d0
235 mov.l %d0,-(%sp)
236 mov.l (_060FPSP_TABLE-0x80+_off_irl,%pc),%d0
238 mov.l 0x4(%sp),%d0
243 mov.l %d0,-(%sp)
244 mov.l (_060FPSP_TABLE-0x80+_off_drb,%pc),%d0
246 mov.l 0x4(%sp),%d0
251 mov.l %d0,-(%sp)
252 mov.l (_060FPSP_TABLE-0x80+_off_drw,%pc),%d0
254 mov.l 0x4(%sp),%d0
259 mov.l %d0,-(%sp)
260 mov.l (_060FPSP_TABLE-0x80+_off_drl,%pc),%d0
262 mov.l 0x4(%sp),%d0
267 mov.l %d0,-(%sp)
268 mov.l (_060FPSP_TABLE-0x80+_off_dwb,%pc),%d0
270 mov.l 0x4(%sp),%d0
275 mov.l %d0,-(%sp)
276 mov.l (_060FPSP_TABLE-0x80+_off_dww,%pc),%d0
278 mov.l 0x4(%sp),%d0
283 mov.l %d0,-(%sp)
284 mov.l (_060FPSP_TABLE-0x80+_off_dwl,%pc),%d0
286 mov.l 0x4(%sp),%d0
649 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
650 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
653 mov.l %d0,EXC_OPWORD(%a6)
668 mov.b %d0,STAG(%a6) # maybe NORM,DENORM
685 mov.b %d0,DTAG(%a6) # save dst optype tag
689 #$# mov.l FP_SRC_EX(%a6),TRAP_SRCOP_EX(%a6)
690 #$# mov.l FP_SRC_HI(%a6),TRAP_SRCOP_HI(%a6)
691 #$# mov.l FP_SRC_LO(%a6),TRAP_SRCOP_LO(%a6)
692 #$# mov.l FP_DST_EX(%a6),TRAP_DSTOP_EX(%a6)
693 #$# mov.l FP_DST_HI(%a6),TRAP_DSTOP_HI(%a6)
694 #$# mov.l FP_DST_LO(%a6),TRAP_DSTOP_LO(%a6)
697 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec/mode
699 mov.b 1+EXC_CMDREG(%a6),%d1
711 mov.l (tbl_unsupp.l,%pc,%d1.w*4),%d1 # fetch routine addr
743 mov.w &0xe005,2+FP_SRC(%a6) # save exc status
761 mov.b &0xc4,1+EXC_VOFF(%a6) # vector offset = 0xc4
762 mov.w &0xe001,2+FP_SRC(%a6) # save exc status
778 #$# mov.l FP_SRC_EX(%a6),TRAP_SRCOP_EX(%a6)
779 #$# mov.l FP_SRC_HI(%a6),TRAP_SRCOP_HI(%a6)
780 #$# mov.l FP_SRC_LO(%a6),TRAP_SRCOP_LO(%a6)
783 mov.b &NORM,STAG(%a6) # set src optype tag
786 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec/mode
814 mov.w &0x2024,0x6(%sp) # stk fmt = 0x2; voff = 0x024
889 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
890 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
893 mov.l %d0,EXC_OPWORD(%a6)
906 mov.b %d0,STAG(%a6) # maybe NORM,DENORM
928 mov.b %d0,DTAG(%a6) # save dst optype tag
932 #$# mov.l FP_SRC_EX(%a6),TRAP_SRCOP_EX(%a6)
933 #$# mov.l FP_SRC_HI(%a6),TRAP_SRCOP_HI(%a6)
934 #$# mov.l FP_SRC_LO(%a6),TRAP_SRCOP_LO(%a6)
935 #$# mov.l FP_DST_EX(%a6),TRAP_DSTOP_EX(%a6)
936 #$# mov.l FP_DST_HI(%a6),TRAP_DSTOP_HI(%a6)
937 #$# mov.l FP_DST_LO(%a6),TRAP_DSTOP_LO(%a6)
940 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec/mode
942 mov.b 1+EXC_CMDREG(%a6),%d1
954 mov.l (tbl_unsupp.l,%pc,%d1.w*4),%d1 # fetch routine addr
1005 mov.w &0xe003,2+FP_SRC(%a6) # save exc status
1035 mov.b &0xc4,1+EXC_VOFF(%a6) # vector offset = 0xc4
1036 mov.w &0xe001,2+FP_SRC(%a6) # save exc status
1052 #$# mov.l FP_SRC_EX(%a6),TRAP_SRCOP_EX(%a6)
1053 #$# mov.l FP_SRC_HI(%a6),TRAP_SRCOP_HI(%a6)
1054 #$# mov.l FP_SRC_LO(%a6),TRAP_SRCOP_LO(%a6)
1057 mov.b &NORM,STAG(%a6) # set src optype tag
1060 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec/mode
1088 mov.w &0x2024,0x6(%sp) # stk fmt = 0x2; voff = 0x024
1216 mov.l %usp,%a0 # fetch user stack pointer
1217 mov.l %a0,EXC_A7(%a6) # save on stack
1224 mov.l %a0,EXC_A7(%a6) # save on stack
1231 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
1232 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
1235 mov.l %d0,EXC_OPWORD(%a6) # store OPWORD and EXTWORD
1275 mov.b %d0,STAG(%a6) # save src optype tag
1294 mov.b %d0,DTAG(%a6) # save dst optype tag
1298 mov.b FPCR_MODE(%a6),%d0 # fetch rnd mode/prec
1305 mov.l (tbl_unsupp.l,%pc,%d1.l*4),%d1 # fetch routine addr
1322 mov.b FPCR_ENABLE(%a6),%d0 # fetch exceptions set
1327 mov.b 1+EXC_CMDREG(%a6),%d0 # fetch extension
1398 mov.l %d0,-(%sp) # save d0
1400 mov.l (%sp)+,%d0 # restore d0
1402 mov.w (tbl_except.b,%pc,%d0.w*2),2+FP_SRC(%a6) # create exc status
1419 mov.w &0x4,%d0
1422 mov.w &0x03,%d0
1439 mov.w LOCAL_EX(%a0),%d0 # fetch src exponent
1469 mov.w LOCAL_EX(%a0),%d0 # fetch src exponent
1516 mov.w FP_SRC_EX(%a6),%d0 # get exponent
1523 mov.b %d0,STAG(%a6)
1527 mov.b &DENORM,STAG(%a6)
1531 mov.b FPCR_MODE(%a6),%d0 # fetch rnd mode/prec
1535 mov.l (%a6),EXC_A6(%a6) # in case a6 changes
1550 mov.b FPCR_ENABLE(%a6),%d0 # fetch exceptions enabled
1555 mov.l EXC_A6(%a6),(%a6) # in case a6 changed
1565 mov.l EXC_A7(%a6),%a0 # restore a7
1566 mov.l %a0,%usp
1597 mov.l (%a6),%a6 # restore frame pointer
1599 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
1600 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
1603 mov.l LOCAL_SIZE+FP_SRC_EX(%sp),LOCAL_SIZE+EXC_SR+0x0(%sp)
1604 mov.l LOCAL_SIZE+FP_SRC_HI(%sp),LOCAL_SIZE+EXC_SR+0x4(%sp)
1605 mov.l LOCAL_SIZE+FP_SRC_LO(%sp),LOCAL_SIZE+EXC_SR+0x8(%sp)
1649 mov.w &0x2024,0x6(%sp)
1659 mov.w (tbl_fu_out.b,%pc,%d0.w*2),%d0
1680 mov.w &0x30d8,EXC_VOFF(%a6) # vector offset = 0xd8
1681 mov.w &0xe006,2+FP_SRC(%a6)
1695 mov.w &0x30d0,EXC_VOFF(%a6) # vector offset = 0xd0
1696 mov.w &0xe004,2+FP_SRC(%a6)
1712 mov.w &0x30d4,EXC_VOFF(%a6) # vector offset = 0xd4
1713 mov.w &0xe005,2+FP_SRC(%a6)
1726 mov.l EXC_A6(%a6),(%a6) # restore a6
1731 mov.l EXC_A7(%a6),%a0 # restore a7 whether we need
1732 mov.l %a0,%usp # to or not...
1741 mov.w &0x30cc,EXC_VOFF(%a6) # vector offset = 0xcc
1742 mov.w &0xe003,2+FP_SRC(%a6)
1765 mov.w &0x30cc,EXC_VOFF(%a6) # vector offset = 0xcc
1766 mov.w &0xe003,2+FP_DST(%a6)
1770 mov.l (%a6),%a6 # restore frame pointer
1772 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
1773 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
1774 mov.l LOCAL_SIZE+EXC_EA(%sp),LOCAL_SIZE+EXC_EA-0xc(%sp)
1777 mov.l LOCAL_SIZE+FP_SRC_EX(%sp),LOCAL_SIZE+EXC_SR+0x0(%sp)
1778 mov.l LOCAL_SIZE+FP_SRC_HI(%sp),LOCAL_SIZE+EXC_SR+0x4(%sp)
1779 mov.l LOCAL_SIZE+FP_SRC_LO(%sp),LOCAL_SIZE+EXC_SR+0x8(%sp)
1793 mov.w &0x30c4,EXC_VOFF(%a6) # vector offset = 0xc4
1794 mov.w &0xe001,2+FP_SRC(%a6)
1820 mov.b %d0,STAG(%a6) # save src optype tag
1839 mov.b %d0,DTAG(%a6) # save dst optype tag
1843 mov.b FPCR_MODE(%a6),%d0 # fetch rnd mode/prec
1850 mov.l (tbl_unsupp.l,%pc,%d1.l*4),%d1 # fetch routine addr
1867 mov.b FPCR_ENABLE(%a6),%d0 # fetch exceptions enabled
1872 mov.b 1+EXC_CMDREG(%a6),%d0 # fetch extension
1885 mov.l EXC_A7(%a6),%a0 # update user a7
1886 mov.l %a0,%usp
1914 mov.l 0x4(%sp),0x10(%sp)
1915 mov.l 0x0(%sp),0xc(%sp)
1982 mov.l EXC_A7(%a6),%a0 # update user a7
1983 mov.l %a0,%usp
1986 mov.w (tbl_except_p.b,%pc,%d0.w*2),2+FP_SRC(%a6)
2006 mov.w &0x3,%d0
2010 mov.w &0x4,%d0
2017 mov.w (tbl_except_p.b,%pc,%d0.w*2),2+FP_SRC(%a6)
2028 mov.l 0x4(%sp),0x10(%sp)
2029 mov.l 0x0(%sp),0xc(%sp)
2055 mov.w &0x2024,0x6(%sp)
2085 mov.b %d0,STAG(%a6) # save src optype tag
2088 mov.b FPCR_MODE(%a6),%d0 # fetch rnd mode/prec
2092 mov.l (%a6),EXC_A6(%a6) # in case a6 changes
2107 mov.b FPCR_ENABLE(%a6),%d0 # fetch exceptions enabled
2111 mov.l EXC_A6(%a6),(%a6) # restore a6
2116 mov.l EXC_A7(%a6),%a0 # update user a7
2117 mov.l %a0,%usp
2142 mov.l (%a6),%a6 # restore frame pointer
2144 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
2145 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
2148 mov.l LOCAL_SIZE+FP_DST_EX(%sp),LOCAL_SIZE+EXC_SR+0x0(%sp)
2149 mov.l LOCAL_SIZE+FP_DST_HI(%sp),LOCAL_SIZE+EXC_SR+0x4(%sp)
2150 mov.l LOCAL_SIZE+FP_DST_LO(%sp),LOCAL_SIZE+EXC_SR+0x8(%sp)
2164 mov.l EXC_A6(%a6),(%a6) # restore a6
2177 mov.l EXC_A7(%a6),%a0
2178 mov.l %a0,%usp
2192 mov.w &0x30d8,EXC_VOFF(%a6) # vector offset = 0xd0
2193 mov.w &0xe006,2+FP_SRC(%a6) # set fsave status
2197 mov.l (%a6),%a6 # restore frame pointer
2199 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
2200 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
2201 mov.l LOCAL_SIZE+EXC_EA(%sp),LOCAL_SIZE+EXC_EA-0xc(%sp)
2204 mov.l LOCAL_SIZE+FP_DST_EX(%sp),LOCAL_SIZE+0x4(%sp)
2205 mov.l LOCAL_SIZE+FP_DST_HI(%sp),LOCAL_SIZE+0x8(%sp)
2206 mov.l LOCAL_SIZE+FP_DST_LO(%sp),LOCAL_SIZE+0xc(%sp)
2217 mov.l EXC_A7(%a6),%a0
2218 mov.l %a0,%usp
2232 mov.w &0x30d0,EXC_VOFF(%a6) # vector offset = 0xd0
2233 mov.w &0xe004,2+FP_SRC(%a6) # set fsave status
2237 mov.l (%a6),%a6 # restore frame pointer
2239 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
2240 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
2241 mov.l LOCAL_SIZE+EXC_EA(%sp),LOCAL_SIZE+EXC_EA-0xc(%sp)
2244 mov.l LOCAL_SIZE+FP_DST_EX(%sp),LOCAL_SIZE+0x4(%sp)
2245 mov.l LOCAL_SIZE+FP_DST_HI(%sp),LOCAL_SIZE+0x8(%sp)
2246 mov.l LOCAL_SIZE+FP_DST_LO(%sp),LOCAL_SIZE+0xc(%sp)
2257 mov.l EXC_A7(%a6),%a0
2258 mov.l %a0,%usp
2272 mov.w &0x30c4,EXC_VOFF(%a6) # vector offset = 0xc4
2273 mov.w &0xe001,2+FP_SRC(%a6) # set fsave status
2277 mov.l (%a6),%a6 # restore frame pointer
2279 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
2280 mov.l LOCAL_SIZE+2+EXC_PC(%sp),LOCAL_SIZE+2+EXC_PC-0xc(%sp)
2281 mov.l LOCAL_SIZE+EXC_EA(%sp),LOCAL_SIZE+EXC_EA-0xc(%sp)
2284 mov.l LOCAL_SIZE+FP_DST_EX(%sp),LOCAL_SIZE+0x4(%sp)
2285 mov.l LOCAL_SIZE+FP_DST_HI(%sp),LOCAL_SIZE+0x8(%sp)
2286 mov.l LOCAL_SIZE+FP_DST_LO(%sp),LOCAL_SIZE+0xc(%sp)
2310 mov.w FP_SRC_EX(%a6),%d0 # fetch DENORM exponent
2317 mov.l FP_SRC_HI(%a6),%d1 # fetch DENORM hi(man)
2320 mov.l %d1,FP_SRC_HI(%a6) # insert new hi(man)
2327 mov.w FP_SRC_EX(%a6),%d0 # fetch DENORM exponent
2335 mov.w %d0,FP_SRC_EX(%a6) # insert exponent with cleared sign
2338 mov.w &0x3c01,%d1 # pass denorm threshold
2340 mov.w &0x3c00,%d0 # new exponent
2346 mov.w %d0,FP_SRC_EX(%a6) # insert new exponent
2355 mov.l 0x0(%a0),FP_DST_EX(%a6)
2356 mov.l 0x4(%a0),FP_DST_HI(%a6)
2357 mov.l 0x8(%a0),FP_DST_LO(%a6)
2457 mov.l %d0,-(%sp) # save d0
2461 mov.l (%sp)+,%d0 # restore d0
2470 mov.l EXC_PC(%a6),EXC_EXTWPTR(%a6)
2472 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
2475 mov.l %d0,EXC_OPWORD(%a6) # store OPWORD and EXTWORD
2508 mov.l EXC_EXTWPTR(%a6),%a0 # pass: ptr to #<data>
2510 mov.l &0xc,%d0 # pass: 12 bytes
2520 mov.l EXC_EXTWPTR(%a6),%a0 # pass: ptr to #<data>
2522 mov.l &0xc,%d0 # pass: 12 bytes
2535 mov.b 3+FP_SRC(%a6),%d0 # get byte 4
2553 mov.b %d0,STAG(%a6) # could be ANYTHING!!!
2557 mov.b %d0,STAG(%a6) # set new optype tag
2572 mov.b %d0,DTAG(%a6) # could be ANYTHING!!!
2576 mov.b %d0,DTAG(%a6) # set new optype tag
2591 mov.b FPCR_MODE(%a6),%d0 # pass: rnd mode,prec
2593 mov.b 1+EXC_CMDREG(%a6),%d1
2602 mov.l (tbl_unsupp.l,%pc,%d1.w*4),%d1 # fetch routine addr
2619 mov.b FPCR_ENABLE(%a6),%d0 # fetch exceptions enabled
2633 mov.l EXC_PC(%a6),USER_FPIAR(%a6) # set FPIAR to "Current PC"
2634 mov.l EXC_EXTWPTR(%a6),EXC_PC(%a6) # set "Next PC" in exc frame
2678 mov.w (tbl_iea_except.b,%pc,%d0.w*2),2+FP_SRC(%a6)
2686 mov.w &0xe005,2+FP_SRC(%a6)
2690 mov.w &0xe003,2+FP_SRC(%a6)
2693 mov.l EXC_PC(%a6),USER_FPIAR(%a6) # set FPIAR to "Current PC"
2694 mov.l EXC_EXTWPTR(%a6),EXC_PC(%a6) # set "Next PC" in exc frame
2727 mov.l (%sp),-(%sp) # shift stack frame "down"
2728 mov.w 0x8(%sp),0x4(%sp)
2729 mov.w &0x2024,0x6(%sp) # stk fmt = 0x2; voff = 0x024
2745 mov.l %usp,%a0
2746 mov.l %a0,EXC_A7(%a6) # store current a7
2748 mov.l EXC_A7(%a6),%a0 # load possibly new a7
2749 mov.l %a0,%usp # update usp
2755 mov.l %a0,EXC_A7(%a6)
2771 mov.w EXC_SR(%a6),(EXC_SR,%a6,%d0)
2772 mov.l EXC_EXTWPTR(%a6),(EXC_PC,%a6,%d0)
2773 mov.w &0x00f0,(EXC_VOFF,%a6,%d0)
2776 mov.l %a0,EXC_SR(%a6)
2783 mov.l (%sp)+,%sp
2787 mov.w EXC_SR(%a6),(EXC_SR-0x4,%a6,%d0)
2788 mov.l EXC_EXTWPTR(%a6),(EXC_PC-0x4,%a6,%d0)
2789 mov.w &0x2024,(EXC_VOFF-0x4,%a6,%d0)
2790 mov.l EXC_PC(%a6),(EXC_VOFF+0x2-0x4,%a6,%d0)
2793 mov.l %a0,EXC_SR(%a6)
2800 mov.l (%sp)+,%sp
2805 mov.b %d1,EXC_VOFF(%a6) # store strg
2806 mov.b %d0,0x1+EXC_VOFF(%a6) # store size
2812 mov.l (%a6),-(%sp) # make a copy of a6
2813 mov.l %d0,-(%sp) # save d0
2814 mov.l %d1,-(%sp) # save d1
2815 mov.l EXC_EXTWPTR(%a6),-(%sp) # make a copy of Next PC
2818 mov.b 0x1+EXC_VOFF(%a6),%d0 # fetch size
2824 mov.w EXC_SR(%a6),(EXC_SR-0x4,%a6,%d0)
2825 mov.l EXC_PC(%a6),(EXC_VOFF-0x2,%a6,%d0)
2826 mov.l (%sp)+,(EXC_PC-0x4,%a6,%d0)
2827 mov.w &0x2024,(EXC_VOFF-0x4,%a6,%d0)
2833 mov.w EXC_SR(%a6),(EXC_SR,%a6,%d0)
2834 mov.l (%sp)+,(EXC_PC,%a6,%d0)
2835 mov.w &0x00f0,(EXC_VOFF,%a6,%d0)
2841 mov.b EXC_VOFF(%a6),%d1 # fetch strg
2882 mov.l 0x4(%sp),%d1
2883 mov.l 0x8(%sp),%d0
2884 mov.l 0xc(%sp),%a6
2885 mov.l (%sp)+,%sp
2904 mov.l EXC_EXTWPTR(%a6),EXC_PC(%a6) # set Next PC
2933 mov.l (%a6),%a6 # restore frame pointer
2934 mov.w EXC_SR+LOCAL_SIZE(%sp),0x0+LOCAL_SIZE(%sp)
2935 mov.l EXC_PC+LOCAL_SIZE(%sp),0x8+LOCAL_SIZE(%sp)
2936 mov.l EXC_EXTWPTR+LOCAL_SIZE(%sp),0x2+LOCAL_SIZE(%sp)
2937 mov.w &0x2024,0x6+LOCAL_SIZE(%sp) # stk fmt = 0x2; voff = 0x024
2950 mov.l (%sp)+,%d0 # restore d0
2957 mov.l EXC_PC(%a6),EXC_EXTWPTR(%a6)
2958 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
2961 mov.l %d0,EXC_OPWORD(%a6) # store OPWORD and EXTWORD
2968 mov.l &0x10,%d0 # 16 bytes of instruction
2975 mov.l &0xc,%d0
2987 mov.l EXC_EXTWPTR(%a6),%d0
2990 mov.w %d0,EXC_VOFF(%a6) # store stack shift value
3000 mov.l %d0,-(%sp) # save d0
3001 mov.w 0xc(%sp),0x4(%sp) # move SR
3002 mov.l 0xe(%sp),0x6(%sp) # move Current PC
3004 mov.w 0x12(%sp),%d0
3005 mov.l 0x6(%sp),0x10(%sp) # move Current PC
3007 mov.w &0x402c,0xa(%sp) # insert offset,frame format
3008 mov.l (%sp)+,%d0 # restore d0
3026 mov.l 0x8(%sp),(%sp) # store SR,hi(PC)
3027 mov.w 0xc(%sp),0x4(%sp) # store lo(PC)
3028 mov.w &0x4008,0x6(%sp) # store voff
3029 mov.l 0x2(%sp),0x8(%sp) # store ea
3030 mov.l &0x09428001,0xc(%sp) # store fslw
3049 mov.l (%a6),%a6
3051 mov.l 0x4+LOCAL_SIZE(%sp),-0x8+0x4+LOCAL_SIZE(%sp)
3052 mov.w 0x8+LOCAL_SIZE(%sp),-0x8+0x8+LOCAL_SIZE(%sp)
3053 mov.w &0x4008,-0x8+0xa+LOCAL_SIZE(%sp)
3054 mov.l %a0,-0x8+0xc+LOCAL_SIZE(%sp)
3055 mov.w %d0,-0x8+0x10+LOCAL_SIZE(%sp)
3056 mov.w &0x0001,-0x8+0x12+LOCAL_SIZE(%sp)
3117 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
3119 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
3122 mov.l %d0,EXC_OPWORD(%a6)
3166 mov.w FP_SRC_EX(%a6),%d1 # fetch exponent
3173 mov.l FP_SRC_HI(%a6),%d1
3177 mov.l FP_SRC_HI(%a6),L_SCR1(%a6)
3181 mov.l &0x7fffffff,%d1
3186 mov.l %d1,L_SCR1(%a6)
3190 mov.b 1+EXC_OPWORD(%a6),%d1 # extract <ea> mode,reg
3191 mov.w (tbl_operr.b,%pc,%d0.w*2),%a0
3205 mov.b L_SCR1(%a6),%d0 # load positive default result
3208 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3221 mov.w L_SCR1(%a6),%d0 # load positive default result
3224 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3237 mov.l L_SCR1(%a6),%d0 # load positive default result
3240 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3313 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
3315 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
3318 mov.l %d0,EXC_OPWORD(%a6)
3360 mov.b 1+EXC_OPWORD(%a6),%d1 # extract <ea> mode,reg
3361 mov.w (tbl_snan.b,%pc,%d0.w*2),%a0
3375 mov.b FP_SRC_HI(%a6),%d0 # load upper byte of SNAN
3379 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3392 mov.w FP_SRC_HI(%a6),%d0 # load upper word of SNAN
3396 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3409 mov.l FP_SRC_HI(%a6),%d0 # load upper longword of SNAN
3413 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3428 mov.l FP_SRC_EX(%a6),%d0 # fetch SNAN sign
3431 mov.l FP_SRC_HI(%a6),%d1 # load mantissa
3434 mov.l EXC_EA(%a6),%a0 # pass: <ea> of default result
3442 mov.l FP_SRC_EX(%a6),%d0 # fetch SNAN sign
3445 mov.l %d1,-(%sp)
3446 mov.l FP_SRC_HI(%a6),%d1 # load mantissa
3449 mov.l (%sp)+,%d1
3455 mov.l FP_SRC_EX(%a6),%d0 # fetch SNAN sign
3458 mov.l FP_SRC_HI(%a6),%d1 # load hi mantissa
3459 mov.l %d0,FP_SCR0_EX(%a6) # store to temp space
3460 mov.l &11,%d0 # load shift amt
3463 mov.l FP_SRC_HI(%a6),%d1 # load hi mantissa
3466 mov.l %d1,FP_SCR0_HI(%a6) # store to temp space
3467 mov.l FP_SRC_LO(%a6),%d1 # load lo mantissa
3471 mov.l EXC_EA(%a6),%a1 # pass: dst addr
3486 mov.w FP_SRC_EX(%a6),FP_SCR0_EX(%a6)
3488 mov.l FP_SRC_HI(%a6),%d0
3490 mov.l %d0,FP_SCR0_HI(%a6)
3491 mov.l FP_SRC_LO(%a6),FP_SCR0_LO(%a6)
3496 mov.l %usp,%a0 # fetch user stack pointer
3497 mov.l %a0,EXC_A7(%a6) # save on stack for calc_ea()
3498 mov.l (%a6),EXC_A6(%a6)
3501 mov.l %a0,%a1
3502 mov.l %a0,EXC_EA(%a6) # stack correct <ea>
3504 mov.l EXC_A7(%a6),%a0
3505 mov.l %a0,%usp # restore user stack pointer
3506 mov.l EXC_A6(%a6),(%a6)
3519 mov.l (%a6),EXC_A6(%a6)
3522 mov.l %a0,%a1
3523 mov.l %a0,EXC_EA(%a6) # stack correct <ea>
3525 mov.l EXC_A6(%a6),(%a6)
3537 mov.l EXC_A6(%a6),%a6 # restore frame pointer
3539 mov.l LOCAL_SIZE+EXC_SR(%sp),LOCAL_SIZE+EXC_SR-0xc(%sp)
3540 mov.l LOCAL_SIZE+EXC_PC+0x2(%sp),LOCAL_SIZE+EXC_PC+0x2-0xc(%sp)
3541 mov.l LOCAL_SIZE+EXC_EA(%sp),LOCAL_SIZE+EXC_EA-0xc(%sp)
3543 mov.l LOCAL_SIZE+FP_SCR0_EX(%sp),LOCAL_SIZE+EXC_SR(%sp)
3544 mov.l LOCAL_SIZE+FP_SCR0_HI(%sp),LOCAL_SIZE+EXC_PC+0x2(%sp)
3545 mov.l LOCAL_SIZE+FP_SCR0_LO(%sp),LOCAL_SIZE+EXC_EA(%sp)
3605 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
3607 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
3610 mov.l %d0,EXC_OPWORD(%a6)
3628 mov.w &0xe001,0x2+FP_SRC(%a6)
3650 mov.b %d0,STAG(%a6) # maybe NORM,DENORM
3670 mov.b %d0,DTAG(%a6) # save dst optype tag
3674 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec/mode
3676 mov.b 1+EXC_CMDREG(%a6),%d1
3682 mov.l (tbl_unsupp.l,%pc,%d1.w*4),%d1 # fetch routine addr
3702 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec,mode
3703 mov.b 1+EXC_CMDREG(%a6),%d1
3724 mov.b &NORM,STAG(%a6) # src is a NORM
3727 mov.b FPCR_MODE(%a6),%d0 # pass rnd prec,mode
3779 mov.l USER_FPIAR(%a6),EXC_EXTWPTR(%a6)
3781 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
3784 mov.l %d0,EXC_OPWORD(%a6)
3877 mov.l %d0, %a0 # move # bytes to %a0
3879 mov.b 1+EXC_OPWORD(%a6), %d0 # fetch opcode word
3880 mov.l %d0, %d1 # make a copy
3896 mov.l EXC_EA(%a6),%a0 # return <ea>
3902 mov.b &immed_flg,SPCOND_FLG(%a6)
3909 mov.l %a0,%d0 # pass amt to inc by
3912 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
3920 mov.l %a0,%d0 # pass amt to dec by
3923 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
3930 mov.l %a0,EXC_EA(%a6) # put correct <ea> on stack
3962 mov.b 1+EXC_OPWORD(%a6),%d0 # fetch opcode word
3963 mov.l %d0,%d1 # make a copy
3974 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
3981 mov.w (tbl_ceaf_pi.b,%pc,%d1.w*2),%d1
3982 mov.l EXC_EA(%a6),%a0
4018 mov.b &mia7_flg,SPCOND_FLG(%a6)
4026 mov.w (tbl_ceaf_pd.b,%pc,%d1.w*2),%d1
4027 mov.l EXC_EA(%a6),%a0
4044 mov.l %a0,EXC_DREGS+0x8(%a6)
4047 mov.l %a0,EXC_DREGS+0xc(%a6)
4050 mov.l %a0,%a2
4053 mov.l %a0,%a3
4056 mov.l %a0,%a4
4059 mov.l %a0,%a5
4062 mov.l %a0,EXC_A6(%a6)
4065 mov.l %a0,EXC_A7(%a6)
4066 mov.b &mda7_flg,SPCOND_FLG(%a6)
4268 mov.b 1+EXC_EXTWORD(%a6),%d1 # fetch extword
4277 mov.l %d0,-(%sp) # save strg
4278 mov.b (tbl_fmovm_size.w,%pc,%d0),%d0
4279 mov.l %d0,-(%sp) # save size
4281 mov.l (%sp)+,%d0 # restore size
4282 mov.l (%sp)+,%d1 # restore strg
4304 mov.b (tbl_fmovm_convert.w,%pc,%d1.w*1),%d1
4320 mov.l %a0,%a1 # move <ea> to a1
4328 mov.l 0x0+EXC_FP0(%a6),(%a0)+ # yes
4329 mov.l 0x4+EXC_FP0(%a6),(%a0)+
4330 mov.l 0x8+EXC_FP0(%a6),(%a0)+
4336 mov.l 0x0+EXC_FP1(%a6),(%a0)+ # yes
4337 mov.l 0x4+EXC_FP1(%a6),(%a0)+
4338 mov.l 0x8+EXC_FP1(%a6),(%a0)+
4383 mov.l %a1,L_SCR1(%a6)
4386 mov.l %d0,-(%sp) # save size
4389 mov.l (%sp)+,%d0
4401 mov.l %a0,L_SCR1(%a6)
4406 mov.l %d1,-(%sp) # save bit string for later
4407 mov.l %d0,-(%sp) # save # of bytes
4411 mov.l (%sp)+,%d0 # retrieve # of bytes
4416 mov.l (%sp)+,%d1 # load bit string
4423 mov.l (%a0)+,0x0+EXC_FP0(%a6) # yes
4424 mov.l (%a0)+,0x4+EXC_FP0(%a6)
4425 mov.l (%a0)+,0x8+EXC_FP0(%a6)
4431 mov.l (%a0)+,0x0+EXC_FP1(%a6) # yes
4432 mov.l (%a0)+,0x4+EXC_FP1(%a6)
4433 mov.l (%a0)+,0x8+EXC_FP1(%a6)
4573 mov.l %d0,%a0 # move # bytes to a0
4577 mov.w EXC_OPWORD(%a6),%d0 # fetch opcode word
4578 mov.w %d0,%d1 # make a copy
4584 mov.w (tbl_fea_mode.b,%pc,%d0.w*2),%d0 # fetch jmp distance
4665 mov.l EXC_DREGS+0x8(%a6),%a0 # Get current a0
4669 mov.l EXC_DREGS+0xc(%a6),%a0 # Get current a1
4673 mov.l %a2,%a0 # Get current a2
4677 mov.l %a3,%a0 # Get current a3
4681 mov.l %a4,%a0 # Get current a4
4685 mov.l %a5,%a0 # Get current a5
4689 mov.l (%a6),%a0 # Get current a6
4693 mov.l EXC_A7(%a6),%a0 # Get current a7
4700 mov.l EXC_DREGS+0x8(%a6),%d0 # Get current a0
4701 mov.l %d0,%d1
4703 mov.l %d1,EXC_DREGS+0x8(%a6) # Save incr value
4704 mov.l %d0,%a0
4708 mov.l EXC_DREGS+0xc(%a6),%d0 # Get current a1
4709 mov.l %d0,%d1
4711 mov.l %d1,EXC_DREGS+0xc(%a6) # Save incr value
4712 mov.l %d0,%a0
4716 mov.l %a2,%d0 # Get current a2
4717 mov.l %d0,%d1
4719 mov.l %d1,%a2 # Save incr value
4720 mov.l %d0,%a0
4724 mov.l %a3,%d0 # Get current a3
4725 mov.l %d0,%d1
4727 mov.l %d1,%a3 # Save incr value
4728 mov.l %d0,%a0
4732 mov.l %a4,%d0 # Get current a4
4733 mov.l %d0,%d1
4735 mov.l %d1,%a4 # Save incr value
4736 mov.l %d0,%a0
4740 mov.l %a5,%d0 # Get current a5
4741 mov.l %d0,%d1
4743 mov.l %d1,%a5 # Save incr value
4744 mov.l %d0,%a0
4748 mov.l (%a6),%d0 # Get current a6
4749 mov.l %d0,%d1
4751 mov.l %d1,(%a6) # Save incr value
4752 mov.l %d0,%a0
4756 mov.b &mia7_flg,SPCOND_FLG(%a6) # set "special case" flag
4758 mov.l EXC_A7(%a6),%d0 # Get current a7
4759 mov.l %d0,%d1
4761 mov.l %d1,EXC_A7(%a6) # Save incr value
4762 mov.l %d0,%a0
4769 mov.l EXC_DREGS+0x8(%a6),%d0 # Get current a0
4771 mov.l %d0,EXC_DREGS+0x8(%a6) # Save decr value
4772 mov.l %d0,%a0
4776 mov.l EXC_DREGS+0xc(%a6),%d0 # Get current a1
4778 mov.l %d0,EXC_DREGS+0xc(%a6) # Save decr value
4779 mov.l %d0,%a0
4783 mov.l %a2,%d0 # Get current a2
4785 mov.l %d0,%a2 # Save decr value
4786 mov.l %d0,%a0
4790 mov.l %a3,%d0 # Get current a3
4792 mov.l %d0,%a3 # Save decr value
4793 mov.l %d0,%a0
4797 mov.l %a4,%d0 # Get current a4
4799 mov.l %d0,%a4 # Save decr value
4800 mov.l %d0,%a0
4804 mov.l %a5,%d0 # Get current a5
4806 mov.l %d0,%a5 # Save decr value
4807 mov.l %d0,%a0
4811 mov.l (%a6),%d0 # Get current a6
4813 mov.l %d0,(%a6) # Save decr value
4814 mov.l %d0,%a0
4818 mov.b &mda7_flg,SPCOND_FLG(%a6) # set "special case" flag
4820 mov.l EXC_A7(%a6),%d0 # Get current a7
4822 mov.l %d0,EXC_A7(%a6) # Save decr value
4823 mov.l %d0,%a0
4830 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4837 mov.w %d0,%a0 # sign extend displacement
4843 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4850 mov.w %d0,%a0 # sign extend displacement
4856 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4863 mov.w %d0,%a0 # sign extend displacement
4869 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4876 mov.w %d0,%a0 # sign extend displacement
4882 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4889 mov.w %d0,%a0 # sign extend displacement
4895 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4902 mov.w %d0,%a0 # sign extend displacement
4908 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4915 mov.w %d0,%a0 # sign extend displacement
4921 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4928 mov.w %d0,%a0 # sign extend displacement
4942 mov.l %d0,-(%sp)
4944 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4951 mov.l (%sp)+,%a0
4956 mov.l %d0,L_SCR1(%a6) # hold opword
4958 mov.l %d0,%d1
4965 mov.l %d2,-(%sp) # save d2
4966 mov.l L_SCR1(%a6),%d2 # fetch opword
4972 mov.l %d2,%d1
4982 mov.l (%sp)+,%d2 # restore old d2
4989 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
4996 mov.w %d0,%a0 # return <ea> in a0
5003 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5010 mov.l %d0,%a0 # return <ea> in a0
5017 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5024 mov.w %d0,%a0 # sign extend displacement
5039 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5046 mov.l EXC_EXTWPTR(%a6),%a0 # put base in a0
5052 mov.l %d0,L_SCR1(%a6) # store opword
5054 mov.l %d0,%d1 # make extword copy
5061 mov.l %d2,-(%sp) # save d2
5062 mov.l L_SCR1(%a6),%d2 # fetch opword
5068 mov.l %d2,%d1
5078 mov.l (%sp)+,%d2 # restore temp register
5091 mov.l %d0,%d5 # put extword in d5
5092 mov.l %a0,%d3 # put base in d3
5099 mov.l %d0,L_SCR1(%a6) # save d0 (opword)
5104 mov.l %d0,%d2 # put index in d2
5105 mov.l L_SCR1(%a6),%d5
5106 mov.l %a0,%d3
5132 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5142 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5163 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5173 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5187 mov.l %d0,%d4
5192 mov.l %d3,%a0
5204 mov.l %d3,%a0
5215 mov.l %d3,%d0
5217 mov.l %d0,%a0
5224 mov.l %d3,%a0
5227 mov.w &0x0101,%d0
5236 mov.w &0x00e1,%d0
5241 mov.w &0x0161,%d0
5244 mov.l L_SCR1(%a6),%a0
5286 mov.b EXC_EXTWORD(%a6),%d0 # fetch reg select bits
5296 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5303 mov.l %d0,USER_FPSR(%a6) # store new FPSR to stack
5304 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5311 mov.l %d0,USER_FPIAR(%a6) # store new FPIAR to stack
5316 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5323 mov.l %d0,USER_FPCR(%a6) # store new FPCR to stack
5324 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5331 mov.l %d0,USER_FPIAR(%a6) # store new FPIAR to stack
5336 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5343 mov.l %d0,USER_FPCR(%a6) # store new FPCR to mem
5344 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5351 mov.l %d0,USER_FPSR(%a6) # store new FPSR to mem
5356 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5363 mov.l %d0,USER_FPCR(%a6) # store new FPCR to mem
5364 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5371 mov.l %d0,USER_FPSR(%a6) # store new FPSR to mem
5372 mov.l EXC_EXTWPTR(%a6),%a0 # fetch instruction addr
5379 mov.l %d0,USER_FPIAR(%a6) # store new FPIAR to mem
5414 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
5415 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
5416 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
5417 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
5418 mov.w SRC_EX(%a0),%d0
5419 mov.w DST_EX(%a1),%d1
5420 mov.w %d0,FP_SCR0_EX(%a6)
5421 mov.w %d1,FP_SCR1_EX(%a6)
5425 mov.w %d0,L_SCR1(%a6) # store src exponent
5426 mov.w %d1,2+L_SCR1(%a6) # store dst exponent
5434 mov.l %d0,-(%sp) # save scale factor
5442 mov.w %d0,L_SCR1(%a6) # inset new exp
5445 mov.w 2+L_SCR1(%a6),%d0
5451 mov.w L_SCR1(%a6),%d0
5453 mov.w FP_SCR0_EX(%a6),%d1
5456 mov.w %d0,FP_SCR0_EX(%a6) # insert new dst exponent
5458 mov.l (%sp)+,%d0 # return SCALE factor
5465 mov.l (%sp)+,%d0 # return SCALE factor
5471 mov.l %d0,-(%sp) # save scale factor
5478 mov.w %d0,2+L_SCR1(%a6) # inset new exp
5481 mov.w L_SCR1(%a6),%d0
5487 mov.w 2+L_SCR1(%a6),%d0
5489 mov.w FP_SCR1_EX(%a6),%d1
5492 mov.w %d0,FP_SCR1_EX(%a6) # insert new dst exponent
5494 mov.l (%sp)+,%d0 # return SCALE factor
5501 mov.l (%sp)+,%d0 # return SCALE factor
5531 mov.w FP_SCR0_EX(%a6),%d1 # extract operand's {sgn,exp}
5532 mov.w %d1,%d0 # make a copy
5539 mov.w %d0,FP_SCR0_EX(%a6) # insert biased exponent
5545 mov.l &0x3fff,%d0
5554 mov.l %d0,%d1 # prepare for op_norm call
5588 mov.w FP_SCR0_EX(%a6),%d1 # extract operand's {sgn,exp}
5598 mov.l &0x3fff,%d0
5606 mov.l &0x3ffe,%d0
5658 mov.w FP_SCR1_EX(%a6),%d1 # extract operand's {sgn,exp}
5659 mov.w %d1,%d0 # make a copy
5666 mov.w %d0,FP_SCR1_EX(%a6) # insert biased exponent
5672 mov.l &0x3fff,%d0
5680 mov.l %d0,%d1 # prepare for op_norm call
5841 mov.w (tbl_thresh.b,%pc,%d0.w*2), %d1 # load prec threshold
5842 mov.w %d1, %d0 # copy d1 into d0
5861 mov.l &0x20000000, %d0 # set sticky bit in return value
5862 mov.w %d1, FTEMP_EX(%a0) # load exp with threshold
5890 mov.l FTEMP_LO(%a0), FTEMP_LO2(%a6) # make FTEMP_LO copy
5891 mov.l %d0, GRS(%a6) # place g,r,s after it
5897 mov.l %d1, %d0 # copy the denorm threshold
5910 mov.l GRS(%a6), %d0 # restore original g,r,s
5937 mov.l %d2, -(%sp) # create temp storage
5939 mov.w %d0, FTEMP_EX(%a0) # exponent = denorm threshold
5940 mov.l &32, %d0
5945 mov.b GRS(%a6), %d2
5953 mov.l %d2, FTEMP_HI(%a0) # store new FTEMP_HI
5954 mov.l %d1, FTEMP_LO(%a0) # store new FTEMP_LO
5962 mov.l (%sp)+, %d2 # restore temp register
5989 mov.l %d2, -(%sp) # create temp storage
5991 mov.w %d0, FTEMP_EX(%a0) # exponent = denorm threshold
5993 mov.l &0x20, %d0
5999 mov.b GRS(%a6), %d2
6010 mov.l %d1, %d0 # move new G,R,S to %d0
6014 mov.l %d1, %d0 # move new G,R,S to %d0
6019 mov.l %d2, FTEMP_LO(%a0) # store FTEMP_LO
6022 mov.l (%sp)+,%d2 # restore temp register
6032 mov.w %d0, FTEMP_EX(%a0) # insert denorm threshold
6046 mov.l &0x20000000, %d0 # set sticky bit
6070 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
6071 mov.l %d0, %d1 # make a copy
6098 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
6184 mov.w (tbl_mode.b,%pc,%d1.w*2), %a1 # load jump offset
6202 mov.l &0xffffffff, %d0 # force g,r,s to be all f's
6219 mov.l &0xffffffff, %d0 # force g,r,s to be all f's
6375 mov.l &30, %d2 # of the sgl prec. limits
6377 mov.l FTEMP_HI(%a0), %d2 # get word 2 for s-bit test
6400 mov.l &30, %d2 # of the dbl prec. limits
6402 mov.l FTEMP_LO(%a0), %d2 # get lower mantissa for s-bit test
6412 mov.l %d3, %d0 # return grs to d0
6440 mov.l %d2, -(%sp) # create some temp regs
6441 mov.l %d3, -(%sp)
6443 mov.l FTEMP_HI(%a0), %d0 # load hi(mantissa)
6444 mov.l FTEMP_LO(%a0), %d1 # load lo(mantissa)
6456 mov.l %d0, FTEMP_HI(%a0) # store new hi(man)
6457 mov.l %d1, FTEMP_LO(%a0) # store new lo(man)
6459 mov.l %d2, %d0 # return shift amount
6461 mov.l (%sp)+, %d3 # restore temp regs
6462 mov.l (%sp)+, %d2
6471 mov.l %d1, FTEMP_HI(%a0) # store hi(man)
6474 mov.l %d2, %d0 # return shift amount
6476 mov.l (%sp)+, %d3 # restore temp regs
6477 mov.l (%sp)+, %d2
6520 mov.w FTEMP_EX(%a0), %d1 # extract exponent
6530 mov.w FTEMP_EX(%a0), %d0 # load old exponent
6533 mov.w %d1, FTEMP_EX(%a0) # insert new exponent
6537 mov.b &NORM, %d0 # return new optype tag
6548 mov.l %d0, FTEMP_HI(%a0) # save new hi(man)
6550 mov.l FTEMP_LO(%a0), %d0 # fetch old lo(man)
6552 mov.l %d0, FTEMP_LO(%a0) # save new lo(man)
6556 mov.b &DENORM, %d0 # return new optype tag
6565 mov.l FTEMP_LO(%a0), %d0 # fetch old lo(man)
6568 mov.l %d0, FTEMP_HI(%a0) # store new hi(man)
6573 mov.b &DENORM, %d0 # return new optype tag
6582 mov.b &ZERO, %d0 # fix optype tag
6609 mov.w FTEMP_EX(%a0), %d0 # extract exponent
6617 mov.b &NORM, %d0
6628 mov.b &ZERO, %d0
6631 mov.b &DENORM, %d0
6642 mov.b &ZERO, %d0
6645 mov.b &UNNORM, %d0
6650 mov.l FTEMP_HI(%a0), %d0
6654 mov.b &INF, %d0
6659 mov.b &QNAN, %d0
6662 mov.b &SNAN, %d0
6687 mov.l FTEMP(%a0), %d0
6688 mov.l %d0, %d1
6697 mov.b &NORM, %d0
6705 mov.b &ZERO, %d0
6708 mov.b &DENORM, %d0
6716 mov.b &INF, %d0
6722 mov.b &SNAN, %d0
6725 mov.b &QNAN, %d0
6750 mov.l FTEMP(%a0), %d0
6751 mov.l %d0, %d1
6760 mov.b &NORM, %d0
6766 mov.b &ZERO, %d0
6769 mov.b &DENORM, %d0
6775 mov.b &INF, %d0
6781 mov.b &SNAN, %d0
6784 mov.b &QNAN, %d0
6823 mov.l %d1, -(%sp) # save rnd prec,mode on stack
6828 mov.w FTEMP_EX(%a0), %d1 # extract exponent
6831 mov.w %d1, FTEMP_EX(%a0) # insert 16 bit exponent
6833 mov.l %a0, -(%sp) # save operand ptr during calls
6835 mov.l 0x4(%sp),%d0 # pass rnd prec.
6840 mov.l (%sp),%a0
6841 mov.w 0x6(%sp),%d1 # load prec:mode into %d1
6845 mov.w 0x6(%sp),%d1
6850 mov.l (%sp)+, %a0
6887 mov.l %d1,-(%sp) # save rnd prec,mode on stack
6892 mov.w FTEMP_EX(%a0),%d1 # extract exponent
6895 mov.w %d1,FTEMP_EX(%a0) # insert 16 bit exponent
6897 mov.l %a0,-(%sp) # save operand ptr during calls
6902 mov.l (%sp),%a0
6903 mov.w &s_mode,%d1 # force rnd prec = sgl
6905 mov.w 0x6(%sp),%d1 # load rnd mode
6910 mov.l (%sp)+,%a0
6981 mov.w %d1,%d0 # make a copy
6991 mov.w %d1, %d0 # make a copy
6999 mov.b (tbl_ovfl_cc.b,%pc,%d0.w*1), %d0 # fetch result ccodes
7103 mov.w (tbl_fout.b,%pc,%d1.w*2),%a1 # use as index
7138 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7142 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7151 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7157 mov.l SRC_EX(%a0),%d1
7184 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7188 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7197 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7203 mov.l SRC_EX(%a0),%d1
7231 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7235 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7244 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7250 mov.l SRC_EX(%a0),%d1
7268 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
7270 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
7271 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
7277 mov.l %a0,%a1 # pass: dst addr
7279 mov.l &0xc,%d0 # pass: opsize is 12 bytes
7300 mov.b FPCR_ENABLE(%a6),%d0
7328 mov.l EXC_A6(%a6),(%a6) # fix stacked a6
7337 mov.l %d0,L_SCR3(%a6) # save rnd prec,mode on stack
7345 mov.w SRC_EX(%a0),%d0 # extract exponent
7372 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7376 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7385 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7398 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
7399 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
7400 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
7401 mov.l %a0,-(%sp)
7413 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
7419 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7423 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7432 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7437 mov.b FPCR_ENABLE(%a6),%d1
7457 mov.l %a0,-(%sp)
7464 mov.l L_SCR3(%a6),%d0 # pass: sgl prec,rnd mode
7469 mov.b 1+EXC_OPWORD(%a6),%d1 # extract dst mode
7473 mov.l EXC_EA(%a6),%a0 # stacked <ea> is correct
7482 mov.b 1+EXC_OPWORD(%a6),%d1 # extract Dn
7487 mov.b FPCR_ENABLE(%a6),%d1
7502 mov.w SRC_EX(%a0),%d1 # fetch current sign
7505 mov.w %d1,FP_SCR0_EX(%a6) # insert scaled exp
7506 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6) # copy hi(man)
7507 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6) # copy lo(man)
7522 mov.l (%sp)+,%a0
7524 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
7525 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
7526 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
7540 mov.l (%sp)+,%a0 # restore a0
7542 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
7543 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
7544 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
7551 mov.b 3+L_SCR3(%a6),%d1
7555 mov.b 3+L_SCR3(%a6),%d1
7575 mov.l %d0,L_SCR3(%a6) # save rnd prec,mode on stack
7583 mov.w SRC_EX(%a0),%d0 # extract exponent
7609 mov.l EXC_EA(%a6),%a1 # pass: dst addr
7627 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
7628 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
7629 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
7630 mov.l %a0,-(%sp)
7642 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
7647 mov.l %d0,L_SCR1(%a6)
7648 mov.l %d1,L_SCR2(%a6)
7650 mov.l EXC_EA(%a6),%a1 # pass: dst addr
7658 mov.b FPCR_ENABLE(%a6),%d1
7668 mov.w 2+SRC_LO(%a0),%d0
7678 mov.l %a0,-(%sp)
7685 mov.l L_SCR3(%a6),%d0 # pass: dbl prec,rnd mode
7690 mov.l EXC_EA(%a6),%a1 # pass: dst addr
7698 mov.b FPCR_ENABLE(%a6),%d1
7713 mov.w SRC_EX(%a0),%d1 # fetch current sign
7716 mov.w %d1,FP_SCR0_EX(%a6) # insert scaled exp
7717 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6) # copy hi(man)
7718 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6) # copy lo(man)
7770 mov.w FTEMP_EX(%a0),%d0 # get exponent
7783 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7786 mov.l %d0,L_SCR1(%a6) # put the new exp back on the stack
7787 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7788 mov.l &21,%d0 # load shift count
7790 mov.l %d1,L_SCR2(%a6) # build lower lword in memory
7791 mov.l FTEMP_LO(%a0),%d1 # get ls mantissa
7793 mov.l L_SCR2(%a6),%d1
7795 mov.l L_SCR1(%a6),%d0
7835 mov.w FTEMP_EX(%a0),%d0 # get exponent
7848 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7857 mov.l %a0,-(%sp)
7859 mov.b STAG(%a6),%d0 # fetch input type
7867 mov.b 1+EXC_CMDREG(%a6),%d1 # fetch dynamic reg
7875 mov.b 1+EXC_CMDREG(%a6),%d0 # fetch static field
7879 mov.l %d0,-(%sp)
7890 mov.l (%sp)+,%d0
7915 mov.l (%sp)+,%a1 # pass: dst addr
7916 mov.l &0xc,%d0 # pass: opsize is 12 bytes
8010 mov.l %d0,L_SCR3(%a6) # store rnd info
8013 mov.b DTAG(%a6),%d1
8019 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
8020 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
8021 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
8023 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
8024 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
8025 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
8028 mov.l %d0,-(%sp) # save scale factor 1
8034 mov.w 2+L_SCR3(%a6),%d1 # fetch precision
8036 mov.l (%sp)+,%d0 # load S.F.
8068 mov.l %d2,-(%sp) # save d2
8069 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
8070 mov.l %d1,%d2 # make a copy
8075 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8076 mov.l (%sp)+,%d2 # restore d2
8110 mov.b FPCR_ENABLE(%a6),%d1
8118 mov.l L_SCR3(%a6),%d0 # pass rnd prec,mode
8131 mov.l L_SCR3(%a6),%d1
8138 mov.l %d2,-(%sp) # save d2
8139 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
8140 mov.w %d1,%d2 # make a copy
8147 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8148 mov.l (%sp)+,%d2 # restore d2
8155 mov.l L_SCR3(%a6),%d1
8222 mov.b FPCR_ENABLE(%a6),%d1
8230 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
8242 mov.l L_SCR3(%a6),%d1
8258 mov.l %d2,-(%sp) # save d2
8259 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
8260 mov.l %d1,%d2 # make a copy
8267 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8268 mov.l (%sp)+,%d2 # restore d2
8273 mov.l L_SCR3(%a6),%d1
8309 mov.l L_SCR3(%a6),%d1
8330 mov.w (tbl_fmul_op.b,%pc,%d1.w*2),%d1
8401 mov.b SRC_EX(%a0),%d0 # exclusive or the signs
8402 mov.b DST_EX(%a1),%d1
8407 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set Z/N
8411 mov.b &z_bmask,FPSR_CC(%a6) # set Z
8425 mov.b SRC_EX(%a0),%d0 # exclusive or the signs
8426 mov.b DST_EX(%a1),%d1
8432 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set INF/N
8436 mov.b &inf_bmask,FPSR_CC(%a6) # set INF
8442 mov.b SRC_EX(%a0),%d0 # exclusive or the signs
8443 mov.b DST_EX(%a1),%d1
8495 mov.l %d0,L_SCR3(%a6) # store rnd info
8497 mov.b STAG(%a6),%d1 # fetch src optype tag
8543 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
8544 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
8545 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
8550 mov.w FP_SCR0_EX(%a6),%d1 # fetch old sign,exp
8554 mov.w %d0,FP_SCR0_EX(%a6) # insert new exponent
8569 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
8570 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
8571 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
8595 mov.l %d2,-(%sp) # save d2
8597 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
8598 mov.w %d1,%d2 # make a copy
8603 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
8604 mov.l (%sp)+,%d2 # restore d2
8612 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
8613 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
8614 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
8636 mov.b FPCR_ENABLE(%a6),%d1
8642 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
8653 mov.l FP_SCR0_HI(%a6),FP_SCR1_HI(%a6)
8654 mov.l FP_SCR0_LO(%a6),FP_SCR1_LO(%a6)
8655 mov.w FP_SCR0_EX(%a6),%d1 # load current exponent
8657 mov.l %d2,-(%sp) # save d2
8658 mov.w %d1,%d2 # make a copy
8665 mov.w %d2,FP_SCR1_EX(%a6) # insert new exponent
8667 mov.l (%sp)+,%d2 # restore d2
8687 mov.b FPCR_ENABLE(%a6),%d1
8698 mov.l L_SCR3(%a6),%d0 # pass: prec,mode
8710 mov.l %d2,-(%sp) # save d2
8711 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
8712 mov.l %d1,%d2 # make a copy
8719 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8720 mov.l (%sp)+,%d2 # restore d2
8766 mov.b %d0,FPSR_CC(%a6) # insert correct ccodes
8828 mov.l %d0,L_SCR3(%a6) # store rnd info
8831 mov.b DTAG(%a6),%d1
8841 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
8842 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
8843 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
8845 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
8846 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
8847 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
8850 mov.l %d0,-(%sp) # save scale factor 1
8857 mov.w 2+L_SCR3(%a6),%d1 # fetch precision
8859 mov.l (%sp)+,%d0 # load S.F.
8882 mov.l %d2,-(%sp) # store d2
8883 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
8884 mov.l %d1,%d2 # make a copy
8889 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8890 mov.l (%sp)+,%d2 # restore d2
8900 mov.l (%sp)+,%d0 # restore scale factor
8904 mov.l %d0,-(%sp) # save scale factor
8919 mov.w (%sp),%d0 # fetch new exponent
8925 mov.l (%sp)+,%d0
8930 mov.b FPCR_ENABLE(%a6),%d1
8937 mov.l L_SCR3(%a6),%d0 # pass prec:rnd
8944 mov.l L_SCR3(%a6),%d1
8951 mov.l %d2,-(%sp) # save d2
8952 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
8953 mov.w %d1,%d2 # make a copy
8960 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
8961 mov.l (%sp)+,%d2 # restore d2
8968 mov.l L_SCR3(%a6),%d1
8992 mov.b FPCR_ENABLE(%a6),%d1
9000 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
9012 mov.l L_SCR3(%a6),%d1
9026 mov.l %d2,-(%sp) # save d2
9027 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
9028 mov.l %d1,%d2 # make a copy
9035 mov.w %d1,FP_SCR0_EX(%a6) # insert new exp
9036 mov.l (%sp)+,%d2 # restore d2
9041 mov.l L_SCR3(%a6),%d1
9077 mov.l L_SCR3(%a6),%d1
9098 mov.w (tbl_fdiv_op.b,%pc,%d1.w*2),%d1
9166 mov.b SRC_EX(%a0),%d0 # result sign is exclusive
9167 mov.b DST_EX(%a1),%d1 # or of input signs.
9171 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set Z/N
9175 mov.b &z_bmask,FPSR_CC(%a6) # set Z
9186 mov.b SRC_EX(%a0),%d0 # load both signs
9187 mov.b DST_EX(%a1),%d1
9191 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set INF/N
9195 mov.b &inf_bmask,FPSR_CC(%a6) # set INF
9206 mov.b DST_EX(%a1),%d0 # load both signs
9207 mov.b SRC_EX(%a0),%d1
9214 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set INF/NEG
9220 mov.b &inf_bmask,FPSR_CC(%a6) # set INF
9269 mov.l %d0,L_SCR3(%a6) # store rnd info
9270 mov.b STAG(%a6),%d1
9285 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9286 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9287 mov.w SRC_EX(%a0),%d0
9290 mov.b &neg_bmask,FPSR_CC(%a6) # set 'N' ccode bit
9292 mov.w %d0,FP_SCR0_EX(%a6)
9306 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9307 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9308 mov.w SRC_EX(%a0),%d0
9311 mov.b &neg_bmask,FPSR_CC(%a6) # yes, set 'N' ccode bit
9313 mov.w %d0,FP_SCR0_EX(%a6)
9330 mov.w FP_SCR0_EX(%a6),%d1 # fetch old sign,exp
9334 mov.w %d0,FP_SCR0_EX(%a6) # insert new exponent
9349 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
9350 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9351 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9375 mov.l %d2,-(%sp) # save d2
9377 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
9378 mov.w %d1,%d2 # make a copy
9383 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
9384 mov.l (%sp)+,%d2 # restore d2
9392 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
9393 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9394 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9416 mov.b FPCR_ENABLE(%a6),%d1
9422 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
9433 mov.l FP_SCR0_HI(%a6),FP_SCR1_HI(%a6)
9434 mov.l FP_SCR0_LO(%a6),FP_SCR1_LO(%a6)
9435 mov.w FP_SCR0_EX(%a6),%d1 # load current exponent
9437 mov.l %d2,-(%sp) # save d2
9438 mov.l %d1,%d2 # make a copy
9445 mov.w %d1,FP_SCR1_EX(%a6) # insert new exp
9447 mov.l (%sp)+,%d2 # restore d2
9467 mov.b FPCR_ENABLE(%a6),%d1
9478 mov.l L_SCR3(%a6),%d0 # pass: prec,mode
9490 mov.l %d2,-(%sp) # save d2
9491 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
9492 mov.l %d1,%d2 # make a copy
9499 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
9501 mov.l (%sp)+,%d2 # restore d2
9546 mov.b %d0,FPSR_CC(%a6) # insert correct ccodes
9570 mov.b STAG(%a6),%d1
9581 mov.b &neg_bmask,FPSR_CC(%a6) # set 'N' ccode bit
9605 mov.b &neg_bmask,FPSR_CC(%a6) # set 'N' ccode bit
9615 mov.b &inf_bmask,FPSR_CC(%a6) # set 'I' ccode bit
9618 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set 'I','N' ccode bits
9628 mov.b &z_bmask,FPSR_CC(%a6) # set 'N' ccode bit
9631 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set 'Z','N' ccode bits
9662 mov.b STAG(%a6),%d1
9706 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6) # copy sign, zero exp
9707 mov.b &0x80,FP_SCR0_HI(%a6) # force DENORM ==> small NORM
9719 mov.b &z_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
9723 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set 'Z','N' ccode bits
9734 mov.b &inf_bmask,FPSR_CC(%a6) # set 'I' ccode bit
9737 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set 'N','I' ccode bits
9768 mov.b STAG(%a6),%d1
9808 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6) # copy sign, zero exp
9809 mov.b &0x80,FP_SCR0_HI(%a6) # force DENORM ==> small NORM
9821 mov.b &z_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
9825 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set 'Z','N' ccode bits
9836 mov.b &inf_bmask,FPSR_CC(%a6) # set 'I' ccode bit
9839 mov.b &inf_bmask+neg_bmask,FPSR_CC(%a6) # set 'N','I' ccode bits
9892 mov.l %d0,L_SCR3(%a6) # store rnd info
9893 mov.b STAG(%a6),%d1
9908 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9909 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9910 mov.w SRC_EX(%a0),%d1
9912 mov.w %d1,FP_SCR0_EX(%a6) # insert exponent
9926 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9927 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9928 mov.w SRC_EX(%a0),%d0
9930 mov.w %d0,FP_SCR0_EX(%a6) # insert exponent
9948 mov.w FP_SCR0_EX(%a6),%d1 # fetch old sign,exp
9952 mov.w %d0,FP_SCR0_EX(%a6) # insert new exponent
9967 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
9968 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
9969 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
9993 mov.l %d2,-(%sp) # save d2
9995 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
9996 mov.l %d1,%d2 # make a copy
10001 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
10002 mov.l (%sp)+,%d2 # restore d2
10010 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
10011 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
10012 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
10031 mov.b FPCR_ENABLE(%a6),%d1
10037 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
10048 mov.l FP_SCR0_HI(%a6),FP_SCR1_HI(%a6)
10049 mov.l FP_SCR0_LO(%a6),FP_SCR1_LO(%a6)
10050 mov.w FP_SCR0_EX(%a6),%d1 # load current exponent
10052 mov.l %d2,-(%sp) # save d2
10053 mov.l %d1,%d2 # make a copy
10060 mov.w %d1,FP_SCR1_EX(%a6) # insert new exp
10062 mov.l (%sp)+,%d2 # restore d2
10082 mov.b FPCR_ENABLE(%a6),%d1
10093 mov.l L_SCR3(%a6),%d0 # pass: prec,mode
10105 mov.l %d2,-(%sp) # save d2
10106 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
10107 mov.l %d1,%d2 # make a copy
10114 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10116 mov.l (%sp)+,%d2 # restore d2
10158 mov.b &z_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
10161 mov.b &inf_bmask,FPSR_CC(%a6) # set 'I' ccode bit
10190 mov.b DTAG(%a6),%d1
10205 mov.b %d0,FPSR_CC(%a6) # set ccode bits(no exc bits are set)
10213 mov.w (tbl_fcmp_op.b,%pc,%d1.w*2),%d1
10296 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
10297 mov.l SRC_HI(%a0),%d0
10299 mov.l %d0,FP_SCR0_HI(%a6)
10300 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
10305 mov.l DST_EX(%a1),FP_SCR0_EX(%a6)
10306 mov.l DST_HI(%a1),%d0
10308 mov.l %d0,FP_SCR0_HI(%a6)
10309 mov.l DST_LO(%a1),FP_SCR0_LO(%a6)
10314 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
10315 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
10316 mov.l DST_HI(%a1),%d0
10318 mov.l %d0,FP_SCR1_HI(%a6)
10319 mov.l SRC_HI(%a0),%d0
10321 mov.l %d0,FP_SCR0_HI(%a6)
10322 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
10323 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
10329 mov.b SRC_EX(%a0),%d0 # determine if like signs
10330 mov.b DST_EX(%a1),%d1
10339 mov.b &neg_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
10343 mov.b SRC_EX(%a0),%d0 # determine if like signs
10344 mov.b DST_EX(%a1),%d1
10353 mov.b &neg_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
10391 mov.l %d0,L_SCR3(%a6) # store rnd info
10394 mov.b DTAG(%a6),%d1
10401 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
10402 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
10403 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
10405 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
10406 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
10407 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
10410 mov.l %d0,-(%sp) # save scale factor 1
10439 mov.l %d2,-(%sp) # save d2
10440 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
10441 mov.l %d1,%d2 # make a copy
10446 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10447 mov.l (%sp)+,%d2 # restore d2
10469 mov.b FPCR_ENABLE(%a6),%d1
10476 mov.l L_SCR3(%a6),%d0 # pass prec:rnd
10486 mov.l %d2,-(%sp) # save d2
10487 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
10488 mov.l %d1,%d2 # make a copy
10495 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10496 mov.l (%sp)+,%d2 # restore d2
10535 mov.b FPCR_ENABLE(%a6),%d1
10543 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
10563 mov.l %d2,-(%sp) # save d2
10564 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
10565 mov.l %d1,%d2 # make a copy
10572 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10573 mov.l (%sp)+,%d2 # restore d2
10604 mov.l L_SCR3(%a6),%d1
10625 mov.w (tbl_fsglmul_op.b,%pc,%d1.w*2),%d1
10732 mov.l %d0,L_SCR3(%a6) # store rnd info
10735 mov.b DTAG(%a6),%d1
10745 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
10746 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
10747 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
10749 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
10750 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
10751 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
10754 mov.l %d0,-(%sp) # save scale factor 1
10761 mov.w 2+L_SCR3(%a6),%d1 # fetch precision,mode
10763 mov.l (%sp)+,%d0
10786 mov.l %d2,-(%sp) # save d2
10787 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
10788 mov.l %d1,%d2 # make a copy
10793 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10794 mov.l (%sp)+,%d2 # restore d2
10812 mov.w (%sp),%d1 # fetch new exponent
10822 mov.b FPCR_ENABLE(%a6),%d1
10829 mov.l L_SCR3(%a6),%d0 # pass prec:rnd
10839 mov.l %d2,-(%sp) # save d2
10840 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
10841 mov.l %d1,%d2 # make a copy
10848 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10849 mov.l (%sp)+,%d2 # restore d2
10868 mov.b FPCR_ENABLE(%a6),%d1
10876 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
10896 mov.l %d2,-(%sp) # save d2
10897 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
10898 mov.l %d1,%d2 # make a copy
10905 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
10906 mov.l (%sp)+,%d2 # restore d2
10960 mov.w (tbl_fsgldiv_op.b,%pc,%d1.w*2),%d1
11079 mov.l %d0,L_SCR3(%a6) # store rnd info
11082 mov.b DTAG(%a6),%d1
11109 mov.l %d2,-(%sp) # save d2
11113 mov.w 2+L_SCR3(%a6),%d1
11116 mov.w (%sp),%d2 # fetch new sign, exp
11128 mov.w (%sp),%d1
11131 mov.w %d1,(%sp) # insert new exponent
11135 mov.l (%sp)+,%d2 # restore d2
11155 mov.b FPCR_ENABLE(%a6),%d1
11163 mov.l L_SCR3(%a6),%d0 # pass prec:rnd
11167 mov.l (%sp)+,%d2 # restore d2
11171 mov.b L_SCR3(%a6),%d1
11176 mov.w (%sp),%d1
11181 mov.w %d1,(%sp) # insert new exponent
11189 mov.l L_SCR3(%a6),%d1
11218 mov.b FPCR_ENABLE(%a6),%d1
11226 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
11230 mov.l (%sp)+,%d2 # restore d2
11236 mov.l L_SCR3(%a6),%d1
11250 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
11251 mov.l %d1,%d2 # make a copy
11258 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
11263 mov.l L_SCR3(%a6),%d1
11275 mov.l L_SCR3(%a6),%d1
11279 mov.l 0x4(%sp),%d1 # extract hi(man)
11301 mov.l L_SCR3(%a6),%d1
11324 mov.w (tbl_fadd_op.b,%pc,%d1.w*2),%d1
11392 mov.b SRC_EX(%a0),%d0 # are the signs opposite
11393 mov.b DST_EX(%a1),%d1
11402 mov.b &z_bmask,FPSR_CC(%a6) # set Z
11411 mov.b 3+L_SCR3(%a6),%d1
11416 mov.b &z_bmask,FPSR_CC(%a6) # set Z
11421 mov.b &neg_bmask+z_bmask,FPSR_CC(%a6) # set NEG/Z
11429 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
11430 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
11431 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
11439 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
11440 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
11441 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
11453 mov.b SRC_EX(%a0),%d0 # exclusive or the signs
11454 mov.b DST_EX(%a1),%d1
11468 mov.b &neg_bmask+inf_bmask,FPSR_CC(%a6) # set INF/NEG
11478 mov.b &neg_bmask+inf_bmask,FPSR_CC(%a6) # set INF/NEG
11482 mov.b &inf_bmask,FPSR_CC(%a6) # set INF
11532 mov.l %d0,L_SCR3(%a6) # store rnd info
11535 mov.b DTAG(%a6),%d1
11562 mov.l %d2,-(%sp) # save d2
11566 mov.w 2+L_SCR3(%a6),%d1
11569 mov.w (%sp),%d2 # fetch new exponent
11581 mov.w (%sp),%d1
11584 mov.w %d1,(%sp) # insert new exponent
11588 mov.l (%sp)+,%d2 # restore d2
11608 mov.b FPCR_ENABLE(%a6),%d1
11616 mov.l L_SCR3(%a6),%d0 # pass prec:rnd
11620 mov.l (%sp)+,%d2 # restore d2
11624 mov.b L_SCR3(%a6),%d1
11629 mov.w (%sp),%d1 # fetch {sgn,exp}
11634 mov.w %d1,(%sp) # insert new exponent
11642 mov.l L_SCR3(%a6),%d1
11671 mov.b FPCR_ENABLE(%a6),%d1
11679 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
11683 mov.l (%sp)+,%d2 # restore d2
11689 mov.l L_SCR3(%a6),%d1
11703 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
11704 mov.l %d1,%d2 # make a copy
11711 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
11716 mov.l L_SCR3(%a6),%d1
11728 mov.l L_SCR3(%a6),%d1
11732 mov.l 0x4(%sp),%d1
11754 mov.l L_SCR3(%a6),%d1
11777 mov.w (tbl_fsub_op.b,%pc,%d1.w*2),%d1
11845 mov.b SRC_EX(%a0),%d0
11846 mov.b DST_EX(%a1),%d1
11854 mov.b &z_bmask,FPSR_CC(%a6) # set Z
11863 mov.b 3+L_SCR3(%a6),%d1
11868 mov.b &z_bmask,FPSR_CC(%a6) # set Z
11873 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set Z/NEG
11881 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
11882 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
11883 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
11891 mov.w DST_EX(%a1),FP_SCR1_EX(%a6)
11892 mov.l DST_HI(%a1),FP_SCR1_HI(%a6)
11893 mov.l DST_LO(%a1),FP_SCR1_LO(%a6)
11905 mov.b SRC_EX(%a0),%d0 # exclusive or the signs
11906 mov.b DST_EX(%a1),%d1
11917 mov.b &neg_bmask+inf_bmask,FPSR_CC(%a6) # set INF/NEG
11924 mov.b &neg_bmask+inf_bmask,FPSR_CC(%a6) # set INF/NEG
11928 mov.b &inf_bmask,FPSR_CC(%a6) # set INF
11977 mov.l %d0,L_SCR3(%a6) # store rnd info
11979 mov.b STAG(%a6),%d1
12009 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
12010 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
12011 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
12028 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
12029 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
12030 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
12056 mov.l %d2,-(%sp) # save d2
12058 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
12059 mov.l %d1,%d2 # make a copy
12064 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
12065 mov.l (%sp)+,%d2 # restore d2
12073 mov.w SRC_EX(%a0),FP_SCR0_EX(%a6)
12074 mov.l SRC_HI(%a0),FP_SCR0_HI(%a6)
12075 mov.l SRC_LO(%a0),FP_SCR0_LO(%a6)
12111 mov.b FPCR_ENABLE(%a6),%d1
12119 mov.l L_SCR3(%a6),%d1 # pass: rnd prec,mode
12130 mov.l FP_SCR0_HI(%a6),FP_SCR1_HI(%a6)
12131 mov.l FP_SCR0_LO(%a6),FP_SCR1_LO(%a6)
12132 mov.w FP_SCR0_EX(%a6),%d1 # load current exponent
12134 mov.l %d2,-(%sp) # save d2
12135 mov.l %d1,%d2 # make a copy
12142 mov.w %d1,FP_SCR1_EX(%a6) # insert new exp
12144 mov.l (%sp)+,%d2 # restore d2
12164 mov.b FPCR_ENABLE(%a6),%d1
12175 mov.l L_SCR3(%a6),%d0 # pass: prec,mode
12187 mov.l %d2,-(%sp) # save d2
12188 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
12189 mov.l %d1,%d2 # make a copy
12196 mov.w %d1,FP_SCR0_EX(%a6) # insert new exponent
12198 mov.l (%sp)+,%d2 # restore d2
12252 mov.b &z_bmask,FPSR_CC(%a6) # set 'Z' ccode bit
12256 mov.b &z_bmask+neg_bmask,FPSR_CC(%a6) # set 'Z','N' ccode bits
12264 mov.b &inf_bmask,FPSR_CC(%a6) # set 'I' ccode bit
12291 mov.w (tbl_fdreg.b,%pc,%d1.w*2),%d0
12313 mov.l EXC_DREGS+0x0(%a6),%d0
12316 mov.l EXC_DREGS+0x4(%a6),%d0
12319 mov.l %d2,%d0
12322 mov.l %d3,%d0
12325 mov.l %d4,%d0
12328 mov.l %d5,%d0
12331 mov.l %d6,%d0
12334 mov.l %d7,%d0
12337 mov.l EXC_DREGS+0x8(%a6),%d0
12340 mov.l EXC_DREGS+0xc(%a6),%d0
12343 mov.l %a2,%d0
12346 mov.l %a3,%d0
12349 mov.l %a4,%d0
12352 mov.l %a5,%d0
12355 mov.l (%a6),%d0
12358 mov.l EXC_A7(%a6),%d0
12384 mov.w (tbl_sdregl.b,%pc,%d1.w*2),%d1
12398 mov.l %d0,EXC_DREGS+0x0(%a6)
12401 mov.l %d0,EXC_DREGS+0x4(%a6)
12404 mov.l %d0,%d2
12407 mov.l %d0,%d3
12410 mov.l %d0,%d4
12413 mov.l %d0,%d5
12416 mov.l %d0,%d6
12419 mov.l %d0,%d7
12445 mov.w (tbl_sdregw.b,%pc,%d1.w*2),%d1
12459 mov.w %d0,2+EXC_DREGS+0x0(%a6)
12462 mov.w %d0,2+EXC_DREGS+0x4(%a6)
12465 mov.w %d0,%d2
12468 mov.w %d0,%d3
12471 mov.w %d0,%d4
12474 mov.w %d0,%d5
12477 mov.w %d0,%d6
12480 mov.w %d0,%d7
12506 mov.w (tbl_sdregb.b,%pc,%d1.w*2),%d1
12520 mov.b %d0,3+EXC_DREGS+0x0(%a6)
12523 mov.b %d0,3+EXC_DREGS+0x4(%a6)
12526 mov.b %d0,%d2
12529 mov.b %d0,%d3
12532 mov.b %d0,%d4
12535 mov.b %d0,%d5
12538 mov.b %d0,%d6
12541 mov.b %d0,%d7
12572 mov.w (tbl_iareg.b,%pc,%d1.w*2),%d1
12599 iareg7: mov.b &mia7_flg,SPCOND_FLG(%a6)
12636 mov.w (tbl_dareg.b,%pc,%d1.w*2),%d1
12663 dareg7: mov.b &mda7_flg,SPCOND_FLG(%a6)
12695 mov.w (tbl_load_fpn1.b,%pc,%d0.w*2), %d0
12709 mov.l 0+EXC_FP0(%a6), 0+FP_SRC(%a6)
12710 mov.l 4+EXC_FP0(%a6), 4+FP_SRC(%a6)
12711 mov.l 8+EXC_FP0(%a6), 8+FP_SRC(%a6)
12715 mov.l 0+EXC_FP1(%a6), 0+FP_SRC(%a6)
12716 mov.l 4+EXC_FP1(%a6), 4+FP_SRC(%a6)
12717 mov.l 8+EXC_FP1(%a6), 8+FP_SRC(%a6)
12768 mov.w (tbl_load_fpn2.b,%pc,%d0.w*2), %d0
12782 mov.l 0+EXC_FP0(%a6), 0+FP_DST(%a6)
12783 mov.l 4+EXC_FP0(%a6), 4+FP_DST(%a6)
12784 mov.l 8+EXC_FP0(%a6), 8+FP_DST(%a6)
12788 mov.l 0+EXC_FP1(%a6), 0+FP_DST(%a6)
12789 mov.l 4+EXC_FP1(%a6), 4+FP_DST(%a6)
12790 mov.l 8+EXC_FP1(%a6), 8+FP_DST(%a6)
12843 mov.w (tbl_store_fpreg.b,%pc,%d0.w*2), %d0
12920 mov.l &0xc,%d0 # packed is 12 bytes
12924 mov.l &0xc,%d0 # pass: 12 bytes
12939 mov.b 3+FP_SRC(%a6),%d0 # get byte 4
13032 mov.l 0x0(%a0),FP_SCR0_EX(%a6) # make a copy of input
13033 mov.l 0x4(%a0),FP_SCR0_HI(%a6) # so we don't alter it
13034 mov.l 0x8(%a0),FP_SCR0_LO(%a6)
13062 mov.l &EDIGITS,%d2 # # of nibbles (digits) in fraction part
13063 mov.l &ESTRT,%d3 # counter to pick up digits
13064 mov.l (%a0),%d4 # get first word of bcd
13082 mov.l %d1,-(%sp) # save exp on stack
13105 mov.l &1,%d1 # word counter, init to 1
13120 mov.l (%a0,%d1.L*4),%d4 # load mantissa lonqword into d4
13121 mov.l &FSTRT,%d3 # counter to pick up digits
13122 mov.l &FNIBS,%d2 # reset number of digits per a0 ptr
13198 mov.l (%sp),%d1 # load expA for range test
13204 mov.l (%a0),%d4 # load lword 1 to d4
13208 mov.l &1,%d5 # init lword counter
13209 mov.l (%a0,%d5.L*4),%d4 # get lword 2 to d4
13213 mov.l (%a0,%d5.L*4),%d4 # get lword 3 to d4
13216 mov.l &7,%d2 # init digit counter
13224 mov.l %d1,%d0 # copy counter to d2
13225 mov.l (%sp),%d1 # get adjusted exp from memory
13229 mov.l (%a0),%d4 # load lword 1 to d4
13240 mov.l &3,%d2 # init d2 to count bits in counter
13256 mov.l &2,%d5 # set up d5 to point to lword 3
13257 mov.l (%a0,%d5.L*4),%d4 # get lword 3
13261 mov.l (%a0,%d5.L*4),%d4 # get lword 2
13263 mov.l &28,%d3 # point to last digit
13264 mov.l &7,%d2 # init digit counter
13272 mov.l %d1,%d0 # copy counter to d0
13273 mov.l (%sp),%d1 # get adjusted exp from memory
13277 mov.l (%a0),%d4 # load lword 1 to d4
13288 mov.l &3,%d2 # init d2 to count bits in counter
13343 mov.l USER_FPCR(%a6),%d3 # get user's FPCR
13345 mov.l (%a0),%d4 # reload 1st bcd word to d4
13350 mov.b (%a1,%d2),%d0 # load new rounding bits from table
13366 mov.l %d1,%d0 # copy exp to d0;use d0
13583 mov.l (%a0),L_SCR2(%a6) # save exponent for sign check
13584 mov.l %d0,%d7 # move k-factor to d7
13594 mov.w (%a0),%d0
13596 mov.l 4(%a0),%d1
13597 mov.l 8(%a0),%d2
13612 mov.w %d0,(%a0)
13613 mov.l %d1,4(%a0)
13614 mov.l %d2,8(%a0)
13619 mov.l (%a0),FP_SCR1(%a6) # move input to work space
13620 mov.l 4(%a0),FP_SCR1+4(%a6) # move input to work space
13621 mov.l 8(%a0),FP_SCR1+8(%a6) # move input to work space
13652 mov.l &-4933,%d6 # force ILOG = -4933
13655 mov.w FP_SCR1(%a6),%d0 # move exp to d0
13656 mov.w &0x3fff,FP_SCR1(%a6) # replace exponent with 0x3fff
13715 mov.l %d7,%d4 # if k > 0, LEN = k
13718 mov.l %d6,%d4 # first load ILOG to d4
13726 mov.l &17,%d4 # set max LEN = 17
13732 mov.l &1,%d4 # min LEN is 1
13789 mov.l %d7,%d6 # if ((k<0) & (ILOG < k)) ILOG = k
13791 mov.l %d6,%d0 # calc ILOG + 1 - LEN in d0
13803 mov.l &24,%d2 # put 24 in d2 for A9
13817 mov.b (%a2,%d1),%d3 # load d3 with new rmode
13907 mov.w (%sp),%d3 # grab exponent
13922 mov.l 0x8(%a0),-(%sp) # put input op mantissa on stk
13923 mov.l 0x4(%a0),-(%sp)
13924 mov.l &0x3fff0000,-(%sp) # force exp to zero
13930 mov.l 36+8(%a1),-(%sp) # get 10^8 mantissa
13931 mov.l 36+4(%a1),-(%sp)
13932 mov.l &0x3fff0000,-(%sp) # force exp to zero
13933 mov.l 48+8(%a1),-(%sp) # get 10^16 mantissa
13934 mov.l 48+4(%a1),-(%sp)
13935 mov.l &0x3fff0000,-(%sp)# force exp to zero
13988 mov.l USER_FPCR(%a6),L_SCR1(%a6) # save it for later
14019 mov.l L_SCR1(%a6),-(%sp)
14020 mov.l L_SCR2(%a6),-(%sp)
14028 mov.l USER_FPSR(%a6),-(%sp)
14033 ## mov.l USER_FPCR(%a6),%d0 # ext prec/keep rnd mode
14043 mov.b (%sp),USER_FPSR(%a6)
14046 mov.l (%sp)+,L_SCR2(%a6)
14047 mov.l (%sp)+,L_SCR1(%a6)
14050 mov.l L_SCR2(%a6),FP_SCR1(%a6) # restore original exponent
14051 mov.l L_SCR1(%a6),USER_FPCR(%a6) # restore user's FPCR
14092 mov.l %d4,%d0 # put LEN in d0
14119 mov.w &1,%d5 # set ICTR
14133 mov.w &1,%d5 # set ICTR
14144 mov.l %d4,%d0 # put LEN in d0
14198 mov.l 4(%a0),%d2 # move 2nd word of FP_RES to d2
14199 mov.l 8(%a0),%d3 # move 3rd word of FP_RES to d3
14202 mov.l (%a0),%d0 # move exponent to d0
14224 mov.l %d4,%d0 # put LEN in d0 for binstr call
14293 mov.l 4(%a2),%d2 # move word 2 to d2
14294 mov.l 8(%a2),%d3 # move word 3 to d3
14295 mov.w (%a2),%d0 # move exp to d0
14308 mov.l &4,%d0 # put 4 in d0 for binstr call
14311 mov.l L_SCR1(%a6),%d0 # load L_SCR1 lword to d0
14312 mov.l &12,%d1 # use d1 for shift count
14350 mov.l &2,%d0 # move 2 in to d0 for SM
14480 mov.l &1,%d7 # init d7 for second digit
14486 mov.l %d2,%d4 # copy the fraction before muls
14487 mov.l %d3,%d5 # to d4:d5
14521 mov.b %d7,(%a0)+ # store d7b byte in memory
14528 mov.w %d1,%d7 # put new digit in d7b
14534 mov.b %d7,(%a0)+ # store it in memory string
14579 mov.w &0x0121,EXC_VOFF(%a6) # set FSLW
14586 mov.w &0x0141,EXC_VOFF(%a6) # set FSLW
14593 mov.w &0x0101,EXC_VOFF(%a6) # set FSLW
14600 mov.w &0x0161,EXC_VOFF(%a6) # set FSLW
14607 mov.w &0x0161,EXC_VOFF(%a6) # set FSLW
14616 mov.w &0x00a1,EXC_VOFF(%a6) # set FSLW
14623 mov.w &0x00c1,EXC_VOFF(%a6) # set FSLW
14630 mov.w &0x0081,EXC_VOFF(%a6) # set FSLW
14637 mov.w &0x00e1,EXC_VOFF(%a6) # set FSLW
14641 mov.l &0xc,%d0 # twelve bytes
14644 mov.w &0x00e1,EXC_VOFF(%a6) # set FSLW
14649 mov.l USER_FPIAR(%a6),EXC_PC(%a6) # store current PC
14657 mov.l (%sp),-(%sp) # store SR, hi(PC)
14658 mov.l 0x8(%sp),0x4(%sp) # store lo(PC)
14659 mov.l 0xc(%sp),0x8(%sp) # store EA
14660 mov.l &0x00000001,0xc(%sp) # store FSLW
14661 mov.w 0x6(%sp),0xc(%sp) # fix FSLW (size)
14662 mov.w &0x4008,0x6(%sp) # store voff
14679 mov.b EXC_OPWORD+0x1(%a6),%d1
14688 mov.b EXC_OPWORD+0x1(%a6),%d1
14691 mov.w (tbl_rest_inc.b,%pc,%d1.w*2),%d1