BATHELLO.MAC/-AU=HELLO.MAC
-1,4,/; [ SMTBV3 ]/
	.TITLE	HELLO - MCR LOGON COMMAND INCL. BATCH SUPPORT
	.IDENT	/02.2B/
-343
BATV3:	.WORD	0		; BATCH V3 FLAG
-386
	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
-437,437
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?
-684
	TST	BATV3		; VERSION 3 BATCH JOB?
	BEQ	511$		; IF EQ NO
	JMP	7222$		; IF YES, SKIP INITIAL MESSAGES
511$:				; REF. LABEL
-755,755
70$:
	CALL	WRIT		; PRINT OUT MESSAGE
7222$:				; REF. LABEL
-822,824
	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
-918
	INC	SILENT		;  ASSUME BATCH
	MOV	$TKTCB,R0	;  GET OUR TCB ADDRESS
	MOV	T.UCB(R0),R0	;  GET TI: UCB ADDRESS
	MOV	U.DCB(R0),R0	;  GET DCB ADDRESS
	CMP	D.NAM(R0),#"VT	; LOGGING ON AT VIRTUAL TERMINAL?
	BEQ	180$		;  IF EQ YES, SKIP LOGIN.CMD
	DEC	SILENT		;  NORMAL TERMINAL
-1538
	TST	BATV3		; VERSION 3 BATCH JOB?
	BNE	40$		; IF NE YES, SKIP PASSWORD CHECK
/