.TITLE	RSAC
/
/  15 MAY 72 - RESURRECTION BY P. HENDERSON
/
/  READ SINGLE ACCUMULATOR SWITCH FUNCTION
/
	LOGAC
	.GLOBL	RSAC
/
RSAC	XX
	.ARG	RSAC
	DAC	ISWTCH
	LAW	-22
	TAD*	ISWTCH
	SMA
	JMP	ILEGAL	/SWITCH > 17 ILLEGAL
	LAC*	ISWTCH
	SPA
	JMP	ILEGAL	/ -VE SWITCH # ILLEGAL
	TAD	(ALS
	DAC	.+2
	LAS
	XX
	SPA!CLA
	CMA
SET	DAC*	LOGICA	/RETURN VALUE
	LAC	(600000
	DAC*	.MODEA	/SET MODE TO LOGICAL
	JMP*	RSAC
/
ILEGAL	CLA
	JMP	SET
ISWTCH	XX
	.END