HELV7.MAC/-AU=HELLO.MAC
-1,4
	.TITLE	HELLO - MCR LOGON COMMAND
	.IDENT	/02.2V7/					; [SMT851]
-109,109
;	
;	SMT851	22-JUL-83	ADDED SUPPORT FOR V7 ACCOUNTING	; [SMT851]
;				AND V2/V3 BATCH TO V4.1 HELLO	; [SMT851]
;								; [SMT851]
-119
	.IF DF	AA$ACC						; [SMT851]
	BATDV$		;  DEFINE BATCH DEVICE NAME		; [SMT851]
	.IFF							; [SMT851]
	.IF DF	B3$BAT						; [SMT851]
	BV3DV$							; [SMT851]
	.ENDC	; DF B3$BAT					; [SMT851]
	.ENDC	; DF AA$ACC					; [SMT851]
-164
	.BLKB	14.						; [SMT851]
-343
								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
$BATCH::.WORD	0		; BATCH V3 FLAG			; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
-386
								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
	MOV	U.DCB(R1),R0	; GET DCB ADDRESS		; [SMT851]
	CMP	D.NAM(R0),BATDEV	; VERSION 3 BATCH JOB?	; [SMT851]
	BNE	4$		; IF NE NO			; [SMT851]
	INC	$BATCH		; YES, SET FLAG			; [SMT851]
	MOVB	#240,OTPQIO+Q.IOPL+5 ; SEND MESSAGES TO HISTORY FILE; [SMT851]
4$:				; REF. LABEL			; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
								; [SMT851]
-437,437
41$:								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT851]
	BEQ	411$		; IF EQ NO			; [SMT851]
	JMP	46$		; IF YES, DON'T NEED PASSWORD	; [SMT851]
411$:				; REF. LABEL			; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
								; [SMT851]
	CMPB	-1(R0),#'/	; PASSWORD COMMING?		; [SMT851]
-498
	.IF DF	AA$ACC		; 				; [SMT851]
	CALL	$GHLOG		;  GET LOG...'S TCB ADDRESS	; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
-553,553
4814$:								; [SMT851]
	.IF DF	AA$ACC		; 				; [SMT851]
	MOV	ENTRY,R0	;  GET ACCOUNT ENTRY ADDRESS	; [SMT851]
	CALL	$MONEY		;  CHECK ACCOUNT BALANCE	; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
	TST	#$DNTSB		; DECNET SUBROUTINE SUPPLIED?	; [SMT851]
-664
	.IF DF	AA$ACC		; 				; [SMT851]
	CALL	$SNDHL		;  SEND LOGON REQUEST TO LOG...	; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
-684
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT851]
	BEQ	511$		; IF EQ NO			; [SMT851]
	JMP	7222$		; IF YES, SKIP INITIAL MESSAGES	; [SMT851]
511$:				; REF. LABEL			; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
								; [SMT851]
-755,755
70$:								; [SMT851]
	.IF DF	AA$ACC		; 				; [SMT851]
	CALL	$FNAM4		;  ADD USER'S FIRST NAME	; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
	CALL	WRIT		; PRINT OUT MESSAGE		; [SMT851]
								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
7222$:				; REF. LABEL			; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
	.IF DF	AA$ACC		; 				; [SMT851]
	CALL	$FINLG		;  FINISH ACCOUNTING PROCESSING	; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
-822,824
								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT851]
	BNE	7921$		; IF NE YES, FORCE BATCH.TXT	; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
								; [SMT851]
	TST	WHAT		; IS THIS A BATCH JOB?		; [SMT851]
	BMI	792$		; BR IF NOT			; [SMT851]
7921$:	MOV	#BATNAM, 12(R1)	; SET BATCH.TXT			; [SMT851]
-918
	.IF DF	AA$ACC		; 				; [SMT851]
	.IF DF	AA$BAT		; 				; [SMT851]
				; 				; [SMT851]
	INC	SILENT		;  ASSUME BATCH			; [SMT851]
	MOV	$TKTCB,R0	;  GET OUR TCB ADDRESS		; [SMT851]
	MOV	T.UCB(R0),R0	;  GET TI: UCB ADDRESS		; [SMT851]
	MOV	U.DCB(R0),R0	;  GET DCB ADDRESS		; [SMT851]
	CMP	D.NAM(R0),BATDEV ; LOGGING ON AT VIRTUAL TERMINAL?; [SMT851]
	BEQ	180$		;  IF EQ YES, SKIP LOGIN.CMD	; [SMT851]
	DEC	SILENT		;  NORMAL TERMINAL		; [SMT851]
				; 				; [SMT851]
	.ENDC	; DF AA$BAT	; 				; [SMT851]
	.ENDC	; DF AA$ACC	; 				; [SMT851]
								; [SMT851]
-1538
								; [SMT851]
	.IF DF	AA$BV3						; [SMT851]
								; [SMT851]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT851]
	BNE	40$		; IF NE YES, SKIP PASSWORD CHECK; [SMT851]
								; [SMT851]
	.ENDC	; DF AA$BV3					; [SMT851]
								; [SMT851]
/