.PAGE
	.SBTTL	ERROR CHECKING OR ERROR MARKING MACROS
;
.MACRO SETERROR A
	.NARG	NARG
	.EMIT	<SEC		;INDICATE ERROR OPERATION>
	.IIF EQ	NARG-1	.EMIT	<BR	A>
.ENDM	SETERROR
;
.MACRO	SETSUCCESS A
	.NARG	NARG
	.EMIT	<CLC		;INDICATE SUCESS OPERATION>
	.IIF EQ	NARG-1	.EMIT	<BR	A>
.ENDM	SETSUCCESS
;
.MACRO	EXITSUCCESS
	.EMIT	<CLC		;INDICATE OPERATION OK>
	.EMIT	<RETURN		;RETURN TO CALLLING PROGRAM>
.ENDM	EXITSUCCESS
;
.MACRO	EXITERROR
	.EMIT	<SEC		;INDICATE OPERATION HAS FAILED>
	.EMIT	<RETURN		;RETURN TO CALLING PROGRAM>
.ENDM	EXITERROR
;
.MACRO	IFERROR	A
	.IF IDN A,RETURN
	.IFT
	.EMIT	<BCC	.+4	;IF SUCCESS BYPASS>
	.EMIT	<RETURN		;RTS BACK TO CALLER>
;
	.IFF
	.EMIT	<BCS	A	;J IF ERROR (C) BIT SET>
	.ENDC
.ENDM	IFERROR
;
.MACRO	IFSUCCESS A
	.IF IDN A,RETURN
	.IFT
	.EMIT	<BCS	.+4	;IF ERROR BYPASS>
	.EMIT	<RETURN		;EXIT>
;
	.IFF
	.EMIT	<BCC	A	;J IF ERROR (C) BIT NOT SET>
	.ENDC
.ENDM	IFSUCCESS

;
	.SBTTL	LOGIC CHECKING OR LOGIC MARKING MACROS
;
.MACRO SETFALSE A
	SETERROR A
.ENDM	SETFALSE
;
.MACRO	SETTRUE A
	SETSUCCESS A
.ENDM	SETTRUE
;
.MACRO	EXITTRUE
	EXITSUCCESS
.ENDM	EXITTRUE
;
.MACRO	EXITFALSE
	EXITERROR
.ENDM	EXITFALSE
;
.MACRO	IFFALSE	A
	IFERROR A
.ENDM	IFFALSE
;
.MACRO	IFTRUE A
	IFSUCCESS A
.ENDM	IFTRUE
;
.MACRO	EXIT	COND
	.IIF	IDN	COND,T	EXITSUCCESS
	.IIF	IDN	COND,F	EXITERROR
	.IIF	IDN	COND,S	EXITSUCCESS
	.IIF	IDN	COND,E	EXITERROR
	.IIF	B	COND	.EMIT	<RETURN>
.ENDM	EXIT
;
	.END
;
;