📄 fpmod32.s
字号:
/* fpmod32.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 _fpfmod_fpfmod: .global _fmodf_fmodf: save %sp,-96,%sp srl %i0,23,%i3 and %i3,0xff,%i3 srl %i1,23,%l0 and %l0,0xff,%l0 sethi %hi(0x80000000),%l2 sll %i0,8,%i2 or %i2,%l2,%i2 sll %i1,8,%i5 or %i5,%l2,%i5 and %i0,%l2,%i4 sub %i3,1,%l3 subcc %l3,0xfe,%g0 bcc AspecA Alab1: sub %l0,1,%l3 subcc %l3,0xfe,%g0 bcc AspecB NOPAlab2: subcc %i3,%l0,%l2 bpos i1 NOP ba,a A999 i1: srl %i2,1,%i2 srl %i5,1,%i5b2: subcc %i2,%i5,%i2 bcs,a i3 addcc %i2,%i5,%i2i3: addcc %i2,%i2,%i2 subcc %l2,0,%l2 bne b2 sub %l2,1,%l2 subcc %i2,0,%i2 be Azer NOP/* scan %i2,0,%l2 */ SCAN | (in2 << 14) | 0 | (lo2 << 25) sll %i2,%l2,%i2 subcc %l0,%l2,%l0 subcc %l0,0,%l0 bg i4 NOP or %g0,9,%l2 sub %l2,%l0,%l2 subcc %l2,32,%g0 bcc,a L1 or %g0,0,%i2L1: srl %i2,%l2,%i2 ba,a Aret i4: sll %i2,1,%i2 srl %i2,9,%i2 sll %l0,23,%l3 or %i2,%l3,%i2Aret: or %i2,%i4,%i0A999: jmpl %i7+8,%g0 restore %g0,0,%g0AspecA: subcc %i3,0,%i3 bne Anan NOP addcc %i2,%i2,%i2 be Alab1 NOP/* scan %i2,0,%l2 */ SCAN | (in2 << 14) | 0 | (lo2 << 25) sll %i2,%l2,%i2 subcc %i3,%l2,%i3 ba,a Alab1 AspecB: add %i5,%i5,%i5 subcc %l0,0,%l0 bne i6 subcc %i5,0,%i5 be Anan NOP/* scan %i5,0,%l2 */ SCAN | (in5 << 14) | 0 | (lo2 << 25) sll %i5,%l2,%i5 subcc %l0,%l2,%l0 ba,a Alab2 i6: subcc %i5,0,%i5 bne Anan NOP ba,a A999 Anan: ba A999 sethi %hi(0xffc00000),%i0Azer: ba A999 or %g0,%i4,%i0 .global _fpfrexp_fpfrexp: .global _frexpf_frexpf: save %sp,-96,%sp srl %i0,23,%i2 and %i2,0xff,%i2 sub %i2,1,%i5 subcc %i5,0xfe,%g0 bcc Bspec NOPBlab1: sub %i2,0x7e,%i2 sethi %hi(0x807fffff),%i5 or %i5,0x3ff,%i5 and %i0,%i5,%i0 sethi %hi(0x3f000000),%i5 or %i0,%i5,%i0Bret: st %i2,[%i1]B999: jmpl %i7+8,%g0 restore %g0,0,%g0Bspec: subcc %i2,0,%i2 bne i8 addcc %i0,%i0,%i5 be Bret NOP sll %i0,9,%i3/* scan %i3,0,%i4 */ SCAN | (in3 << 14) | 0 | (in4 << 25) sll %i3,%i4,%i3 subcc %i2,%i4,%i2 sethi %hi(0x80000000),%i5 and %i5,%i0,%i0 srl %i3,8,%i5 ba Blab1 or %i0,%i5,%i0i8: sethi %hi(0xffc00000),%i0 ba Bret or %g0,0,%i2 .global _fpldexp_fpldexp: .global _ldexpf_ldexpf: save %sp,-96,%sp srl %i0,23,%l0 and %l0,0xff,%l0 sub %l0,1,%l2 subcc %l2,0xfe,%g0 bcc Cspec NOP add %l0,%i1,%l0 sub %l0,1,%l2 subcc %l2,0xfe,%g0 bcc Cspec2 NOP sethi %hi(0x807fffff),%l2 or %l2,0x3ff,%l2 and %i0,%l2,%i0 sll %l0,23,%l2 or %i0,%l2,%i0C999: jmpl %i7+8,%g0 restore %g0,0,%g0Cspec: subcc %l0,0xff,%g0 bne Cspec2 sethi %hi(0xff800000),%l3 andncc %i0,%l3,%l2 bne,a i10 sethi %hi(0xffc00000),%i0i10: ba,a C999 Cspec2: srl %i0,23,%i3 andcc %i3,0xff,%i3 sethi %hi(0x80000000),%i4 sll %i0,8,%i2 or %i2,%i4,%i2 bne i11 and %i4,%i0,%i4 addcc %i2,%i2,%i2 be i12 NOP/* scan %i2,0,%l1 */ SCAN | (in2 << 14) | 0 | (lo1 << 25) sll %i2,%l1,%i2 subcc %i3,%l1,%i3 ba,a i11 i12: ba,a C999 i11: add %i3,%i1,%i3 sub %i3,1,%l2 subcc %l2,0xfe,%g0 bcs Cret2 subcc %i3,0,%i3 ble i13 NOP ba Cret1 sethi %hi(0x7f800000),%i0i13: or %g0,1,%l1 sub %l1,%i3,%l1 subcc %l1,0x20,%g0 bcs i14 NOP ba e14 or %g0,2,%i2i14: or %g0,%i2,%l0 srl %i2,%l1,%i2 sll %i2,%l1,%l2 subcc %l2,%l0,%g0 bne,a e14 or %i2,2,%i2e14: addcc %i2,0x80,%i2 addx %i3,0,%i3 srl %i2,8,%l2 and %l2,1,%l2 sub %i2,%l2,%i2 or %g0,0,%i3Cret2: sll %i2,1,%i0 srl %i0,9,%i0 sll %i3,23,%l2 or %i0,%l2,%i0Cret1: ba C999 or %i0,%i4,%i0 .global _fpmodf_fpmodf: .global _modff_modff: save %sp,-96,%sp srl %i0,23,%i3 and %i3,0xff,%i3 sethi %hi(0x80000000),%i4 sll %i0,8,%i2 or %i2,%i4,%i2 and %i4,%i0,%i4 subcc %i3,0xff,%g0 be Dinfnan NOP or %g0,%i2,%i5 or %g0,%i3,%l0 or %g0,%i4,%l1 or %g0,0x9e,%l2 sub %l2,%i3,%l2 subcc %l2,0,%l2 ble Dlab3 subcc %l2,0x20,%g0 bge Dzer NOP srl %i5,%l2,%i5 sll %i5,%l2,%i5Dlab3: sll %i5,1,%l2 srl %l2,9,%l2 sll %l0,23,%l3 or %l2,%l3,%l2 or %l2,%l1,%l3 st %l3,[%i1] sub %i3,%l0,%l2 subcc %l2,32,%g0 bcc,a L2 or %g0,0,%i5L2: srl %i5,%l2,%i5 subcc %i2,%i5,%i2 be Dret2 NOP/* scan %i2,0,%l2 */ SCAN | (in2 << 14) | 0 | (lo2 << 25) sll %i2,%l2,%i2 subcc %i3,%l2,%i3Dret: sll %i2,1,%i2 srl %i2,9,%i2 sll %i3,23,%l3 or %i2,%l3,%i2Dret2: or %i2,%i4,%i0D999: jmpl %i7+8,%g0 restore %g0,0,%g0Dzer: ba Dret st %i4,[%i1]Dinfnan: sethi %hi(0xffc00000),%i0 ba D999 st %i0,[%i1]! .end⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -