EPA-66 0/2-74-00 4
January 1974
Environmental Protection Technology Series
Specific Ion Mass Spectrometric
Detection For Gas Chromatographic
Pesticide Analysis
.
Ul
CD
Office of Research and Development
U.S. Environmental Protection Agency
Washington, D.C. 20460
-------
RESEARCH REPORTING SERIES
Research reports of the Office of Research and
Monitoring, Environmental Protection Agency, have
been grouped into five series. These five broad
categories were established to facilitate further
development and application of environmental
technology. Elimination of traditional grouping
was consciously planned to foster technology
transfer and a maximum interface in related
fields. The five series are:
1. Environmental Health Effects Research
2. Environmental Protection Technology
3. Ecological Research
-------
EPA-660/2-74-004
January 1974
SPECIFIC ION MASS SPECTROMETRIC
DETECTION FOR GAS CHROMATOGRAPHIC
PESTICIDE ANALYSIS
By
Maynard B. Neher and James R. Hoyland
Grant No. R-800909
Project 16ADN 28
Program Element 1B1027
Project Officer
Dr. John M. McGuire
Chromatography & Mass Spectrometry Section
Southeast Environmental Research Laboratory
Athens, Georgia 30601
Prepared for
OFFICE OF RESEARCH AND DEVELOPMENT
U. S. ENVIRONMENTAL PROTECTION AGENCY
WASHINGTON, D. C. 20460
For sale by the Superintendent of Documents, U.S. Government Printing Qffiee, Washington, D.C. 20402 - Price $1.65
-------
ABSTRACT
Computer programs have been developed for a PDP8/e controlling a Finnigan
1015 quadrupole mass spectrometer to monitor selected ions from components
in a gas chroma tographic effluent. The program is designed to monitor
only a few ions (1 to 8) to enhance the sensitivity for the selected ions.
Signal-to-noise levels of 10:1-30:1 have been obtained for 0.2 ng or less
of four ge^t^i^d^ employing chemical ionization mass spectrometry and a
routine .
This report was submitted in fulfillment of Project Number 16ADN 28,
Grant Number R- 800909. , by Battelle Memorial Institute under the sponsor-
ship of the Environmental Protection Agency. Work was completed as of
June 30, 1973.
ii
-------
CONTENTS
Sections Page
I CONCLUSIONS ' "•' 1
II RECOMMENDATIONS 2
III INTRODUCTION 3
IV COMPUTER PROGRAM DEVELOPMENT 8
V SYSTEM PERFORMANCE 29
VI REFERENCES 35
VII APPENDICES 36
iii
-------
FIGURES
No. Page
1 General Program Flow Chart 9
2 Flow Chart for Program Initialization 12
3 Flow Chart for Calibration-File-Packing Subroutine 13
4 Flow Chart for Subroutine for Imputting Masses, Integration
Times, Total Run Time and Number of Points to Sum 14
5 Flow Chart for Rod-Voltage-Setting Subroutine 15
6 Flow Chart for Mass-Spectrometer-Scan Routine 17
7 Flow Chart for On-Line Data Plotting Routine 19
8 Flow Chart for Data-Buffer-Processing Routines 21
9 Flow Chart for Mass-Storage-Data-Recording Routine 22
10 Flow Chart for Smoothing Routine 23
11 Flow Chart for Keyboard Monitor 25
12 Flow Chart for Off-Line Plotting Program 27
13 Electron Impact and Chemical lonization Mass Spectra of
p, p'-DDT ' 31
14 SIM Plots of Single Pesticides 32
15 SIM Plots of Pesticide Mixture 34
iv
-------
ACKNOWLEDGEMENTS
Assistance of personnel of the Southeast Environmental Research
Laboratory is gratefully acknowledged. Their experimental evaluation
was of great help in debugging the computer program.
Dr. Rodger Foltz of the Columbus Laboratory of Battelle Memorial
Institute aided in the development of design parameters for the
computer programs.
-------
SECTION I
CONCLUSIONS
Two computer programs have been developed for selected ion monitoring
of gas chromatographic effluent components with a Finnigan 1015 quadru-
pole mass spectrometer equipped with a System 150 data system. The programs
are designed for a PDP8/e (or PDP-8/f or PDP8/m) computer equipped with
the expended arithmetic element (EAE). With these programs, signal-to-
no^se ratios of 10:1 to 30:1 have been obtained for 0.2 ng or less of
four pesticides employing chemical ionization mass spectrometry and a
digital smoothing routine. Programs are also available with EAE
simulator routines for computers without EAE. These programs have
been debugged and are ready for general distribution.
-------
SECTION II
RECOMMENDATIONS
The debugged Selected Ion Monitoring programs should be made available
to users of Finnigan quadrupole mass spectrometers equipped with System
150 data systems.
-------
SECTION III
INTRODUCTION
The goal of this project was the development of a practical system for
application of "Selected Ion Monitoring" to gas chromatographic analysis
of pesticides.
Selected Ion Monitoring (SIM) is the technique of monitoring one or only
a few ions from a mass spectrum rather than acquiring complete mass
spectra. The technique has been demonstrated magnetic deflection mass
(1-4}
spectrometers.v ' However, magnetic deflection instruments have one
serious drawback for development of this technique to its ultimate; it
is difficult to change from one mass to another quickly by changing the
magnetic field strength because of the hysteresis of magnet systems.
The LKB mass spectrdmeter, for example, employs a change of the acceler-
ating voltage to focus on different masses. This limits the masses that
can be monitored to a range of about 10 percent of the mass. If a
larger mass range is covered, there are significant differences in the
sensitivity to the various masses.
The quadrupole mass spectrometer is well suited to the peak-monitoring
technique because all that is needed to change from one mass to another
is to change the voltage on the quadrupole rods. The Finnigan mass
spectrometer in combination with a computer data system such as the
System 150 provides an ideal system for development of a Selected Ion
Monitoring mass spectrometric technique.
Chemical ionization mass spectrometry is also ideally suited to the SIM
technique. It appears that chemical ionization gives higher sensitivity
than electron impact ionization* In addition, most compounds produce
-------
fewer ions with significant intensity under chemical ionization conditions
than under electron impact ionization conditions. Thus, the simple*
spectra give less chance for ambiguous identifications with chemical
ionization mass spectrometry.
-------
SECTION IV
The System 150 provides standard programs for data acquisition and dis-
play. These programs are ideal for gas chromatographic data; they
provide output of real-time and reconstructed gas chromatograms as well
as mass spectra plots. However, the standard programs are designed for
discrete mass spectra. If the operator elects to monitor only one ion,
an entire block of data is recorded for each point, so that a large
amount of file storage room is required.
For electronic signals with random noise, the signal-to-noise ratio in-
creases as the square root of the observation time,
S/N = kVt~
For example, consider the comparison of an ,ion in a standard mass spectrum
(3 sec. scan, 300 amu) with monitoring of a single peak (100 msec inte-
gration periods) for a standard mass spectrum 10 msec is spent on each
peak, but 2.3 msec is required for settling time between masses, so 7.7
msec is the actual integration time. For the SIM technique, the inte-
gration time is 97.7 percent of the total time. Hence the expected
signal-to-noise ratio improvement is given by;
S/N = V.977x3x1000/7.7 = 19.5
The standard System 150 routines are not well suited for the SIM technique.
For disk systems, the large amount of storage space is not a major
obstacle, although only a few runs can be made before a disk will be full.
For a DECtape system however, it is a major problem. It is not unusual
for a gas chromatographic run to last 30 minutes, and for 1 sec integra-
tion times, 1800 spectra would be acquired; a DECtape will only hold at
most about 1200 spectra (1472 blocks, but about 250 are required for
system programs).
-------
Baseline noise due to column bleed is a significant problem in gas
chromatography, particularly in programmed temperature operation. It is
usually corrected by dual column operation, bucking one against
the other (i.e. by baseline subtraction). For combined gc/ms, a single
column technique, this solution is not feasible. The System 150 programs
provide a background subtraction capability for display of individual
spectra, but have no way of suppression or subtraction of the baseline
in reconstructed gas chromatograms. Since baseline suppression is
necessary for maximum sensitivity this is a serious shortcoming of the
standard System 150 programs.
Further, the ions of interest in a gc/ms run change with the progress of
the run. The standard System 150 programs provide the capability of
monitoring only a few ions, but monitors the same set of ions during the
entire run. Since all ions of interest must be monitored all the time,
this reduces the percentage of the time that can be spent on each, thus
reducing the theoretical signal-to-noise enhancement of the SIM technique.
-------
SECTION V
COMPUTER PROGRAM DEVELOPMENT
This project was devoted to development and evaluation of computer
programs for implementing compound specific mass spectrometric detection
on a Finnigan mass spectrometer equipped with a System Industries
System 150 mass spectrometer control system. This report describes the
overall programs, flow charts for the overall program, and more detailed
flow charts for the individual segments. Program assembly lis-tings are
given in the Appendices.
The programs will operate with either disk or tape-based systems. Of
course, the disk system provides room for more data storage. However,
two DECtapes provide ample storage for any normal run. Two programs
have been written, one for data acquisition (including on-line present-
ation of the first mass specified, using the Houston digital plotter) and
one to plot all data points to the same scale . These programs are dis-
cussed below. The programs are designed to operate on a 4K PDP8/e computer
equipped with the KE&E extended arithmetic element (EAE). However, since
the EAE is not required for the System 150, versions that do not require
the EAE have been written for both programs. The non-EAE data acquisi-
tion program is not noticeably slower than the EAE version for most
applications. However, the non-EAE off-line plotting program is notice-
ably slower.
Data Acquisition Program
The program provides for monitoring from one to eight different masses.
The integration time for each mass can be specified separately to avoid
saturation for strong peaks while providing required sensitivity for weak
peaks. For improved signal-to-noise ratio on weak peaks without danger
-------
of saturating strong peaks, a selectable number of consecutive points
for each mass can be added together and stored as a double precision
value. The value for the first specified mass is plotted to give a
real-time chromatogram.
This program is designed to be called as a USER program on System 150,
and uses standard System 150 mass-storage read, write, and file handling
routines, standard teletype and plotter routines. These subroutines are
the property of System Industries and therefore not discussed or listed
in this report. The multiply and divide routines that are based on the
EAE option are included in the program listing, but are not flow charted
or discussed.
The program consists of five basic segments:
1. Initialization,
2. Mass Spectrometer Scan Control,
3. Data Recording,
4. On-Line Data Presentation, and
5. Keyboard Monitor.
A number of smaller subroutines are used to implement input, output and
other functions. The overall flow of the program is shown in Figure 1.
The individual program segments are described in the following sections.
Initialization. The initialization phase of the program sets all initial
parameters for data acquisition. These are:
1. Calibration File Name. This program assumes the
presence of a standard system calibration file.
2. Masses to be Monitored. From 1 to 8 can be specified,
decimal fractions permitted.
8
-------
Start
Initialize system, input
masses, integration
times, run time,
filenames, and title
Mass storage
data
recording
Control mass spectrometer
operation
Keyboard
monitor
Real-time data
plotting
FIGURE 1. GENERAL PROGRAM FLOW CHART
-------
3. Integration Time. The integration time is specified,
in milliseconds (max of 4096). As many integration
times can be entered as masses. However, if fewer
integration times are entered than masses, the last
time entered is used for the rest of the masses.
(All masses can be monitored at the same integration
time by entering only a single integration time).
4. Number of Sets of Masses. To permit rapid change of
conditions, up to three sets of masses and integration
times can be specified at the start of the run.
5. Number of Points to Scan For Each Mass. The specified
number of values for each mass are summed and entered as
a single value in the file of recorded data. This permits
the equivalent of long integration times and frequent
data sampling so that real data fluctuations are not
missed.
6. Title of Run. Room exists in the record for a des-
criptive title of up to 40 alphanumeric characters.
7. Maximum Time of the Run in Minutes. When the specified
time has elapsed, the run is terminated automatically.
However, the run can be terminated earlier if desired
by entering E(CR) on the teletype. Control-L (depress-
ing both the control key and L) aborts the run, i.e.,
terminates it without entering the file in the system
directory.
8. Data File Name. This is the name (six characters
or less) by which the file is catalogued on the
system device.
In the initialization program, the calibration file data are packed into
the proper format to set rod voltages, and the rod voltage settings are
calculated for each set of masses entered. A linear interpolation is used
for the calculation: Vc = Vi + (MC-M1) x (V2-V1)/(M2-M1) where c is the
10
-------
Initialization
Enable teletype
output
Print: "calibration
file:"
Read calibration
file name
Store calibration
file name
Search system
directory
Pack calibration
file buffer
(Subroutine CALBUF)
Read masses and
integration times
(Subroutine STINIT)
Calculate rod voltages
(Subroutine SETCAL)
[Print; "Title" (of run)
[Read &t store title]
Print: "data file
name"
Read and store data file
name
1
[Search system directory)
Yes
Initialize Plotter and
lower pen
(subroutine PLOTIN)
Print "??"
Print: "duplicate
file name"
FIGURE 2. FLOW CHART FOR PROGRAM INITIALIZATION
11
-------
FIGURE 3. FLOW CHART FOR CALIBRATION-FILE-PACKING SUBROUTINE
12
-------
Get address of file
for storage of number
of masses
Get masses
(Subroutine MASSET)
Inclement mass,
time& No. of masses
pointers by 31
(octal)
Get No. of points to add
(Subroutine NPNTS)
Get total run time
(Subroutine RUNTIM)
FIGURE 4. FLOW CHART OF SUBROUTINE FOR INPUTTING MASSES,
INTEGRATION TIMES, TOTAL RUN TIME AND NUMBER OF
POINTS TO SUM
13
-------
SETCAL
Double It
Add start address
of rod voltage
calibration file
Store next calibration
voltage pointer
These steps, while part
of the logic for SETCAL,
are actually in a separate
subroutine because of
core-page size limitations
calibration voltage
1
JT. ~~|
nr
D. P. add next
calibration voltage
1
Multiply by
mass difference
1
Divide by
calibration mass
difference
1
D. P. add previous
calibration voltage
D. P. load
Increment
SETCAL
JL_i
[JtemrnJ
FIGURE 5. FLOW CHART FOR ROD-VOLTAGE-SETTING SUBROUTINE
14
-------
point being calculated, and 1 and 2 are the mass/voltage points bracket-
ing the point being calculated. If a mass that falls outside the range
of the calibration file is entered, an error message is given, and the
program waits for an acceptable set of masses.
A flow chart for the initialization program is given in Figure 2. Flow
charts for subroutines used during initialization are given in Figures 3-5,
Mass Spectrometer Scan Control. The mass spectrometer scan is controlled
by the computer using the normal mass spectrometer interface and controls.
However, to optimize data handling and storage, the selected masses are
monitored sequentially. The integration time for each peak must be
selected such that the integrator does not saturate in the time selected.
To avoid storing many small numbers, a number of sets of masses are
scanned and the intensities for each summed using double precision
addition.
A keyboard monitor allows the operator to change acquisition parameters
during a run. If a change is requested, a marker is inserted in the mass
storage record, and a new header block is written showing the new para-
meters before data recording is reinitiated. A flow chart for the scan
control is shown in Figure 6.
On-Line Data Presentation. The data acquisition program provides for
on-line plotting of the intensity of the first mass monitored. (Because
i
the plotter is relatively slow, there is not time to plot all the peaks
in real time without placing rather severe restrictions on the combinat-
ion of parameters for data acquisition). The first mass in the list is
the one that is plotted; however, the entries do not need to be in
increasing mass order, so any mass can be plotted in real time. A flow
chart for the on-line data presentation portion of the program is given
in Figure 7.
15
-------
Scan start I
Fill buffet
with zetoes
(subroutine ZROFIL)
0 1
1 Turn MS interface on
1
Get buffer address
1
1 Set Pti. buffet pointer 1
®
1
Get No. of sets of
points
1
Set buffer counter
1
Get No. of points pet mass
" ' t'
' . v
*-'*f.;- *
'"'•' - *
1
| Set point counter |
1
Get buffet pointer
1
Set sec. buffer pointer 1
|
[ Get No. of masses
|
Set mass counter
1
1 Get time address
|
1 Set time pointer
1
I Get mass address I
|
1 Set mass pointer
.
Get Integration time
1
Add 1 sec. counter
fToE
FIGURE 6. FLOW CHART FOR MASS-SPECTROMETER-SCAN ROUTINE
16
-------
I Get address of Intensity
i for first mass
FIGURE 6. (continued) FLOW CHART FOR MASS-SPECTROMETER-SCAN ROUTINE
17
-------
On-line data
plotting routine
Rent buffer
counter - and
buffer-full flag
FIGURE
FLOW CHART FOR ON-LINE DATA PLOTTING ROUTINE
18
-------
The initial program version plotted data on line as discrete points.
Data thus presented was quite noisy. To decrease the noise level, a
least-squires smoothing routine was added to the program. This
routine uses the technique of Savitzky and Golay,^' in which smooth-
ing is obtained by multiplying successive values by a set of smoothing
factors, and dividing the sum of the products by a normalizing factor.
A flow chart for this smoothing routine is shown in Figure 8.
Data Processing and Recording. The program uses one core page to record
the title of the run and the data acquisition parameters. At the start
of the run, this page is written onto the mass storage device as a
header block. Five core pages of memory are used as a buffer for
recording data. When the buffer is full, the data are written on the
mass storage device, the buffer is filled with zeros, and data are then
entered starting over at the beginning of the buffer. A flow chart for
the data processing and recording routine is shown in Figure 9. (The
program is independent of the mass storage device and will work on
either disk or tape systems). The program checks to see that there is
room at the end of the buffer for an inter-buffer flag. If there is
enough room when a change of data recording parameters is signalled by
the keyboard interrupt routine, a two-word inter-buffer record mark
(7070 0000) is entered in the buffer. The buffer is then written on
the mass storage device, and a new header block is recorded to indicate
data acquisition parameters. If there is not enough room, the inter-
buffer record is started at the beginning of the next block, so that
the end-of-record flag will always be at the location for the start of
a data set. When the run is terminated, a two-word end-of-file record
mark (7171 0000) is entered in"the buffer, the buffer is written out on
the mass storage device, and the file is closed and catalogued in the
system directory.
19
-------
I Entry
Get and store
first point address
Get data point
Multiply by factor
Add product to total
Increment pointers
and counter
Divide by
normalizing factor
FIGURE 8. FLOW CHART FOR SMOOTHING ROUTINE
20
-------
Flow charts for these routines are shown in Figure 9 and 10.
Keyboard Monitor, A keyboard monitor allows the operator to change
parameters during data acquisition. The allowed commands are:
1. E(CR): End run, insert E-O-F and catalog file
2. Sn(CR): Change to set of masses n where n = 1,2, or 3
3. Nn(CR): Change number-of points to n
4. Fn(CR): Change scale factor to n
5. Tn^,n2, ni(CR): Change integration times to np^'-n,
6. Control-L: Abort, do not catalog file
A flow chart for the keyboard monitor is shown in Figure 11.
Plotting Program
Since the on-line data acquisition program can plot only one mass from
each set, an off-line program plots all data points. This program scans
the entire data file prepared by the data acquisition program and deter-
mines the proper scale factor to keep the entire plot on scale. The
minimum value is considered to be baseline and subtracted from all values
for baseline suppression. It then makes a second pass through the data
and plots each mass sequentially in the order data were acquired. Two
output options are provided to the operator. After each mass is plotted,
the prompt "CHANGEPEN. " is printed by the teletype. If the operator
wishes to overlay the plots using different ink colors, he should change
the plotter pen and press the RETURN key. If he does not wish to overlay
the plots, depressing any key other than RETURN advances the plotter
chart about three inches and plot the next point. A flow chart of the
program is shown in Figure 12.
21
-------
[ENDCHK
I Entry j
Zero block counter |
I
Get current address |
Subtract buffer
start address
Increment block counter |
I Subtract 201(8)
>0
Write EOF
SS^GSUI
I - Y^ I
0
j ( .ct No. of blocks j
<^=J
No
^\ Yes
Increment
block
counter
Writ
(Subr
WRT
Rese
poin
CO
FIGURE 9. FLOW CHART FOR DATA-BUFFER-PROCESSING ROUTINE
22
-------
[WRTDAT )
Subroutine for recording
data blocks
Subroutine for recording
header blocks
I
Calculate No. of words
to write (multiply
No. of blocks by 200
(OCTAL)
Write buffer to
mass storage device
FIGURE 10. FLOW CHART FOR MASS-STORAGE-DATA-RE CORD ING ROUTINE
23
-------
READ
KEYBOARD
GET NEW
TIME(S)
(Subroutine
TIMSET)
CHANGE PLOT
SCALE FACTOR
(Subroutine PLTFCT)
YES
YES
NO
NO
YES
NO
YES
YES
YES
NO
YES
NO
END OF RUN
INSERT E-O-F
IN RECORD
(Subroutine END CHK)
CATALOG FILE
EXIT
READ
KEYBOARD
YtS
GET NEW
MASS(ES)
(Subroutine
M ASSET)
READ
KEYBOARD
CHANGE
NUMBER OF
POINTS
(Subroutine NPNTS)
ABORT
EXIT
RETURN
FIGURE 11. FLOW CHART FOR KEYBOARD MONITOR
24
-------
Yes
[Open file]
Search file;
get minimum
and maximum
values
Plot mass
curve
(smoothed plot)
No
I Get response [
Yes
[Print "?~
EH
Advance plotter
: 3 inches
Return plotter
to overlay plots
FIGURE 12. FLOW CHART FOR OFF-LINE PLOTTING PROGRAM
25
-------
SECTION VI
SYSTEM PERFORMANCE
This section describes system operation and presents results obtained J.n
this laboratory.
The SIM programs are called as USER programs on the System 1,50. A typical
dialogue for a SIM data acquisition follows with operator responses under-
lined: (Each response is followed by a carriage return).
SYSTEM 150 IS ON SELECT MODE: USER
LOAD FILE: SIMSCN
CALIBRATION FILE: CAL-H
MASS(ES): 243.209.279.292
INTEGRA. TIME: 100
ANOTHER SET7N
NO. POINTS: 5,
RUN TIME: 30
TITLE: GC-MS(CI-CH4) OF PESTICIDE MIXTURE
SCALE FACTOR: 50
DATA FILE NAME: N-l
DATA
A sample of the plotting program dialogue is given below:
SYSTEM 150 IS ON SELECT MODE: USER
LOAD FILE: SIMPLT
FILE? N-l
CHANGE PEN (CR)
CHANGE PEN £CR)
CHANGE PEN £CR)
CHANGE PEN (CRl
26
-------
The SIM technique is especially well-suited to analysis of very small
quantities of known materials. Since the analysis is based on only a
few ions, sensitivity is gained at the expense of the specificity of a
complete mass spectrum. However, since it is generally intended for
use in gc/ms, retention times provide additional confirmation of identity.
Chemical ionization (CI) mass spectrometry is especially suitable for SIM
because it is generally more sensitive than electron impact (El) mass
spectrometry and because CI spectra usually show less fragmentation than
El spectra. Accordingly, the development work on this project has been
done with CI mass spectrometry. Four pesticides have been studied in
the evaluation of SIM.
The El and CI (Clfy) base peaks for these pesticides are tabulated below:
Pesticide M/E
El CI
DDT 235 243
DDD 235 209
Dieldrin 79 279 (243 is 50% of 279)
Parathion 292 292
The spectra of the chlorinated pesticides show significant fragmentation
under CI conditions, but better sensitivity is obtained with CI than El
conditions. El and CI spectra for p,p'-DDT are shown in Figure 13.
Figure 14 shows SIM plots for CI gc/ms of the four pesticides, 0.04 ng of
DDT, 0.1 ng of parathion, 0.2 ng of dieldrin, and 0.2 ng of DDD. Signal-
to-noise levels for these chromatograros have not been determined accurately
but are approximately:
Pesticide S/N
DDT 15:1
Dieldrin 10:1
DDD 1241
Parathion 30:1
27
-------
o
o
ut
OL
UJ
(O
CD
o S-
UJ
O
UJ
u
cc
UJ
Q.
H—Jl
.pUtll
El
U
100
ISO
200
o
o
UJ
0.
CD
U.
O
UJ
o
oc
Ul
Q.
W-
.ilL
290
300
Cl (CH
350
100
ISO
200
250
300
M/e
380
FIGURE 13. ELECTRON IMPACT AND CHEMICAL IONIZATION
MASS SPECTRA OF DDT
-------
a -0.04 ng DDT b-0.2 ng Dieldrin
c-0.2 ngDDD
d-O.lngParathion
FIGURE 14. SIM PLOTS FOR CI GC/MS OF PESTICIDES
Carrier Gas: Methane 30 ml/min
Column Temperature: 175-250° C @ 10° C/min
Column: 6 ft. x 2 mm glass, 3 percent
OV-17 on Gas-Chrom. Q
29
-------
Using methane CI gc/ms the best results so far have been obtained with
Parathion and DDT. The limit of detectability for DDT is about .01 ng
(10 pice grams) and about 0.002 ng (2 picograms) for Parathion. Precise
limits of detectability have not been determined for either. For elec-
tron impact gc/ms the detectability limits are higher.
Figure 15 shows a CI gc/ms SIM plot for a mixture of 1 ng each of DDT,
ODD, Parathion, and Dieldrin. The real time plot of m/e 243 shows two
peaks. The first peak is for Dieldrin and is about 30 percent of the
second peak (DDT). The reconstructed plot shows the relative retention
of the four pesticides. The plot also indicates that ODD gives the
highest response and Dieldrin, the lowest.
The SIM technique has also been applied to drug analyses using methane
CI. Clarke and Foltz^ ' have used the technique for analysis of morphine
using a reverse isotope technique in which d^ morphine is used as a
carrier. In a comparison study of SIM with some of the commonly used
morphine quantitationsprocedures, TLC, GLC, spectrofluorimetry, radio-
immunoassay, hemaglutination, inhibition, and Auto Analyzer), SIM was
found to be at least as sensitive as the radioimmunoassay (RIA) technique
but more specific. The RIA technique will detect other opiates as well
as morphine, whereas the SIM technique is specific for morphine. Detect-
ability limits have been set at 25 ng/ml ^' for RIA. The SIM technique
detected 5 ng/ml without special attention to the instrumentation. The
lower limit of detection was not determined, but is well below 1 ng/ml.
30
-------
Legend
209 DOD
— 243 DDT
279 Diefdrm
—- 292 Parothion
243
Carrier Gas:Methane, 30 ml/min
Column Temperature:170-250°C,
10°C/min
Column: 4 ft. x 2 mm, glass,
2-1/2 percent DEXSIL
300 on Supelcoport
Real Time Plot
Reconstructed Plot
FIGURE 15. SIM PLOTS OF CI GC/MS OF PESTICIDE MIXTURE, I ng EACH
31
-------
SECTION VII
REFERENCES
1. "Mass Fragmentography. Identification of Ghlorpromazine and its
Metabolites in Human Blood by a New Method", G. G. Hammer, B.
Holmstedt, and R. Ryhage, Anal. Biochem.. 25, 532 (1968).
2. "Mass Spectrometry of Crude Biological Extracts. Absolute
Quantitative Detection of Metabolites at the Submicrogram Level",
A. A. Boulton and J. R. Major, J. Chromatographv, 48, 322-7 (1970).
3. "Rapid Identification of Low-Molecular Weight Compounds in Extracts
of Biological Materials, C. G. Hammar, B. Holmstedt and R. Ketz,
J. Chromatographv. 49, 402-8 (1970).
4. "Determination of Chromium and Beryllium at the Picogram Level by
Gas Chromatography-Mass Spectrometry", W. R. Wolf, M. L. Taylor,
B. M. Hughes, T. 0. Tiernan, and R. F. Sievers, AnaL. Chem.. 44.
616-8 (1972).
5. "Smoothing and Differentiation of Digital Data by a Simplified
Least Squares Procedure", A. Savitzky, and M.J.E. Golay, Anal. Chem.,
8, 1627-38 (1964).
6. "Quantitative Mass Spectral Determination of Morphine in Body Fluid
Extracts", P. A. Clarke and R. L. Foltz, Conference on Stable
Isotopes in Chemistry, Biology and Medicine at Argonne National
Laboratories, Chicago, Illinois, April 1973, Clinical Chemistry.
in press.
i
7. D. Catlin, R. Cleeland, and E. Grunberg, Clinical Chemistry. 19,
216 (1973).
32
-------
SECTION VIII
APPENDICES
A. Lasting of EJatq. Acquisition Program
9. Listing of EAE Prpgram
33
-------
/ERE DEFINITION. PRL8-V7 PAGE 1
/ERE DEFINITION.
/
9001 ERE=1
-------
/SYMSCN
PRLB-V7
PflQE 2
6262
6364
6361
6371
6272
7301
7305
7325
7240
7344
7346
7521
7721
7701
7421
7621
/SVMSCN
/
/THIS PROGRRM IS WRITTEN FOR fl PDF' 8/E
/COMPUTER, FINNIGRN 1015 MRSS SPECTROMETER
/flND fl SVSTEM 159 INTERFACE. THE
/PROGRflM CONTROLS THE MRSS SPECTROMETER
/TO PROVIDE MONITORING OF FROM 1 TO 8
/PEfiKS FOR SELECTRBLE INTEGRRTION TIMES,
/WITH FRftCTIONRL MRSSES PERMITTED. FOR SVSTEMS
/WITH THE KES-E EXTENDED RRITHMETIC ELEMENT, ERE,
/DEFININF ERE«1 DIRECTS RSSEMBLV OF fl PROGRRM USING
/THE ERE INSTRUCTIONS. IF ERE IS NOT DEFINED < OR
/6EFINED ERE=0 > SIMULRTOR ROUTINES WILL BE RSSEMBLED
/THRT DO NOT NEED THE ERE.
/
/WRITTEN BV:
/ MRVNRRD B. NEHER
/ BRTTELLE COLUMBUS
/ 505 KING fl VENUE
/ COLUMBUS, OHIO 43201
/ 614-299-3151 EXT 1693
/
/PLIST CONTROLS LISTING OF THE S. I. PLOTTER
/ROUTINES. IF NOT DEFINED < OR DEFINED ECURL
/TO ZERO ) THESE ROUTINES RRE NOT LISTED. IF DEFINED
/NONZERO, THE PLOTTER ROUTINES RRE LISTED.
/
IFNDEF PLIST
/
/DEFINITIONS FOR 150 INTERFRCE IOTS
MSIC=6362
MS I =6364
SKMI=6361
SKMO*6371
MSO=6372
/CLEflR IBR
/INPUT TO IBR
/SKIP IF NOT RERDV FOR INPUT
/SKIP IF NOT RERDV FOR OUTPUT
/OUTPUT OBR
/MISCELLRNEOUS DEFINITIONS
NL0001=7301
NL0002=7305
NL0003=7325
NL0004=7307
NL7777-7340
NL77?6*7344
NL7775-7346
/ERE DEFINITIONS
SWP«7521
M8RC=7721
MQRR=7701
RCMC=»7421
CRM=7621 'V
/RC*3
/RC»4
/RC=-1
/RC«-2
-------
/SVMSCN
PRL8-V7
PRGE 2-1
*20
IFNDEF ERE < ERE=>0 >
IFZERO ERE <
DP I C= JUS I
DPICSM
DST=JMS I
DSTSM
DLD=JMS I
DLDSM
DCM=JMS I
DCMSM
DRD=JMS I
DRDSM
SRM=JMS I
SflflSM
flSR=JMS I
flSRSM
riuv=jris i
MUVSM
DVI=JMS 1
DV'ISM
LSR=JMS I
LSRSM >
IFNZRO ERE <
7573 DF'IC=757I<
7445 DST=7445
7665 DLD=7665
7575 DCM=7575
7443 DflD=7443
7457 SRM=7457
7415 RSR=7415
7465 MUV=7405
7407 DVI=7407
7417 LSR=7417 >
5600
0200
0400
0412
0601
0613
1000
1400
1401
0606
0404
1200
/SVSTEM 150 DEFINITIONS
/
LINE=5600
MON=400
RERD=MON+12
OPENR=MON+201
OPENW=MON+21I<
WRIT=MON+400
TTVIN=MON-fl000
TTVOUT=MON+1001
CLOSE-MON+206
WRITE=MQN+4
EXEC=MON+600
-------
/SVMSCN
PflL8-V7
PflQE 2-2
00020
00021
00022
00023
00024
00025
00026
00027
00030
00031
00032
00033
00034
00035
00036
00037
00040
00041
00042"
00043
00044
00045
00046
00047
00050
00051
00052
1402
4600
5000
5101
5110
5122
5125
5132
5200
5300
5323
5532
5541
5543
1600
0243
0244
0245
0246
0266
7300
7360
7400
7500
6000
5200
5300
0246
0000
0000
0266
4600
2400
2410
5600
0245
6008
5724
3400
5000
5101
0243
5110
4356
0000
3014
0000
5125
5543
5532
0000
PLOTTR=MON+1802
INPL=4600
PL=INPL+2S0
PLR=INPL+301
GLIES = INPL+31@
TTVT=INPL+322
TTPRI=INPL+325
TTVCR=INPL+332
DEO=INPL+400
DE04=INPL+5@0
GRC=INPL+523
TRRNS=INPL+732
R1=INPL+741
LORD=MON+1200
/STORRGE DEFINITIONS;
PNUM=243
BSET=244
NUMMRS=245
MRSS=6246
TIME=0266
/BUF0
RODVLT=7300
PLTBUF=7360
CMRSS=7400
CRLSET=7500
RBUF0, BUF0
RDEQ, DEO
RDE04, DE04
RDMRSS, MRSS
RDMRS1, 0
RDSTOR, 0
RDTIME, TIME
RINPL, INPL
RINTOF, INTOF
RINTON, INTON
RLINE, LINE
RMRSS1, NUMMRS
RMPPTR, 6060
RSTCRL, SETCRL
RNPNTS, NPNTS
RPL, PL
RPLR, PLR
RPNUM, PNUM
RGUES, CUES
RRGCHR, RCGCHR
RSETT, O
RSTINT, STINIT
fiTIME, 0
RTTPRI, TTPRI
RTTRDI, TTRDI
RTRRNS, TRRNS
BUFLOC, @
/NUMBER OF POINTS PER MRSS.
/NUMBER OF SETS OF MflSSES.
/NUMBER OF MflSSES.
/MflSSES TO BE MONITORED.
/INTEGRATION TIMES.
/1265 WORD BUFFER, STflRTING Cft. 6000.
/SETTINGS FOR MONITORED MflSSES
/SMOOTHING BUFFER.
/PftCKED CRLIBRflTION FILE POINTS -M
/ROD SETTINGS
-------
/SVMSCN
PRLS-V7
PRGE
00653
00054
00055
00056
00057
00060
00061
00062
00063
00064
00065
00066
00067
00070
00071
00072
00073
00074
00075
00076
00077
00100
00101
00102
00103
00104
00105
00106
00107
00110
00111
00112
00113
00114
00115
00116
00117
00120
00121
08122
00123
00124
00125
00126
00127
00130
00131
00132
80133
00134
80135
90136
0000
0606
3617
0000
3472
3075
1200
0000
5640
3565
0000
0000
0000
7722
0000
0000
0000
0000
3662
0000
0244
0000
6573
0601
0613
0031
0000
0000
4000
7360
©412
730©
0000
0000
0000
0000
0000
0000
3151
0000
0000
0000
0000
0000
1400
1401
6800
1000
0404
3512
0009
3667
CBUFF,
CLOSEX,
DIVIDI,
DIVNUM,
DSPF,
ENDCKI,
EXECX,
FRCTOR,
FRCNVI,
HDRBLK,
LMflSS,
LOCMRS,
LOCTIM,
M56,
MRSCTR,
MLEN,
MNMRSS,
MNUM,
MULT I,
NMRSS,
NSET,
NT I ME,
NWORDS,
GPENRX,
QPENWX;
P31,
PTCTR,
PNTLEN,
PLOTT,
PTBUF,
REftDX,
RODLOC,
RODSTT,
SETFLG,
SFfiCT,
SMflSS,
TflDMRS,
TflDTIM,
TCHCKI,
TEMPI,
TMflSS,
TOT I ME,
TOTSET,
TRTIME,
TTRD,
TTWI,
WfllTL,
WfllTX,
WRITEX,
WRTFIL,
WTFLflG,
2ROFLI,
0
CLOSE
DIVIDE
0
SPF
ENDCHK
EXEC
0
FRCNVT
HDBLOK
9
9
0
-56
0
0
0
0
MULT
0
BSET
0
-1205
OPENR
OPENW
31
0
0
PLOTX
PLTBUF
REflD
RODVLT
0
0
0
0
0
0
TCHECK
0
0
0
0
0
TTVIN
TTVOUT
-2000
WRIT
WRITE
WRTDRT
0
ZROFIL
/PLOTTER COMMRNDS
90137
00140
4214
4236
flPENUP,
ftPENDN,
PENUP
PENDN
-------
,'SVMSCN
00141
00142
00142
00144
00145
00146
00147
00150
00151
00152
4227
4246
4255
4264
*r ii i' —•
4302
4211
7260
0000
0000
RCRDN,
flCRUP,
RCHTLF,
RCHTRT,
ftCHLCD,
flCHLCU,
flCHRCD,
SPTEMJF,
EflETPl,
ERETP2,
CRDN
CRUP
CHTLFT
CHTRT
CHLCDN
CHLCUP
CHRCDN
PLTBUF
0
0
PRL8-V7
PflGE 2-4
-------
/SVMSCN
PRLS-V7
PflGE 3
02009
02001
02002
02002
02004
02005
02006
0200?
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030
02031
02032
02033
02034
02035
02036
0203?
02040
02041
02042
02043
02044
02045
02046
02047
02050
02051
02052
02053
02054
02055
02056
02057
02060
02061
62062
82063
82064
02065
2000 *2000
7200 STftRT,
4430
104?
3530
4437
3200
0011
1050
3527
445?
4427
4451
0240
0003
4442
5206
4502
5600
6000
5216
4511
0000
0200
6000
0000
4532
4760
5203
4445
4436
4771
4437
3221
0003
1050
3527
445?
4427
4451
0200
0040
4442
5245
4770
352?
4761
1374
3126
1053
3527
4767
4765
6692
4431
CLfl
JMS I
TflD
DCfl I
JMS I
TEXT1
11
TflD
DCfi I
JMS I
JMS I
JMS I
RflD+40
3
JMS I
JMP
JMS I
LINE
BUF0
JMP
JMS I
0 -r
200
BUF0
0
JMS I
JMS I
JMP
JMS I
JMS I
JMS I
JMS I
TEXT3
3
TflD
DCfl I
JMS I
JMS I
JMS I
RflD
40
JMS I
JMP
JMS I
DCfl I
JMS I
TflD
DCfl
TflD
DCfl I
JMS I
JMS I
I OF
JMS I
flINTOF
flTTPRI
TTWI
flPL
RTTRDI
TTRD
DSPF
fllNPL
flTRRNS
flCUES
STRRT+6
GPENRX
. -5
REftDX
WRITX
flCLBUF
STRRT+3
flSTINT
ftNPNTS
flRNTIM
RPL
flTTRDI
TTRD
DSPF
RINPL
flTRflNS
ftGUES
. ™"O
PLTFCI
TTRD
flRDFIL
M1756
TRTIME
flTTRDI
TTRD
PLOTNI
WTDflTI
ftlNTQN
/TURN MS INTERFPlCE OFF
/ftRM TTV FOR OUTPUT.
/PRINT "CflLIBRflTION FILE:"
/RRM TTV FOR INPUT.
/REflD FILE NRME
/MOVE FILE NfiME.
/SERRCH DIRECTORY
/REflD FILE
/WORDS TO REflD
/STORRGE RRER
/DONE FLRG
/REflD MflSSES flND INTEGRRTIO
/GET NO. POINTS PER PflSS.
/GET MftX. RUN TIME.
/PRINT "TITLE:"
/ENflBLE TTV REflD
/REftD TITLE
/PRINT "??"
/SET PLOT FflCTOR.
/DISflBLE TTV REflD
/SET RUN TIME COUNTER.
/ENflBLE TTV REflD
/INITIRLIZE PLOTTER.
/TURN MS INTERFflCE ON.
-------
/SVMSCN
PRL8-V7
PAGE 3-1
02966
02067
02070
02071
02072
02073
02074
02075
02076
02077
02100
02101
02102
02103
02104
02105
02106
02107
02110
02111
02112
82113
02114
02115
02116
02117
02120
02121
02122
02122
02124
02125
02126
02127
02130
021K1
92122
02122
02124
02125
02126
02127
92140
02141
82142
02142
02144
62145
02146
02147
02150
02151
02152
02153
02154
4762
1020
2034
1375
3101
4536
1020
3025
1072
2272
4421
1074
3364
1025
3034
1523
7041
2071
1120
2046
1112
2044
1446
1126
2126
1126
7510
5227
2124
7410
5442
1274
2126
4763
4772
1424
2424
2024
7420
2424
7100
2024
2046
2071
5214
.2264
5202
1025
2766
2272
5254
4534
0005
5274
1025
RESCAN, JMS
TAD
DC A
TAD
DC A
JUS
BUFSET, TAD
DC A
TAD
DCA
JMS
CVCLE1, TAD
DCA
CVCLE2, TAD
DCA
TAD
CIA
DCA
TAD
DCA
TAD
DCA
MSLOGP, TAD
TAD
DCA
TAD
SPA
JMP
IS2
SKP
JMP
TAD
DCA
MSET, JMS
JMS
TAD
DCA
ISZ
SZL
ISZ
CLL
ISZ
ISZ
ISZ
JMP
ISZ
JMP
TAD
DCA
ISZ
'- JMP
- ' : JMS
5
JMP
RESET, TAD
I
I
•
I
I
I
I
I
I
I
I
I
I
I
DCONTI
RBUF0
AMPPTR
M1285
NWORDS
ZROFLI
RBUF0
ADSTOR
ML EN
BUFEND
AINTON
MNUM
LPOINT
ADSTOR
AMPPTR
TMASS
MASCTR
TADTIM
AT I ME
RODSTT
ASETT
AT I ME
TRTIME
TRTIME
TRTIME
MSET
TOT I ME
ARGCHR
M1750
TRTIME
MSSETI
CHKSTI
AMPPTR
AMPPTR
AMPPTR
AMPPTR
AMPPTR
ATIME
MASCTR
MSLOOP
LPOINT
CVCLE2
RDSTOR
PLOTP1
BUFEND
RESET
WRTFIL
v'f
BUFSET
ADSTOR
/SET STORflGE POINTERS.
/BUFFER START ADDRESS.
/BUFFER LENGTH.
/COUNTER FOR ZEROFIL
/ZERO-FILL BUFFER.
/SET BUFFER POINTER.
/TURN MS INTERFACE ON.
/NO. POINTS PER MfiSS.
/SET BUFFER
/POINTER.
/NUMBER OF MASSES
/NEGATE
/STORE
/GET AND STORE
/TIME ADDRESS.
/GET AND STORE
/SETTING ADDRESS.
/GET INTEGRATION TIME
/ADD 1 SEC. COUNTER.
/GE. 6?
/NO. CONTINUE.
/VES. INCREMENT RUN TIME CO
/TIME LIMIT EXCEEDED?
/VES. EXIT.
/NO. RESET 1 SEC. COUNTER.
/SET INTERFACE
/ADD TO STORED VALUE
/AND STORE.
/INCREMENT POINTER TO MSH.
/OVERFLOW?
/VES.
/INCREMENT POINTER TO NEXT
/INCREMENT TIME POINTER.
/SET OF MASSES DONE?
/NO. DO NEXT ONE.
/ALL POINTS DONE?
/NO. DO ANOTHER POINT.
/BUFFER FULL?
/NO. GET MORE DATA
/VES. WRITE IT OUT.
/START NEXT BUFFER.
/RESET FOR NEXT SET OF POIN
-------
'SVMSCN
PRL8-V7
PflQE 3-2
02155
02156
02157
02160
02161
02162
02162
02164
02165
02166
02167
02170
02171
02172
02172
02174
02175
1106
2025
5201
2200
4222
2600
2420
0000
2142
4425
2222
2457
2417
0000
4400
6020
6572
RCLBUF,
RRDFIL,
DCONTI,
MSSETI,
LPQINT,
WTDRTI,
PLOTP1,
PLQTNI,
PLTFCI,
RRNTIM,
BUFEND,
•CHKSTI,
M1750,
M1205,
TflD PNTLEN
DCfl flDSTOR
JMP CVCLE1
CRLBUF
RDFILE
DCONST
MSSET
0
WTDRTfl
PLOTPT
PLOT IN
PLTFCT
RUNT I M
0
CHKSET
-1750
-1205
/NO. LOCflTIONS PER SET.
/NEXT BUFFER LOCflTION.
2200 PflQE
-------
/SYMSCN
PRL8-V7
PflGE 4
02200
02201
02202
02203
02284
02205
02206
02207
02210
02211
02212
02212
02214
02215
02216
02217
02220
02221
02222
02223
02224
02225
82226
02227
02230
02231
02232
02233
02234
02235
02236
92237
02240
02241
02242
02243
02244
02245
02246
02247
02250
02251
02252
02253
02254
02255
02256
02257
02260
02261
02262
92263
2200
0000
7208
1356
3024
1357
3233
1020
3053
2053
1453
7440
5215
5600
3424
2024
7621
1250
1053
3053
1453
7415
0004
7521
2053
1453
7521
7445
0000
2233
2233
7621
1251
1053
3953
1453
7440
5215
3424
2200
5600
0003
0004
0300
3116
1116
7421
3351
1356
3360
1760
7457
7450
*2200
/CftLIBRftTION
CflLBUF, 0
CLfl
TflD
DCfl
TflD
DC ft
TflD
DCfl
152
TflD
SZfl
JMP
JMP
CBUFF1, DCfl
ISZ
CRM
TflD
TflD
DCfl
TflD
flSR
4
SWP
ISZ
TflD
SWP
DST
flDSET,. 8
ISZ
ISZ
COM
TflD
TflD
DCfl
TflD
SZfl
JMP
DCfl
ISZ
JMP
P3, 3
P4, 4
/SUBROUTINE
CflL IB, Q
DCfl
TflD
flCMC
DCfl
TflD
" DCfl
TflD
SETCfll, SflM
SNft
F:
1
1
1
1
I
I
I
I
TO
I .
•,
ILE POCKING SUBROUTINE.
flDCMflS
flDMflSl
RCRLST
flDSET
RBUF0
CBUFF
CBUFF
CBUFF
CBUFF1
CflLBUF
flDMflSl
flDMflSl
P3
CBUFF
CBUFF
CBUFF
CBUFF
CBUFF
flDSET
fltfSET
'
P4
CBUFF
CBUFF
CBUFF
CBUFF1
ftDMflSl
CflLBUF
CflLBUF
DETERMINE
SMftSS
SMflSS
NPOINT
RDCMflS
RDMRS2
. flDMftS2
\
/GET CRLIBRRTION MflSS
/flDDRESS RND STORE.
/GET VOLTftGE SETTING
/flDDRESS ftND STORE.
/GET BUFFER flDDRESS.
/FIND STORE.
/INCREMENT POINTER.
/GET FIRST MflSS.
/ZERO?
/NO. CONTINUE.
/ERROR RETURN.
/STORE.
/INCREMENT MflSS POINTER.
/CLEflR RC RND MG.
/BUMP POINTER
/BY 3 flND
/STORE.
/PUT FIRST CflL. WORD
/IN flC. SHIFT RIGHT
/4 BITS.
/SWflP RC flND MC.
/INCREMENT POINTER.
/flDD 2ND CflL. WORD.
/PUT BRCK IN ORDER.
/STORE.
/BUMP POINTER BV 2.
/CLEflR flC flND MC.
/BUMP POINTER
/BY 4
/flND STORE.
/GET NEXT MflSS
/VflLUE=0?
/NO. PROCESS
/YES. ZERO MflSS
/UPDflTE RETURN
/RETURN
ROD VOLTRQE SETTINGS.
/STORE MflSS
/PUT MflSS IN MG!
/ZERO POINTER
/GET CflLIBRflTED MflSS STORRQE
/FTDDRESS ftND STORE.
/GET FIRST CflLIBRflTION
/SUBTRflCT FROM STORED
/ftC=@?
-------
/SVMSCN
PRL8-V
PRGE 4-li-
02264
02265
02266
02267
02270
02271
02272
02273
02274
02275
02276
02277
02300
02301
02302
02303
02304
02305
02306
02307
02310
02311
02312
02313
02314
02315
02316
02317
02320
02321
02322
02323
02324
02325
02326
02327
02330
02331
02332
02333
02334
02335
02336
02337
02340
02341
02342
02343
02344
02345
02346
02347
02350
02351
02352
5344
7710
5300
2351
236©
1760
7440
5262
4440
3240
0020
5652
1351
7650
5274
734©
1351
1356
3065
1465
7457
3354
1465
7041
1760
3355
1351
1351
1357
3333
7344
1333
333©
1330
3342
7665
0000
7575
7443
0000
4475
2354
7402
4455
2355
7443
0000
5352
1351
1351
1357
3351
7665
0000
2252
JMP
SPfl CLfl
JMP
ISZ
ISZ
TflD I
SZfl
JMP
SETCR2, JMS I
TEXT7
20
JMP I
SINTRP, TftD
SNfl CLfl
•'? JMP
NL7777
TftD
TflD
DCfl
TflD I
SflM
DCfl
TflD I
Clfl
TflD I
DCfl
TflD
TftD
TflD
DCfl
NL7776
TflD
DCfl
TflD
DCft
DLD
LOWSET, 0
DCM
DftD
HISET, 0
JMS I
INTDIF
HLT
JMS I
MftSDIF
DftD
LOSETI, 0
JMP
DONE, TflD
TflD
TftD
DCft
DLD
NPOINT, 0
ISZ
DONE
SINTRP
NPOINT
RDMflSZ'
flDMflS2
SETCfll
ftPLR
CflLIB
NPOINT
SETCFI2
NPOINT
ftDCMRS
LMflSS
LMftSS
INTDIF
LMflSS
flDMRS2
MflSDIF
NPOINT
NPOINT
flCRLST
HISET
HISET
LOWSET
LOWSET
LOSETI
MULT I
DIVIDI
. +7
NPOINT
NPOINT
RCflLST
NPOINT
CflLIB
/VES. DONE WITH SEflRCH. ': .
/RC>0? CflLIBRflTION Mfl
/NO. INTERPOLflTE.
/VES.. CHECK NEXT POINT.
/INCREMENT POINTER
/GET NEXT CflLIBRRTION PERK.
/ZERO? .
/NO. PROCEED.
/PRINT "MRSS OUTSIDE
/CflLIBRflTION RflNGE. "
/FIRST POINT?
/VES. ERROR.
/RC=-1
/POINTER TO PREVIOUS POINT.
/PREVIOUS CRLIBRRTION MRSS
/SUBTRRCT FROM MRSS TO
/BE CRLIBRRTED RND STORE
/PREVIOUS CRLIBRRTION MRSS.
/NEGRTE
/RDD LRST CRLIBRRTION MRSS
/LRST POINT COUNTER
/STRRT OF ROD CRLIBRRTION F
/RDDRESS OF PREVIOUS SETTING
/flC=-2
/PREVIOUS ROD SETTING RDDR.
/STORE FOR USE LfiTER.
/D. P. LORD
/PREVIOUS ROD SETTING
/D. P. COMPLEMENT
/D. P. RDD LRST
/ROD SETTING
/MULTI PLV BV
/INTERPOLRTION DIFFERENCE
/MULTI PLV OVERFLOW.
/DIVIDE BV DIFFERENCE
/IN MRSSES.
/RDD PREVIOUS SETTING.
/CRLIBRRTION VRLUE IN flC-MG!
/GET LRST VRLUE POINTER.
/RDDRESS OF VRLUE.
/STORE.
/D. P. LORD LRST VRLUE.
/CRLIBRRTION VRLUE NOW IN
/INC. FOR NORMflL RETURN.
-------
/SYMSCN
PRLS-V7
PRGE 4-2
02353
02354
02355
02356
02357
02360
02361
02362
02363
02364
02365
02366
02367
02370
02371
02372
5652
0000
0000
7400
7500
0000
0000
1117
3024
1523
7041
3073
1113
3772
5761
5762
INTDIF,
MRSDIF,
RDCMflS,
RCRLST,
RDMflS2,
/SUBROUT
PRESET,
RQDflDI,
JMP I
0
0
CMRSS
CRLSET
0
INE TO
0
TRD
DCfl
TflD I
CIR
DCfl
TftD
DCfl I
JMP I
RODflDD
CRL IB-
SET POINTER'S
1
TRDMRS
RDMRS1
TMRSS
PINMRSS
RODSTT
RODRDI
PRESET
/SET
BEFORE CRLLING SETCRL.
MRSS POINTER.
2406 PRGE
-------
/SVMSCN
PFIL8-V7
PRQE 5
2460 *2400
••INTERFflCE CONTROL FOR SYSTEM 50/150/258 MflSS
/SPECTROMETER INTERFRCE.
/THESE ROUTINES TURN THE INTERFflCE
/FIXED SflMPLING PERIOD ON RND OFF,RLLOW THE
/TIME REGISTER TO BE LORDED RND RLLOW R DOUBLE
/PRESISION NUMBER TO BE SENT TO THE MflSS SET
/REGISTER.
/THIS SET OF ROUTINES WftS WRITTEN BV:
W. J. FIES
FINNIGflN CORP.
595 N PRSTORIR RVE
SUNNVVRLE, CRLIF.
408-732-0940
/THIS VERSION DRTE : 12--2-71
--'RDflPTED FOR MflSS MONITORING PROGRflM BV:
M. B. NEHER
BRTTELLE MEMORIRL INSTITUTE
/ 585 KING flVENUE
COLUMBUS, OHIO 42201
/TURN INTERFflCE INTERRUPT flND FLftG OFF
/CflLLING SEQUENCE:
02400
02401
02402
02403
02404
02405
02406
02407
0000
7500
6364
7200
1300
6364
7200
560"0
/
/RETURN
INTOF,
/TURN I
JMS
INTOF
IS TO JMS+1
0
CLfl CLL
MSI
CLft
TflD
MSI
CLfl
JMP I
NTERFflCE
K340
INTOF
/SEND ZERO TO LOWER IBR
/SEND COMftND CODE TO UPPER B
/VES. NOW RETURN.
INTERRUPT ftND FLftG ON
/CflLLING SEQUENCE:
02410
02411
02412
02413
02414
02415
02416
02417
02420
02421
02422
02423
02424
02425
02426
02427
0000
7201
6364
7200
1300
6364
7340
3135
3626
1131
3227
2227
5223
5610
4435
00002
/
/RETURN
INTON,
,- INTON1,
£ WCOUNT,
/SEND I
JMS
INTON
IS TO JMS+1
0
CLfl IflC
MSI
CLfl
TflD
MSI
NL7777
DCft
DCft I
TftD
DCft
ISZ
JMP
JMP I
PLOTPT
0
NTEGRftTl
K340
WTFLftG
INTON1
WfllTL
WCOUNT
WCOUNT
. -1
INTON
ON TIME
/SEND 1 TO LOWER IBR
/SEND COMMftND CODE TO UPPER B
/flC^l
/SET WRIT FLRG
/SET UP DELftV.
/DONE?
/NO. WRIT LONGER.
/CflLLING SEQUENCE :
-------
/SVNSCN
PRL8-V7
PflGE 5-1
02439
02431
02432
02433
02434
02435
02436
02437
02446
02441
02442
02443
02444
02445
02446
02447
6 0 0 0
7200
6031
7410
4701
1446
6361
7410
5236
6366
7104
7006
7006
0276
1277
6364
C-:flC>=TIME-l
JMS I TIME
/RETURN IS TO JMS+1
/TIME CRN BE BETWEEN 8060 flND 7777
MSSET, 0
CLft
KSF /CHflR.
SKP
JMS I RDTTV
I flTIME
TftD
SKMI
SKP
JMP
MS1C MSI
CLL RflL
RTL
RTL
flND
TflD
MSI
/SEND MflSS NO. TO
/NUMBER IS STORED
IN KEVBOftRD?
/NO.
/VES. PROCESS IT.
/SET LOWER 8 BITS OF TIME.
/SKIP IF MS IS NOT REftDV
/FOR INPUT.
/CLEflR IBR flND SEND LOWER S
/ROTftTE UPPER BITS OF
/TIME INTO LOWER flC
K17 /MftSK OFF UPPER PflRT OF flC
K240 /FlDD CONTROL CODE
/SEND TO UPPER IBR
INTERFftCE flND GET flMPLITUDE BftCK
IN LOCflTION SPECIFI EC BV flSETT.
/flMPLTD WILL CONTflIN NEW flMPLITUDE ftFTER RETURN.
/IF EXCEDES 0007 7777 OR IS NEGftTIVE flN ERRO
/WILL RESULT IN THE VflLUE SENT TO THE IBR.
02450
02451
02452
02453
02454
02455
02456
02457
02460
02461
02462
02463
02464
02465
02466
02467
02470
02471
92472
02473
02474
02475
02476
02477
02500
02501
02502
92503
02504
7300
1444
6361
7410
5252
6366
2044
7006
7006
7004
0276
3122
1444
2044
0275
7106
7006
1122'
6364
7200
5630
0007
0017
0240
0340
2600
0000
3076
1117
CLft CLL
TflD I
SKMI
SKP
JMP
MS 1C MS
ISZ
RTL
RTL
RflL
flND
DCfl
TflD I
ISZ
ftND
CLL RTL
RTL
.' TflD
MSI
CLfl
JMP I
K7, 0007
K17, 0017
K240, 240
K340, 340
RDTTV, . RDKVBD
/SUBROUTINE TO
MflSSET, 0
DCft
TflD
ftSETT
— £.
I
flSETT
K17
TEMPI
flSETT
flSETT
K7
TEMPI
MSSET
/WflIT FOR IBR FLflG
/CLEflR IBR, SEND LOWER 8 BI
/MflSK
/GET UPPER HflLF.
/MflSK
/ROTflTE INTO POSITION
/flDD TO OTHER PflRT
/SEND TO UPPER IBR
/JUMP TO BflCKGROUND ROUTINE.
REflD MflSSES
•
NMflSS
TflDMflS
/ZERO COUNTER.
/GET ftND STORE STftRT
-------
/SVMSCN
PRL8-V7
PflGE 5-2
82585
02506
02507
02510
02511
02512
02513
02514
02515
02516
02517
02520
02521
02522
02523
02524
02525
02526
02527
025K0
02531
02532
02533
02534
02535
02536
02537
02540
02541
02542
02543
02544
02545
02546
02547
02550
02551
02552
02553
02554
02555
02556
02557
02560
02561
02562
02563
02564
02565
02566
02567 .
02570-'
02571
02572
3066
4437
3224
0005
1050
3527
4457
4427
3527
4421
5335
7000
3466
2066
1422
1070
7640
5331
4463
5340
3466
2066
2076
5316
1076
3523
5702
2302
2302
5702
0000
4437
3231
0007
7340
1120
3067
1523
7041
3100
1050
3527
4457
4427
3527
4421
7000
5372
2067
3467
2100
5362
5743
1467
DCR
JMS I
TEXT4
5
TflD
DCfl I
JMS I
JMS I
DCfl I
NXTMflS, JMS I
JMP
NOP
DCfl I
ISZ
TflD I
TftD
SZfl CLft
JMP
JMS I
JMP
DCfl I
ISZ
ISZ
JMP
LSTMflS, TflD
DCfl I
JMP I
MERROR, ISZ
ISZ
JMP I
/SUBROUTINE TO
TIMSET, 0
JMS I
TEXTS
7
TIMST1, NL7777
TflD
DCfl
TflD I
Clfl
DCfl
TflD
DCfl I
JMS I
JMS I
DCfl I
NXTIME, JMS I
NOP
JMP
ISZ
DCft I
ISZ
JMP
JMP I
SET2, TflD I
LOCMflS
flPL
flTTRDI
TTRD
DSPF
flINPL
TTRD
flDEO
LSTMflS
LOCMftS
LOCMflS
flDE04
M56
. +3
FRCNVI
MERROR
LOCMflS
LOCMflS
NMflSS
NXTMflS
NMflSS
TMflSS
MflSSET
MflSSET
MflSSET
MftSSET
/OF MflSS TflBLE.
/PRINT " MflSS
/DISflBLE TTV REflD
/RETURN OCTflL NUMBER
/END OF LINE.
/STORE NUMBER
/INCREMENT POINTER
/TERMINflTOR.
/DECIMflL POINT?
/NO. flSSUME INTEGER.
/GET OCTflL FRflCTION.
/ERROR RETURN.
/STORE FRflCTION.
/INCREMENT POINTER.
/INCREMENT COUNTER.
/NORMftL RETURN.
REflD INTEGRATION TIMES.
flPL
TftDTIM
LOCTIM
TMflSS
NT I ME
flTTRDI
TTRD
DSPF
flINPL
TTRD
flDEO
SET2
LOCTIM
LOCTIM
NT I ME
NXTIME
TIMSET
LOCTIM
/PRINT "INTEG. TIME:"
/flC=-l
/NEGflTE
/ENflBLE TTV REflD
/REflD INTEGRATION TIME
/DISftBLE TTV REftD
/GET INTEGRATION TIMES
/INCREMENT POINTER
/STORE INTEGRftTION TIME
/INCREMENT COUNTER
/GET NEXT TIME
/FINISHED
/GET TIME
-------
/SVMSCN PRL8-V7 PRGE 5-3
02573 2067 152 LOCTIM /INCREMENT POINTER - -
02574 3467 DCfl I LOCTIM /REPEflT FOR NEXT MRS5
02575 2100 ISZ NTIME /INCREMENT COUNTER
02576 5372 JMP SET2 /DO NEXT ONE
02577 5743 JMP I TIMSET
2690 PflQE
-------
/SYMSCN
PRL8-V7
PflQE 6
2600 *2600
/SUBROUTINE TO INTERPRET TELETVPE
/COMMflNDS DURING OPERflTION.
02600 0000 RDKVBD, 0
02601 6036
02602 3372
02603 4430
02604 1372
02605 6001
02606 4773
02607 1050
02610 3527
02611 1372
02612 1362
02613 7640
02614 5225
02615 5222
02616 4756
02617 6002
02620 4431
02621 5600
02622 4427
02623 6002
02624 5443
02625 1372
02626 1363
02627 7450
02630 5251
02631 1364
02632 7450
02633 5300
02634 1365
02635 7450
02636 5351
02637 1366
02640 7450
02641 5255
02642 1367
02643 7450
02644 5265
02645 1370
02646 7650
02647 5261
02650 5216
02651 6002
02652 4537
02653 6001
02654 5461
KRB /REflD TTV KEVBOftRD.
DCfl STORE
JMS I RINTOF /TURN MS INTERFflCE OFF
TflD STORE
ION
JMS I flTTVT /ECHO.
TflD flTTRDI
DCft I TTRD /ENFIBLE TTV REftD.
TflD STORE
TftD MEE /MINUS E.
SZfl CLfl /IS CHflRflCTER E?
JMP CHflNGE /NO.
JMP<. STOP /VES. TERMINflTE RUN.
RDK1, JMS I CRLF /PUT OUT CRLF.
END, IOF
JMS I flINTON /TURN MS INTERFflCE ON.
JMP I RDKVBD
/ROUTINE TO TERMINflTE DflTfl flCCUISlTIQN
/flND STflRT PLOTTING.
STOP, JMS I ftlNPL /WflIT FOR CR.
IOF
JMP I flRGCHR
CHflNGE, TflD STORE
TflD MCNTRL /MINUS CONTROL-L.
SNfl /IS IT CONTROL-L?
JMP flBORT /VES. flBORT.
TflD MESS /MINUS S.
SNfl /IS CHflRflCTER S.
JMP SCHflNG /VES.
TflD MTEE /MINUS T.
SNft /IS CHflRflCTER T?
JMP TCHflNG /VES.
TflD MEN /MINUS N.
SNft /IS CHflRflCTER N?
JMP NCHflNG /VES.
TflD MEM /MINUS M.
SNfl /IS CHflRflCTER M?
JMP MCHflNG /VES.
TflD MEFF /MINUS F.
SNfl CLfl /IS CHflRflCTER F?
JMP FCHflNG /VES.
JMP RDK1 /NO. IGNORE.
flBORT, IOF
JMS I flPENUP /RftlSE PLOTTER PEN
ION
JMP I EXECX / flND RETURN TO EXEC.
/CHftNGE NUMBER OF POINTS USED IN
/COMPUTING RUNNING flVERflGE.
02655 1260^NCHflNG, TflD NCHRET /RETURN flDDRESS.
02656 3436'*
02657 5757
DCfl I flNPNTS .
JMP I ftNPNTl /CHftNGE NO. POINTS.
-------
/SVWSCN
02660 2666
02661 1264
02662 3761
02663 5769
02664 2617
PflLS-V?
PflGE 6-1
NCHRET, MCHfll
/CHRNGE PLOT SCRLE FflCTOR.
FCHRNG, TfiD FCHRET /RETURN ftDDRESS.
DCfl I flPLTFC
JMP I flPLTFl /CHRNGE PLOT FflCTOR.
FCHRET, END
/CHftNGE MftSSES TO MONITOR.
/ENTRY OF NEW SETS OF MflSSES DURING OPERflTION
/POSSIBLE WITH THE NON EflE VERSION UNLESS THE
/IS FILTERED TO CflLL FRCNVT RS FlN OVERLflV.
MCHflNG,
IFZERO ERE <
IS NOT
PROGRRM
02665
02666
02667
82670
02671
02672
02673
02674
02675
02676
02677
02700
02701
02702
02703
02704
02705
02706
02707
02710
02711
02712
02713
02714
02715
02716
02717
02728
02721
02722
02723
02724
02725
02726
02727
02730
02731
02732
02733
02734
4445
4460
7070
6001
4464
6002
4431
1050
3527
5677
2066
2700
4427
4421
4442
5300
3477
1477
7041
1125
7700
5314
4442
5300
3527
7340
1477
3371
1371
7450
5327
7421
7405
3065
7521
1112
3113
1371
7450
5340
7421
JMP END
IFNZRO ERE <
JMS I
MCHfll, JMS I
7070
ION
JMS I
I OF
JMS I
TflD
DCfl I
JMP I
RESCflN
SCHfiNG*.
MCHR3, JMS I
JMS I
JMS I
JMP
DCfl I
TflD I
Clfl
TflD
SMfl CLfl
JMP
JMS I
JMP
MCHR4, DCfl I
NL7777
TflD I
DCfl
TflD
SNfl
JMP
flCMC
MUV
P20
SWP
MCHflS, TflD
DCfl
TRD
SNfl
JMP
flCMC
>
ftSTINT
ENDCKI
HDRBLK
flINTON
flTTRDI
TTRD
. +1
flINPL
flDEO
flGUES
MCHflS
NSET
NSET
TOTSET
MCHfl4
flGUES
MCHR3
TTRD
NSET
SDIFF
SDIFF
MCHR5
»
RODLOC
RODSTT
SDIFF
MCHR6
>/REINITIflLIZE POINTERS.
/WRITE NEW HERDER BLOCK.
/TURN MS INTERFACE ON.
/ENftBLE TTV REflD,
/REflD SET NO.
/TRV RGfllN.
/NUMBER TOO LflRGE?
/NO. NUMBER OK.
/PRINT "??"
/TRV RGfllN.
/DISflBLE TTV REflD.
/FIC=-1
/GET SET NO.
/NO. >1?
/NO. ! USE FIRST SET.
/PUT IN MG!
/PUT RNSWER IN ftC
/STflRT OF VOLTflGE flRRflV
/STflRT OF THIS SET
/SET NO. >1?
/NO. USE FIRST SET.
/PUT IN MG
-------
/SVMSCN
PRL8-V7
PflGE 6-2
82735
02726
02737
0274©
02741
02742
0274K
02744
02745
02746
02747
02750
02751
02752
02753
02754
02755
02756
02757
02760
02761
02762
02763
02764
02765
02766
02767
02770
02771
02772
02773
02774
7405
0104
7701
1026
3120
1371
745©
5346
7721
1033
3123
5266
1260
3755
5754
2547
2543
5132
3405
3464
3457
7473
7564
7671
7777
0006
0001
0007
0000
0000
5122
5541
MCHR6,
MCHfl7,
/CHflNGE
TCHfiNG,
FIT I MSI,
TIMSTI,
CRLF,
fiNPNTi,
flPLTFl,
fiPLTFC,
MEE,
MCNTRL,
MESS,
MTEE,
MEN,
MEM,
MEFF,
SDIFF,
STORE,
flTTVT,
TELRD,
MUV
P31
MCflR
TflD
DCfl
TflD
SNfl
JMP
MGflC
TflD
DCfl
JMP
/F
flDTIME /<
TflDTIM /«
SDIFF
/<
MCHR7 S\
/£
RMflSSl /<
TMflSS /t
MCHfll
INTEGRflTION TIMES.
TftD
DCfl I
JMP I
TIMSTI
TIMSET
TTVCR
NPNTS1
PLTFC1
PLTFCT
-305
-214
-107
-1
6
1
7
0
0
TTVT
Rl
NCHRET
TIMSTI /(
RTIMS1
/214-322
/32K-324
/324-K16
/316-315
/315-307
/PUT RNSWER IN RC.
/STRRT OF 1ST TIME RRRRV.
/STRRT OF THIS SET OF TIMES.
/SET NO. >1?
/NO.
/GET OFFSET FROM MG.
/STflRT OF MflSS TflBLE.
:. OF NO. MRSSES.
/CHflNGE RETURN flDD.
-------
/SVMSCN
PRL8-V7
PflGE 7
3 0 0 0
*3000
/SUBROUTINE FOR
INITIftL
/MftSSET flND TIMSET.
0Ii:@00
02001
0:5082
03003
03004
03005
03006
03007
03010
03011
03012
03013
03014
03015
03016
03017
03020
03021
03022
.03023
03024
03025
03026
03027
03030
03031
03032
03033
03034
03025
03036
03037
03040
03041
03042
03042
03044
03045
03046
03047
03050
02051
02052
03053
03054
03055
03056
03057
02060
03061
03062
03062
0000
1023
3117
1026
3120
1033
3123
1112
3113
7301
3477
5600
0000
4200
4662
4664
4425
4442
5216
1477
1266
7700
5253
4437
2205
0006
4662
5225
5252
2477
1117
1104
2117
1120
1104
2120
1122
1104
2122
1112
1265
2112
5216
7200
1477
2125
4200
1050
2527
5614
2502
2547
PTRS, 0
TflD
DC ft
TftD
DCft
TftD
DCfl
TftD
DCft
NL8001
DCft I
JMP I
STINIT, 0
JMS
SET, JMS I
JMS I
JMS I
JMS I
JMP
TflD I
TftD
SMft CLft
JMP
JMS I
TEXT12
6
. JMS I
JMP
JMP
152 I
TftD
TftD
DCft
TftD
TflD
DCft
TflD
TftD
DCft
TflD
TflD
DCfl
JMP
SETDON, CLfl
TftD I
DCfl
JMS
TflD
DCft I
JMP I
flMSSET, MflSSET
flCUERV, CUERV
ftDMftSS
TftDMftS
ftDTIME
TftDTIM
RMflSSl
TMftSS
RODLOC
RODSTT
NSET
PTRS
PTRS
FlMSSET
ftTMSET
fiSTCftL
RGUES
SET
NSET
M3ST
SETDON
ftPL
flCUERV
. +2
SETDON
NSET
TflDMflS
P21
TftDMftS
TflD TIM
P31
TflDTIM
TMflSS
P31
TMflSS
RODSTT
P20
RODSTT
SET
»
NSET
TOTSET
PTRS
flTTRDI
TTRD
STINIT
I ZING POINTERS PRIOR TO CflLL
/1ST MFISS STORftGE LOC.
•'1ST TIME STORftGE LOC.
.--'LOC. FOR NO. MftSSES.
/ftC=l
/FIRST SET OF MftSSES.
/MINUS 2
/NSET=3?
/VES.
/PRINT "ftNOTHER SET?"
/CHftNGE POINTERS FOR NEXT S
/INCREMENT NO OF SETS.
/INCREMENT
/MftSS flND
/TIME
/POINTERS
/BV
/21
/NO MORE SETS.
/NO. OF SETS OF MflSSES.
/ftRM TTV
/FOR INPUT.
-------
/SVMSCN
PRL8-V7
PRGE 7-1
03064
83865
83866
03067
03078
83071
03872
83873
83874
2543
0020
7775
0000
3434
2034
2181
5270
5667
flTMSET,
P20,
M3ST,
/SUB ROUT
/SUBROUT
ZROFIL,
ZR1,
TIMSET
20
-3
INE TO
INE TO
8
DCfl I
ISZ
ISZ
JMP
JMP I
/SUBROUTINE TO
83875
83876
83077
03100
03101
03102
03103
03104
03105
03106
03107
03110
03111
03112
03113
87114
83115
03116
83117
83128
83121
83122
83123
83124
03125
03126
03127
83138
8J131
83132
e:;:i33
83134
83135
83136
83137
03140
03141
03142
03143
83144
83145
83146
0000
3333
1025
3034
1034
1342
1341
2333
7540
5303
7648
5327
1333
1348
7458
5317
2333
5327
4534
0005
1020
3034
7301
3333
7344
3101
2034
1675
3434
4534
0000
1020
3034
2275
5675
7773
7577
2000
0000
4437
3211
0002
ENDCHK,
ENDC1,
0
DCft
TflD
DCfl
TflD
TflD
TflD
ISZ
SMft SZ
JMP
WRITE, E-O-R FLflG ON DISK OR TflPE.
ZERO-FILL
flMPPTR
flMPPTR
NWORDS
ZR1
ZROFIL
BUFFER.
/DONE?
/NO.
END RECORDS.
NBLOCK
RDSTOR
flMPPTR
flMPPTR
M6880
M281
NBLOCK
fl
ENDC1
SZfl CLft
ENDC2,
NBLOCK,
M5,
M201,
M6080,
WTDftTft,
JMP
TflD
TflD
SNfl
JMP
152
JMP
JMS I
5
TflD
DCft
NL8001
DCfl
NL7776
DCfl
ISZ
TflD I
DCfl I
JMS I
0
TflD
DCft
152
JMP I
-5
-201
-6008
0
JMS I
TEXT 2
2
ENDC2
NBLOCK
M5
. +3
NBLOCK
ENDC2
WRTFIL
RBUF6
flMPPTR
NBLOCK
NWORDS
flMPPTR
ENDCHK
flMPPTR
WRTFIL
flBUF8
flMPPTR
ENDCHK
ENDCHK
ftPL
/ZERO BLOCK COUNTER.
/RESET BUFFER RDDRESS TO
/STflRT OF CURRENT SET
/OF MflSSES.
/RMPLITUDE BUFFER STftRT.
/INCREMENT BLOCK COUNTER.
/DONE?
/NO. DO MORE. ":-
/VES. ftNV ROOM LEFT IN BLOC
/VES.
/NO.
/5 BLOCKS?
/VES.
/NO. BUMP BLOCK COUNTER
/WRITE OUT FILE
/RESET POINTER
/flC=l
/SET BLOCK COUNTER FOR WRITE
/ftC=-2
/ONLV 2 WORDS TO ZERO OUT.
/GET E-O-R CHRRRCTER.
/STORE E-O-R CHRR.
/RESET BUFFER LOCRTION
>
/PRINT "DfiTfi"
-------
/SVMSCN
PRL8-V7
PflGE 7-2
03147 4427
03150 5743
JMS I
JMP I
flINPL
WTDflTfi
/WRIT FOR RESPONSE
03151
03152
02153
03154
03155
03156
03157
03160
03161
03162
03163
03164
03165
03166
03167
03170
03171
03172
03173
0000
1764
0362
7640
5751
1763
7640
5356
5751
0004
0402
0170
0314
1723
0540
9522
2217
2241
0000
/SUBROUTINE
TCHECK, 0
TRD
RND
SZR
JMP
TflD
SZfl
JMP
JMP
P4IN, 4
BFLRG, 482
CONFIG, 178
TEXT16, TEXT
TO CHECK TftPE STflTUS.
I CONFIG
P4IN
CLft /TflPE?
I TCHECK
1 BFLflG
CLfl /DONE?
•-i
. c.
I TCHECK
/CONFIGURATION WORD.
/MflSK OFF DISK-TflPE BIT.
/NO. DISK. RETURN.
/VES. GET BflCKSPflCE FLflG
/NO. WRIT.
/VES. RETURN.
/CLOSE ERROR!/
-------
/SYMSCN
PRL8-V7
PflGE 8
02280
63201
83202
03203
03204
03205
03206
0320?
03210
03211
03211
03212
03213
03214
03215
03216
03217
03220
03221
03221
03222
03223
03224
03224
03225
03226
0322?
03230
03231
03231
03232
03233
03234
03235
03236
0323?
03240
03240
03241
03242
03243
03244
03245
03246
0324?
032-50
03251
53252
03253
3200 *3200
0301 TEXT1,
1411
0222
0124
1117
1640
0611
1405
7240
0000
3211 *. -1
0401 TEXT2,
2401
4006
1114
0540
1601
1505
7240
0000
3221 *. -1
2411 TEXT3,
2414
0572
0000
3224 *. -1
1501 TEXT4,
2323
5005
2351
7240
0000
3231 *. -1
1116 TEXTS,
2405
0722
0156
4024
1115
0572
4000
3240 *. -1
1501 TEXT?,
2323
4017
2524
2311
0405
4003
0114
1102
2201
2411
1716
TEXT /CRLIBRFfTIGN FILE: /
TEXT /DfiTfl FILE NOME: /
TEXT /TITLE:/
TEXT /MflSS: /
TEXT /INTEGRfl. TIME: /
TEXT /MflSS OUTSIDE CftLIEsRflTION RflNGE. /
-------
PRL8-V7
PflGE 8-1
03254
63255
03256
03257
03260
03260
03261
02262
03263
03264
03265
03266
03267
03270
03271
03272
03272
03273
03274
03275
03276
03277
03300
83300
03301
03302
03303
03304
03305
03305
03306
03307
03310
03311
03312
03313
93213
03314
03315
03316
93317
03326
03321
03322
4022
0116
0705
5640
0000
3260 *. -1
0425 TEXTS, TEXT /DUPLICflTE FILE NflME ! /
2014
1103
0124
0540
0611
1405
4016
0:115
0541
0000
3272 *. -1
1617 TEXTS, TEXT /NO. POINTS: /
5640
2017
1116
2423
7240
0000
3300 *. -1
2225 TEXT10, TEXT /RUN TIME: /
1640
2411
1505
7249
0000
3305 *. -1
0116 TEXT12, TEXT /flNOTHER SET?/
1724
1005
2240
2305
2477
0000
3313 *. -1
2302 TEXT15, TEXT /SCflLE FflCTOR: /
0114
0540
0601
0324
1722
7249
0000
/SUBROUTINE TO
/SUBROUTINE TO
02222 0009 PLOTIN, 8
02224 6802 IOF
03225 7240 NL7777
02226 4567 JMS I PLOTT
SET POINTERS FOR SETCflL.
INITIflLIZE PLOTTER.
/RC=-1
/SET NEW
ORIGIN
-------
/SVMSCN
63327
93336
93331
63332
03333
03334
03335
03336
03337
03340
03341
03342
03343
03344
03345
03346
03347
03350
03351
03352
03353
03354
03355
03356
03357
03360
03361
03362
03363
03364
03365
03366
03367
03370
03371
7301
4507
0000
6030
7340
4507
7301
4587
0000
0100
7340
4587
4540
1753
7041
3105
1118
3052
6881
5723
4571
8888
8888
7734
8811
8854
0105
8124
8131
0124
8105
8854
8811
7734
8655
PRL8-V?
PflGE 8-2
NSMOTI,
NL8001
JMS I
8
-175©
NL7777
JMS I
NL0001
JMS I
0
100
NL7777
JMS I
JMS I
TRD I
Clfl
DCfl
TRD
DCfl
ION
JMP I
NSMOOT
TOTflL, 0
0
SVTGLV, -44
11
54
105
124
131
124
105
54
11
-44
655
PLOTT
PLOTT
PLOTT
PLOTT
flPENDN
NSMOTI
PTCTR
PTBUF
BUFLOC
PLOT IN
/SET flC=l
/DRIVE PLOTTER PEN DOWN TO
/X OX IS
/flO-1
/SET NEW ORIGIN
/SET RC=1
/RfllSE PEN 1" flBOVE
/X flXIS.
/SET NEW ORIGIN.
/LOWER PEN.
/POINTS TO SMOOTH
/NEGftTE
/SET POINT COUNTER.
/SET PLOT BUFFER
/ POINTER.
-------
/SVMSCN
PflL&'-V?
PfiGE 9
03400
02401
03402
03403
03404
03405
03406
03407
03410
03411
03412
03413
03414
03415
03416
0341?
03420
03421
03422
03423
03424
03425
03426
03427
03430
03431
03432
03433
03424
03435
03436
03427
03440
3400
0000
4437
3272
0006
445?
4427
4421
4442
5280
3441
4241
7410
5600
4442
5201
0000
443?
3300
0005
4457
4427
4421
4442
5223
7521
7200
7405
3440
7521
7041
2124
5617
0074
*3400
/SUBROUTINE
NPNTS, 0
JMS
TO
I
SET NUMBER OF POINTS FOR ftVERfiGING.
flPL
/PRINT "NO. POINTS: "
TEXTS'
6
JMS
NPNTS1, JMS
JMS
JMS
JMP
DCfl
JMS
SKP
JMP
JMS
JMP
/SUBROUTINE
RUN TIM, 0
JMS
I
I
I
I
I
I
I
TO
I
DSPF
ftlNPL
ftDEO
ftCUES
NPNTS
flPNLIM
DIVSET
NPNTS
flGUES
NPNTS+1
/REftD NUMBER OF' POINTS.
/PRINT "??"
/TRV flGfllN.
/PRINT "??"
SET MflXIMUM RUN TIME
flPL
/PRINT "RUN TIME: "
TEXT10
5
RUNTM1, JMS
JMS
JMS
JMS
JMP
SWP
CLft
MUV
P74
SWP
Clfl
DCfl
JMP
P74, 74
I
I
I
I
I
DSPF
flINPL
flDEO
flCUES
RUNTM1
TOTIME
RUNT I M
/REflD RUN TIME.
/TRV flGfllN.
/PUT PRODUCT IN flC
/NEGflTE
/ftND STORE
i
/MULTIPLIER TO CONVERT TIME
/TO SECONDS.
03441
03442
03442
02444
02445
03446
0244?
62450
02451
02452
02452
02454
02455
02456
03457
02460
0000
1441
7041
2074
1441
7421
7405
2251
7440
5641
7521
2056
2241
5641
0000
4437
/SUBROUTINE
DIVSET, @
TflD
Clfl
DCfl
TflD
flCMC
MUV
P4
SZfl
. . JMP
SWP
DCft
ISZ
JMP
/SUBROUTINE
PLTFCT, 0
JMS
TO
I
I
I
I
TO
I
CflLCULftTE
flPNUM
MNUM
flPNUM
*
DIVSET
DIVNUM
DIVSET
DIVSET
SET PLOT
flPL
DIVISOR FOR flMPLITUDE SCR
*
/OVERFLOW. NUMBER TOO LflRGE
/SET PROPER RETURN
SCftLING FflCTOR
/PRINT "SCftLE FflCTOR:"
-------
/SVMSCN
PRL8-V7
PflGE 9-1
03461
03462
03463
03464
03465
03466
0346?
03470
03471
03472
03473
03474
03475
03476
03477
03500
03501
03502
03503
03504
03505
03506
03507
03510
03511
03512
03513
03514
03515
03516
03517
03520
03521
03522
03523
03524
03525
03526
0352?
03530
03531
03532
03533
03534
03535
03536
03537
03540
03541
03542
03543
03544
03545
3313
0007
445?
4427
4421
4442
5264
3062
5657
0000
7200
1306
3311
1032
3307
1310
370?
2307
2311
5300
5672
7760
0000
4040
0000
0000
1712
2312
7421
7405
3546
7430
7402
7521
3335
1335
7041
3101
1020
3034
4430
6001
4533
0000
0000
6000
0000
4532
7200
4521
6002
4536
5712
TEXT15
7
JMS I
PLTFC1, JMS I
JMS I
JMS I
JMP
DCfl
JMP I
/SPftCE FILL PRI
SPF, 0
CLfl
TflD
DCfl
TflD
DGft
SPF3, TflD
DCR I
ISZ
ISZ
JMP
JMP I
SPF1, 7760
SPF2, ©
SPF4, 4040
SPF5, 0
/SUBROUTINE TO
WRTDfiT, 0
TflD I
ISZ
flCMC
MUY
P201
SZL
HLT
SWP
DCfl
TflD
Clfl
DCfl
TflD
DCfl
JMS I
ION
JMS I
0
WRTNUM, 0
BUF©
0
JMS I
CLfl
JMS I
IOF
JMS I
JMP I
DSPF
flINPL
flDEO
flSUES
PL-TFC1
FflCTOR
PLTFCT
NT BUFFER
SPF1
SPF5
flLINE
SPF2
SPF4
SPF2
SPF2
SPF5
SPF3
SPF
'• . I
/REflD SCflLE FflCTOR
/DEC I MRL-OCTRL CONVERT
/ERROR
/TRY RGfllN
/RPT COUNT
/TEMP STORRGE
/STORflGE flDDR
/SPRCE FILL
/STORE
/UPDflTE STR flDDR
/FINISHED?
/NO
/YES-RETURN
/-20 OCTflL
WRITE DflTfl RECORDS.
WRTDflT
WRTDflT
WRTNUM
WRTNUM
NWORDS
RBUF0
ftMPPTR
flINTOF
WRiTEX
WfllTX
TCHCKI
ZROFLI
WRTDflT
/GET NO. BLOCKS.
/PUT IN MG
/MULTIPLY BY 201.
/ERROR?
/PRODUCT TO flC
/COUNT F@OP PZER FILL.
/SET POINTER FOR
/FOR ZROFIL.
/NO. WORDS TO WRITE
/RDDRESS.
/DONE FLflG
/ZERO-FILL BUFFER
-------
/SVMSCN
PRL8-V7
PflGE 9-2
03546
9254?
03550
03551
03552
03553
03554
03555
03556
03557
03560
03561
03562
03563
03564
03565
03566
03567
03570
03571
03572
03573
03574
03575
03576
0201
0000
1050
3527
4427
3527
1432
0364
1363
7650
5747
2347
574?
4700
7700
0000
4533
0000
0200
0200
0000
4532
7200
4521
5765
P201, 201
GUERV, 0
TflD
DCfl
JMS
DCfl
TflD
ftND
TftD
SNfl
JMP
1 52
JMP
VNEG, 4709
P7700, 7700
/SUBROUTINE
HDBLOK, 0
JMS
0
200
RflD
0
JMS
CLfl
JMS
JMP
I
I
I
I
CLfl
I
I
TO
I
I
I
I
flTTRDI
TTRD
flINPL
TTRD
flLINE
P770S
VNEG
GUERV
GUERV
CUERV
WRITE H
WRITEX
WfllTX
TCHCKI
HDBLOK
/GUESTI ON SUBROUTINE.
/ENftBLE TTV REflD.
/REftD ftNSWER.
/DISftBLE TTV INPUT
/GET flNSWER
/MflSK OFF FIRST 6 BITS
/SUBTRflCT "V"
/POSITIVE RETURN.
/NEGftTIVE RETURN.
WRITEX /WRITE TflPE HEflDER BLOCK.
/NO. WORDS.
/WRITE SfftRT flDDRESS.
/DONE FLflG
-------
/SYMSCN
PRL.8-V7
PflGE 19
83600
03601
03602
03603
03604
03605
03606
03607
03610
03611
03612
03613
03614
03615
03616
3600
0000
1523
7104
3106
1216
7421
7407
0106
7430
7402
7521
7041
3072
5600
1205
"0 CRLCULRTE CONSTRNTS FOR DRTR RCQUISI
03617
03620
03621
03622
03623
03624
03625
03626
03627
03630
03631
-03632
03633
03634
03635
03636
03637
03640
03641
03642
03643
03644
03645
03646
93647
83650
03651
03652
03653
03654
03655
0000
4320
7521
3260
1617
3261
1661
4336
3261
7407
3661
7430
7402
7521
3262
1260
7521
7407
3661
7430
7402
7104
7841
1261
7750
5253
1262
5255
1262
7573
2217
I TMRSS
RRL
PNTLEN
P1205
/GET NO. OF MftSSES.
/MULTIPLY BV 2.
*• s.
/MRX. BUFFER LENGTH
/PUT IN MQ
*3600
/SUBROUTINE
DCONST, 0
TflD
CLL
DCR
TRD
RCMC
DVI
PNTLEN
SZL
HLT
SWP
Clfl
DCR
JMP I
P1205, 1205
/ERE ROUTINE TO DIVIDE UNSIGNED DOUBLE PRECISIION
/DIVIDEND BY UNSIGNED SINGLE PRECISION DIVISOR
/CflLLING SEQUENCE:
/ flC CONTRINS HIGH ORDER DIVIDEND.
/ WC CONTRINS LOW ORDER DIVIDEND.
MLEN
DCONST
/DIVIDE ERROR.
/QUOTIENT TO RC.
/NEGRTE
/NUMBER
/RETURN.
OF SETS OF POINTS.
DIVIDE,
JMS I
DIVISOR
0
JMS
SWP
DCR
TflD I
DCR
TflD I
JMS
DCR
DVI
DIVI2 -
SZL
HLT
SWP
DCR
TflD
SWP
DVI
DIVI2
SZL
HLT
CLL RRL
Clfl
TRD
SPfl SNfl
JMP
TflD
JMP
TflD
DP 1C
(DIVIDE)
flDDRESS
SIGN1
DIVI1
DIVIDE
DIVI2
DIVI2
SIGN2
DIVI2
DIVI3
DIVI1
DIVI2
CLfl
DIVI3
DIVI3
DIVIDE
/PUT MSH DIVIDEND IN MQ.
/STORE LSH DIVIDEND
/GET flDDRESS OF
/DIVISOR flND STORE.
/GET DIVISOR
/RND STORE.
/DIVIDE ERROR
/MSH TO RC, REM TO MG.
/STORE MSH QUOTIENT
/GET LSH DIVIDEND
/PUT IN PROPER ORDER.
/DIVIDE ERROR
/MULT I PLV REMfllNDER BV 2
/ flND NEGflTE.
/flDD DIVISOR.
/DIVISOR. GE. REMfllNDER?
/NO.
/VES. GET MSH QUOTIENT.
/INCREMENT QUOTIENT.*
-------
/SVMSCN
PRLS-V?
pfiGE
03656
03657
4344
5617
JMS
JMP I
/QUOTIENT IN
03660
03661
03662
0000
0000
0000
DIVIi,
DIVI2,
DIVI3,
/ERE MUL
/MULT I PL
0
0
0
TIPLV
IES D
SIGN 3
DIVIDE
RC-MG ON
ROUTINE.
OUBLE PRE
/BV SINGLE PRECISION M
03663
03664
03665
03666
03667
03670
03671
03672
03673
03674
03675
03676
03677
03700
03701
03702
03703
03704
03705
03706
03707
03710
03711
03712
03713
03714
03715
03716
03717
03720
03721
03722
03723
03724
03725
©3726
03727
03730
03731
0 0 @ 0
4320
3260
1663
3261
1661
4336
3261
1260
7450
5307
7521
3260
7405
3661
7440
7402
1260
7521
3260
7405
3661
7430
5315
1260
2263
2263
4344
5663
3660
3661
0000
7500
5331
7575
3260
7340
3335
1260
5720
3260
/PRECIS I
/CRLLING
/
i-'
MULT,
MULT0,
^
MULT1=DI
MULT2=DI
SIGN1,
SIGNCL,
ON PRODUCT IN
RETURN, MSH IN RC.
CIS I ON MULTIPLICRND IN MQ-flC
U L T I F' L. I E R . R E T' U R M S D 0 U E' L. E
R C - M Q . H r L. T S 0 N r''! U L T I F' L V 0 V E
SEQUENCE:
JMS
JMULT
0
JMS
DCR
TflD I
DCfl
TflD I
JMS
DCR
TflD
SNft
JMP
SWP
DCR
MUV
MULT 2
SZR
HLT
TRD
SWP
DCfl
MUV
MULT 2
SZL
JMP
TflD
ISZ
ISZ
JMS
JMP I
VII
VI 2
0
SMfl
JMP
DCM
DCfl
NL777
DCfl
TRD
JMP I
DCfl
IPLIER RD
SIGN!
MULTI
MULT
MULT2
MULT2
SIGN2
MULT2
MULTI
MULT0
MULTI
MULTI
MULTI
4-3:
MULTI
MULT
MULT
SIGN3
MULT
.
SIGNCL
DIVI1
7
SIGN
DIVI1
SIGN1
DIVI1
DRESS
/STORE MSH.
/GET MULTIPLIER
/RD DRESS.
/NOW GET MULTIPLIER
/ RND STORE IT.
/GET E'RCK MSH
/D. P. ?
/NO.
.-•'MSH TO MG>.
.-•'STORE LSH
/MUL TIPLV MSH.
/MUL TIPLV OVERFLOW.
/GET LSH MULTIPLICRND RND
/PUT IN MQ, PRODUCT TO RC.
/STORE MSH PRODUCT.
/MULT I PL V LSH.
/OVERFLOW ERROR.
/NOW RDD MSH PRODUCT
/SET UP NORMRL RETURN.
/ERROR RETURN.
/NEGRTIVE?
/NO.
/VES. COMPLEMENT.
/RC=-1
/SET SIGN SWITCH=-1
/STORE OPERRND.
-------
/SYMSCN
PRL8-V7
PRGE 10-2
83732
83733
83734
03735
03736
03737
03740
03741
03742
03743
03744
03745
03746
03747
03750
03751
03752
83753
03754
03755
3335
1260
5720
8808
8800
7508
5736
7041
2335
5736
8888
3260
1335
7648
5353
1268
5744
1260
7575
5744
DCR
TRD
JMP
SIGN, 8
SIGN2, 8
SMfi
JMP
CIR
ISZ
JMP
SIGN3, 8
DCfl
TRD
SZR
JMP
TfiD
JMP
TflD
DCM
JMP
/ ONE OF THE
IFZERO ERE <
LSRSM, 8
DCfl
TRD
ISZ
SZR
JMP
TRD
JMP
CIR
DCR
TflD
LSRLP, CLL
SWP
RRR
SWP
ISZ
JMP
JMP
SIGN
DIVI1
I SIGN1
*
I SIGN2
SIGN
I SIGN2
DIVIi
SIGN
CLfl
. +3
D I V 1 1
I SIGN3
DIVII
I SIGN3
/CL.ERR SIGN SWITCH.
/GET BRCK OPERRND.
/RETURN.
-
/NEGRTIVE?
/NO.
/VES. NEGRTE.
/INCREMENT SIGN SWITCH
/STORE MSH RNSWER.
/CHECK SIGN.
/ZERO.
/NO.
/GET BRCK MSH RNSWER.
/COMPLEMENT RNSWER.
-
ERE SIMULRTOR ROUTINES.
EflETPl
I LSRSM
LSRSM
+ 3
ERETPi
I LSRSM
ERETP2
EflETPl
RRR
ERETP2
LSRLP
I LSRSM >
/SflVE RC
/GET NUMBER OF SHIFTS
/NO SHIFTS?
/RESTORE flC
/COMPLIMENT
/RESTORE flC
/ROTflTE MSH 1 BIT
/GET LSH
/ROTflTE
/DONE?
/NO
-------
/SVMSCN
PAL8-V7
PflQE 11
IFZERO PLIST /RESET IF NOT LISTING PLOTTER ROUTINES.
/SUBROUTINE TO GET DfiTfl FILE NflME AND
/DETERMINE WHETHER THERE IS ALREADV A FILE
/BY THflT NflME ON THE SYSTEM DEVICE.
04222
04223
04324
04225
04226
0422?
04220
04221
04222
04222
04224
04225
04226
04227
04240
04241
04242
04242
04244
04245
04246
04247
04250
04251
04252
0,4252
04254
04255
04256
0425?
94360
04361
04362
04363
04364
04365
04366
0436?
04370
04371
04372
84373
04374
04375
04376
0437?
0000
4437
3211
0010
1050
2527
4457
442?
3527
4503
5600
6000
5344
4440
3260
0012
4442
5326
4451
4353
0003
5242
7000
4464
5722
0000
6000
0000
0000
4460
7171
4420
4527
6001
4454
4353
5600
0000
7-410
5376
4521
4440
3165
0006
4521
5461
RDFILE, 0
JMS I
TEXT2
10
RDF1, TflD
DCfl I
JMS I
JMS I
DCfl I
JMS I
LINE
BUF0
JMP
JMS I
TEXTS
12
JMS I
JMP
JMS I
RDF2
2
JMP
NOP
JMS I
JMP I
RDF2, 8
0
0
RCGCHR, 0
JMS I
7171
JMS I
JMS I
ION
JMS I
RDF2
LINE
0
SKP
JMP
JMS I
JMS I
TEXT16
6
TERMIN, JMS I
JMP I
flPL
flTTRDI
TTRD
DSPF
flINPL
TTRD
OPENWX
. +6
RPLR
flGUES
RDF1
ftTRRNS
. -5
HDRBLK
RDFILE
ENDCKI
flINTOF
ftPENUP
CLOSEX
TERM IN
TCHCKI
APLR
TCHCKI
EXECX
/PRINT "DflTft FILE NflME:"
/ENflBLE TTV REflD.
/READ FILE NflME.
/DISABLE TTV READ.
/DOES FILE EXIST;-
/FILE NOME ADDRESS.
/PRINT "DUPLICATE FILE NflME
-
/PRINT "??"
/TRY AGAIN.
/MOVE FILE NflME
/ERROR RETURN.
/INSERT RECORD END.
/EOF FLAG.
/TURN OFF MS INTERFACE.
/RAISE PLOTTER PEN.
/CLOSE FILE
/ERROR RETURN
/PRINT "CLOSE ERROR!"
*
-------
/SVMSCN
PRL8-V7
PRGE 14
4400 *4400
/SUBROUTINE TO HRNDLE DRTR DURING M. S.
/INTERFRCE INTEGRflTION.
04400
94401
04462
844Q3
64404
04405
04406
0440?
04410
04411
04412
04413
04414
04415
04416
0441?
04420
04421
04422
04423
04424
04425
04426
04427
04430
04431
84432
04433
04434
04435
04436
04437
04440
04441
04442
04443
84444
04445
04446
04447
04450
04451
04452
04453
04454
04455
04456
04457
04460
04461
04462
04463
0000
1135
7518
5273
1235
7658
5265
1114
7658
5234
3114
1371
7041
7881
3372
1158
3386
1158
7001
3387
1787
3786
2372
7418
5234
2386
2387
5224
7665
0008
4475
8062
7482
4455
8856
7721
3452
3235
2185
7418
5253
2852
5265
4318
7368
3268
4507
8888
0008
225?
7348
3185
CHKSET, 8
TRD
SPfl
JMP
TRD
SNfl CLR
JMP
TRD
SNR CLfl
JMP
DCR
TRD
CIR
IRC
DCR
TRD
DCR
TRD
IRC
DCR
RLOOP, TRD I
DCR I
ISZ
SKP
JMP
ISZ
ISZ
JMP
DLD
PLOTPT, 8
JMS I
FRCTOR
HLT
JMS I
DIVNLIM
MCRC
DCR I
DCR
ISZ
SKP
JMP
ISZ
JMP
SMOOTH, JMS
PLTBUF
DCR
y JMS I
PLOTPX, 8
PLOTPV, 8
ISZ
NL7777
DCR
WTFLRG ,i
t
WRIT2
PLOTPT
<
WRIT1
SETFLG
i
PLQTPT-1,
SETFLG ,
NSMOOT ,
CTR
SPTBUF
PTBUF8
SPTBUF
PTBUF1
PTBUF1
PTBUF0 ,
CTR
PLOTPT-1
PTBUF0
PTBLIF1
RLOOP
MULT I
DIVIDI
BUFLOC
PLOTPT
PTCTR
SMOOTH
BUFLOC
WRIT1
FIT
PLOTPV
PLOTT
PLOTPX
PTCTR
./GET WRIT
/USE THIS
/NO.
FLRG
POINT?
/POINT TO PLOT?
/NO.
/TIME TO MOVE POINTS?
:i. CRLCULRTE POINT.
/CLERR FLflG.
/GET NO POINTS TO SMOOTHS
/SET COUNTER <-NSMGOT+l>
/GET VRLLIE.
/MOVE IT DOWN.
/DONE?
/NO.
/MULTIPLV OVERFLOW.
/STORE IT.
/ZERO PLOT POINT RDD.
/ENOUGH POINTS TO SMOOTH?
/NO.
/VES.
/BUMP STORRGE POINTER.
/CflLL SMOOTH ROUTINE.
/RRRRV RDD.
/PLOT POINT.
/RC--1
/RESET COUNTER.
-------
/SVMSCN
PftL8-V7
PflGE 14-1
04464
04465
04466
04467
04470
04471
04472
04473
04474
04475
04476
04477
04500
04501
04502
04503
04504
04505
04506
04507
04510
04511
04512
04513
04514
04515
04516
64517
04520
04521
04522
04523
04524
04525
04526
04527
04538
04531
04532
04533
04534
04535
04536
04537
04540
04541
04542
04543
04544
84545
04546
2114
6371
7410
5265
7100
6372
5600
6371
7410
5273
6372
7344
1044
3044
2135
7000
5705
2114
0000
0000
0000
1710
3373
2310
1371
7041
3372
1375
3374
7621
7445
3354
1773
7421
1374
3331
4475
0000
7402
7443
3354
7445
3354
7621
2373
2374
2372
5324
1374
3351
7665
WfllTl;
WRIT2,
ISZ
SKMD
SKP
JMP
CLL
MSO
JMP I
SKMO
SKP
JMP
MSO
NL7776
TflD
DCfl
ISZ
NOP
JMP I
SETFLG
-2
CHKSET
-2
flSETT
flSETT
WTFLflG
. 4-1
/SET FLflG.
/M. S. REflDV FOR OUTPUT?
/VES.
/NO. WRIT LONGER.
/LINK MUST BE CLEflRED.
/OUTPUT OBR.
/RETURN.
/MS REflDV FOR OUTPUT?
/VES.
/NO WflIT LONGER.
/OUTPUT OBR.
/fiC--2
/RESET VOLTflGE flRRfiV
/ftDDRESS.
/BUMP FLflG
MSLOOP
PTBUF0, 0
PTBUF1, 0
/SftVITZKV-GGLflV SMOOTHING ROUTINE.
/THIS VERSION SMOOTHS 11 POINTS.
/FIRST POINT TO SMOOTH IN CflLL+1.
/SMOOTHED POINT RETURNED IN ftC, SINGLE PRECISION.
FIT, 0
SMLOOP/
SML1,
TflD I
DCfl
ISZ
TflD
Clfl
DCfl
TflD
DCfl
CflM
DST
TOTflL
TflD I
flCMC
TRD
DCfl
JMS I
0
HLT
DflD
TOTflL
DST
TOTflL
CftM
ISZ
ISZ 4
ISZ
JMP
TflD
DCfl
DLD
FIT
SMflDD /STftRTING ftDDRESS.
FIT
NSMOOT
. CTR' /SET UP POINT COUNTER.
flFftCT
FflCT
SMflDD
/INTENSITV TO MG.
FflCT
SML1
MULT I /CflLL MULT I PL V ROUTINE.
,
• SMflDD /INCREMENT flDDRESSES.
* FflCT
CTR /DONE?
SMLOOP /NO.
FftCT
SML2
/VES. GET TOTflL
-------
/SYMSCN
04547
04550
04551
04552
04553
04554
04555
04556
04557
04560
04561
94562
04563
04564
94565
04566
04567
04570
04571
04572
04573
04574
04575
3354
4455
0000
7500
5356
7621
5710
7440
7402
1370
7457
7710
5366
1370
5710
7721
5710
1700
0013
0000
0000
0000
3356
TOTflL
JUS I
SML2, 0
SMfl
JMP
CflM
JMP -I
SZfl
HLT
TflD
SflM
SPfl CLfl
JMP
TflD
JMP I
MCflC
JMP I
P1700, 1700
NSMOOT, 13
CTR, 0
SMftDD, 0
FflCT, 0
flFflCT, SVTQLV
PRL8-V7 PflGE 14-2.
DIVIDI /CflLL DIVIDE ROUTINE.
. +3
FIT
P1790
PI 7 00
FIT
FIT"
/flC. GE. 0?
/VES. ;
/NO. SET=0!
/EXIT
/ftC=0?
/NO. OVERFLOW ERROR.
/TOO LftRGE?
/NO.
/VES.
/VES. GET QUOTIENT
/ RND RETURN.
-------
/SVMSCN
PRL8-V7 PflGE 15
/THE REST OF THE ERE SIMULflTOR ROUTINES
IFZERO
*5645
MUVSM,
MP4,
MP3,
MP5,
THIR)
DVISM,
DV3,
EftE <
0
CLft CLL
SWP
DCft
TftD I
DCfl
TflD I
DCfl
ISZ
DCfl
TflD
DCfl
TflD
RftR
DCft
TflD
SNL
JMP
CLL
TflD
RftR
DCfl
ISZ
JMP
TftD
RftR
SWP
TftD
JMP I
0
0
7764
0
DCfl
SWF
DCft
TflD I
DCfl
TflD I
Clfl
DCfl
CLL
TftD
TftD
ISZ
SZL CLft
JMP I
TflD
DCfl
JMP
TflD
EflETPl
MUVSM
ERETP2
ERETP2
ERETP2
MUVSM
MP5
THIR
MP3
EftETPl
EftETPl
MP5
. +J
ERETP2
MP5
MP3
MP4
EflETPl
MP5
MUVSM
EflETPl
ERETP2
DVISM
DIVSOR
DIVSOR
DIVSOR
DIVSOR
EflETPl
DVISM
DVISM
MDV13
DIVCNT
DV2
EftETPl
/SINGLE PRECISION UNSIGNED MULP
/GET MULTIPLIER
/STORE
/GET flDDRESS OF MULT.
/MULTIPLICAND
/UPDflTE REURN
/LOW ORDER PRODUCT
/TO MC
/HIGH ORDER PORDUCT
/UNSIGNED S. P. DIVIDE
/STORE MSH
/GET LSH
/STORE
/GET DIVISOR flDDRESS
/flCTURL DIVISOR
/COMPLIMENT
/STORE
/CHECK FOR OVERLOW
/OVERFLOW
-------
/SVMSCN
PRL8-V7
PflGE 15-1
DV2,
D1VSOR,
DIVCNT,
MDV13,
DCMSM,
DLDSM,
BUF0=.
RflL
DCfl
TflD
TflD
SZL
DCfl
CLfl
TflD
RftL
DCfl
ISZ
JMP
TflD
SWP
TflD
CLL
JMP I
0
0
-15
0
DCfl
SWP
CMfl CLL
SWP
GLK
TflD
Clfl
JMP I
0
CflM
TflD I
DCfl
152
DftD
0
JMP I
EftETPl
EflETPl
DIVSOR
EflETPl
EFIETP2
ERETP2
DIVCNT
DVK
ERETP2
EftETPl
DVISM
EflETPl
CML IRC
EflETPl
DCMSM
DLDSM
+3
DLDSM
DLDSM
/CUOTIENT
/TO MG
/STORE . MSH
/GET LSH TO flC
/COMPLIMENT flC SET LINK TO ZERO
/IF flC WRS ZERO
/GET LINK BIT
/flDD TO MSH
/COMPLIMENT
/CLEflR Rfl, MG
/GET flDDRESS
/UPDRTE RETURN
/DOUBLE flDD TO fl CLEflR flC, MG
*BUF0+1205
DflDSM,
•
flSRSM,
0
DCR
TflD I
DCR
ISZ
CLL
, SWP
TflD I
SWP
GLK
ISZ
TRD I
TflD
JMP I
0
DCfl
EflETPl
DftDSM
EflETP2
DflDSM
ERETP2
EflETF'2
ERETP2
EflETPl
DflDSM
EflETPl
/STORE flC
/GET flDDRESS OF LSH
/STORE
/UPDftTE RETURN
/SWflP MG, flC
/LSH<1>+LSH<2>
/PUT IN MG
/GET CflRRV BIT
/MSH flDDRESS
/MSH<1>+MSH<2>
/DONE.
/STORE MSH
-------
/SVMSCN
PRL8-V7
PRGE 15-2
)
flSRSMl,
RSRSM2,
RSRSM3,
DSTSM,
SflMSM,
V
DPICSM,
TflD
AND
DCR
TflD I
DCR
ISZ
TflD
RND
LSR
0
DCR
TflD
CLL RflL
TflD
TRD
JMP I
4800
0
3777
0
DCfl
TflD I
DCfl
MGIRR
DCfl I
ISZ
I.SZ
TRD
DCfl I
TflD
JMP I
0
Clfl
DCfl
CLL
MG'RR
TflD
JMP I
0
SWP
CLL
IflC
SWP
SZL
IflC
JMP I
EflTPl
ftSRSMl
RSRSM2
flSRSM
. +5
flSRSM
EflETPl
RSRSM3
EftETPl
RSRSM2
EflETPl
RSRSM2
flSRSM
EflETPl
DSTSM
EftETF'2
ERETP2
ERETP2
DSTSM
EflETPl
ERETP2
EflETPl
DSTSM
EflETPl
EflETPl
SflMSM
•
DPICSM
/NUMBER OF SHIFTS
/UPDRTE RETURN
/GET SIGN
/INTO LINK
/RESTORE SIGN
/STORE MSH IN TEMPORflRV
/GET LSH STORflGE ADDRESS
/MG TO ftC, MG! UNCHRNGED.
/UPDftTE RETURN
/MSH
/STORE
/RESTOR RC
/DONE
/COMPLIMENST flC
/STORE
/MG TO flC, MG! LINCHflNGED
/flDD COMPLIMENT
/DONE
/LSH TO flC.
/BE SURE L IS CLEflR.
/INC. LSH.
/PUT BflCK IN ORDER.
/OVERFLOW OF LSH INC. ?
/VES. INC. MSH.
-------
PRL8-V7
PflGE 16
IFZERO ERE < *6400 >
5649 IFNZRO ERE
.--'DECIMRL TO OCTflL FRftCTION CONVERSION ROUTINE.
/THIS ROUTINE IS OVERLflID BV THE DflTfl BUFFER
/IN THE NON ERE VERSION. THEREFORE, NEW SETS
/MftSSES CflNNOT BE ENTERED DURING fl RUN UNLESS
/THE PROGRflM IS CHRNGED TO CRLL FRCNVT RS
/RN OVERLRV WHEN NEEDED.
OF
95648
05641
05642
05643
05644
05645
0 5 6 4 6
0564?
05650
05651
05652
05652
05654
05655
05656
0565?
05660
05661
05662
05663
05664
05665
05666
05667
05670
05671
05672
05673
05674
05675
05676
05677
85700
05781
05792
05763
05704
05705
05706
05787
05710
0000
3313
3314
4?23
5301
1315
7540
5305
1316
7510
5305
3312
1313
1222
3257
7402
1317
1320
1321
7421
7405
5712
7721
1214
3214
2313
7246
1212
7750
5242
4421
5205
7900
7200
2240
1214
5640
7299
1212
7648
5201
FRCNVT, 0
DCR
DCfl
FRCN1, JMS I
JMP
TRD
SMfl SZfl
JMP
TRD
SPR
JMP
DCfl
TRD
TfiD
DCfl
FRCN2, HLT
TftD
TfiD
TftD
flCMC
MUV
FRCFCT
MCflC
TflD
DCft
IS2
NL7775
TRD
SPR SNft
JMP
JMS I
JMP
NOP
FREXIT, CLfl
ISZ
TfiD
JMP I
FREXT1, CLfl
TflD
SZfi CLfl
JMP
FRNCTR
FRTEMP
RGflC
FREXIT
M71
FREXT1
Nil
FREXT1
FRCFCT
FRNCTR
FRNJMP
. +1
TENS
HUNDRS
THOUS
FRTEMP
FRTEMP
FRNCTR
FRNCTR
CLft
FRCN1
flDEO
. +6
FRCNVT
FRTEMP
FRCNVT
FRNCTR
FREXIT
/GET fl CHflRftCTER.
/NO MORE CHflRflCTERS.
/GT. 71<9>?
/NO.
/GE. 60 C0>?
/NO.
/CHRNGED TO JUMP.
/PUT IN M<2.
/GET RNSWER.
/PREV. TOTflL.
/NEW. TOTRL.
/flC=-3
/1ST OR 2ND CHftR?
/VES. TRV flNOTHER.
/NO. GET REST, IF ftNV
/END OF LINE.
/INCREMENT RETURN.
/GET NUMBER.
/NORMftL RETURN.
/ftNV CONVERSION?
/VES.
-------
/SVMSCN
PRL8-V7
PflGE 16-1
05711
05712
05713
05714
05715
05716
05717
05720
05721
05722
05723
05724
05725
05726
05727
05730
05731
05732
05733
05734
05735
05736
05737
05740
05741
05742
05743
05744
05745
05746
05747
05750
05751
05752
05753
05754
05755
05756
05757
05760
05761
05762
05763
05764
05765
05766
05767
05770
05771
05772
05773
05774
05775
564©
0000
0000
0000
7707
0011
0554
0052
0004
5260
5323
0000
4777
1424
4776
5375
7445
3354
2024
7621
1424
7440
5343
7665
3354
5361
3115
1116
7001
4776
5375
7575
7443
3354
7575
7405
0115
7421
7443
3354
7445
0000
7621
2073
7.410
5373
2362
2362
2024
5326
2324
2324
5724
FRCFCT,
FRNCTR,
FRTEMP,
M71,
Nil,
TENS,
HUNDRS,
THOUS,
FRNJMF,
flGflC,
/SLIBROUT
/FOR NON
SETCflL,
JMP I
&
0
0
-71
11
554
52
0004
JMP
GflC
INE TO
FRCNVT
/0632-00
/@856-@0
FRCN2+1
CflLCULflTE
-INTEGER MflSSES.
0
JMS I
TflD I
JMS I
PRSET I
flDMflSl
ftCftL I B
JMP SETERR
SETC1,
SETC2,
RODftDD,
i « -
NORRET,
SETERR,
DST
TOTftL
ISZ
CflM
TflD I
SZft
JMP
DLD
TOTflL
JMP
DCfl
TftD
IflC
JMS I
JMP
DCM
DflD
TOTflL
DCM
MUV
SFflCT
fiCMC
DftD
TOTflL
DST
0
CflM
ISZ
SKP
JMP
ISZ
isz
ISZ
JMP
ISZ
ISZ
JMP I
flDMftSl
flDMflSl
SETC1
SETC2
SFflCT
SMflSS
flCflLIB
SETERR
i
MNMflSS
NORRET
RODflDD
RODflDD
flDMRSl
SETCflL+2
SETCftL
SETCftL
SETCflL
/ERROR RETURN.
ROD VOLTRGE SETTINGS
/SET POINTERS.
/GET INTEGER MflSS.
/CflLCULftTE SETTING.
/INCREMENT POINTER.
/GET FRflCTIONftL MftSS.
/FRflCTIONftL MftSS?
/V'ES.
/NO.
/GET INTEGER MftSS ftND
/INCREMENT.
/CftLCULflTE M+l SETTING.
/NEGfiTE.
/SUBTRftCT PREVIOUS
.-- VflLUE.
/NEGflTE TO MflKE POSITIVE.
/MULTIPLV BV FRflCTIONftL
/ MflSS.
/PUT RESULT IN MG.
/flDD IN LOWER MftSS
/ VftLUE.
/D. P. STORE
/DONE?
/INCREMENT POINTER.
/NORMflL RETURN
-------
/SVMSCN • PRL8-V7 PfiQE 16-2
85776 2252 RCflLIB, CflLIB
65777 2261 PRSETI, PRESET
-------
/SYMSCN
PfiLS'-V?
PRGE 17
RBORT
RBUF0
flCflLIB
RCRLST
flCHLCD
flCHLCU
RCHRCD
RCHTLF
flCHTRT
RCLBUF
RCMC
RCRDN
RCRUP
RDCMRS
flDEO
RDE04
RDMRSS
RDMRS1
RDMRS2
RDPLTW
RDSET
RDSTQR
RDTIME
RFRCT
RGRC
RINPL
RINTQF
fllNTON
flLINE
RMRSS1
RMPPTR
RMSSET
RNPNTS
RNPNT1
RPENDN
RPENUP
RPL
RPLR
RPLTFC
RPLTF1
RPNUM
RQUERV
RQUES
RRDFIL
RRGCHR
RRNTIM
RSETT
RSR
RSTCRL
RSTINT
RTIME
RTIMS1
RTMSET
RTRRNS
RTTPRI
2651
0323
5776
2357
0145
0146
0147
0143
0144
2160
7421
0141
0142
2356
0021
0022
0023
0024
2360
4175
2233
0025
0026
4575
5723
0027
0030
0031
0032
0033
0034
3062
0036
2757
0140
0137
0037
0040
2761
2760
0041
3063
0042
2161
0043
2171
0044
7415
0035
0045
0046
2754
3064
0051
0047
RTTRDI
RTTVT
BFLRG
BSET
BLIFEND
BUFLOC
BUFSET
BUF0
CflLBUF
CflLIB
CRLSET
CRM
CBUFF
CBUFF1
CHflNGE
CHKSET
CHKSTI
CHLCDN
CHLCP1
CHLCUP
CHLC1
CHRCDN
CHRC1
CHTLFT
CHTL1
CHTRT
CHTR1
CLOSE
CLDSEX
CMRSS
CGMPRR
CONFIG
CRDN
CRDN1
CRLF
CRUP
CRUP1
CTR
CVCLE1
CVCLE2
DRD
DCM
DCONST
DCONTI
DEO
DE04
DIVIDE
DIVIDI
DIV11
DIVI2
DIVI3
DIVNUM
DIVSET
DLD
DONE
0056
2773
3163
0244
2172
0052
2074
6000
2200
2252
7500
7621
0053
2215
2625
4400
2173
4273
4310
4302
4381
4311
4317
4255
4263
4264
4272
0606
0054
7400
4147
3164
4237
4245
2756
4246
4254
4572
2101
2103
7443
7575
3609
2162
5200
5300
3617
0055
3657
3660
3661
0056
3441
7665
2344
DP 1C
DSPF
DST
DVI
EflE
EflETPl
ERETP2
END
ENDCHK
ENDCKI
ENDC1
ENDC2
EXEC
EXECX
FflCT
FflCTOR
FCHflNG
FCHRET
FIT
FRCFCT
FRCNVI
FRCNVT
FRCN1
FRCN2
FREXIT
FREXT1
FRNCTR
FRNJMP
FRTEMP
GRC
HDBLOK
HDRBLK
HISET
HUNDRS
INPL
INTDIF
INTOF
INTON
INTON1
K17
K240
K340
'K7
LINE
LMRSS
LORD
LOCMRS
LOCTIM
LOSE T I
LOWSET
LPOINT
LSR
LSTMRS
MRSCTR
MRSDIF
7573
0857
7445
7407
0001
0151
0152
2617
3075
0060
3103 '
3127
1200
0061
4574
©062
2661
2664
4518
5712
006K
5640
5643
5657
5701
5785
5713
5722
5714
5323
3565
0064
2333
5720
4600
2354
2400
2410
2426
2476
2477
2506
2475
5680
0065
1600
0@66
0067
2342
233©
2164
7417
2535
0071
2355
MRSS
MRSSET
MCHRNG
MCHfll
MCHR3:
MCHR4
MCHR5
MCHR6
MCHR7
MCNTRL
MEE
MEFF
MEM
MEN
MERROR
MESS
MLEN
MNMRSS
MNLIM
MON
MGflC
MGRR
MSET
MSI
MS 1C
MSLOOP
MSO
MSSET
MSSETI
MTEE
MULT
MULT I
MULT0
MULT1
MULT2
MUV
M1265
M1758
M201
M3ST
M5
M56
M6000
M71
NBLOCK
NCHflNG
NCHRET
NL0001
NL8002
NL0003
NL@004
NL7775
NL7776
NL7777
NMRSS
0246
2502
2665
2666
27&&
2714
2727
2740
2746
2763
2762
2778
2767
2766
2540
2764
0072
0073
0074
0400
7721
7701
2127
6364
6362
2114
6372
2430
2163
2765
3662
0075
3706
3657
3660
7405
2175
2174
3141
3066
3140
0070
3142
5715
3133
2655
2660
7301
7385
7325
7367
7346
7344
7346
0876
-------
/SVMSCN
PRL8-V7
PRGE 17-1
NORRET
NPNTS
NPNTS1
NPOINT
NSET
NSMQQT
NSMOTI
NT I ME
NUMMflS
NWORDS
NXTIME
NXTMRS
Nil
QPENR
OPENRX
OPENW
OPENWX
PENDN
PENUP
PEN1
PEN2
PEN3
PL
PLIST
PLOTfl
PLOTDB
PLOTDX
PLOTDV
PLOT IN
PLOTMV
PLOTNft
PLOTNI
PLOTNX
PLOTNV
PLOTPN
PLOTPT
PLOTPX
PLOTPV
PLOTP1
PLOTT
PLQTTR
PLOTT1
PLOTT2
PLOTT3
PLOTWT
PLOTX
PLOTZ
PLOT1
PLOT2
PLOT3
PLOT4
PLR
PLTBUF
PLTFCI
PLTFCT
5773
3490
3405
2351
0077
4571
3353
0100
0245
0101
2562
2516
5716
0601
0102
0613
0103
4230
4214
4222
4223
4236
5000
0000
4020
4117
4172
4173
3323
4176
4174
2167
4170
4171
4167
4435
4457
4460
2166
0107
1402
4130
4133
4136
4200
4000
4320
4027
4063
4104
4126
5101
7366
2170
3457
PLTFCI
PLTWT1
PNTLEN
PNUM
PRESET
PRSETI
PTBUF
PTBUF0
PTBUF1
PTCTR
PTRS
P1205
P1700
P20
P201
P3
P31
P4
P4IN
P74
P7700
GUERV
CUES
RRD
RCGCHR
RDFILE
RDF1
RDF2
RDKVBD
RDK1
RDTTV
REflD
RERDX
RESCRN
RESET
RLOOP
RODflDD
RGDRDI
RODLOC
RODSTT
RODVLT
RSTRC
RUNT I M
RUNTM1
Rl
SRM
SCHRNG
SDIFF
SET
SETCflL
SETCfll
SETCR2
SETC1
SETC2
SETDON
3464
4206
0106
0243
2361
5777
0110
4506
4507
0105
3000
3616
4570
3065
3546
2250
0104
2251
3162
3440
3564
3547
5110
0200
4356
4322
4326
4353
2600
2616
2501
0412
0111
2066
2154
4424
5762
2372
0112
0113
7300
4224
3417
3423
5541
7457
2700
2771
3016
5724
2262
2274
5743
5761
3053
SETERR
SETFLG
SET2
SFflCT
SIGN
SIGNCL
S'IGNl
SIGN2
.SIGNS
SINTRP
SKMI
SKMD
SMRDD
SMRSS
SMLOOP
SML1
SML2
SMOOTH
SPF
SPF1
SPF2
SPF3
SPF4
SPF5
SPLTBV
SPTBLIF
STflRT
STINIT
STOP
STORE
SVTGLV
SWP
TflDMflS
TflDTIM
TCHfiNG
TCHCKI
TCHECK
TELRD
TEMPI
TENS
TERM IN
TEXT1
TEXT10
TEXT12
TEXT15
TEXT16
TEXT2
TEXT3
TEXT4
TEXTS
TEXT7
TEXTS
TEXTS'
THOUS
TIME
5775
0114
2572 ....
0115
3734
3730
3717
3735
3743
2300
6361
6371
4573
0116
4524
4531
4551
4453
3472
3506
3507
3500
3510
3511
6301
0150
2000
3014
2622
2772
3356
7521
0117
0120
2751
0121
3151
2774
0122
5717
4376
3200
3300
3305
3313
3165
3211
3221
3224
3231
3240
3260
3272
5721
0266
TIMSET
TIMSTI
TIMST1
TMftSS
TOTflL
TOT I ME
TOTSET
TRflNS
TRTIME
TTPRI
TTRD
TTRDI
TTWI
TTVCR
TTVIN
TTVOUT
TTVT
WRIT
WRITL
WfllTX
WftlTl
WRIT2
WCOUNT
- WRITE
WRITEX
WRTDRT
WRTFIL
WRTNUM
WTDRTR
WTDRTI
WTFLRG
VNEG
ZROFIL
ZROFLI
ZR1
2543
2755
2547
0123
3354
0124
0125
5532
0126
5125
0127
5543
0130
5132
1400
1401
5122
1000
0131
0132
4465
4473
2427
0404
0133
3512
0134
3535
3143
2165
0135
3563
3067
0136
3070
-------
/ERE DEFINITION. PRL8-V7 PAGE 1
/ERE DEFINITION.
/
0001 EflE-1
-------
/SIMPLT.
PRL8-V7
PflGE 2
/SIMPLT.
/THIS PROGRflM PREPflRES NORMflLIZED PLOTS FROM DftTfl FILES
/CREflTED BV THE "SIM" SCflN PROGRflM. IT USES THE STflNDflRD
/SYSTEM 150 PROGRRMS. THIS VERSION REQUIRES fl PDP8/E OR
/8/M BUT INCORPORftTES EflE SIMULflTOR ROUTINES FOR
/SYSTEMS WITHOUT THE KE8-E EXTENDED RRlfHMETIC
/ELEMENT, EflE. FOR SYSTEMS WITH ERE, DEFINE EflE=l TO
/RSSEMBLE fl PROGRflM USING THE ERE.
/PL1ST CONTROLS LISTING OF THE S. I. PLOTTER ROUTINES.
/IF NOT DEFINED < OR SET EGUflL TO ZERO ) THE PLOTTER ROUTINES
/RRE NOT LISTED. IF SET NONZERO, THE PLOTTER ROUTINES flRE LISTED.
IFNDEF PL 1ST
00020
00021
00022
00023
00024
00025
00026
00027
00030
00031
00032
00033
00034
00035
00036
00037
0004.0
00041
00042
00043
00044
00045
00046
00047
00050
00051
00052
00053
00054
00055
00056
00057
7701
6221
7521
7621
0171
7421
0020
6221
3517
3400
7770
0000
0000
0000
0000
4040
0040
3111
0601
0000
0000
0000
0000
3277
3027
7510
0000
0000
0000
0000
0000
0000
0000
6308
3075
0000
0000
0000
7777
MGfl=7701
LINE=6221-
SWP=7521
CRM=7621
RRDD=171
MGL=7421
*20
flLINE, LINE
RPL, PL
flINPL, INPL
M10, -±&
TMP1, 0
TMP2, 8
TMP3, 0
TMP4, 0
BLBL, 4040
P40, 40
flSTORG, SETORG
OPENRX, 601
ORGNUM, 0
TRflDD, 0
0
RBSVRG, 0
flHDRPL, HDRPLT
ftRTORG, RTNORG
flMSADD, 7510
PflSS, 0
FRSFLG, 0
HVMflSS, 8
MSMTCH, 0
INTRVL, 0
MflSNUM, 0
CRTMAS, 0
P6300, 6300
RDINTX, INTRD
NPTS, 0
BGINT, 0
0
LWINT, 7777
-------
/SIMPLT.
PRL8-V7
PftGE 2-1
60060
00061
00062
00063
00064
00065
00066
00100
00101
00102
00103
00104
00105
00106
0010?
00110
00111
00112
00113
00114
00115
00116
00117
00120
00121
00122
00122
00124
00125
00126
00127
00130
00131
00132
00133
60134
60135
00136
3777
0000
0060
2616
2007
0000
2357
0100
0000
0000
0000
0000
0000
6000
0000
0000
0000
6000
0000
0000
0000
0000
0000
4200
4406
4542
4510
4446
4607
4720
4607
007?
7701
0005
0011
0144
7774
7776
7775
3777
SPCflDD, 6
RESET, 6
flVPLT, VRGC
fiXPLT, XRGC
PENUD, 0
RTRNGN, TRNON
*180
/GENERflLIZED PLOTTI
/OF PLOTTING INCREM
/PROGRflM
/VflRIflBLES
X, 0
V, 0
FflCT, 6
NUMB,
LL,
SftDDR, 0
LJ,
THETfl, 0
LXflDDR,
S, 0
LVRDDR,
DX, 0
LIC
XMIN, 0
DTIC,
LN, 6
IX, 6
I V, 6
FIX, 0
flV, 6
BX, 0
BV, 0
/LINKS flNC- POINTERS
flDPLOT, PLOTX
flDPFTCH, PFETCH
RDSBflL, SUBflLF
flDMULT, MULT
flDNEWB, NEWB
flDLTR, LETTER
RC-RTftT, ROTflTE
OUTPUT, LETTER
/CONSTflNTS
N77, 7?
M77, -77
N5, 5
Nil, 11
N144, 144
M4, -4
M2, -2
M3, -2
NO SCflLING DONE BV PLOTTING
-------
/SIMPLT.
PRL8-V7
PflGE 2-<
00067
00070
00071
00072
00073
00074
00075
00076
00077
00137
00140
00141
00142
00143
00144
00145
00146
00147
00150
00151
0067
6042
6056
6065
6074
6103
6112
6200
6207
5646
0137
0412
1000
2351
2676
6032
0000
0000
0237
374©
7763
5400
7431
7445
7663
7443
*67
RPENUP, PENUP
RPENDN, PENDN
RCRDN, CRDN
RCRUP, CRUP
RCHTLF, CHTLFT
flCHTRT, CHTRT
RCHLCU, CHLCUP
RCHRCD, CHRCDN
RDIMDVE, I MOVE
*137
RERDX, 412
WRITX, 1800
RSTMSP, SETMSP
PT-MflSC, PLTMftS
flPLOTW, PLOTWT
CDMflSS, 0
0
P237, 237
MBLBL, -4040
NSMOOT, -15
SMTHX, SMOOTH
IFNDEF EfiE
IFZERO ERE <
SWflB=7000
EflETPl, 0
ERETP2, 0
DST=JMS I
DSTSM
DLD=JMS I
DLDSM
DRD=JMS I
DRDSM
DVI=JMS I
DVISM
DCM=JMS I
DCMSM
MUV=JMS I
MUVSM
LSR=JMS I
LSRSM
SHL=JMS I
SHLSM
DPS2=JMS I
DPSZSM >
IFNZRO ERE <
SWRB=7431
DST=7445
DLD=7663
DflD=7443
-------
/SJMPLT. PRL8-V7 PRGE 2-3
7487 DVI=7497
7575 DCM=7575
7465 MUV=7405
7417 LSR=7417
7413 SHL=7413
7451 DPSZ=7451 >
-------
/SIMPLT.
PAL6-V7
PflQE 3
02008
02001
02002
02063
02004
02005
02006
02007
02010
02011
02012
02012
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030
02031
02032
02033
02034
02035
02036
02037
02040
02041
02042
02043
02044
02045
02046
02047
02050
02051
02052
02053
02054
02055
02056
02057
02060
02061
02062
02063
02064
02065
2000
6002
7621
4432
4541
4421
2340
0003
4422
6304
6001
4433
6221
6300
7402
7201
3034
1171
3035
1172
3036
3037
4771
1370
3024
1146
3025
1425
1147
7640
5243
2024
7240
1025
3025
5232
4440
1042
3365
4441
3043
3044
7240
3045
3462
7001
3464
5260
4771
1776
1372
2027
2046
1427
3027
*2000
FNDPLT,
IOF
CRM
JMS I
JMS I
JMS I
MES1
3
JMS I
6304
ION
JMS I
LINE
6300
HLT
CLfl IRC
DCfl
TRD
DCfl
TflD
DCfl
DCfl
JMS I
TflD
DCfl
TflD
DCfl
TflD I
TflD
SZfl CLR
JMP
ISZ
CLfl CMfl
TflD
DCfl
JMP
JMS I
TflD
DCfl
JMS I
DCfl
DCfl
CLfl CMfl
DCft
DCfl I
IflC
DCfl I
JMP
JMS I
TflD I
TflD
DCfl
DCfl
TflD I
DCfl
RSTORQ /SET ORIGIN
RSTMSP
flPL
/FILE
RINPL
/TURN PLOTTER OFF
OPENRX
/OPEN FILE
/NO FILE
ORGNUM
RflDD
TRflDD
RflDD+1
TRflDD+1 /SRVE STflRTING BLOCK
flBSVRG /RESOLUTE V ORIGIN
RDHDRX
M40
TMP1
P237
TMP2 /FIND END OF TITLE
TMP2
MBLBL
. +6
TMF'l
TMP2
TMP2
. -10
ftHDRPL /PLOT TITLE
RMSRDD
P20T1
RRTORG
PRSS
FRSFLG /SET IN SEflRCH MODE - FIRST TIME DLflG
HVMflSS /SET NO MRSS FLflG
flVPLT
flXPLT
. +2
RDHDRX /READ HEflDER BLOCK
fl244
MSDTNX
TMP4
MSMTCH
TMP4
TMP4
-------
/SIMPLT.
PflL8-V7
PflGE 3-1
02666
02867
02070
02071
02072
02073
02074
02075
02076
02077
02100
02101
02102
02103
02104
02105
02106
02107
02110
02111
02112
02113
02114
02115
02116
02117
02120
02121
02122
02123
02124
02125
02126
02127
02130
02131
02132
02133
02134
02135
02136
02137
02140
02141
02142
02143
02144
02145
02146
02147
02150
02151
02152
02153
02154
1427
3366
1366
7104
3047
1366
7041
3026
3050
2027
1045
7640
5317
4777
7041
2050
1051
7650
5357
2027
2026
5303
7240
3046
5357
4777
3025
2050
1042
3024
1370
3051
1424
7041
1025
7640
5337
2027
2026
5317
5767
2024
2051
5326
1025
3051
3046
3045
7201
0043
7650
5354
1051
4542
1051
TflD I
DCfl
TflD
CLL RflL
DCfl
TflD
Clfl
DCfl
DCfl
ISZ
TftD
SZft CLfl
JMP
JMS I
Clfl
ISZ
TftD
SNfl CLfl
JMP
ISZ
ISZ
JMP
CLfl CMfl
DCfl
JMP
NOMSCR, JMS I
DCfl
ISZ
TflD
DCfl
TflD
DCfl
NOMSC1, TflD I
Clfl
TflD
SZfl CLfl
JMP
ISZ
ISZ
JMP
JMP I
ISZ
ISZ
JMP
TflD
DCft
DCfl
DCfl
CLfl IRC
flND
SNfl CLfl
JMP
TflD
JMS I
TflD
TMP4 /# OF POINTS IN SET
P20T2
P20T2
INTRVL
P26T2
TMP3
MflSNUM
TMP4
HVMflSS /GET FLflG
NOMSCR /NO CURRENT MflSS
(DPMflSS
MflSNUM
CRTMflS /flDD CURRENT MflSS
SETFLG /MftSS=CURRETN MflSS?
TMP4
TMP3
. -10
/SET NO MftTCH FLflG
MSMTCH
SETFLG
(DPMflSS
TMP2
MflSNUM
flMSRDD
TMP1 /PREPflRE TO TEST IF flLREflDV DONE
M40
CRTMftS
TMP1
TMP2
. +5
TMP4
TMP3 /flLREflDV BEEN DONE
NOMSCR
flMNMXP /NO MflSS NO^ DONE
TMP1
CRTMflS
NOMSC1 /LOOK flT NEXT ONE
TMP2
CRTMflS
MSMTCH /STORE MflSS flND FIX FLflG
HVMflSS
PflSS
. +3
CRTMflS
PTMflSC
CRTMflS
-------
/SIMPLT.
PRL8-V7
PRGE 3-2
82155
82156
8215?
82168
82161
82162
82163
82164
82165
82166
8216?
82178
82171
82172
82173
82174
82175
82176
3765
2365
7248
1858
7184
1852
3861
5767
8888
8888
2288
7748
3868
2172
8245
8276
8327
8244
DCR I P20T1
ISZ P28T1
SETFLG, CLfl CMR
TRD
CLL RRL
TRD
DCfl
JMP I
0
0
2260
-40
RDHEDR
/SECOND PflSS
P63S0
SPCflDD
RMNMXP
P.28T1,
P28T2,
RMNMXP,
RDHDRX,
MSDTNX,
R244,
245
276
32?
244
82177 3566
2288 PRGE
-------
'SIMPLT.
PRL8-V
PflGE 4
02290
02201
02202
02203
02204
02205
02206
02207
02210
02211
02212
02213
02214
02215
02216
©2217
02220
02221
02222
02223
02224
02225
02226
02227
02230
02231
02232
02233
02234
02235
02236
02237
02240
02241
©2242
02243
©2244
02245
02246
02247
02250
02251
02252
02253
02254
02255
02256
02257
02260
02261
02262
32263
022\64
02265
V
2200
4453
7201
0043
3043
7621
7431
1350
7521
7407
0047
7521
7041
3054
7621
1045
1046
7640
5734
1150
3106
1043
7640
5733
7621
1061
3062
1054
3336
4765
1061
3246
1061
3267
4551
1107
7640
5301
7663
0000
7575
7443
0055
7500
5263
7621
1061
3260
7663
0000
7445
0055
7663
0057
7575
*2200
JMS I
CLfl IRC
ftND
DCR
CflM
SWflB
TflD
SWP
DVI
INTRVL
SWP
Clfl
. DCfl
CflM
TflD
TflD
SZfi CLfl
JMP I
TflD
DCfl
TflD
SZfl CLfl
JMP I
FRSNZR, CflM
TflD
DCfl
TflD
DCfl
JMS I
SURVEV, TftD
DCft
TftD
DCfl
JMS I
TflD
SZft CLfl
JMP
DLD
BGCHK, ©
DCM
DftD
BGINT
SMfl •
JMP
CftM
TflD
DCfl
DLD
0
DST
BGINT
LOWCHC, DLD
LWINT
DCM
RDINTX
PftSS
PflSS /PflSS=© OR 1
PI 2 @5
NPTS
HVMflSS
MSMTCH
ftSRERl /NOT flN OPERftTIVE PflSS
NSMOOT
DX
PftSS
ftPLTIT /PftSS=l - PLOT
SPCftDD
RESET
NPTS
NPTS1
ftPRSCl
SPCftDD
BGCHK
SPCftDD
LOCHK
SMTHX
XMIN
DONECK
V-
/TEST
LOWCHC /NO GOOD
SPCftDD
. +2
• , *
• -:
-------
/SIMPLT.
PRL8-V7
PRGE 4-1
62266
62267
02270
02271
02272
02272
02274
02275
02276
02277
0 2 3 8 0
02301
02302
02303
02304
02305
02306
02307
02310
02311
62312
02313
02314
02315
02316
02317
02320
02321
02322
02323
02324
02325
02326
02327
02330
02331
02332
02333
02334
02335
02336
02337
02340
02341
02342
02343
02344
02345
02346
02347
02356
02351
02352
02353
7443
0000
7500
5301
7621
1061
3276
7663
0000
7445
0057
7621
2336
5311
4732
4453
1062
3061
5232
1735
7041
3337
7621
2061
2061
2337
7410
5235
1061
3325
7663
0000
7500
5314
5731
243©
2551
2600
2400
2166
0000
0000
0611
1405
7740
0310
0116
0705
4020
9516
1265
0000
1355
3756
LOCHK,
DONECK,
INCRLP,
EREFX1,
REBLK1,
RPLTIT,
RSRER1,
RP28T2,
NPTS1,
P22T1,
MES1,
MES2,
P1205,
SETMSPf
DflD
0
SMfl
JMP
CflM
TflD
DCfl
DLD
0
DST
LWINT
CflM
ISZ
JMP
JMS I
JMS I
TflD
DC ft
JMP
TflD I
cm
DCfl
CflM
ISZ
ISZ
ISZ
SKP
JMP
TRD
DCR
DLD
0
SMR
JMP
JMP I
EOREOF
EOBLOK
2600
2490
P20T2
0
0
0611
1405
7749
0310
8116
0705
4029
8516
1285
8
TRD
DCfl I
•
DONECK /NO GOOD
SPCRDD
. +2
NPTS1
. +6
REBLK1 /EOB
RDINTX
RESET
SPCRDD
SURVEV-3:
RP28T2
P22T1
SPCRDD
SPCRDD
P22T1
SURVEV
SPCRDD
+2
INCRLP
EREFX1 /EOR OR EOF
/FILE
/CHRNGE PEN
Z2888
RXMSCL
-------
/SIMPLT.
PRL8-V7
PflGE 4-2
02354
02355
02356
02357
02360
02361
02362
02363
02364
02365
5751
2000
2732
0000
1364
4543
7200
5757
6302
3146
Z2000,
flXMSCL/
TRNON,
PLOTON,
RPR SCI. •
JMP I
2000
VMSCLR
0
TflD
JMS I
CLfl
JMP I
6302
PRESRC
SETMSP
PLOTON
RPLOTW
TRNON
2400 PflGE
-------
/SIMPLT.
PRLS'-V?
P.RQE 5
92400
02401
02402
02403
02404
02405
02406
92407
02410
92411
02412
02413
02414
92415
02416
9241?
S2420
92421
32422
02423
02424
02425
92426
92427
02439
02431
02432
02433
02434
02435
92436
92437
92440
02441
02442
92443
92444
92445
92446
02447
92450
92451
02452
02453
02454
92455
02456
02457
92460
02461
92462
92463
92464
02465
2400
7201
1052
3061
1054
3226
1461
7510
5230
7200
1043
7650
5217
7901
4627
0000
1061
1947
3061
2226
5205
4453
5209
9009
3009
1366
7700
5261
1367
3226
1961
1371
2226
7900
1372
7500
5237
7300
1226
7700
5660
1172
1226
3172
7420-
7240
1171
3171
5660
2057
1045
7659
5313
1043
7650
*2400
SRVEV1, CLfl IflC
TflD
DCfi
TflD
DCfl
SRVEV2, TflD I
SPfl
JMP
CLft
TftD
SNft CLfl
JMP
IflC
JMS I
0
TflD
TflD
DCfl
ISZ
JMP
JMS I
JMP
NPTS2, 0
flRGCl, RGCPLT
EOREOF, TflD
SMfl CLfl
JMP
TflD
DCfl
TflD
TftD
ISZ
NOP
TRD
SMft
JMP
CLfl CLL
TRD
SMfl CLfl
JMP I
TflD
TflD
DCfl
SNL
CLft CMfl
TflD
DCfl
JMP I
FIBK2TH.. FNDPLT
ENDFIL, TflD
SNfl CLfl
',^/ JMP
'^ TflD
SNfl CLfl
P6300
SPCflDD
NPTS
NPTS2
SPCflDD
EOREOF
PflSS
. +4
flRGCl
SPCflDD
INTRVL
SPCflDD
NPTS2
SRVEV2
RDINTX
SRVEV1
P707
ENDFIL
M5
NPTS2
SPCflDD
M6300
NPTS2
M201
. -4
NPTS2
RBK2TH
RRDD+1
NPTS2
RflDD+1
RflDD
RflDD
FIBK2TH
HVMRSS
STLDOT
pass
/# OF SETS/BLOCK
/FOUND EOR OR EOF
/SET PEN UP
/SET V=0 1 MOVEMENT X PEN
UP
/NEED NEW BLOCK
/EOR
/SET RETREflT TO 5 BLOCKS
/COMPUTE # TO RETREflT
/NO MftSS - CHECK PflSS
-------
/SIMPLT.
PRL8-V7 PRGE 5-1
92466
82467
02470
02471
02472
02473
02474
02475
02476
02477
02500
02501
02502
02503
02504
02505
02506
02507
02510
02511
02512
02513
02514
02515
02516
02517
02520
02521
02522
02523
02524
02525
02526
02527
0253©
02531
02532
02533
02534
02535
02536
02537
02540
02541
02542
02543
02544
02545
02546
02547
02550
02551
02552
02553
02554
5272
6304
6001
5773
2043 ENDPS1,
4750
7663
0057
7575
7445
0057
7663
0055
7443
0057
4777
3055
7621
1942
3774
5333
1043 STLDOT,
7650
5333
4775
4421
2343
0005
4422
720©
1147
1420
7650
5332 •
4432
7410
4441
1035 RSTFLQ,
3171
1036
3172
7040
3045
3463
7801
3464
7001
3034
3037
5660
3133 FLSHIT..
0000 EOBLOK,
7621
2061 EOBLK1,
1061
JMP
6304
ION
JMP I
ISZ
JMS I
DLD
LWINT
DCM
DST
LWINT
DLD
BGINT
DflD
LWINT
JMS I
DCfl
CflM
TRD
DCfl I
JMP
TRD
SNfl CLfl
JMP
JMS I
JMS I
MES2
5
JMS I
CLfl
TRD
TflD I
SNfl CLfl
JMP
JMS I
SKP
JMS I
TflD
DCfl
TflD
DCfl
CMfl
DCfl
DCft I
IRC
DCfl I
IRC
DCfl
DCfl
JMP I
FLUSH
0
CflM
152
TflD
ENDPS1 /END OF PflSS 1
/END OF RUN ROUTINE
EXECX
PflSS /SET TO PflSS 2
FLSHIT /FLUSH MflSSES DONE BUFFER
CSHFTIT
BGINT
flMSflDD
RP20T1
RSTFLG
PflSS
RSTFLG
flLFTPN
flPL
flINPL
MBLBL
flLINE
+3
flSTORG
ftRTORG
TRftDD
RflDD /RESET ftLL POINTERS RND FLflGS
TRFlDD+1
RfiDD+1
HVMflSS
ftVPLT
«,
RXPLT
ORGNUM
flBSVRG
RBK2TH
SPCflDD
SPCftDD
-------
/SIMPLT.
PRL8-V?
92555
Q2556
0255?
02560
02561
02562
02563
02564
02565
02566
0256?
02570
02571
02572
02572
02574
02575
1370
7700
5751
1461
7510
5230
7200
2061
5353
0797
7773
0273
1500
7577
1200
2165
3167
P707,
M5,
F'273,
M6300,
M201,
EXECX,
FIP20T1,
RLFTPN,
/Y
TflD
SMfl CLfl
JMP I
TftD I
SF'fl
JMP
CLfl
ISZ
JMP
70?
-5
273
1500
-201
1200
P20T1
LIFTPN
P272
EOBLOK
SPCRDD
EOREOF
SPCRDD
EOBLK1
0257? 36Q0
2600
PflGE 5-2
/CHECK OF END OF BLOCK
/FOUND EOR OR EOF
PflQE
-------
.'.-riMPLT.
PflLS'-V?
PflGE 6
02600
02601
02602
02603
02604
£2605
02606
0260?
02610
02611
02612
02613
02614
02615
02616
02617
02620
02621
02622
02623
02624
02625
02626
02627
02630
02631
02632
02633
02634
02635
02636
02637
02640
02641
02642
02643
02644
02645
02646
02647
02650
02651
02652
02653
02654
02655
02656
0265?
02660
02661
02662
i? 266 3
02664
02665
2600
7621
3044
7431
1061
3062
1054
3266
4742
1061
321?
4551
1107
7640
5234
7663
0000
7443
0057
477?
3236
103?
7041
1236
3236
1044
7640
5235
2044
7201
4672
0000
2266
5246
4673
4453
1062
3061
5205
1674
7041
3275
7621
2061
2061
2275
7410
5210
1061
3262
7663
0000
7500
5251
5667
*2600
PLTSTP, CflM
DCfl
SWflB
TflD
DCfl
TflD
DCfl
JMS
PLTST1, TflD
DCft
JMS
TflD
SZft
JMP
DLD
PLCHG, 0
DftD
I
I
CLfl
LWINT
JMS
DCfl
TftD
CIR
TRD
DCft
TftD
SZfl
JMP
ISZ
CLfl
JMS
VTOBPL, 0
ISZ
JMP
JMS
JMS
TflD
DCfl
JMP
TflD
Clfl
DCfl
INCLP2, CflM
ISZ
ISZ
ISZ
SKP
JMP
TftD
DCft
DLD
0
SMfl
JMP
JMP
I
CLfl
IflC
I
I
I
I
I
FRSFLG
SPCflDD
RESET
NPTS /#OF PTS/BLOCK
NPTS3
RPRSC2
SPCflDD
PLCHG
SMTHX
XMIN
VTOBPL-2
/SUBTRRCT MINIMUM
< I NORM
VTOBPL
flBSVRG
VTOBPL
VTOBPL /V V'flLUE RELftTIVE TO CURRENT ORIGIN
FRSFLG /FIRST TIME?
+3:
FRSFLG
RRGC2 /PLOT IT
NPTS2
. +6
REBLK2
RDINTX-
RESET
SPCflDD
PLTSTP+5
BP20T2
P26T1
SPCflDD
SPCflDD
P26T1
PLTST1
SPCftDD
. +2
1 NCLP2
EREFX2
-------
/SIMPLT.
PRL8-V7
PRGE 6-1
02666
02667
02670
02671
02672
02673
02674
02675
02676
02677
02700
02701
02702
02703
02704
02705
02706
02707
02710
02711
02712
02713
02714
02715
02716
02717
02720
02721
02722
02723
02724
02725
02726
02727
02730
02731
02732
02733
02734
02735
02736
02737
02740
02741
02742
02743
92744
0000
2430
0000
0000
3000
2551
2166
0000
0000
7200
1051
4744
0144
1341
3331
1332
1340
3332
1144
0127
4323
1145
7002
0127
4323
1145
0127
4323
5676
0009
3334
1331
1337
3331
4743
0000
0000
0002
0000
0000
5723
0012
7700
7722
3146
4600
3200
NPTS3,
EREFX2,
INTCRT,
RRGC2,
REBLK2,
BP20T2,
P26T1,
PLTMRS,
PLTNUM,
XMSCLR,
VMSCLR,
LTSTOR,
P5,
MHUN,
M46,
RPRSC2,
RDDLTR,
RSPTCD,
0
EOREOF
0
0
RGCPLT
EOBLOK
P20T2
0
0
CLR
TfiD
JMS I
CDMRSS
TflD
DCR
,TRD
TRD
DCR
TRD
RND
JMS
TflD
7002
RND
JMS
TRD
RND
JMS
JMP I
0
DCR
TRP
TRD
DCR
JMS I
0
0
2
©
e
JMP I
12
-100
-56
PRESRC
DLTR
SPOCTD
CRTMflS
RSPTCD
M46
XMSCLR
VMSCLR
MHUN
VMSCLR
CDMRSS
N77
PLTNUM
CDMRSS+1
N77
PLTNUM
CDMRSS+1
N77
PLTNUM
PLTMRS
LTSTOR
XMSCLR
P5
XMSCLR
RDDLTR
PLTNUM
•'BVTE SWRP
02777 3612
3000 PRGE
-------
/SIMPL7.
PflL8-V7
PflGE 7
03090
03001
93002
93003
83004
9303-5
93006
0 3 0 0 7
03910
03011
03 01 2
0 3 0 1 3
93014
£3015
02016
03017
03020
03821
03822
03323
03024
0 3 0 2 5
03026
0 3 0 2 7
0 3 0 3 0
33031
••33032
3": ft":":
93034
83035
9 3 0 3 6
93937
93040
03:041
93942
9 3 0 4 3
9 3 0 4 4
03945
03046
03947
93059
93051
93052
93053
03954
93955
93956
93957
PI lasfl
03061
93062
0 3 0,6 3
03064
0305*
\
3900
0909
3065
1609
3218
2299
1065
451?
0 0 0 9
0090
2297
•1 '"' L"1 "7
-L £. fc1 1
7709
5699
7249
4517
2034
1037
1219
3:937
3219
7001
3297
5 6 0 0
0 © 0 0
7621
1034
70^1
~-Fi£5
1037
7041
3242
7091
4517
9999
9999
7243
4517
7621
2965
7416
5627
7291
4517
4999
hi- 9 9 0
7249
4517
5245
9909
6394
6901
4537
0 9 0 0
9200
#3000
RGCPLT, 0
DCfl
TflD I
DCfl
ISZ
TflD
JMS I
XRGC, 0
VRGC.. 9
ISZ
TflD
SMfl CLfl
JMP I
CLfl Cflfl
•JMS I
ISZ
TflD
TflD
DCfl
DCfl
IflC
DCfl
JMP !
R'TNORG, 0
Cflrl
TflD
Clfl
DCfl
TflD
Clfl
DCfl
IflC
JMS I
0
0
CLfl CMfl
•J?11S I
RTNRG1, Cflil
ISZ
SKP
JMP I
CLfl IflC
JMS I
4099
0
CLfl CMfl
JMS I
JMP
R'DHEDR.- 0
6384
ION
JMS I
9
200
PENUD
RGCPLT
VRGC ' /V VflLUE
RGCPLT
PENUD
flDPLOT
XRGC
XRGC
RGCPLT
flDPLOT /NEW ORIRGIN
ORGNUM
flBSV'RG
VRGC
flBSVRG
VRGC
XRGC
RGCPLT
OPGNUM
PENUD
flBSVRG
4.4
flDPLOT .
flDPLOT /NEW ORIGIN
PENUD
RTNORG
flDPLOT
flDPLOT
RTNRG1
REflDX
\
-------
M P i T
PRL8-V?
PRQE
L_1 >' M l~. H,
ft 3 ft £ 7
0 3 0 7 0
0 _ e 7 1
03072
0307 2
0 2 0 7 4
03075
0 3 0 7 6
0 3077
6 3 1 0 0
03101
03102
0 3 1 0 3
03104
03105
03106
03107
03110
03111
03112
03113
03114
03115
03116
83117
93120
03121
03122
03123
03124
03125
03126
03127
03130
03131
03132
03133
03134
03135
03136
03137
03149
03141
03142
03143
93144
03145
03146
03147
03150
03151
03152
03153
03154
i_1 ^ M y
0 0 0 0
4540
7' r ft ft
6 0 0 2
4466
5660
ft 0 0 0
6304
6001
4527
0 0 0 0
1205
6300
0000
4540
6002
4466
5675
0000
4466
7240
4517
7201
4517
0209
6000
7240
4517
7201
4517
0000
0020
7249
4517
7200
5711
0000
1042
3024
1345
3025
3424
2024
2025
5340
5733
7740
0000
7301
1852
3311
1711
7510
5766
209
0
JMS I
CLR
I OF
JMS I
JMP I
INTRD, 0
6304
ION
JMS I
0
1205
6300
0
JMS I
I OF
JMS I
JMP J
SETORG, 0
JMS I
CLR CMfl
JMS I
CLR IRC
JMS I
280
-2009
CLR CMfl
JMS I
CLR IRC
JMS I
08
20
CLR CMfl
JMS !
CLR
JMP !
FLUSH, 0
TflD
DCfl
TRD
DCfi
DCfl I
ISZ
IS2
JMP
JMP I
M40P20, -40
PRESRC, 0
IRC
TRD
DCfi
SRC IT, TRD I
SPR
JMP I
WRITX
RTRNON
RDHEDR
REfiDX
WRITX
RTRNON
INTRD
RTRNON
RDPLOT
RDPLOT
RDPLOT
RDPLOT
RDPLOT
SETORG
RMSRDD
TMP1
M40P30
TMP2
TMP1
TMP1
TMP2
-3
FLUSH
P6380.
SETORG
SETORG
EREFX4
-------
/SI PIPIT.
PflGE 7-2
03155
03156
03157
03160
03161
03162
03163
03164
03165
03166
03167
03170
03171
03172
03173
03174
03175
7200
2311
2311
1311
7041
1061
7710
5746
5352
2430
0000
1210
3374
7001
4200
0000
5767
CLfl
ISZ
IS2
TflD
Clfl
TflD
SPfl CLfl
JMP I
JMP
EREFX4, EOREOF
LIFTPN, 0
TflD
DCfl
IRC
JMS
0
JMP I
SETORG
SETORG
SETORG
SPCflDD
PRESRC
SRC IT
VRGC
+3
RGCPLT
LIFTPN
3200 PflGE
-------
/SIMPLT.
PRL8-V7
PflGE 8
83200
03201
03282
03203
03204
03205
03206
0320?
03210
03211
03212
03213
03214
03215
03216
03217
03220
03221
03222
03223
03224
03225
03226
0322?
03230
03231
03232
03233
03234
03235
03236
0323?
03240
03241
03242
-03243
03244
03245
03246
9324?
93250
03251
03252
03253
03254
03255
03256
03257
03260
03261
03262
03263
03264
03265
3200
0000
3261
1600
3262
2200
3267
3270
1272
3273
1134
3274
3271
1261
1673
7510
5224
2271
2270
3261
5214
7200
1271
7440
5236
1270
7640
5236
1275
3271
5240
1276
3271
1267
7740
5250
2267
1271
7002
3662
5255
1662
1271
3662
326?
2262
2273
2274
5213
5600
0900
0000
6030
7634
7766
*3200
SPOCTD,
LOOPSD,
INLPSD,
NONZRO,
STORIT,
SECNDC,
INCRSP,
OCTNUM,
flDDSSP,
MTHOU,
0
DCR
TRD I
DCfl
ISZ
DCfl
DCfl
TflD
DCfl
TflD
DCfl
DCfl
TflD
TflD I
SPfl
JMP
ISZ
ISZ
DCfl
JMP
CLR
TflD
SZfl
JMP
TflD
SZR CLR
JMP
TflD
DCfl
JMP
TflD
DCR
TRD
SZR CLR
JMP
ISZ
TflD
7002
DCfl I
JMP
TflD I
TflD
DCfl I
DCfl
ISZ
ISZ
ISZ
JMP
JMP I
0
0
-1750
-144
-12
OCTNUM
SPOCTD
flDDSSP
SPOCTD
I CHPOT
GOTONE
RMTHOU
CURNT
M4
KPTRRC
DECCRR
OCTNUM
CURNT
+5
DECCflR
GOTONE
OCTNUM
INLPSD
DECCflR
NONZRO
GOTONE
NONZRO
PSOC48
DECCflR
STORIT
P60
DECCRR
I CHPOT
CLL
SECNDC
I CHPOT
DECCflR
flDDSSP
INCRSP
flDDSSP
DECCflR
flDDSSP
I CHPOT
RDDSSP
CURNT
KPTRRC
LOOPSD
SPOCTD
/STORE NUMBER
/RDDRESS FOR RESULT
/0 CHRR. POS. RND PREV. CHR. FLO.
/RDD. OF -1000
/DONE WITH CURRENT POWER OF TEN
/PREV. NON-ZERO?
/BLRNK
/BVTE SWRP
-------
/SIMPLT.
PRL8-V7
02266
93267
03270
03271
03272
03273
03274
03275
03276
03277
03308
03301
03302
03303
03304
03305
03306
03307
03310
03311
03312
03313
03314
03315
03316
03317
03320
03321
03322
03323
03324
03325
03326
03327
03330
03331
03332
03333
03334
03335
03336
03337
03340
03341
03342
03343
03344
03345
03346
03347
03350
03J351
03352
03353
1
03354
7777
0000
0000
0000
3263
0000
0000
0040
0060
0000
1332
3025
1135
3333
1334
3345
1335
3344
4466
1031
4336
1425
2333
5326
0127
4336
2025
1135
3333
2024
5313
5677
7002
0127
4336
5313
0200
0000
2044
0020
0000
3347
1353
1344
3344
4754
0000
0000
0002
0000
0000
7200
5736
0012
4600
ICHPOT,
GOTONE,
DECCflR,
flMTHOU,
CURNT,
KPTRflC,
PSOC40,
P60,
HDRPLT,
PROTHD,
UPHBVT,
P200,
HDRT1,
P2066,
P20,
PLOTHD,
XHD..
• VHD,
HDRT2,
P6,
DLTRX,
_H
0
0
0
MTHOU
0
0
40
60
0
TflD
DCfl
TflD
DCfl
TflD
DC ft
TflD
DCfl
JMS I
TflD
JMS
TflD I
ISZ
JMP
flND
JMS
ISZ
TflD
DCfl
ISZ
JMP
JMP I
7082
flND
JMS
JMP
209
0
2044
20
0
DCfl
TflD
TflD
DCfl
JMS I
0
0
2
0
0
CLfl
JMP I
12
DLTR
P2@m
TMP2
M2
HDRT1
P2066
VHD
P20
XHD
flTRNON
P40
PLOTHD
7MP2
HDRT1
UPHBVT
N77
PLOTHD
TMP2
M2
HDRT1
TMP1
PROTHD
HDRPLT
N77
PLOTHD
PROTHD
HDRT2
P6
XHD "
XHD
DLTRX
PLOTHD
XBLflNK
-------
/SIMPLT. - PRL-S-V7
//
3400 PflGE
-------
/S1MPLT.
PflLS-V?
PflGE 9
03460
02401
03402
03403
03404
03405
03406
03407
03410
03411
03412
03413
03414
03415
03416
0341?
03420
03421
03422
03423
03424
03425
03426
03427
03430
03431
03432
03433
03434
03435
03436
03437
03440
03441
03442
03443
03444
03445
03446
0344?
03450
03451
03452
©3453
.63454
03455
03456
63457
63460
03461
03,462
03463
03U64
03465
3400
0000
7200
1023
3024
1020
3025
1030
3425
2025
2024
5206
1020
3024
1135
3025
6031
521?
6036
3026
1026
4310
1026
1357
7450
5201
1360
7640
5255
7001
1025
7640
5245
1135
3025
1030
3424
5255
7040
1024
3024
2025
1424
0361
1031
3424
1026
1362
7640
5266
1026
4210
1363
4310
5600
*3490
INF'L, 0
CLfl
TflD
DCfl
TflD
DCfl
BLNKFL, TflD
DCfl
152
ISZ
JMP
TflD
DCfl
TflD
DCfl
PCKLN, KSF
JMP
KRB
DCfl
TftD
JMS
TftD
TftD
SNfl
JMP
TflD
SZfl
JMP
IflC
TflD
SZfl
JMP
TflD
DCft
TflD
DCfl
JMP
CMfl
TflD
DCR
ISZ
TflD
flND
TflD
DCfl
CRTCHK, TftD
TflD
• SZft
JMP
TflD
JMS
TftD
JMS
JMP
CLfl
CLfl
CLft
MIS
TMP1
RLINE
TMP2
BLBL
TMP2
TMP2
TMP1
BLNKFL
ftLINE
TMP1
M2
TMP2
. -1
TMP3
TMP3
PRN1CH
TMP3
MRBOUT
INPL+1
P186
CRTCHK
TMP2
. +6
M2
TMP2
BLBL
TMP1
CRTCHK
TMP1
TMP1
TMP2
TMP1
MRSK2
P40
TMP1
TMP3
MCRTRN
TMP3
PRN1CH
LINEFD
PRN1CH
1NPL
/FILL BUFFER WITH BLflNKS
/WflIT FOR CHftRflCTER
/GET CHflRflCTER
/ECHO
/RLI&OUT?
/POSITION OF LST CHflRflCTER
/FLAG MflS -1 - RESET TO -2
/FLflG WftS -2 - MftKE -1
/CflftRiflGE RETURN?
-------
/SIMPL'
FRL8-V7
FRGE 9-1
22466
C '•• 4 6 7
52470
;"< "•• .1 '? -1
33472
ft "•; >i y "•
0 2474
02475
02476
92477
02588
02561
02 5 62-
§12582
02564
02585
02506
02587
02518
82511
02512
82513
82514
82515
8K516
82517
82528
02521
02522
82523
83524
83525
835 26
83527
03536
83531
83532
83533
03534
0 3535
83536
83537
83548
83541
83542
83543
83544
83545
83546
93547
83558
83551
83552
83552
83554
1026
8127
~ '*-' Cl t«
2825
5303
1424
8361
1426
3424
1 1 2 5
2025
2 8 2 4
5217
1 8 2 6
7002
1831
2 424
5217
8 £ 8 6
6 8 4 6
6041
5212
7200
6842
5718
8888
1717
3824
2317
1717
7841
3825
2317
1135
3826
1424
2826
5345
8127
4351
2825
7418
5717
2824
1135
3826
5331
7602
0127
4351
5331
0080
1364
9365
1831
TflD
RND
DCR
L —' ii.
JMP
TRD I
FIND
TRD
DCR I
TRD
DCR
ISZ
JMP
UP PR IN, TRD
7882
TRD
DCR !
JMP
PRNiCH, 8
"L.5
T?F
JMP
CLR
TCP
JMP I
PL... 8
TflD !
DCR
ISZ
TRD I
C 1 R
DCR
ISZ
TflD
DCR
PRTOUT, TRD I
ISZ
JMP
RND
JUS
ISZ
SK:P
JMP I
ISZ
TflD
DCfl
JMP
UPOUT, 7902
RND
JMS
JMP
CONVT, 0
TftD
RND
TftD
TMP3
N77
IMPS
TMP2
UPPRIN
TMP1
MRSK2
TMP3
TMP1
M2
IMP 2
TMP1
PCKLN
TMP3
P40
TMPi
PCKLN
— -1
PRN1CH
PL
TflPl
PL
PL
TMP2
PL
M2
TMP3
TMPI
TMP3
UPOUT
N77
CONVT
TMP2
PL
TMPI
M2
TMP3
PRTOUT
N77
CONVT
PRTOUT
P240
P277
P40
/STRIP RND RESTORE
/UPPER OR LOWER BVTE
/PRINT
/WRIT FOR COMPLETION FLRG
/DONE
-------
/SIMPLT.
PflGE 9-2
03555
03556
0355?
03560
03561
S3562
03563
0 3 5 6 4
03565
0 3 5 6 6
03567
03570
03571
03572
03573
03574
03575
03576
03577
4310
5751
7401
0040
7700
7563
0212
0240
027?
0 0 0 0
142?
.i i \ >'
2027
1427
7716
2377
IS 77
5765
0000
3 6 0 0
M R£: OUT,
P106,
MftSR'2..
MCRTRN,
LINEFD,
P240,
P277..
DPMflSS,
DPMI,
/ /
PflGE
JMS
JMP I
-37?
40
7709
-215
212
240
277
0
TftD !
DCft
ISZ
TRD I
SPfl CLfl
ISZ
TflD
JMP I
0
PRN1CH
CON VT
TJ1P4
DPMI
TMP4
IMP 4
DPMI
DPMI
DPMflSS
-------
/SIMPLT.
PRLS-V7
PRGE 10
836@@
02601
03602
03603
03604
93605
03606
S3607
03610
03611
03612
03613
03614
03615
03616
93617
03620
93621
0 J' 6 k' ii!
03623
03624
03625
03626
93627
03630
03631
03632
03633
03634
03635
03636
03637
03640
03641
03642
03643
03644
03645
03646
63647
03650
03651
3600
0000
3246
3247
1246
7510
5600
7413
0001
2247
5204
0000
3246
3250
1246
7451
7410
5612
7519
C* ^i '"i "*3
5ii7
7413
0001
2250
5221
7417
0001
7407
0055
7200
1250
7041
1247
1251
7510
7200
3244
7413
0000
5612
0000
0000
0000
0013
*3608
SHFTIT, 0
DCft
DCfl
TflD
SPrT
JMP I
SHL
1
ISZ
JMP
I NORM, 0
DCfl
DCfl
TflD
DPSZ
SKP
JMP I
SPfl
T Kri r*i
JMP
SHL
1
ISZ
JMP
INORM1, LSR
±
DVI
BGINT
CLft
TflD
Clfl
TflD
TflD
SPfl
CLft
DCfl
SHL
0
JMP I
TM361, 0
SHFCNT, 0
SHFCN2, 0
T3612, 13
TM361
SHFCNT
TM361
SHFTIT
SHFCNT
_c;
^
TM361
SHFCN2
TM361
I NORM
IV | f. ^. LjJ J
NORM1
SHFCN2
. -5
SHFCN2
SHFCNT
T3612
+2
I NORM
IFZERO EftE <
DSTSM,
I
DCft
TflD
DCft
MCfl
DCfl I
ISZ
ISZ
TflD
EflETPl /STORE MSH IN TEMPORftRV
DSTSM /GET LSH STORflGE ftDDRESS
ERETP2
/MQTO flC, MG UNCHflNGED
EflETPS
EAETP2
DSTSM /LIPDflTE RETURN
EflETPl /MSH
-------
//SIMPLT.
PflL8-V'7
PflGE 10-1
DCMSM,
DLDSM,.
DflDSM,
DPSZSM,
DCfl
TflD
JMP
0
DCfl
SWP
CM ft
SWP
GLK
TflD
cm
JMP
0
CflM
TflD
DCft
152
DflD
0
JMP
0
DCfl
TftD
DCA
I5Z
DLL
SWP
TflD
SWP
GLK
ISZ
TflD
TflD
JMP
0
SZfl
JMP
SWP
SNfl
ISZ
SWP
JMP
I
I
CLL
I
I
ERETP2
EflETPl
DSTSM
EflETPl
CML IRC
EflETPl
DCMSM
DLDSM
. +3
DLDSM
/STORE
/RESTOR flC
/DONE
/STORE MSH
/GET LSH TO ftC
/COMPLIMENT FlC SET LINK TO ZERO
/IF flC WflS ZERO
/GET LINK BIT
/flDD TO MSH
/COMPLIMENT
/CLEflR flC, MC
/GET FIDDRESS
/UPDflTE RETURN
/DOUBLE flDD TO fl CLEflR ftC, MQ
I
I
i
I
I
I
I
DLDSM
EflETPl
DftDSM
ERETP2
DflDSM
ERETP2
EFIETP2
EflETP2
EflETPl
DflDSM
DPSZSM
DPSZSM
DPSZSM
/STORE flC
/GET ftDDRESS OF LSH
/STORE
/UPDflTE RETURN
/SWflP MC!, flC
/LSH<:i>+LSH(2>
/PUT IN MC
/GET CflRRV BIT
/MSH flDDRESS
/MSH<1>+MSH<2>
/DONE
/flC=0?
/NO - NORMflL RETURN
/VES - CHECK MG
/MC=0?
/VES - UPDflTE RETURN FOR SKIP
/RESTORE
-------
/SIMPLT.
PRL8-V7
PRGE 11
*4000
MUVSM,
MP4,
MP3,
MP5,
THIR,
DVISM,
7 ;' •
DV3,
@
CLfl CLL
SWP
DCR
TflD I
DCR
TflD I
DCfl
ISZ
DCfl
TflD
DCfl
TflD
RflR
DCR
TflD
SNL
JMP
CLL
TflD
RflR
DCfl
ISZ
JMP
TflD
RflR
SWP
TflD
JMP I
0
0
7764
0
DCfl
SWP
DCfl
TflD I
DCR
TflD I
Clfl
DCfl
CLL
TflD
TflD
ISZ
SZL CLfl
JMP 1
TflD
DCft
JMP
TflD
RflL
DCfl
TflD
EflETPl
MLIVSM
ERETP2
EflETP2
ERETP2
MUVSM
MP5
THIR
MPK
ERETP1
EflETPl
MP5
. +:<
ERETP2
MP5
MP3
MP4
EflETPl
MP5
MUVSM
EflETPl
EflETP2
DVISM
DIVSOR
DIVSOR
DIVSOR
.
DIVSOR
EflET-Pl
DVISM
DVISM
MDV1K
DIVCNT
DV2
EflETPl
EflETPl
EflETPl
/SINGLE PRECISION UNSIGNED MULP.
/GET MULTIPLIER
/STORE
/GET flDDRESS OF MULT.
/MULTIPLICRND
/UPDRTE REURN
/LOW ORDER PRODUCT
/TO MG
/HIGH ORDER PORDUCT
/UNSIGNED S. P. DIVIDE
/STORE'MSH :'
/GET LSH
/STORE
/GET DIVISOR flDDRESS
/RCTURL DIVISOR
/COMPLIMENT
/STORE
/CHECK FOR OVERLOW
/OVERFLOW
-------
VSIMPLT.
POLS'- V7 Pfl'QE"
DV2,
DIVSOR,
DIVCNT,
MDV13,
SHLSM,
SHLLP,
LSRSM,
LSRLP,
TflD
SZL
DCfl
.CLfi
TflD
RflL
DCfl
ISZ
JMP
TflD
SWP
TflD
CLL
JMP
0
0
-15
0
DCfl
TflD
ISZ
SZfl
JMP
TflD
JMP
Clfl
DCfl
TflD
SWP
CLL
SWP
RflL
ISZ
JMP
JMP
0
DCfl
TflD
ISZ
SZfl
JMP
TflD
JMP
Clft
DCfl
TflD
CLL
SWP
RflR
SWP
ISZ
JMP
JMP
DIVSOR
EftETPl
EAETP2
ERETP2
DIVCNT
DV3
ERETP2
EflETPl
I DVISM
EftETPl
I SHLSM
SHLSM
. +3
EflETPl
I SHLSM
ERETP2
EftETPl
RflL
ERETP2
SHLLP
I SHLSM
EflETPl
I LSRSM
LSRSM
+3 '
EftETPl
I LSRSM
EftETP2
EftETPl
RflR
EflETP2
LSRLP
I LSRSM
/QUOTIENT
/TO MC
/# OD SHIFTS
/UPDflTE RETURN
/NO. SHIFTS?
/RESTOR ftC
/GET LSH
/ROTflTE 1 BIT LEFT
/GET MSH
/ROTflTE 1 BIT LEFT
/DONE?
/VES - RETURN
/SftVE flC
/GET NUMBER OF SHIFTS
/NO SHIFTS?
/RESTORE flC
/COMPLIMENT
/RESTORE ftC
/ROTflTE MSH 1 BIT
/GET LSH
/ROTflTE
/DONE?
/NO
>
-------
/SIMPLT. . PFIL8-V7 PflGE 12
IFZERO PLIST /RESET IF SKIPPING PLOTTER LISTING.
/Y
5460 PflGE
-------
/SIMPLT.
PflL8-V7
PflQE 16
05406
05401
05402
05403
05404
05405
05406
0540?
05410
05411
05412
05413
05414
05415
85416
05417
05420
05421
05422
05422
05424
05425
05426
05427
05430
05431
05432
05432
05424
05425
05426
0542?
05440
05441
05442
05442
05444
05445
05446
0544?
05450
05451
05452
05453
05454
05455
05456
05457
05460
05461
05462
05463
05464
05465
5400
0000
7201
310?
1106
7041
1150
7640
5212
1354
3251
1106
7650
5222
2251
2251
4240
2106
5600
5247
7305
1354
3237
7305
1237
3235
7001
1150
3355
7663
0000
7445
0000
2235
2235
2237
222?
2255
5224
4240
1150
2255
1260
3361
7621
7445
5563
7305
1354
3275
3107
7240
3356
3357
1761
*5400
SMOOTH, 0
CLfl IflC
DCfl
TflD
Clfl
TflD
SZfl CLfl
JMP
TflD
DCfl
NOT I NT, TflD
SNfl CLfl
JMP
152
1SZ
JMS
ISZ
JMP I
JMP
FLSMTH, CLft CLL
TflD
DCfl
CLft CLL
TflD
DCft
IflC
TflD
DCfl
PUSHUP, DLD
LGWRSM, 0
DST
UPPRSM, 0
ISZ
ISZ
ISZ
ISZ
ISZ
JMP
JMS
SMTHIT, TflD
DCfl
TflD
DCfl
CRM
DST
TOTftL
CLfl CLL
TflD
DCfl
DCfl
SMTHLF, CLft CMfl
DCfl
DCfl
TflD I
XMIN
DX
NSMOOT
NOTINT
SMTHBX
flSMTH
DX
FLSMTH
flSMTH
ftSMTH
CVLSMT
DX
SMOOTH
SMTHIT
IflC RflL
SMTHBX
UPPRSM
IflC RflL
UPPRSM
LOWRSM
NSMOOT
P54T1
LOWRSM
LOWRSM
UPPRSM
UPPRSM
P54T1
PUSHUP
CVLSMT
NSMOOT
P54T1
COEFX
COEFSM
"
IflC RflL
SMTHBX
P54T2
XMIN
SIGN
ROTflT
COEFSM
/SET FOR NO SMOOTHING
/FIRST TIME IN?
/NO
/BUFFER FULL flLREflDV?
/VES
/NO
/UPDflTE flDDRESS
/NOOW IS IT FULL?
/NO
/VES
/BEGIN PUSH UP ROUTINE
/NUMBER TO MIVE
/UPDflTE flDDRESS
/DONE?
/NO
/VES - INSERT CURRENT VftLUE
/STflRT flDDRESS OF COEFFICIENTS
/SET TOTftL TO 0
/SET SMOOTHING DONE FLflG
" "
/SET FOR + COEF.
/CHECK FOR - COEF.
-------
/SltlPLT.
PRLS-V
PRO E"'16"-!
85466
05467
05470
05471
05472
05472
05474
05475
05476
05477
05500
05501
05502
05503
05504
05505
05506
05507
05510
05511
05512
05512
05514
05515
05516
05517
05520
05521
05522
05523
05524
05525
05526
05527
05530
05531
05532
05533
05534
05535
05536
05537
05540
05541
05542
05543
05544
05545
05546
05547
05550
05551
05552
05553
05554
7500
5273
7041
3356
1356
3366
7663
0000
7450
5304
7417
0001
2357
5276
1357
3311
7405
5566
7413
0000
2356
7575
7443
5563
7445
5563
2361
2275
2275
2355
5262
7621
1061
3335
7663
5563
4762
5561
7445
0000
7621
5600
0000
7621
1061
3345
7663
0000
7510
5765
7445
0000
7621
5740
5776
SMfl
JMP . +4
Clfl
DCfl SIGN
TRD SIGN
DCfl MLPLR
DLD
P54T2, ©
SNft
JMP . +5
LSR
1
ISZ ROTflT
JMP . -5
TflD ROTflT
DCfl . +4
MUV
MLPLR
SHL
0
ISZ SIGN
DCM
DftD
TOTflL
DST
TOTflL
ISZ COEFSM
ISZ P54T2
ISZ P54T2
ISZ P54T1
JMP SMTHLP
CflM
TflD SPCflDD
DCfl . +6
DLD
TOTflL
JMS I NORMLX
COEFSM
DST
0
CflM
JMP I SMOOTH
CVLSMT, 0
CftM
TflD SPCflDD
DCfl . +2
DLD
0
SPfl
JMP I EREFX3
DST
flSMTH, @
CflM
JMP I CVLSMT
SMTHBX, 5776
/GET POINT
/DOUBLE PRECISION?
/VES - SHIFT RIGHT
/MULTI PLV ftND SHIFT LEFT
/COMPLIMENT
/flDD TO TOTFIL
/STORE TOTflL
/UPDflTE
/flDDRESSES
/DONE?
/NO
/COEFSM CONTftlNS ftDDRESS
-------
/SIMPLT.
05555
05556
05557
0556©
05561
05562
05563
05564
05565
05566
0000
0000
0000
6221
0000
5600
0000
0000
2420
0000
P54T1, 0
SIGN, 0
ROTRT, 0
COEFX, SVTGLV
CDEFSM, 0
NGRMLX, NGRMLZ
TOTRL, 0
0
EREFX3, EOREDF
MLPLR* 0
5600 PRGE
PRL&'-V?
PRGE 16-2
-------
/S3HP.LT.
PriLS-V?
F'F'GE 17
05600
05601
95602
05603
05694
05685
05606
0568?
05610
05611
05612
95613
05614
05615
05616
05617
05620
05621
05622
85623
05624
05625
05626
05627
05630
05631
0 5 6 3 2
05632
05634
05635
05636
0562?
05640
05641
05642
05643
05644
35645
5 6 0 0
0000
7590
5206
7621
2200
5600
3243
3245
1600
3236
2200
1636
3226
1 6 3 6
7041
3244
1243
12*4
7710
5232
1242
741?
0001
2245
3242
5220
1245
3241
1243
7407
0000
7200
7413
0000
5600
0000
0000
0000
*560.0
NOR ML 2, 0
S :'1 fi
JMP
can
IS2
JMP
DCfl
DCfl
• »*i i i
DCfl
1 52
T r! D
DCfl
TflD
Cift
DCfl
ThD
• TflD
SPfl
JMP
TflD
LSR
1
ISZ
DCfl
Jr-1P
TfiD
DCfl
TflD
DV!
DVSGR, 0
C_fl
SHI.
8
JMr
P56T1, *
P56T2, 3
RTflT2, 0
1FZEP.D PL I 'I
4-4
NORMLZ
I NORMLZ
P56"I
RTRT2 /£TOFE .Ifri r!ND
I NORML2 /riDD. OF FiDD. ;!
DVSDR
NORMLZ /RE^'.'RN RTDRES:
I DVSOR
DVSOR
I DVSOR
P 5 6 T 2 / CO M PL: !.a. £ N T
F'5671 /'MSH
P 5 € T 2 .-•' Ci V E R F L C1 ^J T'
CLfl
. +? /NO
P56T1 /VES
/RC'TfltE 'RI GHT
RTflTS
P56T1
. -11
RT.RT2
•s-6 .•••! £T FOR RE-RO'
P56rl
I N:-?:ML.Z
T /RESET IF S
-------
'SIMPLT.
06240
06241
06242
06243
06244
06245
06246
06247
06250
06251
06252
06253
06254
06255
07510
6240
7765
0000
0011
0020
0025
0 0 3 0
0031
0030
0025
0020
0011
0000
7765
0217
7510
0000
*6240
SVTGLV, -13
0
11
20
25
30
31
30
25
20
11
0
-13
217
*7510
ZBLOCK 41
PRL8--V7
PfiGE IS
-------
/SIMPLT.
PRL8-V7
PFIGE 13
RBK2TH
RBSVRG
RCHLCD
RCHLCU
RCHRCD
RCHTLF
RCHTRT
flCRDN
RCRUP
RDDLTR
RDDSSP
RDFDRD
RDIMOV
RDLTR
RDMULT
RDNEWB
RDPFTC
RDPLOT
RDPLTW
RDRTRT
RDSBflL
RDTBL
REBLK1
REBLK2
RHDRPL
RINPL
RLFTPN
RLINE
RLPHfl
RMNMXP
RMSflDD
RMTHOU
RPENDN
RPENUP
RPL
RPLOTW
RPLTIT
RPRSC1
RPRSC2
RP20T1
RP20T2
RRGC1
RRGC2
RRTORG
RSMTH
RSPTCD
RSRER1
RSTMSP
RSTORG
RTRNGN
RX
RXMSCL
RXPLT
RV
RVPLT
2460
0037
4377
0075
0076
0073 ,
0074
0071
0072
2743
3262
4767
0077
0124
0122
0123
0120
0117
4375
0125
0121
4505
2332
2673
0040
0022
2575
0020
4400
2167
0042
3272
0070
0067
0021
0143
2333
2365
2742
2574
2335
2427
2672
0041
5551
2744
2334
0141
0032
0066
0113
2356
0064
0114
0063
R244
BGCHK
BGINT
BLBL
BLNKFL
BP20T2
BUMP
BX
BV
CRM
CCMR
CDMRSS
CHLCDN
CHLCP1
CHLCUP
CHLC1
CHRCDN
CHRC1
CHTLFT
CHTL1
CHTRT
CHTR1
CIRC
CMND
CNT
CNTR
COEFSM
COEFX
COMPRR
CONVT
CPEN1
CRDN
CRDN1
CRSTRC
CRTCHK
CRTMRS
CRUP
CRUP1
CURNT
CVLSMT
CVCL
DRD
DCRX
DCM
DECCRR
DLD
DLTR
DLTR
DLTRX
DONECK
D-PMRSS
DPMT
DPSZ
DST
DTIC
2176
2246
0055
0 0 3 0
3406
2674
4467
0115
0116
7621
4646
0144
6121
6206
6200
6127
6207
6215
6103
6111
6112
6120
4541
4423
4522
4507
5561
5560
4347
3551
6217
6665
6073
6228
3455
0051
6074
6102
3273
5540
4473
7443
4436
7575
3271
7663
4521
4660
3354
2301
3566
3577
7451
7445
0110
DVI
DVSOR
DX
ERE
ENDFIL
ENDPS1
EOBLK1
EOBLOK
EOREOF
EREFX1
EREFX2
EREFX3
EREFX4
EXECX
FRCT
FLSHIT
FLSMTH
FLUSH
FNDRDR
FNDPLT
FRSFLG
FRSNZR
GCMND
GMOVE
GOTONE
HRX
HRV
HBX
HBV
HDRPLT
HDRT1
HDRT2
HLD
HVMRSS
ICHPOT
IMCMND
I MOVE
INCLP2
INCRLP
INCRSP
I NIB
INLPSD
I NORM
INORM1
INPL
I NT CRT
INTRD
INTRVL
IX
IV
JMPLT4
JMSflM
KPTRRC
LCI
LC2
7497
5636
0106
0001
2461
2472
2553
2551
2438
2331
2667
5565
3166
2573
0102
2559
5423
3133
4455
2057
0044
2227
4534
4523
3278
5670
5671
4536
4537
3277
3333
3347
4434
0045
3267
5666
5646
2651
2314
3255
4440
3214
3612
3627
3400
2678
3975
0947
0111
0112
4712
4711
3274
4676
4642
LC3
LC4
LETTER
LIFTPN
LINE
LINEFD
LJ
LK
LL
LN
LOCHK
LOOPSD
LOWCHC
LOWRSM
LSR
LTRDR
LTHLD
LTSTOR
LTSWT1
LTSWT2
LT0
LT1
LT2
LT3
LT4
LWINT
LXRDDR
LVRDDR
MRSK2
MRSNUM
MBLBL
MCRTRN
MES1
MES2
MHUN
MLPLR
MOVE2
MCR
MGIL
MRBOUT
MSDTNX
MSMTCH
MTHOU
MULT
MUV
Ml
M10
M2
M201.
M3
M4
M40
M40P30
M40G
M46
4624
4706
4697
3167
6221
3563
0104
01 07
9103
0110
2267
3213
2263
5435
7417
4707
4717
2734
4718
4713
4622
4626
4637
4671
4677
0057
0105
0106
3561
£1050
0147
3562
2346
23.43
2740
5566
4716
7781
7421
3557
2172
0046
3263
4518
7405
4765
0023
0135
2572
0136
0134
2170
3145
4562
2741
-------
/'SIMPLT.
PRL8-V7
PftGE 19-1
M5
M5Q
M6300
M77
NCNT
NEWB
NIflC
NOMSCR
NOHSC1
NONZRO
NORMLX
NORMLZ
NOT I NT
NPTS
NPTS1
NPTS2
NPTS3
N5MOOT
NUMB
Nil
N144
N40
N5
N7
N70
N77
OCTNUM
OPENRX
ORQNUM
OUTPUT
PRDDR
PRSS
PCKLN
PENDN
PENUD
PEN UP
PEN!
PEN2
PEN3
PFETCH
PL
PLCHG
PL 1ST
PLOTfl
PLOTDB
PLOTDX
PLOTDV
PLOTHD
PLOTMV
PLOTNfl
PLOT NX
PLOJNV
PLOTON
PLOtTPN
PLOTT1
2567
4563
2571
0139
4437
4446
5673
2117
2126
3236
5562
5600
5412
0054
2336
2426
2666
0150
0103
0132
0133
4504
0131
4714
4715
0127
3261
0033
0034
0126
4435
0043
3417
6056
0065
6042
6050
6051
6064
4406
3517
2617
0000
4220
4317
4372
4373
3336
4376.
4374
4370
4371
2364
4367
4330
PLOTT2
PLOTT3
PLOTWT
PLOTX
PLOTZ
PLOT1
PLOT2
PLOT3
PLOT4
PLTMflS
PLTN.UM
PLTSTP
PL'TSTl
PLTWT
PLTWTfl
P RE SRC
PRN1CH
PRQTHD
PR TO LIT
P50C48
PTMflSC
PUSHUP
PI 06
P1285
P20
P20T1
P28T2
P20©
P2066
P22T1
P237
P240-
P26T1
P273
P277
P40
P5
P54T1
P54T2
P56T1
P5ST2
P6
P68
P6300
P787
RflDD
RDHDRX
RDHEDR
RDINTX
REflDX
RESET
RGCPLT
ROTflT
ROTflTE
RSTflC
4 3 .£ 3
4336
6032
4200
4561
4227
4263
4304
4326
2676
2723
2600
2610
6130
6216
3146
3510
3313
3531
3275
0142
5434
356©
2350
3335
2165
2166
3332
<. •*.'
-------
/SIMPLT.
PRL8-V7
PftGE 19-2
XMIN
XMSCLR
XRQC
V
VHD
VMSCLR
VRGC
VTOBPL
72000
0197
2731
3007
0101
3345
2732
3010
2636
2155
«J& GOVERNMENT PRINTING OFFICE: 1974 546-317/314 1-3
-------
SELECTED WATER
RESOURCES ABSTRACTS
INPUT TRANSACTION FORM
w
Specific Ion Mass Spectrometric Detection for Gas
Chromatographic Pesticide Analysis
D. November
1973
n~,< :?,-' ar 'ition
Maynard B. Neher and James R. Hoyland
Battelle-Columbus Laboratories
G-8309-1
R-800909
13.
u c'cvrea
,nd Final
n
"n U.S. Environmental Research Laboratory Jul7
Environmental Protection Agency, report number,
EPA-660/2-74-004, January 1974.
Computer programs have been developed for a PDP8/e controlling a Finnigan 1015
quadrupole mass spectrometer to monitor selected ions from components in a
gas chromatographic effluent. The program is designed to monitor only a few
ions (1 to 8) to enhance the sensitivity for the selected ions. Signal-to-noise
levels of 10:1-30:1 have been obtained for 0.2 ng or less of four pesticides
employing chemical ionization mass spectrometry and a digital smoothing routine.
This report was submitted in fulfillment of Project Number 16ADN 28, Grant
Number R-800909, by Battelle Memorial Institute under the sponsorship of the
Environmental Protection Agency. Work was completed as of June 30, 1973
Mass Spectrometry*
Gas Chroma tography*
Pollutant Identification*
Organic Compounds*
Computers*
Data Processing*
Organic Pesticides*
Specific Ion Monitoring*
GC/MS*
Computer Control*
Pesticide Mixture
>k F'fJd & O'rou;
05A
19. S
I j\t-pf>rt j
20. Ji-'l uLT. •_, '
-
a. of
43
Send To:
WATER RESOURCES SCIENTIFIC INFORMATION CENTER
U.S. DEPARTMENT OF THE INTERIOR
WASHINGTON, D. C. 2O24O
M. B. Neher
Battelle Memorial Institute
------- |