User`s manual

Agilent E1330B Digital I/O Module Register Information 133
Appendix B
150 !
160 Main
!Put application code in this sub.
170 Quit:PRINT “Checking for E13xx Errors at the end of the program”
180 E13xx_errors
190 GOTO End
200 Kaboom:PRINT “”
210 PRINT ERRM$
220 PRINT “Checking for E13xx Errors as a BASIC Error has occurred”
230 E13xx_errors
240 End:END
250 !
260 SUB E13xx_errors !This sub reads all errors from E13xx
instruments.
270 COM /Instr/ @Sys,@Dig
280 DIM A$[128]
290 ABORT 7
!Free bus handshakes.
300 !
310 CLEAR @Sys
!Terminate instrument activity & clear
I/O buffers.
320 REPEAT
330 OUTPUT @Sys;"SYST:ERR?"
340 ENTER @Sys;A,A$
350 PRINT "SYSTEM ERROR ";A$
360 UNTIL A=0
370 SUBEND
380 !
390 Main:SUB Main
!This subroutine is treated as the main
line
400 COM /Instr/ @Sys,@Dig
410 COM /Register/ Logical_address
420 !Put application code here
430 CLEAR @Sys
440 OUTPUT @Sys;"*RST;*CLS;*OPC?"
450 ENTER @Sys;A
460 Logical_address=144
!E1330 LOGICAL ADDRESS.
470 CALL Reset_dig
!Reset the E1330.
480 !
490 !Now setup the system instrument to catch backplane interrupt on IRQ2.
500 OUTPUT @Sys;"STATUS:OPER:ENAB 256;*SRE 128"
!SRQ on backplane INT.
510 OUTPUT @Sys;"DIAG:INT:SETUP2 ON"
!System instrument to catch IRQ2.
520 OUTPUT @Sys;"DIAG:INT:ACT ON;*OPC?"
530 ENTER @Sys;A
540 !
550 !Enable the E1330 to produce PIR interrupts.
560 Enable_pir0
570 Enable_pir1
580 Enable_pir2
590 Enable_pir3
600 Enable_int
610 ON INTR 7,2 CALL Intr_ser
620 ENABLE INTR 7;2
630 !This is just a wait loop.
640 LOOP
650 PRINT TIMEDATE
660 WAIT .5