Chapter 3 Programming Your Universal Counter for Remote Operation

Elements of SCPI Commands

To Perform a Time Interval Calibration (HP BASIC) (Continued)

910 Cal_quick: ! Calibrates using the QUICK TI calibration.

920PRINT "Connect square wave signal to Channel 1"

930GOSUB Wait_for_input

940PRINT "Recalibrating"

950OUTPUT @Count;"DIAG:CAL:TINT:QUICK"

960OUTPUT @Count;"DIAG:CAL:STATUS?"

970ENTER @Count;Status

980IF Status<>0 THEN

990PRINT "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"

 

! B1 = Button 1 on calibrator

1120

OUTPUT

@Count;":DIAG:CAL:TINT:FINE1"

! Counter processes B1 signal.

1130

OUTPUT @Count;":DIAG:CAL:STATUS?"

! Query status only to force

1140

 

 

! program to wait until prior

1150

 

 

! command has completed.

1160

ENTER @Count;Status

! Response comes back when box

1170

 

 

! is ready for next CAL command.

1180

!

 

 

 

1190

OUTPUT @Cal;"B2"

 

! B2 = Button 2 on calibrator

1200

OUTPUT @Count;":DIAG:CAL:TINT:FINE2"

! Counter processes B2 signal.

1210

OUTPUT @Count;":DIAG:CAL:STATUS?"

! Query status only to wait

1220

ENTER @Count;Status

 

 

1230

!

 

 

 

1240

OUTPUT @Cal;"B3"

 

! B3 = Button 3 on calibrator

1250

OUTPUT @Count;":DIAG:CAL:TINT:FINE3"

! Counter processes B3 signal.

1260

OUTPUT @Count;":DIAG:CAL:STATUS?"

! Query status only to wait

1270

ENTER @Count;Status

 

 

1280

!

 

 

 

1290

OUTPUT @Cal;"B4"

 

! B4 = Button 4 on calibrator.

1300

OUTPUT @Count;":DIAG:CAL:TINT:FINE4"

! Counter processes B4 signal.

1310

OUTPUT @Count;":DIAG:CAL:STATUS?"

! NOW query status to assess

1320

ENTER @Count;Status

! PASS/FAIL status of the

1330

!

 

!

calibration.

1340

 

 

!

0=PASS, 1=FAIL

1350

IF Status<>0 THEN

 

 

1360

PRINT "Fine TI calibration failed."

 

 

1370

END IF

 

 

 

1380

RETURN

 

 

 

1390

!

 

 

 

Programming Guide

3-71