Agilent Technologies 4294A Programming Manual page 65

Lines 1090 to 1100 These lines set the branch target for an SRQ interrupt to make the
Lines 1110 to 1180 These lines send the commands to execute the standard measurement
Line 1200
Lines 1220 to 1230 These lines indicate the message of measurement completion and
Lines 1250 to 1260 These lines are steps for any key other than the y key pressed in
See Example 4-2 on page 61 for the subprogram Inp_data.
Example 4-3 Date measurement for fixture compensation
10
Size$[9]
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
Chapter 4
Standard$ and wait for you to press the y key and the return key.
SRQ interrupt effective.
specified by Standard$.
This line waits for measurement to finish.
return 0 as the return value from the sub-program.
response to line 970. These lines return -1 as the return value from the
sub-program.
DIM Adapter$[9],Buff$[9],File$[20],Std_file$[20],Cal_point$[9],
DIM Com_o(1:100,1:2),Com_s(1:100,1:2),Com_l(1:100,1:2)
REAL Open_g,Open_c,Short_r,Short_l,Load_r,Load_l
INTEGER Result,Scode
CLEAR SCREEN
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
ASSIGN @Binary TO 800;FORMAT OFF
MASS STORAGE IS ":INTERNAL1,5"
Scode=8
ELSE
ASSIGN @Hp4294a TO 717
ASSIGN @Binary TO 717;FORMAT OFF
Scode=7
END IF
Cal_point$="FIXED"
File$="COM_DATA"
Std_file$="STD_VAL"
!
! Initial Setting
!
OUTPUT @Hp4294a;"PRES"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
OUTPUT @Hp4294a;"CALP ";Cal_point$
!
! Entry Standard Value
!
CALL Inp_data("Open(G)",Open_g)
CALL Inp_data("Open(C)",Open_c)
CALL Inp_data("Short(R)",Short_r)
CALL Inp_data("Short(L)",Short_l)
CALL Inp_data("Load(R)",Load_r)
CALL Inp_data("Load(L)",Load_l)
OUTPUT @Hp4294a;"DCOMOPENG ";Open_g
OUTPUT @Hp4294a;"DCOMOPENC ";Open_c/1.E-15
OUTPUT @Hp4294a;"DCOMSHORR ";Short_r
OUTPUT @Hp4294a;"DCOMSHORL ";Short_l
OUTPUT @Hp4294a;"DCOMLOADR ";Load_r
OUTPUT @Hp4294a;"DCOMLOADL ";Load_l
!
! Data Measurement
!
Preparing For Accurate Measurement
Fixture Compensation
65