$BEGIN	GTRTP,<Find file header pointer area>

;
; COPYRIGHT (c)	1982 BY DIGITAL EQUIPMENT CORPORATION.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;

	$VERSION	x0202

;
; FIND FILE HEADER MAP AREA

	$CODE2

;+
;
; **.GTRTP - FIND FILE HEADER POINTER AREA
;
; THIS ROUTINE FOLLOWS THE MAP AREA OFFSET IN THE HEADER BUFFER
; AND PRODUCES A POINTER TO THE POINTER AREA.
;
; INPUTS:
;
;	HEADER IN .HDBUF
;
; OUTPUTS:
;
;	R0 = POINTER TO MAP AREA
;	ALL OTHER REGISTERS ARE PRESERVED
;
;-

.GTRTP::
	CLR	R0
	BISB	.HDBUF+H.MPOF,R0 ; GET OFFSET IN WORDS
	ASL	R0		; COMVERT TO BYTE OFFSET
	ADD	#.HDBUF,R0	; FORM POINTER
	RETURN
;
;
	$END	GTRTP
;
;
	.END