␣␣␣␣␣C = 18

1. Definition

   00022

   +001000000000

   29

   C

   OCT

   1000000000,100000000000,4

   SQRT0022

2. References (7)

   	00000	0 00000 0 00025	3		PZE	C+3	SQRT/C03
   	00003	−0 50100 0 00022	14		ORA	C MAKE POWER ODD	SQRT0007
   	00005	0 40000 0 00023	16		ADD	C+1 NORMALIZED Y0 IN A.C.	SQRT0009
   	00006	−0 63400 4 00024	17		SXD	C+2,4	SQRT0010
   	00007	0 53400 4 00024	18		LXA	C+2,4 4 TO INDEX	SQRT0011
   	00016	0 40200 0 00022	25		SUB	C (Y0+Q1)/2 TO A.C.	SQRT0018
   	00020	−0 53400 4 00024	27		LXD	C+2,4	SQNT0020

␣␣␣␣P1 = 8

1. Definition

   00010

   0 60100 0 77777

   19

   P1

   STO

   COMMON+1 S TO RE Y0

   SQRT0012

2. Reference

   00017

   2 00001 4 00010

   26

   TIX

   P1,4,1 REDUCE INDEX BY 1

   SQRT0019

␣␣␣␣P2 = 2

1. Definition

   00002

   0 60100 0 77776

   13

   P2

   STO

   COMMON X

   SQRT0006

␣␣SQRT = 0

1. Definition

   			9			CL SOR3 SQUARE ROOT SUBROUTINE	SQRT0002
   			10			FUNCTION NAME ... SQRTF	SQRT0003
   	00000	0 10000 4 00001	11	SQRT	TZE	1,4 SQRT OF ZERO IS ZERO	SQRT0004

COMMON = 32766

1. Definition

   77776

   32

   COMMON

   SYN

   −2

   SQRT0023

2. References (8)

   	00001	0 00000 0 77776	4		PZE	COMMON	SQRT/C04
   	00002	0 60100 0 77776	13	P2	STO	COMMON X	SQRT0006
   	00010	0 60100 0 77777	19	P1	STO	COMMON+1 S TO RE Y0	SQRT0012
   	00011	0 50000 0 77776	20		CLA	COMMON 1X1 TO A.C.	SQRT0013
   	00012	0 24000 0 77777	21		FDH	COMMON+1 1C1/YO TO A.C.	SQRT0014
   	00013	0 50000 0 77777	22		CLA	COMMON+1 Y0 TO A.C.	SQRT0015
   	00014	−0 60000 0 77777	23		STQ	COMMON+1 Q1 TO COMMON+1	SQRT0016
   	00015	0 30000 0 77777	24		FAD	COMMON+1 Y0+Q1 TO A.C.	SQRT0017