Table of Contents
Advertisement
440
CLEAR @Count
450
OUTPUT @Count;"*RST"
460
OUTPUT @Count;"*CLS"
470
OUTPUT @Count;"*SRE 0"
480
OUTPUT @Count;"*ESE 0"
490
OUTPUT @Count;":STAT:PRES"
500
510
520
RETURN
530
!
540 Unsecure: ! Routine UNSECURES the device
550
OUTPUT @Count;":CAL:SEC:STAT?"
560
ENTER @Count;Device_secure
570
WHILE Device_secure=1
580
INPUT "Enter security code to unsecure counter.",Code$
590
OUTPUT @Count;":CAL:SEC:STAT OFF,";Code$
600
OUTPUT @Count;":CAL:SEC:STAT?"
610
ENTER @Count;Device_secure
620
IF Device_secure=1 THEN
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?"
710
ENTER @Count;Device_secure
720
WHILE Device_secure=0
730
INPUT "Enter security code to secure counter.",Code$
740
OUTPUT @Count;":CAL:SEC:STAT ON,";Code$
750
OUTPUT @Count;":CAL:SEC:STAT?"
760
ENTER @Count;Device_secure
770
IF Device_secure=0 THEN
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?"
860
ENTER @Count USING "#,4A";Head1$ ! Collect the data.
870
ENTER @Count USING "%,K";Cal_data$ ! Cal_data$ on a disk as your backup
880
RETURN
890
!
900
!
Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
To Perform a Time Interval Calibration (HP BASIC)
(Continued)
3-70
! Reset the HP 53131A
! Clear event registers and error queue
! Clear service request enable register
! Clear event status enable register
! Preset enable registers and
! transition filters for operation and
! questionable status structures.
! Query the current security status
! Check: SECURED=1, UNSECURED=0
! If device is SECURED
! UNSECURE the device
! verify it is SECURED
! On operator error, loop
! Query the current security status
! Check: SECURED=1, UNSECURED=0
! If device is UNSECURED
! SECURE the device
! verify it is SECURED
! On operator error, loop
Ask for calibration data
Store Head1$ and
Programming Guide
Advertisement
Table of Contents
