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