Table of Contents
Advertisement
Appendix B
1020
OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16))) &",8,64"
1030
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
1040
ENTER @Sys;A
1050
Bit1=BIT(A,1)
1060
PRINT "RES0 DRIVEN TO 0, PIR0 RECEIVED AS ";Bit1
1070
OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16))) &",8,96"
1080
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
1090
ENTER @Sys;A
1100
Bit1=BIT(A,1)
1110
PRINT "RES0 DRIVEN TO 1, PIR0 RECEIVED AS ";Bit1
1120
SUBEND
1130
!
1140 SUB Res_pi_io
1150
!LATCHED PIR0.
1160
!Connect RES0 to PIR0.
1170
!Use register programming to use RES0 & PIR0.
1180
COM @Sys,@Dvm,@Dig
1190
PRINT ""
1200
PRINT "SUBPROGRAM Res_pi_io"
1210
OUTPUT @Dig;"*RST"
1220 Ladd=80
1230 !Base=Start of A16+Offset to VXI Reg+Offset to card Reg.
1240 Base=2031616+49152+(Ladd*64)
1270 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("08',16))) &",8,131"
1280 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("0C",16))) &",8,128"
1290 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16))) &",8,64"
1300 OUTPUT @Sys;"DIAG;PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
1310
ENTER @Sys;A
1320
Bit1=BIT(A,1)
1330
PRINT "RES0 DRIVEN TO 0, PIR0 RECEIVED AS ";Bit1
1340
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("0C",16))) &",8"
1350
ENTER @Sys;A
1360
Bit7=BIT(A,7)
1370
PRINT "PERIPHERAL INTERRUPT = ";Bit7
1380
OUTPUT @Sys;"DIAG:POKE "@VAL$(Base+(DVAL("10",16))) &",8,96"
1390
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
1400
ENTER @Sys;A
1410
Bit1=BIT(A,1)
1420
PRINT "RES0 DRIVEN TO 1, PIR0 RECEIVED AS ";Bit1
1430
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("0C",16))) &",8"
1440
ENTER @Sys;A
1450
Bit7=BIT(A,7)
1460
PRINT "PERIPHERAL INTERRUPT = ";BIT7
1470 SUBEND
Agilent E1330B Digital I/O Module Register Information
!Drive RES0 to 0.
!Read REG B+10H.
!Drive RES0 to 1.
!Read REG B+10H.
!Demonstrates driving RES0 then
receiving PI.
!RESET to power on state.
!Set PIEN=1.
!Set PI=1.
!Drive RES0 to 0.
!Read REG B+10H.
!Read PI.
!Drive RES0 to 1.
!Read REG B+10H.
!Read PI.
139
Advertisement
Table of Contents
