.TITLE	$ALOG 
	.IDENT	/F40002/
	.PSECT	OTS$I	I

AC0=%0
AC1=%1
AC2=%2
AC3=%3
AC4=%4
AC5=%5

ALOG10::
	MOV	(PC),R4
	BR	AL
ALOG::
	CLR	R4
AL:	SETF
	SETI
	MOV	#TBL,R0
	LDF	@2(R5),AC2
	CFCC
	BLE	116$
	STEXP	AC2,R1
	LDCIF	R1,AC3
	MULF	(R0)+,AC3
	LDEXP	#0,AC2
	LDF	AC2,AC1
	SUBF	(R0),AC2
	ADDF	(R0)+,AC1
	DIVF	AC1,AC2
	LDF	AC2,AC1
	MULF	AC1,AC1
	MOV	#3,R1
	LDF	(R0)+,AC0
62$:	MULF	AC1,AC0
	DEC	R1
	ADDF	(R0)+,AC0
	BGT	62$
	MULF	AC2,AC0
	ADDF	(R0)+,AC0
	ADDF	AC3,AC0
	TST	R4
	BEQ	106$
	MULF	(R0)+,AC0
106$:	STF	AC0,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
	RTS	PC
116$:	LOGERR
	CLR	R0
	CLR	R1
	RETURN
TBL:	.WORD	40061,71030
	.WORD	40065,2363
	.WORD	37632,14525
	.WORD	37714,120036
	.WORD	40052,125332
	.WORD	40400,0
	.WORD	137661,71030
	.WORD	37736,55731
	.END