HELV7.MAC/-AU=HELLO.MAC
-2,2
	.IDENT	/V7.02/
-98
;
;	SMT814	12-APR-82	ADD ACCOUNTING V7 SUPPORT
;
;	SMT829	30-JUL-82	FIX GARBLED CONSOLE LOGON MESSAGE BETWEEN
;				6PM AND MIDNIGHT.
;
-108

	BATDV$		; [*** ACCOUNTING ***] DEFINE BATCH DEVICE NAME
-153
	.BLKB	14.		; SMT829
-476
				; [*** ACCOUNTING ***]
	CALL	$GHLOG		; [*** ACCOUNTING ***] GET LOG...'S TCB ADDRESS
				; [*** ACCOUNTING ***]
-532,532
4814$:				; [*** ACCOUNTING ***]
	MOV	ENTRY,R0	; [*** ACCOUNTING ***] GET ACCOUNT ENTRY ADDRESS
	CALL	$MONEY		; [*** ACCOUNTING ***] CHECK ACCOUNT BALANCE
				; [*** ACCOUNTING ***]
	TST	#$DNTSB		; DECNET SUBROUTINE SUPPLIED?
-641
				; [*** ACCOUNTING ***]
	CALL	$SNDHL		; [*** ACCOUNTING ***] SEND LOGON REQUEST TO LOG...
				; [*** ACCOUNTING ***]
-732,732
70$:				; [*** ACCOUNTING ***]
	CALL	$FNAM4		; [*** ACCOUNTING ***]
				; [*** ACCOUNTING ***]
	CALL	WRIT		; PRINT OUT MESSAGE				;SA306
				; [*** ACCOUNTING ***]
	CALL	$FINLG		; [*** ACCOUNTING ***] FINISH ACCOUNTING PROCESSING
				; [*** ACCOUNTING ***]
-897
				; [*** ACCOUNTING ***]
	.IF DF	AA$BAT		; [*** ACCOUNTING ***]
				; [*** ACCOUNTING ***]
	INC	SILENT		; [*** ACCOUNTING ***] ASSUME BATCH
	MOV	$TKTCB,R0	; [*** ACCOUNTING ***] GET OUR TCB ADDRESS
	MOV	T.UCB(R0),R0	; [*** ACCOUNTING ***] GET TI: UCB ADDRESS
	MOV	U.DCB(R0),R0	; [*** ACCOUNTING ***] GET DCB ADDRESS
	CMP	D.NAM(R0),BATDEV ;[*** ACCOUNTING ***] LOGGING ON AT VIRTUAL TERMINAL?
	BEQ	180$		; [*** ACCOUNTING ***] IF EQ YES, SKIP LOGIN.CMD
	DEC	SILENT		; [*** ACCOUNTING ***] NORMAL TERMINAL
				; [*** ACCOUNTING ***]
	.ENDC	; DF AA$BAT	; [*** ACCOUNTING ***]
				; [*** ACCOUNTING ***]

/