.TITLE	RBCS
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/READ BANK OF COMPARATORS STATUS SUBR.
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL RBCS(PATTERN)
/   PATTERN: BIT I OF PATTERN IS "1"
/              IF COMPARATOR I IS HIGH
/            BIT I OF PATTERN IS "0"
/              IF COMPARATOR I IS LOW
/
	.GLOBL RBCS
/
RBCS	XX
	.ARG	RBCS
	DAC PATTERN
	IOT3
	JMP .-1
	RCS    /READ COMPARATOR STATUS
	AND (421040
	DAC* PATTERN /TRANSMIT PATTERN
	JMP* RBCS
PATTERN
IOT3=703003
RCS=703513
	.END