BATALLOV.MAC/-AU=ALLOV.MAC
-2,2
	.IDENT	/4.02B/						; [ SMTBV3 ]
-26,26
;	STEVE THOMPSON	15-AUG-83				; [ SMTBV3 ]
;	ADD BATCH SYSTEM V3 SUPPORT (WAIT FOR ALLOCATE)		; [ SMTBV3 ]
-30
	.MCALL	MRKT$S,WTSE$S,STSE$S				; [ SMTBV3 ]
-250,252
60$:	CLR	A$LERR(R5)		; RESET ERROR INDICATOR	; [ SMTBV3 ]
	CALL	$ALLOC			; ALLOCATE A DEVICE	; [ SMTBV3 ]
90$:	MOV	A$LERR(R5),$MERRN	; SET UP ERROR CODE	; [ SMTBV3 ]
	BEQ	100$			; EQ -> NO ERROR	; [ SMTBV3 ]
	CMP	$MERRN,#53.		; DEVICE ALLOCATED TO OTHER USER?
	BNE	99$			; IF NE NO, OTHER ERROR	; [ SMTBV3 ]
	MOV	$MUCB,R3		; GET TI: UCB ADDRESS	; [ SMTBV3 ]
	MOV	U.DCB(R3),R3		; GET DCB ADDRESS	; [ SMTBV3 ]
	CMP	D.NAM(R3),#"VT		; BATCH JOB?		; [ SMTBV3 ]
	BNE	99$			; IF NE NO, GIVE AN ERROR; [ SMTBV3 ]
	MRKT$S	#19.,#10.,#2		; MARK TIME FOR 10 SECONDS; [ SMTBV3 ]
	BCS	60$			; JUST IN CASE		; [ SMTBV3 ]
	STSE$S	#19.			; STOP UNTIL TIME PASSES; [ SMTBV3 ]
	BCC	60$			; TRY AGAIN		; [ SMTBV3 ]
	WTSE$S	#19.			; MAYBE NO STOP BIT	; [ SMTBV3 ]
	BR	60$			; THEN TRY AGAIN	; [ SMTBV3 ]
99$:					; REF. LABEL		; [ SMTBV3 ]
/