.TITLE	RBCL
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/RESET BANK OF CONTROL LINES SUBROUTINE
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL RBCL(PATTERN)
/PATTERN: OUTPUT CONTROL LINES
/         CORRESPONDING TO "1" BITS
/         ARE RESET
/
	.GLOBL RBCL
/
RBCL	XX
	.ARG	RBCL
	DAC PATTERN
	LAC* PATTERN /LOAD THE PATTERN
	IOT5
	JMP .-1
	ROCL        /RESET BANK OF
	            /CONTROL LINES
	JMP* RBCL
PATTERN
IOT5=703005
ROCL=705306
	.END