8 / VERSION 5A 4-27-77 PT
51 FLDA% BPSINH,1 /ADDR OF X
55 FSTA SINH8 /SAVE THE ARGUMENT.
56 JGE .+3 /MAKE IT POSITIVE.
58 FSTA SINH7 /AND SAVE ABS VALUE IN CASE WE NEED IT.
59 FSUB SINH1 /IS IT LESS THEN .1?
60 JLE SINHSR /YES. USE SERIES APPROXIMATION.
61 FSUB SINH2 /IS IT GREATER THEN 88.029?
62 JGE SINHAP /YES. USE LOG(2) APPROXIMATION.
71 FADD SINH7 /EXP(X)-1/EXP(X)
72 FDIV F2SINH / 1/2(EXP(X)-1/EXP(X))
73 JA SNHRTN /AND RETURN NOW.
76 SINHAP, FLDA SINH7 /RECALL ABSOULTE VALUE.
77 FSUB SINHLG /ABS(X)-LN(2)
78 FSTA SINH7 /EXP(ABS(X)-LN(2))
84 FLDA SINH8 /GET SIGN OF ARGUMENT.
85 JGE SPLR /LOAD POSITIVE IF ARG WAS POSITIVE.
88 JA SNHRTN /AND RETURN.
93 SINHSR, FLDA SINH8 /X SERIES IF X<.1
103 FADD SINH8 /X+X^3/6+X^5/120
104 JA SNHRTN /VOILA. WE ARE DONE.