.TITLE	LBCL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/LOAD BANK OF CONTROL LINES SUBROUTINE
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL LBCL(PATTERN)
/PATTERN: CONTROL LINE I IS SET HIGH
/            IF BIT I OF PATTERN IS "1"
/         CONTROL LINE I IS SET LOW
/            IF BIT I OF PATTERN IS "0"
/
	.GLOBL LBCL
/
LBCL	XX
	.ARG	LBCL
	DAC PATTERN
	LAC* PATTERN /LOAD THE PATTERN
	IOT5
	JMP .-1
	LOCL        /LOAD BANK OF 
	            /CONTROL LINES
	JMP* LBCL
PATTERN
IOT5=703005
LOCL=705206
	.END