Table of Contents
Advertisement
8:
if
rds
(7)<128;
gto
+2
9:
0-A;gsb
"status"
Table
4-72.
70745A
HP-IS
Interface
Typical
(Cont'd)
If
n o
device
o n
HP-IB
is
requesting
service,
skip
the
next
line.
,
A=0
for
X-Axis.
Go
find
out
if
10745A
is
requesting
service.
PROGRAM
7:
red
709,X
COMMENT
X
transferred
via
HP-IB
to
variable
X
1 1 : fmt l,f12.6
10:
(X-16)*6.23023e-6*C-X
12: wrt 717.1,X
-16
is
the
subtract
preset
for
extended
resolution.
X6.23023e-6
is
the
conversion
of
A/4
to
microinches
C compensates
for
VOL
+
Material
Temperature.
Format
No. 1.
Fixed
point
12
characters
wide,
6
digits
to
the
right
of
the
decimal.
13:
wrt
709,
"2Y30"
14: red 709,Y
15: if rds(7)<128;gto +2
Send
X
to
X-Display.
Format
1
is
used.
7
=
select
code
of
98034A
17
=
address
of
10783A
X-Display.
See
Figure
4-7H.
Send
t o
10745
via
HP-IB.
2Y
=transfer
to
10745A
via
HP-IB.
3 0
=
set
u p
to
output
Y
t o
HP-IB.
See
Figure
4-71
and
1.
Y
transferred
via
HP-IB
to
variable
Y.
If
n o
device
o n
HP-IB
is
requesting
service
skip
the
next
line.
18: wrt 718.1,Y
16:
I--A;gsb
"status"
17:
(Y-160)*6.23023e-6*C-Y
19:
gto
"loop"
20:
"status"
:
rds(709)-B
21:
if
B>=64;gsb
"check"
A=l
for
Y-Axis
to
find
out
if
10745A
is
requesting
service.
-160
is
the
subtract
preset
for
normal
resolution.
22: wrt 709, "0P"
23: ret
24: "check" :B-112-B
25: if B>=8;gsb "ovf"
Send
Y
to
Y-display.
Format
1
is
used.
7
=
select
code
of
98034A
18
=
address
of
10783A
Y-Display.
See
Figure
4-7K.
Go
to
top
of
display
"loop"
Get
status
byte
from 10745A.
If
bit
6
set
then
10745A
has
requested
status.
Go
check
what
kind
of
error.
Send
to
10745A.
0P
=
clear
error
bits
o n
10745A
via
HP-IB.
See
Figure
4-7L.
subroutine
"status"
return
statement.
Clear
Bits
6,5,4.
I
If
Bit
3
is
set,
go
t o
subroutine
"ovf"
27: if B>=2; prt "MEAS
ERROR"; B-2+B;0--D
26:
if
B>=4:prt
"VOL
OUT
OF
RANGE";
8-4-8;
W D
28:
if
B=l;prtUREF
ERROR"
;0+D
If
Bit
2
is
set,
VOL
error
irrecoverable.
30:
if
A=O;prtl'X-AXIS
ERROR"
If
Bit
1
is
set,
MEAS
error
0-D
is
irrecoverable
error.
If
Bit
0
is
set,
reference
error
0--D
is
irrecoverable
error.
If
D=l
then
the
only
error
is
an
overflow
which
is
recoverable.
33: gto 0
34: "ovf": B-8-B;
1-D
31:
if
A=l;prt"Y-AXIS
ERROR"
32:
dsp
"GO
TO
GAGEU;stp
When
CONTINUE
is
pressed
the
program
restarts
at
the
beginning
of
the
program.
l+D.
Perhaps
recoverable
error.
Clear
Bit
3.
Display
"GO
TO
GAGE"
and
stop.
35:
if
A=0;X-2T28/10-X
36:
if
A=l;Y-2T28-Y
37:
ret
38:
end
*I9613
X-Axis complement
all
bits
of
X
and
Add
1.
Y-Axis
complement
all
bits
of
Y
and
Add
1 .
Advertisement
Table of Contents
Troubleshooting
