URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [arch/] [m68k/] [math-emu/] [fp_move.S] - Blame information for rev 1765

Details | Compare with Previous | View Log


/*
 * fp_move.S
 *
 * Copyright Roman Zippel, 1997.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, and the entire permission notice in its entirety,
 *    including the disclaimer of warranties.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote
 *    products derived from this software without specific prior
 *    written permission.
 *
 * ALTERNATIVELY, this product may be distributed under the terms of
 * the GNU General Public License, in which case the provisions of the GPL are
 * required INSTEAD OF the above restrictions.  (This clause is
 * necessary due to a potential bad interaction between the GPL and
 * the restrictions contained in a BSD-style copyright.)
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 */
 
#include "fp_emu.h"
#include "fp_decode.h"
 
do_no_pc_mode=1
 
        .globl  fp_fmove_fp2mem
 
fp_fmove_fp2mem:
        clr.b   (2+FPD_FPSR,FPDATA)
        fp_decode_dest_format
        move.w  %d0,%d1                 | store data size twice in %d1
        swap    %d1                     | one can be trashed below
        move.w  %d0,%d1
#ifdef FPU_EMU_DEBUG
        lea     0f,%a0
        clr.l   %d0
        move.b  (%a0,%d1.w),%d0
        printf  PDECODE,"fmove.%c ",1,%d0
        fp_decode_src_reg
        printf  PDECODE,"fp%d,",1,%d0
 
        .data
0:      .byte   'l','s','x','p','w','d','b','p'
        .previous
#endif
 
        | encode addressing mode for dest
        fp_decode_addr_mode
 
        .long   fp_data, fp_ill
        .long   fp_indirect, fp_postinc
        .long   fp_predecr, fp_disp16
        .long   fp_extmode0, fp_extmode1
 
        | addressing mode: data register direct
fp_data:
        fp_mode_data_direct
        move.w  %d0,%d1
        fp_decode_src_reg
        fp_get_fp_reg
        lea     (FPD_TEMPFP1,FPDATA),%a1
        move.l  (%a0)+,(%a1)+
        move.l  (%a0)+,(%a1)+
        move.l  (%a0),(%a1)
        lea     (-8,%a1),%a0
        swap    %d1
        move.l  %d1,%d2
        printf  PDECODE,"\n"
        jmp     ([0f:w,%pc,%d1.w*4])
 
        .align  4
0:
        .long   fp_data_long, fp_data_single
        .long   fp_ill, fp_ill
        .long   fp_data_word, fp_ill
        .long   fp_data_byte, fp_ill
 
fp_data_byte:
        jsr     fp_normalize_ext
        jsr     fp_conv_ext2byte
        move.l  %d0,%d1
        swap    %d2
        move.w  %d2,%d0
        jsr     fp_get_data_reg
        move.b  %d1,%d0
        move.w  %d2,%d1
        jsr     fp_put_data_reg
        jra     fp_final
 
fp_data_word:
        jsr     fp_normalize_ext
        jsr     fp_conv_ext2short
        move.l  %d0,%d1
        swap    %d2
        move.w  %d2,%d0
        jsr     fp_get_data_reg
        move.w  %d1,%d0
        move.l  %d2,%d1
        jsr     fp_put_data_reg
        jra     fp_final
 
fp_data_long:
        jsr     fp_normalize_ext
        jsr     fp_conv_ext2long
        swap    %d2
        move.w  %d2,%d1
        jsr     fp_put_data_reg
        jra     fp_final
 
fp_data_single:
        jsr     fp_normalize_ext
        jsr     fp_conv_ext2single
        swap    %d2
        move.w  %d2,%d1
        jsr     fp_put_data_reg
        jra     fp_final
 
        | addressing mode: address register indirect
fp_indirect:
        fp_mode_addr_indirect
        jra     fp_putdest
 
        | addressing mode: address register indirect with postincrement
fp_postinc:
        fp_mode_addr_indirect_postinc
        jra     fp_putdest
 
        | addressing mode: address register indirect with predecrement
fp_predecr:
        fp_mode_addr_indirect_predec
        jra     fp_putdest
 
        | addressing mode: address register indirect with 16bit displacement
fp_disp16:
        fp_mode_addr_indirect_disp16
        jra     fp_putdest
 
fp_extmode0:
        fp_mode_addr_indirect_extmode0
        jra     fp_putdest
 
fp_extmode1:
        fp_decode_addr_reg
        jmp     ([0f:w,%pc,%d0*4])
 
        .align  4
0:
        .long   fp_abs_short, fp_abs_long
        .long   fp_ill, fp_ill
        .long   fp_ill, fp_ill
        .long   fp_ill, fp_ill
 
fp_abs_short:
        fp_mode_abs_short
        jra     fp_putdest
 
fp_abs_long:
        fp_mode_abs_long
        jra     fp_putdest
 
fp_putdest:
        move.l  %a0,%a1
        fp_decode_src_reg
        move.l  %d1,%d2                 | save size
        fp_get_fp_reg
        printf  PDECODE,"\n"
        addq.l  #8,%a0
        move.l  (%a0),-(%sp)
        move.l  -(%a0),-(%sp)
        move.l  -(%a0),-(%sp)
        move.l  %sp,%a0
        jsr     fp_normalize_ext
 
        swap    %d2
        jmp     ([0f:w,%pc,%d2.w*4])
 
        .align  4
0:
        .long   fp_format_long, fp_format_single
        .long   fp_format_extended, fp_format_packed
        .long   fp_format_word, fp_format_double
        .long   fp_format_byte, fp_format_packed
 
fp_format_long:
        jsr     fp_conv_ext2long
        putuser.l %d0,(%a1),fp_err_ua1,%a1
        jra     fp_finish_move
 
fp_format_single:
        jsr     fp_conv_ext2single
        putuser.l %d0,(%a1),fp_err_ua1,%a1
        jra     fp_finish_move
 
fp_format_extended:
        move.l  (%a0)+,%d0
        lsl.w   #1,%d0
        lsl.l   #7,%d0
        lsl.l   #8,%d0
        putuser.l %d0,(%a1)+,fp_err_ua1,%a1
        move.l  (%a0)+,%d0
        putuser.l %d0,(%a1)+,fp_err_ua1,%a1
        move.l  (%a0),%d0
        putuser.l %d0,(%a1),fp_err_ua1,%a1
        jra     fp_finish_move
 
fp_format_packed:
        /* not supported yet */
        lea     (12,%sp),%sp
        jra     fp_ill
 
fp_format_word:
        jsr     fp_conv_ext2short
        putuser.w %d0,(%a1),fp_err_ua1,%a1
        jra     fp_finish_move
 
fp_format_double:
        jsr     fp_conv_ext2double
        jra     fp_finish_move
 
fp_format_byte:
        jsr     fp_conv_ext2byte
        putuser.b %d0,(%a1),fp_err_ua1,%a1
|       jra     fp_finish_move
 
fp_finish_move:
        lea     (12,%sp),%sp
        jra     fp_final

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [arch/] [m68k/] [math-emu/] [fp_move.S] - Blame information for rev 1765

Line No.	Rev	Author	Line
1	1275	phoenix	`/*`
2			`* fp_move.S`
3			`*`
4			`* Copyright Roman Zippel, 1997. All rights reserved.`
5			`*`
6			`* Redistribution and use in source and binary forms, with or without`
7			`* modification, are permitted provided that the following conditions`
8			`* are met:`
9			`* 1. Redistributions of source code must retain the above copyright`
10			`* notice, and the entire permission notice in its entirety,`
11			`* including the disclaimer of warranties.`
12			`* 2. Redistributions in binary form must reproduce the above copyright`
13			`* notice, this list of conditions and the following disclaimer in the`
14			`* documentation and/or other materials provided with the distribution.`
15			`* 3. The name of the author may not be used to endorse or promote`
16			`* products derived from this software without specific prior`
17			`* written permission.`
18			`*`
19			`* ALTERNATIVELY, this product may be distributed under the terms of`
20			`* the GNU General Public License, in which case the provisions of the GPL are`
21			`* required INSTEAD OF the above restrictions. (This clause is`
22			`* necessary due to a potential bad interaction between the GPL and`
23			`* the restrictions contained in a BSD-style copyright.)`
24			`*`
25			* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
26			`* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES`
27			`* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE`
28			`* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,`
29			`* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES`
30			`* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR`
31			`* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)`
32			`* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,`
33			`* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)`
34			`* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED`
35			`* OF THE POSSIBILITY OF SUCH DAMAGE.`
36			`*/`
37
38			`#include "fp_emu.h"`
39			`#include "fp_decode.h"`
40
41			`do_no_pc_mode=1`
42
43			`.globl fp_fmove_fp2mem`
44
45			`fp_fmove_fp2mem:`
46			`clr.b (2+FPD_FPSR,FPDATA)`
47			`fp_decode_dest_format`
48			`move.w %d0,%d1 \| store data size twice in %d1`
49			`swap %d1 \| one can be trashed below`
50			`move.w %d0,%d1`
51			`#ifdef FPU_EMU_DEBUG`
52			`lea 0f,%a0`
53			`clr.l %d0`
54			`move.b (%a0,%d1.w),%d0`
55			`printf PDECODE,"fmove.%c ",1,%d0`
56			`fp_decode_src_reg`
57			`printf PDECODE,"fp%d,",1,%d0`
58
59			`.data`
60			`0: .byte 'l','s','x','p','w','d','b','p'`
61			`.previous`
62			`#endif`
63
64			`\| encode addressing mode for dest`
65			`fp_decode_addr_mode`
66
67			`.long fp_data, fp_ill`
68			`.long fp_indirect, fp_postinc`
69			`.long fp_predecr, fp_disp16`
70			`.long fp_extmode0, fp_extmode1`
71
72			`\| addressing mode: data register direct`
73			`fp_data:`
74			`fp_mode_data_direct`
75			`move.w %d0,%d1`
76			`fp_decode_src_reg`
77			`fp_get_fp_reg`
78			`lea (FPD_TEMPFP1,FPDATA),%a1`
79			`move.l (%a0)+,(%a1)+`
80			`move.l (%a0)+,(%a1)+`
81			`move.l (%a0),(%a1)`
82			`lea (-8,%a1),%a0`
83			`swap %d1`
84			`move.l %d1,%d2`
85			`printf PDECODE,"\n"`
86			`jmp ([0f:w,%pc,%d1.w*4])`
87
88			`.align 4`
89			`0:`
90			`.long fp_data_long, fp_data_single`
91			`.long fp_ill, fp_ill`
92			`.long fp_data_word, fp_ill`
93			`.long fp_data_byte, fp_ill`
94
95			`fp_data_byte:`
96			`jsr fp_normalize_ext`
97			`jsr fp_conv_ext2byte`
98			`move.l %d0,%d1`
99			`swap %d2`
100			`move.w %d2,%d0`
101			`jsr fp_get_data_reg`
102			`move.b %d1,%d0`
103			`move.w %d2,%d1`
104			`jsr fp_put_data_reg`
105			`jra fp_final`
106
107			`fp_data_word:`
108			`jsr fp_normalize_ext`
109			`jsr fp_conv_ext2short`
110			`move.l %d0,%d1`
111			`swap %d2`
112			`move.w %d2,%d0`
113			`jsr fp_get_data_reg`
114			`move.w %d1,%d0`
115			`move.l %d2,%d1`
116			`jsr fp_put_data_reg`
117			`jra fp_final`
118
119			`fp_data_long:`
120			`jsr fp_normalize_ext`
121			`jsr fp_conv_ext2long`
122			`swap %d2`
123			`move.w %d2,%d1`
124			`jsr fp_put_data_reg`
125			`jra fp_final`
126
127			`fp_data_single:`
128			`jsr fp_normalize_ext`
129			`jsr fp_conv_ext2single`
130			`swap %d2`
131			`move.w %d2,%d1`
132			`jsr fp_put_data_reg`
133			`jra fp_final`
134
135			`\| addressing mode: address register indirect`
136			`fp_indirect:`
137			`fp_mode_addr_indirect`
138			`jra fp_putdest`
139
140			`\| addressing mode: address register indirect with postincrement`
141			`fp_postinc:`
142			`fp_mode_addr_indirect_postinc`
143			`jra fp_putdest`
144
145			`\| addressing mode: address register indirect with predecrement`
146			`fp_predecr:`
147			`fp_mode_addr_indirect_predec`
148			`jra fp_putdest`
149
150			`\| addressing mode: address register indirect with 16bit displacement`
151			`fp_disp16:`
152			`fp_mode_addr_indirect_disp16`
153			`jra fp_putdest`
154
155			`fp_extmode0:`
156			`fp_mode_addr_indirect_extmode0`
157			`jra fp_putdest`
158
159			`fp_extmode1:`
160			`fp_decode_addr_reg`
161			`jmp ([0f:w,%pc,%d0*4])`
162
163			`.align 4`
164			`0:`
165			`.long fp_abs_short, fp_abs_long`
166			`.long fp_ill, fp_ill`
167			`.long fp_ill, fp_ill`
168			`.long fp_ill, fp_ill`
169
170			`fp_abs_short:`
171			`fp_mode_abs_short`
172			`jra fp_putdest`
173
174			`fp_abs_long:`
175			`fp_mode_abs_long`
176			`jra fp_putdest`
177
178			`fp_putdest:`
179			`move.l %a0,%a1`
180			`fp_decode_src_reg`
181			`move.l %d1,%d2 \| save size`
182			`fp_get_fp_reg`
183			`printf PDECODE,"\n"`
184			`addq.l #8,%a0`
185			`move.l (%a0),-(%sp)`
186			`move.l -(%a0),-(%sp)`
187			`move.l -(%a0),-(%sp)`
188			`move.l %sp,%a0`
189			`jsr fp_normalize_ext`
190
191			`swap %d2`
192			`jmp ([0f:w,%pc,%d2.w*4])`
193
194			`.align 4`
195			`0:`
196			`.long fp_format_long, fp_format_single`
197			`.long fp_format_extended, fp_format_packed`
198			`.long fp_format_word, fp_format_double`
199			`.long fp_format_byte, fp_format_packed`
200
201			`fp_format_long:`
202			`jsr fp_conv_ext2long`
203			`putuser.l %d0,(%a1),fp_err_ua1,%a1`
204			`jra fp_finish_move`
205
206			`fp_format_single:`
207			`jsr fp_conv_ext2single`
208			`putuser.l %d0,(%a1),fp_err_ua1,%a1`
209			`jra fp_finish_move`
210
211			`fp_format_extended:`
212			`move.l (%a0)+,%d0`
213			`lsl.w #1,%d0`
214			`lsl.l #7,%d0`
215			`lsl.l #8,%d0`
216			`putuser.l %d0,(%a1)+,fp_err_ua1,%a1`
217			`move.l (%a0)+,%d0`
218			`putuser.l %d0,(%a1)+,fp_err_ua1,%a1`
219			`move.l (%a0),%d0`
220			`putuser.l %d0,(%a1),fp_err_ua1,%a1`
221			`jra fp_finish_move`
222
223			`fp_format_packed:`
224			`/* not supported yet */`
225			`lea (12,%sp),%sp`
226			`jra fp_ill`
227
228			`fp_format_word:`
229			`jsr fp_conv_ext2short`
230			`putuser.w %d0,(%a1),fp_err_ua1,%a1`
231			`jra fp_finish_move`
232
233			`fp_format_double:`
234			`jsr fp_conv_ext2double`
235			`jra fp_finish_move`
236
237			`fp_format_byte:`
238			`jsr fp_conv_ext2byte`
239			`putuser.b %d0,(%a1),fp_err_ua1,%a1`
240			`\| jra fp_finish_move`
241
242			`fp_finish_move:`
243			`lea (12,%sp),%sp`
244			`jra fp_final`