 Fluke Corporation. All Rights Reserved.                   MET/CAL Procedure
=============================================================================
INSTRUMENT:            Sub Get Options /UWSG
DATE:                  2005-01-31
AUTHOR:                Fluke
REVISION:              $Revision: 2619 $
ADJUSTMENT THRESHOLD:  70%
NUMBER OF TESTS:       1
NUMBER OF LINES:       173
=============================================================================
#
#  Procedure Author:
#        DFM
#
#  Compatibility:
#        MET/CAL 7.11 or later
#
#  Subprocedures:
#        None
#
# Required Files:
#        None
#
#  This procedure is intended for use with MET/CAL calibration software;
#  the terms and conditions set forth in your MET/CAL license apply to this
#  procedure.
#
#  Due to Fluke's policy of continuously updating our products, this procedure
#  may contain minor differences in methods used and/or specifications to
#  those found in the manual or other documentation. While every effort has
#  been made to ensure that this procedure is accurate, Fluke cannot be held
#  responsible for the consequences of error or omissions found within this
#  procedure.
#
#  Example:
#        MATH         MEM2 = INSTR("UWSG")
#
#  The copyright in this procedure is owned by Fluke Corporation.
#
 STEP    FSC    RANGE NOMINAL        TOLERANCE     MOD1        MOD2  3  4 CON

# Check for HP 8340/8341 fitted options.
  1.001  MATH         L[1] = FINDI(S[2], "8340", 1)
  1.002  MATH         L[1] = FINDI(S[2], "8341", 1) || L[1]

  1.003  IF           L[1]
  1.004  OPBR         The HP 8340/8341 Synthesized Sweepers may include
  1.004  OPBR         Options 001, 004, or 005 that affects amplitude
  1.004  OPBR         specifications.
  1.004  OPBR
  1.004  OPBR         Does the configured unit have any of the above
  1.004  OPBR         options fitted?

  1.005  IF           MEM1 > 0
  1.006  MEM2         Enter the fitted option number (001, 004, 005):
  1.007  MATH         PUT("Ampl_Opt", MEM2)
  1.008  ELSE
  1.009  MATH         PUT("Ampl_Opt", "")
  1.010  ENDIF

  1.011  ENDIF

# Check for HP/Agilent 83620 fitted options.
  1.012  IF           FINDI(S[2], "83620", 1)
  1.013  OPBR         The HP 83620A/B Synthesized Sweepers may include
  1.013  OPBR         Option 001 that affects amplitude specifications.
  1.013  OPBR
  1.013  OPBR         Does the configured unit have Option 001 fitted?

  1.014  IF           MEM1 > 0
  1.015  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.016  ELSE
  1.017  MATH         PUT("Ampl_Opt", "")
  1.018  ENDIF

  1.019  ENDIF

# Check for HP/Agilent 83622 fitted options.
  1.020  IF           FINDI(S[2], "83622", 1)
  1.021  OPBR         The HP 83622A/B Synthesized Sweepers may include
  1.021  OPBR         Option 001 that affects amplitude specifications.
  1.021  OPBR
  1.021  OPBR         Does the configured unit have Option 001 fitted?

  1.022  IF           MEM1 > 0
  1.023  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.024  ELSE
  1.025  MATH         PUT("Ampl_Opt", "")
  1.026  ENDIF

  1.027  ENDIF

# Check for HP/Agilent 83623 fitted options.
  1.028  IF           FINDI(S[2], "83623", 1)
  1.029  OPBR         The HP 83623A/B Synthesized Sweepers may include
  1.029  OPBR         Option 001 that affects amplitude specifications.
  1.029  OPBR
  1.029  OPBR         Does the configured unit have Option 001 fitted?

  1.030  IF           MEM1 > 0
  1.031  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.032  ELSE
  1.033  MATH         PUT("Ampl_Opt", "")
  1.034  ENDIF

  1.035  ENDIF

# Check for HP/Agilent 83624 fitted options.
  1.036  IF           FINDI(S[2], "83624", 1)
  1.037  OPBR         The HP 83624A/B Synthesized Sweepers may include
  1.037  OPBR         Option 001 that affects amplitude specifications.
  1.037  OPBR
  1.037  OPBR         Does the configured unit have Option 001 fitted?

  1.038  IF           MEM1 > 0
  1.039  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.040  ELSE
  1.041  MATH         PUT("Ampl_Opt", "")
  1.042  ENDIF

  1.043  ENDIF

# Check for HP/Agilent 83630 fitted options.
  1.044  IF           FINDI(S[2], "83630", 1)
  1.045  OPBR         The HP 83630A/B Synthesized Sweepers may include
  1.045  OPBR         Option 001 that affects amplitude specifications.
  1.045  OPBR
  1.045  OPBR         Does the configured unit have Option 001 fitted?

  1.046  IF           MEM1 > 0
  1.047  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.048  ELSE
  1.049  MATH         PUT("Ampl_Opt", "")
  1.050  ENDIF

  1.051  ENDIF

# Check for HP/Agilent 83640 fitted options.
  1.052  IF           FINDI(S[2], "83640", 1)
  1.053  OPBR         The HP 83640A/B Synthesized Sweepers may include
  1.053  OPBR         Option 001 that affects amplitude specifications.
  1.053  OPBR
  1.053  OPBR         Does the configured unit have Option 001 fitted?

  1.054  IF           MEM1 > 0
  1.055  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.056  ELSE
  1.057  MATH         PUT("Ampl_Opt", "")
  1.058  ENDIF

  1.059  ENDIF

# Check for HP/Agilent 83650 fitted options.
  1.060  IF           FINDI(S[2], "83650", 1)
  1.061  OPBR         The HP 83650A/B Synthesized Sweepers may include
  1.061  OPBR         Option 001 that affects amplitude specifications.
  1.061  OPBR
  1.061  OPBR         Does the configured unit have Option 001 fitted?

  1.062  IF           MEM1 > 0
  1.063  MATH         MEM2 = "001"; PUT("Ampl_Opt", MEM2)
  1.064  ELSE
  1.065  MATH         PUT("Ampl_Opt", "")
  1.066  ENDIF

  1.067  ENDIF
