                                 /GEORGE FRIEDMAN
/MAN VEHICLE CONTROL LABORATORY
/MASSACHUSETTS INSTITUTE OF TECHNOLOGY
/CAMBRIDGE, MASSACHUSETTS
/
/IMPROVEMENT TO DIGITAL - 8 - 9 - F SQUARE ROOT
/
/TIME=27+N(22.5) MICROSECONDS, A 12% SAVINGS
/IMPROVED ROUTINE IS 20 WORDS LONG, A SAVINGS OF 3 WORDS
/
                                                             SQRT,     0
          DCA SQR1
          DCA ROOT
          CLA CMA CLL CML       /SET AC=-1,SET LK =1
SQX,      DCA SQRD
          TAD SQR1
          TAD SQRD
          SZL                   /LINK IS COMPLEMENTED
          JMP SQRF
          ISZ ROOT
          DCA SQR1
          CLL CMA RAL           /SET AC=-2,LK WILL BE SET AFTER ADD
          TAD SQRD
          JMP SQX
SQRF,     CLA
          TAD ROOT
          JMP I SQRT
SQR1,     0
SQRD,     0
ROOT,     0
$
              ~