1			CONTROL CARD FOR EXP(2	XP2/C01
		00000	2		ORG	0	XP2/C02
	00000	0 00000 0 00050	3		PZE	EXP+1	XP2/C03
	00001	0 00000 0 77776	4		PZE	FACTOR	XP2/C04
	00002	256747740260	5		BCD	1EXP(2␣	XP2/C05
	00003	0 00000 0 00000	6		PZE		XP2/C06
			7			END OF EXP(2 CONTROL CARD.	XP2/C07
		00000	8		ORG	0	EXP20001
			9			EXPONENTIATION SUBROUTINE	EXP20002
			10			FLOATING POINT BASE, FIXED POINT EXPONENT	EXP20003
	00000	0 10000 4 00001	11	EXP(2	TZE	1,4 EXIT FOR ZERO BASE	EXP20004
	00001	−0 63400 2 00022	12		SXD	SAVEX,2	EXP20005
	00002	0 16200 0 00005	13		TQP	MQPOS	EXP20006
	00003	−0 53400 2 00004	14		LXD	NEGONE,2 SET NEGATIVE MQ INDICATOR	EXP20007
	00004	−3 77777 0 00006	15	NEGONE	TXL	MQPOS+1,0,−1	EXP20008
	00005	−0 53400 2 00037	16	MQPOS	LXD	TXL,2 SET POSITIVE MQ INDICATOR	EXP20009
	00006	0 60100 0 77777	17		STO	POWER INITIALIZATION	EXP20010
T	00007	−0 75400 0 00000	18		PXD		EXP20011
	00010	0 76300 0 00021	19		LLS	17 X	EXP20012
	00011	0 62100 0 00047	20		STA	EXP X	EXP20013
	00012	0 50000 0 00047	21		CLA	EXP	EXP20014
	00013	−0 10000 0 00016	22		TNZ	N	EXP20015
	00014	0 50000 0 00046	23		CLA	FLOONE	EXP20016
	00015	0 02000 0 00044	24		TRA	EXIT	EXP20017
	00016	0 50000 0 00046	25	N	CLA	FLOONE X	EXPZ0018
	00017	0 60100 0 77776	26		STO	FACTOR X	EXP20019
	00020	0 50000 0 00047	27	CLA1	CLA	EXP IS POWER	EXP20020
	00021	0 76000 0 00001	28		LBT	A FACTOR	EXP20021
TD	00022	−3 00000 0 00026	29	SAVEX	TXL	CLA2 NO	EXP20022
	00023	0 56000 0 77777	30		LDQ	POWER YES	EXP20023
	00024	0 26000 0 77776	31		FMP	FACTOR	EXP20024
	00025	0 60100 0 77776	32		STO	FACTOR	EXP20025
	00026	0 50000 0 00047	33	CLA2	CLA	EXP	EXP20026
	00027	0 77100 0 00001	34		ARS	1	EXP20027
	00030	0 60100 0 00047	35		STO	EXP	EXP20028
	00031	0 10000 0 00036	36		TZE	TXL−1	EXP20029
	00032	0 56000 0 77777	37		LDQ	POWER	EXP20030
	00033	0 26000 0 77777	38		FMP	POWER	EXP20031
	00034	0 60100 0 77777	39		STO	POWER	EXP20032
	00035	0 02000 0 00020	40		TRA	CLA1	EXP20033
	00036	0 50000 0 77776	41		CLA	FACTOR	EXP20034
D	00037	−3 00000 2 00044	42	TXL	TXL	EXIT,2	EXP20035
	00040	0 50000 0 00046	43		CLA	FLOONE	EXP20036
	00041	0 24000 0 77776	44		FDH	FACTOR	EXP20037
T	00042	−0 75400 0 00000	45		PXD		EXP20038
	00043	0 76300 0 00043	46		LLS	35	EXPZ00S9
	00044	−0 53400 2 00022	47	EXIT	LXD	SAVEX,2	EXP20040
			48			WORKING STORAGE	EXP20041
	00045	0 02000 4 00001	49		TRA	1,4	EXP20042
	00046	+201400000000	50	FLOONE	DEC	1.0	EXP20043
	00047	0 00000 0 00000	51	EXP			EXP20044
		77777	52	POWER	SYN	−1	EXP20045
		77776	53	FACTOR	SYN	−2