.TITLE	ROLHD
;
;COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORP. MAYNARD, MASS.
;
;
; MODIFICATIONS:
;
;	08A -- CORRECT ERROR IN PST SEARCH.
;
	.IDENT	/08A/
	.PSECT	PUREI,I
PUREI=.
.=PUREI+114
	ADD	#$SSTCT,R0	;ADD PST TABLE BIAS
.=PUREI+312
1$:				;REF LABEL
.=PUREI+340
	BEQ	6$		;IF EQ SYMBOL MATCH
	BHI	3$		;IF HI SET NEW HIGH LIMIT
.=PUREI+354
	BR	5$		;MATCH NOT FOUND
3$:	MOV	R1,R2		;SET NEW HIGH LIMIT
	SUB	R3,R2	;REDUCE BY ONE SYMBOL
	CMP	R0,R2		;ANY MORE TO SEARCH?
	BLOS	1$		;IF LOS YES
5$:	CLR	R0		;SET EXIT FALSE FLAG
	BR	7$	
6$:	MOV	R1,R0		;GET SYMBOL ADDRESS
	SUB	ROLBAS(R5),R0	;CALCULATE DISTANCE FROM BASE
	ASR	R0		;CONVERT TO SYMBOL NUMBER
	ASR	R0
	ASR	R0
	INC R0			;START NUMBERING FROM ONE (1)
7$:				;REF LABEL
	.END