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

[SQRTS
[SINGLE PRECISION
[SQUARE ROOT
[USES FLOS SETUP
[JMP 1T
[ADDR RADICAND
[ADDR RESULT
#1T CLR
ADD 0
JMP1X-1
LDA 2 [EXP|2
STA
p+10
SCR i1
APO
JMP p+3
LZE
ADD 1Q+1
STA 3
LDA i
 0
LDA 2
APO [EVEN|ODD
COM
SCR i1
LDA i2 [ML
APO 
JMP p+2 [HLT
COM
AZE i
JMP p+51
LZE
JMP p+51 [1,ODD
SCR i1 [0,EVEN
STC p+27
COM
ROR i1 [MR
STC p+20
 STC p+13
CLR
ADD 1Q+1
STC p+5
JMP p+13-3
 LDA i
+2
LAM i
 XXX [RIGHT SUM
STC 0
LAM i
 XXX
LDA 
p-5
LAM i
 XXX [-MR
LDA
p-6
LAM i
 XXX [-ML
APO
JMP p-20 [ADD NEXT ODD #
[NORMALIZE
CLR
ADD p-14
ROR i1
LDA
p-22
ROR i1
APO i
JMP p+4 [DONE
BCL i
1
ROR 1
 STA i3
JMP 1R [RETURN
 BSE i
2000
STC p-22
COM
STC p-30 [MR
ADD 1Q+1
JMP p-51
[END SQRTS
[JAN 8|14|69