Agilent Technologies E1446A user manual Outctrl= BINANDOutctrl,-17 Open output relay 1550

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