Instrument BASIC

Programming and Using the TESTS Subsystem

490 IF T_it$=”Y” THEN

500PRINT TABXY(2,6),”RX FREQUENCY = “,Rx_f

510PRINT TABXY(2,7),”TX FREQUENCY = “,Tx_f

520PRINT TABXY(2,8),”TEST THIS FREQUENCY ?”,T_it$

530

Run_ts=1

 

540

!

RUN THROUGH THE SEQUENCE OF TESTS

550

REPEAT

 

560

Done_t=0

 

570

!

ENTER IN THE TEST SEQUENCE

580

OUTPUT 800;”TESTS:SEQN? “&VAL$(Run_ts)

590

I_o$=””

 

600

ENTER 800;I_o$

 

610

Tst=VAL(I_o$[4;2])

620

!

IF THIS TEST IS TO BE SKIPPED THEN SET THIS

630

IF I_o$[7;1]=”N” THEN Tst=-Tst

640

!

IF THIS IS A PRIME FREQUENCY RUN THE TEST

650

IF Tst&%<0 AND Prime$=”Y” THEN

660

!

CALLS THE SUBROUTINE NAME T(ABS(Tst))

670

T(ABS(Tst),Test_return)

680

IF (Test_return=1) THEN GOTO Test_error

690

Done_t=1

 

700

END IF

 

710! IF THIS TEST IS TO BE DONE AND IS NOT A PRIME FREQUENCY

720IF Tst>0 AND NOT Done_t THEN

730

!

CALLS THE SUBROUTINE NAME T(ABS(Tst))

740

 

T(ABS(Tst),Test_return)

750

 

IF (Test_return=1) THEN GOTO Test_error

760

 

END IF

770

 

Run_ts=Run_ts+1

780

UNTIL Tst=0 OR Run_ts=51

790END IF

800Ch=Ch+1

810UNTIL Ch=51 OR Tx_f=-1 OR Rx_f=-1

820Stp_test: !

830CLEAR SCREEN

840PRINT TABXY(2,10),”FINISHED TESTING”

850GOTO End_program

860Test_error: !

870CLEAR SCREEN

880PRINT TABXY(2,10),”PROGRAM STOPPED, TEST “,ABS(Tst),”FAILED”

890End_program: !

900END

910T01:SUB T01(Test_return)

920COM /I_o/ I_o$

930COM /Freq/ Rx_f,Tx_f

940DIM Calling_name$[22],Model$[22],Options$[22]

950! TEST ROUTINE NUMBER 1

960PRINT TABXY(2,12),”DOING TEST NUMBER 1 FOR FREQ “,Rx_f

970

!

GET THE PARAMETER 1 FOR THIS TEST

980OUTPUT 800;”TESTS:PARM? “&VAL$(1)

990I_o$=””

1000 ENTER 800;I_o$

1010

!

IF THERE IS NO PARAMETER THEN PAUSE

1020

IF I_o$[1;5]=”Error” THEN

 

1030

PRINT TABXY(2,14),”ERROR IN RECALLING THE PARAMETERS FOR

TEST 1”

 

 

1040

Test_return=1

 

1050

END IF

 

1060

Parm_1=VAL(I_o$)

 

1070

!

GET CONFIGURATION 1 INFO FOR THIS TEST

1080

OUTPUT 800;”TESTS:CONF? “&VAL$(1)

1090

I_o$=””

 

1100

ENTER 800;I_o$

 

8-39

Page 335
Image 335
Agilent Technologies 8922M, S GSM manual RUN Through the Sequence of Tests