/SET BANK OF RELAYS PLUS SUBROUTINE
/EXECUTION TIME: 25 MICROSECONDS
/CALLING SEQUENCE: CALL SBRP(PATTERN)
/PATTERN: RELAYS CORRESPONDING TO '1' BIT
/         POSITIONS ARE SET PLUS
/         THE BIT CORRESPONDENCE IS:
/         0=004,1=009,2=014,3=019
/         4=034,5=039,6=044,7=049,
/         8=064,9=069,10=074,11=079,
/         12=094,13=099,14=104,15=109
	.TITLE SBRP
	.GLOBL SBRP
SBRP	0
	ISZ SBRP
	LAC* SBRP
	DAC PATTERN
	SPA
	LAC* PATTERN /INDIRECT
	DAC PATTERN
	ISZ SBRP    /BUMP TO EXIT
	LAC* PATTERN /LOAD PATTERN
	IOT5
	JMP .-1
	SRP        /SET RELAYS PLUS
	JMP* SBRP
PATTERN
IOT5=703005
SRP=703406
	.END
