;	Macro to read the image header and return the
;	identification and link time.
;		Dale E. Coy 17-APR-1987 
;
	.title	READ_HEADER - Reads Image Header
	.Ident /1_001/
	.LINK"SYS$SYSTEM:SYS.STB"/SELECTIVE_SEARCH
	.LIBRARY 	"SYS$LIBRARY:LIB"

	$DSCDEF
	$IHDDEF
	$IHIDEF
	$SSDEF

	.DISABLE	GLOBAL
	.EXTERNAL	CTL$GL_IMGHDRBF

	$OFFSET 4,POSITIVE,<IDENT,TIME>

	.PSECT	CODE, RD, NOWRT, EXE, LONG
	.ENTRY READ_HEADER, ^M< R2, R3, R4, R5, R6, R7, R8, R11 >

	CMPL	(AP), #1
	BGEQ	ENOUGH_ARGUMENTS
	MOVL	#SS$_INSFARG, R0
	RET

ENOUGH_ARGUMENTS:

	MOVL	@#CTL$GL_IMGHDRBF,	R11
	MOVL	(R11), R6
	CVTWL	IHD$W_IMGIDOFF(R6), R7
	MOVAB	(R6)[R7],	R7
	CVTBL	IHI$T_IMGID(R7), R0
	MOVL	IDENT(AP), R8
	MOVC5	R0,<IHI$T_IMGID+1>(R7),#32,DSC$W_LENGTH(R8),@DSC$A_POINTER(R8)
	CMPL	(AP), #2
	BGEQ	RETURN_TIME
	MOVZBL	#1, R0
	RET

RETURN_TIME:
	$ASCTIM_S	TIMBUF=@TIME(AP), TIMADR=IHI$Q_LINKTIME(R7)
	RET
	.END