^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 1) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 2) * fp_scan.S
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 3) *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 4) * Copyright Roman Zippel, 1997. All rights reserved.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 5) *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 6) * Redistribution and use in source and binary forms, with or without
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 7) * modification, are permitted provided that the following conditions
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 8) * are met:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 9) * 1. Redistributions of source code must retain the above copyright
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 10) * notice, and the entire permission notice in its entirety,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 11) * including the disclaimer of warranties.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 12) * 2. Redistributions in binary form must reproduce the above copyright
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 13) * notice, this list of conditions and the following disclaimer in the
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 14) * documentation and/or other materials provided with the distribution.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 15) * 3. The name of the author may not be used to endorse or promote
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 16) * products derived from this software without specific prior
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 17) * written permission.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 18) *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 19) * ALTERNATIVELY, this product may be distributed under the terms of
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 20) * the GNU General Public License, in which case the provisions of the GPL are
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 21) * required INSTEAD OF the above restrictions. (This clause is
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 22) * necessary due to a potential bad interaction between the GPL and
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 23) * the restrictions contained in a BSD-style copyright.)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 24) *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 25) * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 26) * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 27) * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 28) * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 29) * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 30) * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 31) * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 32) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 33) * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 34) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 35) * OF THE POSSIBILITY OF SUCH DAMAGE.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 36) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 37)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 38) #include "fp_emu.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 39) #include "fp_decode.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 40)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 41) .globl fp_scan, fp_datasize
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 42)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 43) .data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 44)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 45) | %d2 - first two instr words
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 46) | %d1 - operand size
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 47)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 48) /* operand formats are:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 49)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 50) Long = 0, i.e. fmove.l
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 51) Single, i.e. fmove.s
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 52) Extended, i.e. fmove.x
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 53) Packed-BCD, i.e. fmove.p
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 54) Word, i.e. fmove.w
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 55) Double, i.e. fmove.d
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 56) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 57)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 58) .text
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 59)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 60) | On entry:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 61) | FPDATA - base of emulated FPU registers
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 62)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 63) fp_scan:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 64) | normal fpu instruction? (this excludes fsave/frestore)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 65) fp_get_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 66) printf PDECODE,"%08x: ",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 67) getuser.b (%a0),%d0,fp_err_ua1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 68) #if 1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 69) cmp.b #0xf2,%d0 | cpid = 1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 70) #else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 71) cmp.b #0xfc,%d0 | cpid = 6
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 72) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 73) jne fp_nonstd
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 74) | first two instruction words are kept in %d2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 75) getuser.l (%a0)+,%d2,fp_err_ua1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 76) fp_put_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 77) fp_decode_cond: | separate conditional instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 78) fp_decode_cond_instr_type
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 79)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 80) .long fp_decode_move, fp_fscc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 81) .long fp_fbccw, fp_fbccl
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 82)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 83) fp_decode_move: | separate move instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 84) fp_decode_move_instr_type
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 85)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 86) .long fp_fgen_fp, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 87) .long fp_fgen_ea, fp_fmove_fp2mem
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 88) .long fp_fmovem_cr, fp_fmovem_cr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 89) .long fp_fmovem_fp, fp_fmovem_fp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 90)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 91) | now all arithmetic instr and a few move instr are left
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 92) fp_fgen_fp: | source is a fpu register
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 93) clr.b (FPD_FPSR+2,FPDATA) | clear the exception byte
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 94) fp_decode_sourcespec
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 95) printf PDECODE,"f<op>.x fp%d",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 96) fp_get_fp_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 97) lea (FPD_TEMPFP1,FPDATA),%a1 | copy src into a temp location
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 98) move.l (%a0)+,(%a1)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 99) move.l (%a0)+,(%a1)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 100) move.l (%a0),(%a1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 101) lea (-8,%a1),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 102) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 103)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 104) fp_fgen_ea: | source is <ea>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 105) clr.b (FPD_FPSR+2,FPDATA) | clear the exception byte
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 106) | sort out fmovecr, keep data size in %d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 107) fp_decode_sourcespec
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 108) cmp.w #7,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 109) jeq fp_fmovecr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 110) move.w %d0,%d1 | store data size twice in %d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 111) swap %d1 | one can be trashed below
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 112) move.w %d0,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 113) #ifdef FPU_EMU_DEBUG
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 114) lea 0f,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 115) clr.l %d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 116) move.b (%a0,%d1.w),%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 117) printf PDECODE,"f<op>.%c ",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 118)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 119) .data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 120) 0: .byte 'l','s','x','p','w','d','b',0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 121) .previous
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 122) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 123)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 124) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 125) fp_getsource, fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 126)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 127) basically, we end up with a pointer to the source operand in
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 128) %a1, and a pointer to the destination operand in %a0. both
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 129) are, of course, 96-bit extended floating point numbers.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 130) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 131)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 132) fp_getsource:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 133) | decode addressing mode for source
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 134) fp_decode_addr_mode
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 135)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 136) .long fp_data, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 137) .long fp_indirect, fp_postinc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 138) .long fp_predecr, fp_disp16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 139) .long fp_extmode0, fp_extmode1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 140)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 141) | addressing mode: data register direct
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 142) fp_data:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 143) fp_mode_data_direct
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 144) jsr fp_get_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 145) lea (FPD_TEMPFP1,FPDATA),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 146) jmp ([0f:w,%pc,%d1.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 147)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 148) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 149) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 150) .long fp_data_long, fp_data_single
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 151) .long fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 152) .long fp_data_word, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 153) .long fp_data_byte, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 154)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 155) | data types that fit in an integer data register
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 156) fp_data_byte:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 157) extb.l %d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 158) jra fp_data_long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 159)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 160) fp_data_word:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 161) ext.l %d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 162)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 163) fp_data_long:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 164) jsr fp_conv_long2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 165) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 166)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 167) fp_data_single:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 168) jsr fp_conv_single2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 169) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 170)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 171) | addressing mode: address register indirect
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 172) fp_indirect:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 173) fp_mode_addr_indirect
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 174) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 175)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 176) | addressing mode: address register indirect with postincrement
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 177) fp_postinc:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 178) fp_mode_addr_indirect_postinc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 179) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 180)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 181) | addressing mode: address register indirect with predecrement
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 182) fp_predecr:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 183) fp_mode_addr_indirect_predec
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 184) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 185)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 186) | addressing mode: address register/programm counter indirect
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 187) | with 16bit displacement
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 188) fp_disp16:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 189) fp_mode_addr_indirect_disp16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 190) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 191)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 192) | all other indirect addressing modes will finally end up here
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 193) fp_extmode0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 194) fp_mode_addr_indirect_extmode0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 195) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 196)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 197) | all pc relative addressing modes and immediate/absolute modes end up here
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 198) | the first ones are sent to fp_extmode0 or fp_disp16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 199) | and only the latter are handled here
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 200) fp_extmode1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 201) fp_decode_addr_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 202) jmp ([0f:w,%pc,%d0*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 203)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 204) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 205) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 206) .long fp_abs_short, fp_abs_long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 207) .long fp_disp16, fp_extmode0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 208) .long fp_immediate, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 209) .long fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 210)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 211) | addressing mode: absolute short
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 212) fp_abs_short:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 213) fp_mode_abs_short
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 214) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 215)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 216) | addressing mode: absolute long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 217) fp_abs_long:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 218) fp_mode_abs_long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 219) jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 220)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 221) | addressing mode: immediate data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 222) fp_immediate:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 223) printf PDECODE,"#"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 224) fp_get_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 225) move.w (fp_datasize,%d1.w*2),%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 226) addq.w #1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 227) and.w #-2,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 228) #ifdef FPU_EMU_DEBUG
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 229) movem.l %d0/%d1,-(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 230) movel %a0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 231) clr.l %d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 232) jra 2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 233) 1: getuser.b (%a1)+,%d1,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 234) printf PDECODE,"%02x",1,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 235) 2: dbra %d0,1b
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 236) movem.l (%sp)+,%d0/%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 237) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 238) lea (%a0,%d0.w),%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 239) fp_put_pc %a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 240) | jra fp_fetchsource
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 241)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 242) fp_fetchsource:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 243) move.l %a0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 244) swap %d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 245) lea (FPD_TEMPFP1,FPDATA),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 246) jmp ([0f:w,%pc,%d1.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 247)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 248) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 249) 0: .long fp_long, fp_single
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 250) .long fp_ext, fp_pack
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 251) .long fp_word, fp_double
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 252) .long fp_byte, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 253)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 254) fp_long:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 255) getuser.l (%a1),%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 256) jsr fp_conv_long2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 257) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 258)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 259) fp_single:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 260) getuser.l (%a1),%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 261) jsr fp_conv_single2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 262) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 263)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 264) fp_ext:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 265) getuser.l (%a1)+,%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 266) lsr.l #8,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 267) lsr.l #7,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 268) lsr.w #1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 269) move.l %d0,(%a0)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 270) getuser.l (%a1)+,%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 271) move.l %d0,(%a0)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 272) getuser.l (%a1),%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 273) move.l %d0,(%a0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 274) subq.l #8,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 275) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 276)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 277) fp_pack:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 278) /* not supported yet */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 279) jra fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 280)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 281) fp_word:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 282) getuser.w (%a1),%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 283) ext.l %d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 284) jsr fp_conv_long2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 285) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 286)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 287) fp_double:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 288) jsr fp_conv_double2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 289) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 290)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 291) fp_byte:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 292) getuser.b (%a1),%d0,fp_err_ua1,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 293) extb.l %d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 294) jsr fp_conv_long2ext
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 295) | jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 296)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 297) fp_getdest:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 298) move.l %a0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 299) bfextu %d2{#22,#3},%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 300) printf PDECODE,",fp%d\n",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 301) fp_get_fp_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 302) movem.l %a0/%a1,-(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 303) pea fp_finalrounding
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 304) bfextu %d2{#25,#7},%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 305) jmp ([0f:w,%pc,%d0*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 306)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 307) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 308) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 309) .long fp_fmove_mem2fp, fp_fint, fp_fsinh, fp_fintrz
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 310) .long fp_fsqrt, fp_ill, fp_flognp1, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 311) .long fp_fetoxm1, fp_ftanh, fp_fatan, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 312) .long fp_fasin, fp_fatanh, fp_fsin, fp_ftan
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 313) .long fp_fetox, fp_ftwotox, fp_ftentox, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 314) .long fp_flogn, fp_flog10, fp_flog2, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 315) .long fp_fabs, fp_fcosh, fp_fneg, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 316) .long fp_facos, fp_fcos, fp_fgetexp, fp_fgetman
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 317) .long fp_fdiv, fp_fmod, fp_fadd, fp_fmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 318) .long fpa_fsgldiv, fp_frem, fp_fscale, fpa_fsglmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 319) .long fp_fsub, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 320) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 321) .long fp_fsincos0, fp_fsincos1, fp_fsincos2, fp_fsincos3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 322) .long fp_fsincos4, fp_fsincos5, fp_fsincos6, fp_fsincos7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 323) .long fp_fcmp, fp_ill, fp_ftst, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 324) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 325) .long fp_fsmove, fp_fssqrt, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 326) .long fp_fdmove, fp_fdsqrt, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 327) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 328) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 329) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 330) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 331) .long fp_fsabs, fp_ill, fp_fsneg, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 332) .long fp_fdabs, fp_ill, fp_fdneg, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 333) .long fp_fsdiv, fp_ill, fp_fsadd, fp_fsmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 334) .long fp_fddiv, fp_ill, fp_fdadd, fp_fdmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 335) .long fp_fssub, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 336) .long fp_fdsub, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 337) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 338) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 339) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 340) .long fp_ill, fp_ill, fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 341)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 342) | Instructions follow
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 343)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 344) | Move an (emulated) ROM constant
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 345) fp_fmovecr:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 346) bfextu %d2{#27,#5},%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 347) printf PINSTR,"fp_fmovecr #%d",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 348) move.l %d0,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 349) add.l %d0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 350) add.l %d1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 351) lea (fp_constants,%d0*4),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 352) move.l #0x801cc0ff,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 353) addq.l #1,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 354) lsl.l %d1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 355) jcc 1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 356) fp_set_sr FPSR_EXC_INEX2 | INEX2 exception
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 357) 1: moveq #-128,%d0 | continue with fmove
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 358) and.l %d0,%d2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 359) jra fp_getdest
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 360)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 361) .data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 362) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 363) fp_constants:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 364) .long 0x00004000,0xc90fdaa2,0x2168c235 | pi
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 365) .extend 0,0,0,0,0,0,0,0,0,0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 366) .long 0x00003ffd,0x9a209a84,0xfbcff798 | log10(2)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 367) .long 0x00004000,0xadf85458,0xa2bb4a9a | e
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 368) .long 0x00003fff,0xb8aa3b29,0x5c17f0bc | log2(e)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 369) .long 0x00003ffd,0xde5bd8a9,0x37287195 | log10(e)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 370) .long 0x00000000,0x00000000,0x00000000 | 0.0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 371) .long 0x00003ffe,0xb17217f7,0xd1cf79ac | 1n(2)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 372) .long 0x00004000,0x935d8ddd,0xaaa8ac17 | 1n(10)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 373) | read this as "1.0 * 2^0" - note the high bit in the mantissa
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 374) .long 0x00003fff,0x80000000,0x00000000 | 10^0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 375) .long 0x00004002,0xa0000000,0x00000000 | 10^1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 376) .long 0x00004005,0xc8000000,0x00000000 | 10^2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 377) .long 0x0000400c,0x9c400000,0x00000000 | 10^4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 378) .long 0x00004019,0xbebc2000,0x00000000 | 10^8
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 379) .long 0x00004034,0x8e1bc9bf,0x04000000 | 10^16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 380) .long 0x00004069,0x9dc5ada8,0x2b70b59e | 10^32
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 381) .long 0x000040d3,0xc2781f49,0xffcfa6d5 | 10^64
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 382) .long 0x000041a8,0x93ba47c9,0x80e98ce0 | 10^128
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 383) .long 0x00004351,0xaa7eebfb,0x9df9de8e | 10^256
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 384) .long 0x000046a3,0xe319a0ae,0xa60e91c7 | 10^512
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 385) .long 0x00004d48,0xc9767586,0x81750c17 | 10^1024
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 386) .long 0x00005a92,0x9e8b3b5d,0xc53d5de5 | 10^2048
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 387) .long 0x00007525,0xc4605202,0x8a20979b | 10^4096
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 388) .previous
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 389)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 390) fp_fmove_mem2fp:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 391) printf PINSTR,"fmove %p,%p\n",2,%a0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 392) move.l (%a1)+,(%a0)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 393) move.l (%a1)+,(%a0)+
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 394) move.l (%a1),(%a0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 395) subq.l #8,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 396) rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 397)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 398) fpa_fsglmul:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 399) move.l #fp_finalrounding_single_fast,(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 400) jra fp_fsglmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 401)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 402) fpa_fsgldiv:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 403) move.l #fp_finalrounding_single_fast,(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 404) jra fp_fsgldiv
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 405)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 406) .macro fp_dosingleprec instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 407) printf PINSTR,"single "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 408) move.l #fp_finalrounding_single,(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 409) jra \instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 410) .endm
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 411)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 412) .macro fp_dodoubleprec instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 413) printf PINSTR,"double "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 414) move.l #fp_finalrounding_double,(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 415) jra \instr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 416) .endm
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 417)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 418) fp_fsmove:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 419) fp_dosingleprec fp_fmove_mem2fp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 420)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 421) fp_fssqrt:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 422) fp_dosingleprec fp_fsqrt
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 423)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 424) fp_fdmove:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 425) fp_dodoubleprec fp_fmove_mem2fp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 426)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 427) fp_fdsqrt:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 428) fp_dodoubleprec fp_fsqrt
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 429)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 430) fp_fsabs:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 431) fp_dosingleprec fp_fabs
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 432)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 433) fp_fsneg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 434) fp_dosingleprec fp_fneg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 435)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 436) fp_fdabs:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 437) fp_dodoubleprec fp_fabs
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 438)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 439) fp_fdneg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 440) fp_dodoubleprec fp_fneg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 441)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 442) fp_fsdiv:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 443) fp_dosingleprec fp_fdiv
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 444)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 445) fp_fsadd:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 446) fp_dosingleprec fp_fadd
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 447)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 448) fp_fsmul:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 449) fp_dosingleprec fp_fmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 450)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 451) fp_fddiv:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 452) fp_dodoubleprec fp_fdiv
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 453)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 454) fp_fdadd:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 455) fp_dodoubleprec fp_fadd
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 456)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 457) fp_fdmul:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 458) fp_dodoubleprec fp_fmul
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 459)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 460) fp_fssub:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 461) fp_dosingleprec fp_fsub
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 462)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 463) fp_fdsub:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 464) fp_dodoubleprec fp_fsub
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 465)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 466) fp_nonstd:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 467) fp_get_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 468) getuser.l (%a0),%d0,fp_err_ua1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 469) printf ,"nonstd ((%08x)=%08x)\n",2,%a0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 470) moveq #-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 471) rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 472)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 473) .data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 474) .align 4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 475)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 476) | data sizes corresponding to the operand formats
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 477) fp_datasize:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 478) .word 4, 4, 12, 12, 2, 8, 1, 0
Orange Pi5 kernel
Deprecated Linux kernel 5.10.110 for OrangePi 5/5B/5+ boards
3 Commits
0 Branches
0 Tags