1.4.026_Modified_Fortran_for_Monitor_I_Version_II 1.4.026 Modified Fortran For Monitor I Version II

1.4.026_Modified_Fortran_for_Monitor_I_Version_II 1.4.026_Modified_Fortran_for_Monitor_I_Version_II

User Manual: 1.4.026_Modified_Fortran_for_Monitor_I_Version_II

Open the PDF directly: View PDF PDF.
Page Count: 88

Download1.4.026_Modified_Fortran_for_Monitor_I_Version_II 1.4.026 Modified Fortran For Monitor I Version II
Open PDF In BrowserView PDF
a:: •

1620 GENERAL PROGRA.'Yl LIBRARY . Modified Fortran for Monitor I, VftI'sion II

WJO

.

~.'

.. ' . 1; 4. 026

..

.'.

~

~WW++·+++++++++
8~iII + + + + + + + + $ + +
.r:2: ,--

(/) >

~

.t ' ) .

.

IZO::J WZ

.

.

.

~ii1 +++ +.+ ++ +

' , '

+++
+ 8+ + + + + + ++ +. + + + .
+++++++++++++.
+++++++++++++
+ + + +.+ + + + $ + +.$ +
++++++++++$++
+
+
+
+
+
+
+
+
+
~t ~t 1ft 11tt
10·
.
.0
·
....

.

.

.

.

,

4t,

Q

"

--~---

~-

-

~

----

.~

o
"

.'<~,

06R
02492
032b3
06179
01520R
i\IU~1
01236R
OUT
00931R
PllJS2 026b4R
SWF
05969
U~I[)FX 00436R
ZE RO
02404R

INPUT/OUTPUT L I I:lRARY SUB

PRUGET 01044R
FOR~IAT 00277R
AKR AY 2 02276R
ARR
00604R
CYC
01112R
ERRUR 013R4R
EXPAIl 00fl96R
F IXFL 01111R
FSR
02120R
LUUP
00078R
MOIU;
00254R
NUMER o 1712R
PAR
03378
PKU
00984R
TEST
o 1216R
VAR
00983R
30Z
02403R

~'U''1ER.2

EPTEST
Arl[)EXP
ARRAY
fJECIM
FR.3
EXPSN
FL
GAD
LP
N[)ER
NlJM2
PERM
READ
THERF
I,ELL

02640R
02696R
0270RR
02204R
01540R
02052R
00fl9flR
01992R
01007R
01440R
01l92R
02560R
00977R
OOOOAR
01766R
00502R

PAGE
NEI.RET
EPFORM
AOCnW
RACK
I'FORM
ER6
EX P2
FLOAT
GETSW
MANSN
NflNI'W

m'

00308R
00720R
00005R
00792R
02424R
o 117 2R
0276flR
00f>12R
06061
00R99R
OO3S2R
00158R

PLACE 05R20
SLASH 06676
02156R
WELLP 004R4R

TRA~'S

MATRIX
COMPSW
AM
BB
ER
ER7
F
FM IMF
HERE
MAX2
N()P
ONE
PLUS
SWC
TSTFL
WHAT

06518
05750
022RRR
0233f>R
01344R
01596R
02219
03313
02370R
06145
00443R
01391R
01816R
06090
01840R
O0284R

o
1.3

FOkTkN FREE FORMAT
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00140
00150
00160
00170
001HO
001'10
002 (10
00210
00220
00230
00240
00250
OOZ60
00270
002eo
00290
00300
00310
00320
00330
00340

READ
ADC()w
PAC

USA
TR
llS
OS
TFr~

LOOP

ON

A
AM
TFM
AM
BNF
CM
BL
AM
AM
flNR
fl7
CM
BE
CM
BNE
TFM
CM
BNE
TF~I

MllRE

A~l

B-(

FOR"1AT OSA
WHAT

NfWRET
CUMPL T
I'lAX;>
SWC
MATRIX
003~O SWF
(J036() CUMPS.,
00370 PLACE
00380 GETSI~
00390 INPUT
00400 SLASH
Il0410 F
(J04<'0 PAR
00430 PR(JPUT
00440
004':>0
00460 FP IMK
0(J470 1''''111'',1'
004RO NUNI::W
00490
(l0')()()
(10510
(10520
(01)30
0(1)40
UO':i':iO U~IIJFX
005hll M1P
Ou570
OO':iP.O

SM
Btl
fl7
IlS
OS
US
OS
US
lJS
OS
DS
DS
OS
DS
US

INPUT/OUTPUT LIBRARY SUB

READ
-AOCOW,NOP
,RI:AD-l
,2492
FSR+11, FAC-32
FSR+ll,2219
AOCOW,23,10
-AOCOW,FORMAT-5
AOCOW, 7,10
UN ,-ADCm!
-AOCOW,-7400
MURE
AOCOW,7,10
ADCOW,lO,lO
*-12,-ADcml
LOOP-12
-AOC(H~, Cn~lpl.T

",NOP CALLING INSTRUCTION
",CORE STORAGE ADDRESS
, , ,WORK AREA
",SET UP FLOAT SHIFT RIGHT

'"

",MOVE TO Q ADDRESS

'"

",START CHECKING THOSE ADDRESSES
",NEGATIVE ADDRESS MUST flE SUBSCRIPTING

",START LOOKING FOR NEXT

'"

" , I S THIS THE END
",YES START EXECUTION
",CHECK FOR SIMPLE VARIABLE ENTRY

BB
-AflCDW, SWC
*+24
-ADCOW, PRO
-ADCOW, MA Tf( I X
*+24
-ADCOW,ARRAY
ADCOW,12,10
LOOP
BB,WHAT

'"

",YES - SUBSTITUTE ADDRESS
",IS THIS ARRAY ENTRY

'"
",YES
'"

S~IF,5,lD

AI~

PROPllT,GETSI.J
TEST
,7006
,6145
,6090
,6518
,5969
,5750
,5820
,6061
,6179
,6676
,2219
,3378
PLACE,24,10

C

PLACE,~IAX2

BH
IlS
llS
TIlM
CF
CF

IF
SI'I
TF
BI'If'
TU~I

DSC
BNF
TFi'l

INSTRUCTION

- SUBSTITUTE ADDRESS
ONWARD TO THE ~IEXT P ADDRESS

'"
",BRANCH

IF

WRIT~

(l57~O

'"

05R20
()60hl
0617'1
Ilhh7f>
02219
0337R
011316
0032R
003 L,O

'" NFXT PLACE ON RECORO--LAST
" , 1 FOR WRITF, 0 FOR READ--RWEFSw
'" I/O AREA--INH

'"

SLASH
,3283
,3313
CUMPSW,O
-F~nMF

-I' P HIK
FAC,-VAR
VAR,2.10

IS

00004
000()6
00005
024'12
000lA
00030
00042
00054
00066
0007R
00090
DOI02
00114
0012h
0013R
00150
(011)8
00170
00lR2
001'14
00206
0021R
00230
00242
00254
00266
00277
002H2
002R4
00296
00308
07006
Oh145
06090
(16518
0596'1

!lO AREA FULL

",HIGH ORDER DF A FIXED ~llIMF\ER
",HIGH OROER DF A FLOATING NO.
",FORCE []UPIIT
" ,CLFAR HIGH DRDER FLAGS
",CLEAR HIGH ORDER FLAGS
'" ~IAIIE THE VARIABLE INTO FAC

03~R3

033J.3
003~2

FAC-~,-VAR

FLlJAT,FIXFI
",GflTO FLOATING OIJPUT ROUTHIE IF
EKROR-3,5
",lINIJEFHIEfl FIXED ~IUMllFR F.R R~
3,410), "-4
I:RRUR
,-FPIMK
",CHFCK FOR HIGH ORDER FLAG
wI:LL,UUT+2;>
",f'I,flVF IN FIXED P[]I~IT ~1\lMBER

~IFEDEI)

003A4
(10376
003RR
00400
004J2
004?4
00436
OOL,43
O(J44H
004A(l

0000:; -0006
L J OOOON 00443
00000
00000
J6 02131 -2460
Kl 02131 02219
Jl 00005 OOOK3
J 0 OOOO~I -0272
,11 00005 000-7
MM 0015R OOOMI
J4 ODOON -740M7 00254 01300
Jl 00005 000-7
Jl 00005 OOOJO
M~I 0012h OOOON
M9 OOOhh 00000
J4 OO()ON -700h
M6 02336 01200
J4 OOOON -6090
M7 0021R 01200
JO OOOON -09R4
J4 OOOON -651R
M7 002':i4 OUOO
JO OOOON -2204
J 1 00005 OO()J2
M9 0007R OO()OO
00005 -2336
0000') -02H4
12 05969 000-5
M3 00316 06061
M9 01216 00000
00000
00000
00000
00000
OOOIlO
00000
OOOO(J
00000
OOOO()
000110
00000
(((lOOO
11 o5R20 0()OK4
24 1l1)f<2() 0611,5
4(-' Oh67A 01100
00000
OOO()O
15 ()57~0 (JOIl()O
33 0331L 00000
33 032RL O()OOO
?fl o?492 009RL
.)2 [)09R3 000-2
2[1 02490 009RL
~'M 006lL 01111
J~ 013Rl 0000:;
00003
M4 013R4 032kL
JII OO~02 -0953

c

14
Fl1kTRN FREF FORHAT
00')90
0061l() I"ELLP
006Io
00620 v!I:LI.
OOh30
O()h40
OOh~()

006h ()
006"10
00680
00690
00700
Uo7]O /IRR
00720
00730':'
00740 FLUAT
O(H'iO
00760
00"170
007~0

007'10
OOBOO
(JOR 10
008?0
00R30
00840
OOR50
OOB60
OOB 70
O{JflRO
OOR90
00900
00910
00920
00930
00940
009':>0
00960
()0970
009AO
00990
01000
01010
01020
01030
01040
010?O
01060
01070
010AO
01090
OllOO
01110
OU20
01130
Oll40
111150
01lhO
Oll 70

liNF
HNF
TF
TF
TF
flNF
TlWI

CF
I:I'FOKI"I Ci'i

RF

flACK

lI"PIIT/flIITPUT LIBRARY SUB

CF
-I" PI MK
TLI
GAD,f'AC
TF
':'-':', GAO
IlS
, ':'-5
TF
~AC,FAC-l
SM
WI::LL,2,lO
CI'1
FAC,O,lO
BNE
WELLP
RNF
*+24,(HIT+22
TFM
-WI"LL,20,10
CF
OIJT+22
TF
-PI.ACF,[lI1T+24
BEl
ARR AY 2
~:: -'-~
DURG
Tf)~l

S""
AM
HI,V
TFI'I
TIJ
CF
TI!
TD
Til
TI)
fll~F

TD~I

o

00472
004R'"
OIJ49A
0050?
0050R
OO~2(l

0053?
00,)/,/,
OOLi,)6
OO~6R

",

",ARRAY CONTOL

SWITCH

~RR()R-3,4

'"
I::RIWR
,FAC-l
",CHfCK IF FUIATING NUMfjER IS DEFINFI'J
ERRllk
,-FMIMF
UIIT+22,PFRM
'I9,FAC-2
,,,MOVE MANTISSA
-f' SR-ll, 99
"+3h,FAC-2
",CHFCK FOR
NEGATIVE
lJUT+J.,2,l1
",YFS - PLACE ~IINIIS
-FSR-ll
fAC,-'19,lO
",CHECK FOR A 7ERO
':'+24
FAC,l,lO
",ADJUST EXPrlNFNT FOR OUTPUT
FAC-?h,5,10
'" ROUND A~.IS~!ER
flACK
",CHECK FnR ALL NINES
FAC-27,99999
",RESTORE NINES
UIJT+4, FAC-31
",MOVE IN THE NUMBER
UUT+4
UIIT+14, FAC-27
UUT+12, FAC-2R
UUT+ 10, FAC-2'1
UUT+ 8,FAC-30
"+ 24, FAC
OUT+17, 2
'" NEGAT IIII' EXPONENT
FAC-l

CF
MANSN
OS
EXPSN
DS
,"-I
EXPAIl
I)S
,*-3
UUT+20, FAC-l
Ttl
TD
OUT+?2, FAC
B7
ARR-2~
nUT
DS
1
UAS
11
DSC
2,0
11, O.OOOOE+OO,
f'~RM
DSAC
US
5
FIXFL,IIAR
PRU
TO
,PRD-l
VAR
DS
VAf(
CF
GAD
DC
4,70,*
flll
TF
FAC,30Z
PkOPUT,Gf'TSH
HD
HERE,30l
PRnGET TF
MA,"St.l, lOOO
TF~1

",CLEAR FAC
",GOTO OIlTPUT ROUTINE IF Nf'EDt=D
",CLEAR THf I~'PUT AREA

33 03?RL
K5 Ol()117
2fl 1l1l()()0
OOO(l(1
2h ()2492
J" O('51l2
14 02492
1·,7 [)(I4R4
i,ll" 005R'O
.Ih OO'i[)K
L', (1(195',
2(1 O'iR?-

IJ/1I1111l
02492
01()(17

013Rl
013R4
013k4
00953
on099
[l213J
ML, 110720
,I~ (10932
1.3 0213,)
14 O?'~92
H6 0075h
12 112/,92
11 O?46A
M7 00792
Ih 024f<5
I(~ 110'135
L3 0093~
K5 00945
K5 00'143
K5 00941
K5 0093'1
M4 110RRR'
J5 0094R
33 02491
OPOOO
00000
OOO()O
K'i 00951
K'i (lO<)53
i>19 005HO
00001
(lOOZZ
O(l002

()(l!\(l4
O,,4Yl
033J L
00977
024yn
0009q
024QO
OOOOK
O(J(l(lO

02491
OO()-?
()O(J-(l

Ol?(l(>
009S:'
O()()K(I

005RO
(l()()(JO
00592
O[)955
OOh()4 M2 o22U, OO()()O
OOh 11
00h]2
OOA24
OOh3h
00h4R
006hO
illih 72
OOAR4
006Q6
0070R
00720
00732
0074 4
0075h
0076f.<
007f.<0
00792
()OfW4
00R16
OOR2R
OOR40
OOR52
(lORA4
OOR76
OORKA
OOR99
nOR9R
OOR96
009(10
009J2
110924
00931
01J933
11(1954
00977
009A2
009R4
009R3
0(1996
01007
010(lH
01020
01(132
01044
(JI056

.)~

M4
1"4
K[1
76
1(6

O(l()PP

01?OO
000-1
OO()-I)
01'+00
R99 0 9
024(,1
OIlIlO(l
02465
024h4
024A3
024f<2
1J2492
OOOO?
OOPOO

02 4 C)1
02 L,92
OO()(lfl

o

ooon
OO(Jfl5
nlll1 ()OQt1 3
0(1000
L 3 OO'lR3 OO(1()(1

K~'

On()O~

~16

(llOOR 01400

?n 02492 02403
1.3 003lh 06()Al
Kn 02370 024()3
J6 OOfl99 -loon

/5

-

"

...
FORTRN FREE FORMAT INPUT/OUTPUT LIBRARY SUB
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
012RO
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380
01390
01400
01'+1 0
01420
01430
01440
01450

o

ER

TFM
TFM
TOM
B7
OS
CM
BE
CM
BNE
BNF
TOM
B7
TIlM
AM
RNR
B7
CM
TOM
BH
CM
BE
CM
BE
CM
BE
TOM

ERMES

DPRA

0141-0
01470 E I,10
-VAR,FAC-2
ARR
ARR+l,9
AM+11,F
AM+11 ,2, 10
*+36,ARKAY-l
AM+l1,2221
AM+l1
VAR,ARRAY-l
ARRAY-l
PAR, 1,10
PRU
ARR+l,2

",IS

PAGE

IT NUMERIC

'"

",UP EXpmlENT BY EXPAO
,,,IS IT ZF.RO
",THIS MAY BE A Nnp
'" MAKE IT A NOP
",SAVE THAT DIGIT

'"

",MOVE TO NEXT DIGIT
'" CHECK FOR OVER FL nw
" ,ER RB
",MOVE TO NEXT CHARATER
",CHECK FOR E~IO OF CARD
'" TEST IF FLOAT ING
'" BACK TRACK
",ADD IT IN
, "SET SIGN
",SET HIGH ORDER FLAG

'"
",CHECK FOR OVERFLmJ
'"
",YES TYPF. FR R6
'"
'"

CHECK FOR ZERO
",SET -99 EXPONENT
",SET UP EXPONENT
'" CHECK FOR nVFRFl O~I

'"

'"

FOR THE' SECONIJ TIME

'"
'"
",MOVE

, "MOVE

02004

AROUND

IN THE EXPONENT

IN THE MANTISSA
",SET MANTISSA TO RIGHT LENGTH
",SET COKRECT SIGN
",MOVE VALUE

INTO THE VARIABLE

'"

",SET ARRAY SWITCH
",SET UP LENGTH ADDITION

'"

",FIXED OR FLOAT

'"
",LINKAGE TO
'"
'"
",RESET THAT

SIMPLE VAIABLf HANflELER

,,,TEST F()R END OF ARRAY

",RETURN

SWITCH

016R8
01700
01712
01724
01736
0174R
017hO
01766
01772
017R4
01796
01ROR
01A16
01A2A
01A40
01R52
01R64
01B76
01B8B
01900
01912
01924
01936
0194R
01960
01972
019H4
01992
02016
02028
(lZ040
02052
02064
02lH6
0;>01-14
02096
0210H
02120
02132
02144
02156
0216H
021RO
02192
02204

onlh
022211
02240
02252
022h4
02276
022RA
0<'300
0;>312
02324
02336
02370
0<'371

14 0582M7 02424
KJ 01Mlh
14 05R2Mh 02404
J5 01737
25 00000
00000
Jl 017hh
f'A~1 01811J5 o13Rl
M9 013R4
11 0511;>0
M5 01616
MM 01992
J2 017hh
2,) (l249~
7J 02492
32 032AL
K6 01930
J2 01930
14 00000
Mh OZl56
34 00000
J5 013Rl
L9 (l1373
~19 OZ156
ML 02(11h
Jh 01hOlL2 011-05
J4 01t:-04
Mh 020R4
J6 0160h
J5 llJ.3Kl
1'19 013H4
211 02492
l2 02340
Zfl 02490
26 02490
~IM 0215h
32 02490
K6 009Rl
J2 009A3
Kh 009AL
M9 00h04
J5 OOhO~
K6 n2299
Jl 02299
MM 0227h
Kh 02299
Li' 07299
KIJ 009R3
,Jl 02203
12 0337R
Mh 0091-14
J~ OOhO,)
42 OO()OO
00033
nOOOl

00009
01100
OOR9h
OOOPO
01200
00001
05A2-

000-1
01760
OOOOA

oooon
000-2
05R201111

000-1
017hO
00A99
00000
032R3
000-1
000-0
01200
00102
OO()(lh
00100
00000
02340
0-09R
00000
OO()-()
DIZ00
0-099
OO()03
()OOOO
01h06
00000
02369
00000
00R99
00000
02492
OO()-2
02490
OO()()O
U0009
02219
000-2
02?D3
02??1
00000
02203
-0000
000-1
01300
OOOO?
OOOO()

17

-""

...

.•.•.... "... ,,--.-.------~~~~--~~~~~~--~~---.-------~------------------ .-

FLJRTRN FRf:f: FURMAT
02340 30Z
023')0 ZEI<.U
02360
02370 E FOR~1
023HO
02390
02400
02410
02420
02430
02440
024~0

02460
02470
{)24RO
024'70
025(JO
02')10
02520
02530
O? 5" ()
025<; 0
02560
02570
025KO
02590
026(J0
021:>10
021:>70
02h30
02 f>4 ()
02h5 ()
O;:>hhO
O;>I:>-Ic)
02 I:>p. 0
OZA90

DC
S~1

87
BNF
B7
TFM
O~

flNE
A~,

Ul
flE
CM
8NE
SF
R7
NlJM2
CM
flH
CM
BE
CM
BE
B7
NlJ~IE 1<.2 TD
AM
1:\1\11<.
B7
AH
PLUS2
E PTF S T BNR
A[lI"JEXP SM
IlNF
SF

EXP2

INPUT/OUTPUT LIBRARY SUB
32,0
EXP,l,lO
PLUS
'"+20,FIXFL

,,~

~R7

NUMER2+6, FXP2-3
-PLACE,45,10
ER
PLACE,2,10
-PLACE.10,10
PLUS2
-PLACE, 20,10
EPTEST
EX P S~I
PLUS2
-PLACE,h9,10
Nur~ER2

'"

NU~1?,-Pl.ACE
NIJl~ER2+h, 1,10

'H24, EXPSN
I'W"'~R2+h, ,h
EXP,~llJ~IFR2+6,

f'L
6,0
1,
1

WFRF

",CHECK FOR AN
BRANC H
" ,NO
'" MDVE TO NEXT
" . I S IT A PLUS

-

'"
".I S

'"
'"

IT A MINUS

YES

'"
'"

-

IN TROUBL E

E
TO ER Rl
CHARACTER
(+)
(-)

SET EXPONENT SIGN'

IS IT ~!UMER IC
BRANCH
YES
" . I S IT flLANK
, , ,YFS
O.K.
'" IS IT A COMMA
O.K.
" ,YF S
",fRROR
, , ,SAVE THAT DIGIT
'" MOVF TO NEXT OIGIT

-

'"

-PLACF.,0,10
ADDF.XP
-PLACE, 23,10
ADDFXP
EI<
';'-';', -P LACE
f\!lJ~lFR2+6, 1, 10
PLUS2, "IIJMFR2+A, 11
f:R3
Pl.ACE, Z, 10

f'

DC

PRECEDING ZERO

'"
",FIXED -

1\7
IIC
111:1\11)

PAGf
02403
02404
0;416
02424
02436
02444
02456
024AR
024RO
02492
02504
02516
025211
02540
02552
025t-O
02572
02584
025Qh
0260R
02t-20
02h32
02640
02h'i2
02hA4
02h7(1
0261'4
0269A
0270fl
02720
02732
02744
02751:>
027hH
027A9
()OOO1

-

'"

'" liVER FlIW
" ,r;OTn NEXT CHARACTER

'"

'"

AnD

1~ITfl

FXPIlNENT AREA

" ,S FT S IG~I
11

00032
J2 01t-OtM9 01H16
r~M 02444
M9 015%
JO 02h4A
14 05R2M7 01344
11 05820
14 0~82M6. 026R4
14 05R2M7 02696
L2 00f\9R
M9 02hR4
1i.. 05R21~6 (12640
14 05R2Mh 0270R
1i.. O'iR2I~I:> OZ70R
r~9 013i..4
25 OOOO()
,ll ()264A
~i~1
OZt-Ri..
t·19 OZO?2
11 05f<;;>O
r"'!5 025h(1
J2 0?t-4h
fvlfvi 02744
1.2 O?t-4fl
KJ (I1AOI,
~':9 Ol,)9?
(lO(10t00001

\)()0-1
00000
01111
000(10

-27t-5

C

000~'5

01200
000-2
OOOJO
01200
OOOKO
01200
00000
00000
000n·9
01100
000-0
Ol?OO
000K3
01?OO

ooono
05RI!OOO-l
()2iJ4fl

()()OOO
1l0n-2

()5R2OOD-1
00R9R
000110
02hi..[J

o()()on

0;;>770 CIIIH: P()SITIUNS R fl,)U I R F Il
PlilS k~LllCIITIIW INCk~t'IE~IT
OO?h9 S T ~.T t'i'IEo\iTS PI-WC f'SSEIl

/8

lie ~~ ~:~ ~!~ ,;::

1620 FDRTRAN

12N INE
REVSCN
PHADOA
INTOP1
F.RMES3
CH lEND
ALPHRM
CH I
FMON
INOIV
IOSK
LIST
N12
PGNIJM
RECLG
Tl14

06089
05648
16000
02385
06015
15999
05760
15139
02324
02424
00554
02228
0359fJ
02222
02243
03149

II-D

WAOBJP
RECMKS
PGRMSW
INPUTD
ERMES2
CALL P;>
AFTBL
CH I 5
FP2

PHASE

04h<'>4

16023
02226
06091
05959
02400
15035
15K 39
02298
I~IIT
05H 75
IPPT
03542
LSTAD 0230B
N2
02238
PRST
02229
STBL
02377
W
02240

1-A

USEOFS
PIJSTSN
N21KEY
INDATA
ERMES1
CALLP1
BLK8
COMST
FWORK
lOCAL
IPTY
NXLOC
N21
PRTAD
TBCNT
WAOK

NrJVEMBFR,

02263
02294
06099
05805
05899
04244
02461
02382
05895
00716
03574
02372
03706
02502
02429
04868

SYMBOL

TABL E

SUBFCT
PRSCAN
MULOFF
FKTEST
DISKSW
BUFSCS
B7SCT
DUMMY
GRMK
IOGT
JAY
N1
N31
PRTHf)
TEND
WASS

02293
02454
02384
05176
02383
06218
00003
99999
02693
00566
02367
02233
05520
02517
02303
04504

SCSOOA 05859
PROGST 02257
MO~ICAL 00796
FCTENO 02318
OIMDDA 0583h
BUFFGT ()6320
BROAD 17340
E~ITL~J 0224H
H~IID
0575S
InPT
00532
KLNG
022~2
Nll
0252A
P(;f[D
0~5flR
PIIT
05720
02933
Tlll
WASS2 04A44

SCS OAT
PHS"DDA
LllOP4l
FACTRC
D I MI)AT
fllJFIlI M
CARn
EPR FT
J FTRe
I rlR BC
KWORK
N114
PGI-'D2
P? PTR
Tl12
\OJW

19<'>6

05R51
02'tH6
02994
OZ227
1,5R2k
07122
1503h
00602
0222toO';! 0
(l5R97
02 ,Q3 R
O'J774
()2313
03065
02296

10

PAGE

SAVSYM
PHRDAT
LHIGTH
FRh440
C r)I'IAIJll
BIGPIH
Cf'lCTL

02243
LJ2478
0224H
02430
02262
0223(1
0" l16
Fli\lC;
022'00
HlflllA 0'> H13
H1RT
00'>65
LDPHA 16024
1\11142 03J.02
PGH[)3 0~n5
RD[)NF 03<:'5H
030B'7
Tl13

o
;9

1620 FORTRAN II-D

*****
LOCTN

0

0

OP

02218
02222
02222
02223
02225
02226
02226
02227
02228
02229
02230
02233
02238
02240
02243
02243
02248
02250
02252
02257
02262

00005
00003
00001
00002
00006
00000
00000
00000
00000
00000
00002
00005
00002
00003
00012
00005
00002
00002
00005
00005

02263

00030

02293
02294
02296
02298
02303
02308
02313
02318
02323
02324
02336
02348
02360
02367
02367
02372
02377
02382
02383
02384
02385
02390
02393
02398
02399
02400
02412
02424

00001
00001
00002
00002
00005
00005
00005
00005
00005
02366
00565
00566
00000

26
16
49
49

16
17

02429
02248

15035
15139
15839
15999
15036
00716
00566
00520
00532
00554
00602
00565
00796
02430
02442
02461
02454
02466
02478
02484
02485
02486
02491
02494
02499
02500
17340
00003
02502
02516
02517
02523
02524
02526
02538
02550
02562
02574
02586
02598
02610
02622
02634
02646
02658
02670
02682
02693
02694
02706
02718
02730
02742
02754
02766
02778
02790

00001
00005
00005
00005
00001
00001
00001
00005
00003
00005
00001
02359
02324
00001

Q

02323
8-2359
8-0000
00000

-:1:5036
8-2461
8-2400

00005
00000

1620 FORTRAN 11-0

*****
LOCTN

•

P/L

OP

16
17
16
17

46
15

11
31
45
26
26
12
16
49
12
24
46
15
25
25
26
2"
16
49
26
25
16

P/L

Q

00000
00430 X2
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
02359
8-0000
02324
8-2430
00000
02359 ~2478
02324 -:1:0512
00002
00005
9-2486
00001
00001
00005
00003
00005
8-2430
00001
00000
00000
00014
00001
00002
00005
8-2502
00001
02538
01400
00000
00000
02568
i!0000
05759
~OOO-:l:
00000
02550
02377
02568
05826
02377
05826
00~99
00565
8-2645
00566
8-5805
000~1
05823
02372
05826
02622
01300
06318
00000
00001
02693
07120
02693
07222
02933
02377
02318
02377
8-2765
00565
00566
9582R
05841
07167
05836
07162
05844
008-08

PHASE

I-A

NOVEMBER,

PG/LN

LABEL

MNEM OPERANDS AND REMARKS

00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00225
00230
00235
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
00450
00460
00470
00480
00490
00500
00510
00520
00530
00540
00550

******

1620 FORTRAN II-D
DORG 02218
DC
,-100
DC
3,1, *
DSC
1
,2
DC
2
,67
DSC
6,8
DS
,PGRMSW
DS
,PGRMSW+l
DS
, PGRMSW+2
OS
,PGRMSW+3
DS
,PGRMSW+4
DC
,0
2
DC
5
,0
OC
2
,0
DC
3
,000
OS
12
,RECLG
OS
5
OS
2
OS
2
DC
,00000
5
DC
5
,19999

PHASE

PGNUM

PGRMSW
IFTRC
FACTRC
LIST
PRST
BIGPRT
N1
N2
W
RECLG
SAVSYM
LENGTH
FLNG
KLNG
PROGST
COMADD

PHASE

1966

PAGE

I-A

******* ** **** **** ****** *** ****** ** ******* ** * * *** *
USEDFS OSC
30
,100

***** *** * ** * *,'" ':"~ "" "'-

* •.•...•......•..••.......•.•...•...............•....................

SUBFCT
PUSTSN
WW
FP2
TEND
LSTAO
P2PTR
FCTEND
FMON

DC
1
to
DSC
1
,0
DS
2
OS
2
DS
5
DS
5
OS
5
DS
5
OS
5
TF
SETUP ROUT! NE ENTRY
*+42,FMON-l"
TFM
IORT,*+23
B
IOGT,,7
B
GO TO EXECUTE CALLED ROUTINE
DORG *-4
DSC
1
,2
DC
5
,15999
DS
5
DS
5
DSC
1,0
DC
1,0
DSC
1,0
DC
5,00600
3,001
DC
DSA
CARD
1,@
DC
TFM
FMON+35,BLK8
BTM
FMON,CALlP2
OS
1
INDIV
o FOR CARDS, 1 FOR TYPEWRITER,
FLAGGED 3 FOR PAPER TAPF
DC
,00000
DS
,RECLG+5

'"

JAY
NXLOC
STBL
COMST
OISKSW
MULDEF
INTOPI

CALLP2
INOIV

TBCNT
ENTLN

I-A

PG/LN

LABEL

00560
00570
00580
00590
00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00720
00730
00740
00750
00760
00770
00780
00790
00800
00810
00820
00830
00840
00850
00860
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00970
00980
00990
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
01110
01120

AFTBL
CHI
CHI5
CHIENO
CARD
lOCAL
IOGT
IORBC
IOPT
IOSK
ERRET
!ORT
MONCAL
F86440

NOVEMBER,

1966

;'0

PAGE

MNEM OPE RANDS AND REMARKS

OS
DAS
DS
OS
OS
DS
OS
OS
DS
DS
OS
DS
OS
TFM
BTM
BLK8
DS
PRSCAN TFM
BTM
PHBOAT DSC
DSA
DC
PHBODA DSC
DC
DC
OSA
DC
B8DAD
OS
B7SCT
OS
DDA
PRTAO
DC
PRTHD
DSC
DSA
DC
BV
Nll
TDM
AM
TR
BNR
TF
TF
SM
TFM
B
SM
C
BNL
TOM
OGM
GRMK
TO
TO
TF
TF
TFM
B
TF
Tn
TFM

,15035
430

,15139
,CHI+700
,CHI+860

,CHI-I03
,716
,566
,520
,532
,554
,602
,565
,796
FMON+35",BLK7
FMON
, E86440
,E86440+31
FMON+35
,PHBOAT
FMON ,10512"
CALL IN PHASEB AND EXECUTE
2,22
PHBDOA
1,@
1,0
5,17200
3,084" ,
SECTOR COUNT OF PHASEB
E86440
1,@
,17340
,3
,1 ,B8DAO,B7SCT ,Nll+4
1,@
READ PAGE OFLO
2,22",
PRTAD
1,@
*+12
00000
,0
,7,
CALCULATE MFMORY SIZE
,20000
*+18
1
,ALPHRM-l ,26
,0
*-24
STBL
,*-18
INDOA+13 , STBL
INDOA+13 ,999
,9
IORT
,*+23
INITIALIZE SYf.'BOL TABLE
IOGT
,INOATA
,7,
,10
INOOA+I0 ,1
I NODA+ 13 , NXLOC
*-48
BUFSCS+I00,*-*
*
BUFEQT +800 ,GRMK
BUFOIM+l00,GRMK
Till
,STBL
FCTENO
,STBL
IORT
,*+23
GET FIRST 5 nUl FNTRIFS
,OIMOAT
,7,
JOGT
IN FQUIVALFNCF TABLF [lIM FNTRY
OIMDOA+5 ,BUFDIM+45"
OIMODA
,BUFDIM+40
DIMOOA+8 ,008
,9

21

.". . . . . . . . . . . .u. . . . . ....... ........."..... .....
~

~

~

_.~~_u

...____...._____. ....-.-... _____

1620 FORTRAN 11-0

*****
LOCTN

OP

P/L

02802
02814
02826
02838
02850
02862
02874
02886
02898
02910
02922
02933
02934
02946
02958
02970
02982
02994
03006
03018
03030
03042
03054
03065
03066
03078
03089
03090
03102
03114
03126
03138
03149
03150
03162
03174
03186
03198
03210
03222
03234
03246
03258
03270
03282
03294
03306
03318
03330
03342
03354
03366
03378
03390
03402
03414
03426

16
16
49
11
24
46
26
11
12
13
32

05849
00565
00566
02856
96315
03258
02904
02904
99999
02904,
00095
00005
00099

11
26
12
26
12
11
24
46
26
12
32
14
33
47
12
26
12
32
26
22
11
21
26
26
12
26

11
14
47
12
12
16
14
46
26
11>
49
31
16
16
49
34

~:: *~;,.;:~;;:

--

---~----

0293~

02933
03065
03065
03065
03065
03102
03089
03089
03089
00005
0306§
0308~

00005
02994
03065
03089
03089
03089
00005
03149
03149
03149
02372
0237'"
0293~

02933
02318
02429
02856
02838
02318
03312
'1:-5999
03312
03294
15999
00565
00566
02530
02693
00565
00520
00000

PHASE

~6320

01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380
01390
01400
01410
01420
01430
01440
01450
01460
01470
01480
01490
01500
01510
01520
01530
01540
01550
01560
01570
01580
01590
01600
01,,10
01620
01630
011>40
011>50
01660
01670
01680
01690

TFM
TFM
B
AM
N114
C
BE
TF
AM
SM
MM
SF
OS
Tlll
AM
TF
SM
TF
SM
LOOP41 AM
C
BH
TF
SM
SF
Tl12
OS
CM
CF
Tl13
OS
BNE
N1142
SM
TF
SM
SF
Tl14
OS
TF
S
AM
A
TF
TF
SM
TF
AM
RDDNE
CM
8L
SM
SM
TFM
CM
BNL
TF
TFM
B
TR
TFM
TFM
B
34

000~6

06089
01200
02856
00094
000~9

00095
00000
~2243

00099
00095
02856
000-i2
00092
02856
01100
03065
00091
00000
00090
00000
01200
00092
02856
000'1:-1
00000
03065
03089
00091
03149
0306502372
00095
02933
00091
97115
01300
OOO~5
000~2

00060
'1:-5139
01300
05760
~3377

62517
15837
BOOOO
e3425
92517
00971

1620 FORTI< AN

I I-I)

DP

P/L

03438
03450
03402
03474
03486
03498
03510
03522
03534
03541
03542
03554
03566
03573
03574
03586
0359A
03610
031>22
03634
03646
03658
03670
03682
03694
03706
03718
03730
03742
03754
03766
03778
03790
03802
03814
03A26
03838
03850
03862
03874
03886
03898
03910
03922
03934
03946
0395A
03970

25
33
14
46
14
46
15
11>
49

06091
06091
06091
03574
06091
03542
02424
06098
03598

01200
00093
01200
00000
000-i0
00000

15
16
49

02424
06098
03598

00003
00098
00000

15
16
16
49
25
26
31
31
26
26
25
14
47
34
16
49
14
47
46
14
47
33
14
46
14
46
14
46
14
46
14
47
17
14

02424
06098
00565
00566
0225A
02382
06218
00402
02250
02252
02230
06091
03742
00000
00565
00566
06091
03802
03730
15139
04244
15142
15143
04504
15143
04664
15143
04868
15143
05176
15143
03970
04116
15143

00001

03982
03994
04006
0401A
04030

46
14
47
15
49

04128
15143
04038
02290
04128

01200
05-556
01200
00000

04038
04050

14
47

15143
04074

04,159
01200

PHASE
PG/ L~J

00426
00000
000~1

000~6
~3621

~5851

06294
02262
05875
05874
06264
06266
06283
00091
01200
00102
B3765
B6092
00091
01200
00400
000-i4
01200
00000
0-5762
01200
05756
01200
0§344
01200
04,641
01200
0<0946
01200
&2226
0'>153

01700
01710
01720
01730
01740
01750
01760
01770
01780
01790
01 BOO
01810
01820
01830
01840
01850
01A60
01870
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970
01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02170
02173
02177
02180
02183
02187
02190
02193
02200
02210

....

_"~

__ " •• w __ "._"' ••

~.

PAGE

"

,

,

,

NOVFHBFR,
OPERA~IDS

INPUTD
INPUTD
INPUTO
I PTY

I PPT

TO
CF
CM
BE
CM
BE
TOM
TFM
B
I)ORG
TOM
TFI~

B
DORG
TOM
TFM
TFM
B
TO
TF
TR
TR
TF
TF
TO
CM
BNE
RCTY
TFM
B
CM
BNE
BC4
CM
BNE
CF
CM
BE
CM
BE
CM
BE
CM
BE
CM
BNE
BTM
CM

I~IPUTD

I PPT
INO IV
N21KEY-l
N12
*-4
INDIV
N21KEY-l
N12

1966

PAGF

G

22

4

ANI) REMARKS
,426

I)ETFRMI NE INPUT DFVIr:F

,01

,10

,03

,10

,0
,10

"

CARl) I NPIiT

,10

,3
,08

,11,
,10

PAPE'R TAPF

INPUT

'~-4

INOIV
,1
TYPEWRITER INPUT
N21KEY-l ,06
,10
IORT
, *+23
IOGT
,SCSDAT
,7,
GET SYSTEM COMMUNICATION S FCTOR
COMADO-4 ,BUFSCS+76"
MOVE OHJECT TIME MACHINE SIZE
COMST
,COMADO
BUFSCS
,IN IT
SET UP 01 M IN SYS C[lM~1 SE'CTOR
00402
,INIT-l
SET UP DIM IN SYS COMM AREA
FLNG
,BUFSCS+46, ,
'MOVE F
KLNG
MOVf K
,BUFSCS+48"
BIGPRT,BUFSCS+65"SET PRINTER SIZE
INPUTD
,10
,01
*+24

"

"

IORT
READ AN INPUT RECORD
,*+23
IOGT
,N21KEY-7 ,7,
USING IORT.
INPUTD
,10
,01
*+24
N21+24
ALLOWS GOOF SWITCH
CHI
,14
,10,
IS THIS A CONTROL STATEMF~IT
CALLPI
NO, CALL IN PASS 1
CHI+3
CHI+4,5762,8,
IS THI S APSTSN STATEMENT
WASS
YES
CHI+4,5756,8,
IS THI S A POBJP ST.
WAORJP
YE'S
CH I+4, 5344-,8,
IS THI S A LDISK ST.
WAOK
YES
CHI+4,4641,8,
IS THI S A FAND5 ST.
FKTEST
YES
CHI+4,4946,8,
IF TRACE
NO
*+24" ,
CDCTL,rFTRC
CHI+4 ,4153 ,A,
ALL STATEMENT MAP

"

,

,
,
,
,

"

"
"
"
"

****** *******
** *** *** *** *******~~***
****** ********~~ ******* ****** ** **~~
BE
COCTL+12
",YES - IGNORE
CM
BNE
TOM
B7

C

"

MNEM

N21

1966

_. _ _ _ ...... " ..

,

LABEL

N12

.

D I MDDA+ 13, BUFEQT
IORT
,*+23
IOGT
,DIMDAT
,7,
GET 8 SECTORS OF EOIJlV. TA8LE
,16
,10,
LOAD SYM TA8LE FROM EOUIV TABLE
*+18
BUFEQT-5 ,12NINE
,2,
IS ENTRY ALL NI ~IFS
RDONE
YES
,N114+18
NO
*+30
,04
,10
*+18
DUMMY
,10,
,09
DEHRMINE SU8ROUTINE ADDRESS
,05
,610
*-6
95
5
SYMBOL TABLE POINTER
,*
, ENTLN":5
99
Tlll
,99
,6,
STORE SUBR. ADDRESS IN SYM TABLE
TIll
,5
,10
Tl12
,N114+18
ELIMINATE BLANKS FROM NAME
Tl12
,12
,10
T112
,02
,10
Tl12
,N114+18
N1142
Tl13
,T 112
Tl13
,01
,10
Tl13
,6
5
,*
Tl12
,0,0
,610
Tl13
,6
5
,*
LOOP41
Tl12
,02
,10
Tl13
,N114+18
Tl13
,11
,10
Tl13
,6
5
,*
Tl14
,T 112
Tl14
,T 113
Tl14
,01
,10
NXLOC
,T 114
NXLDC
,611, STORE SUBR. NAMf IN NAI~E TABL~
,T 112
Tlll
,6,
STORE POINTER IN SYM. TABLE
,NXLOC
Tlll
,05
,10
FCTEND
,T I I I
TBCNT
,10,
,01
UP DA TF. TABLE COUNT
N114+18
,BUFEQT+79?
N1l4
FCTEND
,05
,10
,02
,10,
*+lA
INITIALIZE READ IN AREA
CHIEND
,00
,210
"-6
,CHI
*-36
CHIEND
,ALPHRM
GET HEAD
IORT, ~'+23"
IDGT,PRTHD,7
Nll+4,CHIEND-162",BLANK HEADING Sf'CTOR
N11+4+163" ,
CLFAR RM
IORT ,~'+23"
PUT CLEARED HEADING
IORBC,PRTHD,7
,0971, ,
SKIP TO 1 IMMEillATE

I-A

IPTY

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

NOVEMBER,

LABEL

~5828

------,-- ---.'"......-......

MNEM OPERANDS AND REMAR KS'

PG/LN

~2837

...

I-A

Q

Locni

..-.. ---"-~~

-~.---

CHI+4,5556,A
*+32
USEOFS+27,O
CDCTL+12

0
),'q;t

",NO flIAGNDSTICS
",NO

* .••...•............•.....•...•..•...................................
CM
BNE

CHI+4,4159,8,
*'+24",

ARITHMETIC TRACE
NO

29
--~---

.. ---.-.---- ..

~-----~---

----

1620 FORTRAN 11-0

*****

o

o

LOCTN

OP

P/L

04062
04074
04086
04098
04114
04116
04128
04140
04152
04164
04176
04188
04200
04212
04224
04236
04243
04244
04256
04268
04280

17
14
47
17

e2227
0'3349
01200
&2228

15
17
14
46
34
26
39
34
39
48
49

04116
15143
04140
04116
00005
0411'3
05774
15141
05588
00000
15171
15139
00000
05899
00000
03706

32
32
32
32

15142
15144
15146
15148

00000
00000
00000
00000

04292
04304
04316
04328

43
43
15
15

04340
04340
02226
02227

02226
02227

04340
04352
04364
04376
04388
04400
04412
04424
04436
04448
04460
04472
04484
04496
04503
04504
04516
04528
04540
04552
04564
04576
04588
04600
04612
04624
04636
04643
04644
04656

43
26
31
16
26
11
26
24
47
26
26
16
49
49

04388
15299
15838
15299
02298
02298
02240
02298
04460
02240
02296
00565
00532
02454

02424
05760
15138
oooeo
02250
000&2
02252
02252
01100
02298
02240
e4495
e5B51
00000

26
17
14
46
14
46
34
39
34
39
48
49

15153
05774
15151
04644
15151
04644
00000
15139
00000
06015
00000
03706

05760
&452B
000+2
01200
01200
00102
00100
00102
00100
00000
00000

25
49

02294
03706

15151
00000

•

04663
04664
04676
04688
04700
04712
04724
04736
04743
04744
04756
04768
04780
04787
04788
04800
04812
04824
04836
04848
04860
04867
04868
04880
04892
04904
04916
04928
04940
04952
04964
04976
04988
05000
05012
05024
05036
05048
05060
05072
05084
05096
05108
05120
05132
05144
05156
05168
05175
05176
05188
05200
05212
05224
05236
05248
05260

PG/LN

0000i:
e3706
000i:4
01200
00102
05760
00100
00102
00100
00000
00000

OOOOol:

0000i:

000~4

1620 FORTRAN 11-0

*****
LOCTN

PHASE

OP

P/L

15
26
17
14
47
15
49

02367
15153
05774
15151
04744
06241
03706

14
47
15
49

15151
047BB
06241
03706

01200
0000&
00000

15
34
39
34
39
48
49

06241
00000
15139
00000
06015
00000
03706

00009
00102
00100
00102
00100
00000
00000

15
15
26
17
45
16
11
14
47
33
33
33
33
33
26
32
32
32
32
32
25
25
25
25
32
49

06240
02367
15171
05774
04940
0492'1
04927
04927
04916
15152
15154
15156
15158
15160
06253
15152
15154
15156
1515B
15160
06254
06255
06256
06257
06254
03706

0000i:
00001
05760
94916
i:5151
oooeo
000e2
i:5169
01100
00000
00000
00000
00000
00000
15161
00000
00000
00000
00000
00000
15163
15165
15167
15169
00000
00000

26
17
25
25
33
14
47
25

15159
05774
05B94
05895
05895
05895
05520
05894

05760
e5200
15150
15152
00000
OOOH
01200
15151

00001
05760
~4700

000 .. 2
01200
OOOOol:

00000
000~4

02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
02421
02422
02424
02426
02428
02429
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710
02720

PHASE

l-A
LABEL

CDCH

NOVEMBER,

1966

PAGE

MNEM OPERANDS AND REMARKS
BTM
CM
BNE
BTM
DC
TOM
BTM
CM
BE
RCTY
TF
WATY
RCTY
WATY
H

COCTL,FACTRC
CHI+4,5349,8,
COCTL+24" ,
COCH ,LIST
5,0
*-1,1,611
PC,H02, N21
CHI+2, 14,10,
PC,HO" ,

,

CHI+32
CHI

LIST PRINTER
NO

TE ST FOR **
YES PAGE HEADING
NO,

INVALID CTL. ST.

,ALPHRM

E RMF Sl

ERROR,

INVALID CONTROL STATFMENT

N21
BR. TO READ NFXT STAHME~IT
OORG *-4
CALLPl SF
CHI+3
SF
CHI+5
SF
CHI+7
CHI+9
SF
** *** * ** ***** ******** * ******* ****** *** * ***** ** * ** * * ****** ** * *** ** '"* ':' *"
BD
*+48,IFTRC
",IF ~IEITHER TRACE SWITCH IS O~1
BO
*+36,FACTRC
TOM
I FTRC, -1
" ,TURN THEM BOTH ON
TOM
FACTRc,-l'

B

* .......................•.....•.•....................................

WASS

WASS2

BD
TF
TR
TFM
TF
AM
TF
C
BNH
TF
TF
TFM
B
B
DORG
TF
B TM
CM
BE
CM
BE
RCTY
WATY
RCTY
WATY
H
B
DORG
TO

B

*+48
CHI+160
CH15-1
CHI+160
FP2
FP2
W
FP2
*+24

,INOIV
,ALPHRM
,CHI-l
,00
,FLNG
,02
,KLNG
,KLNG

W

,FP2
,W
,*+23
,SCSOAT

,7,

,ALPHRM
,*+12
,72

,

,10,

,74

,10,

WW
10RT
InPT
PRSCAN
*-4
CHI+14
PGHD2
CHI+12
WASS2
CHI+12
WASS2

",10,

CARD INPUT
YES, MOVE INPlJT RECORD
TO
CH I 5
ERASE RFCORO MARK

,10,

CALCULATE F PLlJS TWO

CALCULATE W,

"

"

PUT SYSTEM COf'lMtiNICATION SI'CTO'R

GO TO PRINT PSTSN
IS DI'VICE COOl' PAPER TAPF
YES
NO, IS OEVICF CODE CARDS
YES

CHI
ERROR,

INVALID OtlTPIJT DEVICE CODE

ERMES3
N21
*-4
PUSTSN
N21

BR. TO READ NEXT

24

NOVEMBfR,

LABEL

02730
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
028BO
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270
03280
03290

OORG
WAOBJP TOM
TF
BTM
Cf'I
BNE
TOM
B
DORG
CM
BNE
TOM
B
oORG
TOM
RCTY
WATY
RCTY
WATY

STATEME~IT

,CHI+12

I-A

PG/LN

1966

PAGE

MNEM OPERANDS AND REMARKS
*-4
JAY
,1
CHI+14
,ALPHRM
PGHD2, *+ 12"
CHI+12
,72
*+32
,
BUFSCS+23,1
N21
*-4
CHI+12
,74
*+32
,
BIIFSCS+23,0
N21
*-4
BUFSCS+23,0

DORG
TOM
TOM
TF
BTM
BNR
TFM
AM
CM
BNH
CF
CF
CF
CF
CF
TF
SF
SF
SF
SF
SF
TO
TO
TO
TO
SF

OUP ACTIUN RfOUIREO
GO TO PRINT POIlJP
,10,
IS OEVICI:' COOF PAPER TAPF
"
NO
,11, YES

,10,

"
,11,

IS DEVICE CODE CARDS
NO
YES

,11

CHI
ERROR,

INVALID OUTPlJT DEI/ICE COOE

ERMES3

N21
*-4
BUFSCS+22,1
JAY
,1
CHI+32
,ALPHRf'I
PGH02,*+12"
*+24
,CHI+12
*-1
,00
*-13
,2
*-25
,CHI+30
*-4B
CHI+13
CHI+15
CHI+17
CHI+19
CHI+21
BUFSCS+35, CH I +22
CHI+13
CHI+15
CHI+17
CHI+19
CHI+21
BUFSCS+36,CHI+24
BUFSCS+37,CHI+26
BlIFSCS+38,CHI+2B
BUFSCS+39,CHI+30
BUFSCS+36
B
N21
OORG *-4
FKHST TF
CHI+20
,ALPHRM
BTM
PGH02,*+12"
TO
FWORK-1
,CHI+ll
TO
FWORK
,CHI+13
FWORK
CF
CM
FWORK
,77
N31
,
BNE
TO
FWORK-1
,CHI+12

WAOK

WORD SI7f FOR DISK 10

BR.
,11,

TO READ

~IFXT

STATFMENT

SET UP Tli LOAD OB.IECT PRnG. ON OK.
OUP ACT ION REQlI I RED

GO TO PRINT LDISK
,7,
ELIMINATE RECORD f'lARKS
,610

,10

GO TO PR I NT FANOK

, 10 ,

I S F Nli MF RIC
NO, FRROR
YES, LOAD F

au

Z5

sa, ;¢ £Xi i

it PI i1C:;tit4M# ;41 liAN Ii ;

-

~:':"':"."""'.'.'-'----"---"

'1,1

I

1620 FORTRAN II-D

*****

PHASE

LOCTN

OP

P/L

Q

PG/LN

05272
05284
05296
05308
05320
05332
05344
05356
05368
05380
05392
05404
05416
05428
05440
05452
05464
05476
05488
05500
05512
05519
05520
05532
05544
05556
05568
05580
05587

32
25
14
47
14
46
26
25
25
33
14
47
25
32
25
14
47
14
46
26
49

05894
05895
05895
05520
05895
05520
02250
05896
05897
05897
05897
05520
05896
05896
05897
05897
05520
05897
05520
02252
03706

00000
15153
00092
01300
000>l8
01100
05895
15154
15156
00000
OOOH
01200
15155
00000
15157
000&4
01300
OOOoiD
01100
05897
00000

34
39
34
39
48
49

00000
15139
00000
05959
00000
03706

00102
00100
00102
00100
00000
00000

03300
03310
03320
03330
03340
03350
03360
03370
03380
03390
03400
03410
03420
03430
03440
03450
03460
03470
03480
03490
03500
03510
03520
03530
03540
03550
03560
03570
03580
03590
03600
03610
03620
03630
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03760
03770
037BO
03790
03800
03810
. 03820
03830
03840
03850
03860

05588

26

15303

05760

05600
05612
05624
05636
05648
05660
05672
05684
05696
05708
05720
05732
05744
05755
05758
05760
05765
05768
05773
05774
05786
05798
05805
05B 11
05812

31
16
49
16
16
12
14
47
45
16
16
49
49

02526
00565
00532
15303
05707
05707
05707
05720
05660
0570'f
00565
00520
03706
00005
00003
00002
00005
00003
00005
00565
00532
0571'3
00002
00005
00001

15138
&5635
&5751
00090
&2693
00092
&2529
01300
00000
000&0
&5743
&2517

16
49
49

**);t>,~*

LOCTN
05813
05818
05821
05826
05827
05828
05834
05835
05836
05841
05844
05849
05850
05851
05857
05858
05859
05864
05867
05872
05873
05874
05879
05875
05882
05887
05893
05895
05897
05899
05959
06015
06089
06091
06096
06099
06218
06218
06319
06320
07121
07122
07223
99999
16000
16000
16005
16008
16013
16014
16015
16016
16017
16018
16019
16023
16024

B2527

-±5139

95797
e5761

95813

1620 FORTRAN
OP

II-[)

P/L
00001
00005
00003
00005
00001
00002
00005
B5836
00001
00001
00005
00003
00005
B7122
00001
00002
00005
B5859
00001
00001
00005
00003
00005
B6218
00001
00001
0000')
00000
00003
00005
00006
00002
00002
00030 X2
00028 X2
00032 X2
00012
00002
00005
-l:5139
00003
00100
00002
00800
00002
00100
00002
00000

32

00001
00005
00003
00005
00001
00001
00001
00001
00001
00004
00001
16014

----~---

00000

PHASE

I-A
LAB EL

NOVEMBER,

FWORK-l
FWORK
,CHI+14
FWORK
,02
N31
FWORK
,28
N31
, FWORK
FLNG
KWORK-l
,CHI+15
KWORK
,CHI+17
KWORK
KWORK
,77
N31
TO
KWORK-l
,CHI+16
SF
KWORK-1
TO
KWORK
,CHI+18
KWORK
CM
,04
BL
N31
CM
KWORK
,10
BH
N31
KLNG
TF
,KWORK
B
N21
OORG *-4
N31
RCTY
WATY CHI
RCTY
WATY ERM ES2
H
B
N21
DORG *-4
ROUTINE TO PRINT AND STORE
**
PGHD
TF
CH 1+4+ 160, ALPHRM
THE CEARED RECORD IS STILL
**
TR
Nll,CHI-l"
TFM
IORT,*+23"
B
IOPT, HEAD-4, 7
TFM
CHI+4+160,0,10,
REVSCN TFM
*+59,Nll+4+163"
SM
*+47,2,10
CM
"+35,Nl1+3
BL
PUT
BNR
*-36,*-"
TFM
"-1,0 ,610
PUT
TFM
IORT,*+23"
B
IORflC,PRTHO,7
87
N21
HEAD
DSA
Nll+l
DC
3,IR@",
ALPHRM DC
,O@
2
PGH03
OSA
CHI
DC
3tl8@"
DC
5,12345
PGH02
TFM
IORT ,*+23",
B
IOPT, PGH03-4, 7,
B7
PGH02-1,,6
INDATA DSC
,22
2
DSA
INDDA
,@
DC
1
SF
TO
CM
BL
CM
BH
TF
TO
TO
CF
CM
BNE

,
,

,10,

,

,10,

IS K NUMERIC
NO, ERROR
YES, LOAD K

,

,10,

K IN RANGE
NO, ERROR

,

"

"

NO, ERROR
YES, MOVE K TO FORTRA~I COM. ARFA
BR. TO REM NEXT STATEMENT
ERROR,

BR.

DEFINER TO PRINT HEADING

CONTROL RECORD PRINT DEFINER
NORMAL CONTROL RFCORO PRINT ROIIT INf

N21KEY
BUFSCS
BUFEQT
BUFOIM
DUMMY
PHADDA

R EC MKS
LDPHA

26

NOVEMBER,

5
3
5
6
2
2
30,fRROR,
28,FRROR,
32 ,ERROR,
12
2
CHI
3
06218
100
2
800
2
100
2

STATEMENT

WRITF BACK TO DISK

OSC
DC
DC
DS
DC
DSC
DSA
DC
DSC
DC
DC
DSA
OC
DSC
OSA
DC
DSC
DC
DC
DSA
DC
OSC
DC
OS
DC
OC
DC
OS
OS
OAC
OAC
OAC
DC
DC
DSA
DC
DORG
DSS
OS
DSS
OS
OSS
DS
DS
DORG
OSC
DC
DC
DC
DC
DC
DC
DC
DC
DSC
DSC
SF

FWDRK
KWORK
ERMESI
E RMES2
F' RMES 3
12NINE
INPUTO

~IEXT

CLEAR RM
CLFAR RM

INODA

INIT

TO READ

IN CORE
LOAD HEADFR
PRINT HEADER

03870
03880
03890
03900
03910
03920
03930
03940
03950
03960
03970
03980
03990
04000
04010
04020
04030
04040
04050
04060
04070
04080
04090
04100
04110
04120
04130
04140
04150
04160
04170
041AO
04190
04200
04210
04220
04230
04240
04250
04260
04270
04280
04290
04300
04310
04320
04330
04340
04350
04360
04370
04380
04390
04400
04410
04420
04430

SCSODA

F OR K OUTSInf RANGE

THE PAGf HEADI NG

MNEM OPE RANDS AND REMAR KS
1
5
3
5
1
2
DIMODA
1
1
5
3
BUFOIM
1
2
SCSODA
1
1
5
3
BUFSCS
1
1

C

,10

LABEL

SCSOA T

F IN RANGE
NO, ERROR
NO, !;'RROR
YES, MOVE F TO FORTRAN COM. AREA

I-A

OIMDOA

PAGE

,10

PG/ 1I~

01 MOA T

1966

MNEM OPERANDS AND REMARKS

1966

PAGE

,0
,17330
,OlD
,@
,20

,@
,0
,04800
,001
,(i)

,20

,@
,0
,19663
,001

,al
,1
,00000
,*-4
,999
,-99999
,OOOOO@

I~IVAL!o CONTROL RECDRO@
F OR K OUTS I DE RANGE@
INVAL IO OIiTPUT UNIT CODE@
,999999999999
,00

,OO@

0

,99999
16000
1,0
5,1 7290
3,050
5,02218
1
1
1
1
1
4
1
RECMKS-9

{)

,@
,@
,@
,@
,@
,0000
,0

27

t

1620 FORTRAN

*****

0

loCTN

OP

P/l

16036
16047
16048
16060
16072
16084
16096
16108
16120
16132
16144
16024
00000

15

02693
00001
16066
99999
16066
16066
16060
16000
16000
00012
00012

16
26
12
14
47
34
38
36
49

11-0

PHASE

I-A

NOVEMBER,

Q

PGI LN

00000

04440
04450
04460
04470
04480
04490
04500
04510
04520
04530

TDM
oGM
TFM
Tf'
SM
CM
BNE
K
WN
TRA

04540
04550

U)PHA
TCD
DEND

e7217
16023

OOOioO
&6217
01200
00701
00702
00500

lABEL

tt# wi'.#tH,

1966

PAGE

MNEM OPERANDS AND REMARKS
GRMK
*
,BUFSCS+999
*+18
DUMMY
,RECf.1KS
"
,10
*-6
.10
,BUFSCS-l
*-18
*-36
PHADDA,701
PHADDA,702

SET SYMBOL

TABLE TO RECORD MARKS

0

28

~:-::~~***

1620 FOR TR AN

II-D

PHASE

I-B

NllVEMR ER,

S'vMBOL

•

ZE RS YM
SUATST
SET INf)
SAVSYf.1
PRSCNI
OUTS12
N()PARM
MoVDIM
L INKCT
IOlOOP
GENDIM
FoRr~E R
FCHST
E84695
E37061
ERME S 1
DOlOOP
[)EF INE
COM PUT
COlNAM
CDOFlO
BEGINA
ADVAR1
AERR
ASCIA
ASC23
ASC3
ASC9
BlK 1
BlK4A
BlK8
CAll
CGTO
CKEND
COME
CS
DEFCT
DIM2
DKDl
OK I02
DOA
000
END
EOI
EREXT
ERR09
ETYPf
FLI ST
FOMAT
FORM5
HERE
INOIV
lOB
IDLER
IOUTl
JAY

06987
08348
08324
02243
10544
13262
14700
11116
13131
14271
11072
12770
08flAO
12686
07932
03767
12058
14060
14244
04696
03784
02638
08252
12214
12094
12438
12550
14586
09724
09801
02461
10344
10108
02612
11968
05882
14477
11484
14248
13332
1251fl
10416
09564
10930
03694
08004
13034
14706
12166
13602
12762
02424
14104
13996
13556
02367

XClDGT
SUBPUT
S ETFRO
RTCAll
PRSCAN
()UTSN3
NoNAR I
MONCAl
LI NKCD
INTOPI
F XORFl
FORMAT
FCTEND
E84560
EX ITCT
EOUIVN
DKLOOP
DEFCHI
COf.1MON
ClDGT2
CDPATA
ASC281
ADSliAP
AFRRI
ASCII
ASC24
ASC30
AVOID
BlKIA
BLK 5
8lK9
CALLA
CH I
CKRM
COMER
CSoRN
DIM
DIM3
DKf
DKL
DOA
III
ENDCT
EQ21
ERMES
ERR44
fX I T
FlNG
FDRM
FORM7
HOlL
INDI
lOCAL
lOPT
IOIIT2
JOE

14708
13350
14382
13242
10512
13980
04144
00796
12718
02385
06453
10392
02318
12542
13123
10786
14167
02593
10272
14664
09897
14422
08496
09484
14606
12942
14242
06066
09732
09816
02497
12318
15139
02938
09496
05738
1024R
11552
14316
13664
12670
11951
10037
11146
10003
14490
09262
02250
03510
13850
14210
11519
00716
00532
13308
07204

VARFoR
SIIBFCT
S ETDM5
RFTliRN
PRoGST
oLJTSN2
NoNARA
MoDAFT
LF.NGTH
INITAL
FXNUMA
FOf.1ATl
E94620
E84330
EX ITCD
EOlOOP
DKLlST
DECDDE
COMMEN
ClDGTl
CAllSW
ASC27A
ADSAVE
AFTBL
ASC12
ASC25
ASC31
Al
RlK2
BlK5A
BlK9A
CAllB
CHI5
ClDGT
COM IN
CSPVA
DIMEN
DKA
DKfR
OK PUT
OOC
D2
I"NDTR
1'022
FRR
ERR60
FCMA
FLOP
FORMX
FoRM8
HOll!
IND2
10D
IORBC

13744
02293
11384
10368
02257
13908
10224
09910
0224R
04098
06358
12230
09428
12230
12662
12306
13404
03794
11576
14604
10111
14150
08519
15035
13874
12986
14478
11923
09747
09824
02505
12338
15fl39
14548
11876
03634
10512
13708
13752
13524
12294
11963
09508
12274
03737
14490
13782
02466
14142
13982
14270
11538
14212
00520
IOUT3 13388
K
11979

191>6

PAGE

lABl E

USEDFS 02263
STOPE~I 14028
SETDM4 11276
PUTOUT 0937fl
PHBDDA 16008
OUTSNE 13844
NOLIST 03729
MASKlK 13152
LEADBL 0309A
I FSCAN 12274
FUNCTA 1372fl
FNTSW2 07439
1'94270 09128
F84240 12126
I"XCESS 06770
FNTLOG 0224fl
OK lOFN 13172
DEC(lf)A 04018
COM INA 11924
CLASEN 14678
CAllP2 02400
ASCAN 1 1205fl
ADL 1T1 08656
AL FAT 10976
ASC14 14626
ASC26 13426
ASC4
12414
A2
11935
flLK2A 09755
IllK6
09839
BLOC
02608
CALLI 12466
CKCNI 04962
CMPAR 06638
COMM
12068
CSHlo 05446
PIMNo 10677
DK8
1378R
DKF
14396
DKSWI '14304
DOCK
12390
1)3
11975
EoK
13554
1'023
11514
E RRi=T 00602
ERSW
05674
FCTST 079BO
FlOPl 17207
FORMI 12570
FP2
0229A
11955
I
INOIIT 13640
JOF.
14372
IORT
00565
IOUT4 13576
KLNG
02252

URDATA
STNOSW
SETOM3
PUSTSN
PHBDAT
oUTSCl
NNARAA
lUSTNo
IVALEN
I FASEN
FREQSW
FNTSWI
F.86440
E841flO
E SNoP 1
I"NSION
D I SKSW
C5DATA
Cof.1I"R3
CKCTAR
CALLER
ADXLlT
ADUT
ASCAN
ASCl5
ASC27
ASC6
SA
BlK3
IlLK6A
B1
CAlL2
CKCN2
COMA
COMST
CTloN
DI MSW
DKAI
DKG
DKSW2
DOCI
D4
EOBR
E024
ERROR
fRl
FLI P
FMoN
FORM2
FTYPF
IF
INSW
!nF
IoSK
!nUT '5
lDPHB

09889
10105
11016
02294
16000
10512
10512
08744
13179
14658
14382
10103
02430
120'54
0375'5
1156'5
02383
09905
12148
04098
12202
08712
085fl4
10440
13790
14082
12526
0271.fl
09770
09847
11927
124R6
05090
11744
023flZ
13785
10106
1396fl
14544
14306
12446
11987
1165A
113R2
093fl4
034H6
02454
02324
12910
12990
10296
02611

TPARCT
SMUJOP
SETDM2
PSCAlF
PAllS EN
OtlTSCf
MtllDH'
LNGPRT
lOUT fOR
IATYPF
FORM99
FMTCST
F84R04
F84130
FSNOPl
nrlTRAl\1
OIMNOT
CSTNol
COMERZ
CKC~ITU

CALlEN
ADVl DP
ADSTl\i
ASCFR
ASC21
ASC2R
ASC7
8EG I ~I
BLK3A
BlK7
B2
CAR D
CKCN3
COf.1AB
CoMSW
Cl
1)1 MT P
DKC
DK 10
DMVAR
DOf
FRAS E
FOR
f04
fRROl
fSNfl
FLIPl
FMSW
FrlRf.13
FXL! T
I FSW
I ~ITOP

144~2

we;

00'554
1344A
16024

IOSw
I rlZ
LFADZ

1469fl
0706fl
10H36
14490
13860
04835
023R4
02798
13264
143R9
12370
10031
13098
12010
02600
10101
1054'i
05550
09496
04fl76
1205A
OR220
08flOR
14026
13282
1431fl
12598
02626
09778
09862
11939
15036
052R6
11812
lOll?
11931
IllH5
14000
104RR
OR124
12926
1236'5
10fl5A
11770
04300
02724
17340
10104
130A2
OR060
101()7
09269
14636
10113
13872
O:B66

TBlFLJl
SINGST
SENSWC
PRTCHI
PAROIT
NtlMBER
~1[)VE I T
lITERl
10UTEN
e;oT()E~1

FoRM51
Fl NlI~IR
F.fl4710
fR3230
FRROR2
PoTFST
f) IMfRR
CnrHEl\i
COMADO
CHIIN12
AIGPRT
ADVAR2
A[)VAR
ASCI
ASC22
ASC29
/\SeA
R(;TR
RlK4
BLK7A
CALC
CCNO
CKCN4
COMC
CONT
C2
IlIMl
IlKfl
ilK Inl
Pil
DIlFF
FRRAN
FOliSW
F(n
FRR02
FSl\I[)l
FL I P2
FNTSW
FflRM4
GIlTfI
IF 1
IDA
IrlGT
WilT
,I
LIS T

07184
10100
14301
02526
02615
06150
11224
07720
13172
14120
13646
06462
12926
11026
09440
13171
07500
13794
02262
031>30
02230
08300
08124
12658
122:oR
14198
137'54
10773
09793
09870
11176
02603
(),)386
12024
11772
11443
10596
1410H
13264
12190
13110
13426
101111
IlHZ6
1346H
03743
03130
10102
14110
1031'(l
U2fl4
13952
OO?66
1 n20()
11'167
O?2?H

29

1620 FORTRAN 11-0

*****

PHASE

I-B

NOVEMBER,

1966

PAGF.

SYMBOL TABLE
L ISTl
LUXIT
MODAD
NONUM
Nl
ONE
PAl
PR
READI
SALT
SCNI
SC3
SMAOD
STBl
SUBP2
TBCNT
TONY
W

03662
07556
07919
03374
02233
03350
10934
12651
02878
05942
03828
10928
07242
02377
13518
02429
11508
02240

L1TF

Ll
MODE
NUMB
N2
ORDCT
PA2
PRNTl
RECLG
SAVE
SCN2
SC4
SMCNT
STC
SUBSW
TBST
TPCST
WIOCK

07768
04240
06451
06230
02238
14673
10782
04042
02243
04036
03852
10764
07295
05677
10114
04692
13639
14464

LKCOI
L2
MON
NUMBI
OFLO
OUTAR
PCNT
PRNT2
REF
SAVEl
SCN3
SC5
SMLNG
STNE'R
SUBTR
TEMP
TRINO
WIDTH

12918
04312
12161
06302
03318
13138
14093
04094
09035
11621
03888
10824
05965
03410
08484
026.20
02609
14453

lKC03
L4
MVI
NUMB2
OFLOI
OUTSC
PGNUM
PRNT4
RETR
SAVE2
SCN4
SC9
SMTLU
STSN
SV3
TEMP5
TWO
WW

12962
11796
11604
06606
03481
10464
02222
03130
02490
12937
03956
11164.
06988
05675
04179
02625
03362
02296

lKCD4
L5
MV2
NUMB3
OFL02
OUTSN
PI
PTYPE
RETRN
SAVE3
SCI
SO
SPERR
SUBPA
SWSET
TEND
URNCT
X

13006
11832
11692
06510
03131
13660
11038
12866
13166
l1R49
10884
10788
09278
13194
14682
02303
13279
08i72

LSTAO
LA
MV3
NUMB5
OFL03
OUTSI4
PLiIS
Pill
ROUTN
SCALE
SC2
SETOM
SPGS
StlBPF
SYM
HNZ
VARRR
ZER 13

02308
11876
11740
06338
03470
07068
06866
090R4
13715
14512
06138
10680
09362
1327A
10081
100'13
06546
10097

lSTEN
MASK
NOINO
NXLOC
OMM
PAUS
PLUSS
P2 PTR
RTSW
SCHI
SC22
SLASH
STAFT
SIIBP1
TBCM
T INUE
VARSW

07059
11989
02610
02372
10109
139t6
10033
02313
05673
0604'1
10620
12674
04431
13314
04538
13851
07615

C

30

1620 FORTRAN I1-0

t,~'f*t,t*

lUCTN

02218
02222
02222
022<'3
02225
02231
02233
0223A
02240
02243
02243
0224A
02250
02252
02257
02262
02263
02293
022'14
02296
0229A
02303
02308
02313
0231A
02323
023;>4
02336
02348
02360
02367
02367
02372
02377
02382
02383
02384
02385
02390
02393
02398
02399
02400
02412
02424

02429
02248
15035
15139
15839
15036
00716
00566
00520

OP

P/L

26
16
49
49

00005
00003
(!OOOI
00002
00006
00002
00005
00002
00003
00012
00005
00002
00002
00005
00005
00030
00001
00001
00002
00002
00005
00005
00005
00005
00005
02366
00565
00566
00000

16
17

00001
00005
00005
00005
00001
00001
00001
00005
00003
00005
00001
02359
02324
00001

02323
i'l2359
i'l0000
00000

t-5036
i'l2461
e2400

00005
00000
00000
00430 X2
00000
00000
00000
00000
00000

PHASE

·l-B

NUVE'MBER,

1966

PG/LN

LABEL

MNEM OPERANDS AND RFMARKS

00010
00020
00030
00040
00050
00060
00070
OOORO
00090
00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
00450
00460
00470
004AO
00490
00500
00510

**:.:'***

1620 FORTRAN II-O
PHASE
I-B
OORG 02218
OS
5
OS
3,*
DS
1
DS
2
OS
6
OS
2
OS
5
OS
2
OS
3
12
OS
,RECLG
DS
5
OS
2
OS
2
OS
5
DS
5
DSS
30
OS
1
DS
1
DS
2
OS
2
OS
5
DS
5
DS
5
OS
5
OS
5
TF
*+42,FMON-1"
SETUP ROUT! NE ENTRY
TFM
IORT,*+23
B
IOGT,,7
B
GO TO EXECUTE CALLED ROliT I
OORG *-4
OS
1
OS
5
OS
5
OS
5
DC
1,0
1,0
DC
1,0
OSC
DC
5,00600
DC
3,001
OSA
CARD
1,@
DC
TFM
FMO~I+35,BlK8
BTM
FMON,CALLP2
OS
1
INO IV
o FOR CARDS, 1 FOR TYPEWRITER,
FL AGGEO 3 FOR PAPER TAPE
OS
DS
,REClG+5
OS
,15035
OAS
430.15139
OS
,CHI+700
OS
,CHI-I03
OS
,716
,566
OS
,520
OS

005io
00530
00540
00550
00560
00570

PGNUM

Nl
N2
W
RECLG
SAVSYM
LENGTH
FlNG
KLNG
PROGS T
COMAOD
USEDFS
SUR FCT
PUSTSN
WW
FP2
TEND
lS TAD
P2PTR
FCTENO
FMON

'"

JAY
NXlOC
STBl
COMST
OISKSW
MULOEF
INTOP1

CALLP2
INOIV

TBCNT
ENTLOG
AFTBL
CHI
CHI5
CARD
IDCAl
10GT
IORBC

0

PAGE

~IE

0

~I

'td1/

¢*W't*

bite•• tt"t+.

It.*,.

hI

tn_

•
1620 FORTRAN 11-0

*****
LOCTN

C\

.0.0532
.0.0554
.0.0602
.0.0565
.02228
.0223.0
.0.0796
.0243.0
.02442
.02461
1734.0
172.07
.0313.0
.02454
.02466
.02478
.0249.0

OP

16

17

16
16
49
49

02497
.025.03
.025.04
025.05
.0251.0
02513
02518
.02519

.02524
02526
.02538
.02550
.02562
.02574
.02582
.02593
.02596
.026.0.0
.026.01
.026.03
.026.08
.026.09
.0261.0
.02611
.02612
.02615
.0262.0
.02625
.02626
.02638
.0265.0
.02662
.02674
.02686
.02697

P/L
.0.0.0.0.0
.0.0.0.0.0
.00.0.0.0
.0.0.0.0.0
.0.0.0.0.0
.0.0.0.0.0
.0.0.0.0.0
.02359
.02324
.0.0.0.0.0
.0.0.0.0.0
.0.0.0.0.0
.0.0.0.0.0
.0251.0
.0.0565
.0.0566
.0.0.0.0.0

.0.0.002
.0.0.0.05
00.0.01
.00.0.01
.00.0.05
0.0.003
.0.0.0.05
.00.0.01

16
49
47
16
49
49

17
16
43
26
43
15

.0.0.0.05
.00565
.0.0532
.02582
.02496
.02454

Q

99862
9243.0

H34D
92489
92497

925.05

H340
e313D

e2549
e2589
.034.0.0
93784

D252~

.0.00.05
.0.0.0.03
.0.0.0.04
.0.0.0.01
.0.0.0.02
.0.0.0.05
.0.0.0.01
.0.0.0.01
.0.00.01
.0.0.0.01
.0.0.0.03
.0.0.0.05
.0.0.0.05
.09.084
.02615
.0991.0
1.0114
.02718
15983
.0.0.0.01

-i5139

D613r
DDeDU
1.01.0.0
1.0.099
.02424
.0.0.000

PHASE

I-B

PG/LN

LABEL

.0.058.0
.0.059.0
.0.060.0
.0.061.0
.0.062.0
.0.063.0
.0.064.0
.0.065.0
.0.066.0
.0.067.0
.0.068.0
.0.069.0
.0.07.0.0
.0.071.0
.0.072.0
.0.073.0
0.074.0
.0.075.0
.0.076.0
.0.077.0
.0.078.0
.0.079.0
.0.08.0.0
.0.081.0
DDB2U
.0.083.0
.0.084.0
.0.085.0
.0.086.0
.0.087.0
.0.088.0
.0.089.0
.0.09.0.0
.0.091.0
.0.092.0
.0.093.0
.0.094.0
.0.095.0
.0.096.0
.0.097.0
.0.098.0
0.099.0
.01.0.0.0
.01.01.0
.01.02.0
.01.03.0
.01.04.0
.01.05.0
.01.06.0
.01.07.0
.01.08.0
.01.09.0
.011.0.0
.0111.0
.0112.0
.0113.0

IOPT
IOSK
ERRET
IORT
LIST
BIGPRT
MONCAL
E86440

NOVEMBER. 1966

PAGE

MNEM OPERANOS AND REMARKS

OS
.532
OS
.554
OS
.6.02
OS
.565
OS
.2228
OS
.223.0
OS
.796
TFM
FMON+35
.BLK7
BTM
FMON
.E8644D
BLK8
OS
.E8644D+31
FlIPl
OS
FLIP DISK ADDRESS
.17340 •••
FLOPI
FLOP (RESTORE DISK ADDRESS)
OS
.172.0.0+7 •••
FlIP2
OS
• E8644,o+7DD •••
fliP CORE ADDRESS
FLIP
TFM
BLK9A+5.FlIPl
TFM
FLOP
BRING IN GENERAL PRINT ROUTINES
IORT.*+23 ..
8
IOGT.BLK9.7
RETR
B7
*-*
TFM RETRN-5,PRINT ROUTINE- tFM RETRN,RETURN ADDRESS B7FLIP
** TO FLIP
** TO RESTORE TFM BLK9A+5.PARTIAL DISK ADDRESS-TF RFTRN-5,RETRN B7FLOP
2,22
BLK9
DSC
BLK9A
DSA
1,@
DC
BLK9A
1,0
DSC
DSA
FlIPl
3,Dll
DC
DSA
FlIP2
1,@
DC
** PRINT CHI OR CHI5
TFM OEFCHI ,CHI (OR CHI5), BTM PRTCHI,*+12
IS
** CALL TO- PRINT
5,12345
DC
PRTCH I TFM
IORT,*+23
B
IOPT ,OEFCHI-4. 7
BNI
*+32,.034.0.0
TFM
RETR +6.COOFLO
B7
FLIP
CALL TO OVERFLOW ROUTINE
B7
PRTCHI-l,.6,
RETURN TO PRINT CALLER
OEFCHI oSA
CHI
OC
3, 18@",
CHI PRINT OEFINFR
ESNOPL DC
4,.0
1,@
OC
CCNO
OC
2,.0
BLOC
DC
5,.0
TRIND
I,D
DSC
NOINO
OSC
1 • .0
INSW
DSC
1 • .0
CKEND
DSC
1 • .0
PARCNT DC
3,.0
TEMP
5,.0
DC
TEMP5
DC
5,.0
REGIN
BTM
PUT,D132,811,
SEMI COLON
REGINA TFM
PARCNT ,.0,9
BD
MOOAFT, S INGST
TF
SUBSW, lER 13+2
BO
BA,INOIV
TOM
CHI5+144
1,@,*
DC

",

:0
162.0 FORTRAN 11-0

*****

0

PHASE

I-B

NOVEMBER,

1966

LOCTN

OP

P/L

Q

PG/LN

LABEL

.02698
.0271.0
.02717
.02718
.02724
.02725
.0273.0
.02742
.02754

31
49

15138
.029.02

15838
.0.0.0.0.0

34

0.01.02

16
49
46

.0.0.0.0.0
.0.0.0.0.0
.0.0.0.01
.0.0565
.0.0566
.02718

.02766
.02778
.0279.0
.02798
0281.0
.02822
.02834
.02846
.02858
.0287.0
02878
.02878
.0289.0
.029.02
.02914
.02926
.02938
.0295.0
.02962
.02974
.02986
.02994
.02994
.03.0.06
.03.017
03.018

44
16
49
14
47
14
47
14
46
49

.02798
.02496
.02454
15139
.03.098
15141
.03.098
15143
.02638
.03.098

.02228
e3828

16
49
16
12
26
43
43
14
46
49

.0.0565
.0.0566
.02937
.02937
.02612
.02994
.02994
.02937
.02914
.02878

e29Dl
e9893
-i5283
.0.0.062
.0.0.00.0
.02612
.02611
t-5139
.011.0.0
.0.0.0.0.0

11

eUDD2
.0.0.0.0.0

44

.02937
.0293=1
.0.0.0.01
.03.062

.03.03.0
.03.042
.03.054
.03.062
.03.074
.03086
.03098
0311.0
.03122
0313.0
0313.0
03142
.03154
.03166
03178
0319.0
03202
03214
.03226
03238

16
16
49
14
46
15
43
31
49

.02593
.02525
.02526
15139
.02878
15148
.0313.0
15138
.03.098

t-5139
93.062
.0.0.0 .. 3
.012.0.0
.0.0.0.09
15139
15140
.00000

11
14
47
32

0260.0
15139
03622
.07068
05446
09084
02724
02600
02610
07242

.0.0091
.000&9
011.00
.0.000.0
93190
0lH34
10081
oeOOD
UDOO-i
00065

.0114.0
.0 115.0
.0116.0
.0117.0
.0118.0
.0119.0
.012.0.0
.0121.0
.0122.0
.0123.0
.0124.0
.0125.0
.0126.0
.0127.0
.0128.0
.0129.0
.013.0.0
.0131.0
.0132.0
.0133.0
.0134.0
0135.0
.0136.0
.0137.0
.0138.0
.0139.0
.014.0.0
.0141.0
.0142.0
.0143.0
.0144.0
.0145.0
.0146.0
.0147.0
.0148.0
.0149.0
.015.0.0
.0151.0
.0152.0
.0153.0
.0154.0
.0155.0
.0156.0
.0157.0
01580
01590
016.0.0
0161.0
0162.0
0163.0
0164.0
0165.0
.0166.0
01670
01680
01690
017.00

TR
CHI-l,CHI5-1
B
READl+24
DORG *-4
BA
RCTY
ESNO
OS
,*-5
1,@,*-4
DC
TFM
IORT,*+23
B
IOGT, URDAT A-4, 7,
READ STATEMENTS FROM TYPEWRITFR
BC4 *-36,. •
ALLOWS GOOF SWIJCH
** CALL PIT TYPE PRINT ROUTINE FROM OISK-RFTURN IS TO LNGPRT
SNF
TOTAL LISTING
LNGPRT,LIST"
TFM
RETR +6,SCNl
B7
FLIP
LNGPRT CM
CHI ,43. 1.0,
TEST FOR COMMENT
BNE
LEADBL
CM
CHI+2.D,lD •
BNE
LEADBL
CM
CHI+4,D,lD,
BE
BEGINA
8
LEADBL
DORG *-3
READI
TFM
IORT ,*+23
B
IOGT .CODATA-4, 7,
READ FIRST CARD
TFM
*+35,CHI +144
SM
*+23,2,1.0
TF
CKEND
CKRM
BO
SCAN BACK TO PLACE RECORD MARK
*+56 ,CKEND"
BO
*+44,CKENO-l
CM
CKRM-l,CHI
BH
CHECK FOR BLANK CARD
CKRM-24" ,
B
READl",
DORG *-3
AM
CKRM-l ,2
CKRM-l , ,6
TOM
DC
1.@,*
TOTAL LISTING
BNF
*+44,L 1ST.,
PRINT CARDS FROM CHI
**
MODIFY PRINT DEFINfR
TFM
DEFCHI,CHI.,
TFM
PRTCHI-l,*+2D
PRTCHI
B7
CHI,43,10CM
REAOI
BE
TOM
CHI+9.D.11
LEADBL BD
*+32,CHI
TR
CHI-l,CHI+l
B
*-24
DORG *-3
AM
ESNOPL, 1, 1.0
CM
CHI .69, 1.0
BRANCH IF NO STATfMENT NUMBER
BNH CSPVA-12" ,
SF
OUTSW
BTM
OUTPUT STATEMENT NUMBFR
CSTNO.*+12"
134,B,COLON
BTM
PUT.
ESNO,SYM
TF
ESNOPL • .0,8
TFM
TOM
NOIND.l,11
AM
SMADD.5.1D

15

17
17
26
16
15

11

92753
99885
.0.04.0.0

.0.0.0 ..3
.012.0.0
DDDeD
.012.0.0
.0.0.09.0
.012.0.0
0.0.0.0.0

.02228

82

PAGE

MNEM OPERANDS AND REMARKS

I
33

J

1620 FORTRAN

*****

II-D

LOCTN

OP

P/L

03250
03262
03274
03286
03298
03306
03306
03318
03330
03342
03354
03366
03378
03390
03402
03410
03410
03422
03430
03430
03442
03454
03466
03478
03490
03502
03510
03510
03522
03534
03546
03554
03554
03566
03578
03590
03602
03614
03622
03622
03634
03646
03658
03670
03682
03694
03702
03702
03714
03726
03738
03750
03762
03774
03786
03794
03794

43
15
12
43
49

LUCTN

OP

P IL

11
45
49

03829
03838
03910

00062
00000
00000

14
46
14
47
14
46
16
49

03829
03806
03829
03930
02615
04018
02615
04144

00040
01100
00033
01200
00060
01200

14
47
11
49

03829
03974
02615
03B06

0002-4
01200
000e1
00000

14
47
12
49

03829
03806
02615
03806

00064
01200
00061
00000

11
45
49

03829
04050
04098

00062
03829
00000

14
46
14
47
43
17
49

03829
10416
03829
04018
10440
04876
10440

0002-3
01200
000i!4
01200
02424
00060
00000

16
33
33

00014
04246
15140
15142

64692
00000
00000

04179
04180

26

00000
04179

15142

04192
04204
04216
04228
04240
04252
04264
04276
04288
04300
04312
04324
04336
04348

24
46
43
17
24
46
12
45
31
17
14
47
15
44

15143
09564
04240
04876
04692
04312
04246
04240
15138
09384
04246
04396
05675
04396

10041
01200
02424
00060
15143
01200
000-i1
04246
15144
00671
64538
01100
00000
02609

1-B

NOVEMBER,

PG/LN

LABEL

03410

0724~

0724~

00001
00062

01710
01720
01730
01740
01750
01760
01770
01780
01790
01800
01810
01820
01830
01840
01850
01860
01870
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970
01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270

BD
TOM
SM
BD
B
DORG
8TM
TOM
TOM
AM
SO
LEADZ
CM
BNE
TR
B
DORG
STNER
TFM
B
OORG
CM
BNE
BTM
C
BV
BE
B
OORG
FORM
CM
BNE
TR
B
DORG
BTM
C
BV
BE
TFM
B
DORG
TOM
CSPVA
TFM
AM
BNR
TFM
TR
B
DORG
CM
BNE
TF
TF
AM
SM
TR
B
OORG
DECODE TFM

07242
03306
03342

0724~

00000

17
15
15
11
43
14
47
31
49

10101
07242
03510
15139
03430
1513B
03366

16
49

09373
09290

00976
00000

14
47
17
24
46
46
49

15139
03634
04696
10081
03634
10392
03634

000.,6
01200
00066
10031
01400
01200
00000

14
47
31
49

15139
03554
15138
03510

00060
01200
15140
00000

17
24
46
46
16
49

04696
10081
03602
10392
09373
09290

00096
10031
01400
01200

15
16
11
45
16
31
49

02610
08183
08183
03702
08183
08183
03794

00000
00062
08183
00037
06066
00000

14
47
26
26
11
12
31
49

08183
03646
03780
03785
03785
03780
00000
03658

00090
01200
08183
03780
00091
00091
00000
00000

16

03829

B137

09084
0724~

06140
00000
00001

OOOEH
0724~

00090
01200
15140
00000

00~77

00000

~5139

1620 FORTRAN

03806
03818
03830
03838
03838
03850
03862
03874
03886
03898
03910
03922
03930
03930
03942
03954
03966
03974
03974
03986
03998
04010
04018
04018
04030
04042
04050
04050
04062
04074
04086
04098
04110
04122
04130
04143
04144
04156
04168

PHASE

Q

11-0

PHASE
PG/LN

ooeoo
00000

02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
0254U
02550
02560
02570
025RU
02590
02600
02610
02620
02630
02640
02650
02MO
02662
02664
02M6
02M8
02670
02680
02690
02700
02710
02720
02730
02740
02750
02760
02770
02780
02790
02800

MNEM OPERANDS

PAGE

4

STNER,SMADD,11,
TEST IF STATEMENT NO. WAS USED BEFORE
SMADD,l,6,
SET INDICATOR THAT STA.NO. APPEARED
SMADD,2,10
*+20,SMADD,11
*+44
*-3
PUT,
140,8,DUMMY
SMADD,O,6
DOTRAN,l
SMADD,1tlO
FORM,SMADD,ll
CHI,O,10,
STNER+20
CHI-l,CHI+l
*-36
*-3
SPGS+l1,076,9
SPERR+12",
STATEMENT NO. PREVIOUSLY lISEO
*-3
CHI,46,10
CSPVA
COLNAM,6,10
SYM,FMTCST
CSPVA
FORMAT
CSPVA
*-3
CHI ,00,10,
SHIFT OFF BLANKS
*+32
CHI-1,CHI+1
*-36
*-3
COLNAM,6,10
SYM,FMTCST"
MUST BE FORMANT STATEMENT
*+24
FORMAT
SPGS+l1,277,9
SPERR+12",
ELSE' ERROR 27
*-3
NOINO,
X+11,CHI,
X+11 ,2, 10
*+44,X+11,11
X+11
,37,610
X+11
,AVOIO,6,
AVOID
FLAG3, 7, FLAGO,RECMARK
DECODE

c

'~-3

X+11

,0,610

CSPVA+12
~'+54,X+11

*+47,*+42
*+35,1,10
*+18,1,10
",
CSPVA+24
"-3
*+35,CHI-2

ELIMINATE BLANKS

34

1-B
LABEL

1966

AND REMARKS

NUVFMB ER,

19M

PAGF

MNEM OPERANDS AND REMARKS
AM
BNR
B
DORG
CM
BH
CM
BNE
CM
BE
TFM
B
DORG
CM
BNE
AM
B
OORG
CM
BNE
SM

*+23,2.10
*+20
*+80
*-3
DECODE+35 ,40 ,610
Of'COOE+12
OECODE+3 5,33,610
*+56
PARCNT ,0,10
Of CODA
PARCNT,0,9
NONARI
*-3
OEC 00E+35, 24,610
*+32
PARC~IT, 1,10
DECOOE+12
*-3
OFCOOE+35,4,610
OECOOE+12
PARCNT,1,10
B
DfCOOF+12
OORG *-3
OECOOA AM
OECOOE+35, 2,10
BNR
*+20,OECOOE+35,11
B
CKCTAR
OORG *-3
CM
OECOOE+35,23,610
BE
000
CM
OEcnOE+35, 24,610
BNE
OECODA
CKCTAR BO
ASCAN,INOIV
BTM
CKCNTU,0,10
ASCMI
B
OORG
OS
14",
NONARI MUST BE AT LFAST -04144NONARI TFM
Ll+6, TBST
CF
CHI+1
CF
CHI+3

** ******OS*** ** ,*
** *** *

)',c*

SV3

TF

):c~****

SV3,CHI+3

*****~'(**** ** *~:c~:=: i,~**~: **~~ *;~::~ **** ** ******}le i,~
",SAVF FIRST 2 AND

*:',.c *~,

1/2 CHARACTERS

()

* ...•..•••...••.•••••••...•.......•.••.........•.....•.•.•........•....

Ll

ERROl
L2

C
BE
BD
BTM
C
BE
SM
BNR
TR
BTM
CM
BNH
TOM
BNF

CHI+4,ENDCT+4
END
*+24,INOIV
CKCNTlJ ,0,10
TBST,CHI+4
L2
Ll+6,11,10
Ll ,Ll+6, 11
CHI-1,CHI+5
ERROR,071,9
Ll+6, TBCM
*+72
STSN,O"
*+48, TRIND

SET SINGLE STATFMENT SWITCH OFF

35

**rl t! .."weH'"''

"MlII""",'t

u"t"HNi'WthIl.W-

•

1620 FORTRAN II-O

*****

C

PHASE

NOVEMBER,

I-B

1966

PAGE

LOCTN

OP

P/L

Q

PG/LN

LABEL

04360
04372
043B4
04396
04408
04420
04431
04432
04439
04439
04444
04450
04455
04461
04466
04472
04477
04483
04488
04494
04499
04505

15
43

02609
04396
09440
04246
15138
04246
00005

00000
02610
00'372
00096
15144
t5040

0424~

00000

02810
02B20
02830
02B40
02850
02860
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03021
03022
03024
03026
03028
03029
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270
03280
03290
03300

TOM
TRINO,O
80
*+24,NOINO
8TM
ERROR2,572,9,
MISSING STATEMENT NUMBER AFTER TRANSFER
SM
Ll+6,6,l0
CHI-l,CHI+5
TR
Ll+6,AFTBL+5,7
SF
STAFT
OS
5
,*
B
Ll+6,,6
DORG *-4
1,@
DC
OSA
NONARA
6,466455, ,
DC
FUNCTION
OSA
NONARA
SUBROUTINE
DC
6,626442"
DSA
NONARA
DEFINE
DC
6,444546"
DSA
NONARA
6,455864, ,
DC
EQU I VALENCE
DSA
COMMON
DC
COMMON
6,435654"
DSA
DIM
DC
DIMENSION
6,444954"
****** ******* ************** *** **** ** * ***** * * **** ******* * * * ** * * *,' t, "*** *
DSA
8EGIN
END TRAC E
DC
6,455544! '
DSA
NONARA
6,424547, ,
DC
BEG I N TRACE

17
12
31
32
49

00001
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006

04510
04516
04521
04527

00005
00006
00005
00006

04532
0453B
04543
04549
04554
04560
04565
04571
04576
04582
04587
04593
04598
04604
04609
04615
04620
04626
04631
04637
04642
04648
04653
04659
04664
04670
04675
046Al

00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006
00005
00006

-i0224
t0224
-i0224
t0224
-i0272
t0248

92626
-i0224

-i0368
t0224
-i0224
t0488
-i04BB
t0488
i0200
t0200
i0200
t0200
i0200
t0224
i0344
t0320

* •..••••••••.••••••.••••••••••.•.••..••..•.•..•.••.......•..•......••.

TBCM

OSA
DC
OSA
DC
DSA
DC
DSA
DC
DSA
DC
OSA
f)C
DSA
DC
OSA
DC
OSA
DC
DSA
DC
OSA
DC
OSA
DC
OSA
DC
DSA
DC

RETURN
6,594563"
NONARA
6,626356, ,
NONARA
6,574164"
OK IO
6,464955"
DK ID
6,464563"
OK IO
6,594543"
lOUT
6,414343"
lOUT
6,576455"
lOUT
6,636857"
lOUT
6,575949"
lOUT
6,594541, ,
NONARA
6,435655"
CALL
6,434153"
GOlD
6,475663"

RETURN
STOP
PAUSE
FIND
FETCH
RECORD
ACCEPT
PUNCH
TYPE
PRINT
READ
CONT INUE
CALL
GOTO

36

0
1620 FORTRAN

*****
LOCTN
046H6
04692
04694
04696
0470A
04720
04732
04744
04756
04768
04776
04776
04788
04800
04812
04824
04835
04836
04848
04860
04872
04874

0

04875
04876
04888
04900
04912
04924
04936
04948
04960
04961
04962
04974
049H6
04998
05010
05022
05034
05042
05042
05054
05066
05078
05090
05102
05114
05126
05138
05146
05146
05158
05169
05170
05182

OP

Ph

16
16
11
26
11
45
49

00005
00006
00002
04738
04743
04738
00000
04743
04776
04800

II-D

i0296

i0055
i5139
00092
i5139
00092
04743
00000

24
47
26
42

04695
04720
04830
04830
00000
00005
04830
04812
10081
00000

16
49
43
16
14
46
15
42

00002
00565
00566
04962
02603
15839
04960
15848
00000

94899
99901
15849
00090
000 .. 3
01200
00009
00000

14
47
14
46
16
16
49

02603
05042
15839
05042
02603
09373
09290

00094
01200
000 .. 3
01200
00090
00e73
00000

16
43
12
26
43
43
14
46
49

05089
05158
05089
02612
05146
05146
05089
05066
04876

%-5983
10104
00092
00000
02612
02611
t5851
01100
00000

11
15

00092
00000

44

05089
05089
00001
05214

02228

16

02593

t5839

12
47
16
11
33

oooe 1
01200
t0056
00092
00000
04738
01100
0473&
00000

PHASE

6

MNEM OPERANDS AND REMARKS

1-B

NOVEMBER,

1966

PAGE

PGI LN

LABEL

03310
03320
03330
03340
03350
03360
03370
033AO
03390
03400
03410
03420
03430
03440
03450
03460
03470
034AO
03490
03500
03510
03520
03530
03540
03550
03560
03570
03580
03590
03600
03610
03620
03630
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03760
03770
03780
03790
03800
03810
03820
03830
03840
03850
03860
03870

DSA
IF
IF (
DC
6,494624"
2
OS
COLNAM TFM
*+42,SYM-26"
COLLECT NAMES TO DETFRMINE T YPF OF STMNT
TFM
*+35,CHI
AM
*+18,2,10
TF
,CHI,7
AM
*-1,2,10
BNR
*+20,*-13,11
B
"+32
DORG *-3
SM
COLNAM-1,l,l0
BNZ
COLNAM+24
TFM
*+30,SYM-25
AM
*+18,2,10
CF
OUTSCE OS
, *
*-6,COLNAM+42
C
BNH
*-36
TF
SYM,COLNAM+42,11
BB
OORG *-9
CHECK FOR CONTINUATION CARDS
*'~**
OS
2
CKCNTU TFM
IORT,*+23
IDGT, C 50AT A-4, 7
B
BD
CKCN1,CHI5+10
TFM
CCNO,O,lO
CM
CHI5,43,10
BE
*+24
TOM
CHI5+9,
0,11
BB
DORG *-10
CKCN1
CM
CCNO,04,l0,
TI'ST FOR MORE THAN 4 CONTINUATION CARDS
BNE
*+68
CHI5,43,10
CM
BE
*+44
TFM
CCNO,0,10
TFM
SPGS+ll, 273,9
B
SPERR+12
DORG *-3
TFM
*+47,CHI5+144
BD
CKCN2+6A, FMSW
SM
*+23,2,10
CKEND
TF
CKCN2
BD
*+56,CKEND
BD
*+44,CKEND-1
CM
CKCN2-1,CHI5+l2
BH
CKCN2-24
B
CKCNTU
DORG *-3
AM
CKCN2-1 ,2,10
TOM
CKCN2-1 , ,6
1,@,*
DC
BNF
TOTAL Ll STI NG
*+44,LIST"
PRINT CARDS FROM CHI5
**
TFM
DEFCHI,CHI5

MNEM OPERANDS AND REMARKS

TBST

****

37

111.1111,111,11.•

IIUI

~:",

-------..-..

..

~,~-.~-

-"------~

......_.-, ..............

_-_

....--.,

...... ,~,--..~..:..:..=. ••• ;;---. :,; •.;..., .... ~..:....:...:.:...--- ••

\,:
I
II:,

1620 FORTRAN 11-0

*****

PHASE

I-B

NOVEMBER,

1966

PAGE

lOCTN

OP

P/l

Q

PG/lN

lABEL

05194
05206
05214
05226
05238
05250
05262
05274
05286
05298
05310
05322
05330
05330
05342
05354
05366
05378
05386
05386
05398
05410
05422
05434

16
49
14
46
11
43
16
11
45
16
31
49

02525
02526
15839
04876
02603
05386
05297
05297
05330

&5214

14
46
26
11
49

0529;<
05274
0818;3
08183
05274

00060
01200

26
12
31
11
49

05416
05416
00000
08183
04876

08183
000&1
15850
00-132
00000

05446
05458
05470
05482
05490
05490
05502
05514
05526
05538
05550
05562
05574
05586
05594
05594
05606
05618
05630
05642
05654
05666
05673
05674
05675
05677
05678
05690
05702
05714
05726
05738

26
43
31
49

05737
05490
15138
05458

05445
15139
15140
00000

16
16
14
47
11
25
31
45
49

10067
05556
15139
05654
05556
00000
15138
05594
05618

r0067
000&9
01100
00061
15139
15140
15141
00000

14
46
14
47
17
26
32

15139
05538
05556
05654
09440
10081
10078
00001
00001
00001
00002

03880
03890
03900
03910
03920
03930
03940
03950
03960
03970
03980
03990
04000
04010
04020
04030
04040
04050
04060
04070
04080
04090
04100
04110
04120
04130
04140
04150
04160
04170
04180
04190
04200
04210
04220
04230
04240
04250
04260
04270
04280
04290
04300
04310
04320
04330
04340
04350
04360
04370
04380
04390
04400
04410
04420
04430
04440

TFM
PRTCHI-l,*+20
B7
PRTCHI
CM
CHI5 ,43,10,
BE
CKCNTU
AM
CCNO,I,10
BD
CKCN4,FMSW
TFM
*+35,CHI5+10
AM
*+23,2,10
CKCN3
BNR
*+44,
TFM
,37,610
X+11
TR
,AVOID,6
X+ll
B
CKCNTU
DORG *-3
CM
CKCN3+11 ,0 ,610
CHECK FOR BLANKS AND MDVE NON BLANK
BE
TO SCAN AREA
CKCN3-12",
TF
X+ll
,CKCN3+11,611
AM
X+ll
,2,10
B
CKCN3-12
DORG *-3
CKCN4
TF
*+30,X+11
SM
*+18,1.10
TR
,CHI5+11
AM
X+ll
,132,9
B
CKCNTU
::o:~l!:>lO',(
THE FOLLOWIN'G IS USED TO COLLECT STATEMENT NUMBERS
SET UP RETURN ADDRESS
CSTNO
TF
CSORN-1 ,*-1"
BD
*+32 ,CH I
TR
SHIFT OFF LEADING ZEROS
CHI-l,CHI+l"
B
*-24
OORG *-3
TFM
SYM-14,0000,8
CSTN01+6,SYM-14
TFM
CM
CHI,69,10
BNH
CSTN01+104
AM
;.+18,1.10
CS TN01 TO
,CHI
TR
CHI-1,CHI+1
BNR
*+20,CHI+2
B
*+32
OORG *-3
CM
CHI,69,10
BH
CSTNOl-12
CM
CSTN01+6,SYM-10
BNH
*+24
BTM
ERROR2,576,9,
STATEMENT NO GRFATF.R THAN 4 DIGITS
TF
SYM,CSTND1+6,11
SYM-3
SF
R TSW
OS
,*-4
1
OS
ERSW
1
,*-3
S TSN
DC
1
,1, *-2
STC
OC
2
,00,*
BD
CSTNO-1,0 IMSW,6,
EXIT IF IN DI~IENSHIN STATFI'JENT
TOM
FXORFL,2
TDM
EXIT TO LOOK UP STATF~IENT NUMflFR
VARSW,l"
TDM
STNOSW,l
B
SMTLU
CSORN
BD
*+24,EOUSW

43
15
15
15
49
43

****'~

000""3
01200
000&1
10104
'*5849
00062
00000

0818~

000~7

0818~

06066
00000

04876

0544~

06453
07615
10105
06988
05762

0529~

00062
00000

oeooo

000&9
01100

·won

01100
00S76
0555&
00000

10106
00002
00001
00001
00000
10110

1620 FOR TRAN

II -0

LOCTN

OP

P/L

05750
05762
05774
05786
05798
05810
05822
05834
05846
05858
05870
05882
05894
05906
05918
05930
05942
05954
05965
05966
05978
05990
06002
06014
06026
06038
06049
06050
06058
06058
06066
06068
06070
06082
06094
06106
06118
06130
06138
06138
06150
06162
06174
06186
06198
06210
06222
06230
06230
06242
06254
06266
06278
06290
06302
06314
06326

16
15
14
4h
14
46
14
47
14
46
15
16
16
16
11
11
26
33

06049
06453
0604"l
06150
06049
06150
0604"l
05882
06049
05882
06453
05965
05948
05960
05948
05960
00000
00000
00000
05965
06049
06049
06058
05965
05918
10070
00000
06138

r5139
00000
00063
01200
000 .. 9
01100
000""8
01100
000S5
01100
00002
OOOSO
i-0069
r006S
000S2
000S2
06049
00000

00000

26
15
43
12
31
49

10070
00002
00002
10081
07615
06988
06049
15138
06988

0594fl
00000
10110
00091
06049
00000

17
15
26
16
14
47
31
49

09384
07615
10081
06308
15139
06230
15138
06186

00fl78
00001
06988
'*0052
000+0
01200
15140
00000

14
46
14
47
14
46
25
31
11

15139
06462
15139
06358
06308
06314
00000
15138
06308

00063
01200
000&9
01100
'*0082
01300
15139
15140
00091

11
11
14
47
14
47
32
49
32

- ..

000S2
000S2
OOO"rO
01100
000-3:2
01300
00000
00000

~----.~.--.-

.. -

-- --

PHASE

MNEM OPERANDS AND REMARKS

,

*****>1'

1-B

NOV F~IB ER,

PG/LN

LABEL

04450
04460
04470
04480
04490
04500
04510
04520
04530
04540
04550
04560
04570
04580
04590
04600
04610
04620
04630
04640
04650
04660
04670
04680
0469U
04700
04710
04720
04730
04740
04750
04760
04770
04780
04790
04800
04810
04R20
04830
04840
04850
04860
04870
04880
04890
04900
04910
04920
04930
04940
04950
04960
04970
04980
04990
05000
05010

TFM
TOM
CM
BE
CM
BH
CM
BNH
CM
BH
TOM
CS
TFM
TFM
TFM
AM
AM
SALT
TF
CF
SMLNG
OS
AM
AM
CM
BNH
CM
BL
SF
SCHI
OS
B
DORG
SF
AVOID
DC
DC
TF
TDM
BD
SM
TR
B
DORG
SC2
8TM
NUMBER TOM
TF
TFM
CM
BNE
TR
B
DORG
NUMB
CM
BE
CM
BNH
CM
BNL
NUMBI
TO
TR
AM

-'--~--

()

"--~'--~-

19hh

.38

CI

PAGE

MNEM OPERANDS AND REMARKS

~.--.-

..

SCHI ,CHI"
FXORFL,O"
SCHI,3,610,
NUMflER
SCHI,69,610,
NUMBER
SCHI,48,610,
CS
SCHI,55,hl0
CS
FXORFL,2"
SMLNG,O,lO,
SALT+6,SYM-12
SALT+l8,SYM-13
SALT+6,2,10
SALT+18,2,10
,SCHI,l1,
,t.e
SMLNG,2,10
SCHI ,2, 10
SCHI,40,610
*+56
SMLNG, 12 , 10
SALT-24
SYM-ll
,*
SC2
*-3
SYM-ll
2,37,*-3
2,@,*-1
SYM,SAlT+6, 11,
VARSW,O
SMTLU,EOUSW"
SCHI ,1 ,10,
CHI-1,SCHI,l1,
SMTLU
*-3
ERROR,78,9.,
VARSW,l"
SYM,ZERSYM+l
NUMB1+6,SYM-29
CHI,70, 10,
*+32
CHI-l,CHI+1
*-36
*-3
CHI,3, 10
FLNUMB
CHI,69,10
FXNUMB
NLJMBl+6,SYM+1
*+24
,CH I "
CHI-1,CHI+1
NLJMB1+6,1,10

~--.----

INITIALIZE IF NOT IN F.PtJIVALF:~JCF
I ~I IT I All Z F F I X OR FLOAT SI-IITCH

TEST FOR FI X VAR.

SET FXURFL TO F I X VAR
INITIALIZE SYI'IBflL L F~;GTH CIlUNT

TEST
TO SEE IF
SYMBOL IS HI llE
SHIFTED OFF

NAME GREAHR THAN 6 CHARACTERS
SET VARIABLE SW. HI INDICATE L ITFRAL

0

TEST FOR LEADING ZEROS

I

~

I,ii
COlL ECT MANTI SSA

I',I~

;

39
---.-.~--.-~-~

-

I'

+*""",.,Sttd' "Wt!ft"rrtUN!rh'W

tUff'!

t\'

•..... "".1' b 'tinY 1'I 1IWr'HJUt,'!!I!II,tW'W"llKwwW+tII:eIdWWWMNm' ,
ft'

It

t#
'.

•••••
LOCTN

0

0

0633B
06350
06358
06358
06370
06382
06394
06406
06418
06430
06442
06451
06453
06454
06462
06462
06474
06486
06498
06510
06522
06534
06546
06558
06570
06582
06594
06606
06618
06630
06638
06638
06650
06662
06674
06686
06698
06710
06722
06734
06746
06758
06770
0'6782
06794
06806
06818
06830
06842
06854
06866
06878
06890
06902
06914
06926
06938

1620 FORTRAN 11-0

q

I-B

NOVEMBER,

OP

P/L

Q

PG/LN

LABEL

MNEM OPERANDS AND REMARKS

11

10051
06230

OOOSl
00000

NUMB5

06453
10051
02252
06418
09384
10051
10082
r0082
00002
00002
06988

00002
oooei
10051
01300
00H7
10093
0630&
00000

06552
10051
06510
06552
10051
15138
15139
00000
06638
06552
06308
06618
06309
06308
06522

S6510
OOOSI
01200
e6618
oooei
15140
000i-0
01200
01100
&6618
t0082
01300
15139
00091
00000

15139
06878
06877
06B67
15141
06734
06746
06B67
15138
15141
06782
09384
06877
15138
15139
06866
06876
06877
15138
10051
10081
10052
10079
06770
06988
10081

00045
01200
000&0
00001

05020
05030
05040
05050
05060
05070
05080
05090
05100
05110
05120
05130
05140
05150
05160
05170
05180
05190
05200
05210
05220
05230
05240
05250
05260
05270
05280
05290
05300
05310
05320
05330
05340
05350
05360
05370
053BO
05390
05400
05410
05420
05430
05440
05450
05460
05470
05480
05490
05500
05510
05520
05530
05540
05550
05560
05570
05580

AM
B
DORG
TOM
SM
C
BNL
BTM
TF
TF
SF
DC
DC
B
DORG
TFM
CM
BE
TFM
SM
TR
CM
BE
BNH
TFM
CM
BNL
TO
AM ,
B
DORG
CM
8NE
TFM
TOM
CM
BL
BNE
TOM
TR
CM
BH
8TM
TO
TR
CM
8NH
S
TO
TR
AM
TF
SF
TF
BV
BD
TFM

49
15
12
24
46

17
26
26
32

49
16
14
46
16
12
31
14
46
47
16
14
46
25

11
49
14
47
16
15
14
47
47
15
31
14
46

17
25
31
14
47
22
25
31
11
26
32
26
46
43
16

00000

OOO~O

01300
01200
00002
15140
00069
01100
00H8
15141
15142
000&9
01100
06877
15139
15140
&0000
10051
00000
r0051
01400
10052
00099

1620 FORTRAN JI-O

*****

0

PHASE

j

n1

LOCTN

OP

06950
06958
06987
06959

49

06988
07000
07012

16
16
16

07919
07242
07295

&2373
eoooo
&2371

07024
07036
07048
07059
07060
07068
07068
07068
07080
07092
07104
07116
07128
07140
07152
07164
071 76
07184
07184
07196
07204
07204
07216
07228
07236
07236
07242
07248
07260
07272
07284
07295
07296
07308
07320
07332
07344
07356
07368
07376
07376
07388
07400
07408
07408

26
11
33

07059
07059
08124
00000
07104

02429
000&1
00000

07295
00000
07919
07242
07059
07204
07163
07163
07184
02429
08124

OOOto
OOOoj,O
OOOoj,O
00091
01100
07295
00050
00000
oooei
00000

49

09440
00796

00&74
00000

43
44
49

07720
07236
07068

07615
07295
00000

24

24
46
11
43
43
14
49

00000
00000
07068
07068
02611
07242
00000
07242
08880
07295
0573i07376
15139
07388

14
45
49

0604~

000~4

07408
07980

07295
00000

46

07512

01200

12
12
11
12
46
26
12
45
11
49

17

46
47
15
33

MODE
FXORFL

FLNUMB

NUMB3

VARBR

NUMB2

CMPAR

E XC ESS

PLUS

'"

CMPAR
VARBR+6,NUMB2+12
NUMB1+6,SVM+1
*+24
NUMBl+6,CHI,6,
NUMB1+6t1tlO
NUMB3+12
*-3
CHI,45,10,
PLUS+12
PLUS+11,0,10
PLUS+l,l
CHI+2,20,10
*+36
·+36
PLUS+1,2
CHI-1,CHI+1
CHI+2,69,10
*+24
ERROR,178,9,
PLUS+11,CHI+2
CHI-1,CHI+3
CHI,69,10
PLUS
PLUS+10,PLUS+11
PLUS+11,CHI
CHI-1,CHI+1
SYM-30, ,7
SYM,SVM-30
SVM-29
SVM-2 ,SYM-30, 7
EXCESS
SMTLU,SYM-29
SYM,99,l011

1-B

PAGE

SET FIX OR FLOAT SW TO FIX CONST

FIXED POINT NUMBER GREATER THAN K
RIGHT JUST! FY VALUE

BRANCH BACK TO SHI FT OFF LEAD I ~Ir, n ROS

COLLECT NUMBER

TEST FOR E TYPE

INVALID I:XPONENT

40

NOVEMBER,

1966

PAGE

Q

PG/LN

LAB EL

06988

00000

05590
05600
05610
05620
05630
05640
05650
05660
05670
056BO
05690
05700
05710
05720
05730
05740
05750
05760
05770
05780
05790
05800
05810
05820
05830
05840
05850
05860
05870
05880
05890
05900
05910
05920
05930
05940
05950
05960
05970
05980
05990
06000
06010
06020
06030
06040
06050
06060
06070
06080
06090
06100
06110
06120
06130
06140
06150

8
SMTLU
DORG *-3
ZERS YM DC
30,0
DC
3,010,ZERSYM-28
SYMBOL TABLE LOOK UP
******
******
*
SMTLU
TFM
MODAD,ST8L-4
SMAOD
TFM
SMCNT ,STBL-6
TFM
MODAD IS USED TO TEST FOR FIX OR FLOAT
******
SMADD WILL CONTAIN THE ADDRESS
OF THI: SYMB(]L ENTRY AT FXIT
**
SMCNT IS USED TO FIND VARIABLE OR LITERAL
**
TF
LSTEN,TBCNT
AM
LSTEN,1,10
CF
DMVAR
LSTEN
OS
,*
8
SMLOOP+36
DORG *-3
SMLOOP SM
SMCNT,l0,10
OUTSW
OS
,SMLOOP
MODAD, 10, 10
SM
AM
SMADD, 10,10
SM
LSTEN,1,10
8H
JOE
TF
*+35,SMCNT
SM
*+23,50,10
BNR
TBLFUL
AM
T8CNT, 1,10
B
ADVAR
DORG *-3
TBL FUL BTM
ERROR2,74,9,
B
ABORT JOB CAN NOT G(] (]N
MONCAL" ,
OORG *-3
JOE
BO
BRANCH IF SYMBOL IS A CONSTANT
LITERL,VARSW"
BNF
*+20,SMCNT,11,
FLAG AT SMCNT IMPLIES CONSTANT
B
SMLOOP
DORG *-3
,SYM
C
SMADD
OS
,*-5
BV
SMLOOP
BNE
SMLOOP
TOM
SET DIGIT IN INSW IF VARIABLE FOliNO
INSW,l"
SMADO
CF
SMCNT
OS
,*
C
SMADD,FCTEND, ,
TEST IF SYMBOL WAS LIBRARY FUNCT
BH
FCTEST" ,
AM
SMCNT ,3,10
BD
CSORN-1, 0 1M SW, 6,
RETURN IF IN DIMENSION STATEMENT
BD
*+32,EQUSW
CM
CHI,24,10
B
*+20
OORG *-3
SCHI,24,610
CM
BNR
*+20,SMCNT,11
B
FCTST
DORG *-3
BE
DIMERR+12

00000

10081
01400
01200
00001
00000
02318
01100
000&3
10106
10110
000~4

00000

10

TEST IF FIX NUMBER EXCEEDS K

P/L

00030
00003

49

PHASE

FXNUMB

SVM-30, 1, 10
NUMB
·-3
FXORFL,2"
SVM-30, 1,10
KLNG,SVM-30"
.+24
ERROR, 177 ,9,
SVM-30, TENZ
SVM+l,NUMBl+6,11,
SVM+l,,2
2,0,.-2
2,0,.
SMTLU
·-3
VARBR+6,NUMB3
SVM-30tl,10
·+24
VARBR+6,NUMB2+12
SVM-30, 1,10
CHI-1,CHI+l
CHI,70,10

1966

11

MNEM OPERANOS AND REMARKS

4/
aSii.Utttii. URiIl::::':$(

I,;;·

1620 FORTRAN II-D

*****

PHASE

LOCTN

OP

P/L

Q

PG/LN

07420
07432
07439
07439
07440
07452
07464
07476
07488
07500
07512
07524
07536
07544
07544

43
49

07440
07556

0729~

43
43
43
43
43
17
43
43
49

00001
07556
07556
07556
11968
07544
09384
09496
07544
07500

10113
07439
10111
10112
10110
00&73
10112
07295
00000

32

08124

00000

07556
07568
07580
07592
07604
07615
07616
07628
07636
07636
07648
07660
07668
07668
07680
07688
07688
07700
07712
07720

44
33
27
44
33

0573~

07068
00000
07241
08124
00000

06160
06170
061BO
06190
06200
06210
06220
06230
06240
06250
06260
06270
06280
06290
06300
06310
06320
06330
06340
06350
06360
06370
06380
06390
06400
06410
06420
06430
06440
06450
06460
06470
06480
06490
06500
06510
06520
06530
06540
06550
06560
06570
06580
06590
06600
06610
06620
06630
06640
06650
06660
06670
06680
06690
06700
06710
06720

07720
07732
07744
07756
07768
07780
07792
07804
07816
07R28
07840
07852
07864
07876
07888
07896
07896
07908
07919
07920

26
49

07068
09084
07636
08124
00000
04835
10464

44
17
49

07668
09084

43
49

07688

43
17
49

09484
09084

44
43
43
43
24
47
26
33
33
12
24
46

07068
08744
08060
07068
07241':
07068
08519
08519
07295
0851Q
0724-2
07896
OR519

11

0573~

0573~

0573~

00000

05737
00000
10102
0&154
00000
10102
00000
10109
0&153
00000

0729~

10105
06453
07919
10081
01200
07242
00000
00000
00092
10079
01200
000&2
00000
00000

32
49

0729~

11

08519

32

0729~

00092
00000

15

00000
02611

00001

07068

1620 FORTRAN 11-0
LOCTN

OP

P/L

07932
07944
07956
07968

33
14
47
17

07242
15139
07556
09384

00000
000
08656

02252
02372
00000

08744
08756
08764
08764
08776
08788
08800
08808

44
49

08764
07068

0791~

24
47
15
49

07241':
07068
10105
07920

10081
01200
00000
00000

08808
08820
08832
08844
08R56
08868
08880
08892
08904
08916
08928
08940
08952
08964

11
26
33
15
49
17
43
43
43
43
43
14
47
26

02372
0724;:>
07919
10105
08656
09384
08868
08868
08868
08868
08868
15139
08868
08999

00084
02372
00000
00000
00000
00374
10112
10110
10106
10113
10109
0001':4
01200
07242

L[JCTN

OP

P/L

08976
08988
09000
09012
09024
09035
09036
09048
09060
09072
09084
09096
09108
09116
09116
09128
09140
09152
09164
09176
09178
09178
09190
09202
09214
09226
09238
09250
09262
09269
09269
09275
09276
09278
09290
09302
09314
09326
09338
09350
09362
09378
09379
09383
09384
09396

11
26
12
13
32

00095
00000
82243
00082
00000

16
21
15
49
43
26
49

08999
02620
02620
02620
00097
00000
09066
09066
00000
07556
09262
09378
09128

26
31
11
14
46
42

09378
i-5036
09134
09134
09178
00000

09082
09375
00094
i-5136
01200
00000

16
49
11
49
34
38
16
42

00565
00532
02390
09250
00000
15036
09134
02430

89201
89269
00081
00200
00102
00100
i-5036
00000

08496
08508
08519
08520
08532
08540
08540
08552
08564
08576
08584

000-i0
00000

00000

1620 FORTRAN

o

11-0

LOCTN

09408
09420
09428
09440
09452
09464
09476
09484
09484
09496

11-0

82262
00098
00091
00000
05674
090H3
00000

15
15
16
49
49
15
15
26
49

02496
02454
02638
09429
02367
09383
09408

e3486

17
17

09384
09384

00,H6
00,H2

82385
00971
02424
89325
e9901
000 .. 3
01200
15849

ooe71

00001
00009

00000
00002
00004
09439
00000

I-B

NOVEMBER,

1966

PAGE

14

PG/LN

LABEL

07300
07310
07320
07330
07340
07350
07360
07370
07380
07390
07400
07410
07420
07430
07440
07450
07460
07470
07480
07490
07500
07510
07520
07530
07540
07550
07560
07570
07580
07590
07600
07610
07620
07630
07640
07650
07660
07[,70
07680
07690
07700
07710
07720
07730
07740
07750
07760
07770
07780
07790
07800
07810
07820
07830
07840
07850
07860

DORG *-3
SUBTR
BTM
ERROR,170,9,
DIM VAR IN EQUIV W/O PREVIOUS OIMFNSIONS
******
ENTRY TO PLACE VARIABLE IN SUBROUTINE OF.FINITION IN TABLE
******
THESE VARIABLE ARE PLACED IN TWICF BECAUSE OF POSS IBLE
**
DIMENSIONING LATER
ADSUBP BNF
*+44,SUBSW
CF
SUBSW
ADSAVE DS
,*
AM
SMADD,10,10
B
SET IND
DORG *-3
SF
SUBSW
SM
SMADD, 10,10
AM
TBCNT, 1,10
B
ADVLOP",
BRANCH TO PLACE SYMBOL IN SECOND TIMF.
DORG *-3
******
ENTRY TO PLACE CONSTANTS IN TABLI:
*****
ADLIT
BD
ADSTN,STNOSW"
BRANCH
ADD STATEMFNT NUMBER
BD
ADXLIT,FXORFL"
BRANCH TO AllD FIX CONST
A
NXLOC, FLNG
TF
NXLOC,SYM-2,6,
MOVE IN FLOATING MANTISSA
AM
NXLOC,2,10
TF
SMADD,NXLOC,6,
SET SYM ADD INTO TABLF
ADLlTl TF
NXLOC,SYM,6,
MOVE CHARACHRISTIC OR FIX CONST
SM
SMADD,1,10
SF
SMADD, ,6 '
AM
SMADD,1,10
B
E37061+12
DORG *-3
ADXL IT A
NXLOC,KLNG
TF
SMADD,NXLOC,6
B
ADL ITl
DORG *-3
******
ENTER WHEN LOOKING UP STATEMENT NUMBERS
******
LUSTNO BNF
*+20,MODAD,11,
B
SMLOOP
DORG *-3
C
SMAOD,SYM,6
BNE
SMLOOP
TDM
STNOSW,O
B
E37061-12",
BRANCH TO SET I NSW AND GO TO LlJX IT
DORG *-3
**,,,~**
ENTER TO ADD STATEMENT NlJMBER
**,,***
ADSTN
AM
NXLOC,4,10
TF
SMADD,NXLnc ,6,
MOVE STAMNT NO. ADORFSS Tn TAflLF.
CF
MODAD, ,6,
CLEAR FLAG FDR STATFMF~IT NIIMflFR
TDM
STNOSW,O
B
AOLIT1
BTM
ERROR,374,9,
ILLEGAL lJSE OF FU~ICTION NAME
FCTEST BD
*-12,COMSW"
TFST FOR FUNCTInN NAMF. I~I COMMON
BD
*-24,EQUSW"
FIJNCT NAME IN EPIJIV
BO
*-3A,DIMSW"
1
flD
*-48, 10SW
BD
FCTEST-12,OMM
CM
CHI ,24, 10

PHASf
PG/LN

00002
00005
00001
09373
09362
00565
00566
15839
09362
09302
09384
00005
00001
00004
05674
09429

16
43
16
49
14
46
43
17

PHASE

07870
07880
07890
07900
07910
07920
07930
07940
07950
07960
07970
07980
07990
08000
08010
08020
08030
08040
08050
08060
08070
08080
08090
08100
08110
08120
08130
08140
08150
08160
08170
08180
08190
08200
08210
08220
08230
08240
08250
08260
08270
08280
08290
08300
08310
08320
08330
08340
08350
08360
08370
08380
08390
08400
08410
08420
08430

MNEM OPERANDS AND REMARKS

to

~~E =~~~;~Mk~D

1-B
LABEL

REF

44

~J(JVfMflFR,

1966

PAGF.

1:'

MNEM OPERANDS AND RFMARKS
AM
TF
SM
MM
SF
DS
T FM
A
TDM
fl
flD
TF

*+23,5,10
TFMP",
TFMP,ENTLOG-5
TF.MP,2,l0
97

,*

*+30 ,uS F.DFS-l
*+18,98
,1,10,
SF.T HIDICATOR FOR FII~ICTIO~I USFD
lIJX IT
PUT
EXIT,ERSW
PIJTOUT ,PIJT-l
B
E94270
OORG *-3
TF
PlJTnUT,PUT-2
1'94270 TR
CARO,PUTOUT-3,2
AM
*-6,4,10
CM
*-18,CARD+I00
BE
*+14
BB
OORG *-9
TFM
!ORT ,*+23
B
IOPT,INTOP,7
AM
INTOP1+5,1,10
C9T7 ST ON SW 2
B
*+36,00200"
RCTY
WNTY CARD
TFM
E94270+6,CARD
EX IT
BB
E86440
DORG *-4
INTOP
DSC
2,02
OSA
INTOPI
DC
1,@
SPERR
TFM
SPGS+ll,071,9
BD
SPGS, INDIV
TFM
!ORT ,*+23
B
IOGT,C5DATA-4,7,
CHECK FOR CONT I NlJA T I ON CARns
CM
CHI5,43,l0
BE
*+24
BD
SPERR+24,CHI5+10
SPGS
BTM
ERROR,071',9
PUTOUT DC
5,0
DC
1,@
DS
4
ERRnR
TDM
ERSW,l
TDM
E94620+1,9
* CALL ERROR PR I NT OUT OF 0 I SK -RFTURN IS TO E94620
TFM
RETR +6,ER1
SET BRANCH TO ERROR MFSSAGF
B7
fliP
1:94620 B
Bi=GINA
ERROR2 TOM
E94620+1,2
TDM
JAY,4
TF
ERROR-l,ERROR2-1"
TRANSMIT THf' FRROR NIJ~lf\FR
B
ERROR+24
DORG *-3
AERR1
BTM
ERROR,376,9
cnMFR
BTM
ERROR,372,9,
INCORRECT COMMDN STATFMENT

45
a_MiiiiliU;::UiiC:ZL!!l

IM''1

.1620 FORTRAN 11-0

*****
LOCTN

Oi
,.

C)

10106
10107
10108
10109
10110
10111
10112
10113
10114
10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
103AO
10392
10404
10416
10428
10440
10452
10464
10476
10488
10500
10512
10524
10536
10544
10556
105h8
10580
105A8
10588
10600
10612
10624
10636
10648
10660
10h72
10h84
1069h
10708
10720

OP

16
17
16
17
16
17
16
17
16
17
16
17
16
17
16
17
16
17
Ih
17
16
17
16
17
16
17

02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324

44
16
49
32
15
43
49

10544
02496
02454
00457
00475
10588
1063h

02228
64098

44
16
Ih
16
26
12
22
11
26
12
22
21

10636
02719
02755
09891
06999
06999
07011
07011
07023
07023
06448
06913

02424
000.,1
000"1
00068
02377
00064
02377
00065
02377
00066
02252
02250

OP

P/L

10732
10744
10752
16000
16000
16006
16007
16008
16013
16016
16021
16022
16024
16036
16048
IhOhO
16024

43
49

02766
02638

16
49
3h
49

00002
00005
00001
00001
00005
00003
00005
00001
00565
00532
00012
00012

10512
10524
10536
10548
10560
10572
105fl4
105%

e9793
~0200

e9747
~0224

e9724
~0248

69724
~0272

69B39
~0296

69B39
~0320

e9B39
~0344

69839
~0368

e9724
~0392

69793
-:1:0416
69770
-:1:0440
69770
~0464

69816
~0488

00000
00002
02424
00000

1620 FORTRAN

LOCTN

10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404
10416
10428
10440
10452
10464
10476
104flll
10500

Q

00001
00001
00001
00001
00001
00001
00001
00001
00001

**~'(~~~'{

0

P/L

16
17
16
17
33
49
33
49
16
17
16
17
16
17
16

II-D

02424
00000

H008

62430
-:1:6047
-:1:6000
00500

33
49
16
17
16
17
16
17
16
17

02359
02324
02359
02324
05675
10512
05675
11576
02359
02324
02359
02324
02359
02324
02359
02324
14382
12166
02359
02324
02359
02324
02359
02324
02359
02324

-99793
-:1:0200
-99747
-:1:0224
00000
00000
00000
00000
69839
1:0296
-99839
-:1:0320
-99839
-:1:0344
B9839
-10368
00000
00000
B9793
-:1:0416
-99770
-:1:0440
-99770

17
24
46
47
31
15
45
17

04696
10081
04300
04300
1513fl
10106
10620
09384

00066
11575
01400
01200
15150
00001
15141
00672

17

~0464

-99816
1:0488

PHASE

LABEL

09460
09470
09480
09490
09500
09510
09520
09530
09540
09550
09560
09570
09580
09590
09600
09610
09620
09630
09640
09650
09660
09670
09080
09690
09700
09710
09720
09730
09740
09750
09760
09770
09780
09790
09800
09810
09A20
09830
09A40
09A50
09A60
09A70
09A80
09890
09900
09910
09920
09930
09940
09950
09960
09970
09980
09990
10000
10010
10020

D IMSW
I FSW
CGTO
OMM
EQlJSW
CALLSW
COMSW
IOSW
SUBSW

PHASE

NOVEMBER,

I-B

PG/LN

PAGE

DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DSC
1,0
DORG 10200
lOUT
TFM
FMON+35,BLK4
BTM
FMON, lOUT
NONARA TFM
FMON+35,BLK2
BTM
FMON ,NONARA
DIM
TFM
FMON+35,BLK1
BTM
FMON,DIM
COMMON TFM
FMON+35,BLKl
BTM
FMON ,COMMON
IF
TFM
FMON+35,BLK6
BTM
FMON,IF
TFM
FMON+35,BLK6
GOTO
BTM
FMON ,GOTO
CALL
TFM
FMON+35,BLK6
BTM
FMON,CALL
RETURN TFM
FMON+35,BLK6
FMON ,RETURN
BTM
FORMAT TFM
FMOI\I+35,BLK1
BTM
FMON,FORMAT
DOD
TFM· FMON+35,BLK4
BTM
FMON ,DOD
ASCAN
TFM
FMON+35,BLK3
BTM
FMON,ASCAN
OUTSC
TFM
FMOI\l+35, B LK 3
BTM
FMON,OUTSC
DKIO
FMON+35,BLK5
TFM
BTM
FMON ,OK 10
INITIALIZATION PHASE I-B
**
PRSCAN BNF
TOTAL LISTING
PRSCNl,L 1ST"
PRI~IT OUT THE HEAD
TFM
RETR +6, INITAL"
B7
FLIP
PRSCNI SF
00457
TDM
SET SY SCAL
00475,2" ,
BO
*+20,INDIV
B
*+56
OORG *-3
BNF
*+4R,INDIV
TFM
BA+l,41,10
TFM
BA+37,41,l0
TFM
UROATA+2,08,10
TF
SMTLU+ll,STBL
SM
SMTLU+ll,4,10
S
SMTLU+23,STBL
AM
SMTLU+23, 05,10
SMTLU+35, S TBL
TF
SM
SMTLU+35,6,l0
S
FXORFL-5,KLNG
A
PLUS+47,FLNG

1-8

NOVEMBER,

PG/ LN

LABEL

10030
10040
10050
10060
10070
10080
10090
10100
10110
10120
10130
10140
10150
101hO
10170

BD
B
DORG
DORG
PHBDAT DSC
DSA
DC
PHBDDA DSC
DC
DC
DSA
DC
LDPHB
TFM
B
TRA

10180
10190
10200
10210
10220
10230
10240
10250
102hO
10270
10280
10290
10300
10310
10320
10330
10340
10350
10360
10370
10380
10390
10400
10410
10420
10430
10440
10450
104hO
10470
10480
10490
10500
10510
10520
10530
10540
10550
10560
10570
10580

1966

18

MNEM OPERANDS AND REMARKS

MNEM OPE RANDS

48

19hh

PAGE

19

AND REMARKS

BA+4R,INDIV
BEGINA
*-3
16000
2,22
PHBDDA
1,@
1,0
5,17200
3,84
ER6440
1,@
lORT ,*+23
lOPT ,PHBDAT, 7

TCD

LOPHB
OUT OF CORF BLOCK 1 CONTAINS THE FOLLllWING
DIMENSION
COMMON
FORMAT
DORG lOUT
TFM
FMON+35,BLK4
" lOUT
BTM
FMON, lOUT
FMON+35,BLK2
TFM
BTM
FMON ,NONARA
CF
STSN
" , DI M
B
DIMEN
CF
STSI\I
",COMMON
B
COMMEN
TFM
FMON+35,BLK6
" IF
BTM
FMON, I F
, ,GOTO
TFM
FMON+35,BLK6
BTM
FMON ,GOTO
TFM
FMON+35,BLK6
"CALL
BTM
FMON ,CALL
TFM
FMON+35,BLK6
"RETURN
BTM
FMON, RETURN
CF
FREOSW
" , FORMAT
B
FOMAT
FMON+35,Bl:K4
, ,DOD
TFM
BTM
FMON ,DOD
FMON+35,BLK3, ,
TFM
ASCAN
BTM
FMON ,ASCAN
TFM
FMON+35 ,BLK3"
OUTSC
RTM
FMON ,OUTSC
FMON+35,BLK5
, ,OKlO
TFM
BTM
FMON ,OK IO
ENTRY TO DECOMPOSE DIMENSION STATFMENT
******
OIMEN
BTM
COLNAM,h,lO
S YM, ENS lON+ 10
C
BV
ERROl
BNE
ERROl
TR
CHI-1,CHI+11
TOM
DIMSW,l
BNR
*+36,CHI+2
DIMI
BTM
ERROR,072,9,

49
1111111

I,JJU

- --

--.~-~-.'-

_

~

~

____ ____ ".M_. __ ..•...
~

"--------, ...

MM _ _ _ . . . _ ••

---,.--~-

--...----.

..........

«1620 FORTRAN II-D

****"
LOCTN

OP

P/L

Q

PG/LN

10608
10620
10632
10644
10656
10668
10680
10692
10704
10716
10728
10740
10752
10764
10776
10788
10800
10R12
10824
10R36
10848
10860
10872
10884
10896
10908
10920
10932
10944
10956
10968
109RO
10992
11004
11016
11028
11040
11052
11064
11072
11072
11084
11096
11108
11116
11116
11128
11140
11152
11164
11176
11185
III R8
11200
11212
11224
11231

17
14
47
14
46

09384
15139
10608
15139
10608
05738
11484

00~70

10590
10600
10610
10620
10630
10640
10650
10660
10670
10680
10690
10700
10710
10720
10730
10740
10750
10760
10770
10780
10790
10800
10810
10820
10830
10840
10850
10860
10870
10880
10R90
10900
10910
10920
10930
10940
10950
10960
10970
10980
10990
11000
11 010
11020
11030
11040
11050
11060
11070
110RO
11090
11100
11110
11120
11130
11140
11150

17
43
15
26
12
16
14
47
32
32
31
14
47

0729~

08519
07242
0724i!
15139
10596
10596
10680
15138
15139
10860
05446
10081
10872
09384
08519
10077
10078
08519
02372
02620
15139
11116
15139
10596
11072
0729!t

000 ..0
01100
000e9
01100
r0680
02611
00001
0724~

000175
,10001
000~4

10596
10788

01200
00000
00000
15140
000e9
01100
r0836
000170
01200
00oi79
000175
000017
00000
10081
000&5
10081
000174
01200
OOOB
01200
10596
00002
02620
00000
00099
00000
00000

44
15
33
49

10860
07295
10680
11016

10680
00003
00000
00000

23
32
26
31
25
14

0724~

02620
00000
00099
15140
0729!t
0170172

17
14
47

17
11
15
33
26
11
26
14
46
14
47
44
15
23
32
26
33
49

0724~

00095
0724~

00095
0724~

15138
11185
11185
00000
11276
11232
OB51"!
11396

46
46
16
49

*::~ ~{}::}:~

01100
01200
'WOO 1
00000

1620 FURTRAN

11-0

LOCTN

IlP

P/L

11232
11244
11256
112M
11275
11276
112H8
11300
11312
11324
11336
1134H
11300
11372
11384
11396
11408
11420
11432
11440
11440
11452
11464
11476
11484
11484
11496
11508
11520
11532
11544
11552
11552
11505

20
12
26
49

02620
02620
08519
11384

08519
OOOg5
0262&
00000

26
12
12
23
32
20
20
26
21

02620
08519
02620
02629
00095
0237 ..
08519
026217
026217
0262&
02372

0851 'J

11576
11588
11000
11612
11624
11636
11648
11660
11672
11684
11696
11708
11720
11732
11744
11 756
11768
11 780
11792
11800
11800
----------_.-

PHASE

PG/LN

11440
02638

00095
(JOOoiO
Oil 51"!
(10000
00099
0262&
023n
011519
OOOEtl
000&5
0724215141
(JOOOO

14
47
31
49

15139
10596
15138
10620

01200
15140
00000

11
45
1.1
26
26
49

07919
11552
02372

11
11
26
45
49

0237~

023n
0724 ..
10692

000~3

000172
0791"!
05965
10081
02372
00000

17

09384
ooni
00006 X2

17

04696
10081
04300
04300
15138
10112
15139
09496
15139
09496
05738
15139
09496
11876

000g3
12165
01400
01200
15144
OOOOr
000 .. 0
01100
000e9
01100
H708

02372

24
46
47
31
15
14
47
14
46

17
14
46
43

000~4

01200
02611

11
26
43
22
49

11800
02262
11812

000175
02262
06453
0229R
00000

22

02262

02252

0237~

PHASE

11160
11170
11180
11190
11200
11210
11220
11230
11240
11250
11260
11270
112RO
11290
11300
11310
11320
11330
11340
11350
11360
11370
113RO
11390
11400
11410
11420
11430
11440
11450
11460
11470
114BO
11490
11500
11510
11520
11530
11540
11550
11560
11570
11580
11590
11600
11610
11620
11630
11640
11650
11660
11670
116BO
11A90
11700
11710
11720

1-B

NOVEMBER,

LABEL

SETDM

SD

SETDM2

SFTDM3

GENOIM

MOVflIM

OIMTP

20

MNEM OPERANDS AND REMAR KS
8TM
CM
BNH
CM
BH
BTM
8D
TDM
TF
SM
TFM
CM
BNE
SF
SF
TR
CM
8NH
BTM
CM
BNE
BTM
AM
TDM
CF
TF
AM
TF
CM
BE
CM
flNE
flNF
TDM
M
SF
TF
CF
B
DORG
BNF
TOM
CF
B
flORG
M
SF
TF
TR
TO
CM
DS
flH
BE
TFM
R
OORG

ERROR,270,9
CHI,40,10
*-24
CHI,69,10
DIM1+12
CSORN,*+12
DIM2,INSW"
SMCNT,l,6,
ADSAVE,SMADD,ll,
SMADD ,05,10
SMAOO,l,67
CHI,24,10
DIM1
DIM1
SETDM
CHI-1,CHI+l, ,
CHI,69,l0,
SETDM2+24
CSTNO,*+12
SYM,O,lO
*+24
ERROR,l79,9
ADSAVE ,5,10
SYM-4,0,11
SYM-3
ADSAVE,SYM;6
NXLOC,5,10
TEMP,SYM
CH 1,04,10
MOVDIM
CHI ,23,10
DIM1
GENDIM,DIMl, ,
SMCNT,2,6
SMADD,TEMP,6
95
SMADD,99,6,
DIM1
SO
*-3
SETDM2+24,SETDM"
SMCNT,3,6
SETflM
SETOM3
*-3
SMAflD,TEMP,6
95
SMA flO ,99,6
CHI-l,CHI+l
DIMTP ,SMCNT, 11
DIMTP,0002,810

~1NEM

OPE RANDS AND REMARKS

,

BRANCH IF SYM WAS ALREADY

C

IN TABLE

SHIFT OFF LEFT PARN OR COMMA
TEST FOR ABSOLUTE

TEST FOR SECOND

DIr~fNS

InN

TEST FOR THIRD flIMHIS InN

~~-2

SfTOM4",
"+32" ,
AOSAVE,1,67,
SETDM5+12
"-4

OIMENS!ONS
DI MENS IONS
o I MENS I ON

0

50

I-B

NlIVEMRFR,

LABEL

PAGE

1966

19116

PAGF

21

TF
SM
TF
B
OORG
S FTOM4

SETOM5

01 M2

fl 1M3
ENS ION
****~,,:,

COMMEN

c

****

*i.
COMA

HMP,AOSAVE
TEMP,5,J0
AOSAVE,TEMP,611
SFTOM5
*-4
TF
TEMP ,AOSAVE
Sttl
ADS AVE ,5,10
SM
TEMP,10dO
M
TEMP,AUSAVE,611
SF
95
TF
NXLOC ,99,6
TF
AOSAVE,TENP,611
TF
TFMP,NXLOC ,611
A
TEMP,ADSAVE,611
AM
TEMP, 1 ,610
AM
NXLnc ,05,10
TF
NXLOC ,SMADD,611
RNR
*+20,CHI+2
B
BFGINA
OORG *-3
CM
Cf-'I,23,!O
BNE
OIMI
TR
CHI-l,CHI+l
B
DIMl+24
OORG *-3
AM
MODAD,2,!0
8NR
OIM3,MODAD,l1,
TEST IF OIM VAR "'AS PLACFO IN TABLE BY
A
NXLOC, SMLNG"
SUBROliTI ~IF (Ii< 1'1I~ICTIO~1 STI\HME~IT
TF
~IXLOC ,SYM,6
TF
SMAflD ,NXLOC ,6
B
SETOM+ 12
DORG *-3
BTM
ERROR,271,9
OAC
6,ENSION
DECODE COMMO~I STATEMENTS
~: ~~
~~
BTM
COL~IAM,3,10
SYM,MON+4
C
BV
ERROl
flNE
ERROl
TR
CHI-l,CHI+5
TDM
COMSW, 1, 11.
CM
CHI ,40, 10
BNH COMER
CM
CHI ,69, 10
BH
COMER
BTM
CSORN,*+12
CM
CHI,24,10
BE
COMER
BD
BRANCH I F VARIABLE WAS PREVIOliSL Y USED
COMIN,INSW"
IF VAR IABLE WAS NOT DEF INfO THEN IT MUST Rf' SIMPLE VARIABLE
AM
NXLOC,5,J0
TF
NXLOC ,COMADD ,6,
MOVE OBJ TIttlE COMMON AODRESS TO SYM ARbA
BD
*+32,FXORFL
S
COMAOD,FP2"
AOJ COMMON AODR fOSS FOR FLflAT VARI ABLF
B
*+20
OORG "-3
S
ADJ COMMON ADDRESS FOR F I X VAR IABLE
COMAOD,KLNG"

* ': :.,'.:

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

---------

0

5/

1620 FORTRAN 11-0

*****

0

1

C'I

PHASE

1-B

LOCTN

OP

P/L

Q

PG/LN

LABEL

11812
11824
11832
11832
11844
11856
11 A68
11876

45
49

11832
02638

15141
00000

COMAB

14
47
31
49

15139
09496
15138
11648

01200
15140
00000

11876
11888
11900
11912
11924
11936
11948
11960
11968

44

11900
09384
11888

11968
11980
11988
11988
12000
12012
12024
12036
12048
12056
12056
12068
12080
12092
12104
12116
12128
12140
12147
12148
12161

44
49

11988
11888

0729~

44
32
12
43
26
49

11888
07295
12056
12079
12068

07919
00000
00097
06453
02298
00000

11730
11740
11750
11760
11770
11780
11790
11800
11810
11820
11830
11840
11850
11860
11870
11880
11890
11900
11910
11920
11930
11940
11950
11960
11970
11980
11990
12000
12010
12020
12030
12040
12050
12060
12070
12080
12090
12100
12110
12120
12130
12140
12150
12160
12170
12180
12190
12200
12210
12220
12230
12240
12250
12260
12270
12280
12290

12166
12178
12190
12198
12198
12210
12222
12230
12230
12242
12254
12266
12278
12290
12302
12314

17
44
32
21
26
26
49

0729~

02372
0724>!
0237>!
11744

0729~

OOOB

0729~

00;H3
0791~

00000
05965
02372
10081
00000

00000

26
13
32
22
47
26
21
49

12079
07295
00095
02262
12148

17

09384
00474
00003 X2

43
15
49

12198
0724>!
12230

02611
00001
00000

43
16
49

12230
09373
09290

0724>!
00>!77
00000

16
11
45
43
11
11
46
16

08183
08183
12242
12370
02937
02937
12346
08183

i:5137
000e2
08183
02424

0729~

0729~

11812

02252
00000
00000
00099
01300
02262
12079
00000

r528~

0001'>2
01200
oooeo

NOVEMBER,

1966

PAGE

22

MNEM OPERANDS AND REMARKS
BNR
*+20 ,CH I +2
BEGINA
DORG *-3
TEST FOR MORE LIST ELEMENTS
CHI,23,lO,
CM
BNE
COMER
TR
CHI-l,CHI+l
B
COMMEN+72
DORG *-3
COME HERE IF S I MPL E VARIABLE WAS IN TABLE
******
BNF
*+24,SMCNT,l1
VARIABLE WAS PREVIOUSLY PLACED IN COMMON
ERROR,373,9,
BTM
WAS IT PREVIOUSLY EQUIVALENCED
BNF
*-12, MODAD, 11,
SMCNT ,,6,
SF
A
NXLOC,SMLNG
SMADD,NXLOC ,6,
MOVE NEW SYMBOL ADDRESS INTO TABLE
TF
NXLOC,SYM,6
TF
BRANCH ,TO PLACE COMMON ADDRESS IN TABLE
B
COMA",
DORG *-3
RETURN FROM S YM TABLE LOOK UP WHEN VARIABLE WAS DIMENSIO~IED
BNF
*+20, SMCNT, 11
VARIABLE PREVIOUSLY PLACED IN CO".MON
B
COMIN+12" ,
DORG *-3
COMIN+12,MODAD,11,
TEST IF VAR WAS PREVIOUSLY EQIIIVALENCEU
BNF
SMCNT ,,6,
SF
SMCNT ,07,10
SM
BD
*+32,FXORFL
SET UP TO MULTIPLY NUMBER
TF
COMM+ll,FP2
COMM
B
DORG *-3
TF
*+23,KLNG
SMCNT, ,6,
MM
GEN. NO. OF LOCATIONS FOR ARRAY
SF
95
UP DATA COMMON ADDRESS
S
COMADD,99"
BN
COMER3
SMCNT ,COMADD, 6
TF
A
SMCNT ,COMM+11,6
B
THIS ADDRESS IS THE LOW ORDER DIG IT [IF
COMAB",
DORG *-4" ,
FIRST ELEMENT.
BTM
ERROR,474,9,
COMMON EXCEEDS CORE SIZE
DAC
3,MON
UN IT RECORD FORMAT OUTPUT
****
BD
*+32,INSW
SMADD,l,6
TOM
B
FOMATl
DORG *-3
FOMATl,SMADD,l1
BD
TFM
SPGS+l1,277,9
B
ERROR 27
SPERR+12" ,
DORG *-3
TFM
X+11
,CHI-2
AM
,2,10
X+11
BNR
,11,
*-12,X+11
SCAN AHEAD FOR RECORD MARK
FORM99,JNDIV
BD
AM
CKRM-1,CHI+ 146, 711
AM
CKRM-1,2,10
BE
*+44
TFM
X+11
,0,610
B

******
COMIN

COMINA

******
COME

COMC

COMM

COMER3
MON
~,***

FOMAT

FOMATl

52

':/

1620 FURTRAN II-D

*****

0

LOCTN

OP

P iL

12326
12338
12346
12346
12358
12370
12382
12394
12406
12418
12430
12442
12450
12450
12462
12474
12486
12498
12510
12522

11
49

08183
12290

OOOe2
00000

15

10104
04876

(J0001
0001'>0

16
31
31
14
47
31
49

0818~

000~7

0818~

06066
15150
oooeo
01200
15140
00000

14
46

11
16

15139
12486
09384
09084
09084
02615
14453

12534

16

14512

0€998

12546
12558
12570
12582
12594
12606
12618
12630
12642
12654
12666
12674
12674
12686
12698
12710
12722
12734
12746
12758
12770
12782
12794
12806
12818
12830
12842
12854
12866
12878
12890
12902
12910
12910

43
12
31
14
46
14
46
47

12570
14453
15138
15139
12570
15139
12910
12674
09084
14389
13082

02230

17

17
17
17

17
15
49
14
46
14
46
14
46
14
46

15138
15139
12450
15138
12406

000~4

01200
00~75
0~128

09124
0001'>1
01'>145

000~4

15140
00090
01200
000""1
01100
01300
oe144
00001
00000

31
14
46
14
46
14
47
31
14
47
49

15139
13850
15139
14110
15139
127H2
15139
12782
09384
1513H
15139
12782
15139
12782
15139
12770
1513H
15139
12990
12866

15140
oooeo
01200
000&9
01100
00057
01200
15140
oooeo
01200
00000

14

15139

000&9

17

OOOiH
01200
000~4

01200
000~0

01200
000i:0
01200
00~75

PHASE

1-B

NLlVFMRER,

PGiLN

LABEL

12300
12310
12320
12330
12340
12350
12360
12370
12380
12390
12400
12410
12420
12430
12440
12450
12460
12470
12480
12490
12491
12495
12499
12500
12510
12520
12530
12540
12550
12560
12570
12580
12590
12600
12610
12620
12630
12640
12650
12660
12670
12680
12690
12700
12710
12720
12730
12740
12750
12760
12770
12780
12790
12800
12810
12820
12830

AM
B
DORG
TOM
BTM
FORM99 TFM
TR
TR
CM
BNE
TR
B
DORG
CM
BE
BTM
BTM
BTM
AM
TFM

1966

PAGE

23

MNEM OPERANDS AND REMARKS
,2,10
X+11
*-48
*-3
FMSW,l
CKCNTU,O,10
X+11
,37,610
,AVOJD,6
X+11
CHI-1,CHI+11
CHI ,0, 10
*+32
CHI-1,CHI+1
*-36
*-3
CHI,24,10
*+24
ERROR,375,9,
LEFT PAREN nOES NOT FOLUW FORMAT
PUT,
12A,8,FORMAT
PUT,
124,8,LEFT PAR EN
PARCNT, 1, 10
WIDTH,145,8,
INITALIZE WIDTH CHECK

** ** *** TFM
* * **** SCALE,998,8
*** ** *:(,* *** *:(1: *** **** *** ***** ***** * ~'c **** * * ** *:(~* **)' * **** * **
'" SET ASSUMED SCALE FACTOR
..........................................................................
BD
SM
TR
CM
BE
CM
BH
BL
BTM
TOM
B
DORG
SLASH
CM
BE
CM
BE
CM
BE
CM
BE
FORMER BTM
TR
CM
BE
CM
BH
CM
RNE
PTYPE
TR
CM
BNE
B
OORG
FORM2
CM

FORMl

*+24,B IGPRT
WIDTH,24,10
CHI-1,CHI+1
CHI,O,10
*-24
CHI ,41,10,
FORM2
SLASH
144,8, A TYPE
PUT,
IATYPE,1
FORM3
*-3
CHI ,21, 10,
TEST FOR SLASH
FORM7
CHI,24,10
FORM4
TEST FOR SCALE FACTOR
CHI,20,10,
FORMER+12 .
CHI,10,lO
INVALID FORMAT SPFCIFICATION
*+24" ,
ERROR,375,9,
CHI-1,CHI+1
CHI ,0, 10
*-24
CHI ,69, 10,
SHIFT OF SCALE FACTOR
*-48
TFST FOR P
CHI ,57,10,
FORMER
CHI-1,CHI+1
CHI ,0, 10
FTYPE
*-36
*-3
CHI,69,10

53

I,'tl

1t

1620 FORTRAN II-O

*****

PHASE

LOCTN

OP

P/L

Q

PG/LN

12922
12934
12946
12958
12970
12982
12990
12990
13002
13014
13026
13034
13034
13046

46
14
47
17
15
49

13982
15139
12990
09084
14389
13082

01100
0004t9
01200
OEH49
00001
00000

14
47
17
49

15139
13034
09084
13070

0004t6
01200
09146
00000

14
47

15139
12770

0001,5
01200

12840
12850
12860
12870
12880
12890
12900
12910
12920
12930
12940
12950
12960
12970
12975
12980
12985
12990
13000
13010
13020
13030
13040
13050
13060
13070
13080
13085
13090
13095
13100
13110
13120
13130
13140
13150
13155
13160
13165
13170
13180
13190
13200
13210
13220
13230
13240
13250
13260
13270
13280
13290
13300
13301
13301
13302
13303

13058

16

13432

r3434

13070
130A2
13094
13106
13118
13130
13142
13154
13166
13178

15
31
14
46
14
47
15
17
14
46

14389
15138
15139
13082
15139
12770
10106
05446
10081
12770

00000
15140
oooao
01200
000109
01100
00001
103166
000&0
01200

13190

26

14516

10081

13202
13214
13226
13238
13250
13262

44
33
23
32
26
17

13262
14382
10081
00096
10081
14464

14382
00000
14393
00000
00099
oooeo

13274

43

13590

14389

13286
13298
13310
13322
13330
13330
13342

14
47
31
49

15139
13330
15138
13286

00090
01200
15140
00000

14
47

15139
12770

00093
01200

13354
13366
13378
13390
13402
13414

31
14
46
14
47
17

15138
15139
13354
15139
12770
05446

15140
00090
01200
000109
01100
-l:3426

13426
13434
13446

49
26
22

13554
14520
14520

14516
14512

**~~**

1620 FORTRAN 11-0

LOCTN

DP

P/L

13458
13470
13482
13494
13506
13518
13530
13542
13554
13566
13578
13590

22
12
47
27
17
22
17
16
27
17
26
27

14520
14520
13530
09084
09084
14516
09084
13432
09084
D9084
14516
09084

10081
00096
01100
14520
010147
14520
oe145
-l:3554
14516
09103
10081
14516

13602
13614
13626
13638
13646
13646
13658
13670
13682
13694
13706
13718
13730
13742
13754
13762
13762
13774
13782
13782
13794
13806
13818
13826
13826
13838
13850
13862
13874
13886
13898
13910
13922
13934
13946
13958
13970
13982
13994
14006
14018
14030
14042
14050

14
47
31
49

15139
13646
15138
13602

oooeo
01200
15140
00000

14
47
17
31
12
47
14
46
45
49

15139
13782
09084
15138
02615
13602
15139
13762
12770
02626

00094
01200
09104
15140
oooei
01200
00090
01200
15141
00000

31
49

15138
13718

15140
00000

14
47
17
49

15139
13826
09084
12570

01200
09123
00000

14
47
17
16
43
12
31
14
46
14
46
14
47
15
17
14
47
31
49

15139
12606
09084
14453
13898
14453
15138
15139
13898
15139
14110
15139
13646
10106
05446
15139
14050
15138
14006

PHASE
PG/LN

000~3

000~1

01200
oe121
oe145
02230
000~4

15140
oooeo
01200
000~4

01200
000e9
01100
00001
-l:4006
oooeo
01200
15140
00000

13304
13305
13306
13307
13308
13309
1330A
1330B
1330C
13300
1330E
13310
13315
13320
13330
13340
13350
13360
13370
13380
13390
13400
13410
13420
13430
13440
13450
1341>0
13470
13480
13490
13500
13510
13520
13530
13540
13550
13560
13570
13580
13590
13600
13610
13620
13630
13640
13650
13660
13670
13680
13690
13700
13710
13720
13730
13740
13750

I-B
LABEL

FTYPE

ETYPE

NOV EMB ER,

1966

PAGE

24

MNEM OPERANDS AND REMARKS
BH
CM
8NE
BTM
TOM
B
DORG
CM
BNE
BTM
B
DORG
CM
BNE

FORM8
CHI,49,10,
TEST FOR I TYPE
*+44
PUT,
149,8,1 TYPE
IATYPE,1
FORM3
*-3
CHI ,46,10,
TEST FOR F TYPE
*+32
PUT,
146,8,F TYPE
FORM3-12
*-3
CHI ,45, 10,
TEST FOR E TYPE
FORMER

c

*************************************************~,*****************,:,*,~
TFM
EBRAN+6,EBRAN+8

* ••......•.•.......••••.....•.•......... ,. ............ "................ .
FORM3

TOM
TR
CM
BE
CM
BNH
TOM
BTM
CM
BE

IATYPE,O
CHI-l,CHI+1
CHI
10
*-24
CHI,69,10
FORMER
DIMSW, 1"
CSTNO,*+12"
SYM,0,10
FORMER

,0,

SET SWITCH TO RFTIIRN FROM LSHI[1
COLLECT NUMBFR

*** *** *******
****
***** **** ** ** ** ** ** ~~ **** *** *1,~* * ~(**),'c:(c *~}c ~:.::~~ *t.~
TF
SCALE+4,SYM

T,c*

~;:'*~t ~(,,'c:;.:**~;(

*....•........................•.•....•....•.......................•...
BNF
CF
M
SF
TF
BTM

*+60,FREOSW"
FREOSW
SYM,SETFRO+ll
96
SYM ,99
WIDCK,0,10

TEST IF SPEC WAS MULT SPECIFICATION

***** *** **** ** **** ** )~* ** ***:':~*}:Ct,~ ):C",c* **>',c** ~\: **~o:C):( ~t l{o:(**~~

~:~ 7,()~ *",c ******** ****
*
BD
FORM5-12, IATYPE

i,c

* ......••........•.................•..................................
CM
BNE
TR

CHI,0,10
*+32
CHI-l,CHI+l
B
*-36
DORG *-3
CM
CHI ,3, 10
BNE
FORMER

*$ U$$ $$$ $$$ $$$ $U$$ $$ $ $ $$$ $ U
TR
eM
BE
CM
BNH
BTM

$$$$$$ $$$$ U$ $ $$$ $$$ $ $ $ $ $$ $ $ $ $$ $ $ $ $ $ $$ $ $

CHI-l,CHI+1
CHI,0,10
*-24
CHI ,69,10
FORMER
CSTNO,*+12

*****;'t*******************~'t******l{,****t,{*t,~**i,():Ci,(,:C",::i,(**::(':()!:*::(****",::~(~c",c:::c******

EBRAN

B7
TF
S

EOK
SCAL E+8, SCALE+4
SCALE+8,SCALE " ,CALCULATE SCALf' FACTOR

I-B
LABEL

EDK

NUVFr.',BER,

54

1966

PAGF

25

MNEM OPERANDS AND REMARKS
S
SM
BNH
BT
BTM
S
BTM
TFM
BT
BTM
TF
BT

SCALE+8,SYM
SCALE+8,6,10
EOK-24
PUT,SCALE+8
PUT,l47,8
SCALE+4,SCALF.+8
PUT,145,8
EBRAN+6,EOK
PUT, SCALE+4
PUT,103,8
SCALE+4,SYM
PlJT,SCALE+4

*.••••••.••••••••••...•••••••••.••...••••••......•...•••••••...•••..••

FORM5

CM
BNE
TR
B
DORG
FORM51 CM
BNE
BTM
TR
SM
BNZ
CM
BE
BNR
B
DORG
TR
B
DORG
FCMA
CM
BNE
BTM
B
DORG
CM
BNE
FORM7
BTM
TFM
BD
SM
TR
CM
BE
CM
BE
CM
BNH
FORM8
TOM
BTM
CM
BNE
TR
B
DORG

CHI,0,10

~'+32

CHI-l,CHI+1
FORM5
~'-3

CHI,4,10,
FCMA
PUT,
104,B,RIGHT PAREN
CHI-l,CHI+l
PARCNT ,1,l0
FORM5
CHI,0,10
*+32
FORMER,CHI+2
BEGIN
*-3
CHI-l,CHI+1
*-56
*-3
CHI ,23, 10
*+32
PUT,
123,8,COMMA
FORM 1
*-3
CHI,21,lO
FORMl+36
PUT,
121,B,DIVIDE
WIDTH,145;8,
*+24,BIGPRT
WIDTH,24,10
CHI-l,CHI+1
CHI,0,10
~'-24

CHI ,24,10
FORM4
CHI,69,10
FORM51
DIMSW,l
CSTNO,*+12
CHI,0,10
*+32
CHI-1,CHI+1
*-36
*-3

55

tM

thb¢t

O

<,

:'{~
"

o

OP

P/l

%W

1

14050

14

14062

46

14074
14086
14098
14110
14122
14134
14142
14142
14154
14166
14178
14190
14202
14210
14210
14222
14234
14246
14258
14270
14282
14294
14302
14302
14314
14326
14338
14350
14362
14374
14382
14382
14382
14389
14394
14406
14418
14430
14442
14453
14454
14462
14463
14464
14476
14488
14490

14
47
27
11

14490
14502
14512

26
49

NOVEMBER,

I-B

1966

PAGE

PG/lN

lABEL

15139

000~7

14490

01200

CM
CHI,57,l0,
TEST FOR SCAL~ FACTOR
************************************************"*********************
BE
PSCALE

49

15139
14142
09084
02615
09084
12570

0002-4
01200
10081
00091
09124
00000,

14
47
17
27
17
49

15139
14210
14464
09084
09084
13626

000~7

14
47

31
45
49

15139
14382
14464
09084
09084
15138
14302
12770

000'08
01200
00090
10081
OEH48
15140
15141
00000

26
33
17
12
47
45
49

14337
14336
09084
10081
14270
13626
12770

15139
00000
09000
00091
01200
15141
00000

32

14382
00000
00000
09084
14393
15139
12606
14382
00000
14110

00000

13760
13765
13770
13775
13780
13790
13800
13810
13820
13830
13840
13850
13860
1':Hl70
13880
13890
13900
13910
13920
13930
13940
13950
13960
13970
139RO
13990
14000
14010
14020
14030
14040
14050
14060
14070
14080
14090
14100
14110
14120
14130
14140
14150
14160
14170
14180
14190
14200
14210
14220
14230
14240
14241
14241
14242
14243
14249
14250

17

17
27

17

27
26
14
47
33
49

22
47
42

00002
14453
12770
00000

14512
12866
00004

01200

oooeo

10081
09147
00000

10081
10081
000i!4
01200
00000
00000

10081
01300
00000

10081
00003

16000

1620 FORTRAN II-D

lOCTN

OP

P/L

16000
16012
16024
16036
16000

16
49
36
49

00565
00532
00012
00012

10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404
10416
10428
10440
10452
10464
10476
10488
10500
10512
10524
10536
1054R
10560
10572
10584
10596
10608
10620
10632
10644
10656
10668
10680
10692
10704

PHASE

Q

*****

o

1tt

1620 FORTRAN II-n

*****
lOCTN

j

16

17
14
49
16
17
16
17
16
17
16
17
16
17
16
17
16
17
16
17
16
17
16

17
16
17
46
17
14
46
46
17
24
46
46
24
46
17
24
46
46
24
46

02359
02324
15139
10512
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
14028
04696
10081
04300
13860
04696
10081
04300
13794
10081
13728
04696
10081
04300
13194
10081
14060

PHASE
PG/LN

-i6023
99724
00500

99793
-i0200
00057
00000
99724
~0248

99724
~0272

99839
~0296

99839
~0320

99839
~0344

99839
~0368

99724
~0392

99793
~0416

99770
~0440

99770
~0464

99816
~0488

01200
00092
06245
01400
01200
00095
13859
01400
01200
13793
01200
00097
13727
01400
01200
14489
01200

* •...••...............................................................
FORM4

CM
BNE
BT
AM
BTM
B

FORMX

DORG
CM
8NE

enl

BT'
BTM

B
DORG
CM
BNE
BTM
BT
BTM
HOll I
TR
BNR
B
DORG
TF
CF '
BTM
SM
BNZ
BNR
B
DORG
SETFRQ SF
FREQSW OS
IATVPE OS
BT
TF
CM
BNE
CF
WIDTH
OS
HOLl

B
WIDCK

DORG
OS
S
BN
BB
DORG

CHI,24,10
FORMX
PUT ,SVM
PARCNT, 1, 10
PUT,
124,8,lEFT PAR EN
FORMI
*-3
CHI,67,10,
TEST FOR X SPECIFICATION
HOLL
WIDCK,0,10
PUT ,SVM
PUT,
147,8,X TVPE
FORM5+24
*-3
CHI ,48, 10,
SETFRQ
WIDCK,0,10
PUT ,SVM
PUT,
148,8,H TVPE
CHI-1,CHI+l
*+20,CHI+2
FORMER
'
*-3
*+35,CHI
*+22
PUT,
,8,OUTPUT HOll
SVM,l,lO
HOll I
FORM5+24 ,CH I +2
FORMER
*-3
FREQSW
,SETFRQ
,*-4
PUT,SVM
SETFRQ+ll ,SVM
CHI ,24, 10,
FORMl+36
FREQSW

,*

FORM4
*-3

2,
WIDTH,SVM
FORMER
*-9

* *);,t ***)): ****** ******* ** ***** ***** ** **** t~* *:;,t ** )"~~o:(*** **);,t **** **** *** * ::(;'t*~( *
PSCALE TF
B7
SCALE
DSB

SCALE,SVM
PTVPE
4,3

* .................•...........•.......................................

50

DORG 16000

I-B
lABEL

14260
14270
14280
14290
14300
14310
14320
14330
14340
14350
14360
14370
14380
14390
14400
14410
14420
14430
14440
14450
14460
14470
14480
14490
14500
14510
14520
14530
14540
14550
14560
14570
14580
14590
14600
14610
14620
14630
14640
14650
14660
14670
14680
14690
14700
14710
14720
14730
14740
14750
14760
14770
14780
14790
14800
14810

26

MNEM OPERANDS AND REMARKS

NOVEMBER,

1966

PAGE

27

MNEM OPERANDS AND REMARKS
TFM

B

IORT ,*+23
IOPT,fllKl,7

TRA
TCO
16000
OUT OF CORE BLOCK 2 CONTAINS THE F()LU1WI~IG
EQUIVALENCE
SUB ROUT INE
t,
FUNCTION
CONTINUE
PAUSE
STOP
*
DEFINE
DORG lOUT
TFM
FMDN+35,BlK4"
lOUT
BTM
FMONtiOUT
CM
CHI,57,10,
CHECK FOR P IN STOP
B
NNARAA
TFM
FMON+35,BlKl"
DIM
BTM
FMON,DIM
TFM
FMON+35,BlKl"
COMMON
BTM
FMON,COMMON
TFM
FMON+35,BlK6"
IF
BTM
FMON, IF
TFM
FMON+35,8lK6"
GOTO
BTM
FMON, GOTO
TFM
FMON+35,BlK6"
CALL
BTM
FMON, CALL
TFM
FMON+35,8lK6"
RETURN
BTM
FMON,RETURN
TFM
FMON+35,BlK1"
FORMAT
BTM
FMON, FORMAT
TFM
FMON+35,BlK4"
DOD
BTM
FMON, DOD
TFM
FMON+35,BlK3"
ASCAN
BTM
FMON,ASCAN
TFM
FMON+35, BlK3"
OUTSC
BTM
FMON,OUTSC
TFM
FMON+35,BLK5"
DKIO
BTM
FMON, DK IO
NNARAA BE
STOPEN
BTM
COlNAM,2,l0
CM
SVM,6245,8
8V
ERROl
BE
PAUSEN
BTM
COLNAM,5,l0
C
SVM,TINUF+8
BV
ERROl
BE
CONTEN
C
SVM,CTION+8
BE
FIJNCTA
BTM
COLNAM, 7,10
C
S VM, ROUTN+ 12
BV
ERROl
BE
SUBPA
C
SVM,DEFCT+12
BE
DEF INE
*

*

51
wa::azaa:ISiS .., : ;tV!

ill

-----.-~

..

-.~.-

._-_.-..."""'"----_.

--------~

/~.~o..:::.;.:..:.:;•..:..;.-~~....:....:._j_~_-_~".,

............... ~~ ....

~

.. ___ ._ .._ _ _

•
1620 FORTRAN

*****
LOCTN

10716
10728
10740
10752
10764
10773

10786
10798
10810
10822
10834
10846
10A58
10870
10881
10882
10894
10906
10918
10930
10942
10954
10966
10978
10990
11002
11 014
11026
11038

OP

24
47

17
17
49

II-D

P/L

10081
10785
10786
01200
09084
0&154
09084
0&140
02626
00007 X2

000&8
13193
01400
01200
15154
00000
OOOO-i
00000

16
11
14
46
17
14
46
17
43
11
49

04696
10081
04300
04300
15138
05675
10110
12651
00001
15139
10918
09384
06049
06049
06049
10978
09384
0604'1
10966
05738
11046
02372
11146

43
44
44
49

11146
11146
11090
11146

07295
0791'1
07295
00000

21
26
26
49

02372
0237?
0724?
11026

05965
10081
02372
00000

17
43
11
45
49

09384
11134
07295
11190
11134

00t-71
10102
00091
07295
00000

11
45
49

07295
11222
11134

00091
07295
00000

12
45
49

07295
11254
11826

00092
12651
00000

17
24
46
47
31
33
15
15
14
46

17

000>'4
01200
00&72
t-5139
000&2
000'00
01100
00-i70
00069
01100
H014
02611
000B5
00000

110~6

11046
11058
11070
11082
11 090
11090
11102
11114
11126
11134
11134
11146
11158
11170
11182
11190
11190
11202
11214
11222
11222
11234
11246
11254

1620 FORTRAN

****):~

-------------

LOCTN

UP

P/L

11254
11266
11278
11290
11302
11314
11326
11338
11350
11362
11374
11382
11382
11394
11406
11418
11430
11442
11454
11466
11478
11490
11502
11514
11526
11538
11550
11562
11574
11586
11598
11610
11621
11622
11634
11646
11658
11666
11666
11678
11690
11702
11710
11 710
11722
11 734
11746
11758
11 770
11 782
11794
11806
11818
11826
11826
11838
11849

24
46
24
46

06451
11314
02298
11314
09384
12274
11382
11362
09384
11350
11826

17
44
44
44
17
44
49
44
14
47

II -0

06453
01200
02252
01200
00P2
079190729S
12651
00~73

12650
00000

14
47
11
49
16
43
44
49

10081
11770
11710
11770

EtOOOl
12651
12651
00000

44
26
25
25
26
14
46
14
46
49

11770
09035
12651
12650
02620
0604'1
12306
06049
10'130
10906

12650
07242
0729S
0791910081
00094
01200
000?3
01200
00000

25
33

06451
06451
00000

07919
00000

II>
14
46

17
16
16

11
25

11
14
47
14
47
17
26
32

013124
000-24
01200
000Et2
H6713
000(:,9
01100
00e75

aoooo

·won

00091
0604'1
000e2
00069
01100
t-0081
01200
00975
11529
00000
OOOS4
01200
000&2
00000

1-B

NOVEMBER,

1966

PAGF.

LABEL

****** *******
*******
** ****** ** ** *****FOR
* ******
**** *:>!~ ******* **** **~'f: * **~~**
C
SYM,BGTR+12
BEGIN TRACE

PHASE

15310
15320
15330
15340
15350
15360
15370
15380
15390
15400
15410
15420
15430
15440
15450
15460
15470
15480
15490
15500
15510
15520
15530
15540
15550
15560
15570
15580
15590
15600
15610
15620
15630
15640
15650
15660
15670
15680
15690
15700
15710
15720
15730
15740
15750
15760
15770
15780
15790
15AOO
15810
15820
15830
15840
15850
15860
15870

28

MNEM OPERANDS AND REMARKS

PG/LN
14811
14812
14813
14A14
14815
14816
14817
14818
14820
14830
14840
14850
14860
14870
14880
14A90
14900
14910
14920
14930
14940
14950
14960
14970
14980
14990
15000
15010
15020
15030
15040
15050
15060
1 ~070
15080
15090
15100
15110
15120
15130
15140
15150
15160
15170
15180
15190
15200
15210
15220
15230
15240
15250
15260
15270
15280
15290
15300

PG/LN

11770
0604'1
11666
06049
11664
06049
11478
093A4
10078
11520
11?20
00000
06049
0604'1
11598
11520
11502
09384
10081
10077
00000
06049
11586
06049
11678

11

PHASE

",CHECK

BGTR

BNE
BTM
BTM
B7
DAC

EOUIVN
PUT,154,8
PUT,140,8
BEG IN
7, INTRACE,

, "OUTPUT BEGIN TRACE SYMBOL

.,

(~\i

* ........•...........•..............•..................•.....".........

ENTER TO DECOMPOSE EOUIVALENCE STATE~IENTS
******
~~*****
COLNAM,A,lO
EOU IVN BTM
C
SYM, I VALEN+14
BV
ERROl
BNE
ERROl
TR
CHI-1,CHI+15
CF
STSN
EOR
TOM
EOUSW,1,11,
SET SW ITCH INDICATING EOUIV STATEI~ENT
TOM
INITIAL]ZE PR
PR" ,
DC
1,@,*
CM
CHI,24,10
BE
*+24,
BTM
ERROR,72,9,
TFM
SCHI,CHI
AM
EOI
SCHI,2,10
CM
SCHI,40,610
BH
*+24
BTM
ERROR,170,9,
INVALID VAR
CM
SCHI,69,610
BH
*-24
BTM
CSOR~I, *+ 12, ,
GO TO COLLECT NAME
BO
TEST IF SYM PREVIflUSLY DFFINED
*+32, INSW"
E83230 AM
NXLOC,5,10,
IF SYM NflT PRf-V DEFI NFD, SAVE Rflml FflR
B
OFFSET VALUE
E021",
DORG *-3
BO
E021,SMCNT,11,
TEST FOR DIM VAR
BNF
E021
,MOOAD, l l ,
TFST IF SYM WAS PREVIOliSLY EOII IV
BNF
,SMCNT, 11,
TFST IF VAR WAS I ~I C OM~lflN
*+20
B
E021
OORG ';'-3
A
NXLOC,SMLNG
TF
NXLOC,SYM,6,
MOVE SYM NAME I ~ITfl TABLF
TF
SMADD,NXLOC,6,
MOVE NEW S YM ADD INTO TAfH.F
B
E83230
DORG *-3
BTM
ERROR,171,9,
INVALID NAME USED IN FUNCT!(JN
1'021
BD
;'-12 ,FNTSW"
TEST FOR FIINC T I ON NM1E IN EOU IVALENCE
AM
SMCNT,I,10
BNR
"+20 ,SMCNT, 11,
TEST FOR DUMMY PARAMETERS OF SlIflPROGRA~'
B
E021-12
DORG ';'-3
AM
SMCNT,OI,lO
BNR
~'+20,SMOIT,11,
TEST FOR SlJBPRO(;RAM NM1E IN SlJBPR(J(;RM~
B
EQ21-12
OORG '~-3
SM
SMCNT,02,l0
BNR
TEST FOR FIRST NAME ON LIST
*+20, PR"
B
E07
DORG *-3

1-B
LAB EL

E024

NUVEMBFR,

SAVEl

EfJBR

1'04

E07
SAVE3

C

)

2'1

MNEM OPERANDS AND REMARKS
C
BE
C
BE
BTM
BNF
BNF
BNF
BTM
BNF
B
DORG
BNF
CM
BNE
AM

MODE,FXORFL"
*+48
FP2,KLNG"
*+24
ERROR,172,9,
E022,MODAD,11,
*+56, SMCNT, 11,
*+24,PR"
ERROR,173,9,
*-12,PR-l"
E07

TEST FOR MI XFD FOtJIV
TEST FOR K EQUAL TO F+2

TEST IF SYM HAD BEEN
BR A~ICH IF SYM IS NOT
TFST IF PRFVIUIiS Syf-I·
I LLFGAL FfJUI VALE~ICF
nST IF PRFV SyM -'AS

IN MIXFD E(JUIV

P(-(FVIClUSLY HllJIV
INC OMr·'IfJ~1
\-!AS IN cnr~MO~!
HJIJIV

~'-3

TF~1

1'023

PAGF

19M

58

CM
BH
BTM
TFM
TFM
AM
TO
AM
CM
BNH
CM
BNE
BTM
TF
SF
OS
CM
BNE
AM
B
DORG
TFM
BD
BNF
8
DORG
BNF
TF
TO
Tf)
TF
CM
BE
CM
BE
B
DORG
TO
CF
DS

E04,DMVAR, ,
SCHI,24,610
EOBR+8
SCHI,2,lO
FOBR+6, EOBR+20
SCHI,69,610
*+24
ERROR,75,9,
SYM-3,0,7
'e+30,SYM-4
*+18,1,10
,SCHI,11,
SCHI,2,10
SCHI,69,610
"'+4A
E023+6,SYM
E023-12
FRROR,75,9
SYM,FQ23+6,1l,
SYM-4

,

TEST FOR DIM VAR,

I

~ICORR

RRA~IC

EC T SlJRSCR I PT I

COLL Eer I

H IF NOT

~I(;

~iDEX

~(

SCHI,4,610,
*-4A
SCHI,2,lO
*+20
*-3
SYM,l,
EQ4,PR"
*+20,PR
E04
*-3
E04,PR-l"
REF ,SMADD,
PR,SMCNT,ll,
PR-l, MODAD, 11,
TEMP,SYM"
SCHI,4,610,
EOLOOP",
SCHI,23,610
1'01
EOl-24
*-3
MODE ,MODAD, 11,
MODI'
,*

-.-~.~.-------.--

TEST FOR RIGHT PARFN

TFST IF PRI:VIUUS SYM I-IAS

DII~

VAP-

0

TEST IF PRFVIOIIS SYM WAS fOli IV

SAVE INDICATORS
SAVE OFF SET
END OF LI ST

1.1
'1:1
II

1.

1,

SO FIX OR FLOAT

59

'·11

IdLt

1',

a

M tt

ttti

• btHttl

I

h"'WlIf ..

*****

0:

1

0

1620 FORTRAN II-D
OP

P/l

Q

PG/lN

11850
11862
11874
11886
11898
11910
11918
11918
11930
11942
11954
11966
11978
11990
11998
11998
12010
12022
12030
12030
12042
12054
12066
12078
12090
12102
12114
12126
12138
12150
12162
12174
12186
12198
12210
12222
12230
12230
12242
12254
12266
12274
12274
12286
12298
12306
12306
1231fl
12330
12342
12354
12365
12366
12378
12390
12402
12414

26
25
25
43
16
49

09035
12650
12651
11918
02620
12010

07242
07919
0729,
12651
eOOOl
00000

14
47
11
14
47
16
49

06049
11898
06049
06049
11466
11664
11478

000i!4
01200
000S2
000&9
01100
H998
00000

26
44
49

02620
12030
11770

10081
07919
00000

26

25
49

12060
12060
00000
11770
12230
12125
12125
02620
OB519
08518
08518
09035
08519
12650
08519
12651
11770

07295
00093
ooeoo
01200
0729,
07242
000S5
00000
02377
12069
OOOSI
08519
00094
0851"1
00091
0851"1
00000

12
26
21
49

07242
12265
02620
12126

00095
07242
00000
00000

44
44
49

11350
11826
11350

12650
12651
00000

16
26
22

06049
12365
12365
12364
12362
00000
06049
05738
13098
07242
12686

i: 5139
02377
09035
00091
00000

15880
15890
15900
15910
15920
15930
15940
15950
15960
15970
15980
15990
16000
16010
16020
16030
16040
16050
16060
16070
16080
16090
16100
16110
16120
16130
16140
16150
161f,0
16170
16180
16190
16200
16210
16220
16230
16240
16250
16260
16270
16280
16290
16300
16310
16320
16330
16340
16350
16360
If,370
16380
16390
16400
16410
10420
If,430
16440

11
14
46
43
26
11
21
26
22
11
26
12
25

11

11
32
11
17
44
24
4f,

00092
:):2390
07919
09035
01200

1620 FORTRAN 11-0

*****

0

PHASE

lOCTN

LOCTN

OP

P/L

12426
12438
12450
12462
12474
12486
12498
12510
12522
12534
12542
12542
12554
12506
12578
125flo
12586
1259R
12610
12618
12618
12630
12642
12651
12054
12661',
12678
12686
12680
12698
12706
12700
12718
12730
12742
12754
12762
12762
12774
12786
12798
12810
12822
12834
12846
12854
128?4
12866
12878
12890
12902
12914
12920
12937
12938
l?9?0
12962

43
26
11
16
21
11
26
44
32
49

12542
08519
08519
08519
08519
07242
0724i'
12926
0729512926

14
46
10
49

0604~

12586
100R 1
12630

~1000i:

11
16
49

06049
11664
11478

OOO€!2
i:2618
00000

32
21
12

10081
10081
07242
00000

00000
02620
000fl5

20
11
49

0724~

07242
12498

10081
OOO'!:O
00000

44
49

12706
12762

0729,
00000

43
26
11
26
49

12762
08519
08519

0729507242
00095
02620
00000

0851~

12890

14
47
11
14
4-(
11
44
49

0604~

12
26
11
11
16
12
33

07242
07242
07242
07242
07242
07242
07919
00000
0604"1
12366
06049

14
47

11

12834
06049
0604"1
12786
06049
12854
12890

07295
0724i'
00095
flOOO:):
02620
000€!5
12364
12651
00000
00000
00024
01200
00000

0002:4
01200
00092
00094
01200
000S2
0729500000
00095
02620
00OS5
00095
OOSOO
OOOS5
00000
000€!4
01200
000S2

PHASE

I-B
lABEL

E84130

F84180

E84240

E84330

EQ22

EOLOOP

ERASE

NOVEMBER,

1966

PAGE

30

MNEM OPERANDS AND REMARKS
TF
TO
TO
BD
TFM
B
DORG
CM
BNE
AM
C I~
BNH
TFM
B
DORG
TF
BNF
B
DORG
TF
AM
CM
BE
BD
TF
AM
A
TF
S
AM
TF
SM
TO
AM
TO
B
DORG
SM
TF
A
B
DORG
BNF
BNF
8
DORG
TFM
TF
S
AM
SF
OS
AM
BTM
RNF
C
BE

REF,SMAOD,
PR-l,MOOAO,l1
PR,SMCNT,ll
,PR, ,
*+32
TEST FOR DIM VAR
TEMP,l
E84130
*-3
SCHI,24,610
*-32
SCHI ,2, 10
SCHI,69,610
E023-48
EQBR+6,*+20
E023-36" ,
GO TO COLLECT SUBSCRIPTING
*-3
TEMP,SYM
*+20,MODAD,11,
TE'ST IF VAR PREVIOUSLY EOUIVALENCED
E04
*-3
*+30,SMCNT
*+18,3.10
,0,9,
TEST IF PRE'V I OUSL Y FOIlIV SYM WAS A BASE
E04
E84330, SMCNT, 11,
TEST FOR DIM VAR
*+35, SMADD, 11
*+23,5,10 .
GENERA TE OFF SET TO PREVIOUS BASE'
TEMP",
ADSAVE, STBl
ADSAVE-l,E84180+6, 11, GEN ADDRF.SS OF ~ASE
ADSAVE-l,1,10
REF,ADSAVE
ADSAVE,04,10
PR-l,ADSAVE,11,
SAVE F I X DR FLOAT
ADSAVE, 1,10
PR,ADSAVE,l1,
SAVE DIM INDICATOR
E04
*-3
SMADD,05,l0
*+23, SMADD
GEN NEW OFFSET
TEMP" ,
E84240
*-3
E024-32,PR-l"
ENTER FROM E83500, BR TO E'RROR IF PKEV
SYM
WAS EOUIVALENCED OR IN COMMON
E07,PR"
EQ24-32
*-3
ENTER HERE AFTFR f'OIJIV STATFMFNT HAS
SCHI,CHI"
EBASE ,STBL
EBASF. ,REF
EBASE-l,l,lO
EBASE-3
,l,"::

SCHI,2,l0,
CSORN,*+12,
E84804 ,MOOAD, 11,
SMADD,REF"
E 84695

BEEN SCANNED ONCE TO DETERMINF RASE
IF SVM WAS PREY EOUIV IT MUST BE THE
8ASE OF THF PRESENT EOli I V

I-B

NOVEMBER,

1966

PAGF.

60

31

MNEM OPE RA~IOS AND REMARKS

PG/LN

LABEL

16450
164M)
16470
164RO
16490
16500
16510
16520
16530
16540
165:;0
16560
16570
If,580
16590
16000
16610
16620
16630
16640
16050
16f,60
16670
16680
IM90
16700
16710
16720
1673U
16740
16750
16760
1677U
167RO
16790
16800
16810
16820
16830
16840
16850
16860
16870
16880
16890
16900
16910
16920
16930
16940
16950
16960
16970
16980
16990
17000
17010

BD
TF
AM
TFM
A
AM
TF
BNF
SF
B
DORG
F84560 CM
BF
TFM
DORt;
AM
TFM
B
OORG
SF
A
SM
PR
DS
TF
AM
B
DORG
F 84695 BNF
B
DORG
BD
TF
AM
TF
B
DORG
HERE
CM
BNE
AM
CM
BNE
AM
BNF
B
DORG
SM
TF
AM
AM
TFM
SM
E84710 CF
SAVE2
OS
CM
BNE
AM

E84560,SMCNT,11,
ADSAVE ,SMADD, 11,
ADSAVE,5,l0,
ADSAVE,1,6711,
AOSAVE ,TFMP.,6,
SMADD,5,lO
SMADO,ERASE-1,6
E84710,PR
SMCNT,,6
f84710
*-3
SCHI,24,f,10
*+32
SYM,1,711
*+52
*-3
SCHI,2,10
EOBR+6,*+20
E023-36
*-3
SVM
SVM,TEMP"
SMADD,05,l0
,*-2
SMAOD,SYM,6,
SMAOO, 10, 10
E84560-44
*-3
*+20,SMCNT,11
HFRE
*-3
HERE, SMCNT, 11
ADSAVE,SMADD,ll
AOSAVE,5,10
AOSAVE,TEMP,6
E84710-36
*-3
SCHI,24,610
*+60
SCHI,2.10
SCHI,4,610
*-24
SCHI,2,10
*+20,SMCNT,11
E84710-36
*-3
SMAOO,5,10
SMADD,TEMP,6
SMADD,5,10
SMAOD,5,10
SMAOO,O,69
SMADO,5,10
MODAD, ,6,
,*
SCHI,4,610
EOLOOP+60
SCHI ,2, 10

TEST FOR DIM VAR

PLACE OFF SET INTC1 TABLE

GF.N OFFSF.T

MOVE OFFSET INTO TARLF

CLEAR FLAG INIJICATIN(; HJIIIV VARIARLE

6/
II_I.IIII.I.!!~III

I

,

:1
1620 FORTRAN 11-0

*****

PHASE

LOCTN

OP

P/L

Q

PG/LN

12974
12986
12998
13010
13022
13034
13042
13042
13054
13066
13078
13086
130B6
13098
13110
13122
13134
13146
13158
13170
13178
13179

14
47
26
11
31
49

06049
13042
13033
13033
15138
10858

000~3

26
11
45
49

13077
13077
13086
02638

06049

17

09384
06049
12926
06049
06049
13122
06049
12926

13194
13206
13218
13230
13242
13254
13266
13278
13290
13302
13314
13326
13338
13350
13362
13374
13386
13398
13409
13410
13422
13434
13446
13458
13470
13482
13494
13506
13518
13530
13542
13554
13566
13578

16
31
43
15
43
17
44
15
14
46
17
14
46
17
32
17
11
15
26
45
44
17
14
46
17
17
31
14
47
14
46
32
17

17020
17030
17040
17050
17060
17070
17080
17090
17100
17110
17120
17130
17140
17150
17160
17170
17180
17190
17200
17210
17220
17230
17240
17250
17260
17270
17280
17290
17300
17310
17320
17330
17340
17350
17360
17370
17380
17390
17400
17410
17420
17430
17440
17450
17460
17470
17480
17490
17500
17510
17520
17530
17540
17550
17560
17570
17580

LOCTN

OP

P/L

13590
13602
13614
13625
13626
13638
13650
13662
13670
13670
13682
13694
13706
13714
13715

43
11
15

13482
07242

14
47
11
14
47
11
49

01200
06049
000~1

00000
00000
000~2

00000
00000
00672
000~4

01200
000~2

000&4
01200
00092
00000

00008 X2
13361
15138
13254
02293
13266
09384
13254
10114
15139
13326
09384
15139
13314
09084
07068
05738
07242
07241':
00001
02243
13458
02626
09384
15139
13494
09384
090fl4
1513B
15139
13482
15139
13482
07068
0573fl

06135
15152
02293
00001
05675
00370
05675
00001
00040
01100
00~70

000"'9
01100
09135
00000
'1-3386
000174
00000
10081
15141
02293
OOHI
000~4

01200
00371
06124
15140
00040
01100
000"'9
01100
00000
-l:3590

1620 FORTRAN 11-0

PG/LN

0724~

02611
00063
00000

14
47
17
49

00001
15139
13670
09084
13506

01200
OEH23
00000

14
47
17
49

15139
13482
09084
02626

OOO~3

OOO~4

01200
06104
00000

00007 X2

13728
13740
13752
13764
13776
13784
137B5

31
16
43
15
49

13794
13806
13818
13830
13842
13850
13H51

43
17
17
17
49

13860
13872
138f14
13896
13908
13916
13916
13928
13940
13952
13960
13960
13972
13984
13996
14008
14020
14028

31
17
17
45
49

15138
09084
09084
13916
02626

15142
oe126
06140
15141
00000

14
46
17
49

15139
13960
09440
02626

000"'9
01100
00-573
00000

17
25
17
31
45
49

09084
13995
09084
15138
13972
02626

06140
15139
oeooo
15140
15141
00000

31
17
49

15138
09084
13884

0~125

31
33

15138
05675

15152
00000

14028
14040
14052
14059
14060
14072

15138
13361
13254
02293
13242

15148
OEH36
02293
OOOO-l:
00000

00005 X2
13818
09440
09084
09084
02626

PHASE

02610
0()~74

OEH27
0~140

00000

00005 X2

15140
00000

17590
17600
17610
17620
17630
17640
17650
17660
17670
17680
17690
17700
17710
17720
17730
17740
17750
17760
17770
17780
17790
17fHlO
17810
17820
17830
17fl40
17R50
17860
17870
1B80
17890
17900
17910
17920
17930
17940
17950
17960
17970
179RO
17990
18000
18010
18020
18030
18040
18050
18060
18070
18080
18090
18100
18110
18120
18130
18140
18150

I-B
LABEL

Nl)VEMBER,

1966

PAGE

32

MNEM OPERANDS AND REMARKS
CM
BNE
TF
AM
TR

SCHI,23,610
*+56
*+35,SCHI
*+23,1,10
CHI-1
B
EOR
DORG *-3
TF
*+35, SCH I
AM
*+23,2,10
BNR
*+20
B
BEGINA
DORG *-3
BTM
ERROR,72,9,
EA4804 CM
SCHI,24,610
BNE
E84710
AM
SCHI,2,10
CM
SCHI,4,610
BNE
*-24
AM
SCHI,2,10
B
EA4710
DORG ~'-3
IVALEN DAC
8, IVALENCE
******
OUTPUT SUBROUTINE DECLARATION STATEMENT
*****
SUBPA
TFM
SlJBPUT+11,0135,8
TR
CHI-1,CHI+13
BD
*+36,SUBFCT
TOM
SUBFCT,1
BD
*+24,STSN
BTM
ERROR,370,9
BNF
*-12,STSN
SUBPF
TOM
SUBSW,l
CM
CHI ,40, 10
BH
*+24
SUBP1
BTM
ERROR,270,9,
SUB DECLARATION E'RROR
CM
CHI,69,10
BH
*-24
SUBPUT BTM
PUT,0135,8,
OUTPUT SUBROlITHIF SYMBOL
SF
OUTSW
BTM
CSORN,*+12
AM
SMAOD,04,10
TOM
SMAOD,,6
DC
1 ,@,*
TF
SAVSYM,SYM
BNR
'~+36,CHI+2
BNF
BEGIN,SlJBFCT
BTM
E'RROR,371,9
CM
CHI,24,10
BE
*+24
BTM
ERROR,371,9
BTM
PUT,
124,8,LEFT PAREN
TR
CHI-l,CHI+1
SUBP2
CM
CHI ,40, 10
BNH
SlJBP2-36
CM
CHI ,69, 10
BH
SUBP2-36",
TFST FOR Sy~1BOL!C AR(;IIF~IE~.lTS
SF
OUTSW,
BTM
CSORN,*+12"
OliTPUT ARGUEMENT

1-B
LABEL

NOVfMBFR,

o

62

1966

PAGE

o

33

MNEM OPERANDS AND REMARKS
BD
SUBP2-36,INSW"
ERROR IF ARGUEMFNT WAS IN
AM
SMADO,3, 10
TOM
SMAO[l,,6
DC
1,@,
CM
CHI,23,10
BNE
~'+32
BTM
PUT,
123,8,COMMA
B
SUBP2-12
DORe; '~-3
CM
CHI,4,l0
BNE
SUBP2-36
BTM
PUT,
104,R,RIGHT PAREN
B
BEGIN
OORG *-3
DAC
7,ROUTINf'
OUTPUT FUNCTlDN OECLARATlf)~1 STATFMENTS
TR
CHI-l,CHI+9
TFM
SUBPIJT+ll,136,8
BO
SlJBPF-24,SUBFCT
TOM
SIIBFCT,l,ll
R
SUBPF-36
DORG *-3
DAC
5,CTION
OUTPUT CONT INUE STATEMENT
80
*+24,NOINO
BTM
ERROR2,574,9,
UNNU~1BERFn CONTINUF STATEMFNT
BH',
PUT,
127,8,CONTINIIE
BTM
PUT,
140,8,DUMMY
B
BEGIN
DORG '~-3
[lAC
5,TINUE
OUTPUT PAliSE STATFME~IT
TR
CHI-l,CHI+3
BTM
PUT,
126,8,PAUSE
BTM
PUT,
140,8,DUMMY
BNR
*+20,CHI+2
B
Bf'GIN
DORG *-3
CM
CHI,69,10
BH
*+32
BTM
ERROR2,573,9,
CHARACTER AFTER PAUSE NDT ~IIWFR
B
BEGIN
DORG *-3
BTM
PUT,
140,R,01lMMY
TO
*+23,CHI
BTM
PUT,0,8
TR
CHI-l,CHI+l
BNR
*-36,CHI+2
B
BEGIN
DORG *-3
OUTPUT STOP STATEMENT
****
TR
CHI-l,CHI+l
BTM
PUT,
125,8,STOP
B
PAUSEN+24
OORG *-4
TR
CHI-1,CHI+13"
SHIFT OFF INEDISK
CF
STSN

*

ROUTN
':,*****
FUNCTA.

CTION
CONTEN

TI~llIE

"'***
PAUSEN

PAUS

****
STOPEN

DEFINE

Ie

o
63

\' I I'W' 'NII'NlM'b':C'

*\'!Iritrif'twtd'W

t

'1"'* ,,""

Ib20 FORTRAN 11-0

*****
LOCTN

OP

P/L

Q

14084

43
43
15
14
47
31
14
47

14502
14502
02384
15139
14490
15138
15139
14490
14548
100BO
10081
14490
02233
15139
14490
15138
02240
00099
02243

02293
02384
00001
000>!4
01200
15140
00069
01100
00093
00000

1409b

0

tit

b#

14108
14120
14132
14144
14156
14168
14180
14192
14204

1421b
14228
14240
14252
14264
14276
14288
14300
14312
14324
14336
14348
14360
14372
14384
14396
14408
14420
14432
14444
14456
1446A
14476
14477
14490
14502
14514
14526
14538
14545
14490

14546
14548
14560
14572
14580
14580
14592
14604
14616
14628
14640

17
32
14

4b
2b
14
47
31
23
14
15
46
15
14
46
14
47

1433b

OOO~O

01100
10081
000>!3
01200
15140
02233
09100
00002
01100
00001
09200
01100
000&9
01100
00066
00000
10081

32
26
14
46
14
47
49

02243
00099
14490
15139
14490
14548
10077
02238
10081
14490
15139
14490
02638

16
25
17
15
49

00007 X2
02243
00900
14537
02367
09440
00670
02367
00000
02638
00000

17

~OOOO

01100
00094
01200
00000

00000

43
31
49

00002
14580
15138
14548

15139
15140
00000

16
16
12
46
14
47

10069
14670
14547
14708
15139
14708

90000
i-0069
00091
01200
00069
01100

PHASE
PG/LN

I-B
LABEL

181bO
18170
18180
18190
18200
18210
IB220
18230
18240
18250
1B260
IB270
18280
18290
18300
18310
18320
18330
18340
18350
18360
18370
18380
18390
18400
18410
1B420
18430
18440
18450
18460
1A470
18480
18490
lA500
lA510
18520
18530
18540
18550
18560
18570
185AO
18590
18600
18610
18620
18630
18640
18650
18660
18670
18680
18690
18700
18710
18720

DEFCT
ERR60

ERR44
***

NOVEMBER,

196b

PAGE

34

MNEM OPERANDS AND REMARKS
BD
ERRbO+12, SUSFCT
BD
ERR60+12,MULDEF
TOM
MULDEF,1
CM
CHI ,24, 10,
CHECK FOR LEFT PAREN
BNE
ERR44
SHIFT OFF LEFT PAREN
TR
CHI-l,CHI+l"
CM
CHI,69,10
BNH
ERR44
BTM
CLDGT,03,10,
COLLECT Nl
SF
SYM-l
CM
SVM,50,10
BH
Nl GREATI'R THAN 50
ERR44" ,
Nl,SYM
TF
CM
CHI ,23,10
BNE
ERR44
TR
CHI-l,CHI+l
M
W,N1
CM
99,0100,8
TOM
RECLG,2
BH
*+24
TDM
RECLG,l
CM
99,0200,8
BH
EXCEEDS TWO SECTORS
ERR44",
CM
CHI,69,10
BNH
ERR44
BTM
CLDGT,06,lQ,
COLLECT N2
SYM-4
SF
N2,SYM
TF
CM
SVM,20000
BH
ERR44
CM
CHI ,04, 10
BNE
ERR44
B
BEGINA
DORG *-3
DAC
7, INEDI SK
TFM
RECLG,000,9
TO
*+35,JAY
BTM
ERROR2,670,9
TDM
JAY,*-*
B
BEGINA
OORG *-4
DS
,ERR60
COLLECT DIGITS SUBROUTI NE
***
BTM

OS
CLDGT
BD
TR
B
DORG
TFM
TFM
CLDGTl SM
BZ
CM
BNH

CLDGT,XX,lO,

XX

= NO.

*

OF DIGITS TO COLLECT + 1

*+32,CHI
CHI-l,CHI+1
*-24
*-3
SYM-12,0
CLDGT2+6,SYM-12
CLDGT-l,l,10
XCLDGT
CHI ,69, 10
XCLDGT

64

0
***);:*

PHASE

I-B

N()VEI~BER

OP

P/L

Q

PG/LN

LABEL

14652
14664
14676
14688
14700
14708
14708
14720
14722

11
25
31
45
49

14670
00000
15138
14604
14490

00091
15139
15140
15141
00000

26
42

10081
00000

1467e
00000

16
49
36
49

00565
00532
00012
00012

-i6023
e9747
00500

18730
18740
18750
18760
18770
18780
18790
18800
18810
18820
18830
18840
18A50
18860

AM
*+lA,1,10
CLDGT2 TD
,CHI
TR
CHI-l,CHI+1
BNR
CLDGTl,CH 1+2
B
ERR44
DORG *-3
XCLDGT TF
SVM ,CLDGT2+6, 11
BB
DORG *-9
DEND
DORG 16000
TFM
IDRT,*+23
B
IOPT,BLK2,7
TRA

18870
18880
18890
18900
18910
18920
18930
18940
18950
18960
18970
18980
18990
19000
19010
19020
19030
19040
19050
19060
19070
19080
19090
19100
19110
19120
19130
19140
19150
19160
19170
19180
19190
19200
19210
19220
19230
19240
19250
19260
19270
19280

TCD
16000
OUT OF CORE BLOCK 3
CONTAINS THE FDLLOWI~IG
OUTSC
ASCAN
DORG lOUT
TFM
lOUT
FMON+35,BLK4"
BTM
FMON,JOUT
TFM
FMON+35, BLK2
BTM
FMDN,NDNARA
TFM
DIM
FMON+35, BLK 1"
BTM
FMON,DIM
TFM
COMMON
FMON+35, BLK 1"
BTM
FMDN,COMMON
TFM
IF
FMON+35, 8LK6"
BTM
FMON, IF
TFM
GOTD
FMON+35,8LK6"
BTM
FMON,GOTO
TFM
CALL
FMON+35, BLK6"
BTM
FMON,CALL
TFM
RETURN
FMON+35, BLK6"
BTM
FMON,RETURN
FORMAT
TFM
FMON+35, BLK 1"
BTM
FMON,FORMAT
TFM
FMON+35,BLK4, ,
DO STMNT
BTM
FMON,DOO
ASC1A
BNF
ASCAN
;TRIND"
B
ASCANl
BD
SCl
,SINGST..,
OUTSC
B
OUTSCl
TFM
OKlO
FMON+35, 8LK 5"
BTM
FMON,DKID
OUTPUT SUBSCRIPTING CODE
****
, SMADD
,11
OUTSCl TF
TEMP
DIMNO,SMCNT,ll
TD
CF
DIMNO
OIMNOT OS
2,*-2
DIMNOT,DIMNO
TF
CF
SC22
SET UP WORK AREA
Al-3,MASK, ,
TR
PAl, Al-4
TFM
PA2,A2-4
TFM
TFM
PI,I-12

16000
16000
16012
16024
16036
16000

0

1620 FORTRAN 11-0

LOCTN

10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404
10416
10428
10440
10452
10464
10476
10488
10500
10512
10524
10536
10545
10548
10560
10572
10584
10596
10608

16
17
16
17
16

17
16

17
16
17
16
17
16
17
16
17
16
17
16
17
44
49
43
49
16
17
26
25
33
26
33
31
16
16
16

02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
12094
12058
10884
10512
02359
02324
02620
10677
10677
00002
10545
10620
11920
10934
10782
11038

99793
i-0200
99747
i-0224
99724
i-0248
99724
i-0272
99839
i-0296
99839
r0320
99839
r0344
99839
r0368
99724
r0392
99793
r0416
02609
00000
10100
00000
99816
r0488
0724>!
0729~

00000
10677
00000
11989
H919
H931
H943

,

1966

PAGF

35

MNEM OPERANDS AND REMARKS

63
=_iSiiq

au iii (,

_as

,.,---------.. ~--, .. ~.--..............----- .........~""

...

_ ....,.. ~_~=;:;~.;.;.,;:;,~~u;.u:;:...:.::.;.w...:.:......~,_~ •...,.... _._.~ ............... ___

~

I

III
1620 FORTRAN II-D

*****

PHASE

I-B

NOVI:MBER, 1966

LOCTN

OP

P/L

Q

PG/LN

LABEL

MNEM OPERANDS AND REMARKS

10620
10632
10644
10656
10668
10677
10680
10692
10704
10716
10728
10740
10752
10764
10776
10782
10788
10800
10812
10824
10836
10848
10860
10872
10884
10896
10908
10920
10928
10928
10934
10940
10952
10964
10976
10988
11000
11012
11024
11031
11032
11038
11044
11056
11068
11080
11092
11104
11116
11128
11140
11152
11164
11176
11188
11200
11212

11

10934
10782
11038
15138
10677
00002
15139
10976
10106
05446
10106
15139
10928
10106
10782
00000
10824
10620

00094
00094
000r2
15140
09091

19290
19300
19310
19320
19330
19340
19350
19360
19370
19380
19390
19400
19410
19420
19430
19440
19450
19460
19470
19480
19490
19500
19510
19520
19530
19540
19550
19560
19570
19580
19590
19600
19610
19620
19630
19640
19650
1%60
19670
19680
19690
19700
19710
19720
19730
19740
19750
19760
19770
19780
19790
19800
19810
19820
19830
19840
19850

SC22

AM
AM
AM
TR
SM
DS
CM
BNH
TDM
BTM
TDM
CM
BE
TDM
TF
DS
BNF
CF
SF
CM
BE
CM
BE
BTM
BTM
TR
BD
B
DORG
TF
OS
TR
CM
BH
CM
BNH
BTM
BO
B
DORG
TF
OS
CM
BE
CM
BNE
SF
TR
CM
BNH
TDM
BTM
TFM
MM
A
MM
A

11

11
31
12
14
47
15

17
15
14
46
15
26
44
33
32
14
46
14
46
17
17
31
43
49
26
31
14
46
14
47

17
43
49
26
14
46
14
47
32
31
14
47
15

17
16
13
21
13
21

*~,*:(,*

000b9
01100
00001
r0728
00000
OOOH
01200
00000
10081

1078~

10620
00000
00000

15139
10620
15139
10896
09384
09384
151.38
10872
11164

01200
00094
01200
00975
00-272
15140
10677
00000

10934
00000
15138
15139
10872
15139
10872
05738
11032
10872

15140
000b9
01100
00040
01100
H012
06453
00000

11038
00000
15139
11104
15139
10824
10620
15138
15139
10872
10106
05446
11230
10545
02620
10545
11230

000~3

10081

07241
000-1:0
01200
OOO~O

01200
00000
15140
000 .. 9
01100
00001
-1:0764
.u939
00095
00099
000r2
00099

1620 FORTRAN 11-0

LOCTN

OP

P/L

11224
11236
11248
11260
11272
11284
11;'91
11292
11304
11316
11328
11340
11352
11364
11376
11388
11400
11412
11424
11436
11448
11460
11472
11484
11496
11508
11519
11520
11532
11538
11544
11556
11568
11580
11592
11604
11616
11628
11636
11636
11648
11660
11672
11684
11692
11692
11704
11 716
11728
11 740
11752
11764
11772

21
12
46
12
12
49

00000
10545
11292
02620
11230
11224

02629
00091
01200
OOO€t5
OOOP
00000

22
23
32
21
23
32
21
21
23
32
26
23
32
26
13
26
16
16

11951
11943
00000
00099
11939
00000
00099
11935
11931
00000
00099
11927
00000
00099
oeOOl
00099
-l:l987
-1:1980
11519

12
12
14
46
16
11
45
49

119R7
11975
00092
11987
11963
00092
11987
11987
11975
00092
11975
11963
00092
11963
11923
11951
11519
11538
11544
00000
11519
11538
00000
11519
11538
11519
11508
11038
11038
11636
11772

11
14
46
11
49

11038
11038
11692
10545
11604

00093
oeooo
01200
OOOEH
00000

26
26

11746
11 751
11 751
11746
00000
11038
11616

11038
11038
oooei
OOOH
00000
00093
00000

11 772
11784

16
21

4-4

33
15

11
12
31
12
49

11807
11807

00000
0000 ..
000r2
000r2
H951
01300
i:l943
00099
11 0 3fl
00000

09148
10545
--"-

PHASE

DIMNO

SC4
PA2

SC5

SCl

SC3
PAl

ALFAT

PI

SC9
CALC

PA1,4,l0
PA2,4,10
PI,12,l0
CHI-l,CHI+l
DIMNO,0001,810
2, *-2
CHI,69,10
ALFAT
DIMSW,l
CSTNO,*+12
DIMSW,O
CHI,14,l0
SC3
DIMSW,O
PA2, SYM
,*-5
*+36, SC22
SC22
PA2" 6
CHI ,23, 10
SC22
CHI ,4, 10
*+36
ERROR,75,9
ERROR,272 ,·9
CHI-l,CHI+l
SCl-12,DIMNO
SC9
*-3
PAl,SYM
,*-5
CHI-l,CHI+l
CHI,69,10
SC 1-12
CHI,40,10
SC 1-12
CSORN,*+12
*+20,FXORFL
SCl-12, ,
"-4
PI,SMADO-l
,*-5
CHI,10,10
*+4R
CHI ,20, 10
SC5
SC22
CHI-l,CHI+l
CHI ,69, 10
SCl-12
DIMSW,l
CSTNO,SC4
MOVE IT +6, D1-12
OIMNOT,05,l0
TFMP,99
DIM~IOT, 12, 10
MOVF.IT+6,99

PAGE

36

0

FLOATING VARIAlOlE I)SFO IN SUSSCR I P

66

I-B

NOVFI~BFR

, 1966

PG/LN

LABEL

19860
19870
198flO
19890
19900
19910
19920
19930
19940
19950
19960
19970
19980
19990
20000
20010
20020
20030
20040
20()50
20060
20070
20080
20090
20100
20110
20120
20130
20140
20150
20160
20170
20180
20190
20200
20210
20220
20230
20240
20250
20260
20270
20280
20290
20300
20310
20320
20330
20340
20350
20360
20370
20380
20390
20400
20410
20420

MOVi= IT A
,TEMP,l1
SM
OIMNOT,1,10
BZ
*+44
SM
TEMP,05,10
SM
MnVEIT+6, 12,10
B
MovFIT
OORG *-4
S
04,01
M
03,C2
SF
92
A
04,99
M
02,82
SF
92
A
04,99
A
04,A2
M
03,Cl
SF
92
03,99
TF
M
D2,81
SF
92
D2,99
TF
MM
A1,00OOl,8
01,99
TF
TFM
IND1,04
IN02,04-7
TFM
TONY
BNF *+36,IND1
IN01
DS
,*
IND1, ,6
CF
TOM
IN02 ,9,11
IND2
,*-5
OS
SM
IN01,12,10
SM
IND2,l2,10
IND1,Ol,67
CM
BNL
TDNY
PI,I-12
TFM
1-1 V 1
AM
PI,9,10
8NR *+20,PI,11
GO TO OUTPlIT S TR I Nt;
B
CONT, "
OORG *-3
AM
PI ,3,10
CM
PI ,0,68
BE
MV2
AM
OIMNOT ,01,10
B
MV1
OORG *-3
MV2
SHIFT OFF SUflSC NOT 1\1i=i=f)Ff)
TF
MV3+6,PI"
MV3+11,PI
TF
AM
MV3+11, 1, 10
SM
MV3+6,l1,l0
MV3
TR
0,0
PI ,03, 10
SM
B
MVl+12
OORG *-3
148 LITERAL SUBSCRIPT, Sl
149 ONE SliBSCRIPT
SO
**
S2
150 TWO SliBSCRIPTS, S3
151 THRFF SIIBSCRIPTS
**
TFM
L4+ 11 ,0148 ,8 ,
CONT
BASE FOR SlJflSCRIPT OPFRATnRS
A
L4+11 ,DIMNOT

PAGf'

0

37

MNEM OPI:RANOS AND REMARKS

.-.-~.--~~----~.-

=
=

.. --.-.. ---.. ----

=

0
I

~

I.

=

67

il

----

..

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

--- .~-.-~ ...~~
• •-~., ................... __.J...._. _ _ _ • _ _ .&L.,.~_~._.

__.

I

'I

1620 FOR TRAN II-D

*"***
LOCTN

OP

P/L

12830
12842
12850
12850
12862
12874
12886
12B98
12910
12922
12930
12930
12942
12954
]2966
12978
12986
12986
12998
13010
13022
13034
13046
13058
13070
13078
13078
13090
13102
13114
13126
13138
13150
13162
13174
131R6
13198
13210
13222
13234
13242
13242
13254
13262
13262
13274
13281

17
49

09084
12942

09121
00000

14
47
14
47
17
31
49

15139
12986
15141
12930
09084
15138
12942

000-l:4
01200

17
31
14
46
49

09084
15138
15139
12550
12414

017114
15140
000400
01100
00000

14
46
43
17
17
43
12
49

15139
13034
14422
09384
09084
13078
02615
13090

000174
01200
10103
017104
10103
00091
00000

12
31
47
47
14
47
17
14
47
43
14
46
43
49

14698
15138
12646
13162
15139
12574
09384
02615
13198
13262
15139
13150
14466
12598

00091
15140
01300
01100
OOOe4
01200
00-378
00090
01200
10107
000,24
01200
10103
00000

16
49

10367
10344

-l:2486
00000

16
49

10319
10296

-l:3672
00000

43

13306
09384
05675
0729';
10109
02625
09084
09084

05675
003-77
00000
00000
00000
07242
Oe137
02624

13282
13294
13306
13318
13330
13342
13354
13366

17
33
32
15
26
17
27

::,*::t,!,*
LOCTN
13378
13390
13402
13414
13426
13438
13450
13462
13474
13486
13498
13510
13522
13534
13546
13558
13570
13582
13594
13606
13618
13630
13642
13654
13666
13678
13686
13686
13698
13710
13722
13734
13746
13754

13754
13766
13778
13790
13802
13814
13826
13838
13850
13862
13874
13886
13898
13910
1391B
13918
13930
13942
13954
13966
13978

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

PG/LN

000~4

01200
09115
15140
00000

00~78

1620 FORTRAN
OP

P/L

16

14093
09084
15138
13438
09384
15139
13426
10102
15139
13426
07068
05738
13426
14093
10083
10082
02372
0237e
04431
0443115139
13686
15139
13426
09084
13402

17
31
45
17
14
47
15
14
46
32
17
43
11
16
33
11
26
12
26
14
46
14
47

17
49

I I-I)

oooeo
0&124
15140
15141
00,H6
00040
01100
OUOOO
0001>9
01100
00000
l:3 52 2
02611
00091
000-l:4
00000
00092
10083
000175
07242
000&4
01200
000,23
01200
017123
00000

09084
15138
02625
10100
12190

017104
15140
00094
14093
OOOO-l:
00000

44
11
26
14
46
17
16
31
15
14
47
17
49

14606
07295
14700
15139
13826
09384
09084
14698
15138
10102
15139
13918
09084
13942

10102
000172
0729!>
OOOe4
01200
00979
09124
00081
15140
00000
OOOl20
01200
017129
00000

14
47
31
14
46
14

15139
13954
15138
15139
14082
15139

OOOto
01200
15140
00040
01100
00093

17

21570
21580
21590
21600
21610
21620
21630
21640
21650
21660
21670
21680
21690
21700
21710
21720
21730
21740
21750
21760
21770
21780
21790
21800
21810
21820
21830
21A40
21850
21860
21870
21 A80
21890
21900
21910
21920
21930
21940
21950
21960
21970
219RO
21990
22000
22010
22020
22030
22040
22050
220hQ
22070
22080
22090
22100
22110
22120
22130

PHASE
PG/LN

17
31
11
26
15
49

0262~

PHASE

22140
22150
2216U
2217u
2218U
22190
22200
22210
22220
22230
22240
22250
22260
22270
2228U
22290
22300
22310
22320
2233U
22340
22350
22360
22370
22380
22390
22400
22410
22420
22430
22440
22450
22460
22470
22480
22490
22500
22510
22520
22530
22540
22550
22560
22570
225AO
22590
22600
22610
22620
22630
22640
22650
22660
22670
22680
22690
22700

1-B
LABEL

NOVEMBER,

1966

PAGE

•

40

MNEM OPERANDS AND REMARKS
8TM
B
DORG
CM
8NE
CM
BNE
BTM
TR
B
DORG
BTM

PUT,
121,8,DIVIDE
ASC24
*-3
CHI ,14, 10
ASC25
CHI+2,14,10
ASC24-12
PUT,
115,8, EX PONE NT I AL
CHI-1,CHI+1
*+20
*-3
PUT,
114,B,MULTIPLY
ASC24
TR
CHI-1,CHI+1
CM
CHI ,40, 10
BH
ASC3
B
ASC4
DORG *-3
ASC25
CM
CHI,4,10
BE
*+36
BD
ASC281,FNTSWl
BTM
ERROR,378,9,
INVALID OP ERA TOR
BTM
PUT,
104,A,RIGHT PAR EN
BD
*+32,
FNT SW 1
SM
PARCNT,
1']0
B
"+20
DORG ;'-3
SM
TPARCT,
1,10
TR
CHI-1,CHI+1
BN
ASCl-12
BNH
"+48
CM
CHI ,24,10
BNE
ASC7-24
BTM
ERROR,378,9
CM
PARCNT ,0,10
BNE
*+24
BD
OlJTS12,IFSW
CM
CHI ,24, 10
BE
*-60
BD
ASC31-12,FNTSWI
B
ASC7
DORG "-3
RTCALL TFM
CALL+23,CALL2
B
CALL
DORG *-3
OUTS12 TFM
IF+23,OUTSN+12
B
IF
DORG ;"-4
**,::~c~':*
ENTER HERE TO OUTPUT S I NGL E STATEMENT FUNCT IONS

;:~ ~:~

)(::,:t*~'**

:(::;:~* ::,~,:(::

ASC21

BD
BTM
CF
SF
TOM
TF
BTM
BT

ASC26

*;':;:-:

~~

'~+24,

STSN
ERROR,377,9,
SINGLE STATEM~NT PRFCFFI)FD flY OTi-'FR S Ti~T
STSN
SMCNT,,6
OMM ,0
TEMP5,SMAOO"
SAVE SYHi:lOL ADDR ESS TO MOVF I~! ~Jn.OF PA K
PUT,
137,8,ARITH STATEMENT FliNCTION
PIJT,TEMP5-1"
OUTPUT SHI~IT NAI'IF

1-B
LAB EL

0

NUV E~II:\ ER,

1966

PA(;E

70

C

41

MNEM OPERANDS AND REMARKS
TFM
BTM
TR
BNR
BTM
CM
llNH
TOM
CM
BH
SF
BTM
BD
AM

PCNT,0,10,
INITIAL PARAMETER COIINT
PUT,
124,fl,LEFT PAR EN
CHI-l,CHI+1
*+24,CHI+2
ERROR,376,9,
INCOMPL~H STATEMENT FIINCT !DN
CHI ,40, 10
'~-24

FNTSW,o
CHI ,69, 10
ASC26
OlJTSW
CSORN,~'+12

ASC26,INSW
PCNT,l ,10
SYM+2, 14, 10
CF
SYM+l
AM
NXLOC,2,!O
TF
NXLOC ,SYM+2,6
SM
STAFT,5,!O
TF
STAFT ,SMADD,6
CM
CHI ,04, 10
BF
*+56
CM
CHI,23,10
BNE
ASC26
PUT,
BTM
123,8,COMMA
B
ASC26-24
DORG "'-3
BTM
PUT,
104,8,RIGHT PAR EN
TR
CHI-l,CHI+1
AM
TEMP5,4,l0
TF
TEMP5,PCNT,6
TDM
SINGST,1,l1,
SET SINGLE STAHT S'1I TCH, S'IITCH TESTED
B
IN PUTTING (JUT SUSSCR IPT I~IG
AERR-24" ,
DORG *-3
:): ;:~*;;::~<;:<
ENTER TO OUTPUT SINGLE STATEMENT FUNCTION CALL AND
;;::;;::*~<;;::;:t
FUNCT IClN SUBPROGRAM CALL
BNF
NO FLAG INDICATE FIINCTION SUBPROGRAM
ASC11,FNTSW"
AM
SMCNT,2,10
TF
NOPARM,SMCNT,l1,
MOVE NO. OF PARAMETERS TO COUNTER
CM
CHI ,24, 10
BE
*+24
BTM
ERROR,079,9,
FUNCT NAME NOT FOLLDWfD BY LPAREN
BTM
PUT,
124,8,LEFT PAREN
TFM
TPARCT ,1,10,
SET UP HMPORARYPAREN COlINT
TR
CHI-l,CHI+l
TOM
FNTSW,o
CM
CHI ,20, 10
BNE
*+32
BTM
PUT,
129,8,UNARY MINUS
B
*+32
DORG *-3
CM
CHI,l0,10
BNE
*+24
TR
CHI-l,CHI+1
CM
CHI,40,10
BH
ASC27
CM
CHI ,3, 10,
TF~I

***>:{*~~

~;::**~<**

ASC8

ASC15

ASC12

--~--.----~-.-~-.--.-

...

-~------

--

---

-.--~-----.".---

0
7/

hlt_!'.

I /!\LI*~*W.W.i!wt!i"'.WrW"MW

t.

rb* tUIiM

WIli7"tr "'

1620 FORTRAN II-a

*****

0

rttt

PHASE

I-B

OP

P/L

Q

PG/LN

LABEL

13990
14002
14014
14026
14038
14050
14062
14074
14082
14082
14093
14094
14106
14118
14130
14142
14150
14150
14162
14174
14186
14198
14210
14218
14218
14230
14242
14254
14266
14278
14286
14286
14298
14310
14318
14318
14330
14342
14354
14362
14362
14374
14386
14398
14410
14422
14434
14446
14458
14466
14466
14478
14490
14502
14514
14522
14522

46
14
46

140B2
15139
14038
09384
09084
15138
1469B
13874

01200

07068
00002
14150
07439
05738
07439
14186

00000.

44
15
17
15
49

14700
00001
H130
00000
00000

17
12
47
43
45
49

05738
14700
14026
14626
14218
14026

,\4162
00091
01300
10102
15141
00000

14
47

000~3

31
44
49

15139
14318
09084
15138
14286
13874

01200
09123
15140
14700
00000

14
46
49

14700
14026
13874

00090
01200
00000

14
46
15
49

15139
14362
10103
12658

00094
01200
00001
00000

17
12
31
47
46
14
46
45
49

09084
14698
15138
14026
14466
15139
14242
14342
14026

09104
00091
15140
01300
01200
000i!3
01200
15141
00000

44
14
47
15
49

14554
14644
14522
10103
13198

14700
H697
01200
00000
00000

31

14697

14644

22710
22720
22730
22740
22750
22760
22770
22780
22790
22800
22810
22820
22830
22840
22850
22860
22870
22880
22890
22900
22910
22920
22930
22940
22950
22960
22970
22980
22990
23000
23010
23020
23030
23040
23050
23060
23070
23080
23090
23100
23110
23120
23130
23140
23150
23160
23170
23180
23190
23200
23210
23220
23230
23240
23250
23260
23270

BE
CM
BE
ASCER
BTM
BTM
TR
AM
B
aORG
ASC27
SF
PCNT
DC
BNF
TDM
BTM
TDM
B
DORG
ASC27A BTM
SM
BN
8D
ASC29
BNR
B
DORG
CM
BNE
ASC30
BTM
TR
BNF·
8
DORG
CM
BE
B
DORG
ASC28
CM
BE
TDM
B
DORG
BTM
SM
TR
BN
BE
ASC281 CM
BE
BNR
8
DORG
BNF
ASC31
CM
BNE
TDM
B
DORG
TR

17
17
31

11
49
32

17

000~4

01200
00""70
09124
15140
00091
00000

0
1620 FORTRAN I I-D

*"***
LOCTN

OP

P/L

14534
14546
14554
14554
14566
14578
14586
14586
14598
14606
14606
14618
14626

12
49

14644
14198

00095
00000

14
46
49

14700
14478
14026

OOOBO
01200
00000

15
49

10103
14186

00000
00000

16
49

14700
13790

00099
00000

11
31
49

14644
--1:4697
13754

00095
14697
00000

16
49

14644
12286

--1:4697
00000

16
49

14700
12262

00099
00000

14626
14638
14650
14657
1465A
14670
14677
14678
14690
14697
14698
14700
14701
14706
16000
16000
16012
16024
16036
16000

0

NOVEMBER,

LOCTN

10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404

00002
00002
00001
00005
16
49
36
49

14
49
16

17
16

17
16

17
16

17
16

17
16
17
16

17
16

17

00565
00532
00012
00012

15139
13172
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324

PHASE
PG/LN

t6023
99770
00500

23280
23290
23300
23310
23320
23330
23340
23350
23360
23370
23380
23390
23400
23410
23420
23430
23440
23450
23460
23470
23480
23490
23500
23510
23520
23530
23540
23550
23560
23570
23580
23590

00044
00000
e9747
--1:0224
e9724
--1:0248
e9724
,\0272
e9839
--1:0296
e9839
--1:0320
e9839
'\0344
e9839
--1:0368
e9724
--1:0392

23600
23610
23620
23630
23640
23650
23660
23670
23680
23690
23700
23710
23720
23730
23740
23750
23760
23770
23780
23790
23800
23810
23820
23830

00020

ASC9

ASC11

******
ASC 14

IFASEN

CLASEN

TPARCT
NOPARM
FL 1ST

PAGE

42

ASC27
CHI,24,10
*+24
ERROR ,470 ,9,
INVALID FUNCTION PARAMETER LIST
PUT,
124,8,LEFT PAREN
CHI-l,CHI+l
TPARCT,1,10
ASC12
*-3
OUTSW
2,0,*
ASC27A,NOPARM
FNTSW2,1
CSDRN,*+12
FNTSW2,0
ASC29-12
*-3
CSORN,*+12
NOPARM, 1, 10
ASCER
ASCI4,FNTSW, ,
TEST FOR NESTED FUNCT IONS
*+20,CHI+2
ASCER
*-3
CHI ,23, 10
ASC28
PUT,
123,B,COMMA
CHI-1,CHI+l
*+20,NOPARM
ASC12
*-3
NOPARM,0,10
ASCER
ASC12
*-3
CHI ,4, 10
*+32
FNTSWl,l
ASCI
*-3
PUT,
104,8,RIGHT PAREN
TPARCT,l,lO
CHI-1,CHI+l
ASCER
*+56
CHI ,23, 10
ASC30
ASC28+24,CHI+2
ASCER
*-3
ASC9-32,NDPARM
ASC14+18, FL I ST-9"
TEST IF NEST LIST IS EMPTY
*+32
FNTSWI
RTCALL-44
*-3
TPARCT-l,ASC14+18,11

I-B
LABEL

1966

MNEM OPERANDS AND REMARKS

NOVEMBFR,

1966

72

PAGE

43

MNEM OPE RANDS AND REMAR KS
SM
ASC14+l8 ,5 ,10
B
ASC29
DORG *-3
CM
NOPARM,O,10
ASC31
BZ
B
ASCER
DORG *-3
TOM
FNTSW1,O ..
B
ASC29-12
DORG *-3
TFM
NOPARM,O ,10 11
ASC15
B
DORe; *-3
ENTER HERE TO SHIFT PARAMETER LIST DOWN FOR NESTED CALLS
AM
*+18,5,10
TR
FL IST-9, TPARCT-l, 2
B
ASC8
DORG *-4
TFM
ASCl4+1A,FLIST-9
B
I FSCAN+ 12
DORe; *-4
TFM
NOPARM ,00 ,lOll
B
I FSCAN-12
DORG *-4
OS
2
DS
2
1,@
DC
OSB
5,20
DORe; 16000
TFM
IORT,*+23
B
IOPT,BLK3,7
TRA
TCD
16000
OUT OF CORE BLOCK 4
CONTAINS THE FOLLOWING
OUTSC
DO
10 OTHER THAN DISK
DORG lOUT
CM
CHI,44,10,
lOUT, NONDISK I/O
B
IOUTEN
TFM
FMON+35,BLK2
BTM
FMON,NONARA
TFM
FMON+35,BLKl"
01 M
BTM
FMON,DIM
TFM
COMMON
FMON+35,BLK1"
BTM
FMON,COMMON
TFM
IF STMNT
FMON+35,BLK6"
BTM
FMON, IF
TFM
GOTO
FMON+35,BLK6"
BTM
FMON ,GOTO
TFM
FMON+35,BLK6"
CALL
BTM
FMON,CALL
TFM
RETURN
FMON+35 ,BLK6"
BTM
FMON ,RETURN
TFM
FORMAT
FMON+35 ,BLK 1"
FMON,FORMAT
BTM

**~,

73
ida::: £Milt ii:;

· •• _"'u .......... '"'--_ _ _ _ _ ......."'" __

ill
'I

_

.... \,_.-J~.w~~;.;....:;:..,:.~.;;.;~~.:.....i ....... .;..._~~

~

.... ,... ~ _ _ _ _ _ ._

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

,.
1620 FORTRAN II-D

*****

PHASE

NUVFMBER, 1966

I-B

PAGE

44

I

LOCTN

OP

P/L

Q

PG/LN

10416
1042B
10440
10452
10464
10476
10488
10500

44
49
16
17
43
49
16

12094
12058
02359
02324
10884
10512
02359
02324

02609
00000
e9770
1:0440
10100
00000
e9816
1:0488

00000
02610

17
32
17
11
49

02609
12094
09440
15139
09278
15141
09278
12166
04876
05675
15138
15139
12226
09384
09084
07068
05446
07242
12390

15
14
47
14
46
17
27
43
17
43
12
43
49

0724-2
15139
12378
15139
12378
05738
09084
12446
09384
12434
07242
12294
12282

17
14
47
17
31
33
33
14
47
14
47
32

09384
15139
12214
09084
15138
12518
12670
15139
12378
15139
12578
12518

23840
23850
23860
23B70
23880
23890
23900
23910
23920
23930
23940
23950
23960
23970
23980
23990
24000
24010
24020
24030
24040
24050
24060
24070
24080
24090
24100
24110
24120
24130
24140
24150
24160
24170
24180
24190
24200
24210
24220
24230
24240
24250
24260
24270
24280
24290
24300
24310
24320
24330
24340
24350
24360
24370
24380
24390
2440U

17

12058
12058
12070
12082
12094
12106
12118
12130
12142
12154
12166
12178
12190
12202
12214
12226
12238
12250
12262
12274
12282
12282
12294
12306
12318
12330
12342
12354
12366
12378
12390
12402
12414
12426
12434
12434
12446
12458
12470
12482
12494
12506
12518
12530
12542
12554
12566

~~

,;t ,:~ ,;::

15
43
17
14
47
14
47
43

17
15
31
14
46

17

*

00~72

000 .. 4
01200
00056
01200
02424

oooeo
00000
15142
000e9
01100
00275
0~108

00000
1:2262
000e5
00000
00001
000 .. 0
01100
000&9
01100
1:2354
07241
06453
00~75

0724-2
00092
0724-2
00000
00-274
000~3

01200
OEH33
15140
00000
00000
000 .. 0
01100
000&9
01100
00000

1620 FORTRAN 11-0

LOCTN

OP

PIL

12578
12590
12602
12614
12622
12622
12634
12646
12658
12670
12682
12694
12706
12718
12730
12742
12754
12766
12778
12790
12802
12814
12822
12822
12834
12846
12858
12870
12882
12894
12906
12918
12926
12926
12938
12950
12962
12970
12970
12982
12994
13006
13018
13030
13042
13054
13066
13078
13086
13086
13091l
13110
13122
13134
13142
13142
13154

32
17
43
49

07068
05738
12622
12378

00000
1:2602
06453
00000

44
26
14
46
14
47
17
31
14
47
14
47
32
17
27
43
49

12670
13171
10081
12378
15139
12214
09084
15138
15139
12378
15139
12778
12670
05738
09084
12822
12378

12 SIR
10081
01200
000;23
01200
0&123
15140
000 .. 0
01100
000&9
01100
00000
1-2790
07241
06453
00000

44
44
24
47
14
46
45
43
49

12894
12870
10081
12378
10081
12378
12926
12214
02626

12670
12518
13171
01300
OOOEtO
01200
15141
10113
00000

14
46
43
49

15139
12970
14452
12214

000-23
01200
10113
00000

17
31
14
47
32
17
14
46
43
49

09084
15138
15139
12378
07068
05738
07295
12214
13086
12378

09123
15140
000 .. 0
01100
00000
1-3042
Et2219
01200
06453
00000

14
46
43
45
49

10081
12378
14452
13142
02626

OOOEtO
01200
10113
15141
00000

17

09440
02626

00-573
00000

49

~.-.~---~---~----

PHASE
pr;/LN
24410
24420
24430
24440
2445u
24460
24470
24480
24490
24500
24510
24520
24530
24540
24550
24560
24570
24580
24590
24600
24610
24620
24630
24640
24650
24660
24670
246RO
24690
2470U
24710
24720
24730
24740
24750
24760
24770
24780
24790
24ROO
24810
24820
24830
24840
24850
24860
241170
24880
24890
24900
24910
24920
24930
24940
24950
24960
24970

OOO~O

..

-~-.--

..

----

LABEL

MNEM OPERANDS AND REMARKS
BNF
B
TFM
BTM
BD
B
TFM
BTM

DOLOOP+36,TR1ND"
DOLOOP
FMON+35,BLK3"
FMON ,ASCAN
SCl,SINGST"
OUTSCI

DO STATEMENT
ASCAN
OUTSC

~

FMON+35,BLK~"

V

01 SK INPUT/OUTPUT
FMON,DKIO
OUTSC CODE IS HERE
**
OORG ASCANI
OUTPUT 00 STATEMENTS
*):<"*~~**
******
DOLOOP TOM
TRINO,O
BD
*+24,NOINO
BTM
ERROR2,572,9
CM
CHI ,44,10
BNE
SPERR
CM
CHI+2,56,10
8NE
SPERR
BD
*+24,INOIV
BTM
CKCNTU,0,10
TOM
STSN
TR
CHI-1,CHI+3
CM
DO
CHI ,69, 10
BH
*+24
BTM
ERROR,275,9,
INCORRECT DO STATEMENT
BTM
PUT,
108,8,00
SF
OUTSW
BTM
CSTNO,*+12
AM
SMAOO,
5,10
8
OOCK
DORG *-3
SMAOO, 1,6,
TOM
SET BY DO, IF NOT SET DO REF IN TABU:
CM
CHI,40,10
DOC
BNH
00CK-12
CM
CHI,69,10
BH
DOCK-12
BTM
CSORN,*+12, ,
COLLECT DO INDEX SYMBOL
BT
PlJT,SMADD-l
BD
DOC! ,FXORFL
BTM
ERROR,275,9,
FLOATING POINT VARIABLE FnR INDEX
DOCK
BO
00Cl-12, SMADD,ll
SM
SMAOO,
2,10
BO
DOC,
SMADD,ll
B
DOC-12
OORG '~-3
BTM
ERROR,274,9,
DO REFERENCIN(; ILLEGAL STAMNT NO
DOCI
CM
CHI,33,10,
TEST FOR EQUAL SIGN NEXT
BNE
00+24
BTM
PUT,
133,8,EQUAL
TR
CHI-l,CHI+l
CF
INITIALIZE SWITCHES
DOA" ,
CF
DOB
DOA
CM
CHI ,40, 10
BNH
TEST FOR 11~ISIGNFn VALlIES
DOCK-12",
CM
CHI ,69, 10
BNH
*+24" ,
SF
DOA

I-fj
LABEL

NUVEMBER,

DORG
BNF
TF
CM
BE
CM
B~IE

BTM
TR
CM
BNH
CM
BNH
SF
BTM
BT
SO

DOE

DOEE

PAGE

0

45

MNEM OPERANDS AND REMARKS
SF
BTM
BD

DOB

1966

14

B
DORG
BNF
BNF
C
BL
CM
BE
BNR
BD
B
DORG
CM
BE
BD
B
DORG
BTM
TR
CM
BNH
SF
BTM
CM
BE
BD
B
DORG
CM
BE
BD
BNR
B
DORG
BTM
B

OUTSW
COLLECT ANn OUTPIJT FIRST INDfX
CSORN,"+12"
"+20, FXORFL
DOCK-12
"-3
DOB,DOA
DOTEST,SYM
SYM,O,lO,
HST IF FIRST INn~x WAS ZERO
DOCK-12
CHI,23,l0
DO+24
PUT,
123,8,COMMA
CHI-l,CHI+l
CHI,40,10
00CK-12
CHI ,69, 10
*+24
DOB
CSORN,"+12
PUT,SMADD-1
"'+20,FXORFL
DOCK-12
*-3
'~+72 ,DOB
*+36,DOA
SYM ,DOTEST"
TEST IF SECOND INDEX IS GREATFR OR
DOCK-12,,,
EQUAL TO THE FIRST IF BOTH ARF CONSTS
SYM ,0,10
DOCK-12
DOE,CHI+2
DO+24,rnSW"
I 10 CANNOT ENll HFR F
BEGIN
*-3
CHI,23,10
*+32
RETURN TO I 10 SCAN
10F,IOSW"
DO+24
*-3
PUT,
123,8,COMMA
CHI-l,CHI+l
CHI,40,10DOCK-12
OUTSW
CSORN,*+12
SMCNT,2219
SUBSCRIPTED VARIABLE IN 00
00+24" ,
*+20,FXORFL
DOCK-12
*-3
SYM,O,lO
DOCK-12
IOF,IOSW"
*+20 ,CHI+2
BEGIN
*-3
ERROR2,573,9
BEGIN
--.~----

0
75

tt't±'bJ!U!UY!'

'h'uieMe'Mllit**"••b't'H' W
t

W1W

Hili

.8

1620 FORTRAN II-D

*****
LOCTN

OP

13162
13171

C

0

I

i

f!

PIL

Q

00010

13172
13184
13196
13208
13216
13216
13228
13240
13252
13264
13276
13288
13300
13308
13308
13320
13332

47
16
31
49

13216
13567
15138
13556

01200
0&112
15140
00000

14
47
14
46
17
16
31
49

15139
13308
15141
13276
09384
13567
15138
13556

00055
01200 .
0006-3
01200
00671
06111
15142
00000

14
47
31

15139
13388
15138

0001t5
01200
15140

13344
13356

14
47

04179
10200

63685
01200

13368
13380
13388
13388
13400
13412
13424
13436
13448
13460
13472
13484
13496

16
49

13567
13556

06113
00000

17
14
46
47
16
31
14
47
17
24

04696
10081
13264
13576
13567
15138
15139
13556
04696
10081

00062
0J,348
01400
01200
06118
15142
0006-3
01200
00064
13639

13508
13520

46
47

13556
13556

01400
01200

13532
13544
13556
13568
13576
13576
13588
13600
13612
13624
13632
13639

31
11
17
49

15138
13567
09084
13640

15146
00061

eoooo

14
46
47
16
49

10081
13264
13264
13567
13448

05763
01400
01200
06116
00000

00000

00008

13640

32

07068

00000

13652

15

10113

00001

1620 FORTRAN I I-D

~~**",':';~

0

¢t

LOCTN

OP

P/L

13664
13676
136fl8
13700
13712
13724
13736
13744
13756
13768
13780
13792
13804
13816
13828
13840
13852
13864

14
46
14
46
17
15
49
17
17
15
32
16
17
16
17
16
16
49

15139
13872
15139
13744
09084
02292
13952
09084
09084
02291
07068
07446
05738
07446
09384
07446
05737
07556

13872
138fl4
13R96
13908
13920
13928
13928
13940
13952
13964
13972
13972
13984
13996
14008
14020
14032
14044
14056
14068
14080
14092
14104
14116
14128
14140
14152
14164
14176
14188
14200
14212
14224
14236
14248
14260
14271
14272

17
11
43
15
49

05446
07242
13928
13952

l,3884
00064
02611
00001
00000

43
17
45
49

13952
09384
13972
02626

15141
00000

14
46
17
17
31
14
47
14
46
32
17
16
14
47
11
17
31
11
14
46
14
47
14
46
32

15139
14008
09384
09084
15138
15139
14104
15139
13996
07068
05738
14271
15139
13996
02615
09084
15138
14271
15139
14636
15139
14116
15139
13996
07068
00002
05738

17

0724~

0006-9
01100
OOO~O

01300
09-999
00001
09998
0&123
00001
00000
B840
B816
67556
00~76

67556
l,3952

0724~
00~77

000~3

01200
00~78

06123
15140
OOOItO
01100
000e9
01100
00000
1:3952
00060
000~4

01200
00061
06124
15140
OOOSI
000114
01200
0001t0
01100
00069
01100
00000
r4284

PHASE

NOVEMBER, 1966

I-B

PAGE

PG/LN

LABEL

249BO
24990
25000
25010
25020
25030
25040
25050
25060
25070
25080
25090
25100
25110
25120
25130
25140
25150
25160
25170
25175
25180
25190
25195
25200
25210
25220
25230
25240
25250
25260
25270
25280
25290
25300
25310
25320
25325
25530
25540
25345
25350
25360
25370
25380
25390
25400
25410
25420
25430
25440
25450
25460
25470
25480
25481
25485

DORG *-3
DOTEST OS
10
ENTER HERE TO DECOMPOSE I/O STATEMENTS OTHER THAN DISK ****
****
IOUTEN BNE *+44
TFM
IOUTl+ll,112,8,
OUTPUT READ SYMBOL
TR
CHI-l,CHI+l
B
IOUTI
DORG *-3
CM
CHI,55,10
BNE
IOUT2
CM
CHI+2,63,10
BE
*+24
IOUTER BTM ERROR,71,9
TFM
IOUTl+11,111,8,
OUTPUT PRINT SYMBOL
CHI-1,CHI+3
TR
B
IOUTl
DORG *-3
IOUT2 CM
CHI,45,10
BNE
IOUT3
TR
SHIFT OFF E
CHI-l,CHI+1"
*****************************************************************,":,',**
CM
SV3,63685
",COMPARE FOR TYPE
BNE
lOUT

PHASE

46

.MNEM OPERANDS AND REMARKS

*...............•.•....•••......•.•...................................

IOUTl+11,q113,8,
OUTPUT TYPE SYMFlOL
TFM
B
IOUTl
DORG *-3
10UT3 BTM COLNAM,2,1O
CM . SYM,4348,8
BV
IOUTER
BNE
IOUT4
IOUTl+ll,118,8,
OUTPUT PUNCH SYMBnL
TFM
IOUT5 TR
CHI-1,CHI+3
CM
CHI ,63, 10
BNE
InUTl
BTM COLNAM,4,10
SYM,TPCST
C
**** * *** ***** ******** ******* ***** * ** * **** ** * * * * "'** * * * * **** * * ** * ** *" * ",:,
BV
10UTl
BNE
10UTl

* ••.•.•.•••••.••••••.••.•..•••••......•.....•.••............•.•...•...
CHI-1,CHI+7
TR
AM
IOUTl+11, 1, 10
BTM PUT" ,
OUTPUT I 10 SYI~BOL
B
INOUT
DORG *-3
IOUT4 CM
SYM,5763,8
BV
IOUTER
BNE
IOUTER
TFM
IOUTl+11,0116,8,
OUTPUT ACCEPT SYMBOL
B
IOUT5
DORG *-3
TPCST
DC
TAPE
8,63415745"
OUTPUT INPUT-OUTPUT LISTS
**,~**"
******
INOUT
SF
OUTSW
:(!*:(~ *:;:: *
»: ~(*:(~
TOM
IOSW,l
IOUTl

**** **** *** ** ***** ****** *** ** **** ********

1-B

*** **

NOVEMBER, 1966

PGI LN

LABEL

25490
25495
25497
25498
25500
25510
25520
25521
25522
25523
25524
25525
25526
25527
25528
25529
2552A
2552B
2552Z
25530
25540
25550
25560
25570
25580
25590
25600
25610
25620
25630
25640
25650
25660
25670
25680
25690
25700
25710
25720
25730
25740
25750
25760
25770
25780
25790
25800
25810
25820
25830
25840
25850
25860
25870
25880
25890
25900

CM
BH
CM
BNL
BTM
TOM
B7
VARFOR BTM
BTM
TDM
SF
TFM
BTM
TFM
BTM
TFM
TFM
B7

PAGE

76

47

MNEM OPERANDS AND REMARKS
CHI,69,10
IOZ
CHI,40,10
",CHECK FOR VARIABLE FOR MA T
VARFOR
PUT, 9999 ,8
USEDFS+29,1
IDA
PUT,9998,8
PUT ,123,8
USFDFS+28,1
OUTSW
FNTSW2+7, *+48
CSORN,*+12
FNTSW2+7, LUX IT
ERROR,276,9
FNTSW2+7, LUX IT
CSORN-1, lOA
LUX IT

:I{( • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

IOZ

***,::;:C**:(~* to: ;~**;::

BTM
AM
BD
TOM
B
DORG
BD
BTM
lOA
BNR
B
DORG
CM
BE
IDLER BTM.
BTM
TR
CM
BNH
CM
BH
SF
BTM
lOB
TFM
CM
BNE
AM
BTM
TR
AM
CM
BE
100
CM
BNH
CM
BH
SF
IDLOOP DC
BTM

~ •••••••••••••••••

CSTNO,*+12
SMADD,4,1O
*+32, I NSW
SMADD, 1,6,
SET DIGIT FOR FORMAT STAMNT NIiMBFR
*+32
*-3
*+24,SMADD,1l,
TEST IF STAMNT ~IUMBER CORRESPONDS TO FMT
ERROR,277,9,
I/O STATEMENT NO. NOT A FORMAT NUMBER
*+20,CHI+2
BEGIN
*-3
CHI ,23, 10
*+24
ERROR,278,9,
MISS I NG COMMA OR INVAL 10 LIST EL E~lENT
PUT,
123,8,COMMA
CHI-l,CHl+1
CHI ,40, 10
lOB
CHI,69,10
IDLER
OUTSW
CSORN, IDA'
IOLOOP,0,10
CHI ,24, 10
IDLER
PARCNT,l,lO
PUT,
124,8,LEFT PAREN
CHI-1,CHI+l
IOLOOP, 1, 10
CHI ,24, 10
lOG
CHI ,40, 10
IOB+12
CHI,69,10
IOLER
OUTSW
2,0,*
CSORN,*+12, ,
COLLECT LIST EL EMENT

77
_ass:aaZUil\UiiiiRi:m';Ui,AU .Z

,q-"

.

.'::';'~""':':"""'~".':""""'''''~~'''~--'-'.~''''.''''''.' ~--~=

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

. . . ;,.-.

-=-

I
I

,II

~'

!

1620 FORTRAN

*****

II-D

PHASE

I-B

NOVEMBER,

1966

PAGE

48

I

LOCTN

OP

P/L

14284
14296
14304
14316
14328
14340
14352
14364
14372
14372
14384
14396
14408
14420
14432
14444
14452

45
49
14
47
17
32
31
49

14304
13996
15139
14372
09084
10113
15138
14212

01200
OEH23
00000
15140
00000

44
33
14
47
43
49

13996
10113
15139
14116
09084
12482
13996

10113
00000
0003-3
01200
08133
06453
00000

14452
14464
14476
14488
14500
14512
14524
14536
14548
14560
14568
14568
14580
14592
14604
14616
14628
14636
14636
14648
14660
14672
14684
14696
14708
14720
14732
14744
14756
14764
16000
16000
16012
16024
16036
16000

14
47
17
31
12
47
12
47
45
49

15139
13996
09084
15138
02615
13996
14271
14568
13972
02626

00084
01200
09104
15140
00081
01300
OOOIH
01200
15141
00000

14
47

15139
13996
09084
15138
10113
14212

01200
08123
15140
00000
00000

17

17
31
32
49

17
11
31
11
14
47
17
11
31
11
49

09084
02615
15138
14271
15139
14212
09084
02615
15138
14271
14212

16
49
36
49

00565
00532
00012
00012

10200
10200
10212
10224
10236
10248
10260
10272
1 0284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404
10416
10428
10440
10452
10464
10476
10488
10500

000~3

000~3

08124
00081
15140
OOOEn
000~4

01200
08124
00081
15140
00081
00000

-i6023
89793
00500

1620 FUR TRAN II-f)
OP

P/L

Q

16
17
16

02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
12094
12058
02359
02324
10884
10512
02268
13172

8S1793
-i0200
89747
-i0224
-i0248
89724
1:0272
89H39
1:0296
fJ9839
-i0320
89839
1:0344
e9839
-i0368
89724
1:0392
02609
00000
fJ9770
1:0440
10100
00000
00001
00000

17
16
17
16

17
16
17
16
17
16

17
16
17
16
17
44
49
16
17
43
49
15
49

e9724

12058
12950

--~.--.-.--.------

..- - . - - -

PG/LN

LABEL

25910
25920
25930
25940
25950
25960
25970
25980
25990
26000
26010
26020
26030
26040
26050
26060
26070
26080
26090
26100
26110
26120
26130
26140
26150
26160
26170
26180
26190
26200
26210
26220
26230
26240
26250
26260
26270
26280
26290
26300
26310
26320
26330
26340
26350
26360
26370
26380
26390
26400
26410
26420

BNR
*+20, SMC NT.11
B7
IOLER",FUNCTIDN NAME
CM
CHI ,23,10
BNE
IOE
BTM
PUT,
123,8,COMMA
SF
IOSW
CHI-l,CHI+l
TR
B
100
DORG *-3
IDE
BNF
IOLER, JOSW
JOSW
CF
CM
CHI ,33, 10
BNE
IOB+12
BTM
PUT,
133,8,EQUAL
BD
DOA-36, F XORFL"
BRANCH TO COLLECT
B
IDLER
DORG "-3
)~*~:t**
RETURN HERE FROM 00 CODF I ~!G
****~:t*
JOF
CM
CHI ,4, 10
BNE
IOLER
BTM
PUT,
104,8,RIGHT PAR EN
TR
CHI-1,CHI+l
SM
PARCNT,l,10
BN
IOLER
SM
IOLOOP, 1,1.0
BNZ
*+32
BNR
IOLER-24,CHI+2
B
BEGIN
DORG *-3
CM
CHI ,23, 10
BNE
IOL ER
BTM
PUT,
123,8,COMNA
TR
CHI-l,CHI+l
SF
IDSW
B
IOD
DORG "-3
lOG
BTM
PUT,
124,8,LEFT PAREN
AN
PARCNT .1,10
TR
CHI-l,CHI+l
AM
IOLOOP,l,lO
CM
CHI,24,10
BNE
IOD
BTM
PUT,
124,8,LEFT PAREN
AM
PARCNT, 1, 10
TR
CHI-l,CHI+l
AM
IOLOOP,l,10
Wf)
B
DORG *-3
DORG InOOO
TFM
IORT, *+2 3
B
IOPT ,BLK4,7
TRA

26430
26440
26450
26460

~~**~:;',.::

LOCTN

0729~

12950
13110
13110
13172

43

14396

10113

43

14396

10113

13172
13184
13196
13208
13220
13232
13244
13256
13264
13264
13276
13288
13300
13312
13324
13332
13332
13344
13356

32
14
47
16
14
47
31
49

10488
15139
13264
13535
15141
04300
15138
13404

00000
00043
01200
oe142
000">8
01200
15142
00000

14
47
33
16
31
49

15139
13332
10488
13535
15138
13404

000">4
01200
00000
08144
15140
00000

17
24
46

04696
10081
04300

00093
14677
01400

PHASE

MNEM OPERANDS AND REMARKS

TCD
16000
OUT OF CORE BLOCK 5
OUTSC
DO

0
INOICB OF ARRAY LOOP

CONTAINS THE FOLLOW I NG

1-8

78

NlIVFMBFR,

1966

PAGE

PG/LN

LABEL

26470
26480
26490
26500
26510
26520
26530
26540
26550
26560
26570
26580
26590
26600
26610
26620
26630
26640
26650
26660
26670
26680
26690
26700
26710
267?0
26730
26740
26750
26760
26770
26780
26790
26800
26810
26820
26830
26840
26850
26860
26870
26R80
26890
26900
26910
26920
26930
26940
26950
26960
26970
26980
26990
27000
27010
27020
27030

OKlO
OORG lOUT
TFM
FMON+35,BLK4, ,
lOUT
BTM
FMON, lOUT
TFM
FMON+35,BLK2
BTM
FMON ,~IONARA
TFM
FMON+35,BLKl, ,
DIM
BTM
FMON ,DIM
TFM
FMON+35,RLKl"
COMMON
BTM
FMON ,COMMON
FMON+35,RLK6, ,
TFM
1 F STMNT
BTM
FMON,IF
TFM
FMON+35,BLK6"
GOTD
BTM
FMON ,GOTn
TFM
FMON+35 ,BLK6"
CALL
BTM
FMO~I ,CALL
FMON+35,BLK6, ,
TFM
RFTIJRN
BTM
FMON,RETURN
FOR~IAT
TFM
FMON+35,BLK1"
BTM
FMON,FORMAT
BNF
on STATEMENT
DOL nOP+36, TR 1Nfl"
B
DOLnop
TFM
FMON+35,BLK3, ,
ASCAN
BTM
FMON, ASCAN
BO
otJTSC
SC1,S INGST"
B
OUTSCl
TDM
USEOFS+5, 1"
01 SK liD
B
OK InEN
OUTSC CODE IS HERE
**
OORG ASCANI
*)~
OUTPUT DO STATEMENT cnDF IS HERE
OORG DnE+24
THE FOLLOW ING INSTRUCTION I S A CHANGE TO DO STATFi'1F~IT cnDf
**
BD
RETURN TO I If) SCA~I
OKF, IOSW"
DORG OOEE
Bf)
OKF,IOSW
OORG IOUTEN
~:::* ~!:
ENTER HERE TO DECODE DI SK 1 10 STATF.I~ENTS
DK IOEN SF
FLAG FOR FF.TCH A~lfl RFCORD
OKlO" ,
CM
CHI,43,10
BNE
OKlnl
TFM
OKPUT+ll,0142,8,
FETCH SYMBOL
CM
CHI+2,48,1O,
CHECK FOR H
BNE
ERROl
TR
SHIFT OFF TWO CHARACTFRS
CHI-I ,CHI+3"
B
DKLIST
DORG *-3
DK 101
CM
CHI ,44,10
BNE
OKI02
CF
NO FLAG FOR F I NO
OKlO" ,
TFM
DKPUT+ 11,0144,8,
FIND SYMBOL
TR
SHIFT nFF nNE CHARACTER
CHI-l ,CHI+l"
B
OKLI ST
OORG ~'-3
OKI02
BTM
COLNAM,03,10
C
SYM,OROCT+4
BV
ERROl

49

MNEM OPERANDS AND REMARKS

****

- - - - - - - -..

~-.-

.... - . -

0
I,~
79

I

II
I.'

lwl1lplri#'ftW!"

l,'"M

t'LtWtrtd"t'tt*t

!'U!

1620 FORTRAN II -D

*****

0

1-B

NOVEMBER,

OP

P/L

Q

PG/LN

LABEL

13368
13380
13392
13404
13416
13428
13440
13452
13464
13476
13488
13500
13512
13524
13536
13548
13560
13572
13584
13591
13592
13604
13616
13628
13640
13652
13664
13676
13688
13700
13708
13708
13720
13728
13728
13740
13752
13764
13776
13788
13800
13812
13824
13836
13848
13860
13872
13880
13880
13892
13904
13912
13912
13924
13936
13943
13944

47
31
16
15
14
47
15
31
14
47
11
14
47

04300
15138
13535
02383
15139
13752
10113
15138
15139
13500
13535
15139
13752
09084
09084
07068
05738
13592
13752

01200
15144
0lH46
0000i0002-4
01200
00001
15140
000b9
01300

31
49

15139
13752
09084
02626
09084
15138
13688
09384
14303
13788

00064
01200
06104
10488
oe123
15140
15141
00 .. 72
14678
00000

45
49

13728
02626

15141
00000

14
46
17
17
31
14
47
14
46
32
17
45
49

15139
13764
09384
09084
15138
15139
14000
15139
13752
07068
05738
13880
13752

15140
00040
01100
000609
01100
00000
+:3860
0729500000

43
15
49

13912
14306
13924

0729500002
00000

15
43
49

14306
13944
13980

00001
14304
00000

24

14304

14306

27040
27050
27060
27070
27080
27090
27100
27110
27120
27130
27140
27150
27160
27170
27180
27190
27200
27210
27220
27230
27240
27250
27260
27270
27280
27290
27300
27310
27320
27330
27340
27350
27360
27370
27380
27390
27400
27410
27420
27430
27440
27450
27460
27470
27480
27490
27500
27510
27520
27530
27540
27550
27560
27570
27580
27590
2760U

BNE
TR
TFM
DKLlST TDM
CM
BNE
TDM
TR
CM
BL
AM
CM
BL
DKPUT
BTM
BTM
SF
BTM
BD
B
DORG
CM
BNE
BTM
BNF
BTM
TR
DKL
BNR
BTM
TR
B
DORG
DKA
BNR
B
DORG
CM
BE
OKER
BTM
BTM
TR
OKB
CM
BNH
CM
8H
SF
BTM
BNR
B
DORG
BD
TDM
B
DORG
TDM
BD
8
DORG
C

17
17
32
17
43
49
14
47
17
44
17
31
45

17

000~1
OOO~O

01300
~lOOOO

06124
00000
+:3572
06453
00000

000>!3
01200
00~71
0~123

0
1620 FURTRAN II-D

*****

0

PHASE

LOCTN

PHASE

1966

PAGE

ERROl
CHI-1,CHI+5"
DK PUT+ll ,0 146, A,
DISKSW, 1, 11,
CHI ,24, 10,
DKER
IOSW,l
CHI-l,CHI+1"
CHI,69,10
*+24
DKPUT+11,1,10,
CHI,40,10
DKER
PUT" ,
PUT,0124,8,
OUTSW
CSORN,*+12
*+20,FXORFL
DKER
*-4
CHI,04,l0.
DKER
PUT,0104,8,
BEGIN,DKIO,.
PUT ,0123,8.,
CHI-1,CHI+l"
*+24 ,CH I +2
ERROR,472,9,
DKSWl-1, SWS ET-4"
DKB
*-3
*+20 ,CH I +2
BEGIN
*-3
CHI,23,10
*+24
ERROR,471,9
PUT ,0123,8,
CHI-l,CHI+l, ,
CHI ,40010
DKC
CHI ,69, 10
OKER" ,
OUTSW
CSORN,*+12
*+20, SMCNT, 11
DKER",
*-3
*+32,SMCNT,11,
DKSW2,2
*+20
*-3
DKSW2,1
~'+20, DKSW 1
OKB1+12
*-4
DKSWl,DKSW2

I-B

SH I FT OFF THREE CHARACTERS
RECORD SYMBOL
SET SW TO INDICATE DISK 110
CHECK FOR LEFT PAREN

SHIFT OFF LEFT PAR EN

ADD ONE FOR LI TERAL

OUTPUT DI SK 1/0 SYMBOL
OUTPUT LEFT PAREN

CHECK FOR RT PAREN
OUTPUT RT PAREN
BRANCH TO BEGIN IF FINO STMNT
OUTPUT COMMA
SHIFT OFF RT PAREN
DI SK 110 STMNTS MUST HAVE LISTS
INIT SWITCHES

OUTPUT COMMA
SHIFT OFF ONE CHARACTER

LITERAL

ITEM ON LIST

FUNCTION NAME
DIGIT IMPLI ES AN ARRAY

NA~lE

80

NUVEMBER,

1<)66

PAGE

LOCTN

OP

P IL

Q

PGI LN

LABEL

13956
13968
13980
13992
14000

46
17
25
49

13708
09384
14304
13708

01200
00 .. 73
14306
00000

14000
14012
14024
14036
14048
14060
14072
14084
14096
14108
14120
14132
14144
14156
14167
14168
14180
14192
14200
14212
14224
14236
14248
14260
14272
14284
14296
14304
14306
14308
14316
14316
14328
14340
14352
14364
14376
14388
14396

16
14
47

49

14167
15139
13752
02615
09084
15138
14167
15139
14544
15139
14012
15139
13752
07068
00002
05738
14200
13752
14236
14304
13968
14304
15139
14316
09084
15138
14316
00002
00002
14108

44
33
14
47
17
43
49

13752
14316
15139
14012
09084
12482
13752

01200
06133
06453
00000

14
47
17
31
12
47
12
47
45
49

15139
13752
09084
15138
02615
13752
14167
14512
13728
0262&

000e4
01200
06104
15140
00061
01300
00061
01200
15141
00000

2761U
27620
27630
27640
27650
27660
27670
27680
27690
27700
27710
27720
27730
27740
27750
27760
27770
27780
27790
27800
2781U
27820
27830
27840
27850
27860
27870
27880
27890
27900
27910
27920
27930
27940
27950
27960
27970
27980
27990
28000
28010
28020
28030
28040
28050
28060
28070
28080
28090
28100
28110
28120
28130
28140
28150
28160
28170

BE
DKA
BTM
ERROR,473.9,
ARRAYS AND SIMPLE VAR IABLES ON SAME
TD
DKSWl,DKSW2
B
OKA
DORG *-3
THE FOLLOWING HANDLES IMPLIED DO LOOPS IN LISTS
*
OKC
TFM
DKLOOP,0,10
CM
CHI,24,10
BNE
DKER
AM
PARCNT,l,lO
BTM
PUT ,0124,8,
OUTPUT LEFT PAREN
TR
CHI-1,CHI+1, ,
SHIFT OFF ONE CHARACTER
AM
DKLOOP,I,lO
CM
CHI,24,10
BE
DKG
DKO
CM
CHI,40.10
BNH
DKC+12
CM
CHI ,69,10
BH
DKER
SF
OUTSW
DKLOOP DC
2,0.*
BTM
CSORN,*+12
BNR
*+20,SMCNT,l1
B7
FUNCTION NAME
DKER",
BD
*+36, DKSW1
DKSW1,DKSW2
C
BNE
DKB1
DKSW1,DKSW2
TD
DKDl
CHI,23,10
CM
BNE
DKE
BlM
PUT ,0123,8,
OUTPUT COMMA
CHI-1,CHI+1
TR
SF
OKE
DKSW1
OS
2,*-3
DKSW2
OS
2,*-1
B
DKD
DORG *-3
DKE
BNF
DKER ,OKE
CF
DKE
CM
CHI ,33, 10
BNE
DKC+ 12
BTM
PUT,0133,8,
OUTPUT EQUAL SYMBOL
BD
DOA-36, FXORFL,.
GO TO DO CODING FOR IMPLIED DO LOOP
B
DKER
DORG *-3
RETURN HERE FROM DO CODING
*
DKF
CM
CH 1,04,10
BNE
DKER
BTM
PUT ,0104,8,
OUTPUT RT PAREN
CHI-1,CHI+1
TR
SM
PARCNT,l,lO
BN
DKER
DKLOOP, 1, 10
SM
BNZ
*+32
BNR
DKER-24,CHI+2
B
BEGIN
DORG *-3

14396
14408
14420
14432
14444
14456
14468
14480
14492
14504
14512

11
17
31
11
14
46
14
47
14
46
32
17
45
49
43
24
47
25
14
47

17
31
32

00060
000~4

01200
00061
06124
15140
oooe 1
000~4

01200
OOO~O

01100
000b9
01100
00000
H180
0729514304
14306
01200
14306
OUO~3

01200
06123
15140
00000

00000
14316
00000
000~3

OKB1

50

MNEM OPERANDS AND REMARKS

51

MNEM OPERANDS AND REMARKS

I III

81
...._111111•••1111 1111111118

III.

-

1620 FORTRAN 11-0

*****
OP

P/L

Q

PG/LN

14512
14524
14536
14544
14544
14556
14568
14580
14592
14604
14616
14628
14640
14652
14664
14672
14673
14679
14682
16000
16000
16012
16024
16036
16000

14
47
49

15139
13752
14248

000~3

01200
00000

17

09084
02615
15138
14167
15139
14108
09084
02615
15138
14167
14108

t6023
99816
00500

28180
2B190
28200
28210
28220
28230
28240
28250
28260
28270
28280
28290
28300
28310
28320
28330
28340
28350
28360
28370
28380
28390
28400

69793
,*0200
69747
-f0224
69724
-f024A
69724
-f0272
00061
00000
000!>6
00000
00053
00000
00093
00000
e9724
-f0392
fJ9793
1:0416
fJ9770
'*0440
10100
00000

28410
28420
28430
28440
28450
28460
28470
28480
28490
28500
28510
28520
28530
28540
28550
28560
28570
28580
28590
28600
28610
28620
28630
28640
28650
28660
28670
28680
281>90
28700
28710
28720
28730

11
31

11
14
47
17
11
31

11
49

06124

oooei

15140

OOOEn
00024
01200
06124
00061
15140
00061
00000

00003 X2
00002
00003
16
49
36
49

16
17
16

17
16
17
16
17

11
49
14
49
14
49
17
49
16
17
16
17
16

17
43
49

~{~{)~**

00565
00532
00012
00012

02359
02324
02359
02324
02359
02324
02359
02324
02615
13284
15139
14120
15139
12058
04696
13166
02359
02324
02359
02324
02359
02324
10884
10512

1620 FORTRAN

11-0

PHASE

LOCTN

OP

PI L

(J

PG/LN

10488
10500

16
17

02359
02324

69816
-f0488

28740
28750
28760
28770
28780
28790
2 AAOO
28810
28A20
2fl830
2A840
28fl50
2881>0
28870
28880
28890
28900
28910
28920
28930
28940
28950
28960
28970
289flO
28990
29000
29010
29020
29030
29040
29050
29060
29070
29080
29090
29100
29110
29120
29130
29140
29150
29160
29170
29180
29190
29200
29210
29220
29230
29240
29250
29260
29270
29280
29290
29300

12058
12058
12070
12082
12094
12106
12118
12130
12142
12154
12166
12178
12190
12202
12214
12226
12238
12250
12262
12274
12286
12298
12309
12310
12318
12318
12330
12338
12338
12350
12362
12374
12382
12382
12394
12406
12418
12430
12442
12454
12466
12478
12486
12486
12498
12510
12522
12530
12530
12542
12554
12566
12574
-..

PHASE

LoCTN

10200
10200
10212
10224
10236
10248
10260
10272
10284
10296
10308
10320
10332
10344
10356
10368
10380
10392
10404
10416
10428
10440
10452
10464
10476

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

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

47
31
17
24
46
46
24
46
15
17
14
46
17
14
46
32
17
45
43
17
15

01200
15140
00094
13129
01400
01200
13137
01200
00001
0&138
000""0
01100
00>'79
00069
01100
00000
-l:2262
15141
02611
06153
00000

49

04300
15138
04696
10081
12154
12662
10081
12718
10111
09084
15139
12214
09384
15139
12202
07068
05738
12338
12318
09084
0729'"
00001
02626

45
49

08004
02626

0729!>
00000

43
17
44
49

12362
09384
12382
12350

10102
00-279
10102
00000

15
14
47

14
46
16
49

10102
15139
12202
09084
02615
15141
12202
10463
10440

00000
000-24
01200
09124
OOOEH
00094
01200
1:4678
00000

14
47
17
49

15139
12530
09084
12466

01200
09123
00000

14
46
16
49

15139
12574
10463
10440

00094
01200
1:2658
00000

17
11

00000

000~3

~.-----~----.'.'-'--

•••

~,

~--"

.~""~.~.-

•• _ _ _ • _ _ ....

~~_~_.""'---

NOVEMBER,

I-B
LABEL

DKG

ORDCT
SWSET

1966

PAGE

.... ;

52

MNEM OPERANDS AN~ REMARKS
CM
BNE
B
DORG
BTM
AM
TR
AM
CM
BNE
BTM
AM
TR
AM
B
DORG
oAC
DC
DC
DORG
TFM
B
TRA

CHI,23,10
oKER
oKol
*-3
PUT,0124,8,
PARCNT, 1,10
CHI-l,CHI+l
oKLOOP,l,10
CHI ,24,10
OKD
PUT,0124,8,
PARCNT,1,lO
CHI-l,CHI+1
DKLOOP,1,10
DKD
*-3
3,ORD
2,00
3,00@
16000
IORT,*+23
IOPT,BLK5,7

TCD
16000
OUT OF CORE BLOCK 6
OUTSC
CALL
RETURN
IF
I FSENSESW I TC H
GOTO
oORG lOUT
TFM
FMON+35,BLK4"
BTM
FMON, lOUT
TFM
FMO~I+35 ,8LK2
FMO~I ,NONARA
RTM
TFM
FMON+35,BLKl, ,
FMON,DIM
BTM
TFM
FMON+35,B LK 1"
FMON ,COMMON
8TM
AM
PARCNT,01,10,
B
I F1
CM
CHI ,56,10,
GOT DEN
B
CHI,53,10,
CM
CALLEN
B
BTM
COLNAM,03,10,
B
RFTRN
TFM
FMON+35,BLKl, ,
8TM
FMON,FORMAT
TFM
FMON+35, B LK4, ,
HIO~I,DOO
BTM
TFM
FMON+35,BLK3"
BTM
FMON,ASCAN
BD
SCl,SINGST"
OUTSCl
B

OUTPUT LEFT PAREN

0

OUTPUT LEFT PARfN

CO~ITAINS

1-E\
LAREL

_1Ui-......,,'~=·"'-·=-.;.;.....:.:;..;,

_ _ _ ..uH .. '" ..

THE

FOLLOWI~IG

lOUT

01 M
COMMON
IF
Gom
CALL
RETURN
FORMAT

000
ASCAN
OIJTSC

82

NfJVFMflfR,

19M

PAGF

0

53

MNEM OPERANDS AND REMARKS
TFM
BTM

FMON+35 ,BlK5"
01 SK I NPIJT IOlJT PIJT
FMON, OK IO
OUTSC COD F IS HERE
DORG ASCANI
i,(*~t
,::~:: ~::
ENTER HERE TO DECOMPDSE CALL STATEMENT
CALL EN BNE
ERROl
TR
CHI-l,CHI+l
BTM
COLNAM,04,10
SYM,EX!TCT+6
C
CALLER-48
BV
EX !TCD
BE
SYM,L INKCT+6
C
LINKCD
BE
TOM
CALLSW,1
PUT,
BTM
138 ,A ,CALL
CM
CHI,40,10
BH
*+24
CALLER BTM
ERROR,279,9,
I NCORR ECT CALL NAMF OR LIST
CM
CHI,69,10
BH
CALLER
OIJTS W
SF
8TM
CSORN,*+12
BNR
CALLB,CHI+2
Bo
CALLA,INSW
BTM
PUT,0153,B,
FUNCTlLm OPERAH1R CALL
TOM
SMCNT,,6
DC
1,@,*
B
BEGIN
DORG *-3
CALLA
BNR
ERR09, SMCNT, 11
B
BEGIN
DORG *-3
CALLB
BD
*+24,FNTS\~
BTM
SY M PRE V I OU SLY USED ~IOT AS CALL ~IAME
ERROR,279,9,
BNF
*+20,FNTSW
B
TRYING TO CALL SINGLE STATMNT FU~IC T
*-24" ,
DORG *-3
TOM
FNTSW,O
CM
CHI ,24,10
BNE
CALLER
BTM
PUT,
124,8,LEFT PAREN
AM
PARCNT,1,10
CM
CHI+2,4,10,
TEST FOR ND FLJNCT!O~I ARGUFMENTS
BE
CALLER
CALLl
TFM
ASCAN+23, CL ASEN
GO TO ARITHMETIC SCAN
B
ASCAN" ,
DORG *-3
CALL2
CM
CHI,23,10,
TEST FOR MORE ARGUEMENTS
BNE
*+32
BTM
PUT,
123,8,COMMA
8
CALL!
DORG *-3
CHI ,4, 10
CM
BE
*+32
TFM
ASCAN+23, ASC 1
8
GO TO SCAN AR I TH fXPRFSSJO~1 OPFRATOR
ASCAN" ,
DORG *-3

;::0''':

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

._-_._----

0
Iii
83

II

I

!'IIIHfInH.IltW.W*e...'....... t! "nr'

t

tntt.

lUI

1620 FORTRAN II-O

*****

0

'twit'

LOCTN

OP

P/L

12574
12586
12598
12610
12622
12634
12642
12642
12654
12662
12662
12674
12686
12698
12710
12718
12718
12730
12742
12754
12762
12762
12774
12786
12798
12810
12822
12834
12846
12858
12870
12882
12894
12906
12918
12930
12942
12954
12962
12962
12974
12986
12998
13006
13006
13018
13030
13042
13054
13066
13078
13090
13102
13114
13122
13123
13131

17
12
31
46
45
49

09084
02615
15138
12642
12486
12202

06104
00061
15140
01200
15141
00000

45
49

12202
02626

15141
00000

45
15
17
49

12154
02609
09084
090B4
02626

15149
0000i0&131
0&140
00000

14
46
45
49

15147
12762
12154
04300

000~4

15
17
17
17
31
14
47
14
46
31
26
31
16
14
47
45
49

02609
09084
09084
09084
15138
15139
12202
15139
12202
13138
13139
15138
12968
15139
13006
12962
04300

0000i0&152
0&140
0&140
15148
00040
01100
000&9
01100
13152
15139
15140
r3141
00040
01100
129M!
00000

26
31
11
49

00000
15138
12968
12918

15139
15140
00062
00000

14
47
45
33
33
33
27
27
27
49

15139
04300
04300
13140
13144
13148
09084
0908·.
09084
02626

00064
01200
15143
00000
00000
00000
13141
13145
13149
00000

17

PHASE
PG/LN

01200
15147
00000

00004 X2
00004 X2

29310
29320
29330
29340
29350
29360
29370
29380
29390
29400
29410
29420
29430
29440
29450
29460
29470
29480
29490
29500
29510
29520
29530
29540
29550
29560
29570
29580
29590
29600
29610
29620
29630
29640
29650
29660
29670
29680
29690
29700
29710
29720
29730
29740
29750
29760
29770
29780
29790
29800
29810
29820
29830
29840
29850
29860
29870

NOVEMBER, 1966

1-B
LABEL

EX ITCD

L INKCO

LKCOI

LKCD3

LKCD4

EXITCT
L1NKCT

PAGE

54

MNEM OPERANOS AND REMARKS
BTM
SM
TR
BZ
BNR
B
DORG
BNR
B
DORG
BNR
TOM
BTM
BTM
B
DORG
CM
BE
BNR
B
DORG
TOM
BTM
BTM
BTM
TR
CM
BNH
CM .
BH
TR
TF
TR
TFM
CM
BNH
BNR
B
DORG
TF
TR
AM
8
OORG
CM
8NE
BNR
CF
CF
CF
8T
8T
BT
B
DORG
DAC
DAC

PUT,
104 ,B ,R IGHT PAREN
PARCNT,l,lO
CHI-1,CHI+1
*+32
CALL2,CHI+2
CALLER
*-3
CALLER,CHI+2
BEGIN
*-3
CALLER-48,CH I +10
TRINO, 1,11
PUT,0131,B,
CALL EX IT SYMBOL
DUMMY
PUT ,0140,8,
BEGIN
*-3
CHI+8,24,10
*+32
CALLER-48,CHI+8
ERROl
*-3
TRINO,1,11
PUT,0152,8,
CALL LINK SYMBOL
PUT ,0140,8
PUT ,0140,8
CH 1-1 ,CHI +9
CHI,40,10
CALLER
CHI,69,10
CALLER
OUTAR,MASKLK
OUTAR+1,CHI
CHI-1,CHi+l
LKCD3+6,OUTAR+3
CHI,40,10
LKCD4
LKC03, LKC03+6, 11
ERROl
*-3
,CHI,
CHI-l,CHI+1
LKC03+6, 02,10
LKCDI
*-3
CHI ,04, 10
ERROl
ERROl,CHI+4
OUTAR+2
OUTAR+6
OUTAR+I0
PUT ,OUTAR+3
PUT,OUTAR+7
PUT ,OUTAR+11
BEGIN
*-3
4,EXIT
4,LINK

84-

0
::c*:
13436
13094
10170
11~h2

13622
11334
11002
1483;>
14762
10410
14800
12985
04172
15999
09124
09212
09292
OR401
1530R
15542
10314
11422
12926
14244
12874

ZODE14
YUBCDS
YDSSAB
XODf 15
~IUBC 12
TYPERM
SYSCAL
SlIflCOW
SETNMT
R(;RNUL
PLITl 7B
PllTD I F
PATSB(')
N60101
N60049
N60035
N60021
N60013
N40009
~140002

N13092
N01300
N00565
LSTYPF
INSfTA
GRBA(;F
FL TOFX
EOPRTl
04LNE(;
COMPAR
CODE7P
COOE4A
CODE3C
COOflX
COOEIC
cn99NF
CD14RL
CD14JG
CDSSSl
C OSAB2
CDABXT
Bf(;TRC
ADO
8
BI
BlK2
BLK5A
BNF
BlIF3
COABU
COSlT
C[1l2C
C014B
C017B
C0171
C094

10194
14102
10290
10218
14150
08253
00475
13637
03694
05784
14604
07470
15786
14638
11786
13594
12544
11468
03821
03786
09357
09552
13756
OB310
11155
13560
04147
14666
15854
14598
11236
13512
12846
11216
11036
11232
10920
109AO
1494A
14634
15422
02AI0
093AO
06A48
09570
09140
09220
09563
08476
15214
151R8
14244
12008
13400
13636
12064

89

.,

,,!

---'----.,,--.----.~.---

--

.....

i,1

"i

*****

NOVF.MBER,

SECONO PASS FORTRAN I I

1966

PAGE

SYMBOL TABLE
CD95
CGCOW
CM96
CODE3
CODOA
OJ
DOSW
03
EOJP
ERSWT
FACAO
FCTRT
FCTlE
FCT 1P
FIVE
FLG4
FORCC
FREQI
FTl
FXSUB
GETX
GNRP
GT J\-!
HTYPE
!OEND
ITUSO
L
LSTAD
LI5
MOO
NM22
OFlDl
OPSX
PAR
PUTA
PUTTA
PUTXF
PUTXZ
P2PTR
REGSW
RGR
RSNFL
SBASE
SF
SM
SRSY
ST
SX
TF
TWO
T3
XCTRT
XODE7
XTYPE
XX4
YD12B
YODE9

:;C

~;,:* ):~::,

12052
12162
13156
10026
12658
06868
09321
06873
12008
09601
04232
10362
12120
10438
09471
07374
04992
13233
04991
04117
02676
05830
06404
04207
04242
15898
06891
02308
02898
09366
13768
14106
03959
04252
08138
07750
07290
08281
02313
09324
05600
04162
04671
09329
09382
04347
09481
02377
09333
14162
09594
14678
10098
04212
14672
10314
10146

CD96
CKCOW
CM97
CODE4
COMSW
DK
DRAY
04
EOJW
ETYPE
FACM2
FCTSW
FCTlF
FCTll
FLAO
FLMUL
FORCE
FREQ2
FX
GA
GFlAG
GPUT
GTNS
I
!OGT
ITYPE
lH 1
lSTN
L2
MOVR
NONUM
O~IE

OPTl
PBLOK
PUTC
PUTX
PUTXG
PUTX2
Q
REP
RGRI
RSNFX
SCABP
S I X9Z
SPCOM
SSlNG
SUB
SXF
TFM
TYPE
UFSTR
XCTl
XODE8
XUUX
XX5
YODEl
YOJ

11752
09311
13126
10050
04451
06878
13196
06883
12376
04197
09568
02293
11388
10634
04012
04052
04680
13399
04007
06457
06332
06188
05540
09485
00566
04187
12750
09084
03042
14562
14174
14150
03995
14346
08018
06898
07530
13590
09500
04182
05654
04167
14202
13488
1:'577
08295
09359
09520
09327
04047
02263
10338
10122
16002
14890
10002
10386

CD97
CKFMT
CM98
CODE5
CSW
DMSW
OSKHD
EM1
EOJWG
EX INO
FAF5
FCTl
FCTlG
FCTl2
FLOVD
FLRDV
FOUR
FRFAC
FXAD
GADD1
GFREE
GPlJTA
GTPT
I FTRC
!OPT
IX I
LIS
LV
l2383
MPY
NDTYP
ONE2
OPX
PGNUM
PUTCA
PUTXA
PUTXH
PUTl
QZP
REP1
RGRS
RSW
SCNT
SK
SQlNG
SSSW
SIiRSW
SX17
TMAX
TYPEA
IIGRMK
XD128
XODE9
XVVX
XYYX
YOf)F3
ZCTRT

11740
03420
12966
03250
13412
04450
14285
09091
12292
09322
14696
10338
10800
11536
04122
04132
13648
04222
04017
06434
06458
06320
05984
02226
00532
04247
04258
09505
02966
09368
03628
13646
04493
02222
08114
06958
07694
08636
15044
13197
05695
09325
09611
10881
08299
09313
09323
13137
06838
08692
02323
10314
10146
16002
16016
10026
10362

CD98
CKSW
CM99
CODE6
OFLMS
DOA
OX
ENOM1
EOPRT
EXIT
FAF6
FCTlA
FCTlH
FCTl3
FLEXP
FLSUB
FPCL
FRV
FXOVO
GBASE
GI
GRMK
GTSCL
INPUT
IORT
J
LIST
LVAL
l3
NAME
N1
OP
OPY
PPJA
PUTCB
PUTXB
PUTXI
PUTl7
ReTY
REP2
RMNS
RTAD
SOJT2
SL
SR
SSl
SUB 1
SY
TOFAC
TYPET
VARFR
X(]DEI
XOJ
XWWX
XZZX
YODE4
ZCTl

11684
05105
12990
10074
14313
09453
08987
13017
14382
03206
15100
10894 .
10974
11286
04062
04112
15182
04842
04127
09575
06601
08626
06714
09616
00565
09490
02228
05013
03186
13785
02233
02379
13181
15922
08078
06982
07854
14520
09372
13327
05510
09510
13001
02399
02372
07342
04072
02384
04227
08291
11156
10002
10386
16002
16002
10050
1033R

C099
CKXH
CODET
CODE7
01
DOMAX
OY
EOJ
EOROD
EX ITA
FANS
FCTlB
FCTlJ
FETCH
FLGRM
FLV
F PSW
FSW
FXEXP
GCNT
GISMO
GSBI
GTST
INSET
101
JAY
LNG
LVP
MAT
NEXT
N2
OPGT
OPZ
PR INT
PUTO
PUTXC
PlJTXJ
PUT2
READ
REP3
RMOD
RV
SECTO
SLASH
SRFCT
SS2
SlIB2
SY 17
TRACE
TYPEX
W
XODE3
XRMNS
XX 1
XOOX
YOOE6
Z012B

11696
13936
08304
10098
06858
09525
08991
10386
13290
14856
04974
11432
11738
13211
08290
04758
09597
09314
04067
06007
09718
11672
06494
11096
09315
02367
09578
13179
04257
08322
02238
03990
09596
04027
08102
07134
07730
08641
04037
14371
093B8
09515
13586
04177
04276
07343
04082
14243
04032
08647
02240
10026
12984
14614
16002
10074
10314

SECOND PASS FORTRAN II

CET
CLEAR
CODEO
CODE8
DIP
DOMES
D1
EOJG
ERMOD
F
FBASE
FCTlC
FCT1K
FFRSW
FLG2
FMON
F PSWX
FTSW
FXMUl
GCOW
GLNO
GTCl
GYES
10
102
JWG
LNGAD
Ll2
MM
NGFRE
N2THO
OPJ
P
PRST
PIITGT
PUT XD
PUTXX
PUT3
RFClG
RF P4
RMS 1-1
RVAl
SECTY
SlC
SRGT
SS3
SlIB3
TRASF
TRCS\-!
Tl
WATY
XDDE4
XSSX
XX2
YCTRT
ynDE7
Z ERn

NOVEMBER,

13354
02628
03764
10122
16018
14895
06853
12148
12042
02250
03977
11464
11444
05065
07334
02324
09598
05045
04057
06705
09378
06606
05936
04237
09316
02460
08317
02850
09337
06526
13766
15649
09495
02229
07193
07230
082011
08646
02243
04022
05085
05015
13594
11072
04398
07344
04092
02303
02840
06888
09374
10050
16002
14548
103h2
10098
09341

196h

CF
CM
CODEl
CODE9
o I PI
DOREF
02
EOJJ
FRRT
FAC
FCODE
FCT1D
FCTIL
FIND
FL G3
FORCfl
F P2
FTYPE
FXRDV
GETSY
GNONE
GTF IN
H
lOCAL
103
K
LOCOM
Ll3
MNS5
NLNG
OBASE
OPSR
PAGf'
PUNCH
PUTRM
PUTXE
PIIT X Y
PI
RfDO
RFlAG
R PNS
RVSN
SFTAD
SLNG
SRNX
SS4
SWF
TCOW
TSW
T2
\VI,
XODE6
XTTX
XX3
YCTl
YflflER
7FRfl4

09331
09545
10002
10146
16002
04042
06863
12044
08998
09469
04979
11476
11930
13201
07354
04932
02298
04192
04137
02728
06040
15442
09339
00716
09317
02252
02262
02862
09455
08297
02917
03888
14281
04097
08222
07266
08276
09589
0420Z
05025
05570
09385
03763
08293
04392
07345
13186
06835
13413
09534
02296
10074
16002
14482
10338
10122
1J9343

C

90

0

PA(;f

S Y~IBfll TABLE
ZtR05 09344
lODER 10122

ZER06 09345
lODE9 10146

ZllDE 1 10002
ZOJ
10386

ZODE3 10026
ZPT
15714

znDE4 10050
ZRM
15497

ZflOFh

10074

ZOflE7 10098

G

9/

*11

('He

SECOND PASS FORTRAN II

*****
lOCTN

C,\

00532
00565
00566
00796
00716
00475
02218
02218
02222
02233
02238
02240
02243
02248
02250
02252
02257
02262
02263
02293
02294
02296
02298
02303
02308
02313
02318
02323
02323
02324
02336
02348
02360
02367
02367
02372
02377
02379
02384
02389
02394
02399
17340
14800
02226
02227
02228
02229
02400
02412
02424

OP

P/l

Q

00000
00000
00000
00000
00000
00000

26
16
49
49

00014
00003
00002
00005
00002
00003
00005
00002
00002
00005
00005
00030
00001
00001
00002
00002
00005
00005
00005
00005
00005
00001
02366
00565
00566
00000

02323
&2359

eoooo
00000

11

00001
00005
00005
00002
00005
00005
00005
00005
00000
00000
00000
00000
00000
00000
09578
06843
06843

02436
02448

17
26

03842
02257

e6843
06843

02460

33

06843

00000

26
26

02296
02257

oooei

.NOVEMBER,

1966

PG/lN

lABEL

MNEM OPERANDS AND REMARKS

00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
00450
00460
00470
00480
00490
00500
00510
00520
00530
00540
00550
00560
00570

******
IOPT
IORT
IOGT
MONCAl
lOCAL
SYSCAl

*
JWG

SECOND PASS FORTRAN I I
,532
,565
,566
,796
,7l6
,475
2218
14
3,2222
2
5
2
3
5
2
2
5
5
30
1
1
2
2
5
5
5
5
os. 5
OGM
2323
,FMON-l
TF
*+42
TFM
IORT
,*+23
B
IOGT
,7
B
OORG *-4
os
1
os
00005, ,SR"
OS
00005, ,SX"
00002, ,op, ,
os
os
00005"SY"
DS
00005" ANS"
os
00005, ,ADT EMP, ,
DS
00005, ,SL"
os
,173·40" ,
01 SK ADDRESS OF PAGE HEADING
DS
CORE STORAGE OF PAGE HEAD I NG
,14800",
DS
,2226
DS
,2227
DS
,2228
DS
,2229
TF
,WW
lNG
TF
ADCOW,BEGAD
AM
ADCOW,1,10
SET ADDRESS IN ADCOW TO EVEN
BTM
ADJUST ,ADCOW
TF
BEGAD,ADCOW
INiTIALIZE
CF
ADCOW

LABEL

MNEM OPERANDS AND REMARKS

CL EAR

TF
TFM
B
A
TF
SM
SF
TF
TF
TR
AM
CM
Bl
BD

PAGE

OS
OS
OS
OS
OS
OS
OORG
HEADeR OSS
PGNUM
OS
Nl
OS
N2
OS
W
OS
REClG
OS
lENGTH OS
F
OS
K
OS
BEGAO
os
lOCOM
OS
UFSTR
OSS
os
FCTSW
PUSTSN OS
WW
os
FP2
OS
TBASE
OS
LSTAO
os
P2PTR
OS
FCTEND os
UGRMK
FMON

JAY
SR
SX
DP
SY
ANS
ADTEMP
Sl
B8DAD
B10MAO
IFTRC
FACTRC
LIST
PRST
PASS I I

92

0
SECOND PASS FORTRAN II

*****
LOCTN

OP

P/L

Q

PG/lN

02472
02484
02496
02508
02520
02532
02544
02556
02568
02580
02592
02604
02616
02628

26
16
49
21
26
12
32
26
26
31

08281
00565
00566
08322
08631
08322
08290
09525
02586
08326
02586
02586
02580
10314

02308
e2507
e8268
02313
08322
00091
00000
04102
08631
09642

00580
00590
00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00720
00730
00740
00750
00760
00762
00764
00766
00768
00770
00772
00774
00776
00777
00778
00780
00782
00783
00784
00785
00788
00790
00792
00794
00796
00797
00797
00797
00797
00797
00798
00800
00910
00920
00930
00931
00931
00931
00931
00931
00932
00933
00934

02640
02651
02652
02664

0

02676
02688
02700
02707
02713
02714
02716
02724
02728
02740
02752
02764
02776
02788
02795
02800
02803
02808
02809
02810
02822
02830
02840
02842
02850

11
14
47
43
15
26
16
45
16
49

16000
00001
09325
03786

000~5

e8626
01300
09321
00000
09352
~6003

49
31

02728
00565
00716
00002
00005
00001
02800
00002
03786
09619
09616
02850
03786
02676
00001
00005
00003
00005
00001
02840
02628
02840
00000
02628
03786

02862
02874
02886

16
27
11

09485
06714
09611

0&001
06713
00091

02898
02910
02922
02934
02946
02958
02966

14
46
14
46
43
49
25

16003
02810
16003
02830
02966
03042
03692

00t-54
01200

11
26
14
31
46

11
49

15
49
15

09616
e2707

e2795
000&1
09619
OOBi'
09620
01200
00094

e0600
&9616
OOOO-i
00000

02724

00~53

01200
02290
09611

NUVEMBER,

1966

PAGE

PUTXZ
,LSTAD
IORT
,*+23
IOGT
, PUTXX
,7
NEXT
, P2PTR
PREBUF
,NEXT
NEXT
,1
,10
FLGRM
DOMAX
,DOBASE
, PRE8UF
*+lR
BUFI
,INPUT+26
,75
,10,
*-6
,BUF4+75
*-18
*-36
CD12B,DOSW
SET UP STRING RECORD CONSTANTS
TOM
BGNST+l
DC
1,@,*
TF
SWAREA
,N 13089
TFM
N40002, BGNST +4

, ,

*** *** ******* **** *** ** * *** ** *** * ************ * ** * ** *'ii * * "***** * ** *,~ ****'-,
BNR
GET X
GETSY, INPUT
" ,CHECK IF INPUT AREA EXHAUSTED
TFM
IORT,*+19
",YES - GET SOME MORE
B7
lOCAL
DSC
2,2
DSA
GTBlKA
1,@
DC
AM
GTBLKB,1,10
ADSl
DSC
2,2@,*-3
GETSY
TF
-N40002,INPUT+3
'" MOVE SYMBOL INTO STACK
CM
INPUT+3,-132,9
",CHECK FOR TRAILER SYMBOL
TR
INPUT,INPUT+4 ",REMOVE SYMBOL FROM INPUT AREA
BE
Ll2
",BRANCH IF TRAILER SYMBOL
AM
N40002 ,4,10
B7
GETX
GTBLKA OSC
1,0
GTBLKB DSA
600
DC
3,001
DSA
INPUT
1,@
DC
BEGTRC TOM
TRCSW,-1
'" TURN ON TRAC E SW ITCH
B7
CLEAR
ENOTRC TOM
TRCSW,O
" ,TURN OFF TRACE SWITCH
TRCSW
OS
,*-1
CLEAR
B7
-N40002, ADSL
Ll2
TR
",CLEAR FLAG + SET REC. MARK

* •.....•.•.•...•..•.•......••••.......•...............................

,8
TFM
,1
I
BT
GTSCl
,GTSCL-l
AM
,10
SCNT
tl
**************************************************************""***""*
BGNST+4,154,9
CM
US
BE
BEGTRC
" ,CHECK FOR 8EGIN TRACE
BGNST+4,153,9
CM
BE
ENDTRC
, "CHECK FOR END TRACE
BD
*+20,UFSTR+27 ",BRANCH IF DIAGNOSTIC MODE
B7
l2
",PLACE LINE COUNT AFTER STATEMENT NlIMBf R
TO
SVSTNO,SCNT
l2383

Ll3

93
• •IIIII.IIIIU~

",.

LOCTN

OP

P/L

02978
02990
03002
03014
03030
03035
03040

14
46
25
17

16007
03042
07345
06898
00005
00005
00005

00-i34
01200
09610
63030
66846
63687
63692

03042
03058
03063
03064
03076
03088
03100
03112
03128
03133
03134
03150
03155
03160
03162
03174
03186
03198
03206
03206
03218
03230
03242
03250

17

49

05540
00005
00005
09505
03186
03786
03786
05540
00005
00005
04680
00005
00005
00005
02389
02389
09485
03042

&3058
&9485
&9505
0&152
01100
09485
000&2
&3128
&3786
69515
63150
69505
69515
62389
90000
01200
00091
00000

14
46
12
49

09485
03042
09485
03042

00091
01200
00061
00000

12
17

09485
05510
00005
00005
09594
05510
00005
00005
05540
00005
00005
02372
03420
09321
05510
00005
00005
05540
00005
00005
02372
03508
06898
00005

000&1
93278
&9485
&2399
02399
63312
69485
69505
63334
69485
62372
06140
01200
00001
63392
69485
62372
63414
69485
62372
06128
01200
93460
96848

03250
03262
03278
03283
03284
03296
03312
03317
03318
03334
03339
03340
03352
03364
03376
03392
03397
03398
03414
03419
03420
03432
03444
03460

14
46
26
11
17

17

14
47

11

26
17

17

14
47
15
17

17

14
47
17

PG/LN

lOCTN

OP

P/l

03465
03470
03472
03484
03496
03508
03520
03532
03544
03556

26
12
12
26
15
45
15
31

00005
00005
09520
09520
06843
03762
03763
03694
03763
09084

&9344
&9344
06843
000-i0
00066
02399
00004
03763
00005

03568

26

03691

09087

03580
03592

33
16

09084
09611

00000
90000

0376~

03604
03616
03628
03640
03652
03664

15
26
15
15
14
46

03763
03763
03763
02372
10242

00064
06843
00009
OOOOt
0&128
01200

03676
03687
03692

49

02898
00005
00005

62383
60000

03841
03842
03854
03866

LABEL

00934
00935
00935
00936
00937

00939
00940
00950
00960
00970
00980
00990
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
01110
01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340

CM
BE
TD
BTM
DSA

26
33
12
17

49
49

0376~

03786
03786
03786
08138
00005
00005
03544
00000
03206

03763
00000
00064
63746
63786
66843
00004
00000

L2

BGNST+8tl34,9
L2
' " SKIP IF ST. NO. COMING UP
SS4,SCNT-1
",SET FLAG IF LINE COUNT TEN OR OVER
PUTX,*+16
",PLACE INSTRUCTION IN THE OUTPUT
BTM,N02383,SVSTNO

L3

EX IT

******

CODE5

CKFMT

BTM
DSA
DSA
CM
BH
TF
AM
BTM
DSA
DSA
BTM
DSA
DSA
DSA
CM
BNE
AM

00000
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00000

13
43
42

00005
0384t
03868
00000

00095
00099
00000

o

GTNS
,*+16
I
LV
lV
,152
,8
L3
N40002
,I
,2
N40002
,10
GTNS
,~'+16
N40002
RV
FORCE
,*+16
l V
RV
ANS
ANS
,6
ANS
,1
I
,10
B
l2
DORG *-3
CM
1,1,10
BE
L2
,1
SM
I
B
L2
DORG "-3
OUTPUT STATEMENT NUMBER ADDRESSES
,1
,10
SM
I
BTM
RMNS
,*+16
DSA
I
DSA
Sl
TF
T3,
Sl
BTM
RMNS
DSA
I
DSA
LV
BTM
GTNS
"~+ 16
DSA
I
DSA
SR
CM
SR,
140,R,DIJMMY
BNE
CKFMT
TOM
DOSW
,1
,~,+ 16
BTM
RMNS
DSA
I,SR

,

B TM
DSA

GTNS
I,SR

CM
BNE
BTM
OSA

SR,
128,R,FDRMAT
SETFCT
PUTX
,~'+16
B,BLANK,BlANK

,*+16

94

NOV FMfl FR,

PG/LN

lABEL

01410
01420
01430
01440
01450
01460
01470
01480
014R3
01485
01487
01490
01500
01500
01610
01620
01630
01640
01650
01660
01665
01670
01673
01677
01680
01690
01700
01710
01720
01730

TF
SM
SM
SETFCT TF
TOM
BNR
TOM
TR

01740
01750
01760
01770
01780
01790
01800
01810
01820
01830
01840
01850
01860
01A70
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970

PAGE

* ..••••.••••.......•..•••.....•...•.....•.............................

01350
01360
01370
01380
01390
01400

1966

MNEM OPERANDS AND REMARKS

SECOND PASS FORTRAN I I

*****

03694
03706
03718
03730
03746
03751
03752
03763
03764
03772
03772
03776
03781
03786
03791
03796
03801
03806
03811
03816
03821
03826
03831
03836
03837

NOVEMBER,

SECOND PASS FORTRAN I I

*****

1966

PAGE

o

4

MNEM OPERANDS AND REMARKS

SXF
SXF
AI)COW
SETAO-1
SETAO
SETNMT
SI'TAD
lSTN

, ADCOW
,10
,6
,Sl
,4
, SETAD

,10
,10

,11

,5

, ,

,SE TAD

,11,

**********************************************************************
TF

SVSTNO-l,lSTN+3, 'MDVF STATEr'ENT NUMflER

* ..........•..............•...........................................
CF
T FM

lSTN
SCNT

,

,

,

*$ $$ $ $$ $$ $$$$ $$ $ $$ $ $ $ $$$ $$ $ $ $ $$ $$ $$ $ $$$ $$ $ $$ $$ $ $ $ $ $ $$$ $ $ $ $ $ $ $ $$ $$ $ $ $ $ $

NDTYP

TOM
TF
TOM
TOM
CM
BE

B7
N02383 DSA
SVSTND OSA

SETAD,4,10
SETAO
SETAD
SETAD
SR
CODE17

,AOCOW
,9
,1
,128

,6
,611

U5
-2383

* ............•........................................................
SETNMTTF
CF
SM
BTM
OSA

SETAO
COOEO
N20000
N40000
N40001
N40002
N40003
N40004
N40005
N40006
1\140007
N40008
1\140009
N400iO
N40011
N40012
N20001
******
ADJUST

N40002
N40002
N40002
PUTA
N40002,ADCOW

,SfTAO

,11

,4
,*+16

,10

B
SETFCT+36
,4
DS
,*
B
EXIT
DORG *-3
DS
, *+1
OS
5
DS
5
OS
5
OS
5
OS
5
DS
5
OS
5
OS
5
5
OS
OS
5
OS
5
OS
5
OS
5
OS
, *+1
FORTRAN ADJUST PROCEDURE
OS
5
MM
*-1,5,610,
MlJl TI PLY ADCOW RY 5
BO
*+14,99
BB

o
95

±it t'#.d*ttd &

II

"

/"Iil

I'U

03868
03868
03880
03887

0\

SECOND PASS FORTRAN II

*****
LOCTN

03888
03900
03912
03924
03936
03948
03959
03960
03972
03984
03990
03995
03996
04007
02917
04012
04017
04022
04027
04032
04037
04042
04047
04052
04057
04062
04067
04072
04077
04082
04087
04092
04097
04102
04107
04112
04117
04122
04127
04132
04137
04142
04147
04152
04157
04162
04167
04172
04177
04182
04187
04192

OP

P/L

Q

11

0384-i
00000

00091
00000

03959
03887
03990
03887
03995
03994
00000
03984
03995
00000
00000
00000
0388i00001
00000
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005

038H
00095
0388i00091
92917
00000

42

26
11
26
11
16
21
43
12
26

49

04007
00095
00000

00000

PG/LN

NOVEMBER,
LABEL

1966

FX
DBASE
FLAD
FXAD
REP4
PRINT
TRACE
READ
DOREF
TYPE
FLMUL
FXMUL
FL EXP
FXEXP
SUB1
ACC EPT
SUB2
ACCTAP
SUB3
PUNCH
DOBASE
PUNTAP
FLSUB
FXSUB
FLDVD
FXDVD
FLRDV
FXRDV
FXTOFL
FL TOFX
RFLSUB
RFXSUB
RSNFL
RSNFX
ATYPE
SLASH
REP
!TYPE
FTYPE

DORG *-9
AM
ADJUST-l,1,610,
ADD
TO ADCOW
BB
DDRG *-4
FORTRAN OP SEARCH ROUTINE
******
MOVE IN PARAMETERS
TF
OPSX, *-1, 11,
AM
OPSR-l,5,10
OPGT, OPSR-l ,'11
TF
AM
OPSR-1, 1, 10
TFM
OPTl ,DBASE
A
GENERATE TABLE ADDRESS
OPT1-1" ,
DS
,*
BD
IS IT FIXED OR FLOATING VARIABLE
*+24,FX"
SM
OPT1,5,10,
FLOATING, ADJUST TABLE ADDRESS
MOVE ENTRY ADDRESS TO A GT
TF
OS
,*-5
OS
,*
OPSR-1,,6,
B
EXIT
OS
1,*
OS
,*+10-1100
5,04090
DC
DC
5,03878
5,07230
DC
5,04354
DC
DC
5,03496
DC
5,04426
DC
00005,17600"DOREF,
DC
5,04282
5,04138
DC
5,03950
DC
5,04258
DC
DC
5,04234
5,-02258
DC
DC
5,04378
5,-02263
DC
5,04402
DC
5,-02268
DC
DC
5,04330
DC
00005,17600, ,DOBASE,
DC
5,04306
DC
5,04066
DC
5,03902
5,04162
DC
DC
5,03974
DC
5,04186
DC
5,03998
DC
5,04042
DC
5,03854
5,04114
DC
DC
5,03926
5,04020
DC
DC
5,04020
DC
5,04536
5,06676
DC
DC
5,07126
DC
5,04448
5,04558
DC

PG/LN

LABEL

MNEM OPERANDS AND REMARKS

02550

ETYPE
REDO
HTYPE
XTYPE
ASTOP
FRFAC
TOFAC
FACAO
10
IOENO
IXI
PAR
MAT
BGNST
LIS

DC
DC
DC
OC
OC
DC
OC
DC
DC
OC
OC
DC
DC
OS
OSC
OC

01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540

******
OPSR

OPSX

OPGT
OPTl

PAGE

MNEM OPERANDS AND REMARKS

'"

96

0
~~****

LOCTN

SEC UNO PASS FORTRAN II
OP

04197
04202
04207
04212
04217
04222
04227
04232
04237
04242
04247
04252
04257
15999
04258
17600

0

04274
04276
04288
04300
04312
04324
04336
04347
04348
04360
04372
04384
04392
04392
04398
04404
04416
04428
04440
04450
04451
04452
04464
04476
04484
04484
04493
04496
04508
04520
04532
04544
04556
04568
04580
04592
04600
04600
04612
04624

P/L
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00005
00000
00012
00001

26
11
26

11
15
26
45
16
15
49
26
15
44
43
33

15
16
49
16

11
25

11
25
15
44
15
43
49
12
26

11

00005
04347
04275
04398
04275
04671
04670
00000
04392
04399
05085
0427500000
00000
09597
04484
04464
04399
00000
00000
09597
04493
04496

025hO

04275
00095
04275
00091
00004
00000
0467r
90000
OOOOr
00000
046H
00000
04399
09599
00000

OOOOr
OOOin
00000

04493
00000
04671
04673
04671
04450
04451
04580
04451
04600
04636

OOOH
00091
046H
00091
046H
00000
04450
00001
04450
00000

04671
09589
04671

00097
046H
00097

02570
0258 0
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710
02720
02730
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
028BO

02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110

NOVEMB ER,

1966

PAGE

5,04580
5,07026
5,04602
5,07354
5,02395
5,03452
5,03408
5,02492
5,06090
5,07006
5,04210
5,03378
5,06518
,15999
12,0
1,@,17600
FORTRAN SYMBOL TABLE SEARCH ROUTINE
**::,':**::,~
******
OS
5
SRFCT
TF
SRSY,*-l,l1,
MOVE IN PARAMETERS
AM
SRFCT-l,5tlO
TF
SRGT ,SRFCT-l, 11
AM
SRFCT-l, 1,10
TOM
SBASE ,4
SBASE-l
TF
SRSY
OS
,*
BNR
SRNX, SBASE, 11
TFM
SRGT,0,67
TOM
RMSW, 1, 11
SRFCT-l, ,6
B
OORG *-3
MOVE OBJECT AODRESS OF SYMBOL TO GT
SRNX
TF
,SBASE,ll,
SRGT
OS
,*-5
TOM
FPSW
,0
BNF
*+68 ,SRGT, 11
BO
*+36,SKIPSW
CF
SRGT,,6
DMSW
OS
,*-1
COMSW
OS
,*
TOM
FPSW,l,l1
TFM
OPX,27,10
B
*+20
DORG *-3
TFM
OPX,17,l0
OPX
OS
, *-2
AM
SBASE,1,10
FXORFL ,SBASE ,11,
TO
SET FIX OR FLOAT
AM
SBASE, 1,10
OMSW,SBASE,l1,
SET DIMENSION SWITCH
TO
TOM
COMSW
,0
BNF
*+24,OMSW
SET COMMON SWITCH
TOM
COMSW,l"
BD
IS IT 01 MENS I ONED
*+20 ,DMSW"
NO EXIT
B
SRCFFL",
DORG *-3
SBASE,7,10
SM
Pl ,SBASE, 11,
SET I MAX
TF
SBASE,7,10
AM

97
1• •11111

I~!~

_ _ _ _ _ _ _ . _ , ' ..

_~

__

-----.------..

'W_'~~~~

,-,,-~

...... ,-

-.~~

.. ,,," ...- . .......,--

...,....... .........

...........,...-

~~

~.M'~·

... ".,--··- ".,

•

I:
SECOND PASS FORTRAN II

*****

NOVEMBER,

1966

PAGE

LOCTN

OP

P/L

Q

PG/LN

LABEL

04636
04648
04660
04671
04673

33
12
49

04673
04671

00000
000~2

0427~

00000

03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270
03280
03290
03300
03310
03320
03330
03340
03350
03360
03370
03380
03390
03400
03410
03420
03430
03440
03450
03460
03470
03480
03490
03500
03510
03520
03530
03540
03550
03560
03570
035110
03590
03600
03610
03620
03630
03640
03650
03660
03670
036110

SRCFFL CF
FXORFL
SM
SBASE,2,!0
B
SRFCT-l, ,6,
EXIT
SBASE
DS
,*
FXORFL DC
2,0
FORTRAN FORCE PROCEDURE
******
******
OS
5
FORCE
MOVE IN PARAMETERS
TF
FLV,*-l,l1,
AM
FORCE-l,5,10
TF
FRV,FORCE-l,l1
AM
FORCE-l,5,10
TF
FANS, FORCE-I, 11
AM
FORCE-l,2,l0
CM
104,8,1 S LEFT OPERATOR LESS THAN OP LOW VALUE
FL V
OS
,*-5
BL
FORCB+24
MOVE TABLE BASE TO FTI
TFM
FTl ,FBASE"
A
FTl-l ,FLV, 11,
GENERATE TABLE ADDRESS
LVAL,FTl,ll,
REMOVE LEFT VALUE FROM TABLE
TF
ADD 7 TO TABLE ADDRESS
AM
FTl,7,l0,
REMOVE CODE FROM TABLE
TF
FCODE ,FTl, 11,
CM
104,8,1S RIGHT OPERATOR LESS THAN OP LOW VALliI'
FRV
OS
,*-5
BL
FORCB+24
IS OP HIGHFR THAN HIGH VALLIE
CM
FRV,141,69',
BH
FORCC
TFM
MOVE TABLE BASE TO FTl
FTl, FBASE"
A
FTl-l,FRV,ll,
GENERATE TABLE ADDRFSS
AM
FTl ,2, 10,
ADD 2 TO TABLE ADDR FSS
TF
RVAL,FTl,ll,
REMOVE RIGHT VALUE FROM TARLE
FORCB
COMPARE LEFT VALUF TO RIGHT
C
L VAL, RVAL"
BNH
*+24
MOVE ZERO nl CODE
TFM
FCODE",
MOVE ZERO OR CODF TO FANS
TFM
FCODE
OS
,*
FANS
DS
, *-5
B
FORCE-l,,6,
EXIT
FTl
OS
5,*
FORCC
TFM
RVAL,OolO
B
FORCB
OORG ~'-3
L VAL
DS
2
RVAL
OS
2
FBASF
OS
,'H2-1040
DC
RPAR EN
2,1"
DC
2,50
DSA
L3
RFLAG
DC
1,0
Gon)
DC
2,60 "
DC
2,59
DSA
CODF6
RXFLAG DC
1,0
DC
COMPlJTfD GOTO
2,0 "
2,0
DC
DSA
CODf9
FTSW
DSC
1,0
DC
IF
2,2 "

04678
04680
04692
04704
04716
04728
04740
04752
04758
04764
04776
04788
04800
04812
04824
04836
04842
04848
04860
04872
04884
04896
04908
04920
04932
04944
04956
04968
04979
04974
049110
04991
04992
05004
05012
05013
05015
03977
05017
05019
05024
05025
05027
05029
05034
05035
05037
05039
05044
05045
05047

~~ i.e;:~ ~:t

00000
00002

26
11
26
11
26
11
14
47
16
21
26
11
26
14
47
14
46
16
21
11
26
24
47
16
16

49
16
49

05049
05054
05055
05057
05059
05064
05065
05067
05 069
05074
05075
05077
05079
05084
050115
05087
05089
05094
05095
05097
05099
05104
05105
05107
05109
05114
05115
05117
05119
05124
05125
05127
05129
05134
05135
05137
05139
05144
05145
05147
05149
05154
05155
05157
05159
05164
05165
05167
05169
05174
05175
05177
05179
05184
05185
05187
05189

0484~

04992
04991
04990
04991
05015
05013
04968
04979
00000
00000
00000
0467<1
00005
05015
04932
00002
00002
00000
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002

,;,

LOCTN

00005
04758
04679
04842
04679
04974
04679
00000
00000
04956
04991
04990
05013
04991
04979
00000
00000
04956

04679
000~5

04679
000E15
04679
OOO~Z

0&104
01300
&3977
0475&
0499l:
000E17
0499l:
0&104
01300
00l:41
01100
e3977
0484"
oooez
0499-:1:
05015
01100
eoooo
eoooo

00000
000&0
00000

e3186

l:0074

-:1:0146

MNEM OPERANDS AND REMARKS

,

,

SECOND PASS FOR TRAN II
DP

P/L
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002

-----.----~,~-~-------

t-009H

-:1:0170

9-3764

-:1:0002

l:0194

-:1:0194

l:0194

-:1:0002

l:0002

-:1:0194

l:0194

-:1:0194

l:0194

-:1:0002

0

N[IVfMBFR,

PGlLN

LABEL

03690
03700
03710
03720
03730
03740
03750
03760
03770
037BO
03790
031100
03810
031120
03H30
03840
03850
03860
03H70
0311110
03890
03900
03910
03920
03930
03940
03950
03960
03970
039110
03990
04000
04010
04020
04030
04040
04050
04060
04070
04080
04090
04100
04110
04120
04130
04140
04150
04160
04170
04180
04190
04200
04210
04220
04230
04240
04250

DC
DSA
DC
DC
f)C
nSA
FFRSW
DS
DC
DC
DSA
SUB PS W OS
DC
DC
DSA
R MSW
OS
DC
DC
DSA
FLAGSW OS
DC
DC
DSA
CKSW
OS
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
CA LLX

1966

98

PAGF

MNEM OPE RANDS AND REMARKS
2,0
CnDF7
1,0
2,0 "
2,0
CODF 12
1
2,0"
2,0
cnDFO
1
2,10"
2,10
CnDFl
1
2,0"
2 ,0
CODE14
1
2,0 "
2,0
CODf'l4
1
2,0, ,
2,0
CODE14
1,0
2,5 "
2,5
CODEI
1,0
2,5 "
2,4
CDDEI
1,0
2,0"
2,0
CDDE14
1,0
2,0, ,
2,0
CDDE14
1,0
2,0 "
2,0
CODE14
1,0
2,0"
2,0
CODE14
1,0
2,10"
2,10
CDDEI
1,0
2,5, ,
2,5

DO

DDA

PLUS

PRINT

RFAD

TYPF

MPY

EXP

ACCEPT

ACCEPT TAPE

0

PUNCH

PUNCH TAPE

MINUS

DIVIDE

99

"Ut,

ttbt

gil,,"!!

tkftiW''t1

lIt'!.

!t"#ti'

LUCTN

0

0

UP

LOCTN
05335
05337
05339
05344
05345
05347
05349
05354
05355
05357
05359
05364
05365
05367
05369
05374
05375
05377
05379
05384
05385
05387
05389
05394
05395
05397
05399
05404
05405
05407
05409
05414
05415
05417
05419
05424
05425
05427
05429
05434
05435
05437
05439
05444
05445
05447
05449
05454
05455
05457
05459
05464
05465
05467
05469
05474
05475

P/L
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005

05194
05195
05197
05199
05204
05205
05207
05209
05214
05215
05217
05219
05224
05225
05227
05229
05234
05235
05237
05239
05244
05245
05247
05249
05254
05255
05257
05259
05264
05265
05267
05269
05274
05275
05277
05279
05284
05285
05287
05289
05294
05295
05297
05299
05304
05305
05307
05309
05314
05315
05317
05319
05324
05325
05327
05329
05334

PG/LN

Q

100002

63764

100122

-i0026

100074

i0074

i-0074

i0242

i-0050

63764

i-0410

63764

i-0002

63250

i-0338

LABEL

DSA

04260
04270
04280
04290
04300
04310
04320·
04330
04340
04350
04360
04370
04380
04390
04400
04410
04420
04430
04440
04450
04460
04470
04480
04490
04500
04510
04520
04530
04540
04550
04560
04570
04580
04590
04600
04610
04620
04630
04640
04650
04660
04670
04680
04690
04700
04710
04720
04730
04740
04750
04760
04770
04780
04790
04800
04810
04820

OP

P/L

Q

00001
00002
00002
00005
i0338
00001
00002
00002
00005
i-0338
00001
00002
00002
00005 i0218
00001
00002
00002
00005
i-0362
00001
00002
00002
63764
00005
00001
00002
00002
i-0074
00005
00001
00002
00002
00005 i0194
00001
00002
00002
i-0194
00005
00001
00002
00002
i0194
00005
00001
00002
00002
i-0194
00005
00001
00002
00002
-1:0194
00005
00001
00002
00002
i-0194
00005
00001
00002
00002
-1:0290
00005
00001
00002
00002
i-0266
00005
00001

PG/LN
04830
04840
04850
04860
04870
04880
04890
04900
04910
04920
04930
04940
04950
04960
04970
04980
04990
05000
05010
05020
05030
05040
05050
05060
05070
05080
05090
05100
05110
05120
05130
05140
05150
05160
05170
05180
05190
05200
05210
05220
05230
05240
05250
05260
05270
05280
05290
05300
05310
05320
05330
05340
05350
05360
05370
05380
05390

DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA·
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA
DC
DC
DC
DSA

CODEl
1,0
2,0, ,
2,0
CODEO
1,0
2,49 "
2,48
CODE8
1,0
2,49, ,
2,1
CODE3
1,0
2,60 "
2,59
CODE6
1,0
2,60"
2,59
CODE6
1,0
2,60 "
2,59
CODE6
1,0
2,60, ,
2,59
CODE17
l,O
2,5 "
2,0
CODE4
1,0
2,0"
2,2
CODEO
1,0
2,0, ,
2,0
CDC ALL
1,0
2,60, ,
2,60
CODEO
1,0
2,60 ..
2,59
CODEl
1,0
2,0 "
2,0
CODE5
1,0
2,0, ,
2,0
Fcn

PAGE

9

RDVD

CMA

lPAREN

STOP

PAUSE

CONTINUE

FORMAT

UNMNS

SENSE SWITCH

CALL EX IT

SC

EQUAL

COLON

SUBP

/00

NOVfMBER,
LABEL

1966

MNEM OPERANDS AND REMARKS

SECOND PASS FORTRAN II

*****

0

NOVEMBER,

SI:COND PASS FORTRAN II

*****

1966

PAGE

10

MNEM OPERANDS AND REMARKS
1,0
DC
DC
2,0"
2,0
DC
DSA
Fcn
1,0
DC
2,0. ,
DC
2,0
DC
Fcn
DSA
1,0
DC
2,0, ,
DC
2,0
DC
CODE 15
DSA
1,0
DC
2,0 ..
DC
2,0
DC
DSA
FCTRT
1,0
DC
2,0, ,
DC
2,60
DC
DSA
CODEO
1,0
DC
DC
2,0 "
2,0
DC
DSA
CODE6
1,0
DC
DC
2,1"
2,0
DC
CODE14
DSA
1,0
DC
DC
2,1"
2,0
DC
CODE14
DSA
1,0
DC
2,1 ..
DC
2,0
DC
CODE14
DSA
1,0
DC
DC
2,1"
2,0
DC
CODE14
DSA
1,0
DC
DC
2,1 "
2,0
DC
CODE14
DSA
1,0
DC
DC
2,1"
2,0
DC
CODE14
DSA
1,0
DC
2,0, ,
DC
2,0
DC
CDSSAB
DSA
1,0
DC
DC
2,0"
2,0
DC
CODESS
DSA
1,0
DC

SUBF

DEF

CALL

RETURN

DUMMY

END

FETCHV

FETCHL

FINDV

FINDL

RECORDV

RECORDL

SO

51

/0/
&1...

,•• "Jj

_ _ _ _ _ _ _ .....

'I

OP

05477
05479
05484
05485
05487
05489
05494
05495
05497
05499
05504

05509
05510
05522
05538
05540
05552
05568
05570
05582
05598
05600
05612
05624
05636
05648
05654
05660
05672
05684
05695
05696
05704
05716
05728
05740
05752
05764
05776
05784
05784
05796
05804
05804
05816
05824
05828
05830
05842
05854
05866
05R82
05887

••••

SECOND PASS FORTRAN

*****
lOCTN

.,_~._._._~

P/l
00002
00002
00005
00001
00002
00002
00005
00001
00002
00002
00005

15
27
15
27
15
27
26
11
26
11
13
11
43
26
49
26
44
11
26
12
31
49

00005
05518
05600
00005
05518
05600
00005
05518
05600
00005
05654
05599
05695
05599
00000
00000
00099
05704
00099
00000
05599
0569505599
00099
00092
00092

Q

-i0266

j,0266

i0410

OOOOi
0<;509
00001
05539
00000
05569
0559q
000e5
0559Q
000e1
000e4

j,5999
05518
00000

0559Q

00099
05518
000e1
00099
00094
0009Q
00000

43
49

05804
05599

05518
00000

16
49

0569505599

0&000
00000

00005
06601
06892
06601
05540
00005
00005

oeooo
00000
000Et1
&5882
Et6601
Et6457

16
15
11
17

0009~

J

-.~----~.,~.-

- - - -...

..

~-~---

~

....---.-..........................

II

NOVEMBER,

lOCTN

OP

P IL

058R8
05900
05912
05924
05936
05948
05960
05972
05984
05996
06007
06008
06020
06032
06040
06040
06052
06064
06076
06088
06100
06112
06124
06140
06145
06150
06152
06164
06176
06188
06200
06216
06221
06226
06228
06240
06252
06264
06276
06288
06300
06312
06320
06332
06344
06356
06368
06380
06392
06404
06420
06425
06426
06434
06434
06446
06457

14
47
14
46
26
16
12
44
11
14

06457
05854
06838
06040
09575
06007
09575
06458
06007
06838
00000
06040
09575
05972

0&101
01200
ooeoo
01200
02303
ooeoo
00097
095 ?J;
oooei
eoooo

06838
06240
06705
06705
06705
06835
07343
06898
00005
00005
00005
06705
06434
06705
07342
06898
00005
00005
00005
06843
09575
09574
09575
06320
08998
06312
00796
09575
09575
09575
09575
09575
15442
09314
05570
00005
00005
0582Q

oooel
06892
06843
000i9
0957H
06705
00001
&6140
&6846
94222
&6705
000Et5
00099
00092
00001
Et6216
Et6848
Et6705
Et9344
06705
02303
06838
09525
01300
e9391
01400

46
12
49

05400
05410
05420
05430
05440
05450
05460
05470
05480
05490
05500
05600
05690
05750
05770
05780

2,0, ,
DC
S2
2,0
DC
DSA
CODESS
DC
1,0
DC
2,0, ,
S3
DC
2,0
DSA
CODESS
DC
1,0
2,0, ,
DC
CALL LINK
2,0
DC
DSA
CDCALl
*$$ $$$$$$ $$$$$$$$ $$$ $$ $ $$$$$$$ $$ $$ $$ $ $$$ $ $ $ $ $$$$ $$ $$ $ $ $$$$$$$ $$$ $ $$$ $$
FORTRAN II GTNS, RMNS, RPNS ROllTINES
******
******
*$$ $$$$ $ $ $ $$ $ $$$$$$ $ $$ $$$$$ $ $$ $$ $$ $ $$ $$ $ $ $ $$ $$$$ $ $ $ $ $ $ $$ $ $$$ $ $$$$ $ $$ $ $
DS
5
RMNS
TDM
RMNS+8,1,11,
SET RMNS SWI TCH TO FLAG 1

BT

05790
05800
05810
05820
05830
05840
05850
05860
05870
05fl80
05890
05900
05910
05920
05930
05940
05950
05960
05970
05980
05990
06000
06010
06020
06030
06040
06050
06060
06070
06080
06090
06100
06110
06120
06130
06140
06150
06160
06170
061RO

11
43
26
11
21
26
15
17

13
43
11
15
17

26
26
22
24
46
17
46
49
26
11
16
12
25
43
15
17

49
11
49

06705
06188
00000

-..•------ ...

PG/ lI~

01200
000-3:0
00000

06835
00094
000-3:0
00093
05095
06892
00000
e6420
e6601
e9574
00000
OOOEtl
00000

--.--.-~-

..

PAGE

LABEL

06190
06200
06710
06220
06230
06240
06250
06260
06270
06280
06290
06300
06310
06320
06330
06340
06350
06360
06370
06380
06390
06400
06410
06420

06430
06440
06450
06460
06470
064RO

06490
06500
06510
06520
06530
06540
06550
06560
06570
06580
06590
06600
06610
06620
06630
06640
06650
06660
06670
06680
06690
06700

11

0

RGRyRMNS-l

DS
TDM
GTNS SWI TCH Tn 1
RMNS+8,1"
BT
RGR,GTNS-l
OS
5
RPNS
TDM
RMNS+8,0"
SFT RPNS SWI TCH TO 0
RGR,RPNS-l
BT
DS
5
RGR
TF
MOVE IN AlJflRESS OF I
RGRI,*-1,11,
AM
RGR-1,5,10
RGRS,RGR-1,11,
MOVE IN ADDRESS OF S Yf>lflOL
TF
AM
RGR-l,1,10
MM
,4
,1O,
RGRI
oS
,*-5
AM
99
, BGNST
,SET UP STRING ADDRESS
BO
REMGET
, RMNS+8
TF
99
,6 ,PLACE S Yf>lBOL ON STRI~IG
RGRS
OS
RGR-l
B7
,6
R EMGET TF
RGRS,99,611,
TAKE SYMBllL FROt'1 S TR JNG
BNF
RGR-l , RMNS+8, 6,
EX IT IF GTNS
AM
99
,1
,10,
TF
92
,99
SM
92
,4
,10,
TR
92
,99
,611,CLrISF STRING
RGR-1,,6,
B
EX IT
DORG *-3
RGRNUL flD
BRANCH IF RMNS DR GHIS
*+20,RMNS+8"
RGR-1,,6,
B
EX IT IF RPNS
OORG *-3
TFM
RGRS,0,6fl,
MOVE NULL TO SYMBflL
B
RGR-1,,6,
EX IT
OORG *-3
~::. ~:.:: ~~ ~~ ~( ~:~
~:.: :::~
~:( ;:~ }:~
FORTRAN GENERATE TEM PDRAR Y STORAGE kfJIlT I NF
OS
5
GNRP
TFM
SET GI TO ZERO
GI" 8,
TDM
GTSflSW,O
AM
GI,l,lO,
ADD 1 TO G I
BTM
GET ITH SyMBOL
GTNS, *+16"
OSA
GI,GA

sn

GTNS

, ,

,
,*

,

, ,

*

SECOND PASS FORTRAN II

~:.::~;c.}::.**

1966

MNEM OPERANDS AND REMARKS

PG/lN

NOVF'J,RFR,
LABEL

GYES

GTPT
GCNT

GNONE

GPUT

GA

-~-.~----~---~-

.......

~-

PAf;F

0

12

MNEM OPE RANDS AND RFMARKS
CM
fiNE
CM
BE
TF
TFM
SM
BNF
AM
CM
DS
BE
SM
B
DORG
AM
BD
TF
AM
A
TF
TOM
BTM
OSA

GBASE,l0,10
GYES+36
*-3
TMAX,1,10
FllL lC K-24, GT SBSW
GCOW ,ADCOW, ,
GCOW,19,1O,
GCOW,lNG
TCOW ,GCOW"
SS2,1
PUTX,*+16, ,
BTM,FRFAC,GCOW

MM
BD
AM
TOM
BTM
DSA

GCOW,5,10,
GADDl,99
GCO~I,2, 10,
SSl,!
PlJTX,*+16
B,GCOW,BLANK

TF
TF
S

ADCOW,GCDW"
GBASE, TBASE"
GBASE-l, TMAX
GBASE, DOMAX
GPUTA
ERRT,FULMES
*+12
MONCAl
GBASE,TCOW,6
GflASE,4,10
GBASE,10,610
GRASE,3,10
GBASE,FLAGSW,6
GTFIN,GTSBSW
FSW,O
RPNS,*+16
GI,GBASE-1

FULLCK C
BNL
BTM
MNCLOV BV
B7
GPUTA
TF
AM
GFLAG
TFM
SM
TD
BO
TDM
GTJW
BTM
OSA

GAOOI

1961>

/02

B
DORG
AM
B
OS
.. -..

-~----

GA,l01,8,
GNRP+24
TMAx ,,9,
GNONE
GBASF, TRASE
GOIT,0,9
GBASE,7,10
GFREE,GRASE,11,
GCNT,1,10
TMAX
,*

COMPARE Tn FAC
HAVF ANY

BR ANCH

TFI~P

(

101

)

S BEFN r;FNFRATFIl

IF FREE ONF FOliNO

G~IONE

GNRP-l,,6,
*-3
GCOW,l,lO,
GPUT
,*
---- ......

MOVF AOCOW TO GCOH
ADD 19 FOR LEI~r;TH OF

.INSTS

SAVE CONSTANT AOf)RFSS
OlJTPUT STORE

FAC

I

~IS

T

IS GCOW 000 11R FVFN
ADO 2 TO Gcml

RFSERVE SPACE FOR NF.! TFMP
MOVE IN NFXT AVAILAflLE TARLF AODRFSS

0
EXIT
ADD 1 TO GCOW

/03
~--~

..- - - - - - - - - -

,)

IHlIitW!!

.e

tl!

.H#tr¥nst

h**'****9."

SECOND PASS FORTRAN II

*****
lOCTN

C'

06458
06470
06482
06494
06506
06518
06526
06538
06550
06562
0657B
06583
065B8
06590
06601
06605
06606
06618
06630
06642
06654
06656
06656
06668
06680
06682
06682
06694
06705
06706
06714
06714
06726
06738
06750
06762
06774
06776
06776
06788
06800
06812
06R24
06835
06838
06843
06844
06846
06848
06853
06858
06863
06868
06873
06878
06883
06888

ttl[

OP

P/l

11

14
46
24
46
42

09575
06494
06526
06344
09575
05984
09575
06835
07343
06898
00005
00005
00005
06332
00005
00004
06605
06654
02302
06682
00000

26
15
"'2

06673
00007
00000

06605
00000
00000

26
33

06605
00000

49

06699
00004
00005
06656

26
22
11
24
47
42

09575
09574
09575
09575
06776
00000

02303
06838
00093
02303
01100
00000

15
12
33
11
49

0957509575
0957509575
06750
00000
00003
00005
00001
00002
00002
00005
00005
00005
00005
00005
00005
00005
00005

00000
00093
00000

43
44
43
12
49
12
26
15
17

49

00091
0957506892
06892
00091
00094
09575
00001
96578
96846
94222
96835
00000

09101
01200
06605
01100
00000

00000

OOOB
00000

NOVEMBER,

PG/lN

lABEL

MNEM OPERANDS AND REMARKS

06710
06720
06730
06740
06750
06760
06770
06780
06790
06800
06810

GFREE

AM
BD
BNF

GTST

flO

06820
06830
06840
06850
06860
06870
06880
06890
06900
06910
06920
06930
06940
06950
06960
06970
06980
06990
07000
07010
07020
07030
07040
07050
07060
07070
07080
07090
07100
07110
07120
07130
07140
07150
07160
07170
07180
07190
07200
07210
07220
07230
07240
07250

B
05
DC
GTCl
CM
BE
C
BH
BB
DORG
GClEAR TF
TOM
BB
OORG
GTFlCl TF
CF
GCOW
OS
B
OORG
GT5Cl
TF
S
AM
C
BNH
BB
OORG
TOM
SM
CF
AM
B
TCOW
OS
TMAX
DC
ADCOW
DC
DC
BTM
DC
B
DC
IH
OS
01
oS
02
OS
OJ
oS
03
OS
OK
OS
04
OS
Tl
OS

NGFRE

SM
B7
SM
TF
TDM
BTM
05A

GI

GBASE, 1, 10
GTST,GBASE,ll
NGFRE, GTSBSW
GFlAG+12,GTSBSW
GBASE, 1, 10
GTPT
GBASE,4,10
TCOW,GBASE,i1,
552,1
PUTX,*+16"
BTM,FRFAC,TCOW

1966

PAGE

13

MOVE ADDRESS OF GT TO TCOW
OUTPUT STORE FAC

INST

GFlAG
5,*
4,1000
GTCl-l,101,8
*+36
TBA5E-l,GTCl-l
GTFlCl
*-9
*+17,GTCl-1
7
, ,0
*-9
*+17, GTCl-1
4
5,*
GCl EAR
*-3
GBASE,TBA5E
GBA5E-1,TMAX
GBA5E,3,10
GBA5E,TBASE
*+14
*-9
GBASE,,6
GBASE,3,10
GBASE,,6
GBASE,l3,l0
GTSCl+36
,*
3,0
5,0
1,@
2,17
2,49
5
5
5
5
5
5
5
5

/04

0
~:.::~:::***

LOCTN

SECOND PASS FORTRAN II
OP

06891
06892
06897
06898
06910
06922
06934
06946
06958
06970
06982
06994
07006
07018
07030
07042
07054
07066

0

P/L

Q

00003
00001

26
11
26
11
31
26
11
24
47
24
47
24
47
43
49

00005
08636
06897
08641
06897
08291
08646
06897
08304
07470
07365
07610
08312
07770
07074
07394

07074
07086
07098
07110
07122
07134
07146
07158
07170
07182
07193
07194
07206
07218
07230
07242
07254
07266
07278
07290
07302
07314
07326
07334
07342
07343
07344
07345
07346
07354
07365
07366
07374
07386

49
32
49

08322
0832i!
02262
07134
07334
08322
02262
07182
07194
0832i!
00000
08322
0832207354
08322
0832i!
07374
07345
08312
06843
07365
0831+
0689+
0832200000
00000
00000
00000
07134
0832i!
00000
07230
0832i!
07266

07394
07406

21
22

08322
08312

11
26
24
47
43
12
24
47
43
33
11
26
43
11
26
43
16
12
21
26
21
49
32

49
32

0689'7
00095
0689'1
00095
08647
0689+
00092
08310
01200
06843
01200
08293
01300
08304

oooe2
0863~
0864~

01100
07343
oooel
0864i
01100
07342
00000
00096
0864i07344
oooe5
0864~

07345
09000
000i-2
08293
06843
08293
00000

'19999

00000

08293
08293

PG/LN
07260
07270
072110
07290
07300
07310
07320
07330
07340
07350
07360
07370
07380
07390
07400
07410
07420
07430
07440
07450
07460
07470
07480
07490
07500
07510
07520
07530
07540
07550
07560
07570
07580
07590
07600
07610
07620
07630
07040
07650
07660
07670
07680
07690
07700
07710
07720
07730
07740
07750
07760
07770
07780
07790
07800
07810
07820

NOVEMBER,
LABEL

19A6

PAGE

14

MNEM OPERANDS AND REMARKS

L
OS
GTSBSW OSC
*.:~****

PUTX

PUTXA
PUTXB

PUHST
~:::***~:C~;:

PUT INS

PlJTXC

PUTGT

PUTXO

PUTXE
PUTXF

FlG2
SSl
SS2
SS3
SS4
FlG3
5AVCOW
FlG4
******
PUTCAO

3
1,0
DISC OUTPUT ROUTINES FOR OBJECT PROGRAM·
OS
5
TF
PUTl
.PUTX-l
,11
AM
PlJTX-l
,5
,10
, PUTX-1
TF
PUT2
,11
AM
PUT X-I
,5
,10
TR
TYPET
, TYPEX
, PlJTX-l
PUT3
TF
,11
AM
PUTX-l
,2
,10
C
CODET
,LSTYPE
BNE
PUTOIF
SAVCOW
, AOCOW
C
BNE
OUTSEQ
BAL
,SlNG
C
Ell
PUTNXT
BD
PUT INS
,COOET
B7
PUT CAD
PLACE INSTRUCT IONS IN OUTPUT BUFFER
AM
NEXT
,2
,10
NEXT
,PUTl
TF
,611
,pun
lOCOM
C
,11
BNH
*+24
BO
FlG2
, SS2
SM
NEXT
,1
,10
lOCOM
C
• PlJT2
,11
BNH
*+24
BO
*+24
,SS 1
NFXT
CF
,6
DS
,*
AM
NEXT
,6
.10
, PUT2
TF
NEXT
.611
BO
, SS3
FlG3
AM
NEXT
,5
.10
TF
NEXT
,PUT3
,611
, SS4
BD
FlG4
TFM
SS4
,0
,8
SM
BAl
,10
.12
A
ADCOW
, SlNG
, AoCOW
TF
SAVCOW
A
lNGAO
, SlNG
,6
PUTX-l
,6
B7
SF
NEXT
.A
OS
.*-3
OS
.*-2
OS
.*-1
OS
,*
B7
PllTxC
SF
NEXT
,99999
,A7
OS
.*
PllTXD
B7
NEXT
,6
SF
B7
PllTXE
PLAC E OSA AOORESSES IN OUTPUT BlIFFFR
NFXT
, SlNG
BAl
,SlNG

/(}5

_IIMIII.!IIII• • •

~~i

--

LOCTN

OP

P/L

Q

07418
07430
07442
07450
07462

26
43
49
16
49

0832.z!
07450
07290
07365
07314

0864e
08301

07470
07482
07494
07506
07518
07530
07542
07554
07566
07578

26
24
47
24
47

08310
07365
07610
08312
07770
08322

07590

1 ?

08304
06843
01200
08295
01300
000&1
08291
000&2
000&0
08322
000e3

07602

49

07610
07622
07634
07646
07658
07670
07682
07693
07694
07706
07718
07730
07742
07750
07762

24
47
14
46
11
12
15
11
12
43
26
49
26
49

07770
07782
07794
07806
07818
07830
07842
07854
07866

11
25
14
46
11
26
12
16
49

07874
07885
07886
07898
07910
07922
07934
07946
07958
07970
07982
07994

15

11
25

0832~

11

08322

16
26

0832~

16
49
11
16
16
16
26
12
14
46

::~;:(:::: ~~*

~

08317
08312
07054
08312
07770
08312
07694
08322
08312
0832~

00001
08322
08312
07750
0832~

08299
01300
000~5

01200
00081
00081
00000
000e5
oooe5
08301
06843
0864-1:

07530
08322
0832~

08631
07874
08631
08322
08322
08312
07694
08626
00001
00565
00532
08281
08631
08322
07964
08626
07964
07964
07958

oooei
08290
e8551
01200
000'f5
08631
oooei
000~5

00000
e7909
e8268
oooe3
e8326
e8325
e8626
09352
000~2

88326
01100

,-"'~

....

................

NOVEMBER,
LABFL

07830
07840
07B50
07860
07B70
07880
******
07890
PUTDIF
07900
07910
07920
07930
07940
PUTXG
07950
07960
07970
07980
07990
08000
08010
"*****
08020
OUTS EO
08030
08040
08050
08060,
08070
08080
08090
08100
PUTXH
08110
08120
PUTXJ
08130
08140
08150
PUTTA
08160
08170
~,****~~
08180
PUTNXT
08190
08200
08210
08220
08230
08240
08250
PUTX I
08260
~~***::,::.:
08270
PUTPCH
08280
08290
08300
08310
08320
08330
08340
08350
08360
08370
08380
08390

q9999

-...,-.....

~ .. ,.-~:.....;;..-.- ..... ~""~-- ....

II
PG/LN

07530
0832~

_ •• ..<._.- .. _.

OP

08006
08018
08030
08042
08054
08066
08078
08090
08102
08114
Ofl126
08138
08150
08162
08174
08186
08198
08210
082:>2
08234
{J8246
08253
08255
08257
08259
08261
08266
08267
08268
08274
08275
08276
08281
08284
08289
08290
08291
08293
08;>95
08297
08299
08304
08305
08310
08312
08317
08322
08325
08326
08376
08401
08451
08476
08526
08551
08601
08626

49
26
33
24
46
31
26
49
26
31
49
26
11
26
11
26
31
49
31
26
49

... -

P/L

PG/LN

NEXT
,PUT3
,CODET-3
*+20
PUTXF
SAVCDW
,99999
PUTXF+24
THIS TYPE NOT EQUAL TO LAST
TF
LSTYPE
,CODET
SAVCOW
,ADCOW
C
BNE
OUTSEQ
BAL
C
,SSLNG
PUTNXT
BL
AM
,-I
NEXT
NEXT
, TYP ET
TO
AM
NEXT
,2
TFM
NEXT
,0
TF
LNGAD
,NEXT
SM
BAL
,3
B7
PUTEST
OUT OF SE~UENCE
BAL
,SOLNG
C
BL
PUTNXT
BAL
,75
CM
BE
PUTXH
AM
NEXT
,1
SM
BAL
,1
TDM
NEXT
DC
1,@,*
AM
NI'XT
,5
SM
BAL
,5
BD
PUTTA
,cnDET-3
,ADC()W
TF
NEXT
B7
PUTXG
TF
NEXT
, PUT2
87
PUTXG
~IEXT CARD BUFFER Tn BF IISE'D
AM
NF XT
,1
TO
NEXT
, FL GRM
01
PR EflUF
,BIIF4
PlITPCH
BE
AM
PREflUF
,75
TF
~IEXT
,PRFBUF
SM
NEXT
,1
TFM
,75
BAL
fl7
PlITXH
OUT PUT BUFF ER LOAD TO DI SC
TOM
BUF4+75
DGM
TFM
JORT
,*+23
B
JOPT
,PUTXX
AM
PUTX Z
,3
TFM
PRFflUF
, BUF 1
T FM
NEXT
,BUF 1-1
TFM
"+18
,BlIF4+75
RIIF4+75
TF
,N13089
SM
~'-6
,12
CM
, BUF1
*-18
BH
':'-36
TF
BD
B7
TFM
B7

07854
00000
08041
08011'
08041
00000
0804-1:
02262
08114
01100
08662
08291
06897
08017
06958
00000
OS017
OS101
{)8677
08291
08078
00000
08641
08131'
08137
OOOS5
08646
08131'
08137
OOOSI
06897
08137
08291
08692
07610
00000
08291
08253
06897
08221
06958
00001
00002
00002
00002
00002
00005
00001
00002
00005
118276
00001
00001
00005
00003
00005
S8326
00001
00001
00002
00002
00002
00002
00005
00001
00005
00002
00005
e8326
00005
00001 X2
00050
00025
00050
00025
00050
00025
00050
00025
00001

08400
OH410
OH420
Ofl430
08440
08450
08460
08470
0848{)
08490
08500
08510
08520
08530
08540
08550
08560
08570
08580
08590
oa600
08610
08620
08630
08640
08650
08660
08670
08680
08690
08700
08710
08720
08730
08740
08750
08760
08770
08780
08790
08800
08810
08820
08830
08840
08850
08860
08870
08880
08890
08900
08910
08920
08930
08940
08950
08960
..

-.~----

MNEM [JPERANDS

B
TF
CF
C
BH
TR
PUTCB
TF
B
PUTD
TF
-PUTCA
TR
B
PliTA
TF
AM
TF
AM
TF
TR
B
PUTRM
TR
TF
B7
TYPERM DSC
DC
DC
DC
DC
DC
DC
PUTXX
DSC
DSA
DC
PIIT X Y DSC
PlITXZ
DC
DC
DSA
FLGRM
DC
TYPET
DS
SLNG
OS
SSLNG
OS
NLNG
DS
SOLNG
DS
CODET
DS
DS
LSTYPE DC
BAL
DC
LNGAD
OS
NEXT
DSA
DAS
BUFI
OSC
OSC
BUF2
OSC
DSC
BUF3
OSC
DSC
BUF4
DSC
DSC
GRMK
OGM
PUTC

..---.- .. ----

PAGE

....... ..
~

..

.,.,~"'.~-= .!.!...::....:......:...;..

15

,611

C
,10
,6
,10
,610
.,10

,10
,10
,10
,6
,10
,10
,6
,611

,10
,6

,10
,10
,10

,7
,10

,10

/06

NlIVE~illfR

LABEL

1966

,"".~

MNEM OPERANDS AND REMARKS

SEcOND PASS FORTJ2399
00000

15

07343

00001

11372

44

11399

02840

11384

44

11432

02227

11396
11412
11417
11422
11424
11432

17

06898
00005
00005
00005
02628

H412
94493
<34032
e2399
00000

06898
00005
00005
00005
02628

r1448
94493
94222
92399
00000

25
44
49

04276
00005
00005
07343
06898
00005
00005
00005
09322
11072
11060

H484
92372
93786
00001
.,,1518
94493
<34227
93786
04673
09325
00000

14
47
43
49

02399
11910
11606
11758

09101
01200
05095
00000

15
17

07343
04276
00005
00005
11663
04673
11688

00001
.,,1634
<32372
<39490
05095
00090
01200

11324
11340
11345
11350
11352
11360
11360

11432
11448
11453
11458
11460
11468
11468
11484
11489
11490
11502
11518
11523
11528
11530
11542
11554
11562
11562,
11574
11586
11598
11606
11606
11618
11634
11639
11640
11652
11664

);t ,;c;:t ~~:(c~:,);c>:~:(:

*

;.,'::;~:(c

BNF

*

~c**

*** ** **:(:

*+18, TRCSW ,6

):~

y,c* ~c~c *

* ,~}:c*);c**~:):, ':' ~:;::;':: ;:c *:::c;:c ,;c

BR ANCH ARClI)Nfl

'"

49
17

BNF

49

17

49
17

15
17

25
14
46

IV IDE

:c ;!c ;:c ~c ;:c ,:c ,:~ ~:::(c ;:c ;:c ':c ;:: ;!c ,!c;~ ;:c ,;; ;:: ::: ':c

IF Tl

MNEM OPERANDS AND REMAR KS
AOCDW
PUTA
SXF,AOCOW

,4
, *+16

13910
13920
13930

SM
8TM
OSA

,10

13940
13950
13960
13970
13980
13990
14000
14010
14020
14030
14040
14050
14060
14070
14080
14090
14100
14110
14120
14130
14140
14150
14160
14170
14180
14190
14200
14210
14220
14230
14240
14250
14260
14270
14280
14290
14300
14310
14320
14330
14340
14350
14360
14370
143BO
14390
14400
14410
14420
14430
14440
14450
14460

TBASE-l, TMAX
0,9
TMAX,
CLEAR
*-3
OUTPUT FUNCT ION LINKAGE OR REMOVE PARENTHES IS
N40002
,10
SM
,1
GTNS
BTM
,*+16
DSA
N40002
DSA
SL
CM
SL,
101,8, FAC
N60020
BL
SL,
154,8 , AR I TH STATEMENT CALL
CM
BH
N60020
B
CODE3B
DORG *-3
SM
,I
,10
I
RMNS
BTM
, *+16
OSA
I
OSA
SL
BTM
RMNS
, *+16
DSA
I
DSA
SR
BTM
RMNS
, *+16
OSA
I
DSA
SR
CM
SR
,101
,9
BE
N60021
, FSW
BNF
N60022
BTM
GNRP
, *+12
SRFCT
BTM
, *+16
OSA
SR
OSA
SR
SS2
,I
TOM
, FXORFL
FLAGSW
TO
CODE3A
B
DDRG *-3
TF
SR
,FACAD
,17
TFM
OPX
,10
OUTPUT LIBRARY FUNCTION LI NKAGE
SS3
TOM
tl
N40002
,TBASE
TF
, SL
N40002-1
TF
TOM
N40002
,9
,ll
N40002
,N40002
TF
BTM
PUT X
,*+16
OSA
DPX
OSA
N40002
OSA
SR
BTM
RPNS
, *+16
DSA
I
OSA
FAC
,I
,11
FSW
TOM
EX iT
B
S
TFM
B
OORG

******
CODE3P

N60020

N60022

N60021
******
CODE3A

117

••

·"~·~

_ _ _ _ _ "~~""~_MM._."_.,,,.U

'"_~_'''''''''

",

,_"._.,.~.~

..... ~_

.~

.................,.. ~ ....,-."." ... ~.

=:. ;.:.;.:...:;;._

....:..::_!.....

,·".·.~~~=::=:·:_-:.:c

i'

,Iii

SECOND PASS FORTRAN II

*****
LOCTN
12698
12698
12710
12722
12734
12746
12758
12770
12786
12791
12792
12804
12820
12825
12826
12838
12846
12846
12858
12874
12879
12880
12896
12901
12902
12918
12923
12924
12936
12948
12960
12972
12984
12996
13012
13017
13018
13030
13042
13054
13070
13075
130RO
13082
13094
13106
13122
13127
13128
13144
13149
13150
13166
13171
13172
13184

~;:: ~;t t,~ t,~

OP

P/L

Q

14
46
14
46
14
46

02399
12846
02399
12846
02399
10098
05510
00005
00005
09485
05510
00005
00005
09485
03206

OEH54
01200
09153
01200
OEH07
01200

17
11
17

12
49

12

17
17

17

44
17
14
46
15
16
17

26
11
25
17

43
15

17
17

17
44
32

*

lllCTN
13196
13212
13214
13226
13238
13254

13436
13441
13442
13458
13463
13464
13476
13488
13500
13512
13528
13533
13534
13550
13555
13560
13562
13570
13570
13582
13594
13606
13622
13627
13628
13644
13649

~2820

99485
92372
00091
00000

00092
i-2874
99485
92399
i-2896
99485
99505
i-2918
99485
92372
09314
-i2948
09154
01200
00001
OOO~ 1
~3012

92399
e3781
06843
OOOH
04673
-i3070
e6846
93781
e3791
05055
00000
B122
99485
92399
~3144

99485
92372
-i3166
92399
e2399
09597
00000

P/l

17

08018
00005
02372
13268
05510
00005
00005
13094

-i3212
92399
09104
01200
1-3254
99485
92372
00000

15
49

03842
13354
05570
00005
00005
09314
03206

96843
09320
-i330R
e9485
99469
OOOO-i
00000

15
49

05055
02628

00000
00000

26

03781
03781
05540
00005
00005
03781
02628
13292

09485
00091
-i3394
93781
93781
09132
01200
00000

00005
00005
05540
00005
00005
09505
02372
13570
04007
03888
00005
00005
06898
00005
00005
00005
03206

e9485
e9505
-i345R
e9485
92372
09385
09101
01200
05095
H528
99505
93791
H550
96846
93791
99341
00000

13594
05830
07343
04276
00005
00005
06898
00005
00005

09314
-i3594
00001
H622
92372
93791
H644
94493
94227

14
46
17

49
17
43
17

11
17

14
46
49

17
26
14
47
25
17

17

49
44

17
15
17

17

1966

LABEL

14470
14480
14490
14500
14510
14520
14530
14540
14550
14560
14570
14580
14590
14600
14610
14620
14630
14640
14650
14660
14670
14680
14690
14700
14710
14720
14730
14740
14750
14760
14770
14780
14790
14800
14810
14820
14830
14840
14R50
14860
14870
14880
14890
14900
14910
14920
14930
14940
14950
14960
14970
149RO
14990
15000
15010
15020
15030

OORG *-3
SL,
154,8,ARITH STATEMENT CALL
COOE3B CM
8E
COOE3C
SL,
CM
153,8,FUNCTION CALL
BE
COOE3C
N60023 CM
SL,
107,8, IF
BE
COOE7
,~(+16
BTM
RMNS
oSA
I
OSA
SR
AM
,1
I
,10
BTM
RMNS
,*+16
oSA
I
DSA
SR
SM
I
,1
,10
B
EX IT
oORG *-3
ARITH STATEMENT CALL OR FUNCTION CALL OPERATOR
COoE3C SM
,2
,10
I
COOE3Y BTM
RMNS
,*+16
OSA
I
oSA
SL
BTM
RMNS
, *+16
oSA
I
oSA
LV
BTM
RMNS
,*+16
oSA
I
oSA
SR
BNF
N60026
,FSW
BTM
GNRP
,~'+12
N60026 C~I
LV,
154,8,ARITH STATEME~IT CALL
BE
N60027
TOM
,1
SS3
N60027 TFM
SS2
,11
,10
BTM
SRFCT
,*+16
DSA
SL
DSA
N40001
TF
N40003
, MCOW
AM
N40003
,11
,10
TO
FLAGSW
,FXORFl
,,~+ 16
BTM
PlJTX
OSA
BTM
oSA
N40001
DSA
N40003
BD
CODE3 Z
,CAllX
COGE3D TOM
FPSW
,0
BTM
RMNS
,*+16
GSA
I
GSA
Sl
RTM
GTNS
,*+16
oSA
I
DSA
SR
RTM
SRFCT
,'H16
GSA
Sl
DSA
Sl
BNF
,FPSW
':'+24
SF
Sl

SECUND PASS FORTRAN II
OP

132~9

13260
13268
1326R
132HO
13292
13308
13313
13314
13326
13334
13334
13346
13354
13354
13366
13378
13394
13399
13400
13412
13424
13432

09485
05510
00005
00005
05510
00005
00005
05510
00005
00005
12948
05830
09505
12984
07344
07343
04276
00005
00005
03791
03791
05095
06898
00005
00005
00005
13334
09597
05510
00005
00005
05540
00005
00005
04276
00005
00005
13196
02399

~2786

99485
92372
00091

NOVEMBER,

PAGE

27

MNEM OPERANDS AND REMARKS

PG/LN

NLJV~MBEK,

MNE,"i flPERANoS

1966

PG/lN

lABEL

15040
15050
15060
15070
150RO
15090
15100
15110
15120
15130
15140
15150
15160
15170
15180
15190
15200
15210
15220
15230
15240
15250
15260
15270

BTM
DSA
COD E3 E CM
8E
BHI
DSA
oSA
R
oflRG
N60032 BTM
COoE3X Bo
BTM
oSA
oSA
TOM
B
oORG
CODE3Z TDM
B
DORG
CET
TF
AM
BTM
DSA

15280
15290
15300
15310
15320
15330
15340
15350
1536lJ
15370
153RO
15390
15400
15410
15420
15430

,8
CI"I
N40001
,132
BE
CLEAR
B
COoF3X+ 12
oORG *-3
*~!~***~:e
OUT PUT REVERSE SIGN INSTRUCTIONS FOR IJNARY !'-IINliS
CODE4P OSA
I
DSA
lV
BTM
GTNS
,"+16
DSA
I
DSA
SR
TF
LV
,RVSN
SR,
CM
101,R,FAC
BNE
N60034
FX
,FlAGSW
TO
CODE4A BTM
OPSR
,*+16
DSA
lV,N40003

15440
15450
15460
15470
15480
15490
15500
15510
15520
15530
15540
15550
15560
15570
15580

BTM
OSA
DSA
OSA
B
OORG
N60034 BNF
BTM
N60035 TOM
BTM
OSA
oSA
BTM
DSA
oSA

PIJTC
SL
SR,
N60032
RMNS
I
SR
CfloF3o

C

//8

PAGe

0

2B

AND REMARKS
,'"+16
104,8,RIGHT PARFN
,*+16

~'-3

ADJUST
CET

,ADcml
,CAL LS~I
,':'+16

RP~IS

I
FAC
FSW
,1
EX IT
*-3
CAllX
,0
CLEAR
*-3
N40001
,I
N40001
,1
GTNS
,*+16
N40001,N4Q001

PUTX
BTM
N40003
ZERO
EX IT
*-3
N60035
GNRP
SS2
SRFCT
SR
N40003
PUTX
OPX
TOFAC

----.--~-----------~

,11

,10

,*+16

0

,FSW
,*+12
,1
, ~'+16

,*+16

//9
....----

__._---- -- ...---..

-"~

,.~

....

-,~"~-~-

..
SECOND PASS FORTRAN II

*****
OP
17

17
17
15
17
15
44
12
17
49
17
12
14
47
25
15
17

17
17
44
17
43
16
~·9

16
17

17
15
25
43
49
17
12
32
49

':c ;:~ ~~ ==!'';c

P/L
~6868

00005
08712
00005
00005
08102
00005
08018
00005
02265
08222
00005
09599
15044
09485
05510
00005
00005
12008

00001
i4976
i5497
00000
09315
00091
i5030
99485
99481
00000

05540
00005
00005
09485
09481
15188
05025
09325
06898
00005
00005
00005
05570
00005
00005
05830
15212
05830
15244
04493
15256

i5060
99485
99481
00091
09133
01200
05035
OOOOi
i5142
99333
94232
99357
i5170
fl9485
99469
93206
09314
t5212
09320
0000'7
00000

04493
06898
00005
00005
00005
05570
00005
00005
09314
05095
15350
03206
05830
09575
0957".
03206

000i7
i5272
94493
94227
99357
i5300
99485
99469
OOOOi
05035
09320

1-4906
~6873

PGILN

LABEL

MNEM OPERANDS AND REMARKS

16610
16620
16630

XX5

USA
BTM
DSA

16640
16650
16660
16670
16680
16690
16700
16710
16720
16730
16740
16750

BTM
DSA
BTM
OSA
COSSSI TDM
COSIV
BTM
OSA
TOM
BNF
SM
BTM
OSA

OJ
CANDS
03,OK

H928
~6873

1-4946
~6878

t5362
00091
00000

16760
16770
16780
16790

PUTO
D3
PUTC
OK
UFSTR+2
PlJTRM
ZRM
SKIPSW
QZP
I
RMNS
I,ST

,I
,*+16

,a
,101

,I

,10

, *+16

B
DORG
BTM
OSA

C014B
*-3
GTNS
I, ST

16800
16810
16820
16830
16840
16850
168(,0

SM
CM
8NE
TO
TOM
8TM
OSA

,I
I
ST
,133
COS1T
RFLAG
,RXFLAG
RSW
,I
PUTX
,'~+16
TF, FACAD, N 13092

16870
16880

BTM
f)SA

RPNS
I, FAC

BTM
BNF
BTM
BD
TFM
B
f)ORG
TFM
BTM
USA

GNRP
,EX IT
*+24
,FSW
GNRP
,"+12
*+32
,CALLSW
OPX
,27
*+20
t,-3
OPX
,17
PlJTX
,*+16
OPX, TOFAC ,N13092

16990
17000

BTM
DSA

RPNS
I, FAC

17010
17020
17030
17040
17050
17060
17070
17080

TO~I

TO
BD
B7
BTM
SM
SF
B7

FSW
FLAGSW
"+20
EX IT
GNRP
GflASF.
GflASE
EX IT

16890
16900
16910
16920
16930
16940
16950
16%0
16970
16980

ClZP

CDS1 T

CI

,*+16

,'~+16

,10
,8

,11

,"+1(,

,10
,10

,':'+16
,11

,1

,RXFLAG
,CALLSW
, *+12
,1

,10
,6

17

43
49
44
15
44
16
49
44
22
44
33
49
43
15
17

.....

00099
09597
02377
06883
15448
0000'1
00001
i5678
B9337
96858
96891
09597
OOD~l

15577
00001
t5754
1:-5649
99357

A
TF
BNF
SF
OS
TDM
BTM
DSA

8NF
TFM
BD
TDM
BTM
DSA

PATSB(J,FPSW
flPJ
,21
*+24, S PCOM
SS2,1
PlJTX,*+16
OPJ ,N13092, SX

flU

OPJ

32

17380
17390
17400
1741u
17420
17430

ZPT

17<,40
17450
17460
17470
17480
17490
17.500
17510
17520
17530
17540
17550
17560
17570
175BO
17590

BD
B7
PATSBCl BNF
TOM
BNF
TFM
B7
JAR~If)T BNF
D4LNEG 5
BNF
CF
B7
ITliSfl
BD
TOM
PPJA
BTM
DSA

,K
,0
,L
,99

,1
,*+16

,1O

~2377

09597
15448
00001
02384
000i1
02384
02377
15448
00000
15577
00001
i5938
99335
99357
96883

PPJA
JARNDT
*+24,FXIOSW
554,1
JARNOT ,SY
OPJ
ZPT
ITUSO,SY
D4, SX
PPJA ,FX WS.I
D4
PPJA
*+24,SPCOM
552,1
PlJTX
AM,N13092,D4

~~-~-.---.~-------~----

,FP SW

,11

0

,10

, *+16

123
..

.

~

44
1<'>
43
15

02252
00000
06891
00000

PAGF

,RXFLAG
, FP2

~

15
17

05035
0229fl

FXlOSW,O
'H20,RXFLAG
PATSB2
*+24.101
FXIOSW,-l
, ~'-1
CDSIZ,SX
XX4,FXIOS\-1
FPSW,-l
SX
2,01,'"
"'+32
L
Cf)SlS
L
SS2
04
95
,*
D4
*+30,FPSW
f)4,SX
SY,D4
~'+24 ,FX InS\-!
L ,21,10
,*
SSl
PIITX
MM,DI,L

-

26
43
21
26
44
32

02377
15448
00001:00000

CDS1FP TDM
80
B7
BNF
TDr'1
FX IOS.1 OS
PATSB2 BNF
RD
TOM
CF
ZRM
DC
COS1 Z BD
TF
B7
TF
COS1S
TDfVl
M
SF
SPCOM
OS
TF

-

43
26
49
26
15
23
32

09315
0000-3;

17090
17100
17110
17120
17130
17140
17150
17160
17170
17180
17190
17200
17210
17220
1 7? 30
17240
17250
1721>0
17270
17280
17290
17300
17310
17320
17330
17340
17350
17360
17370

-

44
43
15
33

00000
05035

-

1544H
15426
15450
15450
15448
00000
15498
14672
09597
02377
00002
15530
06891
15542
06891
07343
06883
00095
00000
06883
15626
06883
02384
15650
06891
00000
07342
06898
00005
00005
00005
15786
15649
15738
07343
06898
00005
00005
00D05
15922
15842
1581D
07345
15842
15649
15714
15898
06883
15922
06883
15922
15922
07343
06898
DOO05
00005
DOO05

, 19h6

Q

MNEM flPE RANDS AND REMARKS

r

15
43
49
44
15

LAREL

-

15394
15406
15418
15426
1543H
1544H
15450
15462
15474
154fl6
15497
15498
15510
15522
15530
15542
15554
15566
15577
15578
1':>590
15602
15614
15626
15638
15649
15650
15662
15678
15083
15688
15690
15702
15714
15726
15738
15754
15759
15764
15766
15778
15786
1579H
15B10
15822
15834
15842
15854
15866
15878
1:'890
15898
15910
15922
15938
15943
15948

122

N{JVFr~BF.R

PG/LN

-

P/L

31

,*+16

-

OP

PAGE

,*+16

SECOND PASS FOR TRAN II

LOCTN

1966

~6878

-

14888
14890
14906
14911
14912
14928
14930
14946
14948
14960
14976
14978
14990
15002
15014
15030
15035
15036
15044
15044
15060
15065
15066
15078
15090
15102
15114
15126
15142
15147
15152
15154
15170
15175
15176
151 fl8
15200
15212
15224
15236
15244
15244
15256
15272
15277
152H2
15284
15300
15305
15306
15318
15330
15342
153:'0
15362
15374
153Hh

-

LOCTN

NOVFMBER,

-

-------_.

__

Ittt

It:1 ,

t tNt" tlritz ••

**

H

Mit. t

*tdeft

•

0,

OP

P/l

15950
15966
15971
15976
15978
16002
16002
16016
16028
16040
16052
16064
16076
16016
10000

17

49

06898
00005
00005
00005
14978

34
25
25
38
36
49

00014
16002
07885
08626
16002
00012
00012

10001
10002
10014
10026
10038
10050
10062
10074
10086
10098
10110
10122
10134
10146
10158
10170
10182
10194
10206
10218
10230
10242
10254
10266
10278
10290
10302
10314
10326
10338
10350

0

PG/lN
i:5966
99329
99364
99344

00701
02323
02323
00702
00500

16
17
17
48
16
17
16
17
16
17
16
17

00002
02359
02324
02359
02324
02359
02324
05510
00000
09515
11236
02359
02324
09485
12164
02359
02324
02359
02324
02359
02324
05510
00000
02359
02324
02359
02324
02359
02324
02359
02324

10362
10374

43
49

14678
14690

02290
00000

10386
10398
10410
10422

16
17
16
17

02359
02324
02359
02324

99188

16

17
16
17
16
17
17
48
14
49
16

17
11
49
16
17
16

17

10438

00005

99116
~0002

99116
~0026

99116
~0050
~0438

00000
08130
00000
89116
~0122

00091
00000
99116
i:0170
99164
i:0194
99116
i:0218
i:2874
00000
89116
~0266

99116
~0290

89116
~0314

89188
~033H

~0386

89164
~0410

99485

SEC OND PASS FORTRAN
LOCTN
10443
10444
10460
104h5
10466
10482
104H7

0

NOVEMBER,

SECOND PASS FORTRAN II

*****
lOCTN

OP

17

17

PI L
99505
i:0460
99485
92372
i:0482
99485
B2377

10"flll
10500

14
47

09505
10684

08105
01200

10512
10524
10532

43
49
12

10532
10544
06843

02290

10544
10556
10572
10577
10578
10590
10h02
10618
10h23
10h24
10636
10652
10657
106h2
10664
10676
10684
10684
10696
1(J70fl
10720
10732
10744
10752
10752
10764
10776
10792
10797
1079fl
10810
10822
10fl34
10846
10858
10870
108A1

15
17

00001

12
49

09599
04276
00005
00005
09599
10624
11()96
00005
00005
07342
06898
00005
00005
00005
06843
0262!J

92372
96843
00001
i:0652
96848
i:0881
99344
000e4
00000

14
4h
14
47
16
49

09505
02628
02377
10752
09490
10882

09127
01200
08132
01200
90000
00000

In

09491.J
10828
05510
00005
00005
02377
10870
09486
10828
10828
10776
09486
00000

BOOOO
9948h
i:0792
99485
92377
oe132
01200
02377

15
44
17

15
17

16
17

14
46
25
11
14
47
32

17600
17610

17620
17630
17640
17650
17660
17670
17680
17690
17700
17710
17720
17730
17740
17750
17760
17770
17780
17790
17800
17810
17820
17fl30
17840
17850
17860
17870
17A80
17890
17900
17910
17920
17930
17940
17950
17960
17970
179AO
17990
18000
18010
1A020
18030
1H035
18040
18050
18055
180hO
18070
18080
18090
18100
18110

000'1:-2

~0572

92372
~0881

00000
05085
~0618

OOO.H
99491
01300
00000

10882

14

09505

oe126

10894
1090h

43
49

10914
10926

02290

XOOX
XYYX

******
XOOE1
XODE3
XODE4
XOf)E6
XOf)F7
XODE8
XOOE9
XOOE12
XOOfl4
XODE15
XODE 1 7
XODESS
X OS SAB
XD12B
XCTl

18290
18300
18310
18320
18330
18340
18350
18360
18370
18380
18390
18400
18410
18420
18430
18440
18450
18460
18470
18480
18490
18500
18510
18520
18530
18540
18550
18560
18570
18571
18573
18575

PAGE

33

BTM
DSA

PUTX
,*+16
SF,N13133,BlANK

B7
DORG
DSC
34
TD
TD
38
TRA

CDS1V+18
16002
14,01780013602400
xoox ,701
PUT PC H+ 11, UGRMK
GRMK ,UGRMK
XOOX,702

TCD
XYYX
DORG 10000
SECONDARY liNKAGE FOR BLOCK
DC
2,2
TFM
FMON+35
, BlK1
BTM
FMON
,COOEl
TFM
FMON+35
,BlKI
BTM
FMON
,COOE3
TFM
FMON+35
, BlKI
BTM
FMON
,COOE4
fHM
RMNS
,CODE6P
H
CM
RV
,130
B
CODF7P
TFM
FMON+35
, BlKl
8TM- FMON
,CODE8
AM
I
,1
B
CODE 9P
TFM
FMON+35
, BlKl
8TM
FMON
,CODE12
TFM
FMON+35
,BlK3
BTM
FMO~I
,COOF14
TFM
FMON+35
,BlKl
BTM
FMON
,CODE15
BTM
RMNS
,CD17P
H
TFM
FMON+35
, BLKI
BTM
FMON
, CODESS
TFM
FMON+35
,BlKl
BTM
FMON
, CDSSAB
TFM
FMON+35
,BLKI
BTM
FMON
,CD12B
TFM
FMON+35
,BlK4
8TM
FMO~I
, FCTl

,8

,10

**** ***** **** ** *** *** *** **** *",c **T,C ** * T,O'p~** ~>:.;;:~ ** t,c * ';C;* ** 1,(* * t,c * ** 1,0',.:: * ~~ t,o:C ,;::~: *~~-.:~
1,(

BD
B

XCTRT, UFSTR+27
XCTRT+12

:>:' • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • . • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

XOJ
TFM
BTM
XDCA lL TFM
BTM

FMON+35
FMON
FMON+35
FMON
*~:::~c*t,~~:=
OUTPUTS CODING
CODE6P OSA
I

,BlK4
, EOJ
, BLK3
,CDCALL
FOR GO TO,

STOP,

PAUSF,

AND ENO

WJVF~IBFR

LABEL

If.!l20
18130
18140
18150
18160
18170
18180
1819U
18200
1 R201
18203
18205
18207
18209
18210
18220
18230
18240
18250
18260
18270
18280

1966

MNEM OPERANDS AND REMARKS

II
PG/LN

00005
05510
00005
00005
05510
00005
00005

lABEL

MNEM OPERANDS
DSA
BTM
DSA
DSA
8TM
DSA

*~(**:{~*

C ~~
BNE

,

19hh

124-

PAGE

34

AND REMARKS

LV
RMNS
I
SR
RMNS
I, Sx

, "+16

,*+16

CODE GO TO
LV,
105,8,GO TO
Nh0041

**********************************************************************
BD
B7
SM

)~

"+20,UFSTR+27
*+20
ADCOW, 12, 10

" , BRANCH IF fll

AG~I()S

TIC MODE

......................................................................
TflM
BTM
DSA
DSA
TOM
BNF
8TM
OSA

CODE6B TOM
BTM
DSA
DSA
DSA
SM
CODEhA B
DORG
Nh0041 CM
BE
CM
BNE
TFM
B
DORG
N60043 TFM
TFM
BTM
DSA

SK

CM
BE
TO
AM
CM
8L
SF
DS

~;::~:::::'r>:C**

N60044 CM

"

,DORG BACK OVER

SKIPSW
SRFCT
SR
SK
SKIPSW
CODEhB
INSET
SR,ADCOW

,1
,*+16

SSl
PUTX
B
SK

,1
,*+16

lJIAG~'OSTIC

S TAT E~' E~'T·

,0
, RMSW
,*+16

BLA~IK

AOCOW
CLEAR
*-3
LV,
CLEAR
SX,
N60043
J
Nh0044
*-3
J
"+64
RMNS
I,SX

,4

,10

127,A ,CONTiNUE
132,A,SFMI COLON
,0

,0
,J-4
, *+16

SX,
132,8,SEMI COLON
Nh0044-12
J-4
, SX
*-6
,1
"-18
, J+l
N60043+24
J-4

,10

,t,t:

CODE PAUSE
LV,
126,8,PAUSE

**********************************************************************
BD
B7

"+20,UFSTR+27
*+20

",BRANCH IF

IN DIA(;NOSTIC MODE

125
It'.

____________ "_ .,_. ___ ._.'

H~",~._~

- _._-_.._._---_._....•.• _--...

.... _." ••,'.,......,.,,'jr.~~:.;~ •.;.;;;;....:o~;,:.••. ,~:_

-".-~~~

.. _

•

,:1
SECOND PASS FORTRAN II

*****
LOCTN

OP

P/L

10914

16

0832~

SOOOO

10926
10938
10954
10959
10964
10966
10974

47
17

49

10974
06898
00005
00005
00005
02628

01200
i-0954
S9339
S9490
S9344
00000

10974
10986

14
47

09505
11056

08125
01200

10998
11014
11019
11024
11026
11038
11046
11050
11055

17

06898
00005
00005
00005
06843
02628

"H014
B6848
B9606
B9344
00084
00000

11 056
11 072
11077
11082
110H4
11096
11108
11120
11132
11144
11155
11156
11168
11179
11180
11192
11204
11215
11216
1122R
11236
11236
11248
11260
11272
11288
11293
11294
11306
11318
11334
11339

12
49

00005
00005
17

49
26
11
26
11
26
15
26
11
26
32
15
49

46
26
11
17

14
46
17

:: *
~;.:

~~

PG/LN

~:: ~~

06898

H072

00005
00005
00005
10386
11155
11095
11179
11095
03762
00000
03763
11215
00000
11215
03763
03763
00000
05085
11095

B6848
B9606
B9344
00000
11095
000S5
11095
OOOSI
00000

12022
03781
03781
05540
00005
00005
02399
11392
04276
00005
00005

01200
09485
00061
H288
B3781
B2399
oel0l
01200
H334
&2399
S3791

00004
00000
00ae6
11215
00000
00000
00000

18577
18579
18580
18590
18600
18610
18620
18630
18640
18650
18660
18670
18700
18800
18810
18820
18830
18840
18850
18860
18870
18880
18890
18900
18920
18950
18960
18970
18980
18990
19000
19010
19020
19030
19040
19050
19060
19070
19080
19090
19100
19110
19120
19130
19140
19150
19160
19170
19180
19190
19200
19210
19220
19230
19240
19250
1921)0

NOVEMBER,
LABEL

UP

P/L

11340
11352
11368
11373
11378
113HO

15
17

07343
06898
00005
00005
00005

25

0509~

00001
-l:l368
64493
64227
B3791
04673

11392
11404

44
44

11416
11444

02840
02226

11416
11432
11437
11442

17

OMl'1B
00005
00005
00005

-i1432
B6H46
B4032
64232

11444
11456
11464
11464
11476
11492
11497
11502
11504
11516
11528
11544
11549
115'>4
11556
11568
11584
11589
11594
11596
11608
11624
111)29
11634
11636
11648
11660
11672
11684
11700
11705
11706
11722
11727
1172B
11740
11 756
11 761
11762
11774
11 786
11798

43
49

11464
11786

050'15
00000

11
17

09485
06898
00005
00005
00005
09599
11672
06898
00005
00005
00005
11672
06898
00005
00005
DOO05
11672
06R98
00005
00005
00005
09599
06843
02628
09485
05540
00005
00005
04276
00005
DOO05
11762
11096
00005
00D05
07342
116H
03781
03781

00062
-l:l492
B9545
B4232
e9343
00001
H52H
H544
&9547
63791
69552
H568
H584
S9554
63791
69559
H608
H624
S6848
S3791
69344
00000
00064
00000
000&1
H700
69485
r0881
H722
i-0881
S3791
05085
-l:l 756
-i0881
B6843
00001
00000
06843
000-20

15
17
17

17
17

17
17

15
12
49
11
17

17

44
17

15
49
26

11

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

PGILN

-----~----~-

PAGE

35

MNEM OPERANDS AND REMARKS
-NEXT,O

TFM

",FORCE TRACE PRINT

* ••......•..••••••..•••.•••..••.•...•..........•.•...•••..•.•.•.....•.
BNE
BTM
DSA
DSA
OSA
B
OORG

******

N60045
PUT X

,*+16

0

H

J

BLANK
CLEAR
*-3
CODE STOP

N60045 CM
LV,
125,8,~TOP
BNE
N60046
*$ $$$ $$$$ $$ $$$ $ $ $$$$$ $$$$ $$$$$$$$ $$ $$$$$ $$ $ $ $ $ $ $ $$ $ $$ $ $ $ $ $$ $$ $ $ $$ $ $ $$ $
PUTX
BTM
,*+16
B
DSA
DSA
N00796
BLA~IK
DSA
SM
AOCOW
,4
,10
8
CLEAR
DORG *-3
N00951 DC
5,951
N00900 DC
5,900
CODE
END
******
~160046 BTM
PUT X
,*+16
':'$ $$$ $ $$$ $$$ $ $$ $ $$ $ $$ $ $$ $$ $$$ $$$$ $$ $ $$$$$ $ $ $ $$ $ $ $$ $$ $ $ $ $ $ $ $ $$ $$ $ $ $ $ $ $ $
OSA
B
DSA
N00796
OSA
BLANK
B
EOJ
INS ET
TF
INSETA
,11
,*-1
AM
INSET-l
,5
,10
TF
INSETB
,INSET-l
,11
AM
INSET-l
,1
,10
SET AO-l
TF
~~
I NS ETA OS
TDM
SETAO
,4
TF
SAOCOW
, ~c
INS ET8 OS
AM
SADCOW
,6
,10
TF
SETAD
, SADCOW
,6
SF
SETAO
,6
,';c
SADCOW DS
TOM
RMS.J
,0
A
INSET-l
,6
OORG ':'-3
*~'~~::C:;':~~
OUTPUT IF COD I~IG
COOE7P 8E
COOE7B
TF
N40001
,I
AM
N40001
,1
,10
,,~+ 16
RTM
GTNS
DSA
N40001
OSA
SL
CM
SL
,101
,il
Bf
NI)0048
ATI~
SRFCT
,*+16
DSA
SL
OSA
N40003

,

SECOND PASS FCiRTRAN II

LOCTN

1966

NlJVFt'iflER,
LABEL

1966

PAGE

126

G

36

MI\'EM OPERANDS AND RH1ARKS

19270
19280
19290
19300
19310
19320
19323
19327
19330
19335
19340
19350
19360
19370
19380
19390
19400
19410
19420
19430
19440

N60048 BNF
BNF
.,RTM
OSA
GSA
DSA

19450
19460
19470
19480

TDM
BHI
BTM
DSA

SKIPSW
,1
GSB I
, "+12
PlJTX
,*+16
BL ,1\I40003,N01300

19490
19500
19510

BTM
BTM
DSA

,~,+ 12
GSB I
PlJTX
, *+16
BE ,N40003, N01200

19520
19530
19540

CODE7C BTM
RTM
DSA

19550
19560
19570
19580
19590
19600

TOM
SM
B
AM
BTM
DSA

SK I PSW
ADCOW
CLEAR
I
GTNS
I,SK

19610
19620

BTM
DSA

SRFCT
SK,N40003

, *+16

19630
19640
19650

BNF
BTM
OSA

*+34
INSET
SK ,AOCOW

,RMSW
,"+16

19660
19670
19680
19690

TDM
B
N60049 TF
AM

SSI
GSBI-l
N40001
N40001

,1

TOM
BHI
DSA
DSA
DSA

SS2
PUTX
OPX
TOFAC
MOO03
FLAGSW

,1
,"+16

"'+18,TRCSkJ,6
"+40,IFTRC"

,,,SKIP IF TRACE SW I TCH
IF TRACF

~lnT

II~J

.....................................................................

;!~

*

t,~ }:~ ~,

*

PUTX
,*+16
BTM
TRACE
FACAD
OUTPUT FIXED VARIABLE IF TEST
*+20
,FLAGSW
N60049

BD
B
DORG ~'-3
AM
I
,2
BTM
PUTX
,*+16
DSA
CM, FACAD, ZER04

GSBI

GSB I
,
PlJTX
,
B,N40003,ZER05

,10

'~+12

~'+16

,0
,4
,1
,*+16

,10

0

,10

,

,6

,ADCOW
,20

,10

127

'"lIt'¥!!!

•

0\

0

OP

P/L

11810
11822
11834
11846
11858
11874
11879
11884
118B6
11 1198
11910
11922
11938
11943
11948
11950
11962
11974
11990
11995
12000
12002
12014
12022
12022
12034
12050
120,5
120,6
12068
12080
12092
12104
12116
12132
12137
12142
12144
12152
12157
12162

26
22
11
15
17

03796
03796
03796
07342
06898
00005
00005
00005
09485
09599
11672
06898
00005
00005
00005
06843
11672
06898
00005
00005
00005
09485
11596

04232
02298
000e1
00001
H874
99561
&3781
&3796
00093
00001
-l:l922
-l:l938
96848
63791
69344
00064
-l:l974
-l:l990
69563
63791
69568
00063
00000

09485
05540
00005
00005
12155
12153
09599
09485
11672
06898
00005
00005
00005
11596

00093
-l:2050
69485
63781
03781
00000
00001
00091
l:-2116
l:-2132
99570
93791
l:-2157
00000

12164
121AO
12185
121116
12198

11
15
17
17

12
17
17

12
49
11
17

2h
32
15
11
17
17

49

00006
00005
17

14
47

-l:2180
69485
92399
09104
01200

12210
12222
12230

43
49
16

12230
12242
0832f!

02290
90000

12242
122,4
12266
12282
12287

26
11
17

03796
03796
05540
00005
00005

09485
00091
-l:2282
93796
62399

*!!:~C}:;}::

SECOND PASS FOR TRAN

LOCTN

[)P

Ph

12288
12300
12312
12328
12333
12334
12350
12355
12360
12362
12374
12386
123911
12414
12419
12424
12426
12438
12450
12466
12471
12472
124811
12493
12494
12506
12518
12530
12542
12558
12563
12564
12576
12592
12597
12602
12604
12616
12632
12637
12638

15
15
17

07342
09599
04276
00005
00005
06898
00005
00005
00005
07343
03781
03781
06898
00005
00005
00005
09485
07344
05540
00005
00005
04276
00005
00005
09599
12564
12162
12162
11096
00005
00005
07343
06898
00005
00005
00005
09485
05540
00005
00005
02399
02628
05540
00005
00005
02399
12850
09599
04276
00005
00005
09,99
12812
12162
12162
11096
00005

126~0

0

PG/LN

05540
00005
00005
02399
10146

12662
12678
12683
12684
12696
12708
12720
12736
12741
12742
12754
12766
12778
12790
12806

NOVEMBER,

SECOND PASS FORTRAN II

*****
LOCTN

17

15
26
11
17

16
15

17
17
15
44
26
11

17
15

17

16
17

14
46

17
14
46
15
17

15
44
26
12
17

S
AM
TOM
BTM
OSA

,FACAD
N40004
,FP2
N40004
,1
N40004
,1
SSl
PUTX
,*+16
BD, N4000 1, N40004

19760
19770
197110
19790
19ROO

AM
TDM
BTM
BTM
OSA

,3
I
SKIPSW
,1
GSB I
,*+12
PUTX
,*+16
B,N40003,ZER05

,10

19810
19820
19830
19840

SM
BTM
BTM
DSA

,4
ADCOW
GSBI
,*+12
PUTX
,*+16
BNF ,N40003 ,FACM2

,10

19850
19RhO
19870
19880
19890
19900

9948~

l:-0881
l:-2488
l:-0881
93796
00000
05085
06843
000e5
-l:2558
-l:0881
-l:2162
00001
l:-2592
96848
99357
93796
09004
l:-2632
99485
&2399
09104
01200
-l:2678
69485
62399
09104
01200
00001
-l:2736
e2399
63781
00000
05085
06B43
00092
l:-2806
92399

TF

SM
B
OORG
COllE7B AM
BTM
DSA

TF

19910
19920
19930
19940
19950
19960
19970

199110
19990
20000
20010
20020
20030
20040
20050
20060
20070
20071
20073
20075
20077
20079
20080
20090
20100
20110
20120

1966

PAGE

37

MNEM OPERANDS AND REMARKS

19700
19710
19720
19730
19740
19750

SF
TDM
AM
BTM
BTM
OSA

I
COOE7C
*-3
I
GTNS
I,N40001

,10

,3

,10

,3
,*+16

,10

I NDREC-2
, N40001
INOREC-4
SKIPSW
,1
,1
I
GSBI
, *+12
PUTX
,*+16
BI ,N40003, INOREC

,10

B
DORG
INOREC DC
CGCOW
OS

CODE7C
*-3
6,0
5
,-!c**~;c.**
OUTPUT COM PUTED GO TO
COOE9P BTM
GTNS
,*+16
OSA
I
OSA
SL
CM
SL,
104,8,RIGHT PAREN
BNE
CODE9

**********************************************************************
BD
B7
TFM

*+20,UFSTR+27 " , BRANCH IF DIAGNOSTIC MODE
*+20
-NEXT ,0
",FORCE TRACE PRI i~T

* .....................................................................
TF
AM
BTM
DSA
DSA

N40004
N40004
GTNS
N40004
SL

,I
,1
,*+16

,10

128

NOVEMBER,

II
PG/LN

00001
00001
-l:2328
e2399
93796
-l:2350
99337
e3796
69455
00001
06843
OOO-l:H
-l:2414
fl9382
e9357
63781
oe003
00001
l:-2466

LABEL

LABEL

1966

PA(;F

38

MNEM OPE RANDS AND REMARKS

20130
20140
20150
20160
20170
20180
20190
20200
20210
20220
20230
20240
20250
20260
20270
20280
20290
20300
20310
20320
20330
20340
20350
20360
20370
20380
20390
20400
20410
20420

TDM
TOM
BTM
DSA
OSA
BTM
DSA
OSA
DSA
TOM
TF
AM
BTM
DSA
DSA
DSA
TFM
TDM
BTM
OSA
OSA
BTM
OSA
DSA
TOM
BNF
TF
AM
BTM
OSA

20430
20440
20450
20460
20470
20480
2049020500
20510
20520
20530
20540
20550

COOE9B TDM
BTM
DSA
DSA
DSA
TFM
BTM
DSA
DSA
CM
BE
COOE9A BTM
DSA

20560
20570
20580
20590
20600

CM
BE
TDM
BTM
OSA

SL
N60072
SKIPSW
SRFCT
SL,N40001

20610
20620
20630
20640
20650
20660

TOM
BNF

SKIPSW
CODE9C
CGCOW
CGCOW
INSET
SL ,CGCOW

TF
SM
BTM
DSA

SSl
SKIPSW
SRFCT
SL
N40004
PUTX
MM
N40004
MNS5
SS2
N40001
N40001
PUTX
SM
N13092
N40001
I
SS3
GTNS
I
SK
SRFCT
SK
N40004
SKIPSW
CODE9B
CGCOW
CGCOW
INSET
SK ,CGCDW
SS2
PUTX
B
N13092
N40004
I
GTNS
I
SL
SL,
CLEAR
GTNS
I,SL

,1
,1
, '-+16

,*+16

,1
, Aocnw
,18
,*+16

,3
,1
, *+16

,10

,8

,*+16

,0
,RMSW
,AOCOW
,5
,*+16

,10

,1
,*+16

,4
,*+16

,A

104,A,RIGHT PAR EN
,*+16

,104

,8

,1
,*+ 16

,0
,RMSW
, AOCOW
,2
,*+16

,10

129

~~···"""'~···""·'·"""""""''' _ _ L~

SECOND PASS FORTRAN II

*****
LOCTN
12811
12812
12828
12830
12842
12850
12850
12862
12870
12874
12879
12880
12896
12901
12902
12914
12926
1293B
12954
12959
12960
12972
12984
13000
13005
1300h
13018
13030
13042
13054
13066
13078
13090
13102
13114
13126
13137
13138
13150
13162
13174
13186
13197
1319A
13210
13222
13233
13234
13246
132h2
13267
132h8
13280
13292
13304
13316

~::):::~:::)~

13327
1332A
13340
13352
13364
13376
] 3388
13399
13400
13412
13424
13436
13448
13460
13472
13484
13496
13508
13520
13532
13544
135!:>6
135h8
13580
13592
13604
13616
13628
13636
13636
13648
13660
13668
13h68
13680
13692
13708
13713
13714
13726
13738
13750
13762
13774
13786
13798
13A10
13822
13830
13A30
13842
13850
13850
13862
13A78
13883
13884
...

~

..- - - - - - - -

P IL

49

00005
08018
00005
09485
12662

1:-2162
1:-2828
&3781
000&1
00000

17
49

03842
02628

&6843
00000

00005
00005
05510
00005
00005
14371
06843
13936
05510
00005
00005
13137
13400
05510
00005
00005
14243
13138
14243
13198
14243
13328
13233
13197
13197
13137
13400
00000
14520
13137
00097
14556
12926
00000
14520
13137
00097
00000
14556
05510
00005
00005
14604
13137
13137
13246
1292h

99485
-i3137
-i2896
99485
B137
06843
000&1
1:-2938
!:-2954
&9485
%-3137
0&101
01300
-i3000
99485
i4243
09147
01200
0&148
01200
09124
01200
13137
06843
000&4
14243
00000

17

11

17

26

11
17
17

14
46
17

14
46
14
46
14
46
26
26
11
26
49
17
13
32
27
49
17
13
32
27
17

27
12
14
4A
49

,'f.

LUCTN

---

OP

NOVEMBER,

PG/LN

LABEL

20670
20680
20690
20700
20710
20720
20730
20740
20750
20760

PUTC
CODE9C BTM
,*+16
DSA
N40001
AM
I
,1
B
COOE9A
DORG *-3
N60072 BTM
ADJUST
,ADCOW
B
CLEAR
DORG *-3
OUTPUTS FORMAT SPECIFICATIONS
******
CD17P
OSA
I,SX17

20770
20780
20790
20800
20RI0
20820
20830
20840
20850
20860
20870
20880
20890
20900
20910
20920
20930
20940
20950
209hO
20970
20980
20990
21000
21010
21020
21030
21040
21050
21060
2107ll
21080
21090
21100
21110
21120

e4212
00092
00000
00099

oooon

e4207
00092
00600
00099
i3262
B9485
i4243
14243
000&]
00600
01100
00000

CD17A

XRMNS

SX17
Cll17C

FREeJ!
C017F

21130
21140
21150
211 hO
211 70

P IL

14
4(,
14
46
14
46
14
4h
14
46
14
46
14
46
14
47
17
26
12
49

00000
14371
14371
13327
13327
13399
12926
00000
13137
14276
13137
14244
13137
13636
13137
13668
13137
13830
13137
13850
13137
14372
13137
12926
13936
14371
14371
12926

06104
01200
0&145
01200
09121
01200
06144
01200
oe149
01200
0&146
01200
09132
01200
OEH24
01200
i3604
06843
00061
00000

17
17
49

13936
14520
12926

±-3648
&4177
00000

13936

13
32
27
14
46
17
27
27
16
49

05510
00005
00005
13137
00097
14556
13233
12926
14520
14468
14604
13233
12926

%-3680
&4172
%-3708
&9485
%-3137
000&2
OOOO()
00099
00900
01200
e4182
13197
13233
00900
00000

17
49

14520
13692

B4187
00000

17
17

14520
05510
00005
00005
14556

94192
-i3878
B9485
-i3137
13137

26
12
26
11
26
49

17
17
17

27

06tJ43
000&1
06843
00094
13137
00600

TF
AM
BTM
BTM
DSA

REP3,ADCOW"
AOCOW
CKXH,*+12
RMNS,*+16"
I,SX17

CM
BNL
BTM
OSA

SX17,
101,8,1S IT AN OPERATOR
YES, BRANCH
CD17B",
REMOVE NEXT SYI'1BOL
RMNS,*+16"
I,SY17

CM
BE
CM
BE
CM
BE
TF
TF
AM
TF
B
OS
BTM

SY17,
147,8,1S IT XTYPE
CD17C
SYl7,
148,8,1S IT HTYPE
C017D
SY17,
124,8, I S IT LEFT PAREN
CD17E
FRE01, SX 17"
OTHER OPERATOR,
REPl,ADCOW"
SAVE ADDRFSS (JF
REPl,4,10
SX17,SY17
CD17B

SF
BT
B
OS
Bnl
MM
SF
DS
BT
BTM
OSA

SAVE ADDR ESS OF
,,10

,1

14~20

..

~

..

~-.-

..-.- ..- -

t*
PUT XTYPF AND

Lf~lr,TH

PIlT HTYPF,

LHIGTH AND C[JIIISTANTS

PlJTl78,SY17
SX17,1,10
SX17,0,9
CIl17F
CD17A

/30

~ILJVFi~RER

MNEM OPERANDS AND

211RU
21190
21200
21210
21220
21230
21240
2125u
21260
21270
2128U
21290
21300
21310
21320
21330
21340
21350
2136U
21370
21380
21390
21400
21410
21420
21430
21440
21450
21460
21470
214AO
21490
21500
21510
21520
21530
21540

RFP2
C017E

OS
TF
SM
TF
AM
TF
B
flS
CM
8E
eM
BE

21720

_--

SAVE FRED
NF XT SPEC

t ~:::

PUT17,HTYPE"
SX17,2,10
97, ,9
,*
PUT17C,99
RMNS ,"+16
I, S Y17

LABEL

21550
21560
21570
21580
21590
21 hOO
21610
21620
21630
21640
21650
21660
21670
21680
21690
21700
21710

_•..

1ST SPEC

REMOVE A SYMBOL

PlJT17,XTYPE"
SX17,2,10
97
PUT1 7C, 99
CD17A

P(;/LN

CD17M

CDl7 I

CDI 7 J

CD17N

CDl17

CD17K

CD17L

'.

0

RMNS ,*+16
I,SX17

BT
SM
CM
BH
B

FREQ2
Clll 7B

39

,10

BTM
DSA

SECOND PASS FOI{ TRAI\I II
Of'

PAGE

MNEM OPERANDS AND REMARKS

I~M

REP1
CD170

1966

".

RFP3, ADC[lW"
RFP3,l ,10
REP2,ADcm;
REP2,4,10
FRE02, SX 17
CD17A,,9
t

,

19A6

P!\(;F

0

40

REr~ARKS

SAVE FRE:ClllENCY ArJlWFSS

*

SX17,
104,8,I{IGHT PAR EN
Clll7G
SXI7,
145,R,f TYPE
CD17H
01
SX17,
121,R,SLASH
BE
C017I
CM
SX17,
144,8,A TYPE
BE
C017J
CM
SX17 ,
149,8,1 TYPE
BE
CD17K
01
SX17,
146,8,F TYPE
BE
Clll 7L
CM
SX17,
132,8, SEMI cnL(J~1
BE
CD17SC
CM
SX17,
124,8,LEFT PARFN
B~IE
CMA
C017A" ,
BTM
CKXH,*+12
TF
SAVE RFPEAT !\!JDR ESS
REP3 ,ADCOW"
SM
RE P3,1,10
B
CD17A
DORG '"-3
BHI
CKXH,*+12
BTM
PlJTl7,SLASH
B
cln 7A
DORG ;'-3
BTM
CKXH,*+12
BTM
PUTl7,ATYPE
BTM
RMNS,*+16
DSA
I,SXl7
MM
SF
BT
CM
BE
BTM
BT
BT
TFM
B
DORG
BTM
B
DORG
BTM
BTM
DSA

SX17,2,10
97
PUTl 7C, 99
FREQl,0,9,
CD17A
PUTl7,REP
PUTl7I,REPl
PUTl7B,FREOl
FREQ1,0,9
C[11 7 A
*-3
PUTl7,ITYPE
CD17J+24
"'-3
PUTl7,FTYPE
RMNS,*+16
I,SX17

BT

PUTl7C,SX17

.-.- ..- ---_.__ .. _---_ .._----

PUT FREO RFTURN AIH)RFSS

0
/3/

---.----~-----.--.-~~~.~--

1#& tWtt." tWht't#ti"b

de."

11

1

(tt

"1"1

jL"

•
lOCTN

OP

P/l

Q

PG/lN

13896
13912
13917
13918
13934
13936
13952
13957
13958
13970
139B2
13994
14006
14100
14101
14102
14114
14126
14138
14150
14162
14174
14186
14198
14214
14219
14220
14232
14243
14244
14;>56
14268
14276
14276
14288
14300
14312
14324
14336
14348
14360
14371
14372
14384
14396
14408
14420
14432

17

05510
00005
00005
14198
00005
05540
00005
00005
14243
12984
14243
12984
13935-

B912
99485
B137
00000

21730
21740

49
17

14
46
14
46
49

16
17
16
17
16
17
16
17
17

27
49
17
17
49
17
14
46
26
26
16
17
49

0

49

31
16
16
49

00005
08291
08646
06897
06982

45
17
27
17
26
17

14512

OP

99212
104102
99236
104126
e9260
t-4150
e9284
104174
104214
e9485
B137
13137
00000
i4256
94197
00000
1:42B8
00900
01200
13399
13327
00900
94022
00000
16004
94202
14371
96843
09520
1:4448
99520
96843
00000

08662
-j,4467
1:4512

P/L

Q

42

1451R

0

B952
99485
104243
001047
01200
00i48
01200

21750
21760
21770
21780
21790
21800
21 BID
21820
21830
21840
21850
21860
21870
21880
21890
21900
21910
21920
21930
21940
21950
21960
21970
21980
21990
22000
22010
22020
22030
22040
22050
22060
22070
22080
22090
22100
22110
22120
22130
22140
22150
22160
22170
22180
22190
22200
22210
22220
22230
22240
22250

lABEL

CKXH

WUBCDS
WUBCAB
WUBC12
WUB12B

00005
08291
08646
14492
00000
08291
14553
08646
14492
00000
08291
14602
08646
14492
00001
00002
00002
00002
00002
00005
00001
00001
00002
00002
00002
00002
00005
00001

14520
14532
14544
14555
14556
14568
14580
14592
14603
14604
14616
14628
14640
14047
14649
14651
14653
14655
14660
14661
14662
14664
14066
14668
14670
14675
14070

31
26
49

14678
14690

16
43

0832>'
14764

90000
05075

14702
14714
14730
14735
14730
1475;>
147?7
14762
14764
14776
14788
14800
14816
14821
14826
14828
14836
16002
16002
10014
16026
10038
16002

15
17

07343
04270
00005
00005
06898
00005
00005
00005
07344
03836
03836
06898
00005
00005

00001
r4730
&9476
&3831
t-4752
&6846
94227
93831

31
32
16
49
31
32
16
49

17

16
26
12
17

oooo?

49

02628

34
38
36
49

09148
09148
00012
00012

08677
14519
00000
14662
00000
H555
00000
14647
00000
104603

PG/lN
22260
22270
222RO
22290
22300
22310
22320
22330
22340
22350

22360
22370
22380
22390
22400
22410
22420
22430
22440
22450
22460
22470
22480

00~01

09510

oooei

i4816
e6848
93831>
e9344
00000

00701
00702
00500

22770

PAGE

41

BTM
DSA

RMNS,*+16
I,SX17

B
DC
BTM
DSA

WUB12B+24
5,0
GTNS,*+16
I,SY17

CM
BE
CM
BE
B7
DORG
DC
TFM
BTM
TFM
BTM
TFM
BTM
TFM
8TM
BTM
DSA

SYl7,147,9
XRMNS
SY17,148,9
XRMNS
CKXH-l,,6
14100
2,2
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
RMNS, *+ 16
I, SX17

,BlK5
,SUBCDS
,BlK6
,SUBCAB
, BlK7
,SUBC12
, BlK8
,SUB12B

BT
B

PUTl7B ,SX 17
CD17N
,*
BTM
CKXH,*+12
BTM
PUTl 7, ETYPE
B
CDl7L+12
DORG *-3
BTM
CD17G
CKXH,*+12
CM
FRE02,0,9,
PUT FREO RETURN ADDRESS
BE
CD17A
TF
FRE01,FREQ2
TF
REP1,REP2
TFM
FREQ2,0,9
BTM
PUTl7,
REP4
B
CD117
REP3
OS
,*
C017SC BNR
C017A,BGNST+5
BTM
PUTl 7, REDO
BT
PUTl7I,REP3
C017XX BTM
ADJUST,AOCOW"
ADJUST ADcnw TO EVEN ADORESS
TF
N40002,SXF
BTM
PUT A
,*+ 16
OSA
SXF,ADCOW
SY17
CD17H

PUTl7 I

os .

B
DORG
DS
TR
TFM
TFM
B7

CLEAR
*-3
5
TYPET
PUT3
PUT X-I
PUTXB

,TYPECR
,PUTl71-1
,*+20

/32

NOVEMBER,
LAflEL

PUTl7

pun 7C

PUTl 7B

TYPEK2

TYPEK3

22490
22500
22510
22520
22530
22540
22550
22552
22554
22556
22558
22560
22570
22580
22590
22600
22610
22620
22630
22040
22650
22660
22670
22080
22090
22700
22710
22720
22730
22740
22750
22760

1966

MNEM OPERANDS AND REMARKS

SEC()ND PASS FDIl.TRAN II

~::~::~:~:*

LOCTN

00002
02359
02324
02359
02324
02359
02324
02359
02324
05510
00005
00005
14604
13750
00000
13936
14520
13862
13936
13399
12926
13233
13197
13399
14520
13786
00000
12926
14520
14468
03842
03786
08138
00005
00005
02628

1444R
14453
14454
14462
14466
14468
14480
14492
14504

NOVEMBER,

SECOND PASS FORTRAN II

*****

0

:

BB2
OS
TR
TF
B
OS
TR
SF
TFM
B
OS
TR
SF
TFM
B7
OSC
DC
OC
DC
DC
OC
OC
OSC
OC
DC
DC
DC
DC
OC

5
TYPET
PUB
PUTl 71 +24
,*
TYPET
PUTl 7C-3
PUB
PUTl 7 I +24
,*
TYPEr
PUTl7B-2
PUB
PUTl71+24
1,2
2,2
2,5
2,10
2011
5,1 0000
1,@
1,2
2,3
2,6
2.11
2,12
5,10000
1,@
OUTPUT RETURN

PAGE

42

, TVPECN
, PUTl7-1
, TYPEK3
,PUTl7C-l

,TYPE K2
, PUTl7B-l

**,~***
** *********~t* *******t,.: ****>!'*)'''* **** ** ****~tt,~

XCTRT

1960

MNEM OPERA NOS ANO REMARKS

TFM
BO

****~~ * ~~ *~'{ * *~:-C *~:~'{:t,:: ~(* ~:~ **~~ ** *** ~~ ~~

-NE XT, 0
N60182

",FORCE TRACE' PRI NT
,SUBPSW

SS2
SRFCT
RTNAME
N40011
PlITX
BTM
TOFAC
N40011
SS3
N40012
N40012
PUTX
B
N40012
BLANK
CLEAR
*-3
10002
BLK2A,701
BLK2A,702

,1
,*+16

* ••.•....•..••.•.•.•..••.•••....••.••...................•.•••.........
FCTRTP TOM
BTM
OSA
OSA
BTM
DSA
DSA
OSA
N60182 TFM
TF
SM
BTM
OSA
OSA
OSA
B
()ORG
OORG
34
XZZX
38
TRA
TCO

XZZX

,):~+

16

,101
,RTAD
,1
,*+16

,9
,10

/33

------_._-', ...

~

,.".,

.•.

--.~-"~"-----.---.-,

... -.""...

,.
"I

SECOND PASS FORTRAN

*****
LOCTN

OP

16049
10000
10001
10002
10014
10026
10038
10050
10062
10074
10086
10098
10110
10122
10134
10146
10158
10170
10182
10194
10206
10218
10230
10242
10254
10266
10278
10290
10302
10314
10326
10338
10350
10362
10374
10386
10398
10410
10422
10434
10446
10462
10467
10468
104H4
10489
10490
10502
10514
10526
10538
10550
10562
10574
10586

16
17
16
17
16
17
16

17
16

17
16
17
16

17
49
48
15
49
16
17
16

17
49
4!l
49
48
49
48
16

17
16
17
16

17
14
49
15
17

17

14
47
14
46
15
14
46
14
46

00002
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
14150
00000
04007
10434
02359
02324
02359
02324
14102
00000
14126
00000
14174
00000
02359
02324
02359
02324
02359
02324
09505
13212
05065
05510
00005
00005
05540
00005
00005
09505
10980
09505
10980
05065
09505
10690
09505
10784

PG/LN
i!9331

99116
i-0002
99116
i-0026
99116
i-0050
99140
i-0074
99140
i-009B
99116
i-0122
1:>9140
i-0146
00000
00000
00001
00000
99116
i-0218
99140
i-0242
00000
00000
00000
00000
00000
00000
99188
i-0338
99140
i-0362
1:>9188
i-0386
09131
00000
00000
-3:0462
i!9485
62372
-3:0484
69485
62399
06142
01300
06147
01100
00001
06142
01200
06143
01200

22780
22790
22800
22810
22820
22830
22840
22850
22860
22870
22880
22890
22900
22910
22920
22930
22940
22950
22960
22970
22980
22990
23000
23010
23020
23030
23040
23050
23060
23070
23080
23090
23100
23110
23120
23130
23140
23150
23160
23170
23180
23190
23200
23210
23220
23230
23240

NOVEMBER,
lABEL

*;,~,***

YODEl
YODE3
YODE4
YODE6
YODE7
YODE8
YDDE9
YDDE12
YODE14
YODE15
YOD E1 7
YODESS
YDSSAB
YD12B
YCT1
YCTRT
YOJ
YDCAll
**,;~*~~~:

CD14P

23250
23260
23270
23280
23290
23300
23310
23320
23330

lOCTN

DP

P/L

10598
10610
10622
10634
10646
10658
10670
10682
10690
10690
10702
10714
10726
10742
10747
10752
10754
10770
10775
10776
10784
10784
10796
10e 12
10817
10818
10830
10846
10851
10856
108!:i8
10fl74
10879
10fl80
10892
10900
10912
10920
10932
10940
10952
10960
10972
10980
10996
11001
11002
11018
11023

14
46
14
46
32
14
46
49

09505
10900
09505
10920
05065
09505
10940
10960

06146
01200
06147
01200
00000
06144
01200
00000

26
14
47
17

13179
02399
11002
0689!J
00005
00005
UOO05
05510
00005

13211
oe101
01200
3:0742
69370
B179
99357
3:0770
694!J5
&2399
00000

11024
11036
11044
11056
11068
11080
11092

43
49
16
14
47
46
15

17

OOOO~

PG/lI~

49

11422

26
17

13179
04276
000U5
DOO05
07343
D6898
00005
00005
00005
05570
00005
00005
05830
10702
13179
10702
13179
10796
13179
10702
13179
10796
03888
00005
00005
05510
00005
00005

13211
-3:()812
62399
e3796
00001
i-0846
&6846
94227
93796
i-0874
99485
69469
3:0892

CM
Bl
CM
BH
TDM
CM
BE
CM
BF

lV
CD14JG
LV
CD14JG
FFRSW
LV
CD14FV
LV
CD14Fl

~INEt'1

OPERANDS MID RFMARKS

Ct'l
BE
CM
[JE
SF
CM
flE
B
ODRG

lV
CD14RV
lV
C014RL
FFRSW
lV
CD14SV
Co14SL

11044
11056
0832e
02399
11232
11156
07343

02290

15
17

17
17
49
26
49
26
49
26
49
26
49

17
17

13206
13206
13201
13201
-3:0996
&9505
-3:3179
-3:1018
69485
e2399

&0000
09998
01300
01200
00001

-.~~.-.--~---~-------~~-.-

23340
23350
23360
23370
23380
23390
23400
23410
23420
23430
23440
23450
23460
23470

CD14FV TF
CM
BNE
RHI
DSA

23480
23490

BTM
DSA

23500
23510
23520
23530
23540

B
DORG
CD14FL TF
BTM
DSA

,142

,8

,147

,R

,1
,142

,8

,143

,8

,146

,8

,147

,8

,144

,R

43

C'

/34

,FETCH
,101

,R

1966

PAGE

0

44

'~-3

lVP
SL
CD14JW
PIJTX

,*+1{'

BT,LVp,~'13092

RMNS
I,SL
CD14A
*-3
lllP
SRFCT
SL, ~140004

,*+16

,FETCH
,':'+16

23550
23560
23570

TOM
BTM
DSA

SS2
,1
PLJTX
,*+16
BTM, TOFAC, N40004

23580
23590

BTM
DSA

RPNS
I, FAC

,*+16

23600
23610
23620
23630
23640
23650
23660
23670
?3680
23690
23700
23710

8TM
B7
CD14RV TF
B7
CD14Rl TF
B7
CD14SV TF
B7
CD14SL TF
B7
CD14JG BTM
DSA

GNRP
CD14FV+12
lVP
CD14FV+12
LIIP
CD14FL+12
lVP
CD14FV+12
LVP
CD14FL + 12
OPSR
LV, l VP

,"+12

23720
23730
23740
23745
23746
23747
23748
23751
23752
23752
23752

CD14JW BTM
DSA
DSA

RMNS
I
SL

,*+16

~~*~~

PAGE

DSA
CF
DORG 10000
SECONDARY liNKAGE FOR BLOCK 3
DC
2,3
TFM
FMON+35
,8lKl
BTM
FMON
,CODE 1
TFM
FMON+35
, BlKl
BTM
FMON
,CODE3
TFM
FMON+35
,BlKl
BTM
FMON
,CODE4
TFM
FMON+35
,8LK2
BTM
FMON
;CODE6
TFM
FMDN+35
, BlK2
BTM
FMON
,CODE7
TFM
FMON+35
, BlKl
BTM
FMO~I
,CODE8
TFM
FMDN+35
, BLK2
BTM
FMON
,CODE9
B
SUBC12
H
TOM
FX
,1
B
CD14P
TFM
FMDN+35
,BlKl
BTM
FMDN
,CDDE15
TFM
FMON+35
, BLK2
BTM
FMON
,CODE 17
B
SUBCDS
H
fl
SIJBCAB
H
B
SUB 12B
H
TFM
FMDN+35
,BlK4
BTM
FMD~I
,Fcn
TFM
FMDN+35
, BlK2
BTM
FflON
,FCTRT
TFM
FMD~I+35
,Bl1<4
BTM
FMON
, EOJ
CM
lV
,131
,8
B
CflCAlP
OUT PUT 10 STATEMENT
TOM
FFRSW
,0
BTM
RMNS
,'~+ 16
DSA
I
DSA
SR
BTM
GTNS
,'H16
DSA
I,Sl

N(IV FMfl FR ,
LAflEL

1966

MNEM OPERANDS AND REMARKS

SECUND PASS FURTRAN II

~:( '::''!c;~*

- ..----....

P/L
00005

II

, RECORD
,RECORD
,F IND
,F

I~!D

0

,*+16

** **}.,'t** *~,.{:!:: **** *~!::******~c***:!(;"* ~(){~ :}c:** *~(i.=:**::~ *:;: ::(:!( ::( * ~:( ;:(;':: * ~:( *;':* ;:{t,~ ;'::>!:: :!:,~~* t~ :!::::(~~::~}!::
BD
B7
TFM
CM
Bl
BE
TOM

*+20,UFSTR+27
*+20
-NFXT,O
Sl,9998,8
CD99NF
VARFR
SS2,1

",BRANCH IF DI AGNOSTIC MDol'
",FORCE TRACE [)lIT PlJT
",CHECK FDR VAR I ABU: OR FREE FORr~AT
, , ,NO-BRANCH
'" BRANCH IF VARIABlF FORHAT
, , , I ND I CA T F (j AIlPRE'SS RElDCATARLE

/35

i,

_._. __._------_._.. _.

·~---· .. , ...... --~-,·-·-~·-·"'-··,··,- .. ••· .. •• .. ~I· ......... '''·,''··,· ....

_

..... ~_ .......II"," ........ 'Irl/;I""ri'··l:llo

-....:..... ,..".~,;

....

;."'~

.................-.:.....,

,.

1

SECOND PASS FORTRAN II

*****
LOCTN

OP

P/L

12100
12112
12124
12140
12145
12146
12158
12170
12182
12194
12206
12218
12230
12242
12254
12266
12274

16

12341
09485
05540
00005
00005
02399
12274
02399
12294
02399
12294
02399
02399
00096
09485
12124
12341
12112

00091
00091
r2140
994B5
92399
09104
01200
00-i48
01300
00r51
01100
00-i46
00063
00000
00099

02399
12342
12341
12112
00002
02399
12112
12341
12112
09378
09534
09485
09315
10170
09315
09485
05510
00005
00005
05510
00005
00005
05570
00005
00005
09485
05510
00005
00005
05510
00005
00005
05540
00005
00005
02399
12570
09485

09124
01200
00061
00000

122R6
12294
12294
12306
12318
12330
12341
12342
12354
12366
12378
12390
12402
12414
12426
1243R
12446
12458
12470

11
17

14
46
14
47
14
46
12
13
32
21
49
12
49
14
47
11
49
14
47
14
46
11
26
12
15
49
15
11

17

124R6
12491
12492
1250R
12513
12514
12530
12535
12536
12548
12564
12569
12570
12586
12591
12592
12608
12613
12614
12626
12638

~:~

*

17

17

11

17
17

17
14
47
16

~(~~ ~~

00061
00000

06133
01200
00091
01100
00091
09378
00093
00001
00000
00062
,,2486
99485
92399
,,2508
69485
62399
,,2530

694R5
69453
OOOIH
,,2564
69485
92399
,,2586
99485
92399
,,2608
f.l94H5
62399
09104
01200
OSOOl

SEC UNO PASS FORTRAN

LOCTN

OP

12650
12658
12658
12670
12682
12690
12702
12714
12730
12735
12736
12752
12757
12758
12766
12766
12778
12790

49

11422

00000

15
26
49
12
15

09315
09534
10314
09378
09315
05510
00005
00005
05510
00005
00005
11422

00001
0937fJ
00061
00000
'1:-2730
69485
92399
'1:-2752
99485
92399
00000

49

12826
03796
06898
00005
00005
00005
02628

0,065
04242
t2806
96846
93796
99341
00000

26
15
49

03796
05065
12790

13191
00000

17

06898
00005
00005
00005
12906
12990

'1:-2874
S9327
&4252
99589
04673
00000

12966
07342
06898
00005
00005
00005
12978

09597
00001
,,2946
f.l9329
fl2372
99344
00000

07345
13002
07343
13156
03796
06898
00005
00005
00005
13074
13126

00001
04451
00001
05065
04257
B042
94493
93796
92372
04673
00000

13126
07342
06898

09597
00001
-i3114

17
17

49
43
26
17

U806
12811
12816
1281fl
12826
12826
12838
12850
12858
12874
12879
12884
12886
12898
12906
12906
12918
12930
12946
12951
12956
12958
12966
12966
12978
12990
13002
13014
13026
13042
13047
13052
13054
13066
13074
13074
13086
13098
---~-----.~.~---

43
49
44
15

17

49
15
43
15
43
26
17

43
49
44
15

17

P/L

--------

NOVF.MBER,

PG/LN

LABEL

24720
24730
24740
24750

CODEPA TFM
CD14NA AM
BTM
DSA

PARCNT, 1,10
1,1,10
GTNS,*+16
I,SL

24760
24770
24780
24790
24800
24810

CM
BE
CM
BL
CM
BH
SM
MM
SF
A
B7
C014NB SM
B
DORG
CM
BNE
AM
B
PARCNT DS
CM
BNE
CM
BH
AM
TF
SM
TOM
B7
C014~
TOM
AM
BTM
OSA

SL,l04,8
C014NB
SL,148,9
COI4NB+20
SL,l51,9
C014NB+20
SL, 146,9
SL,3,l0
96
1,99
COI4NA+12
PARCNT, 1,10
CD14NA

24R20
24R30
24R40
24R50
24860
24870
248RO
24R90
2490()
24910
24920
24930
24940
24950
24960
24970
24980
24990
25000
25010
25020
25030
25040
25050
25060
75070

PAGF

..

47

MNEM OPERANDS AND REMARKS

0

'~-3

SL,124,R
*+36
PARCNT, 1,10
C014NA
2,*
SL,133,8
C014NA
PARCNT,l,10
C014NA
GLNO,1,10
T2,GLNO
1,3,10
TOl,l
COOE12
In! ,0
1,2,10
RMNS ,*+16
I, SL

2'>080
25090

BTM
OSA

RMNS, *+ 16
I, SL

25100
25110

RTM
OSA

RPNS ,*+16
I,DOA

25120
25130
25140

AM
BTM
OSA

1,1 ,10
Rf'lINS, *+ 16
I, SL

25150
25160

CD14NC BTM
OSA

RMNS,*+16
I, SL

25170
25180

BTM
OSA

GTNS,*+16
I, SL

25190
25200
25210

CM
BNE
TFM

SL, 104,8
C014NC
1,1,8

II

/38

[\IUVFI~f\FR

PGILN

LARFL

25220
25230
25240
25250
25260
25270
25280
25290
25300
25310
25320
25330
25340
25350
25360
25370
25380
25390
25400
25410
25420
25430
25440
25450
25460
25470
254AO
25490
25500
25510
25520
25530
25540
25550
2556C)
25570
25580
25590
25600
25610
25620
25630
25640
25650
2 %60
25670
25680
25690
25700
25710
25720
25730
25740
25750
25760
25770
25780

Cfl14A
':'-3
101
,1
T2
,GLN()
C012B
C014M
GLNO
,1
,10
101
,0
RMNS
, *+16
I
SL
RMNS
,",.:+16
I
SL
B
CD14A
OORG *-3
C014EN BD
CD14NO
,FFRSW
TF
N40004
,IOEND
BTM
PUTX
,*+16
flSA
8TM
OSA
N40004
DSA
ZFRO
8
CLEAR
DORG "-3
CD14NO TF
~140004
,OIOEND
TDM
FFRSW
,0
B7
C0141:N+24
~~*'!~*):-:,:~
OUTPUT CDDING FOR COMPLEH MATRICES
COOMAT 8TM
PlITX
,*+16
DSA
TFM
DSA
PAR
DSA
PI
BD
,FXORFL
*+20
B
CM99
flORG *-3
BNF
CM9R
, FPSW
TOM
SSl
,1
, ~,+ 16
BTM
PUTX
DSA
SF
DSA
SR
OSA
BLANK
B
;'+20
OORG *-3
CM9A
TOM
SS4
,1
BD
COMSW
*+24,
CM99
TDM
SS2
,1
BD
CM96
,FFRSW
TF
N40004
,MAT
BTM
PIJTX
,*+16
DSA
OPX
DSA
N40004
DSA
SR
BO
,FXORFL
*+20
B
CM97
DORG *-3
BNF
CM97
, FPSW
TDM
SSl
,1
8TM
PUTX
,*+16
COflOA

1966

,

1966

PAr;!'

0

48

MNcM OPF RANDS ANO RFMARKS
B
DORG
TOM
TF
B7
SM
TDM
flTM
DSA
f)SA
BTM
DSA
DSA

-.----.-.--~-.-------

IN Ifl STATFMENTS

0

/39

H"M' W

UVt

t! N) t.bttt H&$ t tIlt

•

* #rl!

-

tb

hI

C

,0

13114
13119
13124
13126
13142
13147

0

OP

17

PIL
00005
00005
00005
05510
00005
00005

69331
62372
69344
B142
69485
62399

1314B

49

11422

13156
13168
13179
13181
13186
13191
13196
13201
13206
13211

26
49

03796
13026
00005
00002
00005
00005
00005
00005
00005
00005

13196

13212
13224
13236
13252
13257
13258
13270
13286
13291
13292
13304
13316
13332
13337
13338
13350
13361
13362
13374,
13386
1339R
13414
13419
13424
13426
1343R
13450
13462
1347R
134R3
13488
13490
13506
13511
13516
13518
13530

46
11
17

13786
094B5
05510
00005
00005
13777
05510
00005
00005
13781
13778
05510
00005
00005
13785
13782
00000
13361
07343
13361
06898
00005
00005
00005
13361
07343
13361
06898
00005
00005
00005
0689R
00005
00005
00005
06843
13590

01200

::'~::~

*

26
17

26
33

17
26
33
26
15
11
17

26
15
11
17

17

12
27

}:~~:t

000~3

B252
~9485

UP

P/L

13542
13554
13566
13578
13589
13590
13602
13614
13626
13634
13640
13642
13654
13666
13684
13686
13698
13710
13717
13719
13721
13723
13725
13730
13731
13732
13734
13736
13738
13740
13745
13746
13751
13756
13761
13766
1376H
13773
13785
13786
13802
13R07
13R12
13814
13826
16002
16002
16014
16026
1603A
16002
10000

27
27
11
49

13642
13686
06843
02628
00000
08291
08646
06897
06982

31
16
16
49
42

12
49

00005
08291
08646
13614
00007
08291
08646
13614
00001
00002
00002
00002
00002
00005
00001
00001
00002
00002
00002
00002
0000')
00001
00005
nOO05
00005
00005
00002
0000')
00012
06898
00005
00005
00005
06H43
0262R

34
38
36
49

09172
09172
00012
00012

31
16
49
31
16
49

17

16

17
16

00002
02359
02324
02359

1966

PAGE

49

MNEM OPERANDS AND REMARKS

PG/LN

LABEL

25790
25BOO
25810
25820
25830
25840
25845
25850
25855
25870
25880
25890
25900
25910
25920
25930
25940
25950
25960
25970
25980
25990
26000
26010

DSA
CF
DSA
SR
DSA
BLANK
CM97
BTM
RMNS
,*+16
DSA
I
DSA
SL
*** *** **** *** **** *** *** ** ** **** ** ** ** * * *"" * * * * * ***** ** *" * ** * *** * **** *
MATRET B7
CD14A

*

* .•.••.•.••.••.................••...................•.................
CM96

LVP
OPY
SWF
OIOEND
DRAY
FINO
RECORD
FETCH
******
CDCALP
CDLlNK

N40004
,ORAY
CM99+36
5
2
5,-02288
5,-02298
5,-02293
5,-02273
5,-02278
5,-022B3
CALL EX IT AND CALL LINK ROUT! NF S
BE
CDXIT
,10
AM
,3
I
BTM
RMNS
, *+16
DSA
I,SY

TF
B7
DS
oS
DC
DC
DC
DC
DC
DC

~2384

02384
1:3286
69485
e2384
02384
00000
B332
69485
62384
02384
00000
06843
00001
OOOSO
B414
~9327

B751
B361
06843
00001
000t9
r3478
~9327

B756
B361
B506
~6848

26020
26030
26040

TF
BTM
DSA

NAME-8
RMNS
I,SY

, SY
,*+16

26050
26060
26070
26080

TF
CF
BTM
DSA

NAME-4
NAME-7
RMNS
I,SY

, SY

TF
CF
OS
TF
TDM
AM
BTM
DSA

NAME
,SY
NAME-3
,*
,ADCDW
CDLGT
SS2
,1
,50
CDLGT
PIJTX
,*+16
TFM ,N07495 ,CDLGT

26170
261RO
26190
26200
26210

TF
TOM
AM
BTM
DSA

COLGT
, ADCOW
SS2
,1
COLGT
,19
PUTX
,*+16
TFM ,N00565 ,CDLGT

26220
26230

BTM
DSA

PUTX
,*+16
B ,N00716,N2THO

26240
26250

SM
BT

AOCOW
PUTX2

26090
26100
26110
26120
26130
26140
26150
26160

CDLGT

,*+16

,10

,10

B761
B766
000~4

13768

,4
, NM22

,10

SECOND PASS FORTRAN II

LUCTN

10001
10002
10014
10026

NOVEMBER,

SECONO PASS FORTRAN II

*****
LOCTN

i,,"t!f'ftl"P'

bt

PG/LN
13773
137R5
OOOel
00000
13717
B589
B634

08677
t3641
00000
13732
0:1:3685

e0565
e0716

1:3802
fl6848
fl9606
fl9344
000e4

2626U
26270
26280
26290
26300
26310
26320
26330
26340
26350
26360
26370
26380
26390
26400
26410
26420
26430
26440
26450
26460
26470
26480
26490
26500
26510
26520
26530
26540
26550
26560
26570
265RO
26590
26600
26610
26620
26630
26640
26650
26660

00701
00702
00500

26670
266AO
26690
26700
26710
26720

fl9116
1:0002
69116

26730
26740
26750
26760
26770
267AO
26790

NO

NUVEw'RER,
LABEL

PlITX2

PlITX17

PIJTX 12

TYPEM2

TYPE12

N07495
N00565
~IOO716

N2THO
NM22
N147RM
NAME
COX IT

XWWX

*****:I!'
ZODEI
ZODF3

1966

PAGE

50

MNEM OPERANDS AND REMARKS
BT
BT
AM
B
OS
TR
TFM
TFM
B7
BB2
OS
TR
T FM
B
OS
TR
TFM
B7
DSC
DC
OC
DC
DC
DC
DC
DSC
DC
DC
DC
OC
DC
DC
DC
DSA
DSA
DC
DC
OC
DS
BTM
DSA

SM
B7
DORG
34
38
TRA

PUTX17
PlJTX12
AOCOW

,NI47RM
,NAME'
,1

,10

CLEAR
,j,:

TYPET
PUT3
PUT X-I
PUTXB

, TYPEM2
,PUTX2-1
,"+20

Typn
, TYPECN
pun
,PIITX17-1
PIITX2+24
7
TYPFT
,TYPE12
pun
,PUTX12-1
PlITX2+24
1,2
2,2
2,5
2,10
2,11
5,10000
1,@
1,2
2,12
2,15
2,20
2,21
5,10000
1,@
5,7495
IORT
lOCAL
5,20000
2,2(1
5,147@
12
PUTX
,*+16
B ,N00796, BLANK

AOCOW
CLEAR
16002
BLK3A,701
BLK3A,702

,4

TCD
XWWX
DORG 10000
SECONOARY LINKAGE FOR BLOCK 4
DC
2,4
, BlK 1
TFM
FMON+35
,CODE 1
BTM
FMON
FMON+35
TFM
,BlKl

,10

/41

,

,._~~

____...

,~".""'_

..

.........-......... "''"h.' ..~~......M~'.~_ILt.~=''''~.''-·.i;... _

_~_.D~.

,..
SECOND PASS FORTRAN II

*****
LOCTN

OP

P/L

1003B
10050
10062
10074
10086
10098
10110
10122
10134
10146
10158
10170
10182
10194
10206
10218
10230
10242
10254
10266
10278
10290
10302
10314
10326
10338
10350
10362
10374
10386
10398
10410
10422
10438
10443
10444
10460
10465
10466
10478
10490
10502

17

14
46
14
47

02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
05510
00000
02359
02324
00000
12008
02359
02324
00005
00005
05510
00005
00005
09505
10514
09505
10634

-l:0026
e9116
-l:0050
e9140
-l:0074
e9140
-l:0098
e9116
-l:0122
e9140
-l:0146
e9116
-l:0170
e9164
-l:0194
e9116
-l:0218
e9140
-l:0242
e9116
-l:0266
e9116
-l:0290
e9116
-l:0314
1:0438
00000
e9140
l-0362
00000
00000
e9164
l-0410
99485
e9505
l-0460
e9485
e2399
0&136
01200
Oe135
01200

10514
10526
10534

43
49
12

10534
10546
06843

02290

10546
10558
10570
105H2
10594
10606
10614
10626
10634
10646

11
26
14
47
26
49
15
49
15

06843
09510
09505
10614
09476
10800
0507!'>
10ROO
05045
04276

000e6
06H43
09136
01200
02399

;!,:;:~: ~:,

16

17
16

17
16
17
16
17
16

17
16

17
16

17
16
17
16
17
16

17
16

17
17
48
16
17
.41
49
16
17

17

17

:;:

L UC T~I
10662
10f,67
106f"g
106HO
10692
10708
10713
10718
10720
10732
10744
10756
107613
10780
107'-12
10800
101116
10821
10822
10834
10846
10858
10870
10862
10894
10910
10915
10916
10932
10937
10938
10950
10962
10974
1091'6
11002
11007
11012
11014
11026
11038
11046
11058
11070
11082
11098
11103
11108
11110
11122
11134
11146
11162
11167
11172
11174
- - - - _ . _ - - - - - - - -...

16

17

PG/LN

0001:2

00001
0000ll-06h2

NOVf'MFlER,
LABEL

NOP
B
ZOCALL TFM
FlTM
FCTlP
DSA

27140
27150

BTM
OSA

RMNS
I, SL

,*+16

27160
27170
271 80
27190
27191
27193
27195
27197
27199
27200
27210
27220
2723()
27240
27250
27260
2727U
27280
2729U

CM
BE
CM
BNE

LV
"+36
LV
FCTl1

,136

,Il

, StJI3F

,135

,R

, StlFlP

ZODE6
ZODE7
ZODE8
ZODE9
ZODE 12
ZOOE14
ZOOE15
ZOOE 1 7
ZOOESS
ZOSSAB
Z012B
ZCTl
ZCTRT

BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTM
BTM
H
TFM

FMON
FMDN+35
FMON
FMON+35
FMOf\1
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMON+35
FMON
FMO~'+3 5
FMON+35
FMON
RMNS

,CODE3
,BLKI
,COOE4
, BLK2
,CODE6
,BLK2
,COOE7
,BLKI
,CODE8
, BLK2
,COOE9
rBLK 1
,CODE12
,BLK3
,CODE14
,BLK1
,COOE15
, BLK2
,CODEl7
,BL Kl
,COOESS
,BLK 1
,COSSAB
,BLK 1
,CO 12B
,FCTlP

P/L
00005

DOOOS
2S
15

17

05025
09325
06898
OOtJ(J~

26
12
16
26
26
11
49
17

26
16
26
12
14
46
17

17
44
15
26
15
17

15
43
49
16
26
11

17

26
11
16
17

15

--~~

00005
00005
09520
09520
02394
02393
0239 ..
09't85
10822
05510
00005
00005
068il8
09515
0950:;
09505
02399
11464
05510
00005
00005
05510
00005
00005
11536
13632
02377
07342
06898
00005
00005
00005
07345
11046
11286
07343
13637
13637
06898
00005
00005
00005
13642
13642
07343
06898
00005
00005
00005
07342

PG/ L,~
&2399
&3836
04673
00001:
1:0708
96848
.,9344
fl9344
061343
000l-0
&0004
02399
06843
00091
l-0816
e9485
e2399
06843
ooeoo
06843
000e1
Oe132
01200
-l:0910
e9485
e2399
1:0932
e9485
e2372
05045
00000
09505
00001
H002

FMON+35
FMON

, BLK2
,FCTRT

FMO~'

BTr~

ZOJ

~:::

**
t,~

~:!:;C ~,~:

*

FMO~I

,BLK3
,COCALL

I,LV

~(~{

8D
B7
SM
~<

EOJP
FMON+35

**~: ~(~, *};c ;!< **** '::: **:::: * ': : ': : ):~ ;:' *;:c ~{;:~ *;:c ::: ,;c ~,~~ ):c ~:( * ~( ;: : ;:::0:: ;:: ;:: ;:' ~!( t,c ;::: *:;!: *)j: ;!t ;:c ':< t,: ;:: ;:: ':: ~:~ ;!: ;:: ;::
*+20,UFSTR+27
*+20
AOCnw, 12,10

",BRANCH
"

IF OIAGI\IUSTIC

,DORe; RACK OVER DI

1+9335

&9505
&9471
00001
02293
000-l:1
06843
000~5

H098
e9333
1-3637
&9505
06843
00036
(JOO-l: 1
-l:1162
.,9563
1:3642
-l:3637
00001

FCT11

AM
TF
CM
BNE
TF
B7
TOM
117
TOM
flTM

AOCOW
RTAO
LV
"+32
RHIAME
FCTlG
SLJRPS.I
FCTlG
FTSW
SRFCT

,6
,ADCnW
,136

IC

STATE~IHIT

,10
,H

,SlIRF

, SL
,1
,1
,*+16

,11

142

~l{iVEI'HlFR

LAflEL

OSA

SL ,1\'40012

TD
TOM
BTM
DSA

RFLAG
RSI~ ,-1
PUTX
B,BLANK,BLANK

27350
27360
27370
27380
27390
27400
27410
27420

SXF
SXF
ADTFMP
AOTEMP-l
ADTEMP
I
FCTlGl
RMNS
I,SL

, AOC0I1
,10
,4
, SL
, ADCOW
,1

27~3U

TF
Sf-'
TFM
TF
TF
AM
B7
BHI
DSA

27440
27450
27't60
27470
27480
27490
27500
27510

FC Tl G1 TF
TFM
TF
SM
CM
BE
FCTlA
BTM
DSA

Tl
RI!
LV
LV
SL
FCTlC

, AOCOW
,0
, AOCDW
,1
,132

RM~IS

,"+16

27520
27530

BTM
DSA

FCT 1G

BNF
;:~}:::*::,:c*;',c

FCT1H

,

1 '-1M..

f'Ar;F

0

52

MNEM OPE RANDS AND R F.~lARKS

27310
27320
27330
27340

TDM
TF
TDM
flTM
OSA

,FX[lRFL
, "+16

,10

,6
,10

,"+16

,9
,10
, R

, SC

I, SL
RMNS
I,SR

,*+16

, FTSW
FCTl2
ARITHMETIC STATEMENT FUNCTION IN MAIN LINE
SARGSW
,0
Sx
,LV
SSl
,1
PLJTX
, "+16
AM,LV,FIVE

27610
27620
27630
27640
27650
27660
27670
276RO

TDM
BD
B7
TFM
TF
AM
BTM
DSA

SS4
"+20
FCTl3
SS2
SLJBCOW
SLJBCOW
PUTX
TF,SUBCOW,LV

27690
27700
27710
27720
27730

TF
AM
TFM
BTM
OSA

BCOW
,ADCml
BCOW
,36
SS2
,11
PUTX
,*+lh
BNF, BCOW, SUBCOW

27740

TOM

SS 1

... - - - - - - - . - - - - - . - - - -

~IOIlF

AC;~lrlST

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

27300

27540
27550
27560
27570
275RO
27590
27600

51

0

SECUND PASS FORTRAN II

OP

PAGE

MNEM OPERANDS AND REMARKS

26800
26810
26820
26830
26840
26850
26860
26870
26880
26890
26900
26910
26920
26930
26940
26950
26960
26970
26980
?6990
27000
27010
27020
27030
27040
27050
27060
27070
27080
27090
27100
27110
27120
27130

ZODE4

1906

,1
,FCTSW

,11

,10

, AOCOW
,35
,*+16

,10

,1

0

,10
,10

/43

+N l%WW"I!¥r!'lIt"J&.weWt'P IW)M'NUrW'WH

...

'It'

1!I'4+tt\'mVjr"'ri'++"ri

b,,!!itmuWd"tf!Nt 'Nt

..
SECOND PASS FORTRAN II

*****

0

.0

NOVEMBER,

LOCTN

OP

P/L

Q

PG/LN

11186
11202
11207
11212
11214
11226
11242
11247
11252
11254
11266
11274
11286
11298
11314
11319
11324
11326
11338
11354
11359
11360
11376
11381
11386
11388
11400
11412
11424
11432
11444
11456
11464
11476
11488
11504
11509
11514
11516
11528
11536
11552
11557
11558
11570
11582
11594
11602
11614
11626
11638
11650
11666
11671
11676
1167H
11690

17

06698
00005
00005
00005
07345
06898
00005
00005
00005
11274
11738
02377
07343
06898
00005
00005
00005
07343
04276
00005
00005
06898
00005
00005
00005
02372
11432
09515
10894
11464
02372
11476
02372
07342
06898
00005
00005
00005
03206
02628
04276
00005
00005
02372
11602
13632
10974
07343
03836
03836
03B31
06B98
00005
00005
00005
07342
0689B

H202
99331
r3637
99344
OHOI
H242
99333
r3637
r3637
13632

27750
27760

BTM
I)SA

PUTX
,*+16
CF,SUBCOW,BLANK

27770
27780
27790

TFM
BTM
DSA

SS4
,1101
PUTX
,*+16
TF,SUBCOW,SUBCOW

27800
27810
27820
27630
27840
27850

BNF
B7
TF
TDM
BTM
DSA

*+20
FCTlJ
SX
SS2
PUTX
BT,TOFAC,SX

27860
27870
27680

TDM
BTM
DSA

SS2
SRFCT
SL,N40012

27890
27900

BTM
DSA

PUTX
, *+16
BTM,FRFAC,N40012

CM
8E
AM
B7 .
BD
TFM
B7
TFM
TDM
BTM
DSA

SR
FCTlB
RV
FCTl A
FCTlC
SR
FCTlD
SR
5S1
PUT X
AM,LV,SR

BD
B7
BTM
I)SA

EX IT
CLEAR
SRFCT
SL,N40011

2A060
28070
28080
28090
26100
28110
28120
28130
28140
28150

CM
BNE
TDM
B7
T FM
TF
AM
SM
BTM
DSA

SR
,104
*+32
SARGSW
,1
FCTlH
SS2
,11
N40012
,ADCOW
N40012
,90
NltOOll
,4
PUTX
,*+16
TFM,N40012,N40011

28160
28170

TOM
BTM

SSl
PUTX

::~ ::~

16
17

44
49
26
15
17

15
17

17

14
46
11
49
43
16
49
16
15
17

43
49
17

14
47
15
49
16
26
11
12

17

15
17

:;, ;:~ :'r

LlJCTN
11706
11711
11716
11 718
11730
11738
11 750
11766
11771
11776
11 77H
11790
11802
11814
11 B26
11838
11859
11864
11866
11878
11890
11902
11918
11923
11928
11930
11942
11954
11970
11975
11976
11988
12000
12008
12020
12032
12044
12056
12068
12080
12092
12104
12116
12128
12140
12148
12160
12172
12184
12196
12208
12220
12232
12244
12256

13637
00001
H314
99370
94227
&2377
00001
H354
92399
93836
H376
96846
94222
93836
09104
01200
00095
09515
00092
00091
00001
H504
99335
99505
92372
05045
H552
92399
93831
09104
01200
OOOOt
OOOH
06843
00090
00094
H666
99327
93836
93831
00001
H706

27910
27920
27930
27940
27950
27960
27970
27980
27990
28000
28010

26020
28030
28040
28050

LABEL

FCTl3

FCT1 F

FCTlB
FCTIK
FCTlC
FCTlI)

FCTl2

15
49
16
17

15
43
15
26
12
17

16
26
11
17

11
11
17

14
47
49
12
14
47
11
25
14
46

11
26
11
16
49
26
16
25
16
49
11
16
14
47
16

P/L
00005
00005
0000,
13632
10974
07343
06B'I6
00005
00005
00005
07342
11444
07342
03831
03831
06898
00005
00005
00005
07345
03836
03B36
06898
00005
00005
00005
09515
09485
05510
00005
00005
02372
11930
11432
06843
08312
1206R
08322
0832~

08631
12148
08631
08322
08322

PG/ LN
99335
93B36
t3648
ooooe
ooOtl
t1766
99333
93831
t3637
00001
13632
00001
06843
000e6
H854
99335
93831
t3646
Ot 10 1
09505
000l:3
tl918
t3644
93836
ft3B31
00095
00091
tl970
ft'l485
ft2372
Oftl04
01200

000e5

oooeo
01100
00091
08290
&8551
01200
000~5

0832~

08631
000&4
&0000

12044
13622
09578
08626
00565
00532
08281
08631
09578
12400
00565

02800
0001>7
07885
-l2207
98268
00093
98326
000.. 7
01200
t2279

28180

, SARGSW

,1
,*+16

,104

,A

,5

,10

,RV
,2

,10

,1
,1
, *+16

, FTSW
, *+16

,8

,10
,10
,10

,1
,"+16

144

28240
28250
26260
28270
28280
28290
28300

TDM
BO
TOM
TF
SM
BHI
OSA

SSl
,1
FCTIK
, SARGSW
SS 1
,1
, ADCOW
N40011
N40011
,6
PUTX
,*+16
AM,N40011,ONE2

28310
28320
28330
28340
28350

TFM
TF
AM
BTM
DSA

SS4
,1101
N40012
,LV
N40012
,13
PUTX
,*+16
BNR, N400 12, N400 11

,8

AM
AM
BTM
OSA

RV
I
RMNS
I, SR

,10
,10

FCT1L

EOJP

EOJJ

I'OJG

,5
,1
,"+16

SR
,104
FCTlL
FCTlB
END OF JOB ROUT I NE
SM
MCOW
,5
BAL
CM
,0
BNH
*+36
AM
NF.XT
,1
TO
~IEXT
, FLGRM
, B{JF4
CM
PREBUF
BE
EOJG
AM
,75
PREBlJF
, PREB{JF
~!F'XT
TF
AM
NEXT
,4
TFM
NEXT
,0
B7
EOJJ
CLLBLK
,GTBLKB
TF
TFM
LNG
,67
BUF4+75
TO
,PUTPCH+11
TFM
IORT
,*+23
,P{JTXX
B
!OPT
AM
PUTXZ
,3
TFM
PREBlJF
,BUF 1
CM
L~IG
,67
BNE
EOJW+24
TFM
IORT
,*+23

CM
BNE
B7

**):c**:'.c

1966

PAGE

,4

MNEM OPE RANOS AND REMARKS

SARGSW
,0
FCTlH
SS2
,11
PUTX
,*+16
TF, ~1400 11, SUBCOW

28400
28410
28420
28430
28440
28450
2fl460
2R470
2R480
28490
28500
28510
28520
28530
2R540
28550
2R560
28570
28580
28590
28600
28610
28620
28630
28640
28650

,R I GHT PAREN

,11

TOM
B7
TFM
BTM
OSA

28360
28370
2R3RO
28390

,RIGHT PAREN

,10

AM,N40012,FOlJR

FCTlJ

53

, SUB COW
,1
, *+16

DSA

28190
28200
28210
28220
28230

PAGE

,8

NI)V E~IB ER,
LAB EL

1966

MNEM OPERANDS AND REMARKS

SeCOND PASS FORTRAN II
OP

118~4

0

It ht

,11
,10

,10

,10

,8

,RIGHT PARF'N

,10
,10
,10
,6

,10
,10
,67

,10
,7
,10
,10

!4f
••1111111 1111I,!11

111"_.'" ...

·_._... .••
~

~.

___._M'_

~_~

______________

""_""'~"'.\."'''''~''''''~'!I.::..:~~

..

......

·~:~.;;.~.;";'';':;:'.:.U:

...::....~

....

... _ ... _•.....••• __ ..
_~

~

~

....

--~

-.-.---.........

..

"

.-".~.--,-

--

.. ... ...
~~

,.

,I
>:c**~(*

SECOND PASS FORTRAN II

NOVEMBER,

LOCTN

OP

P/L

Q

PG/LN

LABEL

12268
12280
12292
12304
12316
12328
12340
12352
12364
12376
12388
12400
12412
12424
12436
12448
12460
12472
12484
12496
12503
12509
12510
12511
12516
12519
12525
12526
12538
12550
12562
12574
12586
12598
12610
12618
12630
12642
J2654
12666
12678
12690
12702
12714
12726
1273B
12750
12762
12774
12786
12798
12810
12822
12834
12R46
12fl58
12870

49

00566
13622
08631
0863r
08631
09578
08631
08631
12172
09578
12292
08631
0863r
00565
00532
12526
12526
00565
00566
14310
00002
00005
00001
00001
00005
00003
00006
13022
06843
02248
02293
09611
02262
12618
12630
02262
02230
02222

B609
000Et3
000Et4
06843
000Et3
0863r
000&8
&8626
01200
00067
01200
0001'4
13488
r2447
&8268
02228
02229
t-2495
%-2503

28660
28670
28680
28690
28700
28710
28720
28730
28740
28750
28760
28770
28780
28790
28800
2ARI0
28820
28830
28840
28850
28860
28870
28880
28890
28900
28910
28920
28930
28940
28950
28960
28970
28980
28990
29000
29010
29020
29030
29040
29050
29060
29070
29080
29090
29100
29110
29120
29130
29140
29150
29160
29170
29180
29190
29200
29210
29220

B
AM
AM
A
AM
TF
AM
CM
BE
F.OJW
CM
BE
AM
TF
TFM
B
BNF
BD
TFM
B
B7
8LKH
OSC
DSA
DC
BLKHA
DSC
DC
DC
DC
BD
F.OJEND AM
TF
TR
TF
MM
BO
B7
SM
TFM
TFM
TFM
B
TO
CM
BE
BO
CF
TO
LHI
CF
CF
K
TFM
B
TFM
B
TFM
B
TFM
8

t,~

*

11
11
21

11
26

11
14
46
14
46

11
26
16
49
44
43
16
49
49

43

11
26
31
26
13
43
49
12
16
16
16
49
25
14
46
43
33
25
33
33
34
16
49
16
49
16
49
16
49

~:c ~:~ ~:,

00~65

00532
12699
12699
12962
12962
00457
00475
06839
09607
00000
00565
00532
00565
00532
00565
00532
00565
00532

r2511

02294
OOOEtl
06843
13560
02262
00065
00099
OODel
7
SYSCAL, JAY
ADCOW-4
SCNT-4
,952
!ORT ,'H23
!OPT ,ADCW 1-4,7
IORT ,*+23
IOPT , USDC R 1-4,7
IORT ,*+23
InPT,SCNT2-4,7
IORT ,'H23
IOPT,LCMADI-4,7

29;>30
29240
292S0
29?60
29270
29280
29290
29300
29310
29320
29330
29340
29350
29360
29370
29380
29390
29400
29410
29420
29430
29440
29450
29460
29470
29480
29490
29500
29510
29520
29530
29540
29550
29560
29570
29580
29590
29AOO
29610
29620
29630
29A40
29650
29660
29670
29680
29690
29700
29710
29720
29730
29740
29750
29760
29770
29780
29790

N(JVFMBF.R,
LABfL

55

1966

PAGE

C:

/46

0

56

MNEM OPERANDS ANO REMARKS
TFM
B
SF
SF
8V
34
87
TDM
67
DSA
DC
DSA
DC
DSA
DC
DSA
DC
OSA
DC
TD
CM
BNE
TFM
B7
TFM
TR
AM
BNF
TOM
TF
CF
TOM
TF
CF
BO
TOM
DC
.INPT
WNPT
SM

IORT ,*+23
IOPT,ENOMI-4,7
ADC OW-4
SCNT-4
"+12
,0971, ,SK IPTO 1
MONCAL
ARNDT
SYSCAL ,2
LHI
ADCWI
ADCOW-4
3,22@
lJSDCR 1
US fOCR
3,lR@
SCNT2
SCNT-4
3,22@
LC MAD 1
LCOMAD
3,lR@
FNOM1
ENOMES
3,l8@
EOJSHI
,PUSTSN
*+21
~{+9
,2
EOTONY
TSW
,1
EOPETE
EOTDNY
TSW
,10
INPUT+I0
, SV TYNB
FDPETE
FCTFND
,5
EOROO
,FCTENO
FCTEND
,8
INPUT+3
,FCTENO
INPUT
FCTEND
,4
INPUT+9
, FCTENO
INPLJT+5
CDPCH
,C SW
INPLJT+I0
1,@,,,,
F.OJR IT
INPUT
INPlJT+5
FCTEND
,10
FCTF~ID
C
, TBASE
BNL
FOPF.TE
B7
EOJF.ND
fORDD
SM
FCHND
,15
B7
EOJRIT+36
CDPCH
TD
INPlJT+4
,SVTYNB
WNCD INPUT
B7
EOJRIT+24
LJSEOCR DAC
17,
CURES USEO@
LCOMAO OAC
NEXT COMMON@
18,
CSW
DS
1
TSW
DS
1
6,99999@
N INERM OC
DSC
50,0
DSC
18,0
DSC
SIX9Z
1,0
SVTYNB DNB
1
.

PAGF.

MNEM OPERANDS AND REMARKS

SECOND PASS FORTRAN II

LOCTN

1966

__..__. -

..... _... _-

---~~~-

, H 10
,10
,10
,10

,11
,11

,11

,10

0

,10

147

t te*t

tr'!!tltHUN'

itO "'j"lI"e

~

SECOND PASS FORTRAN II

*****
LOCTN

0

0

13539
1355B
13559
13560
13565
13584
13585
13586
13592
13593
13594
13599
13602
13607
13608
13609
13615
13616
13617
13622
13625
13630
13631
13632
13637
13642
13644
13646
13648
13651
16002
16002
16014
16026
16038
16050
16002
14100
14101
14102
14114
14126
14138
14150
14162
14174
14186
14202
14207
14208
14224
14229
14230
14246
14251
14252

OP

Q

00050
00019
00001
00000
00006
00019
00001
00002
00005
B594
00001
00001
00005
00003
00005
&2218
00001
00002
00005
B617
00001
00001
00005
00003
00005
&8326
00001
00001
00005
00005
00002
00002
00002
00019 X2
34
25
3A
36
49

16

17
17
4A
16

17
16
17

17

17

15

09196
13585
09196
00012
00012

00002
02359
02324
05510
00000
02359
02324
02359
02324
00005
00005
05510
00005
00005
05510
00005
00005
09599

00701
02323
00702
00500

Et9212
1-4102
l-4202
00000
.,9260
i4150
.,9284
i4174
.,9485
62377
i4224
.,9485
62384
i4246
.,9485
62384
00001

PG/LN
29800
29810
29820
29830
29840
29850
29860
29870
29880
29890
29900
29910
29920
29930
29940
29950
29960
29970
29980
29990
30000
30010
30020
30030
30040
30050
30060
30070
30080
30090
30100
30110
30120
30130
30140
30150
30160
30170
30180
30190
30200
30210
30220
30230
30240
30250
30260
30270

NOVEMBER,
LABEL

GRBAGE

SECTO

SECTY

CAL8LK

CALLBK
CLLBLK

SARGSW
SUBCOW
BCOW
BNR
ONF2
FOUR
ENOMES
XVVX

***l!(**
XUBCDS
XUBCAB
XUBC12
XUB12B
SCA8P

DNB
DNB
DC
OS
DC
DC
DGM
DSC
DSA
DC
DSC
DC
DC
DSA
DC
DSC
DSA
DC
DSC
DC
DC
DSA
DC
DS
DS
OS
DC
DC
DC
OAC
ODRG
34
TO
38
TRA

TCD
XVVX
DORG 14100
TERTIARY LINKAGE BLOCK 6
DC
2,6
TFM
FMON+35
,BLKS
BTM
FMON
, SUBCDS
BTM
RMNS
,SCA BP
H
TFM
FMON+35
, BLK7
BTM
FMON
, SUBC12
TFM
FMON+35
, BLKA
BTM
FMON
, SUB12B
DSA
I, SX
BTM
DSA

RMNS
I,SY

,*+16

30300
30310

BTM
OSA

RMNS
I,SY

,*+16

30320

TDM

SKIPSW

,1

148

NUVFMBER,

OP

P/L

Q

PGI LN

14264
14276
14292
14297
14298
14314
14319
14320
14332
14344
14356
14368
14380
14392
14400
14412
14424
14436
14452
14457
14458
14470
14482
14494
14506
14518
14530
14542
14554
14566
14578
14590
14602
]4014
14622
14034
14046
14058
14670
14086
14691
14696
14098
14706
14718
14730
14738
14750
14762
14774
14790
14795
14796
14H08
14820
14832
14848

12
17

09485
05540
00005
00005
04276
00005
00005
05035
09485
14368
09597
14400
06891
14436
06891
14436
06891
OA712
00005
00005
06883
06883
00095
06883
14554
15022
14566
05830
15022
14622
06883
14622
04493
14634
04493
07342
03801
03801
06898
00005
00005
00005
14914
14738
03801
14750
03801
04493
07343
05540
00005
00005
09485
09481
15214
06898
00005

OOOEtl
l:-4292
Et9485
&2377
l:-4314
Et2377
Et2377
04673
00061
02377
0000104673
02298

30330
30340
30350

SM
BTM
DSA

I
GTNS
I, SX

,1
, ~'+16

30360
30370

BTM
OSA

SRFCT
SX,SX

,*+16

30380
30390
30400
30410
30420
30430
30440
30450
30460
30470
30480
30490

TO
AM
BNF
TOM
BO
TF
B7
TF
BNF
SF
8TM
OSA

RXFLAG
I
COABl
FPSW
*+32
L
CDABW
L
CDABW
L
CANDS
04,SY

,FXORFL
,1
, SX
,1
,FXORFL
, FP2

25
11
44
15
43
26
49
26
44
32
17

33
23
32
26
43
44
44

17
44
44
14
46
16
49
16
15
26

11
17

49
43
26
49
26
16
15
17

12
14
46
17

02252
09315
00000
l:-4452
Et6883
Et2384
00000
06891
00000
00099
09315
09597
09314
i4554
09597
0'1315
60000
01300
000;:2
000;:!1
00001
00843
00035
i4686
e9327
63801
.,6B83
05065
04237
13186
0001-7
00001
i4790
e9485
e9481
oooel
06133
01200
l:-4848
&4493

COABZ

COABW

57

2,0
SEClY
1,@
1,0
5,0
3,1
HEADER
1,@
2,0
CALLBK
1,@
1,0
5,0
3,3
BUF1
1,@
1
5
5
2,45
2,1
2,4
19, END OF COMP ILATION@
16002
BLK4A,701
SECTO-1,UGRMK
BLK4A,702

LOCTN

17

PAGE

50
19
1,@
,*+1
6,-0002
19,1701234567891234567

30280
30290

LABEL

1966

MNEM OPERANDS AND REMARKS

SECUNI) PASS FORTRAN II

~::*;::~::t,:

0

P/L

1966

PAGE

~8

MNEM OPERANDS AND REMARKS

30500
30510
30520
30530
30540
30550
30560
30570
30580
30590
30600
30010
30620
30030
30640
30650
30660
30670
30680
30690

CF
M
SF
TF
CDSA81 BO
BNF
BNF
8TM
CDSAB7 BNF
BNF
CM
BNL
TFM
87
TFM
CDSAB2 TOM
TF
AM
BTM
DSA

04
D4
95
D4
CDSAB7
COSABX
COSA87+12
GNRP
CDSA8X
COSAB2-12
04
*+32
OPX
COSAB2
OPX
SSl
N40005
N40005
PUTX
T FM, N40005, 04

30700
30710
30720
30730
30740
30750
30760
30770
30780

B7
COSAB5 BO
TF
B7
TF
COSAB4 TFM
COSAB3 TOM
BTM
DSA

CDSAB8
*+32
N40005
*+20
N40005
OPX
SS2
GTNS
I, ST

30790
30800
30810
30820
30830

SM
CM
BE
BTM
OSA

I
ST
CDABU
PUTX
OPX, N40005, 04

,10

,10

,11

,K
,I 01

,

~'+16

,L
,99
,101
, FPSW
,FSW
, *+12
, FPSW
,101
,0
,22

,10

,21
,1
,ADCOW
,35
,*+16

,10

,10

,FFRSW
,J[]
,SWF
,17
,1
, ~'+16

tl
,133
,

'~+16

,10

,10
,8

149
~

~~-'--'--.--- --< .. _ - - . - - - _ . " .. " . _ - _ .

I

t!

".
SECOND PASS FORTRAN II

*****
LDCTN
14853
14858
14860
14872
14884
14900
14905
14906
14914
14926
14938
14954
14959
14964
14966
14978
14990
15002
15014
15022
15034
15046
15058
15070
15082
15090
15102
15114
15126
15138
15150
15162
15174
15182
15194
15206
15214
15226
15238
15254
15259
15264
152M
15282
15287
15288
15300
15308
15324
15329
15330
15342
15354
15366
15378
15386
15398

OP

44
15

17
49
16
33

17

43
26
43
26
49
44
44
22
33
15
49
21
43
12
26
26
15
16
49
26
16
49
15
25
17

17

17
49
17

15
25
44
43
49
17
12

..

09315
06883
02377
00000
00001
02377
09315
OOOel
09485
06883
OOOOi
-3:5422
04232
000-3:6
0000l:05035
i5254
e9327
e4232
e6883
1: 5282
e9485
e9469
1:5300
t-5324
&9485
&9469
0000l:05035
09597
09320
t-5398
000&1

OP

P/L

15410
15422
15434
15442
15454
1546f,
15478
15490
15502
160()2
16002
16014
16026
16038
160()2
14100

32
15
49
25
11
15
12
26
49

0957!>
09599
03206

00000
00000

0957~

05035
000 .. 3
00001
000&4
06835

34
38
36
49

09244
09244
00012
00012

14198
14210
14222
1423H
14243
14244
14256
14268
14280
14292
14304
14313
14352
14364
14376
14388
14400
1441f,
14421
14422
14434
14446
14458
14470
14486
14491
14492
14504
14516
-~

OOOil
00000
l:-4954
&4493
&3801
&2377
09320
09344
09315
04227

LUCTN

14101
14102
14114
14126
14138
14150
14162
14174
14186

...

Q

&3801
&6883
09315
00000
H900
&9485
&9481

SECUND PASS FORTRAN

;;~ ~:t ~(: t,{ ~:,

-~--

P/L
00005
00005
15308
09599
05510
00005
00005
11422
07343
02377
06898
00005
00005
00005
15182
06883
14706
03801
14750
15090
15090
06883
06883
07345
15102
06883
14706
09485
06601
06835
06892
05829
05912
03801
04493
14762
09325
05025
06B98
00005
00005
00005
05570
00005
00005
05830
15422
05570
00005
00005
09314
05095
15422
15386
15422
05830
09575

16
17
16
17
26
49
16

17
11
43

17
11
24
47
17
46
49
26
11
26
11
17

26
11
26
11

17
15
15
15

09575
0957!>
09575
09'j7~

06404

00002
02359
02324
02359
02324
03796
14198
02359
02324

00701
00702
00500

&9212
t-4102
&9236
H126
09485
00000
&9284
H174

03796
000 .. 1
14244
09315
05540
-3:4238
00005
e3796
00005
e953~
04042
000-21
04042
09575
14352
01100
08998
-3:4313
14304
01400
00796
00020 X2
09525
04042
09525
000-21
0404-2
09534
03796
oooei
05540
-3:4416
00005
e3796
00005
e2399
09530
04042
09530
000&9
02399
0953&
03796
000&2
05540
H486
00005
&3796
00005
&2372
07342
00001
07343
00001
09599
00001

--~-~----.---.

PG/LN

NDVFMBER,
LABEL

BNF
TOM
BTM
DSA

30880
30890
30900
30910
30920

B7
COSAB8 TFM
CF
8TM
OSA

CD14A
SS2
SX
PUTX
OPX ,N40005, SX

30930
30940
30950
30960
30970
30980
30990
31000
31010
31020
31030
31040
31050
31060
31070
31080
31090
31100
31110
31120
31130
31140
31150
31160
31170
31180

BO
TF
BO
TF
B7
COSABX BNF
BNF
S
CF
TOM
B7
CDSABZ A
BO
SM
TF
TF
TOM
TFM
B7
FPCL
TF
TFM
B7
COABU
TOM
TO
BHI
GSA

FPCL
04
CDSAB5
N40005
CDSAB4
COSABZ
COSABZ
04
04
SS4
*+20
04
COSAB5
I
GI
TCOW
GTSflSW
GNRP-l
GYES-24
N40005
OPX
CDSAB3
RSW
RFLAG
PUTX
TH'"FACAD,D4

31190
31200

BTM
OSA

RPNS
I,FAC

BTIV,
B7
BTM
DSA

GNRP
CDABXT
RPNS
I, FAC

TOIVI
TO
BO
B7
BTM
SM

FSW
FLAGSW
CDAflXT
';'+20
CDAflXT
GNRP
GBASE

I~NEI"

OPERANDS AND REMARKS

CDARP

31250
3126l)
31270
31280
31290
31300
31310

B~IF

CDABP
SKIPSW
RMNS
I,ST

,11

C
,10

, *+16

,CALLSW
, BLANK
,101
, TOFAC
,JOI
,04
, SX
,1
, SX
,101
,I
,I
,04
,1
,CDABX T
,FACAD
,16

,I
,RXFLAG

,10

,II

,10

,11

,'~+16

,';'+16

,"+12
, ';'+16

,1
,RXFLAG
, FPSW
,CALLSW
, ~'+12
,I

,11

/50

,10

I~UVFI'IBFR

LABEL

31320
31330
31340
31350
3131>0
31370
31380
31390
3140U
31410
31420
31430
31440

SF
CDABXT TDM
B7
GTF IN
TD

31450
31460
31470
31480
31490
31500
31510
31520
31530
31540
31550
31560
31570
31580
31590
31600
31610
31620
31630
31640
31650
31660
31670
31680
31690
31700
31710
31720
31730
31740
31750
31760
31770
31780
31790
31800
31810
31820
31830
31840
31850
31860
31870

~,t: ~:~ ~:: ~;:: ;;:: ~;::

YUBC OS
YlIBCAB
YllflC12
YLJR12B
~~

*

~:~ ~~ ~:~ ~,

~:::::},'o::~;::t,t:

CD12P

CD12C

DFLMS
CD12E

59

,101
,0
,*+16

II
P(;/LN

XUllX

PAGE

MNEM OPERANDS AND REMARKS

30840
30850
30860
30870

31210
3122u
31230
31240

19M

GBASE
SKIPSW
EX IT
GRASF
A~i
GBASE
TOM
GRASE
S~I
GflASE
(;BASE
TF
R7
GT JW
DORG 16002
34
BLK6A,701
38
BLK6A,702
TRA

,

,

1900

PAGF

0

f,O

,n

,0
,RXFLAG
,3
,1
,4
, Tcn~J

,6
,10
,f,
,10
,f,

TCO
XllUX
OORG 14100
TERTIARY L I ~IKAC;F I:lLOCK 7
2,7
DC
T FM
FMON+35
,BLK5
BHI
FMON
, SlIBC[)S
TFM
FMON+35
,BLK6
BTM
FMON
,SlIBCAB
TF
N40004
,I
B
C012P
TFM
FMO~I+35
,BLK8
BTM
FMON
,SLJB12B
OUTPUT INITIALIZI~IG INSTRUCTION FOR nn CnDING AND
INDIC IES ON 00 LIST
AM
N40004
,1
,10
BO
C012C
,101
BTM
GTNS
,"+16
OSA
N40004
OSA
T2
AM
DOREF
,21
,10
OOREF
C
,GBASE
BNH
C012E
BTM
ERRT ,OFLMS
BV
*+12
B7
MONCAL
OAC
20,
D,O TABLE FULL@
TF
DOMAX
,DOREF
AM
DOMAX
,21
,10
TF
DOREF
, T2
,6
AM
N40004
,1
,10
,~(+16
BHl
GTNS
DSA
N40004
OSA
SL
TF
J40004
,DOREF
AM
J40004
,9
,10
, SL
TF
J40004
,6
AM
N40004
,2
,10
BTM
GTNS
,~'+16
DSA
N40004
DSA
SR
TOM
SSl
,1
TDM
SS2
,1
TOM
SKIPSW
,1

rLACE

0

/5/

C

0

OP

P/L

(~

PG/LN

LABEL

14528
14544
14549
14550
14566
14571
14572
14588
14593
14598
14600
14612
14624
14636
14648
14660
14676
14681
14682
14694
14706
14722
14727
14728
14740
14752
14764
14776
14788
14800
14812
14820
14820
14832
14844
14860
14865
14866
14878
14886
16002
16002
16014
16026
16038
16002
14100

17

04276
00005
00005
04276
00005
00005
06898
00005
00005
00005
09599
09530
09539
09530
03796
05540
00005
00005
09539
03796
05540
00005
00005
02399
14776
02399
14820
09530
09539
12446
02628

014544

26
49

09530
03796
05540
00005
00005
09539
14800

00094
00091
-i4860
63796
93791
03791
00000

34
38
36
49

09268
09268
00012
00012

00701
00702
00500

31880
31890
31900
31910
31920
31930
31940
31950
31960
31970
31980
31990
32000
32010
32020
32030
32040
32050
32060
32070
32080
32090
32100
32110
32120
32130
32140
32150
32160
32170
32180
32190
32200
32210
32220
32230
32240
32250
32260
32270
32280
32290
32300
32310

BTM
DSA
DSA
BTM
DSA
DSA
BTM
DSA
DSA
DSA
TDM
SM
TF
AM
AM
BTM
DSA
DSA
TF
AM
BTM
DSA
OSA
CM
BE
CM
BNE
N60084 AM
TF .
BO
C D12A
B
OORG
N60085 AM
AM
BTM
DSA
OSA
TF
8
DORG
OORG
XTTX
34
38
TRA

99212
t4102
99236
t4126
99260
i-4150
09315
00000

32320
32330
32340
32350
32360
32370
32380
32390
32400
32410
32420
32430

14101
14102
14114
14126
14138
14150
14162
14174
14186

~:~

0

NIJVFMRER,

SECOND PASS FORTRAN II

*****
LOCTN

17
17

15
12
26

11
11
17
26
11

17
14
46
14
47
11
26
43
49

11
11
17

16

17
16
17
16
17
43
49

},';: ~::: :;t ;'::

00002
02359
02324
02359
02324
02359
02324
14222
1419H

~2399
~3781

-l4566
~2372
~3791

-l4588
~9333

63781
63791
00000
00094
06843
00098
00092
i-4676
93796
93781
03781
00091
t4722
93796
92399
09132
01200
06104
01200
00094
09343
09315
00000

*~(*~'::t;:;.;~

ZUBCDS
ZUB CAB
ZUBC12
ZUR12B

SRFCT
, *+16
SL
N40001
SRFCT
,*+16
SR
N40003
PUTX
,*+16
TF
N40001
N40003
SKIPSW
,0
J40004
,4
J40004
,ADCOW
J40004
,8
N40004
,2
GTNS
,*+16
N40004
N40001
J40004
,N40001
N40004
,1
GTNS
,*+16
N40004
SL
SL,
132,8,SEMI COLON
N60084
SL,
104,8,RIGHT PAREN
N60085
J40004
,4
J40004
,ZER04
CD14E
,101
CLEAR
*-3
J40004
,4
N40004
,1
GTNS
,*+16
N40004
N40003
J40004
,N40003
C012A-12
*-3
16002
BLK7A,701
BLK7A,702

OP

P/L

14198
14210
14222
14234
14246
14258
14270
14282
14294
14306
14318
14330
14342
14354
14366
14382
14387
143HS
14400
14408
14408
14420
14432
14444
14456
14468
14480
14488
14488
14500
14512
14524
14536
14552
14552
14557
14558
14:'70
14586
14591
14596
14598
14610
14622
1463fl
14638
14643
14644
14656
14672
14"'77
14682
14684
14696
14-(08
14720

26
15
26
15
15
24
47
26

15
49

09534
09321
14892
05105
09599
09534
14408
03791
03791
02399
02399
09599
14488
09596
04276
00005
00005
07343
14512

09594
00000
04042
00001
00001
0404.!':
01200
04042
OOOH
0379i09000
00001
01200
000.!':1
±-4382
92399
93781
00001
00000

15
15
17
12
14
47
49

05105
09601
08998
04042
04042
14856
14258

00000
00001
-l4895
000>!1
64102
01300
00000

16
16
12
26

09596
03781
03791
14552
04276
00005
00000
00005
07342
06898
00005
00005
00005
03791
14638
04276
00005
00000
00005
07343
06898
00005
00005
00005
03791
03796
07342
06898

OOOH
00091
00098
03791
-i4552
-i4552

11
26
14
15
46
16
17

17

15
17

11
26

17

16
17

12
26
15
17

93796
00001
-i4586
99596
93796
93781
00094
03791
H638
H638
93781
OOOil
-i4672
69543
e3796
63781
00098
0379-i
00001
H736

PAGE

61

,10
,6

,10
,10

,6
,10

,10
,6

,10
,10

,6

TCD
XTTX
DORG 14100
TERTIARY LINKAGE BLOCK 8
2,8
DC
TFM
FMON+35
,BLK5
BTM
FMON
, SUBCOS
TFM
FMON+35
,BLK6
BTM
FMON
,SUBCAB
TFM
FMON+35
,BLK7
8TM
FMON
, SUBC12
BD
CD12BP+24
,101
B
CD12BP

/52

SECOND PASS FORTRAN II

LOCTN

1966

MNEM OPERANDS AND REMARKS

N[JVEMRFR,

PG/LJ\

LABEL

32440
32450
32460
32470
324AO
32490
32500
32510
32520
32530
32540
32550
32560
32570
32580
32590
32600
32610
32620
32630
32640
32650
32660
32670
32680
32690
32700
32710
32720
32730
32740
32750
32760
32770
32780
32790
32AOO
32810
32820
32830

C012BP TF
TDM
TF
TnM
TDM
COl2Y
C
BNE
CD12D
TF
AM
TF
CM
TON
BE
TFM
BTM
nSA
DSA
TOM
fl
nORG
CD12X
TOM
TOM
BTN
SM
CM
BL
B
OORG
N60092 TFM
TFM
N60095 SM
TF
BTM
DSA
N60099 DS
DSA
TOM
BTM
OSA

32840
32850
32A60
32870
32880
32890
32900
32910
32920

AM
TF
BHI
DSA
N60101 DS
oSA
TFM
BTM
DSA

N40003
N60101
SRFCT
N60101

32930
32940
32950
32960

SM
TF
TnM
BTM

N40003
N40004
SSI
PlJTX

MNEM OPERANDS ANO

::!,..,:::*:;~*:;(

19"'6

PAGE

6~

RE~1ARKS

THE FOLLOWING OlJTPUTS THE TEST AT THE END OF A 00 LnOp
T2
,T3
DOSH
,0
OOTEMP
,DOREF
CKSW
,1
SKIPSW
,1
T2
,OOREF
,11
CD12X
, DnREF
N40003
N40003
,17
,10
SL
,N40003
,11
SL
,8
SKIPSW
,1
N60092
OPZ
,21
,10
SRFCT
,*+16
SL
N40001
SS2
,1
N60095
*-3
CKSW
,0
ERSWT,l
ERRT ,DOMES
onREF
,21
,10
DOREF
,DnBASE
EX ITA
C012Y

,

~'-3

OPZ
~14000 1
N40003
N60099
SRFCT
N60099

,11
,1
,8
,N40003
,*+16

,10
,10
,10

,*
N40004
SSl
,1
PUTX
,*+ 16
OP Z, N40004 ,N4000 1

,4
,N40003
,*+16

,*
N40001
,11
SS2
PUTX
, *+16
C,N40004,N40001

,A
,N40003
,1
,*+16

,10

,10

,10

,

11

/53

,..
*****
LOCTN
14736
14741
14746
14748
14760
14772
14784
14796
14808
14820
14832
14844
14856
14868
14880
14888
14892
14895
16002
16002
16014
16026
16038
16002
14100
14104
14106
14118
14130
14142
14150
14162
14174
14186
14198
14210
14222
14234
14246
1425R
14270
142Rl
14284
14285
14291
14292
14294
14308

SECOND PASS FORTRAN II
OP

12
24
46
26
11
24
46
43
26
15
43
49

P/L

Q

PG/LN

00005
00005
00005
04042
04042
14832
03791
03791
0404-2
14282
14856
04042
09599
12690

99541
93796
99539
OOOel
04102
01200
04042
000-21
0379-i
01200
05105
14892
00000
09315
00000

32970

DSA

8NH,N40004,N01100

329RO
32990
33000
33010
33020
33030
33040
33050
33060
33070
33080
33090
33100
33110
33120
33130
33140
33150
33160

SM

DOREF
DOREF
N60107
N40003
N40003
DORfF
CD120

026~8

00005
00032 X2
34
38
36
49

47
43
43
49
15
15
25
25
25
34
34
16
49

11
49

14310
14322
14334
14345
1434(,
1435H
14370

16
49
15

LllCTN

()P

143f<2
14394
14406
14418
14430
14442
14454
14466
14478
14490
14502
14514
14526
14538
14550
14562
145 -(4
14586
14598
14610
14(,22
14634
14646
14658
14666
14678
14689
14691
15100
14696
14699
1:;300
16002
111002
16007
16010
111016
16018
16030
16()42
16054
16018
02400

11
44
4-:\
16
16
49
17
16
12
15
26
33
15
2h'
33
31
11
12
24
4h
1h
49
17
49
12
49

32
26
31

09292
09292
00012
00012

00005
1410S
14150
14162
14174
14974
14976
14979
14977
14975
00000
00000
00565
00532
02222
1410S
00005
00003
00002
00005
00001
00014
00001
00565
00566
1';100
OOOCJl
02314
146S9
15300

00701
00702
00500

03400
02220
02221
00007
00007
02222
02221
02220
00971
00962
1,4257
1,4277
00091
t4H01

1:-4294

1,4333
1:-4285
00000
00000
0231S
13547

Sc:CIlNI) PASS FURTRAN

34
38
36
49

NOVFMBFR,

PI L
14689
14666
14478
14691
OOS65
00532
14106
14568
14691
14689
15303
15300
14689
15309
15305
1,5100
14568
14689
14689
14382
00565
OOS32
14106
12526
14689
1459R
00005
00002
00000
00005
00003
00013
00001
00005
00003
00006
16002
16002
00012
00012

00065
14689
14b91
000&8
t4453
1:-4692
1,4466
t5100
00061
OOOOS
146H4
00000
00004
14684
00000
15300
0001,2
0001,0
02303
01300
t4645
1:-469?
t',658
000-i5

-i5100

00701
00702
00500

3317U
331BO
33190
33200
33210
33220
33230
33240
33250
33760
33270
33280
33290
33300
33310
33320
33330
33340
33350
33360
33370
33380
33390
33400
33410
33420
33430
33440
33450
3346()
33470
334flO
33490
33500

LA8EL

PAGE

8E
TF
AM

C
8E
N60107 BO
TF
EX ITA
TDM
BD

,21

,10

c

,DOBASE
,DORfF

*+24

,21

,10

, N40003

,611

,CKSW
,D.OTEMP
,0
,101

DOREF
SKIPSW
CD14M
B
CLEAR
OORG *-3
DOTEMP OS
5
DOMES
DAC
32,
DORG 16002
XSSX
34
BLK8A,701
BLK8A,702
38
TRA

IMPROPER DO NESTING@

xssx
TCD
DORG 14100
FIRST
PAGE HEAD -THEN PRINT BLOCKS
PR I NT
DC
5,12345
OFLOl-l,3400,6,
TEST PRINTER CHMI 12 BRRACK INDIRECT
OFLOl
BNI
BD
ONE, PGNUM-2, ,
YE S- CHA~I 12
SO
TWD,PGNUM-1
NONlJM
B7
ONE
TDM
BI0MAD+174,7
TDM
BI0MAD+176,7
TWO
NONUM
TD
BI0MAD+179,PGNUM",PAGE NUMI3FR
TD
Bl Or-'IAD+ 177, PGNUM-l
TO
B 1 OMAD+ 175 , PG~llIM-2
34
SKIP TO 1 li,II"EllIATE
,0971 "
34
,0962, ,
DOlIBLF SPACE Af'TH PRINT
TFM
TO IORT-PRINT PAGF HFAD
IORT, ':'+23"
S
IOPT, PAGF-4, 7
AM
PGNUM,O 1,10"
ADD 1 Tel l'Ar;f '''II~HlF''
B7
OFL01-1, ,6,
BRANCH BACK INDIRFCT
OSA
PAGE
B10MAO+l
DC
3,lfl@",
PRHIT INJ)ICATl!l~' M'l) PAC;~ MII'II:lFR
DSC
2,22"
PAGE (1FL!J "FFINER
DSKHD
lJSA
OISKD!)
DC
1,@
DISKDD DOA
,l,B8DAD,002,BI0r-'IAD",DDA (IF PRI~'l nliT ()FLO
DC
1, a
~,* PRINT CORE MAP OF LABELS IN BLOCKS
PBLOKI TFM
IORT,~'+23"
BRING I~I THF HI:MIINe;
B
IOGT,OSKHD,7
TOM
FAF6 ,00000"
RI'I FOR rJUi'I~\Y PR II"T
DC
1,@,*",
PBLOK
SF
FCTENO-4
TF
TflLEND,FCTEND",
INITIALIZF THE- PflINTFR
TR
DUTARA,SVTYNIl+58

I I

I\IUVF~I(1rR,

LM1FL

33510
3352u
33530
33540
33550
33560
33570
33580
33590
33600
33610
33('20
33630
33640
33650
33660
33670
336RO
33A90
33700
3371u
33720
33730
33740
33750
33760
33770
337flO
33790
33800
33810
33820
33830
33840
33850
33860
33870
33880
33890
33900

FOPRT

63

MNEM OPERANDS AND REMARKS

C

PC; I lI'l

33910
33920

1966

MNEM OPERANDS
A~I

RNF
IlD
TF~I

/5/

o

19hh

AND REMARKS

THLEND,5,10
E[lPRTl ,TBLENO, 11
~IINUS1,COUNT8

CDlJ~ITH,08,
IORT, '~+23"

10"
RFSET THE CntJlH
PRINT THE LINE (IF SYI'iROLS
IOPT,FAF5-4,7
RTM
TEST CHAN 12
DFLfH ,'H12",
TFM
MOVR +6
,F AFh"
INITIAl.IZ FOR L1IMllhiG PRI~IT ARFA
Sr1
RFDUCF THF C(ltmT
COUNTS,01,10"
TBLENJ),R, ,
TDM
THF STATEI~E~IT I\Itlf'iflFR IS HfRE
TF
ntITARA+3,TBLENrJ,11
CF
IllJTARA
TDM
Tf\LFND,4",
THE CORE ADORFSS IS HFRF
TF
OtiTARA+9,TtlLEND,11
CF
fJUTARA+5
TR
FAF6,OUTARA,2,
r~OVF TO PRINT btJFFFR AREA
AM
MOVR+6, 12, 10,
MOOIFY TH~ MOIlt'I<
SM
T8LfND, 10, 10,
ADJUST THr POINTER
C
TBLFND, TIlAS F
BNL
EOPRT" ,
fNO OF AR FA 01'1
TFM
IORT,'r+23"
YES-PRINT LAST LINF
R
WPT, FAF5-4, 7
BTM
TEST CHAN 1;>
OFLOl,*+12",
B7
EOJFND-12
SM
TBLFND, 15,10,
ADJliST THF POINTER
R7
COMPAR
DC
5,00000" ,
POINTER FOR PRliIITf'R RntlTINF (TM;LF)
DC
2 ,OR
DS
,R10MAD+300
DSA
FAF6
DC
3,14@",
PRINT TABLE DJ=FINf'R
DSC
13,
nl,FAF6+200" I~ITFRMI:'DIIITF OtlTPl1T I.ltJFFFR
[lORe; 16002
DC
1,1
DC
5,17351
DC
3,007
DC
6,14100;;)
34
[1 IP 1,701
3R
DIP1,702
TRA

TFM

B

M

Hll)Sl

MOVR

CDr-'IPAR

F!JPR Tl
nlLE~!D

COtmT8
FAF6
FAF5
OUTARA
DI PI

DIP

c

TCO
DIP
DEND PASS II

/55

tbe

(10)

c

*PUNCH RESEQUENCED SOURCE DECK
*LIST PRINTER
*OUTPUT CARD
*PRINT SYMBOL TABLE
**
FORTRAN DIAGNOSTIC MODE LIBRARY SUB
*LIBR
*ASSEMBLE RELOCATABLE
*10 NUMBER 0037
*STORE RELOAOABLE

o

156

PAGE

FlJRTRAN lllAGNOSTiC MODE LIBRARY SUB
HACEC
E RBACK
BUFF
ERA1
ERROR
INC
S I GN3
TOFIX

00968R
00248R
00857R
01224R
00960R
00371R
0082 4 R
o 1386R

TUFACC
ENTRY 2
CLEAR
ERME S
ERX V
OVFL
TCD
TRA

00976R
00006R
00696R
01265R
00068R
01292R
00992R
01172R

TNFR ET
ENTRST
CONST
ERPR T
ERXVC
Rt-1ARK
TFM
TRAU

01496R
00940R
00124R
01255R
00984R
01099R
00744R
00304R

TNFADR
CONRET
DBUFF
ERR
FIXED
SIGN
TNF
TRNM

01423R
0022 OR
01191R
00088R
00764R
00536R
01 4 00R
00452R

S TNOSV
BB
ENTRY
ERRET
FORCE
SIGN2
TOFAC

01223R
01184R
00856R
00296R
o 1100R
00640R
01324R

o
157

--

..

----~-~.~---.-,--,---- -'"-.~-

- - ..

.........

~.-.---.-.-'----.",.-"-,._

....................,...

...... --..... ...... " ........... _.-

..... ~.

~.-~"

.~"

•. ··_.:0_......:;,;;..;,;:.:•• ,, __

,..
FORTRAN IJIAGNOSTIC MODE LI BRAR Y SUB
00010
00020
00030
00040
00050
vU060
0007U
OU080
UU090
00100
00110
00120
00130
00140
OU150
00160
00170
OU180
00190
00200
002] 0
UU22 U
OU230
00240
OU250
OU260

OSA
ENTRY2 BV
CM
BNE
BNF
TF
BB2
ERXV
TFM
B7
ERR
TFM
TF
TFM
CONST
TO
TO
TD
TO
TO
TOM
BNF
TOM
CDNRET B7
TOM
B7
E RBACK TD~l
K
PUT

OU270 ERRET
UU2HO TRACE
00290
00300
oU31U
00320
Ou330
00340 IblC
U035U
UU36U
OU370
OU3HO
00390
00400
OU410 TR[~f"
00420
004:l0
OU440
00450
00460
OU470
00480 SIGN
00490
lJ0500
0051U
u0520
OU530
00540
U0550
00560
OU5 -(0 SIGN2

B7
TF
BNC4
TF~i

B7
TF
AI~

os
ct~

BNH
K
PUT
TFI~

1:17
TRN~I

BNF
BNF
AM
TD~I

8NF
TOM

TFM
AH

TFH
THI
'37
AI~

TDI'I
BNF
Tim
TF~I

ENTRY2
OVFL
ENTRY2-1 ,0, 1011
*+24
FORC E, ENTRY2-1
STNOSV,ENTRY2-1

00640
006:;0
00660 T~I'I
0067IJ
00680 f' I XED
OU690
(j070IJ
007l0
00720
00730 S IGN3
00740
OU750
00 76 0 ,;":' ~,,:, "-,,:'
00770 ENTRY
007HO
00790
00800
00AI0
OOH20
00830
00H40 ENTRST
00850
00860 I:'RRllR
00870
oonBO TRAC EC
00fl90
00900 TClFACC
00910
00920 ERXVC
OU930
00940 ':":' ':' ':' ,; ':'
00950 TeD
00960
00970
009HO
O(J990
01000
01010
01020~'

0J.030
01040
01050
01060
01070
010AO
01090
01100
Oll10 TRA

---"...

-.~-----.-

.._---_ ..

-_...._----

Ai'!
TFI'I

00004
00006
00018
00030
00042
00054
00066
00068
00080
00088
00100
00112
00124
00136
00148
00160
00172
OU184
00196
00208
00220
00228
OU240
00248
00260
OU272
002H4
00296
00304
00316
00328
00340
00348
0031>0
00371
OU 372
OU3R4
00396
0040H
00420
O(J432
00444

ERRET+6,38lU
ERR+12
ERRET+6,3700
ERMES+2* 12,2615
CONRET+6, CONRET+8
ERMES+2*3,STNOSV-l
ERMES+2*2,STNOSV-2
ERMES+2~'1, STNOSV-3
ERMES+2*0, STNOSV-4
ERMES+2*6, STNOS V
I:'RMES+2"5,0
*+24, STNOSV
ERMES+2* 5 tl
,~-*

BB+ 1,9
FORCE
BB+ 1,2
,951
ERPRT
':'-*
3451,3495
3452
CONR ET+6, ~'+2U
CONST
TFM+11,TRNM+6
TF~Hl1,'~-*

,.,

TF ~l+ 11, BUFF+2':' 12U-l
TRI'IM
,951
OBUFF
TRNtH6, BUFF-I
TRACE+44
BUFF-l,ERMES-1,2
FIXEO,2492-1
~R Al,2492-1,7
TRN~I+6, 19, 10
SIGN+A,O
*+24,2492-2
SIGN+8,2
-TRNM-6,02003
TRNM+6, *-~,
TJ\IFADR,2492-2
T;\IFRET+6,';'+20
TNF
TRNt~+6, 4,10
SIGN2+10,1
';'+24,2492
SIGN2+10,2
-TRNM-6,452(),A

FIW.TRAN [) I AC;I\IUS TI C
00580
00590
00600
[)O610
00620 CLt'AR
U063U

pAGE

~i[J

004~;!

"

00464
00476
004RH

,MODIFIED BY F

()U~OO

"

,~10VE

SIGN AND PER IIJD

"

,MIlVE

FXP(J~IENT

00':>12
00':>24
()O'>36
00548
005hO
ou572
OO'jR4
00592
00604
ooh16
00628
00640

SIGN

I) E Lilll

OU6n4
O(,67h
O()68H
Oo69h
0070H
ou 7 20

T[)I~

TFi"!
AH
b7
TR
BNF
TR
TFf'i
TFi'/i

TR
TR
TF~I

fl7
87
l!C
tl7
DC
B7
DC
B7
DC

TI\IF
TRI""1+6, 2,10
-TRNI'I-6,0,1O
TI{I'jfJ,+6, TF~I+11
CLEAR
TR~IH+6, ,;,-,;,
3452
I:R Al,2492+1,7
TI{~q"+6, 1-(, 10

ou-n~
()07~4
[)(j7~6

"

,MODIFIED BY K

Ou764
[)u"l7h
[)(j7HB
(lOLOU
OUH12

SIGI~3+10,O

':<+24,2492
S I GN3+10, 2
-TRNI'i-6, 0020, H
TRf~I~+6, ,;,-.,
CL EAR-32
~I(JOI FY TH E I NCIJRE SUBS
3496, TI{AC CC
','+48,3580
",BRANCH IF NOT FLOAT
3798,ERXVC
ERR+ll,3h20
'HIH,360H
3688, EI{R[lR
3408,TllFACC
2226, ,;,-,;,
-2226
ERR

1,cI

mACE
1,fiI
TUFAC
1,0)
E: I{XV
1, ;,)
CAC[JLAH SUfI.IF CIJ~IS TANTS
TF
INc,2219
AM
INC, 5, 10
INC,2221
C
BNL
~'+24
TF
IHC,2221
AI'i
INC,11,10
A
INC,Ji'lC
FOR F = R
INC vlOULD BE 48
TF
SIG~I+23, 2219
A
SIGI'I+23, SIG~I+23
TF
SIGI'I3+23,2221
A
SIGN3+23,SIGN3+23
S
f'IXEI)+1l,2221
S
TRN~I+35, 2219
TF
ENTRST+ll,2226
TF~i
2226,ENTRY
TRA

---."..

()

158

10

pAl;!:

TRNIH6,4,10
Ti\IFADR ,249;>
TI~FRET+6,'H20

Aivi

00005 -0006
M6 01292 01400
J4 00005 000-M7 00054 01200
MM 01100 00005
KO 01223 00005
42 00000 00000
J6 00302 -3810
M9 00100 00000
J6 00302 -3700
K6 01289 02615
JO 00226 ;-0228
KN 01271 01222
KN 01269 01221
KN 01267 01220
KN 01265 01219
KN 01277 01223
J5 01275 00000
MM 00220 01223
J5 01275 00001
49 00000 00000
J5 01185 00009
M9 01100 00000
J5 01185 00002
34 00000 009~1
In 00565 -0295
4R 0053? -1255
49 00000 00000
26 03451 03495
47 03452 00400
JO 00226 -0348
M9 00124 00000
KfJ 00755 00458
Jl 00755 -(lOOO
00000
JM 00755 -109h
1"1-( 00452 01100
34 00000 U0951
HI 005h~ -0431
4R 00532 -1191
J[J o045H -OR~h
1"19 00348 00000
L- -0856 01264
1"4 00764 02491
i~4 0122 4 -2491
Jl 00458 OOOJ9
J5 00544 O(l()O(l
IJ,4 00536 02490
J5 00544 00002
Jh 0045(J -2003
,)1 00458 -00(10
J6 014?3 -2490
JU 01502 -0592
/viS 014(10 00000
,Jl U045H 000-4
J,) 00650 OODOI
i\i4 00640 U2492
J5 006~O (JOII02
J6 00<,')0 O,'152()

--~

..- . - - - - - - -

OOB~4

OOH.'l6
OU84H

I~IG

HAR[)\oIAR f

SUi,S

J 1 [)()It5H 00()-4
J6 01423 -24"'2
J[J 01 ~II~ -()696
(14 01400 OOO()O
-!l 0045H 000-;>
Jh 0114':>(.) OO()-O
0 4'>B U075~
KH
1'<7 J069h U130(l
Jh ()04·5fl -0000
4q 03<,52 OOIJ(lO
10114 01;>2', -2<·9:,
Jl ()(l4~H ()OOJ7
J"> ()(lK34 (JOOOO
),',4 OOH2<, 02492.
J5 OOH3L, (JOOO2
J6 0()45(J 0-020
,)1 004')8 -OO()O
1""19 00664 OO()OO

p

00856 3J 1.13496
OUH68 I.'! 4 00916
(JUHflO 3J 03'198
OoHY2 Jf, 0009'1
[)()Yll4 ,Ih [)()922
OWl J h 3J 03hHH
oo92H 3J o34ilR
ou94·() 16 02221>
O(J9~2 49 fJ2221'1
OO'JA() 1"9 (IOOR"
009h7 00001
OU96H IVIC) 11030<,
()()9-(~
00001
0097h ,,'9 01024
00983 ()()001
0091-14 ",·;9 00068
00991 00(101

(J09f,b
0351<0
OO59
008<,7 02221
OOK47 00S47
00775 02221
00 4 87 02219
00951 02226
02226 -()RIj6
111 00565 -1191
49 0071h OOO()O
00002 2K
ooon5 -1199
00001 @
oon06 IJ97A3

0

K6
KJ
K6
KJ
K2
K2
Kh
10

/59

HId+8

FORTRAN DIAGNOSTIC MODE LIBRARy SUB

C

01120
01130
01140 BUFF
01150 RMARK
01160 FORCt:
01170
01180
01190
01200

TCD
DORG
DAS
DSAC
CM
BE
TR
K
PUT

01210
01220 BB
01230
01240 OBUFF

TFM
BB
OORG
DPRA

TCD
ENTRY

72
50,
TRNM+6,BUFF-l
BB
-TRNM-6,RMARK-l
,951
DBUFF

01250
SF
01260
SF
01270 STNOSV DS
01280 ERA1
TFM
01290
TFI'l
01300
137
01310 E RPRT
OPRA
01320
01330
01340
01350
u1360
01370
01380
01390
01400
01410
01420
01430
01440
014?O
01460
01470
014t'O
01490
01500
U1510
01520
01530
01540

E R~I E 5
OVFL

DAC
TFM
TF~l

B7
TOFAC

IF
BNF
S~I

TF
HJFIX

BNF
Bfl2
BNF
BB2

TF

TNF

TD
TNFALJR OS
TF!~
S~I

SM
B~!F

TO

TF
TNFRt'T

PAGE

87
DEND

",CHECK FOR EMPTY BUFFER
",YES - BRANCH BACK

TRNM+6,BUFF-1
ERBACK
*-4
,BUFF,S
2492-1
TRNM+35,,67
,*
ERMI'S+2*12, 171 ,9
ERRET+6,B8
ERR+24
,ERM~S, S
14,0000+00 ER A1@
ER~IES+2'n2, 172,9
ERRET+6,I:NTRy2+12
ERR+24
2492,-3407
TOF IX, 2491
3407,2,10
2490, -3407
ERAI-24, -TRNM-35
~RA

1-24, -F I XED-ll

"+30, TRNM+6
l~+23,,.;,-*

,

~:

':'-':',70,10
TNF+30, 2,10
TI~FAnR, 1,10
TI'!F+12,-HIFAIJR
TNF+35, -HIFAPR
-TNF-30,TNF+35
*-':'

01205
01208
00992
00856
00857
01099
01100
01112
01124
01136
0114H
01160
01172
01184
01191
01191
01196
01200
01212
01223
01224
01236
01248
01255
01260
01265
01292
01304
0131h
01324
01336
0134H
01360
01372
013A4
013A6
01398
01400
01412
01423
01424
01436
0144H
01460
01472
014A4
01496
00001

00003 -03
00006 -OOOO@

00144
00100
JM 00458
M6 01184
LJ 0045Q
34 00000
10 00565
4R 00532
JO 00458
M2 0024A

-OA56
01200
01098
00951
-1171
-1191
-OA56
00000

0000:' -0857
00003 K6G
32 02491 00000
L2 004HP -0000
00000
J6 01289 00J71
J[) 00302 -l1A4
M9 n01l2 00000
00005 -1265
00003 K6G
0002R
J6 01289 oon~
JO 00302 -OOlH
1~9 00112 O(J(IIW
26 02492 03'"(;P
1~4 013H6 024'!1
12 03407 0()fi-2
26 02490 0340P
i'ltil 01200 004.iiP
42 00000 00000
Mt'l 01200 OO?71,'
42 00000 00000
KO 01430 0045R
K5 01435 00000
00000
16 OOO()O OOOPO
J2 01.430 000-2
J2 01423 000-1
MM 01412 01'"2l.
KI\! 01435 0142L
Kil 0143- 01435
49 00000 OOO(JO

01504 CORE POSITIONS REQUIRED
PLUS RELDCATION INCRE~IF.NT
00154 STAH~iENTS PROC ESSED

o

/60

"PUNCH RESE1,UENCED SOURCE UECK
PRINTEK
PUT CAR 0
*PKINT SYMBOL TABLE
,:,~,
FORTRAN VARIABLE FORi'lAT L IflRARY SUB
':'ASSEI'IBLE RELUCATABLE
~'STORE RELOADABLF
~'ID NlJ~IBFR 003R
~'lIST
~'OUT

(ID )

~'L

I Bf{

':'ERROR STOP

o
/6/

· ., ___-'--------___
'

......-_-~------."-'-

--..

. ----,--u

~.-

....... .......- ...................................
~

-~

...........--............. .. ,,="'.'-

,...
FORTRAN VARIABLE
SLASHT
NUMRET
F IN ISH
BEFORE
BACK
CHAR

06676
00716R
00310R
01375R
00724R
00509R

FORMAT LIBRARY SUB
00772R
00125R
00052R
01864R
00568R
00905R

REPEAT
GETRET
COMCHK
AM
CAN
CLOSE

01292R
00560R
02104R
00444R
00980R
01616R

PUTARN
GETARN
CLOSE2
ARN
CAN2
CM

015 ~6R
00500R
01752R
00194R
o 1036R
00336R

01928R
04580
00146R
00420R
02014R
01695R
NU~,3
00660R
PUT
00968R
RET
01351R
TOGET 00640R

ER
F
FORER
GO
HTYPE
NOPE
OPEN
RECMK
SLASH
TW

0 226 0R
01440R
02329R
00348R
04602
00828R
01820R
02403
01884R
01540R

ERRET
FAC
FTYPE
GOGO
I
NUM
OVLAP
REDO
STOP
TWO

02320R
02492
04558
00324R
01408R
00372R
02355R
07026
00145R'
01352R

SE ARCH
NUMBER
ERTYPE
A
BACK2
CLOS
E
ETypE
FLOAT
GET2
HSAVE
LOPEN

DRNO
ER2
FIRST
GET
H
K

01 004R
02224R
00242R
00408R
01948R
02221
NU~12
00680R
PLACE 00950R
REP4
07230
TABLE 00872R
XTYPE 073~4

PAGE
OPENSV
FORMAT
CANRET
ATYPE
CAN3
COMMA
ERROR
FF
GAD
GRAND
I TYPE
NUMSV
PAR
REP
SUP
X

01726R
00006R
01248R
04536
01224R
02188R
004 80R
02219
01400R
01l43R
044't8
02278R
03378
07126
00592R
00944R

C

/62

Ff.lRTRAI" VARIABLE:

-----_._._-_. __..

00010
00020
00030
00040
()OO50
00060
00070
00080
00090
001 (lO
(J0110
00120
U0130
00140
00150
001AO
00170
00180
00190
00200
00210

US
DS
DS
OS
OS
US
DS
FTYP~
DS
fTYPE
LJS
HTYPE
IlS
SLASH T DS
[)S
RH)U
REP
US
RE P4
US
I)S
XTYPt
USA
FORf',AT TFfVl

oono

Hi'!

00230
00240
00250
00260
00270
002RO
00290
00300
00310
00320
00330
00340
00350
003/)0
00370
00380
00390
0040()
00410
00420
00430
00440
00450
00460
00470
0()480
00490
00500
00510
00520
00530
00540
00550
00560
00570
005RO
00590

TFt·,
TFI'"

f'F
K
RECMK
Fn
P ilk
!TYPI:
ATYPf:

Trm

~RTYPE,O

I)I~F

S
CF
NUt'IfIER f)S
TF
Fl7
STOP
IlS
FLOAT
S
SI'I
A~I

A~I+11,2,J.0

Tn

FAC+2,RECtJIK
LOPEN,L,34
LOPf~', 5,10
PLACE,LOPEN
GETRtT+6,'H20
GET
CHAR,24,10
GO
CHAR,99,J.O
GE T

TF
TF~i

1:l7
C~',

flF.
CI~

GOGO
eM
GO
"'UI~

BNE
BV
BB2
AM
THI
TF~I

TFM
TFI'I
TH"
TLJ~l

GET
GET2

BNR
TF~I

TF
AM

__ ._--_._--_._-------

'"

LOCATE HIGH llRDFR CHARATFk

'"
",SAVE'

FLAG

'"
",TFST

IF ARRAY

IS

flOATING

,}:'

H

TF

F INI SH

,"'-1
TAI>LE+5, ER
EkRFT+h,Gn
GR/IND, 14'1+ 145
FLOAT, FDR~IAT-l
Gf.'T2+11,K
HJRMAT-l
A 1'1+ 11 ,K
ARN
1
(;ET2+11, FF
FORi"AT-1, 2, 10
AtHll, FF

M·j

P/\(:,':

",FLOATnIG PO I ~IT LENGTH
",FIXED pon'T LEN(;TH
",RECORD MARK
, , , FL OA T I NG ACClIMlJL ATOR

FOR~IAT

TU
fRTYPE OS

FIRST

LIRRARY Slill

,2219
,2221
,2403
,2492
,337H
,4't4P
,4536
,4558
,4580
,4602
,6676
,702A
,7126
,7230
,7354
l;bT2+11, FAC+2
G(,T+]l, F/IC+l
S TUP, FOHHAT-1

H~

ARN

FUR~';AT

PLACE, 5,10
TAf:lLE+5,CDM~IA

NUMRF.T+6,BACK
CLOS,CUJSE
NLJM3+6, NU~ISV-3
GETRET+6, BACK2
SLJP+l,6
GETARN,"-';'
GET+11,*-';'
FAC,FORMAT-1,11

At~

FOR~IAT-l,*-*

SI~

PAR

,1,10

0

'"
'"

PROCESS~S

MANT ISSA llNL Y

'"

" ,S ET UP B~IR TEST
",SAVE LAST OPF.N PAREN

'"
" ,SET UP RETURN ADDRE SS
'"
'" TEST FOR OPEN PAREN
'"
FOR SK I P PARAMETER
",TEST
'"
," TURN OFF OVERFLOW INDICATOR
'"

RETUR~I TO MAINLINF

'"
'" SET UP RETURN
'"
",IN!TIALIZF
'"

ADDRE SS

SET UP RE TURN ADDRESS

'"
",BRANCH

IF NEXT H EMENT NDT NEEDED
" ,INITIALIZE
'" MOVE IN NEXT ARRAY ELEMENT
" ,MOVE TO ADDRESS OF NEXT ARRAY ELEMENT
",TEST IF BEYOND ARRAY

02219
02221
02'+()3
02492
03378
0444H

00000
00000
00000

o()[)on

OO()()O

nol.loo

04~3h

O()O()O

()4'i~H

()()()()()

O'15 P () ()()O(jO
0/+6(12 ()()()()Il
06A-If., O()O()[)
(n02A OOOO()
07126 O()(lOO
On3!) OO()OO
073':>4 00000
(lOO()4 OO(\()5 -nOO6
OOOnh Jh 0043] -24 Q 4
QU01H J6 O!)<119 -24"3
00030 f(~' 00145 00005
00n42 J5 ()IlO52 OOOO(l
(l00S2 00000
(\()n'i4 J(I OOH77 -n60
O()O/)6 JO 0232 I, -034fl
00078 ,)6 01143 -02QO
OU090 i.-wi 0014A oono'i
OOlO;.! K2 (1)<,.31 02;>2]
O() 114 L3 ()OOO'i oonoo
(lOl.?5 OOO()()
00126 K6 On4S') D~?? 1
0013H 109 00194 00000
00145 (JOOOI
001/+1, K? O04'3l 02?19
00 1 ~K J2 00005 00n-2
00170 K6 00455 02?l9
001 H2 J1 0045:' OOO-?
00194 25 02494 02'.1)3
002n6 K6 01695 00434
0021 Fl Jl D169" 00()-5
00230 KrJ 009~O 01695
00242 JO 005hA -(j?h2
00254 t~9 O()40R oonoo
00262 J4 00509 OOOK4
00274 ME> 00348 017(,0
00286 J4 00509 OOOR9
0029H W( 0040iJ 01200
00310 tt,6 00310 0140()
00322 42 ooono 000(10
00324 Jl 00950 000-5
00336 JO 00877 -21 RR
0034R JO 00722 -0774
0031,0 JO (lO90? -lAIA
00372 JO 0066A -2275
003R4 ,JIl 0056A -0?6R
00396 J5 00593 OOOOA
0040H M5 00500 00000
00420 J6 00419 -O()(i(j
00432 2D 02492 OO(iOI"
00444 Jl OOO()5 -0000
00456 12 03378 000-1

0
/63

tHt

....,
PAGE

FORTRAN VAR I ABLE FORMAT LI BRARY SUB

0

0

00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00720
00730
00740
00750
00760
00770
00780
00790
00800
00810
00820
00830
00840
00850
00860
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00970
00980
00990
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
01110
01120
01130
01140
01150
011f>0
011 70
01180

BNN
ERROR
TFM
87
GET ARN TFM
CHAR
OS
A
AM
CM
BE
GETRET B7
BACK2
CM
BL
SUP
BE
TOM
AM
BNR
TOGET
TFM
B7
NUM3
TO
B7
NUM2
TFM
TFM
A
NU~lRET B7
BACK
TFM
TFM
TF
TF
SEARCH C
BNE
AM
SF
87
NOPE
AM
BNR
TFN
87
TABLE
DC
OSA
DC
OSA
OC
DSA
OC
OSA
OC
CLDS
OSA
DC
DSA
DC
DSA
DC
DSA
DC
[)SA
DC
DSA
DC
X
TF~\

GETARN
ERRET+6, CLOSE
ER
CHAR ,0,10
,*-2
CHAR,GET+ll,ll
GE T + 11, 2, 10
CHAR ,0,10
GET

*-*

CHAR,70,l0
NUM2
GET
SUP+l,l
NUM3+6,l,10
NUM3,NUM3+6,l1
ERRET+6,GET
ER
*-*, CH AR
GET
NUMBER,O,9
GAO+6,COMCHK
NUNBER,NUM3+6,l1

'" ,GO

"

TO TYPE ERROR

'"
'"

MOVE TO NEXT CHARACTER
, "CHECK FOR BLANK

'"
'"

CHECK

'"
'"

CHECK FOR PRECEOING ZERUS

IF IT IS NUMERIC

'"

, , ,CHECK FOR TO MANY DIGITS

'"

" ,FANCY - NO
,,,SET UP NUMBER

*-*

'"
SEARCH+11,TABLE
",BRANCH
TO LOCATION CORRESPONDING
GAD+6,CM
BEFORE,NUMBER
RET,PLACE
TO CHAR
CHAR, *-*
NllPE
SEARCH+ll,5,10
SEARCH+ll
SEARCH+ll,,6
SEARCH+11, 7,10
SEARCH, SEARCH+ll, 11, "TEST FOR END OF TABLE
ERRET+6,GO
ER
2,23
" ,CHAR VS CORE TABLE

'"

'"

):~_~t

2,67
X
2,49
I
2,46
F
2,04
CLOSE
2,24
OPEN
2,41
A
2,4R
H
2,21
SLASH
2,45
E
2,@
*-",XTYPE

'"

TRAILER RECORD MARK

FORTRAN VARIABLE FORMAT LIBRARY SUB

0'

01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
013S0
01360
01370
013BO
01390
01400
01410
01420
01430
01440
01450
014f>0
01470
014RO
01490
01500
01510
01520
01530
01540
01550
01560
01570
01580
01590
01600
01610
01620
01f>30
011040
011>50
01660
01670
01MlO
01690
01700
01710
01720
01730
01740
01750
01760
01770

PLACE
PUT
CAN
ORNO

OS
TFf'l1
TFN
A
BP
TFM
TFI~

CAN2

B7
AM

TF
CM
BE

GRAI~O

M

BNP
SF
TF
CM-13
S
TFI'I
CANRi:T BNN
TF
87
AM
RF PE AT TF~I
CM
BI,!H

'"

Ar'1
TFM
OS
AM
SF
BE FORE DS
TF
AM
GAil
B7
TFM
I
TFM
B7
F
TFM
RET
TWO

TF~l

TFM
TFM
B7
CM
fl~

TW

TFM
B7
AM
SF
TF
TFM

DRNlJ+11,2,9
NUNBER, flEFORE
'~+3f>

97
,;;::

NUMBER,99
"+20,OPENSV
CAN3
I,UM8ER, UPENSV
'''+36
97
NUNB ER, 99
GRAND, NUMB ER
NUI~8ER,0,9
*-:o;~

'" ,CHECK

"

FOR MORE THAN 145 COLS.

ERR f'T + 6, C A ~'R E T + 6
~R

PLACE,5,10
-PLACE, RFP
BEFORE,1,10
GAf)+6, ,6
PLACE, 5,10
-P LAC E, *-*
,

'"

",PLACE

IN RETURN AIlDRESS FOR REPEAT

7,~

PLACE, 2,10
BEFORE-1

,

~:~

-PLACE, BEFORE
PLACE,5,10
i,::_*

-PLACE, !TYPE
NU~IRET+6,PIJT

NUM
-PLACEt FTYPE
DRND+1l,1,9
NUMRET+I>,CAN+12
CANR ET+f>, *+20
NUM
CHAR ,03,10
PUTARN
ERRET+f>, "+20
ER
PLACE,2,10
NUMBFR-l
-PLACE, NliMAER
NUMBER,O,9

M6 00500 01300
JO 02326 -1616
M9 02260 00000
J6 00509 000-0
00000
KJ 00509 0041R
Jl 00419 000-2
J4 00509 000-0
M6 00408 01200
49 00000 00000
J4 00509 oooPO
M7 00680 01300
M6 00408 01200
J 5 00593 00001
J1 00666 000-1
MN 00660 00660
JO 02326 -0408
M9 02260 00000
2N 00000 00509
M9 00408 00000
J6 00125 00-00
JO 01406 -2104
KJ 00125 0060[1
49 00000 00000
JO 00783 -OK7/
JO 01406 -(H3h
KO 01375 0Oli",
Kll 01351 O()9'J(1
K4 00509 O()()(IO
1~7 00828 01200
J1 00783 000-5
L2 00783 oon(jo
1~9 0078L 00000
J1 00783 000-7
MN 00772 0078L
Jll 02326 -0348
M9 022 f>O 00000
00002
00005 -0000
00002
00005 -0944
00002
00005 -140R
00002
00005 -1440
00002
00005 -1616
00002
00005 -lR20
00002
00005 -1864
00002
00005 -1948
00002
00005 -1884
00002
00005 -1928
00002
16 00000 -735'.

/64

PAGE

, '''-5
BI:' FOR.E, 0,10
CAN RET + 6, REP EAT -12
NUMB ER, MIMB ER
",DOUBLE ~IUMBER
CAN2
" ,CHECK FOR ZERO
NUN8ER,2,9
ERRET+f>, ~'+20
ER
PLACE, 3, 10
-PLACE, NUMBER
[)RNO+11,2t10
"+36
NUMBER,NUI~BER

TFt"1
M
BNP
SF
OS
TF
BNR
B7

00468
004110
00492
00500
00509
00512
00524
00536
00548
00560
00568
00580
00592
00604
00616
00628
00640
00652
00660
00672
00680
00692
00704
00716
00724
00736
00748
00760
00772
007R4
00796
00808
00820
00828
00H40
00852
00864
00872
00877
00879
00884
008R6
OOB91
00893
00B98
00900
00905
00907
00912
00914
00<;19
00921
00926
00928
00933
00935
00940
00942
00944

'"
" ,GET
"

THAT NUMBER
,CHECK FOR PERIOO

00950
00956
00968
00980
00992
01004
010lf>
01028
01036
01048
01060
01072
010R4
01096
01108
01120
0113?
01143
01144
01156
01168
01l7f>
OllRR
01200
01212
01224
0123f>
012 4 R
01260
01?72
01280
(HZC)2
01304
0131f>
0132 R
01340
01351
01352
01364
01375
0137f>
013RR
01400
0140R
01420
01432
01440
01452
01464
01476
014RR
0149f>
01'-;OH
01520
01532
01540
01552
0151>4
01576

00000
J6 01375
JP 01254
KJ 00125
I~I> 01036
J6 00125
JO 02326
N9 02260
J1 00950
KG 0095J4 01015
M6 0110R
KJ 00125
Jf> 01015
KL 00125
1'17 01156
32 00097
00000
K6 fJ0125
MN 01171>
M9 01224
KL OOP5
M7 01224
32 0()O97
K6 00125
KK (l1l43
J6 0012')
46 00000
KO 0232"
M9 02260
J1 00950
JA 0095,14 01375
M7 01400
J1 0095(l
Jf> 009500000
J1 00950
1.2 01374
00000
KO 0095J1 00950
49 0000(1
Jf> 0095.)n 00721'
M9 00372
J6 0095J6 (l1015
JO 00722
JfI OU54
M9 0(1372
J4 00'i09
Mf, 01596
.In 0232"
M9 022f>O
J1 OO9'iO
L2 00124
K(] 009'iJ6 001?':>

000-0
-1280
00125
01100
00-02
-1036
000(10
000-3
00125
000-2
01200
00125
00-02
01375
01100
00000
00099
0172f>
00(100
0172f>
ollno

ooorlo

00099
00125
00-00

onoo
01?54
00000
OO(l-'i
-7126
()(JO-1
OilOO
000-1)
-0000
000-2
00000
0137"
OOO-'i
00000
-444R
-0C)6R
00000
-4'i5K
00-01

-oqq?
-14%
(lOO(10
000-3
01Z00
-1~40

00000
000-2
()(l(l() 0
0017':>
OO-()()

165

_- __

---_.__.._-_... .. ._"

--."'.~

...

~.~~-

----.- ...- - - -.. -.-..

-.,~--~--~--~,

..-.. . -.>--..-

....................................' '.....

..~

...

,

..

--,.'~

,......

I~

',II
FORTRAN VARIABLE FORMAT LIBRARY SUB
01780
01790 PUT ARN
01BOO
alB 10 CLOSE
01B20
01B30

B7
TFM
B7
TFM
B7
BNR

01B40

TFM
AM
SM
TFM
01870
[JS
01880 LOPEN
01890
C
01900
BL
01910
RCTY
01920 OPf'NSV DC
WATY
01930
01940
CALL
01950 CLOSE2 TF
01960
TO
01970
TF
01980
TFM
01990
TFM
02000
87
BNR
02010 OPEN
02020
TF
02030
TF
02040
B7
02050 A
TFM
02060
B7
02070 SLASH
TFM
02080
TFM
02090
TFM
02100
B7
02110 E
TFM
02120
B7
02130 H
TFM
02140
TF
02150
TFM
02160
TFM
87
02l 70
02lRO
TOM
02190 HSAVE
oS
TFM
02200
02210
87
02220
AM
02230
TF
02240
S~I
BH
02250
02260
HJM
02270
B7
022fJO C(JI'iCHK CM
02290
BE
02300
CM
02310
BE
02320
TFM
02330
CM
02340
BNE
02350 COMMA
TFM
02360
TFM

gUE8

FORTRAN VARIABLE
02370
02380
02390
02400
02410
02420
02430
02440
02450
02460
02470
024BO
02490
02500

TFM
ER2

ER
NUMSV

ERRET
FORER
OVlAP

C~I

TFM
BE
BO
RCTY
DC
WATY
BNF
TOM
B7
[JAC
DAC
OEND

REPEAT-12
NUMRET+6,TW
NUM
ERRET+", "+20
ER2
CLOSE2,OPENSV
-PLACE,REDO
PLACE, 5, 10
LOPEN,5tlO
-PLACE,*--'
,*
PLACE,2231
F IN I SH
3,@,*-5
OVLAP

PAr,E

",
",SET UP RETURN ADDRESS

'"

BRANCH IF NOT FINAL PAREN

'"
'"
UP
",FINISH
"'" ,CHECK FOR
'"
",FATAL

EXIT
BEFORE,OPENSV
OPENS V, R ECMK
RET, LOPEt\1
-PLACE,REP4
GAO+6, CM
REPEAT+12
EKROR,OPENSV
LOPEN, PLACE
UPENSV, NUMBER
GO
-PLACEt ATYPE
1+12
-PLACE. SLASHT
GRA~}D, 145+145
ERRET+6, GOr,o
ER2
-PLACE, ETYPE
F+12
-PLACE,HTYPE
HSAVE,NUMBER
BEF[]RE,O,lO
CANRET+6, 'H2O
CAN
GETRET-ll,l
,*-1
GETRET+6,':<+20

'"
" ,SET

FORMAT
OVERLAP

ERROR

UP LINKAGE TO REPEAT

'" ,YOU NEVER KNOW
'"
NUMBER OF
",SAVE

"

'"
'"

REPEATS

SO MUCH FOR A FORMAT

'"
",STOP BLANK Supp RF SS ION
'"
" ,S ET UP RETU~I ADORESS

GET
PLACE,2,10
-PLACE, CHAR
HSAVE,l,lO
GET
GETRET-ll,6
GUGO
CHAR,04,10
CLOSE
CHAR,21,10
SLASH
ERI{FT+6, flACK
CHAI{,23,10
ER
TABLE+5, ER
CLOS, ERROR

rUR~IAT

BLANK SUPPRESSION

LIBRARY SUB

ERRET+6,GO
NlJi'iBER,0,10
NUMBER ,0,9
ERI{ET+6,,6
ERRET+6,F.P,TYp!',6
~,@,

'"
",RETURN

015BB
01596
01608
01616
01,,28
0163"
01,,48
01660
01672
01684
01695
01,,96
01708
01720
01726
01732
01744
01752
01764
01776
01788
01800
01812
01820
01832
01844
01856
01P64
01876
01884
01R96
01908
01920
01928
01940
01948
019,,0
01972
01984
01996
02004
02014
02016
0202R
02036
02048
02060
02072
02084
02096
02104
0211"
02128
02140
02152
02164
02176
021Rfl
02200

4
M9
JO
M9
JO
M9
MN

012BO
00722
00372
02326
02224
01752

00000
-1540
00000
-1,,36
00000
0172"
-702n
5
009
J"
J 1 0 09 50 000-5
J2 01,,95 000-5
J6 0095- -0000
00000
K4 00950 02231
M7 00310 01300
34 00000 00102
00003
L9 02355 001<'0
49 00796 00000
KO 01375 01726
K5 0172" 02403
KO 01351 01£-95
J6 0095- -7230
JO 0140" -0336
r~9 01304 00000
M~I 00480 01726
Kfl 01695 00950
KO 01726 00125
M9 00348 00000
J6 0095- -453"
M9 01420 Clonon
J" 0095- -6676
,J" 01143 -0290
JO 023?6 -0324
M9 02224 00000
J" 0095- -45(Hl
"19 01452 O(lOOO
J" 0095- -40.02
KO 02014 0011'')
J6 01375 000-0
J(l 01254 -200t,
M9 OO9AO 00000
J5 Oo54Q 00001
00000
JO 0056h -203h
M9 0040A 00000
Jl 00950 000-2
KCl 0095- 00509
J2 02014 000-1
M" 0040A 01100
J5 00549 0()OO6
oooo(J
~19 0032"
Jl, 00509 000-4
,.,6 01,,16 01?(JO
J4 00509 OOOKl
M6 01884 01Z00
J[] 02326 -07?',
J4 00509 OOOK3
M7 02260 01200
JIl OOH77 -27.,,0
JO 00900. -04RO

(~

/66

PAr,E

'"
" ,TYPE

':'-5

FORER
796,STOP
ERTYPE,-l
*-~:-:.

13,FORMAT ERROR@,
15,FDKMAT OVERLAPo}", ,
1

'"

ERROR MESSAGE ROUT INE

02212
02224
02236
02248
02260
022·72
02278
02284
02296
02308
02320
02329
02355
00001

Jfl 02326
J4 00125
J6 00125
M6 02320
ML 02320
34 OO()()O
00005
L9 02329
4M 00796
J5 00052
49 onooo
00026
00030

-034R
000-0
00-00
01200
00052
00102
00100
00145
OOOOJ

oonoo

02384 CORe POSITIONS RE(JlJIRED
PLUS RELOCATIOI\I INCR EMENT
00250 STAH:t~ENTS f'I{UC ESS ED

/67

0

•.'--.--
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-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2014:03:13 15:33:02-08:00
Modify Date                     : 2014:03:13 15:59-08:00
Metadata Date                   : 2014:03:13 15:59-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:cf5f111b-329a-cd40-a44f-66b16deabc6b
Instance ID                     : uuid:212cf26b-50ab-ad4a-ba25-d6a3ea59f46f
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 88
EXIF Metadata provided by EXIF.tools

Navigation menu