302
S:\agilent\8920\8920b\PRGGUIDE\BOOK\CHAPTERS\advoper.fb
Chapter 5, Advanced Operations
GPIB Service Requests
1400 !
1410 ENABLE INTR 7;2
1420SUBEXIT
1430!
1440 Srvice_std_evnt:!
1450 ! This routine would determine which bit(s) in the Standard Event
1460 ! Status Register are TRUE, logic 1, and take appropriate action.
1470 ! NOTE: Read the Event Register to clear it. If the Event Register is
1480 ! not cleared it will NOT latch another event, thereby preventing
1490 ! the Test Set from generating another SRQ.
1500 !
1510 OUTPUT Inst_address;"*ESR?"
1520ENTER Inst_address;Event_reg
1530RETURN
1540!
1550 Service_calib:!
1560! This routine would determine which bit(s) in the Calibration Status
1570! Register Group Event Register are TRUE, logic 1, and take
1580! appropriate action.
1590! NOTE: Read the Event Register to clear it. If the Event Register is
1600! not cleared it will NOT latch another event from the Condition
1610! Register, thereby preventing the Test Set from generating another SRQ.
1620!
1630OUTPUT Inst_address;"STAT:CAL:EVEN?"
1640ENTER Inst_address;Event_reg
1650RETURN
1660
!1670 Srvice_hard1:!
1680 ! This routine would determine which bit(s) in the Hardware Status
1690 ! Register #1 Group Event Register are TRUE, logic 1, and take
1700 ! appropriate action.
1710 ! NOTE: Read the Event Register to clear it. If the Event Register is
1720 ! not cleared it will NOT latch another event from the Condition
1730 ! Register, thereby preventing the Test Set from generating another SRQ.
1740 !
1750 OUTPUT Inst_address;"STAT:HARD1:EVEN?"
1760 ENTER Inst_address;Event_reg
1770 RETURN
1780 !
1790 SUBEND