Filter
Top Products
1510 IF Out1_state THEN ! Remove previous output relay state
1520 Out_ctrl= BINIOR(Out_ctrl,16) ! Close output relay
1530 ELSE
1540 Out_ctrl= BINAND(Out_ctrl,-17) ! Open output relay
1550 END IF
1560 !
1570 ! Relay opens start here
1580 !
1590 ! Do output relays first
1600 !
1610 SELECT Out1_atten ! Remove previous output attenuation
1620 CASE 0.
1630 Out_ctrl= BINAND(Out_ctrl,-65) ! Open 20 dB relay
1640 CASE 20
1650 Out_ctrl= BINAND(Out_ctrl,127) ! Open 0 dB relay
1660 END SELECT
1670 !
1680 WRITEIO -16,Base_addr+ 10;Out_ctrl ! Start output relay openings
1690 !
1700 ! Now do input side
1710 !
1720 ! Remove previous input 1 attenuation and impedance
1730 In_ctrl= BINIOR(BINAND(In_ctrl,2047),SHIFT(In1_atten,-11))
1740 SELECT In1_imped
1750 CASE 50.
1760 In_ctrl= BINAND(In_ctrl,-1025) ! Open 75 Ohm relay
1770 CASE 75.
1780 In_ctrl= BINAND(In_ctrl,-513) ! Open 50 Ohm relay
1790 CASE 1.E+ 6
1800 In_ctrl= BINAND(In_ctrl,-1537) ! Open both relays
1810 END SELECT
1820 !
1830 ! Remove previous input 2 attenuation and impedance
1840 In_ctrl= BINIOR(BINAND(In_ctrl,-249),SHIFT(In2_atten,-3))
1850 SELECT In2_imped
1860 CASE 50.
1870 In_ctrl= BINAND(In_ctrl,-5) ! Open 75 Ohm relay
1880 CASE 75.
1890 In_ctrl= BINAND(In_ctrl,-3) ! Open 50 Ohm relay
1900 CASE 1.E+ 6
1910 In_ctrl= BINAND(In_ctrl,-7) ! Open both relays
1920 END SELECT
1930 !
1940 WRITEIO -16,Base_addr+ 12;In_ctrl ! Start input relay closings
1950 WAIT .01 ! Wait for relay closings to finish
1960 !
Continued on Next Page
C-30 Register-Based Programming Example Programs