Table of Contents
Advertisement
Table
A-2.
Comparator-Based
System
Using
HP 9830A
(BASIC
Language)
PROGRAM
COMMENT
5
FORMAT
86
Format
to
output
8-bit
binary
commands
and
8-bit
data
I
I
segments.
10
OUTPUT
(2,5)255,255,255,
255,255,
157,
252;
Select
code
of
11202A
TTL
Calculator
Interface
is
2.
Format
statement
5.
255
"0P"
255
"0P"
Guarantees
System
Reset.
255
"0P"
157
"2V"
Sample
Compensation
Reading.
255
"0P"
252
"3P"
Prepare
to
Output.
255
"0P"
"IN"
is
a
subroutine
which
inputs
a
number
and
places
it
in
variable
B.
I
C
=Compensation
Number.
I
40
DlSP
"X
TOLERANCE
IN
MICRONS";
1
45
INPUT
R1
I
R1
=
X
tolerance
in
microns.
No
safeguards
are
provided.
50
DlSP
"Y
TOLERANCE
I
IN
MICRONS";
I
R2
=
Y
Tolerance
in
Microns.
70
DlSP
"X
DESTINATION
IN
MM";
75
INPUT
X
80
Y
=0
X
is
X-Axis
destination
in
millimetres.
Y
is
Y-Axis
destination
in
millimetres.
90
DlSP
"Y
DESTINATION
IN
MM";
95
INPUT
Y
I
100
OUTPUT
(2,5)157,252;
I
157
"2V"
sends
2V
sample
compensator
reading.
252
"3P"
prepare
to
output.
"IN"
is
a
subroutine
which
inputs
the
number
and
places
it
in
variable
B.
C
=
Compensation
Number.
Convert
X
to
fringes.
I
X
=
Destination in
fringes.
I
160
A=Y
170
GOSUB
3000
Convert
Y
to
fringes.
Y
=
Destination
in
fringes.
Add
X-tolerance
in
fringes
to
X-destination
in
bits
28-31.
200
GOSUB
4000
210
OUTPUT
(2,5)124;
220
A=I
NT(R2/1.58248E-01)
*2128+Y
Output
to
10746A
card.
124
"3X"
transfer
to
X-destination
register.
Add
Y-tolerance
in
fringes
to
Y-destination
in
bits
28-31.
(
23!3
GOSUB
4888
I
Output
to
l0746A
card.
240
OUTPUT
(2,5)108;
250
OUTPUT
(2,5)254,125,252;
108
"3Y"
transfer
to
Y-destination
register.
254
"IP"
samples
X
and
Y
to
compare
X ,
Y
Location
with
X ,
Y.
125
"2X"
transfer
X
to
10746A.
Advertisement
Table of Contents
Troubleshooting
