Filter
Top Products
1050 SELECT Out2_imped ! Set Diff+ output impedance
1060 CASE 50.
1070 Out_ctrl= BINIOR(Out_ctrl,8) ! Close 50 Ohm relay
1080 CASE 75.
1090 Out_ctrl= BINIOR(Out_ctrl,0) ! 75 Ohm - no action
1100 END SELECT
1110 !
1120 SELECT Out3_imped ! Set Diff- output impedance
1130 CASE 50.
1140 Out_ctrl= BINIOR(Out_ctrl,4) ! Close 50 Ohm relay
1150 CASE 75.
1160 Out_ctrl= BINIOR(Out_ctrl,0) ! 75 Ohm - no action
1170 END SELECT
1180 !
1190 WRITEIO -16,Base_addr+ 10;Out_ctrl ! Start output relay closings
1200 !
1210 ! Now do input side
1220 !
1230 In_ctrl= BINIOR(In_ctrl,SHIFT(In1_atten,-11)) !Set Input 1 attenuation
1240 !
1250 SELECT In1_imped ! Set Input 1 impedance
1260 CASE 50.
1270 In_ctrl= BINIOR(In_ctrl,512) ! Close 50 Ohm relay
1280 CASE 75.
1290 In_ctrl= BINIOR(In_ctrl,1024) ! Close 75 Ohm relay
1300 CASE 1.E+ 6
1310 In_ctrl= BINIOR(In_ctrl,0) ! 1 MOhm - no action
1320 END SELECT
1330 !
1340 In_ctrl= BINIOR(In_ctrl,SHIFT(In2_atten,-3)) !Set Input 2 attenuation
1350 !
1360 SELECT In2_imped ! Set Input 2 impedance
1370 CASE 50.
1380 In_ctrl= BINIOR(In_ctrl,2) ! Close 50 Ohm relay
1390 CASE 75.
1400 In_ctrl= BINIOR(In_ctrl,4) ! Close 75 Ohm relay
1410 CASE 1.E+ 6
1420 In_ctrl= BINIOR(In_ctrl,0) ! 1 MOhm - no action
1430 END SELECT
1440 !
1450 In_ctrl= BINAND(In_ctrl,-2) ! Enable inverter
1460 WRITEIO -16,Base_addr+ 12;In_ctrl ! Start input relay closings
1470 WAIT .01 ! Wait for relay closings to finish
1480 !
1490 ! Remove previous configuration
1500 !
Continued on Next Page
Example Programs Register-Based Programming C-29