;
;	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	.SDAT.	-- SEND DATA TO A TERMINAL
	.IDENT	/ICR001/
	.MCALL	ALUN$,VRCS$,QIOW$,EXIT$S,DIR$
;
AL:	ALUN$	1,TT,0		;ASSIGN LU 1 TO TT?
;
VRC:	VRCS$	,UBUF,44.	;RECEIVE OR SUSPEND.
;
Q:	QIOW$	IO.WBT,1,1,,,,<UBUF+10,0,40>
;
UBUF:	.BLKW	44.		;BUFFER FOR RECEIVE.
;
;	DEFINE IE.SPD FOR EASE
;
IE.SPD=2
;
;	PROGRAM ENTRY
;
START:
	DIR$	#VRC		;GET RECEIVE BLOCK
	BCS	10$
	CMPB	@#$DSW,#IS.SPD	;IF SUSPENDED, RETURN FOR MORE.
	BEQ	START
	CMPB	@#$DSW,#IS.SUC
	BEQ	SMES
10$:	EXIT$S			;IF OTHER ERROR, BETTER STOP.
;
SMES:	MOV	UBUF+4,AL+A.LUNU;SET TERMINAL UNIT #
	DIR$	#AL		;ASSIGN LU.
	BCS	START		;RETRY IF NO DEVICE.
	MOV	UBUF+6,Q+Q.IOPL+2	;SET # OF BYTES
	DIR$	#Q		;TYPE AND WAIT UNTIL DONE.
	BR	START		;GO GET NEXT
	.END	START