.TITLE	RBSL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	.GLOBL RBSL
/
RBSL	XX
	.ARG	RBSL
	DAC PATTERN
	IOT3
	JMP .-1
	RSLI        /READ SENSE LINE 
	            /INPUTS
	DAC* PATTERN /SENSE LINE PATTERN
	JMP* RBSL
PATTERN
IOT3=703003
RSLI=705213
	.END