1			0	F2SIN002
			2			FORTRAN LIBRARY VERSION OF IB SIN 1	F2SIN003
			3			COMPUTES SINE OR COSINE OF A SINGLE PRECISION NORMALIZED	F2SIN004
			4			FLOATING POINT ARGUMENT. TSX SIN OR TSX COS . REL. ERROR	F2SIN005
			5			LESS THAN 1/2 X 10 TO -8. TIMING ABOUT 2.03 SIN, 2.I1 C0S.	F2SIN006
	00000	0 30200 0 00153	6	COS	FSB	FPHLF	F2SIN007
	00001	0 76000 0 00002	7		CHS		F2SIN008
	00002	0 60100 0 77774	8	SIN	STO	SPMLT	F2SIN009
	00003	0 76500 0 00011	9		LRS	9	F2SIN010
	00004	−0 63400 1 00021	10		SXD	SAVE,1	F2SIN011
	00005	−0 73400 1 00000	11		PDX	0,1	F2SIN012
	00006	−0 14000 0 00134	12	OVTST	TNO	NOVFL OVERFLOW TEST	F2SIN013
	00007	−0 63400 4 00120	13		SXD	INDIC,4 OVERFLOW TO BE RESTORED	F2SIN014
	00010	3 00244 1 00022	14		TXH	ERR,1,164	F2SIN015
	00011	0 76300 0 00023	15		LLS	19	F2SIN016
	00012	−3 00202 1 00026	16		TXL	SPEC,1,130	F2SIN017
	00013	0 76500 1 00250	17	LRTSH	LRS	168,1 B3	F2SIN018
	00014	0 22000 0 00136	18		DVH	PI PI...B3, BQ...35	F2SIN019
	00015	−0 77300 0 00043	19		RQL	35 LAST BIT TO SIGN MQ	F2SIN020
	00016	0 16200 0 00041	20		TQP	FRLAR	F2SIN021
	00017	0 76000 0 00002	21		CHS		F2SIN022
	00020	0 60100 0 77774	22		STO	SPMLT	F2SIN023
	00021	−3 00000 0 00041	23	SAVE	TXL	FRLAR,0,**	F2SIN024
	00022	0 02000 0 00117	24	ERR	TRA	FINI−1	F2SIN025
	00023	0 40200 0 00137	25	EQUA	SUB	PIHLF	F2SIN026
	00024	0 60200 0 77775	26		SLW	REDA	F2SIN027
	00025	1 00002 1 00057	27	SX	TXI	COMCA,1,2 COSC, XR...4	F2SIN028
			28			SPECIAL CASE, ANGLE NEED NOT BE REDUCED	F2SIN029
	00026	−3 00162 1 00130	29	SPEC	TXL	LOW,1,114	F2SIN030
	00027	−0 76000 0 00001	30		PBT		F2SIN031
	00030	0 02000 0 00032	31		TRA	SPEC+4	F2SIN032
	00031	3 00201 1 00013	32		TXH	LRTSH,1,129	F2SIN033
	00032	0 76500 1 00205	33		LRS	133,1 B3	F2SIN034
	00033	0 76000 0 00003	34		SSP		FZSIN035
	00034	0 56000 0 00142	35		LDQ	TEST	F2SIN036
	00035	0 04000 0 00042	36		TLQ	FRLAR+1	F2SIN037
	00036	0 60100 0 77775	37		STO	REDA	F2SIN038
	00037	−0 53400 1 00025	38		LXD	SX,1	F2SIN039
	00040	0 02000 0 00057	39		TRA	COMCA	F2SIN040
	00041	0 76000 0 00003	40	FRLAR	SSP		F2SIN041
	00042	−0 53400 1 00025	41		LXD	SX,1	F2SIN042
	00043	0 34000 0 00137	42		CAS	PIHLF	F2SIN043
	00044	0 40200 0 00136	43		SUB	PI LARGER THAN PIHLF	F2SIN044
	00045	0 76000 0 00003	44		SSP	EQUAL TO PIHLF	F2SIN045
	00046	0 56000 0 00142	45		LDQ	TEST	F2SIN046
	00047	0 04000 0 00023	46		TLQ	EQUA	F2SIN047
	00050	0 60100 0 77775	47		STO	REDA ANGLE IN FIRSF QUADRANT, B3	F2SIN048
	00051	0 76500 0 00004	48	FLOAT	LRS	4	F2SIN049
	00052	0 40000 0 00140	49		ADD	CHAR	F2SIN050
	00053	0 30000 0 00141	50		FAD	CHAR+1 200	F2SIN05I
	00054	0 56000 0 77774	51		LDQ	SPMLT	F2SIN052
	00055	0 76300 0 00000	52		LLS	0	F2SIN053
	00056	0 60100 0 77774	53		STO	SPMLT	F2SIN054
			54			COMMON CALCULATION FOR SIN AND COS	F2SIN055
	00057	0 56000 0 77775	55	COMCA	LDQ	Z COMMON CALC., B3	F2SIN056
	00060	−0 20000 0 77775	56		MPR	Z	F2SIN057
	00061	0 60100 0 77777	57		STO	ZSQ B6	F2SIN058
	00062	0 40000 1 00147	58		ADD	CONST+4,1 24.1B6, 50. B6	F2SIN059
	00063	0 60100 0 77776	59		STO	SOR	F2SIN060
	00064	0 50000 1 00150	60		CLA	CONST+5,1 2287B13, 1042B11	F2SIN061
	00065	0 22000 0 77776	61		DVH	SOR	F2SIN062
	00066	−0 60000 0 77776	62		STQ	SOR	F2SIN063
	00067	0 50000 0 77776	63		CLA	SOR	F2SIN064
	00070	0 40000 1 00153	64		ADD	CONST+8,1 82.5B7, -19.B5	F2SIN065
	00071	0 76700 0 00001	65		ALS	1 B6, BITS IN P,Q	F2SIN066
	00072	0 40000 0 77777	66		ADD	ZSQ	F2SIN067
	00073	0 77100 1 00006	67		ARS	6,1 B8	F2SIN068
	00074	−3 00002 1 00123	68		TXL	S,1,2	F2SIN069
	00075	0 60100 0 77776	69		STO	SOR	F2SIN070
	00076	0 50000 0 77777	70		CLA	ZSQ	F2SIN071
	00077	0 76500 0 00002	71		LRS	2	F2SIN072
	00100	0 40000 0 77777	72		ADD	ZSQ	F2SIN073
	00101	0 76300 0 00001	73		LLS	1	F2SIN074
	00102	0 40000 0 00150	74		ADD	CONST+5 -3276B13	F2SIN075
	00103	0 22000 0 77776	75		DVH	SOR	F2SIN076
	00104	−0 60000 0 77776	76		STQ	SOR	F2SIN077
	00105	0 50000 0 77776	77		CLA	SOR	F2SIN078
	00106	0 40000 0 00152	78		ADD	CONST+7 19.477B5	F2SIN079
	00107	0 76500 0 00002	79		LRS	2	F2SIN080
	00110	0 40200 0 77777	80		SUB	ZSQ	F2SIN081
	00111	0 56000 0 77774	81		LDQ	SPMLT	F2SIN082
	00112	0 76300 0 00010	82		LLS	8	F2SIN083
	00113	−0 76000 0 00001	83		PBT		F2SIN084
	00114	1 00001 1 00115	84		TXI	RTSH,1,1 XR...5 FOR OCOS	F2SIN085
	00115	0 77100 1 00015	85	RTSH	ARS	13,1 9 OR 8	F2SIN086
	00116	0 36100 1 00145	86		ACL	CHAR+5,1 127 OR 128	F2SIN087
	00117	−0 53400 1 00021	87		LXD	SAVE,1	F2SIN088
U	00120	3 4 00122	88	FINI	TXH	FINI+2,4,..	F2SIN089
	00121	0 02000 4 00001	89		TRA	1,4 LEAVE ON	F2SIN090
	00122	0 14000 0 00121	90		TOV	FINI+1 TURN OFF	F2SIN091
	00123	0 40000 0 00141	91	S	ADD	CHAR+1 126	F2SIN092
	00124	0 60100 0 77777	92		STO	ZSQ	F2SIN093
	00125	0 56000 0 77777	93		LDQ	ZSQ	F2SIN094
	00126	0 26000 0 77774	94		FMP	SPMLT	F2SIN095
	00127	0 02000 0 00117	95		TRA	FINI−1	F2SIN096
	00130	0 50000 0 00120	96	LOW	CLA	FINI	F2SIN097
	00131	0 76700 0 00011	97		ALS	9	F2SIN97A
	00132	0 50000 0 77774	98		CLA	SPMLT	F2SIN97B
	00133	0 02000 0 00117	99		TRA	FINI−1	F2SIN098
	00134	−0 63400 0 00120	100	NOVFL	SXD	INDIC,0 CLEAR DECREMENT OF INDIC	F2SIN099
	00135	0 02000 0 00010	101		TRA	OVTST+2	F2SIN100
			102			CONSTANTS	F2SIN101
		00120	103	INDIC	SYN	FINI	F2SIN102
	00136	+144417665210	104	PI	DEC	3.14159265359B3	F2SIN103
	00137	+062207732503	105	PIHLF	DEC	1.57079632679B3	F2SIN104
	00140	+177000000000	106	CHAR	OCT	177000000000	F2SIN105
	00141	+200000000000	107		OCT	200000000000	F2SIN106
	00142	+011463146314	108	TEST	DEC	.3B3	F2SIN107
	00143	+140450575062	109	CONST	DEC	24.1448946943B6,2287.443195687B13,50.0302454854B6	F2SIN108
	00144	+107367056521	110
	00145	+310075742536	111
	00146	+202273236275	112		DEC	1042.9267081438B11,82.58030199563B7,−3276.33995164B13	F2SIN109
	00147	+245122165275	113
	00150	−146305340704	114
	00151	−236610717605	115		DEC	−19.8459242632B5,19.477149451B5	F2SIN110
	00152	+233642316731	116
	00153	+201622077325	117	FPHLF	DEC	1.57079632679	F2SIN111
		77774	118	COMMON	EQU	−4	F2SIN112
		77774	119	SPMLT	EQU	COMMON	F2SINI13
		77775	120	REDA	EQU	COMMON+1	F2SIN114
		77775	121	Z	EQU	COMMON+1	F2SIN115
		77776	122	SOR	EQU	COMMON+2	F2SIN116
		77777	123	ZSQ	EQU	COMMON+3	F2SIN117