Agilent Technologies E1330B User's Manual And Scpi Programming Manual page 137

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
1280 !
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
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"
1490 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("08",16)))&",8,128"
1500 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0C",16)))&",8,128"
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"
1580 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("09",16)))&",8,128"
1590 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0D",16)))&",8,128"
1600 Enable_pir1_:SUBEND
1610 !
1620 Enable_pir2:SUB Enable_pir2
Agilent E1330B Digital I/O Module Register Information
!Subprogram to drive line RESO (PIN 5)
to 1.
!Must have a pullup on RES0 as it is
open collector.
!Subprogram to drive line RES0 (PIN 5)
to 0.
!PI=0
!PIEN=1
!PI=1
!PI=0
! PIEN=1
! PI=1
135