Agilent Technologies 4339B - Page 145

4339B
Other
F
eatures
F
or example
,to
detect
the
measurement
completion:
OUTPUT
717;":SYST:OPER:ENAB 16"
Enable
Measurement
bit
of
Operation
Status
R
egister
OUTPUT
717;"*SRE
128"
Enable
Operation
Status R
egister Summary
bit
REPEAT
A=SPOLL(717)
UNTIL
BIT(A,7)
Wait
until the
Operation Status
Register
Summary
bit
is
set
F
or example
,to
generate an
interrupt
when
an
error
occurs
in
the
4339B
:
:
DIM
Err$[50]
!
:
OUTPUT
717;"*CLS"
Clears
status
byte
register
OUTPUT 717;"*ESE
48" Sets
Command Error
Bit
and
Execution
Error
Bit
OUTPUT
717;"*SRE
32"
Sets
Standard
Event
Status
R
egister
Summary
Bit
!
ON INTR
7 GOSUB
Err_report
T
ells
where
to
branch
to
when
interrupted
ENABLE
INTR
7;2
Enable
an
interrupt
from
GPIB
interface
!
:
LOOP
:
END
LOOP
STOP
!
Err_report:!
Stat=SPOLL(717)
Clears
the
SRQ
bit
OUTPUT
717;"*ESR?"
A
sks
contents
of
the
Standard
Event
Status
R
egister
ENTER
717;Estat
PRINT
"Syntax
Error
detected."
!
OUTPUT
717;":SYST:ERR?" A
sks to
output error
number
and
message
ENTER 717;Err,Err$
PRINT
Err,Err$
!
ENABLE INTR
7
RETURN
END
Remote Operation 4-27