;	TITLE	"ATTEOL - Z3lib 4.0"
	NAME	('@TEOL')
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Harold F. Bower
;		Extracted from Z3PRSx.Z80 modules by Richard Conn
; Date   : 26 Jul 89
; Version : 1.3
; Module  : ATTEOL
; Abstract: This module contains a common routine extracted from
;	Z3PRS1, Z3PRS2 and Z3PRS3.  Is is placed here to increase
;	re-utilization of code.  The routine included here is
;	@TEOL which tests for an end-of-line or command delimiter.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		@TEOL

; Definitions

CMDSEP	EQU	';'		; Command Separator

	.Z80
	CSEG
;===============================================================
; NAME - @TEOL
; Entry: A - Contains character to test
; Exit : A = Char, Zero Flag Set (Z) if end-of-line or Comnd Sep
;	     Zero Flag Reset (NZ) if Not Command Sep or EOL
; Uses : AF
; Special Requirements: None
;===============================================================

@TEOL:	OR	A		;EOL?
	RET	Z		;Return with flag
	CP	CMDSEP		;Command separator?
	RET

	END