.TITLE DLOG10-ALOG10
	.GLOBL DLOG10,ALOG10,ALOG,.DA,.SET,.AS
DLOG10	0
	LAC	.-1
	JMS*	.SET
ALOG10	0
	JMS*	.DA
	JMP	.+2
ARG	0
	JMS*	ALOG
	JMP	.+2
		ARG+400000
	JMS*	.AS
		LGB10E
	JMP*	ALOG10
LGB10E	-1; 336267; 542512
	.END