Advertisement
Model
8902A
Operation
3-3.
PROGRAM LISTING
10
20
DIM A$[40I
30 Relabe1:CALL Clearscreen
40
PRINT
50
PRINT Wse t h e softkeys below t o ENTER, READ, or S E N D c a l f a c t o r s . "
60
70
ON K E Y 5
LABEL tfAddress" GOTO Address
80
90
100
ON KEY 8 LABEL '!Read Callt GOTO Read
110
ON
KEY
9
LABEL f*Sendfl GOTO Send
120 Idle:
DISP "Waiting f o r command
.
. I 9
130
GOTO I d l e
140 Address:DISP What is t h e 8901B/8902A HP-IB addressft;
150
LINPUT Hpib$
160
Hpib=VAL (Hpib$)
170
GOTO Relabel
180
Print: CALL
Clearscreen
190
PRINT
200
PRINT
CAL FACTORS"
210
220
F O R 1-0 TO 10
230
PRINT Freq(1) ,Cal(I)
!
P r i n t out c a l f a c t o r s .
240
NEXT I
250
GOTO I d l e
260 Enter: OFF KEY
COM /Cal,factor/
Freq(0: 16) ,Ca1(0:16) ,Hpib
PRINT
ll-----------------------------------------------------------ll
ON
KEY 6 LABEL "Display Table" GOTO P r i n t
ON KEY 7 LABEL "Enter Table" GOTO Enter
PRINT
I(
____________-__-____------
II
270
280
290
300
3 10
320
330
340
350
360
370 Read:
380
390
400
4 10
420
430
440
4 50
460
470
480
490
500
519
520 Send:
530
DISP "New Cal Factor f o r REF position c a l f a c t o r " ;
INPUT Cal(0)
Freq(O)=50
FOR 1=1 TO 10
DISP "New Frequency f o r number '
;
I
;
' c a l f a c t o r "
;
INPUT Freq(1)
DISP "New Cal Fact
or f o r number '
;
I
;
' frequency"
;
INPUT Cal(1)
NEXT I
GOTO Relabel
CALL Clearscreen
OUTPJT Hpib; "41. SPM4TO"
O U T P U T Hpib
;
1f37,4SP"
E N T E R Hpib;Pairs
O U T P U T Hpib; "37.5SP CF"
ENTER Hpib; Cal(0)
Freq (0)=50
F O R 1=1 TO P a i r s
!
Set t o RF POWER mode.
!
Ask how many c a l f a c t o r s there are.
!
Enter t h e number of c a l f a c t o r s .
!
Ask f o r reference c a l factor-50 MHz.
!
Enter reference c a l f a c t o r .
!
Ref c a l i s always 50 MHz.
!
Ask f o r next frequency.
!
Enter next frequency.
!
Divide by 1 million t o get MHz.
!
Ask f o r next c a l f a c t o r
!
Enter next c a l f a c t o r .
O U T P U T Hpib;I137.6SP
FR"
ENTER Hpib;Frequency
Freq(I)=Frequency/l .E+6
OUTPUT Hpib
;
I*CF"
EHTER Hpib; Cal(1)
NEXT I
GOTn P r i n t
OWPUT
Hpib;q141.SPM4T037.9SP1f
!
Clears t h e current c a l f a c t o r s .
IMAGE "37.3SP" ,4D. 2D, "CF"
3-87
Advertisement
Chapters
