; 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.