.TITLE SNGL
	.GLOBL .DA,SNGL,.AO,.AC,.AQ
SNGL	0
	JMS*	.DA
	JMP	.+2
ARG	0
	JMS*	.AO
		ARG+400000
	LAC*	ARG	/SAME EX
	DAC	CON	/TO CON
	JMS*	.AQ	/ADD RD BIT
		CON
	LAC*	.AC
	AND	(777000	/CHOP LO FRAC
	DAC*	.AC
	JMP*	SNGL
CON	0; 0; 400
	.END