/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/ EDIT #4
/
/ COPYRIGHT 1971,1972,1973,1974 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/
/ DTASGN                8 JAN 74              H. KREJCI
/						M. HEBENSTREIT
/
/ RSX CHECKOUT PACKAGE 
/
/ SUBROUTINE TO WAIT FOR LUN 37 TO BE ASSIGNED TO DT2
/
	.GLOBL	DTASGN,LOG
/
DTASGN	0
	CAL	HINF	/IS LUN 37 ASSIGNED TO DT2?
	CAL	WAIF
	LAC	EV
	SAD	(340204)
	JMP*	DTASGN	/YES -- RETURN
	DAC	PRVC	/NO -- SAVE HANDLER INFO CODES
/
OTMS	JMS*	LOG	/LOG MESSAGE
	.ASCII	"PLEASE REASSIGN LUN 37 TO DT2"<15>
/
DLAY	CAL	MARK	/DELAY 10 TICKS
	CAL	WAIF
/
	CAL	HINF	/IS LUN 37 ASSIGNED TO DT2?
	CAL	WAIF
	LAC	EV
	SAD	(340204)
	JMP*	DTASGN	/YES -- RETURN
	SAD	PRVC	/NO -- HAS ASSIGNMENT CHANGED?
	JMP	DLAY	/NO -- DLEAY & RE-CHECK
	DAC	PRVC	/YES -- UPDATE 'PRVC'
	JMP	OTMS	/OUTPUT MESSAGE AGAIN
/
HINF	3600	/HANDLER INFO CPB
	EV
	37
/
MARK	13	/MARK CPB
	EV
	12
	1
/
WAIF	20	/WAITFOR CPB
	EV
/
/
EV	0
PRVC	0	/PREVIOUS HINF CODES
/
	.END
