;      *******************************************************
;      *                                                     *
;      *      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 V3.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
	.TITLE	RECCML	RECEIVE TIMESHARING PRIMITIVES MESSAGE
	.IDENT	/ICR001/
;
;CALLING SEQUENCE
;	CALL RECCML (BUFFER,RECLEN)
;
;INPUTS
;	BUFFER	80 BYTE BUFFER TO RECEIVE COMMAND LINE
;
;OUTPUTS
;	BUFFER	COMMAND LINE RECEIVED
;	RECLEN	COMMAND LINE LENGTH, -80 IF NO COMMAND LINE
;
	.MCALL	RCV$T, SDBDF$
;
RECCML::
	RCV$T	#SDB			;RECEIVE MESSAGE.
	BCS	100$			;CS - ERROR.
	MOV	#INTBUF,R0		;GET OUR BUFFER ADDRESS
	MOV	2(R5),R1		;AND CALLERS BUFFER
	MOV	(R0)+,R2		;MESSAGE LENGTH
	MOV	R2,@4(R5)		;RETURN IT.
	BEQ	20$
10$:
	MOVB	(R0)+,(R1)+		;TRANSFER THE MESSAGE.
	SOB	R2,10$			;UNTIL DONE.
20$:
	RETURN
100$:
	MOV	#-80.,@4(R5)		;ERROR STATUS
	RETURN
;
SDB:	SDBDF$	INTBUF,82.
INTBUF:	.BLKB	82.			;INTERNAL MESSAGE BUFFER
;
	.END