HP E1459A - Manual (Page 99)

98 HP E1459A Register Definitions
860 OUTPUT Vxi_address;"VXI:READ? 128,8" ! get dav status register
870 ENTER Vxi_address;A
880 !
890 A=BINAND(A,15)
900 PRINT "DAV Status: ";A
910 !
915 ! get dav data register, port 0
920 OUTPUT Vxi_address;"VXI:READ? 128,18"
930 ENTER Vxi_address;A
940 PRINT "DAV Data Reg Port 0: ";A
950 !
955 ! get dav data register, port 1
960 OUTPUT Vxi_address;"VXI:READ? 128,34"
970 ENTER Vxi_address;A
980 PRINT "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
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com