/READ BANK OF AC SWITCHES SUBROUTINE
/EXECUTION TIME: 18 MICROSECONDS
/CALLING SEQUENCE:  CALL RBAC(PATTERN)
/   PATTERN:  BIT I OF PATTERN IS A '1'
/                IF SWITCH I WAS UP
/             BIT I OF PATTERN IS A '0'
/                IF SWITCH I WAS DOWN
	.TITLE RBAC
	.GLOBL RBAC
RBAC	0
	ISZ RBAC
	LAC* RBAC
	DAC PATTERN
	SPA
	LAC* PATTERN /INDIRECT
	DAC PATTERN
	ISZ RBAC	/BUMP TO EXIT
	LAS
	DAC* PATTERN	/AC PATTERN
	JMP* RBAC
PATTERN
	.END
/READ BANK OF AC SWITCHES`SUBROUTINE
/EXECUTIONE TIME:  16 MICROSECONDS
/CALLING SEQUENCE:  CALL RBAC(PATTERN)
/   PATTERN:  BIT I OF PATTERN IS '1' IF
/                SWITCH I WAS UP
/             BIT I OF PATTERN IS '0' IF
                 SWITCH I WAS DOWN
	.TITLE RBAC
	.GLOBL RBAC
RBAC	0
	ISZ RBAC
	LAC* RBAC
	DAC PATTERN
	ISZ RBAC	/BUMP TO EXIT
	LAS
	DAC* PATTERN	/TRANSMIT SR
	UMP* RBAC
PATTERN
	.END