1030 ENTER Vxi_address;A0
1035 ! get neg edge register, port 0
1040 OUTPUT Vxi_address;"VXI:READ? 128,22"
1050 ENTER Vxi_address;A1
1060 !
1065 ! get dav data register, port 1
1070 OUTPUT Vxi_address;"VXI:READ? 128,34"
1080 ENTER Vxi_address;A
1090 PRINT "DAV Data Reg Port 1: ";A
1100 !
1105 ! get pos edge register, port 1
1110 OUTPUT Vxi_address;"VXI:READ? 128,36"
1120 ENTER Vxi_address;B0
1125 ! get neg edge register, port 1
1130 OUTPUT Vxi_address;"VXI:READ? 128,38"
1140 ENTER Vxi_address;B1
1150 !
1155 ! E1459A ints disabled, port 2/3 select
1160 OUTPUT Vxi_address;"VXI:WRITE 128,4,16"
1170 !
1175 ! get dav data register, port 2
1180 OUTPUT Vxi_address;"VXI:READ? 128,18"
1190 ENTER Vxi_address;A
1200 PRINT "DAV Data Reg Port 2: ";A
1210 !
1215 ! get pos edge register, port 2
1220 OUTPUT Vxi_address;"VXI:READ? 128,20"
1230 ENTER Vxi_address;C0
1235 ! get neg edge register, port 2
1240 OUTPUT Vxi_address;"VXI:READ? 128,22"
1250 ENTER Vxi_address;C1
1260 !
1265 ! get dav data register, port 3
1270 OUTPUT Vxi_address;"VXI:READ? 128,34"
1280 ENTER Vxi_address;A
1290 PRINT "DAV Data Reg Port 3: ";A
1300 !
1305 ! get pos edge register, port 3
1310 OUTPUT Vxi_address;"VXI:READ? 128,36"
1320 ENTER Vxi_address;D0
1325 ! get neg edge register, port 3
1330 OUTPUT Vxi_address;"VXI:READ? 128,38"
1340 ENTER Vxi_address;D1
1350 !
1355 ! get dav status register
1360 OUTPUT Vxi_address;"VXI:READ? 128,8"
1370 ENTER Vxi_address USING "#,K";E
1380 Dstat=BINAND(E,15)
1390 PRINT "DAV Status Reg: ";Dstat
1400 PRINT
1410 !
1415 ! get edge int status register
1420 OUTPUT Vxi_address;"VXI:READ? 128,6"
1430 ENTER Vxi_address;A
1440 A=BINAND(A,15)
1450 PRINT "EInt Status: ";A
1460 !
1465 ! print wrd 0 edge registers
HP E1459A Register Definitions 101