150 | ! |
160 | REPEAT |
170OUTPUT Vxi_address;"SYST:ERR?"
180ENTER Vxi_address;Error
190PRINT "E1406 Reports Error: ";Error
200UNTIL (Error=0)
210!
220OUTPUT Vxi_address;"VXI:WRITE 128,4,1"! reset E1459A
230WAIT .1
240OUTPUT Vxi_address;"VXI:WRITE 128,4,0"!
250WAIT .1
260!
265! unmask all 16 pos bits for port 0
270OUTPUT Vxi_address;"VXI:WRITE
275! unmask all 16 neg bits for port 0
280OUTPUT Vxi_address;"VXI:WRITE
285! unmask all 16 pos bits for port 1
290OUTPUT Vxi_address;"VXI:WRITE
295! unmask all 16 neg bits for port 1
300OUTPUT Vxi_address;"VXI:WRITE
310!
315! set debounce to 16 uS (250KHz) for ports 0/1
320OUTPUT Vxi_address;"VXI:WRITE 128,30,2"
330!
340OUTPUT Vxi_address;"VXI:WRITE 128,4,16"! port 2/3 select
350!
355! unmask all 16 pos bits for port 2
360OUTPUT Vxi_address;"VXI:WRITE
365! unmask all 16 neg bits for port 2
370OUTPUT Vxi_address;"VXI:WRITE
375! unmask all 16 pos bits for port 3
380OUTPUT Vxi_address;"VXI:WRITE
385! unmask all 16 neg bits for port 3
390OUTPUT Vxi_address;"VXI:WRITE
400!
405! set debounce to 16 uS (250KHz) for ports 2/3
410OUTPUT Vxi_address;"VXI:WRITE 128,46,2"
420!
430OUTPUT Vxi_address;"*SRE 128"
440OUTPUT Vxi_address;"STAT:OPER:ENAB 256"
450OUTPUT Vxi_address;"DIAG:INT:SET1 ON"
460OUTPUT Vxi_address;"DIAG:INT:ACT ON"
470!
480OUTPUT Vxi_address;"*OPC?"
490ENTER Vxi_address;Done
500!
510ON INTR 7 GOSUB Service
520!
530OUTPUT Vxi_address;"VXI:WRITE 128,16,1"! edge enable, port 2
540OUTPUT Vxi_address;"VXI:WRITE 128,32,1"! edge enable, port 3
550!
560OUTPUT Vxi_address;"VXI:WRITE 128,4,0" ! port 0/1 select
570!
580OUTPUT Vxi_address;"VXI:WRITE 128,16,1"! edge enable, port 0
590OUTPUT Vxi_address;"VXI:WRITE 128,32,1"! edge enable, port 1
600!
610ENABLE INTR 7;2
615! int enable, port 0/1 select
HP E1459A Register Definitions 93