;
;	This is the password hashing routine.  This code is available 
; 	on the VAX/VMS 4.4 micro-fiche.  There has been modifications
;	made to this routine so that FORTRAN may make a subroutine
;	call to it.  This change consisted of masking off bits in the
;	arguments being passed in.
;
;	Type in everything up to but NOT including the ENTRY statement
;	here

.ENTRY	IIT_HPWD,^M<R2,R3,R4,R5,R6>
	BICL	#^XFFFF0000,@USRDSC(AP)	; The bit masking
	BICL	#^XFFFF0000,@PWDDSC(AP)	; on the arguments
	BICL	#^XFFFF0000,@OUTDSC(AP)	; being passed in

;	Type in everything after the ENTRY point
;	here