.TITLE	SEND
	.LIST	MEB
	.MCALL GMCR$,SDAT$S,EXIT$S,DIR$,SDAT$C,QIOW$C
SEND::	
	DIR$	#GMCR
	BCS	NONE
;	QIOW$C	IO.WVB,1,1,,,,<GMCR+2,10>
	MOV	#GMCR+2,R0
	MOVB	$DSW,R3			;NUMBER OF CHAR
	BLE	NONE
1$:	CMPB	(R0)+,#' 		;IS IT BLANK
	BEQ	2$			;NO
	SOB	R3,1$
	BR	NONE
2$:	CMPB	(R0),#' 		;NOW NON BLANK
	BNE	3$
	TSTB	(R0)+
	SOB	R3,2$
	BR	NONE
3$:
	MOV	#1,R1
	CALL	$CAT5
	MOV	R1,SDAT
	SUB	#3,R3			;DONE
	BLE	DONE
	MOV	#1,R1
	CALL	$CAT5
	MOV	R1,SDAT+2
	MOV	#SDAT,R2
DONE:	SDAT$S	R2,#GMCR+8.
	BCS	NONE
	EXIT$S
NONE:	QIOW$C	IO.WVB,1,1,,,,<ERROR,39.>
	EXIT$S
ERROR:	.BYTE	15,12
	.ASCII	/*** ERROR *** WRONG TASK SPECIFIED/
	.BYTE	15,12,12
	.EVEN
SDAT:	.BLKW	4
GMCR:	GMCR$
	.END	SEND