/READ BANK OF SENSE LINES SUBROUTINE
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL RBSL(PATTERN)
/PATTERN: BIT 8+I OF PATTERN IS "1"
/           IF SENSE LINE I IS HIGH
/         BIT 8+I OF PATTERN IS "0"
/           IF SENSE LINE IS LOW
	.TITLE RBSL
	.GLOBL RBSL
RBSL	0
	ISZ RBSL
	LAC* RBSL
	DAC PATTERN
	SPA
	LAC* PATTERN
	DAC PATTERN
	ISZ RBSL    /BUMP TO EXIT
	IOT3
	JMP .-1
	RSLI        /READ SENSE LINE 
	            /INPUTS
	DAC* PATTERN /SENSE LINE PATTERN
	JMP* RBSL
PATTERN
IOT3=703003
RSLI=705213
	.END
