Programming a Code Domain Measurement
Last updated: January 16, 2009
This section provides examples of how to make code domain measurements via GPIB.
- General Code Domain Programming Example
- Program Example: 5.2D UE Relative Code Domain Power Accuracy for HS-DPCCH and E-DCH (lab application or feature-licensed test application only)
- Program Example: 5.13.2B Relative Code Domain Error with HS-DPCCH and E-DCH (lab application or feature-licensed test application only)
The basic procedure is as follows:
- Set the code domain setup parameters as desired using the SETup:WCDomain commands.
- Use the INITiate:WCDomain command to start the measurement.
- Use FETCh:WCDomain? queries to obtain the measurement results.
General Code Domain Programming Example
The following program example assumes that the mobile station's (UE's) antenna output is connected to the RF IN/OUT connector, and that the mobile station is synchronized to the test set and is transmitting an uplink signal.
10 ! Set trigger mode to single for the Code Domain measurement 20 OUTPUT 714;"SETup:WCDomain:CONTinuous OFF" 30 ! Set a timout value of 5 seconds and enable the timeout state 40 OUTPUT 714;"SETup:WCDomain:TIMeout 5" 50 ! Set the trigger source to automatically select the appropriate 60 ! trigger 70 OUTPUT 714;"SETup:WCDomain:TRIGger:SOURce AUTO" 80 ! Set the timeslot to be measured 90 OUTPUT 714;"SETup:WCDomain:TSLot 7" 100 ! Initiate the Code Domain measurement 110 OUTPUT 714;"INITiate:WCDomain" 120 ! Fetch the integrity indicator and the results of the measurement 130 OUTPUT 714;"FETCh:WCDomain:INTegrity?;BETas?" 140 ENTER 714;Integrity,Bc1,Bd1,Bd2,Bd3,Bd4,Bd4,Bd5 150 ! Check the integrity indicator to ensure the results are valid 160 IF Integrity<>0 THEN 170 PRINT "Measurement failed." 180 ELSE 190 ! Process the measurement results. 200 END IF 210 END
-
Integritystores the returned integrity indicator value (see Integrity Indicator ); 0 means a successful measurement with no errors. -
Bc1returns the relative amplitude level for the DPCCH (bc). -
Bd1returns the relative amplitude level for the DPDCH (bd1). -
Bd2-Bd6returns "NAN" (Not A Number). These are reserved for use in the future.
Program Example: 5.2D UE Relative Code Domain Power Accuracy for HS-DPCCH and E-DCH
This section is only applicable to the lab application or feature-licensed test application.
This procedure conforms to 34.121 v7.5.0 plus CR R5-072417.
10 ! Code Domain Power Programming Example 20 ! 3GPP TS 34.121 5.2D UE RCDPA for HS-DPCCH and E-DCH 30 ! 40 Testset=714 50 OUTPUT Testset;"*RST"! Full preset the test set 60 CLEAR SCREEN 70 PRINT "3GPP TS 34.121 5.2D UE RCDPA for HS-DPCCH and E-DCH" 80 PRINT 90 ! 100 ! *** Set Up Connection Parameters *** 110 ! 120 OUTPUT Testset;"CALL:OPERating:MODE OFF"! Operating Mode = Cell Off 130 OUTPUT Testset;"CALL:CELL:RLC:REEStablish OFF"! RLC Reestablish 140 OUTPUT Testset;"CALL:PSDomain PRESent"! PS Domain Information 150 OUTPUT Testset;"CALL:CHANnel 10700"! DL Chan mid range freq (Band I IMT-2000) 160 ! 170 ! *** Set Up Test Parameters *** 180 ! 190 OUTPUT Testset;"CALL:UPLink:DPCHannel:BETA:AUTO 0"! Manual beta control 200 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:CBETa 11"! Betac=11/15 (sub-test 1) 210 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:DBETa 15"! Betad=15/15 (sub-test 1) 220 OUTPUT Testset;"CALL:UPLink:TXPower:LEVel:MAXimum 21"! Max UL Transmit Power Lvl 230 OUTPUT Testset;"CALL:POWer -86" ! Cell Power 240 OUTPUT Testset;"CALL:SERVice:RBTest:RAB HSParmc12" ! Channel Type 250 OUTPUT Testset;"CALL:CONNected:CPIChannel:HSPA -10" ! CPICH Level 260 OUTPUT Testset;"CALL:CONNected:CCPChannel:PRIMary:HSPA -12"! P-CCPCH/SCH Level 270 OUTPUT Testset;"CALL:CONNected:PICHannel:HSPA -15" ! PICH Level 280 OUTPUT Testset;"CALL:CONNected:DPCHannel:HSPA -10" ! DPCH Level 290 OUTPUT Testset;"CALL:CONNected:EAGChannel -20" ! E-AGCH Level 300 OUTPUT Testset;"CALL:CONNected:EHIChannel -20" ! E-HICH Level 310 OUTPUT Testset;"CALL:CONNected:ERGChannel:STATe OFF" ! E-RGCH State 320 OUTPUT Testset;"CALL:CONNected:HSPDschannel:HSPA -3" ! HS-PDSCHs Level 330 OUTPUT Testset;"CALL:CONNected:HSSCchannel:HSPA -8" ! HS-SCCH 1 Level 340 OUTPUT Testset;"CALL:HSUPa:SERVice:RBTest:RLCSdu:SIZE BITS2936"! E-DCH RLC SDU Size 350 OUTPUT Testset;"CALL:HSUPa:EDPCchannel:POFFset 6"! E-DPCCH/DPCH PO (sub-test 1) 360 OUTPUT Testset;"CALL:HSUPa:ETFCi:POFFsets:REFerence DEF3412101"! Ref E-TFCI POs 370 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:RBSetup INDex26"! RB Setup AG (sub-test 1) 380 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:PATTern:VALue INDex20"! (sub-test 1) 390 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:PATTern:VALue2 ZGRant"! Zero Grant 400 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:MODE SSHot"! Single Shot AG Mode 410 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:HSDSchannel:CONFig FRC"! HS-DSCH Config 420 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:FRC:TYPE QPSK1" ! FRC Type 430 OUTPUT Testset;"CALL:HSDPa:MACHs:NTRans 4" ! Number of Trans 440 OUTPUT Testset;"CALL:HSDPa:MACHs:RVSequence `0,2,5,6,0,0,0,0'"! RV Sequence 450 OUTPUT Testset;"CALL:HSDPa:UPLink:DACK 8" ! DeltaACK=30/15 460 OUTPUT Testset;"CALL:HSDPa:UPLink:DNACK 8" ! DeltaNACK=30/15 470 OUTPUT Testset;"CALL:HSDPa:UPLink:DCQI 8" ! DeltaCQI=30/15 480 OUTPUT Testset;"CALL:HSDPa:UPLink:ANACk:RFACtor 3"! Ack-Nack Repetition Factor 490 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:FCYCle 4 MS" ! CQI Feedback Cycle 500 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:RFACtor 2" ! CQI Repetition Factor 510 OUTPUT Testset;"CALL:CELL:CLPControl:UPLink:ALGorithm ALG2"! UL CL Power Ctrl Alg 520 OUTPUT Testset;"CALL:OPERating:MODE CALL"! Operating Mode = Active Cell 530 ! 540 ! *** Make a Connection *** 550 ! 560 BEEP 570 PRINT "Power on the UE, wait for it to register/attach, then Originate a call" 580 PRINT "If HSUPA Throughput = 0 kbps, send the appropriate Single Shot AG for" 590 PRINT "your sub-test (20: (119/15)^2 for sub-test 1)" 600 PRINT 610 PRINT "Press F2 to continue" 620 PRINT 630 PAUSE 640 ! 650 ! *** Drive the UE to Max Power *** 660 ! 670 ! Set UE Target Power to drive UE power to 6 dB below max power, wait 150 ms 680 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE ACTive"! Active bits power control 690 OUTPUT Testset;"CALL:MS:POwer:TARGet 4"! UE Target Pow (sub-test 1, power class 3) 700 WAIT .15 710 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE UDOW"! Alternating bits power control 720 ! 730 ! Use Channel Power to confirm proper starting power 740 OUTPUT Testset;"SETup:WCPower:POWer:RANGe:OFFSet:MANual 14" 750 ! Manual Power Range Offset = 14 dB for sub-test 1 760 OUTPUT Testset;"READ:WCPower?"! INITiate and FETCh Channel Power 770 ENTER Testset;Integrity,Chanpow 780 BEEP 790 PRINT USING " ""Starting Channel Power (dBm) = "",2D.1D ";Chanpow 800 PRINT "If starting Channel Power is greater than 18 dBm (power class 3)," 810 PRINT "send down power control bit(s) as needed." 820 PRINT 830 PRINT "Press F2 to continue." 840 PRINT 850 PAUSE 860 ! 870 ! Determine starting E-TFCI 880 OUTPUT Testset;"CALL:STATus:ETFCi?"! Last Received E-TFCI 890 ENTER Testset;Lastetfci 900 PRINT "Initial E-TFCI = ";Lastetfci 910 PRINT "(Target E-TFCI is 75 for sub-test 1)" 920 PRINT 930 ! 940 ! Dimension array for E-TFCI results and set record number to 15 950 DIM Etfci(49) 960 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:COUNt 15"! E-TFCI Rec Count 970 ! 980 ! Send step up TPC bit and record 150 ms of E-TFCI results 990 PRINT "E-TFCI values after step up bit(s): " 1000 LOOP 1010 OUTPUT Testset;"CALL:CLPControl:UPLink:UP"! Send step up TPC bit 1020 GOSUB Recordetfci 1030 ! 1040 ! Determine if UE sent a decreased E-TFCI 1050 GOSUB Decreasedetfci 1060 EXIT IF Etfcicheck=1! Exit loop once UE reports a decreased E-TFCI 1070 END LOOP 1080 ! 1090 ! Send step down TPC bit and record 150 ms of E-TFCI results 1100 PRINT "E-TFCI values after first step down bit: " 1110 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit 1120 GOSUB Recordetfci 1130 ! 1140 ! Determine if UE sent a decreased E-TFCI 1150 GOSUB Decreasedetfci 1160 IF Etfcicheck=1 THEN ! If a decrease E-TFCI occurred, send another down TPC bit 1170 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit 1180 GOSUB Recordetfci 1190 PRINT 1200 PRINT "E-TFCI values after second step down bit: " 1210 FOR N=0 TO 14 1220 PRINT Etfci(N); 1230 NEXT N 1240 PRINT 1250 PRINT 1260 END IF 1270 ! 1280 ! Determine if E-TFCI matches target E-TFCI 1290 Targetetfci=75! (sub-test 1) 1300 PRINT "Target E-TFCI =";Targetetfci 1310 Etfcipass=1! UE will pass unless array values don't match target E-TFCI 1320 FOR N=0 TO 14 1330 IF Etfci(N)<>Targetetfci THEN Etfcipass=0 1340 NEXT N 1350 IF Etfcipass=0 THEN ! If any E-TFCI doesn't match target E-TFCI, UE fails 1360 PRINT "Recorded E-TFCI does not match the Target E-TFCI of 75 for sub-test 1" 1370 STOP 1380 END IF 1390 PRINT "E-TFCI matches Target E-TFCI" 1400 PRINT 1410 ! 1420 ! *** INITiate and FETCh Measurements *** 1430 DIM Rcdpai(255) 1440 DIM Rcdpaq(255) 1450 DIM Ncdpi(255) 1460 DIM Ncdpq(255) 1470 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:MODE PATTern" 1480 ! Start Absolute Grant pattern 1490 OUTPUT Testset;"SETup:WCDomain:TRIGger:SOURce EFRame"! Even Frame Trigger Source 1500 OUTPUT Testset;"SETup:WCDomain:TSLot 14"! (Measurement point 1) 1510 OUTPUT Testset;"SETup:WCDomain:TRIGger:ALIGnment:SFNumber ODD"! (Meas point 1) 1520 OUTPUT Testset;"INITiate:WCDomain"! INITiate Code Domain Power 1530 OUTPUT Testset;"FETCh:WCDomain:INTegrity?"! Integrity Indicator 1540 ENTER Testset;Integrity 1550 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:ICHannel?"!NCDP I chan 1560 ENTER Testset;Ncdpi(*) 1570 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:QCHannel?"!NCDP Q chan 1580 ENTER Testset;Ncdpq(*) 1590 OUTPUT Testset;"FETCh:WCDomain:POWer:RELative:ACCuracy:ICHannel?"!RCDPA I chan 1600 ENTER Testset;Rcdpai(*) 1610 OUTPUT Testset;"FETCh:WCDomain:POWer:RELative:ACCuracy:QCHannel?"!RCDPA Q chan 1620 ENTER Testset;Rcdpaq(*) 1630 ! 1640 ! *** Print Measurement Results *** 1650 PRINT "Integrity (0 = normal) =";Integrity 1651 PRINT 1660 PRINT "NCDP (dB) results:" 1670 PRINT USING " ""DPCCH = "",4D.2D ";Ncdpq(0) 1680 PRINT USING " ""DPDCH = "",4D.2D ";Ncdpi(64) 1690 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ncdpq(64) 1700 PRINT USING " ""E-DPCCH = "",4D.2D ";Ncdpi(1) 1710 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ncdpi(128) 1720 PRINT 1730 PRINT "RCDPA (dB) results:" 1740 PRINT USING " ""DPCCH = "",2D.2D ";Rcdpaq(0) 1750 PRINT USING " ""DPDCH = "",2D.2D ";Rcdpai(64) 1760 PRINT USING " ""HS-DPCCH = "",2D.2D ";Rcdpaq(64) 1770 PRINT USING " ""E-DPCCH = "",2D.2D ";Rcdpai(1) 1780 PRINT USING " ""E-DPDCH1 = "",2D.2D ";Rcdpai(128) 1790 ! 1800 GOSUB Endprogram 1810 ! 1820 !======================================== 1830 ! *** Subroutines *** 1840 !======================================== 1850 ! 1860 Recordetfci:! Records E-TFCIs and enters them into the Etfci() array 1870 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:STARt"! Start Recording E-TFCI 1880 LOOP 1890 OUTPUT Testset;"CALL:STATus:ETFCi:RECord?"! E-TFCI Recording State 1900 ENTER Testset;Recordstate$ 1910 EXIT IF Recordstate$="IDLE"! Exit loop when recording is complete 1920 END LOOP 1930 OUTPUT Testset;"CALL:STATus:ETFCi:RECord:ALL?"! Query E-TFCI results 1940 ENTER Testset;Etfci(*)! Enter E-TFCI results into array 1950 RETURN 1960 ! 1970 Decreasedetfci:! Prints 15 E-TFCI results and returns Eftcicheck = 1 if any 1980 ! Decreased E-TFCIs occurred 1990 Etfcicheck=0 2000 FOR N=0 TO 14 2010 PRINT Etfci(N); 2020 IF Etfci(N)<Lastetfci OR Etfci(N)=9.91E+37 THEN Etfcicheck=1 2030 ! Is any E-TFCI value decreased from starting E-TFCI? If so, set Etfcicheck = 1 2040 ! Also allows program to continue if no E-TFCIs from UE 2050 NEXT N 2060 PRINT 2070 PRINT 2080 RETURN 2090 ! 2100 Endprogram:! 2110 END
An example output from this program is as follows:
Program Example: 5.13.2B Relative Code Domain Error with HS-DPCCH and E-DCH
This section is only applicable to the lab application or feature-licensed test application.
This procedure conforms to 34.121 v7.5.0 plus CR R5-072417.
10 ! Code Domain Programming Example 20 ! 3GPP TS 34.121 5.13.2.B RCDE with HS-DPCCH and E-DCH 30 ! 40 Testset=714 50 OUTPUT Testset;"*RST"! Full preset the test set 60 CLEAR SCREEN 70 PRINT "3GPP TS 34.121 5.13.2.B RCDE with HS-DPCCH and E-DCH" 80 PRINT 90 ! 100 ! *** Set Up Connection Parameters *** 110 ! 120 OUTPUT Testset;"CALL:OPERating:MODE OFF"! Operating Mode = Cell Off 130 OUTPUT Testset;"CALL:CELL:RLC:REEStablish OFF"! RLC Reestablish 140 OUTPUT Testset;"CALL:PSDomain PRESent"! PS Domain Information 150 OUTPUT Testset;"CALL:CHANnel 10563"! DL Chan low range freq (Band I IMT-2000) 160 ! 170 ! *** Set Up Test Parameters *** 180 ! 190 OUTPUT Testset;"CALL:UPLink:DPCHannel:BETA:AUTO 0"! Manual beta control 200 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:CBETa 11"! Betac=11/15 (sub-test 1) 210 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:DBETa 15"! Betad=15/15 (sub-test 1) 220 OUTPUT Testset;"CALL:UPLink:TXPower:LEVel:MAXimum 21"! Max UL Transmit Power Lvl 230 OUTPUT Testset;"CALL:POWer -86" ! Cell Power 240 OUTPUT Testset;"CALL:SERVice:RBTest:RAB HSParmc12" ! Channel Type 250 OUTPUT Testset;"CALL:CONNected:CPIChannel:HSPA -10" ! CPICH Level 260 OUTPUT Testset;"CALL:CONNected:CCPChannel:PRIMary:HSPA -12"! P-CCPCH/SCH Level 270 OUTPUT Testset;"CALL:CONNected:PICHannel:HSPA -15" ! PICH Level 280 OUTPUT Testset;"CALL:CONNected:DPCHannel:HSPA -10" ! DPCH Level 290 OUTPUT Testset;"CALL:CONNected:EAGChannel -20" ! E-AGCH Level 300 OUTPUT Testset;"CALL:CONNected:EHIChannel -20" ! E-HICH Level 310 OUTPUT Testset;"CALL:CONNected:ERGChannel:STATe OFF" ! E-RGCH State 320 OUTPUT Testset;"CALL:CONNected:HSPDschannel:HSPA -3" ! HS-PDSCHs Level 330 OUTPUT Testset;"CALL:CONNected:HSSCchannel:HSPA -8" ! HS-SCCH 1 Level 340 OUTPUT Testset;"CALL:HSUPa:SERVice:RBTest:RLCSdu:SIZE BITS2936"! E-DCH RLC SDU Size 350 OUTPUT Testset;"CALL:HSUPa:EDPCchannel:POFFset 6"! E-DPCCH/DPCH PO (sub-test 1) 360 OUTPUT Testset;"CALL:HSUPa:ETFCi:POFFsets:REFerence DEF3412101"! Ref E-TFCI POs 370 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:RBSetup INDex26"! RB Setup AG (sub-test 1) 380 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:HSDSchannel:CONFig FRC"! HS-DSCH Config 390 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:FRC:TYPE QPSK1" ! FRC Type 400 OUTPUT Testset;"CALL:HSDPa:MACHs:NTRans 4" ! Number of Trans 410 OUTPUT Testset;"CALL:HSDPa:MACHs:RVSequence `0,2,5,6,0,0,0,0'"! RV Sequence 420 OUTPUT Testset;"CALL:HSDPa:UPLink:DACK 8" ! DeltaACK=30/15 430 OUTPUT Testset;"CALL:HSDPa:UPLink:DNACK 8" ! DeltaNACK=30/15 440 OUTPUT Testset;"CALL:HSDPa:UPLink:DCQI 8" ! DeltaCQI=30/15 450 OUTPUT Testset;"CALL:HSDPa:UPLink:ANACk:RFACtor 3"! Ack-Nack Repetition Factor 460 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:FCYCle 4 MS" ! CQI Feedback Cycle 470 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:RFACtor 2" ! CQI Repetition Factor 480 OUTPUT Testset;"CALL:CELL:CLPControl:UPLink:ALGorithm ALG2"! UL CL Power Ctrl Alg 490 OUTPUT Testset;"CALL:OPERating:MODE CALL"! Operating Mode = Active Cell 500 ! 510 ! *** Make a Connection *** 520 ! 530 BEEP 540 PRINT "Power on the UE, wait for it to register/attach, then Originate a call" 550 PRINT "If HSUPA Throughput = 0 kbps, send the appropriate Single Shot AG for" 560 PRINT "your sub-test (20: (119/15)^2 for sub-test 1)" 570 PRINT 580 PRINT "Press F2 to continue" 590 PRINT 600 PAUSE 610 ! 620 ! *** Drive the UE to Max Power *** 630 ! 640 ! Set UE Target Power to drive UE power to 6 dB below max power, wait 150 ms 650 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE ACTive"! Active bits power control 660 OUTPUT Testset;"CALL:MS:POwer:TARGet 4"! UE Target Pow (sub-test 1, power class 3) 670 WAIT .15 680 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE UDOW"! Alternating bits power control 690 ! 700 ! Use Channel Power to confirm proper starting power 710 OUTPUT Testset;"SETup:WCPower:POWer:RANGe:OFFSet:MANual 14" 720 ! Manual Power Range Offset = 14 dB for sub-test 1 730 OUTPUT Testset;"READ:WCPower?"! INITiate and FETCh Channel Power 740 ENTER Testset;Integrity,Chanpow 750 BEEP 760 PRINT USING " ""Starting Channel Power (dBm) = "",2D.1D ";Chanpow 770 PRINT "If starting Channel Power is greater than 18 dBm (power class 3)," 780 PRINT "send down power control bit(s) as needed." 790 PRINT 800 PRINT "Press F2 to continue." 810 PRINT 820 PAUSE 830 ! 840 ! Determine starting E-TFCI 850 OUTPUT Testset;"CALL:STATus:ETFCi?"! Last Received E-TFCI 860 ENTER Testset;Lastetfci 870 PRINT "Initial E-TFCI = ";Lastetfci 880 PRINT "(Target E-TFCI is 75 for sub-test 1)" 890 PRINT 900 ! 910 ! Dimension array for E-TFCI results and set record number to 15 920 DIM Etfci(49) 930 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:COUNt 15"! E-TFCI Rec Count 940 ! 950 ! Send step up TPC bit and record 150 ms of E-TFCI results 960 PRINT "E-TFCI values after step up bit(s): " 970 LOOP 980 OUTPUT Testset;"CALL:CLPControl:UPLink:UP"! Send step up TPC bit 990 GOSUB Recordetfci 1000 ! 1010 ! Determine if UE sent a decreased E-TFCI 1020 GOSUB Decreasedetfci 1030 EXIT IF Etfcicheck=1! Exit loop once UE reports a decreased E-TFCI 1040 END LOOP 1050 ! 1060 ! Send step down TPC bit and record 150 ms of E-TFCI results 1070 PRINT "E-TFCI values after first step down bit: " 1080 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit 1090 GOSUB Recordetfci 1100 ! 1110 ! Determine if UE sent a decreased E-TFCI 1120 GOSUB Decreasedetfci 1130 IF Etfcicheck=1 THEN ! If a decrease E-TFCI occurred, send another down TPC bit 1140 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit 1150 GOSUB Recordetfci 1160 PRINT 1170 PRINT "E-TFCI values after second step down bit: " 1180 FOR N=0 TO 14 1190 PRINT Etfci(N); 1200 NEXT N 1210 PRINT 1220 PRINT 1230 END IF 1240 ! 1250 ! Determine if E-TFCI matches target E-TFCI 1260 Targetetfci=75! (sub-test 1) 1270 PRINT "Target E-TFCI =";Targetetfci 1280 Etfcipass=1! UE will pass unless array values don't match target E-TFCI 1290 FOR N=0 TO 14 1300 IF Etfci(N)<>Targetetfci THEN Etfcipass=0 1310 NEXT N 1320 IF Etfcipass=0 THEN ! If any E-TFCI doesn't match target E-TFCI, UE fails 1330 PRINT "Recorded E-TFCI does not match the Target E-TFCI of 75 for sub-test 1" 1340 STOP 1350 END IF 1360 PRINT "E-TFCI matches Target E-TFCI" 1370 PRINT 1380 ! 1390 ! *** INITiate and FETCh Measurements *** 1400 DIM Ncdpi(255) 1410 DIM Ncdpq(255) 1420 DIM Ecdpi(255) 1430 DIM Ecdpq(255) 1440 DIM Rcdei(255) 1450 DIM Rcdeq(255) 1460 ! 1470 OUTPUT Testset;"INITiate:WCDomain" ! INITiate Code Domain Power 1480 OUTPUT Testset;"FETCh:WCDomain:INTegrity?" ! Integrity Indicator 1490 ENTER Testset;Integrity 1500 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:ICHannel?"!NCDP I chan 1510 ENTER Testset;Ncdpi(*) 1520 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:QCHannel?"!NCDP Q chan 1530 ENTER Testset;Ncdpq(*) 1540 OUTPUT Testset;"FETCh:WCDomain:POWer:EFFective:ICHannel?"!ECDP I chan 1550 ENTER Testset;Ecdpi(*) 1560 OUTPUT Testset;"FETCh:WCDomain:POWer:EFFective:QCHannel?"!ECDP Q chan 1570 ENTER Testset;Ecdpq(*) 1580 OUTPUT Testset;"FETCh:WCDomain:CERRor:RELative:ICHannel?"!RCDE I chan 1590 ENTER Testset;Rcdei(*) 1600 OUTPUT Testset;"FETCh:WCDomain:CERRor:RELative:QCHannel?"!RCDE Q chan 1610 ENTER Testset;Rcdeq(*) 1620 ! 1630 ! *** Print Measurement Results *** 1640 PRINT "Integrity (0 = normal) =";Integrity 1650 PRINT 1660 PRINT "NCDP (dB) results:" 1670 PRINT USING " ""DPCCH = "",4D.2D ";Ncdpq(0) 1680 PRINT USING " ""DPDCH = "",4D.2D ";Ncdpi(64) 1690 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ncdpq(64) 1700 PRINT USING " ""E-DPCCH = "",4D.2D ";Ncdpi(1) 1710 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ncdpi(128) 1720 PRINT 1730 PRINT "ECDP (dB) results:" 1740 PRINT USING " ""DPCCH = "",4D.2D ";Ecdpq(0) 1750 PRINT USING " ""DPDCH = "",4D.2D ";Ecdpi(64) 1760 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ecdpq(64) 1770 PRINT USING " ""E-DPCCH = "",4D.2D ";Ecdpi(1) 1780 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ecdpi(128) 1790 PRINT 1800 PRINT "RCDE (dB) results:" 1810 PRINT USING " ""DPCCH = "",4D.2D ";Rcdeq(0) 1820 PRINT USING " ""DPDCH = "",4D.2D ";Rcdei(64) 1830 PRINT USING " ""HS-DPCCH = "",4D.2D ";Rcdeq(64) 1840 PRINT USING " ""E-DPCCH = "",4D.2D ";Rcdei(1) 1850 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Rcdei(128) 1860 ! 1870 GOSUB Endprogram 1880 ! 1890 !======================================== 1900 ! *** Subroutines *** 1910 !======================================== 1920 ! 1930 Recordetfci:! Records E-TFCIs and enters them into the Etfci() array 1940 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:STARt"! Start Recording E-TFCI 1950 LOOP 1960 OUTPUT Testset;"CALL:STATus:ETFCi:RECord?"! E-TFCI Recording State 1970 ENTER Testset;Recordstate$ 1980 EXIT IF Recordstate$="IDLE"! Exit loop when recording is complete 1990 END LOOP 2000 OUTPUT Testset;"CALL:STATus:ETFCi:RECord:ALL?"! Query E-TFCI results 2010 ENTER Testset;Etfci(*)! Enter E-TFCI results into array 2020 RETURN 2030 ! 2040 Decreasedetfci:! Prints 15 E-TFCI results and returns Eftcicheck = 1 if any 2050 ! Decreased E-TFCIs occurred 2060 Etfcicheck=0 2070 FOR N=0 TO 14 2080 PRINT Etfci(N); 2090 IF Etfci(N)<Lastetfci OR Etfci(N)=9.91E+37 THEN Etfcicheck=1 2100 ! Is any E-TFCI value decreased from starting E-TFCI? If so, set Etfcicheck = 1 2110 ! Also allows program to continue if no E-TFCIs from UE 2120 NEXT N 2130 PRINT 2140 PRINT 2150 RETURN 2160 ! 2170 Endprogram:! 2180 END
An example output from this program is as follows:
