860OUTPUT Vxi_address;"VXI:READ? 128,8"! get dav status register
870ENTER Vxi_address;A
880!
890A=BINAND(A,15)
900PRINT "DAV Status: ";A
910!
915! get dav data register, port 0
920OUTPUT Vxi_address;"VXI:READ? 128,18"
930ENTER Vxi_address;A
940PRINT "DAV Data Reg Port 0: ";A
950!
955! get dav data register, port 1
960OUTPUT Vxi_address;"VXI:READ? 128,34"
970ENTER Vxi_address;A
980PRINT "DAV Data Reg Port 1: ";A
990!
995! E1459A ints disabled, port 2/3 select
1000 OUTPUT Vxi_address;"VXI:WRITE 128,4,16"
1010 !
1015 ! get dav data register, port 2
1020 OUTPUT Vxi_address;"VXI:READ? 128,18"
1030 ENTER Vxi_address;A
1040 PRINT "DAV Data Reg Port 2: ";A
1050 !
1055 ! get dav data register, port 3
1060 OUTPUT Vxi_address;"VXI:READ? 128,34"
1070 ENTER Vxi_address;A
1080 PRINT "DAV Data Reg Port 3: ";A
1090 !
1100 OUTPUT Vxi_address;"VXI:READ? 128,8"! get dav status register 1110 ENTER Vxi_address USING "#,K";E
1120 Istat=BINAND(E,15)
1130 PRINT "DAV Status Reg: ";Istat
1140 PRINT
1150 !
1160 OUTPUT Vxi_address;"DIAG:INT:SET1 ON"
1170 OUTPUT Vxi_address;"DIAG:INT:ACT ON"
1180 OUTPUT Vxi_address;"*OPC?"
1190 ENTER Vxi_address;Done
1200 !
1210 ENABLE INTR 7;2
1215 ! dav int enabled, port 0/1 select
1220 OUTPUT Vxi_address;"VXI:WRITE 128,4,64"
1230 !
1240 RETURN
1250 END
Mixed Interupt Example This example is coded in HP RMB for a System 9000 (Series 300) linked to a E1406 Command Module via HPIB. The example enables all four channel ports to detect both positive and negative edges on the high order eight channels of any port. (Any unmasked edge will generate an interrupt.) The low order eight channels of each port are defined for capture of an eight bit data byte. (An interrupt will also be generated on the occurrence of an external capture clock at any channel port.) When idle, the program will loop and continuously display the EDGE INTERRUPT STATUS REGISTER and the DATA AVAILABLE REGISTER. On interrupt, the program will display the EDGE DETECT REGISTERS and CHANNEL
98 HP E1459A Register Definitions