USEful_Routines USEful Routines
USEful_Routines USEful_Routines
User Manual: USEful_Routines
Open the PDF directly: View PDF 
.
Page Count: 248
| Download | |
| Open PDF In Browser | View PDF |
OSEful Notes
Number · l
15 October 1956
SUBJECT:
A Minimum Service Routine Library for the 1103Ao
(RR)
Bioctal paper-tapes of this library are available upon request
to:
LEO KENNEDY
REMINGTON RAND UNIVAC
1902 W. MINNEHAHA AVEo
ST. PAUL W4, MINNESOTA
UNIVAC SCIENTIFIC 1103A
P.HNIMUM
SERVICE ROUTINE LIBRARY
Service Routine
Storage
70001
Bioctal Loading Routine
75170-75356
70002
Flex Code Loading Routine
74520-74730
70005
Flex Dump
73760-74247
70006
Bioctal Dump
74253-74501
Changed WOI'd Post Mortem
75370-75552
Entry
70000
70003
70004
70007
70010
70011
70012
70013
70014
70015
---
70016
Single Breakpoint Stop
755~7557J
70017
Automatic Sampler
73255-73750
70020
70021
70036
Common Exit
-2-
PROGRAMMING AND OPERATION CONVENTIONS
I.
Drum Image of HSS:
Drum cells 76000-77177 are reserved for the image of 00000-01777
of HSS.
This image is used by most service routines as temporary storage
for part of HSS vhile the service routine operates from HSS.
The programmer
is advised not to load into the image as this may result in incorrect loading
of HSS.
The programmer may use thi s part of drum storage as a temporary pool
or vork space during the operation of his program, but in so doing deprives
himself of the use of Changed Word Post-Mortem.
II.
Drum Storage for the Service Library
Drum cells 70000-75700 are reserved for the Service Library and are not,
in general, available for program use.
Loading
progra~s
into the range
70000-70037 deprives the programmer of all facilities of the Service Library,
while loading into the range 70040-75777 may deprive him of only part of the
Service Library.
COMMENTS ON USE OF SERVICE LIBRARY
I.
Paper Tape Preparation
a)
Bioctal tapes should have two 7th level punches at the very end
of the tape.
b)
Flex code (absolute) program tapes should have at least one 7th
level punch at the very end o
c)
Flex dump tapes are suitable for reloading via Flex1e.
Be sure that
a 7th level punch 1s present at the end of the tape.
II.
Loading Routines "Transfer Control" Option
Both loading routines have a "transfer control" option.
procedure will effect the transfer for either load routine.
(1)
Set program tape in reader
(2)
MASTER CLEAR
(3)
Set the computer on MAIN PULSE ~.
(4) Manually insert the following into PCR
37
70036
70001 (2)
(5)
Set PAK = program start
(6)
START.
The following
PROGRAM ENTRIES TO SERVICE ROUTINES
The block of cells 70000-70037 is reserved for entries to the service
routines.
Cell 70036 is reserved as the common exit from those service routines
which Qy their nature admit program entry and exit.
For example, the use of the
Bioctal Loading Routine as a subroutine would be effected by the instruction
37 70036 70001.
All required parameter words must be placed in the appropriate
registers before entry is made to the particular service routine by a Return
Jump instruction.
For example, the use of the Bioctal Dump would be effected
by the following sequence:
n:
n+l:
11
(x)
31000
37 70036 70006
n+2:
where, say (x)
CAUTION:
=
00 00001 01777
Since the service routines each have only 2m entry, any
inadvertent (or not) loading in the range 70000-70037 deprives one of all
f
the service routines.
SERVICE ROUTINES
Bioctal Loading Routine
The routine
~1l1
load anywhere.
result in incorrect loading of HSS.
Loading into HSS
~
76000- 77777 can
A sum check is made ,..,henever the input
tape contains an insert to 75202, folloved by a double precision check sum and
a check address of 75204.
Note:
cells 75202 and 75203
~ill
not be loaded with
the sum.
Operating Instructions:
= 70001;
(I)
Set PAR:
START.
(2)
Computer halts on 56 00000 70001 after completing read in.
START
to load another tape.
(3)
Two consecutive seven- level punches in the trailer should be -present.
If these punches are not present, the folloving procedure may be used:
FORCE STOP after the paper tape has passed through the reader, MASTER
CLEAR, START at 00032.
The last block of information r €ad in is then
stored in its proper location.
(4)
Errors
(a)
Machine prints ntH and halts.
correctly and must be restored.
to HSS.
The loading routine is not in HSS
START causes another transfer
If the check fails again, reload the service library
onto MD.
(b)
Machine prints "c" and halts.
A check address has failed.
STARTing ignores this error and routine proceeds as though errpr
had not occurred.
A check address failure should not be ignored as
it is very likely that the paper tape is in error.
(c)
Machine prints Itm" and halts.
Check sum has failed to agree
with computed sum of data read in.
and continue loading.
START to ignore this error
Flex Code Loading Routine
This routine is designed to load Flex Code tape prepared on a Flexovriter
in the conventional fashion for translating to bioctal.
same fashion as the bioctal loading Routine.
A
input tape contains an insert to 75202, 75203.
sum
It operated in the
check is made whenever the
(See above).
Operating Instructionsl
= 70002;
(1)
Set PAK
START
(2)
Computer halts on 56 00000 70002 after completing read in.
START
to
load another tape.
(3)
At least one seven-level punch should be present in the trailer to
stop the routine.
If this punch is not present, the following procedure
may be used.
(a)
FmCE STOP after the paper tape has passed through the reader.
(b)
MASTm CLEAR;
set PAl{
=00025;
START. -
(4) Errors:
(a)
Machine prints "t" a.nd halts.
correctly and must be restored.
BSS.
(b)
The loading routine is not in HSS,
START causes another transfer to
I f the check fails again, reload the service library onto MD.
Machine prints Pc" and halts.
A check address has failed.
A START
ignores this error and routine proceeds as if no error had occurred.
(c)
Machine prints "mil and halts.
A check
computed sum of data read in.
START
sum
has failed to agree \lith
to ignore the error.
Flex fump
This routine dumps the contents of consecutive storage cells on punched
paper
tape~.
is given.
routine.
Automatic page editing is provided and every eighth address
The punched tape is suitable for re-loading via the Flex Code loading
A check sum is punched out at the end of the dump.
are not restored or punched out.
(AL), (AR), (Q)
HSS is restored.
Operating Instructions:
(1)
Enter in
~
the address of the first cell to be dumped.
Enter in
~
the address of the last cell to be dumped.
If a seven-level punch stop code is desired at the end of the dump
set Q35=1. _
(2)
Turn ON the High Speed Punch.
(3)
Set PAK
= 70005;
START.
(4) The machine halts on 56 00000 70005 providing a re-entry for another
dump.
(5)
Errors:
(a)
l-fu.chine prints Bt lJ and halts.
The dump routine is not in HSS
correctly.
START
caus~s
another transfer to HES.
If the check
fails again, reload the service library onto MD.
(b)
Ms.chine prints lip" and halts o
An illegal parameter word has
been set up in Q and is displayed t here.
Clear Q n~nually
and insert correct parameter; START
(6)
This routine dumps only one tape of storage B.t a time, ei ther
HSS or drum.
76000 to 76314 is used as an image regior:. for
00000 to 00314.
Wioctal
Duml<]
This routine will dump onto peper tape in bioctal form the
contents of any specified number up to 77778 of consecutive storage
cells in ass or the drum except 76000-77777.
punched at the end of the dump.
A check sum is automatically
A double sever,-level punch at the end of
the tape is optional.
Operating Instructions:
(1) Enter in
~
the address of the first cell to be dumped.
Enter in
~
the address of the last cell to be dumped.
If a double seven-level stop code is to be punched following
this dump, set Q35 = 1.
(2)
Turn High S'. eed Punch ON.
(3)
Set PAl( = 70006; START ~
(4) The stop at the end of the dump, 56 00000 70006, provides
a re=entry for another dump.
not reteined.
The contents of A and Q are
HSS is restored at the end of the routine.
~hap€ed Warg Post Morte~
This routine is designed to compare the contents of 00000 to 01777
of HSS with its image at 76000-77777.
The image contains ( ur.l.1ess dis-
tw-bed) the original contents of !lES a.s read into the computer.
Those
words in HSS which have been changed by the execution of the program
are the only ones reported out.
Operatin~
Instructions:
(1) Turn High Speed Punch ON.
(2)
Set PAK = 70013; START.
(3 )
Compare halts on 56 OOCXJO 70013.
The following will be punched in Flex Code.
a)
(Q)
b)
(~)
c)
(A )
L
d)
Any changed word according to the following:
Hss word
Image 'Word
HSS address
At the end of the routing, (A), (Q) and HSS are reEtored.
(4)
This routine uses the cells 74740-75137 as temporary storage
for part of ESS while the routine operates o
~ing~ Breakpoint Sto~
T~~6
routine permits one to select a single address of a program
which one cen run on high speed and stop before executing the instruction
at that address.
One may then sample the results of computation to date
or step through several instructions.
struction must be one which
i~
Restriction:
the breakpoint in-
not modified by the programo
Operating Instructions:
(1)
enter in ~ the breakpoint address.
Av
enter in
(2)
the entry address for the program.
Set PAK = 70016, START.
The progrum will be executed
~p
to the preakpoint at which time the computer will he.l t on
;6 00000 70016, providing a re-entry for another breakpoint
stop.
~I!lBtiC Sampler
s
•
•
00000
0(
read into 73643 , gives the
address of the first cell (Lo) and the last cell (Lr) of the
sampling list.
printing and 63
(2)
Printing or punching is specified by
y~,
61 for
for punchingo
Check point address - The word 00 00000 c.p. gives the abeck
point address, copo
Sampling occurs before axecutior of the
instruction at cop.
Index word numbers p
The word 00 N N gives two 5-octa1-digit
p s
Np ' signifying the Lumber of times the check point
is to be passed before sampling starts, and Ns ' the TIUl:lber of
times sampling is to
occ~~
at the check point.
(4)
~rameter word~
- These are of the form Oa M s where the
first octal digit is allllays zero.
The second octal di[it, s,
takes on the values
If
a. :7 1~
o
for octal output
1
for decimal output.
t!!e parameter vore is ignored.
The u-portion of
ee~h
parameter \-lord contains the octal address, M, of a cell whose
contents are to be se.mpled.
If M
= 32001,
(AI) is sampled.
If M i s not a machine address the parameter word is ignored.
The v- portion of each parameter word contains the binary scale
factor, s, of the cor:tents of M.
O~
s < 70.
If s ">7.0, "2 small"
is printed.
(5)
~d wQr§~
-
The last two words of each sublist are of the fona
70 00000 00000 with the exception of the second end word of the
last sublist (Lr), \/hich is 70 ()(X)OO ~.
SAM-O jump,? to ~ ,
after setting up check points on a 70017 start.
c)
Output
Shown below is an example of sampler output where the check point
address was 00)0.30
00303
00075
00076
00100
00101
00102
0010.3
.32001
.31000
D)
12 34567 12.340
77 0.3124 65432
1.23456789017
-32L0986.3ZSiz
993059913.000
0.4.3210987653
w
14
00000 ()(X)OO
37 37373 73737
Restrictions
(1) The word initi&lly stored at a check point must be an
instructiol1; it must not be a repe!-t command or a repeated
instruction and it my not be wrioGten into or out of at any
time during the course of the pro€:ram.
(2)
The Sampling List Tape must not load into cells 01777 or
02000, j.e., it
pOint.
mu~t
be on one side or the other of tbis
APPENDIX
Paper Tape Loading Routines
Introduction
Paper tape is described as being divided into rows and columns:
a single column of positions across the width of a tape is called a frame.
Frames are divided parallel to the length of the tape into seven levels. Six
of these levels are used primarily to represent information to be placed in
computer storage, while the seventh level is used to represent loading directions.
A hole punched in any of the six data levels of the tape represents a one,
while the absence of a hole represents a zero.
Words punched onto paper tape are of three kinds: enter data words ,
insert address words, and check address words . Enter duta words are those
which contain information to be stored internally by the computer , while in sert address words and check address words are used only for loading purposes
The insert address contains the address at which the first data word of a
block of consecutive data words is to be stored, while the check address contains the address plus one at which the last data word has been stored .
For a check sum of data on the tape, the following four words should
appear on the tape after the data to which the sum applies:
10
Insert address 15202
2.
High order of 36 bits of check sum
3.
Low order of 36 bits of check sum
4.
Check address 15204
ihe check sum must
ceding check sum.
words will be left
a check address of
check address.
be the sum of all the data on the tape following the preThe check sum will not be loaded into 15202 and 75203. These
undisturbed. Since a check sum test is performed whenever
15204 is encountered ~ 15204 should not be used for any other
Bioctal Loading Routine
Words containing 12 octal digits each are punched onto bi - octal tape
two digits to a frame. Thus, six frames of tape are necessary to represent
one bi -octal coded word. Uhen the hi - octal loading rOlltine is used, the three
kinds of words described above arc distinguished by the fames in which seventh
level holes are located . Each enter data word must have 3 seventh level hole
-2-
in the sixth frame. Insert address words and check address words also have
seventh level-holes in the sixth frame, but in addition, the insert address
has one in the third frame and the check address has one in the fourth frame
Furthermore , should there be a gap on the tape between the two blocks, a
seventh level hole must be punched in the frame directly preceding the first
frame of the next insert adrlress word on the tape. This also aprlies to the
very first block of data on the tape. The tape should always begin with an
unpunched leader of about 10 inches, and should end with an unpunched trailer
of about the same length. A seven level punch in any two consecutive frames
of the trailer directs the Bioctsl Loader routine to store the data read in
thus far, transfer the location 76000-77777 to 00000-01777; ano come to a programmed stop.
p
The following is a diagrJLO
MTR
WORD
AOORESS
INSIER.,T
1100R.£S5
~~ '~01
000 ' 00
o
o
000
00000
I
I
0
0 0
0
0
00 .
.0
o
00
00
0
I
')'J :>:>00000 00
0
go
OF
{
0
O~
0 0
00
D IR.E eTtoN
0
0 0
0000 ") 00000000') 0 0 0 0 0.." ..... 0
b
TAPe.
~
, I
MoT/ON.
Flex Code Loading Routine
Input tapes using this loader are usually prepared directly from
the electric typewriter (Flexowriter) in coded form, one character to a frame.
In order to obtain a correct loading format, it is important that periods be
used only in standard positions.
Each data word must consist of twelve octal dipits between two periods.
These twelve digits are grouped as follows: two digits followed by 8 space,
five digits followed by a space, and the last five digits followed by a period
and carriage return. Insert end check addresses also consist of twelve digits
but have periods and diUit groupings that are peculiar to each. An insert
address readin a from left to right is composed of a period, six zero digits, a
period, a zero, and a five digit address followed by a period and carriage return. A check address is grouped from left to right as follows: seven zero
digi ts, the ,Ilost significant digit of a five digit address, a period and the
remaining four digits of the address followed by a period and carriage returno
-3-
EXllmple:
Insert address
.000000.076050.
Data word
00 00400 00500"
Check address
00000007 6051.
0
(adclress of first data wo rd)
(address following last data word)
Incorrect word format wi 11 result in that word not being interpreted correctly.
or not being stored in its proper location. Errors of this type will usually
show up as check add ress failures.
One seven level punch sh ould be used at the end of the tape after
the last check address to stop the reader and complete the ro utine. There
should be nn other seven level ~unch since ony such punch will halt the reader
regardless of its position on the tape.
1 !iovember 1956
USEful Note Number 2
SUBJECT:
APL Complex Arithmetic Package
(tJot a standard USE routine)
This subroutine converts the 1l03A temporarily to a machine with
three-address logic, separate storage for instructions and data, worl(ing
on complex floating point numbers. At each entr,y it can handle interpretive programs containing up to 512 instructions and up to 512 data.
The data are in the form Z = x + iy, where x and yare standard
1103AF floating point numbers and are stored in two successive machine
storage cells.
The instructions are in the
fo~n
op L ABC,
where op is a 2-octal-digit operation code, L is an address
index of 1 octal digit, and A, B, C are each 3 octal digits
struction addresses, data addr esses, or integers, ac cording
tion code. Each instruct i on therefore consists of 12 octal
be stored in one machine storage cell.
modification
indicating into the operadigits and can
If u is the actual machine address of the first cell used for
data storage and v is the actual machine address of the first cell used
for instruction storage, then the relation between machine addresses and
pseudo-addresses is as follows:
Data
u +
Instructions
01 000
v + 0
v + 1
v + 2
u + 1
u + 2
u + ~
u +
001
000
001
002
etc.
4) 002
u +~
etc.
The instruction stored at instruction address 000 (i.e. at machine address v) is the first one executed when the complex arithmetic
package is called in by writing
RJ R L016
00 u v
NI
Page 2
The pseudo-instructions
00 0 000 000 000
Leave the interpretive system and execute NI in basic
machine language.
01 LAB
C
Perform the operation indicated b.1 the code A upon the
contents of data address B and store the result at data
address C. (See Table 1)
02 LAB
C
Add the contents of data address A to the contents of
data address B and store in data address C.
03LA
B
C
Subtract the contents of data address B from the contents
of data address A and store in data address C.
04 LAB
C
Multi~
05 LAB
C
Hultiply the contents of data address A by the contents
of data address B, reverse the sign of the product, and
store in data address C.
·06 LAB
C
Divide the contents of data address A by the contents of
data address B and store in data address C.
07 LAB
C
Set the contents of data addresses A, B. and C equal to
zero.
10 LAB
C
Here A is an integer. Transfer A consecutive data from
the block starting at data address B to the block starting at data address C. In case the two blocks overlap,
no datum is overwritten until after it has been transferred.
ilLA
C
Here A is an integer. Transfer A consecutive instructions
from the block starting at instruction address B to the
block starting -at instruction address C. In case the two
blocks overlap, no instruction is overwritten until after
it has been transferred.
B
the contents of data address A by the contents
of data address B and store in data address C.
12 L 000 000 C
Transfer control to instruction address C.
13 LAB
C
Put the three octal digits A in the C-address portion of
the instruction at address B and transfer control to instruction address C.
14LA
C
Put the three octal digits A in that portion of the instruction at address C which is indicated (see Table 2)
by the code B.
B
Page
3
15 LAB
C
Add the integer A to that portion of the instruction
at address C which is indicated (see Table 2) by the
code B.
16 LAB
C
Subtract the integer A from that portion of the instruction at address C which is indicated (see Table
2) by the code B.
17 LAB
C
Here A and B are integers and C is an instruction address. Add one to A. If then A~ B jump to instruct ion C. If, however, A~ B then subtract B from all
those addresses (in all instructions from the c-th to
the one preceding this one) which were modified as a
result of an L-code different from zero. Then set
A=OOO and take next instruction.
20LA
B
C
If the contents of data address A are less in absolute
value than the ~ontents of data address B then transfer
control to instruction address C; otherwise take next
instruction.
21LA
B
C
It the real part of the contents of data address A is
negative, transfer control to instruction address B;
otherwise transfer control to instruction address C.
22 L A
B
C
'.
If the imaginar,r part of the contents of data address
A is negative, transfer control to instruction address
B; otherwise transfer control to instruction address c.
The L-code
The ~code of three bits in each instruction permits any of the
addresses in that instruction to be increased by one each time the instruction is carried out, as described in Table 3. This increase of addresses
is done after the operation is carried out but before going on to the next
instruction.
The L-code for each instruction, together with the loop instruction l7LABC, provides a very simple and surprisingly versatile method for
coding loops. The following almost trivial example may help to indicate
how the coding might go in more complicated and more interesting cases. It
shows, in particular, that loops within loops can be handled with a minimum of step and reset operations.
Page 4
EXamEle
5' i
y·2.ai~bijxj
i-I j-l
Data. address
100-104
xl-x 5
105
bu
106-107
b21-b22
110-112
113-116
b31-b
33
b41-b44
117-123
b51-b55
124-130
a1 -a5
131
b ij Xj
132
2bij Xj
133
ai,Sb ij Xj
2,a i 2. b ij Xj
134
Instruction
address
=y
comment
.2J2
1
...A... .1l. .JL
100
14
0
105 100 103
reset bij
101
07
0
134 134 134
clear 134
102
07
0
132 132 132
clear 132
103
04
6
105 100 131
b ij xj-7131
104
02
0
131 132 132
1bij xf-?132
105
17
2
000
106
04
4
124 132 133
107
02
0
133 134 134
SaiSbij
110
15
4
001 100 103
step b ij
ill
17
0
000 005
001 103
102
loop
ai Sbij xj~133
loop
xj~134
Page 5
Relation to USE program
The subroutine here described is being coded in a form somewhat
different from the USE standard form for local convenience. It will be
noticed, for example, that the parameter word 00 u v ' is put after the return jump used to call in the subroutine rather than, for instance, in the
accumulator; this can of course easilY be changed i f desired. The other
departures from standard (such as use of local sub-subroutines for mathematical functions, etc.) are in much the same category now that the standard
compiler permits subroutines to call in other subroutines. In short, the
conversion to standard USE form could easily be made i f the organization
wanted it done.
the logical portion of the ' subroutine, which interprets the operation codes and does the housekeeping, has purposely been kept separate from
the matheruatical portion, which actually does the addition, subtraction,
etc. This was done so that the same logical portion could serve -tor different arithmetics, such as real floating point double precision, real stated
point double precision, complex double precision, matrix arithmetic, etc., as
the required mathematical coding for the several operations becomes available.
The advantage of a common logic for these various kinds of arithmetics needs
no insi8tence.
If USE decides not to include this among the standard routines, the
coding in present form will be made available (when checked out) to any individual members upon request. In any event, APL will welcome suggestions and
criticisms.
Acknowledgement
The debt owed by the present routine to the interpretive system
devised by Bell Telephone Laboratories for the IBM 650 (see IBM Tech. Newsletter No. 11) will be obvious to those who are familiar with that system,
and is hereby brought to the attention of those who are not.
Page 6
Table 1:
Operations performed by OlLABC
...!..
Qperation performed on contents of B
000
absolute value
001
exponential
002
logarithm (principal value)
00.3
conversion rectangular to polar form
004
conversion polar to rectangular form.
005
multiply by -1.
Page 7
Table 2:
B-codes for operations
B (octal)
14. 15. 16
Portions of instruction C which are modified
000
none
001
C address
010
B address
011
Band C addresses
100
A address
101
A and C addresses
110
A and B addresses
III
A, Band C addresses.
Page g
Table 3;
L-codes
L (9,ctal)
L (binary)
Addresses affected
0
000
none
1
001
e
2
010
B
3
011
B,
4
100
A
5
101
A, e
6
110
A, B
7
111
A, B, C
e
USEful flotes
Number :3
6 November 1956
Subject I
Preliminary Information on the
Content of Registers
Execution Time.
tor the 1103A Floating Point In.tructions (RR)
PRELIMINARY INFORMATION
ON THE
CONTENT OF m;GISTEBS OF THE
11031 FLOATING POINT INSTRUCTIONS
Date:
15 October 1956
Prepared by:
Issued by:
P. Warburton
Systems Analysis Dept.
Systems Group of Univac Scientific Applications
October 12, 1956
!be layout of the "Floating Point Content of RegistersR is not the same
as that of the fixed point instruction..
the final content o£ A.
05?
There are more conditions affecting
First, has the NEFF been set or cleared by 1n:struction
Second, what is the relative size of (u) and (v)?
For these reasons, only
the Pack and Unpack commands are in the usual format _ Since the arithmetic
Floating Point commands do not change (u) and (v), (u)t and (v)r are not included
in the Contents of Registers of operations 64, 65, 66, 67, 01, and 02.
The binary point of floating point numbers is usually between the tventy-
eighth and the twenty-seventh place_
After the arithmetic pseudo-normalizing \
process, the mantissa is in ALJ and the binary point is
It mayor may not be normalized_
betw~n
A63 and A62-
The position of the most significant bit
(MSB) indicate-s what has occurred.
62 -
If normalized, the MSB will be in A
The value of the significant bits depends upon whether rounding has
occurred.
Rounding in effect adds an extra bit to the value ot . (a) at A35
(unless the addition ot the rounding bit carries into A62' in which case the
tinal left shift is omitted and the
r~ding
bit remains added to the value
ot A34 The value ot (Q)r will be either (1) the normalized rounded, and packed
result (l\1RP), or (2) the pseudo-normalized result (PH)_
NOTE:
It A or Q is the v-e.ddress of any floating point command other
than the pack or unpack command (A) or (Q) will be destroyed by the Unpack
(u) sequence before the unpack (v) sequence is reached.
,, '
Instructions Floating Add (FAuv)
Operation:
(
64
Function: Form in Q the normalized rounded and packed floating point sum
of (u) and (v).
IE
Arithmetic
Yl
Conditions
MSB
Value
0
(u)'::' (v)
A62
(u)~
A62
rI
~,
(Q)r
(A)r
,
(v)
of significant
bits
Round
Norm
Value
(~).2(Uc) - (ve)+(v.) 7e8
NRP
(u) + (v)
(v.).2(ve) - (Uc)+(~) yes
BRP
' (u) + (v)
no
PI
(u) + (v)
DO
PN
(u) + (v)
-
/1
.
(u)2 (v) (ue)-(ve ) 2. 2
A61
(~).2(Uc) - (ve)+(v.)
(ue )- (vO> < 2 A(,1-A33
(~).2(Uc) - (ve)+(vm)
(u) '- (v) (ve)-(lIo) Z 2 A61
(ve )- (ne) ~ 2 A61-~3
(V.).2(ve ) - (Uc)+(Um)
DO
PI
(u) + (v)
(~)+(~)
no
PH
(u)' + (v)
(Vm).2(Ve ) -
>
./'
.
,
Instruction:
Floating Subtract (FSuv)
Function:
Operation:
65
Form in Q the nOrmalized~ rounded and packed floating point
difference of (u) and (v •
(Q)r
, (1)f
IE
Arithmetic
FF
Conditione
·0
(u) '7 (v)
-
162
(~).2(Uc) - (VC'-(vm) yes
NRP
(u) - (v)
(u) L (v)
A62
(Vm).2~VC) - (Uc).(u.) ,.es
NRP
(u) - (v)
1
(u),2 (v)
!
MSB
(uc)-(vc)~2
A61
(uc )-(vc )1.2 161 -1
33
Value of significant
bite
Round
Norm Value
(Um).2 (uc ) - ~C)-(Vm)
no
PN
(u) - (v)
(Um).2(Uc) - ' (vc)-(v )
m
no
PN
(u) - (v)
no
PH
(u) - (v)
no
PH
(u) - (v)
\
(u) L (v)
(vc)-(uc~2
~61
(vc)-(uc }c.2 A61 -A
33
m).2(VC ) - (Uc)_(~)
(V ).2(vC) - (Uc)-(Um)
m
(V
"
Instruction:
Floating Point Multiply (MPnv)
Function:
IE
Arithmetic
FF
Condition
66
Form in Q the normalized rounded and packed floating point product
of (u) and (v).
(A)f
(Q)r
MSB
Value of significant
bits
A62
(Um)· (vm)
yes
(Um)· (vm)~t
A61
(Um)· (vm)
(Um) ~ (vm) ~t
~
(Us)· (vm)
0
1
Operation:
Round Norm Value
,
RRP
(u).(v)
DO
PH
(u).(v)
no
PI
(u).(v)
,~
- 0
,"
. Instruction:
0
Function:
•
o FF
(:mw)
Floating Point Divide
+
Arithmetic
Condition
0
(A)f
MSB
162
+ (vm) ~ 1
A61
(~) -:- (va) .(. 1
A60
(~)
67
Form in Q the normalized, rounded and packed floating point
quotient of (u)
(v)
,
Value of significant
bits
-
1
Operation:
\
(Q)r
Round Norm Value
(u) .;. (v)
(u ) --:- (vm)
D1
yes
ImP
(um) 7- (vm)
(Um) -:- (vm)
no
PN
(u)
no
PH
(u) -:- (v)
0
.1
+-
(v)
Floating Point Polynomial Multiply
Instruction:
Function:
(J'Puv)
Operation:
01
Form in Q the sum of (v) and the product of ' (Q)i.(u)
(BE FF should be cleared for the execution of this
instruction. If it is not the product mantissa
will be rounded ~ with one, but with (AL).)
HE
Arithmetic
FF
Condition
MSB
Value of mantissa
-
A62
(Qu)m· 2 (Qu)c-(VC)+(v )
m
A62
( ) (vc)-(Qu)c ( )
vm .2
+ Qu m yes
0
(Q) (u) '7 (v)
(Q) CulL. (v)
(A)f
(Q)f
tRound Norm Value
,
yes
NRP
(Q)i(u)+(v)
Instruction:
Floating Point Inner Product
Function:
(FIuv)
02
Operation:
Form in Q the normalized, rounded and packed sum of (Qi) and
the product of (u) and (v).
(IE FF should be cleared for the execution of this instruction;
if it is not, the product tiantissa \lill be rounded, not \lith
!mI, but with (Ax,).)
BE
Arithmetic
Condition
o
MSB
Value of significant
bits
Round
(Q)i ~ (u) (v)
-
(Q) ~ (u) (v)
,
Norm
Value
Instruction:
Function:
Unpe.ck (u) replacing (u) vith (Um) and replacing (vc ) vith
(uc ) or its complement 11' (u) is negative. The chafacteristic
portion or (u)r contains sign bits. The sign and mantissa
bits or (v)r are cleared to zero.
~ntents
;Storage
.
ot Register
,Claae
(MCl!- or
(MDlr ·
u
u
v
MD or MC
Me
or
,
)lID
..
. '-'f
(u )
III
(u.)
..
Q
0)
Operation:
Floating Point Unpack
MD or lI:
-
A
-
Storage Position After Operation
MSB
(uc )
-
Value of bits
Round
50 change
No change
'34
-
(Um)
-
~
(uc )
Hochange
no
(uc )
Bo change
;
(uc )
'26
(Am)i
no
No change
A34
(Ac)i
no
110 change
~6 1 (Am)i
no
(Ac)i
A
..,.
Q
MD or Me
Q
A
Q
-
-
c
-
(~)i
No change
CU )
A34
(Qc)i
(~h
no
(~)i
No change
-
--~
Instruction:
Normalize, Round, & Pack
Ftlnction:
(IPu.v)
Operation:
04
Replace (u) with the normalized rounded packed floating , point
number obtained from the possibly unnormalized mantissa in (u)i
and the biased characteristic in (v)c.
It is assumed that lU)i has the binary point between u27 and ~6
«u)i is scaled 2-21).
Storage
t:ontents of Reristers &: Stol"ruze Position A1'ter ODeration
.,C lass
u
u
v
MD or Me
BRP(u)+(vc )
No change
\
-
MC
or
MD
v
A
'RRP(u)+(v )
c
Q
BRP(u)+(vc )
MSB
Value of bits
Round
yes
16;2
10 change
yes
yes
No change
80 change
Me
A
A
Q
-
MD or Me
---
No change
A34
RBP(Aa)i+(ARc )l yes
No change
134
IRP(Aft)l+(~)
yes
tio- change
:es
RRP(Q)i+(vc )
A62
I (Um)!
'RRP(q)i+(~)i
__-+_Q______~__
- ____~_--______~A_~~l_(_~_)_f______~Y_es__~'RRP
___
(Q_)i_+_(~
__)_i__ .
Q
A
-
/' -
A62
II
(um)!
yes
c~
Instruction:
.,
Function:
Floating Point fiorma.lize Exit
If J::() clear the normalise
Bet 1O'F to 1
,
(Dj)
ent
Operation:
flip-flop (designated IFF); if J-1
{a) , '!'he results of artUng 1IW M 1 ls set forth in the
, ·Contents of Registers"
"
(b)
When IFF 16 set to :t, it will remain set
"
by another NEJ - inttructlon
tel
m
05
unt~l
cleared
.
,"
must be cleared for W, Fl, and ~ inStructloDs
..
.'
·
\
.PRELIMINARY IBFORMA nON
ON '!HE
EXECUTIOlJ TIME OJ' THE
l103A FLOATING POINT INSTRUCTIONS
,Datel
15 October 1956
Prepared byt
Issued by:
f. Warburton
Systems Analysis Dept.
Systems Group of Univac Scientific Applications
SUMMARY OF EXECUTION TIMES
300 #sec.
Min.
L44 #sec.
380
148
162
Max.
(B~ 1)
Floating add and subtract
(N
~2)
(N)
(Uc ) - (vc )
Floating multiply
Floating divide
Flea ting polynaaial JIIDl tiply
Flca ting inner product
Floating unpack
Floating normalize pack
Normalize en t
=
2.36
654
619
648
637
262
280
52
180
144
20
54
20
All times given include magnetic core reference tille. If (u) is A,
subtract 6 ~sec.; if Q, subtract 4"" sec. All cases are for NE FF Bet to
zero. If NE FF
1, set K
0 aDd subtract 12 "I-/sec. All cases include
rounding. If the full number of normalizing shifts are JIlade (35 for addition and subtraction, 2 for multiplication and division), the mantissa i&
sero and rounding is omitted. For this case, subtract 14 )'Csec.
=
=
The following s1JIIbo18 are used in the formulas.
N = (uc ) - (vc ) for operations 64, 65, 66, and 67
N
= (Qu)c -
B
= (uv)c
N9
(vc ) for operation 01
- (~) for operation 02
is the sign of this difference (corresponding to ~ at the
points when (S)
= (uc )
- (vc ) .
or (S)
= (Qu)c -
or (S)
= (uv)c
(vc )
- (~)
K is the DUmber of normalizing shifts (the number of shifts necessary
to put the MSB of the arithmetic result of (Um) and (v.) in 161 -
maD-.
of 35 for addition and subtraction, 2 for multiplication and division).
- 2/
Float1ng point add and subtract (FAuv and FSuv)
MP 0 (Unpack (n) sequence)
1 (Unpack (v) sequence)
2 (Initial al1gmaent)
3 (Final allgnaent)
5 (lIP aequeDC8)
6 1t7 (Set up RI)
Total . (in clock pulses)
38+2(U3S)+2(v3S)+S(N9)+2I NI+(34-lllI)+2K
Total (in.l" sec. )
76+4(u3S)+4(v3S)+10(N9)+4IBI+(68-2tlll)+41
·Ca.se il
Case I
If::::1
Jf::()
··---·Hax.
76
Hln.
4
4
10
o
68
lJ2
76
4
4
10
68
~
~
--2
!l2
--2
4
II ~
146 ~sec.
Case IV
N=~
1=2
Max.
Min.
76
76
Max.
76
4
4
4
10
8
o
o
o
64
64
136
o
--2
--2
166 "., aec • .
4
.300 H sec.
Case ill
-.Q
o
o
o
o
o
o
144,N sec.
298t!t sec.
Min.
76
Max.
76
o
4
10
8
148 14 aec.
2301'1 sec.
Kin.
76
o
o
o
136
o
--2
212;1s6c.
1, Maxiaum time: 300 ~ sec.
Minimum t1rle:
144 ~ Bec.
N ~ 2, !tlximum time: 236 p 8ec.
Minimum time: 148.,.., sec.
Note: In cases I and II, maximum addition times are 4,.u sec. less than shown.
(u) and (v) are both positive. K 0.) ,
=
(If
- 3 fioating point ault1ply (lMuv)
MP 0 (Unpack (u) aequence)
1 (Unpack (v) sequence)
.2 (Mult1ply sequence)
5 (ImP sequence)
6 at 7 (Set up 111)
7 + (u35)
10 + ~ (u3~1) + 2(U3~)
20+2k
7
.
Total (clock pulses)
8l+(U35)i4~(U3~)+2(U3~)+2k
Total yr,aec.)
l62-+2(U35)~(u3~)"4(U3~)+4k
1=1
MaxiEa t1lIle:
380 /'f 88C.
H1n1aua tille:
162,., sec.
·If (u) 1s negative, the cOIlplement or (u) 1s sent to Q. Therefore, Q35-27
is alvays zero, and (~6-0) -':1 be the cc:apleaent of (u26-Q).
Flea ting point elivide (P'Dtlv)
MP 0 (Unpack (ti) sequence)
1 (Unpack (v) sequence)
2 · (In1tial shirt or (u)
3 (Dtvide sequence)
4 (Q ~ A aequence)
S (BRP aequsDCe)
, 6 Be: 7 (Set up III)
7 + (u35)
7
36
222
6
39 + 2k
7
Total (clock pulses)
324 + (u35) + 2k
Total (,"'sec.)
648 + 2(u35 ) + 4k
Maxiaum tille: 654 J"taec.
Mini JpDII time: 648,1t aec.
-4Floating point polynomial multiply (FPuv)
MP 0
1
2
(3)
(41
3
41
5
6Il1
(Unpack (Q) sequence)
(Unpack (u) sequence)
(ltlltipll sequence)
(NRP (Q) • (u) sequence)
tnpack (v) eequence
(Initial alignment)
(Final al1gn118nt)
(RPP sequence)
(Set up II)
5 + (Q35)
7-26-
40 + 4~ (Q35
6)
ui) + 2(Q35 ~1l()
14
7"+ (v35)
1 + 3(119)
4 + 2(t.'9) + 2151
12 + (34 - IIfI) + 2K
_7_ _ _ _ _ _ _ _ _ _ _ _ __
"
26
Total (clock pulsee):97+(Q35)+4~(Q3~)+2(~~)+5(N9)+2INI+(34-INt)+2K
1=1
Total
(,.u sec. ) .194<2 (Q35) K z.O)
Maximum time: 180 ~ Bec.
Min1mum tiae: 144~ Bec.
Floating point normalize ex! t (NEJ-)
MP
0
1
5
6ID
(Clear x)
(Set HE P'F
------
1
1
1
..!1.
Total (clockpulees)
10
Total (~ 8ec.)
20
USEful Note Number 4
SUBJECla
Re~ision
November 10, 1956
of the Card Package· Routine (RR )
By the following modifications the Card Package Routine (CV37)~
which was written for the 1103 , bas been made useable on the 1103Ae
A and
Q Addresses
Accumulator and Q-register addresses have been modified to the .tandard
address of each for the 1103A aB fo1lowsl
A - From 20000 to 32000
Q - From 10000 to 31000
lOB Master Selection Bit
The lOB Master Selection Bit for the Card Unit bas been changed trom
IOB6 for the 1103 to IOB35 for the 1103A. This change has been accomplished
by modification of the instruction in which the Master Bit is introduced.
This modification for the Card Read Routine and the Card Punch Routine now
readsJ
Read Routine - 72163 00161 01013 31 01211 000)6
Punch Routine- 72361 00357 01007 31 01163 000)6
Check SU!!
A revisionC. Oll!'c.
of/ the check sum for the transfer of the Card Package
Routine to the ~ has been made because of the above mentioned revisions
throughout the routine. Thus the contents of the drum address 72313 now
reads:
·
•
72313 . 00311' 01143
23
72111
72133
••
CONSOLlD" TEO VUL TEE AIRCA"FT CORPORATION
."N OIEGO OIVISION
10 001.1.
PAGE
REPO RT NO
MODEL
DATE
CARD PACKAGE
lh/55
Ie 001
The Card Package Routine punches out on b10ctal tape
of the card routinea described below. The card
routine punched out 1s modified according to a specified
ES operating addreea ( address of the first word of the
card routine as it is stored for use in E8). In addition,
the bioctal tape 1s punched with a specified insert
address ( storage address) which mayor may not be the
same as the ES operating address.
~lther
The Card Pnck.a.ge sumD itself after transfer to ES.
If an improper sum 1 a obtained, "SUM ~ 115 typed out
by the supervisory typ~JT1tor and the 110~ stops. The
routine tests the control word-- if it is not suitable,
a nell" control word. 18 asked for by typing out I' Bet q".
oPERATDm D'fSTRUCTIONB
Put 1103 in test mode.
Set PAK u 72000 and start.
a. II SUM" types out I reread tape and rerun.
b. If" set q" types out, set up control word
in ( Q ).
Control vord'
I'
4)
( Q ) - XO ~1MHMM mnmmxm
X 1 fOr card read routine.
X ~ 2 for card. punch routine.
M G desired,insert address.
D
5)
00000 , M ~ 01777
40000' M , 77777
m • desired ES operating addresi.
00000 <.m ~01~ 1.
Turn on -paper tape punch and start.
If X I 1 or 2, or 1t M or m is not in the proper
range, the routine asks for a oorrected control vord.
Either card routine requires 2"?'3 octal wordli of ES
in vhloh to operate, oonstante and temporary storage
inoluded.
The Card Paokage doea not ueo the constant pool.
u8~d and not restored.
EB is
Drum address.
72000 -
72531
ZM~
All
--"'NO
I!T .
tl''''
CPNSOLIO ATEO VUL 1 FE AIR CR Arl CO RP OR ATI O N
~AN
I'M .d
Olf(j.() IJIVI"ll()N
Ie 001-2
1![P()Hl,NO
M OrJFl
CAIW IH:JI.O ROUTIN I,;
[JA
rr
Zl~~91
All
1/7/C",5
Thill ollbn)I1t.! tie Cf\\lO CC tho Bull HOfJroduc er to go through
n read ('yeJp .
Tile ,j"" j,.:.' t1 infor>;lr'.! 11m fn)[;J t.lle Bull
H" i'l"ottllrcr 10 C'Jl\Vf~l · t!":d to h11l.Ilry /\rld ,,:1iled w~co rd lr~ to
f\ ::, 1\"(-£1 1S,:(lltl~'S fn:L.\I1· .
Tile l'~l ;L;Jttl f\rc llJ~n sturod in
,\,c~ ~ri( ; d ;':S 1)I(:::\o1'Y It' : aLloJ,Cl .
•
CArll) .PlTI J~ l~ HLJlrrri: t'.
'lld. E."· (;ul>ollt in(!
Cl)IlI'Crts C;pCI~ l.fJ .::(1 lJ illu ry nUInbers j nto
and senue equlvrtlcnt ,:o(~f!d - de~~;lF.l inforuation
the f; uJ,l Reprc.)(lu ;~e r flJla ';flll~;es t t. tc) f~ O thruw~h a
cle.~ i ::"' ll
t0
•
These card routl lleo require the folJowill{j informatton:
Binary o~elln6'
1)
2)
Dc~l mal G C P~in3 .
3)
Locstion s of fleldG on the card.
4)
Zc!"o suppression ( punch only) .
"i'hia infol"::'_'\tion if] fJuppli ed to the card routine in a.
otandard form cull c ~ a parameter word. One parameter
word ia requi ;'od for each carel fie l d .
f.. field. cOl1!;;ista of a n umber of consecutive card
col LLTJ1a . The la s t cohuTln of e. fie l d 16 recerved for t h e
6iGn of the decl:r.:ll nUflb er stored in that field. An
l1- pun~b sig nifies a ne~ative nurr~ er, no punc h ( blank
column ) signifios a pos1 t i ve number. A corJb ination
12, 3 end 8 punch in one column repre s e nts a d~ c inaJ, pOint.
Fields need not bo adjecent-- there may be unused
columns, punched Or uuIlUI1ched, bet1.Teen them-- nor need
they be allkB in s i ze.
Either card routine is entered froli) line y as
follows!
y
37
l lllilllIrlln !ru;IIllrtil
y+1
AU PPPPl' DDD01:
y l2
Next In s truct ion
IU
to ,:ll.rd routi n e
,; Oli
trol wor d )
repT(tfjCnts the begiwl.ing address ( ES
operntJng RddresD) of the c ard routine
to b ~ UBcd.
Tlte contro.l woro is descr1b~d below.
The 37 ,~ ol,'U'ill.tnd recorda in m the address of the control
wonl. The routine- is then entered at Ul. At'ter finishing
its operatIon, the card routine exits to y+2, the line
rolieving the control vord.
4-40
C"O NS U lIDAllO VUL1EF AIR c" RA~T CO RP O~"lIO N
SA'" DlfGU DIVI SI O '"
~ .
I
CONTROL WORD
['he .. :ontrol wurd
~on trolB
Its c: oln} lou ltl on
r .'uL ilies .
the
1. 6
113
operat ion of t he
f ol1U'w'!J \
. ~6rd
AB PPPPP IJ DlJDD
A, the firat octal digit, controls I>Of;1tloning
o f cnrds in tIl e renc1 and pun c: h c hannels of
l he 131111 Reprodu:er .
A
co
j
Pi ck a relcd car d from t he read
hoplJer .
Pick a punc h c ard from the punoh
hOlJper .
3 , the J e~ o nd or. tal digit , controle the operat ion
to b ~t pe rformed .
B '" 1
Read a ',:ar d .
B
Punch a. card .
a;
2
P
is the ajdrens of t he first parameter vord.
D
is the addrec s of the first dsta \o{ord .
P ru:d D both munt be
£S ad~
r-1
C'-
.4't..
>
S~I~~
Ie 001
IC 001-')
2"""J91
All
l/l~/~ '5
..
... NALYSIS
PRIt ..... RtD BY Gerkin
CHECKED BY
REVISED BY
CONSOUOATe:C 7 VUL.TEE AIRCRAI"T CORPORATION
• AM PltoO DIVIIION
CV-37
"
.' PAOa
'Hr ..ORT NO.
MODEL.
DATE
CARD PACKAGE
Ie 001
zu..h91 '
(I
All ,
1/12/:;5
Ie 001
PtrnCH RCUT!NE
IIZO
IIZi.J
i
4-4-5
ANALval8
CONSOLIDATED VULT!:!: AIRCRA,rT CORPO"ATION
"'U["A~~D
ByGerkin
CHKCKED BV
PAGE
RI:~O"T
.AN 011[00 DIVle l OH
MODEL
CV-37
"!:VISED BV
Ie 001-11
NO
DATE
/100
~----~
I~~=~
'HIJS It/
zM-L~cn
All
1/1 ~ I 11",r.
~
~..I
/077
~~~YL2~--~
r----@_.._------_--_-J
,.yo
..~r.::; .c:£
Xl£ChV~
.s4 r TO ':;N/~r
IV '2.3S. - - - -...
ro/Alr-
CARD PAClA'fE
Ie
001
PUNCH ROUTINE
1041
r:--
('t\
~
~
.;s,oe6.e
l04z
)of
Il..
Alo
lOt./.,
SlEr
/3z.
'0. " '•. a-"
4-49
. . . ..... ~
ro~"" NO E'T
,'''''
CONSOLIDATED VULTEe. AIRCRAFT CORPORATION
PAGE
SAN 01£00 DIVISION
IC 001';'12
REPORT NO
Z~-491
All
1/12/55
MODE~
CV-37
DATE
CARC PACKAGE IC 001
G[ r~ r.: ~-: 1\ TOR f~OUT I rJ(
72 00 0
75 30530 00001
TRANSFER CI\RD PACKAGE
7;:001
1 1 72002 000 00
TO ES .
5 00350 00001
72002
00000
I..
720':.'3
00001
23 10000 20000
7~2:4
(~OOC~2
-I J
r:
20:'30 00 (l 0 It
7 -)'- "v "1':
"- r)
(' OO.J 3
.;L
"l ....
08000 ClOaOa
7200b
l~
72007
,')OOOS
1, 7
7201 0
00006
it
72Cll
\) 0007
37 00 117 00 111
7 ;'CIL
00010
51 00122 ;::0000
7 ....J
v' ,... -...
.....
COOll
i. 7 OCO()E:- OGlll
7 ."2 014
c)O'Jl?
~" ()
'2JlS
() 00 II
') 1 CC'123
72::1G
0001'1
5 L+
72017
JCr01.~
42 0(;1:0 00017
72C' 2 '~
000 16
42
7.c..v,-_
~, " .., 1
00017
1 1 20000 01001
S TO'R E
M
72 022
00020
44 00C'21 OOC2J
5L \
( 0)
7-::' ('2"5
')0021
1-+
;2::';':4
OCC;(Z
4 t+ C0027 00111
READ
72025
0002:.
1 j~-
SCT
72 ::?t
(r)Oi 4
1 ~) 00026
72')27
C)
7i,):,8
Cl CQtt
l · ,-
7ZC31
08027
IS 000 72 00043
7 2032
GO!]Jr)
1 :; n0 1 00 0<:'054
7 2 ')"":,;3
C'OO:'l
1 ~ 00000 0(") 120
r"\
72034
0003%
1 1 OO?72
II
72035
00033
7 ,: 20:)00 00()41
0
0'
72036
000J4
(;3
c:><
(..L,
72037
000 3 5
6 3 00530 1 0000
72 0 4 0
00 036
./
72041
00037
41 01003 00035
720'12
00040
63
72043
00041
72044
00042
11 00272 01003
41 01002 000 36
0004
(A)
0 ---
20000
(R)
on 112
00007
SUi'-1
2 00121
()0~ 1 2
,
--
c:-
,
--r
~
.-1
'JO 2:-·
;00 00
2(;000 0(>1;"71.
acno
4 Cleo::']
CO ll I
o l~ 0'2 ::>
00000 ce0 4 3
( A)
1
"(
>m
II
Of") 3 Lf (; 0100n
---
(1\ )
OK
1544
\ CJ)
.s I.J ~1
r"'EIJ~O~ Y
11· 200C'O
•
PR IrH:
Q"
SE T
m - - (A)
m - a ?
m
STORe
M
~)R
-1 00('1
-(A)
(A)
15
. 02000
>M
7
40000
>M
7
?
P:j:1CH
1
FOR
00054
PUNCH
1 :; 00035 00120
, - 00135 0(1032
O J. OO:>
.)
r: "-'
'+ 7 601
0(1001
0100 1 00006
10000 10000
SET
FOR
READ
I NDEX
?UN('-j LEADEr< AND 7T H
LEVEL HOLE ON BIOCTA L TAPE
5E T
PUNCH
I NSER T
ADDRESS
ON
BIOCTAL
TAPE
t· r:; ')
~O~'"
N O t: T
1 '"
~
CONSOLlOAT!:O VUL T!:E "'ACRAI'"T CORPO ..... TlON
!I""" 011[00 01V1510 ..
CV-37
MODE.L
DATE
cm~~1Arw
TO
EXTRACT
~1ULTIPLIER
SR 9
---
72046
72047
00044
72 050
000'~6
72051
00047
7'2 01002 0 1000
72052
00050
..,.,
-',
72053
00051
21 00043 00143
72054
00052
4 ;: 00120 000'13
720 55
00053
1 1 00141
72056
0005'+
31 30000 00000
72 057
GOOSS
37 00103 00104
72 060
OGOS6
21 0005 /+ 00143
72061
GOO57
41 CIOO) 00054
72062
00060
31 01001 OQ..OOO
COM MAND
(A)
ADD t"lOD I FIe AT rON
purKH rv10D IFIEO CO W·1AND ON TAPE
STep c0 r~ fv1 At ~ D PICKUP
r-10DIFICAT IO N FInISHED '1
SET I NDEX
P IC K UP CONSTANT
punCH CmISTM!T ON TAPE
STEP CONSTANT PICKUP
F UH SHED ~
CHECK · ADDR!:: 55 - - (A)
72 063
00061
11 00127 01002
02000
72064
00062
'·2
0006 7
02000
72065
00063
42 00130 00066
72066
00064
11
· 72067
00065
1t2 00143 00067
72070
00066
36 01002 01001
72071
00067
11 00272 01002
72072
00070
11 00135 01003
720n
S'J071
c, r:
..)..,
72 074
00072
6 .3 00146
72875
COO7J
41 0 10 02 00071
72']7f-
:: C c 7'1
:'>
~.
OlO()l 00006
72':)77
G 0075
63
lOOOO lOOCIO
721 00
t , 0076
Lf
C0103 00104
00L~7
00130
nl003
01002
01001 00006
10000
->
1/19/55
MODIFIED -- (Q)
11 JOOOO 10 000
'j 1 001'24 0 1 002
~) 4 01002 000 77
11 100 00 2000 0
S
CHECK ADDRESS ~
CHECK ADDRESS Z
40000 )
S
40000
1
100000 > CHE CK ADDRESS
~ CHE CK ADDRESS
C~ECK ADDRESS -s
-
.
PUN CH
CHECK
ADDRESS
ON
1 0 )003 oe071
721 01
C 00 77
75 00200 OO C0 7
Pt.:NCH
721 02
00100
63 0013 1 0000 1
TO
I
<.-l
-..J
7 2 1 03
00101
63 111000 10000
0"
7 210't
00102
2 1 0100 1 00135
t'
7210:-
45 O!)']OO
72106
00 1 03
,
00104
72107
00105
55 10000 00006
72110
00106
4 3 10000 00101
72111
' 00107
63 00000 10000
72112
00110
45 00000 00105
:-<
B~
OO(l43
t'
rl
1/12/55
7204')
0004~
Zu-t.91
All
ReT1eed
GENER ATOR ROUTINE
'"-.:tI
Ie 001-13
P ... GE:
REPORT NO .
OIOCTAL
TAPE
TRA IL ER . RE TURN
B~G I NN I N G.
TAPE
30000
55 20000 00000
PVNCH
ROUT I NE.
4-51
F'"0~"~
.... ' 'I.
!
C O NS U L IDA' f D VUI T E"F A'H C RA i l CO flP O I I A TII ) N
P A c-; F_
i§AN [) I Et~O ()I V 1 ~ I O N
CV - .l 'f
Mo rn-L
DA I f
G E~; Er~ AT OI ~
c-'.,
:;O UTIN E
72113
00111
11 001 26 00125
72114
00112
5 l+
72115
0011'3
43 20000 00117
72116
0011 if
S4 20000 00 0 06
72117
00115
61 . 0000 0 2000 0
7212 0
00116
4 5 0 0000 0 0113
721 21
00 117
5 6 0000 0 7 20 00
721 22
00 1 20
11 3 0 000 10.00 0
CO :vi P ARIi IW
72123
aa121
00 0 0 00 0 01 5 44
r- .'" LIt,: I T
72124
0 0 122
00 000 00 77777
72125
0 0 1 23
0 0 77777 0 00 00
721 26
'.) 0 12
721 2 7
00 1 25
00 0 10 00 01 0 00
i, 5 47 2l+ 3 40757
EXP :;)\ C TO r.
Ex TRAC TOr<
EXiF O. SHIFt OUT
DECIMAL POINT. R-l COMPUTE
10~. R TERMS OF
SERIES ADDED TO N
SHIFT OUT SIGN PO ~l TION
72242
00240
01072
54 01211 10107
10 2 •
10000 0000 6,
a 1 2'1 1
01164
0115~
Zt\- t./)'l
All
SLI. (a)
STORE R
SH IFT MATRIX
B DECI MA L DIGITS
L TERMS OF SERIES
CONVERSION N
1
-
lOR.
IF
2-' - -
25
N •
(Q)
(A)
_
72243
00 2 41
01073
31 01216 30000
72244
00242
01074
32 10000 00000
72245
00243
01075
71 01211 30000
1
N · 2 S + 10 R..· 2- (A)
N· 2S/10~ROUNDED - ( D )
7 2246
00 24 4
01076
21 01045 01214
5 T EP P .',RAI-1ET ER
72247
00245
01077
2 1 01075 01206
S T'':P D
72250
01100
45 00000 30000
0(
7 225 1
00246
0024 .,
01101
37 01100 01047
SET ~z.
72252
00250
01102
22 01216 20000
72253
72 25 4
00251
01103
37 01174 30000
S'l T SHIFT COUNT = 0
SIGN READ SWITCH
00 2 52
01104
55 01222 00034
SL %9
12255
00253
01105
37 01131 01106
SET (3,
72256
00254
01106
55 30000 00000
PARAMETER
72257
00255
0'11 07
44 OU32 01110
LAST FJEl.D ~
72260
00256
01110
55 10000 00021
SL.I"1
72261
00257
OUll
3 1 01216 00000
SHIFT COUNT-- (A)
72262
00260
01112
52 01213 01216
SC-+ B -
S\of1 TCH
SIGN WORD,
WORD -..... CO)
(0)
A
R
FO"'" NO f: T
\ J'> F
CON50LlOATlEO VUL TEE ' AIRCRAFT CORPORATION
PAGE
."N DIEGO DIVISION
Ie 001-17
REPORT NO
CV-37
MODEL
, ·DA u
R[AD ROUTINE
0111 -~
~)')
1000n (1(,006
:-)L ~ (0)
o 1 : 1 II
:';'
0 1 ? 1 J 0) 2 1 6
SC
C07S1
Olll r
55 10000 OJ006
00204
0.1 1.1(.
'~I)
(l ln3 01216
(' 1 ' J 7
7J
(']?
01 1 :'0
5~)
1;')00(' 00017
722cA
7 2265
OO?GC
-:~271
7~~72
011
~J270
0 ')
1 '" i) C-' 0
:n
all??
3') 0) 175 01 124
+ e +
-
L
+
+
+
G
SL,s
(0)
( 0) .
2 15 +
~,H
SE T
2/22/55)
R - - - SC
r FT
=
7227~
00273
Oll; r
46 01126 01127
A
7Z=76
r0274
Ol12u
13 30000 30000
-( D ) -
:2277
00?7:
011~7
21 01106 0 1214
STr::P
72300
0 0276
01130
21 Gl126 01203
S TEP
(A ')
COMMArW
SHIFT
S IG~;
SHIFT
REI" - - ( R)
R n1 -
1 -
+
l"
I
( A)
SCI J 6 - - - ( 0 )
SC
1/12/55 \
(ru ~e Rev.
L
' ZX 491
All
(Q)
SL"
~,C
:·
.
courH
B IT - - -
A71
1 ~
-( D)
PARAf'.~[TER
D
(3 SI,': IT (H
723~2
20300
Ol11~
37 Cl131 0 1110
SET
f32
qr:AD RO':.' It
72304
00302
01134
45 00000 01021
EXIT
72?n5
08303
0~13~
11 01i07 01?16
SCT IND[X -
0030'~
011::'6
11 01206 0:217
0030::'
01137
54 01217 00004
1 -- H
SL 4- tv;
72307
72310
7 r_ ..,
44 0 1 I
lf
1.
0 1 1 1• 7.
3
035 = 1
1
00307
o II {, 1
3S 01124 012J.7
DIGIT + /vi
72312
0 0310
01142
43 20000 01137
F UL L ~v1 ATR I X '0., 0 RD I rJ
7! :'13
00311
o lIt, -.
723 14
00312
0114~
21 01143 0 1 214
S Tep STORE
00313
0114~
41 012 16 01136
FIN ISH E D
CO 3
01146
45
01147
41 0 1143 01154
USE D UP:" A T R I
~[SET
J
1 '
_
72316
ll~
72317
~7
?:)
1 ? 0 7 5 2 2~
oonoo
30000
,vIA TR I X +
EXIT
tv!
-
i· ~
r"
(R) Z
,\1 ATR I X
-
COMMAND
ATR I X L00 P 'Z
~ATR IX
LOOP
x
! ND EX"?
INDEX
72320
00316
01 1 50
11 01211 01 143
72321
003J7
01 1~1
21
7~322
00320
011~~
11 :SOOOO 01223
7 2323
00321
01153
43 01177 01156
72324
00322
01154
55 0 1 223 00004
7 2325
00323
0 115 ~
I.:'
7232 6
00324
01156
37 0117'.. 01171
72327
00325
01157
55 01222 00034
MATRIX WORD
T I r< E TO READ SIGN ROH ?
SL 4 MA TRIX WORD
EXIT OF SHIFT ROUTINE
READ SIGN ROh'
SL Z3 SIGN WORD 3
72330
00326
01160
37 01103 01154
,SET SIGn READ SWITCH TO SKIP
0 1 IS :? 0 1 :2 1 4
00000 3000 C)
STEP MATRIX T RANSFER
TRANSFER
4-55
CONSOLIOATI!:O VULTEE A'RCRA,..T CORPORATION
PAGE
.... N DII:GO DIVISION
Ie 001-18
2!.t-491
REPORT NO
CV-37
MODEL
DATE
READ ROUTINE
All
1/12/55
12331
00321 · 01161
45 00000 CI105
72332
00330
01162
71 01212 01217
72333
00331
01163
11 20000 01217
10 • lOR.
_
lOR.
72134
00332
01164
37 01155 01147
SHIFT MATRIX 1 DECIMAL DIGIT
72335
00333
01165
31 01216 00002
4N
72336
00'34
01166
32 01216 00001
2 (4N
72337
0033~
01167
52 01204 01216
10N
723~0
00336
01170
45 00000 30000
72341
00337
01171
76 00000 01222
72342
00340
0117~
76 10000 0122d
EXIT OF SERIES ROUTINE
READ ONE
ROy' FROM
72343
00341
01173
76 10boo 01221
72344
00342
01114
4~
7234~
00343
01175
31 01220
12346
0034.4
01176
21 01223 01217
72347
00345
01177
11 01230 01223
72350
00346
01200
00 00000 01000
12351
00347
01201
00 00000 01067
ROvl READ EX IT
PRESET
PRESET
•
COMPARAND
CONSTANT
CONSTANT
1202
00 00000 00011
'9
1203
00 00001 00001
1204
00 00000 00017
1205
00 00000 00044
U AND V ADVANCE
4 8 t'T EXT RACTOR
36 DECIMAL
1-206
00 00000 00001
1
1201
00 00000 00003
3
1210
1211
00 00000 00005
00 00000 00010
5
8
1212
00 00000 00012
10
1213
00 00000 00077
00 00001 00000
TWO OCTAL DIGIT EXTRACTOR
U ADVANCE
1214
00000 30000
0004~
(Al
-
+
+
DIGIT
PUNCHED CARD
D~CJt.1AL
1215
R
1216
B, N.
1217
L. M. 10
1220
1221
ROW WORD 1
ROW WORD 2
ROW WORD 3
MATRIX WORD
MATRIX WORD
MATRIX \'iORD
MATRl ~ WORD
1222
1223
1224
1225
1226
(A)
.. N
N) -
sc.
INDEX
1
2
3
4
4-56
CONSOLIDATED VULT(:I[ AIRCRAFT CORPORATION
!IAN Ol£GO OlVISION
PAGE
rc
o~))
REPORT NO
CV-3 7
MODEL
DATE
All
1/l2/~:' 5
READ ROUTINE
1227
1230
1231
MATRIX \'IORD 5
~ATRIX
\lIORD 6
1 2 32
MATRIX WORD 7
MATRIX \VOR D 8
1233
~~ATRIX
-19
4;t--4S1 1
\40PD 9
4-57
CONSOLIDATED VUL TEE AIRCRAFT CORPORATION
Ie 001 ~·aJ
;:.:.'...J./
MODEL All
PAG [
5AN D'EGO DIVISION
REPORT NO
CV-37
CAR D rI\C~AGE I C 001
PU'~CH ROUT I ~!C
DATE
723~2
00 350
01COO
71 0 116 C 30000
Co rlT RO L i'IO RD -
7 235?
00351
Ol~Ol
l ~
SET PARA,\IE TER P IC v.UP
7 2 :: ~) 4
0 0 35?
0 1 I.) () ~)
5 5 ;:' 0 000
7 2~~5
003S?
01003
l ~
10000 a l C0 0
7 2 3 ~~
00)54
0}004
75
200 4~
723~7
~03Ss
DIDOS
2 3 0117 1 2 00ro
723 6C
003~G
OI OOb
16 0 1156
7~ ~~ 1
0035 7
0 1 007
Jl
72 362
00360
01CI0
5 5 10000
72 363
00361
0 1011
52
01161 20000
72364
00362
01012
54
2~00C
7 23~j
OD363
0 : 013
44 0 1014 CI014
~, L t
7236 6
0 03S4
01014
44 01021 Ol C15
P'Ji'l CH Z
723 6 7
00365
010 1 S
17 00000 20000
[\j 0
7237 ~
00366
0 10 16
21 CIQGa 0 116 0
SET
72 3 71
0036 7· 0 101 7
1 6 20000 0 1 0 2 0
72 3 72
a0370
0 1 020
45 00000
7237 3
00?71
0 1 021
72374
00372
7 2375
~aooo
0 1 02 6
(1 {I
0 17
0 10 0 6
noooe
0 1163 0000 1'
OC~ J O
n0002
~ OOOO
CO', T P.O L
I~
:JL
111?/55
(A)
~lcr~D
DA TA PIC KU P
CL:: AR
~) r::T
I ··~A G E
.'.) ET
(00000 ) r- OR RCRUN
8A~) IC
SULL CODE S L Z.4 c o/~ T RO L WORD
EXTRACT PICK CODES
SL
z.
( II )
( AI
CO:1TROL \'!ORD
'
S TA R Te A R D CY C L E •
[X
IT
EXIT ,
S 'Ii ITC-i
32 01 137 0 0000
YE S )
ADD PU NCH co cr:.
0 1 022
17 000 00 20000
00373
01 023
11 0 1170 0 111 0
72376
00374
0 1 02 4
11 0 11 5 4 0 1111
72 3 77
00 3 7 5
0 1 025
37 0 1020 0 1 0 26
START CARD CYCLE
PRESTOR E COLUM N SELECTOR
PR ESTORE ROW SE LECT OR
SET cX.,
724 00
00376
01026
55
PARAMETER
7 2 4 01
0037 7
0102 7
44 0 1 10 1 0 1030
LA ST PARA ME TER WO ~D ~
724 02
00 4 00
0 10 30
55 10 000 000 13
SET
72403
00401
0 10 31
5 1 0 116 5 20000
724 04
00402
0 1 032
13 20000 2 0000
724 05
0040 3
0 1033
3 5 0 1155 0 1061
724 0 G
00 404
0 1 0 34
55 1000 0 0000 6
5 L ~ (0)
724 0 7
004 05
01 03 5
51 0 11 65 0 1132
STORE
72410
00406
0 103G
55 10 000 0000 6
SL ~ (O ')
72411
00407
01037
51 0 116 5 0 112 5
STORr:: L
72412
00410
0104 0
55 10000 0000 6
SLI. (0)
72413
00411
01041
51 01169
STORE R
72414
00412
010 42
44 01115 01043
72415
00413
01043
16 01127
~OOOO
00000
011~3
0114~
Wor~D -
(0)
UP
SH IFT
ORDER
e
ZERO SUPPRESSION ~
SET FOR NO ZERO SUPPRESSION
4-58
r
O R M N t')
(f
"
.. ,.
CONSOLIDATED VULTEE AIRCRAFT CORPORATION
PAGE
'AN OIf:GO OIVISION
CV-'3 7
PU~JCH
Ie 001-21
REPORT NO .
MODEL
DA TE
ROUT I NE
1/12/55
01045
0 1 1 3 :3
C0017
01144
01112
SHIFT COLUMN SELECTOR
01050
37 01106
'~l 0 1 1 3:Z
31 01125
37 01146
11 200('0
00421
01051
31
011~13
00017
R· 2 / ! : -
72424
00422
01052
37 011 4- 6 01144
72425
004 23
010 5 3
16
72426
004 2 4
01 05 4
31 011.66 00023
2 34 _
724 2 7
o O lt 2 5
010 ~ 5
73 10(()0 10000
2 ~4/10R.-1 --.-
72430
004 2 6
01 0 ~6
31 01112 00107
72431
00427
01057
35 10000 10000
12432
00'+30
01060
12 30000 01132
ROtJNDING TERM
10 L.. 2_
DIVIDE ROUND
'
STORE ROUNDWG TE RW;
STORE N • 2$
72433
12434
00431
00 )0000 30000
N • 2 ~~ -
00432
01061
01062
~5
10000 20000
ADO ROUNDING TERMS
72435
00433
01063
7~
01112 20000
72436
00434
01064
35 20000 01112 ,
N • 2!S" 110 1.. ---.... (A)
N • 2~" 110'- ____ N J
72437
00435
01065
37 01136 01066
72440
00436
01066
41 01125 01137
72441
00437
01067
16 01157 01136
72442
00440
01070
41 01153 01120
72443
00441
010"71
41 01153 01137
72444
00442
01012
15 01060 01073
72445
00443
01073
N •
72446
00444
01074
5S 30000 00000
21 01026 01166
72447
00445
01075
21 01060 01166
STEP 0
72450
00446
01076
16 01020 01136
SET EXIT
72451
00441
01071
13 01160 20000
-1
72452
00450
01100
724'3
72454
00451
00452
01101
~~T ~ 2
01102
44 01110 011"
31 01020 01030
75 20014 0110 '->
12455
00453
01103
55 01221 00010
12456
01104
01105
75 )0003 01106
72457
00454
00455
11 01150 01110
12460
0045~
01106
16 01156 00000
12461
00451
01107
43 0115l 01016
724 6
12411
12420
72421
·72422
00414
00415
00416
00417
00420
01044
01045
01046
010 It 7
72423
0~1 5 6
00000
8B COlUMNS
L • 2 IS" (A)
10L _
(A)
STORE
10'-
(A)
10 IC-:!..-(O) OR 1 -
(O)IF R = 0
RESET (00000) FOR RERUN
(A)
(A)
THRU
CON·VER S I ON 1.001'
\
SET EXIT IN IMAGE ~OUTINE
STORE DECIMAL POINT IF R > 0
R -1 TIMES THRU CONVERSION
SET NEXT INSTRUCTION
I.. TIMES
('
I .
%M--49l
All
2 S _
(Q)
STEP PARAMETER
(A)
N NEGA l' rYE ~
~H A FT
'-g RIGHT THIRD OF
CARD IMAGE
SET UP
PUNCH ORDERS
RESET (00000) FOR RfRUN
ALL 12 ROWS PUNCHED ~
.
I'?fIM PfO • T • t~"
.
.
CONSOLIDATED VULT€I[
AII'tCI'tA~T
COAI"OI'tATION
Ie 00 !-?2
ZM--i. rJ'l
MODn All
PAGE
.AN 011:00 Dlv,e'ON
REPORT NO
CV-37
PUNCH ROUTINE
,
1/12/55
72462
00460
01110
00 20000 30000
7246~
00461
01111
00 30000 30000
72464
00462
01112
00 30000 30000
72465
00463
01113
75 20003 01106
72466
00464
01114
2~
72467
00465
01115
37 01143 01044
72470
00466
01116
43 01125 01127
72471
00'+67
01117
4 5 000 a 0, 0 11 S :3
72472
00470
01120
31 01161 OOCOO
:3 -
72!+73
00471
01131
35 01111 01124
72474
00472
01122
35
72475
00473
01123
55 01110 00000
72476
00474
o 112L~
00 30000 30000
7247.7
00475
01125
00 30000 30000
72500
00476
01126
33 01160 00001
72501
00477
01127
37 01143 01130
72502
00500
01130
35 01111 Oll;2
72503
00501
01131
55 OlllO 00000
72504
00502
01132
00 30000 30 0 00
72505
01133
01134
55
72506
00503
00504
72507
005'05
01135
21 01111 01167
72510
00506
01136
45 00000 30000
SELECT ROW :3
SELECT ROI-I 8
COLU~1N SELECTOR - - (Q)
EXTRACT 3
EXTRACT 8
SELECT RO\'J 12
SET NO ZERO SUPPRESS IOfJ
ADD ROW SELECTOR TO (A)
COLUMN SELECTOR ~ (0)
EXTRACT DIGIT
S R , COLUMN SELECTO~
1/3 IMAGE FILLED ~
YES, STEP ROW SELECTOR
EXIT OF IMAGE ROUTINE
72511
00507
01127
31 01112 00002
4
72512
00510
01140
32 01112 00001
72513
00511
01141
11 ' 20000 01112
72514
00512
01142
34 20000 00044
ION' - - (A)
FRACTIONAL PART-- N'
INTEGER PART _
(R)
72515
72516
00513
00514
01143
47 01127 20000
0114/+
15 20000 01146
: C'
72517
00515
01145
54 01160 10000
IJ
72520
00516
01146
75 :30000 20000
'.U
72521
C'
72522
00517
00520
01147
01150
71 20000 0 1164
77 00000 01234
72523
72524
00521
01151
77 10 0 00 01204
00522
01152
77 10000 01220
72525
00523
01153
00 :';0000 30000
72526
00524
01154
5~
72527
00525
01155
31 01132 0 00 43
, C"'\
I
f
DATE
,~
,
><
, Il-.
01110 01160
01162 01125
01110 00 0 43
44 01135 01136
10000 01173
PUNCH
ROW
STEP
PUNCH ORDERS
SET FOR ZERO SUPPRESSION
IF L ~ 0, NO ZERO SUPPRESSION
(A)
N'-
(A)
THIS DIGIT = 0 ~
SET REPEAT ORDER
1 (A). (0)
FORM 101< IN (A)
AND 10 x-I IN (Q)
PRESET
PRESET
PRESET
PRESET
PRESET
."
CONSOLIDATED VULTEE AIRCRAF"T CORPORATION
REPORT NO
CV - 3'1
MODEL
PUNCH ~()UTINr-
ornro
DATE
OO~);:>6
0 11 "(:-
00
72"'31
00'127
011 1 '7
11 60
00 GOOOO 0 1 0 71
(\0 00000 0000 1
1161
00 00000 00003
.,
116 2
00 C'OOOO (\[10 0 5
5
116 3
00 OOOOC
8
1164
00 0,0 QC' 0 rC0 1 2
~'C0 1 0
,
I
10
OCTAL DIGIT
00 00 000
116 6
00 0000 1 00000
u /" CV II NeE
1167
00 00000 0:)0 14
12
117 0
40 00000 (':0000
P I~[SE T
~O0 77
T~O
FOR
EXTRACTO~
C O L.U ~~;
CARD H1AGE CO!.. 5
SELECTOR
1- 36
ROW 1 2
117 2
ROI'; 11
117 3
p.m·!
1174
1175
ROW 1
ROW 2
1176
ROvJ
3
1177
ROH
4
1200
ROl"
5
12 01
ROW 6
12 02
RO'f1 7
120 3
ROW 8
ROW (}
1204
12 05
•
1/12/55
1
11 6~)
1171
Zl~-J-l9'
All
c)lOOO
l)
7:: S :
Ie 001- 2 3
PAGE
SAN OI£GO 0lVI510N
CARD
I~AGE
COI.S 37-72
a
Rm'l 1 ;
1206
ROH 1:
1 20 7
ROI" 0
1210
C'C'\
121 2
RO\-,' 1
ROW 2
ROW 3
--:t
1213
ROvJ 4
u
u
1214
1211
RO\'; 5
ROY) ~
ROW
ROW
1220
ROW (
1211
I
I
c'
c><
rl
1215
1216
,
4-6.
CONSOLIDATED VULT£E "IRCRAI' 1 CORPOR .... TION
PAGL
SAN OIf:GO OlVl510N
Ie (/";':'--2.
Z~: -i_O:
HE Pu'H 'J-
CV-37
rUNeH ROUTINE
1221
"
MUOf l
AU
n Ar f- 1 it ::/55
CAQr)
Ir~
t\G C COL 'S
7;--[30
ROI'l
12
1222
ROV! 11
127.~
pa\,l 0
1224
ROvl 1
1 22">
RQl.1
2
1,"':'5
ROW
~
1227
:~ O~J
4
1230
ROW 5
1231
ROI'I 6
1232
Ro\:! 7
1233
123 /•
RO\: 8
ROIt} q
•
r--'
:J;
I
:..;
-..)
0'
,-1
1'- -
~.j
~
...
4- \.)-' -J
12 December 1956
~~A..r1I-L-
USEful Not. iI5
SUBJECT a Double Precision J.dd p Multiply (RR)
HEADING
In order to complete the following routines as library subroutines in
the USE fonnat, the following heading should precede each routine. ' This
heading will add 0.04 MS to each subroutine.
LQa
op
u
v
Remarks
entry
MJ
0
start
entry line
error
RJ
diag + 2
diag
error exit
exit
MJ
0
fill
normal exit
b1
fill
0
0
b
fill
0
0
cl
fill
0
0
c2
fill
0
0
../
d1
fill
0
0
d2
fill
0
0
}
2
start
(
input data
)
output data
)
(
subroutine
(
/
••
- 2 -
DOUBLE; PRECISION ADD (METHOD ·1)
Want
b -It o'
=d
b
=bl
+ b2
ditto
0
and d
Assume each word contains 35 bits preceded by a sign bit ' 1n one's . coropliment fom.
Loo
op
u
v
start
TP
bl
A
AT
A
LA.
c
l
A
AT
b2
A
AT
c2
A
LTl
0
d2
LT
1
dl
TP
mask
Q
QS
dl
d2
MJ
0
0
exit
unpack
lUak
Total time
This
40
Remarks
add
(0.24 MS)
35
)
\
)
unpack
(0.17 MS)
I
0
=0.41 MS
routine ignores the fact that overflow may occur into
bit 71 of the accumulator.
..
- 3 DOUBLE PRECISION ADD (METHOD 2)
Want
b
+c =d
ditto
0
and d (one 9s oompliment form)
All words with Bubscript 2 contain 36 data bits and all words with subscript 1 contain 35 data bits preceded by a sign bit.
(b, e', and d) are in l's
c~mpliment
form .
Loo
op
u
v
.start
SP
bl
0
SA
°1
36
SA
b2
0
SA
c2
0
LTl
0
d2
LT
0
dl
rvlJ
0
Nota: all numbers
Remarks
I
add
>
0.20 MS
unpack
(0.08 MS)
exit
Total time = 0.28 MS
This routine ignores the fact that overflow may occur into b.it 72 of
the accumulator.
omitted hare.
To test for overflow is not difficult nor lengthy but is
If the operations of multiply or divide are to be' used also,
this method of packing numbers for addition complicates these routines unduly
and is not ,significantly faster for addition than method
~.
-~ DOUBLE PRECISION MULTIPLY (METHOD 1)
Want
b •
= d
0
Assume 35 bits and a sign bit in words with subsor1pt 2 and 34 .bits and
two sign bits in words with subscript of 1 in one's compliment formo
no change in method 1 add is necessary with these restrictions.)
Loo
op
start
HP
Remarks
v
u
round
LT
temp
MP
Q
multo
MA
neg
pos
AT
temp
SJ
neg
SS
l'.ound
MJ
o
SA
round
o
If
LT
1
temp
I)
MP
Q
AT
unpack
A
pos
o
round
pos + 1
multo
temp
LTl
o
LT
1
TP
round
A
)
unpack
QS
MJ
round
exit
o
40
Max. error
± 1/2
average time 'of round
o
in the last place kept
=
0.39 MS
I
(Note:
- 5 -
average ,time of multipl.y =
0.95 HS
average time of unpack
=
0.17 HS
average total time
=
1.52 MS
(Times, assume 0.27 MS for MP)
Notel this routine assumes only 69 places as input and output. (in
general overtlow occurs it more bits are assumed).
,
- 6 -
DOUBLE PRECISION MULTIPLY (METHOD 2)
Want
(See method 1 ofmultlply for Bcaling on b, c, and d)
d
=bl
• c1 + bl • 02 + b2 + 01
Lo0
op
u
V
start
MP
b2
~;
LT
1
tamp
Form (~ o· 01)
scale dow
MP
Q
AT
temp
°1 )
A
Form d
MA
b1
Remarks
}
~sroutine
•• method
unpack
Average time
=~88 MS
Average total title
Max. error
±1
+ (b1
0
c2 )
1 for unpacking
(assumes 0.27 MS for MP)
=ll.;OS MS
(including unpacking)
in the last place kept
The main difference in these two methods of multiply is in the
aocuraoy obtained.
It should be noted that the maximum difference in the
error between the two methods is only one place.
Further nQte that no overflow can occur as the result of
the add routines)in these two multiply routines.
,
~pack!ng 8 ('a
in
, ,
/
-:
101/VV\ P~L
USEful Note 16
Subjeott Prel im1 nary Information- General Tape Handler
11 December 19;
(RR)
PRELIMINARY INFORMATION--GENERAL TAPE HANDLER
'
"
The General Tape Handler is a routine to , facilitate the use of the 1l0)A
mSfnetio tape system. The routine provides built in' checks which prevent the
initiation of erroneous tape operations, and an error entry which makes use
of information on the 'last' tape operation initiated correctly, to recover
from f aults occurring' while tape is in operation. A w.arity check is made
for each block read, and 'b locks in which errors occur are automatically reread at different bias levels.
Initiation
££
tape operation
The tape handler is in the USE subroutine form with one parameter word
which specifies the type of operation, etc. The porameter word is placed in
location GTH+), and routine is entered with a return jump.
E.Ql!!l£1. parameter
~
R M T
VVVVV
NN
SS
R1
2
)
octal digit which specifies operation
rewind
reWind/interlock
move forward
4 move backward
5, read forward
6 fead backward
7 write
M - blockette spacing (fOf rwrite only)
M 1 - , 0" blockette spacing
= 2 - 0.1" blocketta spaoing
4 - 1.0" blockette spacing
=
=
T - block spacing
T 0
1" block
1
1" block
2 2.4" block
= ) 2.4" block
=
=
=
and density (fgr ~ only)
space
128 lineS/in. density
space
50 lines/in. density
space
128 lineS/in. density
space
50 lines/in. density
NN - number of blocks to be written
(~~
9nly)
MTNN - number of blocks to be moved or read
SS - number of servo on which operation is to be performed
. VVVVV - High Speed Storage address for read and write
t
- 2 -
1)
For write first word is taken from location specified by VVVVV.
Succeeding words are taken from asce!lding storage locations.
2)
For read forward first word is read into location specified
by VVVVV and succeeding words are read into ascending storage
locations.
For read backward first word is read into location VVVVV +
120n-l. (where n is number of blocks to be read) Succeeding
words are read into descending storage locations, and the last
word to be read is placed in VVVVV.
Sentinel blocks
The routine recognizes two types of sentinel blocks; lead and final.
A complete block of all ~words is recognized &s a final s ent inel. A block
whose first and last blockettes are all~'s is recognized as a lead sentinel.
The other four blockettes may also contain all z, "lOrds, but at least one word
must be a non - z; word.
Errors detected 2..Y
~
routine
Upon detection of many errors, a code word is placed in a diagnostic
routine (not a part of this routine), followed by a return jump to the diagnostic routine.
Error's wh ich are treated th is way are:
(1) No oPeration specified (R
0)
(2) No blockette space designation
(3) Read whi.ch would clobber the routine if executed
(4) Read which would clobber Fl to F5, or would try to read words
into locations outs ide of high speed stora ge
(5) Write, which takes words from locations outside of H.S.S.
=
If a parity error occurs, Rnd attempts to reread the block at different
bias levels are unsuccessful , the routine prints out p rf for read forward,
or p rb for read backward and stops with PA K set to re-enter the reread
routine.
If a finnl sentinel block is reached on a read or move forwa:rd n blocks
before the nth block is ,read, tape is stoF~ed, repcsitioned to f irst word of
the sentinel block. The routine prints out s rf or s mf Dnd stops with PAK
set to exit from the routine. If the sentineJ. block is the nth block to be
read, tape is repositioned to first word of block, but no print out is made
and computer is not stopped.
If a leud sentinel is r 3;J ched on a read or move backward n blocks before the nth block is read, tape is s topped, s rb or s mb is printed and
computer stops with PAK set to exit from routine. Tape is nqt repositioned
to last word of sentinel block , since the lead sentinel may contain informationnecessary to identify tape on next rend forward.
"
,
- 3 -
If the lead sentinel block is the nth block tape is stopped but computer
is not stopped.
Error entry
Most faults occuring whil'$ the tapes are in operation are recoverable
by re-entering the routine from ·the error entry.
The one error which may not be recoverable is a ., 720 error in the last
block to be read or moved. In this case computer coasts for ~BO m.s. before the fault stop. If < 6 extra lines are detected, a second tape operation cannot be initiated during this 80 m.s. coasting time since the instruction which would normally stop the tape has hung up in TCR without giving an
lOB resume. If program 1s not altered during this coasting time, and other
tape operations have not been started, recovery can be made by re-entering
. at error entry ..
Indications ££ >720
~
in last block
MT B fault indicator illuminated. Sproket Error indicator in tape control cabinet illuminated. peR contains something other than an ER. (If PCR
contains an ER, the error · was either a 472.0 fault or a ,72.0 fault in some
block other than the last block to be r ead.) If less than six extra lines
were detected TCR contains stop bits (6000). If more than six extra lines
were detected the contents of TCR cannot be predicted, and another tape
operation may have been initiated and a second fault may have been generated
when the computer stopped.
)
HOTEl Copies of the GTH flow-charts are available upon request.
-r~.dCj~
26 December 11956
..
USEtul Note, '
40275
TEST FOR CO RE
40475
GREATER TH AN ZE RO
40450 TEST FO R PREVIOUS ERROR
40134 TYPE
40155
OUT
THE
40005
SUCCESS
40017
40050
OK1
40305 DIWM 7 . UPPE r~
TO LO WER CORE
40307 DRUM !) UPPER
TO UPPER CO RE
04000
40311 MAKE
CORE ZERO
04000
1+0313 ' SE T SIGN OF
LO vlER CO RE )'
32000' CLEAR ACCUMULATOR
40 :316 TEST FOR CORE
GREAT[R THAN ZERO
40475
4045(}- TEST FOR PREVIOUS ERROR
40134 TYPE
I~09·r
., Dote
l
Poge
Model
LOCKHEED AIRCRAFT CORPORATION
MISSILE SYSTEMS DIVISION ,
Title
Approved
STORAGE
EXEC.
40320
40321
403 22
40323
40324
40325
40326
40327
40330
40331
40332
40333
40320
40321
40 32 2
40323
40324
40325
00000
00001
00002
00003
00004
00005
00006
00007
00010
00011
00012
00013
00014
00015
00016
40345
40346
40347
40350
40351
40352
40353
40354
40355
40356
40357
40360
40361
40362
40363
40364
40365
40366
40367
40370
40371
40372
40373
40374
40375
40376
40377
40400
40401
40402
40403
1+0334
r
~ORM
II
"'SD 8520
343
4)344
40345
4()346
4(1347
40350
40351
40352
40353
40354
40355
40356
40357
40360
40361
40362
40363
40364
40365
40366
40367
40370
40371
40372 ·
40373
40374
40375
40376
40377
40400
40401
40402
40LtQ3
!
ML}ID 1
OP
61
61
61
61
75
11
71
11
22
51
21
41
75
11
75
11
15
37
37
11
75
11
11
75
11
11
41
75
11
75
11
75
27
23
75
12
75
42
37
61
61
61
61
75
61
57
CO , :H EI TS
U
V
00000
00000
00000
00000
,3001 "
40326
00014
3 2000
00 024
00 0 13
00002
00016
34000
02000
40155
40005
40017
40442
3 LI-000
02000
44755
T /777
2
~eport No,
00012
31000
02000
00012
00015
0
00010
44000
40346
54000
5 4415
77777
30455
00001
03777
00004
40406
40403
40352
04001
04000
40355
44000
47777
40350
40361
OUT
THE
SUCCESS
OK2
S TAR T TE S 1ING 'Ii i E.
S ECT ION OF LlR UH
COMPUT E THE
RANDOM N UMBE r~S
1~l:. X
T
I'I ODIFY ST ORE
LOOP TEST
S TO RE vJO F< KIN G l'l Ut-1b [ f\ S
IN DfWM i\ UPP I:. R
S Tu RE ;,1 1 f<,,, OR I N
DRUM 5 UPPER
CONSTANT
CONS TANT
CONSTANT
CONSTANT
INDEX
5
40433
RJ TO PRINT
40034
SET ROTATION INDEX
33777
ROTATE THE
NUt~eERS
44000
47777
BEn~EEN
33777
CORE AND
DRUM 4
04000
UPPER
07777
LOOP TEST
40403
DRUM 4 UPPER
3 4000
TO LOWE R CORE
44 0 00
3 '1-000 40363 ORUtvl 5 UPPER
TO LOWE I~ CORE
5 4000 04000
34000 40365 HAKE LOWE R
CO RE ZERO
00000 04000
320 00 , 32000 CLEAR ACCUMULATOR
.34000 40370 SET S IGN OF
LOWER CORE')'
00000
TEST
FOR
40372
2 4000
GREATE R Tl-IAN ZlRO
00000 40475
TEST FOf~ PREVIOUS E R RO I~
404 5 1 40450
00000 40134 TYPE
OUT
00000 40155
THE SUCCE S S
000 0 0 40005
OK
00000 40017
S EVEN
00007 40401
l:l LAI'lK LlI~ ES
00,0 00 40134
, UCCE 5 5 STOP 00000
07777 BASIC ROTATION CON5TAIH
ROTATION INDEX
,
'if
Oot.
LOCKHEED AIRCRAFT CORPORATION
Model
MISSIL.E SYSTEMS DIVISION
Titl.
Approved
STORAGE
40404
40405
40406
40407
40410
40411
40412
40413
40414
40415
40416
40417
40420
40421
40422
40423
40L~24
40425
40426
40427
40430
40431
40432
40433
40434
40435
40436
404 37
4044 0
40441
40 l,4 2
40443
40444
40445
40446
40447
40450
40451
40452
40453
40 l ,54
40455
. 40456
40457
40460
40461
40462
40463 '
40464
40465
40466
FORM #
"'SO B520
<1'> ••
40467
U
40l~20
40421
40422
40423
40424
40425
40426
40427
40430
40431
40432
40433
40434
40435
40436
40437
40440
40441
40442
40443
40444
40445
40446
40447
40450
4045L.
40452
40453
40454
40455
00000
40434
40433
40435
40436
35
31
22
35
45
61
61
61
61
61
61
61
40437
32000
00000
40437
00000
00000
00000
00000
00000
00000
00000
00000
40430
00025
32000
40432
40421
[,0155
40471
40404
40414
40326
61
00000
40426
45
00000
11
~1
/
41
45
11
56
44
11
't 2
401..56
40 L,57
4 0 /+60
31
4:;
31
35
40461
40462
40134
61
11
51
34
35
00000
00000
40405
00000
40031
00000
40465
40474
4045l
40464
00000
~1000
32000
00017
40 t ,13
t~0404
40426
77777
00002
32000
4044 0
00037
00052
00074
00070
00064
00062
00066
00072
40452
31000
40454
40455
32000
40462
l,0345 \ 00001
40451 40463
i,O 4~ 1
40472
40473
\
.
--
,
ERROR TRlC)(~E~
ERROR INDEX
CARRIA~E RETURN
SET V MASK
PICK UP Y)'1
COtvlPUTE Y-1
EST TRANSMIT
CONTENTS Y-l TO A
SET UP
INDICATIVE FOR
TYPEWRITER OUTPUT
FILL IN
USE UPPER CASE
S
T
A
R
. T
SPA CE
WOI"67
40 5 70
40571
40572
40573
40574
40575
40576
40577
40600
40601
40602
40603
40604
40605
Lf0606
40607
40610
40611
406.12
40613
4·0614
40615
40616
40617
[.0620
40621
31
32
. 15
54
32
15
22
11
11
61
61
61
61
11
11
55
51
35
40635
40621
32000
32000
40621
32000
00033
00000
00000
00000
00000
00000
00000
40631
40 2 52
40636
40252
4043 '1
40564
40636
40627
40630
40134
40155
40426
40426
40635
31000
00003
32000
40576
41
61
61
. 11
55
51
35
406 35
00000
00000
40632
40627
40252
40437
40573
40426
40426
LfO 6 3 5
00003
32000
40606 -
if!
61
11
55
51
35
40635
00000
Lf0632
40630
40252
40437
40603
40426
L~O 635
00003
32000
40615
Lf 5
00000
40637
L.~ 0 622
75
42
2 'fO 0 0
00000
40625
40500
11
45
4040 '+
00000
40405
'+057 J.
40572
40573
40574
40575
LfO 5 7 6
!
L.fO5 7 7
40600
4060J.
406 02
406 03
.4 0604
4060'5 .
40606
4 0607
40610
40611
40612
40613
4 06J.4
40615
Lf0616
40617
406 20
40621
40622
40623
406 2 4
40625
40626
40627
40630
40631
Lf 0 623
40633
40634
40635
40636
40637
U
COMMENTS
V
40563
00017
SET WORKING
ADDRESS
SET MIRROR
ADDRESS
SET LOCATION
PICK WORKING WORD
PICK MIRROR WOHD
CARRIAGE RETURN
UPPE R CASE
SPACE
SPACE
SET INDEX OF 4
D1 GIT MASK TO Q
pr-< IN T
THE
LOCA T I ON
SPACE
SPACE
SET INDEX TO 11
PRINT
THE
WORKING
WORD
SPACE
SET INDEX TO 11
PRIN T
THE
IVi IRROR ·
WORD
JU MP TO PATCH
REPEAT SE T UP Ar H. I·:
TEST CORE INS Tf~ Ul T lui
LOCATION COU NT ER
CONSTANT
CONSTANT
r
L I\1
v .
L~0624
L~0632
O'ORM It
leeport No.
ML MD 1
,
Lf0625
40626
'fO 6 2 7
40"630
40631
'f0632
40633
40634
40635
40636
40631
00004
00013
SET ERROR HU GGEI<
SUCCESS Exli
vJORK I NG WORD FOF, P i~ 1 h
MIRR9R WORD FO r~ p ,. ,
OP
EXf:C.
L~61
46154
461 55
46156
461 57
461 60
46161
4616 2
461 63
1 1
00000
OOUG
OOLI;J5
00121
0024- 1
00240
00106
00000
001 36
00236
00 1 36
00 106
00106
00000
0043 3
00232
00170
n77
00167
00144
161
J]OOO
00240
0.) 132
00111
00U03
:31000
00236
31000
00133
00106
00 105
a 0 a 1 -(
3 2000
00170
0777 7
00256
00144
00161
000:;4
00255
00144
00114
::11
15
47
16
44
Lf 5
16
15
00121
4
00144
./7 7"1"1
rl"l77
if
1 -(
20
11
001 f3
00144
001 i fS
00 1 Lf6
0014 -(
00150
00 151
00152
00133
00144
00000
1
00 167
001 Lf if
07777
1
00256
00144
07777
0000 1
002:-)5
00144
4· .,
L
~)l
0.0000
0 0 2 :j6
002~4
00255
00256
37 . 00166
1 1 0025 Lf
o 1 00100
-t6 00101
3~
:.,)
001j 3
00154
00 1 55
00156
00157
15
16
if ~
5S
13
47
,
f
-/1
72
-/3
52
001 L,2
00232
00143
00254
COI·lI'IEIH S
SET Fl
46102
OCI01
00 100
00261
00103
00 151
00254
11
46
11
21
,
V
46101
00000
3 01 60
4610'+
100
0 0100
00100
5:',)
OO14 ~
-
U
11
11
51
21
15
00137
00140
00141
I
lfeport No.
ML MD 2
STORAGE
IP-lge
31000
32000
00256
0025 if
0015'+
00100
00 101
00254
00254 .
00254
32000
f)IWGI~AM
TO CORE
lIT 1
HOVE CONTIW L ItJOI..(D
ViOrW H)I ~ MUVE
;:,IT TFUINSt-1 I T
CUI~I~ ENT ItJ OI~ u TO lJU Ff- E I~ 1
bUM P CON STAN T Tv l1 UFF U< 2
CON Ti';: OL j·1 ASK
l TI UI~ H () u I i= I C h T I U, J
S ET A CTIO N
SHIFT (Ur~ Rt NT
C(;NHWL WOR[)
UP - U-V fvl ASK TU U
TO ACTION LO OP
OP - U -V 1'1ASK TO 0
tiU1'1 P CONT r~ O L vJOrw
ADD I~ ODULO 10000
\"J UR D OJ\! I'JEW COI\JTFW L
r-< L S TOI~ L ((J lnIW L ~'/UI , [)
I,ll I N 1 1(; II
COl\) I 1 NU [
U -V r'lA;:"
CH IAN G E TO
TU MOVE
Ij U fvl P CONSTAIH
CONTI~ O L I'IASK
St: T F or~ U AlA);, tSS UN L Y
,
TO /vI U V t:
DUlv1f...,Y JU f'-IP
U ADVANCL ANJ TA LL Y TLST WORD
CHANGE TO Vr
TO MOVE
UP - U - V t-IASK
01 ST
LJUi"'l P CO NT I NUE
S ET v A(jVI~NCE ON L Y
TO MOVE.
I,R ITH MCTIC
CONSTANTS
MASK, . TO Q
U- V IWRD
Ll Uj\1P UV
ADD f'-' OV t: 10 000 01< 4000 0
TO AR I TH~1ET I (
MU VE T O NEW L. CJCAT I O l~
,~DD tvlOD UlO 10000
~'1O VE NEXT WORD
"
viO RlJ TIMES 2 ::,CA l ED 34 - 1
rW[l SCA L ED 1 l:,uUA L ;;, .:.' I SCi'\LED 3 4
12 SCA L. cD 34 lU UAL;;, WU i-.(U
\'/Ol-. ' If aSRembly is wanted combine
with 9.
PAKaoh4l2
MJl ont
Ta-pe with ~bo11c nro~am is
used up, a "BREAK" is found. Put next
symbolic tane on TIn and start.
MJ1 offt A "'BREAK'" card is · reati. Put
more imput cards in reader, ~cle Bull
once and start.
REMARKS s Should Bull mispick .a read eard, start allover. Should
Bull mispick a punch card, resume ocrmr>utation at
04660. All card.s excI'J'Pt the first 6 will be rl'!"uncned.
This procedure good orlly if lese than 120 cal"ds have
been punched so far.
'
9.
Recheck choice for direct ar ind:tl"ect assl'!mbly.
is wanted, set MJ3 now, and r~set PAK to 60002.
If change
10. Direct rum Start
Indirect '!'Unt Put "Assembly Oontrol Oard t( in reader, do not
cycle Bull. Ascertain that !UU is rewound/and start.
2
PAK=60121
Stops:
A'arm nrtnt. Look at tynewrtter ~rtnt-out.
Refer to list ~r aJarm nrints bP.'~ and
deoide vnat to do. Alarm nrint with tap.w~rd
"asse",b lt
Jndioateo 0'1009694'", end (11'
a9gembJy. To execute ftret tltIJeambl~d nrosrram,
start. Pr~gra~s 2, 3, 4, of this assembly
can be started at 00011, 00012, !'m13 respeotively. If' anothor assembly \s wanted,
combine with 110
11. Put tane with tranalation(s) or. TU3,
p,o
an~ther
tane on TU~o then
to C).
B. List of Alarm Rrints.
Each &1 arm print e<"'nnists of & 6-eharacter ta~ord fo" 01,leO by
the contents of A and Q. The C01m)l)ter stops wl th PAK:=6112J. To
resume computation, start.
An expJanatiC'n of tho alarm prints fo'lO\o1B, enee1.f1ed by the
different tagwords nrlnted.
"seq no" Occurs on card input only.
Fault: The last card read haa a sequence number not
larger than the previrua ono. ~ and q hoJd th~ new
and old sequence numbers in excess '3 ..
Remedy 1: If proner card sequence nop.~ not ~Attor, start.
Remedy 2: Get deck of c~rns in t~cner ~rner And go back
to 3 and rewind TU3. If nreviC'uB translations are
alrea<'ly recorded on TU3, a ne\l tape should be taken.
0ccurs duri.nr. tranRlation only.
Faulti A parity error 1.s fo,md while
A=l.
real1~
nrr TU2 or
TUl.
Remedy: Determine from conso]e which tane unit falled.
Try another tape or another tape unit.
" lenvth"
Fault: The length of the pro~am bein~ tran91~~ed
dras not agree with the sum of the parameters Ni & H?
A contaJns the difference between actual 'ength and HI
... 14:2, Q contains the actual lensrth, both in octal.
Remedy: Start correct parameters or program later.
"lim! til
Fault: The symbo11.c propram contatna more than 245
different location symbols. The 245 th symbol is in
oe11 (')652; t 1. t may be :round. also fl'otn the J ast carda
read.
Procedure: Go off the computer Redllce nutnber of
symboJs in nr('lF!raJn.
&
"trn tp"
A=l.
Fau1t: A parity error il3 founn whi1e reading translated program from TU3 during assembly.
Remedy: Repeat assemb1y \lith anoth~r bias setting or
with tape on an~ther tape unit.
"ass tp"
A=l
Faul t: A parity error is f'ound whi J e read1.np back the
assembled program from TU4 for verifying.
Remedy: Try another bias, another tape, or another tape
un! t for TU4. If MJ3 is off, start. Assembly is
repeated. If MJ3 is on, ~o to 11.
A=5
Fau1tl Assembled program was recoroed incorrectly on TU4.
Remedy 1 Start.! new recording viII be attempted. Do
not ~r.e tape or tape unit. Chanp-e of bias setting
is ~ml:8s.ble.
Itexcess~
c.
Fault: The program to be sMemb1ed, i.nclud1.ng subroutines, exceeds core memory. There are two cases:
A=7200: The last word of the complete program
will have an andress grellter than 07200.
A=!777 The temporary region reql1irer by the
program exceeds ~ore capacity.
Remedy: Repeat trsnqlation or assembly with lower ITA
or IAA. Do not continue operation , because as~embly
routine wiJl be clobbered.
Format~assembly
control card"
Only field I is used, fie~ds II and III are inroored. Field I is
,again rlivided into 6 smaller fields, 6 columns each, which must contain
the foll owinp inforMatton.:
FieiLci
Columas
:Contents
]l
1-6
2
7-12
'3
l3-1S
new name for program to be assembled.
(program tall)
initial assembly address (IAA) in octal, up
to 5 octal digits. Anoress may be anywhere
in the field.
name of first pro~am to be assembled.
4
5
6
19-24
25-30
31-36
D.
rams.
of other pro",..,.. to be aS8eTf'lbJed
together with the first one. Must be left
blank if not used.
IncorOQration of SUbrQutinee.
All subroutines to be used by a symbolic pro~am mlst be in etandard
USE-format, i.e.,
a. They must be stored on the drum.
b. !hey must rave the 5 parameters, N1,N"b ~, P, R, stored
directly in front of themselves.
o. They must be coded relative to 01000.
d. The normal exit quat be two linea later than the entry
liM.
e. The subroutine .nat be se'f-cont~ined.
4
,
In the symbolic pl·ogram a subroutine is referenced by its name or
symbcl. The translatirn will repJace it b,y an octal symbol, a number
between 30400 and 30777. A ~ubrout1ne referencing another one will do
so by using this octal symbol.
For each subroutine we have now 3 items:
1. Name or symbol, to be stored in DS-region
2. .Octal symbol, to be stored in DA~reglon
3. Drum location, to be stored in nt-region
How to put these into the Trans-Use-l routine may be best explained Qy an example. Assume we have the following 4 subroutines.
Name
Drum Location
SSl
SS2
SS3
SS4
40200
43000
40500
40600
Highest Reference
SSl
SS2
SS3
SS4
+ :3
Cells to be
reserved for octal
4
+ 11
+ 2
12
3
5
+4
The number of cells in the last. column is determined Qy the
number of controle of thedsubroutine. It mllst be at ]Asst 3, because
the normal exit is the:3 r line always. The regions DS, DL and DL
have the drum addresses 61756, 62045, and 60210 resuectively. The
cells to be fllJed for our example ar~ ~p'erefore:
Address
Contents
remarks
6t
61756
61757
617(;1:)
61761
00
00
00
00
0000656504
0000656505
0000656506
0000656507
name of 1 subroutine, SSI
SS2
(00 )
SS3
SS4
62045
62046
62047
62050
62051
00
00
00
00
00
0000030400
0000030404
0000030420
0000030423
0000030430
Ootal symbol of SSl
60210
60211
60212
60213
00 00OOO~.o200
00 0000043000
00 000OO4Cl500
00 0000040600
••
SS1.
ss~ (DA )
h
ss'+
" symbol
of future subr.
Octal
I.
II
} Loeations of subroutine. in
library
(DL)
Note thnt the next free octal. symbol must be filled in the DAregion. Up to 49 subroutines can be handled.
28 Janual'7 1957
USEful Note I 9
SUBJECT s APL Floating P'o int to Stated Point Conversion Subroutine
This subroutine converts a decimal floating point number in
excess 3 form in two 1103A words to a stated point !.lumber in excess .3
form in two 1l0,3A worde.
'
The format of the decimal floating point number 1s as followsl
First 1l0lA word
~~~~,~
Seoond 1l0lA word
M6
l~ 1]:!!
al
02
where '
&.
the sign of the mantissa is represented by the symbol
01) if positive,
the sign of the mantissa is represented by the symbol
, -(octal 02) if negative,
the eight digit mantissa is e~ to or greater than
0.1 but less then 1.0,
the sign of the characteristio is represented by the
symbol (ootal 63) if positive, and
the sign of the 'eharactertstic is represented by the
symbol- (ootal 02') i t negative.
~(octal
b.
o.
d.
e.
+
,
This subro,u tine will convert to stated point nwihers only those
floating point l'lumbers in whioh 01 - O. If 01 " 0, the floating point
number is transi'erre'd to the output without oonversion. When conversion
occurs the format of the stated point number 1s as follows:
Decimal
Characteristic
First n03A
Word
,
.
Seoond 1l03A
\vord
0
0 0
e
0' 0
0,
0
0
0
0
A .0 0 0 0
0
0
0
l\~~
-6
~.O
0 0 0
0
0
l~ ' ~ l13
-s
~.O
0
0
o •
0 Ml ~ M31\ ~
-4
~.O
0
0
0
1\ Hz M) 1\ ~
-3
~.O
0 0
-2
Q.O 0
...1
~.O
-9
~
-8
~ .0
-7
0
.•0 0 0
(
0
0
l1.
11. M2
~~M3
a~l1. ~ ~
\
~
1\ }~
-
1\
-
M6
-
' ~M3tt~H6a,
M3
1\ Ms M6 1i Me
l\Ms~M7M80
~~~M80 0
'"
Page 2
Decimal
Cl1aracteristio
First 1103A
Word ·
-
.
S.soon'! Ut \.3A
... 1- - .W'lrd
........_.._._. .......
+1
A 11
+2
A ~~
+3
~
+4
C. ~ ~. M,3 \ ,. '
+5
Al1.~~\~
.,,6
Q.l1.~l)\u,
M6 •
+7
f\l1.~~~Ms
M6 J~7 •
+8
Q' ~ ~ . lj ~ ~
M6
-~ lj \
_M.3 ~
l\ M2 ~1.3
.Q '\ ~ ~
+9
-\
Ii ~
~ }J.6 117 Ma '1 ';) , 0
M5 M6 M7 M8 C 0
~ M6 M7 Ma 0 0
~ M6 M7 118 0
o·
Ha 0
"
M7 Ha 0, O'
.M6 M7
Ma 0
0
0
0
~~
•
l1s
0.
M6 M7
• 0
where
a. the sign . or the number is repres~mted by t li'1e symbol
t\(octal 01) if positive,
.,.
b. the sign at the' number is represented bY' t :be symbol
- (octal 02) i f negative. and
o. the bar over the last digit indicates that the numbelr
NlB been rounded.
.
,
A general flow . chart and the coding (not maohine ohecked)
APt format is enclosed.
:S:n the
.
Page
Is
~.
3
01
NO
YES
Transfer floating
point number
tG output
No
write
Sign
Write
Decimal
Is oharaoteristio
positive or negative?
Write
Sign
Wi"ite
Sign
Write
to
Deoimal
6
~
Di ts
Write
Decimal.
write
02'
Zeroa
Write
10- 02
Di ita-
Round
Tl'ansier stated
point number
to output
•
Page
TOO
00
F
F
excess 3
TOl
00
F
F
point input
T02
00
F
F
st~ted
TO)
00
F
F
POOl
LQ
UOOl
31006
2
QT
TOl
A
3
EJ
U002
P007
4
TP
TOO
T02
5'
TP
TOl
T03
6
MJ
Z
Exit
7
TP
UOO3-
Q
8
QT
TOl
UOJ1
9
QS
UOl3-
TOl
10
LQ
UOOl
310tl!:
1
QT
uo14
uo15
2'
TP
uo04
Q.
J
QS
U013
uo14
4
RS
uo14
UOll
5
TP
uo05
~
6
ST
uo14
u016 .
7
TP
U013
U017
8
TP
U013
U018
9
TP
. uo14
20
ZJ
1
4
£lo~ting
point
output
,
°1 to A
?
Is Cl - 01.
,
~
Floating
po~t
number to output
~
Store oharaoteristic
.Place zeros in char. part of floating pt. no.
~
l
Store sign of
characteristic
Store C2
Subtract excess 3 from 02
~I
9 - 02
Clear storage
A
°2 to A
P021
P041
Is 02 • 01
ST
UOOO
U019
2
TP
U015
A
°2 -1
Is cluu-. pos.? .
3
EJ
u006
P034
~
Pag~
:ro24
RJ
P056
P047
Write sign
5
RJ
ro62'
P060
W'r1te point
6
RJ
P059
P057
7
IJ
0019
P026
8
RJ
P056
P041
9
IJ
0016
P028
30
RJ
PO 76
JI069
1
TP
, UOll7
T02'
2
TP
0016
TO)
3
UJ
Z
lllx1t
4
RJ
P056
P047
5
RJ
P056
~7
6
IJ
0019
PO)S
7
RJ
P06z
P060
Write point
8
RJ
ro56
P047
} write 10 - ~
9
IJ
U016
POJ8
40
v~
Z
PO)l
1
TP
.u005
0016
Set index
~
RJ
ro56
Write sign
)
RJ
ro62:
ro47
P060
.write point
h
RJ
ro56
P041
Write 10
s:
IJ
0016
6
MJ
Z
ro44
roll
7
TP
0001
Q
Mask to Q
8
RJ
ro68
f(6)
8h1tt I18W word
9
SP
'1'00
,0
000.4
SA.
'rol.
Z
} write C2 Zero.
} wri~ 10 - ~ d1g1ta
Round
?stated point mmf>er
to output
Wdte sign
}write~ digita
}
(
digits
~t.
5
•
PEtgO 6
P051
1.A
A
00006
2
LT
Z
TOO
,3
TP
A
TOl
4
QT
TOl
A
Re.ld digit
5
AT
U018
UOl8
Wr::. te digit
6
HJ
Z
F
7
RJ
P068
p06.3
Sh:'_ft ne't-l word
8
RA
UOl8
UOll
Write zero
9
HJ
Z
F
60
RJ
P068
P06.3
Shii't new word
1
RA.
U018
U007
W:rite point
2
HJ
Z
F
3
SP
U011
00044
4
SA
U018
Z
5
LA
A
00006
6
LT
Z
U011
7
TP
A
' U018
8
l'1J
Z
F
9
TP
TOO
A
70
TJ
U008
P078
1
TP
UOOO
U019
Set rounding digit
Z
TP
U012
uo15
Set j.ndex
.3
TP
U009
u016
Set 9 tester ,
4
TP
U001
Q
llisk to Q
5
ctr
U018
A
Digit t,,) A
6
EJ
u016
PO 79
Is digit ., 91
7
RA
UOl8
U019
Add one
Shtft old word
'Shift new ''lord
~
J,. rounding
required?
•
•
PJ.ge 7
HJ
Z
F
9
QS .
UOD
U010
l-hke
80
LQ
Q
00006
Shift mask
1
LA
U019
00006
Shift 9 tester
2
LA.
U016
00006
Shift roundinG digit
3
IJ
u015
PO 75
Repea.t 5 more times
4
QT
U017
A
Dieit to A
5
EJ
U009
P088
Is digit""' 9'Z'
6
RA
U017
UOOO
Add one
7
HJ
Z
P078
8
QS
UOD
U017
11:1.ke 9 - 0
9
Ri\.
U017
U010
Add one -to next digit
90
11J
Z
P078
PO '1 8
9 - 0
•
.... ...
~
"
PaGe 8
UOOO
00
Z
00001
Hodifier
UOOl
00
Z
00077
11ask
U002
00
Z
OOJOO :
Excess J zero
UOOJ
00
00007
77777
Hwk
uo04
00
00007
77700
Ihsk
U005
00
z
00011
Decimal 9
uo06
00
00006
30000
Excoss 3, +
UOO?
00
z
00022
Excess 3, •
uoa8
10
Z
Z
Escess 3, 5
ua09
00
z
00014
Excess 3, 9
U010
00
Z
00100
Carry
UOll
00
Z
00003
Excess 3
U012
00
Z
00005
Index
UOD
Z
UO]l~
Z
u015
z
u016
Z
U017
Z
u018
z
U019
Z
Zero
Temps
/
.
,
'.;
USEful lote 110
SUBJECT:
Specifications of D.T .M.B. ~ibus Tape
Handling Routine for the Univac I Computer •
.COMTRIBrnORs
i,
10 April 1957
RR
7 - - '-
-
/
"
'"', '
,"
.i. i
'
.'
Page l1umber
.
il.;, '
' .,
"
•
•
"
I
...
''''''.
\.'
"
"
•
.Do·scr~ptlon....,::-""'-. -;--..;..,.
.
..--........ ~~- ......,. . . -""·~":,,,,,,,-'''''''---':'''' ..... _o.-..,.-"--..-:.- --....:-..,.........---~
COIl~Cl"Ql
3,,",
4
... _..."._~ . _......-.~__ ...: __ ,.......,.1'.,.; ... _~._ . _ _ .,.,.~_ ...... _ _ _ _ _ ... _ _ _ _ _ _ _ ;.,;;_~_ _ ... - - - - - - - - - . . - .
':Opcrat1t\g ·lnc't>;;uc·,,1ons . .... .;.:-~;;..~::.-.~.;;.-;.--.-~-~--..;. ...... ------;,.--------
...:.--...... . .. .,. :...---;. . --.----"""-~--------.---,.,
':Jt01"\111 ......, ..,..~~ ..... ---.
-.-~---;"
. ' ...+-~.-,-"
.
'
·~P~{n.'~ outs· l\.eqllil'i!1Z· No .Actj.on -'-..,;---..:....-:-.--"':~--- ...----.,..---------J;l,:iJ:ii~ou:~s R.(~qnlr:!.li, g
,UOG
of' OptiOt),9l
Tape
Ae'hi on ,...~: .....~_. ___ ... ___ .~_._.» __ .,;._.. ___.~n_ ..... ____ ~_
Ou.'bpu·Jj·,· 'l',']'pe II ~,- ....-~------.-,-;..--,"-...:....----- ... - -
5
,,~
6
7
8
10
Function:;J : ' .
..
Copy \-Jit.h01Jt Corroc1;1on8 ...~-----.-----~.- .•- - -... ------.... --:-----yopy ',Hith Cot'I'Oct:toHn - ... --,... ~:~- •. -------~.~--- •. ---,.,~- ...-~--.----Compare I!'ol'liJard
~_:_-:--~ ~-~.--~----.~-----... ', Colupa.re BacJ c\.!~r(l .....__ ._ . .~_- .... _ .... ._.... __ ":"---.....- .... - ... --"'"-tI~- -wn~----:----.-"1 i J'). ,F"'Ol.. t·TD,r
' d - - -••.~-. - ....-:""" ...... - ....-~ ....... ------....
"
'
o:C
--..... """'---- - -..-~,. ... ---~-----,....
'
S'1:.: :i. p "Bo..(!J~'tln x~ d __. .... _'-_,, ~_Il .•- -........... - ........ - ..
-a....-.. . . ..:'- --------..
--., . . -----.7 _ _ -
.... _
••_
• •• _ _ _ _
••
•• - - - - ••
...
W
"!'-----..
R01Jind TUp03 ~--.--'.,~-~.--'----...:---~.-':"'--~-."----- ••- -•• - ...- - -•• - - Noroory Claar p I'o:l.ticJ. RfilD.d '.. _~ .• __ - - ...-_-.•• --.~----------_:_--~
s·t'o p · _ ... _"' ________ "~~_.. . . . ."._ .......'_ ......... ,. . . . ____ .. ~,.. _:::.......... - ..... - . . W;.-foe.-- - -.. .. - - - - -..... - - -....
12
12
1~.
14
M.
14
14
15
15
Slr.lp ,- Uo 01)(;;)rnt:to:::l -" .•--~-.--~.-~-- ..- .~~~-~ •••- .--•• -------------- 15
Sv.mplc _________ ...". . . . _ .... _.___ ...... _,.,. .. ... ____ ..,. __
16
P:drri:. ou·~ or Block Ur:tto .....-----.. --".~.--.,.-.--------_:---:--- 16
Seal.~c}) ~ Then Copy \,f:i"t,h Corrections '"--." .... - --... - -.. ---------.. --... 17
Copy - Ho Cor.r.ectior.t::3, l;.lh1.1e Senrc!:l:i.ug •. - -.....--..----------:.. 18
Po Co(?cli t ____ . . .
19
~_
~· II. S
v
_,.~
n _ ...... _ . _ _ _ _ _ _ _ - - - ... - - - - - -
--._oJioo"l"" _ _ ...""'_ . '•• • _ _ ..,.. _ _ _ _ _ _ .... _ _ .... _ , , _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Cop~ by }lords I.:.-~.- ...-.--•..- •• -.-:_-------------.--\-lord Cha ngor .. ---'":':.-"';"... ; ... - ..'---.. - •..;.-~.... ., .. -~.- ... -'----":'-.•------------
20
22
V(~rifv
tI
---....... - .... --~ ..........- ...... -.".--.. . . . . . . ---...,.,...,.~ ..... ~"'.--- ....----..;~ ....---..--.........
2.4.
EXI1mp10 of CO\ltrol To.pe .,...--•.---.. - .... -.---•• - ~.---~---- •.----------
27
. Line HOl'go ....
"
.
t..,PPol'ldbc
'r
r'
,;
')
,~
'l"
-\\
"
'\
...
~~
~I..'
->.
,
P~§.9RIPTIO!l
Tho D.T.11.t3. OrrJl1.bus will perform 18 independent functions
from. control \10rds manuo~ly 't:tpad at. :thE) computer, Or previously prepared
OIl 11' control tape. Some of
. the more ' fr(lquelltly u80d functions are!
)"
.
.
,
CORRECT SIIiGLE 'OIt C.ONSECUTIVE WORDS IN BLOCKS
COpy BLOCKS
NE.t10RY CLEAR AND lNI'J.'IA L READ
S]!1>.RCH BLOCKS, THEN COpy
SKIP BLOCKS - FORWt\RD OR BACKHAR1)
RE~tlND
HORD SEARCIl
TllPES
SAMPLE BLOCKS OR B1.0CKg'l'TES
COpy BLOCKS
SELECT AND
VERIFY TWO UNITYPEDTAPES
HIGH
Hlt~R(lTI:
~PEED.
~mILE
SEARCllHlG
DATA BY WanDS
P1UNTBR
'COr~DIT
I
DIGIT CHANGE BY EXTRACTION PATT1ERN
STOr
li'unct1.ons lr!hich produce t':olcctec1 outpu'~ J such ' a~~ dtscrGlpanc:ies in
oomparison or sampled Uo.ts. ~ uay be printed ' 0l1. the SupGlrvisory Contl'ol
Printer or \.!ri.tten on ·l;{·~pe
Infonno.tion, i f! Hr:Uit(:')l1, on tape t io prepared
f01' print.ing on the High Speed P1~intBr v.sin(~ I). HOllJ..ory ,Dump board (10 \. . ords
across \.]j th vlord spacing) .
0 '
Muny fUJ;lc-tiollS con be complQ'~ely doacrilled by a. o:tn~lG control vtord
of 12digHs. 'I'he first character
th0 control word specifies the
" function theOinnlbus r ou:tiIlG i$ t o perf()tra • . The intorpreta'~ion of the •
relnaining l Ldigits in. dopendcn·lj upon the f Ullction performed. - Hher evor
, pOf.lsible thoi'or-l!llitofth,e r,e(aaining 11 d:i. rj""·.ts nas beOk) st.a ndardizud.
'. " fpa s tandard ~ontrol .\101'd f'or'lIw'c, :lu . UE: foll(l'\'; s: .':'
in
,
I
"
' digit
1
3
,4
"
..
5
6
}'
7
8
!~
.I,
9
Ji
,'Cort-t:col fune'G ion
Input ' Sot'vl) numbel'
f,
'. Output. S(lrv'o l'ltl.ml)or
Supo:rvisory Cbl'l:trol 0:\' Borvo n1.lmbcj,~ , foI.' discropD.l:!cies '
during ~ompar:j f30n
SpecificQ,tiol1 for re ~J ind of' irq')ut servo
.; Speciflc·a.ti6n for rqt'l i nC! of Ol.l'liput, sorvo '
Uri 1:.e ' rlens ity f or outpu'G tiei' vcj
Optional comparil3on of inpu'li 'With output tape ( combine
... Hith ctl-glt, 4)
.r.... 12 N1.uub0X' of blocks
j
!
.. )
l
' Som~ functtOl'Hi require additional infon )}.ltion to bo supplied in
order topeY'form t.h('l O'('J€l'trLiol1" Thoa.ddHiE>l"Vll informat ion is in tho
na-tiur:e of do Bub-.runct:tcn r:md/or a (1uo,l'ltity. l"unctlons and nub ..,funotions
are il'lterpl~e ted l'y tho (llnnibus TOU~ i:lllC "Lo porfo:rm cGl'tnin operations t but
quantit.ies U.re information snpplietl as uox'd Stlbstitutions o
r.1;i' .
"
eg .
Function
Su.b-iimction ,
,
Quantity
Sllb-:ful'lotioll
"I
Copy \-l:1. th corroctions
Block tm<1 'fOrd rlUlllbor of eorrectimh
(\~o:\."d to, be 8u'bstHu'G0d for existinG word)
l!:nd of co!" recticJnr)
.
CONTROL'
.',
I
•
1. M8DU::U. Control "Jol'ds 11I1, ha t,yp-cd ID:luually ~t the keyboard
after '~he routino pr1ntr:l CO 'fROL lID 0 ' If 8 funotion l.'equiros c.ddi tiorwl
information, apPt9priato 1r1orda vJJ:ll bfl printod on the S.C. Pr:l.nter
bofore o.ny roqueiJt, fo:,:, €I. type i l l ;I.;:; Illude., At ',ho conclufJion of any
function except thf.l Ini t.inl Ho ),<,1 !),nd S;;'op func~jiop.e p the routille \-lill
ask for anoth0r CONTROL WD.
Cont).'ol '.rape. Contl"ol . 1,Jorc1u mny bo proviour.ly pTepo.red on e.
tape in ths ordor of 'i; oir do:):l.l'orl c:r.:oeui;ion. 'fhr. )~8t va.lid. con~l'ol
function 011 0 Con.trol Tape I1lU:)1:. he €lithe:).' nu 111itinl Read or a S·~op
function. The Cont.rol 'fapo ffiJ.'l~i b(; mm.Hl,t!)d on Ow.ly Ulnsr:R\TO exc'Jpt
mirrus ( •. ). Sot tho CO!1cll:Uoll3,l 'rronl3fer Bl'IJvJ.ttJo:i.nt C01"l'Nlpond:l.ne to
tho Control Ta.pe UNISERVOm1.mlJ~r. CloDr 0, ond ini nt. rondy light :l.f
set, p a.nd actua'l'io the c·i;o.rt b£ll' ~ '1'he rov.tino Hill otop on the Bx'cokpoint.
set." FORC)!: rrRArIGFER. on 't he B:reDlrpoint, will CV,U1;10 tho routine to print
TAPE COH1'ROL and proce~:J(J. t.o l"1'}nd the Contl'ol Tape c.nd pE SET BKPT.
'.
50
The computc).~ "Till stop I.d'tor p:dnt:lnt( cf.lch COl1.t:coJ. \-lord o.bot.\t '(,0 be
processod. If' a FORCE 'XllimSFEll 0),1 D~(p'r . 5. is pe formed, 'the routine
\IEl print out 'TIPE lnm HD ~H:ld I'; ct U) , I), type :1.1.10 'l'ype in a control "
vord to replaco the l act control wor'd Ilriuted. BKP'l'. 5 cnn.not bo U f, '
to ch~ge an luCQrr0ct Dub-con"trQl,j\mctiouo
> .
'
"
0
• '''.
OPEHATING INSTRUCTIONS
~
.. _ _ _ _ _ .. •....,..._ _ .... -.o:"............
~
Omnibus Instru.ctiofl Tnpe ... Any DOI'VO, if UO:1.hl': D'l'tm 'S()rvi~e Houtino
Locator Hhich o.utorilatjca1~.y ch~mBE ; G o.~ l O~l'VQ illS". :l.ns t.J."L1ctio1l3
1;0 "N' ::.;ervo nUlllbz.r.
'l'Hl!: nHl'li\L TAPl! nIsI.ECTOH. DUTTON HuST ,
\
Rh11AIN m':'X"TO 'i'Hl~ SERVICE! ii.OUTINE 'rllPC NUHHlm AT ALL TIUES.
The fol101.ril'lg conVcol i{Ol~cb "J:11J. c.':1.\:we ·U.loS€lrvlco '~lape to be
)'sad t.o · loco.te ·i:,.he: ne Cef:1Scu'y ::,ubl:'c·uti:i.no(;: H, K r L, Q, ~ and T.{.
,e
/\t 'th(l conclusion of' tbG flUbl'outi r ,0 C, m~ a c;loar C operation,
the Omn:tbus r.out ·- ne i a !'0nd b:1c1:: j nto .the memory .
J'he SGrvicG Rout.i110 'rI.lIJ(} h: rC\-IDurii. 'l-l:1,t.hout interloclc af' t~~r (my
r0ading of ·the OrtluHms roni-,ino or it:3 Elltt.enlO.11y f..tored ~ub
routines.
,r
f,llook 'Subdiv~.dcr But/ton'" If t.upo output. ,l e Ul:1ud ( 0, Yll n zero dicit
·typed (;.'.6 digj..t fmU' of a coil't.r.: ll l/oI'd) G80 notofl 0);1 l'np0 U
No print. out. to j.not.rHct the oporoto:t of tbJs coltdition is
made " ,The H.. ~: . 1'. COd3 1J:Li:. rout,5re (II ) \Jill inotl'lJ.c~~ tho OP01"HGOr
to W3lG tho c.ppropl':lat.e ::Hodt Subd:Jv:idc:: r Butto!? ~fJ.d Shepp
0
Breakpoin·ts - A IeH brc:lkpoln.t.s lWy b(~ t 1 sed Cl1.1rJ.:l:lg the pr()oons:ing of
cortain control f'l1llCt:1.0l'l;;:.
BKP'l' :; ~ I3KPT 6, L~nd Corrtro:t ~ra90 nLUDt-cr ~ seG. Control T8_P(;~
BI.'XXlCX
K
Doth
N~UCH6WORD
Doth
OO~WX7M
I.
Both
V
Both
MRClb.BLl($nxx
' fSELECT6s.66t.
1').1llllbElr
1( Q
Ee"ul t ,of
" ' word '
1.10-\;
V,
,forcing BKPT a to select
.'
,"
1\
i1
'
Rotult of forcing BJ\PT ;;:~ t~~d.va~~a wortl ' v
. }~.esul t of ~ot ,f orcing l~~ , PTf,Id~JI~o;;~,', (Ivane. ~. V
word ' " .
, ~I I ht, ,;;V \
R~8ul t
of
for~ing tlt<:P;t
'0 t~ ' I»)."itlt la~t
, printE.l~ ",
. . .ii,. ,
'
mora tlltlll ,47 , cont3ei~ut1'Ve sUbcontrol
wordsfortha jo1e>,r d 1j:Changer' are
"
listed, on ,the eo:#trol , tape, t 111l ,
last, su:bcont:rQl wm;~, used vi11· bt't '
i ' -,'
printed andsubsaqUeil1. liJubcontrol,
:, , 'WoI'fla skipped , until the "?/U sub, control ,,,otd , 18 rG:t1chi8d
' Print·ad after 'B KPT9 tle forced to ami t '
. eh,ang:l.llB D. specl~~~ ,\lord
'
, Rosul t of" forcing BKP'l'~ ap.tion for
," controltnpe ", 'i\
.
'
All cont~"'ol, "'0rda' s.r0 ,' print~d ''''hen
op,u 'at1nc: from Tapa;, COl'ltrol Option.
SUDcont I'ol wo:i~ B art\ e not pr1n'l.itld 'il ,
, excopt L1l)c"'Hurge , 6liLH:lontl"()l yords
t
•
i
(I
.
-.~.
,
'7
,
,
V"
" If
::;. ,'
: ", ,
., "
• ::,::.
"
V
, Qutput, yord
> '. ' . ,
Ret:mlt of 61!1tt1ng Up lJkit:> '}.nst,. aftor
BKPT.( .)to ,om!. to cho~\cG previouslY' ,
,._
I"
1t.ENroVEulm
'
Total, number of bloe.ka morged '
}WfIUlt ,of torelng BicPT 0 to ool.d; vord
J
liliN~ERC~
End of V9r1fy
fOllnd
":
bJ<:NMCODEDIT
L
V
n C'!onto.ins ~.~,':XX blocks 041'
odtt.od cru.tp.,lt
.
'
Word on \'lhich uaarch 1s 1l1fldo ,waf! not
tou.nd on t.aPQ ,
Bloek and word mlllt\)(u' of ,8oarched word
."
MENM.COPYM
MENWJHECIm
W
Doth
tSELECT6NbNJ!~
Both
';Sl'EP/J/::bsf'/V\.
Bc)th
,STEPlSNOW~
Both
#RI0~WORlY.\
, ~oth
INO'l'MlONECi':.6
Tape
LASTITEMUSED
," Manual '
6SKIPPE~
Tape
TAPE~CONTnOL
·U",.
.
v{
,
~I
"
Ii
'
.
•
OMNJ.mrs SUPERVISORY CON'l'ROL PRlHT OUTS ru~QUIRING AC1'10U
AO'l;ion .
,
....
'.type in control word.
Wrong form of con't.rol lJord. t,ype in
replacomont"
'" I
)'\Ulctloll
TyPe of
Control
ALL
l'lv.n.ut.l.l
ALL
Bot.h
l\CONTHpt6Y1m
RE.TEC'J'bMORDL\
Q X
J.1~lllUt:U
DBLK~(\NDL\Hro
L
llanual
'I'YPE.6GONTROL
H
Mo.uucil
CCCOLDggENEW
M....J. "
il.ctuut,!:l
Set block ol,lbdlvld3r listed llnd actuate
J.-
.j
start bur,.
.Mount e. blank on outpu.t servo, previous
tape is 'fullo
8
v
Both
H
Both
Both
SETL',.SCb.N ORML
NT "l\l·LE1.Jb'l'APE
10
t'
,
From forcing transfer on 'B1d.11 follo\ol' 'i~ho control
r
funcUon.
.
. If di C; l.t c ;t!?~.,.gE.Qgt.1£t:_jd~g!L~QLg, to..pO G (6) llnd (t) £11'0 compared "Jord
by word reuding In the backuard direction. The \fords which differ,
t oe;othel' ,,11th tho block and ironi number of each c1 i s crepancy. wn1 be
Ivritten on tape 0].' printed on the Superv:isol'Y Control Print,ar as
Hp8cified by digj.t u.
=0
Pri.nt on S. C.. Printer
\~rHe on t npe ' (u) (u) must. be 1 to 9 or -.
Block 811bdivideI' u
The r digito control tl-.l6 rt::JvJind optiODlJ for thl3J :lnput ( 1'6 ) D.nd
u
u
rt
0
0
(rt) t ap GD ~
r
r.
o
r c 6
r "" 8
Do not r'El\lind t~peB . R (~pooition tape bbbb blo ck t.l
fOrlJard if. comparison I:\.'lS taken pla.ce.
HEn~lnd tape \1ithout interlock .
Roui nd ·tape uith interlock.
I
.I
i~ .
.;
I'
j
.
I.
't
,"
h
.\
~t
1\\
l, "\
.1 ')
;;..
~I
Sub- control \Jlordo
n n x ,. X x x 0 0 0 ' 0 y y
n n
nn
.'
'.
zzzzzzzzzzZZ
Numbel" of ,consocutivo corroct. 16n13
listed under the Sub-coi1trol word
x x x x
y y
~
00 or 01 for
tl
single word
cor1'0ction,, ' ConsocuUvo oar 'actions
muot be wi thin the bloo7c nwnl: or
liGtod.
Block nnmbor
Stux"ting \-IOl'd l1Ul!lber for corx'oetions
End of corr$ctiens.
Ylhr.m usinG the nn dlgitG' t,o Bpocify n con;:30.cutivo list of cor:rect:l.olH3 t
fello\,; t;bo Subcoll~rol \10rU Witll nn QUANTlTIE;S to be Guppliod ite corrections.
The block lmd, Hord l'1umber rtfpl'e:ilan'l; the location of t.he first corroct.ion.
Hhen operntlng ' from IDJ.t!lW.l control, the first old "lord \<1:l11 be printed on
tho ' S. C. Printor, und nn consecutive "input ready'! signals Hill bn act ,
, v.p without printing tho consQClitlvo cild vordo.
NOTE; A1'1 sllbcontrol \OlordlJ must, be listed · 1n [\Ccending ardor byhlock
nW:lbar.
'.
Hhon u; subcontrol irore!, from (l.. ,Control T~tpo spocifled a cOl1(3eCl.ltive (.'
' I ,i st of c( rroCCions and the Illl ,fi€:HD!> dcec1.'ibine , the number ot correotions ,
have been typad incorrectly, tho ron'G:i.ne Jlw.y nt tempt to decode a QUANTITY
us ll. subcontrol Hord /J,nd produce one of h;o kinds of el~rorso
1. ; Adder Alph~
The rcutine htlB a'\'.-Gompt8d t.o odd digits 1 and 2 iio 11 und 12
or ea, Quant:l.ty irlstead or' a. cubcontrol VJo:;:d. Digits 1 o.nd 2 nr(1 added to
' 11 and 12 of a subcontrol Horel to dnttlX'm:1l'le if' on + yy is ~, bOp
Homed.y : Set i31CPT '7
:
, <
~:CICR 000000 Up022'~
Proceed a:3 for CHECK ORDEll Remody.
"
"
.
/0.
'i
"
CHECK OHDt"t1 printed p follo,'!(!)d by a QUAilITITY rather ithHn a
subcont,rol \Jord.
R{!tnEldy: If tho Hard pd ntod out after CHECK ORD1::R is l;lOt a
' 8ubcontrol ' word? 'but 0. 0U1\NTITY ~ Rnd the QUAN'lTl'Y 1s oit.her the 2Hd
con8~cutive correction \lord 1Ililev. nn .16',8 typGd un 00 v or the nn + J.:Jt
cone()cutiV(.! oorrection \I})o1'.o un \oI~U1 10 i:iD thon the number of corrections '!I
the £'0110,,'tn3 lnsertioIlI.3 may be nw.do:
\
S3t DKPT '7
,t
~,
, Type in"a 00\-1 sub control \Tord nrnoDtlCOOOOyy
Hhf.Jl,e yy 1s th0 lOCLttj.o;) of UlO prllrced QUANTITY , un is tho ntI1n0i:'!; of
_corrections to ba IIU.l.de
~ and x)txx if3 the some uloclc nUl\1be:;.~ alii the p.r(::l'TioU8
.
if
_\
subcontrol word.
,
.'
,
'
'\
l!~OnCE TMm:Ji'ER on rntI"'£' 7 to 'Ctl1.1S8 the routiml to use\
tho type ' j,n e.a an inBc::!' (,iOll, ruther thHh tl ;.;'opLl.ceUl~;nt. 0 A HOljd of B-11
' ' Z I s" , may rot be typod as em :to::>0x't:i.on uhcm utdng Bl(,PT 7. See Control
'l'o.pe J3I{P'l' 6 option. "
'\
'\
'~
\\
"
13
'~r
../ .
",
s~,~
C a'l
U :1."
f"
.
~'.
d
s.'1' r 1-)..:.'") l' 0 0 b b b b If1/ '
COMrJiJU~
g
[e] titpEl:3 (01) 0.i1<1 {:;.-») rQo.<.tiXlg i.n the f'or\-nu'd dh"ecMoh
( ubb) blocks. If MY dlf l'oi~oncofj (lOCH!" b ::.' !;\>men t,o.p $ . (t3J.) and ( '2 )
;rocord tbo ..lord fl 0lU t:l!lQ ([31) ~ -I;.h0 blook o.ad llord nUlubot ~ (nd tho
:Ot'(J front tupa (f ')) <.m 'i:,he S'I11"'1'\1' ).f'\llt'Y Con \:, 1'01 Pr:tnt.er. if d~gH
u ... O. If dig:\.. t U.
0 \'11'1 ts t'lio.c:t'Gpo.ncle r:; on tf1PO (lJ.) : ti f 0 lllU::';~
. bo 1. tr) 9 ?l' - . Set Bl\.ick Sl),btl~ Vir.1n:l~ u. Tho r diaHR.1 control the
nrwind 0P·!il.OM for tap;:If) (s1) nml (fh).
, ;(
l'
lit
1
,!
.1
I
'r
1
~
.,
I
r :: 0
r to 6
r ... g
.
j,
Do !J0t l'0Hind t!'lpo .
RC1tJ:i.uC\ . tapo 'ltl:1 thout ilrt.13rlock ..
l1b'W:l.
:l:.r.tp() H:1. l;.b into 1'1 oak.
r
nu
S:..' ~'3 ~!.8 CCN1~ Aru; !"OI\:,/rr~no (mt:opt ·;·, Upt:;·~ ;:)1',) read 'and cQiHpo.rC:d in
t ·he 'l?eJwnrd d:irnctioJi. AIJ. (1.:1;;c1"01)·;l11cJ O[:.1 s.x·o lh:t.ed in a d€lDoend:lr.l2;
ardor ',{i,t,h the firct b10ck 1'0 ' \.1 ill bD.CK'.KI'l··cl e,(l b] oel bbbb t7ll:~d 'tho :l.o.s!:,
l.,lock r.:!ad ns 0001 . . 'rha tape l:i m1!.....:1.9_t_;~~.F,;;:ti.i~t!:£!1~1s!: f or,mr d H' r~aNind
is not.
_
'..
sp~cifiGd .
SK TP 1,i'OHlJAHD
_ _ '~"''' _ _ _ 4f _ _~
'I
li'uOOOOOObb'bb
•
SKIP IPOHYARD [F'] ( r,:lad in ·til!::) fo~·v1D.rG~ dil"p.ctlon ) on "tapa ( s)
(bobb) block8 .
Slap BI'.cnr!lRD
_
....
.....
;1'.
....... '_ - . . -""""._\..,
B
s 0
o '0
0 0 0 b b b b
"
SKIP 1311 crn)1\ RD [B] Crea 1 :i.1'3.
(bbbb)
bl0cl~(3 •
jI.I._
.
HJ~iJnlD
'rAPES HI'l'HOU'r nJ'YERUlClC
.Io. .... """ _ _ _ _ .. ~_.._. ___ ,,__ _.._ _ _ _ _ -......_ .... _ _ _ . _
._
\~hc
bncli.'I;iill·d d:hcctio r~) on
R
s
U 8
B
tapG ( 3)
sua
8
e
B
0
ll·,.~\lIND
[n] thE) tap{i~~ 3~)ccin-~·xl by t:.hr;) d;e~"t::; s . Dig:i.t.:::; (::1) .
1 to 9 0),' - . l\ny l'lUJ.'i'c(Jl4 of tatH~:l IlUY be I" '}\JOULO. \-lit.h
a ~1il:1g.1c cou-;';ro1 \Jord» fLU -;-'ho \J.l1\ f; (;Q di git ' posit:i.O!lO \d th ::)81'0 ~
It io ~lOt n2C0;'jGEH'Y '\;0 t.ypo '~lw BOrVO nnrJbC; l"::; in. tiny . spac:,. 'l, ordo}::
f .nd. <,!(;L'O::; l'U:-~y b ;;) intoTl.;.JCr"0do .
lltU:3t '00
O~
t·
If tapo u hU;J been '.t1rrtton n tI t uny time t~l\ril.)g thlil . ll~;e of' th e
OJMlib-tJ,;; ;cQu:tine ~ tho tt n.t'oon't;l'ol fU~lcHon ui11 omit. th) .r'o"d,nC\1.ng
of ·i..his tn.p'.) eve!! thOU[~;1 called for, '£h1$ safe ~unr(i(~ tho iuf(mn.:l~,ion
on tf~pO u fl'om l'octtivhi ,~ 0. PX'i.n1;ol' ra,op blo(;k II/hieh 1,'ol1la dOf3tr'oy 'tllo ,.
first blode on the I;,o.pc if ull.otfed ~; o l'c\Jind.• . Tho Pd n'l.;ol' Stop is
,!
I-l\lt01:1B.tically · f;uppJ;led '.Jhoi'l n ;'i'l'OP on nn'rIu. nr~l\D control fUnctioil
'
i < €IXr;cutf')d ~ t.llll.l tapo u i $ rovl1\tnc1 ,d .th intJrlocK.
\,
NC)1'g t It:t j,3 novm l'l.CcoBi.iO.ry ·to i'o\'J::"nd th~ c~n·i.:rol tape (if' used)
. or trifiO u!~ '£111s op~ration i t> r)(~ l~f'O}'!lwd (l.tl'\;or,luticully at the cxeout im.l
of 0. ~:iTO:P "or Hl1'IAL t1J'~l\D ft'l.))(;~ ;'l Ol'L
h
il
I'
/1
Ii
U
.
loa 0 0 0 0 000 0 0
•.
Cloar the moOlory to zero if digit a c o. If cUsit a " 0; -leal'
to St.op lnstruct;l.ons lJ:tth the !iddross (,)t l1na numbOl~ inaerted '
in the atop ins-tru.otion~ 0.(7,0
<')00060 90006Q
.
tho
t'
ItH3IDory
~
900999 900999
Ho(;\d one block i'J'OlU Tt\p~ «('!) int.o l'!. '.rhe comp\).tor wi11 'Stop_
Acb.ult.lon or tho (~t6.rt bv.r ,,,:111 caU("EI (1'1) to go to 000-059 4l1.'ld
cOl'rtl'ol· will b€ltra,usfcrl'ad '~O line 0004 The (1.\nnibue H:ol tllpe 9 if m.;ed ~ 'vJill be rewound wi th illterI~cko To.pe
(\1), i~ p'r cviounly opacif:i.nd, \J111 :1:'oce1 V0 a Printer Stop b 0ck and
. b~ rmJound ' with int?:i 'loclt..
'1'110 ,compute:.:- wL-1 be stopped.
be Omn5.buI:'l
rou'tiu9," ls ror.0t to . tho in~ tj.ulconditlon(~ ,lnd the storage for control
:f'
1
t .a pe ~f1d , tapo (\\) a~e cleared.
.
'
,
,
\'
,
Actu~:.\:t,fon u' the 6t('1.~~t bar \"rillsend cOl1trol to 000
.. ',Cloe.. C operatlQn)~
"
r
.
,
(some,
$.!:)
a
.~.
,-
~
"iI-
•
I
•
.
l1'nuual or oontrol ta.peop tion
'~t.ouldbo a $t.op or un InHio_l Hend funct ton.
.
:'"
".
./' ThE: .19.st control ' \Jo);,d 'for
-- --
(j:t thl3l.'
o 0 000 0 0 ·0 0 0 O' 0
. Sr~If'
- nOOT'Tm.'\TTmT
~~---.---~ ...
. ... .
L!
~,
-
'
,. , OmniP~\B '\1:111 porfoI'i'1 a :sk:ipopl"Jrat.lon Ih.ll~i'le D. tapo control option
• '011;1;,/. }t i::1 uO'o d to delcto cont:rol viord::> · :C:C O!U u cor.d~).~ol tape> i.t' c.:)yttlin
.;ftinctic.ins aro nClt ~~o be por:fol'mod, 60 that. :retyping of 0. cont:rlTite a bloc!t of zeros OIl a
, . ' [ , " t apo if typed as ', 51'10700000000 pi~ovldCd HO ou't~JUt tape U opthm hD.S
,I boen !1t-lY'forlnod uhich UO~8. '700.·759 as tho ou't.put block, und the H!:,
""tIt,
V or lJ .funi::'t 1oIW hQv~ not, ,boen porforu1od since tho lo.st ID8[t\Ol'Y clc~r
1
~c
,-"
t~ ;I'''''l "·
1""':. ~.kyJ.
O!'' 'P 'A ..
-'fh(, pocond ' inntt'uc,t,jon ;i,n thQ \0101\.1 ml:1,V bo l lfJod
~' I'lGlecl"i,otla o . go 00 II 10. 50 crr 5n j.n:Jtrllt'.r~iQno
fOl' t\
Ij!OHod
.
,.",
"
.
•
~~l.~CI.l ~_!illlli_COf! JillLLffiillImr::rlilllli
. Fol1tn./ t.he control "io.n l w;l'~h u J 2. digit. QvA~'l'1.~t·:OH. 'Which tho .
tJl')o.~ch in lll8.de.
1-1W
>
lTW ~
efJ~ rc\l 1 ~~ ·!ll!,lGf,; (m
The
,9 All
59
h'clo
\J01"0~:i
ar
Eu.l
ovf.ll'~ ohe(l
,~ .' ditit~i~ ':
"';_
" t,
. ~.
. ,'.
,I'
.'
r,
O~lly ' 6Y'O ",,:r:l, no opaoH'!~d, in . 'block. i~ eenrobod
N,.wnbor of 1. Locke to bll) co ;teu tit th eo1:'reotior.la t
in(}ht(Ung tIl lJlool\: Mi"1' lnillS "the ~aa:r.oh()d word • ..
Sl':/\RCH [Q) on to.pe (~:;) '-, \. :\1 the 12 d1 eit "'UA~~;rl'l'I t;uppl1.ed , tEl
equ£U to the po()'rohed lIord tn 10co:tj on (rrtJ), then c.op}" wi th corrections
from ttl-PO (8) to tapo .(t) ( bl>b) bloclq:!, :\!'.l..I.rt.lng with the blodf:
,
c.ontaj.1.linc tho aO!lt'ch()d.th t.ho ne>~t. control ,wnl"
)
il
•
'.
·~i~11
.
Ii . it· 10 doa~r0d tiC' sourch aftn:r tho in1tial liel:' Onlent of tho
QUAn'l'I'fY 8.l1d the aoarcht!d d. to. ne t; mCPT 1 0:1-. the beeinnlng of the
I';f.:)arch
Pl'OCOf;f.j.
Tho blitlclr.: und l..fOrd number \l~ 11 bfl printed and the
COL~pu.t-:er
111111 ntop on Bl'.P'l' 1. F'()RCF~ Tnld'WPI;R t.o conth1uO the Dotu'ch
proocH:; s.. '£1110 procoChl,l'(l l1lJ:"Y 1::e continu€Jd no often o.a d 59
' t.n~ ~ 59
All '.fOrdo ara l3oarch0d.
0111y (me \Jord, as apec:tficd,. in each block "
is f)m."\.rohnd.
Upper limit. of blocks copted \/hilo flearch1ng.
If bbbb io reached td:Lhout f1.nding the Cloarch
word, the rou·~:tn0 pl:'ih~tl out NO SUCH WORD and
proceeds 't.o tho next cont.rol word ..
bbbb
COpy [K] from 'tape (1.3) tQ tape ' (t) Hhilo sOt?,l'ching for agreement
betwen the QUANTITY and the gearchud word in position (\1M). Copy
to and including the: "bl()(~k contalning the searched QUANTITY. Tape (t)
is written at lOa/in. pulse donsityo
The r digits oontrol tho reu:tncl optj,ons fo r the inpu.t (rs) and
output · (rt) t.apes '~
r ::: O' Do not rouind tnpe •
Rs\·l1.nd tap0 '..litlwut :i.n·tal~lock.
r ,.
Rewlnd tape "With int.€Jrlock.
.r • 6
e
The block and Hord numue:c of. the searched QUANTITY \1il1 bo printed
on the S • C. Printer. '
If it is desired to copy unci s ()o.rch nfter t.ho initial a greement
of the QUANTITY and the nenrehed diJ:i~u ~ f ot DEFT 1 at. the beginning of
the search process. Tl~le block r"md 1rl0rd number 1-J111 be' printed and
the computer will s·top on BKVi' 1. FORCl; TRllNSFE:R tocontinue tho
search process. This procodux',e illay be nont:i.nued a.s afton as desired ~ ,
If the word is nev0r .found on the tape "hen the upper limit blockcount (bbbb)' is reach '9d, tho :('outine will pdnt out NO SUCH \-lORD,
perform the rel,.lind opt. Ion , a.nd proc€led to the next control 'lJOl~do
18
·
'
Hooobooooooo
Ho So P. CODEDTT
~--....-..--
The Omnibus ROutine will call in thfl DTIm H. S. 1>. CODtDl'l"
l-ihlch haa be on nl0dlf'ied to be u30d tEtr3 ptlrt of O!onibua, if del!i redo
ThE-) control words porformed by the CODEDIT llro desoribed ,in UnIVAC
mi0111.
'rho control Horels t.\Sf!oclated lI:1t.h tho CODJIDI'l' must not exceed
60 words (no'c inolu.ding the. control func tion word HOOOOO 000000),
but rna;" be spl! t behreen blocks on a. cOlltrol ta.pe.
At the completbll of the ' CO])J~DIT, '~he OanibuB Routine is
8.utomaticully called baok and subsequent vto l~de on the control tape .,
if used, ure performed.
I f it is desired 1,0 type the contro'l Hor da for the CODEDl1' in
a sepnrute hlock so that they Dl8.y also he u :3ed by the ANALYZER
rout.ine for future pro-eol. 3sing , fill the blook containing the "H"
funct i on 1vit.h , zero a nd compile t.he CODEJHT noutrol worda in the
block follo"Ting. The COmmIT rOlltine , i f c~llad in by ' ~ln Omuibuf3
cont,rol t ape , will COl1f;;:\.dor t.ho f irst. non zoro \lord follO\ung the
"HI! function to be the dat e (th~ first; CODEDIT control' lTord).
The H. SoP. COItEDIT moY' be called :i.ll bJ ,~ manual opt ion f r om
Omnibu6 but pe rform e. contr ol ta~e CODE])TT by sEytting Bl\PT J t111d
FOHC ING TRANSFER ' .lhe n the commrr has bonn located.
When !Jor-forming e. CODEDI'l' fr'::>ID an Oa.'ni bj.O _ "I.'h::;) control 1,lord specifien only t,ho
out.put servo nnmbor (-t) nncl 'q Cl cmtput ::(mind op{:.ion (T.'"\) _ 1.' . n Op
-6 . or fl, do not l'ow:lnd l'e\.sindH:l:Lhout in ('f)":',oc!r !I or rewind H:1..
intE'lrlock, ro:..,pec'h:i.velyo Thr, n '11111ining con :,rol'l are pen-formed by
the subcontrol vlordn Hh:J.ch f0110v] t.ho c'rn'til")} "10rd.. '
9
ttl
'l'ho ImbcontroJ. \Wrd:::l P0IHdt Un:, JO O]W,10HG for c()pyin(~ l'l.atuo
1. Copy f~<..'m tapo:::) Cot,bor t.hem ';~h(~ eontx'ol to-po).
2
fr~rpe in dn.tfl llt -LillI c:.Ol1r10J..e, or "'l"JrartfJfer dato. from the
0
control
3.
t l.tDO
0
Fill (A f3poc:Lf':i,cfl m.unbcX' of 11OJ,~d:J, ot' to thl'" cnd of the
eurx'ent. outpu.t bloclr f l,dth : \ ~JP()d.fif) QUANTI'l'Y.
COVl [1-1J frnfl t ,:y)f') b) .':JGarting iJith
t)!. DC 1~ rJ.:u(l ·to1, )re1 11l.l:l)J:~(JC &'I,I( ~J.!rn ·to t:tn r ·1
. j: wh'.cJitlG b ' .Qck vl'!,d Hord nm\ber l~l!i; Ec!:..?
AxOOOO OOnmm
!.ill
l'r3(1
(mLE1) 1;0J:'dr:: . of the CHme ;.m..1Et::
(:c ',r.J.,:i.DII.tion ':',() '':'1:;",:'\ cu'lipu·t 'Gnp:3 ,
If' x 0:: Op
HC')".]:, 0 .:.' ~~ :::J:'O 1!:'. 11 fy':)~JTit'0en9
If x c Z,
t'Ol'd:~
,
or
~~ I Ii
r.J:.
"-r:U1 b ':3
1.lr:~.tt,en .
.u.
~.; :' :{ ~ tb,(\ '~UMT', :'J'II
"
Hi]
A';rOOOO '0 00000
~"I'i";i~()n
1 be
G'P0cifio ~ by ttE) HCJl'd
on t.h€l output t.apa <
Ji'JJ.1 to
U10 0)[(:1 of tho cUI'X'mrt outJput
ld.th ' ihn qUANTITY spocifiocl l)y th~l
:x ci:i.f;1 ~~ ',' J: ' '~;h(J prk.wiouo b10ck had CEl0Y1
co;nplo-c,cly ' :,~:i.:' ..1 0(1 pr i or to the oxt)(m'tion of
'ul (lc!~
tbc :mhcon:l:,; ·o::. 1Jord~ ~ a completo block of
l'H l (Uc,its \l~.l: :. be 'IrU'GOn c3.ch i;,'Lme tbe
......
TOOOQ.O, OOill1l1l'.l
."
f,,'),D(;Otl'V'ol Fe rd j.<3 f;:i.ven •
'l':rof, n;3,fOt'
['r!
'i.,he~{)nt.:eo l
~.
~:.ho j.',O-;.:t nrmn \!ordn [ l'cm
'i', np;) ')
a t tile eooso}.o (if
tho out.put ';;ape.
:z;zzz'Zz ZZZZZZ
End of Line l1ergn •
.,
J',
20
Oi:'
0l:l
t.YTl8 j.n nnnn \fords
m:1nunJ. option) to
I
•
'aU~
F
f
jib oomplete the information in the last !>utput blook when
all Z' s ls supplied as e. suboontrol word, will oause the routine to
print out BLOClt NOT FUIJ, and ask for a type in of • 12 digit QUANTltt
'Wbioh wUl be \lsed to rill to the end of. the current output. block.
The IlWIber or lUocks on the output tape will be printed on tbe S. o.
.
h~r.
1/
(
./ No provision is made tor rewlnding the input tapes within the
Line Merge IJUbroutine, but m!1.Y be Buppliod oilS a "Rn control word
/ the word of all Z'e.
,
/
I
,
\
The format of the
"M"
eubcon'~rol
"te[
word l:tmitD tho input blook number
to three dig! ts or 999 blocks.
When the Lino Merge Control \iord :is opacifiod, the rotlt~.ne aSE:Umes
that all ! 10 servO$ on the computer are ':figurattvely speaking) about
to read block one. The r01.:.t,lne remem'bero t.he numbet of blocks read
from all servos, and wUl read the tape :1..n the forward or backward
direotion to lo~te the I~ ' ~£l.rtitlf bock lmmbor, depending upon the
previous operation on an:;r SF!!C : fl o servo (8)
Block and \lord tnmIbers
are always specified in relation to the i r physical location on the
tape and not related to the pooHion of the , reading head at any time
except at the very beglcming "lhen each t.ape number. regardless of
previous motion, is aSENmed to be at thn lock beginning for counting
purposos.
&
Information may be copied a =r number of times from tapes and no
restrictions 'are placed on GlTitchi,ng frOM one j,nput sorvo to npother
and back again.
The starting block ,lwd word uumber tJUst be f)qual to or less the.h
the ending block and wql'd number for a~r single "M" eubcontrol word.
The routine assumos a mlnimum of one word vill bo copied when supplying
the ''M'' Bubcontrol word " Failuro to me~lt this requirement will causa
the routine to print ou ' CHECK OlillER nnd c8.l1 for 0. type in of a
IJUbcontrol word to suba'hituted for the ~rrror one.
If it 1s kno"rn in ac\vance thut a Lilla Morga oubcontrol word on
a control tape 13 in err,o r eet BKPT 5. Each eubcontrol word (on the
Line Merge only) 1s prin'4ed on the S. C. Pri nter before it is executed.
The computer \1111 atop OD I3KPT 5 afteX' printing eaoh subcontrol 'WOrd. ' . t
FORCE TRANSP'ER on BKPT 5 atter the incorrect eubcontrol word io printed.
The routine will print out TYPE CONTROL. ' 'l,'ype 1n a auboontrol word to
replaoe the error. 'l'hllt Line Merge routine 1a the only routine whioh
permits the oorreotion or a suboontrol word in connection with BKPT 5.
BlPT 5 1s normally reserved for control word oorrection only.
21
The Word Changer routillO permite substitution or digits in the
operation parts, the addreao ptl1'ts of a11 instruotion word, or in
specified digit positions in a full worl . Sub control functions
specify the mode of exwuiootioll, the dl~it qu.llnt1.t1es to be searohed '
on, the extractor to be used in the compa.rison o.nd the quanti1:.y to
be Bubstituted when equality is fotmd.
The \lord ohangar routine may bo U id ao a Code search operation."
searching on as many 800 47 diffElrent 1.ld1r0PS€la simultaneously. The
routine may be usad to perform L\ variety of changee, such as c!hanglllg
all servo numbers ', supplying a. lil.'inuD to all D, X, A or S instructions
or changing a group of addre ::,aou '''hen c :mstan-ta ha.ve been moved in
the coding without 11 sUng 0(1ch cp r3:nge in:iop(mdently with an X contr.ol
word.
The complete list of aubcontrol fU :l.ction worda 10 stored in tho
memory at the beginr. ina of' t.ho proc€ls'. Each "lord on the input J" apo
i8 compared againnt th~ list and npprop riat,9 change a are made lt3hon
agreement is foundo
Copy (bbbb) blodea from tape (s) t) t ape (t) making tho dsslgnlltell
changes described by tho subcont.rol !:tat. Hrita on tapes (t) at pu.lse
denljity (d)o If d !II 0, \-Trite at lOO/:ttl, if d
0, write at :;>,0/1uo donsity.
r
If digit 0 i!Lgr~f1.t~r _~lEn-.~~!2.' c )mp< 1:'0 tapos (s) and (t) in
the backward direction, print,:ing the dHfGrences on .the So C" Printer
if digit u • 0, or on tape (u) :.. r'U
o. It' C i6 .. 0, no comparison
r
"rill take place • .
Tho r digits control the rowind options for the input (r ) and
.
r.
output (rt) tapes.
r • 0 Do not
r~lHind
tHpe .
Ro)osi tion tape bbbb blocks
fOl"1r1arcl if oOlTIpHri son ha.a t :1lcen I,lace.
r '" 6 Rewind tape Hitllout. int~rlock.
r .. 8 Rewind tepe with interlock.
Sub-rcontrol ",ord,s
eee
OIl> EEE NEW
-
For 1/2 \-lord opcr.l t O~Q.
cce -
OPR if dtgits 1 - 3 and 7 - 9 (operation
part of an instruction word) are to be
cec ..
ARD if d:Lgit,'3 4 - 6 and 10 .. 12 (addresB
El~camin.ed •
part of ..\11 l ' struotlon word) are to be
EJ
anlinod.
01.0 • Three d11 ~it quantity (of operation or
address) on which the search is made.
,
'1
22
,/
•
EEB ... E:Rtractor paU,Elrn UI3Eld to dotermine
the aquall ty of t,ho old pllttern aDd
t.be inoert.ioD of the NEW.. 1£ 0.11
NEH
'l'hres diBi'~ quantity which is uaed
( in conjunction with EEE) to replace
t.ho OLD quantity ..
)Q
zzz zzz zzz zzz
~nd
of lint for modiflcation.
Sub-oontrol ' Words - For 'full UJord op'3rL\tion
eec
OLD Ern NEW
eec
,e FULl 6vJORQ~..h
OLD '" (
1? digits f or full
)
\oJ ord
control.
12 digits f or old '" Ol.~d.
) 12 digl t extractor
NEU .,. (
) 12 digi to for new word.
Compax'isona and substi tutiono o.r0 mlldo by
t.he extractor pa:c,tern of a full word. If
11 dig:i.ts of the OLD "lord are to be
cQmpe.l"ed, the extractor ruuot bg all ones.
E'8E ,.. (
zzz
ZZZ ZZZ ZZZ
End . of list f or modification.
A maximum of 47 sub-control functio ..l "lordo (OPR, ADR, or FULL ,mRD)
may be oporated on at any t :.hllO. Both full uud 1/2 \,rord controls may
a.ppear :\:l the list.
Each sub--->control sot is separated l"Q'GO ., . 10 '·lord item a.nd stOl·ed
in the computer. 47 such iter, fJ 11 nO'b including ' ZZZ ZZZ ZZZ ZZZ, may
be used in e. single list. If tho number of '3ubcontrol fUl1ctiol1n 011
a control tape exceeds this numbor the computer w:l.ll print out LAST
ITEH USED end ihe last . iUbcont.rol functio~1 U£J3d. l:1 ill be printed on
the S. Of' Printer. The control tapa is thon soal'ch~d for the ",ord
of all n 'l ~ II" and o..ll intervening su.bcont:rol '\Jon~s m'e not ueed.
The sub-contra) fund,ion is determi:led
the 2nd digit in CCt,; co
OER t AQH 9 FQT..
oy
examination of only
.On mtUlual control, each old 'Ol'K1J:1c5. ef~ urn .r 'Jund. To eliminate any
eonfuslon during the procos ;:.·; iD.g ? t B.pOt; fl cmd 02 Ghould bG mounted
on any servo number f l'cm 2 to 9" BrElf)J:::PQjs\t 1 is t1.s8d for a special
function.
V,!han0ver D. discrepancy OOC1U:S b8t1Teon to-pes (61) I3.nd (s2) t.l:.o
, Hord on tape (1';1) the block and 11!ord number. (l'olated to the destination
in the output block) £:Lli.d tho HQ1~d on t o.p.3 (02) 1>1111 be printed on t.he
So C. Printer. 'J'he cull:,.pU:C.8I" \:1:iJ.l stop"
l'be follolling opti()!ls a.r eD.1ni112.blo oy FORCE 'l'RANSFEll BKP'f.'.. Or'nON
1. Print the le.Gt eO>:'I'ec'G ·uord on 'the output. tape.
Used ""ben ' the two \-lord '; a re complet.ely dlffcrent,
to. determine if an on .~ w.iion 01' duplication hao
occurred 0 BRPTO mun'\:, r omain oet U1l !~n n s olect.ion
is made for Bubsequent operations becauso the routj.n
\lill revert, baell.: to th() DKPT 0 ~
2. Then·. Select fJ1,t her ono of tho tt>lO input ..Jordso
FORCING TRANSF'P:U on the BltPT con'0spollding to the
tape number \-1il1 CaUG0 t he corr e l3pond in.g Hord to
be aelEloted for the output l.]ord .. .
:3. 01' - Type in a rl DW \fo r d (rt t}1e S. C. CO!l1301e.
~
F.To DKPT 0
j
F o'r BICPT .... to the
servo m.utiber of
t.hE) tape
it is possible to comp1E,te tho verify se rluen'~o \lith more words tbm
were originally on the 1."'0 input t.ar ' sa.nd the last output block ",Ul
be partially fUled. U.r.der this condition the routine ",111 print
out LAST . VALID WORD and the cont.€lnts of '~he last "Jord. lt ,.rill then
print TYPE FILL and call for !l. type in c.? the QUANTITY to be uf>ed i', a
t111 the last 'output bi(iok. v1he~ the muaberof blocks on the output
tape is not the same ".S tbe ol'iglna.l input tapes." the ne\1 block count
will be printed on .thG .so C. Printt9r.
'the following flou ': chart olaprovided to clarify the Breakpoint
procedure required to hs.ndle errors 'on 'hupes t o bf: verifiedo
~,
'.,
•...
"
ii,
..,
\,
7
I
I
il
_. _. ____or". . . ·. ____. ._____. _t_. . _ _, ___..
·EXAlvIPJ.:E
illmIDUS CONTROL 'l'A PF.
~.
.
Thi/3 c:ontrol tapa "dll combino pnrtl3 of two old inotruct.ion t9.pSS,
chnngo n fev' Hordo and cododit tbe nm,r tvpo prodv.cGd. !t will 'Ierify
two unitypod dnti.1 tapoo aDd nd.d. .c;:.dd:l..tlofw} dutll from 0. prevl ous data
te.po to tho verified "Gnp(lo It H111 oClIll.ple t.he do.'f,(;I. top'c , fJending
the block numbor e.nd tho ~.\Ocond vord of (;)l.l.cb. blocko·tte to t.he output
Oll [lOI'VO 9v
Block 8ubcUviderr~ for 8 and 9 ere dcpresood. Tapes ar.e
m01Ult,(-J(. D.~ folIous :
Servo Ho. I
II
"
II
rr
"
~I
f',hmJc fol' inritJ."Uct:i.('ns
II
~
II
da.-iie,"
3
t.o bo l'€:H\oved after
l'o' r,~ O ~l
I"
.- ' - . --.-----.- -.--.•.• .• -.:..... --- - .
""' r"J!
'1 · \~ .~'~~.' "
i. j
JII; .. i\ I ....
"
.
t
I
1
O( 5n> - I.'
(J ( "/1I)
l'
r;
I
1; \;
_. ~.--~ -..-. -l ~:~~ :-~'.)
"
", ", LU
~ , 1 t. t
I
L
1-,
1 \.
,
... !
.(
I
I
ll'
.,•......
"
~c
t.
I
~
f\. : r.
. , . l'd l
: : ;~l
t,
.~
t.
,1
I·':
... ,
I
•
1 ]-'
4./'
j't;'
f
q
t ....
;, !1 .
~"
"r
J( •
.;
,-
t, L
j.
t"";
~1
~
I
j
\ S
I
I
t .'., '.
r,: '
!
u
I;
J 1"_ 1
r. . \.,
~~..
c.
-_._
..
.,
. ' J.
J
'j
.,
.: L /I, I"
f
()
"
1
!
.,
,',
,'.
~h.ll-JliA R'L~l.D1;&QE.!flQ1~j~!2.l.m~
cQt::I.Ja.I1LQ..0l.!.tW19~~
,sub·~ eou l,;~:)1
tl
(x e t u t"rtd a b , b b 11)
\lords
n x X x x 0 0 0 '0 1 Y'
n n
x .x
z- Z
v
x
y y
Z Z Z Z Z Z Z Z ZZ
Number of oonGOcu1. tve. cOI'rect.lon8 1:1 nted Und(:H'
t,na s\,1b~ contl'O 1 VOI'(L. Tl1l-00 or til 1'or Ii
,
Hinglr v()rdeo't"r~~tloll. CotJsecuUvf.\ ('lorr~ct.lona
. must boowHhln bhH::k nUlnbor 11 !3t~r.1"
'.
13 lock numb(:l r •
Sta.rtJ nf~ \.{u.rd nllmlJHr ff.';f" c()rn" t·il11ls ..
.End of
cr)n~lct lotio ,.
~.
(w 8 t uJ"srtu c .b b b b)
Sub-control words
I"or 1/2 lJOrn operatIon,:
WORD CllANqr:R
rcc
:cee OLDF.EE NEfI
Gee
\'
..
.
OLD
..
. N.HI
, .. "
. zzz
,~·ZZ ·
. eee
01.0
7,ZZ
EKE
OPR if digIts l ~':> il.Od 7-9 (opel'l.lttoll part
of irlotl'llction '.Toni) 1n to ue O::li..rl.m~. ndd.
flDR· if dig.tts "'- 6 lind lo.-l~ (aciu rosspa.rt
of instr'Uct.lon ~lOrd) :1(3 to he oxamJnedo
Thr1ee d:'gH. q.uElnt. t ty (of aperaUQt:l or .
a.dd.:~'efl fl) on \-.'h 1 {! 11 t h '3 soarch I s rna de •
g~ t.J.'Il~tot' po. t tern llsed to lie tct'TIline the
equality Qf t.h",. (lId pattern and the iosert~ on
of tho NBWQ Ii (' Fl threa ulr,1t.n oro to be
oxamined EEF u ll1 "
Thref.J cUgl't q1.lLtnt,\t.y which is ui10d (1n
conjunct-Jon vHh r.EE) I~o r.~pluce the old
pattf;}J;'Tl ~
zzz·
End Clf list fQr D!.cyHfi'C-fj tion ..
nEW
CCG
OLD
'.
EF¥
HEW
~~ULtbWORJW.\f\ ·l2 i :l;; it~
rot' tull \-Jord oontrol " .
d '1gHs of old worcL
(
)12- lH Blt$ e,;tractor . .
(
}12 digits for ne./ ..,oro"
Coinp''ll''loons and snostll;.utions are made by
ext', "actor pot-w.r n on full l.JOro" If' all dlglts
of 01,D
to be compa:red. ~xtrCtC br must 00
H.2
(
are
' zzz
ZZZ 7. 77.
all onest>
End Of.. list f(lT modlficlltion ..
A wimmn ()f 47 sub~(:ontr61 .rune t10n 'Words
(OFR g A,DH, of FiJLL WOP.t.' l may be opel~wt,ed all
at any time .. Both r~lH and. 1/2 word <:oontrols
m.E ly appoar in tho l:.1eIllO list.
(Each Bub·-control
sotls aoparatud. Into 10 word items and f..?
~uch items, not Jlld.u.dl ng ZZZ ZZZ ZZZ'/,ZZI maybe used in a single list •
. The sjlb-control t'und. hlll .in df.lterm:tn ~J:1 by
exam!
hm 0 f only t.h~ 2nd d.i E! t in cee ~
nnt
-
01'R, AUf{,
tiJL
_:
~
1~
\.I
H
> ~H
w
H
~
b
t,) \. I .
P~d
An, \.r(),nl t'
:i '.I
81)1.\
r cheu ..
1s
( hl .', 'y Imr'cI OplJ!! Jf" ~l
J (,1',4 tit",;
(fr
N ~ ' I' lt\ '~lt'
~
\,},~, :" ,I.:l l'C:h
6e~,r r::r.od .
~op l ,,,d
ld !I',\u) to llo
'.Ii th C",',", r. r:: t. l one ..
'll 1.1',,\
l2 I'D gl t ~:UAN'l'lTY' Uf. ~I hl~h
Ttl,:, 'Jl~ nl'ch lf~ 1tl9.de en I3J!l J:? 111;Hs<
hfteJ' '\1"11,10.1 (l1;rOpmm ,t 1)1' QUAIn J n:
f'·.t;'j' lW)'l' 1. t FOlr_~ TRIHSFfR.
CUIlI,I'OJ WUY'.j
rn',l~k ,.
1"
,o n.lll)1! ~,
'( ,.1
0['("
~;q,.uJ\
!H .If)l3fll·;1I\~:d I.Ht,,!1 ~
h, ':;!.'·n I;opy ,. 1)\lt';) \11 u ~ nlllnbe'r' of bJ.ocka tv
fitl.il'~,lrl~ H.i. H 1 tho hi.'Jdc (' .>nt.;utnjng tho 6otlr~h "',1 "")1.':L
1"~, 11 ot,i I.lw Q11J\ WrIT! \1: L:~ ... ·I~ !:'ub~'C!Qntro l "'I),roo f ,n
CCt'Y 1J1 TH, COH.l\t'~CTJUW~,
:, :r-'4r' :h~ ',:2. thollt ('(!py ,.. h'thb ~.g ;~el:'O "
Foll()w the QU ~NTJTY
I,TI I.b ~.hl:' l.~oxL '.;01 I 1'0) WI) ~'-:f, ,.
~ ) OH (
. !';:'f'Y
t)
\J
:>
5')
H
..:
t.
I) q
IU1 l.r(~itJF) (J.1"'" f,l)l.Irr~ II(\d .
Only w.lnj SP' !' ..'Lr' 'i.e d i(;J sonf ,!l'cd
l.im! t. 'Ii' b " \,d[s copJed wllD e f)~(),r·z hln/J.'
U bbbb t/.: "(i:n!wJ \rithoJ.'. finding tho
:1-::~'~rdt VO' oj . 1I11 np pt~opri.lJ. t(} r,rlnt..):)!. \.Fi:: [,
Upp dl
or:,~',J'< ",I'HI
)':,. J
h.;.,1 f,hn f.'unl,lol
1·,hh:!J I.lit! 'It:- '·,
t'O/'J,
l.,ll.h
~[1 ill,;, \ . .1
,j'l
t ~rro JnlJ. tod
t,w' \ put"!11,10.':l is
,
11
\'11<')'
L2 d1Clt
~1(1Url " h
~'UANTlr,{
is mlvlf,
<)D
'.
,m
Il] J
\." dIgi".;",
':",1 ('.(,elt.JJ1\IS' (:"1',;.' .HiO b('.Y·':1. nt i..eT 1nl'\:.i<:11 d[l'Jrmont (d'
I..;r:l!\ ('n'F
'WeI C '.,i.l.rci l( ·'l d,H ti f ~;f:T BKP'J' 1, fOF,CE Tfl.AHS ,'I'l-L
C"'; l)
• l, O t).THi
l1'Jd.dd 1.1 Ie
't
h(' 1!look cont·(i ir. tnt; t hf
:K "\.1 \ II 1,l( ll' j •
l.:o,
~.
I, red,
Hi CI
.' ( )PY' ~
t n t·t ,I n~l, I' } I). ,;~, )'Ilunbur .,
::\:II'l.l..lg ~/Ql"l
lJlrpd~
n111.1ibf;; \'
wi.t.h.in 't.lu('k
m.1.'
~..I I Ij'VO JI d.',\l!t:,r .
!':ndlng l)h, f l{' nunbtwu
Im-.;t,
l\
)I.
(I () II
0 0 0 n n
I'l
n
J\
A
Wl)} 'ej
j
1\
lJlodt !11k
x .... ?.
x', X
,11
,I
"
H
4.11
Z~6
II
"
11
1/
t,} u3
contttn t..J
JD fIP'J\; '\fj~I'i t ' y HH)
/.
.... (
". 1.\ ()
0 ()
(J f) ~)
0
l~t)pied.
C nt.t'.:, L d :~g. I . Add •.
; <:".() Add 1";.1 ·llfl w•.}rd~ of: 'J f; l"OS to OlltPll1."
CO
')l.ltl,')l'
t ., ):
\,\1 J ::h
QU/U4'l'lTY "Iid,ell tlLrn. ' U:;
'.> l'
f(~Ui.Jw", tl l€ t:lj' - <'ont.1"111 word~ Lo "Ion i..,lUtp·,t.
fj:t to 1 k~ ud 1..1' tho {'urrl)n L t)\l .;; l vb! ",", It
I.,j lll I. III , ',;,Od}, Uty C.P€ ("U'i t1d by .,<" ,
';.~~.
T
t .O OO<)OOOnnnn
nnnn
Cont.rol dJ gH ... 'rrru:IOr6t".
'l'rllnafer tho nf)xi nrl1Ul words from the
(J<)nt.rel } tnpe or mrlnul'll ,typain to t.he
o' tput. block
lltld 't;llpa.,
<;1' Line HGl"F.fv •
. r~H.JJlll·l~ ",0 QI.)mrJiw\,o ihe lnfoi"w.1tlon 1tl tilo
l!l(; t qutpttt td oolt 1",111 cause the c:ompu tor
t.o pt'h:l~·. out, 'flLOCi\ .T('lT F'UJ,LIII and ask for
8. tr po1il of thr-I (J.IJANTX'l'Y i,o be u6(',,1 ae n rll 1,
F,;')(}
\-: l('n I.tiD 1.1 N1~ Ml;l/m: 1~0l~ t
.rOlltI 10 ll(;fOJ)lOCS t.hnt
{f:l. r:::l!!·~ UVfll;r fl) )f)ak\.f.\Gl
. ,"
f'O 1
Itlord {o spm:.if1 cd, tho
S(,H~V0S on thE) cC'mp1li ,er a n "
I\b"t~t \.0 l' oud block' 1, .
till )0
'1'tw l':.IU t tr:.o .( \"tllVJL.'bG l'G t.ho mJillbf! ~~ of h l ( cka I'Had from
AU", ~ e I v< )~, Th<~ is .1='013 vii ~1 :J'(;)acl i 1'1 t.he fOl'ward o.r
backW':wd ,,: ,.•~o(!ti.()n
J.tl(:o.t,~ tho ot~r tlng blf) l :.( ,)umbl:lr ~
depen-:'l1 0ti t\ tm p1"olliou:,; nperDti()p. on servo f : ...
to
~
In.(\wllt'ltkn tUfty' bOlu()f'!';cd frcr~ _ Jw:u1y lnput tepes to 0:
d ,: lg)','l O'.lt r~t. 'lJtpl!" t](, l'l\ s l.d,cUoJls a r'0 plE.nr:'d on the
s e lHf"OCf1 d ', d ':,I'\.a mor~'V2t'1 ~ l~X':::C' pt "'" t.ho stlll'Ung block
&1.Jd \Ionj n(} lilb~).{' Inn f:l t ,'llO (.:(1' tnl to 0 i~ 1 e os th8 n the
".':n.dlng bl N~ { ,HId ilOt '0 !lU!'lb'~r fox' auy (lingle "M"
6ub· ()ntr.r~ l \J iu :h ' 'Ic nJDlI£d.. iof\ :i s c(Jpiod~Hh lh ~ tap{;'
OIOVir'G J:n t" l,t~ I'U(\I;\;:tX'C (J.Jre \.~tiorl t~
"
'~\ '
I
I
r
USEful Note #11
SUBJECT:
29 April 1957
Octal Card Load and Octal Dump
CONTRIBUTOR:
HO
i
Identification
2.
Purpose
To read any number of octal cards and store their contents
on core or drum.
3.
Method
a. This is a service routine with manual and program entry.
I t bootstraps itself into core, and restores core upon
exi t.
b. Each ~ard is handled as a unit. The words are assembled
in temporaries and t hen block-transferred to their
destination.
o. Checks are made to assure that:
1. The card contains the identi f ic a t i on punch
2. The address is punched correctly
3. Each word is punched co r rectly
d. Under all circumstances the co r e is completely resto r ed,
including 00000, which need not have an MJ.
4.
Usage
a. Program entry is effected wit h t he instruction
RJ HOSR24+2, or , in abs. 37 44002 44000.
Ma nual entry 1s done by starting at 40002.
b. The routine exits upon finding a card without identification punch. On manual operation t hen PAK = 40002.
After a successful exit (A)~O,(Q)=I.
c. Space required (on drum) 88 cells. (HO-11brary:44000-44l30).
d. Error indications
Address: A correct address must have 5 octal digits. If
not 5, or if an 8 or 9 appears, the typewriter prints "a".
Card is not loaded, routine exits.
1
"
HOSR24, OCTAL CARD LOAD
Robert G. Tantzen, 12 Apr 57
Holloman Air Development Center
1103A-Service Routine
1.
'"
e.
Words: Each word field on the card must have 12 octal
digits punched, or be completely blank. If les6 than
12 digits, or 8 f s and 9's appear, typewriter prints "w ft •
Card is not loaded, routine exits, computer stops with
IO-fault. If a column is double punched, the higher
digit will be read.
Input cards
The first card must be in reading position. If the
routine is to be used repeatedly, the individual sections
to be loaded must be seperated by one blank card. Carda
in each section may be in any order. Place 3 empty cards
at end of whole card deck.
•
•
HOSR24
f.
Card Format
Column:
1-12
13-24
25-36
37-48
49-60
61-72
73-77
80
first word in octal
2nd word
3rd word
4th
5th
6th word
insert address, 5 digits
a 5, identification punch
The address belongs to t ',e first word, the others go
into consecutive cells. If less than 6 words are needed, the fields not used must be left blank.
There must
always be a first word. Whenever a blank word field is
detected, the information found so far is stored and
the routine reads the next card.
5.
Restrictions
a. Attempt to load into cells exceeding the core capacity
will cause an SCC-fault.
b. Cells 77000-77200B are used for image purposes and
shoul d not be loaded , because they will be blocktransferred back to 00000-00200B.
6.
Coding Information
a. Timing: Cards are processed at full Bull speed,
120 cards/min.
b. Status: Routine is completely checked out.
2
...
.
1
HOSR24
LOC
U-ADDR
OP
B
X
X
X
X
REMARKS
V-ADDR
4
79
11
35
X
START
SET
READ
OKEY
ADDR
RESTO
FINE
FIELD
COUNT
MJ
TP
RJ
MS
TP
TP
RPB
TP
RPB
TP
EF
TV
TV
TV
TP
ERA
ERB
ERB
RPU
RA
44004B
77000B
44002B
44000B
200B
1
117B
44012B
ADDR+
FIELDFIELD+
COUNT
M
F+
44003B
40002B
77000B
1
1
1
LJ
Q
/l.
F+
OKEY
READ+
F+
WRONG
FINE+
K+
C
C+
C+
M
C+
1
2
FILL
FILL
FILL
READ+
C
READ
A
5
Q
28
4
0
C+
EX
C+
F+
200B
77001B
4
Q
25
3
READ
TN
OT
ZJ
TU
LO
TP
RJ
EJ
PR
RPB
TP
EF
TV
TU
TU
TV
TP
TP
EJ
TP
TP
44010B
77001B
START
START
M+
READ
READ+READ+
A
RESTO
COUNT+
3
13
F
COUNT
FINE
ROW+
44001B
2
2
1
35
4
2
M+
DUMP+ DUMP
COUNT+
STORE
4
1
2
Q
3
1
4
3
F+
F2
F
F+
ROW
MODIFY FOR '
NEXT ROW
12 ROWS? NO
Q
8
2
HOSR24
OCTAL CARD LOAD
APRIL 5-7
MEDLEY, TANTZEN
SERVICE ROUTINE W
MAN AND PROG ENTRY
ENTRANCE
RESET 000
PROGRAM EXIT
MANUAL EXIT
SAVE 0000
MJ TO 000
SAVE
CORE
PULL IN
ROUTINE
PR.R
SET
READ
COMMANDS
ROW INDEX = 11
READ
24
12
=
1
5 COL 80 TO A
5 COL 80? YES.NO
SET FOR FIELD 3
BIT 8 UP
COL INDEX = 4
DECODE ADDRESS
ADDR CORRECT? YES
PRINT -ARESTORE CORE
AND EXIT
PR,R
SET DUMPADDR = IA
SET DUMP
WORDS
SET FOR FIELD 1
SET STORE AT F+26
SET MASK BIT = 1
WORD INDEX = 5
SET FIELD 2 ? YE S
COL INDEX = 11
ROW INDEX = 7
f
•
OctaL Card
F Low Chart
~
~-
HOSR2Lr
itooo2.
41+000
!) TART
r---~
')ET
OI,
e.
Card format:
=
Column:
,
1-12
13-24
25-36
37-48
39-60
61-72
first word in octal
second word
third word
fourth word
fifth word
sixth word
=
•
HOSR14
73-77
80
address, 5 digits
a 5 for identification
The address is associated with the first word, the other
words are punched from consecutive cells. If less than
6 words are on a card the remaining columns for words are
left blank. A zero word is punched all zeros.
5.
6.
f.
Cell 00000 may be dumped.
g.
A MJ for cell 00000 is not required.
h.
Cards punched with this routine may be reloaded with
HOSR24.
i.
The Bull need not be cycled before punching and the
ohannels are cleared after punching.
Restrictions
a.
Any attempt to dump an illegal address causes a SCC
fault l or produces meaningless cards .
b.
Dump of A and Q is not permissable.
c.
Ce l Ie 76000B-77777B ehould not be dumped because they
are used as core image. If they are dumped the cards
have image addresses for information that was in
00000-01777B before entry.
Coding Information
a.
Timing:
Cards are punched at maxi mum Bull speed except
for a 1/4 sec. delay after each 128 cards.
b.
Status:
This routine has been completely machine
checked.
2
LaC
OP
PULL
U-ADDR
LO
TU
RA
OT
lJ
SP
AT
RA
MJ
ROW
EX
STORE
RANGE
DRUM
DUMP
F2
WRONG
K
IJ
IJ
TP
LTL
RJ
EJ
ZJ
TP
RA
RA
IJ
TP
TJ
RJ
TJ
MJ
RA
RJ
MJ
RPB
TP
TU
MJ
PR
MJ
TP
TP
V-ADDR
35
0
FILL
PULL
FILL
PULL+
F+
F+
F+
F+
F
F+
PULL
M+
A+
ROW
2
35
12
34
3
F+
C
ROW+
PULLCOUNT
A+
F+
EX+
STORE
RANGE
FILL
C
M+
FIELD
A
DRUM
DUMP
DRUM
SET
M+
DUMP
SE T
FILL
FILL
COUNT+
FIELD+
PULL
RESTO
1748
201B
F+
12
34
EX
M+
WRONG
F+
STORE
DUMP
F+
DUMP+
K
DUMP
K+
1
35
24
1
1
DUMP+
DUMP
1
F+
START
26
30000B
F+
F+
F+
26
26
1
C
1
2
4
5
7
11
12
M
770008
F
40
RESERV
END
3
31B
1
5
36
36
4
35
1
1
30B
34
1
3
2
2
1
REMARKS
BIT 1 RIGHT
SET FIELD ADDRESS
ADVANCE PULL CMD
IMAGE BIT TO A
BIT IN ROW? YES,NO
ASSEMBLE NEXT
OCTAL DIGIT
COUNT 1 DIGIT
JUMP
8 ROWS TRIED? NO
ALL COLS? NO
DIGIT COUNT TO A
CLEAR DIGIT COUNT
ON ADDR GO TO ADDR
WORD CORRECT? YES
WRONG OR 8LNK WORD
STORE NEXT WORD
ADVANCE STORE
ADVANCE WORD COUNT
6 WORDS READ? NO
TP TO A
IA UNDER 174B?YES
DUMP AT 1 A
IA UNDER 2 18? YES
GO READ NEXT CARD
IA + 7700 8
DUMP ON DRUM
GO READ NEXT CARD
DUMP INFORMATION
INTO MEMORY
SET FOR FIELD 2
JUMP
PRINT -WGO OUT
TEST
DUMMIES
26
ONE
TWO
FOUR
FIVE
SEVEN
TWELVE
FIRST IMAGE ADDR
U-MOD
PRtR CONST
135
201 9 APR 57
\ .
•
•
HOSRl).t.
LOC
OP
U-ADDR
B
START
SET8LK
SMALL
TEST
POS
NEG
GO
'9
PUNCH
REMARKS
15
1 1
19
42
X
X
X
X
X
MJ
TP
RJ
MS
EF
TP
TP
RPB
TP
RPB
TP
TP
ST
LTL
TP
SA ·
TP
TU
TJ
TP
AT
MJ
AT
TP
TJ
RA
RJ
TP
ST
LA
AT
TP
ST
SJ
AT
RJ
TP
MJ
RJ
RS
EF
V-ADDR
44135B
76000B
44133B
44134B
40003B
44276B
76000B
44131B
1777B
44142B
760018
START
START
T
A
A
1
110
441448
Q
Q
21
A
C1
A
T
C1400
K
C1400
T+
15
T+
BLOCK+
SMALL
A
BLOCK
TESTBLOCK
A
GO
C76000
BLOCK
A
K
(1777
T
BLOCK+
BLOCK
(2000
T
A
TK
T+
1
2
1
1
Q
57
BLOCK+
A
A
2
Q
1
pas
NEG
K
BLOCK
TKS
BLOCK
T+
1
BLOCK
BLOCK
BLOCK+
PUNCHBLOCK
C1400
PPP
2
3
HOSR14
OCTAL CARD DUMP
DUMPS ALL ADDRS
12 WORD P S
MEDLEV,TANTZEN
REVISED 4,57
ENTRANCE
RESET 0
PROGRAM EXIT
MANUAL EXIT
PICK PUNCH
SAVE 0
MJ TO 0
SAVE CORE
1 TO 17778
PULL IN
PROGRAM
SAVE FIRST ADDR
LA-FA
STORE
WORD INDEX
MAKE WORD COUNT
SAVE WC
SET (A
WC UNDER 14001 YES
MAKE X FOR RP
= 1400
1
1
MAKE X OFRP =WC
REGION END TO A
(A OVER 1777 ? YES
ADJUSTBLOCK PICKUP
MAKE TRANSFER
REGION END TO A
2000-(A TO Q
Nl TO AV
SET WS
N TO A
N-N1 = X
N-Nl NEG . YES, NO
X TO RP
MAKE TRANSFER
RESET WS
TRANS IF OVER 1777
WC-1400
PICK PUNCH, PUNCH
HOSR14
LOC
AFT
SHIFT
OP
RPV
TP
TP
TP
LO
TP
TU
TP
TP
LQ
LQ
aT
AT
PLACE
FILL
IJ
IJ
IJ
BLOCK
MORE
WRITE
SWITCH
ADDR
, 16
RJ
RS
RP
EF
RPB
TP
FILL
TP
IJ
TU
IJ
TP
RPB
TV
EWA
EWB
EWB
RPU
RS
IJ
RJ
RA
Tp
TJ
TP
TU
MJ
TU
TP
TP
U-ADDR
AFT
FIELD
FIELD+
T+
0+
T+
Kl
FIELD+
36
CO
C1
C400
T
C4
K4
C1
0
T+
T+
(7
K1
FILL
T+
FIELD+
T+
SWITCH
T+
35
3
A
PLACE
FILL
SHIFT
ADDR
MORE
WRITEA
BLOCKSB
44132B
1
FILL
400B
PICKUP
K1·
PICKUPT+
WRITE
WRITE
FILL
FILL
FILL
vJRITE+
C1
WRITE
SWITCH+
C60
3
5
4
1
1
Q
3
1777B
760018
FILL
FILL
T+
K3
T+
C8
6
7
3
K2
3
WRITE
T+
SWITCH
T
PICKUP
BKB
T+
CU
REMARKS
V-ADDR
6
31
3
21
4
1
5
3
2
1
6
5
1
A
PUNCH
A
2
PICKUP
SET8LK
K1
T+
T+
K2
C1
C1
4
7
3
CLEAR
IMAGE
5 COL 80 TO IMAGE
PLACE ADDR BIT
CA TO Ov
DIGIT INDEX =4
SET FLO III ADDR
SET ADOR TEST
WORD TO SHIFTER
BIT 1 RIGHT
POSIT NEXT DIG
DIGIT TO A
MAKE CMD
CC FILL T 3
WORD FINISHED? NO
JUMP ONLY ON ADDR
LAST WORD ? NO
GO PUNCH LAST WOR D
CLEAR A AND Q
CLEAR
BULL
RESTORE
CORE
RPB FILL FILL
BLOCK TRANSFER
FIELD DONE ? NO
SET FLD II
FLO! I DONE ? NO
ROW INDEX =11
SET EWS
CMOS
WRITE
A
ROW
MODIFY FOR n~R
NEXT ROW
ALL ROWS ? NO
ALL WORDS SWITCH
ADV CA BY 6
REGION
FINISHED? NO
SET FOR NEXT
RESET PICKUP
GO FOR NEXT TRANS
SET FLD! ADDR
SET GET FLD II
SET IMAGE BIT
•
HOSdJ.I-
LOC
U-ADDR
01'
TP
PICKUP
TK
TKS
BK8
K
Kl
K2
LO
TP
RA
MJ
TP
TP
LO
RP
CC
K3
K4
PI'
PPP
S8
C1
C4
C8
CIOO
C9
CO
C60
(400
(U
(7
C1400
(1777
C76000
(2000
T
FIELD
1/
V-ADDR
C9
4008
C8
PICKUP
2000B
·FILL
20008
FILL
FILL
FIELD+
F I ELD+
FIELD+
40
40
40
2
14
26
T+
0+
T+
CI00
SHIFT400B
400B
0+
FILL
T+
FIELD+
F I EL D+
FIELD+
108
128
REMARKS
6
15
4
1
15
3
35
11
23
\.\'ORD INDEX =2
POSITION WORD
DIGIT INDEX =11
MODIFY PICKUP
GO MAKE IMAGE
TEST+6
NEG
SWITCH+3
BLOCK TRANS CON
PLACE
PPP
1
4
11
0
1
2
0
6
0
0
400B
400B
7
140 08
17778
760008
20008
RES ERV
RESERV
END
8
36
8
36
PUNCHED BY WELCH
•
OCTAL CARD DUNP
HOSRl4
FLOW CHART
MANDAL
ENTHY~40003
----- , ,
Jump ~
1
PRCXJRAM
EN'I'EY~44131
,
"-
Save 0, }~ to 0, pick punch card
Save l-1777b, pull in
Save first addr, make index, make word counter
srART
Set current
~dr in BLOCK
~
L
Set RP N ... vlOrd counter
I
TEST
""
J
~
Set RP N
"I
I
1::--1
~ Word counter > 1400b
no
yes
SHALL
",
= 1400b
I
"'.,...
r : : -current addr ) 1777b ?
no
yes
t
Adjust BLOCK by 76000b
I BLiO"'K
I ::unage
~ransfer
C
Transfer.from
original loco
from
BLOCK
2000b - current addr = Nl
Advance working space by Nl
fO
RPB
TP
FILL
FILL
J
FILL
00400
-
. - - - - - -Word countt r - 1Tl Ne gative ?
yes
Set rtP N = word counter - Nl
Set BLOCK = 2000b
POS
~
~
PICKUP.
Get rest of words
from 2000b up
Reset working space
Word counter - 1400b ~-------------J
Pick punch, p1.ll1ch
Clear imetge, 5 col 80 and addr to image
Next v,T ord to image
Last word?
no
yes
1
Set exit switch , jump to punch card
,h
EO
I--=
n o.",. . . . .:.· v'ard full ?
ryeS
WRITE
SWITCH
a card
All words ?
! yes
Clear A and Q, restore core, jump to exit
Advance current addr by 6
~
L-----~n~o--Reg10n
~yes
done ?
' - - - - - - - -Set for next transfer, jump to make transfer
6
,
USEtul Note 1113
SUBJECT I
Parity Error Routine
CONTRIBUTOR:
HO
1 JUly 1957
,•
Useful Note No .
1.
Ident ifi cation
2.
Purpose
HOSPll, PARI'rY ERROB ROUTINE
Robert G. Tant ~en, 11 June 1957
Hol l oman Air Development Center
1103A Service Routine
To rec over fr cl!TI pari ty errors \\Then rea di nr; ::;a'jnet' c ta-pe, in
fixed block mode , without c omputer s t op.
3.
Nethod
T 'i s is a se r vice r Ju tine with prJgram entry only. It c an
handle all cases where reading is done wit : a 120 ti~es
reneated ERB. S ~ the ~ain 0rogram may read forward or
baclnvard, free run ' r one block (' nly . Re -re adinr; js tried
first on hi~~ , then ~ n I JW bias . If one or the other attempt
was successful main p ro ~ ra~ cont1nues, the bias b eing reset
to normal.
4.
Usa:::;e
To use to 'i s r01)t· ne, a calling sequence of three C O~'lr.lands
has to be inserted :in the ;:,ain pro£:ram: t :Li,s is tw o ":ore
than needed nor-'ally . A typical main r rop:ra "; \vith calling
sequence js gi ve n :
LOC ~_ OP
KICK : EF
I.
I
II
\
\
i
.
RPV
iI
BAD
o
-,I
jK
I REHARKS
Start read
I
I
120
I READ+l
I
ERA
o
o
ZJ
BAD
TP
KICK
HOSPll+3 Place c ntrols
TP
READ
HOSPll+4
RJ
HOSPll +2 'HOSPll
READ , ERB
!
i V
U
GOOD
I ~XX
! GOOD
Read 1 block
Ipa r ity error? yes, no
iGO to parity error r ou t ine
IBIO Ck read correctly
If both attem~s t o re-read are unsuccessful , typewriter
prints P TUX, where X is t he tape unj t number . The
computer c o~es to a PS stop .
•
•
•
•
5.
Restrictions
a.
Hain prograr1 ca ' n,)t llse ce1 1 s 07773 - 07777, and 777027777 7( i ma::;e )
b.
Contents o f ':{. is preser ved, the ";.ain pr.' Ta ' '1a:; no t
re-d tape infJr~a tion i nt~ Q.
c.
Space ne ed e d in dr1l''1 lib rary
43610-43705)
2
= 62
cells.
(IIO-library
•
HOSP11 •
Ftow Cha.rt
Parity Error Routine
from mu/t'l progra.m
So.ve
+
core 7702 - 7777
ot. 77702 - 77777
Pu.1I in rou.tine
Restore control cells on dru.m
ENT
SET
no
C
Set bio.s hIgh, pla.ee READ- Cmd.
Pick and save EF - constant from main pro 9 r.
Reo.d. in 9 free?
Set EXIT to give no final
Plac.e exit add.,. ess
Save (Q)
EF
Mo..ke move und read. consta.nts
..--~ Move tC1p~ I block 3S ms d.elay
Rea.d \ bLock and stop
I
READ
Paritv error?------~. GOOD
J
no
t :1 es
5 et bias low, 35 ms deLay
yes ----War:, this fjrst o.ttempt ?
EXIT
Print P TU on t~ pewriter
MOoke print em d
UNIT
Pri nt TU - nu.m ber
Restore c.ore 7702 -7 777
Program Stop.
Restore Q
Restore core 7702-7772
Set bias t'\or-ma.l
35 ms dela.y
ju..rnp
Oll..t/ ~ive ori'3ina.l E F
j~]
ba.c.k to mo.·,n
out
p,.0'3ram ·
..
r l .-i .,........ ,-.of M
r l r--; r-i ......-{ M
0... c... 0...
,) ) ,n
'"J <'1
C> (') (")
('\.I Co'1 r l ( ) ( )
I"- 0
('J
r
o
L
'
0.. :l. r:L 0... (L rL 0. ('1. o. tL
or)
'I
le) • ')
),)
1..,) ("
(J
(
(.) U C
0 1-: (
'j (
()
0
,;, '._' "
.-
>
( , C)
<,)....j"
() C, C>
c,
n
(j
C." c.:'I ()
O
C
(.' (,
o ',)
Cl ()
l,. C cl.. 0... 0..
')
')
J)
[1..
'I
,")
u.. o. '='_
'.')
-;, C)
.......
t.) .. {)
c) () •')
c) ( ) '- ~
-
<' ,', (')
c.'" '. f. 'J
C'
r
0
U(
'()(")OO
C J C' () ,_,
0 () I ) r ~
t{.,) e-.-I"- I"- I"- C "
0
t- ("..) 0 r- ~ q:"\
C) I"- ( J
C)...--I C) ( , (,) ( ...., ,.;
\,_)...a (..:;, \) ...)
c· "
0
(1..
'J )) ,,) '")
C>00< . OOc)C) J O
(~
J oj' . )
r- r-
(e)
r- t-
r
J
<:>
rj (-)
r,
0
}
I"-
C)
<....-,) C
G
<~;
lc\ I"- C)
n
,j- C;\ ( , , )
~ L!I 0
I"- (,) r l N
I"- I"- I"- I"- ,) (~ , j
'D '0 '0 ~ I"- r- I"I"- r- I"- r- r-- I"-!'-
u
n
C) U\ r l l ' " r l ('J N (-'J N ('.( 0
C' I"-.-l f- r l ' ( ) C> (, C' <
'{) -,;r In 0
r0 0 C) ,,::> C)
I"- I"- r-- I"- I"I"- I"- 1". 1'- I"-
('J
...0 r-
\...-. ")
,-
,
C,) r--1 N (f) C>(JOOOO
-.j-
:.,) ,'-1 "'\J U
f-i
C) ( "I
r-- . -)
r-
<-)
(J
r- c'!
::;. f- N
r--i
C'')
'-1 l!l
_"
() C > N ..:t r '"?
0
(>
r)
0
r l ,,) ,-) LI r
r-
rl
I"- I"- r-r- t'- tC) .'") 0 0 C'
C) \ j ()
'J () r',' (-J
,~)
~
or--
<.:) !'-
c")
0
o ()
O~
o ..
L'1 I"- 0
0 ~ 0
()
(~')
«)
-..) 1'- I"(<) r- I"-
(...,
....)
.--) ,.) -') ,0
0 I"- 0 r l (.J
r~ r-I t',J N
N
I"- 1- I"- 1- 1'- 1'- ;--. I"- r-- I"- r~
I"- !'-. r--- r- r~ r- i- /". I"- r-- I"-
.)
f\ -D I"- 0) 0' 0 r l N '''l --7 l.C\
"-l ('\J ,"'\J (" J "1,'1,'\ (' (,)
'.'J
0 c ) C Co
U () •..:' C) (') 0 .~
(1) <-) (J r )
) (~) 1..:- (J C...
(, C' _, U n r'\ 0 ~ -:j' r ) u n o (~> 0 ,~) n
0
c> () () ( ,(') ,) ,,) C
() C
')
C}
'~(")O.:,('
or-C)
r'"
j- l!\ ,0 1'- C'J ('> (') r l "J {<) -.j- L \
.) r-- (0 ,J'. ( ) r l N 0' -.jC) l.J (J C> () r l r l . - 1 rl..-4 r l .... r l r l r-i l'l 1'>1 r'.( 0J (,)
rl
r- (: (')
r-'"
1-; r l .-~ .--..f r l r---t r l ~ I--i
r-f r l r l r-t ,-4 r-1 .-1 ... ,-( r-f ,-f
I' i
r '"1 ......... i-f r-l .-t r-f M
f-C r l r-I r l ,"-1
r-f ,,--i ,...-i r-t ........ ,-1 r l r-f r l .-i r- 1 r-4 r l ......... r-t ,......f r--t r-l r-i ,-.c r-( .4
C)
f'-
rl·-1
'0 I"- rJ
r--1 N
,j-
I"- c j r l C.J ,-" ,+ l!\ ,,)
N (q r-- :-)
<
I - ()
1-
t--4
(_
C_
--
:::U
L'1 -0 f'·
IILJ
LLI C,' ...J .J I
>0-1
J ",) ,0 I~· ...J
~ rr , c~ COt <..J
C
(')
\"'") t-'
\..:) C) (.I
~,
1'"
I"- -.0 L<')
r-
( , L.)
«
() N
,0
0.) r-f r l C) ' )
1-)
(f)
ILl
V , 1(,
I Ll lLl
C:~
_".
n.. uJ
l.::l
...J LLC>
0
('( : -
...J
VU
l-
L'\\.!j
l
V) 0...:: (J C:'
o
r-
~-1 <{
uJ
_J
>< c:,
G. W
C:.. U r I -
r-"t ..~
)
1-
,~....,
+< +
}C
,~
I J
'-J.)
+
Ol-...JI-<...JO
tl
V
I
o
~~
LLJ LJ l -
u>
LJJ 0
n-
f-
<_
LU
lLl
If)
, ..... -1
f
- i ,~ ,---i M
-1..---i"'-;...-. -
-f
(1.
I j
.,
I'1-·
t -
r--
r,J
.j
( _
t)
1'-
1--
(> -,
r(
,
~
.. )
"
) M
(_,
,
I
'
')...:j- , ....., -..{)
I'J
~
') .-t
.......~
t:\ t"\
rr-
1-1 '4 ~1 -t r-t , .... , ; --f r l ...... --t ,-of; r-i
-t r-i r-f r-I ,.; ,......., \ -i or '" -I ~ 4 r l t -! .,.--f
..;j
]
.:j- .;j-
;t
::::J r) J
()
r-
-.:t
.:j-
r)
• )
D ,1'
-:r
I'-
.,.-iMI ; r - i ( ' - ( "
',"1
"
{'
r(....;'
r--1
) \ ..:
-;.,
'.0 .:J C
(~'J
1I"}
,,:) r-i r l ,-\
r4
,.~
r l ,-'J '<)...j' ,t'\
I " I!\ ,() f\ t!\
(
-1
\.
r- r-
1"- f- .::) ('J f'- r- r"
::> ,... _-() ;\) L C ..~
0
("') .... .:> _"
C'" ('...) 0
. . ., u .. _'
C'
:-i
C'" C
1- l - i
1-" [n \'\..1 C\.1 r l
r-
r l .--4
•
j
c.'
.... --i ---i r-J ....... -t r-1 r--f - i ~ .-1
-I r " ,......, r--i .-1 --I f'" -i ...-; ....-4 r-i
t
.~
r- :'-
,-f
1'- ....:j'- ,......1
r-~
l.
lJJ
r-r--
r-r-- r--
r-
r- ')
'C i(~
l(\
("
..,J ,:) ( .J (._
I
r-
r")
-"')
.. '1
C
Col C I (<)
If) . - -1
'1 f'- ,0
~-",\
("\\ n
('\~
i"-
,~
( ~
>-i.
U
>-
~\r
.-1 1- f"- ,.....
,<\{)r")-
(
"~
..........
..)
()
~O
I
t'
C,O
C'
f)
'. . . : ()
()f'-
J
-
. . . _ ("
(..... r....... ,
( ' ['- C
;t ....
~
"'=' '1 0
r-i ,")
_)
r- r-- c-' r- ('
. . . . ,.
) r-... ,'- ('~\ r- \ ~') c:\ . . .
."\ 1'- ' ) ..... i'- ._
1--
r -(
r-
. 0. ,-i
r-t L" f-/ ,--- ,..., ~ r l r- r l
r 'i
r-i.
r-
C
>-
<
IJJ
I·")
0:.:
r.~
'')-.1
'J) 0
(V
1- 0_
l')
-"[
ip~
~<
I - ()
rL
~_
o-;'I
1-1-
tJj 0 tLl U
!l (,9 [. U t'J .....
1- ()
'.-l
. _ I- . ) 1·- t l
..... ,')
•
)
()L
1L1 ':)
U I - ,,, 1_ ItJ
o
IILl
«
_J
() tJ
l-
.J I-
•
I-
:-
- 0::
u. ') IL-
. :J
I - -1 >-
oj)
-J
~'
o
-<
-1
'(""\ ...:t
, r- r- r- '.
,
, i
LJ
1...'1
)1
-1
.J
.J
'f
o
0
... .0
.-1 ,-I t:\ r ) l"'\
r-- r-r-- r--
I- U
W l-:J -.1
L ::> ".: : : Q')
U I'J Ii W
I; I - I (l:: r l
'f;
f __
~
,f.)
c..
~':
() ,P" C)
r:,
L(
>
l ;)
r~
ILl
iJJ lLl
ILl IU
loJ
t/) -1 _ ~
iJ) I
C I.J
<)
f'- ...j-
..;
-.0 ..0
..J 0
II)
l
C)
0. 'L
--I
-I
T, -::t In -.0 1- .;) .-i N (' 1 ..;j In '0 I'- \.) ,-..; '\I ", ,t If\ ,I) I't!\ Ul I f\ 1(\ ,f\ '0 ,0 OJ) • 0 1) ..I) ..0 .0 1'-. r- r-- I'- I'- I'- r - I'I'- rI'I'- I'- rr-- r- r~
I'- r- I'- r- i'- I~ I - i'rI'- rI'- r ~
I'r- i - r- f'r- ........ f- f~- 1"--
,.,
<:
r- OJ }. .
r l 0"
In Il"\
U
1·- I -
i
0
Co, '"" '. ' '"\
, ) ('-.1 ',. I '''~I 1'- '.1.)
T
,j' (\,j .-t '>f)
r-O
r1- C> .-, i -
(
('
r-l r l
~ r-I
C.J '2' fJ .
r ) ( • .,j- '--..
1.('\ (..) ....[)
f"'- 0
(,")
If\ ;-) C
1.(\ ( '
() C) r:) (::
..:;- CJ . . ~ (r'\
G
C
1' - • ) .-i "..J ,'" -::! L'1 '0 I'- C
«I T
<"'0
rl' t'- -.1 l'''}
U<:i.LLl0J«\ ..... ...JC
fl.
\ )
:::..<
0
0
-.1 C
_l
L-, ( -,
....t
N
O W ......
n:
OJ 0..' I..:': 1--
0 -.1
tll III
C, C
+
1 ++
<~ (~
0«-1
n, IX
lJ! LLl U
L ) ILl ,-,
<.1. n·~
+
r.' ...1
''-J
I- j
+
(~......-t
..:J:
If;
C
~
LJJ .. ;Z:
>
~
-'
'n
«~
<.:<:
!
l LJ
I'- C ( )
LL
I'- lJ
I'-
I.L.
f'-
>
0_
I- 1-
0..
1- "-., U
I- ,.- C U U
>
LL 0. LL
IU I- I U 0..
IX
.J
<
J
lL
0.: t J I
I
1.L1
L~
-~
U
IJ)
f!:'
0.. J > I} I~. 0.. 1- C
I- rJ:: 0.. LL Lf) Lf)
-<
C{
U) . _ (:J
fC
-1 I-.1
\..')
(' J
.'
I..L I L1
L'
(-~
C
r-1
,_
+
o
C)
()
t
+
c:,
-.1 ..0 ('J p_ .-; ( oJ
0
r[]
(J
.-i
f-( .
l>Ij-
(~:
Q.
(~_
(1..
r- 1-
(.!-
( I
<".f
I
( ll
()
l'
(e_ I l
l : 1 - IJJ I- 'Y I U
C:..
( , Ct. I..L (L
IlJ
USEful Note ;¥12
Sl~BCT:
20 Mc..y 1957
Boeing 110;A Servioe Routine Library
CONTrIBUTOR:
~
Title
Entry
Point
Succoee
400()0
00240
Stop
0.0
C~neral
Description
1.0
Dead Spaco Storar,e
2.0
Magnetic Tape Bootstrap (variable block)
3.0
Paper Tape Bootstrap
4.0
Paper Tape Read
40002
00011
5.0
F1.exowriter Dump (octal instruction:;)
40003
00020
6.0
Magnetic Tape Dump (octal instructions)
40004
00051
7.0
Q Register To Memory
4ey)')5
00001
8.0
Memory To Q Reeister
9.0
Set l-1emory To Zero
}~p
00006
,
00001
40007
40000
40025
10.0
Rewind Magnetic Tape
11.0
Restore F1.
40011
00000
12.0
Block Transfer
40012
00002
13.0
Paper Tape Punch
40014
00006
14.0
J1agnetic Tape Bootstrap (fixed block)
40016
00116
15.0
Tape To Tapo Conversion
40020 .
00100
I CALC
CHICK
"VISIO
(bi~ctal)
P"1I
B0 l-:r.lCi 1103A ~ ' r.RVICE R0t'TrlE LEmARY
D2-188h
BOEING AIRPLANE COMPANY
SEATTl E 2. , WASHINGTON
lAC 913 O·U
. .. 7000
-
~~--~
--
OOtI NG ) 10)A SF.RVlCF ROUTINE LI1)RARY
r.r:m:RAL DESCn IP'l'ION
Durin~
the course of prom-am checkout the programmer often hoe need of
information which is not normally suppliod as a direct result of the
operation of the program.
The information required may be i n a variety of
forms and include such items as octal inetruct1one, intl.!r mediate reBul te in
flont~nr,
or etated point, contents of registers, or statements in Enr,lish.
It is expected that the programmers will provide for all foreseeable
difficulties by programming linkages to standard subroutines to provide the
required information.
The diagnostic can be us e d in this fashion to provide
listin(.'8 of instructions in octal or direct statelOOnts r egardinr, difficulties
encountered.
Output subroutines can be used to provide listinr:s of inter-
mediate results.
Because of the extremely large number of contingencies which
mi ~ht
ariee it
i. often impractical (if not 1mpoesible) for the programmer to provide for
all such.
This is particularly true of machine lnalfunctions.
Routine Library is made available to provide for such
Included herein are the
~ervice
This Service
contin ~e ncies.
routine. moet often required to provide the
programmer with the information necessary to diagnose hie difficulty and to
assist the operator in the diagnosis of machine malfunctions.
It should be
noted that roost of these routines are a simple rework of pre-existing
routines to fit on the dead space of the Boeing l103A computer.
The
routines were adapted from the Central Exchanp'e NewBle ttere published by
UVI$ID
CHICk
D
Cook
DATI
BOEINO llO)A SERVICE ROUTINF; LIDRARY
BOEING AIRPLANE COMPANY
SEATTLE 2. , WASHINGTON
UC '73 0 -13
D2 -188l!
rAGI
0 .0
. ·"000
libr"lry.
t rl.Y or all of the service routine!!! nay be ueed by the ~)roP:I'BJTIner
nrCl vi--leri the operator is f'iven a written set of instruc:tions describing the
rO'l tine t.o be used
an~
how it is to be used.
Tbe routines inclurled in the library are packed with a
4
word interlace on
tne rl.ead s:->8,oe of tbe drum where they cannot be inadvertently destroyed.
Jecause of the limited space available the
si.~pl e st
out ~ JUt
of the routines is of the
form (octru. instructions) and checkinR' is kept to a ;.:i.ni.mum.
l::xcer:t ae otherwise noted the routines are written to operate in the first
;lllrt of
~(1re
which is normally reserved for bootstrapping o?Crations, the
'liarno stic an" the
ta~
r e arl or write subprorran.
The general Jrocedure
to initiate the use of a particulnr service routine is as follows:
2.
~ et
~ ;\ }~
1.
Press S TA :tT key.
equal to entry point of rieeired routine.
Computer will stop at location which inriicates
successful transfer into core (or succeBsful exec::tion of the
ron t:i ne in the case of a routine which operates from the -lead
space ) •
5.
rnter parameters on console.
6.
Turn on auxili:try cCJui :ll'TlCnt required (if any).
7.
Press STMiT key.
l
CHICK'
.~7
lIVISID
DATI
D2-188L
.A. ~ '"C:;~IO)ClOO)",,'k-----+-.,-----1II-----+---I
A"D
BOEING AIRPLANE COMPANY
SEA TTLE 24 . WASHINGTON
.AC 973 D·.3
8-7000
BOEING 1103A SER'JlCE
RntJ TI ; ~"'E
LI !JRARY
GENERAL Dr.ECRIPTION
A map of tbe drum dead space can be found on
document
co~aine
pa~
1.0.
The remainder of the
a complete 1escription of each service routine and
it~
computer code in octal.
UV"ID
CHIC.
D.
Cook
DATI
OOElrw l103A SERVICf: RCIUTINE LIBRARY
A"D
BOEING A1RPLANf COMPANY
SE ATTlE 2. , WASHINGTON
UC '73 0 -13
. - 7000
-- --- - -----
J£.RV/C£ /COI.l7/N£.S
/IO.3A
.5PAC~
LJ£Ab
D,f!VM
,
--
;
!
NA'-
•
10 /
0()
710
23"~6
6'Nr~Y
20
tIC
~~EWINO "./'V
1"0 I'1IM~""
1'f2Q 1"£)( I£LSJ'l:'.e£ FI
I .
.
2.~".5
, 710
~Ati!T
.30
2~
/
L300TS r A!A P
(VAL/ANI LJLOC,K)
t20
I
I
.dZOOO
/'M.N£ T/C ?AN
/0
4
.4
" 710
-I-!J 6 1
Ie
TA..P£ TO 1"-4P£
CONve,eS/ON
,oA.eT
./
I
10
1
I
44000
1
2.J -I-~
"
00
/0
20
,PAL! r
ICL~..u C'~
I
I
,10
6Z000
I
2.J 4.6 6
TO rA~~
CONv£.eS/ON
.or
I
~
2
.tid
e.
.3
.,
,PA£T
/'f.
I
!J b
7
I
2.3
r.
6
710
20
TA,PJ! ,e£A~
PA.er
.30
-1-0
LJ7
1
rc Q
j
74000
10
.,.0 rA.Pe
PA.er
r io
'pA-er
IT
66000
2.3 .tI.!! ~ 7
I'fA6NErJC rAP.
/
..,~uzr
,PA,.f? .,.
~~
,e~AD
.or
r-eANS.'"E£
I
tJ/OCrA~
/
" 7
~~ T. 8, (~/~'D)
I
I' 0
£)V/'fl-
I'fA6NETIC 7AP~
.Jf)VMP
,PA.er
23 4.5
8~C>cl'(
I
2 -' 4 .5 6
I
PA,PI.e TAP£'
ff
~6000
.I
R~VI SE D
I
I
~
.D Cook
0
I
CONV,.,eS/ON
00
~A,P£IC
1
17'
(VA~.)
~.
I
.,~
I
64000
2-' 4.6 6 7
TA~~
I
46000
~
A4.er I
PAK!r .LJ1'
54000
./
I
T
72000
PAI"I-e TAPE REAP
T.A~£
MA6NI!'TIC TAPE'
L)Vr"fP
I
,pulWl
I
110 I
40
10
C .,
4-~
I
TAN TO TAP£
,ONVE,eSION
,.30
CH~CK
J
~~~~\.~"'t
I
CALC
2
n£xow~/rE,e
Pt/ItKN
40
10
I
PAA!T I
II
~~r
I
",e 000
I
I! ..!I
I
"/ocr~
I
I
(JO
710
rAP~ 70 iA,I'L
CONY4~SION
~
10
~
PoINrS
/0
..}()
2:14~
I
'
. . 70000 .,
60000
.50000
40000
o
16000
I
2.a
PIiIP.t'£
117
-It!
.,
.,.
rAP£:
~OO"'ST~P
PtI,vCIJI
.II
~
~~~
DAH
Co o if
., .~AJ, ·
.li Jir,' ~ ll() ):. ~ .i·,I·· ] Ci ; ;\.()l" lT · ;:~ J l 1fifl RY
f)?
BOI:ING AIRPLANI: COMPANY
PAS"
APR
APR
0
SE .... 1TLE 24 . W .... SHI .... GTO ....
' ... 0
I
·
'.
.
MAGNETIC TAPE BOOTSTRAP (VARIABLE BLOCK)
PURPOSE,
Read the firet block trom maRrietic tape on servo nwnber 1 into
magnetic ·core beginning with location 8(00240).
ENTRY:
1.
Set Drum to ABNORMAL.
2.
Set PAK • 40000.
J.
Turn Unieervo #1 on.
4. Prees START key.
5. Set
6.
Computer will atop with PAK • 00240.
Drum to NORMAL.
Prees START key to proceed.
STORAGE ASSIGt\TME:NT:
1.
This routine occupies "dead space" locations u2000 thru 42047 and
54040 thru 54047.
2.
This routine works from MC locations 00000 thru 00044.
LIMITATIONS:
1.
This routine assumes that the first block on mapnetic tape was
written in the variable block mode with an 18 bit chock sum as the
l~st
2.
~
CHIC"
word of the block.
This routine does not check for parity errors.
P. LobdnH li ... r,7
D.
Cook
lIV1l1O
OAT'
90E ING l10)A SF:RVICE RC'll TINE LIBRARY
D2.,AAJ.
A"O
BOEING AIR'lANE COMPANY
UATTLI 14 W'AIHINOynN
lAC 913 p . 1)
'A&I
2.0
COMPUTEH STOPS :
In the event that the readinr, of information from tape i6 incorrect
as indicated by a check sum failure, this routine will attempt to
re-read the information at high and low bias.
In the event that the
rendinr still fllils to check the computer will stop with PAK • 00 2)J()
and M:'I' • 0003L.
In addition, the "low bias" statuB will be intiicater.l.
To ipnore the chockeum failure teet Drum to Nt m.>v\L ano pres s the
key.
To try reading arain do a MASTER
r.LF~
~ : T:
RT
and press the START key.
A successful rr>adinp, of informAtion from tape is indicated by the
computer stopped with PAK '" 00240 and I"CT .. ()f)035.
_<;:A~C ~ P. LobdeJilL~.7"---1lt-l_IV_IS_I_O-+_0A
_T_I-I
~H~£~ P. C=o,o~k_-+I __~.___-I-_~
1"'0
t -'--'-"--t-- -- - - f - - - 1t -- --+-
t--------------------~
----I
80EING AIRPLANE COMPANY
UATTlli ••
IIAC 913 0 RJ
WAU~IN'no""
--
'04_5
2 .1
----
-
4.2000
17 00000 ~2047
~2001
75 ~OO45 00003
42002
11 42003 00000
42003
45 00000 00003
42004
4, 00000 OOOOJ
42005
37 00000 ::>OQCYl
42006
17 ()(Y)OO 0004.3
42007
2 ~ 00045 ()()045
42010
16 00035 800:4
42011
76 00000 32000
42 012
47 00010 00(1 )
42013
~3 OOO )G 0001.3
42014
43 00037 00025
42015
45 00000 00032
42016
76 10i)()Q 31000
42017
11 31000 00240
42CY.?o
11 31000 ,) 0047
42cY.21
51 000 40
.3~000
42022 . 55 31-100 31,) 22
.
420'2.3
52 00040 32000
~2024
22 1)')00 ()OO46
42025
:,5
42026
21 ')0014 OOO)f::
42027
45 00000 00')06
_ . _._ -- - - - - -
CONTRACT NO.
()():)4 '5
00045
--- - - - -- - - - - - - -
IrAvE 2.2
420~0
17 OO!)()O 00041
42031
31 00045 0< 10,)0
420)~
34 0004, .' 00000
42033
45 00047 00035
42054
45 00000 00053
4203')
17 00()f)() 0 1)041
420~
17 00000 0001.2
42037
37 00034 54040
42(4)
5r::: 00000 0021~ 0
42041
00 00000 <--lOOO 1
42042
00 OO!)()O 0000?
4204~
' Xi 0(0 )7 77T77
42044
02 00600 00000
42045
CY2 00014 1·)001
42046
02 ()()()(Q l OOOu
42047
02 00200 10000
54040
17 00000 5404(~
54041
)7 00034 00003
54042
17 00000 42007
54(4)
37 00034 00003
54044
56 00000 00240
54045
02 ooo6~ 10000
54046
IX' \X)001 ( O:)()'j
54047
Cf? 00001 70000
CA~~__ ~ P .Lobdell L"!'~l
.£VISED
,
t
OAlf
iD2.l88h
~~~_C~=~~ ~~_~k L ~~----~-i-- _,_3_(_E_H_W_l_l_OJA
__S_::R_Vl_C_E_'-::-R_CU_'_I_
'!' I_N,-E_L,--Ii_3?_'AR_Y__
A~. ___ _- 1 - _ ___
_ __ _ __
1
7
CONTRACT NO,
i_ --.JI~I- ----~I -- ---
BOEING AIRPLANE COMPANY
SEAm! u, WASHINGTON
-1-------------------------
-
-
-- - - - 4
. ,-
~
~.
PAPF.R TAPF. ROO1'S'rRAP
PURPO~F.:
Read a bi-octal paper tape into the addreRsable memory.
EN'ffiY:
•
1.
Set Drum to ABNORMAL.
2.
Set PAK • h0001.
3.
Press START key.
u.
Set
nrum
Computer will stop with PAK • 00006 •
to NCRMAL.
5. Turn on Ferranti Reader.
6.
Press START key.
STORAGE ASSIGNMENT %
1.
This routine occupies "dead space" locations 7f.1X)o thru 7Mhil.
2.
This routine works from HC locations 00000 thru O()f)hl.
LIMITJi f10NS:
1.
Information cannot be read from paper tape into Me locations 00000
thru OOOhl.
2.
The following information MUst be punched in the tape in the 'o rder
indicated.
a.
Single seventh levol punch.
b.
Insert address (six frames with seventh level punch on third
and sixth frames.
CALC
CHICK
CC)ok
Cook
L-S7
UVIIID
DATI
1-------------------4-- :- -:---
APPD
AP'D
.=..:...::...-+-- - --+-- -H----4---I
lAC 97)
o-u
BOEING AIRPLANE COMPANY
u.nu I. WAH.fIN4TOM
,1.$.
3.0
PN'ER TA PE 8Co()'F,;TI/.AP
LIY.lTATlON:.J :
c.
(c o ntci.)
Bi-octal computer words (six frames each with seventh level
punch on sixth frame only - routine assumes frame immodiately
precoding first f'rame of word, i.e., last frame of orecedin~
word, contained a seventh level punch).
d.
Optional check address (a computer word with seventh lev~l
punch on fourth and sixth frames whose value is
~ual
to thp.
insert address plus the nlmber of worrls read).
3.
Thie program does not recognize the double seventh level punches
used to indicate an end of tape and will continuo to r ead tape
until a f'()RCE STOP is executed from the console.
L.
The reading of information destined for rnar;nc t"i.c c ore only can be
accelerated slightly by setting switch l :J) whi ch
sup pre~8es
the
Ferranti stop after every sixth frame.
COMPUTER STOPS:
A check address failure is indicated by the eX"oc\Jtion of a PROrnAM
STOP(S7) command.
CALC
CHfCIC
Cook
Cook
1.1.-57
IIVISID
DAft
BOliNG AIRPLANE COMPANY
stAnll I. WA1>HIHGTON
.... c
973 0 tl
~~_~k-
!:
40001
45 00000 76000
76000
75
76001
II 76003 00000
760(12-
5(~
7h003
45 00000 76002
76004
45 301')00 00003
760CYj
17 00000 00040
76006
11 00035 400o()
7(,007
21 00003 00037
76010
45
7 1)01 1
17 00000 0004l
76012
76 00000 31000
7tSon
31 00035 :x>006
7f)014
52 00027 00035
76015
31 00056 00001
76016
52 00030 31000
76017
51 00030
76020
4~
76021
43 00031
76022
43 00033 00023
7602 3
45
(X)()()()
000..17
7 C0 24
16
ooo~5
00003
7oSO'': 5
45 00000 00007
76026
11 00003 '32000
76027
3G 00034
COOk
. C,OQk
~0042
OOOOr) 00006
~oooo
I
!
::: =t=-----+:----11~I
I
-
00007
oooy)
00032 00001
!l "".57
:
7()OO2
000~1
~?O()O
IEVISED _
I
DAT_!
-- r--
---- ~
,
--=
'Y
''' T~r; 11()3A ~.tli1:Irr~ R( 'P 'J't\E
----a-o-e-'N-G-A-'R-PlA-N-e-C-o-M-P-A-NY-- - - - -
1- - --- -- - - - -- - - - - _·_·- - .- - - CONTRACT NO.
.
QL
1,TVl_18Y-'L_
1.
T TlR,"PY
jJ.L.
--"I.
SEATTlE 14, WASHINGTON
,
16030 43 00035 00007
, 16031 '1 01010 70101
76032 00 00000 00077
16033
00 00000 17700
16034
00 00000 11100
16035
00 00000 10100
16036 00 00000 10500
76031
11 00035 00000
76040
00 00000 00000
76041
00 00000 00000
76042
00 00000 0000 1
76043
10 00001 00000
76044
10 00002 00000
.
•
-
CALC
Cook
CHECK
Cook
.vI
A'I
I
I
I
/3
CONTRACT NO.
L-57
IIVISED
I;>ATE
~OE ni (j
,
-I
f---.-
110)A SERVICE Rnl}TINE LIBRARY
D2_188h
BOEING AIRPlANE COMPANY
SEAnlE 14, WASHINGTON
'AOf
3.3
..
-~
--
-
1.
". •
t:.
~
•
7urn on Fcrrant,j
~ea'k r.
f..
Turn on Flex0'rrri ter.
1.
This
r011tj
72()1"'\()
2.
ne occupi~s "iea d space" locations
thru 7':>'1;1
an~
7L·YY) t.':1r>: 14031.
This routine work s froITl core loc ,c,t b ns OOl)on thru 1)0137 and uses
locations 1)0140 thru
1.
1./'10n thru 4(')46
(n 177
.9.S
~ rasable s torar€.
InforMation cannot be r l!Mi from paper tape into :!C locations 00000
thru 01711.
2.
T':1e followin l~ infor:nation mu.!:t be !lU.'1~hed in the tape in the orrier
ind:icatcd.
I
~i£a.Qk
~uncr..
a.
Sinp1c seventh level
b.
Insert Aodr!ross (six fraMes with s.eventh , Hvel rmnch on third
.. -
) ' C; 7
UVISID
DATI
.<;;!'4 fCW+Coa.k.. .. -- - . -1r----~---t__-_t
~~A~PP~D_t-----1---lI---lr--~----------------------------------------~;~--- ..
APPD
lAC 973 0 ·13
BOEING AlftPLANE COMPANY
~u.nL.l
14
'A$I
It •f")
c.
di-octat cOMpu t.e r words (six frames each wi th sevp,nth level
tnmch on sixt:) frBXIe only - rf)utine
worri, contained
rio
O/-itional check
O 50D
74023
00 00000 00274
74024
00 00000 00001
74025
11 00133 02000
74026
75 30000 00077
74027
00 00000 02000
74030
00 00000 00000
74031
00 00000 OO;)CO
9Qk
I~
!
~
• ;;-- 7 -- ---- I
CooL -
- ..
AP.
"'''
-
-- ~- .
-
:
REVISED
.
f--- - - +- -- -
..
I
CONTRACT NO.
::l(:~: I'm
llf)3A :-.SR"ICE RC11':TIE r.HIP..ARY
D2~t1Q.L._
~-- - .
I
- ------ _----:---- r------t---I
- - - -- - - ---------- -- - _.__I._ -
-
1
DATE
BOEING AIRPlANE COMPANY
SEA"lE '4. WASHINGTON
- - ---.---- - I 'AG!
4.6
I 'UR 1'>();~EI
Print small blooks of inetl"1lctione from tho addressable meJOOry
in ootal on the n~xowri ter.
Sinoe this is a reln ti vely slow
prooess, duMpinr, with this program should be restricted to few
instructions.
In general, blocks of 8 instructions or more should
be dumped with the octal dunp (eee next routine).
ENTRY,
1.
Set Drum to
2. Set PAK •
J.
~3NORMAL.
LoooJ.
Press START key.
Computer will s top with PAK • 00020.
L. Set Drum to OORIIU\L.
5.
Set' location of firet instruction to print in u-addres! of Q and
number of instructions to print in v.nddross of Q.
6.
Turn nexowri ter on.
7.
Prese START key.
STORAGE' ASSIGNMENT:
1.
This routine oocupioe "dead space" loclltions
70000
2.
thru
LooL2, LOOL)
and
'
7ooL7.
This routine works from core locations 00000 thru 00047.
LIMITATIONS I
This routino will not pr~t more thnn 8(1000) • 10(512) words.
~cD.Cnnk
CHIC.
n
C!nnv '
HOF.l' NO 110)A SF.RVIC F RO!l TDfE LIBRARY
D2-l85L
""0
""0
IOEING 'AIRPLANE COMPANY
IIAnl& .. ..
lAC." o·n
'£0'
;:;.. .."IN
'A~
').0
CALC
CHICK
40003
45 00000 40042
40042
75 ~OO50 00047
4004;
II 70000 00000
70000
45 00000 00047
7000t
00 00000 00004
70002
00 00001 00001
7000~
00 00000 00007
70004
00 00000 00045
70005
·0 0 00000
70C>06
00 00000 000 ~7
7000'7
00 00000 00052
70010
00 00000 0007 4
70011
00 00000 00070
70012
00 00000 ()()()64
7001~
00 00000 00062
700J.4
00 00000 00066
70015
00 00000 00072
70016
61 00000 00006
70017
00 00000 00000
70(120
15 31000 00027
70021
16 31000 00017
70rt22
61 00000 00005
70023
45 00000 00044
D. Cook
D Cook
lu-57
~7
tlVlUD
I
OAT!
BOFING 110)A SERVICF R(iTT TD lE LI3RARY
APt
APt
.D.2 ..1BBh
BOEING AIRPlANE COMPANY
- -_._- -- _._..-
sumE I', WASHINGTON
CONTRACT NO.
PAGE
C;.1
CALC
CH!CI(
70024
55 000050 001 57
56015
41 00157 00057
56014
45 00000 00135
56015
17 0000:) a0 155
56016
II 00145 00160
51S017
77 10000 00150
56020
75 loon) J0064
56021
77 10000 00151
56022
41 00 h )O 000(.2
56023
45 00000 001(4
56024
17 00000 0015')
5':025
75 00024 00G7 1
5(;Q?(j
77 10000 0011.1
~0040
5()004 .
_. _____ _ __ _________ - _ __
BOEING AIRPLANE COMPANY
:,. ..
__- .____ •
, .ll2 ~lillili
II
I
!
_. _.
-
SEATTlE 14, WASHINGTON
,-
CONTRACT NO,
."C
IJ ....... - '"
,r " C,t
(,.1
._ .
560~0
17 00000 00156
560~1
16 00075 00114
560~2
75 10024 00076
560~3
11
001~1
00172
56034 55 00102 31006
56035
11 31000 00170
56036
37 00116 00105
560~7
11 00145 00160
56040 .11 30000 00170
"
56041
11 0014, 00102
56042
37 00116 00106
56043
11
56044
11 (xn41 00171
1016~
00162
56045 55 00170 00003
"
if'
54000 31 00171 00006
52 00146
54001
~2000
54002 35 00144 00171
41 00162 00107
5400~
54004 II 00171 30000
54005
21
00114 ' 0014~
54006
~7
00116 00117
,
54007
37 00116 00105
54010 21 0010'2 00142
54011
41 00160 00123
~_A_l_C_ _ LL. ~Phpb
.:HECl -~ Cook i
~::
I ---- --- ,
1-r;7!1
,
Ii
>
- -- - -
-;
t
---
(;
CONTRACT NO.
I
.fVISED
~~- f - - -
JI
.
II
I J22.~~e f.k. -
DATI
3(; 1::1 NG 1103A
, .3~WlIC::
IWU Tn2·: LBR/,hY
- - -_.,
I
I
._-
BOEING AJRf'lANE COMPANY
SEATTlE 14, WASHINGTON
.. .
- _. .- -
j - - --
.- .
---
I
~
I 'AOI
6.?
54012
~,
54013
41 001,-, 00102
54014
11 00000 001'5
~01'
15 10024 00121
~16
T7 10000 00112
~O11
17 00000 001,6
,4020
41 00161
~OO1
45 00000 00055
54022
41 001'1 oooT~
54023
11 00000 00155
00000 00124
001~2
,40'24 1'5 00024 001}6
11 10000 001,4
,4026
11 00000 00156
54021
31 00137 00140
'40~O
56 00000
,4031
00 00000 00000
54032
00 00001 00000
54033
00 00000 00001
540~4
00 00000 00003
540~'
00 00000 00005
540~6
00 00000 00001
54031
00 00000 00071
66000
31 0046, 12600
66001
00 00000 051,2
CAL<:
It
CHICK
hr.",,\,
",.
..
54~
~PhP.
IIVISIO
},_~7
,
CONTRACT NO.
•• c " .. ,
It. • • ,
.
.
DATI
BOEING 110JA
"'I
,. 'J
,
000') 1
~ERVICE ROl: TI :n-~
BOEING AIRPlANE COMPANY
SEATnf
I~,
WASHINGTON
~~1.86LL
LIBRARY
--
-------I
--
'''Of
---
6. J
--
~
-.
. ..- .. _.
-
66002
00 00006 70000
66003
00 00007 -00000
66004
60 00000 00000
66005
02 00066 20000
66006
02 00600 20000
66007
00 00000 00000
66010
00 00000 00000
66011
00 00000 00000
66012
00 00000 00000
66013
00 00000 00004
66014
TI 10000 00141
h6015
17 00000 0015(
66016
45 00000 00066
66017
00 00000 00000
.
CALC
1---
CHfCI(
A'R
i L Mc~-4-S7
J ~. _Cook
-, -
!
'
-
I
CONTRACT NO.
• "'C U.' A •
,It
OAT!
BOEING
11~3A
SER', IG~; R(lljTI !rr: LD:i.ARY
1
--t-----,1
A'.
I
REViseD
BOEING AIRPlANE COMPANY
SEATTlE 14, WASHINGTON
._ .- -- ". -
-
I PJ"-~~8IL
- -
j----
-, -
I
1. I, v E
6 .1~
I'lTHPc; .F :
Transfer a word .f'roTTl tho r~ rOf'ister to the w!rlrr.ss,')ble TTlerory.
Followinr, the succe~sful tran~' fer, the wor~ 18
rlj
13played in the
accumulAt.or for checking.
f~ot
2•
~~e t l' hK
3.
Preas STMiT key.
L.
Se t Drum to W·\Htv1AL.
~.
Set location to store woro in u-arlrlress and v-arldres8 of A ri{"ht.
6.
Enter word to store in
7.
Press S TMlT key.
P. .
Hord trans ferred will appoar in A for chockinr..
~ T(lR"GE AS~
]) .
A"O __ ~
., Lo005.
Co:npu ter will
with r>f, l(
,.
routin~
occupies "rlcac'!
locntions hf)()30 thru LI)()J7.
This
2.
This routine works from f-iC locations f)00(y) thru
c() 0 k
OWYIl.
rer,ister.
1.
SOReol!
')(y)o5.
!Jone
. _L.;-::,". . .....7~ -1I--_l_IV_IS_I_D---t__DA_T_i-l
t;9 Q~ _.. _t-.----~-----4------I
____._____ ____
_______+ ___
.,!"'_~
~
~;t op
IGNHEN T:
LP-':IT/\T:TO:C. :
..CALC ..
Drum to AWJG I,YU\ l •
1.
~
I
~
1
.1
. , • .."
,I '
~
...---------------------4'A'-.--7
BOEING AIRPLANE COMPANY
HAnlf 14 WA1HINGTON
SAC 973 U 113
.0
~
-5
00000 40030
400,0 75 30006 00005
40031
II 400 32 00000
400}2
45 00000
400"
400,..
16 32000 OOOO}
400},
II 31000 00000
-.oo}6
II 00000 ,2000
400'7
~ 00000 00001
~
l, 32000 00004
.
CALC
D Cook
CHICI(
D Cook
h_~1
II!YISIO
API
API
DATI
AOF.ING 110)A SER VICE
RO ; ! TI ~iE
• - AC'-JHl~.!Il-_ _ _ _ _ _
.D2-188L.
BOEING AIRPlANE COMPANY
SiATnl! I., WASHINGTON
CONTRACT NO•
LEmARY
- ------ ----1
PAtH
7.1
_=============::::=====__====___
~:J
•
~lEi·!oR Y
~ ! ni~SE:
TC Q
RE~1 ~ 1'F.R
Display a worn in the andressable memory for visual ins pec tion.
The word to be displayed will appear in the
(~
register.
ENTRY:
!\ 3~O R~:AL.
1.
Set Drum to
2.
Set ?A~
3.
Press ~-· 1'Ar~T key.
4.
Set Drum to
,.
Set location of word to be displayed in the u-addrc ss of /, ri r ht.
6.
Press STAHT key.
s
40006.
Computer will stop with PAK '" OlY)nl.
NC R~lAL.
7. Word to be dis played will appear in the .... reeiste r.
STORAGE
1.
A~~SIGm,:nIT:
Thie routine occupies "dead Si>8Ce" locations uooho, L()!)41 and
720hU thru 720L7.
2.
This routine works !'rom Me locations 00000 t hrn O')()OJ.
LIM:-TATICNS:
None
~" E" ~Ow.)'kl:lo.--+.....ll~,_~C;:.J......j'7t--llV_ISID_+-D:....A_T1~
CHICK
J2-l8 24
.i.l. Cook -+---1~---+---I
... "D
BOEING AIRPLANE COMPANY
SlAma •• WADCINa,oN
BAC 973 D·U
'1.$1
8.0
40006
45 00000 40040
~
15
}~ OOOO}
40041 11 72044 00000
72044 45
00000 00003
1,
}2000 ()()()()2
72046 II
00000 31000
56
00000 00001
72~'
72~7
.
CALC
CHeCk
A'.
. In
Cook
I D•. Cook
I
CONTRACT NO.
e.c
IIVIIID
i
I
DATI
U". A . . . t
.IYl-J.8§L
BOEING 110)A SERVICF RCJC TINE LIBRARY
I
A'.
- ......
L.-r)7
-
BOEING AIRPLANE COMPANY
SEATTLE 14, WASHINGTON
-
-.... -
. _-_.I PAO(
8.1
' .
SET
PURPOSE:
r.U~:r·10RY
TO ZEHO
Set all of maRne tic core memory to zero.
This routine works from
the drum dead space.
ENTRY:
1.
Set Drum to ABNORMAL.
2.
Set PAK • LOOO7.
3.
Press START key.
stop with PAK •
After clearing all of core memory, computer will
Loooo.
This routine occupies "doad s pace" locations 6001.dJ thru 61oL7 and
works from these locations.
LI MITAT10NS :
1.
This routine assumes 1'1. (location O()(Y)O) cont.aine n Hanual Jump
command prior to entorine.
2.
Fl is set to zero by this routine and must be restored before
proceeding.
CALC
fl • . Coa.k____ W l _ tt-_ l_E_VI_U _O--+_ OA_' _I - j
*-_____.~__~
CHtCK~ .-Co nk __4-____
;lCUU G 110JA
~·~R '.ilC E
WU'I'UL .l. l;lRARY
)1"0
BOEING AIRPLANE COMPANY
Sf Allll 24 .
lAC 973 0 Rl
WASt~I NG T O N
40007
45 00000 6004.~
60<>"
." }T771
~,
2, 00001 00001
~
60046 2} 00000 00000
60047 56 00000 ItOOOO
CALC
D. Cook h-57
CHECK
n
(,,,,,,,"
.vI
A'I
IIVIIID
DATI
BOEING 110)A S~RVlCE RauTI~~E LIBRARY
BOEJNG AIRPLANE COMPANY
SEAmE 14, WASHINGTON
CONTRACT NO.
e .. c n •• -' ...
,,~
..D2.-188h
-
-- "_ ._.-
'''019 ..1
P!;RPOSE:
Rewinri:l rnrnctic t ape from the console.
froM the drum dead
This rOll ti ne works
~pace.
ENTEY:
3.
Press :'TATf key.
L.
r,nter number of servo to :.e rewounri in '\4 thru ..12 •
5.
Press
~TAHT
ThiB routine
Comp'lter wi.ll stop with
,;' 1.1:( '"
4·'1')25 an ti ( ",) ."
key to rewind tape.
OCCUpiBl3
"rjead ~ PAce" locations L!r)!)21 thru i!-,f)2 7 anci
works from these locations.
LI !~TAT::ONS
:
Tile servo n'JJllber entered in .. Must b e one of the lO I"icnlly ;)s!dr-ncd
servos and must be re;:d y.
g.~r:
IlJ. 1=~ 4-51 1 ' ' '10 ~o:~
CHfCl( D
.. . .-. t-=" •
A"O
A"O
i
il
' I
.
r,"
... . - J "
,"
.. .
'
.
"
L
----':~--~---------------------------------------1
t-'-'-'-'--:.-+-----~--~:rl-------<- ---BOE I NG A I RPLAN E COM PAN Y
PAGE
I _ _~
II _ _ _ _~~~_ _ _ _ _ _~~~~~~
SEA' l tt 24 . WASH IN G TON
('\
~~~_ _ _ _~
_ _ _ _ _ _~_ _1'"
~~LSAC 973 0 ·R3
40010
~5 00000 40026
4002~
02 00200 00000
40025 .11 00000 }looo
40026
I I 40024 }looo
40027
56 00000 40025
,
.
,
CALC
B LaIll!e h.."7 .
CHICK
D
IIVIND
!
DATI
Cook
30EING 11 "l)A SERVICE ,{OU TrE LElEARY
An
An
i
CONTRACT NO.
BOEING AIRPlANE COMPANY
I
I
SEATTLE 14, WASHINGTON
- -- - - - - - -. .----.--- -.- --
I_
P2-18J3~_
------1
1__ __
.-
I
l 'AOf
-
1 0 .1 j
.._;-- T"
PiR ,'\ ;T:
"
,' J
I
Restore the cont(·r:t.s of F1 ', 1ocation
The v-a -Irlress
COl1'l!"1a11rl.
~)ort:ion
VyvY~)
to n !1:::nu C!l Ju.1!1p
of Fl. wil] no t
b8
altered.
E;; TRY.:
oriM.nal contents of !-1. will be
riis~ J1ayed
in
!«.,; ..
l.
,.·et ' jrum to
C; •
?ress ,- !'/ 1· T key to trrtnsfer to f1. ;m'! continue.
\;i
This routine occupies "dearj s onc e" locr1t icms l{))iili t !Ull )/)i)J 7 ann
works from these locat:ons.
cm1i'l 1TLR !' 1'?S :
No ne •
~~~' . i;9~* . _~~~7 __ ~~~s_~. .. ~. o~~ __
~CK. i-,.;J. ~Qk--T---
""0
i
r
:r
I
il
BAe 973 lJ R3
- -. -....- - - -
---. ~--- t_-----------------4
-~-
BOEING AIRPLANE COMPANY
' 1.A :I l'
24 . W.A )HI~ C,TO N
'AG1f
1
.,.,
.
I
~0044
40011
45 00000
~0044
11 00000 31000
40045
II 4OO 00000
40046
16 31000 00000
40047
56 00000 00000
.
CALC
I
I
D
- - - ---1-- -
Cook
h-'57
CH!~ 11. .J:o..ok
API
- -APR
- ---
I
- - - - _
9GEING 110)A
~, ER vl:C;;:
;.tOTI TI'ffi
;.D2. ~e au. __
I
___ .__ . __ I
LI3RARY
.
I
BOEING AIRPlANE COMPANY
I
CONTRACT NO.
I
DATI
IEVISID
SEAm! 14, WASHINGTON
._-_ .. __ -.. -.
j . ._--- - - -
.
i'A Ge 11.1
Transfer a block of consecutive
PUR?OSE:
within
thca~riressable
wor~5
from one location to another
memory of the compu ter.
ENTRY:
L~012.
2.
Set PAK •
3.
Press ;;,T/· RT key.
L.
:Jet Drum to N('Rr.AL.
5.
Set present starting address of block to be transferred in
Computer will stop ..nth ;',A.lf
r
()IY)()2.
u-address of r.;..
6.
:Jet desired startinr. location of block in v-a:iriress of Q .
7.
Set number of W'Ords to be transferred in u-adciress of A.
8.
Press START key.
STORAGE ASSl GNMENT:
1.
This routine occupies "dead space" locations 7LnLo thru 7LoL7.
2.
This routine works from core locations oon()l') thru 00005.
LIMITATIONS :
All words to be transferred must be contained within the addressable
memory both before ann after traneferrinp.
cowur:;'R
~'1nrs:
C lC I De
_1~
d:-----t
• . OUA
None.
~7
I
1 __
REVISED
DATE
. - -t-~L
" 4 - i l f - - - --+---I
~MKKQ.~
C=~oollk~-+_ _~_ __
~_~
~n~~ ING
110)A
~ER~,rJC::: rwun~~
J. I3!tAJi. Y
A"D
~' I
.
1
SAC 973 O·R3
BOEING AIRPLANE COMPANY
SEATllt 24 , WASHINGTON
,? .n
'A~E
,
40012
75 }OOlO 00006
4001}
11 74040 00000
74040
45 00000 00007
74041
7'5 }OOOO 00007
74042
}'5 00001 00005
7404~
15 31000 00006
74.044
16 }lOO0 00006
1404'5
75 30000 00007
74.046
II 00000 00000
74047
'56 00000 00002
.
CALC
ID.. . Cook
CHECK
I.D.
API
I
A,i
I
J,_~7
IfYlSED
1
DATI
Cook
BOEING 110)A SERVICE ROUTINE LIBRARY
-
i
BOEING AIRPlANE COMPANY
SEAm! 14, WASHINGTON
CONTRACT NO .
~~lB8~
.-- ..- .- --_....- -
-- --- _. _ .__..
' l , ;L
12 .. 1
:. :'. ----------------I!II_I!!I!!!!!!!!!!!~~~~~~~~~~
• "C \7 •• A • •
~' H:)(X) E:
?unch a block o f a ddrcssa'ble
r.(! :-~o ry
into
ta :Jc in bi-oct;;l
:1~: )t~ r
Ei'rrny:
1.
Set Drurn to A ~'l(TI :: ..'d,.
3.
rl--
L.
Get Drum to
S.
Enter location of f irst \.jor:! to
, .
r'· ,, ·
: .n::SS ". ·.. .
" 1
1
key.
t'
'T:J'.J .
punc ~;
the number of Hords to be IJunc he n in t
6.
.1
Computer will sto n Hi th
in thc
1C
v-a ' l ir '_~ ss 'i f
BUIll.
7.
:Jet EJ? to 3U ;J;Jr c ss punchinr c :,cc\.: stm' only.
e.
Turn high speerl punch on.
9.
Press
1.
Tl--tis rO'Jtir!e occllpks " ' !e:: '!
2.
'!'his routine works from c l')rc' 10c:!t icJns OIl')!)!) t l 11"U
:":' TM~T
ke y.
~ : ",-('(: "
1ocati onc 4n()() thru (;rYl !.3 and
,
()f)f)i,t:; ;mci us~s
locat 'i one .'V1272 And "'11273 as cras'lblc f' L: rape :or the
L'::: :-:n.\ ~' IO ~;: :
",po
8A C 973 0 R3
c ~leck
sum.
:/0 riC
.,.
__ _ ... _ _
~.
Set : iJl to su :>nr c ss punchinf, of insert and c hp. ck a ~ ' lrv sses [,JIld
check
~_-PP
,-,_ ",o~_
~~ a n~!
of
'.l - a · 1lir,) SS
~_
. . _
_
,
I.
"
'r "
I
l ...
"
.'
-r
: :,.:",'
.
- ----- ---r---
- ~.-.- -
BOEING AIRPLANE COMPANY
', f A: ! l~
2 • . W AS H IN G TON
PAGE
13.'1
CALC
CHICK
40014
45 00000 60000
60000
7'
60001
II 60004 00000
60002
75 }0026 00065
6000,
11
60004
45 00000 60002
60005
00 00000 TfT77
60006
00 00000 00000
60007
00 00000 00000
60010
00 CXX272
60011
75 20000 00060
60012
." 20100 00010
60013
6, 47701 0000,
60014
45 10000 00021
60015
75 2000, 00013
60016
6, 47176 0000'
60017
,1 ,1000 0005'
60020
6, 00000 ,2000
6O~1
54
60022
6, 00000 ,2000
6002'
54
6o~4
6, lOOOO
}2000
6oCl25
16 31000
()()()()2
60026
,1 00002 00017
60027
'5
D Cook
D Cook
API
API
,oot.o
~o
60002
()()()40
(X)()(Y2
~OOO 00006
,2000 00006
()()()()5
h-r)7
00056
IIVISID
I
DATI
. B0EING 1103A SERVICE ROUTINE LIBRARY
D2-188h
toEING AIRPlANE COMPANY
SEAmf U, WASHINGTON
CONTRACT NO.
11'.01
13.1
,
600~0
1,
60031
45 00000 00041
600~2
15 31000 00027
600~,
~1
60034
6 ~ 00000 32000
600,5
54 ~2000 00006
600,6
37 00032 00033
60037
37
OOO~2 ooo~o
60040
37
000~2 OOO~O
60041
37 00032 00030
()0042
37 00032 00030
60043
63 10000 32000
~1000
00057
.
00000 00052
...
,
CALC
CHECK
API
AI'.
66020
21 31000 00001
66021
41 00002 00026
66022
45 10000 00064
66023
75 00003 00045
66024
63 00000 00003
66025
31 31000 00055
66026
63 10000 32000
66027
54 32000 00006
66030
63 00000 320')0
66031
,4 32000 00006
66032
63 10000 32000
66033
37 00053 00054
b.
p.
Cook
Cook
II_c;7
IIVISI!D
:
DAn
90EING 110)A
~ERVICE
l_ m~§.ruL
R0U 'rI KE LIBRARY
I
I
I
CONTRACT NO.
--
BOEING AIRPlANE COMPANY
sunLE 14, WASHINGTON
I
- -- - - - - - --
- -- --. --
.I'AG!
13.2
660,4
45 20000 00064
660~5
,1
6Go~6
75 20000 00060
660~7
,2 00000 00000
66040
22 00000 00272
66041
22 10000 0027)
66042
II 00004 31000
6604,
,7 0005' 00011
66044
"37 00064 ()()()f)5
66045
56 00000 00006
66046
00 00400 00000
OOOO~
00000
-
.
CALC
D
Cook
CHECK
D
~ok
L_~7
IEVIIID
!
DATI
D2-18illL
30EING 1103;\ SERVICE ROlJ'T'I:-lE LIBRARY
""I
APIt
.
BOEING AIRPlANE COMPANY
SEATTLE , .. , WASHINGTON
CONTRACT NO.
--
-_._----
- - .-l'AGf
13.3
j'PR?O;;E:
Read the first block of 12n wor~s from tajJe o n nervo ti6 into ~
locations OO,)!)l tr.ru El')OI7~).
dean space and was rlesirneri to
This rOlltine works from the drum
boot ~ trap
the customnr enr,incers
riiap:nostic routinf!s.
1.
Set Drum to
2•
P.ewinri tape on servo number f,.
h.
~es5 ~'TAH T key.
:,Jt~( l' ''}.L .
l, fter readin <" first block from t? pe f, into core,
compu tcr wilJ stop with 1''\':': :: rY)ll f. .
S. Set
6.
Drum to ~;i leAl. .
t>ress ~TAET key to proceed.
This routine occupies ",lean s:l;:ce l ' locationl:l ',4"')2 t : Ll"U 7:1037 and
works fro n these loc n tions.
1.
This routine
cornman-i.
a~"umf ! 5
t:l:::. t t ::e
fir ~: t
If ],1 :la5 been destr 'y f'r! ,
:"loc}; on
r e sto rl-~
tn , Y~ f , ~·: p'S
F1 anrl start (wer.
~,l ,
8AC 973 II R3
v:ritten in
r ' :. y
~ r)
J~-
1 \ . :\. . LJ..I.
40016
~5
OOQOO 140}2
140}2 11 00000
1~"
1'}
7~031
10110 140"
140,4 16 10000 00001
140"
16 00000 32000
140~
~ 00000 00116
14031
02
CA~~&..
CHECI(
I
Cook
.
00602 60000
JI_r::;7
l£VISED
DATI!
DA._ ~C~on)~'k'--_ _H_ _ _~_ _ 1 HOEING 1103A SERVICE ROUTINE
LrBRA~Y_ D~-188h
BOEING AIRPlANE COMPANY
SEATTlE 14, WASHINGTON
1
. 1'
1-------
l~rR r)O ~; ;:
Convert a mar,netic tape containing binnry inform, tion to a
magnetic tape of a form suitable for }Jrintin.r the information on
the High Speed Printer ae octal instructions.
111e information is
read from the tane to be CODVerteri into map:nctic core b e r,inning
The record number is store r! in location
with location 8(01J02\.
e ((1l000) and the munber of parity errors1etected in r£'adinp that
T ~li s
record is st')red in location 8(01001).
inf'ormntion is written
on the tape on servo .#2 in XS3 code with (, words per line ru:d one
blank line between eAch r f>cord.
on the nexowriter to
t ~le
it i!'! rear! from
3.
r"ress [:,TAHT key.
..
~et
the servo number (n) con Laininr the ta:Je t o
, \., I
thru :::'
12 •
.,~
'I'urn on servos nUl'Tlber n
7.
Turn on flexowriter.
9.
~
. Cook
Cook
t --'.
: ~ wi tch ~I;Jl
Press ~ : T:
~ -
8AC 973 0 R3
(1nf~
b~ conv~rterl
in
mlPlb cr 2.
t:) su p preG ~ rcwinrlinf" ta!)C n before r. CJ nversion.
iC key.
~ bS7 -t-~E~ISE~__ ~~T.!...
:---+--_.... ..-.
~~ --. ----- .. -- -- -+--- - - . ~ - - . ~ _~__
___ .~ .
.----
Computer will stop with i A'f. =111' )').
(' .
r . ;- et
:J
t...1pe.
::;et PAY. :: 1{)020.
' ~LI
CHECK
t he ccn-iition of each rp.cord as
2.
L'
C;.A.lr
in ~Ucnte
In arldition, a tr e il is printed
~
- -+- - -
.
i - - - - - - - - - - - - - - - - - - - - - - J PAGE
BOEING AIRPLANE COMPANY
~fA '"l t
24
WASH , N ( ; Tn N
1:> .'"
,)r),yY"'l thru
6I..rno
2.
This
LIJHTt, T IO ~~S
5"")"'1 I 7 , 5?')f"ln
t hru ~?"117, 62')f')() thru f- 2f"ll17, and
thru 61.{)L7.
ro ~)
ti ne l-lOrks from core locations
O"Y)I')()
thru
')')423.
:
1.
This proln"aJ'Tl will not rp(l"i
2.
~ince
r(~ c'Jros
from tJ.l
---~I--1---------------------_J~ cc
""'0
t-=c.:....::..-+----~--_4IIII-------+-~
"
'AC 973 O·Al
BOE ING AIRPLANE COMPANY
5tA : rt E 2• . WASHING TON
--------
''''~Ilr: .1
"
2 · 7000
40020
45 00000 64000
64000
75 ~0050 64002
64001
11 4-4000 00000
64002
75 30050 64004
6 400~
11 50000 00050.
64004
75 30050 64006
64005
lJ. 52000 00120
64006
75 30050 6401 0
64007
11 62000 00170
64010
75 30036 00140
64011
11 . 64012 00240
44000 45 00000 64002
CALC
CH£CK
4-4001
00 00000 00000
44002
00 00000 00001
44003
00 00000 0<)(),)2
44004
00 00000 00003
44005
00 00000 ()()()()4
44006
00 00000 00005
44007
00 00000 0000(,
44010
00 00000 00007
4-4011
02 00200 00000
44012
02 00062 00000
44013
02 00600 00000
I
I
ID. Cook h-57
D.. Cook
.fVISED
A".
f
,
-
,
CONTRACT NO.
I
OAT!
I30 SING llO)A :.. 'Jt VICE RCoVTI\TE LIBRAHY
A...
I
\
II
BOEING AIRPLANE COMPANY
SEATTLE '.6, WASHINGTON
---.- -- -- - - - - - -- --- - --
JL2-lB~
-- .... --.--- --
I --- .. - . ._- - .._. ... ..
I ..AGE
15.2
44014
00 00001 00000
44015
00 00000 00071
44016
00 00000 OOOTI
44017
00 00000
44020
00 00000 07777
44021
00 00000 00045
44022
00 00000 00037
4402~
00 00000 00052
44024
00 00000 00074
44025
00 00000 00070
44026
00 00000 00064
44027
00 00000 00062
44030
00 00000 00066
44031
00 00000 00072
440~2
00 00000 00001
440~3
47 12571 62204
44034
00 00000 00002
44035
04 15301 21401
44036
25 45000 00000
440~7
00 00000 00001
44~0
04 03364 50000
44041
00 00000 00002
44042
04 cn032 20466
44043
45 00000 00000
0001~
,
CALC
iJ
CHECK
n
"P.
-
!.
CO,..lr
Cnnlr
I
'!VISED
_~7
T
BOEING AIRPlANE COMPANY
I
CONTRACT NO.
BAC 1741 A J '"
;
30EING 110)A SERVICE ROUTINE LIB~~ ___I.:22~81
A,..
.
/
I
DAn
SEATTLE 14, WASHINGTON
' -- -
-
-
1---,
--
IPAot 15.3
44 044
00 00000 0000)
44~')
04 c0062 2 040 3
44 1.>41)
2 f 0401 _~ 01520
44,) 47
45 00000 OOOO'l
')')('00
~O
50001
02 0Oo l -f , 2()(\OO
) 00')2
CY.> 0O f ,()O 2()()(y)
5 :)00 3
00
50004
00 00054 C)(y) 34
5 0005
00
50006
00 00041 00041
50J07
00 00044 00044
5 0010
61 00000 00022
50011
76 10000 01002
50012
00 00000 00000
50013
00 00000 000:)0
50.') 14
00 00000 00000
50') 15
00 00000 00000
50016
37 00465 12600
5 0 017
00 00000 05152
'50020
00 00006 7000<.-:'0
5')021
00 00007
50022
16 00231 00250
50023
45 00000 00232
~A.l~_ .--+--E-CHECK
·
I
Cook
.~ ... ._Cook
()I')oon 0\.,)00C
( X)O ~ ~)
OO~ 37
I }~
:
I
000'32
')0037
00(0)
CONTRACT NO.
--
OAT!
REVISED
::~ ~, ~=~*-=1--,I
-
,,
:30F.INr. 110311
R' "''' TNt-:
LI "lPATl Y
J2-1BBh
-- - ----.---- _ . -- .- - - -. BOEING AIRPlANE COMPANY
I
i
~:~:R' : Ir[
1- - - -
I
SEATTLE 1• • WASHINGTON
--- .
.". --" -
._-'- - ----
--
PAG~
l::.L
1
_c~~c_ _
~~C~ _ _
APR
5002~
00 00000 00000
50025
00 00000
50026
00 00000 00000
50027
00
O)()()()
00000
500~0
15
1000~
00274
'500~1
1-)
~1000
00011
50032
17
17 00000 00052
IJl.
-:
D
Cook
Cook
I
-J
I
CONTRACT NO.
00252 oo::?41
002~6
~2000
00014
R!VISED
h ..C:;7
I
I
OAT!
30EING 110JA SERVICE R0UTINS
LIF3R~~~ __J12~~~~~_4
Ii -
BOEING AIRPLANE COMPANY
SfAmE U, WASHINGTON
,
0 _
_
___
.. . . -
_ -
I 'AGE
15.9
,
640~6
,
f
41
~ ~66
6J..O,1 4,
00000 00211
,
,
.. . . .'
,
'
-
,
'
.
"
"
-",,64~
41
0()()62 002~O
~1
11 00000 oem1
6404.2
~
64~~
T1 10000 00001 ,
64~
17 00000
64oJ.,
4, 00000 00105
0002_
,"
00212
,.If
,.-
~2
~
64oll6 45 10000 ooio,'
64.047 4, 00000 Q0102
"
;
\
,
,
"
"
,"
-
,
.,
V
I
..
I
I
r\
-:
J
,
CAlC
D ... Cook
CHIa
D. COOk
h-~7
avlMD
OAR
BOEING 1lO)A SERVICE ROUTINE LIBRARY
AN
AN
ro...;.,RA).
I08NG AIRPlANE COMPANY
SIAm! 14, WASHINGTON
CONTRACT NO.
"
"
.
..,-,.
~
j,Ace1S.lO
~
/
USEful Note # 16
2 October 1957
SUBJECT:
MUltiple Preoision Floating Point Routine
CONTRIBUTOR:
Remington Rand
.
A MULTIPLE PRECISION FI.OATlNG POINT ROUTINE
FOR THE
UNIVAC
SCIE~~IFIC
COMrUTER
by
T . C. To]Jefson
Tho roul tiple precision n oHtlng point rouLine, described on
pa[.o 1 throuGh 1+ 1 WIlS coded for use with the Univac Scientific 110)A
CO;tputer. The coding is on pages 5 throueh 9 in both relativ e (RECO)
and absolute addresses.
The routine performs ari tl-L":1otic opero.tion::; on floating point
ne7lloers of the oroe; of 62 bits by use of stated point operations . Four
nr.Lthmctic opc.::'o.tions arc provided by tho r outine; they are addition,
8uot;:a ction, rou} tiplication and division . Anyone oi.' the four operations
may be performod by enterI ng into the proper subroutine by means of the
InJ;;erpret instruc tion . The Interpret instruction im.Licates the operati on
to be perfol~ed as well as the storage Jocations of the two operands invol-.red.
Each of the two operanclG occupies t\>lO s '~ orage cells. The capaci ty of eacb cell or storage location is )6 bits [ll1d therefore each operand :is 72 bits i:1 length . For each operand , 62 lJitn arc allocated for the
mantissa N, 8 bits for the (biased ) characteristic C, and 2 bits , S1 and
S2 , for the sien . The 72 bits are a rrnngcd as nhe 'n below . The arrangement is true of both the operand and the r esul t.
Number of Bits
1
8
27
Cell 1
1
Cell 2
35
5J___
M_
J2 ._ _-,
The higher order 27 bi ts (:'1, ) of the total 62 bi ts whi ch comprise
the mantissa are always in cell 1 and the lower order 35 bits (M2 ) are a lways in cell 2 . The mantissa contained in the tuo c ells is al~ays normali zed and therefore the first significant bit oc curs as the left-most bit
of the hieher ord er 27 bits , M1. The binary point is assum ed to be immedi ately to the left of this bit (bet ween C and M1 ) .
- 2 -
Any number N used by tht' routine must be in the form M • 2r. and
must satlRfy one of th~ following conditions
N
=0
or
The characteristic C is biased whicb allows the number N to vary
over the villucs stnted j n (2) above. If K repres(>nts the normal exponent
of th0 number, then C, the hiased ('h,rlictcristic, is Riven by C = K + 128 .
The value of the InnntisGa t1, locate in M1 and M2 , may ranp,e j n value as
defined by the expressi on ~ <; M <. 1.
The siGn bi kl S 1 [lnd S2 must be in ac:,rel?D1ent, that is, they must
both be either 7,e1'O or (,nc. If thoy are "1 I Sll, M io a neglltive nunlbor und
C Dnd ~j are'in ono 's complement. for;n .
S1, S2 , C1 M1 and M2 are neee::J[li(r lly equal to zero whenever N
equals zero .
The ord er of preClslon of this routine is 62 bits . The results
are similarily C2 bits with an occasio naJ rOlmd-off error at the 62nd bit.
The Intcrpret lnstTuction 14
one of the arithmetic opera~ions. The
specific operation is anaJogous to the
stated point operations. T;1e code for
is listed bl . ow .
Add:
Subtrac+,:
MultipJy
Divide:
OP UIV' is utiJized to initiate any
operation code, OF, used for any
reguJar machine codes for standard
these four arithmetic operations
AT (35)
ST (36)
MP (7~)
DV (- tJ)
The UI and V' addresses refer to the fi rst of two consecutive
storace locations at which ellch operand is s tored . Thus, if the first
operand is stored at u1 and u2, and the second operand at v1 und v2;
UI = u1 and V' = v1.
The result of the operation performed is properly packed and
normalized fu'1d is found in the A and Q r egisters . The result containing
t~e hizhcr order 27 bits and the characteristic, is in double extension
for:n in A. At tho conclusion of the operation (i. e., control transfe:.'roo
to F1)' the initiaJ operands are f ound undisturbed in their ori ginal locations UI, and U' + 1, ann V', VI + 1 .
The coding of the routine, pages 5 through 9 , is in two forms;
the address in the Jeft-hand coJumn is reJative to 1000,- and the righthand code is in RECO form.
asse;mbly.
The routine is divided into six subroutines, ready for RECO
The regional ussip,mncnts are giv en below.
- 3 S II:
f/: r :
JV:
DC:
Rr:
CS:
ado Hi on and subtrnc ti on
multiplication
divis.ion
decoder :1nel unpacking
roundi nf' and packi q;
const,,_nts and temporary storage
A jump instruction at F2 trnn:Jfrrs control to 1000 (DCO), which
lui tintes decoding, i. ('., determinet: which ari thrnetic operation is to be
performed, and unpacks t.he normaJ j zed, pncked operanlls . DCO is the absolute location of the first int;tructlon oj' the decoding scction . A jttnp
is then L'1ade to the de~irt~d subroutine (SA, I·D=', JJV) to pCTfcrm the arithmetic operation . The roundinG Hnd packing DubrOtlbne (RJ') perforns n
rounding operatJon ond trunC[;tioll at th e 63rd bit of the mantiPosa and normalizes , nnd. packs the resu] ts whJch are then stored in A and Q. Control
is no..., transferred to F 1 , ""n:i <.h contains a jump instruction to the address
follo\-!ing the ini tint.ing Interpret instruction.
Ur. ;) of the Routi.!!.e
If the Bif.. sllbroutines
d.iGcus~3Cd
above are to be RECO assembled,
the individual subroutine re c ' Gns must be labeled SA, MP, DV, DC, R? fu'1d
CS. These m.:ly be pJllced, ind~vidullJlYJ OrlJ'"',;here in t.18 memory that is G.esirod; or, thc' entire routi; ;c, coded r Jlutive to 1000, may be addrcssmodified to be placcu as one pacb,go anywhere in t;1.e memory .
The routine does not set up 1"1 or F 2; these must be preset by the
user and should be set up as foJlows :
HJ G
};.J
0
[0]
1000
( or DCO)
Tho Interpret insLruction modifies the v addre:;s of F, ; F 1 and.
F 2 aro not modified in any \oJ[,.y by "he routine .
If we let U' und V' represent the storllgc of the two operand;:;,
these each being soparated into two Jocation:'l , l ~ " u 2 and v 1 , v 2 it must
be renlembc:r ed that u1 and u2 Dust be consecut)vu as arc v and v • U'
2
1
and V' need not be c onsecutive .
ExampJe: :
Compute ([.:J. - b ): a~. s stored at 00500 and 0050 1, und
b c.t 02100 and 02101 . The rroper Interprev instruction "Iould be
1436 0500 2100 . Note : Drum addresses cannot b e u sed .
AJ
r~nn
Find
EXC8;;S
Con3idornt :i. o r:. s
The cburuct (;l' istic C, equ£;.} to v 1 1:28 as stated above, c annot
e x ceed certa.in limi t 8 . Hesults whi('h y-101d biased charactoristics greu t8r
thc.n 255 or J OSt; thu •. ~oro ca!'.:lot be exprossed; consoquent::, )r, alurrlls and/o_
proceduro:.; bl!vO L",cn incorporated i.1 ti1'~ rout ine to indicete ".'hen these
. Ij T!1:' t ~ ht..vc:: b(;(:l1 C:XC:C0Q(, c...
If the characteri s tic of tho result is C -::; 0 or C > 255, Earon
are entered in the result 10cntion13 and control trunoferred to F • 1f
1
in[ltead of having z~ros entered into the result and control tranoferrod
to F 1 , it is dC8ircc1 to hElve an alarm or error exit. undor those extremes,
two inatructions, 120) (RF52) and 1 21< (Rr61), must be changed . These two
instructions normally read
0
RP55
RP52
MJ
RP61
SJ HP55 RP53
Those mUDt be altered to read
RP52
tt.J
0
C
RP61
SJ
C
RP53,
where C is [lny specif'ied (by the user) cell to jurop to in c ase of t ,he above
e;·~t:'omG condition~
Note: If it is L ~ vcnient to have results equal to 7.,ero
in cane the characteristic C b ecomes less than zero and have un alarm only
for C :>255, RP52 is the only cell that need bo altel'C·d .
If en c:ttunpt is mude to d::vide by zer0 tr.o operntion is by-pa::;:::;cd,
controJ is trannfer:::'ed back to F ~, but the compute r is hal ted by tho inBtructi('n iJV)I, ,.thich norrnaJJy reads 1::::: 0 O. This i11. ~ ruction may be altered to
provide any needed divide-error indication or exit.
Since no check is made on the voJ idi ty (corr_ctness of format) of
t: !c inr'ut operand s , use of j ncorrcct opernnd s wilJ resuJ. t in ei tL cr an error
indic<.i'~ion or nonsensicnJ L,:i:.;wers .
- 5 -
Absolute
Addres3
1000
1001
"1002
1003
100/+
~
1005
1006
'1007
1010
1011
1012
, 1013
1014
1015
1016
1017
1020
1021
1022
102)
1024
1025
1026
1027
10)0
1031
1032
1033
1034
1035
1036
10]7
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
105 2
1053
1054
1055
1056
10 57
1060
1061
1062
1063
1061.
1065
11
5J
34
15
15
15
11
53
54
15
J2
15
11
53
54
15
32
15
11
11
11
11
11
11
45
45
11
53
43
43
43
45
11
22
46
13
22
11
53
22
11
22
46
13
22
53
22
45
00
00
00
00
00
00
01117
00000
01102
32000
32000
)2000
01115
00000
32000
32000
01104
32000
01116
00000
32000
32000
01104
)2000
00000
00000
00000
00000
01061
01062
00000
00000
01120
00000
01122
01123
01124
00000
01061
00011
01043
01075
10033
010W
01061
31000
01063
00011
01053
01076
10033
01063
31000
00000
77777
00000
00000
00000
OOOl ,)
00000
Relative
Addre .J3
31000
32000
00017
01007
01015
010)3
31000
32000
00003
01022
00000
01023
31000
)2000
00017
0102/+
00000
010?5
01061
010 62
01063
01064
01065
01066
01031
01040
31000
32000
01220
012'16
01313
01340
32000
01075
u1044
01075
01067
3'1000
01067
0106'1
32000
01076
ul054
01076
01067
01067
01063
0103.2
77777
00000
00000
O()OOb
00000
00000
Remarks
T1'
r,s 36
!]
0,
DCO
QS
SS
0
A
CS 21
TU
TU
TU
A
A
A
17
DC 7
DC 15
DC 33
I
TP
CS 3/..
0
A.
OS
LA
TU
SA
TU
T1'
QS
LA
TU
SA
TU
T1'
TP
TP
TP
TP
TP
MJ
MJ
TP
QS
EJ
EJ
EJ
MJ
T1'
LT
SJ
TN
1T
TP
QS
IT
TP
1T
SJ
TN
1T
Q,s
1.T
MJ
00
a
0
0
0
0
A
A
cs 23
A
Q
Q
A
17
II
cs 23
A
0
0
0
0
CS 0
CS 1
0
0
CS 37
0
CS 1+1
CS 42
CS 43
0
CS 0
00011
DC 43
CS 14
10033
DC fJJ
CS 0
31000
CS 2
00011
DC 53
CS 15
10033
cs 2
31000
0
77777
0
0
0
0
0
Determine Location
of Operands
3
DC 22
'0
DC 23
CS 35
0
j,
Decode S. R. Enter
DC 24
0
DC 25
CS 0
CS 1
CS 2
CS 3
CS 4
CS 5
DC 31
DC 40
Q
Move Operands to
Temporary Storage
A
SA
SA
MP
DV
Code Test
2
0
0
0
A
CS
DC
CS
CS
14
44
14
6
Q
CS 6
CS 0
Mask Out Mantissas
and Characteristics
A
cs 15
DC 51..
CS 15
CS 6
CS 6
CS 2
DC 32
77777
0
0
0
0
a
DC
({J
1
- 6 1066
1067
1070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105
1106
1107
1110
1111
1 'j 12
1113
1114
1115.
1116
1117
1120
1121
1122
1123
112/«
1125
1126
1127
1130
1131
1132
1133
1134
1135
1136
1137
1140
1141
1142
1143
1144
1145
1146
1147
1150
1151
11 52
1153
115/.
1155
1156
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
37
00
00
00
00
00
00
00
16
45
16
/~7
7/+
54
46
32
46
36
46
11
54
45
13
22
22
22
22
27
22
45
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00001
oocoo
00000
00000
00000
00000
00000
00000
00000
00777
00000
00000
77000
70000
35000
36000
71000
00000
00000
OOOCO
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00001
0
0
0
0
a
a
a
a
0
oo/~oo
00000
00034
OOOM.
00076
00100
00141t
00200
00276
00400
70000
07777
77777
00000
OOCOO
00000
00000
00000
01157
01176
01133
oooco
OOOL.3
01125
00000
01126
01135
32000
32000
01142
01103
01147
01103
01141+
01101
32000
00000
01102
00033
10001
00043
00000
01070
00043
00000
01156
01134
01156
01206
01073
00044
01140
00000
0114/t
32000
0 1147
0107/.
00001
01150
'
a
a
a
a
0
a
0
0
0
0
0
0
0
a
0
0
0
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
37
00
00
00
0
0
0
00
0
0
00000
00000
00001
00000
00000
00000
00000
00000
00000
00000
00000
00777
00000
00000
77000
70000
35000
3EDOO
71000
0
0
00001
00400
00000
00034
00044
00076
00100
00141t
00200
00276
00400
700:)0
077'/7
77777
00000
00000
00000
00000
00000
RP 26
Ri' 45
RF2
000/.3
RP 25
RP 3
TV
MJ
TV
ZJ
SF
I.A
SJ
SA
SJ
1ST
own.
01070
l .T
32000
LT
I:r
LT
CC
LT
HJ
a
a
a
00000
CS 44
0
CS 45
Rr4
A
A
RP 11
CS 22
RP 16
CS 22
RP 13
CS 20
A
0
CS 21
00033
10001
00043
00000
CS 7
00043
0
Temporary Storage
a
a
SJ
TP
LA
PlJ
TN
01067
32000
01101
01070
00000
0
0
0
a
RP 25
RP 55
CS 12
44
RP7
0
RP 13
A
RP 16
CS 13
1
RP 17
CS 13
CS 7
Constants
!
~et-up
Constant.
CS 47
Add Round and Pack Enter
RP O.
Multiply Round and Pack Enter
Zero Test
I
rounding
I
I
J
A
CS 6
A
CS 20
CS 7
a
:Truncation
- 7 00000
32000
01165
00000
00000
01211
32000
32000
01202
)2000
01173
01077
'31000
01067
01213
00000
00000
00000
00000 .
01211
01206
01077
01170
01067
01070
01213
32000
01204
32000 ,
)1000
00000
01063
SP
AT
TJ
SA
SS
1205
1206
1207
1210
1211
1212
1213
1.. 5
121/+
11
45
13
01073
01074
01106
01075
01111
00000
01075
01105
00000
01067
01172
01077
01121
01077
00000
01075
01076
01112
01074
01114
00000
10033
00000
01101
01101
00000
)2000
01206
01067
01070
00000
0106)
13
0106/+
0106/..
TN
11
36
46
11
11
11
11
11
11
11
01075
01076
01223
010 61
01063
31000
01062
01064
31000
01075
01076
)1000
32000
32000
01107
01062
01061
01242
01075
01061
01121
01075
01075
00000
32000
)2000
012)5
31000
01061
01063
31000
01062
01064
31 000
01075
01076
32000
01100
01250
01070
32000
01243
01075
01067
31000
00033
01067
01213
TP
ST
SJ
TP
TP
TP
TF
TP
TP
TP
TP
TP
TN
TP
TJ
TP
TP
SJ
TN
TP
TP
LA
QS
MJ
1157
11ED
1161
1162
116)
116/~
1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177
1200
1201
1202
1203
'j 20L~
1215
121 6
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230
1231
1232
1233
1234
1235
1236
1237
1240
1241
1242
1243
1241...
1245
12L.6
12/+7
31
35
42
32
3/..
45
35
)6
45
11
46
13
11
53
45
31
32
)~
32
L.2
45
22
11
11
45
11
46
11
11
11
13
11
L.2
11
11
46
13
11
11
54
53
45
CS
CS
CS
CS
CS
12
13
25
14
30
MJ
0
AT
ST
M.J
TP
3J
TN
TP
OS
MJ
SF
SA
SS
SA
TJ
CS ll~
CS 24
0
CS 6
RP 41
CS 16
CS 40
CS 16
0
CS 14
CS 15
CS 31
CS 13
CS 33
0
10033
0
CS 20
CS 20
0
A
RT' 55
CS 6
CS 7
0
CS 2
CS 3
CS 14
CS 15
SA 5
CS 0
CS 2
VJ
1.T
MJ
TP
TP
}/w
Tf
SJ
'l'p
TP
~lJ
TN
Q
CS 1
es')
Q
es 14
es 15
Q
A
A
es 26
es 1
CS 0
SA 24
es 14
CS 0
CS L.O
cs 14
cs 14
0
0
A
RP 34
0
0
RP 51
A
A
RP 51
.-,
Add Characteristic
A
RF 42
CS 16
Q
]raCking
cs 6
RP 62
0
0
0
0
RP W
RP 55
CS 16
RP 37
CS 6
CS 7
RP 62
A
RP 53
A
Q
0
CS 2
CS )
A
A
SA 17
'.
J-MUltiPlY Characteristic
"_ } Cllar. Overflow Test
~ Put
Zeros in Ans ....er
~Char.
Overflo.... Test
Move Answer to A
Move Answer' to Q
RP 6/~
SA O. Subtract S.R. Enter
Add S.R. Enter
Q
CS 0
es 2
Q
es 1
es 3
Q
es 14
es 15
A
CS 17
SA 32
CS 7
A
SA 25
cs 14
cs 6
Q
JJ
es 6
RP 62
Reverse Operands So
One Vi th Larger
Characteristic is First,
i.e.,
lex - CY\
0
>
If
62 ~ ex - eyl
Compute Sum
I
1?50
125 1
1252
1253
1 25L~
1255
1256
1257
1260
1261
P62
1263
126/+
1265
1266
1267
1270
127:
1272
1273
. 1274
1275
1276
1277
11
43
42
11
35
36
16
11
54
22
23
45
11
36
16
35
16
11
54
22
5/+
35
5L~
1]00
54
22
I~C1
1~
1302
130)
1304
1.305
1::,)6
1.307
13iC
",.,
.tf..1
22
~
A
I,
35
54
35
35
54
45
011 00
01 106
01 106
011 06
01130
01100
32000
0 10 f ))
320,. J
00000
01067
00000
01106
011GO
3~OOO
01106
32000
01063
)2C00
oocoo
01063
01064
32000
32000
31000
01063
31000
CGO!.3
01061
O,C ·,7
320m
01062
010, -·
32000
01264
01 264
32000
32000
32000
0 1260
32000
00000
01070
01067
0 130/.
32000
32000
01272
32000
01277
32000
00000
TP
F..J
TJ
TP
AT
ST
TV
TF
J1S
MJ
TP
ST
rV
AT
.
TP
200.~3
LA
cs '2.
32000
AT
CS 3
00001
LA
310C{)
32000
01101
01070
32000
32000
C('o.'a
CC
Q
'r
"-'T?
00043
CS 0
CS 6
CS 20
Cs 7
l).T
43
A
liT
LA
A
3~~000
013"15
0; 'J63
013-:7
-; 3': 7
• .-/.tf..l
16
11
11
1322
71
1323
22
22
1')2?
71
72
22
1:;.30
1 ..//J
') -:: ..
55
01061
01062
0-:066
OooCD
000'13
01065
0-:063
00C01
32COO
22
OC~12
1332
71
35
54
Oi.)65
01070
32800
01071
0IG ,:"7
1328
., ,,:,1'"\.,
132/,
1325
1326
13J~,
1]3.',
1335
13j6
1337
35
35
45
OOOCO
32000
01206
01337
01065
01066
0'106/+
32000
01067
0106.401066
01070
00043
01071
01063
320CO
00011
32000
32000
ocoeo
A
A
A
00001 .
CS 0
V ,) .)
T?
ZJ
TV
'.l'P
TP
II;P
CS 2
l';P 4
cs 46
CS 0
',.I \
1 ...: ..
T ,..,
~,l
1
CS 5
00000
00013
CS i ..
CS 2
00001
IQ
A
LT
00012
V.J
"
AT
CS 7
LA
.AT
AT
~J
cs
I.
A
~
Const ruct
SUIll in A
A
RP 0
ZJ
L'1
1'1'
l'T
Icx - I< ) 6
1
0
Cs
<
1
CS 1
CS 7
;;~JOO
C<.',J 10
cs 6
0
61
.
Cy
Compute Sum
I
A
Q
A
.ll
If
A 1+3
31000
CS 2
LT
LA
AT
0 1cLV\..")
"", r,'"
0
CS 6
0
r l")
ICx _ Cyl <
A
A
A
LA
I~ <
Compute Sum
A
SA 61
A
A
oocoo
A
A
SA 42
A
0
CS 7
CS 6
SA 66
2
00000
47
11
47
•
CS
A
25
Il.
'""rl
,i... i
1J~L>
1.3~5
~_
CS
A
SA 46
SA /+6
SA 54
A
A
'
.l. l
TP
i
CS 2
0106 r:
32000
~
II
T-
0~061
0 11 'Yl
25
25
25
CS 47
(;S 17
A
11
1 .)!O
~ ~ ,-
17
00000
CS 6
0
CS 25
CS 17
:.:J
1.-/,.-/
?~ ')
CS
cs
cs
cs
LT
01~31
1312
-
1.11.
320ClJ
OOCCO
13': 1
- 8
A
RP 55
A
P.P 55
MP 2/+
SA
74
:J
Zero Test
cs 4
CS 5
cs 3
A
cs
CS
CS
CS
6
3
5
?
43
CS 10
CS 2
A
11
A
A
0
X1Y2 + x2Y1
f XY
X1Yi
l','p
"
24
- 9 1 140
13/.. 1
11
47
1J/~2
11
1343
13/..4
1345
1346
1347
1350
1351
1352
1353
47
54
73
135/.
1355
1356
1357
1.360
1361
1362
1363
136/..
1365
1366
1367
1370
1.371
1372
1373
1374
1375
1376
1.3TI
1400
1401
1402
11:03
140L.
1/.05
11.06
1407
1410
1411
01061
01342
01063
013/;~
47
11
0110)
01063
31000
01350
01065
1.. 6
0135;~
13
11
54
73
71
22
71
22
71
22
71
22
22
51.
36
54
35
35
74
22
22
22
27
22
37
37
31
34
32
32
45
56
01066
01066
32000
01063
01065
00002
32COO
00002
010m
00000
3?000
OOCOO
00016
22
0~065
01067
32000
31000
01066
32000
0003/..
10000
00000
31000
000/t3
01337
01156
01075
01076
01112
010'14
00000
00000
.32000
TF
01206
ZJ
32000
TP
ZJ
01/..11
JA
29064
01065
DV
01066
IT
ZJ
01356
32000
TF
SJ
01353
TN
32000
32000
TF
LA
000.34
01066
DV
MT'
01065
32000
LT
MP
01064
01067
LT
HP
01065
32000 . l ·T
;7
01064
,1
1'"
32000
11'
31000
LA
20033
ST
32000
OOOO ~
LA
32000
32000
01070
01063
31000
32000
01101
01064 .
01320
01134
00000
00000
00000
00000
01202
00000
AT
AT
SF
1.T
1,T
1.T
CC
1.T
RJ
RJ
SP
SS
SA
SA
MJ
~S
cS 0
VV 2
CS 2
fN
I~
CS 22
CS2
31000
DV 10
cs 4
IN 12
CS 5
CS 5
A
CS2
cs 4.
00002
A
00002
CS 6
00000
A
00000
00016
cs 4
cs6
A
Q
CS 5
A
00034
10000
00000
Q
000L..3
MP 24
RP 25
CS 14
CS 15
CS 31
CS 13
0
0
A
RP 55
A
fN 51
A 64
CS 4
CS 5
DV 16
~
.=J 1/Y1
A
DV 1.3
A
A
34
CS 5
CS IfA
CS 3
CS 6
CS 4
A
CS .3
A
Zero Test
Remainder
~Y1-2Y2
JY
]Y1-
l
Q
A 3.3
A
1
A
A
CS 7
CS 2
r.onGtruct 1/Y in A
Q
A
CS 2()
CS .3
MP5
RP 3
0
0
a
0
RP 51
0
Compute xy
Round and Truncate
.
~ Divide Characteristic
Pack Answ{lrs
DV 51 Alarm Stop
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19 Create Date : 2017:11:19 11:02:02-08:00 Modify Date : 2017:11:19 11:26:32-08:00 Metadata Date : 2017:11:19 11:26:32-08:00 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Format : application/pdf Document ID : uuid:6f812395-73f3-c24d-926b-bfd85a974bf9 Instance ID : uuid:c247d5e9-2d58-0541-a173-9ba0516fa401 Page Layout : SinglePage Page Mode : UseNone Page Count : 248EXIF Metadata provided by EXIF.tools