Advertisement
1438
1448
1458
1450
1478
1430
1490
1588
1518
1528
1530
1540
1558
1560
1578
1580
1590
1600
1818
1620
1638
1640
1658
1668
1678
1688
1699
1708
1718
1720
1730
1740
1750
1760
1770
1758
1790
1500
1810
1820
1830
1840
1850
1260
187@
1880
183@
1900
1318
1920
1930
1940
1950
196@
1970
1380
1994
zeaa
2018
2020
2030
2040
26858
2068
2678
2838
2a9a
2180
2110
2120
PRUSE
DISP "Taking data..."
BOR
T500 TO s asn oo oo sion oo
i
o s s 6w
5 s
R ik ' Outer foop, | = @ for short, | = 1 for open
GOSUB 3958
FOR X=1 TO
.Inner loop, done for each frequency point
ca=
. . Select channel for A/R
GOSUE 3880
GOSUB 3880
! Increment
F
IF I=0 THEN R(¥)=R2 ELSE R(X)=2E*LGTC(1B~(R(HX)/20)+104(R2/28))/2)
Linear average of
NEXT %
short & open
IF
I=1
THEN
1628
GOSUB
2998
!
Start/Stop
DISP
DISP
"Connect
the
B detector
to
the"
DISP
"Test
Port
and
press
CONT."
BEEP
PRAUSE
DISP "Taking data..."
GOSUE 3958
| CW mods
BOR:
NR3
TO
B o o u i s n
i
avn
i
ied e sous s s Sboi e e s Sas v s
s
Loop.
Done for each
frequency
point
Select channel
for B/R
GOSUB
3800
!
Read
A/D
GOSUE
3880
!
Incr.
F
IF
N=3
THEN
R(X+P)>=R2
ELSE
R(X>=R2..............
T
L
SN
Store in calibration array
NEXT
%
GOSUE
3990
!
Start/Stop
RETURN
!
!
<DEVICE
MERSUREMENT>
!
CLEAR
DISF
"
DEVYICE
MERASUREMENT"
ISP
.
Prompt message
DISP "Connect
the Test Device to the"|
DISP
"Test
Fort
and
press
CONT."
BEEP
PAUSE
DISP
DISP
"Enter
the
Device
label
Cup
to
L
.
o
eer............Prompt message
DISP
"32
alphanumeric
characters)
and"
DISP
"press
the END LINE
keu."
GOSUB
3956
| CW mode
FOR X=1
TO P..
IF N=1
THEN C.
GOSUE
3800
! Read
A/D
K1=K+P+(N=3)#
R¢X1I=R2-R(X),
M1=MARCML, RCK
M2=MINCM2,RC(X10>|
Loop. Done for each frequency point
Select A/R or B/R Channel
......
Calculate array index
Store corrected loss
T R—
sessenmeesey
..Compare with max and min loss
IF
N#3
THEN
216@.............
RS
.......If both Insertion and Return Loss are requested, continue
[
—
ST
o——
A
AT
Select B/R Channel
GOSUE
3808
!
Read
A/
BA=REBER vamriveaiims
A
SR
R R
SRS
A
.........Calculate array index
Advertisement
