.TITLE SPNMCR
		.IDENT	/1.1X/
 
; MODULE TO TAKE OUTPUT FROM CCL.MAC AS ADDR OF FIRST CHAR, 
; LENGTH IN CHARACTERS, AND TO OUTPUT AN MCR COMMAND LINE
; USE THE SPAWN DIRECTIVE TO SEND MESSAGES TO MCR
;
; J. DOWNWARD  16-FEB-79
;
 
	.MCALL	SPWN$,DIR$
 
 
LEN:	.WORD	0
EXSTAT:	.BLKW	8.
SPNDPB:	SPWN$	...MCR,,,,,,,EXSTAT,,
 
PUTMCR::
	TST	(R5)+		; BUMP POINTER F4P STYLE
	MOV	@(R5)+,LEN	; GET LENGTH OF BUFFER FROM CCL
	CMP	#79.,LEN	; NOW WE CAN'T HAVE A BUFFER >79 CHAR.
	BLT	ERR		; OR ELSE ERROR
	MOV	(R5),SPNDPB+S.PWCA ; INSERT COMMAND LINE ADDRESS
	MOV	LEN,SPNDPB+S.PWCL  ; INSERT COMMAND LINE LENGTH
	DIR$	#SPNDPB		; SPAWN COMMAND TO MCR
	BCS	ERR		; SHOW ERROR IF SPAWN FAILED
	RETURN
 
ERR:	SEC			; SHOW SPAWN FAILED(CARRY SET)
	RETURN
	.END