
6
Example
2
-
Status
Registers
and
Queues
1220
!
1230
!
Read
and
display
any
messages
in
the
error
queue
1240
!
1250
REPEAT
1260
OUTPUT
Tls;"SYSTEM:ERROR?"
1270
ENTER
Tls;Value,A$
The
SY
STEM:ERROR?
query
gets
the
number
of
the
last
error
in
the
error
queue
.
1280
IF
Value<>0
THEN
TABXY(21,17);Value,A$
1290
UNTIL
Value=0
1300
!
1310
!
Clear
the
Status
structure
and
reenable
the
interrupt
before
returning
1320
!
1330
OUTPUT
Tls;"*CLS"
1340
ENABLE
INTR
7
1350
!
1360
RETURN
1370
!
1380
END
6-6
Programming
Examples
Summary of Contents for 8167A
Page 2: ......
Page 4: ......
Page 26: ......
Page 110: ......
Page 130: ......
Page 150: ......
Page 164: ...D Figure D 1 Test Setup for the Wavelength Tests D 4 Performance Tests ...
Page 177: ...D Figure D 5 Test Setup for the Source Spontaneous Emission Test Performance Tests D 17 ...
Page 240: ......