TITLE TAN GENT FUNCTION SUBTTL V.001 R.S.TOMLINSON 18 FEB 69 ENTRY TAN INTERN TAN EXTERN SIN,COS ; THIS PROGRAM COMPUTES TAN(X) BY THE SIMPLE EXPEDIENTOF ; TAN(X) = SIN(X)/COT(X) TAN: 0 MOVE 0,@(16) MOVEM 0,TANT# JSA 16,COS JUMP TANT MOVEM 0,TANT2# JSA 16,SIN JUMP TANT FDVR 0,TANT2 JRA 16,1(16) END