V6/usr/source/fort/rt1/atan.s

Compare this file to the similar file:
Show the results in this format: 

/
/

/ atan & datan fortran functions

.globl	atan.
.globl	datan.

.globl	atan
.globl	retrn
.globl	temp

datan.:	temp
	.+2
	setd
	br	1f

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