.TITLE	MM0
	.IDENT	/V1.1/

;*******************************************************************
;
; MM0.TSK
;
;	THIS TASK TRIES TO DETERMINE IF THE TAPE DRIVE IS ONLINE
;	BY SENSING FOR A SELECT ERROR ON IO.SEC
;	UNIT 1 IS ASSIGNED TO MM0:
;
;	S.M. THOMPSON, 4 FEB 80
;
;******************************************************************

	.MCALL	EXST$S,QIOW$S

SELERR	=	700		; THIS BIT IS SET IN THE SECOND I/O
				; STATUS WORD IF A SELECT ERROR OCCURRED

IOSB:	.BLKW	2		; I/O STATUS BLOCK

$MM0EP:
	QIOW$S	#IO.SEC,#1,#1,,#IOSB ; SENSE TAPE CHARACTERISTICS
	BCS	10$		; IF ERROR ASSUME IT'S OFFLINE
	BIT	#SELERR,IOSB+2	; SELECT ERROR?
	BNE	10$		; YES
	EXST$S	#EX$SUC		; ONLINE, EXIT SUCCESSFULLY
10$:	EXST$S	#EX$SEV		; ELSE EXIT WITH SEVERE ERROR

	.END	$MM0EP