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 |
