.MCall	.Module
.Module	KEDID RELEASE=V02 VERSION=14 COMMENT=<Ked Identification>,AUDIT=NO,IDENT=YES

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
;
; MODULE:	KEDID	- define class, version, release and patch id
;
; VERSION:	X01.02
;
; AUTHOR:	Jim Williams
;
; DATE:		13-May-80
;
;
.Library "Src:System"

.MCall	.SyCDf	.JSXDf
	.JSXDf
	.SyCDf

	.Enable	LC
	.Enable	Gbl
;
;	The version id for text strings
;


.IIf	NDF	VT10$0	VT10$0=1
.IIf	NDF	VT62$	VT62$=0
.IIf	NDF	Virt$	Virt$=0
.IIf	NDF	Rsts$	Rsts$=0
.IIf	NDF	Extn$d	Extn$d=1

.Options==:	<VT10$0*1>!<VT62$*2>!<Virt$*4>!<Rsts$*10>!<Extn$d*20>

.If	EQ	Virt$
.KedLo	==:	100000

.Asect
.	=	$JSX
	.Word	VBGEx$!All64$

.IfF;	EQ	Virt$

.Asect
.	=	$JSX
	.Word	All64$

.EndC;	EQ	Virt$

.Audit	.Options
.Audit	.KedC1	.KedC2	.KedC3	.KedC4	.KedC6	.KedC7
.Audit	.KedC8	.KedIO	.KedI2	.KedI3	.KedI4	.KedC5	
.Audit	.KedCp	.KedDe	.KedEL	.KedER	.KedId	.KedS1	.KedS2
;.Audit	.KedMa	.KedH1	.KedH2	.KedH3	.KedH4	.KedH5	.KedH6
;.Audit	.KedLo	.KedHl	.KedHp	.KedVw

.Macro	Test	Clas	Versio	Releas	Patc

.IIf	NE	<.Audit>-<^r'Clas'Versio> .Error ;CLASS / VERSION mismatch;
.IIf	NE	<.KedID>-<Releas'.>	.Error ;RELEASE mismatch;
	Cls	== ''Clas		; Support class
	Vrs	== "Versio		; Major version
	Rls	== "Releas		; Edit release
	Pat	== ''Patc		; Patch level (initially blank)
.EndM

	Test	V 02 14 < >

Name.1	==:	'K

.If	EQ	VT10$0
;;;.If	EQ	VT62$
Name.2	==:	'5
;;;.IfF;	EQ	VT62$
;;;Name.2	==:	'6
;;;.EndC;	EQ	VT62$
.IfF;	EQ	VT10$0
Name.2	==:	'E
.EndC;	EQ	VT10$0

.If	EQ	Virt$
.If	EQ	Rsts$
.If	EQ	VT10$0
Name.3	==:	'2
.IfF;	EQ	VT10$0
Name.3	==:	'D
.EndC;	EQ	VT10$0
.IfF;	EQ	Rsts$
Name.3	==:	'R
.EndC;	EQ	Rsts$
.IfF;	EQ	Virt$
Name.3	==:	'X
.EndC;	EQ	Virt$

	.End