1               
   2               
   3               /DEC 08-FMAA-LA
   4               /SQUARE ROOT ....... ENTER WITH SQUARE IN AC
   5               /                    EXITS WITH ROOT IN AC
   6               /          ODD INTEGER METHOD
   7 000000  0000  SQRT,     0
   8 000001  3022            DCA SQR1              /SAVE INPUT
   9 000002  3026            DCA ROOT              /0 TO ANSWER
  10 000003  1023            TAD SQR2              /-1; FIRST ATTEMPT
  11 000004  3025  SQX,      DCA SQRD
  12 000005  1022            TAD SQR1              /COMPARE INPUT
  13 000006  7100            CLL                   /WITH THIS TRY
  14 000007  1025            TAD SQRD
  15 000010  7420            SNL
  16 000011  5017            JMP SQRF              /TEST>INPUT; ALL DONE
  17 000012  2026            ISZ ROOT              /ADD +1 TO ANSWER
  18 000013  3022            DCA SQR1              /INPUT=INPUT-TEST
  19 000014  1025            TAD SQRD
  20 000015  1024            TAD SQR3              /TEST=TEST-2
  21 000016  5004            JMP SQX               /CONTINUE
  22 000017  7200  SQRF,     CLA
  23 000020  1026            TAD ROOT              /FETCH ANSWER
  24 000021  5400            JMP I SQRT            /EXIT
  25 000022  0000  SQR1,     0
  26 000023  7777  SQR2,     -1
  27 000024  7776  SQR3,     -2
  28 000025  0000  SQRD,     0
  29 000026  0000  ROOT,     0
  30               
  31                         PAUSE
undefined                     ^
     000027  0000  
  32               
  33                 34               $
end of file     ^