Table of Contents
Advertisement
132 Agilent E1330B Digital I/O Module Register Information
2. Re-enables the System Instrument features that catch the backplane
interrupt and pull the bus SRQ. i.e.
960 A=SPOLL(@Sys)
980 OUTPUT @Sys;"STAT:OPER:EVEN?"
990 ENTER @Sys;Stat_oper
1010 OUTPUT @Sys;"DIAG:INT:RESP?"
1020 ENTER @Sys;Int_ack
1220 OUTPUT @Sys;"DIAG:INT:SETUP2 ON;
:DIAG:INT:ACT ON"
3. Re-enable the BASIC Language interrupt features that catch the bus SRQ.
i.e.
1240 ENABLE INTR 7;2
This program has been written to run on an external computer connected via GPIB
to the Agilent E1300/01. All programming of the Agilent E1330 including catching
interrupts is handled by the system instrument in the Agilent E1300/01. Firmware
revision A.07 or later is required.
The two IRQ jumpers on the Agilent E1330 have been moved from the normal
IRQ1 position to the IRQ2 position (you must move both of them!). This is
necessary so the system instrument can catch interrupts instead of the operating
system, which handles all interrupts on IRQ1. Once these jumpers are moved, only
register programming is usually possible.
To produce a signal that can be wired to the PIR lines, two register routines Res0_0,
and Res0_1 were created and are called by pressing the defined Softkeys labeled
Res0_0 and Res0_1. Res0_0 drives the Res0 line to 0 and Res0_1 drives the Res0
line high. A pull-up must also be attached to Res0 as it is an open collector device.
In order to test the PIR interrupts you connect a wire from Res0 (pin 9) to one or
more PIR inputs. Then, by pressing the softkeys Res0_0 followed by Res0_1, you
will produce the required signal.
10 !re-save "PIR_INT"
20 !This main line code is reserved as a error handling shell.
30 !All application code must be at lower level context.
40 ASSIGN @Sys TO 70900
50 ASSIGN @Dig TO 70918
60 COM /Instr/ @Sys,@Dig
70 COM /Register/ Logical_address
80 ON KEY 1 LABEL "QUIT& ?" RECOVER Quit
90 ON KEY 2 LABEL "END!" RECOVER End
100 ON KEY 3 LABEL "REG_DUMP" CALL Reg_dump
110 ON KEY 5 LABEL "STS0=1" CALL Res0_1
120 ON KEY 6 LABEL "STSO=0" CALL Res0_0
130 ON TIMEOUT 7,3 GOTO End
140 ON ERROR RECOVER Kaboom
!Define I/O paths.
!Key to quit and check for errors.
!Key to END now, no error check.
!Key to see E1330 registers.
!Key to drive line STS0 to 1
!Key to drive line STSO to 0.
!Turn TIMEOUTS to errors--this branch
never taken.
!This handles timeouts and errors not
handled at lower level contexts.
Appendix B
Advertisement
Table of Contents
