Directory of image this file is from
This file as a plain text file

[SQRTND
[DOUBLE-PRECISION SQUARE ROOT
[USES NEWTON APPROXIMATION
[5 ITERATIONS
[
[USE FLOD-1R
[
[JMP 1T
[ADDR RADICAND
[ADDR RESULT
[USE XR 1,2,3,4
#1T LDA
0
JMP 1X-1
ADD 1R+1
STC p+67
LDA 2
STC p+71
LDA i2
STC p+67+1
LDA i2
STC p+65+2
ADD p+64+1
APO i [RADICAND NEGATIVE?
JMP p+7
COM
STC p+60+1
ADD p+57+2
COM
STC p+55+2
ADD p+54+1
 STC p+56+1
ADD p+52+2
STC p+54+2
ADD p+50
SCR 1 [EXP|2 FOR APPROX.
STC p+51
ADD p+50+1
AZE i
JMP p+25 [RESULT ZERO
CLR
ADD 3
STC p+22 
SET i4
-5
[N|X
 JMP 1D
p+34
p+36
p+27
[+ X[N]
JMP 1A
p+25
p+32
p+31
LDA i
-1
[DIVIDE RESULT BY TWO
ADD p+26
STC p+25
XSK i4
JMP p-15
[FINISHED CALCULATING
SET i3
 ADDR RESULT
LDA
p+17
STA 3
LDA 
p+14+1
STA i3
LDA
p+11+2
STA i3
 JMP RETURN
  0
0
0
  0
0
0
  0
0
0
[END SQRTND
[MJM 2-23-70