1140 OUTPUT Vxi_address;"VXI:READ? 128,22"

1150 ENTER Vxi_address;B

1160 PRINT "Wrd 0 Pos Edge: ";A

1170 PRINT "Wrd 0 Neg Edge: ";B

1180 !

1190 OUTPUT Vxi_address;"VXI:READ? 128,6"! get int status register 1200 ENTER Vxi_address;E

1210 Istat=BINAND(E,15)

1220 PRINT "Edge Int Status: ";Istat

1230 !

1235 ! get pos edge register port 1

1240 OUTPUT Vxi_address;"VXI:READ? 128,36"

1250 ENTER Vxi_address;A

1255 ! get neg edge register port 1

1260 OUTPUT Vxi_address;"VXI:READ? 128,38"

1270 ENTER Vxi_address;B

1280 PRINT "Wrd 1 Pos Edge: ";A

1290 PRINT "Wrd 1 Neg Edge: ";B

1300 !

1310 OUTPUT Vxi_address;"VXI:READ? 128,6"! get int status register 1320 ENTER Vxi_address;E

1330 Istat=BINAND(E,15)

1340 PRINT "Edge Int Status: ";Istat

1350 !

1355 ! int disable, port 2/3 select

1360 OUTPUT Vxi_address;"VXI:WRITE 128,4,16"

1370 !

1375 ! get pos edge register port 2

1380 OUTPUT Vxi_address;"VXI:READ? 128,20"

1390 ENTER Vxi_address;A

1395 ! get neg edge register port 2

1400 OUTPUT Vxi_address;"VXI:READ? 128,22"

1410 ENTER Vxi_address;B

1420 PRINT "Wrd 2 Pos Edge: ";A

1430 PRINT "Wrd 2 Neg Edge: ";B

1440 !

1450 OUTPUT Vxi_address;"VXI:READ? 128,6"! get int status register 1460 ENTER Vxi_address;E

1470 Istat=BINAND(E,15)

1480 PRINT "Edge Int Status: ";Istat

1490 !

1495 ! get pos edge register port 3

1500 OUTPUT Vxi_address;"VXI:READ? 128,36"

1510 ENTER Vxi_address;A

1515 ! get neg edge register port 3

1520 OUTPUT Vxi_address;"VXI:READ? 128,38"

1530 ENTER Vxi_address;B

1540 PRINT "Wrd 3 Pos Edge: ";A

1550 PRINT "Wrd 3 Neg Edge: ";B

1560 !

1570 OUTPUT Vxi_address;"VXI:READ? 128,6"! get int status register 1580 ENTER Vxi_address;E

1590 Istat=BINAND(E,15)

1600 PRINT "Edge Int Status: ";Istat

1610 !

1620 PRINT

1630 !

1640 OUTPUT Vxi_address;"DIAG:INT:SET1 ON"

HP E1459A Register Definitions 95