/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
	.TITLE RBCS
	.GLOBL RBCS
RBCS	0
	ISZ RBCS
	LAC* RBCS
	DAC PATTERN
	SPA
	LAC* PATTERN /INDIRECT
	DAC PATTERN
	ISZ RBCS    /BUMP TO EXIT
	IOT3
	JMP .-1
	RCS    /READ COMPARATOR STATUS
	AND (421040
	DAC* PATTERN /TRANSMIT PATTERN
	JMP* RBCS
PATTERN
IOT3=703003
RCS=703513
	.END