Directory of image this file is from
This file as a plain text file
*20 /SUBROUTINE ARCSIN /ENTER WITH SINE BETWEEN 0 & 1. /EXIT WITH ANGLE IN RADIANS IN /FAC & XFAC. /ARCSIN X = PI/2 - SQRT(1-X) * H(X) /WHERE H(X)=A0+A1*X+A2*X^2+A3*X^3 ARCSIN, STORE XFAC FCOMP FADD FP1 SQRT FAC STORE TEMP1 LOAD ASA3 FMUL XFAC FADD ASA2 FMUL XFAC FADD ASA1 FMUL XFAC FADD ASA0 FMUL TEMP1 FCOMP FADD PID2 STORE XFAC JMP 0 /LEAVE ASA0, 0001 /1.5707288 3110 3322 ASA1, 7775 /-.2121144 4466 2675 ASA2, 7774 /.0742610 2300 5423 ASA3, 7772 /-.0187293 5464 4350 PID2, 0001 /PI/2=1.5707963 3110 3756 TEMP1, 0 0 0 XFAC, 0 0 0 FP1, 0001 2000 0000 /END SUBROUTINE ARCSIN.