NTIA-REPORT-79-17

Received Signal Level (RSL)

Measurement and Analysis

With A Desk-Top Computer

D.R. Wortendyke

T.H. Hildebrandt

u.s. DEPARTMENT OF COMMERCE

Juanita M. Kreps, Secretary

Henry Geller, Assistant Secretary

for Communications and Information

'February 1979

TABLE OF CONTENTS

ABSTRACT

Page

1

1.

2.

3.

4.

5.

INTRODUCTION

1.1. Background

1.2. Controller and Instrumentation

1.3. Requirements of Long-Term RSL Tests

DESIGN PHILOSOPHY

2.1. General Design Philosophy

2.2. RSL Test Design Philosophy

SOFTWARE DESCRIPTION

3.1. Overview

3.2. Program Description

3.3. Functioning of the Programs

SUMMARY

4.1. Features of the System

4.2. Future of the System

REFERENCES

1

1

2

4

5

5

5

9

9

10

14

28

APPENDIX A. SAMPLE OPERATIONAL INFORMATION

APPENDIX B. FLOWCHARTS

APPENDIX C. LISTINGS

29

55

78

Figure 2-1.

Figure A-I.

Figure A-2.

Figure A-3.

Figure A-4.

Figure A-5.

Figure A-6.

Figure A-7.

Figure A-8.

Figure A-9.

Figure A-I0.

Figure A-II.

Figure A-12.

LIST OF FIGURES

Block diagram of equipment used in RSL

test and analysis.

Program interaction.

Run AutoStart and initialize.

Run of initialize.

Sample calibration.

Sample start of RSL test.

Sample RSL output.

Sample RSL output.

Sample run of Listdata routine.

Run of select and file directory.

Sample run, long file directory.

Long file directory (cont.).

Sample run, Data I.

iii

7

30

31

32

33

34

35

36

37

38

39

40

41
Figure A-13.

Figure A-14.

Figure A-15.

Figure A-16.

Figure A-17.

Figure A-18.

Figure A-19.

Figure A-20.

Figure A-21.

Figure A-22.

Figure A-23.

Figure A-24.

Figure A-25.

Figure B-1.

Figure B-2.

Figure B-3.

Figure B-4.

Figure B-5.

Figure B-6.

Figure B-7.

Figure B-8.

Figure B-9.

Figure B-lO.

Figure B-ll.

Figure B-12.

Figure B-13.

Figure B-14.

Figure B-15.

Figure B-16.

Figure B-17.

Figure B-18.

Figure B-19.

Figure B-20.

Data I.

Data I.

Data I.

Data I.

Sample run of Rayleigh.

Sample output from Rayleigh.

Sample run, hourly medians.

Editing routine, hourly medians.

Sample output, hourly medians.

Hourly medians.

Sample plot, hourly medians.

Sample run, A-D test.

Desk-top computer keyboard.

Flowchart 1, Autoload.

Flowchart 2, initialization.

Flowchart 3, RSL main program housekeeping.

Flowchart 4, RSL main program housekeeping.

Flowchart 5, interrupt routine.

Flowchart 6, data file directory.

Flowchart 7, statistical data analysis.

Flowchart 8, statistical data

analysis (cont.).

Flowchart 9, hourly medians.

Flowchart 10, hourly medians (cont.).

Flowchart 11, Rayleigh plot.

Flowchart 12, select program.

Flowchart 13, "sortData".

Flowchart 14, "setclk".

Flowchart 15, "readclk".

Flowchart 16, "calibrate".

Flowchart 17, "compute".

Flowchart 18, "Quicklook".

Flowchart 19, "comment".

Flowchart 20, "record".

iv

Page

42

43

44

45

46

47

48

49

50

51

52

53

54

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75
Page

Figure B-2l. Flowchart 21, "Listdata" . 76

Figure B-22. Decision tree for "SortData". 77

Figure C-l. Special-function template. 79

Figure C-2. Special-function key listing. 81

Figure C-3. RSL tape index and directory. 83

Figure C-4. AutoStart listing. 84

Figure C-5. Initialization listing, 1. 85

Figure C-6 Initialization listing, 2 . 86

Figure C-7. Initialization listing, 3. 87

Figure C-8. Initialization listing, 4 . 88

Figure C-9. Initialization listing, 5. 89

Figure C-IO. Initializatiob °listing, 6. 90

Figure C-ll. Initialization Xref, 1. 91

Figure C-12. Initialization Xref, 2 . 92

Figure C-13. Initialization Xref, 3. 93

Figure C-14. Initialization Xref, 4 • 94

Figure C-15. Initialization Xref, 5~ 95

Figure C-16. RSL test listing, 1. 96

Figure C-17. RSL test listing, 2 . 97

Figure C-18. RSL test listing, 3 98

Figure C-19. RSL test listing, 4. 99

Figure C-20. RSL test listing, 5. 100

Figure C-21 RSL test listing, 6. 101

Figure C-22. RSL test listing, 7. 102

Figure C-23. RSL test Xref, 1. 103

Figure C-24. RSL test Xref, 2. 104

Figure C-25. RSL text Xref, 3. 105

Figure C-26. RSL test Xref, 4. 106

Figure C-27. RSL test Xref, 5. 107

Figure C-28. RSL test Xref, 6. 108

Figure C-29. RSL test Xref, 7 . 109

Figure C-30. Tape directory listing, 1. 110

Figure C-31. Tape directory listing, 2. 111

Figure C-32. Tape directory Xref, 1. 112

v

Figure C-66. Select listing and Xref.

Page

146

LIST OF TABLES

Table 2-1. A-D Range Factor 17

Table 2-2. RSL Test Initialization Constants 18

Table B-1. Program Locations on Track 0 55

Table B-2. Flowchart Directory 56

Table C-l. Special Functions 80

Table C-2. Variable Assignments for RSL System 82

vii

RECEIVED SIGNAL LEVEL (RSL) MEASUREMENT AND

ANALYSIS WITH A DESK-TOP COMPUTER

D.R. Wortendyke and T.H. Hildebrandt*

A software package of programs has been developed

which automatically measures and analyzes the

received signal level of four microwave communication receivers. The package will run on the

Test and Acceptance Calculator Instrumentation

which the USAF 1842 Electronics Engineering

Group is using to automate most of the long lines

commu'nication system acceptance tests. An

initial manual calibration directed by the program

is stored on a data tape cartridge. The software

controls one instrument using the IEEE 488-1975 bus

to run the test unattended for one month. Data are

sampled on each receiver four times per second with

a typical resolution of 3 dB over a 60-dB dynamic

range. In addition to a "quick look" analysis

during the test for each hour of data, a set of

programs may be run after the test to list and plot

cumulative distributions and hourly medians on a

peripheral graphic plotter. The graphs, including

axes and scales, are drawn and annotated completely

under software control.

Key words: Automation; calculator based instrumentation; desk-top computer software; IEEE

488-1975 bus; microwave LOS communications; RSL; TACI

1. INTRODUCTION

1.1. Background

The mid 1970's brought a major revolution to test instrumentation. Two significant advances have occurred whose impacts

may not be completely recognized until the end of this decade.

The first is the acceptance of a digital instrumentation interface bus by the IEEE as standard 488-1975, commonly called the

General Purpose Interface Bus (GPIB) (IEEE, 1975). The second

*The aU.thors are with the Institute for Telecommunication Sciences, National Telecommunications and Information Administration, u.s. Dept. of Commerce, Boulder, Colorado 80303.
major advance was the introduction of programmable calculators

and desk-top computers which made addressing the bus instruments

an easy task./In addition the computers have interrupt capabil- '-~/

ity so that a GPIB instrument may get the attention of the

controller. Less than two years after the adoption of the

IEEE bus standard, there were at least 50 bus-compatible

instruments on the market from at least 10 manufacturers, and

the number has increased rapidly (Loughry, 1974; Santoni, 1976;

Nelson and Ricci, 1974). The capabilities of the bus-compatible

instruments are almost unlimited as they will generate or

measure parameters (such as frequency, intensity, etc.) over

almost all of the currently attainable ranges. Other instruments provide clock time, pacing, format conversions, operation

of relays, and measurement of all types of parameters; i.e.,

peak signalsl envelope delay, impulse noise counts, phase, etc.

Several controllers are now on the market which make the GPIB

very easy to use. Some are aimed at small, portable systems

which must be transported into the field or hand carried.

Others are designed for the laboratory or engineering office

with a graphics CRT screen and a powerful graphics command set.

The controller and instruments utilized for military communications equipment testing had to meet the requirements of

being rugged, portable, and reliable. The initial use of these

new programmable devices was aimed at test and acceptance type

measurements; however, it is likely that this is only the first

step, since eventually these same devices will make their impact

felt in operations, quality assurance testing and even in fault

isolation of communication systems (Lindberg, 1976). Their

advantages are that they, for the most part, may be used

as stand-alone test modules under manual control, or as part of

an automatic or semiautomatic test system.

1.2. Controller and Instrumentation

The specific equipment chosen to perform the RSL measurement and analysis is identical to some of the equipment chosen

by the USAF 1842 Electronic Engineering Group (EEG) for their

2
test and acceptance field work. The equipment for RSLtest and

analysis basically is as follows:

1) Controller-programmable desk-top computer, with 24 k

bytes of memory, built-in printer, keyboard, display,

and mass-storage tape cartridge.

2) Digital clock - a calendar clock with date and

time which may be read (or set) via the computer.

It will maintain the time for one month without

external power. Its resolution is one millisecond and its maximum range is 115 days in the

counter mode, hence it may be used to time longduration tests. It has four independent countertimers, which may cause an interrupt at programmed

times or intervals.

3) Analog-digital (A-D) converter - a four channel

device with ll=bit bipolar resolution (10 bits

plus a sign bit) and four jumper selectable

ranges with maximum values of flO V, ±5 V,

±3 V, ±1.3 V dc. The A-D also has a built-in

pacer which can function at speeds to 20 times

per second. It is entirely programmable via

the GPIB.

4) Digital Plotter this is a microprocessor

based digital X-Y plotter which serves as a

hard-copy output for documentation of the data

after they are analyzed. The maximum plotter

area is 28 by 40 cm, and labels may be printed

under program control in any orientation or

size. Disposable ink pens (in a variety of

colors) are used. Since the data to be plotted

have been stored on magnetic cartridge, the

plotter may be used to reproduce the results

of any test at a later date. Thus, the

plotter will not be used in the field.

3
1~3. Requirements of Long-Term RSL Tests

The purpose of this test is to gather data on the variations of the RSL of microwave radio signals. This test is

normally part of a multiple recording test such as the Tl test

(DCAC 310-70-57, 1974); however, for long line-of-sight (LGS)

microwave links it is very desirable to obtain long-term RSTJ

data to confirm the solidity of the link. The phrase "longterm" is rather loose, however, it will denote here a period

of at least one month. Accordingly, the test was designed to

operate and record data onto tape for one month without any

change of paper or tape cartridge. Two parameters are generally

monitored in this type of test. The first parameter of interest

is the signal median or distribution of hourly medians for a

given radio path, and the second parameter is the percent of

time that the instantaneous signal faded below some specified

value.

To acquire a meaningful collection of data it is desirable

to sample as fast as the instrumentation permits, and not any

slower than once per second. Although atmospheric conditions

seem to indicate a 100-200 Hz sampling rate should "freeze"

the signal fluctuations, some work has raised the possibility

of the occurrence of very short "fast fades" over certain paths

(Brennan, 1959). However, if the sample window of the measuremen,t instrument is small, in the range of tens of microseconds

to a few milliseconds, then a large number of samples over a

lo~g term should produce a collection of data with equivalent

statistical properties whether the sample rate was one per

second or 100 per second. The instrumentation used here

combined with the computer's speed of processing the data,

allowed four samples of data to be taken on each of the four

channels every second. This means over ten million data

samples per channel will be processed and stored on a tape

cartridge each month in hourly histograms.

4
2. DESIGN PHILOSOPHY

2.1. General Design Philosophy

The use of commercial test instruments, desk-top computer,

and GPIB can completely eliminate hardware design and interface

problems. The software advantage also lies in the fact that

the system software for desk-top computers is generally built

into the machine and is generally well documented. Thus, the

user need be concerned only with application software to make

the instruments function automatically and according to specifications.

A test to be automated should be run (or simulated)

manually to uncover any incompatibilities, such as mismatches,

ground loops, guarding problems, etc., between the measuring

device and the unit under test. Next, any calibrations

to relate electrical parameters to physical parameters must

be performed and stored in memory_ After obtaining at least

one good set of data (or simulated data) from the instrumentation, it then becomes necessary to develop the data processing

or handling routines and to estimate the amount of time required

to perform the data handling. Then formatted outputs to hardc6py and mass storage need to be developed. These could also

include graphical presentation of the data.

Finally, post-experiment analysis of the data is developed,

using what has been recorded on the mass-storage medium. These

programs are generally slow because large amounts of data

manipulation, retrieval, sorting, etc. are required. These

programs are extremely valuable because they generally do in

minutes what would require one person hours, days, or even

weeks to do.

2.2. RSL Test Design Philosophy

The received signal level (RSL) acquisition and analysis

test followed the general guidelines of the previous section

in the development of the software. The equipment modules

used for the measurements were the computer, calendar-clock,

5
and A-D converter, and, for the post-experiment analysis and

presentation of data summary, the computer and plotter were

used. A block diagram of the equipment is shown in Figure 2-1.

Not included in the diagram is a generator to inject a calibration signal into the radio prior to running the test.

The RSL test is designed to run unattended for one month

after the initial start-up. When the computer is powered, the

first file on the program track is loaded and run. This

program loads the computer's special function keys and the RSL

data acquisition program.

The acquisition program checks the first file of the second

track on the tape for the presence of a calibration curve. If

the second track, which is used as the data track for the test,

is blank, then an initialization program is loaded and run so

that calibration curves may be obtained and stored on the tape's

data track. The initialization program is highly interactive

with the engineer's input in setting up the test and the

parameters to be used. The program will direct the engineer to

set the various levels on the calibration generator and then

will automatically print and store the corresponding voltage

from the A-D converter. At the conclusion of the calibrations,

the transfer curves are stored in the first file of the tape's

data track, and the acquisition program is automatically

reloaded and run.

The acquisition program sets the clock to provide interrupts every 0.25 seconds. At each of these 1/4-second clock

ticks, data are sampled on each of the four channels and then

sorted and stored in a histogram. Each channel histogram has

20 bins, whose values are determined by the calibration curves.

At the end of each hour, a quick analysis and summary

printout occurs on the thermal printer. The "quick look", as it

is called, provides four RSL levels for each channel which are

exceeded by 50, 90, 99, and 99.9 percent of the hour's data.

Thus the first of these values provides the hourly median. At

exactly 12 noon and midnight each day, all the hourly histograms

6
-....J

~~IO

INTERFACE

(IF REQUIRED)

DESK TOP

COMPUTER

~RAOIO Il 2

INTERFACE

(IF REQUIRED)

ANALOG-TO-DIGITAL

CONVERTER

(4 ohannel.)

IEEE-488 BUS

I GRAPHI~ I PLOTT~

FOR ANALYSIS ONLY

<NOT USED IN FIELD)

Figure 2-1. Block diagram of equipment used in RSL test and analysis.
from the past 12 hours are recorded into the next available

file on the data track. The data track will accommodate 63

files after the initial calibration file. Thus the processed

data for a 31-day month will fit onto one tape track. The last

file (the 64th) is reserved for storing a summation of the data

for each channel on the entire track. This summary will be

obtained by the first analysis program, after the completion of

the 'test. Since the desk-top computer uses solid-state random

access memory (RAM), all data not recorded on tape will be lost

if a power line interruption occurs. There existed a design

tradeoff between the number of files to be recorded and the

interval of the recording. Ideally, the interval would have

been one hour, but due to file heading, end of file marks, and

interfi1e gaps, the additional overhead would not have allowed

one month's data on the cartridge. By choosing twice a day

recording, the data files fit neatly onto a single track. In

the event of power interruption, the computer follows the initial

power-up routine and resumes normal operation without human

assistance.

Three programs were developed to aid in immediate off-line

field analysis of the data without the use of the plotter.

These programs should be utilized on tests that are to be

several months long to ensure that all components of the signalconditioning and measurement equipment are properly functioning.

The first program is a tape directory program for checking

the amount of data from each channel stored in each file. The

long version of the directory prints on the thermal printer

the file number, the date and time when recorded, any operator

comments entered during the 12-hour period, and the number of

hours and data points recorded for each of the channels. If

there were no interruptions during the period, there should be

nearly 172,800 data points on each channel.

The second program, named UData I", sums the histogram

data for any block of time periods chosen and stores this sum

in the last data file. Then the number of data points in each

8
histogram bin for each channel may be printed, as well as a

cumulative summation by bins. The previous two printouts may

be normalized into percentages (by dividing by the total number

of data points) and printed if selected.

The third program, Data II, determines the hourly medians

for the entire tape. The output may be printed on the thermal

printer or if the plotter is available, plotted on paper.

The desk-top computer chosen for this test has 12 specialfunction buttons which may be defined by the programmer to

enhance operation of the controller by creating useful features

relating to the test. Three of these buttons affect the normal

display while the controller is in the data-acquisition mode.

Normally the date and clock time are shown with the number of

sets of A-D converter readings taken during the hour. However,

depressing one button will convert the display to show the four

sets of voltages read from the A~D converter. Depressing a

second button will convert the four voltages into their true

RSL values (in dBrn) based on an interpolation of the stored

calibration curve. Pressing the third button will restore the

machine to the normal date-time display. Additional buttons

will be described in a later section. A layout of the key

board is shown in the Appendix, Figure A-25.

The test automatically concludes when 62 files are recorded onto tape. The tape is rewound, and the computer beeps

and flashes a message to remove the tape. The machine should

be turned off after the tape is removed so that the memory is

cleared.

3. SOFTWARE DESCRIPTION

3.1. Overview

The programs written to perform the RSL measurement and

analysis are stored on track 0 of the RSL tapes. The programs

vary in length from 60 bytes to 5292 bytes. These represent

3 lines of code and 230 lines of code, respectively.

9
The data for the RSL measurements are stored on track 1 of

the tape cartridge. Each tape is 140 feet long and has a storage capacity of about 125,000 bytes per track. By tightly

packing the data, a full month's set of measurements can be

stored on one track~ The first file on the data track contains

initialization constants and calibration curves. The next 62

files each contain 12 hours of data for up to 31 days of

recording, When the analysis program is run, a summary of all

the data is stored in the last file on the data track.

A file for special-function key implementation is loaded by

the automatic start file which is the first file on the program

track. One of the special-function keys allows the operator to

select and load a program which has an index of all the other

programs on the tape. This is commonly called the menu program.

Execution of most of the software is self explanatory since a

large effort went into applying human engineering to design of

the input/output (I/O) phases of operator interaction. A

description of each of the programs through file 11 is given in

Section 3.2. The remainder of track 0 contains miscellaneous

programs as desired for special applications, and will not be

documented in this report. The operator's use of the system and

his interactions are described in a general manner in Section

3.3. A step-by-step detailed execution of the program, with a

commentary explaining the printout, is given in Appendix A.

Flowcharts of the software are found in Appendix B, and the

program listings and cross reference listing for variables,

flags, registers, and labels are given in Appendix c.

3.2. Program Description

3.2.1. AutoStart

File 0 is automatically loaded and run when power is restored, if the program tape is in the transport. AutoStart is

simply used to load the special-function keys, and then load

and run the rnain(RSL) program.

10
3.2.2. Special-function keys

File 1 contains the special functions, which must be reloaded into the keys after a power failure, or on a new start.

The AutoStart program handles this automatically, so that the

keys are always available. Appendix Table C-I and FigQre C-l

present the special-function keys and their use.

3.2.3. Initialization

AutoStart loads the main program from file 3 immediately

after power is turned on. If a new test is being started, i.e.,

no data are on tpe data track, then file 2 (containing the

Initialization program) is loaded to allow the operator to enter

the necessary information fo~ the test.

Each parameter should be entered as it is requested by the

Initialization program. The operator is asked to enter the year

and time, which is then used to set the clock, if necessary.

Then he is asked (for each channel) whether or not it is to be

used. If so, the operator must enter the range for the A-D

converter, the dBm zero reference level and bin step size,

(in dB) and the transmitting station's designator. After this

information has been entered for all channels to be used, the

operator then enters the receiving station's designator (which

is the same for every channel) .

Each channel to be used is calibrated through the A-D converter. The operator sets the level requested by the computer

on the calibrating generator, and then presses the CONTINUE

button on the computer. This causes the corresponding voltage

to be read from the A-D converter, and to be recorded in the

calibration array. Then, the next lower calibration level is

displayed, and the process is continued until 19 levels have

been calibrated. When all channels have been calibrated in the

same manner, the time of the calibration, the calibration data,

and other information are recorded in the first data file on

track 1. The main program is then loaded, and the test begins.

11
3.2.4. Main program (RSL) test

When this file is automatically loaded by the AutoStart

program, the program checks to see if there are any previously

recorded data. If so, the AutoStart was run after a power

failure. The test is then resumed. If not, the computer loads

the initialization program. After the initialization program

has been run, the program is resumed.

At the start of a new test, the computer will print out

all of the necessary header information, the test title and

the time of the calibration. On a restart, the operator

comments from the last file recorded are printed out before the

test proceeds.

The clock-timer is programmed to tick four times per second,

and the interrupts on the GPIB are enabled. This allows the

timer to request service from the computer. When this occurs,

the computer branches to the interrupt routine which reads all

4 channels of the A-D converter. The data are then sorted,

and placed in the proper variables. For the rest of the time,

the computer remains in the monitor loop which will display

either the date-time group, the A-D voltage readings, or the

RSL levels, depending on the selection of the operator. At

the end of each hour, the monitor sets the proper flags which

then cause the computer to branch to the proper subroutines.

On each hour, the computer runs a "quick look", which

prints a short statistical analySis of the hour's data on the

l6-column printer. The past hour's data are then packed into a

string array and stored. Every 12 hours, the 12-hour data array

is recorded along with other identifying information, and the

12-hour array is cleared.

3.2.5. Data-tape directory

This program prints out a directory of the data files on

the tape. If the short directory is run, just the file number

and the time at which it was recorded are printed out. If the

long directory is selected, the send and receive stations are

printed out for file zero; the number of data points, along

12
with the number of complete hours and any operator comments

are printed out for each file.

3.2.6. Data analysis I - statistical analysis

Data I totals all the points in each bin over the duration

of the entire test. This forms a histogram from which a cumulative distribution, a running percentage, and a cumulative percentage of the data can be calculated. The histogram of all

points on one data tape is stored in the last file. on the tape.

Each of the distributions is printed as requested by the

operator. If it is selected, the Rayleigh plot program is run

using the data stored at the end of the tape.

3.2.7. Data analysis II - hourly medians

Data II calculates the median RSL for each hour for the

duration of the test. The program allows the operator to delete

unwanted or meaningless data files. (It is assumed that the

File Directory program has already been run, to deterrnine

which files will be usable in this program.) The operator may

choose to have the results printed, plotted, or both. If

neither method of output is selected, the selection program

is loaded and run.

During calculation, information that is to be printed is

sent to the printer immediately, while information to be

plotted is stored and retained until the plot routine is

entered. While computation is taking place, the date-time

group is flashed on the display to indicate that the computer

is functioning.

In the plot routine, each median is plotted as a discreet

point. Since there are only 19 calibration levels, there will

be at most 20 discreet levels at which the dots will appear.

(The twentieth level comes from all data points below the last

calibration value.)

3.2.8 Rayleigh plots

This program loads the data processed by Data I, and plots

it on a Rayleigh scale. The program forms a cumulative distribution from the data, and then plots it on a sheet of plain

13
white paper. The routine draws its own scale, and plots the

data consistent with that scale. A Rayleigh distribution will

appear on the scale as a straight line with a slope of -1.

3.2.9. Selection program

This program is loaded by an operator request to the main

program, and is also loaded after the completion of any of the

supporting programs. It allows the operator to select from

any of the immediately executable programs on the tape.

3.2.10 New Tape Generation

This program duplicates all of the programs on track 0 of

the master tape onto track 0 of the duplicate. Then it marks

track 1 of the duplicate to accept data from the RSL test.

3.2.11. A-D test

This test instructs the operator to set up the analog-todigital convertor for calibration, and then the program monitors

and displays the four readings from the A to D, allowing the

operator to adjust the gains and circuit conditioning on each

channel.

3.3. Functioning of the Programs

3.3.1. Procedures for operation of the RSL test

The program tape should be placed in the computer's transport, and the special function overlay placed over the keys.

The power should then be turned on by pushing the switch near

the rear of the computer on the right-hand side away from the

front of the machine. File 0 will be automatically loaded and

run, and will, in turn, load and run the main program.

If this is a new test, the computer will immediately

branch to the initialization program to enter the necessary

information. If this is a restart of a test which has already

been initialized, the instructions in Section 3.3.3 "Running

the RSL Test" will apply here.

3.3.2. Initialization

This program sets up the instrumentation and initial data

required by the RSL test. Enter parameters as requested by

the program, and follow each response by depressing the

14
"CONTINUE" button. On entry of the initialization program,

"RSL Initialize," is printed out. The current year is requested, and may be entered as either a two-digit or a fourdigit number.

Setting the clock

The initialization program will enter the clock-setting

routine. If the digital clock has already printed the correct

time on the thermal printer, the routine may be exited by

answering the first question with a "yes". A "yes" may be

easily entered by pressing the special-function key fl. Otherwise, a "yes" is indicated by entering a 1, and pressing

"CONTINUE" . To enter a "no",o use key fO, or a 0 followed by

a CONTINUE will serve. If the previous time showing was close

to the correct time, the enter questions for each of the time

units may be defaulted to the correct value simply by pressing

"CONTINUE", and the new setting for, the clock will default to

the previous one. Otherwise, the corrected value for the

time unit must be entered at the keyboard if a change is

desired. The computer will set all the time elements on the

clock after the minutes are entered. There will be "please

wait for clock to set" message for about one minute until the

circuitry is updated. At the end of the routine, the computer

prints out the current time according to the clock reading.

Channel information

Certain parameters must be entered for each channel so

that operation of the RSL test can proceed in a properly

documented manner.

The A-D range is defaulted to be HI(-5 to +5 volts).

If the A-D has been changed, the change must also be recorded

in the computer, so that the proper divisor is used in converting the II-bit reading from the A-D to volts. If these default

values need to be changed, the computer will enter a subroutine to handle the alteration.

For each channel, the operator is asked whether or not

that channel is to be used. If not, the channel will be "down"

15
for the duration of the test. For the remaining "up" channels,

the maximum calibration level, and the dB step size must be

entered. The default values will be printed, and may be changed

by entering another value. The default value will be used if,

when the question appears, the CONTINUE button is pressed. A

transmitter designator for each channel must be entered, the

designator being the three-letter DCS site designator. For

example, the transmitter station might be Heidelberg (HDG).

Then, the designator would be HDG. The transmit frequency in

GHz is entered also.

This information is entered for each channel, and then a

receiver designator is entered for all of them. The receiver

designator is the same for all channels and is entered only

once (in the same format as for the transmitter designators) .

A calibration should then be run for each of the up channels. This entails setting a signal generator to the reference

value shown on the computer display, and pressing CONTINUE.

That will record the present voltage reading from the A-D

converter and the next lower calibration level will be shown

on the computer display. The process is repeated until 19

levels have been calibrated. The calibration should be performed for each of the up channels.

After that, a test title of up to 50 characters should

be entered. This test title will appear on the plot of data

when the analysis is performed after the test. The initialization data are now ready to be recorded into the first data file.

If the computer finds that there are already data in the

initialization file, it will print and display a warning message. If it is intended to write over these data, and all

other data on the tape, then a go-ahead may be given to the

computer. Otherwise, a new RSL tape should be put in the

transport before pushing the YES key.

Software details for the A-D converter and calibration curve

Each of the four channels has a status as determined by

the initial calibration. If no data are to be recorded on that

16
channel, then a flag for that channel is set to zero. If the

channel is active, then the flag is set to either +1 or -1.

A positive sign on the flag indicates monotonically increasing

calibration voltage values with increasing rf signal strength.

A negative flag denotes an inverted calibration curve. This

small amount of software housekeeping makes sorting data against

the stored calibration curve an automatic process with no

procedural differences, regardless of the manner in which the

radio/AGe system operates. The sorting of acquired data is

done by a five-step decision tree, which has the advantage of

taking a fixed amount of time to determine in which histogram

bin the datum belongs, regardless of the signal level. The

decision tree is shown in Figure B-22 and its flowchart is

Figure B-13. The A-D range is set by a jumper inside the

device. Depending on which range is selected, an appropriate

constant must be used to obtain de volts from the value

obtained by converting the bit pattern to decimal. The value

of the factor is shown in Table 2-1.

Table 2-1. A-D Range Factor

Range ~1ax . Volts Factor, R [I]

Low ±1.28 800

Medium ±3.42 300

High ±5.12 200

High-High ±10.24 100

There are four range factors R[l] thru R[4] for each of the

four channels.

The lO-bit mantissa from the A-D divided by R[I] (where

I is the channel number) is the correct relationship to

determine the voltage. The initialization constants are

stored in the A array for storage on tape. The constants

are shown in Table 2-2. The recording of data onto tape,

which occurs twice per day, saves each hour of the 12 hours'

data, saves operator's comments, and saves the A array. The

17
first file on tape contains a test title, the A array, the

calibration voltages, the A-D range factors, the receive and

send station names, and the 4-link frequencies. Once these

data are recorded the RSL test may be considered successfully

complete, however the directory, analysis, and plotting programs make the data useful by compiling the results in usable

forms. Additional programs may be added for further treatment of the data at any future time.

Table 2-2. RSL Test Initialization Constants

I A[I] Array

1 Calibration reference level (dBm) , Channel 1

2 " " " " Channel 2

3 " " " " Channel 3

4 " " " " Channel 4

5 Attenuation step size (dB) Channel 1

6 " 11 " " Channel 2

7 " " " II Channel 3

8 " " 11 " Channel 4

9 Channel 1 status and sense (-1, 0, +1)

10 " 2 " II

" "

11 " 3 " II

" "

12 " 4 " " " "

15

L: n 13 Flag status = 2 • (flag value)

0 n

14 Number of files recorded on tape = F

15 Current year = U

16 Current Time: T (Mo Da Hr Mi Se)

18
3.3.3. Running the RSL test

After completion, the initialization program will load the

RSL test. The main .program will then load the initialization

information from file 0 of the data track on the tape, and begin

the test. It will first print out useful header information at

the top of the printer tape. This tape should be preserved as a

part of the RSL test documentation.

The test is then commenced. On each interrupt from the

clock-timer, the computer reads and bins the data from the A-D

converter. After each set of conversions, the conversion count

is incremented.

The display

At the beginning of theOtest, the Date-Time Group (DTG) is

shown on the display along with the current conversion count.

Since the timer is set to interrupt four times a second, the displayed count should increment in the same manner. For a complete hour, the conversion count should be 14,400, or a few less.

Another display that is available is the A-D display.

This shows the DC voltages on each channel of the A-D converter.

To select the A-D display, press the special-function key

labeled "f7". To return to the DTG display, press key f6.

The third display available is the RSL value of each of

the four channels. The value in dBm to the closest dB is

obtained by pressing f8 while the test is running. To return to

the DTG display press key f6. The values shown in the RSL display are obtained by an actual interpolation of the measured

voltages compared with the calibration curve. The function of

each key is labeled on the overlay.

Run-time functions

While the test is running, there are certain functions that

may be executed without interrupting the test. Although a

"quick look" will be printed every hour, an instant "quick look"

may be printed by pressing special-function key f2. A "quick

look" in the standard form will be printed out without disturbing the test process.

19
The data from an uncompleted time segment less than 12

hours at the end of the test will not be recorded on the data

tape unless the operator requests the action by pressing f3.

This should always be done at the test's conclusion to prevent

loss of the data in last l2-hour time block.

Power Failure

If the power to the computer is interrupted during the

test, the programs and data in the computer's memory will be

lost, and the test program must be reloaded. This will be

completed by the Autoload feature on the computer, and the test

will resume. If the operator wishes to log the reason why the

power failed, he should press fS, which allows entry of such

comments. The comment may be up to 50 characters long, and will

be recorded on the tape along with the current 12 hours of data.

Only one such comment is allowed per 12 hours.

When a power failure occurs, the digital clock will

maintain the correct time up to one month if the NickelCadmium battery is fully charged. The year is not maintained

in the clock and must be obtained from the tape. No software

routines were developed to index the year after December 31.

Also the user should refer to the clock manual for February

leap year settings.

Other functions

A few other functions are available through the specialfunction keys. The current data histogram on any of the four

channels may be examined by pressing f14 (the shift of f2).

This will simply print out a histogram of the data points in

the channel selected.

If there is some question about the accuracy of the A-D

converter or interface signal conditioning equipment, pressing

f19 (the shift of f7) will show the readings of the A-D without

storing them. This would allow minor adjustment of the A-D

without disturbing the data already taken. WARNING: The

calibration should be rerun if changes are made in the system.

The storage of data is resumed by pressing f6, f7, or f9.

20
3.3.4. Other programs

After the final RSL test data have been recorded, programs

for processing the stored data may be entered by pressing f4.

This must be done while the DTG, A-D or RSL display are on the

screen. It will not function after file 62 has been recorded.

This will stop the main program, and ask the operator whether

or not he wishes to terminate the test. If he answers "yes",

the selection program will be loaded and run.

The selection program simply prints out a list of the

available data processing programs, and allows him to choose

from them. This may also be loaded and run by pressing the

four keys RESET, LOAD, 9, RUN.

3.3.5. Data tape directory

The data tape directory will print out a list of files on

the data track, including time the file was recorded. The

selection of the long directory will print out operator comments,

the number of points recorded per hour, and whether or not the

file was complete. After the program encounters three null

files, it w'ill terminate and return to the selection program.

The only question asked by this program is whether the

long or short directory is to be produced. The tape to be

reviewed should be in the transport before running this

directory program. At this point, it is a good idea to have

the data tape protected against over writing.

3.3.6. Data Analysis I - a statistical analysis

Statistical analysis will be made on the contents of the

data tape. After the tape directory has been run, there may be

some files which appear to the operator to be invalid. The

program will automatically remove files which were labeled

"Null File", or "Invalid Data" by the file directory program.

However, a file which was recorded while the equipment was

malfunctioning might contain invalid data although the file

would appear normal to the computer program.

The edit routine (for removing these files), is entered if

requested, before the processing begins. If there is no need

21
to omit files, the initial question should be answered "no", and

the program will process all data files until three null files,

or the end of the tape is encountered.

In the edit routine, the program asks for a starting file.

This question should be answered with the number of the first

good data file. It then asks for an ending file. This should

be answered with the number of the last good file in that block.

The computer will examine and process all files between and

including the specified files. Then it will return to the

keyboard with a "Done?". If the answer to this question is

"yes", it will go on to the printout section of the program.

If the answer is "no", it will return to the edit routine, to

allow the operator to append another block of files to the

data already processed.

The printouts

There are four forms in which the data may be printed out.

All are equivalent in the information they contain, but each

presents the data from a different aspect. All four of the

forms may be useful for some aspect of data analysis, but they

may be selected individually, if only one or two of the forms

is desired.

The histogram is simply the number of points in each bin

that are equal to or above the given dBm level, and below the

next higher one. The number appearing in each bin is the number

of samples of the signal level that fell within that bin.

A cumulative distribution includes the number of sample

points stored in that bin and all of the bins above it. This

shows the number of pointawith RSL equal to or above the

specified level. The number in the last (bottom) bin will be

the total number of points sampled during the test.

A percentage histogram will show the percentage of the

total number o£ points sampled, which have fallen in each bin.

A cumulative percentage will show the percentage of points that

fill the bins at that level and above. The last bin should

always contain 100%.

22
Printing on the thermal printer will be the manner of

displaying the processed data in the field, but at the base

station, a plot of the data may be produced. If the plotter

is available, the plot question may be answered with a "yes"

if a plot is desired. If no plotter is available, the

question should be answered "no", to prevent an error. If

no plot is to be made, the computer will return to the

selection program.

Rayleigh Plots

The data from the aforementioned statistical analysis

program is stored at the end of the data track, and reloaded

when the Rayleigh program is run. A sheet of standard

sized (8 x 10 ~" minimum) white paper should be placed in

the vertical position on the plotter, and smoothed down with

the chart hold on. The paper is now ready, and the first

question may be answered with a "yes".

The program will draw a Rayleigh scale, and will label

it. The entire drawing of the scale will take a few minutes.

When the scale is complete, the pen will move to the upper

right corner, and "which channel" will be displayed. Entering a channel number will cause the distribution plot for

that channel's data to be plotted. The color of the pen

will be automatically changed, so that different channels

may be easily distinguished. If a channel was down, it will

be skipped. Entering a channel number greater than 4 or

less than 1 will cause the computer to return to the

selection program.

3.3.7. Data analysis II - hourly medians

This program will print and plot the hourly medians for

each hour and each channel for the entire tape. The program

allows the operator to select whether he wants the results

printed, plotted, or both. If neither is selected, the computer returns to the selection program.

As with Data Analysis I, there is the capability of

deleting bad files, but in this program, one can also delete

23
individual hours. If the edit routine is not used, the computer

will automatically delete those files that contain invalid data.

The processing will stop after three null files are encountered.

The process can also be terminated by pressing f5 at any time

during the computation. After f5 has been pressed, the program

will continue processing until it comes to the end of a file.

If the editing routine is used, one may choose to edit

files, or both files and hours. Editing files is faster than

editing to the accuracy of hours. The file editing capability

is present in either mode. The edit routine forms a masking

matrix, which determines which hours are to be skipped. To

omit an entire file, the routine simply blocks out that l2-hour

portion of the matrix. The questions asked by the program

may seem to appear in reverse order, but the program assumes

that file zero will be the first file read, and everything

after that follows the pattern set up at the start. If the

operator answers the questions as they arise, proper results

will be obtained. (For definition purposes: The ending file,

i.e. the number entered, the ending hour, and starting file and

hour will be included in the calculations. Only the hours

between the ending and starting hours will be omitted.)

The processing then begins. The time at which the file

being processed was recorded is displayed along with an indicator which shows that the machine is processing the data.

After each hour is processed, another line will be printed if

a printout was selected. Otherwise, just the time at which the

file was recorded will be printed.

At the end of the processing, the operator will be asked

if he is finished with the present tape. This question allows

a loop back to the edit routine, if further processing is

necessary. If he answers that he is finished, the program

will allow him to remove the tape after it has been rewound.

The computer will then ask if there is "Any more analysis" to

be done. This is an opportunity to link the present data to

data on another tape.

24
If a plot is selected, the program will enter the plot

routine. Otherwise, it will return to the selection program.

For the plot, the standard white paper is to be placed in the

horizontal position. After the scale has been drawn and

labeled, the pen will move to the upper right corner of the

paper and a channel number will be requested. The program

automatically changes the pen color, to distinguish channels.

Entering a channel number less than 1 or greater than 4 will

return the operator to the selection program.

Each one of the hourly medians must be plotted as a discrete point, which makes the plotting routine rather noisy.

The finished plot will appear as a distribution.

3.3.8. The selection program

The selection program will print a list of the programs

available on the program tape, and will allow selection of the

program needed. The program number should be entered and the

CONTINUE key depressed. This loads the proper program. If at

any time the operator becomes "lostl1 , and does not know which

step to execute next, pressing the STOP and RUN button will

return him to the program. Pressing f4 will usually return

him to the selection program. Otherwise, typing "ldp 9" and

then pressing EXECUTE will reload the selection program.

3.3.9. New-tape generation

The new-tape generation program will permit straightforward duplication of RSL programs from an old tape to a new

tape. This is especially valuable in the field to obtain more

RSL tapes for continued testing past one month. The original

RSL tape must be write-protected (by sliding the record tab on

the cartridge to the correct position). The data track on the

new tape will be marked, but be left empty, ready for a new

test.

3.3.10. A-D converter test

This program is very useful in the initial set-up and

alignment of the signal conditioning equipment prior to beginning the RSL test. It permits the A-D to function as a

25
four-channel voltmeter with the same type of display as in the

RSL test when f7 is pressed. It is also useful to align the

zero and gain of the A-D converter if the range jumpers are

changed.

4. SUMMARY

4.1. Features of the System

A long-term test to measure and analyze received signal

levels of four microwave radios has been developed using

commercial instrumentation and a programmable desk-top computer which uses the IEEE 488-1975 GPIB. Each radio channel

is sampled four times a second and data are compared against

a calibration curve and stored in one of 20 bins to form a

histogram of a signal distribution. Each hour a set of "quick

look" statistics is printed for the four channels, the data

are stored in memory, and the histogram bins are reset to zero

for the start of the next hour's data. Twice per day all

the data in memory are recorded on a tape cartridge. The

test will run for 31 days unattended and then it will stop.

Use of a digital X-Y plotter with the computer after the

test is complete will produce labeled graphs on standard-size,

plain paper. Either of two different analysis programs may

be selected. One program plots the hourly medians for each

of the channels' 744 hours (or less if the test was terminated prematurely). A sample plot is shown in Figure A-23.

The other program plots the distribution of the four signals

as a percent of the total test time the signal level exceeded

a given value (e.g., -25 to -85 dBm). The scales and axes

which are drawn on the paper will be true Rayleigh. A sample

plot is shown in Figure A-18.

The entire development was software. No special equipment

or hardware was needed. The instruments and controller are

off-the-shelf stock. Running the test merely requires connecting the equipment, placing a small tape cartridge in the

computer, and turning the computer on. After the operator

26
answers the initial questions, and performs a calibration as

instructed by the program for each channel (using AGC or a

logarithmic amplifier), the test will continue for one month.

In case of a power failure, the test will stop, and when

power is available, the test will automatically restart.

Even the digital clock will keep correct time for one month

with its NiCad battery without power.

4.2. Future of the System

This software package should prove very useful for testing

new or special interest microwave paths. This package is typical of the modern instrumentation concepts where emphasis has

been shifted from a hardware pevelopment to a software program that may be modified, embellished, and expanded as needs

require. The hardware with the GPIB interface may be used for

many other tests and purposes when the RSL test is not being

used.

A logical sequel to this package is a package of multiple parameter measurements where several different types of

inputs are correlated in real time and then the statistics

are computed to show any interaction of the parameters. Such

data can show the most sensitive parameters to monitor in a

system and can serve as predictors of performance. For modern

communication systems using PCM-TDM, such parameters could be

BER, framing errors, three-level errors, a degradation monitor

voltage, channel noise, and RSL. Other sequels to this package could be the "monitoring of RSL from two different receivers on the same path and the instantaneous comparison of

the RSL values to determine the effect of the diversity scheme

and total system availability.

27
5. REFERENCES

Brennan, D.G., (1959), Linear Diversity Combining Techniques,

Proceedings IRE, p. 1076, June.

DCA Circular 310-70-57, Supplement 1, (1974), DCS Quality

Assurance Program, Defense Communications Agency,

Washington, D.C. 20305, October.

IEEE (1975), Standard Digital Interface for Programmable

Instrumentation, IEEE Std. 488-19750

Lindberg, David A. (1976), Automated Data Acquisition Applied

to Monitoring of Communication Systems, 1842 EEG/EPEUT

TR 77-4, Richards-Gebaur AFB, MO 64030, 1 October.

Loughry, D.C. (1974), What Makes a Good Interface?, IEEE

Spectrum, Vol. 11, No. 11, p. 52.

Nelson, G.E., and D.W. Ricci (1974), Standard Instrument

Interface Simplifies System Design, Electronics, t~ov. 14.

Santoni, Andy (1976), Standard Interface Gains Fans, Electronics, August 5.

28
APPENDIX A. SAMPLE OPERATIONAL INFORMATION

A.I. Program Interaction

Figure A-I is a flow chart for the operator showing how

the various programs interact and call each other during the

RSL test and the data analysis after the test.

A.2. Sample Printouts

This appendix contains samples of the typical printouts of

the various RSL and related programs. The comments in the

right-hand column of Figures A-2 through A-I?, A-19 through

A-22, and A-24 are to give an indication of what is required at

that point in the program. Normally the operator is prompted by

the L.E.D. display to enter data via the keyboard. The comments

alongside the printout include mention of these prompts and

entries in Figures A-2 through A-II. A feature of the computer

permits all displays to be printed, and this feature was involved for the analysis process in Figures A-12 and following

in the appendix.

The typical order of execution of the programs is first,

to run the initialization program, followed by the RSL test.

Then, the selection program is run, to permit the selection

among the data analysis programs. The data analysis programs

have no set order of execution, but the majority of them need

to to be executed" only once or twice per test.

Figures A-2 through A-5 deal with the Auto restart and

Initialization programs. Figures A-5 through A-8 show the

execution of the RSL test. Figures A-9 through A-II show a

sample execution of the file directory program. Figures A-12

through A-16 show the execution of the statistical analysis

program. The Rayleigh plot program and a sample result are

shown in Figures A-I? and A-18. The execution o~ Data Analysis

II (hourly medians), is shown in Figures A-19 through A-23.

Figure A-24 is a sample run of the A-D test used in the initial

set-up. All data in this appendix have been simulated for the

sake of format, and do not represent actual values.

29
A.3. Computer Keyboard

To facilitate the reading of the sample printouts referenced in A.2, a layout of the keyboard for the desk-top computer

is shown in Figure A-25. The special-function keys mentioned

previously are the 12 keys in the upper right-hand portion of

the figure labeled fa through fll. The CONTINUE key is used

like a RETURN key commonly found on many computer terminals,

i.e., it is depressed at the end of each set of data entry

during program execution.

SPECItJ' FOOltHI

FILE 1

r---'~

I

L :1:~

l -

I

.-- "____ L. _ Figure A-I. Program interaction.

30
Aut 0 ::;, t 0, r t. 2 :3 f= e b l ?

~: i.,·1 (i ::;../ :=. ~. ;~~ ::: F 10.:' t) .? 7

On a power up condition, file #0 is~ automatically loaded and run.

It loads the RSL main program,

which in turn loads the:initialization program if no data is

found in data file O.

E ~"! t :::' f' P 0, r 0, !l'i E' t i=' r ::;,

(J. :;:. r E' ::-{ U E' :::. t :=:'::1 R

The operator is to enter each value

as it is requested by the initialization program.

•I': E' O. t :::

DGte Operator enters the year number

and sets the clock.

[i E' f 0. t·, 1t i.) G, 1u !-::. :;:, :

A-D on Hi~:: 5::0\:i

~~ ::J. (1 i 0 P 0, r 0, 11'1 E' t E' r :::.

t:l 0, ::< Co 0, 1 ((j E: (1'1 ). :::: - 2 ;:~

Default values are present as shown.

The A-D is assumed to be set on

range shown. The calibration signal

is assumed to be -28 dBm, with 3 dB

steps. .-,

..::

When asked, enter the station

designator.

31

Figure A-2. Run AutoStart and initialize.

Ch G. nnE" I # '~~r

If present default values are to be

changed, respond to display questions

accordingly, otherwise default

values will be stored.

1 Ch (i. n n ~~'l # .1.

>:: 1':'1 i~, d i::' ;::, i ':'3 n G, t (:: r :::

[! Et,~

C: h G. n n :=:' 1 (~ 0, t o. :

i';1 0, ::< C G. 1 t: ci Bf:'i ) :::: - 2 ;:;

(jB :::.ter.:a= :_:

C: h C. t"i n ~.:. 1 d o. t G.

t'1 0, >:: C. o. 1 (d E: fl'! ) ::: "~ 2 a

dE :=. t E' f:l :::: '_'

;:< 1"'1 i to d E' ::;. i '3 n G. t :) r·:~

L 0 t'1

-------- J
Ch· o. nt"'i E' 1 (j G. t o.

f"1 _. D ( o. ri '::1 :::' :::: t-i H

t:l iJ. ::{ c· (I. 1 (d t: f:'i ) =.:.- :::i (1

(:1 E: :~. 'to io:;' f) :::: 2

::.:: i="i.i t ,:j E' :::. i .~'3 n 0. t. 0 r =

t··IE[t

~: E' c· :.) d E':;:· j. .~ ri O. t. c£ r =

E:I)L f (: rO.ll iJf:'

c· t-i o. ri r! i::· 1:::.

For each channel, the proper

information is entered. The

operator responded "here that

Channel 3 is not in service.

Then; the infor~ation is printed

out on the printer for a record

of what was entered. Notice the

default values were changed.

c(1. 1 i tl r 0. to E' C: ~·i 0. rJ 1

--2::: -4 ::::;:6

-:31 "-4 1I 276

..- 4i21

-4:~;

..... 4 E~

'-49

-52

-2 = :::4'3 ..···2 • :;: ~~12

··-111S19

A calibration is run for each of

the up channels.

The operator must set the proper

dBm level on input to the measurement equipment, and then press

'Continue'. The calculator then

prints out the corresponding

voltage as read from the A-D

Converter.

-.. 55 '-~~i:: 3t:2

-5B ~:111125

- t, 1 i2i :: (:' (1 4

-64 1 .. 21:3

-·6? i II 7:37

- 7 (~l :3 :a ;;:~ 1?

.-?::::t :;::a62S

-82 4" 1(1~~

C: o. lit.:. r 0. t :l (I n C: I.... r I.... E'

i ni.) ":::. t" t 1::' d

Since the voltage increases as

the RSL decreases, the curve is

inverted from normal, and the

calculator notes this fact and

then continues normally.

Figure A-3. Run of initialize.

32
C: c. 1 i·t r :J t ~.::. Ch G. n 2 ......... - ... .. .. a.... '~.'

.- :~~ 1

.........:: ..·...:.1 :' :3:: 240

;2 &: ?::; ::~

2: II :3~;'?

Each channel may be calibrated

and even repeated if desired.

Entering a channel number less

than or equal to 0 will end the

calibration process.

- 4- 6: 1 : e ::~ :3

-4:3 lr::~:16

-5c~ [1::;::S?

- 5 ::;" ...- ~3 II 1:3 e

..... 64 ,-,,·1 ;: ~:: 14

- 7 :3 ..". ~:~ :: ?:3 i

-SC~ ·-4:;i74

'-4~i

-42

..- d::1 1 1

-46

-4:::

-~ 5 ~~1

-60

-66

~~~ II ia 13 ~:;

1:&46~::

~3 :: .? 4 ::;

0=57[1

._. (:1:: 1 4 I:)

--·0=4:24

_00 i I; ~:'?ti

.._. 1. :; ~2;'? ~~

-- 1 :: I:~~? 4

- ~~: II 6'? ::~r

_00 :3:: 1s:.ll

_.. 3"11 7;:! 6

Figure A-4. Sample calibration.

33
H~~:' 0, d ~.::. t" 'r i t 1::;'

for C O!":'j ;":'j i::' (i 1:. :::' ) :::::

~: SL t E' :::' t T rio, 1.

Then, the operator should enter

a test title, which will identfy

the test.

Fa~: f':' G, d ':t"" t 0 (" E:' cor d

-:r -:!' DG. 't. G. j,n f i 1:;:' ! If there are already data in file

zero# th~ calculator displays a

warning. In this case, the test

was a rerun, so it could be

recorded over the old file O.

BEGINNING OF RSL TEST

The RSL'Main program is reloaded

and resumed.

eel iL:t"o.t i!~:n (l.t:

~~~ ::~ FE:' b ? ? 1.;2: :::; ;::; ; 4 9

>:: fl'; i t DEr'~ L 0 i",i f'~ E[I

r~:'c E;()LEi]L BOL

;J. ..... d - i~'! I +HI HI +HH

The header information and

other test information is

read from file zero and

printed out.

For a down channel, any dBm

level is printed out as -99.

If the calibration curve is

inverted a minus (-) sign

appears before the range

designation.

i

.i.

Function

~: SL. I"'J nC! iJ i ::. k 1I) :) .k for (I"J :

Ch G. ~~ n ~: ;. ~~ if'! f."

The information at left is

printed only at the beginning of the test.

Figure A-S. Sample start of RSL test.

34
AiJ i: i):;:. t o. r t ~:~ :3 Fe f:) 7 7

k: E" :::. t G. r t ;~ ::; F ~.:. t.':J 7 7

~::6Fet) 2: 19: [~:::

CI'T ..... IT::; t. ~::. :::. t f (: tOO

~: ~:; L (~.:~ 0 t" t ..::. n (j'/ kE' )

~~ 6 F::::' t') 2 = 19

TE' :::. t tOO ~:' :::. t G..r t E' (,1 f

o r f.:) ~.:. lo::' kE' n (j

.)~ *.):. 0 UI Ct< !... 0 0K:::- -::: ~~

::+ - ~:; ;~:~ ..... ~; c~ ..... ~5 ~~~ .... 5 ;;:~

.::: *:t 0 !..J let::: L.. 0 0K,::;.*.,;.

2 ..···:~~; ..-64 -..·64 ....·64

.j;' ~~. ';i:' CtJ I C: i< L0 0 f< ,:(. ,::;. ~;;.

~:~ 6 F ~;:' ;:) :5; ~~i [l 14 3 ;~; 5

i ..... ~j ~5 .. ' .? 0 _... ? [i ...- '? ~J

~~ ..- :5 ~5 ..... (: 4 -.. t: 4 ·_-t~~ 4 ....:

,,:,

1 ::; ~5 ? f;?: - ? i~J ..... 7 i~i

c~ ::i ~) 6 4 ...- ~;~ 4 - 6 :::J.

.-. '.:,.

4 ..... ;5 ~:~ ..- ~j :2 .- 5 ;~~ - ~; ;;:~

.~ ~!;. ~:. 0 UIe}::: L. 0 I] t:::* ~~ ~.

~~6FE'b ?~O~3 143;::7

1 "-5~5···?~~i ..·.. ·;::'(1 ..·-70

:;:~ .... ::; :::~ ..... 6 4 ..... (. 4 - 6 ::+

4 -- ~:~ 2 -_. :; ;:~ .. ~) ? - ::; :2

:i~ -:~. ':~ 0 UI C1< t. .. (i 0K .~:..:::..t..

2~ (: FI;:" j-::i ::: 0 '~~i 1::+ :::: ::~ 5

1 _.. ::i 5 .... ? fJ -- '? 0 7' ~J

2 _.. ::~ ~~~ -- 6 4 _. (. 4 6 ==+

4 _... :; :~ .- ~) c: _. 5 2 -- ~j 2

~--"---'-""~- - - -~

The calculator was turned off

and restarted, as if the power

had failed.. In this case, not

all of the header infomation

is printed out, and the test

is resumed as quickly as possible.

The operator· stopped the test

to enter a comment. Perhaps

to tell why the power failed.

The test .now runs by itself and

prints out a "quick look", a short

analysis of the hour's data,

for each hour of the test.

Note that Channel 3 is not in

service as directed by the operator

at the beginning 'of 'the test.

Figure A-G. Sample RSL output.

35
*·:t·:::·OU I C< L..OCK·~~·:::-·:::­

17 Fe b:~:: ;;:~.: .;? :t :5 1. Ol:j

1 .- ::::! ~~ ..... '7 ~~1 ..-? (I ..... ? 0

:;~ -61·····61 ..-61··-61

1. .? F ~~. L~: 2 :3 :: l2; 0 1. :::i· ::.~ ;:; I:;

1 - ~5 ::; ...-./ ~::i ? 0 .._..? ~j

2 ....·61 ..·.. 61 · 6i·..··61

1. ::~ F :::;' b ~j; ~:J 0 1 4 :3 ;:~ 6

1 ... :::i :; ..... ? Cl ._..? ~J ...-'? 0

c~ '-61"-61 ..···6·1-61

_... :::; ::1 ._. ;::; :i ._. I ._.:

f i ], E' 4

This page is included to show

the recording of data into

the next empty data file on

track 1. Recordings normally

occur at noon and midnight.

-:i~ -:t .~:. G~ UI CK L 0 0 t::: .:~. :::. -:::

i ;:; F' i::' b ;;:~; i~J 10 1::f3;3 '7

1 ._. ~:: :::; ;::: ~j ?(,1 ..- ? (:;

:~~ ..... i:: 1. (: t ':1 l ..... 6 1.

1::: FE:' b 3; ~~i 0 i 4 :3 i:: 7

1. _. ~5 ~; ..... ? ~~~ ? [i _. ? ~3

;2 ..···6:l·_·6i ··61. ....·61

4 ..... ::} e.... ~5 :::!. ..... 5 4 ._. 5 4

.~~ ~;. ,*, (.~ UI CK L.. CCK.:~..:::- ~:

1. ;:: F ~~:' L: ·::i·;; C0 1. 4 :::: ;~:~ ?

1 .... ~; ~5 _.. ? ~~j _.. '/ 12i ? i~~

;~.~ ..- 6 1.... 6 t _.. 6 1 5 1.

Figure A-7. Sample RSL output.

36
At any point, the test may be

interrupted to obtain a printout of the current data histograms for any channel. This

printout might yield information

on why a channel seems to be

down, or how signals are fading.

.....

....:

..'

i i -'- -'-

19

14

1 --:;: • !

10

,[I o. t :J. -:t: -:.:. ~.

Ct"i :]. ri # 1

(1

(i

.......:,"'

,.. .:

.... -.: :i-

... ."

.- i ta

-43

:..-;

1

:-'

...1

.: .of

.t :.;-

1~

,a ." 1 :::: of ..,~

1 (

·~: .;.:. *L i :::' t

Bin (J E~ ;':j

..'.: ,-: - ..... of I"':

1 :?

i

.-

."

...- , ::' :. - ..... ~:: 1

....·34

o

.-,

i:5

r__•

....$

-I

(

::,

..'

1.::

1 ....

..'

14

1I)

1tl

i7

1 I:: J. I_I

, 1

....' !

d ...

..... L+ ::i

." of

--::: 1

-64-"!

..... !'.::; I

- i(1

-:; .... ..... f .::

." _.. ! tl

",- :3

(1

'-1 1.1

c.. I-~.l

Figure A-8. Sample run of Listdata routine.

37
1) I nit i 0, 1 i Z E'

2 ) ~: iJ-n F:: SL t, E'-:=,t.-

J) F i 1E' DirE' c t ';l

4) [1 (i, t 0. O. n G. 1 I

5 ) [I £1 t 0. G, n CI, -I I I

6) F' lot ~: 0. 'i 1 E' i '=3 h

7) t·~ E' i.:,! T G, P E' GE' n

:::) A-D TE':=.t

:3) End

T0. f,:. E' [I i r

~~ ::; L cl (1. t. O. t. 'J.r.:·e'

[I irE' c· t. (I r ':l t. r k 1

F i 1E' (1

1 i trill r 7 7 15: 15 : (1 ~j

~~ SL i ri ::. t r IJ (I't E' n t. tE' ::. t· c! o. t. 0. (T h CI 1'1'1 (I, :;,

J

File' 1

1 2 ill o. r 7 7 ~~1 \: ~J (1 : (1 (1

FilE' 2

1 2 tIl 0, r 7 7 12 ; 0 0 : 0 (1

File' :3

1:;: tall). r 7 7 (1 : 0 ~:1 : (1 (1

File' 4

1 :3 t:l G. r 7 7 1 2 : (1 (1 : (1 0

FilE' .5

1 4 t

l

1G. r 7 7 (1 : [1 0 : (1 (1

t,~ IJ 1 1 f i 1 E' 7

Figure A-9.

After Initialization and the

RSL test have been run, the

operator may choose to load one

of the other programs through

the Selection program.

In this case, the operator chooses

°the program which produces

a data tape directory.

This program loads file 0 from

track 1, and prints out the

test title, and the time at which

the test was started.

For subsequent files, it simply

prints out the time at which

the data in the file was: recorded.

If no data is found in a file,

the program tags it as a null

file.

After three null files have

been found, the program stops,

and turns to -the selection

program.

Run of select and file directory.

38
Fa~~ ~=; 1.... d Ci. t o.

Ll i f"" e etc: (" ./

-'1 I..: .M·I""

:'" !:j (!. r ( {

The operator may also select

a long directory, in which any

operator comments, and other

useful information is printed

out along with the time of recording.

:::1.I

2(1 ;::;6r':=

;.~~ 0 ~:~ .? c~

The number of hours and number of

data points recorded is shown for

each up channel.

F J. 1 ~.:. :::;

1 ? Feb ? ? 1. i~:l 3? : ~:: :~:

3 i ·:.=i l"'! iJ. 1 G. d d ,,::;. d t 0

Ch G. n ~~~ G. n d 0. 1 ::;. 0

4 'f r 0 fa'j :::. i n'e ;.1.10. =.) e

1 1. 0 h r 1 4 :::; 9 :3 6

~::: 1. 0 h ( 14 :~:: =3 5 i

4 i ~) 1'''1 r i ::.1· 3 9 ;:; ?

Fi Ie ::.1·

1. ;:: FI::' I:) .? ~::: 0 ; [1 0 ;; 0 (i

II D;J t (I. for o. fi!J. 1'/;:.

1 i ;~~ h (' 1. 6 0 '3 ;:: ?

? 1 :.~~ h f" 1 t~1 1 ~:~ U4

t:+ l?hr 1610~50

...................._.~

Figure A-ID. Sample run, long file directory.

39
......../'~--~----.."...~~------..

F i ], !-~:' ~;

1 ::~ F ~:' b ? ? 1;~: ~J iJ : O~)

1 1 ~:~ t-i r 1 ? ? ? :3 ti

2~ 1 ~:~ h ( 1? ::~ ? 4 :;:

,I

J

i 9h( 111.1~~6

;~~ 9 t"i r 1 1 1 14 (;

4 9h( 1111?0

F i ], ~::' =3

;;:~ ~5 F' :::;' b ? '? ;;:~ 3 ;. ::+ ~::; 1. 6

i

4

1. 1h r

1. 1. h r

1 1. h r

1. 4 (~: 1. 2 ;:;

146146

1. ::+ ~.:: 1 ~:; 6

Fill::,10

~:~ is F ~.::' I:::: ? ? 1 ;~~ ;, (:; ti ; (i (1

Te ::;. t ( :::' ::;, '!:. 0, r t E:' d f

;::: ;::~ F' e b ? '? ~~] ; 0 C:; ; 0 (1

Ti::' ::;, t l"" :;::' :::' t l} ( t E' d f

o t- !.:,i (:' e k1;:' n d

1 1 ~~ h ( i 4 ::; 6 ;:: 6

? :I. ~:~ j"'j r J. 4 ::~ ? 0 ~:;

:::j. J ;;:~ h 1"" 1. :::1· ;~:~ "? 4 :::

Figure A-II. Long file directory (cont.).

40
1 I t""1 i t. i IJ. 1 i z e'

2 ~:IJrl ~:SL t.e·::.t.

:~: F i 1e' Di t"" e' c· t. ':a--

4 D(I. t. IJ. IJ. r'IJ. 1 I

5 [IIJ. t. IJ. o. ri o. 1 I I

E, F' lot. ~: IJ. ':l1 e··i .::t ••

7.1 t·~ e' 1.1.1 TIJ. F:' e' I~ e' ri

:::) A-[I Te·::.t.-

'3) Et""1 (I

Efi t. e··r prC"3 r- .," f'". :if '~'

4

[i 0. t o. I 10 r-l!l r- 7 7

presi f8 t.o st.OP

0. r, 'J. 1·i::. 1 :E" •

F' r e· ::. s· ., C: [I t·~ TI t·~ IJ E'

riCI'..J

[II) ':{ CI IJ 1.•.1 i s. toll t. 1:1 e'

.:J i t f i 1e' ::.

1

~:; t. o. r t. i t""1 ':;1 f i 1e" '~'

(1

Erpj i ri .=:t f i 1e' I?

In this case, .the operator selects Data Analysis I, a statistical analysis o~ the data. If

the operator wishes to terminate

execution in the middle of the

program, he must press special

function key 8. The program

stops to make certain he sees

the message. The operator is

~llowed to enter a file editing

routine in order to remove from

the calculation files containing

invalid or inconsistent data.

F i 1e' 1 r, c. ~-, r 1 :~:

F i 1E' 1 r, c- t-, r 14

F i 1e' 1 r. (. ~·I t"" 15

F i 1E' 2 c· c, j". F=' 1e· t. e'

F i 1e' :3 I:. Ci (,". F:' 1e· t. e'

F i IE' 4 c.c'f'·IF=,l e·t. e'

F i 1 e' 5 c· CI i,'1 1==' 1- e' t. e'

1

Hi::. to (1·3 r (J. i'·. '1'

1

c-

._I • The computer expects to see

twelve hours of data in a file,

and prints out an appropriate

message if one or more are missing

Otherwise, a list of the complete

files is printed out as they are

processed.

Done? is ~isplayed on the calculator, and the operator answers

yes, Otherwise, :the program

Figure A-12. Sample run, Data I.

41
Hi :=. t 0 '=3 r 0. i"l C- f I), 1 1

-::1 0, t o. r.:' I:' i rl t.s

c: ~·I 1 "[lE t·~ t· I) E: (I L

1 -:~:5 ...,

.. .-. -:~:::: (1 c..

:3 -4 1 '.3

4 -44 1 co

,_I -47 '.3

t:1 -5~) (1

7 C' .-, -._1.;.. 0

::: -5EI ~~1

13 -513 17121

1 (1 -E12 15E.257

1 1 .- -:. 1 :38 1 -t,·_1 ,_, 35

1·-:1 .M ....,

a:... -tit:: 2:~:5137:::

1-:. -- ? ._1 I 1 '31 :~: ::: 2

14 -74 13:~:7

1 co ...,..., •_i - ...... ~3

1tl - ;::(1 ~)

17 .- ::: :::: ~3

1I-I -:::EI ~) ':'

113 - ::: Ij 0

20 _I=tl=t .... ~3

C: ~-I .-,

c:. L Cl t'i t- el E:CIL

branches back to the beginning of the edit routine.

When asked if he would like

a histogram of the compiled

data, the operator answers

yes, and it is printed out.

1 -:~:5

~~ -:::::::

':; -4 1

4 - 44 £:;,'

".I -47

,-tl -5fj -I

( -5:3 ,...:

CI -5Et

13 .-5 1

3

1 ~:; -t,2

1 1. -E, t:'

_!

1.:.

a:... -E,:::

1 -I

- 7 1 ..,

-

14 - ...,

..- 4

1 ._1 -77

1tl - :::~]

17 -::::;:

1

J. ::: -:::E,

1 '3 -;::'3

- '=t .::-~ .- •.

1E,2'3::::

17 13:::7::: 22~]74,E:

24E.557

144E,t,l

54 '35

~)

~j

~)

~)

o

o

Figure A-13. Data I.

42
'*it----'" ::. , _

---- "' Fa r i rI t. c IJ 1"1 IJ 1IJ. t. i I.... E'

,J • • L- t 1- - t- .~ (J 1 :;:, t r 1 r) IJ.. I_I I:

1

c: IJ 1"1 t~ 1o. til.} E'

.j i ::. t.. r i I:) IJ t. i I) rt

c: ~-I 1 [I Et,~ t. c. BCI L

The operator also may request a

cumulative distribution, which

is then printed on the' theifual

printer.

1 -:~:5

2 -:~::::

::: -41

4 -44

5 -47

b -5(1

7 -5:~:

::: -5E.

·3 -5·;;

1 ~3 -E.2

11 -E.5

12 -E.:::

1:~: -71

14 -74

15 ~'?7

1ta -::it1

17 -::::~:

1'3 -:::.~

2 ~~1 -·3·3=

.,

.' ...,

.,.'

.'

1-' .j

._. c·

1712'3

17:3:3:::E.

4:372::: 1

72:325'3

:::1557:::

::: 1557:::

:::1557:::

:::1557:::

::: 1557:::

:::1557:3

:::1557:3

C:t-I 2

1 •-, C' -.:'••_1

.-. .-, .-. .::. -.;'11:•

.-

•_a

. -,4 1

4 -44

5 -47

t=-' -50

? -5:~: •

c' C" .- a_a. -._It,

'3 _C"a:, ._1 _•

1 (; •- 11-' -t,.::.

1 1 .- CO

"- -t··_1

1.-, .- a-i

a::. -t·,:·

i ....: -:s ,_I -I' 1

14- -74

15 -77

1t. - :::[1

1 ?

I -::::3

1.:' '_. -:::E.

1'3 -:::'3

20 - '=t ':a ---=---'

LClt·~ t.el E:CIL

0 .

(1

o

o

o

~j

(1

Figure A-14.

I

43

Data I.
- - - - - .---.. .... _-- ..................... .-.----... -_ ... --

F' E' r c. E' r, 1. O. ';1 e' ::. (I f (~

O. t. I). F:' CI i rl t. s· I~'

1

Fa e'·r I:. e' r. t.· r;.:~:;L. dI). t· 'J.

f:' .:. i rl t·::. iJ. tIe' I.,' E' 1

---~ ...... _---_ ... _-~--

1 :;;::~:5 (1 ·

o 00'3 ~,~

.-.

i:. ~.- :::: ::: (1 (100(1~·~

· :~: -4 1 ~A_: a ~)0~30~·:

4 -44 (1

·

~j0e 1 ~.:

5 -·47 (1 • (1 ~3 (1 (1 ~.:

E. -50 (1 ·

~)~30(1~~ .., _ C' ':a (1 00e(1~·: " ._1._, · ::: C' .• -._It, ~) . ~30t10~·:

a=t -5'3 '-a 0'3132~·; .' .::. · 10 .- '-I 1q -t,.:::. 15'3 1 ~.: .' · 1 1 -E,5 ·-:1.:.

'-' '-'.4:374~·~

12 _·t,::: 2::: ·

'3 3 :~: ::: ~.~

1.-,

':.' -71 1 1 204E,~': · 1 4 -- 74 ~) . 1 14'3~'~

15 ........ -{ ... ~3 (1000~'~

· i E. - :::(1 fj

·

000 (1 ~.:

1

.., .-..-. I' .....:.,:.' ~:1 • 0(1e(1~';

1s--: :......- .:. -,:,-:, ti • 00f1(1~'~

1I:; .-: ,-. -,:, ';j t1. 00(1t1~'~

2~3 -'~ ':a ~)

· .' •. 00~30~'~

C: ~·I -':'

.:... L CI t·~ t .:. E:CIL

------_ ......... -. .......-....---

The program also shows the percentage of the total number of

points that fell in each bin.

1 .-,i:" -.:.,.:1

2 -:;::::

.-,

.':1 -4 1

4, -44

c' ._1 -47

tE, -50

7 -5:~:

':' C' .-

'-' -._It·

'3 -5'3

1 ~j - tS 2

1 of .- C- oL -t'·_1

12 -t.:::

1 :~: - ....,

I' 1

14 -74

1 C- ......... ,_I -I·· ...

1E, .- ::i (1

1... .-. ,-, fe -- .:..:.'

1 ':. .- :::E, '.'

1 ,~ - ::: '31 .' 2~3 -'~ '=t ,-_.:- •.

0. 00(10"~

(1 • 0(1 ~3~) ~.:

~:1 1& (1 '.3 ~~1 0 ~.~

(1 • 0 (1 (1 (1.":

(1. 0t1€10~'~

~]. 0000~'~

oII 0 ~3 ~~1 ~3 ~.~

(1 • 2:;: ::: ::: ~.~

1 • '3 '3 77 ~.~

22. 055:~:~'~

27. 0EaE.2:'·~

:3 (1 • 2 :~: 1 ~~1-:"~

1·7 • 7:3 7 2 ~.~

o•t, 7 :3 ::: ~.:

[1 • 0 (1 ~3 0 ~.~

~3 • (1~) (1(1 ~.:

~3. ~30~30:"~

~~1. ~)000~':

~~1. ~~1000~~

(1. 0(1t10~':

Figure A-15. Data I.

44
c: I.~ i"1 i.4 10, t. i·.... e' F' e· r.:, e'

rl't, (1. ·~e· ;E. '?

1

F' e' r c· e' r, t. ~: ~:; L lj .). t. I).

t). t, ':1 t.... e' 1e· '...' e' 1

C~·I 1 [I Et,~ t. (I BCI L -......... _.... _---------.---

1 -:J5 ~3

·

0€1~Z1'3 ~~

2 -:~:::: (1 • 000'3~'~

--. .:.' -4 1 (1 000'3~'~ · 4 -44 (1

·

~)010~'~

5 -47 (1

·

~~10 10~'~

E. -5(1 ~)

·

0~j 1 ~) ~.~

'""'I

-5:~: (1 • (1(11 0~'~ ,.,

,-. I:. -56 0. 00 1 0~'~

'::a co ':. 2 10~Z12~,~ .' - '-'.' · 1(1 -t.2 '-I

.:::. 1 25 '3 :~: ~,~

· 1 1 ,. c:- eoq -t,,_1 ,_I .' • 74t,7~':

1.-:' .- I-I

.:... -t'I:' I:' 1_' ':' '_' • E, ::: (1 5 ~':

1·-:1 '""'I ,_I - .., 1 ':".I

...... I:' ::::35 1 ~,~

1 4 -74 1 0~) • ~3~)00~':

15 '""'I ....

- ..' ( 1 0~) • 0~300~': .. ,- ..... :::~) .. .L tl .L 0(1 ~3~300~': · 17 -::::3 1 ~] (1 • o(1 ~] ~Z1 ~,~

1 ~:: ·-:::t, 1 ~)0

·

0~) ~J f~ ~,~

1'3 -:::'3 1 ~~1(1. f10 (1 (1 ~,~

20 -:~'3 100. (\ 0 ~3 ~3 ~,~

C:~·I 2 LI]t,i It (I E:CIL

A cumulative percentage of

all the points may be listed

also.

1 _.-:,1:" '-' "_I

2 ,-,,-, -.:'11:.

:~: wi -.,. 1

4 -44 C"

"_I ·-47

t, -50 --:

..- .- 5:;:

':1 -5E. '-'

'3 C" .:, -,_I ...•

i (1 t== ,-, -- _I':::'

1 1 .- c:: - 1:. '_'

1-:.

.:... -E,:::

1 .:.

e_1 -7 1

14 ~74

1 C"

"_I -77

1 t, -:::0

1 7 .... •..1

.....:1 .;._

1.:' I_I -:::t,

1 '3 - 1

':":& ..1 ...

2 (1 -'3S'

~) 11 00~3~j~'~

o. 0 ~3 0 ~3 ~':

~j • (1 ~::1 ~3 ~3 ~.~

(1. (10~]t1~'~

~) • 0~) ~3 (1 ~,~

(1. 00~3€1~'~

(1 • (1 ~:::1 ~3 0 ~,~

~3 • 2 :~: ::: ::: ~.~

2. 2:36E,~~

24. 2131'3~'~

~5 1 • :~: 5 i:: 1 ~,~

::: 1 • 5 ::: '3 '.3 ~.~

9'3. :~:2€.2=':

100 • ~:1 0 (1 t1 ~':

10 (1 I: t1 0 (1 e~,~

1 ~) 0 • 0 (1 ~) 0 ~.~

1(1 (1 • [1 t1 (1 ~3 ~.~

1 ~) 0 • ~) ~3 ~3 '.:1 ~,~

1(1(1. 00t1€1~·~

100. 00~]0~'~

Figure A-16. Data I.

45
_.... -_ ... _-_ .......... _-----

[I.:. .:... a:. I.~ 1.,.1 .:t. r. t t 0 D

1c.t. C.tJ"'·I"~ l".t i '..lE" %

::. .:. r, r (I..:t 1e i .=J~" P a

F='E' r'?

1

r ('I. 'i I" e i '::J ~·I '3 t·l.,. r 77 ::: II ::{ 1 ~3. 5 II pIIF:·e· r

r e' (1 (~.·i ~J

1

1...1 "~·I i C. ~·l c· ~·IIJ. rl r, e· 1r;J

1

Figure A-17.

At this point, the operator can

branch t~ a program which plots

the .cumulative percentages out

on a Rayleigh scale, or return

to the selection program.

Rayleigh first draws a Rayleigh

vs. dB scale on a blank sheet

of paper, and then plots the

data from the Statistical

Analysis on the graph.

Sample run of Rayleigh.

46
-321

c chan 1. MTE to MeA 8. 32 GHz

x chan 2, PAG to MeA 8. 39 GHz

+ chan 3. MTE to MeA 15. H3 GHz

A chan 4. PAG to MeA 14. 86 GHz

-421

-sa

-69

..... CD

>

CD

....J

'0-88

c

0')

....

(J')

-0

CD

.... >

~-9B

CD

et:

1 1B 50 gm 99 99. 9 99. 99 99. 999 99. 9999

Percent of Ti.e Signal Exceeds Ordinate

RSL-3 Test for Long LOS 8 &15 GHz Italian Paths'

Data frOlll 26 Dec 78 9: 46

to 27 Dec 78 8:37

Approx 21 hours

Figure A-lB. Sample output from Rayleigh.

47
::. 'E' 1E' C FI r ';I 7 t,~ Cr i,} 7 :::

1) I rl i t. i G, 1 i z e'

2) ~:iJrl ~:SL t.e'st.

:3) Fi Ie' [Ii re·c.t."i

4) [I 0. t. G, IJ. rio. 1 I

5 ) [IIJ. t. IJ. G, n G, 1 I I

6 J F' lot. ~: IJ. 'i 1e' i '::3 h

7:; t·i e' 1",1 T0. f=' e' 1:?3 E' rl

::::; A- [I Te' ::' to

'3) Erlcl

Eri t. e' r· p r -:1 "3 r I). "'"1 # '7

5

DIJ. to IJ. I I 12 Fe' b 7 13

[I 0. t. e' t. i (,'1 e' F i 1#

Hr C: ~-I # 1 #2\ #::::# 4

F' r E' :::. ::" f ::: t. (I :E. t. 1:1 f:.

C· CI i,'l r.:' 1.4 t. IJ. t. i.:. t1 •

F:' r e' ::' :E. 'C: 1:1 r. t" i rllJ e" ,

rl CII.•.I

Next, the selection program

is again loaded and run.

This time, the operator selects

Data Analysis II, a tabulation

of the median dBm value in each

of the. hours for the entire test.

Header information is printed in

case the operator chooses to have

the resrilts qutput on the thermal

printer.

He must press special-function

key 8 in order to terminate

computation prematurely. The

program stops to be certain he

sees the message.

Figure A-19. Sample run, hourly medians.

48
f:'; E' d i IJ. n :::. ?

1

1

[I I:' 0:l CI IJ lJ i S ~·I t. CI e'

(:1 i to file' ::. '7-'

1

Ij .:. ':l c. I.~ 1.,.1 i ::. ~-J t. CI e'

.::1 i to ~·I c. IJ r So ?

1

1:E. to e' rl d i rl 0=3 f i I eo '7-'

f:Oi IJ ::. 1. r e'oo a::~ f i 1e' [1

2

1"0 So f.. ~-l 0 loA r I) f III :Eo

t. f i 1e' 1-;:'

:~:

(1

rl eo ::< t. s· t. O. r to i r, ';1 f i

0-' .:.

::. to O. r t. i f! '=3 ~·i CI IJ r' (I f

t"'1 e' ::-:: t. f i 1e

7

I-I.'

:~:

1 I'..,::. t. t-I ,Q Ij r CI f" 1 IJ. s·

t.f i I E' I?

24

[I Ci rl e' i.IJ i t. ~-I e' (J i t i rl

':;1 ,~.

[1

r, e' >:: t. S· t. !J. r to i rl 0;& f i

1eo :~I

5

:E. to IJ. r to i r. 0=3 ~·I (I IJ r CI f

rleo::-::t f i IE'

1 :~:

rl eo ::< t e' rl cl i rl'3 f i 1e'

.-,.0

5

1Il S t ~·I·I::' iJ r c. f" I.,. SO

t. f i 1 E~ I,?

24

[I (Ir. e' 1".1 i t. ~·I eo cl i t. i rl

The operator may choose whether

he wants the results printed

out, plotted, or both.

If neither is selected, the

program r~turns to the select-·

program.

The operator is allowed to edit

just files, or files and hours,

so he may get the median of

just one hour, or pick out and

eliminate a bad hour from

a file. He can also eliminate

an entire file or a set of

them with equal ease.

1 Figure A-20. Editing routine, hourly medians.

49
1 1til o.r 2 4 : 0 ~:1 1

1:3. - t.'5- 6 :::- '3 '3 - 5 2

1 7 ~E.5~E.::~-'9'3-52

12 til o. r 12 : 0'3 2

1 -t,5-E,5-'3'3--52

2 -6,5-':,:::-'3'3-52

:~: -E,5-':,:::-'9'3-52

7 -Et5-E,:::-'3'3-52

::; -E.5-E,:::-'3'3-52

'3 -E.5-6:::- 19'3-52

1 (1 -':,5-E,S-'3'3-52

11 ~-E,5-E.5-13·3-52

12 -t,5-·E.5-'3'3-52

1'3

20

21

22

24

- tl 5 - E.:::-'3'3 - 5 2

--6.5- E. ~:: -13 '3- 5 2

- E,5 -6 ::: -t3'3- 52

- t':, 5 -6. ::: -=}'3- 52

- t.5 -6.::: -'3'3 - 52 ~;E* 5.... 15,'::: -13'3 - 52

--1:.5 - t,::: - '3'3 - 52

The operator may wish to

run this program more than

once, since one run will expose

those files and hours which

might contain bad data.

The output is in this format.

The time at which the last hour

in a file was recorded, is printed

out at the head of a £ile block.

The individual hours are printed

on the left of the following rows,

and the median dBm values for the

four channels in that hour are

printed on the right.

12 ttl (I. r 2~ 4 : ~3 €1 ::::

1:3 -1:,5.-65- 13'3-52

14 -E.5-E.5-'3 t3-52

15 -E.5-E.5-'3'3-52

1Et -15.5-6.5-'3'9-52

17 - tl5 - t.5'-99 - 5 2

1::: -E.5-6t5~'39-S2

1'3 -E,5-E,S":"'3'3-52

2~) -E,5·-t,5- 139-52

21 -':.5-':.5-'3'3-52

22 -6.5-E.5-'3'3-52

2:3 -':,5-':.5-'3'3-52

24 -6.5-6.5-'3'3-52

1 :~: t'l 0. r 2 4 : 0(1 5

1 :~: -E,5-6,5-'3'3-52

14 -6.5-6,:::-'3'3-52

15 -E.5-':,:::-13'3-52

1 t. -EI5-':.:::-·3'~-52

17 -E.5-E.:::-·39-52

1::: -t.5-E,:::-·3'3-52

1'3 -E.5-E.5-·3·3-:i2

20 -15.5·-6.5-'3'3-52

21 -15.5-6.5-99-52

22 .-E,5-E15- t3'3--52 2:~: -65-65-'3'3-52

24 -E.5-E.5-99-52

Figure A-2l. Sample output, hourly medians.

50
[I C. r. e· ..... i t. ~·I t· ~., i s t

(1. r.:' e· r;'

1

~~ e· 1.1) i r, .::.1 i r. '3

Ar, .:l ..... c. r e· .,. r. a 1)':E. i

:::11 ::< 10.5 11 f).lF='e.r

r E' tJ. .::J .;l '7:'

1

c. ~·I IJ. rl .;1 e· r.:' e rl .::. 0 1I) r - I.,J t-I i c· ~·I c· ~·I .:t. tlr. e 1?

Figure A-22.

When all that is finished, this

question appears, allowing the

operator to return for further

editing.

The operator is also able to

link to another tape through

this question.

If the operator wants to have

the results plotted, the plot

routine is entered.

Hourly medians.

51
-as:

12+

MAR

Ct1 RN i!

-

,-... -

Figure A-23. Sample plot, hourly medians.

1+ 8~

APR 19~ 26+

SRMPLE HDURLY ME~IRNR5L FRDMTRCI

-Ei5:

-25:

-15:

-J5:

-'is:

L

l:D

o

..J -5:5:

111

a:
A-D Te:=.t, 12FE"b79

HP 47:31~jFi

A./ D Con !.) E" r t E' r

TE' :=. t

Add r E' :=. :=. :=. E' t iE ~3 E:

i ;::. :

C0 t·~ TPC! L S ~.J I TCHE::;

[i00011ti

p.~ 2-4: riLi f'·fG.nuG.l

:=. h 0 i.l.! :=. .j i) fl'! P E' r:=· g.:

h 0 1.1.1 t 0 :=. e '1:. for

r G. n'::3 E" =

# F: I n . .-. i

1/ f:'! : !

-'. J ..

1 I - 1 - I I I.:,! -I L - = - -: j:1 I

i .-I t:"

a:... := I

...: iJ f:·! -

I = -

i

- I! 1 l- t:" :.-:

-

: n -i I -

! II '-'

.of II Ii 1:-J - ,. Ii 1 - n 1 :-':'i = :.'

~:; E" t o. 1 1 ::;. 0. f:'! E'

for t h i:=. t E' :=. t II

PE·f'·IOI.)E· 0.11 input

.j IJ. Co k:=. fro fl', A..... D,

::; E' t C: AL :=. '.:.1 i t c h

t I) (1 i,,=' d c

Ad.j u s t. c h G. n ZE~~ [I

ThE' n CAL ::;. i.IJ i t C t-i

to -5 I:lde

Ad ..1 l) :=. t. c h o. n GAI t·~

Figure A-24.

Software for test is set up

for address switch setting

of 6.

Operator should set all the

jumpers to the proper range.

Operator is to set CAL switch

to volts and adjust to ZERO

setting on each channel.

Operator is to set CAL switch

to -5 and adjust the GAIN

setting for each channel.

Sample run, A-D test.

53
r---- SYSTIMCOMMANOS r OlSPLAY ,

8888 88

8888 88 ( QWtACTlR 1

EJ 8 EJ 8 ffi m ffi Q!J CI;J Q;J'

mQmmmmmillmm~G 8@800

00000080800C·-) 80088

§000000008Q® 88088

80008000c)c)CD8 Q8008

( ) 8 C·......·) LlJ8008

Figure A-25. Desk-top computer keyboard.

54
APPENDIX B. FLOWCHARTS

B.l. Tape Listing

Table B-1 shows the location of each of the principle

programs on the program tape. Note that all of these programs

are on track O. The second track (number 1) is reserved for

data.

B.2. Flowcharts

Table B-2 is a directory of flowcharts which appear in

this section. This section contains a continuous (selfreferencing) set of flowcharts. When another page of the

flowcharts is referenced, the new flowchart number' appears

in parentheses below the branching label. When a new program

is entered, the file containing it, and its title are shown

in the upper left corner of the page. The flowcharts are

shown in Figures B-1 through B-21. The decision tree for

"sortData" routine is shown in Figure B-22.

Table B-1. Program Locations on Track 0

Name

Auto Start

Initialization

RSL Test (Main Program)

Data Tape Directory

Data I (Statistical Analysis)

Data II (Hourly Medians)

Rayleigh (Plot)

Selection (Menu Program)

55

Tape

File #

o

2

3

5

6

7

8

9
Table B-2. Flowchart Directory

Name

Autoload

Initialization

RSL Main Program

Data File Directory

Data I (Statistical Analysis)

Data II (Hourly Medians)

Rayleigh (Plot)

Select (Menu Program)

sortData"

setclk"

readclk"

calibrate"

compute"

Quicklook"

comment"

record"

Listdata"

FILE 0 AUTOLOAD

Chart #

1

2

3-5

6

7-8

9,10

11

12

13

14

15

16

17

18

19

20

21

File #

o

2

3

5

6

7

8

9

FILE 0

AUTOLOAD

PROGRAM

LOAD

SPECIAL FUNCTION

KEYS

LOAD FILE 3

MAIN PROGRAM

Figure B-1. Flowchart 1, Autoload.

56
FILE 2 INITIALIZE

CLEAR HPIB,

ASSIGN

DEVICE NUMBERS

DIMENSION ARRAYS,

DEFINE FORMATS,

ASSIGN CONSTANTS

ENTER YEAR

SETS DIGITAL

LOCK UNDER

OPERATOR

ONTROL

PRINT DTG,

PRINT CHANNEL

INFORMATION

CHANNEL #1

ENTER

CHANNEL

STATUS

NTER A-D

NGE, &

IMUM

ALIBRATION LEVEL

ENTER dB STEP

SIZE AND

TRANSMITTER

DESIGNATOR

ENTER RECEIVE

STATION

DESIGNATOR

NEXT CHANNEL

ENTER TEST

TITLE

Figure B-2. Flowchart 2, initialization.

57
FILE 3 RSL TEST

CLEAR HPIB,

ASSIGN

DEVICE NUMBERS

DIMENSION ARRAYS,

ASSIGN FORMATS,

DEFINE CONSTANTS

PRINT DATA

TIME GROUP

(T[ 6])

LOAD DATA

FILE 0

YES PRINT

"NEW TEST"

Figure B-3. Flowchart 3, RSL main program housekeeping.

58
PRINTOUT TEST

TITLE AND

HEADER

START TIMER

AND ENABLE

INTERRUPTS

frO SUB'

'QUICK LOOK" (1 )

COMPUTES AND -<

PRINTS

QUICK-LOOK

NO NO

Figure B-4. Flowchart 4, RSL main program housekeeping.

59
'INT"I---"-

NO

INTERRUPTS

DISABLED

SET A-D TO'

PROPER CHANNEL

AND TRIGGER

CONVERSION

READ A-D

ADD 1 TO

CONVERSION

COUNT

NO NEXT

CHANNEL

Figure B-5. Flowchart 5, interrupt routine.

60
DATA FILE DIRECTORY

FILE 5

PRINT

"NULL FILE"

FILE •

NO

PRINT "FILE"

>- ..... FILE • "INVALID

DATA"

LOAD CURRENT

FILE AND

PRINT TIME OF

ITS RECORDING

PRINT OUT

CHANNEL SEND AND

RECEIVE STATIONS

READ FILE 0

PRINT TEST TITLE

bIMENSION ARRAYS

ASSIGN FORMATS,

SET CONSTANTS,

FILE 0 SET

NEXT FILE PRINT OPERATOR

COMMENTS

COUNT # OF

HOURS AND # OF

DATA POINTS FOR

FILE

PRINT THE

ABOVE OUT

Figure B-6. Flowchart 6, data file directory.

61
FILE 6

DIMENSION ARRAYS

DEFINE FORMATS

SET CONSTANTS

STATISTICAL DATA ANALYSIS

HOUR o

ENTER FIRST AND

LAST FILES TO

BE PROCESSED

DEFAULT = 0,63

NEXT FILE

__Y=E~S_~ PRINT "NULL FILE"

NO PRINT ~--_....... "INVALID DATA"

DISPLAY TIME

AT WHICH FILE

WAS RECORDED

NEXT HOUR

ADD EACH BIN

OF EACH CHANNEL

TO RUNNING

TOTAL

PRINT "FILE

COMPLETE"

YES

NO

Figure B-7. Flowchart 7, statistical data analysis.

62
PRINT OUT

HISTOGRAM OF

ALL DATA POINTS

FOR EACH CHANNEL

PRINT OUT

CUMULATIVE

DISTRIBUTION FOR

EACH CHANNEL

PRINT OUT THE

PERCENTAGES OF

POINTS THAT FELL

INTO EACH BIN

PRINT OUT THE

CUMULATIVE

PERCENTAGES

FOR EACH CHANNEL

RECORD

PROCESSED DATA

IN LAST FILE

ON TAPE

DOES

OPERATOR

ANT TO MAKE A

RAYLEIGH

PLOT?

Figure B-8. Flowchart 8, statistical data analysis (cont.).

63
FILE 7 HOURLY r.1EDIANS

DIMENSION ARRAYS

ASSIGN

CONSTANTS,

DEFINE FORMATS

PRINT HEADER

INFORMATION

ENTER NEXT

ENDING FILE

ENTER FIRST

ENDING FILE

(STARTS AT FILB Q

ENTER LAST HOUR

OF ENDING FILE

AND FIRST HOUR OF

NEXT STARTING

FILE

PROCESS MASKING

MATRIX

ENTER NEXT

STARTING FILE

YES

Figure B-9. Flowchart 9, hourly medians.

64
PRINT THIS

HOUR'S MEANS YES

FOR FOUR

CHANNELS

MAKE A

CUMULATIVE

ISTRIBUTION FOR

CURRENT HOUR

YES

PLOT MEANS

FOR THAT

CHANNEL

DRAW AND

LABEL SCALE

ENTER CHANNEL

NUMBER

YES

NO

STORE HOURLY

MEANS IN

PLOT MATRIX

YES

Figure B-10. Flowchart 10, "hourly medians (cant.).

65
FILE 8 RAYLEIGH GRAPH

IMENSION ARRAYS

SSIGN CONSTANTS

LOAD CHANNEL

INFORMATION AND

PROCESSED DATA

TURN DATA

INTO CUMULATIVE

DISTRIBUTION

DRAW ··AND LABEL

RAYLEIGH SCALE

ENTER

CHANNEL #

YES

PLOT FOR

THAT CHANNEL

Figure B-ll. Flowchart 11, Rayleigh plot.

66
FILE 9 MENU PROGRAM

PRINT OUT

PROGRAM

SELECTION LIST

ENTER PROGRAM

NUMBER

Figure B-12. Flowchart 12, select program.

67
"Sort Data"

Y s Bin Bin-4

for Bin 10?

Channel 1

Bin = 10

Bin Bin+4

Bin

Bin

Bin+2

Bin+2

No

No

Yes

Yes

Bin

Bin

Bin-2

Bin-2

Bin

Bin

Bin+l

Bin+l

No

No

Yes

Yes

Bin Bin-l

Add 1 to

Histogram for

given channel

and located

bin

ret Yes

channels?

No

Next channel

bin reset to

10

Figure B-13. Flowchart 13, "sortData".

68
GOSUB

-READCLKa

PRINT OUT

CURRENT

TIME

YES

HAVE

OPERATOR CONTINUE

AT PROPER MINUTE

WRITE TIME

TO CLOCK

WAIT FOR

CLOCK TO

SET

RETURN

Figure B-14. Flowchart 14, "setclk".

69
STORE TIlE

FeR DATA-I

Figure B-15. Flowchart 15, "readclk".

70
Yes

Enter channel

number

Have operator

set max. calib.

level

Yes Next calib.

level

*readAd, see "int" routine (p.S), all but the last 2 boxes.

Figure B-16. Flowchart 16, "calibrate".

71
Figure B-17.

Pack hour's data

into 12 hr. data

String-array

Zero out hourly

data matrix

Zero out conversion count

Flowchart 17, "compute".

72
"Quicklook"

Next Channel

No

No

Yes

Print

"** Quicklook"

Print

'Operator request'

Form

Cumulative

Distribution

Print out time

and the current

number of data

points

Print Channel

and levels RSL

exceeded 50, 90,

99, and 99.9% of

Figure B-18. Flowchart 18, "Quicklook".

73
Print

"** Comments"

Print out

the time

Enter and print

operator message

Message is

recorded with

data at 12:00

and 24:00

Figure B-19. Flowchart 19, "comment".

74
Figure B-20.

Record data in

next file, increment # of files

used

Print "Data to

File"

Print current

data file #

Print time of

recording

Clear data

string-array and

operator message

Yes

Rewind tape

Flash "Test

Done" and beep

Flowchart 20, "record".

75
Figure B-21.

Set formats

Print

"List of data"

Enter a channel #

Print the # of

points ill each

bi.n for that

channel

Flowchart 21, HListdata"I»

76
DECISIDN TREE rDR SDRT DATA 28 uAN 77

61N I TYPICRL DECISIDN NUM8ER

CALfS

LEVEL , 2 3 S SIN t

I -28 ~~ I

2 -31 2

3 -3Y v ./ 3

if -37 y

S -LIE v "'-'" ./ ~~ S

6 -Y3 A >< 6

7 -~6 / "'- v "'- ./ 7

B -Y9 ,

.1 '< B

9 -S2 /. '"

'" ~~ 9

. Ii1 -SS < >< IB

II -~B " v ./ II

12 -61 '" 12

13 -6~ " v /

'"

"- ~~ 13

IY -67 '< >< IY

IS -7M '" v ./ IS

16 -73 '< 16

17 -76 "'- ~~ 17

18 -79 "< 18

19 -92 19

28 (-99) ~2B

Figure B-22# Decision tree for "SortData".

77
APPENDIX C. LISTINGS

C.l. Special Function Keys

The special-function keys provide a powerful mechanism to

adapt the computer to a dedicated test since they are defined

in software. A plastic overlay template shown in Figure C-l is

placed on the computer to identify the keys for the operator.

The meaning of each of the keys is given in Table C-l. Since

the shift key can be used with each of the 12 keys, there are

a total of 24 functions which may be defined. The software for

each key is defined in Figure C-2 which is the special-function

key listing.

C.2. Variable Assignments

The variable assignments are -made during the software

design, to prevent conflict with other important values

during the execution of the test or subsequent data analysis.

The variable assignments used for most of the programs on

the RSL tape are shown in Table C-2.

C.3. Listings of the RSL Programs

Figure C-3 is a directory of the RSL tape for track O.

Track 1 is used only for data and, although marked, it contains

no data until after the RSL test. Track 0 contains programs

and the special-function keys shown in this Appendix. Programs

from the RSL tape are listed in the order in which they are

stored on tape. Following each listing is a cross reference

list, showing the lines each variable or label appears. These

listings are Figures C-4 through C-66.

78
( SPECIAL FUNCTIOI'JS RSL MONITOR/ANALYZER

s(NO I YES·IHisto ram IA-D MonitrlSe~ CloCk INo .Reading

£12 ftj £14 f15 f16 f17

fO f1 f2 £3 f4 f5

'l NO . I· YES ·IQuickL~ok IRECORD INewProg ICommnt/ST~

S( Continue lAD-No SovelRecolibrotl I ft-'m IWotts-+dBm 1

(

fIB fI9 f20 f2I f22 f23· J"

" f6 f7 f8 f9 flO fl1.,

l DTG disp I A-D· disp I RSL disp I I mi-+km I .degF-+C J

Figure C-l. Special-function template.

79
Key Stroke

fO

fl

f2

f3

f4

f5

f6

£7

f8

f9

flO

fll

Shift fO

Shift f1

Shift f2

Shift f3

Shift f4

Shfit f5

Shift f6

Shift f7

Shift f8

Shift f9

Shift flO

Shift fll

Table C-l.

Name

NO

YES

Quicklook

Record

New Prog

Conunent/Stop

DTG disp

A-D disp

RSL disp

mi-+km

NO

YES

ListData

Monitor AD

SetClock

Omit Header

Continue

AD no bin

Recalibrate

ft-+m

Watts-+dBm

Special Functions

Function

Continue with NO for an answer

Continue with YES for an answer

Print out an instant Quicklook

Record data to tape file

Erase present program and load

index

Enter an operator comment or stop

analysis

Normal date time display

Display AD converter voltages

Display RSL values in dBm

Convert miles to kilometers

Convert Farenheight to Celsius

Continue with NO for an answer

Continue with YES for an answer

Print out the current data

histogram

Used only as pretest set up

Used to set the clock prior to test

Suppress printing of Header

information

Display AD voltages without storing

Recalibrate during test

Convert feet to meters

Convert watts to dBm

80
FiJ n c· to. i ;) n KE' ./ :=.

f(i; ..... ~J

f 1 :.····1

f :~~; -::: :=. f '=3 1 ; :=. f '=j 5

f 6: -::: c f '::1 9 ; c f ;::3 1 2 ;

c.f '~7

f 7; -::: :=. f '::3 =j ; c f '::3 12 ;

c.f '::37

flO: -:::~Z;f::<d2~d:::.

p 2: I If;'! i 1 E' :=. = II , i

Jl 6 ~=1 =3 :3 -:::- Z ~:I k fl'! II

fIi: *-7.-Z;f::-::dl;d:::.

p Z I: (:j E"=j F = II:. 5

'* (Z- :~~ 2 ) ..... 9, II d e .::£

C: II

f 12: ..···(1

f 1 :~:: ..... 1

f 14: -::: :=. f '::3 1 1

f 15: -::: c (: ri to. I: (I'j 0 nit

orAD II

f 16: -:::- con t I I ::;. E" tel

i.· II

r·.

f 1::;: -::: con t II C (I n t i

nue

; cf'::3 7

f20; -:::-:::.f·::31;sf·::;i5;

:=. f .~ 6 d:::. p II P( E' P G. (

E' t::: F: E' C G. 1·i b r G, t

f 2 2; 7-~ -::- Z ; f >:: d 2 ; d:::.

F=; Z, .1: f E' e t = II = :.::

f 2 3 ; -::: -t Z ; f >:: d 2 ; d:=.

p Z I: ~.~ 0. t t:=. = II 3

[1 + i [1'*1(: .~ Z :: dBf;'! I:

Figure C-2. Special-function key listing.

81
Table C-2. Variable Assignments for RSL Test

VARIABLE ASSIGNMENTS FOR: RSL-3 & Related Programs Date: 6i6/77

Simple Dimensioned String

Let. Dim. Purpose Dim. Purpose

A 16 Constants for tape

B

C 4,20 Calibration levels

D 4,20 Hourly Data l2,16C Packed Data

E

F # Data Files Used 4 Frequencies in GHz

G

H

I Loop index

J II "

K " "

L " " (Interrupt

M " " " " 36 Months

N " " " "

0

P

Q Conversion count 4 Channel status

R 4 A/D data divisor 12 Receive stations

S 12 Send stations

T Time from clock 6 Yr,mo,dy,hr,mn,sc 16 DTG

U Current Year 5 Quicklook percents

V 50 Verbose string

W Temporary Storage 50 Temporary

X " " Temporary 16

Y " " " 4,20

Z " " 4,20 "

r-variables p-variables FLAGS

Ran. Purpose Ran. Purpose 0 Run a Quicklook

1-4 ~-D corrected sense Call subroutines 1 Requested Quicklook Ivoltaaes

5-8 ~-D voltages, Chan. 1-4 2 Done hourly tasks

9-12 !Bin No., Chan. 1-4 3 New program

13-16 II'rue RSL values, Chan.1-4 4 Plot output

5 Record last hour

6 Recalibrate

7 Display RSL values/Long

directory

8 Omit Header

9 Display A-D

10 Enter Comments/stop

11 List data

12 No data stored

13

14

15

82
---_._------------.,.

T IJ. peP r i n t 1 1.J G. n 7 9

TAPE P::;L-J

DG. t E' : 1 1 .J G. n (' :j

TrG.ck 0

F i 1 : Tp B'::,' t ..... Ai.) 0. 1

1 ~J .J o. n 7 '3

12~6 ll~~~~~~.·· .. 150Ci

t F l" i n 'to 1 1.J o. n 7 =3

1:~; 6 1. ;:; ? ::: ..... 2 0 ~~i ~)

d I) peG. 1 1 i .J G. n 7 9

Fiuto:::.t :23Feb?7

1. ::+ ; 6 4 :3 :3 ::: ./ 5 ~3 ~J [1

i nit ::,; E ::: Dec 7 ~::

1:5 412.···· 5~30

::; F=: E' t. f ij net kE' ./ :=.

2; 6 4462.···· 5~]~:1~J

init3 27DE'C?:::

:3; 6 5292.···· 5500

t LG. bel

null FilE'

1 i .J G. n7 9

0 .....

::+:~) 0 ..... 2ti0~J

r·i u 1 1 F i 1 E'

5:6 1660.···· 2600

27Dec7S

6: 6 32~:::iB.···· 4ti!~i[i

DO. t G. - I· :::: .J 0. n7 =3

Do. t o. I I 9 .J G. n 7 9

F~iJ.·i13D 27D:=·::.78

T (0. c k 1

F i 1 : TF=: E: ./ t ..... Ai.) 0. 1

~:i ; ~~i ~J ./ 2 i 3 6

t·~ u 1 1 F i 1 E'

1 : ~:i (1 ..... 2 1:::: 6

t·~ iJ 1 1 F i 1 E'

2 : ~J (1 ..... 2 1:::: 6

['4 1) 1 1 F i 1 E'

'3 : 6 4 :3 [i ..... 1 ~:i [; ~3

:=. E' 1 E' C P 7 t·~ 0 I.) 7 S

10:6 1158.···· 2~30Ci

kj I 1 1 L-"\.....-! :'..'1':'

: .. I _

r 1 1 '::'

Figure C-3. RSL tape index and directory.

83
0: "Autostart":prt "Autostart23Feb77"

1: rew;trk 0

2: Idk 1

3: 1dp 3

60 bytes 16778 check sum

File is automatically loaded

and run when power up condition

occurs. Loads special-fun~tion

keys. Loads and runs main" RSL"

Program.

00

Figure C-4. AutoStart listing.
5.0V"

"Calibration Default":-28+W13.X

spc ~prt "Channel info:"

spc :prt "Default values: ","A-D on Hi=

spe :prt "Radio parameters"

prt "Max cal(dBm)=",W,"dB step=",X

spe ;prt "Enter designator"

Figure C-5. Initialization listing, 1.

"enter all parameters":

9sb "line"

SPC iprt "RSL initialize"

spe ~prt "Enter parameters","as requested.":spc 2

-9999+Z ~ent "Enter Year?t., Z; if Z<1970 i Z+1900+ Z

if Z<O~jrnp -1

fxd O:prt "Year=",Z:Z-1900+U+T[l]+A[lS]

gsb "setclk"

gsb .. readc'lk II

prt "Date Time"

wr t 16.1 , T [3 ] , M$ [3 T [ 2] - 2, 3T [ 2] ] , T [ 1] , T [ 4 ] , T [ 5] , T [6 ]

0: "init3":prt "inital lSJan79"

1: clr 7~rem 7~11o 7~dev "a-d",706,N c l oc k",9,"timer",9

2: dim D$[12,160J,V$[SO],A[16],C[4,20],R[4],R$[12l,S$[12J,F[4]

3: d im D [ 4 , 20] , T [6] , U [ 5] , X [ 16] , Y [ 4 , 20 ] , Z [ 4 , 20 ]

4: dim M$[36],T$[16],W$[50],X$[12,160]

5: ina A:-99,C:-99,R:200,F:-999

6: "continue":

7 : fmt 8, 3c

8: fmt 7,13x,3c

9: fmt 6,f2.0,c3,f2.0,":",fz2.0,f6.0

fmt S,fl.O,lx,2f3.0,lx,2f3.0

fmt 3,"Cmnt Q ,lx,f2.0,c3,lx,f2.0,":",fz2.0

fmt 2,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0,5x,f3.0

fmt 1,f2.0ic3 ,f2.0,lx,f2.0,":",fz2.0,":",fz2.0 ItJanFebMarAprMayJunJ ulAugSepOctNovDec" +M $

spc 2

10:

11:

12 :

13:

14 :

15 :

16:

17:

18 :

19:

20 :

21 :

22:

23:

24:

25:

26 :

27 :

28:

29:

30 :

31:

32 :

33 :

34 :

co

U1
".8$ [J,J+2] i9to "nex t n

"+R$[I,I+2]ijmp 2

spc

prt "Recv designator="

ent "This Station designator(3char)?",W$

for 1=1 to 10 by 3

cap(W$[1,3]).R$[I,I+2]

next 1

for 1=1 to 10 by 3

(I-l)/3+1+Jiif A[8+J]=07"

next I

wrt 16.8,R$[1,3]," for all up";prt "channels.";spc

35: prt "as 3 letter name";spc

36:

37: for 1=1 to 4

38: fxd 079Sb "line"

39: prt "Channel 1",I7SpC 2

40: -9999+Z7ent "Is this channel to be used?"~Z7if ZiO and Zfl7jmp 0

41: Z+A[8+I]

42: 3(I-l)+1+J

43: if Z=07prt "Channel down"7"

44: prt "Channel data:"

45: O+Zient "Is A-D range OK? (YES/NO)",Ziif Zt1i9Sb "AOrange"

46: W+A[I] 7ent "Max calibration level(dBm)=?",Ziif not flg13;int(Z)+A[I]

47: if abs(A[I]+45»25ibeepidsp "Invalid range"7wait lSOO;jmp-1

48: X+A[4+I];ent "dB step size=?",Z;if not flg13;int(Z)+A[4+I]

49: if abs(A[I+4]-3»2;beep7dsp "Invalid range";wait 1500;jmp -1

50: prt "Max cal (dBm) =",A [I] , "dB step:" ,A[4+I]

51: prt "Xmit designator="

52: ent "Transmit designator(3char)?",S$[J,J+2]

53: cap(S$)+S$

54: wrt 16.7,S$[J,J+2]

55: ent "Enter Transmiter Freq (GHz) = ?",F[I]iif flg137jmp 0

56: fxd 3;prt "Freq(GHz)=",F[I]

57:+"next":next I

58: gab "line"

59:

60:

61:

62:

63:

64 :

65:

66:

67:

68:

69:

Figure C-6. Initialization listing, 2.
70: gsb "line"

71 :

72: "calibrate":

73:+"c":i£ flg6:prt " *************","**ReCalibrate**" 74: gsb "Calibrate"

75: O+Z

76: for 1=0 to 15

77: 2 AI*fl,gI+Z+Z

78: nex tI

79: Z+A[131:if flg6:gto "record to file 0"

80: .. ve r bos e f1 :

81: prt "Header Title","(or comments)="

82: ent "Enter up to 50 characters",V$

83: pet V$:spc

84: gsb "line"

85:

86:+"record to file 0":

87: pet "Ready to record"

00 88: rew:trk l:fdf O:idf X[l] ,X[2],X[3],X[4]"X[5]

89: if X[31>O:prt "+.Data in filel":ent "Erase old Calibr.?",Z:if ztl:gto "e"

90: spe 2 :gsb Itreadclk"

91: trk l:ref O,V$,A[*l ,C[·] ,R[·] ,R$,S$,F[*l :rew:trk O:prt ·'Data to file 0"

9 2 : spc : wr t 16. 1 , T [ 3] , M$ [ 3T [ 2] - 2 , 3T [ 2] ] , T [1] , T [ 4] , T [ 5 ] , T ( 6 ]

93: gsb "line"

94: sfg 8:i£ £196:c£g 6:C£9 8

95:

96: dsp "Load main program":trk O:ldf 3,0,5

97:

98:+"line":prt "----------------":ret

99 :

100: +" readAD" :

101: fmt 4,c1,f1.0,f1.0,02

102: Q+l+Q:l+M

103: for L=l to 4

Figure C-7. Initialization listing, 3.
104: wrt "a-d.4","H",M,M,"AJ"

105: 2*M+M

106: ior(shf(rdb(706) ,-8) ,rdb(706) )/R[L]+X[L]

107 : nex t L

1 08 : wr t It a- d It , "H It ; re t

109 :

lI0:+"Calibrate":

Ill:

112 :

113:

114:

115 :

116:

117:

118 :

119:

120:

121 :

00 122:

00 123:

124:

125:

126:

127 :

128 :

129:

130 :

131:+

beep; fxd 0

ent "Enter Channel t for calibration",!

if I<l;dsp "Calibration done";wait 2000;gto 131

if A[8+r]=O:dsp "Channel",I,"down, renter Chan #":beep:wait 2000:jrnp -2

prt "Calibrate Chan",I:fxd 3:prt "Freq(GHz)=",F[I]

for J=l to 19

dsp "Se t le've 1=", A [.1] -A [4 +1 ] * (J-l) +Z ,"then ' CONTINUE' If ; stp

9sb "readAD"

X[I]+C[I,J]

frot 6,f3.0,3x,f7.3,3x

wr t 16.6, Z ,X [I]

next J

spc

if C[I,1]<C[I,19] iif A[8+I]fO;-!+A[8+I]iprt "CalibrationCurve","inverted"

for J=l to 19

C[I,J]*A[I+8]+C[I,J]

next J

gsb "line"

gto "Calibrate'·

cfg 3 ;ret

132:

133:+"readc1k":fxd 0

134: wrt "clock","R":red "clock",T[2],T[3],T[4],T[S],T[6]

135: «(T[2]*lOO+T[3])*lOO+T[4])*lOO+T[5])*100+T[6]+T

Figure C-8. Initialization listing, 4~
136:

137:

138 :

T+A[ 16]

ret

00

\..0

139:

140 :."ADrange 'II :

141: fmt 9,2x,2c

142: "".W$ient "Enter range(Lo,Me,Hi,HH) ?··,W$;cap(W$).W$

143: if W$="LO";800.Z;gto "an

144: if W$="ME":300+Z:gto "a"

145: if W$="HI";200+Zi9to "an

146: if W$="HH";lOO+Z:gto "aU

147: dsp "Invalid A-D range":beep:wait 2000:jrnp -5

148:."a":Z.R[I):wrt 16.9,"A-D range= ",W$

149: ret

150:

151 : ... Its etc 1 k " :

152: gsb "readclk"

153: wrt 16.1,T[3] ,M$(3T[2]-2,3T[2]],T[1] ,T[4],T[S],T(6]

154: ent" Is time on clock correct?", X: if X;grto "T I

•

155: beepidsp i·CONTINUE to keep value unchanged";wait 2000

156: ent "Year (2 digits) = ?",U

157: ent "Enter Month",T[2]

158: ent "Enter Day"T[3] 159: ent "Enter Hour',T[4]

160: ent "Enter Minute",T[Sl

161: dsp "press 'CONTINUE' at time hack";stp

162: fmt ,c3,5fz2.0

163: wrt "c1ock","Set",T[2],T[3],T[4],T[5],O

164: dsp "Please wait for Clock to set"

165: wait 30000;wait 20000

166:."T":ret

167:

Figure C-9. Initialization listing, 5.
168: "monitorAO":

169: 9sb "readAD"

170: fxd 3:dsp "dcV=",X[l],X[2],X[3],X[4]

171: jmp -3

172:

173: end

o

4466 bytes 18735 check sum

Figure C-lO. Initialization listing, 6.
RSL Initialization Program

Variab1~ Cross-Reference, Sheet 1

A

5

C

5

F

5

I

37 39 41 42 46 46 47 48 48 49 50 50

55 56 57 63 64 64 65 66 67· 67 67 68

76 77 77 78 112 113 114 114 115 115 117 117

120 120 122 125 125 125 125 127 127 127 148

J

42 43 43 52 52 54 54 67 67 116 117 120

123 126 127 127 128

L

103 106 106 107

M

102 104 104 105 105

Q

102 102

R

5

T

135 137

U

23 156

Figure C-ll. Initialization Xref, 1.

91
RSL Initialization Program

Variable Cross-Reference, Sheet 2

W

29 33 46

X

29 33 48 154 154

Z

21 21 21 21 21 22 23 23 40 40 40 40

41 43 45 4S 45 46 46 48 48 75 77 77

79 89 89 117 122 143 144 145 146 148

A[ .

2 23 41 46 46 47 48 48 49 50 50 67

79 91 114 117 117 125 125 127 137

C[

2 91 120 125 125 121 127

O[

3

F[

2 55 56 91 115

R[

2 91 106 148

T[

3 23 27 21 27 21 27 27 27 92 92 92

92 92 92 92 134 134 134 134 134 135 135 135

135 135 153 153 153 153 153 153 153 157 158 159

160 163 163 163 163

U[

3

Figure C-l2. Initialization Xref, 2.

92
RSL Initialization Program

Variable Cross-Reference, Sheet 3

93
RSL Initialization Program

Variable Cross-Reference, Sheet 4

"line"

18 38 58 70 84 93 129

Itsetclk II

24

IIreadclk"

25 90 152

"nex ttl

43

"ADrang e"

45

"Calibra te II

74 130

"record to file 0"

79

"c"

89

"readAD"

118 169

It aft

143 144 145 146

"Til

154

cfg

94 94 131

Figure C-14. Initialization Xref, 4.

94
RSL Initialization Program

Variable Cross-Reference, Sheet 5

sfg

94

fIg

46 48 55 73 77 79 94

Figure C-15. Initialization Xref, 5.

95
trk l;rew;fdf Oiidf A,B,C,D;if Ct930;prt "New Test";trk O;rew:ldp 2

trk 1;1df O,V$,A[*J ,C[*] ,R[*l ,R$,S$,F[*l

A[15]+T[1];A[16]+Y

prt V$;spc

__ " 1 2 3 4---- -- --

for 1=1 to 62

if flg3;cfg 3;trk O;ldp 9

trk l;fdf I;idf J,K,L,M;dsp "Read data file 1",1

if L#2136;if I>1;ldf I-l+F,O$,V$,A[*]:jmp 3

if Lt2136;if I=l;jrnp 2

next I

if Itl;if V$#"";prt V$;spc

if not flg8:gto "continue"

frot 9,c4,4f3.0

prt "Func- Channel ition

0: "RunRSLn:prt "RunRSL-3 27Dec78"

1: clr 7;rem 7;110 7;dev "a-d",706,"clock",9,"timer",9

2: dim D$[12,160],V$[50],A[16],C[4,20],R[4],R$[12],S$[12],F[4]

3: dim D[4,20],T[6],U[5],X[16],Y[4,20],Z[4,20]

4: dim M$(36],T$[16],W$[50],X$[12,160],P$[300]

5: .. u fmt":

6 : fmt 1, f 2.0 , c3 , f 2. 0, lx, f 2.0 , n : If , fz 2. 0, It : ",fz 2. 0

7: fmt 2,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0,f8.0

8: frot 3,f2.0,c3,lx,f2.0,":",fz2.0

9: frot 5,fl.O,lx,2f3.0,lx,2f3.0

10: fmt 6,f2.0,c3,f2.0,":",fz2.0,f6.0

11: frot 7,f2.0,c3,3x,f2.0,":",fz2.0,":",fz2.0

12 : "JanFebMarAprMayJunJ ulAugSepOctNovDec'I+M$

13: 50+U[1] ;90+U[2] ;99+U[3] ;99.9+U[4]

14: wrt "clock", "AB":9sb "readclk"

15: wrt 16.7,T[3],M$[3T[2]-2,3T[2]],T[4] ,T[5],T[61

16 : dsp "To select prog ram: SPEC FUNCT f4 fI

17:

18:

19 :

20:

21:

22:

23:

24:

25:

26 :

27 :

28 :

29:

30 :

31:

32 :

33:

34:

\!)

0'

Figure C~16. RSL test listing, 1.
wrt 16.9,"ref ",A[1],A[2],A[3],A[4]

wrt 16.9,"step",A[5],A[6],A[7],A[8]

frot 9,c4,c12

wrt 16.9,"Xmit",S$

wrt 16.9,"rec ",R$ n a-d "+W$

for 1=1 to 4

if A[8+I]=1:W$&"+"+W$

if A[8+I]=O:W$&" "+W$

if A[I+8]=-1:W$&"-"+W$

if R[I]=lOO:W$&"HH"+W$

if R[I]=200:W$&"HI"+W$

if R[I]=300:W$&"ME"+W$

if R[I]=800:W$&"LO"+W$

next I

prt W$

gsb "line"

prt "Calibration at:"

6+K: Y+X

lOOfrc(XjlOO)+T[K];int(XjlOO)+Xijmp (K-l+K)=l

wr t 16.1, T [3 ] , M$ [ 3T [ 2 ] - 2 , 3T [ 2 ] ] , T [1] , T [ 4 ] , T [ 5] , T [6 ]

spe ;9Sb "line"

spe :gsb "header"

spe ;9Sb "line"

spe ;cfg 8

\.0

'-.1

35:

36:

37:

38 :

39 :

40:

41 :

42 :

43:

44:

45:

46 :

47 :

48:

49:

50:

51:

52:

53:

54:

55:

56:

57 :

58 :

59:

60:

61:

6 2 : + It co ntinue If :

63 : e ir 9, 0

64 : wr t 9, tI A, U1 =01 , U1 P 250 /U1 GII

65: oni 9,"int"

66: eir 9

67:

68:+"monitor":eir 9

69: gsb "readclk"

Figure C-17. RSL test listing, 2.
\..0

co

70: if f1g2:jmp 3

71: if T[4]mod12=O and T[5]=O;sfg 5

72 : if T [ 51=0 : sfg 1

73: if T[Sl#O:cfg 2

74: if flg7:gto "rsl"

75: if flg9:jmp 2

76 : wr t • 2 , T [3 ] , M$ [ 3 T [ 2 ] - 2, 3T [ 2] ] ,T [ 1] ,T [ 4 ] , T [ 5 J, T [ 6] , Q; j mp 2

77 : fxd 3 idsp "dcV" &char (Qmod2* 29+32), r5, r6, r7 , r8

78: if not flg7:gto "cent"

79:+"rs1":for 1=1 to 4

80: r(I+8)+J:I+12+K;if J<=l:A[I]+rK:jmp 3

81: A[I]-(J-l)*A[I+4]+rK

82: if J<20:rK+(rI-C[I,J])*A[I+4]/C[I,J-l]+rK

83: next I

84: fxd O;dsp nRSL(dBm) "&char(Qrnod2*29+32),r13,r14,r15,r16

85:+"cont":if flgO:gsb "Quiklook"

86: if flgl:gsb "compute"

87: if flg5;gsb "record"

88: if flglO:gsb "comment"

89: if flg11:gsb "listData"

90: if flg6;O+X:cfg 6;ent "Recalibrate?",X:if X;sfg 6:trk O:ldf 2,0,69

91: if flg3:cfg 3;O.X:ent "Stop RSL & load new Program?",X;if X:trk O:ldp 9

92: gto "monitor"

93:

94: "in t" :

95: wrt 9,UT":if not rdb(9) :jmp 3

96: gsb "readAD"

97: if not flg12:gsb "sortData"

98: eir 9;iret

99 :

100: +" readAD" :

101: fmt 4,cl,fl.O,fl.O,c2

102: l+M

Figure C-18. RSL test listing, 3.
103: for L=l to 4

104: wrt "a-d.4","H",M,M,"AJ"

105: 2*M+M

106: (ior(shf(rdb(706),-8),rdb(706»/R[L]+r(L+4»*A[8+L]+rL

107: next L

108: wrt "a-d","H"

109: ret

110 :

III:."sortData":

112: 0+1+0

113: for L=1 to 4

114: 10+N;if A[8+L]=O;jmp 7

115: N+sgn(C[L,N]-rL)*4+N

116: N+sgn(C[L,N]-rL)*2+N

117: N+sgn(C[L',N]-rL)*2+N

118: N+sgn(C[L,N]-rL)*I+N

119: N+(C[L,N]>rL)+N+r(L+8)

120: D[L,N]+l+D[L,N]

121: nex t L

122: ret

123:

124: +"compute":

125: gsb "Quiklook"

126: for 1=0 to 3

127: for J=1 to 20

128: fti (Y[I+l,J])+D$[(T[4]-1)mod12+1,40I+2J-l,40I+2J]

129: nex t J

130: next I

131: cfg 1;sf9 2;ret

132 :

133:+"Quiklook":

134: prt 1t***QUICK LOOK***"

Figure C-l9. RSL test listing, 4.
135: if f1g01prt "Operator request":ara D+Z:jmp 2

136: ara O+Z:ara D+Y;ina D:O+QifXd 0

137: for 1=1 to 4

138: for J=l to 19

139: Z[I,J]+Z[I,J+1]+Z[I,J+l]

140: nex t J

141: nex t 1

142: max ( Z [1, 20] , Z [ 2, 20] , Z [ 3 , 20] , Z [4 ,20 ] ).... Z

143: wrt 16.6,T[3],M$[3T[2]-2,3T[2]],T[4] ,T[5],Z

144: for 1=1 to 4

145: l+K:ina X:-99

146: if A[8+I]=O:fmt 9,f1.0:wrt 16.9,I:gto "A"

147: for J=l to 19

148: if Z[I,J]>=U[K]*Z/100:A[I]-(J-l)*A[I+4]+X[K]:if (K+l+K)<S:jmp 0

149: if K>4:jrnp 2

150 : nex t J

151: wrt 16.5,I,X[1],X[2],X[3],X[4]

152 : + • A.. : nex t I

6 153: cfg O:ret

o

154:

155:+"cornment":spc

156: prt "***Comments•••• "

157: wrt 16.3,T[3],M${JT[2]-2,3T[2]],T[4],T[5)

158: dsp "Data acquisition suspended":wait 2000

159: ent "Enter operator message",V$

160: pet V$

161: cfg lO:ret

162:

163:+"readc1k":fxd 0

164: wrt "clock","R":red "cl-o'ck",T[2),T[3],T[4),T[5],T[6]

165: «(T[2]*lOO+T(3])*lOO+T[4])*100+T[S])*lOO+T[6]+T

166:

167:

Figure C-20. RSL test listing, 5.
168: T+A[16]

169 : ret

170:

171 : +" record":

172: fxd O;eir 9,0

173: trk I~rcf F+1+A[14],D$,V$,A[*]~F+1.F

174: prt "*Data to fiIe",F

175: wet 16.3,T[3],M$[3T[2]-2,3T[2]],T[4],T[S]

176: n".V$;trk 0

177: for 1=1 to 12;""+D$[I];next I

178: if F<62;jrnp 3

179: rew;trk 0

180: dsp" Remove tape-RSL test DOt~E";beep;wait 500;dsp ;wait 500:jmp 0

181: cfg 5;5fg 2;if not flg6;eir 9

182 : ret

183 :

184:

185:

1-1 186:

187 :

188:

189:

190:

191:

192:

193 :

194 :

195:

196:

197:

198 :

199:

200:

"setclk" :

gab "readc1k"

wr t 16.1, T [3 ] , M$ [ 3T [ 2] - 2, 3T [ 2 ] ] , T [1] , T [4 ] , T [ 5] , T [6 ]

wr t "clock", "AB"

ent "ls time on clock correct?" ,X; if X;gto "T"

beepidsp "CONTINUE to keep values same":wait 2000

ent "Year (2 digits) = 1",U:1f not flg13:U+T[1]+A[lS]

ent "Enter Montfi",T[2]

ent "Enter Day",T[3]

ent "Enter Hour",T[4]

ent "Enter Minute",T [5]

dsp "press 'CONTINUE' at time hack":stp

frot ,c3,5fz2.0

wrt ."c1ock","Set",T[2] ,T[3] ,T[4] ,T[5],0

dsp "Please wait while clock sets"

wait 30000:wait 20000

dsp "push RUN"

Figure C-21. RSL test listing, 6.
201:+"T":gto "fmt";stp

202:

203: "monitorAD":

204 : 9S b t1 readADtf

2 0 5 : f xd 3;d s p n d cV=.. , r 1, r 2 , r 3 , r 4

206 : jmp -3

207 :

208: .."listData":

209: fmt 9,f2.0,2x,f3.0,f8.0

210: fxd O;prt "***List Data***"

211: ent "Which Channe1?",J:prt "Bin dBm Chan#",J

212: for 1=1 to 20

213: A[J]-A[J+4]*(I-l)+Z:if I=20:-99+Z

214: wrt 16.9,I,Z,D(J,I]

215: nex t 1

216: spe

217: cfg ll;ret .......

o

I\.) 218:

219:+"header":

220: prt "Quick look form:"

221: prt "Channel i","1 % of time"

222: prt II I shown dBm"

223: prt "I exceeded:"

224: prt "I 50 90 99 99.9"

225: prt"- -- -- -- ----","1 -37-43 -46-55"

226 : ret

227:

228:+"1ine":prt "----------------";ret

229:

230 : end

5292 bytes 6347 check sum

Figure C-22. RSL test listing, 7.
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 1

Figure C-23. RSL test Xref, 1.

103
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 2

115 116 116 117 117 118 118 119 119 119 120 120

121

M

25 102 104 104 105 105

N

114 115 115 115 116 116 116 117 117 117 118 118

118 119 119 119 120 120

Q

76 77 84 112 112 136

T

165 168

U

190 190

X

54 55 55 55 90 90 90 91 91 91 145 188

188

y

20 54 136

Z

135 136 142 143 148 213 213 214

A[

2 19 20 20 26 35 35 35 35 36 36 36

36 43 44 45 80 81 81 82 106 114 146 148

Figure C-24. RSL test Xref, 2.

104
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 3

148 168 173 173 190 213 213

C[

2 19 82 82 115 116 117 118 119

D[

3 120 120 214

F(

2 19

R(

2 19 46 47 48 49 106

T[

3 15 15 15 15 15 15 20 55 56 56 56

56 56 56 56 71 71 72 73 76 76 76 76

76 76 76 128 143 143 143 143 143 157 157 157

157 157 164 164 164 164 164 165 165 165 165 165 175 175 175 175 175 186 186 186 186 186 186 186

190 191 192 193 194 197 197 197 197

Ur

3 13 13 13 13 148

X[

3 148 151 151 151 151

Y[

3 128

Z[

3 139 139 139 142 142 142 142 148

0$

2 26 128 173 177

Figure C-25. RSL test Xref, 3.

105
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 4

M$

4 12 15 56 76 143 157 175 186

P$

4

R$

2 19 39

S$

2 19 38

T$

4

V$

2 19 21 26 30 30 159 160 173 176

W$

4 40 43 43 44 44 45 45 46 46 47 47

48 48 49 49 51

X$

4

r1

205

r2

205

r3

205

r4

205

Figure C-26. RSL test Xref, 4.

106
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 5

r5

77

r6

77

r7

77

r8

77

rl3

84

r14

84

r15

84

r16

84

Itreadc lk"

14 69 185

"continue"

31

"line"

52 57 59

"header"

58

Figure C-27. RSL test Xref, 5.

107
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 6

"ral"

74

"cont"

78

"Quik1ook"

85 125

"compute"

86

IIrecord"

87

"comment"

88

"1istData"

89

"monitor"

92

ItreadADH

96 204

IIsortData"

97

"A II

146

"T H

188

Figure C-28. RSL test Xref, 6.

108
RSL Data Acquisition Program

Variable Cross-Reference, Sheet 7

"fmt201

cfg

24 60 73 90 91 131 153 161 181 217

sfg

71 72 90 131 181

fIg

24 31 70 74 75 78 85 86 87 88 89 90

91 97 135 181 190

Figure C-29. RSL test Xref, 7.

109
I-'

I-'

o

0: "TapeDi":prt "TapeDirec27Dec78"

1: dim D$[12,160] ,V$[SO] ,A[16] ,C[4,20] ,R[4] ,R$[12] ,S$[12] ,F[4]

2: dim D[4,20],T[6],U[5],X[16],Z[4,20]

3: dim M$f36],T$[16],W$[SO],X$(12,160]

4: "continue":fxd 0

5: fmt 8,fl.O,x,c3,c2,c3,f6.2

6: fmt 7,"Fi1e",f3.0

7: fmt 6,f2.0,c3,f2.0,":",fz2.0,f6.0

8: fmt S,fl.O,lx,2f3.0,lx,2f3.0

9: fmt 3,f2.0,2x,f2.0,"hr",fS.O

10: fmt 2,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0,5x,f3.0

11: fmt 1,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,H:",fz2.0,· ",e3

12: "JanFebMarAprMayJunJuLAugSepOctNovDec"+M$ 13:

14: ent "Long direetory?",x·,if X,sfg 7

15: spc ,prt II RSL data tape", "Directory trk 1"

16:

1 7 : tr k 1 ;rew

18: for 1=0 to 69

19: gsb "line"

20 : dsp"Reading file tit, I

21: trk l:fdf I:idf N,T,B,A

22: if A=O or flglO;gto "e"

23: if B<800·prt "Null file" I·gto "e"

24: if 1=0;1d£ I,V$,A(*] ,C[*1 ,R.[*],R$,S$,F[*]

25: if 1#0 and B=930;prt "file ",I,"Calibration data":gto ncR

26: if ItO:if Bt2136:prt "file ",I,"Invalid data":gto "e"

27: if IIO:ldf I,D$,V$,A[*]

28: 6+K;A[16]+X:A[lS]+T[I]

29: lOOfrc(X/lOO)+T[K]:int(X/IOO)+X:jmp (K-l+K)=l

30: wrt 16.7,1

31: wrt 16.1,T[3],M$[3T[2]-2,3T[2]],T[l] ,T[4],T[5],T[6]

32: if I=O;gsb "zero"

33: if f1g7=0 or ~=O:gto "en

34: prt V$

Figure C-30. Tape directory listing, 1.
35: ina X

3 6 : for J =0 to 3

37: if A [J+9] =0 ;gto "J"

38: for L=1 to 12

39: dsp "Processing file",I,", Ch",J+l

40: for K=l to 20

41: if D$[L,1,160]="";9to "L"

42: itf(D$[L,40J+2K-l,40J+2K)+Z

43: Z+X[J+l]+X[J+l]

44: nex t K

45: X[J+l1]+1+X[J+11]

46 :+"L": nex t L

47 :+"J": next J

48: for L=l to 4

49: if A[8+LJ=O:jmp 2

50: wrt 16.3,L,X[L+IO],X[Ll

51 : nex t L

52 :+"c": nex t I

53:+"e":prt" Rend offiles";spc 3

t:: 54: dsp "Rewinding";trk O;rew

55: dsp "Done";ldp 9

56:+"line":prt "--~-------__---_H;ret

57:

58:+"zero":

59: prt V$

60 : if not flg7 i jmp 5

61: spe iprt "I Xmit Recv GHz"

62: for M=l to 4

63: if R$[3M-2+Z,3M]#" ":wrt 16.8,M,S$[Z,Z+2],"to",R$[Z,Z+2],F[M]

64: next M

65: ret

66:

67: end

1660 bytes 8694 check sum

Figure C-31. Tape directory listing, 2
Data File Directory Program

Variable Cross-Reference, Sheet 1

A

21 22

B

21 23 25 26

I

18 20 21 23 24 24 25 25 26 26 27 27

30 32 33 39 52

J

36 37 39 42 42 43 43 45 45 47

K

28 29 29 29 40 42 42 44

L

38 41 42 46 48 49 50 50 50 51

M

62 63 63 63 63 64

N

21

T

21

X

14 14 28 29 29 29 35

Z

42 43 63 63 63 63 63

A[

1 24 27 28 28 37 49

Figure C-32. Tape directory Xref, 1.

112
Data File Directory Program

Variable Cross-Reference, Sheet 2

C[

1 24

D[

2

F[

1 24 63

R[

1 24

T[

2 28 29 31 31 31 ' 31 31 31 31

U[

2

X[

2 43 43 45 45 50 50

Z[

2

D$

1 27 41 42

M$

3 12 31

R$

1 24 63 63

S$

1 24 63

Figure C-33. Tape directory Xref, 2.

113
Data File Directory Program

Variable Cross-Reference, Sheet 3

T$

3

V$

1 24 27 34 59

W$

3

X$

3

"line"

19

"e"

22

"c"

23 25 26 33

"zero·

32

"J.

37

"L"

41

sfg

14

fIg

22 33 60

Figure C-34. Tape directory Xref, 3.

114
0: "Data-I":prt "Data-I 3Jan79"

1: dim D$·-[12,160] ,V$[SO] ,A[16] ,C[4,20] ,R[4] ,R$[12] ,8$[12] ,F[4]

2 : dim D [ 4 ,20] , T [ 6 ] , U [ 5] , X [ 16] , Z [4 ,20 ]

3: dim M$(36],T$[16],W$[50],X$[12,160]

4:

5: "continue":fxd 0

6: fmt 8,f2.0,e3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0,2x,c8

7: fmt 7,f2.0,f4.0,2x,f8.0

8: fmt S,f2.0,f4.0,lx,f8.4,"%"

9: fmt 4,"Ch ",fl.O,2x,e3,· to ",e3

10: fmt 3,"File ",f2.0," no hr ",£2.0

11: frot 2,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0

12: fmt 1,"File ",f2.0,· complete"

13: "think "+W$

14: -1+r2

15: "JanFebMarAprMayJunJu1AugSepOctNovDec"+M$

16:

17: prt "press £5 to stop analysis.":ent "Press 'CONTINUE' now",X

18 : tr k 1: rew

19: ent "Do you wish to edit fi1es",X

20: if X=O;O+rl:62+r2:jmp 3

21:+"edit":ent "Starting file?t',rl:if rl<=r2:jmp 0

22: ent "Ending file?",r2:if r2<rl:jmp 0

23: for I=r1 to r2

24: trk lifdf Iiidf N,T,B,A

25: if flglO:gto "0"

26: if A=Oi9to "en

27: if B<930;prt "Null filen,I:P+l+P:gto "e"

28: if I=O;ldf I,V$,A[*l ,C[*] ,R[*),R$,S$,F[*)

29: if IiO and Bf2l36;prt "file ",r,"Invalid data":gto "e"

30: if ItO:ldf I,D$,V$,A[*]

31: 6+K:A[l6]+X;A[l5]+T[l]

32: lOOfrc(X/IOO)+T[K);int(X/IOO)+Xijmp (K-!+K)=l

33: if T[4]=:O or T[41>12;sfg 5

34 : wr t • 2 , T [ 3 ] , M$ [3T [ 2] -2 , 3T [ 2) ) , T [1] , T [4 ] , T (5) , T (6 )

Figure C-35. Data I listing, 1.
for L=1 to 12

for J=O to 3

8 (Jrnod2 +1) +r 3

wr t . 8 , T [ 3] , M$ [ 3T [ 2] - 2, 3T [ 2] ] , T [1] , T [ 4 ] , T [ 5] , T [ 6] , W$ [ r 3 -7 , r 3 ]

for K=l to 20

if D$[L,1,160]= .... ;sfg 4;wrt 16.3,I,L+12f1g5;gto "d"

D[J+l,K]+itf(D$[L,40J+2K-l,40J+2K])+D[J+l,K]

next K

next J

next L

cfg 5

35: if I=O;gto "c"

36:

37:

38 :

39:

40:

41:

42:

43:

44:

45:

46:+"d":

47 :

48:

49: if flg4;cfg 4;jrnp 2

50: wrt 16.1,1

51:+"c": if P<3:next I

52: if I>=62:prt "end of files";gto "Hist"

53:+"D":ent "Done with editing?",X:if X=Oigto "edit"

54:

55:+"Hist":

56: trk l:fdf 63:idf X,X,X:if X#O:dsp "Data in file 63":stp

57: ifbit(7,rds(1»=1:dsp "Tape is write protected":stp

58: trk l:rcf 63,D[*],T[*];trk O:rew

59: ent "Histogram?",X: if X=O:gto "Cum"

60: spc 3;prt "Histogram of alldata points":spc :9sb "Bin"

61: for 1=1 to 4

62: if A[I+8]=O;jrnp 7

63: spe :wrt 16.4,I,S$[3I-~,3I],R$[31-2,3I]

64: gsb "line"

65: for J=l to 19

66: wrt 16.7,J,A[I]-(J-l)*A[I+4],D[I,J]

67: next J

68: wrt 16.7,20,-99,D[1,20]

69 : nex t I

J-l

I-'

C1'

Figure C-36. Data I listing, 2.
gsb "line"

ent "Percentages of data points?",X;if X=O:gto "cum%"

spc 3;prt "Percent RSL datapoints at level"

for 1=1 to 4

if A[I+8]=0;jrnp 7

spc ;wrt l6.4,I,S$[31-2,3I],R$[31-2,3I]

gsb "line"

for J=1 to 19

wrt 16.5,J,A[I]-(J-l)*A[I+4],D[I,J]/Z[I,20]*lOO

next J

wrt 16.5,20,-99,D[I,20]/Z[1,20]*lOO

next I

gsb "line"

70:

71 :

72:+"Cum":ent "Print cumulative distribution?",X;if X;sfg 5

73: if flg5;spc 3;prt "Cumulative distribution";spc ;gsb "Bin"

74: ara O+Z

75: for 1=1 to 4

76: if A[I+8]=O:jrnp 8

77: if f1g5;spc ;wrt 16.4,I,S$[31-2,3I],R$[31-2,3I]

78: if f1g5;gsb "line"

79: for J=l to ~9

80: Z[I,J+l]+Z[I,J]+Z[I,J+l]

81: if flg5;wrt 16.7,J,A[I]-(J-l)*A[I+4],Z[I,J]

82: next J

83: if flg5;wrt l6.7,20,-99,Z[I,20]

84: next I

85: gsb "line"

86 :

87 :

t--J 88:

r-s 89:

90:

91:

92:

93:

94 :

95:

96:

97 :

98 :

99:

100:+"cum%":ent "Cumulative Percentages?",X:if X=O;gto "end"

101: spe 3;prt "Percent RSL dataabove level"

102: for 1=1 to 4

103: if A[I+8]=O;jmp 7

104: spc iwrt 16.4,I,S$[3I-2,3I],R$[3I-2,3I]

Figure C-37. Data I listing, 3.
105: gsb "line"

106: for J=l to 19

107: wrt 16.5,J,A[I]-(J-!)*A[I+4],Z[I,J]/Z[I,20]*lOO

108: next J

109: wrt 16.5,20,-99,100

110: next I

Ill: gsb "line"

112:+"end":spc 3

113: ent "Do you want to plot cumulative %s on rayleigh paper?",X

114: if X:trk O;ldp 8

115: trk O;ldp 9

116:

117:+"line":prt "----------------":ret

118:+"Bin":prt "Bin dBm tPoints";ret

119: end

......

......

00 3208 bytes 18272 check sum

Figure C-38. Data I listing, 4.
Statistical Data Analysis Program

Variable Cross-Reference, Sheet 1

Figure C-39. Data I Xref, 1.

119
Statistical Data Analysis Program

Variable Cross-Reference, Sheet 2

X

17 19 20 31 32 32 32 53 53 56 56 56

56 59 59 72 72 87 87 100 100 113 114

Z

74

A[

1 28 30 31 31 62 66 66 76 81 81 90

94 94 103 107 107

C[

1 28

D[

2 43 43 58 66 68 94 96

F[

1 28

R[

1 28

T[

2 31 32 33 33 34 34 34 34 34 34 34

40 40 40 40 40 40 40 58

U[

2

X[

2

Z [

2 80 80 80 81 83 94 96 107 107

Figure C-40. Data I Xref, 2

120
Statistical Data Analysis Program

Variable Cross-Reference, Sheet 3

D$

1 30 42 43

M$

3 15 34 40

R$

1 28 63 77 91 104

5$

1 28 63 77 91 104

T$

3

V$

1 28 30

W$

3 13 40

X$

3

r1

20 21 21 22 23

r2

14 20 21 22 22 23

r3

39 40 40

"0 It

25

Figure C-41. Data I Xref, 3.

121
Statistical Data Analysis Program

Variable Cross-Reference, Sheet 4

lie"

26

"c"

27 29 35

"d"

42

HHist"

52

"edit"

53

"Cum"

59

"Bin"

60 73

"line"

64 70 78 85 92 98 105 111

"cum%"

87

"end"

100

cfg

47 49

sfg

33 42 72

fIg

25 42 49 73 77 78 81 83

Figure C-42. Data I Xref, 4.

122
0: "DataII":prt "Data II 15Jan79"

1: dim D$[12,160],V$[SO],A[16],C[4,20),R[4],R$[12),S$(12),F[4]

2: dim D[4,20],T[6],U[S],X[16],Z[4,20],M[O:63,12]

3: dim M$[36),T$[16],W$[SO],Z$[64,96],W[6]

4: "think "+W$;O+E

5: "JanFebMarAprMayJunJulAugSepOctNovDec"+M$

6 :

7: "continue":fxd 0

8: frot 1,f2.0,c3,f2.0,lx,f2.0,":",fz2.0,":",fz2.0," ",c8

9: fmt 7,"File",f3.0

10: fmt 6,2x,f2.0,c3,f2.0,Q:",fz2.0,f4.0

11: fmt 4,f2.0,2x,4f3.0

12: fmt 5,fl.O,lx,2f3.0,lx,2f3.0

13: fmt 2,f2.0,c3,f2.0,lx,f2.0,":n,fz2.0,":",fz2.0,Sx,f3.0

14 :

15: spe 2;prt "Hourly Means"

16: spc ~prt" Datetime Fili","Hr Chll 12 #314"

17: prt ·Press £5 to stop computation.";ent "press 'Continue' now",X

w 18 : tr k 1; rew

19: ent "Print out hourly means?n,X;if X;sfg 3

20: ent "Plot hourly means?",X;if X;sfg 4

21: if f1g3+flg4=O:trk O:ldp 9

22:

23: ent "Do you wish to edit files?",X;if X=O;gto "file"

24: ent "do you wish to edit hours?",r21

25: ent "1st ending file? must read fileO",Y1jrnp 2

26 :

27 :.""ent" :

28: ent "next ending file?",Y:if X=l:jmp 2

29: 12+U:if r21;ent "last hour of last file?",U:(U-l)mod12+1+U

30: ent "Done with editing?",X:if X;64+Z;jmp 2

31: ent "next starting file?", Z

32: l+W;if not X and r21:ent "starting hour of next file",W:(W-l)modl2+1+W

33: if Y<Z:jmp 6

34: for J=U+l to W-l

Figure C-43. Data II listing, 1.
35: l+M[Y,J]

36: nex t J

37: if X=O:gto gent"

38: gto "file"

39: for J=U+l to 12

40: l+M[Y,J]

41: next J

42: for I=Y+l to Z-l

43: for J=l to 12

44: l+M[I,J]

45: nex t J

46: nex t I

47: for J=l to W-l

48: l+M[Z,J]

49: next J

50: if X=O:gto MentA

51 :

1-1 5 2 : .. IIfile II :

N 53: for I=E to 63

54: I-r7E+F

55: M[F,l] and M[F,2] and M[F,3] and M[F,4] and M[F,5] and M[F,6]+H

56: f.1[F,7] and M[F,8] and M[F,9] and M[F,lO] and M[F,ll] and M.[F,12]+G

57: if G and H;gto "e"

58 : 1+0

59: trk l:fdf I-r7E:idf X,T,B,A

60: if E=I and E>O:gto ftc·

61: if A=O or flglO:gto "eN

62: if B<930;prt "Null file",I:P+l+P;gto "e"

63: if I=O:ldf O,V$,A[*] ,C[*] ,R[*] ,R$,S$,FT*l

64: if IiO:if Bt2136:prt "file ",I,"Invalid dataR:gto "e"

65: if ItO;ldf I-r7E,D$,V$,A[*1

66: 6+K;A[16]+X;A[15]+T[1]

67: lOOfrc(X/IOO)+T[K]:int(X/IOO)+X:jmp (K-l+K)=l

68: if T[4]+T[5]+T[6]=O:24+T[4];T[3]-1+T[3]

Figure C-44. Data II listing, 2.
69: if 1=0 ;gto "c"

70: if I=liara T+W;O+T[5]+T[6];int«W[4]-1)/12)+W[4]

71 : iff19 3 : 9 5 b ." 1 i ne "

72: wrt 16.6,T[3],M$[3T[2]-2,3T[2]],T[4],T[5],I

73: if int«N+I)/2)+W[3]>=T[3]+1 and (N+I)mod2=int«T[4]-1)/12);jmp 6

74: if Z$[N+I]#""jjrnp 4

75: for J=l to 96

76: Z$[N+I]&char(O)+Z$[N+I]

77: next J

78: N+l+N:jmp -5

79 :

80: for J=l to 12

81: if M[F,J];jrnp 2

82: if D$[J,1,160]i"":jrnp 5

83: for L=8J to 8J+7

84: Z$[N+I]&char(O)+Z$[N+I]

85: nex t L

86: gto uRn

J--I

N

U1 87:

88:

89:

90:

91 :

92:

93:

94 :

95:

96:

97:

98 :

99 :

100:

101:

102:+"R":

ina D

for K=O to 3

8 (Jrnod2+1)+r41

wr t • 1 , T [ 3 ] , M$ [ 3T [ 2] - 2, 3T [ 2] ] , 'I~ [1] , T [ 4 ] , T [ 5] , T [ 6] , W$ [ r 41-7 , r 41 ]

itf(D$[J,40K+l,40K+2])+D[K+1,1] for L=2 to 20

D[K+l,L-l]+itf(D$[J,40K+2L-l,40K+2L])+D[K+1,L]

next L

for L=l to 19

if D[K+l,L]>=D[K+1,20]/2jA[K+l]-(L-!)*A[K+5]+X[K+l] ;jrnp 2

nex t L

fti (A[K+l]-(L-l)*A[K+5] )+Z$[N+I,8J+2K-7,8J+2K-6]

next K

iff19 3 ; wr t 16. 4 , 12 i nt ( (T [ 4 ] -1 ) /12 ) +J , X [ 1] , X [ 2] , X [ 3] , X [4 ]

Figure C-45. Data II listing, 3.
103:

104 :

next J

l05:+"c": if P<3:next I

106: Q-3+Q

107 :

l08:+"e":ina M:Q+E:ent "Done with this tape?",X:if X=O:gto "ent"

109: dsp "Rewinding":trk O;rew

110:+"end":1+r7;ent "Any more analysis?",X;if X:gto "ent"

Ill: if f1g4;gto "scI"

112 : dsp "Done"; trk 0 i Idp 9

113:

114:+"scl":pentl:wrt 70S,"IPO,O,9825,7582":gsb "scale"

115: pIt -.05r7,.45(r8-2r9),licsiz 1,2,1,90;lbl "RSL dBm":csiz 1

116: pIt .05(r7-2r9),1.02(r8-2r9),1:lbl V$ilim 0,750,0,500

117:+"wh":cfg 4iplt r7-r9,rS-r9,1

118: ent "Which channel?",C;if C<li9to "end"

119: if Z$[c]=n":gto "wh"

120: pent Cic11 'plot'{3400000,-24-2C,1) j1b1 "chanU,e

121: for 1=1 to N+E

122: for J=l to 12

123: 86400(W[3]-1)+43200I+3600(J-1)+60W[S]+W[6]+S

124: cll 'plot'(S,itf(Z$[I,8J+2C-9,8J+2C-8]),2):iplt O,O~l

125: nex t J

126: next I

127 : gto "wh"

128:

129:+"line":prt "----------------":ret

130 :

131:+"sca1e":pc1rjent "a"" x 10.5"" paper ready?",X:jmp X

132: 1050+r7

133: 800+ r8

134 : 150+ r9

135: scI -r9,r7-r9,-r9,r8-r9;fxd 0

Figure C-46. Data II listing, 4.
136:

137:

138 :

139:

140 :

141 :

142 :

143 :

144:

145:

146 :

147 :

148:

149:

150 :

151 :

152:

153 :

-154:

155:

156:

157 :

158 :

159:

160:

161:

162:

163 :

86400W[3]+3600W[4]+60W[5]+W[6]+rl:86400*32+rl+r2:31+r3

-85+r4;-25+r5:10+r6

_( r2-(1) / (r7-2r9) +Q

(rS-r4)/(r8-2r9)+R

fxd 4

for M=rl to r2 by 50

if drnd(1+frc(M/86400),3)=2:jmp 2

next M

fxd 0

W[3]+K;sfg 7:8fg 8

for L=M to r2 by 86400

ell 'plot' (L,rS,2) :e1l 'plot' (L,r4,1)

if K=28+(not W[I]mod4) and W[2]=2:cll 'numo'

if K=30 and (W[2)=4 or W[2]=6 or W[2]=9 or W[2]=11) Jell 'numo

if K=31:cll 'numo'

K+I+K

if flg8 and K=l:cfg 7

if Kmod7If1g7*(W[3]mod7)+1:jmp 3

cp1t -1(K>9) -2.3,-l.3:1bl K,,,A,,

if flg8:cfg 8:cplt -3,-1:lb1 M$[3W[2]-2,3W[2]l

next L

for M=r4 to r5 by r6

ell 'plot' {r2,M,2):c11 'plot'(r1,M,1) cp1t ~4,-.3;lD1 M

next M

ret

164:

165 : +.plot" :

166: (pl-r1)/O+X

167 : (p2-r4) /R+Y

168: pIt X,Y,-p3:ret

Figure C-47. Data II listing, 5.
169:

170:+"numo":O+K:W[2]mod12+1+W[2]:sfg 8:ret

.....,

rv

co

4510 bytes 16308 check sum

Figure C-48. Data II listing, 6 •
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 1

A

59 61

B

59 62 64

C

118 118 119 120 120 120 124 124

D

87

E

4 53 54 59 60 60 65 108 121

F

54 55 55 55 55 55 55 56 56 56 56 56

56 81

G

56 57

H

55 57

I

42 44 46 53 54 58 59 60 62 63 64 64

65 65 69 70 72 73 73 74 76 76 84 84

99 105 121 123 124 126

J

34 35 36 39 40 41 43 44 45 47 48 49

Figure C-49. Data II Xref, 1.

129
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 2

75 77 80 81 82 83 83 90 92 94 99 99

101 103 122 123 124 124 125

K

66 67 67 67 89 92 92 92 94 94 94 94

97 97 97 97 97 99 99 99 99 100 145 149

150 151 152 152 153 154 155 155 170

L

83 85 93 94 94 94 94 95 96 9,7 97 98

99 147 148 148 157

M

108 141 142 143 147 159 160 160 161 162

N

73 73 74 76 76 78 78 84/ 84 99 121

P

62 62 105

Q

58 106 106 108 138 166

R

139 167

S

123 124

T

59 70

U

29 29 29 29 34 39

Figure C-50. Data II Xref, 2.

130
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 3

W

32 32 32 32 34 47 70

X

17 19 19 20 20 23 23 28 30 30 32 37

50 59 66 67 67 67 108 108 110 110 131 131

166 168

y

25 28 33 35 40 42 167 168

Z

30 31 33 42 48

A[

1 63 65 66 66 97 97 99 99

C[

1 63

O[

2 92 94 94 97 97

F(

1 63

M[

2 35 40 44 48 55 55 55 55 55 55 56

56 56 56 56 S6 81

R[

1 63

T[

2 66 67 68 68 68 68 68 68 70 70 72

Figure C-51. Data II Xref, 3.

131
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 4

Figure C-52. Data II Xref, 4.

132
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 5

Figure C-53. I)ata II Xref, 5.

133
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 6

pI

166

p2

167

p3

168

"file"

23 38

gent"

37 50 108 110

"c"

57

He"

61

"line"

71

"R"

86

"scI"

III

IIscale"

114

"end"

118

60 62 64 69

Fiqure C-54. Data II Xr~f, 6.

134
Hourly Median Analysis Program

Variable Cross-Reference, Sheet 7

"whit

119 127

'plot'

120 124 148 148 160 160

, , numo

149 150 151

cfg

117 153 156

sfg

19 20 145 145 170

fIg

21 21 61 71 101 III 153 154 156

Figure C-55. Data II Xref, 7.

135
0: "Ray13D":prt "ray1eigh27Dec78"

1: dim V$ [50] ,A[16] ,C[4,20] ,R[4] ,R$[12] ,5$[12] ,F[4]

2 : d im D [ 4 , 2 0] , Z [6 ] , M$ [ 3 6] , T [ 6] , Y[2 ] , X [6 ]

3: "JanFebMarAprMayJunJulAugSepOctNovDec"+M$

4: frnt 1,c,f4.0,c4,f3.0,f4.0,":",fz2.0

5: trk l~ldf O,V$,A[*] ,C[*] ,R[*] ,R$,S$,F[*]

6: trk 1~1df 63,D[*],Z[*1:trk Oirew;ara D.c

7: 6+KiA[16]+X;A[15]+T[l]

8: lOOfrc(XjlOO)+T[K];int(Xj100)+X;jmp (K-1+K)=1

9: for 1=1 to 4

for J=1 to 19

C [ I , J ] +C [ I , J +1] +C [ I , J +1 ]

next J

next I

ent "S .... x 10 1/2"" paper ready?",Z;if Zil;jrnp 0

pent l;ell 'paper'

"X-axis endpoints":.OOl+X[1] ;99.999+X[2]

I-X [1] /lOO+X [1] I-X [2] /lOO+X [2]

"Median RSL":-30+X[3]

c 11 ' seale ' (X [1] , X [ 2] , -X [3] )

esiz 1,1.2

9 s b "1 abe 1 It

lim O,150,18,168ipeni 1

10:

11:

12 :

13 :

14:

15:

16:

I-J 1 7 :

18:

19:

20:

21 :

22:

23:

24:+"z":plt rl-l.1r3,r2-1.2r3,1;ent "which channel?",C;if C<l or C>4:1dp 9

25: if A[C+8]=O:jmp -1

26: "label loc":.991+X[4];1-X[4]+X[4);fxd 2

27: if C=l ;cll 'plot' (X[4] ,27,1) :cll 'box' (1) ;cp1t 1,-.2

28: if C=l;lbl II chan 1, ",5$[1,3]," to ",R$[1,3]," ",F[l]," GHz"

29: if C=2;cll 'plot' (X[4] ,29,1) jell 'eros' (1) ;cplt 1,-.2

30: if C=2:1bl It chan 2, ",S$[4,6]," to ",R$[4,6]," ",F[2]," GHz"

31: if C=3;cll 'plot' (X[4] ,31,1) jell 'plus' (1) ;cp1t 1,-.2

32: if C=3;lbl If chan 3, ",5$[7,9]," to ",R$[7,9]," ",F[3]," GHz"

33: if C=4;cll 'plot' (X[4] ,33,1) ;cll 'tri' (1) :cplt 1,-.2

34: if C=4:1bl II chan 4, ",S$[10,12],n to ",R$[lO,12]," ",F[4]," GHz"

Figure C-56. Rayleigh listing, 1.
35: for 1=1 to 19

36: dsp

37: l-C[C,I]/C[C,20]+X

38: if X>X(l] or X<X[2]:gto "nil

39: ell 'plot' (X, (I-l)A[C+41-A[C] ,-2)

40: if C=1;c11 'box'(-2)

41: if C=2iCll 'eros'(-2)

42: if C=3;c11 'plus'(-2)

43: if C=4;c11 'tri'(-2)

4 4 : + It nil: nex t 1

45: pen

46: gto "z"

47:

48:+"box":

49: iplt -l,-l,liiplt 2~O,2;iplt 0,2

50: iplt -2,O;iplt O,-2,-1;iplt 1,1,p1:ret

51:

52:+"cros":

53: ip1t -l,-l,l;iplt 2,2,2;ip1t -2,0,1

54: iplt 2,-2,2;iplt -1,1,p1;ret

55:

56:+"plus": .

57: iplt -l,O,l;iplt 2,O,2;iplt" -1,1,1

58: ip1t 0,-2,2:iplt O,1,p1;ret

59:

60:+"tri":

61: iplt -l,-l,l;iplt 2,0,2

62: iplt -1,2;ip1t -1,-2,-1;iplt 1,1,p1;ret

63:

64: for 1=1 to N

Figure C-57. Rayleigh listing, 2.
Figure C-58. Rayleigh listing, 3.

92:

93:+"scale n :

94: "pl=Xmin,p2=Xmax":

95: (r6-r4)/{'Fx'{p2}-'Fx'(pl»+rO

96: r4-rO'Fx'(pl)+rl

97: (r6-rO'Fx'(lOp2)-rl)/-lO+r2

r6,r5;p1t r4,r5,-1

ell 'plot' (l-A[I]/IOO,-B[I] ,-2)

next I

line :pen

84:

85 :+"paper I':

86: .. r4 =Xm in, r 5=Ymin, r6 =Xmax, r7 =Ymax":

87: wrt 705,"IP360,760~6960,9720"

88: scI -15,150 ~54,170

89: 0+[4:18+r5:i50+r6:168+r7

,90: pIt r4,rS,-2:plt r4,r7:plt r6,r7;pIt

91 : re t

65:

66:

67:

68:

69 :+"label" :lim

70: (rS-r3)/r2+Y[1] ;·(r7-r3)/r2+Y[2]

71 : e 11 ' y ax ' ,( X [1] , Y [1] , Y [ 2] , 1 , 1 )

7 2 : e 11 ' xax r' (Y [ 1] , X [ 1] , X [ 2] , 1, 1)

73 : c 11 ' x ax r ' (Y [ 2] , X [1] , X [2] , -1 )

74 : ell'y ax' (X [ 2] , Y [11 , Y [ 2] , -1 )

75: esiz 1.5;plt 30,6,1;lbl "Percent of Time Signal Exceeds Ordinate"

76: pIt -12,,30,1:csiz 1.2,1.5,1,90:1b1 "Received Signal Level (RSL), dBm"

77: pIt 10,-3,1:csiz 2:lblV$:plt lO,-ll,l;csiz 1.5

78: wrt 705.1, tlLBData from" ,T[3] ,M$[3T[2] -2, 3T[2]],T [1] ,T[4] ,T[S]

79: wtb 70S,3:plt 10,-18,1

80: wr t 705.1, II LB toII , Z [ 3 ] , M$ [ 3 Z [2 ] - 2 , 3 Z [ 2] ] , Z [1] , Z [4] , Z [ 5]

81: wtb 705,3:plt 10,-25,1:1bl "Approx",max(C[*])/14400," hours";csiz

82: pIt 200 r 200,l

J-J 83: re t

w

co
98: r7-rO'Fx'(.5)-rl-r2'Fy'(p3).r3

99: ret

100:

101 :.·plota :

102: pIt rO'Fx'(pl)+rl,r2'Fy'(p2)+r3,p3

103: ret

104 :

105: .·xaxr·:

106: ·p1=y-axis intercept,p2=Xmin,p3=Xmax,p4=tick length,p5=label·:

107: p2.I;-9(1-I).p6

108: for r=I to p3 by p6

109: if 1>.9 and I/p6modlO=O;lOp6.p6;jmp -1

110: if 1=.9 and p6i-.1,-.1.p6,jmp -2

Ill: if 1<.9 and I/p6=-I,.lp6.p6,jmp -3

112: ell 'plot' (I,pl,-2)

113: iplt O,p4+2p4 «I/p6mod10=O)+(I>.8)+(I=.S).p7)

114: if not (p7=1 and 1<=.99 and p5),jmp 3

115: ell 'plot' (l,pl,-2)

\0 116: fxd max(-1-prnd(log(I/'ll),O),O).p7,pen;cplt -2-p7,-I;lbl 100(1-1)

117: ell 'plot'(I,p1,-2)

118: next I

119 : pen, re t

120:

121:.-yax":fxd 0:S£9 14

122: ·pl=x-axis inter cept I p2=Ymin ,p3==Ymax, p4 =tick length ,PS-label":

123: ell 'plot' (p1,p3 , -2)

124: for I=int(p3)+1 to int(p2)

125: ell 'plot' (pl,I,-2)

126: iplt p4+2p4(lmodlO=O),O

127: ifpS and Imod10=O,pen:cplt -6.S-abs(max(O,-prnd(log(I),O»),-.3,lb1 -I

128: ell 'plot' (pl,I,-2)

129: nex t I

Figure C-59. Rayleigh listing, 4.
130: ell 'plot' (pl,p2,-1) ;cfg 14;ret

131 :

132 :." Fx n:

133: "Rayleigh transform":

134: ret In(-1og(1-p1»

135:

136:."Fy":

137: ret pI

......

o

4104 bytes 15612 check sum

Figure C-60. Rayleigh listing, 5 .
Rayleigh Plot Program

Variable Cross-Reference, Sheet 1

C

6 24 24 24 25 27 28 29 30 31 32 33 34 37 37 39 39 40 41 42 43

D

6

I

9 11 11 11 13 35 37 39 44 64 65 65

66 107 107 108 108 109 109 110 III III 112 113

113 113 114 115 116 116 117 118 124 125 126 127

127 127 128 129

J

10 11 11 11 12

K

7 8 8 8

N

64

X

7 8 8 8 37 38 38 39

Z

14 14

A[

1 5 7 7 25 39 39 65

B[

65

C[

1 5 11 11 11 37 37 81

Figure C-61. Rayleigh Xref, 1.

141
Rayleigh Plot Program

Variable Cross-Reference, Sheet 2

Figure C-62. Rayleigh Xref, 2.

142
Rayleigh Plot Program

Variable"""CrOSS-Reference, Sheet 3

rO

95 96 97 98 102

rl

24 96 97 98 102

r2

24 70 70 97 98 102

r3

24 24 70 70 98 102

rll

89 90 90 90 95 96

rS

70 89 90 90 90

r6

89 90 90 95 97

r7

70 89 90 90 98

pI

50 54 58 62 95 96 102 112 115 117 123 125

128 130 134 137

p2

95 97 102 107 124 130

p3

98 102 108 123 124

p4

113 113 126 126

Figure C-63. Rayleigh Xref, 3.

143
Rayleigh Plot Program

Variable Cross-Reference, Sheet 4

p5

114 127

p6

107 108 109 109 109 110 110 III 111 III 113

p7

113 114 116 116

" label"

21

un"

38

liZ"

46

, , paper

15

,

scale ,

19

'plot'

27 29 31 33 39 65 112 115 117 123 125 128 130

'box'

27 40

, , eros

29 41

,

plus ,

31 42

Figure C-64. Rayleigh Xref, 4.

144
Rayleigh Plot Program

Variable Cross-Reference, Sheet 5

'tri'

33 43

,

yax

71 74

,

xaxr

72 73

'Fx'

95 95 96 97 98 102

'Fy'

98 102

cfg

130

sfg

121

Figure C-65. Rayleigh Xref, 5.

145
0: "se1ecPrg":prt "selecPrg 7Nov78"

1: dsp "Select program"

2: spc 2

3: prt "--------------";spc 1

4: prt "Which program?"

5: spc 1

6: prt 1) Initialize"

7: prt 2) Run RSL test"

8: prt 3) File Directy"

9: prt 4) Data anal I"

10: prt 5) Data anal II"

11: prt 6) PlotRayleigh"

12: prt 7) New Tape GenA

13: prt 8) A-D Test"

14: prt 9) End"

15: spc 2;fxd 0

16: O+Z:ent "Enter program i?",Z

17: if Z>=9:rew;dsp "Done";stp

m 18: if Z<=O:jmp -2

19: if Z>=3:Z+1+Z:if Z>=7:Z+1+Z

20: trk O:ldp Z+l

21: end

430 bytes 28050 check sum

Figure C-66. Select listing and Xref.
15. ABSTRACT (cont.)

test to list and plot cumulative distributions and hourly ffie1ians

on a peripheral graphic plotter. The graphs, including axes and

scales, are drawn and annotated completely under software control.

~u. s. GOVERNMENT PRINTING OFFICE 1979 - 679-235/387 Reg. 8