0 /SET SIGN TO POSITIVE. JGT SINMOD /IF POSITIVE BYPASS FUDGE. JEQ SINRTN /IF ZERO EXIT. FNEG /NEGATIVE. NEGATE AC. SIN(-X)=-SIN(X) LDX 0,0 /SET SIGN TO MINUS. SINMOD, JAL SINER /IF SIGN CAN T INT, THEN ERROR. FDIV F2PISN /REDUCE TO BELOW TWO PI. FSTA SIN1 /SAVE IN A TEMP. ALN 0 FNORM /INTERGIZE IT. FNEG FADD SIN1 /RECALL NUMBER. AC NOW <0 FMUL F2PISN /NOW MULTIPLY BACK. FSTA SIN2 /AND SAVE AWAY. FSUB FPISIN /SUBTRACT OFF PI. JLT SINP /LESS THEN PI. FSTA SIN2 /RESTORE AS 2. XTA 0 /INVERT THE SIGN. FNEG FSUB F1SIN /SIN(X-PI)=-SIN(X) ATX 0 /AND PUT BACK. / SINP, FLDA SIN2 /RECALL MAGIC GOODY. FSUB FPI2SN /TEST TO SEE IF X