Agilent Technologies 4349B - Page 102

4349B
F
or example
,to
generate
an
interrupt
when
an
error
occurs
in
the
4349B
:
:
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
of
the
Status
Byte
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
4-14 Remote Operation