BATHELLO.MAC/AU=HELLO.MAC
-2,2,/; [ SMTBV3 ]/
	.IDENT	/V3B.0/
-332
BATV3:	.WORD	0		; BATCH V3 FLAG
-374
	MOV	U.DCB(R1),R0	; GET DCB ADDRESS
	CMP	D.NAM(R0),#"VT	; VERSION 3 BATCH JOB?
	BNE	4$		; IF NE NO
	INC	BATV3		; YES, SET FLAG
	MOVB	#240,OTPQIO+Q.IOPL+5 ; SEND MESSAGES TO HISTORY FILE
4$:				; REF. LABEL
-425,425
41$:	TST	BATV3		; VERSION 3 BATCH JOB?
	BEQ	411$		; IF EQ NO
	JMP	46$		; IF YES, DON'T NEED PASSWORD
411$:	CMPB	-1(R0),#'/	; PASSWORD COMMING?
-661
	TST	BATV3		; VERSION 3 BATCH JOB?
	BEQ	511$		; IF EQ NO
	JMP	7222$		; IF YES, SKIP INITIAL MESSAGES
511$:				; REF. LABEL
-732,732
70$:	CALL	WRIT		; PRINT OUT MESSAGE
7222$:				; REF. LABEL
-800,802
	TST	BATV3		; VERSION 3 BATCH JOB?
	BNE	7921$		; IF NE YES, FORCE BATCH.TXT
	TST	WHAT		; IS THIS A BATCH JOB?
	BMI	792$		; BR IF NOT
7921$:	MOV	#BATNAM, 12(R1)	; SET BATCH.TXT
-1515
	TST	BATV3		; VERSION 3 BATCH JOB?
	BNE	40$		; IF NE YES, SKIP PASSWORD CHECK
/