HP 8901B Operation And Calibration Manual page 198

Model 8901B
Operation
PROGRAM LISTING
10
20
DIM A$[40]
30
Relabe1:CALL Clearscreen
40
PRINT
50 PRINT "Use the softkeys below to ENTER, READ, or SEND cal factors."
60
70
ON KEY
5
LABEL "Address" GOTO Address
8 0
90
ON KEY 7 LABEL "Enter Table" GOTO Enter
100 ON KEY
8
LABEL "Read Call! GOTO Read
110 ON KEY
9
LABEL "Send" GOTO Send
120 Idle: DISP "Waiting for command
.
. I 1
130 GOTO Idle
140 Address
:
DISP What is the 8901B/8901B HP-IB address"
;
COM /Cal-f actor/ Freq(0
:
16)
,
Cal(0:
1 6 )
,
Hpib
PRINT
l l ~ ~ ~ ~ ~ ~ - - - - - - - - ~ ~ - - - - - - - - - - - - - - - - - - - - - - - ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
ON KEY
6
LABEL "Display Table" GOTO Print
150
160
170
180 Print:
I 9 0
200
210
220
230
240
250
260
Enter
:
270
280
290
300
310
320
330
340
350
360
370 Read:
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520 Send:
530
LINPUT Hpib$
Hpib=VAL (Hpib$)
GOTO Relabel
CALL Clearscreen
PRINT
PRINT
I'
CAL FACTORS"
FOR 1=0 TO 10
NEXT I
GOTO Idle
OFF KEY
DISP "New Cal Factor for REF position cal factor";
INPUT Cal(0)
Freq(0)
=50
FOR 1=1 TO
10
PRINT
l l - - - - - - - - - - - - - , - - - - - - - - - - - - l l
PRINT Freq(1) ,Cal(I)
!
Print out cal factors.
DISP "New Frequency for number
It
;
I
;
'
cal factor"
;
INPUT Freq(1)
DISP "New Cal Factor
f o r
number'";I;
I t '
frequency";
INPUT Cal(1)
NEXT I
GOTO Relabel
CALL Clearscreen
OUTPUT Hpib
;
"41. SPM420"
OUTPUT Hpib
;
"37.4SP"
!
ENTER Hpib;Pairs
!
OUTPUT Hpib
;
"37.5SP CF"
ENTER Hpib
;
Cal(0)
!
Freq(0)
=50
!
OUTPUT Hpib; "37.6SP FR"
!
ENTER Hpib;Frequency
I
OUTPUT Hpib
;
VF"
!
ENTER Hpib;Cal(I)
!
!
!
FOR 1=1 TO Pairs
Freq(I)=Frequency/l
.
E+6
!
NEXT I
GOTO Print
OUTPUT Hpib;
"41.
SPM4T037.9SP"
!
IMAGE "37.3SP" ,4D. 2D, "CF"
Set to RF POWER mode.
Ask how many cal factors there are.
Enter the number of cal factors.
Ask for reference cal factor-50 MHz.
Enter reference cal factor.
Ref cal is always
50
MHz.
Ask for next frequency.
Enter next frequency.
Divide by 1 million to get MHz.
Ask for next cal factor
Enter next cal factor.
Clears the current cal factors.
RF
Power Calibration Factor Entry Example Program 3-83