8 / VERSION 5A 4-27-77 PT
16 FPI2SN, 1 /PI DIVIDED BY 2
45 F3PIB2, 0003 /4.71238898038468986
129 FLDA% BPSIN,1 /ADDR OF X
133 LDX -1,0 /SET SIGN TO POSITIVE.
134 JGT SINMOD /IF POSITIVE BYPASS FUDGE.
135 JEQ SINRTN /IF ZERO EXIT.
136 FNEG /NEGATIVE. NEGATE AC. SIN(-X)=-SIN(X)
137 LDX 0,0 /SET SIGN TO MINUS.
149 /1 0-PI/2 SIN(PI/2)=1
151 /3 PI-3PI/2 SIN(3PI/2)=-1
152 /4 3PI/2-2PI SIN(2PI)=0
163 FSUB SIN1 /SIN(X)=SIN(PI-X)
166 S1, FLDA F3PIB2 /3PI/2
173 FSTA X /SIN(X)=-SIN(X-PI)
181 /CALCULATE SIN VIA TAYLOR SERIES
182 TAYLOR, FLDA X /RECALL NUMBER TO BE WORKED ON.
183 FMUL X /MULTIPLY OUT.
185 FMUL SINC17 /NOW DO THE STANDARD ITERATION.
200 FADD F1SIN /ADD IN 1 FOR SERIES
201 FMUL X /DO THE FINAL MULTIPLY.
202 SING, JXN SINRTN,0 /SHALL WE NEGATE
204 JA SINRTN /AND RETURN.