HP 53131A/132A 225 MHz Programming Manual page 139

910 Cal_quick: ! Calibrates using the QUICK TI calibration.
920 PRINT "Connect square wave signal to Channel 1"
930 GOSUB Wait_for_input
940 PRINT "Recalibrating"
950 OUTPUT @Count;"DIAG:CAL:TINT:QUICK"
960 OUTPUT @Count;"DIAG:CAL:STATUS?"
970 ENTER @Count;Status
980 IF Status<>0 THEN
990 PRINT "Quick TI calibration failed."
1000 END IF
1010 RETURN
1020 !
1030 !
1040 Cal_fine:! Calibrates using the FINE TI calibration.
1050 ! Code below includes the commands required to drive
1060 ! the HP 59992 JO6 Time Interval Calibrator.
1070 PRINT "Connect 10-MHz signal to calibrator back-panel input."
1080 PRINT "Connect calibrator Channel A,B outputs to 53131 Channel 1,2"
1090 GOSUB Wait_for_input
1100 PRINT "Recalibrating"
1110 OUTPUT @Cal;"B1"
1120 OUTPUT @Count;":DIAG:CAL:TINT:FINE1"
1130 OUTPUT @Count;":DIAG:CAL:STATUS?"
1140
1150
1160 ENTER @Count;Status
1170
1180 !
1190 OUTPUT @Cal;"B2"
1200 OUTPUT @Count;":DIAG:CAL:TINT:FINE2"
1210 OUTPUT @Count;":DIAG:CAL:STATUS?"
1220 ENTER @Count;Status
1230 !
1240 OUTPUT @Cal;"B3"
1250 OUTPUT @Count;":DIAG:CAL:TINT:FINE3"
1260 OUTPUT @Count;":DIAG:CAL:STATUS?"
1270 ENTER @Count;Status
1280 !
1290 OUTPUT @Cal;"B4"
1300 OUTPUT @Count;":DIAG:CAL:TINT:FINE4"
1310 OUTPUT @Count;":DIAG:CAL:STATUS?"
1320 ENTER @Count;Status
1330 !
1340
1350 IF Status<>0 THEN
1360 PRINT "Fine TI calibration failed."
1370 END IF
1380 RETURN
1390 !
Chapter 3 Programming Your Universal Counter for Remote Operation
Elements of SCPI Commands
To Perform a Time Interval Calibration (HP BASIC)
(Continued)
Programming Guide
! B1 = Button 1 on calibrator
! Counter processes B1 signal.
! Query status only to force
! program to wait until prior
! command has completed.
! Response comes back when box
! is ready for next CAL command.
! B2 = Button 2 on calibrator
! Counter processes B2 signal.
! Query status only to wait
! B3 = Button 3 on calibrator
! Counter processes B3 signal.
! Query status only to wait
! B4 = Button 4 on calibrator.
! Counter processes B4 signal.
! NOW query status to assess
! PASS/FAIL status of the
! calibration.
! 0=PASS, 1=FAIL
3-71