TITLE	"Z3MSG7 - Z3lib 4.0"
;---------------------------------------------------------------;
; Author  : Jay Sage (QERROR.Z80)
;		Replaces Z3MSG7.Z80 by Richard Conn
; Date    :
; Version : 1.0
; Module  : Z3MSG7
; Abstract: This module contains the routine QERROR which returns
;	a flag set if the command status buffer has the Error Bit
;	set.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  Module Entry Points

	PUBLIC		QERROR

;  External References

	EXT		GETCST

; Definitions

ERBIT	EQU	0010B		; Error bit in Command Status byte

	.Z80
	CSEG
;===============================================================
; NAME - QERROR
; Entry: - None
; Exit : A = 0010B, Zero Flag Clear (NZ) if No Error
;	     A = 0, Zero Flag Set (Z) if Error
; Uses AF
; Special Requirements : None
;===============================================================

QERROR:	PUSH	HL		; Save regs
	CALL	GETCST		; Get Command Status Flag
	AND	ERBIT		; Select only Error Bit
	XOR	ERBIT		; ..set Z if Error Bit set, NZ otherwise
	POP	HL		; Restore regs
	RET

	END