; $ATAN OBJECT TO MACRO CONVERSION V01.1 13-AUG-86 16:40
	
	
	.TITLE	$ATAN	
;
	.IDENT	/F40002/
;
;
	.PSECT	OTS$I	,I,LCL,RW,CON
;
	.ENABL	LSB
ATAN2::	
	SETF	
	MOV	2(R5),R3
	MOV	4(R5),R4
	MOV	(R3),R0
	MOV	(R4),R1
	BEQ	74$
	ASL	R0
	CLRB	R0
	SWAB	R0
	ASL	R1
	CLRB	R1
	SWAB	R1
	SUB	R1,R0
	CMP	#32,R0
	BLT	74$
	LDF	276$,%3
	LDF	(R3),%0
	CFCC	
	BGE	60$
	NEGF	R3
60$:	LDF	(R4),%1
	CFCC	
	BLT	70$
	CLRF	R3
70$:	DIVF	R1,%0
	BR	120$
74$:	LDF	302$,%1
	TST	(R3)
	BGE	266$
	NEGF	R1
	BR	266$
ATAN::	
	SETF	
	CLRF	R3
	LDF	@2(R5),%0
120$:	CLR	R4
	CFCC	
	STF	%3,R5
	CLRF	R3
	BGE	136$
	ABSF	R0
	INC	R4
136$:	LDF	#^F1,%1
	CMPF	%0,%1
	CFCC	
	BLE	162$
	DEC	R4
	DIVF	R0,%1
	LDF	R1,%0
	LDF	302$,%3
162$:	STF	%3,R4
	CLRF	R3
	CMPF	306$,%0
	CFCC	
	BGE	222$
	LDF	312$,%3
	LDF	R0,%1
	MULF	316$,%0
	SUBF	#^F1,%0
	ADDF	316$,%1
	DIVF	R1,%0
222$:	LDF	R0,%2
	MULF	R0,%0
	MOV	#322$,R0
	MOV	#4,R1
	LDF	(R0)+,%1
240$:	MULF	R0,%1
	DEC	R1
	ADDF	(R0)+,%1
	BGT	240$
	MULF	R2,%1
	ADDF	R3,%1
	SUBF	R4,%1
	TST	R4
	BEQ	264$
	NEGF	R1
264$:	ADDF	R5,%1
266$:	STF	%1,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
	RTS	PC
276$:	.word	040511,007733
302$:	.word	040311,007733
306$:	.word	037611,030243
312$:	.word	040006,005222
316$:	.word	040335,131727
322$:	.word	037305,035302
	.word	137421,056514
	.word	037514,143333
	.word	137652,125244
	.word	040200,000000
	.DSABL	LSB
	.END