📄 asin.s
字号:
#double asin(arg)#double arg; -1.0<=arg<=1.0 or an out of range error return#method: call atan() after range reduction# calls: satan (internal entry point of atan.s), _sqrt# J F Jarvis August 8, 1078.globl _asin.globl _errno.globl _sqrt.globl satan.set EDOM,33.text.align 1_asin: .word 0x3c0 bispsw $0xe0 movd 4(ap),r6 jgtr a1 mnegd r6,r6a1: cmpd r6,$0d1.0e+0 jleq a2 movl $EDOM,_errno clrd r0 ret#a2: muld3 r6,r6,r0 subd3 r0,$0d1.0e+0,-(sp) calls $2,_sqrt cmpd r6,$0d0.6875 jleq a3 divd2 r6,r0 jsb satan subd3 r0,pio2,r0 jbr a4a3: divd3 r0,r6,r0 jsb satana4: tstd 4(ap) jleq a5 reta5: mnegd r0,r0 ret.data.align 2pio2: .double 0d1.57079632679489661923e+0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -