TITLE	"Z3MSGA - Z3lib 4.0"
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Richard Conn
; Date    :
; Version : 1.1
; Module  : Z3MSGA
; Abstract: This module contains the routine GETERC which
;	returns the address of the error command line
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  Module Entry Points

	PUBLIC		GETERC

;  External References

	EXT		GETMSG

	.Z80
	CSEG
;===============================================================
; NAME - GETERC
; Entry: - None
; Exit : HL - Points to the error command line if error found
;	  A = 0, Zero Flag Set (Z) if no Entry
;	      A <> 0, Zero Flag Reset (NZ) if Error
; Uses : AF,HL
; Special Requirements: None
;===============================================================

GETERC:	PUSH	DE		;save DE
	CALL	GETMSG		;get ptr to messages
	LD	DE,10H		;offset to buffer
	ADD	HL,DE
	LD	A,(HL)		;get first char
	POP	DE		;get DE
	OR	A		;set flag
	RET

	END