.TITLE	SBCL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	.GLOBL SBCL
/
SBCL	XX
	.ARG	SBCL
	DAC PATTERN
	LAC* PATTERN /LOAD THE PATTERN
	IOT5
	JMP .-1
	SOCL        /SET BANK OF CONTROL
	            /LINES
	JMP* SBCL
PATTERN
IOT5=703005
SOCL=705106
	.END