SSC-237
COMPUTER PROGRAMS FOR THE DIGITIZING
AND USING OF LIBRARY TAPES OF
SHIP
STRESS AND ENVIRONMENT DATA
This document has been approved for
public release and sale;
its
distribution ¡s unlimited.
SHIP STRUCTURE COMMITTEE
1973
SHIP STRUCTURE COMMITTEE
AN INTERAGENCY ADVISORY COMMITTEE DEDICATED TO IMPROVING
THE STRUCTURE OF SHIPS
SR 187
18 JUL 1973
This report is the companion to SSC 236, a Method for Digitizing, Preparing and Using Library Tapes of Ship Stress and Environment Data, and contains the details of the conversion program which has been developed to increase the usefulness of full scale hull stress, ship motion and environmental information which has been obtained over the last several
years.
ç
W. F. REA, III
Rear Admiral, U. S. Coast Guard Chairman, Ship Structure Committee
MEMBER AGENCIES: ADDRESS CORRESPONDENCE TO:
UNITED STATES COAST GUARD SECRETARY
NAVAL SHIP SYSTEMS COMMAND SHIP STRUCTURE COMMITTEE
MIlITARY SEALIFT COMMAND U.S. COAST GUARD HEADQUARTERS
MARITIME ADMINISTRATION WASHINGTON, 20590
SSC-237
Final Technical Report
on
Project SR-187, 'Ship Response Data Study"
PART II
COMPUTER PROGRAMS FOR THE DIGITIZING AND USING OF LIBRARY TAPES OF SHIP STRESS AND
ENVIRON-MENT DATA
by
Aldie E. Johnson, Jr. James A. Flaherty Isaac J. Walters
Teledyne Materials Research
und e r
Department of the Navy Naval Ship Engineering Center Contract No. N00024-69-C-5161
This document has been
approved
for public release and
sale;its distribution is unlimited.
U.S. Coast Guard Headquarters Washington, D.C.
1973
SS-2
Bib!ioheek
van de
Onderafdinc der Scheepsbouwkunde
Ienische Hogeschooi,
Deift
DCUMENiATIE
1< 3b-37
ABSTRACT
Details of computer programs and their operating instructions are
given for the processing of logbook-type data and associated analogue stress
signals into digital format. The logbook data is keypunched, edited and
formatted for subsequent merging with the analogue signal which has been
pro-cessed through an Analogue-to-Digital (AID) converter. Accumulation of
summary data during the processing is also output on to digital magnetic tape
which is then available for use in statistical analyses. A program for
re-trieval of selected data from the digital magnetic tape is included.
-11-TABLE OF CONTENTS II COMPUTER PROGRAMS i III RESULTS 2 IV CONCLUDING REMARKS 3 V REFERENCES 3
APPENDIX A - LOGBOOK PREPROCESSOR
PROGRAM4
APPENDIX B - LOGBOOK PAPER TAPE LOAD PROGRAM 15
APPENDIX C - DATA CONVERSION AND ANALYSIS PROGRAM 24
APPENDIX D - SUMMARY TAPE AND EDIT PROGRAM 69
APPENDIX E - FINAL SUMMARY TAPE PROGRAM
81
APPENDIX F
- SUMMARY TAPE CORRECTION PROGRAM86
APPENDIX G - SUMMARY TAPE LISTING PROGRAM
89 APPENDIX H - PARAMETRIC STUDIES PROGRAM
90
APPENDIX I - RELATIVE WIND DIRECTION CORRECTION
SUBROUTINE 104 -111-SECTION PAG E I INTRODUCTION i
LIST OF TABLES
TABLE
PAGE
I List of Programs
i
A-I Input Card Format
5
A-II Punched Tape Output
6
A-III Program Listing 9
B-I Program Listing for Logbook Paper-Tape Load Program
18
B-II Operating Procedure for Paper-Tape Load Program
23
C-I Program Listing for Data Conversion and Analysis Program
36
D-1 Program Listing for Summary Tape and Edit Program (Version
I) 74
D-Il Program Listing for Summary Tape and Edit Program (Version
II) . 77
E-I Program Listing for Final Summary Tape Program
84
F-I Program Listing of Summary Tape-Correction Program
88
G-I Program Listing of Summary Tape-Listing Program
89
H-I Program Listing for Parametric Studies Program
99
I-I Program Listing for Relative Wind Correction Subroutine
LIST OF FIGURES
-V-FIGURE PAGE
A-i Logbook Preprocessor Computer Program Flow Chart - VOY (ist LINK) 8
A-2 Logbook Preprocessor Computer Program Flow Chart - VOY1 (2nd LINK) . .
B-1 Flow Chart for Paper-Tape Load 17
C-1 Flow Chart for Data Conversion and Analysis Program 25
C-2 Data-Tape Output Format 32
D-1 Flow Chart for Summary Tape and Edit Program 73
E-i Flow Chart for Final Summary Tape Program
F-i Flow Chart for Summary Tape-Correction Program
ST
H-1 System Flow Chart for Parametric-Studies Program 96
H-2 Detail Flow Chart for Parametric-Studies Program
96
Capt. 3. E. Rasmussen, USN Head, Ship Systems Engineering
and Design Department
Naval Ship Engineering Center Naval Ship Systems Command Mr. K. Morland
Vice President
American Bureau of Shipping
U. S. COAST GUARD
LCDR C. S. Loosmore - Secretary CAPT H. H. Bell - Member
CDR 3. L. Coburn - Member CDR W. M. Deviin - Member MARITIME ADMINISTRATION Mr. J. J. Nachtsheim - Member Mr. F. Dashnaw - Member Mr. A. Maillar - Member Mr. R. F. Coombs - Member Mr. F. Seibold - Member MILITARY SEALIFT COMMAND
Mr. R. R. Askren - Member
Mr. T. W. Chapman - Member CDR A. McPherson, USN - Member Mr. A. B. Stavovy - Member
SHIP STRUCTURE COMMITTEE
The SHIP STRUCTURE COMMITTEE is constituted to prosecute a research
program to improve the hull structures of ships by an extension of knowledge
pertaining to design, materials and methods of fabrication.
RADM W. F. Rea, III, USCG, Chairman
Chief, Office of Merchant Marine Safety U.S. Coast Guard Headquarters
SHIP STRUCTURE SUBCOMMITTEE
The SHIP STRUCTURE SUBCOMMITTEE acts for the Ship Structure Committee
on technical matters by providing technical coordination for the deteriìination
of goals and objectives of the program, and by evaluating and interpreting the
results in terms of ship structural design, construction and operation.
NAVAL SHIP ENGINEERING CENTER AMERICAN BUREAU OF SHIPPING
Mr. P. M. Palermo - Chairman Mr. S. Stiansen - Member
Mr. J. B. O'Brien - Contract Administrator Mr. I. L. Stern - Member
Mr. G. Sorkin - Member
Mr. C. H. Pohier - Member
Mr. E. S. Dillon
Deputy Asst. Administrator for Operations
Maritime Administration
CAPT L. L. Jackson, USN
Maintenance and Repair Officer Military Sealift Command
NATIONAL ACADEMY OF SCIENCES Ship Research Committee Mr. R. W. Rumke - Liaison
Prof. R. A. Yagle - Liaison
SOCIETY OF NAVAL ARCHITECTS & MARINE
ENGINEERS
Mr. T. M. Buerman - Liaison BRITISH NAVY STAFF
Dr. V. Flint - Liaison WELDING RESEARCH COUNCIL Mr. K. H. Koopman - Liaison
INTERNATIONAL SHIP STRUCTURE CONGRESS
Mr. J. Vasta - Liaison
-I.. INTRODUCTION
Midship bending stress data from four dry-cargo ships, accumulated during an
eleven-year period ending in 1970 under Ship Structure Committee Project SR-153,
"Ship Response Statistics" were available as analogue signals recorded on magnetic
tape. Associated with these data were logbooks which contain hand-entry
data
relative to pertinent ship, sea and weather information. Subsequent to the
collec-tion of data, better techniques
became available for digital processing of data by high-speed computers, thus permitting easier and better access to the data for statistical purposes.
In Reference 1, the general method
was described which prepared and digitized the analogue signals and combined
them with the corresponding logbook information.
Further, demonstration examples were given of the retrieval of various items of data
and of presentation formats for use in statistical analyses. Although no statistical
analyses were intended as part of this project, ample evidence
was given of the
pos-sibilities available through the use of the detailed programs developed during the
project.
This report presents the details of the several computer programs which were
developed to handle, process, edit,
compact, retrieve and display the data original-ly recorded in analogue form (on magnetic tape)
and as hand-entry logbooks. Although
the program.s were specifically written to handle midship bending stress and related
data, they can be used with minor modifications to handle a broad variety of
ana-logue signals.
II. COMPUTER PROGRANS
To aid the reader, each of the several programs developed has been described
in a separate Appendix as shown on Table I. Thus, use of one or more of the programs
for other applications should be made more convenient. However, a short description
of the major programs is given here with the subroutine and peripheral programs
given only brief reference.
The logbook data were prepared as punched card input. The analogue
process-ing equipment utilized a perforated paper-tape input, thus a Logbook Pre-Processor
program was used to edit the punched-card
data and prepare the perforated paper tape. The paper tape also contained
operating instructions for the computer. These paper
tapes were then read into the
processor computer and stored for subsequent use and merging with the digitized stress signals.
In Appendix A, are given the program
TABLE I - LIST OF PROGRAMS
APPENDIX A - LOGBOOK PRE-PROCESSOR PROGRAM
APPENDIX B - LOGBOOK PAPER TAPE LOAD PROGRAM
APPENDIX C - DATA CONVERSION ND ANALYSIS PROGRAM
APPENDIX D - SUMMARY TAPE AND EDIT PROGRAM
APPENDIX E - FINAL SUIARY lAPE PROGRAM
APPENDIX F - SU'tARV TAPE CORRECTION PROGRN1
APPENDIX G - SUV4ARY TAPE LISTING PROGRAM
APPENDIX H - PARATRIC STUDIES PROGRAM
-2-details for the Logbook Pre-Processor program and in Appendix B are given the
de-tails of the Logbook Paper-Tape Load program which reads and stores the logbook
data in the computer.
The main processing program (called Data Conversion and Analysis) operated in a real-time environment through the Real-Time Programmable Clock within the
computer. In Appendix C are given the details of the program, written in Assemoler
Language which permitted processing to be done at a rate increase factor up to 25 over the original recording rate (0.3 inch/second) without requiring starting and stopping of the analogue playback unit.
The practicality of processing and writing a complete digital data tape with-out errors (which would have necessitated considerable rerunning of much already completed and correct data) early indicated a requirement for the capability to edit and compact partially filled data tapes onto one essentially filled data tape.
A Summary Tape and Edit program (Appendix D) provides this capability and permits
certain editing options. For data retrieval to be used for statistical studies,
the computer read time could be shortened appreciably by reading only the pertinent
data and not reading the 12,000 pieces of raw data recorded for each interval. A
Final Summary Tape program (Appendix E) was written which allowed the complete sum-mary information for the 217 voyages to be recorded on two tapes.
The utilization of the data on the Final Summary Tapes required a program to
read the tapes and perform the comparisons or to select certain data. The
Para-metric Studies program (Appendix H) permits the reading of the tapes and provides
output of required information as punched cards, printout, or stored on magnetic
tape for further processing.
The programs or subroutine given in the remaining Appendices were used to list
data on the magnetic tape (Appendix G) and correct the relative wind computation
(Appendices F and I).
III. RESULTS
Use of the several computer programs given in the Appendices permitted the
processing of the analogue stress data and logbook information into digital form and
allowed selective retrieval of data for use in statistical studies. As a point of
reference, typical usage of the program can be used to determine approximate costs
for additional or similar use. The typical sequence of activities to process 100
intervals (and associated logbook information) and output to a Final Summary Tape consists of the following.
The keypunched logbook data are loaded onto perforated paper tape (using a
standard IBM 1130 computer with paper-tape punch). Approximately one hour of
com-puter time is required to list, edit and prepare the paper tape (including
verifica-tion printout). The paper tape is read into a PDP-8/I Computer and the data stored
on DECtape using approximately 30 minutes of computer processor time. To digitize
and process 100 intervals (originally recorded for approximately 32 minutes each
at 0.3 inch/minute) at a speed-up factor of 25, requires approximately 2 1/4 hours
of PDP-8/I computer time,
The preparation of a Final Summary Tape from several tapes is dependent on
several factors. The generation of a tape (equivalent to the full-bridge data tape
of approximately 7700 intervals from 15 data tapes) would require approximately
1 hour of IBM 360/65 computer time. It would require approximately 10 minutes to
run such a Final Suary Tape through the IBM 360/65 to retrieve the data from the
PARM program. However, judicious use of the program permits several studies to be
The details of the computer programs necessary to prepare and digitize
ana-logue and logbook data obtained during eleven years of acquiring midship bending
stress data from four dry-cargo vessels under Ship Structure Committee Project
SR-153, "Ship Response Statistics" are given.
In addition, the details are given of the program used to retrieve selected data and present the results in a form for statistical analysis.
While the programs were written for the specific application, only minor
modifications would be required to permit utilization on a wider variety of logbook-type data and recorded analogue signals.
V. REFERENCES
-3-of the demonstration examples given in Reference 1, were retrieved in one pass. Depending on the output specified, mechanical card sorting and preparation of corn-puter plots are very dependent on equipment used and operator experience.
1V. CONCLUDING REMARKS
1. Johnson, A. E. Jr., Flaherty, J. A., and Walters, I.
J. A Method for
Digitizing, Preparing and Using Library Tapes of Ship Stress and Environment Data, Ship Structure Committee Report SSC-236,
-4-APPENDIX A
LOGBOOK PREPROCESSOR PROGRAX
INTRODUCTION
This program was written to take the logbook data, which has been punched ou computer cards, and process it to output as a punched paper tape for subsequent merging with the analogue signal data to produce the digital magnetic tape of data.
Logbook data had been recordec in four slightly different formata during the
data acquisition projects. This program accepta data in any of the four formata
(as indicated on the header card) and converts to a standard format.
After completion of all logbook data preprocessing and during the production
runs of data, it was determined that there was an error in converting certain wind
direction data to the standard format Relative Wind. A subroutine was subsequently
written (see Appendix I) to correct the Relative Wind data at a later point in the
editing portion of the processing. While this subroutine could be incorporated
readily into the Logbook Preprocessor program to provide the correct information ou
the punched paper tapes (and eliminate the need for correction during the edit
process), it has not been incorporated into the program listing given herein. GENERAL DESCRIPTION
The program has been code named
VOYAGE and herein is referred to by that name
rather than the longer and more descriptive title.
VOYAGE reads logbook data in the form of header information (6 header cards),
interval information (2 cards for each interval) and voyage identification
informs-tion (2 cards for each voyage). The format of the input cards is shown in Table
A-I. The program prints the input cards, punches a paper tape from the information
and prints
an
image of the punched output according to the options specified by theoperator. The program allows for any combinatioa of the operations specified above
except printing of cards and printing the punched output simultaneously. The format
of the output (punched paper tape) is given in Table A-II.
The program reads six header cards and performs the required operations. It
then reads the nuthers of voyage and interval carda specified in the 3rd header
card, performing the required calculations and operations after each set of 2 cards
is read. As these cards are read, a check is made on Coluan 78 to determine the
presence of a voyage card. (Voyage Identification cards are identified by the
letter V in Coluni 78.) If a voyage card is out of order or missing, an
appropri-ate error message is typed.
There are four types of interval cards; formats A, B, C, and D. The formst
type is punched in the first interval card of each set. The program handles each
type differently, providing conversions and information reordering where required.
TABLE A-I - INPUT CARD FORÌoIAT
Skr-.4.r 4 Il-rai., S
Interve) ShIrtineg. Leng Tnt,rvrlr or Ittita l,.t 1.9cl Card lre4,et (84)
C&tnrns
-1-73 (5 14-77
lt
Th(rr-o.1 bleIb., loog lehivelo
1-70 (3 or ROto Sr Igior 1..i.t.l 74-17 Cord lSsnbr.r (lt5) TABLE A-I (Continued) ratier 6
lrtero.i DOlotbooc, bog loterools or 11.11. 9.t'° lohol Card burlar (1Q63
Ist.rtei I (Ftrr..ra 45cl lolerosI 1 (I,rs.t It)
lato Ioro.ot Tsp. rAieront. Intorsal 0,. Lo1lovk mOto 8,odror Dots Tire lOtit 000tbrolt Cro,.. t,9rfl. P1-19 trod it-nr4 Oint itrpctloo Preaetotr r0 Stato Oso. l'I,rrtlsot 5.5v, Cliht 85,4 1er tOri C.rd idontilIrgtlr
l-13 Il-16 17 19 10-21 28-3 t 37-36 39-16 lit-1 Tort- tr (Opino
8-lt-(tilr.stlr )4vbrr
C-or.
Ivi. oleo litro/StIri)
(.51-I
01 - -i (Lvneltodlr,,1)
liraIt, Irr ',0 Irrst,, LIb Tepe i'. j
I-35 36-31 LIe .1 ¡.1-1: 53-97 !-5-C: 4-77
R.ot I
LIt-tory Tat-,
$rrr
Cor tr-tror Irate Cor.tract liUor lsi'° 1.4601 Cord Itoobor (li'1) 1-25 26-SS 56-73 34-77 78-80
lia .dor 2
CorOnet Ilualior (short)
l-7 8-72 lot-o Jubel 4-77 Cord It-raSre (l2) 18-84 loador 3 V,rat-o lirenire 1 1 8-raSer rl 4vrr 2
o400r Itr000vut, Oste )1. 1
2,4 No. 2 5,6 , Sr'. No. :4 4 7,1 9.10 Vo8 ego )4,,'t-rr 2 11 JrrrorrsI 2
85.0 oo for VoltIo ire.
1 12-20 (800001. 7., I Cl Vy lut-Itt I 21
Suso, as 84-r Voyogo Ito.
1 22-30 Voyoto d,er 4 21 laso so fr 9C2540 15*. 1 32-40 Soir lt-l'eI 74.77
Cord 8-thor (A3)
78-43 1-60 (S001..p La Le rosi) 74-71 78-00 TABLE A-I (Concluded)
S'-rJ Dot-toO tiM Seo livor ature ¿.6. Tr. .e;.Ittr. 47-49 55-53 24-57 50-50 63-6?
roo l-lot A,v'd
2t,r, Shed IIIOCCLIDII 63-1.', 69-69 l'rai1,, r 69-73 Card Idvorlfbeoeboo 71-10 0-il lI-16 -lot rrt'.12 Il-19 20-21 it-stoat Ir) daobor (oesUrird) I-Is 38-39 berlin 5-to litote 10-17 32-37 ir,.' S've ilreetbr,n 10-II 38-46 Otro li i4t 22-23 47-49 davo lette_t 24-IS 50-53 havc ter,ir' 5-57 yvell lot 5--:.) SI-99 CU-I, 84-85 68-6h SeriO tor.: .1, Treo 8-v I
lot,, orlon It, rot.- t r r 32-3', 40-46 70-71 45-7) 72-73 Card Id,r,ntliosltoo 74-80 Ovyog. I 1l,tp 1:-r-7i6 1-3
lisyogn Irr--, IteteVr-v.
-S-tir 17-19 50-2? 4-f 21-V-6-15 I_r_h: (ir.-/ra) 11-14 b-rb r-i-' 60-25 ¡S-19 70-0 1 72-14 9.10 l,. C.rd li,r,er (':1) 34_7) 78-8 .0 2 5-4* YryrVe 2 45-7' 74-84
TABLE A-II Block
- Punched Tape Output
(128 Characters/Block)
Characters
Item
header i
Library Tape Number
1-25
TABLE A-II - (Concluded)
Customer Name 26-55 Contract Number 56-80 Comments 81-128 53-56 Engine PM Header 2 Commenta (continued) 1-17 Bi ank 18-19
Beaufort Sea State
57-58
Number of Voyage
20
Relative Wind Direction
59-62
Relative Wind Velocity
63-64
Voyage i
True Wind Velocity
65-66
Relative Wave Direction
6 7-70
Number of paasea
21
Wave Height
71-72
Number Intervala, pasa 1
22-23 Wave Period 7 3-74 paaR 2 24-25 Wave Length 75-77 pasa 3 26-2 7
Relative Swell Direction
78-Sl paso 4 28-29 Swell Heigbt 82-84 Swell Length 85-88 Voyage 2 Barometer 89-93 an Voyage i 30-38 Sea Temperature 94-95 Voyage 3
Air Temperature Weather 96-98 99-118 Same as Voyage i 39-4 7 R lank 119-128 Voyage 4 Interval 2 Comments 1-29 Same as Voyage i 48-56 Voyage i Ship Neme 1-16
Deletions, Long Inter-vals, Halts
5 7-128
Voyage Number
17-19
(5 char, ea.)
Date Voyage Start
20-27
Date Voyage Rod
28-35
Header 3
Deletions, Long Intervals, Ra lt s (coOt.)
1-128 Route (from/to) 36-67 Route Code 68-72 Intei-val i
Tape Reference Logbook Index Number
1-12
13-15
FM Tepe Reference Ship Calibration Factor Gage Location (port/stbd)
73-107
108-111 112-115
Intet-vei Number Date 16-18 19-26
Gage Location (longit.) Blank 116-124 124-128
Time
27-30
Lati tude Longitude Course Speed
31-37 38-45 46-48 49-52
Voyage 2
Draft, fwd. Draft, mid Draft, aft Blank
1-5
i
6-10
-7-by reordering and converting the input as required.
If the operator requests that the cards be listed on the printer, the
header cards will be listed first. Then the first card from each interval in a
voyage will be listed, while the second card from each interval is stored on
disk. When all interval cards for a voyage are read, the second card for each
interval will be printed followed by the two voyage cards.
An "End of Job" message on the console typewriter signals the successful completion of the run.
A listing of the program is given in Table Â-III and the flow chart is given in Figures A-1 and A-2.
SYSTEM REQUIREMENTS I
VOYAGE requires a ixdified version of the PAPTZ routine. This modif led
version is program No. 1130-03.440.6. However, this "ASCII PAPTZ" was modified
to provide for the specific requirements. These modifications consist of:
(1) Changing some entries in the conversion table to give the correct punched-paper-tape characters.
I (2) Changing the program to prevent the output of an EOR (End of record)
character following a 72 character group.
VOYAGE requires the 1130 Coamercial Subroutines VIII GET, PUT, WHOLE and
NZONE.
VOYAGE requires 100 sectors in the Fixed Area for its file, VFILE. The VOYAGE program is made up of two "Links", that is, two core loads.
The
first link, VOY, types the printing and punching option messages. It alsooperates on the six header cards. The second link, VOY1, performs the remainder
of the operations. Both links are stored in Core Image form, in order to reduce
execution time.
OPERATING INSTRUCTIONS
1. Card Input
1/
JOBI,
XEQ VOYist header card 2nd header card 3rd header card
4th header card 5th header card 6th header card
FIG. A-1
- LOGBOOK
PRE-PROCESSOR COMPUTER PROGRAM FLOW CHART -- VOY (ist LINK)
729
iwi-/
\it lIflOVI. CAPO! T,
VOIlE 2nd
\ 0V DISK
30
'V TES
WNVERT & REORDER IICIITYL DATA
30 PORI4AT TITE
\
PASEO \ INERTI DATA FOIRRAT TOP WAIT 123 707FIG. A-2. - LOGBOOK PREPROCESSOR
FLG. A-2-(Continued)
COMPUTER PROGRAM FLOW CHART -- VOY1 (2nd LINK)
liAIT
126 880
PUNCH VOYAGE CARDS LIST
OF PLTCH9EG YES TYPE END OP JOB SS AGE CALL LINK (VOY)
PRINT PUNCHED OUTPUT LAST VOTASE?
OES
FIG ..A-2- (Conci
TABLE A-III - PROGRAM LISTING /, Jo ,r ç'UP rELE'E VOY -ri-1
i'
LISY ALL *-F*Tt*,7F* F*C!5IC.*. oLt WO'3 I*TECE*5
IOCSlCAkO,?AP TAEiTY°'-fl C VOEY0
tVOYI.
r770 VYO,10 C'AC 11ADR CA5. InTERVAL
P.3$ A'3 /QYAE VYGUL12
-J*;ii6JC'* c*,oS
-C PR*.T CARDS FO C!N3 PUROS(S C...7J(-ES 12
C.L0C1E RLCOKS OtAYt rAiE CR VYGE002 C ÇURT.*EA *1-LYSISDEFP! FILE 1Oij00.81.LJ,IFILE)
VYOE0C26 11I*'E'JSjO* T'i 03),P.P73:601. 1NP34(RoI - VYGEOC_e DI'N5IC*, TvDYLj.i.T*,,(2),lO(e) VYOEOC3O DI'SIO' 1P(5l5ti .Tn;pTr2T . Gt31 CC'"*O'I 1V0Y5,IT'o4.IØ.Ir VYGE.0037 Ç99 fr!LE.1 VV 0.'6 V YO C C D Vi G U C 3 1. 7 VYG'Ç'Q.6 vvOi IASTR.2361E VVGrCio tS7P.19320 VVG0G323 WRITEI3,2'.I Vi 7533 C VY.6COIPO .
wnii-v
'rr' 6I
EL"BtYt, TO . C ¡F PPR YLE IS 7 PuNCHED VYG.O2DTI---.
--11 WRItCIi.201 VGC.6217 20 -'ATI VYAGC ERO *...V'yOCVJ -- E'TEru O 1 LO F ViO 02A0 PT_, IFIIPCF*u L.Ç53,RLC VYOED?S C TYPE nE5SAC PCR LRTT'13 J'HCDO!JTPI)T -ESO w11T'uj,esn VYG7CS3 012 FD.*4R1(t*iR j ForCLT5Tl{OoF P*HU51OUTPijT.0 '06 NO LiST!*uO'
VY012S4
Q(n7(621} lUí
r'rILu.
ITz.3-çr----s5 IR'*T.o VYC,7,7 07 1 . VY0EÓ7S 21 F0*RA.T(I1I vvo p0 C -.
C'SIVSC..0 MESS
tTQOfltMTNipR5'uTj.5Q-
--PS) WRITEIL,7Dsuor--?
-r--r-o S-PWT 1t6TE1ì T--rF--pwjp-t-'r---R(AC*u6.21) I°A'IT C-VYO C'2 3 C
FuED AnEADES CAnD5,PÇ!I9y I.nAD(R CAAOS
A'.O
E1NCM HERDER ItFORMAO*1 VYc EZAG
C P RCOJt'ED
...V'PG )2ÇC
PSI2.311 i.'i2iNvD.lu!yîYj.JJ,j,5),JlID.ILpTU
YECiGOl- ??"1 ' 577
7r1 oc nTS1zr.'3',Eîproi 7P'RTr-3 RAOl2,6'j IT5.IP.uTi, S'5010312 TABLE A-III-(Continued)
65 FCTOA1/5#I -ilP'T* *C3,702,70* ...-703 h*.11013,23) ,uPIj,rIPTS VV) 33.T'3'PDR'Y&Tr" '.ns1,5X,O(1.5A,1AATC7E6,1Aif,' ',,,'ES,81,31X..ALl VGpC0O'
WFlTE3,27I I,uvG,u1VoVG,,J.1,5),r,4),,p16 VYGED7A) Z'? F0'AT' I:.4ç2x.T1.2A.lr,2EEr7.2x,rz.2x.T2),31Xarr''VYsG I lS6,2fl,8A.5O6H -WPITE(53fl lSPT5,lT6PT6l1Ti!.1.t07CTPT6*j..7U.60í 52 TC' 14(565,26},e,.,IOAL/' '.I2*SA1,20).25,?A1///) 61V-7350 r-ri-z .VrTvr1'r'fl1,1ei,311 Vo , C PJ'.CV PAPER TAE Vi) 3370 11 wqIrccp,Dol*tn71IrI,r_173r.i1-s1T2cTI.r.1,7Tl.r.,o.11spr21IT, 000EO)O6 I
I.56.121,lNV0. IIVOVDII.J* .J-1.I,1-I.),II*1fT(Il .1.5,73k,
VYZC3AC 7 IN512I.INPT5I2I.1STP --' 26 F6T*'?26j/51AI/17A1.20.lj.414T2),j6Aj/07A11 C.r76I 1INPT5II7,I.),*0IiTYEThÇTT,TiS3k,!57P 1EULISTI 856,121,R56 -P56 WRTEI',.29*(INPTS(1I,I.1,731,I52*II,l.j.5S,,151P.lT*kPT2k,
v:.,
k 5N.7fl INVS.( I IVOYGI I .Jk .1.5.5) .1.1,41.1 IMiTAI I l'i .75 , ¿T'.P1Si5* .I*kPTSI2I lIli
29F0M4TI' ,72A1,' .5741/ .57A!,26,1. Tl,4!Dì,IAAI/' '67411 "5CC.1-S i ,x- *sn ,T2TAflTTA'7T037TISDÌ' :25 C'.,L. LILAIVGYI) VElLO'. VV.. 3 .o t I, OUR -- -wS--.VS--V7-r -. 1145110 .VF I LE t
TABLE A-III - (Continued)
TABLE A-III - (Continued)
,, JOB IF(IL!ST 9O.l.B9O ' YVQEO66 f, otip çc WRlTEIN,7lIINP1IIIJ,1.2,91.PE(.ITNPT1Ifl.T54,7fl,ITRW VS'GEO6(2 flLCT( VOY1 17 OqMATI'
1-r-?of -
.Ex'TENE) PTC1SONw:r.in INPT(72),!?1I'T1(13),(INPT2U,I1.44),1STP VYGO66 ONt 3Rt' I ?TU,RS 1 FORMAI
' ,5A1 ,T11 .7A1 .-ri ,?.A1fl1 ,a18.F
VVGEC6é6 .I005CA).pAP[F APE,1YPERtTCR,fl2 PRNTtR,CYeOARD.D1SK iINT2CjI,.4,73,J5TP
vcooe
DcrI?a fill 1O(3øO,81,U,FI1tI VY B-ro*îr
VYG67O DJMtIS!("4 l 1lC8O,1,PT2IO vY_Lc'.O $91 I1R4(1).1648 VYGO6'2 V t.1u--i-vtTTGTçT5-r.rThw r2Ti1U ( i v rc4 i. (OP4O YGEO't c o FEAO NtX NT(VAL CARD V'rG 0676 (O.;MON RD,!NVG -650 CO7T1T0JE -VYGE0676 C 9(40 ,1(RV0LtAROS,PR1 TT31TMtARD$ AN0PUNC{ r#V7VAt'
-vyc. 0420 C I9F0R7.A1ION F R(OUES1'ED VYC, 0430 IFPR8fl 23,123,601 VVO40663 VYD 04 --C
SET UF LOOP FOR READIRO INTCRVAL CARDS
VVG1C'1 EEND.IF LE-S VY(,E0bBS 2 fonMT(2u1r VYGEO4 2 00640 i.1.ICrNo VGS0686 121 ILO?1 VYE041.3 READ 1011 INF't1ISI.INPT2 VYGCO6ST 630-1Yt1tOP17VOTZQ467V,6OO VY.10444 IFIINPTII*35296T970i931.Y7O vvc.oaa 620 ININT.O V)DEC'.45 920 WRITEI3,32I 79P12 VY0E0689 D.. V9'DF041.0. ))J_ R) VYGEC80 610 INT.INIPIT,IVOYGIII.OP,11I VYOEO'.R7 92 1491 (3.91) 19P12 VYG 691 DO 670 liI11,1'l1'(1 "E0060 1610 CONTINUE VYGE02 729 READ(2,2PIIIPT1l,I.1,49I.SPE0it1NP11l913A160TZ VYOEO*.5O I'ILE.l VYGE0 --28 çÛp.467149A1,r4.lIOlAIf8OAtT 3? IF I1t.11I78)7947l 722,721,720 VY.E0460 i 20A1.4X,9A1,44.7A1l VYD 0699 170
,eiirL
VYGCUCST 9, 'J''4A11'TT VYOAC4Q CTEST FOP PRINT OPTION
14A1,2X,SAI,20,29A5.29,TASI VYGEC697 I V\000477 -C
-VYG 0690 CTEST FOR CARD FOR"ST
VYG(0474
,C
9(60 VOYAO( IDEMYIFICATION CAROS,PRIPIT VOYAGE IDENYIFICATION
VYG 0100
709
IFl1T1I1l.7N61Ol2,1PO,T2T
VYDEOST6
-c
CASOS ANO PURC,Ç11
1t(2UTRrU C t) FCR'I#T CARDS Vsç.LOâ.e0 C VYG 0?T
orcT7.'1 LI FTiTfl.NV1 .SPLEV, I INFIlI I)
..s...oi
VYOrOOT3 1WRtZTYI7TT71TNPTTT1NFT VTO GT RO FO"146T71 ,,lAl.2X,12Al.2I2X.3A1I,2X.8A1,2X,6A1,26,7A1i2TA4l V10E0484 IPIINPTll38I.488) 725.734.775 VY0007)J 74 W0507N4 P917C110'IFIL(I INT'ilIil,I9C'T2 VYC.0040b 37 FOflMA7teoAI -VTO GO O O1 -IGt0407 776 1F 1PRTI - 707.709i707 Jy( 343. 122 WRITEI3,71(IINPILIII,I.1.49I ,SPEED,IINPT1III,I.54,AOI VYGEO'90 707 9917113.701 INPTI VTO 0700 -fl----?vw-TR-7--I' 39 8..1l79R'TI,,, ',I9A1,NR,3A1,55,99l,9.9A1,54,30A(,5X,5&1,9X,8A1( VTO 076ò IeAl.29.)Al.?IL,rR.1.Ox,4A1.2x,2AS,29.4A1.29,ZA1,2R,4A1e2xZAi2X VYGEOSIO bI9IT(13.391 ppT VTO 0770 - 7OAl,29,TAI V'FG 0570 F0914611' S1.PR,lA1,5X.lAíX.91.3(5x.8Aj7,13A1I VVG 0780WRITE ItØ9FII..EI INPTIIOI,INPT2
VYGEOPSO I CHECK FOR LJNC"INC, VTO 079 141-IPIIPC,II 30.6SOl5 VY0E0540 -'106 IF IIi'CHI )26,l0.1Z6 . -- VYG060I VYOLOSRI C
CCNIIT,iJ( FOP PU'4(.HINC,
VTO 0810
-C
O6UII .AtCl,1)7.I7IS rULMIU
wxv t0367' 1 I1t.',T7LI-ø'7fl7r.).5,,3J,))r8p--1-j-J,7.3,52-J,15yp-Vy0tl2Ö C V1010503 1IINPT2I11.I,5S,97),ISp VTO 0830 C ----(VSI rDR F09119?
-
--- VYGTOP6Ô 40 FORATI77Aj5741.4A,9175991jj9,p,911-VYÇ(10640 SO IFIINPTSII)+16O64193.36,RP VYGEOSÒ9 IFIILISTI 063,10,980 VYG(O8'.S FR W9IT(IM.3317171PT111IT.T,,2IA9T1SPEtO,IIM T3iT.4.'YS1.709W -VVG10370 i 880 VVGEOSA2 33 FONMAT (lOAl,T(A.SAl,Tl3,3AS,Tl9,3OA1,T49,FA.1,T5),4A1,T63,2,S,TS9,VYG'ORBO -Il .673( 2l,l53.67I,ISTP VY0008I.3 VYC,L95710
A1T''V738T7't lIlAO iAR 1911'
I [SA ¿ 149,91)
-WRIYFIM.341 INPTiI72I,I1P1lt70I,l1NPT2lll,I.1,46I.ISTP VTO 0600 10 1491T(13,241 VI 84 --54 FO¼HATiPAS,T10.'YAI,Tl,R*11t17.30A14131,A1T -VYG C'610 00 TO 630 -VY 4 C VTO 0620 C vyc 0856 C-ECGD PLOCK OF INTERVA D*TA1O9PIJ71CHtU
-- -.
----VTO 0630-.-
---VY 0070 C VTO 0640 CCHECK FOR FORMAT 'O'
VYG(C800 W*1Ttt'.j,, ,r4Y-'rzrrriTP'.3,1)7.IS1v VTO Q0 I. 17fLtVYORI1,R.,. FLOLUS 408-Sr » rOMTl3tlAS) 1E066O
,P1t1l.i5296le33,334.833".,-'c.-VIGEQIAZTABLE A-III (Continued)
-VVGEO6R3 VYGEO8 84 El Vy 08T6Vyoc 0987 VY0E0869 - VYOEOI89 VY0E0890 VYOECYY1 VVtGT2 V YO 6 0 9 93 VYGEO 893 VYGEO896
.VVGEÖ68'V V YO CO 8 5 R
--- WCGSTÇ
VYGE 0900 GO TO 645 V53E0902 - I5W71 VYGCOROO $45 Ir(I7,PT1III.152961 57,58.57 V7160904 WVDR.GETI 171"T1,66.65,I.0I VY0E0920 1SW0R.GCTt1 5P2.lT. 13 'TOOl 'YGEO53ø :C C'-76Cc F09 F097-'AT 'C VYOEOS4O--tr rt'Pi iiiii
VYOEO9SG 60 L.6O VY060960.5,
-C(O.vT".Y PFLATIVE WISO *80 WAVE DIRECTION TO REL P AND 5
VYGEOIIO * 63 3FcW4O#-80. J 6t.62,63 . Al ISPTI'El'-7616 V5C,E1000
G 10 66
-VYG 110 62 INPTIIK)-16448 VYC.E1120 -vYtrrro $3 WNO836O,-w578 VYGE1O4O INYTI(Ef8.r1O432 . . VYGC1ISO 64 K.61 VYGE1I6O L.. CA'UlJtJ.PTI,L,k.WNDR,D.,QI-
...-VYDE117O JFIC-t,2) 66.67,66 VYGE11BO VVTE11cJD 6.66 YYGE1200 r-- - WMDRWV0--.-.
..---GO TO 65 VYGEI2ZOCONVERT YELAT tvt-swEtL--otRtcr1oN-to--RtC-rv-p-*
S -VY6E1230 66 IrISwDR-80, 68,69,70 VYG61243
, ¡1e,i.,j.-r,b
VYGES25O j 60 10 71 VYGEI2AO $91 727147 6446 . VYG61270 GO TO 71 VYGEIZRG -10 I5YT2J147*lÚ43z VYG61290 SWDR-360.-$wt,R VYGE1300 is ÇAL VUih)I1Z,1I,i,,3WU9,V.,U, IF)ISi.1 '-60.625.660 860 00 817 7.60.6.7 -657 INeTIJI '16447 - 7P1T3W2) 6,p',9,88-838 00 862 ¡'66.69 !6 859 IFIJSW3) 663.55,863 37 MI-61 -M?. 38 GO 10 631 I 'G e M2.1) 651 ?FIIPIO-71)--164481 R35,836.8 855 ISW1.0 GO 10 837 I $36 IS.711 '31'1t1T!bC'Jbl
RIR.li'#,838 839 IF(lNP12IO0I1644el 840,841.840 67.0 15W70 --GO TO 642 841 11W2'I GO TO 87.2 836T?flNPTTrbU,-76446) R40,ff6T687.0 64? IFJINPT2IU2I-16448) 843.644,843 843 15673'OVIOL 1310 VNGE 1311 VYGES3IZ V YO E 13 13 VYG Cli 14 VY661315 VIGE 1316 VTGE 13
TABLE A-III
(Continued)
863 00 865 I.1t.l4 -. . ---VYGEIISB 863 ¡NPT2II)'16446 .-VYGEL319 GO TO 56 VYGES32O rC ÇrLt(JrTCTrTVtTNOM TWUE VYC,ETïib C VY061340 C FOY9AT R -VVGCI300 39 WSDS-GET(ISPT1,56,59.1.0) V5661360 CRLC.GCI 1I&PT1.47,49,30l VYGEIIYG C WAVE DIRECTION VY061380_ , WVU-"WVOYt916 61661390 IFJWVOR) 74,79,75 VYGES400 74 WVOE.WV0RT60. -VV6,61410 'C SWELL DIRECTION VYGES42O -18 R.5RÇR56 VYGEI4I0 IF7SUON) 76,77.77 VYC,61460 3,0CSAU94)6U. -C WIND DIRECTION VYGE146G CALCULATE REL81IVEV7DI9(CTIONFR0MTRUEThflkbb18ECT1OMWES470 7 77 CORS.CRSE VYGE1472 ,..., CRSL.RAD'CRSE VYGE1414 ,_. W767)R.YAO',4N09 VYGEI476 DNSL5"tLO'CUSILRILJ VYGE1'EO SEWC.5PE03.SINICRSEI VYc,I:1490 CWTIDC0'.'AONEi415 VYGLIOOÖ W'I5C.WTGSACOSI,ei7OR) VYGESI1O --wEwC-wNDS-sIir7.rnDR7 - VVGESSZO RWJ.5.SNSC.W'ISC VYGE1D3O '7_ 57'9C'ISIL THt11..16A/9WYS VYGEIS9O -.1'KETA. AT#?JI TI-)E1A1
VYGEIS6O THETA.TNETA/RAD V16E1560
15.T.X5r
VVGEIS7O 157' THETA.THETA.163 VYGE1SOO '151 WNt1'7'-IMtALV'(SVY3c
J IFIWNDRI 112.159.159 VYGES600 L 152 57509.WNDV.16O. VY061610 159 RWNDS.5,JE,,..2.RWNS*.2 VYGE16ZO RWNDS.5C9TJ9VN7SJ VYGCI6i0 CCHECK FOR FO8M6T
6' VYGIS8)l UI1N"1,I0)-35JJQ8I 153,354.153 vYGtfltO 154 ITR-JIl).!NPT1I58) VYGE16IO IIRWJ2,.INFT1159) VVGCS66O CALL PIJTIINPI1,SR,59,RWNDS,,5,O) VYGEI67D 00 10 G VVGE1680 193 TRA117.79P11)63I VYGE16RO V70C179T CALL PUTUIEPT1,63,64,RWJIDS..5.OI VYDEI7IO 0010 J/Y66112O C VY6E1730 -- TORMAT0RElXrlvt 1701M TRUC -VIGE I 740 C VYGEI7SO VIO 617 WVDR.OETJ INPT2, 18,20.1.0) VYGEI7SQ
--VY0E1780 WNDS.GET(ISPT1,63,A4.l.o) VY661790 -CRSE.GETIINPT1.67.49,1.OI -%'YGEleOG GO TO 79 . VYGEI6SO T u'7-8Tu'7Vt'7I RtA,I9t 1V XtLRiIVt F AYO
TABLE AIII
-(Continued)
I --.._, -' -.. -.
- .. ---VYGE18'.0 16 VYGEI870 GO TO S'. VYGIRGO vy'.EFfl GO TO I'. VYGEIReO S' WN36O,W)R -VY3E1592 t45.(.10472 VVC'E1900 Se GO TO c.e7.e0).E VYGE)91G 06 ¡NPTI)Ee),IMASE VYGEIN2O LA.L ,T,b1,S7.WNl.)M.U..0J VYGEI9)O WPeOR.WVDR V90L1940 -t-- ---GO TO -t 91 1RT2U1TPRkSE VVGEIR1Ö CALL EUTIINPT2,18.2Ó.WNDR.0..0) VYGES900 P!1Ç7MWU'S VYGES9T VYGE2COOttD 1fl95
VYGE2DI.G SS INP72139)IMASE VYGE2O2O -CALCPV1I1NPT2 , 9* .1 riwflVR .v. ,i -VYGE7G)G 'C PU)CH 0' FORMAT CAPOS VYGE2O3T. 4 7UIMAM SWIILP ¡9 IJM SL.AN
AJT APROPRIATE rtAtU
VYOE2D32 VYGE 2033 ---lFtIswlrFw*.9471e56 VTGt2iE 546 00 04e I.6,68 VVGE2O
--tea- IN'11 rtI.IARAR
VYUE2036 547 IFUSW2I 549.623,549 VYGE2OII
*,'
f_,O PM'. SN) 7'PT2U)-1646P VYGEZOI9 -671 )R)75W3) 6?'..06j5624 VY6C2040 624 DO 676 I36,)9 VY0E2041 -- 62-1NP12)17'16449 VY0T7042 541 WRITEM.clIiI,PTI( l).t.2.49,SP(ED.)INPTI)I7,I.3'.N7t.CINPTICII. VV0E20'.1 V71t201.491 FORMATtIDAS,T16,3A1,T13.TAI T)9.30A5.T49,F4.1.TNI,4A).t6).2A1.199.VYGE2O4D 1'.C1 ,TT1,2*1C161,AAIÌTJ1 .?A1.T57ï2*
J
- -
--Vf0T204S WRITE(M,92) I".PTI)I),I.5l,621.IINPTIII),I.69,7S5,UNPI'2t1). VTC,E20'7 -VYGE2O'.392 FORMAT(T22.SAI.T77,2OAj ,Tj ,'A1 .130.7*1 ,76.RAL,1)7.361,T37.A1)
VYGE2OAT wn'.,u,,JIJNV,t17.)rv5TTyJ.TS1W VTDE2050 !FCILIST elo.9'..e7o VYGE2O5I -i S?0
WRITEPA,lôtJ I'e11) I ),-1.2-.;9-t,-spTED.(vePT1tn-,te,,7I-onewnrtI
-Vy0r205z 3J.63.40),(7NP12)7t.I.16,23),ITR. VYDE2(,53 -16 FORMAT f' - '.12*3 .1E1.t*t.TT4 j) -.17ì3aA1.T9Oj!t.1,154,4i1 jlEt.7At.\'YGE2OSA 1360.'.A) .T56,2A1,IAR,4A1,172.7A7.T66.7A1) VYGE29N M'PI P''P,) '
fil,
iT5.4t) .1 INVi 0)1) .i&V. 131,7 ¡NP.2111. VYGE706 t S 11),) t NPT2 (J) ¡.24,'4) I STP VYGE2OS7 1 FORMATV' ,T23.3*1Çrle 70i 12 flÇT1T.j)T7h*1,T1I.,ArïT5C,A11 VY0C2010 WRITE) N,13))tNPT2tIt,J.45.73).)STD VYOE2OT9 -'9A1tRirtlThl*;4! -VYGE2OÍO 7TRWI7)164'.0 VY0E2061 I"-, W ,U V'f312362 C VY0E2063 C -- URGe *OTJT)NES-VYGC2OR4 VY0E2063 -723 W9tTEII.7231 VVGC2Ö66 723FORMAT t' VOYAGE CARD OUT OF ORDER')
VF0E2068 PAv VYGC2O7O -VYGE2050 GO TO 329
-
- /I DUT.sror -wsue v'.vS
i
FILS) i0,VF)LEI
TABLE A-III - (Concluded)
771491TE(t.777)
VYGEZORO
--777
FORMAI)' VOYAGE CARD MESSING' E PAUSE
VYGE2SSQ p. r,j ILl vvGEnzr 600 WRJTE)M,970( VYG2S)0 -970 FORMAT)
'/I/////////I//fYul//i/I'1
VYGE2I4O WSJTE)5,917) VYGE2I)O 972FORMAT)' END OF 200' t - CALL LINEI
VOY)
ist interval card 2nd interval card
ist interval card
2nd interval card
ist voyage identification card 2nd voyage identification card and so ou for ali voyages.
The file locations for input cards are given in Table A-I.
For convenience, certain card input items have been number-coded for
ease in data retrieval. The generai. routing terminations (see Voyage
i card, Coluimis 68-72) are based on the following:
i North America, East Coast
2 North America, West Coast
3 South America, East Coast
4 South America, West Coast
5 Northern Europe 6 Mediterranean 7 Af rica 8 Persian Gulf 9 Orient 10 Australia 2. Console Messages
VOYAGE PROGRAM - VYCE
ENTER "O" IP NO PUNCH, ENTER "i" IF PUN O gives no punched output.
i gives punched paper tape output.
Enter O or 1; then press EOF key.
ENTER i VOR LISTING 07 PUNCHED OUTPUT, O FOR NO
LISTING
If punched output is rMu.atsd, O gives no listing of punched output.
i gives image of
punched
output on printer.Enter O or 1; then press EOF key. ENTER O IF NO PRINT
TER 1 IF PRINT
-13-If a listing of the punched output is not requested, this message will appear.
-14-O gives no listing.
]. gives an inage of the input carda on the printer.
Fnter O or 1; then press EOF key.
VOYAGE CARD OUT OF ORDER
A voyage identification card has been encountered before all
interval cards have been read. Remove last two carda, read and
correct, if possible. If not, restart progr with corrected' deck.
VOYAGE CARD MISSING
A valid voyage identification card does not follow the interval
cards. (A voyage identification card is identified by a V in
Colt 78).
END OP JOB
All operations have been successfully completed.
Program returns to print option messagee for another rim.
3. Prograi Listing
-15-APPENDIX B
LOGBOOK PAPER TAPE LOAD PROGRA}i
The logbook punched paper tape (in ASCII format as outputted by the Pro-processor program--see Appendix A) is used as input for the PDP-8/I computer
program "PAPT". The data on the punched paper tape is loaded on the PDP-/I
computer through the ASR-33 teletype. After being read into the computer,
the data is converted to EBCDIC (Extended Binary Coded Decimal Interchange Code)
to be consistent with the required magnetic tape format. After conversion, the
data is stored on DECtape for subsequent merging with the digitized record dur-ing the data processdur-ing phase.
The punched paper tape has the data formatted in DECtape blocks which
con-sist of l28i characters/blocks. The first 3 blocks (i.e., Header) on the paper
tape are utilized for the magnetic tape label and parameters needed for control
of the data processing phase. The format for the Header blocks is given in
Appendix A, Table A-II. The parameter used in the control of the data
acquisi-tion phase are the number of voyages to be written on each magnetic data tape, the number of original FM analogue tape passes for each voyage, the number of intervals in each pass of data, and a table giving the intervals which require special instructions; namely, the intervals that are long, tó be deleted, or have program halts.
After the Header blocks the Interval Logbook data is read in. These
consist of two blocks per interval. Four blocks are left blank after each logbook
interval. These are utilized by the data processing program for storage of
Interval Summary data (i.e., wave-induced peak-to-trough, RNS, and maximum peak-to-trough first-mode stresses, etc.).
The last two blocks in each voyage contain the Voyage Logbook data and are
handled in the same manner as the Interval Logbook Data. Again, four DECtape
blocks are left blank after each voyage for storage of Voyage
Siary data.
The program which accomplishes the above is listed in Table B-I. Figure
B-1 gives the flow chart of the program. The first 128 locations of the progr
contain parameters and the interrupt service routines. The interrupt system
al-lows for overlap (multi-processing).
Locations 2008 to contain the DECtape handler routine. This is a
standard routine supplied by Digital Equipment Corporation for reading from1 and writing onto, the DECtape unit.
The program starts at location 04008, the interrupt enable is turned off
and
the counters and data storage buffers are cleared and initialized. Thede-tailed procedure for loading the paper-Tape Load Program (PAPT) and execution of
-16-The Search subroutine searches for the Starting block on DECtap unit 3.
After the starting block has been found, the teletyps paper-tape feed switch
is set to STAr, and the paper tap. is read. The end of a block of data is
distinguished by the
special
character (c) "less than".Use
of the charactereliminates the need to zero fill blocks of paper tape to get 128 characters. By using the de-limiter, the program asstes it is the end of a block of data.
Since the teletype keyboard only reads 10 characters/sec.
considerable
unneces-sary reading of zeroes is e141n*ted, thus speeding the reading of paper tapes. As each character is read it is converted from ASCII to EBCDIC by the
subroutine RECODE. After the Header information (3 b locks) is read in, the
program uses the parameter given in the last two blocks of the papar-tape header to control the subsequent reading of the paper tape.
After the last voyage, logbook data is read
in
the prograa halts. TheSTART
CLEAR READ INPUT
INITIALIZE COUNTERS
\
SEARCH \ FOR STARTING\
BLOCK READ VOYAGE HEADER (3 BLOcKS) Subroutlhe \ RECODE/
USE HEADER BLOCKS 2, 3 FOR INSTRUCTIONS
READ PAPER-TAPE/ INTERVAL
/
DATA/
RECODE IS THIS () CIAR.? IS THIS 2nd BLOCK? CONVERT TO NUMERIC EBCDIC /ubr1Dut1 fl\
RECOGE CONVERT TO EBCDIC ALPHAFIG, B-1
- FLOW CHARTFIG, B-1
-(Continued)
FOR PAPER TAPE LOAD
YES
WRITE
DCCI APE
CLEAR
READ STORAGE IINITIALIZE PAPER TAPE
cOUNTERS
IS
THIS LAST I NTRVI.
/Subrout1r\
PUTBIK WRITE LOGECOK DATA ON DECTAPE
DE ClAPE FOAARD 4 RlflC'
C)
FIG. B-1
-(Concluded)
(To be used for Intarvs
TABLE B-I
-PROGRAM LISTING FOR LOGBOOK PAPER-TAPE LOAD -PROGRAM
046f. 0143 2600 22.02 0124 OlIO 0501 AC 00.I ACA 0156 ACO 0157 0CC 0)160 ACAI4I 2834 01)4190 0250 000I9 0161
OTSI OT2 T'T)4 1)11102 fl1IIR9
''
171011038' 0310 2)23 2)47 01'57 0)37 I
FITOL)< ÇSJF.S1l RFCOT)E OlOR SEARCH SF01001 SETUP
/P0PER TAPE COr4VERS!OR PnUT!NE / ASCII TO FOCOIC /P300RAM USED TO LOAD PAPER TAPE / L00800I< IO4FORMAIIOH /0910 OECTAPE FOR USE WITH /A TO D SKIP PR000N1 /
000191 248' JC 0264-SET'JPI 05111 s 00 02 8C4193 0454 004194 011157 02 020 0370 2270 SET'iP2 S1-)i_ 0511 7413 0020 0001 0000 3451 0200 OCA I AC ALPHA 0617 ALPHAJ 20,34 OLPI-IAS 2643 0202 030 0402 2276 0266 0271
SLASH SLASHI SPACEO
0741 0742 0331 2202 2023 0024 7010 3452 1022 RAR OCA I i_19K TAD 0020 ALPI409 2631 fWI4 2274 SPACF3 0732 221'S 3453 OCA t PCREG AR 7815 L49'( 0132 '0_04 0130 ni_041 2131 I0 0564 IÌSTART 2563 CLEA9 0746 CLFO2I 0754 COMA 2713
07200) 07602 FIRST (4)LD HOLDI TrIll LFSS L19(( LTS2
231 2335 2184 OIS) 0154 0142 2140 0252
gill
TEST 9128 W120Y RI2 7(011 XR12 X017 ZERO
0133 0206 0173 0210 0011 0212 2)117 0173
)126
0001 0022 (0021 2022 0223 202/I
7320 5220 2251 2052 2.053 6771 71(12
CLA CLL R-1P 0020 S0020 IS1 AC ISZ i_11111 ISZ PCREG 015V SKI'
COlI 2734 LSR 7411 0225 5858 JMP I MCOM CORE 0127 MCOM 0054 0026 6031 11SF C01391 0147 M191J52 0141 0027 7410 SKI' 045)4 0733 M19'JSI 017(4 0210 5852 JMP I AGAINA 003111 013(4 141)0 7521 (0031 5435 JMP I DIS DIlL)< 2272 PIQL 7421 .0050 OCAA 0263 T)CI"JT 02(47 MUY 110017 1803 0155 '7050 (lOS 1 0161 2222 AGAIHA, AC. AGAINO 0222 OCRE.? 0236 OEC'4RT 25,46 0FR 0)51 11122 1417 11222 2745 2710 4186 1721,2 2051 0254 2200 0020 2022
LINK, PCREG. 'ICOM.
2000 0020 2220 00FF 0232 M21-0 0723 0255 0256 OIS. .+l 11GO 0212 p1272 2722 (0056 7320 CLA CLI. 1)19? 052 14300 0724 0057 6222 10V DIS 0055 11301 0744 22611 7240 CLA CrIA 02CR 2265 14312 1125 00f I 1051 TAO AC )95 210)3 14323 0726 2062 3251 OCA AC DREI 0227 144 0136 2063 7240 CLA CMA DRIP? 2245 144777 0174 204 lOSO TAO LI2K 00126 0237 47 0727 2065 3052 OCA LINK 00129C 2262 147200 0130) 0060. 7240 CLA CMA OSERM 0277 117400) OIlS 0061 1253 TAO PCREG
OSEOHI OlIO, OSTOP
0363
1174200 147774
0117 2150 2270 0071 3253 1453
OCA PCREO TAO I PCREG
OTRL)< 02.75 117771(A 0151 2072 3222 OCA 0000 OTFM 0271 1477740 0152 0073 1452 TAO I LIII)< T)TFMP Q'232 NORLMS 0145 11074 7124 CLL ROL nîFMx 0212 (FJF 2143 0075 1451 TAO I AC flTERR OIgO) OUT 2717 1007(4 fOOl 109 lIrE190 2351 PCRE1) 2053 0077 5820 RIP 1 0000 UlLA (4766 PERIl) FF2101 0731 0780 21110 0101 OTERO, .41
TABLE B-I -(Continued) HLT JMP .-1 TABLE B-I 0165 7300 0166 1143
-(Continued)CLA CLL TAD ONE
TABLE B-I 04115 7650 01446 5054
-(Continued)SHA CLA J'IF AGAIM3
C(l(1 C(102
7402 5101
(11(13 (110/i ,Q(lI5 ILI6 11107 111111 111112 11113 11114
0371 (70(1(1 73811 11311 4516 0112 3(IC(0 7300 45113 7300
DONE. SEARCH. SEROUT.
17.1011 (1000 CLA CLL TAt) RLO(( JIS
I
DSERHI
SEROUT 30011 CLA CLL JIS I
DOME
CLA CLL
/URIT 3 FIELD 0
0167 0170 0171 0172 0173 4174 0175 0176
1173 3173 7300 5455 8000 4777 0206 7775
ZERO. (CR17- (111777. WISRY. MINUS3, TAD ZERO OCA ZERO CLA CLL JIP
I DIS 0000 0017 /(777 W128 7175 MQL.742 I 0/147 0450 0452 (41152 1(453 0454 0455 0456 0451 046(1 1411
lISI
2173 3257 5257 60(12 7380 4117 1153 1140 AGA!N3. AGAIN4. TAD I (CRI?OCA HOLD ISt ZERO JIP A0A1P44 JIP AGAINA 10F CLA CLL JIS LISH TAD HOLD TAD LESS
'0115 (1116 012(1 0191 55(14 ((277 140(1(1 7308 Q(32 OSERHI.. LISH. J.IP I SEARCH DSERH 00(20 CLA CLL '1CC MUY- 7405 M 00. 7 50 1 SHL-74 13 ASH- 7415 LSR-74 Il 0461 0462 0463 (1464 0465 165(1 5266 7308 4776 5243
SMA CLA JIp PUIBLK CLA CLL JIS RECODE JIP AGAIN 1
0122 0123 .0224 6871 5122 6(736 1SF JIP -1 I(R(1 0402 04011 6002 730(0 *400 10E CLA CLL 0466 114(27 04701 2,140 5243 4346 PTJTRLK.
IS?, INTl JIP AGAIN I JIS DECWRT
0225 ff126 3153 5517
OCA HOLD JIP I
LISN 0402 0403 4777 7300 JIS CLEAN 0471 CLA CLL (4472 1144 7710 TAD FIRST SPA CLA
2127 1777 C011E. 1777 0404 1156 TAD ACA 6473 5301 .frIP SETUP x(1Ig-'O 01405 30152 OCA AC 0474 1i777 JIS CLF.AN XRIP.IR 04(16 1151 TAD ACO (4475 2145 ISt MAILLES '1130 (1(111 RLOI4. ((Oil 04(47 3(152 DCt( LINI< 0476 5243 JIP AGAIN I 0111 (10(10 OLfl'1I. 0(0(10 (7410 11601 TAD 0CC (71177 7/,02 lILT 11112 000(1 IILANN. 140(4(1 7411 3053 OCA PCREG (450(1 52.77 JIP . - I 0133 011/I (1115 000(1 720(1 7377 TEST. 17200, '174014. 80(0(0 7200 7377 0412 0423 0414 1121 3010 1130 TAD CORE (4581 OCA (CRIe 0502 TAD BLOI< (45(13 7300 3144 1146 SETUP,
CLA CLL OCA FIRST TAD '12222
11116 (1006 ('14. 0006 0415 3131 OCA 51.01<1 0504 .1011 OCA XRII l%7 0000 (1711(100. (411(10 (4416 11511 TAD '17174 OSOS 1411 TAD I XIII) '0(140 75014 LESS. 75014
/ASCII FOR LESS THAN
8417 3151 OCA M7774A 05146 0155 AND MOO I? (111I1 7776 MIN'JS2. 7776 042.0 lISO TAD 17774 05(77 3147 OCA COUNT 0(112 (100(1 INTl. (1000 0421 3152 DCA '177748 851(1 2011 SEIUPI. 15t (CR11 .0241 7777 ONE. 7777 0422 4104 JIS SEARCH 8511 7300 SETUPO. CLA CLL 0144 (11100 FIRST. 0000 14423 6002 lOF 01110 1411 TAD i (CR11 (1145 (4106 0000 2222 NOOLKS, 1222,2. 0 2222 6424 042.5 1176 3142
TAO MINUS3 OCA INTl
(1523 (1514 0135 71121 AND 10017 MAt
XRIl00i1
(1426 1176 TAD MINUS3 (1515 7405 MUY 01/(7 11220 COLINI. 2000 ff427 3363 OCA RSTART 01516 (1012 (4012 .01150 7774 M77711. 777/( 2430 1143 TAD ONE 0517 7300 CLA CLL 11151 00040 '177740. 0000 0431 3144 OCA FIRST 0520 7501 MQA (1252 00400 '1777413. (1IIØØ .0432 3)73 OCA ZERO 0521 3154 OCA HOLD) (1153 00110 HOLD. 00100 0433 4117 JIS LISN 0522 1411 TAD I (CR11 0154 00(10 HOLOI. 0000 04311 7100 AGAIN. CLA CLL (4523 0155 AND '14017 (1155 11017 '10017. 0017 8435 4117 JIS LISH (1524 11511 TAD HOLDI 0156 0157 11160 6000 6200 fÇ4(1(1 ACA, ACI3, 0CC. 6000 6208 6400 0436 0437 6440 1130 1153 7650TAD OLAHI< TAD HOLD 5(40 CLA
852.5 0526 0527
1147 31117 2251
TAD C01RIT OCA COUNT ISt '177740
0161 7300 000INI3. CLA CLL 0441 5234 JIP AGAIN 0530 11311 JIP SETUP2 (1162 6032 1CC 0442 5251 JIP AGAIN4 11531 lISO TAD M7774 0163 6034 MRS 0443 73(40 AGAINI. CLA CLL 0532 3151 OCA M7774A 0104 341(1 OCA I XRIO 0444 1113 TAD ZERO (4533 RISO ISt M7774B
TABLE B-I - (Continued) -- /TCØ* SUB--ROUTINES REV. 7#61 DTXA-6764 /XOR AC TO STATUS A DTR26l72 /READ STATUS B DTCA676Q /CLEAR STATUS A DIRA-6761 /READ STATUS A TABLE B-I -(Continued) DTLA-6766
/LOAD STATUS A (CLEAR AND XOR)
DTL«3-6770 /LOAD STATUS B DTSr-6771 /SKIP ON ICO) FLAGS 0530 «PIP SETUPI 5310 0200 0000 P1213. 0 /READ 18 WORDS 13535 7300 CLA CLL 0201 4371 frIs D3JAIT /WAIT 1F MOTION IS ON 0336 1107 TAD COUNT 0202
123
TAD R120 0337 7041 CIA 0203 3206 OCA W128 0540 3145 OCA NOBLKS 0204 1201 CLA lAC /SET TO WRITE 0541 4777 «PIS CLEAN 0205 5210 lIP OCR-0 0542 2)31 ISZ BLOKI 0206 00130 1213. O /WRITE 128 WORDS 0543 1101 TAD MINUS2 0207 4371 JIS OWAIT /WAIT IF MOTION IS ON 0544 3363 OCA OSTART 132)2 1202. TAD DRIO8C /DRI28 25435 5243 «P12 AGAIN) 0211 3227 OCA DREI /READ WRITERETURN AFTER SEARCH
03436 0000 DECWRT. 0000 02)2 7240 00R. CLA CMA 0347 7300 CLA CLL 02.13 0232 JIS OGET 0550 3)73 OCA EERO 02)4 3200 OCA R128 /FIRST CORE LOCATION-I OF TRANSFER 053) 1174 TAD M4777 0PI ¿-32 JIS OGET 0532 30)7 DCA XRI7 02)6 323(3 OCA OUF /tIT AND FIELD 0533 11711 TAD M11777 02)7 4232 JIS OGET 0554 3012 OCA X012 022(3 3265 OCA T)ZCB
/ -N1#4BER OF BLOCKS TO 0E TRANSFERRe
0555 3173 OCA EERO 022) 1236 TAD OCRET 0556 1131 TAD BLOKI (322.2 3277 OCA DSFRH 0537 3364 OCA ONO 0223 3363 OCA 05100
/DONT STOP TRANSPORT AFTER SEARCH
0560 4575
JIS I
W126Y (3224 4232 J1S OGET/0Er BLOCK NO.
056) 2002 2000 0223 37l OCA DIEM /AND STORE 0562 3022 3000 0226 5300 «PIF OTSI lIMITIATE SEARCH 0363 0000 051001, 0000 022.7
203
tIRET. 33 /DRI2O IF WRITE. OR 0R128+I IF READ 504 0020 ONO. 0000 0030 0000 OUF. OIUMIT AND FIELD
0563 7300 CLA CLL 0231 5006 .JIIP I W128 0566 4503 JIS T DONE DIEM P. 0567 0570 7300 1131
CLA CLL TAD BLOKI
0232 P?QI0 !DT , lICEI. 0 /PICK UP ARGIIIENTS 0371 1136 TAD MO 033 10-00 TAD I W128 0572 3131 OCA 210K) 0234 2.2.26 ISZ W128 13573 1174 TAD M011i 0235 S'-32 ,JMP I DGET 0574 3017 OCA XRI7 023f-2227 DCRET DREI 0575 3746 JIP I DECWRI 0237 1270 021213, TAD 020
/WRITE (NOT READ).(0020)
0516 0600 (39t10 1266 TAD 030 /READ,CANCEL SEARCH (20.10) Ø577 0746 P4 I 6164 DIXA /SET FUNCTIOJ $200 2242 1200 TAD R128 /1ST CORE LOC. 1 OF TRANSFER / 0243 3663 OCA I DCAA /TO 7755(CA)
/FOR DECTAPE )3UTINE /
0244
2054
ISZ
IICOM
TABLE B-I
-.(Continued)
0323 0324 (772. 7626 /PAOE 3 01534. OTRO SIL /REAO STATUS U /LOOK AT BIT 2TABLE B-I
- (Continued)
0325 0326 7716 5257 SPA CLA JIS DTUFOIX lEND LONE? /YES (MOTION ¡IITO). TURN
377 6772 OTRO 0330 77)1' SPA CLA .033) 535) JIP DER /FR14)R FLAG SIT 0") /PAGE a 13246 0250 605f 67E,4 f335 3664 5455 5323 172127.
OTXA TAl) D7600 OCA I DVC JIP ¡ DIS JIP DTS36
0332
/SEND READ OR WRITE
6333
/SET WORD COUNT FOR I
PAGE 0.134 /-I20 TO 7754 (WC) 0335 1ER II 0336 676f lOOC. 70135 7600 1275 07000. 07600.
OTRA MII. SIL 7402 TAD DTBLK
/2OR-REV STATUS <BIT 3) IN LINK /GROUP 2 CLA
k')252 p257 0254 0255
6772 7710 5.151 2265 5245
DINT.
OTRO SF4 CLA JIP DER ¡SL
CB J'IP DR127 .0337 /READ STATUS B 0340 0141 /ERROR FLAG 0342 /COUNT BLOCKS 034 3 /COWTINUE OPERATION 704) 1271 7450 5357 1041
CMA lAC TAD DIEM 5734 JIP DIFINO CMA lAC
/I..INK COMP. 1F REQUIRED BLM NO. /IS BIGGER I.E. MUST GO FORWARD /FOUND BLOCK CHECK DIRECTION
6257 2A0
1.76 1273
OTI!RNX, TAD 0200
TAO 0400
0144
/COMPLEMENI MOTION AND DIRECT ¡0W
7420 726f
SNL lAC
/00 0 MORE BLOCKS BEFORE TUFIJIPIG
0261 0262 0263 0264 8265
5245 0237 7755 7754 0000
DRI240. OCAS. DVC. D'4C0.
JI? DR127 DRI2S 7755 7754 0 0346 (1747 6150
/POONTER TO CURRENT ADDRESS
(375 I
/POTNTER TO WORD COUNT
0352
7620 1273 5245 676f 2276
DTUN'I. DER.
S'IL OLA TAO 0400 JIS 0R127 DIRA AND 0200
/TURN IF HERE IXOR TO A STATUS AND DIS#IIS /ERROR ROUTINE. READ STATUS A /STOP TAPE IF RUNNING.
I.E. SET Oli
0266 0030 1730. 30 3353 1370 TAD 02
/IX)W'I CLEAR ERRORS
BIT IO") 0267 0270 0251 0020 DOrN?. 020. DINT-I 20 6354 7355 6744 6772 01X4 DIR)3 /ER)E)R STATUS B 027f 0075 .0273 0274 0275 0276 0577 0000 0275 0400 0614 0000 0200 0000 DIEM. DSLK. 0400. 0614. DTRLN, 02013. DSERH. 0 DIlL)< 400 614 0 200 O
/HOl.OS REQUIRED ¡3LK HO.
0356 0.157
/CHANGE DIRECTION
0362
/REVERSF. GO. SEARCH INTERRUPT ENABE
036 i
/BLOCK NUNRER DEPOSITEO HERE IIY CONE
0362 /CHAWGE STOP/GO 0363 0164 5500 7620 5245 1677 3277 0000 6764 DIFINO. OSTO?. JIP I DTERR SNL OLA J'1P DM127 TAO I OSEAN OCA OSEEN 0 01X4
lIEST DIRECTION /IX)NT TURN YET. STILL ¡N REVERSE bREI, GET COMPLETION RE1URN /51730E MOTION iS FORWARD /EITHER 0 (HOP) OR TAD D200 (STOP) /CLEAB FLAG
0102 0301 0302
3271 4371 1257 OCA 01231 JIS D'dAI? TAD DTURNX
ISTORE BLOCK IO
0365 0356 0367 f5313 6774 5677 TA!) OUF OILS JI? I
OSEEN
/SET MEMORY FIELD IEXIT TO COMPLETION RETURN
2303 0304 13305 0306 0307 0310 0311 0312
3343 1272 3663 1267 3254 7201 1277 332
0151. DTS2.
OCA OSTOP TAD DOLK OCA I
OCA!.
TAD DCIFJT OCA PICOM CLA lAC TAO DSERF( OCA DIEMP /STOP TRANSPORT AYTER SEARCH /DTSLK TO 7755 (CA) 'DINT-I /INIERRUPT RETURN /DRFT
03713 037 1 0375 '7373 0374 0375 (1376 0377
0502 0000 676f 6761 0276 7640 5372 5771
02. D'dAll.
2 O OTRA DIRA ANO 0200 SLA CLA JI? .-4
JIS I IAIT
l'dAll FOR NO MOTION IIOR STATUS A /AGAIN, 1H CASE MOTION BIT /WAS O DUE TO END LONE
0313 1632 TAt) I DIEM? PA!JSE 600 0314 0333 ANO 07000
/PICK UP UNIT NISIBER
/
0315
1274
TAD 06)4
/SET TO SEARCH.WOI44AL. REVERSE
/ASCII TO FOCOIC CONVERSION
0316 03f? 0320 0321 0322
6766 6774 2232 6001 5632
OlLA OlLO ¡SL DIEM? 10W JI?
DIEM!
/LOAO STATUS A /FIELD O /ENARLE INTERRUPT /DIJ#.f, RETURN TO USER
(3604 062f 06(32 0603 0200 7300 1153 1322
RECODE.
/
0000 CLA CLI. TAD HOLD TAD M272TABLE B-.I (Continued) TABLE B-J - (Concluded) 0604 75601 SMA r0673 SO'?I .010 .43 (3162 1141 TAD NINUS2 0605 5217 JIP ALPHA 0671 1340 TAD PERIDI 0763 3142 OCA INTl 0606 0627 (3610 1300 1153 1323
CLA TAD TAD CLL HOLD 11260 0675 5317 OATh 7300 0671 1341
..OIP OUT CIA CIL TAD SLASH
01611 1127 0165 3010 0166 5746 TAO OCA .042
CORE XRIØ 1 CLEAN
0161% 751(3 SPA Ø700 1153 TAD HOLD (3612 525% JIP ALPHA9 07e) 7'40 SEA 0613 7300 CLA CU. 07(3.2 53175 JIP .43 0614 tISI TAO HOLD 0103 1342 TAD SLASHI 0615 1345 TAD 11100 /NUMERIC %5704 53)7 .710 OUT (76)6 5:317 jip OUT 0105 7300 CIA CIL 0617 7300 ALPHA. CLA CLL (3706 1331 TAD SPACE2 (362.0 1153 TAD HOLD 0707 1153 TAD HOLD 062.1 1344 TAD 11301 @710 1440
SA
0622 7510 SPA Will 53)4 JIP .+3 0623 525% J1P ALPHA9 0712. 1332 TAD SPACE3 (3624 73(70 CLA CLL 0713 5317 .0W OUT (3625 1153 TAD HOLD 0714 71(30 CLA CLL 0626 112.5 TAD 11312 0715 1343 TAD DUESTI (3627 75(3(3 SMA 13716 53%? JIP OUT 063(3 5234 JIP ALPHAJ 0717 3410 DUT. DCA I XRIO 06.1) 7300 CLA CLL 0720 73130 CIA CLI 0632 1153 TAD HOLD (3721 56910 JIP T RECODE 0633 Sill .042 OUT /A ThROUGH I 0722 7506 M272. 7506 0634 0635 7300 1153 ALPMAJ, CLA TAD CLL HOLD 1323 7520 (3724 7477 11260. 11300. 75213 1417 0636 1326 TAD 11323 R725 74(6 M312. 71166 0637 75(30 SMA 0126 45S 11323. 7455 064(3 5245 .frIP ALPHAS (372.1 0007 Ml. 0007 06g1 730(3 CLA CU.. (3730 0011 Ml?. 0017 0652 1127 TAD 117 073% 7540 5PACE2. 754(3 13643 1151 TAD HOLD 01732 0100 ÇPACE3. 0100 0644 5317 .YIP OUT /J THROUGH R 0133 7524 COMA. 7524 0645 7300 ALpHAS. CLA CLL 0134 *3153 COMI. 0153 0646 1153 TAD HOLD 13735 7523 DASH. 7523 (3647 1330 TAD 1117 9(14(3 0915Ml. 0140 0652 53)7 .042 OUT /S THROUGH 0117 1522. PFRID. 1502 (3651 7309%ALPI4A9. CIA CLI
0140 0113 PERIDI. 0113 0652 1153 TAD HOLD 0741 752% SLASH. 7521 :0653 1333 TAD COrIA 0742 01141 SLASHI. 0141 (3654 7449% SEA 0743 *3)57 OUESTI. 0157 0655 5260 JIP .43 0144 7477 MIO). 1477 6656 1334 TAD COMI 0745 (1100 M100. 0100 (3657 53%? .012 OUT 0746 00013 CLF.AH. 0000 066(3 7100 CLA CIL 13747 7300 CLA CLI 0661 1135 TAD DASH 0750 1121 TAD CORE 0662 1153 TAD HOLD (3151 3010 OCA lIRIO 0663 1440 SEA 0152 1134 TAD 11720(3 0664 5267 .012 .G3 *3753 3137 DCA M7400A 0665 1136 TAD DASHI 0754 7300
CL.EMI. CIA CIL
@666 5317 .042 OUT 01755 3410 OCA I lIRIO 13667 7300 CIA CLL 0156 P.137 15E M71100A 6610 1337 TAD PERID 0757 5354 .frIP CLEAIJI (3671 1153 TAD HOLD 0760 1135 TAD M7400 0672 7440 SEA 10761 3137 OCA 117400A
The paper tape creata on the IBN 1130 computer is loaded on the PDP-8/I
Systems by use of program PAPT.
This program is loaded into coro by the system monitor (underlined 1etter
are the system monitor responsee).
10.4
* ¡Na-S: PLPT,
* OPT- 1 ST
-CTRL/P
After typing CTRL/P, the computer HALTS.
The following steps aszst be taken prior
to starting the program:
A. DECTAPE
Put switch to local
Put switch to Write Lock
Press (4-) switch until DECTAPE system tape rima free Put switch to OFT
Remove system tape
1ace a Blank DECTAPE Reel on the DECTAPE.
S.t selector switch to UNIT 3
Put switch to RTE
Set Write Enable Switch
B.
Paper tape:
Place paper Tape in Paper Tape Reader (Free)
Place Address 04008 in switch register
Press Load AddressPush Start
After DECTAPE Search i. complete (Aproz. 5 second.) Program HALTS
Set paper tape switch to Start
Paper tape will now be loaded
When the paper tape hes been completely read the coutar will
come to a logical HALT at address 04778(the )4emory Buffer register
Vili contain 74028).
I
-24-APPENDIX C
DATA CONVERSION AND ANALYSIS PROGRAN
INTRODUCTION
The processor program for digitizing and preparing digital library tapes of ship stresses and environmental data have been modified from that given in
Reference 2. Early in the processing phase it was determined that
sosie
modifi-cations to the program were needed in order to maintain good production schedule.
The type of data being digitized requires that the data conversion and
ana-lysis effort be operated in a
Real-Time
environment which is possible through theuse of the Real-Time Programmable Clock. Programoing has been done in assembler
language (PAL-D, Programinhle Assembler Language for DECtape) to take advantage of the shortened processing timo, to work within the 8K word memory, and to enable
the use of a single DECtape auxiliary storage unit. Processing of data was
accom-pushed at a rate-increase factor of 25 over the recorded rate (of 0.3 inches!
second) without requiring starting and stopping of the analogue playback unit.
The analogue signal comes into the A/D unit as three basic signals; the
wave-induced signal, the first-mode signal, and the combined signal. Through the use
of the analogue/digital multiplexer, each signal is digitized individually al-though the data processing is done simultaneously and continuously within the processor without the need to stop and start the playback of the analogue signal. The digitizing actually operates in terms of voltages and all processing within
the computer is on the basis of voltages. This saves core storage since twice
as many words would be necessary if stress units were stored. The specific
program flow chart is shown in Figure C-l. All references to speeds and
con-version times are in terms of real time i.e., (for a 30-minute interval). The
speed-up factor of 25 is the maximum speed at which the data can be digitized
and processed due to program and computer limitations. However, slower speeds
can be used by changing one process instruction and will be discussed further on. PROGRAN DESCRIPTION
The first 128 locations of the program contain parameters and the interrupt
service routines. The interrupt system allows for overlap (multi-processing) and
is the means by which the program is controlled.
The program interrupt can be explained as follows. When a large amount of
computing is required, the program should activate an Input/Output (I/O) device (magnetic tape, clock, etc.) and then continue the main program, rather than wait
for the slower I/O device to become ready to transfer data. The program interrupt
facility, when enabled by the program, relieves the main program of the need for
repeated flag checks by allowing the ready status of the I/O device flags to cause
MILTIPLEXER AND A/D CONVERTER FIND CALIBRATION SIGHAL DATA REDUCTION FOR INTERVAL
ANALOGUE COMBINED SIGNAL DIGITIZED COMBINED SIGNAL.
FIG.C-1 - FLOW CHART FOR DATA
CONVERSION AND ANALYSIS PROGRAM. (a) Start-Up Procedure for Interval Sampling
DETERRINE
PEAk -TO -T ROUGH
VALUES
r-.
HERId VALUE RELAUVt TO FIRST INTERVAL IN VOYAGE FIG. C-1 -(Continued) (b) Wave-Induced DataReduction for Interval DETERMINE WXIt4LJM PEAJ(-TOTROUGH
VALUE
EACH BURST
COUNT NO. OF OCCURRENCES OF FIRST MODE
BURSTS
DIGITIZED FIRST MODE SIGNAL
NJLTIPUXER CNMNEL I
IJLTIPLEXER
ANALOGhE WAVE-INOJCEO SIGNPL
CHANNEL 2
I.*.TIPLEXER
MO
ANALOGUE FIRST MODE SIGNAL
AID CONVERTER
MULTE1LEXER
MULI IPI EXER
L 3
DIGITIZED W.AVE.INXED SIGNAL
AND
A/D CONVERTER
SET REAL
TIME CLOCK FOR 20 MINUTE INTERVAL AND SET SAMPLING
RATE T COUNT PEAK-TO-TROUGH OCCURRENCES IDENT I FT MXI PEAL-TOTROUGH VALUE CALCULATE PEAK-TO-TROUGH VALUE
I
DETERPII NE MAXIMUM PEAKTOTROUGH VALUE FOR INTERVAL JE. MERGE ANO ASSEMBLE FIG. C-1 - (Continued) (c) First-Mode DataWRITE
DIGITIZED I NIE RVAL ON NAG
TAPE
MERGE
AND
ASSEMBLE
DIGITIZED COMBINED SIGNAL
MAGNET IC TAPE PAPER TAPE 10G BOOK DATA DEC-TAPE NEXT INTERVAL 1 R GE AND ASSQVGIE VOYAGE 1.00 BOCK DATA DEC-TAPE (BD OF VOVA& READ RETACE 1.00 (00E DATA DETERMINE
I.X (MS. W-I AM FIRST MSDE VALUE
DETERMINE KI.P(0R 0E OCCURRENCES
OF FIRST MSD( DETERMINE MAX. PEAK-TO -TROUGH FOR W-1 AMO FIRST MSO DETERMINE MA.X.
I(AM VALUE ((CURS IOU DETERMINE NSPCR OF CYCLES OF
W- I
WAITE LOG
BODE DATA ATO (OTAGE StVV.SRT
DATA ON MAG TAPE
TAPA
1(11.1 I PIE XER CHANNEl. 3
AMALOG&JE COMBINED SIGNAl.
MAGNETIC TAPE 'q ON?LETt WRITI1G 0F MIJLTIPLEKER DrGrTIZED ItiTER.L AND SIGNAL ON A/O CONVERTER MAGNETIC TAPE FIG. C-1 - (Continued) FIG. C-1 -(Continued) FIG. C-1 - (Concluded) (d) Combined Signal
(e) Interval Merge and
(f) End of Voyage
Data Handling
Assemble Routine
Routi ne
-27-control transfers to a subroutine that determines which device requested the interrupt and indicates an appropriate service routine.
When an interrupt occurs, the computer automatically branches
to location
0000 and stores the last address location. Also the link, accumulator, and
program counter registers (all parts of the Central Processor Unit registers)
are stored off for later reinitlalization.
Also, the interrupt capability is
turned off. Next, the interrupt bus is checked
to see what device caused the
interrupt. An interrupt can be caused by the Magnetic Tape, Real-Time Clock
or DECtape.
An interrupt caused by any other device will not be serviced since it should not have taken place.
After the interrupt is serviced, the program branches to the dismiss
routine
(DIS). This routine re-enables the
Interrupt, restores the link, accumulator
and program counter registers and returns to the last address location prior to
the interrupt. This allows for sampling
at a fixed rate (by use of the Real-Time
Clock) and the writing of the data onto magnetic tape while handling the
arith-metic calculations needed to perform the total task.
Location 2008 to 377e contain the DECtape handler and is the standard routine
as supplied by Digital Equipment
Corporation for reading from and writing onto the DECtape unit.
The program starts at location
04008 (BEGIN), the interrupt enable is turned
off and the counters and data storage buffers are cleared and initialized.
The program types "DECTAPE ON 4? TOTAL NO. 0F VOYAGES-" then waits for the
user to respond.
If the program system tape has not already been removed, it must
be removed, and the proper logbook DECtape mounted before setting the selector
switch to unit 4. The total number of voyages to be run (in decimal: ex. 01)
is entered by the user.
After the response, the program halts. The operator then
pushes CONTINtrE on the computer console.
The program then searches the DECtape for the Initial starting block number, positiom the magnetic tape for writing, and writes the magnetic-tape label and then halts.
The header information which contains the number of intervals, number of
voyages, is
set up in a table which controls the running of the program. By
use of the table, the program is told how many intervals there are in a voyage,
which intervals are long intervals,
which
intervals are to be deleted (notdigitized), how many passes of analog tape will be run, etc. This allows the
program to run virtually unmanned,
except for data checking, reel mounting, etc.
By inputting in Halts into the table (for certain intervals) the
operator may
stop the tape at pre-planned locations. This option is especially valuable if
the operator feels problems may arise at those locations due to analogue tape
difficulties, etc.
A header to be used with
part of the Interval Summary data is typed on the
teletype. After this header is typed the
program halts. The computer and peripheral
equipment (I/O devices) are now ready to handle the data conversion phase.
After starting the FM analogue tape playback, the operator then pushes "CONTINUE"
on the computer console and the program then branches to the Calibration (CALIB) routine.