HELV7.MAC/-AU=HELLO.MAC
-1,4
	.TITLE	HELV7
	.IDENT	/V7.04/
;
; COPYRIGHT (C) 1976, 1978,1979
-24,24
; VERSION:	02
-97,103
;         RA300	  DO WAIT UNSTEAD OF STOP BIT 
;                   SINCE STOP MAY NOT BE THERE
;	SMT711	11-JUL-81 ADDED SUPPORT FOR ACCOUNTING SYSTEM V7 TO THE
;			  AUTOPATCH E UPDATED VERSION OF HELLO.
;
;	SMT714	13-JUL-81 DO NOT EXECUTE LOGIN.CMD IF LOGGING IN AT A
;			  VIRTUAL TERMINAL (REQUIRED FOR BATCH SYSTEM)
;
;	SMT753	 7-OCT-81 CHANGED NAME OF CONDITIONAL ASSEMBLY PARAMETERS
;
;	SMT769	12-OCT-81 CHANGED TO CENTRALISED BATCH DEVICE NAME
;
;	SMT776	26-OCT-81 USED $USESB AS AN INSTALLATION-SPECIFIC ROUTINE
;			  AND CALLED THE ACCOUNTING ROUTINE $MONEY.
;
	.MCALL	QIO$,DIR$,GMCR$,WTSE$S,OPEN$U,CLOSE$,READ$,GLUN$S,QIOW$		;MLG006
	.MCALL	ALTP$								;MLG055
	.MCALL	EXIT$S,GTIM$S,MRKT$,GET$,OPEN$R,FINIT$
	.MCALL	CSI$,CSI$1,CSI$2,NMBLK$						; SR001
	.MCALL	SPWN$,WTSE$						;RA300
;									;**-1
	BATDV$		; DEFINE BATCH STREAM DEVICE NAME
-122,123
WTEDPB:	WTSE$	EFN1							;RA300
 		;**-1
-138,138
ACCT:	.ASCIZ	/ACCOUNT OR NAME: /
-148,149
MS6:	.ASCIZ	/WHAT ARE YOU DOING UP AT THIS HOUR?/
LGNMSG:	.ASCIZ	/LOGIN  USER /
-284,284
LOGNAM:	.ASCII	/SY0:/		; DEVICE FOR [G,M]LOGIN.CMD
-289,289
LOGINC:	.ASCIZ	/@LOGIN.CMD/<15> ;
-326,326

-379,379
	CALL	ERR4		; ERROR, NONE THERE
-387,387
	MOV	#IO.ATT,2(R4)	; ATTACH
-394,394
	MOV	T.UCB(R1),R1	; GET TI: UCB ADDRESS
-491,493
46$:	CALL	$GHLOG		; GET LOG...'S TCB ADDRESS
	CALL	$SWSTK,465$	; SWITCH TO SYSTEM STATE			;MLG007
	MOV	$TKTCB,R1	; GET MY TCB ADDRESS
-525,525
	CLR	OPNERR		; SET NO OPEN ERROR
-552,552
4814$:	MOV	ENTRY,R0	; POINT TO ACCOUNT FILE ENTRY
	CALL	$MONEY		; MAKE SURE ACCOUNT HAS MONEY
	TST	#$DNTSB		; IS DECNET SUBROUTINE PRESENT?			;MLG079
-559,559
	ADD	#A.GRP,R0	; INT TO GROUP CODE
-590
	CALL	$SNDHL		; SEND LOGON REQUEST TO LOG...
-672,672
70$:	CALL	$FNAME		; INSERT FIRST NAME IN MESSAGE
	CALL	WRIT		; PRINT OUT MESSAGE
-680,683
	CLRB	(R0)		; SET END OF LINE
	MOV	#MS2,R0		; POINT TO BUFFER
	CALL	WRIT		; WRITE IT OUT
	CALL	$FINLG		; FINISH ACCOUNTING PROCESSING
-688,688
	MOV	H.LUN+<<LUN3-1>*4>(R0),R0 ; GET UCB ADDR FOR CO:
-730,730
	MOV	#MSGDSP,R1	; GET ADDRESS OF LOGIN.TXT FILE NAME
-736,736
	MOV	#IO.DET,2(R4)	; SET TO DETACH TERMINAL
-751,752
	DIR$	#WTEDPB		; WAIT UNTIL ASSIGN COMPLETES		;RA300
	BR	170$	;**-1
-774,777
160$:	BIT	#U2.AT.,U.CW2(R1) ; ASN DONE?
	BEQ	170$		; YES
	DIR$	#MKT		; NO, WAIT FOR 1/4 SECOND			; SR003
	BCS	175$		;
-786,786
	ROR	(SP)+		; SHOULD WE WAIT FOR CO: TO FINISH?
-838
	.IF DF	AA$BAT

	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),BATDEV ; LOGGING ON AT VIRTUAL TERMINAL?
	BEQ	210$		; IF EQ YES, SKIP LOGIN.CMD

	.ENDC	; DF AA$BAT

-906,906
DETACH:	MOV	#ODPB,R4	; GET OUTPUT DPB ADDRESS
-998,998
	CLC			; SET SUCCESS
-1084,1084
40$:	SEC			; ERROR
-1286,1286
	MOV	PSWDBF,R1	; POINT TO PASSWORD TYPED IN
-1295,1295
	CMPB	(R1)+,(R0)+	; NO, MATCH?
-1300,1300
10$:	SEC			; SET ERROR
-1625,1625
	BCS	FILERR		; REPORT FILE SYSTEM PROBLEM
-1662,1662
	CALL	NXTREC		; DOES ANOTHER KEYWORD RECORD EXIST?
-1680,1680
	MOV	#3*2+MARKSV,R2	; ASSOCIATED WITH THIS KEYWORD RECORD.
-1697,1697
	BR	27$		;
-1740,1744
;	CARRY SET - NO MORE RECORDS IN FILE OR FOUND A RECORD WITH A
;			LEVEL NUMBER LESS THAN THAT OF THE USER KEYWORD
;	R4, R5 - PRESERVED							; SR005
;	IF SYNONYM RECOGITION IS ENABLED, A SYNONYM MAY BE SAVED.		; SR005
;-
-1750,1750
	BEQ	NXTREC		; IGNORE ZERO LENGTH RECORDS
-1758,1758
	BCS	NXTREC		; NO, IGNORE THE RECORD
-1770,1770
;	R4 - POINTS AT FIRST CHARACTER OF CURRENT USER KEYWORD
-1777,1777
;-
-1801,1801
	BEQ	20$		; NO MORE CHARACTERS
-1814,1814
	BEQ	20$		; NO, IMPROPER HELP FILE FORMAT
-1823,1827
	BNE	45$		; NO, KEEP TRYING
50$:	CLR	INDFLG		; IGNORE INDIRECT FILE SPECS 			; SR001
	SEC			; SHOW NO MATCH					; SR001
60$:	MOV	R4,R1		; SAVE HOW FAR WE GOT INTO USER KEYWORD		; SR001
	MOV	(SP)+,R4	; RESTORE R4
/