Agilent Technologies S GSM, 8922M manual Test

Instrument BASIC

Programming and Using the TESTS Subsystem

1110	Calling_name$=I_o$[4;21]
1120	Model$=I_o$[27;21]
1130	I1addr=VAL(TRIM$(I_o$[50]))
1140	Options$=I_o$[54]
1150	!	GET SPECIFICATION 1 FOR THIS TEST
1160	OUTPUT 800;”TESTS:SPEC? “&VAL$(1)
1170	I_o$=””
1180	ENTER 800;I_o$
1190	IF I_o$[1;5]=”Error” THEN
1200		PRINT TABXY(2,14),”ERROR IN RECALLING THE SPECIFICATIONS FOR
TEST 1”
1210		Test_return=1
1220	END IF
1230	Lower_limit=VAL(TRIM$(I_o$[4]))
1240	Upper_limit=VAL(TRIM$(I_o$[17]))
1250	Test$=TRIM$(I_o$[30])
1260	SUBEND
1270	T02:SUB T02(Test_return)
1280	COM /I_o/ I_o$
1290	COM /Freq/ Rx_f,Tx_f
1300	!	TEST ROUTINE NUMBER 2
1310	PRINT TABXY(2,13),”DOING TEST NUMBER 2 FOR FREQ “,Rx_f
1320	SUBEND
1330	T03:SUB T03(Test_return)
1340	COM /I_o/ I_o$
1350	COM /Freq/ Rx_f,Tx_f
1360	!	TEST ROUTINE NUMBER 3
1370	PRINT TABXY(2,14),”DOING TEST NUMBER 3 FOR FREQ “,Rx_f
1380	SUBEND
1390	T:SUB T(N,Test_return)
1400	! CALL THE PASSED TEST NUMBER (N)
1410	SELECT N
1420	CASE 1
1430		T01(Test_return)
1440	CASE 2
1450		T02(Test_return)
1460	CASE 3
1470		T03(Test_return)
		“”
		“”
		“”
2380	CASE 49
2390		T49(Test_return)
2400	CASE 50
2410		T50(Test_return)
2420	END SELECT
2430	SUBEND

8-40