HELV7.MAC/-AU=HELLO.MAC
-2,2
	.IDENT	/V7.03/						; [SMT842]
-98
;
;	SMT814	12-APR-82	ADD ACCOUNTING V7 SUPPORT
;
;	SMT829	30-JUL-82	FIX GARBLED CONSOLE LOGON MESSAGE BETWEEN
;				6PM AND MIDNIGHT.
;
;	SMT842	13-APR-83	ADD SUPPORT FOR BATCH SYSTEM VERSION 3
;

-108
	.IF DF	AA$ACC						; [SMT814]
	BATDV$		;  DEFINE BATCH DEVICE NAME		; [SMT814]
	.IFF							; [SMT814]
	.IF DF	B3$BAT						; [SMT842]
	BV3DV$							; [SMT842]
	.ENDC	; DF B3$BAT					; [SMT842]
	.ENDC	; DF AA$ACC					; [SMT814]
-153
	.BLKB	14.						; [SMT829]
-332
	.IF DF	AA$BV3						; [SMT842]
$BATCH::.WORD	0		; BATCH V3 FLAG			; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
-374
								; [SMT842]
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
	MOV	U.DCB(R1),R0	; GET DCB ADDRESS		; [SMT842]
	CMP	D.NAM(R0),BATDEV	; VERSION 3 BATCH JOB?	; [SMT842]
	BNE	4$		; IF NE NO			; [SMT842]
	INC	$BATCH		; YES, SET FLAG			; [SMT842]
	MOVB	#240,OTPQIO+Q.IOPL+5 ; SEND MESSAGES TO HISTORY FILE
4$:				; REF. LABEL			; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
								; [SMT842]
-425,425
41$:								; [SMT842]
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT842]
	BEQ	411$		; IF EQ NO			; [SMT842]
	JMP	46$		; IF YES, DON'T NEED PASSWORD	; [SMT842]
411$:				; REF. LABEL			; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
								; [SMT842]
	CMPB	-1(R0),#'/	; PASSWORD COMMING?		; [SMT842]
-476
	.IF DF	AA$ACC		; 				; [SMT814]
	CALL	$GHLOG		;  GET LOG...'S TCB ADDRESS	; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
-532,532
4814$:								; [SMT814]
	.IF DF	AA$ACC		; 				; [SMT814]
	MOV	ENTRY,R0	;  GET ACCOUNT ENTRY ADDRESS	; [SMT814]
	CALL	$MONEY		;  CHECK ACCOUNT BALANCE	; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
	TST	#$DNTSB		; DECNET SUBROUTINE SUPPLIED?	; [SMT814]
-641
	.IF DF	AA$ACC		; 				; [SMT814]
	CALL	$SNDHL		;  SEND LOGON REQUEST TO LOG...	; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
-661
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT842]
	BEQ	511$		; IF EQ NO			; [SMT842]
	JMP	7222$		; IF YES, SKIP INITIAL MESSAGES	; [SMT842]
511$:				; REF. LABEL			; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
								; [SMT842]
-732,732
70$:								; [SMT814]
	.IF DF	AA$ACC		; 				; [SMT814]
	CALL	$FNAM4		;  ADD USER'S FIRST NAME	; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
	CALL	WRIT		; PRINT OUT MESSAGE		; [SMT814]
								; [SMT814]
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
7222$:				; REF. LABEL			; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
	.IF DF	AA$ACC		; 				; [SMT814]
	CALL	$FINLG		;  FINISH ACCOUNTING PROCESSING	; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
-800,802
								; [SMT842]
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT842]
	BNE	7921$		; IF NE YES, FORCE BATCH.TXT	; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
								; [SMT842]
	TST	WHAT		; IS THIS A BATCH JOB?		; [SMT842]
	BMI	792$		; BR IF NOT			; [SMT842]
7921$:	MOV	#BATNAM, 12(R1)	; SET BATCH.TXT			; [SMT842]
-897
	.IF DF	AA$ACC		; 				; [SMT814]
	.IF DF	AA$BAT		; 				; [SMT814]
				; 				; [SMT814]
	INC	SILENT		;  ASSUME BATCH			; [SMT814]
	MOV	$TKTCB,R0	;  GET OUR TCB ADDRESS		; [SMT814]
	MOV	T.UCB(R0),R0	;  GET TI: UCB ADDRESS		; [SMT814]
	MOV	U.DCB(R0),R0	;  GET DCB ADDRESS		; [SMT814]
	CMP	D.NAM(R0),BATDEV ; LOGGING ON AT VIRTUAL TERMINAL?; [SMT814]
	BEQ	180$		;  IF EQ YES, SKIP LOGIN.CMD	; [SMT814]
	DEC	SILENT		;  NORMAL TERMINAL		; [SMT814]
				; 				; [SMT814]
	.ENDC	; DF AA$BAT	; 				; [SMT814]
	.ENDC	; DF AA$ACC	; 				; [SMT814]
								; [SMT814]
-1515
								; [SMT842]
	.IF DF	AA$BV3						; [SMT842]
								; [SMT842]
	TST	$BATCH		; VERSION 3 BATCH JOB?		; [SMT842]
	BNE	40$		; IF NE YES, SKIP PASSWORD CHECK; [SMT842]
								; [SMT842]
	.ENDC	; DF AA$BV3					; [SMT842]
								; [SMT842]
/