[SQROOT
[M.D.MCDONALD
[SQUARE ROOT N
[ENTER JMP 1A
[N IN FAC
[ASSUMES DBLFLT
[IN Q2 AND Q3
[SEE DBLFLT
[WRITEUP FOR
[OPERATION
$400
#1A SET 17
0
ADD 7Z+1
AZE i
JMP 17
APO i
JMP 1B
JMP 6H
SET i 1
7Z
JMP 6D
#1B JMP 5N
-1D
SET i 16
-13
ADD 7Z
SCR 1
#1C AZE i
CLR
STC 7Z
XSK i 16
JMP p+2
JMP 17
JMP 5G
1D
7Z
1E
JMP 5A
-1E
ADD 7Z
ADD 7L
JMP 1C
#1D 0
0
0
#1E 0
0
0
5A=1000
5G=1163
5N=1734
6D=1334
6H=1374
7L=1550
7Z=1731