hscodx DEPRECATED

;	hscodx( name.i2.r, icode.i2.r, iop.i2.r )
;
;	This routine translates a 2-character pseudo house name
;	for B0 and D0 into an internal number code or translates in the 
;	other direction based on the value of the parameter IOP.
;
;	name 	word containing/receiving the 2 ASCII char
;		name designation.
;
;	icode 	word containing/receiving the internally
;		assigned number code.  Valid numbers are 51 through 62.
;		ICODE will return a "-1" if a 2 character name is not
;		found in its table or the internal code number encountered
;		is considered to be invalid.
;
;	iop  	0 for translating name to code number, non-zero for translating 
;		code number to 2-char name.
;