User`s manual

Agilent E1330B Digital I/O Module Register Information 135
Appendix B
1150 Enable_pir2
1160 END IF
1170 IF BIT(Int_ack,10)=0 THEN
1180 PRINT "PIR3 OCCURRED"
1190 Enable_pir3
1200 END IF
1210 Enable_int
1220 OUTPUT @Sys;"DIAG:INT:SETUP2 ON;:DIAG:INT:ACT ON;*OPC?"
1230 ENTER @Sys;A
1240 ENABLE INTR 7;2
1250 Int_ser_:SUBEND
1260 !
1270 Res0_1:SUB Res0_1
!Subprogram to drive line RESO (PIN 5)
to 1.
1280 ! !Must have a pullup on RES0 as it is
open collector.
1290 COM /Instr/ @Sys,@Dig
1300 COM /Register/ Logical_address
1310 Base=2031616+49152+(Logical_address*64)
1320 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16)))&",8,96"
1330 PRINT "RES0 DRIVEN TO 1"
1340 Res0_1_:SUBEND
1350 !
1360 Res0_0:SUB Res0_0
!Subprogram to drive line RES0 (PIN 5)
to 0.
1370 COM /Instr/ @Sys,@Dig
1380 COM /Register/ Logical_address
1390 Base=2031616+49152+(Logical_address*64)
1400 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16)))&",8,64"
1410 PRINT "STS0 DRIVEN TO 0"
1420 Res0_0_:SUBEND
1430 !
1440 Enable_pir0:SUB Enable_pir0
1450 COM /Instr/ @Sys,@Dig
1460 COM /Register/ Logical_address
1470 Base=2031616+49152+(Logical_address*64)
1480 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0C",16)))&",8,0"
!PI=0
1490 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("08",16)))&",8,128"
!PIEN=1
1500 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0C",16)))&",8,128"
!PI=1
1510 Enable_pir0_:SUBEND
1520 !
1530 Enable_pir1:SUB Enable_pir1
1540 COM /Instr/ @Sys,@Dig
1550 COM /Register/ Logical_address
1560 Base=2031616+49152+(Logical_address*64)
1570 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0D",16)))&",8,0"
!PI=0
1580 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("09",16)))&",8,128"
! PIEN=1
1590 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0D",16)))&",8,128"
! PI=1
1600 Enable_pir1_:SUBEND
1610 !
1620 Enable_pir2:SUB Enable_pir2