.TITLE	HEADR
;
; USUAL DEC COPYRIGHT NOTICE
;
; MODIFICATIONS:
;
;	02A - CHANGE TASK DEFAULT UIC TO TERMINAL'S UIC
;
	.IDENT	/02A/
	.PSECT
.BLK.=.
.=.BLK.+1060
HDUIC:	.WORD	0		; DEFAULT UIC
.=.BLK.+1510
	CALL	PAT1
.=.BLK.+1724
	CLRBF=.
.=.BLK.
	.PSECT	$$PAT1
$$PAT1=.
PAT1:	MOV	.FSRPT,R0	; ADDRESS OF FILE STORAGE REGION 2
	MOV	A.DFUI(R0),HDUIC	;SET UIC
	CALL	CLRBF		; CLEAR LABEL BLOCK
	RETURN
.=$$PAT1
	.END