OU:HELLO.MAC;2/-BF/AU:72.=IN:[12,10]HELLO.MAC;1
\
-98
;
;	JOSEPH S. SVENTEK, 28-APR-82
;		JS001 -- ASN SY:=HO:/LOGIN
%
-124,,/; JS001/
HOME:	.ASCII	%ASN SY:=HO:/LOGIN%
HOMLEN=.-HOME
-887,887,/; JS001/
170$:					; Reference label
	MOV	#HOME,SPAWN+S.PWCA	; BUILD DPB FOR HO: ASN
	MOV	#HOMLEN,SPAWN+S.PWCL	; ...
	DIR$	#SPAWN			; SPAWN ASN COMMAND
	BCS	171$			; C SET => ERROR
	STSE$S	#EFN2			; WAIT FOR IT TO COMPLETE
	BCS	171$			; REAL BAD KARMA
	CMP	EXST,#EX$SUC		; SUCCESSFUL COMPLETION?
	BEQ	172$			; YES
171$:
	MOV	#ER13,R0		; Spawn failure
	CALL	$EROUT			; Notify user
172$:
	MOV	#ODPB,R4		; GET TERMINAL DPB ADDRESS
/