HP 436A - Page 50

•
•
Model
436A
436A
QUICK PROGRAMMING GUIDE
(cont'd)
Subroutines
for
9830 (BASIC)
POWER
METER
ZERO SUBROUTINE
800
REM
POWER
METER
2ERO
SUBROUTINE
::;t15
DI
::;F:
::
Ii
I
::;cot·1f··lt:C:T
::;E1·-.1::;Cl~'.
Ff~'.!Jr:·t
::;CiJF'.CE:
:•
810
REM
ZERO
POWER
METER
830
FORMAT
3X1F5.0
850
ENTER
(13i830)Z
860
REM
TEST
FOR
ZERO
870
IF
A8S(Z)>2
THEN
810
880
REM
UNZERO
POWER
METER
:::
1
:.:i~1
9
~)
~:1
92[!
F
CJ
F.'.
M
:~
T
t:
1-.;..~:,
::
,-1
!-.·ii::'::
:
...
·i'LL'
:·
l'j._I
E
t··l
T
~::
F <
:l.
::::
~
9
~:.1
i21
>
Z
REM
TEST
FOR
UNZERO
IF
Z
>=
84
THEN
890
950
REM
PRESET
POWER
METER
POWER
METER READ
SUBROUTINE
1010
FORMAT
x,s,x,Fs.0,x,F3.0
1
:212
0
f7::
::::
[!
1030
FOR
X=l
TO
20
1
c;i::j.i;:;
c1···1D
,,
1
?U--
11
~
!i
''.3D-l-\:
1
:•
1050
WAIT
CR=73)*4000
1
~3?(1
t:!··~TE~:'.
<
1
:::
,
J.
~2:
1
[:)
F'.,
P
~
E
1~Rn
IF
X=l
THEN
1120
1090
IF
ABS(P-P1)>1
THEN
1120
11.
;~10
F===F'~~·
l
Ol
(
E
>
1 1
11::.i
F'.
r-:
T
U
!~'.
l···l
11;2i2!
F'1=F'
11
:::;
i;~1
1·-~
E
:=<
T
;:-:;
1
:l
i::J.1;~1
]) I
:::P
I:
F
1
Clt.:iEF'.
!'
1
'lET
EF'.
!··.JOT
'.:'.;ETTL
ED
II
Note:
The
next
statement should be
END ,
or
if
another subroutine follows then a
GOTO
9 9 9 9
should
be
used .
Figure
3-8.
436A
Quick
Programming
Guide
(5
of
5)
Operation
3-29