.TITLE	KILMCR-CALMCR - KILL OR REQUEST MCR AT USER TI:
	.IDENT	/01JUN7/	;11:10:00, LV
;	.ENTRY	KILMCR/CALMCR - KILL OR REQUEST MCR AT USER TI:
;+
; K I L M C R / C A L M C R
;
; K I L M C R
;
; PURPOSE:	THIS SUBROUTINE CALLS MCRREQ WITH A BLANK TASK
;		NAME.  THIS CAUSES MCRREQ TO CHECK IF MCR IS UP
;		AT USER TI: AND TO KILL IT IF SO.
;
; C A L M C R
;
; PURPOSE:	THIS SUBROUTINE REQUESTS...MCR AT USER TI:
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL KILMCR
;			CALL CALMCR
;
; LANGUAGE:	MACRO-11
;
; RESTRICTIONS:	THIS ROUTINE IS NOT USABLE UNDER RSX-11M.
;-
; REVISIONS:	
;    MAR-76	HVB	WRITTEN
; 01-JUN-77	LV	UPDATED TO CONFORM TO STANDARDS
;
	.MCALL	DIR$,SPND$S,VSDR$,VRCD$,RQST$
;
KILMCR::
	DIR$	#SRQ		;SEND AND REQUEST MCR
	BCS	OUT		;BRANCH IF ERROR
	SPND$S			;WAIT FOR MCRREQ TO COMPLETE
	DIR$	#REC		;GET MCRREQ ANSWER
OUT:
	RTS	PC
;
;
CALMCR::
	DIR$	#REQ
	RTS	PC
;
;
SRQ:
	VSDR$	MCRREQ,,,,,BUF,SIZ-BUF/2
BUF:
	.WORD	0
	.RAD50	/   /
	.WORD	END-STR
STR:
	.BYTE	33
END=.
	.EVEN
SIZ=.
REC:
	VRCD$	MCRREQ,CBUF,1
CBUF:
	.BLKW	3
REQ:
	RQST$	...MCR
;
	.END