.TITLE	SETREF
	.IDENT	/01/
	.PSECT	CODE,RO
 
;
; VERSION 01
;
; TOM GETZINGER  30-MAY-80
;
; THIS ROUTINE SETS A FLAG TO INDICATE A MEMORY REFERENCE
;
; INPUTS:
;	R0 = PSECT #
;	R1 = ADDRESS
;
 
SETREF::
	MOV	R1,-(SP)	; SAVE R1
	MOV	R0,R1
	CALL	LDBTMP		; LOAD THE SPECIFIED BITMAP
	MOV	(SP)+,R1	; RESTORE R1
	MOV	R1,R0		; COPY THE ADDRESS
	ASH	#-3,R0		; CONVERT TO OFFSET
	BIC	#160001,R0	; CLEAR GARBAGE
	BIC	#^C17,R1	; CLEAR GARBAGE FROM BIT NUMBER
	ASL	R1		; DOUBLE IT
	BIS	BITMSK(R1),BITMAP(R0) ; SET THE BIT
	MOV	#1,CHANGD	; SET CHANGED FLAG
	RETURN			; AND WE'RE DONE
 
	.END