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