📄 mod32.s
字号:
/* mod32.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" .global _exsub .text .align 4 .global _dpfmod_dpfmod: .global _fmod_fmod: save %sp,-96,%sp sll %i0,1,%l0 srl %l0,21,%l0 sll %i0,11,%i4 srl %i1,21,%l7 or %i4,%l7,%i4 sll %i1,11,%i5 sethi %hi(0x80000000),%l4 or %i4,%l4,%i4 sll %i2,1,%l3 srl %l3,21,%l3 sll %i2,11,%l1 srl %i3,21,%l7 or %l1,%l7,%l1 sll %i3,11,%l2 or %l1,%l4,%l1 and %l4,%i0,%l4 sub %l0,1,%l7 subcc %l7,0x7fe,%g0 bcc AspecA Alab1: sub %l3,1,%l7 subcc %l7,0x7fe,%g0 bcc AspecB NOPAlab2: subcc %l0,%l3,%l5 bneg Aret2 NOP srl %i5,1,%i5 sll %i4,31,%l7 srl %i4,1,%i4 or %i5,%l7,%i5 srl %l2,1,%l2 sll %l1,31,%l7 srl %l1,1,%l1 or %l2,%l7,%l2b1: subcc %i5,%l2,%i5 subxcc %i4,%l1,%i4 bcc i2 NOP addcc %i5,%l2,%i5 addx %i4,%l1,%i4i2: addcc %i5,%i5,%i5 addx %i4,%i4,%i4 subcc %l5,0,%l5 bne b1 sub %l5,1,%l5 or %g0,%l3,%l0/* scan %i4,0,%l5 */ SCAN | (in4 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 bne L1 NOP or %i5,0,%i4 or %g0,0,%i5 sub %l0,32,%l0/* scan %i4,0,%l5 */ SCAN | (in4 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 be,a L1 or %l5,0,%l0L1: subcc %g0,%l5,%l6 be L2 sub %l0,%l5,%l0 sll %i4,%l5,%i4 srl %i5,%l6,%l6 or %l6,%i4,%i4 sll %i5,%l5,%i5L2: subcc %l0,0,%l0 bg i3 NOP or %g0,1,%l5 sub %l5,%l0,%l5L3: subcc %l5,32,%g0 bcs L4 subcc %g0,%l5,%l6 sub %l5,32,%l5 orcc %i4,0,%i5 bne L3 or %g0,0,%i4L4: be L5 sll %i4,%l6,%l6 srl %i5,%l5,%i5 srl %i4,%l5,%i4 or %i5,%l6,%i5L5: or %g0,0,%l0i3: srl %i5,11,%i1 sll %i4,21,%l7 or %i1,%l7,%i1 srl %i4,11,%i0 sethi %hi(0xfffff),%l7 or %l7,0x3ff,%l7 and %i0,%l7,%i0 sll %l0,20,%l7 or %i0,%l7,%i0 or %i0,%l4,%i0Aret2:A999: jmpl %i7+8,%g0 restore %g0,0,%g0AspecA: subcc %l0,0,%l0 bne Anan NOP addcc %i5,%i5,%i5 addx %i4,%i4,%i4 orcc %i4,%i5,%l7 be Alab1 NOP/* scan %i4,0,%l5 */ SCAN | (in4 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 bne L6 NOP or %i5,0,%i4 or %g0,0,%i5 sub %l0,32,%l0/* scan %i4,0,%l5 */ SCAN | (in4 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 be,a L6 or %l5,0,%l0L6: subcc %g0,%l5,%l6 be Alab1 sub %l0,%l5,%l0 sll %i4,%l5,%i4 srl %i5,%l6,%l6 or %l6,%i4,%i4 sll %i5,%l5,%i5 ba,a Alab1 AspecB: subcc %l3,0,%l3 bne i5 NOP addcc %l2,%l2,%l2 addx %l1,%l1,%l1 orcc %l1,%l2,%l7 be Anan NOP/* scan %l1,0,%l5 */ SCAN | (lo1 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 bne L8 NOP or %l2,0,%l1 or %g0,0,%l2 sub %l3,32,%l3/* scan %l1,0,%l5 */ SCAN | (lo1 << 14) | 0 | (lo5 << 25) subcc %l5,63,%g0 be,a L8 or %l5,0,%l3L8: subcc %g0,%l5,%l6 be Alab2 sub %l3,%l5,%l3 sll %l1,%l5,%l1 srl %l2,%l6,%l6 or %l6,%l1,%l1 sll %l2,%l5,%l2 ba,a Alab2 i5: sll %l1,1,%l7 orcc %l7,%l2,%l7 bne Anan NOP ba,a Aret2 Anan: sethi %hi(0xfff80000),%i0 ba Aret2 or %g0,0,%i1Azer: or %g0,%l4,%i0 ba Aret2 or %g0,0,%i1 .global _dpfrexp_dpfrexp: .global _frexp_frexp: save %sp,-96,%sp sll %i0,1,%i3 srl %i3,21,%i3 sub %i3,1,%i5 subcc %i5,0x7fe,%g0 bcc Bspec NOPBlab1: sub %i3,0x3fe,%i3 sethi %hi(0x800fffff),%i5 or %i5,0x3ff,%i5 and %i0,%i5,%i0 sethi %hi(0x3fe00000),%i5 or %i0,%i5,%i0Bret: st %i3,[%i2]B999: jmpl %i7+8,%g0 restore %g0,0,%g0Bspec: subcc %i3,0,%i3 bne i7 NOP sethi %hi(0x80000000),%i5 and %i5,%i0,%i4 sll %i0,1,%i5 orcc %i5,%i1,%i5 be Bret NOP add %i3,1,%i3Blab6: sub %i3,1,%i3 addcc %i1,%i1,%i1 addx %i0,%i0,%i0 sethi %hi(0x100000),%i5 subcc %i0,%i5,%g0 bcs Blab6 NOP ba Blab1 or %i0,%i4,%i0i7: sethi %hi(0xfff80000),%i0 or %g0,0,%i1 ba Bret or %g0,%i1,%i3 .global _dpldexp_dpldexp: .global _ldexp_ldexp: save %sp,-96,%sp sll %i0,1,%l0 srl %l0,21,%l0 sub %l0,1,%l3 subcc %l3,0x7fe,%g0 bcc Cspec NOP add %l0,%i2,%l0 sub %l0,1,%l3 subcc %l3,0x7fe,%g0 bcc Cspec2 NOP sethi %hi(0x800fffff),%l3 or %l3,0x3ff,%l3 and %i0,%l3,%i0 sll %l0,20,%l3 or %i0,%l3,%i0C999: jmpl %i7+8,%g0 restore %g0,0,%g0Cspec: subcc %l0,0x7ff,%g0 bne Cspec2 sethi %hi(0xfff00000),%l4 andn %i0,%l4,%l3 orcc %l3,%i1,%l3 be Cret NOP sethi %hi(0xfff80000),%i0 ba Cret or %g0,0,%i1Cspec2: sll %i0,1,%i5 srl %i5,21,%i5 sll %i0,11,%i3 srl %i1,21,%l3 or %i3,%l3,%i3 sll %i1,11,%i4 sethi %hi(0x80000000),%l1 or %i3,%l1,%i3 and %l1,%i0,%l1 subcc %i5,0,%i5 bne i11 NOP addcc %i4,%i4,%i4 addx %i3,%i3,%i3 orcc %i3,%i4,%l3 be Cret NOP/* scan %i3,0,%l2 */ SCAN | (in3 << 14) | 0 | (lo2 << 25) subcc %l2,63,%g0 bne L10 NOP or %i4,0,%i3 or %g0,0,%i4 sub %i5,32,%i5/* scan %i3,0,%l2 */ SCAN | (in3 << 14) | 0 | (lo2 << 25) subcc %l2,63,%g0 be,a L10 or %l2,0,%i5L10: subcc %g0,%l2,%l0 be i11 sub %i5,%l2,%i5 sll %i3,%l2,%i3 srl %i4,%l0,%l0 or %l0,%i3,%i3 sll %i4,%l2,%i4 ba,a i11 i11: add %i5,%i2,%i5 sub %i5,1,%l3 subcc %l3,0x7fe,%g0 bcs Cret2 subcc %i5,0,%i5 ble i13 NOP sethi %hi(0x7ff00000),%i0 ba Cret1 or %g0,0,%i1i13: or %g0,1,%l2 sub %l2,%i5,%l2L12: subcc %l2,32,%g0 bcs L13 orcc %i4,0,%g0 sub %l2,32,%l2 or %i3,0,%i4 or %g0,0,%i3 be L14 orcc %i4,0,%g0 or %i4,2,%i4L14: bne L12 NOP ba,a L15 L13: subcc %g0,%l2,%i0 be L15 sll %i4,%i0,%i1 orcc %i1,0,%g0 sll %i3,%i0,%i0 srl %i4,%l2,%i4 srl %i3,%l2,%i3 or %i4,%i0,%i4 bne,a L15 or %i4,2,%i4L15: addcc %i4,0x400,%i4 addxcc %i3,0,%i3 addx %i5,0,%i5 srl %i4,11,%l3 and %l3,1,%l3 sub %i4,%l3,%i4 or %g0,0,%i5Cret2: srl %i4,11,%i1 sll %i3,21,%l3 or %i1,%l3,%i1 srl %i3,11,%i0 sethi %hi(0xfffff),%l3 or %l3,0x3ff,%l3 and %i0,%l3,%i0 sll %i5,20,%l3 or %i0,%l3,%i0Cret1: or %i0,%l1,%i0Cret: ba,a C999 .global _dpmodf_dpmodf: .global _modf_modf: save %sp,-96,%sp sll %i0,1,%i5 srl %i5,21,%i5 sll %i0,11,%i3 srl %i1,21,%l6 or %i3,%l6,%i3 sll %i1,11,%i4 sethi %hi(0x80000000),%l4 or %i3,%l4,%i3 and %l4,%i0,%l4 sub %i5,1,%l6 subcc %l6,0x7fe,%g0 bcc Dspec NOP or %g0,%i3,%l0 or %g0,%i4,%l1 or %g0,%i5,%l2 or %g0,0x43e,%l3 sub %l3,%i5,%l3 subcc %l3,0,%l3 ble Dlab3 subcc %l3,0x40,%g0 bge Dzer NOP and %l3,0x1f,%l6 or %g0,1,%l5 sll %l5,%l6,%l5 sub %g0,%l5,%l5 subcc %l3,0x20,%g0 bl i14 NOP or %g0,0,%l1 ba Dlab3 and %l0,%l5,%l0i14: and %l1,%l5,%l1Dlab3: srl %l1,11,%i1 sll %l0,21,%l6 or %i1,%l6,%i1 srl %l0,11,%i0 sethi %hi(0xfffff),%l6 or %l6,0x3ff,%l6 and %i0,%l6,%i0 sll %l2,20,%l6 or %i0,%l6,%i0 or %i0,%l4,%i0 st %i0,[%i2] st %i1,[%i2+4] or %g0,%i3,%o0 or %g0,%i4,%o1 or %g0,%i5,%o2 or %g0,%l0,%o3 or %g0,%l1,%o4 call _exsub or %g0,%l2,%o5 or %g0,%o0,%i3 or %g0,%o1,%i4 or %g0,%o2,%i5Dret: srl %i4,11,%i1 sll %i3,21,%l6 or %i1,%l6,%i1 srl %i3,11,%i0 sethi %hi(0xfffff),%l6 or %l6,0x3ff,%l6 and %i0,%l6,%i0 sll %i5,20,%l6 or %i0,%l6,%i0 or %i0,%l4,%i0Dret2:D999: jmpl %i7+8,%g0 restore %g0,0,%g0Dzer: st %g0,[%i2+4] ba Dret2 st %l4,[%i2]Dspec: subcc %i5,0,%i5 be Dzer NOP or %g0,0,%i1 st %i1,[%i2+4] sethi %hi(0xfff80000),%i0 ba Dret2 st %i0,[%i2]! .end⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -