.;	RSXSYM.CMD - Find a symbol (P1) in the executive .STB file
.;			and return its value in <EXSTRI>.
.;
.;	 25-OCT-1988 15:00:12
.;
	.IF P1 = ""	.EXIT
	.SETS P1 P1+"     "
	.SETS A P1[1:3]
	.SETS B P1[4:6]
	.SETS <EXSTRI> "177777"
	.OPENR LB:[1,54]RSX11M.STB
.1:
	.READ R
	.IFT <EOF>	.GOTO 5
	.SETS S R[1:1]
	.SETN W 'S%V'
	.IF W = 2	.GOTO 5
	.IF W <> 1	.GOTO 1
	.SETS R R[3:*]
.2:
	.IF R = ""	.GOTO 1
	.SETS S R[6:6]
	.SETN T 'S%V'
	.IF T <> 4	.GOTO 3
	.SETS U R[1:1]
	.SETS V R[2:2]
	.SETN W ('V%V'&377)*400+('U%V'&377)
	.SETS S "'W%X'"
	.IF S <> A	.GOTO 3
	.SETS U R[3:3]
	.SETS V R[4:4]
	.SETN W ('V%V'&377)*400+('U%V'&377)
	.SETS S "'W%X'"
	.IF S = B	.GOTO 4
.3:
	.SETS R R[9.:*]
			.GOTO 2
.4:	.SETS U R[7:7]
	.SETS V R[8.:8.]
	.SETN W ('V%V'&377)*400+('U%V'&377)
	.SETS <EXSTRI> "'W'"
.5:	.CLOSE
	.EXIT