1			CONTROL CARD FOR SQRT.	SQRT/C01
		00000	2		ORG	0	SQRT/C02
	00000	0 00000 0 00025	3		PZE	C+3	SQRT/C03
	00001	0 00000 0 77776	4		PZE	COMMON	SQRT/C04
	00002	625051636060	5		BCD	1SQRT␣␣	SQRT/C05
	00003	0 00000 0 00000	6		PZE		SQRT/C06
			7			END OF SQRT CONTROL CARD.	SQRT/C07
		00000	8		ORG	0	SQRT0001
			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
	00001	0 76000 0 00003	12		SSP	SET SIGN X PLUS	SQRT0005
	00002	0 60100 0 77776	13	P2	STO	COMMON X	SQRT0006
	00003	−0 50100 0 00022	14		ORA	C MAKE POWER ODD	SQRT0007
	00004	0 77100 0 00001	15		ARS	1	SQRT0008
	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
	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
	00016	0 40200 0 00022	25		SUB	C (Y0+Q1)/2 TO A.C.	SQRT0018
	00017	2 00001 4 00010	26		TIX	P1,4,1 REDUCE INDEX BY 1	SQRT0019
	00020	−0 53400 4 00024	27		LXD	C+2,4	SQNT0020
	00021	0 02000 4 00001	28		TRA	1,4	SQRT0021
	00022	+001000000000	29	C	OCT	1000000000,100000000000,4	SQRT0022
	00023	+100000000000	30
	00024	+000000000004	31
		77776	32	COMMON	SYN	−2	SQRT0023