Table of Contents
Advertisement
134 Agilent E1330B Digital I/O Module Register Information
670
END LOOP
680 Main_:SUBEND
690 !
700 SUB Reset_dig
710
COM /Register/ Logical_address
720
COM /Instr/ @Sys,@Dig
730
OUTPUT @Dig;"*RST;*OPC?"
740
ENTER @Dig;A
750 SUBEND
760 Reg_dump:SUB Reg_dump
770 !This queries all E1330 registers to help debugging.
780
COM /Instr/ @Sys,@Dig
790
COM /Register/ Logical_address
800
INTEGER Query,Reg
810
Base=2031616+49152+(Logical_address*64)
820
FOR Reg=0 TO 35
830
OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+Reg)&",8"
840
ENTER @Sys;Query
850
Query=BINAND(Query,255)
860
Hquery$=IVAL$(Query,16)
870
Bquery$=IVAL$(Query,2)
880
Hreg$=IVAL$(Reg,16)
890
PRINT "REGISTER--#D";Reg;" #H";Hreg$[3,4];
"VALUE--#D";Query;" #H";Hquery$[3,4];" #B";Bquery$[9,16]
900
NEXT Reg
910 Reg_dump_:SUBEND
920 !
930 Int_ser:SUB Intr_ser
940
COM /Instr/ @Sys,@Dig
950
PRINT "got a interrupt"
960
A=SPOLL(@Sys)
970
PRINT "SERIAL POLL VALUE ";A
980
OUTPUT @Sys;"STAT:OPER:EVEN?" !Must read Operation Status register
990
ENTER @Sys;Stat_oper
1000
PRINT "STATUS:OPERATION:EVENT ";Stat_oper
1010
OUTPUT @Sys;"DIAG:INT:RESP?"
1020
ENTER @Sys;Int_ack
1030
PRINT "INTERRUPT ACKNOWLEDGE ";Int_ack;DVAL$(Int_ack,2);
"
= LADD ";BINAND(Int_ack,255)
1040
!
1050
IF BIT(Int_ack,9)=0 THEN
1060
PRINT "PIR0 OCCURRED"
1070
Enable_pir0
1080
END IF
1090
IF BIT(Int_ack,8)=0 THEN
1100
PRINT "PIR1 OCCURRED"
1110
Enable_pir1
1120
END IF
1130
IF BIT(Int_ack,11)=0 THEN
1140
PRINT "PIR2 OCCURRED"
!May use SCPI as reset does not use
interrupts as the IRQ2 jumper is being
used.
!Do 8 Bit reads.
!This is the interrupt service routine.
!Must serial poll to clear status byte.
!Must enter Interrupt Acknowledge
query.
!Determine which PIR interrupt
occurred & re-enable it.
Appendix B
Advertisement
Table of Contents
