620OUTPUT Vxi_address;"VXI:WRITE 128,4,32"
630!
640LOOP
650DISABLE INTR 7
660!
665!int enabled, port 0/1 select
670OUTPUT Vxi_address;"VXI:WRITE 128,4,32"
680!
690OUTPUT Vxi_address;"VXI:READ? 128,18"! get data register port 0
700ENTER Vxi_address;G0
710OUTPUT Vxi_address;"VXI:READ? 128,34"! get data register port 1
720ENTER Vxi_address;G1
730!
735! int enabled, port 2/3 select
740OUTPUT Vxi_address;"VXI:WRITE 128,4,48"
750!
760OUTPUT Vxi_address;"VXI:READ? 128,18" ! get data register port 2
770ENTER Vxi_address;G2
780OUTPUT Vxi_address;"VXI:READ? 128,34" ! get data register port 3
790ENTER Vxi_address;G3
800!
810OUTPUT Vxi_address;"VXI:READ? 128,6" ! get int status register
820ENTER Vxi_address;E
830ENABLE INTR 7;2
840Istat=BINAND(E,15)
850DISP "Port 0: ";G0,"Port 1: ";G1,"Port 2: ";G2,"Port 3: ";G3,"Intr: ";Istat
860END LOOP
870!
880Service: !
890DISABLE INTR 7
895! disable E1459A ints, port 0/1 select
900OUTPUT Vxi_address;"VXI:WRITE 128,4,0"
910!
920A=SPOLL(Vxi_address)
930OUTPUT Vxi_address;"STAT:OPER:EVEN?"
940ENTER Vxi_address;S_op
950OUTPUT Vxi_address;"DIAG:INT:RESP?"
960ENTER Vxi_address;R
970!
980REPEAT
990OUTPUT 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
94 HP E1459A Register Definitions