Giga-tronics 58542 - Page 192

58542 VXIbus Universal Power Meter
A-10 Publication 21555, Rev. E, September 2002
500 IF Pass_cal=1 THEN
510 Ques$=Calibration FAILED, sensor on calibrator?
520 OUTPUT @Pwr_mtr;SYST:ERR?
530 ENTER @Pwr_mtr;Err_msg$ ! Reading an error message clears it.
540 PRINT Err_msg$
550 PRINT Ques$
560 ELSE
570 IF Pass_cal<>0 THEN PRINT Strange Response to CAL1?. Clear output Queue?
580 END IF
590 !
600
610 STOP
Program Output:
Calibrating Sensor 1
-300,Device-specific error;Sensor calibration error
Calibration FAILED, sensor on calibrator?
410 ASSIGN @Pwr_mtr to 70101
420 CLEAR @Pwr_mtr
430 WAIT 1
440 INPUT Connect the sensor to a source set to about 0dBm. Hit ENTER.,Dmy
450 PRINT Zeroing Sensor 1
460 OUTPUT @Pwr_mtr;CAL1:ZERO?
470 ENTER @Pwr_mtr;Pass_zer
480 IF Pass_zer=0 THEN PRINT Zeroing Passed
490 IF Pass_zer=1 THEN
500 Ques$=Zeroing FAILED, Source turned off?
510 OUTPUT @Pwr_mtr;SYST:ERR?
520 ENTER @Pwr_mtr;Err_msg$! Reading an error message clears it.
530 PRINT Err_msg$
540 PRINT Ques$
550 ELSE
560 IF Pass_zer<>0 THEN PRINT Strange Response to CAL1:ZERO?. Clear output Queue?
570 END IF
580 !
590 !
600 STOP
Program Output:
Zeroing Sensor 1
-300,Device-specific error;Sensor zeroing error
Zeroing FAILED, Source turned off?
410 ASSIGN @Pwr_mtr to 70101
420 CLEAR @Pwr_mtr
430 WAIT 1
440 INPUT Disconnect the sensor from the sensor cable. Hit ENTER.,Dmy
450 PRINT Zeroing Sensor 1
460 OUTPUT @Pwr_mtr;CAL1:ZERO?
470 ENTER @Pwr_mtr;Pass_zer
480 IF Pass_zer=0 THEN PRINT Zeroing Passed
490 IF Pass_zer=1 THEN
500 Ques$=Zeroing FAILED, Source turned off?
510 OUTPUT @Pwr_mtr;SYST:ERR?
520 ENTER @Pwr_mtr;Err_msg$! Reading an error message clears it.
530 PRINT Err_msg$
540 PRINT Ques$
550 ELSE
560 IF Pass_zer<>0 THEN PRINT Strange Response to CAL1:ZERO?. Clear output Queue?
570 END IF
580 !
590 !
600 STOP
Program Output: