Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
3-70
Programming Guide
To Perform a Time Interval Calibration (HP BASIC)
(Continued)
440 CLEAR @Count
450 OUTPUT @Count;"*RST" ! Reset the HP 53131A
460 OUTPUT @Count;"*CLS" ! Clear event registers and error queue
470 OUTPUT @Count;"*SRE 0" ! Clear service request enable register
480 OUTPUT @Count;"*ESE 0" ! Clear event status enable register
490 OUTPUT @Count;":STAT:PRES" ! Preset enable registers and
500 ! transition filters for operation and
510 ! questionable status structures.
520 RETURN
530 !
540 Unsecure: ! Routine UNSECURES the device
550 OUTPUT @Count;":CAL:SEC:STAT?" ! Query the current security status
560 ENTER @Count;Device_secure ! Check: SECURED=1, UNSECURED=0
570 WHILE Device_secure=1 ! If device is SECURED
580 INPUT "Enter security code to unsecure counter.",Code$
590 OUTPUT @Count;":CAL:SEC:STAT OFF,";Code$ ! UNSECURE the device
600 OUTPUT @Count;":CAL:SEC:STAT?" ! verify it is SECURED
610 ENTER @Count;Device_secure
620 IF Device_secure=1 THEN ! On operator error, loop
630 PRINT "Wrong code, try again."
640 GOSUB Read_errors
650 END IF
660 END WHILE
670 RETURN
680 !
690 Resecure: ! Routine SECURES the device
700 OUTPUT @Count;":CAL:SEC:STAT?" ! Query the current security status
710 ENTER @Count;Device_secure ! Check: SECURED=1, UNSECURED=0
720 WHILE Device_secure=0 ! If device is UNSECURED
730 INPUT "Enter security code to secure counter.",Code$
740 OUTPUT @Count;":CAL:SEC:STAT ON,";Code$ ! SECURE the device
750 OUTPUT @Count;":CAL:SEC:STAT?" ! verify it is SECURED
760 ENTER @Count;Device_secure
770 IF Device_secure=0 THEN ! On operator error, loop
780 PRINT "Wrong code, try again."
790 GOSUB Read_errors
800 END IF
810 END WHILE
820 RETURN
830 !
840 Store_cal: ! Routine collects the calibration data
850 OUTPUT @Count;":CAL:DATA?" Ask for calibration data
860 ENTER @Count USING "#,4A";Head1$ ! Collect the data. Store Head1$ and
870 ENTER @Count USING "%,K";Cal_data$ ! Cal_data$ on a disk as your backup
880 RETURN
890 !
900 !
Summary of Contents for 53131A
Page 1: ...Programming Guide HP 53131A 132A 225 MHz Universal Counter ...
Page 2: ......
Page 13: ...1 1 Before You Start ...
Page 24: ...Chapter 1 Before You Start Related Documentation 1 12 Programming Guide ...
Page 25: ...2 2 Command Summary A Quick Reference ...
Page 68: ...Chapter 2 Command Summary RST Response 2 44 Programming Guide ...
Page 69: ...3 3 Programming Your Universal Counter for Remote Operation ...
Page 167: ...4 4 Command Reference A Dictionary ...
Page 310: ...Chapter 4 Command Reference WAI Wait to Continue Command 4 144 Programming Guide ...
Page 311: ...5 5 Errors ...
Page 329: ......
Page 330: ...H Manual Part Number 53131 90044 Printed in U S A NOVEMBER 1996 ...