cos.s

来自「UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱」· S 代码 · 共 26 行

/
/

/ cos & dcos fortran functions

.globl	cos.
.globl	dcos.

.globl	cos
.globl	retrn
.globl	temp

dcos.:	temp
	.+2
	setd
	br	1f

cos.:	temp
	.+2
	setf
1:
	movf	*2(r3),r0
	jsr	pc,cos
	movf	r0,temp
	jmp	retrn