TITLE	"Z3MSGE - Z3lib 4.0"
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Richard Conn
; Date    :
; Version : 1.1
; Module  : Z3MSGE
; Abstract: This module contains the routine ERRADR which
;	returns the address of the first char of the command
;	line in error which ZCPR3 attempted to process.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  Module Entry Points

	PUBLIC		ERRADR

;  External References

	EXT		GETMSG

	.Z80
	CSEG
;===============================================================
; NAME - ERRADR
; Entry: - None
; Exit : HL - Contains address of 1st char of erred command line
; Uses : HL
; Special Requirements: None
;===============================================================

ERRADR:	PUSH	AF		;save PSW
	PUSH	DE		;save DE
	CALL	GETMSG		;get ptr to messages
	LD	DE,4		;offset to buffer
	ADD	HL,DE
	LD	A,(HL)		;get address
	INC	HL
	LD	H,(HL)
	LD	L,A		;HL = address
	POP	DE		;get DE
	POP	AF
	RET

	END