.TITLE	MMT9..
	.IDENT	/MMT9../
	.MCALL QIOW$S
;
;
;
MT$MARK::			;THIS ROUTINE WRITE AN END OF TAPE MARK
;
;	ENTRY CONDITIONS
;	NONE
;
;	EXIT CONDITIONS
;	STATUS = SUCCESS OR ERROR
;
;
	QIOW$S	#IO.EOF,MT$LUN,MT$EFN,,#MT$ISB
	JMP MT$EXIT		;RETURN VIA GENERAL EXIT ROUTINE
;
	.END
;
;
;