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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log


/*
 * fp_movem.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"
 
| set flags for decode macros for fmovem
do_fmovem=1
 
        .globl  fp_fmovem_fp, fp_fmovem_cr
 
| %d1 contains the mask and count of the register list
| for other register usage see fp_decode.h
 
fp_fmovem_fp:
        printf  PDECODE,"fmovem.x "
        | get register list and count them
        btst    #11,%d2
        jne     1f
        bfextu  %d2{#24,#8},%d0         | static register list
        jra     2f
1:      bfextu  %d2{#25,#3},%d0         | dynamic register list
        jsr     fp_get_data_reg
2:      move.l  %d0,%d1
        swap    %d1
        jra     2f
1:      addq.w  #1,%d1                  | count the # of registers in
2:      lsr.b   #1,%d0                  | register list and keep it in %d1
        jcs     1b
        jne     2b
        printf  PDECODE,"#%08x",1,%d1
#ifdef FPU_EMU_DEBUG
        btst    #12,%d2
        jne     1f
        printf  PDECODE,"-"             | decremental move
        jra     2f
1:      printf  PDECODE,"+"             | incremental move
2:      btst    #13,%d2
        jeq     1f
        printf  PDECODE,"->"            | fpu -> cpu
        jra     2f
1:      printf  PDECODE,"<-"            | fpu <- cpu
2:
#endif
 
        | decode address mode
        fp_decode_addr_mode
 
        .long   fp_ill, fp_ill
        .long   fpr_indirect, fpr_postinc
        .long   fpr_predecr, fpr_disp16
        .long   fpr_extmode0, fpr_extmode1
 
        | addressing mode: address register indirect
fpr_indirect:
        fp_mode_addr_indirect
        jra     fpr_do_movem
 
        | addressing mode: address register indirect with postincrement
fpr_postinc:
        fp_mode_addr_indirect_postinc
        jra     fpr_do_movem
 
fpr_predecr:
        fp_mode_addr_indirect_predec
        jra     fpr_do_movem
 
        | addressing mode: address register/programm counter indirect
        |                  with 16bit displacement
fpr_disp16:
        fp_mode_addr_indirect_disp16
        jra     fpr_do_movem
 
fpr_extmode0:
        fp_mode_addr_indirect_extmode0
        jra     fpr_do_movem
 
fpr_extmode1:
        fp_decode_addr_reg
        jmp     ([0f:w,%pc,%d0*4])
 
        .align  4
0:
        .long   fpr_absolute_short, fpr_absolute_long
        .long   fpr_disp16, fpr_extmode0
        .long   fp_ill, fp_ill
        .long   fp_ill, fp_ill
 
fpr_absolute_short:
        fp_mode_abs_short
        jra     fpr_do_movem
 
fpr_absolute_long:
        fp_mode_abs_long
|       jra     fpr_do_movem
 
fpr_do_movem:
        swap    %d1                     | get fpu register list
        lea     (FPD_FPREG,FPDATA),%a1
        moveq   #12,%d0
        btst    #12,%d2
        jne     1f
        lea     (-12,%a1,%d0*8),%a1
        neg.l   %d0
1:      btst    #13,%d2
        jne     4f
        | move register from memory into fpu
        jra     3f
1:      printf  PMOVEM,"(%p>%p)",2,%a0,%a1
        getuser.l (%a0)+,%d2,fp_err_ua1,%a0
        lsr.l   #8,%d2
        lsr.l   #7,%d2
        lsr.w   #1,%d2
        move.l  %d2,(%a1)+
        getuser.l (%a0)+,%d2,fp_err_ua1,%a0
        move.l  %d2,(%a1)+
        getuser.l (%a0),%d2,fp_err_ua1,%a0
        move.l  %d2,(%a1)
        subq.l  #8,%a0
        subq.l  #8,%a1
        add.l   %d0,%a0
2:      add.l   %d0,%a1
3:      lsl.b   #1,%d1
        jcs     1b
        jne     2b
        jra     5f
        | move register from fpu into memory
1:      printf  PMOVEM,"(%p>%p)",2,%a1,%a0
        move.l  (%a1)+,%d2
        lsl.w   #1,%d2
        lsl.l   #7,%d2
        lsl.l   #8,%d2
        putuser.l %d2,(%a0)+,fp_err_ua1,%a0
        move.l  (%a1)+,%d2
        putuser.l %d2,(%a0)+,fp_err_ua1,%a0
        move.l  (%a1),%d2
        putuser.l %d2,(%a0),fp_err_ua1,%a0
        subq.l  #8,%a1
        subq.l  #8,%a0
        add.l   %d0,%a0
2:      add.l   %d0,%a1
4:      lsl.b   #1,%d1
        jcs     1b
        jne     2b
5:
        printf  PDECODE,"\n"
#if 0
        lea     (FPD_FPREG,FPDATA),%a0
        printf  PMOVEM,"fp:"
        printx  PMOVEM,%a0@(0)
        printx  PMOVEM,%a0@(12)
        printf  PMOVEM,"\n   "
        printx  PMOVEM,%a0@(24)
        printx  PMOVEM,%a0@(36)
        printf  PMOVEM,"\n   "
        printx  PMOVEM,%a0@(48)
        printx  PMOVEM,%a0@(60)
        printf  PMOVEM,"\n   "
        printx  PMOVEM,%a0@(72)
        printx  PMOVEM,%a0@(84)
        printf  PMOVEM,"\n"
#endif
        jra     fp_end
 
| set flags for decode macros for fmovem control register
do_fmovem=1
do_fmovem_cr=1
 
fp_fmovem_cr:
        printf  PDECODE,"fmovem.cr "
        | get register list and count them
        bfextu  %d2{#19,#3},%d0
        move.l  %d0,%d1
        swap    %d1
        jra     2f
1:      addq.w  #1,%d1
2:      lsr.l   #1,%d0
        jcs     1b
        jne     2b
        printf  PDECODE,"#%08x",1,%d1
#ifdef FPU_EMU_DEBUG
        btst    #13,%d2
        jeq     1f
        printf  PDECODE,"->"            | fpu -> cpu
        jra     2f
1:      printf  PDECODE,"<-"            | fpu <- cpu
2:
#endif
 
        | decode address mode
        fp_decode_addr_mode
 
        .long   fpc_data, fpc_addr
        .long   fpc_indirect, fpc_postinc
        .long   fpc_predecr, fpc_disp16
        .long   fpc_extmode0, fpc_extmode1
 
fpc_data:
        fp_mode_data_direct
        move.w  %d0,%d1
        bfffo   %d2{#19,#3},%d0
        sub.w   #19,%d0
        lea     (FPD_FPCR,FPDATA,%d0.w*4),%a1
        btst    #13,%d2
        jne     1f
        move.w  %d1,%d0
        jsr     fp_get_data_reg
        move.l  %d0,(%a1)
        jra     fpc_movem_fin
1:      move.l  (%a1),%d0
        jsr     fp_put_data_reg
        jra     fpc_movem_fin
 
fpc_addr:
        fp_decode_addr_reg
        printf  PDECODE,"a%d",1,%d0
        btst    #13,%d2
        jne     1f
        jsr     fp_get_addr_reg
        move.l  %a0,(FPD_FPIAR,FPDATA)
        jra     fpc_movem_fin
1:      move.l  (FPD_FPIAR,FPDATA),%a0
        jsr     fp_put_addr_reg
        jra     fpc_movem_fin
 
fpc_indirect:
        fp_mode_addr_indirect
        jra     fpc_do_movem
 
fpc_postinc:
        fp_mode_addr_indirect_postinc
        jra     fpc_do_movem
 
fpc_predecr:
        fp_mode_addr_indirect_predec
        jra     fpc_do_movem
 
fpc_disp16:
        fp_mode_addr_indirect_disp16
        jra     fpc_do_movem
 
fpc_extmode0:
        fp_mode_addr_indirect_extmode0
        jra     fpc_do_movem
 
fpc_extmode1:
        fp_decode_addr_reg
        jmp     ([0f:w,%pc,%d0*4])
 
        .align  4
0:
        .long   fpc_absolute_short, fpc_absolute_long
        .long   fpc_disp16, fpc_extmode0
        .long   fpc_immediate, fp_ill
        .long   fp_ill, fp_ill
 
fpc_absolute_short:
        fp_mode_abs_short
        jra     fpc_do_movem
 
fpc_absolute_long:
        fp_mode_abs_long
        jra     fpc_do_movem
 
fpc_immediate:
        fp_get_pc %a0
        lea     (%a0,%d1.w*4),%a1
        fp_put_pc %a1
        printf  PDECODE,"#imm"
|       jra     fpc_do_movem
#if 0
        swap    %d1
        lsl.l   #5,%d1
        lea     (FPD_FPCR,FPDATA),%a0
        jra     3f
1:      move.l  %d0,(%a0)
2:      addq.l  #4,%a0
3:      lsl.b   #1,%d1
        jcs     1b
        jne     2b
        jra     fpc_movem_fin
#endif
 
fpc_do_movem:
        swap    %d1                     | get fpu register list
        lsl.l   #5,%d1
        lea     (FPD_FPCR,FPDATA),%a1
1:      btst    #13,%d2
        jne     4f
 
        | move register from memory into fpu
        jra     3f
1:      printf  PMOVEM,"(%p>%p)",2,%a0,%a1
        getuser.l (%a0)+,%d0,fp_err_ua1,%a0
        move.l  %d0,(%a1)
2:      addq.l  #4,%a1
3:      lsl.b   #1,%d1
        jcs     1b
        jne     2b
        jra     fpc_movem_fin
 
        | move register from fpu into memory
1:      printf  PMOVEM,"(%p>%p)",2,%a1,%a0
        move.l  (%a1),%d0
        putuser.l %d0,(%a0)+,fp_err_ua1,%a0
2:      addq.l  #4,%a1
4:      lsl.b   #1,%d1
        jcs     1b
        jne     2b
 
fpc_movem_fin:
        and.l   #0x0000fff0,(FPD_FPCR,FPDATA)
        and.l   #0x0ffffff8,(FPD_FPSR,FPDATA)
        move.l  (FPD_FPCR,FPDATA),%d0
        lsr.l   #4,%d0
        moveq   #3,%d1
        and.l   %d0,%d1
        move.w  %d1,(FPD_RND,FPDATA)
        lsr.l   #2,%d0
        moveq   #3,%d1
        and.l   %d0,%d1
        move.w  %d1,(FPD_PREC,FPDATA)
        printf  PDECODE,"\n"
#if 0
        printf  PMOVEM,"fpcr : %08x\n",1,FPDATA@(FPD_FPCR)
        printf  PMOVEM,"fpsr : %08x\n",1,FPDATA@(FPD_FPSR)
        printf  PMOVEM,"fpiar: %08x\n",1,FPDATA@(FPD_FPIAR)
        clr.l   %d0
        move.w  (FPD_PREC,FPDATA),%d0
        printf  PMOVEM,"prec : %04x\n",1,%d0
        move.w  (FPD_RND,FPDATA),%d0
        printf  PMOVEM,"rnd  : %04x\n",1,%d0
#endif
        jra     fp_end

Browse

Tools

Subversion Repositories or1k

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

Line No.	Rev	Author	Line
1	1275	phoenix	`/*`
2			`* fp_movem.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			`\| set flags for decode macros for fmovem`
42			`do_fmovem=1`
43
44			`.globl fp_fmovem_fp, fp_fmovem_cr`
45
46			`\| %d1 contains the mask and count of the register list`
47			`\| for other register usage see fp_decode.h`
48
49			`fp_fmovem_fp:`
50			`printf PDECODE,"fmovem.x "`
51			`\| get register list and count them`
52			`btst #11,%d2`
53			`jne 1f`
54			`bfextu %d2{#24,#8},%d0 \| static register list`
55			`jra 2f`
56			`1: bfextu %d2{#25,#3},%d0 \| dynamic register list`
57			`jsr fp_get_data_reg`
58			`2: move.l %d0,%d1`
59			`swap %d1`
60			`jra 2f`
61			`1: addq.w #1,%d1 \| count the # of registers in`
62			`2: lsr.b #1,%d0 \| register list and keep it in %d1`
63			`jcs 1b`
64			`jne 2b`
65			`printf PDECODE,"#%08x",1,%d1`
66			`#ifdef FPU_EMU_DEBUG`
67			`btst #12,%d2`
68			`jne 1f`
69			`printf PDECODE,"-" \| decremental move`
70			`jra 2f`
71			`1: printf PDECODE,"+" \| incremental move`
72			`2: btst #13,%d2`
73			`jeq 1f`
74			`printf PDECODE,"->" \| fpu -> cpu`
75			`jra 2f`
76			`1: printf PDECODE,"<-" \| fpu <- cpu`
77			`2:`
78			`#endif`
79
80			`\| decode address mode`
81			`fp_decode_addr_mode`
82
83			`.long fp_ill, fp_ill`
84			`.long fpr_indirect, fpr_postinc`
85			`.long fpr_predecr, fpr_disp16`
86			`.long fpr_extmode0, fpr_extmode1`
87
88			`\| addressing mode: address register indirect`
89			`fpr_indirect:`
90			`fp_mode_addr_indirect`
91			`jra fpr_do_movem`
92
93			`\| addressing mode: address register indirect with postincrement`
94			`fpr_postinc:`
95			`fp_mode_addr_indirect_postinc`
96			`jra fpr_do_movem`
97
98			`fpr_predecr:`
99			`fp_mode_addr_indirect_predec`
100			`jra fpr_do_movem`
101
102			`\| addressing mode: address register/programm counter indirect`
103			`\| with 16bit displacement`
104			`fpr_disp16:`
105			`fp_mode_addr_indirect_disp16`
106			`jra fpr_do_movem`
107
108			`fpr_extmode0:`
109			`fp_mode_addr_indirect_extmode0`
110			`jra fpr_do_movem`
111
112			`fpr_extmode1:`
113			`fp_decode_addr_reg`
114			`jmp ([0f:w,%pc,%d0*4])`
115
116			`.align 4`
117			`0:`
118			`.long fpr_absolute_short, fpr_absolute_long`
119			`.long fpr_disp16, fpr_extmode0`
120			`.long fp_ill, fp_ill`
121			`.long fp_ill, fp_ill`
122
123			`fpr_absolute_short:`
124			`fp_mode_abs_short`
125			`jra fpr_do_movem`
126
127			`fpr_absolute_long:`
128			`fp_mode_abs_long`
129			`\| jra fpr_do_movem`
130
131			`fpr_do_movem:`
132			`swap %d1 \| get fpu register list`
133			`lea (FPD_FPREG,FPDATA),%a1`
134			`moveq #12,%d0`
135			`btst #12,%d2`
136			`jne 1f`
137			`lea (-12,%a1,%d0*8),%a1`
138			`neg.l %d0`
139			`1: btst #13,%d2`
140			`jne 4f`
141			`\| move register from memory into fpu`
142			`jra 3f`
143			`1: printf PMOVEM,"(%p>%p)",2,%a0,%a1`
144			`getuser.l (%a0)+,%d2,fp_err_ua1,%a0`
145			`lsr.l #8,%d2`
146			`lsr.l #7,%d2`
147			`lsr.w #1,%d2`
148			`move.l %d2,(%a1)+`
149			`getuser.l (%a0)+,%d2,fp_err_ua1,%a0`
150			`move.l %d2,(%a1)+`
151			`getuser.l (%a0),%d2,fp_err_ua1,%a0`
152			`move.l %d2,(%a1)`
153			`subq.l #8,%a0`
154			`subq.l #8,%a1`
155			`add.l %d0,%a0`
156			`2: add.l %d0,%a1`
157			`3: lsl.b #1,%d1`
158			`jcs 1b`
159			`jne 2b`
160			`jra 5f`
161			`\| move register from fpu into memory`
162			`1: printf PMOVEM,"(%p>%p)",2,%a1,%a0`
163			`move.l (%a1)+,%d2`
164			`lsl.w #1,%d2`
165			`lsl.l #7,%d2`
166			`lsl.l #8,%d2`
167			`putuser.l %d2,(%a0)+,fp_err_ua1,%a0`
168			`move.l (%a1)+,%d2`
169			`putuser.l %d2,(%a0)+,fp_err_ua1,%a0`
170			`move.l (%a1),%d2`
171			`putuser.l %d2,(%a0),fp_err_ua1,%a0`
172			`subq.l #8,%a1`
173			`subq.l #8,%a0`
174			`add.l %d0,%a0`
175			`2: add.l %d0,%a1`
176			`4: lsl.b #1,%d1`
177			`jcs 1b`
178			`jne 2b`
179			`5:`
180			`printf PDECODE,"\n"`
181			`#if 0`
182			`lea (FPD_FPREG,FPDATA),%a0`
183			`printf PMOVEM,"fp:"`
184			`printx PMOVEM,%a0@(0)`
185			`printx PMOVEM,%a0@(12)`
186			`printf PMOVEM,"\n "`
187			`printx PMOVEM,%a0@(24)`
188			`printx PMOVEM,%a0@(36)`
189			`printf PMOVEM,"\n "`
190			`printx PMOVEM,%a0@(48)`
191			`printx PMOVEM,%a0@(60)`
192			`printf PMOVEM,"\n "`
193			`printx PMOVEM,%a0@(72)`
194			`printx PMOVEM,%a0@(84)`
195			`printf PMOVEM,"\n"`
196			`#endif`
197			`jra fp_end`
198
199			`\| set flags for decode macros for fmovem control register`
200			`do_fmovem=1`
201			`do_fmovem_cr=1`
202
203			`fp_fmovem_cr:`
204			`printf PDECODE,"fmovem.cr "`
205			`\| get register list and count them`
206			`bfextu %d2{#19,#3},%d0`
207			`move.l %d0,%d1`
208			`swap %d1`
209			`jra 2f`
210			`1: addq.w #1,%d1`
211			`2: lsr.l #1,%d0`
212			`jcs 1b`
213			`jne 2b`
214			`printf PDECODE,"#%08x",1,%d1`
215			`#ifdef FPU_EMU_DEBUG`
216			`btst #13,%d2`
217			`jeq 1f`
218			`printf PDECODE,"->" \| fpu -> cpu`
219			`jra 2f`
220			`1: printf PDECODE,"<-" \| fpu <- cpu`
221			`2:`
222			`#endif`
223
224			`\| decode address mode`
225			`fp_decode_addr_mode`
226
227			`.long fpc_data, fpc_addr`
228			`.long fpc_indirect, fpc_postinc`
229			`.long fpc_predecr, fpc_disp16`
230			`.long fpc_extmode0, fpc_extmode1`
231
232			`fpc_data:`
233			`fp_mode_data_direct`
234			`move.w %d0,%d1`
235			`bfffo %d2{#19,#3},%d0`
236			`sub.w #19,%d0`
237			`lea (FPD_FPCR,FPDATA,%d0.w*4),%a1`
238			`btst #13,%d2`
239			`jne 1f`
240			`move.w %d1,%d0`
241			`jsr fp_get_data_reg`
242			`move.l %d0,(%a1)`
243			`jra fpc_movem_fin`
244			`1: move.l (%a1),%d0`
245			`jsr fp_put_data_reg`
246			`jra fpc_movem_fin`
247
248			`fpc_addr:`
249			`fp_decode_addr_reg`
250			`printf PDECODE,"a%d",1,%d0`
251			`btst #13,%d2`
252			`jne 1f`
253			`jsr fp_get_addr_reg`
254			`move.l %a0,(FPD_FPIAR,FPDATA)`
255			`jra fpc_movem_fin`
256			`1: move.l (FPD_FPIAR,FPDATA),%a0`
257			`jsr fp_put_addr_reg`
258			`jra fpc_movem_fin`
259
260			`fpc_indirect:`
261			`fp_mode_addr_indirect`
262			`jra fpc_do_movem`
263
264			`fpc_postinc:`
265			`fp_mode_addr_indirect_postinc`
266			`jra fpc_do_movem`
267
268			`fpc_predecr:`
269			`fp_mode_addr_indirect_predec`
270			`jra fpc_do_movem`
271
272			`fpc_disp16:`
273			`fp_mode_addr_indirect_disp16`
274			`jra fpc_do_movem`
275
276			`fpc_extmode0:`
277			`fp_mode_addr_indirect_extmode0`
278			`jra fpc_do_movem`
279
280			`fpc_extmode1:`
281			`fp_decode_addr_reg`
282			`jmp ([0f:w,%pc,%d0*4])`
283
284			`.align 4`
285			`0:`
286			`.long fpc_absolute_short, fpc_absolute_long`
287			`.long fpc_disp16, fpc_extmode0`
288			`.long fpc_immediate, fp_ill`
289			`.long fp_ill, fp_ill`
290
291			`fpc_absolute_short:`
292			`fp_mode_abs_short`
293			`jra fpc_do_movem`
294
295			`fpc_absolute_long:`
296			`fp_mode_abs_long`
297			`jra fpc_do_movem`
298
299			`fpc_immediate:`
300			`fp_get_pc %a0`
301			`lea (%a0,%d1.w*4),%a1`
302			`fp_put_pc %a1`
303			`printf PDECODE,"#imm"`
304			`\| jra fpc_do_movem`
305			`#if 0`
306			`swap %d1`
307			`lsl.l #5,%d1`
308			`lea (FPD_FPCR,FPDATA),%a0`
309			`jra 3f`
310			`1: move.l %d0,(%a0)`
311			`2: addq.l #4,%a0`
312			`3: lsl.b #1,%d1`
313			`jcs 1b`
314			`jne 2b`
315			`jra fpc_movem_fin`
316			`#endif`
317
318			`fpc_do_movem:`
319			`swap %d1 \| get fpu register list`
320			`lsl.l #5,%d1`
321			`lea (FPD_FPCR,FPDATA),%a1`
322			`1: btst #13,%d2`
323			`jne 4f`
324
325			`\| move register from memory into fpu`
326			`jra 3f`
327			`1: printf PMOVEM,"(%p>%p)",2,%a0,%a1`
328			`getuser.l (%a0)+,%d0,fp_err_ua1,%a0`
329			`move.l %d0,(%a1)`
330			`2: addq.l #4,%a1`
331			`3: lsl.b #1,%d1`
332			`jcs 1b`
333			`jne 2b`
334			`jra fpc_movem_fin`
335
336			`\| move register from fpu into memory`
337			`1: printf PMOVEM,"(%p>%p)",2,%a1,%a0`
338			`move.l (%a1),%d0`
339			`putuser.l %d0,(%a0)+,fp_err_ua1,%a0`
340			`2: addq.l #4,%a1`
341			`4: lsl.b #1,%d1`
342			`jcs 1b`
343			`jne 2b`
344
345			`fpc_movem_fin:`
346			`and.l #0x0000fff0,(FPD_FPCR,FPDATA)`
347			`and.l #0x0ffffff8,(FPD_FPSR,FPDATA)`
348			`move.l (FPD_FPCR,FPDATA),%d0`
349			`lsr.l #4,%d0`
350			`moveq #3,%d1`
351			`and.l %d0,%d1`
352			`move.w %d1,(FPD_RND,FPDATA)`
353			`lsr.l #2,%d0`
354			`moveq #3,%d1`
355			`and.l %d0,%d1`
356			`move.w %d1,(FPD_PREC,FPDATA)`
357			`printf PDECODE,"\n"`
358			`#if 0`
359			`printf PMOVEM,"fpcr : %08x\n",1,FPDATA@(FPD_FPCR)`
360			`printf PMOVEM,"fpsr : %08x\n",1,FPDATA@(FPD_FPSR)`
361			`printf PMOVEM,"fpiar: %08x\n",1,FPDATA@(FPD_FPIAR)`
362			`clr.l %d0`
363			`move.w (FPD_PREC,FPDATA),%d0`
364			`printf PMOVEM,"prec : %04x\n",1,%d0`
365			`move.w (FPD_RND,FPDATA),%d0`
366			`printf PMOVEM,"rnd : %04x\n",1,%d0`
367			`#endif`
368			`jra fp_end`