365 ! dav enable, ext clk, port 2
370OUTPUT Vxi_address;"VXI:WRITE 128,16,6"
375! mask off all 16 pos bits for port 2
380OUTPUT Vxi_address;"VXI:WRITE 128,24,0"
385! mask off all 16 neg bits for port 2
390OUTPUT Vxi_address;"VXI:WRITE 128,26,0"
400!
405! dav enable, ext clk, port 3
410OUTPUT Vxi_address;"VXI:WRITE 128,32,6"
415! mask off all 16 pos bits for port 3
420OUTPUT Vxi_address;"VXI:WRITE 128,36,0"
425! mask off all 16 neg bits for port 3
430OUTPUT Vxi_address;"VXI:WRITE 128,38,0"
440!
445! set debounce to 16 uS (250 KHz) for ports 2/3
450OUTPUT Vxi_address;"VXI:WRITE 128,30,2"
460!
470OUTPUT Vxi_address;"*SRE 128"
480OUTPUT Vxi_address;"STAT:OPER:ENAB 256"
490OUTPUT Vxi_address;"DIAG:INT:SET1 ON"
500OUTPUT Vxi_address;"DIAG:INT:ACT ON"
510!
520OUTPUT Vxi_address;"*OPC?"
530ENTER Vxi_address;Done
540!
550ON INTR 7 GOSUB Service
560ENABLE INTR 7;2
565! dav int enable, port 0/1 select
570OUTPUT Vxi_address;"VXI:WRITE 128,4,64"
580!
590LOOP
600DISABLE INTR 7
610OUTPUT Vxi_address;"VXI:READ? 128,8"! get dav status register
620ENTER Vxi_address;E
630ENABLE INTR 7;2
640Istat=BINAND(E,15)
650DISP "DAV Status Reg: ";Istat
660END LOOP
670!
680Service: !
690DISABLE INTR 7
695! disable E1459A ints, port 0/1 select
700OUTPUT Vxi_address;"VXI:WRITE 128,4,0"
710!
720A=SPOLL(Vxi_address)
730OUTPUT Vxi_address;"STAT:OPER:EVEN?"
740ENTER Vxi_address;S_op
750OUTPUT Vxi_address;"DIAG:INT:RESP?"
760ENTER Vxi_address;R
770!
780REPEAT
790OUTPUT Vxi_address;"SYST:ERR?"
800ENTER Vxi_address;Ec,A$
810UNTIL Ec=0
820!
830N=N+1
840PRINT "Int #: ";N
850!
HP E1459A Register Definitions 97