TITLE	"Z3LVER - Z3lib 4.0"
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from Z3LVER.Z80 ver 1.1 by Richard Conn
; Date    : 29 Aug 92
; Version : 1.3
; Module  : Z3LVER
; Abstract: This module contains the routine Z3LVER which returns
;	the library version number
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		Z3LVER

; Definitions

VERS	EQU	45	; Version times 10
subver	equ	'a'	; bug fix release letter

	.Z80
	CSEG
;===============================================================
; NAME - Z3LVER
; Entry: - None
; Exit : HL - Contains Version # as two binary digits
; Uses : HL
; Special Requirements: None
;===============================================================

Z3LVER:	LD	HL,VERS / 10 * 256 + VERS MOD 10
	RET

; Author Message

	DEFB	'Z3LIB ',VERS/10+'0','.',[VERS MOD 10]+'0',subver,' 20 Sep 93, '
	DEFB	'(C) 1989,90,91 by Alpha Systems Corp.',0

;--- History ---
; 4.0 -  9 Apr 89 - Initial release for TCF89 combining Z33LIB & Z3LIB.  HFB
; 4.1-4.2 - omitted
; 4.3 - 18 Aug 90 - Fixed DUSCAN, updated version to 4.3.		   HFB
; 4.3a- 27 Jan 91 - Corrected GZMTOP to conform to GETCCP and GMTOP (syslib),
;	added modified Z3GCL1, Z3GCL2, Z3LOG and Z3PFIND from Joe Wright.  HFB
; 4.3b- 10 Feb 91 - Corrected link error.				   HFB
; 4.3c- 16 Jun 91 - Corrected ADDNDR and SUBNDR, added IDXNDR.		   HFB
; 4.4 - 23 Jun 91 - Corrected long-time flaw in NDR routines thanks to Howard
;	Goldstein.  Added GETND0 to return # of Entries, vice Records.	   HFB
; 4.4a- 14 Jul 91 - Fixed remaining bug in ADDNDR per Bruce Morgen.	   HFB
; 4.5 - 29 Aug 92 - Corrected ZPRSFN for Error code in FCB+15 and Drive Valid
;	vector check, PFINDB no longer bombs if No Env, GETNDR corrected to
;	return proper Number, PRTNAME masks MSB before compare & print.
;	Routines PUTER2, STOPZEX, STRTZEX, PUTZEX, PUTREG, PUTSHM and PUTCST
;	exit if No ENV/Msg Buffer.					   HFB
; 4.5a- 20 Sep 93 - Search first Path Element if Not searching Current DU
;	even if first element is the Current DU ($$).			   HFB

	END