.TITLE .RDA REDUCE ARGUMENT
	.GLOBL .RDA,.AP,.AA,.AW,.AI
	.GLOBL .AT,.AK,.AU,.AX,.XA,.SET
.XX=.XA
.RDA	0
	LAC*	.RDA
	DAC	RDP
	ISZ	.RDA
	JMS*	.AP
		.XX+400000
	JMS*	.AT	/DIV BY
RDP		0	/HI CON
	AND	(600000
	DAC	PT5+1
	JMS*	.AI	/+ .5
		PT5
	CLL
	LAC	M22
	TAD*	.AA
	SZL
	XCT*	.RDA	/ERR RETURN
	JMS*	.AX	/FIX I
	DAC	IST
	SZA
	STL!GLK
	TAD*	RDP
	CMA
	DAC	PT5
	JMP	STLP	/START LOOP
LOOP	JMS*	.AP
		.XX+400000
	ISZ	RDP
	ISZ	RDP
	ISZ	RDP
	ISZ*	.SET	/SET MODE TO DP
STLP	LAC	IST
	JMS*	.AW	/FLOAT I
	JMS*	.AK	/CON*I
		RDP+400000
	JMS*	.AU	/REDUCED ARG
		.XX+400000
	ISZ	PT5
	JMP	LOOP
	LAC	IST
	ISZ	.RDA
	JMP*	.RDA
PT5	0
IST	0
M22	377756
	.END