/DIGITAL-8-9-F
/SQUARE ROOT ....... ENTER WITH SQUARE IN AC
/ EXITS WITH ROOT IN AC
/ ODD INTEGER METHOD
SQRT, 0
DCA SQR1 /SAVE INPUT
DCA ROOT /0 TO ANSWER
TAD SQR2 /-1; FIRST ATTEMPT
SQX, DCA SQRD
TAD SQR1 /COMPARE INPUT
CLL /WITH THIS TRY
TAD SQRD
SNL
JMP SQRF /TEST>INPUT; ALL DONE
ISZ ROOT /ADD +1 TO ANSWER
DCA SQR1 /INPUT=INPUT-TEST
TAD SQRD
TAD SQR3 /TEST=TEST-2
JMP SQX /CONTINUE
SQRF, CLA
TAD ROOT /FETCH ANSWER
JMP I SQRT /EXIT
SQR1, 0
SQR2, -1
SQR3, -2
SQRD, 0
ROOT, 0
$