📄 fp32.s
字号:
/* fp32.s - VxWorks conversion from Microtek tools to Sun native *//* Copyright 1984-1992 Wind River Systems, Inc. *//*modification history--------------------01a,06aug92,jwt converted.*//*! ! ! ! !! SPARClite Floating Point Library!! Copyright (C) 1992 By! United States Software Corporation! 14215 N.W. Science Park Drive! Portland, Oregon 97229!! This software is furnished under a license and may be used! and copied only in accordance with the terms of such license! and with the inclusion of the above copyright notice.! This software or any other copies thereof may not be provided! or otherwise made available to any other person. No title to! and ownership of the software is hereby transferred.!! The information in this software is subject to change without ! notice and should not be construed as a commitment by United! States Software Corporation.!! First Release: V1.02 March 26 1992! ! ! ! ! .macro scan,p1,p2,p3 .word 0x81602000 | (&p3<<25) | (&p1<<14) | p2 .endm .macro umul,p1,p2,p3 .word 0x80500000 | (&p3<<25) | (&p1<<14) | &p2 .endm .macro divscc,p1,p2,p3 .word 0x80e80000 | (&p3<<25) | (&p1<<14) | &p2 .endm*/#include "arch/sparc/ussSun4.h" .text .align 4 .global __finc! ! ! ! !! Routine: __finc sp increment! On entry: o0 = argument A! On exit: o0 = A + 1! Notes: Uses _fpadd after setting second argument! ! ! ! !__finc: ba _fpadd ! j/ add sethi %hi(0x3f800000),%o1 ! o1 = 1 .global __fdec! ! ! ! !! Routine: __fdec sp decrement! On entry: o0 = argument A! On exit: o0 = A - 1! Notes: Uses _fpadd after setting second argument! ! ! ! !__fdec: ba _fpadd ! j/ add sethi %hi(0xbf800000),%o1 ! o1 = -1 .global _fpsub_fpsub: .global __fsub__fsub: sethi %hi(0x80000000),%g1 xor %o1,%g1,%o1 .global _fpadd_fpadd: .global __fadd__fadd: save %sp,-96,%sp sra %i0,23,%i5 and %i5,0xff,%i5 sra %i1,23,%l1 and %l1,0xff,%l1 sethi %hi(0x80000000),%i3 sll %i0,8,%i4 or %i4,%i3,%i4 sll %i1,8,%l0 or %l0,%i3,%l0 sub %i5,1,%l3 subcc %l3,0xfe,%g0 bcc BspecA Blab1: sub %l1,1,%l3 subcc %l3,0xfe,%g0 bcc BspecB Blab2: subcc %i5,%l1,%l2 bneg i1 subcc %l2,0x20,%g0 bl i2 NOP ba e1 or %g0,2,%l0i2: or %g0,%l0,%i2 srl %l0,%l2,%l0 sll %l0,%l2,%l3 subcc %l3,%i2,%g0 bne,a e1 or %l0,2,%l0 ba,a e1 i1: or %g0,%l1,%i5 sub %g0,%l2,%l2 subcc %l2,0x20,%g0 bl i4 NOP ba e1 or %g0,2,%i4i4: or %g0,%i4,%i2 srl %i4,%l2,%i4 sll %i4,%l2,%l3 subcc %l3,%i2,%g0 bne,a e1 or %i4,2,%i4e1: and %i0,%i3,%l2 xorcc %l2,%i1,%l3 bneg Bsub1 NOP addcc %i4,%l0,%i4 bcc Bres andcc %i4,1,%l3 bne,a i7 or %i4,2,%i4i7: srl %i4,1,%i4 add %i5,1,%i5 subcc %i5,0xff,%g0 be,a Bres or %g0,0,%i4 ba,a Bres Bsub1: subcc %i4,%l0,%i4 be Bzer NOP bcc i9 NOP sub %g0,%i4,%i4 xor %l2,%i3,%l2i9:/* scan %i4,0,%i2 */ SCAN | (in4 << 14) | 0 | (in2 << 25) sll %i4,%i2,%i4 subcc %i5,%i2,%i5Bres: subcc %i5,0,%i5 ble Bund NOPBlab12: addcc %i4,0x80,%i4 addx %i5,0,%i5 srl %i4,8,%l3 and %l3,1,%l3 sub %i4,%l3,%i4 sll %i4,1,%i4 srl %i4,9,%i4 sll %i5,23,%l3 or %i4,%l3,%i4 or %i4,%l2,%i0B999: jmpl %i7+8,%g0 restore %g0,0,%g0Bund: or %g0,1,%i2 sub %i2,%i5,%i2 subcc %i2,0x20,%g0 bcc Bzer sethi %hi(0x80000000),%l3 or %i4,%l3,%i4 or %g0,0x20,%l3 sub %l3,%i2,%l3 sll %i4,%l3,%i5 srl %i4,%i2,%i4 subcc %i5,0,%i5 bne,a i10 or %i4,1,%i4i10: ba Blab12 or %g0,0,%i5BspecA: subcc %i5,0,%i5 bne i11 NOP addcc %i4,%i4,%i4 be i12 NOP/* scan %i4,0,%l2 */ SCAN | (in4 << 14) | 0 | (lo2 << 25) sll %i4,%l2,%i4 subcc %i5,%l2,%i5 ba,a Blab1 i12: subcc %l1,0xff,%g0 be BspecB NOP ba,a BretB i11: addcc %i4,%i4,%l3 bne Bnan subcc %l1,0xff,%g0 bne BretA xorcc %i0,%i1,%l3 bneg Bnan NOP ba,a BretB BspecB: subcc %l1,0,%l1 bne i14 NOP addcc %l0,%l0,%l0 be BretA NOP/* scan %l0,0,%l2 */ SCAN | (lo0 << 14) | 0 | (lo2 << 25) sll %l0,%l2,%l0 subcc %l1,%l2,%l1 ba,a Blab2 i14: addcc %l0,%l0,%l3 bne Bnan NOPBretB: ba B999 or %g0,%i1,%i0BretA: ba,a B999 Bzer: ba B999 or %g0,0,%i0Bnan: ba B999 sethi %hi(0xffc00000),%i0 .global _fpmul_fpmul: .global __fmul__fmul: save %sp,-96,%sp sra %i0,23,%i3 and %i3,0xff,%i3 sra %i1,23,%i5 and %i5,0xff,%i5 sethi %hi(0x80000000),%l0 sll %i0,8,%i2 or %i2,%l0,%i2 sll %i1,8,%i4 or %i4,%l0,%i4 xor %i0,%i1,%l2 and %l0,%l2,%l0 sub %i3,1,%l2 subcc %l2,0xfe,%g0 bcc CspecA Clab1: sub %i5,1,%l2 subcc %l2,0xfe,%g0 bcc CspecB Clab2: umul %i2,%i4,%l1 rd %y,%i2 subcc %l1,0,%l1 bne,a i16 or %i2,1,%i2i16: subcc %i2,0,%i2 bneg i17 NOP sll %i2,1,%i2 sub %i3,1,%i3i17: sub %i5,0x7e,%l2 add %i3,%l2,%i3 sub %i3,1,%l2 subcc %l2,0xfe,%g0 bcc Coveund NOPClab8: addcc %i2,0x80,%i2 addx %i3,0,%i3 srl %i2,8,%l2 and %l2,1,%l2 sub %i2,%l2,%i2 sll %i2,1,%i2 srl %i2,9,%i2 sll %i3,23,%l2 or %i2,%l2,%i2 or %i2,%l0,%i0C999: jmpl %i7+8,%g0 restore %g0,0,%g0CspecA: subcc %i3,0,%i3 bne i18 NOP addcc %i2,%i2,%i2 be i18 NOP/* scan %i2,0,%l1 */ SCAN | (in2 << 14) | 0 | (lo1 << 25) sll %i2,%l1,%i2 subcc %i3,%l1,%i3 ba,a Clab1 i18: add %i3,%i5,%l2 subcc %l2,0xff,%g0 be Cnan subcc %i3,0,%i3 be Czer addcc %i2,%i2,%l2 bne Cnan subcc %i5,0xff,%g0 bne Cinf CspecB: subcc %i5,0,%i5 bne i20 NOP addcc %i4,%i4,%i4 be Czer NOP/* scan %i4,0,%l1 */ SCAN | (in4 << 14) | 0 | (lo1 << 25) sll %i4,%l1,%i4 subcc %i5,%l1,%i5 ba,a Clab2 Czer: ba C999 or %g0,%l0,%i0i20: addcc %i4,%i4,%l2 bne Cnan NOPCinf: sethi %hi(0x7f800000),%l2 ba C999 or %l2,%l0,%i0Cnan: ba C999 sethi %hi(0xffc00000),%i0Coveund: subcc %i3,0,%i3 bg Cinf NOP or %g0,1,%l1 sub %l1,%i3,%l1 subcc %l1,0x20,%g0 bcc Czer NOP or %g0,0x20,%l2 sub %l2,%l1,%l2 sll %i2,%l2,%i3 srl %i2,%l1,%i2 subcc %i3,0,%i3 bne,a i23 or %i2,2,%i2i23: ba Clab8 or %g0,0,%i3 .global _fpdiv_fpdiv: .global __fdiv__fdiv: save %sp,-96,%sp sethi %hi(0x80000000),%l1 sra %i0,23,%i4 and %i4,0xff,%i4 sra %i1,23,%l0 and %l0,0xff,%l0 sll %i0,8,%i3 or %i3,%l1,%i3 sll %i1,8,%i5 or %i5,%l1,%i5 xor %i0,%i1,%l6 and %l1,%l6,%l1 sub %i4,1,%l6 subcc %l6,0xfe,%g0 bcc DspecA Dlab1: sub %l0,1,%l6 subcc %l6,0xfe,%g0 bcc DspecB Dlab2: subcc %i3,%i5,%g0 bcs i24 NOP srl %i3,1,%i3 add %i4,1,%i4i24: wr %i3,0,%y or %g0,0x0,%i3 orcc %g0,0,%g0#if 0 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3 divscc %i3,%i5,%i3#else DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25) DIVSCC | (in3 << 14) | in5 | (in3 << 25)#endif bge L1 rd %y,%i2 addcc %i5,%i2,%i2L1: subcc %i2,0,%i2 bne,a i25 or %i3,1,%i3i25: or %g0,0x7e,%l6 sub %l6,%l0,%l6 add %i4,%l6,%i4 sub %i4,1,%l6 subcc %l6,0xfe,%g0 bcc Doveund NOPDlab8: addcc %i3,0x80,%i3 addx %i4,0,%i4 srl %i3,8,%l6 and %l6,1,%l6 sub %i3,%l6,%i3 sll %i3,1,%i3 srl %i3,9,%i3 sll %i4,23,%l6 or %i3,%l6,%i3 or %i3,%l1,%i0D999: jmpl %i7+8,%g0 restore %g0,0,%g0DspecA: subcc %i4,0,%i4 bne i26 NOP addcc %i3,%i3,%i3 be i26 NOP/* scan %i3,0,%l2 */ SCAN | (in3 << 14) | 0 | (lo2 << 25) sll %i3,%l2,%i3 subcc %i4,%l2,%i4 ba,a Dlab1 i26: subcc %l0,%i4,%g0 be Dnan subcc %l0,0xff,%g0 be DspecB subcc %i4,0,%i4 be Dzer addcc %i3,%i3,%l6 bne Dnan NOP ba,a Dinf DspecB: subcc %l0,0,%l0 bne i28 NOP addcc %i5,%i5,%i5 be Dinf NOP/* scan %i5,0,%l2 */ SCAN | (in5 << 14) | 0 | (lo2 << 25) sll %i5,%l2,%i5 subcc %l0,%l2,%l0 ba,a Dlab2 i28: addcc %i5,%i5,%l6 bne Dnan NOPDzer: ba D999 or %g0,%l1,%i0Doveund: subcc %i4,0,%i4 bg Dinf NOP or %g0,1,%l2 sub %l2,%i4,%l2 subcc %l2,0x20,%g0 bcc Dzer NOP or %g0,0x20,%l6 sub %l6,%l2,%l6 sll %i3,%l6,%i4 srl %i3,%l2,%i3 subcc %i4,0,%i4 bne,a i31 or %i3,2,%i3i31: ba Dlab8 or %g0,0,%i4Dinf: sethi %hi(0x7f800000),%l6 ba D999 or %l6,%l1,%i0Dnan: ba D999 sethi %hi(0xffc00000),%i0 .global __ltof .global _sitofp! ! ! ! !! _sitofp: signed int to sp floating point! On entry: o0 = argument A! On exit: o0 = sp floating point! ! ! ! !__ltof: ! C ifc_sitofp: ! USSW ifc sethi %hi(0x80000000),%o3 subcc %o0,0x0,%g0 be j22 andcc %o3,%o0,%o2 bl,a j23 subcc %g0,%o0,%o0j23: or %g0,0x9e,%o1b24: sub %o1,0x1,%o1 subcc %o0,0x0,%g0 bg b24 sll %o0,0x1,%o0 add %o1,0x1,%o1 addcc %o0,0x100,%o0 addxcc %o1,0x0,%o1 andcc %o0,0x1ff,%o3 be,a j24 andcc %o0,0xfffffdff,%o0j24: srl %o0,0x9,%o0 sll %o1,0x17,%o3 orcc %o0,%o3,%o0j22: orcc %o0,%o2,%o0E999: jmpl %o7+8,%g0 NOP .global __ultof .global _uitofp! ! ! ! !! _uitofp: unsigned int to sp floating point! On entry: o0 = argument A! On exit: o0 = sp floating point! ! ! ! !__ultof: ! C ifc_uitofp: ! USSW ifc subcc %o0,0x0,%g0 be F999 or %g0,0x9e,%o1b26: sub %o1,0x1,%o1 subcc %o0,0x0,%g0 bg b26 sll %o0,0x1,%o0 add %o1,0x1,%o1 addcc %o0,0x100,%o0 addxcc %o1,0x0,%o1 andcc %o0,0x1ff,%o3 be,a j26 andcc %o0,0xfffffdff,%o0j26: srl %o0,0x9,%o0 sll %o1,0x17,%o2 orcc %o0,%o2,%o0F999: jmpl %o7+8,%g0 NOP .global __ftol .global _fptosi! ! ! ! !! _fptosi: sp floating point to int! On entry: o0 = argument A! On exit: o0 = int! ! ! ! !__ftol: ! C ifc_fptosi: ! USSW ifc srl %o0,0x17,%o2 andcc %o2,0xff,%o2 sll %o0,0x8,%o1 sethi %hi(0x80000000),%o3 orcc %o1,%o3,%o1 subcc %o2,0x9e,%g0 bge,a G999 sethi %hi(0x80000000),%o0j27: or %g0,0x9e,%o3 subcc %o3,%o2,%o2 subcc %o2,0x20,%g0 bge,a e28 or %g0,0,%o1j28: srl %o1,%o2,%o1e28: subcc %o0,0x0,%g0 bl,a j29 subcc %g0,%o1,%o1j29: or %g0,%o1,%o0G999: jmpl %o7+8,%g0 NOP .global _fptoui! ! ! ! !! _fptoui: sp floating point to unsigned int! On entry: o0 = argument A! On exit: o0 = unsigned int! ! ! ! !_fptoui: srl %o0,0x17,%o2 andcc %o2,0xff,%o2 sll %o0,0x8,%o1 sethi %hi(0x80000000),%o3 orcc %o1,%o3,%o1 subcc %o2,0x9f,%g0 bge,a I999 sethi %hi(0x80000000),%o0i30: or %g0,0x9e,%o3 subcc %o3,%o2,%o2 subcc %o2,0x20,%g0 bge,a e31 or %g0,0,%o1 srl %o1,%o2,%o1e31: subcc %o0,0x0,%g0 bl,a i32 subcc %g0,%o1,%o1i32: or %g0,%o1,%o0I999: jmpl %o7+8,%g0 NOP .global __fcmp .global _fpcmp! ! ! ! !! _fpcmp: sp floating point compare! On entry: o0 = argument A! o1 = argument B! On exit: condition codes set! o0 = -1 A < B! 0 A == B! 1 A > B! ! ! ! !__fcmp: ! C ifc_fpcmp: ! USSW ifc orcc %o0,%o1,%o3 addcc %o3,%o3,%o3 be Jequ sra %o0,0x1f,%o2 sethi %hi(0x80000000),%o3 andncc %o0,%o3,%o0 xorcc %o0,%o2,%o0 subcc %o0,%o2,%o0 sra %o1,0x1f,%o2 sethi %hi(0x80000000),%o3 andncc %o1,%o3,%o1 xorcc %o1,%o2,%o1 subcc %o1,%o2,%o1 subcc %o0,%o1,%g0 bl,a J999 or %g0,0xffffffff,%o0i33: subcc %o0,%o1,%g0 bg,a J999 or %g0,0x1,%o0Jequ: or %g0,0,%o0J999: jmpl %o7+8,%g0 orcc %o0,%g0,%o0 .global _fabsf .global _fpfabs! ! ! ! !! _fpabs: sp floating point absolute! On entry: o0 = argument A! On exit: o0 = absolute value! ! ! ! !_fabsf: ! C ifc_fpfabs: ! USSW ifc sethi %hi(0x80000000),%o1K999: jmpl %o7+8,%g0 andncc %o0,%o1,%o0! .end⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -