/SET BANK OF CONTROL LINES SUBROUTINE
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL SBCL(PATTERN)
/PATTERN: OUTPUT CONTROL LINES
/        CORRESPONDING TO "1"
/        BIT POSITIONS ARE SET
	.TITLE SBCL
	.GLOBL SBCL
SBCL	0
	ISZ SBCL
	LAC* SBCL
	DAC PATTERN
	SPA
	LAC* PATTERN /INDIRECT
	DAC PATTERN
	ISZ SBCL    /BUMP TO EXIT
	LAC* PATTERN /LOAD THE PATTERN
	IOT5
	JMP .-1
	SOCL        /SET BANK OF CONTROL
	            /LINES
	JMP* SBCL
PATTERN
IOT5=703005
SOCL=705106
	.END