DATA REGISTERS for each port.
100CLEAR SCREEN
110DIM A$[40]
120Vxi_address=70900
130!
140CLEAR 7
150OUTPUT Vxi_address;"*RST;*CLS" ! reset E1406
160!
170REPEAT
180OUTPUT Vxi_address;"SYST:ERR?"
190ENTER Vxi_address;Error
200PRINT "E1406 Reports Error: ";Error
210UNTIL (Error=0)
220!
230OUTPUT Vxi_address;"VXI:WRITE 128,4,1"! reset E1459A
240WAIT .1
250OUTPUT Vxi_address;"VXI:WRITE 128,4,0"!
260WAIT .1
270!
275! dav enable, ext clk, edge enable, port 0
280OUTPUT Vxi_address;"VXI:WRITE 128,16,7"
285! unmask high order 8 pos bits for port 0
290OUTPUT Vxi_address;"VXI:WRITE
295! unmask high order 8 neg bits for port 0
300OUTPUT Vxi_address;"VXI:WRITE
310!
315! dav enable, ext clk, edge enable, port 1
320OUTPUT Vxi_address;"VXI:WRITE 128,32,7"
325! unmask high order 8 pos bits for port 1
330OUTPUT Vxi_address;"VXI:WRITE
335! unmask high order 8 neg bits for port 1
340OUTPUT Vxi_address;"VXI:WRITE
350!
355! set debounce to 16 uS (250 KHz) for ports 0/1
360OUTPUT Vxi_address;"VXI:WRITE 128,30,2"
370!
375! E1459A ints disabled, port 2/3 select
380OUTPUT Vxi_address;"VXI:WRITE 128,4,16"
390!
395! dav enable, ext clk, edge enable, port 2
400OUTPUT Vxi_address;"VXI:WRITE 128,16,7"
405! unmask high order 8 pos bits for port 2
410OUTPUT Vxi_address;"VXI:WRITE
415! unmask high order 8 neg bits for port 2
420OUTPUT Vxi_address;"VXI:WRITE
430!
435! dav enable, ext clk, edge enable, port 3
440OUTPUT Vxi_address;"VXI:WRITE 128,32,7"
445! unmask high order 8 pos bits for port 3
450OUTPUT Vxi_address;"VXI:WRITE
455! unmask high order 8 neg bits for port 3
460OUTPUT Vxi_address;"VXI:WRITE
470!
475! set debounce to 16 uS (250 KHz) for ports 2/3
480OUTPUT Vxi_address;"VXI:WRITE 128,46,2"
490!
500OUTPUT Vxi_address;"*SRE 128"
HP E1459A Register Definitions 99