Agilent Technologies 4294A Programming Manual page 55

Lines 210 to 310
Lines 330 to 350
Lines 360 to 380
The following describes FNAdap_setup, a data measurement subprogram for calculating
setup data, which is shown in lines 420 to 800.
Line 450
Lines 460 to 470
Lines 490 to 500
Lines 510 to 600
Line 620
Lines 640 to 740
Lines 760 to 780
Example 4-1 Data measurement for adapter setting
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
Chapter 4
These lines measure phase data, open data, short data and load data by
using the subprogram FNAdap_setup. If an error is detected after any
measurement, the program is terminated.
These lines calculate setup data and store them in non-volatile
memory.
These lines indicate the message of completion and terminate the
program.
This line clears the status byte register.
These lines prompt for the connection of the standard for measurement
specified by Standard$ and wait for you to press the y key and the
return key.
These lines set the branch target for an SRQ interrupt to make the SRQ
interrupt effective.
These lines send the commands to execute the measurement specified
by Standard$.
This line waits for measurement to finish.
These lines check whether an error has occurred during measurement.
If no error occurred, then these lines indicate the message of
measurement completion and return a 0 as the return value from the
subprogram. If an error occurred, then these lines indicate an error
message, execute the command that suspends data measurement, and
return -1 as the return value from the subprogram.
These lines are steps for any key other than the y key pressed in
response to line 470. These lines execute the command that suspends
data measurement and then return -1 as the return value from the
subprogram.
DIM Adapter$[9],Buff$[9]
INTEGER Scode,Result
CLEAR SCREEN
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
Scode=8
ELSE
ASSIGN @Hp4294a TO 717
Scode=7
END IF
Adapter$="APC7"
!
OUTPUT @Hp4294a;"PRES"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
OUTPUT @Hp4294a;"E4TP "&Adapter$
!
OUTPUT @Hp4294a;"ESNB 256"
OUTPUT @Hp4294a;"*SRE 4"
Preparing For Accurate Measurement
Adapter Setting
55