;
;
;-----------------------------------------------------------------------------
;
;	SUBROUTINE:	A T D E T
;
;	AUTHOR:		Jan H. Belgraver
;
;	DATE:		15-JUN-83
;
;	VERSION:	1.0
;
;	MODIFIED BY:	
;
;	PURPOSE:	Attaches or detaches device depending on mode setting.
;
;	DESCRIPTION:
;
;	INPUT  FILES:	None
;
;	OUTPUT FILES:	None
;
;	LUNS:		None
;
;	EVENT FLAGS:	1
;
;	CALL:		ATDET	(LUN, MODE)
;
;	ARGUMENTS:	NAME		DESCRIPTION
;	    I		LUN	Logical Unit Number
;	    I		MODE	A	Attach
;				D	Detach
;
;	CALLS TO:	QIOW$S
;
;	PARAMETERS:	NAME		DESCRIPTION
;
;	BUILDING:	
;
;-----------------------------------------------------------------------------
;
;

;
;
	.TITLE	ATDET
	.IDENT	/V1.0/

	.MCALL	QIOW$S

ATDET::
	CMP	#'D,4(R5)		; Detach-mode?
	BEQ	5$			; Yes

	QIOW$S	#IO.ATT,2(R5),#1	; ATTACH LUN
	BR	RTSPC			; Exit

5$:	QIOW$S	#IO.DET,2(R5),#1	; DETACH LUN

RTSPC:	RTS	PC			; Exit
	.END