a0127fa55e9c061de1cfddad596484de448a57cc
[linux-3.10.git] / arch / m68k / fpsp040 / smovecr.S
1 |
2 |       smovecr.sa 3.1 12/10/90
3 |
4 |       The entry point sMOVECR returns the constant at the
5 |       offset given in the instruction field.
6 |
7 |       Input: An offset in the instruction word.
8 |
9 |       Output: The constant rounded to the user's rounding
10 |               mode unchecked for overflow.
11 |
12 |       Modified: fp0.
13 |
14 |
15 |               Copyright (C) Motorola, Inc. 1990
16 |                       All Rights Reserved
17 |
18 |       THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
19 |       The copyright notice above does not evidence any
20 |       actual or intended publication of such source code.
21
22 |SMOVECR        idnt    2,1 | Motorola 040 Floating Point Software Package
23
24         |section 8
25
26 #include "fpsp.h"
27
28         |xref   nrm_set
29         |xref   round
30         |xref   PIRN
31         |xref   PIRZRM
32         |xref   PIRP
33         |xref   SMALRN
34         |xref   SMALRZRM
35         |xref   SMALRP
36         |xref   BIGRN
37         |xref   BIGRZRM
38         |xref   BIGRP
39
40 FZERO:  .long   00000000
41 |
42 |       FMOVECR
43 |
44         .global smovcr
45 smovcr:
46         bfextu  CMDREG1B(%a6){#9:#7},%d0 |get offset
47         bfextu  USER_FPCR(%a6){#26:#2},%d1 |get rmode
48 |
49 | check range of offset
50 |
51         tstb    %d0             |if zero, offset is to pi
52         beqs    PI_TBL          |it is pi
53         cmpib   #0x0a,%d0               |check range $01 - $0a
54         bles    Z_VAL           |if in this range, return zero
55         cmpib   #0x0e,%d0               |check range $0b - $0e
56         bles    SM_TBL          |valid constants in this range
57         cmpib   #0x2f,%d0               |check range $10 - $2f
58         bles    Z_VAL           |if in this range, return zero
59         cmpib   #0x3f,%d0               |check range $30 - $3f
60         ble     BG_TBL          |valid constants in this range
61 Z_VAL:
62         fmoves  FZERO,%fp0
63         rts
64 PI_TBL:
65         tstb    %d1             |offset is zero, check for rmode
66         beqs    PI_RN           |if zero, rn mode
67         cmpib   #0x3,%d1                |check for rp
68         beqs    PI_RP           |if 3, rp mode
69 PI_RZRM:
70         leal    PIRZRM,%a0      |rmode is rz or rm, load PIRZRM in a0
71         bra     set_finx
72 PI_RN:
73         leal    PIRN,%a0                |rmode is rn, load PIRN in a0
74         bra     set_finx
75 PI_RP:
76         leal    PIRP,%a0                |rmode is rp, load PIRP in a0
77         bra     set_finx
78 SM_TBL:
79         subil   #0xb,%d0                |make offset in 0 - 4 range
80         tstb    %d1             |check for rmode
81         beqs    SM_RN           |if zero, rn mode
82         cmpib   #0x3,%d1                |check for rp
83         beqs    SM_RP           |if 3, rp mode
84 SM_RZRM:
85         leal    SMALRZRM,%a0    |rmode is rz or rm, load SMRZRM in a0
86         cmpib   #0x2,%d0                |check if result is inex
87         ble     set_finx        |if 0 - 2, it is inexact
88         bra     no_finx         |if 3, it is exact
89 SM_RN:
90         leal    SMALRN,%a0      |rmode is rn, load SMRN in a0
91         cmpib   #0x2,%d0                |check if result is inex
92         ble     set_finx        |if 0 - 2, it is inexact
93         bra     no_finx         |if 3, it is exact
94 SM_RP:
95         leal    SMALRP,%a0      |rmode is rp, load SMRP in a0
96         cmpib   #0x2,%d0                |check if result is inex
97         ble     set_finx        |if 0 - 2, it is inexact
98         bra     no_finx         |if 3, it is exact
99 BG_TBL:
100         subil   #0x30,%d0               |make offset in 0 - f range
101         tstb    %d1             |check for rmode
102         beqs    BG_RN           |if zero, rn mode
103         cmpib   #0x3,%d1                |check for rp
104         beqs    BG_RP           |if 3, rp mode
105 BG_RZRM:
106         leal    BIGRZRM,%a0     |rmode is rz or rm, load BGRZRM in a0
107         cmpib   #0x1,%d0                |check if result is inex
108         ble     set_finx        |if 0 - 1, it is inexact
109         cmpib   #0x7,%d0                |second check
110         ble     no_finx         |if 0 - 7, it is exact
111         bra     set_finx        |if 8 - f, it is inexact
112 BG_RN:
113         leal    BIGRN,%a0       |rmode is rn, load BGRN in a0
114         cmpib   #0x1,%d0                |check if result is inex
115         ble     set_finx        |if 0 - 1, it is inexact
116         cmpib   #0x7,%d0                |second check
117         ble     no_finx         |if 0 - 7, it is exact
118         bra     set_finx        |if 8 - f, it is inexact
119 BG_RP:
120         leal    BIGRP,%a0       |rmode is rp, load SMRP in a0
121         cmpib   #0x1,%d0                |check if result is inex
122         ble     set_finx        |if 0 - 1, it is inexact
123         cmpib   #0x7,%d0                |second check
124         ble     no_finx         |if 0 - 7, it is exact
125 |       bra     set_finx        ;if 8 - f, it is inexact
126 set_finx:
127         orl     #inx2a_mask,USER_FPSR(%a6) |set inex2/ainex
128 no_finx:
129         mulul   #12,%d0                 |use offset to point into tables
130         movel   %d1,L_SCR1(%a6)         |load mode for round call
131         bfextu  USER_FPCR(%a6){#24:#2},%d1      |get precision
132         tstl    %d1                     |check if extended precision
133 |
134 | Precision is extended
135 |
136         bnes    not_ext                 |if extended, do not call round
137         fmovemx (%a0,%d0),%fp0-%fp0             |return result in fp0
138         rts
139 |
140 | Precision is single or double
141 |
142 not_ext:
143         swap    %d1                     |rnd prec in upper word of d1
144         addl    L_SCR1(%a6),%d1         |merge rmode in low word of d1
145         movel   (%a0,%d0),FP_SCR1(%a6)  |load first word to temp storage
146         movel   4(%a0,%d0),FP_SCR1+4(%a6)       |load second word
147         movel   8(%a0,%d0),FP_SCR1+8(%a6)       |load third word
148         clrl    %d0                     |clear g,r,s
149         lea     FP_SCR1(%a6),%a0
150         btstb   #sign_bit,LOCAL_EX(%a0)
151         sne     LOCAL_SGN(%a0)          |convert to internal ext. format
152
153         bsr     round                   |go round the mantissa
154
155         bfclr   LOCAL_SGN(%a0){#0:#8}   |convert back to IEEE ext format
156         beqs    fin_fcr
157         bsetb   #sign_bit,LOCAL_EX(%a0)
158 fin_fcr:
159         fmovemx (%a0),%fp0-%fp0
160         rts
161
162         |end