/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"
	.TITLE LBCL
	.GLOBL LBCL
LBCL	0
	ISZ LBCL
	LAC* LBCL
	DAC PATTERN
	SPA
	LAC* PATTERN /INDIRECT
	DAC PATTERN
	ISZ LBCL    /BUMP TO EXIT
	LAC* PATTERN /LOAD THE PATTERN
	IOT5
	JMP .-1
	LOCL        /LOAD BANK OF 
	            /CONTROL LINES
	JMP* LBCL
PATTERN
IOT5=703005
LOCL=705206
	.END