HP E1418A - Manual (Page 150)

699 Reg_offset(20) = 40 ! A_24 Window Register (Channel 5 DAC and CAL).
700 Reg_offset(21) = 42 ! A_24 Window Register (Channel 6 DAC and CAL).
701 Reg_offset(22) = 44 ! A_24 Window Register (Channel 7 DAC and CAL).
702 Reg_offset(23) = 46 ! A_24 Window Register (Channel 8 DAC and CAL).
703 Reg_offset(24) = 48 ! A_24 Window Register (Channel 9 DAC and CAL).
704 Reg_offset(25) = 50 ! A_24 Window Register (Channel 10 DAC and CAL).
705 Reg_offset(26) = 52 ! A_24 Window Register (Channel 11 DAC and CAL).
706 Reg_offset(27) = 54 ! A_24 Window Register (Channel 12 DAC and CAL).
707 Reg_offset(28) = 56 ! A_24 Window Register (Channel 13 DAC and CAL).
708 Reg_offset(29) = 58 ! A_24 Window Register (Channel 14 DAC and CAL).
709 Reg_offset(30) = 60 ! A_24 Window Register (Channel 15 DAC and CAL).
710 Reg_offset(31) = 62 ! A_24 Window Register (Channel 16 DAC and CAL).
•
•
•
999 ! Output a calibrated voltage on channel 3.
1000 !
1001 Write_a16(Reg_offset(15),8) ! Map A 24 voltage offset cal registers.
1002 Off_con=FNRead_a16(Reg_offset(18)) ! Get the channel 3 voltage offset cal.
1003 Write_a16(Reg_offset(15),4) ! Map A 24 channel offset registers.
1004 Write_a16(Reg_offset(18),Off_con) ! Put in the offset constant.
1005 Write_a16(Reg_offset(15),9) ! Map A 24 voltage gain cal registers.
1006 Gain_con=FNRead_a16(Reg_offset(18)) ! Get the channel 3 voltage gain cal.
1007 Write_a16(Reg_offset(15),5) ! Map A 24 channel gain registers.
1008 Write_a16(Reg_offset(18),Gain_con) ! Put in the gain constant.
1009 Write_a16(Reg_offset(15),2) ! Map A 24 channel Main_DAC registers.
1010 Write_a16(Reg_offset(18),Out_val) ! Program the output value.
1011 Write_a16(Reg_offset(14),0) ! Close all output relays.
•
•
•
2200 Write_a16:SUB Write_a16(INTEGER Register,INTEGER Value).
2201 !
2202 !
2203 Laddr$="09"
2204 OUTPUT 70900;"VXI:WRITE “&Laddr$&”,"&VAL$(Register)&","&VAL$(Value)
2205 SUBEND
•
•
•
3200 Read_a16:DEF FNRead_a16(INTEGER Register)
3201 !
3202 !
3203 Laddr$="09"
3204 OUTPUT 70900;"VXI:READ? “&Laddr$&”,"&VAL$(Register)
3205 ENTER 70900; Reading
3206 RETURN Reading
3207 Read_a16_end:FNEND
•
•
•
Notes
Appendix B HP E1418A Register-Based Programming 149
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com