Filter
Top Products
94 HP E1459A Register Definitions
620 OUTPUT Vxi_address;"VXI:WRITE 128,4,32"
630 !
640 LOOP
650 DISABLE INTR 7
660 !
665 !int enabled, port 0/1 select
670 OUTPUT Vxi_address;"VXI:WRITE 128,4,32"
680 !
690 OUTPUT Vxi_address;"VXI:READ? 128,18"
! get data register port 0
700 ENTER Vxi_address;G0
710 OUTPUT Vxi_address;"VXI:READ? 128,34"
! get data register port 1
720 ENTER Vxi_address;G1
730 !
735 ! int enabled, port 2/3 select
740 OUTPUT Vxi_address;"VXI:WRITE 128,4,48"
750 !
760 OUTPUT Vxi_address;"VXI:READ? 128,18"
! get data register port 2
770 ENTER Vxi_address;G2
780 OUTPUT Vxi_address;"VXI:READ? 128,34"
! get data register port 3
790 ENTER Vxi_address;G3
800 !
810 OUTPUT Vxi_address;"VXI:READ? 128,6"
! get int status register
820 ENTER Vxi_address;E
830 ENABLE INTR 7;2
840 Istat=BINAND(E,15)
850 DISP "Port 0: ";G0,"Port 1: ";G1,"Port 2: ";G2,"Port 3: ";G3,"Intr: ";Istat
860 END LOOP
870 !
880 Service: !
890 DISABLE INTR 7
895 ! disable E1459A ints, port 0/1 select
900 OUTPUT Vxi_address;"VXI:WRITE 128,4,0"
910 !
920 A=SPOLL(Vxi_address)
930 OUTPUT Vxi_address;"STAT:OPER:EVEN?"
940 ENTER Vxi_address;S_op
950 OUTPUT Vxi_address;"DIAG:INT:RESP?"
960 ENTER Vxi_address;R
970 !
980 REPEAT
990 OUTPUT Vxi_address;"SYST:ERR?"
1000 ENTER Vxi_address;Ec,A$
1010 UNTIL Ec=0
1020 !
1030 N=N+1
1040 PRINT "Int #: ";N
1050 !
1060 OUTPUT Vxi_address;"VXI:READ? 128,6"
! get int status register
1070 ENTER Vxi_address;A
1080 !
1090 A=BINAND(A,15)
1100 PRINT "Edge Int Status: ";A
1110 !
1115 ! get pos edge register port 0
1120 OUTPUT Vxi_address;"VXI:READ? 128,20
"
1130 ENTER Vxi_address;A
1135 ! get neg edge register port 0