SUBROUTINE REGSRC(FUNC, OPND, OTYPE, SUBSC, STYPE, BIAS, REG) 
      EXTERNAL  OLREG   
      INTEGER FUNC, OPND, OTYPE, SUBSC, STYPE, BIAS, REG
      CALL OREGS(FUNC, OPND, OTYPE, SUBSC, STYPE, BIAS, REG)
      RETURN
      END