;
;	AUTHOR:
;		R. STODOLA
;		THE INSTITUTE FOR CANCER RESEARCH
;		7701 BURHOLME AVE.
;		PHILADELPHIA, PA.  19111
;
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
;      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
;      *         NIH CA06927                                 *
;      *         NIH CA22780                                 *
;      *                                                     *
;      *      DIRECT INQUIRIES TO:                           *
;      *            COMPUTER CENTER                          *
;      *            THE INSTITUTE FOR CANCER RESEARCH        *
;      *            7701 BURHOLME AVENUE                     *
;      *            PHILADELPHIA, PENNSYLVANIA   19111       *
;      *                                                     *
;      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
;      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
;      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
;      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
;      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
;      *      OWNED RIGHTS.                                  *
;      *                                                     *
;      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
;      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
;      *      THE USE OF THIS SOFTWARE                       *
;      *                                                     *
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
;      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
	.TITLE	RCVMES	-- RECEIVE A MESSAGE.
	.IDENT	/ICR001/
	.MCALL	ERBLDF
;
ERM1=9.					;FATAL RECEIVE ERROR.
ERM2=10.				;BUFFER TOO SMALL (NON-FATAL)
;
ERB:	ERBLDF	RCVMES,ERM1,4,FATAL
;
SDB:	SDBDF$
;
RCVMES::
	MOV	#ERB,R4			;SET ERROR BLOCK.
	CALL	.CERR.			;INITIALIZE.
	RCV$T	#SDB,4(R5),@6(R5),#ERB+E..ESB
	BCC	GOTIT			;BRANCH IF SUCCEEDED.
	MOV	#-ERM1,R2
	CMPB	E..ESB+T.ERR+ERB,#PE.ABO;NOT BAD ERROR IF NO MESSAGE.
	BNE	BADERR
	CMPB	E..ESB+T.ERR+2+ERB,#PE.NOD
	BNE	BADERR
	MOV	#-2,@2(R5)		;INDICATE NO MESSAGE QUEUED.
RET:	RETURN
GOTIT:	MOV	SDB+T.SNDT,@2(R5)	;REPORT IDENT (NOTE -2 EQU NO MES).
	CMPB	E..ESB+T.ERR+2+ERB,#PS.RBS
	BNE	RET			;IF NO OVERFLOW RETURN, ELSE...
	MOV	#ERM2,R2		; REPORT NON-FATAL ERROR.
BADERR:	CALL	..STER			;ERROR REPORT.
	RETURN
	.END