.TITLE	MMT3..
	.IDENT	/MMT3../
	.MCALL ALUN$S
;
MT$SHUT::			;THIS ROUTINE CLOSES A MAGNETIC TAPE CHANNEL
;
;
;	ENTRY CONDITIONS
;	NONE
;
;	EXIT CONDITIONS
;	STATUS = SUCCESS OR ERROR
;
	ALUN$S MT$LUN
	MOV $DSW,MT$DSW		;SAVE DIRECTIVE STATUS WORD
	RETURN			;BACK TO CALLING PROGRAM
;
;
;
	.END
;