.ENABL	LC
	ALWAYS	18APR4	IDENT	<SHOW PROGRAM IDENT>
	.MCALL	DIR$,CALLR
;************************************************************************
;*									*
;*	MODULE: IDENT							*
;*									*
;*	FUNCTION: DISPLAY THE PROGRAM'S IDENT (VERSION NUMBER).		*
;*		  NOTE: THE ALWAYS MACRO ABOVE MUST BE CHANGED ANYTIME	*
;*			ANY MODULE IS CHANGED. THIS WILL UPDATE THE	*
;*			IDENT MACRO GVNUM.				*
;*									*
;*	INPUT PARAMETERS:						*
;*									*
;*	R0 POINTS TO THE COMMAND LINE IN PROCESS			*
;*									*
;*	OUTPUT PARAMETERS:						*
;*									*
;*	R0 POINTS JUST BEYOND COMMAND LINE				*
;*									*
;*	DESTROYS: R1							*
;*									*
;*	AUTHOR: KEVIN ANGLEY						*
;*									*
;*	DATE: 20-JUL-82							*
;*									*
;*	MODIFIED BY: Chris Doran, Sira Ltd.				*
;*									*
;*	Date: Jan 84							*
;*									*
;*		For current version, and to add ':' prefix for TEXAS	*
;*		  trailer record.					*
;*									*
;************************************************************************

IDENT::
	OUTPUT	IDT		; "HEX VERSION DDMMMY"
	CALLR	EXTRA		; PURGE COMMAND LINE OF SUPERFLUOUS JUNK
				;  AND RETURN FROM THERE
	.PAGE
	.SBTTL IDENT DATA AREA

	.PSECT	PURE	RO,D

	DEFM	IDT	<: HEX Version >	; "HEX Version "
	GVNUM				; "DDMMMY"
IDTLEN	==	.-IDT
	.EVEN

	.END