1			0	F2EXP002
			2			FLOATING POINT EXPONENTIAL SUBROUTINE, FORTRAN VERSION	F2EXP003
	00000	0 60100 0 77777	3	EXP	STO	M STORE ARGUMENT	F2EXP004
	00001	0 56000 0 00046	4		LDQ	MAX TEST IF 0UT OF RANGE	F2EXP005
	00002	0 04000 4 00001	5		TLQ	1,4 IF TOO LARGE ERROR RETURN	F2EXP006
	00003	0 76000 0 00002	6		CHS		F2E6P007
	00004	0 04000 0 00044	7		TLQ	T1 IF TOO SMALL RETURN WITH ZERO	F2LXP008
	00005	0 76500 0 00033	8		LRS	27	F2EXP009
	00006	−0 76000 0 00003	9		SSM		F2EXP010
	00007	0 40000 0 00050	10		ADD	CHAR CONVERT TO FIXED POINT	F2EXP011
	00010	0 62100 0 00012	11		STA	SH1	F2EXP012
	00011	0 20000 0 00047	12		MPY	LOGE X TIMES LOG E BASE 2	F2EXP013
A	00012	0 76500 0 00000	13	SH1	LRS	SEPARATE INTEGER AND FRACTION	F2EXP014
	00013	0 76700 0 00033	14		ALS	27	F2EXP015
	00014	0 60100 0 77777	15		STO	M	F2EXP016
	00015	0 76500 0 00004	16		LRS	4	F2EXP017
	00016	−0 60000 0 77776	17		STQ	F	F2EXP018
	00017	0 20000 0 77776	18		MPY	F COMPUTE FRACTION SQUARED	F2EXP019
	00020	0 60100 0 77775	19		STO	SQ COMPUTE CONTINUED FRACTION	F2EXP020
	00021	0 40000 0 00053	20		ADD	A 8,27 SCALING	F2EXP021
	00022	0 60100 0 77774	21		STO	T 8,27	F2EXP022
	00023	0 50000 0 00054	22		CLA	B 12,23	F2EXP023
	00024	0 22100 0 77774	23		DVP	T 8,27 4,31	F2EXP024
	00025	−0 60000 0 77774	24		STQ	T 4,31	F2EXP025
	00026	0 56000 0 77775	25		LDQ	SQ 8,27	F2EXP026
	00027	0 20000 0 00055	26		MPY	C 0,35 8,27	FZEXP027
	00030	0 76300 0 00004	27		LLS	4 4,31	F2EXP028
	00031	0 40200 0 77774	28		SUB	T 4,3I	F2EXP029
	00032	0 40000 0 00056	29		ADD	D 4,3I	F2EXP030
	00033	0 40200 0 77776	30		SUB	F 4,3I	F2EXP031
	00034	0 60100 0 77774	31		STO	T 4,3I	F2EXP032
	00035	0 50000 0 77776	32		CLA	F 5,3I NUMERATOR EOUALS 2F	F2EXP033
	00036	0 22100 0 77774	33		DVP	T 4,31 1,34	F2EXP034
	00037	−0 60000 0 77774	34		STQ	T	F2EXP035
	00040	0 50000 0 77774	35		CLA	T	F2EXP036
	00041	0 76500 0 00010	36		LRS	8	F2EXP037
	00042	−0 50100 0 00052	37		ORA	CH1
	00043	0 30000 0 00051	38		FAD	CH
	00044	0 40000 0 77777	39	T1	ADD	M	F2EXP039
	00045	0 02000 4 00001	40		TRA	1,4 RETURN1	FZEXP040
			41			OONSTANTS	F2EXP041
	00046	+207540071260	42	MAX	DEC	88.028	F2EXP042
	00047	−270524354513	43	LOGE	DEC	−1.4426950409B1	F2EXP043
	00050	+000000000242	44	CHAR	OCT	242	F2EXP044
	00051	+201400000000	45	CH	OCT	201400000000	F2EXP045
	00052	+201000000000	46	CH1	OCT	201000000000
	00053	+127325604305	47	A	DEC	87.417497202B8	F2EXP046
	00054	+046477071523	48	B	DEC	617.9722695B12	F2EXP047
	00055	+010676467774	49	C	DEC	.03465735903B0	F2EXP048
	00056	+237214030720	50	D	DEC	9.9545957821B4	F2EXP049
			51			ERASABLES	F2EXP050
		77777	52	M	EQU	−1	F2EXP051
		77776	53	F	EQU	−2	F2EXP052
		77775	54	SQ	EQU	−3	F2EXP053
		77774	55	T	EQU	−4	F2EXP054