Filter
Top Products
530 DATA 0.,50.,0.,50.
540 READ In1_atten,In1_imped,In2_atten,In2_imped !input atten and imp
550 !
560 DATA 0.,50.,1 !main output attenuation, impedance, and state
570 READ Out1_atten,Out1_imped,Out1_state
580 !
590 DATA 50.,50. !differential output impedances
600 READ Out2_imped,Out3_imped
610 !
620 Offset= 0. !DC offset
630 !
640 !Set E1446A base address and initialize COM variables
650 Set_addr(88)
660 !
670 !Set up E1446A
680 Setup_e1446(In1_atten,In1_imped,In2_atten,In2_imped,Out1_atten,Out1_imped,
Out1_state,Out2_imped,Out3_imped,Offset)
690 !
700 OUTPUT @Afg72;"INIT:IMM" !E1445A wait-for-arm state
710 OUTPUT @Afg80;"INIT:IMM" !E1445A wait-for-arm state
720 END
730 !
Example
Subprograms
The following file contains the subprograms used by the preceding
example programs.
1 !Subprograms used for register-based programming (file name ’E46SUBS’)
2 !
10 SUB Set_addr(Log_addr)
20 Set_addr: !Subprogram which sets E1446A base address and initializes
30 !the COM variables.
40 COM /E1446/ Base_addr,INTEGER In_ctrl,Out_imped
50 !Access A16 address space with READIO and WRITEIO
60 CONTROL 16,25;2
70 !
80 !Set base address and initialize COM variables
90 Base_addr= (DVAL("C000",16)+ Log_addr*64)
100 In_ctrl= 0
110 Out_imped= 50.
120 SUBEND
130 !
140 SUB Setup_e1446(In1_atten,In1_imped,In2_atten,In2_imped,Out1_atten,
Out1_imped,Out1_state,Out2_imped,Out3_imped,Offset)
150 COM /E1446/ Base_addr,INTEGER In_ctrl,Out_imped
160 INTEGER Out_ctrl !initialize output settings (att, imp, state) variable
170 !
Continued on Next Page
C-26 Register-Based Programming Example Programs