Agilent Technologies 85330A service manual Assign HP 8530A HP-IB

Programming

Programming Examples

1045	!
1046	Angle_start=-90
1047	Angle_stop=90
1048	Angle_incr=10
1049	Angle_pts=((Angle_stop-Angle_start)/Angle_incr)+1
1050	!
1051	Freq_start=3	! GHz
1052	Freq_stop=5	! GHz
1053	Freq_pts=11	! Points
1054	Freq_offset=.020	! Ghz
1055	Freq_step=(Freq_stop-Freq_start)/(Freq_pts-1)
1056	!
1057	Points=Angle_pts*Chan_pts*Freq_pts ! Total points to be measured for
1058	!		! a singe angle scan.
1059	!
1060	REDIM Data_f1(1:Points,0:2)		! 6 byte format.
1061	ALLOCATE REAL Data_f3(1:Points,1:2) ! Real and imaginary pairs
1062	!
1063	Rec_averages=1
1064	!
1065	! Set HP-IB addresses
1066	!
1067	ASSIGN @Rec TO 716		! ASSIGN HP 8530A HP-IB.
1068	ASSIGN @Rec_data TO 716;FORMAT OFF ! ASSIGN HP 8530A DATA HP-IB.
1069	ASSIGN @Rf TO 719		! ASSIGN HP 8360 RF SOURCE HP-IB.
1070	ASSIGN @Lo TO 718		! ASSIGN HP 8360 LO SOURCE HP-IB.
1071	ASSIGN @Hp85330a TO 70918		! Assign HP 85330A HP-IB
1072	ASSIGN @Buffer TO BUFFER Data_f1(*)! ASSIGN INPUT BUFFER.
1073	!
1074	Set_receiver: !
1075	!
1076	OUTPUT @Rec;”ADDRSOUR 31;”		! Since the HP 8530A does NOT have control of the
1077	OUTPUT @Rec;”ADDRSOU2 31;” ! sources, set the source address on the
1078	!		! HP 8530A to 31.
1079	!
1080	OUTPUT @Rec;”FREQ;”		! Set to frequency domain
1081	OUTPUT @Rec;”SINC;”		! Set to single channel
1082	OUTPUT @Rec;”SINP;”		! Set to single point
1083	OUTPUT @Rec;”PARA1;”		! select b1/a1 ratio
1084	!
1085	IF Rec_averages>1 THEN
1086	OUTPUT @Rec;”AVERON”;Rec_averages;”;” ! Turn averaging on.
1087	ELSE
1088	OUTPUT @Rec;”AVEROFF;”		! Turn averaging off.
1089	END IF
1090	!
1091	Set_8360:!
1092	!
1093	! Place the source in SCPI language

6-30 85330A Multiple Channel Controller