5 / VERSION 5A 4-27-77 PT
42 FLDA% BPDSQ,1 /ADDR OF X
45 /DO GENERAL TESTS ON THE ARGUMENT
49 JEQ DSQRTN /RETURN IF 0
51 FSTA DARSAV /SAVE DOUBLE
52 STARTF /F MODE + ROUND
55 /GET INITIAL APPROXIMATION BY CALLING
56 /SINGLE PRECISION ROUTINE
62 FSTA SNGL /FIRST APPROX
66 /X(K+1)=1/2(X(K)+X/X(K))
69 DSIT, FLDA DARSAV /GET X
72 FDIV DSQ2 /DIVIDE BY 2