.TITLE	$EXP
	.IDENT	/F40002/
	.psect	OTS$I ,CON,RW,REL,LCL,I
EXP::	MOV	2(R5),R4
	MOV	(R4),R0
	BGT	E00020
	CMP	R0,#141660
	BHI	E00160
	BR	E00026
E00020:	CMP	R0,#41660
	BHI	E00154
E00026:	ASL	R0
	CMP	R0,#63000
	BCS	E00144
	SETD
	SETI
	MOV	#E00170,R0
	LDCDF	(R4),R2
	MODF	(R0)+,R2
	stcfi	R3,R4
	LDF	#^F1,R0
	DIVF	(R0)+,R2
	SETF
	LDCDF	R2,R2
	CFCC
	BEQ	E00122
	LDF	R2,R3
	MULF	R3,R3
	ADDF	(R0)+,R3
	LDF	(R0)+,R1
	DIVF	R3,R1
	ADDF	R2,R1
	ADDF	(R0)+,R1
	DIVF	R1,R2
	MULF	#^F2,R2
	SUBF	R2,R0
	MULF	R0,R0
E00122:	STF	R0,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
	SWAB	R4
	CLRB	R4
	ASR	R4
	ADD	R4,R0
	BMI	E00154
	RETURN
E00144:	CLR	R1
	MOV	#^F1,R0
	BR	E00166
E00154:	TRAP	310
	BR	E00162
E00160:	TRAP	312
E00162:	CLR	R0
	CLR	R1
E00166:	RETURN
E00170:	.word	040270,125073
	.word	024534,013761
	.word	040470,125073
	.word	024534,013761
	.word	041560,056133
	.word	042426,071571
	.word	141100,036602
	.END