Giga-tronics 58542 - Page 234

58542 VXIbus Universal Power Meter
A-52 Publication 21555, Rev. E, September 2002
1490 !
1500 ! SUBROUTINES
1510 !
1520 !
1530 Pwr_swp_cal1: ! Calibrates Sensor 1 Power Sweep Calibration calibrates the
! sensor to the meter.
1540 !
1541 PRINT Calibrating.........
1550 OUTPUT @Pwr_mtr;CAL1? ! Starts Calibration and delivers a pass/fail flag
1560 ENTER @Pwr_mtr;Pass_cal
1570 IF Pass_cal=0 THEN
1580 PRINT Calibration Passed
1590 Old_snsr1_model=New_snsr1_model
1600 Old_snsr1_serno=New_snsr1_serno
1610 ELSE
1620 PRINT Calibration FAILED, Sensor 1 Attached To Calibrator?
1630 WAIT 10 ! Wait for Operator to attach sensor
1640 GOTO Pwr_swp_cal1
1650 END IF
1660 RETURN
1670 !
1680 Pwr_swp_cal2:! Calibrates Sensor 2
1690 !
1691 PRINT Calibrating........
1700 OUTPUT @Pwr_mtr;CAL2? ! Starts Calibration and delivers a pass/fail flag
1710 ENTER @Pwr_mtr;Pass_cal
1720 IF Pass_cal=0 THEN
1730 PRINT Calibration Passed
1740 Old_snsr2_model=New_snsr2_model
1750 Old_snsr2_serno=New_snsr2_serno
1760 ELSE
1770 PRINT Calibration FAILED, Sensor 2 Attached To Calibrator?
1780 WAIT 10 ! Wait for Operator to attach sensor
1790 GOTO Pwr_swp_cal2
1800 END IF
1810 RETURN
1940 END