1470 A=BINAND(A0,-256)

1480 PRINT "Wrd 0 Pos Edge: ";A

1490 A=BINAND(A1,-256)

1500 PRINT "Wrd 0 Neg Edge: ";A

1510 !

1515 ! get edge int status register

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

1530 ENTER Vxi_address;A

1540 A=BINAND(A,15)

1550 PRINT "EInt Status: ";A

1560 !

1565 ! print wrd 1 edge registers

1570 B=BINAND(B0,-256)

1580 PRINT "Wrd 1 Pos Edge: ";B

1590 B=BINAND(B1,-256)

1600 PRINT "Wrd 1 Neg Edge: ";B

1610 !

1615 ! get edge int status register

1620 OUTPUT Vxi_address;"VXI:READ? 128,6"

1630 ENTER Vxi_address;A

1640 A=BINAND(A,15)

1650 PRINT "EInt Status: ";A

1660 !

1665 ! print wrd 2 edge registers

1670 C=BINAND(C0,-256)

1680 PRINT "Wrd 2 Pos Edge: ";C

1690 C=BINAND(C1,-256)

1700 PRINT "Wrd 2 Neg Edge: ";C

1710 !

1715 ! get edge int status register

1720 OUTPUT Vxi_address;"VXI:READ? 128,6"

1730 ENTER Vxi_address;A

1740 A=BINAND(A,15)

1750 PRINT "EInt Status: ";A

1760 !

1765 ! print wrd 3 edge registers

1770 D=BINAND(D0,-256)

1780 PRINT "Wrd 3 Pos Edge: ";D

1790 D=BINAND(D1,-256)

1800 PRINT "Wrd 3 Neg Edge: ";D

1810 !

1815 ! get edge int status register

1820 OUTPUT Vxi_address;"VXI:READ? 128,6"

1830 ENTER Vxi_address;A

1840 A=BINAND(A,15)

1850 PRINT "EInt Status: ";A

1860 PRINT

1870 !

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

1890 OUTPUT Vxi_address;"DIAG:INT:ACT ON"

1900 OUTPUT Vxi_address;"*OPC?"

1910 ENTER Vxi_address;Done

1920 !

1930 ENABLE INTR 7;2

1935 !dav/edge int enabled, port 0/1 select

1940 OUTPUT Vxi_address;"VXI:WRITE 128,4,96"

1950 !

1960 RETURN

102 HP E1459A Register Definitions