.TITLE	ABORT
.IDENT	/020283/
.ENABL	LC
.PSECT	CODE
.MCALL	.PRINT,.TTYOUT,.EXIT
;
.MACRO	ABORT	MES,CND,?LA,?LB
	.GLOBL	ABORT
	.IF	NB,CND
	 .IFT
		B'CND	LA
			BR	LB
		LA':	JSR	R1,ABORT
			.ASCII	/MES/<200>
			.EVEN
		LB':
	 .IFF
			JSR	R1,ABORT
			.ASCII	/MES/<200>
			.EVEN
	.ENDC
.ENDM	ABORT
;
ABORT::	.PRINT	R1		;	output abort message
	.TTYOUT	#'!		;	terminate message
	.EXIT			;	terminate execution
.END