Table of Contents
Advertisement
Table
A-7.
Counter-Based
Svstem
Using
HP
9830A
(BASIC
Language)
I
PROGRAM
I
COMMENT
10
CMD
"?U"
20
FORMAT
B
30
OUTPUT
(13,
20)768;
1
40
CMD
"?U"
50
FORMAT
38
60
OUTPUT
(13,
50)256,
20,
512;
70
CMD
"?U)",
"006X"
I
80
CMD
"?U)",
"2V30",
"?15"
90
ENTER
(13,*)C
100
FOR
I=1
TO
10
110
CMD
"?U)",
"10W30","?15"
120
ENTER
(13,*)X
140
I F
NOT
((STAT134)
OR
(STAT13=1))
THEN
165
150
A=0
160
GOSUB
400
165
CMD
"?U1"
170
FORMAT
F12.6
180
OUTPUT
(13,170)X
190
CMD
"?U)",
"2Y301',
"?15"
200
ENTER
(13,*)Y
220
I F
NOT
((STAT134)
OR
(STAT13=1))
THEN
250
240
GOSUB
400
250
CMD
"?U2"
260
OUTPUT
(13,
170)Y
270
NEXT
I
400
CMD
"?U"
410
FORMAT
5B
420
OUTPUT
(13,410)
256,
95,
53, 24,
512;
430
CMD
"I"
440
B=RBYTE13
450
I F
B<64
THEN
470
460
GOSU
B
600
Set
all
devices
on
HP-IB
to
remote
enable.
Set
all
devices
to
a
predetermined
state.
0 0
=
preset
counters to
160
counts.,
6 X
=
set
X
to
extended
resolution.
2V
=
input
compensation.
30
=convert
to
BCD.
Input
compensation
number
to
calculator.
Loop
for
10
times before
updating
the
compensation
value.
1 0
=
sample
X
and
Y;
2 X
=Transfer
X
to
10745;
30
=
convert
to
BCD.
Output
to
Variable
X
Subtract
16
counts
(extended
resolution)
convert
to
inches
(*6.23E-6)
and
correct
for
VOL
and
material
temp
(*C)
165
if
not
status
request
Set
A
=
0
if
X-Axis
error
Status
request.
See
HP-IB
Calculator
manual
for
programming
details.
Subroutine
400
processes
the
status
request.
Output
X
to
display
(calculator
to
output,
display
to
listen.
Fixed
12
characterts
wide,
6
digits
to
right
of
decimal.
Microinch
resolution. Output
to
HP-IB).
2 Y
=
transfer
Y
to
10745.
3 0
=
convert
to
BCD
Output
to
variable
Y
Subtract
160
counts,
convert
to
inch
(*6.23E-6)
,
correct
for
VOL
and
material
temp.
(*C)
If
Stat
13
=
(0
or
I),
status
request.
Set
A=l
if
Y-Axis
error.
See
9830
HP-IB
calculator
manual
for
programming
details
Subroutine
400
processes
the
status
request.
Output
Y
to
display.
Calculator
to
talk,
display
to
listen
Output
to
HP-IB
Go
to
100
to
start
through display
loop
again.
Update
the
compensation
value.
400
start
the
status
request
subroutine.
Set
HP-IB
to
serial
poll
enable
mode.
I
=
coupler
(10745A)
talk
address
B
=
Status
Byte
of
10745A
470
if
not
coupler
error
Process
the
error
Advertisement
Table of Contents
Troubleshooting
