Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50053/cot.mac
There are 2 other files named cot.mac in the archive. Click here to see a list.
	TITLE	COT ANGENT FUNCTION
	SUBTTL	V.001  R.S.TOMLINSON  18 FEB 69
	ENTRY	COT
	INTERN	COT
	EXTERN	SIN,COS

; THIS PROGRAM COMPUTES COT(X) BY THE SIMPLE EXPEDIENT OF
; COT(X) = COS(X)/SIN(X)

COT:	0
	MOVE 0,@0(16)
	MOVEM 0,COTT#
	JSA 16,SIN
	JUMP COTT
	MOVEM 0,COTT2#
	JSA 16,COS
	JUMP COTT
	FDVR 0,COTT2
	JRA 16,1(16)

	END