HELLO.MAC/AU=HELLO.MAC
\
-2,2
	.IDENT	/3M EST/
-132,,
;
;	UWA01	PRINT TEXT FILE [1,2]NOLOG.TXT IF LOGONS ARE DISABLED
;
;	UWA02	PRINT STRIKEOVER MASK ON LOGINS OF FORM NAME/PASSWORD
;
;	EST01	ADD NAME OF INSTALLATION IN DEFAULT LOGIN MESSAGE
;
%
-155,,/; UWA02/
COVRUP:	.ASCII	/MREWMEWRWMEMRMWEEMRMEEMEMEWRWWMEMRMEWMWRMEEW/<15>
	.ASCII	/3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M3M/<15>
	.ASCIZ	/ES&T*ENGINEERING*SYSTEMS*AND*TECHNOLOGY*ES&T/
-165,165,/; EST01/
MS1:	.ASCII	<15><12>% 3M ES&T RSX-11M-PLUS V01 BL%
-235,,/; UWA01/
NLGDSP:	.WORD	4
	.WORD	DEVNAM
	.WORD	5
	.WORD	DIRNAM
	.WORD	9.
	.WORD	NLGNAM

-264,,/; UWA01/
NLGNAM:	.ASCII	/NOLOG.TXT/
	.EVEN
-487,487,/; UWA01/
	MOV	#ER7, R0		; Move addr of error message to R0
	MOV	#40, ODPB+Q.IOPL+4	; Set normal carriage return
	CALL	WRIT			; Print error message
	MOV	#NLGDSP, R1		; Get ready to print NOLOG.TXT
	CALL	DSPFIL			; Print it
	MOV	#ODPB, R4		; Move output DPB addr to R4
	MOV	#IO.DET, 2(R4)		; Set QIO function to detach
	CALL	QIO			; Detach invoking terminal
	JMP	ERROR1			; And exit
-515,,/; UWA02/
	MOV	#53, ODPB+Q.IOPL+4	; Do not space a line
	MOV	#COVRUP, R0		; Move strikeover mask addr to R0
	CALL	WRIT			; Print strikeover mask on line
	MOV	#40, ODPB+Q.IOPL+4	; LF before, CR after
-916,916,/; UWA01
ERROR1:	MOV	$TKTCB, R0		; Move TCB address to R0
/