;
;   M80.ZEX -- MACRO-80 Assembler and Linker
;              with M80 Error Checking
;
;      ^& Suppress FALSE IF Printout
;
if nul $1 ;note Print Error Message
echo	^G**** No Parameter Specified ****
else	;note Perform Assembly
if ~exist $1.MAC ;note Print File Not Found
echo	**** File Not Found ****
else
M80 =$1
FINDERR
if 0    ;note No errors found, link file
ERA $1.BAK
ERA $1.COM
L80 /P:100,$1,A:VLIB/S,A:Z3LIB/S,A:SYSLIB/S,$1/N,/U,/E
else
if 0 2  ;note see if the errors are warnings
echo    ^G***WARNING ERROR***
if input Type T to Continue or F to Abort (Warning Errors)
ERA $1.BAK
ERA $1.COM
L80 /P:100,$1,A:VLIB/S,A:Z3LIB/S,A:SYSLIB/S,$1/N,/U,/E
fi      ;note on IF INPUT
else    ;note error is fatal
echo    ^G***FATAL ERROR IN ASSEMBLY***
fi;fi      ;note IF REG 0 and IF REG 0 2
ERA $1.REL
fi;fi   ;note on IF NUL and IF EXIST
;
; Assembly Complete
;