.TITLE	RSSL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/READ SINGLE SENSE LINE FUNCTION
/EXECUTION TIME: 47 TO 49 MICROSECONDS
/CALLING SEQUENCE: RSSL(SENSE)
/     SENSE:0-7 ADDRESS OF SENSE LINE
/EXIT: AC=777777 IF SENSE LINE IS HIGH
/      AC=000000 IF SENSE LINE IS LOW
/          OR IF SENSE LINE ADDRESS IS ILL.
/
	LOGAC
/
	.GLOBL RSSL
/
RSSL	XX
	.ARG	RSSL
	DAC SENSE
	LAC* SENSE
	AND (777770
	SZA!CLA
	JMP	SET    /ILL. SENSE LINE 
	LAC (10     /8 SHIFTS
	TAD* SENSE  /+ (SENSE) SHIFTS
	TAD (ALS  /AC LEFT SHIFT
	DAC .+4     /FIX VARIABLE SHIFT
	IOT3
	JMP .-1
	RSLI        /READ SENSE LINE
	            /INPUTS
	XX    /AC0=DESIRED SENSE LINE
	SPA!CLA     /SKIP ON SENSE LOW
	CMA         /SENSE LINE IS HIGH
SET	DAC*	LOGICA
	LAC	(600000
	DAC*	.MODEA	/INDICATE LOGICAL MODE
	JMP* RSSL
SENSE
IOT3=703003
RSLI=705213
	.END