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