1620 PR 025_1620_Monitor_I_Listings_and_Flowcharts_Jul63 025 Monitor I Listings And Flowcharts Jul63

1620-PR-025_1620_Monitor_I_Listings_and_Flowcharts_Jul63 1620-PR-025_1620_Monitor_I_Listings_and_Flowcharts_Jul63

User Manual: 1620-PR-025_1620_Monitor_I_Listings_and_Flowcharts_Jul63

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

Download1620-PR-025_1620_Monitor_I_Listings_and_Flowcharts_Jul63 1620-PR-025 1620 Monitor I Listings And Flowcharts Jul63
Open PDF In BrowserView PDF
OR. JOHN MANI
COMPUTER TECHNOLOGY DEPT
PUROUE UNIVERSITY
CALUMET CAMPUS

HAMMOND. IN 46323

COMPUTER
TECHNOLOGY
1620 Monitor I (Listings and Flowcharts)

1620 - PR -025
1620- PR -026

1620 MONITOR SYSTEM SPS II·D IJSTINGS

1

SPS 11-0
00010
OOO~O

0

00050
00060
00010
00080
000'10
00100
00110
00120
001)0
0')1 ~o

SP8L
SMPBl
SYMTBl
LOSYMB
SBFAOo
L8lIM
MAKlIM
•
IPrSPB
2pr SPB

OU.l. ~u 8P20K

00160
00170
00180
001'10
00200
00210

Dono

2PRrro
0

AIoAo
41ser
AloAo
user
AloAo

Oil,'10 AlseT

OO}40 'o\OAO
002'0 Hse T
OOlhO HoAD
00270 ASse r
00280 SSrDAo
002'10 SSTser
00100 MsrOAO
00310 MOSoAo
00)20 810AO
OOHO 81ser
00 HO 82DAO
003~0 S2seT
00360 830AO
OOHO 83seT
00380 83MAO
003'10 B4oAO
00400 BHeT
00410 B50AO
00420 B5se T
00430 86oAo
00440 B6seT
00450 OIMOAO
00460 DIMseT
00470 EOOAO
00480 Eose T
00490 PHeDAO
oosoo PHe se T
00510 SUBOAO
00520 ..
00530 Mose T
00540 MODOC
005~0 Moeroe
00560 Mo~AME
00~70 MOIONO
00580 M[JMl

PHASE A

PAGE

JULY 11,1'161

OORG 2218
SYII.OL TABLE PUAMETERS
OS
SECTORS PER BLOCK
, 40"
OS
SYMBOLS PER BLOCK
t
215"
05
, 16001,
HI-ORDER POSITIO,.. OF SYIIBOL TABLE
, SYMTBL_SMPBLoI7-1,
LD-ORDER POSITION OF SYMaOllC BLOCK
05
OS
, LOSYMB-SPBLol00+l,
SYMIOLIC BLOCK DISK ADDRESS
OS
, LOSYMB+ 12,
lD-ORDER alaCK LIMIT
IIUIIIUli lIlin
OS
, SYMTBL-6,
EMPIRICAL SfcrOR ASSlGNME,..r PARAMETERS
OS
I-PASS TOTAL SECTORS PER SYM. BLOCK
.1500,
OS
2-PASS TOTAL SECTORS PER SYM. BLOCK
.600,
,5,
OS
SYMBOLIC BLOCKS PER 20K CORE
OS
,20000,
2,-PASS RATlD--I,..reRM./FI"'AL SECTORS
SPS DISC ASSIG,..ME,..T PARAMETERS
OS
CU,..TROL STATEMENrs, PH.A SUBROUTINS
.18600.
OS
.t 37
,..ORMAl PROCesSI"'G--FREQUE~T srMTS •
oS
• 18800,
OS
,54
OS
TRA, CAll, GET-PUT AND ASSOC OECL
,18854,
os
,22
OMES, OVle PROCESS
.18816,
,21
OS
OENb, Teo, AND SYMBOL TABLE LIST
OS
,IB711,
OS
,29
os
,18899,
SYSTEM SYMBOL TABLE
,35
OS
MASTER SYMBOL TABLE
OS
,SSTOAO-SSTSCT,
MONnOR COMM SECTOR DISK ADDRESS
OS
,19663.
OS
,18969,
PHASE B INlTlAlIlArrON
OS
,20
INPUT, BRANCH TA81'E, SCAN
os
.19200.
OS
,S2
OS
,19000,
llNPRT ,INSTRN,OC,OSO"'B,OAS,OORG
OS
,6'1
OS
,09100,PHASE B3 MEMORY AOORESS
,19069,
RSTR,OAC,AlOW,OMES,OSB,OVLC,OGM
OS
US
,53
OSA ,MACRO,OOA,rRA,OENO
os
.19122.
os
,2'1
CAll LI,..K,LOAO,EXIT
os
.19151,
OS
,29
OS
,04800,
DIM E~TRY FOR EOUIV. TABLE
OS
,I
,0,
OS
EQUIVALENCE TABLE
,4
os
OS
,19152
OS
,40
us
,04808,
SPS SUBROUTINE DIM E,..TRIES
MON ITOR COMMUN I CATI O~ PARAMETERS
os
MONITOR eOMM SECTOR MEMORY ADDRESS
.16000.
OS
,MOSC1+22,
01 SC OUTPUT CODE
CO-TP OUTPT CODE
os
,"'05C'+23,
,M05cr+35,
NAME
OS
as
10 ~UMBER
,Moscr+39.
OS
,Mose '.41,
MA~T. LE"'GTH

os

02218
00040
00215
1600)
19991
15991
20009
15991
01500
00600
00005
20000
18600
00U1
18800
00054
18B54
00022
18876
00023
18131
00029
18B99
00015
18934
19663
18969
00020
19200

o

o
o
o
o
o
o
o
o
o
o
o
o

o
o
o
o

o
o
o
o
o
o
o
o

o
o

o
o
o
o
o
o

000~2

19000
00069
09100
19069
00053
19122
00029
19151
00029
04800
00001
00000

o

o
o
o
o
o
o

o

o
o
o
o

OOOO~

19252
00040
04808

o
o
o

16000
16022
16021
16035
16019
16041

o
o
o

2

SPS 11-0
00590
00600
00610
00620
00610
00640
00650
00660
00670
00680
00690
00700
00710
00720
00i30
00140
00750
00160
00170
00780
00790
'00800
00810
00820

MOSBNO
MONOIS
MOEXEC
MOMAO
SYSCAL
~O~EX

peK
•
IOU
10PT
10GT
IORBe
10SK
lOCAL
MONCAL
10eSAO
•
•
•
OUT

OS
OS
os
OS
os
OS
os

,565

OS
OS
OS
OS
OS

.520

PAGE

JULY 11,1963

,426.
, 415,
,415,
,1t57.
,2365
10RT E~TRIES

os
OS

os

PHASE

,Mose T+41,
,Mose T+It"..

SU8. SET
NOISE DIGIT
EXECUTE CO~TROl AND SPS I,..PUT
MEMORY AOOR
SYSTEM COMMON ACTION lOCATION
NON-ExecUTE FOR JOB ERROR

,IJ32
,566
.554
,00116
,00796
,I9183,AOORESS OF THE LOADER' CALLER

16M3
1604~

00426
00415
00415
00457
02165

o
o
o
o
o
o

o
o
o

00565
00532
00566
00520
00554
00116
00796
19783

o

o

o
o
o
o

SPS COMMUNICArrON AREA

1 EPO

OS
OS
os
OS
DC

I
80
2
BI

02218
02298
02300
02381
02382

I
BO
2
Bl
1

00BI0 LNTH
00840

OS
DC

5

02387
02388

5
1

I,'

I, '

00850 AJUST

INSTRUCTION PARITY TABLE
DC
11,2121212121"
-2121212121
00B60 THINGS DC
21,0010203040506010000'
-0010203040506070000 '
00870 COll
OS
19
00880
OS
2
00B90 NUMB
DC
7,'
-00000'
alPHA PARITY' TABLE
00900 JSTBl DC
11,3232323232"
-3232323232
00910 EVOOO DC
OMES PAR ITY TABLE
10,0101010101"
-10101Dl01
00920 0
PROCESSOR CONTROL SWITCHES--FlAGGED 1-0,.., U,..FlAGGED
009)0 STPCSII DS
PUNCH SYMBOL TAIILE
I"
TV PES YMBOl TABLE
00940 S nYSIl OS
I"
00950 STPRSII oS
PR I NT SYMIOL TAlIl E
I"
BEGIN
TYPEWRITER INPUT
00960 TYI NSII oS
I"
BEGIN CARD INPUT
00970 COINSII DC
1.1 ..

J
00980
00990
01000
01010
01020
01030

PTI NSII
EIISTSII
2PSSII
RELSII
L SCDSII
LSrvSN
010~0 LSPRSN
01050 PC,..USN
01060 INTR SN

05
DS
05
oS
DS
OS
DS
oS
OS

1 ..

1 ..
1 ..
1 ..
1 ..

1 ..
1 ..
1 ..
I ..

BEGI,.. PAPER TAPE I,..'UT
ERROR STOP
TWO PASS MODE
ASSEMBLE RElOC'TABU
LIST CARD
LIST TYPEWRITU
LI ST 'RINTER
PU,..CH RESEQUE"ItED SOURCE DECK
INTERRUPT

02199

11

02~20

21

02439
02441
024U

19
2
1

02459

11

02469

10

02410
02~1l

02472
02411
02414
02415
02476
02477
02~1I

02479
02UO
02411
02Ul
0241)

3

IPS

II-D

'H'II ,

JilL., H,19&1

01070 II.nsul DS
I"
,,0
DIDIO tTn
Ot
-0000
010.0 INeODI DC
I"

-,

01100 OIJtU os
01110 ,aot. . OS
01110 'ULIII OSA

'1O..f

011)0 HtL III

LaUII

DS"

,

OU.O

Dt

NO SU,laut 11111

.-.
t ••

Dt
SUTElltNT tDUNT
t,l ..
-0001
Dt
HIGH 'DOlUS
-0000
01170 L
DS
LtNGTH OF IIANTISSA
I"
OUIO NOISE OS
1
OU'O SUIND OS
2
01200 PltKUP OS
S
01210
Dt
1,1
J
01220 ISraT DC
)0,0'
-0000000000000000000000000000'
012)0 $PSGII DGM
012.0 INKRM OS
01250
DC
I, '

,,0 ..

,

,

01260 TE"PII
01270

os
DC

,

5
I, '

01280 RMRK
012.0

OS
DC

OUOO ONU

10,1
DC
-000000001

0IHO'
OUZO,
OU30 •
01,.0
01150 CFF
OU60
OU70
OU80 CFFDEF
OU'O CFFA
01400

0,-.,0

,

DC

I

01."
01."
01101

I
5 X

OltOl
OU07

-0000
5 X

01507
02501

11.000.
1

OZSH

5

DUll

5

01510
DUll
OUU
02121
015"

I
I
2
5
1

02159

30
1
1

OUll

5
1

02515
OlS"

)

02116

10

onu

I,'

5
10lT,"n
lOGY, CFPDEF ,7
tpF-I ...
2.Z2 ••

.-.

ABSOLUTE DUll. NOT .. lONG LEII;T"

02591
02592
02604
OZ616
G26U

1

...
49

5
00565
00566
0259J
2

-0000
I

0162.
D2UO

1,'

OS
1
01420 IOAODR DC
5,O"FILE ADORns OF IIITIIIIIDUTI OUTPUT
-0000

-16i'
-2623

5 x

026Z.

"'URI

' I

,

021.0
on.,
on••

IDeS CUL-LDAD 'ROCUSOR SICTIIIII-IID WLit
OS
TF"
8
87
DSt
2Z
OSA

1

02•• 1
DlJlCT !lACHIIil SUI
'IOClnOI ...CHI. 5111

01150 STtNT

OU60 HIADD

"GI

,
,

01. . .
0,.••

OZ6U
02U.

'I
SPS 11-0

'HUE A

014.0
01500 TAPIN

DC
-6'
DSA

OZ •• 1
OZ641

026"

oz."

1,06'

OZ'U

IN'UT-l0

02. . .
DZ"6

J,OI'

o,.n

OISZO CAIIDIN USA

IN'UT-l0

02664

01530

J.I0·

OZ . .4
02667

01510

DC

-I'

DC
JO'
01540
OC
-0
01550 S8tNT OC
-0
01560 AOOCDW os
01570
DS
01580 ALPHA DS
01590 BETA
OS
01600 UIGITS OS
01610 ClfllEII DC

58"".

016Z0

3

5 •
-28n
3

02 . . .

5,'ICII.UP
1
10
10

02UI
OUU
OZ6U
O".Z
026. .
oz. . .

5
I
10
10

Dz.n

u

1,0

01660 INPUT
OIUO
01 . .0
01'90

DAS
OAS
DIS
DC

.
••1.' ,-

DAS

,,,

n,'

OSS

5 •
-lin

OUll

01640 INSAY
01650

01700
01710 INPUTZ
017Z0 SUiENT
olno DIISY
01740 WlSYW
olnofll.IlCE
OlltO ulllnG
01170

5 X
-zln
3

2,0

DSC U,O
OOOOOOOOOOOOOOOOOOODOOOOOO
Dse
OOOOOOOOOOOOOOOOOOOOOOODOO'
DAS 61
OAC 5,

OIUO

2

2,00

)

6

1
217

OS
OS
OS
OS
5
DS
1
,,0
DC
-0000
01710 LIMITS DC
5,0
-0000 '

.,

4

PAGE

JULY ll,lt"

01410 SYMTAD DC
5,OZ600"FILE ADDRESS OF SYMIDL TAItE
-Z600
01440 SBDur DC
Z,O
-0
01450 •
01460 •
END SPS CDIIMUN I tA TI ON All ...
01HO •
01480 TVPIN OSA IN'UT-l0

3

I

Dun

Z7

OUIl
olin

61
5

Z
2

Ollil
01."
OZ.OI
olon

66
I

.

2
2
Z

olon

OMI6
olin
OJ261
01161
ONn
OMU
Ollll

DUll

5

6

I •
Z17
5
S
5
5
I

,
5

PHASE A

OS
DC

II
I ••

O)2M,
OJ296

.,

•2,+'

0'1199
OJlIl

01100 AIIIIU
01110

.

DAS
Dlt

.

.

01"0 lU
01110

'OS
DC

1.'

01180 FlGRM

DC

1,'"

01890
01900
01910
01920
019]0
01940
01950
01960
01970
01980
01990
02000

Il
I

• ••
2

12
FLAGGED RECORO MARK

SMODf
DGSV

OS
1
OS
1
OS
1
OS
5
fell'
RE-ENTER STATEMENT.'
CORM
DAC
RE-ENTER STATEMEI'IT.'
5AlPHO DAC 5,00000
00000
•
•
READ INPUT
•
PHASEA TOil ERROIG,O
10
READ2. CDINSW
80,;·,IIE.&OI. PTINSW

".

2
2

10

onn

01 •• 0 lO'OUT DC
10.0
-000000000
01no
DAC z.

•

PAIl

JULY 1l.1,.)

I.'

DC

01120 EllUl
01130

11-0

'"

Ull.

01790

OIlO

2

03))9
on.o

12
1

•

2

0]).'
on.2
0]).)
on••
OU.9
03]51

1
I
1
5
22 •

Z

oun

5

2

15

on73

4]

03636
03604

00000
024T4
02U5

00102
-2901
000-2
-0000
2

03.04
03.'6
03UI

.3

02010 •

02020 0
02030 0
02040 READ3
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02170
02180

RUll

T,!~fWR

ITER

Rcn
IFII ," •• 30, INPUT.18"
AM· :.;.:&...I •• l., 10.
TFM; :-"-:.';.

DVERlAV I"PUT AREA WITH
RECORD MARKS

~A~~~·."'.
eJII' ," e-6,INPUT+140
Bl
TF
TF
TF
TFM
8
8NC"
WAry
87

e-16

INPUT-2, ClERER'9
I NP,lJT+ 10, CLERER+ 1\
INPUTe\8, CLERER+l

IORT,·.23
IDIOT, TYPlN-" ,1
PRDSTM
CORM
READ]

03"0
03452
03464
03476
03487

3.
16
Il
16

00000
03412
03482
00000
1

03481
03500
03512
03524
03536
035.8
03560
03572
0358'
03596

'4

n

03482
03U4
021"
02893
02901
00565
00566,
03912
03351
034100

-3023
01300
02705
02701
02103
-3571
-2644
001000
00100

16
.9
49

00565
00566
03912

-3621
-2652

U

26
26
26
16
.9
47
39

•

02190 •

02200 0
02210 0
02220 READI
02230
02240

READ PAPER TAPE

tORT,-.23
IOGT,TAPIN-4.1

TFM
B
B7

03604
03616
03628

PRDSTM

II
SPS 11-0
02250
02260
02210
02280
02290
02300
02310
02320
02330
02340
02350
02360
02310
02]80
02390
021000
02410
02420
02430
02.40
02450
02460
02470
02"80
02490
02500
02510
02520
02530
0".0
02550
02560
02570
02510
02590
02600
02.10
02620

0
0
0
READ2

R28E

PHASE A

PAGE

JULY 11,1963

READ STATEMENT FROM CARD

JORT,·+23

TFM
B
BNF
BNR
TFM
CM
BE
TF
TD
TO
TO
TO
IFM
B

03636
03641
03660
03672
0361.
03696
03101
03120
03732
031 ••
03756
03761
03110
03192

IDGT,CAROIN-4,l
RSCAN,PCNUSW
0+21o,INPUT-l0
INPUT-IO,OO.IO
INPUT-IO,llooiO
RSCAN
INPUT-02,5ALPHO+8
INPUT-04,STCNT
INPUT-06, STCNT-I
I NPUT-08, S TCNT-2
INPUT-IO,STCNT-3
10RT ... 23
IOPT,CARDIN-4,T

.,
16
49
44
16

14

'I'
26
25
25

25

as

16
.9

00565
00566
01104
0369•
02173
02813
011010
02811
02179
02871
02875
02873
00565
00532

-3659
-2660
02482
02813
000-0
OOOJIo
01200
03.03
02513
02512
02511
02510
-3803

OUT5

-3022
-3023
00000
2

03i75

000-2
000-2
00000
00000
-2901
0'.100

6

-266,0

0

.

FINO RIGHTMOST CHARACTER OF STATEMENT ANO PLAcE A
RECORD MARK AFTER IT

0

•

UCAN

RSIO

.

TFM
TFM
TFM
OAC

RS80-I,INPUT+139
RS8D+ 11.1 HPUT+ 1100
RSBD+I1 •••

SM
SM
BO
BO
CM
BH

RSID-I,2,lO
R580+11,2.10
PROSTM.o-o
PROSTM.o-o
RSIO+11.INPUT+18
RSCAN+2"

•
0

1,',*

02700
OUIO RJE
onzo
onao
017"0
onlo
01"0
02170

16
16
16

03140
03852
03 •• 4
03876
0111.
03900

12
1Z
U
U
I.
.6

'1.03,11
11"_
'" ,'I x
0~117

039U
03'112
03117
03UI

CLEAR FOR INTERMEDIATE OUTPUl
PROCOII
•• 24, INPUT.20
INPUT.22. 00000

01912
01924
03916
OJ9oH

Til.
TR
'AM
lDM'
10
TDM
DC

INPUT2, ClEII.E"."6
INSAV-l.IIIPUT+l9
STCHT ,1.10
LOAISW. I.ll
RlE. ZPSSW
I NPUY2+99

0394.
03960
03912
0391.
03996
0.001
04019

TR
AM
.NR
T'"

IN,ura.l. INPur-11
II.... M. 1,10
'.24,INPur-10
INPUT-1O.OO,lO
PlACI, AODCQW
AODeaw."'"

04020
04011
0100."
04016
040••
0"0111
0"0'1
0410.

PROSTM 8
IINR
TFM
DAc

02630
02640
02650
02UO
02670
02610
02690

'01104
. .1'038"
01121
03839

"

cll

•1

C

1,',-

1.' ,.

..".

AODCOW,HIADD"

HI ADOUSS TO HIAaD

.,••
16
]I
]I

II
l'
U
15
]I

11

u

"

a.

".'"
1"

7

llOl4 00000
03941 02903
02905 -0000
1 X
2
03036
02750
02513
0830',
0.032
DUn
I
030.4
0.16.
0"0"
Dina
01171
IIUU
11"1"0
oun

02742
QUOI
000-1
OOOOJ
02411
00000

02112
1100-1
oun
1100-0
01111
R. . . .
OUOO
0211.

....\

\

5'5 11-0
02110
02790
02100
02110
02120
028)0
02840
02850
02160
02810
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970

TF
INR
87

eM

aNE
80
SO
aTM
•
•
•
RLOPI

RLOP
•
ER2

02~80

02990
01000
0)010
0)020
0)030 OP
0)0"0
0)050
03060
03070
03080
03090
03100

03260

03270
03280
03290
03300 •
03310 ALFOP
03320

,

TFM
AM
CM
aE
8"R

uln

04&16
0412.
04140
041'2
04160
04112
04114
04196
04201

41
26

04220
04212
04244
04256
04268

II>
11

4S
49
14

H
43
43

11

01100
OlSU

04140
01511
04160
04280
021n
04220
04201
03404
09958

-3404

04279
04279
04279
04)52
04232

-2111
000-2
-2895
01200
00000

olin

000J4
01200
0]273
02477

FIELD.

ALOP'II. I NPUT-l
RlOP+l1,2,lO
RLOP'II. I NPUT'12
OP
.-)ft

RECORD MARK IN LABlE FIELD.
TFM EVAlER-I. 20000
DC
1,' ,EPRINr.EPRI .. r-\
I .. PUHIO. CLERER'II

ST
rF
80
TR
80
C
8E
TF
TFM

1

"GE

JULY 11,1"3

CHECK FOR RECORD MARK IN

•
•
•
•

0)110
03120
0)130
0)1"0
03150 RMOP
03160
03170
03180
03190
03200 •
03210 OPI
03220
03230
0)240
03250

PHASE

•• 24
HUOO,AODCOW
•• lO.INPUT
E_l
IN'UT.14,10
RLOP!
'.24.ERROIG
PHUEA. 2PSSW
OUTPUT. PHUEA

INM

D.24, 2PSSW
IHPUT2'8. INPUT-II
ERCOR. ERSTSW
CLERER'II.INPuT'IO
D+36
ERLA8'10.1 NPU" 10
IHUM.O

14
41>

45

04210
04291

16

01)4)
I

KOOOO

04292
04304
04316
04328

21

07604
0289)
04340
030""

0160)
02707
02471
02812

0"'1>8

02471>

02701
04400
03309
02565

02893
01200
02193
-0000

04340

04352
04)64
04376
04311

21>

43
)1
43
24
4f>
21>

16

PROCESS OP CODE
TFM
AM
CM
8E
8NR
TF
80
TR
67

CHECK FOR RECORD MARk IN DP CODE.
RHOP. 11, INPUT+l0
RMOP+l1,2,lO

RMOP+ll,INPUT+20

04400
04412

16

0~"24

14
46
45
26
41
31

OPI

04431>

*-]6,··0,7
INPUT+18, ClERER+7

04"48
04101>0

•• 24, 2PSSW
INPUT2+8. INPUT-II
fR3
TEST FOR A8S0LUTE OP CODE
TO
•• 46,INPur+l1
TO
*+35.INPUT+13
CM
*.23,77.10
8NE ALFOP
C
CLfRER·).INPUT'lB
8NE UFOP
TO
INPUT2. INPUT+12
INPUT2+1. INPUT.l4
TO
8TM
INSTRN. 00INST+2"
SCAN OPCOOE TA8LE
TFM SHF'II.rNPUT'18
TFM ALHPI '11. OPLCTB+15

0~H2

041084
0""96
04504
04516

11

"9

04588

25
25
14
47
H
47
25
25

0"1>00

11

04612
04624

16

0~528

0"540
04552
0451>4
04576

16

04459
0""59
0".,.')9
0"504
0"412
02901
041096
03044

-289)
000-2
-290)

01200
-0000
02103
021077

02872

04841t

0"550
0"551
M551
0"612
02699
0"1>12
03036
03037
10528

02894
02896
000P7
01200
02901
01200
02895
02897
J0656

010755
04667

-2901

-"92]

b

SPS "-0
03330
0))40
03350 ALFLP I
03360
03370
0))80
03390
03400 ALFLP
OHIO
OJlo20
0310)0 SHF
034"0
0)450
03460
03"70

03480 ZP
0)490
03500
0]510
03520 •
03530 ER)
0)540

e

SNE
SM
SM
87
TF
C
BE
B7
TFM
DC

PHASE

JULY 1101963

S HF , INPUT + 11
ER3
IP+l1 • • - .
ALFLP+II. SMF,"
lP+18. SHF+ll
ALFlPtll, INPUT+7
·+20
1P+l1 • • -.
lP, IP+ll.ll
ER)
CLERER.l, e-e
UHP/
ALFlPI+l1, 5,10
SHF+ 11 ,2 ,10
SHF

80
87
TF
TF
TF
SM
87
AM
BNR
87

ZEPO+30, . - .

.-*,

lEPO+27

OK

ALHP
INVALID DP CODE
E VALER-I. 30000

1,' ,.

03550
03560
0)570
0}580

BT
EPR INT, E PR I NT-l
60
fRCDR. ERSTSW
TFM
INPUT2+1, 041, 9
8TM
I~STR~,LDL8L
0)590 •
LOCATIONS OF SECTIO~S OF OP-CODE TABLE
01600 OPLCT8 OSA A, 8. C, 0

PAGE
0"636
041>48
04656
04668

43
49

041>80
04692
04704
04712
04724

26
12
49
II
45
49
24
41
12
12
49
26
H
46
49

04131>

04144
04756

04768
04780
04792
04800
04812
04824
04836

21>
21>

04144
0484"
04811
010723
04818
04123
0"12"

o"ell

0"800
02691
0"656
04667
04755

-0000
0481J
00000
01200
000-5
000-2

0474"

02))0
00000
0492"

00000
02327
01200

04112

16

OHio]
I

04856

21
43

07604
07468
03037
10528

II>
17

00000
010755
04755
-2890

048""

04844
04855
0481>8
04880
04892

02894

LOOOO
011>03
02471>

00-"1
-81>86

5 X

04908
04908
04913
04918

4

J3871
J3928
J4252
J4884

0~92l

03bl0 •

.

03620 •
03630 •
03hO
031>50 OK
0)660
03610
03680
0)690 GOODa
03100
03710
0)7;0
~:

':0

.:Y,,.O
0)750
03760
0)710
03780
0)790
0)100
03110
03120

USI .. G THE LAST DIGIT Of THE O'CODE E~TRY GOOD I IS
MODIFIED TO 8U ..CH TO THE CDUECT E~UY IN aut
TFM
TO
A
Sf
8

GOODe'6.8TSl
GOODh lI.lEPO.30
GOOD8H.GOODS'I!
lEPO'27
.. 10
SAVRST".-1

OO~G

'-1

8

OVlet,., -6
aORG '-1
I
-5
OEtl, "
OORG '-1
80,1111(, .. -4
8
OORG 0-1
8
IItCALL ... -3
OORG '-1
8
-2
AOC., •
DORG .-\
MAC.O,. , -I
8

•

04924
049U
04948
04960
04912
04914
04994

25

04918
0498)

21
]2

04977
02327

U

-5054
02330
04983
00000

49

00000

OOO~O

49

05376

00000

04994

49

114'2

00000

05004
0'004
05014
05014

4'

05144

00000

49

05104

00000

4'

11411>

00000

4'

05292

00000

4'

11584

00000

05014

0'024
0'034
0'034

05044
0'044

S~S

03810
03840 8TBL
03no
03860
01810
03880
03890
03900
03910
03920
039)0
03940

OORCO
8
OORe;
8
OORCO
8
OORe;
8
OORG
8
OORe;
8
O)'9IjO
OORe;
0]960
B
0)970
OORe;
03980
8
OORe;
03990
04000
8
04010
OORe;
04020 oECL
TFM
04030
TO
04040
A
040S0 GOO082 8
OoltObO 8 T8L2
8
04070
OORG
04080
8
OORG
040'0
04100
8
04110
OORG
04120

04130

8

11-0

PHASE A

'-1
J NS J •••
'-1

01

'-1

DISK ...

02

'-1
0]

RDW".
·-1
K

t"

04

·-1
DSDNB ••• oS
·-1
o.
BI " .
·-1
07
8Nl ...
·-1
DENOC,. , +8
·-1
GOO0820 •• 8T8LZ
GOO082+11.lEPO+29
GODOB2+S. GOOD8Z*ll

.,10

a

Ot."
'-1
OORG,t.
·-1

01

OAe., •

+2

.

·-1

as ••••

0]

04330

OORG
8
OORG
8
DORG
8
DORG
8
oORG
8
OORG
INST
8TM
ADC
8TM
BOMK
8TM
8TM
81
aNI
os
ROW
8TM
DIS"
8T"
K
BT"
S 10C
BT"
SAvR S T 8TM

04340
04350
04360
04370

•
•
HEADER ROUTINE
•
HEADER TFM HED t ,10

0"'140

041S0
04160

04170
04180

041'0
04200
OHIO
04220
04230

04240
04250
04260

04270
04280
Q42<.JO

C4300
04310
04)20

04380

TO"

050n
OSOS4
050.4
05064
05074
05014
OSOU
05014
OSO.4
050.4
05104
05104
05114
05114
05124
05124
05n4
05n4
05144
05144
05156
05168
05180
05192
05202
05202
05212
05212
05222
05222
05232
05232
05242
05242
05252
052S2
05262
05262
05212
05272
05280
05280
05292
05304
05316
05316
05328
05340
05352

a

Sloe, "

·-1
OAS •••
·-1
HEADER"
·-1

,+5

OS8" •
·-1

06

OGM",

+7

~ACOf

JULY 1l.I.U

·-1
OMESCl",+8

·-3
INSTRN,DOINST
INSTRN,OOAoC
INSTRN.DD80M"
INSfRN,D081
.81
I~SfRN,OOROW

I~STRN,OOoiSK

INSTRN,DOk
INS TRN,OOSI OC
INSTRN,OOSVRS

05ZI0

00000

4.

051.4

00000

4.

05140

00000

49

05)2'

00000

49

as HZ

00000

4.

IZ612

00000

4.

0531.

00000

49

05]16

00000

49

1]056

00000

16
Z5
21
.9
49

05116
05191
05185
00000
13096

-5192
023Z9
05191
000-0
00000

49

128.0

00000

4.

11768

00000

13604

00000

...
..

11688

00000

49

053.8

00000

49

12376

00000

11516

00000

49

11412

00000

17
17

J06]2
J0724
J0804
J08T2

05316

17
11
IT

10528
10528
10528
10528
0
10528
10528
10528
10528
10528

05388
05400

16
15

10509
05395

000-0
00000

05360\

HEAOeR+7

.9

17

17
17
17

9

J0940
J13]2
JlO08
JI088

JI252

1U
SPS 11-0
Q41QO
04400
UltltlO

8NR
TFM

04420

8TM
CM
8E

TF

04430 COMA

04440

0 ... 450 •
04460
04470
0 ... 480
04490
04500 •

04510
04520

BD
CM
8E
eM
8L
TF
TOM
TR
8T
TF"
DC

PHASE A

JULY 11,1963

COMA.INPUT+20
INPUTZ+l. 010.9 11
INPUT2+6, HED
OUTPUT, PHASEA
INPUT+20.23.10

HEAOER.+36
HEADER OPERAND GREATeR THAN ONE CHARAC TER
ER12.HEAOER+7
INPur+20.,lO
-+60

INPUT+20,40,10
SPECIAL CHARACTER useD AS HEADER
ERll

PAGE
05412
0542'
054]6
05448
05460
05472

45
16
26
14
46

05460
03037
03042
09958
0290]
05424

02903
00-310509
-3404
OOOK]
01200

05484
05496
05508
05520

43
14
46
\4

05620
02903
05568
02903

05395
000-0
01200
OOOMO

05532

41
26
15
31
"9
16

05588

onoo
0290]
00001
02904

17

HED,lNPur+20

055~4

HEADER.7,1
I NPUT+ 1 9, I NPur+21
HEAOER+24
eVALER-loiTlOO

05556
05568
05580
05588
05599

HEO, .10
··20
E V&LER-l,I7200

10509
05632
on43
I

000-0

1,' ,-

05600
05612
05620
05631

16
49
16

01t610

TF"
87
TFM
DC

04620
04630
04640

8T
80
8T

EPRINT.EPRINT-I
eRCOR. ERSTSW
HEAOERo]6

05632
05644
05656

21
H
49

07604
OH68
05424

0760]
02476

0566.
05616
05688
05700
05712
05724
05736
05748
05760
05772
05714
05196
05101
05120
051)2
05144
0515.
05861
05110
05"2

41
26
16
16
26
16
32
)2

00000
03295
0830T
05661

00000
02705
0-000
OOJOO
02586
-0000
00000
00000
OOOOJ
00001
00009
OHOO
000-1
000-0
0"'.9
02400
00000
000-1
000-0

04'j30
04540

04550
04560 ER 11
04510
04580
04590

04600 ERI2

04650
04660
04610
04680

•
•
•
•

1,' ••

J7100

J7200

THE FOLLOW I NG CLOSED SU8ROUTI NE EVALUATES
THE STATE"ENT OPERANQ

Nap
04690
04700 EVALAO TF
AOORS,CLERER09
TFM RLOCSW.O,8
04710
04720
TFM EVAlAD-9.100,9
04130
TF
BETA,ONEZ
04740
TFM ALPHA
04150
SF
HEO-2
04160
SF
EVALAO-5
04770
TOM 85W,l,l1
TOM AORS·l,l
04780
04790
TO" RETURN.l,9
04800
TR
COll-II, THINCS-20
04810
TFM LASL.lol0
04820
TFM DOL .. 10
04130
INF aCMSPC,EVALAD-7
04840
TR
COLL-18,THINCS-20
04850
SF
HEO-2
TFM LABLd,10
04860
TFM OOL"IO
04170
04810
87
8CMSPC-12
04890
CHECK FOR SPECIAL CHAUCTfR
04900 COMSPC CM
INPUT020,lOoiO
04910
SPEC
8L
04920
TOM 8511,0

.

10509

05]95
02902
OH12
07343
I

10

05900
05912
OS924

IS
15
15

31
16
16
44
)l

32
16
16
49
I'
47

15

11

02692
02682
10507
05611
on09
06169
06265
02'21
05959
05957
06044
02421
10507
05959
05957
06032
0290)
06076
01309

OOOPO
OUOO
00000

J

SPS 11-0

04910
04940
04.,0 lAll
04960 DOL
04910

on.o

04990
05000
05010
05020 •
05010 •
05040 ERlNTH
05050
05060
05070
05080
05090
05100
05110
05120
05130
05140
05150
05160
05170
05180
05190
05200
05210
05220
05230
0'5240
0")21)0

05260
05210
05280
05290
05300

05310
05320
05]30

TF
Cf
OS
OS
AM
TOM

PHASE

JULY 11,1963

COll,INPUT+20
COll-I

,.,e-2

OOl,I.lO
EVUAD-II
COll-l7.COLL-1S
CM
COll-l7.7.IO
8NE ·.24
SYMBOL IN OPERAND CONTAINS MORE THAN SIX CHAUCTERS
OR NUMBER I N OPERAND HAS MORE THAN FIVE DIGITS
8TM EVAleR.50000
1,' ,e
DC
TR

TR
I NPUT+19.1 NPUT+21
•
CHECK TO SEE IF OPERAND I S PRESENT
8CMSPC 8NR COMSPC.I NPUT '20
COMMER TOM RETURN. I. I
87
GETI
•
CHECK FOR' OR SPEC
80
SI.INPUT+20
•
CHECK FOR 8LANK
80
* .. 20,INPur+19
87
8C"SPC-12
TOM 8S".0
TO
ASET'II.INPUT'19
GET!
80
AORS.EVALAO-II
8T" GEl t ·"12
8T
"Ul T.MUL T-I
AORS
A
AODRS,AlPHA,O
TO
RETURN-II. AORS' 1
TF" EVAlAO-Q,lOO,9
fF
8FTA, ONE l
fOM MPYSW I 0
ASET
TOM AORS.l,!
8NF
*+24,RSVMSW
AM
RCTR,l,LO
RETURN 8
COMSPC-56
SF
AOORS-4
aNF
r088, Rfl SW
8NF
-+20,[VAlAO-l
81
T088

0':) 140

eM

05)50
05360
053]0
05380
05390

BE
CM

05400

05410
OH20 RfLER
05430
0541,0

05450 SREl

05460 T08S
051,70 B8ACK

8NE

tiNF

e"

8NF
bE
fFM
6T
87
TOM
CF
87

RCTR,Q,lO
SREl+12
RCTRd,lO
-+24
'SREl.ADDRS
RCTR,-l,lO
-+24,ADORS

SREL
EVAlER-2,71 770 ••
fPRJNr,EPRINT"'l

"GE
05916
0594'
05959

RELOeH ION ERROR

EVl
RlOCSWtltll

EVAtAO-1
EVAlAO"'l. ,6

05951
05"0
05912
059'4
05996
06001

U

02419

0290)

))

024.J1
0
0
05957
05665
02422
02422
06032

00000

II
IS
Jl
14
47

000-1
00000
02424
000-7
01200

06:120
06011

11

073H
I

060)2

)1

02902

02904

0604'1
06056
06068

45
15
49

05900
06265
06132

0290)
00001

NOOOO

06076

43

06480

02903

06088
06100
06108
06120
06132
06144
06156
06168
06180
06192

43

06108
06032
08309
06239
06168
06726
07068
03295
06253

02902

Ob20ft.

06216
06228
06240
06252
lu,26"
06176
06288
06300
06312

06)20
06332
06)H
06356
0636B
06380
06392
06404
06416
06428
06440
06448
06460
06472

49
15
25
43
17
27
KI
25
16
lb
15
15
44
11
49
32
H
44
49
14
46
14
H

44
1.
H
46
16
27
49
15
H

49

0'5667

02692
08310
06169
06264
08305
05844

03291
06460
06320
06.60
08305
06460
08305
06380
06448
08305
06416
06 . . 8
01142
07604
07380
08307
05675
0567N

11

00000
02902
05665
-6156
07067
02682
06169
QOJOO
02~86

00000
00001
08306
000-1
00000
00000
02478
0~675

000-0
01200
000-1
01200
03295
OOO-J
03295
01200
P1770
07603
OOOOJ
00000

I :!
SPS 11-0

JULY 11.196)

05490 SI
05500
05510
05520 •
05530
05540

CM
8E

COMMER

TOM

8SW,0

05560
05570

CM
8E

05580

TOM

JNPUrt2o.23,10

06480
06492
06504

14
46
15

02903
08309

OOOK]
01200
00000

06516
06528

14
46

02903
01118

000J4
01200

06540
06552
06564
06576
06584
06596
06608
06616
06628
06640
06652
06664
06676
06688
06700

14
46
15
49

OOOH
01200
00000

16
49

02903
06584
05959
05924
06616
02439
06652

14

05957

47
32
H
15
15
41
49

06708
02436
10507
05665
05959
06032
05984

06708
06719

17

on44
I

06056

CHECK FOR ASTERI SK
CM
8E

05590
87
05600 DOLLAR 80
TFM
05610
05620
87
05630
CM
05640
8NE
05650
SF
05660
CF
05670
TO"
05680
TOM
05690
80
05100
81

INPUT+20. 14. 10

ASTER
CHECK FOR DOLLAR SIGN
INPUT+20,l).10

OOLLAR
LA8L
COMSPC'24
-+32.DOl
COll.,IO
-+1,1,

DOL ti,10
ERCHAR

COLL-)
HEO-2
E VALAO-II.1
LA8L
8CMSPC-12. DOL
BC"SPC-60
DOLLAR SIGN IMPROPERLY PLACED
05110 05720 ERCHAR 8TM EVALER.SOOOO
05130
DC
1.' ,051ltO 05150 05160 •

05770
05180 GET
05790
05800
05810
05820
05830
05840
05850
05860
05870 SCHAR
05880
05890
05900 6CHAR
05910

PAGE

CHECK FOR COMMA

05480 -

05550 _

PHASE A

5

41

05957
000-0
000-1
01200
00000
00000
00001
00000
05957
NOOOO

CLOSED ROUTI NE TO EVALUATE COllECTED SY"80l OR INTEGER
OS
TOM
80
CM
81i
BE

TOM

TR
CM
8r.1E
8NF
TF
87
BNF
SF
0592·1
SF
'0'-','0
87
~H40 TRNUM8 CM
05950
8M
059t.0
TDM
05970
TFM
05910
S
05990
S
06000
TR
0t.010 TRNUMI TO
06020
TR

5
RSYMSW.O
TRNUMB, UBL
COll-l7. 05.10

6CHAR
SCHAR

COLl.O
COLI-H. COll-15
COlL-17. 05,10
'-36
lBADD-24. HfD-Z
COll-12. HEO
L8ADD
LeADO. HEO-2
COll-13
COLl-2
l8lDO
COLL-H.6060
ERlNTH
NUMI-I,,11
TRNUN1' Il.COlL-2
UNUNI'lI,COll-17
TRNUMI+II.COU.,.17
NUMI-S.NU"I-4
NUMI-I
COll-l7.eOll-U

06724
06726
06738
06750
06762
06774
06716
06791
06810
06822
06U4
0"46

06858
06166
06178
01>190
06902
oU'O

15
43
I.

••
46

15

Jl
14
41
44
26
49
44
)2
12
49

14

ouu

46

OU14
06946
06951
06970
06912
06994
07001>

IS
16
22
22
)t
lS

II

I :I

5
08306
06910
02422
06866
06B34
02439
02422
02422
06786
07838
02427
07862
07862
02426
024)7
07862
02425
06020
02447
07005
07005
07005
02443
02447
02422

00000
05959
000-5
01100
01200
00000
02424
000-5
01200
10507
10509
10507
00000
00000
-6060
01100
0000-24)7
02422
02422
02444
00000
02424

12

S'S 11-0

06030
06040
06050
06060
06010
06010
060.0
06100
06110
06120
06110
06140
06150
06160
06170
06180
06190
06200
062\0
06220
06230

NUL T

•• 23,.-l3

I~

UNUlll-U
U'"A
AL'"A.NUIII-I
.. 0
ALPHA.IEU
.0
U'HA . . .
lETA •••
.. 0
TlSn.EUUD-1l
GET • • • 12
IIULT,NULT-I
IVAUO-IO.11.IO
. . J6.RELSII
N'VSII. 1.11
SUL-32,RSYIISW
COIISPC-5'
TfADD.IYAUD-IO
SII2.IYAUD-.
AlPHA.ADDCOW
IIULT .IIULT-I
EYAUO-9ol.10
RSYIISW.I.1l
SRH-12.IIPYSW
COIISPC-56
EYAUD-9
&SR
5
59007

1FII
A
112
II
SF
Tf
TF

liZ
ASTU

ASR

80
ITII
IT
TFII
INF
TOil
80
87

feST]
TfAOO

06240

06250
06260
06270
06280
06290 5112
06300
063\0
06320
06330

'"AII A

TP

80
80
Tf

IT
TFN
TOil
80
17
TDII
B7
DAS
8NR
DAC

06340 •
06350 •
06360 •

'''1

JULY 11.I.U
01011
01010
010.1
01014
010M
07061
07011
07092
01lM
07U6
01UI
01110
01142
0115.
01166
01171
011.0
01202
01210
01212
OU34
01246
07UI
01210
OUI2
01294
01302
01314
onll
onll
01)43

1,' ,.

"

U

16
II
liZ
Z)

12
Z6
Z6
112

u

17

Zl
16
44

U
4J
49
43

4J
16
21
16
15
43
4.
15
4.
45

010"'1
0 . .12
02611
0"12
OZu,
000.0
02 . .2
02 . .2
01210
06U6
010. .
0"66
OU02

onlo

II

0100'
00000

-OOOD
01661

Oattl
00000
000••
00099
0,."
-1142
01061
OOOJI
02411
OOOOJ
on06

06416
05144
01U4 0 " "
07302 05661
02612 02521
01061 07061
05661 000-1
01106 OOOOJ
06416 01310
05144
05667 00000
01166
5 K
2
59007 00000
I •
2

EVALEA IS THE ERROR ROUTINE

(PAINT.EPRINT-I
06310 EVALER BT
SPTY
06380
IIATY COll-12., ,
06390
8D
ERCOR. HSTSW
06400 EY1
OHIO CHKND TFII ADDRS
INA CHf(Z. INPUT+20
06420
TOBB
06430
B7
INPUT+20.23 ,10
06440 CHK2
CM
BE
TOBB
OH50
06460
TR
INPUT+19.INPUTt21
CHMND+ll •• 2
06470
87
06480 EReOR IIATY CORM."
06490
RCTY
I NPUT+ 19.INSAY-1
TR
06500
06510
WATY INPUT-10
Tf
AOOCOII. PLACE
06520
06530
TOM ERROIG. 1.11
SM
INKRMol,10
06540
06550
SII
STCNT ol ,10
TFM CfFA.NcoeFI
06560
06570
BTM CFF.READ3

TYPE UNDEFINED SYII80L

ERROR COUECTlO'" OIl-LINE

on44
01356
on. .
onlo
on'2
07404
07416
07424
01416
07 . .1
07460
074"
07410
07492
07504
0""
OUlI
015"0
01552
07564
07576

27
34
J9
4J
16
45
49
14
46
)1

49
39
)"
)1
)t

26
15
12
12
16
11

01604
00000
02427
01468
03295
01424
06. .0
02903
06460
02902
-7404
0)351

00000
02902
02113
02528
03273
02565
02513
02629
02592

07603
00101
00100
02476
-0000
02903
ooon
01200
02904
00100
00102
02150
00100
03212
OOOOJ
000-1
000-1
-7511
-3440

J (I
SPS 11-0

PHASE A

JULY 11.1963

06580 NeveF I DOA ,O,A2DAD,A2SCT.INSTRH
OJ8800-54J0528
06590
DC
I.'

'AGE
0158.

14

07602

06600 •

EPAINT PRINTS THE ERROR MESSAGE AND REFERE"CE TO
INDICATE THE STATEMENT IN ERROR

06610 •

06620 •
06630 •

06640 EPAINT RCry
TF
06650
06660
IIATY
06670
IIATY
IINTY
06680
06690
WATY
06700
BO
06710
SF
882
06720
06730 •
06740 •
06150 •
06760 •

06770
06780 eTEST
06790
06BOO
06810
06820 eTi
06830
06840 ERI
06850
06860

OS
CM
BE
C
BI
TOM
B82
80
TFM
DC

06870
06880
06890
06900
06910
06920
06930
06940
06950
06. .0
06970
06910
06990
07000
07010
07020
070JO
01040
Dl0'0
010'0
01010
01010
07090
07100

BT
TOM
Sf
B7

•
•
•

TR
LB2

LADDR

8NF
112
TF
IT
8N'
All
TF
8"'
IN'
10
TOil

tf
11

Nle

01604
07616
07621
01640
07652

on",
KILL AUTO EKEeUTlO"

01616
07".
07100

34

26
)9

J9
31
J9
4)

32

00000
03323
03315
03299
02562
07323
07700
00457

00102
02111
00100
00100
00100
00100
02416
00000

42

TEST If SIZE Of OBJECT CORE HAS 8EE'" EXCEEDED.
LINKAGE
8TM CTEST.·.12 IIIETUR" ADDRESS If UItOU.
I>

ADOCOII.99999
ER 1-2
AODCOW,08JCRE
ER l.llOO
CTl+IO.OO

+-2,cn+1O
EVAlER-I,1000D

1,' ,-

07107
07101
07120
07132
07744
07n6
on61
07710
onl2
07193

I>

02521
071U
02521
07710
07166

4)

07161
01343
1

07166
JOOOO

07604
07766
00451
0770P

01603
00001
00000

02439
0Z422
01816

00000
02424

16

07194
07106

21
15

01111

32

01130

49

COLL. 0
COLL-H. COLL-15
LIZ. EVALAO-1

01ue
01190
01l6Z
01114

44
42

ISf"T. COLL-l
IS. 15-1
NIC. EOSII
UIF-1.,.10
AL'HA. esl'-I. Il
"60. RELSII
. . . . . U'"A

Oll"

26

EPRINT,EPRINT-I
eTl+10.01
NONU
CTEST-1 .. 6

R9'"

14
46
24
46
15
42

01200
02496
OUOO
00000

THE SYII80L lAlLE IS SEARCHED FOR EQUIVALENCE
TOil

LBAOO

LOPDUT, I NPUT-Z
LOPOUT-8
HU8
INKAM-3
EVALER-21
•• ZIt,ERSTSW
fCONEX,. ,

ell

INI

SIIU-IZ.II'UN
!IIY"'II.I.lI
AVHA
lilT-I .. ,
.IOUf. 00.10

..,.

01111
07_

019U
OTt24
OTt36

Of...
Of_

OJn.
Of •••

OJ...

010M
otOI'

15
31

n

..
••..
44

11
Z6
U

l'

01615
013.2
01004
01655
0261Z
OTt. .

OTt. .
06.11
otJ06

056"
OZ4J7

OU91
01631
000-5
01""
02411
0 . . .2
OUIO
OOOO~

II

OIlU

00000

U

06T1N
0''''
01. .0

000-0
OUOO

IS

14

SPS II-D

.

IT ..

01110
07120

JULY 11.1963

PAGE

1,',.

OC

07130

'HUE A

EYALER. 50000

t ..
85"-1. LlLIM
011~0
BilL '-24
TO
01150
oGSV. LOSV ... + I
071.0
TO
lOSV .. I+I. 5PSG ..
07170 •
WRITE oISK-IIUt--SAYE tCItE SVMaOLS
TF .. 10,,"', •• 21
07180
01190
I
I Due. SOH I • 7
07Z00
TF
820tF.5. IloCF.5
07210
TF
SICHT. saOUT
TF .. L1MITS-5. MULIM
01220
TF .. LIMITS. LlLlM
07230
07240 AOBlK AM
820tF.5. SPIL
07250 •
RUo DI SK-WLRC--RE AD SVMBDL BLOCK
TF ..
07260
IDU •• +23
07270
8
IDGT.So£F2.7
07280
8S. IS-1
8T
07290
80
L8FHo. £QSW
07)00
S ..
saCNT. 1.10
BP
07310
R08lK
01120 •
READ 01 SK-WlRC--RE STOltE CORE-EIt5
TFM
rotH ,.+23
07330
07340
10GT. SoEF 1, 7
8
TO
LDSV .. S+l. OGSV
07350
07360
TR
LIMITS-9. PRTLIM-4
07370
BTM £YAlER. 50000
07380
1,' ••
DC
07390
07400
07410
01420
01BO
01440

RCTR
RSYMSW
RLOCSW
lOA8S.
BSW
MPYSW
L8FNO

OS
DS

os

os

01'1·
ON
ON
ON

I ..

11

01040
01052
08064
010"

I~

010.8
08100
01112
01124
08136
0814_
08\60
01172
081U
08191>
08208
08220
08232
08244
08256
08268
08210
08292
08303

~ElOCATION

2 ..
1 ..
1 ..

01021
0.019

COUNTER
FOR REl OCATA8L E
FOR RELOCATA8LE
FOR RELOCATABLE
INolCAHS BLAN~

OS
1 ..
OS
1
011t~O
AM
8S8F-l,5.10
01460
TF
ALPHA.8S8F-Io11
07410 •
READ DI SK-WLRC--RE STORE CORE
07480
TFM
lORT, •• 23
01490
8
1 DGT. SDfFl. 7
07500
TO
LOSYMB+l. DGSV
07510
TR
LIMITS-9, PRTLIM-4
07520
87
LAODR,.2
01530 •
BINARY SYIIBOl TABLE SEARCH SU6RDUT II'IE
07540 BS
TR
L1"-9. L1MITS-9
D7550 BSCYC TF
BS8F. CLERER.5
07560
A
BS8F. LIM
07S70
A
BS8F. L111-5
07580
TF
BSAV. 8SBF
07590
A
8SBF, BSBF
OlbOO
A
8SBF. 8S8F
01&10
A
BS8F. BSAV
01620
•• 24, BSBF
80
01630
AM
BS8F-l. 8.10
07640
SM
8S8F-l. 8,10

SVIIBOl
ExPRESSION
SYMBOL TO TABLE
OPERAND

on~~

1
0 . ."
01028
0])43
19998

KOO09
01100
19998
02560
-8111

16
\I

00565
00520
104.5
02671
01278
03283
10465

02.43
J5997
KOO09
-0040

16
49
Z7
43
12
4.

00565
00566
08392
08312
02671
08160

-8\95
J0419
08391
01631
000-1
01100

46

25
25
16
~9

26
26

11>

16

005~5

-821>1

0051>6
19998
01214

J0411
03343
02498
NOOOO

25
11
\1

07344

1
2

08307

I

I

I
1

I

0~324

II
26

08336
OB348
08360
08372

16
49
2S
31

0838~

"

08392
OhO'
08416
08.28
08440
08452
08"'~

08416
08481
08500
0&512

JO~II
10.~9

H

08305
08306
08308
08109
OB3IO
08312

15

110000

3L
2f>
21
21
26
21
21
21
43
11
12

08655
02682

000-5
0865N

0056~

-8359
JOHI
0334)
02498

00566
lq998

0327'
-7936
08663
08656
08656
OB656
0&662
08656
08656
08656
08512
08655
OB655

03214
02101
08.72
0&667
08656
0865.
0&656
08662
OB656
000-8
000-&

J6
SPS IJ-D
07650
07660
07610
076BO
07690
07700
07710
07720
07730
07740
07750
07760
01110
01780
01190

PHASE A

EQSW, 0
BSENT. BS8F-l,11
8SNEQ
EOSW. 1.11

07820

882
8SHI
8H
TF
L111. BS8F-1
87
8SCYC
TF
L1M-5. 858F-1
87
8SCYC
OS
• 8SHI-I
6,0
DC
-00000
DC
6.0
-00000
DC
10.0
-000000000
DC
I.'

07830 SSENT

os

BSNEQ

aSHI
EQSW
8SBF

07800 BSAV
07810

LIM

08524
08536
08548
08560
085.2
08H4
08586
08598
08600
08612
OB624
08632
08644
08631
01656

*.26

TOM

PAGE

JULY 11.1963

8SBF-l. L1"-5

C
BNE
TOM
BB2
C
8NE

08655
0&562
08631

0&661
01200
00000

08685
08600
08631

0865N
01200
OOOOJ

46
2.

08632
08672

01\00
08655

~9

08~04

26
49

08661
08404
0
6

24
41
15
42
24
41
15
~2

08662

6

08672

10

08655

0861)

12

08685

12

07840 •
ROUTINE TO LOAD LABELS INTO SYMBOL TABLE

07850 •
07860 •

07810 LoL8L
07880
07890 SNOTeo
01900
01910
07920
07930
07940
01950

07960
01970 l8CKZ

07980
01990
08000
08010
08020
08030
08040
08050
08060
080"
08:. l'1
08090
08100
08110
08120
08\30
08\40
08150
08160

C
BNE
BTM
TOM
TF
BO
80
TF
87
TF
C
BE
C
8E
C
8H
C
Bl

TDM
BNF

60
TF
SF

80
80
TF
CF
TF
IT
10

ClERfR+ll, INPUT+l0
·+24
OUTPUT. '"AlEA
TSPEC. I
LAB, INPUT+IO
LBCK2. LA8
L8CK2. LAB-l
LAB. LAS-2

--36
LAB. LAB-2
XO:t.LAB ••

• OK

•• 84
X2i.LAB ••
•• 60 •••

Xl3. LAB
ERza
X69. LAB
e+24
TSPEC .0
LBCK2-12. LAB-1
ER28. fSPEC
&SENT. iNPU1+10
BSEI!T
··60. INPUT+ 10
fN'U1+9
BSENT. INPUT+8
85£N1-9
&SENT-IO. HED

..,..,
as,

IS-I

UU. £QSW

I OK
(}+-·'tAND BLANK AftE NOT AllOWED

08686
08.98
08710
08122
08134
01746
08758
OB170
08782
08790
01802

24
47
17
15
Z.
43

OB81~

46

08826
08UI
08850
01862
OI8H
08886
08898
08910
08922
01914
01941>
01951
01910
01912
01994
09006
09011
090]0

~]

26
~9

26
2~

2~

U

24
46
2~

H
15
~4

43
2f>

12
43
43

2f>
])

16

21
4]

17

02707
08722
09958
10520
01339
08802
08802
03339
08746
03339
10517
01898
10519
08898
10515
09770
10513
08910
10520
08790
09170
08615
01615
090\8
09011
01685
0lU6
OIUS
08)92
098 . .

02893
01200
-3404
00001
02891
03339
03338
03337
03337
033)9
OIZOO
03339
01200
03339
01100
0]3)9
01300
00000
01]38
10520
02891
00000
02891
02892
02891
00000
10509
08391
01"31

16

SPS 11-0

'HASE A

08540
08550
08560 lOTR
08570
08580
08590
08600
08610
08620
0863u
08640
086SQ
OBbbO
08670 T ABFUl
08680
08690
08700
08710

SM
SM
TR
TF
8NF
SF
BO
CF
TF
AM
TF
TO
8TM
AM
C
BNl
AM
TO

lorR.',

PAGE

JULY 11.1963

08110
CM
~S8F-I. LaLlM
01180
8NL LOSOK
08190
CM
SIOUT. 00.10
01200
BE
LOSOK
08210
TO
OGSY. LOSYMI . .
OB220
TO
LOSYMI.I. S'SG"
08230 •
10CS CAll-WRITE DISK WLRC
08240
TFM
IORT •• +23
08250
8
10RBC.SOEFI.l
08260
TFM LIMITS. LBLIM
08270
TFM lIMITS-5. MAlLIM ..
TF
082BO
S8CNT. S80UT
OB290
TF
B20CH5, BIOCF+5
TF
OB100
LOSR. II, BSIF-I
B20CFo5, SPBl, 10
08310 LOOSCY AM
OB120 •
READ 01 SK-WlRC
[ORT,_.23
TFM
08330
08340
10GT, SOEF2,1
8
08350
8T
8S, 8S-1
08160
80
EA4, EQSW
SM
S8CNT, 1.10
08370
O~180
8NZ lOOSCY
08190 •
10CS CALL-READ OISK WlRC
]ORT, •• 23
08400
TFM
IOGT, SOEFl, 7
08410
B
08420
TO
LOSYMB+I, OGSY
084)0 LOSR
TFM BSBF-I,
SM
PRTlUlII, 17,10
08440 lOSOK
PRTlIM, MUlIM
084~0
CM
TA8FUL
08460
Bl
lJMITS-q, PfULIM-1t
081,70
fR
084eo
TF
SVOG+ II, BSBF-I
AM
08490
SVDG+ll. 6,10
OGSV, . - .
08500 SVOG
TO
-.18, SVOG+II
08510
rF
TOM SVDG+1l .. 6
08520
1,' ,.
08510
DC

LEFT FUll ILOCK LIMIT

7.5

01655
09330
0Z.4]
09]]0
0)]43
19991

KOO09
OUOO
000-0
01200
19991
025.0

09114
091n
09ua
09150
09162
09174
09186
09198

16
49
16
16
26
26
26
11

00565
00520
0]21]
0]27'
r2671
10465
09329
10465

-9137
J0411
KOO09
J5997
02643
10449
01655
OOOMO

09210
09222
092]4
092U
0925.
09270

16
49
21
4)
12
41

00565
00566
O'l92
09811
02671
09198

-92H
J0419
01391
08631
000-1
01200

09282
09294
09]06
0931.
09330
09342
093S4
09366
09311
09390
09402
09414
09426
09431

16
49
25
16
12
14

00565
00566
19998
01655
02502
0..2502
09594
0]274
09413
09413
0)]43
09432
0941l
I

-9]05
J0411
0))4]
-0000
OOOH
J5997
01100
02498
OB655
000-6
00000
09413
00000

09468
09473
00000
0865N
09534
03295
09534
03295
09564
09564
00000
09Hl
09958
10465
02643
09886
02643
03343

000J7
OOOJ7
00000
08685
02478
00000
08308
00000
08655
000-5
03295
0334]
-]404
OOOMO
02669
01300
000-1
19998

09042
09054
090M
09011
09090
09102

09438

17,10

lorR.ll. 11,10
.-*, a-."

09~50

SHIFT SYMBOLS

09462

BSBF-l. BSE,..,T, 6

09~74

."""8,RElSW

09486
09498
09510
09522
09534
09546
09558
09570
09582
09594
09606
09618
09630
09642

AOORS

*+24.lDA8SW
AOORS
a+30. BS8F-l
e+18, 5,10
a-., AODR.S
SVOG+ll, OGSV,6

OUTPUT, PHASEA
820CF+5, SP8L,lO
S80UT, SBMAX
ERI9
seOUT, 1,10
OGSY, LOSVMB+l

14
U
14
46

25

47
31
26

11
25
26
15
12
12
II
26
44
]2
43

33
26
11
26
25
11
11
24
46
11
25

17

J8
SPS 11-0

PHASE A

08720
081)0 •
08740
08750
08160
08770
08780
08790
08800
08810
08820
08830 ER2B
08840

TO
LOSYMe+l. SPSGM
IDCS CALL-WRITE 01 SK WlRC
rFM
IORT, •• 23
IOR8C,SOEF2.7
8

08850
08860
08870

BT
EPRINT, EPRINT-I
ERCOR, ERSTSW
BO
BTM OUTPUT, PHASEA
READ OISK-WLRC
TFM IORT,*+23
IOGT,SOEFI,7
8
TR
L1MITS-9, PRTLIM-4
LOSYMB+I, OGSY
TO
rFM EVAlER-I, 40000
1,' ,e
DC

08880 •

08890 ER4
08900
08910
08920
08930 ER4A
Oe9ltO

TO

TFM
TFM
TFM
TF
TFM
87
TFM
DC

JULY 11,1963

LOSYM8+1. OGSV

PRTlIM, lBlIM-17
LOTR+II, l8llM-11

lorR+ 6, l8LIM-28
LOSYMB, ClERER+52
8SBF-I,lBlIM-17
LOSOK
EVALER-I, 20000

1,' ,-

PAGE
09654

25

19998

02560

096.,.
09678
09690
09102
097H
09726
09738
09750
09762
09770
09781

16
49
25

00565
00520
19998
02502
09H3
09468
19991
08655
09]30
07143
1

-9689
J0419
03343
J9992
J9991
J99S1
02748
J9992

16
16
16
26
16
49
16
27
43
17

07604
07468
09958

07603
02416
-]404

09818
09830
09842
09854
09866
09877

4.

00565
00566
032H
19998
07143
1

-9841
J0411
02498
03343

16

25
16

08950
08960 ERI9
08970

87
TFM
DC

ER28+12
EVALER-I, 11900
1 t' ,-

09878
09886
09897

49
16

09782
07343
I

08980
08990
09000
09010
09020
090)0 •
09040 •

TOM
NOP
BT
rFM
B7

ASTSW,I,ll
OUTPUT .PHASEl
EPRINT,EPRINT-I
*-23.11.10,

09898
09910
09922
09934
09946

15
41
27
16
49

10521
09958
07604
09911
09910

CHANGE NOP TO 8TM

.-36

KOOOO

09782
09794
09a06

31

IS

MOOOO

J7900
OOOOJ
03404
0760]
OOOH

OUTPUT ROUT INE

09050 •
09060
OS
5
09070 OUTPUT TF
OT2DCFo5,OUTOCH5
09080
S
OT2DCFo5, SY"TAO
09090
CM
0T2DCF+5,-2,10
09100
8H
ER20,. ,
09110
80
2PASS, 2PSSW
09120
BNR 2SECT, INPUT2+99
091]0
TO
I NPUT2+", SPSGM
09140
TOM OUTOCHI. I
OQ150 •
WRITE 01 SK-NO WLRC
09160
TFM
IORT.o+U
09170
8
IORlC ,OUTDF I, 7
09180
AM
DUTOC'.5, I
09190
87
OUTPUT-I . . . . .
09200 UHT TOIl OUTD" ••• 2
09210 •
IOCS CAlL-~"nl DISK-NO IILIIC
TPM
092Z0
IDU . . . U
09210
IDUC,OUTDPI,l
09240 2S
AM
DUTDC,." 2

•

INTER SECTOR OVERFLOW

09951
09951
09970
09982
09994
10006
10018
100]0
10042
10054
lQO"

loon

IIETUIIN

10090
100. .
1011G
101U
10U4

26
22
14
46

4]
45
25
15
16
49

.,
11

,."

..9

11

5
10491
10497

10491
103...
10154
10098
03135
10484

00565
00520
10411
O995P
10.. 1 ..
00,.,
00110
10411

10481
02641
OOO-K
01100
02477
03135
02560
00001
JOon
J0421
-0001

ooooa
JOIl.
JO.. 17
-0002

.

~\

\"
J!I

SPS 11-0
OUIO
0'260
09270
OUIO
092.0
09300
OUIO
OU20
09UO
09140
OU'O
OU60
OU70
onlo
09)90
09600
0'J410
09 .. 20
09430
0'J440
09450
09660
09410

11
2PASS

tM
8L
ITM
rR
ro
rR

PHASf A

•• Z4

ZPSOUT,··12
2 "UF , I NPUU
2PIUF.l,fIIROIG
2PTR
INPun.l, ZPlUf ,2
2PTh6,1,10
OUTPUT-l .. 6
81
OS
5
2PSOUT TF
OT20tf.5, OUTDtf.,
AM
OUTOtf.,,2tlO
TO
INPUU.201, SPSGM
•
lOtS tALL-IIIIITE ~ISK IIITH IILIIC
TFM 101lT, •• U
IORBt ,OUTOF2, 7
8
rFM 2PT . . 6,INPUTZ08
2Psour-I, ,6
2PRE
8
2PBUF OSC 9,000000000'
NOP OUTPUT-I, ,6
ER20
rOM ASTSII,I,II
TFM fVALER-I,27000
OC
1,' ,-

'"

09"80
09"0
09500
09510 SOEFl
0'520

8r
Tfll

11
OSC
00
OSA

EPRINT,EPRINr-1
U20+1,.,.10
OUTPUT-I .. 6
2,00 ••

16
.9
16
.. 9

00565
00520
10220
10HR
9

JOJO.
JO .. "
-304"
00000

10344
10356
10168
10379

.. 1

0995P
10521
07163
I

00000
OOOOJ
K7DOO

10310
10392
1040.
10.U

27
16

07604
IOJ .. 5
0991P
2

0760J
000119

Jl
II
69
26

11
25

"

16

••

5

I,'
2,00.,

PLUS DISK IIITH WRONG LENGTH

10621

1,'

10625
10.26

J0460
1

10.27

2

DUTDCF

PLUS DISK NDr IIRONG LENGT"

10UI

09590

I, '

10413
10434

2,02 ••

~ISK

X

Jo.16
I

10435

2

104.1

5 x

09620

I,'

10"1
10"2

,

2.00.,

IIITH IIIIOIIG LENGTH

10411
000-2
on60

DT2DCF

De

PLUS

-1266
OUOO
J0190
030,.
onu
IOU4
000-1

09600 OUTDF2 Dse
00
DU

09610

1.

10419

B20CF

09570 OUTDFI DSC
02
09580.
DSA
DC

n

0 . ."
10220
10190
lono
10U4
10141
-3044
10220
099"
5
10497
10Ul
03264

JO .....
1

DSC
00
DU

,

10216
10291
10310
10322
IOU4

14
U
n
Jl

10.17
10418

DC

De

6.

10417

09540 SDEF2

09560

PLUS DISK IIITH WROIII; LENGTH

10166
10116
10166
10nl
10190
10202
10216
10226
10UI
1026.
10210
10262
10216

81DCF

O'JBO

09550

"'1

JULY U.1'U

OUTPUT-1 .. 6
2PTII. . ,INPUn.201

J0492
1

'Y
sPS 11-0
09630 810eF

PHASE A

09660

PAGE

10411

DOA • O•• -e, SP8l, SBFADO
o-OOOo-.OJ59••
DC
I, '

104n

,

09660
09650 82DCF

JULY 11.1963

DOA ,a, .-e, S'8l. SBFADO
0-t)000-60J 5'91
De
I,'

,

09670 DUrOCF OOA .O,.-e,l,INPUT2
0-0000-01-3036
09610
De
1. '

104...

16

10460

14

10.16

16

10490

09690 OT2DeF DDA ,0,e-_,2, [H'UTZ ••
0-0000-02-3046
09100
DC
1, '

10492

09710
09120 HED

1
2,0

10507
1050.

1
2

2
2. 69

10511
105U

2
2

09710 CNTR
0"40 X69·
09150 X33
09760 XO]

.

DS
DC
-0
OS
DC
09
DC
L3
De

14

10506

2. 33

10515

2

2,0]

1051 ,

2

De
KI
OS
OS

2.21

10519

2

TFII

IORT,"23
IOGr,MeAOEF.7
MOeTOe.O
MDODt.O
MONANE,eLUERoll
MDIONo.CLUER+3
IIoMAO.'9999
INKRM.""9
ADDeOIl,240.1
L.MDIIL
NDI SE • IIOND IS
SUINo,MDSINO
0.0
19999 .CLUER+52
- ••4.0
PRoCRe. 2,11
HeLlII ,.LlLlII
Aiel
J9999.eLEUR+SZ
e+44
PRoeRE.4.1I
HeLlII.LILI".1I ".17
Ale 1

-]

09770 X21
091'0
091.0
09100
0'110
09820
0'1)0
09860
09850
09860
09170
09180
09890
09900
09910
09920
09930
099"0

TSPEC
ASTSW
•
PHASE
•

.

START

B

TOM
rOM
rF
TF
rFM
TFM
TFM
rF
ro
TF
OqQ~··)
STARTl rOM
r 411\.,;
T.
09910
'N.
rON
09980
099.90
TFN
10000
87
10010
TR
10020
'NR
10030
TOM
TFII
10D35
10040
11

10520
10UI
Al--INITIALIZATlON
10522
105]6
10546
1055'
10510
10512
10594
10606
106 . .
10610
106"2
1065.
10. .'
10678
10690
10702
1071.
IOU6
IOU.
10'"
10"1
lana
107lz

"

49

15
15
26
26
16
16

"

26

n

26
II

Sl

'"
••.,"
15

II

.
11
16

OD565
00566
16023
16022
16035
1603.
00415
02565
02528
02520
02521
02523
OOODO
19999
107U
oz,"
02507
lOll"
39999
10790
OZ49'
02501
10116

2J

JOS65
J5622
00000
00000

onOl
02699
•••99
.9999
-2401
16041
16066
16043
00000
021U
00000
OOOOK
KOO09
027'"
00000
0000"
MOOOI

20

SPS II-D
10060
10010
10010 AICI
100.0
10100
10110
10120

TO"
T'"
TO
TF
SM
TR
TF
lalla
TF
10140
S"
10UO
S"
TF
10160
10110
SM
10180
TF
10l'JO
TO
10200
CF
10210
CM
10220 ST2L
8L
10230
8E
10240
87
10250 PROCON 8NR
TFM
10260
TFM
10110
AM
10280
10290
CF
10]00
CM
10liO
8L
10]20
CM
INE
10130
80
10]"'0
10350
RCTY
WAry
10160
TFM
10310
10]80 SlP
AM
10]90 S8NR
8NR
81
10400
10410
C
BNE
10420
TF
10HO
TF
10 .... 0
SM
10450
AM
10"'60
TR
10470 STR
10480
B7
CM
10490 SLPX
10500
BL
10510
C
BE
10520
CM
10530
(OHO
BL
10550
C
10560
BE
CM
10510
10580
BL
10590
C
BE
10600
CM
10610

PHASE A

'AGE

JULY II,I'U
10790
1010Z
10116
lOll'
lOin
101S0
10162
1017_
101. .
10191
10910
10921
109)6
10946
109,.
10910
10912
10996
11006
11016
11026

P_DCRE,6011
HCLlII,LlLlII+ZolI UOll
DIJCIIE-_, PIIOCIIE
PUll", HClIII
P_TLlM, 17,10
L1Mns-., PIITLIII-4
LOU+II, LIlli TS
LOU. 6, Lillns
LOThll, 11,10
LDTIt+ 6, 21010
o+)O,OBJCIIE
·.18,1.10
.-. ,CLEIUR+52

IHCOOE,"OUEC
INCODE
INCOOE,O],IO
CI5P
CI4P
CIlP
•• 24,INPUT-IO
INPUT-IO,OO,IO
"30, INPUT-II
·.18,2,10

lion

--6,INPUT+151
--16
INPUT-IO,I_0I0
CALLA2
•• 16.TYINSW

TYPE CONTROL STATEMENT
COMPRESS BLANkS

INPUT-IO., ,

S8NR+ll.INPUT-1O ••
S8NR+l1.2.10
·+20, .-.

SLPX
CLEREROl,S8NROll,ll
SLP
STROlI,SINRoll
S TU6, SBNRol1

._.,e_.

5TR.6.1,10
STR+ll.l,lO

SBNR
S8NR+ll,INPUT-lO+2.11 ••
*+36
INPUT-IO+2-10.C 1+2-10
CIP
SBNROIl, (NPUT-Io02014
*+36
1 NPUT-IO+Z*13. C2+2-13
C2P
SBNROII,INPUT-Io02 0 15
.+36

REJ;OGNIZE CONTROL STATEMENT

INPUT-IO+2-1~.Cl+2-1~

ClP
SBNII+II, I NPUT-I002011

11050
11062
11016
11086
1109.
11110
11122
11114
11146
11151
11110
11112
11194
11202
11216
11226
11238
11250
11262
11214
11286
11296
IU06
lIn8
11330
11342
11354
11366
IU18
11390
11402
1141_
11426
11438

"

16
25
Z6
12
H
26
26
12
12
26
IZ
26
Z5
))

16
61

".
_9

45
16
16

11
H

141

141

4]
34
39
16
II

45
49
24
41

26
26
12
II
11

...
...
...

14

41
2~

14
41
24

14
47
24
46
14

02497
OHOl
02492
0250Z
0250Z
03ZH
09471
09UI
09411
0.461
10._0
10''''0
00000
02_.1
02491
024.1
IH24
IB68
IB12

00000
11.991
OZ691
02507
OOOH
02491
012U
032U
OOOH
OOOk.
02496
000-1
02161
00626
00000
000-3
01100
01200

02111
11061
110&1
00000
11061
11050
OZI71
11.12
11151
00000
02871
11193
11193
11202
11294
02697
11110
11215
11210
11280
11215
00000
11112
11193
11142
0289]
12672
11191
11390
02899
12752
11193
114]8
02901
12872
111.3

000-0
-2172
000-2
00000
-303_
01100
000J4
01200
02413
00102
00100
-21n
000-2
00000

ZI

lion ann

1I19L
OIZOO
1119]
11193
000-1
000-1
00000
-2895
OUOO
14869
01200
-2901
01300
14897
01200
-2903
OUOO
14927
01200
-2895

22
SPS 11-0
10620
10630
106"'0
10650
10660
10610
10690
10690
10100
10110
10720
10130
10140
10750
10760
10770
10780
10790
10800
10810
10820
10830
10840
10850
10860
10870
10180
10890
10900
10910
10'20
10930
10940
10950
10960
10970
10980
109.0
11000
11010
11020
11030
11040
11050
11060
11070
1I0BO
110.0
iliaD
11110
11120
11130
11140
11150
11160
lll10

BL
C
BE
CM
BL
C
BE
CM
BL
C
BE
CM
BL
C
BE
CM
BL
C
BE
CM
BL
C
BE
CM
BL
C
BE
CM
BL
C
SE
CM
BL
C
BE
CM
8L
C
IE
CM
IL
C
BE
CM
BL
C
IE
CM
BL
C
BE
CM
BL

C
BE
C"

PHASE A

JULY 11,196]

*+36
INPUT-1O+2-10.C4+2-10
C"'P
SBNR+II,INPUT-I002'10
-+)6
INPUT-IO+2*Q.C5+2-Q
C5P
SBNROIl,I NPUT-1002'20
-+36
INPUT-1O+2-19.C6+2.1Q
C6P
S8NR.+ll r I NPUT-I0+2*16
-+36
INPUT-1O+2-1~,C7+2-.5

C7P
S8NR+ll,JNPUT-lO+2 •••
-+36
I NPUT-10+2-10,Ce+ Z*IO
CIP
SSNlloll.1 NPUT-I 002'5
-+36
I NPUT-1O+2*4,C9+2_4
C9P
S8NR.1l. I NPUT-IO+Z-16
·+36
INPUT-lO+2-15,C1O+2-15
ClOP
SINR.1I,INPUT-I002 0 17
-+36
INPUT-I002 0 16,CII02'16
CliP
SBNRoll,(NPUT-1002 0 17
-+36
INPUT-Io02'16,C I U02016
CllAP
SSNllOll,1 NPUT-I002010
.+)6
I NPUT-I0020, ,C120209
C12P
SINllol1,INPUT-1002 0 15
-+)6
INPUT-IOUoI4, C1302014
C13P
SBN . . 11,1 NPUT-IOoZ020
-+)6
INPUT-IOozoI9,eI4+Zo.,
el4P
SIN. . 11, INPUT-10+Z021
-+)6
INPUT-I002020,eI5+2o20
CUP
S8NII+ 11,1 NPUT-IO'2'9
_+)6
INPUT-ID+208,t 16+20'
Cl6P
SlNlI+ll,INPUT-IO+ZoU

S
PAGE

11450
11462
11414
11486
11"'1
11510
11522
11534
115_6
11558
11570
11582
11594
11606
11618
11630
11642
11654

11666
11671
11690
11702
11114
11726
11711
11750
11762
111H
11786
11798
11810
11122
11834
11846
lles8
11870
11.82
11 ....
11906
11911
linD
11942
119,.
11966
11'71
11990
1200Z
12014
12026
120)'
12050
12062
12014
120. .
120. .

12110

41

24
U
14
41
24

11486
02893
13052
11193
IIB4
02891

46

uon

14
41

11193
11582
02'11
130'2
11193
116]0
02903
UII2
111.3
11678
02893
13132
11193

24
46
14
41
24

46
14
41

24
46

14
41
24
46
14
41
24
46
14
67
24
46
14
U

24
46
14
41

24
66
14
61

24
46
14
41

24
66
14
41
24

.6

14
67

z..

'"

16

11726

02881
13152
11193
11774
02903
13232
11193
11122
02905
13252
11193
11870
02905
13272
11193
11918
02891
UZ92
11193
11966
02901
IBIZ
11193
12014
OZ911

U3. .
11193
IZ062
02.U
13624
11193
12110
DUn
U668
11193

22

01100
14949
01200
-2893
01300
1496'
01200
-2913
01300
1500.
01200
-2905
01300
15041
01200
-2895
01100
15063
01200
-2883
01100
150n
01200
-2905
01300
15105
01200
-2'01
OUOO
15139
01200
-2907
OUOD
15173
01200
-2893
01300
15193
01200
-2903
OUOO
15223
01200
-29U
DUOO
1521>3
01200
-2'15
OUOO
IUD'
01200
-U'l
OUOO
Inn
DIZOO
-2903
~'

\

23

US 11-0
12210
12210
12290
12)00
12)\0
12320
12HO
12340
12350
12160
12310
12380
123'0
12400
12410
12420
12430
12440
12450
12460
12410
124080
12"0
12'00
12510
12520
12S30
12540
12550
12560
12570

TOM
TDM
TDM

17
CI5P

TDM
TDII
TDII

81
C I6P

TOil

B1
C I1P
C PAP
C18P

CI9P
C20P
C20P2

C20PI

12580

125CJO C20P4
12600 SSTOF

PHASE A

JULY 1l,I9U

TOM
B1
TOM
B1
8"F
TO
TOM
81
TOM
81
80
TF
SM
TFM
B
TF
AM
S
TR
S
S
roM
87
OSC
22
OSA

"GE

IEGIN

TYPEW~JTU

INPUT

LIST CUD
LI ST TYPEWR I TER
LIST

P~INTER

S,TORE CORE IMAGE

PHASE A.I S TAT-10 ••

ISTAT-30, fLGRM

MODOC.O, 11 •
PHASEA

fIIoooe. 1 ,

IS
15

02~n

lJ~~

n

\J41.
1)424
114,.
13441
134.0
134. .
13410
13'"
IHOO
1350.
13520
13528
13540
13552
13564
13512
13584
13592
1]604
13616
13628
13640
13652
13664
11616
13688
13100
13112
13124
131]6
13143

4.
15

0)404
02473
02474
OH15
0)404
02419
01404
OH80
01404
02481
01404

IU.O
U)92

TYI"SW,o
CDINSW,O
lNCODE,)
PHASE A
TYlNSW" ,II,
CDINSW,O
PTINSW,O
PHASEA
LSCOSW",II,
PHASE A
LSTyS .... , 11.
PHASEA
LSPItSW,l,Ll.
PHASEA

II,

STORE

PHASEA
PHASEA, SSTSW".
SSTOCF+13,HCLIM
SSTOCF+I 3, SS TSC To 100+1l
IDtU.·.23
10GT, SSTOF,l
C20P 1+11, SS TOCF+ 11
C20Pl+11 .... 10

~ElOADABLE

SYSTEM SYMBOL TA8LE

PA.TLIM,e-.
LI MITS-9, PR TLI M-4

lOTR+ll.C20Pl+ll,11
LOTR+ 6,C20Pl+11.11
SSTSW, I,ll
PHASEA
2,22 ..
A8S0LUTE DISK NOT WRONG LENGTH

0247~

02~91

IS
J5
49
15
49

15
49

15
49
44
25
15
49
15
49
43
26
12
16
49
26
II
22
31
22
22
15
49

OHO~

025H
16022
01404
16022
01404
01404
13765
13165
00565
00566
11681
11617
02502
03214
09413
09468
13161
03404
2

13149

I,'

13H9
13150

J3152
I

12630 SS TDCF oOA

13152

I'

12640

13766

DC

12620

,0,55 TOAD. SSTSC T ,--.
OJ 8899- 35- 0000
DC
I,'

12650 SSTSW
12660 C21P
IZ670
12680
12bQO

cnp

12100 CBP
12710
12120
12130
12740
12150 C24P
12760

OS
TOM
B1
TOM
81
TR
SF
TF
CF
Bl
TO
TO

I
2PSSW, L,ll.
PHASE A
KIlSU8,t,Ll.
PHASEA
S8NA. 11 ,ClERER+ 1,6,
I,..PUT-lO+Z-5-1

TWO PASS MODE
NO SU8ROUTINES
NAME AUUA

MONAME,INPUT-IO+Z*5+Z*S
INPUT-IO+Z.5-1
PHASE A

MOIDNO,INPUT-IO+Z*9+Z*],,1 o NUM8ER NNNN
Mal ONO-l. I NPU1-IO+Z*9+Z-Z

13161
13168
13780
13188
13800
13808
13820
1302
13844
13856
13864
13876

DOOOJ
00000
00000
OOOOJ
OOOOJ
OOOOJ
02529
03341
0000OOOOJ
13161
02507
-3511
J3651
Jl143
13165
000-4
00000
02498
1368P
1168P
OOOOJ

5 X

SS TOC F

12610 C20P]

U

00000
00000
0000)

15
49

IS
49
31
32

26
H
49

25
25

I
OH71
03404
OH84
03'00.
11l9L
02882
16035
02882
0340'
16039
16038

OOOOJ
OOOOJ
02697
00000
02893
00000
02897
02895

26
SPS 11-0
12770
12780
12790
12800
12810 CHP
12820
12830 C26P
12840
12850 CALLA2
12860

12870
12B80
12890
12900
12910
12920

12930
12940

12950

TO
TO
SF
81
CF
81

12QQO
\]010
1]020
13030
11040
13050
13060
13070
11080
13090
13100
13110
13120
13130
13140
13150
13160
13110
13180
13\90
11200
13210
13220
13230
13240
13250
13260
U270

15'AT-30."
PCNUSW ,1,11,

SASI

BO
TFM
CM
8L
BE
AM
A
CM
IL
AM

AM
AM
C
Bl
AM
81

SASXl

TF
$

87
SAS2P

U2IO
13290
1))00 SASC2
13310
13310

PUNCH RESEQUENCED SOURCE DECK

• -6 ,INPUT+151

·-36
IORT,w.2)
IDR8C t MCAOfF, 1

PAGE
13888
13900
13912
1]924
13932
13944
13952
13964
13972
13984
13996
14008
14020
140]2
1404~

14056
14068
14080
14092

·+2/t,TYINSW

2PSSW,O

25
25
)2
49

n

49
15
49
32
32
16
II
32
14
41
16
49
44
15

16031
16036
16036
0340.
02529
0340'
02482
0]40'
028&2
02894
14026
14026
00000
14026
14008
00565
00520
IH04
02417

02893
02891
00000
00000
OOOOJ
00000
00000
-2900
000-2
00000
-3D] •

01300
J'079
J5622
OH13
00000

DISK STORAGE SCRATCH SECTOR ASSIGN .. ENT

A

SASC

lI8R

PHASEA
INPUT-1
INPUT.11
·+)O,INPUT+17
·.18.2,10

81
SF
SF
TFM
AM
SF
C"
BL
TFM
8
8NF
TOM

TFM
8
TF
ROY
TF

13000

JULY 11.1963

PHASEA

ro ..

12960 •
1229
INPUU+2
INPUT2,8
INPUT+I2, 59,10.
e+24
INPUU+I
lOlll
INPUT2,4
INPUT2+I, lEPO+21
INPUT 2+6, ZEPO+2"
INPUT2+6
INPUT2>4,OO.10 II
lOl8l
INPUT2, 4
INPUT2+1, ZEPO+30
ZEPO+28

FlA' OP OF aNle, RlIC

INPUT 2+4, ZepO+29

INPUT2H
LOL8L
INPUT2>I, ZEPO+28
INPUT2, 3
INPUTZ+4, ZEPo+29

2'

25
11

17
17
26
11

17

"

26
24
47
12
24
47

12
49
26
32
I'
H
47
32
49

15
25
25
32
16

49
15
25
32
26
32
49
25
l5
25

5
10551
10563
02521
05076
05"6
0)295
0252.
07701
1052P
03037
02197
10610
02521
02899
10716
02521
01686
030)8
03031
03036
02195
10796
03037
08616
03036
03031
03042
03042
03040
08686
03036
03037
02)28
03040
03040
08686
03037
0)036
03040

02521
02399
000-0
10510
10UQ
0252.
OOOJI
J0624
02329
U946
01200
000-5
IH29
01200
OOOJO
02329
00000
00001
000N9
0\200
00000
00004
02321
02329
00000
000-00004
02330
00000
02329
00000
02328
0000]
02329

dO
SPS 11-0
SF
TOM
87
TFM
14560
TO
14570
SF
14580
TO
14590
SF
TOM
14600
14610
87
14620 oosloe SF
TFM
14~30
CM
146"0
14650
8E
eM
14660
14670
8E
14~80
eM
14690
8E
14700
TOM
14710
TFM
14720
SF
TF
14730
SF
1.4740
14520
.. 530
14540
.. "0 oOK

14750

B7

PHASE A

JULV

INPUT2+4
INPUU+3,O,lI
LoL8L
INPUT2+1. 034,9
INPUT2+6, ZEPO+29
INPUT2+6
INPUTZ+4, ZEPo+28
INPUT2H
INPUTZ+3, 0.11
loLBL
ZEPO+22
INPUT2>I, 046,9
ZEPo>23.43,IO
-.12
IEPO+25,4243.8
•• 36

ZEPo+23,42,10
•• 24
I NPUT2+I, 7
INPUT 2+4.60 .1011
ZEPO+28
INPUT 2>6. ZEPO>29
INPUT2+6
loUl
AooCoW,12
INPUT2+I, 02,10

14760 oOSY~S AM
14710
TFM
-+)6. ZEPO+29
14780
aD
14790
AM
AooeOll,12
TOM INPUrz+lol
14800
14810
BTM CTEST, '+12
14820
87
LoUL
14830 OOolSK TOM INPUT2,3
INPUrz+I, ZEPO+21
14840
TO
TOM INPUrz+4, 1,11
14850
14860
TOM INPUT2+3, 0,11
14870
TO
INPUT2>6, ZEPO+29
14880
SF
INPUT2+'
14190
87
LoLIL
14900 OMEseL T'M C"A,FFloC'
ITM CFF,DMfS
14910
14920 FHDCF DOA ,O,A4DAD,A4SCT,INSTRN
OJII76-UJOU'
14930
DC
1, '

PAGE

11,19~J

10976
10918
11000
Ilooa
11020
11032
11044
11056
11061
11010
11011
11100
11 III
11124
lIU6
1114'
11160
11172
Illn
11196
1l20a
11220
11232
11244
11252
11264
11276
112 ••
11300
IU12
11324
11332
1\)44
IU56
11361
Illl0
lI392
11404
11412
11424
11416

32
15
49
Ie.
25
32
25
32
15

49
32

16
14
46

14
46
14
46

15
16

32
26
]2
49
11
16

43
11

15
17
49
15
25
15

15
25
32
49
16

17

,

114.0
11452
1I4U
lI476

14990

TFM eFFA,FFloCF
ITM CFF,OVLe
TfM CFFA.UDCF
ITM CfF,NAC_02
DDA • Q,AID&O,AJSCT,INSTRN
OJ'U4-22JO'21
DC
I, '

15000 D'M
15010
15020
15010

TOM
ITM
IN'
All

11516

I.

lUll
11 • .0
11551

17
46
11

149"0 oVLCC
14950
14960 MCCALL
14910
14910 uoeF

INPUU. 5
IVALAO, . . n , 4
OAC 3- JJ ,ISII
AODCON. 1

1141•

16

11
16
17

lI.OO

03040
03039
Oa686
03037
03042
03042
03040
03040
03039
01.16
02322
03037
02323
11196
02325
11114
02323
11\96
03037
03040
02321
03042
03042
01616
02521
03037
11312
02521
03037
07701
08686
03036
03037
03040
03039
03042
03042
0161.
02629
02592
14

00000
000000-34
02329
00000
02328
00000
000000000
00-46
000M3
01200
OM243
01200
000M2
01200
00001
000000000
OH29
00000
-0012
000-2
02329
-0012
00001
J1324
00003
02321
OOOOP
000002329
00000
JI436
JOI . .

02629
02592
02629
02592

JI436
J221"
J1500
Jon.

01016
05076
UIOO
02521

0000.
11.40
0110.
-0001

.

11114

31

30

" I II-D
"0.0
150S0
U060IlAUO
15070
15010
"0.0
IUOO
15110 •
15120 •
lU)O'
151.0
15150
15"0
15170
15110
15190
15200 DAS
15210
15220
15UO

·•

152~0

15250
1521>0
15270 •
15210 •
In90'
15)00 DAC
15310
IUIO

TF

~UL't

lit ltU

TO
TO
All
SF
TF

SET ONE

Z6

U ...

11601
11610

17

lIUI

llU.
11616
116. .
11.10
11 ••1
11700

unl

1171.
11716

unl

11760

INPUU, 0
STCHAR+ll, 00,10

,

1,',-

11761
11710
11791

15130

arll

153~0

TF
CM
8N
'FII
DC

EVAUO,"12,.
lNTH,ADDIlS
LNTH,51
• •• 0
EVALER-l, 80000"

11792
1110.
U816
11121
111.0
11851

15190
15400
15410 OACER
15"20
15"30
15"40
15"50
15460
15470
15480
15490 ER9DAC
15500

16
Zl
15

1167.

~ZS29

1I67~

••

00000

OU29
00001

17
Z6
26
21
15
25

05076
02)17
02571

onu

••

U'O~

01571
0)016
030~2

11700
03295
OUI7
02571
00001
OU29

12132

EVALUATE lENGTH OF OAC
TOil
'FII
DAC

15350
15360
15370
15]80

onu
021"
000-0
00000
DUn

as

)l

TO INDICATE SUIROUTINE IS REQUIRED

EVAlAD, . . U, ~
LNTH,ADDRS
TEIIPR,lNTH
TEIIPR, 'EMPII
INPUU, I
INPUU06, ZIPOo29
DAC)

TIl

U
J2
Z6

outS
11100
U607·
U'"
OUU
OUU
030U

lU"

"30,I5TAT-30
,01l,U'0+29
.-e, 1
OSA" ,.TO OSA ROUTINE TO COUNT NUII"R OF OPERANDS
EVALUATE LENGTH OF DAS

aTlI
TF
TF
A
TOil

'AGE

II". ••
U ... as

ADDIIS, ADDCON
OACI-II
"U,ADDeOIl
"Z',AJUST
AOOCOII" 10
1I'D.,.
IIIPUTZ+6, ze,o.29

n

TFII
A
TDII
17

'HASI A

ER I, LENGTH TOO 8110

1,',-

TFII
TFII
aT
80
87
A
TF
8NR

LNTH, 00050
TEIIPII, 100
EPIlINT, EPRINT-I
ERCOR, ERSTSW
DACR
ADDRS, ADDRS
TEMPR ,ADORS
"20,INPUT020
£R9DAC
INPUT+22
EVALER-l, 90000"

B7

11852
1181>4
I1ln

")2,

8NR
TFM
DC

CONSTANT NOT SPECIFIED

1,',.

15510
87
15520
TFM
15530
A
15540 CHVALD TR
15550
8NR
15560 E 100AC TFM

DACER
"]5,INPUT+19
'+U,TEMPR
OUT02

•• 32. OUT.+)
EVALER-l, 17000"

illS-COUNT OF CONSTANT LENGTH

11888
U.OO
11901
11920
11932
1194"
11952
11964
11975

15
16

03036 00000
12095 000-0
1 X
2

17

05076
02)17
02387
U908
onu
I

1110.
032"
-0051
01300
QOOOO

02387
02571
07604
07468
12156
03295
02571
11952
1196"
11984
07343
I

-0050
-0100
07603
02476

U

14
47
16
16
16
27
~3

49
21
26
~5
~9

45

"

11976

~9

1198~

16
21
31

11"6
12008
12020
120)2

~5

16

11876
12019
12019
02220
12052
07343

03295
03295
02903
02905
ROOOO

-2902
02571
00000
02221
J7000

32
SPS 11-0
15570

15580
87
15590
8NR
15600
87
15610
CM
15620 STCHAR 8NE
15630
TO
15640
AM
15650
TFM
15660
DC
15670
15680
15690 DACR
15700
15110
15720
15730'
15740 •
15750 NOSINE
15760
15770
15780
15790
15800
15810
15820
15810
158~0

15150
15860
15870
15no
15890
15900
15910
15920
15930
15940
15950
15960
15970
15980
15990
16000
16010
16020
16030
160~0

16050
16060
16070
16010
16090

OAC3

AM
TR
TF
TO
TO
8NR
TO
TO
AM
TF
A
SM
80
TF
8TM
TOM
87
8TM
80
TO
B7

•
•

·

OSI

PHASE A'

JULY 11,196)

1,',-

DC

PAGE
120~]

DACER
·+20.0UT+5
•• 32
DUT+5,23,10
ElODAC
STCHAR+II,OUr.5
CHVALD+·ll,3
CHVALD+II .. 6 10

1.· .•

CHVALD+II,ltlO
I NPUT+21, CHYALDoll, 11
INPUT2+6, ZEP0029
INPUT2+", LNTH
INPUU+3, LNTH-l
DAC3,STCHU+1l
ADDRESS ASSIGNED 8Y PROCESSOR
"U,ADDCOW
·.Z3,JST8L
ADDCOM .. IO
ADDIIS ,ADOCDM
ADDCDM, TEMPR
AODCOW,2t10
·.Z4,lEPO+Z8
ADDRS,AODCDM
CTEST, '012
INPUT2+I. 0,11
lDllL
EVALAD,"12,5
NOSINE,IISM
LDASSM.RLDCSM
DAC3-3l

120~4

~9

12052

45

12D6~

49
14
U
25
11
16

12072
12084
12096
12108
12120
12131
12132
1214~

12U6
12168
12180
12192
1220~

II
31
26
25
Z5

4'

12216
12228

25
25
11

122~0

21>

12252

21
12

1226~

12019
02904
030~2

0]040
03039
12332

02223
OOOK]
01200
02223
-000]
000-0
000-1
1201R
02329
02387
02186
12095

12227
12239
02528
03295
02528
02528
12)00
03295
07701
03037
01686
05"6
1220.
onol
12300

02528
02459
000-0
02521
02571
000-2
02328
02528
J2312
0000-

15
15
16

03036
03M2
073")
I

OOOM
00001
POOOO

05076
02)87
056P6
02571
12501

12276
12218
12300
12312
IU2.
12U2

26
IJ
15
49

IU~.

U

IUS.

25

IU. .

11876
12072
12096
02223
12032
12095
12019
120lR
I

~3

17

••

12J44
on09,
on07

EVALUATE LENGTH OF DSI
TOil
TOM
TFM
DC

INPUTZ,4
INPUU06, I
EVALER-I, 70000

IU7I>
lUll
12400
12411

IITM
TF
aTM
TF
8NF
8T
80
TFM
IITM
TO
8NF
TOil
TF

EVALAO, "12,
LNTH, ADDRS
EVAUD, '+U, 5
TE IIPR, ADDIIS
••".. ISM
EPRINT, EPRINT-l
fRCDR, IRS.TSM
UMPR .0000 I

12412

17

12.2~

16

12436

17

.

1.·.·

"

EVALAO~.+12,5

lDAlSlI,RLDC 1M
DACI-U, 1$11
LOABSM,lo 11
ADDU. ADDCOII

12•• 1

Z6

lZUO
11471
12."

.~

12. . .
1250.

n
U

16
17

Il!JZO

usn

25

12"~

.4
l!J

12S16

26

33

0760~

07. . .
02571
056P6
08101
12300
onol
OUtS

12~24

03295
12~"

OJ295
01309
0760J
02U6
-0001
U5Z0
OUOl
0130'
ODOOJ
02521

32

S" 11-0
16100
lUl0
1612D
16UO
161.0 •
16ltO.
16160.
16110 DSDNI
16110
16190
16200
16210
16220
162]0
16240
10250
16260
16270
16280
10290
'blOO
16)\0
16320

N'~S

A
N
A

'HASE A

JULY U,19U

AODRS, LNTH
LNTH, TEII'R
AODtO'., ••
DAtJ-IZ

17

"'E

12M.
UtlO
125.2

1260..

.
Zl

U

Zl

01295

DUll

onu

n

02111

DUn

000••

12100

EVALUATI LENGTH Of as OR ON.
ITN
TD
TO
Tf
TDN
80
til
INP
Tfll
DC

EVALolD,'oU ,.
III'UU06, u,ooZ.
III'UTzo5, lE,aoZ'
LNT",AODRS
INPUU, .,11
. . . . , UPOOZ.
LNT", . .

8T
8D
TFII
BYII
TD
INF

EPRINT, EPRINT-l
ERCoR, ERSTSII
LNTH, 00050
EYALAO, ."12. IIJ
LOABSII, RLOCSII
DAC3-32, ISII

12612
1262..
12616
12. . .
12660
12672
12. . .
12696
12701
1211.

•• '0
EVALER-I, 80000

1,' ,-

16140 •

Z6
15
U
1.

41
16

12120
12712
12144
127"

ZJ
.. 3
16
11

12710

25
4 ..

unl

16)10 •

lJ
Z5

u

05076
030.Z
0]0.1
OU87
0]0]6
12756
02]87
12756
On4]
I

1262..
0212.
OUU
0]295
000011
0212'
-00"
01100
QOOOO

07604
07461
02317
056P6
08308
12300

0760]
OZ .. 76
-0050
12768
on07
01309

03295
01308
02528
12160
03295
12100
01295
12300
05076
12976
\2976
on42
0760 ..
01468
03031
09958
02528
07708

02521
OOOOJ
02317
02]2'
02387

ADDRESS ASSIGNED BY PROCESSOR

16150 •

16360 DNI2
16370
16180
16190
16400
16410
16420 DSS
164)0
16440 OORG
16450
16460
16410
16480
16490
16500
16510
16520
16510

TF
TOil
A
80
A
87
All
87
8TII
8NF
80
TFII
8T
80
TFII
aTII
TF
8TII

ADDRS, ADDCOII
LDABSII, I, II
ADDtoll,LNTH
DSS,IEPOt21
ADDRS,LNTH
DAO-)2
AODRS,I"O
OAt)-12

EYAlAD,·.12,4
•• 'ft,RELSW
. . n,RLOtSIi
EVALER-2, 11770"
EPR INT ,EPRI NT-I"
ERtOR,ERSTSII
INPUT2+1,06,10,
OUTPUT, PHASE A
ADOCOII,ADDRS
CTEST, . . \2

RELotATlON ERROR
IGNORE A8S0LUTE DORG
IN RELotATAILE ASSEIIILY

127'2
12804
12816
12128
121..0
12852
12160
12872
12110
12192
1290"
12916
12921
12"'0
12952
129. .
12916
12911

26
15

.

21
)

21
.. 9
11
49

...
11

"]

16
Z7

")
16
11

26

IT

000-1
12892
02471
01]07
PIl70
01603
02"76
000-6
-3"0.
03295
J]OOO

16540 •

16550 •

SET ADDRESS COUNTER TO NEil VALUE

16560 •

16570
16580
16590
16600
16610
16620 DENDC
16610
16640 CA50CF

SII
ADDCOII,I,IO
TOil INPUT2,l,Ll
8NF -.24,&00CO ..
TFII ADDCOII,99999
OAC]-20
B7
TFII CFFA, CUDCF
BTM CFF,DEND
DDA ,0,UDAD,A5SCT,INSTRN
OJ8737-29J0528

13000
1]012
13024
13016
130.1
13056
13068
13080

12
IS

'"

16
"9
16
17

025211
0]0]6
130'08
02521
12312
02629
02592
1'0

000-1
OOOOJ
02528
R9999
H080
JII92

3 I.
SPS 11-0
16650

Dt

PHASE A

JULY 1\,1963

1, •

PAGE
13094

DEFINE CONSTANT AND DEFINE SPECIAL CONSTANT

16660 •
16610 •

16680 De
16690
16700
167\0
16720
16730 CeON
167'00
16750
16760
16770
16710
16790
16800

TOil
TO
TF
8TII
TF
TFM
All
TR
INR
CII
BNE
TFII
DC

INPUT2. 2.11
DC-I,ZEPOoze
INPUT2+6, lEPO+29
EVAlAO.e.12,oft
LNTH,AOORS
TEMPR, -00001
TEMPR, I
INPUTtI9, IIIIPUT+lI
CCNl- 36, I NPUTt20
TEIIPR ,0
CCN2
EVALER-I, 90000

1]096
13101
13120
13132
131 ....
11156
13168
13110
13192
1120.
13216
13228
13239

16810
16820
16830
168'00
16850
16860
16870 CCN2
16880
16890
16891

IT

C
BNP
TFM
DC

EPRINT, EPRIIIIT-I
fRCOR, ERSTSII
CCN2
INPUT+20, 2),10
CCONtl2
tCDNo21t
TEMPR, LNTH
e+60
EVALER-I, 11000

13240
UU2
13264
13212
1328..
13296
13]01
13320
13332
13343

16892
16900
16910 DCRN
16920
16930
169'00
16950

BD
TF
CII
8N
TFM
Dt

EPRINT,EPRINT-I
fRCOR, ERSTSW
LNTH, TEMPR
LNTH,51

13"'4
13356
13368
13310
13392
13.a.
13.15

16960
16970
16910
16990
17000
17010
17020
17030
170"0
17050
11060
17070
17010
17090 ttN]
17100
17110
17120 OSA
17UO
171.0

BO
87
CII
BH
BL

IT

1,' ,.

1.·.·

e.12
EVALER-I, 80000

,

1,' ,-

IT

EPaINT, EPAINT-I"
UtOR, ERSTSII
LNTH, 00050
TEIIP., 50
EVALAO, "12, 5
L DAUII,RLot SW
CCNI, ISII
LOAISII,l,11
ADORS, ADDCOII"
AOORS,I
ADDtOI., UTH
'.2., DC-l
ADDU, ADotDM
TI"'R-l
I
TIN"
DAt:t-1l
LNT", 00000

10
TFM
TFN
ITM
TD
8NF
TON
Tf
AM
A
ID
TF
SP

"

IT
"N

IT
TR

"'un....

DIU

INPUTtl., INPUT.II

ER • LENGTH TOO IIG

U.16
U402I

""olD
".52
" ....

U ....
134016

NACHI NE ASS laNS ADDRISS

U500
13512
13524
1U.6
US6I
11"0
Uill

UII..
III..
I ....
1161'
116140

35

IS
25
26
17
26
16

11
Jl
.5
1"

n

16

030]6
13095
030.2
05016
02187
02571
02571
02902
13272
02571
13301
01343

OOOOK
02321
02329
1314"
03295
-OOOJ
-0001
0290.
02.03
-0000
01200
ROOOO

I

2T
43
U

...

14

n

24

n

16

2T
43
26

...

n

16

21
U
16
16

n

".
Z5

U
Z6
11
Zl
U
16

.••.

Il
16

II

07604

01603
02476

U]OI
02903
13168
UI80
02571
13380
07343
I

000K3
01100
OUOO
02387
01100
J7000

on..

0160 .. 0760]
01. . 1 02"76
02317 02571
02317 . -0051
U .... 01300
01343 00000
I
0160.

aT...
02311
02571
056P6
01101
1351Z
DUO.
03295
0]295
02521
lUll
01195
02110
01U.0
12100

01601
02"16
-0050
-OOSO
".16
01307
0130.
OOOOJ
02521
-0001
DUll
11095
01121
00000
Ollfl

Dun

-0000

1. . . .
02901

029U.

14

SPS 11-0

'HASI A

'-12 ••

PAGE

JULY 11.1."

Inso OSAl
In60
17170
17110 DUI
17190
17Z00
17210
172Z0
IlHO
17Z40
11Z50
17260
11Z70
17Z.0
17290
InDo
17110 UDSA
17320

ITM
AM
INII
eM
IH
TF
AM
A
TOM
INF
AM
SM
TOM
BTM

ADDU. AODCOII
AODIIS. 5, 10
ADOtOIl. LNTH
INPUTZ. I
Oat J- S2 • lE PO+ ZI
ADDCDII. 19.10
ADDRS. 5
I NPUTZ. 0.11
tTEST. '+12
8
LOUL
DORG .-]
TFM EVAlER-I.60000
OC
1,' ,-

llnz

15
44

n756
I n. .
13710
U792
UI04
nl12
nlll
nlu

11

49
16

07343
1

00000

17330
17140
17350
17360
17370
17380
17390
17400

8T
80
TFM
87

nn4
13n6
n ...
13 . .0

27
4)
16
49

07604
07468
02387
13696

07603
02476
-0050

•
•
•
A

17410
17420
17430
17HO
17450
17460
17470
174BO
17490
17500
17510
17520
11530

EVALAO.
LNTH. 5.10
'-16. IN'UT+lO
LNTH. 00'0

11

n6.6
n6. .
11. .0
11"1
116. .
U6••
U701
U120

fRDSA

II'.'

EPRINT.EPR1NT-1
ERCDR. ERSTSII
LNTH. 00050
05&2+24

11
11
U
14

••
U
11

n

LZ

15
17

05016
OUIl
n6H

oun

Uill
DJZ95
DU95
OZ521
OJOJ6
LZJOO
OZ528
OJZ95
OJOJ6
07701
0. . . .

n

U640
000-'
02901
-0050
01100
OUU
000-'
02111
00001

OZlU
000J9
-0005
0000-

JUO.
00000

OPERATION CODE TAILE
DC
5,41210, ,
M1210
5,62220, •
DC
02220
DC
5,54230, •
N4230
DC
5,"'4290, •
M4290
5,,.,3240, ,
OC
M3240
5,421t90. ,
DC
M2490
5,52340, ,
DC
N2340
S,lt-Blt80, ,
DC
MB480
DC
5,60000 ••
00000
5,60000, ,
DC
00000
5
••
DC
-000'
7,4154110,
•
DC
"154110
1,6254120, ,
DC
0254120
7,5454130, ,
DC

ADD

13871

SU8TRACT
MUl Tl PLY

131"
M

1 JIll

COMPARE

C

13891

BRANCH

8

13896

DIVIDE

13886

CONTROL

13901

HALT

H

DUMMY OP CODE

13906
13911

DUMMY OP CODE

13916
13921

ADD I MMEDIA TE

AM

13928

SUBTRACT IMMEDIATE

SM

1393~

MUl TI Pl Y I "MEDI ATE

MM

139~2

7-CHAR. SRANCH

81

13949

N"~130

17540 XB7

1,4277490, •
DC
"277490

36
SPS 11-0
17550
17560
17570
17580
17590
17600
11610
17620
17630

PHASE A

DC
7,4354140,.
.354140
DC
7,6344250"
0344250
1,6346260. ,
DC
0346260
DC
1,6359310. ,
0359310
DC
1,4263210. ,
.263270
DC
7,4242420, •
"242420
DC
7,6246320, •
OH6320
7,4346330, ,
DC
.346330
7,5446110. ,
DC

JULY 1101963
COMPARE IMMEDIATE

PAGE
CM

13956

TRANSMIT DIGIT

TO

13963

TRANSMIT FIELD

TF

13970

TRANSMIT RECORD

TR

13977

BRANCH AND TRAIISMIT

8T

13984

BACK

B8

13991

BUIICH

SET FLAG

SF

11998

CLEAR flAG

CF

14005

MOVE FLAG

MF

14012

BRANCH DIGIT

80

14019

BRANCH INDICATOR

BI

14026

BRANCH LOW

Bl

14013

BRANCH NEGATIVE

BN

14040

N~46710

17640
17650

17660
17670
176BO
17690
17700
17710
17720

DC
7,4244430. ,
M244430
DC
1,4249460. ,
M249460
DC
7,4253137, •
11253137
DC
7,4255137.,
11255131
DC
7,4248116, ,
11248116
DC
7,4251116"
"257116
7,4245126, ,
DC
M245126
DC
7,4269126, •
"269126
DC
1,4265146"

BRANCH HIGH

8H

14047

BUNCH POSITIVE

8P

1405~

BUNCH EQUAL

BE

14061

8RANCH zeRO

8Z

14068

BUNCH OVERFLOW

IV

14075

BRANCH Arey DATA CHECK

IA

14082

BIIANCH OUT. LOAD IRl

10

14019

DEFINE SYMBOL

OS

14096

DEFINE CONSTANT

DC

14103

FLOATING ADD SUI.

FA

'4l10

FLOATING SUlfllAtT SUB.

FS

14UT

FLOATING MULTIPLY SUI.

FII

1412.

FlOAT"'IG DIVIDE SU8.

FD

"'111

7

LOAD DIVIDEIID

LD

DIVIDE IlIlIfDIATE

"'''I

7

011

"'145

11265146
17730
17740

DC

1,4241196, ,

112"1196
DC

7,-4251>104 ..

112567011

17750 XDS
17760
17770
11780
17790
17800
11110

17120

DC
",4462015. ,
"462015
7 .-4443005.,
DC
"44300N
DC
7.-46410JI ••
M64101J
DC
1.-4662021"
M66202J
7.-~6S4041, ,
DC
M1>540"J
DC
7.-46 .... 051 "
.. 64405J

DC
1.UHlIO ..
Nl .... UO
DC
7.4'!JU90 ..
MU4190

37

36

SPS 11-0

11110

'H'Sf'

DC

17110

7.-6241412 ..
DI6161K
DC
7,-54521>14"
116'26111
DC
7,625HI2 ..

11 . .0

OUUU
DC
7."55160 ..

17"'0

11170
17110
17. .0
1"00
17910
17920
17930
11hO
11950
17960
17970 e
17910
17990
11000
11010
11020
11030
11040
18050
11060
18070
18080
18090
18100

""5160
DC
7.n4U10 ••
""U70
DC
7,4455150 ••
11455no
DC
7.66"310 ••
ounlo
DC
7.6641390.,
0"U90
DC
1,-4444263 ••
"4442/0L
DC
1.6060000"
0060000
DC
7.6060000 ..
0060000
DC
1,6060000"
0060000
DC
7,6060000 ••
0060000

Dt

JULY 11.19.3
SEue 7 ADDIIISS

SA

141'2

IIASK I "TEIRUPTS

11K

lU"

7

SIU

sa

141 . .

7

IIUD IIU"UICALLY

""

1417)

iliAD ALPHAllfRICALLY
DUll' IIU"ER I CALL Y

ON

WRITE IIUIIERICALLY

14110
14117
14194
14201

WRITE ALPHAIIUICALLY
DO

DEFINE DISK
DUIIIIY ap CODE

14215

DUIIIIY OP CODE

14222

DUII"Y OP CODE

14229

DUIIMY OP CODE

14236

1,'

7

1420'

14243

-00000'
DC
9.6341>54160"
034654160
DC
9.634454150,.
034454150
OC
9,425546440.,
"25546440
DC
9,425559450,.
"25559450
DC
9.425549410 ..
"25549470
DC
9,425548111 ..
"255 .... 117
DC
9,425557117 ..
"25551111
DC
9,425545127,.
"25H5127
DC
9.425569127 ••
"25569127
DC
9,425553136,.
1125553U6
DC
9,425555136 ••
1125555136
DC
'9,426765156"
1126765156
DC
9,42S565L1t1"
"25565147
DC
9,lt25541197"
1125541197

TRANSMIT FIELD IIIIIEDUTE

TF"

14252

TRANSIIIT DIGIT IIIIIEDIATE

TOil

14261

9

8RANCH NO FLAG

8NF

14210

9

lRANCH NO RECORD "ARK

INR

14279

9

8RANCH NO INDICATOR

INI

14218

9

lRANCH NOT HI GH

INH

14297

9

BRANCH NOT POSITIVE

INP

14306

9

8RANCH "NOT EQUAL

BHE

14315

9

BRANCH NOT lERO

BNZ

1'0324

9

lRANCH NOT LOW

BNL

14133

9

lRANCH NOT NEGAT IVE

INN

14142

9

BRANCH EXPONENT CHECK

BXV

14351

BRANCH NO OVERFLOW

INV

14160

9

BRANCH NOT ANY DATA CHECK

BNA

14169

9

38
SPS 11-0

18110
18120
18130
18140

18150
18160
18110 XI82
18180
18190
11200
18210
18220
18230
11240 lOSS
11250
18260 IDAS
18270
18280
18290
11300
18310
18320
18)30
18340
18350
18360
18370
11380

PHASE A

DC
9,425343096"
11253H096
DC
9,42U11016.,
1124311016
DC
9,424172026.,
1124372026
DC
9.424373036 ••
"24313036
DC
9,424374046"
"243H046
DC
9,426354170"
1126354110
DC
9,42427H20 ..
"24272420
DC
9.-645452604"
0454526011
DC
9,555651410 ..
N55657410
DC
9.-444965011 ..
114496501J
DC
9,-464567111 ..
M456711J
DC
9,-465355131,.
M6535513J
DC
9,-63591t1003 t.
D3594100l
DC
9,446262115 ..
1146262115
DC
9.-446243105 ..
M462431DN
DC
9,-444162145 ..
"441621411
DC
9.-444143125"
114414312N
DC
9.-446241035 ..
M4624103"
DC
9. -446242065"
11462420611
DC
9,445542005 ••
1145542005
DC
9,-444754075 ..
114475407"
DC
'.425547550"
"25547550
DC
9.634344011"
034344011
DC
9.425659401 ..
"25659401
DC
9,425945411 ..
1125945411
DC
9.425443421 ..
1125443421
DC
9,424959441 ..
1124959441
DC
9,424342461 ..
"24342461

PAGE

JULY ll,1963
BRANCH LAST CARD

8lC

14378

9

BRANCH CONSOLE SW ITCH

ON

8CI

14387

9

BRANCH CONSOLE SWITCH

ON

8C2

14196

9

8RANCH CONSOLE SWITCH

ON

BC3

BRANCH CONSOLE SWITCH 4 ON

8C4

14414

BRANCH AND TRANS"IT I"M.

8TII

14423

2-CHAR. BRANCH BACK

882

14432

9

UNIIASK INTERRUPTS

UMK

NO OPERATI ON

NOP

14450

9

DIVIDE SU8.

DIV

FLOATING NATURAL EXP. SU8.

FEI

14lt68

FLOATING NATURAL LOG. SUB.

FLN

14477

9

TRANSFER TO LOAD

TU

144810

9

DEFINE SPECIAL SYM80l

DSS

14495

9

DEFINE SPECIAL CONSTANT

OSC

14504

OEF.INE ALPHA SYM80L

OAS

14513

9

OEF INE ALPHA CDNSTANT

OAC

14522

9

DEF I NE SYMIOLIC ADDRESS

OSA

14531

9

DEFINE SYMBOLIC 8LOCK

osa

14540

9

DEFINE NUIIERIC BLANK

ONB

14549

9

DEFINE GROUP IIARK

DGM

14558

9

lRANCH NO GROUP "ARK

ING

14561

TRANSF!R TO PRoC!SS

TCD

lUNCH OUTPUT UCORO IIARK

lOll

14585

9

lRANCH END OF UtoRD

au

14594

9

IIIANCH liDO! SHI'T

IIIC

14603

9

1111

16612

9

I"'NtH llEAD

Jlwur

READY

lUNCH SlDC CNA"IIfL lUST

9

9

9

I.,,,

"

9

9

ICI

39

38

SPS 11-0

lU.O
11"00
11410
11420
11.,0
114"0
184'0
114100
18410
18480
18490
lnoo
18510
ln20
185)0
18540
18550
18560
18570
18580
18590
18600
18610
18620
18630
18640
18650
18660

PHASI A

DC
9,"41"140"
024156140
DC
9,'''15'''2"
N9un. .,
DC
9,594""'12"
N9""55622
DC
9,"6155162"
D66.". .2
DC
9,""455122"
0644551"
DC
9,4)6)55612"
M'6)55672
DC
9.4.44556)2"
M.4455632
DC
9.634651060"
0.4653060
DC
9,410625.050 ••
M66253D'0
DC
9.466259010 ••
M66259010
DC
9.63"562720 ••
035562720
DC
9.6)5546130 ••
035546130
DC
9.-444441013 ..
M4444107L
DC
9. "4454180 ..
N.4454180
OC
9.-47456)013 ..
M745n01L
DC
9.-'7646)023 ..
N7646)02L
DC
9.-446355053 ..
MU35505L
DC
9.-444355253 ..
M4435525L
DC
9.-446341353 ••
M4634135L
DC
9.-444341553 ..
14443"155L
DC
9.-444466063 ..
M4 .... 6606L
DC
9.606060000 ••
006060000
OC
9.606060000 ••
006060000
DC
9.606060000 ..
006060000
DC
9.606060000 ••
006060000
DC
9.606060000 ••
006060000
DC
9,606060000 ••
006060000

DC

PAGE

JULY 11,1")
SILECT IDDRISS IND DPERATI

SID

lU)O

9

RIAD DISK TRICK NUll. WID GP. MK.

UN

14639

9

RIAD DISK WITHOUT GROUP MARK

RON

1"''-

9

WRITE DISK TUCK NUM. II/D GP. MK.

WTN

14657

9

WRITE DISK WITHOUT GROUP MARK

WON

1"'''

CHECK DISK TUCK NUM. 11/0 GP. MK.

CTII

lun

CHECK DISK WITHOUT GROUP MARK

CON

TRANSMIT FLOATING

TFL

I"''''

FLOATING SHIFT LEFT

FSL

147D2

FLOATING SHIFT RIGHT

FIR

lUll

•
9

•
9

9

TRANSMIT NUMERIC STRIP

TNS

14720

9

TRANSMIT NUMERIC FILL

TNF

14729

9

OEFINE DISK ADDRESS

DDA

14731

9

LDID 01 V I DEND IMMEDIATE

LDM

IDCS RUD

GET

14756

9

IOCS IIRITE

PUT

DEFINE TYPEWRITER NUMERIC

DTN

14774

9

DEFINE CARD

NUMERIC

9

9

DCPI

14783

9

DEFINE TYPEWRITER ILPHA

DU

14792

9

DEFINE CARD

DCA

14801

,

DOW

14810

9

DUMMY OP CODE

14819

9

OUMMY OP CODE

14828

9

DUMMY OP CODE

14831

9

DUMMY DP CODE

14846

9

DUMMY OP CODE

14855

DUMMY OP CODE

14864

,

14873

9

ALPHA

DEFINE DISK WITH WLRC

9,'

39

9

-0000000'

4u
SPS II-D
18670 D
18680
18690
18700
18710
18120
18730
187<00
18750
18760
18770
18780
18790
18800
18810
18820
18830
18840
18850

PHASE I

DC
11.42554371011 ..
M2554371017
DC
11042554372027 ••
M2554372027
DC
11.42554373037 ..
012554373037
DC
11.4255437.. 047 ..
M255"'3740U
DC
11 • 42 555343097 ..
012555343097
DC
11.42556765157 ••
012556765157
DC
11.595563686U ..
N9556368613
DC
11.59555 763633 ..
N9555763633
DC
11.66556368813 ..
0655636. . 13
OC
11.66555763823 ..
06555763823
DC
11.44556368513 ••
014556368513
DC
11.44555763523 ..
01455576352)
DC
11.59416368713 ..
N9416368713
DC
11.59415763733 ••
N94U763733
DC
11.664163689U ..
01>4'16'68913
DC
11.66415763923 ••
0641H6l92)
DC
11.66414344943 ..
06414344943
DC
11.59414344753 ..
N9414344753
DC
11.44554344543 ..

JULY 11.196)

PAGE

BRANCH CONSOLE SW ITCH

OFF

8NCI

14884

11

8RANCH COIISOLE SWITCH 2 OfF

BNC2

14895

11

BRANCH CONSOLE SW ITCH 3 OFF

8NC3

14901>

11

8RANCH COIISOLE SWITCH 4 OFF

BNt4

14917

11

8RANCH NOT LAST CARD

8NLC

14928

11

BRINCH NOT EXPONENT CHECK

8NXV

14919

11

READ PlUHERIC TYPEWRITER

RNTY

14950

11

REAO NUMERIC PAPER TAPE

RNPT

14961

11

WRITE PlUOIERlt TYPEWRITER

WNTY

14972

11

IIRITE IIUMERIC PIPER TIPE

IINPT

14983

11

DUMP NUMERIC TYPEIIRITER

DNTY

14994

11

DUMP IIUMERIC PAPER TAPE

DNPT

U005

11

REAO ALPHA TYPEWR ITER

RATV

15016

11

REID ILPHA PAPER TAPE

RAPT

non

11

IIRITE ALPHA TYPEWRITER

IIATY

15031

11

TO·"

WRITE ALPHA PAPER

WAPT

15049

11

WR ITE ALPHA CARD

.. ICD

15060

11

RUD ALPHA CARD

RACD

15071

11

DUMP NUMERIC CARD

DNCD

15012

11

wRITI NU"iRIC CARD

IINCD

150'13

11

READ NUMERIC CARD

RIICD

15104

11

H4554)44543

11860
18170
18880
11...0
11900
Inl0
11920

linD
189.0

DC
11.66554344143"
06554344843
DC
11.5955434465)"
N9554344653
DC
11.63426161114"
03426361114
DC
11.59436161124,.
N94363"124
DC
11.62576,.111...
02576161114
DC
11., "634 T5564Z ..
N9634755M2
DC
11. "4.HU.0, ..
N""447U'02
DC
11 ....)H5U.2 ..
D663411U42
DC
11."44''115102"
06 •••"5102

"IULATE TYPEWRtrER

TlTY

15115

11

RETURN CURAI GE 'YPEWR I'TER

RCTY

15126

11

SPACI '''IIIRlTeR

SPTY

15U7

11

RUD DISK tRICK NUM. WIGP • • •

IITGN

151 . .

11

READ DISII WITH GROU' IIARK

RDGII

15159

11

WRITI DISK TUCK NUll. II/GP. 1111.

WTGII

uno

11

WRITI DISII WITH GROUP MARK

WO,"

lUll

11

4\

40

SPS 11-0
11950
11"0
119T0
18910
11990

PHUE A

DC
II,H6HnU51..
MU34n5651
DC
l1,4344H5UIl..
MH4475t6U
DC
11,-42965344714..
.. 15UJ4471M
DC
11,-46625159061..
MU25U906J
DC
11,-46435662011..

41

JULY 11.196)
CHECK DISK TUCK HU". 1111.,. "K.

CTGN

15192

11

CHECK DISK IIITH CAIIU' "'AK

CDCN

15203

II

lUNCH OUT, LOAD IAI

IOLD

1521 •

11

HOATING SQUUE AOOT SUI.

FSQII

152l'

II

FLOATING COSINE SUI.

FCOS

1523.

11

HOATING SlfjE SUI.

FSIN

15247

11

FLOATING ARCTANGENT SUI.

FATN

15l'I

11

FLOATING EXP. lASE 10 SUI.

FElT

15269

11

FLOATING LOG. lASE 10 SUI.

FLOG

15210

11

FLOATING SHIFT RIGHT SUI.

FSRS

15291

11

TFLS

1531]

11

HOATING ADO

fADD

15124

11

FLOATING SUBTRACT

FSUB

15315

11

M643566207~

19000
19010

DC
1I,-466H95501l..
M662495S01J
DC
11.-. .416155091..

19020

~~416~~~~:!4567UI01..

190]0
19040
10050
10060
19010
19080
19090
19100

M645676)1DJ
DC
11,-465]5647121..
M65]564712J
DC
11,-46625962141..
M662596214J
DC
11,-46625162151..
M662S]6215J
DC
II. -6]465362161..
O]46536216J
DC
11,46414444010..
M6414444010
DC
11,46626442020..
M6626442020
DC
11.4654645]0]0..
"654645]030
OC
11,46444965090..

11

FLOATING SHIFT LEFT SUI.
TUNS,U T FLOATING SUB.

flOATING MULTIPLY

FMUl

15146

11

flOATING OIVIDE

FolV

15]57

II

BRANCH ANO TRANSMIT FLOATiNG

8TFl

1B. .

II

SelECT READ NUMERICAllY

SLRN

15379

11

8R.

BTFS

15390

11

DSAC

15401

II

DEFINE ORIGIN

DoRG

15412

11

HEAD

HEAO

15423

II

... 6444965090
1'110

19150

DC
II,H6]4651010..
"2634653010
OC
11,625]5955860..
02535955B60
DC
11.-42634662111..
M26346621 7 J
DC
11.-44624143025..
M462414302N
DC.
11.-1t4565941015"

l'H60 XHEAO

M45bS94101N
DC
11.-4845414"'055"

19120
1'130
19140

AND TRANS. FLOAT. SUB.

DEFINE SPECIAL ALPHA CONSTANT

M845414405N
19170

OC

SAVE PRODUCT AREA

SAVE

15~3~

11

19180

o241654500P
DC
11.-59626359017..
N9626 35901 P

RESTORE PRODUCT AREA

RSYR

15445

II

1919Q

DC

BRANCH NO OUTPUT RECORD MARK

8NoR

15456

11

19200

DC

BRANCH NO END OF Rec.ORD

BNRE

15467

11

ARANCH NO MODE SHIFT

BNMC

I5H8

II

8RANCH NO READ I NPUT READY

BNIR

15~89

II

11,-62416545007..

11.42555659401"

M2555659401
11,425')5945411

t t

M2555945411
19210

DC

11,42555443421"

19220

M2555443421
DC
11,42554.59441..
M2554959441

42
SPS II-D

19230

DC

PHASE A

11,42431)542461,.

PAGE

JULY 11,1'63
BRANCH SIOC CHANNEL NOT BUSY

BCN8

15500

II

M2435542461

19240

DC
11,-62534144662.,
0253414466K

SELECT ADC AND INCREMENT

SLAD

15511

11

19250

DC

READ NUMERIC INPUT CHANNEL

RNIC

15522

11

SElECT AODRESS AND CONTACT OPER.

SACo

15533

11

SEl. ADDRS.AND PROVIDE OUTPUT SIG. SAOS

155~4

11

DC
11,-62536341612 ..
025363416IK
DC
11,-62534159622.0253415962K
DC
11, -625363.,.3642"
02536]4364K

SElECT lAS

SL TA

15555

11

SElECT ADC REGISTER

SlAR

15566

II

SELECT REAL-TIME CLOCK

SLTC

15577

11

DC

SElECT CONTACT BLOCK

SLCB

15581

11

19260
1.270

11, -59554943652, ,

N955494365K
DC
11, -62414356422"
0241435642 K
DC
11,-62415662432u
D24L566243K

19280
19290

lenoo
19310

11,-62534342612 ..

0253434261K
19320

DC

11,-62535445682.,

SELECT MANUAL ENTRY SWITCHES

SLME

iS599

11

SELECT INPUT CHANNEl

SLIC

15610

11

0253544568K
19330
19340
193'50

19360
19370
1'380
19390
19400

19420
19430
19440
19450
19460
19470
19410
1'490
19500

DC

11,-62534943652.,

0253494365K
DC
11,-59414943152"
N9414943151(
DC
11, -66551)61t3852"
0655564385K
DC
11,-66415643952"
0641561t395K

DC

11,-4341535303l"

READ ALPHA INPUT CHANNEL

RAle

15621

II

WRITE NUMERIC OUTPUT CHANNEL

WNOC

156]2

11

WRI TE ALPHA OUTPUT CHANNEL

WAOC

15643

11

CALL IOCS OR EXEC PKG. ROUTINE

CAll

15654

11

M341535303L
DC
11.-6245455204:}"
02454552041
DC
11,-1t".5763".1".53,.
M457634145L
DC
11.-44516355151"
M451635515L

SEEK

15665

II

DEFINE PAPER TAPE ALPHA

DPU

15676

II

DEFINE PAPER TAPE NUMERIC

DPTN

15687

II

DC

OEF/NE VARIA8LE lENGTH CONSTANT

DVlC

15691

11

DEFINE MESSAGE

DilES

15709

11

DefINE END

DEND

15720

11

DUM .. Y OP CODE

U73a

11

DUM .. Y OP CODe

15742

11

DUMMY OP COOf

157U

11

DU .. MY OP CDOE

15ft4

11

OU.... y OP CODE

'57"

11

DU..MY OP COD!

157..

11

DUMIIY 0' CODe

U7t7

11

11,-1t".6553".3006.,

H4655H3000
DC
11, -44544562085 ..
H45445620lN
OC
11,44455H4001 ..
M4455544001
DC
11,60606060606 ..
00606060606
DC
11 ,606060100606 ..
00606060606
DC
11,60606060606 ..
00601>060606
DC
11,60606060606 ..
00606060606
DC
11,60606060606 ..
00606060606
DC
11,60606060606 ..
00606060606
DC
1\,60606060606. ,
006060.0606

lotS SEEK

DISK

42

~P'~

19510
19520
195)0
19540
19550
19560
19510 FILE
19580
19590
19600 FDCF
19610

11-0

PHASE A

DC
11.60606060606 ••
00606060606
DC
11.606060.0606 ••
00606060606
DC
11.60606060606 ••
00606060606
11,60606060606. ,
DC
00606060606
DC
11,60606060606, ,
00606060606
DC
11, '
-000000000'
)4
FDCF, 00101
38
FDtF, 00102
TRA

JULY 11.1961
15101

11
11

DUNMY OP coDe

15119

DUMMY OP CODE

uno

11

DUMMY OP CODe

15141

11

DUMMY OP CODe

19120
19130
1914,0
19750
19160
19770
19780
19190
19800
19810
19820
19830
19840
19850
19860
19870
19880
19890
19900
19910
19920
19930
19940
19950
19960
19910

•
TRA

10GH
SEEK
PUT

15U2

11

1516)

11

15164

ODA .0.A20AD.A2SCT,INSTRN
OJ8800-54J0528
TtO FILE

19620
OORG
19630 MACR02 TFM
19640
TO
19650
A
19660 GOO083 B
19670 BTBll B
19680
OORG
19690
8
19100
OORG
19110

PAGe

DUNNY OP CODf

INSTRN
GDoOB3+6,8TBl)
GOooB 3+ lI,l E PO+ 29
GOO083+5.Go008)+1I
·-·,,10
0
fRA" •
'-1
IOGET" , +1
'-1
B
+2
PUT" ,
OORG '-1
8
PC'Ll" , +3
OORG '-1
+4
8
SEEk",
OORG '-1
DCARO ,., +5
B
OORG '-1
B
DOWDD", +6
OORG --I
8
+1
OOA" ,
DORG .-3
TRANSFER INSTRUCTION ROUTINE
.+73,ADOCOW
TO
TO
-+23,AJU5T
A~
ADOCOW,.10
TF
AOORS,AOOCOW
AM
ADDCOW,.l
TFM
INPUT2+1,50. 10 II
87
MEXIT
lFM
INPUT 2+6. lOG T
8TM EIJAlAD,PUTSRJ, .. II
TFM I"PUT2+6,IOS.
8TM EVAlAO,PUTSRJ, 4 II
TFM INPUT2+6,IOPT
8TM EVAlAO,.+12,4 II
8TM MACSHF,PUTSRJ

15176
15111
15900
15912

)4

15912
15912
00000
00000
14

00701
00702
00500
00000

16
25
21
49
49

10570
10575
10569
00000
10654

J0576
02329
10575
000-0
00000

49

107H

00000

49

10782

00000

49

11470

00000

,.
)I

49

4)

lSI. .
10528
10528
10540
10552
10564
10576
10516
10586
10596
10596
10606
10606
10616
10616
10626
10626
10636
106)6
10646
10646
1065.
10654
10666
10618
10690
10702
10714
10726
10134
10146
10158
10110
10182
10794
10806

49

10758

00000

49

11070

00000

49

11258

00000

49

12222

00000

25
25
11
26
II
16
49
16
17
16

10677
10689
02528
03295
02528
03037
11018
03042
05076
0]042
05076
03042
05016
11932

02528
02399
000-0
02528
-0041
OOON-

17
16

11
17

-0566
10940
-0554
10940
-0532
10800
J0946

4 I,
SPS 11-0

PHASE

JULY 11,1963

PAGE

19980
eM
INPUT+20. 59, 10
19990
BNE PUTSRJ
20000
BTM MAC SHF, PUTSRJ
20010
CM
INPUT+20,lt2,10
20020
BNE PUTSRJ
20030
8TM MACSHF,PUTSRJ
20040
CM
INPUT+20, .. 3,10
20050
B"E PUTSR J
20060
8TM MACSHF,.+20
20010
81
PUTSRJ
TFM tNPUT2+6,IORBC
20080
20090 PUTSRJ TO
*+23,ADOCOW
20100
TO
.+23,AJUST
AM
20110
ADDeO.,,, 10
20120
TF
AOOR S, AODCOW
20130
A" AOOCOIIII,23,10
20140
TFM INPUT2+I,Ol,10
20150 "EXIT 8TM CTE5T,*+12
20160
TFM CFFA,NCDCF2
20110
8TM CFF,lOLBl
20180 NCDCF2 DOA ,O,A20AO.A3SC T ,I "S TRN
OJ8800-22J0528
20190
DC
I, '

10818
10830
10842
10854
10866
10878
10890
10902
10914
10926
10934
10946
10958
10970
10982
10994
11006
11018
11010
11042
110H

20200 DeARO
20210
20220
20230
20240
20250
20260
20210
20280
20290
20300
20310
20320
20330
20340
20350
20360 DOW DO
20310
20380
20)90

I NPUT2+6.lEPO+28
I"PUT2+5, 0, II
INPUTZ+., '''PUT2+6
INPUT2+1,OS,10
EI/AlAO, *+ l2,~
OCARD+19,8SW
lDAlSW,RlDCSW
TEM'R .ADORS
EVAlAO,"IZ,5 II
AOORS, TEMPR
Mex IT, DCARD>19
lOA8Sw.I,11
AOetOl/ti, 10
AoOR s ,ADOtON
AODCDN. 7 .10

11070
11082
11094
11106
11111
11130
11142
11154
11166
1111.
11190
11202
11114

25
15
21
16
17
25
IS
26
11
l6
44

03042
03041
03042
03037
05016
11089
01108
02511
0,.P6
0]295
11018

15
11

DUal

11226
lUll

"EXIT
l"purl.5.0oll

11250

26
U
49
15

INPUTZ+.,lEPO+28

11270
11212
112. .
lU06

20~OO

20410
20420
20410
20440
20450
20460
20HO
20410
20490
20500
20510

TO
TOM
A
TFM
BTM
TO
TO

TF
BTM
TF
BNF
TOM
AM
TF
AM

81
TOM
TO
TF"
BTl!
TO
TO

I~PUT2+1.05010
EVAUD,·.I2.~

TF

OCAIO+19.1S11
LOAISW,RLOCSW
TEM'.,ADDIS
EYALAO,+H2,5 II
EVALAD,-+lz.5 11
ADDIS, reM'.

INF
TD"

IIUlT,DCUD+'9
lDAUW.I,ll

TF

BTN

erN
AM

TF
All
BNF

'DOtDII.1.10
AODRS .AOOtOW
AODtDII,12,10
·.Z~,.sw

14
47
17
14

n

11
14
47
17
49

16
25
25
11
26

11
16

11
16
17

02903
10946
11932
02903
10946
11932
02903
10946
11932
10946
03042
10969
10981
02528
03295
02528
03037
07108
02629
02592

000N9
01200
J0946
000M2
01200
J0946
000M3
01200
J0934
-0520
02528
02399
000-0
02528
OOOK)
000-7
JID30
Jl054
-8686

H

11061

11251

lUll

uno
lU42

11354

IU66
lUll
11190

11402
11414
1141&

1141.

45

15
16

17
Z5
Z5
Z6
II
11

.
.
2.

15

1l

z.
11

02521
03295
02528
11018
01041
03042
0)037
05D16
11089
01301
02511
056P6
DS.,6

oJZn

11011
01)01
OUZ.
OU95

onn
11462

02328
000003042
000-5
11130
08309
08307
0)295

HI10
02571
11089
OOOOJ
000-1
02528
000-7
000002321
000-5
11306
01109
01107
01295
IU5M
1U60
02571
11019
OOOOJ
000-1
02521
000J2
01309

44

SPS 11-0
20~20
20~30

20540
20550
20560
20510
20SI0
20590
20600
20610
20620
206)0
20640
206S0
20660
20610
20610
20690
20100
20110
20120
20130
20140
20150
20UO
20110
20710
201'10
20100
20110
20120
208]0
20840

PCALL

pcn

AOOCO~.

B7

MUn
COll-II.THINGS-20
. . 20.INPUT+20
"All I
INPUT+20.H.IO
'CALLI
INPUT+20.00.10
PCTR
COll.INPUT+20
COll-l
COll-Il.COll-U
COll-ll.l.IO

TR
BNR
11
CM
8f
CM
8E
TF
CF
TR
CM
II
TR

11
PCALLI eM
IE
TO"
TR
81
SF
TFM
PCLPI AM
CM
INL
pce
C
IMf
AM
SF
11
TFM
ER22
DC

20850
20860
20870
20880
208'10
20900 Cl TBL
20910

PHASE A

SM

Sf
80
TFM
TFM
ITM
OAC
LINk
OSA

U22

·.44
COLL.O
COLl-n.COLl-U
'CALLl
COlL-U
PCC+ll.CLTIL+IO-li
PeC+11.1I.10
PCC+II. CL TlLtlO."U

U2Z
COll-2t--PCLPI
PCC+1I.5010
Pce+ll

pce.l1,.6

EVAlER-I.21200

1,' ,.

11814
11826

line

TAILI/V!CTOR OF CALL STATEMENT

ClLlNk

OAC 6,lOAO
LOAD
OSA eLL DAD

20920
20930

11450
11462
11410
11412
11494
11502
11514
11526
11511
11SS0
11562
11514
11516
115.1
11610
Ilf.22
11.30
11642
11.,4
1166.
11618
11."
1169.
11110
11122
11134
11146
11151
11110
11182
11794
11802
1l81l

INPUT+19.INPUT+ZI
PCAlL+12
COLl-n.06.10

EPRINT.EPAINT-I
HCOR. ERSTSW
INPUT2+4.06000
CFFA.NCOCF2
CFF.SNOTeo
6.L1Nk

SHfCT OPEUNOS

OAC b,EXIT
EXIT
OSA CalLE X

20940
20950

PAGE

JULY 11.1963

5.10

11850
11862
11875

12

.9
Jl
45
4'
14
46
14
U

26
))

1\
14
46
Jl
49
14

..
IS
31
4.
]2
16
11
14
46
24
47
II
12
4.
16

16
16
11

OOOU
01200
000-0
01200
02903
00000
02424
000-1
01200
02904
000-6
01200
00000
02424
00000
JII61
OOOJI
J\939
01300
00000
01200
000-5
00000
K7200

11890

5 x

11890
11893

J2014
6 x

11908

5 x

11908
11911

J2014
6 x
5 X

11926

J2142
5
02902

I I 'Ill

5
INPUT+19.INPUT+21

02400
02903

01604 0160]
01468 02416
0]040 -6000
0262'1 JlOS4
02592 -8710
.. x
2

21
H

11926
20960
OS
20910 MACSHF TA

11932

H

000-5

02521
11011
02421
11502
11630
02903
11610
0290)
11610
024"
024)8
02422
02422
11102
02902
11412
02422
11616
0243'1
02422
11630
02426
11151
11151
lIHl
11802
02431
11710
lIH7
11151
1175P
07343
I

31

02904

46
SPS 11-D
20980
20990
2\000
21010
21020
210)0
21040
21050
21060
21010
21010
21090
21100
21110
21120
21130
21140
21150
21160
21170
.21 \80
2\190
21200
21210
21220
21230
21240
212S0
2\260
21210
21210
21290
21100
2Ul0
21120
21130
21340
21350
21360
21310
21110
21190
21400
21410
21420
214]0
21440

BNR
81
CM
8E
C

CUS

21450

t •• W

BE

882
CLLlNk OS
CLlOAO TO
TO
AM
8TM
aTM
TF
AM
INF
SM
TFM
a7
CALlU TO
TO
AM
TF
TF"
AM
11
DOA
BTM
SF
80
TO
CF
TF
ITM
BTM
ITM
8TM
TFM
TF
INF
TO

OOAX

21460 C4U
21470
21410
21490

,...

PHASE A

•• 20, [NPUT+20
fIIACSHF-1 .. 6
INPUT+20.23.10

MACSHF-I .. "
CLERER+I.INPUT+20
MACSHF
,.+1

e+23, ADoeow
•• 23,AJUST

AooeOw .. IO
EVALAD,·+12.5 II
EVALAO,-+12.5 11
AOOR S. AOOCOW
AOOCOW.31.10
e+24, ssw
AOOeO~.5.10

INPUT2+1.05.10
MUIT
"23.AOOCO~

·+23.AJUST
AOOCO~.OO.IO
ADOU.AOOCO~

INPUT 2+1.0401 0
AOOCO~.6.10

MUIT
EVILlO, •• 12.4
DDA

e.36.BSW
LOA8S~.RlOCS~

OOA
OOUll.ADOU
EVILAD, e.12, 5 \I
EVALAD, e.12. S \I
EVALAO, •• 12, 5 \1
EVALAD. "12. S \1
INPUT2+1.060.9 II
ADOU.OOhU
OOAl.OOA
. . n . AOOCO~
. . n . AJUST
AODCO~. 00.10

JULY \1.1963

PAGE
11944
\1956
\1964
11976
11988
12000
12012
12014
12014
12026
12038
12050
12062
12074
12016
12098
12110
12122
12134
12142
12154
12166
12178
12190
12202
12214
12222
12234
12246
122S8
12270
12282
12294
12306
12318
123)0
12342
12354
12U.

lUll

TD
AM
TF
AM
fFM
If
DC
02
DC
06
DC

AOOCOW. 13.10
"FA.NCOef2
"UIT
2.62

2.41

12462

)4
.1
fU

'''OCf.00101
'MDCP .00702

12464
12476
12411
12500

In

AOD~S.

AOOCO~

2."

12]90
12402
12U4
12426
12UI
12450
12451

45
49
\4
46
24
46

11964
1193J
02903
119)J
02691
11932

0290]
OOOk]
01200
02903
0\200

42
0
12037
12049
02528
056P6
056P6
01295
02528
12122
02528

25
25
11

17
17

26
\1
44
12
16
49
25
25

03037

Il

26
16
\1
49
17
]2
4)
25
3l
Z6

17
11
11
17
16

26
44
25
25
II
26
\I
16
49

11018
12165
12\17
02528
0)295
03031
02521
11018
05016
1222i!
12282
08308
12222
12245
056P6
056P6
056P6
056P6
03037
03295
12411
Ll"DI
1241l
02521
03295
02521
02629

02528
02]99
000-0
1206k
1201M
02528
OOOll
08309
000-5
000-5
02528
02399
000-0
02528
000-4
000-6
12234
00000
08]09
01301
00000
03295
12300
IlllQ
12331234K
00-'12245
12222
02521
02399
000-0
02521
000J3
JI054

\lOll
2

12460

34
11

,.
4'1

\2512
\2512
00000
00000

47

00101
00102
00500
00000

46

SPS II-D
UIOO

.1IOt.

2"10

21120.
21130.
2 . . .0 •

'HASI A

I.

12111
124"

DEP! lIE IIESSAGE

DDRG UISTRN
uno
211.0 • ANALYZE CON'ROl CHARACTER, SUBROUTINE ANAL
lIno ANAL CII IN'UT'2.,4,IO, 1ST CHEca IF RIGHT 'AREN IS 'RESENT
IIIE ·AIIIUloU", 110 LEFT "REN, ERROR
21 . .0
TF
AIIALl'Il,INPUT'U"IIOYE C"AucnR TO ANOTHER LOCATION
21.00
U
IN'UT'19.IN'UT.U" 'OSITION INPUT RECORD
CII
ANaLI'II ••4,IO,IS IT A 0
21"0
NOT A 0, IIAY BE GOOD
2azo A~ALI INE AHaU,,10,
TFII EYAlER-l.17400"IT IS A 0, ERROR
21UO
DC
1 •.' ,.
21640

uno

21"0
21660
21UO
21 . .0
21690
21700
21HO
11720
21130
21HO
21750
21160
lI770
21780
21190
21100
21810
21120
21130
21840
lIlSO
21860
21870
21810
21190
21900
21910
21920
21HO
21940
21950
21960
21970
21'1.10
21990
22000
nOlO
22020

47

JULY 11,1.')

DDA ,O,UDAD,USCT,INSTI'"
OJII5.-IUOS2I
TCD .11

CF

aNAL", RESET STRAY PAREN SWITCH
IT
EPRINT,EPRINT-I" PRINT ERROR IIESSAGE
10
ERCOR, ERSTSW
ANll4 CII
DTR-I,DIIESC"
IRANCH TO READ NEKT CHAR
IE
DIISII " ,
SCANNING FOR ALPHA IIODE
I
OMSHUM
DORG .-)
ANAl2 CM
ANALI'II,4Iol0, CHECK TO SEE IF CHAUCTER lFE BETWEEN A.F
Bl
aNALI'U",
NO IF lUNCH FROII HERE
CM
ANaLl'II,47,IO, IIAY IE CHECK FURTHER
Il
ANll4" ,
OUY
CM
ANall'lI ,54, 10, CHECK REST OF CHARACTERS SERIALLY
INE AHAL h " NOT A IIODE CHANGE
CII
DU-I ,DIIESC" IIODE CHANGE SET UP lUNCH
BE
OIiSNUII,,, CHANGING FROII ALPHA TO NUIIERIC
B
OMES2",
CHANGING FROII NUIIERIC TO AlFA
DORG .-)
ANAL3 CII
ANAlI'II,57,IO, CHK FOR P
IE
ANlH,,,
lEAYE SUIROUTINE
CII
ANALI'II,52ol0, CHECK FOR R,S"T
IL
ANALI'l2" ,
ERROR If lRANCH
CII
ANALI'I1,n,IO,
8H
ANALI'l2" ,
ERROR IF lUNCH
8
... L14...
OKAV, R,S. OR T
ANAL~
DS
,ANAL1+12
• PHASE A OMES 'ROCESSOR
DilES
Sfll EVALAO,"12,4, SCAN ADDRESS OPERAND
TF
0IGITS,ClERER+2" CLEAR DIGIT COUNT
TFII OTR-I,OMESC" SET SWITCH TO HANDLE POSSIBLE ERROR
BNR .,24, INPUT+20, ,CHEtK IF IREAKER A RII
8
OIiSRII", IREAKER A RII, ERROR, INSERT NUll END IIESSAGE
TOM SMDDE", INITIALIZE STARTING 1I0DE SWlTtH
8NF DMESI, 8$W"
PROGRAIIIIER SPEtlFIES ADDRESS
TF
AODIIS ,ADDCOW" NO, IIOYE lOCAl ION COUNTER linD ADDRESS lOC
DIIESI TFII 1I0DEl'6,DIISIINI", INITlTlAllZE BUNCH IN SUIROUTINE IIODE
BTM Il00E"'12"
FIND IIDDE
CM
INPUT+20,4Iol0, SEE IF AVHA IIODE
BE
DMSAlF .. ,
STARTING 1I0DE ALPHA IF BRANCH.

10521
10521
105.0
10st2
10564
lon6
,0511
10600
10611

14
.7
26
Jl
I.
.,
16

OZ907
106DO
10'99
02902
10599
10"0
0134)

10612
10624
10636
10648
10660
10672
10610
10610
10692
10704
10716
10721
10no
10752
10764
10776
10714
1071.
ID796
lDIDI
10120
10832
108n
10856
10600

33

lD528
07604
01461
12029
11144
11248

00000
01601
02476
Jll11
01200
00000

10599
10600
10599
10.41
10599
10714
12029
11248
I14H

000111
01300
000117
01300
000N4
01200
JlII8
DilDO
00000

10~99

10648
10599
10600
10599
10600
10648

000N7
01200
OOONl
01300
00003
01100
00000

05076
02695
12029
10928
11640
03142
10964
03295
11970
11916
0290)
11048

10810
02698
JllIl
02903
00000
00000
08309
025Z8
JI212
J0911
000111
01200

10868
10810
10892
10904
10916
10928
ID940
10952
109. .
10976
10"1
11000

000-4
01200
onos
02906
000114
012·0
J7400

I

27
.3

14
.6
49

14
46
14
47
14
46
49
17
26
16
45

49
15
44
26
16
17
14
46

o

4S
51'S 11·0
220)0
22040
22050
22060
n070
22010
220.0
22100
Ull0
22120
UUO
2Zl40
22UO
Ul.0
22170
22110
22190
22200
2UIO
22220
22130
22240
m:~

16

073't)
I

J7300

IT

EPRINT,EPRINT-I"PRINT ERROR IIESSAGE
ERCOR, ERSTS~
DIIESA,ISV"
SEE OF pROGRAIiMER SPEC ADDRESS
. . n,ADOCOW"
NO, ADJUST ADDRESS + lOC COUNTER
.'23,J5T1l
ADOtDV .. IO
AOORS,ADDtOV" SET ADDRESS OF MESSAGE TO ZND DIGIT
ADOtDv,Z,IO, SET LOC. COUNTER TO lOC BEFORE IIESSAGE
MODI1'6,DIIS81" , sn·up lUNCH INST IN SUIRDUTINE 110 DE
1l00E,IIODE .. SEARtH FOR COIIIIA
DTR ,DMESt" SCAN IIESSAGE OPERAND
DIGITS,4,10, lEfT PAREN FOUND, UPDATE DIGIT COUNT BY •
ANAL,ANAL" STUY "REN NOT FOUND IF lUNCH
ANAU

1I0Z4
11036
11048
11060
11012
1l0.4
11096
11101
11120
l1lJ2
Ill ••
11156
11161
11110
11111
11111
11200
H21Z
1122.
11216
112.1
11260
11272
IUI4
11292
1U91

27
43
44
25
25
11
26
12
II>
17
11
11
.4
.9

07604
07468
11120
11083
11095
02528
03295
OZ5Z8
11970
11916
12030
02695
10528
10600

07603
02476
01309
02528
02459
000-0
0252.
OOO-Z
Jl144
JI916
Jll11
ODD-4
10521
00000

Il

OZ695
11144
0)342
11248
03295
IZ030
02695
10528
10600

OOo-z
00000
000-1
01309
000-1
JUD4
000-2
10"1
00000

11291
11)0.
.11316

Z1
14
46

0760)
-0079
01100
00009
01100
OOONO
01300
000119
01100
000-1
00000
026 . .
DUO.
DUll
00000
03195
000-1

I~f

B

OIiESC

•

UIAO
.

PAGE
11012
Ilon

10
DMSAlf INf
TO
TO
All
TF
SM
DIIESA TFII
ITII
DMSBI ITII
AM

IT

ONfSll CII
IH

e..
1101
ell

DMSLZ

JULY 11,1963

EVALER-I,I7300"ILLEGAl STARTING IIODE CHAUCTER,

DORG
AM
8
OMSMNI TOil
INF
AM
DMSNYM BTM
AM
22270
aNf
2UIO
22290
1l0RG
2UOO
DC

uno
2U20
uno
22340
21350
21360
linD
2UIO
22390
21400
21410
U4Z0
2lUO
" ••0
22450
2'460
lZ470
21480
21490
uno
IUIO
"SIO
uno
",..
11190

PHASE A

TFM
DC

Il
til
IH
AM
I

• CHECK TO
• LOCATION
DMESI TF
INF
A
I

DllfSZI A
·511
10
SII
DIIUU TO
. TO
10
"II

DC
,

a,' ,.

..

)

DIGITS,2,10, UPDATE DIGIT COUNT BY 2
DMSII
5MODE,lolO, SET S~ITCH FOR ALPHA STARTING MODE
DMSNUM,ISW .. CHECK IF PROG SPECIFIED ADDRESS
A·DDR5,1.10, PROCESSOR ASSIGNED, INCRfASE ADDRESS
DTR,DIIESll"SCAN IIESSAGE OPERAND
DIGIT5,2,ID, LEFT PAREN FOUND
ANAL,ANAL" STRAY PAREN NDT FOUND I.F BRANCH
ANAL ..
.-3

1.',EPaINT, EPRINT-I
IIIPUT+20,79, ,tHECK TO SEE IF CHAR NUMERIC
DMSEII2 .. ,
NOT NUMERIC, EIIRDa
JIIPUT+20,69,10
DMSLZ,,,NUIIERIC IF lUNCH
INI'UT'20,'O,10, CHEca IF -OTHRU-9
DIIUll", NDN-NUIIERIC IF lUNCH
IHI'UT+.20,t9,10
DMSIRZ", NOT NUMERIC I F lUNCH
'DUiITS,l,IO, UPDATE ·DIGIT CDUNT .Y ONE
DIISNUII
SEE I·F "'LI'HA VI LL S TART IN EVEN LOCATION
DIISV CONTAINS LOC OF lAST DIGIT STORED,
OIlSY,DIGITS" INITIALIZE IT IIITH DIGIT tDUNT.
·DIIE 52 I, ISW"
SEI OF pROGUlIlIER SPEC AOOUSS
DIISV,ADOCOV" NO, ADD lot COUNTEl
DIlEUI
011 IV.., ADDU" ADD PRO$ "It ADDRU S
OIlSV,I,10, ADJUST .DR NUIIIRIC SURTING MODE
."4,SII001" CHEtK STARTING 11001
'DIISY,I,10, ADJUST FOR U'HA SURTING Il00E
•• tJ,ONSY
DIiSlIID-loEYOOD" •
Ollsa1.0llSlND-l"IULL SUU U' EYEN
"'AUI-1,UaOO..
DOD IIRDR. 'RINT IIROR NESSAGI

1,' ,.

.9
15
44

11
If
11
.4

4'

IUU

U

11376
lUll
11.00
II."

I.
..
11
49

07604
02'10)
11850
0290)
11400
02901
11150
02903
11150
02695
IU41

11424 Z6
11."44
11 ••1 Z1
1141>0 . .
11472 21
11 . .'
1.2
1H... 41
11101 12
11110 n

D326Z
11412
03262
11'20
03262
DU62
&IUD
03262
"'41

IUZI

I.

1l3't0
11152

41>
I.

11112
111.6
11".
liS"

n

.)
16

U61'

Ill"
onu
1

on42

000-1
03162
01.6'
11611
J7600

••

IPS 11-0

'HUI A

PAGE

JULY 11,196]

22510
IT
l'IIINT,I'IIINT-I
10
"COlI, IUTSII
22"0
AM
D"ITS,I,lO,ALLDIi FOil 225'0
2UOO
I
DMSlI
22.10 DMSEND CM
DIGITS .. "
SEI " NO DIGITS ACCUMULATED
IH
"16,,, NO UIID, OlIn
22620
22UO DMSIlM AM
DIGITS,IOO,'
22640
I
DNSERI .. ,
11111011 "
lUNCH, NO DIGITS
TfM IN,unol, 010,. II
22650
TF
INPUT,.., DI GITS
22 . .0
22UO
IN' . . n, ISII
A
ADOCDII,OIGITS .. U'OATe LIKAflON COUNTEIl BY IIESSAGE Sill
22UO
22UO
ITII CTEST,"n
22100
TFII "'A,NCD"
ITII CfF,LDLIL
22110
22120 NCOCF DDA ,O.A2DAD,a4SCT.INSTIlN
OJIIOO-21J0521
22110
DC.
1,'
TFII
TFM
DC

22140
22150
22160

11'"
11S10
1159Z
11.0.
II".

n

U
11

4.
14

lun ..
11640
11"2
llM4
11676

11

49
I.
U

11. . . .,
11700
l171l
IIn4
117U
11741

Z1
17
16
17

11 •• 4
02 . . 5
11100
0]017
0]042
1171l
02521
07101

oun
025.2

14

11>

DIGITS,I00,9, SET DIGIT COUNT TO 100
EvaLER-I •• OOOO .. Ell I MESSAGE. DMES TOO LONG
1.' ,.

01604
074••
OU.,
11144
02695

16

ono.
OU95
Jl724
JI741

....

-

02695
01341
I

OOJOO
00000

11812
0134]
I

00000
IIDOOO

01604
014. .
11664

07603
0241.
00000

22110
8
22780 DMSER I TFM
22790
DC

IU18
11.00
lUll

49

EvALU-I,'OOOO" U' MESSAGE, NO DilES OPEIllNO
I,'...
PU NT IUOIl MESSAGE

22800
22810
22820
22830 NMOIL

EPiUNT ,EPIlINT-1
EReOIl, eUTSW
DIISU"24 .. , CONTI NUE
2,0

IIIU

27

I lin
111]6
118,9

4)

EvaLER-I,l1500..

11850
11861

16

07343
I

J7500

11862
11814
11116
11891
l1'n4

27
41
11
49

07604
07468
02695
I1Z48

07603
024U
000-2
00000

11916
11918
11'140
11952
11964
11'176
11918
12000
12012

31
45
49
14

02902
11952
11640
02903
00000
0290]
11916
12018
00000

8T
80
8
DC
-0
22840 OMSER2 TFM
22850
DC
22860
22870
22880
22890
22900
22910 MODE
22920
22930
22940
22950 MODEl
22960
22910
22980

e+24-

ALPHa IN NUMEIlIC FIELD

1,',·

8T
E'RINT,EPIlINT-I .. PRINT ERR DR MESSAGE
80
ERCOII, EIlSTSW
U'DATE DIGIT COUNT IY 2 FOil END OF MESS
aMII
0IGITS,2,lD,
8
OMSNUM
DC
5.0
-0000
TR
INPU1+19.INPUT+21.. MOvE INPUT IIEtOIlO LEFT I CHaR
~M

BNR
8

e.24,INPUT+20."NOT BLANK, CHECK FOR
DMSRM, ••

CII
BE
CM
8E

INPUT+20.23,lD,
'"
IN'U1+20. ,10,
MODE,..

SEARCH FIELD, CHECK FOR COIIIIA
COIIIIA FOUND. 8UNCH
tOIlMA NOT FOUND. CHECK FOil ILANK
BLANK, CHECK NEXT CHAUCTER

TF

e+18,MODE-l",

ALPHA CHA_ IN FIELD, RETURN, OR CHECK

8
...
NElT CHAR. ACCORDING TO BRANCH
22990
23000 • SU8ROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT 8UFFER
23010
OS
5
TIl
INPUT+I'I,INPUT+21" MOVE OPERAND LEFT 1 CHall + SEAIlCH
23020 OTR
CM
0IGITS.l00.9, CHECK DIGIT COUNT
23030
IH
DMSEIlI-]6,., BRANCH TO EIIROIl ROUTINE
23040
INk -.20,IN'U1+20,. FOR ItM
23050

12028
12010
12042
120H
12066

U

4'1

4'

07.0]
OZ476
000-1
00000
00-00
DilDO
OOJOO
00000
00-702 . .'

2

~

4.

14
4.
26
49

02904
0290]
00000
000K3
01200
000-0
OIZOO
11915
00000

5

11
14
46
45

0290Z
02695
11164
12086

02904
OOJOO
01100
02903

5u
SPS 11-0
23060
B070
23010
23090
23100
23110
23120
23130
23140
21150
23160
23110
23180
23190
23200
21210
23220
23230
23240
B250
23260
23270
23280
21290
2noo
23310
23320
B330
23340
2]350
23360
23370
23380
23390
23400
23410

PHASE A

8
OMSENO". RECORD NARK FOUND, SCAN FINISHED
DORG '-3
CM
INPUT+20.4,IO, CHECK FOR STRAY liT PAllEN

t,

eHE

-.56,

SF
CM
8E

ANAL .. , SET SWITCH FOR STUY PAllEN FOUND
DTR-I,OMESC
OMSII+12

NOT A STtU,Y P.ltEN 1 F BRANCH

I

DIltSNUM+12". NUM

OORG .-)
BHE

IN~UT>20.24.IO, CHK FOR LEfT PAREN
-.24, •• NOT ... LEFT P.REN

88

".

TF
8

-+ll.01R-l,.

CM

•
•
•
•
DVLC

PAGE

JULY 11,1'163

, lEFT PAREN FOUND

NOT A I,
RETURN

49

11616

00000

14

47
32
14
46
49

029D]
12154
10521
12029
11156
11260

000-4
01200
ODOOO
JlU8
01200
00000

14
47
42
26
49

02'10]
12190
00000
12201
00000

000K4
01200
00000
12029
00000

12322
12))4
12346
12358

11
25
26
]]
44
15
32
17
l6
44
26
11
12

05016
08301
12589
12286
12298
08)01
12286
05.,.
12291
123'14
12589
12589
Oll.5
12394
12519
1244l
07141

12226
08]07
032'15
00000
08309
OOOOJ
00000
12]10
0]295
12286
02528
-OD50
-0050
DilDO
OUtS
02'10]

12018
1201.
12016
12091
11110
12122
12134
12146
12154
12154
12166
12111
12190
12202

DEFINE VARIAILE LENGTH AODIlESS CONSTANT

8TM
TO
TF
CF
BNF
TOM
DVASGN SF
OVLC2 8T"
TF
8NF
TF
aM
SM

EvALAD. '+12.4
LOAISW,IILOCSW
ovAD8+11, ADORS
OVSWI
OVLt2. ISW
LDAISW,l,l1
OvSWI
EvAUD, .+12.5
OvCKL, AODIlS
OVL~, ovSWI
DvaOI2
12214
12286
12298

12310
AOOR IS RT .-IIOST POS OF 1ST CON.

8NN

•• 24

12310

46

a
8NIl
TFM

OvAOIOll, AOOIlS
.041. IN'UT020
EVALER-l • • 0000.,

Zl
45

DC

1.' ,-

12]12
12]'4
1240.
12417

23420
23430
23440
23450
23460
23410
23480
234'10
23500 DvEND
23510
23520
23530

8T
80
8TM
INIl

C"
IN'
TF"
DC

e'IlINT, EPIlINT-1
UCOIl, Ell STSW
EvALAO,
5 11
"ZO, IN'UhlO
OYENO
IvAUD, "U,5
DvClL, ADDU
DYLP
DvClL, 00050

·.'0
IvALEIl-1,

23540
23550
23560
23570 DvAOI
23580
23590

8T
10

IPIlINT, I'IIINT-I
fRCDll, USTSw
DYCn, '0
AOOIlS, 00000
"l4, Dvlwi
ADDtDW, DVtn

DVLP

81

ITII

•

81

.

""
"M
IN'
A

ER 9. CONSTANT NOT SPECIFIED

"Il,

1.' f.

10000,.

EIlI. TOUL UNGTH TOO IIG

U

12411 11
124]0 4]
124.2 17
12454 45
1246. . .
12474 17
124... 21
12491 ••
u'O. 14
12511 41
12"0 U
12541

1Z54l
12".
12566
U,"

uno

lUOl

~OOOO

1

27
4S
16
16
44
II

07604
01461

0760]
024U

056"

U.511

12414

02903

1250.
05."
122'1
12394
12291
lUll
01343
I

124"
03195
-0050
01100
QOOOO

01604
01U.
1Utl

0160.
024'.

U614
OU2.

IU . .
IZZtl

onn

51

-00'0
-00G0

50

5" 11-0
21600
U610
21620

uno

OVtllL
21. .0 OVSlIl
2)650 f2
U660
UUO
U6'0
251090
23100
2)110
2)720
237)0 F20CF
2)7"0
23750
23760
23710
23710
23790
23100

•
•
•

23110
23820

sTln

OUlAR

25130
211.0 STIT2
23150
23860
23870 OUTCL
23880
23890 AllR
21900
23910
2}920
21910
23.100
23950
23960
21970
23'80
23990
24000
HOIO
2"020
2"OlO
240"0
2"050
2 .. 060
H070

NADO
LNCT
•
•
•
DE NO

CSTAT

TOil
Tfll
ITII
OS

'HASI A

JULY 11.1.61

INPUrz. ,
Cf",CDCf
Cff ,OAtl-J2
, OVISGN+ll
, OVISIII
flotf,00701
FlOCf,00701
OUTAII-l, CLfllEII-J,1
'-12-6"0,10
'.21,1,10
CLUIU1, 5.,10

os

I.
)8

Til
All
511
CII
IL
TIIA

II

U,,'
U,., "n
12216
U6IO
lU"

I.

lU. .
U . .,
U110
Inn

U
1.

)8

un. n

·-u

uu.

U,..

OOA ,0, "DAD, . . ser ,I NSTIIN
OJln6-UJ0521
TCD F2

sa

PAGE
U61.
U,,'

lnll

U

..
u

56

010)6
02629
on.2
0
0
1275'
12751
JOU,
U . .O
12721
02697
12n.
00000
00000
1.

0000'

In..

JUDO
00701
00102
ou ••
00_
000-1
OOOL.
OUOO
00500
00000

12.,0

SYIIIOL TAILE OUTPUT PHASE
DORG INSTRN
DAS .0
DAC It'

10521
10529
10619

DAS )2
DAC 12, SYIIIOL TAILE
SY"BOL TAIU
DAS 16
DAS J2
OAC 09, BLOCK 01
BLDCK 01
DAS )9
OAS 80
OAC I.'

,

DAC 5,00000
00000
OAS I
OS
5
OS
2

•

10
I

2
2

10691
10755

3Z

12

2
2

1071.
10151
10915

J6
12
9

2
2
2

10931
11011
11111

10
I

x
x
x

2
2
2

11113

5

x

2

11113
11118
11190

1
5
2

2

01011
05076
010.2
010.1
11264
0995.
026-,9
02'92
lU12
10250
02643
11396

OOOL11216
02129
02328
02329
JI2 ••
-7588
-B710
02477
JU12
000-0
01200

)9

EVALUATE ADDRESS OF DE NO
TFII
BTII
TO
TO
80
BTII
TFII
BTII
INF
BTM
CII
BE

[NPUTZ.l.l0,10 11
EVAUO,"12,4
INPUU •• , 1EPO.29
INPurz.5, lEPO+21

·.24.ze'O+Z9, •

CHECK fOIl TCO

OUTPUT, CSTAT
CFFA,NCDCFI
CFF.SNOTCO
'_24,2PSSII
2PSOUT, .+12
SIOUT, 00,10
CAlUl

11192
1120.
11216
11228
11240
112"
1126.
11276
lUll
lUOO
lUI2
1132•

16
11
25
2S
U

11
16
11

••

17
H

•6

52
SPS 11-0
24080
2 .. 0.0
24100
24110
2H20
2"130
24140
2"'50
24160
2"170
HIIO

TO
TO
•
WRITE
TFM
8
TO
CAUAl RelY
n5TRT TFM
AlBO
BO
TOM
DC

511
24190
24200
B7
24210
TO
24220
TO
24230
All
TO
242"0
TO
2"250
24260
All
24270
INF
B7
2"210
24290
TF
24100 IIACRIN INF
CM
2"llO
24120
INL
TO
2"310
SM
ZIt 3"0
2'>l50
11
24160
ID
INF
2"310
2.l10
INF
24190
Ren
24400
WAlY
INF
24410
24420
RelY
2•• 30
WAlY
2••• 0
10
24450
INF
24460 STIEGH INF
2.4TO
IIAtO
24480
WACO
24490 SH
aNF
24500
TfM
24510
Oat

,

24520
24510
24540
ZU50
2U60
24570 STZ
24580
24590
Z"OO
Z. . IO STLOOP

PHASE A

PAGE
lU16
lU.1

JORT, •• 23

lU60
11H2
lUI.
11396
11.01
11420
11U2
11 •• 3

10ll8C,50EF1,7
LOSY" •• I, OG5V

....,---

A310+11.I5TAT-l
UI0+11,,6

1,' ,.

nI0+11,1.10
nlo
·+2l.HUOO
'+23,AJUST
HUOO.OO.10

114••
11."
11.n
11.76
11."
11500
11512
11524
11516
115U
11556

e+21.PJCKUP

·.23.AJUST
PICKUP,,10
'_20.ISTU-lO
·.20
MDIIAO,HIADO
..... KlLSUI
nIO+ll,I5TAT-30

liS. .

-.4.

11580
11592
1160.
11616
116U
11636
116"
11660

AlI0_11,A380+n.6
A310_I1,I,10
_-41
ASTDP,UTSW
'-14,2P5SW
.-36,PTlNSIi

un,
u ...

Pl2MES
"36,CDINSW
C02MES
STIEGN,STPCSW
CAlLll,STTYSW
SH,STPCSII
STln".
OUTCL
5TZ,STTYSII
STITU2 ••4" •

PUNCH TITLE

1,' ,-

RClY
RClY
IIATY STITI
RClY
RClY
CII
S'OUT ,00,10
onlll-ZO,.,
Tf" SltNT ,00,10.
Tf
8Z0tF.',IlDtf.5
All
SICNT,l,lO

.e

JULY 11,1963

OGSV. LOSYIII.1
LOSY" •• l, SPSGM
015X-lilIC-OUTPUT PARTIAL IlDCx

11696
U701
U720
lln2
lU••
lU56
lU. .
11710
11792
UIO.
lUIS

llU6
11121
11'.0

lll!iZ

auTPUT BLOCK NO. If 11011 THAll DIIE
IXISTS

lieu
11'"
11 . . .

zs

on .. l
19998

1'991
02560

16

00565
00520
1999.
00000
11411
11.6"
11.3J
1

JO.U
0))43
00102
-2551
00000
00000

2S

••
Z5

I.
16

.]
15
12

••
25

Z§

11
25
25
11
.4

..••
26

14
.6

.••
2!i

12

43

••
••

I.
J9
I.
J9
43

••••
••"
J9

16

J.
I.
19
I.
I.

,.

11900

.6
II

11.11
1192.

II
U

53

11.11
11.20
11."
11499
02518
lU2l
11535
02528
11556
11568
00415
116]6
11.31
11636
11.3J
11.11
11510
1298.
11712
11696
00000
U029
11n2
00000
Ul0T
11756
1210.
11792
10691
110U
11176
10779
1
00000
00000
10•• 1
00000
00000

OU.,

12116
Dun
1_'
Dun

Jun

000-1
02511
02399
000-0
02521
02399
000-0
02529
02518
02 ....
-2U9
OUOO
11443
000-1
10521
02477
02.75
00102
00100
02474
00102
00100
02470
02.71
02470
00.00
00.00
OZ.71
-0000
x
2
00102
00102
00100
00102
00102
000-0
01200
000-0
10. . .
000-1

52

SPS 11-0
24.20
24UO
246'0
24.50
2 •• 60
24670
24610
24690 sn
24100
24110
24120
2<110

fO
TO
INF
WACO
WACO
WACO
WACO
INF
RCTY
ReTY
TFN
OAC

'HASf A

n

'AG(

JULY 11,1'61

STJr2HOo2,SICNT
STITZ_noZ, SICNT-I
SU,STPCSW
ourCl
ourCl
sn T2
ourCl
C_lO, STTYSW

11916
11941
11.60
119rz
11914
11 . .6
12001
U020
12012

1l0••
snT2Hlo2

1205.
UClAJ

l,' ••

WHy S TI T2
RCTY
RC TY
TFM STl12Hl 0 2,OO,I0
AM
BlOCH5, SPll
S8CNT, siour
C
IH
HOAO
10
DGSY,LOS.MI+l
24"10
24820
TO
lOSYMI'I,SPSGM
20\830 •
RUO OIS~-WlRC-RUO SYMIOl IlOC~
rOlu , ... 23
TFM
24840
24850
IOGT,SO(F2,7
8
24860
TFM lINI TS,llllM
24810
TFM lIMITS-5,MUllM
24880
TO
lDSYMB'I,OGSV
OSYMI-20
24890
87
24900 HOAO TO
OGSV,lOSYN.'1
TO
24910
lOSYMB'I, $PSGM
24920 •
RUO 01 SK-WLRC-PU TI Al SlOCK
TFM lORT, •• 23
24910
2lt9JtO
IOGT, SOEF 1,1
8
1I MITS-9, P_ TlI M-'
24950
fA
24960
TO
lOSYMI'I,OGSV
24970
lIMITS-5t17,10
24980
87
S T5
24990 OSVM8 TR
OUTAR-l,OUTCL-l
TFM lNCT.05.10
25000
25010
TF" S TlP+6. OUTA"'+5-Z
TF
25020 HLP
---.LUHTS-5,Ll
AM
STLP+6, 14-, 10
25030
25040
AM
lIMITS-5,5,IO
25050
TF
NACO,LIMITS-5.11
25060
TO
ALZR+8,"'AOC
25070
TO
4LlR+6.NAOD-l
ALlR+ .... N.OD-Z
25080
TO
15090
AlZR+2,N1OO-)
TO
2"50100
TO
AlIR.+O,"'ADD-4
TFM AllR.+IO,OO,lO
25110
8NF -.48,HAOO
25120
TFM AlIlHIO.59,lO
25130
25140
-.24.RElSW
80
rFM AllR.I0,20.10
25150
CF
25160
AllR+9

247'00
24HO
24760
24770
24180 CRlO
24190
2<800

11061
1l0IO
12092
1l10.
12116
I2IZI
121.0
12152
121 ••
12116
12181
12200
12212
1222.

••

J9

).
)9

l'

••

).

l.
16
19
1.
)4

a.
II
Z.

••
25
25

16

••16
16
25

t

••25

12268
12210
12292
1230'
12316
12328
12336
12348
12360
12312
1238'
12196
12401
12420
12.32
12."
12456
12468
12.80
12.92
12504
12516
12528
125'0

••)1

223
22" '
225.

...

Z5
2!>

25
16

..
2!>
II

31
16
16
26
11
11
26
25
25
25
25
25
16
4.
16
43

16
13

10931 02671
10'2' 02670
12020 02410
11011 00400
11011 00.00
10151 00400
11011 00.00
1211. OZ411
00000 00102
00000 00102
10.31 -0000
I X
2
10151
00000
00000
10.31
10.65
02671
1224.
03343

00100
00102
OOIOZ
000-0
-00.0
026.)
01100
1.99,
02560

19."

00565
0056'
03211
03271
199.8
12316
0]343
19991

J219.
JO'H'
~OOO'

J5'91
03341
1999.
025~0

00565
00566
0327'
199.8
03278
12132
10521
11190
12378
00000
12378
03218
11188
11181
11179
11177
11175
11173
11183
12540
11183
12540
11183
11182

J2291
JOHI
01498
03343
000J7
11010
000-5
J0539
0327Q
000J4
000-5
0321Q
11188
11187
1111'
11185
11114
000-0
11188
000N9
02478
OOOKO
00000

5 I.
SPS 11-0
25110
25180
25190
25200
25210
25220
252)0
25240
25250
25260
25270
25280
25290 ST4
25300
25310
25120 ST5
25330
25340
2H50
25160
25370
2H80 CALl81
25390
25400
25410
25420
25"30
25440
25450
25460
251070

25480
25490
25500
25510
25520
25530 ASTOP
25540
25550
Z55.0 DUTAO
25570
25580 PT2"ES

CF
CF
TF
AM
AM
C
8Nl
SM
BP
BNF
TFM
8
8NF
WArY
ROY
C
8l
CM
8E
C
BNH
8NF
8NF
WHY
RCTY
H
BNF
8NF
WACO
WACO
WACO
NOP
NOP
NOP
TFM
8TM
RCTY
WArY
B
OSA
DC
JO'

oat

PHASE A

12552
1256.
12516
12588
12600
12612
12.24
126)6
126.8
12660
12672
12684
12696
12108
12720
12732
12H4
12156
12768
12780
12792
12104
12816
12828
12840
Ilnz
12'"
12876
12888
12.00

lNeT,idO

STlP
S14. Sf PC SW
lOR T, •• 23
IOPT,OU'AO-4.7

ST5.STTYSW
OUTAR
lIMITS-5,lIMITS
OSVMB
S80UT • 00.t 0
CAllBI
S8CNT. SaOUT

snoop

-+60.2PSSW
-+48,PTIN5W
2STME S
.+96.5TPCSW
•• 84,lSCDSW
ourCl
ourCl
OUTCl
OUlel" ,CHNGE TO WACO TO PUNCH
OUTCl., ,CHNGE TO WACO TO PUNCH
OUTel •• ,CHNGE TO WACO TO PUNCH
CFFA,CB10CF
CFF ,4170

ASMS
MONeAl., •
DUlAR

12.12
NO.( BlNK IN AFU SVM TAllE
MO_! BlNK IN AFU SYM TAILE
MORE BlN~ IN AFJR SYM TABLE

CAll EXIT

1,10'

39,R£THREAD SOURCE .. . , u " ..e FOR .. US 2. '
R£THREAO SOURCE PAPER TAP( FOR .. ASS Z.'
25590 CD2MES DAC )Z ,RElOAD SO~C! CAlOS FOR PASS 2.'
UlOAO SOURCE CARDS 'OR .. ASS 2.'
25600 2STMES DAC Z.... RESS SURT WHEN RUDY.'
'USS "AU WHEN . . AOY.'
25610 ASMS
oat ",DISC ARIA raD SMAll. ASIENILY DElETED'
DISC AREA TDD SMALL. ASSOILY DllueD'
n.20 CIIOCF DOA .O,.loAa,11SCT,SlaUT.1
OJ . . . .-Zo-Z •• 4
25630
DC
1, '

,

54

PAGE

JUl V 11.1963

AlIR'8
AlZR
STlP+6,AL Zft+ 10,6
STlP+6.18.10
LIM 1 TS-5.t2 ,10
lIMITS-5 ,lI MITS
-+36

12924
12936

129.8
12.60
12912

33
))

26
11
11
24
46
12
'6

••16
'9
44
3'1
H

24

.7
14
46
24
47

••••

19
34

••
••
••

39
)9

39
41
4l
41

'f>

17

12 . .'
129.6

34

13001
13024

41

13024
11021

J.

11181
11171
1231Q
12311
03218
03218
12660
111.0
12372
12696
00565
00H2
12132
1052.
00000
03271
12336
02643
12804
02'71
1192.
12864
12864
13171
00000
00000
12.60
12960
11011
11011
11011
11011

11011
11011
02629
02592
00000
UZl9
00796
!

00000
00000
Illn
000J8
000J2
03283
01300
000-1
01100
02470
J2695
H020
02471
00100
00102
03283
01100
000-0
01200
02643
01100
02477
02475
00100
00102
00000
02410
024"
00'00
00400
00.00
00000
00000
00000
J329.
-.170
00102
00100
00000
X
I

J052'
)

39 X

l10n
IllDJ

3Z

UlJl

Z.

U219

nx

U2 ••

14

11)0'

55

2

sn II-D
25640 f)
n.50

n ..o

25610 A5DCf

14
II

TU

PHASE

JULY 11.1 . . 3

'AGE

nuo

45D",00701
UOtf,00702

UU2
UU4

Ul. .
Ill,.

25 •• 0

DDA .0,UDAD.A55C T.I NSTRN
OJ'1l1-29J05Z1
TCO f )

U110

25690

DENO STAU

10522

J.
JI

,.

.9

un.
UJ5.
00000
00000
14

55

00701
00102
00'00
00000

56
SPS 11-0
IPT SPB
2PR TlO
2PSOUT
2PT SPB
ZSTMES
5AlPHO
A3STRT
ADDCOW
Al FL. I
BCMSPC
CA50CF
CAllA2
CALlAl
CAllB I
CAllex
CARDIN
CB 10CF
CD2MES
CDiNSW
CHOEF

01500
20000
10250
00600
13171
03]95
11408
02528
04656
060 ...
130BO
13q72
11396
12804
12142
02664

CHVlLD

13294
13101
02414
02623
12008

CLHER

02696

CLUNK

12014
12014
06056
05900
02695
04800
14832
00001
11304
11412
11520
11412
11048
11616

CllDAD
COMMER

COMSPC
DIGITS
OI"OAO
OIMDCF
OIMSCT
DMESII
OMESll
OMESZ2
OMESCl
DH5AlF

DM5END
O_SERI

11800

OMSERZ

11850
11212
11248
10804
11HZ
10632
06584
11011
lU52
12216
12032
0760.

OMSMNI
DMSNUM
DOBOMK
OODISK
00'1>I5T
DOLLAR
DOSIOC
DOSVRS
OVASGN
ElODAe

EPRINT

ER9DAC

1l9'~

ERCHAR
ERlI'lTH

06701
0.020

ERROIG

03273

ERSTSW

02416
05676
07344

eVALAD

EULER

PHASE A
FF 10CF
GOO082
GOOOB3
HEADER
I NCODE
I NPUT2
INSTRN
I NTRSW
INTSAV
IOAODR
loeSAD
KllSUB
lDABSW
lOOSCY
LIMITS
lO.OUT
lOSYMB
LSCDSW
lSPRSW
lSTYSW
MACRIN
"ACR02
MACSHf

JULY 11.1q63

PAGE

11436
05180
10564
05388
02491
03036
10528
02483
15662
02636
19783
02484
08308
09198
03283
03323
19997
02419
02481
OZ480
11568
10528
11932
15997
151>30
15622
11476

PT2MES
PTINSW
PUTSRJ
RETURN
RlOCSW
RSYMSW
2PASS
2.BUF
2PRE
2PSSW
2PTR
2SECT
2S
SCHAR
6CHAR
AICI
AIOAD
AIOCF
Alser
A20AD
A2SCT

"OCTOt

U>OH

ASOAD

.. OElft
MDIONO

00426
16039
U.035
001'6
16044
16043
19663
11934

ADC
ADDRS
AJUST
AlFlP
AlFQP
ALPHA

07588

AllR

MUlIM
MCADCF

'"tACH
MCCUL

MONAME

MONCAl
MONOI S

MoseNO
MOSDAD

"STeAD

NtDeFI

AlBO

AlDAO
UDCF
USCl
A"DAD
A4StT
ASDCF

nseT

13029
02475
IOq46
06264
08307
08306
10154
10314
10322
02477
10214
10098
10134
06834
06866
10814
18600
15124
00137
18800
00054
11420
18854

11500
00022
18876
00023
18131

uue

00029
05292
03295
02399
04712
04612
02682
11l7J
10'"
10UO
10110\
10600

8lSC T
830AO
B3MAD
BlSCT
B40AD
a4SCT
850AO
85SCT
a60AO
USCT
8BACK
8ETA
81
8111
aOMK
BP20K
8
8UY
8SBF

lSevc

8SENT
ISHI
ISNEQ
8S

ssw

ITBl2
lUll
aTal
ClOP
CI0
CIIAP
CllA
CliP

ell
ell

C1ZP
CUP

en

NtOefl

11054

APiAll

NDSlIIIE
OBJCRE

12204

ANAll.

02496
0490'
10492
10416

ANal)
A~U4

10521
10641

C15
tl6P

10421

AOftS

IOoU5

061".

IUU

A
ASET
UMS
ASR
ASTER
UTOP

000.0
02'21

ASTSI!
1I0AD

CI6
C17AP
ellA
CUP
CI7
CLIP
Cli
C19P
CI9
C1P
CI
ClOPI
C20P2

QPlCT8
OT2DCF
OUTOCF

OUTDFI

OUTDF2
OUTPUT

PCALLI
PCNUSW
PHASEA
PHeDAO
PHCSCT
'IC_UP
PRotON
PROCR'
PROSTM
PULl II

0995.
llUO
02412

aHa.

ANAL"
ANAL

11014

IlDtF

02'197
0)912

81StT
nOAD
lZotF

enOl

lJ/l1
Of·~.:"

,;

Ul.~
01~~6

OHI.
U •• 4
10'li
1.9•.9
10444
00020

19200
104'0

CI4P
C14
CUP

00052
!0
12030
12578
12297
12506
12298
11452
12214

II-D

JULY 11,1961

PHlSE A
DVLP
OVSIII
EoDAD
loSCT
10Sil

!!Ill
!!lIZ
11119
ERI
11120

lUI
I lIZ I
U2
IU
EIIU

...

UtOR
UDSA
EUAB
EVI
EVODD
F2DCf
fl
f]
fDCf
filE
flA!
flGRII
fLDAD
fMDef
PM
GETI
GET
GOO08
HtllM
HED
HIADD
IDMES
INKR.
INPUT
I"SAV
INST
lOCAL
laGET
IOGT
I OPT
10RBt
10RT
10511.
!STAT
JSTll
II.

LA8l

12394
12216
00000
00004
DIU a
0''''
05610
0. . . .
07770
10344
Ili0Z
0.170
042.0
04144
09166
0 . . 11
07468
13112
03299
013.0
02469
12751
12650
uho
15912
15164
15664
0]]41
1224..
IUI2
1246..
06131
06126
04912
02507
10509
OUII
12659
02565
02883
02151
052.0
00n6
1073~

00566
00532
00520
00565
00554
02559
02 .. 59
05352
05'159

PAGE

UI
LADOR
LIZ
LaADO
LltK2
LIfNO
LILIII
LOLll
lOSDK
lDSIl
LOTR

L111
llltT
lNTH
l
IIACRO
IIUIT
IIODEl
MODE
IIODDC
1I0llAD
IIDIIl
IIOStT
""SW
IIULl
MURI
NADD
NASS
NtDtf
Nle
NIIOAL
NOISE
NONU
NUM8
DK
ONEZ
DPI
OP
OSYMe
OUlAD
OUlAR
OUTCl
OUT
PCAll
Ptt
PtK
PClPI
PUR
PUtE
PUT
RlIE

R]E
RCTR

onl.
07916
07n6
07162
01102
OUU
1000.
01616
o.no
09JII
09462
0.672
11190
02317
01520
11514
11011
11964
1191'
1'022
00415
16041
16000
01)10
07061
02631
11118
12756
11741
0800 ..
111.. 9
01521
00457
024"8
0 ..924
02516
0~504
0~JS2

1233'
UOH
10529
11011
02218
11410
117U
02365
11110
11610
03212
10782
03108
040]2
01305

RDIU
11011
IIUDI
IIUOI
IIUO]
IIEUR
IlELSW
IIlDP!
IILDP
IIIIOP
IIIIRK
RSIO
IISCAII
$I

SUI
SAS2P
SAS2
SASCZ
SASC
SASKI
SASX2
SlCNT
SIIIAX

011.0
on28
01604
01636
03440
06416
OZ471
04220
0416.
04441
02575
03176
Oll04
06410
14296
14)96
14504
14468
14260
14364
14572
02671
016. .

51N11

II lIZ

SIOUT
SCTAV
SDEfl
SDEf2
SEEK
SHf
SlOt
UP
SlPX
SMOOE
SMP8l
SPal
SPEt
$PSGII
SREl
SSTOf
SSTSII
STI
STZl
STZ
Sf]
ST4
ST5
START
STtNT
STITI
STITZ
STlP
STR

onu
15652
10411
10419
10758
04744
05364
IIUO
11294
0]]42
oon5
00040
06076
02560
06.....
1374]
In67
11192
10912
IIn6
12020
12696
12132
10522
02513
106'11
10851
12372
11214

END OF ONE ASSEM8LY.

SS
SPS 11-0

PHASE 8

JULY 11,1963

511

STSAV
SUiNO
SVDG
SWZ
TAPIN
TENPR
TEIIP
TESn
TfADD
Tall
TIIA
TSPEC
"PIN
X03
XU
Xl3
X69
X87
XII2
XDAS
XDS
XDSS
XHEAD
ZEPO
ZP
SAVRST
S8fADD
SNDTtD
SSTDAD
SSTDef
SSTStT
START2
STIEG"
STeHAR
snODP
STPtSW
STPRSW
STTYSW
SU8DAD
SU8E"T
SYMUD
SYMT81
S¥StAl
TA8FUl
THINGS
TRNUM1
TRNUM8
TYINSII
TYPASS

57
1'657
onu
0.402
07102
01656
on71
on4.
01210
07U4
06460
10654
I.
,0
" .41
,u517
10519
10515
1051)
1394.
14432
14513
14096
14495

" .. n

02300
04100
05376
15"1
08no
III. .
13752
000)5
10. .6
11756
12084
11924
02470
02"72
02471
04808
01251
026"1
16003
00415
09594
02420
06"4
06910
02~13
146~8

SPS 11-0
00010
00020
00030
00040
OOOSO
00060
00010
00010
00090
00100
00110
00 UO
00110
00140
00150
00160
00170
00110
00 \90
00200
00210
00220
00230
00240
00250
00260
00210
00210
00290
00300
003\0
00320
00330
00340
00)50
00360
00)70
003BO
00390
00400
00410
00420
OOHO
00440
00450
00460
00410
00480
00490
00500
00510
00520

'"'".

JULY U .1911

DOIIG IU.
0

S,.L
S'''IL
S'"TlL
LOSYII.
SlfiOO
LIL '"
"UL'"

OS
OS
OS
OS
OS
OS
OS

0

IPTS,.
2PTSPI
IP2011
ZPItTlO

OS
OS
OS
OS

0

AIOAO
AlScr
UOAO
AlSC r
AlDAO
Alscr
A40AO
A4SCT
UOAO
ASSCT
SSTOAO
SSTSCT
MSTOAO
MOSOAO
BIOAO
BlSCT
B20AO
B2SCT
B30AO
B3SCT
83MAO
B40AO
84SC T
B50AO
BSSCT
860AO
B6SC T
DIMDAD
DIMStT
EQOAO
EQSC T
PHCOAO
PHtstT
SU80AD

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
05

OS

0

MoseT
MOOOt

OS
OS

DOHO MOCToe 05

00540 MONAME OS
00550 MOIONO OS
00560 MOML
OS

02211

SY.Ol rAiLE '.UIIITIItS

o
o
o
o
°o
o
o
a
o
o

SltTORS ,Eft ILOCIC
000.0
.0021S
S'I"IOLS 'Ell IUXK
"I-OIIOrll POSITION OF SYIlIOL TAllE
16001
la-OlD!. 'OSITION OF SYlllOLlt IlOCK \9'"
SYIIIOL IC ILOCK DISK 100lESS
LOSYIII-S'ILeI00+"
19991
La-OIIOE. IlOCK lllliT
2000t
• LOSYIlI-IZ.
. IIAIIIIUII LHIlT
15991
• SYIITlL-6.
EII'IIIUL SteTOI ASSIlIlIlENT PAU"fTIIIS
I-PASS TOTA~ SfCTORS PER SYN. BLOCK 01500
••• ,00.
2-'US TOTAL SECTORS PER SYII, alOCK 00600
SYIIIOllC BLOCKS ,Ell. 20K COIlE
00001
.20000.
2-'ASS RATID--INTfR".I'INAL SECTORS 20000
'PS DISC ASSIGIIIIE"T "UIIETIU
CDIIUOl STATEIIENTS. PH.A SUIROUTINS \1600
•• "00.
.In
OOIJl
.1 . .00.
. . 100
.54
000'4
•• 1154.
TU. CALL. GET-PUT AND ASSOC DECL
101'4
.n
OOOll
olin. DVLC PROCfSS
•• 1116.
\8816
00021
.21
,11131.
DEND. TCO; AND S'MIOL UlLE LIST
I81H
.29
00029
. . . . .9.
18899
000)5
MASffR S'''BDL TAllE
11914
• SSTOAO'SSTSCT.
....u,
19661
"ON IT OR COM" SECTOR DISK AOORfSS
,11'69,
PHASE B IHITlALllATlON
18969
00020
.20
.19200.
INPUT. BRANCH TAILE. SCAN
19200
.52
00052
LI NPRT.I NS UN. DC. DSONB. DAS. ODRG
19000
".000.
.69
00069
.0"OO.PHASf U MIMOU AOOIlESS
09100
.19069.
IISta.OAC.ALOW.DMES.OS8.0VLC.OGM
19069
,53
00053
OU .IIACRO.DDA.TU,OENO
.1 • .122.
19122
00029
CALL LINK.LOAo.EXn
.19151.
19151
.29
00029
01" ENTRV FOR EQUIV. UBLE
.04800.
04800
00001
EQUIVALENCE TABLE
00000
00004
.4
19252
• \9252
.40
00040
IPS SUIlIIDUTlNE Dill ENTRIES
.04801.
04808
MOIIITOII to"MUNICATI ON P AUMET 1115
.16000.
_ITOII COM" SECTOR IIE"ORY ADORfSS
16000
DISC DU"UT CODE
."OStT'22.
16022
CO-TI' OUTPT COOE
1602)
."OSCft2).
NAME
160)5
."OSCftl5.
10 NUMIER
.MoseT'39.
16039
"ANT. LENGTH
."OSCT'41.
16041

40 ..
215 ..
• 1'001.
SYIITlL+SII'U o I1-1.

.t..600.

o
o

o
o
o
o
o
o
o
o

o
a
o
o
o

.n

o
o

o
o
o

o
o
o

o
o
o
o

.2'

...0.

o
o

o
o
o
o
o

o

o
o

o
o
o

60
51'S 11-0

00570
00580
00590
00600
006\0
00620

00630
00640
00650
00660
00670
00680
00690
00100
00710
00120

MDSBNO
MONOI S
IIDEXEe
"OllAO
SVSCAL
NONEl
PC.
•
IDRT
IDPT
IDGT
IDR8e
10S<
lOCAL
MONCAL
IDeSAO

Dono.

as
OS

os

OS

os
as
DS

as
DS

os

os
OS
OS
OS
OS

0071t0 •

PHASE

e JUl v 11.1963

.IIOSCT+43.
."OSCTt44.
.426,
,415,
,415,
.4S1,
.2365
IOIlT ENTRIES
.565
.5)2

SUII. SET

NOISE DIGIT
EXECUTE CONTROL AND SPS INPUT
ME"OI' AOOR
SYSTE" COIIMON ACTION LOtATlON
"ON-EXECUTE FOR 'J08 ERROR

PAGE

o
o
o

16043
16044
00426
00415

o
o
o

00415

00457
OB"

o
o

00565
005)2
00566
00520
00554

.,.6
.520

.554
.00716
.001"
• \97Ilt'00IlUS 01' THE LOADER' CAllER

o
o

o
o
o

00116

o
o

00796
19783

SPS COII"UNICATION AIIU

OOHO'

00760 OUT
00110
00180 ZEfO

OS
OS
OS

00190
00800

OS

81
I ••

02211 ..
02291
02100
02311
02312

00110 LNTH
00820

os

.

5
I ••

on"

DC

oono

DC

I

10

2

AJUST DC
1l.2U12LZI21..
-21212\2121
00840 THINGS DC
21.0010203040506070000'
-00 IOZO)040506070000'
001'0 CaLL
as I'
00160
DS
Z
00110 NUMB
DC
1.'
-00000'
00180 JSTll DC
11,)232)23232..

I

10
2.
1\
1

02317

INSTRUCTION 'UITY TABLE

02399

1\

02UO

21
19
2
7

ALPHA PARITY UllE

02U9

1\

02469

10

-)2]23232)2

00190 EvaDO

00900
009\0
00920
00930
00.40
00"0

•
STPCSW
SHUW
STPIISII
nlNSII
COINSW

DC
10.0101010101"
ONES PARITY TAILE
-101010101
PROCESSOII CONrAOl SWITCHU--FLAG&ED I-ON, UIIFLAGGED O-OfF
DS
1..
Purtell SYIIIIOL UIlLE
DS
I..
nPf SYIIIOl UILE
OS
1..
PIlINT "MOl TABU
os
I..
IIIGIN TYl'llIIIlfell I"~UT
DC
1.1..
IIGIN CAIID INPUT

02470
02411

02412
0247)
OHf4

J

00960
00970
00"0
00990
01000

01010
01020

010)0
01040

PTiNSW
USTSII
2'SSII
AfLSIl
lstDSN
LSfYSIl
LSPIISII
PCNU'.
INUS.

I)S
OS
OS
OS
OS
OS
OS
DS

I..
I"
1..
I..
1..
1..
1..
1..

IIIIIN 'A'U 'A" IIII'UT
11111l1li STII1'
TIIO 'IISS MOOI
AUBIIILI RlLDCAnlU

LIST CARD
LIST n ... u.nu
LIST 'lI ..nlll
'UICII IIU!IUIIICR SauRCE DICK

DS

I..

IlIflUU"

0247'

01.16

oun

02471
01""
02480

01411
0''''1
01411

81

"S II-D

'NASI'

-,

PAGE

JULY 11.196'
NO SU.ROUTJ liES

01050 ULSUI OS
I ..
01060 CTVT
De
5.0
-0000
01070 IIICOOE DC
2.'

S

024.1

2

02496
02497
02502

S
1
, X

.-.

01110 HCLIM

DU

LILIM

01502
OlSOl

-0000
5

01120

DC

I ••

OlSOl
01501

KOO09
1

5"
I"

STC~T

STATE IIENT COUNT
DC
5.1 ••
-0001
HIGH ADDRESS
DC
5.0 ••
-0000
01150 L
LENGTH OF MANTlS,A
OS
2 ..
01160 1'101 SE OS
I
01170 SUBND OS
2
01160 P ItKUP OS
01190
DC
I. I
J
01200 I STAT DC
)0.0'
-0000000000000000000000000000'
01210 SPSGM DGM
01220 I.KRN OS
5
I ••
01230
DC
01140 HIADD

,

01513
02518
02'20
02521
02SU
02528
02'29
30

OlS59

02560
02565
02566

01140 TF.MPR
01250

OS
DC

I ••

02511
02572

5
I

01260 RNRK
01270

DS
DC

I.'

02515
02516

3
I

012BO D.EZ

DC
10.1
-000000001

02586

10

012QO •
01300 •
01310 •

01320
01330 CFF
OIHO
01350
01360 CFFDEF
01370 CFFA
01380

J

1

01010 OBJCRE OS
01090 PROCRE OS
01100 PlllLlII OSA

01130

OIJECT IIACN1N1 SIlE
'RDeUSOR IIACH111E SIlE

02 •••
02".

IDCS CALL-LOAD PROCESSOR SECTION-NO WLRC
DS
TFM
8
81
DSC
22
OSA
DC

5

tORT,.t2l
IDGT,CFFoEf.1
CFF-l,,6
2,22 ••

ABSOLUTE DISK NOT WRONG LENGTH

02591
02592
02604
02616
02623

16
49
49

5
00565
00566
D259J
2

02629

5 X

02629
02630

10'

01390 MURI
OS
01400 IDADDR DC
5,0" FILE ADDRESS OF I NTERMEo I ATE OUTPUT
-0000

-2615
-2623

-0000
I

02631
026lf>

62
SPS 11-0

PHASE 8

JULY 11.1963

01410 SYMTAD DC
5,02bOO"FllE ADDRESS OF SYMBOL TABLE
-2600
01420 SBOUT DC
2.0
-0

PAGE
02641

5

02643

01430 •

01440 •

END SPS COMMUNICATION AREA

01450 •

01460 TVPIN

INPUT-IO

02648

DC
-6'
DU

3,06'

02648
02651

I~PUT-lO

02656

DC
-B'
01500 CARDIN DSA

3,08'

02656
02659

INPUT-IO

02664

OIHO
01480

TAPI~

DSA

01490

OISlO

DC
3,10'
.10'
DC
2.10
JO
01S30 AooCDW OS
01540 ALPHA OS
10
01550 8ETA
OS
10
01560 NOPREC DC
1'.410000000000 '
-0410000000000'
01510 TEMP
5
DS
01580 CLfRER DC
1,0

01'20 SBMU

01590

,

5 X
-2779
3

-2119
3
5 X

02664
02661

-2119
3

02669

,

2

OZ614
026'4
02694
02109

10
10
15

02114
02115
02116

26

02142

Z1

01610
01620

OSC 26.0
00000000000000000000000000
OSC 21 ••
00000000000000000000000000 '
OS
oAC

•'.

02716
02719

8
, X

01610 IN'UT

OAC

6.

02119

6

01640

DC
•• 0
-0000000
00
.. 0'. . . 10
00
.. 0246110
00
•• 024 . . 10
00
•• 02. . . 10
00
,,02 . . . 10
DO
,,01. . . 10
00
,,0 . . .110
,,0. . .110
00
,,0. . . . 10
00
,,0. . . . 10
00
,,0. . . . 10
00
00
.. 0 . . . . 10
00
.. 0 . . . . 10

01600

01650
01660
01610
0"80
01690
01100
01110
01120
01no
01140
01no
01160
01710

OllOl
OliO.
02120
OliU
02144
Oll"

oa ...

0.110
0....

OIM4
01."

0''''
0'960
019. .

-0
-0
-0
-0
-0
-0
-0
-0
-0
-0

-.
-0
-0

-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-

63

0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

4

' ' I II-D

onlo

00
DC
-0
DC
-0

01190
01toO

'NAIl I

~ULY

11,1")

OZ."

2,0

DIS 100
01110 "CII
01UO
DAS I
OIUO I",UTZ OAS 1
011_0
Dse SO,O
OooooOOotO'OOOOOOOOOOooOOOO')lOOOIOOOOOOOOClOClOOOeOO
01150
Dse
ooooooooeoooooooooOOOOOOOOOOlOooOOO_OOOOOOIOOOO
01160
Dse 50,0
0000000000.000000.00000000000000010000l00001000000
01.70
Dse 50,'
0000000000010000000000000000001000000000000l00000'
01 •• 0 Aoo,", OS
11
01890
DC
I,'

51,.

01900 LINII
01910
01920

TFII

•

DC

01930 DUMP 1 OS
01940
OS
01950 DEFINI DSC
00
DSA
01960

..0"'"-

"

,,0'''"0
,.0

ont_

50

50

on._

50

01_1_

'0

0)_._
OJ495

11
I

,LIIIUI4
1
2,00

01510
0'521
0)522

SUlIN

035,.

03521
03529

-,

10

DUn
-U611
1

1,'

DSC
02
DSA

2,02

035)0

SUIIN

onu

5

0)5'6
1,'

on17

-35)8
1

.0,---,2,---

DUll

14

02010 SUIIN

DDA
0-0000-02-0000
1,'
DC

02020

02050

ac

2.02

03553

SUlaUT

01559

1, '

OU'9
0)580

-)562
1

03562

14

02060 SUBaUT DDA ,O,e-e,J,'ACK
0-0000-03-1910
DC
02070
10'
02010 DEFSM

asc
00

x

03552

,

OlO)O OEFOUT ose
02
DSA
02040

-001'
00000

5 X

DC

DC

2
I

-)538
1

01980 OEFIN

02000

••

0
1
I

01970

01990

0-0-0

2
JOI
1
I

014. .
0150.
OJ520

,.z.

-0-02

0""
OU.l
OJl.I
osa._

'tU 10,19,17
PCII
1, ,

5

"II
-0

5 X

03".
03!17

2,00

2

8 /1
SPS 11-0

PHASE I

PAGE

JULY 11,1'"

01090

DSA

SueSII

03583

02100

DC

I,'

035'3
035'4

-1516
1

02110 SueSM

DDA ,0, '-', SPIL ,$IFADD
0-0000-40J5991
DC
1,'

OUI6

14

02120

,

03600

02130 MURIEL OS
1
02140 INTIUF Dse 9,00000000'
00000000'
02150
DSS 191
02160
DC
1, '

03601
03602

9

03611
01102

191
1

02170 ERLAB
02110

03105
OJlll

DAS
OAt

6

2,.'

+'
02190 lO,.UT DC

12,0
-00000000000
02200
DC
4,'
-00'
02210 lIMTSP OS
,HeLIII
02220 L111
10,0
DC
-000000000
02210
DC
1, '

,

Ie

4

02507
01.45

0
10

01146
10

OS
OS
OS

,$lOUT

021.'

0

01 . . 1
0'''8

1
5

on..

I

olin

5
5

)

1
DC
5.75
-0075
2,0
DC

1

OU60

)

5

DS

,
,

DC

oun
onn

I, •

OU' •

I

OJ. .'

5 X

-0

OZl20 UUtll OS

.

OUSO 'ACUO OSA

PACI ,'ACU n, " c u 110, 'ACII+US

,

-t...

01'"

-.on

0 ....

.....
..........

-1110
-liDS

OJIM

0 ....

02'-

ozno , _
OU"

DC

•
.n
DC

-

DUM nnc.OI
OZ.OO

oc
,

I, •

u

.,0

•

I, '

2
2

12

01U8
01151

OU10 FUUD OS
02'no LSTAO
02)40 'LGllII

03131
Oll35

I,'

02260 ILK

oUoo

6 X
2 x

,

OS
DC

02210 HiD
02210 DIlES.
02290 nn

1

10

02240 L1I1SV
02250

6

5 X

1

,.
•

0 ....

,nn

IS

4

SPS 11-0

PHUE •

PAGE

JULY 11,196J

•

onSi

1,0

OJ952

OZ4JO ILIIAOS
02440
OSA

JO
S"NTlL-6

OJ951
03911

30
5 X

02UO LIMfSF OSA

SVNTlLt17oSNPlLt11

OJ9I7
OJ992

J5991
5 X

02460

I, '

0)992
03993

KOO09
1

OZ~10

SFA

OIUO

OS
OC

oss

OC

03995
04000

02410 BLKCTR OS
024BO OMPOIG OC
5,0
-0000
02490 ABU
5,0
OC
-0000
02500 FRSTMT OSC 1,0
0
02510 KLRLSW OS
1
02520 X
OS
5
02530 CAROLN OS
I
02~40 VACANT OSS
140
02550 TVPlN2 OSA INPUh20

04005
04006
04007
04012
040ll
04014
04158

1
5

I
1.0
5 X
-2809
3

O~I'n

02560

DC
-6'
02510 COPOEF OSA

3,06'

04161

INPUT2

04166

5 X
-3283
3

0~166

02580
02590 INITI
02600
02610
02620
02630
02640
02650
02660
02610
02680
02690
02100
02110
02120
02130
02140
02150
02160
02170
021BO
02790
02800
02BI0

DC
JO'
TF
TFM
TFM
TFM
TFM
TF
SM
TFM
BNF
TFM
TO
SM
SF
8NR
TR
TFM
B
TR
AM
TFM
TR
TF
TF

3.10'

04169

ERLAB+IO,CLERER+II
HED,,10
SUBOUT+5,0
I NUM, 99999
SUB1N+U,INTBUF
SUB I Nt5, IOAOOR
SU81Nt5,2,lO
ADOCOW.2401
•• 24,RELSW
AOOCOW.99999
OMPOI G-4. PROCRE
OMPOIG.ltlO
FLGRM

04110
04182
04194
04206
04211
04230
04242
04254
04266
04218
04290
04302
04314
04326
01tJ]8
04350
04362
04314
04386
04398
04410
04422
04414

e+48.ISTAT-29
PKMOO,PACUO-4
TTV5,75
e+48

PKMOO.PACUO+I
PKMOO+4.25
HV5.50
L IM-9.L1MTSP-9
SUBSM+5.SVMTAO
SFA.SVMUO

26
16
16
16
16
26
12
16
44
16
25
12
32
45
31
16
49

]1
11
16
31
26
26

03815
03860
03561
02565
03551
03543
03543
026H
04290
02674
03996
04000
03884
04314
03906
03866
04410
03906
03910
03866
03836
03591
0)951

02126
000-0
-0000
R999q
-3602
02636
000-2
-2401
02418
R9999
02491
000-1
00000
02530
01885
-0015
00000
03890
-0025
-0050
02498
02641
02641

66
SPS 11-0

PHASE 8

02880

,PKMOD.4t
ABBA
INTBUF+200. SPSGM
CALL PHASE B2
TFM CFFA.OCFB2
8TM CFF,PHASEB-12
OOA .0, B20AO. B2SC T. PHASEB-12
OJ"200-52-4110
I ••
DC

02890 •
02900 FI
02910
02920

LOAD PHASE BI TO THE FILE
34
SUBO.701
38
SUBO.702
TRA

02840 -

02850
02860
02810 OCFB2

02930 SUBO
02940
02950
02960
02910
02980
02990
03000
03010
0]020
0]030
03040
03050
03060
0]010
03010
03090
03100
03110
01120
0]130
01140
03150
03160
03110
03180
03190
03200
03210
0)220
03230
03240

.

OOA • O. 810AO.81 SCT. SBOUT> I
OJ8969-20-2644
TCO
FI

OORG INITI
BTM GEET._.12 •• tAll PHASE 83
2PASS.2PSSW
PHASEB 80
TFM SUI "'1+ 13.INPUT-19
AM
SU8IN+5.2.10
•
READ SOURCE SH TEMENT FROM THE FILE
TFM IORT,"23
B
IOGT.OEFIN.1
TR
INTlUF.INPUT-19
8NG 1001
.1 NPUT.IO •• CHK. FOR FILE GRP.MRK
SM
SU8IN+5.I,10
81
GOI
2PASS BNF SEC aD .PT! NSW .. CHK FOR .CARO OR TAPE INPUT
0
ACCEPT TAPE INPUT
TfM 10RT."23
IDIOT. TIoPlN-4, 7
I
FORWO
8T
•
ACCEPT CARD INPUT
SECRO TFM lou, •• n
10GT ,C&1I0IN-4, 7
I
FORWO INII "U,INPUT-IO
TFM INPUt-10,O,10
CM
I NPUT-10.14,10
2PASS
Ie
TOM o-Utl
IT
RSCAN,R$CAN-l
AM
1001
INKIIN.ltID
CLOUT ,CLOUT-l
IT
TDM IILIILIM,l,1l
Til
IIIPUU-ltINPUT-ll
III' ••Z6,LlTnll
OU60
IIcn
OU10
011.0
CH.C. '011 CO..... NT IUT.NINT
012.0.
OUOO CAifia I"a "IO,I"'UT
OUIO
CHIli 0
IT
OUZO
CN
IN'UT,16tl0

olno

••

PAGE

JULV 11.1963

TF
TO

02820
02830

04446
04458

26
25

04005
03802

03910
02560

04410
04482
04494

16

02629
02592
14

-4494
-4170

0455.
04558
00000
00000
14

00701
00102
00500
00000

09252
04286
03551
035H

-4182
02411
-2110
000-2
-4241
-3530
02110
02869
000-1

17

04508
04510
04522
04534
04546
04558

34
38
36

4"

04510
04110
04170
04182
04194
04206

11
43
16
11

04218
OU)O
04242
04254
04266
04278
04286

16
49
H
55
12
44

00565
00566
03602
04426
03543
0 .... 26
04330

04298
04310
04322

16
49
49

00565
00566
04354

-4321
-2652

04330
04342
04354
04366
04311
04390
04402
04414
04426
044)'
04450
04'"
066'6
04. .6

16
49
45

00565
00566
0437.
02719
02119
04211>
04391
05114
02565
08161
04007
OUU
06. . .
00000

-4353
-2660
02119
000-0
000J4
01200
00001
05113
000-1
0.167
OOOOJ

066"
06110
06111

49

16
14
46
15
27
II
Z7

15
JI
46

16

.,
61

16

06111
06.16

on..

67

02415

oanl
OU.O
00101

on ..
000J4

1

IPS 11-0

onto

'''UI

•

•

•

I.
I".

PAGE

JULY U.l.n

CHIIIO
OU.O
•• , •• unsw
OU50
WATY I .... UT-10 ... " ' I COMNINfI SUflNI .. '
on.o
,,,,,n.utOsw
I'"
OU10
IT
aI¥SC".IIUSC"-l
OUIO
PUNCH tOllMlNU CARD
OU'O "MCON 8N' '"AlII.LltOSII
03400
T'" IIIIIT ••• n
03.10
10" .to'o,,-•• 7
0).20
17
'''AIEl
03UO tHKla TF" IIlO,.".1 "'UT-2
03 •• 0
All
IIlOhll.2.10
0).50
til
lila,.". I ,,'U1+ 12
O)UO
IILO"2.
O).~O UOP
0).10
TP
1"'UT.lo.elf. . . . u
03.90
e
CUU.'U.I"'UT+IO
•• J.
onoo
8E
OlSlO
TF
EltUI+lO.IN'UT+1O
ouzo
111.11... 0
0)5)0
TFII RIIa,+u. I NPun 10
O)UO
All
RII"'U.2.10
0)550
CII
1tM"'U.IN'UT+ZO
8E
1111"+24
0)'''0
0)570 llIOP
8NR -·36,-·TF
03580
I N'UT+". CLERER+ 7
0)590
INF NAST.ZPSSW
BNF .+32.INT8UF+1
011>00
0)610
TO" INTlUF+7.0
87
·.20
011>20
036)0
TR
INTlUF.INTBUF.8
03640
8NIt 'ULlID.1 NTBUF
03650
TF" SU8IN+U.INTBUF
All
0361>0
SUIIN+05.2010
0)610 •
READ INTERIIEolUE OUTPUT FIID" FILE
03680
TF" tORT •• +2)
03690
8
IDGT.oEFIN2.7
03700 PULLIO 8NF NASToINTBUF+l
03710
TF" EVALER-2.67610
8T
OH20
E'RINT.EPIlINT-1
03130 ERRU WAlY MESS2
O)HO
RClY
03150
FWOSCN.FWOSCN-I
IT
03160
TFM IORT,.+2'3
03770
B
IOGT.TVPIN-4.7
0)780
8C4 ERRU
03190
CM
INPUT.14.10
0)100
8NE e+24
TOM IN"UF+l.0
01110
87
CASTER-.8
03820
03130 •
038<\0 •
TVPE DUT SDURCE STATE"ENT
03850 •
031.60 HAST
TF
LDPDUT. I NPUT-2
03170
TR
[N'Ull-l. lO'DUT-9
TF
03880
LDPaUT. IH'UT+IO
I".
I .. '

e.",e·e

""

04130
041.,
0.,,.
041. .

U

••It
••

oun n
ou.o
OU02
0....

oun
o.n.

0....
0 . ."
0 . . 70
0 . .. ,
0....

.,••
1.

••
"
U

1.

••

.
•5

u
ouo. n

OU1I
0.7)0
0.7.2
0.75.

26

"

16

ou..

II

OUll
OU90
04802
0411.
04126
0."1
0."0
04162
04110
0.'82
0."4
04906

1.
.6

.••.,
.."

04918
0.9)0
0.'42
0.9H
0.9.'
0.971
0.'90
05002
0501.
0'026
05051
05050
05062
0501.
05016

16
.9
.4

0509.
05106
OHtI

26

Jl
45
16
11

OU3.
0.,. .

oun

0.111
0""

OZU •

0.11Z
00'"
00"2
0.112

OU1'

ou"

OU"
0 . ."
OHo.
0....
027"
027U
OH' •
0)815
025105
OUU
0.")
04lU
04lU
04766
02807
0509.
04870
031>09
04882
03602
04942
03551
0354)

01111

- •• u

-.162
-2711
000-2
-ZIOI
01200
00000
02726

all"
01200
on..
-0000

-n ••
ooo-z

-210'
01200
00000
02722
02477
03609
00000
03610
03602
-3~ 02
001::-2

-4941
·-3522
03609
07610
08063
00100
00102
05933
-50H
-26.4
00.00
OOOJ.
01200
00000

49

00565
00566
05094
0761>.
01064
01033
00000
059)4
00565
00566
0.978
02189
05086
03609
04450

26
H
26

03831
03282
03831

02181
03822
0219'1

U.

21
19
1.
21
16
U

U
U
H
15

•

OU.
O'UO
00100

611
SPS II-D

PHASE I

0]890
03900
03910
03920
03930
03940
03950
03960
onl0 MARKI
03980
03990
04000

TR
TF
TR
TR
TR
fOil
8NF
TF
INR
TF"
DC

PLACE ,AOOCON
•• 24,INPUT+20
INPUT+22 .. 10

04010

8T
8MF

ItEVSCN.ItEVSeN-1

04020

04030
04040
04050
04060
04010
04080
04090
04\00
04110
04120
0.1)0
04\40
04\50
04160
0.170
04110
041'0
OUOO
04210
04220
04210
04Z.0
04250
04160
0.270
OUIO

WATY

'ILM

RCTV
TITV
ell
INH
INF
TFM
8
IT

TLU

.lfF
10
11
INF

•• 24, LsrVSw
INPUTZ., •

TYPE SOURCE STMT.

1,',.

•• 60 ,lS TYSW

REVSCN+35.IN'UT2+IOI
-+24

REVSCH+35. IH'UT2+2'"
flU
TLU. lSCDSW
IDRT.Ul3
I DPT • CD'DEF-4. 7
CLOUT. CLDUT-I
oU2.INT8UF'1
I NSTRN.INTlUF.I

TIll

INSTRN.INTlUF
.D INSTRN.INTlUF
TFII GODOI2+6.STlL2
TIL 2
TO
GDOOIZ+U.IHTlUF+1
A
500012.'. GDDDI2+l1
GOOD82
.,10
ST8Ll 8
.... Clto .. , 0
OORG .-1
+1
SAVE. "
OOR' ·-1
Itsr., " +2
ODR' .-1
"HCOII-I2 ••• oJ
042.0
OORG '-1
04)00
II
CAlU .... +4
0.310
OOItG '-1
M.CZ .... ,
04320
I
04])0
DORIO ·-1
04340
e
I'CHCall- u •••
04)50
DOIIG ·-1
OUIO
LINKS' .. ,+7
04)70
001110 .-J
TFIII GOOOI.'.1T1l
04310 Till
0.)90
TO
_ + 1 1 . unlUf
04400
A
GOO.+.,GOODI+ 11
04410 GDODI
,,10
04420
'AA ••• - '
0.430
OOIlG .-1

•

•
•
•

+,

•

••

JULY 110196)

IN'UT2+1I. LD'DUT-II
lD'OUT. I NPUT+!B
INPUT2+25. LOPDUT-7
INPUU+35. INPUT+19
VACiNT.INPUT+19
oMESW

PAGE
05UO
0'1.2
0515.
05166
05178
05190
05202
0521.
05226
05238
05250
05Z1>1
0521>2
05274
05216
052.8
05310
05322
05)).
053. .
0535.
05)70

31
2.
11
31
11
15

...,
J9
26

16
21
44
14
H

n
).

H
H

.4
16
.9

onu
on•• n
05""
05."

05.10

anSI

05.,0
0'."

0547.
05. . .
05. .1
05510

ouzo
onzo
OUJO
05!10

.ou.o
liMO
on,o

0,,.0
0,,.0
O'ttO

onTO

••
••••
018,
06030

14
41
42
16
12
45
16
"2
26
26
26
16
11

16

I"

41
42

II

02181
02199
02801
06000
06000
00000

02124
02126
02122
-Z801
000-2
-0000
I X
2

06000
05982

-2929
01300

in
SPS 11-0
0"970
04980
04990
05000
05010
05020
05030
05040
05050
05060
05010
05080
05090
05100
05\10
05120
05130
05140
05150
05160
05110
05180
05190
05200
05210
05220
05230
052"0
05250
05260
05210
05280
05290
05300
05310
05320
05330
05340
05350
05360
05370
05380
05390
05400
05410
05420

e
e
e
HEAD

PAGE

HEO.I NT8UF+6
AOORS
EClA TI

ell

OPER, lO.lO
RLOCSW. 0000.8 ••
8SW.I.1I
SCAN-5
AOORS .tLERU+9
ALPI.... lNTH+l ..
.... 4.INPUT+19
.+32.INPUT+20
INPUT+19.INPUT+21
e-36
SCANI-24.INPUT+20
AOOU-4
Rt TR. 00010
SREL+ \2
RtTR. 01010
e+24
SREL. AOORS
RCTR, -01.10
e+24. ADORS
SREL
EVALER-2. 71110 ••
EPRINT.EPRINT-I
EVI
RLOCSW.I.II
SCAN-I .. 6
INPUT+20.21010
SCANA
INPUT+ZO.IO.IO
_+44
OPER,IO,IO
IIIPUT+19.INPUT.21
EYAlAO
IN'UT.ZO,20.10
EYALAO
0'ER.20.10
SCANI+II>
"20, AlPHA
MOVE
ALPHA.IEU
90
ALPHA.99
SUl-Jl.RSYMSW
MOYI+U
Al'HA,IIfA
·+ZO,IIIPur.zo
IlOP
III'Uf+2D, I .. , 10

IIIE

•• )2

10

SUl-12. RSYIISII

81
OIGAlF IN.

05~30

JULY 11.1963

HEAOER ROUTINE

TF
TFM
81
NOP
SCAN
TFM
TFM
TDM
SF
TF
TO
80
80
TR
81
INR
SCANA SF
CM
8E
CM
BNE
BMF
CM
8NF
IE
TFM
8T
81
TOM
SREL
81
CM
BE
StAN I tM
BNE
TFM
TR
EVAlOP 87
CM
'liE
TFM

05 .. '0
01'50
05460
0"70 MOVE
0"80
01"0
05500
05"0
05520

PHASE

11
M
SF
rF
ID

81

"

ifill

11

CLEAR RELOCATION CONTROL ARea

RECORO MARK--ALPHA EMPTY

06012
060"
01>056

26
16

03860
0349"

~9

1~0.6

0601>~

~I

01>016
0601.
06100
01>112
061H
06U6
061U
06160
06\12
0611'

16
16
15
12

00000
09089
07992
09090
06011

oun

06Z04
06216
06221
06Z'0
06252
06264
06276
06211
06300
06312
06324
06])6
06]"
06356
06164
06116
OUI.
06400

RELOCATION ERROR

oun

OUH
06"6
06'"
06U6
06'"
06. .0
06'11
06500
0"01
06520
065)2
065"
0.,. .
0"6"
06"6
0.,. .
06"6
0660.
0 . .20

7I

l6

01~94

25
'3
43
3\

02684
06192
06192
02808
06148
063"
03490
01990
06356
01990
06216

U

"

32
I~

"

l~

41
~~

063'~

I~

01990
063\2

,~

46
16
27
U

15

"

14

46
H

..
...."
.."

"31

16

H
41

16

n

12

26

.""
U

U
U

0634~

07664
08064
01102
01992
0607N
02109
0620~

02.09
06444
09019
02101
06156
02809
06156
09019
0641'
06501
06564
0268 ..
00090
026"
06112
0.,,,
OUI ..
0""
0 . .40
0210.
0"'0
OUU

03608
-0000
00000
OOOJO
0-000
OOOOJ
00000
02724
02381
02801
02809
02110
02109
00000
000-0
0\200
000-1
01200
0349'
OOO-J
03494
0\200
PI110
08063
OOOOJ
000K3
01200
OOOJO
01200
OOOJO
02810
OOOKO
01200
OOOKO
0261'
026"
00000
00099
07991
OZ ....

ono,
OOOJ'
01200
01991

12

5" II-D
05UD
0"40
05110
0'160
0"'0
0"10
0"90
0"600
01610
05620
01630
01640
05650
05660
05670
05 . .0
05690
05700
o57ao
05720
05730
05740
onto
05760
05770
05780
05790
OSIOO
05110
05110
05UO
05140
05850
05160
05870
05880
05190
0'>'00
05910
05920
05910

ILO'
ADDSUI

EYALAD

PAGE

JULY U,l'U
066)2
0 . .40
06652

SCAM1.'.
CII
Dill .. 10
IE
SCA.tO
TD
"U,O'III-l
20
AOOIIS,U'HA
TF
AL'HA,CUIIU ••
TFII o'lII .. ao
INF . . ,.,IIIYIISII
TD
•• al, ADDSUI.a
All
IICTII, l,ao
SCAII.60
17
SF
HED-Z
DOlUII
TDII 1511,0
TFII LAlL,a,aO
TFII DOL"lO
Til
tOLL-II, THI NGS-2D
n
ICIISPC
CHICK Fall SPECIAL CHARACTEII
CII
IN'UT+20,70,lO
IL
"EC
TF
COLL,INPUT.ZO
CF
COLL-l
OS
,--2
OS
All
DDL.a.ao
TR
CDll-17.CDll-15
CII
COLL-17.7,10
SYIIIOL IN OPE UNO CONUINS IIDIIE THAN SIX CHAUCTERS
011 IIUIlBER IN OPEUND HAS MOlle THAN FIVE DIGITS
IIIE ·.20
87
CHKND
INPUT.I.,INPUT+21
n
CHECK TO SEE I F OPERAND IS 'RESENT
INII COIISPC,INPUT+20
87
GET
CHICK FOR > OR S 1,INPUT>20
10
CHECK Fall nUll!
GET ,INpUT+19
10
87
8CIISPC-12
CHECK FOR COMMA
INpUT+20,Zl,lO
CII
IE
GET
CIfECK Fall UTERISK
INpUT.20,14,10
CII
IE
ASTEII
CHECK fOIl oOLUIl SIGN
CM
IIlpuT>20. U,IO
OOLUII
BE
TOil LAiL
87
COIISPC>24
CF
OOLUII
·>n,OOL
ID
TFII COLL"ao
·+44
17

0.....

0 . ."
0. . . .
06TOO
DUU
067Z4
0613.
06741
06"6
067. .
06780
D6792
0680..
06116
06828

"

·

COIISPC

LABL
OOL

•
•
ULIITH

·
·

ICIISPC

SPEC
•

05QltO •

05950
05960
05970
05.80
05990
06000
06010
06020
06"010
06040
06050
06060
06070
06010

'HAUl

17

51
•
•

DOLLAR

••

4.

14
46
IS
20
2.

....2516
1&
4.
'Z
IZ
a5
16
16
U
4.

06836
06841
06160
06872
06in
06881
06884
06896
06908

14
41
Z6

06920
06932
06940

41
49

0/0952
06964

45

06912
06.8 ..
0/099/0
01004
070a/o
07028
07040
07052
07064
07016
07088
07096
0710.
07120
07112

))

11
31
14

.H

06424
0.019"
06U.
066n
034'4
OZ ....
0.019
06741
06737
01 •• 0
06n6
03"1
070.6
0.0.0
06813
06 . . 1
OZ4Z1
06952

000-0
01200
0.0. .
02. .4
onn
ODo-O
07Hl
06617
ooo-a
00000
00000
00000
ooo-a
000-0
02400

0280.
06972
0243.
02438
0
0
06881
02422
02422

ooo-a
02424
000-7

06940
07750
02808

02810

0001'0
01300
02.0.
00000

0120~

0683/0
01220

0280.

41

01004

0280'

43

01220
06940

02101

14
46

02809
01220

000K3
01200

14
46

02809
075/04

000J4
01200

14

000J1
01200
00000

)]

02809
07096
06883
06860
0709/0

43
16
49

02439
0717/0

49

"

46

15

49

01l~0

U

00000
06111
000-0

72
SPS 11-0

PHASE I

JULY 11.1963

PAGE

DDL,l,lO
eM
INE CHKND
SF
COLl-]
CF
HED-2
TOil LABl
Bo
BCII5PC-12,OOL
ICIISpC-56
87
TDII IISYMSII,O
BD
"'NUIIB, U8L
A
CDLL-17,eOLL-l1
BNF TIIMIIII>2., HED-2
CM
COLL-I4,12070
BNE *.44
SF
COll-2
SF
COLL-U
17
LBADO
TFII •• 30.COLL-2
S
·.II.COLL-17
TF
,HED
B7
TRIIIIII.2"
Tit
tDLL-17,COLL-U
Tall COll-2,O
onoo
06)10
INF ·-24,COLL-U
06120
B7
LBADD
06no TRNulIB ell
COLl-14,6060
06140
IH
CHIIND
06)50,
TDM NIIIII-I" 11
TFII TIIIIUlla.II,COLL-2
06360
TIINUlla>ll,COll-17
06170
5
06110
5
'"NUillt ll,COLL-17
06]90
Til
NUIII-,.NUM-4
06400 TRNUIII TO
IIUII8-1
Tit
06.a0
CDLL-17.COll-15
TF
·>2),.-U
06.20
06430
INIt TRNUIIl-12
0 ....0
BUA,_I-I
TF
06450
87
OIGAL'
06460 ASTER CM
OOL.O,lO
0 ... 70
INE GET
if
06480
IETA",ADOCOIl
INf .>24, IIELslI
064.0
rOIl IISYIISII, a,ll
06500
06510
Til
IN'UT·19,IN'UT+2a
06520
17
DIGAL'
O'UO·
06540
EVAUII IS THE ERROII ROUTIN.
06"0
OAS 5
06"0
06no
INII '9007
1,',.
DC
0"10

01140
071U
071U
01176
071 . .
01200
07212
07220
07232
on ...
07256
012. .
0721D
072.2
0730 ..
07316
07124
07n6
01348
07360
on. .
07380
07392
07404
01411
0742.
07416
01448
07460
07412
07484

060'0
061DO
06110
06120
06UO
0"40
06150
06160 GET
06170
06110
06190
06200
062ao
06220
062]0
06240
06250
06260
06270
06280
06290 TII""""

07...
01501
01520
07512

015 ....
07556

]]

15
41
49
15
41

21
4.
a4
.1
32
32
49
16
22
26
'9

31

....4.15
14
46
15
16

22
22

31
Z5
31
26
45
26
49

on... u

01576
01511
07600
07611
07624
D7636

·•

07 ...'
076,..

47
26

....as
31
49

45

07. .'

•

0"90 eVAUII IT
E'IIII1T,I'IIII1T-'
06600
sp"
06610
IIAry CilLL-12
06620 IV'
10
CDRIIII
.EII"III
III' CHllIID,LI"SII
0"'0

14
47
]2

07666
07671
076.0
OlTOa
071a6

i

73

n

."
14

u

06881
07750
02436
03858
06883
069~0

0689/0
07991
07412
02422
07392
02425
01324
02437
02426
08218
0135"
01354
00000
01392
02422
OZH7
07168
08218
02425
01750
024"
07507
07507
07507
02 .... 3
02447
02422
07543
07484
02694
06488
06881
07220
02694
07624
07991
02801
06411

000-1
01200
00000
00000
00000
06881
00000
06181
02422
03151
J2070
01200
00000
00000
-2437
02422
01860
02424
00000
02426
-6060
01100
0000-2417
02422
02422
024....
00000
02424
07507
00000
02447
000-0
01200
02674
02478
OOOOJ
02810

5 X
2
59007 00000
a
01064
00000
02421
01126
01750

01063
00101
ooaDO
02476
OZ480

14

I " 11-0
0 . .40
0'''0
0 . . .0
06"0
0 . . .0
06. .0
06700
06110
06720
06730
06740
06750
06760
06770
06710
067.0
010100
06810
06820
061)0
06140
06850
06860
06170
06880
068'0
06'00
06'10
06920
06.)0
06.40
06950

06.60
06'70
06'80
06"0
07000
07010
07020
070)0
07040
07050
07060
07070
07010
070'0
07100
07110
07120
071)0
07140
07150
07160
07170

"lUI I

Dnu J.

Tin
tHKND

T'N
INa

ADDIlI
.t2D,IN'UTt 20
11
StAll-I .. '
tN
IN'UTUD,n,IO
If
StAN-I,,6
Til
INI'UTtl., I N'UTtZl
17
CHKNGt" ,,2
COIIEII' NA'V IINNESS
"
ADDCDN, 'LACI
IlCTY
Til
IN'UT+I.,VACANr
NATY IN'UT-IO
OOPS
IlCTY
IT
FNDSCNo,.,fNDSCNo'5
IIATY IN,UT-IO
0
ACCE'T CDIlIlECTION FIlON TVPIIIlITEIl
rfN IDU, . . n
I
IOGT,""N2-4,7
IC4 OD'S
ITM GEn,"12
TDII INTlUFt7,I.ll
17
&01012
RCTIl
os 2
RSYtlSN DS
I
I
Ill0CSN DS
RNMESS DAt I., RE-ENTER O'ERAIIDS'
lIE-fNTU O,ERAIIOS'
IIUS2 DAC 16, lle-fNTEIl nllT'
RE-ENTU STilT'
0
EPIlIIIT '1llllTS THE EUOR IIESSAGE AND IlEfERfNCE TO
0
INDICATE THE STAnllENT III URal
•
0
EPRIIIT RClY
TF
lOPOUT ,I NPUT-2
IIATY lOPOUT-I
IIATY EIlU.
IINlY I NKIlII-)
IIATY EVALU-21
BO
"'4.USTSII
SF
NONEX .. ,KILL OIJECT 'ROG. EXECUTION IF ERIlOR IS DETECTED
88
OORG 0-)
INPU12-1.ClEIlU
CLOUT TR
TR
INPUT2+52.ClEIlU+l
TR
INPUT2+104.ClERER+I
Til
INPUUoU5.ClEllER+27
B82
0
THE SYMIOl TAIlE IS SEARCHED FOR EQUIVALENCE
0
0
lBAOO TFM 8lKtU.O.IO.INITIALlZE BLOCK COUNTER
C
SFA.SYIIUO "CHK.TO SEE IF THIS IS PARTIAL BLOCK
IE
'UlL

SPS IJ-D
01110
071'0
07200
07210
07220
07230
07240
07250
07260
07270
07110
07290
07300
07310
07320
07))0
07340
07350
07360
07370
07310
073'0
07400
OHIO
07420
07430
07440
074'0
07460
OH 70
074BO
074.0
07500
07510
07520
07530
07540
07550
07560
07570
07"0
075~

07600
07610
01UO
07610
07.40
07650
07660
07670
076.0
07690

onoo
01710
01720
D77JD

'HASE 8

AM
TR

•
A

..

..

0771.
077tO
07762
07774
07712
077.4
07.06
0711.
01126
07U.
01."
01162
07.n
071 ••
011.1
07910
07.22
07934
01.46
01.,1
01970
07.12
079tO
07"1
07992
01995

08064
01076
OBOl8
08100
08112
08124
08U6
08148
08160
08168
0816B
08110
08192
08204
08216

08218
08230
08242

16

.9

46

n

15

4'

00102
0010.
-0000
OZl09
OOOK)
01200
OZlIO
00100
O.U75
00102
04014
00100
00102

0''''

00100

00565
00'"
OU16
09152
0)60'
0".,1
2
I
I

-794'
-4154
00400
-7970
OOOOJ

I' K
16 X

34
26
)9

39

II
).
43
)2

42
3\
3\

31
31

00000
0)831
03823
03805
02562
076'"
08160
00451
00000

00102
02787
00100
00100
00100
00100
02'>16
00000
00000

03212
03B5
0))87
03438

02715
02716
02716
02742

0)995
03.51
OB291

000-0
02641
01200

42

16

24
"6

PAGE

OB534
08546
08558
08570

4'
26
U
16
JI
2.
46

0)995
03836
0)845
08310
0)836
011.4
08418
09045
08)94
02643
01510
03951
07664
01666
03951
09045
02694
01502
OB502
01991
02694
06411
08545
085'"
03591
038)6
01591
08611

085.2
08594

Z5
Z5

02631
1999'

OZ560

16

00,.,
00,..
1. .91
017 ••
03.9,
0'41'
03995

-'.29
-1577
02611
08793
000-1
0.01l
DU'"

015"
0)951
OUU
03"1
01136
DJ845

OUOO
02641
01200
02641
0"'91
0'''2

09_
0904.
09046
090!U

00000
OUZO
0114'
01140
09046
09046

0825"
08266
08278
08290
OB2.8
08310
08322
08334
081"6
0835.
08310
01382
083'4
01406
08418
084'0
08442
OB4n
08466
01478
08"'0
08502
08510
01522

0.606
0.6n
01610
01642
0.654

11
Jl
26
4'
31
27

43
24
46
14
47
26
16
21
26
11
26
44
4"
"
J)

4'
Z5
27
11

D. . . .

43

0.".
01690
01702
01714
GI7U
OUI.
01"0
01761

24
46
47
24
46
26
II
Z'

01711

'U

4'
0""
U
01106 II
onn

.....

II

011'0

16

0 ••41
. ....

II
II
11

. .."

0 ....

IUV

16
4'
'"
U
46
Jl
4'
,.
26
'4
It
It
'4
27
J9

01101)

II",
", ..",

I ..', • •,

n

00000
00000
OJ4'4
077.2
0607N
02.0.
0607N
OllOI
-7762
079"
02674
00000
02101
0217'
00000
05970
02719

JULY 11,1'63

ILKCTIl.I.IO
L1M-9.L1MTSf-.
Tf
L111.L111TSP
81
0+20
PARYl Til
lIM-9.L1MTSP-.
IT
BSERCH.BSUCH-l .. TO BINARY SEA~CH ~OUTINE TO FINO SYIIIOL
80
GoTIT .EQSW •• IIAS SYMBOL IN TA8LE
C
BS8f-l. L1NTSF
INL GoTl T-24
CM
BLX,O.IO
BNE CF I L
Tf
SfA.SUBSM.5
TFM EVALU-2.75000 .. CANNoT FIND SYMIOL III SYMIOL "BLE
IT
EVALER.EVALEA-I
GOTIT TF
SfA.SUlSM+5"SAVE FILE AD~.Of ILOCK liHUE SYMIOl liAS fOUIiD.
AM
ISBF-I .5.10.
MOVE SYIIIOl ADDIlUS
Tf
IETA.ISBF-I.II.
INTO lETA
INf oH •• ~ELSII
INF . . ,.. lETA
Tall ~5YIISII. 1.11
CF
liEU
17
DIGALF
Cfll
Tf
0+35.SYMTAD
"INITIALIZE SUI-INSTIl. TO IlUD FIIlST filE ILK
All
"U.SPIIL
"M SUIISMo,
Til
lIM-9,L1MTSf-. . . INITIALIZE fO~ fUll IlOCK
C
SUiSNo'.SfA"CHK.IF THIS .LOCK HAS AUIAOV IUN SEAIlCHED
IE
CM'CNT
•
SAVE DIGIT AT lOSYMI+1
TD
IIU~ I
,LOSYM.ol
TD
LDSYM"I,SPSIOM
•
~EAD .LOCK OF SYNIOLS f~OM fILE
TFII 10~T.o.ZI
•
IOGT,OE"N.7
TD
lDSYN,tl.MUIlI
IT
ISERtH,IS"CH-1
AN
IUCTIl,I.IO
10
GOTIT .EaSN
CN'CNT C
.lICTIl,.lX
IH
GOTJT-J6
It
e'lltll
C
".,UN"D
II
GDTIT-"
"SUlSN."SYN"D
'ILE ADOII.O' 'ARTlAl IlOCI TO SUlIN
Til
LIM-.,L1NTI'-.
T'
LlN,LlNn'
17
C'ILt ••
•
IINUV "_Ill TAILI SUItCH SUIIIDUTINI
NO'
. .." CUII.U'
ISIIICH "
A
I ..' . LIII
A
. .." LIM-.

",

PAGE

JUU U,I'"

Iltn

75

onu

..D.".-

000-1
03.83
02507
02498
08193
09021
0)992
OUOO
000-0
01200
03591
PSOOO
07665
03591
000-5
0.04N
02418
02694
OOOOJ
00000
02641
-0040
-0000

onu

03951
01200

1""

01100

-. .....
09_
090U

"09'

16

5" 11-0
on40
onlo
on.o
01no
onlo
on.o
07100
07110
07120
01UO
07140
07no
01 . .0
07110
07 . .0
07. .0
01.00
07910
01920
079)0
07940
01950
01960
07910
01910
01990
01000
08010
08020
08030
08040
08050
08060
08010
08080
08090
01100
08110
08120
08110
08140
08150
08160
08110
08UO
08190
08Z00

10
All
III
C
IIIE
TOIl

"'

C
IIIE
TOil
. .2
IH
TI'

IIIIAIi I

08171
0 . . .0
0890'
089a4
08926
089)1
01950
089tz
019U
08916
01911
01990
09002
0.014
0.022
0.0).
09021
0904'

..,.

lOSII. 0

COI.L-z.ls . . -a.11
1$1110
EOSII, a.ll

ISHI
LlII. I5I1'-a
17
ISflCH
ISH I
71'
LlII-I. 15"-1
17
ISllCH
EOSM
OS
• ISHI-I
ISII'
DC
•• 0
-00000
ISAY
6.0
OC
-00000
TUT
as
5
882
OC
6.U4212
1124212
TVPE
DS
2
TESUO os
5
PLAtE DS
5
SUIlENT as
5
CNTR
OS
2
T8LEND OS
5
DPER
DS
2
BSW
DS
I
OSABOX OSC 11.0'
0000000000 •
OS
I
NMOAl OS
1
SMODE os
I
DIISY
OS
5
DIGITS OS
5
IIIISTRUCTIONS TO IRING I N PHASE 86
Dt
'.IU45
J2345
TFM CFFA.OFAODl
GAT
tFF.GAT-1
aT
OFADDl DOA .0.86DAO.86SCT .INSTRN
OJ91S1-29J2U4
I ••
DC

ISNfO

PAGE

JULY &1.1963

"24, lSi'
15.,-a. I. aD
lu,-a. I.ao
15IF-l. LIll-I

4)

11
12
24
401
15
42
24

U
IS

01902
090.,
09045
09045
01952
09021

09046
000-1
000-1
0)140
01200
00000

02437
089'10
09021

0904N
01200
OOOOJ

09022
0314'
01794
01.40
01794
0
6

01100
09045

17

42

••

26
.9
26
.9

09052

0.0'"

6

090H
0'1061
09065
0'1070
09075
09010
090.2
0'1017
0'1089
0'10'10
0'10'11

II

0'1102
0'1101
09104
0'1109
OQ1l4

1
1
1
5
5

2
5

5
5
2
5
2
I

091\9
09120
091lZ
091."

16
21

02629
02592
14

-9l~4

II>
27

02629
02592
14

-9118
09163

09119

09158

INSTRUCTIONS TO IRING IN PHASE 15
OC
5.IU45
J2345
TI'll CFFA.DFA002
Gil
tFF.GIT-1
aT
DFADOZ DOl. .0.nDAD.nStT.INSTAN
OJ9U2-29J21J4
I ••
DC

0'1161
09164
09176
09188
09202

76
SPS 11-0
08210
08220
08210
01240
08250
01260
08270
08280
08290
08100
08310
01120
08310

JULY \1,19U

.. .

INSTRUCTIONS TO RESTORE PHASE
5.un5
DC
JZJ45
TFM CHA.OFADOI
GEET
TFII X.PHASEI
BT
CFF.GEEJ-I
DflODt DOA .0,nOAD.nSCT .UMAO
OJ9000-69-9100
I, •
DC

·

08140
08350 1'1
08360
08HO
OUIO

PHASE 8

INSTRUCTIONS TO 8RING IN PHASE '4
DC
5.12345
J2345
GETT
TFM CFFA.DFADD
8T
tFF.GETT-1
0"'00 DDA .0,140AD •• 4SCT.L INPRT
OJ 9069-' 1- '31 0
1 ••
DC

sun

08390
08400
0.410
08420
08410 •
0.440
08450 LINPRT
08460
08410 •
0.4.0 •
01490 •
01500
01510
0.520
015)0
08540
01550
OIUO
08570
01'.0.
01"0
01'00
01610
0 . .20 1""tH
08610 OODS
0 . .40
0 . .' 0 .
0 . . .0 ·

·•

34
31

TU

PAGE
09207
09208
09220
0'12]2

27

02629
02592
14

-9232
09201

II>
16

02629
04012

27

02~92

-9288
-4182
09251

16

09246

8]

09251
09252
09264
09216
09211

'4

09302

TD LOAD PHASE 8l TO THE FILE
SUII3.701
sun. 702

09304
09316
OU21
093.0
09352

OOA .0.82OAD.I2SCT. PHASEI-12
OJ9200-52-41T0
TCD
F3

)4
)8
11>
49

09152
09152
00000
00000
14

n

03490

00101
00702
00500
00000

OU04

ODRG F3
THE RDUHIIE WHICH FOllOWS "'KISURI OF THE
OUTPUT FOil THE ,.OCES50.

OU04

DC
5.000DO
-0000
CF
ADORS-4
LNTH-4
CF

DUOI
OUIO
09112

5
13

02)83

00000
00000

44
JI
14
'4

09310
03490
00000
09109
10361>
09411

02480
00100
00101
J0366
01200
02480

021U
02311
03490
09301t
124. .
0401K

00100
00000
00000
00000
-9466
OUOI

IF A TYPED LISTING IS TO IE MADE. TYPE ADDRESS
8NF

"16.LSTYSW
WIITY ADDItS-4
SPlY
til
lINPu-a.DOIIIIST
BE
001 NSf
IN' UNCH-Z •• lSTYSW

09334
09346
09151
09110
093U
09)94

IF A DfClARATlVE. ALSO TY"

ID

LII'H-~

AODlS-.
LIII".T-I ...
LSTOUT . . . U
K.IIIYlUF+6 ••
«llIetlATE OUTPUT

~4

UNG'H

WIITY LIIIYH-4

SF
SF
II
ITII

U

.. PUNCH DS DIt Dill LIST DECK tARD

0.406
0.411
0.410
09.42
0945.
D. . .6

'all IIUMIA.e: ILA. .,

77

JI
12

12
49
17
4J

18

SPS 11-0
08610 •
081>80
081>90
08100

olno

08120
08130
08140
08HO
08760
08710
08780
0818'1
08790
08800
08810
08820
08810
08840
088'10
08860
08810
08880
08890
08900
08920
08HO

LNTH2

ZEPO+I
OU"P2+12 ,DU"PI+ 11
O"POIG.LNTH+I,I>

09471
09490
09'102
09514
09521>
09538
095'10
09562
09'114
09'182
09594
09600
091>06
09618
096)0
09638
09650
091>62

81
WNTV
8NF
TO
ON TV

OMPOIG.,6

09674

•• zo,U:PO+.
•• 20

11
21>
21>
22
II>
16

03494
0~81)

49
44
l4

0)88)
Ol8n
0901>5
09600
10616
10940
0401.
09686
00000

U
45
49
38
44
25
)'1

09662
09638
09650
02101
09686
04000400-

11
11

a

19

000-1
0)494
03494
02387
000R9
-0000
000-"
000-9
02480
00101
0)'121
02301
00100
Ol521
02388
00100

PUNCH THE CONSTANT CARDS
PCON
PCONI

08940

08950
08960 LUCK

08910
08980 PDSA
08990

09000
09010
09020
09010
090"'0

09050
09060
09090 CHSYM
09100
09110
09120
09130
09140
09150
0911.0

09110
09180
09190

onoo

PAGE

JULY 1I.19U

8NF
SPTV
,DOCON+II
DS
80
DU"P2-12.DU"P1+11
8~R

DUMP2

•

AOORS ol olO
FRSTAO.AOOU
LSTAO.AOORS
FRSUO.LNTH
TYPE. 990lD
LNTH2
RELODG.4.IOll
HACKR.9,IO
X. ,6
PCON.LSTYSW

A"
TF
TF
S
TF"
TF"
8T"
8T"

87
DOCON

PHASE

DUDLEY

onlo

09220
09230
09240 •

8TM
TFM
A
TO
8TM
80
8TM
81
8TM
8TM
TF
TO
8NF
SPTY
WNTV
BT"
AM
BNF
8TM
BTM
TFM
TR
8~R

TOM
Bl
TF
AM
AM
B~F

lSfOUT ••• 12

·.3o,our+z

··18.lNfH
,lNTH+l
RElOOG,2,IOll
MESOUT,OMESW
srACKR.9,lO
)(,.6
CVAt T , •• 12

091.81.

IT

1241.1.

-91.98

091.98
09110
09122
09134

16
21
2'1

09128
09128
00000
10616
100'18
10940
0401.
12398

-2220
02381
02 ~88
000-.
Ol861
000-9

09741.

091'18
09110
09118
09190
09802
09814
0ge26
09838
09850
09862
09&14
09886
09898
09910
09922

lSTOUT.·.12
QUT+b,IEPO+5

OUT+7,LNTH+'
•• 3b.lSTV$W
OUT+2
RElODG,2,L01L
CHSYM+l1,1.lO
* +24, OSA80X-l
RELOOG,l,lOII
STACKR,9.10
lNTH.5
ZEPO+l,lEPO+&
,lEPO+1
*+32
INTBUF,O
X. ,6

FRSTAD,lSTAO
lSTAD.5.10
ADDRS,5.10
.+36.LSTVSW

RCTY
T8TV
LlNPR T
87
THE FOllOWING ROUT! NE HANDLES OUTPUT FOR

IT
43

11
49
11
IT

1241.1.

21.

02224
02225
0981.2
00000
02220

25
44

34
l&
11
II
44

11
11
II.

OqqJ~

H

09946
09958
09910
09918
09990
10002
10014

45
15
49
26
II
11
44

10021.

34

10038
10050

34
49

10676
09801

09910
10611.

10940
02381
0230 I
09918
031.02
04011<.
Ol813
03883
03494
100'10
00000
00000
09310

-9190
-9802
02105
02388
02480
00101
00100
OOO-K
000-1
09090
OOO-l
000-9
-0005
02306
02301
00000
03883
000-5
000-5
02480
00102
00108

aMES

7S
SPS 11-0
09250
092&0
09210
09280
09290
09300
09310
09320
09330
09340
09350
09360
09)10
09380
09390
09400
09410
09420
094}0
09440
094'10
09460
09HO
09480
09490
09500
09510
09'120
095}0
09'140

oono

09560
09510
09'180
09590
09600
091.10
09620
096)0
09UO
09.,0
0961>0
09610
09680
09690
09100
09710
09120
09130
09740
09750
09160
09110
09110
09190
09100

MESOUT TO
AM
AM
SM
8NN
DOME SS TF
TR
TFM
SM
TFM
AM
AM
AM
C
BNL
8ANAN 8~R
B~R

TOM
8TM
AM
C
BH
TR
TF
SM
81

PHASE B

JULY 11.196)

INPUT2+100,DUT+2,21,MOVE OMES
.-6,1,10,
DATA
FROM
*-13,1,10,
lNTH,l.lO,
OUT+2
TO I NPUT2+ 100
ME SOUT •••
l S TAD, FR S TAO
OUT +2,1 NPUT2+ 1 00
BANAN+l1.1NPUT2+99
MESOUT+6,2,lO
LNTH.O
lSTAD,I, LO
lNTH.l.10
BAHAN+ll.l,10
BANAN+ 11, filE 50UT+6
8ANAN+12
*-60
•• 24,8ANAN+ 11 t 11
DUMP1+1100,l1
STACKR,9,10
BANAN+11.1.10
BANAN>II, ME SOUT+6
X. ,6
OUT+2 .BANAN+II,11
FRSTAO.LSTAO
BANAN+II,1,10
OOMESS>48

•
•
OUTPUT ROUTI NE FOR INSTRUCTIONS AND LINKAGES
•
DOINST BTM LSTOUT,"12
ADORS-4
SF
TF
FRSTAD
.AOORS
TF
LSTAO
.ADORS
AM
LSTAO
tl2
8NF NOTYPE.LSTVS~
TR
OUT. ZEPO
TR
OUT+) .lEPO+2
TR
OUT+9.zePO+l
TD
OUT+2.LNTH+1
TO
Our.I.LNTH+ I
TO
OUT+14.LNTH+1
~NTV OUT
SPITY SPTV
~NTV OUT+)
SPrY
WNrY OUT+9
.-I.ZEPO+12
NOTYPE TD
TO
ZEPO.I2.LNTH+l
TR
OUT+2
.UPO
"M LNTH.12
aTM RELODG.I,IOII
IT" STACU.9,10
TO
U'D+12.NDTY,.-1
INR S!tINS.U'D+U
I
DDRG .-1

I".

PAGE
10058
10010
10082
10094
10106
10118
10130
10142
10154
10161.
10118
10 I'~O
10202
10214
10221.
10238
102~0

10262
10174
10281.

10298
10310
10322
10314
10346
10358

10366
10318
10390
10402
10414
104210
10438
10450
10462
10414
10416
10498
10510
10522
10514
10'146
10'1'18
10510
10'182
10594
10606
10'"
106)0
10642
106'"
106. .
10611>

79

25

-338l
10064
10069
02381
10058
03883
02220
10249
1001.4
02381
Ol883
02387
10249
10249
102'10
10118
10214
03521
10940
10249
10249
0401K
02220
03813
10249
1011.6

-2220
000-1
000-1
000-1
01300
Ol8n
03383
-3382
000-2
-0000
000-1
000-1
000-1
10064
01300
00000
1024_
0000000-9
000-1
1001>4
01100
1024R
03883
000-1

11

12461.

32

03490
Ol813
OlS8l
03883
10570
02218
02221
02221
02220
02226
02212
02218
00000
02221
00000
02221
1051>9
02312
02220
02381
10616

JOlT8
00000

II

11
12
46
26
31
16
12
II.
11
II
II

24
41.

.5
45
15
11
II
24
46
II

26
12
49

26
21.

II
44
31
II
II
25

25
25

18
)4

18
34

31
25
25

1I
16

11
11

10.~0

n

OUI2

4'

10114
040lK

~.

03~94

03494
-0012
02480
02300
02302
02301
02388
02)11
02388
00100
00101
00100
00101
00100
02312
0231.
02300
-0012
OOO-J
000-9
10569

OUIZ
00000

20

-

... .......... ..4•.••
......
.......
,.
...0....
,.
.....
.'tOo

·PS 11-0 ,,,.1.. MY

MIlOa",CIOG TO

(,

....0
....0

til

.., ••'4
TOIl

IC.,. "

SKIIIS'IT

tLOUT.CLDUT·I

TIl
.11

I.PO.IElOO+lI
....S.U

ITII

LIT'U""II

"'10'
....
...,.

",a."D.UTA.
.11 LlTAD.lI

.....

• ..,

DOI,IIIT.AO.LSTYSII

.....

~TY

I ••••••

:::::

•

TITY
CF
aDDIIS-.
IINTV '00115-.
SF
.IIIIU-.

100l1li
10010
10020
UIO!O
Ijl040
100"
10060.
10070 •
,0010 •
100.0 Sf'CKII

PAGe

1

le.a'LOOG·I
• .... IIL.LIII
••, •• anSII
,Ie
UII
le."Iou

...

.....

U.'..

SPrY
I
DD'INST>'O
DDIIG .-1

Ion.

25

10. . .
10.,00
'10112
IDU,
10nA
10""
10J..
10n2
10ln
10J. .
10""
10.10

44
.4
lJ
U
14
41
"
62

lOUl,

"
U

10134
'10. . .
10'"
10."
10110
10..2
10. . 4
1090.
10"1
lOUD
10940

2J
JI
U

n

OJ. . .
101h
10724
OJ16.
10772
0""
10172
03161

OOo-J
01100
OOOOK

0""
OUOO
OJ49.

-oou

12. .A

osln

O.OOT

gl~~

0,4'"

0'.117
OUU
JOll2
OJIU

Dun -0012

"
).

IOU.
00000
1

024.0
00102

I.

00000
0)490
OH90
01490
00000
10426

00101
00000
00100
00000
00101
00000

11995
11606
01866
118i4
11008

10939
;;4006
-0075
01200

n

38

lZ

I.
49

21

1067'

THI 'OLLOMING 1I0UTlNE AllIlANGES THE OIJEcT OUTl'UT TO THE FILE

STNUCD>U.5TACKII-I

TO
INF
til
11£
ID

tiuoo

10110
,jlUO
1,OllO
10140
10150 aUla

NUCAII.FUT"T" GO TO NEMCAII IF THIS IS FIUT ENTRY
TTY!I.75 .. tHK.IF CUD 15 Ell'"
"ODIFI
IUEQ.IC"CHK.FOII TeD
INOAOII
TlSTAD.FUTAD"TF.ST FOR IIIUl IN ADDRESS SEQUENCE

17

C
INE
C
INE
TF"
""
TOil

10LAO

10110
10110
10190
10200
lono
10i:lO FIT
10210
102.0

UMlIL

TYP•• lc"TEST FOR KIND OF $fUEIlENT

NJIIIL
TEST.O
"OA" IS
TIIDU'.ll.OUTtl
.. CONTIGUOUS.GO DIRECTLY
OUT-l.0
.. TO SEE IF DA" FITS
nY,.TEST"
TEST TO SEE IF AOORS.IND.LEN ETC FITS
SETFII"" .NO.GO TO SET FLAG IlEC."ARK
1TY!I,LNTH"NOII SEE IF DA" FITS
•• 2.
1TVI.75
CHKIIM
"U.IC"
NO. TeST
•••• 20000.79.FOII
SIT'II"".
CONSTANT
TIIOAlA.OUT-7
TaD'U ••• OUT-7.6
..... 1.10
OUT-7.0
'EST.I.IO

S,

INP
5
INI
"M
IINL
TO
CII
III1E
INII

lono

10260
10210
10210
1,12"
1;\1300

UIJIO CIIKII"

'AM11

'fou.Q

LOUD

10).0

TOM
SM

Illno

10940
10952
10...
10976

IOi81
11000
11001
11020
11032
11044
11056
11061
11010
11092
1110.
11116
llU8
111.0
11152
11164
11176
111 . .
11200
1I2U
lIZZ.
11216
112..

25

..
"
~6

4J
49
24
4'
,~

H
16
16

15
22
H
22
.,
I~

4'
25
14
U
45

25
II
15
12

01168

11~38

09070
11482
09065
11 no
09057
11271
02211
03866
11802
0)866
lIl!12
OJ8. .
11.200
11186
lIU4
11802
11260
11260
0400'
02211
09057

03873
01200
0)868
01200
-0000
-2220
00000
09057
01100
02387
OUOO
-0075
01300
03 ...
KO-OO
01200
02211
02211
000-1
00000
000-1

8U
PAGE
10160 TIIO"A TIl
lono
IIiif'
10JlO
n
lOS'O
A
10400
A
10610
A
10420
TF
10410
TF
a0440
110

lOUD

to

l0460
10410
1'0410
10.90
1.50.0
10'10 'IlEfTAN
lOUD'.
~O!l)O 'INOAOII
10,40

TF"
TOil
IlIIf'
TOil
TOil
182

........ "OVE DATA (PLUS AOOl •• INO.LEN.ETC I TO OUTPUT IUFFER
"20. TTY!!

SPLIT

STICLEN.LNTH.6.UPOUE UItGTH
..... TEST

..... LNTH
TESTAD.uraD" STOllE AOOl.DF LAST P05N.>1
",..IC"STOIIE INDIC.CDDI.
• .... IC
'"0AT•• A. FlGRIt. 6
TTYI. 7~
'IISTIIT .1.11
. .,..OUItPl>U"CK.FOl CONST.IIHOSE L'ST 'OSIt.1S • IIIC.MIIK.
",.-I.I.ll.SET INDICUOII THAT CONST.HAS RECORD "ARK
0l1li'1·11

TOil
TDN
TI'll

I

(OA3D

MUI

OOllG •• J
SIT "" FOIl 11111 INDICATOII AND LltlGTN
TOil ""-I"I1.'IIIIN OfF • IIIIIIC"Ol
fOIl NUlI.II.)
10"0.
tON
I
10690
TF" _2.lhOUT-I
10100
•
NUl
.
1 0 " . 0 0 I G •• )
10120 •
SIT UP .Ol NIW 1!J-DIGIT lEt 0110- ... M ADOIIUS.IND.AND LINGTH.
10T.,0 NEIIU.: 10M MUlI.U.1
10.,..0
' TONIIUIII."~T
lono,
•
• .... 1" . . .
l06'0
1"'0 •
10160 1I£1IIL

'''70

\'01"

'GnO'l4\II

1'0.110

.

'0'1'"
;HUlI
10110
IHIO

'M"

101l0ltt!l'

NUll.".

OIIIIG

0- I

"M

OUT-I.le
OU'>I.D.IO

To

""
n
; ,.

t.

'"

10160

A .

lOUD..

.Oftt:

10'10
,,~..

'fIT

stICLllhA'"

n .......

"M '''oAl'.U.

10160

.0...
'"'It

IU52
11164
11376
11388
11.00
11412
11424
1143.

U
15

16
15
44

15
15

0400N
11292
12070
03870
04005
04005
09070
09065
11388
11260
0)166
04006
11424
09064
03521

00000
Oll66
02317
09057
OUI7
03113
031. .

on..

03 . . 4
-0075
OOOOJ
03521
OOOOJ
00000

U

SET U, FOl INDICATOR AND AOOIlESS--TCO

HUIl.U ••
HUll.".5
HUl2.U.OUT-1
10fM
17
MUll
10$10 •
sn u, FOIl lIC.IIIIK •• AOOlf$S.INDltATOII 'NO UNGTH
I'OUO lilliAn TO
DUT-T.LNTNot
'
10'"
TO" _IOU ••
10600
Tall NUlloJ5.1
10610
TI'll NUlI>U.OUT-'
10620
"OUT-2.FIlITAD

iO,IM

11260 11
11272 4.
lUI. . .
11292 21
11304 Zl
11116 21
11328 2.
111.0 26

"
A

..I2.IC
......000.19
'If
DUYtI.""TH

our."lNT",

LI'ItI.""'N
'f'II 'LIITN.O
'
• .,
fI'
Sf' l '''AliOlo II'COaD "'U tlat""ATING,IIIII.'4RD

1I~38

15

1I4!10
II. . '
11474

15
1.
..

11673
11697
11709
11662

00006
00005
-2211

11412
114..
1150.
11511

25

02211

OU..

linD
115.2
115'0

linD
11562
11574
US16

11'"
11606
11606
11611
116)0
116)1
11611
11"0
lIA"
1167.
U'"
11."
11110
11712
117S.

liT..
11711
11 no
117.'
117. .

1'1

1167)

15
16
26
4'

11697
11709
Olll6
11631

00009
00001
-221Z
03ln
00000

15
15
l!I

16
..

0.064
11673
11697
1170.
11631

00000000)
OOOOZ
-2217
0000.0

15
15
..

11673
11697
11'"

0,0001
00001
00000

IS
16
16
26
U
1.
2S
"
U
Z1
U
26

02217
02219
090"
03171
OJUI
IIZ71
lln2
11 no
11092
OU19
02219
09600
0211T
11092

03. .1
000-0
-0000
0400'
-0000
-0000
0316.

IA
4.

ItO~OO

01200
OUIf
09.00
QUe7
~oodo

22

"5 11-0
10.00
10910
10910
lOUD
10940
10950
10960
10910
10"0
10990
11000
11010
11020
11030
11040
11050
11060
11070
11010
110.0
11100
11110
11120
11130
11140
11150
11160
11110
11180
11190
11200
11210
11220
11230
11240
11250
11260
11270
11280
11290
11300
11110
11320
11330
11340
11150
11360
11170
11180
11390
11400
11"10
11"20
11430
11 .. 40
11450

PAGE

JULY 11.1.6)

'"ASI •

SETFIUI TO
TIIOU''','LGII .. ,.
1I0DIf I rPll n n , 75, ,INITULIZE 'ULL CAIID COUNTeR
Til
'111100,'1111100+1
I . SfNUCD,'Uoo
SUlINoS, SUiOUT05
C
.NH
DVIILAP
•
1M ITE ) SI CTOIlS .- • CAllOS •• TO THE fiLE
Tfll IDIIT, . . n
1
IOlllC,DIFOUT,l
TFII ")O,IN'UU."
511
' . . . ,1.10
TOil e-_.O
CII
•• •• PACII
I .. E '·)6
AM
5U10UTU, 30 10
TR
PIIMOD.PACIlAD-4"INITUlIlE lUFf Ell ADDRESSES
5 THUCD TF
AlU.PIIMOOH"ADPIIESS OF NEM CARD IIOVE 0 TO AlIA
•• ,,, • IUIICH IACIl OR CONTI NUE
I
PORG .-)
TPM OUT-l.0
10
NEMCAR.IC
TF
U"CO.AOORS
TO
IS"CD-5.IC
TR
TilDA" ••• 15"CD·IO ••
11
REETIIN-60
•
ROUTINE TO HANOLE THE CASE MHERE DATA OVERflOWS FRDM ONE
•
CARO TO ANOTHER
lNTH.7TV5
MDYE PAR TI AL
SPLIT A
TFM "".oUTO!
OA"
INTO
A
"23.lNTH
TR
OUT>2
OUTOl
FRSTAO,lNTH, .OUAIN ADDRESS OF NEil FIRST DIGIT
A
CF
lTY5
A
STlIlE ... lNTH ••
TF
LNTH.lTV'
MOOIFI
81
• ERROR ROUTINE .- FINAL OUTPUT HAS OVERLAPPED INT. OUTPUT
OVRLAP TFM EVAlER-2.12no
EPR INT .EPIIINT-1
BT
11
MONCAl
•
•
NUMERIC TO ALPHA CONVERTER
•
5
OS
Fill
TR
F lLaUF. FI ll-I.11
TFII FCHaUF, 70,10
FCHaUF, FILlUF+4. 11
TO
aNF . . .0. FCHIUF
TOM FCHIUF-l. 5.11
CF
FCH8UF
10
'.24. FCHIUF
TOM FCHlUF-I. 2,11
8NR ·.24.FCHIUF
TFM FCHIUF.3 ... 10
TF
F ILBUF.l ... FCHBUF ••
AM
Fll8UF.4, 1.10

"

11102
1111.
II1Z6
1111.
11150
11161

IS
16

U

IIIH

11'"

I.

005.5
00520
11.21
11.2'
00000
11928
11910

I l l. .

11 . . .
11.10
11'22
l i n..
119...
11951
11910
11982
1199..
12002
12002
1201"
120211
12031
120'0
120.2

II

.5

z.

••

I.
12
15
I"

U

OJ,.)

Jlnl
·)55)

·nl2

000-1
00000
-2910
01200
000-)
0381.
03910
00000

onn

IS

02111
11.06
039 .. 2
03.37
112.0
11116

00000
03861
03"'4
0386.
03932

02381
12117
12117
02220
03113
03866
0381Q
02387
11814

0386.
-2220
02387
00000
02387
00000
02187
0386.

07664
01064
0079.

P2710
080103

5
12H2
12 .. 59
12459
12306
12458
12459
12306
12458
12330
1245'1
12450
12446

1220R
OOOPO
12440
1245'1
OOOON
00000
12459
000011
12,,59
OOOl"
12 .. 59
000-1

4)

2.
25
11
49

11
1.
49

12174
12186
12191

...

21
1.
II
31
21
))

1.
27

II

16
25
44
15
13

43
15
45
16
26
11

n

OJiM
-0015
0)911
0190.
0)561
01100

11
11
2.
49

12010
120'2
1209..
1210.
12118
12130
12142
12154
121 ••

12209
12210
12222
1223..
12246
12258
12210
12282
122'4
12306
12318
12130
123"2

1126D
031 . .
03906
11.12

03906
04005
12002

8~

SPS 11-0

PHASf B

·

11770

DC

I, •

11780 OPFll

DU

ZE'O

11190
11100 PFIL

11110
11120 QfIL

·

PAGE

JULY 11.1963

AM
Fll8UF+I ... 2.10
FlleUF .... FILIUF.9
C
8NH Flll.12
882
DS
5
TFM ACTFI1+5, ZEPO
A
"TFll>5.lNTH
ITM Flll.ACTFIL-..
CVACT-I •• 6
8
OORG •• J
DSS 16
OS
2
5
OS
11590 •
THE FollOMI NG ROUTI NE ARRANGts THE OUTPUT DF THE LISTING
11600 •
DEC II
11.10 lSTOUT ITM F Ill.ADRFll· .... ADDRESS
TOM INPUT2.2161-3,7
11620
CM
LlNPRT·I.DOINST
11630
116.. 0
.INE lSTCoN
11.50
&TM FILL. DPF Il-4 •• OP. COOE
11660
ITM FlLl.PF IL-.... P-F I flO
11670
ITM Flll.Of I l-" •• o-f IELO
11.80
81
PUNCH
11690 UTCON ITM flll.lNTHFl-..
11700
TOM 1..,urz.2·61-3,7
U110 PUNCH INF GDCl. LSCDSII
TFM 1000T."2I
11720
11130
1
IOPT.COPDEF· .. ,1
111.. 0 GDCl
ClOUT.CloUT-l
IT
11150
81
LSTDUT-l •• 6
11160 AORFll OU ADDIIS-". ADOIIS, INPUU.2+61-2
11460
11470
11 .. 80
11 .. 90
11500
11510 CVACT
11520
11530
11540
11550
11560 FllaUF
11570 FCHIUF
11580

1235..
123.6
12371
12390
123.6
1239.
12410
12422
12..34
124.. 2
124"!
12459
12.....

11
24
.. 7
42

12"66
12478
12 ..90
12502
\251"
\2526

17
15
14
"1
17

12538

12550
12551
12570
12582
1259"
12606
12611
12630
126.. 1
12"1
12"6
12651
12652

.npoo 1,INPUTZ.Z.61-Z

16
21
Il

49

12456
12446
12222

000-2
12 .. 51
01100

5
12710
12710
12210
1219P

-2300
02387
J2701
00000

16
2
5

Il

...
17

17
15
"4
16
49

...
27

12210 J2637
03402 00007
09309 J036.
12558 01200
12210 J2653
12210 J2669
12210 J2685
12582
12210 J2717
03414 00007
121011 0247'1
00565 J2617
00532 -41.2
01168 01167
11 .. 6N
5 X
-)490
-34'"
-3"03
1
5 X

12651
lun
12. .Z
12661
126. .

-2300
-2101
-3415
1

DC

1. •

DU

11'002.11'0",1 N'UT2+zelD-Z

lun

5

DC

I,'

1267)
12."
1261)
12....

-2302
·n06
-)421
I

OU

11'0+ 7. II '0+ n,

·

IIIl'Ura+,e7""

,•

12. .'

u •••

-no,

12. .'

-3 .. n

u ....

83

x

-2111

24

.PS 11-0

,

ill..

DC

'"A" I

JULY 11,l"l

,1I.,UU.207)-2

U'O+l,o-o

Il . . . ACTPlL OSA

12701

)

-HOl
-0000

12701

uno

,

n . .o LIIT. . L OSA

DC

11"0

·•

11110·
11190
11900
11910 I Ji$TRN
11920
119)0
119.0
11950
11960
11970
11 . .0
11990
12000
12010
12020
120)0
\20.0
12050
12060
12070
12010
12090 •
12100 O'COOE
12110
U120 "001
12130
121.0
12150
12160 CHKMOO
12170 "VEMOO
UIIO
UI90
12200 fYPINS
12210

uno

12230
122.0
12250
12260 CHKI1
12270

-).21

l27l1

DC

11150

n

"elf
lUOO

l, '

1, '

127"

1

LIITH-.,LIITM,III'UT202·67-2

12721.

5 x

1, '

12121
1212'
12111
UH2

-2383
-U87
-).15
I

ASSf"IU IIISTRUCTI DN
TO
TO
A"
Tf"
TO
TO
aTH
TR
Til
Cf
INf
Sf
TR
aTH
Til
CF
INF
SF

··U,ADOCOII
·.U,AJUST
AOOCOII" 10
lIN'IIT-I, ODI NST
nPD,llITtUF
l£PDOl,lNTlUf+l
SCAII,.OI2
lEP002,CLEIlERH)
npo02,AOORS-4

12151
12169
0261.
09)09
02300
OHOI
06016
02302
02302
02102
12811
02300
02808
06076
02307
OH07
12950
02101

0261.
02)99
000-0
JO)66
0)602
0)60)
J2111
0215a
0).90
00000
01992
00000
02810
J290l
OH90
00000
01992
00000
-2)06
-3603
-0001
-)609
01200
-0001
00000
130)L
00000

49
26
II
2.
41
12
49
14
41

\3040
13033
\3033
13033
13066
13040
12974
00000
130.12974
0)494
02614
02805
13134
02674
U110
02aOl
13110

13158

12

02674

-0005

13110
U1I2
1319 •
13202
11214
11226
una

11
.5

..

02810
02809

.3
49

02808
13202
13246
02a09
UH6
In02
13170

25
I.
41
2.
.6
32
.9

13267
13267
09310
13305
M310
02301
09310

03602
0-0-1
01200
0360)
012J5
00000

11

DUO.
1l35S
09310
13378
IH26
OliO.
09310
DUO'
11510
IH.6
U'10
13611
In02
02110
02801
1l3"
13611
135TO

02110
02809

12714
I2ft6
l275a
12770
12112
1219.
12106

lUo02

·-26,RLOCSII
lEPO
INPUTtI9,III'UT-21
SCAN, .012
1E"00 T, AODRS-.
1EPO+7
.o24,1ll0CSW
npool
SET THE O-"OOlfIUS
TF" "ytMOO_6,lfPo06
T'H CHltMOO_II,INTlUFol
CHKIIOD-Il, 1
"M
CH
CHK"OO_II,I NTaUFol
SE
nPINS
AM
"Vf"00-6,1
aNF AOOI
,CHK"00011,II
TO
CF
"VEII0006, ,6
IT
ADOI
TF
AOOU,ADOCOI!
AN
·ADOCOlhll
C
I NPUhl6,tez
INE CHKIl
AOOCOII,IO,IO
5"
87
FUGGIt
IN~UTtI4,·U77,1
C"
INE FLAGGR

25
2S
II
16

u

25

11

lUll

31

12830
12142
un4
12 . .6
un8
12890
12902
1291\
12926
12938

Jl
H
44
12
31

12950
12962
129H
12986
12998
\3010
13022
1301.
11046
13058
11066
11018
U090
11102
UII4
U126
un4
13146

16
16
II
14
.6
II
.4
25

17

3\
)3

H

)2

n

0261.
-0011
09061
01200
OOOJO
OM217
01200

8 I,
SPS 11 .. 0
12280
12290
12300
12110
12320
121)0
12340
12150
U)60
UJ10
12110
12190
\l400
12UO
12.20
12430
12"'0

SII
•
•

·
•
•

12460
12470

TO

ell
II

Sf
17

12 •• 11
12490 •
12500 •
12510
UUO TUNS
12'30
12540

·

PAGE

INPUhl9,INPUh21
"20,IIIPUh20
SEE I"
INPUT+20,2),10
SEfllII
""'UOR,INPUhI9

FLA".

• 9

I.

OOOK)
01200
02aOI

SET FLAG IF I""IDUTE I NSTIIUC TI ON

INE
C

12450

u"o

n

C"
BE
10
117

SEE III

JULY 11,1961

CHECK TO SEE IF THERE I S A FL 4G OPUANO

FLAGG. TR
INII

·

PHASE I

AOOCOII,5

• ••• 1.110
L1"P'"
.oU,INTlUF_1
1I_T,1215,10
lEPOo'
LulliU
SUN fLAG

Tit
l"lt
11
10
17
C"
IE

11246
I3UI

·-2hl""UF

I1no
13212
1129.
11306
13311

o,euNO

I",Uhlt,INPUT_ZI
·-IO,INPUT+20
lI_T
•• ,.,IIIPUTt 19
TUIIS
."PUh20,n,10
LI_T
INPUT+20,71,10

12560
12510
12110
12590 "'AUDIt til
12600
INE AlU
1261Q
.NII "'O,IN'UTt2Z
11
U620
AlU
IlUO
C
UIt0Nf+',IN'UhZ2
INf UO
U640
SF
lZUO
I! POt 10
Tit
I"PUh19.INPUT+23
12 . .0 '''''.
121>10
n
flAIIS •• 2
12. .0 Uilil
C
lUONIHI,IIIPur022
126.0
IIIE AILE
U7DO
a. "'D,I.PUTtZ4
I21tO
17
Z. .ONI
12720
C
lfIlONlo',INPU'_"
uno
I"E zellONI
TO
·.ll,IIIPUTO'O
"'40 AILE
uno
Sf
tl"O
Ul6D
17
fU.S
U77GIIIONI
'trOoli ,1011,110
U7IO
17
ellAll
OS
U790C"T
12100.
12110.
IVALUU. LlII"M 0' Os 011 II1II
12120.
UISO OSO'"
seAII."U

lU26
UUI

uno
unl
uno
IU7I
IU.O
13402
11414
11426
11411
13. .6
11411
114'0

U.12

""

14
41

.5

.11

24

.7
32

11

'924

UUt
UUI
In. .

41
45
49
24

U5"

uno
USU

11594
U6DZ
U6I4
IJ41\

~

..

11494
11502

un.

" 2,'''''1-1

.5
49
41
.9
14

LUU

85

n

25
Jl
4'
)2

.9

L1

u, ••

11602
11611
U602
U,. .
02)00
UJ26
DUll
U412
Z

OtOl.

02.0a
OOOK)
01200
OOOP!
01200
02111
02111
01200
00000
02112
02111
01200
Oll13
OZiU
DilDO
01109
00000
OPO"

J3U.

26

SPS 11-0
121~0

128'0
12160
12870
12880
12890
12900
12910
12920
12030
12940
1 '12

II>

INPUT'19,INPUTt21
SCAN, •• 12

1369~

BT"

13706

J1
11

•
•
•

.

l3080

13090
13100

tHtO
1 H2O.
lH 10
13140 •
I11S0
1316t)

Ill70
13180
lH90
13200
13210
13220 NOAOO
13230
13240
13ZS0
13260
1)270 •
1 '3280 •
13290
1'300
l3310
13320
13:3 30
13340
13HO
13360
13310
13380
13NO

lNTH,AOORS

10
TO
B7

t 3050 •
13060
13010 uAS

PAGE

lNTH,100

U

oss
PROS

JUl Y 1\, 1963

c.

TF
BO

.. o •

PHASE

•• 12,'S~

unl

KUlSM.RlOtSM
PROS

U7~2

n730

21>
43
1"
47

.3
2'
49

02187
1369~

02381
131>9~

02387
02801
06076
13750
0~007

27

0)494
03601
-0100
01300
-0099
02110
JJ718
09090
07992

13818

ADDRESS ASSIGNED BY PROCESSOR
TF
A
80
A
81
AM

uno

AOORS,AOOCOW
_OOCOM,lNTH
OSS,I NT8UF+S
AOORS,lNTH
OSStl2

U762
11774
137'"
131.1
13106
13811

AODRS,t.tO

n.

lINPU,OOOS

26
21
43
21
49

03494
02674
13806
03494
13818

02674
02387
03607
02387

11
17

0149~

09310

000-1
-94'4

HAlUATE lENGTH OF OAS
BTM
IF
A
TF
BNR

SCAN,.+12
lNTH,AOORS

LNTH,lNTH
TE~PR. ,lNTH
NOAOO,INPUT+20

11

138)0
13842
138n
13866
13878

2b
21
26
45

06076
01387
01387
02Hl
13970

J3842
03 .. 94

01387
02387
02809

ADDRESS ASSIGNED 8Y PROtESSOR
13890
13902

ZS
25

ADoeow, ,10

139\~

11

8D

O.S+~Q.8SW

TO

KL:tlSW.RlOCSW

87

PROS

13926
13938
139S0
13962
13910
13982
11994
14006
14018

26
21
12
49

n.

AOORS ,AODCOW
AOOCO., TEMPR
ADOCO.,2010
PROS
INPUT>19,INPuT.21
SCAN,.+12

25
4"

14026
14038

26

TO
TO
AM
IF
A
SM
81
TR

.+23.AOOCOW
•• 23.JSTBl

H
11
H

13913
13925
026H
0)494
02674
02674
13818
02808
06076
13890
04007
13818

02674
02459
000-0
02674
02571
000-2
02810
J3994
09090
01992

OEF I NE OR I GIN

•
lJORG

BTM

SCAN,."l2

TF

Aooeo.,ADORS

•
•
•

11

06016
026H

034Q4

02bH
14086
02674
03490
14122

000-1
02614
R9999
00000
02480

J4038

SET ADDRESS COUNTER TO NE. VAlUE

S_
8NF
TF.
ECLAIl CF
8NF

14050
14062
14014
14086
14098

ADOCOIlj,l,10
•• 24,AODCOW
AOOCOw. qqqqq
ADORS-4
•• 14,LSTVSW

12
44
16

n

."

86
SPS 11-0
1 J400

WNn' ADDR5-4

13410

8NF
8TM
WACO
"1

131t20
13430
13440

PHASE

PAGE

JUl Y 11,1963
14110
14122
141H
14146
14158

*+36.LSCDSW
F Ill,AORF 1L-4
(NPUT2
PHASE8

38
44

17
39
49

01490
14158
12210
0328]
04182

00100
02419
J2631
00400

14189
14318
IHIT
06016
02381
02387
14262
02387
02209
02351
02300
14507
14494
02811
14506
14410
02811
14482
14318
14507
14482

03601
00000
-0000
J4211t
03494
-0051
01300
-0050
02115
02388
00000
OOOMI

lH17
021,51
02811
14470
02151
02100
0280.
14111
02150
14517
14602
14578
14HI

02811
02811
00000
01100
00000
02301
02110
02811
00000
000L4
01200
02350
14318
00000
021 . .
000000000
OU06
01300
0360.
00000
-2nD
02117
00000

130\-50 •

13460 •
13470 •

OEF I NE CONSTANT AND DEFINE SPECIAL eONSTA .. T

TO
DC +23,INT8UF+5
CF
CCOMER
13500
TFM SFlAG+ll, 00000
13510
6TM SCAN,.+12
13520
TF
lNTH,lOOA.S
135]0
C.
LNTH.51
13540
tlL
·"24
13550
TFM UHH,50
TR
ZEPO-l,ClERER
lH60
lEPO.,I,lNTH.l
13570
TO
13580
lEPD
SF
TFM SFLAGtl, "'1,10,
.13590
13600
81
TRREC"12
(NPUTt22,23,10
13610 CCOMER CM
13620
8E
TRRECt24
UREC-72
13630
BH
CM
13640
INPUTt22, 20.10.
13650
8NE TltREC",
13660
SF
tCOMER
13670
TFM
SHAG>I, 32.10.
13680
87
TRREt
13690 •
l3700 •
COllet T CONSTANT
13710.
13720
TF
SHAG+ll,INPUH22
TO
ZEPO+5I,INPUT+22
13730
13740
CM
INPUTt22,.O,10
117~O
8P
·.24
13760
SF
lEPOt51
13710
TR
lEPO,lEPOtl
131.0 TUEt T_
INPUTtl9,INPUH21
8N_ tCOIIU ,I NPUH22
13790
npo+,o
13100 SFlAG SF
11110
ell
--1. JIt, 10
13820
INE •• 72
8NF "",lEPO"O
13110
13840
INf
"'4,CCO"E~
13150
SF
lOO . . 9
13 . .0
TO
lfPOt'O,lNTHt\
TO. 0,","+11 . . 11
11110
npo
llUO
SF
11190
C
l.TH.INTIU"4
13900
INN
1)910
'F lNTH,lNTBUFH
13tlS
eF
lNTH-1
13920
TFII . . ".lEPOt'O
11930
S
"n,lllTH
n
13940
lIPO

14166
14111
14190
1-4202
14214
14226
14238
14250
14262

134"0 DC
lH90

••••

1~2H

CHANGE SF TO NOP

14286
14298
14310
14318
14330
14342

JF -, SF ON UNITS DIGIT OF CON

143~4

IGNORE>

14366
14378
14390
14402

CHANGE NOP TO SF

14410
14422
144H
14446
14458
14470
14412
14494
1450.
14511
14510
1~'42

14n4

25

n

It.
11
26
14
47
16
H
2S
32
16
4"
l'
46
46
14
47
32
16
49

26
25

H
~I>

12
31
H
~5

32

14
U
44

4.

14'••

32

0234~

1~51'

25

02350
01.21
onoo
02187

14'"
14.02

1".14
1 . .26
14(0)1
,46.0

15

J2
24
U

1~662

26

02317
02)'.
lun
146"
02300

n

14. .'

1~"4

U
22

146'"

31

~.,

OOOK]

01200
01100
OOOKO
01200
00000
00012

26

..""

U990

II."
uno
U"O

u",
140te
14010
140Z0
140)0
14040
140'0
l40tO
14010
14010
140.0
14100
IUIO
14UO
14110
IH40
14110
10itO
14170
14110
141to
14200
14210
14220
142)0
14240
14210
14UO
14210
10210
IHto
14300
14310
14120
14))0
14340
14150
l43tO
14110
14110
143.0
14400
14410
IHIO
IHIII

14440
U450
\4460
14470
144"
144.0
14500

•

••••• '.,001

II ... '

A_I. AOOC Oil

"
"
•••

AII8COII. LIfH
LSUI.dOCOli
LSTAD .1.10
DSC.It '2 •
&_S.LIIITH

•
""
"
""

141"

4.

1412Z
OUOI
141 . .
DUal
I,nl

IU"
14110
141"
IU94

It
U
16

014.4
OZ614
OllU

&_S.I.IO
OUTt'.lE'O·1
FISU •• LSTAD
FIS"D .L .. TH
•• ... DUlWI.ll

5

. .I
TOil

N

I""
I . . .'

0l1li' . . 11.1.11
lI_T,OOCON
INPUHlt.IN'UT'2)
SCAN."U

""

.0
""

KULSII.ILOCSII
.. DOlUS ASS! 'NED IV

••11

JI
It

",.

onu

14142
01494
14114
0)U4
02220

It

1411 •
00000
OUOI
00000

DUll

n

JI
11

U

l5

ozn4

oun

OZU4
000-1
1411.

o2)n

00000
000-1
OUOI

olin olin

J2 olin
'4 " In,.
l?

14. . .
'4t10
1. . .2
I.".

'0"110.1$11

TO

1I
U

1I

H'"
,,.".
.... '"

"24. ZE'O+l

n

•
•
•

lU. .
lUll
IUJ'
IU42
1. . . .
I ....

ISc.n

TI

14'"

O)Ul
09110
onol
0.0.,.
14nl
D4001

OUI1
on21
OUOI

OOIOJ

-.saz

onu
J4 . . Z
090to
01. .2

'I~AIII"'11

14 . . .
14 . . 1
15010
U022
11010
"042

TF

•• FLlfI
OODSF
ODeD",
'OSAF
PeOIlF
U"'
DSI
LlNKSF
tlLLEX
ru
IllACIIO
I$A
DeNO
DOA
0I0Il
OWle
un
$AYE
DileS
OAC

.
.,

'OGaUI ASSlIIII. IV '10""011

All

""DC SA
CHICK

I ....
IUto
141"

141" n

1. . . . 1
''-CI,IIII'UT+U

A

ISC

.., U,'.,

" " • • tn

CP
8M

•

•lOAMI)

. " II ..........

LSTAO ,&OO"S
10
'HZ,DC '2)
All
LSUO ... 10
&7
Dse'll
A
LSTAO ,LNTH
17
ose.u
IUMeH TAILE
lI_T.DOOS
ITIII LIN,. T,OOCOII
'TI, 1I II'''' ,'OSA
1I11'1T • PC ON
ITII LlWIIT,OOINST
8JM 'En.DnF
ITII Gfn.LINl$
ITM 'fn.tAUXT
ITII GIT .IITItA
IT" 'IT.llACIOF
ITM ,IT .DSA'
GIT.DIIIO'
IT" GIT.ODAF
IU GlTT.O,"",
COfH •• nCF
COIn .U'IF
GlTT.SAWf'
,nT._SF
Hn.DACF

""
""

110'0
UOU
uon
150 . .
150. .
15110
15122
UIJ4
1514.
UUI
1'110

1""

"'"
"'"
""

u,,~

IU06
.,211

uno

IU.,
IUI4
Ill. .

""
""
""

l6
U

11
49
21
4.

olin

150)0
03883

OH94
lOin
000-1

148~0

0)11)
14no

02317

11
11
11
11
11
H
H
H
11
11
11
11
11
11
11
11
11
11

n

09]10
09310
n'3\O
09)10
09)10
09201
09201
09201
09164
09\11,4
09164
0911>4
0'1.4
0'201
09201
09201
0"201
0.201
09201

-9454
-9512
-9711
-9616
J0366
-9)10
J40)0
JOHI
J4128
J3lT4
H046
J4788
Jl . .2
-.502
-9"1
J0334
J0511
JU50
J)004

H

0"120

HOlo6

14

15331
15)31
00000
00000
14

00701
00702
00500
00000

0'07.
OUI1
OllOI
06016
"J.,
014••

-'322
03494
OlllO

86
SPS 11-0

'HISE I

JULY 11.1965

14510 IIIAC2
14520 •
145)0 F2
14540
14150

G"' ....'1I2
LOAD '''ASE I I TO THE FILE
)4
SUIZ. YOI
lIN
5W'.102
TU

145'" SUIZ

14no

00& .O.IID&o.n5CT.U"AD
OJ. _ _ ..... IOO
TCD fZ

1~S80

_ , U_T

ITI'

I~.)O

E'fALU" n
ifill

,."

I'"
lFl1I

.... S.I

IU. .

111

LII'''.&OOIIS

14'"
14101
1411.
141ZO
141M'
14740'
1..,'0 •
14760
14710 '
14110
147. . .
14800 •
14110
IUlO ASINE
14110
14141
14150
14'" •
1411' 0'"'"
14",

$'

....

·•
•

14'"

14'"
14'"
14920
14.10
1"'41
14"0
1. . .0
14910
14. .0
14"'

150M •

"$CAI.··n

LIITM.6MCOW
61111S ,LilT"
AOOCOl. . . .

A_US 6SS15lllD "

.

rF"
ITII
Til

",

AM

TF
TOil

"

iF
All

TO
TOil

IT"

,aocusaa<

.,......"

.........,
094 ••

11

11
2'
JI

n

.4

"

on.l

U
JZ
JI
11
4.

00091
0''''

1I
Z6
21

OUI7
034.4
OU74

094"

"

OUIT
0925Z

GlU.NDSF

Cit. . .

11

"411

DEFINE'ILf ;IOU' "AlK

5C'..... 12

ILlUW.lLOCIW

..u ....
AIIIC• • 1

AOIIIII.&OOCOII

IILIUlliI,1I
• ADDU

nn..

lU. . . ADDIS
LUi, ,hne

OUhl." SIll
D\IIIIPIIU ,1.11
GlU,I'(OII'

sca•••• "

at". ""
.....
"
Ottll

L"''','

U"'" ....... ~U"'T

0 . .1.
0....

.4
II

0....
Dtt. .
O'taO
0 . ."
0 . .J4

26

19

000"
J""

.

-0001

-01.".'

OIlU

on..

11

OU20
OUIl
Otlll

OIIOJ
JIO. .

11

06016

-1410

II

.....

OUU
060:"
04.n
0""
02614
0)4'4
D40t1

-

0"'4
oun

09MI
-_I
D.U4
ooeoJ
0)4'4
03.94
-00-1

..0.".H. ,.
0....

-nil

MOto
-0101
03.94
_0
OlllO
-.410

..." .-

" . . . AI.O

LII'H."

1.010 •
111'1111 'AU"'"
11020 •
11010 OWLC'

..,,,

OInl
1t.1I
1t.14
D. . . .

IWW.19.IN'UT+ZI

TF

'f

09110
DUll

It'"

A

""

.
""

IU.O

lUll

AOlun ASSlIINfD If
A

lun
lUll

.IU.

sc"", .. n
••, •• u •

.." ASI",,,"
'I
ITIII

15114

LIlt(; TH Of 051

SC,..... u
L"''''AOOIS
III'UTtI •• IIII'UT',1

I . .~.
IUSO
14'"

1. . 111

Iino
15)02

OUIO

IU. . .
IUOO •
14110 •
14610 DSlI'

P"E

lUll

onn

at OllU

II
It

"

)0

$PS 11-0
TO
1'0"0
Tf
150'0
SF
1'060
15070
CF
INF
1'010
1'0'0 OVASGN SF
15100
TD"
UIIO
T~
15120
15130
TF
151 .. 0
T~
15150
T'"
15160 OVLP
CII
uno
INP
15110
SII
151.0
S
15200
T'"
15210
INF
15220
8N'
15230
TF
15240
A
15250
TF
15260
S
15270
All
ISl80
CF
TR
152'0
TFII
IHOO
15]10
S
15320
TF
TR
15330
15140
.TII
15350
I"F
15360
TFII
IH70
8T
15380
10

""

153QO

TF

15400
15"10
15420
15HO OVSF
15",,0 OYTR
15450 DVAD

CF
TF
CF
SF
TR
AM
B"R
67
TR
8TM
A

1541>0

15HO
15;'80
I~~QO

1~500
U~IO
1~~20

1~~30

ISHO
15550
15560
15570
155BO
I~~"O

8J

DVA08F TFM
A
B"F
A
TR
TF
S
BTM

PHASI I

KLILSII,ILDCSII
OVAOIP'II, AOOU
OVSII2
OVSIII
. .,.,ISII
DVSIII .. ,
IIULSII,I,II
INPUT'I', INPUT'ZI
SCAN, "12
LNT", AODU
OUT. CUU"I
OVT"'6. OUTt2
LNTH. 000'0

JULY 11, 1961

"ACHI NE "Sl5NS ADDIUS

••••
LNTH.'O.IO

AOO~S. LNTH
LNTH.'O
•••• u. OVSII2
"U. OVSIII
OVAOI,. II. AOOCOII
OVAOI"II. LNT"
LSTAO , OVAOIF.II
LSlAD • LNTH
LSlAO , I
OVSII2
IEPO. CLUUt2
OVSF'6. IEPO"1
OVSF'6. ADDIIS
OVAO'II, AOORS
INPUTtI'. INPUT'21
SCAN • • tll
'+'O.RlOCSIl
EVIlER-2.19780
EPRINT,EPRINT-I
CORER5,EUrsll
AOORS .CLERE'"
AOORS-4
IEP0+50, AOORS
lEPO+50-'
00000 .. 2
---,DYSF+6,211
OVnt6, 00000
"20, INPUTt20
OVA08F
INPUhI9, I"PUT+21
SCAN. '+12
LIITH. AOORS
OVLP
AOOR S. 00000
lSTAO , LNTH
. . 24. OVSWt
AOOCOW, LNTH
lEPO+I, OUT+2
FRSlAO.LSTAO
FR S TAO .LN rH
GeEl,ODCONF

"5.
OM"
0 . .12
0 .....
OtT06
0'111
DtTto
onu
O'T!"
0""
097"
097.0
0.102
0911 ..
09126
09111
0'''0
09162
091"
0....
0"91
09910
09922
099,..
099.. 6

D.".

0'970
09912
099...
10006
IDOl'
100)0
10042
1005..
10066
100TI
100.0
10102
1011 ..
10126
IOU'
10150
10162
10174
10116
1019..
10206
1021.
10230
Ions
102'0
10262
1021"
10286
10298
10310
10322

Z,
Z.
t2

....n)2
15
11

IT
26
11
16
I ..

'"
12
22
.....I..
Z6

II
26
22
11

.

n

11

22
26

n

IT
44
II>
21
43
26
13
26
]J

lZ
31
II
45
49
31

17
21
.9
16

21
44
21
31
26
22
17

0..007
10Z ...
Ion.
Ion.

on,..

loni
0..007
Ol'OI
06076
02317
02211
10156
onl7
0.17 ..
onn
03 .....
OllU
0"70
09922
102'"
102 ...
onn
0)11]
oJln
IOU.
onoo
101 ....
1014..
101f]
02101
06076
10102
07664
08064
01826
034'"
03 .. 90
OU50
OU41
-.a000
-0000
10156
10194
10238
02808
06016
02311
0981.
0)49"
03883
t0286
026'"
02301
038f]
038f]
0.252

Il

OTt'2
os.....
OOODO
00000
0.0.0
DooOO
OOOOJ
OZiIO
-97"
OJ .....
02116
-2UO
-00'0
OIlDO
OOONO
onlT
-0050
Ion •
IOU'
OU, ..
OlllT
102...
02]1T
-0001
00000
OlTll
-U'I
03"'4
03 ...4
02110
JOO42
079.2
P'780
08063
02476
02T24
00000
0'494
00000
00000
101411
-0000
0280'
02810
J0211
0349"
-0000
02311
10138
onn
02220

on83
02317
J506Z

91J
SPS 11-0

PHASE 8

156~0

15660
15610
15680
156QO

15700
15110
15720
15730
157"0
15750
15760
15710
15710
15790
15800
15810
15820
15130
15140

, OVSF
OS
OS
• OVSF+I
TO
-.23.AOOCOW •• ADJUST
TO
•• 23.AJUST,. LOCATION
AM
COUNTER
AOOCOW" to,
TF
TEMP,AOOCOII
TF
FRSTAD ,AOOCOW
AM
AODCOW.23" UPDATE lOC COUNTER IY MACRO EXPANS ION
TF
LSTAO .AOOCDW
TR
lEPD,RSIN" MOVE EXPANSION INTO. 1I0RK 8UFFeR
BTM SCAN,"I2 .. FIND NUMERIC EQUIV OF 1ST OPE UNO
BNF e+24,85W
TFM AOORS,80
CF
AOORS-4 ••• MOVE 1ST
TR
ZEPO+2 ,AOORS-.... opeRAND INTO "ACRO EXPANSION.
TR
INPUhl •• INPUT+ZI .. GO AND GET
BTM SCAN,"I2 .. NUIIERIC EQUIVALENT OF NEXT OPERAND
TF
lEPO+11 ,AOORS .. INTO IIACIIO EXPANSION
CF
lEPO+1
TF
AOORS.rEMP
ITM 5EET,LINP
, IIACRD EX"NSI ON FOllOWS
Til
0.0
RSI"
TO" 100.0
DC
I.'

15150 SAVEF
15860
15110
15880
15890
1~900

15910
15920
15930
15.40
15950
15960
15970
15980

·

TO
TO
All
TF
TF
AM
TF

1~990

Til
ITN
CF
TR
TR
ITII
INF
TFM

16000
16010
160Z0
16030

C,
TOil
DC

TF

,

•• Z3,ADOCOW, , ADJUST
"2hUUST, • LDCATlDN
COUNTER
AOOCDW •• 10,
TEMP. AOOCOII
FRSTAD • AOOCOII
AOOCOII, J5 .. UPDATE COUNTER IY IIACRO EXPANSION
LS TAD ,ADDC 011
ZEPD.SAVIN .. "OVE NACRO EXPANSION INTO 110111 IU"EI
SCAN,.tU .. FIND NUNE~IC .OUIV DI' 1ST opeRAND
ADORS-4". "OVE 1ST
lEPO+14,ADDU-. . . OPERAND INTO IIACIO IXPANSION
INPUTt19,INpUTt2l .. 00 t lIT
SCAN, . . n .. NUMIRIC EQUIVAUNT DI' NUT OPERAND
"24.1S11
ADOU.IO
ZEPDtn,ADOU" OPERAND INTO "'C~O UPANSION
2EPO+19
IIPO+I1,O .. MOVE ~ECO"O "'~II. IN II"'NSlON

I,' ,-

160.0
Tall OU"Plttl.I,1I
16050
RSlN-Z4
16060 • MAU~ exPANIION FOLLOIIS
160TO SAVIN rOil 100,0
TI
160'0
L60.0
TOil 100
16100
DC
I.'

•

·

PAGE

JULY 11.1963

15600 DVSWI
15610 DVSW2
15620 RSTRF
15630
15640

16110 • SUiROUTI HE TO PROCE IS CONTIOL CNARACTIR 'NA
161211 ANAL
CII
INPUT+2", .. ,ID, 1ST CHICII. IP lIT. ""IN. 1$ PIIIINT

10UI
IOU'
lo,n
10346
10'5.
10310
10112
10)94
10406
10411
t0430
10442
IOU.
10466
t0411
10490
10502
10514
10526
to"1
10550

a
25
25
11
Z6

26
II
Z6

11

n

44
16
JJ
11
31

n

J6
JJ
J6
17

10562
1057..
10516

31

10518
t0600
10612
106'4
106]6
10....
10660
106U
10....
10. .6
10101
lOTIO
lon,
lOT ...
10T!6
1016.1
10110
10HZ
1010]

25
25
11
J6
Z6
11
Z6
JI

1010..
10116
10.21
10...0
10112
101. .
10'"

111

15

n

]]

n
JI
IT
4.
16
Z'
JJ

15
U

"'I
U

JI
IS

I.

0
10351
10369
02614
02114
03813
02674
03883
02300
06076
10466
03494
03490
02302
02801
06076
02311
02301
03494
09252

02674
02399
000-0
02674
02674
-0023
02674
10562
J0442
09090
-0010
00000
O,4QO
02110
J0514
03494
00000
02114
J'091

00000
00100
I

00000
00000

106t1
10623
02674
02114
03ln
02".

02674
on ••
000-0
0'''4
02""
-0015
02674
10.lI
J06. .
00000
0''''0
OlllO
JOn4
09090
-00.0
Os....
00000
00000

onn

onoo
06076
0]490
on14
OliO.
0.076
10161
0]4••
onu
02319
ontl
1
0J521
10'11

OOOOJ
OODOO

00100
OODOO
00100
I

00000
00000
DODOO

olin

000-4

'2

5" 11-0

1'110
16140
16 ItO
16160
16170
1'''0 AIIALI
1"'0
16Z00
16ZI0
IUZO
IU10 ANAU
16240
16250
"UO
16nO ANLIC
IU80 ANLIa
IU90
IUOO ANLIA
1'310
IUlO ANAL)
16130
16340 AIIAL4
1.350
IUI>O
aHO AIIlL41
IU80
IU90
1'400

IIiE
Tf

T_

Tfl!
C
IE
CII
IE
$11
I
TF
All
TF
511
TO
ell
IE
10
B1

10
I

10
TF
TOM

All
TF
TOil
DSC
CF
B
OSC

'HAU I

PAGE

JULY 1I.19U

AIlAL ... , NO LEFT PAIlEII., luoa
AIUU.lI,IIIPUhU .. MOY' CHAR TO ANOTHU lOCATlOII
III'Uh19,INPUT>U .. PO$lTlOIi I ....UT UCORD
"U.CCH" .. IEGIN eHfCIIING CONUOl CHU. lST INITITIALIZE
AIIAL It 11 " .
ADORUSU. CHECK CH"RACTERS
AIULZ •• IO. CHA_ACTll fOUliD
AIIALI-I.CCHAA-Z4,. SEE If SEA_eH IS FINISHED
""AU...
VES. NO CONTROL CHARACTeR FOUND
AIiALl-I.3.IO. NOT FINISHED. IIODIFY ADOIlESS
ANALl-U ... lUNCH lACK TO CDNTlNUE SEARCH
ANUC+I1.ANALI-I .. '.EPAU TO IIOVE CONTROL CHAUCTU
DIGITSoIoiO. SET ADDIlESS TO IIOVE
"IO.DIGITS .. DIGIT INTO OUY,UT BUffER
"2J.Z,IO, PIE"_E TO SET CONTROL CHUACTER IN OUTPUT BUFFER
...
...
IIiSUT CONT_Ol DIGIT
ANALI+I1.54010.SEE IF ITS A IIODE CHAIIGE
AIIAU
DIISNUII.NIIOAL .. SCANNI NG FOR NUM MODE
011511... SCANNIIiG FOR ALPHA IIOOE
OllfSZ ,NIIOAl .. CHANGE F_OM AVHA TO NUIIERIC
0115l1li1 ... CHAIIGE FROII NUIIERIC TO AlPHA
ANAL41.NMDAL" CHECK TO SEE IF ALPHA DR IIUMERIC
•• II.DIGITS, ,PUPAU TO CLUR LOCATION P_EVIOUSLY SET WITH 1
'" CLUR LOCATION
DlGlTSoI,lO, SET
IN NEXT LOCATION
·+II.DIG[TS

10111
10 ••0
1090Z
10914
109U
lonl
10"0
109U
ID9n
1091.
10991
11010
1I0ZZ
11014
1104.
11058
11010
11012
1109.
11102
11114

...

1.' ,.

I11U
IIUI
11150
1111>2
11114
IlI16
11197

ANAL". RESET STRAY PAREN SWITCH
AIiLIl
101

111"8
11210
11222

41
26
J1
II>
Z4

...
14

12
49

U
11
26
12
25
14

"6
4)
49
4)

4"

4)

21>
15
11
26
15

11126 01200
10949' OZlIl
0210. 02112
10911 , J1248
10949 00000
109"1 012-0
10911 JIll4
11126 01200
10917 000-3
10921> 00000
11051 10931
09114 000-1
11052 09114
11051 000-2
00000 00000
10'14'1 000N4
11102 01200
117)4 09103
11490
1191>' 0'1103
11722 00000
11162 09103
11156 09114
00000 00000
09114 000-1
11192 0'1114
00000 00000
I

33

49

10866
11082

00000
00000

I

I

DC
Nl
OSC
3
DC
II)
OSC

16450
"41>0
16410

2,51

1I22~

I.)

1I22§

2,4)

11221

1,4

11228

4

DC
M2
OSC
5
DC
Ml
DSC
8
DC
N9
DSC

"410
11>. .0
1'500
lIt510

2.42

linD

1.5

11211

2,41

Il2ll

I ••

11214

2."

112)6

1.7

11217

2 •• 2

11239

1.6

11240

1

DC
02
DSC
6

SPS 11-0
16560

DC
03
DSC
2
DC
N4
DSC

16510
16580

PHASE B

JULY II,I'IU

2.1>3

1,2

PAGE

112U
1124)
11245

1.9

2

11241>

9

2,46
DC
M6
• PROGRAM TO PROCesS OMES. PHUEB
OMESF ITM SCAN,.+12"EYUUATE ADDRESS OPERAND TO FIND NUll. VALUE
TOM DllfSW,l,ll.SET SWIYCH TO REPLACE - WITH
TOM SIIODE ... RESET STARTING MOllE SWITCH
TR
OUT.CURER"
CLEAR
U
OUT+50.CLERfR+I.. OUTPUT BUFFER
TFM DIGITS,OUrtl .. INITIALIZE
BNIt "Z4.INPUT+20 .. CHECK TO SEE OF aUUE_ A 1111
8
OIlSERI
iFM 1I0DEl+I>.0IlESD"FINO STARTING MODE
BTM IIDDE,"12
BNF DMESA,lSw"ALPHA CHAR. IN FIELD, ASSUME ALPHA MODE. CHECK
TOM KULSW,I.1I
TO
•• n.ADOCON, .TO SEE IF ADO_US 0' PRGRAM"U 011 p_DeESSOR
TO
. . n,JSTlL .. ASSIGNEO PROCESSOR IF liD 8RANCH FIIOII PIIEY INST.
AM
ADDCDW"IO,AOJUST LOCAVlOII COUNTU
TF
ADO_S,AODCOW" SET ADOIlESS OF NESSAGE TO 2ND DIGIT
51!
AOOtON,2ol0, SET Lot eDUNiU TO Lot l!fOIlE MESSAGE
DMESA Tf" MOOEl_.,ONES... SEUCM fOR CONMA
UM NDDE .MOOE"
ENDING F UlO
OIlESi TOM NIIOAL".
SET SIIITCH FOR AL'HA
OIlSlI BT" DTII,DMEse .. scaN "ESSAGE O'£UIIO
AN
DIGITS.I.IO.
TF
"".OIGITS .. '_HAIlI TO IIOVE III 0
T~
.011112-2
AM
DIGITS.l,IO, LEFT PUEN UPDATE D"IT COUNT BY fliD
TF
"II.DIGITS" ULON FOIl COIIUOL CHAil IN OUT 'liT BUFfE_
TOM ... I"Sur fYUVTHING EXCEPT FINAL CONTROL DIGIT
OSt I.' ,--2

16600 ceHAIi
"lola
16620
ai30
166'10

1,.,0
1"60
1.670
16610
16690
16700
16HO
16720
16130

16740
16150
16760
1'710
16110
IUtO
16100
16110
1. . 20
16130
1. . 40
110150
168.0

16no
".10
161'0

16900 011582

IUIO
16920
16930
1. . 40 D"UC
1. .50
" . .0
"910
1'''0
1"90
11000
11010
11020 D"UD
17030
11040

11248
11250
11262
11214
11216
11298
I UIO
11122
11))4
1114.
11358
linD
I U82
11394
11406
11418
11430
11442
11454
1141>.
11411
11490
11502
11514
11526

lUll
11550
11562
11571

17
15

06076
03861

n

091010

H

02218
01268
09114
11346
12550
127210
12610
11454
010007
lHll
11429
02674
034'14
02614
12124
12610
0'1103
12714
09114
11532
00000
09114
11568
00000

11
1/.
45
49
16

17
44

15
25
25
It
21>
12
II>
17
15
11

11
U
31

11
26
15

JI262
OOOOJ
00000
02715
02116
-2219
02809
00000
JI674
JU10
09090
OOOOJ
02674
02459
000-0
02614
000-2
Jl411
J2670
00000
JI594
000-1
0'1114
11571
000-2
09114
00000

2

O·

OSt
T
INF

1.1 ••

" .. At.ANAL .. STRAY PUfH NOT FOUND 'F 8UI4CH
e
ANAL4 ... STUY PAUN
DDRel .-J
DlljnStz.l0. UPDATE DIGIT COUNT IT Z
AM
TF
"U,DIGITS" ALlOIl FOIl CHAUCTER IN OUT'UT IUFFU
iF
,1""UT+20..
"OVE CHAUCTe. flOM IN'UT TO OUYrU. ,lUFF
'-6.I.lO. sn UP ADOllusn TO CUA" fLAG
S"
TF
•• 11 ••-11 . . . tLU~
Cf
011111 ... COIIITlNllf SCAN
DORG e-J
INF DMUI,ISII" IS IT A PIIOIUIIIIU SI'fC" no ADINIUS
TF
ADOII S .AOOCDW .. 110, IIOVI LOCo C_TU IIITO "OIIII.SS LOC.
AM
ADD ••• I.IO

•

...

11513
11574
115"
11594
11594

1I.a6
11611
11610
11642
11654
11666
11"4

1I6H

44
49

10866
11126

10"6
00000

11
Ii
,.
12
16

09114
11624
00000
11624
11660
00000
11490

000-2
09114
0210"
000-1
111>24
00000
00000

11110
01494
034'14

09090
02614
000-1

J]

"
44

I""
U . . . 16
11
93

S" 11-0
110S0 DIIES&
170.0 OIISIIII&
11010 OIlSNUII
&1010
&10.0
&7100
171&0

TOil
TOIl
ITII
AM

"

TOM
DSC

,

17&20
INF
&1UO
I
17140
001110
17150 DMESH CM
1711>0
IH
&1&70
CM
&7110
8H
17190
CM
17200
8L
CM
&7210
17220
8H
17230
SF
17240 DMSLZ AM
17250
Tf
TO
17260
11270
8
11280
001110
17 290 OMSERZ 8TM
11300 DMES2 TF
SM
11310
TFM
11320
11110
8ltF
11140
A
173~0
87
1111>0 DME S21 A
SM
11310
17380
80
17390
SOl
11400 OMES22 TO
11410
TO
11420
aD
11430
AM
TF
&7440
11450
TOM
1141>0
a
11410
~ORIO
11480
DC

PMASE.

JULY H.1961

SIIDDE.&.IO. sn SIIITCH FOR NUll S"UIIIG 11001
NMOAI..I.IO. sn SIiITCH POI _ a l c IIIIDE
Dl•• 0IlESH .. SCAII IIUSAGE OPE UNO
DIGITS,I.IO, LEFT p,alN 'OUllO. UIIDUI DIIIT COUIIT I., I
"1I.0IGI1S .. ALLOIi FO. CONT.OI. CHA•• IN OUTPUT III" ••
...
MOVE
TO IUPPER

1.·.·

"'GE

un.
unl

09104
0910]

000-1
DOl-I

UlM

1211.

JII••

117. .
1&1t1

0'114 000-1
un6 09114
00000 . 00000
I

un.

1171&

ANAl.. ANAL.. STI" "'AlII IIOT FOUND IF iUNCH
ANAL4". STUY ..... N
.-)

INPUh20.7 •• IO, CHECIt TO SEI IF CHAR IS NUIIERIC
OMSIIIZ ... NOT NUllEIIIC. EUOII
I",UlO20.I>•• 10
OMSlI."NUllEIIIC If lUNCH
INPUlO20,50.IO, CHECIt IF -OTHau-.
DMSEII2", NON-NUMERIC IF IRANCH
INPUlO20,5 •• 10
OMSER2 •• , NOT NUIIEIIIC IF IIIANCH
I NPUTtZO
DIGITS.I,IO. U'DATE DIGIT COUNT IY ONE
•• &I.DIGIT5., AI.LOII FOR DIGIT
.INPUT'20,.
MOYE 01101 T TO OUT PUT IUffEII
DMSNUM." lUNCH UCIt TO CONTINUE SCAN
.-]

OMSRl.OMSNUM .. PUT END OF MESSAGE IN OUTPUT IUFFER
.'35,OIGITS" NUMERIC TO AlFA MODE CHANGE.
•• 2l.0UT'I.. SEE IF ALPHA STAIITS IN EVEN lOCATION
OMSY", INIT. SAYE lOC IIITH 011011 COUNT
OMESlI,85W .. SEE IF THERE IS A '"OGRAMMER SPEC ADDRESS
OMSY.AODCOW,. NO, ADD lOC COUNTEII FOR lOC· OF LAST DIGIT
OMES22
DMSY.AODRS .. ADO '11010 ADDRESS FOil LOC OF lAST DIGIT
DMSY,I,IO, ADJUST FOR NUMERIC STAIITING MODE
.'24,5MODE .. CHECIt STAUING MODE
DMSY.I,10. ADJUST FOR ALPHA STAIITING MODE
.'U,DIISY .. SEE IF CHAII Will START IN EYEN lOC
EYODD+I, EYODD
OMES8,EYOOD'I .. Will STAU IN EYEN lDCATIDN
DIGITS,I,IO. INSERT
·.lfa.OJGITS. ,,,1 L
OMESS

·'1
2,-0,·-3

11490

11712
U194
UID2
Ueo2
UI&4
III,.

...
4'
14
••
I.

III,.

4.

11150
I1I6Z

14
47
14
...
12
11
26
25
..

lin.

11116
11 . .1
11910
11922
11.3.
IIM6
11".
119~4

11961>
11.78
11990
12002
12014
12021>
12014
12041>
120'1
12010
12012
120'4
12106
Illil
121]0
12142
12154
1211>1>
12162

10'"

10166

1112.

00000

OU09
11.54
.2109
11910
OliO.
11.54
OliO.
11954
OliO.
0.114
11'40
00000
11734

000"
OUOO
0000.
01100
OOOND
onOD
OOON.
OUOO
00000
000-1
0'114
OZI09
00000

11

JI1l4

26
12
II>
44
21
49
21
12

09114
-U19
-0000
0'0'0
OU14

1251>1
12001
12001
0.10'
1203"
0'10'
12012
0910.
0910.
12012
4]
12 0.10.
n 12105
25 02410
4]
11478
II, 0.114
, . 12141
15 00000
4' 11478

014.4
000-1
09104
'300-1
0910.
02469
02470
000-1
09114
000000000

2

DC
-2'
I1~OO DMERIN roM
1711jlO
DC

OUT'100 .. PUT IN NUMERIC
1,',-

12166
12111

15

02318
I

00000

11520
11530

OUHIOI .. , END OF MESSAGE
1,' I-

IZ118
12119

15

02319
I

00000

DMERIC
OUH101 .. 8, CLEAR LAST FOUR DIGITS FOR END OF MESSAGE

12190
12202

4'
16

12250
02]19

00000
0-000

TOM
DC

,

11540
8
17550 OMER1A TFM

I'

12165

]

"
51'S 11-0
11560

PHASE 8

JUlV 11.196]

PAGE

n

OUT'98
OUT'99,. ,MOVE RM FOR
1.' ,.

12214
12221>
12231

15

17~80

CF
TOM
DC

17590
11600

TOM
DC

OUT'IOI
1,',-

12238
1224.

15

DIGITS,IOO" SET DIGIT COUNTER TO 100
*.96
DIGITS,OUT'I" CHECIt IF OPERAND PRESENT
.,1>0 ... ERROR IF NO MESSAGE OPERAND PIIESENT
DMSER I, SMODE.. CHECK MODE
OUTt5 .. , MDYE IN ALPHA END OF MESSAGE

16
••
14
U

2,' ,.-2

12250
12262
12214
12216
12298
12]10
1231'

11~70

,

17610 DMERIC TFM
17620
a
171>30 DMSENO CM
17640
8NE
111>50
80
17660
TFM
11610
DC
111>80

00000
00000

1

OU19

00000

1

4]

16

2,',*-1

12]20

11690
CF
11100
TFM
17110
SM
TF
17120
AM
11730
17140
8NF
11750
A
17160
A
11710
8
11780 DMENOI A
11190
511
11800
80
SM
11110
11820 DMENDI TF
11130
5
11140
TF
NDp
11150
NDp
11160
11110
ITII
11110 DMSEU ITII
n ..o
OS
11900 ONSU All
11910
TF
TOil
11910
11910
DC

OUT"
DIGITS,OUT'IOI
DIGITS,OUTtI.. SUBTRACT SUIITING lOCATION OF OIP IUFfU
LSTAD ,OIGITS .. MOYE OIGIT COUNT FOR OUTPUT
lSTAO ,1,10, ADD I FOil Rr lOC +1
DMEND1.BSII .. CHECIt FOil 'IIOGRAMMER SPECIFIED ADDRESS
LSTAD ,AODCOII .. FOIIM lIT lOC'1
AODCOW,DIGITS" UPDATE lDC COUNTEII TO lAST DIGIT DF CONSTANT
DIIIEN02
LSUD ,ADDU .. INlTlAlUE LEFT MOST IIITH '"010 SPEC ADDIIESS
LSTAD .1.10, ADJUST FOil NUMEIIIC STAIITING IIODE
•• 24.SIIODE .. CHECIt IF STARTING IIIDDE ALPHA
UTAD .1.10. UES, 'DJUST FOil ALPHA STAIITING IIIODE
FUTAD .lSTAD .. FORM LEFT MOST
FUTAO .DIGITS .. AODIIESS
lNTH,DIGITS .. INITIALIZE LENGTH lDC
IIIESDUT••• INpUTl"
IIUDUT. II. OUT> 2
GEET,PCONF
DM . . 2.DIISEND.I>D .... PUT END OF MESSAGE IN OUTPUT IU". .
5
DIGITS.I,IO
.'".DIGITI
... INSEIIT
I, ',_

12322
12]]4
IU46
12351
12]T0
IUI2
lU94
12_
12411
1241'
12"2
12454
12...6
12471
12.90
UM2
12514
UUI

11940
11950
11960
IT910

DIGITS, &.10
"11.DllnTS
... INsnT

11604

U

U611

21

OSC

02]16
0231 7

0'114
12358
09114
12]"6
12550
02223
2

-0100
00000
-U19
1)1200
0910.
-0000

02220
0'114
0.114
Oll83
olin
12430
olin
0a.T4
12418
olin
01111
1Z418
olin
Oll13
olin
0231T
10064
1001.
09252
12561
5
. .II.
&1591
_

00000
-2]19

0'

1T980
11990
11.00
leolO
11020 IIODIE
11010

•

All
TP

.

TOIl

DC

I.', •

TP
I

"",0111112-1

DC

__ I

1,-0' ••

DC
,.0
-0000
Til
I ....UT.I •• IN.UT.n.. IIDVI INPUT a.cOIo Lin I CMA.
INI •• , •• I"""T." ... NOT IL_. CIllO .01 III

unl

USM

12,..
12'"
U!166

12H2
1I6OJ

n
16

LZ
26

4.
n

21
21
4'
21
12
U
12
a.
lZ

26
41
4&
17
n

II
26
IS

-2Z1'
0.114
000-1
0.0.0
OUT4
0.114
00000
014.4
000-1
09104
000-1
OUll
0'114
0'"4
012.1
02120
J501.
JU.4
000-1
0'"4
00000

I

12121

"

0.&14
U.J4
00000

000-1
"114
00000

liMO
UI"

ZI IUtl
•• ' . -

11167
.....

U6J.

1,...
II...
12'"

UIU

,
I
S

II

U

.115

01101

.1110

lITO. . . . . .

,....
liD"

110M
110M
.11011
I ....
I liDO
11110
IIUO
IIUO
1"'0
11111
11160
linD
11110
11l'HI
11200
11210
lUIO
linD
lU'O
1IZ10

liZ..

lIno

S'I 11-0

....•
"

'HAIl

..,

•

JULY

n, .."

DIIIIIID.,t
CII
IIIIIVT.20,U,10. SEaRCH 'IILD, CMlCK FOR COIIlla
COlllla 'DUIID, ·. . .IICH
IlDOII
CDlllla IIOT FDUIID, CHICK FOIl IUIII!
._1IT.20 .. 10,
ell
'UIIK, CHECII IIEIf CHuacnR
IIIIDI " ,
·.1I,IIODI-&, '. aLPHA CH. . III fiELD, RnURlf, OR CHICII
IIIIT CHaR. ACCORDllfG TO .RAIftH
I
• SUI.OUTlIII TO SHin 0111 CHAUCT. . TO lHE LEn 'If III'Ul .UFFIR
oS
DTR
1.
IIfPUhlt.IIIPUT.21" IIOVE O'EUIfO LEFT 1 CHAR • seaRCH
OIISV,DIGIlS" CHECK IfUII. . . OF OIGIlS
SII
OIISV,DUhl
01lSV,100,'. tHICK DIGIT tOUNT
CII
, ..H •• ) •••• lESS THaN 100, DRAY' E••oa IF NO I""CH
OIlE.llf.lflloal,. TEST SNI1CH FOR NUll OR AL"'A, NUll IF I.
10
OIlUU .... U'Ha IF ,.aNCH '.N HElE
I
"'0.IN'Uh20,, FOR .11
OIlUNO
11
CII
IN'UhZO.'.IO. CHECK FOR STRAY RT "'lEN
INE ....... 1f0T a STRAY ,aREN IF IUIftH
AlfAl ... SET SMIlCH FOR STRAY PAREN FOUND
SF
10
OIlSNUII'12.NIIOAl •• StANNING IN NUIIUIC NODE IF lUNCH
11
OIlSII.12." SCAlfNING IN ALPHA 11001
CII
IN'Uh20,2 •• 10. eHK FOR LEFT "'REN
INE .,24, •• NOT A lEFT PAREN
• LEFT PAREN FDUNO
II
II.
NOT A I, .DR ERROR
TF
••• I,orR-I ••
RnURN
I

.. ,
,

"

....

11210
111'10
IUDO
11310
11320
IU]O
1"40
11150 OAtF
181.0
11)10
18110
111'10
.. 400
18. . 0
11420
linD
11440
18450
11.60

·••

U4-ro
18410 OAt2
18490
Inoo tHVALD
18510
IIno
185)0

... ••

.,

U70t
12711

uno

12'"
12n.
12766
121ez
121••
1219t
12101

uno

12U2
U ...

Ill"

12. . .
12110
lUll
12.00
12912
U9,.
U.J6
U'"
U'I"
12961
12910
129tl

l'
.t
1.

••
••
,.
l6

)I

12
14
41

.

PAGE
12)10
OUO.
OODOO
OliO.
12610
12H2
00000

IT

00000

ooon

01200
0011-0
OUOO
1266.
00000

5
02101
09109
09109
09109
121.1

OU10
0.11.
-2219
OOJOO
01100
0910)
00000
02109

4)

11166

4S

12202
12881

49
i'
47
12
.1
4'
14
4'
42
26
4'1

02109
12 . . .
10"6
111410
11502
0210'1
12 . .0
00000
12'19'
00000

11

06076

HO.

"

01~'I~

-00.

11214

000-'
01200
00000
0910]
00 OK.
01200
00000
Ull!
00000

EVALUATE LENG TH OF OAC
ITII
til
8NN
A
TF

INR
87

INR
CII
8H
TFM
Oat
TFII
TFII
A
TR
BNR
B7
BNR

11
18540
Inso
tM
11560 5TCHAII INE
TO
linD
All
11510

1300.
13016
11028
11040
11052
11064
11076
11014
11096
13101
IlllO
1l1l!

SCAN •• '12
AODRS.51

eROAt
AOORS.AOORS
TEIIPR.lOORS
•• 20, JNPur+20
•• 20
OAC2.I~PUT'22

AOORS.D
EROACI
llfPUT+22

1.· ••

11132
11144
l1U6
13168
11UO
131.2
11200
11212
13220
11232
13244
11256

INPUT+20.21.10
e.35, INPUT. 19
e.2), TEMPIt

aUTo2
•• ZO,OUT.)

EROAt'12
'+20,OU'+5
·.]Z
OUT'S,a.IO
EROAt+12
STCHAR'II.DUT+5
tHVALO+II,]

~6

21
26
45
4'1
45
14
46
16
16
16
21
11
45

••45

4.
14
41

25
II

IH92

DilDO

0~4'4

034.~

02HI

0)4'~

1108~

0280.

nO'l6
1114.
11884
02811
I

02811
-0000
01100
-0000
x
2

02809
1311.
1117'1
02220
IllOO

OOOK)
-2808
02571
00000
02221

Ol~'~

IlBO~

11220

02221

1l2~~

OOOK)

02223
11804
1l24]
11179

DilDO

02221
-0003

96
SPS 11-0
11590
1. . .0

1. .10
1. .'10
11110
llllO
11120
117)0

I.· ••

til
INE
TOil

OUT.].l •• IO

13210
1129'
11)04
IHI6
1132 •
131'0
lUSI

511

""

11l~

·

.t.o

0IlllPl+II.0.11
o+30.tHVALO·1I
•• 1.,2.10
, ,10

DC

1.' ,-

Til

OUh2.INPUT+21
. . n,tHvAlO+ 11
•• 2.1,1
INPUh19
•• 42.Dur.4
"30. TEIIPII
. . 11,2.10

JF

All
TIl

TFII
A
SII
tF
CII
IH
INII

11710
e-6,OUr ••
11160
.-36
Illto
IUIO
OAClo5TCHAR.II
11l'lO •
ADDRESS ASSIGNED BY PROCESSOR
Illao •
"U.ADOCOM
111'0 IIOSiNI TO
TO
•• n.JSTI\.
III.
All
AODCOM .. IO
III.
liMO
AOOllS ,aDDtO"
A
ADDCO.. , TEII'II
$II
AOOCa .. ,Z .10
Tf'
lit...
LNTH.AOotON
•• Z•• IIITlUFtS
ID
1Il10
TF
1.1'1C1
'DIIRS,ADOtOM
• 1. .
Il
oae•
. . . ab OAt'
SC'",.+IZ
10
IIOSINI,ISM
TO
IILRUM.UOCSM
.1910
LII1H,AOORS
UMO
"uraD • AOORS
" " 0 DAe;4
511
I'RSJAD ,I
liMO
LSJA.,FUTAO
UlaD • u",.
10 "U.IIITIUPOI
ff
LSJAD ,ADDRS
All
19010
LSTAII .1
'RnAD,LS rao
lH'O
1'1010
S
'R"AO .JlII'R
aOOlls,U'H
LII'H,T. .' .
1. . . .
ITII
TI. .,.OO
1. . " UII"C
1_
"II •• JO,III'UT.ZZ
a
I ...
.'11. JlII'R

....""
....
..1''''...,
.....

.-.....
..,&1.

'.100 0'"

PAGE
13268
132n

TF

nettA!

JULY 11.1961

CHVALO'II .. 610

·

IIUO
11610
116)0
116.0
11610
I ....
1..10

PHASE

TFM
DC

"

""
""
,"

"
"" "","1IIIf'
""
""
•
OAe;

It ,I ,_

nU2
UJ64
IU76
IU8'
11.00
1341Z
13.Z.
U4J6
11441
U.60
UUI
U4I4
U'"
U501
lnZo
UU,

U,..
1 nit
13"1
U5IO

uln

13tOO
U61Z

lun
UtU
11••1
uno
U6"
U ...
U'"
UfOI
uno
UU2
U744
U"6
U'"
11110
Ul9Z
UIO.
UIl6
11121
UI"

97

18

16

1117R
I

000-0

14

02221
I)lS2
01511
11146
IHU
00000
1

OOOl'

02220
13199
1)199
02808
11442
13442
1).42
00000

02810
11179
-0001
00000
-2222
02511
000-2
00000
-2222
01100
1)243

41

15
26
12
16
11
26
II
)1
16
21
12
U
14

..
.5

25
25
II
26
21
12
26
4)

26

••n
41
21
Z6
U
12

,.
Zl
4J
26
11
26
2Z
26

,.
n

16
16
21
16

U'~2

U4,.
U600
11501
U519
0261.
0]494
02614
02614
02117
lUtz
OJ4.4
1)"'1
06076
11.14
0.007
oZJn
Olin

olin

01lU
olin
U7. .
OIlU
olin

onn
onn
OJ. .4
DUll
MUZ
02511
UU.

un.

00000
I I

01200
000013179
000-2
000-0

02614
02459
000-0
02674
DUll
DOO-2
ozn4
01601
02674
JJ612
090.0
07992
0.494
0].94
-0001
OJln
02171
01607
0"94
-0001
031n
02571
OUIl
DUll
J501.
-0100
-2111
OUlI
-DODO

Z

5'5 11-0

'"ASE I

JULY U.lln

OAC5+',2.10
tHYALa-h.DAt".,ll
OAt5+'.0.'
OAt5+12
.... 2.IN'UT+Z2
NOSINE-H.AOOU
NOSINI-)7.Z.10
,10,10

19260
19210 MID

CHVALa-24
2.-16

U992
14004

Ion ,00023

14010
14010
14015
14016

"

19210

--6,2,10

8
OSC
10
OSA

DSC
49
OSA

2.1t9

1.310

OSC

1 ••

19550
19560
19570

TO

A"
H"

CF

12
.. 5

15
.. 9
1•
26
12
16
II
14
.. 7
26

16
49

UU"
Ill ....
UI3"
UI"O
U926
13447

1l.. 47
00000
U926
U447
U90 •
U916
00000
1

00a-2
UUM
00000
-Z'11
01 .....
OOO-Z
000'0
OOa-Z
-0000
01200
H926
-0000
1
2

U144
2
,

00000
1

2

-0565
-0023
2

14022

.00000

19120
GET PUT
19310 LINKS TO
Tn
19140
1 Q3';O
AM
10360
A
19310
TF
8TM
19180
TF
19390
1Q400
8NF
19410
SF
TF
19420
TF
19430
19440
AM
lq4~O
AM
19460
CF
19470
CF
19480
TR
19.:.,90
TF
19';00
TFM
IQ510
8T"
19520
GET PUT
19530 CALEXT TO
1'1540

un.

H961
U9IO
11991

1.·.·

19100

18KT .01.10
20210 GO
TA
IN'UT'19.IN'UT'21
20,.0
IT'" SC' .. , •• 12"
20)00
TF
".UKI.AOORS
20110
OU1+2 .... UKl-4
TF
20)2D
LSTAD.ADOIKT
20))0
TF .. LiliTH. 0000'
20)~O
TO
DSAlOX.RlOCSW
20350
TO" IltTaUF.1
20360
n
lE,o.l.oUh2
20110
BTII LlNKD."12
20110
SF
i NTIUF+I1., ,
TF
20)90
IIIUO+l.INnUF . .
TR
oUh2.IIIUK1
10"00
20410
LIIITH.OOOO).
TDM OUPIIi1+11.0.1h
20420

130.0

uou
uo ••

.ac.,

""

"

.

""

o DISK DfFllllfRS
l CaLL LINK lOAD
o OTHER DEFINERS

,ROGu .... E. ASSIGNS ADD.ESS

LOOK UP MEIIDRY ADDReSS

SURT 110 GENERATION

PAl NT ...

1l0 ••
U05.
1]070
11012
1309.
11106

IHII
13130
131.2
111H
IH66
Ill78
13190
IH'I8
1]210
13222
132H
1]2.6
11258
13210
11282
1129.
1)306
13318
113]0
13342
1335.
13166
IH7S
11390
lH02

H

H
U

24
U

24
47
17

.3

25
II>
26

.'1

26
16

11
11
11
26
11
26
16
25
15
11
11
12
26
1I

16
15

13035
13081
13.50
11105
14192
11129
14030
0601.
13198
04001
1]042
13040
11214
13040
13042
13040
02808
06076
11023
02220
03883
02387
09091
03602
02301
12838
03601
13032
02220
02]87
03521

00000
0280]

all"'.
02105
012N]
02801
012"'4
HI42
ocaOqO
07Qq2

000-0
03494
0267'
000-8
000-1
02810
J]258
03494
13019
13040
-0005
07992
00001
022,0
JH54
00000
03608
\1031
-0003
0000-

I UII
SPS 11-0

PHASE

JULY 1l.l963

20.30
ADDtOIl. SVADD
A
20UO
IfM L1NKC •••• 1l
20450
BY .. GEfT.PHASn
20"'0 00 END OF t".o TA'E TY'E Off IIiEAS
20470
OUK FILE ottUUTlVES HOT CALLS
n .. SCAN, •• U
20UO R'C;
20490
TD
0"5."I5W
NDrop.ISIl
2D500
10
TO
20510
KLAL SII.ILOC.SII
Tflll SWAOO.eo.l0
20HO
205)0
ff
ADOIK T.ADOIl S ..
'IIOGU ....U ASSIGNS ADDRESS
211540
GDNOW
lonll
DOIIG
rF ADDIKf.ADDCOW
1011611
20§70
fFN
$VADo,a'.IO
All
10UO
&OOIKT.OI.IO
lono roGiIClIII VII
l"'U"19.I_'U .. 21
20.00
Sf
111"11"5
YF
20610
...Un.I.I .. TlUF ••••
CDDE N.. 'lAG II
nil 51:&N,.·12
20.20
20.)0
IIIUKI .ADOn ••
LDAD ACO D'DDA
2. . . .
VI!
"'''IT ,ALae SII
20UO
'II IIIIIU,.".IN'UT+21
20MO
SC;"$e, •• l2,.
StAN FOR 2I1DO'EUND
•• J.,O.USfIIII
lO670
III
20680
10
206M
All
$VAOO .09,10.
UP lIDDtDW fOIl ) Ol'eUNDS
fD
ZOJIO
OP)SI"ISIi ..
SIT LQ4111 LINK SlIlftH
20110
LOAD InCltAflDII AOORESS
_ ' ...1N.5 ..
20120 •• Tin 'DA AlI"fttI'llUfiDII
20no
Til
IIIIIUf.'.,I .. 'Uf+Zl
2OJ.0
"It II U, liD lIPfl&;,,"
207fO
"lOtG.LCII&a
211760
TIl
.IIPU'.I',IN'UT>11
2QJlO
rn T FOIl "'OLUJe SEC TOI ADDIIUS
2018D
ITIII LS1tAII,·.U ..
PICK U' 4TH O'fU .. D
C
201"
"2J.LtHA8l
20100
l11li1 ·"24,012*1,10,
TUT '011 A . . SOlUTE
201110
roll IIIUKJ.I.U
20GlO
C
..n,IIII1IG
20no
I. 11I,0UIt.LO
20140
tf
lIIun
20lSCI Ell
Til
OUTO., ..... ) ..
'laST O'ERAND TD LIST
n
20"0
UTAD ••IICMtU
20170
IIIi
'IICMtU.U.IO
20110
iFII LllfH,1N
201.0
If" UleIIC ...
20.00
fa
auTo 2 ,MUKI-.,.
SICIIIl III'.UND TO LIST
LlIVH ,III
2D"0
20'20
Til
OUIOI ... OIGI T
20'10
TOI! l!!nlW.1
209<00
nil L111111N. ••• U
lOttO
IiO
IIOU , lIPUIi
20. . .
U
01lT+Z,IiIIIUIIZ-4. ,
THIIID O'UAIIO fa LIST
TOIl fliflUll,1
1M"
TO
DSA.IlI,UDC S~

••

• .-4
_I"
"

I'"

"Z.,IS"

"

..

".
"

,,"

,_

LSft""''''""

u

PAGE
IHI.
11426
13HB
134'0
1)462
IlH.
IHe.
U'I9'

11510
11522
13529
I15JO
1l5.2
1355.
In66
11571

21

11
11

H
2§

43
25
16
26
49

02674
12808
0'1252

13042
J)431
-4182

06076
13035
llHO
04007
13042
110.0
IH66

H462
09090
09090
07992
000-0

13040
130.2
11040
02101
03607
U032
06076

03~9.

00000

lun

U

13698

43

11686

II
25

116 . .
n042
1)0)5
n02'

02674
000-8
000-1
02810
00000
03608
H614
0]49'0
07992
02110
H662
1}035
09090
000-5
09090
OH94

OliO.
15044
U04.
OliO I

01110
J1746
ISI77
02110

150'1.
nl05
1"11
1]031

J3782
15171
012MI
DODOK
130.'1
012N9
00000

1]~90

11602
IlM"
1)626
\lUI
13650
11662

IU..
IlllO
13722

un.

13146

26
16
II
11
J2
26

11
26
25
Jl

11

U

II
11
Z6

un. u
uno

17
24

U794
11106

U

U11Z

13IU

uno

UI.,

n".
u ...
IJl7I

uno

15'02

,.
••u
U

Jl
Z6

11
16

n

U914

U

uno

U96Z

II
If

u •••

1I

••
Il'"
13'" 25
un. u

UOH

130)4
OliO I
06016

I)I~I

U154
nOli

OlZlO
03113
1]040
02117

un.

OUlO
023U
09091
03602

12 •• 2

l ) t. .

II

140)4
02220
0160l

UOIO

U

0.091

1uI

42

UOll
U040
000-2
-0002
J3914
11019
-0005
1303.
00001
J3914
130)5
13025
00001
01 . . 2

"~

:J

SPS 11-0

PHASE I

.ECOIID IIAlIt

..

14022
140J4
. .0 ...
140tl
14010
1401l
140.4

17
II
16
15
21

17
17

onn
01521
02614
11101
0.252

4J

J40]4

12192
02220

uon

-0001
OOOOJ
U042
J40,4
-4112

14106

21090 HOATA DSS 400, ..... 4DO
EIIO. 211D OPERAND CAU NG
21 ~OO
5,12345
11110
DC
J2J45
TFM EYALEI-2,71110
21120 ER
EPRINT,EPRINT-I
IT
21130
CORER5,ERSTSII
ID
11140
IIIF
•• ",UTnll
21150
21160
RCTY
21170
TITV
11 . ~o
Eft-l. ,6
B
11,l;U
DORG .-4
ADJUST ADOCO,,"
TD
*+23, ADDeow. ,
71100 CAL
11 ! to
TD
'.13, AJUST
AODCOII, ,10
21nn
A..
RETURN ADO.ESS
TF
,tHO
"IOCS+II,ADDCDII"
ADJUST AOO.ES 5
Alt
"IOCS+ll, 19,10.
.: 1240
SIT UP I' TO 101
TFIt "IOCS+II, lOCAL"
1lHO
21260
8T" LSTCAR."12
CODE FOR READ NO IILR
TFM MIUK3+1. 32, 10,
21270
.+n,lCHAR
212BO
C
TEST FO. 0 IN LOAD
•• 2",.,01244,10,
21290
81
EXECUTE
Sf
NBUK1+1,t.
21100
SLIDE COMMA
TR
INPUT+I"INPUT+2I,.
21310
ITM PCALL ,_. 12
21320
NO ALPHA INPUT
INF FOUIIO+U ,ALPHSII"
21130
READ THE DIM ENTRY FOR EOUIY TAIU
21340
TFM 10U,"Z3
21350
IDGT ,DEFDIM,l
2U60
I
17
CONru
21370
21380 OEFOIM DSC 2.22
22
DSA DFADD6
2U90

DFAD04+5,FLDATA+45, ,
DfAOD.. ,FlOATA+40, ,
EQUIY fA8lE FOR LOOK UP

Ul06

400
5

Hili
14112
14124
141]6
14141
14160
1 .. 112
14114
14191
14192
14204
14216
I 422ft
14240
14252
14264
H276
14288
14100
14312
1 .. 32 ..
14J"
143.. 8
14360
1"172
14314
14J91

16

n

43
44

n

34
49
25
25
11

26
11
16

11
16
24
46
J2
31
17

....
16
4'
..9

14391

07664
01064
07826
14114
00000
00000
141lJ

PI1I0
DID.,
02416
02480
00102
00101
00000

14215
14227
02674
13005
U005
13012
15044
U032
14311
l'U24

02674
02]Q'
000-0
02674
OOOJ'
-0716
J4276
00Ol2
15177
OU ....
00000
02810
J4341
155n

uon

02101
15114
1.. 618
00565
00566
14"14
.2

J438J
J4J91

5 X
J4398
14

14397
143'.8

21400 DfAD06 DDA ,O,DINDAD,DINSCT ,FLOAfA
0-4800-0IJ)106
1,'
21410
DC
21420 CONTU TF
TO
21430
21440 •• READ THE
214~O RDEQIY TFM
21460
B
21470
B7

PAGE

JULY 11,I96J

erlt LINKD".·.12
20. .0
21000 NOH
TR
DUH2,MRM"
21010
"It LIITH,OI
TDM DUMPIOIl,I,1l
21020
210JO
A
AODCDII, 5 VADD
ITII LlNKC.,"1l
21040
BTM GEfT ,PHASEI
21050
END OF DISK OEfINE.S
21060
GENEUTE CALL LlNIt ANO LOAD
21010
21010 III
DC
I,'

1.. 412
EXTRACT' EOUIV FILE ADD.
EXTRACT EOUIV FllEMOOULE

JORT, •• 23

IOGT,DEFEQ,7
GOON

14414
14 ..26

26
25

14.. 83
141t78

13151
13746

14.. 31
14.. 50
14462

.,

00565
00566
14494

J4461
J""69

16

49

IU2
SPS II-D
21480 DEfEQ

DSC
22
DSA

14""

5

I,'

J .. 471
1

21510 OFADD4 DDA ,0. EODAD,EOStT ,FLDA TA
0-0000-D4J3106
21520
DC
I, '

I""

14

1....'2

DC

BNR
21530 GOON
21540
rFN·
21550
8T"
21560
8
21570
DORG
21530
C
21590
BE
TR
21600
21610
8NR
21620
AN
87
21630
2(6"0 fOUND TF
21650
SF
TF
21660
21670
CF
21680
TR
n ..
21690
TF
21700
21710
STAU TO
TF
21720
TF
Zlno
TF
217"0
21750
AI!
21760
21710
CF
CF
21710
21790
tF
n
21800
21110
ITM
21IZ0
OUT PU.T
21850
TF
21140
AM
21850
211.0
21170
TR
21110
211.0
If"
Zl.OO
ID
21.10
TR
21920
TO
219S0
TDfI
All
21940
21950
IT..
21960
21.70 IIDJ
TR

••

'"

••

".

".
'"

""

•• 41t,FlDATA+ll"

IDENT-2,00000"
ER,-.12"
fOUMD+12
.-4
FLOATA+1l ,COll-2
FOUND
FLDATA.FLOAU+16
GOON,FLDATA, ,
DFADD4+5.04.10 ••

RDEOIY
IDEMT-2.fLDATA+15, ,
IDENT-5
"'UK I ,IDENT-2
"IUKI-"
INPur+19.INPUT+21, ,
SCAN,"12
MIUKl.ADDIS"
OUTPUT
FRSfAO,ADDCON
AODRS ,AODCOII
UUD,ADDCOII
UJAD.Z ... IO.
ADDCOII,19,IO
MIDCS.Z
"IOCS+I"
MIOCS+l'
lePO,MlotS

TEST END Of TAllE
ZERO OUT EOUIV BUCKET
OPERAND NOT fOUNO

TEST END OF ILOCK
NUT 'lOCK
LOAD EDUIV NUM

SLIDE COIIIIA
SAVE J.D OPERAND

sn TO TDTAL UNIITH

X••• 24

lINPI\T,OOINST
CDIIST ANTS
LSraD.ADOCOIl
·'00COII,07,10
LNTH.Ol
DUT.Z,MIUItJ
OUT+ .. , ..IUKI-..
LlIlItCR,·.IZ
NOS,."Io.
DUro, ,IIIUltI-4"
OSAIDI,aLotS"
IIITlIH'.1
ADOCOII.IS, 10
LIITH."
lII1IlDII, . . U
DUJ+2 .... M

44

1..469

1 .... 75
1.. 476

21500

;J

PAGE

JULY 1t.1963

DFADD4

214'0

~

PHASE 1

2,22

14494
14506
14518
1.. 530
1.. 537
1 .. 5]8
1.. 550
1.. ,.2
14574
1 .. 516
14598
1 .. 606
1 ..611
1""0
1 ..642
1""4
14. . .
1""1

14538
15528
14lt2
1 .. 618

13717
-0000
J4530
00000

13711
14606
13706
14"'4
1 ....83
1 .. 431
15521
15525
U023
U019
02808
06076

02437
01Z00
U72l
13706
000-..

Z6

uon

14690
IUOZ
I .. n ..
14726
I .. " .
1 .. 750
I .."Z
1417..
1 .. 116
1 .. ,91
14110

26
26
26
Il
Il

03873
03"'"
01113

0267 ..
OZ" ..
0261 ..
OOOK ..
OOOJ.
00000
00000
00000
12""
J4IU
JOS. .

14112
I4IS..
1"'46

Z6
11
16

1...,0
14HZ
I ......
14_
1.'"
1 ....1
14M2

U

,...,.
TIST PO ON.,.
OUTPUT ".0 . . . . . .

.,
.,

I.".
I ....
14'"

16

17

2 ..
46
Jl
"5
11

...
2'
32

26

n

Jl
17

n
J3
n
Jl

16

n

Jl

17
4J
II

25
11
II
16
11
11

onu

OZ674

12_

1_.
110U
OUOO
0 ..012
09110

13721
00000
15521
00000
02810
J""I
OJ .....

onn

OZ,,"
000-7
-0007
UOU
UOI9
J .. I ...
090.0

090"

01601
0,.'4

07991
OODOI
Dot-I
-DOli

12191

J .. '"

0267..
DUn
DUZO
022U
U.O.
1 ... 71
01Z20

Inn

OUIO

non

lion
!

$PS II-D

'HASI

•

JULY 11,19"

"GE

noao IIAta
Til
OUT'Z ,lEPO+ 1
nOlo
ADOIIS,ADDCOII
TF
A
nOlo
ADOtDlI, nOSA'.
noao
All
ADOtOll,n, aD
21010
Til
U'O,LlIIK
n060
A
U'O. U ,ADOIIS
nOlO
1111
SPQ'LO+ll,!h lOll
nOlo
til
IE'0'U,qUT+2
n090
UPO+lI,99
S
u,o.n
nlOO SPQHO tf
_, •• 2_
2JllO
TFII
ITII LlIIPIIT,DOINST
nuo
21130
Til
OUT'Z,ZEPO.U
nno
All
ADDlIS,l,lO
LSUD,ADDIIS
21150
Tf
ZJl60
ITII LlNKDR, . . U
Tfll LNTH,I
nno
21110
TD
OUT+2,LNTH'I .. IIOVE REt.IIU:. TO GUT+2
21190
TOil DUII'l'Il,I,1l
ITII LlNKtR, . . U
ZJ200
BTM GEET,PHASU
ZJZIO
23220.
232]0 •
DEfINE DISK ADDRESS
112"0
23250 DOAF
BTII StAN,HU
MURIEL.BSW
23260
TD
21270
BD
DDASGN,BSII
KlRlSlI,RLDCSW
n2BO
TO
TF
212'10
LSTAD,ADDRS
21300
B7
ODAl
2]]10 DDASGII TF
LSTAD,ADDtDIl
. . n.LSTAD
Zl120
TO
.. n,AJUST
2H10
TO
23340
AM
LsraD,oo.IO
TR
I NPUr+ 19.INPUT>21
21350 DDA2
UM SCAN.HI2
23360
uno
DAX-!,ADORS
TO
23380
TR
INPUT'19.INPUT>21
23390
ITM SCAN."12
DAX,ADDRS
23400
TF
Zl410
TR
INPUhI9.INPUhZI
ITII StAN ••• 12
23"20
23430
ADDIlS-2
SF
23440
StU,ADDRS
TF
23450
TR
INPUT'19.INPUT>2.
23460
8TM StAN.e+12
23470
TF
MAX .ADDRS
2]480
TR
DUr+2. DAX-5
23490
TFH LNTH,6
23500
ITM L1NKt,"12
23510
TR
DUT+2.SCU-l
23520
TFM LNTH.]
23Ho
ITM L1NKCR."12
23540
TR
OUH2.MU-4
23550
TD
DSABOX,RlOCSW
ITII lINttOR,.+12
23560

lnJO
alAU
anM
a""
ann
lntO
US02
usn
USU
aUJ.
USSO
11562
unA
IUl6
In",
13610
11622
U61A
U646
U6n
U670

.

U682
un4
UT06
U7lB
uno
11742
uno
U762
Inn
13116
13798
UIIO
UI22
UU"
UI ...

una

11870
13882
U19"
U906
U911
13910
1]942
1]954
13966
13978
13990
14002
14014
14026
14038
14050

Jl
26
21

u

Jl
2l
U

31
Z2

u

a6

n

11
11
26
17
16

n

15
17
n

17

n

41

25
26
49
26
25
25
11
II
17
25
II
17
26
II

17
]2
26
II

17
26
II
16
17
11
16
17
]1
25
17

02220
OJ494
02"4
0267"
onoo

DUll
U!"9
onu

DUll
02n ..
0 .. 012
onlo
OU20
01 .....
01111
U192
OUIl
02220
on21
12101
092'2

06076
01601
11750
04007
Ol8U
1]198
03883
11T85
11797
01183
02101
06076
1"110
02808
06076
14115
0280B
06076
03492
14119
02808
06076
14125
02220
02387
12178
02220
02387
12808
02220
09091
12892

U

OUOl
OU74
U22"
OOOU
01&96
01&9"
OOG-N
02220
00099
00000

JJU ..
JOJ66
02125
000-7
OJ .. 9 ..
JJ622
-0001

DUll
OOOOJ
H610
-411Z

Jl694
09090
09090
07992
0]"94
02674
O]ln
02199
000-0
02810
HB22
03494
02BI0
J]851
OJ494
02BIO
HB94
00000
03494
02110
J3942
03494
14110
-0006
J]990
HIl7
-0003
J4026
14121
07992
J4062

106
SPS 11-0

PHASE 8

JULY 1l.1961

PAGE

23570
2n80
2]590
23600
23610 DAX
23620

8NF
TF
SM
ITII
DS
DC

ADDCDII.LSTAD
ADDCOW,I
GEET. PHA SEI
6
I.'

14062
14074
14016
14091
14115
14116

2]630 StU
23640

DS
DC

I.'

14119
14120

23650 MAX
23660

OS
DC

I, '

14125
14126

.
.

.+36,MURIEl

21670 •• TUNSFER TO RETURN ADORESS ROUTINE
2]610 IITU
e+23, AODCOW, ,
TO
ADJUST ADDtOll
23690
TD
.'2hAJUST
AM
23700
ADDCOW .. IO
Tfll MI OC S+ II, 000 19
23710
RETURN ADDRESS
23720
A
IIlotS.II.ADDCDW ••
nuo
TfM IIIDtSHI,IOCAL ..
I DR GETS ENTRY
'23740
TF
fRSTAO,ADDtDIl
21750
TF
uraD. ADD tOil
AM
23760
UTAD,24,lO,
SET TO TOTA,L LENGTH
23770
tF
IIIOtS'2
23710
tf
IIIDtS'14
tF
1I1DtS+l9
21790
23100
Til
ZEPD.IIIDCS
21110
Tf
ADDRS.fRSTAO
TFII •• ·.24
231Z0
ITII lINPRT ,DOINST
23110
23840
GENERATE DISK DEFINERS
_I tOOl
TfM IIIUKl+1, 22.1011,
21UO
..Iun
23160
eF
TR
OUT'2,lIaUK)
23170
All
ADOtDII,19.IO,
UIIO
MOVE ADOtDII TD EIID 0'
LSTAD.ADDeDII
23890
TP
2)900
All
AODeOll,Ol,lO
U910
TPII LIITH,OI
ITII LlNltell, •• "
U920
U9J1
1II1III1,ADDeOIl ..
ADDRESS OF DIIA
All
21940
"IUK1.06,10
U950
TIl
DUT."IIIUKI-4
ADOtOll,Ol,lO
23960
All
uno
T'II LIITH,OS
23910
TD
DIAIOX,IIELSII
TDII IIITI'" ,a
139'0
240DD
ITI!
2AD10
fa
OUTU,IIIII1 ..
RleOllD IIAIIK
All
A.COlI,oa,lO
'4020
~
24010
LIIT",Oa
2_0
'RIIIl RII
'DII DUllPa_ll.a, 11.
,,,"0
ITII LI ...t . . . . lI
. . . . . .T. DOA
24060
240TD
TOIl OUT-I,l"
OISIt . . .ess
24010
IllUltl,lDCUD
TI
IA09D
OUT" , 111l1li I-A

••

"

)

LlIIKDtI.·-"

""

••

""

LINK

44
26
12
17

14098
02674
02674
09252
6
I
3
I

14151
1416]
02674
U005
13005
13012

1412B
14140
14152
14164
14176
14188
14200
14212
1 .. 224
14236
14248
14260
14272
14284
14296
14108

25
25
Il
16
21
16
26
26
11
3]
33
33

14320
14332
14144
14156
l4161
14110
lUtz
LA"oa
14&16
14A2I
144&0
IA452
14&64
14"6
lA411
a45DO

16
13
JI
11
16
11
16
17
26
11
JI
11
16
21
15
17
JI
11
16
15
17

OIZIO

IS

OU20

lun

14124
145,.
lAM'
14560
145"
141.4
14196

'117

0]601
011B]
-0001
-4182

II

26
16
17

olin

0388]
0]881
12996
1]008
130U
02]00
03494
04012
09110
13032
UOll
02220
02674
03813
02674
OUI7
niDI
ISOU
U023
02674
01387
09091

ono,

nl92
02210
02614

onn

OIUI
niDI

16

uon

JI

OlZZI

02674
02399
000-0
-0019
02674
-0716
02674
02674
000K4
00000
00000
00000
12994
03813
J4320
J0366
OOOKK
00000
nOli
000J9
01674
000-2
-0001
J"4l6
02674
000-6
UOl9
000-!
-0005
02471
00001
J45LZ
nOll
DOo-a
-0001
OOOOJ
J45T'
00001
J97U
nOl9

48

'"

••

'Ull

,.120

~.I.O

'41"
,.no

141t9
'UOO
lUll
lUU
2U)0

lU40

2USO'
•
•

DEIIDF

SECTOI COUNT

LIITH.O'

un", ... "
.111&1.0 ..

CORE ADDIIUS

OllhZ.QUIII-.

'DDCOW.Os,lO

1....0
l ... tz
IHO.
I .. n,
IHlI

Hno

LlITH . . .

D~"1I.0,1I

IUSZ
IU6..
IUT6

LlIIIIU ... "

nil

1.,0.
1.."0
I ....,
1.....

I ...
14
. "..

aDDeOW,OS,lO

TI'.
IT.
Tl'1I
,.
All
".
TOil
"II

MIlO

24160
24210
24210
2.no
24300
24310
24120
241)0
24).0
24150
24160
243TO
241.0
24)90
24.00
2UI0
2 •• 20
2Hl0
2""""0
24no
24460
244TO
24410
24"0
24500
24110
24520
245)0
24540

LI.C'~""

••11&1.00'.',
OUT'I.IIII&I-'

••

Uln

JIIU II. It"

PHAS. I

LN",,"

I.T.
"M
'R

'~UO

11-0

.DDCO•• 06,lO

"II

'~l.O

GIET.PHAlIi

11
16

17

16
31

11
16

17
"
11
11
16
"
17
11

02614 000-'
02111 -0006
1210.· J .......
nou 00-0)
02220 U021
0261 .. 000-)
02111 -DOD)
12108 J410"
1102) -0000
02UD 1301.
02614 000-5
02187 -0006
0)S21 0000U80' J4716
09252 - .. lIZ

EV'Lu.n ADDIUS OF DINO

nil

St.,. ... U
'D.015-4
.'2·6,LSTYSN
ADDU-'
"S,.LSCDSW
FILL.AD.FIL-4
I NPUTZ
AODU-4
.0 DOTCO.JfI"IUFt6"CHECK FDR rco
TI'll TESTAO
TF
'IIST'o,HlAOO
"" LNT"
TO
DUh', LNTH'I ,,1Ul.1I!1Ul.
ITII! IHODG.6.11
ITM STACK •• 9.10
TO" SlNUCOoU.2
IT
"ODlfl.MIIOIFI-1
U
nOAUt•• NIIIIES-5.6
Tfll .10,999.9
n
.. ",AODRS-4
•
WRITE FIIii4.L ) SECTORS TO FILE
fl'llS TI'll IOlT ,'023
I
IDRIC .DEFOUT. 7
•
£"'0 OF PHASE I ,CaLL I II PHASE C
TFM C'FA,PHAZfC
ITII CFF. PHASEC
PHAlEC DDA ,O.I'HCDAO.PHeSCT.PHASEC
OJ9252-"OJOOC!o
24550
DC
1,'
t.F
INf
WNTY
INF
Ifll
WA.CD
SF

245"1 SIMPLE TOil TIIDUAt •• 6.611
24570
17
FlNIS-"
6,9H'"
14510 N'Nes DC
11999"
24590 OHSIX DC
-00006
241>00
DC
1.• '

lUll
14100
I .. IU
1. . 2..
I .. U6
IU.I
1....0
1 .. 872
.....
14196
1.. 901
1.. 920
1.. 952

17
U
...
JI
....
17
19

1.. 95.
14961
1""0
1 .. 992
1500..
15016

17
15
21
31
16
31

06076
03490
1.. 836
03490
14872
12210
0)283
03490
lS124
09070
01813
02381
02220
10676
10940
11995
11814
11260
00410
00416

J4100
00000
02 ... 0
00100
02479
J2617
00 .. 00
00000
03608
-0000
02518
-0000
02388
00000
OOO-q
00002
11813
15111
OOR99
0)490

1502.
150.. 0

16
49

00565
00520

J5051
-3553

15052
1506 ..
15076

16
11

02629
02592
14

J5076
JOOOO

15
49

11260
1.. 980

00000

I....... 11

15090
15092
1510"
15116

.,6

J2

43
16
26
16
25

6

15122
15123

10~

SPS 11-0

IT"

24610 DOTCD
2 .. 610

"M

, .. no

PHASE.

JULY 11.196)

IULOOG.,O.IOll

unH

TD
DUl-7.1t
24640
TR
DUT-6,AODRS-"
2.. 650
IT" GEeT.LUC~
24660 • TO LD.D PHlSE .5 TO THE F HE
)
2.. 670 1'5
SU1I5,701
24UO
11
SU85.102
2.690
TU

.

24.700

sun

15114
15196
15208
15220
15212

ODA .0.850AD.85SCT.IIIISTRN
OJ911Z..,Z9J27J ..
TCD F'

ZUIO

24720 PttA'eC O.D~G
10000 •
UAO SECT OIlS 1.2 OF DIJECT PROGIUM
2 .. no
TF" IOU
, ..n
'4HO
8
IDGT
,JHI
.1
24150.
IN' 00-12
,ISTAT-2'
'R IF SUaRS REDo
24160
TFII DOoU
,00 .. 4'
SfT FOR NO SUIII'
2 .. 710
'F" 0001.
.SIZE
ZHIO
INIl DO+12
.CO 1M
IR I' tARO IMAGE
241.0 DO
110' 411
,.U'tI0S
MOVE FIRST ADR
lUOU
Sf."5
,
INDICATE SUIlS lEDO
'4110
TF
IUFtS
.IUFtl05
STORE f I 1ST ADII
24120
If
IUI'o,O
•. IUF05
2.1)0
SII
IU'os
.100
tOlilveRT TO I SECTOR IEFORE
2..... 0
TOil IU"'.
.2
' ....0
IN' •• 24
.'UFoI06"
Il,LOC""'U
_
IItLDe"UILE
2""0
TOM aUF'"
.-2
2.110
"IUFol..
.fUTtD
..
NOVE 5'5 I 0 CODE AND LENGTH
' ....0 ••••••
TO CAIIO 1 COU 6-14
TD
11IF+.1l
.,"'"
..
CONs TAitT I NO 'OR S,",ONO CARD
1~'00
'II
1"".12
.SECCD-!"
LO'DS SEtOND CUD (iOLS1-ZI
'''''0
YO
IUF""
•• MUK
,.
INSIITS IICDIID M'.K
2"'20 . . . . . .
Will TI UtiOll 1 'NO 2 . , TEl SfCTOR I IS "'1M. TED
'''UO
TO
IUF'"
.IUIII
..
-I If ~ELOC"AlLf OIJ PSM
' ..... 0
TIl
'UF+n,
.tOIlO"+O'"
NOVE COIIIIOII DATA
, ... 50
" e u , on ,I STAT
2.960
" " IOU
, .. n
24910
•
I Dill'
• JH.
.7
24.'10 ......
110 0111 EItTaIIS 'OR SUIA INC!. 'Itt(
'4"0 1100111 " . 1000f
• eoU

"

' ' '14/

lSOOO.

I

nOll!

..

110,.
..0.0

A

11O~'

1,0

11010

no,.
"101
lin.
11110

11111

••

"

AOO UIIGTH 01' SOPT DnlOI To "~"'J'
1fT "A!ltHA.

.IIAHI14

I"

tAl.C

., Sur-It
••

..

'"

•• I' Ult '''SUlNG' 'McnilO

loar

, .. 21

..

In c _ SIC TO ~11lO

"Ii

01
I

IIUO .......

,.,U1l14

e ......... 7 ...

OORG

111.1

..

'I'M"AI'
ell 01.

•

,...

,1

.In~'-Zl

.......IZI

c~

fP.N

nO'1

'''"12

eKSIt +2 •• 1If u- 16
".CII\I..

rPli

'IMO

lOG'

~.SI'

--..

.caDDO,.1

IOIIT
'''''CH I . . . . IIClllo,

PAGE
15124
15116
15148
15160
15112

'''''II

nUT tolllTf'

LIlT OIClI

11
U.

25
31
11
lit

)8
16

.. 9

10616
02)81
02211
02212
09252

000--0000
03868
03490
-9758

15232
15232
00000
00000
14

00701
00702
00500
00000

10000
10000
10012
1002..
10016
100.. '
10060
10072
10014
10096
10101
10120
IOU2
10144
IOU'
10161

16
49
..5
"
16
45
.. 1
)2
26
"
12
15
....
15
16

00565
00566
10060
IDOlS
10090
IDOl ..
00 .. 15
00415
12))0
12405
IZ))O
12131
10168
12131
I2n9

J002)
J17l8
02530
-0.,,9
J0392
02529
12430
00000
12430
12330
OOJoa
00002
12431
OOOOK
11737

10UO
1019'
1020..

Z5
11
n

U ..06
12.. 07
12 .. 10

U))1
11111
00421

10216
10ZZ1
10240
10lU

25
11
16
16
49

U) .. 9

U"O
12 ..00
00S65
00520

02 ..18
02509
02559

10,...
1021'
lOll.
10100
10312
IOU4

lon,

OJ..

I
10)60
10312

Ion.

10110

laS"

10J92
1040.

109

J0215

JI118

.9

00U5
00566
11196
11420
DUll
US.O
1151)
IIlSt
11500

J0299
JI1".
02511
OZ5ZJ
l"U9
JOlt2
-0001
J .. U9
00000

U

11201

02111)0

"
"
"

4J

II
16
16

I'

o
16 00'" J0415
•• OOS" Jln ..

50

S" 11-0

PHASI I

PAGE

JULY 11,1'6)

INF
TR
TON

,LSCDSII
HI,.".
CUUIl-54,CUUII
CLlIIU.U,O
CLEIIEII_IOI,CLIIIEII
n
nuo
TON CLflllUI01
nl.0
WACO CLlIIIII.!
2'200
W&CD CLiItIU2
U2l0
WACO CLEItEII+2
25220
PLACE HIGHEST ADDIIESS USED IN PICKUP
,PICKUP
25230 HIPICK C
HI&OO
25240
8NH e+2"
TF
,HIADD
25150
'ICKU'
2~2bn
CYLINDEII CHECK
25270
tM
SueOUT+5 ,1000
2~280
IN" AOK
•• 20
,22
2~290
10
1~300
AOK
n
25110
tF
22
,0
,11
TOM U
25120
,n
15130
TO
·"20
,710
,05
2~HO
tM
"8
2'ilr;O
8E
1'i'H:ol)
TOM 23
,-I
2Hl0
RtTV
2'ilSO
WATV BARF
75190
RtTY
25400
WATV 8&RF2
H410
8Nt4 AOK
25420
254)0
INHIBIT OUP tALL
TOM OUP-I
,2
25 ...... 0 AOK
STtNT
.10
tl
S"
n .. 50
TR
,403
0
,SKI P
21)"60
80
All-12
2S410
,PltKUP
08JCRE
S
RCTY
25'80
25490
PICKUP+I ,It "ARK
TO
8R IF 08JCItE IS NOT EXCEEDED
8Nl e+12
2'500
WAlY OYER
25510
25520
TO
08JCRE+l .PICKUP+I
755)0
CF
08JCRE
25540
CF
OBJCRE-4
25550
WNTY 08JCRE-4
25560
RCTY
WATV END
25510 All
25~80
aD
-+60
.SKIP
25590
P1CKUP-4
CF
15600
RClY
25610
WNTV PICKUP-4
WATV
25620
CDRE
25624
8HF ··24
,RElSW
25626
WATY RELCRE
RCTY
25610
256 .. 0
TF
AOORS
• STtHT
25650
CF
AOOR$-4
25660
WHTY AOORS-4
WAlY STPM
25610

2'140
25150
nl'o
nl70

......

..,,..

..

"

104"

lOU.
104.c1
10412
104'4
10476
10411
10'00
10512
10524
105U
10548
10560
10572
105B4
10592
10604
10.1.
10628
101040
10652
106M.
10676
10688
10100
10712
10124
10736
10148
10160
10112
101S4
10196
1080S
10820
10832
10SH
IOS56
10868
10880
10892
10'104
10916
10928
10'140
10952
10964
10976
10988
11000
11012
11024
11036
11048

44
Jl
15
31
15
39
39

10512
02769
02161
02123
02122
02717
02717
02717

02479
02715
00000
02715
00000
00400
00400
00"00

24
47
26

onu
10541
02528

0252a
01100
02518

03567
10748
10592
10148
00022
00023
10636
10616
10664
00023
00000
121)9
00000
12225
00000
10748
1116)
02511
00000
lon2
02496
00000
02529
10892
1190)
02497
02496
02492
02492
00000
11165
10976
02524
00000
025H
11199
11000
11849
00000
0)494
01490
03490
12095

-1000
01100
00022

]9

...

47
43
49
H
15

25
14
.. 6
15
)4
)9
)4
39
48
H

15
12
31
43

22
)4
25
46
)9
25
)3
33
38

34
)9
43

n

34

18
39

....39

34
26

n

)8
39

'I

00000
000000073
-00-5
01200
OOOOJ
00102
00100
00102
00100
00000
00400
00002
000-1
00403
11654
0252a
00102
00"21
01300
00100
02529
00000
00000
00100
00102
00100
11654
00000
00102
00100
00100
02478
00100
00102
025\3
00000
00100
00100

11 0
SPS 11-0
25680
25685
25690
25100
25710
25720
25130
25140
25750
25160
25110
25180
25190
25800
25810
25820
25830
25a40
25850
25860
25810
25880
25190
25900
25910
25'120
25'1)0
25940
25'150
25960
25970
259ao
25990
26000
26010
211020
26030
26040
260'0
U060
26070
26010
26090
26100
26110
26120
26UO
UI40
2'150
26160
2'170
261.0
261'0

RClY
av
·.12
TFM IDRT
B
lout
~ClY

aNF

n
OUP

CALC

BNF
TOM
NOP
8
TOM
87
TF"
80
AM
AN
SN
IH
&I'

NE

USED
MAP

tUET

......

OS
TO
aD
8
SM
A
OS
AN
A
A
a
DORG
tM
aE
CN
8L
TFII
aE
TfM

17

·.20
OUP-12
CALC-20
SYSCAL

PHASE 8

.

,-+23
,CSOOOA

JULY 11,1963

,7
FOLLOWING MACRO TERMINATES PHASE
8R I F DISK OUTPUT NOT REQO

,22

.23
tl

8R IF DTHER OUTPUT NOT

~EQO

RESERVED FOR IlEAOING CAIID TD ZERO
MONtAL
SYSC&L
DUP
CKMlP+54
USED
INO
CKIIAP+42
NE
INO-ll
NAP
2
NE
INO-II
NE-'
MAP
PICKUP
MAP
IND
CKIIAP+"2
Ne. ..
'-4
!STAT-36
DELETE
I5TAT-36
tK DIN
N"
Cit DIN

""

,2

INHIIIT OUP

,USED
,INO
,01
,01
.01

.10.

,20

",110,

,

,.-3
.NAP
,NE

,5
,WA+1214

",25
,NE
,NE

til,

.lO.
tlO

"
,11

CAU

BR IF TH IS SUIR USED
AOJ I STAT POINTER FOR NUT ENTIIY
AOJ NO OF ENU I IS FOR SUIR
.... IF NOliE ENTitiES OF SUIII. AVAIL
OIUIN NO OF ENTRIES OF NEXT SU.R
NO OF ENTRIES LEFT FOR DIM ENTRY
IIETUItN TO CHECK IS TAT

t

10.
,7

O.UIN SUIR LENGTH ADO TD TDTAL L

"

PDINTEII FOil SU.IlOUTlNE DIll ENTRY
ADY SUIII PNTR Fall NUT SUIR
ADY ISTAT PNTII FOR IAL Of SU8R ENTS

.10.

CK fOil SOfT DIYIOE PKGE
YES, IR TO ERIIOII MUSAGE TYPE OUT

.10,

III TO SIT NE FOil NEXT SUIIIOUTINE
,00

,
,
,614+IIA
,
,02

..

III If FIXED 6 SPECIfiED
lit If YAIIIAILE L SPECIFIEO

,14+IIA

CII 0111
SKIP ILANII 01" fNTllIES
,20
N"
CltOIM
,IIAP
,6
Cit Ollt-U
••• 2
CKIIAP I f
,N"
All
•• 10
Tf
,ISTU-U
"21
CII
,00
I. USlO.U
DfUTI+JO,'AULJ
DIlETE acn
lI0II1 X
lUOO
IIAn DTlIIIt
26210
TOIl Sill'
,-01
26220 SII"
OS
t
All
Tf
All
INIt

PAGE

._"
.. n

,,,
,

""
"

,--1

"

"
"
"
"

INSUlt! 'IlOPlII 01" ENTRIES
INIT AT 01 fOIl SOfT DIV
. . If ."ra., 011
CHANGI OILITI NISSAGI

""Y'IITS . . .CUTlOll
Sill' OU''''T ItUUIIG TO COIlE 1'-1

11060
11012
110'4
11096
11108
11120
11112
11140
11152
11164
11116
11188
11200
11208
11220
112)2
11244
11256
11268
112.0
11218
11292
11304
11316
11328
11340
11151
11352
11364
11316
IU88
11195
11196
lI.c1a
11420
114J2
11 ..44
11456
11461
11410
114"
11500
11512
11514
lun

1154.
11560
11512
115.4

11'"
1160.

11620
116U
11644
llU4

11 1

34
4.
III
.. 9
34
44
49
44
U

41
49
15
49
16
4)
11
11
12
46
II

00000
11084
00565
00520
00000
111 .. 0
11152
HU8
00475
00000
00796
00415
11164
11590
11)28
10)'11
IIH8
11288
10)80
IU51

00102
01400
Jll01
J1754
00102
00022
00023
00001
00000
00000
00002
J1328
1039J
000-1
000-1
000-\
01100
-OOKO

2

25
43
49
21

11288
10380
11280
IIlSl
0252.

1135J
11288
00000
000-5
J3539

II
21
21
49

11351
10391
11578
11292

00OK5
11288
11288
00000

14
46
14
47
16
46
Ie.
49

02523
11608
02523
11500
11151
11500
11351
11500

000-0
01200
-0002
OUOO

11

Ill51
1153'
11535
11 ....
lI57a
11571
11511
00000
11140
11651
00000
00451
11 . . ,
11654
I

-0020
11151
-0006
00000
1\)51
-0004
0252)
-0000
01200
J20!'
00102
00000
00100
OOOOJ

12

z.
11

4'2.
II
Z.
14
46
16

s..

U
)9

15

a

J2939

01200
JU39

52

1"

atuo

"

SUI

at

1

11-0

PHA" •

U6,.

M'.O •
'01 IUIIIOUlll1t 0111 ENTRIES
"ISO OOAJI OOA ,O,SUIOAO,I9,WA+l
O-.I.l",n26

'.'60

.
.

26110

,

26UO SfCCD

DC
4
-100
26no
DC
6
-OIOOK
26)40
DC
-60U)4"
26no FUTCD DC
I
07514142
2U60 IINARK OS
26370 COIIOAT OS
26310 COl"
OS
26)90 JHI
OSC 2
02
26400
DSA DDAlJB

,

26410

DC

26420 JHII2

OSC

2

26430

22
DSA

ODAJI

U440

,100

..

CONSUNT '01 SECOND CAID

,-3002
,601U4"
,67514142

CO"lSTAlIl FOil FIRST CARD

,421
,I STAT-5' ,
.ISUT-)O
,02

HI OROER POSITION OF CO""O"l DATA

14

U71.

4

11720

6

11729

9

11737

•

00421
02'00
02529
Ilnl

0
0
0
2

11744
J16,0

11744
1174'

,22

I

11746
5 X

11752
11752
117'3

,22

J1664
1

11754

CSDDA

DC

14

11610
116.4
11696

,'
2

14

11710

"

DC

l6450 eSDDOA OSC
22
26460
OSA

26410

.'
.'

DDA .0.IIOSDAO.l.0
OJ'''I-Ol-OOOO
1
DC

10)'2

unl

lU70'
'01 lEADING 2 SECTOIS AND WIT SEC101
IUIO ODA1JI DDA .0,e-e,2 •• "'.1
o-OOOO-OIJUZ6
262.0
DC
1
lUOOCSDDA

••

U6. .

,'

n

PAGE

JUL., ",1.61

11160

5 X

11160
11761

"

OS
1
U"IO
26490 E"IO
OAt I1,E"IO OF ASSE"BLY.'
fND OF USEMBL Y.'
26500 CORE
OAt 25, CORE POSITIONS REQUIRED'
CORE POSI TlONS REQUIRED'
26505 RHCRE DAe 27, PLUS RELOtATlD"I I NtRE"EN1'
PLUS RELOCATION IIICREMEN1'
DAe JZ,ElCEEDED SPECIFIfD CAPACITY BY ,
26510 OVER
EXCEEDED SPECIFIED CAPACITY IY ,

J16.6
1

11762
11765

1
11 X

11799

25 X

11149

21

11903

32 X

J J2
SPS 11-0
26510 OTHER
l6no FAULT
26'40 S""
2"'0 BARF
2n60 8A11f2
26570
265.0 BUF
us.o WA
21>1000
2"'10 eLOAO
261020
26UO
21>640 SUiC

PHASE 8

JULY 11,1963

OAt 16,SUBROUTINES OTHER THAN PG" DIV USED'
SUIROUTINES OTHER THAN " " DIV USED'
DAt 21,110 DI" E"ITRY FOil SUIIIOUTI "IE'
NO 01" ENTRY FOR SUIROUTINE'
DAe 22, STATEMENTS PROCESSED'
STATE"ENTS PROCESSED'
DA,C 4),"OIIE THAN' CYLINDERS OF IIELOAOAlU OUTPUT'
MORE THAN' CYLI"IOUS Of ~ELOAOAlLE OUTPUT'
DAC SO,SW4 ON TO DU"P OUTPUT, OFF TO CONTINUE, NO OUTPUT'
SW4 ON TO DUIIP OUTPUT, OFF TO CONTINUE, "10 OUTPUT'
DS
I
DSS 1900
,aUf
WOIIK AIIEA FOR SUIROUTINE MAP
DS
DDRG WI
SELF LOADER
34
SUiC
,1.01
JI
,702
SUI C
TAA

2"'0

DOA ,O,PHCDAD, PHese T ,PHASEC
OJ9l52-40JOOOO
TCD CLOAD

2 . .60

OEIIID INITI

PAGE

54

11967

36

2
2

120)9

28

120n

22 X

12119

43 X

12225

50 X

12124
12325
12)25
12325
12326
12131
UlSO
12162
12314

1
1900
0
)4

31
)6
49

12326
04170

113

12314
12374
00000
00000
14

00101
00702
00500
00000

SPS II-D
"TSPI
!SnCD
2PUID
2"S"
ACTFIL
ADDIU
ADDCDII
ADDSUI
ADIIFIL
ALPHSII
ANAL41
ICIIISPC
BLKADS
BLKtTR
BIERCH
CALEXT
CALLEI
CARDIN
CAIIOlN
CASTEll
CCOMER
CDINSII
CFFDEF
CHKNOD
CHVALD
CLERER
CMPCNT
COMDAT
COMSPC
COPoEF
COREU
CSDODA
oDUJa
DDASG~

DeFolM
DeF IN2
DEFOUT
DELETE
DfAoDI
DFAoD2
DUOD3
DFADD4
OFAD06
DIGALF
DIGITS
OIMOAD
OIMSCT
DME~Dl

oME~02

DMERlA
oMERIC
oMERIN
oMESI1
oMES21
OMES22
DMPolG

PHASE I
DMSEND
DMSUI
DMSIIIZ
DM"IIU
DMSNUM
DDCDII'
DOINST
DOLLAR
DDMISS
DUIOI
DUDLEY
DVADlf
DVASGN
Ecun
£PIIINT
EIIDAtl
EIILNTH

0150D
0]"2
20000
00600
I2T05
n040
02614
06676
U6"1
U5n
11162
06952
0]953
D3995
087 . .
14251
UU4
OZ664
D40U
04498
110)11
02414
02623
U022
13168
OZ115
01618
02500
06831>
04166
01lU
11154
11680
13150

Ell ST 511
EULAD
EVALER
EVALOP
f~HIUF

F IltIUf
FLAGGII
fLDATA
FUTAD
FIISTCD
FIIS1MT
FWDSCN
GOEVIL
GDODU
HIPICK
INCODE
INDADR
INPUTZ
INSTIIN

1~391

Ol522
03553
11601
09218
09118
09144
14418

I~TBUF

INnsw
10ADOR
10CUO
KILSUI

Hill 511
LI MTSF
II MTSP
lINKCR
lINKDR
II NK~II
lINKSF
LlNPU
LNTHFl
LOPOUT
lOSVMI
LSCOSW
LSPRSW
lS TCAR
LSTCON

1~]98

06488
0911~

04800
00001
12430
1241B
12202
12250
12166
11102
12034
12082
04000

uno

""4
11122
IIn4
15062
10]66
01096
10111
D9091
10014
10UI
0913D
14086
01064

13884
06932
OZ416
06756
07666
064]6
12459
12442
13110
Ul06
0]813
11131
04006
05934
13114
05491
10512
02491
11411
01283
12734
0]602
02483
02&36
19183
02414
04001
019'12
02501
12808
12892
12922
15122
09110
\2121
OlBn
19991
02419
02481
150104
12558

n

PAGE

JULY 11.196]
un4

LSTIIIIT
LSTVSII
MACIIDF
MAlLIM
MDIGIT
MI5I111T
MGIIUDII
MOCTot
MDOIFI
MOE let
1II0lDNO
1II0NAME
IIIDNCAL
IIIONOIS
MDSINO
MOSDAD
MSTDAD
MUIIIEL
MVEI!OD
NEWCAII
NOPIlEC
NOSINE
NDTYPE
OBJCRE
OPCOoE
OVIILAP
PACUo
PCALLI
PCHCOM
PtNUSII
PHASEa
PHASEC
PHAlEC
PHCDAD
PHCSCT
PICKUP
PRDtSA
PROtllE
PIITLIM
PTINSII
PULL 10
IIDEGIV
IIEETRN
RElCRE
RElOOG
REMAll
IIEVSCN
IILOCSII
IINMESS
RSCANI
IIIYMSIl
2PASS
2PSSII
TTY5
AlOAO
USCT

1Z"'6
02"1D
un4
15991
1]0]4
10051
"402

..on

11114
OOU6
160]9
"0]5
00196
I'D44
1604]
1966)
119]4
0]601
UO]4
11606
02709
13484
10570
OZ496
12950
12114
03889
15448
04590
024B2
04182
10000
15016
19252
OOO~O

02528
1~926

02491
02502
02415
0~942

14438
11~]6

11849
10616
11412
058B4
01'192
01995
05812
07991
042B6
02411
01866
18600
00111

AlDAD
AlSCT
AlDAD
USCT
"'DAD
"'SCT
A5DAD
I5ltT
AlIA
AILE
ADD 1
ADDIIS
AJUST
ALL
ALPHA
ANAli
AHALZ
ANAL]
ANAL4
ANAL
ANLIl
ANLIB
ANlIC
AOK
ASINE
ASTER
BIoAo
BISCT
IZOAD
12SCT
8lDAD
UMAD
USCT
B4DAD
B4SCT
85DAD
nSCT
86DAD
B6SCT
8AKII
BANAN
BAIIF 2
BARF
8a2
lEU
BlOP
ILX
8P20K
IRNCH
IUEIi
ISAV
8SIF
ISHI
aSNEIi
BSII
ITaL2

11100
DOD."

tlTlL

lUI'

I . .' "
OOOZl
1I1r.
00023
18737
00029
0"005
·uno
1l"4
034. .
Oll99
10904
02614
10911
10998
IlI02
11126
108'"
1I0lZ
110.8
11046
10148
0'1478
01564
ln69
00020
19200
00052
19000
09100
00069
19069
OD05l
l'U22
00029
l'U51
00029
11502
10218
12215
12139
09063
026"4
06640
02643
oooos
09442
llooa
09052
09046
09022
on90
09090
05510

CILC
CAL
CCHU
CDIM
CFFA
tFF
CFIL
CHU
CHECK
CHKBl
CHKIO
tHKND
tHKRM
CHSVM
CKolM
CKM"
CKSEf
CLOAD
CLOUT
CNTR
CNT
COLL
CoNTU
CORE
CSoOA
CTVT
CVACT
oAC2
DAC3
DAC4
DAC5
DAC'
DAC
DAS
OU
DCFa2
DC
00A2
DDAF
DDAJI
DOA
DefEO
DEFIN
DEFSM
DENOF
OEND
oFADo
oGMF
OGM
DMESI
DMES2
oMESA
OMES8
DMESC

05686
Ull5
11201
14192
112"1
02529
02629
OU92
0.,10
U482
14911
UU4
04614
01150
IUDO
09886
11500
11536
11396
Ull6
08168
09082
13481
02439
14414
1179'1
116'16
02489
12398
UI44
13600
13641
138n
13004
15266
13830
1~1I5
04~94

14166
13198
13682
11664
15194
14~69

01530
03577
14188
IS 182
09212
09502
15206
lIlIO
lI966
11454
11418
lI594

11 4
SPS 11-0
DMESo
oMESF
OMES
OMESII
DMS12
DMSII
014582
DMSR2
oMSV
oOCON
oOoSF
ODDS
DOL
OORG
DO
DOTCD
oSAF
OSA
DSBF
DS8
DSC
oSDNI
DSS
Oll
DUMP I
DUMP2
DUP
DVAD
onCF
Dnc
DVLP
DVSF
DVSIII
DVSIIZ
DVTII
END
EN
EODAD
EOSCT
EOSN
EIIDAt
EIlLAI
EltIlXX
III

!VI
nODD

Fl

,.
'2
'I

,."

PAlL ,
PILL
PlNII

'IT

PHASE B

11614
I1lS0
15254
03861
11910
11490
11513
12568
09109
09582
15050

FLGRM
FOIIIID
FOUND
GAT
GEET
GET
GETT .
GIT
GOI
GOAHD
GOCl

09~54

GO~DW

06881

GDODB
GOON
GO
GOTIT
HClIM
HUD
HED
HUDD
HUBI
HUt12
HUB
IC
IDENT
tND
INITI
INKIIM
INPUT
lOCAL
IOGT
I OPT
10RIt
10_T
lOSK
IS TAT
JHIZ
JHI
JSTlL
. . THY
LAIL
lIADD
LlLIM
LtHAII
LIM
LlMSV
Llllltt
LUlU
LINK
LINKS
LIIIP
LNTMI

1~02.

10072
15124
130~6

15110
09310
15110
14142
1]622
13806
12114
03510
096J~

11164
10162
09658
15218
0981.
10UI
10UI
10139
lOUD
11165
nlt4
00000
00004
09021
11192
OSlO'
04'"
14112
01102
01 ... 9
04110
11190
0910.
lUll
111 . .

11-.0

lion

lU10
11011
11091

UTN
L

LIYAD

LUC.

PAGE

JULY 11.1963
03884
04354
14606
09\20
09252
01220
09208
09164
04426
1~158

12618
11566
0562~

14494
13234
08418
02501
06032
0]160
02518
11662
11691
11638
03861
155]0
10191
0~110

02565
02719
00116
00.66
00U2
00510
00,.,
Don.
02119
11146
IlUI

OlU9
UU2
0"1)
01211
10009
11111
011'"
111116

IUTI
11111
014. .
1.010
1109.
09600

onn

01110
0....
0""

M2DIG
MACI
MAC2
MACII2
MACRO
MAP
MAlIK 1
MAX
MBUKI
MBUK2
MBUKl
MUS2
MIOCS
MID
MDOEI
MODE
MODOC
MOMAD
MOML
MOSCT
MOVE
MIIM
MTIIA
MURI
NAST
NE
NEIIIL
NINES
NMOAL
NO]
NOADO
NotAII
N015E
NDIIIX
NOO"
NOTJ
NOTOP
NUMI
OHSIX
ONU
OOPS
0']$\1

0'111

DPfIL
OTHEII
IIIIT
OVIII
PACII
PAIITL
PtALL
PU

"DIll
PCIINP
PCIIII
"Til.
I'DUI'

13044
13410
15218
13046
15158
lU51
05226
14125
13023
13029
13031
01033
12994
14004
1211B
12670
16022
00415
16000
06564
UOH
14128
OZ631
05094
11288
lI550
15116
09103

POSA
PF IL
PKMOO
PLACE
PROS
PUNCH
aFIL
IICTAB
RCTR
RODIM
REG
IIELSII
RLDSA
RLOP
RMARK
RMOP
IIMRK
11M
RICAN
IIStN
IISTRf
IISTR
51
SAVE'
SAve
SAVIN
SBMU
SIOUT
StANI

1~911

SCA~A

U970
15156
02521
00411
Inti
140J4
uno
01441
15122
015 . .
011'6
11011
09019

SCAN
seTl
SEeCD
$IUD
SEEIM
SFA
SFLAG
sIZe
SKIP
SMOOE

160~1

12611
1l9n
02211
1l90J
0"10

OU9I
11114
OU6I
09UI
110. .
09"6

11. . .
llOU

s",.l
SPiL

SPIC
SPITY
SPLIT
SPSGM
SUl
STtNT
ITP"
SUIO
SUII
SUII
SUI.
SUit
SUM
SUIC

09118
12613
03906
o'lon
13118
12582
12619
12n4
019'10
10276
13450
02478
13150
04682
00421
04802
02515
14106
05714
10562
103]4
15230
01004
10581
1'5242
10121
02669
0264]
063 ••
06204
06076
14119
lIl1"
04]]0

In ...
01951
14'06
IOJ92
U"4
0910"
oou,
OOIMO
06972
10111
12010
01560
0.""

OUU

1209'

OU"

lUI.

O9l1N
14416

IIIU
1"1'
un4

115

56
SUBIN
SUB~O

SUBSM
SVADD
TAPIN

TIll

03B8
02523
0]586
13042
02656
05588
05462
0251\
02114
09051
05406
1H26
15146

TBL2
TEMPR
TEMP
TEST
flU
TRANS
TIIA
TRDSA
l3Z1t1
TIIMMM 01168
TRREC ,14482
TYPE
09065
TYPIN 02648
11328
USED
IIA
12325
X
04012
02]00
ZEPD
ZEROS 15531
ZILCH 15516
SBFADD 1599B
SEC INS 10114
SETFRM lI802
SIMPLE
15092
SPIIFlD
13538
SSTOAD lB899
SSTSCT 00035
STACKIt
10940
1]152
STCHAl
STCHAII UZ32
snUN 0]118
STNUCO I1.U
STPCSW 02410
STPIISII 02412
STTYSII 02411
SUBDAO 04101
SUIENT 09010
SUIOUT 01"2
SYMTAD 01.41
SYMTIL
16001
SYSCAL DO",,'
TlLEND 0.011
TESTAD 0.010
THI",S 01410
TROUA 11260
TRNUMI 01 •••
TIINUMa 01412
TYINSII DIU I
TV,.NI 04111
T.,PlNS lID. .
VACANT IMOI.
1I110Nl U601

5PS II-I)

'MUI.

PAGE

JULY ".1.61

1.0 OP ONe ASSIRILY.

IIG
5'1 110

SUI~DUTl"E

SUPERYI5DR---11 JUL l'U---JHI

117

5'S 110
00020
00030
00040
00050
00060
00010
00010
00090
00100
00110
00120
00130
00140
00150
00160
00110
00110
00190
00200
00210
00220
00230
00240
00250
00260
00210
00280
00290
00300
00310
00320
OOHO

COMMON
IIMAIIK
IIEL INC
nsell
10lllC
Ion
IDGT
I Dell
MOIIeAL
USE
peK
PlUSl
FOIIEQ
SU8VEC
MOD
BUF
SSlOC

OS
OS
os
DS
os
OS
os
os
as

,1600

DC
OSC

00400

OSA

00410
00420

,T

5
2

,ptun

,uao

12000

.H"

SURT OF AIIfA COMM IIITH FOIITRAN lDR
,PCK -150
AREA FOR SUBR READ IN

,

.10
,lOaD
,MOD-l
,I T024

5

laC OF SUIII SUPER ON DISK

2402
101lT
10GT
DDAP'!

,OODAP

,T

.SECLST

.1.

'-1

,)
,OOOAPo12

,·.21

DOOAP.7
CHECK'35
1210
XEO
439
46B
434
427
XEO·23
XEO
20

••

,I
,410

••

,ISTAT"

..

,75

,

,1,

,RESTOR+12"

..

liD SUBII FM seTC
ADJ FILE AOII
PNT TO SEC CNT OF NEx T SUBR
PERMIT HIGH CORE TO FURN ADR
AOJ ISUT REFERENCE
ELIMINATE A SEEK IN 10RT
BR IF lNOTHEIi SU8R TO BE PROCESSED
PREPARE TO lOAD 08JECT PROGRAM
RESTORE RELOtATION INCREMENT

,DODAR
HOLDS DDA FOR 08JECT PROG

,-22

2

1

o
a
a
o
o
o
o
a
a
5
2

,0

RD SU8RS REaD FROM SCRATCH

x

a
5

)0

12000

o

o
16
49
21

11
25

11
16
43
16
32
26
))

16
4'1

02591
02592

.'

o

DC
R99
OSA

00401
00421
004]4
00411
00520
0056'1
00"6
00716
00196
01600
02165
02398
07210
02215
08000
07999
17024
02402
02402
024H
02426
02438
02450
02462
02474
02486
02498
02510
02522
02534
02546
02558
02565
025n
02591

DOAR

,

00390 DDlP

seliATCH SIC lOll FOil SUIIIS

,Tt.

00380

EXIT
DDAR
0160 ODDAR

003~0

,

.U5

.n'
,ll'

00310

CHECK

lOll 0' IIleOIiO MAlIK
lOll OF IIELDCAT I 011 I NeUMINT

.'10

os
os
OSB
OSS
OS
OS
OORG
TFM
B
A
AM
TO
AM
TFM
BO
TFM
SF
TF
CF
TFM
87
DSS
OSC
2K
DSA

XEO

,
, ,

,411

058

PAGE

SUIIiOUTIIII SUPfllvnOIl---u JUl 196J---JHI
,401
,421
,414

as

00565
00566
02598
02431
02615
02491
01210
02402
00439
00468

-2425
-2608
-2674

-000)
02620
-0001
-0480
-2641

-0075
00000
0263)
00000
-2585

00434
00421
02425
02402
20

2
5 X

-2565
1

02593
02598

BASE

99999

02598
02601

-\000
3

02606

5

X

02bOb

02601

00430

DC

"

00440 ODOAP

OSC
02
DSA

,02

02608

.0

02614

00450

OOAP

5 X

11 8
SPS 110

00460

,0

DC

00410 RESTOR OSS
20
Fall INFO LOST DURING lOAOG OF SUBRS
00480 ISUTW OSC
30
,0
..
INDICATORS FDR REaD SU8RS
OOOOOOOOOOOOOOOOOODOOOOOOOOOOO
OAe
1,0

o

OORG '-1
00490 SECl S T DS8
3
OORG --50
00500
1
OOHO OOlSC DC
00520
00530
00540

DC
5
J9663
DC
3
-01
OSA WA}

PAGE

SU8ROUTINE SUPERVISOR---ll JUL 196)---JHI

-0000

02621
02641

20
30

0261)

1

,0

02672
02674
021\1
02711

,19663

02116

o

,30

ALIGN SEC LST AT EVEN ADR
LIST OF SEC lNGTH FOR REQD PROGRAMS

DC

02724
02125

"

o

00560 DOOASC OSC

2

,22

FOR Svs CDMM SEt

22
00510

00510

DSA

00600 OOA

0'

15

OSC

1

00610

DC

5

00620

DC)
-01
DU III

o

,0..
SI MULlTE DOl .0,O.001.IIA
.0
RD OBJECT SEtT

1

021)4
021)9
02142
02747

DC

"

006S0 OOU

DSt

,0

DC
5
-410'
DC)

,410'

00670

00. .0

a

-0'
DSA

02741
liD DIM

,.

DC

00700 DOAIl

DC

02757
027U

00710

DSA

,a

1

Oll'"

IIAl

"

5 X

-7400

Oll4'

onu
00. .0

5 X

0213)

,I

00640

5 X
-7300
I

-2111

onu

00660

3 X

02732

,0

-0000
006)0

x

02726
02732

DDASC

DC

00590 •••••• oc

1

02719

02124
00550

-259)

02614
02619
02620

on"

,

X

-2934

1

IIIIT SUI. all DISK

5 x

laSE

I I9

30

I"

110

PAGE

IUUOUT I III SU'.IVISOII--ll JUl l ' . I - - J "

on••
OOllO

DC
-00
OSA

Dono
00140

DC

00150 DOAU
0011>0 ODOA

OS
OSC

,0

"
l

)

OHU

1100

20

-1.00

,OOA

liD SUII FOI 1I00lFICATION

,22

02777

5

OU77
02771

-8000
1

02134
0277'1

20
2

12

Dono

OSA

00710

DC

00190 ODOAl

OSC

ODA

"
,22

02715

5

02115
02116

-2134
1

DUI?

22
OSA

00800

DC

00810

00820 OOOARS OSC
22
008]0
OSA
DC

00850 OOOAW

OSC
22
OSA

00860
00810

DC

00880 NOOOA

OSA

00890

-2749
1

02795

,22

02801

OOARS

5 x
-2714
1

02801
02802

"

0280]

,22

02809

OOAW

5 X
-27M
1

02809
02810

"

(l281S

WA

5 x
-1400
3

02815
0281a

.04'

DC
-4'

5 X

0219]
02794

"
2

,

00840

0219]

OOAl

useD IN XEO PORTION OF PGII WHEN NON DISK INPUT
00910 NOOISK SF
469
,RESTOR
00920
TR
416
TR
,RESTOR+6
00910
H8
00940
TFN XEO+2l
,DDDAR
81
00950
xED
00910
DC
I
00900

"

00980 NOOOA
00990
01000

OSC
1
DC
5
J9183
DC
3
-0]

,1

02820
02812
02844
02856
02868
02815

12
11
]1
16
49

00469
00H6
00428
02425
02402

00000
02621
02621
-2585

I

02816

,19113

02881

,3

02884

J2 0
SPS 110

SU8ROUTINE SU'ERVISOR---ll JUL 1963---JH8

DIDIO

DC
6
,0'
-0000'
OORG 2934
,600 CHAR WA FOR Dill ENTRIES OVERLAYG PGII
01020 WA2
01010 SUPER TR
,402
SAVE 08J PROG DIll ENTRY
OOAR
01040
TR
,402
SAllIE FOR FORTRAN AND NOOISK INPUT
FOREO
Tf
,401
00A+5
STORE 08J PROG DISK AOR
01050
TR
,416
RESTOR
SAVE ENTRY AOR
01060
Tfll
01010
IORT
10 SYS COIIII SEC TO WAl
IOGT
,000ASe
,1
01080
8
01090
TO
,428
100
CII
,03
,71011
01100
100
01110 100
INDICATD~
DS
110 DIGIT
RDFRST
8R IF PROG ON DISK
01120
8H
FOI EX
,WUo15
01130
80
FOR EX
,WAl+H
01HO
80
Tnll DSKSW
,-I
01150
SET FOR NON DISK INPUT
TFII ROflST+21,NDDDA-4
01110
01180
BL
RO FIST
8R IF PROG ON CARDS
01l9Q
TOM NDOOh2 ,2
01220 RDFRST TFII IOU
READ FIRST RECOIO OF OBJECT PROG
,1
01230
8
10GT
,OOOA
OU60
SAVE CUD SEQ NO IF NON DISK IN'UT INOII
01210
8~f
CAP
,DSK$W
SF
CIlBO
WA+15
TF
01290
IIn+91
,W"+79
, •• 2)
TFII IOU
OUOO
,1
OUIO
I
III11IC
,ODoue
OU20
CALC SllE OF OBJECT COIlE. HIGHEST AOI AVAIL IN C.,HI
013]0 CAP
AM
CAPoU
,20
,10. HE P HI ADDRESS IV 20000
,.-)
OU40
DC
2

,·.23

"

"

,--]
,

,

,·.23

......

"

"

01350
01360
01310
OU80
Ol)90
01400
01410
01420
01430 FOREX
014~O

01450
014'0

......

01240 RDeTL
01250
"
01410
014.0
01490

ouoo

01510
01520 '4RA"
01510
OU40
OlttO NOISY
OU10

TR
8NIt
TF

C
IE
SF
C

Ie

CF
TFII
8
OSC

38'

,*-5
01.'9
CAl>
,0
REDUCEoll ,C4P+1I
SPSTsr
,WAF+U
ItO eTL
SI'STST-S
,WAF+5
SPSTSf
ItO tTL
429
, •• l9
IOU
lOCAL
,22001

,

J

,JI'

JIfIF
A

·.24

rlt
C,

Mno••• ,428

,13,

....
..

NOVE lECORO !,-"", HI ADDRESS
. . If 110 IIUP AROUND
SAVE COUNT OF OIiJECT COIlE CAPAC lTV
III IF CARD IliA'! SPS PROGRAII

I. If COU IIIAGE SPS PROGRAII
100T HOUSIlfE'
CALL LINK fOR FOATRAN LDADU

.110

,w.,on
ADJ FOR ULllCATlOII INCREIIENT AS REO
PICKUP
,AU lilt
DISK IN'UT
SAYE AAU 42'-440, ell FLAG 011 429 FOIl _
TO
,421
"I

IN'
INF
INF

11
TO

17

.£STO. . 1
NOISY
.71+1141
MANfL
,Tt+.,A.
sUl~n

,lltWU

.It

IIA+.6
,.UII

,71+116:5

INSEIIT NOUf 015JT

clI5n

"

I' SUISIT IS ADJ AT UECUff rillE

PAGE
02890
02934
02934
02946
02958
02910
02982
02994
03006
01018
01026
03030
03042
03054
O]Ollo6
03018
03090
0)102
03114
03126

6
II
II
26
11

16
49
25
14
46
H

43
15
16
41
15
16
49

02565
07280
02719
02621
00565
00566
03026
01026
0
03114
03306
03306
06052
03131
03114
02811
00565
00566

00402
00402
00401
00416
-1005
-2126
00428
-OO-L

03198
01415
01398
00565
00520

06052
00000
01419
-3191
-2126

01100
01315
01314
OOOOJ
-2811
01300
00002
-3131
-2119

03138
03150
03162
01114
03186

44

03198
03206

11

03213
2

OOOKO

03210
03212
03214
03246
0)2S1
03210
03212
03294
on06
OUlI
01330
0)342

II
4S
26
24
46
32
24
46
)3
16
49

-J999
03198
06011
06464
OH46
06459
06464
03346
00429
00565
00116

03205
00000
03216
01413
01200
00000
01405
01200
00000
-33)1
2KO-l

0]3"
on51

44

0])70
01443

01423
00434

01310

2S

00441
02621
021>21
03450
0]410
03514
03526
01436
0)411

00421
00421
00000
01317
01319
01381

32
26
16
49

]

21

DUll Jl
OU94- JJ
0340' 44
0)411 44
0)410 44
0)4U 4'
034'0 2S
OJ462 4.

121

01317

4

015'0
0"00
0"10
01'20
01640
01650
0"60
01610
01610
01690
01100
01710
01120
OIHO
01150
01760
01710
01112
0ln4
01116
011.0
01190
01800
01810
01120
01830
01840
01850
01860
01170
01110
01190
01900
01910
01920
01930
01940
01950
01960
01970
01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130

....
..
..
..

SPS 110

SUlIDun . . SU"IVISDI-ll JUL l"'---.IHI

TO
TO

"A.n
.. A. 14

, "...61
,11 ...61

SP
11
SUBSET TO

"U"

IIANlL

, .. .11.12

INSIITS UNITS DIGIT 0' LINGTH
INSIIT TINS DIG INCL FLA'

.. UII
,11 ...61
INSflT SUI SIT 10
SET SIC Tal ADI '011 1100 SUII SIT
OJ "P • 4101 ,02 VL • 4114 ,01 'IL • 4120 ,DO DIV • 4126
AND CONTIOl "PIOUT
, ..UII
clI5n 10 ..n
III IF NDT SOPT DIV
00
All
DDUo5
,II
,I
TOil DDU.I
TIt
NO AND L INGTH
ADII0'-4 ,ADIOFo16
PIlOHIIIT "PING OF
110 0111
11
.. UII
,10
CII
,02
IH
110 0111
III IF A" SIT lOll
TFII DDA2+5
,4114
110 0111
IE
I. IF VL SET (021
,01
,10
CII
..un
IE
,10
TFII IIU3.
,02
11
RD 0111
FOIICE SET 02
TR
AOIIOFt6 ,ADROF.16
PROHIIIT TYPING LENGTH
All
,6
DDAZU
RoolII TFII IOU
,-+23
IIEAD REDO 0111 ENTIlIES
,1
I
IOGT
,DDDAl
INSIST THAT IIANTISSA LENGTH IIEET SPEC IF ItAT IDNS
.. U35
,02
,10
CII
e.24
IH
TFII "U35
,02
,10
,U
,10
CII
"U35
Bl
·.24
,45
,10
TFII IIA+35
, .. U36
TO
PCU36
NOISE DIGIT FOil 01.1 PG"
,l
. l FOR 01.1 PGII
TF
PCK+33
TYPlNF RCTY
,6
WlTY .lOR DF.5
TF
DUT-I
,ADIT DF
.11. WRITE INFD IIESSAGE
DUT-2
CF
WNTY DUT-I
,DUT-2
TOil '-6
TR
ADIT DF-4 ,.lOR DF'6
INR TV' INF ,AOR Df-]
INR DElETE
,W62'"
SETCDD CII
.10. DECODE SET
WA2 . " ,01
IND laC OF RII AT END DF Al PHA
TF" SUIVEC-I5,-33
FVUFP
IE
Vl AFP
IH
,ISTAT-~I
INR DelETE
,I
SET TD 01 FOIT SOFT OIV SET
TO" SUIND
,5
SV
S"
TF" CAPCK-2 ,CAPCK.36
FVLAFP
8
,10 SET "
DELETE RCTY
,6,
TYPE REASON FDR TEltlllNATlDN
WUY DElETE-I ,
RCTY
WATY Del TED
TYPE TER"INATlDN

••••••
••••••

••••••

,

·.u

,

sn,

"

,

"

,

PAGE
01"0
OJ"2
014'4
01506
01514

OISZ6
OISII
01550
OU6Z
olSn
015.2
015.4
03606
0361.
01630
03642
01654
03666
01674
01686
03691
03110
03122
01U4
03146
03751
03170
03712
03794
03806
03111
03130
03n2
03854
03866
03811
03190
03902
0391.
01926
03938
03950
03962
on74
03916
03991
040lD
04022
04034
040'"
04058
04070

n
U
JZ
4.
U

ann
01"'4
01434
01..,0
01411

n 01512
11 onu
as 021n
II

49
14
46
16
46
14
U

16
4'
31
11
16
49
14
46
16
14
41

16
25
26

34
39
26
33
)8

15
)l

45
U

14
16
.U

'"

u

15
12
16
49
34
39
34
39

5

on79

onll
00000
DUll

01..,.
-DOli
00001
06415

06465
0169.
01411
0369.
02154
0369.
01415
03614
0141.
0369'
06H5
02154
00565
00566

064.5
-0006
-3121
-2711

01435
01158
07435
01435
03794
0741'
02401
02391
00000
064711
06499
06498
06499
03112
06465
OlBI8
04034
02949
02200
04282
04114
04034
0459)
05176
05932
04282
00000
040lL
00000
06733

000-2
01100
000-2
00011'
01300
000"5
07416
07435
00102
00100
0646R
00000
00100
06491
06475
06"66
02953
000-1
-OOlL
01200
01100
07446
00001
-0005
-5970
06179
00102
00100
00102
00100

000-2
01100
-4.14
01200
000-.
01200
000-2

122
SPS 110
02140
02150
02160
02110
02190
02200
02210
02220
02230
02240
02250
02260
02210
02280
02290
02300
02310
02320
02330
02]40
02350
02370
02380
02390
02410
02420
02430
02450
02460
02410
02480
024'0
02500
02510

on

"

""

"
,

,

•
"

,,

PAGE

SU8ROUTINE SUPERVISDR--lI JUl 1963---JHI

RCTY
,4
TDII SYSCAl
IIDNCAl
87
CRUTE ADD VECTOR FDR ADJUSTIIENT DF P AND 0 DPERANDS
VlAFP TFM SUIVEC-15,-IH
IND Lot OF RII AT END OF AlPHA
FVUFP.]5.9I
SII
A
lot 115 ,l
INSERT +L
lDC 115.50 ,l
A
lOC115.IO,1
INSEIIT -L
S
All
lDC 115'10,99999
AM
lOCIl5+l0,1
TF
lOC 1l5'60,lDC 115+10
,l
A
l
INSERT
A
lDCII5'20,l
A
lDC1U+10,l
TF
INSfRT -2l
lDCI U'30,lDCI15'IO"
A
lOC I 15'30,lDC 115'30
TF
lOC IU+IO,lOC 115+30
.+35
FVlAFP S
,PICKUP
INH "24
All
PICKUP
,SECLST-ll"
"OVES PICK IF DU " " SHOIIT
TF
DDDAP'l1 ,PICKUP
TF
SUB N0-2 ,WA+38
STDItE SET NO
RD SUI
17
FINAL INR CK SUI
,UTU-30 ,1,
III IF ANDTHEII SUIR ItEDD
IND
DS
I STAT PNTIt
CAP CK
17
lt~ SUI
,IND
CKSUI 10
.11. lit If SU.1t IS USED
All
,1
,10
INO
All
,I
,10
SUI ND
,5
SV+5
A"
STPSY SM
,5
IV
,1O~ AOJ SUIVEC POINTER
511
,I
,10
NE
,e-], NO OF ISUT INT TO ell '011 SUIR
,01
NE
DC
2
-I
02520
1M
eK SUI
OU30 AOJOIII All
DIll
,20
.10, ADJ '011 NIl 0' NIXT 0111 INTAY
, .. U.1I
,T,
02540
TO
NE
STOll! HI
On50 01"
POINTeR '011 NI IN DIll INTltlES
OS
SyoS
02560
,IIDO+l
02510
FINAL
,NI
10
aUlD
IT
ADJ Dill
SIlIP IUIIII 0111 INTAY
02600 ItDSUI TF
RO SUI.U,DI"
RD SUI.3,.11
511
02610
DOARS
OU20
TIt
IIOV! DIll '''TltY TO DDA FOR IIOG SUIII
02UO
SUI No-a ,ODAUHS
ell SIT NO
e
02640
IN! DELH!
OZ650
SF
DDAItS."
02660
CII
DDAn·n
ell SUD 110
02610 SUiND OS
4
SIT ND AIIO SUil 110
02.10
IH
DlUTI
All
02690
LotU' ••O,
'DO caus USID " H'VIDUS SUD
lIOII .... CDI'
I.,
su. .
o n " "CUD os
02110
A
Lot l1"'O,,.CUD
I.'IT PlCI .L
021,0
I . . .T PlCI -L
Lot &1"60,'''1. .
oano
Lot U '",0, P I CIIAD
1!lIIIT PICK .IL
ft

,.

..
..
....
..
...
..
,

U.

un

04082
04D94
04106

34
15
49

00000
00475
00796

00102
00004

04114
04126
04U8
04150
04161
04174
04111>
04198
04210
04222
04234
04246
04258
04210
04281
04294
04306
0"118
04130
04342
04350
04361
04362
04310
04312
0.]'4
04406
0"1'
04430
0443.

16
12
Zl
Z1
22
11
11
U
Z1
21
21
Z6
21

02200
04117
06315
06365
06325
06325
06325
06175
07435
06335
06385
06]45
06H5
06395
04311
04318
01443
OZ619
04591
04510
04370
0
05934
04510
04361
04593
05781
05716
044]1
2

-014P
-0098
07435
07435
07435
1t9999
-0001
06325
074]5
07435
07435
06325
06345
06345
0744]
01100
-2662
OT443
07411

0"110
04471
044]1
0
05111
04190
04414
04''''
0454'
02t34
04'"
04034
02150
02151
4
040J4
06355
0
OU"
061"
'6J"

011DO
000110
-2n2

04442
04414
0446.
0"17
04411
04490
04102
04110

oun

OUI4
04146
04151
aUTO
OUIZ
041.1
04'"
0._
0461T
0.61.
04610
046402

26

22
4T
11
26
U
.9
U

49
4)
l1
11
11

12
12

'"n11
16
41
49
Z6
12

31
24
41
JZ
14
'6

11

Zl
Zl
Zl

123

-1444
Q4]6J
000-1
000-1
-0005
000-5
000-1

-'001
04431
04411
-0011
00000
02749
01200
00000
-0000
OUOD
-0000
04611
046"
OUll

6

IPS 110
on.o
02?SO
OU.O
ozno
OUIO
02790
02100
02110 SUI.D
OIUO
ozno

..

SUllauTI. SUI'IUlSOI-U "IIL

A

,,,1--.114,

LDc:ll •• IO,,,CUO
IIISIU 'ICII -21.
,ODAas.,) ..
'IIUP
STOll COIlS USEO " SUM
SIT 'ICIAD TO TINS Ca.'I..NINT 0' tOilS USIO . , THIS Sual
,D06UH.
'lelAO
SF
'ICIiD
All
'IClAO
All
'ICIAO
ODAlSoU ,NOD
'UT 110111 AlfA COle AOI INTO DDAIS
.EAD IN SUIIOUTINES
"N Ion
,"U
,1
,ODDAIS
I
I OCT
, •• U
IOU
,1,
,DOOAII
Pli SIIII
I
5"
TOil SIT Po25 ,I
02140
DIUIU IIODIFCTN
TOil 11000'
OllSO
,-2
ASHCAN OSA OF EACH SU.'
,IUf06
CARD
01160 11001"
SET TO 'liST INDICATOR DIGIT
PNTR
Ol170 NEIICD
,tAlO
SET PNTI TO FIRST IND ON NEil tARO
ADR OF FIRST INO FOI NEIT CARD
OS
021'0 CARD
021.0
CARD
,15
,10. ADJ ADR OF NEXT CARD
,7,
02900 NXTIND INI IIIDT III
,IU,..
CII IND CODE FDR RM
OS
POI lilTS TO SUIR POSITIOIII OF IIIITEREST
02'10 PNn
,PIIITR
02920
INF RM
.11. 811 IF IREAK IN SEOUEIIICE
02.10
17
IIIEII CD
BI IF IIIEII CARD REOUIREO
AM
,6
02950 1M
.10. ADJ FOI IIIEXT IND DIGIT
Pili"
02960
PIIITII-ll
11
02980
BR TO ROUTlIIIE TO PROCesS DATA PER INDICATOR DIGIT
02990 1II0nM TO
,PNTR
.11, INSEIlT IND CODE
··17
,6,
03000
lOC1I5.5
IR AS INDICATED
17
01020 INST
AM
,2
,10. ADJ FOR lENGTH OF INsnUCTON
Pili"
,PNTR
01010
TF
lNG
,11. STORE UNGTH
AI, PIIITR
01040
,I
,10. ADJ FOR P OPER HI ORDER OIGIT
AM
01050 SETP
,2
PN"
0)060
,-I
SET TO INO P OPER MODIFCTN
TOM SIIPQ
It
03070 SIIPQ
oS
•• -1
1
NOP 'OJ
,CTl PNT ,11, SR IF ELGIBlE FOR MODIFICATION
OJOIO
AM
PNTR
,10
03090
01100
LNG CK
17
OJ120 ADJ
10
·.20
I I IF MO~ OF P FielD REOD
011)0 CTlPNT OS
5
POINTER FOR SUBR MODIFICATION CONST
Q CK
OJl40
I
.-4
01150 INDA
OORC
.IND FOR I NO I REC T ·ADR CONDTN
PNTR
OJl60
SF
SET FLAG TO DEFINE
FiElD
OJl70
AM
,4
FIelD
.10. AOJ FOR lOll END OF
PH"
Oll80
TO
INO A
,II. SAVE IND AOR COND OF
FIELD
,'~TR
01190
CF
PIIITR
REMOVE ANY IA FLAG
f
0)200
TO
,CTlPNT
INSERT CODE FOR MOO ADJUST
-+22
,II.
,lOCII5.~D,.,
01210
A
PNfI
ADD PROPER VAlUEIlS ."CK'
0)220
8NF •• 24
,11110 A
WILL PRESERVE NEGATIVE RESULT
SF
01230
RESTORE IIiD .lOll
PH"
PNn
,4
01240
SM
,10. PT AT HI END OF FIELD
AM
,5
o12 !WI QCK
PNTR
.10. ADJ FOR 0 FiElD
AM
01260
CTL PNT ,I
.10. ADJ FOR NEXT CONTROl DIGIT
03270
INF NO I"ST ,SIIPQ
III If Q FIElD
,0
OJ210
TOM SIIPQ
sn TO Q FIELD
It
01290
BNR ADJ
,CTLPNT
,11. III IF elIGIBLE FOR MODIFICATION
01300
PNTR
,5
ADJUST FOR 0 Ol'EI&IIID
It
A"
OHIO
87
LNG CK

••••••

"
"

,"'"
"

""
""
""
""
' 'I

....

,.

........

,.

,

,

......

,

..

,

...
,

,.,
•••

,

..,.,
..

PAGE
au'.
au. .

ZI
Z6

OU95
0511.

.0""
outo
0470Z
04714
OUZ6
04711
0""0
047"
04"4
041. .
04"1
04110
0.121
·0 . . ]]
0483.
0. . . .
0 . . 57
04151
04170
04871
048'0

Z6
12
II
II
16
16
'I'
16
'I'

04611
0... 7
04617
04617
02747
00565
00566
00565

0.891
04910
0.911
049JO

IS

15

16
16

.
11
'5

'I'

II
.9

ooss.
04979
DIDOS
oun
04857
0
0.833
04198
0
04878
04822
0.857
04846
04915
0.120'857
052103
0.857
0.857

0~966

25
49
II
2.
11
11
15

04"16
0'978

41

0~990

II

05002
05010
05021
6
05578
05590
05602
OU"
056U
05611
05"6

OS".

051>'0
OUIZ
OU"
onoz
OUt.
05122
0571.

DU••

ontl
onlD

14
47
15
12
47
'9
44
12
14
46

II
II
21
II
49

,.
11
11
16
11
21
U
.5
11
15
16
.9
II
44
12
16
I.
21
Zl
11
II
49

II
16
21

n

'I'
'"
II

al

11
II
Z6
11

125

05021
05254
04979
05261
2
04846
04954
05146
04857
0485P
05190
04857
04857
04157
04857
04846

-6507
OUOO
00001
000J2
01100
0485P
000-)
00-03
01200
000-3
000-2
0485P
000-1

06517
0 •• 57
06518
0485P
0'151
0.857
04851
05530
0 •• 5.
04'79
05021
04146
04151
OU"
0.851
05625
05620
OU25
05620
00000
048"
05426

0645.
-0002
0485P
-0000
-0001

048"
05.1.
0""
00000
05486
0 . .'1
0. . . .

-0075
-6522
06521
06196

043/01
04593
onll
05770
-2165

0.411

O~85P

-0001
O~I5P

06522
00005
-6458
-0005
04lSP
-0001
-6510
-6522
0.5Z1
06521
00000
-0075

OOD-)

04~JI

000-5
07443
0.001

~

I'S 110
OJIIO
Oil"
0)900
OltlO
OJ920
OJ9JO
OJ940
0)"0
OJ960
01'10
0)910
03990
04000
04010
04020
040)0
04050
04060
04070
040ao
04090
04100
04110
04120
04130
04140
04150
01160
04160
04110
04175
04\10
04190
04200
04210
04220
04230
04240
04250
04270

SV

OS
SII
$11

IH
Tf
StT

SV
liE

'IL

SCT
DDAII_I

" •
""
,
A

All
OS
All
TOil
Alii
11
A

,-,
,I

"

,10,

,I

SV

OS
I

PKUP

•

SUlaDUTIIII S. . .IIVISIIII--U JUL 1'''--~H1

IIIIIT
1000It
DDAII>'
PltKU'
SCT
IS TAT II

·-6

.10.

,OOAIIS_I

,.,SlCLST
, ..n

,ODOAII
,DOAII"

,.,,J
,I
,I

,6,
,1,

,
"
,1

",

.10.

"

CONTAINS AIIII OF SUIII IN SUIVIC
AOJ SUI VltT.. AIIII
IlIDUCI lID Of IN'"IIS
IIICDIlO SIC 111110 FOil SUIII
INTII SIC-CIIT FOil lilT SUIII TO sent
SICTIIII CDUN' FOil IlHOLE SUIIIOUTINI
11111'1 1100 SUI" 011 SCIIATCH
INCIlEAse DISK AOI " lID SEC
INtlllASI COilE AOII IY SUIII LENGTH
TIIIP STOll '1I0G TOTAL COIIES
ADJ FOil NflT SUIII
INDICAte IIIC1D SUIII

ADJ 0111
1111 FOil UPHA
SUlVEt-I"PtK
suavlt-lo,PCK
1111 FOil IIU
Sill
SUlVEt-IO,1
IIAKI REQD ADJ TO READ OIJECT PROGIIAII
aNR .-16
,I STAT-JO"
all I F CARD IIIAGE
All
0011105
,I
,10, ADJ 0101 ,1I0G OOA
511
00111>1
,I
,10,
CF
DDlun
DISKCK aNF"4I
all IF DISK PGII
,DSUW
TR
EXIT-4a ,NO DISK
SF
DODARO I
SII HAS -I liMEN NON DISK INPUTINDIi.
DSKSW OS
I
TR
DDAR
,NOOOA
IIDC KII Ul FII KII AYL.
REDUCE SII
PICKUP
,C"oll

CAPCK

"
"

TF

,--1

BV

•• 12

aNH
TO
TO
TO
TO
TO
TFIII
B1

XEQ

IIDVE NO OF COIlE TD S IlE IIIESSAGE
S11E>60 ,PICKUP
"
Sllh,. ,PICKUP-I
SIZE>,. ,PlCKUP-2
SUE054 ,pfCKUP-)
SUEH2 ,PI CKUP-4
DlLETE>U,SUI
DELETE
••••••
BEL 011 IS DUal PUIIPOSE YECTOR. EYEN ADII fiElDS AIlE ADII OF
04280 ••••••
IIDUTINES THAT AIlE USEO FO OECOOING INDICATOII CODE
ODD ADR FIELDS AilE suall ADJ FOil THE P AND Q OPEIIANDS DF INST
04290
04)00
DDRG
6296
04310
DSA NEil CD,
,INST

04320 LOCII5 OSA

O,PCONST ,0 ,CONST ,0 ,DNa ,0 ,NYET , O,fDIIII

9

PAGI

on"

5

onu u au"
046J1
051'6
0'106
0 . . 11
O'IJO
05161
0 . .62
051"
0'''6
05nl

12

on.. 01100
0,.401 au"
ann -267.

16

00"5
00520

5

69

05970
05912
05996
06006
06011
06010
06062
06052
06054
06066
06078
06090
06102
06114
06126
D6nl
061'0
06162
06lT6

-'''5
-2IOJ

21
11

ann

,

02772
-0000

11
15

05161
02641
05901
0."6
02200

000-1
00001
-0001

0....

0'190
05"2
05916
05926
059)6
05966
05958

OO~,
00~1

..
26
26

II
69
21
26
12
"
11
12
]J

..

n

)2

n

12

..
.,
l5
25
25

Z5
25
16
69

06296
06300

0146)

on65
OU65
-0001

Oll05
02205

07446
000-1
000-1
00000
06052
OU20
00000

06006
025T0
025n
02571
060. .
02510
02586
I
0256'
0744)
060'10
02402
06707
06705
0670)
06701
06699
06052
06014

5

06100
06105
06310
06315

-4122
-0000
-4911

06315
06320
06325
06])0
06315
06340

-0000
-5216
-0000
-5146
-0000
-5702

02176
-1216
01400
01100
07441
07442
07441
07440
074)9
-"47

x

10

5 X

126
SPS 110

04)]0

OSA

04140

0

DC

PAGE

SUaROUTI HE SU'ERVISOII-II JUL 19U---JHI

,NYfT.O

,"YET,O

,NYET,O

..
"

04)50 RIIS
OS
60
60 RECOIID IIAns
04)60 SPSTST DC
•
,67514842
07516162
04170 CTLAR DSS 60
,.,STST-6..
USED fOIl SUM CONTIIOl CONSTANT
04)10 ADROF DSA IIAO)6 .IIESND ,lIAon ,1IE5L ,IIA+II .IIUGS

06345
06350
06355
06160
06365

-0000
-6910
-0000
-5722

OU65
OU70
06315
06310
06115
06)90
06395
06396

-0000
-6910
-0000
-6910
-0000
-6910
-0000
I

06456
06664

60

06411
06469

60

06469
0"74
06479
06416

-1436
-650J
-7455
-6529

DC

04UD
04640
04650
0""
04460
04670
04480
04. .0
045DD

aUla
04UO

O41J0
06''''

O4ltO

04.60
06170

.'

,ADII

OP.n

OOIlG
.+to
DC
TYPE OUT AIIIA
-0'
IIESND DAC II,NOISE DIGIT ,
NOISE DIGIT '
TCP
OSS 66
,CTUR+60 ..
Till' STOI POll PSUiDD CONSUNT
"ESl
OAt IT,IIANTI 51A LENGTH '
IIANTISSA LEN5TN '
IIESGS Oat la, SUIII SIT '
SUlII SIT '
OOIIG Tt'-121
,
ILI"INAn OVIIIU' OP IIUSA'I
SUE
OAC U,COIII CAPAtITY UCIIOIO I\' 00000 LDCATIDliS.'
COIlE CAPacITY UCIIOIO I\' DDOCNI LatATlDIII.'
Oil TED oat n,PltOGl\AII IS TIIIIINnIO.·
'IIOGIIAII IS TIIIIIINATlo.'
IDSETII oat 15,SUIII NOT LatAno IN IUIIIDUlINi IIAP'
SUIII NOT LocnlO IN SUilaUTlNI IIAP'
NYIIIS oat 11.111'110'11 1111 CIIDI IN IUlII 0000'
11I'1I0PeIl 1111 eDOl III IUIII OlIGO'
Nyn
TO
NYNIS-. . ,SUI lID
'0
N'''IS-. . ,lUi . . ,
To
NYIIII_'. ,lUi . .I
U" DlLlTI
,NV.I
DOlI' FDUII
L.NlS All
•• ,.
,1
,I
TO
11111-"
,1"1-60
CII--.
,1"1

04600
04610 OUT
04420

2

"

x

7

5 X

6

5

•

-1.1.

0 . .19

04)90

06494
06496

-6"3
2

06491
06500

06511
06529

.

OUU

10 X

Il X

2

x

2

17

0....
06"7

U

067U

n x

oun

J5 X

0. . . .

J1 x

06910
069U
069. .

06_
07110
07110

07291
01106

10

21
21
21

06"1

06"'
06"1

I

2
2

2

045tJ
065.1
04191

"

060J6

-61'"

U
II
16

07291
-6197

-0001

012'1

-"56

127.

0....

SPS 110
0".0

IL

~m~

SF
34

ouzo

TU

04630 OOU

Dse
0
DSA

onl0

J.

04640
0 . . 50

DC
-51
DSA

04660

LOII. . S
RIIS-.o
DDAL

SUUDUTINE SIIPUVISOR---ll JUL I'U---JHI

..

PAGE

,0

01316
on28
01"0
onu
01364
07316
on . .

SSLac

01393

J

,au

01391
on96

DDAL

,101

,Tal

LOAD SUIR SUPU ON DISK

lEO-I

01401

LDR ... S+U

01401
01292

04610

Teo

04 . .0
041>90
04100 ~43
04110 ~AF
04120 ~A
04130 L
04140 PICKUP
04150 IS TAT

DDRG FOREO
DS
20
OSS
100
OSS
100
OS
OS
OS
DS

04160

OEND

..

SYSTEM COMMUNICATION SECTOR
FIRST SUR OF OBJ PGMIINO RECOROI

.~AF
.~

.. n

ADR OF SPEC MANT LENGTH

,WA+43
.~A+H

SUPER

41
52

n

u
16
4'

01280
01299
01300
01"00
01400
01435
0744]
01414

012.0
06191>
on ••
on88
00000
00000
1

II

01)00
00000
00101
00102
00500
00000

Jl0Z4
3

-2400

20
100
100
0
0
0
0

029]4

I 28
SPS 110
AOJOIN
BOSET"
COMMON
CTLPNT
DODARS
DODASC
DELETE

DEL no

01 SKCk
FVLAFP
ISUTW
LDRMKS
LOCU5
MODIFY
MONCAl
MOV2ND
NDIIfST
NOOiSK
NXTIPjD
PCONST
p ICUD
PICKUP
PSUEDO
ROFRST
REDUCE
REL INC

044H
06719
00401
05021
02795
02126
04034
06133
06018

SUBROUTINE SUPERVISOR---Il JUl 1963---JHB

04611

REHOR
2NDPC
ApJ
AOROF
USE
aUF
CAPCK
CAP
CARD
CHECK
CKser
CKSU8
Co,.ST
CTLAR
D042
DDAl
DDAP
DOAR
DDARS
DDA
DDASC

07443
05390
03114
010066
00434

00042
OOOAP
DODAR
DOOA

ouez
02641
07280

06315
04810
0079.
05614

05218
.02820
aU46
05286

END OF OIiE ASSEM8l Y.

DO'~

02621
055]0
05010
06469
01600
01999
05931>
03198
04833
02462
03526
04310
05346
0'458
02149
01388
02593
02565
02134
02134
02111
0216"
02117
0260.
02515
02119

OOOAW
DIM
DN8
OSKS~

EX IT
F ILSY
FINAl
FOREQ
FOREX
FORM
I~DA

IND
INST
lOCAL
100
10GT
IDRBC
10RT
I STAT
LNGCK
lPjG
l
MANTl
MESGS
IIESL
MESNO

02803
0,,411
05102
06052
02558
05146
04350
07280
0]]06
0~722

05029
04361
04918
00716
03026
00566
00520
00565
01414
05254
05263
01435
0)410
06563
06529
06503

PAGE
MOD
NDDDA
NE
NEWCD
NOODA
NOISY
NOTRII
NYET
NYMES
OUT
PARAM
PBOTH
PCK
PKUP
PLOAD
PLUSl
P~OTC

PPjTR
QCK
RDCTl
RDDIM
RDSUS
RMARK
RM
RMS
SCT

08000
02BI5
044)8
04822
02816
OH50
04898
06910
06B49
06500
on18
05H6
02365
0588'1
OH86
02198
05646
04851
05118
OB46
03698
04no
00421
04818
06456
05841

12
SETP
SIZE
SSLOC
STPSY
SUBNO
SUBRD
SUPER

sv

SWPQ
TCP
YlAFP
WA2
WAl
~AF

WA
XEO
SECLST
serCOD
SPSTST
SUBSET
SUBVEC
SYStAl
TYP I NF

04'54
06647
17024
0 ... 18
04593

04126
02934
05116
04976
06518
04114
02934
01100
01400
01400
02402
02614
03926
06464
03514
02215
00415
0]818

"'I
00010- 'PlLlI-TNI .PS II-D MIII.nCAtIC. . . . . . . . .
00010 SSTD'D D5
.UI"
_SO IIsm'D DS
.U".
00040 Untf OS
,II
,I . . . .
000.0 UND DS
OOotO USCf DS
000.0 AlDIS DS
DS
OOOID II'D
.OUOO
00090 COLL
.010119
DS
00100 T"N511 DS
,DUll
00110 CDIN511 DS
,01414
00110 "IN511 DS
.0IU'
00110 'UL III DS
,02102
00140 Htlill DS
,0250T
,01696
00150 ClE"I" DS
00160 INPUT DS
,0zal1
,onu
00170 lllllfS os
00180 AOOII5 OS
,0)29'
00190 lOPOUT os
,onn
00200 PHASU DS
.03404
,0]912
00210 PROSTM OS
OOZZO AlFOP 05
,0461Z
COBO AlFlP 05
,04112
00240 ER]
,04144
D5
00250 ZP
,0 ... 00
05
ooao EVAlAD D5 ,05676
o 210 OK
05 . ,04924
00280 EVAlER OS
.on44
00290 lOlU DS
.01686
00]00 lOTR
DS
.1l9462
OOHO EA4A
,09166
OS
00320 OUTPUT DS
.0995.
OOHO I,.STR,. os
.10528
00340 START2 os
,10666
00350 ST2l
os
010982
00360
OURG 11000
Dono llBST GET PHAl

.'.

,n

00]80
00390
00400
00410
00420
00430
00440
00450
00460
00470
004BO
004')0
00500
00510
00520
00530
OOHO
00550
00560
00570
00580

BTM
PRotO,. BTM
87
TFN
AM
tF
tM
Sl
TFM
SlP
AM
SBNR
BNR
B7
C
SNE
TF
TF
SM
AM
STR
TR

00590
00600
00610
00620
006]0
00640
00650
00660
00670
00680
00690
00700
OOHO
00720
00710
0074G
00750
00760
00770
00180
G0190
00800
00810
00820
00110
00140
00850

SlPX

B1

B7

8E

CI
C2
C3
C4
CS
CIP

00160
00870 CIP2
00110
00890
00900
00910
00920

Dono

00940
00950
00960
00910
00910
00'190 ca,
01000
01010 C2PZ
01020
01010
01040
01050
01_
01010 C4P
01010
01090 C4P1
OUOO
01UO
01110
01UO

tM
Bl
t
BE
COl
BL
C
tM
BL
C
BE
tM
BL
C
BE
COl
BL
t
8E
B7
OAt
DAt
OAt
OAC
OAt
GET
ITM
8 Till
ITM

B7
TF
TF
SF
ifill
ITN
TF
TF
TF

IT

GeT
ITII
ITII
ITIII
Tf
TI'

""""
""
"
III

MODSPS .PROCON

RDCK,·.20
PHASEA
0']0. I NPUT-ll
e+18,2.10

0-6.INPUT'151
.-16

SBNRH 10 INPUT-IO ..
SBNA'Il.2.10
e+20.--.
SlPX
CLERER+l.S8NR+ll.ll
SlP
STR·II.SRNR.II
STR'6.SBNR+l1
STR+6,1.lO
STR.lld.l0
e-e,_-e
S8NR
S8P1R

tOMPRESS BLANKS

U"'OOOOO
I . " . 00000
00011 00000
1110000000
00014 00000
lOOn 00000
OUOO ODOOO
01011900000
Dun 00000
01.'4 00000
O2U' 00000
OZlfllOOODO
OISOT 00000
01"6 00000
ozau 00000
OJln 00000
o n " 011000
onn 00000
03404 00000
0]912 00000
04612 011000
04H2 00000
04844 00000
04800 00000
0'616 00000
049'4 00000
01344 00000
08686 00000
09462 00000
09866 00000
09958 00000
10528 00000
10666 00000
10982 00000
ilOilO
11000 IU 00565
11012 49 00566
11024 11 12h76
110]6 11 12888
11048 49 OH04
11056 16 11086
11068 II 11086
11080 33 00000
110'12 14 11086
11104 41 11068
11116 16 11151
11128 11 11151
11140 45 11160
11152 49 11260
11160 2~ 02697
11172 47 11121
11184 26 11243
11196 26 11238
11208 12 11238
11220 11 11241
11232 31 00000
11244 49 11140
11252 49 11140

HOB
HH7
JlOJl>
Jl056
00000
-2872
000-2
00000
-]034
01]00
-2873
000-2
00000
00000
III5J
01200
11151
11151
000-1
000-1
00000
00000
00000

11151 -2899
11108 01300
115B
1164~ 01200
11151 -2899
11156 01300
24 02897 11559
46 IIHI6 01200
14 11151 -2921
47 11404 OUOO
24 02919 116GI
46 linG 01200
14 11151 -2eU
47 11452 01300
24 02dB5 11611
46 12148 01200
0.
14 11151 -2895
SBNR'll.1 NPUT-IO'2011
47 11500 01300
.+36
24 02893 11643
IN'UT-IO+2oI0,C5+2 OI0
46 12356 OllOG
CS.
49 03404 00000
PHASEA
OG02 ..
11, oOEF I NEDPCDOE
OG026
U.oOELETED'CDO!
00048
24.00EF 1 NESVSTEIIISYlillOl TABLE
00014
OT.oENOUI
00022
11. OllS TO'CDDE
10 00565 Jl661
OPTil . . .
DI.INE 0' CODE
49 DOS" JUU
IT 12676 J16'0
IIIODSP5,0."
IT 12.11 Jl0T.
AOCK.EIIOt"
AlFO., . .,O
11 04612 JUI2
49 13110 00000
AlRIN
26 13316 0411Q
O'SAV,IP+I8,U
26 0411Q 13368
ZP'II,60S.6
32 02194 00000
IN'UToll
U 04612 nuo
&L.O, .IIOSPAC
17 05016 11 HK
EVALAO, . . U,. 11
26 02]10 01295
ZEPO+iO,AODU
26 02327 UI"
ZEPO+Z1.D"'V
26 0481J aUJO
zP'I1.II'O+SO ••
.9 a J404 00000
PHAlEl
OILiTl
.
.
COOl
'D 005•• J""
0""",
... 00'" JUU
U u n . J1111
IIOOSP5'''12
11 IINII JIOll
ADCII,EIIDtLP
n O•• U JlOIi
All''' ,lIInN
a6 01901 Iii ••
IIIPUT+1I ••0S
11 ... I. OISI' 0 •• 10
11,,+n, " . " , U
11900 16 O.I1J OIUO
ZP.11.lI~IO,.
U 911 •• OJ4M 00000
'MAli'
. . . . . . . , . ,. . S'IIIOL T'ILI
"'OC. . . . II.".... , •
U.IO " l u n JH"
11.,1 l ' 1.6'. Jl944
....." ,.. 11
SITOC'+lI.ICLIII
n_ "
U'4I 0110'
58NR'11.INPUT-IO.2°11
e+36
I"PUT-10'2ol 2 .tl.2ol2
tiP
SBNR+II.INPUT-10'2·11
.+36
INPUf-lO+2elZ,C2+2-12
t2P
SBNR'II.I NPUT-10'2 0 24
e+]6
INPUT-IO'2'21,C]'2 0U
C4.
SBHR+lI.INPUT-10.2007
·+16
I ~PUT-IO'2006 .C4'2 0 06

•

"nchu••nSC,.,... n·

GlT

.ST

'""

C4Poa." •••
C""·"",1I

TIC'.'.

11260
11272
11284
11296
11308
11]20
IIH2
11344
11356
11361
11380
11392
11404
11416
11428
1144G
11452
11464
11476
11488
I1S00
11509
11515
11561
11609
11621
11644
11656
11661
11610
11692
11104
Un2
Un4
11 n6
11741
1 n60
11'72
lnl4
ln96
U.OI
".,.
UIII
U.40
111"
n •••
'1.1.

14
47
24
46
14
47

02~91

11'" 1. , .... -,.,'

. " . . . '0 H . . . J l " '

" . . . . . 001.. JUl.

11'" ••

11Oa, , ••••

UIM" 11017 0 . . . .

131

PAGE
011"«1 C"P02
OlnO

s

OU'O
OllJO

S
S

Oll90

TFII
IITII

OUOO

All

OUIO'

Til

til
IH
ITII
87
ou!lo CZOECT IICTY
01260
IIATY
01210
tAll
01280 C.ENO TF
01290
5
01300
511
TFM
01310
01320
PUT
OIUo

ouzo

gmg

01330
01340 C20EII
01350 ENTCNT
01360
01370 SST

87
OAC
DC
OS
DO

01380 SSTOCF OOA
01390
01'400 C3P
01410 CSP

TFM
TF
TF
TF
TFM
BTM
TFM
BTM
TFM
BTM
TFM
BTII
TFM
TFM
87
TF
(;

OIBO
01600
OIl>10 XC
01620
01630
01640
01650

BE
BO
RCTV
AM
WArY
WNTY
SPTV
87

12011> Z2 02502 00000
12021 Jl 0321" 02."
120"0 22 O'H3 12021'
UOU 22 09. . , nOlI'
120'. " 03.03 J2016
12076 17 12111 J2176
12081 II 12311 000-1
12100 H 12318 00J50
12112 .6 121.4 01100
1212. 17 05076 12136
12 U6 .9 08686 00000
121". 3. 00000 00102
12156 39 12257 00100
12168 .9 007?' 00000
12176 26 1202P 02507
12188 22 1202P 02502
12200 12 1202P OOOH
12212 16 12331 J8899
1222. 10 00565 J2247
12236 4q 00520 J23Z4
12248 49 11056 00000
12257 00060
1'2318 00003
12323 000Q5
12324 00002 22
12326 00005 J2B2
12JJl 00001 '
12332 00006 OJ . . "
12338 0000) -35
123"1 OOOO~ -0000
12346 00001

,t"I'0"" ,

CZOEII

EXIT

C.P02HI,HCLIII,6
t4P02.II,pIITLIII,6
C.P02.1I, 17,6 10
5STOCF+5,SSTOAO
SST,RIC
PROCON+20
30,L1111T OF 150 SYIIBOL5 EXCEEOEO'
3,0
5

,SSTOCF,,,A
,0. SSTOAD, SSTSC T , ' - '

DC
I.'
CAll. E~IT
GET OPTAS",

01420
OIHO
01440
01450
01460
01470
01480
01490
01500
01510
01520
olno
01540
01545
Oi550
0'l5'60 C 5'P 1
01570
01~8,0

PULlII,o-.
LIIiITS-t,P.fLIII-"
LDTR+ll ,C.I'OItl& ,U
LDT. . . .
1&
I'HASU-I, . . U
IIDtll,tUND
ENYtNT, 1,10
ENTtNr, 150,9
C20ECT
E,VAtAD,.+n,4
LDUL

l23".8 It" 001')1, NIOOQ

LI ST OP CODE

,,123~6

12368
12180
12392
12404
12H6
12418
12440
12452
12464
12476
12488
12500
12512
12524
12536
12548
12556
12568
12580
12592
12604
12616
12628
12640
12652
12664

lP+36+o.C5 PZ

INPUTtI8,ClERER+l
lOPOUT .eLERER'9
XC+9.CLERER+1
INPUT+l2,99,10
ALFOP,-+12
INPUT+I •• 99.10
AlFOP,·+12

INPUT+I6.99.10
ALFOP, •• \Z

INPUT+18.99,10
ALFOP,·+12
lP+36+6,AlFLP
PHASEA-l,PROCON
PHASEA
lOPOUT-2.lEPO+27
60S-6. LopnUT-2
ALFLP
-.24,·.24+9

-.9.2.8 10
lOPQUI-8
lEPO+28
ALFLP

10
49
16
26
26
26
16
17
16
17
16
11
16
11
16
16
49
26
24
46
41
34
11
39
38
34
49

OO~65

00566
04hl
02901
03323
12625
02895
0.612
02897
04612
02899
04612
02901
04612
04842
03403
03404
01321
13362
04712
12616
00000
12625
onl5
02328
00000
04112

J2)"ttJ

H3t3
J25~6

02103
02Te5
02691
000R9
J2451
000R1
J2lt76
000R9
J2500
000R9
J2524
-4712
JlO16
00000
02321
OJ321
01200
12625
00102
0-0-2
00100
00100
00101
00000
PAGE

01660
os
01670 MOOSPS TF
01680
01690
01100

TFII
TF
TF

01710
01720
01730
01740
01750
01160
01170
oir80
01790
01800
01810
01820
01830
0.1840
018'50
01860
01870
01a80
01890
01900
01910
01920
0'1930
01940
01950
01960
, 01970
01980
01990
0,2000
02010
02020
02030
02040
02050
02060

TF
IF
TF
TF
TOM
OC

TFH

87
BPHA
87
BOP
B7
8l0lBl B7
87
BEII5
IER4
B1
IST2
B7
$'T2C
8L
BE
87
OS
ROCK
BNR
TFM
80
ReTY
WATY
CM
8E
SF
SF
TFM
AM
SF
CM
8L
1.82
NOTIN WATY
17
ENDC'I P PUT

02070
02010 ALRIN
02090
02100 NOSItAC
02110
02110 ER50ET
01130
021.0
02150 CUP
02no
02110
0211.0,
on90 t'l'"
'02200
02210

5
PROSTII+6.8PHA+6, ,
01<+1,42,10"
ER3+6,80P+o, ,
OtlTPUT+6,BLDLBL+6, ,

CONVERT
LOOK-UP
CONVERT

ERUt",8ER4+6

"EVALER+6,BER5+6.,
PH~SEA-I ,MOOSPS-I
5T2L+6,8ST2+6
lEPO+31

1,',-

AlFDP+ 36+6, NOTI N
STAR T2
PHASEA-I .. O 6
ALFOP-I .. O 6
PHASEA. ,0
ER50ET .. 0
A'LRJN. ,0

5T2C .. 0
CUP
ClioI'
CUP
5
H24.INPUT-IO
INPUT-IO.OOolO
'.+36, TYINSW
INPUT-IO
INPUT-IO,14,10
ROCK-OI. ,6
INPUT-I
INpUT+lI
·+30.INPUT+17

.-.

*.18,2,"10

'-6,INPUT+UI
·-36
NOTINII
pHASU
Dpnll,R8C

87
PllntOll+20
IIATYALIIINII
11
PHdu
,IIA TV NilSI'M
17
""ASIA
II~.TY UNoSYII
IIATY COLl-lZ
B1
I'HASrA
TOM 1:01"$11,1,11
TOil PTINSII,O
TOil TVlilslI,O
PHUEA
TOIl '''.NIII.l,ll

"

CONVERT

tOMCOIIIISII,O
'JOM T""'1I.0

CONVERT

12675
INPUT ROUTINE
12676
DP CODE 12688
ROUTINE 12100
lOL8L ROUTINE
12712
12124
EVALAD
12116
12148
12160
12712
12783
12784
12196
12804
12812
12820
12828
12836
12844
12852
12864
12816
12887
.12888
12900
12912
12924
12916
"' .... ,,48
12960
12972
12984
12996
13008
13020
13032
130••
13056
13051
11070
n078
U090
11102
U110
13122
UUO
11142
13150
n162
I H7.
UI82
U".
15208
UIl8
lUl6
UU8
uno

'H
4

00005
26 03918 12810
16 04925 000112
26 04850 12818
26 091"4
26 09872
26 01150
26 03403
26 IOQ88
15 023)1
00001
16 04654
49 10666
119 0340L
M9 0461J
119 03404
119 13150
M9 13110
119 12852
41 13270
46 13226
49 13182
00005
45 12912
16 02813
43 12~48
3. 00000
39 02873
14 02871
46 12881'
12 02U2
32 02194
16 11026
11 !J026
12 ooono
I. 13026
47 nODI
42 00000
39 134n
49 03404
10 00565
.9 00520
.9 liDS.
39 133'9
49 03., ",
39 13',\ 5
.9 OJ(;~4
39 U4U
39 01U7
49 03404
15 0241.
15 OZ475
15 onn
49 0140.
15 OZ."
IS ozn.
15 024n

12826
12842
12834
12615
12850
00000
H058
00000
00000
00000
00000
oooon
00000
00000
01300
01200
00000
02811
000-0
02473
00102
00100
000J4
01200
00000
00"00
-1900
000-2
00000
-30S4
0 nOO
00000
00100
00000
JllOI
J1313
00000
61100
0'1000
.:00100
IJOOOO
00100

00100
00000
OOOOJ
00000
00000
00000
OOOOJ
00000
00000

133

5

'AGE
UZ6Z
Tall
IU10
11181
TDII
U294
TDII
lIJ06
IT
IUU
,0".,. ,A
OD
11)15
uno
02210 OPT.
DDA ,O,AZOAD+AZDIS,AZSCT-AZDls,INSTaN+IOO.AZDIS
IIIZZ
UI21
IIIII
UII6
022'10
DC
I, '
l1Ul
DO
02300 PHAI
,AIDCf""
111,'
UI44
11146
02310 AlDCf DDA ,1,11600,11,2100
n152
11)55
I,
•
11)60
02120
DC
.,60606060
IlI6I
DC
02310 60S
U116
1,0
023"0 OPSAY DC
U119
02350 AlRINM OAt II, alREADY DEFINED'
I.,
UU5
NO
ROOII
IN
TAILE'
NOSPM
OAC
02360
U"53
02370 NOTINM OAt 15. NOT IN "llE'
U413
20,
UNUEFINED
UNDSYM
OAe
SYMIOL
'
02380
11000
02190
DE NO L1BST

02220
02210 tiS'
OZZ40
022'0
OIUO
02210 O"AI

"

'"ASEA
TYIMSl/,l,lL
tOlM511,O
"IMSII,O
'HASIA

4. 01404 00000
15 02411 0000"
II 02414 00000
I' OZ415 00000
4. 01404 00000
00002 2Z
00005 "1122
00001 '
00006
0000)
00005
00001
00002
00005
00001
00006
00001
00005
00001
00008
00008
00036
00018
OOOlu
OOOitO

0.11111
-21
JI.ZI
22
J1146
'
'1 J 1600
-11
-2100

134
PAGE
SPS lID MON !TOR I SUBROUTI NE SET DO
SYMBOL TABlf
BHG 00520R
PCK
02365
ZEROS 01l20R

PCK

DIYI
POST

0012"R
002.2R

EMO
PO

00n2R
00800R

INOAO 01008R
SET
009UR

NZO
SUI

OOH"R
00681R

OS

,2365
02365 00000
SUBROUTINE SET 00 SOFT DIVIDE ••• 19 APL 63 ••• JH8
OSA DIVI-24
0000" 00005 -0100
OORG
00000
BUFFER REQD FOR CORE I MAGE OIJ PGM
OS
100
00099 00100
Tf
00100 1(6 00U5 02315
OIVI+II ,PtulO
AM
OIVI+II ,0"
00112 .II 00135 00004
,a,
00124 116 00)0) 00000
Tf
PDST+II
LOAD A ADR
TFII INDlD+"2 , •• 20
00136 olD 010'0 00156
INOlD
00141 M9 alDOl 00000
n
,LOAD I lDOII.
TF
SUhll
oINDAO+59 ,01
00156 KD 0069. 01067
TFII INDAD+"2 ,e.20
00161 JO 01050 OOUI
17
INDlO
00110 II' alDOl 00000
TF
POST+6
,LOAD SHIFT
,INDAO." ,01
00111 KO 00291 0106t
00200 olD 010'0 00220
"II INOlDHZ ,e.20
0021Z II. 01001 00000
n
INOlO
TF
SUI+6
,INDAO+59 ,01
,LOAD LQ OOZIO KD 00"4 01067
All
0IVI .. l,OZ,010
00n2 .I I 00U5 OOo-Z
TF
,IEROS
00244 20 00099 OU20
TF
00156 ZD 00066 OUZO
,IIlDS
)1
,uaos
00. .1 ZO ooon ouzo
TDII .,0
00210 l ' 000041 00000
OOZt2 Z6 00000 00000
TDII 'DST+U ,1
00J04 ", 00J!4 00-01
,d'
POST+4\? ,'OST+U ,01
00116 10 Don. DOIOI
OOlza 114 00n6 00000
IN'
TOil 'OlhU
,OU
00140 ". 001141 0000,01
,'0$1+6
00... ItO 00)10 OOZ"
"11
00164 II 00000 00000
CP
TDII SIII",I,O
Don. ", 00. . . 00001
TDII 'I-U,1,O
00.1 ", 001 . . 00001
00400 10 00411 006. .
"U,I"+U,Ol
I.., ·+41,,0
0041Z M4 004160 00000
$II
POntU ,1
,OlD
00414 ", 001141 OOD-l.
TDII l"tl,l,O
00.16 ". 006.. DOOOl
TDII ""H,.,O
00.... " • •07. . 0000.
• PO".,
t01
. . . . . .0 006t1 " I "
• 11
..... 100a •
. . .7'
IMP
. . . . . M4 00411 .0000

0-"

05080 DIVI
05110

051"0

05110
05110

06020
06010 'OST
060"0
06050
06060
06010
06010
_0
06100
O6UO
06120
06UO
061.0
06110
06160
. . . 10
. .110
06.tO
06100
.1010
.,010 "LI
01010
01040
01010

,

.

" "

"

"
"
"

"
"

III
IMP
A

•
t

••,.1.,0

,

....

--n".
• ........ U.01
..... '.010
--n ...

--10''''.6,01
.,L. . H.IUI.... 11
... L•• U • .,L. . ' •• 1l

.I, ..... •...,
..."
..... .I, oona
oona .... '
. . . . . .0

. . .H.4 00101 . . . . .
....,. U
..... 1Il .... , ..."
. . . . . 1M •••• , " '••

oo•• a .....

ns

..,.

INI.

C,

IPLI-U
.,Li.U

SP
01120
07150
07160
07UO
01160
07170
on80
07190 sue
07200
01010
oe020
080JO
01050 IUO
08060
OB070
01090
08100
08110 PQ
08160
08\10
08180
09010
09010 EMO
09070
OQ080
09110
09120
09130 SET
09170 INOAO
09180
09190
09200
10010
10020
10030
ZEROS

'AGE

Sue.'2,N1II,OI7
ItCl·',IFLGH1,OI

SM
TF
TF
TOil
TFII
s
III
AM
BO
81
TOM
TFM
B7
TF
A
TO
Bill
CF
AM
80
AM
SF
87
SF
BO
SF
Sf
AM
Sf
8Nf
Sf
AM
87
AM

pge6,lt010
fMO.6,POo.,OI
PO-I,SUlol1,OI
SETo II ... 0

"

,.

,

"M

00606 DilDO
LJ OOUl 00000
L2 005JJ 00000
JO
-0766
KO 00106 00511
J2 00106 000-1
KO 008Q8 ooaOh
KO 00799 00699
J5 00999 00000
J6 00685 000-0
22 00000 00000
111 00176 01)00
00112 JI 00615 OOOJI
00124 4L 00000 00615
00136 119 00988 00000
00144 J5 00999 00001
00756 JO 00730 -0"1
00168 M9 00688 00000
00776 KO 00794 00694
00188 21 00000 00000
00800 2N 00000 00685
00812 M7 00836 01200
00824 L3 006QM 00000
00836 Jl 00694 000-1
00848 ML 00892 00692
00860 JI 00806 000-1
00872 L2 00800 00000
00884 M9 00676 00000
00892 32 00000 00000
00904 ML 00940 00 314
00916 L2 00800 00000
00928 L2 00999 00000
00940 JI 00806 000-1
00952 L2 00800 00000
OOQb4 MM 00988 00114
00976 32 0009Q 00000
00988 J I 009~9 000-0
01000 M9 00 13N 00000
,INO AOOR ROUT I HE
01008 JI 0013'; 000-5
01020 KO 01043 00135
01032 K6 01067 00000
01044 414 00000 OlOb(
a IOS6 L3 01067 00000
01068 KO 0101· 7 0106P
01080 M9 01044 00000
01120 00034
00011
0056.
00"0
00"2
00606
00616
006Z1
00640
006SZ
00664
00676
006118
00700

"

•••• ,OlO
100-24, ,0
SUI-J,II,OIO
,SUI-Id
SET
HO
SET+I1,I,O
SUI+42,SUI,OI7
SUI, ,0
.oU,SUB+6,OI
,SU8-3,1
_+24
SUet6
SU8+6.1,OlO
EMO,SU8+4,OI
PO+6.1,010
P006
SU8-12,,0

,

,6

,

,6

,POST+22
·.36
PO+6
SET+ll"O

,

,6

PQ+6,l,OlO

,

PQ+6
-+24

,PO~T+22

99
0+11,,010
01 VI+II
,o~
OIVI+l1

,

Tf
Tf
BNf
CF
Tf
87
DC
OENO

0.23

,6
,OLD

,0 I Vlt L1

INOAO+~9

a

,6
,01

,

,01

,a

I NDAO+'5'l 01
,0
INOAO+59 ,a
INDAO+59 , 1NOAO+ 59 ,0111
,a
INOAO+3b
,0
3~
00011
t

,

M6

oono

1 36
PAGE
SPS 110 MONI mR I

SU8ROUTINE SET 01

SYMBOL TA8LE
ALPHA
FAC
LCN4
ONEZ
SAVE

NOSOIG 02401
EDGAR

UOOOQR

l.eN3
HI NES
PICK
ZRES

00553R
00499R
OOIOOR
00448R

01010+
02040· ••• ••

01080.· ••••
OlOqa ••••••
01100 ••••••

o L 110••••••

01120 ••••••
0Il30··· ..••
01140 ••••••
oII tic ••••••
01160 ••••••

01110.··· .. •
01180 ••••••
01190.

01200· •• •••
02010.

02020 ••••••
P

02080 PCX
02081
02082
02141
02142
02144
02145
02146
02160

EDGAR
AlPHA
SAVE

aerA

'PICK

00006R
OOOb6R

00563R
00513R
00077R

00488R
00604R
005HR
00380R
00308R

BETA
LCNI
LCN6
P
STORE

00098R
005HR
00583R
00000
00344R

CLERO 00S?4R
LCN2 00543R
00521R
LOGE
pcr
02365
UNH 00424R

PICK ROUTINES
FIXED 8 DIGIT MANTISSA LENGTH
FOR OPERANDS A '1'10 8 DillY
pcx AREA MAY 8E USED AS A WOIIX AREA IF SU8R NOT USED. If
5U8RDUTI'IES REQUIRED, THEN THE AREA IS USED AS FOllOWS
02401
NOISE DIGIT.
SOURCE,SUBROUTINE SUPERVISOR
PCX
ADR OF PICK.
SOURCE,SU8ROUTINE SUPERVISOR
PCX+5
AOR Of RETURN TO SUBR.
SOURCE,SUBROUTINE
PCX+lO
AOR OF RETURN TO MAINLINE.
SOURCE,PRIMARY LINKAGE
PC.+15
ADR OF A OPUANO CHARACTERISTIC.
SOURCE,PICK
PCK+20
ADR OF 8 OPERA'IO CHARACTERISTIC.
SOURCE,PICK
PC.+25
ADR OF A OPERAND IIA"TlSSA.
SOURCEoPICK
PCK+)O
ADR OF I OPE
MANTI SSA.
SOURCE, PICK
PCO+31
RESERVEO FOR POS5IIU RECORD .. AU
PC'+)5
" RESERVED COU
PC.-,. THRU PCK-9D suaVEC FOIl THE 17 FUR~ISHED SUBROUTINES
.DRS ARE SUPltLIEO IY THE SUBROUTINE SUPERVISOR
PCK-91 DOWN TO EIIO OF IORT MAY se ~SEO IF .. 0 ~nn.D SUIROUTS
OS
•a
0",,00 00000
OS8 5
,8
,2365
02365 00040
OSA PICK
00004 0000; -0100
os
,'-4
00000 00000
OORG EDGAR
00000
OS
46 .. WASTE
00045 00046
OS
21
00066 00021

"""0

os

II

OS
OS

21
I
401

,BEUol-P .1,

PC.>II

,PCU\O

TO

02110

TR

02180
02190

AM
B'iF

02200
03010
03020
03040
0)050
0)060

tF

01070
DIDIO
03090

CF

PCKt.20

TF
11
iF

PCK+20

03110

HERO
HONE
LCN5
OVFL
SIGN

TF
87
TF
SII
8NF

00017 00011

,II,

00098 00021
00099 00001
RESET ERROR INDICATOR
00100 2N 00401 00099
1I0VE OPERANDS FROII MAl NLI HE
•
00112 31 02116 0231N
tALC RETURN ADR 00124 11 023H -DOli

,access A DPEaAND
PCK+l'
PCK+l'

.-)6

pcun
PCK+25

·.4.

,
,PCUl5

.2

,PCU20

,PCKoao

.-16
PCK+JO

,PCK+20

....
..

,11

,a

A MINUS

00136
00148
00160
00lT2
00 180

114 001':; 0::380
H 02"~O ';'0000

21> 02'>«, 02)8" ' 00116 00000
26 02390 02380

00192 12 02390 -0002

'IOCUS • D'!IIA"O

,11
• MlltUS Z

00204 114 00248 02385
00216 n 02385 00000

I" onu

00228 26
OUI ..
00240
00204 00000
00Z4. 26 021.5 02)IS

137

PAGf
01110

Sill

OfLlIIUTI DVUnOll
OOUD II onu
olUO
TF
lETa
,II. IIOVE I CMAR TO IfU
.PCU'O
0017' •• 000..
on.o
rF
Ina-I
IIOWI I II...T TO IITA-I
.".+10
OOIU •• 000. .
on'.lo
RITURN TO SUIROUTINE
IV
PC'.'
002 •••• 01)700)01 II. DonI
INF . . I.
02010 SIGN
.0
AL,"a-1
01020
SF
00110 La DO".
.0
01030
All
.010. SIT "P El INOI.ClTDRS
aLP"a"'a .00
ODnl Jl OOOU
02040 STOllE TF
001.. 10 01"PCUI'.I
• ALP"a-1 .16
rF
001'. 10 01)1020'.10
PCU1'.I
• ALP"a
.16
00161 .9 02HN
01060
I
PClOIO .. '
01070 OVFL
OOJlO 1'.1 00401
rOM 401
.1
.11
00192 KO ooon
TF
ALPHA-I .NINES-I ,01
01010
TF
,NINIS
00.0. KO 00066
010'10
ALPHA
.01
00.1. 119 0047Q
,06
02100
87
lREStlO
OOU. 15 00401
01110 UNFL
TOM 401
.1
004)6 n 00099
02115
CF
99
02120 lRES
TF
004U KU 00064
UPHA-2 ,AZUD-Z .01
02110
OOUO KO 00066
TF
.AlERO
.01
ALP"A
,0
001012 149 00).4
02140
B1
STORf
04140.
PICK ROUJlNE-S"A.ED CONSTANTS AND WORKING STollAGE
01 ... 01 00001
I
.2401
"OSDIG DS
0210]
00486 OoOoB
.0000 0000
DC
8
00 ..... 00002
0210 ... AlEIIO DC
2
.-99
00108. 00001
01105
DC
I
0206]
,9999 9999
00.91 00008
I
DC
00 .... 9 00002
020610 NINES DC
.99
2
02065
DC
I
OO'OD 00001
005U 0001]
05090 or.EZ
U, 1000000000000
DC
, ... ] 42910 4819
o05H 00010
05100 LOGE
10
DC
, 76913 0769
00513 00010
DC
10
05110 LCNI
, 9 0909 0909
005 ... ] 00010
05120 LCN2
DC
10
0055) 00010
05UO LCN3
DC
10
,II 1111 1111
00563 00010
DC
10
,14 2157 1... 21
051"0 LCN ...
DC
00513 00010
05150 LCN5
10
.10 0000 0000
, n )n3 33n
00513 00010
05160 LCN6
DC
10
,0
005~4 00011
05170 CZUO DC
11
00066 00000
,ALPHA
05180 FAC
OS
05175
1,IOODoOoO
00601 00008
DC
0060 ... 00002
05176 FlONE DC
2,01
05117
I,'
00605 00001
DC
OENO 01001
01001
PCUSO

•2

I

.5 •

.11.
•••

.•••
,

.
.'

00001
02"N
OUM
01.00
000 ••
00000
000-0
0006 •
ODD ••
00000
OOOOJ
00.97
OOU'
00000
00001
00000
00.16
00488
00000

"

~YMBDL

NOSOIG
DIYWI
LtN2
LOGE
PCK
UNFL

ALPHA
EDGAR
lCII3
NINES
PICK
ZRES

021001
OOOOOR
00543R
0052]R
02365
00"2ItR

00066R
0000011
0055]R
00,,99R
OOIOOR
00""811

AZElia
FAC
LCN"
ONEZ
SAVE

TABLE
00481R
0006611
00563R
0051311
0007711

8ETA
FLOIIE
LCN5
OYFL
SIGN

00091R
001>04.
00513R
00380R
0030lR

CLERO
LtNI
LCNI>
P
S TORE

005910R
00513R
DOUIR
UOOOO
~034"'R

Ug
PAGE
DSA OIVWI
oORG EDGAR
Til
PCKtll

olVWI

AM
PCKOIO
PCK02~
LO
O
PCKt30
PCKtlO
B7
DEND 01011

, PCK+IO

,21
,petc..l5
,PClOIO

,II,

..

,loll
,loll
,6

OOO~" 00005 -0000
00000
MOVES DIY OPERANDS INTO PCK AREA
00000 ]1 02176 0237N
:ALC IIETURN ADR 00012 II 02315 -DOll
on024 2B 02)9- OHI00016 29 0219'1 0131N
00041 ,,~ 0217N 00000
01011

SYMIOL TABlE
NOSDIG
lETA
FLONE
LCN ...
NORM
PICK
ZRES

02401
00098R
OObOlon

00563R
001028R
OOIOOR
OU ...... 8R

07010'

07020 FSI
070]0
07070 FA!
07010
07012
01090
07100
01120
01130 ASCDN
07140
071'0
01160
07110
01110
071.0
01200
01210
01220
01210
01140
01010
01010
010.0
08040

ADD
OO]I2R
CiEIIO 00594R
FSI
nooooll
LC~5
005731t
ONEl 0051111
SAVE 00077R

ALPHA OOOI... R
E~GAR OOOOOR
0053)11
00513R
00)1011
OO)OIR

LCNI
LCN'
OYfL
SIGN

ASCOI4
FAC
LCN2
LOGE
P
STORE

0008411
00066R
0051o]R
0052)R
00000
00)4411

AZERD
FAI
LCN]
NINES
PCK
UNFL

00418R
00020R
0055JR
00 ... 99R
02]65
0042411

PICK FLOATING ADD AND SUITUCT ROUTINES
DSA FSI
.FAl

000010 00005 -0000
00009 00005 -0010
DORG EDGAR
00000
TFM PCKo5
,FAltlO
00000 10 01170 -0040
.17
PCK,,6
B7
00012 109 0236N 00000
,ASCOII
,11
00010 10 02370 -0014
TF" PClO5
B7
PCK
,I>
00012 109 02)6N 00000
DC
50,0"000'050'000055500 00"'0'05550050'00'0 .0'0505005.150
00"50 000.0
BNF UCO!!-U .BETa-1
.0,
C"aNGE SIGN AND ADD
00040 14M 00012 000 ••
CF
IETA-2
000'.lZ L 1 00096 000011
11
ASCO"
000." ". 0001. 00000
Sf
Ina-I
00071 LI 000.. 00000
TF
!IOVI a DPIRAIIO
0001" •• 00066 0211ALP"A
.PC •• "
,ll·
TF
ALP"A-I .peU25
000" •• 000." OU9TOIl ADD+1
.1
.0
00101 J' 00111 00001
Tfll aDD>11
.Iua-a
.01
00110 JO 00121 -00"
00111 .11 000•• 000.1
C
.IIU
ALP"A
II
ADO
.0.
CMAU"IUSTICS llUAL
DOl". . . 00J12 01100
.t,,'
ALP"A LAIlIiR TIIlIl IU A
It
I"
001" II. 00204 01100
TIl
ALP"A-•• lfTA-••• llInCN DPIIMDS
001.1 LJ 000'7 0001'
Tf
IITA.,euII.U
00110 •• 00091 anITf
.UA-I.pe. . . . . u
OIl •••• 001)" on9IITA
.AL,""
00. . . . . 0 _ . 00066
S
SCALI
IV
naal-II
00'" III IOU. '''00
. ., •• .., DOl,. 000. .
A
A.... "
IMP
• I.f....
00 . . . l1li 00"4 00096
TOIl AOO+'
" ' 1 ' JI 001.1 0000•
:.0&1. _ _ 01.,
IITA
til
.7
III tII'RAeflAl"leS

,

.U'

..a"

."TA

••

"

••'a

OI'M . . . . . . 000-'

138

PAGE
~

'01060

,,'0
,oJUO
'!lIOJOAOO

'aNoII

","'0,2
011£0

oa.t:2'!!

OIHO
'911.1"'0

on.o

081{>0
OI'lrO
081..0
081·90 «ORII
01200
09020
'090)0
09040
09050
09060
09070
'090BO
09,090
09100
09110

00276 M7 00332
',.l1li
,11
00211 JI 0001.
00)00 L3 ooon
~f
A
0011Z Itl 0006.
AL~NA-2
STOllE SIGM
00U4 211 00099
T.O
'99
,ALP"'A-2
40 ,nOOIOIO" • 010.0.050 nonno.o oo.oso.no ,3.0
DC
00J40 00040
TFII lUSHO ,.51 Gil
003]6 JD 00.71
aNV NORM
00141 M1 00428
'ALPNA
,1
·AM
,10
00360 Jl 00066
.OYfL
IV
III IF CHAII
OVERfLOII
00172 116 00110
AL_-Z ,ALP"A-I
.Tf
AOJUS' MANfI SSi 00384 Itll 0006.
TOM ALPHA-9 ,1
,11
00]96 J5 00051
Cf
AlP"A-.
00401 L3 00058
00420 M9 OO)OB
17
SIGN
ZRES-12
8l
8R IF ZERO
00428 116 OOH6
'CF
00.40 L) 00064
ALPHA-Z
NORMAL IlE
TF
lEU
,ALPHA
00452 KO 00098
,ALPHA-9 ,0
-+68
004~4 ilL 005)2
10
ALPHA-9 .,ALP"A-I
TR
00476 LJ 00057
TO
AlPH.A-2 ,NOS DIG
00488 K5 00064
00500 J2 00098
511
.IiEU
01
.10
,0
00512 117 00464
BillY --ft8
0052. 119 00424
81
UNFL
ALPHA-9
SF
00532 L2 00057
ALPHA
,'BETA
00544 Ka 00066
TF
00556 119 0030B
SIGN
B7
DEND 01022
01022
S'. .E,..12
IIU-IO ,0
•.E'A~

..
"
"

..

,

"

•

01300
000000000
00000 .
OOOU
00301
01.00
000-1
01400
00061
OOOOJ
00000
00000 ,
01Z00
00000
00066
00057
00058
02401
000-1
01400
00000
00000
0009B
00000

S'IMBOL faBLE
1'1050[1;
EDGAR
LC"'2
LOGE
PCK
UNFL

ALPHA OQ06M
OOOb6~
FAC
lCN1 OOSHR
"'I"'ES 00499R
PICI( OOIOOR
0044.811
ZRE~

02401
OOOOOR
00543R
01)52311
02345
00424K

100)0 Fill
10040
100 t.O
IM20
.{0050
1006'0
10070
1:0080
10090
10100
10110
10120

AZERO
FlONE
LCN"
ONEZ
SAVE

a04B8R
00604R
00~6)R

005nR
00077R

BETA
Fill
LCN5
OYFL
SIGN

00098R
OUUOOR
00513R
003S0R
OOlOSR

CHRO 00594R
00533R
LC~I
LCN6 005B3R
[10000
P
sraRE OO)44R

OOO~4 00005 -0000
00000
00000 10 02310 -0020
,6.
PCK
~R TO PICK ''''0 RETURN
Rl
00012 49 02J6N 00000
00350 00030
30.550·5500050 0000005000 0500050000, )50
DC
00020 JO 00478 00)08
TFM ZRES+30 ,SIGN
,6, MUL "ANTI SSAS
00032 2L 02)9- 00096
II
'PCI<+2,S
,.~ETA-2
00044 116 004)6 01200
lRES-12
Bl
•• Sb
,0
00056 M3 00112 00084
.lIlt
eO
.10ll.CORRECTION FOR 15 DIGIT PRODUCT
'TH SAVE
.01
00068 J6 00077 OOO-J
00080 32 00085 00000
SF
a~
00092 26 0219- 00092
,92
PCI<+2·5
Tf
.6
ft.)2
0011)4 119 00 1)6 00000
,0
81
,10, INDICATE 16 DIGIT PRODUCT
TFM SAVE
.00

OS4 F"1
OORr, EDGU
TFM PCK:+5

,-.20

.11

,

)40
PAGE

10130
10IltO

TF
A

PCK+25
PCUI5

101~0

BV
A

•• 12

10160

PCI(+15

B~F

10161
10162
10165
1.0170
10180

SF
AM
BNY
BNF

10lS5
10190
10200

OC
87

.6

, SAVE

,6.

,6,

,,4

•• 24,'99
PCK+25, tb

PCI<+25.00.610
PCK+1O,.b
ft.,20
,PCI« 15
,6.500550,350
U'IFL
, SAVE
PCI<+15

A

1(;l210
10220
10230

.91
.BETA

00112 J6 00077
00124 26 0239ADD CHARACTERISTICS
00136 2J 021aoOI.a 116 00220
ADJUST CHARACTERISTIC
00160 2J ulHn0196
00172
00la4 32 02)900196 11 021900208 47 02lTN
BR IF POSITIVE CHARACTER I S Tlr.
OOUO 114 00240
00)50 00006
00232 119 00424
ADJUST CHARACTERISTIC
00240 2J 021a00252 116 00380
00264 16 023a00276 49 0237N
01041

,all,
,6,

BNN aVFL
JF" P,CK+15.99.610
B7
PCK+1O .. 6
.DENt) 01041

000-0
00091
00098
I)lltOO

00077
00099
00000
000-0
01400
023a00000

00077
01300
00011,9
00000

SYMBOL TABLE
NOSalG
czua
LCNI
LCN,
OVH
SIGII

02401
00594R
005HR
0.0583R
00380R
DOlDeR

11020 1'01
ltO).O
110)5
110,,6
11040
IIP50
11060
11010
11080
11090
11100
11110'".'''

lino
UUO

HUI
11149
IllSO

ALPHA 00066R
EDGAR OOOOOR
'lCH2 '00541R
LOJ;E 00521R
P
00000
$lORE 00344R

00. . .11
0006611
oo.nll
01111211

OU"

0042411

BETA
FDI
LCN4
NINES
PICK
IRES

00098R
OOOOOR
OOSUR
0049""
ODIC,
00448R

CHAR
FLONE
LCN5
ONEZ
SAVE

00252R
00604R
005HR
OOS13R
ooonR

00004 00005 -0000
00000
00000 10 02310 -0020
,6,
·111 TO PICK AND !tETI/ItM
00012 4' 0236N 00000
.DC
34
.50500'J0005 50'0'0"01 0500001000 5050,350
00350 0003~
"TF
ALPHA .PtK+1!.1l
00020 K6 0006,6 OUBTF
·.ALPHh2 ,PCI(+25
00032 1t6 00064 0239011
,0, CI( fOR ZEIIO !lIVJSOIt
.IUA-9
".80
"' ... T
00044 ML OU~ 11 .'0089
TBII .QI
,0
,11. SIT 11111011 CODE
00056 It oo.. ~:. ,.,000'.80
\'I\I.".1-l4 ,ALPHA-9 ,0,
CKfOIl lERO DIVIDEND
'00068 ilL OLICI8 ·00017
STIlRE
00010 M9 00344 OOOOU
'81
All
ALIIHA
,·99
$UII/UTE HAIIDIIARE ZlIlD DIVIDE
000.. J 1 00066 00099
' IV . SfORE
00100 M6 UC))44 01400
TFII ZRES+30 ,SI'M
00112 JO OO~ 11 00308
LO
,A,,'"8-2
01 III OE ,MNTISSAS·OO124 20 00091 011064
'91
,IUA-'
·001)6 211 00091 00096
'0
TO
'99,91"SiVE '·IGII
l1li••1 as 000.. 00091
.JO C""II-U ,I)
,0
. . . . II. Don. 00011
It
·lRES-U
P0112 '6 00416 OLIOO
D.5A
.DOIlG
'1'11
81

F01
EDGAR
PC«+5
'PCK

AZERa
FAC
LCN3
"ANT
PCIt
UNFL

,-+20

,11

"

"

"

J 41

S,

11160
11170
11110
1200'
12010
U020
12010 CHAII
12040
120'0
12060
12070
12080
120QO
12100

..

'AGE

6

IIANT Of A SIIALUII THA.. IliNT OF •
00114 U 00086 00000
TF
AL'HA-I ,.1
00196 K6 000&6 000'1
nil U\lE
,00
,10
ooaol J6 00077 000-0
17
CHAII
00120 II. 00212 00000
DC
oono 00022
12
, '0'0"00" 'O'OttU'O '0,150
TF
00121 K6 00066 00090
AL'HA-2 ,'0
TFM SAVE
,01
,10
00240 J& 00017 000-1
S
AL'HA,IETA
00252 KK 00066 00091
~.
,0,
ell IF OIFF GIIUTER THAN 99
IV
00264 M6 00)01 01400
A
ALPHA, SAVE
00276 KJ 00066 00017
BNV SIGN
III IF STILL leSS THAN 100
00288 117 00108 UI"OU
00100 119 00180 00000
87
OIlFl
8NF OVFL, AlPHA "ovn IF EXP POSI TlVE OR UNFlAGGED ZEIIO
00108 1111 00180 00066
A
AlPHA, SAYE
00320 KJ 00066 00011
8R
IF
IIANT
ResULT
IS -99
BH
lRES+12
OF
0033Z M6 00460 01100
00144 119 00424 00000
87
UNFl
DE NO 01051
01051
16

..

"

12110

SYM80l TABLE
NOSOIG
EDGAR
LCN2
lOGE
OYFl
SICN
IJNFl

ALPHA 00066R
FAt
00066R
LCN3 OOSHR
lSQ
00240R
P
00000
SQH 00392R
lRES 00448R

02401
OOOOOR
00543R
00523R
00380R
00l08R
00424R

12170nOlo FSOR I
13020
Il025
IlOlO
130~0

AlERO
FlONE
LCN4
LSOII
PCK
S02

13090
IHOO
13110
13120
13UO
13100 SQl
13150

BETA
FSORI
LeNS
NINES
PICk
SOl

00098R
OOOOOR
0057311
004Q9R
OOIOOR
00436R

CZERO
LCNI
LCN6
ONEl
SAVE
STORE

00594R
u05)}R
00583R
00511R
0007711
00l"4R

PICK flOATING S~UARE ROOT RoUTINE
DSA FSQRI
00004 00005 -0000
OORG E~GAR
00000
HII PCK+5
,.+20
00000 10 02370 -0020
tl7
,6,
PCK
8R TO PICK AND RETURN
87
000 12 4~ 02]6N 00000
~6
DC
, 05~"05005 5000000000 0000000500 0500550000 000005, lOb
00346 00046
,0,
,eETA-9
BR NON ZERO ARG 00020 III 00052 00089
BO
-+32
TFM lRfS+30 ,STORE
00032 JO 00478 00144
B7
ZRES
8R
lERO ARG 00044 119 00448 00000
HM
,50
,10
BETA
00052 J 3 000~6 000'10
, BETA-2
,0,
8NF -+36
BR IF POS IT I YE ARG
00064 MM 00100 00096
CF
BETA-l
00076 L3 00096 00000
TOM 401
,0
,,0088 15 00~01 00000
·80
,0,
,18
M IF CHAR ODD
S03
00100 H3 00436 00098
,89
TFII S02+42
,010
00112 J6 00178 00009
,0,
,99
8R IF CHAR POSITIYE
BNF -+24
00124 M4 OOI~8 00099
,
97
~ET SIGN OF CHAR 00136 32 OUO~7 00000
S'
,6,
PCK+15
,97
STORE RESUl TAN! CHARAC TER I ~ r I r.
TF

,

Il050
130bO
13080

00488R
0060""
0056)11
00148R
02)65
001l6R

"

"

142
PAGE

13160
13170
13180
IH90
13200
13210
14010
14020

L~O

,

14010
14040
14050
14060

.

14070
14080
14090
14100 lSOM
14110
14120
14136
14140
14150
14160

sou

,6,

14170
14190

00148 16 0238- 00091
10M 79
,00
,10,
CLEAR WORkiNG AREA
00160 18 0007. 000-0
TF
,BETA-2
HOYE IIANTISSA INTO 8'1 OR qO
00 172 20 00000 OOOQ6
TFM LSO+18
,81
.010, MANTI SSA ADR
00184 J6 00258 00001
TFII lSO+23
,8ETA-IO .01, RESULT ADR
00196 JO OO~61 -0088
TF~
LSQM-6
,81
00208 J6 00342 00001
,010
TF
BETA-2
,DNEZ-4
~ET RESUl T EaUAI 1000 00000
00220 kD 00,,96 00509
00212 119 00148 00000
B7
L SOM
AM
LSO+23
,2
,OblO,RESULT + 2
00240 J I 0026L 000-2
S
MANTI 5SA MINUS RESULT
00252 22 00000 00000
8NN lSO
.0,
00264 "6 00240 01300
CII
L5Q+23
,BE TA-Ol ,07
00276 JM 00263 -0096
BNl SQEX
.0,
EXIT IF TERMINAL RESULT AOR REACHED
00288 M 00392 01100
,LSQ+23
RESTORE LAST SUBTRACTION
LSO+l8
.01611,
00300 KJ 00250 0026l
,06,
CF
LSO+IB
00312 Ll 00250 00000
AM
LSQM-6
,01
.010, Move FLAG RIGHT ONE.
00324 JI 00342 000-\
SF
00336 l2 00000 00000
All
LSO+lB
,010 • IIANTISSA AOR
00348 JI 00258 000-1
• 02
All
,01
,OlD,
RESULT
AOR
+
00360 Jl 0016l OUO-l
lSO+n
SM
,09
,0610,RESUlT + 9
00372 J2 0026L 000-9
LSO+n
00314 119 00252 00000
87
LSO+12
DC
14 ,5000000000 5~50
.314
00314 00014
Mil
E_IT
BETA-l
,50
00392 J] 00096 OOONO
t 10.
SF
90
00404 12 00090 00000
TF
. STORE IIANTISSA RESULT
PCK+Z5
,6,
.97
0041. 26 0239- 00097
81
PCK+10
R!lUIIN TO II_JilL I HE 'ROG... II
00'121 •• AU 7N 00000
All
99
,50
,1O, CALC "E SULT lIMEN 'I VEN CHAR ODD
0041. 11 000.. OOONO
TDM BETA-l0 ,0
,11, LENGT~E" MAIITISSA
004~' J' 00011 0000CF
IUA-9
00460 LJ 000 . . 00000
TFII SQl+U
,90
,010
00472 J. 00111 OOORO
SQI-IZ
DOloI' 119 QOlZ4 00000
B7
.0 •.
DENO 01061
01061

Sol

14200
14210
14220
14230

1_.....
,

"'..... 1 0077111
OOUOR
LCIiI
Lell.

CHlSU.

0011.

I000O

STOlE 001_

SYIliOL TMU
NOIOI' 01601
C_ 0011011
0_.11
fAC
LCIIZ Oot6.
LOG. 001211
PCII
on. .
UllPL 0 • . ,...

c_·..,...
PeDS 1 00M0ll

6&•• 0 .......
CIIIIC
't.OlII 00'""
_

LC ... III. .
..II.........

LCM
0lIl1

AL_ . . . . .

"'" .....
III.

WOMII
)

15120e

SAVI

,

"

'Iell 'LOAfiNG SI'" AIID CDlII'* IouTI.S

Dot••"

0011.

111""

."

1100. .11

CillO 0 0 ' _
FS 1I1L OQOS. .
LCIII QOUSII
av'L
IlIN 0010111

oon.

141

•

PAGE
L5UO.

15110 FCOSI
I5l10
15190
t4010 FSiNI
16020
16024'
160U

1602'l
16010
16040
16050:
16060
160711
16090
1610;0
16HO
16120,
16130
16150
16160
11,110
16180
16190
16;!00
17010
17020
17040
11050
17060
11070 8"'~
11080
11085
17090
17100
17110
11120
11130
17140
11150
17160
17170
17180.
17190
11200
18010
18020
18030
18040
18050
18060
18070
18090
18100

TRAIUFORM"TlO'" DF HASTINGS ",. . OX FOR SlN'UI2
00004 00005 -0000
.FSINI
DSA FCDSI
00009 00005 -0032
00000
DDRG EDGAR
00000 J5 00321 00009
TON 8NP+I.9.0
OOOlZ J5 00100 00003
TON FSlNI+61 .3
.0
00024 M9 00056 00000
FSINI+24 •• 0
81
00012 J5 00321 00001
TON 8NP+1.1.0
00044 J5 00100 00004
TOM FSlNI+61 .4
.0
,e+20
00056 10 02370 -0011>
TFIII PtU5
.11
00068 49 02361'1 00000
PCK
87
.6
46 .50005555!10 5nOOOQ05O 5000000500 5005500500 500000.3'0
DC
00350 00046
00076 J4 00098 OOO-L
CM
8ETA.Ol.IOll
00088 M6 00132 01100
8H
*+44 •• 0
00100 LJ 00089 00595
8ETA-9.fLDNE-9
TR
00112 LJ 00057 00089
ALPHA-9.8ETA-9
TR
00124 M9 00H4 00000
STORE
B7
00132 JO 00lt78 00144
TFM lRES+l0.STDRE
00144 J4 00098 000-8
CM
Il'ETA.08.10
00\56
M7 00188 01100
8~H
*.32 •• 0
00168 15 00401 0000TOM 401.0.11
00180
M9 00448 00000
lRES
87
00188 J4 00098 000-2
BETA,02.10
CM
M7
00200
00224 01100
.+24,,0
8NH
00212 15 00401 00000
TOM 401.0
00Z24
KL
00771 00096
REDUtE
RTWOPI.8ETA-2.0,
M
00236 33 00083 00000
CF
8J
00Z48
JI
00098
OOORI
AM
8HA.9I,IO
00260 KD 00119 00098
TF
8"'P-I.BETA.0
000-8
00272
JZ
00098
SM
BETA.8.IO
00284 KD 00102 00098
*+18,BEfA,O
TF
00296 32 00000 00000
SF
00308 K6 0006~ 00000
ALPHA-I
TF
00320 M9 0015' 00000
-+16,
,0
8
00332 MIt 00144 00099
8NF RTWOPI-27.9Q,O
,336
0055500055
5050005500
000050
,5050505050
36
OC
00116 00016
00344 KJ 00065 0018u
ALPHA-l,CONA.l
A
00356 L2 00065 00000
ALPHA-I
SF
00368 KJ 00065 00789
4UJHA-l,~ON8,l
A
00380 L3 00065 00000
ALPHA-I
CF
00392 KK 00065 00180
ALPHA-l,CONA,l
S
00404 M6 00416 01400
*+12.,0
BV
00416 K~ 00064 00486
ALPHA-2,AlERO-2
C
00428 H6 00460 01200
lRES+l2
BE
00440 J6 00449 000-4
TFM •• 9.4.010
00452 KL 00065 00065
AL PHA-l ,AlPHA-l
M
00464 K6 00017 00090
TF
SAVE .90
00476 KO 00056 00199
TF
ALPHA-IO.tD"'C.1
00488 JO 00541 -0809
TFM .+59.CONC+1O,017
00500 Kl 00017 00056
M
SAVE.ALPHA-IO
00512 M4 00536 00099
·.24,1)9,0
8~F
00524 32 00090 00000
SF
90
00536 21 00090 00000
90
A
00548 K6 00056 00090
ALPHA-IO.90
TF
00560 JI 00547 OOOJO
*-13.10,010
AM
00572 J2 00449 000-1
SM
*-111 .. ,010
00584 Ml 00500 01200
8NZ *-84.,0

.

lH

PAGE
18105
18110
18120
18130
18140
18150
18160
18110
18180
18190
18200
19020
19030
\9040
19060
19070
19090
19100
19110
19120
19\30
1'1\40
19150
19160

28 .5055055050 05S5505000 50555050 .128
ALPHA-18
~
ALPHA-I.ALPHA-IO
NQRM
TO
92,ALPHA+l"
TR
ALPHA-? ~2
TFM BEU-IO.OI.IO
80
.+56, ALPIiA-9. 0
AtPtiA-q ,AlPHA-8
TR
SM
8ETA-IO.I.IO
TO
ALPHA
.NOS DIG
.-48. ,0
81
SF
ALPHA-9
TF
ALPHA. BE [A-IO
81
SIGN
SF
ALPHA-I
Bl
BNP+24, .0
RTWQPI Dt
9,159154943
CONA
DC
9.250000000
CONS
Or. 9.500000000
DC
CONC
10.3971067150
10.-7657497509
DC
DC
10.8160223158
DC
10.-4134161750
DC
10.0628318527
DEND 01072
DC
SF

00328
00596
00608
00620
00632
00644
00656
00668
00680
00692
00704
00712
00724
00736
00144
00756
00771
00180
00789
00799
00809
008\9
00829
00839
01072

00028
L2 00048
KL 00065
Z'" 00092
L1 00051
J6 00088
ML 00712
LJ 00051
J2 00088
K5 00066
'H9 00656

L2 00057
KO 00066
M9 00308
L2 00065
M9 00344
00009
00009
00009
00010
00010
00010
00010
00010

9

00000
00056
00067
00082
000-1
00051
00058
000-1
02401
00000
00000
00088
OUOOO
00000
00000

SYMBOL TABLE
SET VAL
AtOl'll
CPlUS
FLONE
LC .. '
NINES
PICK
TEST
l

00952R
OIOOOR
00152R
U0604R
0057JR
00499R
OOIOOR
001l2R
000'l6R

RETURN
ALPHA
tlERO
LCNI
LCNl>
Ol'jEl
SAVE
TEST!
lEROt

00044.
00066.
00594R
005JJR
0058311
00511R
0001711
00H2R
00244R

"'OSDIG
ARET
EDGAR
LtNZ
LOGE
OVFL
SIGN
TESTZ
ZIIES

02401
0034011
0000011
0054311
005na
00)I0Il
001Q811
00592A
0044,11

ACONI
AZERO
FAC
LeN)
LOOPA
P

SU

TEsn

00979R
004~ .. ,,

0006611
0055311
00416R
00000
0100,R
0020.11

ACDN2
BETA
FATNI
LCII4
LOOP2
PCK
STOllE
UNFL

00989R
00098R
OOOOOR
00563R
00652R
02365
0034411
0042411

19170 ••••••

20010
20012
20014
20016
20020
200)0
20050
ZOf/60
Z0070
200.0

RELOCATA8LE SPS ARt TANGENT
OSA FATNI
00004 00005 -0000
DORG EDGAR
00000
FATllII rFM PCK+5
.·+20
00000 10 02]7 n 00020
.1
B1
PCK
III TO PltK AND RETUll!
00012 49 02 ~., 'lOOOO
DC
50.0' 5 550505' 50000550'00000050550'0'1050$050005000505[" J!j,)
Dono 00051)
.+)2
BO
til FilII lElia NANTISU
.8E"'-9
00020 ML 00052 00089
TR
FAC-9
.A lERG-9
00012 LJ ooon 004"
lit TURN B1
STURE
00044 '19 00.44 00000
CII
BETA
.-)
.10. IS NIIN,IR TOO SMALL
000112 J4 00091 OOO-L
TR
.BETA-9
"'t-9
000•• LJ 00057 00019
STORE
opon MT 001.4 OUOO
'L
TFM TEST+U
.OT. 110

•••

,D.

..

.,1'

US

PAGE
200'10

TO

THU9

lOIOO TEST
ZOllO
ZOllO

CF
eM
8H

1
lETA
C PLUS

,1

,0,

,0

.10.

.0.

YES
EQUAL ZERO

8E

lERD C

.0.

TF"

TEST )+11,1

,07.

}01~0

A

JOlhO
20170

TFN
CF

TEST 3+1I.IETA
BETA-I0 .0
1-7

.10

10180 TESf]

TF

lOI)O

000. .
STORE SIGN OF MANTISSA
00100
00112
IS CHAR POSITIVE 00124

,0,

10

J6 00121 -0000
ItN 00121 0009'
L) 000'16 00000
J4 00091 000-0

•
00U6 M' 0015Z 01100

,

YES

00148
ND CHAR IS NEGATIVE
00160
0017Z
00114

M' OOZH 01200
JD 00ZI9 -00'1'
ItJ 00Z19 00098
J6 00088 000-0

·

··
··

00196 L) 000''1 00000
OOZOI K6 0009. 00000

,-10

TON

1-1

}OlO(l

CF

l-.

11(110 ZERoe

CN

1-6

.29

lIU10
?I 010

8L

"N

ARET+36
1

·

11040

TO"

90

.-1

00220 J5 000a9 000100232 L3 000'10 00000

.SIX

210~0

21060
21070

TF
DC

21080
210'10
21100 ARET

LO
0

21110
21120

TF
SF

TO

SAVE

211~0

21160
21170
11180 LOOPA
211 '10

,l

ql

92
• SAVE
TEST 2-13.'19
.90

1

TEST+II

TF"
TFM

SAVE
.'11
LOOPA+II .LC'll-1
.... q
,4

"STF

LCN2-1
FAC
FAC

• 91

FAC

.SAVE

21200
ZlOIO

l2020
22030
22040

• 10,

00244 J4 000'10 OOOK'I
00256 "7 00376 01100
LARGER THAN PO INT 2'1
•
00268 Jl 000'16 000-6

·

·

00280 15 00090 OOOOJ

.1,

00292 KK 0009. 01008
00304 K6 00077 00098

.98

.1

Tf

,a

50.0~050050005~500S0055505055000000555055000000000000.350

liDO

21140

.6

.0.

..
.0.
..

,0 7,

HAROWARE DIVIDE

EIGHT OIGITS

LOOPA-I~

B~l

lOUP A

•

TF

FAr.

,ONE 1.-3

LOOPA"l1 ,10

.1

·
·
·
·
·

00340 K5 00519 00099
00352 K6 0009h 00090
00364 l2 00123 00000

EIGHT DIGITS
NINE DIGITS

00316 KL 00096 00096
00388 K6 00077 ,00091
00400 JO 00~47 -0552

,010 •

00~12 J6 00~21 OOO-~
00~2~ KL 005~2 00071
00436 K6 00066 00000

, SAllE

AM
SM

00350 00050
00316 2Q 00091 00096
00328 2R 00092 00011

00448 K2 00066 l0011
SEVENTEEN DIGIT PRODUCT
00460 KL 00066 00071
00472 J I 00~41 aOOJO
.010
00~B4 J2 OOHI 000-1
,010.
00496 Ml 0041~ 01200

.0.

·

00508 KO 00066 00510

·

FAC

22050

H6

00520 K2 00066 00091

PAGE
22060

FAG

.l

22070

TEST

,TEST+ll

"·24

t

22080

BNF

22090

SF

,01,

TEST2-13 ,01,

tl

·
·
·
·

00532 KL 00066 00096
THAN .29
005~4 HM 00591 00123
6R IF QUOTIENT WAS POSITIVE
00556 MM 00580 ~0519
8R IF • WAS lESS

00568 32 00091 00000
22100

IA CON 1

,I.

,TEST+-IO

,01,

·

00580 2J 00091 00919
22110 TEST2

6NF

22120

SF

22130

DC

'+16

DR IF CHAR NOT I, 2, 1, "

,

005'12 MM 00628 00122

22140
21150

TF"

22160
22110 lOOP2

TO
BO

22180

SM

22190

TR

22200
23010

TU
81

21010
23040

SF
TF

23050 TEsn

61'1F

2301>0
23080 CPLUS
23090
23100

B7
TF
CM
8H

ZlIlO

TF

Z3120
23130
11140

A
TOM

23150

SF

·
·
·
··
,
·,

0060~ 32 00091 00000
50.005 00 500500000000050505005500055050500500505005000. 350
00350 00050
91
,A CON
00616 1J 00091 oO'la'l
,la,
F.\C
.Ol
00628 J6 00066 000-1
92
.BETA+I
006~0 21'1 00092 00099
TES T 1-2~. 82
NORMALI ZA TI ON
.0.
00652 1'13 00108 00082
FAC
,10,
.1
00664 J2 00066 000-1
82
.K]
00676 31 00002 00083
91
.NOS DIG
00.88 25 00091 0~401
lOOP
,a,
00700 M9 00652 00000
82
00108 12 00082 00000
FAC-2
.89
00720 K6 000'4 00089
STORE
, I, TERMINATE SU8ROUTINE CAl.CULATlON
• TEST+9
00712 MM 00344 00121
SIGN+12
00744 "9 00120 00000
CHAII
PDSITIVE
00752
ZO 00091 00'93
91
.C ZlRD-l "
BETA.I
010.
00764 J4 00098 000-1
TEST 2+Z~.
,0,
IR IF CIIAR GREATER THAN EIGHT
,
00776 M6 00616 01100
FAC-2
ADJUST
PDSITIDN
DF
1
IN
NUMERATDR
,t IEIID-J "
00711 ltD 00064 00'91
.FAC-IO
00100 JO 00810 -0051>
'+18
.OETA
.0
0011 2 KJ Dono 00098

.1
OO'Z~

21160
23170
23110
231.0
21200
2~010
2~020

LD

o

FAC-9
90
90

,FAC-2

.1
,12

80

sn

eM
IH

UTA
,4
TISU+12 ,

DC
Tf

10. '000'00010. no
Z
,90

VAL

,a,
,10

,0,

oOln
HARONAIIE DI V IDE DOl. .
00160
811 IF • EQUALS DNE
OOIU
00.14
IR I' CHAII IQUAL I, 6.
00191>
oono
ILIMINATE LUDING ZERO
00901

U

·
·•

00000 0000 I

L2 00057 00000
2Q 00090 0001>4
2R 000.0 0009.
"I oonz aDDU
J4 00091 000-4
7, I
M6 00604 0 !too
00010
U

00096 00090

147

PAGE
240)0

SF

TEST.IO

24040

SF

Z-l

H050

81

ZUO C

to.

12

•
,

00920 L2 00122 00000
009)2 L2 00089 00000

,0,

,

00944 119 00244 00000
24010 SETVAL TR

,ACON 3-10,1,

SET TO VALUE FOR X EQUAL ONE
00952 LJ 00057 00990
00964 N9 00732 00000

,24100 AeONI

B1
DC

TEST
9

24110 ACON2

DC

10

2,4120

DC

8

24130 ACON3

DC

,00' , t

HI40 SIX

DC

,60000000

OS

,SETA-2

540 419 500
00979 00009
,I 570 796 3Z7 .. UC TAN OF PlOVER TWO
00989 00010
78 539 S16 .. ARC TAN OF P lOVER FOUR
00997 00008
01000 00003

HI~O

01008 OOOOS
00096 00000
01091

DENu 01091

SVMSOL lA8lE
A~PHA

NOSDIG 02401
o
0009SR
FEXT I OOOOOR
LeN3 00553R
LOOPE 00336R
P
00000
srnRf 00344R

00D66R
EDGAR OOOOOR
FE XI
00020R
LCN4 00563R
NINES 00499R

Pcx

0236~

UNH

00424R

241 bO ••••••

24180-

2~010

2
25050 FEXI
25052
25054
25060

NOll
PICK
ZRES

004S8R
0060U
00604R
00573R
00084R
OOIOOR
0044U

8ETA
EXCNI
LCNI
LCN6
ONEZ
SAVE

00098R
00645R
OO~UR

00583R
00513R
ooonR

SPS FLOATlIIIG POINT EXPONENTIAL
HASTINGS APPROXIMAfION
,FEKI

H·XTl

l!»lO() NOTZ

eM

0

2'110
25120
25130

BNH
M

FE Xl +44
LOGE

.-8
,0-2

eM

0

,1

ClERO
FAt
LCN2
LOGE
OVFL
SIGN

00514R
00066R
00543R
00523R
00380R
00308R

,

00004
00009
OORG EDGAR
00000
De
3A
• 0.500050000 0~55505000 5550000000 00050005
00H8
TF..
NOT Z+ 30 ,ONE 1-2
,07
00000
81
FEXI+12
00012
TFM NOTZ+30 .LOG E
,07
00020
T~M
PCK+S
,.+20
,11
00032
87
Pt'.
, ••
IR TO PCK AND RETURN
00044
8U
NOT Z
,0-9
,0,
ZERO CHECK
00052
fR
FAC-9
,F LOIIIE-9
00064
87
STORE
00076
OSA

25020 FElTI

AlERO
EROUT
FLONE
LCN5

00005 -0000
00005 -0020
, J38

00038
JO 00114
M9 00032
JO 00114
10 02310

-0511
00000
-0523
-0052

49 0236111 00000

,

ML 00084 00089
LJ 00057 00595
M9 00344 00000

,

.10,

00084 J4 00098 OOO-Q
00096 M7 00064 01100
00108 KL 00523 00096

,

,10,

J 48

00120 J4 00098 000-3
PAGE
25140

8l

25150

BNE

.0.
ROUT

,a,
,a,

00132 M7 00168 01300
,
00144 "7 00604 01200
HI ORDER NOT ZERO
•
00156 M3 00604 000S2
OVE R OR UNDER

25160

80

25170

tF

82

25180
25190
25200
26010

TF
TFM

81

.C lERO-2

e+30

,80

,010, POSITION HAG

A

e+18

,0

,0

AM
AM
SV

26060

AM

26015

DC

26080
26100
26110
26120
26130
26140 lOOPE
26150
26160

TF
SF
TFM
TF
iFII
A

26040

M

TF

26110

51!

26180
26190
26200

8NZ
AM

21010

II

21020

SF

270)0

TF

27040

TO

2701>027010
27080
27090
27100
27110

nuo

INF

C
SHE
SM

87
DC
TF

27140
11110

LD

27160

o

21110
271.0
2n90

,82

,

00168
00180
00192
00204

H 00082 00000
20 00081 00592
J6 00222 OOOQO
KJ 00222 00098

,

SF

26050

26020

ROUT

,

IIUST CALC

TF

SF
AM

27200

B7

U020 fROUT

ifM

00216 32 00000 00000
,01
,OlD, SET CHAR EQUAL
00228 Jl 00222 000-1
·-6
--18
.01
,0610,CHAR PLUS ONE
00240 J I 0022K 000-1
E ROUT
OVER OR UNDERFLOW
,
00252 M6 00604 01400
.-42
,010, MOVE IIANT AND CHAR
00264 JI 00222 000-9
40
,5050005500 50~5500000 0050550050 5555050050
, HO
00340 00040
FAt ••
,.·54
00276
KO
00075
.II
0022K
FAC+I
0028S L2 00061 00000
LOOPhll
,017, INIT CALC LOOP
00300 JO 00)47 -06~5
III I
FAC-2
,C ZERO
00312 KO 00064 00594
LOOPE-) ,7
.010, COUNT
00324 J6 00333 000-7
FAC-2
00336 KI 00064 00000
FAC-Z
,FAt.9
00348 Kl 00064 00075
FAt-2
,90
00360 K6 0006~ 00090
LOOPE+ll ,II
,010. ADJUST lOOP VALVES
00312 Jl 00347 OOOJI
. ,384 J? 00333 000-1
LOOPE-3 .1
,010,
LOOP E
,I
,0
00396 M7 00336 01201
FAt-II
,10
,10, ADO ONE
OO~08 JI 00055 OOOJO
FAC-J
,FAC-J
00420 KL 00063 00063
81
00432 32 00081 00000
FAC-2
.11
004." K6 00064 00018
,BETA.I
FAC_'
DOltS!> Kill 00067 00099
CHECK FOR PlEGUIYf
'00468 Mil 003~4 00091>
STORE
.0-2
.ONfl-S
00480 21l 00018 00501
•• J2
,
,0
00 ..92 "7 00524 01200
FAC
,I
,10
00504 J2 01.';' .... 000-1
EtlQUT-U •
,0
00516 N9 0, ,~' < 00000
20 ,5005055050 5050'"550
.320
0007"
SAYE
t,9
OO!U4 K6 [HOn noon
92
.ONE Z-3 ,.
HA.OIIARE DIVIDE
L
OO!n' ZQ 00092 00510
92
,SAVE
005'11 211 00092 00011
FAt-2,90
00560 R6 00064 000.0
FAt
00n2 U 00066 00000
FAe
,01
,10
00'" JI 000. . 000-1
STOlte
00596 " ' OOJ •• 00000
ZIIU+IO, STOllE
00804 JO 00411 OOU.

,1 00011

28090

DC

Il

7~IOO

DC

II

7Z 9511 367"
00618 0001l

74."

254 39)5

18110

DC

II

, 662 nOI 141"

28120

(lC

II

,1151 1917 760"

1~11~

OS

00689 00011
00100 00011
00111 00011
00098 00000
01102

,8fTA

l'fNI)

IIIIO?

SYMBOL TABLE
NNINES
R
FAt
LCN2
LNTEN
Ol'fez
SAVE

02401
.,HO ,10418R
rt,GAR DOOOOR
lCNI
U05J3R
LCN6 ~OS83R
.. INf.S IJ049QR
PICK
'olOOR

F"[1I1;.(lI('

'R.F~

2~1~d

00B65R
00096R
00066A
005HR
00157R
OOSHR
00077R

MULlOG
lETA
FlNI
LCN3
lOGE
OVFl
SIGN

00H6R
0009BR
00020R
00553R
00523R
00380R
003DeR

EVALPN
CaNST
FLOGI
lCN4
lOOPL
P
STORE

00156R
008UR
OOOOOR
00563R
00392R
00000
00]44R

ALPHA
CHRO
HONF
LCN5
MlIl"
PCK
UNFL

00066R
00594R
00604A
0051lR
00524R
02365
004H'

1041t8R

••••••

2Pl90 .,.OGI
l820"
~q020 •• , •••
29050 ~ .. NI
lqO~4
;90S~1

Z0 060
l~O10

290ao

20000
?9100
29110
2q(]0
291.0
29150
2q 170 ••••••
29180 ••••••

RH I)CATA8lE SPS FLOATING LOG
OSA FLOGI
,FlNI

,

00004 00005 -00(10
00009 0000\ c~('o
00000
00000 J~ 00513 00009
00012 ,,9 00032 00000

,

00001
-0052
00000

OORG EDGAR
TOM MUlM-11
,'I
,0
,a
87
FlNI'12
RELOCATABlE SPS FLOATING IN
,a
00020 J5 00513
10M MULM-ll
,I
,17
00032 10 02370
TFM PCK.5
,-+20
00044
4'1 021bN
PCK
,6
81
42,500500000000 0550000050 5000550000 5555050550 ,350
DC
00350 00042
00052 l] 0008'1
8-1
CF
,0, 8R IF MANT NOT LERO
.8-7
BO
."Sb
00064 III 00120
00076 15 00401
TOM 401,0.11
,NNI NES
,6
00088 20 02]9TF
'CK'25
,+99
,610
00100
16 0238~CK'15
TF"
,6
PCK+l0
00112 "9 0237N
Bl
,0,
8R IF MANT IS POSITIVE
EVAl PN .B
BNF
00110 MM 00156
00132 l] 00096
CF
00144 I~ 00"01
TOM 401.0
X EQUAL PN SO THAT X IS GREATER THAN
EVAlUATF
ONE HALF AND P EQUALS I, 2,", 8

.

OOOOU

00089
000000865
OOOR9
00000
00096
00000
00000

150

PAGE
29\90 HALPN

TF~

:!9:?OO

TOM

)0010
10010

eM
RNl

1.00Pl.IU7,CONST
0-8
01
B-1

015

_+44

30030

A

30040

AM

lOOPl'lOl,1I

10050
30080

81
TF

·-60
FAC-2

10110
301'0
]0150
)0160
]0\70
]0180
]0190
30200
31010 lOOPL

LO
0
TF
DC
SF
SF
~

TF
A
TF
TFM
TFM
A

31020
31030
31040
]1050
31060
31070

M
TF
AM
5M
8NZ
M

31080
31090
11100
11110

S
NOP

31120 MUl"
31140
31150
)1160
)1165

M
A
C
TR
DC

)1170
11180
)1190
J1200
)2010
12020
12010
12040

IE
T'"
TD
TO
80
TR
511
TO

n070
nOlo

I_

TF

S

17
SF

,
,B

0049'1 -OBII
00088 OOOOJ
00089 OOOJ~
HALVES
002]6 01300
00096 00096
004'19 -0011
00168 00000

,

00236 KO 0006. OO(H~b
SET NUIIERATnR eQUAL X-I
00248 KK 00064 00572
89
,FAt-2
HARDWARE DIIIDE 00260 2Q 00089 00064
89
,8
00272 2R 00089 00096
B
,90
00284 K6 00096 00090
46,5050555055 5505005055 5000000055 0550500005 050555, ]50
OO]~O 00046
8
002Q6 l2 00096 00000
8-9
00]08 l2 00087 00000
8
,8
TIMES
00]20 KL 00096 00096
SAVE
,89
00]]2 K6 00077 00089
B
,I
003,,4 KJ 00096 00096
PLUS Z
FAC
,CZERD-I
00356 KO 00066 00593
LOOP L'll,LCNI
,07
00]108 JO 00100] -05H
,6
,010
00]80 J6 00389 000-6
"9
FAC
CALC SERIES USING Z SOUAREl'I
001Q2 K I 0006b 00000
FAC
,SAVE
00404 Kl 00066 00071
FAt
,19
00416 Kb 00066 00089
,07
lOOPl'l1 ,10
00428 Jl 0040] -0010
LOOPL-] ,I
,OlD
00440 Jl 00]8'1 000-1
lOOP l
,0
00U2 "1 001'12 01200
FAC
,B
CONYERT TO DOD POWERS OF Z
001064 Kl 00u66 00096
89
,8
00476 21t 00089 00096
8
00488 KIt 00096 00000
,.9
I
00500 KZ 00096 00019
,0,
"ULLoG
IR I F LOG CALC RATHER THAN LN CALC
00512 Ml 00736 00000
LNTEN
,8.2
,0
00524 Kl 00857 00098
99
00536 ZJ 00099 00096
97
,C ZElIo
0054. 2M 00097 005'110
FAC-9
,AZElIo-'I
0"60 LJ 00057 00479
31 ,5000000500 0000000000 0000000000 555050"
,U8
oonl 00038
STORE
.., IF X NAS ONE. 00572 116 00.144 DIZOO
PCIt+1S
,OJ
,610
00"4 16 one- 000-)
FlNl+7
,99
,0
00196 lIS 00027 00099
99
,IETA+l
0060. 211 00099 00099
,17
,0
.+"
006Z0 " ' 00676 00017
17
00.J2 II 000.7 0001.
,01
,610
00"4 12 one- 000-1
91
,lIDS DIG
00656 as 00091 OZ401
.-4.
00668 119 00620 00000
IT
0067. II 000.' 00000
•• Z4
,'Llllo7
0061. 11M 007lZ 000Z7
SIT 'LAG

FA[-2

10090
]0100
lOll a
10110
)0175

,8

,017.
00156 JO
.11 , SET X EQUAL X PLUS O'IE
00168 J5
,10
00180 J4
.0,
8R MODIFIED X MORE THAN]
00192 M6
SET X EQUAL
PLUS x
00204 KJ
,07,
STEP LN P FOR P EQUAL p.p
00216 JI
,0
00228 ~9

,LCN5-1

,

..

,.

,

""15

,

.

..

,Ol,

U/

15

,aGE
12090
12100
U110

lnJo

U140
)2150
:tt160
U1J.0
1nlO.
12200.
)]0,10
11020,
130)0
33040
330.45
n050

SF
TF
•
IIULLOG· TOil'
II
TF
SF
II

n

COIIST

....

94

pcun

PCII+10
7.
LOGE
B
B

DC
DC
DC
LNTEN DC
MINES DC
8
DS
DEND

••••

•

.8

.It

•.8+2

IJIIIEZ-2
IIULIII+12

~C,

00700
00712
00724
00716
00T41
00160
Don 2
00714
OOT96
008n
00824
00U5
00....
00851
DOl.,
00096
0.1122

·

.0

11
.0
11.-6931471805
1l.-1116t94J611
11.-2079441'416
11. nOZ5850929
8,-99999999
,BETa-2
0.1122

16

12 00094 00000
U
0009•
...
TN 00000
OOOT. 00000
IeL
00096
1e6 00096 00089
L2 00096 00000
IlL 00511 00091
1119 00536 00000
00011
00011
00011
00011
00011
00008
0000.0

out-

.S au
oosn

SYIIBOL TABLE
NDSDIG
EDGAR
LCN2
LOGE
PtK
UNFL

ALPHA
FAC
Lon
NINES
PICK
lRES

0.240.1
oooaaR
0054311
0.052311
02365
00424R

33060 0
H020 FSRSI
340)0
34050
34055

34060
)4070
34080
340.90
34100
]4110

34150

aDa66R
aaa66R
0055)R
00.49911
OOIOOR
00448R

A1ERD
HONE
LCN4
ONEZ
SAVE

BETA '
FSIISI
LtN5
UYFL
SIGN

Da488R
006D4R
0056)R
0.051111
00077R

aaD9aR
aOOOOR
a0513R
a0380R
aO)OIR

CZERO
LCNI
LtN6
P
STORE

aa594R
0.0.5])11
a0583R
00.000
00)44R

PICK FLOA TI HG SH I FT RIGHT ROUTINE
0.00.04 oooo~ -0000
OSA FSRSI
00000
DORG EDGAR
, •• 20
00000 10 02310 -0020
,17
TFH PCK+S
BR
TO
PltK
A!fO
RETURII
.6,
PCK
B7
00012 49 0236N 00000
,PCK+l5
.011. SAVE FLAG ALPHA FIELD
BNF
-+24
000.20. M4 00044 0.23800.312 00012
.5000000.000. 0.5 ,312
12
DC
000)2 L2 00.0.98 00000
SF
BETA
,PC.HiS
,611. lERO ALPHA FIEla 00044 22 0238- 0238PCH15
S
.10, LOCATE HI ORDER FLAG FROM 8 OPERAND
PCH20
,I
SM
00056 12 02385 000-1
00.068 M4 00056 02)8N
,Oil
,PCK+20
BNF
--12
,6,
REMOVE FLAG FROM B OPERAND
PCK+20
Cf
00080 n 0238N 00000
,6,
MOVE FIELD TO A OPERAND
,8ETA
TF
PCK+15
00092 20 0238- 00098
RETURN TO MA I NL! NE PROGRAM
.6,
B7
PCK+l0
00104 49 0237N 00000
01141
DENO 01141

SYMBOL TABLE
ALPHA 00066"
00066R
FAC

NOSOIG 02401
EDGAR ooooaR

AZERO 00488R
HONE 0060411

BETA 0009BR
FSI.SI OOOOOR

CZERO 00594M
Ltlu OU533R

00573R
D0380R
00308R

LCN6 00581R
00000
P
STORE 00344R

J52
PAGE

LCN'
LOGE
PCK
UNFL

00543R
00523R
02365
00'74R

)41500
)5020 FSLSI
)50.30
35045
35050

35060
35070
35080

LCN3
NINES
PICK
lRES

00553R
00499R
aOIOOR
DOH8R

00563R

LCN4
ONEl
SAVE

LCN5
OVFL
SIGN

l)a~UR

00071R

PICK FLOATING SHIFT LEFT ROUTINE
00004 00005 -0000
Of-A rSLSl
00000
DORG EDGAR
00000 10 02170 -0020
,17
TFM PCK+5
,-+20
8R TO PICK ANO RETURN
,6,
PCK
87
00012 49 0236N 0.0000
00314 00014
,314
14 ,0550000000 0005
DC
FIELIJ
SAVE
SIGN
OF
B
0-1
,0,
,BETA
TO
00020 KN 00019 00098
00032 L 1 00098 00000
CF
BeTA
PROVIDE WORKING ADR OF 8 FIELD
~CK+)O
, PCK+20
TF
00044 26 02395 02385
SUB TO ESTABLISH LENGTH.
PCK+)O
SM
.1
00056 12 02H5 -0001
ADJUST A FIELD AOR FOR EACH DIGIT
AM
PCK+15
00068 11 02380 -0001
00.080 H4 00056 0239N
,PtK+)O
,011, IN 8 FIELO
8NF
--24
,6,
"'OVE B FIELD TO ADJUSTED A FIELD
TF
,8ETA
PCK+15
00092 20 0238- 00098
00104 24 02380 02385
,PCK+ZO
PCK+15
C
8R WHEN NO IIORE ZEROS REQUIRED
,0.
aNN
00116 116 00160 01300
AOJ AoR OF A FIEl"
AM
PCK+lS
00128 11 02)10 -0001
MOVE IN lERO RT OF DATA IN A FIELD
,a
TOM PCK+l5
,6.
00140 is 0238- 00000
00152 M9 00104 00000
87
.0
,FSLSUI9 ,16, RESTORE PROPER SIGN AND
8NF PCK+1a
00160 10M 023711 00019
RETURN TO MAINLINE
SF
PCK+ZO
,6.
00172 JZ 0231N 00000
00114 49 0237N 00000
PIIOGUM
PtUIO
B7
01151
DEND 01151

"

350.90
35100
35110

.....

35120

35130

"

35140
35150

,

·-It'

35160.
15180
15190

"

.6.

35200

0, '
SYMBOL TA8LE
NOSDIG
EOGAl
LtN)
NINES
PICK
UIIFL

ALPHA
FAt
LCN"
UNU
$AVE

02401
OODOOR
005UII

0049'9.
00100R
00U4.

161500
)6020 TFLU
S6010

lRES

00066R
000. . .
Q05638
005U.
OOOTU

0_'.

PICK ' ••NSMIT
DSA TFLS1

OORG EDGAR
f"M i'C1e . .
87

PCK

AZEIIO DOlt ....
FLOHE 00.0It.

Ltlll5
OYF\.

SIGH

oons.

oonOll
0010••

BETA
LCH1
LC...
P
$lORE

00091"
00513R
0051)11
00000
OOS4411

FIELD fLoaTING llDUTIHI
,17

,6.

811 TO PICK ANa

tlERO ~~. ,i\'
LCNZ r:I"",,,1.1
LOGE CoSUIl
.. JUS
PCK
TFU1 OOOOOR

00004 00005 -0000
00000
DOOOO la OilTO -0020

If'."

17

PAGE

If>01~

Ot
TF

~

)6040
)60'0
'1>060

TF
87

PCUZ!I
PCU10

DUD

,OSO!l,l"4
,IUA
PC ... l '

,6,

,IUA-Z

,.,
,6,

01161

OOOU 49 0236N
00)04 00004
1II0VE CHAUCTEIUSTIC
00020 20 OUI00012 20 02191II0VE NANTISSA
RETURN TO IIAINLINE '.OGUIII
00044 49 OU1N
01161

18

00000
00098
00096
00000

SYIIIBOL TAIU
"OSDII; 02401
CLERU OO~q'R
LtNl 00~4'R
LOGE 005HR
PCK
OZJ6~
UNFl. 00~24R

l r07(Ja

1hli0 8TFSI

''''120
]M30
J6115
3&140
1bt"'tO

]&160
1'110

AL'HA
EDGAR
I.tN)
NINES
PICK
lRES

00066R
OOOOOR
00~51R

00491R
00100R

AlUO
FAC
LCN4
UNfl
SAVE

0041111
00066R
00563R
00513R
00077R

lETA
FLONE
LCN5
OVFl
SIGN

00091R
00604R
005UR
OOllOR
0030lR

ITFSI
LCNI
LCN6
P
STORE

000 OaR
oasHR
005UR
00000
00344R

OO~UR

PICK FLOATING lRANCH AND TRANSIilIT ROUTINE
00004 OOOO~ -0000
OSA BTFSI
00000
OORG EDGAR
00000 10 02370 -0020
,e+20
,11
TFM PCKt5
RETURN
AND
,6,
BR
TO
PICK
PCK
67
00012 49 0236N 00000
ADJ ADR TO A FIELD-J
PCK+25
SM
,I
00020 12 023QO -0001
00350 00006
,050005,350
&
DC
00032 20 0239- 00096
PCK+25
,6,
IF
,BETA-2
"OVE "ANTI SSA
S
TORE
RETURN
ADR
or "A INLINE
,0,
,PCK .. 1O
TF
··30
00044 K6 00014 02375
ANa
MOVf
CHARACTERISTIC
,6,
BR
PCK+ 15
,BETA
BT
00056 2P 02)B- 0009a
BII TO "AINLINE WHEN 81 OCCURS
01
00068 49 00000 00000
01111
DENn 01111

154

PAGE
SPS liD MONITOR I

SUBROUTINE SET 02

SYMBOL TABLE
NOSOIC
LNIO
P
SIGN

02401
00763R
00000
00406R

It.PHA
lOGE
PC'
STORE

00050R
007\5R
02365
00441R

BETA
NINE
PICK
UNFl

00196R
00808R
0019811
00518R

CLR
0090~R
ONEl 00621R
PIOV2 00668R
lRES 00530R

EDGAR OOOOOR
OVFL 00474R
SAVE OOIOOR

SPS liD SU8ROUfiNE SET 02-VARIABLE LENGTH 24 APR 63 ••• JHB
PCK AREA MAY BE USED AS A WORK AREA IF SUSR NOT USED. IF
SUB~OUTINES REQUIRED, THEN THE AREA IS US EO AS FOllOWS
01 LOa ••••••
OHOI
NOISE DIGIT.
SOURCE,SUBROUTINE SUPERVISOR
OIL lO ••••••
PCK
AOR OF PICK.
SOURCE,SUBROUTINE SUPERVISOR
01120 ••••••
PCK+~
ADR OF RETURN TO SUBR.
SOURCE ,SUBROUTI NE
01110 ••••••
PCK+10
ADR OF RETURN TO MAINLINE.
SOURCE,PRI"ARY LINKAGE
01140 ••••••
PCK+15
AOR OF A OPERAND CHARACTERISTIC.
SOURCE,PICK
01150 ••••••
PC'+20
ADR OF B OPERANO CHARACTERISTIC.
SOURCE,PICK
DllbO ••••••
'C.+25
AOR OF A OPERAND "ANTISSA.
SOURCE,PICK
OIL 70 ••••••
ADR OF B OPERAND MANTISSA.
SOURCE,PICK
PCK+30
PC.+Jl
RESERVED FOil POSSIBLE RECORD MARK
01180····· •
01190PC.+35
4 RESF.RVED CORE
01200· •••••
PCO-6 THRU PCK-90 SUIVEC FOR THE 11 FURNISHED SUBROUTINES
02010.
AORS AilE SUPPLIED BY THE SUBROUTINE SUPERVISOR
02020 ••••••
PCK-91 DOWN TO ENO OF 10RT MAY BE USED IF NO ADDEO SUBROUTS,
02010 ••••••
PICK FOR VARIABLE LENGTH SUBROUTINES
'
02040 ••••••
FOR OPERANDS A AND B ONLY
02080 PCK
OSB
5
,8
,2365
02365 00040
NOISE DIGIT FOR SUBRS
NOSDIG OS
I
,2401
02401 00001
EDGAR OORG
00000
"I
00004 00005 -0198
OSA PICK
.-4
DORG
00000
51
00050 00051
02100 ALPHA OS
, ALPHA-ALPHA
00000 00000
02110 P
OS
0
50
00100 000'0
02130 SAVE
OS
00196 00096
02140 BETA
OS
96
00191 00001
OS
1
TO
401
,BETAOl-P ,I,
02160 PICK
RESET EIlIlOR INOICATOII
00198 2N 00401 00197
TR
,PCU10
02110
PCUll
.11. IIIOVE OPERANDS FIIOM MAINLINE
00210 31 02316 0231N
AM
PCKOlO
,11
CALC RETURN ADR 00222 11 02315 -0011
02180
BNF
,PCU15
PROCESS A OPERAND
02190
00234 1114 OU211 023.0
PCUU
02200
CF
00246 J3 02310 00000
03010
00251 26 02310 0111TF
PCU1S
,11
,'CU1S
03020
,0
11
'-36
00210 " ' 00234 00000
03040
TF
PCU25
A IIIINUS 2
00271 26 023.0 02110
"tll+15
5111
,2
00290 12 02]'0 -0002
03050
"11+25
BNF
I OPERAND
03060
,'1:11+10
00102 114 00]46 02]1'
PCII+20
CF
00314 ] ] OUI. 00000
03070
03080
TF
PCII+20
,lI
00J26 26 0131. 021lN
,"11+10
.-J6
03090
ODSSI 1119 00S02 00000
11
01110
TF
•
IIINUS
2
,'1:11+10
00'46
2. 02S'5 0211.
""+30
01080 ••••••
01090 ••••••

•• ,.4

,

••••

....

,.ocess

155

oiu'o

$..

lleuta

•a

03UO

TF

IUA

.,ell+20

IIn&-,

'O)HO

Tf

'Oil 50

IIV

"CII+I

0)160 SIOII

IMF

,

01110

onlo

03'(90 STOR'E

Sf
A.
TF

AL'HA'"
,cut5

'OUOO

TF

,e. .

..,.

.u.
.n.
.1 •

.'CII+30

,6.
,99

"

,00
,&\'I'HA-'

,10.
.6.

,ALPHA

,.~

&\"H'~Z

u

'II. •
DELII.IAT. OVII.LOV
00351
MOVE I CHAR TOIIETA
00370
MOVE • MNT TO IETa-Z
00312
IIITUAN TO SUI.OUTI NE
00)'4
AffiX PROPER SIGN
00406
OOUI
SET INOICATons
00430
IIOYE ALPHA-Z TO "' IIANT
0044Z
IIOVE AL'HA-Z lO " CHAR
004,.
004"

12

onu

00002

116 00L96 0231N
116 Don. OU,"

.

46 0237- 01400
00430 00099
LZ 00048 00000
Jl 00041 000-0

'0 OU9- 00048

20 023'- 00050
87
PCII+IO
49 02J7N 0000'0
.6
DC
12
,0100000001 ,312
oonz OOOU
TOil 401
,-I
00474 I ' 00401 OOOOJ
TF
PCII+25
,NINE -45 ,6,
,+L
00486 "0 0219- 001U
TFM 'CU15
,99
,610
004" 16 0218- OOOU
87
'Iln+,.
00510 "' 00'15. 00000
TOil 40-1
,I
00518 15 00401 00001
TF
,+L
.CLR-96
00530 20 0219- DOlO.
'CUZ5
.6.
TFII "C1(+'15
.-99
,610
00'4Z 16 0238- OOORR
aM
,00
'CUI5
.610
00"4 11 0219- 000-0
PC'UIO
87
,6
00566 4. 0237N 00000
SHARED CONSTANTS
49
DC
,1000000000000000000000000000000000000000000000000
00621 aDO'"
OC
H
,1570796]2679489661923132169163975144209"846996
00668 00047
47
,4342944819012518276511289189166050822943'1700580
DC
007lS 00041
~C
48
.2302n5092'194045614017991"54bR436420760110148862
0076] 000"8
45
DC
• 999999999999999999999999999999999999999999999
00808 00045
OS
~6
96 ZEROS
00904 00096
48
,0
00904 00048
DC
49
,0
,--41
00851 00049
DC
DENa 02001
02001

,

040'10
040.0
04030 OVFl
040S0
040611
04010
04090 UNFl
04100 ZRES
04110

,

OltllO
04'140'••••••

04150 ONH
04160 PIOV2
'14110 lOGE
04180 lNIO
04190 NINE
04200 ClR
05010
05020

,.

"

SYMBOL TABLE
NoSQIG
EDGAR
OVI'l
SlYf

02401
Oan'OOR
00474R
001'001(

05060

ALPHA
lNIO
P
SIGN

00050R
00763R
00000
00406R

BETA
LOGE
'CK
STOllE

DSA DIVNI
oORG EDGAR
TR
'PCK+1I

,PCI(+IO

AM

,21

PCK+lO

00196R
00715R
02365
00442R

.11.

ClR
NINE
PICK
UNFl

00904R
0080iR
OOI98R
00518R

DIYNI
ONEZ
PIOY2
ZRES

OOOOOR
0062IR
00668R
00530R

00004 00005 -0000
00000
MOVES DIV O'ERANDS INTO PtK AREA
00000 31 Ol376 Ol37N
CALC RETURN ADR 00012 11 02375 -0021

1,56

PAGE
TF

85
LU
PCU25
o
PtKHO
87
PCK+10
DENa otOIl

05070
05010
05090

,tLR-IO
,PCK+l5
, PCK+20

OOOl" 20 00085 00894

,611
,611

00036 28 0239- 023S00048 2' 0239N 02l8N
00060 49 0231N 00000
02011

,6

SYM80L TaBlE
NDSOIG 02401
BETA OOl96R
FA]
00020R
lNADoOOl52R
NINE 00808R
PCK
02365
STORE 00'''42R

05140
05160
OSl70
05110
05100
06020
06030
06040
06050
06060
06080
06090
'06100
06120
06130
06140
06.,0
06160
06170
0"10
06190
0.,00
0'l0'l0

OOIOOR
00908R
00748R
00763R
00404R
OOI98R
00518R

ADD
ClR
FIX
lOGE
ONEZ
PlOV2
lCI(

OO)4"R
00904R
00644a
00715
00621R
0066IR
0092IR

AOJ
EDGAR
FII3
MOYE
OVFL
SAYE
IRES

00484R
OOOOOR
00564R
00128R
00474R
OOIOOR
00530R

ALPHA
EXIT
F51
MOVED
P
SIGN

00050R
00532R
OOOOOR
OOUeR
00000
00"06R

•••••

FLo'AfiNG POINT ADD,SU8TRACT,MULTIPLY AND OIVlot. VARIABLE L
,FA]
OSA FS3
,FM3
,FD3
0000" 00005 -0000
00009 00005 -0020
00014 00005 -0564
00019 00005 -0748
oORG EDGAR
00000
TFM II'UNCH+6 ,IRANCH+8 ,017, SET UP FOR SUBTUCT
"5]
00000 JO 00106 -alai
91
FU+12
,a
00012 M9 000 32 00000
FA)
,011, SET UP FOR ADD
T'M BUNCH+6 ,INAOD
00020 JO 00106 -0152
TFM PCU5
,e+20
.11
00032 10 02370 -0052
PtK
87
,'6
00044 49 0236N 00000
DC
50507070 0005500050 0005550000 11'0505550 515005 ,346
4"
00S46 00044
TF
ALPHA-P ,PCII+15
.11. MOVE A O'EUNO CHAR
00052 K6 00050' 02)8TF
'AL'KA-l-P,PCIC+Z5
,11. 'IIOVE A OPEUNO "ANT
000.4 K6 00048 0239TOIl AL'HA-Z-P,O
-L
'REPARE .011 LONGER FIELDS
000" J5 00048 0000TDII BElA-Z-' ,0
-L
00011 J5 00194 0000'S.'ANCH' B7
DO 100 49 00000 00000
8NF INAOD-12 ,IEU-l-P
'SVITCH SIGN OF 8 OPERAND
0010. Mil OOHO 00194
' tF
8UA-Z-'
00 120 LIOOn" 00000
87
InDO
.0
Don, 119 OOUI 00000
SF
nfA-Z-'
00 '.0 L' P:: ~ '" 00000'
INAOD TOM '110·1
,I
,0
00112 JI C""I 00001
AOO+lI
.lnA-I-' .Of
00164 JO
-0. ."
C
OOn6 lUI OOC'IO 00196
AC'N'-' .lnA-'
iN
,0.
III IF A CNAR L~Util TMAN t. eHAI
00111 116 OOZ4I 01100
'II
MID
I' CHAIIS fllltAL
'00200 II. OOJ." 01200
ALPHA-l-,.IITA·,-, .t
-L .-L EXCMANGlf'UlDS
'ODZU L~ 0004' 001"
TP
00" . . . DO'" OUa'.00.16 .6 DO'" 'on...

O'5too~

05130

BRANCH
tHGE
F03
llHO
NORM
PICK
UNFl

,

.11.

.Il,

,0.

""

·,,,",1

·.60

,D.

,«

"
5

If,*""

,'CIt,I

....
U""".,
.ALIIMa-,
I.TA·' .'C

.n
•n

,.

......_••• ont.. '00010

1$7

PACE
01020

BV

01010
01040

tM
RL

01050

A

01060

DC

07070
07080
070'10

CF

07100 ADO
01\ 10
07120
(l7110

A
TO
BV
CF

07140

8l

() II ~O NORM

80

07160
07170
07180
07190

SF
TR

07200
08010
0803(1 AOJ

SM
B7

OBOItO

CF

TF
TO

TF

080~0

TOM

08060
08070 Ex IT

AM
8NV

08080
08090
08110 FM3
08130
08140
08160

8NF
81
TF"
TF"
87
DC

08170
08180

8l

081'10

8U

08200
09010 FIX

TFM
SM

09020
09030
09040
09050

8NV
SM

09060
09070

SF
A

TFM
80

STORE-12-P,

IA

If CHAA DIFF TDO LARGE

002'0 M' D04]0 01400
00212 J4 0019' OOORR
IA IF CHAA DIFF GRUTER THAN L
00214 M1 004]D OI]OD
ADO-l1
,IETA-P
SHIFT BY CHAR DI FF
00Z96 KJ 00]55 00196
,0500105005 00505D0110 1-155505000 5510105050 5550
,346
00346 OD044
,IETA-2-P ,0
-+24
00]08 MM DO]]2 00194
ADO-I
,2
.0.
CHANGE TO SUI I F NEG
00]20 J5 00]45 00002
BEU-I-P ,
-L,
CLEAR HI ORDER FLAG
00]]2 L] 00195 00000
AlPHA-2-P
00]44 KI 00048 00000
qq
,AlPHA-2-P,.
STORE SIGN 00]56 2N 00099 00048
00368M6 004h 01400
AOJ
•
,0
AlPHA-2-P,
PROCEEO WITH NORMALIZATION
00380 L] 00048 00000
-P,
8R IF ZERO SUM
ZRES
00]92 1'6 00530 01200
,ALPHA-i-P,O,
8R IF NORMALIZATN COMPLTE
EXIT
.-L
00404 ML 005]2 0004'1
-L
00416 L2 00050 00000
ALPHA -P,
"
AlPHA-l-P,AlPHl -p.,
00428 LJ 0004~ 00050
-l.-l
00440 KO 00050 00049
ALPHA
-P,ALPHA-I-P
ALPHA-2-P,NOS DIG
ENTER NOISE DIGIT
00452 K5 00048 02401
00464 J2 00050 000-1
A.LPHl -P.l
,10
00476 1'9 00404 00000
NORM.
,0
ALPHA-l-P. AlPHA- 3-P.,
SHIFT RIGHT ONE POSITION
00484 KO 00048 00041
-p,
ALPHA.
-L,
CLEAR EXTRA FLAG
00496 L3 00050 00000
-L,
INSERT HI ORDER ONE WITH FLAG
AlPHA-L-P,-l
00508 J5 0004'1 OOOOJ
ADJUST CHAR 00~20 JI 00050 000-1
ALPHA
,10.
STORE ALPHA AND AFFIX SIGN
SIGN
00532 1'7 00406 01400
OVFL
-P.AlPHA
00544 I'M 00474 00050
-P
00556 1'9 00518 00000
UNfl
-P
BRANCH+6 ,-+32
00564 JO 00106 -05'16
,011
FIX+25
,012
,09
00576 J6 0066'1 00-12
F03+24
00588 1'9 00772 00000
48
,5550040250 0050500040 5552000000 020800252500020450,348
00348 00048
AlPHA-2-P,8ETA-2 -PIt
I'UL MANTISSAS
00596 KL 00048 00194
-P,
lRES
8. IF lERO PROOUCT
00608 M6 00530 01200
MOVE-12
,-2L
8R I F NORM NOT REO
.100
,0 •
00b20 ~3 00116 00100
MOVE+II
,100
-L
00632 Jb 0073'1 OOJOO
SETA
-P,OI
AOJUS T CHAR 8Y ONE
00644 J2 00196 000-1
e+36
,0
00656 1'7 00692 01400
-P,OI
ALPHA
,10
00668 J2 00050 000-1
-p,-qq
BETA
,10
00680 J6 00196 OOORR
CHGE
,FIX+23
00692 ML 00908 00667
.01

.10.

BETA-P
,-99
STORE-12-P,

,-L

.0,

.

15~

PAGE

101

,

ALPHA

-P,8ETA

Oq080 MOVE

TF

09090
09110 F03
09120
09130
09140
0'1150
09170
09180
09190
09200
10010
10020

87

8l

lRE~

10030
10040
10050 MOVED
10060
10080 CHGE
10090
10110 ZCK

DC
SF
S
B7
TFM
87
TOM

8
100
MOVE
MOVE_II
MOVED
401

AM

PCK+l5

TFM
TFM
TF~

TF
87
LO

o

BV

Tn
80

.,

-2L

-p

ALPHA-2-P,QQ
EXJ r
•

,.
,0

BRANCH+6

,.+~b

,017

FIX+2'i
MOVE+ll
ti5

.111
,09
,099
,09,
• ClR-I06-P".,

.-L

FA3+12

qq

,AlPHA-2-P"

lCK
99
FIX

,
,99
,99

••

,0
,.
,0,

-p

..

,It0550002 ,314

-P,BEfA

,

,98

-P

.0

,0,

,0
.99

32
KJ
K6
M9
JO
J6

00101
00050
00048
00532
00106
0066'1

00000
00196
00090
00000
-0804
nOJ1I

,-L

00772 J6 00739 00-Q9

,2L

00784
00796
00804
00816
00828
00840
00852
00864
00314
00876
00888
00900
00908

20 00085
M9 00032
20 000'19
2R 00099
"6 00928
,-L
25 00099
,-2l
1'43 00644
1'6 00530
00008
-2L
32 00100
KK 00050
M9 00128
,-L
J6 00739
OO~20 1'9 00888
SET tRROR INUICATOR
00928 15 00401
SIMULATE HAROWARE DIV AND FORtE
00940 II 0238-L
-l

,BETA-2 -Pt,

ALPHA

00704
00716
00728
00740
00748
00760

00798
00000
00048
00194
01400
000'19
QOO'l'l
01200
00000
00196
00000
00098
00000
0000OVE
000'19

00952 46 0231N 01400

8V
PCK+IO
DE NO
02024

02024

S.YM80L TA8LE
NOSOIG
FSOR3
NINE
PICK
S02

02401
OOOOOR
00808R
00198R
00124R

10130......

10160 FSQR]
10170
10150
10190
10200
11020
11030
11040
11050
11060

ALPHA
LNIO
ONU
PIOV2
SO]

OOOSOR
00163R
00621R
00668R
003BOR

8ETA
LOGE
OVFl
SAVE
STORE

00196R
001l5R
0047411
OOIOOR
00442R

CLR
LSQ

P
SIGN
UNFL

00904R
00228R
00000
00406R
005l8R

EDGAR
LSOM
PCK
SOU
lRES

OOOOOR
00H6R
02]"5
004'6R
00530R

FLOATING POINT SQUARE ROOT. VARIABLE LENGTH
OSA
FSQR]
00004 00005 -0000
OORG EDGAR
00000
TFM
PCK+5
,"20
,17
00000 10 02]70 -0020
B1
PCK
,6,
8R TO PICK AND RETURN
00012 49 02]bN 00000
Dt
It4
,015050 0550000002 0000000105 040000560000000005,350
00]50 00044
10
. . 20
,BETA-I -P,O,
,-L
00020 ML 00040 00195
11
ZRES
-P,
IR I F RESULT lERO
000 U H9 DOHO 00000
HI'
BETA
-P,50
.10,
DIV CHAA IY 2
00040 JJ 00196 OOONO
INF
._56
,IUA-Z -P,O,
IR FOIl POSITIVI AlG
OOOU 11M 00011 UOl94
CF
8ETA-Z -,
000t4 L3 00194 00000
TOM 401
,0
..
••
SET NEG AAG INDICAToA
OOOlt 15 00401 00000
10
SO)
,91
,0,
III IF CHAR ODD

159

llOlO

"M

11010

aNI'

11090 SQ2

SF
TF

. 000. . 113 OOJlO 000 . .

.97

,OlD,

.0.

"I,V< "ANTISSA ACIt

,-L

12150

TOM

12160
12170

CF

12180

R1

12200 SOE'
13010
13020

TF

""

13030

tF

00100 J6 00166 000111
POSITIVE
'
00112 114 00!J6 00099
00124 32 000.' 00000
,91
STORE RESULT CHAR.PRO'EII SIGNa
001)6 26 0238- 0009'
,2L
00148 20 00099 00112
..
,CU-U-' ••
MOVE
MA''/f
INTO
9119. IIINUS L
.IEU-' - ' "
00160 20 00000 001.4
LSQ+II
,-2L INITUL MANT AOR HI OIlDEI
.010 •
• 97
00172 J6 00246 DOOR?
LSg+n
,01,
INtrl1.L RESULT AOR
.SQ'+\I
00184 KO 00251 0039.
INIfIU MANT lOR
LSOM-6
,LSO+II
00196 KO 003)0 0024'
,+L SET RESULT TO ONE L+I DIGITS
00208 KO 001'14 00573
,.0,
LSQN
00220 "'I 00)]6 00000
ADD 2 TO ReSUL T
LSO+U
•2
.0610 •
00228 JI 0025J 000-2
SUB RESULT FROM MANTISSA
00240 22 00000 00000
LSQ
,0,
CO~lJNUe UNTIL MANT IS NEG
00252 M6 00228 01300
00264 JM 00251 -0194
LSQ+23
.BEU-2 -P.01
8R IF TERMI NAL RESUL T ADR
SOEX
00276 116 00436 0 !JOO
LSQ+18
RESTORE LAST SUB
,01611.
• LSQ+U
002RB KJ OOl40 0025J
,06
00300 L3 00~40 00000
LSQ'18
LSQM-6
REDUCE ~ANT FIELD LENGTH O~E
.01
.010,
00312 JI 00330 000-1
00324 31 00000 00000
,02
STEP MANTISSA ADR,HI OROER.+2
,010.
L SQ'18
00316 JI 00246 000-2
SH.' f"t';,,~ I, r.f'q +1
LSQ'2]
,010.
• 01
()1l34d J I 002S1 000-1
,0610,
STfP REC;UlT -q
LSg+23
00360 JI OOZ5J 000-9
.0,.
LSQ+12
COIIT LOOP WITH NEI' 2 DIGITS
00372 . . 001.0 011000
10
.70700200065020.316
0031. 00016
99
,so
,10,
AN' .~ '.1 CMMI1
00180 11 000.. OOONO
BETA-2 -p.o
-L, c;C'I::T"':' ' ..
FUll 1100 CHAII
003'12 J. -019. 0000BHA-I -P,
-~,
00404 LJ 00l" 00000
II
S02H2
.98
,010.
• -L NOVE MAN' " . .
004.6 J6 00166 000111
SQ2-12
811 TO STOllE CHAII + INIT LOO'
0041. . . 0011200000
80
,CLR-100-P,.
.+L
_16 20 00010 00104
BETA-2 -P.50
,10.
RnUL TlZ 00••1 J) 001 •• OOONO
'J8
..
-L.
DEFINE FielD
00."0 II 000.. 00000
PtK'25
5TORf
RHULl

13040

fH

rf ,.. +10

11100

TF
TF

IlUO

TFM
TF

I 11 SO

TF

11160

TF

U

IF

CIIA~

•••

IlUO

11'110

.tt

·

linD
11200 LSO

liolo
12020
12030
12040

CM
BNL

12050

A

12060
12070

CF
AM

12080
12090 LSQM

SF
AM

·

12100
S~

12110
12120

IlC

11190
12140 S03

.0.

AM

TFM

14'

.0.

SF

''''IT

160
~AGE

OEND

RET"~'

rn

~'INLlIjE

,,0484 49 023111 0)01100
02061

ul061

SYMBOL TABLE
NOSDIG
BRD
FCOS3
'NINE
PCK

02401
00208R
OOOOOR
OOBOOR

UB

00910R
CLF
00088R
F Sl N3 00032.
ONEZ 00621R
PI
00962.
SAVE OOIOOR
UNfL 00518R

0.236~

PO,lCH 00760R

TWOPI OLO09R

13060······
13070 ••••••

AI

00914R

ALPHA

OOUjU,<

&ETA

eLR
H34
OVER

0090~R

OIOIlR

DONE
LNIO
OVFL
PIOVl
STORE

00588R
0076)R
00414R
00666R
00442.

EDGAR
LOGE
P
PLACE
SUM

OO~OOR

PICK

DOl9lR

SIGN
ZRE S

00'406R

00196R
OOOOUR
0071n
00000
00716R
00H2R

0053n~

FLOAflNG SIN-COS
VARIABLE LENGTH
FCOSl
,FSINl

OSA

00004 00005 -0000
00009 00005 -00)2
00000

13100 FeoS)

OORG EDGAR
TFM CLF. II

13110

iFM

13120

B7

13140 FSIN3

TFM

13150
UI60

87

13110

DC

13190
13200

TOM

1"010 elF
.4020
HOlD

CF
CF
TF

00000 J6 000 . . 00-10
00012 10 02)10 -00 . .
GO TO PICK AND IIETUIIN
00024 49 02UN 00000
C1F'11
,-all
lidT fC~ POSITIVE 5111
OOOU J. 000.. 00-1 J
PCU5
00044 10 02)10 -0064
PCK
GO TO PICI AND IIETUIlN
00056 49 OZJ6N 00000
46.0500501056
5000UOOOl 0.07005651 0070510000 101601 . . . .
003 •• 00046
")6
.IETA-Z -P
00064 . . 00100 00".
,0
,0,
eLHIO
ADJUST FOIl NEG SIN
000" JS 000. . 00000
SErA-2 -,
000. . L3 00196 00000
liEU-I -Po
..
-l
00100 LJ 00191 00000
SAVE
-',ClR-9~-P o.
,+t
MOVE l'Z lEliOI '0 SAVI

14040
14050

ell
8Nl

BUA
'OleH

-',DO

,10
.0,

sn..

-',00

.10Il.

14060
14010

iF"

BNF

ell

, IL

PCK+S

,010

.eLF

PCK

,09,

INIT FOP COS

,17

.6,

.n

,'"'

lAD

,0,

14010

i'"

"'0

,SAVE

14090
14100

S
TR

-HI

,Iff A
.IEU-1 -,..

-p,or,

-,,0

14110 8110

10

. . '4

,eLF+1I

14UO

A

U\If-,

.PIOV2~U-'..

• 4130
, 14140

5
DH

SAft

--12

,01.

-',TWO"-41 ,I,
,0.

001U itO 00100 00110
!lOU. J4 00196 000-0
8R iF POSITIVE OIl ZEIlOCHli
OOlU "'6 00760 01100
,'l
Dell ••
00196 000-1_ IF CHARLiiSS rHAII -L
00160 lIT t:'~,'1 onoo
.-L
CHAi\gUIlIIND,~'.L

J.

oonll JC'

.-L

~,,;(lZ

-0100

001 . . III :lO~O' 00196
001. . U 00000 00195
BR IF SIN ROUTINE

00208 III 0021' 0009'
,'LCONVERTTO SIN
OOZZO IJ 00100 0061S
;+L
00212 "" OOIOOO. .t •
sue 2 " I'll OM '11'''1 UNYIL NI.
001.4 III. 002.2 01100

III

14150
141bO
14110
14\80
141~0

SF
A
8N
SM
SF

14200
15010
I ~020

H
DC

I~O]O

M

A

H

1~040

I

sr

,o~o

• 'tUbO

TF

1~010

TR
TO"

1'080 OVER

I SOqO

TF

I~IOO

TF~

15110
"120

0
Rl

1'1\)0

fF

l"l14U SUM

S

1'1'>0

AM

....

PAGf

00256 L2 00044 00000
SAYE-I -Po
-L
00268 KJ 00100 00911
SAVE
-P.PI-45
.+L
002.0 Ml 00116 01]00
e+36
•
.0
00292 J2' 00048 000-1
ClF+LO
.01
.010
00304 L2 00100 00000
SAVE
-P
00316 KJ 00100 00611
SAYE
-P.PIOYZ-45-P"
.+L
0032. 20 00080 00198
80
.CLII-106-p....n
48.555210UOO 0002202000 5055000000 0008550000 00560050 .348
00)48 00048
00140 KL 00100 00100
SAVE
-P.SAYE
-P
00]52 K6 00100 000R8
SAVE
-~.48
.10.
.-L
00164 L2 OOOqq 00000
-L
SAVE-\ -P,
"
BETA
-P.ONEZ-41-P, •
.+LSET BETA eQUAL I PLUS L+I le~O
00316 KO 00196 00514
UB-l
0018a LJ 00901 01010
.H34-1
.01
SUM.t
SET FOR SUBTRACTION
.011.
.2
00400 J~ 00413 OOOOK
Qq
00412 26 000'1'1 OOORa
.QB
.-L
00424 16 OOORl 0-000
-L
H
.0000
00436 2R ODORS 00914
.AS
.-l
9B
8R IF QUOTIENT lFRD
DONE
00448 Mb OOC;S8 01200
00460 K6 00050 000R5
ALPHA
-P,95
,10
00472 KI< OOlQb 00050
BE TA
-P,AlPHA -P
00484 JI OOqlO 000-2
,010
AAB
.2
004Qb J I DOqOS 000-2
AAB-2
,010
.2
AAB
,AA8-2
,01,
4DIGIT PRODIJCT
00'>08 KL DOQIO 00908
AD
,qq
,0
005111 K6 00914 00091.}
005,12 20 OOOBO OUN8
8n
.CLR-I06-P"
.2L
00544 Kl 00100 00050
SAVE
-P,ALPHA-P
00556 M~ 00400 00413
OVER
,SUM.l
,01
SET TO ADU
00S68 J5 00473 00001
su-. .. L
,1
00580 MQ 00412 00000
OVEM,+lZ
t
.0
.+L
00588 KM OOIQ' 0080.
KET.A-L -P.CLR-95-P f t
BR IF L+I ZEROS
POlCH+6a •
,0,
00600 M6 00820 01200
SAVE
-P.OI
.10
00612 J6 00100 000-1
48.0H0715010 OOOO'OO~O'> 50005000S! 0000505000
05051005.3)0
00350 00048
.-LBR IF NORMALllATION NOT REO
PLACE-24 ,8E1A-1 -P,O,
00624 ML 006q2 oau'
00636 J2 00100 000-1
SAVE
-P,Ol
,10
-L.-L
00648 LJ 00lQ5 00lq6
8fTA-l -P,8ETA
-Pt.
ENTER NOISE DIGIT
8ETA-l -P,NOS nIG
00660 KS 00lQ5 02401
00612 L2 00lq5 00000
BETA-l -1',
-L
00684 Mq 00624 00000
.-60
00692 ML 00116 00098
PLACE
,ClF+IO
,01
00704 L2 001Q4 DODOl)
8ETA-2 -p
-p
STORE CHAR
00116 20 0238- 00100
PCK+l'J
,SAVf
STORE MANT
00128 20 023q- 00lQ4
PCK+211)
,8E1A-2 -p,o,
RESTORE RM
00140 KN 00051 01018
ALPHA+I-P,H34+7
.I,
RETURN
TO
~AINLINE
PROGRA"
PCK+ 10
00152 4q 0231N 00000
00160
J4
00lQ6 000-3
-Pt03
aEU
.10
BR I F CHAR SMALLER THAN 0'
00112 Ml 00852 01300
00184 J4 00196 000-0
-P,OD
,10,
8ETA
.+L

.0.

\~lbO

AM

1'110

~

1")180
1 "it QO

TF
TF

1'200

M

tbO 1 ,"1
IbO}')
1110'0

160'0 DONE
16060

6NF
TOM
87
C
BE

16010
16080

TFM
DC

160qO

80

1bl00
16110
16110

Si"!

16 \30
16140
16160
16110
16180 PLACE
161qO
16200
11010

SF
81
SO
SF
Tf
TF

11030 POICH
11040

CM
81.

1700;0

CJo\

17060

BR IF CHAR LESS OR EQUAL L
00196 Ml 00840 01100
TOM 401
CHAR TOO LARGE
,11
•
•0
00808 15 00401 0000ALI'HA+ l-P ,H3".+'
RESTORE RM
00820 KN 000'51 01018
TO
00832 MQ 00,30 OuOOO
87
IR\7S
TOM 401
00840 15 0040 I OUOOu
.0
ADJ TO SUB TWO PI FROM MANT
TFM _+42
• SAVE-l -P,01,
00852 JO C0894 -u099
-P,o,
,BE TA
UNTIL REDUCED TO NEG NUMBER
00864 KK OOBQ4 00lQ6
rDM BEfA-7 -P,Q
,U,
-L
00816 J5 00194 0000T<
00888 20 OOOOU 00194
,BfTA-2 -P
,a
BRD
OOQOO M9 00208 00000
B
DORt;
0-4
00'107
00910 00004
OS
4
00914 00004
DS
4
0,
00915 00001
1
DC
41
• 31415n65358919323846264 33832195028B41n 16Q 3993
00'162 U0041
41
.6283185 '01l1Q58647M252B<> lb655900516113Q4 3381987
DC
0100'1 00047
010\1 00002
,01
DC
Olol!' 00002
DC
.02
01018 00005
DC
.0002'
02012
DEND 01012

TR
TO

TO
81

.0.

,b,

.0.

11010
11080
11100
111 20
11130
11140
11150
11160

11110
11180
171QO AAti

11200 AB
18010
18010 PI

18030 TWOPI
18040 H34
18050
18060

PAGE

.0.

8NH

J 62

,

SYMBOL TABLE
NOSOIG
CLR
LOGE
PCHAR
SAVE
TEST

AlPH
EDGAR
NINE
PCK
SIGN
TESTI

02'001
00Q04R
00715R
00836R
OOIOOR
00064R

OOl96R
OOOOOR
00808R
02365
0040loR
00804R

AL~HA

fOD
ONEZ
PICK
SU
TEST2

18090 FATN3
18100

FLOAT I NG ARC TANGENT
DSA FATN)
DORG EDGAR
TFM PCK+5
,e+20
Bl
PCK

18\30

DC

18070······

18120

TFM

18140
18150

SO
81

18110

TD

18180 TEST
IBI90
18200

Cf
CM
BH

00050R
01040R
001021R
00198R
0I255R
00652R

00424R
ATNI
FATN3 OOOOOR
ovn 00414R
PIOY2 001068R
STORE 00442R
UNFL 00518R

BETA
LNIO

00l'l6R
00 /61R
00000
PIOV4 0\34/oR
TAN6 0130lR
lRES 00'30R

P

VARIABLE LENGTH

00004 00005 -0000
00000
00000
10 02310 -0020
017
BR TO P ItK AND RETURN
.10.
00012 49 02310N 00000
50 .0100055050 0000510005 0576105010 1000065020 51500B25. 350
003'S0 00050
TEST+11
SET INDICATORS
00020 J6 00075 0-000
e.20
.BEU-I -P.O.
.-L
00032 IOL 00052 00195
EOD+12
8R IF ZEIIO MANT
00044 M9 01052 00000
.IETA-2
TEST+9
SAVE MANT SIGN
00052 KN 00013 00194
BETA-2 -p
0001>4 L3 00194 00000
BETA
-Po
000710 J4 00196 000-0
010
PtHU
BR IF CHAR POSlflVE
00011 M6 008310 0 II 00

.oa.

-p.o,

.0.

113

PACE
1'1C110

IE

nato

19O1O

CM
IL

1.040
190'0
19060

TFII
A
TT

19010

Cf

19010

TF

19090 AlPH

Sf

19100
19110

CM
Il

19120
19\)0

TF
Mil

19140

TOM

19150
1911>0

TF

19110

TF

19180

LD

19190

DC

19200
20010

D
TF

20020

SF

20030

H

20040
200~0

10
TF

20060

TF

20010
20080
20090 ATNI

TFM
TFM

20100
20110
20120
20110

TFM
OM
S
TF

20140
201'>0

TF
to

20160

TF

Tf

SM

20170
20180
20190

8NZ

;<)200

TF

so

21010
21020
210)0

TF

•

21040

DC

21050
21060
21010
21080

8NF
811N

21090 TEST2
21100
21110

8NF
SF

21120
211)0

TFM
TU

21140

80

21150
21160
21110

Sto
TIl
TD

ZUIO
21200
22010
22020
220)0 resn
ZZ040
22050
22070 'CHAR

81
SF
TF

ZZOIO
22090

TF
TOM

UIOO

D

22110

DC

22120

aD

22UO

Sf

22140
22150

TF.
$M

22160
ZUlli

IT

22190

SM

$~

A

A

Tf

8.lIf
SF
81
Tall

Tf

.R IF CHAR lEIIO
00100 M6 00196 DilDO
+L
00112 J4 00196 99.1111
• nA
.10 •
I. IF CHAII LESS THAN -IL-ll
EOO
DOll" "1 01040 01300
00U6 JO 0019. -0194
ALPH-l
,IUA-2 -1'.07
00148 KJ DOl •• 00196
ALPH-l
,lETA
-1'.0
CLEAR AllEA LEFT OF InA
-L.+L
IETA-l -P,CLR-'6-P ..
00160 KO 0019,,·00808
EXPANO BETA 8Y REMOVING FLAG
-L
0017Z L) 00195 00000
ADJUST 8ETA FIELD FOR CHAR
8ETA-Z
00184 K6 00194 00000
CONTIIACT 8ETA 8Y IIESETTNG FLAG
IETA-I
-L
00196 L2 00195 00000
00208 J4 00196 000K9
lETA
-1',1'
.10. -L
811 IF MANT LESS THAN .Z9
AT II 1-12
00210 Ml 00)'2 01)00
002)2 ZO 00019 00804
,+L
19
,CLR-IOO-P"
IN 99
8ETA-I -1',6
.10,
0024" J) 00194 000-6
-L·.
,-I
1+6.MANT "" 99
98
00256 I~ 00098 OOOOJ
+L MANT-;6 L OIGITS
,1.
00Z68 KK 00194 01210
10+6.MANT MOVED TO AlPHA.L+ZOG
ALPHA -P,99
00280 K6 00050 000'1'1
,CLR-.4-P ,.
,2L
2L+2 ZEROS
00292 20 00099 00810
DIGITS
I
-L,
.8
,IETA-Z -P"
00)04 2Q 000'18 00194
48 ,2552000855 525(0)0106 2020055008 5552000000 56550855, )48
00348 00048
-L,
L+2 OIGITS 00)16 2R 00100 00050
100
,ALPHA
,-L MANT IS (MANT-.611110+6.MA''''1
BETA-Z -P,91
00)28 K6 00194 000'11
,0,
INO THIS CALC MADE
TESHII
00)40 L2 00015 00000
ZEROS
,CLR-I06-P, ,
,2l
80
00)52 20 00080 00198
SQUARE MANT 00)64 KL 00194 00194
BETA-2 -P,8fTA-I -P"
,-L SAVE IS MANTotoANT.L DIGITS
SAVE
-P,99
00)16 K6 00100 OU099
,+L INIT ALPHA TO 00 L+I LEROS
ALPHA -P,GlR-95 -P"
00)88 KO 00050 00809
00400 J6 00459 'I99R9
,2L
ATNI+J5 ,99999
,+l
00412 J6 00421 999R9
,99.99
ATIII-3
,+L
L+4
ZEROS
,CLR-92-P
99
00424 zo 00099 00812
00436 16 00098 OOOJO
,lO, -L
,10
98
00448 19 00098 -0000
98
-L
-p
00460 2K 00096 00050
,ALPHA
96
l+1 OIGITS
ALPHA -P,96
00412 K6 00050 00096
00484 20 00080 00198
,tLR-106-P, •
80
2L+I DIGITS
-P,.
ALPHA -P,SA'iE
00496 KL 00050 00100
,-L
L+l DIGITS
ALPHA -P,99
0050& K6 00050 00099

10

.0.

.0.

-p.

-I',

"
"
"

,0.

,

"

16'1

PAGE

..

00520 J2 00459 000-2
,OLD
ATNI+35 ,2
00532 J2 00421 000-1
AfNI-)
,010
,0,
8R
IF
LESS
THAN L-I PASSES
ATNI
00544 101 00424 01200
L+2
DIGITS
,+L
ONE
I-4
7-P
•
,
SAVE
00556 KO 00100 00514
ONE MINUS SUM OFICOEFoMANT"ZI
-P,ALPHA
-Pt,
SAVE
00568 KK 00100 OOO~O
00580 20 00080 00198
,CLR-106-P, ,
,2L
80
2L+2 DIGIT PRODUCT
SAVE
-P,8ETA-2 -p"
00592 Kl 00100 00lQ4
48 ,0000202100 202650Z504 5044200040 0205000000 00084025,)48
00348 00048
0060" MM 00652 00015
,01
TEST2
,TESToI1
00616 Mt> 00640 01300
,0
TEST2-12 ,
00628 32 00099 00000
99
,
-L
L+I DIGITS
99
,TAN6-45 d,
-L.+L
00640 2J 00099 01256
00651 10M 00688 OOOH
,TESToiD ,01
00664 32 00099 00000
L+2 OIGITS
,PIOV2-"5-P, ,
00676 IJ OU099 00623
00688 J6 00196 000-1
-Ptl
,10
8ETA
I ~SERT RM AT 100-L
,BETA., -p"
-L
100
00700 2N 00100 00191
,-IL IR IF NORMALIZATION NOT REQO
,0,
fESTl-)6 ,98
00111 M! 00768 00098
OOlZ" JZ 00196 000-1
,10
-P,1
8ETA
-2L,':U
00136 31 00098 00099
,99
98
-L
INSEAl
NOISE
DIGIT
,~OS DIG
''1
"-~<, 25 00099 OZ401
o~
1100
II. 00112 00000
,0
.-41
00161 !2 00091 00000
-ZL
91
Z6 023'- 000'17
00110
,97
.6,
"tuZ5
007.2 20 02)8- DOl . .
-1',.
ptaU5
,lETA
00804
Mil 00lZ8 0001)
,
TEST+9
,01
··Z4
00.16 JZ 023'- 00000
,6
PCK+Z5
OOIZ. 4' OZJ1N 00000
,6
PCU10
,0,
INDICATE POSITIVE CHAII
nSf+IO ,-I
00U6
00074 OOOOJ
,21
00.41 ZO DOD.. 00.09
-ZL OIYIOENO EQUALS .1
100
00160 15 00100 OOOOJ
-L. DIVISOR IS MANT
,8UA-Z -1',.
99
0081Z ZII 00099 00194
41 .0. .0525000 USOOOOOlO 0000010000 0500""10 10SI000~. :~.
00141 00041
,n
,-ZL
III IF IIANT IS lOOOOr.. ".
001'4 MJ OO.~O DOD. .
REDUCE TO L DIGITS
-ZL
100
00,.6 J2 00100 00000
00'01 •• 001.4 0009.
.ooL
RlDUCE CHAR IV 1
lETA
-1'.1
.10.
00920 JI 00196 000-1
."
THESE J
00n2 M. 00. ." 00000
.-L
11IISTilutTIOIIS
1;0
IU'-z -1'."
00"0 16 00194 00091
-p.Z
IIITH ID '.OVE
....t .II DOl" OOO-Z

-p.

"

,

"

"

,

"

,-L

,

J'

'9

"

.0,

InA-' -P, ..

..

,

"

••

.0.

"
.10.

18.5

11

PAGE
22200

8l

12

,D.

III If O'EUNO IS ONf
0091>4 "7 01008 OUOO
BE
ALPH
ftR I F CHAR IIEOUCED TO ZERO
00916 "' 00196 01200
Sf
8ETA
CHAII STILL 'OSITIVE."AKf NfG
00. . 8 L2 00196 00000
81
TEST . . I
01000 "9 00112 00000
TFM PCHI5
•
.610.
01008 16 Oll8- 000-0
STOllE
TF
PCU25
,PIOY4-45 • I.,
01020 20 0219- 01301
87
TESTI
01012 "9 00804 00000
... 32
80
.TEST+IO
811 IF IIESULT MORE THAN PIDV2
01040 ML 01012 UOOH
Tf
PCK+25
,enA-Z
01052 20 02)'- 00194
81
TESTI-12
01064 M' 007'2 00000
TF
AlPHA -P,IUA-2-P
01072 KO 00050 001'4
TF
BEU-2 -P,PlOY2-46-P ..
,+L
l+1 DIGITS
01084 KO 00194 00622
CF
ALPHA-I-P,
-L
01096 13 00049 00000
TOM ALPHA -P,
,II, -L
01108 J5 00050 0000CM
8EU
-P,OO
,lOll,
,+L
01120 J4 00196 000-8Nti e + 1 t 8 .
.0
01132 "1 01180 DilDO
TF~
•• 15
,ALPHA -P,Ol
01144 JO 01179 -0050
DC
10 ,0550050000,310
00310 00010
A
•• 23
,IET4
-P.O
01156 KJ 01119 00196
BETA-2 -P
S
01168 K2 00194 00000
TF
PCh25
,8EU-3 -P.6
01180 20 0239- 00193
TFM PCK+15
,I
,610
01192 16 0238- 000-1
,a
B
TEST!
01204 M9 00804 00000
.-4
DORG
01211
45
DC
,600000000000000000000000000000000000000000000
01255 00045
46
,5404195002705841554435183646085999101351U2514
DC
01301 00046
DC
.5
,1853981633974483096156608458198157210.9292349
01346 00045
DE NO 02091
02091

.0.

HOlD

-P,

HalO
H030
23050
21060
23010
730'0 EOD

-',I>

2'100
1HIO
23110
21140
2H~0

23160
BI70
1H80
2 'l'lO
11}OO

14"10
'407.0
?4Q30
24040
7.0~0

24060
14010 SIX

SYMBOL TABLE
NOSOIG
CLR
FEO
ONEZ
PIOV2
STORE

GOBACK
EDGAR
GORD
OVFL
REC IP
TEN'.

02401
00904R
OOOOOR
00621R
00668R
00442R

7.100......

01016R
OOOOOR
0060eR
00414R
00888R
a 1069R

ALPHA 00050R
00"36R
00163R
00000
SAVE OOIOOR
UNFL 00518R

BETA
FACT
LOGE
PCK
SETUP
ZRES

El2

LNIO

•

FLOATING EXPONENTIAL
OSA FE Xn
,FE Xl

00196R
00740R
007l5R
02365
OOI4"R
00530R

CALC 00"68R
FExn 00020R
NI~E
00808R
PICK 0019BR
SIGN 00406R

VARIABLE LENGTH
0000. 00005 -0020
00009 00005-0000
00000
AllOW
MUl BY LOG E FOR EXP
00000 J5 001"5 00001
00012 149 00032 00000
PREV~NT MUl BY LOG E FOR EXT
00020 J5 00145 00009

241\0 FfX3

DDRG EDGAR
TO" SETUP>I,l

,a,

24120
74140 FEXT1

B7
Tn"

FExn+12,
SETUP>I ,9

,a
,a,

TFM

00032 10 02370 -0052
BR TO PICk AND RETURN
PCK
0004. 49 0136N 00000
46,0056070005 5020250008 5604504052 0052510050 000050 , 348
00348 00046
00052 16 0238- 000-1
PCK+ltS,l
,610
,+L
ONE. L+4 OIGIT MANTISSA
ALPHA-2-P,QNEZ-45-P, ,
00064 KO 000"8 00576
00076 ML 00096 00195
,-l
-.20
.8ETA-l -P,O,
BR IF MANT ZERO
GOBACK-12,
00088 149 0100. ~UOOO
NON ZERO MANT I SSA
,8ETA-2 -P,O.
RECIP-I
00096 KN 00887 001 ••
00108 L3 0019" 00000
BETA-2 -P
00120 16 00101 -OOQO
-l
101
-l
l>4 DIGITS IN IOI-L
91
,8ETA-2 -P"
00132 20 00097 00194
,0,
MUL BY LOG E IF EXP
001.4 149 00236 00000
00156 20 00080 00198
,2l
80
,eLR-LOb-P,.
,>L
2L+2 DIGIT PRODUCT
BE TA-2 -P, LOGE-4~-P"
00168 KL 00194 00670
8R If HIORDER NOT ZERO
,-2L
00180 M3 00236 000.98
00192 J2 00196 000-1
,10
BETA
-Pol
0020" 32 00099 00000
99
,
-2l.
MOVE l+lt OIIiITS
BETA-2 -P,102
,-l
00216 K6 0019" 00102
00228 149 00248 00000
,a
·"20
,
,-L
MOVE l+4 DIGITS
BETA-2 -P,IOI
00236 K6 00194 00101
BETA
-P,-oo
,>l
002"8 J4 00196 000-01011
,a,
BR IF CHAR lESS THAN -l
GOBACK-12,
00260 M7 01004 01100
-P,
00272 J4 00196 OOO-~
.LO,
8ETA
,0,
8R I F CHAR ZERO
CALC
00284 146 00468 01200
,a,
8R IF CHAR BETWEEN -l AND ZERO
CALC+6e
OOZ96 117 00536 01]00
00)08 J4 0019' 000-2
-P,2
,10
BETA
,0,
BR
I
F
CHAR
LAIIGER
THAN 2
E12
00120 116 00436 01100
8R I ~ CHAR BUWEEN 0 AND +2
,0,
00332 147 00316 01300
46, 07770070 7007770050 5090001000 1000000505 76705070, 348
00141 00046
CHAR EQUALS +Z
PCK+15
00144 2J onl- 00192
-L,-l
SHIFT lEFT 2 POSITIONS
BETA-' -',InA-I -P"
OOIU lJ 00191 001'1)
00361 149 00lt24 00000
E12-12
-l
CHAR EQUALS + I
BETA-6 - ' ,
00H6 J5 00190 000000111 LI 00191 00000
-L
8ETA-5 -"
"
00400 ZJ 0211- 00i91
PCUI'
.IITA-' -'"
-l.-L
SHIFT LEFT 1 'OSITION
004U LJ 001'1 00192
III If AOJ CHAR DOES NOT OVFLOw
OOU. 147 DO. . . 01400

166

PAGE
~7

24180

DC

~41qO

24200

TFM
TF

25010
25020

BD
31

250.0
25050

CF
TF"
TF

250bO

25070
2~O~O

SETUP

25100
25110

TF
14

25120

BO

25130
25140
25150

SM
SF

25160
25180

Bl

25190
25200

CM
BNH

26010
76010

CM
BE

TF

TF

26030

Bl

26040
26050

CM
BH

26070

BL

26060

DC

260'0

A

260'0

rR

26100
21>120

87
TOM

ULJO
26140
26150

CF
A
TR

2611>0

8NV

,11

PCK+~

,

..

,0,

,.

,-l

,11.

InA-' -',InA·. -' ..

.0.

.-L

117

13

U110 EU

IN'

2.110
26200
21010 tAlt

11

'27020
27010

til
8L

SF
TFII

21040

SM

270~0

All

21060

117

27010

TFM

27090
27100

A

27110
27120

Cf
TF

27110
27140

SF
DC

27150 GORO
27160

M

27110
27180

Sf
TF

TF

TF

27190
21200
28010
28020
28010
18040

TF

18050
28060 FACT
28070

8l

28080

TF

2S090
2810.0

AM
A7

28120
2813.0

CM
BE

28140

TF

28150
28160

SF

lAt 70

H

PAGE

.1.

OVPL

IIANT 'DUlIVE
00436 1111 00474 ODin
004" 119 00518 00000
UIIFL
-P
DOU6 l2 00191 00000
IUA-5
It
-2l
INIT S IlE IND
.OIlO.
'0.
00468 J6 00471 0-0-0
00480 J4 00192 00014
IIfU-4 -P.14
.10. -l
8. IF 8ETA LESS THAN .34 otHAR
GORD
.0.
00492 .. 7 00608 OUOO
ADJ BETA BY -.34
010. -L
00504 J2 00192 00014
STEP sile 1110
,OlD.
tALto'
00516 JI 00477 000-1
tONTINUE REDUtTlON OF SETA
CALto12
00521 .. 9 004.0 00000
PROCESS IF tHAR NEG
,8fTl-4 -P,07.
00536 JO 00595 -0192
00548 KJ 00595 00196
.047
,8fTA
-P.O
LH DIGIT FIELD
BETA-6 -P,tlR-9.-P
-L.+l
00560 KO 00190 00808
00512 L3 00191 00000
-L
8ETA-5 -P,
SHIFT RIGHT W R T CHAR SIZE
8ETA-" -P,
00584 K6 00192 00000
BETA-5 -P,
,t
-l
00596 L2 OOl91 00000
44,0856405252 0055085502 2020005000 0000000851 4052
,34S
00348 00044
00608 20 00080 00798
,2L
80
,CLR-106-P"
,+L
2Lo' DIGIT PROOUCT
8EfA-4 -P,LNIO-46-P ..
00620 KL 00192 00711
00632 32 00097 00000
-2l
97
L+4 DIGIT FIELDS
,-L
-P,99
SAVE
00644 K6 00100 0009Q
00656 K6 00194 0009'1
,-l
BETA-2 -P,9Q
It
00668 J6 00151 000-2
FACT+ll.2
.010
00680 KJ 00048 00100
ALPHA-2-P, SAVE
-P
20 00080 0079d
00692
,2L
80
,Cll~-106-P"
2L+8 DIGIT PRODUCT
SAYF.
-P,8ETA-2 -P,.
00704 KL 00100 00194
L+6 DIGIT DIVIDEND
,-L
00716 26 00099 00096
00728 16 00096 OOO-~
-L
OIGIT DIVISOR. L+4 ~UOTIENT
-L
00740 19 00097 -OOOJ
,0,
8R WHEN TERM REDUCES TO lERO
FACf+56
00752 M6 00796 01200
L+4 DIGIT FIELD
SAVE
00764 K6 00100 00097
00776 JI 00751 000-1
,010
FACT+II
,0,
CALC NEXT TERM
FACT-60
00788 M9 006BO 00000
007Q6 J4 00477 000-0
,DID
CALCH
,0,
BR IF FURTHER ADJ NOT REQUIRED
RECIP
00808 "6 0088B 01200
,2LADJUST fOR REDUCTNS BY .34
.ClR-106-P ••
80
00820 20 00080 00798
,l 2l+4 DIGIT PRODUCT
ALPHA-4-P,TENJ4-.. 5 ,I
00832 Kl 00046 01024
-lL 2L+3 DIGITS 00844 32 00097 00000
97
L +2 DIGITS
,-L

-p.

.0.

,

168

PAGE
00856 K6 00046 00096
SM
CALC+9
,I
,010,
REDUtE INDICATOR
28180
00868 J2 00477 000-1
B7
'-84,
,0
00880 M9 00796 00000
28190
DC
22, 0000084025 000200000005 ,350
00350 00022
29010
,0 I.
8R IF MANT WAS pas IT I VE
29020 RECIP 8NF GOBACK-12, REt I P-I
00888 M" 01004 00881
SF
PCK+l5
,6,
MAKE tHAR NEGATIYE
29030
00900 32 0238- 00000
TF
~9
,CLR-94-P
,2LCALt RECIPROCAL IF NEG MANT
00912 20 00099 00810
TFM 99
010
olD, -H. 2L+2 DIGIT DIVIDEND
29050
00924 16 00099 OOOJO
o
100
,ALPHA-4-P..
-l, l+2 DIGIT DIVISOR
29060
00936 2R 00100 00046
8V
GDBlCK-24,
8R If OR IG OPER 1 OR I/LOGE
29070
00948 "6 00992 01400
TF
PC.+25
,97
,6,
,-L STORE RESULT MANTISSA
29080
00960 26 0239- 00097
AM
PCKol5
,I
,610,
REDUCE CHAR 8Y ONE
29090
00972 11 0238- 000-1
87
PCK+IO
,6,
RETURN TO MAINLINE
29100
00984 49 0237N 00000
AM
PCUl5
,2
,610
00992 11 0238- 000-2
Tf
PCKo25
,AlPHA-6-P,.,
STORE RESULT MANTISSA
29120
01004 20 0239- 00044
PCK+IO
.6,
RETURN TO MAINLINE
29130 GOBACK
01016 49 0237N 00000
DORG
.-4
01023
29140
H
,21D1T6162394955Z5i1022261l491638411n1671180~6246
29150 TEIU .. DC
n~Q6CJ

DEND

01102

00047

".Il02

SYMBOl TAIILE
NOSDIG
COUN
GOAL
ONU
PIOYl
UIIFL

ALPHA
CZERO
UIIO
DVFL
PLUS
IRES

02 .. 01
OOllOR
0084 ..A

00621R
O(!'''A
OOSleR

29160.·.··.

19ltO 'lOG)

00050R
00.' ••
0076lR

BETA DOI.'R
EDGA. OOOOOR
LOGE 00l15R

CLA
FlN3
NINE

0090411
0002011
0080lR

0041ltR
00692.R

P
SAVE

PCK

0236.
0040611

00000
OOlOIlR

10030
300 .. 0

TF"

19I1D

DC

fDII

B1

VAil !AILE LENGTH

0000 ..
00009
00000
SET fOR tDIIIIIlll lOG
01.
00000
,0
00012
"20
CORNt!
SET FOR NATUUL LOG
•9
.0 •
00020
DODI2
,11
'CU,
PtK
•• TO
AIIID RnUiN
000... •
)0 ,0700060010 0100100105 '01010DO"

DOIIG EDGAR
fDII CO.... 1

67

SIGN

CORN OD60lR
flOG] OOOOOR
I'IlG
00n6.
fiCK COl9eR
HORE 00442R

00530.

FUIUIIIG 'OINT LOG AND LN.
OSA FLOG)
• FLNl

29200
J0020 FLO

14

I. "

.0.

,

... zo

•••

'Ie.

00005 -,91,0
DODO! -DtZO

J5 00609 00001
OOOJZ 00000

"'I

J5 00iD9 00009
10 02)70 -OOtl

." 02]611 00000

169

15

PAGE
)0050

BD

1001>0

TOIl

)0070

TF

)0010

SF

)0090

BT

10110

8NF

)0120

TOil

30UO

Cf

)01~0

10150
10160

TFII
TF
CF

10170
10180
30190

TOM
CM
INL

30200
llOIO

AM

ll020
n070

U7
DC

31040

Tf

31050

TOM

H060

S

31080
31090
31100

TF
LD

HI10

TF

11120
31130

M

o

Tf

31140

TF

31150
31160 COUN

A

TFM

H170
31180
31190
31200

IF
TFM

32010

OM

Dono 00010
,8eTA-l -p,o,
,-l III IF NIIM lEllO ARG
00052 "L 00101 00195
401
SET IND FOR LOG OR LN OF ZERO.
.0
00064 15 0040 I 0000,+L STORE .. ANT IS SA
PCUlI
.NIIII-45-P."
00076 20 0239- 00163
PCK+25
WITH NEG SIGN
000.. J2 OU9- 00000
ovn+24-p.
III TO STOllE CHAR 'AND IITN TO IIAI NLNE
00100 119 00. .1 00000
•• )6
.8ETA-2 -P.O •
8R IF IIANT POSIT IVE
00108 .... 00144 00194
401
SET INO FOR NEGATIVE
.0
00120 15 00401 00000
8ETA-2 -P,
MAKE POSITIVE
00U2 l3 00i94 00000
CORN-a5 .CURO-45 .0lT.
+L
INITIALILE 00144 JO 00583 -0914
GOAl-I) ,lETA
-P,O.
SAVE CHAR 00156 KO 00831 00196
IETA-I -Po
..
-L.
EXPAND fiELD TO L+I DIGITS
00161 LI 00195 00000
8ETA-a -P.l
ADD L.O
00110 J5 00194 OOOOJ
• 11. -L •
8ETA-I -P.15
00192 J4 00195 OOOJS
• 10. -L •
BR IF MOD MANT NOT LESS 1.5
00204 M6 00248 01300
DOUBLE IIANT. L+l DIGITS
BETA-a -p,BETA-a -P"
00216 KJ 00194 00194
CORN-25
ADJ FOil NEXT CONSTANT
00228 JI 00583 OOOMd
.-60,
,0
00240 M9 DO 180 00000
42,56705508252552085552550103 5106202050 085552, 350
00350 00042
ALPHA
L+l DIGITS
.+l
00248 KO 00050 00573
AlPHA -p.a
CONVERT TU TIIOl
.11. -L.
0021>0 J5 00050 OOOOK
2.0 MINUS MOD MANT 12.0-1I
AlPHA
00272 KK 00050 00194
99
0028~ 20 00099 00111
.2L
.ClR-93-P "
,ALPHA -P,.
97
00296 2Q 00091 00050
-L.
98
-l.
12.0-1111 EQUALS Y
.IETA-a -P"
00308 2R 00098 00194
BETA
L+2 DIGITS
.-L
00320 K6 00196 00098
00332 20 00080 OU798
80
,CLR-I06-P, •
.2L
-P,8ETA
-P,.
BETA
2L+4 DIGITS
00344 KL 00196 00196
SAVE
VO.2
L+2 DIGITS
.-L
00356 K6 00100 00097
-p,.
-P,BETA
8ETA
DOUBLE Y
00368 KJ 00196 00196
,99999
,+L1NITlALllE COUNT TO L-I TERMS
.010.
00380 J6 00389 999R9
00392 J6 00451 999R?
COUN+ 71
.99999
,010.
.2L
ALPHA -P,C1ERO-46
L+2 DIGITS. lERO ALPHA
.+L
00404 KO 00050 00913
,+L
99
.CLR-92-P
00416 20 00099 OU812
,10. -L.
08TAIN RECIPROCAL TERM
98
.10
00428 16 00098 OOOJO
00440 19 00098 -0000
98
-L.

,11,

..•••
"

......

,0,

..

1711
PAGE

L+2 DIGITS TO PREV TOTAL
00452 KI 00050 00097
,2L PRODUCT Of Y•• 2 AND TOTAL OF
80
,CLR-106-P ••
00464 20 00080 00798
PREVIOUSLY CALC TERMS
ALPHA -P,SAVE
-P t ,
00476 KL 00050 00100
L+2 DIGITS STORED TOTAL
ALPHA -P.97
.-l
001088 K6 00050 00097
REDUCE OIV ISOR
COUN+71
.010.
.2
00500 J2 00451 000-2
REDUCE NO OF UNCAlC TERMS
CoUN+9
,I
.010.
00512 J2 00389 000-1
BR IF L-I TERMS NOT CAlC
CoUN+36
00524 M7 00416 01200
46.
08552550 5052000865 ~250066005 50501>05000 07770050 .350
00350 000"1>
.2L
00536 20 00080 00798
80
,CLR-106-P"
2Y • SUM OF L-I TERMS
ALPHA -P,8ETA
-P"
00548 KL 00050 00191>
-L
ADD 2Y TO ABOVE PRODUCT. L+2
.IETA
-P ••
00560 2J 00097 00196
SET WITH PROPER CONSTANT L+!
8ETA
-Po
00572 K6 00196 00000
-P
00584 L2 00196 00000
BETA
.-L SUB ACCUM TOTAL FROM CONSTANT
RETA
00596 K2 00196 00097
BR IF FINDING NATURAL LOG
NLG
00608 119 00116 00000
00620 20 00080 00798
80
.CLR-I06-P ••
.2L
00632 KL 00670 00196
+L.
tOGE-45-P.BETA
-P"
BETA
-P.97
.-L L+3 DIGITS 00644 KIt 00196 00097
001>56 L2 00196 00000
8ETA
-P
00661 2000010 00104
80
,CLR-l00-P ••
.+L
ORIG CHAR. ONE. L+S DIGITS
ONEl-46-P,GOAL-13 ,I.
+L.
00610 Kl 00575 00131
001>92 2J 000. . 00196
-P
,lETA
99
PKEPARE FOR NOR .. ALIZATION
BETA
-P.99
00104 K6 00196 00099
00716 U 001 . . 00000
lETA
-P
• +L
00121 K4 OOIU 000'1
CLK-91 -P. 91
IK If L+4 nllos 00140 .. 6 Dono 01200
IRIS
-Po
SET CHAR Of 3
PCK+15
.3
.UO.
00152 16 0211- 000-1
GDAL-74
.-L III IF HI ORDER DIGIT NON-ZERO
00n4 .. L Dono' 00192
00176 LJ 00192 00193
IUA-4 -P.IUA-I
Doni 12 0231- 000-1
PCK+lt.l
.610
IIISERT NOISE DIGIT
lETA
-P. NDS DIG ..
00100 Kt 0019. 02401
.-41
COIITINUE _IIALIZATIIIM
001" II. DO'" 00000
14 .1001000000 0 . .0 ,'10
00.10 00014
IUA-4
SIT PlILD DlfUU'lDN
00120 L2 001" 00000
.Ina-II -f •• ,
STlml MANT OOUI 20 013'- 00191
AFFIX SIGN AND RETURN TO MAlNLI"E
00144 44 OZI7N 00099
00 . . .
021'- 00000
00 . .1 4' OU1N 00000
ALPHA

32020
TF

32030
12040
32050

TF

32060

SM

32070

SM

32090

BNZ

320

DC
TF

32100
12110

"

32120
3ZUO

TF

32140
32150

SF
S

32160 CORN

B

32170
32110
32190
32200
33010
33020

Tf
M

TF
SF
Tf
M

33030 PLUS
33040

A
TF

33050
33060
33070

CF
C
IE
TF ..

nOlo

BD

33090
33100
HI10

SM
TO

33120

87

31140

DC
Sf

JJI.O

TF
INF

Tit

JJaso

GOAL

SF

IT

16

-P,97

.0.

"

.0.

....

-p,.

,D.

-p.

.t.

,,-I..

I.'

••••

sa

171

17

PAGE

intO

Ni.G

i,aoo
"'DID
i40la CUIIO
170'0

"

U

,+L

,tLIl-IOO-', ,

CONVEIISION FOI LN
00." 20000.0 00.04
+L, L+5 DIGITS 00. . . KL OOll' OOUI
LNIII-41-',GOAL-U
,0,
IIETUIN TO CIIMGII SECTION
'LUS
00.00 ". 00"2 00000
4.
,0
DC
00.,. 000..
DC
. . ,-69)1411'055994n09411UI12I"'"165680155001IU6
01001 000. .
DC
".,-131629"61 I 1.19061 . .J446","2916]"1361S100026U2
01055 0004.
DC
. . ,-IO"UIS"16191n9UZSI69636",1U2910U26S004010.
01101 000. .
DENO 01122
02122
.0

•"

17100

)nlO

"

SY"IOL UIU
I\IDSDlG
F$IISJ
OllFL
sA'VI

02401
ooolioll
OOU".
OOIOOR

AL'HA 0005011
UUO 0016111
P
00000
SiGN 00lt06R

)"080 FSIIs)

OSA F,SRS3
DORG EOG••
TFN PCKo,

)40'0

111

PCI(

'~~010
'''110

DC
8~F

·.2'.

1"110
\"130

S

BEU
LOGE
Ptl(
STOllE

EOGAII
ONU
PtOYI
IRES

0090""
00801R
0019811
00SI8R

0000011
0062111
0066111
DonOR

"

-P
BETA
,PCK+15
PCK+15

34140

SM

PCK+20

tl

1"150
1416n
14170
14180

8NF
CF
TF
87

--12
PCK+lO
PCK+15
P(K+IO

,PC1(+20

ne~o

CLII
NtNE
PICK
UNFL

0000" 00005 -0000
00000
SET FOil RIGHT SHIFT
00000 10 02no -0010
,6,
8. TO PICK AND RETUIIN
00012 "" 02)6N 00000
,)20
00320 0001"
.011. RETAIN PROPER SIG ...
00020 "" 00044 02)800032 Ll 00196 00000
.611. CLEAR A FIELD TO lEROS
00044 22 0238- 0238,10. FINO AND CLEAR HI ORDER FLAG
00056 12 02315 000-1
,011, IN 8 FIELD
00068 "" OOOU 023IN
,6
000.0 1~ 0238N 00000
00092 20 0238- 00196
STORE
,6,
RETlIRN TO MAINLINE
00104 49 0237N ooono
02141

, •• ao

I" ,sooo 0000000'
,PCK+15

SF

001'1611
0011511
OU6S
00""211

,

-p.,.

,8ETA

021"1

SYMSOL TA8LE
IIosotG 02~a I
EOG"R GaMbA
GNU 006,21A
P IDVl 006/18R
IRES 00530R

00(\50R
FSLS' OOOOOR
ollFL 00H4R
SAVE OOIOOR
~LPlfA

BETA
LNIO
P

00196R
0076)R
00000
0040611

SIGN

CL
LOGE
PCK
STORE

00140R
001UR
0136S
00442R

CLR
NINE
PICI(
UNFL

00904R
00808R
0019lR
0051111

172
05_

00004 00005 -0000

0

'AGE

00000
IF. PCK'+~
,17
00000 10 02HO -0020
,-+20
PCK
,6
00012 49 0236N 001100
87
14 ,o~~ooooonOOU05 ,314
00314 00014
OC
00010 K'" 00159 00196
-P,O.
SAVE SIG'" OF 8
10
CL +19
.8ETA
-P
00031 L3 00196 00000
CF
BETA
ADJ A ADR TO LO ORDER ADR I'"
.PCK+lO
TF
-+47
00044 K6 00091 02385
SM
-+)5
,010. ACCOROA"'CE WIT If 8 FIElD LENGTH
tl
00056 J2 00091 000-1
00068 11 01380 -0001
PCK+15
tl
8NF
,0
00080 "to 00056 00000
,BETA
TF
-P,6.
STORE
00092 20 0118- 00196
PCK+15
,PCI(+IO
PCK+15
CLUII LO ORDER B FIELD AND A FIELD
C
00104 24 01110 021.5
,0
00116 "6 00160 OUOO
BNL CL +20
AN
PCK+l5
,10
0012. II 02310 000-1
tl
,0
TON PC K+ 15
,6
00140 15 0231- 00000
00152 ,,'I 00104 00000
,0
07
CL -36
,16, SfT SIGN AND EXn
8NF pfK+IO
,CL +19
00160 4" 0237N 00159
SF
PCK+20
,6
00172 3Z 023IN 00000
87
PCK+IO
,6
0011" 49 0237N 00000
DENO '01151
02lSl
DORt)

14200 FS', ;,
nOlo
14190
)5030
)50.0
35050
)5060
'35U70
5080
"3
1509n
35100
15110
35120
35130 CL
35140
J5160
35170
35110

EOf'i''''

,

."

--2.

,

"

,

,

SY"BDL TAIU
ALPHA
LOGE
PeK
S fORE

NOSDIG 02401
LNIO 00761R
00000
S1Gf1 00406R

,

36010 TFLU
16020
)'ZOO

no"o
16050
)6060

00050R
00715R
02161
o04lt211

OSA TfLU
,DORG' EDllAR
T'" PCU,
81

"PCIIt"

TF
TF
17

"ult

OIND

,.

,nt

~O'OS

'InA-2
,InA

Ptuto

00196R
00101"
0019lR
00000.

,17,

,"20

,

PCl

DC

anA
NINE
PICI(
TFLU

-'t'.
""t"

01161

,6,

CLR
·ONEZ
P1DVl
UIIFL

00904"
0062'·
00666K
00518"

EDGAR ODDOOR
OYFL 0047 ••
snE 0010011
UES Dono.

00004
00000
I. TO PICK AND RETURN
00000
00012
OOU"
IIOVE 8-2 TO A-2 00020
TO A
NOV. I
ooon
RITUIIfiI TO IlAINL1IIE
000."
02161

00005 -0000
10 02)70
49 02)'"
00004
20 OZI~
20 021'-

-0020
00000

O,~ ...

00000

4'

00194
ooa . .

",,,aOL rAiLI
IIOSDIGOl"Ol
'DGAII' 00000a
OVFL 00.7.11
SAVE 00100II

"b...

ooo,OII

LIllO 00'/".
P
'00000
S1GiiCio.06.

llTA

OIl".
LOGE' 001'l1ll
PCI
02161
STOle

004.'.

8ffSl ODoooR
III"NE 0010111
OO. .IR
005'&'IR

"CI
UNf'L

00.0 ••
CLIt
ONU 006lU
Plan DO. . . .

IllES

DonOR

In

19

PAGe

36070 BTFSl
36010
36100
36110
36120

OU
OOIlG
TFII
B7
DC
511
TF
TF

36130

IT

36140

B7
DEND

OOOO~

Iffn
EDGAR
PCK+5
PCK

•

PCK+Z5
PCK+25
. . 10
PChlS

,.·.zo

,17

..

"

,00050005 ,350

,I
,.nA-Z
,PChlO
,IerA

-'.6,

,0,

-P.6.

02171

00005 -0000

00000
00000 10 OZ170
00012 4' 0236N
00)50 00008
AOJ FOil A-3
OOOZO 12 02390
IIOVE 1-2 TO A-J 000)2 20 023'StVE "AINLINE IIETUIIN AOII
OOO~~ K6 OOOH
IT TO DES IRED lOC
00056 2P 02)8RETURN TO "AIN LINE
00068 4' 00000
02171

-OOZO
00000
-0001
001'~

02375
00196
00000

174

PAGE
SPS 110 MONITOR I

SU8ROUT INE SeT 03

SY~~Ol

ALPHA 00050R
LOGE
00511R
PCK
0236~
ZRE S 0032U

NOSDIG 02401
LN10 00559R
p
00000
UNFl
00H4R

TABLE
00196R
00604R
00198R

BETA
NINE
PICK

00702R
00417R
PIOV2 OOlt64A,

ClR

O~El

EDGAR OOOOOR
OVFL
00258R
SAVE 00100R

01080· •••••
01090·· ••• •
o II 00 ••••••
01110 ••••••
01120 ••••••
01130· •••••
o lI40 ••••••
01150·· ••••
01160 ••••••
01170 ••••••
01180 ••••••
01190'
01200 ••••••
02010.
02020·.·.·.
SPSII
02040 ••••••

PCK AREA MAY BE USED AS • WORK AREA IF SUBR NOT USED. IF
SUB ROUT INES REQUIReD, THEN THE AREA IS USED AS FOllOWS
02401
NOISE OIGIT.
SOURCF,SUBROUTINE SUPERVISOR
PCK
ADR OF PICK.
SOURCE, SU8ROUTI NE SUPERV I SOR
PCK+5
ADR Of RETURN TO SUBR.
SOURCE, SUBROUTINE
PCK+l0
ADR OF RETURN TO MAINLINE.
SOURCE,PRIMARY liNKAGE
PCK+15
ADR OF A OPERAND CHARACTERISTIC.
SOURCE,PICK
'CK+20
AOR OF 8 OPERAND CHARACTERISTIC.
SOURCE,PICK
ADR OF A OPERAND MANTISSA.
SOURCE,PICK
PCK+25
PCK+30
ADR OF B OPERAIIO MANTISSA.
SOURCE,'ICK
PCK+H
RESERVED FOR POSSIBLE RECORD MARK
PCKH5
" RESERVED CORE
PCK-6 rHRU PCK-'O SUBVEC FOR THE 11 FURNISHED SUBROUTINES
ADRS ARf SUPPlIEO BY THE SUBROUTINE SUPERVISOR
PCK-9\ DOWN TO END OF 10RT MAY 8E USED IF NO ADDED SUBROUTS
a SUBROUTlIIES - AUTO flOATING POIIIT 4 MAY 1963 •• JHB
FOR OPtRANDS A AND B ONL Y
00004 00005 -0198
OSA
PICK
00000 00000
EDGAR
OS
,.-4
02365 00040
02080 PCK
USB
5
.8
,2365
02401 00000
,OHOI
NOSDIG OS
00000
DORG EOGAR
00050 00051
02100 ALPHA
OS
51
00000 00000
,ALPHA-ALPHA
02110 P
OS
a
00100 00050
02130 SAVE
OS
50
00196 00096
OS
96
021~0 BETA
00197 00001
OS
1
RESET ERROR INDICATOR
,8ETA+l-P .l.
02160 PICK
TO
401
00198 2~ 00401 00197
MOVE OPERANDS FROM IIllNllNE
02170
TR
PCKHI
,PtK+IO
OOZIO 31 02376 0237N
CALC RETURN AOR AND OVERFLOW
AM
PCK+l0
,11
00222 II 023P~ 00011
TO BETA
031 10
TFl
BETA
MOVE
00234 -6 00196 0238~
PCK+§
RETURN TO SUBROUTI NE
03150
BY
00246 46 0237- 01400
00)50 DOOI~
.]50
,00100110000020
DC
14
TOM
00211 I' 00401 OOODJ
040JO OYfL
~Ol
00560 00000
III1NI-44
00111 00 0"1- 00 . . 1
r~L
,NINE-41
"UI'
001.4 LI 005'9 00000
CF
NINI-45
,ot
0010. ~. 021lN 00000
17
"K+lO
00114 I ' 00~01 00001
TOil
04090 UNFL
,I
401
00n6
L2 00701 00000
SF
-L
CU+I
ZRES
ot
00U8 00 0231- 0070~
TfL
,CLR +2
'CUI5
,6
00110
Ll
OOIIK 00000
CF
'-11

,5,

"

,,-I
,
,

..•.,...
"

Dono La

175

lv

PAGE
04IZo

~l.D

••••••

tn

~I'D 01111

04160 'IDVl
04&70 LOGE

04180 LIiIIO
04190 lilliE
04200 CU
O!lOlo
040211

•

••

."
"

••

PCIIHo
00J62 4. oZl7N 00000
SMAIIID CONSTANTS
4.
.1000000000000000000000000000000000000000000000000
DC
OCl4n 0004.
DC
47
.1'707.61'.7.4. . . . 1.211121 •• 161.7'14420•• '.46 ••6
.
Cl0464 000.7
47
DC
.4142944'1.012111276111219189166050.22.4.9700510
00111 00047
DC
.2102,.'0.29.4045. .4017. . 1454. .436420760110141162
0055. 00049
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .9 •••••••
U
DC
00604 00045
2
00606 00002
DC
OS
96 lElIOS
00702 00096
4.
00702 00041
DC
.0
4.
•• -47
DC
00655 00049
.0
2
00704 00002
DC
DEliO 01001
01001

....

.

,-99

SYMBOL TAIU
ALPHA
LIllO
P
UIIFL

1I050lG 02401
EOGAR OOOOOR

OVfl

oonlR

SAWE

OOIOUR

05050 DIVWI

00050R
OOSS9R
00000
003l4R

DSA DIVNI
DORG EOGAR
TR
PCKo"
AM
TF
LD
D

05070
050eo
050'0

OOI96R
OOIIlR
02365
oon611

..

,PCK+ID

PCK+IO
85
PCK+25
PCKO]O
PCK+lO
81
DEliO DID"

05060

eUA
LDGE
PCK
IRES

, ll.

,21
,tL R-IO
,611
,PCK+15
,PCKo20
,611
,6

tLR
lilliE
PICK

00702R
00604R
OOlfeR

DIYIII ODDDOR
ONE! DD417R
PIOY2 00",,64R

00004 00005 -0000
00000
MDves DIV OPERANDS I NT 0 PCK AR fA
00000 31 02376 0237N
CALC RETURN ADR 00012 II 02315 -0021
00024 20 00085 00692
00036 28 023'- 0231.00048 29 07HN onR~'
00060 49 0237~ 00000
0]011

SYM80L TA8LE
IRODIV
EDGAR
FSI
ONEl
PIDV2

N050lG
FA]
LNIO
OVFL
SAVf

00lf6R
OOOOOK
OODODR
00411R
00464R

05100......

02401
00020R
OOS59R
00251R
OOIOOR

ALPHA
FOI
LDGe
P
lINFL

00050R
00060R
0051lR
00000
003141\

BETA
FLOP
MOVE
PCK
UIIFLO

00l96R
001l6R
00072R
02365
00176R

CLR
FM)
NINE
PICK
IRES

00102k
00040R
00604R
OO198R
00.126R

FLOATING POINT ADO,SU8TRACT,MULTIPLY AND DIVIDE. VARIA8LE L
OSA F5]
,FAI
,FM)
,FO]
00004 00005 -0000
0000'1 00005 -0020
00014 00005 -0040

176

0001'1 001..1(15 -('N<

DDRG

EDGAR

OOOOCt

PAG~

FLOP+I
,2
81
MOYEOl2
FAI
TOM FLOPo,
87
"lIveol2
,]
FMI
TDM FLOP>I
87
MOVE
DC
4,0005,350
FD3
TOM FLOP+!
TF
,CL R-11
MOVE
79
TFM PCK+5
,FLOP-12
87
PCK
&XV .t,2
flOP
FADO PCK+l5
,PCII+20
BV
lRODIV
8NXV PCII+IO
TOil 401
,-I
ANI' PCK+ 10
,PCK+15
UNFLO CF
401
,DODO
PCK+ID
87
,0
lRODIV TOil 401
FA'DO PCK+l5
,UNFLD>11
8Nl. PCK+lO
,99
TFII PCKt15

FS3

00000
00012
00020
00031
00040
00052
00)50
00060
00072
00084
000'16
.00104
00116
00128
00140
00152
00164
00116
00188
00196
00208
00220
00232
00244
03024

TD~

"

,.

,6
,611

,
,

,

81

oe"D

~CK+IO

,6
,611
,810
,6
',ll
,6
,6
,61011
,6

03024

J5 00117
M. 00084
J5 OUIl7
M9 00084
J5 00117
119 00072
00004
J5 00117
20 00079
10 02370
49 02]6N
M6 00116
01 0238M6 00196
47 0237N
15 00401
44 0237N
II 00401
4'1 0237N
15 00401
OJ 021147 02HN
16 021849 02HII

00002
00000
00001
00000
00001
00000
00009
00685
-0104
00000
01500
0238N
01400
01500
OOOOJ
02]80-0-0
00000
000000187
01200
OOURR
00000

SYMBOL TABLE
NDSOIG
FSClU
NIIIE
PltK
SCiI

10130.'•• •••
10160 FSQRJ
10170
lOUD
10190
10200
11020
11010
ll040
110'0

. ".,,,

11060

ALPHA 00050R
LNIO 00"9.
GNEl 00417.
PIOV2 00464R
UNfL 00Jl4R

02'401
OOOOOR
00604.
00191R
0011011

InA
I.OGE

OOI96R
0051111
00211R
OOIOOR
001l6R

OVFL

SAVE

ZAES

C~R

LSCI
P
SClEX

0070Z"
OOlZeR
00000
00436R

EDGAR
. LSCIM
PCII
SQ2

OOOOOR
oon.k
02365
00124R

FLOAT I NG 'POI NT SQUARE "DDT. vualLE LENGTH
DU 1'511113
00004 000U5 -0000
DCiRG E~GAR
00000
TfM PCII+5
••• 20
,n
00000 ID 02170 -0020
87
PCK
BII TO PICK ANO IInUIIN
ft,
00012 4'1 OU6N 00000
44
DC
,075050 0550000002 OOOOOOO'O!! 040000560000000005, 150
Dona 00044
10
,lETA-I
,-I.
00020 ML OOC.O e.Ol95
"20
ZIIES
87
•• IF IIESULT Zilla
00012 II. OC.ll> 00000
11M
.10,
DIY CHAR BY 2
-',50
00040 JJ 0019. OOONO
0+16
•• EU-2 -',D.
III FO. POS nnE AIIG
000" 11M 000 •• 00194
InA-2 -,
CF
00'064 I. 3 00194 00000
TOIl 401
.0
liT NEG AIIG 'I'NDIC"TOII
. 00076 15 00401 00000
10
SQI
,tI
I . IF C"AII ODD
.0.
~oot' liS 001.0 000"
TFM S02+.,
.97
.-1.
MDYE Milt. .", AD.
.010.

aeu

-"

-p.o.

"

""

"

177

2

nOlo

INf

n090 SOZ

Sf
TF

11110
11120

TF
IF

11130

TFM

11140

Tf
TF
TF

III 70
11200 LSQ

B7
AM

11010

S

12020

8NN

12030
12040

CM
INL

12080
12090 LSQM

SF
AM

SM

12120

87

11190
12140 SQ)

DC

Dono

.0,

,

12100
12110

,n

.0.

,

12050
CF
A"

..
..

III~O

1111>0

1201>0
12070

00100 J6 00166 000117
III I F CHIli POU TI VE
00111 114 00U6 00099
00 lI4 3Z 00091 00000
97
STOllE IlESUU CHIli
,91
SOEHU
001S6 K6 0041) 00097
00141 ZD 00099 00610
,CLII-92-P ..
IIDVE MIIiT IIiTO 97191 MIliUS L
.IEU-I -P ..
00160 20 00000 00194
,DID, ,-21 IIiITlIL MA:.IT AOII HI ORDER
,97
LSOHI
00112 J6 002-' OOOU
IIiITUL RESUU ADR
,01,
LSQ>23
00114 KD 00251 OOJ.I
IlinlAL MAIIT ADII
LSQ"-6
00196 KO
00246
,+L SET IIESULT TO OIiE L+I DIGITS
IEU-Z -P,OIlEZ-4I-P"
00201 KO 00 1.4 001l>~
00220 M. 00))1> 00000
LSQM
ADD Z TO RESUU
,2
LSQ+n
.0610.
OOZZI JI 0025J 000-2
SUI IIESULT FIIOII IIAIITISSA
00240 22 00000 00000
CDIITlIIUE UIITIL IIANT IS NEG
LSQ
.11.
00252 M6 00221 01300
00264 JII 0025 I -0194
LSO+Zl
,IETA-Z -P.07
8R IF TERMINAL RESULT ADR
SQEX
00271> MI> 00431> a !l00
RESTORE LAST SU8
LSQ+II
.Lso+n
.011>11,
00218 KJ 00240 0025J
00300 L3 110240 00000
LSQ+18
.06
REDUCE IIANT FIELD LENGTH ONE
LSON-6
,01
.010.
00112 JI 00110 000-1
00)24 32 00000 00000
STEP MANTISSA ADR,HI DRDER.+2
,010.
LSQ+II
.01
00331> J I 00241> 000-2
,010,
STEP RESULT ADR +1
LSgt21
.01
00341 JI 00251 000-1
STEP RESULT -9
.0610.
LSQ+U
.09
0031>0 J2 0025J 000-9
COIIT LOOP WITH NEXT 2 DIGITS
LSQ+12
00312 "9 00240 00000
00311> 00011>
Ib
.10700200065020.311>
ADD .5 TO CHAR/2
99
,50
.10.
00380 II 00099 OOONO
.211. -L. LENGTHEN HANT FOR ODD CHAR
BETA-2 -p.o
00192 J5 -0194 0000-L.
00404 L] 00195 00000
BETA-I -P,
• -L MOVE MANT ADR
,010,
SQ2>42
.98
00416 JI> 00166 000R8
8R TO STORE CHAR + INIT LOOP
SQ2-12
00421 M9 00112 00000
00431> 20 00080 00602
10
.CLR-IOO-P ••
.+L
RESUL Tl2 00441 J3 00194 OOONO
8HA-2 -P.SO
,10.
DEFINE FIELD
-L.
98
0041>0 32 00098 110000
I NSERrs CHAR
99
00472 16 00099 -0000
STORE RESUL T
.1>.
PCK+IS
00484 06 0231- 0009~

,0,

,99

.0.

All

12150

TOM

1211>0
12170

CF
TF"

12\80

87

12200 SQEX
\3010
\3020

TF
MM
SF
TFM
TFL

..

.0.

178

PAGE
13040

87

RETURN TO MAINLINE
00491> "9 0217N 00000
03061

PCK+lO

DENO

Olllbi

SYM80L fABLe
NOSOIG
8RO
FCOSl
NINE
PCK
POlCH
ZRES

00910R
00088R
elF
FSINt 00032R
ONEZ 00"11R
PI
0091>2R
SAVE OOIOOR

AA8

02"01
00208R
OOOOOR
00b04R
023b5
0011>OR
0032bR

13060 ••••••
13070······

00914R
00102R
OIOIlR
00400R
00198R
00H2R

A8
CLR
H34
OVER
PICK
SUM

ALPHA
qONE
LNIO
OVFl
PIOV2
TWOPI

00050R
00518R
.00559R
00lS8R
0041>4R
01009R

FLOATING SIN-COS
VARIABLE LENGTH
FCOs]
.FSI N1

DSA
13100 FCOS3

OORG EDGAR
TFH CLF+II

13110
11120

TFM
87

13140 FSIN3

TFM

13 ISO
1311>0

TFM
87

13180

DC

13190
13200

BNF
TOM

14010 CLF
14010
14030

CF
CF
TF

14040
14050

CII
8NL

1401>0
14070

CM
BL

1"080

TFM

14090
14100
14110

no

S
TR

110

S
IH

I~IT

.010

FOR

cns

8ETA 00196~
EDGAR OOOOOR
LOGE 00511R
00000
P
PLACE 007lbR
UNFL 001l4R

00004 00005 -DODO
00009 00005 -0012
00000

00000 J6 00099 00-10
00012 10 02370 -0088
GO TO PICK AND RETURN
00014 49 0236N 00000
• ~011
CLF+II
INIT FOR POSIIIVE SIN
000 32 JI> 00099 OO-IJ
PCK+5
•• +20
00044 10 02
00b4
.• I l
GO TO PICK AND RETURN
PCK
.
00051> "'I 0236N 00000
"I> ,0500501051>
5000H0007 0501005UI 0010510000 5051>01.341
00341 00041>
.+36
00064 Mil 00100 00194
.IEU-2 -P
CLF+IO
,0
.0,
ADJUST FOR NEG SIN
00076
00091 00000
BETA-2 -p
00011 LJ 00194 00000
00100 LJ 00195 00000
IUA-I -P.
-L
"OVE L+a ZEIIOS TO SAVE
SAVE
-P.CLII-94-P"
.+L
00112 KO 00100 00601
00124 J4 00191> 000-0
8ETA
-P.OO
,10
POZCH
III I f pas IT I liE DR ZERO CHAR
00131> M6 00160 01100
8ETA
-P.OO
,1011,
,+L
00141 Jit 00196 000·BRD
811 I F CHAR LESS THA" -L
00160 Ml 00201 01100
,-L
CMAR aeTWEEN 0 AIID -L
• SAVE
00 172 JO 00102 -0100
•• 18
,InA
-P,O
00114 KK 0020Z 00196
.-L
00196 )J 00000 00195
.1"1-1
.ClF+1I
.01,
" ' I ' SIN IIOUTINE
00201 ilL DonI 00099
SAVE-P
,+LCOIIVEU TO SIN
.P10112-45-P"
00220 KJ 00100 00419
SAVE
-P,TWOPI-1tS ,1.
,+L
00n2 KK 00100 00964
SUI 2 PI FIIOII IIA"T UNTIL NEG
·-12
00244 "6 OOZ)Z 01100

PCK+S
PCK

.CLF

.6.

.Il

no -

.6,

J'

.0.
,0.

-P"

,0,

179

....

..,. -'.PI-.5
.
-,

SF

141'0
141'0
14110
'4110
14190

SAYE-l

"

-P,

SAYI!

IN
SII

eLhlO
UVE
SAVE
80

PAGE

-L

SF
A

15010
\5020

DC

.n_-106-', •
4'.5~5270'600 0002202000

II
TF

SAVE
SAYE

15030

-',PIDYI-.'-', •

..

SF

SAVE-I

TF

BETA

-P,ONU-H-P"

TR
TO"

AAII-3
SUM.l

15090
15100

TF
TFM

99
97

15110

0

'II

15110

Bl

OO~E

15110
15140
15150
15160
15110

TF
S

ALPHA

8EU

A"

U8
AA8-2

15050
ISOIoO
15070
I~OIO

OVER

-'.

..

,H34-1

.n

50noooooo

00917
OUOO

DOJZS 20 00080 005"
01108550000 005110050 • J ...

00341 00048
00340 ilL 00.100 00100
00 3~2 116 00 I 00 OOORI
00364 l2 00099 00000

.-l
-L

,+UfT lIEU eQUAL I PLUS l+! lERD
00316 KO 00196 00310
003111 LJ 00901 01010

.01

,2

,all.

,

.10,

.0000

.58,

-L

,\5

,-L

,A8

00000

000-1
00000
00116 KJ 00100 00419

IOl

-, .10,

-',SAVE

-','1

1'040

,+L

,0
,CIlO

,01

14200

TF

110"6 l2 000'"
00261 IIJ 00100
OOZIO 141 00116
0112112 J2 00098
OOi04 L2 00100

.0,

SET fOR SUBTRACTION

00400 J5 00413 GODOK
00412 26 00099 OOORI
16 DOOR? 0-000

,-l

OO~H

0043;, 2R ODORS 00914

aR IF QUOTI ENT ZERO
00448 106 00588 01200

SU~

u

-P,95

-p

-P,ALPHA

,2
,Z
,UB-2

.10

00460 K6 00050 00OR5

,010

00472 KK 00196 00050
004t84 Jl 00910 000-2

,OLD

Ib010
16080

TFM
DC

00496 JI O~906 000-2
IoDIGI T PRODUCT
00508 kl 00910 00908
0()51.0 K6 00914 00099
,a
,99
AS
.CLR.-I06-P, ,
,2L
00532 20 00080 00596
80
-P,ALPHA -p
SAVE
005"" Kl 00100 00050
005~6 M" 00400 00411
,01
OVEa
t SU"+l
,0,
SUM+l
SET TO ADD 00')66 J5 00473 00001
,0
00580
OVER+l2
"9 00412 00000
00568 KM 00195 00601
BETA-I -P,ClR-95-P
,+L
RR IF I-I UROS
,0,
POlCH+60 •
00600 ~6 00820 01200
00611 Jb 00100 000-\
-P,Ol
SAVE
,La
46,011)0715070 000050H05 500050005\ 0000505000 0505]005,350

160QO

80

PLACE-14 ,8ETA-I -P,O,

16100
IbllO
16120

SM

SAVE

TR

TD

-P, •
8ET"-1 -P, BE fA
BETA-i -P,NOS DIG

16130

SF
87

·-60

15180
15190
15200
16010
16020
16010
Ib050 DONE
160bO

UB

TF
TF
M
8~F
ro~

d7

C
RE

,01,

"

..

,

00350 0004S

Ibl40
16160
16170

-P,OI

.10

aEU-I -P,

60
Sf

,01

IF

PLACE
,elF+IO
dETA-2 -p
-P, SAVE
~ETA

Hl

PCK+1~

1,11200

TO

ALPHA" 1-P, H]It+ 7

.1,

17010

111

PChlO

,b.

PlACE

IF NORMALIZATION NOT REQ
00624 ML 00692 00195
00636 J2 00100 000-\
00648 LJ 00105 00196
-l ~-l
ENTER NOISE DIGIT
00660 <5 00\95 02401
-l
00672 L2 00195 ~OOOO
0068~ .. 9 0062' 000 DO
00602 ML 00716 00098
00100 l2 0019. 00000
STORE CHAR 00116 KO 001% 00100
t-lB~

I 79V· "', ;CH1. !:OI
:14

3EU
·':)0

.' A;'~'

,BETA

-P t

,

-P,6,

STORE RESUl T
00128 00 0238RESTORE RM 00740 KN 00051
RETURN TO HA I NU HE PROGRAM
00752 49 0237N
DalbO J4 00196
BR IF Cf1AR SMAllER THAN 01
00712 "1 00852

010

-',03

,a,

~.

00196
01018
00000
000-3

1 8 IJ

01300

:A

PAGE

eM

11050
17060

BEH

.10.

-P,OO

aNH

.+It"

17010

TD~

401

11080
11100
11120
11130

TO
81
TOM
TFM

AlPHA+l-p,H34t-r

IH40
TOM
iF

17150
17160
17170
17110

8

IRE S

,SAVE-l -P,01,

-+10

,8ETA

Ot

u

U010 'NOPI

DC

41

180100 H34
11050
110.0

DC

2
2
5

""

·-4

0091ilt OD004

00915 00001
,31415926535897932384626433832195028841911693993
00962 00047
,62831851071 7958M 169252861665590051683943387981
01009 00047
01011 00002
.01
,02
01013 00002
01018 oooo~
.0002'
03072

I

nEIiO

-P,O,

SETA-2 -PtO
,11,
,BETA-2 -p
,a
BRD

OORG

DC

O~O12

SY"80~

IIOSDIG 02401

CU.
LOGE

0070211

0051111
PCHAR oon ••
SAVE OOIGOR

Tfsn

00.52R

l.OTO.·····

ALPH 00196k
EDGAR 00000_
NINE 001>04_
PCII
02365

ALPH.
EDD
ONEl
Pltll

SIx

U ...

UIIIFl

DIUS.
OOU4R

IRES

UBLE

000.0_
OIO'Oft

OMI1A
0019 ••
IUUIR
OOU6ft

11090 FUIU

TFiI

18100

B"/

!It

fOGAI!

"k.5

•• .. 20

PC;oc

SHA

OVfl 002'8R
PIOV2 0046U

~

PIOV4 01)26R

IJOQMR

fnT! 007QZR

Tur

uno

.6.

TUT+H

11140

III!
51

·.20

linD

TO

~~

cznHO

-0020

(lfjiJU "" 02361'1

:~ooo
)

Til PICK

0S1610~070

;;;;~rb~~

10000U!l21l

11110 fUT

CF
eN
II!

11.90
11200

.IIUA-I "'P,O,

TFH.'

.IUA·'

BEU-' .p

leu

PCH'.

"",-,

-',0,

.0.

• 10

~! 5001l
ooo~o

,

,

SET I 1>10 I CUIlIIS

.01,

TESn.'~

00000

.11

110350

Tflll

00559R

~oooo

SO .0700055050 0000511100'

11&20

OOl96R

UIII
FATN3 OOOOt)R

VAftIABlf U!!GH'

FLOATING ARC TANGEN'
FAT!U

GSA

OORIi

IIUO

11,

·+1t2

as
as

DC

t

,a

~OL

17190 U8
17200 A8
11010
11020 PI

OS

,0,
,0

D07M J4 0019. 000-0
8R I F CHAR LESS OR EQUAL 1
00796 "7 00840 01100
CHAR roo LARGE
00&08 15 00401 0000RESTORE R.
00920 KN 00051 OIOld
00831 "9 00326 00000
00840 ! 5 0040 1 00000
AOJ TO SUB TWO PI FROM MANT
00852 JO OOd91t -009"1
UNTIL ReDUCED TO NEG NUMBER
aQaM KK 00894 00196
-l
00816 J5 00194 000000888 20 00000 00194
00900 "9 oozoa 00000
00907
00910 00004

.+l

000110 JO> 000,', '-000
0019S
000'" 119 00116 @oooo

,-t

ooon ML 000'2
SAYE

"AliT

saG!!

OOM2 1111 ooon 00lt4
L1 001.4 00000
11007. J4 001' • 000-0
o_~

.~

I' CMAft

lIII.un!

OHfllIll !116 lIon& 01100

J 81

6

PAtit

19010

IE

19020
19010

CM

190_0
"0.0
19060

TfM

A

19010

tF

1'1010

TF

190~0

Il

TF

ALPH

SF

19100
1'1110

CM

19\20
1<1\30

TF
MM

BL

TOM

. . IF CHA. ZERO
U'H
00100 MI> 00196 01200
+L
OOUl J_ 00196 999U
lETA
.10,
I. IF CHAR lESS THAN -IL-II
EOO
00124 M7 "1040 OUOO
ALPH-I
,IUA-I -,,07
DOnI> JO 00\95 -019_
ALPH-I
,lETA
-',0
00141 KJ 0019. 00196
-l,+L
IETA-2 -P,CU-96-' ..
CLEAR AREA LEFT OF IE'A
0011>0 KO 001'4 001>01>
BETA-I -p,
-l
EXPAND lETA IV REMOVING FLAG
00 17 1 L 3 00 \95 00000
8ETA-2 -P,
ADJUST lETA FIELD FOR CHAR
.
0018_ KI> 00194 00000
IIETA-l -P,
-L
CONTRACT OETA 8V RESETTNG FLAG
001" Ll UOI . . 00000
lETA
-P,29
,10, -L
00208 J4 001.1> OOOK.
ATNI-71
IR IF MANT LESS THAN .29
00120 M7 00352'01300
,+L
00232 20 0007. 00602
79
,CLR-IOO-' ..
BETA-2 -P,.
,10,
IN 99
00244 J3 00 "" 000-6
I+60MANT IN 99
9a
,-1
-L
00256 15 00098 OOOOJ
+L MANT-.I> L DIGITS
00268 KK 0019" 01190
10+60MAIIIT MOVED TO ALPHA.L+20G
Al'HA
00280 K6 000'0 00099
,2L
2L+2 ZEROS
00292 20 00099 00608
-L,
L DIGITS
I
,8ETA-2 -P"
0030" 20 00098 0019"
48 ,2551000855 '2~6010106 20Z0055008 5552000000 56"0855,348
00348 00048
-L,
L+2 DIGITS 00]\6 ZR 00100 00050
100
,ALPHA -P t ,
,-L
"'~IIIT
IS
IMANT-.6111
lO+60MA~TI
IEfA-2 -P,97
00328 K6 00194 00097
,0,
I~O
THIS
CALC
MADE
rEShll
00340 L2 00075 00000
,2L
ZEROS
,CLR-106-P"
60
00352 20 oooao 00S96
SQUARE "'AliT 00364 KL 00194 00194
IETA-2 -P,8ETA-2 -P"
,-L SAVE IS MAIllTeMAIIIT.L DIGITS
SAVE
-P,99
00376 K6 00100 00099
,+L IIIIIT ALPHA TO 00 L+I ZEROS
ALPHA -P.tlR-95 -p ..
00388 KO 00050 00607
00400 J6 00"5<1 999R9
,2L
UNI+J5 ,99999
,+L
00412 J6 00421 999R9
,99999
ATNI-3
,CLR-92-P
,tl
LH lEROS
99
0042" 20 00099 00610
,10
-L
00436 16 00098 OOOJO
98
-L
'II
00"48 19 00098 -0000
96
,ALPHA -P
00"60 2K 00096 00050
l+1 DIGITS
AlPHA -P,96
00472 K6 00050 00096
,CLR-l06-P, ,
,ZL
00"84 20 00080 00~96
80
ALPHA -P,SAVE
-P ..
2L+1 DIGITS
00496 KL 00050 00100
,-L
L+l DIGITS
ALPHA -P.'99
00.08 K6 00050 000.9

,0,

....

,a,

..

,1,

I"I~O

TF

1<1160
1'1\10

TF

1<1\80

LO

19190

OC

1<1200
20010

o

20020

SF

TF

20030

TF

20040
20050

M

20060

TF

20010
20080
10090

,0,

TF

TFM
AT~I

rF"
TF

20100
20110
20120
20\30

OM
S
TF

20140
20150

M

20160

TF

20170
20\80
20190

SM
SM
Bill

20200

TF

TF"

TF

,

..

182
PAGE

21010
21020
210]0

TF
M

21040

DC

21050
21060
21070
21080

BNF
BNII
SF

21090 TEST2
21100
21110

BIIF
SF

21120
2n30

TFM

A

A

ro

80
21150
21160
11170

SM
TR
TO

21180
2\200

B7

22030 TESTI

SF
TF
BIIIF
SF

TFL

22050
22070 PCHAR

07
TOM

ZZOIO
ZZ090

TF
TOM

ZZlOO

o

ZZIIO

DC

ZZ120

RO

21130

SF

ZZl40
121.0

SM

TF

ZZ160
ZZIiO

17

ZZI'O

$11

"

00520 J2 0045. ooo-z
00532 J2 00421 000-1
,0,
~R IF LESS THAN L-l PASSES
00544 M7 00424 01200
SAve
-P,ONEl-47-P"
,+L
L+2 DIGITS
00'56 KD 00100 00370
-P,AlPHA -p"
SAVE
O'IE MIliUS SUM OF ICOEFoMANTo02 1
00'68 KK 00100 00050
BO
,ZL
.ClR-106-P ••
00~80 20 00080 00'96
SAVE
-',8£"-2 -P ..
2L+2 DIGIT PROOUC r
00592 KL 00100 00194
48 ,0000202100 2026502504 5044200040 5200500500 00084025,348
00)48 00048
TESTZ
,TEST+l1 ,01
00604 M" 00652 00075
TE5T2-12 ,
,0
00616 "6 00640 01300
91
,
00628 32 00099 00000
99
,TAN6-45 ,I,
L+I 0lGlf5
00640 2J 00099 01236
, TEST+l0 ,UI
00652 MM 006 . . 00074
-L
00664 32 00099 00000
,PIOV2-45-P, ,
-L,+L
L+2 DIGITS
00676 2J 00099 00419
8ETA
-P,l
.10
00688 J6 00\96 000-1
100
,BErA+l -P ••
-L
IIISERT RM AT 100-L
00700 211 00100 00197
TeSTl-24 ,98
,-ZL BR IF NORMAUlATIOII NOT REDO
00712 M) 00168 00098
8ETA
-Pol
,10
00724 J2 00196 000-1
98
,99
-Zl ,-Zl
00736 JI 00098 00099
99
,NOS DIG
-L
INSEAT NOISE DIGIT
00748 25 000.9 02401
.-48
,a
00760 M9 00712 00000
98
-2L
00761 32 00098 00000
BF.TA-Z -P,97
,-L
00780 K6 001.4 00097
-+24
, TEST+.
,01
00792 M" 00116 ooon
8ETA-2 -P
00804 L2 00194 00000
PCK+15
,BETA
-P,6
00616 00 0238- 00196
'CK+l0·
,6
00821 49 0217N 00000
TESf+IO ,-1
INDICATE POSITIVE CHAR
00136 J' 00074 OOOOJ
99
,2L
00841 10 00099 00607
,CLR-95-' "
100
,-1
It
-lL OIVIOEIOID EOUALS .1
00160 15 00100 OOOOJ
•9
-l, DIVISOR IS MAIIT
,IETA-Z - ' ..
00872 2R 00099 001'4
44 ,0440SZ '000 '1'00000'0 005051 0000
555670 70fl0005, I ....
003.... 00044
,0,
,99
•• '6
,-Zl
IR If MANT IS 100000 •••
00114 MI 00940 00099
100
REDUCE TO L DIGITS
00196 )2 00100 00000
IETA-Z -',99
,-L
00901 k6 00194 00099
InA
-',1
,10.
RIDUCE CHAR "
I
00'20 ~2 00191> 000-'
THISE )
0091' ... 00964 00000
"12
•
,-l
INSTRUCTIONS GO
IUA-Z -" . .
00.40 KI> 00194 000. .
IlTA
.10,
IIITH ID AlOVE
0095' ~I 00196 000-2
ATIIII+35
UNl-3
UNI

,2
01

,OLD
,DID

..

,

"

"

"

,

..

"

,

,0,

"
"

..

,a.

183

9

UIOO
nOlO
UOIO
nOlO
nOlO

nuo

21140
2]150
2]1"0
23170
21110
2]190
24010
24020
24050
240"0
24010
24010
24090

PACE

.....

IL

,a.
,0,

'" I' O'EUHO IS DIll
00. . . "' 01001 OUOO
III If CH,." IllDUCIO TO ZEIIO
IE AL'H
00916 "" 00196 01200
CHA" STILL 'OSITIVI,IIAKE HEG
-P,
SF
009. . LZ 00196 00000
01_ 119 00112 00000
TEST. . .
11
STOllE CHAR 0100. J6 00196 000-0
TFII lETA
-P,
,10,
,+L
01010 KO 001 . . 01211
TF
IETA-I -',PIOY"-.' "
01012 119 00192 00000
TESTI
81
IR IF RESULT MORE TH .... Pion
TESTI .
I~F
EOD
01040 MM 00792 00014
010'2 KO 00050 00194
TF
ALPHA -P,IETA-2-'
L+2 DIGITS
TF
IETA-2 -p,'lon-4.. ' ..
010'" KD 00194 00418.
01016 l3 00049 ooooa
ALPHA-l-P,
..-L
CF
010.. J 5 00050 0000,II, -L
TDII ALPHA -P,
01100 J4 00196 000-lETA
-P, 00
,lOll, .+l
CM
Ollll M7 01160 01100
aNH e + 4 8 .
.0
01124 JO 01159 -0050
TFII "]5
,ALPHA -P,07
00350 00010
,350
10
,0550155000
DC
DIU" KJ 01159 001'"
A
'+23
,8ETA
-P,o
01148 K2 00194 00000
8ETA-Z -P
S
011"0 KO 00194 0019]
8ETA-2 -P,SHA-3 -P
TF
01172 J" 00196 000-1
,10
-P,OI
TFM 8ETA
01184 119 00792 00000
,0
8
TESTl
01191
DDRC
, "00000000000000000000000000000000000000000000
~5
DC
SIX
012i5 00045
,540419S002105a41554435783",,"08599910135148Z514
46
DC
TA~"
01281 00041>
,7853981" 33974483096156"0845819875 7 21049292 349
45
PIOV4 DC
01326 00045
03091
DE NO 03091

..
..

,ua

.-4

SY~80L

GOBACK
EDGAR
GORD
OVFL
RECIP
lRES

~OSDIC

02401
00102R
CLR
FE Xl OOOOOR
ONEZ 00417R
PIOV2 004"4R
UNFL 00314R

2ItlOO ••••••

01028R
OOOOOR
00608R
00258R
00B8eR
00326R

ALPHA
E12
LNIO
P
SAVE

TABLE
00050R
00436R
00559R
00000
OOIOOR

,I

,D.

24140 FExn

B7
TOil

FEXU+I2,
SETUP+I ,9

,0
,0,

24150
241"0

TFM
B7

PCK+5
PCK

,17
,.,

24180

DC

24200

TF

25010
25020

BO
B7

HIIO FEX3

2 .. 120

TF"

25040

TO

25050
25060

CF
TFM
TF

25070

25080 SETUP
TF

25100
25110

01

25120

BO

25130

SI<

25140
25150

SF
TF

25160
ZSIlO

87
TF

25190
25200

CII
BNH

26010
2"020

COl
BE

26030

BL

26040
26050

COl

26070

BL

26060

8H

DC

A
2.090

Til

26100

n

lUlD

26no

TOIl

CF
A

26150

Til

2611>0

BNV

26110 En

IIIF

OOl9bR
00740R
00511R
02365
00144R

CALC
FEXn
NINE
PICK
TEN34

0046BR
00020R
00604R
0019aR
01093R

YARIABlE LENCTH

FLOATING EXPONENTIAL
OSA FEXT3
,FEX3
DORG EDGAR·
TOM SETUP>I

BETA
FACT
LOGE
PCK
SETUP

00004 00005 -0020
00009 00005 -0000
00000
ALLOW
MUl BY lOG E FOR EXP
00000 J5 00145 00001
00012 M9 00032 00000
PREVENT IIUL BY LOG E FOR EXT
00020 .15 00145 00009
0003Z 10 02170 -0052
8R TO PICK AND RETURN

I 8 I,

00044 49 013bN 00000
0052510050 000050 ,348
00]48 00046
00052 JI> 01021 000-1
GOBACK-I ,01
,10
,+l
ONE. L+4 DIGIT MANTISSA
ALPHA-2-P, ONE Z-45-P"
OOOb~ KO 000~8 00372
00076 III 00091> 00195
.+20
,eETA-l -P,O,
,-L
GOBACK-12,
8R I F "ANT ZERO
00088 M9 0101" 00000
NON ZERO MANTI SSA
RECIP-I ,BETA-2 -P,O.
0009" KN 00881 0019~
00108 l3 00194 00000
BETA-Z -P
00120 16 00101 -0000
,
II
-L
101
l+4 DIGITS IN 101-l
97
-l
,BETA-2 -p"
00132 20 00097 0019~
,0,
MUl BY lOG E IF EXP
00 14~ 119 00231> 00000
0015/> 20 00080 00596
,2l
80
,CLR-106-P"
2l+2 DIGIT PRODUCT
8ETA-Z -p ,lOGE-45-P I I
,+L
00lb8 Kl 00194 00466
,0,
BR IF HI ORDER NOT ZERO
.+_56
,98
,-2L
00180 "] 00236 00098
00192 J2 00196 000-1
IIETA
-P,I
,10
00204 32 00099 00000
9-9
,
-2L •
MOVE
l+4
DICITS
,-l
BETA-2 -P,IOZ
00216 K6 00194 00102
,a
00228 M9 00248 00000
·+20
,
,-L
MOYE l+4 DIGITS
BETA-2 -PdOI
00236 K6 00194 00101
,+l
00248 J4 0019. 000-HE"
-P,-OO
.1011
·IR I F CHAR lESS THAN -L
COBACK-12,
.0,
<'"'60 M7 01016 01100
",';272 J4 00196 000-0
BETA
.10.
CALC
.0.
." IF CHAR lERO
OOZI.
00468 01200
IR I F CHAR IIETWEEN -l AND ZERO
CALC>6S
00296 Hl 005)6 01300
-P,l
OOJOI .14 00196 000-2
BETA
,10
I" I F CHAit LARGER THAN 2
E12
00)20 H6 00.]6 01100
III IF CHAR IIUIllI!EN 0 A~O +2
• +4"
.0 •
00!32 M7 00]16 01300
46, 07770070 1001H0050 5090007000 100000050! 111105070. ]U
OOJ~' 00046
CHAR EQUALS '2
COIACK-l ,8E1'-4 - " ,
003.... KJ 01027 00192
SHIfT LEFT Z 'OSITI"~~
00356 LJ 00
1019)
OOS6I M9 00 ;. ". JOOOO
CHAR EQUALS +l
-L
00376 J5 011. '1O 0000OO.S. LJ 00"1 00000
IEU-' -P,
It
00400 IIJ OIOU 00191
GDUt"-l ,IEU-' -' ..
SHIFT LEft 1 PaSI TlON
IUA-' -'.IITA-" -' ..
10.. 12 LJ OOltl 00192
41>,0056070005 5020250001

560450~052

..

"

-P,

.0,

H"

,0,

,11.

··,2

DV'L

,0.

-',IIECI"1

,I,

I. I ' AOJ CHA" DOIS NOT OV'LDW

IT."

OOU" II., DOlt . . 01400

I. IP IIAII\' I'GS
004l. "" 001'8

OO~5r

185

10

PAGE
26110
26200

noao

CALC

"

SF
TFM

21020
nOlo

CM
IL

ZJO~O

511

27050

All
Il

nOlo

Tfll

l7090
l7100

A

TF

ZJIlO
l7UO

CF
TF

21\)0
21140

SF
DC

l71~0

GORO

TF

21160

M

21110

SF
TF

21180
21190
21200
28010
28020
28030

M

28040

TF

280~0

28060 FACT

TFM
OM

28010

BZ

TF

TFM
A
TF.

28080

TF

28090
28100

AM

B7

28120
281]0

CM
8E

28140

TF

28150

M

2BI60
2B110

SF
TF

28180

SM

00~48

"

•• 9

.0110.

00~5'

-2L

119

LI

OOJl~

00000
00191 00000

IIIIT SUt INO
00••1 J6 00. n 0-0-0
InA-4 -1' •••
.ao. -L
OO~'O J~ 00192 OOOL~
GOIID
lit IF lETA LESS TH," . . . +CHAR
00~92 111 0060. 01100
.10. -L
AOJ lEU IY -.J~
0010 .. J2 00192 OOOL~
,I
.010,
STEP SUE INO
00516 JI oo~n 000-1
CALC+12
.0,
CONTINUE REDUCTION OF lETA
00521 119 00410 00000
I'.OCESS IF CHAR NEG
00n6 JO 00595 -0192
"47
.,IETA
-1',0
00'48 KJ OO,,~ 00196
IEU-6 -I',CLR-96-P "
L.4 ulGIT FIELD
00560 KO 00 I 90 00606
BETA-5 -Po
-L
00172 LJ 001.1 00000
BEU-4 -P,
SHIFT RIGHT N R T CHAR SIZE
0058~ K6 00192 00000
8ETA-5 -P,
,,-L
00596 L2 00191 00000
44,0856405252 0015085502 21120005000 0000000851 4052
,HI
00348 00044
80
,CLR-I06-P"
00608 20 00010 00596
IETA-4 -P,LNI0-46-P"
2lH DIGIT PRODUCT
00620 KL 00192 005U
91
00632 32 00097 00000
-ZL
-P,99
SAVE
L+4 DIGIT FIELDS
.-L
0064 .. K6 00100 00099
,-L
BE'A-Z -P,99
••
00656 K6 00194 00099
fACT+11 ,2
,DID
00661 J6 0015 I 000-2
AlPHA-2-P,SAVE
-P
00680 KJ 00041 00100
,ZL
80
,CLR-106-P"
00692 20 00010 00596
SAVE
-P,IIU-2 -P"
2L+B DIGIT PRODUCT
00104 KL 00100 00194
,96
99
,j
L+6 DIGIT DIVIDEND
00716 26 110099 00096
00728 16 00096 000-0
96
.10. -L
-L
91
2 DIGIT DIVISOR. l+4 QUOTIENT
00140 19 00091 -0000
fACT+56
,0,
BR NHEN TE~II REDUCES TO ZERO
00152 116 00196 01200
-P,91
SAVE
L+4 DIGIT FIELD
00164 K6 00100 00091
F&CT+II
,DID
00116 JI 00151 000-1
FAtT-60
,0,
CALC NEX T TERM
00788 119 00610 00000
CALC+9
,DID
00196 J4 00417 000-0
.0,
8R If FURTHER ADJ NOT REQUIRED
RECIP
00808 116 00888 01200
80
,CLR-106-P.,
,2LADJUST FOR REDUCTNS BY • H
00820 20 00080 00596
AlPHA-4-P,TEI'434-45 ,I
,L 2L+4 DIGIT PRODUCT
00n2 KL OOOU 01048
91
,
-2L 2L+3 DIGITS 00844 32 00091 00000
ALPHA-4-P,98
.-L
L+2 DIGITS
00856 K6 00046 00098
CAlr.09
,I
REDUCE INDICATOR
.010.

.0.

"'9

"

,

186

lG
00868 J2 00411 000-1
28190
B1
00880 119 00196 00000
--84.
.0
29010
DC
,350 00150 00026 .
26, 0000084025 0000000200 005005
29020 REC I P BI'4F Go8ACK-12,REClP-1 ,01,
BR IF MANT NAS POSITIVE
00888 MM 01016 00881
GoBACK-1 ,
SF
MAKE CHAR "EGATIVE
00900 L2 01021 00000
29040
TF
,CLR-94-P
99
,2LCALC RECIPROCAL IF NEG MANT
00912 20 00099 00608
29050
TFM 99
,10, -2L, 2L+2 DIGIT DIVIDE"O
010
00924 16 00099 oOOJO
29060
0
100
,ALPHA-It-P, •
-L. loZ DIGIT DIVISOR
00936 2R 00100 00046
,0,
29010
BV
GOUCK-24,
8R IF oRIG oPER I OR I/LoGE
00948 116 01004 01400
AM
GOBACK-I ,01
,10
00960 JI 01021 000-1
·.023
.GOIlCK-1 ,6
TF
00912 Ko 0099N 01021
TFL PCK+15
,99
.6.
.-L STORE RESULT
00984 06 0238- 00099
,6,
29100
B1
PCK+IO
RETURN TO MAINLINE
00996 49 0231N 00000
29101
AM
GoBlCK-I,2,10
01004 JI 01021 000-2
TFM ALPHA-4-P
01016 J6 00046 00000
GOBACK TFL PCK+15
.ALPHA-4-P,6'
STORE RESULT
01028 00 0218- 00046
B1
PCK+IO
RETURN TU MAINLINE
01040 49 OU1N 00000
29150 TEN34 DC
41
.21111616219495525622261149163841873 16 71 11056246
01093 00041
DE NO 03102
03102

SYMBOL "'IU
NoSDIG
COUN
GOAL
DNEZ
PlDV2

02401
00168R
001l2R
00411R
00464R

2.160 ••••••

29190 fLoGI

"ZOO

alPHA
CzeRO
LNIO
DVfL
PLUS

00050R
009"R
00559R
oon'R
OO"OR

,

FLOATING POINT LOG AND LN.
DU FLOGI
.FLNI
DOIIG EDGAR
TOM· COIIN+ I

10010 'LNI

11
TOIl

"20
COlIN. I

100.0
100.0

TPII
IT

'CII+I
PCII

29110

lETA 00196.
EDGAR 0000011
LOGE 005UR
00000
SAve OOIOOR

OC
ID

CLR
HN'
NINe
PCK
UNFL

00102R
00020R
00604R
OU65
00U411

CORN
fLoGI
NLG
PICK
1RES

00596R
OOOOOR
0011. .
001.'11.
00326R

VAlUAILE LENGTH

00004 00005 -0000
00009 0000. -0010
00000
,I
SIT fOR COIIMON LOG
00000 JI 005.1 OOOOL
ooon 119 00012 00000
.0
,0 •
SIT 'D. NATURAL LOG
00020 JI 00191 0000.
. . .ao
00011 10 01110 -0011
•• TO 'ICII AND .ITURN
000.. .9 OII.N 00000
•• 10
1010 OIOOlooaOI "'0'000"
001'0 00011
.-L
••
l
'
NON
llRO
.
.
.
• IIT8-1 - ' ..
00011 NL 00096 001.1

.0.

•

••

.n
,6.

187

12

Til/!!

401

•0

•u •

SET IND FOR LOG OR LN OF ZERO •
ODOt4 I' 0040 I 0000SIT UP TO STROI NtG NINIS
DOnI> L2 00'59 ODOOO
II TO IT~f AND ATN TO MAINLIN
DOOII M' 00Z70 00000
.'J6
.IUA-Z -P.O., .A IF MANT 'as IT I VE
DOO'I> MM oonz 0019.
.0
SET IND FOIl NEGAT IVE
401
00101 15 00401 00000
MAIlE PDU TI VI
OOUO L) 00194 00000
+L INITIALIU DOllZ JO oonl -0914
&0IlN-2, .ClER!l-4,. 01 ' .
1i01L-n .lI,fTA
-p.o.
SAYE CHAR 08144 KO ooU, 001 . .
1,,4-1 ~P.
.,
EXPAND fiELD TO l+1 DIGITS
001,. L3 0019' 00000
ADD 1.0
08,168 J' 00194 OOOOJ
• 1I. -L •
00 . .0 J4 OOltS OOOJ.
• 10. -L •
I . IF MOD "ANT NOT LESS 1.5
0019Z "" 00236 01300
DOUBLE MANT. L+I DIGITS
o.OZ04 KJ 00194 0019.
,010,
AOJ FOR NEXT CONSTANT
00ZI6 JI 00571 000"8
0-60,
,0
00Zl8 M9 00161 00000
4l,,.70.U0f2U55Z0IUSU'010) 510'l0205Q 085552, 350.
00350 0004Z
ALPHA -p,!lNEZ,·"'-p, ,
,+L
L+I DIGitS
00236 liD 00050 00369
CDNYERT TO TWOZ
• 11. -l •
QOZU J5 00050 00001(
Z.O MINUS MOD MANT Il.0-1I
00260 11K 00050 00194
,CLR-91-P .,
00272 20 00099 00609
,2L
,ALPHA -Pt.
00284 20 000'17 00050
-L,
-L.
12.0-llll
EOUAlS Y
,8.ETA"2 -p"
00296 2R OOO'lB 00194
-P,98
l+2 DIGITS
00308 116 00196 00098
,CLR-IDI>-P, ,
,n
00320 lO 00080 00596
-P,BET...
2l+" DIGITS
0033l Kl 00196 00196
-P,97
S~V£
.-l
Y"2
l+2 DIGITS
00144 116 00100 00097
BETA
00U8lE Y
00156 IIJ 00.196 00196
-P"
. .9
,+lINlTIALllE COUNT TO l-l TERMS
.010.
00368 J6 0.0377 999R9
COUN+71 ,99999
.010.
0.0.380 J6 00.4" 999R9
4lP,~ -P,CURO-46"
l+Z DIGITS. LERO ALPHA
00392 KO 00050 00913
,CU-92-P
,+L
00404 ZO 00099 00610
99
,I~
-L,
OBTAIN RECIPROCAL TER~
~a
00416 16 00098 OODJO
004Z8 19 00098 -0000.
-L,
l+Z DIGITS TO PREY TOTAL
00440 It I 00050 00097
,eU-106-P, •
.lL PRODUCT OF y.. z AND TOTAL OF
80
00ltS2 20 00080. 00591>
PREVIOUSLY CALC TERMS
lLPNA -P,.SAYE

••

PL

••

)OUO
3(!1~O

"*

)OI1l!

C/!'

lo.l~O

tFII

SOI'lI

CF

lilt,!)

t,

)OPO
~1I11O

A

31010

1M

31010
)1070

B7
DC

310.40

Tf

HO~O

3101>0
11080
311190

nlOO

31110
TF

3l1Z0
31130

M

H140

TF

31150
m"~ ~OtJ,~

"

31170

lUll)

TPM
TF

'lU90

TF

320.10
J~OZO

OM
A

32030

1,F

32040

M

ir~Oo.

-L.

.0.

,,11.0
)OZOO

"
"

Tf"

ff,l!

-p,.

..
"

ISS
PAGE

32050.
32060
320,70
12090
120
l~~OO

ltllo,
32120
32130
321~0

12UO

12l"O CO~"4;
lZtTD
1tl80
32190'
32200
nOlo
33020
33030 ' .. US

330"'0
11051)

np""
3)010
))0,0

UI.lll
13120

nuo

0041>4 KL 00050 00100
TF
~LPH~
-P,97
l+2 DIGITS STUREO TOTAL
00"76 K6 00050 00097
SM
caUIliUl ,2
.010.
REDUCE DIVISOR
00488 J2 00439 000-2
SM
COUN+9
,010.
REDUCE NO OF UNCAlC TERMS
00.500. J2 00.177 000-1
BNZ COll'l+16
BR IF I.-I TERMS NOT ClLC
.0.
00512 "7 00404 ~1200
46, 08552550 505200081>5 5U0061>005 5050605000 07770050, no.
OC
00350 00046
TF
80
,ClR-IOI>-P. ,
.2l
00524 20 0.0080 00596
ALPHA -p:.aETA
-P ••
ZY • SUM OF l-I TERMS
'I
OQ,5]6 Kl 00050 00196
97
,BETA
-l
ADD 2Y TU ABOVE PROOUCT. l+2
&
00548 2J 00091 00196
TF,
BETA
seT WITH PROPEl! CONSTANT l+),
0051>0 K6 00196 00000
-p
B.ETA
00572 l2 0.0.196 00000
BETA'
-P,97
.-L SUB ACCUM TOTAL FROM C~NS TANT
00$84 112 00196 00097
B
,0, lit IF FINOIIliG NATUR,\! LOG
NLC;
00596 M9 0.0116 00000
tl!'
80
,CLII-106-P"
,2l
00608 ZO 0.0080 005.96
M
LOGE-45-P,BETA
-P"
+L,
00620 KL 00466 00196
TF
lETA
-P,97
,-l l+3 DIGITS 001>32 KI> 00196 00097
BETA
-p
SF
00644 LZ 00196 00000
TF
80
,CLIt,-IOO.-P, ,
"l
00656 20 00010 0060l
0"'I;Z-46-P.COAL-l.)
+L.
O~IG CHAR 0 ONE.
L+5 DIGITS
00"8 KL 00371 00819
A
,lETA
-P
Ov.'O 2J 00099 0019.
TF
-P,99
'"EPARE FOil NORMALIZATION
00692 K6 00196 00099
lETA
-p
00704 L1 00196 00000
C'
,ClR-tz -p, ..
.+L
00716 K4 0061'0 00091
BE,
111.£5' -P,
IR IF L+' lUOS OOUI "I> 00]26 01200
fFlI, GQA~.,l
,03
• 10,
SET CHAII EQUAL •
00.140 J6 00111 000,-)
GOAL-Z", .BETA-'" -P,O.
,,..l III IF HI OROE •. Dunr NOlI-ZERO
007'12 "L 00101 OO.I'Z
IE,fA"" -P,IETA-) -p ..
-L.-L
00'''' LJ 001'2 0019)
GOAL., I
,01
,10,
RiDUC.E CHAl 00,1'16 J Z 0013 I O.OQ-I
IUA;
-",NOS" Olli
IN5IRT NOISE DI.IT
~Otal K5 00196 OZ401
CONTINUe _MALUIIJlDN
008DO ". 0075', OLllOO
16
.70500050o.IDOO. .0
.150
00HOOOOl6
.~j;;;".\ -p,
.
..
SIT 'lfLD DEfINITION
OOlOlLZ 0011: 00000
u,~),
oolao J.6 001') 00000
AHlll SIGN AND IITNTO,MAIIILINI
~f
00. ., .... DO"', OOOM
sI!, IEr~" -p.
00. . . U' 0.01..1 00000
DO., 110' oua- 00191
~II."U" ••IIJA-'-P.,
0081' ... DU'N 001100'
.+L
c;1IItYEASUIIIMIA., LN
.C;LI-'OO-'"
00Ih., 20, 00010 00101
1\,
,
+t. L+S'IGITS DO_IlL 0051. DOli.
I,
III1UIIN TO C;~, saC'ION

-p,.

-P,

"

..

,I.

cr

",

t.

.0.

... ..
, ,..HO: •
.1
r".
'.
.

',It. ,;tz,.

,'.eli.

))I.II.:..,.,G
JUOO

J~Jl!'

.0,

-L.

1'5

PAGE

34030 CLERO
)l090
)lIDO
HIlO

00900 14' 00610 00000
0095. 00041
DC
41
.0
48.-69) 14111055994530941 72321214511 11.'''015'00, 3436
DC
01007 00048
48 .-13U2943&1119190'1.134464242'16n3U'151000261 12
DC
01055 00048
4'. - 2019441 5411> 7'.359212'16"""37452970422650040308
DC
01103 00048
03122
DENO 03122

SYMBOL TA8LE
ALPIIA
FLOAT
NINE
PICK
ZRES

NOSOIG 02"01
E~GAR OOOOOR
LOGE 00511R
on65
PC'
UNFL 003l4R

FSRS
FSl S
TFlS
FLOAT

8TFS

00050R
00052R
00.04R
00198R
00326R

8ETA
FSLS
OHEZ
PIOV2

00196R
00020R
004l7R
00"'4R

DSA

FSRS ,FSlS ,TFLS ,8TFS

OORG
TOM
87
TO"
87
TOM
TR
A"
FSR
87

EDGAR
FLOAT+25
FLOAT
FlOAT+25
FLOAT
FLOAT+25
PCK+1l
PC.+IO

TR
AM
TF
8TFL
61
DEND

PCK+ll,PCK+1O,11
PC'+IO .II

PCI(+ 15

,8
,5
,b
,PCK+IO
• PCk+20

PC' +10

*+30.PCK+IO
PCK+ 15 .PCK+2Q,611

03144

,II

,II
,611

,',

8TFS
FSRS
OVFL
SAVE

00096R
OOOOOR
00251R
OOIOOR

CLR
LNIO
P
TFLS

00004
00009
00014
00019
00000
00000
00012
00020
00032
00040
00052
00064
00076
RETURN TO MAINLINE
00088
00096
00108
00120
00\32
00144
03\44

00005
00005
00005
00005

00702R
00559R
00000
00040~

-0000
-0020
-0040
-009'

H 00077
"9 00052
JS 00077
"9 00052
J5 00077
31 02316
11 02375
08 0238-

00008
00000
00005
00000
00006
0237N
-0011
0238N

49
31
Il
K6
01

00000
0237N
-0011
02375
0238N
00000

0237N
02376
02375
00150
023849 00000

190

1620 MONITOR I SYSTEM SPS U-O FLOW CHARTS

J9J

16

!-~'I,

z~r

• ,,NOte.Tn UJllllfFUfllttD L•• IL

'''!-I

III~ ~

t:1U
tit
m
't
~t

~

li!

1

2~J

'U

~il.

1G

3'

ZIt
3.

J~

6K

,~

188

6P

;B

fll

N
2F
6N

I2W
In

m
m

..

U

l8~
I~t

111

911

I~~

II)U

,mJi
I.

tl'
Ii
¥~

r-

~.

.~.•
I,
2

:I!f'fI
·i

nA

~v LAD

'lit~~
." 110
N

OFF
p
RTSRJ
It ~ER
°t'ART2

oRA

o INDleAJES LABEL NOT FDU""

CROSS-RHEREIjCE T.ABlE

.~.NCAl

.HETR"
AO'RS
ASTER
ASTER1
ASTER2
ASTER.3
AST!}P
BL~.

BMJ

UCYC
8.SEQ

R'SHI
dSLO
CALLA2
EALLE'X
CO~
CCONZ

~HARCu

m~~D

OACII

OCT~sr

gM~D

DEYAL
01G+2
D"ES
OMfSA
·OMES\l
DI4SALF
D"IEND
EIII
" IIUM
OMS~"
OM2

8"

g~kLAR

8m

lie

27J
~7V
lOP
5G
4T
5V
5W

270

12B
90

8t

7l
7l
7l

l~

18K
~IJ
OU
Hi.

·laG

n¥

2M

W
25E
21~

17Y

21J
15l

15V

2:'tK

m
z4l'

U~

m

n~

U!i

148

18"

17K

I'.:,

13~

I~

zliJ

~ill[

7A

2.. L
19J
248

•.• au

OVUII

Ill!

fU
20K.

PIIII;T,.
INTIII

onp

12A
7J

IH
ZlJ

b~
z:~
b~
lit

m~D

ION

5U

4R

U..

2611

190

1511.

.'V

I~"

14101

uy

IS,
u.

liU' m'
,: l
~;

r j..

IhU iif'
U
~.

4

lIS "

n1'"

r'*

If
~f

192

.CNT,.U
.1',1 TI

~.

"lUI q.
,
!:~fI
jl..l
.. 0

If···

ua

(

.

,

I~
I .

Ztt~i'
JORt2;
18
2Q'!i.

J.

.----.----.

'"ISEA
o
00

ZA

A:~YlE

•

00240 READI
00

fA Z

l---~iij-II:I. ----I

•

2t

- - - -____ e _____ _

iAII8

0

"

TO

.---.-.

ZG

'ROSTII

OOUO 'ItOST..

O"H &2.
'"AtE at o•••

'DCDN

•

IG

.-

•...OIlE
A2

2N

~---.---.

002.0

PAGE

2 OF 21

PAGE

3 Of Z7

IN

••

I

I

2'

----2ijEi~iY~~r---1
FilA NEW

I i¥~mENT
---------.---------

TO

·.---- .----.

00200 IlEA02
o

a.REQUeST
a ____ e ____ a

•

.---- !.----. •

211

tlimM2g E

.--------e-------- .
OUTPUT

TO

1
1
1

!

3'

1

---iiii,pu r-i,-----

2F

PHASEA

00290

2E

RESEQUENCED
SOURCE
CARD

NO

·.---- .----.
III

OOZ80

YES
*.RSCAN

'--PUNCH .--------j
1
I
I

•

IS STATE.~T • IILOPI
COMMENTS
•

• • COL 6

20

a ____ a ____ e •

NO

•

•

YES

•• ~~Lt~~aTA

00220

o

I
1

00210 1128E

.

ZQ

.----.~--

NO
• IISCAN
o
2F

• READ CARD
IIESEQ OECK

YES

II

00Z70

2C

ZA

25
THIS SECT
IN CORE

1
I
1

8~R~~ML~

I
1
---------.--------1
00230 RseAN

1
!
1
1

2F

----------------I
PLACE·IIMS
I
I
I
I

AFTER LAST
NON-BLANK
TO COL 7b

--------.--------TO
PROSTH

2N

196
SPS 1l-0---PHASE A---SECTlON AI PEIIMANellT
00100 IILUP I

•

•

3&

00360

.----.----. •

BRANCH HERE
Tn ONE OF
THE FOLLOW-

YES

• RECORD MARK • ER2

·.----.----..
IN lA,REl

• FlEtt,)
NO

00310 OP

1
I
I
I
1

•

•

1
1
1

3H

.~C9~~I~

---------.--------1

I
I

1
1

I

~~BmSC&RO
CODE.

---------. --------3N

00"20

00"40 eR2

23.

Z".

1
1

058
DMESC

1
1

3P

00450 ER3A

3C
e----.----e

···e____e____ e ·
RECORD MARK

IN OP CODE

NO

OOHO
yes

OPl

3P

1

1
1

3W

!

3V

1

I
III

00410

I
I

!
1

.

3E
e----.----.

CODe IN
• OP
TULE

e----e----e
yes
1

!
I

I1

~=O~.

1- -______ e ________ _!

····e____e____ e

oono all.

lW

i---STO-fRROR-----j

ABSOLUTE
Op CaUE

··

1

1
1

1

I
I

00460 ER]

1
1
1
I
!

I

~a3

3V

or COOE

9A

. YES
ER3A

3D
e----.----e

~O

aOHO

..

1

--1 ______ e ________ _1

I
00}20

I
1

j---iii:ANK· (jU,-----j

PROCESS OP
CODE.
iUBIIOUTIHE
NSTRH.

--------e------__
TO
LOL8l

STD ERROR
PROC. (P.2

I
---------e--------TO
OP

1

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

00"10 OPI

3U

j---Ci:EAR· LAii-----j

ZI. OAS
Z2. HEAD

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

ROUTINES

00370 AND

38

OF ERROR
MESSAGE IF
LAB NnOj-8LN

i

I

lNG

3U

i---~~~i[· :-:~----1

3G

·

3F

-1---iiiANSFEii-------1
veCTOR.

I

-------::r::------

187

3X

36

PAGE

S'S II-D---P"A5E A---SEtTIDN Al PERMANIN'
00410 EVlUD

U

-1----l~iTi
•
•
l.
4.

00540

Ai:-1le-----'

00550

I

OPERAND

• iHAUC TER
•
N OPEUND

00;00

00560

•---INI'TI ALiie----i
I

~WS.

I
I

WILL

WHICH

I

I
I

I~DI(ATE---

I

I

TWO
OPERANDS

I
I
I
I

OO~IO

00620 NUll

•
.'

I
I

•

-1---7;~~gmf~---!
OR LEAVE
ROUTINE.

••

I
I

•

--------- .--------I

4E

00520

OR ADD.
EQUIV.

I
I
I

II

00580

'---2:-'S·;-------,
I
OPERATOR
I
---------.--------I

00590

---,

I
I

I

4M

,---;:-p05'rioN----

L____::.~I _______

I
I
I
I

I
---------.--------I

TO

I
I
I

•

•

4G

TO

I

•

•

TO

•

•

006'10

I
I

!~ A~ :L%4K •• 8ltfK

I 4~
.----.----.
1 SCHAR."

NO

I
I
I
I
I

~u

4X

i---sEr-swlrcH----j

YES

•

YES

·.----e----.
NO

•

4W

.----.----. •

BLANK

•

II)A

~A

Q

• IS CHAR. A • P

4R

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

• - ___ e ____ •

4V

SY"ftOlI C
INUI CA fO.
Il,aLI

YES

..

COMMA

•

I
I

I

4F
,---3:-;;~LrIPLv
I
TwO
I
OPE RANUS
I

00640

---------.--------I

!I

005]0

4l

OPERAND
SYMB. DR
ACTUAL.

I

I

TO INDICATE
OPERAND I'

I

I
I

I
PRE SENT
_________
e ___ ·
I

4W

I

I

I

NO

-1---ii:-An~F----!

I
I
I

I

-------SE r-------

•• 0

• ____ e ____ •

I
I

y~S
LLAR
•
faG

".0

I

006tiO BLNK

•

.----.----

•

•

________ e _______ _

.

I

AaLf~:R~tbN

,

4Q

~~II~l\C

.----.----

NO

00670

.----.----

"

006)0

4K

4Q

---------.--------TO
GEfl

NO

I
I

."
•

4'

TO

I
00510

40

•

I Imu+
:N8AC~NERt

---------e _________I

I
--------.--------I

..

• NUll
•

j---No;-aRAijCH----j

I

4J

I

00610 NOP

I

-,---;:-iSK;~:~;---I

N.II

.-___ e ____ •

.
·.----.----..
•

NO

YES

---------.--------I
I
I
I

•

ioU

00660

411

---------r::--~-,---;:-;RESENCE---'
OF AN
I

.----. ----.
· f .
•

•

I

00490

00.00 R

CHAII.

--------- .----- -- .. I

4G

-1---~:-G=EainE----1

ALP"
BETA
ADDRS
COll

4 OF 21

00700

•

.
•

•

~7J~·~~~~i~}
fa + OR -

4P

---~!~~-"------.
TO
"[T I

I
I

.----.!----.

',y

---MOlliFY -ADj;_··--

YE S
• NOP

5G

loT

00650

••
•

!

•

•

YES

l~T~~t~K AN •• ASTER

·NO---T---'.
•

TO

4N

!lU

ioU

198
SPS II-D---PHASE A---SECTION Al PERMANENT
00710

;A

Q

00760 GET!

•.----.----.
• N8
.'•;0
!~B A~8LrSW- ' . ARS
8Y MUL T
5K

i---Move- CHA;;::----I
I
I

TO COLLECT
AREA

I
I

I
I

I
I

58

00710

---i~c~e;.ENr-----

COUNTFR
WHICH CHKS.
POSITION UF

I
I

•

~

•

.----.----.
IS

GTR THAN

I
I

00780
•

5E

.----.----.

•

NO
00740 P

50

I

OPERANDS

~MHmR.

•

I

--------.-------TO
EVALER

I

I

•

5P

•

NO

R~L[R

I
I

.

50

IIU

RHOCATABLE

I
II

CURRE~T.

AN OPERATOR

•

YES

• ASTER2

•

•

5X

I
I
I

I

5•

--_______ e ________ _I

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

6B

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

.1'1

I

I

I

I~~MN

!

ALPHA

I

I

TO

AS TE R]

5R

-,---suiiii- EVALAii---jI
I

I

!_-------.-------_!

TO.

I

511

••

•
.----e--.
I

•

I
I
I

i---~g~~; ~~Ci~----i

• • HA} • OR RII • • NO
R
l~cBuNrERED
4N

••

bA

-I---m~~~ij:'~~---i

.----.----.

00810

•

00880

5l

VERII WAS

•

.----a----.
NU
I

---------.-------I

•

*. Aj·a~~5L'r,N .*llG
yES---j-----

•

e ____ •I ____
;V e

00870

IS REl CNTR •

• YE5
hSlERl

UUTSTANDING

.----e----.
I

-I---~:~;g~:i~-----I

•

• • • OPERATOR

5R

NO

·

UF 21

RETURN

I
I

00800

YES

•

I

.----.----.

00850 EVRTN

.--------e------- .

4N

5E

ERROft ~
SUBROUTINE
EVAlER.

5K

PREVIOUS
NUMERIC
EOUIVILENT

I

•---'iiUCESS-------.

!

•

00840

---Aoii-oR -suii----

I
I
---------e--------TO
•

00750 ER5

5J

~b~~A~U~~TA
•
--------a-------I

00190 AORS

i-----SHiFr-------j
I

•

I

BETA AND
PUT IN

•

•• 6 'HARACTER..

·

OPERA~O

• ABSOLUTE

I

I
I

---iio-ALPHA-~----

YES

• ER5

-0.

00830

I

5C

SY~80L

5H

OF SYMBOL
IN 'ALPHA.'
SUBROUTINE

I

.----.----. •

" IS REL "ITR • EVR TN

•---_a ____ •

!---~!!~-.--------!

I

00730

•

•

Ij

008hO ASTER
;" a
. - - - - . ____

51'1

NO

,---PLAGe·Aoo:----i
I
I
I

---~-~!-l-------- .
I
I
I

PAGE

00B20

.----e--__
a
YES
I

---------.--------00720

5G

VES

'a 'N

1,99

sn
0"00 IUUI

11-11---,"111 I-SICllDII Al ,.IIIIIII..T

..

"'E

-1---;~'Si·'8ii:-----1
Y.. 'l=A~

OIGlO GET
•

__ .. ______ e ________ _

SUI. GET

---Rw~F

I ..

r--~ii~iijiL----~

_________ e ____ • ___ _

00910 ASTER)

SUIY"

00""

I:iji-;----

TO

P

•

IOI~---T---·

009S0·--------r:---·

II
.----.----.
·.----.----..
6e

r-tii~m8iL----i

YES

• RELOeATABLE • RElER
•
SYMBOL
•
• 12G
• RSYMSW all
R

P

TO

.----.----.

00960 SECOND
•
• 0

•

•

,nTlU SYM
--...------.--------II

6N

6L

EVILER

I
I
--------T-:-----

•

I

.----.----. •
I

bY

• CHECK ONl Y
•
REOUE5 ffO
•

·e----e----.

SUB. EVALER

00980

loX

II

01070 LUDD

!

~IVE.

m&1

I

,---*--------

IIU

---------1 --------I

• loy

--"laii~!;~i~o---

'LOCK

ER S

•

I

01060

r--iRR¥~;F------1

O

I

611

01020 EUA

NO
l~A:At¥~~ND o. SETSY"

00970 ERSDOL

LABEL

o

NO

•

•

o

50

6K

·YES--T--- .

.
.----e----..

•
•
YES
o 6 CHAUCTER • L6AOD

--------e---______

4N

0

I loW
.----.----

01050

•

NO

.----.----.

o
• yes
o H1A9 CHAit. • LIADD
0 0 t~a,&~ED YO .0 loY

.'. __ J~!~~:~m ___ _
•

•• __ ...... e ____ •
ALPH I
I
I 6V

010~0

JUCf IN

00920

.----.----.

.01S SYM80L 0 0 ~~~~UM
NUMEIIIC 011
0
o ALPHA
0
loP

SO

61

I OF Z1

6U

NO

YES

• CETR 1
•

•

7F

l62

7>

r---:mcH------I
---------e---------

'''I
SP5 II-D---PHASE A---SEtTlO" At PERMANENT

01080 LI2

7A

---S~ARCtj
FOR

Oll40 Nit

-CORE---

•••

eOLLtCfED
SYHaUL.

________ e _______ _

.SUB

1 BS
I

7U

I

01090
•

•

.----.----. •

• WAS SYM80L
FOUND

e ____ e ____ e

YES

.

~aU't~~80l

•

ON OISK

o . - -__ e ____ •

0

'.e

ER 5

VAlER
• IIU

012'085

2~ELmSI!

I
I

REL ERkO

I

I,

01220 BSeyC

7H

•

aETWEEN

I

1G

1

LIMITS

I

I
_________
e---------I

1C

i
I

012)0

7W

r-n~~~;~ii!------------r--------

---------e--------I

I

I

J

I
.----.----.

01110 LADDR

7V

-,I ----~;&i~y~~-----i

NO

• "'Ie

I

• 0

1
J

J
1
---------e--------I

r-ih~~e;~~=~~----

•

7U

i---iNirAt~IiE----I

REll!tAUILE
5 Y"IOL TltN5

I
I

I

1 OF Z1

PACE

1101

01200

J
I

II

01100

01150

7B

.----.----.

YES

I
I

•

1G

70

01240

°IlEL!l~ATABLEO' ~HER
i~n~lI ED •• IZG

I

SY"IOL

I
.----.----.
•
IX

•

•••o SiEt
LTKrt ItEm
L

· r·"--·.

~o
T • •
••

;1

•

NO----

011Z0

I

1E

r-ii~~;~l~::---l
011)0

-::::~---r~:-----

.----. ----.
Tl

r-iV'A~~iljf---I

•

o ~rs".f

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

•

.--e----.

flU

101

•

ISfQ

HIGH
0

'oS.:fOs~::

00

.0

ISHI

IC

0

I'

PAGE

·SPS II-o---'HAS£ '---SECTION '1 PfIlMAM""

01280 ISLO

8 OF 21

8B

r--:~~~iCE:::~----1
1
BY ADDRESS
I _______
OF TA6LE
I
-I
SYMBOLe ________ _I

TO

1V

RSCYC

ac

01290 BSHI

j---iifPl;;C e-------j
L~FI LIMIT
BY AnO.ESS
UF TABLE
SVM6UL

I
1

I

I
I

I

I
--------.--------10
BSCYC
I

1V

80

01300

SEARCfloS
SYM TBl I~
CORE "EIW~
SET LI~ITS

202

01310 lOlBl

9A
.----.----.

01310 SVOG

• *LA'8El FIEla-.
•

Bt.NK

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

NO

.----. ----.
·.--_...----.
•

•

TO

IS LABEL
VAllO

~o

01390

90

IMJS~o
Eg:M~&~Y

.----.----.
I

•

• WAS lABEL
•

.----.----.

I
I

1*1
1*1

•YES---r

o

•

•

1*1
1*1

.*I--------*--------l*1
TO
SNUTCD

9F

01460 ERIO

•

•
* IS THIS

•

ON

I

01410

9L

NO
- SNOTCD

.*---- .----•.
FIRST TIME

• ERROR OCCUR *
YES

9~

9X

.----.----. •

9Y

r-i!~~u5::-----'
I

I

sfop PH

a

I

---------.--------TO
S,.OTCO

9F

••

1

I
ow
-1--------.--------I.
t
1:1
.Igc~~e~=
1:1
1*1
ER 4.
.01

01'050 ER4A
t

9F

.----.----.

• • ROOM FOR
•
SYMIIOI. III
• CORE

I

1

t~ArE
NT ti
H' E A

"IV

LOSDk

OUIIO LOSOK

I

I

I
1

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

THIS SEcr

• fRIo

•

q~

H

PARTIAllY
FillED BLOK
TO CORE IF
NECESS.RY.

I
I

1U

•

NO

I

lat~E. ~ISC

YES

s~nTCO

i---iiesrORE-------j

9K

01410
•

FOUND

•

TO

a

9E

1*1

1*[--------*--------1*1

THIS SECT.
~OAOS
SYM ,AfEL
0

!_-------.-------_!
• SUB
I as
01350

.*1

2.

I
I
I

01'000

m
II

PHASEA

ERRO~

01440 ERIo

---ro----o-LDioj(---

j---seAiicH--------~m

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

9H

I

LABEL

TO

9J
------....I--------WRITE CORE
I

II
1

I
I
I

HEAO FOR
TABLE

I,

-~-------

I
I
I

0

9C

II

9N

DAU
SUBR OUTPUT

-

YES

---------.--------I
013'00

I
I
I

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

• ERZB
•
9U

i~--m~fB~i~:----i
I
I
I

9U
le(--------.--------{-1
STD
I-I
PROCEDURE.
1*'
r_, ER 2.
.*1
(-I
1*1

1*1
1*1

NO
* * ~SS~M:~XIL
o/R19
* FAR SYMBOLS * 9X
*

1

I
.I

01130

01430 ER2B

.----. ----.

01380 TABFUL

•

I

yES

SNOTCO

9N

r--?~jm;~:-----I

II

!---~~~!-!~-!!!---!

96

1

•

~'8~l INTO
OR • INSRT
LAB EQUIV

I

9N

1
I

I
I

01320

•

01420 SNDTCD

9G

j---i"seiij--------j

!~5TCD

0 OF ?7

.~GE

SPS II-o---PHASE A---SECTION Al PERMAIIENT

?~IIFUL
9H

---* *

TOI 9G

2US

9N

IDA.
e_. ____

01410

~T'UT

•

01'30 I'ASS
lOGe
...--.-__
•

°°• ~~20
° 0• _•_ e ____ • ° ION

.0 l!h~GT~&l1

VU

0

I

I
.----.... _-.
•
.

VIS

I 108

01490

o' rH&~Hl~~~ls
•

e----.----.

°

1P
01500

00

•

lOG

I

I
I
I

I loe

°

o • ____ e ____ •

YES

OCCUUNtI

01600

IOU

•

•

'NO

•

~.ET'N

••e ___ e __ .... ••

I
I

10'

. lIJ~~~]
.IIIUN

10J

----r~:iXg~iiI:---i

NO
0 2 SECT
0
0 IDe

---------.--------I
I

0

I

RETURN,

I
I

II

01510

10H

01550

.----.----.

•
•
Will OUTPUT
o F T ONE
o seTa.

•

1011

• 'lAST
VIS

r-nui;i;o----l
---:sui--O,-z;sour-

0

.----.--e

01 "0 1120
•

I

OU40

I'PUS

110

".'.2
• E !6TH
•e--__ e__ e •° 10J

• °lfriHUE
•
'ON
•

•

015~0

100

r--m~~ii~1~~~---1
I

I

mn.?Ne

I
RETURN,
--------.---------I

01520 2seCT

01510

loe

i---iiiiiTE "WO-----,
I

SECTORS,

I
I

I

I
I

I - - - -ReTUR~,
____ e --- ___ ,.. __I

01580

10M

2U4
SPS I [-D---"HhSE

01620

A---~ECTIQ~

AI

PERMA~ENT

PAGt

Oll?~1 !!~~!~ __ . -!!~----IOI

llA

1:\
101

THIS IS srD

eRAUR
PRoceDURE

;RmSm?R
PRINT BAD

101

SYMBQl.

r

I

01110 EVl

I liB

I: 1---PRiNT 'eRRoii---I: I
1°1 MeSSA(,E
101
I:
1:1
I: 1---..,SUB
--------------1:1
!
liN
I
01640
I .......lie
..... ---.-

I
II

.----.----.
11 V

•• ERROR ~ TOP •• • li~oll
o. REIIUES
0
lIG
o

.....

EPR!~T

NO

-.

01720 eHKNO

~-.-

I

I
I

...

--.

IIW

----iii-iilsiili----,

I

• • ERROR STOP • • YES
ERCOR
e. ReQUESTEO
.*llG
o

1:1

101
101

f: f-~------ .--------I: I

I
I

OIUO

11 OF 27

CLmOOPRND

!

10 .OR aM
I
!_-______
o ________ !

.----.----.
\,eNTNU

.NO

017,0

II

IIX

rln~e--------l

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

au

PAGE 12 Of 27

, SPS II-D---PHASE A-SEC:UON Al "1I"aNINT

e----.----e
Ul

01740 CTEST

o

00 ~~, ~A~~.

o

o

01110 IIELEII
~O

0

EXcholo

VES--T---O

0oIN'

12E

0

0

I'1I1NT

•

0-

•

I
.----.----.
__
mS~EImf

•

- TYPED

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

YES

0

•

m

•

_ U[

NO

I

._ I

I

1211

SETINO

p:ar~OURE

I
I

---------r-------01180 SETINO

I' 1211

-II---i~n~~ic:-----

- I2T

I

CHAR. IIUo
INDICATOR
CODE

I

---------e--------TO
SNOTCD

!
I

01UO

I

I

•

.----e-___ •

,

MESSAGE.
SUYROUTI"E
EPRINT

OPERAND

haCeOURE

---------e---______
01870 EMI2
12Y
i---iT'Nr4~,------j

~lf2

OPERAND GTR •
• THAN I CHAR • UV

•o IN

I2U

-,---iiiiARii-------,
TO

e----.----e VES
•• •J~im~u ••• ERII

01820

I 120
'el-------.--------1_.
TYPE ERROR
101

I-I
I-I
101
101
._,

•

•

~&---T:::·

---------e------__
_I
I
01770 ERIA

.-HEADER

•

12C

••• UilNO
.1211

.----.----.

01110
NO

EXECUTION

I

I
I

AN All

N&----r::·

IV

j---j~H'jBiT--------

I

~~I!Aa'CI'~

.611

I
'II

01760

••

•

EVI

TO

011.0

UN

e---.---e

i·• -----i1i'i;ii------li
fte e_____ .
_______

U8

01750

01100 HUO

12G

I2R

I-I
101
101
lei

--------e----____
I*.
I
I

I

I

01780 8MT

I 12E

j---BRiNa,-iiAci(---j
I
I
I
I

r-~~m:~;!r---I

I
I
I
I

I

- ________ e ________ _I

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

TO

HEAD

01850 ER 11

12N

I2T

---SET-HE AC-----CHARACTER
BLANK.

--------e-.._____ _

I

TO 12U

206
SPS 1I-0---PHASE A-..,.SECTION Al
01900'INSTRN

I3A

j---iojus j -lac----j
I
I
I

COUNTER TO
NEXT EYEN
LOCA TloN.

01960

I
I
I

~.GE

I3G

r--r;-ggi3V----I !:

gglOMK
5. OORAw

!-------- ---------!

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

I

I
I

I

!

01910

I I3B
---CHE~K· p-A~ii---

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

I

I

I

01970

13H

02000

I

~o: ~mER
•

FORMAT. USE
SUb. EYlLAO

--------e--------

!
---------r--------

•

I

I

I

01920

I

13C

02010

---liicATiii~------

·

COUNIER •
LOCATION
COUNTER +11

-------T~::----

01930

.

lup

j---sEr-iiACiiii-----j
NO.

I~

198~CATDR

I

I

UQ

-1--~i~~U i:~:~---i
mb:~EO
I
---------e--------TO
DSA

11.

---cHECK·iii-----SEE IF CORF
HAS SEEN
EXCEEDED

· ---~~~.:-~!!~!---- .

!
I

01940

IlE

BRANCH HERE
TO ONE OF

:gb~?m~
AND

01950

2117

13 OF 27

02020

osa

LltA

DOlO

Dn~O

i---j'i~':'~~-----i

.

---------.------.-02150

III

020)0

i.1I

.'-ixAkim------..
i~~~XTl HE

•

-------T~~:----

IU

---EVALUATE------

r-;xiji~ i:¥~----I

t

ST. LEIIGTH
PEUIID--UIROUTlNf

I C8UllITfR.
---------i---------

VALAO

--------0-------II
02040
I 14t
----ivAL-ylTEo-----lE",u H TO

021~O --------FI-------.4g

1
1

! ___ ~:::_. ______

.J

,

.' 91J.
mJXt~~~!
'. •
"AtH.
, .----56'!'
CTEST
.'
....---.------- ..
I

02050

!

I 14A

02170

140

---ev4LuATe------

r-l~~lm~~------II

2Nn. LENGTH
OPERAND--SUBROUTINE

,
---------.----... --,

---!!~~~~--------'
I

BUFFER.

,,
I
I

1
I

02060

I

J litE

02120 ER7

i---evALuATEo-----i
I
I

LNTH TO
TF~PR

I
I

RDceOUAe

I
I

II

.----.----.
1 14F

•

02130
•

•

NO

I

·.----.----..
YES

•

...

,

14~

·

• lEAD

• ____ e ____ •

YES

I"~

02190

---'TEMPi· ;-i-----

•

NO

•

15S

,
I
I

I In
il---PLACE '99999----1
l~u~m!IO'"

•• g~~~A~~NGfH •• ER7

• PRESElH

.- --.----.

. ' Hs\OiHA~TA .. N

I

---------r--------

---------.--------I
02070

02UO

14L

-1---jii~~Aiiii-------

I
I

14L

_________ e ________ _

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

I

TO

I
I

EV4l

TO

lItG

N

US

TO 14G

268
SPS II-O---PHASE A--- sec TI 0"' A2
02200 DAS

02260

15A

---evALuATE------

02210

SUBROUTINE

EVALAO

--------.----.... -I
I
I

02270

155

.----. ----.
.0
..----.----.
•

--------*-------I

",0

I

!

I5C

022'0

---iiiluaiT-------

I

I

YES

A~.l~~~b~' '.m

• 'HA'" SO

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

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

.----.,I----.

• 15X

• 'PROG, OR

••

:~8hstSS"'D

•

'.

~~~iNE

LE!!GTH

,

•

•

•

•e ____ e ____ e
OSAC

02400 OSAC

ISJ

--------t -------PEAAN I

15V

•• OAS6s~tC OR • /

.·ur

I

I

-----~

.----.----.
,

•

•

DAS*
15R

,

I

I 15W

r--~8Sm~~~~----1

•• • ~8=EU
"'(fDED ' ,,
X IL NGTH

EVALUATED

I

0Z390

UP

02UO
•

U2380

I

m~ IND'C

I

-------T~::----

---evAluATeo----LENGTH.

I

I

U8ROUTINE

•

LNTH.

02220

---EYAlulTe----mr~~~~ VAlAo

LENlirH OF
DPHANO---

•

PAIiE I, OF 27

02320 OAeA
IS/I
i---pUT-LE~GTH----j

15G

'ADDRESS.

I

•

I

!

! ...... _-----.-------!
TO
E
02210

E

In

!
.---.. ----.
PR~CfU""fR

I

I

Ol420
••

15Y

r--iiiii~lRii------i

HE

I

D

02UO OAt

I

-~-------r------·--

4&

=8S1
•• mAm .om
·.---....----..
••

15X

11---!2:m~F~~---il
LiiYH.

I 15£

02240
YES

02410 ER8

150

i---evikuATE------i
I ~~M~~
I
I
I
---------.--------.sua I EVALAD

15R

lill02EOUAE

I

I

I

!_-------.-----.. -_!
TO

94

Ol4'O U9

ISF

nAtR

15N

IH

-'---iTiii.iii>------ i

r-m~!iliiit:----1

~=OtEDUIlE

I

_________ e ________ _

-------J~::------

TO

a09

DAtA

UN

0'~40

U 10

1~

PAGE

. s" II-D--PHASe '---SEen ON AI

OF 27

16'

l---j!i~i!~::-----~

-----._--.--------...
TO

OAeR

15N

21

fl
PAGE 17 OF 27

SPS II-D---PHASe '---SECTION A2
02450 OSA

02510 MUDIFY

17A

17G

j---lAiiel'ADiiiis---j

---cLEAR'LNTfi----

I

I

02570 ER6

+5

I

I

17B

II

02520

i

ADDRESS OF

OJ'ERAI'H'I.

I

I

II

02470

---l~TH-;

17C

02530

-lNr;;---

--------.-------- ,
•

•

I
I 170
----.----.
•

.

B~EAI(ER-=

•

·•----e--__•
AN RM

NO

02490

.

•

02550

g~lR ~~O~He

---------.---_ ...---TO

OSA!

.----.----.
17F

02500 OSA2
•

l.Mn~

THAN 50

.----.----.
I

~J

TO 17G

•

YES

'.ER6

• 17N

17X

I
I

•

•

AODAS

e

•

15R

·

•

•

17U

17l

.----.---OP GREATER

.

THAN CHAR.

·.----e----.
I

• COUNT

•

YES

• lNTST

•

• 18A

NO

I

I

02670 ERIOA
I7Y
I---STA"D.~O------i

II

I

.--------.------I~I~j~:----.
LDLIL

NO

a

02660 CCDNZ

~=~~DURE

I

I

!_-------.-------_!

I

11711

TO

YES

•

• ~~M!TO:L~HA •• NXT

NO

I

025.0

..

• CCON2

I 17W
.----.----.
•
•

17T

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

178

CO,..MA

NO

YES
CCON

I 17L
-1---~8n!ii~:----i
L~'EL

I

·

·.----.----.

yeS

1---sfiIFT 'CDMMA----

.'•

•• AN~I~~h TI
• - ___ e ____ •

17F

17E

FielD

•

THE

I
I
I

I

I
I

•

• OS'2

I 17V

IS IT A

I

.----.I----17K.
• IS
. I ON..'

02540

YES

•

02650

17J

---------.--------I
I

I

02480

I1G

MODIFY

r-~~i~jNiijc----~

+5

,

TO

I
III

I

.----.----.

02640

_ ... ______ a ___ .. ___ _

lIHH,
--------i--------

--------e--------

.----.----.
I

•

LOCATION
COUNTER +

SUBRUUTlNE
EIAlAD

YES

NO

117P

02580

17H

•

• IS THE NEXT. ER4A
CHARACTER A •
• IBF
• RM

•

I

---~85~j ~N:-----

---E~AluATE------

•

I

ERROR

I PROCEDURE
I
I
I
---------.--------I

I

I
I
---------.--------I
02460 OSA 1

02630 NXl a-- __ • ____
17U a

17N

j---sTANiiliiii------j

I

-LOC CTR

02.S0 DCRN

I

I

17l

----CHAiA~TfR-----j

.

------:J:::-----

.

i~UNT 10

~ot~~~h

OF

I
I

!---~~~!~::--------

T) 11A
21 I

. SPS 11-1--'"'11 '-IIClION "

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

~NTST

02"0

o·olJ
o

ItA

CR'~I:'ioooIIIA

.1110---°,--,-.-""
'f"~"io

• lie

..---imiiii -----9mO~rililE

--------.-------lVAUO

E~"

OZ710

'I"

r1mL~iRo~r-l
II'

IIIJ

·• .----t-I-I:-AT"m
::---· .•
OF

OZ770

IIC

,

•

I

RAND.

02180 DCTEST

180

11K

.DC----',----.

••

•

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

I
I

02730

••

DC OR DSC

III

OPEU>lD.

SUBROUTINE
-- ______
EVALAOe _______ _

0

• 11M

r-mF~tiDRi---i

---t~~k~~~e-----ro

•

02190

18E

•

--.. -----e-----_
1
..... ---.---.
~~~RCO

---------.--------I

I

I

NO

- __ • _____ e ____ _

r-m~j::~:-----i

OZ120

lllC

o

•

Ii

TO

111

OZ"O

. 02100

•

.-,--.
.0" ARRltiio •••&liIST
ie.1i
•
".---e----..'

02150'

I
I
---------.---------

•

I8G

Ii

I

118"
I f~~~c lm
I---------.-------I
15R

02800 CHARCO

j---;jjT-~HAii-------1

17X

TO

E

212
PAGE 19 OF

SPS II-O---PHASf A---SftTlON A2
IU

02810 DGN

---F.V4LUiie-----ADDRESS

~~m~ViNe-

-..------e--______

--- EVALAD
_____ e _______ _

TO

I

I

02820

I

•

•

•

PROGRA~"ER

ASSIGNED

• • ADDRESS

.---- . ----.

1'10

oncc

02860

198

.----.----. •

•

•

20A

19H

•---LOAo-;HAiE----.

YES

•

PlACROl

e

14 TO CORE

15R

. .-------e------TO

I

I

DVLt

26l

I

02830

! ... _-----.. -- .-----

02810 DMESCL

'9C

.

________ e _______ _

!
I

19J

•---LOAD-;HAS;----•

•

.

AI> TO COU

•

·--------.-------_.
TO

DilES

23A

I
02840

j--------. --------j

I

~gtio~hs
E

1911

·.---~ii:~~tS·si---- ..

I

------_._-.--------TO

02 . .0 DflilDt

190

•

In

c6d.

•

·--------.------.
TO

DING

27 ..

IU

PAGE 20 OF

02.00 •.-,a02

---------"--------

20A

---------J---------

029'0 'U,

I-.. ------_e
iiFl!~I§:
________ _
1m

.

II

I

________ e ______ _

FOLl&:ING

02.~0 •
:

I IHt~IDII I

.

I

0)000

20H

TA..

kl'

:

°

VES---·'----·
OJ010

20J

---------e-------Tn
"exIT

0)0'0

:o:~:SRJ

•

0)020 PUrsRJ

120R

9A

I

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

I

II

20~

0)030

20l

[~!~:~~:::::~~]

ADDIIS CNTl

[gc~ ~~N.

.LASt ADOR

Los

I

---------i ---------

II t8
I
I
---------e--------TO
"EXIT
D
ADDis
tNTR

I
I

DE~Al

:

20G

-I ________ e ________ _1

029&0

•

--------e-------TO
LDlBl

i---ADVANcE-------i

02910 SEEK

tNT8A~~RE

:

12A

---------e------__ _

20U

20K

DF~Al

20V

.---L~'ii-.HAsf----

NO

r--W~~:~;~:----TO

---:SUi--O,-tTfsi---

••

r-mk~Nyit-----l

r-~~~~iNiiiC-----I

02960 10GEl

.---- .----.°

0: ~!!115BND

I

02950

U

20'

o

.--------.-------- .
I
I

n.UD

20U

ii-------,
-'---iifi·i
nlidEiO

-- _______ e ________ _

.SUI

---L8F~ji:-:---.

0)040 MEXIT

lOll

20U

I120M

r--~~m~FRsT---1
I
I
I

SUSR

E~ALAD

I
I
I

---------.--------TO
PUTSRJ

20R

21 '.
SPS 1I-0---PHASE A---SECTION A)
03060 OCARO

0)100 PCALL

21A

i---SE,-i "oic::----.
I
I

FIELD.
EVAlUATt'
1ST OPERA~O
= ASSG~O AD

I
I

-1---CiiLLECT-'Nii---i

I
I

COMPARE I ST
OPERAND

I

I
I

4A

I

03110

21B

I
I
I

OPERAND

o

• ____ •I ____
21G e

03120

•

..... S 1ST

•

OPRANO

PRESEN[l

•

03090

•

TO NEXT
EVEN LOC.

I
I

I
I

---------.--------I

21U

.---'iiVANCE-LOC:---.

,I
I

CNTR TO
NEXT EVEN
lOCATION

I
I

I
I

---------a---------

I

21P

03110

I
I 21 V

-1---ser-iNOic:-----.

ER22

I

1
I

COOE. ADO
6 TO lOC
eNTR

I

I

I
I

---------a--------TO
MEXIT

•

03180 ER22

21J

20U

21N.

.

0

20U

I

• 2iN

I
I

I

---------a---------I

I
I
I
I

---------a--------TO
MEXIT

ERROR PROC

1

03190

210

21W

i---SrANO.RO------i

LOAD
• 0 CLLOAD

20U

aADDRS CNTR
+1. ADD 8
TO AODkS
G~TR

I

t8l!NC~TR

NO
0

I .
.----.----

LINK
0
GllOAD o. WHICH ONE

i---LABEL' EQuiv---.
I
I
I
I

II

• 21"

.----a----a
YES
I

yes

1

I
I

I S IT VALID

•

0)160 CALLEX

---------c---------

II

21H

MExt T

• ---_a ____ •
NO

•

21N

I

•

•

1

03 UO CLLOAO

0

4A

I
I
I

0)080

o

•

!-------.-------!
.SUB
I EVAlAO

.----.----.
I

i---~HEc:j( ·-2~0----.

I
I
I

I
I

-I ________ a ________ _1

---------.--------.SUB
EVAlAIl
01010

PAGE 21 OF

21G

II
I

21X

---sfT-i GNORe---COOE FOR PH
8. RESTORE
PHAse A2 TO
CORE

--rii----o-SNOTCO-

20U

215

9N

. 'PS II-....-PMA..

... . :-

OII~. !!~I~~::~._

0.,60.

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

~----

22.

L,M
---.--:-e:I~lflr. ..}IIIT
.ASA
•.----e--. ••

olno

151,

• • ,,~.....U ••

·,J---T--- .

·.la61ItlD

o• •

.·2ID

O

03220

«)Jzao

----i5-'-i~im~--d I
I
A~ Af~tO
--------e--------I
I
I 22t

:R

220

__ _

I

I
II 22E
---CHECK---------

01240

12211

r-mEL~iiiiRs-1

DPEUfllO---SU~RDUTlI\IE

I

01300---------j-:::-----

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

bm~l\Io---SU8ROUTlfIIE

_

IzzJ

NO

---------,-------iBd~.iTII. I
LXEmaN
I
--_-----e-------

03290

---~~~~~~---------_~~~~~2-----

IOU

I

ESSDR

0]230 DDA2

'AGI II OF 2

-: .-------nlfHt.Ne
... .:.

..._---j".
"R"__...-.
OJ210

A-.i,n. Al
--1iHi"-!!!...-.

EVALAO

- _______ e ______ _

--------j--------

TO

MEXIT

IOU

I 12F
---CHECK ---------

012~O

FOURTH

OPERAfIID----

..

SUBROUTINE

EVAUO
-------------I

TO'22G

216
~'s

03120 OMES

230\

I

~~~m~

I ~m~MT\fIIE
---------.------....
I

l1G

"LPH

•
e IIlM
o RM, AL'H"l 0 OMS."

J

240\

• 0

I

')1)0

I 238

ING MODE

SwatH FOR
ALPHA

OJJ40
•

0

REtaRu MARK

•

°it
0

0

liD
OJJ~O

~aiR"
UH

.

t

23E

.0

•

TO

DMZ

23L

nF

---_____ a _______ _

DIGITS

~ 0 ••
•0

o

;IIIM

•lJH

IU

;-1;;;111.••••lit
••1£ _Iil •• 2JN
0

I

r)7)G

2~1I
e----.--~.

0)420 DMZ

I

~!!I!liJu" HE

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

N~----·I·-·

.---------f-------tt2i,,::I
-•

....

;aOCEOURE

I

UJ

•

• • 0

I
I
--------e-------__

.

ZJP

-~--iiii.Rii-------,

10M'"
•
--------.-..-- - Z3P
TO
allSE1l1

0

-Lot·

-•

90\

03410 DIISENa

-,--liiiL-iiiiiiis---i
CTII

03170 ,.110

U)450 OMSER 1

LOLIL

:----I-18:!I~;:-~--:

YES
03360

_

TO

•

•
• NO
oOISES~'~"Na o/INa
o
0 23'
•

23H

---------e-------- .23P
TO
DIISElll

I

IuD
.----.----.
---..I----.

25A

100

03400 M

.
.----.----.
BReAKER A

--------e________

23H

K

"-

I

2lt

0

0

0
0

•---iil,I'I-;----- _

•

---------e--______ _

I
I
.----.----.

Sfto~UpSOl.~

e----e----e

033YO OMSRM

-1'---~~ioi~i~f!S---I

o

NUMR

I

PAGE l ' Of

.----.--0

03380

1---E~ALulif------1

I

1I-0';'·-P""5E "---SEClION U

.

••

H~---IO-.

1311
:·-~fli~i!=: :---.:

014JO

·.-----e__.
TOi,.,.

an

n

'5'5

.----.----.
.T

O)UO

lU

o

.-IS
•

0

•• •'&3NAT
o

•

I

00

o ADOIItsS
o

0

ASUG~EO

0

Z4E

0

•

--------.-------.--__ •I---_e
0

STARr IN AN

0

o

•

"

NO

'
ADDRESS

ODD.

--------.-------I

•
•

0

I

O]~7U

YEt;,
• nMSRM

• A~ FOtJ~D

~'iEND

• 23K

I

I OR I

o

e----.----.

.----e----e

YES

o

• K

o 2U
0

'01
•

TYPE ERROR
MESSAGf.

0'

101
101
o
101
'1*1--------*--------1* •
TO
I
24H
SUBROU liNE
ANAl4

0

•

NO

01G+2

0
0

----~---.-------TO
I

!

03030 ERU

124M

---iiiGiTS -:------

,

241

---------e---------

I

I
TO 24G

24H

r-nm~:~:----":

• 4

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

I

•

• ZIftS

OI~ITS

2 J,I

0

C.~tAH(;E

o
10,

0

•

NUDE

24H

.----e----e
I

YES

I

e ____ •I ____
l4F _

o

•

••

FOUND

•

•

03610
ERROR
241 ewe_let
1* 1--------.
____

,

I
.----.----.

I
.----.----e

•

2U

03560

ENDING M!JDE
OPERAND.
S"RROUT Illf
MODt
I
I

23H

0

•

•

0

•----e----e

~O

I 24£

FOU~O

MARK

I
I
I

--------r------HAL

I

• . , RECORD
•

IHARAC~ER
UIIIOU TI HE

Z4Q

~~iRM

I Z4K

o

---FiNo-cDMMA----

•

.----.I___e.

0)550

240

I
---MiKe- .--------

1'10

•

0]600
0

mmR
" eTHAN
100
____ e ___ •

I
I

o

•

Z4J

- _______
e _______ _ •
(YEN LOCo

03~IO

•

~¥:ROUTI NE

0)540

~~~h~O wiLL

0}500 OMESh

I 2_'

I

Z4C

02"0

..---Ai~i Ai-iiif---••

~~iSA

I -LOC:-----Aujiis T
'

o

I

015'0

o o"OGUMMU

".f'IIOR

A I

I----e----.

NO

I 14H

No----i----·

O}....

2_H

li1)

e----e----. "
I
.--_ .... ----.

"

.

.---.--- •

01510

e.

• 24'

DIISALF
o

AN

A

'ES

OJUO

II-D---'"AII A--SfCT 1011 A_

OMSALF

TO

248

TO 241'1

218
SPS Il-O---PHASE A---SECTION A4
01640 K
7~A
i---seT-s~ijcH----i
I
FON HUM.
I

I
I
I

03700

2SG

•

I
I
I

I

.----. ----.
I

•

•

•

2~8

SPECIFIED

·.----.----..

• BY PROG.

•

•

o

o RIGHT UREN
o

ERROR I
0

I

Z5K

SUiROUTlNE
_ _______
e ______ _

i
.---.----.

I

A~AL

I 2Sf

0

o

UYE'

o

HAN 100

•----e----e
I

01HO
0 0

•

•

0

~IIRII

••
o
o
o

ZJH

125F
o

oo:-;;~~;~--ooo ~'ifND
MAliK FOUND

•

!!O--T---O
•

TU 25G

0

• 2IK
0

MODE _

CHAIMIf

':5--0
,-_-0

NO
0)690

I zn
.----.--"

01"0

o

~IIMER

0

.----e----a
I

0

•

0

~o
ER 15
25S

I

I

0}790

---e~m~~:=----

lSQ

DR FLAGGED
~UMER I t

YES

~V:ROUTINE
________
e _______ _

0 "fAGITS

o

I

03730

CHARACTfR.

0)6'0

0'

• ZSU

e----e----.

NO

.----.---a •

•
o CHAR.

YES

0

2~G

L

25R

---gi3ij~-:-~---•
250

••
0
0

•

lis.....
250

"M
.----.----

•
" YES
•• ImTALr~N •• 1

• o VEil

L~.

~---i-"

•

0

2_"

.--------e------. no
fD

25U

MESSAGE
SU8ROUTlI'IE

TO

---- ____ e _______ _

TO

OF 17

':1

10\
,'1
f: I---~~~~~.-------- : I

l5P

03780 DIIESll

FOUND

•

I

2~0

I

03770

•

I

I

---------a--------I
1

I

2~

I: 1---TVPE-EAiiiiii----I:'

1:1

I

I

I
e----. ----e

03820 ERRORI

P~OCEDURE

• 25Q

I 2SJ

•

--------e---____ _
OMS~UII

•

25"

-1---m~~Aii;)------i

NO

OMESII

11SH

03720

---Ci'iECK·i4EXi----

0

0

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

250

ONE III

0]670

.----e----.

03760 ER 16

•

---gi%Hr:-~----

yt"S

OMSNUM

I
03660
I 2St
---i~cAEMENT----ADDRESS 8Y

I

I OR I
FOUND

YES

I
I
I

I

•

03710
•

WAS AOORfSS •

NO

o

•o

--------- .--------03650

.----.----.

PAGE

OMS_

TO UN

219

O"SNUM

250

'AU "

. ---iiijMi-----·.--------r------Iilu

----A--

2U

01"0 DVl.t

IIII!

I

01.60

OM90

•

l6a

EYALUAT~O

•

•

DPE"ND.

0.900

•

•

I 2'"
e----.----e
•
• YJS
•• =:iS~='RAND •• D F

03150

•

.

• ----.----. ••
ON

01910

·.---- .----..

.--------.-------- .
EVAlEN

·

NO

·

•

YES

039ao MOVE

01910 ENTER

I

03880 EVAlEN

0394D

26F

SUBROUVINE

DF

OPERANDS

•

--------.-------,
,,

0

26R

04040 ER9D
lU
-1---siA~ARii------i

UROR
PRDCEDURE

,
,

I
I
---------.--------TO

eOiTER

26L

•

.----.---e•

OFf

o TEST SWITCH • DVRI"

126M

. 0 END

MOVE

I 'US

2101.

•

EvAlAO

l6R

I

XAb!Dl&~s~~
--------r-----.----.----. &~iNO
.----.----.•
•

OPERAND

I

TO

,

•

·ON

.

010
•

•

---evALuATe-----"
FIRST lNGTH

I

26V

I

*'

il---ml;I~~~~:----1
- ________
e ________ _
ltHmt

--l~lfi~ :~f---

,
---------.---------

I

.

lta·

O~O)O--------T:::------------.,
--------~e2!~N~ttS~
---------.---------

2611

l6D

. -___ e ____ •

.

I

DV..,

LESS • • E'"
• • IVtll1.
"AN DR
o QUAL TD .0 • I'V

• YES
U9D
• DPERANDS
•
• .-___ e ____ • • 26l

2"F

.

.

E

06020 fR.I
.

• ________
&JlIAND
e _______ _ •

e---.---.•

I

TO

:'--Biii~::::----':

•

2"11
e·.--.---.
•

•
o END OF

.--....--...-.--------.
--------;.--------I IIID::e I

IIt;

O'WoO

OJ91D OVINO

--------.------01920 DVlP

2"0

fI)

f2u

. --·~i:~!~:iii-·-

".----0----IttP,· .. '

TD

~'lRINhNGTH

',I

03160 ON

UII

..-lij!,,-' .

0' "

ztu

06.0LO OVRTII

'M

IJftO

---~!j~~~iili---

• 26E

NO

26"

.··&IITlt~ITt"· ••

•

--------r-------

I lip';' 1
I 8ec,
.----.--.

____•••__ e ______
OF ___

.·---iij~a~riiSj---·.
•

••

e--__ e ____ •

I
I

I

04000

•

26U

26T

---~j~:HF:--

• UQ

ND

I

TD'26N

TO 26G

------::c:----220

SPS II-D---PHASE A---SEer ION A5
04120

'AGE Z1 DF l7

041t~1 ~~!~~---.-!!~----'Ol

27G

-,I---m:~:~~i:----I
PAP
IN
---------r-------TAPE

'*1

1:1
'01

- _______ e _______ _
TO

SNDTtO

(14170

r--:~~~~' ~~;----1

!

• ____ • ____ e

NO

I
D4140

1,1

04080

27t.

i~~R~n,r~:

--1i:P~AsE---

I
I
---------.---------

--------e-_
. . __
.'NITI

,
I

I

e----.--__ e•

0* :~A~'o.plg
•

• ____ e ____ •
NO

1

I

04100

1

!--------.-------_!
TO

TO

YES
•• A5TOP

.

• ZTU

21E

r-!i;-I~t~ii:-----I
I

~~ti

_________ e ________ _

061 0 STIIGII

,

I

21V

"

, 270

•

'0'

I---Q&fv~~~Tii------

--------T:::-----

r-~l~A~m;;~---i

,.,

I:,

,: 1--------.--------,: I

9'1

\. l7H

04130

TYPE

2~~t:l~A

21.

:1---"litjIoR---I:1
~ ___U~:!!!~_____ ~
T)17G

all

.NNtAl

LAlIL "IU
nmH

0~6HCU

i~t't

I~

24A

n~7H

DIIT

°IBitc!

DN

111=5

26¥
li~
l~kL1D
DAND
I.G

INDADR
K2
LI
oMACRll
-MTIU
Non
PDU
PH816
PH126
PH8H
PHBH
PUT
'SCAN
SUBRT

DNI

~n(=
I

o N

'I'
1911
2¥R

n

L2
IIACI

~6E

N

2.T
1R
3D
4N
22N
I)H

NOJ
PHAS,I

~m4&

'PH844

.:~r~AG

'l~

iETFRII

oRA

10

2X

II

o INDltATES UNREFE_EN'ED

r
It'

~\D

:~

Z.J

zb
t, °nm
vLl

iI

I~tp

o

N

otUUN
L

=bvuy

HUIIERC

~~IIS

PH:i~
PH
•

I
22L
14&
lOG
2g2

PHast
REllA L
mAfF

9A
f6l

2;1

l~u I~ ~:"
:Um
nl
Il~
ISt'C

HK D

~ilhi

G I
J
U'DD

ttl

a=~~rl
~~ItA
PH 6

I~~

JH

171
22U
I"N

PHI46
'PHB8

Ig~

o,ra KR
RNUM8

OIl

LAIEL

RETgR~

J~
I'

\' 2 ~

il~

liD

2~~

:~

4G

2

DUND
H
K

°U

N16S

1I00lfi
OR P
'HiR
.PHI
4
oPH J
.PHUI
PH84lA
PROGR
ORSTR

B

°um

6G
15A

.UEO

2~

:°ft3
iSS
iC2

n

o~~~T

m
m
1~~

t~~C3

6P

IT

UU
}'U
3G

nNPRT
II
MOVE
HOSINE
oPCON
PHI15
oPH82S
PH842
PH848
PROSGN

20l

'IV

24N
24E
2Y
4H
22H
2JA
19K
I1G
24C
UC

'm~E
2PASS

222
CROSS-REFERENCE TABLE
ASTER
8CMSPC
8LOP
8SCYC
8SEQ
8SERCH

mA

C
CALL
CAlLB2
CFIL
CHCK
CHCKA
CItECK
CltKIO
CItKNO
CO~T

CORER5
DGMI
OIGAlF
DIGITS
DISK
DOCON
ODDS
DOINST
DOLLAR
OSAI
OSA2
OSA3
OSCI

8~F

Dvdl
DVlC2
DVLC3
DVlC"
E
EN
ERDVlC
ERIO
mLAD
EVAlER
FIT
FLAGGR
FOUND

r

DAND
OSTKR
OTl'
GOI
H
HI
INDADR
J
K
KI
K2
KJ
L
LBADD
LINPRT

U
L3
L4
L6
II

iiAuT
DFY
II DIFI

3E
3A
4P
6Q

bL

o INDICATES LABEL NOT FOUND

4N
loP

SE

6L
bl
4P
2"0
IC
~H

IbY
ITA
~V

I"
4,
210
5Y
150
~K

20Q
HC
1G
1G
'IE
3F

5U

30

3C

4H

1X

3U

1£

261

26.
26X

1).

14J
140

1

6J
6D
6K
16R
H

,,~

24H

16H
IJU

5'

2N
ZF
lOA
IIH
24Y
3D
14&
711

5.

IU
'L
16U
9R
OP

1
f'~

I"Jd
A~

~

I~~

SS

5L

91

9'

3V

2X

Il~
190
ZIL
19N
"C

21H

2'"

48
BR

20U
19F

19J

U~

5N \
lOB

UK

23.

221,

In

1611

1511

140

11'

115

ilL

I1X

'K

223

11K

r
6N

6H
'IE
.E

9A

6U

14l
611

511
4A

m

fA
20X
411

nc
1K
n

.J

m
Ip

iog
IJ

r

CIIOSS-U'EIIINCE

119A
. .D
VAL
VAL
VALl
IVA~
VII N"

'2

HAD
G

TAIU

• INDICATIS LAIIL NaT POUND

l~~

••

t"M
fA

t~
m
m

211

.,

21A
I•

2411

UQ

'V
20V
9J

17M

22H

20N

liD

155

UJ

]X

3'

210

21Q

21e

2lV

ZOS

20J

6N
211

411
1M

lL

Ie

28
20P
4V
5"

2G

III

5X

5D

6C

5P

911

'IU

'IG

21'
611

lie

a

6Y

nlll

4Y

HHA
I
J
K
L
LADDR
LBADD
LS2

23G
Z"Q
25P
7"
611
6Y

m3~

LNTST
"AeR02

"UIT

"ODIFY
MOvE
N
NIC
NOP
NOSINE
NUM
NxT
Off
OP
OPI
P
PHASEA

~RoeON

PROST"
PUTSRJ

~

REAOI
kEAIl2
READ)
RELER
RLOPI
RseAN
SECDND
SfT

~ETIND

ElSYM
SNDTeD
U8FUL
TCD
rsTNUH
2PASS
2PSOUT
2SECT

21N
'IE
17.
19G
I

~~

2611
14T
78
~S

15E
4N
1711
26e
)U
3D
6J
'IN
211
2F
20M

40

6C
2A
2A
lIH
7D
2Q
2D
6G
23l
12U
6K
27N
'IF
278
6U
108
10H
10C

111

245
UG

14S
I5P

2e
12N
21X

UII

'1Y

'IX

'IA

19 1,
SPS Il-D---PHASE A---SECTION AI TEMPDURY
00020 START

\A

00060 PRoeON

I
I

COMH SEC T.
AND AReA
SET STD.
SU8R PAU"

I

I
I

I
I

i

I
I

I

18

I
I
I

CORE MEMORY
Sile

I
I
I

YES

Ie

00080

I

Mmt'n~E

I

I

!---~!!-~~~~~-----!
TO

00050

PHASEA
ID

2A

I:

II

l-PASS "UOE

00140

I

IQ

-1---iiil~N -OiSK---j

00150

f~B~;i!nn I
---------r~:----­

IK

---ijL~~~gASE----

cod.

~~'~~lrTO
------___
e _______ _I

_ _______ e ______ _

1

00100

~ROC. TO

-----~---r-------

-1---m~il:i9~-1

:mE~ m~

AND RETURN
TO PRoeON

I

II

0

IJ

I

I

I"
---------. --------'I l~p~I~E¥ET I

---!~!~!.-------I:f

00090 UP

TO

'"OSTM

I
.----.--.
\L

•
• COMM
• 'VNA '19E
• 'HASEA
' . BILe&l:ENT . ' 2A

•

cn---,'--'•

00110

1M

J--~;I1"i'I!!~-~

--------~---

TO

THIS PART

mdn Sl~

I

00130
• 0 CALLA2
NO
•
IN

'HAllA

2A

liS

1U

s MASTER
INITJALJl[

I

SOUIICE STMT

I

I

I

1J0160

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

II:I---jvifFNi---I:,
:1 cl~EP
OF IN
1:1
..
TYPEIIRITER
101

-1---sEr-iNiriil---j
81NARY SReH

I

IH

.----.---.

I

00040 AICL

I

•
o IS COL. I
•
AN.
o
o

--------- .--------I
I

.----.---e

00070

r--~i~~~~ i~i-----i

IN

r--iii~j ~~~T-----i

I

i9:,eA~RHl

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

---------.--------I
00030 STARTZ

PAGE
00120 CALLA2

r--ser-y; -------i

-I---j~jr:·;;o~ir---j

I

IG

2N

I DF 21

• IWOle".,

tIlO$~-IIt'''IW' . T&"'~
~Ilvt.

I~'

ilipE

=Mellt

1&"1"

'H'
PHI 6
I
PH

R=I

'9

O.

I

~'"

Z5~

nu

]8

]C

]11

e

lIG

P"
PM 4
P" 4
PH 4~
PH 46.
'H84lA
PHI48
PH849
PHUI'

14~

4F

mAIl
um=
mHo

;?
'\9l

nms

Ilg

18

?V

n~

I9J
IW

PRO~GN

7$

~

I

m5~

,~

IA

tI

I .•

D

11·"·t

Na'

I.

11' II
:=1

~"'L

14~

141

24~

95

'~~~lF'

9X
9P

\1~

itA

2PASS

13P

224
S.S II-D. PHAses 81 AND 82
00020 INITI

IA
i---Mi~e-o~e:-----i

TIME

I
I

1~1T1A

o

I
I

LlZATIDNS.

.0

•

o

.-

•

•

.----e----.
I
1

•

0

~ROM

10,

....

'~D

00040

I It
---------,--------I mG~AM TO' I

00 2

•

ASS
IJ

1:1

I
I"

00160

IJ

I

REC.• I

---------r:----------'
rr------I
'ij~1

I---------.----"itliaosl I
tOR

o
0 0

00110

lS

THli A

A~M:L~

y;S---i----·
I I~
o

l---ii:ji~A~~-~.

00

-~--

o

I

YI$

.--------r-~-----:
TO

IG

00

o

'

,

.--.~

YIS

. TO

III

00 0
0

(o(

l'

I
(

I
I

IU

~A~Rl~G~T~~

E~CEEDS

50. .

COL

I(
(

-------T-~:-----

00
00 1V
0

...~---

1

I~

oono

.__

,0

IV

i---iieiuRN--------j

IV

.---.--. 2"'"UO 001"1~."1 lW;kl~;---lil;
. I ....
...--- .
°IfI ('JIi
T~1.1 A
IT..

10 ,

(ot

0

e----.--_e aan
'Xi~~EII'"T
tt__--e--.

o O,"!'ja IN

I

t,,'--------5--------

00220

r-i&iit~i:T ---I
I
IIIUsUm

1111

C!C!UIiI GOI

..'

0

0

I:I--------~~-------:: I

(

IIIASf

0

.-1--------.--------1-1
1:1 ~&il~lTED
1:1
1:1 m~W~mR 1:1

1:\ Il:'EM~~~tEI:I
IF REOUIRED
1:1
1:1
I. r-----------------1-•

NO

0

I OF 27

IU

002 0 NAST

lQ

o

00200

1 /---IPjnl~~:~~---i
TII'.u~iED I
OL.60

---------.--------I

DO 110

n

...

1P

--------r~:----

....

~------

I

IIIIK

001,10

OOUO

0

:

! fN~NL6s
PR~S~Nr
---------r-------I
.----.----e
I

GDI

~APE

AS REQUIRED

(o(

I:I~-------o--------

I

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

I

:

j---iL6iii.Lij:-----1

r-Rii8~ Aa~E---i
IE

i: 1---TYPPMgiiiR---I:
~~~~HS~M~M-

00150 CHKIO

DISK

00.100 ZPAU

I
iT~T e ________
O~~5~ I
_________
I
A~ 159.SECJ _I
CALLB2

Y~S

0

-1---iift¥;!~~'CE---i

YES

o ARE SURROUT • SUIlRT

INES USED

fao TmS A

I"

00140

N~---T-~~O

00090

18

--.--~

..---..... ----.
IG

'oASSEN~LY

I
I
---------e--------t ....
....

000]0

PAGE

OOOto. PHASE8

.

OOHO

I

tv

-l---m~rf~ii----I
,,&G~=lm
---:--.--------

PAGE

'SP5 II-D. 'HASES II IND Il
002~0

SCAN

I

I
I

I

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

CHARACTER
IN OPERAND.

________ e _______ _

I

00)20 PH810

28

I
---.
. -----a------__
_I
I

II

.----.----.
I

Olll10

20
.---- .----.
•

00280 PHB8
•

I

00380

I

I

I

(HARACH-A.

•

.--- .. ----.

•

PHB11

YES

I

•

ERRO~

I ~

• ___

SX

!

I

I
I
I
I
I

YE S

I

TO

~o

PHBI5

2~

TO

I
I
I

~"

2l

~o

I) CHAR
RLANK

£VALE~

to

...,0

U

2V

.----.---.
., .
·
···.---- .----.. ·

00410
yt:S

•

OPERA~O

•

•

IS CHAR A
SPEC CHAR
OR A-l

I
I

•

I
I
I
I

00400 PHBI4

I
I
I

RElOCATIO~

Yt~
• r,fT

•

.
*----.----* .
.
····
·
.----.----.

!-- ------ *--------!
I

•

2X

IS

ARM

2E

I
IF
.----.----.

I

.--~-.----.

.----.---NO
I

RElOOHhll
I TV

•

2•

CHARACTeR

2N

1---ANALvif-Re:---i

00100

II

BCMSP~

NO

I

I
I
I

I

I

I

II

I

---sEr-sw-,rcH----

---------a---------

•

I

TO IND CATe
IF OPERAND
IS PREHNT

003QO

StiNG CHECK
• A COM~A
yf S

I

DOL' lERO

I
I
---------e---------

lQ
00350 C
-,---6-ET-~EiT------i
HAR.IN
I
PERAND

2H

2V

j--------.--------j
I

!

_ ________ a ________ _

88

lU

I

00310

I

l1

j---'Niiiit i6i----j
I
,KLkE,TING
I
-----____
e ________ _I
I O~AAASmAl

NO
__.eVILAO
lU

r-~~A6i;~:iiii:---j

I
I
I
I
I

~Il

•

•

00360 EVAlAD

•

l~

00340

YE~

.
*----.----.

•

lH

• PHRtO

RFCORO MARK

~

yES----I-----

2C

•
• l~ IT A

IN

_-_ 11 Al

_ .. _______ e _______ _

-I'---~g~~~f~~:------

E

Dono 'Hill
•

i---ii~i:'~~----,

SMIfCHES
OFF

00260

e----. ----.

00]10

2A

r--i=i'i3iliE ----j
I
I
---------.-- ... _.... _--

OF

PHBlb
~u

3A

226
SPS II-D. PHASES BI AND B2
00420 PHail

3A

00480

i----GEr-NEx'T-----j
I
I
I

CHARAt TER
IN OPERAND

2K

3B

BEI~G

CHAR.

B

PHB19

DOL' OOl+1

3t
.----.----.

·
·.----.----..
NO

YES

•

•

30
.----.----.
•

II

lQ

·.- _- .----.

3A

NO

...

IS

CHARAC TER

tHKND

00460

I
I
I
I
I

.
·.----.----..
CHARA~TER

• A'I AshRISK.
NO

00530 PH819

35

•

••
•

3V

I

I

I
I

00410

•

.---- .----.
3F

CHARl~TER

00540
•

.----.----..
A.

NO

YES

•• OOLLAR
')N

I
I

TO

I

YES

·
.----e--__ •
ANV SYMBOL

e GET

•

loA

I
I

lW

IN OPEUND

!_-------.-------_!
B
DIGAlF

I

•

·

lx

I
3A

3E

•

PRECEDING
•• THe e

-1,---g~I:~~ ~i:"-----

4A

.----.---- *. I~tER
•*

5l

_________ e-- - -----_

*CEr

.----.----.

NO

34

Sl
00580

•

~HBll

e

I---~;[~:i~~::----I
COUNTER

•

YES

e.A COMMA,+.-.*

e

CHKND

II

00510

vES
•• e~A:.S6~ONO •• PH811
• OPERAND
•
3A

5Z

tiO

•

·•----.----e.

NO

00450 PHS16
•

•

I
I

•

CHK,.O

PHBll

1.. 0

·.---- .----..
.----.----.

IS SYMBOL

e ____ • ____
00560 ASTER
lV •

lP

•

YES

.----.----. •

GREATER
eTHAN b CHAR

YES

• ,..Oli-BLA,.K
• PHR20
CHARACTER
•
3R
• PRECEDING S .

00510

•

GREATER
•
THAN SIX
• CHARACTERS

I

.----. ----I
•

!-------- .-------_!
00440

I

•

I
I
I
I
I

•
•

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

lS

OF 21

llJ

SYM80l.

I
I
I

CHECK~O.

00550

---sE,-swi,CH---FOR S IN

00500

i-----cOLt"ec'---- -i
I
I
I

i--------·---------

J"

00490 DOll AR

1___~:::~:::~_____!

I
I
I

!--------.---- ---!
B
8t~SPC
OOHO PH815

PAGE
1G

lG

227

4K

PAGE

'PS 11-0.....SIS ., AlIt .2

'l'tO In

e _ _ • ___ e

'"

• .·dIn'
nil M! •• Ubi
.e
•
ALL

•.

•

It.

~····r::·

OOtOO

••

••

e----.----.
IS

·"O----i-----.
'R'urn

I

OIUO lI....
••e
...- . __

lUoo

•• 5A

:

Ite

I
.···iiii·;--····.

II ItO
j----·hjjAR'-·----j
CHARAC TEA

Eoure:liN'

--------e-----DIGALF

•

"J

I

"I(
e----.----e

00'.0 DIGALF
•

. .
•

5A

•

lERO

•

No----i-----

I

00670

r-A~~~ai
I

.

IiLm a

NO

"a

- ALPHA

I
I

ItM

Itt

-I :---ALPHA' :-jj---- --I
OPER • ZERO

I

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

---------e--------B
E

I

ItN

PHIZ6

00610 MOVE

2B

-1·-·A2g~i; ::-~~-·-·l

MOVE

;--·----1

B

I

00120

0

0011o---------j--::--·--

8EU

I

2Q

"Q

.·•·•
•
.---- .----. •

YES

•

ItQ

•
.----e---.
e
.----.----.•• lES

•

00110 ILOP

ALPHA

NO
..ILD'

.•

YES

Itll

---------e--------

I

lUoo

e----.----e •

•• • IfslhH..

:

r·n~im5~~·-i

I _______ e ________ _I
.....
I
I

8

~--·r::·

00'00

ItM

00650 PHln

·No----i-----

I

.----e--.

I

.----.----. • moo
••• •sULABEL
l~At
••
• SA
oouo

.:·m"tc:,n:":.
•
•

l~NO

OI6ltO 'Min
••

It OF J1

2B

ItM

r--ALP~:;;~-----1

I.
---------.---------I
T.I ItN

SPS II-D. PHASES II AND .2
DOHO LUoo

5A

00100 BSERCH

•.----. ----e • ygs

5G

mAR~UmE

I

SU8. BS.

I

NO

Dono

OOBlo

~

MC~A~TUL

8LOCK Of
SYMBOLS ON
TH[ OISK

•

OouO

• -WAS SYMIOl ••
FOUND

•

•

CHECK

8

5P

r·m~~~ ~;:::----I

!all
•

I

SL

DISK UNIT.

0088:·----·-00160

---------e---_____ _

I

I
I

5U

i---~i~f~i:;~~----I BLOCK
I

·.----.----..

I

I
I 5H
.----.----.

00920

•• mSWiL~~~' •• M DfY
• AlREADY
• 5V

I
I

---------e---------

EQUIYALE~Ce

5~

00860 CHECK

r--,mia~iNfo--i

THI S oH~
SEARCHES
THE SYMBOL
TABLE FUR

5C

r::-----

r--iiA;ijo;~iii:----1

THE BLOCK
CURRENTL Y
IN CORe IS
ALWAYS SURCHED fIRST

I

IO~Tt ~~AaCH

I

:--·--·--r::----tt_---.-__•

oo..
00110

50

i---irAl~A~}i~----i
I

I

---------e--------I
I

00180

I

I

~='~K Ilf

Sol.

00_

5E

.---.----.

y~~.

G6fn o·

•••

•••
maCH
• PAllf I AL ILK. 5G

·•---.e____•.

t~'R
5W

I
1
I

00190

I

5f

I~~~~~~~~~:~~~~~~~I

•

,aa,.aYlIICll.

•

.----e---e

•

o

0•

o

•

In.

.----. ----.
S9:'tRE 11.11·

NO

·0

·0

~FaiL8c=s·

.--e---.
I
...---.In
_--.

•

0

o·

~mY
IV

No----i----*

IOU
00910

'

...

00910 CHAND

.··~l 'alll'L·••In
• lIilcH
•
•. , "

I
8

5l

i,---ij:i Iji?::---________ e ________ _
~=Aa~
I

I

,.I5G

'0

alB

6A

5N

5'5 II-D. '"'SIS II 'NO .2
00. .0

n

PaGE

• OF

PAGE

1 OF 21

"

6G

01110 ISHI

6Q

-1---REPlACe-------i
I

lEFT LIMn
IV ADDRESS

I

~eMmLE

1

1

- ________ e __ -------

TO

BSCVt

6G

III

01020

01080

6E

!m·mwA
THIS RTII.
URCHES

6l a
a-___ • --__
0
HIGH
~~m~~ SVII o.&sHI
• TO TBl SVMI 0 6Q

o

lOW
BSlO

N

• 0

6P

ET LIMITS

o

a----a---.
BSEQ

•

EQU

6N

OIOlO RS
6F
1---i~IT'jAL'jlE----'j
L1~ITS

I

1

!_-------.-------_!
TO

I

6G

230
SPSII-D PHASE U

01190

a----.----a •

•

g8l8N

o0

7H

• OECLARATJVE.

01200 OOtON
THE OBJECT
OUTPUT IN
RElOAOABlE

01150

I
I

7C

FORIIAT TO
THE DISK
FILE

7H

01260
o

II

---------r--------

o12 t~ I--------! --!;!----IOI
:1 CON~mT
\:1
IF NECESSRY

(

7K

•

\
1P
a----.---..
a•

.•----e----a
IS STMT.A
OMES

1;0

01270 GOSTKR

•

.----.----.

01330

lG

1

___ J~~~~!~~! ___ J
I

1-------I
/:1
1:: :11a\Yri
u . . · 1:1

01290
0

o

7S

.--------101
lYPI OPER101

IF

• ________ a ________ I_1

GOTO
OUOO OODS

,NUEI
7T

r-~::~:~:~------l

--------.-------, ) 7U

131

1)

lW

PARAIIETERS

)

1________.________1

7.
A

I

j---SET-UP--------j
I

1--;yiCH·~Aiiiis---j

!uMJo

DS

o

PHASER

01210 PDSA

1V

.----.----. •

DNR

I

B

I

I

I

• IS STMT A
• "HASES
o
OS OR A DIjS 0
•
•
lG

7X

70

1

I

I

•

• MESOUT

I
mToO~J~T
Tn OI~K.B-T
I
-I ________
a ________ _I
SUaR.STAtKR

101

I

01320
YES

I

I

WITH lENGTH

:~y ~go~5~~

lSTOUT

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

j---iiiiiANGE-ii':---j

.: --------0--------1:1.-.

101

•

•

'--'UNCH' ciRii----.

II

I

!

I

II

I

-I ________ a ________ _I

7R

j---ii":iic -iiii-----j
lOSt.

1

7'

POSA

01310

I---ii~~j~gi~:----i

GOTD
•• OOOS

..----a--_a.
m~~~S TO

GOTO

2~OT~mH

01250

7G

IG

GUTO

Ges rKR

10

Olno

IA

r-:~~tiil::--l
---------.--------YIS

'HUn

IG

--!f

232

. . . . . . ._ _ _........~IiiIIIIIIIIiIII................_ _SPS 11-0 .HASE

....

PAGE

8)

014]0 STAtkR

mTsw~R

.'

'RRA~GES

~O~p3'J?~T

•

I
I

9 OF 27

911

Ol'l90 -

910

•

.----. ----.
s~"h~f~is

~.EV. STIlt

•
YES---"I---·

•

NO

•.IiEWll
• lOA
•

I

I

01390

01440

98

I
I

9G-

i---~;~n~~~::----l

ATI

---------r-------01410

I
r-If~!:!~j---l
--------.---_.. _---

01 . .0

9D

"

n~

I.' oc:-

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

•

.'

•

I
.---.---_e

YES

01510
•

.
.
----.----.
. U".· "
•

9f

••

•.

..•

II

SElm
• 108

I

.

II
I

I

01570

.' II!Ili;R~TAr ."
• ilcOA!! ,¥r ..
"

S~MUUR65

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

,g

•

9V

I---I"i11 Ai:lze----j

NO

I
I

911

NO
SETFRM108

YES

',S 7f-DIUt ". ".OOI~1

I
&It." •·;-I·;~;~:"" =~ASEI
01'110

~~~,

01560 MODIFI
•

·.----.---..

TIME

•

lIP

• OF REG.Flr

9J

01450

.----.----.

.' 8m

~mA~~r

•

WRllES T
JO
H, DpK
SEC OR

L______ ._______ J
01400

OUOO,IT

9H

r-li;I;m~:---i

~---T~:'

•

• "IS THIS'
TCO
•

·11&----1
0

014.0

••

'.

..

•

---

0

."

9U

.

.----.--

01470

110

• IIPf

•

""'~Iiiiii;-"""1

l~_,o.
ty

---------.----~---GDrO
FIT

.----.--0
.11

.·'11 I~U! "

.JUAIL
••IstuJig •• ' I
--~-.-.

9P

r) .11
an

. "S1I-D 'NASI IS
0"10

NEIIIL

lOA

W~D I_
I--------_e________
----~~r¥·-rOi----MI6"NI=
AN L NGh..

GO TO

FIT

"

"

~AGE

SPSII-O PHASE 81
01670

llA

II OF 27

llU

01830 OAS

----iVAhUATE-------

1°
mm~T
WH~CH IS AN

b~M~D.

I ig::?Ume

---------r--------I

INSTRUCTION

I

01840

11V

l---t;=;j~::-:----I

---------r--------

.----.----.

NO

I
I
I

llJ

018~0

-1---iiji~N~-i;---i
MNT~9
01'10

•

• '''OAIlAIIIIEII

llL

I---------.---n!;;i~i'!l I
•

LlIIP'"

01120

01860

III

-,---iiiiiiF----- --I
igl=O~¥iNE

---_____ e ________ _

•

Ills

01110 '''OSGN

235

lIN'''T

lA

1A

11 y

-1---tijiil;:¥F---1

l---illtili:~~:---l
-------~.--------•
LIN''''

NO

- 11 Y

YES----\-----

---------L~:-------------.---...----

---------,.-------

•

_- lisAg2=~SiY -_'''OSGN

I

r-iiiimE------I
01710 FLAGG"

I lIW
.----.----.

:R8"[!fHA~¥
---------.--------•
LIN''''
1A

·SPSII .. PMASE II

Dike Ollis

PAGE lZ 0' 27

12A

r-ll6j;::----j
---------e--------I

I

011.0

121

-I---!i~ittii~s---l
.
Ii V lUI.
I

---------j-------01900

IIZt

I'

--~mi~~--------

P~:~HA~~'8R
as REQUIRED

I

---------e--------8
PHASER

lG

236
SPSII-Ii PHASE IJ
01910 Dt

UA

I

THAN

50,~ET

01980 P"'.'t'J

•

o

• NaT.tHU A
CDIIIIA Oil
o REt.1OA1K
o

ItO
0

•

0

IiITH"

.

•

PHil'"
13h

1.IlJ

01990

S~A~~tB ~

o

DRJ-R

o

.----e---.
I
I
I

UU

•

THAN ,,'U,..
o OF DIGITS
o

YES

NO

• fRIO
•

0

14R

I

II 13V
---Aiijiist-co;.j----

02040 HI
~D

0

TO HAVE
LEiDI NG O' S

RREC
oUt

0 0

.--------e--------.

0

IlQ

--------e--------I

• LNTH GRTII

.----e----.

UREC

I
I IlW
.----.----.
I

02050

r~fii=:~i~;----l

AN IE

RINTED

~

.0

02020

---~pmiii;Svr--

--------e------H

I I]P
.----.----.

YES

I

.

0

02e ' o

II

---------e--------

I

•

~mA

I

II

I

I 13t
....---.----.

I 13"
fGIT

---------r--------

---~-----i--------

I

•

fIU"ER

-._- -----r--------

---------e--------01930 TUft

'.~

I3U

•

I~ORCA2M=T

NEH TO

.-- --. ----.

02030 H

UN

i---P~~f' Niiii:-----1

! _"_.or I
I

UB

LENGTH·~O.

02000 PHI'"

i---SET-FLAG-D~----I

-1---i.=;ki~~TH-----i

I

IlG

01910

r-mi~~r~;;=---i
I
ImOUTlNE
I
---------e--------01910

'IGE 13 OF 21

••
o

I S · . gl~l

INSTRUCTION

0

• I Dt DR DSt • 13Y
o

UC

.---- I.----.

0

DC

lux

r-jRi~~~,;;----1

------r-------IllY
.----.----.
•

02070 DSCI

•
00

o

o

CONS.~NT A
lUI

,.0
•• PHB51
• I~A

YES-i----I

02010

I UI
r-&~iiR~mr---l

--------.--------T)I4l

237

PAGE 14 Of

n

e---_. ____•

••1tO ,....

I ••

'Is

•

• 'IOC
"• !eo!
_lodY 01(11" •.'1GOAIID
..
• - __ e ____ •

I

•

'"0G
01100

•

1'"

:.--litiUi ;s;---.:
....: ---!!!!.:-i~:----·
r-~;~-~2rj:----i

Dc----i----·

02120---------i-~::-----

.'·---A;----··. 81Es
'. INfil HiT .·m .

I

02110

·De---·'----·.
~i~

021]0 DCJ

PH152

I

02140 DStS

_________ eLNTH
_______ _

ms2'.
---------.--------a

PHIS2

LllfH. COMPU-

I

14N

I

HI

uv

14L

r-~28~i: ::-~----l

LIITH
8

14R

-1---~2g~i: :~-----ill

02190 DSt2

-1---ii~;~At8~::----1

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

022)0 ER 10

----iF~t9~si:-----

a

IU

14K

1411

--------.------a
PHn2

14N

I

14F
---------1>---------

Rh.'Ag~R:1

---------.--------PHOS2

A

14N

238
PAGE 15 OF 2;

SPS II-D. PHASE Bit
02250 81t

15A

02310

ISG

---ReS iORe------

02260

158

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

lG

Lsp

OBlO

---eVALUA fe- -----

AND BUlltHfS TO FJRST

D~sm~lm

•

ROUTINE

uno Dsa

15C

023'0

(,'~&s.
________
e-______ _

"':I~_

Dn.._ _

I .:[
.-------..--------I
TO

I...

PRO~RAMMER

m,~~~D

•

YES

..·m

• OGM I

r-tl;-

15R

~l=;;~---l

_________ e _______ _

OUTlIIE

'15E

I I~O
.----.----.

•

Nii----·,----·

------T~::-----

-1---;:'; ~i'~------I

•

e..

fm
--------.--------OlztO

m~OUTlNE

--------r------•

m~~uriIlE

-1---~iiiii!~-------1

amm----

02)40

-1-~-~ijii~!E-------1

OUIO

02380

l---~~;~~~;:------l

PHASE B3
!THE PART
COVERED BY

.---~~~~!.~~----.
8
PHASEB

UN

02320 DGM

I

02360

US

r-~il~:ii~;:----l

---------e---------

I
-,---~i~:ii:fi~--~-I

OU10 DCiIH

UT

,R8Rs.

_____
• ___ e . . ______ _
IT.

T)"U
U9

15U

. p,

•• --~~iil;------ ••
Imili.

~\II. SCAN

••

mao ------T~:----

___

"'11 ~lli GT"· .Jlft'lLC

..

11I'c
.----.----.

•

ADORE 5S

PUSE~T

•e ____ e ____ e
"0.
I
I
I lbD

OZ440

.

••

•

'I~OFF'
•

•

I

••II"

O~---'I---'

02500
.'

OZ510

lbE

j---TuRN-swjTcH---j
I
1 OFF.
I
,

•

OFF

.---.----.

•• 16P

I

1·160

AUI~iHoN

·ON---l---'.

UR ' . VLt3

.0

•

ASSIGNEO

I

'I:

02520

16F

---evALuAtE-----lENGTH
OPF.RANO

•

sun.
--------e------__
SCA..

~:~R2~DS

lNTH' 1.

--------.-------02620 OVLC.

I

re------

blM~o"

o.DVLC.

•

sua.

SCAN

--------1--------

I

02630

16Y

-1---~ii~~~~LNTH---i

! ________ . _______
GOTD

16T

SPS 11-0, PHASE

•

16l

JIVE LENGTH
OF CONSTANT
MAKE TOrAl
lENGTH. 50

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

T)16U

.

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

..

I

16J

02670

-I---LEFT-

I11H

mis;----I

SUI.

___
I ntw',.... I'

"

o--------i-:::-----

.--.~-.

NO

TO"7It

I

·.JAIJ.A

••.T'
1

UQ

.I

I l1W

02aoo

-,---RiGHT'
Aii i is----,
• LCTR
--------.--------~

I

117X

I gl-=t!&:O

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

OUTlot, 1\If.

II

--------r::-----

O'l60-:::::---i-:::-----

02.20

..-1itLHiii:~~---· .

l----A;;t·,,·----l
_________ e ___• __ ___

•

I .:
:.
. .'dlt" .

omo

SUII. . SCAN

-~-----r:::----

•

I IthK:----l

!)'f

=sij~~,;---LIl1l'ii'

I

I

SCAN

. - :.....;;;.~~!".

I

I

II''''"'

.,no

lCTR + 35

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

02110

01700________

• ••OPI, . IIff
D_

r-~m;!iiiiRs;---i

-1--iJ'liliD;;-----1

IUF.

-.-~.

II· 11'1

02190

omo--------r:~---

11K

••......III

llP

-1--1iaLHm:~----1

--------.-----1~

011 I

I
I

01140

I
-I--ijiid!ir---l
SCAN

--------.-------I

I--------r-------EI~AmoB I

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

SUI.

---------.------------Mo-e-o;ji:----

---------r:-----

~uTJllt

r-~;;u~~-;~----l

02730 PHUU

-1---iiiGHi'
AODA5---,
• ltTIl

01690

UN

I

LEaR" + Z3

02680

~

,

PAGE 11 OF 2

02120

-------SE'--------------.-----_.GOTD
CHCKA

•

1)114

a.

17A

llllTH • 50

16H

--cur--EFFEC:---

240
02650

J

CHCK

OZ640 EROYLC

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

T)16N

lA.

lU

---EVA~ul

NO

0

•

LINPRT

r-~iil:~~~~!---i

,

I

To'16G

T~~A~M3

• 16.

•

02580

-\---HiGH=oiiiieii----i
OR ' 0 • •
~~Rles~ !UF I
_________ e _______ _
I

•

16W

I

11bM

OVlC3

II
~~mEg,,8Y

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

I

02"100 a'llCI

I

I 165
r-~ir~aenm---l

mSI~UmR
-----____
e ________ _

--I ______ e ________ _I

I
.----.---e

Y:s--T---'
.OU10

16L

---------P--------,
mC~SSOR,I

I

•

SFF

16'1

---ResriiRe-------

--------r--------

• 16M

I

02610

1611

•

• OFF
16"

I

I---~~vi!!I::-----1
---------.---------

•

---------1-------II jl,f~!jI~TO
IATII~m

16K

•

I

---------e--------GOro
D'llCI

02550

16J

. ' !.KIUHON 011 •• DVlCZ

16E

--------e-----SUI. SCAN

0

I

ON

8

e----.--:---e

02"90 tHelIA

i~--iij~S~SMA!CH---I

02"50 TKNOFF

I

LESS

•

• ___ e __,__ • 0

-02600

.··--iijiiil:-----·· .

•

0

•

Ill"

02MO DVLC2

OFF

o·• l!sIJ'&ro"
'.J
I;,
I.'
•

----.----

• 'HA.
• ___ e _ _ • • III

•

... __ • _16U
_e

OUtO

I ••

rrd~~;;-I

.

eHc~ I~1

. ,•••

---------r-------OZUD

I

-----.--

•

-I---iiiiii-IWlTCM----1
. OVSII. ON.

oa'J'

..;I_"
__~

rug,:

•

OF ,

"GI 16

""All ..

"no

~..

0141. IV.'"

•

u-o.

"
211

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

TOI."

S'5 II-D.

,"ui ••

"IE 11 Of

llA

021.0
.'

--------1-------mLM,U'NO

'.

-----.-..-------SU8.

SCAN

I

OZI50

,,

..

I
.----.----.
, m)6
liB

IS
OPERAND
PRESENT

,

.

liD

•----e----•
• ND
I
I

02860

I

I

I.C

j------SE T--------,
{JPER:~D

!

TO

--------- .--------I
I

I

I
I

02870 PHS]6
i---~iivE-

I
I
I
I

lBD

opeii-----j

TO OUTPUT
BUFFER

I
I
I
I

..

----------.----R
PHS)5

115

H2
SPS II-D. PHASE B.
02880 0"ES5

029.0

lOA

---EVAlUATE-----ADDRESS
OPERAND.

PAGE 19 OF
19G

PUT BUFFER.

---~~~.:-~~~~----I

02890

198

j---iiiisET' --------j
I

STARTING
MODE SWITCH

1

I
I

(---ReSET' --------1
I
I
I
I

POSl flON
INOICHES
ALPHA.

I
I
I
I

I
I

190

I
I
I
I

DIGIT COUNT
WlTH OUTPUT
BUFFER - 1
USED I~

II

19P

•

,

"", OR

02910 PROGR

r--msume::---i
Cf~O"S STOR
IN DATA IN
UU PUT ftUF.

I
I
I

..---e__o

0, :a6At~~D

i.9F

.----.----. • YES
IST OiHAR.
',M
" 1NR..'
RAND
ZOX
•

,

0

o

~----r--o
fO ItG

NO

02990

I

,

II

I

K

OPERAND.

19U

. ---~~~:-~!~------ .
I

~g5anE
---------.-------GOr

•

"

I
t

,

,

o

o

22&

I"M

1---~~l:I!!~&:---1

------f·;;..;=-..;

mE~ W~M

•

FOUND

NO

'/)
, 21J

YES--T---'

I9U

I

roll'"

I

• ____ • ____
19X a

03070

YES
o L

,

19W

---~~E~i~~~~~:---

II

1

I

03060 K2
YES

19R

I

1

I

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

iras1t¥

MODE.

0)010

19L

o 'RS"i"'MMElt

I
I
I

.----.---.
I

K

I
.----.----.

.,

I
1

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

NO
0)0)0

19K

I

o

,

20X

---____
e ______ _ •
m~:ESTART

02980

,'PROGRAMMER

0, :~~m~D

19K

CHARACTER
FOUND.

---------.--------ozno

•

---ALPHA' -------

I
I
I
I

19E

I

I 190
.----.---- , ,

0)020

I

FOR SCANNING IN
NUMERIC

I
I

I
I

19J

, COMMA FOUND'
,
AM------;-*

I

II

-1---sET-sNITCH----,

--------e________

COMfit.
•
ALPH
NUMERC , WAS ALPHA.
'PROGR

---------i--------02920 CON'T

19P

MODE

.----.----.

02960

!

1---jNITj AlllE----1

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

I
I

----.---- *--------02910

22A

L

0]010 NUMfilC

.---~~~.:-~~~~----- .

I

19C

GO T

tOMMA FOUND
NUMERIC
STARTING

I

I

I
G
_________ e _________
I

I

02950

I
I
I
I

--.------ .--------I
02900

I·

I

I

19N

---------.--------I
ET
I
IN~T i uptON
AD US TO
I

I rgmYAa

!________,_______J

.

I
I
I

0)1100

-1---cLEAii·iiuT:-----1

0)090

o•

,

I "Y.
.----.----

•, N
YES

RM fOUND

·

,

, 20w

-IPS ............ 1M

'AGE 10 Of I

011110 U

105

0"20

rli!t-~l'!:.--=l

I

•

•

oa aM

·YH---r*.
FOUND

I

I

•

•

01300 II

• ANY CHARS.

I

I

20R

01310 II
20X
.--~N$iij-ENO----.
•
0' IIESUGf
•

•

sus.
------.-------OMSRl

I

01320

I
I

03270 DIGITS

lOll

10T

03330 LA

2011

tOUIfT

i

TO 21A

SI'S II-D. ,"ASf ••

MOST AND RT

21G

.. --1~iiil~\26--- ..
OF liE SAGES

•

AND II DE
CHANGE.

--------e--------

!-----------------!

I
I

PAGE 21 OF 27

03.00
•

GO TO

•

1I

•

20G

I
03350

21B

03UO CONT

21H

r--~1i1~:::::~---i

il---ti2U~~~:---il

!_-------.-------_!

--------e------

CHANGE.

I

0)360

I
'

21e

III

GOTO

1911

I

---------l------

01420 113

I
I

21J

~8u~8uA S~

." F

NO.

.

omo--------T:--tt_---.--•

01370

••• ' ,""I
ICIER .'.~T
lIullbe '2111
•
•
y;s-e·-·-.-.

y;S----I----·
OUIO

21E

.----.----. - YES
HA • •Ll
• • fill
HAR. TA.'
• YEll l
• lOG

'M .
.e----e----.

01190

NO

121F

-1---A~nn~sT-----1

B&"VT aUF.
Plll~ctIlG.

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

[

I

TO 20U

IIOST lOC.+I

I 20Z

SET IT
I
It AIID
IN DIGITS.
,
--....-----.--------I

I '~f~It~U
---------i---------

---

I

,--coM'uje-------i
I
DIGIT

r-;i~~~iiir---1

I ABt,ut lu •
-------:i

-11--8B~~Bj~~~~r---

I lOY

--DiGJTS -:100--I
I
I

i--~~~;!fi;!~--I

2U

•

I

I

03340

YES
• l6

N~---i----·

-------.---I

•

'..:~WG~NOp -

I

1---PARj~t=&S'S

01210

I
......-.----.
I 2011

•

1 "•

e. l •
• 20V

N°---T:-

moo

I

.'201

YES

.

MAliK

I

200

I

ZOV

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

..0--

lOll

.-• NAlel~Ra

• ltV

' . ¥ttt..llf'oO'TR •• 20r

•

2DZ

r'&~AS------i

----.---.
"D}G1JS IN •• ~nITS

• 20g

.----.--.•

OJl90

100

01290 l4

..--.---...

• CHANGE

I

I

GO ' L 6

Lop

01240. 13

. • NO
• liAS A 'AIIIII • U

---------r--------0)1)0

ZOOt

_ __

•

J~hM:Ol
8~~~~i i~F.

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

eTl.
• IIOOC
U
•• L.nilo~ll. ".1(1

.~OT.;..II

ZOU

--------.-------DllOns -100

.

~

o---.----e

DJ210

10J

01110

lOt

-1---,iRfN.FOUNO----1

. I

________ e ______ __

ZtlII

SUII.

. fiildEI. .

". l:./!NAL· ..'

i
it:HiP"
___i._e

0_1110 La

0]120 STOllE

.

OJ210 D

20N

t

010.40

21L

r-mf!:~;lt-1

------e---_
GOTO

OJ450 ,UT

liZ

1911

UII

---------A--------I GKJ.!,2-X'. I·

-----....-- afil
SUI. Dllila
1;£1'0
II

T)ZIG

245

IPS II-D. '"All .,

o...ooac:

aall

·-UlUn--·

•

M

•

0

•

_ _ e _ __

sc:u

SUI.

•

•

•

I
.--.--.
•• kII:. 2"1. .:111.,

0 •••0 "MM'

.

zaN

•

•

·

I

•

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

• lS

NO

• UK

I

01500

0.110

•

THI ~'ST •

Pili.'

,

•

on 10

PH•• ] ' ZZN

PHIU

---------.--------I
PH•• '

22U

I--~jiii!o·----i

--------r-------

I

031&10

2U

~.t
••,, • ____
~REIE=~T
e ___ •

NO

•

.

"

'PHIU

~. 22N

•

122M

i---~RiAji-.----~

I

ZlRhg

!lSuAL

I
.----.----22Y

YES

I

03530

I

StaN

0]"00 PH. ."

• ______ e _______ _

I
e_--.--,

I

SUI.

I 22 x
---l;j:-1RDRs---Rj. 'iBDli!
2 , LIITH OP

2211.

01520 PH... ,
,

IKAkV ~JE..

I

j--------.--------j
I
LNI~oRS
I
I
I
---------j---------

I---ciibA~i;~-----J

,I

-------e---_

I

omo--------T:::-----

y;S--T:::·

Z2J

-I---ii';hl~~-----

2ZV

---------A---------

110

'. •In=lt.O'T •.·22U
01160

'¥SIGII • zle

,:DG--·,----· •

01510
•

22U

.·•·,.I!
il.J~; -;~~: ··.:AW¥III

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

.

• ,RIll
10
• ___ e _ _ •
YES

.....~~l:---I

01510 'H"5

•

DlieT~ISD:e

•

OAe

',PH"7'

• 2).

•.----e--__ e•
DSAe I
I
I uz

II

TO LENGTH.
_________
e ________ _

T)2ZN

246
P'GE Z3 OF 27

0]"90 LINKS

21G

-1--T«Dj~n~~F---1
N Xl EVEN.

~KHEl~N
---------r------I

I

03700

2IH

r--~~j~~~;m~-~I'

I

~8MS~MJDN

- - -______ e ______ ___

0]1&50 NOSINf

21e

-I---"OVE-L~K:.-~

'~:;8V ~I.

---------r-------01"0

I

.---RjijOBi-------.

r--l~ft~:;-i-:---i

I

:

I

- ________
_
LNTH.e ________
LCTR

01"'0

i

03720---------i-:::-----

ZlD

I
I
.----.----.

123J

OHIO

r-:~r;~::-------l

TH~

n.t]

:

•---____
iftmEK.1Y
e ___ ___ •
UIIPU

."

UE

•

. ' IS ~~1~ A
•

.--__ e ____ •

YE$
01610

•

ND

, .'H'"

,•

22X

I
1211'

I----:-ae;'::------;

------...------•

PHI..

Z2K

141

IP. 11-0. '"'I. . .
01"0 ..

PAGe 24 0' "

0••• 0

2.'

,~

.·-·YIH~·.

lRi221RY

____
:."'!"-,..'Did'i.

5PI, ..U'=
01 SIt

e _IV
__

•:

uwar

fA

241

OJ910 CALL

'4V

-,---m--ii~A¥F---1
I f IVEII.
S HEJ~

-------r-------e----.----e

0)100 START

0)980

24C

' 'PUT

·

24H

NONE

•

011 ENTRY
I
SKELETON
________
e ________ _

•

•

I

I
I

I
e----.----e
•
lHKS

·

•

•

j---.iiANCH-rii------,

2«tV

L _.~~~~~~~_____ J

CAll

I

I

-t---;~--TO.
C

03940

2ltE

~TER.

II

---------.--------I
I

24F

03190

-1---FiLi:- i ;;-------,
SKeLETON
MOVE TO

I

I
I

ZEI'O 1."0

I

--_______
OUT e ________ _I

•

,

O]9s.-::::----r:::-----

2411

r-niA,~j~~----i
_________ e _____ _

- _______ e ________ _

04010

-1---;eAii-iHf------,
EOUIVELENT
UBLE.
SCAN EQUIV

I

I

----!~!!:~
04030

.-------_!
II
I

0.090
258

[~~~~:::::::~~~:
I
04040 FOUND

II

m&~D"m
lIN~RT

I

.'• --------,-------=ml! l] '.•
JH~ ~.IT
'. .alUEi,1Y

--------8------ .'
I

'HAUl

lG

25~

r-iir~~~~::~---l
---------j--------04010

I

I

:lSD

---------f--------i~~~e.A~ I
Lt..;;i Til
I
---------j--------I
.---.----.
•
251

04060

•

0"
," II~yo:~=AND "."D3
•

04010

·

.

• nG

---T:::O

I
I
I

I

24l

-'--R-1ADiHe------i

3#
PAGE 25 OF 27

Z9'

I
--------T:::----

I

8---------•,

T)25A

---------r-----

I
I
I

,

!
mU
I
---------.---------

SPS I I-D. PHASE IA

04UIO N03

•
NUME
OPERND • FOUNO
,
'25C

ElENT

T)'4U

T)2411

25.

T~ST

o " lENTRY
F R THE

248

04020

,

F II ALPHA
' 0 NUMERIC
AlPH

-1---~i;~f~Ei~---,
LIN'Rt

T)HG

.---. ----.
I 24Y

\

I

I

I

04000

I mn~Tl'ii I

• __ ...·e ____ •

YES

I

03130

'---T:::'

---------t ---------

Aiioiii----,

b dA~t

~m~dOIST

I

I

0]120 OTHER

24.

yes

ft- ___ • ____ •

No~e

i

03990

• TEST CAU L ,
•

I

o

24D

03110

I 24W

-,-- Ri~T~~~i¥g~---j

• • rES T TYPE •• ~,aEA
•
OF
• Off
INERS
e ____
e ____ • • 24E

-------;Hl--------

I !~~,=t
I
-----_
....------')2~G

141

. 1"

II-D PltASI ..

'AGI It D' "

--------1---------

OUIO

26 ..

I

I

'F~IN§t:r
---------e-------04110

268

04240

AI1ID 8UNCH-

f~sfMm~

~~Un2~IRED

0~130

TU

L NPRTe ________ _
- ________

26C

m~~FER
RETURN

04250

-1---~i~iiii-------!

TO

ADDRESS
ROUTI"E

LYNPRJ

O~l~O

260

04200

85 FROM

I

O~160

26K

I

0~210

NEXT EVEN

OUTPUT
8UFFER

--i-----·-PHAses-

26L

0"220

L_______._______J

'

0~320

nSA3

.'•

I

I

I

I

•

I 16l

.----.----.•
HsJHAM~8

.

OF STMT.

• ____ e ____ •

YES

-------::C::-----

TOl26G

26Y

---------r--------

26M

I

261

r-tii:j~;U~;~---I
I

ADDRESS OF
10 ROUTINE
TO LINPRT

I

I

8

04310 DSAl

-,---Miivi-0isii-----i
I

,

---------.--------osn

lG

A DRESS

---------.-------_!
I
I
I 26F
i---F'ji:i:- iN--------,
BRANCH
I RETURN AND I

26X

i---si;~xi;~-----i

PHASE 8J

~1~'~pTO
o SK

I

COUNTER TO

I

I
,

04300

t~Dp~U~iH

---------j--------

I
I 26E

NO

---ReSTiiRe-------

I

'j---Aojus T-AOO:---'j

• ___ e ____ •

--------T:::-----

LlNPItJ

!

I

M~RJO

MAliK TO

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

I

04260

-,--MOvE-RECORO----

gu~c~N90

MTU

MTRA

I

I

---REAo-PHASE----

O~150

.

12611

'j---ii2ve-ReCoRo---j

I

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

I

I
I

126P

rTlii;ifs;----j
I
I

NO

•• OSAI
• 26V

I

I

TO 27A

250

SPS
0~330

.----. ----. •
27A

•

II-D PHASE 15
O~ 390

II
-I!

J

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

at
---------.---------

EVEN

L 91'1111GE

I

LINPRT

I

I

I

278

04400

---m;:~3~:::----

127H

r--~M~~vi~o~r----I'
I

I
II

.

f

270

I

I

--------.....I ---------

I

27Q

-,--i~ffi~tfi~i---i
fNP/iJ ° I

--------T:::-----

·---ii:.lR~E~~~i---·,
COYERE~

PHASE . ,

BY

--...-----.------8

PHUEI

•
lG

.--iUPOATl-ADDR--.
• ISS COuNTER •

.

04440

---iiJSTORe-------.
LlIIIPIIT

IT LIN'U

I27L

04.10

LFf. AODR •
RT. ADOII-5

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

I

J

27£

THr~MJ
~2mEK,1Y

I

I

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

O4JIo-------T:::---•

oJ

MACRU EXPAN

I

r--iii~i¥O~-;:--~-1

t

LOt.

I

I

i

04480

2711

r-l~T;fRD'ESS---·1

OF 1ST OPER

I

I

04420 "AC I

---------.--------04370

--_~~!!_2!~ ___ •

.

'j---m-~~g~;io----

I

0~470

27C

r--YGOtli;i:crii---j
I r1WAg~R
--------e
_______ _I

U4360

LINKAGE.

I

!_-------.-------_!
I
II

'm

04460

LI'ITH • 5

04350

27N

04450

-f---i~~~¥!~i:!:----I

LOCATION.

.----.----.
I

0~340

27G

MACRO

-,---AiijUST"LOC:--i
TO ..EXT
I

YES

. ' INSUUCTlDN •• MAtt
' . A. MACRO
• 27K

1'10

PAGE 27 OF 27

--------j

.

27M----

-,--"jji~~:~--------I
• L1l1i"GE.

•

7A

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

rol,,"

251

LAlILfllL1

• INDICATes UllaE'IAENCID UIIL

II

~NIM
~h~H
DO

sue

usee "

3A
2R
2F

21.

4M
IN
4T

10

4X
4K

n
40

.illl:

tI

1M"

• INDICA"!S U8EL NOT FOUND

CROSS-ReFERENCe TAILE
.MONCl
All
AOK

t2

2G
4P

IQ

4U
4A

4G

4l

18

40
4U

IF

au

. ,"ASI C. IPS 110
'"AstC
IA
---;-Ls~f;s-j---•
• OF 01
•

.

.

.,

.

.--------.--------.
,---.----1 ~aS
°suus ~fQD

I

II

o

0 0

•o

_ • -1
10
o

0

~o----i----'

I 1IA'I U • • • J . .

i--itt:i~~tlf-~
--------r~:--

-------1-----

I t~:i!!L¥·· I

-------i--::----

I

IC

-I---ser-UJ-Fiiii-----,
NO

-l---~~~=:~hi:-1

~U8R~

!
---------.--------II

I

I

e ___ •I ____
10 •

·

YES

o DO

• CARD IMAGE
o
08J PG"
o

I

. CUD.

_________ t _ _ _ -. _ _

t~

o

o

No----j----I
I

I
I

DO

IE

r--:g~E~fi~E-----1
I

'GM

I
I
!--______
o ________ !

-______ 0,( __-

I

I

I

IF e
. - -__ • ____
o

o

o

SU~R

RD 01"

REQo

NO
SUE

0

1M

---~~iiIi~-;~~--

0

•

ot

____ t ____ •

YES

0

•

28

I

TO

I

.--------t---___ .

T)

IG

IN

254
PHASE C SP5 110. CALCULATE PERTINENT DIMENSIONS + EXIT TO

.----.-----

.

2A

•

•

• LAST REQo

•

~O

0

SUBR PA.D-

•

o CeSSEO
o

CALC

"A

0

I

!

I

t ____ •I ____
~IlE
28 0

o
•

I

• RO SYS COM,.. •
SK fA. TO
•

• ,ZERO

!I

2C

.----t---_.
I

YES

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

I
I

2J

~a~pA~hO=l\i
AOK

2N

NO----

•

0

••

ALL
IT

P~OCESSFD

MESSAGE

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

O
\-----

.----.--_.... •

I

I

2~

82;a m:

-.All

o 0 @UI~ Ir~DAE
o
_
o EXCEEDED
•

2T

"

"

••

•

2Y
.----.I----.

•
NO
OUTPUT REQO • 0

•• ;1

YES--f

O

o
----

O

zz

.0 e---.----I .0:Ik
·.--1---.YES

-------e-----__ _.

I

--------r-------2F

• _ &,C3bI~U

zx

---iiiii'TE"SyS-----

NO

I

I

2W

-ll:';~;:;~----

YES
0

----~~ji~ii~a~~---i

MOAf T"AN

2111

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

2E

I

+2

I
I

I
I

ERROR

•• o BI,WtTl:D

___~m!h~~~ __ ·

•

I

.----.I----a

"Ai

•

I

I

ZQ

•

o

•

BUNK RECS

·.----.----.

YES
••

I

I

20

---PUNC;;·'------"

AT 403 TO

•

• DETECTED
NO

_________
e ________ _
mRCe:MU
I

---'TYPE-MrnGE--TO

I

II

I

.

BEEN

2P

t

01 SK

I

.----.----.

NO
IS II ST
••
o
DECK PUNCHD 0 +1
•
•
20
•

•

•
• HAS ERROR

r--~~ii~ Dia;~~---i

---------r--------

I

I

•

III

2H

r--m~i2r::----1

0

.----.----

2U

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

I
I

2 OF

PAGE

2~

r-~i~;!m~l"---I
I CORE REQD. I

.----.---.

NO

MONITOR

'OK

0

o

VEs---i-----

.

----.--•mRl8 f~ '. •16~
• CORE 1 MAGE
•
2N
2G

--------- t ---------

I ifli'i: I

-_

ZIt

TO

---GQ~-·-:MUNCL--

I

TO' 2G

ns

4

J 0'

' ....

251

'.,

•

,

•

2

•.tt-......--..J• • •

'YES

-----1--------

.--.----.

.N

.---.-~.

• • 1Oil:..IN'TIiY .,. ·~IE
•

-2

U

411

1'B1·!L~ml

"REQO
•

'--'---r::----sue. su·. llSolM
• • .s

.
141
------'
.-----I------·IIN,e ll,I
...._-----."WL

"EClf'IfD

•

'" e---e----.
lID

ll

...

GO'D

tlDI"

.-

U

,I

--'1ii--t--~--

In'iyAi,

.. ----.....·e-----'" :!L.~.
'
'. 'HS
•• l l1f' O
I'."UTI
•• If
" •• ,.,

rr-;'
.
.
, .---•.....!!.

..

.. ..

• "'.0 limN •• I'OUI
" ,

'

.aT'
, . 'ill!'

'

I.......,"
-• Il'"

el '0.11

•

'

.II'IV

.~...

•

"'~r~·
tl ".,

• ,es

.. u

••

•

I.,

" . - _ .• _f> . . . . . . . . . .

·:·tlrlrlt·:·n.~m

t--..•

•............
Yll

tVW

".--_e____ .

NO

....--. ----e

•

.

•• SU •• LENGTH"'

SIZE

•

•

~UO
4H

28

•

•

Lun niLe
AOJ
CK
FOR E.
MONCAl
NYH
RO eTL

sua

-su~

RO

~Y

Asm"

1.

~ORM
=om~
~B,m

3N
IK

H

4S

n

ELETS
FYLAF

:0'2I~

6H

'hA

I HOltArES UIlltEFUENr,ED LAlf.L

~AP

NEM

-SuPt

2P
3M
lU
5A

61

2J
2A

W

tl

INb
NO
SY
Pt
ST
RM
YLAFP

U

1A

5U
2X
tN

]~

-tHEtl
FI\ SY

~3 i~

mE~U
XEO

CK SET
FINAL
IIANT l
NXT I NO

1H
"/J
6J
5F
6R

_~(~KSV

'v
10

2ND PC

258
CROSS-REFERENCE TA8lt
• FSl
AOJ
AOJ 0 I"
CAP
CAP CK

CK SET

C' SUB
CONST
OELErE

0'''6

F I l sv
FINAL
FOR EX
FORM

FYLAFP

INST
lNG C.
MANT l
"ONCAl
NOINST
NEW CD
NOISY
NOT RM
NXTINO
NYET
P 80TH
P Norc

mm

Q CK
RD crl
RO SU~
ROFRST
RM

~S~S~

r
YlAFP
XEQ
2ND PC

ZS
6F
7W

2"

-

INDICATES LA8ELNOT FOUND

5W
4G

7w
ZW
40
6N
8l
5l
7N
4G

4A
4A
5'
8J

4P

5N
3l
5"
6H

3Q
5H
bG

5X

3M
60
'0

5G

4V

6K

6Q

6V

2X
3W

2R

2Q

1M
bU

lJ

3J

ZO

2V

~~
7A

5N
6Y
6X

3G

SE

5J

6P
5Y
2Y
48
2C
50
6K

zr.

2W

lH

8G
6Z

259

lA

4A
2Y

~~

4f

6W

•. IMOIeAT'" LAlIL IIOT .ClUIIO·

'"0SS-II"IIIIJlCI. "IU

it

..N

"I
1&

Ii
..!
Ji

'"'
~

..0

2A

'I

IE
II

JG

2M

2J

If

,e

IE

10

280
SPSLlB--SPS II-D IIODJFleU10NPIl0GIIAII--ENJRY ANO.CTL STII P!toeESS
00010· PHASU

110

-1---i~iia~i;S------1
ReAD StNT

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

I

00090

I

00030

I

\8

r--=m~y:-------i
I
I

I
I

ROUTINES
READ INPUT

II

!---~~~~~2----- ___ !
• SUB

I:1

00040 PROCON

I
II

5A

"ODSPS

Ie

:I---mi;;;:~---:--II:!

'

:1

I: --------.--------1: I

I

R::K
....
---.----.
•
•
• SUB

00050

5G

NO
-.PNASU,

. ' ilNCOl

•

·yES---'-----.

•

IG

.,.___ • ____
000.0 'lloelO
IE e

•
-~D."ISi

'.
00010

•

Ik~a~IiW

•

- NO
'NASEi
••

110

yES---,·----· •
IF

-1---iiiiifTo..----IIOUT HE

I

---------0--..------

--------T~:-------------,------I---_____
in!~:l,~TEO
I
.SDk"
UIT
.. e._----__
_

" .. "
PAGE.

1 OF

5

oouo

tl'

00110 ENDC1'

2A

.---ai--!t-o;-Tii---.
IN
CORE
NO" $,1.
•••
•
alA sr.f.

•
•

j---'I'ltiftca

.--:suii---I-MiiiiSPS-.

00120 tl'2

TO

&lRIII
2M
. : ---TYPE-1mDy---I:,

TO

00190 NOSPAC

•••• IN COL 1 ••• :~~C1P

2li

I

• ·op

CODF

ALREADY

•

·

lG

2J

- ________ e _______ _
TO

PHASU

IG

20

.----.----.

•

PHASEA •

r-m~;N~;~~~---I

I

I

00140

•

I'

~ ---::::::------HI

I RotK

I
e--__ •I____
2t •

NO

IN TA'~E

•

---------e---------

··.----.----.

IE

PNDCZO

00110

l---li:';~;'~:-----i

DOIlO

-~

_______ e _ _ _ _ _

21

.SUI

2G

••

l~

•

IfilN
2H

TABLE

. -___ e ____ •

'10

I

II

.----.----. •
•
I

001~0

2E

· .----e----...

• ROOM IN
•
TA8LE

•

~o

NUSPAC

•

2J

I

YES

I

II

00160

2F

r--~~aE~r~~~~---1
I

I

I

I

---------e--------I

I

TO

PHASEA

IG

262
SPSlIB--SPS JI-O MODIFIC,uION PROGUM--DHETf OP CODE

00210 C2P

3A

00260 NOTI N

.---REAO-OPTAS-----,
I
I
I

INTO CORE.
MODIFY SP5.
RUD STMT.

-I---~~~~~~--------!

I
I

I
--------.---------I
• SUB I MODSP S

I
I

00220 C2P2

PAGe

3G

ME~~AGE

I
I

---------.--------I

.A

TO

PHASEA

lG

3B

r--TVPE- siMT------

I

I
I
---------e--------.SUB I RDtK

5G

I

00210

II

.----.----.

..

•
• •

3C

IN COL 1

•

•

•

.

YES
ENDCIP
2G

~o----i----·

I

II

00240

•

•

.----.----.
3D

• DP CUDE IN

TABLE

Dono

.
•
•

• --__ e ____ •

YES

•

NO
•

NOTIN
3G

I

I

II

31

r-8H~i;-------I

---------e--______ _
TO

PHASU

I"

au

l

OF

e...

00110

u

00140

r-iii~im;-····i
---------.--------• SUI IIIODS~S
002'0 C4'1

41

00300

II

iI,ono CtENO

4H

...

..-----

:

•

TO

IG

TO

TO

."'leAL

PHASEI

IG

"

~.OClO

00.60 t20ECT

--.~-----

,

118NYruR

MOOS1>5 ExU

If

4J

I :x~~.=i~AG

FOR IIUlleU
DF SYIIBOLS

--____ ... _ ... e __.... _ ......_ ...

·-·--·---r-·--····
00110

0

-~-----

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

4C

-1·-··uuSi·;_.A;··--,
I
I

PHAUA

I,--------.------U~fL I" I

4U

o;------,

:.----'Ui'-~~U;----·
:•
h s~

.. ·-·f~;ul;i8·i··- ..

: - _______
~Yi.8~e _______
TAdL _

r1n~~·if---l
---------.--...--_....
TO

mr·
r-..._-------.---------

DDJ.O C"

OOJTO C.
.11
--·~""-I-··-·--·-'

"

• •• 1

TO

.IINeAL

I
r·ivPE-.Siii,·---40

···:siiii-TiiDci(·--·

•

!
.----.----

00320

4E

•• *.

,

5G

. .lilNO

IN COL 1

-It
,

4H

.----.~---.

~O

00330

•

!.

•

4F

.----.----. •

.' 8m
•

Yf~

LmL 5 ' . C20m
•
ItJ

·.---- ...._--.
NO

J

TO

I

4C

r

'; 1

T

~PSll"--SPS

"1

IJ-O "ODIFICATlON P.OGUN--SUBROUYlNES

PAGE

•• ----·---1--------'I''j

00410 ROCK

, .,
•

•

5G

TVPE
TMr
UIILES TYPE

INPUT_

J

' •

•

I: 1---..---•........t: I

OI)4~O....._---.------_
I ..
5H

I
I

00410

!Ef~ c8~ 1 'I
'

···-··-·T~::···-·
••;;.--_••

I U'M?~ml
····s~··iif

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

004~O r·iiTURN'I _._---]
SII

._-------.--_40__-

us

5 OF

'>

. SUII SUP.I SPS 110 10 .PI .J •• JNI ••• IQ lOG

'I~

ICI"CH TO CDI'

YEs---OI----.
111

•

.'

.----.---. •
~RdMP8~SK

·.----*----.

•

YES

NO

• "'1
•

1N

I

I

lL

-1---SEy-jj;-COMii---1
TO 11.0

A~EA

DIJ PGM

I

L_~~~:!t~~
I

!
I

I

____J

1 ..

j---iij-jjUA'-jo----j
DDAR FOR

I

I

~gGcg:~

I

PGM I

---------.------GDTD
I

I

lD

XEO

28i
SUBR SUPER SPS IIU ... STAU HERE ... ORTAIH UaD Syut .. PAU"ETEIIS
SUPER

2'

•

TO

!

·

2J

NO

2H

•

'.

I

:fi~RST

·..o---T---·.
I
.
----.----.
.'
'o'
· .
CODE· DISte.

• 10 t

•

•

2J

y~S
mWM~L
II EX
•
• 25

•

.----.--.

.' ilioEnAILE
•

·

•

•

NO

.

·----r:·

-1---aIi2~i!~~

·

0.'+2
• 211

.

• COlE IIIAGE
SPS p,"

•

FD~::--r::o

.

• 2'

GOto

•e---e--.••
YII

I

TO

•

2t

3A

r-iiiii!~iiF---1

I Ire lORE
I
---------.--------GDTO
CTL'2
MANT L

2Y

zy

i---i~~i:i:~----l
-_____
•__ e________ _

- ________ e ________ _

I

.

~D

GOTD

.PSL

.----.--e
~.·rDu¥ISIt ·'.22p
•

• YES
AT '.SUBSET

ax

NOISY
YES
• ID en
•

I ~Htt;it:~:~ I

--------i-::-"eltuP! .

•

e--.-.----••

-----;-~ir--------

----I

fAI¥ 0\01

211

CII SEr

NO

21

.

.----. ----.
• ____ e ____ •

N~---·I----·

YES

• MANT L

C . ' 2V

.'• ~E¥
i~:R
X~O TlII~

--------i--::----

2D

•

•

I

•

·No----i----*.
II

I 2J
-1---iiiFtti~:~----

2X

2V

~~~GJM

RDFUT

• 'INPUT OEYCE·.

I

e----.----*

• NIII .. AHTJIA

PAPER TAPE
lOG

I

YES

• • HOI sv

.

I

I

I--------.---------I

IIAl

.----.----. •

• •X____
Q TIME
e ____ • •

j---jNjj-~oR----i

e ____ • ____
2C •

•

•

2 OF

2U

•

• • 0HIli
GITNDISE
SPEC

I

I

28

--------r------•

.
•

. - ___ • _ _ e

NO

---iO-SYS -COM;;--SKYR

IG

.·PGM DN

I

II:

.----.---.
CARD·.I&~RST

.

r-II~~~:lr-----1
FSftTRN AREA
---------.---------

PAGE

sUisn

ID eTL"

Zl

r-t~i~i:i:l;---I

zp

---------.--------,) u

IN

IU

2.

8

..._.-.-...

1,,1;"-j

•

~~~~~-~r::~~---

.:--lrtAi;li;:~;--- ..
.-------.--------.
~CUlR

.-

•

•

)U

-----r:-----

3C

•

•

No----r::·

3M

•

SURT

___

!

---------.--------1

1

GOTD

RD SUB

~N

JD

-'--Tliii":ijise----,
IIMllFOR
mE~~ .. 8Y

-I---ii~:~uis:f--I

I

PMJR

~OR

---------I--~:-----

---~!-r~---

---ix:i~~¥i=~----

-,---!ii=-,si?~N------I

--------e-----__ _

---------e---------------,-----m~ONE:=D
--------.-------

I

RETU N.

GOTO

DelETE

JF

ADii-----'j

ALPHA+l
I
I OF
FOR Fll) l
I-----_--_e
SUIR
________ _1
TO

sill.

rl~iiiE·Siiii----i

•·,uns
YTHER·. • &IfEn
•
HAM D 'I
• REDO.

ID*':~9ii-----1

L~j~~~

U
.----.--.

I---------r-------'iw~t~ =t~J I

'j---STDi~'

-,-

YES

I
---------,---------

I

•

· I..

•

I

I

·--r:·
.---.--.

•

.··18" RjJ •••a!A"
•
• lp
.----.---.

•

I •

~-~

•• t'l9 L. IU••••}If"p

I

.'

•

FYLAFP

311

'.
•

SUh... NT

GOTO

3U

IIONCAL

3N

3G

288
SUBR SUPER

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

GOTO

••
•

•

.---- .----.

•
.. " Rl:N~NT.Y
•

SA

.

•

.

NO
• . ' 1NAl
•

• ----.--- •

GOTU

ADJO I M

1
1

!

4A

I

•
.
•----e----.

I

I

/ 0 SUB
ItN

4C

40

A LNTRIES.
FDR.
•

K.

SUB

"

..

4E

----;-'O-Nfi,---j

. iW'I~laJ'

-t...-..I~'.ils
__...---------I
I~
m

I

IV

r-iij;~IA----l
________ e ______ _

.----e---.
~.

T) 4G

1

TO

e e ___ • ____' • .•

t

I

---------.---------1

.----.----'." lES
•
"11

AD:III

[NO TO CARD

1

"'iR,;NT:M
UB~E&

·

4V

1

.~~
I
---------r--------

•

1

I

j---sET-cliiii------'j

----j'EP-t·~-8~---~--1
U .'t • • A

,

1

---------r--------

4<

YES

•

1

SW AND CAU

se ENTRY
:B~ l¥ ~~RO
·1

•

4 OF

4U
i---iii~A;i.E-Miiii---'j

48

t~i1lH£~QU

ND

SUB

48

CAP Ck

CK SUB

PAGE

4G

•• • mthmR • •• NO
Ck

•

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

~A

F 1MAl

•

SPS 110 ... ·PRDCESS UQD SUeRS

.,)..,

.

NEW tD

5A

•

. SUiR SUPER S'S

IID •••• DlCODI

SUIR

e--.-e

TlaT

INDICAfOR CaDIS

'AGE

•

•

N&---·,-"

." .~

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

...---.--0

.
NO'--"I--"
.--.--.
IS""

"ON!
•

"

"

I 1I:~lIiis!: I

IU

0

'

--------j--::----o .----.---- "
VES

.----.----.
.----I.----.

vn

" " IND CODE IS " • V!S
PCONST
TWO

•

N~---"I--"

I
I

NO

•

• RM
•
•

GOTO

"

o

I
.----.--.

5A

NO

i---'-g:iUs
t -PNTii----,
I
F It IIEXT
l~osB~~1T

,

tEU

I

•

•

GOTO

NXTlND

NOT RM

ADJ

5'1

lOJ

•

No--T-I

•

GOTD

5M

••

TO

I

Q Co

6;;

·i---OEFliie-Flo----j

I J2ve E I~OJ.

I

5U

,

I

~e~2ROh~hD

---------r--------

N~----i---·

Tal 5G

.

"0;l

• -- __ a ____ a

O

•o

H

·

71t

•
YES
1~?v~OOE IS *.IN5T

00

.----.----.

" ••
VES
• • MO~ OF p.
' . F I LO REQO

.----.----.

5F

---------.--------I

.

VES

0

" IN8
CODe IS '. • olla
F UR

5t

r-~i~;~ir~~----l

6Q

5L

•

--------e--------I

•

VES

•

• ____ e _ _ •

5&

I

·

0

0

. ' I 'ft,,~~De IS o. CONST

SE

NEW CO

RM

6H

.
.

• DOE! 'SYEDO
CON 'AN
o HAY tNTL

5K

•

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

•

••

.---.--.

50

•
o NeM CARD
• REQO

•

•

•

5'1

---------Ie---------

lilT

5J

•

I

SET'

IH

."INDCODE

•

i---~ii!i~iiii----,

'lIS

e e IndoH IS 0.11111 CD

e.

I 0'

IU

INST

50

TO

5N

6A

Zlll
SUBR SUPER 5PS IID .... PROCESS sueR , u INO
6G

---------.---_..._-LNG CK

.----.---.

NDINST

r-~~~i~RE-i'----l

0 0

o

.----.--_
t ....

•
0

NO

o.LNG
•

•

No----r-::

6J

tK

LNG CK

,

" "ROSS
"

Ai"

.----.----.

I

co:,

6J

••
•

00

VES
PSUEDO
6R

0

;lNG-----,
LINhH

-1---i~-:i~Pii----,

---------r-------I
.----.----.
° ~~SllST

---------r-------

---------e---------

.

IE

•° JU~T ~8D
•

0

0

•

I

6"

"

•

6K

.

AN~JHER

IN

0 0
•

,.0----;--::0

.----.---.
".;l
.---.--0
,

60

0Q

GO TO

•

AVAIL

PSUEDD

NO

• Nitti NO

IIITIND

5V

P 10TH

....

GOTO

MOD

NXTlIIO

5C

5C

I ;~I!Jil::N I

.0"it'A~i:ii:-'.X5~

.r.

0

-_ _-----.---------I
~=ABLi

I"

--------r::~-r-iiittii:iO---i

TD

Em~AN

I

-I---ib:-I!l~~i~----I
ifi

------r::----••

6V

-,---iiiiYE-psyE?ii----1

6R

---------6--------

N&--T---'

6w

TEltT

r-SETSM;O-:o---i

•o

NO

2ND PC

0 0

.--______ IIUREA
e __• _____ _

0

SET P

s52~E~~ITOF

6Q

-1---iijjY~1

vull

"0

,

°•

•

·YE5--r-----.

6Q

:---igS-~7li~;----1

GOTO

°• ,REAK til

o

tgNrT:NK EDO

0 0

6J

~u

YES
CONST

°

.. __....---.

6 OF

.----.----. °

6N

"UL6~m:~J

•

YfS

16C

PAGE

TEXT

.----."'---.•

o

6H

i~Lml~oVD

•o

---------r-------QCK

•

SUIIR

.111

PCONST

r-Aiiy-jiNTii----~I. '
GOTO

tooES

Sy

P NOTC
"
----,iij-cliiii-,;----

I ~~=ti:N9' I

---------..,-------

---_____ e _______ __

lOTC

T) 6U

171

2ND PC-l

6V

a

. lUll S"'"

DII.

IPS liD... '01111 LDADG I .... D PH eaCH lUll ' ' ' " IIIIDIPCYIi

fA

7U

i---;Ii!i:~L~::---J

I---IfI:~!ii:!!---i
_______ 0 _______ _

;070

-------r::-----

!Ie

.. ITlNO

I-

j~~~i~i~R---J

------j--::-----

.---.----.

"IDfT mIOE·.••m:a
eo U."

.

.

NO

ADJOIN

. -__ e ____ o

CK

4E

--______ e _______ _

I

I
-------1--------7S

I t~!i:ft:~': I
---------r~:-----

r-~Cr:~ii::---l

-------e--------

T) fU
au
SueR SUPER SPS 1I0 •••• SU.U ALL PIIOCESSED. CHfCIi COilE IIECIO
C" CK

-I---~~!:i~!i~~----

••

:m
---------.--------A AND

•

I

I
I
I

•••

•

21~D PT:.!~

·.·.9

·0---0----..
NO

YES

•

IL

I

___

80

---------0--.. -----!I Ie
.---.---.
• ·INPUT PG"
0 .. DISK
•

•

.J---T---·

". !fS
• +1

•

•

8&

I
---------J------_.
1~'rh!811
_________
0---------J
T) ..

I

8H

r-mi~rF----I

--------.-~----GOrO
DIU fE

r-W;!ti~-----l

•

10

r-mi~i~ii----l

___

I

.vE's---i----*.

NO

•

ae

-1---ji~'B~;i:N---J~;:;~~~~ J

I

•

g%~ m~EDD •• XEII

---------r::-----

I

I

•

,

88

.----.----.
,
•

.----. ___e.
IG

8A

IF

1M

PAce

8 OF

•

u l n niLE
oCA}RIII
,
oL 1ST
, OC20

lH
411

I:

°H'
Nol~~s
RD~K

~A
sSG

°

:m'

INDICATES UNUFUENCED LUlL

NOSP_C

U
lJ

:m,

IIOT II

:'1:'
_HUtA

31
IG

4U

4J

lG
IC

2 Ii

'."~

,

~)

1620 MONITOR I SYSTEM SUPERVISOR & IORT MONITOR LOADER USTINGS

275

16Z01U11 SU'U.VISDII &IID IOU
OOOZO
SnlEIi COIIIION
000)0
DORG • •
000.0 0 I MENT oSt 1 .....

" FUR LOADER

o

00050

OSA

00060

00.02
00.02

x

00.01

0

DC
-DO
OSA

OOOTO

CA~LS.

).0

00.01
00.10

0

OO.U

-0000
)

x
-0000
6

00.11
DC
6.0'.
-0000'
OSC 1.1"
I
00100 SRE~DC DC
).0
-00
00110 SFOINT OSC 1.0"

OOUI

00010
00090

o

DISK SCUTtH ARea DEflIIER.

OOU,

SPS. FOUUII. &110 OUP CIITL CAao SOURCE.

00U6

OOU,

1.0"

LADDR INITIALIZATIOII IIiD/CATOR.

011421

00110 LOINPT DSC

1,0 ..

LOADER ENTRY CODE AND IIiPUT DEVICE.

004Z1

OSC

1.0.,

LOAD SUP 1110. AND "OII/TOR CNTL CARD SOUR.

004Z9

OC

IhO.,

HIGHEST ADDRESS LOADED PLUS ONE.

0041.

00120 CJlUT

DC

o

o
00150 HIGH

-0000
00160 LAOOR

DC

5,0.,

-0000
OSC l . l "

LOADER INPUT BUFFER VECTOR.

00H9

IIIlIVE CUDE FOil SYSTE" "OOULE.

DOHO

1

00180 OLOOA

TUHS"U HEADLESS DDA-S HUE FOR OVRLAY.
OSC 15,0'.,
00000000000000'
0019U
OVERLAY READ ROUTINE
00200 HALT
XX,XX,Ol,
RESET AND STAIIT UPONOVULAY ERROR.
H
00210 OVRLAY 34
SEEK AIIO READ OVERLAYING 'ROGRA".
"""00,10 I ••
00220
36
18M"OD,102,O
002]0 BNI
HALT,1900 ..
HALT IF INa. 1900.
BI
00240
aRANCH TO ITS FIRST LOCATlOII.
~
18MMOO.1), ."
DORG 0-9
00250
OSA ZO
00260

15

001041
00.56
004"
004.0
00. . 2
0050.
0050.
00510

MI
).

U

.6

••

5

003~0

OOlOZ
01900
00000

x

MAIN IOU ROUTINE.
101l1C. 10PT. IDSK. AIID 10GT.
ENTRIES ARE
FILE DESCIIIPTOR AND IInuo. AODRESS VECTOR IS IOU.

00290 •

00300 0
00110
00320
00)30 REPOS

OOUL

00000
00101

-DOlO

00510
00210
00280

-0000
00440
00.40
004,.

DRIVE REPOSITION TAILE
OORG BNI+20
DC
2.0

00512
005U

-0

00350
00)60

"

DC
-0
DC

2.0

00515

2.0

00511

2

-0

276
16l0/lHI SUPERVISOII AIIO 10RT
00370
00380
00390
00"00
00"10
00"20
00430
00440
001050
00460

DC
-0
10RBC
10PT
IOSK
10GT

001010 ERRer
001080
00490 INOS

00500

2.0

ENTRY SEC T I ON
TOM OIOP+47tltllo
PUT ENTRY WITH READ BACK CHECK.
TFM OFILE+l1,Tfl+12,8, PUT ENTRY.
8
IOGT+12
DORG 0-1
-,IX, ,
SF
SEEK ONLY ENTRY.
TFM OFILE+ll.TTI ..
GET EIITRY.
TFM BKPT,X01"
TURN OFF ANY 110 11i0ICATOIlS.
81
ERROR ,1900.11
8
8 .. PT •• U.. ,
WHITHER WANOUEST THOU. WAYFAIIEII.
OORG
2,06, •
DC
ERROR INDICATOR TAILE.
-6
DC
2.01

0-,

-7
00510
00520
00530.
DOHO

00550

DC
J6
DC
J7
DC
L6
DC
L7
DC

PAGE

l

00519
00520
00532
OO~44

00554
0055.

DO".

00511
00590
00602
00609
00610

..,
15
16

ozon
01917
00571

OOOOJ
0J764
00000

12

00554
01917
00.67
00614
0046P

-1HZ
-1146
019000000

I~

16
46

4R

oouoo

00612

2016

00614

2,11

00616

Z

Z.36

00611

l

2,)7

00620

2,38

00622

1.'

0061)

L8

00560
00510
00580 ERIlOR
005911
00600
00610
00620
006)0
00640
00650
00. .0
00610 ••••••
00610 0
00. .0 lOCAL
00700
00110
OOlZO
00730
00740

OSC

,

ERROR INDICATOR SCANNEll ROUTINE.
TF
"2I,INOS.7,
INIT ULl~E FOR CURIIEIIT IIiDICATOR.
8NI e.24,XX"
TEST IF INDICATOR ON.
SF
ERIlOR+11 •• 6.
YIS -sn FUG 11101'''011.
AM
ERROII+1l.l,10.
ADV,~CE ADDRESSING.
CM
EIlItOR+UtlNOS+' . . . TUT IF FINISHED.
8NI ERROR,UOO
TR
OLOOA.ECALL ••
YES -SET UP CALL TO THI ERRIIII ROUTlIIE.
8
OVllUY, ..
OOIlG 0-)
CALL LINK AND CALL LOAD £NTU
SIMULATes AN 10&T ENTRY FOR S'S -CA~L- ,sueoo-op.
TF" DFlLE+ll.fTl"
liT IUD IIiDICATOR.
f.
CNTWO.10XX.11,
1I0VE PILE DUCIUPTOR.
TF" BKPT,XDI+J6"
PUNtH THE TIllE CLOCK.
IOU.t"
COIIPUTI RnUIIN _ns.
A"
IIiF EII.ET-U.CNTWD+l
AM
IOU,4
Dono
I
UIIET-U".
EXECUTE ANY IIiDICATOII 'NECK.
OOIlG 0-)
00160
00110
IIOIIITDR CALLEII IlH.OUGH _HOI IIITUIN IlOUflIlE.'
00110 MONCAL TR
OLODA.IIDDA
00790
I
OVIILAY
OOIG o-J
00100
00110 ••••••
DISK FILE 110 'IIEPItUflOII UCliDII
001Z0 DID
TO
OIOP+I.DPlLE+lI,Il.SIT LOll ORDeR DI&1f UP UP COOE.
TO
OOUO
'+)5.(IITIID.,
DICOOI SCUT'N 11110 "I," UPDATE

00614
00616
0064'
00. .0
00612
00. ._
00. .6
0010.
00"6
DO".
007,.
00140

Dona

26

H
)Z

11
H
.7

Jl

_.

I.
)J

1.

11

0016.
00'"
001. .
00"6

..

00"6
00.01
00116

••

00116

U

OOU.

••

11

Jl

at

00'45
00660
OOUII
0061'
00U5
00614
00. . 1
00. . .

-0610
00000
00000
OOO-l
-0614

01917
OZU,
00467
00'"
00590
00565
00590

-1752
0056N
-IIiZ
-000'
OZI61
-0004
00000

00.41
00. .1

o,rn

0ltl7
00161

01'1"
02115

OUOO

onlt
00000

00000

277

l

I.'

00:'0
00.'0
001.0

oono

00110
00190
0 . .00

00.. 0
0"'0

DOnO 0101
0"40
00.,0
00. .0

oono

0 . . .0
0"9010)
01000
01010
01010
010)0 CHU
010.0
010'0
01060
01010 OlDY
010.0
010'0
OllOO
01110
01110
01UO OIOl
01140
01150
Ull60
Oll10 GfEST
011.0
01190
OUOO
OU10
OUZO
012]0 ••••••
01240 X04
01250
OU60
OU10
012.0
OU90
DilDO
01110
01120
01130
01140
01150 .'
OU60 CHIl2
01310
013.0
OU90 CHU

""/ilh .......... &liIi
1I1(11i:.riIIi.

••. U,OIOfhil.'I!.

C,

.iI'

1II.'NTill". stTl.'
""III,••• CII'WD ••
IIAPIII'*.,CNtiO. .
SltO •• DIOI..
SEtit

.-1

I

.

....=U

SEll! TII£ IIA' IN'U.

00'.'

DOIIG
TO
DID'.'•• IIA. ."' ••••
TOil II"II!NT.,.,O,U,
nil .It".IO)"

16

£III1ET-ll ...
DOIIG _-4
Till
IIAPlNT,DID, • ."ll,
aN. DID"IIAPIN,*,
I
EllIIDII.n .. ,
DQItC .-)
TR
IIAPIIIT ,CIITW06, 11, NOV£ DDA
110
0101',010'>1 ..
TEST POll $'CT • ..!f~1CiI ,ILOtutliN.
A
MAPEIIT.I,SIIILDC"
YEI -COII'UU, ~'-url
l_tSS.
TO
MA'IIIT,SIIELOC-J •• GET ITS ~IIIJU", '*,,' t.I." ,1:• •
IMF •• 44.10SK"
IF SUit
iI.
CF
10SK •••
YES -CLEAII "Ie ..
TFM SIt04,IOU,711.
'EIIIFOIIII Till lIill Aim i IT.
I
SEEK
OOIlG .-J
IIIIF GTEST,DFILE ....
.UNCH " Gll,EIITU.
TO
OIO'.II,.CIIT"D.l .. sn IIIJDE o1111 T•
TFM SIt04,DID' ..
'IIIFOIIM TNI SIEit.
I
SEU
OOIllG .-3
CM
""EIIT.U,999" .. TES T IF IIUD'c:UA.U LOAOE. IlIQUIIIED.
81
."4,UOO
8NF OIOl,IIAP£lIhU ..
110 -TU' I' S'S. !!""EilVISOII 1III111II1ED.
Till
OLOD"lItALL ..
YES -AUO .ND ilxlcore 'CALLIEII.
II
OVIIUY
OOIlG
POST DISK 110 HOUSEKEE'IN,. SECTION.
.
.
CF
0101' ..... ,
CLEAI 'OSSliu usUS EIIROII TIIA' INO.
BNF CHKZ,DfILE....
IIlAIICH If GET ENny.
TOM 010"+41,0..
KILL POSSIIL£
l"OICllOII.
8NF 10Xle,CIIT"0,.,
EXIT If NO III'OSln~ING 1I10l'IIIID.
A"
ORIVE,IIE'OS-OLDtv .. COII'un A SEtfOll .1IDIliESS FiliON THI
TD" "APE"'.1.0.ll,
RE'DSITION CONSTINT.
TF
MAPENT+3,ORIVE,1l
CF
"APEltT.2
A
M'APENT+],OIllIVE,1I
TO
"APENT, TEM'-5..
IIESTOIIE THE lOGIc;a.. liklVt COOl DIG"
8
010Y.2~

to, •••• ,slot.. ,

,.uoil

TEST

_y,MS'P"
.,,,.t .

.-j

III"

~~:G ~;;:)'DIDP+1..

TF
A
8NF

HIGH,MAPENT+U"
HIGH-2,MAPENT.'
CHK4, SPSMLP ..

OIlM
OIUI

ou..
0""

-09)2
00000

••

1119"
::;::
n
I/Ot" ..

""111'.70' ..

I

OiO••

"'u ;:••
:::r.
, .,

Clllu.CNJllII.... "

Till
A
A
"II

.....

• "!WI ..

010'.'.1'•• '-1

TO

TEST IF HIGH lNOIUTOII

,u.

to

IE U,OATIO.

00'"
00'.10

oOln

:;:::

~

n
...

DOOOO

la

Ollal 0101J

OD~O'

41

4.

01116'
00'"

O'U.

010.2

010",

Il

01111

OI16J

oao44 11
0101. "
.0aOlI
.,

DlUl

OD"~
00.2,
DO".
00000

oa,,,

1/1010
01092

1.
U

011 ..
DIU'

oon.

oh.2

••

01."

00000

01111

••

Dillt

0lU6

16
••

01'14
02156

onu -I,i6
01."

00000

1"

OIUI
0119'
DIU.
oei•• 1
00...

119999
01200

oau.
OUU
DU . .
OU"
OU . .

OUID

OU9I

OUO.
OUIZ

IS

".
••
II
49

OUll JJ
01U• • •
0121. 1~
012.. ••
DU.O 11
OIZ" l '
OU'. "

n

01Z"
ono.

21

0.11.0
01140

44

as
onu ...
OU20

OU76

oano

01560 SEEK
01510
01510
01590
01600
01610
016Z0
OI.JO
91640
nno $'k02
016.0
01670
!l1 . .0
01 . .0
01100
01710
01720
01UO
01740
01110 SItO)

TR
8

OLDDA, SUPIIET ..
OVRU'

'ES -GET lIaUT INE 'bHIiNDLI.

II
ZI
""

019"

OZOI.
01)40

ozon
OOS.II
01154
01119

olin

8NF
TF
TFM
TF"

1l0".24,CNrWD.l"
Tur If El£tUTlOII DESIItEO.
HAl T.6, 10~1,.
'ES -SIT UP THE UIT.
IDXll,M'PEIIHlI,l11
104.Z4,lIi'PElIT+l.
IOU,MApENnU,711

8

104+24

flNR

OURG

.-3

,

~:~~E R~~~"~DIII.ES'D;~~:~S T~"~~I:E~m~~.~o ~;:~'~~::'~~AL

TO UP~:~:~~ ~~m:~,! 10
8
SKOl
OOIlG .-)
TF" TEMP-',O, 10,
rF
T£MP,IIAPEIIT+5
CF
TEIIP-.
A
TEIIp, TE'"
•
TEMP, TEMP
A
TEMp,MA"ENT+5
ID
SKOloM"£IIT"
A
rEMp-" TEMp-S"
A"
TEMP-;, 1,10
TF" DRIV£,EIIIIIV."
A

DIlIVE.TEN'~S

c~~~mlt s~m

milJ~~C~:::

COM'UTE CYLlIIDEII

'OIl

THIS CALL.

JUT jlall SPECI."ID (NUVE Cclol.
NO
II cCllr,uflo.

-""Sf

CDII'UTE LDCI"OIil 0' 'HYSIt ... DIllin COOl.

MlP£NT,OIIIV(,ll.
IIE'UCE LOGICAL DIIII .. COlI " ''''SIca.
•• U , IIAPEIIT "
£lllIIDII I', tiD I'HYSItIL 0lIl1'" tOOl.
.,," ,SltD'
8
EiI.OIIo72."
TILL TNE 0'0"0lIl A TNII" OIl
001"•.-1
.
. ..
,
AM
DIIIVE~ilLIlcY';'EQU",,"' DLII CYLI.'. ~JIT.DNo
SF
TEIIP';.,,,,,
CDII"" _ITN ..s.lIb CYu.....
C
fllIP-l.lIIIIl'1£,1I
..
SIt04, UOo'"
tilT" 'HI IIIIt II NlCIS. . ., .
017.0
I.
"AP£NT, ~Dl"
'II -""011111 ,.. i"It.
01110
rF
DIIIVE.TEII'-J,.,
\I'OATI OLO cyu'llHil POSITI• •
•
SlID. . . . ,
017.0
RnUlI1I TO CALLIR.
111190
DORIO .-.
01100 ••••••
CONSTaNTS AND DDA-S
01110 TTl
DC
TAILI OF liON-DIS" I/O IIGII _
"'Iet
2,16"
TO
10
rfM

J.

01110

DC
U

01no

DC
N4

01140

DC
J1

01"0

DC

011.11

'Oh70
'01••0

P

'PC
117
DC

JI
DC

"..

,1IiI.

1,)6 ••

I.,.
',11

tal

l.,?

.,lelfIUS,

azUl
01103
00000
00000
0191.
00000
Of.l?'
-U90
0000oiUM

01120
02121
02111
01092

021'"

OU"
0041.
OO.U
01.0.

0199)
01 U 1
01126
00468

0001!O
OZI."
00000

ue·, "
DUll JI
01400 . .
01.01
0140. . . .
01410 I.

DORGo •• :J

-0'611

011114
OUU

r
01400
01410
01420
01HO CHlt4
01440
01450
01460
01410
01410
01490
01500 ••••••
OU10.
01510 •
01530 5KOl
01540

00000

Oao.2 .. 01061 DI99J

DUU
DU ••

TEST If SPS IIAiN LIiIE ,1IIIIG1llA1I.

DIU.

-a,t.

01.U
01...
01."
01 •••
01."

01.7.
01U,
01 ...
014"
0110.
Ouzo
OUU
0"..

m::

00441
00. . .

Dun

OZU6

..

DO. .'
00,.,

00565
-IUD

"
49

OD"~

-IUJ

Dun

00000

Z5
...

021..
0160.

OZlIl
00000

..
,.

Oil ••

000-0

II

021.'
021.'

.S Dun OZUZ

n

21

:~

0".'
OZl41
ou••

01."

21

all ••

016.4

..

.16.6

II

DU,.
Dill.

01611
01"0

II

OU'O

01'"

01611
0 ....
01611

U

U

It
49

oa61' II
0"'.
0"" 14••II
onol
I""
OIn. ..
at
"'"
"'"

.,

021 ••

olin
o..n

oan.

01141

0""

.".It

-lt~.

-HOI

~o
OIUN
.UDO
00701

IIU'
111,. 011 ..
011. .

a

01".

.n..

•,

"""

11M

a

DIN

•

.u..

OZIl)
00000
01149
01149
02U]
Ollll
0214.
000-1
-1102
011"
OIUM
01111

00•• '
to
... oociDo

Illl'

01'"

01111
00000

I

I

I

00000

if

1610/1111 SU'UVISOR AND IIIIn
01190
01900
OltlO
01920
01910 MOOA
01"0
Dlno
01~'0

01910 ECALl
01910
01990

IIC
MI
Dt
J'
Dt
k9
IIC
M9
OS
OU

2,~'

2,19

01710

Z

2,29

Ol1ll

2

2, .. ,

0111~

2

O. e+1

onn

0
5

OSAl9

0111"

t

J919~

0111.
01112

],]
DC
-03
DC
6,0'
-0000'
OS
0,·.1
OSA OSAlO

DC

'AGE
2

011. .

3

01111

•

01119
0119]

0
5

01193
01196

J91~9

],12

01101

5

01101
01102

-0'2~

]

-11

01000

OSA

ERROR

01010

OSC

02020 RCALl

OS
OSA

1,' •
o t •••

010]0
010~0

OSC
0
DC

01050

1

OSAI5

0110]
01107

,

1,0

01107
01101

J97U
I

2,]

0

01810

-]

02060

6,0'
DC
-0000'
02070 SU'RE T OS
0.-+1
01010
OSA OSA11

011a

•

01111
01821

0
5 X

01821
02090

DC
3,1
-02
01100
DC
6.0'
-0000'
02110 MAPSeT ose 1,1

J9789

Olll~

]

01110

6

01811

I

02120

OSA

02110
021~0

02150
02160 XOI

~'OO

5 X

DIU.

OSC 3,1
DOL
DC
6.0'
-0000'
CONTINUATION OF ENUY SECTION
TF
e.2),IOX.,11.
MOYE FILE OesCR I,yOR TO CNTNO.

DIU.
0lU1

-~800

0lU5

6

Oil . .

]

Z6

01169

005611

28U
PAGE

11>20/1311 SU'UY 1S01t AND 10RT
02110
02180
02190
02200
02210
02220
02210
02HO
02250
02260
02270
02210
02290
02300
Oll10
02320
02])0
02340
02350
02360
02370
023.0
02390
02",00
02410
02420

TR

AM
8NF
A
DFILE

TF

TO
lOP

DIOP

]0
81
TFM

COMPUTE RETURN AOOItUS.
OlO.C~TWO.5. ,
IRANCH IF DISK 1/0.
OFILE.II.CNTNO .... NO -IUIlO NON-DISK 110 INSTRUCTION.

IOP+l0.1(.
IOP+I,IOP+10
110 SECTION

CONSTRUCTEO NON-DISK 110 INSTAUCTION.
TEST FOR ANY 110 EIIIIOR.
010'+60,1900"
BKPT,IO)"
PUNCH THE TI"E CLOCK.
8~.
IOU.CNTIIO+4.0'I1, NO -TEST FOR AN INITIAL REtORO "AIlIt.
E'UlOR.,2, ,.
B
YES -EXECUTE CONTROL CARD TU' ROUTINE.
oORG .-3
]0
CONSTRUCTED OISK 1/0 INSTRUCTIDN.
"APENT,700,OI0.
8NF •• ) •••• )5"
IF INDICATED. DO AN Ut.
S
."23ooI0P+ll
]6
MAPENT .100,10
BNI 104.1'00, ,
'ROCEED IF NO ERROR.
TFIO ... 'T,104. ,
UROI! -PUNCH THE TIllE CLDtIt.
8NF EAROR.·.2., ,
lUNCH TO ERROR SCANNER OR USERS
·.14,11 ..
ERROR ROUTINE.
CF
B

EQUIY

CNTNO,XX
10XI,I ..

CNTWO+",XX,06.

IX

DOIIG 2102
DRIVE EQUIVALENCE AND POSITION TABLES
0 ••• 1
OS
2,1
Dt

01851
01170
01112
0119",
01906
01918
01UO
019.2
0195.
01966
01918
019'.
Ol98.

Jl

11
H
21
Z6
25

..
LO

16

M~

49

LO

02155
00565
00816
01911
01940
01931

00000
-0001
02160
02161
00000

0215R
020. .
00U7
0056N
0069.

00000
01900
-0981
021511
00000

OU~O

H

02111
020H
02033
02111
01212

020~6

16

GOUl

001-0
020H
01991
007-0
01900
-1212

020'1
02010
02012
02102

~4

00624

020'~

••

020'~

00000

00000
00000

01998

4~

02010
02022

22
36

020)~

n

02102
0210)

•

0
2

-I
DH30
02440
02450
OZ460 OLDCY
02470
02410
02490
02500

2.0

02105

DC
-0
DC
-0
DC
-0
OS
DC
-0
DC
-0
DC

-0
Dt
-0

2.0

OZ1I7

2,0

02107

2.0

02109

2

Q,·.l
Z.O

02110
02111

0
Z

2.0

021U

2

2.0

02115

2

02510
SY"IOl DEFINITIONS AND 1I0RIII"G STORAGE
STallAGE FOR IIORKING DDA.
02520 MAPENT DSC 20,0.,
00000000000000000000
SEEK ROUTINE RETURN ADDIIESS VEtTOR.
S.O~
02530
DC
-0000
SCRATCH FIELD FOil SEEII ROUJlNI.
025~0 TEIIP
1.0
..
DC
-000000
VECTOR
TO NODULE TAlUS.
S.O,.
02550 DAIVE at
-0000
STOUGE FOR CALLING $IQUINCE RECORO.
on60 C"'NO OSC lJ,O, •
0000000000000
INDICATES USED FIELD OR UNDEfiNED SYIIIOL
OU10 I I
DS
0.0,.
0,1051(+11 ..
OUIO IOU
tALL AND "'URN VEC TOR.
DS
O,HAlT+U
..
INOlaitl
RnUIlN 1""ItH ADOIIESS
OS
02"0 I.PI

,,0 ••

DUll

2

20

OZIU
02149

7

0215~

5

OZIU

U

a
0
a

00000

oou,

OOUl

.,..,
\'-'1

281

l~IO'UU

oatOo S'S.' OS
oa.to S'"IL OS
.,.;0 IIONII OS
016SO S"" OS
0,'.0 ••1
OS
02,'0 ••a
OS
SUPIII'.S
0'670
OS
02•• 0 lIt:QIIII.s
02••0 MC'IUf.S
onoo I!CY~
OS
0"10 Dsaoo OS
DUDI OS
0"10 osa02 PS
0'140 psa04 OS
o,,~u DSA06
OS
on60 DSAOl OS
uno ouoe DS
0'"0 DSA09 DS
Clll'to DSA10, DS
01800 DSAU PS
U~IlU PSA12
OS
02.Z0 OSA1) DS

o.z,~,.

OSAllt

OZ84U DSAU
QZI~U DSAlA
02860 DUll
Ul8lU PSAI.
02880 D,SAl9
02890 DSAlO

O.COIIII.SO~.

0,11000.,
0,98 ..
O,200-Me'L.,
O"DSAOOHS"
O,PSA01'l,.
O,OSA02'1 ••
O,OSA04'1 ••
O,DSAO"""
O,DSAOhl ..
0.D5AO,.II ..
0 ,DSA09., ..
O,PSAIOHZ ..
O,056U'6 ..
O,DSA12'S"

M9nn OSA'!

0,2910
019Z0
02910
01940
02950
02960

DSA)9
DSoA40
05650
OSAiIl

01970
02980
02990

OS

O,OS>AIJ.,i,.

DS
PS
DS
DS
DS
DS
DS
DS
DS
DS
DS
OOIG
DSC
1
DSA

O,OSA14+6 ..
O,DSAUOI ..
U,OS61"I ..
O,DSAll'2 ..
U,DSA1101 ..
O,DSA19o).,
U,DSAOl-5 ..
O,DSAOI'4 ..
0, DSAOI'14"
o,n024 ..
O,DSAOO ..
19982,
I, 1

I,'" II..."
' . . . . .UI ..........' UlAIt

"

I

0.Z9~...
O.SYSOIG _ _ ..

0"'0

o.!'.,...u

.,.

o.,'OS ••

0"'0 '.M

.""IXi'
',' ..... "f "-"",
lito...,' *TOIIS, ,. "'" IIC.....
••n". "*' .'".14Ml.
"----iiiiino .....,;,.
SIt,.._n'..
' " , . Sf'S SUP. " '• •'" LIMO.
TNi S"S
.Ctlll Ii
T....

~A"QIl . ,

"UIIOI.

MI*,T" CN'L CI•• lEAD "",,,

1I0lUT. .
Frl" SUTO. III Ml*ITGII 'YLIIIDEI
LDADE• • nil!lll 4f14L"~I. $fI. 2
.... 'IIIIE'" TAILES.
COMMIII AIID OVEILI' ReAD ROUTINE
MlIN IOU
IELOCAl"U LOIDER t ..E SAVE AlU
IIDIIIT..
IlAIIED t:DAD allUJiNE STAIiI 2
• •• 01
III. ' Sf&G&-O'
ERIO. IIUUTlIIE 5 "!if 1
E.... ROUTINE STAGE 2
EIIIIOI III1UJI,., STAGE"
ERROl II!iilT II,E n AGE •
SPS SUP AIIO LOADEI CALLEII STaGE
LOADEII taLLER STAGE 2
SPS SuPEIIVISOII InUllN ANALYZER
LOADn .nUIIII ANaUlell SUGE 1
IIONITOR AIID IIU. sup. LOADE. SUIR.
NAilED LOAD ROUTINE SUGE 1
ERIIOIl ROUTINE STAGE 0 PLUS
SYSTEII,CQMMUliltaTIDII Sle'D'.
S YS TEll DOA SEC: lOll.
S; S SU'EIIV I SOli
RElDCIUlLE LOADER
CONTIIDL TO Ill1llE ON DISK.

loUt

........"
.....

01.0,
OOtU

.. 8",T.

,t.T••

"i,

O••v....

.

'

OUOO
DUO•

OZHJ

Oalll

nOlo

000. .
'9600

, ..n

l'U•

1".'
196.0'
l ..i~
I •• "
I"~

1""
1'761

o

1.7"

°o
°oo

191"

l"n

19JIJ

•."fl'
71.

o
o
o

19J91
1919.
19.J91
19110
1.661
Inn
n02.
19100
19912
199"

o
o
0,

o

o
o

1... 1

DSA04

5 X

19987
1.990

ot
),20
-20
DC
.,402'
-040Z'

.1961.
I

•

19996

0)000 ••••••

03010 ••••••
0)020 ••••••

IOU

~.U.ROUTINES

,

PAGE

_IIV . . . . . . .,
OIJI" " " ' ' ' ' .,~ . . . . . ..
,.~,. 'D8~"'r

0.1.,,2 ..
O.QV~"""
O,HIU+l"

IIHICH IIDRNAlLY RESIDE ON OISK FOlLOII

0)010 ••••••
OVERL4r ellOR ROUTIIiE
010.0
SAVE ERRUR CDUIIT llOUfJlIE
0)050
OORG ERROR
0)060 TEU
8,.F "DEIIII,INDS,f,
0)010
'"
COUNT,OI,IO ..
0)080 '10ERR '"
TESf+lI.OZ.IO ..
01090
All
TESTlII,O,.IO ..
onoo
ell
TESTtll,IIIDStlZ ...

STAGE

a

TEST IND ..ILE
U, THE .1111011 COUNT
MOOIF' •••
TEST
NOOIF' ,.1101 C~.' LOCATION
TEST LAST INDI'''01

0.

0,... 'I.1111
OOAU
0061.

oo.~.

00641
OOlltO
00U2

It

11

OOU,
006<12
00'15

OO.M

'Il

0062.

01100

00696

IS

'I''I'

01021

00440

00"'0
00110

OOUS
00000

J'I
II
••
••

01021
01021
Don,
00110

00101
00'02
01900
00000

••
It
..

oo.n

00000

00102
00100
00000
00000

-0f!10
000-1
000-2,
000-2

OU2~

-0622

:

I'm

.L
01110
8NH TEST
OU20 ••
IIRIT[ ERROII COUNT TO DISK
01110
II',
18MIIU,IINNOD...
SET COR.EU IIODUU
01140 • NO ERROR 'DUIIT TO DISK IF FULL 'UCR
01160
IINF IIRICTtI2.0LODA+14 .. ".ITE
COUIIT NO FLAG
U)110
8
GOGO
'
0)110
DORG . - j
01no IIRTCr 14
"MIIU, 101 .. ,
SEEK THE EllROI COUNT
IIR ITE THE EI.OI C:IlUNT
OJZ'O
JI
"NWU,fOZ .. ,
01no
81
IIGTRI"1900
OJ210
8
GOGO
01210
DORG .- 3
01290 81GTRI RCT'
0))00
W'" IIEst, ..
DISK IIIIITE UIIO. IIESSAII
01110
H
01)20
8
IIRTCT
OUIO
OORG '-4
0))40 "ESI
DAe; Zl,8AD DISK ... IU.RESn STAIIT'
lAO DISK IIRITE ••ESET SUU'
anso •••
MESSAGE IF EIITEI!ING IOU •••01
on. . GOGO
til
I"PT.XOh,
TEST IF CALLED IT ENTRY
'IE, NESSG
onlO
ouito
ell 811". X01U.
OJJ90
8E
liE SSG
01400
Ta
OLDDA, JOFF ..
IIO-CALL IOIIT IIIIOR
01UO
8
OV RLAVll2 ...
EUII'"ATI SEEII
01420
DOAG '-4
01.)0 liEU
DAC U.ENT EIiROI '
ENT EIIROII '
RCTV
014~O NESSG
D)nO
WATY NES2, ..
10 III IIISSAG'
IINTV INOS-l ...
0).'0
10 IlIDlcnOlS
RCTV
014tO
81
"12,100
01"0
I
EEXU·U
016'0
0]500
OOIG ·-1
onl0 IIII .... T DC
1. I

U."

J

01520
01530
o JS4U

DSA
DC
-01
D.SA

DOlO.
00120
007,.
00'"
00'.0
00112
DOl"
00n2

oon,

OO'M

DO'"

DOlO.
00"1
001&'

1.
••

0091.
00910
0091'
00.1.

J1
.9

00'"
00.12
DO...
00'"
01011.
010'0
DIG"

14
I.
II
J'I
..
.9

''I
ooto. . .

01011

1.1

Olon
OID.e

ERRDU500

010.1

01061

0,"1
OSUI

oa..,

onfO

DC
-01
DSA

J,5

0''''

ERROR

Oto. .

010••

D....

"

00. .7
00960
0. . .'
00. .0
00•• 1
00. .0

II

x

00000
00919
00.09
00000
0l1l10
0""

O.&OM

0101.

, •

I •

I

,

III

"'.10 '

•

••

-01'1.
283

2

00102
00100
00100
0010'
00100
00000

J9U..
I

-n,.o

2

-1M'
01200
-11'2
01200
010.'
00000

01011

DS610.'

OS
DU

OJ"O

001,.

n x

00110
• 11011'
Doe,.

01550 JUfF
0.'60

01'10

'I'

OOGH

16l0/UU SU'UVISOI &IID IOU
01610 0
OIUO
IMII tGUNT
OM••
0)6'0
0). .0

OIUO
0)6'0

at

DJ690
OHOO
OHIO
01720
017)0
OH~O

on50
on60
01170
OHIO
OH90
01100
0)110
0)120
0)110
OIUO
0)150
0)1'0
olno
018.0
01890
01900
0)910
U)920
0)9)0
0)9.0
0)950
019.0
0)910
01910
0)990
0.000

1I0UTJ NE TO TYPE OUT &NO IESTOU THE EllIIOII tOUllTlIlS TO 1110
DOli' EllIIOII.,OO
at
.z,oo, ••
06
-0
at
l,OO, ••
0'
-0
Dt
2,00.,.
16
-0
Dt
2,00, ••
U
-0
at
J6
2,00. "
-0
at
2.00, ••
n
-0

J,OO',.,

I.

-0'
DOIIG EII.ORUZ~
IItTY Of.
NNTY
T.
. . . 120 ••
)8
U.JOZ"
H
DOli' e-9,
at
2.0
-0
at
2.0
-0
Dt
2.0
-0
Dt
Z.O
-0
at
2.0
-0
Ot
l.D
-0
Dt
3.0'
-0'
THI S RDUf!NE Re"AlNS
OORG EIIRO. . 600
BlUFF 00
OSt
0000000'
SIOU OSt 6.0'
00000'
TFM •• Z3.INOS ••
•• )').XX,7
tHEtK TF
tF
--1,,6
BNI e+36.XX
tHEtK.ll,,6
SF
SF
tHEtK.'
AM
tHEtK.ll.2.10
tHUI tM
tHEtK.II,INDS.IZ,1
8NI tHEtK,1l00
8NF OTES T.tHEtK.'.,
CHU2 80
RETRY,STEPS, •
HOllER RCTY Of.

"'"

.

taLL IN IY ENTElIII'
"OOOJZOO'OI
16000JZOOJ02
.9000JOO119U.OOIOOOU
NOli IIUN-T THAT IIltE

•

"AGE
Dun
olin

l

Dun

l

DIU.

2

DIUI

2

DIUI
Dun

l

DUll

I

011 ...
OU.'
OU60
OIUl
au ••
01196
Oil . .
OU9.

"J.
••
II
I.

00000
00D46
OOOU
OOOU
00000

00102
00100
OOUO
OOJOl
00000

2

OllOI

2

DUO)

2

01205

2

01201

2

01209

2

OUll

I

IN tOilE IIITH ALL EIlIIOII IIOUT INES
0122.
OllZ~

'.0'

00

00000
8

16
26

01273
01295
01211
01322
0121l
01210
0121)
0121)
Oll62
00160
alaI.
00000

OUl6
Oll~.

ROUTINE TO DETERMINE EIIROII INDS.

ON DISK ERROR. DISTlN'UISH IF OllEIlFLOII.
IF NOT, GO INTO RETRY LOOP.
TYPE ERROR "ESSA'E.

01250
01262
Dill.
012'6
0129.
OUIO
01)22
OIU.
au",
0135 •
OU10
DUll

00000

6

])

41
)2
)2

11
h
41

••
U

I~

-0610
-0000
00000
00000
00000
00000
000-2
0-622
01100
01210
01200
00102

284
1620/1111 SUPERVISOII AND 10ilT
0.010
0.020
0.010 HOI
040.0
04050
0.060 HO)
0.010
0.0.0 H04
04090
0.100
0"110
0"120
0.1)0
04140
04\50
0.160
0~110 11

NATY
Spry
IINTY
SPrY
NOP
IINTY
SPrY

04180

OSA

PAGE
OU9~

E"SGI
SIOn
H04
INOS-I

URDU'
TF" 81-5,11,111.
RNTY BlUFf It.
SPrY
81
·-2~ •• OO ••
SF
BlUFF, ••
S
81-S.eIUFf+1
8
Bl.,6,.
OOIlG --4
DSl EUIT

H

INITIALIZE INDIRECT III'NtH.
IIUD THE Ol'ERATOIlS ENTRY.
IF SSII~. ALLOW REENTIIY.
CO"PUTE IIIANtH ADDRESS.
'ERFOR" INDIREtT aUNtH.

0 . . 0.
01411
OIUO
0 . . .2
01454
0 ....
01418
01490
OUOl
01514
01526
OISJI
01550
0"6Z
01569

I~

'I.
11

).

~I

.,
J8

).

.
16
)6

).

)2

21
.9

01119
00000
au••
00000
01411
00609
00000
00612
01568
01224
00000
01502
01224
a IS. .
0151L

oun

RETRY

01513
Olnl

-16)0
5

x

01511

0.190

DSA

APHASE

oun

-10)6
5 x

04200

OSA

AJUI

01581
015 ••

-1606
5

x

IIETN

0151.
01591

-1594
5

x

0159)

-161.
01611
00.15
00•• 1
02111
00.41
02111
00.'0

0.210
04220 AJOI
O.UO APHASE
0"'.0
0~250 Eun
0~260
O~ZJO

042'0
0.290
04100 RUN
D4JlO
0.120
04110
041.0
041'0
OU60
OU70
OU'O
D4JtQ
0""" EIISG!

OSA
TO"
TO"
TF"
NOP
TR
TF"
I
OORG
IINTY
SPrY
II
Sf
Tf
TOM
Cf
tf

•

·.2],0.,

SET MONITOR RETUIIN I NO I tATOil.

SYSCAL,.
BK", "ONCAL
MAPENT, SAlIDDA"
aLODA. UR., •
OLDCYoI."CYL.IO,
OVRLAH12
0-)

IIE&D O'ERATORS ENTRY.

--2.,400, •
IIUff ...
I"PT,BlUFf ••
010' •• 1,0
10SK
DIU'.'"

ALLaM IIUNTIIY If UII ••
INITIALUE fOIl RETUIII!.

.

0.410

DOli' --)
OAC 9.DSII UI
aSK Ellil •
J6
""INT. 702.0
oS( 1,' •

0.410 1l1li1
0.•• 0

OS
DU

0..10 Sial'

.

IIUTaRE 1I0RKi NG DOA I' 0 lSI( 110 EIIIIOI.
IUTOaE MlIN 10UTlNE AIIO InUlIN.
IUTORE "ON nOR !!OOOLE tYL INDU IND.

tlUFF" ,

EEl"

'

O, •• l
DSAIII+l

10

00100
00101
00100
00101
00000
00100
Dalal
00000
-UlL
00100
00101
00.00
00000
01225
00000

OU9~

01606
0161.
Dina
01642
0"'.
01 . . .
01".
0161.
0""
0169.
OHIO
OUU
OUI.

au..

15
IS
U.
.1

u

16
.9

.
)6
I~

012H
00000
0161.

JZ

0122~

26
15

00. . 1
020))
00'5.
020••
01610

))

01151

II

olno

.9

OUTI

on"
aU"
011111

OliO'

01.U

9

L6

00000
0000.
-0196
01169
01809
OOOR.
00000
00100
00101
00.00
00000
OUZI
00000
00000
00000
00000

x

0
I

l

00701

02111
I

•

28:;

\~

,\

'-\

IuD/un
M'O
0 . ."

.'"

-1)
OSA

,ut

SUPlnl_ . . lilli'

OllU
IriS

0,,"10

OSC

·,

1,' •

OOAG

olc

'irl
99IZ.

0"100

OSA

OSAlO

1"'"

OUIO

J.12

1""

O"UO

OC
-12
DSA

EIIROI

'"''

OUIO

OSC

1,'

'nu

OSC

1 ••

04610 10040
0 . . .0
0'6'10
04700
04110

CII
8NI
TFII

10050.1200
IKPr,IOP.H

TIt

OLUDA, •• i9,.

8

OVRLAY'll.0SA12 ••

O"lO

).~

0.1]0

DC
-05
OSA

00742
Don.
00166
DonI
00192

ERROIt

00791

0.140

OSt

I, '

00197
00.,9.

04750 E0050
0.76U

RtrY
WArY EIISG21 ...

'Ii".

B

04"0
0.790 E0010
0 •• 00

ell

006'.
0061t
00616
00. . .
006"
00612
00. . .
Do..6

J

I I

-0624
I

.....

'PHASE •••

ODItG '-1
81
E0100.1200"
'"PT.XO...

TES, If EUOI At IION-OISII I/O TillE.
LOAD AIIIl EXECUTE &"'011 "OIIT1I1E
STAGf 2.

IIIPOSSIBLE UIIOR -"AC"tHE FAlLUILE DR
INCORIIECT 10Rt ULUIIG SEQUENtE.
TERIIIN"E T"E CIIIIRIIiT PHASE.
TEST IF AT IIAP SEtTOII ltAO TIllE.
110 -TEST If AT olSa 110 TUIE.

U

.,..,••'"
16
Jl

ootol n

OU.8

00561
-0'"
02160
01200
021511
-01611

00. .'
ODin
Dono

00100
00. . 7
DO...
00410

Don,

"7"

007U

)

00727

5 X

00U1
OOUI

• "'T,104,.

I

".n.

I_
'"''

''''U.
' E--OUT.

o.no

,

19."

0 . .60

0.600
0 . . 10
04620
0"6)0
0"40

I

1",'

04"0

o.no
OUIO
on.o

-0"'

Olill
CONTIIOL '0 ..anE 011 DISK.

OVERLAY E.IOII IlOUT"IE STAGII 0 PLUS
OOIlG EIIIOII
Tf
S 10Xll+". I 011 ••
IiOYE InUIIi 100llESS '011
CII
"'PT,XO),.
'HlEE POl5l1ll.lTJES , .
Illf EOOTO.CIITIIO., ••
lUNCH " DISK 110.
1111 E0040.1200
BNIt E005O.CIITII0 ••• 1I. TEST " CllfL calO
Tfli 8K". 1011. 711.
YES -SET PIOPEII IUUllII POIIiT.
Til
OLUDA, •• 19 ••
LOAD AIID EXECUTE E.IIIII llDUTlIIE
8
OVIlLAYt12.0S"4 ••.
STAGE ••
DC
3.6
-06
DU ERROR

OU'O EOO)O

t I

Olill
01111

0.-.0
0"""

0.'''0
••••••
OU50

" . . .1
J

01"6

EIIIIET

11

oono

00800
00112
0012.
00u2
00n2
00•••

.
.,

1•

16
Jl

••

-0624
1
00. . 7
00100
00."
DO."
00 . .0

-U12
01200
-195'
0071S
1.7"

)

, I

-062.
1

.9

00000
010n
01606

00102
00100
00000

••

010.4
00 • ..,

01200
-1212

H
)9

14

286
16lO/nll SUPEIVISOI AND 10RT

04110
0.120

o.ho
0 ••• 0
o . . SO
O.'flO E0080
0 • ..,0
0."0
U. . . O
0 •• 00
0."0 EOO.O
0.920
0.930
O".U
04950
04'60 EOO95
0.970
0."0
04 •• 0
o~ooo

05010 E0100
05020

RNI
TFII
TO
TR
rOil
Tit
8
DC
-06
OSA

E0090.1200
HO.'6.ERROIt+ZO ••
010P'12.510"12
SlOP, DID'
UIO"12 ••
OLDDA,-.l., •
OVRLh,u.OSAlI"
).6

00856
0016.
00110
00192
00.0.
00916
0091.
009.2

EIIROII

00'41

OSC

I.'

00941
DO. . .

CII

BIIPT.II.OI ..
·E0095 .UOO
8KPT.SIIOZ ••
E0050,UOO
HO••••• oVeD ••

·
81

CM
BNI

""

YES -llItTUUZE fOil 01511 EIIlOR.

LOAD AND EXEtUTE ERROR ROUTINE
SUGE 1.

TU T IF ILLEGAL NAIIE LOAD IEOUIS T.
110 -TEST If ILLEGAL .DRlVE CODE.
YES -SET UP FOR 11111l1li 'IIOCEDUIIE.
LOAD AIIO EXECUTE 11111011 lOUTINE
STAGE ).

00950
00962
00"4
00916
0099.
01010
01022
01016

Tit
8
DC

OLDOl, ••• ., ••

DU

URoR

010.1

·

1, '

01041
010.2

-os
OSC

OVRUY+U.OSAl) ••
3.5

8NII E0080 ...A'ENT ..
TfM HO.+.,MEltlt"
EOO95
B
05040
DoRG '-3
~5050 [MSGIl OAt ·'.111' E1R'.
'IIIP EIIII'
DORIO 19912,
050.0
05070
list 1.1
1
05010
OSA DiAlt
O~O)O

TEST IF EIIPTY ..,,. Ellll' ULL.
YES -SET UP CALL TO THE EIlIIOIl RounliE.

CONTilOL fa 'lilliTE ·011 1I1S1I.

01044
010.6
0106'
01076
Olon

.,
16
Z5
Jl

.,

15

Jl

PAGE
00.50
0148.
0199.
0179.
019.1
004.1
00480
I

X

-062.
1
1.

••

I.
U
16

. ,.
n

)

.,
l6

.9

I""
'''IZ

-0624
1

,•

305

I""
' ..90

05100

1illi0il

1. .95

0~110

DSC

1,'

"

...

-0"4
1

•

TOil
TOil
TFII
rll
TOil

IIIOP'1I.9 ••

Ulrt.l ..

EEln • .,.OVIlUY
NIOP.510' ..

... 10'.12 ••••

•

1....

OO.G .-]

DIUlLE AllY IUD CMltll.
1""IALIlI ERROl RITIIIIII.
. IIOVE THE 1./0 IIIU'UnIOll.
eLUIi THI! alCOIID IIAllII.

0062.
00624
00612
oDn.
006"
''00616

2

I I

19911

oVEIlLAY EllIIOII lounlli 'JAGE ,
OollG EIROII
H04 .... 6
lUNCH AS 'IESU.

02U.
-0112
00000

00"6
01414
OL010

OC
-05
OSA

0'120
O'1)U
0\140
O'IIIU
05160
0\110
01"0
'0'''0
'05200

JO.26
01200
-1604
01200
-0"6
0102.
19172

00."
01010
00.67
00100
0'.'.
00•• 1
004.0

J . .,O
I

050'0

12

01200
-0.4.
01108.
01916
0000.
OO.U
19161

••

0141"

00000

11 010n 00009
11 01610 0000]

at 01'" -0'"
:110_ 11 01060 on..
00610 it O,DlI DODO.

a87

"GE

.. ZO/Il11 S"'I.VIIOII AIIIII IOU
05210
0'120
051.0
O'UO
05UO
05160
05Z70
OU'OOUU
05290
UUOO
05110 C"LOVf

"'IS'

onzo

n
INF
I

00.10
AM
CM
INI
81111
Sf
8Nf

"10
'0
"10
'FlO

05])0
051"0

80

05350
05160
05)10
051'0
05390
05"00

A

on"!

'F

S

TF
S

05~IU

U5420
054)0
05UO
05"50
05UO
05""0
05".0
U5"90
05500
05510
055Z0
05510
055"0
05550
05560
05570
05510
05590
05600
05610
05620
05610

NEXT

8NF
CM
81
CF
OS
Sf
Tf
Sf
A

UU"
HIOP

AM
Til
TO
14
30
8Nf
TO
)6

SAVDDA.MAPINT ••
"ZO.INoS.l.

.-.

IE'''V".

SA vi THI IIOIIIING DOA.
OETI.MINE If N....CYLlIIIDU DVI.fLOW 1 ••0 ••
II1II.

IITEShll.Z
IITEShll.INDhU
wfEU.UOO
"Z".)lOO
INDS'12
EU" .INDS+12
YES -COMPUTE AOORESS 0' TO' OF NUl elL.
NEK'.ZOO ..
. . n.MA'IIII".
. . Z4.TEETH
NUT. 100
NEIIODAtU.O
NEn-2.MAPEN'+)
NEIIDOA.,.NUT ••
COMPUTE NUMBEII OF SEtJORS PIIOCESSED.
NEK' ."APEN .. 5 ••
NEIIDOA+ll. NEI T
COMPUTE NUMIEII Of SEt TOilS YET TO 'ROtISS.
NO' .MA'EN . .' ..
MUST RETRY IF 0 011 LESS.
REUY.NEXT ..
TEn If DRIVE OVEIFlOW.
0" VE .99,610"
DDVfL.12DO
NEXT., •
NO -SET IIIEIISEtfOIl tOUIil'.
0 ••
NUT-2
NEWOOHI. NEI'
NEIIDDAt9".
COMPUTE NEil CORE AOOIlESS.
NEWDDH 11.M"EN .. U
ORIVE.l.610,
UPDATE C"L1NDEIl POSITION lNDICATOII.
"APENT+l.NEIIDOA+1 .. MOVE NEw ODA TO WOIlUNG SlOT.
CHEKZ'11.CHU2011.11.IlEDUCE RETRY COUNT.
"APENT.l01..
RESUI(.
...
110 INSTRUCTION GETS "DVED HEIlE.
'+U.DIDP+4'..
TESf IF ALSO READ "CI( CHltl(.
. . 23.DIOP+41..
YES -Gel MODE DIG".
MAPENT.700
SEE If ANY TROU8Ll THIS JlME.
Eun.1900 ..
CHEtl(-12

8NI
8
oOIlG . - )
oOVFL TF
EMSG1'12. EMSGZ+4 •• INITIALIZE FOR OIlIVE OVERFLOW TYPE-OUT.
8
HOLLER
oOIlG '-3
E"SG2 OAC l,Ofl.
OFL
05640 NEWOoA OSC U.o·
00000000000000'
05650 SAVDOA OSt 20.0
00000000000000000000
05660 STEPS OSt lO,1234561t1.90,1200.UP, uP, UP AND --WHOOPS.

......

0069a
DOlO"
00"6
0012"
Don"
0071.
OOh.
00160

Dona

0011"
DOl . .
00.01
OOUO
00n2
00. ."
00n6
00. .'
00110
0019'
00.0"
00916
00921
009.0

)1

H

4.
11

'4

U
47
U
4"
1.

as

U
"
16

ZI
U

12
26
Z2
••
14
..

oona n
00.61
00. ."
00916

DO. . .
01000
01012
0101.
010 . .
010'"
01060
01012
0101"
01096
01101
01120
OIlZI
01121
011"0
01141

IZ
"
JZ
ZI

01169
00124
01016

OZlIl
-0610
00000

con5
0071'
00104
00114
DOlo"
D1UO
0096)
OOUI
001""
0096)
01167
00961
01159
0096.

-0002
-OUI
OUOO
UlIOO
0000.0
00622
~OZOO

OZI21
DUll
-0100
-0000
OZ121
00963
OZ123
00963
02126
00963

all"

009U
010)6
0215"
01121
00961

0001t~

01200
00000

a

00000
009101
00000
OZUI
000-1
01155
OUIJ
00'01
00000
02033
OZO))
00100

"9

00961
01162
01161
01161
02 15M
OZI"
DUll
02111
00000
01101
01107
02111
01610
01250

26
49

01791· 01151
0 UI2 00000

11
II
Z5
)4

)0
44
25
)6
'"

OU.9

01~00

00000

X

OI15~

01169

20

01200

10

12345618~0

05670 TEETH

OAt

01211

5,.++++,1211

OORG 19912"
oSC 1.1

CONTROL TO WRITE ON DISK

19982
19912

I

1620/1311 SUPERVISOR AND 10Rf

''''iE

OHOO

OSA

oSA11

19917

DC
-Ob
OSA

3.b

19987
19990

J9761

05710

tRROR

19995

5

05720

5 X

3

x

19995
OS730

DSC

05140
05150
05760
OS770
05110
05790
05800
05110
05120
05UO
05840
05850
05860
05810
05880

OVERLAY ERROR ROUJlNE S rAGE 2
oORCO ERROR
TfM CHEK2-•• EEKIT+12 •• INITlAlILE ERROR CHECI( EXIT.
TOM CHEK2+1.1
TH~
81+5, IOPA,.
SET RETRY AODIlESS.
"OVE THE 110 INSTRUCTION.
TO
IOP'12.SIOP'12 ..
TR
SlOP. lOP
Til
10"OIOP
tLEAR THE RECORD MARKS.
TOM IOP+12.4,.
TOM IOP.,12.4
SF
IOP.9,.,
INIT "LIIE fOR DEVICE COII"R150N
TOM 10P'10.0
DETERMINE If A ",pe ERROII
CM
IOP'II,\00,9.
8NI
L01.1200
t~
IOP.l,16,10,
YES -OEJERMINE IF A lleAO.
81
"36.1200
CM
10P'I.31,\0
EIIT IF A WRITE.
8101 EEXI "12.1200 ••
TF
EMSGI+4.EMSG7H" SET UP ERROR MESSAGE.
8
HOllER
OOIlCO .-)
CM
IOP+11.200.9.
TEST IF PIf PUIICH ERRDR
810 I L02. 1200
TF
EMSGI+".EMSG6." .. YES -SEf UP EIlROR MUSAGE.
8
HOLLER
OORCO .-)
TEST If PIT RUDER UROR
CM
IOP'II.JOO.9.
8NI· LOJ, 1200
TF
EMSGI+".E"5'5+4 .. YES -SET UP EIUIOII MUSAGE.
8
HOllER
DORIO .-)
TEST If t'RD PUNCH ERROR
til
10'+11."00.9,
8NI LO".1200
TF
EMSGIH.EM'GU" .. YES -SET UP E•• DR "USAGE.
8Nf HOLlER.INOS • .".
nSf IF WRITE tHICK.
YES -GI VE FREE RURY.
I
10" ...
DOIIG .-)
ERROR MESSAGE.
TF
EMSGI+".fIlSGI." .. SET
TEST IF RUO CMEtl(.
INf HOLLER.INOS"
NOH-DISK 110 INSTRUCTION.
)0
".
INI IIIIT+1I,I'00"
EIIT I' NO E••OI.
'HEIIHII.INDI.... II1II -G IV! THE LOOP , .... I.L.
•
CHICK-U
DOIIG e-S
OAe; I.CDII,
COR

058~0

05900
05910
05920
05930
059"0
05"0 LOI
05960
05910
05910
05990
06000 L02
0.010
O.OZO
06030
060"0
0.050 LO)
06060

o.oio

06010
06090
0.100
06110 LO"
06120
061)0 10'A
06140
06150
0 . . .0
06110
0 . . 10 EIISG)

19996

1.'

U,

"M

00624
00624
00U6
006U
00660
00612
00. ."
00696
00701
00120
OOUZ

DOH4

Don.

001U
00110
0079Z
00804
00116
OOUl

00. . .
00U6
DOl'"
00 . .0
00112
00110
00110
00192
00'04
DatU;
0092.
00ta4
OOU'
009U
00
. .0
00912
00. . 0
009.0
00. .,
0100"
01016
011111
01040
010••
0104.

16
15
16

01364
01371
01518
01942
01796
0100"
019"Z
01016
01939
01940
019"1
001)6
01931
00116
01931
016"2
01783
01382

-1642
00001
-1004
OIlOH
01930
01910
00004
00004
00000
00000
OOJDO
01200

"9

019"1
001.0
0171)
01312

001100
OUDO
01Dn
00000

14
4l
Z6
..

01941
00924
0118)
OUIZ

OOLDO

14
H
,.

00910

n

H
31
15
15
)2
15

'4
.,
14
U

14
41
26
49

II,
47
Z6

Ol~1

."
49

01713
OUIZ
0100"

2.
."
10
U
16
4.

0171)
OUIZ
00000
01642
01)41
OUSO

ooou

01200
000L7
01200
01017
00000

OUoo
010.5

ooooe
00"00

ouoo
olon
00612
00000

olon
00610
00000
01_
-0611

01000

••
289

11

ottM'II'M

S.C• •

$lOSS

otiiOO ENSGS

C.
OAt

) •• TlI.

DID••

o.no 'NS"

"R
OAC

,,, ""'.
OAC S.TY••

o.on

O'UO ENSGl

OOR' .99.2.
osc .,1
1
osa OUU

O.UO

CllNTROL' TO IIRnE l1li

llIsa:.

• ••

iI

J I

I

·.'

Olotr

TY.

06no
O.UO

J •

.""
.tH'

I

II(

•• 5

.tt"
••••

06210

ERROR

19991

I

.99.,.

-ot2'
I

OSC

••••••

~O.UO

J91U

•

.....

I,'

ERROR RDUTINE ST"'I J
.
.
'ROCESSES . INVALID DIMS. 'ROIiAAM "alilEo LOADS AND _IVE CUES
OORG IRROR
HO•••• ,6,
8
EXeCUTE INDIRICT .RANtH.
OORG 0-1
nil 81.RNAM"
INITIALIZE FOR ILLE&AL NAIIE caLL.
TF
IIISG1+ •• eN"II"
TOil "0.01.9
nil "0.06.Aa02A'6
TO
AAOUoll.SIO'Oll
rFII 8h5.ROIII
8
"OILER
DURG - J
RA'Y .aUFF.l •• ,
READ THE TYPED NAME.
SPr.,
HI
--2 •• 400,.
AllOW RI-ENT'" IF ·SSII6.
Sf
81UFF
Tf
lAozaol6.88UfFOII
8
EEllhll
OORG 0-1
READ THE TY'EO DIN iilJM8ER.
RHTY 8BUFF".
SPl.,
--24,400
BI
SF
8IUFF.
NOP RMAP+20 •••
NO"/BRANtH 5111 J(;".
TF
U04+1,8BUfF+)
TFII 8.P' ,A806+24,.
SET RETURN POINT.
B
EHIl+lZ
OIiItG 0-3
Tf
ItMAP-2,CHTNO+6
TFM _ S1.RIIAP
fFM 81+S,ItMAP
TF
EMSGl06.EMSG100'
TFM RKPT.OI0060
TfM HO)06.RMA"-~

I

, ..

-OS
DSA

061.0
061000
06110
OU20
06UO
061.0
06)5U
OU60
OUlO
OUIO
DU9U
06600
U6610
06620 .. NAil
0(6)0
06660
06650
06660
U."'O
0 . . .0
0669U ROlli
0.500
06510
0.520
065)U ROllll
01>560
06550
U6560
06UO
U65811 MERR
06590
OUOO
06"0
06620

I

1. . .,

06UO

06110

.5

.AIiI

1620/1111 S."UVU.. MID I/iilr
OAC

ootn
0062'
OotU
OotU
o·ot . .
006"
00. . .
00610
1,0'6'12

OU'U6
OOH2
00111
00116
00116
00161
00160
00112
00110
00110
00792
00106
00116
DOll.
00"'0
00152
00. . .
Dalla
00n2
00. . .
00896
00901
00920
oun2

••
16

ZI
II

..

II

n

16

n
J6
46
Jl

.9"
56

16
66

-,
J2

a6
16
69
26

16
16
Z6
16
16

•

016lM

00000

OUll
OIJII
0165'
01660
0016l
OlSl.
DUll

-0112
0101.
0000.

-ous

01101
-0780
OIlUOO

oun

00100
00101
OOWU
00000

00000
00112
"U16
00265
01662

DillS
00000

OUZ6
00000
00110
01U6
00916
00291
00661
01662

00100
00101
00600
00000
00000

GUll
JUlI
OOUOO

00956
015U
01511
011.3
00661
01660

02161
-0956
-0956
01011
-0816
-0'151

2110
1620/un SU'ERVISOI AND IOIT
06.40
06650
01>1>1>0

'"

HOLLER
OORG 0-4
Ot
5,0'
-000'
06.70 ItMAP
rOM RIlIII,01,9
06680
A
MOIM
OORG 0-3
06690
06700
Tf
CNTIIOo.,18UFFo)
06110
B
EEXIl+l2".
06120
DORG '-3
06110 RoveD TfM 81.ROI ....
06760
Tf
EIISGI+6.EIISGZO+6
TOM HDl-lI.9
06"006160
TF
ROIMI+6.0COE+II
06110
B
.NA .... ZO
OORG 0-3
06780
TO
0.'90 OtOE
TEIIP-5.BBUFF.0
06800
EElIh12
B
06110
OORG 0-3
06120 [MSGIO OAe ·3,MAP.,
MAP
0683U EIISGII oAe -).NAM,
NAIl
06840 EIISG20 OAe 1.1100.
MOD
06850
OORG 19912.
ose 1,1
061"0
I
06.,0
OSA O$A13
B

06. .0

II(

).5

06'90

-05
OSA

EaIIOR

'06900

...... .

06910
0692U 0
069)0
069611
06910
06960
0 . . 10
0. .10 YUv
U69.0
O'OOU
01010
010'0
orolo
U1060
01010
or060
01010 .,01
010.0

DSC

GO TRY AGAIN IIITH NEN IIAP NUII8ER.
IHITIALUE fOR ILLEGAL DRIVE COOE ERROR.

OUIZ

00000

00956
00968
00916
00916
009lB
00996
00996
01008
01020
01012
01066
0101l
01052
0106.
OIOll

15
49

00829
007.0

0000'1

U

02161
01662

01127
00000

16

01511
011n
01_61
00816
00692

-0110
01089
00009
01070
00000

all. .
01662

01114
00000

..
26

11

"

69
115

69

00000

) I

01019

I

alan
CONTROL TO .. RnE ON DISK.

16

6'1

Dian

.,

19912
I . .. ,

Itt"

I. •

UROII ROUTlIIE SUGE
IIONITOII C;QNUDL CAItO
DOIIG ERROR
TO
YOO ... FS" ••
TO , .,OO.U.IO'"
CF
YOOOI
.,00.11
tF
ell
•••• XI.no
BNI EEln.u. azoo
til
10P.l. n.IO ..
81
Y02.UOO
CM
10"01 •• '.10"
8NI UJIIT+U.UOO
A
,,'J.CNTIIO+6. ,
8NII 111"+&2.1.,
TOil OV.UY+Io.ldl.
All
--11.1 ..
IINR Y011 ••-n.1l

PAGE
00966
00951
00955

)

,

'99"
....
,
1"90

J9l11
I

Itt.,
"tt•

-0"_
1

2

I

5 I

6
TU' PROCESSOR
TEST If FIIOII C:ONT.IIL C;ARI) SGUaCE.

YU ~TiST IF ·........... IC ....0.
NO -tEST If NU.II" .UO.
YIS -TEST 'OR $E'OMO R.CORO .....
YES -SET INDIUJOR.
TIlT If 1l1li Of JOR CUO.

00626
Dot'"
00U6
D06U
00. .0
00."
00. . .
00. .6
ooro.
onlD
oona
on. .
00n6
DOl. .
001.0

00'92

It

••••
u

14

00610
00. . .
00. .0
006U
006.0
01'"
Oltll
00.. _

61

-Oltll
01"1

6J
II

0166.
0061.

U

00'"
00112

II
U
U
14

61

U

00'"
291

00U9
01919
00000
000110
-00-0
01100
OOOll
01100
000L6
OUOO
02119

-0011
OOOOJ
-0001
0016P

l"O/UIl SU'UVUIIII . . Ian
010.0
01100
01110
07110
01no
011"0
01150
01160
01110
0"10
01190
OUOO
01Zl0
OUZO
GlUO
OU'I
O,i,'!tu
07260
01270
OU'O
072.0
onoo
OU10
07120
OUIO
07HO
onso
07160
07no
01180
011.0
07400
0741U
01UO
01UO
0".0
0"'50
01. .0

All

YOl&
YOll

Y02

INII
TOil
TOil

Itcn
IIAn
I
DOIIG
TD
A
INII
TO
TOil
A
8NII
A

INR
I
DORG
YOlo
A
A
TO
TIt
rFM
AM
eM
8NI
TR
HM
'01
SF
'OU
AM
I:F
AM
CM
8NI
I
DOIIG
E~SGI I DAe

o-n.l
YOII.o-••• 1l
SYSCAl.O"
ovaLAU10.0 ••

...

EIISGII
"'""IOU ...
e-)
YOh •• CNTIID·'hll.
. . U.CNTIID ••••
EEllhU.'.7
YOhll ••-I.Il.
OVIILAY.10.1"

-u

~:s
~ .UI

INa OF Jal INOICATIIII.
t !lTlaL KECOIO TIA' 1110.
"PI TIt , IIESUGE.

UIT TO THI _ITOII.
IIOVE I'" TUl I.M.
TEST FO SICONO RECOIIO MAAII.

•• 2),Y02+15,.

YES -110 I SECOND 11.11.
SET IND CUOII.
TEST IF ENa OF Joe CAIIO.

Y06.2.7
•• 2),--1
Y06.1.1
YOIA,,,

YES.

.-)

•• 47,V02+J5"
•• 18, ••
155.$10'.12,1
ERROR,l.1
MceaUfOl,o,10

'1,.

IIOVE TIl: CONTIIOl CAIID TO THE _nOl
IUFFU.

--6.2
·-18,lIeCIUF.161
'-16.1300
Nee8UfO., EIIIIOIl
Mee8UF.),u,.
MeeIUF"I.
'07&+6.1

INITlALIlE FLAGS IN IUFFEII.

YlllA.', ,6

'07&+6.1
YOU+6.Mee8UF."0
YOU.UOO
VOII ...

01470
07"'0

'-3
I,TRP e... ••
ERII'
DORG 19982"
Dse 101

01~'0

OSA

"IP

GO TO TYPE -OUT.

CONTIIOL TO IIRUE ON DISK.•

11

'A5.
0010"
OOllt
OOIU
00.·"
0011.
00. . .
00n6
00. . .
00. . .
00. . .
0090.
OOtiD
00.12
00 •••
OO'U
00'"
00. . .
00. .2
01000
01000
010U
01024
01016
010. .
010.0
01012
OlD'"
01096
01101
OIlZO
01U2
011 ••
01156
01161
01l.0
01192
OUOO
DUal

11

001"

11

00U5
OOUI
00000
OUOI
01'"

-0001
0016'
00000
00000
0010Z
00100
00000

olln
00'19
0 . .. ,
01119
OOUI
DO."
01000
00. . 1
01000
ooaz •

OZltlt
01159
-OOOZ
009111
00001
00919
-0002
OO.U
-0002
00000

01041
01010
-DIU
00""
UOOI
0105.
010. .
010""
1100.
UDal
HOOO
OIIU
01120
01126
01126
01120
00852

00919
01047
01801
-0001
000-0
-0002
HI61
01300
0061.
0-000
00000
-0001
00000
-0001
HI60
01300
00000

U

..
15

I"
I.

Z5

21

U
It
15
Zl
U
Zl
U

.
Zl
II
Z5
Jl
It
Il

'"

47

Jl

II>
Jl
Il
))

.

II
1.
.7

OO.U

•x

2

19912
19982

1

01500

DC
-01>
OSA

01510

OSAI~

19.81

5

1,1>

19911
19990

J9171
3

[RROR

199'5

I,'

19995
19991>

01520

OSC

015)0

SPS SUPER VI SUR AND IIELOCUULE lOADER CALLER STAGE 1
ODRG 0
rFM OLDCY+l,MeYL,lU,
liES TORE MONITOR MODULE CYLINDER UID.
8~F
LCA01.0LDDA.I>. ,
DETERMINE IF IION-TIIA 01 SK lOAD.

ors.o

07550
01560'

00000
00000
00012

5 X
-0624
I

.
16

OZlIl
00012

000R8
00~~1

21H
1620/Ull SUPERVISOII ANO IOU
01510
01580
015'0
071>00
07610 LeAOI
07620
07610
076~0

07650
07660
07670
076.0
01690
07100
01110
07120
01710
01740
01150
0".0

LCA04
LCA02

LDINPT,O,ll,
DIMENT.MAPENT ••
• +24.CN'''O+7 ••
HIGH.eNTWD+U. ,
LCAOl>A,LDINPT"
LI:A04.LOIII"T"
LeA06.MAPENT+l3 ..
FSPS ...
LI:A06.FSPS, •
IOXX, •• 21. ,
10GT ,LeAOI.7

YES -SET INDICATOR.
MOVE IIOIIK I NG DOA TO CDIIMON SLOT •
NO -TEST IF SPECIFIED LOAD ADDRESS.
YES -IIOVE IT INTO THE HIGH INDICATOR.
aRANeH IF TRA tALL.
TEST IF tALL FOil DISK LOAD.
TEST IF CALL Fall SPS SUPERVISDR.
'ES -SET FLAG.
TEST IF CALL FOR IPS SUPERVISOR.
READ IPS SU'ERVISOR IIiTO tOilE.

IOXX, •• 23 ••

RESTORE III'Y TABLE AND UEtUTE SUP.

8

IOOT,LeAO.,7
·.24.01MENT+14, ,
TEST FOR SPECIFIED ENTRY ADDRESS.
DIMENT+ll,DIMEIIT+18"yES -LETS
BALL.
OLODA.LeA07 ••
LOAD ANa EXECUTE STAGE 2 Of eALLEII.
OVRLAY.1l
0-4
0,-+1
DSAl6

00024
U0036
00048
00060
00012
000 ••
000.1>
00108
00110
00131
00144
00156
00"'8
00180
00192
0010.
00216
002U
0012)
00221

)'3

00227
OOUO

0

00U5

5

00U5
00U6

-0000
I
2

LCA06

INF
TF
LeAO. . TR
8
DDIIG
LCA07 DS
DU

01710
07780

..

PAGE

TOM
TR
8NF
TF
8NF
10
8NF
SF
8NF
TFM
8
TFM

·De
-03
OSA

'LA,

15
Jl

16

43

.4
J2
.4
16

...'"'"
4.

2.
Jl

'"

0042.
00.02
00072
OOU.
001a.
00120
Dalla
0042'
00180
00565
0051>6
00565
00566
0010.
004"
004'"
00480
a
J9186
I

Dse

I,'

07800 LeA08

ose
22
DU

2.21

OOUl

LeAO)

002.)
002'"
00""

-0273
1

I

x

01120

Dse

,

1. '

01130 LCAO.

Os(
2K
DSA

2,-22

002.5

LCAOU

OOUI

5

Dse

I.'

OOUI
00U2

-02U
I

07160 LI:AOlA, Dse
I
01170
DU

1.1

ODIn

DSA02

oon.

),2

OOUI
00261

01"'0

aliSO

01: l~
01190
01900

,

DC
-01
DIA
DU

-ous

-0231
-0179
-Ol4S
00411>
00420
0022)
00000

5 X

071.0

07810

000002118
021U
01166
00428
00'21
01131
00000
00429

x
J9.J6
3

100

DO'"

SUPENT

00'"
OOUI

-0100
5

ooni

-193.

5 X

ZU3

•

11

0 . . 10
0 . .20 LeAD)
orno

.

"zil/UU ~riV"1III , .. IlIIIl

~.I

OSC

I.'

lIOn,

ose
I
DSA

1.1

oonl

OSAlO

0021.

5

0021.

.I7oa.

0 ...0

lie

).50

ooa..

0"'0

au

SYSOIIG-Z

00216

I.'

ooa. .
002n

-SO

0 . . .0

DSC

0"'0
0"10

001110 1t.1l.
DSC 1.1
I
DU Dun

0"'0
01000
DIDIO

......

OIOZO
010)0
010.0
OIOSO
010.0
010'0
08010
0809<1
08100
OIUO
O'SUO
O.UO LCIOI
08140
08150
OM 16<1
o.no
OIUO
01190
01200
U8210
012Z0 LCB02
08230
082~0

08250
08260
OS210
012BO LCBOI
082.0
08)00

CDII'"OL "0 tlllifE 'CiIIDI"'.

•

J
!I X
-noD

•

i,,'a

a'9I2

.".,
I""

..

OC
)
-D.
OC
6,0'
-0000'
IIELOCA TAIU LOIDEl CALLEI STAGI 2
DOIIG 0
8NF LelOI .LDIN .. ' ..
lRANCH IF TRA CILL.
"
TF
CNTIID ••• HALH6 ••
BD
LCIOI.LDINPr ..
TOil SkO)+l.' ••
DIS. -COII"UTE .. HYSICAL illlt'IE CODE.
TFII S.e1. . . . Z0
8
SEEK
DORIO . - j
ro 01 IOENT .IIAPEN r "
GIVE Oil VE ,CODE TO pillOJII
TF
CNTWO.6.IOXX"
SAVE 'OSSIlLE IIUun"OiIi!Jiss.
TO
ORIVE-5.n ..p-5"
..ave THE 'olIIY~i"ll'J COOl.
Til
CNTWO+U.DRIVE-5 •• SAVE CALLING .,.
Ef~,S.
,
8NF e.24. SPSMlP+l.,
IIATeH OUT FUll TitOn !'i!1iI411u lIiIN-LiNE
SF
FSPS •••
8NF •• J6.SPSMlP ••
CF
SPSMlP, ••
YES -INDICATE lIuoc.T'lIiL1:.
SF
SPSIOLP+I
8NF •• 2~.C.INI' ••
TEsr IF fo INITIALIZE L'OADER FIElD.
YEs.
TF" LAOOA,O ••
TFII IOXX ••• ZJ ••
WRITE U"EII SAVE AlifA ON DISK.
IORBC.LCI08. ,
8
TF
HAlTo8.CNTWD+18.11.INITIALIlE "LINDEll i>Ds',inDN FOR LOADER.
TR
OLDOA.LC810..
RUD AND EXECUrE THE (O'AOEII.
8
OVKLAY+lZ
OURe;
Dse 2.22
22
OS, lebO.

=::C::O::I:c'i:":~:~~iJ~lS.

TE~~A~: ~: ~:~N st~N:tlr.;~!~~·

.-4

OSC

1.

, II

J"U
J

..

I""

199"
00000
00000
Goon
0001\
000)6
00414.
00060
0011••
000.,
00010
00092
OOlIK
00U6

••

00'<10
00112
00164
00n6
00111
00200
00212

"

oou.

OU22.
00U6
Doni
00255
00255

02nl
Oiifl.2

IS

Olio.
Oal42
01496

16
.~

2'
16

n

It

<14
32
U

)2

4~

...
'6
'6

.
il6
)l

Ollui

0000.

-Don
oouOO
Olue

OIK02
02161 '
0214'
IIU"
00140
00''''
00116
00<161
0046'
00200
004)9
00565
00520
00464
0044'
OOUO

0056'
02144

ou.,

00<169
00000
0046.
00000
00000
OO.Zl
-0000
-02U
-0255

'DUll
002 ..
00000

Z

00261

5 x

,

00261
00262

I.'

~t::

00200

Z6

u

-0263

Z9 '.
1620/Ull SUPERYISDI AND IDIT

PAGE

083'0 LC80.

OSC
1

1.1

08320

OSA

OSA07

00U8

08310

DC
-02
OSA

01340

002n
5 X
J9656
3

3.2

DO'"
00211

ERMU+1500

00116

-2102

5 •

,

08150

OSC

I.'

002"
0027'

01360 IC810
083'0

OS
OSA

0 ••• 1
OSA51

00"8
00n2

0
5

08)80

DC
3.~
-09
6.502·
DC
-0502'
DORG 19982.
ose 101
I
OSA 05'16

00282
00215

J9600
3

00291

6

08)'0
08400
08410
OS420
08430
118440

••••••

Q8450
on60
,!8410
01"'0
0.4.0
014'0
08500
OU'O
OUZO
01530
01540
01550
0"'0
ol5ro
0""0
01590
0 . .00
0'1610
0'1620 UA02
OIUO
01640'
01610
0166U
'01.,0
,o.liIo
''dI6.0

CONTIOL 'TO WIITE ON DISK.

3,3
DC
-03
DC
6.0·
-DODO'
RELOCA "IU lOADER IElUIN ANAtYlER STAGE "
OORG 0
TR
OLOOA.lIIAOS ••
In TOIlE' lillff AND THE UPPER SAVE AIIIA
8
OVRLU+'2".
VIA THI OVEILAY IlEAD Roun • •
DORIO '-3
TFII 8NI+'I.IBIlIIOD.U.n"IIUTORE OVilLA\, 'aOUTINE EXIT.
TIl
OLODA.LRA06 ••
INITIALIZE FDII STAGE 2.
TF
CNTMD+ 1I.HALT ••••• IESTDIII LOAD IIODUli nUNOIII' , . . .
T' .. HALY+ll.01IlENY+u.r&I.Sn STAGI I anuaN AODRUS.
INF LIlAOI.LDINP' "
.UNCH IF ltD u n fROII LDADER.
TR
DRI VE-5 .eNfWD+U.. RES TOIlE CALLlIIG "'UIIETEIS.
TF
10XX.CNTWO+'
TO
TE ....-5.D.IVE-S
TR
"APENT .DIIIENT
TFII HALT+ll.CHl4"
SET STAGI I 1li0Iaier RETURN ROOIIESS.
INF '.Z •• OVRLU.U ••
CHECl 'OR NON-EXleUTE Of IIOII-DISK LOAD.
eF
CNTMD.I".
YES -CU'" 'HE ftlCUUDN IIIOICATOII.
C.F
OVIlLAY.21
OLDtY+'.MCYl.ao.
IU TORe IIONITOR NODULE CYLINDII IND.
TFII HALh6._
INF OVRLAY+U.FSPS..
fEST If ''''LlD'1Y SPS SUHIIVISOII.
INF OVRlU.U.SPSIIL'.' .. YIS -lEST If NAIN LIlli 'IIOGIIAII LOAO.
T'" HALT+U.01IIEIIY+1I.1u.sn STAGE I RUIIII! AOOllISI.
Til
OlODA ••• '9"
jlUO IN',. SUP.IV 11011 IETIIIN
OVRUY+U,DSAn ..
ANAunl.
DC.
3.2
-02

".

•

19912
'19982

•

19917
19911
"99.0

J9l16

'9996

6

00000
00000
00011
011010
oooao
OOOJa
000 ••
0001.
000. .
000.0
00092
0010.
00116
OOU.
001<10
ooua
DO".
00n6

OOUI
GoaOO

J

••

J1

004.'
D0410

"
••
••
n

00510 -04'L
1i0.4' ClOall
DUll 00464
00.6' ~04Z00421
00'"
DU •• 02161
00161 OU6'
OU44 OU

16

OOO"~

49

00052
00052
00064

49

ooon

it"

02111
00100

OOOkS
00000

00462
00510
00201

-l902

00250
02902

00"56
001100

OSC

2,.

02
OSA

MC!HlOA

00017

,

I.'

00011
00018

-0079
1

osc

0'1810 MCAOOA OSC 1,0 ••
0
09880
DC
5.1400, ,
-1400
09890
DC
3.117
Jl1
09900
OSA SYSORG-IOO
09910

00000
00012
00020
00020
00032

&
PAGE

.

OSt

00071

OOA TO SAVE COIlE ON a-TH CYLINDER
OF DISK StRATtH AMEA

1 ••

DORG 100
HNa -+24, SYSCAl."
TOM SYSCAl.O
8NF
MCAOO. SYSCAL ••
TOM SYSCAl.5 ••
TFM IOXX, •• 21"
B
I DR8t, MCAO.,1
TF", 10XI,e.2), t
8
IOGT,"CA05,l
TFM HILT+I>.CHK4>12 ..
Til
OlODA,-+l'"
8
DYRLAV,DSA01 ..
DC
3 ••
-0'
DC
6,0'
-0000'
OSC 3,220
220
5,119' ,
DC

REPLACE ANY SYStiL 11.14. IY O.
TEST IF OUP 'ALL.
YES -SnlY·sen RETUIIN tODE.
SAVE CORE Fall THE OU, SUPERVISOR.

SET UP EXIT AFTEl RESTDRATlDN Of fAlLlS.
RUTOIIE AtlITH "'US ANO UECUTE
MONITOI 011 au, SUPUVISOR.

-139'
Tft
OLOOA,·.19, •
IIUIl II! THE "ON IT 011 'LUS TMI lOllY VIA
8
OVltlAY+U,DSAOt, ••
THE OYRLAY IlUD AOUTlN!.
DC
1.109
J09
DC
6.S021i'
-0502'
OORG 19912 ..
CDNnOL Til WIIUE Of! DISK.
Dse 1,1

2

X

00019
5

000 a"
00011

3

aDOtz

5

00092
00091

-2302
I

00100
00100
00112
00124
00136
00141

00160
LOlD THE aup SUPUV ISOR.

-045L
00000

00112
0011"
00196
0010.
00120

Don.

.5
IS
ft.
15

..."

..
16

16

n

••

DOll.
00.15
OOOU
00.15
005"
00520
005U
00n6
DO".
004. .
OOU.

x

0067S
00000
00.,'
00005

-0111

-oon

-0195
-02"
-1.420
00227

I ..n

)

•

Dono
002H
00'"
Dono
00162

Don.
oOlla

i1

••

00'.1
00410
)

,

1"82

Itt.,

I

299

00269
1. . .0

2it

IUOIUII SU'ERVISDa AIID IOU
10110

DSA

10HO

Dt
I.)
-01
Ot
6.0'
-0000'

10150
101'0 ••••••

DSAI.

10170 ••••••
MONITOR -MAIII ROUTINI
10.10 ••••••
101to ••••••
COMMUNICATION SECTOR ASSEMILED "'RAIIETERS
10200
DC
19.0' .tOIlIl'll.
HEADLESS OOA-S FROM 51'S ANa FOURAN.
-00000000000000000'
102111
ot
Z••• tDMM.".
SUNDARD SPS MAN'ISSA LINGTH.
-8
10llO
ot
2.2.COMM.410
SUIIDARD SPS SU. .OUUIII SU.
-2
102]0
OSC I.D.COII"+44.
SUNDARO SPS IIOISE DIGII.

o

-.

10,.0
10250
10260

PAGE

...IT

5

I""
I "to
""A

J.T94
I

•

"

6
',.

OU20

..

OUu

2

OUU

2

02.46

DC

a ••• tOIlIl.4 ••

SUIIOUO FORlllAlI MANUUA LEIIGTH.

02 . . .

2

DC
-4
DSC

2.4.tOM"....

STANDARD fOURAN fXO. " . WORO LENGTH.

02150

2

1.IoCOII"+4••

NUMln Of MOOULES IN 1620 SYSTEM.

02151

1

10llO

DSC 4.0.NCOMII.
0000
DC
2.1.MtOIlIl.'
-1
DC
2.0.MCDMM.7
-0
DC
2,O.MtOM".9
-0
DC
2.0.IICDIIII+1l
-0
DSC 1.0,MCOM".12.

10280
10290
10)00
10310
10312

MOIIIIOR SUTUS IIIDICATORS.

5
DC

l.l.COMM.".

0215.

2

02163

2

02864

THE PRINCIPAL INPUT DEVICE NU".EII WILL BE 5 fOR CARD SYSTEM
AND I fOR PAPER TAPE ON snTl" DELIVERY.
DSt 105.co,,,,.n..
PlUNtlPAL INPUT DEVICE CAIID

10)21

4
Z

02161

o

10]11
10U9
10)20

02152
oun

OBJECT SYSTEM SIlE

021T5
OU1.

J

10))0

DC
5.0.COIIII.88.
-0000
DC
5.0.COMM.93,
-0000
DC
5,O.COM"+98.
-0000
OSt 1.' ,C.OM."99

10)40
10150
10)60
10)10
10380
10)90
10400
10410

LOWEST ADDRESS LOADED BY LOADER.

02190

CURRENT LOADER RELOCAUON INCREMENT.

02ns

5

CARD SEQUENCE NUMIER fOR LOADING.

02900

5

02901

COLD STAU ENTRY TO THE MONITOR
-CLEAR STOR"'E. THEN
THE FOLLOWIN~ INURUCTlOIIS MUST BE LOADED INTO O.
14000)200TOI
J60DOJZOOT02
1t90240U

•
•
•
•

31111
1.20/UI1 SUPERVISOR AND lORY
10420 •
10430 •
1044U •
10450 •
10460 •
10410 •
10410 •
10490 •
10500 •
10510 •
10520 •
105)0 •
10540 •
10550 •
10560
10570 MAOOO
10510
105.0
10600
10610
10620
10b)0·
10.40
10650
lOUD
10'"'0
10610
106.0 "A010
10700
lOTIO
10no
10730
10740
10750
10760
10710
lOTIO
1079D
10.00
10110
10820
lana
10140
10850
10. .0
lana
10•• 0
1019D MAOaD

PAGE

26

Y196161 UOOI02
WHERE
-I
oj

-5

IS THE MaN liaR CONTROL CARD SDURCE TYPEWRIIER
If ANY OTHER OIGIT IS SUPPLIED.
PIT READER
THE MONITOR WILL ASSUME THE
CARD RUDER
VALUE I I TY'EWR ITEII 1

AIID WHERE Y IS THI DRIVE CODE fOR THE 'HYSICAL MODULE
ON IIHICH THE MONITOR NOW·RElIOES IF ANY OTHEII DIGIT IS. SUPPLIED.
"OOULE 0
-I
-3
MODULE I
THE MONITOR WILL ASSUME THE
-5
VALUE I IMODULE 01
"ODULE 2
MODULE )
-T
DORG
TO
TR
TOM
TO
80
TDM
TD
CF
TD
8D
TOil
TO .
TOM
TDM
Tall
TDM
TFM
TFM
TF
TD
ITM
TR
ITII
TR
ITM
TR
ITM
Til
TFM

••

SYSORG
402,MCROU ..
MOVE AR ITHMU I C TAILES TO 'RO'EII ADORESS.
100.102
402.0
•• 21.11
0+24.MCOOI
n.1
IICOII".I.)I
SET UP LDGICAL MODULE a DaIYI CODE
J2."
•• 2J,32 ..
EQUI VALENCE.
0+2 •• MC004
12.1
IICOMII.5.J2
MCDIIM.D ..
IN!fULUE COMM SECTOR INDS,
MCO"".I,O
MtOIlM.2.0
IICDMII.U.4
.NI .... I.MNDO.U.711
DLOtY.I.IICYL.IO
EQUIY·I.IICOMIIU .. RUD DOA-S FOR SPS. FORTRAN. DUP. AND
I.IINDD.MCOMII.' ••
THI EQUIVALENCE " ' U AND DUMP THEil
UT05 ••••
OIlTO DISK ON SPECIA'- SECTOIl.
SPSDDA.UTOS-a.U
UT05 ....
FORDDA.urOI-I.u
urD5.U'
OU'DDA. UT05-1. II
UT05.2
EQUOOA.UTOl-l.U

lo..... n

IOR.t.IIA020.1
MIOOO ...
OOR' e-4
OSC J.U

'ROCIED TO THE INTEII-'HASE ENTRY.

on02
02402
onl4
02426
0241.
02450
OJ462
02414
on. .
OJ ....
02510
02122
02U.
OU46
OU58
oano
OU82

au...

OU06
OUII
oauo
OU42
02654
OU"
DUll
aUto
OU02
OUl4
02126
OUI.
onto
on62

on..

as
II
U
U
4J
IS
25

n

25
4J
IS
21
15
15
15
IS
16
16
Z6
U

IT
II

IT
31

IT
Jl
IT

..
JI

a.

00402 04U5
00100 00102
00402 00000
02461 00011
02474 10690
ooon 00001
02155 000)1
OOOU 00000
01521 000)2
02534 lanD
00032 00001
oun 00012
02852 00000
02153 00000
02154 00000
02'" 00004
OOSIO -0"''02111 000II.
0210) 02157
00"0 02157
01310 -000'
10.02 O'34R
on50 -OU6
10.21 OU4R
onlo -au.
10142 OU4R
on50 -oooa
10.62 013411
00565 -UAI
00520 ' -u..
02902 00000

on. .

2

onn

I •

Z2

10.00

DIA

NAOU

10910

Dse

,

It'

DIU.

10910 "'011

ose
I

Itl

ann

oln.

-un
I

3UI

\')

'61OUln SUNtVIS. ANa loa,
1"10

DSA.D

onll

10•• 0

DC

1.1

onla
onl5

lono

-01
DSA

10'60
lanD
lOtiO
10.00
10.01
10'"
11000
11010
11010
UOJO
UO.O
U050
110AO
11010
UOIO
U090
iliaD
11110
lUlU
UlJO
UI.O
HUO
IU60

Hll0
11180
11190
11200
11210
11220
UUO
lU.O
lU50
11260
11210
11280
11290
11300
11310
11120
11no
113.0

...... .
"lOaD

11.010

111020

"1025

111010
IIBO)5

""0"0

"80.5
111080

Dse I.'

0"90
ono.

INTEII-'",SE ENfIY· fO RDNlfDa.
_G SYSOIIG_500
IICrY ...
IIES'DAI TYPElltlTlt CAUl ....
TO
IIUCu.COIlll_n, •
SAVI SntlR $III
TR
OLDCY .RIU6- h.
SIT AIIR INDICU_S $0 SEIK IlUST OCCUR
TF
EOUIV.l.RCOIIII •••• IIESTDII LIIGIU&. R'VI I ...... I_IY.
TO
IIRIlDO.RCONR.S
SF
HALT, ••
INDItATE 'USIllt, Of ....nOll.
TOil 10h31 ....
OISABLE CON'IICK. 'UO , ....
10
IIIOJ5.0VIILAY+l0 .. fEST FDI E.'" vucllTl. UIlII , ....
TOil 11101.0 ..
NO -sn U, TO aUD A CNfl. CMD.
TO
•• J;4,MCOMM.1Z ••
DNAY EA TeHAY.
TO
·-U.SYStAL
TO
SYSCAL .IItD06
10
1I1020.SYSCAL ••
fEST IF END OF .lD1.
ITII UT01.I ..
YES -GD TD .loa CLOSING taufll'l.
TO
•• 2), SYSCAL,.
UECUTE A CDR'UTIO HACH ON SYSCAL.
TD
·.U.IICOO'
TF
.+lI.RCOIO
II
1111015 .. 6
DDIIG 118000.21••
TRICKY. WHAT SAY--.
OSA IICRO I. 118010.118100. 118100 .MBI.O

01901
02901
029 ••
on,.
01. .1
01.50
029"
ann
029. .
on. .
01010
01022
010.'
010.'
0)011
01010
0101a
OlD'.
Dna,
031"
03120

TOil
8
ODRG
SF
fO
TOil
8NF

SYStAL,O.

I •
-"".1
I

••

01190

SPSDDA

f

FDIICE TEIlMIN.. TlDN OF .101.

"8010+~8

.-3

INHIBIT EXEtUTlON.
S.. VE RETURN tOOE.
liES TORE MAIN IND.
1180.5 ... 8015+11 •• TEST IF IIUD NUIIEIIIC .. LLY.
WAry ""jO,.,
TYPE RELO .. D MESSAGE.
Rcn
H
W"I T FOR OPEIlATUII.
8
148010-12
OORG . - ]
fOil MI01,1"
INHIBIT IIUDING A CONTROL tAilD.
8
148010
OOIlG '-1
8fll UTIl ...
TEST FOil INHIII'ED EXECUTION.
fOM MD02,6"
SET SYSCAl CODE.
fOM MCOMM+12.6tt
SET OUP INDItATOII.
NONEX" ,

--I ,OVRLAY+1O ••

OyItLAV.1O,O,.

...

n

'All

DSA

03120
OJlU
O]lJO
OJU5
011.0
011.2
0)15.
03162
OI16Z
OJl1.
OJ186
01191
OJ210
OJUZ
0)2) •

on..

0125.
OU5.
OJ26.
oun
Dun
01216
DUtl

"0101
I

.. "".
00000

II
II 'OIUO

a,

.,

....
01101

21 . . .0

I'

U

01'"
011'1

II DtI"
I I Ol~
II 010.5
I I 0067.
AI 01010
11 GllIZ
21 0)093
II OlIO.
I ' 01111
0111-

.

00101
all"
0.0.'

Dun
Oil"
00000
00009
00.71
00000
01. . .
00."
1".0
00.75
-0001
00U5
lono
10111
00000

5 X

5

-.21.
-'061

IS

••
Jl
IS

15

....••
IV

J.

U

••11
IS
U

-1.21
-JU2
-J651
00."
OIOS.

00000
00000

00611
Dun
OOUI
OU5.
lO31.
00000
00000
on. .

00000
UO."
00000
OJln
00100
00102
00000
00000

Otl28
OJOlO

00001
00000

09606
onu
OU6.

-0000
00006
00006

3u2
1620/1311 SUPERVISOR .. ND IDRT
11350
11UO
11310
11380 "1080"

u)to

11.00
11610
11.20
IIUO
lIUO
11"50
11.1>0
11.10
11.80
IH90
11500
11510
11520
115]U
115.0
H550
11560
11570
11580
H590
11600
11610
11620
11610
116.0

MI081

1111100

TR
8NII
TF ..
WArY
WNfY
Rcn
8
OOIlG
NOP
fa
8
OORG

6'"

8NF
BNF
B

.. R02.DUPDD ....
MB081 ,HROl,.

PO JIlt • 119 ..
MM)6".

POINT-3 ...

unOF
.-]
M8225+1.MtR01 ....
148200 ••
.-]
UTII., •
"8145.IICO"II+I ••
.. 1110.14'01111+2 ..
UTIOF •• ,

DOR.G .-)

118110

GET DO .. FOR OUP SUPERVISOR.
TEST IF V"LIO.
NO.
TYPE ERROII MESSAGE.
IDEtH IFY MISSING DIll ENTRY.

NO LOAD "DDRESS.
GO TO EXECUTE LO.. D.
TEST FOil INHIBITED EXECUTION.
TEST IF PHASE IEGAN IIlTH ueCUTE CAIID.
YES -TEST IF EXECUTION INHIIITED.
YES.

fOil MCOMM+12,., •
SET EXEtUTlON INDltATOR.
8NF 11811 08. CDIIII+22 ••
TEST IF PIIOGII&II LD..OED TO DIS...
80 . Mlll08,COIIII+22 ..
YES -TEST IF .N CDU IIIAGE FDII""T.
8NF ·+20.COMM+J9. ,
YES -TEST IF .. 0111 NUMIER SUPPLIED.
8
MBll08, ••
IIHERE ARE YOU.
OORG .-]
MallO' 8f
UT05,COIIII.]' ••
GO TO GET THE ODA.
IIR02.UT05-1.U.
MOVE TO TEIIPOR ..IIY SLOT.
IIIR 118190.111102 ••
TEST IF VALID.
8
"IQO.+12, ••
NO -TYPE EllIIOR liES SAGE .. NO CLOSE .101.
OOIlG .-]
MB1108 TR
IIII02+1.COIIII"
USE DO.. IN COIIM SECTOII "s LD.. D QDA.
A
IIR02+3. SREL« ..
CDNVERT fRail SCIIAttH TO "ISJlLUTE
TO
uno
1I1I02.SRELOC-I, •
SECTOR ADDRESS.
TFII IIII02_U •• 999•• ,
11660
fDICE THE RELDtATAILE INDICATOR.
8NF •• Z•• CDIIII+12 ••
linD
TEST If THI IPS SU'EUISOI IIEIlUIIIED.
11 . . 0
SF
111102+13 ...
YES -SET fLAG INDICATOR.
TFII HIGH,SYSDIIG ..
11 . .0
RELOCAl ... LE 'IIDIiiAIlS WI LL H LOADID
8
11100
111195 ...
AT SYSOIlG.
OOIlG .-]
uno
U120 IIll.O INF "IO.IItONR-l ..
TUIIINATE JDI IF THIS "'''51 INVllLftS
uno
B
111010 ... ,
EXECUTlDN OF A Usel-S '1II1GUR.
U1.0
DOIIG .-1
8TII unl.l ..
lIno
TYPE NON EXEtUTE IIISSAGE.
11160ll1lU TOil IICOIIM+1.0 ..
I NO ItAlE PHUE NO T liGUN.
linD
IItR01-U ...
GO TO CONTlOL C"O UAD £IICUTIWI.
OOIlG .-1
UlIO
In.o 111190 TOil 111125,] ..
.0ICE UPDATING D. IIIGH INDICATOI.
11100 ""95 TOM MD02.0 ••
SET SYStA~ COOl.
&11'0 ••••••
FINAL LOAD ..NO UECUTE Of SYSTIII DI USEas 'IIDGIIAR.
11110 111100 fF
EOUIV.'.IICDRII+J .. IIDVE IIERAINDIt OF IQUIV TAIU.
EOUIV-5.RC _ _ '
IIIJO
'F
111.0
TF
EOUIV.l.IICONR+U
Til
I1no
ae'Ds.I.IIEC ••
SIT DIIIYI IIE'OSITION TAILI TO Z.lo-S.
TOil RE'DS+l.D
11160
TO
11170
MOYE CONTROL C"O sauaCE TO CCIIIIJCIIt.
• •• ,."'S,,
fO
UIID
FSPS.IIt_tJ
11190
IN' ·.2•••• 2]
SF
11.00
fSPS

'R

•

PAGE
OUlO
OUIZ
OJU.
OU . .
OU58
aUla
OUIZ
on90
0]190
OJ.02
OJ61.
03.22
OI.U

OJ., •

I'
JI
J.

10U9
0915J
00000
09550

10BU
09112
-013.
00100
00100
00102
00000

61

00000
0.0.0
OIUt,

00000
0 •• 55
00000

09606
0)690
OJ. . .
09no

-0000
OZI!U
02U•
00000

02".
on. .
01'"
OISU
OJ566

0000.
02.2.
0212.
021.1
00000

01350

0".1
OU.R
0.132
00000

Jl
U

16

.
.••
as
t9

11

on.6
OJUI 69
01•• ,
0].66 IS
O)HI
OJHO U
01502
onl •
onZ2
OSS22 Z1
Din. J1
on. . U
DUll
015. .
on . . J1
011" Zl
01590 U
01601
OJ6I •
01626 II
OJU. 16
.0IUll ....
OJ. .I
01. .1
olno
01"1
OJn. n
01. .0 as
on02
onl0
onl0 as
onu 15

...

..

••

.

••"
,.

..

.

DIU.
on.,
onll
OJno
onll
on...

01106
01111
01110

,.
,.

16
Ii
11

.."
as

II

O'UZ
0)390

onllt

D.nz

01110
DUO'

091U
onu
onu
onu
01611
O"U
00'16

Qnu

OUOI
OMIS
00612
1t99'
OU1.
00000
-2.01
00000

OUli
DiltZ

OUU
00000

0"06
DUn
MOl'

-000'
00000
00000

O.OU

OOGOl
00000

onu

DUOS
OJlOl
OUO'
OOIU
0051t
0 ....
00."
0 . .. ,
00.19

OIH'
02. . 1

ouu

0.101
00000
00.,.
01111
01. . 1
00000

aua

II

PAGE

1620/U11 SUPUVISOI AND 10aT
L1tlO
11UO
11910
11940
11950
11 . .0
11970
11910
11990
11000
11010
11020
12010 NIll0
120.0
120'0 141220
11060

SF
Sf
'R
TfN
I
TOil
TO
CF
Cf
10
WArV
Rcn
TfM
8
OSC
22
OSA

LOIN" ...
C"IU
tIlllN .......lt

fOR GODO NUSuaE.

10...... 21, ,
IOIIt.NIZZO.7
ID,.37., ..
SntAl.IIDOl ..
"ALf, ..
HAL '+1,.,
Mlll0.SVStaL ..
"MIS •••

..alTl tONN SEtTOI ON DIH.

lOll ,e+2).,

LOAD AND EXECUTE DESIRED I'ROGII"N.

OJ • .,
OIU.

OJ...

RESTOIE (Nfl CA.D TUP IN IOIT.
SIT SYSCAL CODE.
.,IIDVI NONITO. IIIOICAfO ••
.IIIOVE ANV A£IIAINING LUTLE GODOIES.
TEST fOR EXECUTION.
YES -TYPE NUSAGE.

Olill
01190
01902
0191.

onu

0)9)'
01950
0)962
0)97.

OJ9I.

l.ll

Oltt.
0.010

NI222

0.016

10GT. NUn. 7

11010

ose

1. '

0.016
0.011

12080 M1222

ose

101

0.011

12090

OSA

Jl

."
12
11
II

n
J)
n

U

J9
I.
16

u

00.,1
00427
OU. .
00'"

DOnO

019"
00415
00456
00U7
0)916
10211
00000
00'65
005 ••
2

Z9

00000
00000
09n6
~nOI

-4010
00005
0'731
00000
00000

Don,

00100
00102
-.009
-40))
X

-4018
I

I

12100

OSC
001
DSA

12110

OSAl9

O.OU

301

0402)
0.02.

CDMM

04031
040)1
040)2

12120

usc

I.'

12130 MIU5

DSC
2K
OSA

2,-22

04033

MR02

0.0)9
04039
0.040

12140
12150

ose

I. '

12160

OSC

S,O'

04041

2,-01

0.041

2,-01

0 .. 049

2.-01

0 .. 051

3,-01'

O~O5"

5 X
J9663
3

-2802
I

5 X
-9132
1

0000'

12161 MI226
12162
12163
1216 ..
12170
12180
12190 MCROI
12200
12210
12220

DC
-J
DC
-J
DC
-J
DC
-J'

MONITOR CONIMOl CARD READ SUPEII.YISOR ROUTINE.
TOM M101,O, •
TURN Off ALREADY READ IND.
TO
NCR02A+1I,MCOMM+3 .. 0ECOOE CONTROL CARD INPUT SOURCE.
"B.MeO"M+)
'0
TF
MCR06+ •• "Co02
80
MCR04.MI01. ,
TEST IF CNTL CARD ALREADY REAO.

040\b

04068
04080
0 ..092
0410 ..

2

15
25

zs

2b

43

09828
04121
OHO)
04941
04304

00000
02855
02855
10100
09828

30(,

12230
122 .. 0
12250
11260
12270
12280
12290
12300
12310
12320
12330
12HO
12350
12360
12310
12310
12390
12.00
12410
12420
12430
12440
lZ .. ,O
12460
12410
12410
12490
12500
12510
11520
125)0
125.0
12550

MCR02l 8NF
RCTY
WAfY
8Nf
WAn
ReTY
MCR03 HM
Til.
AM
CM
8NI
HI<

8
8NI
8NF

MCR04

..

,

TEST If TYPEWRITER INPUT.
YES -TYPE ENTER MESSAGE.

"MOL

*+24."10)"
"M2.

TEST IF IN J08 CARD SEARCH.

*.18.MccaUF. ,
CLEAR THE CONTIIOL CARD IUFFER.
XX,MCRO".7
MCRO)+18.4
MCR03+18 .Mce8UF+l60
MCROH 12. 1300
IOX., •• 21 ••
RUO A RECORD FROM CONTROL RECORD SOUkCE.
10GT .MCR06, 1
•• )2 .... 00. ,
IF ssw., ALLOW IIE-ENTAY ON TVPEIiRnEII
•• 20, MC.02A+ 11.11.
IN'UT.

8
DoRG

MCROI~12
O_j

8Nf

"Z'" MCR026+11. 11 , RE.STOIIE CURIAGE IF TYPEWRITER INI'UT.

ReTY
TURN ON CNfl CUD RUO INHllnOR.
TO" M101,l,.
8NII
MCIIOI-I2.MCtlUf>l .. IUAO AGAIN IF NO OOUILE R.N.
8NR MCROI-IZ.MCCIUf.l
TFM MF01,4"
TRUT AS COMMENTS CARD If ANV R.N.
8TM UTOl.MCCaU,., ..
IN COLS. 3-6.
8NR "CIIOU.NDOI
8NR MCRO'A.MccaUft5 .. TEST fOR END Of JOI.
8NR MCROSA, ,,'CBUft7
TOM NIOI.o ••
DISAILE CONTROL CARD READ INHIIITOR.
8
MIO)O
OORG '-3
MCROU CF
CUAR flAGS Fall eoLS .... , AIIO 6,
MeClur •••••
OORG '-4
DC
Z.O
-0
US60
DC
3,0' •

·0'

Ilno
12'10
12590
12600 •
12610

UUO
12630
12640
12"0
12660

.. no
~;-680

uno
UTOO
12710

UUO

uno

MCIIOS

Cf
CF
TOM

""BUF . .
MCCIUFt'O
N001.0
DICOOE CDNTRIH. CARD TYPE
e
MCCIUf+11.""02+' •• TUT FOR -JOB· CAIIO.
BI
IIJI01.1200
C
MCC8UFtU.NIIOJ.6 .. TUT FOil -T"E- CAIID.
8NI lI,a05,1200
TOil MeONM.].l ..
YES -sn l,.oICATOR.
IfM UfO., ..
GO TO TYI'f·OUT ROUTINE.
8
MeR01-n •••
GO TD IlEAO AIIOTHER CARO.
)
OORG
C
IICC:IUFH I.MMO...... TIST fOil -PAU$- CARD.
INI NCIIO,,,.1200
ITII UT06 ...
YES -GO TO fYl'E-OUT IlQUTlIII.
H
AFTU STAIIT, IUO UIOTHEIt tAIID.

•

PAGE

1620/1311 SUPERVISOR AIIO 10RT

MCR03. MCDO I. ,

..
...

M'"CIl-II

127.0
OUIlG '-J
uno IICROSA 10
MCII01-U.NIOJ, •
U760
IT" UfO....

RE-IlUD If IN JOI CUD SEAIICH.
GO TO "I'I OUT THE CARD.

04116
0 .. 128
04140
OH52
0416 ..

....14

49

0405~

10690
00102
00100
09829
00100
00102
HOOD
04UI
-0004
J3I60
01100
-10211
- .. 915
00400
0412'
00000

4.
14
IS
.5
45
1.
II

15
49

OHZI
00000
09828
04051>
04056
Ot104
01031
0.4<44
041>21
041>28
09828
03142

0412'
00102
00001
13001
13003
-000.
HODS
09110
U005
13001
00000
00000

U

UOo.

00000

U
U
IS

UOOI
13010
09110

00000
00000
00000

2.

13011
04944
!J01i
oun

09185
DilDO
09891

]9
44
)9

04"6

I ..

04181
QUOD

16
31
11
14

04212
04224
042]6

042U
0.260
0.212
0 .. 214
aU96
04104
OU04
043&6
OUZI
04140
OUSZ

04JU
0.316
OU"
0 •• 00
0.4U
0.424
04U6

04188
00000
09831
04n6
10291
00000
04206
00000
04206
0 .. 206
04200
0051>5
00566
04304
04304

4'

16

49
41

••

U

45

U

30

0 ••••
04444
0 •• "
0 •• "

]

0 ... "

0..."
0 .....
0 .... 0
044'2
OUO.
OU"
OUZI
0..,.0
OUIZ
04164

46
24
H
15
II
.9

oun
o... n z.
0....
0 .....
0 •• 0 •
0 . .10
0 ••, .

0 ..."

0""0

02155
0'~'4

0.056

ouoo

00001
-0000
00000

.9

0'49.
00000
040'.

09.01
01100
-0000
00000
00000

4J
17

0.056
0lU4

09"9
-0000

41
II
U

UOIl
0.~8

3115

\~I\

1610/UU SU'"VISIII "liD IDlT
""0
UfiO
UltO
UIOO
""0
U120
111.0
n •• o
11110
UI.O
linD
11110
liitO
Utoo
UtlO
UUO
uno
12'''0
U950
12. .0
12970
1"10
12990
nooo
nOlO 111:1106
nolO

10
fll
TOil
fll
fO

DC

lICilOl-li.1IiI01U
RUD II.U CAIID •• I'IIICID CO""" CAiIO.
COIIII.U ,I lilt ••
INlTlaLUE SPS "0 'DIlU. . . .ilQUS.
COIIII+lt,O.11.
OUTPut 'IELDS.
COIIII.llilK
"Olllf."'''''''
COllll+.,......c ..
DlSalU CDIIII ftUIII IlIDlClitDlS , .
IPS AND fOI..ill SuatOuYtll. UtA"S.
'_.12.0.U.
IIIGII."*G
111225+1.,,"01'
"'C.U•• ll.IIND..... 1'EST fOIl -S"- C&IIO.
""Ol.UOO
"'C.UF.ll.IIIID6•••• TESf .011 -S'SI- '.11••
""'01.1200
IICC.UF+ U .lINDh6 •• TESf 'OR -POII- Cl"D.
IIFlOI.1200
MCtIUF+U.IIIIOI+6 .. TESf fOil -.0"· tA"o.
IIFTOl,UOO
MCCIUF+ll.IIIIO"6,. TEST fOR -OUP- CAiD.
IIO'Ol.UOO
MCtIUF.U,IIII10+6 .. TESf FOR -lEG- UIID.
IIIOOI,UGO
IICCIUFH 1 ,l1li11+6,. TEST fOR -XEQS- CAIID.
111001,1200
IICR01-U.IICCIUF+1.,.COIIIIENJS tAiD -liO TO '''bO' IIUT 0111.
0.--4
2,XX

nOlo

OSC

10'

U040
1)050
U060
nOlO
UOIO
no'o
Ul00
IIUO
U120
UUO
U140
U150
U160
lUl0

JR
fDII

""

fO
C
II
C
II
C
III
t
II
t
II
t
II
t
81
B
OS

xx

.....

...12

04'"
0. . . .
04'00
04'U

'Ali.

u

M05•

11

0 . . .1

II

00. . .
OIiU
0....
01...
04048
1I0U
'."1
11011
06UI
UOIl
06.10
, nOll
OU70
13011
06806
uon
06910
uon
06942
0.016
0
2

:u

....,.. ..,.
....".,".. ..".".
..... .....
..••".,.."
.".

""0

I.

0. .01
0".,0

U

o.nl

'"

0 . .56
0. . . .
0 . . .0
0 . . .'
0"'''
0"16
0""1
04'"
0 .... '

UI.O
U200
UlIO

OC
-1
DC
-I

os.
oSt

,

01155

"It,

OOIICI-1401
0445'

"""

01200
Ot.. 17
01.00
attn
01200
099"
Olno
0 ••4'
OUOO
0994.
01200
09957
01200
JIOOl

04942

llca01A OS
O,"C". . A.U
••••••
JOI CARO '''OCISSOII
.. JaOl 8f" UT07 •••
.. JIOl BT .. uT06, ••
TFII FO, •• 23, ••
B
UTLO,NJIOZA,l
BNF MJ80J.f4, ,
8NF MJ8JO,Fl ••
BMF "J80",IIOOI
MJ803B,MC001, ,
MJB02X BO
fFII FO,MJIOJ, ,
B
UTLOE
OOIlG .-)
MJBOlA OSC 4,0100

0

04"'5
GO TO JOI tlOSE out . . .tlllE.
GO TO CONTIlOl RtCDttD JYH-tlUf «QUHNE.
OECODE COL. 1.
NUSf IIE-REAO IF ANY £RIIDtt.
EXIT IF R.II.

04'"
0.956
0. . . .
0 . . .0

u

1'6

••
O"" ••

0500.
05016
05021
050.0
05052
05060
05060

PROCEED IF I'ROi'U .'I"it.
NO -TYPE ER'IIOR IIE$'~.

17

....,.
16

H

onlZ
OB4."
09586
091311
05074
'06150
05142
05UO
095B6
0 ••12

2,1

05065

2

2,1

05061

2

MJB02X+U

05012

5 X
-50]'
1

05072
' 05011

1, •

U220 MJaO) RelY
UUO .. JaOlA TOM MCOMM+3,1 ••
TO .. "lO),l,U,
U2.0

05014
05016
05091

CHANGESDURCE rNOICiliI'OII.
INOltATE JOI tARO lURet+.

-'DODO
-0000
-4.91
-·5060
09590
09581
0'130
10690
-50J(o
00000

•

0100

U180

oooa-

II· ".01 atl"

sa
as

. .71.

u".

II

otUo
"'51

)4

u

15

00000 ·00102
OZlts OOOD·l
091'9 OODlW

Iff
1620/U11 SUPERVISOR AIIO lOAf
U250
U260
U210
11280
U2.0
lnou
UI10
uno
uno
U3.0
uno
U360
uno
UlIO
13390
U400
13.10
U4Z0
U430
13440
U450
U460
UItJO
U4IO
1]490
USOO
U5L0
U520
unu
U540
uno
U560
uno
11510

uno

13600
Ll610
U620

uno

U640
U650
U"O
U670
u . .o
U ... O
U700
U110
U720

unu
UJltO
uno
U760

uno

U7IO
U190
UIOU

TOM
B
DDIIG
IIJBOlI fO
MJBO' SF
SF
TO
TO
TO ..
TF ..
TFM
TF ..
TFII
"J110 BNF
TF ..
B
TO ..
BNF
8NII
CF
CF
8
OORG
8NF
.. JIU C..
BNI
"JIU TFM
8
OORG
.,ATY
ReTY
H
8NI
.,AlY
RC"
"JILU NOP
TF
8
DOIIG
"Jill A
A..
"JlllA TF
A..
Tf
IINF
"JII'
TF ..
B
TOil
IliF
INII
Cf
10
I
OORG
MJllU TOIl
fFM

MCOMM,O"

MCIIOl-12" ,
.-]
"CO"N+l,IIF02,U

"JBIO ,I •

IIJI15
MJ8U+U,COMII+49
IIJI20.8,CDII.... '
"JBL5A+U,l
MJBUA+6,IICOMII.5
MJBL7+U,'
MJI50A+5,8,10
"JI5S . . 5. 12, 10
"JBI2A+12,., •
fO,.t2J,.
UTLO,MJ850A,J
"JIUA+l, I ..
MJB12+Z0.F4, ,

·.,.,.."001 ..

MJIIO •••

IIJIL5
II'JIUA'12
'-3
.. JI12A . . Z,IIOOl "
IIf02,U,610,
"Jau,nOO
FO •• +20 ••

UOICATE JOB NOT leGUN.
GO TO CNfL tARO RUIl SUPERVISOII.
INITIALIZE fO StAN'IlEIIAINOER OF CUD.

.
15

02.52
0"056

25

02855 091011
05250 00000
055710 00000
onn 02.51
06034 OZl5l
0"19 00001
-2151
0"'"
05941 -000"
06115 000-'
06119 OOOJ2
05. . . 05250
OllSI6 -5215
09111 -6170
05611 00001
0"'10 '·09590
on54 0'710
05250 00000
on,,, 00000
0549. ·00000

J2
J2

Z5

osn. ·u
051.0
05Z0~

IGNOIIE tONTROL ' . .0 FIELD IF 5C.,.II OVE".
OECOD"E WIIIIENf OillVE EOUIV. FI£LO.
SET ERROII IIETURN SMlTtll.
CHEtK fOil ANY EilllOil.
TEST IF CAIIO FlNISIIED.
YES -NO FUUHEII StaN OF F I ElO'.

IGNORE A IUNK.
NO -CIIECK If !tITIIIN COR"ECT

"''''E.

NO -TYPE EaROil MUSAGE.

unOE
.-)
.... 17
"JIOI,400, ,
.. IIIL ...

,05UO
0.5122
05UO
05UO
051"2
0515.
05166

MAlT FOR OPERAfO".
IF NO SSM4, SDUIICE CMANGES TO "'IWRITEII.
INDlcnE ""AT COIIOITIOll IGIIOIIIO.

.. JIL5A-ZO ...
NOPlI"'NCH SMlfCII.
.. F02,IIJlnA.6,6n .. ALlOW THE OLD EQUIVALENCE TO ST.. NO.'
IIJIUA+U
--I
MF02 ...F02."U.
COIIPUTE 'H'IS I taL DII I VE CODE.
M'Ol,I.610
XX,IIFOZ,2U,
IIOVE TO MCDllII EQUIV "'ILE.
"JIUA.,.EQUIV-IICOIIII-... IIOVE TO 10AT IQUIV fAiU.
IIJIIIA+6,IIFOZ.611
MJI15A-ZO,*, ,
liST If 11,11. "LREADY ENCOUNTEIIID.
FO ••• 23"
NO -EXTRACT tUIIIIEIIT PACK NO. palLO.
UTlO,IIJ"''', J
IIJIUA.l,' ..
sn SMITCH.
IIJIlZ+20.F4, ,
CHECK FOil ANY ERROII.
·.24, ..001 ••
NO -TUT a, tAlIO FUIISHED.
YES -NO PUllf1l11l StaN OF PACK NO. F.II&.DI•
IIJI"".
.... zo,"J.U".6.U. SKIP TO END I' IIOOULI NOT .." ".....
"JUO
'-3
"Jln,xx.fo,
IIUO Tuca COIITAIIiING PAca IIUllln.
10Xl, •• "

0511.
OUZ6
05211
o,no
05l6Z
0521.
052. .
05191
OU10
onZ2
DIU.
051.6
01)54
05154
01)66
05171
05190
0540Z
05410
01"10
05412
0541.
0"'''6
05411
05410
05. .'
054'"
05506
0"'.
0551.
01126
05UI
0"'0
05161
0"74
0""
0""
05610
056.,
056 ••
05. .6
01611
0 • ..,0
0 . ."
01671
. . . .0

PAGE

15
16
16
16
l'
4.
.6
49
11
4.
U
J)

U
49

..

44
47

Itt

I.
54
4.
47
)9

14

.u
'"

'"
U
U
U
U
U

..

••
'"11
""
'"

..
.

II

49

11

oooou
00000

05U4
O,yDtt
on14
0"16
0941Z

09130
000-0
01300
-51t10
00000

10021
00000
00000
0'074
10161
00000
01651
09lOil

00100
00102
00000
00.00
OOUIO
00102
00000
015""
00000

on~o

0970.
097Dtt
-0000
0"'4
015.11
05651
0.5"
O'U'
o . .n
0"'10
056,.

,097011
000-.1
097011

O.U"
00561

000-0
-57U

-on..
0"011
05574
-160'
-6'1"
oooo~

091.0
o,no
on", 00000
01671 055""
06016 '00000

aU7

t
J2

PAGE

IUO/Ull SUPlIVlSoa AIIO IOU
UIIO
UUO
uno
U140
uno
U . .O
U810
1). . 0
UI90
U900
U9IO
U920

uno

U9.0
uno
U960
U'I10
U9IO
U990
14000 IIJ811
1.010
14020
140)0
140U
14040
14050
14060
14010 IIJB20
14080
14090
14100
14110
14120
14130
1.140
1.150
1.160 IIJI21
14110

8
8NF
8NF
8NF
SF
C
81
TO
BTII
TO
WAlY

10GT,IIJIU,l
IGNOIE tHECI IF .110 OF CAlO, 011
IIJII l,IIJII5"
IIJln ,11001"
ILAIII! FIELD. oa
IIJI11 ,,.,,
11Il0l10 . .loa IN "ELD.
14005,.,
COII'AI. THE "'II NUIIIERS.
1400' .IIF02.11
IIJII1.IZOO
'AU NO. EIIIIOR. -GET IIOOUU NUIlIEIl.
.tn,IIJIU ••
UTOI . . .
1I1I".56.UTOI-2
111116
IF
11III1.n.IIIIUt14
IIAlY 111111
TF
1I1I11HI.llllnt20
Rery
H
WAlT Foa O'ERATOR.
ft.
IIE-RUD PACK NO. IF ssw. OFF.
8NI IIJ8I5A •• 00 ••
WATY "Ml1."
lYPE CONDITION IGNORED IIESSAGE.
RClY
BTII UfOS ..... ,
RUD IN 0111 SECTOR FOR THIS LOGICAL
IIDDULE AND IIOVE SECTOR ADDRISS FOIl
SF
14000 •••
All
THIS 'ACK TO '1I0PER 0111 EIITRY.
UT05-1.5 ..
IF
UTOS-I. 1400•• 6
ADD I TO SEC TOR ADDRESS.
UT05-1.1.610.
A"
TO
WR ITE IT 1AC.1 OUT ON DISK.
"APENT. TEIIP-' ..
TFII lo..... n
B
101tlC,IIJ121.1
u n IF ALL IIOOULES FOil THIS
• ••• 1.110,
S"
8NI IIJUo.1I00 ..
CONFIGURATION PROCESSED.
All
IIJ8UAt6.IICOIIII-EClU I Vt6
AM
IIJ8I5AtIl.2.10
All
IIJ81ltll,I
AM
IIJ850 . . S.I.10
AM
IIJI5SAt~.S .10
B
REPEAT FOR NEXT LOGItAL MODULE.
tIIJBlO".
DORG . - ]
OSC 2.22
22
OSA UT058

05102
05114
05126

onll

05110
0"62
05114
OlllA
05"1
05110
Ose22
Otn.

osa..

Ose58
OtllO
OUIZ
05194
05906
05"1

o,no

05942
0595.
05966
05911
0"90
06002
0601'
06026
060]8
06050
06062
06014
06086
06098
06110
06118
06118

U

24
U

n

11
2S

"

16
19
26
).

4'
U
19
).

11
J2

II
26
II
IS
16
4"
Il

41
11
II
II
II

II
49

06124

X

-8468
I

06lZ4
06125

IU80

OSt

I ••

14190 MJ822

oSC
26
oSA

2.26

06126

IIJB2]

061)Z

1~200

4"
44
44
44

14210

OSC

Io'

06U2
0"31

14220 MJB2)

OSC:

1.1

061).

lU]O

oSA

19800

061)9

142~0

DC.
-20

).20

))

-6126
05"4
o,no
0'590
00000
091011
01100
OA\).
-0000
01956
00100
10.13
00100
IOU5
00102
00000
00.00
00100
00102
-0000
00000
-0005
14004
000-1
02144
-6025
-6118
-00-1
01100
-01S6
000-2
-0001
000-1
000-5
00000

00566
05UO
05910
05no
1.005
1.009
05930
0"09
019,.
loon
09959
loon
loon
10101
00000
00000
05618
10]6)
00000
08)50
1.000
OU.9
08)411
OU.R
0211'
00565
00520
060H
06150
055••
0568'1
05'1H
061U
0618'1
05250

S x
-6134
I

I

06139

J'I800

06l~Z

)

aut!
PAGE

IUO/Ull SUPERYISOR AND 10RT
14250

DU

14000

061~1

14260

OSC

I.'

061<11
06148

TOM MIO).O. ,
DISABLE JOII CARO SEARtH.
IICROl-12 ...
B
GO READ ANOTHER CNn CARD.
DORG .-)
oSC 4.0100
0100
IUIO
DC
2.0
-0
14320
DC
2.1
-I
14330
OSC 6,0'
00000'
14340 MJB55A DSC 4.0100
0100
14350
DC
2.0
-0
14360
DC
2.5
-5
14310
DSC 6,0'
00000'
14)80
SPS AND SPSX CNTL CARD PROCESSOR
14390 IISPOI TOM MCOM,...1,)"
SET SPS ENTRY IND.
•• 20
14400
8
1.1010
DORG .-3
14420 "SP02 TO" IICO"M+I.) .11.
SET SPSI ENTRY IND.
14.)0
TOM IItOMM.I ..
INDICATE PHASE BEGUN.
14440
TOM IItOMlltU.S
TFM FO, •• 2S"
141050
DICODE COL. 1.
14.60
8
UTlO.MSP05A.l
14410
TO
.tn.SPDINT ..
TEST IF LEGITIIIATE.
.t20.IICDOI
80
14.'0
14490
8
UTlOE ...
NO -KILL THIS 'HASE.,
DORG .-)
14100
14510
8NF IISPO).Fl
14120
8NF IIS'OI.IICOIIII+1 ..
TUT IF SPU CAID.
14S)0
TFII fo, . . n ..
YES -DECODE COU. .-••
14S40
8
UTlO.IISPO,..l
IUSO
8NF IISPO).fl
TFM FO, •• ZI"
IU60
DECODE COL. 10.
1.570
8
UTIO. IIS'OSC. 1
1.510
8Nf IISPO].fl
TFM FO, •• 2J"
IU90
DECODE COLS. 11-12.
14600
I
UTlO.IISP050.1
IIOVE . DDA FOR 51'S olSSEII.UII.
1'1610 MSPO] TR
IIR02. SPSDDA ••
14620
INR .IISP04.1I1I02 •.•
'1S1 I F VAll O.
IU)O
TFII 'DINT ....
NO -TE.MINATE CUMEIIT 'HASE.
1'1640
8
IIIO.OA
DORG .-1
IUSO
1.6.0 MSP~ TOil 11002.4,
sn SYS"L COOE.
8
1I10"tU
1."0
DOIlG .-4
1'16'0
14690 IISPOSA DSC 4.0101'
0101
110210 "JUO
14280
142'10
14)00 "J850A

06150
06162
06110
06170

].

J.OOO
I
15

49

09829
04056

00000
00000

~

06115

06117
06118

6

06184

4

06189
06191
06192
06198
D6ZI0
06211
OUIB
06UO
06142
06U4
06U6
06na
06no
QU02
OU10
OUIO
OUU
06U4
06]46
06158
06110
OUIZ
06194
06406
06."
06430
064U
0lU4
0 . .66
064'.
06414
06486
06.')
06491

6

0285]
062]0

0000)
00000
OOOOl
00001
00005

IS
H
49

0285]
02n2
OZ864
095"
09131
06]01
OU10
09482

44
44

06~]0

oZln
-USJ
-6501
09581
-6195
-6521
09587

45
I.
.9

0"16
09UI
06"'0
09586
091)1
06430
09516
091)1
091)2
06414
09756
onu

15
49

091)1
0]402

00004
00000

U
~9

IS
U
IS

16
49

16
.9
44
16
.9
4.
16
49
]I

06"'0

-un
-64n

00426
10690
00000
0'~81

-6429

-6535
10102
091]2
-0001
00000

4

3u9

,0;

• HI

ltlO/UIl UIIVIS. 'ID 101'
IUOO

-,DC

I.'

1.1

0.'00

OS'

SPOil"

1It.0.

DC

1.7&0

-1

IUID
IUID

OK

"'" "'Hn

Dse
0101

I.'

OM"

I
I

.-otft

OM!!'

•

0".1

I

OAI."

Z

Into

-.
DC

z••
z.z

14no

OSA

tOllll_11

06119

DC

IU50

-z

14110

OSt

lU90 "s,ost DSC
0101
IUOo
DC
JO
14110
OC
-1
IU20
DSA
DSC

hUo

14140 IOSP05D OSt
0101
IUSU
OC
JI
14860
DC
-2
14.10
oSA
14110

......

1489U
14.00 "FTOI
14910
H.20
14910 IIFT02
14.40
14950
14.60
14910
14910
14990
15000
15010
n020

DSt

••

1It:0,

lItot

'hOIO~

~

S •

-I,n

I ••

OAS19
OAUO

4.0101

OUU

2.10

061,.

Z

2.1

O,UI

I

tollll+11

06ln

S •

I.'

06ln
1It1l4

-~."I

4.0101

OtnS

•

2.11

OAS.a

2

2.2

0 . .42

Z

COIIIO>1.

06561

I ••

06lU
OU...

FOR AND FORX 'NTL CARD PROCESSOR.
TOil "tOM".l,4-,.
SET FOil ENTRY IIID.
•• 20
B
OORG' '-3
SET FOIII ENTR' IND.
TO" "COIIII.I.4.11.
INDICATE PHASE IEGUN.
TO" MCOM" , I,.
TOil IICoIIII+12.5
TFM FO.-+Z), •
DecoDe COL. 1.
UT lo.MSP05&. I
8
•• Z),SFOINT ••
TO
TEST IF UGiTlII4".
BD
'+20.IICDOI
8
UTiOE •••
NO -KIU lHI$ 'H'n.
DORG .-3
BNf IIFT03.Fl

06S!0
OASU
06510
OAno
OAIIZ
06194
0660A
06"1
06UO
066'"
06614
06AAI

lIt. .z

I•

I

•

5 I

-2811
1
15
49

02.53
06'12

00004
00000

II
U
IS
16

02115)
D2ISZ
02164
119586
0.131

0000"
00001
00005
-66~9

25

Dun

U

••

0A661
09412

-6493
00ltZ6
10&90
1101180

44

D6ll"

0.587

U

3111
lUO/UIl SU'ERV ISOR ANO 101lT
15030
15040
no SO
15060
15070

TFM
B
8NF
TFII
8
nOlo IIFl03 TR
lS090
BNR
Isioo
TF·"
15110
8
15120
DORG
15130 IOFT051 DSC
0101
15140
Dt
-8
15150
DC
-1
15160
OSA
15110

DSC

DECODE COL. I.

4.0101
2.8

06713

2,1'

1It1l5

2

CO"".82

06790

5 I

1 ••

06790
06791

UHO.IIFTon.1
IIfTO].Fl
FO ••• ZJ ••

UTlO.llfTOSC.l
HR02.FDRDDA ..
MSP04. 1111102 ..
PDINT,U6
IIB080A

DECODE COLS. 9-,I!l.
MOVE DOA FOR FOAT,"'N tOllPILER.
TEST IF VALiP.

.-]

15180 MFT05C OSC '4.0101
0101.
DC
2.¥
-9
15200
Dt
2.2
-2
OSA COIIII+7S
15210
15190

15220
15230
1524.0 "0'01

DSC

1 ••

DUP tNfL CUD 'ROCESSOR
TOM MCOIIII+I.2 ..
SET ~SE INDltUOII.
TDM "COM".l ••
INDIOt:n 'HASE BEGUN.
TOil MCOIIM+12.6 ••
15260
SET DUP INOltATOII.
TOM MOOZ,It,.
15210
SET S"CAL CODE.
TFII FO.·.23 ••
lU~
DECODE tOL. 7.
1
unO.MSPOSA.1
152'0
15]00
TO
'+23. SFDINT ••
TEST IF LE&lTlllAU.
lUl0
10
IIIOIO'Z4.IICDOI
UllO
1
UflOE •• ,
NO -KILL THIS 'HASE.
OOIliG .-1
uno
151.0 ••••••
XED AND XEOS tNTL CARD PIIOCESSOtI
uno 111001 CF
fSPS •••
SET lEO EN"'Y INOICATORS.
15)60
TFII 11100)1+11.27.10
UJJO
8
1I100Z.24
15J10
DOIIG .-]
15190 1111102 SF
FSPS •••
SET 1E0S ENTRY INOICATDU.
15.00
TFII 111(10)1+ ll. 14 ,10
U410
TOil "CO"".l ..
INDICATE 'HUE IIGUII.
15410
TO" IICII""+I.I.1I
TOil IICOIIII+12.4 ••
15UlI
sn O.JECJ 'IIIIGAAII INDICArOtl.
15440
IN' ·'ZO.1IC0II"+2 ..
TEST I' IIE'"flOII IS 1/lHllnls,
lMSO
iI
unoF ...
YES -""E liES"" . . 'INIIII
._.
OOIliG .-)
"460

uao

PAGE
06.,4
O. . .A
0. .9.
OAno
OUI2
06114
0"'"
067"
06170
06711
0617.

FO.·+2)"

16
49

44
16
"9

J1

U
16

'"

0""
0913.
061]4

-un

0""
0913.

-6192
10122
0.n2
-OUA
DoleD

09732
06H6
091S6
onu

"
2

-2"4
1

06792

"

0.791

2
2

OA"9
OA.O"

,

0 . . 04
0 . .05

-2'"
1

0 . . 06
06U.
OAlJO
o . ."a
0 . . S4
0. . . .
0""
0 . .90
o . .oa

·A691
-6178
09581

15
II
II

..

IS

,.as
4J

u

Olin
02111
on. .
DlUI
Ot5. .
0"11
06901
012. .
o,,,.a

I

0II011Z

00001
OOO.OA
00004

-..,n
-'",·1

004,,.

1",90
00000

IIttlO
0 . . 10
0 . .12
06'"
0 . .. ,
06"Z
O. .M
OA. . .
06"1
06""
olloa
0l0a.
0'012

II
16

00""
onn
06"6

00000
000lt7
OOOC)jl

II

01141'
onn

00000

II

Oatil

O_l

"
••'"

02. . .
010U

otltO

000_
OUM

••

..

ODOL •

15 on. . 000lW

000""

3J1

36

1620/1111 SUPE'VISOI AND 10RT
15470
15410
15_.0
15100
15110
U5ZD
155)0
US40
Isno
uno
15"0
15510
15590
15600
15610
U6Z0
uno
15640
15650
IS660
15610
15610
U690
U100
uno
U7Z0
uno
15740

".00)
"xQOlA

"XOOll

IIlOO~

111005

ISno
15160
uno

TFM
8
80
8NF
8
DORG
TFM
TFM
8
AM
8NR
8
DORG
CM
8NI
80
BNF
INF
WAlY
B
DORG
BT
TR
I"R
8
DDRG
TF
CF
CIO
81
TFM
8
OURC
8NF
TF
CF
TFM
BNF
TF
8
OURC
CF
CF
CF
CF
CF
TFII
TFIO

101006
15110
15no
ISIOO ~1006A
15110
15120
uno
UI40 MX0068
15850
15860 IOXQ06C
15870
15880 ~IQ01
15'90
15900
IS910
15920
159)0 IOX008
15940
U9S0
H"
IS960
TF
1~910
TO
lS~80
8NR
IS990
8
16000
DORG
TF
16010
TFM
16020

FO ••• 2) ..

UnO,lIXOSO,l
MX001,IIDOI
MXOO),IIDOI
UfIOE, ••
.-)
"XOOJAoU, MXQSS"

FO, •• 23"
uno, . .

DETUIiIN. IF tOLS. 1-&1 UGlTlIIATE.

NO -NAMES IIUST IE NON-NUIIUlt.
INITIALIZE TO DECODE u n OF tARO.
P.lfOlll THE StAN.

--1,1_

"10,11001, ,
IIXQO.-14" •
0-)

TUT 'OR R.II.
YES -END OF tARD.

FS.XX
IIXOOJA.UOO
IIlQIl.LOINPT ..
IIXQll.COIIII+)5 ..
Ml005.tOllIl+)9 ••

""]1, ••

8U"CH IF NON-DISK LOAD INPUT.
IRANtH IF PROGIIAII NAIIE SUPPLIED.
TEST If 0111 ENTRY PltKEO UP.
NO -TYPE ERIIOR IIUSAGE AND CLOSE J08.

UTIOF
.-]

U70S.COMII+)9 ••
IOII02.UT05-1.1I.
e.20, ..102. ,
MXQO~+12., •

GO TO PICK UP THE 0111 ENTRY.
IIOVE FOR LOAO ROUTINE.
TUT IF EIIPlY.
YES -EUOR.

.-)
MF01,MIl02+13, ,

DETUMINE IF RlLOCAUlLE.

IOfOI
IOFDI.99999
IOXOO66.1200
IOX006C>6.MB190 ••
MX0068
0-]
-.24,COfil .. +8 ••

NO -FO.'E UPDATING OF HIGH INDICATOR.
YES -MOVE IN LOAD ADDRESS IF ANY.

I0822S>II.COMIO>12
M8225>11
IOXQ06C>6.M819S

I.

e+24.COMM+13, ,

MOVE IN ENTRY ADDRESS IF SUPPLIED.

MROZ.II.CDMM+17
M8195.
0-]

MI190 OR I0819S.

MCCaUF+14,. ,

CLUII EXCESS FLAGS IN NAIOE FIHD.

IOCCBUF+16
IOCC8UF+18
IOCCBUF+20
IICC8UF.22
AB03+10.MX009 ••
AB03+50.MXOIO
A80H4] .MCC8UF+n
COlOIO»5.IOCCBUF+2J
A809A. EQUDOA
"20.EOUDOA
•• 20

INI TJALIZE FOIl EOUI VALENce TAILE SEARCH.

.-]

A80"+S.EQUODA+S
IOXOO] . . 230MX055.14

OlOn
0101_
010_6
el1051
014110
01011
01011
010.0
01102
01U.
01U6
01U.
011 ...
011'"
0115.
01110
01112
01194
Oll06
OllU
OU16
OU16
OUI.
01250
OU62
07270
07210
01282
OU94
DUO.
01311
01])0

onll
DUll
07]50
01362
01)74

on ..
07398
07410
07418
07418
074]0
01441
01454
01U6
07478
07490
07502
07514
07526
01U8
07550
07558
01558
01570

_.

P&G~

0""
09U.
01411
01011
09411

-7045

-1127
-111)

.9

07113
on'6
09UI
0111)
01146
01110

.7
H
.4
.4
39
.9

09592
07090
071>74
071>42
01U6
10475
095S0

-0000
OUOO
00421
01831
01841
OOIOU
00000

08150
097:t2
07270
07206

02841
OI)"R
09132
00000

09104
09104
09704
01331
07416
07386

091,,5
00000
R9999
01200
-3110
00000

07362
040."

02810
OZ81.
00000
-)722
01815
02bl9
00000

16

U

--

u

16
16

.9
II

.s

..
11

II

45
U

26
))

14
U

16

.9
~~

Z6

33
16
44
26
.~

-lIU
091)0
0'1)0
00000

00000
-OUI.
09130
00000

0~044

01416
01410
097S0
0]122

16
16
16
26
25
45
49

11071
02831
11]19
01558
07510

00000
OOUOO
00000
00000
00000
-1590
-1610
JI023
13023
10862
IOb62
00000

26
16

11384
0111)

-78'U

33
)]

H
H
))

31

11014
13016
nOl8
n020
n022
11064
llQ'~

10867

312
PAGE

1620/1311 SUPERVISOR AND Ion
160]0
16040
16050
16060
16010
16080
11>090
11>100
16110
16120
16130
16HO
16150
16160
16110
16180
16190
1620U
16210
16220
162)0
16240
16HO
1621>0
16270
16200
162~O

IOX009

8
MXQOlA,
DoRG .-)
WAlY "1438" ,
8

IOXOIO

MXOIl

111012

MX013

MXQ20

16300
IUIO

t.

UT1OF •••

0-)
IOoVE CORRESPONDING DIM NUIOIER TO
A803+11.4.,
COlOM+39.AB03.11.11. TO THE COMII SECTOR.
MXQO'., ,
GO PICK UP THE DIM ENUY.
0-3
A801-12.EOUDDA ••
GO TO EOU TABLE SEARCH IF DOA VAL 10.
POINT ,2. t
NO -TYPE ERROR IOESSAGE.
M8080A
b
DORG 0-]
TO
e+2l,lDINPf, ,
TEST FOR LEGlTIIO." Of INPUT DEVICE.
80
IOlO13.IICoOS
TFM POJNT.27,9,
NO -TYPE MESSAGE AND EXIT.
8
UTiOE
DORG 0-)
TR
SET UP TO exECUTE LOADER CALLER.
""02. "IQ20 ••
TO
DIMENT+14,MCROU
8NF *.2It,COM'Hll
TF
o IIOENT+ 18.'OlOM+11
8NF "'2It,COMM+&
TF
HIGH;COMM+12
8
101195
DOIIG 0-3
OSC 101
I
oSA DSAl5
OollC
AIO
TF
8
DORG
BNR
TFIO

DC
-0]
DC

b.O·
-0000'

16))0 IOX050

OSC 4.1001 ..
1001
DC
2.1
-7
DC
2.6
-6
OSC 6,0'
00000'
DSC 4,0101,.
0101
Dt
2.11
J]
OC
2.4
-4
DSA COMII+39

16350
16360
16)10 "X055
161'0
J .. :. ',~.)
16.00

OSC

16410

DSC 4.0101"
0101

onu

0715"
071 ••
07118
01790
07198
01791
07801

07112
PROGRAM NAIIE.

01lU

49

07090

00000

)9
49

10511
09550

00100
00000

II

26
49

11045
02141
07226

-0004
1I04N
00000

45
16
49

10986
09156
03)46

10862
-0002
00000

25

076 .. 1
01111
097S6
09482

10730
00-21
00000

09732
00416
07166
00420
07190
0043.
03122

01/98
04455
02815
01819
02810
02114
00000

H

16
49

1I
25
44

26
44
26
49

00~28

5 x
J9783
I

."

07118
01110

DIM NUIlIEII.

2

07111

6

07117

4

01112
07U4
0113.

OlU.
OlUO

I ••

16410

01512
01590
01590
07602
07610
01610
07622
0163.
01642
01"2
07654
0166.
01614
01674
07616
0769'
01710
01711
01111
Q77)0

0180]
01106

3.3

16120

1. . . 0

RETURN TO DECODE RES T OF CARD.
COULD NOT FIND -lYPE ElIIIolI IIESSAGE.
FINISH UP.

&
)8

LOAD 'DOIIIS.

0"_1

,
-2841
I

•
\
313

~t

.......

...

'.'./1ial IUII.VIIOR ... loaf'

,"

a.n

DC

a••

DSA

tCllllt.u

.n

-I

,.UO

"

DC

OK
,

I.'

OK

.,0101 ..

0101

"490

DC

2,11

It2
ot

2,'

••YIY

osa

165'11

DSt

,

16520

165"0

4,0101 ..
1,27

III
DC

2,1

-1
OSA

"no

INPut

OSt • ,0101. ,
0101
Ot
1,21

So,*c~.

1, '

"'DO

CDMII+'2

07."
07....

,

tDllTRDL Ca.D COUNT

5 •

-2".
I

0''''

FOR

FOIITRAN.

•

OU'7

""OJ

Z

0"0.

-2

COlI'"15

2

5 X

0"0'

-2'77
I

0"0'
0"10

16660

osc

I, •

16610

OSC
0101

~.0101

16680

DC
II

2,31

••

SPS su'''ouTiN'E SU,

•

0"11

0''''

2

314<

''-;;\

16201lJII SUPUVISOR AND lORY
DC

2,2

16100

-2
DSA

07911

CD""'"

0"21

,

O"lJ

-lin

0"25

~

OSC

16120

OSC 4,0101, •
0101
DC
2.33
l3
DC
201

16130
167~0

I, '

0't2~

OSA

I. '

DSC' 4,0101"
0101
2,).
DC
L"
DC
2,2
-2
OSA eOIlM+79

l61ao
16100

16820

uno

1.... 0

.......

1'150 UTOI
16160

1"'0

"liD,
1. . .0
1. .00
16910
''''0
1. . ,0
1. . . 0 •
16.,0 •
" . .0
'6910 UTO)
1"'0
1. . .0
'fOOD
HOlD urOlA
'f020
170111
'70.0
, 70.11

......

OSC

SPS "ANTI 55A UNGTH.

"I

l . tI

I

o"n

.

079~.

2

079••

2

•

-au.

019"

1, '

--2,Q.'.

DSI.:

-un

079"

RDUTINE TD M~Tif!LY A DIGIT n 'IVE -RnULT IS A FIVE
DIGIT FIELD' il)USSED AT UfO 1-1
DC
5,0, ...
CALLING SEQUENCE
-0000
iF"
TO '.U,DIGlT
CF
UTOI-l .. l.
ITII urol,O
TD
"-I,UTOI-l
A
urOI-I,UTOa-!
A
urOl-l,uTOI-l
A
UTOI-I,UTOIUJ
II
OORG 0-9
ROUTINE TO EX'RACT NUMERICAL S'RI' FROM MONITOR CON'IOL '
tUD RUO IN AlIA IMONITDR RUD IN AIIIA HAS FUGS
IWlIT
EVEN DIGiT '05H10II1
DC
5,0. ,
ULLING SEQUINCE
-0000
TO" M001,O ••
T'" IIF02."'OS-20 ••
iFA 1IF01,II'H'R
A
llPOl ,"1'01 , •
ITII IIfOI. 60011
A
"FOI.urOS-I ••
',t
TF
UTOJ •••• UfO)-l.ll.
NHIU NCHAII II Till -'111 III' c . . . . .
.NR •• ,..urou....
IN Till FlUII,ADO. U Till ANIIII$, ~
TDI! 11001.0 ..
THI PlII.O -AI IT 1I0UI.D .1 _ " " . '
e ..
POI AN AL'HA. . . le 101' ISICONII lI6In.

00.'
,

a
1

olin

1677D

1619U

D"30

07911
0191.

DSt

••

o".a

07l1l
0""
0"'0

I

,.

0""

II
II

0.006
DID"
0101.

.a

0""

01011

.

I

0'''2

COIIII+77

16UO

16110

SPS NDISE DIGIT.

-I

16150

2

Jl
11
21

5
0"'"
0'91.,
0""

0'91,

OJ9I'
Of'S?
00000

0-000,
-0000
07.Il'
0"57
0'''7
0"11"
00000

0.016

........" .."
01011
0""

II

Ii

o.ov. U
0....

OIUt

IIUl
.IUl

a.
11

01 ...

00000
-970.
097. .
OIOIT
OIOIP·

111'1$0

OMOO

09710

ono.
anD.
0970.

0""

DUI.-;

315

;',"",

',.", /h

'''1

16690

16110

•

,-

2

I, •

I

.

oTln

2

OSt

OSA

I

-o4Z'I

OTl. .

DSC 4,0101,.
0101
DC
2,29
1t9
DC
2,2

161>5U

Z

01190

11>610

166.. 0

I

0""

1,1

16620

u.no

•

DJIl.

01112

SUIRDUTINE SET INDENtlfltATIDN FOR FORTRA

•
,
.

-211'

Oll. .

k8

DC
-I
DSA

'i

0""

InlO
165.0

I

0""

""0
16590

•

0""

LDII'"

DSC

,

0""

.,"".,..,

le'

Dt

,

"

0"'0
0"61

tOllIl+n

OSC

oaol

16no

~.; '~!

-11l6

;1-

."

'6500

1

I •
"'"

OJ'"

"ODaISS.

"

I

•

0""

OJ,.i

'64160

''''0

•

O"I~'

"UO

,....

.0

r::

110.0
11010
110'0

110.0
I noo UTOI.
I HID
I H2O
IHIO
111"0
UUO
111.0
UUO
1111D
111.0 UTO)'
17200
I JZIO
17220
17210
17240
17250
17260
11270
112'0
17290
InDo
17110

II
DO.G
All
TD
til
.111
IN'
TDII
II
DOIG
til
INI
fOil
All
C
INI
CII
.NI
fa
fOil
ffll
SF

...... ••

".
_.,

..

"',oz.
1. ,
lI'OI,UTon.I,"
•••• 0. 'no ••

•• n.lloo ..

..._·tt.

UTO)t ,liDO I ••
11001.1 ..
UTOI •••• 70.10.
UTOI'oI6. 1100 ••
11001.0.11
UTOI-I.l
UfO)-I.II'OI
UTou.noo
1I'02.lIfOI-19

UJOII UTIMII. IIDOI COIIUIIiS IIIIIUS , . .a
" T... 'JILO liAS 'UII' II . . . IIC, 'LUS
nlo I' .LAIC. A IECOIO IIAU If If
CONUINEO A UtOIOIlAU, AIIO 'LUS 0111
" THE 'IELO liAS _ _ _ •• IC.
A DNE DIGn SOlMtE fIELD IS ALIlAn TUIIS'UUD INTO A TIIO DIGIT a.~.cr 'IILO.
SOUAtE fllLOS Of IIOIE TNAII 011. Dlilf
IITAIN THUR OIIGINAL OIiIT COUN'. , ...
LOtATION 0' THE OUitT PlILO IS 1i1V11I
'Y 11'02 In IIILL I. IN 11'011

... 1.1200
IIFO)-I'.IIFOI-19
IIfOl-It.O
IIf02.lIfO)-1I
IIfO)-19

DOIG .-9
IIA, SECTOR INTO 0-"
IIONITOR SUUOUTINE TO RUO
DC
~.O
-0000
TR
UTO§I.IIAPSCT ••
CALLING SEQUENCE
ITII UT05,DIIINUII
Ufon o•• UT05-1 ••
A
UfO"o •• UTD5-1 ..
~HERE OIMNUM IS THE 0111 EIITRY
TO
UT05A+1I. UT05"6, , ~HICH IS DESIRED IN THIS SEt TOR.
TOM Uf051+'.O, II,
UPON RETURN UT05-1 CONTAIIIS COaE
ADDRESS OF fHE REQUESTED EIITU
Tf" lOX., •• 2)"
I
10Gf .UfOUI.l.
'-0,20,40,60,10)
fFM UfO'-I.O
TOil UT05-2. KX

11320 Uf05
I1HO
17)40
11)50
In60
17170
17)'0
17190
11400 Uf05A
17410
11420
DDRG
11430 UT05A1 OSt 2.22
22
11440
OSA Uf051

•

••

.-9

OSC

1, .. 60 Uf058

OSC 20,0
00000000000000000000
SU8ROUT!NE TD TYPE
MONITOR CONfRDL CARD.
DC
5.0
-0000
6NF
0.14,MtI\02A·11.11. KEf URN IF INPUf fROII THE TYPEWRI TEA.
88
OORG
Rery
RESTDRE fYPEWRITER CARRIAGE.
Tf .. UTOU+ll.MCtBUftll"DEfUMINE LAST NON-BLANK CDLUII,. Of
I)T06B+ 12 t • ,
8
CARD.

11 .. 90 UTa.
11500
11510
11520
115)0

17HO

I.'

.

.-9
"

OIUZ
DIU"

01.114
OIUIt

01141
011'0
OIUZ
0111.

u

00000

00000

11

0"09

1"

OIUt

oea ..

-0001
0.1"
-00-0
DUOO

01214
0.710
00000

o.no

U

00001
00000

011,.
0"14
097)0
010)1
01011
01016
09109

0001'0
OUOO
0000-0002
09104
01100
-9110
01200
0.110
00000
-9111
00000
00000

n

41
44

Oil . . u
01"1 .
01"1 14
OIUO 41
olau IS
Din. II
0124. l4
01251 47
01270 14
01Z1Z 47
01294 as
01)0' 15
DUll 16
olno )2
OU42 42
OU44

09101l

Olno

09111
09710
0970.
09710
00000

41

OU.,
OU50
0lU2
on7~

OUI6
OU91
0.410
oaU2
0'434
01446
0."5.
0'460
0 . . .0
o.~

11450

11470
114ao

'AGE

lUO/lI1I sunlVlSo. AND Ion

)l

U

u

25
15

16

49
16
15
.. 2

..

018n
01J49
OU49
084'"
0000-'4})
- ....0
-0000
00000
00000

084'1
01414
01414
0'451
o.u~

oo,n
00'"
OU~9

01]48
00000

5 •

0. . . .
0 ••• 7

-84"I

084'.

ll!

08492

01494
0850 ..

44
42

08508
00000

OHZP

08508
01520

14
16

00000

onsl

~

086)2

00102
HOll
00000

anal
01532

.

00000

alG
PAGE

1620/1311 SUPERVISOR AND 10lT
11550
11560
"HO
11580
11590
11600
11610
11620
116]0
11HO
11"50
17"0
17"70
11680
11690
11700
IHIO
11720
uno
I1UO
uno
17160
17110
UJlO
17790
11800
17810
II1l0
17130

UfO'"

UTOU

Uf06C

UT060

Uf06E

17140 UTOl
11850
11860
11810
17110
11. .0
11900
17910
11920
U9)O
11940
11950
179'0
11910
119'0 UTOlA
119.0
11000
11010
11020
110)0
110.0

DORG . - ]
80
urou ...
All
UTO"A+II.I
80
UTOUtl2.UTOUtll.1I
AM
UTOU_II.1
C~
UfOU_II. MCCIUf+lI>O
8NI UfOU.IlOO
8
UT06C
DORG . - ]
A.
urOU-lIo1
fF
Uf060+II, UTOUtll
B
Ur06B-H
DORG .-}
fO
19Q98,MCC8UF+lt •
DUIIP INITIAL RECORD MARKS.
TO
19999 •• tcIUf+)
DNTY 19998
8NR .+14,"ttBUF+S. ,
RETURN IF R.II. IN COL. 3.
81
OORG 0-9
All
... 2).2. ,
SET R. M. AFTER LAST SIGNIF ICANf CII&R.
TO
UT06EoII,Xl
fD
'-I.MtROU.6
WAn MCC.BUF.5, ••
TYPE REIIAINDER OF 'UO.
Rtn
TOil ur060+II,XX •••
RESTORE DIGIT.

I.

OORG .-9
Joe CLOSE-OUT SUBROUTINE.
DC
5.0
-0000
•• 14,MCOMM, •
110
FORGET If IF liE IIAVEII-T DONE iNYTHI,.G.

••

.-9

OORG
•0
"U,UT07-1"
fO
"23.IICOMII+), •
. . 20,IICDO', ,
10

•

DOlG
NATY
II'TY
TD
rOil
I
DOaG
)4

....
II

I.

U
INI
TO
110'0
11010 UT07Al 10
11010
II&TY
180'0
IIA"
Iltry
110.0

TYPE END Of JOt MESSAGE If fOlCED •
NO -TYPE ONLY IF THE COllfaOL CAIID
SOUIICE IS NOf rHI '''III.ITIR

~9

01652

00000
-0001
0855J
-0001
J3160
01300
00000

0lU2

II
26

0"4~

49

08551
08725
08576

-0001
08551
00000

1999a
19998
08102
00000

1)001
1100]
00100
1)005
00000

15
42

08725
on73
0112N
noD,
00000
0112N
00000

-0002
00000
0""55
00100
00102
00000
00000

H
'02

08796
00000

02852
00000

o . . ~o
08UI
0 . . 40
08852

Oa7l1
02855
10130
00000

10151
00000

00100
00102
02151
00000
00000

011>20
081>20

00612
oaU2
0 .....
0.61.
alUM
OUOO
on02
01102
01114

onu

olna
01150
0'''2
01774
011"

H

11
43
11
14

H
25
)5
45
42
11

25
25
19
)4

199'99

onlo
0111Z

on96 u
0 . .0.
CIUO

0lU2
0 . . .0

0""0

olna
o.ne

UTOJC, MCOMII+!
ur07U_II.0

•• 20
0-)

REFRESH THI tlJlllllClld RIGION AIID THE
DVALAY ilIAD ROUTlIII.

.'12.100

49
J9
]4

25

0. . . .
0. . . .

4.

15

D.". .,
aniD
0890•

0 . . 4'1

0. .' .
0. . . .
0 ....0
0 ....
COIIPUIN LOUDLY I. All' ."DI.

l5

4)

0....

DlUI

·'U,IIOO
..12.1700
UTO".102
Uf0ll.I'OO
.ou.·.u.n.
UTOlA,lICDI L
111112 ...
1IIIU

~7

08620
08551
08U2
08551
08551
0.540

0'19~

"20

•• 12,'00, ,

08540
01552
085'"
01516
085ell
08600
OU12

0.79.

.-)
IIlIll

UTOlt.101 ..

"2

085~0

0....

atOll
D.O ••

..
34
46

II
47
Z5
4)
It

"

)4

09122
09003

onOI
09122
089Z0
089U
01 . . 4
01'"
09121
0.060
0'001
0....
10179

loan

00000

00101
00.00
00100
01600
01100
007"
01900
O_L
10790
00100
00100
00102

117

\, \j)

J
Iu.,un au'I.'1I1111 . . . 10«'
",OO
lIno
llUO
llUO
Ill ••
llUO
lIllO
Iino
IllIO
111.0
11100 Uf07C

U'."

Iino

"
ef'
I'
UfO"
DOllS •• J
,DIe 1IC0IIIt.0"
TOIl 1IC0001leloO"
III:Gllllel.O

f_

TOil

III0I.l.n

II

•••

DSC
I
aSA

hi

TO

n,,.

111'1."l1li ..,,, . . .n MIl' If.." 1'0 ..

""I

DSAM

,o,1.,

""1-0Uf

IU~O

A

uno.. n.F5

linD

II~OO

TD
TF"
BTM
BNR
CF
80

UTlO. .
MFOIoU ..
UTO),U
UTIOI,"OOI.,
Fl .. ,
UTlOE,Fl.

1. . 10

8

FO •• '

1I~20

IIUO

unoe

IUSO
IIUO
18570
18510
11590
111>00

urtoa

OORG
ID
INF
8NF

COl
BNI

TOM
TF

n.o

DOlO.

01000

.1010
"1M 0100"
0.... Oil"

.-)
UTlOt.1II001 ..
UTlOO,"DO
FO.Fl-4.6.
F6",10.

I.,

EXTUtT NUllltillt STa,,,

'I' AMY.

GO TO ALPHA-S
GO TO IUItK-S
NUMERIC -UIT
NUIIUIC -IIOV[

TUT IF AL"H,,,EIIIC.
TEST ,~ IUIIII.
IF NO NOV. DESIRED.
DIGIT Olt A fleta.

e+24,1200
e.l),5

F1."F02.6U
.-11.1>
FO,,6
OORG .-)
80
UTIOE.F2 ••

"U6
Z6

DtllO
O.&tl

1&

09161
19117

11

0""

0.17.

Otl ..
Otl ..
09210

0.211

O'U'

09270
DUll
DUM
09101>
09111
D.UD
09U'
0911.
onlo
onu
0.174
09111>

Z6 0""
on"

II
J2
II

16

II
II
II
16
17
.,

U

09517
0 . . .0

on.,
0929)

onu
0" ....
-DODO
-0000
0.130
00000
0.517
00000

09211
0910.
OIOll
09])1

.9

0.,17
09."
09110

U
44
44
14
47

0 ...... 2
094.,
0"10

4J

D.'"

Dun

0.130
D9no
0 .." .
0011-1
01200
DODDS
0910R
00006
00000

o".~

09610
·0... 11
DMIO 26 on.R
0 •• 21 15 0 ... 11
09U• • 9 09510

O•• 'U
GO TO ERROR IF ALPHA-S NOT ALLOIIED.

09462
0 •• , .

GO TO UROR IF IUItll-S ....T ALLCItfIO.

FO •••

D9Ul
0 •• 62
0.414

T"'E ERROII IIIESSA5E.

DMII
0 •• 11
D....

OOIlG .-1
VATY Mflt39".

0"10
00000
-0001
09592
00000
00000
00000
J2999

on91 15

FO •• 6

OORG .-1
80
UTlOE.F) ••

I

O.U.

09211

NO -CHECK FOR II.".
ves -SET INOICATOII.
GO TO ERIIOII IIOUTINE IF NOT "lLOIlEO.

1 I

"

0'127
O.UD

0.1.'

TD"

B

unOE

II".

B

e

11100

....,

0'117

'Il.

IIUO
11450
18460
18470
11410
1. . . 0
18500
11510
11520
185)0 UTIOC
18540

.UN

OUII

O.lIl

DC
1.1
-01
linD
DC
6,.OZ'
-0402'
112.0 ••••••
SUIROU"NE TO DllIR1l11tE "'''lOin 01' .. COltfIli.
PlI1.D.
11210 uno
T,
"U,FG. II ,
NOVI CALU IIIi $tGUIIICE lIiCOl1D.
TR
PI,1Ia
lIUO
A.
11270
COII'UTE _"A" IITUlIt aoaUS.
TF
"OINT,F5 ..
11110
IN"!ALUI COLUIIII
'Olltfill.
CF
POINT-I
111.0
SF
Fl, ..
IUOO
I NIf IAU IE anUlN I NO. '"AOS.
SF
,.
1IJ10
11120
TFM UTlDA+U,MCClUF-l .. INnIALUI taLL TO UrOl.
IU]O
A
UTlOA+U,FI

IUIO
IU.O

......

"liZ

IIUO

1IJ611 UTIOA
11]70

= ......

ItlN .I'
.
O'UO . .

IIUlltI IKII.

ooas •••

..... .. ..... .....
.t
..."
..... "
at

11AMOD.~••

...

,

atM. . . ._

WNTY PDINT'"I

09~82

on••

09580

00000

~J

o.~az

09589

...

0.510

00000

1'1
II

105..
0""

00100
00100

.,
••

3/S
1I>20/UIl SUPERVISOR AIID 101lT
111>10
11620
linD
1I1>~0

111>50
!lUll

unOF

18670
181>10
11690
18700 FO
11110 FI

WlTY 11111145
80
UTlOF.F4 ..
CF
F4".
8
FO,,6
OORG .-]
IIATY "".. a ...
RtTY
8
"'1140,.
ODRIO .-3
DC
5,0,.
-0000
DSC 1,0 ••

PAGE

0950'
0"18
o.no
0".2
09150
0.150
095'"

..

III NO-UP.

0'17~

..

CALL ANO RflTURN 'lECTOII.

0"..

R.II. ERROR.

09511

lUNCH IF PHASE TO II DILETED.
SET RnURN I NO.
TYPE PHASE DEUriD IIIESSAGE

)'1

.)
J)

I.
]6

10"5
095'0
09590
0"10

00100
0.,90
00000
00000

10'"
00000
OJ65.

00100
00102
00000

091.2

5

a
OSC
o

1.0 ..

ALPHA ERROR.

0""

OSC

1.0 ••

IUNII ERROR.

095"

DSC

1,0 ••

END "HASE ON ANV III'IIOR.

0.590

2.0.,

SURTlIIG CARD COL.

09592

2

11760 F6

DC
-0
DC

2.0 ••

FIILD LENGTH.

Z

11770 F7

-0
DC

A.".

11720 F2
linD

f)

11140 F"
18750 F~

18110
161190 ••••••

lIioo
11110
II82U
I.no

unl

"'''0
11850
In60
1'''0
11110
1'''0 UTIIA
11900
11t10

o

o

5.0 ••
-0000
OSC 1,' I

.

NOli EXECUTE TESfEll.
DC
5.0
-0000
10
••
INF UTlu+u.ItOIIEiI ..
INF .+20.IICOIIII+' ••
I
UTIIA
OORG .·1
IIArY 1111119
RCTY
SF

24,--1,.

IIOVE TO ADDRISS '011 IIUIIEIIIC DATA.

0960~

PICII THI ENfU.
TIST If UICUTE INHIII7D1l IS OIl.
YES ·TY'I GilLY I. ItIIT ALauoy TYPEI.

1tC_,·...

a
Ost
o

1,0

1It10 111102

DSC

, •• 0'"

1.990 POINT

DC
.,.0 ••
-dilDO

OOOOO~OOOODOOOOODOO'

"UO
"ttl

0 ... 05
DO."

0_'
0"'0

••

0. . . .

00000

0 . . .0

"

10107
00000

00100
00102
01000

0 ....
0....

..

I.
II

II
U

09610

OU"

OMU
00000

09100

HOLDS DOA ,oa
~OORY

U
..

0960.
09611
0.610

0....
0...,.

CF
ItDItEx
II
OORG •••
1.920 ••••••
IIONITOR SCRATCH 'IILOS
DC
5.0
IIt'O "'01
-0000
DC
5.0
11. .0 "'02
-0000
DC
20.0
linD "'01
-OOOooOOOODOOOOOOOOe
Ost 1.0
1".0 11001

""0 1100'

095'9

0.600

"01"'''

HIIII, "A.

_n.

DtlM

5

0""

I

Otl,.

10

o.no

onll
IS CALL'"

0.711

.0

"fI'

I

oln~

.0000
00000

lUOIUIl SU'.IVISIIII AIID IIIIIT

,

19000

DSC

0""

1,',

1'010 ••••••
INITIALlUflDN IECOIDS.
19020 IIIEC
OSt Z,O
00
190)0
DC
12,-0
-0000000000190.0
DC
.,0',
-DO'
19050 JIEC
DC
I,D
190'0

0915.

2

09771

12

091"

19090 KIIEC

DSC 5,-0
0000DSC 5,-0
0000DSC 5,0',
0000'
DC
I,D

19100

DC

2,-0

09194

19110

DSC

1,-0

09795

19120

DC

2,-0

09797

19130

ot

2,-0

19070
19080

•

09716
09171

0971Z

5

097.,

5

09792
2

0.799
09.00

19150 LREt

Dt

I,D

09101

19160

ose
0OSt
0DSt

2,-0

09802

19110
19110

2,-0

09804

2,-0

09106

1,',

091011

0-

19190

ose

19200 MllEt

DSt 19,0'
000000000000000000 '
THE FOLLOWING INOIC"OIlS AIlE NON-LERO OR FLAGGED IF TRUE.
OSC 1,0..
tNTL CARD RUD IND.

09109

OSt

09129

19210 •
19220 MIDI
192)0 Ml03
19240
19250 MMOI
19260 IIM02
19270 MMOJ
19280 MM04
19290 MM05

o

o

I,D..

-JOB- CAIIO SEARCH IND.

MON ITOR DAt-S
Dole 24,ENTER MONITOR CNTL REC.',
ENTER MaN IfOR tNTL REC.'
OAC 4,JDS,
JOB
Dolt 4,TYPE,
TYPE
DAC 4,PAUS,
PolUS
Dolt 4,SPS,
SPS

19

09128

09131

24 X

09879
091.7
098U
09903

320
.. 201 l l l l SU'ERVISOI
19300 MM06
19310 MM07

19320 MMOI
lU30 MM09
19)40 MM10
19350 MMII
193'0 MMI6
19370 MM17
19310 MM19
19390 MM21
19400 MM22
1""10 MM2J
19420 MM25
19430 MM26
19440 MM30
19450 MMlI
19460 MMll
19.70 M"33
19410 ""36
19490

"")7

19500 ""38
19510 11M3'
19520 "M40
19UO MM45

'.'.0
..••.•
19550
19560 NCDOI
19570
19UO MC002

In.o

A~

IOU

PAGE

Dolt 4,SPSX,
SPSX
OAt 4,fOR,
FOR
DAC 4, fOU,
FORK
DAC 4,DUP,
DU'
DAC 4,XEQ,
XEQ
OAt 4,XEQS,
JlQS
DAC ll,PAtK NUMBER EUOR ON "OOIlt.E O. "
PACK NU"SER EUOR ON "ODUL EO. '
OAt 42.SET SSW4 TO IGNORE, OFF TO RE-ENTER tAIIO.'.
SET SSW4 TO IGNORE. OFF TO RE-ENTER CAIID.'
Dolt 25,EXECUTION IS INHIIITEO. "
EXECUTION IS INHIIITED. '
Dolt l1,END OF JOI'.
END OF JOB'
DAC 43,tANNOT RESTORE CO"MON -RESET AND STAU TO '.
CANNOT RESTORE tOMMON -RESET AND START TO •
Oat 6,RETRY',
RETRY'
DAC 10,EXECUTION',
EXECUTION'
Oat 21, Joe CAIID GROU; ONLY',
Joe CAlia GROU' ONLY'
DAC 12 ,MUST RELOAD'.
MUS T RELOAD'
oat II ,COND IT I ON I GNOIlED' ,
CONDITION IGNORED'
OAt • ,COMPARE , ,
COM"IIE'
Oat 12 ,-ENTER CARD'.
-ENTER "10'
DAC Il,nSfEM DIM ERROR',
SYSTEM 01" 111l1li •
Dolt 1I,Oe~ICT Dill UIOI "
DI~ECT 01" EAIOII '
Dolt . . ,DUEtT NAME EIIOI "
OIJECT NAME UIOI '
DAC 24,EIIDR IN FIELD AT COL. ' .
EAIOI IH 'IELD AT tOL. '
Oat ."PHASE nl"IHATlD. "
PHASE TIIIII HATED. '
oat

.'

J,.'.

'OLlOWING AlE MONITOR-S QUICK AND Oil"
00110 SUDIG••" .
DSt 1.-01
OJ
ose 1.01010000
01010000

DS
DC
-6

0 •••.1

a••

olin

46

09911
09919

2

09927

2

09935

4 X

09943
•

09951

X

4 X

09959

J2

2

1002]

42 X

2

10101

25 X

10151

11

10179

43X

10265

6 X

10277

to

10197

21 X

10339

UX

10363

II X

2

10399

8 X

2

X

10415

U

IOU.

18 X

1.

10511

19 X

10549

24

10197

I. X

106)5

•

OICOOEII.

10691
10700
10701

2

2

10U5

10690
10690

2

I

•

a

a
321

2

11020/1111 SUPUVISOR AND loa,

IUOO

DC:
-8

1 . . 10

Ot

2,1

19110

6.100000
JIIOOOO
DSC 10,0010000000
0010000000
OSt 10.0101010100
0101010100
OSC 10.0001010000
0001010000
OSC 10.0000000000
0000000000
OSC 10,01244444""
01244""H4
osc 10.0
49

OOlU
10926

00241
00000

11166

11
26

11045
00290

11111

H

11202

U190

J2

11202

U

00214
112U

-000'1
1I04N
00255
00000
00255

11154
U154

U

11
IS

11

1104N
11154
11045
11034
11384

32;1

48

ItZO/UU SUPUVISDII allD 10RT
10210
10290
20)00
10JlO
10UU Al07

lono

10540
lonu
lO360
10llO
10liO
20390

20~20

10410 nOI

20HO
lO~50

20 ... U

20 .. 80 AB09
A809A

20500
20510
20520
20530
2U,"0 A810
20550
20560

20580
1059U
20600

0, ••

OORG
TFII
I
TFII
TF
TR
TFII
TFII

o-J
10IX,n"
10'T,UO),7
OflLl+ 11 ,Ttl ..
10",UOU+2)
tNT1I0,U04
GLOey'I.MCYL ..
HaLT+6.XOI'Jt ..
OLooa.IO)
OVRLU,DUOI, ,
J.J

'AO"+l",

'ES -SET I"OltArOR.
OVUUY SECTION I lilT" TIRIII"ATION
lOUllII'.
lU TOU CORE.

DUll'"

UP a GET EIITRY TO 10RT.

SET UP TO RESTORE 'IPY "IU aND
EXECUTE LoaD.
YOu-ae ON YOUR OliN NOli, lOY.

Ot
-0)
Ot
.,0'
-0000'
DSC ),220
220
~,2
DC
-002
OSC I, •
OSC
22
OSA

20<010

20510

0,"01, ,

I

fa
B

20~00

20410

20'~0

SP
TR

OSC
0
OSC
I
osa
DC
-04
OS.

OSC

IU"
In . .
lUll
11110
lUll
11294
IUD'
lUll
linD
IU42
IIn6

DENO

.

U

4.
16

a.

II
16
\6
JI
4.

00215
00000
00000

~9

00000
112~'

OOUoo
-OUH
-OZ.I
-1152
00252
00214
-0098
-1112
00103
19635

00~65

AD'. .
01917
00565
02155
02111
004.2
OO~~I

OO~"

3
6

IU63
~

lU"
IIno
lUll

UH7

1,0"

lun
IU'I

GROUP MaRK FOR TEST.

1.1

11319

0

IU ...

).4

IU84
lUll

A810

Jln9
I

5 x
-0000
)

5 x

lU92
IU92
lU9)

I ••

IlEAO IUfFER FOil FOUR SECTORS.
CONTROL TO WRITE ON OISK.

1l)9~

J1394
1
00

00000

00000

19982
19982
19987

1,90

19981
19990

SYSORG

1999~

1 ••

19995
19996

5 x
J9659
1

5 x
-2402
I

'u

16101 UU SUPEIIV ISOR aNO 101lT

20610

J2
JI

IU62

2.22

00
OORG 19982.
OSC 1.1
1
OSA OSA08
DC
-90
OSA

lUll

al09.

. ...
OSC

'aGE
11214
lIUt

PAGE
00000

325

a
50

'620/1111 SUPEaVISOI ANO lDaT

"'HASE

'.""'"
tnov',

DIIIINt
DU'ODA

(MSGIO
E145Gll

EIIISGll
EII5G20
(IISGII
EQUDOA
FORDDA
HOLLER
IIIIIPlOO
IBMWRT
LCA02A
LCAO"
LDINPT
"APE NT

""SCT

11110 lOA
I08110A

"'1108

IICAOOA
IIIccaUF
MCROIA
IOCROlA
MCR04A
IIICII05A

MHOse
MFTOSe
MJ802A
IIJ802X
IIJBO)A
IIJBO)6
MJ612A
MJ811A
MJR 1 SA
IIJ650A
"J85SA
MONtAl
MSPOSA
MSP056
IISP05C
"SP050

IIXOO)A
MXOO38
MK006A
"X0066
.. XQObC

NE.ODA
OVRLAY
U02A
U02
lAO]
AA04

0"06

oona

A~09

ilI01

007'6
00602
10.62
010n
01079
OllOl
01015

AlOI

olon
loau
10ilz2
OUI2
00440
01028
002n
00204
00428
0211.
OIUI

onu
03522
03566
0007.
11000
04455
04116
044H

04628
06778
06792
05060
05028
05086
05110
05~82

055)8
05678
06170
06184
00196
0649)
06507
06521
06535
07090
071"6
07)18
07380

01410
01154
00"68
00229
00120
00261
OOZ8~

AIOJ
.0'
••06
Al07

ABO.
"IOU
lillO'
All 0
AJOI
81
'IIUFF
JiltPT

"11

CHECK
CHEKi
CHEKl
CHIll
CHU
CHU
CHI(4
CINIT
CNTWD
COlli"
COUNT
DCIlE
DFILE
DIOP
DID
DIOX
OlDY
OIOl
OOVFL
DRIVE
DSAOO
OSlOI
OSA02
OSlOlt
OSA06
OSA07
OSAoe
OSA09
OSAIO
DUll
DSAl2
OSAIl
OSAl"
DSA15

OSAl6
DSAll
DSA18
DSAl9
DSA20
OSAlI

111901
10'"
1,0'"

1,lU"

uu"

UU"

DIU.
OllAto
O_ASO
D~~I
EqOJl)

fC!P~

11Z. .
lU6)
lU79
lUll
Ill94
015.4
onu

lOO,SII
nOlO

01224
OOUl

E,ElIT
EIISGI
11115'2
."S~3

004.2
OlU'
01U'4
OU10
91020
01140
OU76
01401
00427
02155
02802
OU25
01052
01906
01916
00816
009)2
01068
01124
01128
0215"
19600
19635
196)6
19639
1'640
19656
19659
19744
19749
19161
19761
19712
19711
19181
19786
197B9
19791
197.4
19791
196)0

1E001O

EOO~

~OO"
EOUIO

EC_U

EIISG!'
lll$GS

1....
l~nJ

'110,,,
, ••00

04!6'"
pOnD
00109

OOJU
0011.6
00.,0
01010
010".

all.,

01.,10
017U
01149

litO.,

m:~

Pl0."
161
."~O
EQU1Y ,0
0210
01109
UIIJ

J".,6

UAn

Ell 11011
FO

fl
F2
f)
F4

n
f6

Fl
H,s
GOGO
GfEST
HOI
HO)
HO.

HALT
".IG"
INOS

iO'~L

10(OT
10~.

lOP
10lll
10II8C
II1$K

iOllx.

IUt
JO.'I'
JREC
KIlEC

~~9X1J!,

LC"OI

1

0,0602
00,24
0.,..
09511
09'"
Q9,.,
095'0
09592
0'59"
0.59><
0042.

ooUo

OlU6
Ol.ta
014H
01478
00456
004H
00610
00716
00566
01004
01910
00B2
00520

ooss"

00565
091S1
01042
09716
097,92
00~J9

OOOll

\.I:AOI
&.CAOI

LtAo..

&.CAN
&'CAOJ
lC,AO'

00.112

,O,OZ~J

POU7

001..,
000.2
OOZOO
00,2"
00261

1111025
111030
!IIO)5
118040
"804'
1111010
118011
1111100
1111110
,,6140
MIl"S
108190
1118195
MUOO
1118Z~0

111220
1111222
IIIIl25
MU26
NtAOO
lllCAOI
MCAO]
IIICA04
NtAOS
NtA06
NtOOI
IIC002
"';003
NtOO4
MeD05
"COO6
Nt007
MeDOI

51

IICOO'
COlO
IICOIl
1It_
1It1l01
NtRO)
IItIlO"
IICRO'
IICII06
NtYL
11001
IIDOl
IIDDA

1101'0
OOUO

ltlOI
LtlOZ
LCiO.
&.Cl09
lCli.O
LUOZ
lRA05
LU06
LIIEe
""000
MA010
,,"020
IIA025
111000

"IP20

".

,00l'n

'Le,o.

"'010

.

oonl

00116
00269
00;1')
o.llln

PlDPOl

MERR
IIIeSI
IIIESI
IIIESSG
IIFOI
IIIF02
lifO)
MFTOI
MFTOl
IIIFTO)
10.01
111.,3
IIIJeOI
IIJI02
"JIO)
IIIJ80"
"J810
"J6ll
"JBll
"J813

OU02
PZ$~'

on.,
onn

02902
OJ010
0)070
OU20
0314'
0)162
OlllO
03254
03274
OU90
034Z2
0)".

0)658
01690
OHIO
03722
0J73lt
03980
04010
04018
040))
040H
00052
0020B
00100
00071
00241
00"0
10690
10700
10110

"J815

"J817
"JB20
"J8l1
"J82Z
MJ82)
MJBlO
"MOL
IOM02
""03

""0"
MM05
1011106
MMOI
MM08

MM09
IOM10
"'HI
101416

lOUD
lono

""17
""19

IOl~O

10150
10160

MM21

10710
10711
10"0

o'lSa

0..0&.
0"111
0")04
04512
04.35
00098

o.no

0'1)1
OU75
06106
00872
,00111
00919
00960
09104
09109
09729

Od'O
06570
061)4
09828

0"29
04944
04956
OS074
05142
05250
05366
05390
0551~

05514
05910
06026
06118
06126
061)4
06150
09811
09819
09881
09895
09903
09911
09919
09921
099)5
0991t3
09951
09959
10021
10107
10151

326
1620/1311 SUPERVISOR AND 101lT
""22

""B

"M25
..1126
"''''30

""11
MM32

11M)]

"")6

""31
~M)8

M"39

""40
""'15
IIR02
MREC
"SPOI
IIISP02
"SPO]
MSPO~

.. 1001
IIX002
"xgO)
"IIQ04
IIXQ05

MII006

10179
10265
10271
10297
10339
1036]
10399
I Oltl 5
IOitl9
10,.75
10511
10549
10591
10635
09712

09809
06198
06218
06430
06"H
06910
06942
01078
07194
07226
07318

IIXOOl
1111008
IIIXQ09
MlOIO
"XQlI
111012
"XOI)
IIlQZO
IIX050
IIX055
HEXT
HIOP
HOERR
NONE I
GlDey
OLOOA

oreST

POINT
ReAlL
ROlllil
RDI"
ROVCD
REPOS
RETN
RETRY

R.n

07418
07478
07590
07610
07642
016H
07718
07198
07813
07827
0096)
01060
00648
OOHI
02110
00441
00760
09756
0le01
00828
00180
00996
00512
01674
01016
02200

PAGE
A"2
RHAP
RNAM
SEEK
SlOP
$,10XX
SKOI
SK02
SKO)
SK'O"
SUOI
SRAOl
SRAO)
SJ!,PS
TEETH
TEMP
TEST
HI
UTOI
UTOl.
UTOU
UTO"
UTOl
UT05A
UT051
UT05

02205
009S6,
00112
01496
0ln6
01Z00009
DSA CAROIN-l0
00220

DOIIG 502
DC
2.0
-0
• DISK INPUT 'ROGRAM.
If CAIID INPUT. IIIING IN SEGMENT 2.
8
LOADER
DOIIG .-~
• INPUT CONTIIOL fOil DISK INPUT. ooA IS AT CNfL, CTlOY IS LOCATION
•
OF CVlINDU OVEllflDW IIOUTINE. lD ] IS ERROII MESSAGE, OK IS
•
NOR"AL EXIT.
NORM
OC
1,7

00125 FAKE

OOllO
OOHO
00250
00260
00210
00280
00290

OUOO

OUOO
01512

3.

0251~

)1

0252~

47
41
4'

01584
0151>0
00000
02500
00000
00000

025)6
02541
02560
OU12
02514

.9
)6

00701
00102
01900
00000
Oouoo
00500
00000

9
5 X

02'"

Dun

-0502

00502
00503
00104
00511

49

01166

00000

00511

P

00300

DSA

CNn.CYLOY

00516

Dono

oo,n

00]20

00'21

Dono

5 X

-0920

00511>
005U

DC

1,'

-055~

2
5 X

DO'"

-0630

0052'

1

00551

8

00'"

•

OO]~O

• SECTOII AODIIESSES AND COUNTS fOil DISK INPUT.
00]50 CNYLI DC
1,00100200
-0100200
00]1>0 CNTl2 DC
1.00200100
-0200100
00] 70 CNT
DC
1,00)00000
-0]00000
OOllO • CYlINDEII OYEllflOll IlOUTlNE.
00)90 • If OvellfLOW OCCUIIRfD. UPDATE AllII POSITION CODE fOil lotS.
00400 "lOV All
AIIM,1,10
00410.
IlEAD ONE 011 TIIO SECTORS fllOM NUT CYlINOEII. ANO CONTINUE.
00420
Tf
015-1 ,CNYU
00430
All
Cltne',1
00440
10
"0111. C'''le'
00450
I
DIS
0041>0
001110 .-)
00410 MOllE
Tf
015-1 ,CNYU
00410
I
cnOVe24
00490
DOlI' .-)
00'00 • _IIAL IX IT • INCIIIIIENT SEt TOil 'DOlI. IY ,. DECIlEIII"' tOUIt' IY J.

00'51

0055.

11

0041>.

000-1

00...
00'"
00190
00602
00610
00110
00•• ,
00110

2.
11
4J

00'"
00'25
00610

005.5
-0001
0091S

49

oo,,~

00000

I.
4.

00.33

005'1

00571

OODOO

\~\...
\

_nllll 1 00510 •
OOSZOOll

oono
00'.0
oono
00'60

to

All
Sll
•

2

IlUIUnllG LIIADII-

GO.TO IEGIII nlelSlING IIIPIIT.

Otl+u.ou...

.....

as

0. . . .

. . . . .. ,

0 •••

ernUI •• I
IIAPllly••••••
'111

OMM

tIOItG .-,

U
II

006Ji

I'

, •

00te0

COIITZ .CYLO'

DC
"'i
au

Ztl'i

O"T

I

CAIIDIN

/106.2

, x

-06"
-0".

allAn

00692
00610 • OOA TO IIIING IN SfGNlNT 2.
006'i0
lit
I.'

-0'12

TUNSMITTEO TO OUT IE.OIIE IlSAGl!.
0069)

00650

DC

100

0069.

00660

oSA

CARDAO

00699

00610

OSC
00)
DSA

3,]

006••
00100

CARolN-IO

00.,.1

OS,

1.'

0070T
DOl"

00690

z

DSA

00. .0

00610

00000

006."

• COIITRDL TO IRIIIG III SI_IIT 2.
00590
lit
1. J

ODUO

00111 0092.
...lIS -00lI0
Ohl. DO-OS

00100 • ADDRESS TO BUNCH TO AFTEII DISK RUD 11111011.
OOTID
OSA DIS
00110 • lOAD ADDRESS FOR INPUT.
Dono
DC
5,0
-0000
001'i0 • FOIl DISK INPUT. HAS CHAUCTER COUNT RUCHED ]00 ...
00750
CII
CHAIIl,]OO
Dono
INE . . n
Dono. IF SO. GET IIIIIIE INPUT.
00110
TFII C,O
00790
8
DISK
00100
DollG .-:3
00810 • IF NOT, ARE liE READY FOIl A NE .. T'-CHARACTER GIDIJii •••
00820
C
CHARI,t
00830
BNE lEG I N
00840
I
HERE .. 1
00850
OORG .-3
00'60 • INPUT CONTIlOl F.OII CARO INPUT. 0 IS .NPUT lacAnOll •. 'flit IS IRIIIIII
Dono.
ROIITINE, lD 2 IS ERROII IIESSAGE. ClNO IS NOIJlll 'lint.
00.10 READ
osc 1.0

o

, x
4.609
]

, x
-0'02
I

OOTU

5 •

011113

-ou.

0011.

5

OOTZO
00U2

1.
U

oo.n
00.,..

-0300
OUOO

DOT..
00756
00T6.

16
'it

OOU9
00...

-0000
00000

Z4
.T
.9

00. .]
all..
01116

00U9
01200
-0000

0016.
DOll'
DOl..
00196
00'"

3;JU

_nol 1 -

]

00190

00101

00900

00101
00. .6
00. .1

00'10

DC
P2
DSA

2.12
CENO

00920
00930 • TO lUNG IN SEGMENT 2, TRANSMIT INPUT CONTIIOLAllo ·DOA.
OUT
TO
CDNTl,AftN+t
TR
A,GET
HII C,O
00'10
I
015+12
00910
DORIO .-.
00990 • CHAUCTER COUNTER.
01000 CHAIIl DC
5.0
-0000
01010 • DISK INPUT •• EXIT WHEN SECTOII tOUNT IS ZERO.
01020 DISK
CIII
""£NT.,.0.9
01030
BNH SIX
010.0 • Nor lEIIO - TRANSMIT INPUT CONTROL AND 3-SEtTOIl DOA.
01050
TR
'.NORII
01060
Tf
01S-1 ,tNT
010TO
II
DIS .. Z
01010
DOIIG 0-3
01090 • ODA fOIl DISK I'IPUT. .._".LE COUNT AND COli IIDOIIIU TOMANDlE
01100 •
CYLINDU OVEIlFlOW.
01110 CNlL
CSC 6,0
000000
011Z0
lit
•• 0
-0000000
01130 • INPUT ROUTINE. SEEK, GET INPUT DEVICE. IIEAD. tHECKFOR ERROII.
011.0 DIS
1.
1,101,6
01150
TO
"Zl.A
01160 110
36
I,T02.6
OU10
INI £-1,1900,.
011.0 ANY Ell II
•• Il,0600
011.0
II
"U.1600
01100
II
•• Il,1100
OU10
II
CIN.noo ••
OUIO • UROR ROUTINE. ..RifE LD X, HALT, .eIUD.
OUIO EIII
"
STOP.'.O
01,.0
IIATT STOP.]
01no .iil~
H
53"0
0' 260
DOIIG .-"
OU10
DSC 5,0'
0000'
OUIO I.CII
I
o Bill ".
012.0
DOIIG .-.
OUOO. INPUT CONTIIDl. onlCE COOl, COlli ADOII. FOil III""'. 111111 IllOU14111.
OU10 •
ERRIIII MUSG. _IIlL Eln.
OUZO I
ot
1.0

00'50

&

AElDCITlIIG lOlOlR-

, x

OO'U

5

ODin
00114

-0"6
1

00.16
ODin
00. .0
DOli'
00159

Z

-0000
-1030
2

IS
n
16
••

ODIn

006..
010n
00U9
00'.'

00 •• '
00615
-0000
00000

5

00...
DO''''

1.
n

00.10
02201

00-00
01100

00...
00900
00911
OOtzO

11
26
49

01073
00.13
-0.3.

00511
005']
00000

00920

6

00. . .

•

DO".
00"6
00...
00910
OOHI
00'"
0100'
01011

34
"
"
.,
..
••
..

010741
00967
010141
010..
00...
01006
OlOU
OlDlL

00101
010l)
00101
01.00
00600
01600
01100
01100

01010
01061
010..
01061
01061

Z6
It
••

01063
01011
11. .0

0101'
00100
00000

010..
010n

.,

OOllL

J6

,
00000

01011

331

"GE

MONITOR' -- RILotATING lOAOIR-01130
01)40

onso
01)60
01370
OUIO
01)90
01400
OHIO
01420
01460
01470
01480
01490
01520
01540
01550
015100
01510
01580
01590
01600
01610

S,O
DC
-0000
5,0
tiN
DC
-0000
0
2,0
DC
-0
DC
6,0'
-DODO'
• BEGIN 'RDCESSING A T5-CHAUCUR GROUP.
fiN
Tf
CHARI,t
• IF THIS IS FIRST GRDUP, COIIPUTE RUCDN, UNLESS RnURNING FRIll' TCD.
RCON
TO ,TCD
IN'
TF
RUCOII, HIGH
SF
FIN
• SET lDW TO .IRST ADDRfSS DN FIRST ClRDPLUS ULCOII.
ZUO
TF
LO....
8NR ·.Z4
,IIAPENHI4
TF
II&PENT_U,LOII
• RESET TCD INDICATDR.
TD
SF
TCD
• TO BRING IN SE'MENT ), TRANSIIIT INPUT CDIITROL AND ODA.
TO
CONU
,ARII+I
TA
A,RPRaG
T.
OUT,CONn
8
DIS
DORG .-4
• INPUT CONTROl FOR SEGMENT ) . OUT IS DOA, LO 4 IS ERROR IIESSC,
•
RCON I S NORMAL RnURN.
1,7
R'AOG DC
P
OSA OUT ,CYlOY

01620

CC
P4
OSA

01430
01640

DC

01680

OSC

2

01091

6

OI09Z

a

00161

004)9

01104
01116
01121

44
26

01116
00449
01092

00421
OOH4
00000

01140
01152
011.4

Z6
45

a

00....4
01116
00415

00004
00416
00444

01116

)2

0042.

00000

25

01250
01011
00116
00914

00465

011.1
DUOO
OUU
01224
OU]!

I, '

01241
OU49

8

015+12

DORG
DC

'-4
~- t

11
11
49

ol2n

olno
00000

01231

01241

I, •

)2

012)6

Zt '4

LOGICAL SUR T OF lOADEIl.
LOADER TO
CNTl!
,ITA'
TD
ARM.I.UAI
TR
A.INIT
INIT

01015

SURT

01690 •

01
01
01
01

01013

012)6
01241
0124)

01650 • 00. FO. SECMENT ).
0161>0 CONH DSC 9,019612012
019612012
01670
DSA RCOll-2

4

S

01071

5 X
-0116
-0554

2
5 X
-0120
I

01250

9

OU6)

5

01263
01264

-U02
I

If INPuT IS F.OM CAROS, GET SEGIIENT 2.
01266
01211
01290
01302
01309
OU09

1

25
25
31
49

00537
00465
01073
00946

00440
00440
01309
00000

p

3;)2
"

IIOIIITOR I -

PACE

RELOCATING LOADER-

01

OSA

CNTLI.CYlOV

01314

01

DC
P4
OSA

2,74

01314
01319
OU21

01
01
01

CNTLI

TRANS

5

5 X
-U28
-0554
2

01126
-1342
1

OU26

aun

osc

I, '

osc

1.0

OU21

SYSSC!

D1313

0

01

DS'

Dun
D\
01
01700
01110
01720
OH25
01130
OIHO

01150

DC
8,100000
-0\00000
TRANS
TR
COIIII,84
BD
OUT
,IOMED
• If INPUT FRail DISK. CET FIIIST SECTOR AODR. AND GO TO RUD DISK.
TF
DISK INPUT
CNH>5, "APENH5"
TO
CNH,MAPEN'
8
DISK
DDRG .-)
TCD TUI

01760
DOItG 2500
01170 • IIRITE SEGMENT 2 Of LOADER ON DISK.
)4
01780 TltV2
DCDIIT2.701
01790
31
OCONTZ,70Z
01800
BNI RIGHTZ.1900
01110
H
01120
8
TRV2
01830 RICHT2 TU
01140 DCONT2 DSC 9,1196090D)
11960900)
DU CARDtll-IO

J9663

01341

8

01342
01354

H
4)

00440
00816

00014
00421

01366
OU7I
01390
OU98

21>
Z5
49

00925
00920
00864

00407
00402
00000

34

025U
02584
02560
00000
02500
00000
00000
9

00701
007D2
019DO
00000
00000
00500
00000

onoo

02500
02500
02512
02524
02U6
0254.
OUiO
02512
OUI4

38
41
41
49

)6
49

x

01591

Dun
01160

DDRG SOZ
DC
Z.O

-0502

00102
00101

-0

•

01170
LOADU
01110
OORG 0-)
01190 • t"AO INPUT PRaGlAll.
01900 • GET INPUT DEVICE CODE FROM tOHIl. AREA.
01910 CAIIDIN TO
IIUP,IOIII!O.,
CARD 011 TAPE INI'UT
019Z0
CF
RUD
01910 0 T"ANSM" CUD INPUT tDIlTIlOL. AIIO GO TO !lEAD A CAIIO.
019~O CAIIO
n
A,IIUD

0"'0
Olt60

•

D15+1I

DOR' •• J
onTO • I' taRO III'UT,' CMICK SlIIUINCI.
olno tlND ell RUD •• ,ao

00'04

49

OU. .

00000

00512
00U4

n

Z5

001. .
00'"

004Z1
00000

00516

Jl

OlOn

DO.'"

'"

oo~.

00'"
00000

00"6
00 . . .

14

001"

000-,

oo,u

I' TA' • • •"ASS TillS.

3;jJ

\

t
.,

:'.,f'J

J.

.

OS..

02110

,.os.
DC

02110

OUT

.CYLOV

00• •
00"0

01"'

01100

II

.....

-0001

00... . .
DON' II

01091

OM"

01100
-0001

_'0
01 . . .
01061

00100
080,.
00000

OOHI

OOMO

00611
00'"

00610

_.,

DISK

006'~

02160 CONU

OC

1.0

006"

02110

05"

01S1l.A0

00&"

OSC

3.3

00&"
00100

CAROIN-IO

00701

1.'

00701
00101

OlllO • AOORESS TO 8RANtH TO UTEII C..IID 011 TAPE RUO EIiIOIl.
02220 0150 OSA 015012

001U

02no IIEl

001U
0011.

02240
Ol250
02260
02210
02280
02290
02]00
02310
02320

'II

DC
5.0
-0000
• fOR UNIT IIECORO INPUT. HAS CH ....CTER caUNT .E.CHED 75 •••
5 TART C"
CHARl .15
FO.K
8NE '+32
• IF SO. READ ANOTHER RECORD.
TFM e.o
8
CUO
OO.G .-]
C
CH.RI.C
TCO TRY2

02 no
DO.G 2500
023.0 • WR I TE SEGMENT 3 OF lO.DER ON DISK.
02350 TRYJ
n
OCONT30101

00120
00n2
001"
00156
00766
00166
02500

,

38
8NI
H
B
TRA

DCONTl.l02
RIGHTl.1900
TRY]

02410 OCONT3 OSC 9.119612012
119612012
OSA .CON-2

02620

02430
02"40
02450
0241>0
02410
02410
02490
02500
02510
02520
02530
02540
02510
02560
02570
02580
02590
02600
02610
02620
021>40
02650
02660

01610
02 . .0
OZ . .O
onoo
OZ110
02120
02130
02160
onto
021.0
02110
02110

on,o

OZIOO
OZIiO
olazo
02UO
DZ160
"02150
02860

OOIiG .CON
• SEG .. ENT 3 H.. NOLES AN'LYZING ANO LOADING OF IN'UT.
TFM CNTL-Z.DIS+U
• INITIALIZE COUNTERS FOR NEll 75-CH.UCTE. GROUP.
HERE
A..
C.15
AM
CH.ltl.4
TF
LOC .CHAltI.lI
AM
CHAltl.l
BEGIN INII NOTR",CH.II1.11
INF "NDfLAG .CH.. II1.lI.
RECORD MaliK INDICATOR
• FL.GGED RECORD ..ARK - STAIT NEil GROUP.
TF
CH.ltl.C
I
STAItT
OO.G .-]
• UNfl.GGEO IIECORO "Allk - GET NEW !I-DIGIT .0011.
NDFl .. G AM
CHAR1.5
I
HEIIE024
OOIlG 0-3
• ZERO INOIC .. TOR - _EAD INSEG ..ENT 4.
NOTII.. 80
NOlEIIO.CHAII1.U
SEEI
TO
CONTI
• AlII+ 1
Til
A.PIIOG
DIS
8
DO.G 0-)
NOZEIIO fF.. IIEL.lot..
NON-ZEIID INOICArOl
IN' FL .. G.CH... l.ll
• FLAGGeD DIGIT - DO NOT IIELDCUI.
".. ZDZ4. rllo
I
DO
OO.G '-3
• UNFlASGEO DIGIT - AOO RELCON.
FL.G
..
.EL.IIEICON
• IF IIELOC .."'IU P.OG.......00. IILcaN TO LOll .. NO INTltY "DOItESS.
INF ..... FIN
CF
FIN
•
LOII.IIELCDN
A
".'ENrolJ.IIELCON
TFM 2024. FI VE
• GET UNGTH OF DU ... SAVE AOOII. 0' FIRST ~OSITION OF 0'" FIEU.
DO
TO
TI .. '.CHAII1.11
....
CHAIIl.2
Tf
N.CHAll.lI
TF
... N
...
CH.IIl.1
TF
TE .. " ,CHAIII

II

-0"6

"I

I

I

J9600
3

5 II
-0102
1

5 II

14
4'

0016)
00"4

-0015
DilDO

16
U

0009
00n6

-0000
00000

U

00163

00639

14

Dun

00101

02100
02500

..ONITOI I -- IIELOCATI NG LoaOE.02360
02310
02]80
02390
02400 .IGHTl

2

-0.16
-0"6
I

a00....
'
. .1

006.2

1,'

02200

I.

..
..

00454

0061'
0061'

DC

OSC
003
OSA

DOlin

ooeo. ,. 0IIe"

02150

02110

.. 0.",
"

00610
2.n

•

,All

MaNlfOl I -- IILOCaf.N5 Lallll-01 . .0
tIlE FIN
02000
III' flN.n ..
tHltA C'la SEOUINtE lID.
....
SEO.1
02010
02020
C
n.SEa
IE
fiN
02010
02040
IN
SEO.I
02010 0 IF caaa IS OUf OF SEIUENt •• ~IITI LaST siG. NO. MMltM .. lS c"lief.
02060 0
aND LO I. THEN ....LT •••0 lEAD AIIOT ..II caaa.
IIIIh 510-4
02070
TFII stopo •• 71.10
02 DID
02"0
•
EIII . . '
DOIl5.
02100
DC
,,7
02110 5EJ

PAGE
02SU
02524
025)6

DiS..
02560
02572
025.4

II
61
..
69
11>
69

02514
02560
00000
02500
00000
00000

00702
01900
00000
00000
00500
00000

9

5 II

02S9l

-110Z

02597
01106
01106

16

00.11

-0946

01116
DUll
o n40
01152
OU66
OIl76

11
11
Z6
11
6S
4.

00U9
00163
OU13
00163
OUZI

DUO.

-0015
-0004
00B6l
-0001
OOUl
OOI6L

OUI.
01200
OUOI

16
..

00161
00720

00&39
00000

01201
01220
DUll

11
69

0016)
01160

-0005
00000

01211
01240
Dun

6J
as
J1

DUM

..

DUll
01210
Olon
00"6

OOI6L
00665
02244
00000

Dun
Olill
01216

16
.6

00711
OU16

-12'3
OO16L

16
..

01024
~Ull

-1110
00000

012"
01101
OU16
OUI6

II

001U

006.9

DUll

66

OUtz
01166
OU76

II
II
16

OU76
01092
00446
00611
02024

01092
00000
00669
00669
- ....

OU.I
01600
01612
01...
.1616
01_

25
II
Z6

016n
00. .1
02051
01161
00161
02U.

OOl6l
-0002
OOllL

on.o

JJ

Ii
11
26

olOn

-0001
ODiU

335

7

=

.

"IE

MON.TOR , -- IILotA"" LOAO.I--

01110
TF
T!II",UL
01110 • IU"'H TO P~OPU 1110. CATOI lOUTlII••
olno ~
I
1001 ....
OZ900
DO~G .-)
OZ.IO • T~U '1IOItATOR - SYII'OLIt ADORnslS, fLAGlID AIIO IUOUTlD IY Slf.
OZ9Z0 T~U TFII SET-I,e.Zl ••
'H~EE '"DIC"OI
02910
I
5£T,O,'
029 .. 0
DD~G '-1
All
CHAU,5
029'0
on.o
SII
.... 5.10
02910
TH~EE
02910
STO~E
02990
DD~G '-1
0)000 • FOU~ IIID'CATO~ - NUIIERIC IUNU.
0)010 fOU~
TO
TEIIP I, IUNII, I,
fDU~ I NDICATOI
0)020
All
TEIIPI,I
0)0)0
SII
11,1,10
0)040
fOU~
A
LOC,N
STUT
01110
DOll' .-,
OHZO • EXAIIINE SECOND POSITION Of DP COOl.
0)1)0
AM
CHAU,I
OH40
INF DONT ,CHAU,U
OH50 • FLAGGED - IlElOCATE Q fIELD.
OH60
TFII SET-I, . . U
0)110
SET,IOO,I
01110
DOltG .-1
01190 • MOYE TO NEll INSnUCTlON.
01200 OONT
AM
CHAU, 11
0)210
SM
M,IZ.10
0)2Z0 • FLAGGeD FIVE AND UNfLAGGED ONE INOICATOIlS - INSTIlUCTlONS.
03230 • ARE THERE lESS THAN 1 OIGITS LEFT •••
0)240 fIVE
M,l,10,
FIVE INDICATOR
tM
0)250
NO
8l
0)Z60 • NO - 'IlE THERE LESS THAN 12 •••
0)210
.. ,12,10
tM
O)ZIO
LESSlZ
Il
0]l90 • NO - EXAMINE fIRST POSITION 0' OP tODE.
03300
INF IF',CHA~I,ll
0)310 • FLAGGED - RELOCATE , FIElD.
O))ZO
TFM SET-I,"ZI
03110
SET,200,.
0))40
DORG '-1
03150 • IF FIRST DIGIT OF OP CODE "'S I, DO NOT exAMINE SECOND DIGIT.
03360 IF.
TD
TEM"CHARI,1l
03]10
TEMP
Cf
0))80
TEMP,8,lO
CM
03390
INE Q
03400
tHAR1,l
AM
03410
a
DDNl
0)4Z0
DORG 0-)
0)430 • lESS THAN 12 DIGITS lEfT - EXANINE FIRST POSITION OF 0' COOE ONlY.
03440 lESS1Z aNF NO. tHAlll,1l
0)450 • FLAGGEO - _nOCATE , FIElD.
0)460
TFM SET-l,"ZI

.,
•

.,
•
,

,

0'''0
0'''12

0'''''
01"10
01""
01502
01502
0151 ..
01116
01511

OU...

015.1
Dun

Dina

01512
DIU.
01'01
011H

U

...

ou •• Don.
02-0'

00000

••

02019
02010

-1501
0-000

U

oOln

12

02061
01 ... 0
OU9Z

-01105
000-5
01100
00000

16

.....
..••
n

11
12

II

Onlll

onn

02061
015.1
OlZn
00120

OU29
-0001
000-1
01100
OZ051
00000

oo.n
01 . .0

-0001
OOI.l

...

I'

02019
ozo.o

-1659
0-'00

01 . .0
olin

11

12

ODin
OZOl1

-0011
aOOJZ

OUI4
01196

H
41

au ..

02061

000-1
01)00

01701
01120

14
U

02061
011)4

onoo

OU1"
01111
011)1
01150
01 . .0

11

••

OOOJZ

olnz

44

01166

OOl6l

OIH~

II
49

02019
02010

-1165
0-200

25

01471
01471
01411
01/.1<10
00163
01660

OOSU
00000
000-8

01756

on..
01166
01711
01790
01l0Z
01114
01126

H
14
41

11
49

•

ouoo
-0001
00000

DIU.
0113"
01146

""

16

OUU

OOl6l

0201'1

-1161

33ti
PAGE

MONITOR 1 -- RnOCATlNG LOADER-03410
0)410
01490
03500
03510
03520
03530
03531
035100

03550
0)560
03561
0)570
0)518

0)581
0)5'4
0)511
03511
0)51.
0)59)

SfT,20D,.
DORIO '-1
• RESET CHARACTER COUNTEIl TO IEGINNING Of DAU fiELD.
NO
Tf
CHARI, TEM'Z
• TIIO AND flAGGED ONE INDltATOR - CONSTANTS.
TIIO
A
tHUl,N, ,
TIIO INOICATOIl
• SAVE DIGIT AT END Of fiELD.
STO ... E SM
CHAU,I,IO
TO
SAYEl,CHAlll.11,
GENERAL STORING IlOUTINE
• seT A RECORD NAIlK THEilE.
l
TEMPI,N
SII
TEMPl,l,lO
TO
tHAU,RN,.
• T~AN5MJT DATA TO LOAD AOD... ESS.
TR
IlEl,TEMPZ,611
• UPLAtED SAVED DIGITS.
TO
TEMPl,SA'IU,6
AM
TENPl,I,IO
All
CHAII1,l,10
• GO TO UPOATE lOCATION POINTER.
PLACE
fOUR+48
PZ
OS
0
DORG Z011

•
•

,xx
"

0)600
03610
xx
OUZO
00"'10 '-1
03630
I
TIIO
03640
DOIIG '-1
03650
I
THIlEE
0)660
DOIlG '-1
O)UO NSTOIl
FaUll
03680
DOIIG '-1
03690 MSTOIl
fiVE
DO~G '-1
03100
03110
8
SIX
03120
DOIlG .-4
0)1]0 • ROUTI NE TO SET FLAGS AND RELOCATE 5-DlGlT ADDRESSES.
03140
5,0 ••
Dt
RELOCATING SUI"OUT INE
-0000
03150 • tONPUTE IEGINNI NG AND END Of AOOIlUS.
03160 SET
Tf
PhCHAIIl
03110
A
",SET-I,U
03110
Tf
03790
AM
Pl,.
0)100 SF
SF
Pl •••
03810
INf
03120 • IF INDlllEtT, SUITRA'T ~ELCON.
031]0
S
'Z,IIElCON ••
03140
II
DOll'
0'150
03 . .0 • IF Nor INDlllEtT. ADD IIELCON.
OJI10 Nf
A
",IIILCDM,.
0)110 II
All
SIT-l,l
nato
SIY-l .. 1
01990 • SIX INDICATOI - IND OP DATA TO I. LOADED.
04000 • IlUD IN SIININT to.
04010 SIX
TPN 'IIOG+n.LUVI

•
•

n,,.

N','Z,ll

•

•

.-J

DIU'

49

02010

0-200

01 . . .

l6

00163

02139

OUIO

Zl

OOIU

02057

01192
01904

12

ooln

2'

009"

000-1
(lO86l

01'1l1
O19U
01940

21
Z5

OU. .
01719
OOl6l

02057
000-1
022IZ

II
9

OU68

12

01911

Jl

00110

02UII

019"
019'1
0""

25
11
U

011 ....

00'"
000-1
000-1

02000
oaon
0101.
OIOU
020za
0202.
020J.
OlOIl
02041
02041

~9

OU94
0

00000

.9

00000

00000

49

OU80

00000

~.

01480

00000

020S.
OZ05.

oz ••
020«1.
Ciaon

49

01546

00000

49

0.101.

00000

••

DUO.

00000

02019
DIDIO
0209l
GIl04
DUll
OUII

II

21

a6
11
JZ

ou..a

.,4

DUU
021 ••

•9

Dun

OU. .
00.61

zz

,
02201
02207
02011
020n
0220'
02112

00163
020111
-0004
00000
OlOlJ

OIOlJ
02114

00000

02201

OM.'

021 ••

..
Zl
II

D20LJ
02019
010111

00 ....
-0001
00000

DUO.

I'

OZUI

-1'.1

Dun

011 ..

,)
337

.

==.

....

. .n . a -

I
$1111
. . . . . . Sf..... • • _ I•• ' . . . . . .
. . . . . IIU,. lit
lhO
.
-0
. . . .0 . 11K Tau....!! .....' .••
O$C •• 0a962....
'
" " 0 c . .n
0\.......'
. . . .0
DIA .auao

',LKIYlIII LOIIIa-

lIun ..
.

.

'.J~ It! .......~.:IIM4I

,

OSA

cOlln.cnov

. .,

.....

I •
-an•

0 ....

0. . .0
0.150 II"
04 . .0
o.no
04110
0 •••0
04100
OUIO
o.no
041.0
OU!;O
04160
. .no
04110
0., . .
04291
OUOO
OU10
OUZO
04no
0.1.0
o.no
0.160
OU90
04.00

ac

I.Tt

OI'M
N'M

lSA

"'EIIO

DUel

,.
tARDAD
0 I SIIAD
Lac
"
"
PI
SA"£1
SAvn
TEMP
lEUI
nlln
IX
AIIM
t_
t
HIGH
LOll
lOllED
MAPEII'
IIUtDN
SEQ
TtD
IT,..
S'lSstT

04.10

·

ac
'

os
OS
os
os
OS
os
os

,IlO+1

DS

•••,+5

os
os
os

• 1"11
'.0

TCD

.....
01'"
.....
........"
.,,"
.....
..,..
.....
.....
.....
.....
.....
.....
.....

• 1,609
, ...00

...,nGell
.IISTOII••
.IISTO. .,
....21

OS
DS
DS
OS
DS
OS
DS
OS
DS
DS
DS

-0. . .

.

•,

0 ....

DS

OS

·1110

-ana
I

0I1t.

I ••

• •

I

0.1'"

on..
0.110

ao

•

0'",

I~

.........

• a. . .

•

0. . . .

. .0.0. .... UT ' . .'.IIL • • $......' • - ~"YI IS .A. lol • • ,
04"0 •
1\11'1Il10 IS IllllllAL IIIY\1111.
04UO '.0'
ac
a.'
MUD

......... .
•••It

01111
0 . . .,
OIlOT

,AO.1O

..... 13

....
........••••

0.' . .

eMtt

...0

0. . . .

• 'ZI
• 40Z
••• 9

.,'21.,.
. . .0

,19663
Tlln

I.'''J

0.4020
DOIIG noD
04.10 • WIIIlE Sf'''EIiT • OF LOAM. 011 DIS«.
..
atON"., 701 .
0'••0 TRY.
)I
otONT4,l'OZ
0•• '0

0'1GO

0I11D
01111

.
II

au..

00701

oo'oa

01.14

l)311

_nOl
0.460
0111
0•• 70
0 . . .0
I
0.'90 UliHH JIIA

"

1 -

.ILotAlIIIII LOADIII-

IIIGHT., 1'1'00

oaw.

au..

TRY.

D....

0'160
onn
OU. .

04500 DtONH DSC; 9011962.00'
11962.00S
OUIO
DSA ..nllo

01111

Dan,
Oln,

OU.,

.-J

OU. .
OlIO'
DI_
onl6

ou. .

on,.

DIM.
on60
OU. .
DUM

,

"SA

tllTLI,tYLDV

01

,.
ac

2 • .,.

OSA

THaU

01
02
02

tIITLI

Dst

I, '

Dst
0

1 •. 0

•

...
..
JJ

U

••
n
••
11

,.
0,... ,.u
01110

.iI,. .

0 ....
.. 414

U

'Il"DI.

oa. . .
oau,
o a...
o ••u
01411
0141.
0'.,,'
u
..,

oa ...

•

II

00000
00.6L

OU. .

00000

00. . '. -000'
OU. . AD ....
....L
Oil ••

00....
00000

OO. .L
OUI.

00. . .
00000

00 . .1

-000'

00.10

OO. .L

01.'0
00401

004"
00.15
-0001
00.-01

...n

...ao

oauo 00."
oaou oa.,a
00000

I I

-0".
I

D....

I
-1104

Da..,

I

00421
OU04

0 ....

.....

01900
00000
00000
00100
00000

-un

.•• .....
-,...
al

o a'. .

"A"
on60
00000
02100
00000
00000
,

a nat U

•

01

16

olin

ouzo
DOIIG . .ZEIIO
o.no • naD 11I01(;&TOII - SET TtD '.DltA'O••
OU40
ftD
CF
04no
INF .UO.CIIAU.l1
04160 • FLAGGED ZEIIO • 00 NOT IIELOCATE.
04170
0
NOT
04180
OO"G
04190 • UNFLAGUD lEIIO - DO IIUOCATE.
0.600
AM
t"AIIl,S
aUlD
OMf AOO,t"A"1.11
0.620 •
1/10 1":" '~lIm~lI;l~:!:AtT lE~tDN.
0,.,10
HOT_n
0•••0
00II, - I
046'0
0. .60 • NOT 1110 IIIEt T - AOO IIUtOll.
A
t"AII1,.EltOll,.
04"D ADD
0. . . 0
I
"ZO
04690
OOIlG .-J
04700 NOT
AM
tllAlI1,'
0.4110 • 'UT O\ODIIESS III tDIIII. AIIf~1t
04720
"
IIAI'eNT-II,tll"J;,~
OUIO • "v. LiST SltTO". IlEAII,
:~ III'UT.
00
UIT
•• 0 IIID04,40
TI"
1I.'IIIT-I.t.,US
Q,no
$II
MA'IIIT.5,J
AI,
06160
III'EIIT. . ,I,.
0+)10 •
IIUlI 'Han FIELDS OIITO .tOllIlUIIiCATIOII
tIlTLI,UII.1
TO
UIT
01
TIl
A.EX
01
oIS. 12
01
EX
01
a.l
OC

•-, .-.

.,
••.,••

•

1

33ti

n

_nail 1 OZ

OU

OZ

•
IIllat" lNG La".I1-

"GE

SYSStT

•• IDODOO
-0100000
T. . U
Til
.... tallll
TOil liD.".
Tfll tIiTLE-I.IIUT
I
EXIT
OIIIlG .-)
• 511 IlIOltUIII -UPDATE UST Lat"T1D11 ~LUS DIll IlIOlt"DII.
LEAVE
NIGN.IIU
MOVE THE EIITIIV ~DDRESS.
Tf
IIAPEN"I ....APlllh1l
•
If 1ION-01S1t IN~UT. IIUO ONE IIOIIE IEtOIlO.
10
.10 NED
"ZO
I
EXIT
OOIG
TO
.. zt
.10 ilEa
INtO
TFII SEQ.O
I
flIT
DOIIG .-..
DDA FOil 101l-S LO"DEI IETUIlN SUIIIOUTtIlE.
•
CNTL3 DSC 1... 1'79100)00000'
19"100)00000'
•
IIUD AND ueCUT! EXIT SU.IIOUTI HE.
NEXT
TFII 510.0
TO
COIIII.AltIl.1
TIl
COIIII+1.tNTL)
I
410
TeO TIn
Dt

OZ
02
02
OZ
02
0 ..... 0

"

0 ....0

.-.

0"""
0""0
0"'20
0"'30
0 ... 31
0 .. 932

04.40
04'50
04.60
0""0
0 .... 0
0 .... 0
05000
05010
05020
05030
05040

DOli .. 2500
• RUD III SEGIIENT 1 OF LOADER AND IEGIN EXECUTION •
TRn
J4
OCON15.701
J6
DCONTS.702
.NI IIIGH15.1900
H
II
TRV5
kIGHT5 H
II
LOADER
OCONT5 DSC 1 ... 01960000900502
01960000900502

05050

II

00982
19609
00512
02514
OZ"4
0251"
02511"
0251 ..
19600
011)"
01U6
00"02
01208
01272
004~9

OZ560
02560
02560
02560
02560
01348
0046 ..

olon
01066
0211"

01 ... ,
0110)

J'6U

•

oaa...

U
16

.,

OOM'

0154.

16

DOn..

0011.

01MO

16

DOUO

004"

)

01"2
01 ....0

00.. 21
00000

25
56
16

01611
ODOOO
00 .. ' ..
01 .... 0

0041.
00500
-0000
OOODO

OUll
0151..
01591
01592
0160..
01616
01621
DIU'

.. ,

...

01 ....
01 ....0

004..0
DODO.
-16'0
OODDO

1 ..

01615
01650
01662
0167 ..
0161.
OlSOO

lZ

I

J1

01104
OU16
DIU.
Oll..a
011...

16
25
31

OOtiD
00 ....0
00 .... 1
DO.. IO

-0000
00465
016)5
00000

)4

0251 ..
0251 ..
02560
00000
02500
00000
01266
1 ..

00701
00702
01900
00000
00000
00000
00000

...

02500
02500
Ol5lZ
OlS2 ..
02516
02541
02540
02572
0251 ..

DEND TRn

16

.........
...
47

02500

MONITOR 1 ANVERR
CARDAO
CAIIDIN
DCOIITl
DCONTZ
DCONT)
OCON'"
DCON"
OISUD
LESS1Z
LOADER
MAPENT
NOfLAG
NOlERO
IlELCON
IIIGHTI
RIGHT2
RIGHT)
RIGHH
liGHTS
ADD
ARM
A
lACK

,

01"'5

IIEGIN
IUNK
III
I

tARO
CEliO
CHAIt 1
tiN
tNTll
CNTL2
CNTL)
tNTLE
CNTlI
CNTL
CNT
COIIII
CONTI
tONTZ

cOlIn

C
CVLOY
DISK
DISU
DIS
DONT

IELOtATlNG LD"DEII0116..
02229
01472
01071
00536
00556
ODIn
01011
00537
00545
01615
01490
01328
00.20
0055)
00....0
02UO
00694
01250
00419
0055..
00 ....
007U

Don..

0'''0

00
0

Eilil
E

EXIT
EX
fAKE
fiN
fiVE
fLAG
FOIIII
FOUII

GET

HElIE
HIGH
IFI
INIT
lOllED

IT AI

LEAVE
Lat
LOll
IIOIIE
II
MSTOII

,..GE
OUI.
01015
010)0
01091
01 .... 0
01 .. 71
0050)
010'2
01 ....
OU16
00712
01546
00615
01116
0043 ..
01766
OUO'
0042.
00440
015...

Dun
004.. 4
00610
02067
02018

NEXT
Nf
NOIlII
NO
NOTIlII
NOT
N
NSTOII
DIt
OUT
PI
1'2
PLACE
PIIOG
Q
IICON
liD
IIUD
In
III
1I~1I0G

SAVEl
SAVEl
SEEK
SEQ

01650
02172
00511
01161
01228
01368
02057
02048
00630
00116
02207
02011
02000
02244
01614
01104
00951
00796
00n8
02262
01231
00'61
00965
012 .. 0
00.. 54

SET
SF
SIX
STAn
STOP
STORE
TCO
TO
TEIIPI
TEII~2

TEIII'
THltEE
THltU
TIIANS
TRVI
TRva
TRY)
TRV4
TIIV5
TWO

xx

ZEIIO
SVSSCT

13

02080
0212.
02208
00720
0105 ..
0189Z
00U8
01176
01719
02139
01 .. 77
01~10

0150 ..
013 .. 2
02500
01500
02500
02500
02500
01,,0
00000
01140
19663

END OF ONE ASSEIIIL V.

\

342
LABel
ABOI

o~m~F

015KI0
E0050
GlEST
"loPT

n

2V
4t

3l
)F
IY
IF

LCAO~

SR

"MO~CAL
'~HASEA

6R

MAPENT
~ETAY

-STAr-eo
lOI

3Y
IX

4F

3D
4P

ABOi
~Hf. K
10
oOYFL
E0070

"~gkk~R
lCAD6
MCAOO

.=snu
'SECH
SlAGH

l02

TABLE

H
IR
~J

3J

3T
~E

7i
2X

6X
7P
3X
40

o

I~OICATES

ABO,

7Y

n

~H.

Elir
EO 0

",NI &L
• 0 K

LEIO!

"=D~~

'PHA

•
I

m~u
lO)

II
3l

f~

5Y
7G
IP

l~

n

UNRfFERENCEo LABEL

~A~l

oolox
ERROR
E0090
-lOCAL
JUMP

km~
.~sm2

SRAO~
1'AG 3

04

7X
2M

U
3M

IJ
2A
60
7H
4H

ZV

:r

AB06

7Y
2N

~ RoR5

1,

O~iM

188"
l 80

TO~
:i t~·

°b~1I4

l~

6E
7M
JV

4Y

tJ
4A

oAB07
tHX~

olOl

EOO~O

i8.~0

tim

MEU
DYRt AY

.m
104 ~A

au

n
IX

3G

30
4U
50
6M

58
U
5D

t~

caOSS-UFUENtE

·U

4~
i~

• Nn
IT

•
f.
.a 'all

7F
4H

:isr
l!~I
~18

...
:X{"
~= ~
a
211

818,

~nVFl

~~

U

J~

JG

IX

IS
)K

,gg~g

Jj

~m~
10GT
lOP'
JUMP

tgg~

IV
45

5N
5M
5V
of

t~m

II

ZH

LQ

~~

}~

lT

lL

LQ

I'

4J

4P

4N

)F

JE

6M

60

6P

6U

5.

5P

6E

68

8~

7C

7G

6~

6R

~I/

LC607
lRAOl
MAPENT
"CAOO

JS

SJ

5.

LCAO"
LCA06

.If·

J.

IW
50
50
4R
IY
5.

~OLLER

.u

21

40

.UT
ERRoa
F •• OR5
E0040
EOOSO
LOOTO
F0080

11101 CATIS u l n lICIT PIIUIIIO

6X

ti

milo

•

.u

t

HK
HU

"IU

6K
3X
7H

:Em n
:m
7F
4W
ZV
4f

6
NOfRR I
NOR8C
OVRLAY
~DVCO

4X
48
IX
6V

RETRY
SEEK
SUOI
SRAOZ

:;TAGFI

11
3H
3P
2Q

SlAGEZ
SlAGEl
X04

lOI
lO3
lO4

toP

I~ORE

3Y

55

2A

2N

I~

IC

2P

4~

t02

6N

40
4R

344
MONI TOR I 10RT INPUT OUTPUT ROUTINE
OVRLAY

\h

10SK

r--mBn~-----i

I

• IS
-

- +2
10

IC

6RAtjCH TO
R[SEEK

I

IlVoiLAY

IA

10

EXECIJTION
OF PROGIUM
1ST ADD.
~~~~!2

IL

•• 1 T L eN

------.----ERREl
IK

SIlITCH

---------r--------I
I

Ian

I

IUII.O

"lI'

l!lSJft~!hN

llfaaa

• TEST IND

•

•

-

1M

rHH;U~~=:·

IL

ROR

I' ON •

I

I
I

·_------·-i"e;:---

IA

ZS

I

----i-TO

IN

mG.

..--------I

I

I tV
.-,s.--.----- ·.e~'IST

SEEK
- _ NECESSARY

·.---e_-...
I

25

.e.---.----e
• v,s
YEsr IF
No---i--- I

YES

°ERROR

0

••

•

25

_

o0

•

V~MY~BER

GET EOITRY

e

I

.--.--.
I
Trl'Nvl~lo

•

YIS

fa

IU

IX

l-~i~I~~DE-----I
SEEK

2t

• __ • __
GTEST
I Ye
•

NO
0 CHK I

°
•

ZI

•• 'El' IF
'. ~8EgID

•

•

• YIS
JUM'
.' U

N~----r~:-

IT

• n!K ",.0
o.

IV

. - -______ e _______ __

____-.--e

•

_G EST

•

OIOl

YEs--O,---O

DIOX

IW

e

IR

.---.---...

e

NO

--------r~:----

IL

IF

-,---START ·-ro-------,

~UOR

-11-""!i~~~~i2g
---I
sb~9CH

.--.--.- YISe
. -19.15
.N~---i-'-

I

I

-~--.---

• RfTRIll

NO
010

I

ERRE'

e----.---.

IL

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

I[

NON' _
_

.----.---. •
'1ST
• - It
CD" gOR
MARK

OVRUY

10RSC

Ut

i--~~f:·~~fi-----i

IQ

M~A~O

-1---iil:RE~~~----i

•

.-

•

-I---i~~m::~:--I

I
I

________!I

~,~

I OF

tu

OlDY
--

-. m~ 120 19 - O
NO--- '----o

IJ

MONCAl

-,---sT:;iiT .--------,

I

0- PIRFORM

I

l!mt"UlH I

I

____ AT

NO:~:~-r~:e----.----.

-1---~~~fiFt=~-~

I

010

•

IH

lOCAL

I

--------- .--------,

-·

---------.--------ERKET

i---;;:;i:T-·--------i
I

I

e.ROR

I

I
I

IN

--TEST

-I---nin~~ini--

••

.---.----.

YES

I

10GT

NO

INDICATOR
*.19 ON

.---.----.

IG

[~~::~:~:::~J

I
I
---------r-------18
•• ----.----..

PAGE

•

• NO
ERlOR
00

•

2S

•';;11.;:"&;;'..'IYoz

n a
'. ,Wiul
e _ _ e ____ •

- I
YIS

'0

ZA

.

IX

JU'"

2G

lA

-1---iiV;~liY-,"ii---FUCUTE THe

00

CAUE~

•

--------- .--------I

•

I

I

I

I

NO

20

•

I

.'

I

..
•

YES

• • RETRN

··.----.----..
O~LV

•

. ' 2J

e--e----.
I

VES

---------.-------104

I

i~POSITION

.----.--.

rlm;~;-------l
_______ e ________ _

ZJ

"'All!

• -TEST IF

I

I
j---sCAN-Foi ------1
EUOR

~O~IIION II
--------- .-----DIOf
CHU

I

II

25

2Y

---------e---------

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

I

I

~'~~~~~ll.

I

2"

TO

I

I--~i~i:~~r;y-----,I

I

r-r~8rUJ~~;--1
I
I
--------j-------

~i"o.s
.* 2Z

INOICATOlS

I

IU

IV

••

.---_e___ •

YES

I

-'--Tlr;;i~&8iT:--l

.

• •• iRR~~TRY

••

I

2X

.----.----

NO
•• _EXIT

• CRiss

-2F

zw

HOUll
•

R

OIUP

8h~U!AOII

·VE5--T-::'

---------;-------II illc~rl8N
~NUV P I~r

III

.----.----. •

~U

I
.----.--.

lE

• TEST seeK

'.

I

lJ

YE~

1
I

.

lP

.·TEiT

.RfUII

• • ~EEOfO

!-------- .-------_!
I
I
I

.--.--.
I' '. ~84

YES
00 CHKZ
• 2M

2K

'---See;-iF-------j

I

0
,---'

CIIK4

•

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

I

NEceSSARY.

110---

l--~~\~~aDc-------

I

----~~~~ .~~~~----!

I

2H"i~TH

XO~

2C

I
I

25

O
'-.

tt- _ _ • _ _ •

IU

'---CO"PUT e-------j
CYllHOE~
RC~ AtE
lO~ICAl

mOR
•
0

2H

•

I !M~~~·AVD I
I
I~UICATI:A
I
!_-------.-------_!
OIUV
SEEK

No----

•

.----.--.
.'

18

(---Miivii-60.------j

I

IIDICAtOR
9

o

U

OVIIlAV

CHK I

o

°r;;;-;;-""

I

~II~

lOUTINE

I

EOET

2T

2l

ERROlS

1---~iii~ly-------j

1--OVEilAY-------~

I 'M~m
I
-------.--------

IN

OVERLAY

I

I

I

,

T) 2U

JA

TO

EUOR

·

• - __ e _ _ •

YES

HAGEU

AOORESS FOR
TYPEUUT
ERROR INOI-

-

!
I 3C
.----.----.
I'~T DISK

I

3D

.-TCST IF

FUA.'IHER
• OEFINED

)J

IU~ n,,~AP

•

)J

4l

.---.---. ."
.'
·No-----\----·.
.---.--.
·'it IF'. ~g090
·vi5---'I---.
•

•

YES
E0100
• 1Q

3K

~5~40
•
3G

ST

•

SK

•

10

•

III

•

'"

I

I lE
.... ---.----.

.·T~ST IF

••

€~~~Jt9kAP

•

n

EOfl~O

I

I

e----.--.

IF

r-!~~~[-----l
HOllER

IX

3T

·

N~--i--'
TO

IN

.

lV

:mh

.,

UOR

EXIT
Call MONITR

~w

UO~

i TAGH

I

•

OUTINE
fOllOWS

lL

I
------.------

STAGE I

1---~u;-r.AL~---

II fiR~tEROUTNf

E0095

lX

n:~~~ AS

lP

lS

• • •NORETRN

.

I
II

e----. ----e
..
..'-.--.---..

lR

·

I
I
I
I

10

'. 1=~18~TORS •• "

·'1£51 l' ·.IS395
'. k~ Glb"D . ' 3P

- ________ e ________ _

·

o • CHECK

11'

EOO'O

e

ENUY.CAll
INDIRECr
8RANCH-'ER
TYPE 0"10"

NOTE

.--.---.
..' UUV :"P ••• ~gO'O
YES---'\---'
EOIOO

CHECK

I m~~r~D I

---------.--------SlAGEl

~o----j----·

I
I
I
I

---------.--------.IIOTE

---------.--------srAGEl

.--.---.

n
--------1-----EOOIO

*. ~~~leR

·.----.--.
I .

3U
j--~eAD-Typeo----i

E0095
I )P
l-~~~i!~ii-ii---l

3H

E0070

• • NO
• • TEST IF
E0050
•• ~ ~g:L D~ I VE •• IF

YES

I
---------e--------STAGE2

YES
•• E0070

·NO---- i----·.
.----.----. *.
·NO----i----I
I
I

•

I

.

UGE2

1

.'

3N

-1--~~:g:t~CI-----i

1
I
I

!---:~!!~~--------!

•

I

38

'---;;OYE- Ii ETiiN---j

.---.----.

3G

NO
• • TEST I F NON • _ E0050
•• DJ Stc ERlOl •• 3F

HAGE 0
ROUTINE
FOllOWS

I
I
I

Of

e__--_. ___ •

[OO~O

,

ERlOR
I
STAGE 0
I
lOUT! eHE
_________
______ _

MONITOl I 10H IN'UT OU"UT ROUTINE
3A

Il

•• IImNT
lY

u

DISKIO

M.'ENT

3Y

j---oi5AiLi--------1
I
I

ANV RUD
UCK CHECK

I

---------e
_________I
i
IIIOR£

4A

.

" lI0II''011

I

lllOllE

I

4A

1 1Ic*i"f"I!~D }

.

.'

lu

e---.-__ •
•

~~U~~8:

VES

.• .,

•

_.--.

I1

~C

1

It

HOLLE A

I

I

~o
~---.----.

•

NO

JT

.--.---.
•• i&=8.'UNCH
ZD4

~E

U~~hE m.

•

·

I

•

y

.----.----.

RETRY

I

.---a--.

I

'.G

TO

!

AOI.

I

U' EAA. • HOLLEA
JT

IllcD

4Y

I

.ISSAG~

---------j--------I

~l

-----;ji,toi-------

I

I bd &rS1"
E

------___
I
NOWIERe ________ _

f)

~U

TO

'.

---------,--------~2~; I~t~~~L

NO

is---',---'

4N

e

II~---I'---'

4U

.

.

...1

•• • :IIA

fV ."

o. •6.t~j'~aD' •.' 11,1

--------r------

I

VES

I
I

'OA
•'·i!f'
·I av
.Or,S! ,oa

'.Z04
• 45

•

411

e__. ____

rlm::~~:=---l

NO

I

N~--·I---·

H
•

• ____ e ____ •

TO

•

VES

aA2~iclI .'

4f

.'-.TEST
~~~~A8gTI6~ '. NURIC
IF RAC._ 4H
YES

'.m

4S

'. A

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

••

.---.---.

..0

10,.

.--.---.

· III

I!

'051 no~

I

•

NO

I

JT

~.

.--.---.

•

cNlCa

STAIU

•

•

4J

lID
....
" ••
•
•

40

40

IDJ

I

I

,.S

·';'5--',---'.• 4"

i---Eii;PutF-N~;---j

II

.--.--.

•

~II

a-___ • ____ •

•

NOLLtR

•• m&AEU~1

DRIVE'. ~~aFL
OYEULON
•

•

•

•

•

..._a_.

••

4'

IDJ

"- _____
m;~b3T
I
a _ _ __

II

.··•-.--.
~=!~ It:s.' ••~2
........--.•
101

4U

.·,OL'OI

JT

NOLLIR

VU,

~J

DDV'L

CVLI"OER

•

•

-,-- J3'Tli~W1

L_______ .________ _

.
.'T!ST
·

VIS

.AUAN

i---co;';uTE-TOP---1
1
OF NUT
1

•

•

•

•

1

cnov,

I

YI."

•

4 ••

e--. __.

10.'

••

• _ _ e _ __ •

4"
--.--'
•• 111' l'TORS .• • CHICK
JS

IIDItIC

110

.UTAY

e ___ e ____ a

••

--...---

------__ e ________ _

•

e-.--.
••·":SW'l:SI · •.~'TAII
411

----;n~-t;_-------

INnAUCVIDN

, ...

5A

"ON ITOR I 10RT III'UT OUTPUT ROUTt NE

i---iifSTORE-------j

I

10RT "AIN

:. d=
I RT

I

!-----------------!
ERROR

511

-1---~HsTOlE-------1

I

~A~~INE

I

.---.---.

5G

5A

2S

I

ALL

AND

o

• ·D1SK LOAD
•

-------.----5H

•

~mE~

I

0

• TIST

ND
LCADI
511

';5---',--'

•:iIII"li-'
--'. ·o~2ADI
• Lli ~ AmES' 5.

·-_..

5E

-,-- ••'RAil,!
~mc"oa

I

I
e_--.----e
Of", ,f a" ••
lM~~nih ••
e---.-__ .
I

SUGE4

5'

•

o.

0

o

110
IETllI

TD

5G

•

•

----.-1,----5g

E

n
*",,--.---•

.' If'!

JF

• .'r"sur... •
. - - e_ _ e
VIS
LCAoa

-_.I
If

•

L

faa·.

110

TO III

II 11-0 $11
• L AD

•

mOl

•

'"

IH

I ..

I illl~ii~~::---l
-::--[---

NO

5"

r·iiili~--l

---r:----.-.

"

LUDl

.0C

lUDl

I-------j--------Illf,:'h~l: I

--I

II.
---.-.0'IfT

•

• 6e

511

•• ~CAO'
• 5S
•

•

·110---1·----·.
.---.---.
"f~ST I' '.
•

---------f--------

r

.--.-----.--------lOG'
•

. ' TlST
CALL

•
•
N~--'I---'

!$

--0---';;

•

'U

·,rs--.,----..

I Ilhlla

5U

5V

LCAO~

511

u

•

~2AQ6

•

LCAoa

5J

•

I

i~lo40
Sit

••

iuJeRvlsoA

•

I
.---.--.
I'
•
o.•Brt\AAD
o·

VIS

110---'/---.----.--.

•

•

5P

IUSI:mtE
PHASEl

••

•

•• ,

---.----.
I' 'AA'.

'HASU

ru..

•

-_.
I

•

0

?OI

0

lID

If I" ••
• •',I
••• III!
AlIdA-

.0"

'IS
IU

YO

1411

..

•

, 1111111 Toa

IIlIlT I _'U, IIUTPUT

,...

IOU".

---.--....

••

-------,--------" I
I l=eA~,'lllf

6N

•

I

e---- .----* •

• TEIT IF TO

'.

·e----.----..

I

6C

I

·

V~S---"I--'

DISK. ~EAO
eXECUTE

!---~~!~!~--------!

U

OVRLAY

.---- .----.

LCB07

.'

NO
'.LC802

·.----.----..

• '6D

I
I

6M

-, il~~tI;;;---~

I ml~8~~ER I
I
I
---------.----_
... --LCB02

•

• lpT

60

·

NO

• OVRLAV

". b~llMt .' u
No-T-"
TO

"

'·NRN-DISK

·

I

I
I

.
•

•

..

.---.-----

6V

•

YES

..

e----.----. ..

I

YES

i
l

•

·e----.----..
·.----.----."

OVRLAV

rlU:i!G~~~--l
--------.-------

I

1-- i~I~::~~:----I
---------.--------• SUPER

CHK4

.--.----

mlES~!!tD

•

SEtT!

.·TEST IF END'. lUoR
OF TABLE
•
..
.. 2S

·.----.---.

IA

NO

I

I

.--.----.

AB03

.----.---.

"

7 0'

7U

FOR NAMED
P.OGRAMS

I

71

161

MCAO)
7H
..
.. NO
" TEST IF
• MCAOO
• OUP.CALL
•
..
.. IF

• RETURN THRO •
PRESET
•

NO
•• ' >2

I

6T

7N

II

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

7B

• 8RANCH

~d~nh

MONITOR OR
DUP. SUPER

v

PAGE

MCAOI
7G
----RE-rORe-----~

.. ....
" l~~lEAF
BY • """+2
SYl>.PROGR.A"."
7C
e----.----e
NO
I

..

·.---e____•.•
&F

MONITO. I IOIT INPUT OUTPUT ROUTINE
7A

6V

.' as~
sp~ lu,eR.

1'102

7o f 6U

6N

.

'. klt8ti"llE .' 2'
.---.----.
NO
I

65

..--e---e

SR::I
•

.

IF

•

I

.--.---u .',lat.

'HUll

.---.---.
IF '.

'·TEST
RIlOC "BLE

"

,5ttO:~AU •

I

VES

•

I

I 6"
e_---.--.

ISOR

"SlJIR IP! "~~A02
'. e6VSM
L~~Dr.H .' 6V
• ___ • ___ , •

lRA02

6F

.~

l~f5WSO.

I

dTURN

j---i;;j1j Aliie----j

6g

I ..
.--.---.

---------.--------I

I

---------.--------$1601

"

'HASIA

LU02

lA

SU02

•ftl~D:~'SU

6l
•

• DlgK LOAD

YES

IW!m

.

-,-- Ili~itA~----1
A&DRESS
--------.----_!

6E

f~Tll~~OR.

OVIUY

NO

•

•

I

7V

.. YES
• ~OMPARE FOR " AB06
URIENT
•

·NC--i---*.

..

2P

HTRY

..

1Y

.----.---..

YES

I

I 7W
.--.----.

.' an
•

•

NO
70

A80~

~~kk~~TlNE
~OLLO~S

' ...02
1T

•

Al03

7V

7X

AIOl

r---__m:dm:~-l
e.__----

7E

MCAO)

•

•

----------

r-UfJ;?i=----l
---------.--------!lCAOO

mRV

I~II:~i:~i~;---i

MONIIO.

I

•

.v
---1--I l"e"s~7Tc" I

_ _ _ _ t _ _ _ __

6K

1>0

OVIUY
---------.---------

rI In:i!i;;:----I
W~Ym

• • RISTOR
N DUlf ~O'D
liD. ••• +2
• I IT T'
• 6l

il---iHie ~~Aye-----l

•

•

,

.,

I UUiihnl I
•

---------e----_____I

I

I .M
----0,---

-----i-:-..---.--.

6D

-,---i;;-IT
i Aliie-----,
LO OER

LeB02

.---.---.
YIS
t

STAGU

NO
• lCI02

.'

l~ ~1:lIlE

VES

t

68

l'!'M'-l

ttt'I'l }~ t',ReaL'Y
t = aa.t621
, "

________ e ________ _

6 lIP

6U

Al06

7H

TV

4107
U
---I
701t;-----

7F

I ml¥~., GIl -I

"HI'-'I'di"';--".
!I&n
IS.
• I
•
... IItACIt, 711
NO

· ---.

Till ..
HI

15

•

" . . . III

...

r-----r:-m,f.I:e'l
r---B~t:f~~Ci---~

-------.------OYUU

U

35~

o ...... c:ATfS UIIU'EIIIIICED LAin

LAlIL TAiLE
~s

ABOl

o::o:A

oMelolA

o:m
OM·8°~
~DPOI

3

oUT 6

UTJOD

l~
~6
35
4J
4W
5P

:gI~

=~il
Ml3 ' '
~hOf

I;Z!

U

~ ~

ollf
oU

UI

:UUI: U
o~H"

°HI •

~c:

4111
5G

J~t
010

°ar~o u
u
u
oM l 0
118l.

:8
5J

=~m

4H

uhoc

4'
5111

:~·8g4

au

3F

)Q

•

.., ..

e INDICAnl LAin NOT 'CIUllO

CROSS-RIFERENCE TAILE

:1

!I

I:

UN

SR

·1
h
l! ..

l n ."
~liH&

:.~I

IN

011

III

)0

I'
l I~
I

"flO
IIJIOt

l~ &

"J
MJ

l
0
""t
POt
" PO

:j

'U

.N

2P

2N

JU
IS

zy

2l

,H

.F

IU

3L

I~

2X
,M
3&
5E

2W
IC

~~

~Tlgl

IG

)e

I~

MJ"
tlJio2
UJ 00

...

IU

J.,

SN

5'

2U

3P

"X~O

so

5P

511
50

u

~N

354
PAGE

"ONITOR INPUT RECORD ANALYlER .110 'ROCESSOR

--------l------

I-------.-----i~i!~:~g08 I

INTERPHASE

E~TRY

TO

lOON I TOR

.----I.----.
·
I

• TEST ENTRY
VIA CARD
•

....

1ft

•

•

YES
• "H035
•
•

tH

I

I

.----.---I

IC

..

.---.----.
I

•

o TpT IF

.
•

•• o iuMY~8U

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

10

11I110A

l---~~:~f---~
-------.----

10

111020

NO
• MlllOB
0

YES-OI---·

-1-

IJ

I

No---OI---- O
.--.--lP

1---!ii1~li::::-l
MID.,

•

ID

IH

MI020

•
•
YES
• TEST IF END. UT07
OF JOB
•
•
•
•
5A

NO

MI020

MI035
•

TRAP
• ___ e ____ •

NO

0

IR

0

10

-iAaNCH---,

SET
AODUSS

---------.--------111030

IG

I

IIH020

I

10

--------- T--------~~~~tlT~O
I

I
I

lUNCH ON

mmOR

I

I

-------r~:-----

MIOIO

o

°om3'5

~
ON 0
o ..._ e _ _ •.0

fttl

NO

111200

IR

1111101

III

..·I·;l-j;---··

IH

IX

11.200

i.

IS

----l

lftliliLiii

THE fNTRYi

~~~gl~ O!:£-

0

If

ll4o

o:OllllKl'

O:~'~!IO

o e-_e_ _ e 0
NO

r--.--.1111.0

. - _ ._ _
MIIOO
'" e

Il10.0

10

nnU~n..

o

o ••=aUD
• I.
0

,:-,- I 0

IV

11

IT

i- iiiIC"-=-l
..

!~ti;;--l
•• 010

00

•

~CROlolOIO.O

---------.--------1111"

IX

--r:--.--0

------.------,

I

l-~axla~------l

r-~abjiBa:"---1
111120

:lm:"

1 Of

-IG

MB030

IA

15

liS

5

"lulU»

lA

L_______

'-!tlJr.~A'"

o ________

•

I

!

IItRO.'

SIIPUVISOA

II.tJUT I Nt-

Zt

MUOI

ZC

•

o

•

0

'UOI
I.

e___ •____
ZV •
o

YES

0: !5~V~RD : 0M~:OI
NO---O,----O

. ' TfSf '01
e

·N°---T---'.
I Zw
.----.----. a

.'

•

!~n-'~:IO

·

a

0

'Ull

'.
•
e II

-OUI'- CARD

YIS

'.".001

.
I .
.---.----

'IS

a

4t

4t

e

~O---i----e
I

•I ____
lr. •

2K e
e--__ • _ _

• oTEST IF
• =@R01
o
TYPE I~PUI
0
1F
e ____ e ____ e o

o· !fUE!£:RD
•

•

IX

•

NO
0 •

MtRO~

•

•

.'

r-

I

I

~t

I

j---,v;;e- .--------j
I MES~AGe
!
I
_________
e ________ _I
I

I

NO----O,----O
.'e

~'ROl

iF

I
I

.'

I
I

•

o

!-------- .-------_!
I

2"
e----.----e
e

!~i~S!OR

e----e---.

o·
•

I

YES

I

o

!
TO

2G

3T

e

e

!J~1-

F@:.D

2C

"JIOI
2l a
.----. ____
e

'.

)W

eYES

•
.0
·a--_.____ e.

• TEi T

'0 MF TO I

I

bF

~~I VI C~~SED

NO

2U

TO

2Y

--------a---------

eyES

e----a----. .

NO

I

MCROI

•

2N

I

CAID-COOT
RUDHUT
ONE

I

e-___ ,----.
NO
°oMCR05A
•
2P

a--e----e •

---CO;;£"'5a-------,
'

YES
00 "SPOZ

o

"CRO~

r--~i~g~r-------I

!UI.~@~RD

•

NO----r:~o

2t

MCROI

e

e

!~I~s!O~,IO '.".QOl

NO

e ____ • ____
ZS •

2l

iv;e-6ui-----l

_ ________ e ________ _

I

a

a

2M

YfS~-j---·

I
I

TU

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

'.

·NO----'·----·.

•

ZII

• .

I
I
I
I

I

nn 'DI
• .'-'Ol.-C'IO

ZJ

r--W:.1"i: iie----j
!
I
---------.---------

ns

o ... IOJO

ZU

r-'y;;-6U,------1

ii:;;:--l
r-Uft
---------e--------.----.I----.

,8maca_D kUD

e ____
~CR()H

eYES

•o
• Ie
0
N~---Ol----O

18

o--.----e

2N

'G

D~D~DI

00

.IOGT

MUI'I

.----.---.
nAt

IICRO.

-I---i;;~ii- A~ii------j
t 9
00000
00000

UU'
00000
UU'
05212
0"33
05233
Dun
0'098
0'U2
0'212
05U]
OSlU
0'091
05215
0'091
02250
05234
O'U'
O'U'
0'U5
0'0'.
0'U4

OI1U
00102
00100
UUO
UU2
00000
000P7
OllOO
UUI
00000
11113
000-2
01300
OOOKa
01100
05233
1515_
15U6
00000
000P7
OUOO
l'U5

I'
26
)1

).

II
JJ

n

II
II
26
12
J2
J2
J2

J2
II
211
U

.,."
J2

26

Jt
15
U

n

147
II
12
21
14
47
14
U

26
2'

25

JJ
H
47
25

,

373

1620 FORTRAN 11-0
030)0
0]040
01050
0)060
0]010
03010
0]090
03100
03110
O)UO Nll
03130
03140
0)150
03160
03170 U'HRM

SF
TO
til
8L
tM
IH
TF
I
OOIlG
RClY
IIAlY
H
8
DORG
DC

KIIOU-I
KNORK
KNOU
1131
KIIOU

PHASE

PAGE

I~'

N21
.-4
2

,0'

0500.
05011
050]0
05042
0'054
0'066
05071
05090
05097
05098
05110
05U2
0513.
011_1
05142

03180 I NOATA OSC
22

2

,22

051.3

011.0

INDO'

OSA

03220
0)230
032_0
03250

2

DC

OUIO

DC

0....

,

DC

2

,10

..

NO. ERROR
YES, IIOVE K TO FQlTRAN COli. ARfA
III. TO RUD NEXT STATEIIEN'
ERROR, F Ol K OUTSIDE RANGE

)4
J9
-I
49

00000
013]7
00000
03586

00102
00100
00000
00000

2

0!H4'
05150

-5Ul
1

5

05164
0"65
0"66

2

0.172

,

05112
0'171

-,n.
I

,0

051n

,~IOO

0'17'

5

,DOl

05112

I

"

,20

SCSOOA

05187

,

0511"
O'UI

-7021
I

OIl . .
0!1l91

"

X

05151
05156

,20

00000
UU7
000-4
01300
OOOJO
01100
05U'
00000

,

05U.

"

1.
47
I.
46
26
4.

n

051_'

,010

"

,

K IN RANGE
NO. ERROR

,17329

DIIIODA

0)290 OIIlOOA OSC
0
OUOO
DC
-UOO
)
0])10
DC
-01
033Z0
DU IUfDIII

....

.10.

IR. TO READ NEXT STATEIIENT

,0

0
DC
5
J7J29
]
DC
-10
DS
DC

033_0 seSOAT OSC
20
DU
OJJ'O

,KIIORK

"

ose

.

,
,,10

EIIIIES2

DC
I~OOA

0)260 OIIlDU ose
20
0]270
DU
03210

KLNG
N21
.-4

,

03200
0]210

~31

,CHl018
,04

05234
onn
OSlJS
05091
0521'
0.091
02212
0]"6

3Z

0'191
Otl . .

X

,•
-tl97
I

374

1620 'oaT". II-D

o)no

°

OUID

PAGI

....,$1 I-I

,0

SCSOO' OSt

,,,.. s

DUal

,DOl

OliOS

)

OU10

5

aUla
OU"

-6111
I

5

0)400

5
DC
J . .n
)
DC
-01
OSA IUHCS

03410

ot

"

0)'20

OSt
I
5
ot
-0000
OS
DC

,I

01211

,00000

aUll

5

,--4
,

Dun

~99

,-"'I"

°

OU90

0)410
0)"0 IIUT
01450
01UO
0)470
01410 FIIORK
0)490 KIIORK
01500 PSTSN
0)510 PDaJP
03520 LDISK
0)510 FANDK
0)540 fRMESI
01550 ER .. ES2
0)56D ERMES)
01570 12111 NE
0)510 INPUTO
01590

...

OUZO

5
OC
R999R
6
,00000'
DC
-0000'
OS
2
OS
2
Oat 5,PSTSN
PSTSN
OAt S,PDaJP
PDaJP
DAC 5,LDISK
LDISK
OAC S,FANOK
FANDK
OAt 30,URDR, INVALID tONTROL IECORO'
ERRDR, INVALID CDNT~DL IECOIO'
OAt 21,ERRDR, F OR K OUTSIDE llANGE'
ERROR, F 01 K OUTSIDE UNGE'
OAC JZ,ERRDR, INVALID OU"UT UIIIT tOOE'
ERRDR, INVALID DUTPUT UIiIT CODE'
DC
12
, ••" . . 999.99.
R. . . . . .99999
,DO
DC
2
-0
OSA CHI

0)1>00 N21KEY DC
-0'

01610
ODRG
01620 8UFSCS DSS
031>10
OS
0)1>40 aUFEQT 055
031>50
05
03660 8UFOI" 055
0)1>10
OS
011>10 OU""V 05
011>.0
ODRG

I

0""

)

0522'

,00'

06118
100
2
800
2
100
2

DUll

6

oun
OSU5
05U7

2
2
5 x

05241

5 x

2

OS2n

5 x

2

05U'

5 x

onn

10 x

2

051n

21 •

Z

05191

12

05U'

L2

054. .

2

0541.

5

05474
05417

J51)"
)

01>11.
06118
06219
06220
07021
07022

100

Z
100
2
100
2
0

onn

,99999

".9.
16000

11>000

37:;

1620 'DRTUN 11-0
0]700 PHAOOA OSC 1,0
0
03110
5,17290
DC
J7290
0]720
]'050
DC
-50
0)1)0
OC
5,022"
-2218
03750
DC
1
03760

DC

03770

DC

0]710

DC

03190

OC

0)800

DSC
0000
OSC
0
SF
TFM
TF
511
C..
8NE

01810

,
,

~eC"KS

03820 LOPHA
0)810
01840
03850
01860
03870
0)180
01190
01900

4

REC ..KS-9

1600S

5

16001

)

160U

5

16016

"
"
"
"

16015
16016
16017

"

160&1

,ODOO

1601'

,0

11>02)

..

$.'"

WN

03910

TeD

LOP"A

0)920

OENO

TU

'I

16000

-+1.
,IU' SC
OU .... V
,RECMKS
.-6
,10
,10
·-1.
,IUF 5CS-I
.-)6
PHAODA,101
PHAOOA,702

It

PAGE

"HASE 1-'

SET

$YMaOL

TAlLE Ta at CORD !lARU

16026
160,.
"061
16060
l60U
16016
160M
16101
16110

"na
1602.

4

52
16
Z6
12
16

"

..
J.
)1
J6

.....
16016
16054

160"
"O'~

160••
16000
16000
00000
00000

00000

-1117
l60n
OOOJO •
-6l17
01200
00701
00702
00500
00000

00000

17&

16Z0 FDIITUN II-D
UNINE
Al'HRIII
IUFOIM
IUFEQT
IUFSCS
CAllPI
tAlL'2
CHIENO
COMAOO
01100"
DIIliODA
DISKSN
Ea61t40
UIliESI
ERMeS2
ERMES]
FCTEND
FKTEST
INDAfA
IIIPUTD

OSUT
051.,
OTOll
06220
0611.
01930
02.00
159••
OZ262
05166
05174
OUU
021t10

onn

05)37
05)'/3
OUI8
04742
0511t]
OSIt69

INTD'I
LENGTH
lOD,.1
IIIOIItAl
MUlOEF
NUIIEY
'HIOOI
PHIOAT
'HaDDA
PIIOGST
'UCAN
PUSTSN
RECIIIIIS
AFTIl
Il . .
CARD
CHIS
CHI
CDMST
DUMMY

Dun
OU ...
DatTO
00'"

INTLN

D5UT
1.000
OZltli
OZ ....
Dun
OZUIt
OU.1t
160U
150)5
OZUI
ISDn
ISIl.
15Ll9
OUIZ

'"

onn

.....

PAGE

'"AS! I-A

UUT
FA_

FlNG
FiliON
F.. URK
GRIIIK
INDDA
INDIV
INn
lOCAL
10GT
IDPT
10RIC
lORY
IDSII
IPPT
IPTY
JAY

OU. .
00601
Dun
02250
OUZIt
OU. .
onn
016.'
05151
011tZ1t
OUU
00716
00566

oonz

00520
00565
00554
OJ4J.
01466
OU6l

• ~NG
...DR.
lOIS.
lO'HI
lSlIO
Nllitl
Nllit
Nll
NU
N1
NU
Nl
Nil
NUDe
PIPTII
'DIJP
PSTSN
RDDNE
REtlG

STIl

OUU
DUU

onn

160,.
OUOI
OIOli
0211.

02501
0)1t90
Dun

on..

DUll
05091

,onn
onu
0521tl
OU)1

onn

10
Till
TlU
TlU
TlI4
TlCNT
TEND
..ADK
.. ASSI
..US

....

SAVSYIII
SCSDAT
SCSDDA
SUIFCT
USEDFS
"AOIJ'

01.0 •
0)0'1

o.on
O)ln
OZItZ9

ono)

01t1t1Z
OItZlO
0'11tZ
OUItO
OU96
02241
05119
05197

012.)

0"63
04Z9D

OUU
DUll

f .. O OF ONe ASSEMBLY.

377

1620 FDRTRA .. 11-0

PHASE l-B

00010
00020
000)0

......

000.0

I.ZO fORJRAN 11-0
IUD FOUUN 11-0
OORG OZZII
5
,-100
DC
-DIDDC
,Z
1

,"'U

,"ISE I-I
OUII
OZUZ

000'0
00010 NI
00080 H2
00090 W
00100 RECLG
00110
00120
00110
00140
00150

SAVSYM
LENGTH
FLNG
KLNG
PROGS T

00160 COMAOD
00110 USEDFS
00180 SU8FCT
00190
D0200
00210
D0220
OOllO
00240
00250
00260
00210
00280
00290
00]00
00]10
OD]20
00)]0
00]'0
OD]50
DalbO

I
2
2
5
5
5
5
5
*+42,FMo,.-1 ••
IORT,.+23

.-...

022)1

8
DDRG
DS
DS
05
DS
OC

02211
022~0

022U

00)10 "ULOEf DC

022U
022U

12
5

02252
02257

2
5

022'2
02261

5
]0

ozno

z

02191

SETUP RDUlI HE ENTRY

0229..
02296
0229.
0230)
02]08
02)\1
0231.
0232)
0232'

01)]'

I
5
5
5
1,0

02348
02]60
02361
02161
02312
02311
02182
02383

1,0

023n

,

6

022))

IOGT.,1

B

JAY
NXLDC
S T8L
COMST
a I SK SW

oun

DC
,'7
01
,911.91
DC
6
Rl1198
DC
,0
2
-0
,a
5
DC
-0000
,0
OC
2
-0
DC
,000
-00
,RECLG
OS
lZ
OS
5
os
2
os
2
5
,00000
DC
-0000
os 5
]0
,a
DSC
000000000000000000000000000000
,a
DC
I

PUSTSN as
ww
DS
FP2
os
TENO
as
LSTAD DS
P2PTR os
FC TEND as
as
FMON
TF
TFM

5

OZlZJ

K

00050

PAGE

I-I

GO TO exECUIE CALLED ROUTINE

00]80 INTOPI DSC
I,D
a
00390
DC
5.00600
-0600
0o",o0
DC
3,001
-01

26
16
49
49

I
2
2
5
5
5
5
5
02366
00565
00566
00000

02323
-2359
-0000
00000

I
5
5
S
I

02385

02390
D239)

379

1620 FORTRAN 11-0

PAGE

PHASE 1-8

00410

DSA

CARD

02398

00.20

DC

I,'

02398
02)99

FMON+35,BlK8

02~00

II>

02~12

11

004}0 CAllP2 TF.
OOHO
8TM
00450 INOIV DS
00460 •

00470
00480
004QO
00500
00510

•
TBCNT

FMON,CALLP2
I
INDJV • a FOR CARDS, I FOR TYPEWRITH.
FLAGGED 3 FOR PAPER UPE

DS
DAS
00~20
DS
00510
DS
00540
DS
00550
DS
00~60
DS
OOHO
DS
D0580
DS
D0590
OS
00600
DS
00610
OS
TFM
D0620
BTM
00630
00640 8LK8
DS
00650 PRSCAN 80
00660
B
00670
DORG
BNF
00680
00690
TFM
TFM
00700
TFM
00710
TF
00120
SM
oono
00140
5
AM
00150
D0160
TF
SM
00110
D0180
S
00790
A
00800
BD
i'0810
8
JOSlO
OORG
008]0 BEGIN BT"
00'''0 BEG[NA H"
00850
BO
TF
00860
00810
80
00810
TO"
00890
DC
00900
00910
00910

T.

JSO)6
1

02424

,REtlG+5

,I503S
HO,ISIH
,CH[+100
,CHI-103

.116
.566

,520

,532

02359
0232.
I

-2461
-2400

5
a

02429

DS

ENTlOG DS

AHBL
CHI
CHI5
CARD
lOCAl
10GT
IORBC
10PT
10SK
eooET
lOOT
MONCAL
E86440

S X

022~8

a

1501'
15139
15839
1503'
00716
00566
D0520
OOSlZ

430 X
0
0

a
0

0
0
0
0

0055~

.554
,602
.565
,19b
FMDNol5 ,BLKl
FIION
.E86".0
.e8'440+31
e+20 •• "'01 V

00602
005U
00796
OH)O
02442
0241>1
024S~

.]

0247~

02~Z"

... 56
·-3
."41.JNOIY
8A+l,41,10
B4+n,41010
URDAU+2,O',10
S"JLU+II. SJ8L

D2""
02U4
02U4
02 ....
02491
02510

4'

02522

00000

"4
I.

01522

ZiIo

02424
000"1
000"1
000-8
02311

SIITlU+I1,~,IO

02U4

SMTlU+23,STll
SMTlU+Z),05,10
SMTlU+n,ST8l
SMJLUol5,6,I0
FXORFl-5,KlNG
PLUS+41,FlN!;
BAH.oIND[V

OU~.

II
Z2
II

02522
02111
02161
09869
06951
01>951
06961
06963
06975
0'975
06400
06165
02111
02650

·.20
.-)
PUJ,I32,.
'UeNT,O,9
"DDAfr,SINGST
SUISW ,IU U*l
U,INDIV

1.· ..

CH"+14~

CH[-l,CHI'-1
RHOI+H

8
OORG 0-10

015'11
02570

02,.1

02594
0260.

DUll
02UO
026)1
02UI
OZUO

02Ul
OU,..

01 ...
02UI

ono.
OnlO

anu

02129

a
16

11

U
16

26
U
22
11
4)

••
U
I.
4'

26

4'

a
02359
021H

a

0.031>

on ...
0....

10091
OnlO

I'

Inn

11

1'131
02911

-91~0

-24)0

OOO-~

OUll
000-5
02111
000-6
02252
02250

0141.
00000
0-132
00-00
10071
10011
02424
00000

I
4'

1'. .1
00000

380

\~V

1620 FOlTRAN 11-0

oono u

OOMO UNO
00910
00.60
00910
00. .0
009'0
01000
DIDIO BlOC
DIDIO
01010
01040
01050
01060
01070
DIDIO
01090
01100
01110 REAOI
01120
01160
01110
01110
01190 CKRM
01200
01210
01220
01210
01240
01250
01260
01270

RCTY
OS

,e-.

I,'

"M

lou ... n

•

olno
on ..

,e.,

DC

'AlOE

'HASI I-I

onn
02142

1010 T .UROA lA-4.T,
Be4 .-16 •••
INCI •• ]6
RCTY
OS
WATY CHI
CM
CHI.41010.
IOIE LEAOBl
CHI+Z.O,lO,
CIO
.OIE LUDBl
CIO
CHI+4.0,10.
8Ee;I/jA
IE
8
LUDIL
DORIO - )
TFM IORT,·.Zl
8
I oe;,. CODA TA-4. 7.
TFIO •• )5,CHI +144
e.23,2,10
SIO
TF
CKE"D
•• ".CKEND. ,
80
•• 4.,CKENO-l
80
CIO
CKRM-l.CHI
CKRM-24,. ,
IH
8
READ1."
DORG . - )
AIO
CUM-I .2
TOM CKRM-I .. 6
DC
1,' ,-

RUO STATEMENTS FROII T"EWRITER
ALLOWS GOO, SWITCH

,e.'

TUT fOR COMMENT

.

READ fiRST CUD

SCAN lACK TO PLACE RECORD MARK
CHECK FOR 'UOIK CARD

Oll"
021. .
02111
on90
on. .
OU02
0211'

00102

00565
00566
021)0
02114
00000
0
15n9
I'JlJ9
0)106
15141
03106
1514)
02650
0)106

-2T65
-9161
00400
00100
00102

00565
00566
0295)
02953
On)6
0)010
03010
02953
029)0
02194

-2917

II

0295)
0295L
I

-0002
00000

47

0)070
00000
4

00100
00102

15119
15U9
02194
15148
03UI
15138
0)106

00100
000M3
01200
0000I5U9
15HO
00000

03052

000-1
00009
01100
00000

.

16
U

4J

)4
)9

14

olin u
OU)'
02150
OllU
02114
02116
OU . .
02194
02906
0291'
02nO
02942
02954
02"6
02911
02990
0)002
03010
03010
0)022
030))

01280
8NC! e+]6
01290
RCTY
01300 ESNOPL DC
"'.0,*-5
-000
DC
1,' ,--4
01110

030)4
03046
0)052

01120
WAfY
01))0
C"
8E
01140
01345
TO"
01350 LEAD8l 80
TR
01160
01370
8
DORG
01180
01390
AM
01400
C"

0)05'
0)070
0)012
0)094
03106
0311.
O)UO
0)U8
0)131
03150
03162
OHn
O)lU
03186
0)198
03210

14

41
14
46

4.
16
U
16
U
26
U
U

.

46
4'

n

]4

)

00100
DOOM)
01200
000-0
01200
000-0
01200
00000

-9171
J52U
000-2
00000
0)))6
Dun
J5139
01100
00000

0)053

CHI
CHI,4),lO

READI
CHI+9,O.11
.+12,CHI
CHI-I.CHI+1
·-24

+-3
ESHOPl,l.,10
CHI,69,10
IRANCH IF NO STATEMENT NUMSER

OI~IO

SNH

CSPVA-12" ,

OI~20

SF
OS
8T"
8T"
TF

OUTPUT STATEIIENT NUMSER
(STNO.*+12. ,
PUT,
134.8.COLON
ESNO. SY"

01410 TRINO
01440
01450
01460

00000
0
1

)'

.-

OUTSW

39

14
46

15
6.11
CHI-l.CHI"
ERROR.Oll.'
Ll>6. TlCM

BIIIH

•• 72

TON

STSN,O.,
"U.TRINO
TUND.O
. . 2'1,NOINO
EUOR2.5ll •• ,
ll>6,6.10
CHI-I.CHI.S
Ll>6.AFTIL.,.7
5

BIIIF

TDN
8D
8TII
S"
TR

SF

PAGE

'HASE I-I
04251

8NR
TR
erN
CN

0~Z10

sn SlNGU STATEIIINT SIlITCH OFF

IIISSING STATEMENT _IEl A'UR TUNSFER

0'1282
0'1294
0430•
O_UI
OUlO
OU,U
OU54
043 ••
0'1171
0'1190
0~402

00000

•
5

JOZ2'1

6 . . . .~S5 ..
OC
"'6'155
DSA NONAU

DC
OSA

'.'26~'I2 ..

'UNCTION

0'l'l3l
suaROunNi

O'l'lll
0'1'1'13

NONA . .

0'1 •• '

6,444'46 ••

04'141
0'1'15.

DEFINI

"~45'1'

NONARA

DC
'.""''1 ..
Mn164
DSA COIlIlON
DC

'.U"5~ ..

OSA

DIM

IOJ5.54

DC

......." ...

11 ...954

021.0

04220

04'126
O'l'lJZ

02110

028.0 TICII

..
Jl

12

OU26

02110

028ltO

n

12

NONAU

,

DC

021)0

IS
'IS

DilDO
00000
olin
00000
Ol2U
OON12
000-6
151'1'1
J'040

DSA

02'4~2

~l120

n

44

.'

OSA

02810

lit
U

DSA
DC

0'1."
EOUI VALENCE

04.,9
0 . . .'
0 .. 410

CDIlIIDN

oIIllIlSIO•

0""'0
0 .. 41.

S X
JOZZ4

•
5 X

J022'1

•
5 X

J022'1

•
S X

JOn2

•
S

0 .... 11

Jon.

•

RnURN

O""'~

5

......",. ,

04....
0. . . .

JOI61

"''''61
OSA ilONA. .

lnUlli

0.,01
0"'01

00-11
-'U,'II

•

0 .... 11

0 .. "'.'

6

0~Z20
151~~

15Ua
0'))0
0'1128
0'1318
05621
04111
Ol1l5
DUll
09416
0'1228
15"1
04Z28

Dun
OU14
O'l'lZI
O.'I21

02750

02800

n

n

0~222

OS
Ll ••• , .
8
OORG .-~
DC
I.'

021.0

02190

~S

•
•

,• •

JOU"

384

,

\''''' ~

1620 FOIl'"'' 11-0

ot

02170

6.U6)56 ..
026556
DS_ ..a..AU

02.10
02190

DC
6.51.1 . . . .
Nn".
DSI OKlO

02.00

DC
6 ••6 •• 55 ••
M••"5
OSA OKlO

02'10
02'20
02.30
02'.0
02'50
02"0
02.70
02980
029.0
0)000

,_U

IIMAI. I-I
0.,..

STO'

"USE

0." •

,

0.,1.
0"20

JOIn
6

,

0.'21

JO . . .

,

OU.

DC
6,464"3 ••
M•• 5.3
DSI OKlO

fETCN

DC
6,594543, •
N9H"3
DSA lOUT

RECORD

6,414143 ••
DC
"1"343
OS_ lOUT

ACCEPT

6,516455, •
DC
N7."55
OS_ lOUT

PUNCH

,

0.5.
O.,.z

JOUI

,x

O.'U

JO . . .

OUU
OUI)

,•

OU5I

,

J0200

0""1
OUt.

,x

0.56'

,

0 .. , ••
04'"

J0200

, x

0-"10

,

0.,10

0]010

6,636151, •
DC
0].851
DSA lOUT

0]020
03030

DC
6,515949"
N75 •• 9
DSA lOUT

0]0"0
0)050

DC
6.59"541 ••
N94541
OSA "aURA

03060
03010
0]010
030.0

PRINT

5

0.591
0.,,,

JOIOO
6

, x

04602
04608

RUD

6,435655 ••
DC
"35655
DS_ CUL

CONTINUE

DC
6,434153 ..
"3"153

CALL

DSA

0.591

04602

J0200

•

0"'15

5

0"615
0"61'

J022.
6

04624
0 . .2.
04630

JO] ....
6

385

1620 FORTUN 11-0
03100

J0200

04'"

TYPE

PH_Sf 1-8

GOTO

PAGE
X

0 .. '"

o..,n
03110

DC
6."75663. ,
"75663
DSA IF

0]120
0)130 TSST

DC
6,494624 ••
"'4'24

GOTO

04'.1

IFI

0"'"
04'52

..

....

••••

•""
""

"

J0120
6

046"

03140
os
2
COLLECT NAMES TO DETERMINE TYPE OF STMNT
03150 COlNAM TFM •• 42,SYM-26,.
TFM •• 35,CHI
031.0
AM
•• 11,2.10
03110
TF
,CHI,l
OHIO
AM
031.0
*-1.2,10
0]200
SNR !.20,e-13.11
e+32
8
01210
DORG .-]
01220
0]2)0
C'OlN_M-l.l.l0
SM
8NZ COlN_M02"
032"0
0]250
TF" •• )0.SYN-2S
_II
032.0
·.11.2,10
0)270
CF
5
03275 OUTSCE os
0]210
.-•• COlN_,,042
C
8NH --)6
0]2'0
onoo
TF
SYM.COlN_"."2.1I
onl0
88
01320
DORG .-.
0)]]0
CHECK FOR CONTlNU_TlON CUDS
on.o
os
2
0)350 CKCNTU TF" 10RT ••• 2]
on.o
IDGT.C50U_-4.7
8
0)310
CKCNI. CHlSolO
80
onlo
TF" CCNO.0.l0
0]]90
CHI'.430 10
C"
0)400
IE
·.Z4
0]410
TOIl CHI'.'. 0.11
0)420
II
O)UO
DORG ·-10
0]440 CKCIU COl
CCNO.04.10.
rEST 'OR MORE THAN. COIITlNU_TION '_ROS
INE
0)4'0
COl
CNII •• J.10
01.'0
03470
IE
·.44
034.0
T'" CCNO.0.l0
0]490
5'GS·ll.213 ••
SP!UoU
onoo
01110
DO.' 0-)
0]510
0 •• 7.CHII.".
.0 CKCN2.... fIlS ..
uno
511
01,.0
·.21".10
CIII..a
onlO
Olt60 CIIC .. 2 • 0
o.".CIII..a
o.44.CII._1
10
05110
CIIC"2-1.CHII+I2
OitlO
C"

....

X

,

0.,25
O.,n

" ..D

7

6

0465.
04656
0 .....
04610
04692
0.10.
0.716
0472.
0415'
04136
041'"
0.160
0.112
0.714
0.791
041"
OUO'
0 •• 20

0.132

J029.
6
2
0469.
0'H03
046.1
00000
0.'0]
0413.
04760

JOO)]
J'U9
000-2
HU'
000-2
0470L
00000

3J

04655
04. .0
04790
0.790
00000

000-1
01200
JOO).
000-2
00000

n
47
2'
42

0..,.0
047n
10059
00000

04 ....
01100
0"690
00000

I.
16
11

26
11
It!

4'
U
41
16

II

,

OU34
041n
O. . JI
0. . . .
0"60
0.'"
0. . . .
0 . ."
0.'0.
04920
049,.
O••U
0..34
0.966
04. . .
0."0

a....

0."'
DlOO,
01001
010&6
01011
OIOH
OIDlO

OIDN
01014

16

••

."
....
..
...
It)

16

II

2
00'"
00'"
0.922
OllU
I")'
04920

II...

U

00000

1.
47

Oil . .
0'002
I . ."
as002

16
,I

16

U
II
It

all ••

091"
0".2
010.'
0111 •
OlD. .

onll

01106
01101
aso.,

...

-4159
-9179

"

000-0
OIlO"J
01100
000000000

000-.
DilDO
000111
01100
000-0
001115
00000
J59U
100.1
000-2
00000
05111
OlUI
~"'I

au

1610 .aaT••• 11-1

. . . . . 1-.

OJltO
OJAOO
oJala
OJ"O
OJAIO
OJA40

IN
CIC.'-24
I
clcnu
DOIIG .-1
CIC.'-I .2.10
TOil ClCII'-1 .. a
DC
1.' ,-

010"
010. .
01106
OIUI
OSll.

OJ650
OJ. .O
0,.70 CCNO

INC I
RCTY
DC
-0
MAT.,
CII
IE

OIUO
01142
OS I"

0)"0
0)690
01700
onlo
01720
Olno
Oll4o
0)150
01760
03770
onlo
OlltO
OJaOO
0)110
O)azo
03130
DJa40
Olno
03160
0)170
0'"0
03190
01900
0"10
03920
039)0
03940
03950
03960
03970
03980
03990
04000
04010
04020
04030
04040
04050
0401>0
04070
04010
04090
04100
04110
04120

'"

'"
....INR
""
10

CKCN]

OtlCla

..,.

2.0,·-1

011t4
all. .

CHII
CHI',",IO,
CICNTU
CCNO.I,IO
CICN4.FIISM
·.,..CNU'IO
··U.',IO

o,nt

......

CSPv,•••• J7.6l0
CS"VA.n,AVOID.A
tlCNTU
.-1
CNICK .OR IL_S ..ND I!OY' NON BLA.
CICN)'".0.610 •
CICNJ-U ...
TO ICAN ARU
ts"vun.CICNS.II ... 1
tSPVU".,.IO
'M
CltNJ-U
I
DORG .-)
'+JO.tSpv,.,.
tKtN4
SM
• .... 1.10
TR
.tHn'lI
C"VAI".II' ••
8
tKtl4TU
••••••
THE F~LONING 1$ USIO TO COLLeCT STATEIIINl NUlliUS
tSTNO TF
tSORN-I"-I..
SIT iI. IInUiN AD.IIS
8D
·'U.CHI
TR
SNIP' Of. LUDI ... ZEROS
tNI-I.CHI'I ••
--24
DORG .-)
T'" nil-it. 0000. I
tSTNOI',.S'1I-14
tM
tHI .... IO
8NH tSTNOI'I04
•• '1,1,10
'M
tSTNDI TD
.CHI
Til
tHI-I.CHI'1
8NII 0020.tNI.2
H
·.32
DORG .-3
til
tHI •••• IO
8H
t$lN01-U
CM
tSTNot· •• nIl-IO
8NH •• 24
ITM EUOu.ST6 •••
SU"IIIN' NO GR~"ER THAN" DIGITS
SYM.CSTNOI ••• ll
T'"
TR
8
DORG
tM
BE
TF

"

.....

'"

•
""

"

1.20 'OUUN 11-0
04130
04135 RTSW
04136 EIISW
04137 STSN

SF
os
DS
DC

04131 STt
04140
04150
04160
04110
04180
04190
04200
D4210
04220
04UO
04240
04250
04260
04270
04210
04290
04300
04)10
04320
04330
OU40
04350
04360
04310
04310
outO
04400
04"10
04420
04430
04440
04450
044AO
041oT0
04410
04"tO
0449.
044. .
04500
04'l10
04520
0"')0
0"140

D'"''

CSOR"

tS

SALT
SIILNG

Dt
-0
ID
TOM
TDM
TO"
8
ID
TFII
TDII
CN
BE
tN
8H
til
INH
tM
IH
TDII
UM
TFM
"M
AM
..II
Tf
CF
os

'"'"
CII

111M

SCHI

til
IL
SF
DS
I
OOIlG

SF

'VOID

DC
L'
DC

"

TOIII
10
SII
TR

•

01100
00000

11
II

OS04'
010411
I

000-2
00000

4l
)4

O'IA.
00000
2

00100
00102

Itll.

00100
OOOMS
01200
000-1
10082
J5,.'
000-2
00000

."..
11
U
It
11

IF IN OIIllNSION S'A'EIIIMT

un "

osn,

4'

26
II
4.

012"
OS22A
O)U"
O,u,
0.,2A

000-0
01200
0'1411
000-'
00000

u

on. .

"n

IA

..

LIIGI U' SUTIIIINT NU... ER

INITIALUI .. NOT IN IlUlvaUNCE
INITlaLl,1 '11 DR .LOaT SWITC"

TIST PDI FII wall

In FIOII.L TQ FU VAR
INnlALl,1 SYIIM&. UNG'H COUNT

0)6n
000-1
15110
OOJU
00000

U
Jl

0 . . 19
OU.,
I'UI
05410

05)"
1511.
15140
00000

10045
05'01
15139
01606
05501
00000
15ln
05546

0-000
J0041
0000.
01100
000-1
IIU.
15140

0~570

00000

15139
05490
05501
05606
09416
loon

00009
01100
Joon
01100
OON"
05500

,.

..

••

14
4l
11
21
II

"

49

..

14
U

4T

17
Z6

0""
IIn02
on . .
0:72.
o nl
OSTIO
OST"
OUJ4
05T16
on. .
0"&0
o,ua
O!lU'
0"46
Oil"
O!lllO
0,..,

4J
I~

..
••
...
II

49

4J

II
I"

14

n

II
16
It

,.

II

..

U

01910
01942
019,.

U
14
4T
16

OS"I

"

0400,
01010
06010
01011

4'

OS':!
0400

SU

.-)
SYII-ll
2.IT •• - '

Z.· .... 1

Moao

$YII. SALT", II ,
VARSW.O
SlIfLU •• IUIII ..
seN,.l.IO.
CHI· 10 ICHI.ll.
SIITLU

MOil
060"
0'06011
04D1O
Mit'
06. . .
06'"
"IN

TIST 'il I., I'
IY. .OL IS TO I.
IKln.o OFf
N'III . . . . '.11 'MAN • C"'"ACT'"S
'1' wA.lall • •
To IIIItCa" LI'JI&L

w.

U

0'906
0"11

ot...

SIILNG. 12. 10
SALT-a.
SYII-U

10056
I
I
I

387

10

00000

2

..
",11

05,JO
056.,
0 . .14
0''''

"""

..,.

lSl4I

PAGE
3Z

A".. ,.

SCHI.Z.IO
SCHI.40 ... 0

OOO~T

00000
oJan
04U6

AU..

•

060 . .
00000

12
II
U
49

0~6Z7

I~IT

un•

04116
0"41

OUU
01'4'
OS2l2
0,.7"
0,.7P
04n.

0162.

.'
SIILNG.2.10

04!16O
DOAG .-.
.UOR.TI ••
04570 sca
MIlID IIUIIIIIR TON VAUN.I ..

""

0~'51

0"70
on.,
on'4
05606

05611
05625
0,.,.

,00.*
tSTND-I.OIIISN.'.
'IORH.2
VAUN.I ..
$lNOSN.I
5MTlU
",..EOUSN
SCHI.tHI ..
FIDR.L.O ..
SCHI.,.610.
NUIIIEIl
SCHI.6 .... 0.
NUIIIIR
SCHI.4I.610.
tS
SCHI.n.6l0
CS
Flolln.2 ..
SIILNG.O.IO.
SAL H6.SYII-12
SALT'"'S'"-U
SAL HA.2.10
SALT'II.Z.IO
• SCHI.Il.

on. .
oUIO
O!4U
OSU4
0"4'
ou.,
054'4
054. .
05471
0""
05502
0lU4
D552'
onu
on4.
on. .

PAGE
01026
04116

"HASI I-I

SYM-)
I
,--4
,--3
I
I
,1,--2'

J

all to
01202
OS, . .
OS"6
DUll
DUIO
OS,"
OS"4
OUII
OUIZ
au . .
OUM
onll
aliso
ann
011)1
05150
on"
onn
on. .

...,

II

II

II

Z.

II

U

II
Jl
4'

"

II

05)9P
064at
07167
10015
06. .0
OS"4
06001
0'405
,0600J
06102
0600J
06102
0600J
011'4
0400J
DlU4
0'401
0"17
0"00

ot",

0"00
05912
08000
00000
0
0"17
06001
06011"
06010
01917
"170
10041
a
060to
1004,
2

10014
00002
00001
00001
00000
10011
J5U'
00000
000-'
OUOO
0000.
01100
000111
01100
ODONI
01100
DODD'
000-0
JOOIoT
J0046
000-2

ooa-z

0600J
00000

000-2
OOo-Z
000lI0
01100
000",
OUOO

00000
00000
00000

z
'0059
0""
04_
0Il001
111.1
06. .0

O!lto00000
10011
000-1
0400J
00000

09110
0""

00-"
alGOl

au

\1 :t

IUD 'OIITUII 11-0
0_"0
0_600
0_610
OUIO
OU30
0_6_0
0_650
0~660
0~610

"

"II.lUSYII'1
"",,11+6.SYII-I.
'HI, TO, 10,

,

eHI-I,eNI'l

'TFII
ell
INE
T~

IIUIII

o~ . . o

0~1>90

O_TOO
o~no

0.720 NUllS I
O.HO
o~"o

0.150 NUlln
04160
04770
04780 F.IIUMB
04790
0_100
0.110
0'810

DORIO
CII
IE
ell
III"
ell
'ilL
TO
TR
AM
AM

,

DORIO
TOil
SII
C
8NL
BTII
O~I]O
TF
048~0
TF
0.150
SF
0~160 MODE
DC
-0
04870 F.ORFL De
-0
04880
B
04890
DORIO
0~900 HNUMB TFM
CII
0~910
8E
0"920
0~9]0
TFM
0"9"0 NUMB3 SM
0~950
TR
04960
eM
0,,970 VARBR BE
0 .. 980
8NH
TFII
0"9'10
05000
CM
05010
BNL
05020 NUM82 TO
OSO}O
AM
8
050"0
05050
DORIO
05060 CMPAR CM
BNE
05070
TFM
05080
TOM
05090
CM
05100
BL
05110
BNE
05120

PAGe

""ASI I ••

TIST ,oa LIAOIIIG liaOS

•• J2
'-56
.-J
CHI,), 10
fLIIUIII
CHI,I>9,IO
FlllUlIl
IIUIIIl·6,SYM.1
-+24
,C~J,

,

e.O'LEeT IIAIITISSA

eHI-IoCHI'1
HUMI'6,I,10
SYII":30, I ,10
NUIII

·-f
FXDR'l,2,.
SVII-]O,I.IO
KLIIG,SVM-]O ..
e+2.
ERROR.ln.9.
SVII-30.TENZ
SVM+l,NUMIH •• ,ll,
5YN+l,,2
2,0,--2

SET FU

O~

FLOAT 511 TO FIX CaNST

TEST IF FU IlUIIIU EXCEEDS K
FUED POI liT IlUIIIU

GREATE~

THAll K

RIGHT JUSTlF.Y VALUE

116U.
116IU
116UI
06110
116'"
116U'
0 . . .2
06111
061 . .
OUII6
06211
06230
06U2
062M
06266
062TI
062.0
06101
06110
06110
06322
06334
06346
06358
06170
DUll

It
It

OU9~

32

06405

SIITLU
'-3
VAR8R'6.NUIIB]
SVM-3001.10
e+2.
VARBR'6.NUII82'12
SVII-30.1010
CHI-I.CHI'I
CHI. TO.IO

06~06

0641_
0. . . .
06~26
06~)1

'06410
06461
064J~

lUNCH BACK TO SHIFT OFF LEAOlliG ZEROS

CIIPAR
VU8U6.NUII82t12
NUIIBl06,SVM'1

·.24
NUII81'6.CHI.6.
NUMBI'6,1.10
NUMn'll

06U6
0649a
06510
06522
065)~
065~6

COLLECT NUIIIER

.-]

CHI,45,10.
PLUS012
PLUS+lI,O,10
PLUS . . ,I
CHI·2.20010

I.

-.
JJ

1_

••

..

I.
U

••n

.
."
11
II

11

12

2.

17

26
26

06~0)

2.0,.

...

.,

TEST FOR E TYPE

06551
06570
06582
06590
06590
06602
' 0661~
06626
066031
06650
06662

·"36
w+36

116111
"U'
06UI

1511'

069_0
JOOIO
OOOPO
01200
151_0
00000

"U9
0 . . 1_
15U.
06110
06260
06266
00000
"lJI
06260
10029
06182

000-3
OIZOO
0000.
OUOO
JOO.O
01300
15139
""0
000-1
000-1
00000

06_0'
10029
02252
06370
09330
10029
10060
J0060
2

00002
000-1
10029
01300
OOJ77
loon
062600000

10059
06"0

lJ

2

••

.
16
14

16

12
31
U
46

n

16
14

01>9~0

-6~62

IDOl.

000-1
01200
-6570
000-1

06~62

06504
10029
ISUI
15U9
00000
06590
0650~

11

06260
06570
062606260

~9

06~H

14
H
16
U

15139
068)0
06829
06119

'"
25

14
H
~7

'00000

0650~

"1~1

06616
06698

"I~O

OOOPO
01200
01100
-6570
J0060
01300
15139
000-1
00000
000115
01200
000-0
00001
OOOKO
01300
01200

389

1620 FORTRAN 11-0

PHASE 1-8

05130
TOM PLUS-I.2
05140
TR
CHI-I.CHI"
05150
CM
CHI+2.69,10
w+24
05160
8H
05170 EXCESS 8TM ER"OR.178,9,
I~VALIO EXPONENT
TO
05180
PlUS'1I.CH .. 2
05190
TR
CHI-I.CHI')
05200
CM
CH1069.10
OHIO
BNH PLUS
05220
S
PLUS'IO.PLUS'"
052]0
TO
PLUS'lI,CHI
052~0
TR
CHI-I.CHI'I
05250 PLUS
AM
SYIII-30,,"1
05260
TF
SVII.SV"-30
05270
SF
SYM-29
TF
05210
SVII-2. S.1I-30. 7
05290
8V
EXCESS
05300
80
SIIITLU.SVIII-2'
TFII SYII.99,1011
05310
05320
8
SIITLU
05330
DORIO . - ]
05]"0 ZERSYM DC
30.0
-00000000000000000000000000000
OS350
DC
Jo010.ZUS.II-21
-10
05360
SVIIIOL TAB'LE LOOK UP
05310 05]10 SIITLU
IIIOOAO, ST8L-~
TFIII SIIAOO
0'390
TFIII SIICNT. STBL-6
05~00
05410
IIIODAO IS USED TO TEST '011 fIX DR fLOAT
05~20
SlllAOO IIllL CONTAIN THE AOOIIE$S OF 'HE SVIIIOL ENTRY AT UIT
0'4]0
SIIICNT 1$ USED TO FINO YARI.AlLE DR LITERAL
OS440
TF
lSTEN,T8CNT
Alii
0'450
LSTEN.l.10
CF
0'460
OIlYAR
05470 LSTEII OS
05410
B
SIIILooP."
OO~G --3
05~'0
05500 SIIILOOP Sill
SIIICNT.IO.IO
05510 OUTSN OS
.SIILOOP
05520
511
IIDOAO'10.tO
All
o'no
SIIADO.IO.10
055.0
lSTEN.1.IO
S"
8H
JOE
055'0
05560
TF
--n.SIltNT
511
O'HO
++U,'O.lO
IN~
0'''10
TIL'UL
0'590'
A" Tlell'.l.IO
01600,
1
AOVAII
DD~G .-J
0'610
05620 TlLFUL ITII EIIIIOIII.74,9,
0"40
1I0000AL.,i
AIDa, ·JOB CAli IIOT 10 011
ODa; --3
01650
10
0'660 JDI
LlTlIlhY'.SII. ,
'UIIt'! . , IV.... IS , eOllITAIIT
on70
,LA; AT SIICIIT IIIPLIIS COIISTAIIT
aN' ++IO.SCNT,l1.

......
..

......•

""

.-

•

PAGE
066"
066a6
06691
06710
06722
06n~

06746
06758
06JJO
06712
06794
06806
06111
06130
06""
06154
06166
06171
06190
06902
06910
06.39

15
]1
I~

46

17
2'

n

I~

H

22
25
]1

11
26

3Z
26

'"
"
U

~.

06819
15138
15141
onn
09330
06829
15131
15139
06811
06128
06129
15138
10029
10059
100)0
10057
06722
on~o

10059
on~o

ISI~O

00009
01100
00J78
15141
151~2

00009
01100
06829
15139
151~0

-0000
1002'
00000
J0029
01~00

100]0
OOORR
00000

]0

06911

3

-un

0 . . .0
0695'
069"

"

07871
0719~

-0000

07247

-2371

06976
0"11
01000
OTOll
01011
DTOIO
OTOZO
Dl020
OTOJI
OTO"
OT056
OTO,I
01010

26

OTOll
OTOll
01076
0
01056

02429
000-1
00000

07247
0
01171
07194
OTOll
OTU6
Oll"
01UI
OTU6
01.,9
01071

OOOJO
OOOJO
OOOJO
000-1
01100
07247
000110
00000
000-1
00000

09416
OOT96

00000

01~z

ona.
0111.
01111
01U6
01U6
011"
01156
On56
01161

12

00002

16
16

11
U
_9
11
11

II
11

..••
.
26

11
11

17

U

~-

117672
0""

00000

00-7~

On67
0724P

391J

"20 FOUUN II-D

....AII I-I

--,

I
SlIlOD'
OOIlG
,Sfll
C
OS
O~UO
IV
S!lLOO'
o~no
lilliE S"lOO'
SIT DIGIT IN 111511 IF VAIlIAILI FOUND
TOIl INSII,I"
0'''0
CF
SIIAOD
O"SO
OS760 SIICNT OS
TUT IF SYIIIOL liAS LIllIAn FUIICT
05770
SIIAOD,FCTIIID, ,
C
FCTEST .. ,
8H
0"10
All
SIICIIT,I,IO
0'190
IIETUIlII IF IN DIIIEIISIDN STATIIlENT
C SOIlIl-I,DIIISII,~,
OSIOO
80
OSiIO
110
"",IGUSII
CII
058Z0
CHI,2',IO
osno
8
·.20
051140
DOIIG . - )
nsno
CII
SCHI,Z4,610
IINII "20, SIICNT ,II
05160
05110
8
FCTST
ODIIG .-J
05110
BE
OIIlERR+IZ
05190
TEST FOil 0111 VAIlIAILE
.+20. SMCNT ,ll,
05900
80
05910
8
LUXIT
05920
OOIlG .-4
0592' FNTSW2 OSC 1,0
0
0111 VAIl USED 1110 0111 IN 110 STATEIIENT
BD
05930
LUXIT ,10511"
05915
LUX IT, FNTSII2
80
0111 VAR USID 11/0 0111 IN CAll
05940
80
LUXIT
,CALlSII ..
SAllE FilII COIIIION
05950
80
COilE ,CDIISII"
05960
lUXIT-I2,EGUSII
BO
DIIIEIISIDNID VAil useD IIITH OUT SU8SCRIPT
05910 DIIIERR 8TII ERROR,71,9,
05980
BO
CO"UZ,CDIISII
•• ZO,SMCNT,ll
05990
BD
06000
DIIiERR
B
DORG --3
06005
SET OIIiENSIOII VARIABLE SIIITCH
06010
SF
O.. VAR ...
06020
EXIT FROII TAIlE LOOK UP
EXIT IF Dun II NOT SET
06010 LUXIT BNF CSOIIN-I,OUTSII,6,
06040
CF
OUTSII
PUT, SIIAOD-I
06050
BT
06060
BNF e.".,.,OMVAR
CF
06010
O"VAII
06080 VARSW DS
OUTSCE ,C SORH-I
06090
TF
OUTSC
06100
B
DOllG ·-1
06110
TEST IF SVIIIOL WAS A FUNt nOlI HAilE
BNF ·.32
,FNTSW ..
06120
AIIITH STATEIIENT CAll
061)0
8TII PUT,OlS4,'.
CSORN-I,,6
06140
8
06150
OORG .-3
e+20,FNTSW, ,
06160
DIGIT AHD NO flAG I"PlIES SUBPIIOGRAII
BO
06170
B
CSOllN-I .. 6
06180
DOllG '-3
STATEIIENT FUNCTION PIIEV DEFINED
06190
AERRl.OMM ••
80

0"10
o~ . . o
0"00
OHIO IIIADD

,e-,

,-

......

......

,-

01110
01 . .1
onll
on . .
OUOO
07111
On2.
0'21.
on.,
on. .
OUIO
onn
OUI.
OU. .
OUOI
01120
OU21
on21
on.o
on,z
01360
07160
07172
onl4
on91
07191
07192
0140.
0,","
014Z1
01440
01452
01464
01416
01411
01496
01496
01508
01520
01512
01544
01556
01561
01568
01510
on . .
0"11
01600
01612
01620
01620
01612
016 ..0
01640

..
2'

.,••n

.
"
.'".
n

PAGE
0'020

00000

00000
0
0'020
0'020
0121'
071"

01.00
01200
00001
00000

°

loon

0''"'0

02111
01100
000-1
1001.
10011
OOOK.
00000

0600J
01360
01nz

000K4
01Z"
00000

01464
07192
01501

01200
0724P
00000

07501
01501
01501
11961
01496
09HO
09542
01"96
014'2

10091
0,,91
10019
10090
10088
00-13
10090
0124P
001100

12

01016

00000

44

056111
0'020
09036
01581
08016
0
04195
10464

01020
00000
01191
01016
00000

01620
09036
0568R

10010
0-154
00000

49

01640
056811

10080
00000

4J

09510

10081

2"

II
U

I"

'14"
4J

'"
41

U
U
41
U
11
4J

..
43

11

21
44
]J

26
49
44

IT

49
41

on'"
0lU2
01,.,
0"111
OUli

nut

11'

05689
00000

39 J

1620 FORTRAN 11-0
06200
06210
06215
06220
06210
06240
06250
06260
06210
06280
06290
06100
06310
06120
06330
06360
06]10
06380
06390
06400
06410
06415
06416
06420
06410
06440
06450
06460
06410
06410
06490
0"00
06510
06520
065:30
06540
06550
06560
06510
06580
06590
06600
06610
06620
06610
06640
0.150
0 . .60
0.610
066.0
06690
06100
06710
06110
o.no
0".0

PAGE

PHASE 1-:8

PUT .0153,1.
FUNCTION OPERATOII CALL
CSORN-I,,6
8
OOllG --3
SEARCH SYII80l TABlE FOR CONSTANTS
CONSTS HAVE FUG
l ITERL 8NF S"lOOP, SMCNT ,II.
lRANCH IF lOOKING-UP SUTEIIENT NUII.EII
BD
LUSTNO,STNOSW"
FXlIT,FXORFl, ,
III IF SEAIICHI NG FOil F UEO CONST
8D
SlIlOOP,lIOOAO,ll,
10
SIIAOO, SVII,6,
COIIPAIIE CHARACTEIIISTICS
lITF
C
8NE SlIlOOP
AOUVE ,511AOO
TF
AOUVE
CF
tF
SMCNT. ,6
SM
AOUVE,2,610
SMADD ,SYM ... Z.6,
COllPAIlE IIAIIT! SSA
C
_+44
8E
AM
ADlAVE,Z,610
SF
SIICNT,,6
SMLOOP
8
OORG --I
ADSAVE,2,610
A"
SMCNT, ,6
SF
IIOOAO DS
TOM INSW,I
SIIADO
Ell061 CF
CHI,24,I0
CII
BNE LUXIT
BTII ERROR,31S,9
TEST FOil SINGLE SUTEIIEIIT FUIICnON 011 FUNCTlOII SUIIIOUTIIilE
FCTST 8E
·.36
10
-'24,CAlUM
I NtOllllECT USE DF SUBPIIOGUII NAME
1111109 BT" ERROR,07'.9,
FUNtnON SUIIIOUTINE
TOil FNTSII,I ..
BNF lUXIT,SMCNT,1I
SF
FNTSII",
LUXIT
8
001110 ·-3
.'20,IIODAD,11,
DIGIT IIIOICATES FIX VAil
FXlIT 80
SIIlOOP
8
DOIIG .-1
TEST FOIl STATEIIENT NO.
INF SIIlOOP ,IIOOAO, lI,
SIIADO, SVII, 6
C
INE SIIlOOP
U106l
I
OOIlG --)
ENTIII' TO ADD A NIII VAil " I l l TO $1'''IOl TAIU
AOVAII CF
SIIAOo
,AOVAII
DIIVAII OS
TOIl IIISw,O
All
SIICNT,l,lO
1I00&O,FXOIIFL,6,
TO
SF
1100&0".
10
AOLIT,VAUII"
'"MeH TO ADO COIIST AliT
lIaD IYIIIDL STClllAII IY flUlIIllI ap CHAII
A
IIILot, SllLNG"
TF
".lOC,IYII,.,
IIOV. 1'111. I . . . 11'11 "CIlIA"
SNOa,BlOC,',
IIDV. • . . Of' " . IIITJI IYIIIIIL TAILI
AJlVlDP TF

......

IT"

......

,-

......

......

••••••

01652
0166"
01612
07612
01684
01696
01101
01120
0111Z
01144
07156
01168
0"10
01192
0110.
01116
01128
01 •• 0
01141
011. .
01160
01111
01112
01 . ."
011. .
01901
01920
0193Z
0194.
01956
01961
01910
07992
OIOD.
01012
01012
0.024
0101Z
OIOJa
DID ••
01016
010.1
01076
01076
01076
01011
01100
01111
0""
01111
0"'1

01160

ol"a

11
49
44
41

43
10]

24
41
26
J]

n
lZ
24
46

II
32

'"II
12

..
'"
n

33

11

46

..

.J

11

l5

12

.,'"

.,
44
24

41

••
n

.
"
,
II

n

11

Jl
II
II

0'016
056811

0-15:3
00000

01020
08696
08012
01020
On9M
01020
08411
01411
01Z""
OI.,J
On911
018 .. 1
OI41J
012",
010Z0

0124P
10011
06405
0181J
10059
01200
On94
00000
00000
OOO-Z
10051
01200
OOO-Z
00000
00000

0 •• 1J

000-2
00000

0124P
0
03219
01\94
UU9
0750a
09130

14

00001
00000
0001(4
D1200
OOlll

0"68
01961
09]]0
10010
ono.
10010
onol

OlZOO
10019
00-19
00001
072"P
00000
00000

01012
0'020

01l1J
00000

O'OZO
011'"
070Z0
01114

0"1J
100tt
01200
00000

01194
0
01Z19
07241
01lU
onu
o.n•
OZnl
oun
Oll'"

00000
000-)
••.05
00000
0"67
0""

00000

lOll'.
OU12

U2

16Z0 fORTRAN 11-0
0"50
0".0
06770
06710
06190
0 . .00
06110
06no
06130
061.0
06150
0"60
06170
06110
06"0
06900
06910
06920
06930
06940
06950
06"0
06910
06"0
06990
07000
07010
01020
07030
07040
07050
01060
01070
070AO
07090
07100
07110
01120
07UO
01140
01150
01160
07110
07180
07190
01200
07210
07220
07210
01HO
07250
07260
07270
07210
07290

10
I

ADYA~2

OO~G

AOVUI SII
AN
TF
All
ADVU2 BO

·.Z4,COMS." ,
SMCNf ••••

a

CHI.24.10
•• 20

DO~G

.-)

eN
BHE
BD
80
80
TOM

SCHI.24.610
lUXIT
SUI'" ,EQUSW,.
lUX IT. SUBSII ••
eONE~2 .CO"SII

TO"

SMCNT ,,6

FNTSW.l"

1,'

ASC21.0"M

R

LUJ(I T t

DO~G

--)

AOSU8P BNF
CF
lDSAVE OS
A"

DO NOT SET SIIITCH IF IN DECLAUTlDN STilT
SET SIIITCH

I.

80
8T"

TIST ·If IN SUIROUTINE STAUIIINT
GOTO COLLECT DINENSIONS If IN DIll
TEST IF IN CONNON
SET FUG DN INDICATO~ IF COIlIlON VARIAIlE

e+32 ,EQUSW"

DC

SUBU

'UCE OOUIU ENUY fO~ DIIIENSION YA~

eS~H-l.DIIISII.6.

SETlHD BIfF
SF
SUITST BD
eN

'AGE

.-)

SII'00.10.10
TlCNT .1.10
SNAOD.NIlOt •••
SIIADD.l0.10
ADsuap. SUISII ••

aD

'HASI I-I

' U ' l f IN DIIIENSION STAYEIIEN'

AOYU1.01IlSII ••

FO~

FUNCTION HANe

lA,

E:RAOR,170,9.
DIll VAR IN EQUn 1110 'REVIOUS OI"ENSIDNS
ENTRY TO PLACE VARIABlE IN SUBROUTINE DEFIHITION IN TABLE
THE SE VARIAILE ARE PLACED IN TMICE BECAUSE OF POSSIBLE
DIMENSIONING LATER

•• "4,SUBSW
SUBSW

.'

SJltAOO, 10,10

8
SETINO
OORG 0-3
SF
SUBSM
SM
SNlDOolO.IO
AN
TBCHT 01.10
B
ADVlOP",
BRANCH TO PLACE SYIIIOL IN SECoNO TJME
DOR.G --3
ENTRY TO PLACE CO~STlNTS IN TAILE
AOST .. , ST .. OSW,.
lOllT 80
BRANCH TO ADD STATENEHT ~UMBER
80
BUNCH TO ADD FIX CoNST
ADXLIT,FXORFL"
A
~XLOC.FLNG
TF
NXLOC.SYM-2,6,
NOVE IN FLOATING NA~TlSSA
AM
NXLOC.2.10
TF
S"'AOO,NXLOC,6.
SET SYM ADD I NTO TABLE
NXlOC,SYM,6,
ADLITI TF
NOVE CHARACTERISTIC OR FIX COHST
SM
SM"OD,l,10
SMolDD, ,6
SF

.....

A~

5M400.1.10

E37061+12
OORG . - )
AOXLIT A
NXLOC. KlNG
8

olln

011 . .
Dna.
01Za.
Oil 16
OlZlI
01l.0
o.nz
Oil. .
01l7.
DUll
onoo
onu
OU24
OUIZ
OIUZ
0'344
ons.
01161
0,310
01)92
01404
08415

.J

••

01l0.
012U

100••
00000

12

07194
OZU.
071.11
011'.
0 ....
056n

OOOJO
000-1
OUU
OOOJO
100.2
100••
100.0
00000
100••
000K4
00000

11
16
11
4J
4J
44
JZ
4J
14
4'
14
47
43
43
41
15

U

onoo

01Z4'
onu

uu.

OU44
0600J
01501
01436
0750.
09542
100BO
0124P
I

OOOK4
01100
10011
100.2
10090
00001
00000

08416
08428
01436
0'436

4)
49

U212
01501

10087
00000

17

091)0

00J70

084. .
01460
01471
OB412
08414
01492
0849Z
01504
01516
01528
01536

H

0'492
10092

10092
00000

49

07194
01276

OOOJO
00000

3Z
lZ
11
49

10092
01194
02429
01172

00000
OOOJO
000-1
00000

4J
41

11
49

01760
01664
02372
0231K
02312
0119M
0237K
01194
0719N
01194
07196

10083
06405
02250
10057
000-2
02312
10059
000-1
00000
000-1
00000

21

02372

02252

085)6
01541
01560
01572
01514
on"
0160.
08620
0.6)2
01644
08656
01664
08664

1)

a

11

21
26
11
26
26
12
32

15

3ll:!

1620

FO~TRA~

11-0

PHASE 1-8

TF
01300
SM,t,OO,NXlOC,6
01310
B
AOll T\
.. DORG .-3
07320
01no
ENTER WHEN LOOK I ~G UP S TA TENENT NUIIBERS
07]100 LUSTNO BNF •• 20, IIIIOOAO , 11 t
p
07)50
SIILoOP
07360
OORG --3
07370
C
SMAOO.SYJIII,6
01380
8HE SMLODP
07)90
TO" STNOSW.O
OHOO
B
E31061-12."
BRAHCH TO SET I~SII AND GO TO LUXIT
07410
OORG '-3
01420
ENTER TO ADD STATENENT NUNBER
074)0 AOSTN AN
"'XlOC,4,10
TF
SMAOO,fIIXlOC,6,
07""0
MOVE STlN~T NO. AODRESS TO TABLE
07450
CF
MOOAO, .6,
CLEAR FLAG FOR SUTENENT HUMBER
07460
TON STNOSM.O
01410
B
AOll T\
8TM ERROR,31lt,9,
07480
ILLEGAL USE OF FUNCTIOH HA"E
07490 FCTEST 80
--12.COIII$W, ,
TEST FOR FUNCTION HAilE IN COIINON
07500
BO
*-Z4,EQUSW"
FUNCT HANE IN EQUIV
01510
80
*-36,01"5111"
I
07520
80
*-1t8, I OSW
07530
80
FCTEST-12.0NN
01540
CN
CHI.Z4.10
07550
8~E
FCTEST-12
07560
TF
e+]5,5"AOO
AN
07510.
e+23,5,10
07510
TF
rfMP, ••
07590
SM
TENP.E~TlOG-5
07600
TEMP,2.l0
N"
01610
SF
97
07620 REF
os
01630
TF" 0+30.USEOFS-I
07640
A
a+11.9.
TOM ,1,10,
01650
SET IHOICATO~ FOil FUNCTIOH USED
07660
8
LUXIT
07610 PUT
BO
EXIT .ERSM
01610
TF
PUTOUT .PUT-I
01690
B
E94270
07700
OOIlG 0-)
01710
TF
PU10UT .'UT-2
01720 E94210 T~
CARO.'UTOUT-3.l
07130
--6,4,10
A"
07140
CII
·-II.CARO.IOO
07150
e+14
'E
07160
I.
07770
0011'
017.0
TFII 10RT.·.n
01790
IOPT.IIITO,.7
AN
07100
IHTO,,·,.1.10
07110
e+) •• 00200 ..
CtT7 IT 011 511 I
IICTY
07120
07UO
MHTY CUO
07140
T'" E.4nO-6.CUD
01150 EXIT
II
186440

......

.-

.-,

•
•

PAGE
08676
01681
01696

26
49

0719N
0160B

02312
00000

08696
0810B
08716
01116
01128
01140
01752
08760

44
49

08716
07020

0787J
00000

24
41

0119N
01020
10083
07812

10059
01200
00000
00000

02312
011911
0787J
10083
08601
09330
08120
08120
01820
01820
OIlZO
15139
01120
01951
01951
04161
04161
04161
00097
0
0'011
0'011
00000
onol
09Z14
09J72
0.010

000-4
02312
00000
00000
00000
00L74
10090
10088
100B4
10091
10087
000K4
01200
07194
000-5
00000
-224)
000-2
00000

0.J72
J'03.
0.0 . .
090. .
DtUO
00000

0.03.
0936'
000-4
J5U6
01Z00
00000

08160
01172
01114
08196
01808
08120
08132
08844
01156
01168
0.110
01192
08904
01916
0892'

U

49
11

26
3l

U

49
\1
U

43
43

41
43

14
47
26

11

O"~O

26

0195Z

12

089'~

0197.
019"
0....
09000
O.Oll
0.014
0901.
09041
0.0.0
09061
09061
090'0
090.2
OtlO.
0.116
09",
0.110
0.110
Otl41
09114
09166
091"
Otl . .
09101
0.114

.
13
JZ
2&
I'

••

4J

Z'
49

Z6
Jl
11

.,

I.

.

U

.••

OOU,

49

oonz

11

on.o
09101
00000
11016
0 . .16
0'410

.6

16
U

16

-2262
00091
000-1
00000
0562.
0'0)5
00000

-"51

-'Ul

000-1
00100
0010Z
00100
JIG ••
00000

194

1620 ,aa'16N 11-0

01110

OOIlG '-4
OSC 2.02
02
OSA IN'OP!

01890

DC

0"60
01110 IIHO'

TFM
10
TFM
I
CM
BE
BO
ITM
OS
TOM
TO"
nlOIO
TF
08020
RCTY
08010 PUTOUT OS
08040
DC

01900 SPElIl
01910
01920
01930
01.40
01950
01960
01910 SPGS
01910
07990 £RROR
01000

OB050
08060
08010
n8010
080.0
08100
08110
08120
08130
08140
01150
08160
08170
08180
08190
08200
08210
08220

8C I
WNTY
SPTY
WHY
SPTY
WNTY
SPTY
WHY
E94620 B
£RRORZ TOM
TO"

...AII 1-'

'AGE

1 ••

2

0.U7

5

09217
0'121

-un

OU10
09H2
09254
09U6
0'171
09290
0'102
09U4

S"S.II.011 ••
SPGS.INOIY

lOR', •• , ..

10GT.c.OATA-•• l,
CHU,4J,I0
•• 24
s,eU_Z4,CHI '.10
EUOII.07l.'
4
ERSW.I
£94620.1,9
UMU_14.UIOa_1

09211
DUll

CHICI FOI CONTINUATION CAIOS

onlt
09no
09)41
09154
09)66
09)72
0'17)

,--S

1.' ,--4t

o'un

•• 14
ESNO-)

0'190
0940l
0941.
onu
09U.
09450
09 •• Z
09414
09. . .
0.4"
0.510
09522
09530
0.530
09542
0"42

PLUSS
ESNOPL-)
ERMES
8EGINA
£94620_I,l

JAY,.

ERM£S.14.£11I01l2-1
ERROh)6
OORG '-3
URAL
BTM ER"OR,316,.
COMEII BT" ERROII,H2.'.
I NCOU£t' CDMIION STAfiMENT
CO"ER2 os
.CO"EII
END
80
'.ZO.SU8FCT
08210
8
·.32
08240
OORG .-3
•• 201t,RTSW
08250
8D
8TM EIlIIOIl2.511 ••
08260
08210
8Y
-+12
,ERSW, •
SKIP STORAGE AlLOCATION IF
08280
8D
"ONCAL
082.0
8TM PUT,
141".END
08300
140 ••• DUMMY
8T" PUT,
8TM PUT,
08310
132,I.SEMI COLON
08120
E94210.6.CAII0
C"
08HO
E86440 •• ,
BE
EX IT TO STORAGE ALLOCATION
TOM EXIT+I.9
08340
08350
8
E94210-50
08]60
OORG .-3
TF
0

D.'"

09566
09574
09514
0"'6
0959'
P~OG

HAD ERII

0~610

09622
0~61.

09646
09658
09670
09682
09694
09102

.

U
16
U

14
46
4'

17

"

15

,I

0.JZ5
0.U4
00U5
00566
nU9
09U.
OU54
09no
4
056U
09475

26
)4

D•• "
00000
0
I

46

09462
02133
00000
10011
00000
01049
00000
09911
OZ650
0 •• 75

)I

J4
)t

)4
11
14
).

••

""

09995
09)66

lJ

0')30
09330
0
0.5H
09598

41
49
H

17
46
H
11

11
11
14
46

1'J

4'

00-71
02U4
-9271
-9119
OOOMl
OUOO

"

...

00-71

00001
0000.
09)29
00102

00100
00100
00101
00100
00101
00100
00101
00100
00000
00002
00004
0'.85
00000

Dun

lI>
4'

17

17

00L16
00L12
02293
00000

09598
094"
0.610
00196
09D16
09016
09036
0.086
02430
09215
0'110

05625
OON7I

01400
05626
0-141
0-140
0-132
J5016
01200
00009
00000

395

1620 FOURAN 11-0
08170 8LK!
08380

OSC
22
OSA

2,22

09708

I.'

09108
0910.

DC

08400 BLKIA

OSC 1.0
0
DC
5.11600
J7600
,Olt:)
DC
3
-43
OSA lOUT

08410

08430

PAGE

D911'J

09723
09123
09124

DC

,

I. '

DSC
22
DSA

2.22

09725

8LK2A

09131

I, •

09131
0'732

OC

08480 '8LK2A

DSC 1.0
0
DC
5011400
J7400
),046
DC
-46
OSA lour

084~0

08500
08510

I

091\1

08450 8LK2

08410

5 x
-9110

09110

08440

08460

5 X
J0200
I

5 x
-9133
1

09733
09711
D.141
091. .

,

09746
09747

J0200
I

X

08520

OC

1 ••

08530 BLK3

2.22

0914'

2

D8540

OSC
22
OSA

8lKlA

0.154

5 X

on50

DC

I.'

097'4
0""

D8560 8LKU

DSC 1.0
0
DC
5.174'0
J7450
DC
1,0"
-4'
OSA lOUT

01510
08580
08590

18

09102

BlKlA

08390

08420

PHASE 1-8

-'156
1

o.n.
0"'1

5

0""

on..

5
J0200
1

0 . .00

DC

1. '

0.".
o.no

01610 ILK4

OSC
22

l.U

onll

196

r#'

lUO 'OUUN II-D

'"All I-I

"GE

o"zo

DSA

UUA

0.610

DC

1 ••

0 . . .0 8LUA

01670

DSC
1.0
0
DC
5011500
JnOO
),046
DC
-46
DSA
lOUT

01610

DC

I. '

01690 8LK5

DSC
22
OSA

2.22

0979.

08700

8LK5A

09100

01110

DC

I ••

09100
09101

01720 8LKS ...

DSC 1,0
0
5,17no
DC
J7650
),046
DC
-46
OSA
lOUT

OIUO
01.60

08HO
08740
08750

o"n
o"n

09711

1

0979Z

,

09792
09191

J0200
I

2

,
-"02
I

09l0l
09107
09110
09815

DC

I,'

08770 8LK6

DSC
22
DSA

2,22

09117

08800 8LK6A

1

097 ••

08760

08790

-""

OUlI

on"

09815
09116

08780

l'

BLK"

09821

DC

I, '

0982)
09824

DSC

1,0

onn

5 x
J0200
1

-912'
I

0

08810

091)0

DC
5,11550
J7'i-50
),046
DC
-46
DSA
lOUT

08820
08830

098)3
09818

08840

DC

I,'

098)8
09819

08850 8LK1

DSC
22
OSA

2.22

0'840

SLUA

09146

08860

5 X

JOlOO
I

5 X

397

1620 FORTRAN 11-0

PHASE 1-8

PAGE
09. . .
09847

08870

DC

08880 SLK 7"

1,0
OSC
0
DC
5.17700
J7700
]
DC
.100
JOO
OSA E86440

09161

OC

08890
08900
08910
08920

089)0 URDA TA DSA
08940
DC
-6'
08950 COOATA DSA
08960

DC
JO'
08910 C5DATA DSA

I, '

09861

3,06'

09161
09170

CHI

09815

3,10'

09.n
0917.

·.11, ,

09160
0.170
Otl.O

.'

OAe ),END
fNO
OS
40
SY"
OS
2
DC
16,0
-000000000000000
ZUU DS
,--2
,e ••
UNZ
OS
S"ISST DC
1.0

0'190 DOTUN OSC
0

09156

I, '

),10'
DC
JO'
08990 MOOAFT TFM ·+)S,AFT8l+5
09000
SM
e+2),5,10
09010
TF
09020
AM
.2.10
09010
--I),STAFf
C
09040
8M
·-41
09050
TFM STAFT. AFT'L+5
09060
I
IEGIN»6
09070
DORG .-4
09080 EAMES OAe 9,EUOII 00'
fRlIOIl 00'
09090 F,neST DC
12,4'565"441 n
M65659544163
09100 ~LUSS OAe 2,+'

0.130
09140
091'0

09853

CHI

08980

09110 ENOC r

09848

09861
09862

CHI5

1.0

20

-984'
I

5 x
-2430
I
5 X

J51l9
3
5 X

J5139
3

09113

5 x

0911)
09816
09 . . .
09900
09912
0992.
09936
0""
099.0
0"11
0'979
0"1l
1000'
10011

J5I)9
3
I"

12

16
II
24

.,••
16

09923
09923

00000
099lJ
09900
044U
02674

J'040
000-5
00000
000-2
0441)
01i00
J'040
00000

9

2

o.no

u
2 x

loon
100St
10061

loon
loon

100fl
10011
100"

2
2

40
J

"

0
0
1

398

t6aO 'Ga'.AN II-D
09200 'NUM

OSC
a
aUla "HSMt OSC
0
O.ZlO 'MSM
OSC

1.0

09210 ST""SM OSC
a
09HO OIMSM OSt
a
09250 IFSM
OSC
0
09260 ceTO
OSC
0
09210 OMM
OSt
0
09210 EOUSM OSt
0
09290 tAllSM OSt
0
09)00 tOMSM OSt
0
09)10 IOSM
ose
0
OH20 SUSSM OSt
0
0'1410
OORG
09420 lOUT
TFM
094)0
&TM
0'1440 ,.OHUA TFM
0'1450
8T ..
0941>0 DIM
TFM
8T ..
09410
09480 CU .... ON TFM
0'1490
STM
TFM
09500 IF
0'1510
STM
TFM
09520 GDTO
09~)0
8TM
09540 tAll
HM
09550
8TM
09560 RETURN TFM
'BTM
09"170
09580 FORMAT H"
0'15'10
8TM
TFM
0'1600 DOD
BTM
09610
09620 ASe.,. TFM
09630
8T"
0'1640 OUTSt TFM
091>50
8TM
HM
0961>0 OKlO
091>10
BTM
09680
OORG
091>90 PH80AT OSC
22

a

"GI

"".... 1-1

1.0

10011

t.o

10011

100

tOO.l

1.0

too . .

1.0

10011

1.0

10016

1.0

tOOIl

1.0

10011

1.0

tOOIt

1.0

tOOto

1.0

tOOtl

1.0

100.2

10200
FMONU5.ILK4
FMON.IOUT

t0200
t0200
10212
10224
ton.
102 . .
lanD
10212
IOU4
10296
10)0'
10120
10])2
10144
10U6
10161
10110
10J'2
10404
10416
10421
10440
10452
10464
10416
10411
10500
16000
16000

FMON+J5,IUC.2

FMON.NONA. .
F ..oN+n.ILKI
F"ON.OIM
F .. ONU5.ILKI
FMON.tOM .. ON
F.. ONU5.ILK6
F .. ON.IF
FMON_n.IU6
FMON.GOTO
FMON+n.ILK6
FMON.tAll
F.. ON+n.IU6
FMON.UTURN
FMON_n.IlKt
F"ON.FORlln
FMoN+n.llK4
FMON.OOO
FMON_n.llKl
FMON,ASCAN

FMON+J5.IlK3
FMON.OUTSt
FMON.35.llK5
FMOH.OKIO
16000
2,22

1620 FOU . . ,. 11-0

11
16

...
..
.
11
'6

n
n

11
11

11
16
11

11

"n

t6

IJ
16
1l

-9711
J0200
-'1125
J02H
-9102
J024,
-9102
J0212
-9111
J0296
-9111
Jono
-9111
JO)H
-'1117
JO)6I
-9702
J01'l2
-9771
J0416
-'1148
J0440
-9148
J0464
-9"4
J0418

02159
OH24

onn

OUH
02)59
OH24
0lU9
OH24
02359
02124
02U9
02324
0215.
OU24
0215.
02124
OU59
02J24
0135.
OUZ4
02159
02324
02159
OU24
02]59
02324
2

PAGE

PHIOOA

16006

09710

DC

1.'

16006
16001

09120 PH80DA OSt 1.0
0
5017200
DC
H200
09140
DC
3
.082
-82
09750
OSA E16440
0971>0

DC

It·

09110 lOPH8
09180
097'10

TFM
B
TAA

IORT,.+21
IOP'.PHBOAT.7

09800

TCO

lOPHI

09110 •

OUT 0' tORE BLOCK
DIMENSION
tOMMON
FORMAT
OORG lOUT
TFM FMON+)5.ILK4
BTII FMONdOUT
TFM FMON+35.8lK2
aTM FIION.NONAU
tF
ST5N
8
DillEN
tF
STSN
8
tOll"EN
'"ON+U.ILK6
er.. F"ON.IF
TFM FIION.n.eU6
BTM 'MON.GOTO
T'II FMON+U.8lK6
17M F ..ON.CALL
TFM FIION+J5.8LU
8TII FMON.UTURN
tF
FRfClSM
FOMAr
I
TFM 'IIoN.n.IU4
1711 FIIOII.DDD
FlloN.n.IUS ••
ITII FIION.UClII
TF" 'IION. . . . . lU ••
nil 'MOII.auTSC
TFII 'IION . . . . . Ut
nil FIION.OKlO
ENUY TO DEtOll'OSE
ITM COUIA" ••• lO
C
SYII.fIlSIOII+IO

22

5 X
J600a
1

1600.

091)0

""

11

PHI$I 1-1

OSA

""

t.
'6

399

09700

09820 •
098)0
09840
09150
09860
09810
09880
0". .0
09900
09910
0'1920
099)0
09940
09950
099010
09970
09980
09990
10000
10010
10020
10010
10040
10050
10060
10010
100.0
10090
10100
10110
10120
10UO DillEN
10140

U

100.0

1.0U

5

160\6
5 x

16021

-24)0
I

16021
"au
1602.
160 . .
1604.
16060
16024
1

a

49
)6

49

005.5
00H2
00000
00000

J6D41
J6000
00500
00000

-9771
J0200
-9125
J02l"
00000
00000
00000
00000
-9.11
J02"
-9111
JOllO
-9111
J0344
-"17
Jon.
00000
00000
-9171
J0416

CONTAINS THE 'OLLOWING

.. lOUT

.. ,DIM
... CO""ON

"

.,

.. GOTO
.. CALL
... nU.N
... FOIMAT
.. Doa
ASCAN
OU'"
.. Dl.la
Olll'NSION S"'ININT

•••••

10200
10200
10212
1022.
10n6
1024.
10260
10272
10214
10"6
to'OI
lOUD
lana
IOJ"
10'16
10'"
10110
lDJta
10404
104"
1041.
10440
loua
10464
104"
lDIU.
10100
10lU
10"4

17

02)59
02324

16

Oll59

11

02124
0'1621
10512
05627
11 '176
01159
OUI4
on'19
OU24
Oll59
02U4
on'19
02124
14170
11166
OU59
on24
on,.
on24

16

11
4.
11

4'

16

l1
16
17
16
17
16
11
]]

4'

16

"

16

11
16
11
16
l1

,.
l1

AU,.
02124

on"

OU24

04."
100"

-"'u
J0440
-"4'
J0464
-"'4
JD4 ••
000-.

liS"

41111

r\

1"""\0
¥

•

1620 fORTRAN 11-0
101~0

10160
10110
10110
101.0
10200 01"1
10210
10220
102)0
10140
10150
10210
10210 SE fO"
102'0
10300
10110
10]10

BV
BNE
U

TOM
8NR

n"
n"

C"
8NH
C"
8H

IT"

EUOI
fUOI
CHI-I, CHI+ 11
DI"SN,I

•• J6,CHI+2
fUOR,on,.,
EUOR,no,'
CHI,40,IO

.-24
CHI,69,IO
01"1+12

CSOAN,-.12

80
TO"
TF
SM

01"2,INSW ..
SMCNT.l,6.
AOSAVE ,SMAOO,II,

lana

eM

TFM

SMAOO,l,67
CHI,21t,lO

8NE
SF
SF

OIMI
01"1
SETOM
CHI-I,CHI·l ••
CHI .69, 10.
SETO"l'24

TR

eM

8NH
8TM
SETOMl CM
8NE
8TM
.M
TOM
CF
TF
AM
TF

CM
8E
CM
8Nf
BNF
TOM
Sf TOM] M
SF
TF
CF
B
DORG
GENOI" 8NF
TO"
CF

lUNCH IF $/" wAS ALREADY IN UILE

SMADD,O~,IO

10340
10350
10360
10)10
10180
101.0
10400
10410
10420
10410
10HO
10450
10460
10410
10410
104'0
10500
10510
10510
10530
10540
10HO
10560
10570
10580
10'90
10600
10610
10620
106]0
10640
10650
10660
10610
10680
10690
10700
10710

SO

'HAS! I-I

SHIFT Off LEFT PUN OR CO""A
TEST FOR ABSOLUTE

CSTNQ •• +12

SYM,O.lO

-+24

ERROR.179"
AOSAV! ,5,10

SYM-4,O,11
SVM-]

ADSAVE ,SYM,6
NXLOC,5.10
TEMP, SVfIII

1094~

CHI ,04, 10
MOVOIM
CHI,21,IO
OIMI
GENDIM,OIllH,.
S"'CNT,2,6
S,.. .. 00,TE,..P,6

TEST FOR SECOND DI"ENSION

95
S,..AOO,99,6,
01111

SO
0-]

SE TOM2+24, SE fON ••
SfII'CNT,3,6

TESf FOR THIRD DIMENSION

SETOM
SETOM)
OORG '-3

MOVOIM

"

"SF

SHAOD.TEMP,6

95

TF

a

SHAOO.99,6
CHI-l,CHI ••

TO

OIMfP,SMCNT,1l

1620 FORTRAN 11-0
10120
lOBO OIMTP
10740

CM

os

10956
10961
10910
10991
11004
1I0l6
11028
11040
1I0S2
1106.
11012
11012

.
41

JI
II
41

n

Il
14

U
14
U

17
U
\s
l6
Il
16
14
U

JZ
Jl

Jl
14

41
17
14
U

17
II

15
H
26
11
26
14
U
I~

41

'AGE

DUll
042U
\sUI
10014
10620
09lJO
o.no
15U9
10608
1'1)9
10601
056'0
11414
0724P
01411
07194
07l.M
1~13'

105'6
10596
10610
UU'
15U9
10860
05391
1005.
10812
0'))0
01411
10055
10056
OI47J
02312
04161
1513.
11116
1513'
10596

lion

15

0124'
071."
00095
0119"
10596
10111

ODD ••

10860
0124P
10610
11016

10610
00003
00000
00000

07l9M
00095
07l.M
15138
11 liS

04161
00000
00099
15140
0724P

2)

JZ
26

n

••
H

1l08~

15

11096
11101
11116
11116
11128
11140
11152
11164

])

49
2)

12
26
1\

"

SE TOfl4lt , ,.
8H
3 DIMENSIONS
.+32., ,
8E
2 01 MENS IONS
10160
TF. AOSAVE,I,67,
I 01 MENSI ON
10110
B
SETO"5'12
10180
OCRG '-4
101.0
TF
TEMP ,AOSAVE
10100
SM
TEMP,5,10
TF
AOSAVE,TEMP,611
10810
10120
8
SETOM5
10810
ODRG '-4
TE MP, AOSAVE
10840 SETOM" TF
10lS0
SM
AOSAVE ,5, 10
10860
SM
TENP, 10, 10
TEMP,ADSAVE,611
10810
10880
SF
95
TF
10890
~XLOC,99,6
TF
AOSAV! ,TEMP,6Ll
10'00
TF
10910
TENP,NXLOC,611
A
TEMP,AOSAVE,611
10.20
TENP,1,610
10.10 SETOM5 AM
,M
10940
NXLOC,05,IO
10950
TF
NXlOC, SMAOO,6Ll
10960
8NR ··ZO.CHI+2
10970
8
8EGINA
10980
OORG '-1
109.0
CM
CHI,23,IO
11000
8NE 01111
11010
TR
CMI-I,CHI+I
11020
8
01"1+24
11030
OORG .-3
11040 01102
MODAO,ZoIO
11050
8NR 01"3,MOOAO.lI,
TEST IF aiM VAR WAS PLACE a IN UILE IV
11060
l
NXLOC, SIILNG"
SUIROUTlN! OR 'UNCTION SUTE"INT
11010
TF
NXLDC.SYM,6
TF
11010
SMAOO, NXLOC ,6
11090
B
SETOM.12
11100
OORG '-3
11110 01"]
nil ElI_OII,ln"
11120 ENSION OAC 6,E"SlON
ENSION
IIUO
DECODE CON"ON STATEMNTS
11140 COMMEN BT" COLNA",), 10
11150
C
5Y",MON'4
11160
BV
URal
INE UROI
11110
TR
11110
CHI-I,CH'+'
11190
TO" COMSII,I,II
CM
CHI,40,I0
11200
INH CO"U
IUIO
CHI,6 •• 10
IIUO
C"
IH
linD
aTIO CSOII ..... \2
11240
CM
CHI,Z.,IO
1Il50
COIIU
11260
8E

10150

"

."

......

00000
00000

40 I

PAGE
11116
Illn
IIU8
11200
11212
11224
11231
112ll
112 ••
11256
11261
11215
I12U
11211
11]00
11]12
II)"
11136
11)41
11360
11112
illS.
11)96
11401
11420
\lU2
11'40
11440

4'

01100
01200
-0001
00000

26
12
26
49

04161
04161
0141J
11114

08411
000-5
0416J
00000

26
12
12
21
12
26
26
26
21
11
11
26
45

04161
01411
04161
0416J
000.5
0211K
Ol47J
0416J
0416J
0416J
01112
0231K
11440
02650

08471
000-5
OOOJO
0141J
00000
00099
0416J
0237K
0847J
000-1
000-5
011911
15141
00000

I~

IS13'
IOS96
15131
10620

OOOK]
01200
15140
00000

01111
115S2
01312
OUlK
on9"
106"

000-1
0711J
OS911
10059

"

46
16

.

1146.

H
Jt

11U'

4'

1141.

11
41

11452
11414

11496
IUOI
11510
I1n2
""4
IIn2
IInl
II,.S

II

"••
26

,•

OOK71
I

11
2.
.6

000-)
uln
01400
OUOO
1S14.
OOOOJ
OOOMO
01100
0000.
01100
J1701
OOOU
ouoo

41

"'"

11

100.0

41

09141

11'"

11 . . .
116. .
11101
11710

00000

o.no

lI,aa

UU6
U ....
11660

Dun

\J

04U6
10059
04111
OUIZ

11176
lUll
11600

n

\lUI

a- nUt

••'4
.,"

14

24

0-0-2

11185
0
11276
11212
0141J
11196

46

2J

01400
01200
15150
00001
11141
00-72
00K10
000"0
01100
00009
01100
J0610
0)219
00001
011'"
000-5
-0001
000K4
01200
00000
00000
15140
00009
01100
JOU6
000-0
01100
00J1'
000-5
000000000
10059
OOO-S
10059
000-4
01200
OOOK]
01200
10596
00002
04161
00000

4~

PHASE 1-8

DUtUP,DOOl,aIO
, ·-2

co"u

10'16
10ni
10"0
lon2
10514
10 . .6
10601
10620
10612
1064.
10"6
106"
10610
10692
1010.
10116
1072.
10140
10152
10164
lon6
10111
10100
10112
10.24
IOU6
10141
10160
10112
10184
101"
\0'01
10920
10932

19'19

0 . .. ,
0 •••0

nut

091.,

4U2

11270
11210
11190
11100
IIUO
linD
linD
IU40
linD
IU60
IIno
II liD
11)90
11400
11410
11420
11410
11440
11450
11460
11470
11480
11490
11500
11510
11520
11530
11540
11550
1\560
11570
11580
11590
11600
11610
11620
11630
11 .. 40
11650
11660
11670
11610
11690
11700
IlUO
11720
IlUO
11740
11750

10
COIIIII,11I511..
1"NtN IF VAIIAILI liAS IIIIYIOUSLV USID
••••••
IF VAIlIAILI IIA. IIOT 01,1"0 T.... IT NUST . , SI.,LI VAlIA.LI
COMA
All
'UlOt,5.10
110ft GlJ JlIII COII_ ADDIISS fD SVII AUA
TF
IIlLot ,COllADO •••
10
"J2,FIOlLfL
ADJ tClllllh ADllllns FOI 'LOAT VAlIAIU
S
tOIlADD.'II, ••

B

"20

ODIIG
S
RNI
8
DOIIG
CII
BNE

'-J
tOIlADD.KLIIG.,
AOJ COMIIII ADOlns FDa FIX VAIlIAILI
COIIAI
. . ZO,CIII'2
BEGIIiA
'-J
CIII.n.IO.
TEST FOI ""II LIST ELEIIENTS
COIIEl
TIl
tHI-I.CHI+1
8
COIIIIEN'"
OORG '-3
CDIIE IIEIE IF SlII'LE VAiIAILI liAS III TAIU
COllIN 8NF '+2 •• SIICNT.ll
8TM ERRO .... lll.9.
VAIl AILE liAS ,.IVIOUSLV "-ACID III CDIIIION
8NF '-12.1I00ao.u.
liAS IT 'IIVIOUSLV IQUIVALENCID
SF
SIICNT •• 6.
COIIIIU a
NllOC. SIILNG
TF
SIIAoo.NllOC.6.
IIOVI Nfll SYIIIOL ADOIISS INTO "ILE
TF
NllOC.SYII ...

......

8

COilE

COliC

COIIII

COMA ...

oORC '-1
RETURN FRail SVII "IU LOOK UII l1li111 VAI"ILE liAS OllllllllONID
8'1F .. 20. SIICNT • II
B
COMI~.12 .. ,
VAIIAILI "IVICIUSLY 'LACIO III C_OII
OORG '-1
B'IF COIIIN'12.1I00AD.II. nSf If Val liAS IIIIYIOUSLY EQUIVALENCED
SF

SMCNT,,6.

SII
80
TF
8
DOIIG

SIICNT.OT.IO
•• 12.fIDIFL
COIIII'II.FP2
CoMII
'-1

TF
MM

•• Z),KLNG
SHeNT •• 6.

SF
S
B'I
TF

95
COIIAoO.99 ••
COliER]
SMCNT .COIIAoO.6
SIICNT .CDIIM'II.6

A

e

emIllA8 •••

DORG e-4.t.

COIIU) 8fM
liON
oat
liON

11160
Ilno FOIIAT
11710
111'0
11100
11810

ERIII.OR,474,1I.

SIT UII TO IlULTIIILY IIU..EI

U'OAU tOIllOIi ADDIUS

THIS AODIlISS IS THI LOll 010111 DIGIT DF
fillST ILI . . II'.
CD_ ElCIiDS cau SUI

3. liON

UN IT UCDlo FOIIIAT OUTPU,
80
. . 32.IIISII
TOil SIIADO 01. 6
B
FOIIATI
OoRG .-3
80
FOliA TI. SIIAOo.11

1620 fOIlTUIi 11-0
TFII
11120
11822
8
DORG
11124
IIUO FoIIATI T'lf
11840
A"
INR
11150
11160
BO
11170
All
11110
All
11190
BE
TFII
11900
11910
11920
8
ODRG
11930
TOil
119.0
ITII
11950
11'60 FDI1I99 TFII
linD
TR
Til
11910
11990
CII
BNE
12000
TR
12010
12020
I
OOIG
120JO
12040
CII
12050
BE
ll060
BT"
BTII
UOTO
BTII
12010
All
120.0
TFM
12100
12110 FDIIII TIl
CII
12120
12110
If
CII
12140
IH
UI'IO
12160
Il
Ifll
12110
TOil
I2IID
I
UI'O
OORG
12200
12Z10 SLASH CII
12220
IE
til
12230
122.0
IE
CII
12250
IE
uno
til
uno
12210
II
U290 FORIIER ITII
U)OO
TIl
til
UJlO
UJ20
IE
til
UJJO
12).0
IH
UIIO

'"

'"

SPGS+U.2H.9
SPERl.'2 ...
'-3
CSPVa+l!l.CHI-2
CSI'VA+35.2.10
'-12.CSPYA+J5 .11.
FOIII",INOIV
CKlII-I.CHI'I46.111
CKlM-I.2.10

....

liT"

4'

lilT.

liT ••

11

26

U"I
UTID

n

ouu
onTK
11100

II

U'"

4t

0'262

II'"

SCAli 'HUD FOR IEtOID IIARK

_+44

CSI'YA+J5.0.610

11111
OllU
11112
0'610

1'1141
00000

U
JI

1111.
on.,
""I
11641

OOOU
OUOO
Ul.0
00000

I1n• • •
III. . IT
11900 . .
1191' II
11.,4 1I
1l.J6 26
11941 ZI
IU.O 4.
11 . .1

11.00
09))0
11111
0124'
OUU
on,,,
OUTK
liT••

OU.'
OOL7J
OTllJ
00000
on"
OZJU
100!19
00000

IU.1 ••
IUIO ••
11 . .1
11. . . . .
12000 ) l
12012 U

11911
11111

Oll4'
00000

11111
0124'
07247
UOU
1Z01.
120U

onu

00000
000-7
0640'1
022.1
OODOD

49

U079
OTUI'
000.5
OU"
12141
OU.P
OU.,
IIIU

02252
00000
00000
00099
OUOO
OU.2
12079
00000

IT

onJO

00llT4
2

11100
IUDO

UIU

Illn

·.2•...

ElIDII.,n •••
tHI-I.tHI.1
CHI.O.IO
'-24
CHI .... IO.
--.1
CHI,n,IO,

TnT '011 SLASH

TIST FOl StAll FitTOi

2.
.9

12166
12111
12190
12191
12191

12210
12222
12230
uno
12242
1225.
1216.
12211
12290
12302

IN"T OF SCALI 'ICTOI
TilT' • •

2.
U
Jl
2Z
U
26

21

Dun

3 l

43
U
..

12191
011.11
U230

012"
00001
00000

43

uno

on.1I

..
.
16

OOKH
00000

16
II

0]671
OJ677
12242
12no
02.53
0295)
Ul46
OJ611'
0)677
12290

J51J1
000-2
OJ6"
02.24
J'I2IN
000-2
OllOO
DOO-O
000-2
00000

10012
04136
01.11'
036"
15111

00001
000-0
OOOLT
0.011
1!U50
000-0
OllOO
15140
00000

U
11
II

I2n.

••

••

12.06

11611
12610
12611

unl

12610
126••
11614
12616
12. .1

PAGE
0.325
09242

un•

uno

IIiVALlD 'OIlIlT 'I'ItIFIUTlIIII

.9

120J6
120.1
12016
I2D16
12061
12010
12092
ilia.
1211.
12121
121.0
111U
121.1
12161

IU. .
lllU
12"1
UJTO
lUll
UI.4
U406
11411
UUO
U • .,
12410
12410
12.61
U474
U416
U . .I
IUIO
U!l1I
UU.
UIU
lUll
1 lifO
UII2
12194

CHI.21.10.
FOllll
CHI.2 •• 10
FOIIII.
CHI.20.10.
FOI"EII'12
CHI.IO.IO

..

41

• -J
F"SII.I
CKCNTU.OtlO
C51'V&+35.37.610
CSPYA+J5.AYOI0.6
CHI-I.CHI.II
CHI.0.l0

.-)

u

••

1201.

12326

CHI-I.CHI+I
'-'6
'-3
CHI.24.10
•• 24
UloR. n5 •••
UfT "lIEN DDES NDT FDLLDW FORII"
PUT,
121 ••• FOIIIIAT
PUT.
124.I.lEFT '''''IN
PARtNTtI.IO
WIOTH.ll.l.
INITIALIZE WIDTH CHECK
CHI-I.tHI'1
CHI.O.IO
--Z4
CHI,.l.IO.
FORII2
SUSH
I'UT.
I ••••• A ' ' ' I
IATYPE.l
FDIIIJ

21

UUl

I1U'
III . .
11.,.
IU6I
lin,

CSPVA+JS,Z, LO
e-41

•• 32

DS'T9

000-5
DUAl
06401
011.1
00000

'HASI I-I

fRIDR Z7

".

16
11
U

IT
16

n

JI
I.

n

31

4'
14
U

uu.

U4IO
l'1UI
12.06

II
16
Il
I.

UU'
ll4l6
O.UO
09016
090)6
OJJ41
14141
UUI
lIU9

I.

l!1U'

IT
Il

n

.••,
.."
....
••
41
II

14

14

14

un•

lilT.

unl

090)6
14"T
IS04•
1111'
n . .2
IIU'
UI . .
1111'
I""

lin •

un.
lUll
un. n o.no
IIUI
lU. . U
unl I. 1111'
uno At uu.

IU12
IU. .
I....

14
At
I.

1111'

.,f••
111M

26

00011.
01200
OOLT5
0-121
o-U4
000-1
O-OIT
1'1140
000-0
DilDO
0_1
onoo
OUOO
0-144
00001
DODOO
OOOKI
01200
OOOK.
01200
0_0
01200
OOOJO
01200
DOL"

UI.O
000-0
OUOO
0_'
01100
_T

4114

\l,

'l,. ~ \.

IUO 'OtITUIil II-D
IU.O
12170 " " E
12110
123'10
U400
U410
12420 FORM2
IHJO
12440
12450
12660
12410
12410
12490
12500 FTYPE
U510
12520
12~30

12540
12550 HYPE
12560
12570
12510
12590 FOUl
12600
12610
12620
126)0
12640
12650
12660
12610
12680
12690
12700
12710
12720
121)0
12HO
12750
12160
12770
12110
12790
lZ800

12810
12820
12830

IIII!
TR
CIII
IH!
I
OOR'
CIII
BH
CIII
INE

""
e
TOil

OOR'
CIII
BNE
BTIII
B
OORG
CM
BNE
BTIII
TO"
TR
CM
BE
CM
BNH
TOM
BTM
CM
BE
8T
BNF
CF
M
SF
TF
8TM
80
CM
aNE
TR
B
OORG
CM
8NE
BTM

128~0

fR

12850

CM
BE
eM
8NH
8TM
8T
CM

IZ860
IZ870

12S80
12890
12900
IZ910 FORM5

--)

CHI . . . . IO
FORIII

CHI, •• ,IO,
TUT FOR IT"!
·.44
PUT,
149, •• 1 TYPE
IATYPE.I
FO.M)
--)

CHI,46,IO.

TUT 'OR F TYP!

e+]2

PUT,
146.I,F TYPE
FORIII3-12
.-)

CHI.45,lO.
TUT FOR E TYPE
FORMER
PUT,
145,I.E ,TYPE
UTYPE.O
CHI-I.CHI+I
CHI,O.IO
e-24

CHI,b9,IO
FORMER
OIMS."I"
CSTNO ••• 12,.

SfT SW ITCH TO U TURN HOM LSTNO
COllECT NUMIER

SYM,O,lO

FORIIIER
PUT. SYM"
.+60,FIt£QS'" •
FREOSW
S YM. SElFROoll

15138
1513
13518
LJ5)0
135.2
13554
13566
11514
11574
11516
13594
11506
13611
136)0
13638
U631
131>50
11662
11614
13 . . .
11".
11110
U722
13n4
117. .
13751
U110
11112
13"4
13106

41

31
4
15139
13898
UlJ9
13451
10014

lUll

3l
49

OOOKI
01200
0-121
0-087
15140
000-0
01200
000k4
01200
00009
01100
00001
J3194
000-0
01200
15140
00000

TilT '01 x "ICIPlCAfllIII

:'0

121.'
UU.
12 . . .
U".
12116
UI ••
U . .I
12910
12922

1291.

12 •••

12954
12954
129. .
12911
12990
12991
129"
UOIO
U02Z

uon
uosa

13046
13010
13012
13094
13106
13111
131)0
13142
13154
131 . .
U171
13190
13202
U2l4
13226
13211
112'0
1121>2
13214
11281>
11294
11294
13301>
11311
11330
11342
11354
IB66
11)1,
11390
11402
11414

4'

16
4'

16

n

.,

11
15

16

n

17
4'1
14
4'

17
15
31
14

46

16

n

15
11
14
46
II
44
B
lJ
]2
26

11
4]

"

13no
IlI)1
UUI
lJIliO
131"
Iun

47
If
16
31

14
46
14
46
14
U

15
11
14
U

oun

15U9
UUI
15138
13194

usn

OOONl
OUOO
000K4
OUOO
10019
000-1
O-U4
00000

I.
41

1511.

n •••

00001

11

1.,U

11

090 ••
0'01'
UUI

000-0
100"
0-141
00000

14
4.
14

41

15130
OORG
1)070
TR
\1010
8
1)090
OORG
13100 FCMA
CM
13110
8NE
BTM
13120
13130
8
131~0
OORG
13150
CM
BNE
13160
13170 FORMl BTM
TFM
11110
TR
13190
CM
13200
13210
BE
13220
eM
13210
BE
11240
CM
13250
8NH
13260 FORMI TOil
BTM
13210
13210
CM
1)290
INE
11300
rR
lHIO
8
IH20
DORG
I]BO
CM
11140
IE
13350
CM
INE
13)'0
11370
IT
uno 'ORIII4 All
uno
ITM
13.00
I
13410
DaR'
1)420 'ORMX CII
HUO
INI

PAGE

,"'S! I-I

28

Ot~QQ

4U6

1620 ,alTu" II-I
U4IO
11~90 HaLL
U!OO
InlO
11520
1)')0
In40 HaLL I
1)"0
11"0
11570
11510
1)~90

1)600
11610
1)620
136)0
11640
I1UO
11660 SE TfRQ
1)670 FREQSW
13680 UTVPE
11690
IHOO
IHIO
IH20

DORG .-J
tHI ,U, 10,
til
BilE SfTFRa
nil WIOCK,O,IO
PUT,SYII
If
ITII PUT,
141,I,H
TR
tHI-I,tHI.1
allR "ZO,CHI>'
I
FORIIIR
OORG . - )

B

,',OU"UT HaLL
5VII,I,10
HOLLI
FORII'>24,CHI.'
FORIIER

OoRG . - )
FREQSII
SF
as ,SETFRQ

os

,--It

PUT,SYM

IlUO

SElFRQ . . I, SVII
CHI ,24, 10.
FOUl> )6
FREQSW

IH40 WIDTH
IH'O
137100
11770
11780 WIOCK
IH90
13800
1)810
13820
1)830
11840
13850

8
OORG
OS
S
BN
88
OORG
OORG
TFII
B
TRA

FORII4

TCO

110000

1)8&0 •
13890 •
11900 •
11Ql0 •

13920 •
139)0 •
11"140 •

119'0
13960
13910
\3980
13990
14000
14010

,,,.

PUT,

TF
CM
8NE
CF

11810 •

os

,.

.-)

2,
WIDTH, SYII
FORMER

.-9
110000
[ORT,e+23
IOPT,ILKI,7

OUT OF CORE BLOCK 2 CONTAINS THE FOLLOWING
EQUI VAUIICE
SU8ROUTINE
FUNCTION
CONTINUE
PAUSE
STOP
OEF INE
OORG lOUT
lOUT
TFII FMON+35,BlI(lt ••
8TII FIION,IOUT
CHEtK FOR' IN
CH[,57,lO.
C"
~~lRU
B
Dill
TF" FMON+)S.BlKl, ..
8TII FIION,DI"

14140

10200
10200
102U
102'4
IOU6
10248
10260

Sf.,.

1620 FORTUII 11-0
14010
14030
14040
14050
14060
14010
14080
14090
14100
14110
14120
14130

119'1
1). .1
14010
'40ll
140n
140. .
14011
14010
140lZ
14090
140.0
14102
14114
14,,.
14111
14110
14162
14170
14170
14170
141n
1411Z
14194
14206
14Z11
14no
14141
14141
14250
14251
14n,
14264
14276
14271
16000
16000
160U
16024
160J6
16000

" ••a.".CH.
22

CF
BTII
SII
alll
IIIR

8T

13860

PAG'

PM&II I-I

TF"
BTII
TFII
BT"
TF"
BT"
TFII
BTII
TF"
BT"
TFM
8TII
TF"
8TM
TF"

FMO~+15. BlK 1"
FIION,CO"HO~

tOIlNON

FMO,. .. J5,8Ltc,6, ,

IF

FMON,JF
FMON+)5,BlK6, •

tALL

FIIoN,CALL
RETURN

FMON+)',8LK4, ,

DOD

FORIIAr

FIION,OoO
14150
FMON+J5,8lKl, •
AStAN
14160
14110
aT" F"ON,ASCAN
TFOI
FMOH+J5.8lKl, ,
OUTSe
14180
BTII F"ON,OUTSC
14190
OKlO
14100
TF" FMON+3!ltILK5 ••
14110
BT" F"oN,DKIO
S
roPEN
NNAUA
BE
14210
14230
8T" COlNAM,l,lO
SYM,6245,.
14240
C"
ERROl
14250
8V
8E
PAUseN
14260
14270
8T" ColNAII, 5 ,I 0
14110
SY", TlNUhl
C
8V
eUOI
14290
14)00
BE
CON TEN
SYII,CTlON+8
14310
C
FU/'4CTA
BE
143Z0
8TII COlNAM,l,IO
) 14330
S YII, ROUTN>12
14340
C
BV
ERROl
14"0
14360
IE
SUI'A
SYII,OfFCT+lZ
14110
C
14]80
BE
DEFINE
fNTU TO Of COMPOSE EQUIVALeNCE SUTEIIINTS
14390
14400 EQUIVN BTII COLIIAN,8,10
SV",IVAlfll>14
14410
C
av
EUOI
14420
144)0
INE EUOI
14440
TR
tHI-I,tHI>"
CF
STSN
14450
TDN EQUSW, I,ll,
14460 eQR
lIT 'WIT!;" I . ' U " . IOUIV SUTEN.NT
TOM
t
14470
IN""LIIE
14410
DC
1.' ,-

......

PI,

..Ill.,

14490
14500
14510
14520
H530 EQI
14540
14.,0
14560

eN

tHI,24,10

BE
ITII
TFII
AI!
til
IIH

•• 24,
1 •• Ott,12,9,

aTN

SCHI,CHI
5tHI ,Z, 10
SCHI,40,610

·.24
fUOII,170,.,

000"1
01200
000-0

4'

141Z'
IUU
0.OJ6
100!'
14011
UU.
un4

"U'
00000
0-000
000-1
01200
"141
00000

JZ

14170

00000

1'1

11

4'
4'

Z.

n
u
U

U
U

• "VALl 0 val

loon

O-IU
"140
"141
00000

0

H
26
14
U

n

49

u
U
U

..
16

)6
49

16

17
14
49
16

11

0
090)6
I~III

15119
12570
14170
0
unl

10059
10059
OOOU
01200
00000
00000

2
14241
un4
00000

10059
OUOO
00000

00565
00532
00000
00000

J6023
-9702
00500
00000

02159
02324
15139
10512
02359
02324

-9171
J0200
000111
00000
-9102
J02 . .

PAGE

GOTD

FMON+)S,8lK6, •
FltCH,RETURN
FMON+15.llKl, •
F"oN,FORlIlT

1'1"
IU70
14nl
0.0)6
O'OU
I!UI
140to
un4

U
2J

PHASE I-I

FIION,GOTO
FMON+)S.BlK6, ,

"

u

10272
102.4
IOZ96
10)08
10320
10332
10344
10]56
10]6'
10380
10392
10404
10416
10428
10440
IOU2
104104
10476
IOU.
10"0
10512
10524
10536
10'"
10560
10512
10514
IOn6
10601
10620
106ll
10646
IOU6
10 . .1
10. .0
10 . .'
10104
IOn6
10111
10740
10nl
10?4
IOn6
10"1
10100
10lU
10.11
IOU4
IOU6
10. . .
10 . .0
10172
101'"
10. . .

2t

16

11
16

02359
02124
02)59

17

02124

16

02359

17

46

02324
02359
02324
02359
02324
02)59
02324
02]59
02324
02)59
02324
02159
02324
02)59
02324
U958
046'.
10059
04212
13790
04656
10059
04212
U724
10059
13UI
04656
100'9
04Z12
UU4
10059
U990

..."

04656
10059
04212
0421Z

16

17
16
11
16
11
16

17
16

11
16

17
16
11

...
......

11
14

...
17

24

24

46

..."
H

46

Z4

24

U

31

.,U,

U
I'

0!6n
IDOl'
IZ51l
I

"
"

I'U9
10lU
09UO
06001
06001
0600J
10901
0')]0

"

4'

16
II
14
46

"

407

30

-9702
J027Z
-9117
J0296
-9817
JO)20
-9817
J0344
-9117
J0368
-970Z
J0392
-9771
J0416
-97 . .

J0440
-9741
J0464
-9794
J04 . .
01200
OOO-Z
00Z45
01400
01200
000-5
11189
01400
01200
U7n
01200
000-7
11657
01400
OUOO
14419
OUOO
000··1
1312J
01400
01200
""4
00000
OOOOJ
00000
000lt4
01200
00-72

J"J9

OOO-l
000110
01100
OOHO

40~

'l}V

1.20 POIT.AN II-D

til
1.,'0
1M
14"0
ITII
14 . .0
IUOO
10
IUIO EUBO Alii
8
IU'O
14.,0
DOli'
. . . .0
10
14 . . 0
IIIF
1. . .0
811F
8
14"0
1. . 10
OOIlG
14690
A
TF
IUOO
TF
14710
147Z0
8
14no
001110
BTII
14740
14750 £'121
80
A~
14760
8NA
14770
14710
R
14790
OORG
.A~
14792
14794
BNA
14796
8
14791
DORIO
S~
14100
BNR
14110
14820
B
14810
OORG
14840
C
14850
BE
14860
c
14870
BE
BTIII
14880
BNF
14890
RNF
14900
BNF
14910
BTM
14920
BNF
14910
14940
8
14.000.9
TD
•• )',J'Y
nM EIIIIOll2,670.'
TDM JIY,.-.
BEGINA
8
DDIII> ·-4
DS
.EU60
COLLECT DIGITS SU.II0U" .. E

..,.

•
•

8TII

OS
CLOGT 80
TR
8
OOllG
TFII
TFII
CLDGTI 5M
8l
CM
8NH
AM
CLOGT2 TO
TR
8NR
B
OORG
lCLOGT TF
88
DO~G

0

....... 1-'

n

161"
14106
16111
14110
14161
141. .
141. .
161"
141.0
14101
14114
IUZ6
lUI.
14150
14162
14174
141.6
1419.
14406
14401
14410
144)2
144. .
14456
1446.
14415
14.20

..

."
n

I'
II

14
46
14
U

17
12
It
14
4'
14
U

..
.
.."
n

17

n

'AGe
Ul40

IIU'

DUU

02240
000"
OU4)
14166
OUU
000"
14410

DUll

0-100
00001
01100
00001
0-200
01100
0000.
01100
000-.
00000
100,.

100,.
14410
"In
14410
02650

01100
000-4
01200
00000

lin.

14420
1.4"
100"

KOOOO

1 l
022.)
lU.l
0.41.
02161
026'10

2
00-00
OU61
00010
00000
00000

0

Xl. NO. OF OI"TS TO COLUCT + I

CLOGT.U.IO.

2
•• 1Z,CHI
CHI-I.CHI>I
--24-

1441"
1441.
14••0
lUOl
IUIO
l4!t0
14522
145)4
IU4.
14U.
14510
14582
1459'
lU06
14611
14630
14UI
14611
14UO
14652

.-)

SVII-12.0
CLOGT206. SVM-12
CLOGT-I.I.IO
lCLOGT
CHI .... IO
lCLDGT
e+ll,1,10
,CHI

CHI-I.CHIOI
CLDGTl.CHI>2
EU ....
0-3

SVM.CLOGT2>6.11
'-9

DENO
DORG 1"000
TFM IOJtT,-+23
8
10".8LK2.7

16000
16000
16012

2
14510
15131
14411

15119
15140
00000

10041
14600
14471
1463'
ISU9
14UI
14600
00000
15UI
145)"
144'0

-0000
J0041
000-1
01200
00009
01100
000-1
1511.
15140
151"1
00000

U

10059
00000

146000000

16
49

00565
00532

J6023
-9725

U

Jl
49
I"
16
Il
U

n

41

11

"

Jl
45

...
26

4JS

1620 FOIITRAN II-D
18390

TAA

18400

TCO

'HASE I-I

16000

18410 •
18 .. 20 •

OUT OF CORE BLOCK )
OUTSC

18ltlO •

ASCA~

"

.'RrHO,.

""

2,--'

36

00000
00000

00500
00000

16
17
16
11
16
11
16
11
16
11
16
11
16
11
16
11

02)59
02)24
OU59
02)24
Oll59
OUlt
OnS9
02)24
OnS9
02)24
02)5'
Oll24
D2U.
Oll24
OU59
02124
OU59
02124
02159
OUI4
tzO'4
120S.
lOll.
10S12
OU59
OUI.

-9171
J0200
-912S
J0224
-9102
J024'
-9102
J0272
-9111
J02 . .

0'''1
10611
10611
2
10• . ,
10620
11920
1"14
10'1Z
11011
1""
10'"
1&011
lin.
IOUl
2

011'"
072.,
00000

4'

38

CDNTAINS THE FOlLQljI .. G

184 .. 0
OORG lOUT
18450
TFM FMON+35,8lK4, ,
lOUT
18460
BT" FMON.IOUT
TFM FMO .. >J5.IU2
18410
18410
8TM FMON,NC»IIAIlA
18490
TFM FMON+J5.IUI ••
0111
18500
8TM FMON.DIM
TFM FIION»S.IlKI ••
18510
tOllllON
18520
STII fllON.tOMMON
TFII FMON»5.8lI16 ••
18530
18540
BT" FMON.IF
18550
TFM FMON+ 35 t ILK., t
GDTD
STM FMON.GOTO
18560
TFM FMON+15,llK6, ,
11510
tAlL
BTM FMON,CAlL
18580
18590
TFII FIIONon.IU6 ••
.,TUIIN
STM FMDN.llnUII"
18600
TfM F"ONon.IUl ••
11610
'OllIlAT
18620
BTM FIION.fOIlllAT
186)0
TfM fMON>n •• U4 ••
011 ITIINT
18640
UM FMON.OOD
186S0
BNF ASClA
AltAN
181>60
8
AStANI
11610
SD
SCI
• SIN'ST •• DUTSC
11610
B
OUTSel
11690
DIIIO
T'" FIION+n.llKS ••
11100
ITII fIlON.DIIIO
11110
OUT'UT SUI'tl"'ING taol
18120 OUTSCI TF
,SIIADD
TEll'
.11
I8UO
TO
DIIINO.SlltNT.ll
18140
Cf
OlllNO
1I1S0 OIMNOT OS
2,--2
IU60
Tf
D'"NDT.OlllllO
tf
11110
SelZ
11110
Til
AI-J.IIASII ..
SIT U' ..01111 AIIIA
11190
TFII
11100
'''.&2-4
TFII ".I-lZ
11110
AM
11120 SCll
"1.4.10
All
lIUO
'41,4.10
11.40
All
,. .12.10
11110
TIl
CHI-l.CHI+l
. . 160
511
DIIIII0.000I.110
111'0 DIII ..O OS
CII
11110
CHI.69.10
lIltO
• NH ALI'''
11.00
'011 DIIISII.I
1. . 10
IT" (;SfIlIl,"11
TOIl 0111$1100
11"0

'AI.AI-.

PAGE

16024
16031>
16DOO

10200
10200
10212
10124
10216
10Z ...
lOUD
10272
10ze4
10296
10)0'
10JZO
10))Z
10)44
IOn6
10)"
10110
IOJ'2
10404
10.. "
10 .. 21
10440
104U
10....
104"
10. . .
10100
10lU
10.,..
IOU6
1014.
10.4,
10.60
10nl
10114
111. . .
10601
10610
10'"
106. .
10111
10. . .
l06n
10. .0
106"
10'06
10'"
10'"

"

11

"
....

11

49
U

49

16

"

U

n

II

26

n

Jl
It
It
16

11

11
1&
Jl
U

.,."
n

11

nut

lon6
100.4
on. .
10014

-"11

JO)20
-9111
JO)44
-9.11
JO)"
-.102
JOJ'IZ
-9171
J04"
0)115
00000
10011
00000

-91"
J0411
10611
00000

11 ..'

Jl'l'
Jlnl
Jl. .J
000-4
000-.
OOOJI
11140
0-0-1

00009
01100
01001
Jon.
00000

US

.... J

r,

1620 'OI1:UII

l .. tO
1. . .0
""0
1. .,0
I,no
1. . .0
""0
190110
19010
1'010
190)0
190.0
19050
190'0
1.070
190.0
19090
19100
19110
19110
19110
1'140
191 SO
\'160
19110
19180
19190
19200
19210
19220
19230
19140
19250
1'260
19210
19280
19290
19300
19HO
19120
19]]0
19HO
19350
19360
1.110
19]80
1'3'0
19400
1'410
19420

SC4

,Al

SC~

CM
If
TOM
T'
os
IN'
CF
SF
CM
IE
CM

IE
SC I

!Til
!TM
U

St]
PAl

AlFAT

80
8
OOR&
TF
OS
TR
eM
8H
eM
8NH
8TM
80
8
ODRG
TF

PI

se.
CALC

OS
e"
8E
CM
ONE
SF
TR
eM
ANH
TOM
8TM
TFM
MM

•
•SM

MM
A

MOVE IT

8l

\9<\)0

19.40
19450
19460
19410
19480

,,-0

,..as••-1
107.c1
107"
107"
10716
10712

CHI •••• IO
SCI
DIIIIII.O

"2,,,"

,--'

lonl

"U.SC22
SCU
PAZ,,'
CHI.n.IO
SCll
CHI ••• IO

••••

EUOR.15 ••
UROR.nl ••
CHI-I.CHI·I
SCI-Il,OIMIIO
se9
0-)

PA1.SY'"

,_-5

CHI-l,CHI.l
CHI.69,lO
se 1-12
eHI.40,10
se 1-12
C50ItN ••• 12
•• 20. F XOIU: L

SCt-12.,

FLOATING VAR'A'U USED IN SUISCU'

0-4

PI,SMAOD-l

,--5

CHl,lO,lO
e+4'

CHI.20.10
SC5
Se22
CHI-l,eHI·l
eHI,6 9 010
sel-12
OIMSWoI
e S TNO, se4
MOVE I T+6,OI-1l
0IMNOT,05,10
TEM',99
0lMIIOT,12.10
MOVEIT-6, ••
,TEMP,ll
01"NOT,1.10
-+44

SM

TEMP,OS,lO

SM
8

fIIOVEIT+6,12,lO

M

03,C2

SF

92

MOVE IT
ODRG '-4
S
04,01

10.00
10.12
10'"
IOU'
10 . . .
10 . .0
10111
10. . .
10 . .,
10.0.
10taO
10'"
109,.
109)4
10940
10952
10964
10"4
10. . .
11000
11012
11014
110)1
110)2
lion
11044
liDS'
11061
110.0
11091
1110.
11116
11111
11140
11151
1116'
11116
11111
11200
1I111
1122.
112]6
11241
11260
IU72
11214
11291
11292
11)04
11316

.,"
I.

26

••
.,
JJ
Jl
I.

..
.
I.

If

17

n

U

"

Jl
14
44
14
47
11
4J
49

26

'AGE
ltlJ.
10.,.

IDOl.
lonz
0
10.,.
10610
1071"

ltlJ'

10UO

uln
10. . .
0'))0
0.310
UU.
10171
11164
109)4
0
15131
15139
10812
15119
\0112
05690
lion
10112
11038
a
151l'
11104

10UO
00000
00000
00011)
01200
000-4
01200
00-75
001111
UI40

lo,n

00000
10059
15140
00009
01100
OOOMO
0\100
JlOll
06~05

00000
01193

4'

1012'
10620
15118
"1)9
10111
10084
0539.
11230
10545
'04161
10545
11230
00000
10545
11192
04161
11230
11224

OOOJO
01100
OOOKO
01200
00000
15140
00009
01100
00001
J0164
JI939
OQII-5
000"
000J2
000"
0416J
000-1
01200
000-5
QOOJ2
00000

22
2l
32

11.81
11.75
00092

11.51
11.43
00000

14
46
14
41
32
H
14
47

15
11
U

Il

II
IJ

21
21
Il
46
12
Il

I~ll'

I.

OOOJ.
01200
00000
100"

417

1620 FORTRAN 11-0
19490
19500
1.510
19520
\9HO
\'540
19550
19560
I'HO
19580
195'0
1'600
I9UO
19620
19630
19640
19650
19660
19610
19610
19690
19700
19110
19720
I9HO
19740
19750
19760
19110
19780
19190
19800
19110
19820
19810
19840
19"0
1'860
19870
1'"0
19190
19.00
19910
19910
".'30
1.940
199'0

ny&o

M
SF
A

92

04,99

TONY
INOI
IN02

MVI

MV2

MV]

..

CDIH

92

TF
M
SF

03,CJ9

MM
rF
TFIO
TFM
8NF
OS
CF
TOM
OS
SM
SM
eM
8Nl
TFM
AM
BNR

LS

10000
20005
10010

10010
20010 L6

02,11
92
02,9'
A1,00001,8
01,99

INDl.04

..

1'102,04-1
... 36.INDl
IN01,,6
INol,'oll

,--5

JND1.12,lO

IN02,12,'0
INol,Ol,67
TONY
PI.I-12
PI,9,10
tONT,. ,

oOR&
AM
CM
8E
AM
8
DOR'

PI,),10
PI,o,6I
MV2
OIMllor,Ol,lO
MVI

TF

rF
AM
SM
TR
SM

11591

-+20,Pl.11

B

GO TO OUTPUT STRING

I1U,
II . . .

"'to
11611

.~J

MV)•• , ' . "

",n., .. "

•

""
""
""
""

••
nil
r'lI
•

L".II,O'"lIOr

'UT.O
'U',U4,.
'UT. '.0 ••
L'.DI-l
'U,.104.,

SIItIl'. ZZI'
OUTlCE .. ,
DOIIG •• ,
Sf
01-7

11'04
11616
11621

HU,

·-3

SHifT Off SUISC NOT "nDID

MVJoII tl 010
MVJ."11,10
0.0
'100].10
MYl.ll
DaR' .-]
so • 141 llT'''~ sUisea.". Sl • I . . 0'" SUI.caln
Sl • I'D TIIO SUiSCR.,,,. II • 111 TIIIII IIIIIC. . " .
L4.1I.01" ••••
I'SI ~O~ IUISel'" OPI"'qll

A

l4

03,el

SF

TF

lq1HO
,',''a
;~~.o

11121
11340
11352
11)64
11116
11381
11400
11412
11424
114]6
1144'
11460
11472
11 ....4
11496
1150.
11519
11520
115]2
lUlt
11544
1155'
1156'
11510

DIt,A2

M

PAGE

PHASE I-I

04,99
02,12

II...
116"
1169'
11704
11116
1112.
1I1.c1
11712
1176.
1171'

00099
11939
00000
00099
11.35
11931
00000
0009.
11921
00000
00099
0-001
00099
Jl981
Jl980
1151.

12
14
46
16
11
.5
4'

11987
11'63
00092
11911
11981
11'75
00092
11"5
11963
000'2
11961
11'23
11951
11519
11538
1\544
0
1151R
11531
0
11519
11531
II5IR
IUD.
11011
11031
11636
11772

11
14
46
11
4.

11031
110]0
11692
10545
11604

000-3
0-000
01200
0011-1
00000

16
16
II
12
49

1I7U
11151
11151
11146
00000
110]1
11616

\103.
11031
000-1
OOOJI
00000
000-,
00000

I,n

11107
UI01
0.0)6

0. . . .
105"5
-0000
o·u"
0-141'

21
2)

32
21

1I
2)

]2
26
2)

12

26
Il

26
16
16
44
]]

15
Il

)1

12

lin, u

11 ....
117"
11101
11110

n
n
lin. n

11_

&l ...
11 . . .

&l",

11176

D.O.'
090)6

. D."..
'1
It

U

1117.
0.016
0"47

".""

40

00000
OOOOR
000J2
000J2
JI'51
01100
J19.3
000-9
110)0
00000

11.'"

'-10'

-Zllt

00000
00000

418

,

.

1'20 'ORTIA" 11-0
20040
200S0
200'0
20010
20010
200.0
20100
20110
20UO
20UO
20140
20150
20160
20110
20110
201.0
2020n
20210
20220

n
AI
1\
eI
A2
12
e2
01
I
02
J
0]
K
04

III. .
11900
11'"
11910
IIU'
II'"
IIUI
Inlt
1191.
In. .
11911
IItt'

TR
I
OOIG
OS
4
4
4
OS
4
OS
4
4
OS
I
OS
4
OS
I
OS
4
OS
I
OS
4

0-'

as
os
os

os
os

20250
2021>0
20270
20280
20HO
20]00
20110
20120
20]]0
20)40
20]50
20lbO

os

n
n

4.

I
4

II . .'

I

11 . .1

4

lin.

4

I
I
I
4

II . .'

,--)

11919
II . . .

4,1

DC
-DOl
DC
401
-DOl
4,0
DC
-000
4,0
DC
-000
4,0
DC
-000
DC
8.0
-0000000
DC
4.0
-000
DC
8.0
-0000000
DC
4.0
-000
DC
8.0
-0000000
DC
4.0
-000
DC
8.0
-0000000
DC
I.'

"'"''
11112

41

11.41
119"1
00000

4
4
4
4
4

11911
lit . .

I

O'OU

"

lI."

I
4,0001
DC
-001

202]0 "ASK
20240

"GE

"'''1 I-I

PUT,DI-4
01-1,01-'
L5

0
4

11000

4

U004

4

12001

4

IlOl2

4

11020
120n

4

120)2

I

120U

4

U044

I

12041

4

lID"

I

12057

20]10
ASCAN CODe
TRINO
20380 lSClNI CF
20]90
•• 24,NOIND
BD
BTM ERROR2,S12,9,
20400
,I
20410 ASC IA TOM OMM
CM
20420
CHI,40.10
204]0
BNH AERR
CM
CHI, 70. 10
20434
204]6
8NL
AERR

120n
12010
12012
UO.4
11106
12111
IlllO
12142

n
H
11
U
14
41
14
46

01185
12094
09486
10011
151)9
11114
15119
11214

00000
0]243
00N11
00001
OOOMO
01100
OOOPO
01100

419

1620 FORTRAN 11-0
20440
20450
20460
20410
20480
20490
20500
20510
20513
20515
20520
20HO
20540
20550
20560
20HO
20580
20590
20600
20610
20620
20630
20640
20650
20660
20610
20680
20690
20700
20710
20720
20130
20HO
20150
20160
20110
20110
10190
20100
20110
20120
20810
10140
20no
20160
10110
10110
20190
20.00
20110
10'20
10UO
10.40
20950
20960
20910

SF
8TM
TOM
CM
BE
BTM
AERR
TOM
ASC22 BYM
TFM
TFM
IFSCAN TR
BNR
BT"
CM
BH
C"
BNE
BY"
TR
B
OORe;
CM
BE
ASC~
CM
811E
ASC23 80

ASC6
ASC3

ASCl

ASCI

12154
12166
1211'
12190
12202
12214
12226
Ilnl
12250
12262
12274

CSORN ••• 12
STSN
CHI.n,10
·.24
EIUtOR,376.9

0"".0
PUT,

13],.,EIlIIU
NOPARM.OO.IO
ASC 14+1I.FLI ST-9
CHI-I.CHI'l
.+2lt,CHJ+2
eR~O".J7.,9.

MISSING OPERAIIO

CHI,ltO.10
ASC3
CHI.20.10
_+44

129,8.UNUV MINUS
CHI-I,CHII
TEII".4.10
TEM",PCI",.6
SlIIGST. 10 11.
SET SlNGLI STAMT SNITCH. SNITe .. TESTED
41""-24" •
'" 'UTTING OUT SUlleRIPlIH,

......
••••••

DORG 0-)
ENTEII TO OUTPUT SINGLE STATIMEIIT 'UNCTION CAll AND
fUNCTION SUI'AoaRAN 'All
NO HAl IIIDItAT. 'UNCTION IU.,.oaR..M
811' UCIl,'HTSN . .
All
SIICHT.Z.IO
Tf
1I0".II.IIICNT.ll •
IIOYI 110. IJII PAUMlflRS TO CDUIIT.R
CM
CHI.,."O
.+,.
IE
ITM ullo•• on.,.
PUCT NAil' IIDT 1'01... 01110 IV l'A.,N
U •• I.U" , ....
'UT.
T".CT.I.IO.
lIT UP TlN'. .'''''''11i CDUIIT
TIl
eMI-I.'"'+1
TDII 'N"II.O
ell CHI.ZO,IO
IIiE "12

""
""

PAR

13212
13294
13306
13)11
133)0
13342
13354
13366
13371
11390
13402
13414
13426
1)438
13450
UU2

13.06
116"
116)0
1364Z
U65.
U'"
UUI
U6 . .
U ...
U"I
1]710
U7U
un~

U7. .
U".
U"•
In. .

43

17
33
]Z
15
26

17
27
16
17
11
4'

11

14
47
15
14
46
3l

17
43
II
16
3]
II
26

IZ
26
14
~6
I~

47
17

n

17

11~02

O-IO~

It
16

0~17)

OOO-~

O~l7l

1~09)

15

10071
12190

OOOOJ
00000

14606
0,,.7
IUOO

10010
000-2

IS&J'

000114
OUOO
00-79
0-114
000-1

n

.

.
~

11

16

1110'

U

UU.

nl"

17

17

0'))0
0'0)'

U ...
UI . .
UIIO

16

II •••

••"
u

Ill"

nil.

n

....

,

UUI
10010

lIU'
U".

44

05627
OOl77
00000
00000
00000
07194
0-137
04172
000-0
0-124
15140
15141
00116
OOOMO
01100
00000
00009
01100
00000
J3522
10010
000-1
000J4
00000
000-2
10061
000-5
On94
000-4
01200
OOOK)
01200
0-12)
00000

O'OU
15 III

unl n
IU"

1)306
093)0
05627
0724P
10087
04173
09036
09036
14093
09036
151)1
U41I
09))0
15\3..
13426
10010
151)9
U4U
07020
0'1690
\3426
14093
10061
10060
02372
0237K
0441)
0441l
15139
13 . . .
I5U9
11426
0.036

151~0

071~'

UI~O

00000
000110
OUOO

U2

"20 ,oaThAII II-D
ITII
I
DoaG
uno
eM
U140
INE
Til
2U'0
Ul.0
eM
IH
uno
2UIO
eM
Ul.0
IE
2UOO
CM
2Ul0
IE
22210 ASCEII ITM
ITI!
uno
22240
Til
UZ50
AM
UUO
I
22110
OOllG
22210 asen SF
DC
222'0 PC NT
-0
22100
8NF
TOl!
22310
ITM
22320
22no
TOl!
22140
8
22150
OO.G
22160 ASt27A BTM
SM
2BIO
BN
221'0
10
22"00
22410 ASC2'! 8NII
B
22"20
224)0
OORG
22440
CM
8NE
22"50
22"60 ASC.O 8TM
22470
Til
8NF
22410
8
22UO
22500
OOIlG
tM
22510
22'20
8E
22BO
8
OORG
225"0
22550 ASC28 CI!
22560
8E
TOl!
22no
22~80
8
22590
OOIlG
22600
BTl!
22610
SM
TR
22620
22610
B"
8E
226"0
22650 ASC281 CM
Ul00
UllO
UUO

'UT.

•• sa

"',.. 1-.

'AGE

. ".
IUti

12•••• UII•• ' II.IIIS

.. ti~

.-1
eHI.ID.10
,,'4
tHI-l.eHI+l
eHI.40.10
ASen
CHI.I.10.
ASen
CHI.24.10
"24
EUDI.no •••
IIIV'LlD 'UlltnOll PAUlllnl LIST
lZ4.I.UfY ' . .IN
'UT,
CHI-1.CHI'1
T'A.CT.l.10
ASCU
.-.
OUTSII
2.0.AStUA,NO"."
FNTSII2.1
CSO.N, •• 12
FNTSII2.0
ASt29-12
.-.
CSOIIN."U
NO""",l,IO
ASCER
ASCI4.FNTSII, ,
TEST FO. NISTED FUNtTIO"S
"20,CHI'2
ASCER
.-.
CHl,UolO
ASUI
PUT,
123,I,COII'"
CHI-l,CHI+l
·'20,NO"."
ASC1Z
.-.
NO' . . III,O.10
ASCER
ASC12
.-.
CHI,",10
•• J2
FNTSlll, I
AStl
.-.
PUT,
104,.,IIIGHT PAllEN
TPARCT,l,10
CHI-l.CHl+l
ASCEII
•• 56
CHI.23.IO

Uti.

11.10
II• . ,

".M
11...

Inll
" . .0
14001
16014
16026
1401.
140!l0
14062
14014
1'011
14011
14091
140.4
14106
14UI
16UO
14142
16110
14110
14162
14174
14116
lU9I
16210
14211
14211
16no
14242
14iS4

141. .
16"1
14216
14116
14291
14310
14311
14111
l"no
14142
141!14
14362
14362
14314
143. .
141.1
14410
14422

I?

4'

4'

0 . .16
11.42

0-12'
00000

14

lIlJ'

II

U"4
I!lUI

000.10
01100
1'140
000II0
01100
000-'
OUOO
0_4
OUOO
001170
0-124
Ul40
000-1
00000

.
.."
n

14

lIU'

14
6.
16

1111'

n

It
11

6.

14012

14011

lin.
140sa
o.no
09036
"UI
14. .1
UIl4

U

07020
2

00000

46
U
n
I'
6.

16UO
OUtI
0!l6'0
14116

14700
00001
J4nO
00000
00000

17
II
47
4.
6'

056.0
14700
14021>
1462.
14211
14026

J4"2
000-1
OUOO
10010
15141
00000

14
41
17
II
44
4'

15U'
14111
0.016
l!1UI
1421.
U174

OOOK,
OUOO
0-121
15140
14700
00000

14
46
4'

14700
14026
U87"

000-0
01200
00000

1"
46
I!I

"'I

1513'
14162
10011
1265.

000-"
01200
00001
00000

17
II

0'0'6
14698

0-10"
000-1
15140
OUOO
01200
OOOK]

4!1

31
U

46
14

ontl

"U.

14026
14466
15U'

423

1620 FORTUN 11-0
22660
22670
22680
226.0
22700
22710
22720
22730
227"0
22750
22760
22770
22710
22790
22800
22810
22820
22no
228.0
22UO
22860
22870
22880
22190
22900
22910
22.20
22910
22 •• 0
22 •• '
22.46
22.H
22 • .22 ••'
22950
22955
22960
22'70

8E
8NR
8
OORG
8NF
CI!
BNE
TOM
8
OORG
Til
SM

&scn

ASC9
&SC11

......
ASCI.

IFASEN
CLASE"
TPAIIC T
NOPARII

22910 FLiST
22990
23000
23010
23020

no.o
210"0 •
2.050
2.060
n070 •
nOlo
230.0
21100
21110
23120

.-.

ASC'-32.NOPARM
ASC14'II.FLIST-••• TEST IF NEST LIST IS E"'TY
e+32
FNTSIlI
ASC7
'-3
"AlltT-l.ASC14+1I.11
ASC1.HI.!I.10
B
ASC2.
DORG '-3
tM
NO"IIIII.0.l0
BZ
ASCn
8
AStEIl
0011' .-.
TOIII F"TSN1,O ..
B
ASt29-12
OORG .-.
TFII NOPIIIIII.0.1011
B
ASel'
OOIlG .-.
ENTEII HElIE TO SHIFT "U"ETlil LIST DOliN 'OR "nUD CALLS •••
AI!
"11.5.10
TR
FLIST-'. TPAIICT-l,2
B
ASCI
DOIIG '-4
TFI! ASC1.'II.FLI ST-'
IFSCAN+12
8
OOIlG .-.
TFI! NO'UIII.00.101l
8
IFSCAN-12
DOR' '-4
OS
2
OS
2
1 ••
DC

.

DS8
DO.'
TFII
I
TRA
TCD

5.20
16000
10llT ... "
IOPT.aLU,7
16000

OUT OF COIlE ILOCK 4
OUTSC
00
10 OTHEII THA" DISK
OOllG lOUT
CII
CH.,46.10 •.
I
I OUTEN

"" '_."011'.'

'MOII·U.ILlZ

"I!

CDNTAI'"

PAGE

'HASE I-I

ASC.O
ASCZI'2",CHI'2
ASCER

14.,4
14446
144!11
14466
144. .
14471
144.0
14502
1."4
14"2
14'22
1651.
1.'46
lUM
14!1S4
1"'66
14571
14'!1"
14!1"
14191
14606
14606
16611
14626
14626
14611
166!1O
14657
146!11
14670
14617
16671
146911
146"
14691
14700
14701

46

46
4'
4'

14242
14342
14026

01200
15141
00000

.4
14
47
l'
4'

145'"
14. . .
1.522
10011
12!191

14700
J.6.7
01200
00000
00000

II
12

146.7
14. ."
14191

14""
000-5
00000

16
46

14700
14471
16026

000-0
01200
00000

1!1
4.

1IiOIl
l'UI.

00000
00000

16
U

14700
U790

000-00000

11
U
4'

146••
J4697
137!14

000-5
14697
00000

16
4.

1464.
12216

J46t?
00000

16
4'

14700
lZ262

000-00000

••
••

2
2
1
!I I

.
20

14706
16000
16000
16012
16016
16016
16000

16
4.
36
4.

00'"
00U2
00000
00000

-"
00'00

10200
10100
10212
10U6
10216

14
4.
16

1513'
UI41
on19
02U4

00011.
00000
-'721
JOZZ4

J6023

00000

THI '01..1.0111'"

• our. NOIIDISK 1/0

17

424

,\-'

UIO 'OnlAN 11-0
21130
2H~0

ITM
T'N

'NONon •• LIII ••
'IION.DIN
'NDN.n"LIII ••
F IIDN. CDNNON
FIIONU5.ILK •••
FIIDN.I'
FNONH5.ILK6 ••
FNDN.GDTO
FNON.)5.UK6 ••
FMDN.CAll

211'0
TFN
23160
erN
23110
TFII
23110
BTH
23190
TFN
21200
BTI4
23210'
TFM
8TM
23220
2)210
TFII FMON+1IJ,llK6,.
8TN FIIDN.RET!)IIN
23240
TFII F..O..... 15 •• LK1.,
2)2'0
2)260
8TII FIION.FORNlT
23210
8NF ODLoo,on. Till NO ••
23280
8
DDLOOP
TFII FNON+15,8lkl"
2)2'0
23300
8TII FIION.ASCAN
21310
80
SC1.SJ"'GST ••
23320
A
OUTSC 1
7lBO
fMON+35,8lk5. ,
23340
STII FIIION.OKIO
23150
OUTSC CODE I SHERE
23360
OORG ASCAN1
23310
OUTPUT 00 STATEMENTS
23380 DOLCOP TOil TRIND.O
23390
80
·.2~,NOJNO
23400
BTM ERIIOR2.572.9
23410
CM
CHI.44,10
2H20
8NE
SPERR
23HO
CM
CHI+2.S6,lO
23440
SPERR
"NE
23~50
BO
·+2IttlNDIV
23460
8TM CKCNTU,Q.1O
23470
TOM STSN
23480
TR
CHI-I.CHI'3
23490 DO
CM
CHI,69,10
23500
RH
-+24
8TM ERROA..275,9,
23510
8TM PUT,
23520
10B,8.00
23530
SF
OUTS.
8TM CSTNO,·.12
135~O
23550
AH
SHADD,
5,10
23560
8
OOC~
23'S70
DORG ·-3
23580
TOM S"AOO,1.6,
(M
23590 DOC
CHI.ltO,lO
23600
BNH 00(K-12
23610
CM
CHI,69t10
23620
RH
DOCK-12
23630
SF
OUTSW
23640
BTM CSORN,·.12.,
23650
BO
OOCI.FXDRFL
BTM ERROR, 275, 9,
23660
BO
23670 DUCK
00C1-12. SMADO.IL
SM
23680
SHADD.
2.10

r'.

Z31~O

23750
23760
23770
23780
23190 DOA
23800
23810
23B20
23830
23840
23850
23860
23810
23880
23890
23900
23910
23920
2)930 OOB
23940
2]950
23960
23970
23980
23990
HOOD
24010
24020
240)0
24040
24050
24060
24070
24080
240.0
24100
24110
24120
24130
24140
24150
24160
24170 DOE
24110
24190
24200
24210
24220
242)0
24240

BO
B
OaRG
BTM
CM
BNE
8 TM
TR
CF
CF
CM
8NH
CM
BNH
SF
SF
BTM
80

DOC.

CDIIIION

101'~

on,.
n ozn~
U
on"
on16

I' STNNT

10196

16

GO TO

10)01
lono
lonz
IOl~~

CAll

10)56
101. .
10310
10)'2

RETURN
FORNAl
DO ST ATENENT
ASCAN
OUTSC
01 SK INPUT lOUT PUT

......

I.

"

""
n
"
"

.
J1
J1

1040~

11

10~16

44
49
16

1042.
10440
10H2
10464
10476
10488
10500

J1
41

n

J6

17

OU59
OlJZ~

0235'
onl~

on19
02)1~

0235'
Dna.
02319
02114
12094
120,.
02n'
02324
10814
10512
021'9
02324

47

-9701
JOa..
-9702
JOlll
-9111
JOI . .
-9111
JO)lO
-9111
JOl .. 4
-9111
Jon.

-'101
JO)'l

onn
00000
-'7~1

J0440
10018
00000
-91'4
J0488

1205.

INCORRECT DO STATEMENT

SET BV DO. IF NOT SET DO REF IN TABLE

COLLECT DO I NOel SVMBDL
FLOATING POINT VARlA8LE FOR INDEX

0)185
120'4
09486
15139
09230
15141
09230
12166
04836
05627
15138
15139
12226
09330
09036
01020
05398
07\94
12390

00000
03243
OON72
000M4
01200
000N6
01200
02424
000-0
00000
U142
00009
01100
00K75
0-108
00000
J2262
000-5
00000

12

07l9M
15139
1237B
15139
12378
07020
05690
12446
09330
12434
07194

00001
OOOMO
DILDO
00009
DILDO
00000
J2366
06405
00K75
0719H
000-2

43
49

12294
12282

07\9H
00000

1243~

J1

121t46

14
41
11

09330
L5L39
12214
09036
15118
12518
12610
15139
12318
15139
12518
12518
07020
05690
12622
12378

OOOLl
01200
0-133
15140
00000
00000
OOOMO
OILOO
00009
DILDO
00000
00000
J2602
06405
00000

12670
13147
10059
12378
15139
12214
09036
15138
15139
12318
151J9
12118
12670
01020
056.0
12822
12378

12518
10059
000-0
01200
OOOK)
DilDO
0-123
15140
OOOMO
DILDO
00009
01100
00000
00000
J2102
06405
00000

12894
12110
101159

12610

1205.
12010
12082
12094
12106
12118
12130
12142
12154
12166
1211.
12190
12202
12214
12226
12238
12250
12262
12214
12282
12282
12294
12306
12318
12330
12342
12354
12366
12318
12390
12402

15
~)

J1
14
H
H
H
H

J1
15
31
14
410

11
11
32

11
IL
49
15
1~

41
14
46
32
11
43
17
H

PAGE

PHASE 1-8

SHADD. L1

DOC-12
·-3
ERROR,274,9,
DO REFERENCING ILLEGAL STAHNT NO
tHr.33,IO,
TEST FOR EQUAL SIGN NEXT
00+24
PUT,
133.8.EQUAL
CHI-I.CHI+I
OOA,.,
INITlAlIlE SWITCHES
008
CHI.40tlO
00CK-12,. ,
TEST FOR UNSIGNED VALUES
CHI,69,10

-+24",

DOA
OUTSW
CSORN,·.12,.
COLLECT ANa OUTPUT FIRST INDEX
•• 20,F)(ORFl
B
00CK-12
OORG ·-3
8NF 008.DOA
TF
OOTEST.SVM
CM
SYM.O,lO,
TEST IF FIRST INDEX WAS lERO
BE
00CK-12
eM
CH).2),IO
8NE 00'24
8TM PUT,
123.8.COMN.
TR
CHI-I.CHI'I
eM
CHI.40.10
BNH 00CO-12
CM
CHI.b9,lO
8NN e"2~
SF
008
SF
OUTSII
8TM CSORN,"12
e+20,FXDRFL
80
8
00C~-12
DORG ·-3
BNF .'72.001
8NF
.+16,00&
C
SYM.DDfEST ••
TEST I F SECOND I Non IS GRUTER 011
8L
OOCK-12 •••
EQUAl TO THE fiRST IF 10TH AItE CONSTS
CM
S'M.0.10
8E
DOtK-12
INR DOE.CHI·2
ID
00.24, JOS ....
110 CANNOT END HfltE
I
BEGIN
DORG . - )
CM
CHI.U.IO
•• JZ
IE
10
IOf.IOSII ..
RnURN TO 110 SCAN
8
000'"
OORIi
ITN 'UT.
U •••• CON...
TR
CHI-I.CHI'1
CM
CHI •• 0.10

.-J

,.GI
10241
10260
10nl

1620 FORTRAN JI-D
23690
23100
23710
23720
23730 OOCI

'M", 1-'

DIll

12414
12426
12434
12458
12470
12482
12494
12506
12518
12530
12542
12554
12566
12578
12590
12602
12614
12622
12622
12634
12646
12658
12670
12682
12694
12706
12718
12730
12742
12754
12766
12111
12790
12102
12114
12122
12122
12134

Ill ...
12UI
12110
1211l
12 ••4
ll'Ot

12'"
"'16

.,,,.
12911
uno

., . .Z

11
33
33
14
47
14
47
12
32

11
43
49
H

26
14
46

14
41

11
11
14

41
14
41
32
32

11
41
4'

44
44
24
47
,4
~6
~,

41
4'
14
U

.'
u

IIno
linD U
119" Jl
il_ l .

una
10059
unl

12'26
U214
OUU
1'13'

Ilno

14136
11214
0'036

nUl
I'U'

425

48

00~74

una

1)147
01)00
000-0
OUOO
15141
10091
00000
000a3
01200
100tl
00000
0-IU
19140
000110

426

I'ZO 'OUUII
HUO

INH

142'0

"

II-a

'MASI I-I

OOCI-U

Dun.

ITII CSOIIII •• ' "
14110
24110
10
. . ZO.'XOII'L
OOCI-12
I
lU'O
l4100
0011' .-J
CII
SYII.O.IO
24110
OOCI-U
20110
IE
24110
10
10,.IOSN"
24)40
INII "20 .CHI'2
I
24no
IEGIN
24160
DOli' .-1
IT II EUOIIZ.511."
24HO
B
IEGIII
24J10
.-1
001110
24no
24400 DOTHT OS
10
ENTEII HElIE TO DECOII'OSI 110 STATEIIENTS DTHEII THAN OISI
24410
24420 10UTEN INE e+44
OU"UT IIUO SYIIIOL
TFM 10UTI'II.I12.I.
24410
TI
CHI-I.CHI·1
24440
24450
I
10UTI
24460
DOl' .-1
24470
tM
CHI.55.10
24410
INE
IOUT2
244.0
til
CHI'2.63,10
e.2,.
IE
24500
24~10 10UTER IT II
EIIIOII.7I.'
OUTPUT '111 NT S YMIOL
TFM 10UTI'1I 0111. I.
24520
245)0
CHr"'l,CH1+]i
24540
8
10UTI
24550
OOIG . - )
CHI,45.10
24560 10U12 tM
BNE 10UTl
2H70
SHIFT OFF E
TR
CHI-l.CHI·l ••
24510
CM
C... l.69,10
24590
INH loun
24'00
OUTPUT TYPE SYIIIOL
TFM IOUn·II.01l1 •••
24610
10UTI
24620
8
246)0
OORG .-1
ITM COLNAM.2.10
24tb40 loun
tM
24650
SYII',4341.'
10UTER
24660
BV
24670
8NE IOUT4
OUTPUT PUNCH SYMIOL
24680
TF" IOUT1+ll,1l8,B,
CHI-l.CHI.)
24690 loun TR
24700
CM
CHI.b3dO
BNE
10UH
247\0
8T~
CQLNA~,4,lO
24120
SYM. TPtST
24730
C
24140
IV
10UTEI
10UTH
24no
8NE
TR
CHI-l.CHIH
24760
AM
10UTl+llol.IO
24770
OUTPUT I/O SY"IOL
24780 lOUT! 8TM PUT" •
INOUT
21t190
8
OORG .- 3
24800

'"

"'E
11006
UOII
UOIO
11041

1101.
n06Z
UO.2
Ito"

liD..

UO"
11110
11111
IJlII
UUO
UUI
1)141
UI . .
1J160
IlU2
11114
1J1.2
11192
U20.
U216
11221

U

II
11

.,
H

14

••
41
~I

4'
U
~,

IU7I
010Z0
0"'0
U062
12171

01100
00000

100,.
12171
l.ll6
UlIl
02611

000-0
01100
100'1
00000

0'''6
OUll

OONU
00000

u

HO~2

0640'
00000

In~1

10
U

16
)I

49

"

U

I~

46

U2~0

11

UU2
Ul. .
Un6
11214
11214
U2 . .
UIOI
U)20
1]))2
U)44
un.
1))64
U)64
1])16
11111
U400
U412
11424
11416
IH4I
11 . .0
13472
1346 •
13496
13501
13520
13512
11544
13552

16
11

,t
14
41
)1
14
47
16

u

11
14
46
47
16
3\
I'
41
11

.
24

41
1I
11

17
.9

UI.,2
I)S41
ISUI
1)512

01200
0-112
15140
00000

UU'
U214
1'141
1)212
OnlO
I)S4)
ISUI
1l5J2

000N5
01200
0000)
01200
00-71
0-111
Ul42
00000

15119
1]]64
U119
Ul"
I)H)
11S12

ODOMS
01200
15140
00009
01100
0-11)
00000

041>56
100"
UHO
11552
1154)
15111
15119
13532
0465.
10059
13240
13240
15111
13Hl
09036
13616

000-2
0"141
01400
01200
0-111
15142
0000)
01200
000-4
U61S
01400
01200
15146
000-1
-0000
00000

uua

427'

1620 FOITUN 11-0
24110 10UH
24820
24830
24840
24150
24860
24.70 TPCST
24110
24190
24900
24910
24920
24930
2.940
24950
24960
24970
24910
24990
HOOD
25010
25020
25010
"040
25010
25090
25100
25110
25120
25UO
25140
25150
25160
25170
25110
251tO
25200
25210
25220
25230
25240
25250
25260
25270
25210
2'ltO
25100
25110
2H20
2!l)O

INOUT

lOA

10lEI

101

100

10LOO'

SYM,5763,1
til
laUTEI
8Y
8NE
10UTER
TFII
rOUTl+11,01l6,1,
OUTPUT ACCEPT SYII80l
IOUT5
I
OOIG .-1
DC
1 •• 3415745, ,
TVE
03415745
OUTPUT III'UT-OUT'UT 1I STS
tM
CHIo69.IO
IH
-+2oft
STATEMENT IIU"I£II ""SING
ST" fl.... a•• 2l' •• ,
SF
OUTS~
TOil 10SM.I
ITII CSTNO."12
All
SIIAOO.4.10
•• )2.INSW
80
TOil SM.OO,I,6,
SET 01101 T fall fOR'''T STAIINT MUllin
•• )2
8
OORG '-1
80
·.2"',5 ... 00,11,
Tf IT If S TAIINT NU"IEII COIIIIESPONDS TO fliT
e__ IItOl,211,9,
BT~
110 ST ATEMEIIT NO. IIOT A FOIlIlAT NUMln
8NII ··20.CHI+2
8
IEGIN
OORCO .-1
til
CHI.21.IO
•• 24
BE
8T" EIUtO",211.9,
'USSING COII"A all INYALIO LIST ELfMENT
HII 'UT,
U).I.CO""A
fR
CHI-l.CHI'1
til
CHI.40.10
8NH 108
tM
CHI.69,10
10LER
IH
Sf
OUTSN
ITII CSOIIN.IOA
fFII 10LOO'.0.10
COl
CHI.2 •• 10
INf 10LER
AM
PAICNT .1010
u •••• un "liN
IT" PUT.
TI
CHI-I.CHIH
All
10LDO'.1,I0
COl
CHI.24010
If
lOG
til
C"I,'0.10
8NH 101·12
COl
CHI . . . . IO
IH
10Ul
OUTSII
Sf

at

-0
251.0
2UtO
25JtO
nHO

'HASE I-I

ITII
eM
INE
BTl!

2 ••• •
CSlIIU•••• U.~
'O~Llc;Y UIT ILllilliT
CNI.n.IO
10f
'UT,
IU ••• CDIIII'

11552
135"
13576
13511
13600
1360'
11615
U61.
1362'
136.0
nUl
U . .4
UU6
11611
13100
un2
11124
un2
un2
Ill"
Ul56
U7"
U116
Ill76
Inll
UIOO

Uill
1J124

.
14

..
41
U

14
U

17
Jl
15

17
11
4J
15

••
41

11

••

49

14
46

11

11

1I

..
" ...
UU,

11 . .1
UI60
un2
""4
U.OI
U.,O
UUl
Ut44

u ..,

Ut.1
11 ••0

""a
14006

14011
14011
1.0.0
14011
14064
14071
14076
1'011
14100

lUll

It

.1

I'

U
U
16
It
47

PAGE
10059
13240
11240
13543
11424

ON763
01400
01200
0-1.16
00000

ISllt
UU2
Ot))O
07020
10091
osnl
01194
UH2
on9M
11756

00009
01100
00U6
00000
00001
J16 . .
000-4
03219
00001
00000

1315'
Ot330
13176
02611

0719"
OOln
151.1
00000

15U9
\J1I2
OUIO
0.016
15131
U139
UtOI
U13.
11100
07020

0001)
01200
0011.7.
O-Ill
15140
000"0
01100
oOOOt
01100
00000
JJ156
000-0
000K4
01200
000-1
0-12'
11140
OeD-I
OOOU
01200
0_0
01100
0000.
01100
00000

nuo

14071
IIln
UIOO

11
11

on..

1I

140n
ISlIt
14420

..
..
n

14

Ot016

uln

14

UU,

H

U.,O
nln
UIOO
07010

14

U

50

1
11
14

4l
11

01. .0
IIUt
1'1'6
0.016

~40"

ooon
OUOO
0-121

428

1610 ,oaT.AN II-D
25110
25190
25400
25410
25410 IDE
25430
25440
25450
25460
25410
25480
25490
25500
25510 10F
H520
25530
25540
H550
25560
25570
25580
25590
25600
25610
25620
25630
25640
25650
25660
25670
25680
2'i6CJO lOG
25700
25710
25720
25730
25ho
H750
25760
25770
21)780

25790
25800
25810
25820
25830
25840
25850
H860

•
•
•
•

PAGE

'NUl I-I

10511
CHI-I,CHI+I
100

.-)

10UR,IOSil
10Sil
CHI,)3,IO
10hU
U),I,EQUAl
PUT,
IRANCH TO COLLICT INOlte Of ARUY LOOP
00A-36,fXORFL ..
B
IDLER
DORG .-3
RETURN HERE FROM DO CODEING
CHI,4,I0
CM
10LER
INE
104,8,RIGHT PAREN
BTM PUT,
CHI-I,CHI+1
TR
~.
PARCNToI,lO
10LER
BN
s. 10LOOP,I,I0
•• 32
R~l
RNR
rOlER-24.CHI+2
8
BEGIN
DORG '-3
C.
CHI,23,lO
INE
10LER
123,8,COMMA
BTM PUT,
CHI-I,CHI+l
TR
~F
10SW
8
100
OORt; '-3
8TM PlUT,
124.8,LEFT PAREN

••
.MTR

CM
8E
8
OORt;
9TM
.M
TR
AM
8
OORG
DORG
TFN
8
TRA
TCO

25810
25880
2'5890
25900
25910

Sf
TR
I
DOR(;
INF
CF
C"
INE
aTM
80

PAR-tNT .1,10

CHI-l,CHI+1
IOlOOP,I,10
CHI,24,I0
.+20
100
.-3
PUT,
124,8,lEFT PAREN

'AReNT.I.IO
CHI-I,CHI+I
10LOOP ,1,10
100
'-3
16000
IOAT.-+23
IOPT,8LK4,7
16000

OUT OF CORE BLOCK 5
OUTSC
00
OKlO

14U4
141M
141 . .
14"6
141H
1416.
14110
141'2
14204
14216
lUll
14lJ6
142,.
14l . .
14160
14lll
14214
14296
14308
14320
14)32
1434.
14352
14352
14364
14]76
lion.
14400
14412
IH20
14420
1""32
1444.
14456
14468
144.0
14492
14500
14500
14512
14524
14536
14548
14556
16000
16000
16012
16024
16016
16000

10091
1'1)'
14016

00000
1!S140
00000

UIOO
10091
15119
11920
09036
U41Z
11100

10091
00000
OOOll
01200
0-U3
06405
00000

U139
13800
09036
&5llB

UIOO
14075
14352
13776
0263.

000-4
01200
0-104
15140
000-1
01300
000-1
01200
15141
00000

15139
13800
09036
&5UI
10091
14016

000K]
01200
0-12)
15140
00000
00000

09036
0)348
15138
14075
15119
14500
14016

0-124
000-1
15140
000-1
OOOK"
01200
00000

II
49

090J6
03148
15138
14075
14016

0-124
000-1
15140
000-1
00000

16
49
36
49

00565
00532
00000
00000

J6023
-9771
00500
00000

J2
Jl
4'
44
II
14

4J

n

41
4'
14

41

11
JI
12
47
12

41

.5
49
I.
47
17

3l
J2
49
17
II

H
II
14
4.
49

17
II

H

onu

!SI

CONTAINS rHE FOllOWING

429

1620 FORTRAN 11-0

PHASE I-B

PAGE

25920
OORG lour
25930
TFN FMOPII+35,BlK4. ,
lOUT
25940
8TM FNON,IOUT
TFM FMON+35,8LK2
25950
8TM FMON,NONARA
25960
TFN FMON+35.BlKl ••
DIN
25970
BTM FMoN,DIM
25980
25990
TFN FMON+)S,8Lkl.,
COMMON
BTM FMON,COMMON
26000
TFM FMDN+35.8LK6 I.
26010
IF STMNT
BTN FNON,IF
26020
TFM FMOPII+]S.ILK6 "
GoTo
26030
8rM FMoN,GOTD
26040
TFN FMON+35.llK6, •
26050
CAll
8TM FMoN,CAll
26060
TFM FMON+35.8lk6, •
RETURN
26070
26080
8TM FNON,RETURN
TFM FMOH+35,BlKl, •
26090
FORMAr
8TM FNON,FORMAT
26100
8NF DOloDP+36, TRIND,.
DO SUTEMENT
26110
DOlOoP
26120
8
TFM FMON+35.8lK3 ••
16130
UCAN
BTM FMON,ASCAN
26140
SCI,SINGST ..
26150
80
OUTSC
26160
8
OUTSCI
26170
TOM USEDFS+5,1 ..
01 SK 110
26180
8
DKIOEN
26190
OUTSC CODE I SHERE
26200
OORG ASCANI
26210
OUTPUT DO STATEMENT CODE IS HERE
26220
OORG 00E'24
26230
THE FOllOlilNG INSTRUCTION IS A CHANGE TO DO STATEMENT CODE
26240
80
DKF,105W,.
RETURN TO 110 SCA'"
26250
DORG 10UTEN
26260
ENTER HERE TO DECODE DISK 110 srATEMENTS
26210 OKIOEN SF
FLAG FOR FETCH AND RECORD
DKIO •••
26280
CM
CHI.43.10
26290
ROlE DKIOI
TFM OK'UT'lI,014Z.I,
26300
fETCH SYM.OL
26310
CM
CHI+2,4 •• IO,
CHECK fOR H
26320
EUOI
TR
26330
CHI-I.CHI+3, ,
SHIFT Off TIIO CHARACTERS
26340
OKLIST
26350
DOIIG .-3
26360 DKlol CM
CHI.44.10
26)70
INI OKl02
CF
DKID, . .
lUIO
NO 'LAII 'CIa "NO
26390
Tf" DII'UT+lI,OI44.1.
"NO ""laL
26400
TR
CHI-l,CHI+I . .
SNlfT DI" DNI CHAUCTlIl
UloID
OKLIST
26420
DORG '-3
264J0 DKI02
COLNAM.DI.IO
26440
C
"".ORDCT+'
264!S0
1 . .01
IY
26460
INI 1111101
2t470
TR
CHI-I.CHI+5 ..
SHIP' gp, ,NIl" CHARACTlIIS

...

''E

•

•
""

10200
10200
10212
10224
IOB6
1024.
10260
10212
1028.
10296
1030.
10320
10332
10344
10356
10361
10380
10)92
10404
10416
104'8
10440
10452
10464
10476
104'.
10500

49

02359
02324
02359
02324
02359
02324
02359
02324
02359
02324
02)59
02)24
02359
02324
02359
02324
02359
02324
12094
12058
02359
02324
10884
10512
02268
11141

-9771
J0200
-9725
J022"
-9702
JO'48
-9702
J0272
-9817
J0296
-9817
J0320
-9817
J03"4
-9817
JO)68
-9702
JO)92
03185
00000
-9748
J0440
10078
00000
00001
00000

4J

IU52

10091

J2

10411
15139
13240
lnll
11141
04112
IIUI
IlJlO

00000
000M3
01200
0-142
OOOMI
01200
11142
00000

"U9
13101
10. .1
Inll
nUl
UIIO

000"4
DilDO
00000
0-14'
"140
00000

04616
lOOI9
042 . .

000-3
l . .41
Ol400
01200
ISI.4

16
17
16

11
16
17
16

11
16
17
16
17
16

11
16
17
16

17
44
49
16

17
I ..
.+2'4,CHI+2
EUO ••• " •••
OKSWI-I.SIISfT-' ••
Dill
.-)
"'D.CHI>2
IEGII12
"ZO. SIIICI12
CH
CHI .... IO
IIH
OltER
SF
OUTSII
OKLODP De
2.0,-0
lIT .. CSORII
SF
OllE
2,--]
0115111 OS
2,--1
0ll5M2 OS
0110
DORG . - )
INf OIlEA.OIIE
OKE
OIlE
CF
CIII
CHI. n.lo
BliE OIlC>U
ITM "UT.01JJ •••
OUT ..uT llUAL nM"
110
DO_-U.fxoaFL ..
00 YO DO '.1111 ,l1li .tIk.,O 00 L_
I
OilER
OoaG .-)
RfTURN HfRe f.OIl DO tOO11ll
•
DIIF
til
tNI.o•• aO
aNf DIIIA
ITII .. UT.O.04 •••
OU"UT If ......
TR
CHI- •• tMltl
Sill
....Cllf.I.IO
IN
OIER
SOl
DIILOO ... I.a 0
aNZ
a . Olla-I •• CHlt'
I
IIGIII
OORG .-)
eM
tNI.U.IO
OUI

U9""
un6
U".
U'7'

11
2'
4'

O'HO
1"260

000171
14262
00000

13'16
13911
14000
1"01l
14024

16
I"

14143
ISU'
1)12'
on41
09016
15111
14143
UIl9
14500
15U'

000-0
000lt4
01200
ooo-a
0-124
15140
000-1
aDaK.
01200
000"0
OliOO
0000'
01100
00000

1~01'

'IJ11"
H
II
14

14041
14060
1"012
1"01"
1409'
1410.
14120
1"lIl
1"14)

...

141 ...
14156
1"1"
1""0
1"192
IUO ..
IU16
lUll
142"D
1"2Il
IU60

I"'"
.un

IU. .

'"

uu.

H

U ...

14
"6

1513'
11121
01010
2

U
4J

""0
14192
1.. 260
13....
14260
I5U9
l427l
090)6
IIUI
1"'72
2
2
1'01"

3l

.,
2"

2.
I"

'"
11
II

..
JZ

un.

aUll
aU16
141. .
.410.
1.. 120
I . .n
au...
a4",

.1'"IT "aun
•• . "

tI ..
. . ". .

n

,41"

'4

u

14

a.

lun
nl39
U ...
090)6

uu.
u"a

J4156

1.. 260
1.. ,62
01200
1.. 262
OOOU
01200
o-a23
15140
00000
00000
1"272
00000
OOOLJ
01200
O-ln
06..05
00100

000-"

01200

11 090 •• 0-104

....,
.....
...... ." 14""
.....
...... •• '_1
141••
1••00

14.16
I"."

54

II

11

41
11

U

lIUI
on ••
aun
•• au

11104

oaua

'IU'

a51.0
000-1
OUOO
ooo-a
01200
IU4I
00000

.. ",

1'.

U2

1620 , DII1'UII
21610

nUl
lU40
nnl oaG

21661
'14010
21610

uno

27700
27710

27720
277)0
21'140

27750
27760

27770
277ao
277.0 eIIOCT

lIN,
I

DDAG
I TIl
'M
TIl
AM

1*0

AM
TR
8

PA"CNT.l ... 0
CHI-l.tHI·1
I*LIIOP.I.III
OKD

0011'

.-]

27170 •

21'910 •
27920 •
2193' •
21940
21950
219'0
21970

219110
21990
28000
28010
28020
28030
280'0
28050
28060
28070
28080
28090

n

11
Il

..",,, 1oE ....

PAil' II

1. . .0
1"10
I""
146M
146U
14621
14616
lun

2,01

1464)

3.00'

1_

16000
10"T,-·23
IOPT.8LK5,7

16000
16000
16012
16024
160)6
160110

16000

6

PAGE

UTH
lU. .

09016

on..

Jl

In.

11

H1U

1.

t'tU'

1. . . .

01200
_00

000&4

OUOO
00000

17
Il

a.D)6

O-U4

Jl

t!u.
H14]
1_4

ODO-l
15140
0'0-1
!le000

Il

••

on..

"

0-124
010-1
t!1.0
000-1

1~1'

1457'

).DlD

OUT OF tau aa.oca
OUTse
CAll
RETURN
IF
I F SENSE SWI 1'CH

2

.

4t

]6

49

00"5
00512
00000
00008

J6023
-9794
00500
00000

02)59
02124
023n
02U4
02)59
02324
0235'
023H
0)141
13214
1'139
IH20
15139
120"
04656
131t6
0235.
0232'

-9771
J0200
-9725
J022.
-9702
J0248
-9702
J0272
000-1
00000
000N6
00000
OOON)
00000
000-)
00000
-9702
JO)92

COll'UIIIS THE FOLLIliING

Goro

DOlI!; lOUT
TFM FMttN+35.8lK4 ••

~oo

lOUT

BT"
TF"
8T"
TF"

F"OII.IOUT
._'35.ILK2
FMON._AU

8T"

F"OIl.OIM

TFM
8TM

FMO"+)5.BlKl't

AM

PARC"" ,Ole 10,

8
eM

GO TO

eM

IF I
CHI,S.,lO,
GOrDEN
CH1.53,lO.

CALL

8
8TM

CAllEN

B

£RIOO

B

28UO

TFM
BTM

28120

..
I"'.
..
1• •0
1. . .'
1"00
1.,00
I"U

14116
1. . . .
14161

.-,
00.'
8TN I'IIToD1MoI.
8

TCO

""Sf 1-'

1M. . LlH 'IIMII

to

·.24

21B60
27880 •
27890 •
27900 •

.1.

BE

27120
27130
27140
27UO

27810 SWSET

puellt

till

OAC
0110
DC
-0
DC
-0'
OORG
TF"
8
TU

271100

.-)

.. UT.oIM •••

tHI-l,CHIH
DKlOOl' .1.10
CHI..24.10

""

II-I

OlU
Olll

FMO... 35.et.Kl ••

10210
10211

11224
lQ216
102.1
102110
10272
10214
1029'
10)01
11320
IQU2
10144
10356
10)61
10118
10392
10404

DIM
COM_

F"ON,CO~

COUC&ItI,03.11.
RETRN
FMON+35, sun ••

IF

RETtlRN
FORMAT

FMON.FORNT

16
17
16
17
16
17
16

11
11

.."
49

14
49
17
49

"

11

433

1620 FIlRTIl. 11-0
28130
21140

TF"
8r"
TFII
BT"
BO
8
TF"
8TM

FMO .... 35,8lK4, ,

PHASE 1-8

000

F"ON.OOO
FMON+15.BLK), •
ASCAN
28160
FMON.ASC ...
28170
SCI.SINGST ..
OUTSe
28180
DUTSC 1
28190
01 SIt I.PUT/OUTPUT
FMON+3'.BLKS ••
28200
FIOIlN.OKIO
28210
OuTSt coo£ IS Hf~E
28220
DORIO ASCANI
28230
ENTER HERE TO DECOMPOSE CALL STATEMENT
28240 CALleN tNE ERROl
28250
TR
CHI-LoCHI'1
28260
8T" COlN. . . 04,10
28210
$VM.UITCr.,
C
28280
8V
tALlER-48
28290
BE
EXITeO
28300
SVM.L III.CT+6
C
2Ul0
BE
lINKeO
28320
TO" CALLSW.l
8TM PUT.
28330
US.I.CALL
28340
CM
CHI.40.10
•• 2.
28350
8H
28360 CAllER 8TII e".OR,27.,.,
INCDUECT CAW. NA.E DR LIST
28110
CM
CH1.69.10
21310
8H
CULER
21390
SF
aursw
28400
IT" CSOIIN •• '12
aNR tALLI,tHI+2
21"10
28420
80
CULl.INSIl
ITM PUT.OUf •••
'UII: TID .. 0111._011 CALL
"HO
28440
TOM SNtNT .. '
.450
DC
1,',28150

21. .0
28410
21412 CAllA
21414
28416
11410 CALL8
2M90

lnoo

21510
21510
ZU10
2U.0
21550
2'''0
21570
11_
21600
21610 CALLl
Zl620
U650
21710 CALL2
ZI1.0

•

DOIIG
Ilia
I
ooRG
10
ITM
IN.

elGIN

I'
•

TFM

10464

10416
10'8'
10500

12058
12070
120.2
lZ094
!ZIO'
12111
12130
12142
121M
121 . .
121.,.
12190
12202
12214
12226
122M
12"0

12,.,

1227.
12216
122.1
12)09

-3
EUO •• SI1tllT .11
BIGIN

lUll

.-)

lUI•
1211.

•• Z•• FNUW
IUOII.27 •• 9.
·+ZO,.IITSII

uno

na PUVIOVSU USIO NOT AS CALL """I
TUI. TO CALL SINGLE STATIINT FUNeT

.-)

.111511.0
CHI.2'.10
tALLU

....

,

~UT.
U •••• UH
~AltNT.t .10
CHI+2.'.10.
fUf 'OR 110 'UIIC flail AII..,.III."
CALU.
ASCA. . n.eLASIII
AUAII •••
Go '0 AIIIT""n," KAII

.."

DOIlG '-1
c. CHI,U,lO.
••!

1ftT . . . . . . . . . .TS

"

If

16

If

n

49
It

11

02359
0232'
0235.
02U4
IOU4
10512
02359
02)24

-9771
J0416
-9741
J0440
10071
00000
-9794
JO'88

0'282
15ue
04656
100"
12154

01200
15140
000-4
13129
01'00
01200
U137
01200
00001
O-UI
OOOMO
01100

56

12051

12310
lUll

• --2., ..

00II,
TOil
CN
I.
1"1
All
tM

PAGE
1041t
1042.
10HO
10452

uno

12162
lun
lUll

lUll
121. .

12. .
11411
12'.
12461

H

.
.
H

11
24
46
14
46

l'
11
14

11
14
46

126~

10DS9
12118
100"
09CI16
15139
12214
0'))0
1513'
12212

J2
17
U
H
17

oltn

I.

0724~

~690

12)M
lUI.
09016

OOU,
00009
DilDO
00000
J2262
15141
OU19
0-151
00000

..
.
., 12,.,
. 01""
I

U

DUll

00000

01'15'
OZU'

00001

MIlO
lUll
12110

1001.
00000

OU"

10011

17

49

11
l'

n

17
11

..
.,"...
14

100.0
I'll'

11111.1.
"'.M

II...
llt41

00000
010&4
'UOO
O-U'
000-1

010-6

12.M 46
.'
u_ II, I1.
.....

01210

lD,,"

00100

Inn

I00I11
IUDO

12.,.
12...

14
U

1It10

J.".

634

1620'OUUN
2"00
21120
21no
21140
Zlno
21160
21110
21110
28 . .0
28900
28910
2'920
21910
28940
28950
28960

BT~

PUT,

B
OORG
CM
BE
TfM

CHI.4,10

8

ASCAN, ••

OOR'
BYM
5M
TR
Bl
BNR
B
OaR'
8NR
B
28970
DORG
28980
2B990 EX I TCO BNR
TOM
29000
BTM
29010
29020
8T"
B
29030
DORG
29040
290~0 II NOCO CM
BE
29060
BNR
29070
B
29080
OOIlG
29090
29100
TO"
29110
8 T"
BTM
29120
BTM
29130
TR
29140
CM
29150
SNH
29160
CM
29110
AH
29180
TR
29190
TF
29200
TR
20210
TFM
29220
292)0 lHOI
CM
29240
BNH
BNR
29250
292bO

29270
29280 lKC03
29290
293ao
29110
29320
29)30 lKC04
29340

29180
29}90

II-D

PAGE

PHASE 1-8

123.I.COIIIIA

CALLI
.-)

•• )2

ASCAN'B.ASCI
GO TO StAN UITH EXPIIESSION OPERATOR
.-3
PUT,
IOIt,',RIGHT ,.UN
PUCNT.1010
CHI-I.CHI'I
-+32
CALl2.CHI'2
CALLER
.-3
CALLER ,CHl+2
BEGIN
·-3
CAllER-48. CHI +I 0
TR(NOtl,ll
pur,0131.8.
CALL EXIT SYMBOL
PUT,OlltO,8,
OUMMY
BEGIN
·-3

CHI+I , 2',10
-+12
CALLER-48.tHf+S
ERROl
'-3

TRINO.l.11

PUT,0152,8.
PUT.0140,8
PUT.0140,8
CHI-l.CH1+9
CHI,ltO,10
CALLER

CALL LI NK SYMBOL

CHI,69,10
CALLER

QUTARu"ASKLk
QUTAR+l.CHl

CHI-I.CHI·I
LKCO)+6,ourAR+3
CHI,1t0.l0
lKCD4
LKCDlt lKCD3+6, 11
ERROl
8
DaRG ·-3
TF
,CH1.
CHI-l,CHI+l
TR

AM

LKCO)+6.02.10

8

lKCDI

OORG
CM
BNE
BNR
tF

·-3
CHI,O~tlO

ERROl
ERROl,CHI.'"
aUTAR.z

125141
IUZl
125141
12nG
12542
1255.
125"
12514
ln14
125"
125. .
12.10

l26ll
126)4
11642
12642
12654
12662
12662
12614
12616
12"1
12710
1l7l8
12711
12130
12142
12754
12162
12162
12114
12786
12798
12810
12122
12834
12146
1285e
12810
12882
12894
1290.
1291.
12 no
12942
1295"
12962
12962
12974
12986
12998
13006
13006
13018
13030
13042

17

09036
12466

O-Ill
00000

15139
12514
1046)
10440

000-4
01200
J265B
00000

11

09036

12
1I

03348

0-104
000-1
15140
01200
1S141
00000

.
..
4.

14

16
49

45
49

45
49

15131
12642
12416

11202
02638

15141
00000

49

12154
031B5
0.036
09036
0263B

1514.
OOOOJ
O-ill
0-140
00000

14
46
45
4.

15147
12762
12154
04282

OOOh
01200
15147
00000

15

03185
09036
09036
09036
15138
15139
12202
15139
12202
13138
13139
15138
12968
15139
13006
12962
04282

OOOOJ
0-152
0-140
0-140
15148
OOOMO
01100
00009
01100
13152
15139
15140
HI41
OOOMO
01100
1296Q
00000

00000
15138
12968
12918

15139
15140
000-2
00000

15139
04282
04282
13140

000-4
01200
151H
00000

45
15
11

11

11
11
11
1I
14
H
H
~6

31
26

11
16
14
H
4~

49

26

H
II
49
14
41
45

n

12202

51

435

1620 FORTRAN 11-0
29400
2"10
29420
29430
29""0
29<50
29460

CF
CF
BT
BT
BT

PAGE

PHASE 1-8
13054
13066
13018
13090
13102
131a
13122

aUrAR'6
aUTAR'IO
PUT,aUTAR+)

PUT,QUTAR+l
PUT.aUTAR'1l
BEGIN
8
OGRG '-3
29470 EXITCT OAC
4,Ell T
EX IT
II
NKCT
OAe
",LINK
2"80
LINK
29490 aUrAR DSS
14
29500
4.0
DC
-000
,.-]
29510 fiIIIA.SKLK 05
29520
4.0
DC
-000
29530
4.0
DC
-000
29540
DC
2,0'
29550
29560 RETRN
29570
29580
29590
29600
29010
29620
2(6)0

29hO
29650
29660
29670
29680 URNCT

OUTPUT IF CODING

29110 IFI
29720
29730
29740
29"0
29160
29770
29710

29190
2"100
29110
29120 •
29130
29,40
29150
29. . 0

nno
zuao

TOM

BYM
BYM
BD
8
OOAG

BT"

TDM
TFM
eM
BE

4 X

1315~

13152
13159

.

13163

4

0

11

10059
04282
13234
09486

U2l~

4)

02638

1l2U

~9

OZ650

13283
01200
02293
OON77
03243
00000

13ZJ~

17

13U6

11

11270

15
4.

090]6
09036
05625
0263B

0-139
0-140
00001
00000

U
43

uu.

13271

......
......

rUMsnR

SET SNITCH TO INDleAT I' STATellENT
TEST fOR VACfOUS 'ARENS

13214

U

1329.

17

lUOI

11

unz

49

1])40

uno u

OJln
09036
0.0)6
11340
1])52

OOOOJ
0-101
0-124
10019
00000

una u
In.4 16
un. 14

17

0 . . 86

46

104115
05629
15U9
13468

OONlI
00001
000-3
0041-4
01200

17

04656
104159
1)44'
U4IO
1046)
10440

OOOJI
lUll
01400
411200
JU51
00000

unl

1)400
11'11

BY

·.Z't

IE

fUOZ+U

u ...

Tfll

UCAN-n, IFAUII

114,.

GO TO stili UPIIUSI 011

) x

Ilzn

uno

STC.)010

14

\3166
1311'
13190
1320Z

13zn

0.20
·-3
£IIROR2.511 .9

AStAN",

4 x

14
4

If!S CODe
ITM COLMA"oI1.IO
SYM.SEIISIIC+20
C

e

5B

00000
00000
13141
11145
13149
00000

13165

sn TRANSFER INDICUOR ON
'RINO.1,I1.
I07.1.IF SYMIlOL
PUT.
IH ••• LEFT 'UEN SYMBOL
O.20,DOTIitAN. ,
TUT If DO LOOP ENDING WITH

CHI.04,lO,
fUOl

02638

13138

'UT,

1'5W,l"

49

21
21

13131

ENTER HERE TO OUTPUT RnUIIN STATEMENT
SYJl4,U_NC'· ...
ERROl
•• 44. SU8Ft T
ERROR2. 577,9
BEGIN.NOINO
8EGINA
8
oaRG '-3
&TN PUT,
L39 ••• IIt.ETU_N
8TM PUT.
140.I.OUMIIY
TOM RTSW.I
B
BEGIN
OORG . - )
OAt
30 URN

UAN

Z7

13144
13148
09036
09036
09036

13123

C
BNE
BO
BTM
BO

29690
29100

n
n

U44'
1)440

24
46
.6
1.
49

/

436

• .,0
' . . .0

,.tOO III"
'HIO
nuo
ntlo
'H.O
2 . .50
2 . . .0
2'.'0
19. .0
29. .0
10000
JOOIO
10010
10010
10040
10010
30060
30010
10010
JOO.O
10100
10110
lOUD
lOUD
10140
30150
10160
30170
10110
301.0
30200
30210
30220
10nO
10240
10250
lOUD
30210
30210
30290
10100
10310
10320
10330
10)40
10350
30160
30110
)0180
10390
'0400
30410
30420
30430
10~40

'.nAII

11-0

,"AI, I-I

PAGE
1). .1

DOlI• •-,

".
,.

ITiI
CII
IH
Ifll
TOil
ITII
TOil
SF
IT
til
1111
511
ITII
TFII
OUYSII TR
SF
CM
IH
aTM
BTM
BO
I
DO.G
All
BD
10
SM
IH
BNR
B
DORG
BT'"
OUTSNE BTII

U ...

11101.11 ••
CHI-I.CHI_.I
I . . . I.seIlS. IIIITCH SfIlIIlL
CHI. JO.lO

..

"'",.

SII"CH IIUIlIfI III niDI
lUO•• " ••••
0111511.1
CSTIIo.··n.
OlllSII.O
Sfll-'
'UT au, SIlITCH IIIJIIIII
'UT.Sfll"
LIICIl PD. AI GHT "IIIN
CHI ••• IO.
IF.16
".CIIT.I.IO
10••••• IGHT 'A.IN "".DL
'UT,
SET U, TO OUTPU, TIIO SUTEHIIIT NUllBEIS
STC.l.IO.
CHI-I.CHI'I
OUTSII
tHI.69.IO

•• 24
E•• OR,17',9.

tSTNO, •• lZ.,

"ICOUECT STATIMENT IIUlllE.
COllECT AND DUTPUT SUTEHENT NUMIER

SIIADO.~.IO

-

IUIICH IF IN CDII'UTED GO TD

U".
U"6
11511
U600
U61l
1161.
U6J6
116~1

13660
13Ul
13. . .
13696
IHOI

uno

13'
"
13176

IHII
13800
13BU
1312~

UI32
Un2
INCDUECT NUMBER OF SUTEIIENT NUMIERS

13'~4

13856
UI64
U'64
11176
U ...

INDEX OF COliI'. GO TO MISSING OR I'OVALO

11900
11908
1390.
11920
U932
139.4
11956
11'68
11910
11992
1400~

TEST FOR FIXED POINT VAR

n
,."

.
t1

o.no
"UI
0....
III,.
11"0

n o.no
IDOl.
unz n 051. .

un2
U'.4
11152
U15'

"'O.INSII
•• J2
·-1

OUTSNE-Il.SIIAOO.ll
OUTSNZ.CGTO ••
SlCd.IO
DUTSNE"O
e.32.CHI+l
BEGIN
.-3
ERROR. 17.9
ERROR2.573 •••
B
BEGIN
OORG .-3
tM
CH1.23.10
BNE OUTSN . .I
B..R OUTS ... CHI+4
OUTSN.41
B
DORG .-3
CHr,It,10
OUTSN2 CII
BNE OUTSNf'20
511
"ARCNT.1.10
TR
CHI-I.tHI·1
BTM PUT,10 •••
8NR •• 24,CHJ.Z
OUTSN3 BTM URoR, 176.9.
CII
CH1,23.10
BNE .-24
TR
CHI-I.CHI·1
CM
CHI.49.10,
OUTSN)
Il
tM
CHI.55.IO

IJUO
I,..,
U50.
U, . .
UUI
11540

14016
14028
14040
1~052

.

"

JZ

n

I'

100••
10056
Oto56
15119

U

lon,
on ••

16

0.016
OU19

31

I5UI

II

01010

n

n

.
14

n

IT

u

••

nut

uno

09])0
05191
1]752
13176

00-12

lSi"

O-UO
000'0
01100
aDJ?
00001
JJS6 •
00000
00000
10059
OOO-~

01100
000-1
O-IO~

000-2
151.0
00000
0000.
01100
OOJ15
J]7]Z

03279
00000

12

U'O.
05629

45
49

02631

000-4
071911
100.6
000-1
01100
15141
00000

11
11

09))0
09486
01611

00-77
DONn
00000

15139
UTOI
13660
13701

000K3
01200
15143
00000

151)'
13164
03348
151)1
090)6
13992
0.330
15119
11980
15131
15139
11.80
15139

000-.
01200
000-1
15140
0-104
15141
OOJT6
OOOK)
01200
15140
DOOM.
01300
000115

II

..
U
U

..

~.

."
47

14
4T

12
II

17
4'

17
14

47

11
14
47
14

01l'~

138)1

1316~
131~~

5.

437

1620 FORTU'" /1-0

PHASE 1-8

PAGE

BH
OUTSN3
BTM CSORN •• H2
BO
OUTSN), SIICNT .11
BT
PUT.SMAOo-l
30~90
B
oUTSNE-32
DORG .-)
10500
30510
ENTER HERE TO OUTPUT GO TO STATEMENT
10520 GOTOEN BNE SPERl
TOil TRINO.I.II.
30510
SET TRANS INDICATOR
10540
80
•• 20.ooTUN
)0550
-.20
B
)0560
DORG .-)
ITM ERlDR2.nt.9
30570
TR
30580
tHI-1.CHI+1
30590
CII
tHI.14.10.
TEST FOR COIIPUTED GO TO
)0600
8E
COMPUT
TFM SlCd.l0
10610
30620
8111 .UT.
105 ••• GO TO SYMIOL
)0630
8
IRAIICH TO OUTPUT SUUIIEIIT !lUMBER
OUTSII'12".
DORG .-)
306~0
30650 COII"UT 81M PUT.
1 ...... COM"Uno GO TO SYMIOL
10660
8111 "UT.
U •••• LEFT "UN SYIIIOL
All
30610
'''CNT.I.IO
30680
TOil CGTO.1
30690
,OUTSN •••
lUNCH TO DUTPUT SUTEIIENT NUllIUS
30692
OORG .-3
30700 SEIIS~C OAC ,,,SENSUIlITC"
SEIISESWITCH
lOTIO
OOlUi 16000
Tfll IDU'."l
10720
Jono
10PT.U••• ?
10740
TIA
30450
)0460
30470
30480

...

•

•

30150

TCO

10"0

01110

'600~

14064
14076
14081
1"'00
14112
14120
14120
14132
1."4
1.156
1416.
14164
14116
141 ••
14100
14212
14224
14236

46

13910
05690
11910
09016
1181l

01100
J40BB
0724'
07193
00000

09230
0)185
HI64
1.116

01200
OOOOJ
10019
00000

49

09416
15111
15139
14244
0562.
0.016
15612

DON7I
15140
000K4
01200
000-1
0-105
00000

IT
17
II
15
49

090)6
09016
01341
10016
13660

0-106
0-124
000-1
00001
00000

IT
4J

2J
~.

47
15
U

49

IT
11
14
46

16
17

1~24"

14244
14256
14261
14280
142'2
14100
14301
16000
16000
16012
16024
160.6
16000
00000

11

16
4.
16
4.

00"5
005]2
00000
00000

J6023
-9.11
00500
00000

60

1620 FOlU ... 11-0
ADL ITI
ADUVI
ADSU.,
AOVUI
AOVA.,
ADVLO'
ADUlT
ucnA
UCUI
UCAIII
IEGINA
"OA"
CALLEN
CALLU
CALL'2
CALLSII
CDDATA
CIlCNTU
CKCUA
CLASEN
CLDGTI
CLOGTZ
COLNAII
COllADO
COIIU2
COlOEA)
COIII~A

CO"IOEN
COMMON
COMPUT
CONTEN
CSTNOI
DECODA
DECODE
DEFINE
DI"ERA
OI"NOT
DISKSW
OK I OEN
DKLI ST
OKlOOP
OOLOOP
OOTEST
DOTUN
E37061
E81230
E84UO
E84180
E84240
EI4330
E84560
E14695
E84110
E8480"
(86440
E94210

0 . .0.
01.11
0. . . .
01Z0.
0.212
0.112
0. . . .
l.no
14412
12011
02no
O.IU
UOII
U'O,
0'400
10089
09175
04116
04106
lU1.
14534
14594
04n6
02262
09542
12148
11924
11516
10212
14244
11124
0550'
04026
0380'
11990
01452
10545
02383
1314.
13380
1414)
12058
13141
10019
0188"
10956
11940
11984
1'056
12160
12"12
12616
12856
UO,8
02430
09080

U . .'O
EliSION
EllflOG
IDLoa,
laUIVN
IRROU
fSIIO'L
fiCUS
UITCO
flITtT
FCTlND
FC TU:
HNU"I
FIITCST
FNUNI
FNTSN2
FOIIATI
FOR"'1
FOR""
FORMAT
FORMER
FREOSII
FUNC"
FXNUIIB
FXORFl
GENOIII
GOTOEN
IATV'E
IFASEN
IF SCAN
INTO,.
10LOO'
10UTEN
IOUTE~

IYAlEN
LEADRL
LENGTH
LI NKCD
L1NKCT
LITEU
LUS TNO
"ASKlK
IIOOAFT
IIONCAl
IIOVOIM
IIOYE"
MULDEF
NNARU
NONARA
NONARI
NOPA~IO

NU"BER
OUTSl2
OUTse 1
OUTSeE
OUTSN2

o.n.
III. .
OU4I
In16
10"6
0. . . .
OIOU
OUU
126"

nu)

OUI.
Oil.,
0641.
1000.
10011
01]'1
UUO
I ....

uno

10.92
U1H
1.170
U6,.
aUla
06405
11012
14UO
14111
14611

un.

ann
14075
111U
13240
Ul09
03106
02248
12118
I1UI
01672
08696
UII,
0911.
00796
11116

"'24

02314
10'1'
10224
04131
14700
06102
U262
10512
04195
13908

'"All I-I
OIITSII)
OIIYS ...
"RCIIT
'AUSEII
'"lOAf
'HloaA
""OIST
'UCAII
'USTSI!
'UTOUT
RnURII
UCALL
Al
AZ

AOLIT
AOSTN
AOVU
AURI
AUR
AFTIL
UFAT
&SCI1
ASC12
ASCI.
ASC15
ASClA
&SCI
ASC'I
ASC22
ASC"
&SC,4
ASCZ5
ASC'6
AScn
ASCze
ASC29
ASC)O
ASell
ASCl
ASC"
ASC6
ASCl
ASC8
ASC9
ASCAN
ASCER
AVOID
81
8'
SA

BEGIN
IlK1A
IlKI
IlKZA
IlK2
BUlA

.

"GI
InlO
U'••
on.1
U"O
1,00a
11001
01151
0241.
OU'.
09)12
10 . . .
U2U
11.21
11915
01536
on60
0.016
0'1)0
12114
1501'
10.16
14'06
13814
14626
11190
12094
126"
132U
12231
12.)1
U94,
12916
13426
14012
14311
14198
1424'
14478
1'550
12"14
12526
1259.
13754
14116
104.0
1"026
06011
11921
11939
02130
02618
09110
0970'
0913)
09125
09156

ILU
ILUA
'U.
ILUA
lUI
ILUA
ILilI
ILIITA
BUl
lUI
ILOC
CI

cz

CALC
CALLI
CALL2
CALLA
CALLI
CALL
CUD
CCNO
CGTO
CHU
CHI
CKCNI
CKCN2
CKCN3
CKCN4
CKENO
CU"
CLOGT
ellPAR
eO"11
COMA
COMC
CO"f~

COilE
COMIN
COM"
COIOST
COlOSI!
eONT
eSORN
eSPVA
es
CSTND
eTlON
01
02
03
04
DEFCT
DIMI
DIM2
01103
DillEN

l1'U
11116
U . .,

u ..,

12U.
12n.
10144
1'016
01141
100. .

un.

15U'
O.'U
DIDIO
01111
Dlnl
OUI.
0291.
1441.
06590
II1Il

lin.

12024
09542
11.68
11116
12068
OHU
10090
11712
05690
0364'
all"
05398
lHI5
1 "'51
1196'
11915
11911
14401
10"6
1148.
11552
10512

106fl
101.1
100••
11111

DIIIfIO
0111
DIIISN
Dill"
OU
Ollll
Dill
OIlC
01101
OIlO
OIlU
OIlE
DIlF
OIlG
OKIOI
OIlID'
01110
OKL
OOUT
OIlSlIl
OKSII'
OllVAR
DOA
DaB
OOCI
DOCK
DOC
ODE
DOD
DO
UASE
ENOCT
END
EQI
EQ21
EQ22
E023
EQ24
Ea"
EQ1
EQ8A
EOR
EOUSI!
EAMES

0.7.1
o"n
0""
0 . .01
0.7t4
o . .n
o . .n
0....
0 . . .0
0'461
0""
llnl

u ...
u ...

UTI.
U.16
14104
1.0••

un.

I.n,
IUSZ
14100
U240
U30.
10. . .
U640
1"00
142'0
14262
0.016
125U
12610
12446
U390
Ult4
12.26
10416
Ul.0
U'95
10015
09554
10160
11016
lZZ04
11444
llH'
11100
11756
11511
10188
10011
09981
04282
U468
01956
14420
14420
00602
09))0
05626
0'736
U998
0921"
13594

ER~OI

ER~O'

EAR09
EAA . .
UR60
URET
ERROR
EASW
ESNO
HYPE
lOX"
FC"A

439

1620
FeTST
FliST
FLNG
FMON
FMSW
FNTSW
FO""
FOAMI
FOA"2
FOR"3
FOA"4
FORM5
FOR"1
FORMB
FDA"
FO~"X

FPZ
FTY'E
FUll
GOTD
HERE
HOLLI
HOLL
IFI
IF
IFSW
INOI
IND'
INDIV
INOUT
INSW
INTOP
IDA
lOB
lOCAL
100
IDE

0193'
lHO ...
OZZ50
02324
10082
10010
12166
1253"
12814
130"6
13898
13414
U662
U110
03"1
U930
0'291
12954
08012
10320
12692
14051
U998
132."
10296
10085
11519
11538
OH24
13616
0)219
09'21
13156
13901
00116
14016
14156

FORT~AN

10F
lOG
10GT
10lE~

10PT
10UC
10AT
10SK
10Sli
10UTl
10UTZ
loun
10UT4
loun
lOUT
I
JAY
JOE
J
KLNG
K
II

L'
L4
L5
l6
LOPHB
LUOZ
LITF
LKCOI
LKCOI
UCO.
LSTlO
LSTEN
LUliT
IIUK
IIOOAO

11-0

14236
14420
00566
U800
0053'
00520
00565
00554
10091
13532
13214
U)64
U55'
13424
10200
11955
02)61
01156
11961
02252
11919
O.ZZ,
04294
11196
llnz
11116
16024
on14
01120
12911
12 . . 2
U006
02301
01011
01501
11'"
01111

PHASE 1-8
MODE
liON
"VI
MV,
"V3
Nl
N'
NOIND
NUMB 1
NUM82
NU"B)
NUIOBI
NUIII
NXLOC
01110
ORDer
OUrAR
OUTSC
OUTSN
OUTS II
P2PTA
'Al

PA2
PlUS
PCNT
PI
PLUS
'LUSS
PR
PTY'E
PUT
UAOI
.ECLG
UF
RfTRN
ROUTN
USI!

PAGE
0640)
12161
11604
11692
11140
O'2U
OZUI
032.)
06254
06511
06 . . '
06290
0611'
OU72
10011
14631
UU8
10464
13660
01020
02313
10934
10112
111. .
140"
110ll
06811
10011
12'11
12830
0'036
0219.
0224]
01911
UI46
13641
05625

SALT
SAVEl
SAVEl
SAYE)
SCI
SCZZ
SC2
SC)
SC"
SC5
se9
SCHI
SO
SETOII
SLASH
S"AOO
SMCNT
S"lNG
SMTLU
SPERR
S,GS
SUFf
STU
STC
STNER
STSN
SUBPl
SUIPZ
SUI"
SUI'F
SUISW
SUITR
slisn
SVII
TIC"
TlCHT
TIST

05194
11111
12161
11119
10 . . .
106'0
06090
10.11
10164

loez4

1116.
06001
10111
10610
12611

onn
01247
05917
0 . . .0
09230
0931'
044U

Dun
016"
0]411
01621
uz ••
13441
Ul,.
I1Z01
10092
0.431

.....
lOOt.
0. . . .
024Z.
O."Z

6'
TE"P5
TEIO'
TEND
TEHZ
TlNUE
TONY
"CST
TRINO
URNCT
VARU
VARSI!
IIIOCK
IIIDTH
II
1111

lUU
SAYSYM
SENSIIC
SETOM,
SETO"]
SETO"4
SUOlO'
snFRa
SETIND
SINGST
S"LOOP
STNOSII
STOPEN
SUIFer
SUIIPUT
sunST
TlLFUL
"UCT
URDA"
USEOFS
XCLD"
lEASVIO

04113
04161
02'0)
10011
U1Il
11108
1S615
03115
13279
06498
07511
1.,52
1.'41
OZZ40
02296
10075
02Z43
14301
10U6
11016
11216
11314
14110
OU16
10011
010'0
loon
U"8
022.3

U2IO
08300
07l)6

1....
Otl61
OUI)
146 . .

0""

END OF ONE ASSEMBLY.

440

HI

lb20 FORTRAN 11-0
00010
00020
000]0

lb20 FORTRAN 11-0
DORG 02218
,-100
DC
5
-010DC
1
.2

00040

PHASE

l-C

PHASE l-C

PAGE

STORAGE ALLOCATION
02218
02222
02223

K

00050
00060
00070 Nl
00080 NZ
00090 •
00100 RECLG
00110
00120
00130
00140
00150

SAVSVM
LENGTH
FLNG
KLNG
PROGSr

00160 COMADD
00170 USEDFS
00110 SUIFcr
00190
00200
00210
00220
00230
D0240
D0250
00260
00270
00210
00290
00300
00310
00320

Dono

00140
00350
00360
OO)7D
OOJlO

...

DC
.67
07
DC
.987898
6
RH898
DC
.0
2
-0
DC
5
.0
-0000
DC
2
.0
-0
,000
DC
-00
OS
.REClG
12
OS
5
OS
2
OS
2
DC
5
.00000
-0000
OS
30
DSC
.0
000000000000000000000000000000
DC
1
.0

02225
02231

02238
02240
02243

,

PUSTSN DS
1
PUSTSN • 2 FOIl PAPER TAPE
PUSTS" • 4 FOR CARDS
NN
DS
2
FP2
OS
2
TEND
DS
LSTAO OS
5
PZPU DS
5
FC TfllD DS
5
5
DS
FMON
TF
•• 42.FfIION-l ••
TFM
10RT."23
IDGT,,7
I

•

...

DORG '-4
OS
1
OS
5

'ULOC
nil
CONST OS
DISON DC

os

00)90 "ULOIF DC

,

5
1.0
1.0

00400 INTDP! OSC 1.0
0
00410
5.00600
DC
-0600

02241
02248
02250
02252
02257

12

02262
02263

5

5
2
2

5
30

02293
02294

,

JAY

6

02233

snup

ROUT JlIE E.. Tn

GO TO ueCUTE CALUO ROUTINE

02296
02291
02303
0230e
02313
02311
02323
02324
02H6
023U
OlJ60
02)67
02367
02312
02377
02)12

onn

2

,
Z

5
5
5
26
16

49

••

5
02366
00,.,
00566
00000

02323
-23'9
-0000
00000

I
5

5
5
1

0211.

onu
on.o

HZ

1.20 'OUlAlI 11-0
004Z0

DC
-01
DSA

00410
DOHa

DC

3,001
CUD

°

00690

DC

00700 8lKU

DSC 1.0
0
5017S00
DC
J7800
3t 136
DC
H6
oSA CULP2

00710
00720
00730
00140

DC

00750 AROUND TOM
00160
DC
SF
SM
Tf
TO
AM
TFM

00770
00780
00190
00800
00810
00820

on ..

5

02191

-ln4
I

on ••

I, '

CALLPZ TFII

.

Z

OUU

F 110/110 15 ,
IlII
nil fllON,CALLPZ
INOI¥ OS
I
INOI¥ •
•
fOI CUDS, I ~oa "PIII.nu.
FLAGGED I FOI PAP. . TAPE
TICNT OS
ENTlOG os
.USEOfSH
OOSZO UTn
os
.15015
005)0 CHI
oAS 430.15139
00540 CHU
os
.CH10100
00550 lOCAL os
.716
00560 10GT
os
.566
00510 10UC os
.520
00580 10PT
os
t 512
,554
00590 10SK
os
00600 ERRET os
.602
,565
00610 10RT
os
.196
00620 MONCAl os
00630 fB6HO SF
Kl+'INn OUTPUT ROUTINE
00640
8T
OUTAoo,PROGST ..
00650
8
AROUND
00660
OoRG '-4
00670 BLK8
DSC 2,22
22
OSA 8LKSA
00680

00450
00460
00410
00410
004.0
00500
00510

"101

'H"I I-C

02400
02412
OH24

It

oun

17

OU24
I
5
0
0
430
0
0
0
0
0
0
0

02429
02267
UOJ5

I5H'

15139
00n6
00566
00520
005)2
00554
00602
00565
001'6
02430
02442
02454
02461
02461

a
a

J2

2T
4.

02461

10aT5
10210
02414

00000
01251
00000

5 X
-2469
1

D2461
02468

I,'

·Z461
-Z400

D2469
02474
02477
02482

5 x
-2400
1

02482
0248)

I, '
SVM+ I, . - .

L,' ,-

flAGGED TERMINAL RII TO INDICATE CA.O END

SYM+l."

PROGST .0l.10
LOC.PROGST
PTAA+2.PUSTSN
PTRA+2,06,10
SM400.0.

02484
02495

15

03400
I

ODOOO

02496
0250S
02520
02532
02544
02556

32
l2
26
25
II
16

03400
02257
03406
11506
11506
03359

00000
ODO-l
02257
02294
000-6
-0000

443

1620 fORTRAN 11-0
00830
00S40
00850
00860
00870
00S80
00S90
00900
00910
00920
00930
00940
00950
00960
00970
00980
00990
OlOOO
OIOlO
01020
01030
010'0
01050
01060
01010
01080
01090
01100
01110
01120
01130
01140
01150
01160
all 10
01110
01190
01200
01210
01220
01230
01240

S
AM
TF
5M
TF
5M
E86601 SM
SOl

All
8NR
8
oORG
8Nf
8Nf
CF
Cf
TF
CF
80
511
TF
TF
A
TF
Tf
8
OORG
A
TF
TF
T'M
UUOI SII
SNCI
RCTV
AIASE OS
IINTV
SPTV
1I0lN
OS
U6120 IINTY
All
TDM
OC

MOOAO.4,10

SIICNT.lo.IO
MOoAOolO.IO
SMAoO.lo.IO
• +20. SMCNT .11.

TEST Fa • END OF TA8LE

ES72l0
·-3
E86601.SIICNT,II.
5TMTNO.IIOOAO.1I •

TEST FOR lITERAL
TEST FO. STIINT NO

SMCNT •• 6

MOOAO •• 6
SYII.SIIAOO.1l
511AOD
E86801-41.0I00AO .11. lUNCH If FIXED
SMAoO,2.610
e+23.5MAOD.l1

SYM-2
lOC .FP2
SOIADO.lOC,6
ES6801+II.FP2
e"IOI-12
.-3
LOC.KLNG
SIIAOO.lOC.6
E86801+II,KlNG
U6.2006. SYllol
el.120+6 •••

FP2 DR KLNG

e.60

,--5
lOC-4

, ... 5
SIIAOo. '.10
SMAOD •• 6

1.·.·

01250
01160
01270
01210
olno oun IT
01300

SII
SF
Tf
80
nM
OSA

SIIAOo.,.lO
SIIADO
OUTLIH21.1 . .120+.
lll,PUSTSN
DUTK •• o"
U"010u,n"200,

OUIO
01320

8
DOIG
TI
TF

UUOI
.-1
tARO,CARD-Ii ••
CARO+4.LOC

PAGE

PHASE I-C

SMAoO. STIL
S"400,5.10
SMCNT. STIL
SIICNT.6.l0
"ODAD. STSl

02568
02580
02592
02604
02616
021>21
02640
02652
02 . . 4
0267"
026S1
02696
026'6
02701
02720
02732
02744
02756
0276'
027.0
02192
02104
02116
02U'
02140
02152
02160
02160
02112
02114
021.6
02.01
02920
02912
onll
02 . .4
onn
on.2
on. .
02 . .0
0299'
01001
01004
01016
0I0Zl

01040
Olon
0)0.'
0)0"
olon

olno
01340

lLl

lillY '01 'UIltHIIIIO CAROS"A"IUPI

22
II
26
12
26
12
12
12
II
45
4.

03359
03359
03364
03364
01369
03369
03364
0336'
03359
02696
0360S

02377
000-5
02377
000-6
02377
000-4
OOOJO
OOOJO
aOOJO
033611
00000

44
44

02640
03456
0)]601
OJ36R
0)399
03159
02860
OUU
02.15
0))97
03406
0)]5.
02.19
02196

033611
0336R
00000
00000
OUU
00000
0336R
000-2
0335R
00000
02298
01406
02291
00000

03406
031U
02919
02.74
02914
02910
00000
a
01402
00000
0
00000
OlU'
0)]'1
I

02252
03406
02U2
-3400
-0000
00100
00102

)]

31

26
31
43
12
26
26
21
26
26
49
21
2.
16
16

II
41
It
JI
34

II
II
15
U

J2

"

U
11

DJO'.

••

DID ••

II
Z6

OJoaa
010"

00100
00101
00100
000~5

00000

OU5.
OU59

000-'
00000
on74
01012 OU'4
0 . . . 2 -J06'
5 X
2

olon

-2919
-2974
016.0

00000

Oln4

oun

DIn'

01.0'

JI

444

'.20 I'OITUIt 11-0
CP

OUU
OUIO

fR

all"
01"0
olno
OUIO
011'0
01400
01410

"TF.
TO

'TeD

OIHO
01410
OIHO
01"0

'''·1
CUD.,.I".,O.,.II
S••• I
,tCO-l.'US" ..

I

10".'Tto-~,T

GUTlI T

OJ'"
OJUI

01400
01191
00'"

oou,
OJO.2

CUO
),00'

OUI'
OU9l

-)21~

DC
-0'
0 ..1

OlZU

.0

0)212
032Tl

10
I

0321.

1\
5
5
5

ass

50
)0
I, '

0"40
01550
01560
OIHO
01500
01590
01600
01610
0\620
016)0

fEll'

OS

5

fEOC"

OS

S

OS
OS
OS
OS
OS
OS
DC

as

os
SAvEl os
SAVEl os
SAVEl os
AOUVE os
Euse os
JEll"

DC

1\
5

OlJ64
OlJ69
OlJ99
OJ401
01406
01401

S
5

]0
2
5

I,'

•
5
5
5
5
5

2.0

SVM.S'UDO,ll
01640 Sf"fNO fF
S,.,OO ••
CF
01650
roM 5""00,,6
01660
S,OOOO',01610
DC
-000'
fF
.+)S.S.'OD
0\680
e+2),5.10
A.
01690
STMHT2,O.
01100 S f.Nfl eo
RCTV
01110
WNTY 5Y~-)
01120
8TM ERRORl.519,Q
01110
STM"Hl.ll. SVJlt+l ,6.
01740 SF.NT2 TF
Sf.NTI.ll,,6.
OIHO
SF
SNADO
SF
01760
8
E8b601
01710

UIU STNNT NO. AND .Et "UK
SET FLlG OVER .,,, ,o~ "SS 2

DOAG ·-1

01 no E81210 fF_
01800
DC

SY'1IH2" 10,

1,' ,.

00000

01""

00000
OU,.
-U11

-1I1S
00000

)0

2
5
I

03412
0141 ,
03.21

5
5
5

01411

5
5

0]4J2
0)4)7
0)442
OJ441
0)452
OJ454

5

~

J

on"

-0

olao

..."
n

OJ~OO

aUla

DU

tARO
SIUDO
S"tNT
"OOAO

MDE

au'.

DO~G .-~

OIUO
01.'0
OIUO
OIUO
OUOO
01510
01520
015)0

reM',

n
II
II

Dun
Dun

DC

LOt

OUO,

OUU
OU)O
01l4l

lou."n

I

0 ..1

sYII

"GI

,",. . '-C

5
5

5
5

2

01456
01461
014.0
01491

26

OJ492
01504
0)516
0152.
01540
01552
01564
01516
03588
01600
0360.
OJ60.
01619

26

Jl

16

II

H
14
31
If

26
J2

Jl
49

16

0))99
01159
OlJ5R
5

0l35R
00000
00000

01527
0)521

Oll59
000-5
00000
00102
00100
00N19
0)400
00000
00000
00000

an."

00000
OU96
10 . . 2
Ull'"
0!52P
01l)59
026.0
01401
I

000-0

H5

1620 FO.TUII 11-0
OIBIO
01820
01810
01840
01850
01860
01810
01880 E 81210
0\890
01900
01910
01920

T!ST IF I N

TF

B

8U~OU •••

GO TO OUTPUf .UFFU

eo
TF

AM
TF
AM
TF
A.

•

....

02050
02060
02010
01010
02090
02100
02110
Ol120
OHIO
OU~O

ozuo

01110
02110
02110
021.0
OllOO

OlllO
OU20
01210
UHO

nanD
ou,o

1)3nO
01110

OU.O

Dnoo

OUIO

onto

,

to"PILATION

8

$"AOD, TUSE
SMADO,I.IO
5"'''T, TUSE
SlIeNf ,5010
"OOAO, fUSE
MODlO,2.10
E 87)10-"
SMAOO.IO.IO
MODADoiOtiO
5"CIIIToIO. \0
SYN.1UI3-1
SMAOO. TE ~O ..
E9)OIO
U7420,5"CNT,II.
5MAOO.01.10
·.)2,5."00.11
SIllADDoioIO
E'1)IO

DO.' . - )
$"AOOol,IO
80
"ZO."OOAD.II.
£81310
OOAe;
Sill
''''00.10.10
Sill
SMC'" .10,10
SM
MDOAD. 10. 10
unlD
OO~G '-ll
117410 .". "20.IIODAD.1I.

TEST Fa. 'liD OF H.LI
TESY FO. CONST

O~

VARIABLE ASSIGNED

•." .-,

•
unlo.
•DO.'
...,
...,
"f'
"
"" SY"
"" TI", ••-It.ll

10

En490 Sll
All

All
fOil

U'UO."OOAO.Il,
117110.lIIooAD. II,
""10.5"'00.1\ •
'''ADD •• 1.
WOI.N.UIIG
•• ,4, SMDO. 11
WOlll.'"
"00'0.1.10
" n •• oo,o, I I

olin

oJto~

0"04
01911

OJUI
01940

'1ST 01' 'UNCT CIA SUI CAl.I.

NAill

t.

S.CII' .. ,

01140

If.
DC

"''''.·.n"
100

0""
Olt4.
0'''0
OJ . . .
0"61
0"10

onu

04004
04016
04011
04040
04011
04064
040"
04011
04100
04111
04U4
04111

1l00AD,'.1O

i.'

•

'UlltH " liD' IN e _ _
lUNCH IF CD..IIO.. VU IS "UY
.....CH I' COIlIlIIII VA. liAS 10UIY

·-10',10
IIDDAD.·-il.6I'

DC

03100
0)112
03124
OH]6
OH44
037"
01156
0)761
017.0
03792
01104
0)116
Oll2'
Oll40
0)152
Oll64
Olin

0""
Oll96

.-1

10

0)620
0)612
01644
03656
01663
0)664
0)676
01611

.-)

OUIO

outo

SUI'~OGUM

OOR<; '-4

01930
OORG
01940 £11110 SM
SM
0"50
01960
SM
rF
01910
olno
C
01990
IE
a...
02000
02010
5"
02020
OZO)O
A"
020~0

PAGE

'HASE I-t

fENO."ODAD
E92210,5UIFCT ..
TBlSE.FerENO

fF

"~"~ '"0 01 PUlleN

26
H
26
49

02)01
07B6
01555
09492

03369
02293
02111
00000

26
II
26

0))59
0)359
OU64
Oll6.
01369
Oll69
OHIO

01555
000-1
01555
00U-5
015n
000-2
00000

24

0])59
ann
on64
on99
01159

~.

DI9~'

\I
26
II
4.

Il

Dun

OOOJO
OOOJO
OOOJO
11489
0230)
01200
0))6"
000-1

1\

49

0ln2
OU59
on44

000-1
00000

1\
41
4'

OU59
01904
on44

000-1

onst
01144

OOOJO
OOOJO
OOOJO
00000

0""
on44

00000

O••• ~
04110
0'1'0

on ••
on ••
OU5.
00000

12
U
Il

26

...

.
.
"
..,,.
.
U
12
U

4.
44

o.na

o.n.
on ..

o)n~

OU.~

00000

ani'

U

au ••
04012

OIU •

It
U
I.

D...'

AU ..

,.
1I

I.

D...'

0 ....

0.a11

on ..
04081
ou..

It
1\

'.4"

0.'"

"

04"1
041.0

If

10"4
I

01..'
on
..

OIlU
000-'

on..
00000
~oo-,

.4."
040."
000-'
00000

I

.4160

446

1620 FOUItAN 11-0

PAGE

'HASE I-e
,

!lit 16'

02160

OSA

TEM'-~

02310

OSA

SYM-II

0~110

023.0
023'10

I

EB91~O

0~112

DO~G

e-3
E 18~20. SMADO, II.
S'I!AOO. ,6
MODE ,MOOAO, 11.
MODE
MOOAO.2010
ADSAVE ,IIIOOAD,l1.

SAVE NU .. UR OF 01 .. INOICIES

SYM, AOSAVe t 11,

MOVE VIR NAME TO SYM

SMCNT 010.10
TEMP. SMCNT .11.
"OOAO. SMCNT. 611.
"OOE,l,lO.
MOOE,5,lO

SAVE CO.... ON ADDRESS
SET ENTRY TO COMMON
SAVE DIMENSION INDICES

-nOB
5 X

0~165

0~110

02~OO

OHIO
02420
OH30
02440
024S0
OH60
OH10
02480
02490
02S00
02510
02520
02510
02540
02550
02560
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02670

Ul610 8NF
CF
TO
CF
SM
TF

TF
SM
TF
TF
A"
MM
A
TF

SMCNT. AOSAVE. 611.
e+32.$IIIAOO.11
WDlN,FP2

TF
M

SF
5
TF

A
5M
AM
TDM
DC
SM
8TM
DC
J
OSA

02680
02690
02700
02710

-3388
~.

0518~

00000

0~110

4~

0~536

04192

0335R

0~21'

B
2'
B

0~221

12

0~2~0

042'2

26
26

O13'A
00000
0))6R
00000
000-2
0))6R

0~26~

12

04216
04211

26
26
11

O~I'O

BItANCH IF COMMON ARRAY liAS EQUIV

0420~

0~300

1,05'VE,99

80
TF
8
OORG

6

X

0345~

21
26
43
26
49

OJHI
OB6M
04380
02962
04392

26
21
)2
22
26
21

02962
0336M
00095
00099
03411
03417
on69
03359
0335R
1

0~]~8
0~112

04380
04380
04392

WDlN,KlHG
SMC.NT,WOlN.6

OHO~

95

99,WDlN"
TEMP2.99

CALC TOTAL ARRAY VOLUME

TEMP2, TEMP"

TEMP2 CONTAINS lAST ELEMENT OF ARRAY

MOOAO,8.10

04"6
04428
04HO
044S2
0446~

SHADD, "',10
SMAOD, ,6
I, ' , .

04476
04487

5"AOO,14,10
PGPR T, •• 12
1.1

04488
04'00
04512

12
11
15

12
11

03~4P

OOOJO
OB6M
On6"
000-1
000-'
00099
0344P
OnSR
02298
00000

03~5~

11

04]2~

04]60

.+20
e- 1

03~~1

01399
OH64
03 . . 2
O136R

04312
04B6

PICK UP NO OF elEMENTS

034'~

01454
03369

02252
02962
00000
02962
00099
01412
000-8
000-4
00000

On59
10944
1

000J4
-~'12

TEMP-4

04517
-1408
5 x
-n88
5 x

02720

OSA

5yM-1I

0\511
04522

02730

OSA

TEMP2-4

04522
04521

E89740
02140
8
OORG .-3
02750
ENTER FOR COMMON ARRAYS WHICH WERE EQUIVALENCED
02760
S"C~T.O,bq
02770 E88420 CM
8RANCH IF NOT 8ASE
8NE E90620".
02780
SF
E89660+1
02790

04521
04528
04536

4'1

-3413
05784

00000

04536
04548
04560

14
41
32

0336"
06280
05741

00-00
01200
00000

H7

1620 FORTRAN 11-0
8
02800
OORG
02810
02820 E88410 TF
CF
02830
8NF
02840
CF
02850
02860
SM
02870
8
OORG
02880
02890
S"
SF
02900
A
02910
SF
02920
02930
TF
TF
02940
TF
02950
02960
8NF
CF
02970
SM
02980
02QQa
SM
SM
03000
03010 E88540 SM
SM
03020
SM
03030
03040
C
03050
8E
BNR
03060
03070
B
OORG
03080
0)090
BN.
8NF
03100
8
03110
DORG
03120
03130 E88600 80
03140
B
OOR,
03150
SII
03160
SM
03170
OHIO
S"
B
03190
DOoG
03200
03210 E81660 8NF
03220
8
0)230
OOoG
03240
C
INE
03250
Sill
0321>0
TF
03210
TF
03ZI0
0)290
TF
0)]00
80
AI!
Onl0
CM
03320
03330
8NI
0))40
TF

uano

Olna

8

PAGE

PHASE l-C

E 81b 70+24

'-3
E8ASE.SMADO.,

ENTER HERE AFTER ASSIGNING 8ASE VARIABLE

04572
04580
0"80

'9

0420'"

00000

26
3]
.4

03.52
04180
04648
05140
0)452
04660

03H9
00000
05740
00000
OOOJO
00000

03452
03452
034'2
03.49
03412
03437
03442
04792
05741
03432
03H1

000-1
00000
02377
00000
03359
0]36'
03)69
05141
00000
OOOJO
OOOJO
OOOJO
OOOJO
OOOJO
OOOJO
02303
01200
0336R
00000

E 8 7610

0~592

e.44,E89660
E89660
E8.1.SE,10.10

0'604
04616
04628

-+20

O'6~0

49

e-3
EBASE,l,lO
EBASE
EBASE.ST8l

0"48
0464'
04660
04672
04684
04696
04108
04720
04132

12
32
21
12
26
26
26

E8ASE-3 •• ,

GEN TABLE NU"8ER

SAVEl. SMADO
SAVE 2. SMCNT
SAVEl. MOOAD
e+60,£89660+1
E89660+1
SAVEl010,lO
SAVE2,IO.IO
SAVE3.10.l0
SMCNT .10.10
514AOO010.10
MOOAOolO.l0
SMAOO. TEND
E89610

*.20,"00AO,l1.
E88540
.-3
E81660,SMCNT t ll,
E8I600 .SMCNT .11.
E88540
e_.
"20.IIOOAO.ll
E88540
'-3
SMAOO.l0.10
SMCNT .10.10
MOOA0010.10
E8U40

OH4~

04156
04768
04180
0.192
04804
04116
0412.

lUNCH IF NO STORAie ALLOCATION DONE
IUNtH IF NOT STATE .. ENT NU"BER

~9

0.968

041. .
041"
04901
04904
0.916
0492.
04U.
04916
049U

~~

0~90~

49

04192

033611
0336"
00000

4)
.9

0492'
04192

0)36.
00000

12
12
12

OOOJO
OOOJO
OOOJO
00000
0])5.
00000

12
H

4'

~9

033'9
03364
03369
04192

0~961

4.

04988

049.0
0. . . .
0....
05000
05012
05024
0503.
050.,
D5060
05012
050 ••
050. .
DUal
05110

~9

0~904

2.

03451
0.90.
0))'9
03447
0))99
0))99

0~960

0.961
SEARCH FOIl EQUIV. VARIAlLE

EII600

•• 56.

034~2

45

.
12

OU12

.-)

EUSE-l. S"'t~T .11.
181600
511ADO.l.10
lDSAVE. S.. ADO.l1.
Sy,..ZERI3-1
SYI!.AOSAVE, II.
EII900.MOCAD.II.
ADSAVI,5.IO.
AOSAVE.O.1>7,
.+)2
TEMPJ.YE""

33
12
12
12
12

0~172

0.152
0486~

.-)

·.20,SMAOO,11.

H

0336'
03359
03369
03]59
05672
04872
04"2

o.no
BRANCH IF NOT SUB. 0. fUNCT NAIIE

H

12

IS EQUIV VAR EQUIV TO 'IIUINT

SAVE SYMBOL ADDRUS
MOVE IY" NANI TO SYM
TUT I' VAR WAS DIMENSIONED

TIST fall '1110 0" SET

'UI

.1

U
26
Z6

U

U
11
I~

052~4

0)441
034"

4J

on 21

••

03.22
05116

a.

0))6"
01200
000-1
0]]5.
lUn
0""
0]]6.
000-5
-0000
01200
03412
00000

,.,

,

'"\~

H8

onu
DlJlO
on.D

0011 CO

.-,

,.,O'OUUII

11-0

'HASI

a-e:

'"

'" Til"
nil', •••
SIIIOD. TEll".'.
511100.1.10
SlItll' •• ' .

1.' ,-

0)450
0)"'0

ITII
Dt

,G,u."12
1.0

OUIl
OlU"

0.410

DSA

nll"-4.!YII-Il

au'.

on.o
0'400
0'410
OJ4Z0

nuo

0'''0

II

Sf
I
T'
fF
TOil

DC

IDS-YE .IIOLII •••

n

IIOV' OIJ n III AOOIESS TO "IU

n

OJ4.,
DOD"
000"
0)4',

II

,.,.

1&

1

01810
01140
03850

5"
5M
ITM

.-)

SlItNT.IO.IO.
SlItNT. O. 67.

•• ::u

ENTU FIIOII funD
TEST FOil lUO OFF

••• Tfll'

.-,

•• 44

..

SMtNT •• OlN ••

'5

99,Tt.P,.

JEM'S."99, •
IOOOE • MOOAO. 11 •
100Df
TEMP!,,- TEMP),.

GEII .00 OF FlIIST fU"."' OF AIIRAY
.110 "OVf TO Tt"')
nil"

tONUllIS USE AOOIIESS

1I00E.1o 10
MOD£.5.10
AOSlVE .99
SMCIIT, lOSAVE .611
SJltCHT, WOlN,6

O~412

"

SMAOD, ,6
1,' ,e

OH44
05416
05461
onlo
05492
05504
onl6
onll
055.a
05552
0556"
05516
05"1
0"99

SMAOO. 14.10
MOOAO.IO.IO
PGPRT,·+lZ

05600
0'612
05624

99,IIOl"
TetC", 99 ••

•• 41,TElSW ••
lOC.TEMP5
··24
lOC.TEMP5
TEMPS, tOMST
•• 24
ERROR2.575.9.
SMADD. TE"".6
5MADD.5.10

TEll" CDNU. NS lOOIlUS
IUNtH IF • II ·COIIIIDII

DC

0)810

D~

lAST ELfIlENT

CDNIIOII VAIl, DVElllU' II1110U

1620 FORTRAN 11-0

03860

In

052)6
OU""
05H"
OU56
OU. .
OUIO
051"
OSSDO
OSSOO
on II
OU21
05124
05U6
05)"1
OSS6O
05112
OSSU
05)96
05401
0'.20

-5224

10.44
I

"

5 x

2

-)411

oun
£19600

D'''~
00000
0'4"
000. .
OJ4U
000-1
00000

onn
on ..
on.,.

U
15

05129

8
0'''0
Doll,
0'4'0
0)500 £"'00 SIO
03510
CII
INE
O'UO
TF
0'''0
0)540
8
03550
ODIIG
II
01UO
01510
SF
OlUO TEII'4 os
A
01S90
0)600
TF
TO
011>10
01620
CF
0)630 (nOlO TF
AM
01640
03no
10"
O)UO
A
0)610
TF
M
01680
0).90
SF
01700
S
0)710
I
03120
8"F
03730
t
03140
8H
TF
01750
01760
C
OH10
8NN
OH80
8TM
01790
Tf
0)800
1M
0)810
TOM
0)820
DC

•

'IGE
01'"
0""
01, . .
05111
05164
0""
0""
OUOO
DUll

-nil

'12"

0''''

00000

14

on."

OU611
01300
000 . .
on'6

OOOJO
-0000
01200
014lZ
00000

OU611
00095
0
00099
0'422
034'4
0)U4
0'421
OJ454
0'4'"
0)441
03)6M
013."
000"
0009.
0)421
05528
03406
05528
03406
01411
05564
10882
0)"11
O)ln
onSR
I

02962
00000

".'"
2.

n

JZ

,.
,.
21

n

J)

II
U
21
U
lJ
12
22
21

""

It
46

26
24

n

\l
26
11
U
U

Oll59

0))69
10'44

U

"

01412
00099
0))611
00000
0)"22
000-1
000-5
0009.
0344P
02962
00000
02962
00099
on04
0)427
01100
0)421
02382
01100
00""
OJ ... 22
000-'
00000
OOOJ4
OOOJO
-5636

H9

PHlSE I-e

PAGE

101

05"'6

OSA

lE"']-4

056'"

03880

OSA

S'''-lI

05641
05646

-3411
S X

OSA

T£II"-4

056'"
05651

-UII

OlnO

05651
05652
01664
056r2
05672
0'614
0'''6
0'1101
05120
onu
05140
on.a

-)42)
04792
01656

012"
00000

0""
0))64
0))6'
onlo
OH04
0"10

0)4)2
0''''1
0''''
On04
00000
00000

0))610
06210
0""0
04016

00-00
01200
00000
00000

OliO.
06"2

0 . . .0
00000

Oil,.
04110

on".
00000

OIT.4
0. .10

057.0
00000

uno

0"111
00000
OUIZ

J

01900
01910
03920
0)930
0)940
03950
0)960
03910
0)980
0)990
04000
04010
04020
040)0
04040
04050
04060
0"07C1
04010
04090
04100
04110
04120
O.UO
0 ••• 0
0.111
04 . .0
O'UO
04\11
Dal9.
04100
0411.
04110
041 . .
04'41
04110
04260
04170
.,,.0
04"0

£19600 8NF
8
ooaG
fI'610 TF
TF
TF
IIIF
CF
8
OOIlG
119660 til
IIIE

E8U40.EQRET
£'2010
.-)
SMADO.SAVEl ..
USTOU ADDllfSS AIIO COIITINUE St"" TO
SMCNT. SAVE2 ••
OUfPilY VAl nOIlAGE
IIOOAO. SAYE) ..
f,nIOo16.TElSII ••
TElS.
'17310'"
.-)
SltCHT .0.69,
EIITEII FaO" EI74TO IIMtN ,''''ll VAil " "
n0620 •••
IN CO,,"Oll AIID EQUIVALINCED
S~
£196.0
El7_90-,.
DOl' .-)
f""O INF ·.ZO,OUTCf. ,
fLACO SfT AT tlltO IIM'N IIIUIY VAIl liAS
I
E'1250 ...
'OUND IfFOlI1 COIIIIOII IN . .IU
DOli' .-]
IIIP •• 20.1.9 •• 0.l
I
. .1410
~Oli' .-]
IN' U7JlO.EI'660
I
UIUO
0011' .-J
••••••
INTII nOlI 174'0 Ta OUTPUT VAiIAIUS IIaT III COIlllON
IIHIO III' '.06Z0.SM'DO.1I.
''''NCH If va. . . IU 1IA1 I\IIIIVALEIIC.D
t~
5"AOD ••••
1I0LII.a.. NG
10
••14.5"100.11
TP
IIDLII."Z
LOC.IIDLII
re"',lOC
SII
SIIAOO.l.&O

•

"
•
" ··n,'''''DO.Il.
s._.. ,
"
TF

. . . . '0 "

10

."

TOM
OC

·

S"'OO.LOC •••
"DOIO.IIDOAO,lI.
SIIAIID,I.10
Slltll' . . '

1.· ..

"'DO
OUIO

ITII
DC

,GflU.··U
1.0

04120

OS.

""'-4

"OWl nil NAil'
IIOVI OIJ n III ADOIII.. '0 "'11.1
,IIACH If vaa,AlU II All 'II""

on"
05164
on"
01114
01'".

on..
OlIO'

OlIO.

051 ..
OlUt
DIU"
05116
05144

otl"

01'"
01161

05810
Ol"Z

ot,"

~

""'"
l6

26
26

••
))

4'
14

'"
J2

.".
4'

U

'"

.,••
U
JJ

,.
'"

It

.,.... "
" zo11
0"16
01911

ZO
lJ

... ..
'''1.
QI-

0''''
MO"
Mon

.....
060••

011111
02. .,
0""
0''''
01. . .
DI""

un'

It

0. . . .
0....
0111.
060U
0 ....

It

DIU"

U

10""
1

I.

x

OUIII
02191

."U
0)40'
000-1
Dill •
00000
0140.
OU'II
000-1
DOOOO

1

,

-602'

9

1620 'OUUII 11-0
OUJO

Os.

04340
8
OORG
06150
06360 E90010 SM
TO
04110
A~
OUIO
~II
06390
A
04400
TF
04410
M
04420
04430
SF
04440
S
04450
TOil
04460
04410
DC

•

04480
04490
04500
04510
04520

PAGE

'HASI I-C

SYM-II
E90580
.-3
SMAOO. !1,10.

MODE, MDOAO, II,

,olin

TO NO OF elEMENTS
SAVE OIMENSION INDICES

... ODE I 01,10

1I00E,05,I0
E89930.II,99
SIIAOO, E89930.11 ,611
SIIAOO, WOlN,6
95
99,IIOl~

lOC UPDATED TO END OF ARUY

lOC,99, ,
SMtNT,.6

1.' ••

SII

5"AOO.4.10

S~

~OOAO,IO,IO

S~

SMCNT,lO.lO

BTII
DC

PGPRT,-+12
1,1

OSA

-nol

060J6
06036
06066
06066
06056
060. .
060.0
06092
06106
06116
06121
06140
06152
06166
06175

-3318
06240

06176
06188
06200
06212
06224

J

04530

0602.
060J6

OSA

LOC-"

06234
06219

04560 E90580 aNF .+20,TELSW
04570
a
E91130
DORG ·-3
0-.580
a~F
E81310,EORET
04590
E91810
04600
8
OORG .-3
04610
ENTER FROII E89820 TO ASSIGN EQUIV VARIABlES NOT IN COIIIION
04620
SAVE ADDRESSES THEN SCAN TUlE TO
04630 E90620 TF
SAve 1, SMADO,.
FINO ALL VARIABLES EQUIVALENCED TO THIS
SAVE2, SMCNT ••
0461,0
TF
USE, THE VARIABLE WITH THE LARGEST
SAVE3.P400AO,.
04650
TF
NEGATIVE OFF-SET, IF ANY, lUll THEN BE
TF
04660
AOSAVE, 5 ... 400"
ASSIGNED STORAGE FIRST ELSE BASE VAR
SMCNT,Q,69,
04610
C"
WIll
BE ASSIG~EO FIRST
8NE
E91120,
..
04680
SAVE4,S~AOO
04690
TF
SAVE REF NUIIIER
TF
E8ASE, 5 ... '00 ••
04700
E8ASE-I,10I0
04710
S"
EaASE
04120
SF
A
EBASE,ST8l
04130
EBASE-3
Olt740
SF
,0
04150 SA~E4 os
TF~
TEfIo1P, 0,
04160
E90850 ,MOOAO ,11,
TEST FOR 01 ~
04110
BO

1620 FORTRAN 11-0

o~o.o

5"

TF
05050
All
05060
All
05070
05080
C
05090
8~l
TF
05100
TF
05110
05120
B
OORG
05130
05140 E91050 5"
05150
C
8Nl
05160
TF
05110
TF
05180
05190
8
DORG
05200
05210 E91l20 TF
05220
S
AM
05230
8~F
05HO
TF
05250
05260
TF
05270
S"
TF
05210
All
05290
OHOO OUTCE OS
SF
05310
BO
05320
05330
8

Il
21
26
23
12
22
21
15
12
12
12
17

000-5
0336R
000-1
000-5
00099
0596l
02962
00000
02962
00099
00000

01359
01369
OHM
10944
I

000-4
OOOJO
OOOJO
-622"

-))88
5 X

04550

S"
04800
S"
C
04810
04820
8E
048)0
8NR
04840
8
04850
DORG
04860
BNR
04870
8NF
04880
8
OORG
04890
04900
BD
04910
8
04920
OORG
049)0 E908S0 S"
04940
S"
04950
S"
04960
a
04910
DORG
04980 E909QO 8NF
04990
a
DORG
05000
05010
C
05020
8~E
050)0
80

25
II

00000

03359
03654
03"4
03454
05963
0335R
0335R
00095
00099
03606
033611
I

5 X

SYII-II

04790

12

-3408
5 X

OSA

04780 E90150

49

06229

04540

S~

5

rEIIP-4

06229
06214

SMC~'.lO.lO

SUBR OR FUNC TI ON

NA~E

.-)

HAS STORAGE BEEN AllOCATED
BRANCH IF NOT STATEIIE~T NUIIIER

·-3
SMCNT, 10, 10
SM4DO,IO,I0

MOOAD,lO,lO
E90750
0-3
e+20,5MAOO.11.
E90850-20
0-)
SIICNT, EUSE-I,6,
E90850-20
E91050, "OOAO ,II,
S"ADOoiolO
A8ASE, S~AOO,II,
A8ASE,5010
SMADD. 1, 10
ABASE, TEIIP,6,
E90750
TE"P,ABASE,II,

SAve ... , S",oo.,

LOOK FOR EOUIV VARIABLE
TEST FOR EOUIVAlENCE TO BASE VAR IABlE
TEST FOR 01 liENS I ON

SAVE NEN OFF-SET
SAVE TAllE AOOIIESS OF NEW VARlA8LE

.-)

S"CNT ,10010
SNCNT,TE"P,.,
E90150+12

TEST

TEMP, SMCNT ,11,

IIOVE IN NEW Off SET

,

07104
00000

44
49

03744
07424

07276
00000

06280
06292
06)04
OUI6
06)21
06340
06U2
06364
06316
06)88
06400
06412
06423
06424
064)6

26
26
26
26

03432
03"37
03442
01"47
0316"

03359
03364
03369
03359
00-00
01200
03359
03359
000-1
00000
02317
00000

06'"
06460
06412
06484
06496
0650B
06520
06521
06528
06540
06552
06559
06560
06572
06580
06580
06592
0660'
06616
06626
06624
06636
06644
06644
06656
06661
06680
06692

12
12
12
24

0610~

FIND NEG OFF-SET

E90150

SAVE4, SIIAOO
E90150+12
.-3
AOSAVE,STll
AOSAVI-I, S"~NT ,II,
AOSAV£ ,07,10
E9U20,AOSAVE ,II,
NOOAO, AOSAVE
SIIAOD, AoSAVE
SIIAOOol 010
S~CNT ,AOSAVE
SNCNT, 3, 10

-3402
06260
01380

H

41
26
26
12
32
21
32
16
4J

068~2

06423
03452
03451
03452
03452
03449
0
03412
06580

OFf-SET

GEN ADDRESS

0'

-0000
OB6R

PAGE

S"'00.10.10

E90900. SHe NT ,11,
.+20.SMCNT.l1.
E90750
0-4
e.20,1III00AD.l1
E907S0

44
49

PHASE I-C

MOOAO. 10, 10

S"ADD, TE~D
E91410
•• 20. MOOAO, 11,
E90150

06219
06240
06252
06260
06260
06272
06280

USE

TEST IF lASE IS IN COIlMON, lUNCH NO.

...

DUTCE
E.1670+12,IIOOIO,II, RETURN TO OUT'UT COIIMON ARR'Y
EI1490-. . . . .
RnUIIN TO OUl'UT S
C . _ VAlli AILE

""'-I

06116
06121
016140
06752
06166
06116
061'4
06114
06196
0610.
06120
06132
0. . . .
06152
O"U
0. . . .
06U6
061 ••
06900
06912
0692.
06916
06961
06 . .0
0 . .60
06972
0169"

10

03159

OOOJO

49

03369
03159
07104
06528
06448

OOOJO
0230)
01200
OB6R
00000

45
.4
49

06624
06560
06448

031611
033611
00000

H

06580
06448

033U
00000

12
12
'9

03364
03359
03369
06448

OOOJO
OOOJO
OOOJO
00000

44

0661t4

.9

06560

OB5R
00000

45

49

\2

06560
06784
03359
029)8
02938
0)359
02930
06448
03412
06423
06U,

0)451
01200
0336R
000-1
0335R
000-5
000-1
03412
01100
02930
03359
00000

0336.
0336N
06592
03412
06423
06592

OOOJO
03412
01300
033611
0)359
00000
OU71
OU611
000-1
OJ ....
OJ6.7
03. . 1
.00-1
.,461
000-3

]2

01441
03446
03"1
07060
03)69
0]359
0]359
0))64
0))"
0
06"0

4J

0~192

24
47
U
12
26

.
11
11

24

26
26
49

.
12

24
26
26
49
26

2Z
II
•4
26
26

IZ
26

II

.

OH6~

06004

II

OOOJO

031blt

46

~51

00000
0))6R
00000

~52

1620 FOUUH 11-0
05140
OOA'
05no 191no tF
051.0
TF
TF
05HO
TF
05110
05)90
TF
05400
I
OOAe
05410
0'420 f9U20 SII
TFII
05410
0 ••• 0
TF
05450
8
OORG
054'0
05410 E91410 tM
8l
05410
SF
0'490
05500
t
8NE
05510
TF
05520
05530
TF
TF
05540
055.0
8
OORG
05560
TF
05570
TF
05510
AM
05590
TF
05600
AM
05610
05620
8
OORe
05610
05640 TELSW os
05650 E91610 TF
TF
05660
05670
iF
AM
05680
05690
TF
05700
AM
SF
05710
05720 SAVAD OS
TF
0~730
05740 EQRET os
05HO
8
OORG
05760
05770 E91730 TF
TF
05780
O~790

TF

8
05800
OORe
05810
05820 E91810 Tf
TF
05810
AM
05840
TF
05850
AM
05860
TF
05870
SM
05880
SF
05890

oureE, ..
SMAOD,SAVEl
SIICHT,SAvn
IIODAo,SAvn
EIA SE-l, SIICNT ,11.
UII40''''''

ENTEA FROM EI.l'O

AOSAVE ,1,10,
TEII',O
fUSE-I,SIICNT ,II,
E90900'44

ENTEA FAoM e.IIIO

.-1

SfT U, lUI NUllnR TO SURCH FOR
THE """HING EOUIV VARIULU

SfT U, lASE NUII.U

.-)

TEMP,O ••
E91610" •
T!lSW •••
AOSAVE.SAVEl ..
e+§6., ,
SIIAOO. SAVel
SMtNT, SAVE2
MOOAO. SAVE)
E89820012
'-3
SMADO.AOSAVE
SMtNT. AosnE
SMtNT ."
MOOAO .AosnE
MOOAO,l.IO
E89820+l2

ENTER FAOII E.0190 AFTEA SURCHING TAllE
FOR All EOUIV vaRIAILES. IF TU" IS LESS
IF NOT NEGATIVE
THAN ZUO, THEN THE lASE ELEIIENT IS
NOT ASSIGNED FIRST

'-3

.E91410

SAYOFS, TEMP"

ENTER FROM E91420 .SAVE OFF-SET VALUE

5"AOO, SAVE4,.
SIOCNT. SAVE4
SIICNT .4.10
MOOAO. SA VE4
MOOAO,I.IO
EQRET

,

.

SAVAo,ADSAVE. ,
,eQ1610
e89820+12., t
.-3
SMADD. SAVEl ..
S"CNT. SAVEZ ..
"ODAo. SAVE 30,
E88540036

SAVE ADDRESS OF USE ELE"ENT
BUNCH TO OUTPUT SYII WITH NEe OFF-SET
E'HER FRO" E90600
RESTORE TABLE ADDRESSES AND lUNCH TO
ASSIGN EQUI VALENT ADDRESSES

.-)

SMAOO, SAYlO"
SIICNT. SAVAo

PAeE

'HASI 1-C

.-)

ENTER FROII E90603

SfIIICNT,lt,lO

IIOoAO, SAVAO
IIOOAOtl.IO
EUSE.SAYlo
EBASE-ltloiO
E8ASE

069'"
0 . ."

0700'
0701.
010ll
010'0
01011
01060
01060
010n
01014
01096
on04
ono.
onl.
07UI
On40
01152
071.4
01116
071 . .
07200
0120.
0720.
07220
072]2
0724.
07256
07268
07276
0710"
07276
07281
07300
07312
07324
07336
07348
07359
07360
07276
07372
07380
07380
07J92
07404
01416
07424
07424
olU6
07448
07460
07472
07484
07496
07508

n

0 . . .0
on.9
on.4
on . .
0)411
0 . .21

00000
0)4)2
0)411
03442
on611
00000

0)441
0)412
0)411
0....

000-1
-0000
on611
00000

26
26
26
.9

03412
0121.
01104
0,.41
01201
on,.
03]64
OU69
05156

-0000
OUOO
00000
034)2
OUOO
03432
03lt37
03442
00000

26
26
11
26
11
49

on5.
on6"
0136"
03)69
Oll69
05856

034"7
0]4"7
-0004
03447
000-1
00000

"
"",.

4'

11

,.
I.

4.
I"
41
Jl
24

41

49

0
07727
03359
03364
03364
03369
0])69
07276
0
07359
0
05856

26
2'
26
49

03359
0)]64
0])69
04828

03432
03437
03442
00000

26
26
II
26
II
26
12
32

03359
03364
on64
on69
03369
03452
0]451
03452

07359
07359
000-4
07359
000-1
01359
000-1
00000

26
26
26
II
26
II
32
26

12

03412
06423
06423
000-4
06423
000-1
00000
03441
00000

453

1620 FOR fRAN 11-0
05900
05910
05920
059)0
05940
05950
05960
05970
05980
05990
06000
06010
06020
06030
06040
06050
06060
06070
06080
06090
06100
06110
06120
06130
06140
06150
06160
06170
06110
06190
06200
06210
06220
06Zl0
06240
O'UO
06260
06270
062.0
06290
06300
06110
OU20
06)]0
OU40

A

TBASE

SF
CF
OS
80
SM
TF
AM
TF
B

DORG
AM
TF
8
OORG
E92010 TF
CF
TF
TF
TF
SF
SAVOFS OS
8
OOAe
E92210 TF
INR
SM
TFM
TF
AM

TF
SII
fU290 10
A
I
OORG
A
Cf
SUIADO
TF

as

"

PHASE I-t

..

·.68

,MOOAD,l1 ,
SAVAO.I,IO

E88'710., ,
.-3
SAVAD,14.10
SAVAo, SAVoFS,.,
E81710 .. ,
'-1
rEMP, TEMP],.
EQRET
SMAOo, SA VEl
SMtNT, SAVEl
MOOAO, SAVEl
TELSW

PLAtE OFFSET INTO SYM AREA

PLAtE OFFSET INTO TAILE
ENTER FROM El9601

,.

E88540+36
·-3
SUUOo, FcrENO ..
"24,FtTEND,l1.
SUBAoO ,10,10
E92440-2)."I,10
SMAOD. SUUOD
SUBADo,3,10
MODAD, SU8&OO
"ODAO,2,10
··J2 ,MoOAD.11.
LOC,"2

02371
00000
00000

26
II
26
49

0]'t52
03H9
07127
0
07624
07159
07610
07610
00000
05012

II
26
49

07359
07]5R
05012

000J4
01727
00000

26

03412
07216
03359
0])64
03369
07104
0
04828

0)422
00000
03432
0]"37
014"2
00000

07887
07772

02318
0231Q
OOOJO
OOOMI
07887
000-3
07881
000-2
0316R
02291
00000

21
12
)]

07555

TEST IF DIM VAR

•• 1O,SAVAD.ll
e+18.5.10
,SAYOFS, •

PAGE
01520
07532
07544

EBASE .ST8l
EUSE-3
SAVOFS

ENTER FROM UU40 TO OUTPUT SUBPROGRAII
lUNCH I F NOT Sf ATEIIENT NUIIIER

TES T FOR FIX 011 FlOAT

·.20
.-)

,-

LOC.KLNG
1100'0, ,6,
SV",lUll-1
"n,$"AOO,11

01556
07568
07580
07592
07604
07616
07624
07624
01636
076"8
07656
07656
07"8
01610
07692
OTT04
07716
07727
OTTZ8
07716
07736
OTT4.
07760
07772
onl.
07796
01101
07120
07132
07144
0715.
01164
OU64
07876
07111
07188
01.00
0191Z
07924

43

12

)]

26
26
26
12
4'
26

n

1Z
I.
26

II
2.
1Z
43

21

••
1I
U

26
26

07811
01961
0)]59
07887
On69
03169
07864
0)406
07116
0)"06
0])6'
0
03399
01923
01399

TF
TF
ITII
Dt

SV.,.,
I,D

0""
07.41

06350

DSA

LOC-"

01953

OU

SYII-11

01953
07951

-3402

06360

-])18

SIIADD, .1
·-I1.U,10
SUlADo.lo,ao
Sll'DO,20.ID

01951
01 . .0
0"12
01 . .'
07. . .

Dana

06110

funo

Sf

""

061.0 U2440 511
06400
511

'"ADD,LOC.6,
,G'U ••• U

IIOV! NAME TO Sfll
IIIIV! OIJ TI ME ADDRESS TO "ILE

26
26

Dun

IT

10.4.

13

OH6R
000-1
0135R
000-5
07727
00000

00000

02252
00000
114 . .
OU5R
00000
0).06
-79.'

I

•

U

on ..

a.

01961
o 71 I?
onn

11

II

00000
OOOLZ
OODKO
OOOKO

454

1.20

'Da"'.

IIOOAO,IO, 10
0'410
5"
0 . . .0
1/11. n l . .O,SutAOO,ll,
511
5UUDO,l,10
0.410
0.440
CF
SU... OO".
.-]O,SWAOO
JF
0''''0
SII
06UO
·-11,1,10
0.410
CF
0.... 0
10 'Euno,SWADD,ll,
06•• 0
5U"'DD,l,IO,
I"
lDC,5,10
0"00
I"
I
nn.o-.o
OUIO
OURG .-]
OU20
o.no EU5JO All
LDc,t,lO
IIDDlD, ,6
on40
CF
TF
5YII,IUU~1
065~0
TF
Ol>S.O
lDSl VE ,5"ADD ,11,
TF
5YII,ADSlVE,lI,
0.510
TF
Ol>SIO
5I1ADD,lOC:,',
SF
SIIADO,,6
06S90
0 . . 00
TO
IIDDE ,SUlADO, lI,
SUIlADD,l, 10
511
061>10
1111
IIOOE,5010
06620
'All
99,S,IO
O'UO
A
IDSlVE,99
066"0
TF
SUIAOO,AOSAVE ,611
06UO
III
SUIlDO,I,IO
06660
(92)90
0 . . 70
8
ODRG '-3
06680
06690 E92160 TF
lIISE,S"'OO"
III
LOC,OI,IO,
06700
AM
CAOO,I1,IO
06110
CENO,tAOO
06720
C
INH EMP
06730
SM
CIOOolloiO
067"0
CAOO, ,6
tF
06150
All
CAOO,OI,IO
06160
OUTIOO,LOC
06770 GLP
8T
BTM OUTK._.l6
06180
06790
OSA CSTI,LOC-I

06800
06810
06820
06130
01>840 EMP
068S0
06860
06870 115P
00880
06890
06900
06910
06'120
01>9)0

.....

II-D

'IS' .01 IU UP ' ....IIIU. .

'Da

'IS'
0111 V••
'UG I/ilDICnn FUfllCflOIl SUI'.OGU" III

SA VI NUIIII. OF 0 I liENS I OIlS

ENTEI FROII EtZ.70
FOR RECORO 1161111

013.0
01350
on60
01370

All
1'F

SIIAOO,2,10,
. SYII,ZEIl1 . . 1
SVII,E93JJO •• ',II,

on •.o

TF
ITII
ot

07390

OSA '. lDC-.

07400

OSA

07410

•

""'RT,·-ll
1,0

SY"'"

O.U.
0.1 . .
DUO'
01210
01211
OU . .
DIU.
OU . .
OUIO
Oil"
DUO.
DUll
DUll
08324
08))6
on.1
on60
OU7.
OU••
OU96
01401
01"'0
0lU6
08436
01.",
01 ••1
0. .'"
0....

..11,
U

J)

It
U
U
U

11
1&

••
11

08416
08.93
0849.
01506
08518
08UO
alU8

ot.. .,

OOO~I

OJ40.
01 • .,.

000-5
00000

0]40'

000-5
00000
11 ....
O]UII
OJ44'
0]401>
00000
011. .
000-1
000-5
000-5
00099
0344'
000-'
00000

on.1I

U

11
21
26
11

••
26
II
II
24

n

12
)]

11
21
17

onn 03359
03406 000-1
10855 OOOJI
10...0 1085S
0147. 01100
lo.n OOOJI
1085/11 00000
10855 000-1
10270 03.06
09692 -8436
5 X
2

-91"
-).07
.9

0)407
1085/11
0 •• 9.

00000
03407
00000

U
49

10855
01408

00000

13

03406
09492
03406
09492

000-5
00099
000-1
00000

)2

25

4)
11
"9

ES'EC"L~V

FOR JAY

CLEAR RECORD "ARK

PAGE
0.511
08550
08561
0851.
08586
08598
0.610
01611
011611
01610
0 ....
0865.
0. . . .
0.671
0. . . .
08. .6
016. .
08110
08112
081)0
DIna
OIT42
0115.

on..
NOV. FUfllc:fIOfil fllAlIE

IIOVI OIJ TIllE AODRISS 'II TAIU

01171
01790
01102
DIU.
01126
01111
Ollto
01162
011'4
0 . . 11
0 ....2
0....

Olto"
0"11
0 . .10
0. . . .

0. . . .
0I9tl
0 . .. ,

IIDVE SYII NAill

000~9

~55

10532
0230)
03159
03364
03359
03364
0 . . 42

02390
000-9
01555
0755S
-0002
-0005
00000

0))59
03364
01364
09014
01616
0 . . 18

OOoJO
OOOJO
0230)
01)00
033611
00000

,01611
olno
onsil
49 01618

0335R
O))SR
00000
00000

26
11
26
26
11
11

4'

....,
12
U
2•

.5

Itt

••
15

15
U

11

26
Z6
26
)2

14
U
31

••16"
U

n

,.
.....
II."
0 ....
0'.

11

26
17

~00'

IS

00000
000-2
000-5
11419
0335R
00000
00000
000-0
01200
09229
000-0
00000
00000
09131
OJ.06
09021
03.06
-1.46
Z

•

-.010
~32T'

DU"
Dn. .

on..
1~''''

000-2

1141.
O. .OJ
-9000

1

5 •

~001

~J402

5 •

09010

09011

OU5.
0])59
03406
0921.
01101
o.nl
0.227
09221
0 . .1.
09221
0.211.
09231
01102

OJ2I5
16' OU'O
01292
Z.
Z6 on5.
0.691
5

091110
.93060

0.,11.,

on"
OJ.41
OU99
013511
onn
0]U4
01117
OJ.t.
00099
0]441
0711'
071'"
079J6

U
It
U

OUI •

000-1
00000
0"'"
010"
0.016 O~I
00000 . 00000
DIU. 0 " "

n

084n

".14

onu
0.,. . .,

'6
26

,.I.

14

00010

OU69

'HASE l-t

.-)

511AOD,10,I0
SlIt/ilT ,10,10
SIICNT, TE/IIO,
E93610
E93200, S"CNT, 11,
(9)060
8
ODRG ·-3
(9)200 811R E91060, SMAOO, II,
8NF '-)2, SlIlOO,IL
TDM SIIADO,O,6
8
E93060
DORG .-)
TOil 5"100,0,6,
511100,2,10
511
E9)))O All
LDC,S,10
TF
SSYIIIIK,ZERU-I
TF
.-n,S"AOO,1I
TF
SSYIIIIII .. ,
SF
SSVIIIIK-U
811'
CII
SSYMIII-IO,OOtiO
I/IIE IIGP
TR
SSVIIIIK~l1, SSYIIIIII-9
TF/II 5SVIIIIK,OO,10
CF
SSYIIIIK-I
8
811'
ODRG .-4
TF
C:ARO-II, SSYIIIIK
IIG'
c:aRO-16,lot
'I'
TI'
CARO_U,.LI'''."
TF
SIIAOO,lDc:,6,
ITII DUTK, . . "
OSA CSTll,c:aIlD

DlOII
01 ....
0.010
0.0"
0110.
0""
0.12.
DIU.
DIU.
01"1
01160

o.nl

LOt+!
CADD,Lot-I,6
liSP
8
OORG .-4
SM
CADD,09,I0
GLP
8
DORG .-4
Mil
LOC,OS,10
80
BUFOUII,99
AM
LOC,OI,IO
8
GO TO OUT'UT aUFFER
BUFDUM •••
OORG .-) .
ENTER HUE FROII E81S)O AFTE. ALL STORAGE Al~OCATlO/il IS
COIIPLETE

OKADD,INTDPI-'
TEND,9,IO,
SMIDD, TBASE
SMCNT,TIASE
SMADD,2
SMC/IIT,S
·+32

DIDIO

DlOU

0....

SF
TO

U3010 TF
AM
TF
TF
AM
All
8
OORG
(9)060 SII
511
C
BL
8/11R

'AGE
01001

1620 FORT.AN 11·0
06940
069S0
06960
01>970
06910
06990
07000
07010
07020
07030
070"0
07050
07060
07070
07010
07090
01100
07110
01120
07130
011"0
07lS0
07160
07170
01110
01190
01200
07210
Oll20
01230
01240
07250
07260
01270
01210
01290
01300
07310
07310
07330

...... 1-e:

4.

-n ..
0'6"

00000

456

1620 'OUUIt 11-0

,,&t

0.01'

oc

'V"- DC_.

2,0'

o.oza

OfUO

oruo cst"
Ot.40

DOIIG .-.

JI

0901'
0.01'

0'044

090«

""
"s,

09016
0'0"
09010
09092
09.0'
09116
09118
09140
0'152
091 ••
09111
0'1112
09U4
09196
09201
09Z20
09221
09231

•

ER~E

07690

01100
01110 HU
01120

·

S T BNF
80
BT"

01730

OSA

HU.OISKSW
HU ... UlDEF
ERRORZ. 610.'
DUTK .....
csn,UPHlII

TO"

CADO.6,6,

n"

011~0

TFM

07750
01160
01110
01180
07190
01800 CST!

8

16

2

09020

'+20. Slilft T
014SO etl6l0 eo
I
01"'0
goa• •' •
-)• Sf
01UO
lou, .. n
01610
10Gr,COMUC.1
8
or . .o
55 Vllillt ,lflt 13-1
ortOO
SSVIIIIK.SAYSVM
TF
01'10
snll.-u
011.0 LUUsr
SSYMW-IO.OO.IO
til
01510
on.o
INE IIVNAM!
SSYMIlK-lI. SSVMIIK-'
onso
Tl
TFII SSYMIIK.OO.IO
01560
SSW.-l
01510
tF
01510
LfJUsr
on'lo
00.0 '-4
COMN .... SSV .. WK
01600 MVN.M. TF
SAYSV ... SSVMWK
TF
01610
TFN IDU,·.23
011>20
011>]0
8
I OPT .co.. seC.l
HU
016.0
8
01650
DDlG .-.
01660 SSVMWK DC
12.0
-00000000000
01610
DC
I.'
071180

"'GI

"" All I-e

2

••

0.044

o'a40

00000

16

00. .'
00166

-9041
-9)61
1161.
02243
00000
000-0
01200

.1

••2'
2.

)l

••

H

.
Jl
I.
II

26
Z6
16
.9
'9

OU9J

O'UI
O'UI
09u1
O'UI
09112
09Ul
o.na
O'Ul
0.0.2

09229

000-0
00000
00000
0'1238
09238
-9Z19
-93U
00000

0942'
0224]
OOU,
00512
09216

12

0923.
09240
09252
09264
09216
09292

END OF PROGRAM 1 NDI CATDR

10RT ••• 23
IOPT,DKO'TA,1
PRDGSr.lOC
•• 12
tALLP2

09292
09291
09298
09310
09)22

onl4

TF
BV
8
OORG .-~
2,01
at
-I
01810 tD"SEC OSC 2,20
20
01820
OSA Co .. st

09346
Ot358
09)65
09366

••

43
11
11

"216 02383
09216 02314
10882 00010
09692 -9292
5 X
2

U
II>
49

-931>6
-9022
10nN
00565
00532
02251
09351
OHOO

21>

46
4'

2

09367

2

0937]

01830

DC

I,'

09373
09H4

01840 tOIlSC

DSC

1.0

09375

00006
-9333
J0542
03.06
01400
00000

5 x
-9315
I

0

45i

1620 FORTRAN 11-0
01850

Dt
5
Jn61
DC
3.001
-01
OSA CONAR

01860
07810
01810
01890
01900
01910
01920
01930
07940
07950
01960
01910
01910
01990
01000
08010
01020
08030
08040
080'0
08040
oloro
01010
01090
01100
01110
01120
OIUO
01140
011'0
OlltO
01110
01110
0'1'0
01100
01110
OUZO
olno
01240
01"0
0"'0
OIUO

DC

PHASE I-C

.19663

09)88

I.'

DSS 50
DSS 50
DGII
COMNAII os
.COIIU+"
OUf'UT IUFFER-SET UP POINTE. AND LAST DISK
ADDRESS FOR PA552
8UFDUM TF
uraD.OUDD
C.
CAoD,oUK+8
INf 8FOUI'I1
P2".'O
8
"DUII2
DOIlG .-]
8FDUIII TF
P2PT •• CEND
511
PZI'T •• DU_
CII
'ZPTR,300
INE '·36
TF" P2"A,O
LSlAO,O)'IO
TFII 10l"'.2)
10,r,DKonA,1
.,QUM2 TF. 'ADD.DIS«
T'M CINO,DISII+75
"M ouraDo.ooOOI
I
U1210-24
OORG '-4
•
ou,,"ur COM,fANT lOUTlNE
•
•
.,11 GUlK .....
•
OU UNOTII,HIGH-OIDIR
•
OS
OUT.
CADo
LAOD,
IE
ouru
C
tENO.tADD

•
•

""

'"

•

•

Olato

GU.II

ontlo

OUto

01110.'

onlO

0".0
ontO Gu'U

.

,

"Nt

rES T '011 " ' t l '011 Ell" I. tOITS fAlIIT
.KI,
UDo
TF
OUll-i,ll,
1IIt2.
UII"H
.2,11111.11,
MOVI 1111 LlIIIGr"
our«-., ,.ao
Gun-i,ll,
'OIIIUIt' aooalSS
our"-,, 1,10

"

.,.
,. .-.

,."
,."
'" ."
c
ro
'1
os

IIKlo

17

0938]

tONU

e

PAGE
09380

ClNCI

I.

UOD •• --,.

5 X

09)88
09]89

-9390
I

09390
09440
09490
09425

50
50

0'.92
0950.
09516
09528
09540
09548
095 . .
09560
09512

095 ••
09'"
0"'01
09620
09'12
09644
ons.
0. . . .
09. .0
09'"

09691

A.'
"
09104
09116
09121
091.0

09111
0"6.

0917.

1

a
26
I.
H
16
.9
26
12
14
U
16
II
16
49
16
16
11
49

..
,.
24

z.

0231]
02313
02313
09620
02]1)

005605
00U2
lOin
10160
IDno
OJ . . .

5
10165
10140
10160
10000

lOll'
DilDO
10155
OUOO

anal

10110
0 . . 21

"
U

0. . . .
0....

Jl

Il
U

ot",
09". 'I'••

10532
JDSSI
01200
-0000
00000
10860
Jono
-0300
01200
-0000
000-3
-9643
J054'
Jono
Jon,
-0001
00000

O..U

"

0"110

02313
09644

U

09lU

on. .

02301

lon,
onu

0,,9i

09"9
O'. . i
10110
D
• 0 . .0
0""
I OliN

101"
0969J
O'llZl
000-5
ot"J
000-1
-0000
10860

OUoo
00000

UII

on.o
01"0
onlo
on. .
0 •• 00
01.10
OIUO
oauo
01 •• 0
oa. .o
oa. .o
olno
0 •• 10
01•• 0
01500
OIUO
01520
01510
015.0
015'1
o.uo
01570
08510
olno
01600
08'10
OIUO
OIUO
01640
08650
08660
08610
01680
016'0
01700
08710
01720
08HO
08740
08750
on60
08170
08780
087.0
08800
08810
08820
08130
08840
08850
0881>0
08870
08880
08890
08'100
08'110

IIU

-

TO

OS
A
A

•

.-

1"0 ' 0 . ' . " 11-0

ClGTH.
II..' •••
C"DD.IIII
DUTII-l ....

....1.1-C

IIIC.,,,.T U."H

--I

DDlG
T....S" IT DIGIT IY DIGIT
TO
CADD.
ClGTH.
1t610.
A"
CAOO.
1.10.
11111.
ltiO.
A"
11111.1.10
5"
TEST FOil l"ST CAIID
UDD
C
CADD.
OUTU
IE
C...D
C
CADD.
INE TO
INClEllENT TO NEXT CAlD
Tf
CADD.
CElIO
All
CADD.
•• 10
TR
CADD.
Ill ••
Tf
ClGTH
SM
•• 23.
S.IO
TF
tADD.
A
CADD.
ClGTM •• ll.
TF
ClGTH.
C"DD
AM
ClGTH.
S.10
AM
CADD.
'''0
AM
CEND.
n.10
I
OUTU
DORG .-3
OUTPUT THAEE SEC TOIlS
TFII UTURllo6.0UTU
CKl10U
I
ODIIG .-,
All
CADD.
..10
TR
CADO.
KI ••
SII
ClGTH.
3010
TF
CAOO.
ClGTH.6ll
All
ClGTH.
].10
A
CADD.
tLGTH.AU
TFII ClGTH.
OISII.+'
TFM CAOO .01 Slttl
OUTKI
I
DORG .-)
CONSTANT OUTPUT R·OUTI NE FOil 'ASS

....••• u.

""

-

•ITNC

·

DUTK2

OUTU

•
•
•

..",

OS
OUlAOD All
C
INH
SII
OUT
TR
TF
All
TF

.-e .•

BTM OUTAOO. NEil "DDlESS
5
CADD.
'.LO
CADD
CEND.
CKlCD
CADD.
5.10
CONSTA..T
tADD.
OUTAOD-l.6. NEil AOORESS
CADD.
CAOD.
•• 10
ClGTH.CADD

'U.6.

1620 FORTRAN 11-0

'AGE
ot. . .
0. . . .
ot'"
ot. . .
ot. .a
ot ••a
ot. . .
ot.1.
0. . . .
ot••o
0,.12
0. . . .
0 . .16
ot. . .
10000
100U
1002.
10016
100••
10060
loon
100. .
10096
1010.
10120
lOU'
10ltO
10ltO
10152
10160
101'0
10112
1011.
10196
10201
10220
10U2
L02 ••

Ion.

102M

10na
10no
10212
1029.
LO)06
10318
10no
10JU
10314

o••n

10....
101Jloa"
0. . . .
09lU

o.alll
000-1
000-1
000-1
000-1

101"
101.0
lon,
09192

10165
01200
10"0
01200

Jl
26
U
26
II
Z6
II
11

lon,
Ions
10lSN
loon
10071
1 OliN
10UN
lOUD
lono
lOll'
10. .0
0 ••••

10160
000-.
loan
10no
oOO-S
00000
10811015'
OOo-S
000-.
OOOPS
00000

••"

10526
10.60

Joao
00000

11

10155
1015N
lono
10nN
10170
10lSN
10110
LOISS

..I ..

000-4
10171
000-3
1017000-]
1087JOIST
JOS5I
00000

5
Lon5
10860
L03l0
10855
10nN
10lSN
L0855
LOITO

000-'
10855
01100
000-5
L08ll
10a1>9
000-4
10855

n
n

••

,.
11
11

II
U

,.
••,.
n

,.
II

.
U

n

12

2.
11
It
L6

••"
11

"
U

12

n

Z6
U
21>

10]66
loni
10310

LOITO
00000

000-1
00000

lOUD
L0392
10.06
10'16
10ua
10••0
10•••

••2'

10165
104. .
Ions
loa60
LOin
10JLI

10160
01200
10160
OOOPS
000-4
00000

10. . .

16

10521>

J0411

10 . .0
1041Z
10. . .
10."
1050.
LOUD
IO!U'
LOIlT

16

OOS65
005)2
IOU2
10855
10160
00000

J04t3
J0542
000-3
J0550
J0625
00000

09140 OK ADD

10UI

0911>0

DC
5.00000
-0000
3.00)
DC
-03
DSA DISK

09170

DC

I ••

105.0
10161

.-.

09ln

12

SII
ClGTH.Olt 10
BI
DORG .-9
CHECK FOR UST CARD
C
CENO
lADD.
IE
CUI
TF
CAOD.
CENO
CEND.
75.LO
A"
All
CAOO.
4.10
OUT
I
DORG .-]
OUTPUT
ClIl
TF" IIETURN.6.
o 15K OUTPUT ROUTI NE
TFII 10RT •• on
I
10PT.01I0ATA.'
All
).10
OUOD.
DISK
TF" CADD.
TFII CEND.
01511015
I
DORG .-4
DSC 1.0

u

Z6

11
11

••
••U
16
••

I'

II

00000

PAGE

PHASE I-C

01920
08'130
01'140
01.50 •
01. .0 CKlCD
01910
08980
0"'0
09000 CKl
09010
09020
090)0
09040 CKLl
09050·'
09060
09010
09080
090'0
09LOO
09110 RETURN
09120
091]0 OUTDK

•

0
101TlOllS
o"'J

45tJ

19

0

09150

09110 OKDATA Ost
02
09190
OSA

09Z.D

o.no
19no
ot."
09.00 C:AOO

•

2

,x

10••Z

I.'

10. .,
101••

Jo.n
I

10550

.0

10.00

10

OUTPUT 01511 "RU
DSC 50.0
OOOOOOOOOOOOOOOOOOOOOOOODOOOOOODOOOOOOODOOODODOOOO
DSC 50.0
OOOOOOOOODOODOOOODODDDDDooODOOOOOOODoaoooOODOOOOOO
DC
I.'

091'0

JOSSO
1

101••

0.2LO •
0.220 DISK

D9Z4D

5 X

2.02

DC

0.230

105.0

5

OUTOII

0.200

•

L05]2

OSC • •• 0
OOODOOOooOOOOOOOOOOOOOOOOOO. .ODOOO"O".OOODOOOOD
ose: .•0.0
OooOOOOOODOODOOOOOODOOOOOO. . . . . . . . . . . . . . .OO. .D. . . .
OSC '0,0
ODOOOOOoOOoOODOOOOOOOODOtoooaooocio. . . . . . .100001000
OSC so.O
OOOOODOOOoooooOOOOOODOODHO. . . . . . . . .O. . . . . . .O•••••
OS
&
OSA OISleoll1

lOtIO
LO. . ,

••

101eD

50

10ltO

so

10100

10

'OlIO
10'"

,x

(

I

Uu

1UOl'. . ' .... 11-0
'''IOCING
0. . . .

~,.

otHO CLG'"

II"
II"
O$A

,,"," I-C

"II
10'"
10. . .

OfSll.,OO

.....

, ...a
I

10...

Joro,
I X
Jono

OIlUIO.

10 . . .
10110

J....

'''''''0

2,02

10"D
10"1

2,0

10'"

0'360

OSC
02
DC
-0
DC

09)10 11K 1

DC

I,D

09140 II
09)10

09110 •
onto ,UDU
0.,,00
0'410
0'1420
0''10
0.440 UMfS

••••
•

09410
09460 •
0.410
09410 0
0.490
onoo
O.SlO •
09'lO.

.

I, '

,

,0

•
X

a

Ion.

,

10110

-0000
01110
TF
OIlES·14,o-1
RCH
.. An fillIES

.

ODIG 0 - '
o.e ',ERROI 00'
UAoa 00'
PGPRT IIlll TYPE IF ,AOGRAM SIlITCH I ON
PUIICN TA" " punSN • I
PUNCH CARDS I' 'US TSN • 4
~INUGf

TO PG'U

10U2
1O.'"
10.0•
1091'
10920
10921

Z6
J4

"
U

aont
00000
10'21
00000

10111
00102
00100
00000

9 X

ITII PGPU,"12
•• 0 OA 1
DC l,X, ,
DU UODA-4, N.lle, fADDa-4

09530 •

09540

09510 PGPRT
09560

09570
09580
09590 F.FI

09600
09610
09620
0 . . 30
09640

09650
091060
09670
09610
09690
09100 FAF2
09110
09720
09730
09140

OS
TFII
TF
All
TF
TO

5
F.Fl+. . . .C. . O+I
FAFl-I,PGPAT-I
F.FI-I,O'"O

F.F,tll,_-_

e-e,_-e, ,

.11

IIOYE INS TART ADDRESS

F'FI.6,2,10
F"I+11,OI,IO
FAFI+6,RA"RO+'
F6FI
FAF I-I ,5, 10
. . n,FAF!-I,1I
.'CAItOt12,--e,t
FA'3, PGPRT-I, 11,
RACUD+35,IOZUO
F'FI-I,2,10

CII
'"8NH

All
TF
TR
BD
TF
AM
BN" •• 36
RCTY
WATY RACARD+I
.+ZO,PUSTSN
BD
FAFI-I,,6
B

1I0YE IN N.IIE
tUNCH IF EIID .DOAUS REQUIRED

10942
10944
10956
10968
10980
10992
11004
11016
1102'
11060
11052
110'4
11076
11011
11100
11111
11124
11136
III'"
11"0
11172

16
26
11
26

as

1I
11
14
41
11
26
1I
U
Z6
Il

H
)4

''I

U

49

5
1099'
10991
10991
11001
00000
10'"
11003
10'"
10.,2
10991
11081
lun
IIlIl

lun

10991
11160
00000
11341
11110
1099J

JU"I
1094)
000-5
00000
00000
000-2
000-1
JU'"
01100
000-5
1099J
00000
1094L
11417
000-2
00100
00102
00100
02294
00000

461

II>ZO
09750
09760
09770
09110
09790
09800 FAF3
09110
09110
091)0
09140 FAF4
09150
0. .60
09170
09110
09190
09900
09910
09920 RACARD
099'.0
09940

FO~TUN

DOAG .-3
TFM 10RT ,-+23
IDPT ,PT . . -4, 1
B
FAFl-I,,6
B
OORG .-4
TF
RACA~O+'5,RAIIASK
All
FAFI-1005,10
TFII FAF4+.,RACA~D.Z1
TF
FAF".II,FAFI-I.1I
e-e,_·e,.
TO
AM
FAf4+6,2,10
AN
FAF4+1I,1.10
CM
F"4+.,~ACARO+n
BNH F,F"
All
'AF1-1.1.10
FAF2
B
DOAG .~3
DSC 12,707010101000
707010101000
OS
24
DC
2,0'

09950

11-0

PHASE I-C

MOYE IN END ADDRESS

50,0
DC
-0000000000000000000000000000000000000000000000000
SO,O
DC
09'"
-0000000000000000000000000000000000000000000000000
22,0
09910
DC
-000000000000000000000
09910 aOllllO 05
,'-12
099to UIU OS
10000 "IIA
OSA 14tAIID+l

,

10010

...

1,00'

Dt

-0'

10010 '''UK DC
11,01010107070
·7010107070
10010 •
MIlO
10040
DOli, 11000
10010 ILU
DSC I,U
10060

U

PAGE
11110
11110
11192
11204
11211
11212
11224
112)6
11241
11260
11272
11214
11296
11308
IU20
lun
11340
113"0

49

"

0051>5
00H2
1099J

J120)
J1500
00000

26
11
16
26
25
11
II
14
H
11
4'

11)15
10991
11266
11211
00000
11266
11211
1126.
11260
10991
11124

lUll
000-5
JU67
1099J
00000
000-'
000-1

49

,

ZIt

11427

50

11"71

50

11499

22
0
0
5 X

1150'
11501

JU41
J

11511

11

..000
..000

2

OSA

ILUA

16006

,

JIOOI

10010

Dt

I,'

16006
16007

10010 ILUa

I"

1,0

16001

100.0

tIC

l,n700

160n

tIC

J

16016

J

• 1M4O

160"

S

I. •

160'.
1. ."

0

...

J7J1O

10100

.100

JOO

lono
10110

CIt
,

Jln.

01100
000-1
00000

12

11375
lUll

11"'1
114.0
11504

21

I

•
-'.'D,

I

•

,,2

I '

IIIO'ORTUII 11-0

lOUD LD'HC
101.0
10ltO

""

I
TU

10160

TCO

10170

DEliO

'"All I-C

lou ... n
10PT • ILIt " 1

..... ,.
16010

00000

'I

1Ia..

II

lion

LOPNC

"IE
OOUt

16oa.

••

00111
00000

U

J6041
J600•
.OSOO
00000

00000

463

1620 FORTRAN 11-0
10lERO
ADSAVE
ALPHRM
AROUND
ftFDUIII
BFOU"2
.UFDUM
CALLP2
COIIADD
COIINAII
COllSEC
DISKSII
DKOAYA
U'6~0

,-

1I~87
03~.7

09022
02. .6
09568
096.6
09~92

02~00

02262
09625
09361
oun
10562
02630
02660
02901
0296.
0360.
OJ68.
03166

E. . .OI
E. .IOI
E16120
U1ZIO
EUZ10
nUlo
E17620 on..
U1690 06012
El7670 0"'10
UI620 0.536
n • .,o 0."0
E. . 560 061.2
n1600 06.06
EII. .O 0696.
nino 05012
unoo 012.6
U.010 05172
U9600 05612
E19"O 05612
U9660 05760
E19760 051.6
U . .2D 0"66
EI9.3O 019"
E.0010 06064

E905l0
190610
E90no
E90150
190900
E9I050
191120
191250
E91310
E9I610
E91610
ulno
E9I.l0
E.2010
192210
E9ZZ90
nu.o
E92~60

E92510
192160
E.JOIO
193060
EU200
EUUO
n3610
ENTLOG
EIINUT
EIllDII
Fe TEND
INTO"
UIIGTM
LTJUST
1I0NCAL
MULDE'
IIVNIIIE
DUTADD
DUll IT

'ROGST

06HO
06210
0 ••••
0.510
06626
06186
0. ."
06992
01060
on06
DUll
on.o
01616
0""
onu
07112
01916
01916
01116
01112
01111
0 . . 11
0. . . .
0.116
0.016
Dun
0,,60
10112

DUll

Dun
02161
0.0"
001"
02116
0'111
lono
01011
Dun

PNASE I-C
PUSTSN 0229.
RACARD 1136D
RAIIAS" I IS II
RETURN 10UO
AlASE 01931
AFTIL 15035
BLKlA 16001
ILKl
16000
aLKIA 01~6'
ILK.
016.1
IIIP
01102
CADD
10."
CARD
03216
CEND
10160
CHI!
151J.
CHI
151"
106. .
CIILI
CKLCO 10J.0
CIIL
10611
CLGTH 10110
COIIAII 09390
COIISC OU75
COIIST 02512
C5TH 09020
CSTI
09166
DISK
10510
DUOO 105U
ElASE 03612
EMP
0.414
EQI!T 01216
ERIIIS 10911
UIIET DOlO'
1099'
FA"
FAn
UU'
FA"J
llllJ
FAF.
UI.o
'LNG
OU'O
OUI6
'11011

PAGE
FP2
GLP
HU
INDIV
lOCAL
10GT
I OPT
101l1C
10RT
10SK
ITHe
JAY
III
KLNG
LADD
LOPHC
LLl
LOC
LSTAO
NOOAO
IIOOE
liSP
HI
N2
NILOC
DureE
DUTIIII
DUTKI
DUTU
DUTU
DUTIt
OUT

,.".

'GPIlT
"CD

'''IA

.leLG
SAVAD

012 . .
0 ••01
0'216
01616
00'"
00566
00511
oono
oot"
00516
10000

onn

lOin
OUtZ
10 . .1
16026
OJOI2
03606

ana.

on69
03616
016.6
oun
DUll
oun
01.60
10tZl
0 ....
10160
10110
0.691
10111
DUU
10. .6
01119
UI06

n
SAVEl
SAVEl
SAVEl
SAVe.
SNADD
SIICNT
ST8L

nil

TIASE
TBCNT
TO
TELSII
TEIIP2
TEIIP3
TEII'~

TEII',
TEll'
TEND
IIDLN
IIGP
IIKI
IIKI
IIKl
II
1111

IElIll
SAVOFS
SAVIVII
SSYIIIIK
STIINTI
STIINTZ
STIITND
SUiADD
SUI"T
USEDfS

03.32
03.31
03.62
0'.23
0335.
on6~

onn
03399
01555
01629
09192
on06
03611
03622
053n
03627
01412
on03
02961
0 . .12
10110
09lU
09159
OZZ60
02296
11690
01121
OU6]
o.u.
0311t
OJ"6
DJ6"
01. . 1
out)
02263

Dun
01319

END OF OIIE ASSEMILY.

414

161.0 FOITIIAN 11-0

'11'$1 2

, . , . ,oaTIlII

SP

ootOO
ODIlO
OOUO
oono
oouo
oono

11-'

....&SI'

HOlIl

....

"CO,

l' ot6.,,
" onn
"
01..,4

on. .
OU"
OIUO
oa . .,
01604

It

01621

It
It

00000
00000
01.10
00000
OU10
-0000
0-000
oun

Dono tLUR
00110 •
oot'O
OOtOO

,0
SI'''11
,DOIASI
00llA.
TO. ODSII
,0
TF
,DOUSI
0011"
StNT
.0
Tfll GLIIO
'0 tDU •• DDSII
SET UP STl'NG RltDlD tDIISTANTS
UM IGNST.l
.1
.0
Dt

00. . 0
006Z0
OOUO
00640 L1
00650
00660
00610
00. . 0
00. . 0
00100
00110 L2
00110

T'"
TFII
TF
BTII
ITII
til
BilE
TFII
BT
All
aTIl
DSA

IIGNSY
EIIDST
SWAlU
GETl
AOSL
Sl.
U
I
GTStL
StNT
GTIIS
I

OSA

LV

OZ'OO
OZl05

-'~41

00710

01105
OZl06
Ollll·
02UO
02142
OZIS.
02870

-'''1
09561 0-152
02911 01100
0)4.4 0.541
0)4'4 000-2
05446 -2810
5 l
1

TIIII

"
".

oo~tO

00140

.0

••

1.·.·

til

.0
.IGNSY-l
.IIUO. .

.10

,n

In ••• SIIII tDLDN

••
.10

.152

••

.1
.2

.10

It

0""

u

OZU,
016.,

It

...

OU"
Oznt
OZ. . .

U

OZ7I4

14

onoo
onu

.U

.1
.GTStL-l
.1
,.+16

.....
ozn.
02141

on..
02112
021 ••
OZiOO

11
11

u

16
Zl
11

11

Olfto
0'611
09190
10114
11000
1

-0000

16"~

000-0
J.,.4
09]64
-Z317
-U11
0-132
01200
0-001
06141
000-1
-2800
l
1

0)910
0']]1
OU10

onu

OU11
02100
0'~41

06141
09671
054U
5

5 l
14
46

00160
00110
00110
001.0

TF
All
BTII
OSA

LV
L3
N4000Z
1140002
GTNS
N40002

00800

OSA

RV

00810
00820

BTM
DSA

FORtE
LV

00130

DSA

RV

02192
028.1

-9561
5 l

00140

OSA

ANS

02891
02902

-9511
5 x.

00850
00a60
00870 L3
00880
008.0
00900 £lIT

tM
BNE
AM

ANS
ANS

Dono

8H

,·.1'

26

11

11

-)494
5 l

02110
02815

oZln

, •• 16

.
.1

I

L2
DDRG '-3
SM
I

02.16
02 . .'

.6
.10

8

.1

1620 FOURAII 11-0

.10

02902
02904
02916
02928
02940
Ol94.
0294.

17

-9511
04110

-28'2
1

5 l

-2)89

4.

02389
0231R
0.541
02784

-0000
01200
000-1
00000

U

0.541

000-1

14
41

11

8
L2
DORG '-3
OUTPUT STATEMENT NUIlIER ADDRESSES
Sill
I
olD
tl
BTM RMNS
,·.16
OSA I

02960
02961

49

0211"

029. .
02910
02996

12
11

09541 000-1
05416 -2996
1
5 l

00970

OSA

SL

02996
03001

00910
00990
01000

TF
IITM
OSA

RMNS
I

01010

OSA

LV

01020
01030

BT"
OSA

GTNS
I

01040

OSA

SR

01050
01060
01010
OIDia
01090

til
INE
TOil
I Till
DSA

SR.
tKFNT
ODSW
RIINS
1.5R

OUOO
01110

ITII
OSA

GTN5
1.5R

01120 tllfllT
01110
01140
01UO

tM
1111
ITII

ou

n.

SR.

03001
0)002
0301.
0)030

SL

,·+16

030SS
03016
03051

"

OlU'

01210
OU60

SX,

SX,

....
"

-9567

11

05446 -3052
5 x
1
-9547
5 l

.-+1'
,·.'6

01110
01111
03U.

U

OllN

.....

DIU.
OlllO

01'"

Ollll

OU"
.aDCO"
.10

.1

.IL
.4

.1"100
.aDCOII

••

OlltO

,10
,10

,n
.1

0"0,

OUt.

Ou,.
ou ..
0....
0....
0""

DlI..

-9541
-2112
05446 ·J132
5 l
2
-9'47
-U12

OIU'
OIUl

12 •••• fOlIlAT

"'LAIlIIi.ILAIII

IoDCOII
Sltloo-l
SllIO
SIT.'
snaD
Ie 1 IIOfYP
T.,. SITAD

-95'>1
5 x

-2112
14 02312 0-1.0
47' O)UI 01200
IS OtlU 00001
11 05416 -JllO
5 l
2

.1

snPCT

-2399
09656 02399
05416 -3030
5 l
1

OJ051
010S.
0)010
01012
01094
01110

140 ••• 0UIINY

01UI
011 ••
01160
SN
01110
SII
01110
OU90 $IlFCT "
TOIl
01.00
OU10

ZI>
U

030SZ
OJon

purx

00000

-9541
5 l

03030
030n

,·.16

467

PAGE

PHASE 2

00910
00920
00930
00940 tODES
00950
00.60

......

,

14

n

U

onu 0-12'
0)U6 ouoo
01012 ·111.
5 I

....
,.aI --....
"
11
, OlIO•
·69"

..
".
...
.
.OHII

11

It Oil"

...
"
16

069n
000.10
0_

onft

014n

0_

0"1.1

0"1.1
. . .n
00100
00001

on••
0"11

US

'620 'O.'.AN 11-0

Rtn

OIUO
01260
01210
OUIO
012.0 IIOTYP
01100
01310
OUZO

olua

IIIIJY

$I faD

""0""

$.t,

IE

OOllG
01340
01150 SETIIIIT TF
CF
111360
511
01310
OlllO
aTlI
01190
OSA

OHOO
01410
01420
OIHO
01440
01450
01460
01470
01480
01490
01500
01510
01520
01530
01540
01550
01560
01570
01580
01590
01600
01610
01620
01630
01640
01650
01660
01670
01680
01690
01700
01710
01720
01730

SETAO
COOED

Ol291

III'IY
TO"
TOil
CII

•

,6

,t

SUAO
SEtAO
S.
COGEn

"40006
""0007
N40008
N40009
N40010

~40011

N40012
N20001

,I

,tll

,121

"

EXit

.;"J
"40002
"'000'
""OOOZ
PUTA
N40002.ADCOW

..

8
SETFCh16
OS
eXIT
8
OORG .-3

, SETAD

.11

••,·.16

.10

.4

N20000 os
N40000 os
N40001 05
N40002 os
"4000) os
.. 40004 os

" .. ODDS

"GE

'HA$f

,-+1

os
os
os
os
os
os
os
os
os
os

......

,·+1

FORTRA" ADJUST PRoceDURE
5
--1,5,610,
IIUUIPLY ADeOM IY 5
AOJUS T MM
*.14,99
80
88
OORG
AM
AOJU5T-loI,610.
ADD
TO ADCOW
88
OORG .-4
FORTRAN OP SEARCH ROUTINE
OP5)(,*-I,11,
OPSR
TF
MOVE I N PARAMETERS
AM
OP5R-I.5,10
TF
OPGT .OPSR-Ioll
AM
OPSR-I.I,IO
T'M OPTI.OBA5E
017~0
OPT1-~,.,
GE"ERA TE TABLE ADOIIESS
A
01750 OPSX
os
·.2It,FX, •
IS IT FUED OR HOATING VARIABlE
01760
80
OPT1,5,10.
01170
511
FLOATING. ADJUST TAaLE ADDRESS

--.

......

.-

01310

J.

Jt

00000
OSHJ
00000

on" J'
Jt onn
on"
on.. u 01"'1
onN

OlUO

onlZ
on..
OJ.02
OJ402
OJ414
03426
03UI
03454
03454
03419
0)460
03471
03472
03480
03480
03484
03489
03494
0)49'
03504
ana.
0)514
on I.
03524
03529
03534
03U9
03544
03545
03549
0]550
03562
0357~

03576
03576
03588
03595
035'6
03608
03620
03632
O)"~

0)656
0)661
03668
03680

.'I'"

15

'6

n

U
17

U

49

OtHJ

Dun
10Z'U

02 ..'

4

00102
00100

00101
00100
0000'
OOOOJ
0-121
01200
00000

0)49" 03t07J
014 •• 00000
OJ.94 000-4
01272 -3<054
5 X
2
-H'4
-6917
Oll62
0
02948

00004
00000

a
5

5
5
5
5
5
5
5
5
5

5
5
5
0
Il
41
H

5
0354R
03576
00000

000-5
00099
00000

II
42

0354R
00000

000-1
00000

26
11
26
11
16
21

03667
03595
0)698
03595
on03
03702

0359N
000-5
0359N
000-1
-2625
00000

43

03692
0370l

03715
000-5

12

a

469

01780
01790
01800
01810
01820
01830
01840

...

TF

OPGT
OPTI
FX
OBASE
FLAD

os

1620 FORTRAN 11-0

,-,.-5

OS
8

OPSA.-l, .,.

DC

10·
• -. 10-1100
5,04090

os
os

-~090

01850 FUO
01860

Rep~

01870 PRINT
OlSBO TRACE

DC
5,Ol878
-3878
DC
5.06922

-6922
DC
5.0~282
-~'12
5,03496
DC

PHASE 2

IIOVE ENTRY ADDRESS TO A GT

EXIT

PAGE
03692
0369.
03703

26

0370~

49

03715
02625
03720

00000

a

0
035911
I
0
5

00000
00000

03725
03730
03735
037~0

-3~96'

018'0 READ
01900 OOREF
01910 TYPE

5,04402
DC
-4402
DC
00005.17000. ,OOREF.
J7000
OC
5.0~282
-~282

01920 FLMUL
01930 FXMUL
01940 FLEXP
01950 FXEXP
01960 SUI I

DC
5.0~U8
-4131
5.03950
DC
-3950
DC
5.0~25'
-4258
5,0~Z34
DC

-.u.

DC
5.-02258
-2UII
01970 ACCEPT DC
5.043S.
-4354
01'10 SUIZ
DC
5.-02'63
-U6l
01990 ACtTAP DC
5.04371
-4371
02000 sun
DC
5.-02261
-2"11
02010 'UNeH DC
5.04UO

-.no

02020 DOIASI DC
00005,11000 •• DOUSE,
J7000
02030 'UII'" DC
5,04106
-4106
020.0 FLSUI DC
5,04066
-.06.
020'0 Fl!SUI DC
5,01'02
-1902
02!l60 FLOYO oe
5.04162
!laOlO 'lOYD
02010

""0'1

-"62
DC

.....

5,oa..,4

~I'''. 5,0.'"
lie

037~5

03750

5

03755

5

03760
03765
0)710
0371'
037.0

5

03715
03190
0319t
0)100
03.0'

,
,

0)110

5

OU"

5

03120

5

0"25

,

OJUO

OlU'

5

01. . .

I

47 I!

161. 'IITUII .. -I

...

,.. ,

O'MO PI.DV

DC
'.ISM'
-IMI
DallO 'UD'L DC
','4'"
-6141
'.0,.,4
01110 'L TO. X DC
-1"4
OIlZO lFUUI DC
'.04n4
-4n4
02UO . . . SUI DC
1.01'26
021.0 IISII'L

PI.I

U,..

"

01111

•
•

0'"'

-"26
DC
5.04020

6

0....

5

011••

I

DlIlD

-4010
DC
'.06010
-4020
5.06512
02160 ""E DC
-4112
02110 SLASH DC
5.064'2
-64'2
02UO IlEP
DC
'.0. . 11
-6111
02190 IT"E DC
'.06424
-4424
5.04n4
02200 FTVPE DC
-4n4
02210 ElY'E DC
5.04"6
-4556
5.06nl
02220 IIEOO
DC
-6718
5.04571
02210 HTVPE DC
-4578
02240 lTYPE DC
5.07046
-704"
02250 ASTOP DC
5.02595
-2195
02260 FRFAC DC
5.034"
-3452
5.0)401
02270 TOFAt DC
-3408
5.02492
02210 FACAD DC
-24'2
5.05982
02290 10
DC
-5982
5.066.8
02300 10ENO DC
-6698
5.04210
02310 III
DC
-4210
02320 PAR
DC
5.0n18
-n18
DC
5.06334
02310 NAT
-6334
02340 8GNST DC
3.0.16999
-00
2.0.169.5
02350 8GNSV DC
-0
02360 ENDST DC
5.16994
.16994

5

01171

02150 IISII. .

03110
01111

5

OlitO

5

OU.,

,

03900

5

0390'

5

03910
03'"

,

03920

5

0392'

5

0)930

5

039n
03940

5

0394'

5

03950
0395.
03960

5

03965

5

16999

3

16995
0)910

5

HI

02310

.
DC

1620 FOUUN 11-0

11000

1.' .17000

FOR TUN SYII.OL TABU SUIICH IIOUTINE
OS
5
SRFeT TF
SRSY •• -l.ll.
IIOVE III PARAIIEfERS
All
SIIFtT-l.S,10
TF
SRGT.SRFCT-l.11
AN
SRFtT-hl,IO
TOM SBASE, ..
SBASE-I
SRSV
OS
811R SRNK. SlASE , II
SRGT,O,n
TOil RIISW.I, II
B
SRFtT-l .. '
ODRG .-3
SRNK
TF
,SBASE.lI.
MOVE Ol./ECT ADDRESS 0' SYII.OL TO GT
OS
,--5
SRG'
TOil FPSW
.0
8NF .'68.SRGT,1l
.D
"36,S"IPS~
CF
SRGT ...
DIISW
DS
,--1
CONSW DS
TOil FPSM.l,l1
TFII OPI,21,10
8
"'0
OOIlG .-)
TFM OPI.17.10
,--2
OPK
OS
SIUE.l,IO
TD
Flail'", SIUE.ll,
SIT FIX OIl FLOAT
SIUE,1,10
TO
OMSM, SIASE .11.
SIT DIMIIdIOM SIIITCH
TOM toMSIl
.0
IN' "'4,OllSIl
TOM CoMSII,I ..
lIT co""", SIlITCH
10
•• 'O.DMSII,,
IS IT DIIIIIISIONID
I
SIIC"L ...
110
DOIIG - J
$M
SIASI.',lO
Pl.5I. .I,ll.
SIT I IIAX
T'
SIASI".lO
'M
SIICFfL CF
'lOll'"
SM
SlAlI,Z.IO
SIIFtT.. l ....
SlAse OS
Z.O
'XII'L DC
-0
0 ' ' ' ' ••••••
.DIlTIAII ,lIet PIlIt.DU'.
01110
Dil
'I
02380
02390
02400
02410
02420
024]0
02440
02450
02460
02470
02410
02490
02500
02510
02520
025)0
02'40
02550
02560
02510
02510
02590
OUOD
02610
02620
02630
02640
02650
02660
02610
OUIO
02690
02700
02710
02720
02710
02140
02710
02160
02770
02110
02790
02100
02110
OIlZO
OJIlO

.,,,.

Dill' 'OIICE
DUM
011. .

OZ...

"
""

..

.'

'"
'"

un

• ,.

un

••••••

•t.v.·-I.Il,

.OIC.-•.•.••.
" Plv.,
••• , ...
."
" ,1IIlt1-".'
"
All

'M

,AIIS.,""a.u

PAGE

PHASE 2

IIO¥I III ",,'III'''S

03915
0]916
0]9 ••
04000
04012
0402.
04036
0404'
04041
04060
04011
040.4
04092
0409'
04091
O'UOIt
0411.

2f>

II

26
II
15
26
41

16
U
49

26

o.n.

l!I
44
4J

04"0
0.150
04l!11
OUU
0.1 ••
04".

l!I
16
49

0.114

16

04196
04201
06120
04U2
04144
0421t

11

o.n.

o.ln

o.a..

04lM
042"
06100
04100
DUll
0 . . .4
0 . . 36
0. . . .
DUM
041,&
0. ."

n

U

11

It

II

••

11

5
04047
03975
0409.
03915
04"1
04no
0
04092
04090
04715
Gl91N
00000
0
09659
04114
041 ••
04090
0
0
09659
0.19)
0419.
0419)
0
Dun
OU73

Dun

06lS0
04Ul
0.,'0
O.Ul
04100

41
Itt

onu

11

oun
09611

at

oun
n oun
II oun
11

.,

0"'"
0
I

0391N
00D-5
0397N
000-1
00004
00000
OIt31J
-0000
0000.1
00000
0431./
00000
04090
09661
00000
0000.1
000111
00000
000,/7
000-1
06J7J
000-1
04J1J
00000
04150
00001
04150
00000
000-'

onu
000-'
00_
000-'
00000

.....
.....
..u. ..." ...'"
ou" a.

....a u

I
D....
OU"

0"'1
000-.

U

. .11.

000-1

at eM...

eM...

It

~UTIl

472

&III

lII'Uo

01'.0.

O.U. I!I.f

Itt
OS'

'UO 'Dn••N 11-0

.
"'-.'

FOIICI-lo 2. aD

104 •••

oa. .O

a' ,"c••,.

0"60
OlnO

a
TF
a.
IF

"II

o,no
on.o
0'190
01000

til

OJOIO
OJOJO

CM'

OJoao 'RV
oJ040

OUOO
03110
UH20
01130
01140
03150
01160
011 TO
U3110
01190
03200
03210
03220
OJ230

n

'N

r,"
A

Oloto
OJOtO
0)010
0)010

oiD'o

os

'DRt'

FtODE
FANS

aM
TF
t
ijNH
TFM
TFM
DS
OS
8

FYI
FOlitt

1'

'Has, a

~.'" 0".-'011 ... SI 'NM DP LOll VALVI

NOvE , . .\.I 'A" fa py,
GlNllAn ' ' ' U ADOIISS
afllll'" Lin VALut nOlI
Ffl.t.10.
lOO , TO
"OOlISS
a",ov, COOl nON "ILl
'COOE.'Ta. U.
IOt •• ,1S alGHT OP,a'Taa LISS '""N OF LOll VALue

",,'.Ast ..
"n-,.FLV.U.
Lvat, ..

n.u.

"I'"

..

".1.1

•--1

'.'.,"
FtV,l'I ••• ,
FOIItc

fifl.'IUE ..

FTI-hfRV.ll.
'TI.2.10.
RVAL.fTl.U.
Lvat.IIVAL ..
·.24
FCOOE ...

....-

,--5

5._

FORtE-i •• 6,

OUoo

o.la,

OU,.
OUit

041.'
ou••

OU60
0.,,,
0. . . .
OU••
OUOI
04620
041.,
0. . . .
046'6

IS 0' HIGH.II 'H'N "IGH VALUI
NOVE ralLE lASE TO "1
,GENERATE UIU AOOllISS
ADD I TO "ILE AOOUSS
REMOVE IIIGHT VALUE fRDN "'IU
CD.,A., LI.T VALUE fa alGHT
NOVE ZlIID TO tDDE
MOVE lEllD 011 COOE TO FANS

046. .

04619
0461.
04680
041>91
04692
04704
04112
047U
O.lU
03611
OtoT"

EXIT

.

04'., ,
04a'. .,
.....
0"'"
••••• ,aa"1
0."0

aa

,.
U

a•

'AGE

OU19
DODOe!
0

OIJOe!
-S6n

ou,s

0 ...' .
04
.."
000-1

OU'I
OU"
00000
0

•• ...."
,...,Z.
..
H

It

It

II
Il

4"

'·~04

au'"
OU.1
O•• to

Ot••J
0-104

o."a ouoo

0.1.,
OU.I
0.690
0.691
0.11'
OUU
0., . .
04619
00000
0
0
OH1R

OOJ"
01100
-JUl
OU.K
000-2
OU9J
Otll1
OUOO
-0000
-0000

,

00000

0.715
OUJ2

000-0
00000

2.50

04119

2

01250

OS
TFM
8
DOIIG
OS
OS
OS
DC
-1
DC
NO
DSA

II

0412.

, x

03260 RFlAG

Dt

1.0

04'"
04125

-2928
1

03210

DC
00
DC
N9
OSA

04Y21

2

2.5'1

0412'1

2

COO16

OUJ.

5 X

1.0

0413.
04115

LyaL
IIVAL
FUSE

01240

03280
03290

03100 RXFLAG DC
03110

DC
-0
DC
-0
DSA

01320
01130

RYAL.O.IO
FOIIC8
--3
2
2
,"2-1040
2,1 ..

2,60,.

RPAIIEN

GOTO

l6

4'

2
2
0
2

JOO"
1

0.131

2

2.0

04139

2

tODEt

0414.

, X

2.0"

COMPUTED GDTD

•

000-2

473

1620 fORTRAN 11-0
Oll40 FTSN

PHASE 2

PAGE
0414'
04145

JOIU
I

04741

2

2.0

04749

2

01310

DSt
0
DC
-2
Dt
-0
DSA

CODET

OU5.

5 X

OUIO tAUl

OC

1.0

0415.
041U

01)90

DC
-0
DC
-0
DSA

2,0 ••

OU50
Oll60

OJ400
03410

ouao

FFRSW

03410

OJ.50

AMSN

0)"0

on,o
O1SS0
OJ. .O 'LAGSW

OJno
onao

..,..
OU10

eIJ"o CUw

0 ....

IF

00

2

04164

OS

I

DC

2.0"

04764
04n5
047"

as

DC
-0
DC
-0

au

I
2

0415"

Doa

JOO'"

04751

2.0

0)"0 SUIPSW OS
03410
DC
JO
OJ4IO
DC
JO
03490
OSA

onoo

2,2 ••

CDOEU

-0
Dt
-0
DSA

0)440

100

2.0

04119

CODEO

0417.

5 X
JOIlO
1
2

, X

04114
0.115
0 ..177

-J472
1
2

2.10

04179

2

tOOEl

04114

I

047. .
04111
04'"

I

2.10 ••

2.0"

PLUS

,aINT

5 X
,.10002
1
2

a

Z,O

04'"

COOIl.

0.".

5

0"94

.10194
1
2

os

I
2.0 ••

at

2.0

04119

2

COOll.

. .ID.

S

Ot
-0
-0
DSA

os

1

IIC

2.0, ..

at

,~.

-0

04'"
04711

AUO

....
,
.....
0. .0.

,.,'.

141M

-0
'"

.~~,

..,-..

~,:.,.-.

9

"0194
I

•

Z

414

/

.

a6l0 POIT.AII 11-0

0""

'"

CDDU'

OJ6IO

DC

100

OJUO

OJ."
0""

.,
.,
DC

Z,S,.

..., •• I

II,.,

o. . a.
Mia.
0 . . a'

Joa . .
a

Min

2

Mia.

2

DC

I.'

DSA

CODIl

1'1"
.0•• 2.
·041"

JOOOZ
1

04121

I

, .II

OJ660

DC

1.0

o,no

DC

.,
DC

I ••

0412'

Z
,

01690

..

2". ,

DSA

CODU

Dun

OHOO

DC

1.0

0. . ' .
Dun

onl0

2.0"
2.0

0 . . 3'

Z

03730

DC
·0
DC
·0
DSA

CDOU.

0. . . .

5 x

on40

DC

100

0. . . .
041.'

03150

DC
-0
DC
-0
DSA

2.0"

0,.10

01720

03160
03770

EXP

Dun

ACCEPT

ACCEPT U'E

J01"

1

0. . . 7
0. . . .

2.0
CDDU.

0. .' .
0.15.
048"

, x
JOlt.
1

DC

1.0

OH'IO

2,0, •

03110

DC
-0
DC
-0
DSA

CODU'

A. ."
0. . . .

03120

DC

1.0

0. . . .
048"

J01'.
1

03830

DC
-0
DC
-0
DSA

2,0"

0. . 67

2

031'0
03850

I

JOO02
1

03710

03100

ao

, "GE
x

04857

'UNCH

2.0

PUNCH TAPE

2

, x

2.0

0""

2

CDDU"

0. . 74

5 x

H5

a620 PDITIIAII 11-0
03160

DC

1.0

03110

DC
JO
DC
JO
DSA

2.10,.

011.0
031.0

.. INUS

2

I'll'

2

CDDU

0. . . .
0••••
0""

JOO02
1

0'''7

2

DC

ltO

-,DC

1,5,.

DIVIDE

, x

1.5

0. . . .

2
5 I

039]0

-5
OSA

CODEl

0. . . .

039.0

OC

1.0

au ••
04195

JOO02
1

0]950

DC
-0
DC
-0

1'. .7

2

1.0

04199

Z

COOEO

0.'1'

5

1.0

04'1'
M'DI

-]472
1

03960
0]970
0]910
0)9'0
04000
MOlD

OSA

DC

...
...

2.0 ••

10VD

DC

2 •••••

04907

Z

DC

2.48

1""

Z

DSA

CODU

0'''6

1""
06911

CII'

I X

DC

1.0

06010

DC

...

. 2 ••• "

04917

I

2.1

1'.19

I

060'0

DC
-a
DSA

CODU

049U

,

1'060

DC

1.0

0.".
M.n

JOO"
1

.....
MOlD

1'....
06.00

DC
00

...

2,60"

ot

I ...

OSA

COOt,

DC

1.0

L"II"

no,

.....
.....
06917

x

JOUI
1

04010

0"'060

11

JOlt.
1

04177

03910
01920

0. .1.
o. . n

2.10

03900

DC

PAGE

'HASE Z

I

2

M.M

5.

MIn

JOO"
1

x

1

418

a6Z0 'DATIIAN 11-0
04110
04120

DC
00
DC

.,

'",

'AOI
06911

Z

l.n

04')'

2

COOf6

049. .
049. .
06.4'

2,60 ..

"USI

N9
04110

DSA

04HO

DC

ltO

04150

DC
00
DC
N9
DSA

2,60 ••

04160
04170

OU69

CODU

04956
06955

'J0074
I

04951

2

DC

1.0

DC
00
DC
N9
OSA

2.60 ••

CODtH

04964

5

04964
04965

JOH2
I

04961

2

DC

1.0

DC
-5
DC
-0
DSA

2,S ••
2.0
CODH

04974
04974
04915

DC

1.0

04270

DC
-0
DC
-2

2,0"

04290

OSA

04300

DC

043\0

DC
-0
DC
-0

04320
04330

os.

UNMNS

04969

04260

04280

5 X

04959

04220

04240

FORMAT

2

2.59

04HO

04250

o•• n
04954

04190

04210

5 X
J0014
I

2.§9

04180

OHOO

COljTlljUE

SENSE SWI reM

04919

CDDEO

04984

2.0. ,

04984
04985

CALL EXIT

04987

CDCALL

04994
04994
04995

04]40

DC

100

DC
00

2,60"

5 X
-1412
I

04989

2.0

04350

5 X
J0050
I

04971

2.2

1.0

12

SC

5 X
J0410
I

04997

477

,.a, 'DI"'. 11-'
0."0
. ..,0
O.tlO

DU

04610

'AGI
OSIlM
OSOM

JOne
I

050Al

2

05"'

1.0

DC

2.0 ..

DC

2.0

osoe.

2

'CTn

DID"

I

-0
Dli

InUIN

OS".

olon

JoU2
1

0 . . .0

DC

1.0

0"70

DC
-0

2.0.,

050n

2

04610

DC

2 •• 0

Z

04. .0

DO
OSA

01079

CODEO

0501.
0501.
01015

04100

DC

1.0

04110

DC
-0
DC
-0
OSA

2,0 ••

04720
04no

DUIINY

END

II

5 II
-]472
1

05011

2

2.0

050"

2

CODE.

05094
o!lOn
05095

.10014
1

05091

2

, X

04140

DC

1.0

04150

2,1 ••
2.0

05099

2

04110

DC
-1
DC
-0
DSA

CDDEl4

OSlO.

5 X

04180

DC

1.0

05104
05105

04190

DC
-1
DC
-0
DSA

2.0

04"0

04800
04S10

Z, 1.,

05107

2

OSlO.

2

0511.

5

Olll.
05115

JOlt4
I

04820

DC

1.0

DC
-1
DC
-0
DSA

2.L ••

0"'50

FEfCHl

J01 ••
1

CDDEl4

04"0
04140

FnCHY

FINOY

1.

, II

DC
-0

0".0

........

CDDtlS

I

051ll

2

2.0

0511'

2

CDDU4

05124

5 X

U9

1620 FDRTIIAN 11-0

PHASI 2

PAGE
0512.
05125

JOlt.
1

05127

2

04S. .

DC

1.0

04810

DC
-1

2, 1 ••

04880

DC

2.0

05129

CDDIl4

05U.

041.0

-0
DSA

04.00

DC

1.0

04"0

DC
-1
DC
-0
DSA

2.1"

04.20
04910

FINDl

IICOIDY

2.0

1.0

2.1 ••

01l4.
O!ll54
05114
01151

DC

1.0

DC
-0
DC
-0
DSA

2.0.,

2
2

COSSAI

onM
one.
01161

Jono

OIlAl

2

DC

ltD

2.0 ••

05010

coons

o,otO

DC

.....

,

-0

01100

I

011. .

2

..

OIn.

511

DC

2.0 ..

I ••

DC

Il

CDDtIS

ItO

.,

OSU.

OIIH

01'"

..
01'"

'""
."
D....

I"

5 X

2.0

DC

-0
DSA

5 X
JOlt"
1

01117

DC
-0
DC
-0
DSA

01OtO

2

0515.

050]0

05070

1

2.0

01020

050.0

SO

5 X
J0194

05147

2.0

04910

01010

.. CDIDl

CDDEl4

04990
01000

2

05144

DC
-1
DC
-0
DSA

04'60

05U7

051""
D51U

DC

04910

051"
05151

CDDEllt

04950

S X
J0194
1

D5U9

"'
04.40

15

.101. .
I

2
2

,

I

.1. .66

I

480

OSUO
05110

-0
DSA

0'"'
0""

0"'.

JOl66

0""

I

05197

l

051'0

DC
·0
DC
-0
OSA

2,0.,

05290

2.0

05199

COCAll

05204

......

0520.
05210
05222
05234
05246
0525.
05270
05282
05284
05214

......

05360
05HO
05380 AOSl
05390
05400
05410
05420
054]0
05440
OH50
05460
05470

DC

I.'

o,no
0'. .0
0'990

""110
0.010
0'020
060'0

RMNS
GTNS

BT

RPNS

OS
TOM
8f

RGR

RGRI

RGRA

RGRF
_GRS

OS
TF
AM
TF
AM
CM
8NH
CM
OS

BNH

C
8H
TF
S
AM
MM
SF
OS
AM
TF
SM
SF
10
TF
OS
tF
8
DoRG

09618
-5245
-5284
000-1
09681
09682
00000

2
5 X
-529Z
1

05297
05300
05)05

......

I.'

RMNS+8.1,11.
RGR.RMNS-l
5
R"'''IS+ •• l, ,
RGR.GTNS-I
5
R.MPrtS+8.0. ,
RGR.RPNS-I
5

SET RMNS SWITCH TO FLAG
SET GTNS SWITCH TO
SET RPNS SW ITCH TO

a

MOVE IN ADDRESS OF

R.GRS,RGR-l,ll.

MOVE IN ADDRESS OF SYM80L

RGR.-l.1,lO
8GNST,O,8.
RGRNUL

COMPARE NORM TO ZERO

.0.8.

tOMPARE

TO ZERO

COMPARE

TO NORM

,*-5

.'

99.I'N5T ..

MOVE IN NORM
SUITRACT I fROM NOAM
ADO 1
MULT/PLV IV MINUS 4

REMGET .RM"S.I ••
f t •• 6.

ADD S TR I NG 10DUSS
MOVE SYMBDL lDDRISS
SUITUCT ) FO. FLAG POSIlIOM
sn FLAG IN SUIN'
IUNtH IF .MIIIS OR GTNS
MOVE SVMBoL IIilTo n.IIIIG

"
ItGIl'.6,

CLUR FLAG

...

•• 30.99 ••

·.18.3,10.

,6.

ItGII-l •• 6.
--3
RGRS.99.611.

..It

26
12

31
25
26
U

II
12
'>2

5
05342
05H2
00000
16996
16995
16992
16999
03970
00000

03910
000-4
039716992
0531J
00000
000-1
000-4
00000

481

05414
05416
05428
05444
05446
05.458
05474
05476
05488
05504
05506
05518
05530
05542
05554
05566
05578
05584
05590
05602
05614
05626
05638
05650
0566Z
05614
05615
05616
05698
05110
05722
OS 734
05746
05751
0515.

osno

flIT

un

05311
05312
05324
053)6
05348
05360
OH12
05384
05396
OH08
05410

PAGE

RGR I ,--1,11 •
RGR-I,5.10

RGRNUL
RGR1,8GNST.6,
RGRNUL
RGRA.8GNST ..
RGRA,RGRI.II,
RCRA •• tIO,
RGRA.4,!01l.
95

5 X
-9678
I

05305
05]06

PHASE 2

RUGET Tf
TAIl SYIIIOL FIIDM SfllNG
CF
IlGIF •••• 6.
C~UR FLAG
BIllF _G_-I,tlMNS.',6,
u n IF GTNS
SM
IIGR,.6.1,10,
ADD ONE FOR CLOSE ADOUn
TF
•• 10.IIlGaF.', ,
MOVE CLUSE ADOIIES S
A.
• •• 1,4.10.
ADD 4 FOil C~D$E TO AOOAISS
TF
,IIGRF.', lit
CLDIE STtllNG ONE SYMIDL
$11
IGNST.l,10,
OIClUSI NOliN IY Old
III
ENDST,4,10,
ADJUST ENon
I
.GII-l .. t,
IX"
DollG .-)
.GaNUL 10
"'O.IIMNS-I, ,
lUNCH I' IIIIIIS D. G'''I
lIGlI-I . . . .
I
IF
DDIG .-)
IIO¥I NULL TO UMBO\.
"11 ••• '.0 ••••
I
lU- ••• 6.
DOIIG .-)
,OATUN GUllIlTf TlIIJOOAllIY STa.AGe laufflll
5
DS

••••••

31
4l

5
05258
00S.5
00566
05297
0520R
0'678
00000

05292

FORTRAN II GTNS. RMNS, RPHS ROUTINES
5
OS
•• 30,ENOST, ,
SET UP OPEN ADDRESS
TF
e.18,4.10
SM
OPEN STRING 4 LOCATIONS
TR
.ENDSt, 11,
RESTORE 1ST DIGIT OF NORM
8GNSV+ 1 ,8GNSY-J.,
TO
MOVE SYM80L INTO FIRST POSITION
TF
8GNSY,ADSl-l.ll,
CF
BGNSY-3., ,
CLEAR FLAG ON NEW SYM80L
I NCRElSE NORM IV ONE
AM
BGNST,l.lO,
ADJUST ENDST BV FOUR
SM
ENDST •• ,!O,
88
DORG '-9

OS
TOM
8T
OS
TOM

45
It
49
II
26

05290
05291

1620 FoRTUN 11-0
OH80
05490
05500
05510
05520
05530
05540
05550
05560
05510
05580
05590
05600
05610
05620
05630
05640
05650
05660
05670
05680
05690
05100
05710
05720
05130
05140
05150
05760
05170
05780
05790
05100
05810
05120
05830
05140
05150
05160
05870
05110
05190
onoo
onlo
05920
05930
05940
059S0
05960

5 x
JOHO

05290

1,0
05110 G TijlKA OSC
0
5,600
05320 GT8LK8 DC
-0600
05330
DC
hi
-01
INPUT
05340
OSA
05350

, x

on04

GEU FOR TRAN ROUTINE
5
aNR GETSy.INPUT
, •• Z)
TFM IOU
10GT
,GETnK
8
.7
AM
.10
GTeLK8
.1
TF
GETX-I.INPUT+3r6,
GET NUT SYMBOL
SLIDE DOWN
TR
INPUT,INPUT •• "
88
OORG .-9
OSC 2.2
02
OSA GTBLkA

OS

OC

05300

CAn UNK

16

2

2,0

1,0

05110
051'0
05200 GETX
05210
05220
05210
05200 GETSY
05250
05260
05270
05280 GETIU

051tl

CODns

DC

0~170

n

2,0"

05140

05160

.,.Iff

'HUI2

,.20 'OATI'N 11-0

OC
-0
DC

OtllO

.'"$

......

0577.
05771
051.0
OSlO'
05114
01126
0513.
01150
0,."
05114
0""
05"4
05194

15
Z1

IS
21
15
27
26
II

26
II
14
H
14

47
24
46

26
22

11
U

3l
11
26

12
U
4)

26

H
49

2.
J3
44
It
U

II
26
12

11

5
05424
05506
5
05424
05506
5
05424
05506
5
05584
05505
05751
05505
16999
05894
00000
0
05894
0558M
05894
05685
05615
05685
05615
00095

a

OOOOJ
05415
00001
05445
00000
05415
0550N
000-5
OS50N
000-1
0-000
01100
0-000
01100
16999
01100
16999
0551M
000-1
OOO-M
00000

00099
05728
05128
00000
05771
0009R
0
0572Q
0550N

J6999
00099
000-)
00000
05424
00000

057"
0512Q
O'SON
05121
on56
05856
00000
16999
0)910
onolll

ooon
00000
05424
000-1
onu
000-4
onZQ
000-1
000-4
00000

00000
00000

U

..

OS914
onOM

05424
00000

01 ...

05".

16

OUIP

0-000
00000

Otto.

0"'•
0"14
05911

4.

.

onOM
5

17

482

a6'0 'DlT.AN 11-0
lIT &I TO

060.0 IOMRP
0"'0
0. . . .
0.070
0.010

""
'"""
DSA

GI ....

0.090
"100
06UO
"120
06110
06140
06150
06160
06no
0"10
06190
0.200
06210
06220
062)0
06240
06250
06260
06270
06210
06290
06300
06110
06320

tIl
.IIE
tIl

GA.IOI •••
GNRP'2.
TMAX, , ••
GNONE
GUSE. TIASE
GtNToO.'
GUSE.lol0
GFREE .GUSE .11.
GtNT.I.IO
T"AX

TD"

&TSISII.O
GI.I.10.

'TNS,·.l' ••

.

,.., ,

,ua

0".0
onu

ADO I TO GI
lIT IT" SY"'DL

Gl.GA

OI"~

.
as

01." "
onu

17

01.92

IE
GYES

GTPT
Gt"T

G"ONE

"""

511
8NF
A"
tIl

os

06)30
06Ho
0.350
0.360 GPUT
06310
0.380

G"O"E
GUSE.IO.IO
GYES')6

BT"

PUTX, •• 16"
Bn... FRFAC .GCO ..

""80AM
TOM
BTM
OSA

06]90
TF
TF
06400
06410
S
06420 FULLtK t
BNL
06430
06440
RCTY
WNTV
06450
WATV
06460
06.70 "'NtLOV BV
064BO
B1

HAVE ANY T."" IUN GENERATED

IRANtH IF FREE ONE FOUND

.'

IE
511
I
DORG
All
10
TF
All
A
TF
TO"
OSA

to""'. TO FAt ( aOI I

.-)

TIIU.I.IO
fULlCK-24.GTSISW
GtOW.AotDW ..
GtOw.I9.ID.
GCoW.LNG
TCOw.GCOW ..
552.1

II0VE ADtDIl TO Gtow
ADD 19 FOR LENGTH OF INSTS
SAVE tONSUNT ADDRESS
OUTPUT STORE FAt INST

GCOW,§,10.

IS GtOW DOD OR EVEN·

GAOOI.99
GtoW.,.IO,
SSI.I

ADO 2 TO Gtow

PUT)(,.+16

8. GCOW. BUNK

AOCOW.GtOw ••
GBASE. TIA SE ••
GBASE-I.TMAX
GIASE.DO"Al
GPUTA

~ESERVE SPAtE FOR NEW TE"P
"OVE IN NEXT AVAILAILE TAILE ADDRESS

SCNT-3
FULMES

-+12
"'OHCAL

1620 FOUUN 11-0
06490 lOP UTA
0.500 GfLAG
06510
06520
06530
0.540
06550
06560 GTJW
06570

TF
AM
TFM
SM
TO
HD
TO"

06580
06590
06600
06.10
06620
06630
066.0
06650.
06660
06670
0.610
0 . . 90
06700
0.710
06120
06730

8
GNRP-I •• 6.
OORG '-3
All
GtOW.I.IO.
8
GPUT
OS
"
AM
GIASE
01.10
BD
GTST .GBAU.II
BNF NGFRE.GTSISW
80
GFLAG'12.GTSISW
SM
G8ASE.I.10
B1
GrPT
SII
GIASE ••• 10
TF
TtOW.GIASE .11.
TOil SS2.1
ITM PUTX, •• 16 ..
OSA 8TII. F~FAt. TCOW

GADDI
GA
GFREE
GTST
NGFRE

BT"
DSA

05997
on. .
"010

0.022

OAOJ.
OAO. .
060n
0.070
0601l
0609.
06106
0'1l7
06111
06130
061.2
06150
0.150
06162
OUH
06116
061"
062ao
06'22
0623.
06no
06250
06255
062.0
0"'2
06274
06286
06298
06110
06326
06326
06331
06]36
06111
06350
06362
06374
06386
06398
OHIO
06422
064).
06446

06710
06110
0.790
0 . . 00
0 . . 10
061'0
06130
0 . . .0
06l1lO
0 . . .0
06170
0'''0
06. .0
06900
069ao
06."
069'0
069.0
06950
0 . . .0

GTeL

B
OS
Ot
JOOO
tIl

GTtL-I.IOI,'

IE

•• ,6

C
IH

TlASE-I.Grel-1
GTFltL

It
OOIlG
GelEAR

GFUG
5 ••
4.1000

.-.
.-.

oon.GTtL-I
TO" 7
81
.. 0
DORS
GTfLCL Tf
"U,GTeL-I
tf
GeOW
os 5,.
I
GelUI
OOIlG '-3
GlASE.flUI
&TSeL
5
GIASE· a • T_'I
All
GlUI.,.·ao
GlAn, TlUI
t
INH '+1.

"

•

"

26
16
U

II
I.

12
.9

11
.1
2.
U
2.1
26
III

11

1]

U
U
U

11

26
26
2Z
2.
.6

n

38
39
46
.9

,

ADD I TO Gtow

MOVE ADDReSS OF GT TO TtOW
OU"UT STOllE Fat INST

K

,

os ...

0.972
06 no
OtAn
06U7
09637
06592
0.1l7
0 . . 72
0
0.150
09631
0.082

0-101
01200
00-00
01200

DUo)
00-00
000-1
0963P
000-1
-0000
01200
OOOJO
00000

000-1
0702.
06977
OOOJ.
09640
06839
00001
-.250
5 K
3

06912
06)50
06839
06819
068)9
06969
01477
07032
-6980
-3930
-6839
06839
06UI
06839
07416
07032
5

-6982
-.839
-9356
06977
09631
09636
09631
064'4
00000
09670
09473
OU46
00796

000-5
0009.
000-2
00001
-6326
x
3

06839
02303
06972
09587
01100
00102
00100
00100
01.00

483

PAGE
0645.
06.66
06418
06490
OAS02
06514
06526
06538
0655.

UIT

0-000
00000
000-1
-599'

-un
-'5111
0"91

PHASE 2

GBASE, TCOW.6
GBASE.4.10
GBASE .10.610
GBASE.), 10
GBASE.FLAGSW ••
GTFIN.C;TSISW
FSW.O
RPNS"'16
GI.GIASE-1

06554
OU59
06560
0"61
06568
0."0
06591
06592
0660.
06616
066"
066.0
06652
06660
06672
D. . . .
0 . . 96
06712

26
11
16

12

n

U

IS
11

49

.9
II

II
H
4.
H

12
.9

12
U
15

11

-6735
-9636
0593R
06139
06291
0
09631
06621
06660
06.78
09631
060'.
09637
06969
07417
01012
5

00000
000·1
00000
000-1
0963P
07026
01026
000-1
000-.
0963P
00001
-6112
x
3

Dna.

••

0.7.0
onu
on. .
06776

••,.

.

067)9
0671.
on02
068"
00000

0-101
OUOO
0673.
01100
00000

26

06l0T
00007
00000

061"
00000
00000

o . .n
00004

0.7"
00000

06U5
o.n.

DUll
06190
06790
0 . .02
061'.
06116
061 It
ouae
061"
061.0
0O"~'
....
0 . .60

0617'

0. . . .
0. . . .

a.

.,

II,
,."
n

It.

"

,

00000

06790

00000

26
II
II

O9U7

DUDS

0....
09. . '

O6na

008-3

H

069ao

01100

,~

19

0963P 06969
09.31 000-4
0963P OOOJO
09631 000-3
0963P 04795
1•• 18 01026
09326 00000
05.76 -655.
5 K
2

-6910
-3930
-6969
0. . . .
5

06112
06717
06722
067.0
o.no GI
06160

.
••
..
I.
U
a.

I.

"&E
onu
070,.
onll
05. . .

o.. n Dun

48 (,

1'20 FOUUN 11-0
06nO
0. . .0
0 . .90
06991
On92
01000
01010
01020 TCOW
01010 TUX
01040 AOCOW
01050

II
001e;
TOil
SM
CF
AM
8
OS

.-9
GlUE •••
GIUS!.3010
GIlASE .. 6
GIIASEol3.10
GJSCL+l4

..

3.0
DC
-00
DC
5.0
-0000
DC
I, '

01060

aTM

01010

DC
M9
01
OS
01
OS
02
OS
OJ
OS
03
OS
OK
OS
04
OS
11
OS
l
OS
GTS8SW OSC
0

DC

PAGE

PHASE 2

0....

42

00000

0110011

06910
0"10
0"22
0.""
06946
0 . .5.
0. . . .
06912

15

..

O'l6!P
0"17
0'l63P
09611
068 . .
0
3

00000
000-3
00000
GOOJ3
00000

12

JJ

11

20

5

06971
06978

2,11

06980

2,49

06'182

<;

06'181
06992
06991
01002
07007
07012
07011
01022
01025
07016

J1
01080
01090
01100
01110
07120
07130
07140
07150
01160
07110
07180
01190
01200
01Z10
01220
01230
01HO
01250
01260
01210
01180
01290
07300
07310
01320
07BO
01340
07350
07360
07310
013&0
01390
01400
01410
07420
07430
07440

5

s

5
5
5
5
5

3
1,0

5
5
5
5
~

5
5
5
3
I

01 SC OUTPUT ROUT! ~ES FO_ DueCT PROGUM
pun

OS
TF
AM
TF
AM
TR
TF
AM
C

<;

PUTI
,PUTX-I
,II
PUT X-I
,5
,10
PUT2
.PUTX-I
.11
PUTX-I
,5
,10
TYPer
• TYPEX
PUTU
PUll
,PUTX-I
,II
PUTX-I
.2
tlO
Pun8
COOET
.LSTYPE
B~E
'UTOIF
SAYCOW
,AOCOW
C
8NE OUTS EO
8Al
,SlNG
C
PUTNXT
BL
PUTEST 80
PUTINS
,COOET
Bl
PUTCAI>
PLAce I~STRUCTIONS IN OUTPUT BUffER
PUTI NS AM
NEXT
,2
010
TF
NEXT
,PUTI
,loll
,pun
lOCOM
c
,II
~NH
-+2,.
80
FlG2
,SS2
PUTlC SM
,10
NEXT
01
C
LOCON
,Pur2
.11
8NH ... 24
.+24
80
,SSI

01031
07032
010"4
01056
01068
01080
07092
01104
01116
01128
07140
01152

01164
01116
01188
07200
07208
07220
01232
01244
01256
01268
01280
07292
07304

5

26
II
26

II
31
26

II
14
47
24

47
24

47
43
~9

II
26
24
41
41

12
24
47
43

08170
01011
08175
01031
08425
08780
07031
08H8
01604
01499
01144
08446
01904
01208
01528

0703J
000-5
0103J
000-5
08181
0703J
000-2
08"4"
01200
06917
01200
08421
01300
08438

08HI>
08450
02262
01268
07468
08456
02262
01316
01328

000-2
0871081801100
01477
000-1
0817N
01100
01416

485
&
1620
07450
07460
01470
07480
07490
07500
075\0
07520
01530
07540
07550
01560
07510
07580
07590
07600
07610
07620
07630
01640
07650
07660
01610
01680
071>90
07700
07710
07720
01730
07140
01150
01160
07710
07710
07190
07800
01810
07UO
01130
01140
01150
01160

PUTGT

PUTxO
PUTxe
PUTXF

FLG2
5S1
SS2
Ss)
SH

CF
OS
AM
TF

.
80

TF
80
TFM
5"
A
TF
A
B7
5F
OS
OS

as

OS
87
FLG3
SF
SAVCOW OS
81
FLG4
SF
B1

......

PUTCAO

......
PUTOIF

'UTXG

FOlITRA~

,.

NEXT

NEXT
NeXT
FlG)
NEXT
NEXT
FlG4
SS4
SAL
AOCOW
5AYCOW
LNGAD
PUTX-I
NElT

11-0

PHue
.6

,I>
,PUT2
,SS3
,5

,pun
, SS4
.0

,12

,10
.611
,10
.611
.8
.10

,5LNG
,AOCOW
,SL~G

,--3
,·-2

,6
.6
,6

,-

• *-1

,.

PUTXC
NEXT

.99999

.61

PUTXO
NEXT
.6
PUUE
PLACE OSA ADDRESSES I~ OUTPUT aUFFfR
A
NEXT
,$LNG
S
UL
,SLNG
TF
~EXT
.pun
.61 1
e+20
80
.COOET-'
PUUF
81
TFN SAYCOW
.999"
87
PUrXF·24
THIS TYPE NOT EQUAL TO u n
TF
LSlVPE
,COOET
SAVeOW
C
.ADCOII.
a~E
OUTSEQ
aAL
C
.SSLNG
PUTNXT
aL
AN
NUT
.1
tiD
TD
NEXT
• TYPEr
.6
AN
~ElT
.2
.10
.0
.610
"N NEXT
~NGAD
.NUT
l'
Sit
SAL
0)
,10
11
PUTEST
OUT OF SEIIUENCE
C
IA~
.SQLNG
aL
PUTNU
CII
IAL
.n
• 10
PUTXH
all
NUT
,10
.1
$M
IAL
,I
,10
TOM ~fXf
•6

01110
07110
07190
07900
01910 ••••••
(}79200UTSEQ
07910
07940
01950
01960
01910
07"0
01990
DC
,

.

.... ,-

PAGe
073"
07321
01)28
07)40
07352
OU64
013U.

onu

01400
01412
01424
07H6
01448
07460
01468
01411>
01471
01478
07479
07480
01488
01499
0150'0
OT508
01510
07528
07540
07552
07564
075'6
01584
07596
01604
01616
01Ue
01640
01U2
01664
07616
076. .
01700

07712
Ona4
011)6
01744
On56

on..

onlO

01792
01104
0111 •
01121

n
II
26
43
II
26
4J
16
12
21
26

21
49
32

49

12
4'
32
49
21

22
26
43
49
16
49
26

24
H
24
41
II
25
II

.

16

26
12

24
41
14
46

Il
12

II

08450
0
08456
08450
01488
01456
08450
01508
014n
08H6
06971
07499
0145J
010)J
08450
0
0
0
0
012 . .
08450
0
07)64
08450
07400

000-6
0877N
07418
000-5
087801479
0-000
000J2
08421
06977
08427
00000

R9999
00000

084"
084U
08450
07584
07424
01499
074. .

08427
08421
081808435

0,444
01499
01144
01446
01904
01456
08UO
0lU6
0'450
01411
01446
0718 •

08U8
06911
01200
01429
01300
000-1
08425
000-'
000-0
08456
000-)

0'.46
01904
01446
01121

DIU'

01446
0I4'f(1
1

21

00000

R9'199

08411

OUOO
000'5
01200
000-1
000-1
00000

486

.1
IUO FORTRAN 11-0
08000
01010
08020
080)0
01040
01050
01060
08010
08010
080'10
08100
01110
08120
U8130
08140
08150
08160
08110
08180
08190
08200
08210
08220
OBBO
08240
08250
08260
08270
08280
08290
08100

PUUH

AM
SM
BD
TF
B7
TF
81

!\IEXT

SAL

,5
,5
,CODET-)

punA
,&0(0"
"EXT
PUTIG
,PUT2
PUTTA
NEXT
PUTIG
NEXT CARD 8UFFER TO IE USED
PUTNXT AM
,I
NEXT
TD
,FLGRM
!\IEXT
,8UF4
CM
PRE8UF
PUTPCH
8E
,15
AM
PREBUF
.PREBUF
TF
NEXT
,I
NEXT
SM
TFM SAL
.75
PUTXI
PUUH
81
OUTPUT BUFfeR LOAD TO DISC
PUTPCH TOM 8U,..+15
OGM
TFM 10RT
,-+23
,PUTXX
10PT
B
AM
PUTXZ
.3
TFM PREBUF
.BUFI
TFM !\IEXT
.BUFI-I
,AUF,..15
TFM e+18
8UF4+n
.NI308'1
TF
,12
SM
·-6
--'L8
.BUFI
CM
8H
.- 36
PUTXI
B
-.23
,--1
O~JlO pule
TF
CF
OBJI 1
,lOCOM
·-1
OB312
C
8H
PUTCA
08H3
• TYPECR
rR
TYPfT
08320
,PUTC- \
PUTX-I
08HO PurCD TF
PUTXA
8
OB340
PUTC-I,PUlD-I
TF
OB350 PUlD
, rVPECN
TYPfl
OB360 .UTCA TR
PUTC8
08310
8
,PUTA-l
PUT2
OB3BO PUTA
TF
PUTA-I
.5
08390
AM
PUT)
,PUTA-l
YF
08400
AM
PU7A-I
08410
.1
,PUTA-l
PUTX-I
08420
TF
• TYPE.
TR
rYPET
08410
08440
8
OUTSEQ
TYPET. TYPERM
08450 PUTRM TR
TF
PUTX-I. PUTR"-I
08460
PUT)!' A
81
08410
08480 TYPER" OSC 1,2
2
OB490
2,2
DC
-2
2,5
08500
DC
-5
ItUTXJ

·"11

1620 FORTRAN ll-O
08510

PHASE
,10
,10
,6
,611
,10
,6
.10
.10
tlO

,1
.10

.10

08530
08540
08550 PUTU
08560

DSC
02
OSA

01904
01'116
01928
019.0
01'152
01964
01916
07'1BB
08000
08008
08019
08020
080)2
08044
08056
08068
08080
08092
08104
08116
08118

.11
.6

.11
,10

.11
,10

081"0
08152
08164
OBll6
08188
OB200
OB212
OB224
OB236
0824.
08260
OB212

08590 PUTXl

08610

DC

I,'

TYPET
SLNG
SSLNG
NlIlG
SQLNG
CUOfl

OS
OS
OS
OS
OS

I
2
2
2
2
5
I
5.0

os

os

LS TYPE DC
-0000
08110 RlL
2,15
DC
P5
08120 L"GAO OS
5
08130 NEKT
OSA BUFl-1

08160
01110 IUF2
08180
08190 IUF3

olaoo
08110 IIU'4

000-1
01 .. 24
-8615
01200
000P5
08165
ODO-I
000P5

15

08160
I

00000

16
49

0056~

-80")
-8402
000-)
-B460
-B459
-8160
09164
000J2
-8"60
01100
00000
0815J
00000
02262
01100
08196
OB151
00000
OB235
OB811
00000
0821J
000-5
0827J
000-1
08211
08826
00000
08)81
08355

II

16
16

16
26
12
14
"6
49
26
))

24
46
11
26
49
26
H
49
26

11
26
3l
49
1l
26
49

00532
08415
08165
08456
08098
08760
080'18
08098
08092
01988
08115
08115
0811N
OB248
OB425
01031
01092
OBI51
OB425
08212
08115
08211
08180
08211
01031
08425
01H4
OB~25

07031
010Q2
I

487

OAS
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC 2',0
0000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC 25,0
0000000000000000000000000
oSt 50.0
00000000000000000000000000000000000000000000000000
OSC 25,0
0000000000000000000000000
OSt 50,0
00000000000000000000000000000000000000000000000000

2)

PAGE

08395
08400
08401

08409

5 X
-8HO
I

08~10

08415
08418
Oe423
08~24

5 x
-84.60
I

08~25

08427
01429
08431
084)]
08431
0'~39

08444
01446
014151

DIU.
08U6

08140
08150 aUFI

0lH6
01"'0
08165
08001
08165
084'6
014'6
084 .. 6
01828

on11

0811!\1

08393

08423
08630
08640
08650
08660
08610
08680
08690
08700

000-5
000-5
014)5

PHASE 2

I.'

OB620 FlGR"

22

01456
01446
011114
08450
OUlt4
08450
01664

08391

08~08

08600

II

11

08~02

DC

"

46
26
12
16
49

26

08408

OSC 1.0
0
DC
5.0
-0000
DC
303
-03
OSA 8UFI

II

25

08296
08308
08320
08332
08344
08356
08368
08380
08387

2.2

08580 PUTXY

12

4)
2ft
49
26
4'1

0828~

PUTXV

08510

II

0838Q

DC
2010
JO
DC
2 t 11
JI
~, 100
DC
-0100
DC
I.'

08520

PAGE
01128
01140
Olin
01164
01816
01114
01896

014~9

08460

S
5 X
-1459

1

2

50

01510

25

onn

50

08515

25

01610

50

0 . .60

25

01685

'0

48S

" ' 0 FOUUII

II~O

DSt 2'!IoO
0000000000000000000000000
olno
DGM
01140 PRUUF DSA aUF!
08150 PUll
01 . . 0 pun
011'0 pun
08810 TYPU
08890
08900
08910
08920

OS
DS

os
OSt
I
Dt
J2
DC
JS
OC
KO
DC

PAGE

'"AU 2

OU20

087)5

25

08760
08165

I

I
-auo
5
5
5
I

01765
08170
08175
08780

5
5
5
1,1

08781

2,12

08783

2,15

08785

2,20

08787

2,21

08789

,~

2

KI

08910
08940

501
DC
-0001
I,'
DC

087'14

1,3

08796

08950 TYPECR DSC

08795

1

08960

DC
-5
DC
-8
DC

08970
08980

08798

2,.

08100
08802

2013
J3
DC
2.14
J4
5,10
DC
-0010
DC
I, '

08990
09000
09010
09020

2,5

TYPEC~

09060

DSC
2
DC
-5
DC
-8
DC
J]
DC

09010

J4
DC

09080
09090 TYPE'

09030
09040

09050

09110

08810

1,2

0881l

2,5

08813

2,8

08815

2,13

08811
08819

5,100

08824

DC

I,'

08825

OSC

1,3

08826

2,5

08828

2,13

08830

3
DC
-5
DC

5

08809

2,14

-0100

09100

08804

J]

489

m

&
1620 FORTRAN 11-0
DC

09120

PAGE

PHASE 2

25

08832

2,13

J]

09130

09150
09160
09110
09180
09190

OS
CA~OS

TF
8TM
DSA

09200
09210

8TM

09220
09230
09240
09HO
09260
09210
09280
09290
09300
09310
(9)20

CF
SF
TO
eM
8NE
SF
TF

OSA

CA~OS'

'"IT"

OS,

TF

09400
09HO

Tf

09~20

I

09HO ox
09440 0'
0945lP
09~'0 ILKI

5
CANOSA
RM"'S

I,DX

RMNS
I,DY

DY-)
ox
'-1
*-13
.+24t
DY

as
os

DAS
Dse
2l

au

08839
08840

,--1

,II

,*+16

,
,DI-)
,'I

CANOS-l
~MNS

.10
,lOll

0'91~

,5

0"'0
0"16
0....

,-.16

,10

,IO~

,I

sueT
Ox,ox

,·.16

0+11

,CAIIO$-I

,-

,01

4
I

l,ll
ILKIA

f'

09014
09019
09020
090)1

,10

090~4

,.

0905.
D906~

09064
09080

,11

09010
0'011
09016
0909'
09110
09121
09U5
09U7
09ll.

DC

I, '

17

17

))

lZ

25
14
47
lZ
U

II
11

5
08980 0884N
05416 -8814
5 X
2
-9H7
-'Ill I
05416 -8896
5 X
2
-'541
-9125
09122
09121
01925
01925
01914
09125
00000
D

09115

00000
000-0
09118
OOO-R
01200
00000
091Z5

Oil . . 000-'
0541. -901~
5 x
2
-"~1

14
41
II
4'
17

-'121
09121
090 ••
Oll4t

OII4N

O-IO~

01100
000-1
00000

0)916 -9010
5 X
2

-91"
Z.
26
U

-'lUI
0"0.
00000
0.044
0
4
I

O"~II

091Z1
00000

,
X

09U4
,09U'l

09~.0

26

0901~

.-)

CANOU

01196
08901
08902
089U
08926
01931
01950
08962

,DY

I,OX

DX
")2
""OS-I
""05-1

01845
08846
08858
08874
08814
08879
08880
01896

,·.16

,.-1

os

09])0
eM
09340
INE
09350 C'ND~T All
~
09160
09170
OO~G
8TM
09310
09390
DSA

09470

08834

DC
2014
J4
5,1000
DC
-1000
DC
I,'

09140

-.nt
I

490

'620 'Oa'IAN 11-0
DSC:
0

0"00

,,,7116
DC
J7116
DC:
',41
-41
OSA COOEl-2

09510
0.510
O'BO
0.,.0
09550 8lK2

,..ASE 2

I,D

0'4.0 ILKU

PAGE
0.U6

,

0"4'
09,4.
09'.'

DC

I,'

09149
D9UD

OSC

1
2,22

09UI
09152

8lK2A

09"8

I,'

0915.
091S9

,
as

U

JOOOO
I

22
09~1I0

OSA

O~570

DC

09580 8lK2A

OSC 1,0
0
DC
5,17936
J7936
),60
DC
-60
OSA COOEl-Z

09590
09600
0"610

09160
09\65
091108
09113

09620

DC

I,'

09\1]
09114

09610
09640 elKJ

OS
OSC
22
DSA

I
2,22

09175
091711

091050

5 x
-9160
1

BLK3A

09182

I,'

09182
09183

5 x
JOOOO
1

5 x
-9184
I

096100

DC

0'1170 8lKJA

OSC 1,0
0
5,18000
DC
J8000
)'41
DC
-41
OSA CODE 1-2

0'1l'7

5

0.7\0

DC

0'197
09198

JOOOO
1

0'U20
09730 6lK4

2,22

09199
09200

I
2

0"740

OS
OSC
22
OSA

SlK4A

09206

09750

DC

I, '

092011
09207

09680
096'0
0.700

09184
OOJ18OJ
091U

I, '
1

x

-9208
1

491

11120 FORTRAN 11-0
097110 elK4A

PHASE 2

PAGE

0'1'0

OSC 1,0
0
5,18041
DC
J8041
),41
DC
-41
OSA COOEl-2

09221

0~800

DC

1, '

0'1221
09222

09810
09820 8lK5

OS
OSC
22
OSA

1
2,22

0'1221
OOJ2H

elK5A

09230

I, '

09230
09231

0.770
0.780

09830
09840

DC

09850 elK5A

OSC I,D
0
5,17917
DC
J7917
30019
DC
-19
DSA SUICOS-2

0'18110
09870
0'1880

,

09213
092111

JOOOO

I

5 x
-9232
1

09232
09217
09240
0'1245

5 x
J4100
1

0"90

DC

I, '

09H5
09246

09900
09910 8lKIo

os

1
2,22

092U
09241

BlKU

O.U.

5
-.n6
I

09256

,

09920

OSC
22
DSA

09930

DC

I, '

092'"
09Ut

09940 ILK . .

Q9UI

O. . . D

OSC 1,0
0
5,II01l
DC
J8012
3,019
OC

09970

-19
DSA

09950

SuaCDS-2

0"64

0"'0

DC

,

I, '

09"0
10000 ILK?

OS
OSC:

2,22

OUU

10010

DSA

ILUA

o.n.

10020

DC

,

I, '

o.n·

zz

x

09269

09269
I

27

0'208

09210

O"U

09111

,

J4100

,
,
2

-"'0
I

492

1620 'OI'.'N 11-0
10010 aU1A

OSC

'"'Sf ,

1,0

0
S,11l01
DC
JIlOI
)'019
DC

10040
10050

21

"'GE
OU'O
092"

,

0.2 ••

-19
OSA

10060

,5I11C05-2

09291

OUU
10070

DC

It'

09294

J4100
1

10010
10090 8lKl

OS
OSt
22
DSA

I
2,22

092"
OU9.

I
2

BlKeA

09302

-9304
I

,

10100
10110

DC

I, '

09102
09303

101Z0 8lKBA

OSC

5 X

1,0

09104

DC
5,18120
JIl20
3,0\9
DC
-\9
OSA SU8CDS-2

09309

09J\7

10160

DC

I, '

09317
09311

JHOO
1

10170 CKeow

5,0
DC
-0000
DC
I, '

09323

5

09324

10130
10140
10150

10180
10190
10200
10210
10220
10230
10240
10250
10260
10270
10280
10290
10300
\0310
\0320
10130

a

sssw
F sw
(01
(02
(03

OS
os
os
os
os
STE~PI os
S TE~P2 OS
CAllSW DS
OOSW
os
EXINO os
SUBSW os
REGSW OS
RSW
us
SWAREA os
TF~
DC
J6
10340 SF
DC
L2
10350 CF
DC

09312

00002.16, TFM,

09)25
09326
09327
09321
0'132'1
09330
09331
093)2
09333
09334
09335
09})6
093)7
09))7
09)39

00002,32 •• SF,

09341

OOOOlt.SSSW ••
00001. ,FSW"
00001,.101 "
00001"102,,
00001.,10) ••
00001 "STE"PI"
00001 •• STEMP2"
OOOOI"CAtlSW"

00001"005",,
00001, ,EXIND ••
00001"
I

I

,

.

suesw"

5 X

1
1
I
I
I

1
I
I
I
I
I
I
I

a
2

00002,33 •• CF

09)43

2

00002,26" TF,

09345

2

L3

10360 TF

DC
K6

~!J~

1620 FORTRAN 11-0
10370

A~

10380

~~

DC
JI
DC

00002.11, ,AM.

PHASE 2

PAGE
09347

00002.13,,"M,

09349

00002,lt8. ,H,

09351

29

2

J3

10390 H

DC
~8

10400 Nuoa9 DC
00013,0
- 000000000000
10410 lERO
OS
'·"11
10420 lE~06 os
.... 9
10430 lERD" OS
\0440 LERD5 OS
,--8
10450 BLANK OS
,--8
10460 NI3092 DC
5,00099" •
-0099
DC
10410 SU8
00002,22" sua,
K2
10~80 NIH33 DC
5~OOO95."
-0095
10~qO MOO
DC
2,0
-0
10500 IIPY
OC
00002.23

,--1

K3

10510 BT
10520 ReTY
10530 WATV

DC
K7
DC
L4
OC

10550 ADO
10560 501
10510 RVSN
10580 _"00

DC
-000
DC
KI
DC
J2
DC
JZ5
DC

09376

09380

093'4

0OOO2,39"WATY,

09316

00004,000 •• GlNa,

09390

00002,21, ,ADO.

09)92

00002. 12 .. S.. ,

09)94

3,12'

on.7

3.123

0

a
a
0
0
5

5

09378

0OOO2.34"RCTV,

JU

13

09371

09382

10590 .DO"ES OAt 13. "IUD "OOE'
"IXEO MODE'
10600 DD"ES OAe 22, IIIPItDPU 00 NISTlNG'
III"'OPEII DO NUTlN&'
10610 fUl"rs Oat 211, SY"SIIL TA.U 'Ull'
SYIIIDl UIU PUll'
10UQ QOA
00004,109, ,DIIA,
DC
-109
10UO IIN$5
DC
001102. -0' •• IINSt.
-N
1116.11 Nuon DC
',00100 ...
-0100
10610 NU062 DC
'.00101, ..
-0102
10. .0 HC
DC
00004.101 it'"C.
-101
10670 fIVE
DC
2.'

-s

09353
09357
09)55
093S6
09356
09369

00002,21,,8T.

19
10HO GlNO

093M

2

4

2

0.400
0.403

13

2

09429

2Z X

2

0.47)

20 X

2

095"

O9t1l
11'52'

09l1l

O'UI
O9U.

4

,

,
•
a

U4

1.,0 FOUU"
10UO
lono
10100
10110
10120
10130
10140
10120
10810

UNallE
ST
I
J
,
Q
L~

nAO
.. ~
10'~0 SXF
lono oOIlAl
10 . .0 J40004
10110 Tl
10810 ~OIlOO
10890 810tH
10900 C
10920 CII
10930 8L
10940

~0\300

10950 DE
10~60

~01200

10970 80
10980 8NF
10990

FAe~2

11000 81
11010
11020
11030
11040
11050
11060

GBlSE
LNG
PI
T3

OPl
FPSW

11070 FPSWK
11080 SK IPSW
11090 COIIXSW
11100 ERSWT
11110 '100796
11120 SCIotT

II-D

'NaSI I

os

0000 ••• IT"a ••••
OOOO. . . ST ..
oooo~ •• 1 ••
0000' •• J ••
0000' .. ' ..
00005, ,Q ••
OOOO ... LV ..
00005 •• UAD ••
00005 • • "V ••
5
OS
os
5
5
OS
4
OS
5.1100
DC
-1100
2.lt1
DC
III
2.24
DC
K4
2.1lt
DC
J4
2.41
DC
M7
5. \JOO
DC
-\300
2,46
DC
M6
h1200
DC
-1200
2,43
DC
M3
2,lt4
DC
114
5.02490
DC
-2490
2,46
DC
M6
5
OS
3
OS
OS
II
5
os
2
os
OSC 1.0
0
ose 1,0
0
OSC 100
0
OSC 1,0
0
OSC 100
0
OSA IIOlotCAl

os

O'I'·U
DUtil

OS
OS
OS
OS
OS
os
OS

OS

,,

0"11

"GI!

)0

~

,

ou"
onu

5

5

09U2
0""
onu
onn
onu
09117
091'2
0,,196
09601

5
S
5

5
5

5
4

5

09603
0"05
09601
09609
096\4
09616
09621
0962)
09625
09630
09632
5

09631
09640
09651
09656
09658
09659

)

II
5

2
I

09660
09661
09662
09663
5 x

09668

-0796

09668
09.,3

00005. ,seNT,.

5

495

1620 FOUUN 11-0

PAGe

PHAse 2

DC

·

I,'

09674

DAS
DC

I, '

09617
09678

11150
11160

os
DC

99
I. '

09117
09178

11110
11\80
11190

DORG 10000
SECONDARY LII'IKAGE FOR BlOCK I
DC
2.1
-I
SII
,10
I
8
eooElP
TF
10140002
01
8
eOOBP
8TM RIINS
,COO£4P

11\30
11\31
11140 INPUT

11200
11210
11220
11230
11240
IIHO
11260
11210
11280
11290
11300
11110
11320
11130
11340
11150
IIUO
11310
11380
11390
11400
11"10
11420
11430
11440
11450
11460
IIHO
11480
11490
11500
11510
11520
11530
11540
11550
11,.0
linD
11510

·

COOEI
COOEl
eOOH

"

H

COO£6
COOE7
eooes

TFII
8TII
TFII
8TII
511

8
TFII
aTII
COOEll 8
CODE9

FIION+35
FMO"
FIIOH+35
FIIO"
I
COOE8P
FIION+35
F"OH
SUIC 12

,8lK2
,COOE6
,8LK2

,coon
,2

.10

,ILK2
,COOE9

H

COOEl" TFII
BTII
COOEl5 TOil
8
COOEI7 TFII
8TII
CODESS 8
H
CDSSA8

•

F"ON+35
FMON
CAlLSW
C015P
F"ON+)5
FIIOH
SUICDS

.llKJ
,COOfl4

"

.BLK2
,COOEI7

SUlCAl

H

COllI
FeTl
fCTRT

I
H
TF"
aT"

""

BT"

TFII
EDJ
IT"
CDCALL TFII
8T"

......
CDOEl'

SUIU8
.BlK.
F"ON+35
.fCTI
'''ON
F"ON+35
.llU
,feTaT
F"ON
F"ON+)5
,ILK'
.EOJ
F"ON
.ILK)
F"ON+)5
FiliON
.C:OCALL
THE FOLLOWING CDOES ARITN"I"C O,IUTORS

99

I

10001
10002
10014
10026
10038
10050
10062
loon
10016
10098
10110
10 III
IOU'
10146
10151
10110
10112
1019'
10206
10211
10no
102.l
1025'
102 . .
10271
10290
10301
lOll'
10)26
10UI
10)50
10141
Ion.
101. .
103"
10410
10UI

OSA

""

I

104"
10450

OSA

SL

10."

lOUD
11590

I x
I

10000

...... 5

, •• 1'

31

10."

12
4'
U
H

Il
48

16
Il
16

11
12

...
''I

16
17
16
17

It
49

16
17
.9

..
41

49

41

41
14

11
14

17
16
17

"
"

17

09'47
10434
0)494
12218
OSH6
00000
02359
02)24
02)59
02324

095H
13666
02n9
02)24
14150
00000
02n9
on24
09332
13720
OU59
02324
14102
00000
14116
00000
14174
00000
on"
on"
0ln9
OU24
on"
onl~

on"

OUI'

000-1
00000
0'lS41
00000
J3380
00000
-9152
JOO14
-9152
JOO98
000-2
00000
-9152
JOl46
00000
00000
-9116
JOl94
00001
00000
-9152
J02lt2
00000
OOUOO
00000
00000
00000
00000
-9200
Jone
-9152
JO)62
-9200
JOS"
-9116
JO"O

,•

01414

-95",
-u"

J04tO
1

496

16JO FOURAN II-D
11600
11'10

"II
OU .""5

11620

OSA

I

\lUO
\l . .0

If"

OS.

\lno

PHASE Z

,··1'

GTIIS
I

106"
l0611
1069.

-9 . . '

......

L330I,EQUAL
1I5,I,EXPONENTlAL
SUITRAt T, NUL TI PL V, DIVIDE
10l,I,FAt
,FLAGSW
,I
,·+16

OSA

II 780 •
11190
11800
11810
11820
118 ~o
11840
11850

C
HE
8T
TO

,

-"41

eN
LV,
11660
11610
BE
COOEIC
LV,
CM
11680
11690
COOEID
BE
CODE ADO,
11100
CN
SL,
ll1l0
8~E
~60001
11120
TO
MOO
11130
11140 CODE LA TOM SS2
ATM SRFCT
11150
11160
oSA SR
11710

J0411
5 X
I

O'H'

10672
1047'

SR

OSA

II

LV

,·+16

TEST FOR MIXED MODE
,FXORFL
MOD
e+24

eOMOOE
,eoMOOE-l
,FXORFL
FX
FX IS useD 8Y OPSR ROUT I NE
BTM OPSR
,·+16
OSA LV

11

O"~6

J069~

S X

l069.
10. . .

-9541

10'"
10500
IOst2
10526
105)'

-2H2
09561
IlO36
09561
11511

10568
10560
10572
10586
10596
10612

X

14
46

l.
46

"

41

n

15
l1'

0-133
01200
0-115
01200

02199 0-101
10194 01200
09178 04795
01411 00001
03916 JO.12
5 x
I

10.U
10.11

-2312

10.17

-9552

5

10618
106)0
10642
10654

24
46

1066.
10682

17

27
25

09318
10654
12014
03115

04313
01200
1201l
04373

0)596 J0682
5 x
I
-9567
5 x

10682
10687

OSA

~40001

lI8TO
lIB80

BT.
OSA

pun
OPX

10681
L0688
10104

OSA

~40001

10704
10109

-419)

lI890

10109
101H

-)489
5 x

11900

DSA

11910 COOEIH STM
OSA
lIno

RP~S

10114
10116
10732

,*+16

I

1

•

11860

,·+16

12

'AGE
lOU6
l0612

11

-)489
01012

J0104
1

5 X
5 X

11

-9552
05416
5

J0132
X
I

497

1620 FORTRAN 11-0
11910
L1940
II 950
11960

11970
ll980
11990
12000
12010
12020
120)0
12040
12050
12060
12010
12080
12090

OSA
TOM
TO
ST
8T
B
UORG
N60001 eM
H~E

~60009

~60010

FAC
FSW
FLAGSW
GTCL
GTCL
EXIT

.1
,HORH
,SL
,SR

,II

.-)

SO,

10l,8,FAC

~bOO09

SO
TF
CODE 18
8
OORG . - )
8~F
N60010
BTM GNRP
TOM SS2·
&TM SOFCT
OS4 SL

PAGE

PHASE 2

,SL
,FSW

,-+12
,I

,··16

10132
10131

-9547

10'131

-95H
09)26

101)8
10150
10162
10174
10186
10194
10194
10106
10818
101)0
10838
10818
10850
10862
10814
10890

5 x

15
25
21
21
49
14
41

26
49

...

11
15

11

10890
10895

06140
06140
02948

OOOOJ
04313
02399
02372
00000

02372
10118
02372
109 . .

0-101
01200
02399
00000

047Q5

10862 09326
05940 J0862
01471 00001
0391/> J0890
5 x
I
-2399
5 x

12100

OS4

12110
12120

os,

OPX

10895
1089.
10912

121)0

OSA

TOFAC

10912
10917

-4193
5 x

OSA

1'140001

10917
10922

-)935

12140

BTM

~40001

PUTX

,-+16

MOO
,noaH
12150
TO
12160
8
CODEIA
12170
DOR' '-1
12110
EIITU IF RIGHT SY"BOL IS FAC, THEN IF OPIUTOR IS DIVIDE
12190
SET UP UVERSE OIVIDE
12200 COOEU TO
,FUGSM
"00
LV,
12210
tIl
120,., SUI'UC T
12210
III'
112)0
LV,
12•••• U " "REN
LV,
1Z140
tIl
121 ••• 0111101
INI CDDflA
122'0
LV,
122, ••
122'0
12210
CODElA
OORG .-1
122tO ••••••
EN'U IP OPEU '0. IS AN EOUAL SIGN
12100 CODEIC INP "'OOU
.'IM
lUND
IUIO
,HAGSII
'D
•• M
12120
10
'''111
SAFer
I2UO SLC
121.0
DU U

......
......

uno

""
•""

""

..,.

,-.·1'

10922
10926
10U6
lO. . .
l09 ••
10956
lO.6I
109.0
lO991
1100.

UO"

U02•

11016
11016
11061
1I0to
1I0JZ

UO"

))

11

.
25

2t
1.
H
16
16

-H89
010)2 J09l2
5 x
I

5 x
-HI9
09371
10584

09311
Dt561
10992

0.'"

.,

0.167
lO"4
0"61
10,..

••

114. .
O'IJH

11

0191.

n

16

"
u

0431)
00000

041n
0-120
01200
0-124
0-12l
OUOO
0-122
00000

onu
0.'95

no •• onu

,•

JIO . .
1

U~

1.,0 "arUN 11-0

uno
IU60

uno

UJlO
12)90
12400
12410
12420
12410
12440
12. .0

OSA

,"ASI I

IL

"lit,

-2199

&lOU

-219'

5

......

IN'
TO

"OM
&&,," ' --

ouU

.••....

e..

11111
11110
lH4a

IS
I'

oun

n

onu

,UII
CoeUE
•• FUG
FlOI'L
FIOI'L IS SeT BY SIPCT
CODE IE TO
.. n
.UINO
,10
,0
'IOIIFL
IE
COOUI
OU"UT$ '11 TO 'LDAT 01 FLon TO 'II UISTIUCTIOIiiS
TO
F.
,'IOI'L
,e+16
IT" DPSR
OSA 1"00

111t4
Ill ..
11 lIZ

."
LJ

•

UUI

ouu
0412'

11141

09]34
000-0
01200

HZl6

04173
on96 JlllZ
5 X
I

-9400
5 x

ll1lZ
' Hln

12460

05A

N40001

12470
12410

BT ..

,un

OSA

BTM

ll490

05A

N40001

11204
Ill09

-&980
5 X

ll500

DU

ZERO

11209
11Z1.

-1489
5 X

ll~10 CUOUX
12520
12530
U540
ln,o
12560 •
U'10
12580

,FTSII
80
FCTlE
,R511
8NF N60014
TOM RSII
,0
TOM SSZ
tI
aNC2 •• 48
OUTPUT TllAtE INSTRUCTION
SfM pun
,."16
OSA BT, TRACE, SL

12590
12600
12610 •
126Z0
126]0

Hill
Ill . .
1120.

,"16

lUl4
11216
11ZZ1
I1Z40
11252
1126.
1127'
11292
11292
11297
1U02
lU04
lUll

B
CLUR
UOIG .-]
OUTPUT HFAC 1 NSTRUC TI ON
,e+16
BTO! PUTI
OSA BT,FRFAC,5L

lU12
lU28

LJ

-"89
07032

J1204
5 X
1

4J
44
U
I'

-9153
12064
11348
09317
0'7477
lUll

17

0'7032 JLZ92
5 X
3

4'7

49
17

04745
09337
00000
00001
00200

-9312
-1'740
-239'1
02640

00000

01032 J1328
5 I
3

4'1

-'1382
-3910
-2399
02640

11348
1134.
lU60

15
41

0'7471
11408

00001
00200

11372

17

01032

JU88

11328
llH3
11338

uno

8
CLEAR
12640
DORG '-3
12650
,1
12660 N60014 TOM 552
BNt2 '.48
12670
OUTPUT TUCE I!ISTRUCTION
12680 •
, •• 16
BTM PUTI
12690

"

'AGE

nOI.

00000

41l~

1620 FORTRAN 11-0
12700

050\

12140,
12150

CLUR
a
DORG .-3
OUTPUT FRHt INsrRuCTION
,
BTM pun
OSA OPI

12160

050\

12110
12120

uno·

12710

.. ,.

DSA

PAGE

PHASE 2

lUa.

DPI,TRAtE,SL

11318
11193
Ill9.
114"0
11408
U408

12820
12*'0
12840
12850

DSA
TOM
8 Til
050\

4'1
17

lI"U

12no
12110
12. .0

litOo

OSA
OSa
TO

IN'

SL

11429
1 H14

-3930
5 x

0-3

SRFtT
5R

,-+16

5 I

-2399

11""
11444

49

02"0

11444

11

03976 J1"60
5 x
I

nuo

-2112

N4oo02

U460
llUS

5S2

11461
11 ...

-3"94
07417
07032

,un

,1
,-+16

UPX

11411
114. .

TOFAC

UU,

N4000a

"4. .
UI04

EIINO
SLt

I
SLC-IZ
DOIIG --I

.'101'"
.ISII

U9IO
u.ao, •
INTIIY O_.UTOII IS n-OIilINfUl.
IIU •••
'5L.
llUO COOE 1D tM
N,ooll
1"40
_'UGSN
""0 C00E1G 10
.. '0

aME

"'fIO

11,9'70
U ..o
1"90
, · •. ·UOOO,

1.1110

07032 .11424
5 X
1
-oH93

CLUR

I
. NflOOU,
DOIIG •• ,,'
TOil SU

ilia

""

$II'"
SR

OSA

J

u,

••••• It,

35

3

00000

11"24
"'29

"

17

Will

uUo

lUll
nlll
11UO
UI.,

un.
m:~
a •••

U"'

1nto
11'"

",..

,

00001
.11494
X

I

-4193 ,

5 X

-,.35

5 X

lUQ4

11106

00000

S I

11 ••4

12160

-4193
-3140
-2399
02640

FIFAC

114"

12780
OOIG
12790
12.00 N60013 • TM
05A
12810

5 I

U

••
'I'"

.9

-3494
09))4
11072
11060

.

023"
11 ...
1111'

It

0'7417
01."

U

U

041'7J
091)7
00000
0-101
01200

04'"
00000

nn.

,

I

00001
.I It10
I

-un

5 I

-9'"

5Uo

1620 FOIITU,. 11-0
TO
U020
eM
11030
11040
IE
aT
U050
1)060 N60011 BTM'
DU
11010

.+-2)
nORFl
'.24
EAMOD!

pun
OP.

,FUGSII
,0

PAGE

PHASE
,10

,fIlMDDE-l

, .. 16

11616
11621
11 . .0
aU2

n

1166~

17

1~

11610

000-0
01200
120U
070]2 JI680
,S X
1

11 . .0
11615

-tin
,. 5 X

4'

27

lZOI~

UDIO

DSA
DU'

11615
11690

-)955

"11 90

131'00 eOOfiF 8T~
OSA
13110

11690
11692
11 lOS

-9552
OSH6 JI10S
,5 X
I

IH20

OSA

13130

TOM

IH~O

8

IXI

RPNS
I

'TD~

rOM
arM
OSA

FX
·.)6
UFSrR
UFSrhl
SS2
OPSR
LV

13260

OSA

N40002

13210
132S0

erM
OSA

PUTX
OPX

13290

OSA

N40002

13300

TO

TOM

U

-9541
5

117U
11714
11726

15
~,

-95Jl
09326
02948

OOOOJ
00000

I1n~

lint
11750

,e+16

11

11155
11756
11168
11180
11792
11804
11816
11832

,FXoRFl
,FX
,I
,I
,I
,e+16

0)916 J1150
5 X
I
-2312
5 X

11750
11755

13190
13200
13210
13220
13230
13HO
13HO

13310
13320
13330

,11

,I

OSA

BO

5

117D8
lI7U

FAe

FSII
EXIT
ODRG '-3
IHSO
1]1'60 N60016 eTM SRFer
OSA SR
131'10
11180

,·+16

]6

0~795

11619
0437]
11664

25
43
IS
15
15
U

-9552
D3115 OH13
11804 03115
02263 00001
02264 00001
07411 00001
03596 JI832
I
5 X
-9567
5 X

11832
lIS31

1I85~

-3494
01032 JIU4
5 X
I

lIS5e.
11159

-4193
5 X

11859
lIS64

-3~94

OSA
TOM FXoRFL
eOOEIH
e
OORG . - )

lIS64
I1S66
lI87S
1I8S6

-9552
15, OH13
49 10716

lIS37
118)8

,e+16

,0

U

5 X
00000
00000

5 III

1620 FORTRAN 11-0
13340 N600lS 8NF
8TM
13350
8TM
13360
1}l70
OSA
13380

OSA

13390 N60018 srM
OSA
13400

SR

11926
1193l

SRFer
SL

,FSII

PAGE

I

,·.12
, •• 16

l'19ll
11932
11948

,·.16

U

11
U

OSA

13420
13430
13440
13450

TO
TOM
oSA

FUGSII
SS2
PUTX '
OPX

13460

OSl

ToFAe

11953
11954
11966
11978
11994

,FXoRFL
,I
,e+16

U

25

15
U

13HO
13550
U560 FellE
U5TO
13510
13.90
U600
1)610
U620

uno
U640
13650
UUO
U670

88
DoRG
TDM
TDM
TDM
Tf
SM
ITM
OSA
DU

OU
SM
ITM
ou

-4193
5

11999

-3935
5

1200~

8
CPDElll,
13"80
DoRG . - )
13490
13500 UMoD£ ReTY
IINTY SeNT .. 3
13510
WAlY "ODMES
13520
TDM ERSlir
13530

'-9
FlSlI
SSI
SSl
NIoOOIl
N~OO11

pun
B

"
,I
,0
,1
,I

,Tl

,·.1.

,1 •

,10

-9552
04195 Dun
01411 00001
01032 J19'"
5 X
1

11999
1200~

OSl

-2372
03916 JI948
5 X
1
-2399
5

1199~

13470

12006
12014
1201~

12026
120]1
120.0
12062
120M
120M
12016
12C1I.
12100
12112
1212.

ui40

",

-9n2
11502

00000

34
31
39

4Z

00000
09610
091001
09663
00000

00102
00100
00100
00001
091\00

"n

on".
01U6
onTl

DOOOO
00001
00001
01022
000-1
J2140
I
1

n

I.

16

12
U

0]U9
031)9
01032

5

-6982

N~OOll

121.0
12145

BUNK

12145
12 no

-JU'

12150
12152
121M
12110

-9356
06911
0lU2

ADeOIi
PUTA
SX"AOtOil

,4

"

...

,10

12110

31

11932 09326
05940 J1910
05446 J1926
5 X
I
-9SH
5 X

11948
11951

13410

BT~

PHASE 2
11886
11891
11910
11926

N600lS
GNRP
GrNS

5

x

5 I

12

11

000-4
J2110

,• ,

-"12

Silt

a.,o 'DUUN 11-0

...

'"AI

u . .o
S
'lASE-a.
U ••O
0 ••
anoo
eLUR
uno
DDRG 0-1
13120 ••••••
DUTPU' FUN(" ON LI NUGE DR RIIIDVE PAlEN'HES IS
11 710 eDDUP SI!
H6000Z
.1
.ao
an40
ITH GYHS
, •• t.
uno
DSA H40002

•"" '"

liT"

OSA

1)170
uno
UftO
U800
uno

el!
BL
tM
8H
8
OORG
uno
uno "60020 SM
8TM
U840
118~0
OSA
U860

uno

OSA

11 all
au.,
au . .
luao
aUII

lUll
Uno
aU4'

OU02
n -"Tl
6.
02660
" 06."

12
11

10a ••• FAC

a ..... uITH

STAUMEHT CALL

.1

.10

, •• 16

azua
un,
12264
12216
aUII
IUOO
12101
IlIOI
IU20
UB6

14
67
a4
46
4'

IZ

09~67

If

0541.

12141
UI42
un.

-2199

RMIIS
1

U890

OSA

SR

U900
U'10

8TM
OSA

RMIIS
1

OSA

SR

12J80
12115

-9~4T

U920

SR
H60021
0160022
GHRP
SRFtT
SR

12J85
12386
12191
12610
1Z422
12436
\2450

-2312
02112
12.. 8.
12414
05940
0)916

"990

OSA

SR

14000
14010
14020

TOM
TO
B

5S2
FLAGSII
tOOElA

If

.9

12455
12456
12 . . .
12480

J23n
I

•

-'~47
5 X

If

-lI72
054"

!i x

J2l80
I

5 •
14
46
44
11
If

OOJOI
01Z00
09326
J2"34
J2450
5 X
I

-2312
5 •

12.450
U .. 55
.a
,FlORH

0~4"

5

Iln8
UIU

,F511
,'+12
,'+16

I

X

!i x

ITM
OSA

.101

000-1
J2336

~

U880

U910
tM
139 .. 0
BE
13950
8NF
BTM
U960
13910 N60022 8TM
13980
OSA

0-101
01300
0-15"
OllOO
00000

Ina.
02)99
UIO.
U662

SL

IUU
11164
a2180

x

~

-"41

,'+16

x

-ll"
all. .

12131>
1214a

,'+16

ooo-a
J2246
I

DJ6'"
054. .
-1494

IUsa

JI

06912
00-00
00000

~

1226'

SL
SL.
N60020
SL.
N60020
tOOEl8
0-)
1
RMNS
1

PAGE

,"UI'

-2312

15
U

49

onn

00001
04373
00000

04795
12512

5U3

"20 FORT UN II-I!
OORG .-1
14030
SR
I"Q40 0160021 TF
TFM OP.
14050
14060 ••••••
OUTPUT LIBRARY
14070 COOUA TOM 551
1.. 080
TF
N40002
14090
TF
N~0002-1
TOM 1140002
14100
TF
0140002
1"110
&TM pun
Hllo
Hilo
OSA OP.
14140
1.. 150

OSA
OSA

PHASE ;,

.FACAO
.17
.10
FUNCTION LINKAGE
.1
.TlASE
.SL
.9
.N40002
.11

,·.16

N40002
SR

1.. 160
14110

BTM
OSA

RPNS
1

1""0

OSA

FAt

a~190

14200
14Z10
14220 coDe 38
14230
a"240
142'0
14260 H600U
a4210
14280
a 4290

TOM
I
DORG
eM
BE
tM
IE
tM
BE
ITM
DSA

.-J

SL.
coonc
SL.
CDonc
SL.
CODn
RMNS
I

14100

OSA

SR

a4l10
14120
a4))0

AM
ITM
OSA

I
RIIIIS

FSII

EXIT

I

PAGE
12 ....
1248.
12500

2.

"

12512

15
26

a25 . .
12'"
12160
un2
1258.

26

usn

15
U

u

.11

154 ••• ARITM STAUIltN' CALL

-3~9"

1Z621
12622
a2U6
12642
IU4Z
UU4

U ...

ISJ".fUIICTlDN tau

12'"
a2690
a2102
ana.
12 no

IOf.I.1f

.""

5 X
S x

-2312
U

.a

.ao

aUII
12U'
an ...
12"6

"

..""
..
49

4'
14

n

OSA

$A

16110
au,.
lUfO
aUlD 0
autO COIlEK
14400 coon.

SM

.1

.1

,ao

Ii
11

•uGa' - i Sf.t...,n un 01 '.floN
un

AlltfM

$111

Ifll

1

u"s

..."
.J

-un
O. . . f
0.416

IUtO

000-1

,
••

JU,,,

1

-9541

II

-U1l
"'4f
0".'

II
11

09541
OS41.

CAt.L . . . ., .

11801

.
I

IU. .

.10

OOOOJ
00000

on99 0-15"
12190 01200
OU99 o-an
uno 01200
01399 · 0-101
100. . 01200
OS416 J2nO
5 x
I

,

"".
"".
lut. ••
&ano

J2616
I

•

-.531
0'326
02948

-9541

au. .

a 4140

05"'6
5

-.547
5 X

anl0
IZU'

..•"

00001
02303
02399
DODO'
OJ49M
OJ~'4
OT012 J2SIS
5 X
I
OJ"'3
03494

12~9J

126\6
12621
.1

01418

OJ"'~

-~I9J

Inv.

.·.16

0)940
OOOJ7

02112
04193

12588
12593

12591
12600
a2611>

)9

ooo-a
00000

000-,
J21l.

504

1620 FORTUN 11-0
1.... 10

OSA

1.... 20

OSA

SL

1 .... 30
1 ......0

arM
OSA

liMNS
I

1 .... \0

OSA

LV

1~"60

1 .... 70

8TM
OSA

RIINS
I

1..... 0

OSA

SR
N60026
GNRP
LV.
N60027
SS3
SS2
SRFCT
Sl

OSA

N40001

TF

-95'"5

lUll
12121

..."

12121
1212•
12 ... 0

11

128 .. 5
128 ...
12862

11

, •• 12
IS4.8.AMITH STATEMEIIT CAll
.1
.11

.10

, •• 16

12861
12868
12880
12892
1290"
12916
12928
129.. 0
12956

....17
I"
.. 6
IS
16
17

12961
12962
1297"
12986
12998
1301 ..

-2372
12892 09326
05940 J2891
09567 O-IS"
12928 01200
07478 00001
07471 OOOJl
01976 J2956
5 X
1
-2399
5

129S6
12961
.ADCOW

-95"
OS .. 16 J1862
S X
1
-'ISH
5

12862
12161
.FSW

-2399
0'''16 J2I"O
5 X
1
-95H
5 X

128.. 0
12 ... 5

,·+16

26
11
25

-3"89
01499 06917
Ollt99 OOOJI
OU9S oIt] 73
01032 HOl4
5 X
I

14S80
14590
14600
14610
14610

B TM
OSA

N.. OOOI
N40003
FlAGSW
PUTI
8TM

14630

OSA

N40001

1301"
1]019

-6980
5 X

14640

OSA

N40003

13019
1302 ..

-JU9
5 x

14650

80

AM
TO

14610
14680

8 TM
OSA

CODEll
FPSW
RMNS
I

14690

OSA

Sl

14100

BTM

GTNS

14b60 COOBO 10M

.11

010

.FXORFl
,·.16

1302 ..
13026
13038
13050
13066

.CALLX
.0
• e+16

11

It)

15
11

13066
13071
1]071
13072

, •• 16

.. 0

5 X

121"

8NF
1.... 90
BTII
14500
14510 N60026 eM
I .. S20
BE
10M
14S30
14540 N60027 TFM
BTM
14550
OSA
14560
14570

PAGE

'HASI 2

-lIt99
13278 OUS5
09659 00000
05"16 H066
5 X
1
-9547
S X

-2399
11

05H6

H088

5u5
~

1620 FORTRAN JI-O
141\0

OS6

14120

OSA

SR

14730
14740

8TM
OSA

SRFC T
Sl

14750

OSA

SL

14160
14180
1""'0

BNf
Sf
BTM
USA

.+21t
SL
PUTC
Sl

14800 CODE IE
1.. 810
1.. 820
1.. 830

CM
BE
BTM
OSA

SR.
N60032
RMHS
I

1 .. 8 .. 0

OSA

SR

14770

PHASE 2

PAGE
13088

5 x

130&8
\3093

-9H7
5 x

13093
1309"
13110

,*+16

.FPSW

,·.16

10 ..... RIGIH PAREN

,.+16

COOE30
.-3
AOJUST
CET
MPNS
I

13115
13116
13128
lll .. O
\3156

....3l

13156
13158
13110
13182
11198

...

14910

FAC

OSA

1.. 9Z0
TOM
14930
8
1.. 940
ODRG
1 .. 950 CDOEll TOM
14960
8
ODRG
1""0
14910 CET
TF
1~990
All
15000
8TM
1~010
OSA

15020
15030
15040
IS050

CI4
8E
8
DDRG

1323.
0252

.1

01

.11

un.

.1

,·.16

.Ui

13251
1325.
13210
1327.

.10

••

U290
11291
U2.1
13110
UUl
lUll

UUI
1)145
Ul....
IUS.

In..
lin.

-2H9
13140 09659
02399 00000
08152 J3156
5 I
I

I"

-2399
02372
13212

17

05~1.

0-10"
01200
J3198
5 X
I

-9547
5 x

"9
11
4J
11

-2312
13038

00000

0]550 -'911
13298 09332
H252
05 .. "
5 I
1
-.H1
5

13252
13251

1t~0001

.... 0001
CLUR
CDOUX+12
'-3

1322~

,*+16

.0

It''OOOI.N~OOOI

13212
13212

.AOCOI/
.CAlL$W

FSW
EXIT
.-3
CALU
ClUII
'-3
N.. OOOI
GTHS

17

13198
13203
1320~

-2372
03976 J3110
5 x
1
-2399
5 X

13110
1)115

13203
1~850
8
14860
OORG
14170 N~0032 8TM
14880 COOElX BO
1 .. 890
eTM
1~900
OS6

11

41

-9531
09326
029 ...

OOOOJ
00000

15

0 .. 155
026 .. 0

00000
00000

2.

0' ....
014.9
0' .....

095H
000-1
JUlI
X
2

15
~9

...

1l
11

.••
I"

,

-1419

-J....
014 . .
026 ..0
1123.

0-1l2
01200
00000

SU6

I

<

,••• '.TlM ....

, ai"a,.

"060 ••••••
OUT'UT
1'010 C:OO'"" DSI
15010

OSI

LV

15090
ISIOO

ITII
DSI

GYNS
I

1S1I0

DSA

SII

15110
15UO
1"40
15150
1'''0 COOE4I
1S170

TP

LV
SII.
11600)4

DSA

onll
LV,N40ooi

UIlO
15190

UM
OSA

PUT I
ITM

15200

DSA

N40001

ISZlO

DSA

IUD

CM
IIIE
TD
ITII

11111

....

.,..

,".,aue"•••• IIMaa.,

'IG£
111l1li.

,nlo

5 •

IUIO

-9541
5 •

IU"
U)"
In. .
U401

,0'"

"

U401
U401
U420
11411
11444
11416
lIua

Fl

.'I.AGSII
,'·1.

..,.

U4"
IJ4n
U4J1
11494

,

Z6
14
4'
2S

II

-un

09,.,
OU12
U"4
01115
01596

,

09397
0-101
01200
04195
J)Io'2
I
2

-9561
-1499

II

07012 J3494
5 I
1

U494
114""

-"'0
5 x

U49'

-3"99
5 •

U'04

£lIT

-95"
OSlo. . J340Z
I
5 I
-9,.,
5

U401
""01
.IIYSN
101.1."c:

Ino"
US06
Inl"
13"4
1)526

49

-9nl
029'"

00000

44
H
I'
11

1353.
0'940
01477
03976
5

09326
J3538
00001
Jl566
1

IU20
I
ISno
DOIIG
15240 '160034 INF
15250
BTII
15260 1160035 TOM
ITM
15270
051
15210

.-)

15290

OSA

N4000)

15300
I,no

BTII
OSA

pun
DPI

15120

DSA

TOFAC:

USII
un3

-4193
5 x

1\)30

OSA

N4000!

1359)
US"

-3935
5 x

15340

TOM

FSII

.....",'
,1'511

11600n
GllII'

un.

,I

SS2
SIIFCT
SII

,

,

13550
13'66

"'66
115"

..,'

.1

13511
11512
IU..

.ll

135"
11600

4Z

•

-2H2
, x

H

15

-3499
07032

,

J3581
I

I

-3499
09326

OOOOJ

S(J7

1620 fOIlTUII 11-0
15350
15360
15)70
15310

TO
ITM
OSA
DSA

15390
TD
15400
I
OOIlG
1'410
15420 COOEl, BTM
15430
OSlo

....

FUGS ..
RPNS
I

PHASf I

PAGE

U6U
U624
136.0

.FXOIIH

,

2S

"

-9541
5 x

U6.0
116'"

FAt

FX

11645
1S646
11691

.FIO.FL

COOHA
.-1
GTIIS
I

U666

,··1'

uu.
uua

25
49

-9511
03115
13456

11

0\44. J3682
1
5 x

OSA

15450
15".0
15410
15410
154.0 to",
15500

CII
BNE

IT"

~"NS

15S10

DSA

SL

15\20
15UO
15'''0
l5no

TI'
All

11_12

DSA
""

'TNS
N.OO12

15'"

LY,
coon
a
coon
DORG .-3
DSA

DSA

,nlO

" ,.. CHSP

IfII

,.016

'''''t SIII1 COI.III!
.&

LI . . . . .LOCI •

11136
U141

-9541
5 •

.10

U1I2
Inll

-3546
5 x

.

,,,

26
II
11

1111l
'6

11.00 41
lJlll

IS

'U,6 6'

,6101

I,ll.
16U.

,

-U71
02371
02941
"15S
1Z10a

09547
000-2
J311Z
1

•

0-132
OUOO

00001

00000

16100

,iL11

,I"""

J31l6
1

•

1171'

11'"
Uft.

,6'01

••1.1l
_.'IUIC&I

05416
5

0-124
01200
00000

-2399
03564
03546
0'446
5

,ei";

... ........,..

It..

-9561
09561
10122
1002.

uua

,....
""",

' .....i
,-"
,..... "
""
ota

. . . . . Suec:u " .
11100
.,1110 SUiU. " "

,a

13611
1)611 16
13100 H
1171 a 4'
uno
13720 1J
13136

lI141
Ul.'

,I

SX

.,.

",111

.."

,

"60012

• ''',u
-, HIli

1 HtO SUICOS " "
11660
IS. '0 SUK..""

,,6,I.LlfT "UN

I

CII
15510
SI.
INE lilT
In.o
15,.0
TOIl
coN..,
".00
11610
IIOIIG - J
_ , '6'00
"620
116)0 ••••••
Tla",• .,
DC:
11640

n ...

13611

LV

04373
00000

-9547
5 •

uua
154"0

43

04795 04373
OS416 J]640
5 x
I

'.'16

.."
n

"'It
n
"
'6'N "
n
"'"
"".

16

'Uti

0'6"
00000
onlt
Dna.
OUit
OU,4
on,.
on,.
S

JUoa
00000
-"41
J4126
-9212
J6.,0

-.....

... 114
2

x

50!!

16Z0 fORTRAII 11-0

15140

8n~

1~1'0

AMII5
I,SY

,·.16

OU

15160
15170

BTM
USA

AMIIS
I,SY

,·.16

15780
15790
15800

SM
8TM
OSA

I
GTNS

,I

15810
15820
15810
15840

AM
TOM
8TM
OSA

I,S_

I
SKIPSII
SRFCT
S_,S_

15850
15860
15870

TO
8TM
OSA

UFLAG
CANOS
01,01

15880

TF
AM
TOM
80
B7
SF
eM
8L
8E
AM
TF
BTM
OSA

N40005
N40005
SS2
-+20
-+20
N40005
SR
Ul
U2
I
N40006
CANOS

1'Ja90

15900
15910
15920
I ~'30
15."0
15950
15960
1'970 H3
15980
15990
16000

16010
16030 H2

5"
B7
AM

lb040

TF

16050
16000

8TM
OSA

Ib020

'"'SI Z
1.224
1.229
1.230
142.6

,10

, •• 16

01
01
, •• 16

,10

,F_OAn

0150

,10

,8

,6
,SU83
,·+16

010

,6

,10

,3
,suez
, -+16

,10

D~rSY

U4
I
N40006
CANOS
04,SY

14246
14251
14252
1.21>4
14280
14280
14285
14286
1.2'18
14310
14326
14326
143)1
14332
14344
14360

,-+16

,AOCDW
,12
,I
,UFLAG

PAGE
1.202
IUOT
1.201
14224

14360
14365
14366
14378
14390
1440Z
14414
14422
14434
144"6
14458
14470
14482
14494
14510
14510
14515
1451.
14528
14536
145U
14560
14516

••

-9Hl

11

11

Il
17

11

"

11

25

17

26
II
15
43
49
32
14

H
46

11
26
17

lZ
49
II
26
\1

-un

,

J.2Z.
2

0'.16

X

-9'41
-2)h
0'.16 J4246
S X
2
-95.7
-2384
0'1547
05 ••6
5
-'1H7
-2)17
095.7
09661
03976
~

000-1
J4280
2

-

000-1
00001
J4326
X
2

-2377
-2377
04735 04373
08846 J4360
5 X
2
-6'187
-69'12
03509
03509
07417
1442Z
14434
01509
02372
14602
14536
09547
03514
08846

06977
000J2
00001
04735

00000
0-150
01300
01200
000-6
03800
J4'I0
5 X
2

-7017
-2)84
09H7 000-6
14660
09547 000-3
03514 03790
08846 J4516
5 X
2
-7017
-2384

14576
14581

509
&
1620 FORTRAN 11-0
16070
16080
16090 XXI
IblOO

IbllO

16120
Ib130

16140 XX4
16150

SM
87
8TM
OSA

TF
eM
8E
8TM
OSA

,3
XX4
CANOS
04.SY

,·.16

,-.16
8TM,NIoOO06.N40005

14616
14681
14686
14688
14104

01
CDS IF.

,SU81
,I

pun

BTM
OSA

PUTC
S'

••• 16

16180
16190

BTM
OSA

PUTO
04

,·.16

16200
16210
16220
16230

8NF
SF
8TM
OSA

e.2"
01

, 101

PUTO
01

,·.16

16240
16250

8TM
OSA

PUTC
01

, •• 16

SA
COSSSI
CDSSS2
UFSTA+4
CANOS
02.0J

,150

16260
C"
16270
eL
16210
BE
16290 COSSS3 TOM
16300
8TM
16310
OSA

16320
16130

87"
OSA

16)40
16350
16360
16310

87"
OSA

xn

PAGE
145&2
14594
14602
14618
14618
1462)
H.24
11'636
14648
14660
H616

~40006

Ibl70

16160

PHASE
,10

PUTO
02
PUTC
DJ

,I

.·.1'

14704
14106
14722
14722
14124
14736
14141
14164
14764
14166
14712

,8

14182
1471"
14796
1"10'
1•• 20
1.832

HI..

IZ
49

17

1.'5)

,·.1'

1""0

, •• 16

1 ....0
14906

I.".
14870

lun

CANOS
03,OK

106

17

17

17

44

12
11

\1

..

03514 03780
06987 -0001
15430 01200
07032 JU16
5 X
3
-6980
-1514
-3509
08152 J4704
5 X
I
-2311
01236

-1017
14748
06987
0lU6
5
-6987
01152
5

\1

11

-6991
-1002
0lU6

15

\1

J4722
I

5 x

-6992
02372
1..976
14956
02261
0 ....6

I"
41

I .....

1490.
I"U

J4618
2

x

-2~84

,

,

09321
00000
J41.4
I

-

J4182
I

x

0-150
OUOO
01200
00001
J ••••
x
2

X

JU7U
1

-6991
01152 JUII
5 X
1

-1002

lUll

BT"

OSA

45

000-3

-7017
2.
I.

IU48

.··16

09547
146.0
06846
5

U

,

0 ....

X

J.'06
2

-JOOl

-lon

$JII

IUD 'IIUII .. 11-0
161.11
16190

IT"

'UTII
OJ

16.00
1 •• 10

IT"

PUTt
OK

Dsa

osa

,•• '6
,

""'S! ,

.. ,.

IT
"''20
lauo CDSSn TOIl
16•• 0
n
. ..sO COSSSI TO"
16UO tDstv IT"
16470
OSA

tD51V
UFSTIt+J
UF STIt+ 2
PUTR"
ZR"

.1

16410
1•• 90
16'00
16510
16520

SKIPS"
OZ'
I
RMIIS
I.ST

.0
.1111
.1

I""
IUJD
1••U
1••••
1••••
I""
I....
1."a
1. . . .

.1

us

, •• 16

n

..,,
1l

n

It
II

1500.
1500.

16510
165.0
16UO QZP
16560

16570
1"10
11>"0
11>1>00
11>610
11>620
161»0

TO"
INF
S"

IT"

OSA

•

161>40
161>50

8T"
OSA

161>.0
11>670
161>80 tOUT
11>690
16700
11>710
11>720

BTM
87
8NF
BTM

l6no

16740

, •• 16

t014•
OORG '-1
ITM GTIIS
OSA I.ST

SM
CM
BNE
TO
TOM
BTM
OSA

1500.
.10

I
.1
ST
.UI
COSlT
RFLAG
,"FLAG
RSW
,I
PUTX
,·+16
TF .FAelD,NUO"

• 10
•1

.11

,-+12

GNRP
EXIT
e+24
GNRP
•• 32
80
TF" OPX
·.20
8
OORG '-3
TF" OPX.

.FSN

,-+12
.CALLS"
,27

,17

15011
1509J
150. .
15106
15111
151)0
151.2

1515.
15170
15170
15175
15110
15182
15191

, •• 16

RPNS
I.FAC

15011
15010
15042
150n
1505.
15061
150. .
15072
Ilion
150••

,•• '6

,10
,10

U

"GE
14.11
lU"

lSI"
1112·01
1520.
15216
1522•
15216
152'18
15260
15272
15280
15280

15
'4

12

11

..

J4.28
5 X
I

O'U'

-TOOl
0.152 J . . .6
5 X
I
-lOU
1. . . .
OZU6 00001
1"'0
OU65 00001
0.156 J5004
5 X
1
JU21
09661
nOll
09547
05416

,

00000
0.,21
000-1
J'051
x
2

-9547
-9541
11781

00000

17

on46 J'OIl
5 X
2

..

-9547
-9541
09547

12

41
25
15

17

17

.
11
4.

on,}

000-1
0-13}
01200
0471'
OOOOJ
J'170

1522.
04125
093]7
07012
5

x

-U4'
-3'40
-9369
Un71>
5

x

-9547
-9511
05.40
029.1
15248
0"40
15210

}

J5191
2

J5211>

49

152.2

09321>
JSZ41
09332
000K7
00000

16

OU9)

000J7

17

H

16

Dun

511

1620 FORTRAN 11-0
16750
11>"0

8TM
OSA

PAGE

'HASE 2

puu

,.+16
OPX.TOFAC,NU09Z

15292
15101

17

15301
153U
16770
16180

BTM
OSA

TOM
16790
TO
IUOO
16801
80
B7
16802
8TM
16803
SM
16804
SF
16805
B7
11>110
16820 COS1" BNF
B7
16830
16840 COS1Z 80
TF
16850
B7
1."0
TF
16110
16910 costS TOM
M
IUZO
SF
16930
TF
169.0
A
11>"0
16960
80
16970
B7
11>910
INF
16990
SF
17000
SF
TOM
17010
170Z0
BT"
110JO
OSA

17040
17050
110.0

17010
17010

RPNS
I,FAC

,-+16

FSII
FLAGSW
-+20
EXIT
GNRr
GlUE
GlUE

,I
,RXFLAG
,tALLSN

EXIT

COSU

XX.

e+32
L
COSts
L
S52
04
95
O.
04

·.20

..,.

,.+12
,I

,5.
,UFLAG
,FP2

,I
,0
.L

,II

I5U6
153'1
15HZ

1515.

,.

,10

151. .
15171
11316
15391
15.10
15UZ

nuo

15 • . ,
15450
1546Z
111414
15412
1549.
15'0'
1551.

,99

I5tlO
1515.

,n
.101

L
04

Sst

15320
15131>

... FLAG

·.44

,un

una

,I

,·+1t

In42
155. .
1557'
lU . .
In. .
'5610

IIUI

M".DI,L

1,..1

TO"
ITM

S5Z
PUTI

11611
11. . .
I,.. .
15610
I,.u

DSA

, ... lIlJ091.D.

IT"

DSA

,1

,'."

.....

'UTI
Sf,NI.un....,,..

"'"

•

tosty·"

1!
25
U

4'
17

12
32

••...
49
U
Z6
49
Z6
15
2J
32
U

..
Zl

U

U

11

l!J

17

IS
17

II• •

11108

lift'

In ,

47

J5308
x
3

-4193
-3935
-9369
05'\76 JS)36
5 X
2
-9547
-9531
09326
OH95
15316
OZ'"
05.40
09631
09UP
02. .8
15450
14660
15412
070Z5
"494
070Z5
07417
07017
00095
01017
07017
IU14
15610
15610
07025
07017
074"
01032
5

OOOOJ
04735
09332
J5398
000-1
00000
02377
04135
0229.
02252
00000
07025
00000
00099
02377
04135
0.327
00000
00000
00001
J5631
x
3

-'349
-'992
-1025
07477 00001
070J2 J5.11
5 X
3

-uu

116"
1,.,.
I ••••

IIl08
lnll

11090

17

07032
5

U

-'''9
-7017
01011

,
-u.,
-"

.. .

JU06
X
J

-9176

11008

00000

512

"20 FORTR'" 11-0

PAGE

PHASE 2

17100
17110 zaM

DORIO .-)
PC
2.'

15ll'
15727

17120
17130 XOOX

DORIO 16002
OSC
14.0171001)'02400
o 17100 U602400
34
XOOX.701
XOOX.702
11
TRA

16002
1600Z

17140 UYX
17150
17200
17210

TCO

11220
17230
11240

OORG 10000
SECOIliDARY L "lUGE FOR BLOCK 2
DC
2.2
-2
TFM FMOIII+35
.ILK1
BTM FMON
.COOH
TFM FMOIII.U
.BLK1
8TM FMOIII
,CO~E)
TFM FMON.35
.UK1
8TM FMON
,COOH
8TM RMIliS
.COOE"

17250
17260
17210
17280
11290
11300
11310
17320
11330
11HO
11350
11360
11]10
I13BO
17390
11400
11410
11420
11430
11HO
11450
11460
11410
11480
11490
11500
11510
11520

11530
11540
11550
11560
11510
11~80

l7SQO

11600
11610
11620

lODE I
XOOE)
IOOH
IOOE6

16016
"OZI
16040
160n
16016

UU

IOOE8
IOOE9
IOOEI2
laDE I"
IOOEI5
laDE 11

CM
B
TFM
BTM
AM
B
TFM
BTM
TFM
8TM
TFM
BTM
8TM

RY
COOE7P
FMON+35
FMON
I
COOE9P
FMON+35
FMOIII
FMON.n
FMON
FMON-35
FMON
RMNS

.UO
.BLKI
.COOES
.1

)6
49

10002

16

10026
10038
10050
10062
10074
10086
100'18
10110
10122
IOU4
10146
1015.
10110
10182
10194
10206
10218
10230
10242
10254
10266
10278
10290
10302
10314
10326
10338
10350
10362
10374
10386
10396
10410
10422

16

looa

.8

,10

.BLKI
.COOE12
,BLK)
,CODE!4
.BLKI
,COOEI5
.COl1P

FMON_)5
FMON
FMON_35
FMOIII
FMON_35
FMON
FMON-35
FMON
N60182
FC TR TP
FMON.35
FMON
FMON+35
FMON
OUTPUTS CODING
COOE6P OSA I

11

16002
16002
00000
00000

00701
00702
00500
00000

02359
02324
02359
02324
02359
02124
05416
00000
09577
11214
02359
02324
09547
12190
02359
023H
02359
02324
02359
02324
05416
00000
02359
02324
02359
02324
02359
02324
02359
02324
14506
14H4
02359
02324
02n9
02324

-9121
JOO02
-9128
J0026
-9128
J0050
J043'
00000
0-130
00000
-9128
J0122
000-1
00000
-912B
J0110
-9116
JOI9"
-9128
J0218
J2868
00000
-9128
J0266
-9128
J0290
-9128
J031'
-9200
J0338
04115
00000
-9200
J0386
-9116
JOHO

10001

H

IOOESS TFM
8TM
IOSSA8 TFM
BTM
TFM
XOl28
BTM
TFM
ICTI
8TM
xC TR T BO
6
XOJ
TFM
BTM
XOCALL TFM
6TM

H
34

10000

H

IOOE1

48

.aLKI
,COOESS
,8LK1
.CDSSAB
.BLKI
.COllB
.IlK4
,Fcn
.SU8PSW
,BLK4
.EOJ
,BLU
,COCALL
FOR GO TO, STOP, PAUSE. AIliO END

\1

17
16

17
11

4'
14
49

"

17
II
49
16

11
16

17
16
17
17
48
16
11
16
17
16
11
16
17
H
49
16

17
16
11

10431

5 I
-9541

10438

513

In

1620 FORTRAN 11-0
11630

OSA

LV

11640
11650

8TM
oSA

RMNS
1

11660

OSA

SR

11610
11680

8TM
OSA

R"NS

PHASE 2

PAGE
10443
1044)
10444
10460

,·.16

17

10460
10465
10465
10466
10482

,-.16

I,SX

-9561
05416 J0460
5 I
1
-9547
5 I

11

-2372
05416 J0482
5 x
2
-9541
-2311

10482
10481

11690
11100
11110
11120
11130
11140

CM
BNE
TO"
8TM
OSA

11150

OSA

SK

11160
11110
11180
111'10

TOM
8NF
8TM
OSA

SKIPSW
COOE68
INSeT
SR,AOCOW

,0
,RIISN
, •• 16

10545
10546
10nl
10570
10516

11800 COOE68 TOM
11810
81M
17820
OU

SSI
PUTX
B

.1

10586
10591
10592
10606
10620

11830

OSA

SK

10620
10625

-6912
5

11840

OSA

IUNK

10625
10630

JOI'"
5 x

COOE GO TO
LV,
105,.,'0 TO
N60041
SKIPSW
,I
SRFCT
,.+16
SR

11150
SM
AOCOII
11860 COoUA 8
eLUR
11110
DORIO ·-3
11110 N60041 CM
LV,
11190
IE
CLEAR
u,
11900
eM
l79111
IIiE N6004J
11'120
rFM J
119]0
8
11160044
11940
oORG . - ]
11950 11160043 T'M J
11960
TFM •• 64

10481
10500
10512
10524
10540

14
41
15

11

10540
10545

,·.16

,4
121, I. COIITI "UE
132 •• ,$1111 tOLD"
,0
.0

• .1-'

,10

10610
106U
1064.

,oua

10n2
10664
10616
10. . .
10100
10712
10120
10120
10n2

49

5 x

09561 0-105
10652 01200
09661 00001
03916 J0540
5 X
I
-2372
5 x

15
44

17

15

17

IZ
4'

...
14

JOl49
09661 00000
10592 04785
11134 J0586
5 x
2
-2372
-6911
07416
01032
5

-9nO
06911
01640

00001
J0620
1

x

000-4
00000

14
47

Dun

16

09552
10150

0-121
01200
0-132
OUOO
-0000
00000

16

09552
10196

-95"

...

0.'"
02660

10720

-0000

514

.."

" , . 'DlTlIII .....

,n••
lY'"

".
DSI

...... ,

,

_MI
1,51

.. ...,.••

,,,

U" ..

'AGE

lY

-II"
,0,.. ,. -un
ont'
••

so

JO,. .
2

"lH
,79"
a100.
1I.ao
aID20
"OJO
110.0
lIotO
"0.0 5K
11070 ••••••
110.0 N.004.
11090
lIaoo
11UO

CII

u.

••TO

N. . . . .-&2
J-.

All
CII
.L
I'

'-11
N._1.2.
J-.

OS

CII
INI
ITII
DSA

.-.

n2,',1I1I1 CIMoDII

.SI

.a

.ao

• J.I

,

o-,u

IOJ"

. ,OJ" -"51

a07tO
10102
ao" •
10'"
10."

I".'

" ,.USE
COD.
LV.
U •••• 'AUSE
N. . . .'
PUTX
H

'0'"

.."

10150
10 •••
lOll.
10'"

allZO

DSA

J

10 . . .
1019'

18130

DSA

IUNK

1019'
10'00
10900
10902
10910

CLUI
lU40
B
DIIAG .-S
11&50
'1'60 ••••••
tODE STO'
UI ••• STOP
IIlYD N600'5 CII
LV.
11110
8NE N60. .6
pun
111.0
,*+16
11200
DSA ItCfY

10910
10922
10'"
10. .0

""

0. . . .

OUOO
Dun
000-1

.-II

101. .
a OJ..
0. . . .
0

OllOO
00000

l4
4l
lY

0'''1
10tlO
010U

0-12'
01200
JO. .O
X
1

IDiI'

2'
n

.
a.
47

II

,

-9151
5 X
-9"2
5 X
-9"6
026.0

00000

09S.1 0-U5
no" 01200
010lZ JOISO
5 X
1

11210

DSA

BUNK

10no
10.55

-",., X

18220

DSA

NU062

a09U
10 . .0

-9"6
5 X

18230
18240

BTM
DSA

PUTX

18250

DSA

ASTOP

10'"
lD9I3

-93 . .
5 X

18260

OSA

Nl106)

ID9U
109.1

-S925
, X

11270
18280

BTM
DSA

PUTX
H

10911
10'"
U006

-9522
07032 JI006
5 X
1

J

U006
nOli

11290

DSA

10. .0
10962
10"8

"."

IIATY

,e+'6

"
"

-n27
01032

,

JO."
X
1

-9351
5 x

515

1620 FOUUN II-D

PAGE

'HASE 2

lUOO

DSA

IUNK

18310

11120

BTIII
DSA

8

110"
11011
11014

DSA

NOO"6

11014
11019

-6912

linD

-9'"

IUIIK

110)9
I1D. .
110. .
11 . . .
110Sl
11066

-9356

12

••

026. .

11066
11012

17

01032

181.0

DSA

PUTX

,*+16

ADtOIl
11150
SM
In60
tUAI!
DORG .-,
uno
llJIO ••••••
tODE END
In90 N60046 BTIII PUTX
11400
DSA H

•

18410

OSA

••

• 10

,·+16

DSA

PUTX
B

uuo

DSA

11001'6

11460

OSA

lUll«

11092
UO"
uno

.'."

'""
lllYO

"A..
"

all60 Illsn. DS

III. .
SP
.86. . SADCOII OS

, ....0
I""
....0
' . . .0 ••••••

nuo

EOJ
INsnA
INsn-l
INsnl

IUIY-I

.-

,.....,

.IIISIT-I
.&

.11
• 10
.u

.lD

SI"D-I

J1012
1

x

••,'ADCDII

snAD

.-

Sn..
OUf""

"

, x

17

••
I:DOI"

.&0

••••
••

.
U

aUM

II
H

11 ...

....

-

5 x

-9116
10.16
ua9J
1un

z.
11
z. n.n

at

naif
u".
uno

-'156
01032 JIIIO
5 x
-'912
I x

nua

nl.

SAllCOII

.'IAllCOII

UIIO
11121
u n•
11 ...
11 all
uno
Ul9J

.4

SITAD

TOIl 1"$11
I
IIISIf-1
DOIG"-I
-

000-4
00000

06977

5

nno
UIII

UUS

11"0

, x

-9356
5 X

ITII

11M.

x

11011
11092

IIUD
11. .0

IF
All
TP
All
fF
OS
TIIII

5

-9351

BLANK

•

-9356
07032 JIO,.
5 X
1

11082
110"

DSA

U470
U4IO INSET
184.0
11100
IlIlO
1I1Z0
11110 INS,,,

11

ILAIIK

18420

n

at

II

aun
01.70
0
0""

II...

IS

ODODO
lUlL
000-1
lUlL
ooo-a
00000

lUll

000....
00000

0

nlll

000-6

0"'"
O"'J
0

00000

alllL

ODODO

.

n,..
,,'
",n ••
1U"

Il

-9552
5 X

lion
11016

aUII

00000

5U

1620 'OUUN II-D
1"~0

COOUP IE
1. . . 0
TF
11610
11 . .0
ITOI
uno
OSA

'"

11100
18110
18720

OSA

'WASI Z

CODUI

PAGE
11n~

~.

Z'

N~OOOI

lU. .
lU9I
11)10
11126

S~

11)26
11Ul

N~OOOI

,I
,I
,e+16

N~OOOI

GTNS

CM
8E

,.

lU)1
lun

11
U

01200
0 ' ' ' ' 0.n7
000-1
0)'"
O,U. JUZ6
x
1

•

,

-3419

..

-U99
OU99
I1UO
0)916
5

18HO

SL
. N600".
SRFCT
OSA SL

lanD

OSA

N40003

18160
18110
18780

TOOl
8 TM
OSA

pun
OPX

11311
IU18
11390
11"06

18190

OSA

TOFAC

11406
11411

-"193
5

18~00

OSA

N"0003

11411
11416

-3935
, x

uno

0101

,10

".

,·+16

lU"~

113"
IU1Z

I~

IT

,I

,··16

U

11

-]499
01"71 00001
01032 JI"06
5 x
1

-3""

18810
TO
18820 N600"S BNC3
188)0
BTM
OSA
188"0

8TM

11"16
11"18
11410
11 .... 2
llHB

18850

OSA

TRACE

11458
11"61

-6980
5

18860

OSA

FACAO

11"63
11"68

-3HO
5

18810
18880
18890
18900
18910
18920
189]0

80
B
OORG
AM
BT ..
OSA

FLAGSW
-+40

,FXORFL

pun

, •• 16

2.

41
11

11<\68

lB9"0
18950
IB960

TOM
BT ..
8TM

OUTPUT Flxeo VARIAILE IF TEST
,FLAGSW
*+20
N600,,9
·-3
,2
I
,10
CM,FACAD,lERO"

IIHO
llU2
11"90
llHO
11502
11518

SKIPSW
GSBI
PUTX

11518
11523
11528
IU30
115"2
1155"

pun

,."16

,I
, •• 12

,··16

0-101
01200
JU12
x
I

-2399
5

1131Z
11311

552

'2

UO.,

010195
0"313
11"10 00300
070ll JI"S8
5 X
I

-39"0
49

11490
11812

11
11

095H 000-2
01032 J1518
]
5 X

H

U
11

11

0"195
00000

-9601
-)9"0
-9355
09661
11698
07032

00001
J15' ..
JU10

517

1620 F ORrRAN 11-0
18no

18980
18990
19000

OSA

BTM
BTM
DSA

19010 COOElC 8TM
19020
8TM
19030
OSA

190"0
19050
19060
19070 10581
19080
19090

TOM
5M
B
AM
8TM
OSA

PHASE 2

PAGE

8L.N"000).N01300

11510

,e.12
10581
pur X
,-+16
BE. N40003. N01200

11510
11575
11580
115&2
1159..
11610

GSBI
PUTI

11610
11615
11620
11622
1163"
11650

,-+ 12
,·+16

B,NItOOO3.ZER05

SKIPSW
AOCOW
CLEAR
1
GTNS

11650
11655
11660
11662

,0

,"

,10

,I
,.+16

,10

1161~

[,SK

11686
11698
11110
11126
11126
11131
11132
111".

19100
19110

8TM
OSA

SRFCT
SK,N"0003

,.+16

19120
19130
191"0

BNF
aTII
OSA

-.3'"
INSET

,RMSW
, •• 16

19150
19160
19170 N600 .. 9
19180
19190
19200
19210
19220
19230
19240

TOM
8
TF
AM
TF
S
AM
TOM
ITII
DSA

551
.t
GSBI-I
N.. OOOI
,ADCOII
N.. OOOI
,20
N4000le
,,.CAD
N.. OOOle
,"2
,I
N"0004
551
.1
PUll
,··16
IO,N"000I,N40004

IT

11

11

11

15

12
49

U
IT

11

111~'

191'0
19260
19210

AM
TDM

nil

lin"

11766
11112

,

I
SKIPSII
GSII

,J

,.·.2

,I

,.
,1O
,1O

,10

11712
11711
111.. .
11.00
11112
IU24
I1n6
11.'"
11 . .0
IU72
11 . ."
11.00
11900
11.0'
11910
11'"
119"
11."

-9609
-3499
-961"
11698
01032
~

11151

SK,AOCOW

53

5 X

,,~

IT

-9616
-3499
-9621
11698
01032

,

-6982
-3"99
-9356
09661
06911
026"0
09541
05 ... 6

,

JU94
J1610
X
3

J 163"
JI650
X
3

00000
000-"
00000
000-1
J1726
X
Z

-95"1
JOB"9
0)916 Jl1,,8
5 X
2
JOB .. 9
-J"99
111 ••
Ill'"

S I

..."
2.

11
26
U
It

II
1l

II

"

IT

04115
JlTIZ
2

JO''''
-6911
01~16

unp

0)"19
OJ".9
ono"
ono ..
on04
07""
07032

00001
00000
06911
OOOKO
039"0
02291
000-1
00001
J1900

S x

-9623
-)419
-JlO"
0''''7
0'''1
11 . . .

)

000-)
00001
J194'

518

&

'620 'OU"" II-D
ITII
OSA

'9210
'91.0

19100
'UIO
19120
19310

511
ITII
ITII
DSA

19140
SM
19150
B
19160
DOlt
I.no coonl AM
BTM
19110
\9]90
OSA

19400
19410
19420
194]0
19HO
19450
19"'0

TF
SF
TOM
All
BYM
8TII
OSA

,,"AI. ,

1194.

'UTI!
,"'6
.,N4000J,'UOI

,4
ADCOW
, •• 12
GSt!
PUT.
INF,N4000)'FACII2

11"_

,10

I
CODElt

,]

11000
11016

,10

.-]

I
GTNS
I,N40001

INOIEC-2
INDREC-4
SKIHW
I
GSBI

pun

,3

,10

.·.16

,N40001
,I
,I

,"12

,10

••• 16
II ,N"OOOI ,I NOUC

19HO
a
CODElC
OORG .-3
19"10
6.0
19"90 I NOREC DC
-00000
19500 CGCOW OS
5
\9510
OUTPUT COMPUTED GO TO
19520 COOE9P BTM GTOiS
f·+U~
195]0
OSA I

......

195"0

OSA

SL

19550
19560
1'1510
1'I5BO
19590
\9600

eM
aNE
TF
AM
aTM
OSA

SL,
eODE9
N4000"
N40004
GTNS
N40004

196\0

OSA

IIU4
119. .
11974
U"6

UU.

t··"

12016
12021
12026
12021
12040
12041
12041
12060
12016

11

Jl964
5 i
1

-6'12
-1499
-9)U

U

II
U

...n

11 . . .
010U
5

000-4
J2000
J2016

•

]

-'615
12
49

Il

11

-]499
-9610
09541
IIU2

000-]
00000

09541
05446
5

000-]
J2016
2

12016
12011
1201Z 2.
1209. 12
12106
12111 .ll
UUO II
12142 If
12151

-9541
-]489
IlUI
U\19
09. . 1
U9541

IlUI
12161
Ill . .
12110
12111
12\11

-9632
-3""
J2113
11622

"

"'I

•

03489
00000
00001
000-1
J2142
J2151
3

11691
01032
5

•

00000

6

12111
12190
1220.

11

12211
12212

104,I,RiGHT PAREN
,I
,10

,e.16

11224
12236
12'4.
!lUD
12216

'"

H
26
\I

11

J2206

•

I

-2399
02399
101"6
03504
0)504
05H6
5

0-104
01200
09~41

000-1
J2276

•

I

-3504
5 •

1227'
12281

SL

05446
5

-9541
5 •

12206
12211

"

54

'AGI!
01012

51 9

IUD FORTRAN II-D
1'1620
1'16)0
19640
19650
19660

TOM
TOM
BTM
OSA
OSA

551
SKIPSW
SRFe T
SL

PHASE 2

PAGE
12281
12282
122114
U]O'
12322

,I
01
, •• 16

15
15

n

12121

PUT.

5

00001
00001
J'322
1

•

-)504
010]2
5

19670
19680

BTII
OSA

101M

12)21
12321
12n4

19690

OSA

N"0004

123"4
lU49

-9349
5 •

19700

OSA

MNS5

In",
un.

-3504
5 •

19110
19TZO
1'1730
19740
19150

TOM
TF
AM

552
N40001
N40001
PUT.
511

BTM

OSA

,··16

11

Ill54

"

,ADtOW
,18

12356

In..
,10

f··16

12J10
lU.Z

IUD.

15
26
U
IT

OSA

NU091

124LJ

19710

OSA

N40001

124&1

19710
19190
19100
19110

TFII
TDM
I TIl

SSl

,)
,I

OSA

GTMS
1

,··16

19110

OSA

SK

19no
19'''0

ITM
DSA

I

S.fCT
SK

Inn

,a

.

DSA

. . . .0
19170
1'''0

IMF

CODU.

fOM
TF

SKlftSIl

-9547

11465
lit...

lU.,

5 •

n

Cleft

ltl90
lMOO

IfM

,"

"COlI

1"10

DSI

'''.CKGII

Illsn

.0

12."
II....

"oeow

lnoo
Illlit

••

un6

II

...•• "

,10

IIU_

lUtZ

JO.",

""., •

J24az

I

JIM.
I

124'"

,.11111

-9369
5 •

12 . .0

11

""65

1140004

•

12+60

is

114.,

"'10

00001
06977
000J8
J2401
1

-3419
O'5H 0-003
01"11 00001
05441> J2460
5 K
1

1241.
124Z0
1I4)J

""...

,·.16

-9517
07477
0)489
0]419
01032
5

J2344
1

•

-9]'14
5 •

1240.
197'0

55

-2)99
5 •

12322
N4D004

-2)99
014"
0'1661
0]916

11

U

n

-1504
1M661
11111
UII.
121 . .
llU4

00000
04115
0'911
000-5
JUU

,x

2

5211

16ao .oarllAN 11-0

PAGE

'"UI a
una.

1.920 cooe91 rllll
199)0
nil
OSA
1.'.0

lUI?

su

,I
,"16

'UU

•

12111
uno
121. .

II

u

JOI ••
JUl.
01Ul
010sa

00001
JUl.
I

,x

19950

OSA

IIIJO.Z

IU. .
121.1

-6"Z
5 x

12591

19960

OSA

11.000.

121..

-9)69
, x

19910
19910
19'.0

TFIt
8TM
DSA

I
GrllS
I

20000

DU

n

20010
CM
20020
BE
200)0 COOE9A BTII
20040
OSA

SL.
CLUR
GTNS
I,SL

20050
20060
20010
20080
200.0

SL
1160012
SKIPS ..
SRFCT
SL.N40001

CM
BE
TDM
BTM
OSA

20100
20110
20120
20130
20140
20150

TDM
BIIF
IF

SM
BTM
OS.

20160 CODE9C BTM
20170
DSA

••

,I,

,··16

104.'.RIG"r UREII
... 1.

,I

.104
.1
,-+16

121. .
IZ"'I
IUIO
U6Z6

.0
,RII511
• AOCOII

PUTC
N40001

,e+l.

.10

, •• 16

.

......

0-004
JZ.Z6
I

-.5U
5

x

IUJl
IU32
126"
12656
12612

-n99
on99 0-10"
026"0 OUOO
05446 J2612
5 X
Z

12no
un5
un6
12741
12160
IZll2
12784
12800
12800
12.05
12106
IZ8ZZ

AM
,I
20180
I
.10
20190
B
CODE'IA
OORG - )
20200
20210 N60072 BTM ADJUST
,ADCOII
B
CLEAR
20220
20230
DORG --3
OUTPUTS FORMAT SPECIFIf;'TfOIlS
20240

05 •••

12626
IZUI

un.

.2

jI.,u

11

X

uno

SKIPSII
COOE9C
CGCOII
CGCOII
INSET
SL.CGCOII

-no.
16

5

12612
12617
1261.
12690
U70Z

12822
1282.
12n6
1284•
12 ••"
12156
12.64

5'

I"

46

11

-95U
I"
46
IS
II

-23'.
on99
un4
09661
03976
5

0-104
01200
00001
JI730
x
I

-n ••
IS
4"
Z6
12
Il

Il

-3"89
09661 00000
12106 04785
1218. 06977
1218. 000-2
II Ill, JUOO
5 X
2

-2399
JZ18.
01152 J2U2
5 X
I

II

-341'
095U
12656

000-1
00000

Il
4.

03550
02640

-6977
00000

4'

521

1620 FORlRAII 11-0

PAGE

I.SXI7

12868

5 x

20260
20270

8TM
OS.

RMIIS.->l6
1.5XI7

IZ861
128n
Illn
12890

-9547
J31l.
0lU6 J28'10
5 x
2

20280
20290
20300 COI7'
20310

TF
AM
8TM
DSA

REP3.ADCOII ••
ADCOII

20320
20330
20340
20350

eM
BNl

20)60
20]70
20380
20390
20400
20410
20420
20430
20440
20450
20'160
10470
20410
20490
20500
lUUO
20520
20530
20540
20550
20560
20510
20510
205'0
20600

CDllP

PHASE 2

OSA

202~0

8TH

DSA

CM
8E

SXlT
CD17C

"EP1
COlTO
FliED I
C017F

CM
BE
CM
BE
TF
TF
AM
TF
I
OS
BYM
.. M
SF
BY
I
OS
BYM
MM
SF
05
IT
IfM
OSA

ItM,.5, •• 16 ...

.1

SAVE 'OOIlES S QF ISl SPEC
.10
REMOVE A "MeOL

I.SXlT

12890
12195
12196
12.08
12.20
12936

H

26
Il
IT

101 ••• 15 IT All O'ERATOII
CD178 ....
YES, IUNtH
RMNS •• +16 ..
IIEMOVE IIEXT SY"IOL
I.SYI1

12936
12'41
12"2
12.5t
12966
12.82

SY17.
141.8.15 Ir Xl"E
CDI7C
SY17.
1",•• 8.15 IT HlV'!
CD17D
5YI1.
12•••• 15 IT LEFJ PAIIEII
COUE
FIIE01. SX17"
OTHEII O'I . . rOll. UVI 'REO
IIEP1,AOCOII"
SAVE AOOIIES$ OF IIUT SPEC
IIEP1,4,I0
SXlT.SYl7
CDI78

12982
12987
12 ...
13000
1301l
1302.
130J6
110••
13060
1J072
1JOI.
110'16
UIOI

.

,un 7 .XT"E, ,
SXlT.2,10
97
Pun7e.99
eDlTA

'.UT In'E '"0 LENlrH

11120
11112
Ill ••
15156
III . .

11
J2

PUT 11, HTV"E ..
SI17.Z.10,
97 ....

'UT HTY'" LlIlITH AND CIlfWSTAIITS

sxn.

.-

..-

IIllt

lin.
13110
lJ1.2
IJlO6
IJ211

'un7e ...
IIMNS,"16
I.SYI1

11221
112. .

'urnl,S"7
un.lol0
Slll.0 ••
COllF
tOHA

15210
15161
1121'1
112. .
ua91

1"
46
U

14
46
1'1
46
I"

Z6
26
Il
26
4.

n

If

"'I
n
11
JZ

tlZ" 2J

If
$II

ell
IH

•

un.

-9541
HIl'
UI19
U382

0-101
01300
J2982
5 x
2

05~16

-95'17
J]90'
13.0.
U120
U'O'
U180
13.0'1
13310
UZl5
13179
11179
Ull.
Inez
0
14286
UI1.
00097
I.U2
12920
0
I.Z16
UIl'
00097
0
IU2Z
05.16

n

'It

Ull'
UUI
12910

UZ""
20610
20620
20610
20640
20650

-9541
JJIl.
1'1013 069ll
069ll 000-1
05416 JU36
5 x
2

,
-"'"
JI'"

n

..
II
14

51

IU10

nil'

0-147
01200
0-148
01200
0-124
QUO~

Ull.
06977
000-4
13.0.
00000
-J920
000-2
00000
00099
00000
-"15
OOO-Z
00-00
000••
JU. .
Z

X

U'O.
000-1
00-00
01100
00000

522

L.20 'DIIl1l611 11-0
lot60 UPI
Z0610 COLlE
20. .0

10. .0
20100
ZOllO
zono
lono FRE02
20140 CDLlB
lono
lono
20770
lO1l0
10190
20800
20810
lO120
20830
20.40
20no
20.60
20870
20 . .0
20190
20900 COI711
20910
20920

lono

20940 COI71
20950
20960
20910 COI7J
20910
20990

21000
21010
21020
21030 CDI7N
210"0
21050
21060 COll7
21070
21010
21090
21100
21110 C017K
21120
21130
211~0 t017L
21150
21160

OS

"

SM
IF
AM
TF
8
OS
CM
BE
CM
IE
tM
8E
CII
8E
CM
8E
CII
BE
CII
BE
CII
BNE
TF
SM
B
OORG
BTM
8
OORG
ITM
BTII
OSA

1111

SF
If

til
BE
BTM
8T
IT
TFII
8
OORG
8TII
8
OORG
8TM
8TII
OSA

"

UPI,ADeOIl, •
REPI.L.LO
IIE'I.ADeOIl
IIEP2.4. LO
F.EDZ.Slll
COllA".

.'$lLl.

ConG
$lLl.
tOLlH
$lLl.
tOlll
S_17.
CDLlJ
S_Ll.
tOl7K
$lLl.
tDLlL
SXI7.
COLls(
S_I7.
COllA ...

SAV.

",PC" AOOaUS

L04 •••• IGHT PAUli
145 ••• 1 TYPE
IlI.'.SLASH
Ift4.1.1 TYPE

14•••• 1 TYPE
146,I,F TYPE

1)l.'.SIMI COLOII
124.I.LEFT PAREN
CMA
SAVE UPUT AOO.ESS

REPI.AOCOW ••
RIP3.1.10
COIlA
'-3
PUT 17. SLA SH
COI1A
.-3
PU1l7.ATYPE
IIUtNS,e+16

I.SXI7

SX17.2010
97
PU1l7C.99

FREQ1,D,9,

PAGE

'Masl Z

PUT FUQ RETUR" ADDRESS

COllA
PU1l7.IIEP
PUTl71.REPI
PUTl71.FREDI
FRE01.0.'
COilA
'-3
PUTl7" TYPE
CDI1J+12
.-3
PUTl7.FTYPE

RIIINS,_.l6
1. S_17

UIO'

nno I t
uua u
Lun u
LU" lL
unl
uno

LUlL
LUtz
IU"
U406
U411
HUO
11442
11454
UU.
UUI
114.0
U'02
un4
USl6
13511
lJ550
U561
lJS14
US . .
lJ591
U601
13606
11611
lJ626
13626
13611
13654

13654
1365.
U660
U612
13684
13696
1370.
13720
13732
137"4
137"
13761
U776
U776
13788
13196
13796
13808
13824

"••

..
..

0
L40n
L40l3
UIOt
UIO.
LU.L

12'10
0
UU'
U.IO
1111'
U910
13119
U606

14
46
14

Ull.
13616

14

Ull.

46

In96
UU9
14014
13119
12.20
140U
140U
129Z0

0-104
01200
0-145
OllOO
O-lll
OllOO
0-144
01200
0-14'
01200
0-146
01200
0-132
01200
0-124
OllOO
06.11
000-1
00000

14286
12920

-3885
00000

14
4.
L4

14

46

14
46
14
41
26
U
4'

11
49

11
11

13119
Ull6

1"211> -3180
0'''16 J365"
5 X
2
-95"1
HIl9
UIl9
00097
14322
13215
12920
110216
1423"
1"370
U21S
12920

000-2
00000
00099
00-00
01200
-3890
13179
13215
00-00
00000

,,'I

17

1"286
13638

-3895
00000

11

1"216
051016

U
32

21
14
"6
11
21
27
16
.9

17

5

U824

"

0 . .11
OOO-L
06911
000-4
1)U'
00-00

-3900
H82"
2

x

-95"7

523

16Z0 FORTRAN 11-0

PAGE

PHASE 2

21170
21180
21190

BT
BTM
OSA

PUTl7C.SX17
I.S_17

U829
13830
U842
13nl

21200
21210

8TM
OSA

RMNS •• +16
I.SXI1

13858
13863
U864
13880

21220
21230
21240
21250
21260
21270
212110
21290
21300
21310
21320
Zl330
2U"0
21350
21360
21370
21380
21390
21"00
21"10
21420
21430
21440
21450
21460
21470
21410
21490
21500
11510
21510

8T
8
SYl1
OS
COl7H BTII
8
OORG
tOllG til
8E
TF
TF
TFII
8TII
8
REP3
OS
CUllSC 8TII
IT
COI1XX 8TII
TF
8
OOIlG
DC

-2
WUBCOS TFII
8TII
IIUBC" TFII
8TII
IIUBC12 TFII
ITII
IIUBl21 TFII
"M
ITII
DSA

A.IIINS ••• l6

PUTl78.S_17
CDllN

.'
PUTl7.ElYPE

C017L+12
'-3
FREQ2.0.9.
C017A
FREQI.FREQ2
REPl.REP2
FREQ2,O.'
PUTl7.
REPIo
COlil

PUT F.EQ RETURN ADDRESS

.'

PUTlT.REOO
PUTl7l.IIEP3
ADJUST .ADCDII,.
""0001.5XF
IIUln'.14
14100
2.2
FMONon
FIION
FMONon
FMON
FIIONon
fllON
FMON+n
FMON
PUTA
SIF.AOCOII

ADJUST AOtOW TO EVEN ADDRESS

13880
uea,
U186
13191
u.O.
LJ.IO
U'22
U930
13no
13942
13"4
13966
1397.
U990
14001
140U
14014
14026
1'011
14050

140.1

.IUS
.SUICDS
• IU6
• SUlCAl
.IU7
,5",cn
.ILU
.SUIUI
,"1.

14101
14114
14n•
14"a
I4ISO
14112
1"11.
1.4U'
1. . . .
1.21.

141"

CLEAR
.-)

,

T."ET

pun

PUTI-l

pun I
5

17

05~16

11

27
U

17

••

".

14

26
26
16
lJ

4'
11
21
Lf
26

u

13119
HU8
2

5

x

-95H
HII9
05"16
5

x

-95H
HII9
14370
U696
0
1"286
13801

59

H880
2

13119
00000
-3905
00000

13381
12920
13215
U179
13381
14286
U132
0
14286
14U4
03550
03"""
14198

00-00
01200
13311
13309
00-00
-3730
00000

OU59
01314
02559
OU24
on59
OUl4
on59

-.224
J"102
-924'
J4n6
-'272
J4150
-.2 . .

-3910
l"OU
-6917
09582
00000

14100
14101

LUI.
1421.
uno
I
00.'
21540
OS
21no
21"0 PUTl71 TI
;uno
TPI'
TFIiI
21110
n
2U'0
liZ
21600
OS
2&tl0

27

J3119
1"322

..141,.
n,
tnPlc.
.PUTUI-l

, .. aD

16
11
16

11
16
11
l'

11
11

.. .

..no

LUll
LUM

5

-."1

-"

OIUO

..". ••""
lU"

14.46

onn
o.nz

Jl

U

5
0.415
01110
010)1
07116
5

J4114

JUlio
I

-

00000

on••
.J"U
.1421.

524

1"0 'OUUN 11-0
21620
21.,0
21'40
21.,0
21"'0
ZlUO
211>10
21690
21700
11110
21120
211)0
21740
21750

'UTll

TR
TF

•

TYPU
pun
Pu,nl+'4

.,-

OS
TYPU
PUTlle T.
SF
PUTIlt-)
TFN pun
I
PUTllI·,.
DS
PUTll1 TR
TYPET
SF
PUTlll-2
TFI! pun
81
PUTI 71+24
TYPfK2 OSC 1.2
2
21760
Dt
2.2
-2
2,5
21710
DC
-5
21180
DC
2.10
JO
21790
Dt
2,11
JI
21800
DC
5,10000
Jonoo
21810
DC
I, '

21820 TVPEK3 USC
2
21830
DC

PAGE

'HASI ,
142 . .
14291
14)10
lH21
IH22
14334
141. .
1415.1
14)69
14370
IU.,
143.4
1440'
14413

• '-"'CN
.'UTn-1
.TYPEU
• 'UTnC-1
.TYPOl
.'UTnl-1

U
26
49

..
.."
]I
)J

16

J1
U

OIU.
01110
14"1
0
0.421
14119
01110
IU'JI
0
01425
141'1
0"10
14151
I

60

01111
I.,.,
00000
IHll
00000
J4J21
00000
14413
OOODO
J4)69

2

14415
1. . 17

2

14. . 9

1

14421
14426
14427

1,2

1442.

2,3

144]0

-)

2,6
DC
-6
2,11
DC
JI
DC
2.12
J2
DC
5.10000
JOOOO
DC
I, '

21840
21850
21860
21810
21880

14432
141t].
144]6
14441

,

21890
UUTPUT RETUR~
21900 FeTRTP TOM 552
8TM SRFCT
21910
21920
OSA RT~AMe
21930

OSA

~40011

21940
21950

BTM
OSA

pun
8TM

21960

OSA

TOFAC

5

14442
14444
14456
14412

.I
.-+16

15
17

-9531
5 x

14472
14417
14411
14478
14494

,e+16

OH11 00001
0)916 J4412
5 x
I

11

14494
14499

-35)9
07032 J4494
5 X
I
-69&0
5 x

.,

525
&

1620
21970

FORTU~

11-0

PHASE 2

PAGE
14499
14504

OSA

~40011

21980 NbOl82 TFM
21990
TF
22000
SOl
8TM
22010
OSA
22020

SS]
N40012
8

14504
14506
14511
14530
14H2
14551

22030

OSA

N40012

14558
1451>3

-6982
5

22040

OSA

8LANK

14563
14561

-3544
5

22050
22060
22070
22080 XllX
22090
22100

8

OORG
OORG
34
38
TRA

CLEAR
·-3
16002
BLK2A,701
BU2A,l02

0101
,RUO
.1
, •• 16

~40012

pun

TCD

22120
22130
22140

ODRG 10000
SECONDARV
DC
2,3

·,10

14561
14570
1451'
16002
16002
16014
16026
16031
16002

XllX

22110

.9

61

-3935
5 X
16
26
U

17

-)539
07418 OOJOI
03544 09572
03544 000-1
070)2 J4551
5 X
I

49

-9356
02640

00000

J4
31
36
49

09160
09160
00000
00000

00101
00102
00500
00000

16
11
16
11
16

02359
02124
OU59
02324
02359
OU24
OU59
OU24
GlU9
02324
02359
OU24
OU59
02324
14150
00000
0)715
10414
OUst
OU24
02159
OU24
14102
00000
141"
00000

-9121
JOD02
-9128
J0026
-9121
J0050
-9152
JOOr4
-9152
J0091
-9128
JOI22
-9152
JOI46
00000
00000
00001
00000
-9121
J0211
-9152
JO'42
00000
00000
00000
00000

10000
lINKAG~

FOR ILOCK )
10001

-]

22150
22160
22170
22110
22190
22200
22210
22220
22230
22240
22250
22260
22270
22210
22290
22300
22310
22)20

VOOEI
VaDE]
VODE4
VODEI>
VODEl
VODES
VODU

TF"
BTM
T'M
erM
TFM
8TM
tFM
ITI!
TF"
erM
T'"
ITN
T'"

IT"

YODEIl I

F"OH+35
FMDN
FNO~+]5

FNDN
FMON>U
FMO"
FNON+35
'NDN
FNON+J5
FMOH
FNO"+JS
FNDH
FNO,,+]5
'NON
SUICU

,lUI
.CODfI
,llKl
.coon
.llKl
.CODI4

.IU'
.COOe.
.llIIZ
• coon

• lUll
.CDOn
.ILIt,
.eoo,.

H

YDOU4 TON
I
22])0 YODU5
22340
IT"
22350 YDOEll T'"
22360
IT"
22370 YOOESS I
H
22310
223.0 YDSSAI I
H
22400

""

F.
COl.'
'NDN+n
'''ON
'"ON+n
FIIOIO
SUiCOS
SUlCAl

.1
.1L1t1
.COOlli

.lLltl
.COOIlT

10002
10014
10026
10031
10050
10062
10074
100. .
10091
10110
10122
IOU4
101U
10lU
10110
10112
101M
102.
10211
10nD
1024'
10'M
10'M
10211
10290
10)02

17
16

"

If>

11
If>

17

..

If>
17
49

l'J

U

I'
11
If>

11
4'
41
49
4.

526

1'20 FOUUII 11-0
2HIO YOUI
UUO
22HO yeTI

•

SUlU'
H
TFM FMOII.,.
.1lK4
22 •• 0
.feTi
I'M 'MOtI
22UO yeTRT TFM FMOtI.n
.lllt2
2H60
ITM FMOII
.feTU
TFM FMOII.n
22.'0 YOJ
.Il""
8TM FMON
224'0
.IOJ
22490 YOeALL CM
LV
.UI
22500
8
coeAV
22510
OU"UT 10 STATEMENT
22520 eollop TO" FFUN
•0
,e+16
22530
aT" RMIIS
22540
OSl I
22550

OSA

SR

22560
22570

ITM
OSA

GTIIIS
I.SL

22580
22590
22600
22610
22620
22610
22640
22650
22660
22610
22680
22690
22700
·22710
22120
22730
22HO
22150

C"
8L
CM
8H
TO"
C"
SE
C"
SE
C"
SE
C"
SE
SF
C"
BE
S
OORG
U760 COI4FV TF
22770
C"
8NE
22780
22790
ST"
22800
OSA

22SIO
22820

'"A5I 2

ST"
OSA

10114
IOJZ6

lon,
lono

••

10)62
Ion.
IOU'
10)91
10'HO
104ZZ
10")•
104. .
10462

.••
"
.."
16

11

Il
11

1046'
10""
104'.

BT.LVP,NU092

10484
10489
104'10
10502
10514
10526
10531
10550
10562
105n
10516
10598
10610
10622
10634
10646
1065.
10670
10682
10690
10690
10702
10714
10126
10742

R"NS
I, SL

10742
107H
10752
107S.
10710

LV
C01.JG
LV
eOl.JG
FFRSW
LV
eOl4FV
LV
CDI4FL
LV
COlltRV
LV
CDI4RL
FFRSW
LV
COl4SV
CDI"SL
.-3
LVP
SL
CDI4JW

.142
.147
.1
.142

.8
.1

.143

••

,146

.1

, 141

.8

0144

.8

.FETCH
0101

pun

.1

.8

,e+16

,e.16

1620 FORTRAN 11-0

OH65 00000
05416 J046l
5 x
I
-9547
5 x

11

.a.

22880
22S90
22'100

SS2

.1

TO"
BT"
OSA

22910
22920

22930
22940
22950
22960
22970
22980
22990
23000
23010
23020
23030
23040

8T"
OSA

8TM
87
COl4RV TF
87
CDI4RL TF
B7

CDI4SV TF
87
CDIltSL TF
87
CDI"JG
DSA

""

RPNS
I.HC

10846
10851
10856
10858
10874

GNRP
COI4FV+12
LVP
COI"FV+ L2
LVP
COI"FL.12
LVP
C014FV.12
LVP
COI4FL.12
OPSR
LV.LVP

RMNS
I

23070

Sl

23010
23090
23100
23110
-23UO

......

10796
10812

16

8TM. TOFAC,N4000lt

23050 COl4JW "M
23060
oSA
DSA

1078~
1078~

,FETCH

fa.16

,·+16

10874
10879
10180
10192
10900
10912
10920
109]2
10940
10952
10960
10972
10910
10996

,-+12
.RECORO
.RECORO
.FINO
.FINO

,·+16

10996
11001
11002
11011

, •• 16

I.
H

I.

'"

"

I.

'"1.

'"

I.
46
14
"6
12
I"

'"

.

"9
26

H

17

17

SS2
.1
OUTPUT INSTRUCTION fOR 10 OEVItE
SaFCT
OSA Sl

DSA

,•• '6

10

10
All
tIIIII

COI4.
COl4RM
SlASI
COI4.

"" 0'.

."RSII
.IIMSII
,5

.SlUI

,21

12155 12881
02399 0-101
11002 01200
07032 J0742
5 x
3
-'1382
J2855
-9369
05416 J0770
5 X
2

010
,11
.10

527

1121~

26
17

12855 12887
03976 JOll2
5 X
2
-2399

15

11

-350~
01~77

00001
01032 J0846
5 X
3

-6980
-)935

11

-350"
05H6
5 X

059~0

It9
26
.9
26
49
2.
4'
26
4'

10702
12155
10702
12855
10796

17

11

JOn2
12882
12882

12855

12877

10702
12155
10796
035n

12877

Jon6
5 X
2

-9561
J2855
05"16 JIOII
5 X
I

11024

-21"
onn

11011
11070
11011
11 OK
11106

J08H
2

-95H
-9531
17

-95H

U036
IIOU

63

00000

~9

OJ X

"
U

00001

onn
OJ X

JI052
1

-n..

lI052
11011

1140004

0-1"2
01300
0-141
01100
00001
0-142
01200
0-14)
01200
0-146
01200
0-147
01200
00000
0-144
01200
00000

-9547
-2399

OJ X

-uo.

lion

nUL
ZUlO
23140
23150
23"0

-9541
-2399
09561
10910
09561
10910
04165
09561
10690
09561
1011"
09567
10900
09561
10'120
04165
09561
10940
10960

11011

lion
lion

TOM

IfN

J048"
2

5 X

PAGE

10812
10817
10818
108]0
108"6

pun

-2372
05446

PHASE 2
10716

COL'"
'-3
LVP
SRFCT
SL.N"0004

onn

"

Il

62

00000
00000
-9200
JOJU
-9151
JO)62
-9200
JO)U
O-Ul
00000

OUl.
0'''1
lUll

10770
10715

22830
S
22840
OORG
22850 COl4FL TF
22860
8T"
22870
OSA

1.In
00000
OUS'
0212"
on59
on2.

14

10462
10461
,e+16

PAGI

U

11174

U

11126

04765
04115
000-5
o.nJ

1I

oun

4'

"In ooon

"

11174

52!!

"20 'OITRAN 11-0
23110
81
23180 tOlUOl TF
2)190
AN
TF
23200
23210
TD"
23UO COl ... " TFN
UN
23230
OS,
23240

tOI.Nh12
...0001
.IUCON
.11
""001
SlUE
.N.OOOI
.0
"NSN
Opy
.IT
PUT X
,·.16
OP V.L VP • "'0006

23250 COl.'
23260
23270
23280

B.. F
87
nN
OS,

e+20
CLEU
RNNS
I

2]290

os,

SL

2HOO
23310
21320
2H30

CN
8E
8TN
OSA

SL.
COIU ..
GT .. S
I

2H40

OSA

SL

2H50
23360
23170
23380
23190
23400

CM
8E
CM
8E
8TM
OSA

SL.
CDDOA
SL.
CDDEPA
SRFCT
SL

PAGE

P"ASE 2

.10
.6
.10

1111.
11126
Ill)'
11150
11162
1117.
11116
11202
11202
11207
11212
IIZI.
11ZZA
112J4
11150

.FFUN
,.+16

••

26
11
26
II
16
17

11255
11256
11268
11280
11296

,.+16

11296
IIlOI
11)01
11302
11314
11326
lUll
11 no
11366

10•••• 00'
U •• 8.LEFT PARE ..
,-+16

o.. n
ODOJI
OJ. . .
.00000

ooon

12157
070ll

,x

JU02
3

J2U7
J2IU

U

••17

1I1H
02640
05416

,

0416'
J12'O
X
I

-9547
5
14
46

17

..
14
16

66

17

11366
11371

SR

Dun

-2399
0239.
12442
O'U6

,

0-132
01200
J1296
x
I

-9547
5

-2J99
023119
12334
02399
11180
03976

,

0-109
01200
0-124
01100
J1366
X
I

-2)'9
5 X

2HIO

OSA

23420
23430
23440
23HO
23460
23470
23480
23490
13500

so

COOARR
.OllSW
OUTPUT S I MPL! VARIABLE
80
.FXORFL
*+20
C099
6
OORG '-3
,fPSW
8NF C098
TOM SSI
.1
8TM PUTX
,*+16
OSA SF

11396
11606
11406
11H6
IlU8
IlH4

23510

OSA

SR

11444
11 .... 9

-1I3H
5

23520

OSA

8UIoIK

11449
11454

-2372
5 X

11454
11456
11664
11664
114"
tl488
11500
11512
11520
11512
1154.

-9356
11476

1620 FORTRAN I 1-0
23530
23540
23550
23560
23570
23580
23590
23600
23610
23620

CD98
CD"

C097
C096

6
DORG
TOM
TOM
SO
TF
87
TF
8TM
OSA

11371
11372
l1)U

'-3
SS4
SS2
C097
~40004

C096
N40004
PUTX
OPX

H

-2H2
11662

0.150

H
49

11.0.
11416

OH73
00000

44

1146. 09659
01416 00001
07032 Jl4 ••
5 X
I

15
17

PHASE 2

-+20

01
01
.FFRSW
.10
.SWF
,.+16

PAGE
49
15

n

41
26
49
26
17

N40004

11548
1155)

-4193
5 X

23640

OSA

SR

lI553
tl558

-)504
5 X

23650
23660
23670
23680
23690
23700
23710

60
8
OORG
8NF
TOM
BTM
OSl

... 20
COL'"
'-3
COl4C
SSI
PUTX
CF

OSA

SR

116Z0
11625

-9343

23720

11625
116]0

-2372
5

11630
IIU2 U
1164'.

-9356
05416 J1648
5 X
I

116U

-9547
5

23730

OS,

8LANK

23740 C014C

2lno

8TM
OS,

RMIIIS
I

23760

OSA

SL

.FPSW

tl

,·.16

, •• 16

.. ,.

oSA

LV

23850
2311>0
23170

CN
Il

LV
COOIIAT
I

AM

49

15

11

.1

04173
00000

116)2 09659
07.76 00001
01032 JI620
5 X
1

lI6!)
11654
1166'

At

11214

00000

U662

Z6

0)106
0)104
Ot446

09547
000-1
J1102
1

lin.
116 . .
11102

-U99

II

11

11102
lI10l
.141

-2372
11510
11632

5 x

11'5)

23770
ft
CD1U
OOItG •• J
23780
23790
OUTPUT DIOIENSlOItI VAlUILU 1111 10 STATEMfNrs
21100 CDOUR TF
"40004
.1
AN
23110
,10
"40004
.1
,
2]820
aTN GTNS
2J130
OSA 10140004
23B40

..
63

65

00000

OSA

11558
tl560
11572
115.0
11580
11592
lI604
11620

529

07H9 00001
07677 00001
11520 OH65
01504 0)945
11532
0)504 12862
07032 J1548
5 X
I

236)0

.FXO_FL

6.

-no.

112'0
1125'
U2.8.SEIII COLON

11116
OJU'
DJU'
OU7J

,x
,

-1506

.1

11107
11701

1.

.10

11720
tlnz

4J
II

-tl61
0""
IIn4
09561

0-16.
OUOO
000-1

53t!

"20 ,0lTUII 11-0
U"O

U190
U.OO
U.10
uno COIU
uno
21.40

uno
n •• o CD'5

uno CO.4
21 . . 0

TOM
CM

101
LV

IE
17

COSSAI

TO ..

10
Tf

B7
Tf
arM
DU

....

.1

COOISS
101
CD.5
1140004

.U

,I

II'"

,"UW
,10

co••

IT

U744
un4
11110
IU . .
11100
11112

.0

1140004
PUll

PAGE

'MASE

,SWP

1l1Z'
UU,

,·+1'

11'44
11140

2)990

DSA

1140004

U160
UI . .

24000

OSA

~UO'2

UIU
11170

24010
B
24020
OORG
24030 tDDHA TFM
24040 tOI4~A AM
24050
BTM
2 .. 060
DSA

COIU

2 .. 010
CM
24080
BNE
2 .. 090
SM
2 .. 100
A
OORG
H110
tM
2"120
24130
BNE
241100
AM
8
2"150
HI60 PARtNT DS
24110
CM
24180
8~E
24190
CM
24200
~H
AM
24210
24220
TF
24230
SM
24240
TOM
81
24250
24260 CD14E TOM
24270
AM
8TM
24280
24290
OSA

SL olO",8

uno
una
11 . .0
11110
un2
U904
U.20

.-)

PARCNT .1,10
lol,lO
GTNS".16
I,SL

15
14

••••

"

U

26
49
26
17

49

16
1\
11

11920

24300
243\0

BYM
OSA

"'1'
11921>

·.]2

unl
11950
1191>2
11910
U910
11982
U'"''
12006
12011
12018
12030
12042
12054
12066
12078
12090
12102
1211 ..
12122
12\34
12146
12162

PiRCNToldO
CDI"NA
.-)

SLoll .. ,8
-.36
PARC ... T""O
CDI4~A

2 ••
SL,\3J,8
tDI"NA
PARCNT ol,l 0
tD"'NA
GLNOol,lO
T2.GL ... O
I, 3t 10
101 ..
tODEI2
101,0
1,2.10
RMNS, •• 16

I, SL

12162
12161
12168
12184

RMNS,·+16
I. SL

I"
47
12
49

a..

47
11
49

a..

47
I ..
"6
11
26
12
15

"9
15

11
17

0.121
0 . . .1
101.0
10266
09321
11132
0).04
IlI.4
01S04
070ll
5

00000
04165
01.45
12.1>2
JIII>O
I

•

-9382
5 •
-)504
5 •
-'1369
11214

00000

12011
0.51t1
054U
5

000-1
000-1
JI920
x
2

-95 .. 1
-2)99
02)99
11'110
12011
U892

0-104
01200
000-1
00000

02399
12018
12011
11892
2
023'19
118'12
12011
11892
09390
09596
095 .. 1
09327
10170
09]27
09547
05H6
5

..

OOOOJ
0-141
OUOO

0-12"
01200
000-1
00000

O-Ill
01200
000-1
01100
000-1
09390
000-3
00001
00000
000-2
J2162
x
2

-951t1

-2399

11

05416
5

J2184
2

x

531

1620 FORTRAN 11-0

24320
24330

BTM
OSA

RPNs,.+16

24340
24350
24160

AM
BT"
OSA

1,1.10

PHASE 2

PAGE
12184
12189
12190
12206

I,OOA

R[IIII"5.*+16

I,SL

11

12206
12211
12212
12224
122'>0

11
17

122"0
122 .. 5
122 .. 6
12262

11

-9541

RMNS.*+16

24390
24 .. 00

BTM
OSA

GfNS.e+16

24410
24420
24430
24440
24450
24460 tOOOA
2 ... 470
"".. BO
2 .. 490 t014M
24500
2 .. 510
2'>520

eM
B... E
TFM
8
OORG
TOM
TF
B1
SM
TD"
BTM
DSA

St,I04,_
CDI .. Nt
1,1,8
COL ...
'-3
101
T2
CD128
GLND
101
AMNS
I

Z.. SJO

OSA

SL

2 .. 5 .. 0
24550

BYN
OSA

RMIIS
I

H560

DSA

SL

UU]

C014"
.-)
CDI411D
.....000..
'UTI

IIU.
\2 • .,

4.

U4U

U
26

12262

11261
I2l6B
12284

I,Sl

12214
12289
12290
12)02
1231.

I2ll'

tl
,Gl ...o

tl
.0

, •• 16

tlO

1233.
un4
12146
12]5'
In . .

lun

12390
IHOI>

11

12411
IH1'

•

16
"9
IS
26
4'

u

15
17

, ..no

DSA

u.

... 40004

U2l99
12246
09547
1121'"

0-104
01200
0-001
00000

09321 00001
09596 09)90
103\4
09J90 000-1
09321 00000
OSH6 J2406
5 x
1
-'5"7
5

11

12421

-2399
0'" \6
5

J24Z'
I

•

-"47
5 x

U4U
.PFII$W
,IOI ...D
••• 16

-9547
-2399
05446 J2284
5 X
2
-2399

H

12421

2'S10
ODIIG
''''.0
245.0 tDI4E'" 10
r,
24.GO
'41>10
IT"
OSA
24620

05416 J2262
5 x
2

-95'>7
I'

I HOI>
12411

,··1'

-9547
-9515
09547 000-1
05416 J2240
5 x
2
-2399

24370 C014Nt 8TM
24380
OSA

I,Sl

-2399
11214

00000

12502

0411>5

12412

ono.. 0"50
070)2 J2412
5 x
I

12412

-6910

UU•
\2'"

12 . . '

61

-9547
-2399
05416 J2206
5 X
2

17

, x

r

532

"20 'OUUN II-I)
24640

OSA

'HASI 2

IUD

PAGE
U . .7
11492

-'.504

U492
11494
12502
U502
llS'.
U526

-9J!U

5

24650
8
CLUR
24660
OORG . - )
24610 C014NO TF
N40004
,DIOENO
24610
TOM FFUW
,0
24. . 0
B7
CD'4EN+24
24700
OUTPUT COOl NG FOR COII'UTE MATRICES IN IQ STATEMENTS
24710 COOM" 8TM pun
24720
OSA TFM

U5n
U550

24730

OSA

PAR

12550
U555

-';139
5

24HO

OSA

PI

12555
12560

-1960
5

24150
24760
24770
24780
24790
2HOO
24810

80
8
OOAG
BNF
TOM
BTM
OSA

CM99
'-3
CM . .
SSI
SF

12560
12562
12574
12582
1251Z
1259.
12606
12622

24820

OSA

SR

12622
12621

-9Hl
5

2"'8]0

OSA

BLANK

126H
12632

-2312
5 X

24840
24850
24860 CM98
24870
24880 CM99
24890

•• 20
'-3
5S4
*+24,
SS2
CM96
N40004

24920

B
OORG
TOM
80
TOM
80
TF
eTM
OSA

24930

OSA

N40004

12718
1272)

-4193
5

24940

OSA

SR

12723
12728

-3504
5

24950
24960
24970
24980

BO

e+20

CM97
OOAG '-3
8NF CM97

,.+"

24QOO

24910

e·20

.FXOR~L

,FP5W
,1

pun

pun

OP.

,e.16

COMSW

12632
12634
12642
12642
12654
12666
12671
12690
12702
12711

"

,1
• FFR5W
_MAr

,·.'6

12728
12730
12742
12750
12750

.FXORFL

8

.FPSW

6.

49

02640

00000

26

on04
OU65
12466

00000

"

4.

17

4)

49
44

15
17

4'
15
43

15
41

26
11

070]2
5

12.67

JU50
1

•

-9651
12512
12666

04313
00000

12642
07476
01032
5

09659
00001
J2622
1

•

.9)56
12654

00000

07479 00001
12678 0"151
01477 00001
12132 04765
On04 03965
07032 J2718
5 X
1

-2312
41
49

12750
12802

04373
00000

H

12802

09659

533
II

1620 FOATUN 11-0

PHASE 2

PAGE

24990
25000
25010

TO"
8TM
OSA

5S1
PUTX
CF

25020

DSA

SA

12790
12795

-9341
5 X

25030

OSA

eUNK

12795
12800

-2312
5 •

25040 C"97
25050

8TM
OSA

RMNS
I

25060

OSA

S~

25070
25080
25090 C"96
25100
25110 ~VP
25120 DPY
25130 SWF

8
CD1U
ODAG .-3
TF
N40004
.DUY
87
CM9'.36
OS
5
OS
2
DC
5.-02288
-221D
DC
5.-022"
-229Q
DC
5.-02293
-22'L
DC
5.-0t273
-227l
DC
5.-02278
-227Q
5.-0228)
DC
-228L
CALL EX" AND CALL LIN• ROUTINES
BE
CDXIT
AM
I
.]
tlO
ITM UNS
, •• '6
DU I,SY

25140 OIDEND
25150 DRAY
25160 FINO
25170 AECDRD
25110

Fn~H

......

251.0
25200 CDCAL'
25210 COLINl
25220
252]0

25240
25HO

NAME-I
RMNS

15UO

TF
ITM
OU

25270

7f

U2IO

"oU

NAllf-4
NAME-7
RNNS
1.5Y

25290
2noo

"M

,. $V

.1

,·.16

,-+,.

12762
12174
12190

12100
12802
12811

15

17

11

12'2~

4'
26
49

,IY

,·.16

-23"
11214

00000

03504
12702
5
2
5

12867

5

12112

5

12172

12877
12 . . 2
12 . .7
128. .
12.00
12912
12.21

46
11

11

13462
0.541
05416
5

01200
000-]
J2921
x
2

12n4

it

12'4'
12962

11

-9541
-23'4
nu,
05416
5

x

12.21
12.))
,SY
.'.1.

JU18
1

x

-'547
5 x

128ll
12832
121)2
121H
12855
12857
12862

-935.
OS416
5

12811
12121

69

07476 00001
07032 J2790
5 X
1

UOO.

-9541
-IJl4
n457
U4I4
0"16
5

noal

-9541

12162
129n
&296.
12910

IU92

"

II
17

OUI4
Jl'62
2

OUI4
00000
~

nODI
1

53ft

nuo

auzo

"
os
CF

uno COLGT

TF
TON

2n~0

aHI
uno
21)60
2nl0

.11

ITII
DSA

25110
25311

T'
TOil
All
ITII
DSA

2~)90

2~400

25410

1"0 'OU". 11-0

.",...

'""SI a

.n

N""I-)

COLGT
• "DtDW
,I
SS2
COLGf
.to
'UTI
TFII,N014U,CDLGf

,··1'

COLGT

,&DtOW
,I
01'

SSZ

tDlGT
, •• 16
PUll
T'.,NOOU"CDlGT

nOI~

noz.

,10

no.2
n014
lIOtO
noto
non
UIDO
nl02
UB"
UIZ.

UUI

nln
IUS.
""t

BTl!
OSA

25420
25410

pun
B,Noon.,NZTHD

.

a.
n

non
UOJ. a.
nolO at

,10

lU'~

,•• '6

n"6
13112

II

"

,4
,NII22
,NIU'"
,NAME
,I

8

AOCOII
PUTU
putUT
PUTXI2
lOCOIi
CLEAR

OS
TR
TFM
TFM
81

TYPer
pun
PUTX-I
punl

,TV,eM,
,PUTl2-1
, •• 20

SM
BT
8T
8T
AM
PUTI2

,.

,10

,10

uz..

132".
13218
11290
IH02

I1no

882

5
TYPET
pun
PUTX2.2"
T
TYPET
PUT3
PUTI2·2.
1,2

OS
PUTX 11 TR
TFM
B

os

PUTXI2 TR
TFM
81
TYPEM2 OSC
2
25650
DC
-2
25660
DC
-5
25670
DC
JO

25*>90
25700

13316
13)18
UUO
13H2
13360
IUft2
13314
ln86
13393

, TYpeCN
,PUTX1T-I
,TYPE 12
,Punl,-1

2,2

13395

2,5

13)97

2,10

ln99

JlDJl

IS
lL
Il

01411

25770

non
non

0.911
00001
000J9
J3I54

010n
5 x

J

-'339
J3~12

,"
U
21

n
n

II

4'

n
16
16

"9

Hon

01012 HII2
)
5 X
-"12
JI"31
JJ442
0""
132 . .
11318
l33ft2
0. .11
02640
0

000-4
13444
13449
134101

000-1
00000
13393
J32.5
H310

0142~

0"10
01031
0111.

42

31
1ft
49
3l

I'
49

5
08425
on80
13290
7
01425
0"80
11290
I

Oa81l
J3311

00000
1340.
J33f>1

2

\3~01

1,2
2
2, Il
DC
J2
DC
2015
J5
2,20
DC
KO
2,21
DC
KI
DC
5,10000
JOOOO
DC
I, '
,

25180 N07495 DC

11

5

13406

1340.'

25760

JJ~n

,.

PAGE

n'HO

25750

uon

13401

2n20

25140

00000

0&9"

00001
000110
01012 HOtO
5 X
J

PHASE 2

2,11
DC
JI
5,IOQOO
DC
JOOOO
1, •
DC

25110 TYPE 12 OSC

25130

OUI~

&1. .1
UUI
0
UO)7
01ttll

535

1",0 FORTRAN 11-0
25UO

13111
13192
UI94
11206
13211
13230
13242
132§4

-n.~

-.339

nln

25440
25450
25460
25410
25410
25490
25500
25HO
25520
255)0
25540
25550
25S.0
25510
25510
25590
25600
25610
25620
2U30
25640

10

PAGf
lIOll

2

13HZ
1341.
U41.
U421
ln22

5, 1~95

U421

10RT

UU2

5 I

lOCAL

UUZ
UUl

-05,5
5 I

1nn
lJ44Z

-0116

-1~95

25190 1100565 OSA
25800 NOO1l6 OSA
25110 N2THO

at

5,ZOOOO
KOOOO
2,20
258Z0 NMll
DC
KO
25830 Nl"'RII at
5.17 06977
09567 000-1
on99 0-132
11420 01200
05416 J0866
5 •
2
-9547
-2399
05416 JOII,
5 X
2

44

-9541
-2372
11492

04745

15
26
l5
17

13262
02371
07476
07032

00000
09567
00001
J09"

.15

4J

••

16
26

,•

-9341
-9567
-95))
01419
11002
11242
07417
1)267

)

OOQOl
OU9)
OOOJI
01>977

5315

it20 Pllll'.... 11·0
" . .0
".10
""0

269)0
26940
26UO

TOIl
ITII
OSA

TFII
ITII
OSA

26~60

""0
U9IO

,..90

BNF

21000
nOlO
21020 FCTU
21030
21040

,AOCDII

IIIF ,ltOll, SUlCOII

nOt6
nDtt
UO"
no ••
nOli
UO.O
Uloa
UU.

,1
5S1
PUTI
•• +1~
tF ,SUlCDII, ILAIIK

lUll
lun
UU,
nuo
Ul.,
lUll

SS4
,1101
PUTX
Tf, SUicall, SUicall

UU.
lUll
lUI.
uno
l111Z
11191

" ,SUltDIItLV

IT..
DSA

21.10
".,0

,-HI

pun

DSA

"""
""

" . .A

B1

TF
TOil
BTII
DSA

ltoll

"20
FtTlJ

,SARGSII

$X

,SUICDII
,I

ITII
DIA

pun

BD
TFM

Ftllt
Fcno

n

TFII
TDII
BTII
DSA

21210
27UO
21221 FtT12
21222

BD

21ZJO
27240
212110
27260
21270
21210
21290
11J20
21UO
21140

tM
ailE
TD"

21150
2U60
21nO

21JlO
21no
"400 ,tTlJ
21UO
n420

B1

BTII
DSA

B7

TFII
TF
"M
51!

TOIl
nM

OS"

.'"
""
DSA

U210
lun
lUIO
11212
lU96
uno

,·.16

UJlO
lUll
lU"
11na

, •• 1'
BTII,FRFAC,1I40012

SR
Ftnl
ltV
FtnA

FCnt
Sit
FCTlD
Sit
551

,104

,a

,5

.10

,ltV
.2

.RIGHT PAREN

lUll
lun
11'42
U)6'6
lUll
IU"
UJlO

EXIT
CLUR
SltfCT
SL.1I400U

,.·16

11460
11465
UUO
I1H2
11414
114.2
UliOI

Sit
,,)2
SARIiSII
FtTlH
S52
N40012
N40012
N4001l

,.
••.. "

pun

.10
.10

,··16

.FTSII

,104

.11
.Aocall
.90

,
TFM.II.ool,.1I60011

SSI
AII,1I40012.FDUI

.11
.10
.10
.10

ssa

.11

,un

,u"

,RIGHT PARE II

u.u

U516
11l1Z.
UU'
U510
11511

uno

U'IZ
11"6
1160.

Ilua

U6"
11."
11111
11'"
li_
H662

...•,.
,0

"21....00
21610

nuo
n6"

,.

,11
.10

SSI

''""
""

!MOOn

ptna
'011 SSl

1140011

''''x.

OSI " .........11.01112

n

JJn2
JUI1
01411
010J2

"

-9)4)
JU61
-9)11
0141. OJ10l
010)2 JU.I
5 X
J

11

n

"

4.
21
11

n

-'345
JUU
JUU
UUO
1"'4
oun
0'4n
070U
5

"'*'

It
17

-U11
01411
0).16
5

.lO

n2n
00001
JU10
x
3

00001
JU10
2

x

-un
11

-3544
01032
5

14
41
11
49

JUU

x

-6'10
-39)0
-3544
02)12
IU. .
onn
10150

)

0-104
01200
000-5

53!!

U

"

4.
16
11
17

U

4.
11

f"";$~~E

14
41
15
4'
16
26
11
12
U

75

1~~:"~0"11

Ii

'1:'~~SD00-2

llU2'
OU12 000-1
01476 ODOOI
070n JI460
5 X
3
-')41
-.lIU
-2112
02.41
0"40
03916

04745

II X

JUOI
2

-239' L-".-J~"';
0-104
1 ttl"
"f'·~

uut

1093a
07417
on44
01144
OJ!l)'
010n

•

. 01200
OOOOJ
OOOJI
06917
OOORO
000-4
J1622
x
J

-,u.

-)544

II
n

-In.

00001
JI662

074"
01012

•

I

~

-9)6"
-156'

15

.."

"
al'"
lUn
16
ltno

nUl

-'312

16
U

na..

00001
JU5I
3

•x

-)~n

I""

llf"
In..

.1.
.SlRI$II
.• 1

.._011
•••.·.16

una 06.11
una ooou
O16n oOOJl
oroJZ JlU.
t X
3

,..621

It

un.

" , ..4001 1, IUIcall

'011

n

11662
1106'
U.U
""6
H ...

In"
UUO
21640

it

U'O'
,I

.1

'UTI

""

-9111.
JUI1
-9111

,

"".LY.S.

.1
,I

""

'4

U,.f'OOOU
O'O'i JlOI;

PHASE
lUll
11400
11412
11420
U6U
114"
U460

TOIl . SARGIII
FeTlH

n

IU9I
U20)
11201
U210
U222
U2IO
11262
11256
U270

,1

BTM ,un

DSl

,I

,

1620 FIIIITUN II-D
FCll8
FCTlK

,10
,1O

.."

55a

PUTX
BT,TO"'C,SX

21010
270'0

27140
21150
21160
27170
HUO
271.0
21200

,

,-+"

SS2
SItFCT
SL,N40012

..,

,U

pub

Tall
BTII
as"

CM
BE
AM

.."

,n

ICOII
S52

27050
27060
27070

27100 FtnF
2711D
21120
27UO

,10

no"
UOII
uon

A"

IT"

"a6900
..a

,JI

SUlCOII

PAGE

"'ASI 2

lUll 11
lUM
HIl'

"

Jill.
nUl OOoa-

l~

at,,;;·

OOOJI
JnZi

Of ala

I

-9)"
-III'
Jill"
0""
"600
01."
011 ••
0 ....
onu
I

l(

)

00001
11262

00001
06.17

ooo-a

xJlIlO

5411

1620 'Oa,aAN 11-0

PAGE

'HASE Z

IlIlS
TFII
TF
AM
"M
DSA

27500

uno
uno

21BO
27540

21550 nTlL
21560
27510
215.0

21590
21600
21610
21620
21630
21640
21650
21660
21610
21680
216'10
21100
27110
27720
21730
21140
21150
27760
27710
211'0
277'10
21800
21810
21820
21810
278"0
21850
21860
27810
21880
27890
21900
21'110
21920
219)0
21940
21'150

AI.
All
arll
DSA

S54
.1101
1140012
• LV
11140012
PUT X
IIIIR.1II40012.N4001l

..."
.n

RV
I
RMNS
I.SR

.5
.1

,·.16

tM
BNE

SR
.104
FtTll
Bl
FCTI!!
END OF J08 ROUTINE
EOJP
511
AOCOII
.5
eM
SAL
.0
8NH •• )6
AM
EOJJ
IIIEXT
.1
,FLGRM
TO
NEXT
eM
PREBUF
.8UF4
8E
EOJG
AM
PREBUF
.15
TF
NUT
,PRERUF
,4
AM
NEXT
. TFM NUT
.0
81
EOJJ
EOJG
TF
tLLtlU
.GTlUI
TFM ll'lG
.61
TO
8UH.n
.PUTPCH+II
,.+23
TFM 10RT
10PT
.PUTXX
B
AM
PUTXZ
.3
TFM PRE8UF
.8UFI
CM
,61
ll'lG
811E EOJW+H
, •• 23
TFM 10RT
8
,CAULK
10G.T
AM
,3
ClULK
,4
EOJWG AM
PREBUF
A
PREBUF
,AOCOW
AM
PREBUF
,3
,PRERUF
TF
ll'lG
AM
PREBUF
CM
PREBUF
,8UF4+"
8E
EOJG.24
EOJW
eM
,61
LNG
8E
EOJWG

...

1620 FORTRAIII 11-0
21960
21910
21980
21'190
28000
28010
28020
lB010
28040
28050
28060
28010
28080
280'10
28100
28110
28120
28130
28140
28150
28160
28110
28180
28190
28200
21210
2B220
28230
2824D
28250
21260
28290
28300
28310
28330
28340
28350
28360
28310
28310
213.0
2'400
2.410
2.420
2.430

AM
TF
TFII
8
80
EOJENO AM
TF
TR
TF
~M

80
81
SM
TFM
8
80
TO
RtTY
WNTY
WltY
RCTY
II!'ITY
WAtY
RCTY
Wlty
BV
87
EDJStIll TD
til
8NE
TFII
81
EOTONY tFM
Til
EDPElE All
8111F
TDM
Tf

CF
TOM
TF
CF
10
TOM
DC

•

PRE8UF
PREBUF
I ORr
I OPt
EOJSTN
AOCOII
lEI'IGTH
FCTSII
SCNT
LOCOM

·+20

••

Ill"
1117'

LOCOM
10RT
10PT
e+24

SYSCAL

,I

,*.23
.SECTO
.ERSIIT
,JAY

••

.RIGHT PAREN

,10
.10
oLO
,6
,10
,10
.61
.10
.1
.10
.10
.1
,10
.10
,6
.10
,11
.10
,10

119a.
I19Jl
lIUZ
11944
lln6

,7
.10

,10
.10
.1

SCNT-4
LCDMAO
EI'IOMES

··12
,PUStSN
.2

,810

.1

,10

,10
.lynNI
.5
,fCTEMO
.1
,fCTENO

.10

,Il

.4
.FeTINO

.n

.10

•n

.e511

1.',-

11

II
II
U

nu.
0741.
on ••

OJIOI
0"61
OJU4 000J3
01032 JII14
5 X
3

J3Z74
-1'44
-JU9
09517
09541
05416
5

000-5
000-1
J1926
x
2

-nu
49

-2HZ
02111
lill6
IU . .

11964 12
11916 14
llnl 47
12000 11
12012 25
12024 14
12016 46
12041 11
12060 26
12072 11
12084 16
12096 49
12104 26
12116 16
12121 25
12140 16
12152 n
12164 11
12116 16
12lB8 14
12200 41
12212 16
12224 49
12236 11
1224•. 11
12260 21
12272 II
12284 26
12296 II
12308 14
12320 46
12332 14
123"4

06971
01446
12024
08U6
06450
01165
12104
01765
08456
01456
01450
12000
n252
09640
01160
00565
00532
08415
08165
09640
12356
00565
00566
13252
01165
OI76N
01165
0'1640
08165
08165
12128
09640
12248

14

~,

.

0-104
01200
COO-5
000-0
01100
000-1
01424
-1615
01200
000"
08165
000-4
-0000
05291
00001
08019
J2163
-8·"02
000-3
-8460
00001
01200
J2235
JJ239
000-3
000-4
06977
000-3
0816N
00008
-8160
OUOO
00001
01200

541

PAGE
12356
12361
12180
12392
12404
12416
12428
12440
12452
1246.
12416
12488
124"
12508
12520
12532
12544
12556
12561
12510
12592
12604
12616
lZ6l1
12640
12652
12664
12612
U . .4
12696
12701
12120
12111
12140
12752
12164
12n6
12111
12100
lallZ
12.24
12136
12.48
12160
12'"

.10
.TlASI

,10

12812
12.84
12196
12908
12910

.15

.10

1"'0

.IY".

"

26
II

PHASE 2
,10
,6

AOCOIl-4
USEOCR

IIOI'ICAL
.+21
'.9
EOTOI'IY
tSli
EO'ETE
TSII
I IIIPUh 10
FCTEIIIO
EORDO
FCTEIIIO
IN'UT.3
IIilPUT
FCTENO
IN'UT.9
I III'UT. 5
COPCH
IN'UT"10

1117'
Ill"
1l . .4
li . .6
11191
11910
119a.

.10
.10

,-+2:5
,PUTU
,'USTSN
t1
,AOCIIII
,GRSAGE
,LOCOM
,5
,9'1

11 . .6

.10

*+20

21440 IDJIlIT 11111" IIilPUT
21441
11111" IIII'UT.5
511
2.4'0
FCTINO
21460
C
FeTlNO
28410
lilt. 10PUI
21410
(OJINO
2.4to 101100 5N
'CTINO
21500
EDJIIIT. . .
11
21501 CDPCN T1I
IIIftUY.4
21502
IINCD IlilftuT

"

.14
,SU9Z

HIIO

"tUZZ
IlU•

U'.,
1295~

·12960
12912

1.

-tJ·U
-JU'

1l1i0

11
26

"

49
43

11
26
JI

26
U
U

..
4'
12
16

43
25
3'
3.
J9
34
31

39
34
39
46
49
25
I-

41
16
.9
16

.
Jl

U

It
Z6
33

"

U

n

43
15
II
II

r

09611
0'1613

onu
on 18

••II

00200
00200
OOOJO
OU03
onOD

Ollll

OOOJiI

4.
25

-.11

U
ZIt
46

J.

11

01765 000P4
08161'1 11118
00"5 J2403
00532 -8402
12612 02294
06917 000-1
02248 06917
02293 11190
09613 022b2
02262 000-5
12496 00099
1250.
02262 000-1
00565 J25J1
00532 J3216
12556 09663
00415 02367
00000 00102
06973 00100
12993 00100
00000 00102
09669 00100
13011 00100
00000 00102
lUll 00100
12664 01400
00196
12693 02294
12693 0-0-2
l21l1 01200
lJ043 000-1
12152
n043 OOOJO.
096 . . 1.3119
DUll 000-5
' 129.0 ·02J1Q
02311 00001
09611 023IQ
09611 00000
DUll 00004
0'611 OZJ1\l
09683 00000
12960 1]042
096. . 00000

12112
12416

12to.
UU9
09611 . 00400

542

'''0'01'''" 11-0

n

UtO)

ZI5'O UseOCIl OAC

'n
...
u ...

'OJIII'.Z.
U. cOIn USEO'

cOlIn useo'

21520 LCDMAO OAC n. IIUT COIIIIIOII'
NU T CDMMON'
os
"no CSII
os
I
" " 0 TSII
Z1550 NINEIl" DC
1t9. . . •
2ntO
DSC 50.0
00000000000000000000000000000000000000000000000000
DSC 11.0
"no
000000000000000000
ZI"O S!XtZ OSC 1.0
0
Zl590 SVTYN. ONI 1
ZI.OO
ONI 50
DNI 19
'1610
DC
1.'
'16'0

,

........

Zlno CORIACOE OS
,-+1
DC
6.-000Z
'1640
-OOOOK
DC
Zl650
I •• 17012'.1611.1214567
J7012)4S6719IU4567
21660
OCO"
28670 SECTO DSC 2,0
00
28. .0
DSA SECTY
28690

DC

21700 SECTY

28730

DSC 1.0
0
DC
5.0
-0000
),1
DC
-01
DSA HEAOEII

287tt0

DC

,

'8710
21720

·

28750 CALBLK DSC
00
28760
DSA
28770
28780

·
DC

6'

&Sou

12 X

Z

U X

2

I

•

UOIO

50

lJiOO

II

lUll
&JIlt
U16'
Inll
n, . .

1
so

n190
&J191

0

"

1

•

nZI'

19

lUll
&JZ16

1
2
5 X

UZZZ

I.'

JJ2Z4
1

&JZZ6

5

nZ29
nuz

, x

nU7

I, '

n237
13UI

-2211
I
2

2.0

IU"

CALUK

UZ4!1

5

J3Z.7

I ••

na45
13246

I

UU2

1620

~ORTUII

11-0

13255

3

, X

IUfl

13260

28820

DC

·

I, •

nz.o
13261

-1"'0
I

OS
OS
DS
DC

I
5
5
2,'5

UUZ

nZTI
1327.

I
5
5
2

Z8I70 ONU

III 76

2

2 . . 10 FOUR

unl

115

I)Z67

DC
2,1
-I
DC
2,4
-4
21890 ENOllES DAC 19,ENO OF CO"PILATION'
END Of CD"PILATlON'
28900
DOlt CO 1600a
28910 XVVX
34
ILUA.701
21920
31
IU4A,Toa
28930
TRA
21940
28950
2"'0
Z8910
ZI. .O
21"0
19000
"DID
290Z0
29010
29040
29050
290.0

29070
Z9010

TCD

......

16002
16002
16016
160Z6
160Sl
1600Z

DORCO 1"'00

14100

DC

14101

-.

XUICDS TFM

BT"

XUICAI ""
H

TERTIARY LIII ....' . ILotK •
2,.
FIIOII."
F"OII
."NS

.-,-

.IL'"

.SUICOS
,SC",

.ILU

IT"

.""S

,"&6

.."

DSA

I,n

29090
29100

IT"

DSA

.""S
1.51'

"no

TD"
SM

SKiPSIl
I
'1'NI

I"'''
141U

IHII

'''011.''
"" '''011.''
1.51

XU8C12 TF"
-IT"
XUI128
If"
SCAlP OSA

14102

14150
"&62
14174
1411.
14Z02

.sUleu

.ILIII
.IUIUI

1'102
IUOT
14101
14124

,.
II
36
4'

,

.""
11

"
"

It

17

"UO

Z9Uo
Z91.0

l4ltl

IT"

DSA

I.SI

.""

.10

IUta
14"6
14176

14,.a

14,.,

14192

OU,.
OUZ4
0''''6
00000
ou"
0212'
OUSt
0212.

,

2
OOTOI
00702
00500
00000

-.22.

J410Z
J4Z0Z
00000
-9Z'rZ
J4UO
-9296
J417'
x
Z

-tin

-un
O!lUi
5

J.U.
Z

x

-"n
-2114

"

141. .
,I
.1

09201
0.Z08
00000
00000

2
16

IUZ4

1412'
aUlD
au..

7'

2
19X

lUll

XVVX

543

PACOE

'"ASI 2

DSA

SARCOSII
SUICDII
8COII
8NR

x

nzn

2181D

28830
21140
28150
28860

II

lI...

,

lI062
nou
1.06.

U2Z2
nzu

DSC 1.0
0
28790 CLL8LK DC
5.0
-0000
).3
Zl800
DC
-03
~ALLIK

PA'E

NASI Z

09."5

I

JU. .
2

-tin

-UI.
II
12

"

091.',

0""

01446

-tin
-un

00001
000-1
J.Z91

•

I

544

1.,0 FOaYllAH II-D
29150
2"60

If"

DSA

511FCT
511,51

2.110
291.0
2".0
29200
2.210 COAIl
29220
29230
29240
29250
29260
29210 COAIN
29210

TO
A"
IIIIF
TO"
10
TF
81

IIIIFUG
I
COAII
FP5"
U52
l
COAl"

TF

L

IIIIF
SF
ITM
DSA

COAl"
l
CAIIIDS
04,SY

II
292'10
SF
29300
TF
29110
29120 COSABI 10
293)0
BIIIF
293 .. 0
BIIIF
ITM
29350
29360 CD5A81 II'IF
29310
81'1F
293.0
CM
29]90
8Nl
TFM
29400
29410
B7
TFM
29420
29 .... 0 COSAI2 TOM
TF
29"50
29460
AM
2'1410
ITM
29 .. 80
OSA

Bl
29"90
29500 COSAI5 80
29510
TF
29520
B7
29530
TF
295"0 COU84 TFI!
29550 COSAS3 TOM
8TM
29560
29510
OSA

29580

,·.1'
,FXOIIFL
,I
,5X
,1
,FXollFL
,FP2

IU9I
lUI"

,10

,II

,K
,101

,·.16

0"
95
0 ..
COSAll
COSABX
COSA81+12
GIIIIIP
CDSABX
CDSAl2-12
0 ..
e+32
OP.
COUI2
OPX
SSI
1'140005
1'140005
PUTX
TF M, 1'140005,0"

,l
,99
,101
,FPSN
,FSN
,e+12
,FPSN
,101
,0
,22

,10

,21
,I
,AOCOM
,35

010
,10

, •• 16

COSAB8
•• 32
N40005

,FFRSM
,10

·.20
N40005
OPX
SS2
GTNS
I,ST

.SNF
,11
.1

,10

,·.16

SI!

,I

PAGE

P"ASE 2

,10

I .. " .
I .. '"
IU20
IU1Z
IU ...
14156
1"6.
1.. 310
IU.Z
1.. 400
I"H2
I ....Z..
1"416
1.... 52
1 .... 52
1.... 51
1.... 5.
1""10
1..... 2
1.... 9 ..
IU06
14511
145]0
14542
1455.
14566
1.. 51.
14590
14602
14610
1"622
14634
14646
14658
14614
146n
1461'1
14684
I .....
1"69..
lUO'
1471.
1'.126
I"nl
1"150
14162
14718
14718
1418J
1"18.

11

,

01916

.0

JUI ..
II
2

-un

n

II

••

...."

U
26

26

Jl

11

lJ

52
26
.. J

........11
4.
.. 4
14
46

16
49
16

15
26
11
11

.. 9
U

26
.. 9
26
16
IS

11

12

-un
OU15 oun
000-1
09""
IU. . 023n
0'''9 OOOOJ
.... DO 0411]
01015 022.8
1""6
0101' 02252
1 .... ,6 o.J21
01025 00000
Oil . . J .... 52
S •
2
-1011
-238"
01011
00095
01011
1.. 542
15010

. ".

01025
00000
00099
09]21
09659
09326
J4542
09659
09321
-0000
01]00
000K2

0"40
15010
14610
01011
1.610
0.1.3
14622
04193 OOOK!
01416 00001
0350' 06971
01'l0' OOOlS
01032 J;'U ..
5 X
3
-'1339
-1509
-1011
14902
1"126 0"765
03509 03945
14138
03509 12862
0"195 OOOJl
onn 00001
054 .. 6 JH18
5 X
2
-95"1
-9543
095'"

000-1

54S

1620 FORTRAN 11-0
29590
29600
2'1610
29620

29630
296"0
29650
29660

CM
BE
BTM
OSA

B,.F
TOM
BTM
OSA

29670
Bl
29680 COSA81 TFM
CF
29690
29100
BTM
29110
QSA

29120
29130
29"'0
29150
29160
29110
29180
29190
29800
29810
29120
29830
29140
29850
29160
Z9810
29110
29190
29900
29910
29920
2'9]0
299.. 0
29950
29960

29910
29910

10
TF
BO
TF
B1

COSAlX eNF
CM
BIIIL
S
81
COSA81 A
80
SM
TF
TF
TO"
TFII
111
FPtl
TF
"M
81
COAIU TOil
TO
IITM
DSA

ITM
OSA

ST
COABU

PHASE 2
,8

PAGE

, •• l6

OPX.N40005,O ..

14196
14808
1.. 820
14816

COABP
SKIPSIl
R"IIIS
I,ST

,101
,0

14816
14841
I"'"
1"8'"
1"'60
14812
14881

pun

C014A
SSZ

sx
pon

.133

,-.16

.11

.10

, •• 16

OP •• I'I40005.5X

FPCl
0"
COSAl5
1'1 ... 0005
COSU"
CDSAlI
04
COSABI
04
•• 20
04
COSA~5

I
GI
TCON
GTSBSII
GNIIP-l
GYES-Z4
11140005
OP.
CDSAn

.tALLS ..
,8UI'IK
,101
, TOFAt
,101
,0

,5.
,$X
.101
.1
.1

.0"
,I

,FACAD

,l6

11$11

,1
.IIXFUG

1,'At

.&1

,COAtIl

IIFLAG
PUT.
"".FACAD,D4

RPIIS

,10

,10

,II

148 ••
1"893
14. . .
14902
1"91"
14926
14942
14942
14941
1"'52
149'"
14966
14971
14990
15002
15010
15022
1503..
150...6
11051
15066
15071
15090
15102
l5&1"
15U6
lUll
l5UO
15151
It 110

lUll

,··16

II ltD
IIzaz
ltll ..
15210

.. ,.

"UO
IIU'
IIZ..0
152'"
lIZ5I

,

11

0'541 0-133
15190 01200
01032 JU36
5 X
3

,,4

-4193
-1509
-1011
1528" 09321
0.661 00000
0"'16 J ......
5 X
2

1"
"6

IS

U

..,

16

31

17

81

-9541
-954J
112 ....
01411 OOOJI
Olln 00000
070J2 J49"2
5 X
3
-4193
-]509

u
26
"J
26
49
44
I.

....22

ft'21

•5

II
26
26
11

I'

4'

26

...

l6
It

n

n

11

-un

15158
'07011
1"'4
0]509
14111
15066
01011
lt066
01011
It018
01011
1.....
09541
06115
06969
010a6
0!J939
060ZZ
0350'
0'191
IU50
0.111
0.7Z1
01052
5

093J2
09356
09321
03915
09327
-0000
OUOO
02311
02311
09327
000-1
09541
01011
oociOJ
JU9I
05 ....0
000J6
OOOOJ
0 .. 715
J5210
x
J

-9]39
- '....0
-70ll
01416 J52t1
5 X
2

Uti

16Z0 '01'1'" 11-0

'",n z

IOAGE

lUll
lun
2 ••• 0
10000
)0010 toup
]0020

GNI'

, •• 12

1126'

11

tOlln

IT"

ONS
I,FAt

,··1'

151"

IT"
OSA

100]0
TO"
TO
10040
]0041
INF
)0042
80
)0043
87
IrM
10044
)0045
S"
SF
1004.
10050 tDAIXT TOM
87
10060
10070 GTFIN TO
AM
10080
)0090
TO"
)0100
SM
10110
TF
10\20
87
lOUD
DOIG
30140 IUUI
14
]1
10150
TRA
10160

FSW
FlAGSW
tOAIlT

·.20
tDAUT
GNIP
GlUE
GlUE
SKIPSW

EXIJ

GUSE
GlUE
GlUE
GUSE
GlUE
GUW
16002
8lK",701
8UlA,10Z

,I
,UfL'G
,FPSW
,CALLSW

,*+11

,,I
,0
,RIFUG
,)
,I
,4
,TtOW

112 ••
IUOO

,II

,.
,.,.

,10

,6
,10
,10

30170

TCD

10110
30190
)0200

DOItG 14100
TUTURY LINKAGE 8LOCK 1
2,1
DC
-7
,IU5
T'M 'MON+)5
,SUBCOS
BTM 'liON
TFM 'IION+)5
.ILKIo
• SUlCAl
8T" FMoN
TF
,I
""000"
8
CollP
TFM FIIoN+)5
,8LKS
,SUI128
&T" FIION
OUTPUT INITIALIZING I ",srautTl ON FOIt 00 CODING AND PLAtE
INOICIES ON DO LIST
,10
AM
tI
""000"
,101
80
COllC
8TM GTNS
, •• 1'
OS. 1'1.0004

30210
10220
)02)0
30240
30250
30260
10270
30280
)0290
)0)00
30310
30320
30130
10HO

vuetDS
VURCU
YU8tl2
VU8128

......
C012P

IUUI

30350

os.

12

1031>0 CDllC

AM

OOREF

IUOO
IUD'
IUDt

lUll
lUIO
In.,
1515.

lUtZ
11374
IU,.
15191
1,.10
15411
15430
15442
15454
IH66
It411
16002
16002
1601'
16026
160]1
16002

11
4.
Il

,10

-'UI
0 . .40
In ••
0141"
~

.."
zt

4J
4'
11

IZ
12
15
49

zt

II

"

U
26

n

H
11
]6

49

HU"
J~]OO

X

2

-9141
-'UI
0')26
04195
In"
lU62
ln91
0"40
0 . . 31
0'6)10
0.661
02'48
0'6)10
09637
096lP
09637
O.U,
06n.

JU14
000-1
00000
00000

0.256
0.256
00000
00000

00701
00102
00500
00000

OOOOJ
041n

D.",.

OUJZ

04735
000-]
00001
000-"
0696.

14100
14101
14102
14114
14126
14UI
14150
141"2
1.174
14186
1
03750

OOOKI

547

1620 FORTRAN 11-0

30370
30380
30390
30400
30410
30420
304]0
30440 DFLMS

,-

C
8NH

OoREF
CDUE

30450 C012E
30"60
)0470
30410
)0"90
30500

RCTY
WIilTY SCNT-]
WATY OHIIS
BV
.. \2
B1
MONtAl
OAC 14.00 TABU FULL'
DO TABLE FULL'
TF
DOIIAX
,OOREF
AM
OOMAX
.21
TF
DOREF
,Tl
AM
11140004
tI
8TM GTNS
,e+16
DSA 1'140004

30510

OSA

SL

30520
30530
]0540
30550
30no
10510

TF
AM
TF
AM
BTIII
DSA

J40004
J40004
J"0004
11140004
GTNS
N40004

30SI0

DSA

SI

TOIl

30590
30600
30610
]0620
306)0

ITN
OSA

TO"

SSI
SSZ
SKIPSN
51FCT
SL

30640

OSA

1140001

]0.50
30660

TOil

8TII

OSA

SaFtT
Sit

PAGE

PHASE 2
14256
1.21>8
14210
14292
IUD.
1411"
1432'
14)]1

.GBASE

,10

••

,10

14]64
14176
lUll
14400
14411
1442.

24
47

..
).

3'

19

"'I

26

11

21>
II
17

14421
14433
, DOREF

"

.SL

,2

, •• 16

.10
.1>
,10

14433
144).
14•••
14451
14470
14412
14491

,I

,I

'''I'

! •• ,.

14101
14504
14'lI>
141U
14940
14511>

21>

11
26

II
U

"

l'

17

-21"5

1"61

-3619
OltT6

l4ItZ

17

.

30. .0
106.0

IT" 'UTI
OSA

TF

10700

DSA

...0001

14601

1KOOO3

1460'
1.610

14111

",

1,6"

14600

OSA

•

x
~911

X

I

-U72
, I

16111

OSA

lono

01476 00001
01477 00001
096. . 00001
0)916 J4'"
5 X
1

I4IH
••Hl

)0610

.."

-2399
09592 03750
09592 000-9
0959K 0239.
0350. 000-2
J4491
05 . ."
5 X
1

-2172

IS

14171

,

0)75~

-3'504
5 X

14171

1140001

03750
OOOKI
0'5'"
01504 000-1
05446 J4428
5 I
1
09587
09581

-"04
5 X

14491
14101
.1

13

03150 091>37
143"4 01100
00000 00102
09670 00100
14337 00100
H)l8 01"00
00796
I4X
2

17

-:t4"

,•

07012

J4600
I

-.IU

9 •

-:t41t
• I

5411

lUO'OURAIl 11-0

,.

5111".

,0

,:,a

DSA

J"OOO'
J"OOO'
J.ooo.
114000.
GTIIS
111.000.

J0190

OSA

11.0001

)0100
)0810
lOUD
10no

IF
All
BTII
OSA

J.OOo.
114000.
CiTIIS
11.000.

JO,40

OSA

S~

JOUO
lono
JOl.0
10150
J0160
)ono
101.0

TON
SII

TF
All
All

""

)0150
CII
)0160
8E
)0110
til
)0880
811E
10890 N.OOI' All
,Tf
JO'OO
10
)0'10
19·20 tDUA 8
)09]0
OORG
J0940 II.OOIS All
)0.50
All
8TII
)0'.0
)0910
OSA
10.10

OSA

S~,

",aoco"

.A
• 10

1l2i •• SEIII tOLOIl

116001'

n.

100 ••• RIGHT ,aUIl

N.OO85
J4000'
J40DO.
CD1U
CLUR
--)
J .. 0004
N"0004
GTNS
""0004

.4
,ZEIIO"
.101

.10

.".1

.10
.10

••

, •• 16

114000)
.N4000)

J0990
J1000
)1010
)1020
)1030 XTTX
)1040
11050

TF
8
OOllG
OOIlG
3.. ,

31060

TeD

11070
)1010
31090

DORG 14100
TERTIARY 1I11KAGf BlOCK I
2.1
Ot

31

,10
,A
,10
,10

, •• 16

.N40001
,I
t··16

J"DOO"
tD12A-12
--]
16002
IILK1A.l01
8LK",102

•6

TU

-.

)11 00 lUBeos TFII
BTl!
11110

XTU

FllaNoJ5
FiliON

"'40001

ll360
)1310
)1310
313.0 COUX
ll4aO
11410
31420
114JO
11440
11450
1I4AO 11600.2
11410
114.0 11.0095
11 ... 0
11500
31510

TON
8
ODIIG
TOil
BT
SII

SSZ
N6009,
--,
CKSN
OOEII
DORff
OOREF

tM

OSl

11120 IIA0099 os
11510
OSA

""000'

31540
115.0
U!l60

.1
,0
.DOIR-I

.al

TF

TON
IT..
osa

,10

.OOUSE

,.

.Il
.1

0"

N40001
....oooa
"AOO"
S.FC,T
NAOO99

5111

-no.
5 X

1.6.)
I. . . .
14106
16111
161]'

.."

.1114000.

-

,

11
11

-no.

I.n.
14140
1.152
1416.
I.n.
lUll
14.00
148tz
1412.
"'IlZ
1"812
148".
1'856
1"812

-u••

5 l

I.
46
I.
41

11
26
U

••

OU99 0-132
I"''' DilDO
Dun 0-10'
I . . U '01200
09'1'2 000-'
0959K 09]55
Ill2Z 09121
026.0 00000

0959Z
0150"
11 '0'''46

II
11

,

000-"
000-1
J.112
x
I

14812
l48n

-]50"
5

14111
14811
14890
14891
16002
16002
16014
16026
160JI
16002

-14.9
0.,9K
148U

OJ4. .
00000

O.ZIO
09210
00000
00000

00101
00102
00500
00000

26
.9
J.
11
)6

'"

x

2

I.IOZ
1411"

16

14126
14UI

1A

n

02359
OU2.

IH~O

n

"

1416Z
14114
14186

11
41
49

1"19'
14210
1422Z
14234
14266
142511
14270
14212
142.4
14306
lUll
14330
14142
14154
,14166
14182

2A
15
Z6
15
U
Z4
41
26
11
26
I.
15
46

14311
141111
1••00
1• .ae
1".01
14420
14412
I ....

"

11

I.UA

It

••I.
n

1Z

4'

16

14500
IUU
..U.
14540

..."

IU'"
I"'''
145"
14''''

"!Il'

1..' "

0215.
aU24
02359
023Z4
14222
141911

549

IS

-'Z4I
J4U6
-9212
J4UO

Dun
00000

09"6 09656,
0.U3 00000
09631 ' 03150
04105 00001
0.661 00001
a9596 031514401 OUOO
0)499 03150
03499 OOOJ?
OU99 034.R
02399 0-000
00001
0 . ."
"'4" 01200
09651 OOOKI
01916 J411Z
5 X
1
-U99
5 X

.'"
....."".. ..

'''''56
"4"
,10
.10
,10

-'224
J·uoz

PAGE

14540
14540
1••'"

ooo

..,

0"'. OJ.89
DUO• 000-1
05 ••• J.n.
5 X
I

I.n.
I.".

,..
SSI
,I
'UTI
0" ,III4000t ...
I

."

-]

U

14382
14381

IL
EXIT"
I
tDU"
DaR' --J

""
""
""

I ....
1.69)

PHASE 2

......

OSA

-J""
i t 0 . . . 1 00000
II ott., 000-'
ZA ·ott•• 06911
11 0. . .2 000-'
11 ono. 000-2
11 01. . . J . . . .
5 X
I

1"101

.ILK6
31120 lUICAI TFII FIION+l5
BTIII FIIOII
11130
.SUIICAB
.IILK?
111<00 lU8tll T"" FIIIONo"
BTII 'NON
,SUICU
3Il~O
31160 ZU81Z1 80
COUIIP+Z.
.101
11170
8
CDU8'
THE FOll'ONIIIG OU"UTS THE TEST AT THE END 0' A DO LOOP
31180
,n
)1190 CUUIP TF
T2
TOil DOSW
,0
3IZOO
TF
GBASE
.0Ollff
11210
TOil CKSN
312Z0
.1
TOil SKIPSN
,I
31210
11240 CD12Y C
T2
.11
,DOllE'
11250
8NE CDUX
31260 COUO TF
N"OOO)
.DOREF
_ .11
)1210
All
N40003
.10
TF
SL
312110
."4000)
.11
SL
11290
eN
.1
".1
11)00
TOil SKIPSII
11600.2
UllO
8E
TFII OPI
11)20
,21
,10
, •• 16
ITII SRFCT
11330
31)40
DSA SL
lU50

1"610
1"612
I . ., .
lUI'
1. . . .
1. .60
1. . 12
1.611

14100

.ILIt
.suecas

nzo FORTRAN 11-0

,.,£

'"ASI I

12

Z6

I?

-1411'
01417
IUOO

00001
00000

0 •• 05
"'''A
OU50
OUsO
I ••••
14251

oaooo
I.in
OOOKI
-JIlO
onoo
oooao

0. ."
01419
OJ. . .
1""0
OJ"A
!i

000-1
as. . .
J ....O

OOOJI

DOO~I

•

,

JU"O
'0

••

15
11

-no.,
OJ.?A 00001
010JZ JUl.

s•

-"!II

-ita.

)

55"

11>20 FORTUN 11-0
JU70

uno

3I~90

U600

A"
TF
8T"
OSA

31610 N60101 OS
)11>20
OSA
)16)0
31640
31650

1IUO

31610
31680
)1690
31700

)1710
31720
31130
31740
11750
)1760
11710
)11.0
31790
H800
H810
H820
HUO
11840
3\850
1181>0
31810
31880
]1890
U900
11910

TF"
8T"
OSA

514
TF
roH
8T"
OS,

N4000)
N60101
SIIFC T
N60101

,4
,N40003

IUe.
Iun
14'"
IUIO
146U

010

,.+,'
,.

N40001
SS2
,II
pun
,·+1'
C,N40004,N40001

114000]
,I
N40004
,N4000]
,I
SSI
pun
, •• 16
81114,1140004,1101100

SH
C

DOREF
DOREF
N60107
TF
N4000]
AH
11 .. 0003
DOREF
C
8E
COl2D
111>0 107 80
-+24
TF
OOHF
EXITA TOH 5KIPSW
"0
COL""
CLEAR
B
DDRG ·-3
DOER
RClY
WIITY SCNT-3
wATV DOHES
TOM ER5WT
BS
DORG ·-9
DOAG 16002
X55X
34
8lKS',701
SlKS,,702
uno
38
)1930
TR'

,21
,DOUSE

,10

,,1011

31940

TCO

11950

OENO PASSII

,10
,611

,CKSW
,GIASE
,0
tIOI
,5

,I

X55X

17

~

000-4
03499
J41>21>
X
I

14626
lU26
14631

lUll
IUlZ
14644
14660

-)419
07477 OOOJI
070]2 J4660
]
5 X

14724
14729
147]4
141)6
14741
14760
14772
147.4
14796
14808
1.. 820
14832
14844
14856
14868
14816
1"816
14888
14900
14<112
1"924
14926
16002
16002
16014
16026
16038
16002

,10

II
U

-)419
0)499
14626
03976
J46Z6

14660
146U
14670
14672
14684
14696
14708
14724

~E

,DOREF
,21
,N"OOO]

.

PAGE

'HASE

a
5

"

17

12
26
15
17

Il

24
U
26
11
24
.. 6
41
26
U
U

.. 9

H
38
39
15
42
305
-)504
-]489
01499
0]504
07476
070]2
5
-960]
-3504
-9601
0)750
0)750
14120
0]499
0)499
0}7514282
1.. 8 ....

000-8
0)49R
00001
JHH

x

]

09661
12366
021>140

OOOKI
0)810
01200
03750
OOOKI
0)49R
01200
0 .. 805
096)7
00000
09321
00000

00000
09670
09429
09663
00000

00102
00100
00100
00001
00000

09304
09)04
00000
00000

00701
00702
00500
00000

0)7~0

02400

551

1620 FOIlTUN 11-0
'CCEPT
ACCTAP
ADJUST
'OTEMP
CAl8lK
CALL8K
CALlSW
CA~ORT

CANOS'
COl28P
C014EN
COl4Fl
CDlltFV
COl4JG
COl4JW
COl4NA
COI .. NC
COI"NO
COI .. NR
COI4Rl'
COl4RM
COl4RV
COI .. Sl
COl4SV
C017SC
COl7n
COABXT
COeALL
COCAlP
CDlINK
CDSIFP
COSAal
COSAB2
CDSA83
COSAB4
COUB5
COSA87
COSA.I
COU8X
COSA8Z
COSSAB
COSSSI
COSSS2
tDSSS3
CLL8lK
COO'R.
CDDEl2
COOEl ..
CUDEI'
COOEIl
COOEIA
CDOElS
tDOEIC
CODUO
CODElE
CODEIf

03185
03195
03550
02394
13239
13241
09332
09044
08980
14191
12442
1018 ..
10690
10980
11002
11892
12246
12502
1111 ..
10920
11126
10900
10960
109.. 0
1"014
14031
15398
10410
12888
12900
15430
14494
14622
14150
1473.
1 .. 69 ..
14542
14902
15010
15066
10290
1'0916
1 .. 956
1 .. 820

13l'2
11662
10110
10194
102\1
10242
105'"
10944
110]6
11531
11111
11692

CODElG
COOHH
CODEIP
COOElX
CODEl'
CODEl8
CODElC
CODno
COOElE
CODElP
COOElX
CODElY
COOEll
COOEU
COOHP
CODEU
COOE68
CDOUP
COOElB
CODElC
COOETP
COOUP
coonA
COOEll8
COOE9C
COOEIIP
CDOEPA
COOUS
CDOMAT
COMXSW
OIOENO
ODUSE
ENO"ES
EOJENO
EDJRIT
EDJSTN
EOPETE
EOTONY
!RMOOE
FCTlGI
FCTeNO
FCTR.TP
FLAGSW
FL TDFX
FULLCK
FUL"ES
FxORFL
FXTDFL
GCLEAR
GETIU
GIIUGE
GTiLU
GTIUI
GT'LCl
GTSISN
HUDER

11562
10716
104]4
11216
12512
126H
12190
13038
1315.
122\8

UZH
12.02
1327 a

I)""
1))10
10644
10592
10 .. 38
120U
11622
11214
1)666
12656
1255.
12806
12190
11880
10266
12514
09662
12161
03110
13281
IHI6

lUTZ
12672
12n2

12121
12014
lonl

02111
1..... 4

Dun
03155
ol>3r.

o... n
oun

03150
06190
OUI.

uno

05292
05291

au"
01026
DUll

PAGE

PHASE 2
INOREC
INseu
INSETB
J~DOO~

lCOMAO
lENGTH
lSTYPE
"NClOV
"DOMES
MONC'l
N00565
1100716
N00796
NO 1100
NOl200
NonOD
N01495
N\3062
N13063
N13089
N13092
N13133
N141RM
N20000
N20001
N.. OOOO
N.. OOOI
N40002
N40003
1140004
N40005
1140006
N40007
114000.
1140009
N40010
1140011
N.OO12
N60001
N60009
N60010
N60013
N600H
N60015
1160016
N600lT
1160011
1160020
1160021
1160022

12183
11193
11211
09592
\3011
022~8

08444
064]4
09403
00796
13432
13431
09668
09601
09621
09614
\3421
09521
09522
09364
09369
09316
\3 ..49
03410
03545
034 ...
03489
0)494
03499
03504
03509
03514
03519
03524

03519
0]534
03519
03544
10"'"
10131
1016l

1I .....
11341
11186

1113.
11664

11932
12)08
ll411
124).

...oon

12690

N600l6
N600U
N6001l
... 003 ...
11600]5

1219l

12928

13112

U"
un.. .

N600H
N600H
N600H
N60045
N60046
N60048
N60049
N60072
N600H
N60085
1160092
N60095
N60099
N60101
N60101
N60182
NINER"
OUTSEO
PARCNT
PASS II
PRE8UF
PUNTAP
PUSTSII
PUTl78
PUTl7C
PUTl7I
PUTCAO
PUTOIF
PUTEST
PUTlIIS
PUTNXT
PUTPCH
PUTXl2
Punl7
RECORD
REMGET
RFLSU8
.FXSua
RG.NUl
RTNAHE
RXFlAG
AOCDW
ADD
AOSL
A"
ioNS
UTOP
ATVPE

IAL
ICDW
10
If GAD
IE
IGNST
IGNSV
II

10652
10120
10850
10910
11066
11430
l1all
12844
14188
14832
14476
14~00

14~40

14626
lU20
1"~06

130.. 9

on ....
\Zon

02400
01165
03815
02294
I .. no
14322
1423"
01528
01604
07188
01201
01904
01001
13)62
13118
UUl
OUlI
03160
0]165
0"94
09531
OU)5
06977

09192
05312
09)U
0231.
03925
01110

01 •• '

nU2
09623
Ol2n
096"

1699.

I"'"

09632

87
BLANK
8lKlA
8LKI
BlK2A
8lK2
BlK3A
8lK3
BU'"
8lK4
BlKSA
BlK5
BlK6A
BlK6
UKIA
BlKl
SlKSA
BlK8
Bl
8NF
BNH
8NR
8
8TM
8T
8UF I
8UF2
8UF3
8UF4
CAllX
CAllOS
COli 7
C012'
C0128
COl2e
CD120
COilE
COI2P
COllX
COl2Y
CDIU
COI48
COl4C
COI.E
COL""
COI.P
COU,
COIlA
COl11
COUC
COl10
COIlE
cOin
COI1G
CDI7H
COl1l
COL JJ

09356
09116
09128
09\60
011152
09U4
09116
09208
09200
09232
092H
09256
09248
09280
09272
0930"
09296
09609
09625
09603
13214
06982
06980
09)82
08460
015)5
08610
08685
04155
088<\6

1]732
14824
10314
142 ....
14282
1.. 36"
141'1'
1440e
1.. 258
1121.
11718
11632
12122
12366
104]4
13720
12920
IBI2
13UO
13110
133\0
1)221
U9)O
13910
\J606
13626

55f-

1620 FORTUN II-D
CD 11K
COlll
CO 1111
COl7N
COUP
t094
eD95
CD."
C091
C098
CD99
tOUP
COASU
CDAlW
tDUl
CDUiT
CDPtH
CDSIS
COSH
CDSIV
CDSll
COSSP
CDxlT
CET
CF
eGCOW
CktOW
CkFIIT
ekSW
CLEAR
CM96
CM97
CM98
C~qq

CM
eOOEO
eOOEI
COOEl
COOH
CODES
COOE6

coon
COOE8
COOE9
COOET
COOOA
COMSW
C
CSW
VI
02
03
04
OFLMS
01
OJ

13176
137'"

13514

116."
12B"1
IIB44
11832
11532
11520
11464
11476
15214
15190
14416
14361
13031
12'60
154'4
15224
14.BB
15450
14202
IH"2
13298
O.3H
12188
09323
03138
04805
02640
12832
12802
126'02
12666
09607
03472
10002
1002"
10050
02968
1007'0
10098
10122
10146
08438

I23H
04151
09605
13042
06987
ObQ9 7
07007
07017
14337
06992
07002

OK
DIISW
DDA
DOER
DOMIX
DOMES
DOREF
DOSW
OUV
Dl
DV
ENOST
EOJG
EOJJ
EOJP
EOJ
EOJWG
EOJW
EOROD
ERSWT
ETVPE
EXIND

EXIT'

EXIT
FACAO
FACM2
FAt
FANS
FBASE
FCODE
FCTlI
FCTl2
FC Tl3
FeTiA
FCTlB
FeTiC
FeTID
FCTlE
FeTiF
FCTlG
FCTlH
FCTlJ
FCTlK
FCTlL
FeTlP
FCTl
FCTRT
FeTSW
FETCH
FFRSW
FINO
FIVE
FlAO
FLOVO
FLEXP
FlG2

HG3
FLG4
FlGRM
FUIUL
FLROV
FLSUB
FlV
FMON
FORC8
FORce
FOReE
FOUR
,PZ
FPel
FPSW
FPSWl
FlEQI
FREQ2
FRFAt
FRV
F
FSW
HI
FTSW
FTVPE
FXAD
FXOVD
FXEXP
FllIUl
FXROV

093])
un2
0.121
09125
03910
12104
12000
11964
10]16
12241
12])2
12940
09663
03.05
09334
1. .44
02.48
03'40
0.630
095)1
0'0614
03611
04679
10602
11492
11242
10850
11388
11420
11432
12064
11344
10756
10930
11694
11400
11886
10438
10338
10362
022.3
12887
04165
12877
09533
03720
03830
03170
074"8

FX

FXSU8
GAODI
GA
GBlSE
GCNT
GCOW
GETSY
GETX
GFLAG
GFREE
GI
GLNO
GNONE
GNRP
GPUTA
GPUT
GS81
GTCl
G1FIN
GTJW
GTHS
GTPT
GYSel
GTST
GVES

.

PAGE

PHASE 2

01012
04150
09515
14171>
09511
0'429
OH50

01411
01501
0.424
031"0
03140
03820
Olto.
023H
04632
04692
04310
13218
02291
15151
09,.,'
09660
13215
1])81
03930
04542
02250
0.326
046'1
04145
03.00
03125
03835
03715
03165
038'05
03115
03825
06568
06591
0'637
06117
0683'
05258
05210
06'06"
0"592
06735
093.0
06150
059'00
06'054
06298
11698
06740
15'018
06538
054'06
060'4
06848
0"628
060'06

H
HTYPE
INPUT
INSET
101
102
103
lOCAL
10END
10GT
10PT
10RT

10
I
ITVPE
IXI
JAV
J
JNG
K

II
L2
L3
LNGAO
lNG
lOCOM
l
LSTlO
LV'L
LVP
LV
MAf
MM
MNS5
1100
IIPV
NI
N2
N2THO
NAIIE
NEXT
NGFRE
NLHG
NM22
NDlVP
OBASE
OHE2
OPGT
OP
OPSR
DPSX
OPTI
OPX
OPV
OP1
PI

P2PTR
PAR
PIINT
P
PUlitH
PUll 1
PUll
PUT2

0.3'1
OJ'15
O'~71

1111'

0.121
0'32'
0'32'
00116
03950
00. .6
00U2
00 . .'
0]'45
09541
OJ191
OJ'"
01361
09'"
02UO
02252

pun

PUTA
PUTeA
PUTtB
PUTt
PUTD
PUTGT
PUTRM

purr,

PUll2
PUTlA
PUll8
PUTXC
PUllO
PUllE
PUllF
PUTlG
PUllH
PUTXI
PUTXJ
PUTX
_UTXl
PUTXY
PUTXl

onoo

02184
02921
OUIl
09640
02262
01025
01301
0411)
12155
09567
03965
09nQ
09511
09371
09380
022))
022)8
1)442
13461

0
OlP
ReTY
READ
RECLG
REDO
REGSW
REP I
REP2
REP3
REP4
REP
RFLlG
RGR'
RGRF
RGRI
RGR
RGRS
RMHS
RMOO
RMSW
RPNS
RSNFL
RSHFX

084~"

06660
084Ji
13444
OH46
02625
13216
0)691
0231.
03596

oun

03103
04193

12851
09658
0"51

onu

03UO
03135
09551
03105
14216
01710
01715
011.0
01212
01241
01212
011'2
OU]6
07)21
01"6
01 . .4
1)266
010'2
01116
07261
0731>4
01400
01424
01664
011ZB
01911
01164
07032
08402
08410
08415
09562
15072
0.384
03745
02243
0)'10
09)36
1317.
\3309
14013
03730
03190
04125
05U5
05122
055B4
OSS06
05757
054 16
0''000
04185
05476
03870
03875

553

1620 FORTRAN 11-0
RSW
RTAO
RVAL
RV
RVSN
SBASE
SCABP
seNT
see TO
SEeTY
SETAD
SF
SIX'l
SK

SLASH
SLC
SlNG
Sl
SM

SOLNG
SRFCT
SRGT
SRNX
SR
SRSY
Sst
SS2

553

S54
SSUIG
SSSW
Sf
SUBI
SU82

suu
SUB

09337
09572
0'0715
0'577
093.7
04371
14202
0.673
13216

SU8SW
SWF
SX17
SXF
SX
SVl7
SV
TI
12

13224

n

03471
09341
BIl8
10849
03885
11012
08<021

TBASE
TCOW
TFM
TF
TMAX
TOFAC
TRACE
lSW
TYPEA
TYPE
TYPET
TYPEX
UFSTR
WlTY

02399
09394
08433
03976
04098
04092
02172
040"7
07'076
01"'7
07478
071019
08429
0.325
09543
03180
03790
03800
09371

W

WW
XOO.
ICTI
XeTRT
XDUB
IODEI
XODE3

XOOH
IOOH
lODEl
10DEI

09))5
12862
13119
0.582
02377
13909
02384
07022
095.6
09656
02303
0691>9
0933'
0'H5
06972
03935
03740
13043
08826
03755
08425
08781

02263
09386
02240
022'6
16002
10338
10362
10314
10002
10026
10050

10014

PHASE

PAGE
XOOE.
XOJ
XSSX
XTTX
XTYPE
XUUX
XVVX
XWWX
XXI
XX2
XX3
XX4
XX5
XYYX
XUX
yeTi
VeTRY
VOl28
VOOEI
VODE3
VODE4
YOOE6
VODEl
VODEB
VODE'
VOJ

IOl'o6
10386
1"002
16002
039Z0
16002
16002
16002
14602
14536

lCTRT

10~$>

lODE"
lOOEl
10DE8
10DE9
10J
lRII
SAO COW
SARGSW
SAveow
SETFCT
SETHMT
SKIPSW
SRCFFl
STEMPI
STEIIP2
SUB128
SUBe12
SU8eA8
SUBCOS
SU8eow
SU8PSW
SVTVNB
SWAREA
SVSC4l
TVPEll
TVPECN
TVPEtR
rvPEU

10128

10114

TYPEU

ZER04
lEROS
lER06
ZERO
IODEl

09355
09)56

TYPEIIZ
TYPUM
USE OCR
MUII2I
MU8tU
WUSC"
WU8COS

lcn

10098

lO~E)

10122

lODE"

14410
1'0660
148'0
1601"
16002
10338
10362
10314
10002
10026
10050
10014
10098
10122
10146
10386

1033.

09357

0935'
10002
10026
10050

10074
10098
10122
1014"
10116
Inll
1I2U
13262
01499

03216
03402
09661
0413.
09330
09331
14114
14150
14126
14102
13261
04115
13119
OUll
00415
13401
08111

on96
1UU
14411
U1U
01311

12'93

I-un
141'0
1412'
14102

lOCALL
XDSSA8
XOOEI2
XODEI4
XODEI5
XOOEl7
lODESS
XUBI2B
XUBCI2
lUBClI
lUBCDS
YOCALL
VOSSAB
VOOEI2
VOOEI4
VODEIS
VOOE17
VOOESS
YUBI28
VU8el2
VUBCAS
VUBeos
lOtALL
10SSAB
lODEl2
lODE! 4
lOOEl5
lODE 11
lOOESS
lUBI2I
lUBel2
ZUBtlB
lUBCDS

89
10410
10290
10170
1019'0
10218
10242
1026"
14114
14150
14126
1H02
10410
102'0
10110
10194
10218
10242
10266
IH14
1'ol50
14126
14102
10410
102'0
10110
10194
10218
10242
10266
14114
14150
14126
14102

END OF ONE AssellSL Y.

554

1620 FDRTRAN II-D

SUBROUTl NE S

SET. I

555
/

1620 FORTRAN II-D
00010
00020
00030
OD040
00050
00060
00010
000.0
00090
00100
00110
00120
00130
00140
00150
00160
00110
00180
00190
00200
00210
00220
00230
00240
00250
00260
00210
00210
00290
00100
OOJlD
00]20
OOHO
00)40
oouo
0016D
OD310
001,0
00390
00400
00410

IORBC
IOPT
10SK
10GT
ERRET
IORT
lOCAL
MONCAL
DID

...
F
K

PRDGST
COIIADD
'"
N2
II
REClG
ENTLN
ENTEXP
ENTSCI
ENTSC2
ENTSC)
ENTF ID
ENTREC
ENTFET
ENTSWD
EN TORR
ENTOED
ENTCOS
ENTSIN
ENTAlN
ENTSQT
ENTAIS

•••••
STOP

00420 RECIIK
00410 OKIUPF
0".40 FAC
':'0450

.

"

DS
12
as
31
OGH
DS
,SAVE-IO
GAil
TAFE
DS
,SAVE -10
IIISA
,.nA -21
os
HISERR DAC 6,EII E •
Ell E
,IIUERR
Dono DUD"
OS
00460
00470
00410
004'0
00100
00110
00520

SAVE
lETA

SUBROUTI NES

.

PAGE

SET I

SU8ROUTI"ES
IUD FORTRAN II-D
101lT ENTRY POI NTS AND CONSTANTS
DS
.52D
DS
,532
,554
OS
OS
,566
OS
.602
DS
.565
DS
,116
OS
.196
OS
.116
1620 FORTRAN 11-0 IN CORE AREAS
COMMUNICATION AREA
OORG 2218
OS
2 .. FLOATING POINT 1I0RD LENGTH
DS
2 .. FIXEO PDINT WDRD lENGTH
OS
5 .. SURTING ADDRESS DF IIAINLINE PROGRAII
OS
5 .. S"'RTlIlG ADDRESS OF COIIIION AREA
OS
2 .. NUM8ER OF 1I0RDS IN lOGICAL RECORD
OS
5 .. NUMIER OF lOGICAL RECORDS
OS
2 .. WORD lENGTH
DS
30. RECORD lENGTH
OS
5 .. ENTRY ADDRESS TD LOG SUBROUTI NE
DS
5 .. ENTRY ADORE 55 TD EXPONENTI AL SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO SINGLE SUBSCRIPT SUBROUTINE
DS
5 .. ENTRY ADDRESS TD DDUlLE SUBSCR I PT SUBilOUTl NE
OS
5" ENTRY ADDRESS TO U IPLE SUISCR! PT SUBROUTI NE
DS
5" ENTRY ADDRESS TD FIND SUBROUTINE
OS
5 .. ENJRY ADDRESS TO RECDRD SUIROUTI'IE
OS
5 .. ENTRY ADDRESS TO fETCH SUBROUTINE
DS
5 .. ENTRY ADDRESS TO SIIITCH D SUBROUTINE
OS
5" ENTRY ADDRESS TO AR.AY SUlllOUTINE
OS
5" ENJRY ADDRESS TO DISK END SUBROUTINE
DS
5" ENTRY ADDRESS TO COSINE SUBROUTINE
DS
5" ENTRY ADDRESS TD SINE SUIROUTINE
DS
5" ENTIIY ADOIIESS TD ARCTANGENT SUIIIDunNE
OS
5" ENTIIY ADDIIESS TO SQUARE ROOT SUBROUTINE
DS
5" ENTIIY ADOIIISS TD AlSOLUTE SUIRounNE
OS
10"IIUERVED fOil ENTRIES TO ADOID SUBROUTINES
COIIIION IIORK! NG ARU S
DAC 5. STDP'
STDP'
,STDP.I
OS
OSS 29
OS
60
DC
1

00520
00532
00554
00566
00602
00565
00116
00196
00116
02218
02219
02221
02226
02211
DUn
02231
02240
022U
012 . .

onn
0225.
0226)
01268
02213

DUll

oun
02211
OU9J
02291
Dna)
0210.
02113
DUll
onu
on9J

0
0
0
0
0
D
0
0
0

2
2
5
5
2
5
2
3
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
5
10

02391

5

02401
02404
oa49a
02493

D
29
60
1

02565
01601
01604
025"
02531
02515
02607

72

02607

0

JI
1
a
a
a
6 X

5511

11010 FonUII 11-0
005.0 II
OOSSO DUO
00"0 . . . . .

oono
OOSIO

005.0 IUD
00600 .st"
OOUO •••••
OOUO FX9
OOUO FXl
00640 FXl
00.,0
00"0
00610 9SPF
001>10 lN2
OOUO lN4
00100 IN.
00110 lNl0
00120 lOGE

Dono
00140 ONEZ
00750

os
os

SUI.DUn ... ,

SIT 1

,.-,

DUll
OUI?

10

1620FOIITII... 11-0 FLOATING 'OlllT COII"II"
DC
40
,0
-000000000000000000000000000000000000000
OSC 40
,0
0000000000000000000000000000000000000000
DS

onn
OUU

,-

oe

0276'

ontl

2'
,99.9999••999999••99999999999
R9••99999999999999999.999•• 9
1620 FOIITIIAII 11-0 FIXED FOINT CONTANTS
DC
10
,9999.99999
R999999999
OC
10
, 0000000000
-000000000
DC
10
,0000000001
-000000001
CONSTANTS FOR RElOCATA.LE SUIROUTINES
OC
Jl
.0
-000000000000000000000000000000
OS
.--2
DC
31
.06931411.055994530941723212145.
-6931471805599453094112)2121458
OC]1
.13.629436111919061804. .42.2916
J3I62943611 19190618134464242916
DC
Jl
.201944154161913592125169U6.n5
K019441541619835928Z51696364J 15
DC
31
.230251509299.045. .4011991.5 ••••
K302585092994045. . .011991.5461.
DC
30
,43429••• 1903251821651121911911
M34294481903Z51.216511Z1911911
DC
32
.10000000000000000000000000000000
JOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOO
OS
, __ 4
DC

2

02105

.01

00770 TWOPI
00780 PI
007'10 PIOV2
00800 PIOV4
00810 SIX
00820 TANio
00830 TEN3It
00840
00850
00860 FXH

DC
29
,20000000000000000000000000000
KOOOOOOOOOOOOOOOOOOOOOOOOOOOO
DC
30
.6213185301119516"'692521616.,6
02831853011195864169252161 . .56
DC
.30
.314159265351979323846u4unze
llH5926"589793238462643J13Z1
DC
30
.157079632619489661923132169164
J57019632619489661923132169164
DC
28
,7153981633914. . 30961,.60.458
P85398163391448309615660 ••, .
DC
28
.6000000000000000000000000000
0000000000000000000000000000
DC
29
,5.04 19500210,.4 15544351n6.U
N4041950021058415544351836461
DC
30
.218n616ZJ94955256ZZZ6114916J1
K1877616239495'2562Z2611491611
1620 FORTRAIII 11-0 INDIRECT ADDRESS 10XES AND MODIFIED
CDNSTAIIITS IUSING K AIIO FI

10

OUll

10

OU25

10

021510

Jl

OUS.
OUIl

Jl

02911

31

on.9

Jl

o

02910

Jl

03010

30

03042

J2

0303.
030.4

o

03013

29

-1

00760 TWOZ

°

70

2

03101

30

onn

30

03163

30

OJl91

ZI

0321.

ZI

032. .

29

03211

]0

0I2n

5 X

557

1620 FORTRAN 11-0
00870 FP1MK
00880 99MK

OS
DC
5
-0099
00890 100MK DC
5
-0100
00900 IMSAPF OSA IMSA

SUI ROUT I NES

SET 1

PAGE

.99

OlZn
012n
03211

,100

0329'

,FXH

-1493
0
5

03298

5 X

-un, x

00910 ISPFMI OSA

IMSA-I

ou"
on03

00920 FH

HC

OU03
DUO.

-1514

ono.

-1"91

onn

-2491

OUll

0
I

00930 FI\IH

OSA
OSA

FAC-I

OU11

oun

I X

I X

00940 FMIMF
00950 96NF

,FNH
.96

00960

.91

onn

•••

OUI'

I

,99

OUU

I

,100

OUII

I

.IOZ

OU.)

I

on. .

5

00.70
00980
0099Q
01000
01010

OS
5
DC
-0096
97MF
DC
5
-0097
98Mf
5
Dt
-0098
PDT
DC
5
-0099
HNO
OC
S
-lIlOO
1·02MF DC
5
-0102
FUlL' OSA ZERD-18

OIOZO FU

DSA

lERO-80

01030 FNIDII

DSA

HC-Z

01040 91M2F

DC
I
-0091
01050 llllENT OC
5
-DOlO
01060 UPENT DC
5
-0036
01010 "R
OS
I
010.0
OS
5
01090 DKO'fA DSC Z
00
01100
OSA DIODDA

0134'

oun
oun
ous.

01110

DC

-2611
I X

onll

-'.90

OUU

,

•• 0

on••

I

,'6

t.!'

,91

,·.5
.00

NO Of ELiNENTS IN IIATRIX TO 'IIOCESS

~,

PUll
Od1l

on79
OU"
OUII

OIUO DlooDA OSC
·0

-Ult
5 x

"

,0

on..
onll

5
I
I
2

I x

-1117
1

Ih

"20 'ORTUN 11-0
011)0

DC
~
-0000
DC
3
-00
OSA DnUfF

Oll40

01160
Oll10
OlllO
01190
01200
01210
01220
01210
01200
01250
012bO
01210
01280
01290
01300
01310
01320
01330
OllOO
01350
01360
01310
01380
01190
01400
01410
OH20
01430
01440
OH50

DC

TOFlC
2FNI
HOOD

SUI.OUTI NES

sn

1

PAGE

.00000

0))92

.000

0))"

1620 FORTRA~ 11-0 I~ CORE SUUOUTINES
5
FAC
,TO FAC-l ,11
TOFAC-l
,0102
,1'10
TWO TIMES' MINUS ONE
I
,*-4
a • OR K ODD, 1 F AND KEVEN
TF
FAC-2
,TO FAC-l oil

.

,--2

BB

OOR' e-9

FMFAC
MF

OS
TF
SM
OS
TF
B8
OOR'
OS

-2404
1

03400
0)401

"

OS
TF
SN
OS
OS

5 X

0)400

0)40.
0)401
03420
03429
03427
03H2
03444
0)446

5
26

12

02492
03401

26
42

02490
00000

0340P
00000

,6
,.10

26
12

5
0345J
03451

,

,--2

FM FAC-I ,FAC-2

e-9
5
T~ACE
TF
FM FAC-l ,·-1
BIIC4 FM FAC
ReTV GAM-l
GMIM2f OS
UFK
,FAC-I
SN'
W~TY FNH
S
FM FAC
e-4
DORG
TRFx
WNTV FXH
S
FM FAC
e-4
DORG
FINDIN DC

,
,.-5

MINUS F

02492
0-0-2

,6

26
42

0345J
00000

02490
00000

26
41

5
03451
0)452
-2554

,2

03495
00400
00102

..

GAMMA MINUS ONE MINUS TWO TIMES F
8R IF FIXED ARG
TVPE flOAT I IIG ARG

,6,

31
49

03564
033IL
03452

02491
00100
00000

TYPE FIXED laG

38
49

0328L
03452

00100
00000

26
16

OH90

02153
0-2"

03601

49

0]104

00000

03616
03625
0362_
03640
03648
03652
03661
03664
03616
03618
03100
03112

II

02565

O-J-l

47
16

0380L
02615

01400
-0'111

01452
03464
03473
03416
03411
01490
03494
03496
0]508
OH20
03526
0]532
03544
03556
035U
03564
03576
03513
03581

0340P
0-J-2

1

0]450

5
FM FAC-1 ,FAC
FMFAC-l
,0002

o

H
44

o

o

J

01460
01410
01480
OH90
01500
01510
01520
OISlO
01540
01550
01560
01510
01580
015.0
OlbOO
OlblO
0lb20

LERFAC TF
TFM
'P2
OS

FAC-2
FAC

a
FINISH0
02110
02180
02190

DC
-1

B
TF.
DC
-1
B
TF"
DC
-1
B
TFM

F"'ON
F.O"+11
2
F.ON
F"O"+11
2

.I

FMON
FMD"+11

,<-START

2

,I

B
TFM
DC
-1
B
TfM
DC
-1

FMO"
F"O"+11
2

,1

"

FMON
fMON+11

OC

SUI.OUT I illS

snl

PAGE

,--I

04050
04054
04066
04074

,.
16

07154
07165
2

00000
-0215

,e-l

0401.
04090
04091

••
1.

071 54
07165

00000
-0239

04102
O'HI4
04112

49

'6

07154
07165
2

00000
-0263

04126
04US

'"
11>

071 54
07165
2

00000
-0287

,·-STAU

,.-)

6

2

2

-1

02200
02210
02220
02230
02240
02250
02160
02210
02280
02290
02300
02310

TF.
DC
-1
B
TF"
DC

,e-START

,--]

OHIt'

F.ON
f.ON+lI

,--)

16

071 54
07165
2

00000
-0)11

,I

04150
04162
OH70

+9

,<-START

2

,_-START
,I

,--)

04174
OHI6
04194

49
16

071S4
071U

00000
-0335

,--]

04198
04210
04218

••

,--START
,2

, .-)

04222
04234
04242

49

1.

01lS4
01165
2

00000
-0383

,2
,--START
,2

, .-)

04246
04258
04266

.'1
16

071 S4t
07165

00000
-0407

2
fMON
F.ON+11

2

2

16

-2
B
TFM
DC

FMON
FMON+ll
2

,--5 'ART

07154
071U
2

00000

-ou.

-2
02350
02360
02370

B

FMON

TFM
DC

FMON+l1

02380
02390
02400

B
TFM
DC

2

2

-2
FMON
FMON+11

,3

,--3

04270
04282
04290

49

,*-START

2

,--START
.3

04294
04306
04314

49
16

,*-3

,--START
,3

,--)

04311
Olt))O
04330

49
16

04H2
04354
04362

4'1

,.-)

0lt366
04)11

..
16

-]

02410
02420
02430

8

FMON

TFM

FMON+ll

DC

2

02HO
02450
02460

B
IF"

FMO"
FMON+l1

DC

2

I'

07154
07165
2

00000
-0431

07154
07165
2

00000
-0455

07154

00000
-0419

-)

onn
2

-3
02HO
02480
02490

8
TF"

FMO"
FMDN+l1

DC

2

,e-START
,3

FMON
FMOII+1I

,--START

16

07154
07165

00000
-0503

2

-3
02500
02510

8
TFM

07154
07165

00000
-0527

2 li2
1620 FORTRAN 11-0
02520

DC

02530
02540
02550

B

FMCN

TFM

FIION+ 11
2

02560
02570
02580
02590

e

FHON

iF"
DC

FIICN'II

.--START

2

,4

SUIIROUT I NES

PAGE

SET 1

,3

OH86

,--START

04]90
04402
04410

H

16

07154
07165
2

O.. 4U
04424
04'24
04U2

...

07154

0-000

16

01165

-0573

04436
04446
04446
044H

4.

01154

0-000

16

01165

-0595

0""5'

-}

DC
-3

,3
,8

OORG '-1

,*-)

00000
-0551

2

-4
02600

8

02610

eORG '-1

02620

02630

TFM
DC

,8

FHON

FHON+ll

,"-START

2

,5

-5

02640
02&50
02660
02610

B

,8

FHON

OOIG 0-1

Tf"
DC

FMON+1l
2

,*-$T'R'
,8

02100
02710

02720
02730

02140
02750

8
FHON
DDRG +-1
iF" FHO"'+11
DC
2

ifM

DC

FIIDN+l1
2

B

FHCN

cB
02160
02770
02180

02790

02800
02810
02820

02810

.8
,e-S '.~r

,9

-9
fHON
8
DDRG 0-1

QDRG 0-1
FHON+11
TF"

DC
-6
8

2

DORG '-1
TF" FMON+1l

oc

.a
,--START
.8

2

0-000

07165

-0617

04480

4.

07l5~

0-000

04490
04490
04491

16

Dl165

-0639

04502
04512

49

07154

0-000

04512

16

07165
2

-0661

49

01154

0-000

49

071 54

0-000

16

07165
2

-0705

04578

16

01lU
Z

-0727

04590
DUn

.9

07"4

00000

04'91
04610
04622

21
Z6
21

04621
02181
04'"

Olll9
-2159
02219

U
U
16

02'18
OU"
0""

OU24

2

2

04534

,*-STAA.J

04534
0 .. 5.2

,6
,8
• *-$TARl
,6

07154

16

OUZO

.8

FMO/,;

49

0446a
OH6'
0~"7'

-8
02680
02690

2

,*-]

04546
04556
04556
OH. .

,8

04561

-6
02840
02850
02860
02870

02880
02890
02900
02910
02920
029)0
02940
02950
02960
02970

B

FMON

OORG '-1
TFM FIIO,.._II
DC
-6

e

2

0"'"

FMIlN

DOR!; . - .

MODIFICATIONS MADE
A
•• 23
.F
TF
lN2
,lN2-ZI
A

TF

0-000

04511

,--START
,6

IIEFO~E

,7

,F

,LN4-U

A

.f

TF
l

,LHI-U
,F

.7
,7

START 0' UECUnOIii

0461.

OU.6
04.,.

04670

H

04693

-2190
OU19

-2UI
OUl9

1620'OUUN II' 0
029.0
02990
OJOOO
0)010
OJ020
0)0)0
O)O~O

0)050
0)060
03070
0)080
O)O'H'

03100
OHIO
0)120
0)110
OH~O
011~0

IF
A

"

A

A
'F
A

A

"

A

"
A

"

A

nl17')

A
T'
S
SF
S
SF
S
SF
S
SF
S
SF
S
S
S
l
A
S
S
5
5
S
5
S
S

~(.

fl'H~O

O)2~O

01)00
OHIO
01120
0)3)0
033.0
0))50
03360
O)HO
onlO
01'.0

03400
0)'10
03420
0)4)0
01'-0

,7

LDGE

,f
,LOGI-II

,7

.. u

ONn

TIIOI

TIID"

A

tf

0)100
OHIO
olUO
OH10
0)140
01250
01260
01210
03280

,LNID-21

" "21
.. u
" .. n
" ""21

0\160
0),

·.n
LNIO

A
A

S

01050

Tf

01460
03410
03480
03490
OHQO
OlSlO
01520
OlHO

A
IF
A

5
S
5
A
A

Plan

.. n

'IDV~

"2)
SII

.. n
TAN'
••
n

TENJ~

.,,,
""
• .. 11

'.'+1
.+"
FII+l

....

Fl\+l

0+11

95CP"1
flH

""K
100llK
._SAP'
UP'ICI
'H
FNH
9611'
nllF
"II'
POT
HNO
102"F
FLlAlP

FLL

FNlllll
F2
F2
K2
K2
97112F
GII2F
Gil 111"
F"l

FPZ

",ONtI-2I
", TIIOI-2I

5UI.DlJf IIIIS

PAGE

sn I
0 ... "
0 ......

OJOIO
041 ..1
0)0"
04165
o)on

-2'12
0211'
,.J010
OUlt

21

0471.

"

on OJ

02119
-)015
Olll.
-H05
OU19

OUM

II
I'
1&

1M''''
041 . .

"

-295'

IMU.

o.. no

,f

onID
0 .. 7"

l6

0"'"

I.
21
I'

,f
,TIIO"-2I ,7
,f
,J
'f
,'IOWl-li ,1
,F

04771
0""
0410'
0 . . ,.
IMIa.

It
I'
2l

O4IU

O4U.

11

,"DV~-21

0""0

,.

OJln
0....
on.l

21

O~"S

It

,.

0121'
0 . .0.

21

o~n)

"n

OUlI
0.952
-liS'
0.91'
-1106
05000

,"-II

,F
,511-11

,,

0~1'2

,f

041"

",UN6-,. , ,
"
,"
,K
,
,K
,
,K
,
,f
,

,TENJ~-II

0. . . .

OUIO

,J

04'"
O.U.

049. .

,2

0 . ., .
0 .. ..,0
0 . .. ,
0"'"
0.006
0'011
O'OJO
0.0.,
0'05'
0'0.'
O.OJI
05090
0'102
0'11'
0'12'

,2
,2
,2
,2

,K
,K
,K
,F

fAC+l-"

99-"
100-K

,f
,f

"

0....

,

"
,F
,F

..

",F
,F

"

",F

,F
,F
,K
,K
,F2
,F2
,F2
,F
,F

'"SA+F
IIISAof-1
fAC-F
"C-l-F
96-F
'IJ-F
91-F
9'-'
100-F
102-F
ZUO-1I+F
U.O-'O+F
FAC-2-F

o,nl
051!10
0,..,
0!114
0~1l"

0""
0'210

OU22
052]6
052~6

0525.
0'270
05212
0529.
05106
O,U.
05130
OU42

2F
2K
'7-2F
GAIIIIA-2F
GA""A-I-2F
-1+F
2+F

n
n

22
22
)Z

22
)2
II

Jl
22

n

12
22
Z2

"

21

n
n

U
U

Z2
Z2

zz

II
21
2l
21
26
II
Z6
21
2l
U
U
21
21

OlIn

0""1

on~.

-1'"
05024

-""
050'1
-lJ'6

onn

03211
on.3
on91
0]30)
03101
0))13
onll
on2.3
03UI

onn

031)1

0))41

on..
oJ!n
01358
0)661
O~661

03.",
0)'48
03163
03135

03"6
03625
0]60'

•

OUI'

-lOU

-un

02219

-116]
02219

-u ••

02219
-)z20
01219
-12'0
02'"
00000
OU21
00000
02221
00000
02221
00000
02219
00000
02221
02221
02221
0221.
022\9
OUI9
Olll9
02219
OUI9
02219
02219
Oll19
02219

02219
02219
Ol219
0221.
0221'
02221
02121
03661
03661
03661
02219
02219

5,; ;

~.

....

1620 FORTRAN 11-0
01540
03550
03560
01510
03580
035.0
0)600
01610
01620
01.)0 OOOS~T
0)640
03650
0)660
0)610
0)680
03690
0>100
0)110 OAlONG
0)720
03130
0)140

S
A

""BO
BO
""TOIl
B

,'I'

OOllG .-~
TOM HOOD
8NF ·.36
A
LNEHT
A
UPENT
BV
"12
Bo
SHORT
TF" IOU
B
10GT
OSC 2
2K
oSC
0
DC
-146
DC

"

03150 Ol'IION OSC
22
03160
OSA
0)770

,F
"F
,F2
2Flll
,os
F
,99
OOOSET
K
,os
OOOSET
FKOOO
,I
000SET+12

·

-o~

OSA

03820

DC

03110 SHORT
0"'0
0)850
03. .0
O]8JO
01.10
03190
03900
01910
03920
0]9)0 II

•

0)9~0

31t

,0
,ENILN-'
,eNTlH
,EHTElP
,01499
,-+2]
,DALDNG
,-22

,

• "
•

0""

onJO
OUU
055"
0""

"

onu

n
21
U

u

..
.
..
U
U
15
U

~.

21
ZI

u

16

02219
03~2'1 . 0,.61
02219 000-5
03099
05~"
OU21 000-5
0'446 00099
on27 00001
0 . . . . 00000
OH27
0'.94
OU61

onn

05506
0'"''
00565
00566
2

00000
0224.
02248
onu
01400
01499
-5541

-'542

"

055'0

z
5

0""

-",.1

,0

oun
ou,.

,161"

OU"

5

,00'

OU. .

,x

3

OUll
0""
051"

051. .
0""

.••

06000

M

DIU..

,·.21
,OA'IION

,J
,6

A".. "
MOOO

,00101
,00102
,0070)
,0"100011

06012
06024
06016

......

•

03413

0,.,.

DOIIG --,

ose
0161000)5
OSA ITa'-1

on..

05111
on,o
0'.02
0'''14
0'42'
0543 •
OU...
OU.6
05U.
05"'0
0'411
0'''4
on06

,0146

,'

.. zz

05J'~

,0

'_-56

II
II

-1+2F
FEYeN
NO, U. TO ooosn
YES, KEveN
NO, I •• TO OOOSET
YES, FKODO • 1

FlN ENUY POINT F.OII FAll
FEXP ENTRY POINT '.011 FAll

,1

PAGe

SET I

FKOOO • 0

"

TF" 100T
10GT
I
P.OGIT
DO.G .-4
OO.G 06000

31
36

,10.

,n

OHIO OOFICON OSC
0
DC
J6IJS
03100
DC
1

0]110

.10.

OOFIION

DC

0)190

..

SUBROUTINES

-F

,.
JI

U

-7091
1
00!!65
DO!!6'
02120

-"

060....
06044
060. .

M046

•

060"

I

-Sl"

-55'0

00000
00101

00101
01101
00000

•

51 1,

I

IUO ,aa"'" II-I

ot...

Til

01'&0

,eo oaooo

0'910
0)9"

OJ••O

••••••
.....

o.aoo

04010 , ..

0~010

040"
04040
040!!0
040&0
04010
04010
04090
04100
114110
04UO
041111
04140
04150
04160
04110
04110
04190
04200
04210
04220
04210
04240
041"
1).210
,4210
04280
04290
04100
04)10
04]~0

04no
04140
04150
04160
04370
04180
041'10
04400
04410
04420
044JO
04440

FIA
FIS

a.IO FDUIlII 11-0
. .10 '01 'UII It-D
I!OIIG STAU

os

i
'&1:

,00

A

Fat

,FlA-l

8

FXAI
,fXS-I
F&C
FXU
fISRI·U .FAt
FU.I

til
8

5
8

flS.
FXII
fXD
flOR
ItSGII
fLOU
F$I
faD
fSlR
""
FD
FDVII.

BNF
8
M
8
LO

~11l

fA,

f.'1II
9.
B
FXOI
99
lD
8
fXD'1
OOIlG .-1
IINf RSGNIHO
8
UGNI
DO.G .-1
All
fat
8
FLDATI
TOil FA01017
8
F$81
TOil Fo\OI+17
8
FAD 1
' 'IF FSBR1+n
8
Fsalll
'f
SAVE
R
FMPI
TF
SE+U
8
FDI
SAVE
8
FDVRI
tF
IM5A
8
FIXIII
TFM FIIDN+II
DC
2
-2
8
I' liON
TAFE
TF
8
FAxall
UII FIIDNfll
OC
Z
-3
FMDN
8
TFII FMDN+U
2
DC
-1

"

,FA,
• fXD'-1

u.,.

,11
,II

...11.

51 GN all fat

,11

FAt· fAClJ
FAt • J/FAC

,FAC-I
.d

,10,

.00
,2

IS fat ZERO
S:T UP INST. TO SUBTRACT

,I

S'T UP INST. TO ADD

.FAt:-

C ""GE SIGN ON FAt

,FMP-.

.11.

,FO-I

,.1.

MJVE EXPONENT.

,fDVR-1

.11 ,

~)VE

,FI Ki-I

,11,

HSA • I

,.-START
,2

, ..... 3

,FAXa-l

,11.

,.-sr.n
,)

~JVE

EXPONENT TO SAVE.

EXPONENT.

O.ltl

J6
4'

.

AU..

4.

OJI"
01.90
03902

21

0"1'

4.
U
4.

OJU&
OJUI
039'0
OJ96'
0"14
OJ9I.
0""
04010
04020
04010
04032
04042
04042
040t4
040. .
04011
04090
04102
04114
04126
041]'
04150
04162
04174
041B6
0419.
04210
04222
04234
04242

10

-UM

4.

"

..
..
n

4.

21

Ii

0000il
00000

ooioo
00000

)

02492
04nl
014.'
04190
0249'
04190
04U&
04804
024.,
04."
000. .
041.,
00099
04964

000-0
00600

aU"

00000
O"OJ
00000
01491
00000
019. .
00000
014"
00000

on.,
00000

44

05014
04914

02491
0-000

II

02492
05064
O!UI
0!I214
on41
05]04
OU62
05810
02565
0"'2
0617J
06042
02565
06254
02n5
06])4
01165
2

000-0
00000
00002
00000
00001
00000
02490
00000
04UP
00000
0416J
00000
0418N
00000
0420.
00000
-038]

07154
025)5
06140
07165
2

00000
0425P
00000
-0411

07154
01165
2

00000
-0455

It
4'
15
4.
44
4"
26

."
26

49

26
4'
26
49
16

""26

, .... J

04246
D425a
04210
04212
04290
04294
04306
04J14

49

• --3

L 'AD EXPONENT I

,.-SUlT
.3

06011
0601.
o&oro
06000

oun
O)It•

IS '"U 'OSITIWE

[~ANGE

'&GI

Sl'1

AR IT""ITIC .ILOCI!
UUHIIUlt ILOCI! • SEtOllDlaY
.10,

,.1"-1

Suiaou" ..,

4'
16

16

565

1620
04450
04460
04470

8

TFII
DC

FORT"'~

II-D

sua.OU""ES

SET I

PAGE

FIIOII
'IION+U
2

,·-START

f]

, --3

043]0
04U.

'liON
FIIOII+U
2

,·-5"'"
jJ

,.-]

FIION
'"ON+U
2

,'-STU'
,J

fllON
FIIOII+U

• __ STA.T

4'

16

07154
07165
2

00000
-0419

04)U
04154
04362

4"
16

071'4
071'5
2

00000
-050]

OH. .
04178
0 .. 386

49
16

07154
07165
2

00000
-OU7

" ·3

..

04190
04402
04410

4"
16

01154
01165
2

00000
-0551

04414
04424
04424
0(4)2

49

01154

0-000

16

07165
2

-0573

04436
04446

4'

01154

0-000

04"46

16

01165
2

-0595

DUll

II

-]

04410
04490
04500
04510
04520
04"0
04540
04550
04 . . 0

8

Tfll
DC
-3
8

""

Dt
-J
8
TFII
Dt

Z

.J

-]

04510
04 . .0
04590
04600

FMOII
DORG .• -1
TFII FMOII.U
00
2

04 . .0
04660
04610
0 . .10
04690
04700
04710
04no

FIIDN
DD.G ·-1
T'II FIION+1l
DC
2

04110
04110
OUtO
04100
04110
04120
04no
041.0

,.-START

f"

8

,··$TART
,5

"IIDII
OORG .-1
FIIIOII+U
DC
2

.·-SURT

OORG 0-1
UII '11011+11
De

,--StART

z

•

F_
OORG .-1
'"ON+11
Dt
2
"a
fllOll
DOlO .-1
FIION+ll
DC
I

""

•

-.""

I
F"OII
0010.-1

"". '_.11
Dt
2

,'I

•DO_G ,"oiun
""

Z

,8

..•..

49

07154

0-000

16

-0611

)

01165
2

49

01154

0-000

16

01165
2

-06)9

]

044.0
04490
04. .0
04491
04502
04512
04512
04520

4"

01154

0-000

16

07165
2

-0661

04U4
0451.

49

07154

0-000

o·~~.{

16

011"
2

-06IJ

,8

.....

,·-sun

,--3

,6

,--1

.,

,a

.... S·t'.T
,6'

,--1
fa

,--STAU

f'

0"454
04458
DU6'
044"
04U.

,. ,.
,·-START

FIION
--I

DC
-6

,--3

,8

-6
04110
04160
0."0
04110

, .... ')
,8

-.•
-.•"" ,- ,.
-'I

04no
04740
04no
04160

]

fa

8

-It

04610
04UO
04610
046"0

,

;.-,

..

o!~

Z

)~

,~

.9

07154

0-000

04,,,
00 ••

16

01165

-0705

OU6I
OU'7I

4.

01154

0-000

1·.

on"Z

-OYZ1

OdS.

O.SlI
041.&

Z

U6

7·'"

16Z0 'OUUII II-D
04190
04900
04910
04920 FIXI
049)0
04940
0"'0
04960
04'110

•
.,
•"

'liON
DOIlG .-4
1610 FOIl TUN 11-0

"12

FAt
FIIEND
DDIIG .-J
TO
IIU-I
t
'At

•
.,u

.FAt-z
.K

04~10

aNli

•• 44

0. . .0
05000
05010
05020
05030
05040
05050
05060
05070
050'0
050.0
05100
OstlO
05120 HAl
051)0
05140
O>l~O FI SRI
05160
05170
05110
05190
05200
05210
05220 Hili
052]0
05240
05250
05260 FXDI
05270
05280
05290
05300
OHIO
05320 FININE
05310
OSHO
05350
05160 flORI
OB70
0>380
05]90 RSGNI
05400
05410
05420
05430
05440

TDII
TFII

FIE . . +Z5 • 1

•

DOIlG
CF
TF
TF
TF
S
A
T'
8
OOIlG
8Y
88
OOIlG
CF
TF
B
OOIlG
SF
B
OOAG
SF
TF
88
OORG
0

8Y
TF
8B
DORG
TFM
TFM
TF
8
OORG

EI

.51.

SUIIIOUfi NES

AlllfHllnlt ILOCK YES
ND

......

.9.

FININE+U.

,lEllo-~1

STDRE SIGN
IS tHAII GIlUTU fHAN "
SET EIlII "'PE
SET Ell E.. OYFL III Fli
YES. FAC • Fl.
CLeAR AOO AIlEA

.'ll
.IIISAP'

AlIGIi DECIIIAL POIIiTS

.FAt

.FAC-Z
• I liSA

•• 12

.-.

FAC
FlA-I
FaA

,FlSII-1

SET UP AOD
8RANCH TO FilED POIIiT ADD

.-]

fAC
FISRI+12
.-]

100MK
FAC
.-9
100llK
e+26
FAt

·-9
EI
FIERR+)O
FAC
FlEAR
·-1
100MK
0
8
FIOI+12
OOIlG '-4
8NF e+26
CF
FAC-2
88
OORG ·-9
SF
FAt-2
88

,

,6

••9

,FXD-l

.611

,99MI

.11

,'I,
.578
,F I Xe,.0-12.,

ERROR E8.
SET UP ERROR EIIT

,FX9

FAt .. F.x9

,FAt

49

011'4

00000

OU9I
OUIO
OU22
04UO
04630
0.6U
04U4
04 ....
0 .... , .
OU90
046"
OU"
04710
04122
04714
04146
0415.
04170
04182
04789
04190
04802
04804
04804
04116
0 .. 121
04lU
04836
04 ....
0 .. 856
04156
0481>1
04880
04882
04882
04894
04906
04911
04920
04920

.6
U
49

046]0
02492
0]160

01100
Olll'
00000

n

0]711
0249Z
0469'
03101
02615
04944

OZ490
OUZI
01100
00001
00N79
00000

2Z
21
26
49

024'0
02603
02515
04764
04764
99999
02"2
OHU

00000
02116
02815
0]291
02492
02490
02575
00000

46
42

04102
00000

01 .. 00
00000

n

02492
03817
03878

00000
03925
00000

49

02492
04816

00000
00000

32
26
42

0329L
02492
00000

00000
00099
00000

29
46
26
42

OJZ9L
04920
02492
00000

039n
01400
0328Q
00000

16
16
26
49

02615
0]706
02492
03676

00N18
-3148
02805
00000

29
49

0329l
04894

02492
00000

44
31

42

05010
02490
00000

02490
00000
00000

]2
42

02490
00000

00000
00000

ou"

,6
HOUI Nli POINT NUM8ER

,FAC-2

OU'O
OUlll

U

SUlllOUflNU

.-]

FAC-Z
BETA
IIISA
.+)0
·+18
DUIIMY
FAC
IIU
·-4

PAGE

In I

04944
04956
04964
04964
OU76
04'8)
04984
04996
05008
05010
05010
0502·.

Z4
41
15
16
4'1
))

16

16
21>

16
49

12

567

1620 FORTUN 11-0
05450
OORG
05460
BNF
05470
CF
OH80
88
05490
OORG
05500
SF
05510
88
05520
UORG
05HO HOArI Bt
05540
TO
05550
CF
05560
TR
05HO
TF
05580
TF
05590
TFM
05600
80
05610
SM
AM
05620
05630
8
05640
OORG
05650
TR
05660
TF
05670
AM
05680
8NA
05690
TOM
05100
TO
TF
OHIO
05720
8
05730
DDRG
057"0 FS81
TF
05750
8
05760
OORG
05710 FAOl
TF
05180
SM
05790
TF
05800
A
05810
TF
TF
05820
051)0
CF
05840
TOM
05850
C
05860
IIiH
05170
TF
fF
0'810
05190
TF
TF
05900
05910
Tf
05920
TF
059)0
TFII
05940
S
05950
IV
A
0"60
05970
A
INH
0"'0
05"0
IN'
06000
SF

SU8ROUT I NES

·-9
e+26

,FAt

FilED POINT NUII8EIl

FAC
.-9
FAC
·-9
ZERFAC

,

99

,FAt

FAt
8ETA-9
FAC-Z
SAYE

*+23

* • .,.4

SAYE
*-13
.-36
·-3
FNH
e+35

··ZJ
·-12
·-1

FACol
BETA
NORM+60
.-4
FAD-I
FAOI

,FXH
.9SPF-1
,K
.8ETA-9

,

tI
tI
,--))

YES
STORE SIGN

,II
CLEAR FAC

..

,10.

,RECMK
, ZEAD-74

K

FIND HI DAD DIGIT
ADJUST CHAR

.611
FIND AND CLEAR RECORD MAR"

.FNH
.1

.0

CHAR •

..

.6

REPLACE RECOIID MAlIK
CLEAR BETA

,FS8-1

.-]

BETA
"0-1
BETA-2
IE"-2
SAYE
FAC-I
FH
FIIH
InA

•• 14

SAVE-Z
FAC-I
IE "'-2
I'Ao+.
SAVE
lETA
ADO+lI
InA
NDADD
AOO+II
IITA
NOAOO
ADD
ADD-II

.FAD-I
.2
.9SPF
.FAD-I
.FAC
• FAC-2

·
·

•0
• SAYE

."C-I
.1(""-2
.UVE-Z

• SAVE
.lnA
."AD+I
.IITA-a
,SAYE

•
.IIU

.,

•.IITA-!

.11.

..
..

IIOYE UPONENT

.10
CLEAR tlEU-2 TO Fo I ZEROS,
,11, ADD 011 SUIT.MANTISSA
IIOYE EXPONENT.
AIGHT SHifT DIIE DIGIT •
,6,
CLEU FUG ON HIGH OIlDU DIGIT.
.61l • SET ~EXT HIGH DIGIT TO fLAG lElia.
COMPAIIE EXPDNENTS •
IUIitH I F NO EXCHANGE 0' OPERANDS
EXCHANGE MANTISSAS,

....
..
........
.....1.

EXCHANGE UPDllEIiTS.
SET U, ADDIIISS
SUITRACT exPONENTS
NO O,eRATlDN I' OVIII'LOII.
Il001'' AOOllIIS '011 SHIFT,
ADO F TO IIU
NO OP II' . . OIl' NOT LlU THAN'
sn SlIN

PAGE

SET I

01' O'I."NO.

05024
05024
050]6
05048
05050
05050
05062
0506 ..
05064
05076
05081
05100
05112
05124
OH]6
051'"
05160
05112
05114
05192
05192
05Z04
05216
0522.
05240
05252
05264
05276
05283
05284
0529 ..
05]04
05]0.
05316
05)21
05)40
05)52
OU64
05316

on..
05400
05412
05424
054]6
0'"8
0'460
O'Ha
0""4
05. . .

05050
02492
00000

02492
00000
00000

02492
00000

00000
00000

03584
00099
02492
02594
02490
02565
05159
051n
02565
05159
05148

01200
02492
00000
0328L
02853
02221
-2594
00000
000-1
-0001
00000

O]31L
05239
05239
05216
052]R
0249]
02603
05700

051511
0331]
-0001
00000
00000
02403
02693
00000

.~

04089
05]0'

04065
00000

26
1l
26
11
26
26

02603
04089
02601
02601
02565
02491

0408R
000-2
02854
0 .. 0111
OZ"92
02490
00000
000002565
01100
024.1
02601
02563
025.,
0260)
04091
-2601

44
H

42
J2

42

".
25
H
31

26
26
16
43
12
11
49
II
26

H

45
15

n

26
49
26

n

15
24

'"
26
26
26
2.

O])OQ

0)]1l
02603
05496
02563
02491
02601
04091

n

ont'
0260)

"

on9Z

26

OISO.

lZ

0"'0

U

onn

ZI

OU44
011S6
0"'1
0"'0

al
4'

••31

O"OJ
0260)

0"0)
0160)
0""
0""
0"0\.

13

on"
01400
0260)
OZll9
01100
02601
00000

SI/!

1620 fllllUN 11-0

OiDia AOO
06010
06030

06040
06050
06060
06010
06010
06090
06100
06110
06120
06130
06140
06150
0"'0
06\10
06\80
06\90
06200
06210
06220
06230
ObHO
06250
06260
06210
06280
06290
06)00
063\0
06320
06)]0

IIORM

•

"TOM
TOM

TO
tF
80
U
TOil
S'

80

511
8NV
TFM
UNFLOW TFIO
TF
8

NOADO

·

"t-I
lUfAtoU.
UliflOW-1 ,2
ovnow-I .1
99
,FAC-I
FAC-I
LVI
,FIlM
FIIH
•• H
.0
"C-l
FHH
,.IIH
FlIIISH
SAVE
01
NORM'36
EI
.512
FAC
.-99
F4C-2
.9"F-1
ERROR

·

DORG .-~
SF
FH
TR
FNH
TF
FAC

,
.FH
,SAVE

""

sn

SU.ROUTINIS

IUNtH I. nao . . SULl
STOle SlGII Of RESULT

.11,

,611.

,.,
II

LEFT SHIH OIiCE
SET LAST DIGIT TO

zeao.

.611. TEST LEADING ZUO
,10.

sun

,'.
.10.

SET UP EUOI CODe E2.

aile .1011 expnllENT.

SET RESULT TO ZERO.
.6
.61\

88

06500
06510
06520

OORG '-9
tF
FAC-2
Tf
FAD-I
,FS8R-1
B
FAD
OORG .-3
SF
FAC-2
B
FS8RI+12
OORG .-~
SM
FMP-I
,2
LD
19
,lERD-IO
M
FAC-2
,FMP-l
BZ
lERHC
A
SAVE
,FAC
TF
FAC-I
,HNO
TOM UNFLOW-I ,~
BNV NORM+12
8NF -+20
,FAC
B
UNFLOW-12,
OORG '-4
TO~
OVFlOW-1 ,3
8H
OVFLOW-12.
rFM SAVE
.99
B
NORM+24
DORG .-4
TF
SAVE
,FAt
SM
FO-I
,2
TF
79
,lERO-9
POT
La
.FAC-2
0
PDT
,FO-l
TOM
OYflOW-1 ,7

06510

BY

OVFlOW~'!2,

065~0

TF
TO
8Z

FAC-I
,POT
99
.FAC-I
ZERFAC+12.

F SBR I

F~PI

063~0

06350
06360
06310
06380
06390
OHOO
06"10
06420
Oh30
06440
06450
06460
06410 FOI
06480
OH90

06550
06560

SET UP ADO
8RANCH TO FLOATING POINT ADD

..

,10,
,11,

..

,11 ,

,

..

,10,

..
..

• 10,

DUO •
05616
01611
01640
OUU
01".
05'"
01 . . .
onoo
onu
01124
05U.
05741
0571>0
05772
05114
05791
05792
05104
05111>
05828
05130
058)0
05842
05854
05862
01862
05874
O~881

SUBT. TWO FROM ADDRESS.
CLEAR AREA FOR PRODUCT.
MULTIPLY TWO MANTISSAS.
ADD EXPONENTS.
MOVE F'I DIGITS OF PRODUCT.
SET UP ERROR COOE H.
NORMAl! ZE I F SUM IIOT OVERFLOW.
TEST SIGN OF EKPONENT.
UNDERFLOW
SET UP ERROR CODE El.
OVERFLOW.
SET EKPOIIENT TO 99.
NORMALIZE.
SAVE EKPONENT OF FAC.
SUBTRACT TWO FROM ADDRESS •
CLEAR AREA FOR QUOTIENT

.1>.
,611.

",11.

on.z

SET UP elROR CODE e7 fOR o OIYISOR.
DIVIDED ay leRO.
Move QUOTI ENT.
STORE SIGII DIGIT.
ZERO QUOTI ENT.

..
II

OZ.'1

15

onS9

15
2S

016"

U
Jl

onlL

16

OUU

II>

02492
02UO
0]671>

00000
01200
00002
00001
OZ491
00000
OULL
onOQ
00000
00000
OUIL
000-1
01400
00N72
OOOU
02153
00000

21>
42

0330Q
onlL
02492
00000

00000
0330Q
02565
00000

U
21>
4'1

02~90

00000

0.089
04090

00000

02490
05142

00000
00000

04137
00079
02490
OH84
02565
CH59
05712
05998
05148

000-2
02157
0413P
01200
02H2
0333Q
00004
01400
02492
00000

03nl
036"0
02565
05664

00003
01100
000R9
00000

02565
04161
00079
OlUL
OU1L
01651
03640
02491
00099
03'.191>

02492
000-2
02758
02HO
0411>J
00001
01400
OHlL
02491
01200

n

IS

lZ

4]

12
U

26
4'
12
)l

12
4'

05882

12

0589~

28
21

O~q06

05918
059)0
059~2

05954
05966
05918
059"0
05997
05998
06010
06022
06034
060"1
06042

'AGE

~6

21
26
15

41
H

4"
15
46
16

,,9
26

0605~

IZ

0601>6
06078
06090
01>102
06114
0612.
06118
06150

U

21
29
1'.1
46

26
25
46

on..

00099
OZ4"
OJ"6
OZ4"
OUIL
OJaOL
02561
01671>

~2491

14

O~IU

569

1620 FORTRAN 11-0
06570 se
06580
06600

SM
TOM
8NV
BNF

06610

TD~

06620

BN
TF"

06590

06630
06640

8

·

SAVE
OYHOW-I .5
NORM+24
OYFLOW-12.FAC
UNFLOW-I ,6
UNFLDW-12.
SAVE
.-99
1I0IIM+72

06650
06660 FOVIII
06610
06660
06690
06700
06110

OORG
TF
SI!
TF
LO
TO

FAe

06720

B

FOI'60

06BO
06140 F UIII
06150
06760
06170
06780
06790
06800

OORG ·-It
AM
I14SA

06810
06820
06830
06140
06150 PSII
06860
06870
06180
06890
06900
06910
06920
01>910
06940
06950
01>960
06970
06910
01>990
07000
07010
07020
07010
070~0

07050
07060
07070
070ao
07090
07100
07110
07120

0

8NZ

.-4

SHU
fOVR-I
79

POT
PDT

• OC

.+26

TF
FAt
88
DORG '-9

AM
8NI

.FAe
.2
,2EIIO-9
.FDVR-I
,FAC-Z
,SAVE

FAt

PSIl
BNF --26
iFM EI
8
FXNINE
DORG
IIU-l
CF
SF
IM5A-1
14M
IMSA
CF
IM5"-1

SF
CF

"U-L
FAt

C
BE
811'
TFM
TF
TFM
8
DORG
Tf
SII
IZ
M

FAC

SF
TF

AM
IZ
TFM
TOM

MY

·.'6
EI

..

OVERFLOW IF RESULT IS POSITIVE.
SET UP ERROR C'ODE E6.
UNDERFLOW IF RESULT NEGATIYE.
SET EXPONENT TO -99.
NORMAL I ZE.

,10.

..

.10.
.6

XEEP SIGN OF OIVIOEIiO exPOIIENT.

aUA
IMSA
MU
FAt
lOaMI(

FAt

9'""

'S I •

ZERO

YES. J •• 1 • ONE

,00

.10.

IS J • lellO

,IMSA
.771

..

YES. IS I POSITIVE
NO. n 101. ZERO TO "'"US I POWER
FAt • fX'

..

,'I,

SET
.05

$IGN POSITIVE

,10

,99
I EVEN

,FAt

DOD

NEG, SEr S I Gil IIEGATI VE
,Fll

·

,INSA

....
"

• 772
,'I •
,FXl
FAt
FXeRh)O ,FIIENo-12 ..
FXERR

.-4

CLEAR UEA FOR QUOT lENT.

,611.

.10 •

,fAe
,01

..

.10,

J·.oR-ONE
IS I POSlflYE
NO. Ell G2, J TO MINUS IPOWER
FAt· FXl
SET UP ERROR EXIT

ST01\£ J
t • I -

,99
.00

• -72
,71]
EI
FXE_1I025 .1

06162
061H
06186
06\98
06210
06222
0623"
06246
06251
06214
06266
06278
01>290
06302
06314
06126
onn
063].
06346

au ..

06HO
06312
OU72
061 ••
06,.1>
06401
06420
06.21
06.21
0.440
. 06452
0641>4
06476
0141.
064"

06496

06612

,610. liST OV'L

..

,'I,

ER Gi, OV.L III Fill
SIT UP SIGN

036~0

05759

.""

0251>5
O!l112

06. .4
0....
0670.
06120

057~8

06173

02~92

Oltl85

000-2
02758
0.1811
02490
02565
00000

02515
01>372
02492
00000

000-0
OIlOO
02825
00000

49

02492
0'4Z1
OU10
02615
0.912

000-0
01200
02515
OOP71
00000

U

onu

02514
02575
01'74
01>4'"
OU20

00000
00000
000-5
00000
00099
00000

Dnll

onClz

12

26
21

,.

n

49

11
41
2&
42

Ii

U

.4
It

n
U
n
~J

U

••

32

n

l4

.4
16
26
16

03111

onu

00000
00000
02125
01200

066\2
02615
OZ492

00P72
02115

02492
02492

ono.

onn

-3748

..

01616

00000

n

02601
0""
OSUZ
02."

ZIt

OU'L
01.92

o..n

02.92
000-1
01200
02601
00000
00099
000-0
01200

01611
03701

00001

Z6
IZ

.
sa

11

16

U

011111

15

000-0
00005
01400
02.92
00006
01300
OOORR
00000

00019
01Ul
OlUL
02492
06102

26

It'

0. . "
0 . .: .
0....

0166~

1'5
H

061.0
06S9Z
0 . .0.
06611

on..

02565
01651

~.

..

onu

06. .0

.6

12
15
H

0654.
0"56

06501
06520

0. . . .

,InA

,

PAGE

SET

SUBTRACT EXPONENTS •
SET UP ERROR coDe E5.

,FXl

.-4

BD
·"20
B
e+32
DDRG --4
e+36
III1F

SUBROUTI NES

• 10,

oo,n

570

IUD
07110
01140

FXIIIN£
OO~" .-4
Ollso FURII 511
"11-1
01160
07110
All
01110
II
snONE
10
OrlOO
IN' FINISH'I
OlllO
TFII U
01ZZ0
Tall 99
01"0
a
OY'LOII
01160
DOIIG .-4
Oll20
07630

FAt

,02
,'UI-l
,DO

.....1I.
..
..
.11

,10,

,

,FIlM
.UFE-Z
,ln
,0

,'I,

,'I
,FAt-2
•1

IS • lIlIO

ves

IS A IUD
IS • IIEGATIVE
VES, fR GY lEllO TO "INUS I
sn SIGN
SET UP 110 EIIR TYPE
1$ A NEGATIVE
VES. SET UP ERR TYPE

.'1

,·.20

•••

..

, •• )2

.U'E

..

, •• 20

,

FIIiO IN OF A
SET UP NULTIPllCATIOIi
NUL TlPLY II TIllES lNIA.
FINO Ae.1 • EeellNIA'

.2
,616
.0

,9,

.01
,DIIEl

,]0.

- EIIR F6. -AlOI

FAt • FLT PT

07160
07110
01880
01190
01900
01910

,400

FIRST TIME ONLY

,12000
,0194000]]

01920
01930
01940
019.0
01960
01910
019.0
01990
01000
DIDIO
OIOZO Fill
01030
01040 FAXI
010'0
01060 FU.
01010
01010
01090
01.00
0'110
0.110

TF
I
TF
I
Tf

•

Tf
I

-.""
DC

0.924
06916
06. .1
06915
06. . .
0"1'
06915
01"1
06. .1
01000
01012
0102.
01031
01032
010"
01056
01051
01000
01000
01012
0102.
01036
C).OU
08060
DID. .
01061

'liON
PIIIIIJ+11

I

PIIOII

Z

.'UI-I
,e-START
,3

on..

II

03110
04Ul
04U'

-un

4'
II
4'

01110
DUll

-6916
00000

I'

4'

0310'
01104
0161'
000'9
03616

00002
00000
00016
00000
00000

"

024.2
02490
00000

000-1
03031
00000

3'

01061
010.1
DID. .
1!'99
OU54
08082

00101
00102
00103
00400
12000
00000

16

.

16

15

26
42

l'
n

..
..

I'
]1·

]6

-69,.
00000

'I

,
-3n4
00000
00000

X
00500
00000

011'4
1111"
2

00000
-0215

49

on54

16

01165
2

00000
-OU9

4'1

01154
07165
2

00000
-0261

01U'
0"65
06472
OITU
0.U2

00000
04UP
00000
O.IU
_00
0411N
00000
0"011
00000
04Ul
00000
04"P
00000
-0411

FAC • FAC/J

• 11.

fAC • JIFAC

,8

,11,
,11,
,11,
,11,
,II,

.11.
,e-J

IIOVE EXPONENT TO SAVE.
IIOVE exPONeNT.
IIOVE UPDlllIIT.
III" •

llISA •
lOAD UPONEIIT I

04U6
o.n,
041to
OUIZ
04n.
04".
0419'
0 ..210
04211
042M
04'46
04151
04270
04211
04Z.
04.94

0....

.--nUT

.J

4'

0000.
024.0
00001
00000
00009
-69Z4
00000

16

tHANGE SleN all fat

,11.

04101
04114
0''122

,fAX 1-1

06'"
06192
0. . . .
OZ4'0
OJlO'
01110

49

,Il

,_-3

,flXl-1

00"1
00000
00000

4. onu

]J

16

onu

0405'
04066
04074

.11

,'-START
,I

I liSA
fUll
III"
".11
T_PI
fUll
fIlON+U
2

16
l'

,_-3

IS CHAR POSITIVe

,--3

,fOYil-I

46

41

,--3

.10,

04071
OU'O
0409.

,Fo-l

OOO-Z
0'lZ"
000-0
OUOO
DUlL

PAGE

,.-STARl
,I

,fll'-1

04zn
Dun
02UJ
01012
061 ••
OJa04
02615
0009.

11

03151
03151
03854
03166
03811
03190
03902
0)914
03926
03')1
03950
03962
0391.
0"16
0399.
04010
04020
04020
04032
040.2
04042
04050

FMON
FIION+11
2

FIION
SAYE
'IIPll
XSE+ll
.fO
SAVE
.FDYII

U
U

SET 1

•• -START
,I

2

eoooo

571

FIIDN
FIION+11
2

I
TPI!
DC

-J
O'UO

SUBROUTINES

]

FIION
'"ON+11

04.U

EXPONENTIATION IlOCK
EXPOIIENTI AT ION ILOCK - SECONDARY lINKAGE

START

""

4•

..
.""
..
"
""J

01011
08082
01094
01000

"

8
Tf
I

'AG!!
. . nz
Oint
0"40
06'"
0""
0"76
0""
0 . .00
06IU
0 . . Z4
0'U6
01. . .
0 . .44
06. .'
0. . . .
0 . . .0
0 . . .2
0 ••04
0691 •

01081

FAC
,DO
F\x1l
FAC
,FU-I
FUll
FAt
.FXS-I
FUll
FX5RII>32."t
FXSK 11
FAt
,FXII-I
B
FX"lI
99
,FAC
lO
B
FXOll
99
,fXDR-I
lO
B
FXOR 11
OORe '-1
8~F
RseN Il +40, FAt-l
RSGNlI
B
OORe '-1
'"ON+lI ,.-START
,I
DC
2

""

O~LY

FIRST TIllE

08000

DORe
OS
tM
8
A
8
S
B
8NF
8

DC
-I
B
TFM
Dt
-1
B
TFII
DC
-1
I
TF

D~E

.00101
,00102
.00103

1620 FOR TRAN 11-0
1620 fORTRAN 11-0

-1
B

sn 1

.10

1620 FORTRAN II-D
07640
01650
07660
07610
01680
01690
07700
07110
07720
01710
07740
07750
07760
0"70
071.0
07190
01800
07810
07820
078)0
01840
0f8S0

SUlllDUfI lin

• fl.

._-3

04.14
04111

11

]

49
H
49
21
4.
21
49

02492
06006
02492
06191
02492
06191
06244
06212
024.2
06264
00099
06290
00099
06312

000-0
00000
0)87P
00000
0390J
00000
02492
00000
0394R
00000
02492
00000
0399P
00000

44
4'

06432
0'392

02491
0-000

16

01165
2

-0191

14
49
21
49
22
49
44

.
...••
..
..
..
I'

Z6

4.

Z6
49

z.

Z.

Z6

2,
4.

it

au
.•'
0. . . .

01'"
0''''
OU1,
0'052

ozsn

0"14
07 . .'

1

-....
•

on.4
01lts

00000

On'4

00000

572

'620 'OII'IAN 11-0

'fI"
DC

01l~0

01110

.-.:"it.. ,

'''DII+lI
l

,I

-)

01160
01170
01 . .0

•oc

,

• __ STAU

01190
01200
01210

I
T'"

'11011
'''011+11

••-STAU

""
-J
DC

-J
01220
OlllO
08240

8
TFII
DC
-3
8
DORG
TFII
DC
-4

08250
08260
01210
01210
08290

'IIDII

'~11

t'

Z

.J

fllDII
FIIOII+11
2

,J

,--nART

,'-STAIIT

••

DIlDO

08330
08140
08350
08360
08HO

08380
08390
08400

,'-START

"
,--START

,I

8
OoRG
TFM
DC
-8
8
ODRG
TFIt
OC
-6
8

08450
08460
08470
08480
08490
08500
08510

,--STAAT
,9

FItDN
'-1
FMON'11
2

OSHa

8

08530
OOHO

o·"n

ons.
on.,

00000
-010)

0715"
on.,

-OS21

0 . . 11
04l1•

,--I

04190
04.02
04HO

.9
.6

04H.
0"42.
04"'.
04"12

U

07154

0-000

16

01165

-0573

0"36
0....
0 ......
0.4'4

4'

01154

0-000

••

01165
2

-0595

04451
0. . . .
OH6I
04ft16

49

07154

0-000

16

01165

-0611

044&0
04490
04490
04498

49

07154

0-000

16

01165
2

-0639

04502
0.512
0.51Z
04520

.9

01154

0-000

16

01165
2

-0661

0452.
04534
04534
0.5.2

•9

071' •

0-000

16

07165
1

-0683

045.6
0.556
04556
0456.

'"16

0715.

0-000

01165
2

-0105

04568
0.51.
0 .. 51.
0.51'

.9

07154

0-000

16

01165
2

-0727

0 .. 590

n

011,.

00000

0~)66

,--]
,--J
II

,--)
,.-J
,e-)

,--)
,_-1

,.-)

-6

FMON

••••

II

I

• --1

.8

,--S'AA.T
.6

4t

0"6'

0 . .. ,

,8
,'-START
,6

"
"

-M1t

,.-J

,8
._-STAR.T
,6

2

08550
085&0

08520

0"1.2

.8
,e-START
,8

FIIDN
.-1
FItDN'11

FNON
OORC '-1
TFII FMON'II
DC
1
-6
FMON
8
OORG '-1
TFM FMON-II
DC
2

MUI

.1

-,

08410
08420
084]0
08HO

,--I

,I

F"DN
OORG '-1
TFM F"ON'11
DC
2
-5
8
FltoN
DoRG '-1
TFII FItON'11
DC
2
-8
D
FMON
DORG 0-1
Hit F"oNHI
DC
2

"GI
0....

,I

FIION
'-1
FIIQN+lI
2

B

08110
08320

SIT I

aU.lOllTI NIS

l

00000

2

on ••
011.,

00000
-0551

2

2

2

573
i':

1620 FORTRAN Il-D
08580
08590
08600 FUll
08610
08620

OORG .-~
1620 FORTRAN Il-D
AM
,00
IMSA

081>30

086"0

88
DQRG

08650

AM

FAt

08660
08670
08680
08690 FXNIN
08700
08710
08720
08730
081'tO PSI
08750

8HZ
aNf

PSI-IZ
.-26
EI

8NZ
TF

TFM
TFM
TF
8
0011&

TO"

CF
SF

08760

Mil

08770
08780
08190
DUOO
08810
OIlZO
08130

CF

ou~o

BD
B

CF
OOOREY

08850
08860
08810
08880
08890

08900
08910
08920
01930
08940
08950
08960
08910
01910
08990
09000
09010
09010
09030
090.0
09050 fUll
09060
09070 ONEFAC
09080
09090
09100
09110
09120
09UO

~OP

FAt

.00

FAt
FXERR

'-4

D+32

.FAt

NU-l

FAt
AKJ
FAC

••EI '6

.-.,
lEU
I liSA

az

NU
FAt
IOOMK

TF
All

FAt
9911K

,FlI

,

,IIISA
,712

,FAe
,01

,

-"

,00

TF"
TO"

18

8D

INF
TFII

..

.. n

fat
"C-2

.-t

•• 44

.-1(0
Ei

IS J • ZERO
YES. IS I POSITIVE
NO. EU &1, ZEIIO TO MINUS I POWell,
SET UP ERROR EXIT
FAt • FX9

,01
.0000Z
,Filii

.I"SA

.n..

PAGE

..
....
..
..
.9,

.10,

..
..
...11.

.lO,

.10.

.t,

H
U

02HZ
0.1\6
0"')4

000-0
01200
02515

AU.,

OOP71

anal

16
16
26
.9

03106
02492
01676

-31"8
02.05
00000

04115
0.716

l'

04133
037&1

00001
00000
00000
000-5
00000
00099
00000

on..

I DOD

au..

19

IS I '051 JIVE
NO. ERII 102, J TO ItINUS I POilU

FAt • FXl
SET UP EUOR IX IT

0"'"
04 . .1
0 . .10
04192
04""
04916

OHZ:»

STOllE J
J • 1-1

0"'2"
0"'16
0....
0 ....0
04911
0."4
04. .6

TUT OV'L

EaR GJ. DVFl iN FIXI
SET UP SIGN

osaoe

OIOZO
050)2
050"

O'Otl

lSI ZERO

05012

0'06"
01016

0""

DIll

OUOO
05102

IS A IUD
YII. IS I N!GATIVI

YIS. I •• 04,

0 •• 0.
04120
O.... IZ

a.... ".

J • +Oll-ONI

'At· 'LT "

26
U

Ii

n

JZ

Dzsn

U

02515
02U.
041"
04no

n

U
49

OoH9I

J NIG. SET SI'N NEGATIVE

YU

II

000-0
01200
02825
00000

I EVEN

,6

•• '0,
,9,

.,

02575
0.6]6
02.92
00000

04740
04752
0416"
DU7.

.10

"

04598
0.610
04.l2
OU3.
0.636
0.636
04HI
041060
0.612
0.6.4
0.696

041Z1

SET SI'N POSITiVe

,eEfA

.-72
,773
U
PURR." .1
I
'X"IN+12
DORG e-4
All
IfilU
,00
8Z

DOli'

..

.10.

FAC
,FXl
FXERR+30 ,fIXENO-LZ,.
FXERR

It
SF

Tfll
TF

YES. J •• J • ONE

,FX9

DOOREYH,1
IIU-l
11154-1
·IIISA
.05
I"SA-l
,99
·+20

MU

8NZ

EXPONENTIATION BLOCK - SUBROUTINES
.10, I S I • ZERO

.111$&
,771
,9,
HERII+30 ,FIXENO-I2, •

C
TFIt
TF
TFIt
8
DDRG
TF
SM

SET 1
0.591

,FXI

.-9

BE
8~F

I NES

-+26

DORG .-~
SlIf 8+36

SF

SU'~OUT

Z'.O

TO MINUS

OUOZ
0'U6

asia.

..
.
4.
U

n

Z4

OU)2

onll

02.. 92
05U"
OZ4.,

OZU2
00000
00000
00000
02825

to. onu ouoo

•4

Z•

"

4.

..
Z6

11

n
U

Z6
11
"6

••

0492 •
026t5
OZ.92
on06
01676

02"'2
0J29L
OZ"'2

1)260)

onu
OIUO

0."6

02615

11
H

OlUI

It

U

00000

0"'9Z
000-1
OUOD

onOI

U

-11"1

OZ'01
02515

15
.9

.
••..

02515
00n2
Oll15

0 . . .6
0'102
02_92
01'''0
00000
0,. . .
05100

02611

00000
00099
000-0
OUOO
OO,U
00001
00000
000-0
01200
000-1

01031
00000
OU1L

olJn
oon.

574

1t20 'DaTIIN 11-D
0.a40
09150
0'1'0
O'UO
09110
091.0
09200
0'1i0
O'UO
09UO UJ
0'2~0

O"50
0'260
D'210
0'1.0
Oq1'O
0'100
0'310
0')20
0.\)0

OH40
09150
OH~O

O.HIl

oqno
o,]qO
Oq",oo

Oq410
0942U
09430 NODIY
09440
09450
09460
09470
09.10
09490
09500
09510
09520
095JO
095.0
09550
09560
09570
O9~BO

sus

09590
09600
09610
0.620
096JO
09640
09650 Milt
09660
09670
096BO
09690

SUIIOUTI ... S

I
IIAN"
DOl' 0-4

" ,,,
FAt-I
sav.

TO
C,
TOIl
TDII
I
DOl'
TDII
TPM
"M
TDM
TFII
IN'
C,
TF
Lo
0
TF
TFM
TF
TFM
B
DDRG
INF
INF
B
ODRG
TF
rF

TFII
HII
SM
8Z
TF
II
TF
A
8
DORG
8NF
B
OOIG
TFM
I
OORG
TFM
TFM
B
OORG
TFII
TO
TFII
TFII
TFII

,fAC
,'AC-2

,0
,.c-a
ODDaIV_a,t

"

"

0-4
,0
Fat
X_II+'O ,flC
111101+ & ,4'
"NISH.'"
FINI5H+l,PlNI5H
NDDIV
,IIISA
IIISA
,1110-)5
l'
9IIIF
LOIIIl.2
,FAC
"ilF
FAC
,9111'
".,.
FINISH
ISE+II
,saVE
,01
SAVE
ISE
'-4
,FAC-I
NOD IV
,FAC
50S
SOS.ZO
0-4
GAil
,FAt
SAVE-Z ,SAYE
FINISH ,505-20
FMFAXI+2),SAVE-2
I liSA
,01

,

..

,

"

..

,10,

,nl

..",.

,t,

"".12
0-4

GEHT+I> ,UIDD
99
... U-l
ERRDU1,,.
FINISH ,ENDD
XNollI.)O ,FAC-I

u,

IfTUIN

SIT II' 51l1li

ar

11
l1li-&

SIT UP '+' NDaIlILIUTION
sn U, leTUiN ON EIIOI
IS I NIGATIVE
YES
CLEAR OUOTIENT AREI
fiND 11&

..

,10

..
II

FOR CHAR ERROR CHEca
DID ovn OR UNFL DCtUI
YES, OYPL
UNFl
$lORE A

"

SET UP RETURN FROII FM'

.10,

I • I - I
CLEAR PROD AREA

,11
GO TO FliP FOR CHAR CHECK
DID OVFl OR UNFl OCCUR
YES

,'I,

UR G5. OVFL IN FAXI

'"

ERR G6, UNFL IN FAXI
SET UP TYPE OUT OF ERR

..

REIIOYE ERROR TYPE OUT
SET U' SIGN
RESET

,10.

OU.I
OU.'
OU'"
OlUI
OS no
OU"
OU"
allOt
Dun
051
OIUt
DSUe
osnD
OIU2
05174
0521t
on . .
ontO
OSill
on"
on...
05)51
D5nD
DUIZ
05319
05190
05402
05'H4
05421
05422
05434
0""
05451
05470
05 •• 2
05494
05506
05511
055)0
05542
0554"
05550
05562
05569
05570
05582
05589
05590
05602
05"4
05621
05622
0563.

a.

,II

""

,ZERO-)5
79
,!;aM
FAC
,nllf
FAe
,5AYE-2
saVE
FMFUI
'-4
NODIY+48,FAC-1
NoDIV-20,
'-4
,775
EI
-+20
·-4
,776
EI
GEHT+I> ,ERROII

STaa. CHII
CDlWIIT a TO '.2 ,aa.
sn

"

'SI

PA"

sn a

A"..

051>51
05610

4.

on..

00000

U
It

OZ'"
024.2
0'4"
0'491

024'2
014.0
00000
00000
DODO'
00000

.,"
J)

n

IS
a.

"

II

n,

oun
04UI
OZ4.,
D6.14
03677
DlIDS
OJlIO

4'

05~12

26
ZI

00019
on20
onzo
024,Z
O)lD3
067U
DZU5
!J615Z

n

,.
Z9

I.
2t
16

u

.,
"

02~"

05.22
D5no

4'

O~~.O

Z6

02555
02563
03103
06519
02575
05622
00079
02492
02492
02565
06551>

Z'
16
16

..12
ZI>
2J

16
21
49

..

4.
.9
49

05.70

00000
-'4'2
00011.
DODD'
-nDL
onu
00000
OZUZ
03040
OZ4'Z
onll
-BtO
02U5
ODD-I
DOOOD
OZ~'I

D24'2
00000
02492
0251>5
-'550
-2563
000-1
01200
OZ732
02555

onu

0251>3
00000

O~402

024"
00000

021>15
05602

00'75
00000

16

02615
05712

49

05~3'

00P71>
-1676
00000

16
25

05112
00099
031>11
0310)
06954

-J71>1
OJ7l1
000L4
-)71>1
-2491

16

16

16
U

20

575

1620 FORTRAN II-D
09700

o"no

09720
09710
097.0
09750
09760
09770
09780
09790
09800
09810
09820
098JO
098.0
09B50
0981>0
09870
09880
09890
09900
09910
09920
09930
09940
09910
09960
09970
099BO
09990
10000
10010
10020
10030
10040
10050
10060
10070
10010
100'0
10100
10110
10120
10110
10140
10110
10160
10110
10110
10190
10200
a02l0
10220
10210
allZ40
10150

GEHT
FAXBl

MANTP

OLIlII

FUll

TOil
TFM
B
DORG
SM
TF
All
BZ
10
BNF
TFN
TOM
I
DoRG
TOM
BNF
TOM
CF
TON
TFII
B
DORG
TFII
TFM
B
DOIIG
T'M
B
DOIG
TOIl
NOP
TFII
TOM
B
DDRG

SUIROUTI NES

0-4
FAX8-1
UFE-2
TAPE-Z
ONEFAC

••FlNISH>1
'6
EI

,OZ
,FAl8-1
,aD

,

,FNH
, TAFE-2
,777
,0

,10

,11

.10.

..
II

,II,

,'I,

99
OVFLoll
0-4
oLII. . '
,FAC-2
0."
,I
aLNR·1
FAC-Z
FINISH.2
F INISH.7 ,*.20

IS B ZERO

YES
IS A ZUD
IS B NEGATIVE
YES. ER G1 ZERO TO MINUS •
SET SIGN
SET UP NO ERR TYPE
IS A NEGATIVE
YES, Set UP EIIR TVPI

"
"

,6,

LlIEtlT

0-4
FlttlSHH ,·.32
,TAFf
FM'-I
FM'
0-4
FINISH+7 •• .. 20

FIND LN OF A
SET U' MULTll'lICATlQN
IIULTIPLY • TIllES LNIAI

E~'ENT

",

FIND A"I • 1 •• ILNtAl

'INI5H.2 ,2
FINISH.'
,616
EI
,0
99
EIIOR

,',

UI Ft, -ATOI

.-6

.-.

.,
flt
• .-3

oUZ

TF

IIU-I
.at

,

It

•• Xl

It

,FAt-2

It

,II

II

•• 44

YES
NO

SET Ell T"E
SIT ER E., OV'L IN fIX
YES, Fat • , . .

,IUD-sa

It

CLUR

,IM"I'F

It

ALIGN DICIMAL I'OINn

• .It-Z
--3
,."" .. n,
"
""
" ," dJlU.
DDIIG
tf

TF
TF

S
A

FUll

,.

..

IUa

' .. 1

DUIIIIY

I
IIU
DOIIG e-4
o+U
IV

STOlE SIGN
IS CHAI G."EATII '"A" a

..,',

. .UI.25 ,I
.119
EI
flNte12

,'aC-'

05682
05694
05706
05713
0571,
on,.
05UI
05750
05762
05774
051'6
0579.
05110
05111
01111
05830
05,4a
05lS.
OS'"
0517.
05190
05191
051'"
OS9IO
05922
01929
019)0
0594Z
05949
05950
0"'61
01974
059. .
01991

06001

'IXENO

ODIG
TO
t
BNH
TOil
TFII

PAGE

SET I

FlNISH>Z ,Z
FIIFUI.n,FAC

"

ADO

AlIA

0600t
06011
06030
06031
06031
060S0
06062
060'4
06016
060. .
0"06
OUo.
at III
Ot&lO
at I..,

11
16
49

lZ
Z6

11

••

43
.4

..
16
15
15
44

15

n

15
16

"16
16
49
16
~9

15

41
16

.
15

4"

Z6

'Q
ZI
Z4

U
IS
16

"JJ

Z6
Z6
It

on.. u

0""

Zl
II

..

0)805
01>579
00000

00002
-2.92
00000

04257
025))
025)3
05071>
05811
03801t
026n
00099
03652

OOO-Z
OU5P
000-0
01200
OHIL
025))
OOP11
00000
00000

05961
0586.
05963
02.90
0)805
03810
0]360

00009
02490
00001
00000
00009
-5191
00000

0)810
04117
04138

-59]0
-2535
00000

03810
0))71

-5950
00000

03805
03804
02615
00099
03676

OOOOZ
00000
00016
00000
00000

060)1
0'4'2
03760

01100
02811
00000

0]111
02."
06106
03101
02615

024'0
OZZZI
01100
00001
00N79
00000

on"
OZ60J

00000
01116
oal1s
0""
0'4'1
OZ4'O

ann

DUll
06111

at 112
-.

atnl
0'4'1
at Ito 4' onu
at&9?
at,..
06210

21

on"
00000
01400

17&

" " • •' ..N I l-D
10160

II
tono
DOII&
PAC
10110 'I$lU "
10lto
hA-1
'fl
10JOO
I
0011& .~I

e-'

,IA

~m:

S,

lono

101.0
10150 FIMI1
10UO
10)70

iouo

DORG

10J.0 FlDl1
10.00
lD.l0
10"0
10.10
10•• 0
lono FINI
1041>0
10HO
10480
10'•• 0 HOR II
10'00
10510
10520 RSGNU
105.10
10 ••0
10550
1051>0
IO'HO
10580
10590
101>00
101>10
10620
10610
10640
101>50
101>1>0 FMPlI
101>10
101>'0
10690
10700
10no
10120
lono FMfAXI
107lo0
10150
10760
10170
10780
10790
10800
10810

PA'

1
'UIIU+12
DOIIG ,....
SF
10CIIIII
TF
FaC

..

..
D
I'll
TF

....

•PI,"',

.-. ...
10...11

eU'
FAC

MY.

....I

1ft "' ...

lUNCH YO PlXlD PDIHT . . .

..
.,,,

., "

..
.

.,At

Ba

OURG e-q
a.., ··26
CF
FAe

aa

DORG
Sf
88
OORG
SM
LO
II

BE
A
TF
lOM
8'1V

eN..

8
DORG
TON
8H
TFM

.-9

FAe

e-9
fMP-1
T9

FAC-2

,URD-l0
,FIIP-l

,11,

..

SUIT TWO FII ... ADDRESS •
CLUR ARU 'OR 'lIaouc:T.
MULTIPLY TWO IIANTISSAS.

,FAC
,HNO

.11 t

"
"
"

ADD EXPONENTS.
IIOVE F+1 DIGITS OF PROoutT.
SET UP ERROII COOE E••
NOR"ALIZE IF SUM NOT OVIRFLDII.
TIST SIGN OF .. 'IININT.
UNDERFLOW.

UN!=t.:J -1
';."N.)RM.41

,.

..lO

,FAt

ZUFAC

UVE
F.C,.

.to,

•2

,

\J"t!lD-12 ,

'-4
OVFLOM-I ,J
OVFLDI!I-12,
SAVE
INORM
~
OORG 0-4

...

",10 ..
"

SET UP ERROR COOl n.
OVERfLOW.
SET EXPONENT TO ...
NORIIALIIE.

OOOH

ol.n

01400
01210
00000

00000

,.""

Oat"
OlYD
014"
0161•

-n••

HU.

29

OI29L
HIGI

0 ••92
00000

H."
061"

.,••n

0 .... ·OU'O
0 . . . . 00000
00000 00000

.,

0'.'0
00000

OU..

12

O.U. I t 0 ••"
0 ••••

F liED POI NT HUllln

,fAC

0. . .

OHCIO
10000

at
II

0. . . .
0 •• "
01>411
....0
OUU

ODRG.e-,
SF
fAC-2

OODDD
OICIDD

.1 06111

......
... n, ••
...... ..

'LaATING 'DINT HUMIIII

OHCIO
DI.. '

0 ....
0. . . .
0 .....

0....
0....
0 ....
0 • ..,0
0641'
06..,'
D••••
D....
0"0'
o.uo
0613'
0""
D.".

D....
06l~

06511
0....
0 . .00
06."
0. . . .
0....

DON"

OliOS
00000

00000
00000

.,n

02492
00000

02 •• Z
00000
00000

12
42

0""
00000

00000
aoooo

04nl
OD019
0,..0
OJI8 •
II onu
26 'OZ491
It 07019
IT o..n
It
I t 0700.

0""

000-2
02757
04UP
01200
02.92
OUIO
0000.
01.00
0'492
00000

016..
0".0
0 . . .1
0 ....

0000'
01100
000119
00000

12
II
U

••

..••"
11

II

11000

01000

0610'

0 ....
H.n
H ...
0""

II

...

,

011"

•1
I'

0111'
01 ...

.RROR II
SET UP ERROII EI IT
fAt. Fl.

ol.n

0 . ."

01'"
01'"

.11

•••

II
at

01'16
01'"

,,"

.'110-1

.......""I,",.., .. .....
""'
.....
DI... .
••,
..
DI'" .....
A.,.. a.
.,..,
II

••

•

DOIIG .-.
TFII E/
fFlI FlUII+IO .'IlENO-12 ..
TF
fAt
"x.
8
'URR
DORG '-J
0
100MK
,6
8
FXDII+12
DORG
8NF ·.26
.FAC-,
tF
FAC-2

e-.

SUIIGU1'I"S

577

II>ZO FORTRAN 11-0
10820 I'D
10no
10'.0
10850
1081>0
10810
10.ID
10890
10900
10910
10920 XSE
109JO
10940
10.50

~~:;g

TF
SAVE
• FAc;
5M
,FO-l
,2
TF
19
• IE 110--.
LO
POT
• fAC-2
D
POT
.FO-l
TOil OVfL 011-1 ,7
BV
DVFLOW-12.
tF
FAC-l
.'OT
TO
.9
• ,ac-I
URFAC+U,
lIZ
SM
SAVi
TOil OVFLOII-l ,5
INV
8111' OVFLOW-U.FA,
TOM UIIFLO -I ,.
8N
UN'LO -U,
T'" SAVE
I
.NOR"''' •
'DOilG .-.
TF
IShU
,FAt
SM
FDVR-l
.2
7.
• 21_.
LD
lOT
.lIOYR-1
0
'OT

x_"

10910
10990
11000
11010 IFOVR
11020
11010
no.o
110S0
11010
'0 ,It
110TO
B
.'0+1>0
00lt& •••
UO'O
,,090' INOR" 10 ' 'LVI
11100
Til
IUID
''''FAt-l
,S'
lHao,
11110
10
FINISH
111.0,
SII
51.•
lH~O
INV' 1C1I0IIlI+ 12
TFII II
&11'0 '
&1110 UN"D TFII 'lC
TF
,At-a
111.'
11190
I
. .aOl
DOIIG ....
11'00
11110
DOItI'looa
11220
II
AI
uno
16
A'
l1a.o
Til
"AU+)
,•• tI
uno
I
11260
DOIIG •••

"

'NN

'1IIt

uno u

11110

os, •
0'''')1051

"

• 10,

"
".

."1,

,11,
"

"
"

•

.10.

.-.

If

"
"

"

.10,

"

SUiROUTI NES

SET U, UllaR COOl IT FOR o DIVISOR.
DIVIDED IV zelia.
IIOVE QUOT lENT.
STORE SIGN DIGIT •
ZERO OUOTI ENT.
SUITIIACT IX'ONENTS.
SIf UP UIIOR CIIDI EI.
OVER'LDW IF RESULT IS 'OSITIVI.
SET UP .RROII C:ODI ,I'.
UNDEII'LOII If RESULT N.GATIVE.
SET U'CININ' TO - ••
NORMAL lIE.
',

.10.

.,"
.FI'-'
."VI

..
.'•••NN
..
.,IIM ••
••
.n.
.-.' ..'.

CLUII AIIU FOR QUOTlENT •

.1>".
KEU $IIN OF DIVI".,I_T.

• 'L1. LEFT SHIFT illitE
SIT UST DIGIT TO ZERO •

•

•• u.
.10.

.10

,1S"-l

TIST LIADING lERO
SUIT DNI '11... EIPDNENT.
SET '" '.UOII COOl 12.
SET RESULT TO 1.110•

,,"

onll

06140
0615'
0""
0611.
on. .
.... 00
..
.," .
00.
0""
0 ....
0 ....
0 ....
06 ...
....10

.n.......n

z.

I'

Z6
n

11
I'

••..,
••"
11

Z6

11

II

......
...,.. ..
......
U
.........
,..
It

01'"

0. .11

0l00•
010.a
nOli

81064

'Dlil'" - ste....., La.....

olin
oun

U

11

4l

.."
aI

•1

J.
•1

n

..064

16

ZJ

02.92
000-2
onn
0,..0
0416J
00007
01.00

OJ6n
0 •••0
01691 onn
00099 0'''1
OJI. . 01200
O,MI 000--0
OJ.l1 00005
0 . ., . 01.00
0"40 0'."
01019 00001>
0100. OUOO
0.161 . OOORR
00000

D.'"

D.'"

0"'.
000"

Oll.~

oun

.I..a
OK"
DUlL
0""
OlllL
OIlOL
0""
0. . . .
O''L.
01. . .
01 ••0
Oil"

..... t, ..."
.....
........" •
.... .,
Dlon

.IIIIIAT

..
..,
21

01106

11m

11-0
11-0

I'

Z6

OU'S
OIl"
00019

"
...."
...... .."" .....

0 ....

TR,

.

06. .'
061. .
061"

0....
0 . . .1

1UOD

~

0661D

0'0'1
0.010

.00102
,oo,os
.11000

Teo. 0,000
,
,,:no ••••••
lUG ,000Ta. .
uno .....
~~ 'OIITR"

0""
0661•

Z6

H,n

,11

•0

PAGE
0"'2

0 ....

DSA ,fIX

uno

SET 1

SAVE EI'DNENT OF FAC •
SUITRAtT TWO FRail ADDRESS •
CLE'II ARIA FOR GUDTIENT

"0"
. .0 . .
OIlM

02"2
000-2
onsl
OU . .
0 •••0
OlS"
ODDDO
DULL
OJlOO
00000
ODDOO
OJlIL
000-1
01400
OONn

OOOR•

olin
00000

00102
OO'OJ
12000
00000

~

I "
-11M
00000 00100
00000 OHCIO

578

1620 FOUUN 11-0

IIUO
113_0

1l0lG
OS
TF"
DC

II no

IU60

IIno
IUIO
IIno

onu

TFM

F"ON
F"O"+II

,_-STAU

1

-I

11410
IU40
11450

B
TF"

F"ON
F"ON+I\

2

DC

-I
B

11460
11470
11480

TF"

114~0

F"Olo
F"ON+I\

DC
-I

2

B

FMON
'MON+l1

]

031"

,e-)

DC
8
TF"
DC
-I

I

,--SURT

,I

11400
11410
11420

sn

)

'"ON+II

2

-I
8

SUIAOUTINU

STUT

"
"

01"_
OU62

"

onu

01 . .6
0)17'

4'

07154
07165

16

Oll. .
Oll90

,_-START

0]902

0]910

,_-START
,I

,.-)

,_-START
,I

,.-)

"

16

07154
071.5

00000
-0051

2
07154
07165

0]914

2

0]950

00000
-0027

2

0]914
03926
01931

-000]

2

49
16

00000
-0075
00000
-0099

0)951

IISOO

T'M

IISIO

2

,_-START
,I

0]962
0)974
03982

49
\6

07154
07165
2

00000
··0123

(IL
-I.

S

,_-START

0]986
03998
04006

n

011 ~4

16

0711oo1j
l

00000
-0141

04010
04020
04020
04028

49

07U4

00000

16

07165
2

-0169

11

024n

11520
11530
11540
11550
11560
IIS70
11580
11590
II bOO

TFM

FMON
'MON+1l

OC

2

-I
8

FMON

OO~G

--I

"

JrM
OC

'04010+11
2

-I
B

FMON

,_-5'4.T
01
.8

,--)

040]2
04042
04042
04054
04066
04074

01

,.-)

04078
04090
0<0098

,_-START
,I

,_-3

DO~G

--I

IlblO

AM

FAC

IIb20
11610
IIb40

B

J FLOAT

TFM
DC

FMON+ll

,--START

1

,I

F"DN
FMON+I\
2

,_-START

-I
B
YrM

IIb50
IIbbO
1Ib70

DC
-I
B
TFM
DC

IIb80
I1b90
11100

.10,

,00

FMON
FMON+II
2

IS FAt ZERO

0-000
49
16
49
16

0~106

O!tfJ"
2

000-0
00000
-0215

07\54

00000

(l1lb"i
2

-023Q

07154
07165
2

00000
-0263

04122

,--3

04126
04138
04146

07154
01165
2

00000
-0287

,*-)

04150
04162
04110

07154
07165
2

00000
-0311

04102

04114

·1
B

11110
11120
11110

TFM
DC

FOION
F"ON+
2

II

-I

11740
11750
11760

8
TFM
DC

FMON
F"ON+lI
2

-I

,_-START

"
, --START

01

49
16

579

/

Ib20 FORTRAN 11-0
11110
11780
11790
11800
11810
11870
11830
11840
11850
11860
11870
11880

B

FMON

lFM
DC

FMON+ll
2

-1
B

FMON

TF"
DC
-2

FMON+ll
2

8
TFM

F"ON
FMON+ll

DC
-2

2

B
r~'"

F"ON
FMON+ll

DC

2

SUBROUTINES

SET I

PAGE

04174

aHa.

49
16

07154
01165
2

00000
-0335

,.-START
,I

,*-3

04194

,.-START
,2

04198
04210
04218

49
16

07lS4
07165
2

00000
-0359

,.-3

,--STAIH
,2

04222
04234
04242

49
16

07154
01165
2

00000
-0383

,.-3

,--START
,2

04246
04258
04266

4'1
16

01154
07165
2

00000
-0401

,.-3

0715<0

00000

04282
04294
04306
04318
04330
04342

26
49
26
4'1
U
4'

05861
05498
OU61

04281
00000

04)54
04366
04371
04]'10
04402
04414
04424
04424
044]6
04446
04446
04454

25

-2
11890
11900
11910 wATY

llno

11910
11940
11950
11960
11970
11980
11990
12000
12010
12020

WAPT
WACO

B

FMON

TF
8
TF

SWF
WA TY 1
SWF

B

WAPTI

TF

SWF
WACDI

8
RATY
RAPT
RACO

120]0
12040
12050 ITYPE
12060
12070
12080
12090

T'
6
TF
8
TF

SWF
RATYl
SWF

RAPTI
SIIF
RACDI
DOR, --I
AM
SIIF

WR ITE AL PHAMER It
,WATY-I
,WAPT-l

,WACO-I
READ ALPHAMERIC
,RATY-I
,RAPT-I
,RACD-I

8

,I
,]

8
I TYPEI
DOA' '-1
TFM FIION+U

,_-START

DC

,5

2

,.

,_-]

0~518

0430~

00000

05861

04329

05~38

00000

26
4'
26
4'
26

05861
05862
0581>1
05682

••

O~q(l2

04353
00000
041T7
00000
04401
0-000

II
4'

05861
04598

-0003
0-000

16

07165

-0595

0~861

2

-5
12110

~OR' ~~r

U120

""

12100

12130

DC

121_0

•

-I

,--STAU

2

,I

'lION

12150

DOA'

_-I

17\60
12110

TFII
DC

FIION+U
Z

UIIO
12"0

-9
I
DIlttG
""
DC

U200
U210

uno

uno

uno

--I
FIION+U
FIIOII

TFII

FIION+U

Z

oalG '-1

0445.
04 .... 1
04_61
04476

49

07154

0-000

16

07165

-0617

49

07154

0-000

..

07165

-06]9

• ..-1

04410
D44'0
0_490
044'1

••

04502

49

07154

0-000

04Jl2
OU20

16

07165
2

-0661

OU24
OUI4
0411_

49

OTU4

0-000

16

07165

-06"

,.
,'-)

,.
,_-STAAT

.t

FIION

-.
•

Ill.

FIIO,.+II

.--SJARf

.1

,.-1
.1

,_-STAAT

2

2

OUll

580

16Z0 FORT.'" 11-0
12no

DC
-6

,6

a

12260
12270
122eO
11290

FMON
DDitG .-1
TFN FIION+11
DC
Z
-6
8
FMON
DORG '-1
TFM FMDN+ll
DC
2

12)00
12310
12320
12330

,·-START
,6

,·-START
,6

,.
,.

SUIRDUT I "IS

SlY I
06''''

,e-3

OHU
06'"
04'"
04566

,e-)

06'"
04571
04571
045. .

-6

12340
12350
12160
12)70
12310
12)'0
12400
12"10
12420
12430
12440
12450
12460
12410
12480
12490
12500
12510
1.2'20
125)0
12540
12550
12560
12510
12580
12590
12600
12610
12620
12630
12640
12650
12660
12610
126.80
12690
12700
12710
12120
12730
12740
12150
12160
12110

8
FMON
DORG .-"
11020 FORTUN 11-0 I FORMAT - SUBROUTINES
MAtRD FOR I TYPE RUO AND WR IT!
I TYPE I TF
WIOTH2
,SMF
,11
A
LAST
,MIDTH2
C
LAST
,MU2
8H
ER F9
TF
INPLUS
,LAST
TFM IR OIG+b ,FAt
TFM SWC 'OJ ,WRITE I
80
SWL
,RWEFSW
TF
.F'PUII(
TERM
TF
FAC
,FU
TFM SWC ADJ ,READI
CHAR BY CHU IS MOVED INTO FAt,RIGHT JUSTIFIED,UNTIL SIGN
DR W CHAR ARE EXAMI"ED.
ERROR F7 WILL OCCUR IF MORE THAN K CHAR ARE AVAIL TO READ
IRUD SM
WIDTH2
,2
,10
BL
SWL
5M
INPLUS
,2
CM
1 NPLUS
.70
,6.10
8H
IR DIG
8E
IR 8LNK
eM
INPLUS
.00
,610
8E
IR 8LNK
CM
INPLUS
.20
,610
8E
I M"NUS
eM
INPLUS
,10
,610
8E
SWL
8
fRR F71
DORG '-4
IRDIG TO
,IIIPLUS
,II

......
......

C

·-'6

8L

ERR F7 I

IR8LNK 5M
8
DORG
IMINUS SF
8
DO~.G

, TE'A.M

IR D1(1+6 01

I READ

.-4
FAC
SWL

'-4

ERRF1\ TF
T"M
8

FAC
EI
SWl

DORC
READI SF
TF
8NF
CF
READIF TF

.-4
FPIMK
FLl END
FLOAT
Loe
LOC
LOC
loe

,FXZ
,611

..

SET FIXED lERO I"TO FAt
INDICATION

,911, SET ERROR n

11>20 FORTRAN 11-0
12180
12190
12800
12810
12820
12830
1284Q
12850
12860
12870
12880
12890
12900
12910
12920
12930
12940
12950
129.60
12910

11980
12990
13000
13010
13010
11030

SM

ERFl

TF
8NF
CF

B
OORG
IFLOAT 8Z
TO
eF
TR

B5NF-12

EI
ERCDM2
·-It

lERFAt
99
FAt
BETA-9

TF

FAC-Z

TF
TFH
BD
SM

SAVE

AM

B

•• 23
_+44

SAVE

--13
'-36

.

SUI.OUTI NES

,I>

.

,FAC

.FXH
,95PF-1
.K

,8ETA-9

,

,01
,01

,6

..

,6

..
....

BR IF NOT ERROR TYPE Fl
ERASE ERROR F 7 INDICATION
YES
STORE SIGN

,II

..

,10,

CLEAR FAC
CHAR. l(
FIND HI ORO DIGIT
ADJUST CHAR

DORG 0-3

TR

,--31
,611
,FNH
FIND A"D CLUR RfeORDMAIIK
,01
• .. 23
13050
'-12
13060
TOM 0-1
,6
.0
\3010
TD
FAC+l
,ItECMK
REPUCERECDRD MARK
13080
TF
8ETA
, ZERD-7tt
CLEAR BETA
13090
8
11'101160
13100
DOllG .-3
13110 INOR)6 TR
FNH
,FH
,611, LEFT SHIFT 0"'£
13120
TOM FAC-I
.0
SET LAST DIGIT TO lERO.
,
FNH
H130 II'IOR60 SF
,6
13140
BD
FINISH
,611, TEST LEADING ZERO
.F"H
13150
SM
,I
SAVE
• 10, SUBT O"E FROM EXPONf"' •
13160
B
I NOli 36
U170
DORG .-~
UIIO ICDN1 8
READ IF
,I
0-4
U190
ODRG
13200
1620 FORTRAN 11-0
FORMAT - SUBROUTI"U
11210
DORG HUhl647
UUO WAlYI TF" MAX
,0. . 7
UUO
8
MUAlP
DORG .-3
U240
1)258 WAPTI TF .. MAX
.0811
U260
8
WRTALP
DOIIC '-3
U210
,10.0
I1Z'O WACO! TFM MAX
U290 NRTALP TO" RWEFSW
,I
to"M~'O. tACH VRITE
13300 RII'
TF
OUINH>2 ,IIAX-Z
INITIALIZATION 'all UCH 110 OR VIUTE
SF
UUO
MU-I
UlZO UPS .. OS
2
13130 IIUSII DS
I
,·-2
SET TO 1 IIHEN IIATRIX "AlCOIITROL
nD~O

TF
A/I
8Nft

FPlH
·"35

..

..

,.
,.••

,_.,

..

0"590
0"'"
04'98
04610
04622
0"634
0410"6

0465'
0"670
04682
0""4
04706
04711

04130
0"742
0lt1'4
041106

04718
04190
04802
04814
04826
048)8

o"no
04862
OUH
04881
0~882

0"894
04901>
04918
0"930
04937
04938
0"950
04951
04951
04910
0498Z

49

07154

0-000

16

07165
Z

-070'

.,

071'4

0-000

0716'
Z

-0727

07156

00000

059"
05736
05736
07002
05945
0 . . 11
06064
05"4
06715
02"'2
0604"

O,16J
05956
060)7
01100
05736
-24'Z
-4446
05953

05956
05""
0594.
0594N
04882
0"918
05'4N
0"918
0594N
0"938
0594N
05934
04958

000-2
OUOO
-0002
OOOPO
01100
01200
000-0
01200
OOOKO
OIZOO
OOOJO
01200
00000

II
49

00000
0"888
04958
04888
041)0

0594N
06785
01300
-0001
00000

12
49

02492
059)lt

00000
00000

U

02492
02615
059H

02a15
0001P
00000

16

.,
U
21
26
"6
26
16
16
H

26
26
16

12
H

12
I"
46
46
I"
"6
I"

".
"
U

~,

25
H

41

16
4'

onn

02115
-4990

PAGE
04989
04990
05002
05014
05021>
05038
05050
05062
050H
05086
05091
05105
05106
05118
05130
05142
05154
05166
05118
05190
05202
05214
05Zl6
052J4
05234
052"6
0525.
05270
D5ZIZ
05294
05306
05311
05)26
05326
05338
05350
on62
05374
05)86
05)9J
05)94
05401
05491
05491
OU10

)2
26
44

0328L
0)810
04042
05981
0598J
05981
0598J
05114
02615
07018

00000
05400
05911
00000
02492
-0002
02490
02615
00000
00000

0)51"
00099
024'2
02594
02490
02565
05201
05234
02565
05201
05190

OllOO
02492
00000
0328L
02853
02221
-2594
00000
000-1
-0001
00000

DUlL
05211
05211
05258
05Z1J
02lt93
02603
05150

0520J
0]313
-0001
00000
00000
02"0]
02693
00000

n

OHIL
02491

J2
ltJ
U
lt9

onll

03300
1)0000
00000

0)80l
02565

onlL

on26

000-1
00000

411

0503.

00000

16

01924
05no

0-687
00000

O!J9H

0-117
00000

)]

26
II
26

.
U

)]

46
Z5
II

31
16
21>
16
43
U

11
49

)1

2.
II
U

as

n

26

6'
Jl

0'5"
OUI.

'"16

OU30

U

05511
0'53'
0"'0

0"'2
0557.

Ult,

onu

Z6

Z

SET I

,ltON2+6
,LOt

,F"AC
,2
,F4C-2
,EI

PAGE

I--J

16
U
16
12

0'550

0592"
0'U3
06059

O!J9U
Z
I

581

27

OJOIO
00001
0592Z
00000

582

1610 FOR'UN II-D

..

UI40 liE_Sill OS
uno

Inn

uno LOCO
U . . . LDtDII

IUtO

11410
11410
11420
IIUO
U ....O
U .. 50
U"'O
U410
U4IO
U4.0
U500
USiO
U520
uno
U5 ..0
USSO
US60
UI70
USIO
U590
13600
13610
IUIIO
uno
13640
U650
U660
U670
11610
13690
U700
uno

......
......

""

'011
liS
Tfll

a
""
a

"M
RIIAlI
'Oil
CDIIPSII as
TIl
TR
til
IIIDTH OS
INE
RCTY
LAST
OS
10
UDOlf TFII
B

CII
INE
8C4
TOM

I
'-1
SIIUI
I
I
IIESEIIUI
IIAl2
IIAlII
IIAI I

LAU
COMPSN
IIIII-I
IIIIH."
IIAX-2

..
)

;.

5
ISIIF
10RT
10GT
MAX-I

·.2.
--J2

.'
.000DO
.1

.--.
.6f.

,--1

SU.aoUflNES

.nl
• LOC lIP DIUNAL AS SPit .., fill."
'1l1U LDt a

•

.'

• I NIl
.IIU
.IIU
CON'INUATION OF I .. A. ALSO USED AFTEII EAtN OUTPUT
RICDIIO NOT ' . . . INATIO IY CDIIPLT IIAtRO
.INN
.-1
,_-J
.-1 PRDNIIUS.O REQUIIIES OUTPut
.lfI,IID.I
.STIIRO
.06
.10
NO. OF EFF. DICITS IN FIELD

,--z
,--I

, AOIl OF 1111 AT END OF VAll ..IU OUT REC

.06

.10

,.1I1111S11
•• 2'
• on ...... .1
"

ALLOIIS GOOF SIlITCH FOR IlATY

FLT ENO-5,I
tOlinOLS POSITIOIII IN FORIIAT SPECS
ISIIF
AM
SIIF
.1
TF
,SIIF
·.11
,ll
I
SIIF
IR TO AOR INDICATED IY FORIIAT SPEC.
,6.
SIIF
DS
5
RATYI TFII MAX
,0681
,I
8
RDUP
DORG .-)
UPTJ
MAX
.0117
.1
RDUP
DOIIG .-)
uno
uno RACOI TFM MAX
,I
.1010
13140 RDALP TOM RIIEFSII
.0
uno Mal
OS'
4
U160
8
RWA
UlTO
DORG 0-4
U7l0
SWL IS A TRINAIIY SIlITCH USED TO .UNCH TO THE PIIOPER SOURCE
U790
TO OBTAIN THE LocnlON THAT GOES WITH THE FORIIAT llloCRO
13100
BEIIIIG PERFORMED
I. fOil OIJECT PROGIlA..
13110
NO' FOIl REOO CONTROL
13110
FOR MATRIX CONTROL
8
uno SWl
NOP MATIX
13840 INPLUS OS
5
IIOIIKING POSITION OF 110 IlECOIlO
13850
TOM SIIL+I
MATRIX CONTIIOL SETS SWL TO .9
.9
13160 RWEFSII DS
1
• 1 FOil WRT. 0 FOil RO, FLAG FOR E
U870 IIIOTHI DS
3
,--I
13110
80
SWC+U
.Mnsw
1)890
NOP

.'

•""

,.-1

......
......
......

.'

,_-4

"

1620 FOR TRAil 11-0
13900
13'10
13920
1)910
U.40
13950
U960
13970
U980
139'0
14000
14010
14020
14030

OPG
LaC

OS
DS

TDM
BO
B
OORG
TDM
CF
MU2
OS
8
SIICADJ DS
DDRG
DATOUO au
SWC

14040

5

SWlOl

··20

SIIC AOJ
'-4
COIIPSII
LaC
5

.-.
DUOH

DC
-0'
14050 OATINH DSA

3

14060

3

14010

DC
-0'
DC

1"080 EIIIOFOR OAC
0
14090 IIIIH
OS
14100
OS
14110 III
OS
14120 STZERO DC
-0
14130
00
00
141"0
14150
00
14160
00
14110
00
14110
00
14190
00
14200
DC
-0
14210 FLURS DC

)

5

SUIROUT I NES

JE"P AOR OF DEC PT IN GAMIlIo
CORE LOCATION TO IE USED
If
AFTER LOC ADII 01 U I NEO IR TO PROPER MACRO

"

.2

,RwEFSw

If

IR IF IIRITING

.6
.0

SET TO lEQUIRE OUtpUT

.0

TIIICE MAXI"UII CHAR FOil OUtpUT

,--5

RETURN ADO OF MACRO IN COIITROL

056"
05670
05"1
05611
0"""
on06
05115
05nl
05UO
051)6
onu
05154
05166
01"1
05190
051011
05114
01116
OlUI
01150
05861
05."
05814
OSlIl
05112
01194
01'102
05902
05'11"
0592"
05'126
D59U

0593"
05945
059"6
05953
05'156
05951
05910

16
II
It
16

21
II

16
is
Jl
Jl
14

41
J4

4J
It
4'
14
U

'"
,.
15

I
on. .
DIU'
II
I
OZ6U
0'017
06017
0'017

• 00'

On)6
0""
0
060"
0614'
05.22
I
onu
00000
5
01126
00'"
001 . .
Ol.ZZ
OSlI ..
05no
OJlOI

05912
059'1.
06006
06013
06014
06026
06017
060Jl
0604.
06045
060'"

.0

06061

.ENDFOR

0606)
06Ul
062]1
06n'

OI9U
-51"
-60n
000-6
01100
00400
00002

05914
05914

0-881
00000

16
15

05924
05951
4
05562

OJOIO
00000

49

41
15

u
41

0-617
00000

00000

06.. 18
5
05'135
1
3
05994
00000

00000
00009
OSlIl
00000

0".0
06252

06264

5

...'"

05915
06014
0604"

00002
05'153
00000

15

056"
05911
5
00000
0

00000
00000

n

49

00000

5 X
-2607
)

5 X
-606)
3

I x

2

0
174
IT6
2
-0
-0
-0
-0
-0
-0
-0

-0-0-0-0-0-0-0-0-0-0-0-0-0-0Z

.

.00

2

.0'

06Jn

I

06J1Z
06JJ4
061'"
06151
aUla
01111
OUtO

5
05'1)
05935
06)tO

01"01
01""
01610
01"42
01""

Z9

15

2

au",

583

5

062Tt
OIZII
06100
OIUZ
oun

..
..
...

01100
00102

It
4'

16

06063

OS
5
1"210
14lJO MATRIX TOIl "IoTSII
MAC 110 '0 PRDtESS IIATIIICIES
.1
14240
.9
TO" Sill. I
TF
14l1S0
.,Pl
LOCADJ
14260
.IIF Mnlllll-U ••URIX-I
.00
.10
TF" LOtADJ
I "lITO
.tt-)
14110 LOCADJ DS
Z
ADJUSt Lot fill "'TR 11
14290
S
LOtADJ
.K
14100
llIoTRIX-1 .LDtADJ
S
14J10 IIATRX2 A
'IIATIII-1 ~&DJ
IETUIN '1l1li SilL. EAtH IIATIlII ILIIIINT
Tf
IIIIVI ADJUSTIO LDtAT 1011
1"110
Lot
.NAnlX-1
$II
14UO
PAR
.10
.1
INE "Z"
143"0

06240
06n9
000-6

PAGE

06057
06060

,02UIIO
,02"'110
.02 . .ILO
,024"10
.OZ . . II0
.OZ". . IO
.01l . .1L0

-6061
OOOOJ

49

05916
05981

.00'

.INH+IT"
.00

00019
-6061
05"4
059'4

-0005
0586J
00000

49

06051

1,0

-00000001

01161
01156
OU6J
5
05924
05914

U

060...
060n

JIIIH

lH
IT6
2

on"
on.6
on"
0560•
01606
D"ID
0"11
05614
05646

SET I

,--'j

ZI

PAGE

sn I

11
15
26

••
16

II
U

U
Z6

11

'"

06_
O'ltO
Z
061.0
06nl
O'UI
01911
oun
06""

0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

00001
0000.
0)605
oun
000-0
01111
061.0
061.0
06.n
000-1

ouoo

584

SIT 1
,.).;0
141AO
1417,0
14110

'OM
INL

1-.,,00 SLASH

'14410
16.,0
••610
14,4"0 SLAsHI
14.s0
14460
1~47D

WRITE
COME NO
IOCR
CKII

14620 ••••••

:::!~

CONPL T
1"650 tHAR2
14~60

14670
14680
.. 690
14700
14710
14720
14HO
14740
14750
14160
14770
14780
1"190
14800
llt8lP

,0

REDO

REDDA
TERM

•• _"••,.
l4820 .••••••

DORG .-.
, !lACRO 'OR AN 110 CARRUGI anuRN DUliNG A FDAMAT hATEli!NT
fDM COIIEIIIO.l ,_
80
SUSHI
,RWFSII
It
.R I ' IIRnlNG
~ ,COMEND
DaR' .-"
10
loci
~COMP 511 I t
lit TO 10
I', OUTPUT
ILANK
CM
DATlNH.2 ,06
,10
8H
WRITE
.R IF 1i0T TYPEIIRI UR OU'''UT
TF
LAST
,A
,'LZEU
SN
LAST
,02
.10. ERASE BUNltS FROM ENO OF 110 RECORO
CM
LAST
,DO
,UO
8 E . - 16
CN
LAST.
,INH
8t
CO~ END
TFN 10RT
,··21
8
10PT
,DATlliH-4 ,1
8
RWA2-12
OORG '-4
,iii
CN
NAX-2
,10
OS
3
DEC SPEC PLUS CHAR OF laG
BilL IIR ITE
8
COMEND
DORG .-4
MACRO TERMINATING 110 CONTROL
DS
3
TOM COMEND+l ,2
1
,--I
OS
TIlICE MODIFIED CHARACTERISTIC
8
SLASH+12
ODRG
80
REDO A. 24,MAT SII
TO
REDoh23 ,j:oMPSIl
TFM SIIC ADJ ,REDO A
MACRO PERMITS REDOING BACK TO
8
SWL
ODRG '-4
T,ON
,I
SIIL+1
RETURN FROII SilL I F MORE DATA
TOM COMPSW
VOID REDO USING SIIC EFFECT ON COMPSII
OS
5
REFERENCE ADR IN 110 RECORD
AM
SWF
.5
tF
SIIF
,SIIF
.11
e , SlASH
DORG ·-4
MACRO .TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES
SU8 FROM REP SII, INITIAllY SET TO URO
IF ,REPSII NEG , SET TOREPS REOO AND REPUT FORMAT
If REPSII URO, LAST FORMAT REPETITION IS ,COMPLETE
IF REPSII PLUS, STEP DOliN ANa REPUT fORMAT SPEC

ca

"8~0

,--2

......

..

.,.

A

14900

aNH

m

SN
REP 2
aSIlF
REP SII
aSWF

,1
,I

CONTROL REPETITION OF FIELDS

,SlIf

,11

1620 FORTRAN 11-0
14910
14920
14930
14940
14950
14960
14970
14941()
14990
15000
15010
15020
15010
1501.0
15050
15060
150,70
150,110
15090
15100
151fo
LSllO
15.1 10

REP2

SM

TF
8

SWF
SWF
SWF-2)

,REP)
WA

DPTM2

U2JO
152.40
151,50
U26,0
15210
15280 AI
15290

15120

uno
15J~0

111,50

uno

SF
OS
AM

as

8

,11

,

",1
,1

,10
.10

......
.....

,SIIF

,11

,Ell tOM,2
,IIAX 2
,679

"ACRO fOR ERROR F9 IIHEN WRITING

,9
MACRO FOR SKIPPING fiELDS

,.-5

MODlf,IED CHARACTERISTIC
RESTORES RECDAD IIARK

,FllfRS-i

TEMP lQ~ Of DEC PT IN OUTPUT RECORD
TEMP ADR OF DEC PT IN 110 REC, -2
,Cl0702
,00,703

CM

FAt

B'

{FJ_

15380
U390

TfM
OC

fliONtil
I

,;1

FMOIi

0""

00000
OUOO
00000

0 .....
060n
DAU2
D'no

0'61'1
000-6

00000

OU1A
06ln
OA'"
pAnA
06'"

0.,60

DUll

",I
16

"A

,.

1a onu

ollOO
06ln
000-2
000-0
01200
-60U
01300
-6655

..

01130
06560
p,nA
066"
00165
p05U
056"

OAA6"

H

05922

06671
06676
06611
06695

"A
..

OAU2
06656

01300
00000

II

I
06651

00002

69

06504

00000

6)

06186

16
69

onn

05583

06044
05914

05618
-6162
00000

15
15

059)5
05618

00001
00000

OU."

1"

0,196

"A

06,60'

1"

066'0
06612
06A....
0665A
066AI

06691
06691
0670S
06110
06111
06118
06UO

061"2
06114

'"

'16

tt

,

-601)
00000
000-'

I

]

l5

06161
06162
0"774
06115
06116
06191
06810
06811

06818
06830
06862
0 . . 54
OU66
06811

5

II
26
49

11

12
...
66
21

n

05861
05861
06492

-0005
0586J
00000

05861
05582
06890
05826
05582
05826

-0007
000-1
01100
01100
0516J
01100

PAGE

06933
06U4
06946
0695'
06970

12

05161
05861
05838

-0002
0186J
00000

05584
5
05861
05585
06890
05826
05585
06818

000-7
000-1
01100
01200
0586J
00000

.9

0.,0'4
05136
02615
05934

-7071
06031
ODD 79
00000

11
21
49

05161
05736
01126

-0003
0586J
00000

,.

00000
.0
02601
00000

00100
00101

026,16
OU14

00000

26
'"
32

II
12
46
..

06982

Zl

0699.
07001
01002
07014
01026
070]1
07045
070'\6
07011
01070

.9

070n
070'"
07090
07101
01'101
0111.
01126

onn

16
26

16

n
1,\

II
..

07142
07142
01000
01000

U

O.C!Z.

I,
••

oeoiz

,

,

00000

oOlOl

06126

5

5

01012

0'032
01012
01046

00702
00703
00000

9

5
ci.0.5
0.'0"
QI,05"
011100

II-D
II-D

,00
,.-STAIIT
,I

IIA·fO~IIAt

IIA FORMAT ,10,

IS

SfCo..DAilY

10

1/6"'2
DUD"

0.012

16Z0, F~T:R~
1620 .FORTRAIII
DORG SJAU

I

0'''''

01071

,.-5

08000

liS

'"

06922
1I0RKING AREA ADR REF TO FAC DR GAil

OORG ' - l
OSC. 9",
01"46600
USA Ftx

TCD

06"'0

06890
06901
06914
06921

"'2

15310

15400

,SWF

5

OS
5
OOR' 01000
31
AI
36
43

a. olsn

SET 1

TIlA

15100
15110

SUa'RDUTlNES

,2

DORG e-4

REPSW3-1
5
SWF
SM
IlEPSw 3
BH
REP 2
BE
8SWF
A
REPSW 1
8
REP 2-12
DORG '-4
ERF9
TFM swe ADJ
T~
LAST
TFM EI
B"
SilL
OORG .-4
XTYPE AM
SIIF
A
LAST
8,
8SIIF
DORG .-4
ili.cOM2 RCTY
0$,
151~0 IIIl
IIArY DUOH
151So.
RelY
15160
lS,lilj CHAR
os 5
TR
E 1+1
n.~.o.
151>90
B
8SIIF-12
15200 D~T
QS
5

:::~~

itl!ca.o

f."

•

14830 ••••••
."840 .. ~ ••••
148,50 REP
AM
Sill
1'4860
14810
8H
14880
aE

'AGI

o.~..

o.~"..

81,

1090 .......

14~'0
14490
i 4500
14510
14520
14.510
14540
'i4550
14560
lU70
14580
14590
14600
14610

MtTSIl
SIIC.U

JI
••

-In4
00000
00000

x
00500
00000

LINKAGE
I

tH'ia~DStT"VE

02.'2

05U.
OnU

.e-I

1100.. 0
00000

-0027

2
.'_f t ";

onto

..

ons.

00000

31

16Z0 FORTUN 11-0
U~IO

TFM
DC
-I
I
'FM
DC
-I

FIIO,.+ ..
Z
FMON
FMO,.+"
2

,.-START
01

15"0

B

15~10

'fI!

U~BO

DC

FMD,.
FMON+"
2

,I

15Hl'
15500
15510

B

FIID,.
FMON+U
2

15510

8

FMOH
FIION+lI
2

UUO
UUO
15~~0
15~50

,.-START
,I

SU ••OUTINES

01902
0)910

,--J

0191.
OJ926

,--I

0]91'

,e-)

olno
nnl

,I

,--)

01'"
01".
0191'

,'-START
,I

,e-]

0)91'
0)998
0.006

,--3

0.020
0.020
0.028

,.-STAU

1~510

U5.0
15550
15560
15HO
I~~"O

II)'tql}

15600
I 'b 10
1~610

15630
15640
15650

""

""

DC
-I
8
DORG
TFM
DC
-I

FMOH
'-1
FIIOH+U
2

FIIOH
DORG '-1
TFM FMOH+ll
DC
2
-1
FMON
B
TFM FMOH+ll
DC
2

15690
15100
1H10
15120
15130
15140
15150
15160
15110
15180
15190
15800
15810
15820
15830

tl

,8

B

TFM
nC
-1
B
TFM
DC
-1
8
TFM
DC
-1
B
TFM
DC
-1
B
TFM
DC
-1
B

TFM
DC
-2

15810
15880
15890
15900
15910
15920
15910
15940
15950
15960
15910
U980
15990
16000
16010
16020
16030
160~0

1.050
16060
16010

B

TFM
DC
-2
B

TFM
OC
-2

TF

11>310

00000
-0169

,.

01154

0-000

01165

-0191

0~05.

~9

0715~

0.042
0.050

49

2

00000
-02LS
00000
-0239

FMON
FMON+ll
2

01154
01165
2

00000
-0261

1--)

0.102
0.114
04122

4'
1.

tl

FMON
FIIOH+U
2

"-START
.1

,.-)

04126
0.138
04146

49
16

01154
01165
2

00000
-0281

FMON
FMOH+ll
2

,*-)

0.150
04162
04110

.9
16

01154
01165
2

00000
-0311

.1

FMOH
FMOH+ll
2

,.-SURT
.1

,--)

04114
0.186
0419.

49
16

01154
01165
2

00000
-0335

FMON
FMON+ll
2

,.-]

04198
0.210
04218

n

01154
01165
2

00000
-0359

,2

,e-START

,--START

,.-START

16

587

FMOH
FIION+1l
2
FIION
FMOH+ll
2

,'-START
,2
,.-START
,2

fMON
'-1
FMOH+lI
2
FIIDN
'-1
FMOH+ll

2
'IION
'-1
'IION+ll

,

'IIOH

01154
01165
2

00000
-0401

04210

~9

01154

00000

042B2

26

0~294

26
""
".2.

058101
0549&
05861
05511
058101
05538

0.281
00000
04305
00000
04329
00000

05861
05862
05861
05882
05861
05902

04353
00000
04311
00000
04401
0-000

16

0111>5
2

-0513

04436
04 .. 46
0"""6
04451
044. .
0 .....
04416

4'

0115 ..

0-000

16

...

069]]
04598

-2551
0-000

16

01165
2

-0611

0."'0
o ..~.o
04490

49

01154

0-000

16

01165

-063"

04'102
04512
04512
0 .. 520

~9

0115~

0-000

16

01165
2

-0661

04524
0453.
04534
04542

.. 9

01154

0-000

16

01165'
2

-068)

04546
041"
04516
04'"

~9

onn

0-000

16

on65

.,

,

-0105

01n•

0-000

04354
04166

04390
0 ••02
04~14

,--)

0.42.
0 .. 424
04432

,8
,8

,.-3
,I

,--J
,I

,.-3
,I
,e-J
.1

,6

I.

,8

, GAM+2

"-START

49

o.nl

,RACD-I

,.-START
,6

00000
-0383

04106
04311
0.330
04342

,RAPT-I

,I

01154
011.5
2

,--)

,WACO-1

"-START

.9
16

04222
04234
042~2

READ AlPHAMERIC
,RATY-I

,'-START

PAGE

SET I

04246
0,,,,.
04266

,WAPT-I

,,,,.-START

SUIROUli NES

,--)

WRITE ALPHAMERIC
,wATY-1

,'-START
,9

16210
16210
16290
16300 .

00000
-OIH

2

07154
01165
2

FMON
'-1
FMON+1l
2

8
DORIl
T'M
DC
-6
8
OOAG
TFII
DC
-6
I

0715.
07165

4"
1.

16150
16160
16110
16180

16230
16240
16250
16260

..,
16

00000
-012'

04011
04090
04098

,I

-I

~,

0715 •
07165
2

,.-]

FMON
'-1
WA
WR IT 11
'-1
FIION+ll
2

16190
16200
16210
16220

16

,'-SURT
,I

16080
8
16090
DORIl
16100 WRITE! TFM
IloilO
8
16120
OORIl
16130
TFM
16140
DC
8
001t1l
TFM
DC
-9
8
DDRIl
T'M
DC

.

00000
-00"

FMOH
FMOH+ll
2

SWF
B
UTn
TF
SWF
B
AAPTl
TF
SWF
B
UCDI
DORG '-1
'IIOH+ll
DC
2

-I

071"
2

01165
2

TF

-"".

0115~

16

16

SWF
WUYl
SWF
WAPTl
SWF
WACOI

B

~,

04066
0.014

FMON

B

07165
2

,e-]

TF
TF

00000
-0015

JZ

Z

,.-START
tl

B

B

01n~

01165
2

0.032

,--)

1620 FORT UN 11-0
15840
15850
158<>0

16

-OOSI

0115 •

0.0~2

,'-START
tl

.,

011"

16

0~010

• __ START

B

-I
15660
15610
15680

,.-STAU

16

O)U~

-I
DC
-I

PAGE

SET I

,--I

••

49
26
49
26

".,
2.

."

04~'1

0.561

)J

2

.......

58S

C-

azo
lU20
16110
ln40

FORTaAII

11-0

SU •• OUYlIIES

SET 1

nOR' '-1
FIIOII+11
,-STAU
DC
,A
,.-J
2
-6
16350
8
FIION
16360
OORG '-4
16310,
1620 FOURAN'II-D I WA FORMAT - SU. .OUTlIIES
16)'10
RnURII FROM SilL VIA SIIC IF IIR1UIIG I TYPE
11>190
VALUE "UT IN FAC IN 1 FORM,EXP'"OED TO ALPHA IN
U.400
GAil'" IiIGH' TO LEFf. HD COllUIIIS ADII OF HIGH OROO
16410
DIGIT III I>AM~ &FTU VA'LUE III GAM IS SlGIIED.CHECI(ED
16420
FOR IIID.'H, MOVE TO OUTPUT RECORD.
16,430
ERF81 RESUL rs IF VALUE 'DO LUGE FOR FORMAT SPECS.
16440 WR IT II TFM WA2
.FAC+I
16450
TF
FAC
.LOC
.11
16460
8NF WRU2+12 .FAC-I
164,70 IFWR T SM
LOC
.2
16480
TF
FAC-2
.LOC
,11
16490
TF
F IXENO_6 .ICON)-6
16500
B
FIX
16510
DORG .-4
16520 IIRTl2 TOM F I XENDH .2
16530
TR
GAM-19
.MASK 1-1
TFM HO
16540
.GAM+l
16550 IIUI
SM
WA 2
.1
16560
SM
WA
.2
16HO
TO
WA
.IIA 2
,loll
16510
Bo
,WA 2
I DIG
.11
16590
B
I 01G+12
16600
oORG .-4
TF
16610 IOIG
HO
,IIA
16620
CF
GAM
PREVENTS PREMATURE TERM.FOR NEG ARG
16630 HO
5
OS
AoR OF HI ORDER NON ZERO DIGIT
",WA
16640
BNF
WRH
,11
16650
CM
HO
,GAM.t
16660
BNE IIRY SGN
16610
,1000
,68
TF" LAST
16680
B
BSWF
16690
oORG '-4
16100 IIR lSGN 8NF IIRT 13
,FAt
16110
SM
HO
.2
16120
TFM HO
,20
,610
16110 WRYI3 ~"
HO
.I
16HO
TFM OUT
.GAM
16150
OUT
,HO
S
16160
C
OUT
,WIOTH
16770
8H
ER F8
16780
SF
OUT
16790 OUT
5
OS
• HI ORDER WI(G AoR IN 1/0 RECORD, I TYPE
16800
A
our
,LAST
16810
SM
OUT
,2
16820
TR
OUT
,HO
,611
TFM LAST
16830
,00
,610
8
8SIIF
16840
16850
DORG
16860 ERF81
TR
DUD H+II ,FLZERS-61

""

...,-.-

PAGE
0457.
04'11
045 . .

"

071n
2

-0727

04590
04591

n

01154

00000

04598
04610
04622
04634
04646
0465.
04670
04677
04678
04690
04102
04714
04726
04738
04150
04162
04169
04710
04782
04793
04194
04806
04818
04830
0480
lnl0

11120
lUID
ln40

......
.....

FIX

01000

TI'll

DC

)

"MONHI
2

-1
17350

8

FiliON

14
16
;,7
26
16
49
49

02618
06059
02617
01078
06051
00565
00532
01018

04T9L
000-8
07800
01300
06059
-5109
-6045
00000

26
49

05150
02492
03160

01100
02115
00000

03111
02492
05230
03101
02615
02492
03616

02490
02221
01100
00001
00N19
02805
00000

02490

03112

00000
02716
02815
01298
02H2
OH90
02575
00000

Dun

00000

.
25
24
41
15

16
26
49
))

16

01603

26

02515
05296
05296
99999
02492

:It
22
21
26
4'
4R

,

35

11
3.
JA

49

01032
08032
01046

00102
00103
00000

9

01045

5 X
-Sl5~

OIOU
01046

J6

OIOSI

~.

00000
00000

00500
00000

01000

1620 FORru" 11-0 ."-HTY'E
1620 FDIITRAII 11-0 '''-M'''E
DDIIG SURT

as

II

05329
05331

·.22

DORG '-3
OSt 9,

PAGE
05026
05038
05050
05062
05014
05086
05098
05110
05117
05111
05130
05142
05150
05150
05162
05174
05186
05198
05210
05222
05230
05230
05242
05254
05266
05211
05290
05302
05314
05321

i-

, ..-stAlT
,I

FD~IIAT

FORMAT -

'!COIIO"R' LINIlAGE
oust

olin

,.-J

OJU.

J

OJ. .,

"

01166

49

ann

-0003

on5.

00000

I

590

t

t )

,/

It20 ,aUUN 1/-0
IUtO
17)70

on.,1

'liON
'"ON+II
2

,I

,0-SfAlT

on9D
0190Z

T'"

'liON
'"ON+II
2

,I

•

'MON
, IION+ II

OUli

,0-STAIl

I

,I

Olt50
Olttl

'liON
, 1I0N+ II

,o-SURf

,I

on.,
onn

2

•

T'II
OC

'"ON+II

-I
8

ot
-I

T'II
DC

-I
17410
11080
IH90

8

T'"
DC

-I
11500
11510
11510

8

'liON
, IION+ 11

DC
-I

2

11510
11540
11550
11'60

I

'liON

OO~G

0-1

I1HO
11580
17~qO

11600

T'"
TFM

DC

'"ON+11
2

11640
11650
17660

T,II
B

2

O~OO.

0~020

,I

04021

,a
,I

OC
-I

U

o.,u~

"

07165
2

00000
-0051

..
"

0"5"
0'''5

00000
-OOTS

"9

01U~

16

01165
2

00000
-0099

..
"

01154
01165

49
"

04032
04042

,--)

0~05~

,.-STAAT

00000

"

01165

-0169

2

..

0715~

0-000

"

07165
2

-0191

0~066

49
16

07154
01165
2

00000
-0215

01l5~

00000
-0239

040n
04011

'MON
'liON. II

,o-START

2

,I

'MON
'MON+II

,e-START

T'"

-I
11700
11710
11720
17130
11740
11750

8

TFM

DC
-I
8

'MON
'MON+II
2

TFM

FMON
FMON+II

DC

2

-I
17760
11110
17780

2

B

T'M
DC
-I

FIIDN
'MON+11

2

0~090

,.-)

040.1

,--)

OH22

,.-1

04138
04H6

0~102

"
,.-START
,I

,o-START

"

11820
17830
11840

8
TFM

FMON
FMON+II

DC
-2

2

8
TFM

FMoN
'MoN+l1

DC

2

0~114

..
16

2

,e-)

0 JI 5~
01165

00000
-026]

2

00000
-0281

..
16

07\54
01\65
2

00000
-0]11

0~17~

~9

0~116

"

01154
01165
2

00000
-0335

0~170

"-START

"

..
16

07\54
07165
2

04150
041.2

,--3

01165

49
16

0~126

04194

59 J

1.20 FORTRAN 1/-0
17790
17800
17810

00000
-0147

0715~

0~050

,I

TFM

DC

01U~

01165
2

0~042

DC
B

00000
-012]

..

-I
17670
17680
\1690

Z

2

OJ9I2

0~010

OC

2

-0021

Olt"

0)9"
01991

"'E
07165
2

04020

,_-START

'liON
'MON+II

on,,,
0)9l'

,o-STAAT

'liON
DOIIG 0-1
,,,ON.II

B

I.

0)910

• a-STAR'
,I

-I
B

T,,,

01 . . .

,0-STAIf

-I
11610
11620
11630

SIT I

I

-I

11380
In90
1 1~00

SUIIIClUTlNlS

,o-STAI'
,I

T'II
OC

SUBROUTINES

PAGE

SET I
041.1
OHIO

4.
16

0115~

07\65
2

,.-S'ART
,2

,.-]

0~211

,--]

04222
OHn
OH42

n

,--START
.2

04246

49
16

07\54
07\65
2

00000

04270

~9

01154

00000

OH82
OHM
04306
04111
04330
04342

26

05861

04281
00000
010305
00000

16

07154
07165

11

00000
-0]59
00000
-0383

2

-2
17850
17860
11810

8
TFM

'liON
FMoN+U

DC

2

-2
17880

17890
17900
17910
17920
11930
11940
11950
17960
11970
17980
17990
18000
18010 EF2SW
18020
18030
18040
18050
18060
18070
18080
18090
18100
18110
18120
18130
181~0

11150
18160
18110
18180

8

TF
8
TF
B

T'
B

SWF

RAlYl

TF
8

SW,

TFII

,WAPT-I

,IIACO-I
READ ALPHAMEIII C
,UTY-I
,RAPT-I

'MON+"

,8

,.-START

.4

'IIOH+U
2

'-1

""

I

'liON

DC

2

,--)

0~4]2
0~4)6

· .T'"

'liON."

2

05~98

05861
05518
05861
05538

zc.

4'
26

,.-SfAU

,9

05861
05862
05861

4.

05882

26
49

5
05861
05'102

0-000

16

01165

-0513

49

01l5~

0-000

16

07\65
2

-0595

..

01\ 5~

0-000

16

01165
2

-0611

,'-STAIIT

0~35]

00000

oun
00000
0~~01

2

04451
04""

,--)

04416

,~

04"'0
04490
04490
04"91

..

0715~

0-000

16

07165
2

-0639

04502
04512
04512
OUZO

49

0715~

0-000

"

07165
2

-0661

QUat
04534

4.

01154

0-000

04134

n

onn

00000

,_-)

,I
II

0~329

00000

26

4.

04454

,'-START
II

-0~01

,I

DOIIG 0-1

ot

04402
04414
04424
04424

0"4~'

'MON
'MON+U

~9

26
..

0""46

'liON

'-1

04)54
0436t
04311
04390

,I

T'"

-5
B
OOIlG
TFII
DC
-8
B
oORG

0~251

04266

0~~01

"
.RACa-1

RACol

DC
2
-4
B
'MoN
oORG 0-1
'IIOH+U
DC
2

-I

IIHO
11240
l8250 ••••
IIUO HYPE

RAPTI
5
SW'

WR ITE ALPHAIIEIII C
,WATY-I

oOIlG 0-1

-9
18190
11200
IIl10
11220

SW'

WATYI
SWf
WAPTI
SWf
WACO I

TF

TF
8

,--3

FMoN

B

os

• --STAR.T

.2

,e-I
fl

DOIIG "'1

O~""

IlACIID '011 , "'PI IUD AIID IIIITI

592

1620 FOUUN

....

18210
11280
18290
18300 HYPE
18310
18320
18110 HTYPE
18340
18350
18360
lBno EFCOM
18380
18390
18400
18410
18420
18430
181040
18450
IB460
I B410
18480
18490
18500
18510
18520
18510
185"0
18550
18560 ROFCH
18HO
18580
18590
18600
18610
18620
18630
18640
18650 FCHN8
18660
18670
18680
18690
18700
18710
18720
18730
18740

......

181~0

18160
18770
18780 EFWRT
18790
18800
18810
18820

B
EF COM
OORG '-1

11-0

sU.aOUTlNfS

SET I
OHU
OHn

.1

MACRO FOR E fYPE RUD AND MRlfE
SF
RWEFSW
8
,I
EFCO"
OORG '-1
AH
SWF
,3
8
HfYPEI
.1
OORG '-1
1620 FORfRA" 11-0 EF-HfYPE
FORMAr - SUIROUfI"ES
AM
SIIF
.]
TF
WIDTH
.SNf
.11
AM
SWF
,2
TF
LOC 0
.SIIF
.11
TF
I~PLUS
,LAST
TF
WiDTH 2
,WIDTH
A
WIDTH 2
,WIDTH
A
LAST
,WIOTH2
C
lAST
,MAX 2
8H
ER F9
TF
TERM
,LAST
SM
TERH
,2
TF
CHAR
,WIDTH
TF
WA
,FNH
TOM
97
,0
TFH
99
,00
.10
BO
EF WR r
,RWEFSW
TF
FAC
,FLULP
,11
TFII
SWCAOJ
,READ EF
CM
I~PLUS
,610, ELIHI"ATE LEADING BLANKS
.00
8NE
FCH N8
so
CHAR
,I
010
AM
,2
INPLUS
INPLUS
,LAST
C
BL
RD FCH
rFM
EF2SW
,EFENO+12
S
8EF2SW
DORG .-4
CO
1NPLUS
,610, PROCESS FIRST NON BLANK CHARACTER
.20
BNE
-.32
TFO
EF2Sw
,EF olN
8
8EF2SW
DORG
CM
INPLUS
,610
olD
SNE
-+32
TFM
,EF PLUS
EFZSW
8EFZSW
B
DORG
TFO EFZSW
.EFTYPE+l6
8£F25.
8
DORG .-4
,F
LOC 0
C
eNH -+24
TF
,F
LOC D
TF
LOCO 2
,LaC 0
LOCO 2
,LOC 0

.-.
.-.

04556
04561
0457.
04571
04590
OUOO
04600
04612
04624
04636
0"648
0"660
0"1>12
OU8"
04696
OH08
04120
04732
04H4
04756
04768
OHao
OH92
04804
04816
04821

..
)2

49

II
49

II
26
II

PAGE
OUOO

0-000

OS953
OUOD

00000
0-000

05861
05192

-0003
0-000
-0003
0586J
-0002
0586J
05136
05115
05115
05956
06031
01100
05136
-0002
OHI5
03313
00000
000-0
05953
0134Q
-H68
000-0
01200
000-1
-0002
05736
0[300
-5112
00000

04ij64

26
16
I.
41
12
II

04816

14

04888
04900
04912
04919
04920
0"'912
04944
04956
04963
0496.
04976
04988
05000
05007
05008
05020
05021
05028
05040
05052
05064
05076

'7
16
49

05161
05115
05861
05608
059"5
on56
05956
05736
05736
01002
06785
06785
01108
069]]
00097
00099
05028
021092
06044
0594N
0.920
07108
05945
05945
04828
04401
u'\384

14
H
16
49

0594N
04961t
0.401
0538 ..

OOOKO
01200
-4632
00000

14
16
.9

0594N
05008
04401
05384

OOOJO
01200
-464'
00000

16
49

OHOI
0538.

-4692
00000

2.
47
26
26
21

05608
05064
05608
05606
05606

02219
01100
02219
05608
05608

048t.tO
O~852

26

26
26
21
21
24
U
26
12
26
26

15
16

H

47

31

59 3

T
1620 FORTRAN 11-0

SUBROUT I "ES

SET I

18830
TR
GAO-59
,MASK F-l
18840
,GA,..
TFM
WA
18850
TFO
WA2
,FAC-l
18860
TFO
SWCAOJ
rEF"'"
18810
SM
WIOTH
,,2
tlO
13880
BNF
SWl
.RWEFS.
IQ890
SM
TERM
.8
18900
SM
WIDTH
,4
,10
18910
8
SWl
18920
OORG
18Q]O
MACRO FOR HOLLERITH TYPE RUD AND WR ITE
18940 HTYPEI TF
,SWF
,II
"IOTH2
18950
TF
INOlUS
.lAST
18960
A
LAST
.WIOTH2
18910
LAST
,MAX2
C
_+32
18980
8NH
18990
A
SWF
,WIOTH2
19000
8
ER COM
19010
OORG .-4
19020
HWRT
80
,RWEFSW
19030
TFM EF2SW
,HRD
19040
8
BEF2SW
19050
OORG ·-4
19060 HWRT
SM
WIDTH 2 .2
,1O, WRnE H TO 1/0 REC FROM FORMAT REC
19070
TOM COMPSW
,0
19080
8L
BSWF
19090
AM
SWF
,2
TF
19100
,SWF
INPLUS
,611
19110
AM
INPLUS
,2
19120
B
H WRT
19130
OORG
19140 8EF2SW TF" MBASE+5
,FTYPE
TFM F140"'+ll
19150
,HTVPE+21-START
19160
,1
DC
2
-7
FMON
19170
8
19180
DORG '-4
19190 MASKF
OAC
31,000000000000000000000000000000'
000000000000000000000000000000'
19200
OORG 08000
19210
38
A6
,00702
19220
16
A6
,00103
19210
8
-+22
OORG .-J
19240
19250 AI>
OSC
9
,019515017
019515017
19260
DSA FIX

.-4

,

.-.

,.-)

19270

TCD

19290
19300
19])0

1620 FORTRAN "-0 EF-H.TYPE 2
1620 FORTRAIj 11-0 EF-HTYPE 2
OORG FTYPE

051'l2
05204
05216
05228
05240
05252
05264
05271
05212
05284
05296
0530]
053(14
05316
05J28
05340
05352
05364
05316
0518l
05384
05396
05404
05408
05415
05417
08000
08000
OaOIZ
0'024
01032

08000
FORMAT
FOaMAr -

02496
06933
01084
06044
05715
05914
06185
05715
05934

054\6
-2555
-2491
-4"'0
000-2
05'l53
-0008
000-4
00000

49

05956
05'l45
05736
05736
05272
05861
01078

0586J
05736
05956
06031
01100
05956
00000

43
16
49

05304
04401
053810

05953
-5356
00000

Il

49

05956
05618
05126
05861
0594N
0".5
0530.

000-2
00000
OUOO
-0002
0586J
-0002
00000

16
16

01398
07165

-4534
-07109

31

16
16
16
12
44
12
12
49
26
26
21

24
H
21

U

41

11
26

11

39

2
49

0115"

00000

31
11
36

n

08032
0.032
010"6

00702
00701
00000

01032

9

O.OU

5 X

011045
01046
01058
01000

TRA

19280

PAGE
05088
05100
05112
05124
05\36
05148
05160
05112
0518.
05191

J6

4.

-)854
00000
00000

00500
00000

SUllt'lUTI ~ES

04534

~Q

(,

16ao ,oaTRaN 11-0

-.

TFM
DC

1'1320
1'1)10

FMDN+ll
2

, liON
8
OORG .-1
TFII '"OIl+U

I'HO
19150
1'''0
1'1370

.·-STAU

••

.t

FIIOII
OORCO .-\
TFII FMOM+ll
OC
2

...

paGe

SIT I

.--J

16

on6~

04~4a

2

'.045'"
045510
0455.
045104

4'

on~4

0-000

07165
2

-0705

045"

.1

• .!.-SUIT _

Z

DC;

SUIRDUTI NIS

,.-J

-6

•

1'1110
1'I3~0

-.

1'400
1.410

OU"
04511
04'11

. _-,,'-~l

FMON
DDRG ·-1
TFM MIIlSE+~ .FIX
TFM EFfERM+la.EF TVPE
EFZ.SW
8
DDRG
SF
99
SM
CHAR
AM
IN'~US
.2
CM
INPlUS
.00
8E
~OG.Dlli
CM
.70
IN'~US
8H
EF DIG
BE
~DG DIG
CM
.OJ
I"'PLUS
8E
EF DEC
8NF EIIU7 E .1UIUlI/
,000
TF" EXP
TOM E EXPAD+loI
OS
3
CM
INPLUS
.45
8E
E EXP
CM
INPLUS
.ZO
BE
E EXP N
CM
INPlUS
.10
8E
E EXP
e+2o\
,97
80
SN
CHAR
,I
C
INPLUS
.TEAN
8Nl EEXPAD-12
TO
EXP-I
.I"PLUS
AM
I"'PLUS
.2
8
EEXP2Z+12
OORG '-4
TD~
E EXPAD'I.2
AM
INPlUS
.2
CHAR
.I
S"
E EXP
B
ODRG ·-4
TD
EXP
.INPLUS
A
CHAR
.EXP
B
EF END
OORG

045..
OU90
04600
04600
04.\2
04624
04611
046]2
04644

8

1"420
1'1410
1'1""0
1'I4~0

1'1"'0
1.470
1'1.. 80 EFMIN
194'10 EFPlUS
19500 EFfYPE
1'1510
1'1520
19510
19540
19550
19560
19HO
19510
19~90

19600
1'1610
1'1620
196)0
19640
1"650
19660
19610
19680
19690
1'1700
1'1110
19120
19110
19140
19150
19760
19110
19780
19790
19800
19810
19820
1'1830
19840

.1
.--STUT

EXP
EEXP2

EEXP22

eeXPN
EEXP

EUPAO

.-,

..

,--2

.6
.10

046~6

It

..

07\54

0·-000

Il7IU
2

-0727

''I

01\

~,

00000

16
16

01398
051'14
0440J

-)854
-'6U
00000

0009'
07108

00000
000-1
-0002
000-0
OllOO
OOOPO
01100
DilDO
000-3
01200
05953
00-00
00001

U

...
U

II
11

059"~

.~IO

04661
04610
04692
04104
0411.
OH28
0'740
04752
0'764
OH7.
04185
04111
!l4l00
04812

46

O~9~0

.~IO

04836

I~

059~0I

0~14I

46

0~952

43

4"

04BS4
01108
05"45
04984
04184
05945
04812

15

049n

It
\2
4 ..

0~"45

.610
.610

.6IQ

.
.9

VALUE OF CALC CHAR Foa OUTPUT

.610

0482~

04860
04812

.'

0"14

.11

04896
04901
O~920

04932
04939
04'40
04952
.10

0~96"

.11

04"4
04996
05001
05015

04976

"

46
14
4.

.,
••

0594'"
05016
0594N
0,.16
v'iOl6

14

O,,94N

4'

O~041

16
15

0418~

O~1l4

14
46

04997
3
0594M
04952

1~

0~9~0I

12
24
46
2'

11

40

-06"

000M5
01200
OOOKO
01200
OOOJO
01200
00097
00-01
01>785

01300
059401
-0002
00000

07108
04812

00002
-0002
000-1
00000

04185
07108
05200

0594N
04785
00000

0~"81

.-"

25
21
~.

595

1620 FORTRAN 11-0
19850 lOGOIG BNF
19860
S"
19810
B
19880
DORG
19890 EFOEC 80
19900
TFM
19910
TFM
19920
TOM
19930
SM

EF DIG
.98
CHAR
.1
.10
EF TERM
·-4
ERRF7 E ,97
,00
LaC 0
.10
EFTERM·18.EF PLUS
,-I
91
CHAR
.10
19940
EF TERM
6
19950
DDRG '-4
19960 EFOIG CF
98
1'1970
CM
WA
,FAC-I
19980
BNl -+]6
1'1'190
TO
WA
.INPlUS
.611
20000
AN
WA
20010 EFfERM C
INPLUS
.TERM
20020
8l
EFTYPE
200)0 EFEND 8NF EFENOl
.FNH
20040
TFM FAe
.99
.lOll
20050
B
SWL
20060
DORG . - )
20010 HEN02 S
tHAR
.J.OC 0._
20080
80
ERR F7E .eHAR-2
20090
SF
CHAR-l
20100
TF
FloC
.CHAR
20110
SF
FNH
.6
20120
.9.
8"'F SII~
20130
SF
FAC-2
8
SilL
201"0
20150
DDRG .-4
20160 ERRF7E TF
FloC
.11.
• HlAL'
TOM EI
20170
,7
20180
8
EFEND
20190
OORIi
--It.
SM
20200 HRU
IIlOTH
.10.
'.2
20210
IL
ISlIf
20220
AM
SIIF
.Z
202]0
TF
SIIF
.611
.IN'J.US
20240
AM
INPLUS
.2
20250
I
~O
.,.
20260
OORG .-.
20no
DORG 01000
)I
Z0280
AT
.oolcii
20Z90
36
,O'-To)
A1
20300
o+Z2
I
ooa, .-1 __
20310
--- -;ciitiiiiOO.-- -.20no AT
OSC 'I
01.UZOO.
--- "----------20no
OSA

SU8ROUTINES

05016
05028
05040
05041
05041
050/>0
05072
05084
05096
05108
05115

.

.

..

..

,"

.

TRU"'CAT.I!S LOW ORDER DIGITS

ZERO CHECK

-_._- ---

"".

20J~0

TIIA

Z0350

TCO

01000

F PLUS Z ZfROS TO fAC
SET ell. F7 .'"OltATlO!! SIIITCH
READ H FROM 10·REC TO fORMaT IIftORD

~4

\2
49
~)

16

16
15
12
49

05116

H

05128
05140
05152
05164
05176
05111
05200
0521Z

14
46
25

0522~

.

.U.

PAGE

SET I

11
24
~1

44
16
4 ..

05232
05232

22

052~~

H

05256
05268
05280
05292
05104
05316
05)21

32
26
32

"".

05116
01108
05116

0009B
000-1
00000

05324
0'1608
05194
00097
01108
05176

00091
000-0
-4644
OOOOJ
000-1
00000

00098
06933
05176
0693l
069))
05'145
0 .. 656
05232
OZ492
059)4

00000
-2491
01300
059401
-0001
06185
01300
OHIL
OOORR
00000

07108
0'1324
07107
02492
OBll
O~q34

0~601

07106
00000
07108
00000
000'19
00000
00000

12

024'10

49

059)"

on2~

21>
15
4~

02492
02615
0520U

on~Q

05'41
05)55
05356
05, . .
05310
05392
05404

05'156
05826
05161
0586J
0'194'1
05356

000-2
01300
-0002
0594N
-11002
00000

08012

00702
00701
00000

as)).

05~"

054ZJ
080ao
OIOao
01012
0102.
01012

olon

12
~7

11
2.
II

...

.
JI

).

OOOOP
00000

9
5 X

01045
01045
01046
OIOti
01000

olon
oa046

"I

)6

••

-4514
00000
00000

00.00
00000

596

1620 FOR'RAN II-D
20]60
20)10
203.0
201QO
204;)0
20410
20420
20UO
20HO
20450
20460

SUI.OUT illES

PAGE

SET 1

IfilO FOUUN 11-0 UfF-ATy,e Fa.IIlAT
1620 FO.TUN 11-0 .AEF-ATYPE FOR"'T - SECONDARY LINKAGE
OOR~ STUT
]
OS
eM
FAC
.00
,10.
IS CH'R POS IlIVE
B
EFFIX
rFM FMON+II
,--START
,I
DC
2
-I
B
FMON
TFM FMON+11
DC
2
.1
• --3

,--)

03851
03851
03854
0}866
03878
03886

H
49
16

3
02492
.04110
01165

000-0
00000
-0027

Z
07154
07165
2

00000
-0051

07154
07165
2

00000
-0075

03H8
03950
0395.

49· 07154
16 07165
2

00000
-0099

49

00000
-0123

--]

03962
03914
03912
03986
0399.
04006

49

,--3

16

01154
07165
2

49

07lH

00000

16

01165
2

-0169

,*-3

04010
04020
04020
04028

49

01154

O-COO

16

07165
2

-0191

07154
07165
2

COOOO
-0215

03890
03902
03910

.9

03914
03926
03934

49

·

·

,.-s".,

42

16

-I

20410
204QO

6
rFM
DC
-I

FMON
FMON+11
2

10500

B

20510
20520

rFM
DC
-I

FMON
FIlfON+l1
2

20480

20~

30

20540
20550

8

FMON
FIlfON+ll
2

20590

rFM
DC
-I
B
TFM
DC
-I
B

20600

DORG '-1

20610
20620

TFM
OC
-I
B
DORG
TfM
DC
-I
B

20560
20570
20580

20630
20640
20650
20660
20670
20680
20690
20700
20710
20720
20130

20740
20150
20760
20770
20180
20790

TF~

DC
-1
B

FMON
FMON+11
2

, --START
.1
,e-START

01

,--3
.-)

,--START

.1
.--SURT

.1

FMDN

20810
20830
20840

16

FMON+11
2

01

FMON
'-1
FMON+11
2

,--START
.1

,--)

04032
04042
04042
04050

FMON
FMON+II
2

,--3

04054
04066
04014

49

,--START
01

,*-STAR·T

.8

FMON

16

07154
on65
2

00000

-OIH

TFM

FMON+ll

,*-)

04078
04090
04098

07154
07165
2

00000
-0239

Z

,--START
,I

49
16

DC
-I
B

FMQN
FJiliDP.4+11
2

16

07154
07165
2

OOCOU
-0263

,0-)

04102
OH14
04122

49

,--START
.1

FMON
FMON+II
2

,--STA.RT
.1

04126
04138
04146

49
1.

07154
07165
2

00000
-0187

.0-]

04150

49

07154

00000

16

07165
2

-0311

TFM
DC
-I
B
TFM
DC
-1
B

FMON

1620 FORTRAN 11-0
20800
10810

16

TFH
. DC
-I
8

TFM

DC

FMON+II
2

,_-START

SUBIIOUTI NES

SET I

PAGE

01

,*-3

04162
04170

,_-START
01

07154
07165
2

OCOOO
-0335

, ·-3

04114
04186
04194

49
16

2
FMON
FMON+ll
2

,--)

04198
04210
04218

49
16

07154
Oll65

00000
-0)59

.2

07154
Oll65
2

00000
-038]

,*-3

04222
04234
04242

49
16

,2
,--,START
.2

,--3

04246
04258
04266

49
16

01154
07165
2

00000
-0407

04210

.

FMON
f"O~.ll

597

43

-\

20850
20860
20870
20880
20890
20900

B

TFM
DC
-1
8
TFM
DC

"o-START

FMON
FMON+II
2

,_-START

-2
20910

lono

20930

8
TF'"
DC

FWON
fMOH+U

2

-2
20940
20950
20960
20910
20980
20990
21000

8

FMCN

TF
8
TF
S
TF

SWF

ZIOIO

8

WACDI

TF
B
TF
B
TF
B
DORG
TFM
DC
-4

SWF

21020
21030
21040
21050
21060
21070
21080
21090
21100
21110
21120
211 )0
21140
21150

WRITE ALPHAMERIC
.WATY-l

WATYl
SWF

,WAPT-l

WAPTI
SWF

0~318

,WACD-l
READ

8

OORG
TFM
DC
-5
21160
B
21110
OORG
21180 READEF BNF
21190
B
21200
DORG
11210
TFM
11220
DC

UTn
SWF
RAPT!
SWF
RACDI

FMCN
'-1
FMON+1l
2

,RAPT-I

.RACD-I
.8

, --START
.10

HO

B

8

,--)
.8

"-START

,5

FMON

,.-)
.8

'-1
EF ROZ+12.lOC

EF ROI

•. 8

'-1
FMC"> II

,--STArtT

2

,9

FMON

DORG --I
All
SWf
ATYPEI
OORG '-1

49

07154

00000

26

05861
05498
05861
05518
05861
05538

04281
00000
04305
00000
04329
00000

05861
05867
05861
05882
05861
05902

04353
00000
04377
00000
04401
0-000
-057]

26
U
26

49

ALPHAMERIC

.RATY-l

-9
21210
21240
1250 'TYPE
'260

04HO
04342

'-1
FMON.lI
2

04282
04294
OH06

2

,*-)
.8

,3
,8

04354
04366
04378
04390
04402
04414
04424
04424
04432

l6

16

07165
2

04H6
04446
04446
04454

49

01154

0-000

16

07165
2

-0595

04458
04468
04468
04480
04490
04490
0449'

U

07154

0-000

44
H

0"642
04598

05981
0-000

16

01165
2

-0639

04502
04512
04512
04524

49

07154

0-000

II

OU6l
04'122

-0003
0-000

04~3.

49

26
49
26
49

49

"i 9'l

1620 ,oaTII'M 11-0

uno

YFII
Dt
-6

2UOO
U110

I

""0
uno

21])0
2U40
uno
2U60
2lHO
2U80
211QO
21400
21"10 EfaOI
21420
21410
21440
2l4t~ti ORD2
214 ...,

'MDMHI

a

,.,."UT
,6

SUPMIIiS

,.-srall'

.6

'I'

onS4

0-000

"

OliU
2

-010'

0 .....
~"I

4.

01,,4

0-000

OU"

.
.
..

0"&'
2

-0121

01154

00000

0\<;18\
011.4

on"

001100
04920
00000

OH'"
0\91J
0."1
O,.IJ
05814
02615
011\11

00002
02492
-0002
02490
OU15
00000
00000

04'42
024.2
OJ160

01100
02815
OODOO

03111
02492
0"122
01101
021>"
0/492
01"'1>

01490
02221
01100
00001
00lH9
02805
OOOtlO

Z6
2.
Z6
U
Z1
Z'
49

024<;10
02.03
02515
0....
0 .. 88.
99999
02492
03712

00000
02111>
02815
03291
02492
02490
02575
00000

'II.

04630

00000

05956
059 .. 5
0.136
05136

05 •• J
05131>
05956
06031

0 ...~2

,I

IU..

,--I

~."
DU.I

0 ....,.

04116

.-4~1

"

"
"'.
"
"

,51'

··ou,

,.-1

'"0M

.,'ll'

"

OliU
2

o~n'

B
DOIIG .-4
1620 FOIl TIIAII 11-0 Ulf-ATY" 'DIll" - SUlllOU"MIS
tF
LOt
T.
.UEMO·' ,I !:DN 5t6
8
fl.
OO.G .-4
TOil F IXEIIO'1 ,2
Tf
,I
LOt
,F't
; \'10
SII
,2
LOt
,t
~l'~O
Tf
,UC.-2
LOt
lI490 EaF 15 INF
BSIiF-lZ ,II
•• I' IIDT EllilDII TYf'I f1
2UOO
tf
EI
IUSE IIIDIL • ., IMOI"TION
~I~IO
I
EIItOll2
001lG .-4
71520
71~]0 EFFIX
8P
YIS
TF
21540
110
8
21550
FUfNO
2151>0
001.' .-3
IIU-I
21.10
TO
STOIII SIGN
,"C-2
ZlS80
FAt
IS CHAR GUATER THAM It
t
.11
21.90
8NH .+'6
TOil FIER. . ,5 ,1
21600
SET ERR TYPE
,9, sn Ell E', OVFL IN FU
TFII EI
21.10
21.20
TF
,Fit
FAt
YES, . " • Fl.
21UO
flERR
DOIIG .-3
Z16 .. 0
CF
21650
FAt-2
TF
IUA
,URO-51
CLUR ADD 'ilEA
21'60
21610
TF
I liSA
,FXl
21 •• 0
TF
,1I1UPf
ALIGN DEClIIAL POINTS
"30
21690
,FAt
5
"1'
Z1700
A
OUIIMY
.FAt-2
11710
FAC
,IMSA
Tf
MU
21720
8
21110
OOR' .-4
21740 1CON5 B
EFRO 2
.1
.-4
21no
001.'
21760
MAtRO FOil A TYPE llEAO AND 11111 TE
,11
21770 ATYPEI TF
WIDTH 2 ,SII'
217.0
TF
INPLUS
,LAST
21790
A
LAST
,1I10TH I
,MAl 2
21800
t
LAST

·.,2
,,,

'AGI

SIT 1

,I

'11011

DOli' .-1
TFII FIICIIIHI
DC
2

-,

,t

'"0M

DOIIG e-I
lfll 'IIDII+U
Ot
2

-,I

,e-S".'

..

•

..
"

041.0
0 . . ..,
04591
04610
OUIZ
04U'
0 . . ,0
0.6.2
04".
0. . . .
04611
0 . . .0
04102
0410.
0.110
041ZZ
041l'1
04142
041.,
04754
OH6,
04171
04"0
OUOI
0"814
04122
0"122
04134
0 ......
041,.
04170
04882
04.'.
0490.
0",1)
04914
0.921

0 .. 922
0493.
04941'
0495.

"

))

Z6

15
26
U
26
)]

46

U
'I'

2S
24

"

IS
16
2.

....
n

,.
26
21
24

~~

599

1620 FORTUII 11-0
21810
21820
Z1830
21840
21150
21860
21110
21880
Z1890
21900
21910
21920
219)0
Z1940
21950
21960
21910
21Ql0
21990
2Z000
2Z010
22020
22030
12040
22050
22060
22070
22010
120.0
22100
22110
22120
22130
22140
22150
22160

8H
TF
SM
TFII
10
rFII
8
OOIlG
tF
AM
t
8L
8NF
tF

Ea F9
TEIIII
.UST
TERII
,2
Slit AOJ ,IIIIITE A
,RII EF 511
SilL
Slit AOJ .REAO ,
SilL
·-4
REAOA
INPLUS
,1
,10
INPLUS
lNPLUS
• TERII
READ A
,LOt
ROAFl
LOC
TF
LOt
.FH
,K
S
IIIOTH
RDA
EIIFTA
.H
A
,IIIOTH
LOt
,TERM
TF
,611
LOt
EIIF15
8
OORG ·-4
,7
ERF7' TOil II
8
EII'TS
DOIIG ·-4
,61Q
ROAFL Tfll LOC
.00
SII
,2
LOC
.10
Tf
LOt
..FU
.6"
S
1I10TH Z ,F
8
liD A
OORG ·-4
IIRITIA Tf
fAt
,11
.LOC
,FAt-l
IMF II' FI
SM
LOt
.2
1I10TH 2 ,F
S
IIRYA
IH
IIIIT.2.. ------- -.
A
LOt
.IIIDTM 2
uno
TF
fEU
..au
.~"...
22110
ISII'
221.0
DOll'
,10
22200 IlIITA2 511
1I1DTH Z .02
22210
I
IIITA
22220
OOIG .-~
12230 IIAF.
5
1I10TM 2. La
22240
1I11T A
DOIlG e-t
22UO
_G 01000
22210
.. ..aJI4Ul.__._ .
2Ul0
JI
AI
22280
U
AI
,DOlO'
22290
I
"U
DDIIG .-,
22300
uno AI
DSC 9
.019llUlln.
01"41016
UUO
OU Pli

,

•

uno

'IIA

46

.

0""0
04982 Z6
0499.. 12
0500& 16
05011 n
05030 16
05042 4'
050 ••
0'050 JJ
050.2 I l
05074 24
050 •• 41
05091
05110 n
05122 26
05134 Z2
05146
0'15' 21
05170
0511. 'I'll
0511'
05190 15
05202 4'1
0520.
0'210 16
05222 . 12
052l'1 26
052 •• 22
0"51 49
05265
05 ••6 • 8
052.,.
0'''0 12
05102 22
0511. 46
ou,. 21

...

,.

.-.

PAGE

SET 1

••

,ll,

•

SUIIiDUT IllES

..,.

SET

ell

F7 ERIIDII INO AMO SlilTCH

....

onn

051'0
OU.l
05111
05no

oun
on.,.
051.0
on97
01000
01000
01011

oloa.
OIOU
OIOU
"~I

0104'
010. .

01002
01>185
061"
06044
05934
0.044
05934

01100
0513.
-0002
-526.
05953
-5050
00000

0594N
0594.
05945
05050
05210
05981
0598J
0.'S6
051<;10
05911
05<;1U
04618

00000
000-1
06185
01300
05981
00000
02815
02Z21
01100
05956
OI>18N
00000

02615
04618

OOOOP
00000

0591J
059.1
0591J

onn

05146

02219
00000

o.nl>

000-0
000-2

014" •
05318
05911
0.951>
0535.
05"1
0611N
05126

0.9.J
02491
-0002
02219
01100
05956

12

4.

0"51>
OU14

000-2
00000

22
.9

0''''
OU14

02Ul
00000

II
16

alan

01012

00702
0070)
00000

,.

'I'

"

0.0. .

45

O"IJ
00000

9

I

,. -J'"
00000

•
00500

UII

" ' 0 'OA'.',. 11-0
TCO

ZUSO . . . . . .

"ZO 'OATU,. 11-0
1"0 FDlTlA,. 11-0
DOIIG STAAT
,)$
J
TFII FNONOlI
DC
,I
2

221.0 •••••'

01000

.

IP"1f 'OAII"
IPIlIf ,.IIIAT - SI~IIIO'"

"-,, ,

ZZUO

uno

22400

-I

8
IFII
DC
-I
8
TFI'I
DC
-I

"410
ZlUO
Z2410
ZH40
"4S0
22UO

B

"470
2HIO
224"0

TFN
DC
-I
8
TFII
DC
-I
8
TF"
DC

22500
USiO
22520
225JO
21540
22550

-1
B

22560
2H10
ZHao

TFM
DC
-I

2H90
22600
22610
22620

'110111
'NON+U
Z

,·-nAU
,I

,.GI

0,,,&
OJ.n
OJU.

01." "

,--I

OJI. .
OJlll

,--I

on..

"-ST'U
,I

,-J

OJ.O,
U"O

FMON
'MDN+U
2

,o-STAU
,I

,--I

0)91 ..
01926
OJ9J4

FMON
'''ON+U
2

"-STAU
,I

,e;-)

"-STAU
,I

,-I

onu

,.-)

03Q86
039'11
04006

OJl.O

OIUI
OJ950

nnl

22130
227'00
22HO

B

TFM

00000
-01175

01154

16

on 105

00000
-0099

2

07154

00000
-016"

-]

07165
2

49

,.-)

04032
04042
04042
04050

,I

,--3

04054
04066
04014

2

,'-START
tl

,--3

04011
04090
04091

FMOH
FIION+1I
2

,·-START
,I

,--3

04102
04114
04122

FMON
FMON+ 11
2
FMO"
fMON+II

-I
DC

01154
01165
Z

16

..
,8

,.-START
,I

-I

TFM
DC

16

49

F140N
DORG '-1
TFII FMON+U
DC
2

B

00000

-OOtl

04010
04020
04020
04021

,.-START
,I

22710
22120

01U'
01lU
Z

00000

-Don

00000
-OIH

FMON
OORG '-1
TFII FIIOH+II
DC
2

22100

."" "'"
.
.

z

07154
01165
2

"-START
,I

TFM
DC
-I

Z

on,.

16

01'62
01974

F~ON

FIION+II
2

B

••

J
Oll", -0.001

00000
-DIU

2

,.-START

-I

46

00000

011,.
011105
2

FIIOIII
FIION+U

-1
B

21610
22680
22690

••

00000

L 1l11lA11

FIION
'110lIl+"
2

B

22630
22640
22650
22660

In'
0.0'.
01000

22140

2Ul0

IUalClUf,.,

'9

"

."

07154

0-000

16

07165
2

-01"1

16

07154
07165
2

00000
-0215

16

07154
07165
2

00000
-Oll9

07154
01l.5
2

00000
-0263

..
.
49

"

6111

1620 FORTRAN 11-0
22760
22110
22180

8

TFM
DC
-I
B
TFM
DC'

22790
22800
228\0

-I

22820
22810
22840

8

TFM
DC
-I
8
rFII

22850
22.60
22810

FMOH
F140N+1I
2

,.-START
,I

FMON
FMON+II
2
FIION
FMON+lI
2

,.-SURT
,I

,*-3

04150
04162
04110

, '-START
,I

,*-3

04114

,.-SURT

2

,2

22880

8

22&90

Tfll
DC
-2

FMON
FMOH+1I
2

22940
22950
22960

B

....

1

6

FHOII

TF

SIIF
lillY!
SII'
IIAPTI
SIIF
1I1COI

22970

8

U'I80

TF
8
TF
B

22990
HOOD

nOlo

2)020
21010
23040
23050
23060
nOlO
23010
n090
UIOO
23110

....

511F

-,aDC

21160
UI10
2nl0
nl90

DC
-I

z

•00II5 .-1

23200

,2

,e-l

,--START
.2

,---J

04246
04251
0.4266

,·-START

OU70
IIIIITE ALPHAIIERIC
.11"''1-1
,,"'T-l
,lI.Co-l
IIUD ALPHAMERIC
,UTV"'I

,'-$TART
,4

,-SUU

,t

TF

FL TEllO

,.
..,.

••

04.190
0"402
04~1'

-)

,.-J
,e-I
,I

.1.00/II6.'

04154
043.66

oun

t'
,.-SfAU

'IION

IfM"

04281
04194
04306
04na
04no
OU..,

.IIACo-l

DOIIG - I
TFM FIION+U

16

042Z2
04234
0424Z

S\IF

2

.

16

49

RAtl)!

F_
F_

04194

..,

0419.
OUIO
04211

.IIAPT-I

'-1
FIION+U
2

OHa.

49
16

,--)

"",VI
Sill'.
UPTI

8
OOR& "-1
TFM '''011+11

uno

nl40
UISO

nZlo
nuo

TF
I
TF
8
TF
B
DORG
TFII
DC
-~

nuo

FIIDN
FIION+1I

TFII
DC
-2

PAGE

,*-]

FIIOH
FMDH+U

22910
22920
ll'UO

SET I

04126
010138
04146

DC
-2

22900

SU.IIOUTI NES

04.2'
0441.
04.12
044)'
0 .....
~'46

.04'"

00000
-0217

07154
Oll.,
2

00000
-0311

01154
01165

.00000
-0335
00000
-0359

49
16

07154
01165
2

00000
-0383

.9

16

O1l54
Olll'
2

00000
-0407

07154

00000

26

.0'''1

0"11
00000
04105
00000
04329
00000

"

.
.
ZI

U

ZI
49

...
It
49

Ii

It

0''''
0'''1
05"1
On6l

onu

O'UI 04353
00000
.01 . . 1 OUll
0'''2 00000
0'''1 ,04401
on02 0-000

,0""

-05n

16

01161
l

••

on,.

0-000

I'

on 61

-0'"

••
04'"
044" 16
044"

••,.

41

Z
Oll"
01165
2

O~"51

04410
0"490
114.,0

07154
07165
2

2

on"

0-000

ontl

-0611

Ol1l4

0-000

01110

OSU6

2

102

"'0 'OUUII 11-0

uno
UI"O
uno

I
DOIIG
"II
DC

-.
-.""
-.

U160

uno

I
'liON
DOIIG 0-1
'liON. 11
Dt
I

UUO
uno

InDo

u:no
uno

I

'lION
OOllG 0-1
T.II 'IiONOIl
Dt
2

UllO
U140

uno

FIION
DOIIG 0-1
T'II 'MOil>"
Dt
z

2H90
11400 IIEFSW
11410 •••••

".20 •••• !.

......
......
......

114)0 ••••••

114~0

23410 !filII 1

nuo

ZJ4.0
U.OO
USIa E'AL'H
nuo
Z1'l0
U540

nno

215.0
2n70
23580 EFAL'
23590
23600
21610
21UO
21610
23640
23650
21660
21670 EFCHKS
2]680
23690
H700
23710
21720
23730
23740 U.IES

-6
I

U5

,

'11011

.n

I

,I

,0-SlAl'

.f-I

OUIO

.1

O.U.
OU"
OUJ.

Mill

,6

,0-1

ou.,

,.

,I

OU'"
OUS6
04".
OU64

,o-STA.T

,e-J

' 0456.
OU1.

,I
,0-Sf,U
,6

,.

au 11
,e-J

OU16
04590
04.01

IUO FORTUII II-D ""11 'DRMAT - SUIIIDUTINIS
I AND' "PI "ANTlU' IIIIITlNG,'LO" 'IIG IF .111,
to.'U1E Dlt " I N GAM IND DUTI'IIT nCDRD. NOVI
M'NfI IIA DlIin IV DIGIT • • IGIIT TO Lin, PIlON fAC
10 Gill. INSIIIl SIGN, CHECK IIIDT", IND ZI.O.
I" '0 ... T F '0. , "'1 COIITINUIT ION
fat
,lOC
TF
.11
,FAC-l
BNF EfLOAT
511
,2
LOt
TF
FAC-I
,lDC
,II
,10
T'" 'UENO-4 .20
TF
OPT
• TE.M
5
OPT
.lDC 0 2
fFII 0"
,GI"
5
• lDC o 2
D'G
TF
DPTM2
• OPT
OPTII2
SII
.2
511
.. a 2
.1
Wl
TO
•• 11
CF
IIA
.6
511
.. A
,2
,FIII!IF
C
IIll
EF AL,
BH
TFM ..A
.00
... 0
e~F
EF CHItS ,FAt-2
.20
... 0
T'" IIA
',9
HM Cltll
.000
A
tltll
.lOCO
A
tit II
.fAt
TF
CHAR
.tltll
S
CHU
.f
1I10TH
C
.LDt 0
BilL "12
TFII IIEfSII
,ERFlI

...."

SUBRDUTINES

BO

5
ilL
TFII
8
['flllG
80
5
&0

TFII
A
A
TF
nuo
B
23970
DOllG
21910 II11TFS TFII
23990
B
24000
DORG
24010 IfLOAT all
24020
8Z
24030
TO
24040
CF
24050
Til
24060
TF
24070
TF
TFII
24010
240.0
80
511
24100
24110
aM
24120
I
HUO
DDRG
24140
TR
24150
TF
All
24160
INII
24UO
TOil
24110
TO
24190
24200
Tf
2Ul0
I
DORG
24220
2"no ENOU6 T.
24240
TOIl
14250 INOII60 5'
10
24"0
511
24210
24Z10
oa.G
2""0
2UOO ICON. I

•

·+J6
.FNH
.11
fUIND-4 ,-1
tHAII
,-099
..lITfS
....I'S ..
... ITE E "'E. ASSEMlLE EX' III GAil USlN' A IIISK.
THE CHAR ANO SI'". IIOYE LEFT Gill 1110 .1 GIlT GAM TO
OUTPUT. THEil GO TO IIiSERT DECIMIL PDIIiT
WIDTH
.f
IUNtH I' • U.GE. THAN IFF .. 10TH
·>n
RIfSlI
.IIRTU
IIIEF511
.-4
.FUIII0-4
tHAR
.IIIDTH
lUlU
.CHU-2
.>41
• GAM
'''10TH
"15
.. n
,WID1H
GAil
IIUEZS
0-4
, ..lIT,
REFSII
IIIEfiN
0-4
,10, IS FAC lEIIO
Fat
,00
YES
lERFAC
,fa!:
99
STOllE SIGN
It
fat
.nH
,11
IE"-9
fAC-2
CLU. FAC
•• "f-I
CHAII • II
SAVE
.K
..n
,11"-'
FINO HI ,OlIO DIGIT
It
"OUIIIIY
,10, AOJUST CHA.
,01
SAVE
.-1]
,Dl
0-]6
0-3
.0-1]
,6U
FNH
fllID A,.D C~1A1I IIltCOID 1111111
.. 1 •
"15
oon
,oa
o-IZ
• DUIIMY
0-1
,0
FACtI
.ltll:.
•• PlACI ."ORD .AIIII
10
CllAR UTA
I.U
.Zllto-14
INalltD
.-1
.6U. UFT SMIfT ONCI
'NH
.'H
SIT LIST Dlln TO IIU.
.0
"C-I
It
It
'NH
.6U,
'1ST LUOING Ilia
fiNISH
"NH
IAIII
.. I.
. all •. IUIT ~ ,"ON,IXPONt"'
INOIIJI
0-.
,1
I' ALP"

"

.

..

•• '6

,

..
..

••••

"..,.

,.
"

,
,

04601
046"
04.U
04611
04UO
04661
04614
046 ••
046 ••

aUlD
04722
0"U4
OU'"
04751
04710
OUIZ
1"7.4
04806
041"
04130
0""2
04154'
0 . .66
04na
0"'.0
04902
04914
04926

"

04607

0··000

"
••

0"6'
2

-0"1

071'4

0-000

16

onu
2

-06"

••

071S4

0-000
-0705

"

on.5

U

071\4

0-000

"

on . .
Z

-0121

07"4
5

00000

02492
Otl50
05981
01490

O"IJ
01491
-0001

ann
05976
0'Q16
on42
07142
070U
0693L
06'nL
06913
07084
04734
06.lL
04842
0691L
06611
06673
,06673
07108
07108
05715
04946
04601

05606
-U55
0560.
07137
-0002
-0001
070111
00000
-0002

••

,.
44
11
I.

,."
22

"

ZI
26
lZ
lZ

as

J1

U

..'"""
Z4

"

21
Zl
26
22
24

46

"

onu
ono• 0001t0
onJl ones

033U
01100
000-0
02490
0001(0
00-00
0560.
02492
06673
02219
05601
01100
-5226

PAGE
04931
04."5
04.46
0495.
04910
04.12

0. . . .
05006
05011
050]0
050]7
050]8
05050
05062
0501.
0'0"
050••
05110
05122
051"
0'130
Oll41
0514.
05"0
05162
01114
051 . .
01ll.1
OUIO
01222
DUn
OU66
DUll

4.

05458

00000

4J

04982
01106
07108
051]0

onlL
OOOOJ
00-911
0'}951

lZ
U
16

05715
05031
04601
05451

0221.
OUOO
-4622
00000

U
22
4]
16
26
4'

05074
07108
04926
05121
05121
05121
02555
050'1

01806
05715
07106
-U55
onl5
onu
00000
00000

16
4.

04601
05451

-4126
00000

II

01492
01514
000'9

000-0
01200
02492
00000
OUIL
02ln
oun
-2594
••••9
000-1
-0001
00000

as

16
.4

.,
Zl

za

46

III
U
II
26
26

"

n

ollno

II
II

DUIZ
OUtO
012.0
OUOZ
OUI4

II
26

4.

DUM
0'406
DI411
01410
O,U•
0"'4'
~UO

01594
02490

02565
05257
01J290
02565
05U7
05246

DIU'

05317
05314
"UP
02491
02605
0'406

-0001
.9••9
00000
0240J
02691
00000

onll
02""
onlL
olla

U

~

on..
onll

OUOII
00000
00000
Olill
000-1
00000

4R

1"150

DOOOD

onu
OUI. n
onM n

onu
oln.
OUI.
onll

02491

OUlL

n

"
.6
••
II
II
J2
41

.

U

1

SeT I

8
BREFSII
DORG .-4
TOM
TFII
IN.

PAGE
OUDI
DUll

1610 FORTRAII 11-0
2]7S0
21760
23170
21710
23790
2]100
21110
21120
21810
23840 IIUE
21850
21860 WIITEZ5
21170
21810
21190
23900
21910
21910
21910
23940 ,
21950

SUllO'" I • •

,I
,0-n. .T

I

In60
uno
znln

21440
l"t45,1

Iflllli
0-1
.110110"
2

6U3

4.

oun Dun

104

').,) .-..
I

1,,0 PO.,'U" 11,-0'

nno

2.no
24110
2U40

DOIIG

111'''11

""
"'"

DC:

.-4
"IUf+'
'NON+U
2

Hua

hUO
2UIO
I.no

1.

"
,

24410

1/1
At
•• 2'2
I
OOIlG .-1
OSC
019551011
OSA Fill

24440

TU

ZHaO

'''''10
24"'0 A9

14"'0

......
.....

24470
24410
24490
24500
24510 IIAl
24520
HHO IIRTE2
14540

24550
24560
24510
24 . . 0
24590
24600
24610
24620
24630
246~0

H650
2~660

......
......
......

......

24610 IIRTF
24680
210690

24100
14710
24720
24130

24140
24HO

2H60
24170
H710
2ltHO
24800

TCO

.H""pe+,.
• HlYPh,.-",",
,e-J
.10

0'U2
0"'''
01000
01000

.00102
.00101
.01.,nol'1'

0.0'"
080.6
0.051
010,00

·

••

.,

TF

TF
24840 FNCNEI AM
24850
ao
T./I
210860
2~870
B
OORG
24880
24890 HERO fFM
24900
TF
24910
tOM
24920
8
24930
DORG
24940 IIRTFPE TF
24830

~NCNEZ

S

TF
TF

n

.2
tWA)
.70

SUIROUT I NES

..

.'11, SET

,,1 L.
.610

SI'GN LEFT ,OF DfCPT

INSERT ZEllO FRO.. DEC PT TO
FIRST NOt..lflO, DIGIT 0101 ..IGHT

,61'0, F TYPE OIl'PloIT EQUALS ZERO

DI"OI2

,.6'11
"11

.-4

·.18

.DPG
,OI'G

.11

• TftI'M
.CtlAR 2
,GAM+2

ClUOS+30. TE""

C

CHAR

BNl
A

CLR 70S

.(Oeo

OPG

.GHAII 2
fR
OPT
,DPG
.611
250(/0
TF
CLlll0;+)0.UST
25010 ClR70S 1F/I ;·.)5
,"ASK H
·.,2)
25010
A
,CHAR 2
TF
250'10
f£llM
.6
25100 WEf'DEt TFM 0"
.03
.610
25110
TFII LAST
.00
.610
25120
8
ISIIF
25no
OOR'
25140 fRnE tR
DUO H+2hFUE'IIS"'U
Til
25150
GAII+I
."A'$II
"OVES hOO 'AUH.".III CALL Y
25160
TO
.FAt
G"".a
25110
TD
.FAC-I
GA"+6
25110
.4,.
TF" GAIIB
.9
8NF ··21t
25190
25,00
TOM GAII+3
.2
U2l0
n
DUD H+13'G~I"2F
.11
TF
2'110
DUO .. +u.OUO H+14
nno
,10
T'" DUD H+.4.03
CII
2"40
DUINH.' .01
.10
TFII U+2
uno
SfT5EIIIIQII' F'I EIlASEStlC Itat\K
."'00
IL
ER COli 2
2"60
25270
fF
DIoTDUD+Z .DAnNH+l
TFM foa,
U2IO
,·.ZJ
I
10PT
'5290
• 0ltD\IO-" .1
25100
I
ElltOll'
'DORG e ••
IIUK
DSC 10
,'4"0101:00'
451010100'
2500 "ASlitP
.... S".l
UUOItASIlf 1 OAC. 1l.0.00000000000000000000000000000'
000000000000000000000000000000'

2SaSa

.-.

·

..

.FAe

..

uno
nno

Os

or16'

-"'02
-0151

011S"

00000

olon
alan
01046

00101
00103
00,0,00

2

9

OU02
0"'02
0461'
04601
04621
04611
04634
04646
0465'
04610
04682
04"4
04706
04111
04725

04126
0~738

04150
04162
04774
04716
04798
04810
04822
048)4
04'~6

04851
04870
OUIZ

)6

'"

.."
1I
4)

Z5

2.

H

.

I'
26
]I

-11'.
000110
00000

-3854'
00000

02"6
05226
02563

0'425
07106
01108
01101
01108
00002
02557
05970
00000

02~61

04694
02558
0618N

a:up
05194

31
U

02556

U
14

05226
06673
04974
06673
0'226
06708
06701
05050
0. . . 1
04181
01'55
05018

41
H
46
26

21

••

16
21

...
26

DO,500
00000

01398
0460J
5

0~974

OHH
03806
07106
00-00
01100
05715
01100
07101
01108
07101
-2555
06701
00000
02492

'V

SET 1

.6

·-It

fR
OPT
,WEF OEC
8
24970
DORIO '-4
.+)0
24980 IIRTFPC TF

H9"0
25000
25010
25020
25030
25040

,-GAM+2
.G..
• DP'T

':10
O'T"2
CHA. 2
.lOCO
,a
CH'"-2
ClU(}S-12

24950
24960

1.

4.

onM

.0

0.0'"

08000

lAST
DPT'M2
OA3
0.3
WEF DEC
WA,3

""
••

alan u

olon
olon
0.012

1620 FOR TRAN 11-0 IlI1Te-F fORIIAT
1610 FOR TU1f 11-0 IlllTE-' FORIIAT - SUIHIOUTINU
OORG HTYPE>24
TF" MUSE>5 .FIX
8
REFSII
OS
5
.REFSII
nM' STOllE '011 ZEIIO I NSEII T AQ.OIIESS
OORG '-4
TR
GA"+I
• "ASK
80
ERF8E
.C"AR-2
GAM+a
TO
.CHAIt
TO
GAM+6
.CHU-I
B~F
-+24
.CHAR
TOM GAM+l
.2
TF
TEll 10
,GAM+2
.6
TR
OPT
.OPG
/6\1
B
liEF DEC
OORG '-10
3 CASES FO_ II_ITI~G F TYPE.CHUIS EXP-LOCD-F
CHU IS NEG. EXP IS IoIIG
CHAR IS NEG. EXP IS POSITIVE I III1TFP£ 1
CHAR IS POUlI YE
IIIR'FPCI
TR
,MASK EP.7
GAM'I
F IE~O
,FLfEIIO-4
80
BO
E' F8 E .CHAR-Z
eM CKW
.000
BNH F lE~('
C
CKW
.WIOTH
AH
eR F~ E
TF
CHAR 2
,CHAR
A
CHAR 2
.C... R
B~F
W_TFPC
,CHAR
TFM •• ,5
.GA"
A
.CHAR
·'·23
TF
GAM
B~F
WIITF'E
.FAt

TF

tlGf

1

oun
o.u.
OlUO
a.H.

1620 FORTRAN 11-0
24810
24UO

sIT

JO
I
FIIOII
OORG 0-4
OOIlG 0.000

14no

24.50

lUiIlOU' IlII$

PAGE
0~8'4

26

04906
04.18

26

O~HO

11
.3
16

0~'42

26

04954
04966 49
04973
04914 16
04.86 26
04998 15
05010
05017
05011 26
050)0 3\
05042 4.
0504'1
05050 26
05062 II
050f4 26
OJOl6 26
05091 2.
05110
05122 21
0.U4 11
05146 ,26
05158
05UO 21
05112 16
Otl •• 16
05206 16
05211
05225
05226 II
oS2Ia
05250 .21
05262 n
05274 16
OU86 4.
OS,9I 15
05110 II
DUll 26
0511"

'"

'"

onr,o
.05112
0519•
0'406
DUll
OU2I
054"

OtU6
OIUT

51

0460J
04930

02557
0173N
07137
-0002
OUOJ
OOOPO
00000

0714K
06708
01106
051U

OOOPO
05606
0000oooou

0714K
OTU'
05194

05970

05080
05080
00000
DUll
01101
o.ua
01916
01\3P
DUll

0.6785
06708
02557
06715
05601
OUOO
0670.
05970
057)6

OS\9~

0~910

00000

.

out)

...

onaN
0113P
0'730
05826

06101
00000
000-)
000-0
00000

02.,.
02556
02U3
0216.1
02'158
OSlIO
OU51
01620
0261'1
OU21
060511
0'611
010U
06051
OO'U
oaul
01071

06270
05425
02492
02491
001151
02492
00002
03520
02621
000-)
ooo-a
07.00
OUOD
06019
-§.Il
-60n
00000

n

onu
on51

05730
071U
04601
04601

••
'".1

I.
16

26

.,
4.

05191

-un

10

a
Jl

2

CUi

IF

,.,0 'IIUIA. 11-0
""0

nl'o

2UTO

znlo

In..
"'00 Ala
U'IO

faa

U'10

TCD

25440
25460

,"a.

2547D
2541D
1~510

15520
255]0

TF
51!

1~~40

•• GOUT IF

25550 8&5

TF

15~60

SF

15HO
1~5'O

25"U
25600 .
15610
2~620 ~n"G
25610 .U~N
25640
Z5650 IIOIU
2~6"O

lllaoo
01000
01011

01'"

1It01i

""

8
80

rFII

"I!

8

01011

010.'
ala••
DID...
01011
DlOOO

D.DDD

DOIIG SUUIlonDD
FIiONt,
SF
TF" ~nU.N.6 ,suu
'FII lAStll
,I
IUtU
,I
511
FIIDNI'
BNl ·-2'

'"
,

2~490

25500

PAGE
"' I

•

UUD

1~4~0

SlI'.IIIYI.'

DORG 01000
JI
Ala
• linN
u
AlO
.00lll
I
.t"
DDaG .-1
Dse
.lIlt.noll.
01 . . '.00'
DSA ""'EtZ4

,'IL", .

~E'~NI6

07ln
Oll"
OJ ..I

on"
on.o

.10

,11

DnDI
Of2"
Of2l1
OfUI
aUlD
07182

,.1111-.11

'RGOUTtIl,"'ua. . .
,RGOUftU, I
U".Glll,DUII.'
lllASE
,DUll.'
IIIASE-2
IOU
,7
lOGY
,1101"
-.16
,FINIIIN
IOU
,7
10SK
,0IDAT'
,6
'.GDUHII,DUIIIII'

Dun
0'216
0,,.1
OU10
OUU

, .. n

8
OOAG .-4
OSC 2
02
DSA I118&SE-I

, .. n

DUn

,02

au"
OU70
an 77
ann

ou",

..
..
••
...
.1

••

12

11

12

n

Zl
Z6
II
ZI
Z6
JI
18

.,

.

U
II

"

onn

25610

DC

256'10 "8&SE
25700

DSC
0
OS
DSA

Z'71~

ot

"

07199

2H20 f II

DC
8
-DOOOO13
OC
8
-oonon
DC
a
-0066033

,OODOO031

DU07

,OODnon

07415

,OOD660n

DU23

I,'

2H40

•

SU'.OU'INES

sn

,0009.016

DU39

DC

,OOIU017

OUU

,OOIJ200'!

07U5

,OO14ID16

0"63

,00157017

07411

,00174009

07419

2H90
25800
25110
25820
25UD
25.40
25150
258"0
UUO
n8l1)12

25"0

•
•

,

25'100

ru

25910

rCD

25920

DEND

0"000

DOOOO

-II"
-u"
000-1
OOD-l
DUDO
0""
OU"
-0001
'I ....

on69

"-nzl

07191
013.1
00'1"
00'1"

00000

-13"

on"

0"11

-un

00'"
0055'

-U79

'I""

on7L

00000

00000

5 •
-3854
I

•
•
8

PAGE

25770

•
•

Dnu
Dn,.
Dun
07215
on62
on,o
Dn"
D7273
oun

1

25760

-0115017
DC
1
-01UD09
DC
-01.1016
Dt
-0151017
DC
-017400'
1'0llG 0"000
34
U
18
HZ
12
l"
_.22
I
DOAG .-3
OSC
01611500.
OSA FIION-56

00100
00000

Doooo

807

1"20 FOUlIN 11-0

25780

I I

-"oz
00000

a

OU'I3

on'll

FIX

•

,

on15

,D

DC
-006"01"
DC
8
-OD9901"

2H'0

OI'OJ

00000

5 •

on..

25110

"

00'01

-7315
I

OUU
au. .

25680

OION
OIDlI
0.0...

,0006601"

,00'01
,00702
.00701
,016115D04

'I)

07431

0600D
0800D
08012
0802.
06016
06044
08_

8

•

•
•
•

14

11
II

••

00701
007D2
OD7Dl
00000

9
'I •

06051
06DIl
D6051
06D70
060DD

0"044
1"60"
060"
06D58

)6
4.

-7091
DOOOO
DooDO

00500
DOOOO

00000

808

1620 'OUUN 11-0
ARSOUT

unu

OUAI
0.U2

Ufllll

on ••

""SN
CLUOS

05.,.
05151
02211
06656
06691
05611
05550
05542
1160'"
06057
0""
031n
OH04
(13379
0486Q
04996
04"0
04142
05232
05150
046. .
0'176
04656
06061
0531Z
05.06
D23U
02311
02303
02298
02293
02253
02283
02273
02278
02258
02263
02268
02308
02318
02288
07078
04926
05324
04958
03313
06140
03S8)
03803
03760
063H
05064
03810

COllADO
COIIENO
CO"'U
CO"'SN
DAFMOII
OALDNS
DUDUD
DATINH
00'''0/1
010001.
OKlUFf
OKOAU
EEX'ZZ
fEXPAO
EHVH
fFtIlXS
fFEN02
EFLOAT
EFPLUS
EFlUII
EFfYP.
EHDfOIl
EI'I01I)6
ENOR60
fNTUS
ENUTN
ENTCOS
ENTOED
ENTORR
ENTEXP
ENTFET
ENTFID
ENTREt
ENTSCI
ENTSC2
ENTSt3
ENTSIN
ENTSQT
ENTSWD
ERCON2
ERF8ES
fRun
ERRF1I
EXPENT
FAUll
FINOIN
FINISH
FIXENO
FIXIII
FLOAT!
HTfNO

'LUV

'U'"S
'..,All
'IICHU
FIORll
HHIHE
FXSRIl

G"lll2F

HTYPEI
IFLOA,

JIll NUS

OU4,

Dun

onu
049)0
onu

04912
06212

on26
05192
05106
04931

.JlUAPl'. Oil ••
INOU6
INOR60
INPLUS
1!lILNIt
IS""I

nnu

LOGOIG
LQC;ADJ
IIASKfP
IIASKFI
NATRIX
NATIt.,
NUEllII
NONCA~

OODsn
DDDREV
DNEFAC
DVFLD~

PROGST
RADOIT
READEF
READIF
REPS~3

RETARG
RETURN
RSGNIl
RWHSW
100NK
102MF
2F"1
96MF
97M2F
97MF
98MF
99MK
9SCPF
9SPF
AID
AI
"2
A3

AS
1.6
A7

onu

05150
0"45
04911
on03
04'.,.
05016
06190
05.26
05437
06n.
06418
02601
00196
05.46
04132
05016
03652
OZ226
0'7H
0.468
05038
05585
07358
07370
06392
05953
03293
01341
03429
03311
0])63
0])23
01328
03288
02195
028H
08032
08068
08044
08032
08032
08032
08032

$U. .OUTINfS

"

1.9
ADO
ATVPE
UJ

11
t2

us

lEU
ISNF
CHAU
CH".
CKW
010
OPG
0""2
OPT
DUOH
DUD
DUMMY

ru"

EUPM
EU'
EFUN
IFAL'
EFeDN
!FOEC
EFDIG
EfEND
EFFIX
EFIIIN
EFM~I

EFIIN
£FRDI
EFRD2
EF~RT

EI
ENOD
ENUN
ERF7A
ERF7
ERF1S
ERF8E
ERF81
ERF9
ERRET
ERROR
flYPE
EXP
F2
FAC
FAOI
FAD
FAX81
FAXI
FAXII

SET

FAIl
FC_

OSS.2

FDI
FD
FDVRI
FOVR
FH
FIL
FIXIl
FIXI
FUll

04512
05214
06044
06044
07214
02603
OS126
06701
07101
06673
00116
05976
07142
07U7
02607
02617
99999
04112
049.0
04952
0"01
04134
0.600
05048
0'"6
05200
0.710
04632
04602
04490
04598
04630
05028
02615
03768
02241
05190
05074
04678
05226
0501.
07002
00602
03676
04556
04185
03661
02492
05304
04090
05714
0.251
05052

54

'AGE

01032
OIOll

Flxl

Fix

FlOOD
FLOU
FLl
FN1MF
Fill
F..,At
FNON
F"'"
FIIPI
FII'
FNHNI
FNH
fPlNK
FPZ
F
FS81
FsaRI
FS8R
FS8
FTYPE
FXI
FX9
FUll
FUI
FIA
FXOIl
FXOI
FXORI
FXOR
FXO
FURR
FXH
FXMII
FXMl
FXM
FXNIN
FXNI
FXSRI
FXSR
FXS
FXl
FlERO
GAM

O.U.

GEHT
GMI'
HHO
HO
NRO
HTYPE
HWU
ICON2
ICON3
ICON5
ICON6
IDIG
IFIX
IFNRT
11151.
INH
IN
lOCAL
IOCR
IDGT
I OPT
10RIC
IOU
IDSK
IROIG
IRUD
ITYPE
K2
K
LAST
LNIO
lN2
LN.
LN8
LNENf
LOC02
lOCO
LOC
LOGE
LVI
Milo
MANTP
MASKF
MASKI
MASK
MATSW
MU2

O.UO
06042.
O.IU

onu
04116
onol
07401
06006
04591
04591
04210

olin
01427
04042
onu

onu

036n
034"
01154
064"
Olltz
04UI
OUU

onu
olln

01605
02219
05214
0'130
0411.
04066
0.,34
02825
0280'.1
061'18
04790
03878
06290
04882
04964
03991
03914
01616
03283
06264
04856
03950
04684
06340
04804
03926
03902
0281'

on1.

02555

MAX
MBASE
MOATA
MF
MU
I'll

1'12
1'10400
NOOIV

OH06
01735

onu
04193
05356
04511
05304
OB94
OU22
04914
05450
04770
05111
04634
02575
06063
06237
00716
0666.
DO'"
005)2
00520
00565
00"4
04 .. 2
04130
04424
OJ641
02221
05116
02980
02887
02918
02949
on68
05606
05608
05981
03010
03616
05622
05798
05417
05331
05425
05583
06037
05924
07393
07377
OH73
03112
02233
02238
05792
05422

6t19

1620 FORTRAN 11-0
NORII
OlWR8
OLWR
ONEl
OUT
PAR
PDT

PIDVl
PIOV4
PI
PSII
PSI
RACOI
RACO

RAPT!
UPT

05640
06988
05962
03038
04957
03378
OBn
03163
03191
03133
06428
04728
05902
04402
05882

RArYl

OU71
05862

RATV
RDAFl
ROALP
RDA

04354
05210
05914
05146

ROFCH
REAOA
RUOI
RECLC
REt"K
REODA
REDO
REFSW
REP2
REP)

REP.
REPS'"
UGNI
RSGN
RNil
RWA
SAVE
SE
SHORT

SIX
SLASH

04828
05050
04990
02243
02403
06762
06118
04601
06890
06922
06818
05512
04984
04020
05610
05562
02565
06162
0557.
01219
06492

SU8ROUTI NES

SET

SOS
START
STOP

05570
03851
02]95
05982
05861
05934
02535
03241
03211
06185
03.0,
03.96
03564
03103
03073
07020
0708.
04601
0553.
04330
05378

swc

SNF

SNL

UFE
UNA
TEN34
TERN
TDFAC
TRACE
TRFX
TWOPI
TNOZ
UNFLO
NAl
WI.]
WACDI
WACO
WAFX

PAGE
WAPTI
WAPT
NA
NArY!
WArY
NIDTH
NRITE
~RTA2

WRTA
NUE2
NRTE
NUF
NRTFS
NRTl2
~RTU

NItTI
W
.FO
XfOVR
XNOR"
XSE

05518
OU06
06931
051091
04282
0511.
06632

onn
05114
04622
04".
04726
05130
0."1
0. . . .
04114
0Z240
D6632
068U

XTYPE
ZERO
SETONE
SLASH2
STlERO
SWCADJ
UNFLOW
WHOEC
WIDTH2
NRJTU
NRJTEI
NRITII
NUALP
NUE2S
NRTFPC
WRTFPE
NRTSGN
lERFAC

55
01046
02767
07032
06524
06239
06044
05760
05194
05956
05266
04446
0.591
05550
05018
05050
05018
0 •• 50
03584

069lt
06752

END 0' ONE ASSEMBLY.

Sill

IUD FOR TUII II-D

lU •• DIITlIlIS

SIT 2

61 I

11>20 FORTUII II-D
00010
00020
00010
00040
00050
00060
00010
00080

SUIRDUTINES

PAGE

SET 2

1620 FDRTUN II-D
SUUOUTlIIIES
!URT EIIITRY POINTS AND eOlllTANTS

IORBC
10PT
IOSK
IOGT
ERRET
10RT
OOO~O lOCAL
00100 MONeAl
00110 010
00120
00130
00140
00150 F
00160 K
00110 PROGST
00180 eUMAOO
001~0 NI
00200 112
00210 M
002Z0 REClG
OOUO ENTlN
OOHO ENTE XP
00250 Ell TSC I
00260 ENTSC2
00210 ENTSO
00280 ENTF 10
00290 EIITREC
00300 EIITFET
00310 EilTS 110
00320 ENTDRR
00330 ENTDED
003.0 !NTCOS
Dono ENTSIN
00360 ENTI. TN
00310 ENTSQT
003.0 ENTAIS
00)90
00.00
00410 $TO,

OS
OS
OS
AS
AS
OS
OS
OS
0$

.520

.532
.554
,566

,602
.'65

,716
.796

,.16

1620 FORTUN 11-0 IN eDRE AREAS
COMMUNICATlDN AREA
DORG 2218
OS
2 .. FlOATI NG POINT MDRD LEIIGTH
OS
2 .. FIXEO 'DINT IIDRO LENGTH
OS
5" STARTING ADDRESS DF MAINLINE PRDGRAM
OS
5 .. S TART I III' ADDRESS Of CDMMDII AREA
OS
2 .. IIUIIIIER Df MDRDS IN LOGICAL RECORD I
as 5 .. NUIIIER Df LDGICAL RECORDS
DS
2 .. IIDRO LENGTH
DS
3 .. RECDRD LENGTH
DS
5 .. EIITRY ADDRESS TO LOG IUUOUUNE
OS
5 .. ENTRY "DDRfSS TO • .,ONINTI .. L SUlROUTlN.
OS
EIURY "DDRESS TO SlNGU SUISCRI" SUIROUTINE
OS
5 .. ENTRY ADDRESS TD DDUIU SUISCRI" SUIROUTI NE
OS
5 .. ENTRY ADDRUS TO TRIPLE SUISCRI'T SUBROUTINE
DS
5 .. ENTRY .. DDRESS TD fiNO SU.ROUTINI
OS
5 .. ENTRY ADDRESS TO IIECORD SU'IIOUTINE
OS
5 .. EIITIIY ..DDUSS TD FETCH SUIROUTINE
OS
ENTRY .. DDRUS TO SNIlI;H 0 SUIIlOUTlIIf
OS
5 .. ENTRY .. DDRESS TD ...... Y SUIlOUTIIIE
OS
5 .. EIITIIY ..DDRISS TO DISK IND .SUlllOUTlNl
OS
ENTRY .. DD.US TO CllllNE SUUOU""E
DS
INJIIY UllUU to U"I Iu."aUl!1tl!
os
fIITRY ,aDRfU TO AaCU_IIT SUlaounNE
oS
5 .. INtA'.AIIDlUS TO III/AU aOOT SUlIlOUTlIII
OS
" . EN'IIY ..DDIIESS TO ... SOLUTI SUillOUTIIIE
DS
lo .. aUERVID 'Oil EII'"III TO ..DOID IUlllOUTlIII$
COIIIIOll MOIIII 'N' .... AS
D..C ',STIIP'
STD"
OOUO RlCIIII DS
• SfD'. .
DOUO OKIUff OSS 29
DO.~O fAC
DS
.0
00.50
DC
I

,..
,..
,,....
'

..

.•...

,

00~'0

SAY.
OOHO IUA
00410
00.'0 GAil
00500 TAfE
00510 I"'"
OOUO IIISIIIII
oono DUOH

DS
DS
DGII
DS
OS

DS

D..C
III E
DS

0055~

005 ••
00'02
00,.,
00116
OOTU
00116
02211
02219
02221
02226
OUU
Dun

azu.

oU~O

onu
aU"
ann
OZUI
ou ••
OZUI
Dun
DUll
Dun
OUI.
OU9)

aU"

OUOI
OUOI
DUll
OUli
oun
OUt)
on"
ono.
OZ~o.

,'

OJ.ta
OZ".

.Un-aD

on••
oun
DUM
onu

12
)I

.,.11
,

00520
00532

,lUI -10
.1l.U...,.~

E '
.IInEIIII

OUU

oat"

0
0

a
a
a
0
0

a
a
2
2
5
5
2
5
2
3
5
5
5

,
,
5

5
5
5
5
5
5

,,
5
5
70

5 x

2

0
29
.0
I

72
II
I
0
0
0

OU07

• x

OU07

0

Z

812

1620 'OUUN
OOMO U,'
oono DUD,
00160
00170

•••••

II~D

SU,IUjUT I NlS

SET l

,--2

OS
OS

71;'

LUO FORTRAN II~O FLOATING POI NT CONUNTS
~O
,0

DC

~OOOOODOODODOOOOOOOOOOOOOOOOOOOOOOOOOOOO

00110
00590' lIRO
00600 9SCPF
006LO
DOUO

•••••

F"

OOUO FXl

,j),
DSC u
0000000000000000000000000000000000000000
OS
DC
2'1
,9999"9999999999999999999999
R999999999999999999'199999999
L620 FORTRAN II~D FIX!D POINT CONUNTS
DC,
LO
.9999999999
R999999999
DC , LO
.0000000000

"

~OOOOODOOO

OO'~O

00650
00660

FH

.....

DC

LO

.0000000001

~DOOOOODOI

DC

CONSTANTS FOR RELOCATA8LE SUIROUT I NES
31
.0

PAGe
Oz6L'

Dun

0
10

0Z727

~D

0212'

~O

02161
02795

za

Ol805

LO

00670 9SPF
00610 LN2

,--2

OS
DC

,06931~ 71105599.5309~112)2LZI.58
31
~6931. 71805 599~5309.1 7232 l2 14S1

31

,

U86291t36111989061883.~"2~2916

00690 LN.

DC

00100 LN8

DC
,2019~U 54L6 7983592825L69636.315
J1
K079.4154" 798359282 5169636"315
.230Z5850929940.561"01799I45U8.
DC
J1
K30258509299.04568.0179914,.68.
DC
10
,"34294"81903251827651l289U917
N3.29"48190325lB271>51128918017
,10000000000000000000000000000000
DC
32
JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
,--4
OS
,01
DC
-I
DC
29
.20000000000000000000000000000
KOOOOOOOOOOOOOOOOOOOOOOOOOOOO
30
DC
.628318530717958647692528676656
028318B0717958647692528676656
DC
30
.31"1592653589793238"6264338328
ll"l ~926535897932 38~626~338328
DC
30
• U70796126794896619231321 . . . .4
J 57079632679489661923132! 69164
DC
28
,7853981633974"83096156608458
P8539816] 3974~83096156608~58
Dt
28
,6000000000000000000000000000
0600000000000000000000000000
29
DC
,540" 1950027058~ 155~435 7836"61

0

OllU

LO

02U'

10

0285'6

II

028S~

02881

0
II

02918

31

~ODOOODOOOOOOOOOOOOOOOOOOOOOOOO

2

J31629.3611198906L8U446~2429L6

00710 LNLO
00720 LOGE
00730
OOHO ONEZ
00750
00760 TWOl
00770 TWOPI
00780 PI
00790 P1DY2
00800 PIOY4
00810 SIX
00820 UN6
00830

TE~3It

00840
00850
00860 FXH

N~04195002705841554"357836461
DC
30
" ~18776162394955256222611"91638

K1877616239"955251>2221>11491638
1620 FORTRAN 11-0 INDIRECT ADDRESS BOXES AND MODIF lED
CONSTANTS (USING K AND FI
OSA FACti

Ol949

31

Ol980

31

03010

30

0)0~2

32

03038
030~4

0
2

0]073

29

03101

30

03133

30

03163

30

03191

28

03219

28

01248

29

03278

30

03281

5 X

61

1620 FOR TRAN 1/-0
00870 FPINK
00880 99NK

OS
5
DC
-0099
00890 100MK DC
5
-0100
00900 !'MSAPF DSA IMSA

SUBROUTI NES

SET 2

PAGE

.99

03283
03283
01218

,100

03293

,FXH

~2493

0
5

03298

5 X
-2575
5 X

00910 ISPFIII OSA

III5A-1

03298
on03

FAC

03303
03308

-257~

00920 FH

~l492

HC-I

0330.
03313
OUU
03313
03318

~2491

00930 FNH
00940 FIIIIIF
00950 ,,"F
00960 97MF

OSA
DSA

05
5
DC
-0096
DC
5

,FNH

,96

!)c ,

DC

01000 102MF

0

.97

03323
03321

,

5

,99

03333

5

.100

on38

5

,102

033U

~0099

00990 HND

,

,98

~0098

00980 PDT

5 X

5

~0097

00970 9.IIF

5 X

DC
5
701'00
5
DC
~0102

on..

01010 FLlALP OSA

lERO~78

01020 FLZ

OSA

ZERD~80

031. .
03153

-l689
5 X

DSA

FAC-2

OU53
OU51

~t617

010)0 FNHMI

~2490

97MlF

.97

OU5I
033/»

01050 LNENT

,

.80

03368

S
5

,·.5

2

.00

010~0

5
DC
-0097
DC
5
-0080
01060 UPENT DC
~00]6

OL070 PAR
OS
01010
OS
01090 DIIDATA DSC
00
01100
DSA
01110

,

DC

01120 DioDOA DSC
0

.36

DIODOA

"0 OF ELEMENTS IN MATIIIX TO' PIIOCESS

5 X
5

Dun

5

0331.
OUJI
OU79

5
5

033'5

5

OJ3I5

~UI1

••

on..

',0

onl7

2

I

814

~

;

lUI 'Din... II-I
OIUO

DC
5
-0000
DC
I
-00
OSA

01140

.....

01170
01110
QI190 fOFAC
0\100
01210 2FMI
01220 "000
01130
glZ40

01150
01160
·01210 'MF.C
012en
OllOr -..:
01 lOt;

"' I

.0110

au.'

.010

OU"

onUP'

011'0
01160

'UM.".'

..

DC
OS

,,At

SM
os
os
ff
Be
OO.G
os
Tf
SII
os
rF

01110

BB
ol3i()
OOAG
01330
OS
01340 TRACE TF
1)13"'0
BIIC4
01360
RCfY
01310 G"IM2f OS
01180
aN'
01390
WNTY
01400
8
01410
DOAG
01420 T~r:!I
WNTY
01410
a
01440
OOAG
01450 FINOIN DC

fOfAC-1

on.

.'
11-0 111 CQU

~,o.

. . . 10

I

,w-.,.

.fO f'C-1

,

TWO Tu'n I' II,NUS DII,
o F OA K 000. I I' AND K EYEN

·

.11

.-9

••

fM fAC-1 .f.C
Fllf'C-1 .0002

.110

,e-2

•••

f .. fAC-1 .fAC-2

fll fAC-1
FII fAC;
G'''-I

,--l

TUI
FIIH
1''' FAt
·-4
FXH
FM FAC
.-4

,fAC-1

•
,--5

•

.

SU,.OUTI"',

.•~.....u

.0102
.·-2

PAGE

-2404
I

Ol.al

fAC-2

,.-.

,

01.00

"20 I'DlT••"

TF

,

lllNUS F

..•••

GAM'" MIlIUS ONE IIINUS fWO TIllES F
I. If 1'1110 .RG
TYPE fLO.fING •• G

.6.

TYPE FIXED UG

0'.06
01.0.
03.20
O,U.
03."
03412
0' •••
03•••
OlUO
03."
01464
01.73
0341 •
03411
03.90
01. . .
014"
0350.

onlO

.2

OH2.
01512
01544
0)55,
on63
OlU4
03576

anI)

at

Il

26

u

5
02.92
03407
0
I
OH90
00000

0'.0'
0-J-2
OHOP
00000

~

16
U
26
.2

"

41
J4

44

).

H

OJ45J
0)4~1

0
0145J

Dono·)

5
OH5I
01452
-2554
0
01564
OUIL
03451

02492
0-0-2
01490
00000
03495
00400
00102
02491
00100
00000

38
49

Ol2lL
OH~2

00100
00000

26
16

02490
02.92

021n
0-2RA

015U

01

J

01460 IERFAC TF
OIHO
TFM
01480 FP2
os
01490
8
OORG
01500
01510 LVI
AM
01520 FMI
OS
OIHO
8NY
TFM
01540
01')-;0 te2
os
01560 OYFLOW TFM
01510 F2
OS
OIHO
TF
01590 ERROR R'CTV
01600
WHY
01610
8
BNF
01620 ~U

FAt-2
FAC

.9S"-1
.0299

,e-2'

I' PWS TWO

FIIIISH+1
.-4
.0101
S'YE

·,.
·..

.

,1.10

,e-2

FIIIISH
EI

,Doni
,--1

fAC

.0099

FAC-2
FINISH

,tSCPF

,19.

F "INUS ONE
sn UP EUOA CODE EI
TwO TIllES K

.110

,e-2

••

"ESU~

ENDD+12
•• 24-

.11011

TIIO TIllES F
SET ~ESULT TO .LL NINES.

SET CORAECT SIGN ON

.IIU-I

fa,

01584
03596
03605
03/>0,
016U
01616
03625
0362.
03640
03641
03652
01661
01664
01616
03681
03700
01712

Q

4.

'J1"04

00000

11

02565
0
OleOL
02615
0
02492
0
02490
0380L
02601
03180
03136

O-J-l

U

IA
16
U

34
J9

49
44

01400
-OHll
O-OR9
02795
00102
00100
00000
03111

615

1620 FOUUII II-D
01630
01640
01650
01660
01610
01680
01690
01100
01110
01120
01730
01740
01150
01160

01770
01110
01190

01100
01110
01120
01830
01840
011'0
01160
01170
011.0
01190
01900
01910
01920
01910
019.0
01950
01960
01970
oa •• o
01"0
U2000
02010
OZ020
OZOJO
020.0
02OS0
020.0
02070
02010
020'0
DIlDO
02110
02110

.-

sueR Dun HES

..
..
,

.-

......

•

..

"
• .""

,.c; •

•

""

faD

8
TON

-

I'SII

,.010"

fSU

•

III'
I

.1
fAOI
'''11+1' ,1"'-1
1'1111 a

fN'

"
"•
"
•"

UIIl

I

'0

olno 'D.,.

011_0
01110 '111
01160
02170 fAXl
01110

I

'.'1.1"11 ."-1

"I

,"""
....

lAd

'1111

'I"
" "'III

I

.ell-I

•"'w~a.-

......

..
..,. .'1 ......,.

SIT UP IIIIIT. TO ADO

. 11

C"AIIIII. SJlII Of! PAC;

_ _ U,..1It n IA'••

...U.

.U.

.,,' .....IIf •

JUbJ.._.U.

UIIA •

. •u.

11114 •

.PlU-l

PAGE

SeT 2

SF
FAC
.G.II
G...... IIIIIUS TWO TIllES I'
GM2F
OS
TOM FXERR+25 .9
~ESn EAROR UIT
TFM FXUR+IO • ENDD+1Z
F IXEND Be
OORG .-1
,EUOR
FIEU OS
TF
,S.YE
ENOD
HC
IIOVE U'ONfIlT.
8NF •• 2.
••9
SET PRO'U SIGN
Sf
fAC-2
,fNDD
fiNISH os
,FINISH.'
FL feND OS
88
OORG --4
OUIIMY OS
.99999
ST.U os
.OJISI
IUO fOUUN II-D
'LL SUIR III CORE
1620 FORTRAN 11-0
.LL SUI. IN COAf - SECONDARY LINKAGE
OORG START
os
J
FIX
CM
fAC
.10, IS CH.R 'OSITIVE
,09
8
flXl
,HA-I
FXl
.1I
"C
B
I' Xli
,fU-1
FlS
S
,II
fat
8
flU
FXSR
BIIF 'IIRI+12 ,f.C
CH'NGI SIGN ON fAC
8
'lUI
F ...
fAr;
,11
.flll"'l~
8
'1111
LO
,f4C:
'10
II
fAc;'~
flOI
FlDA
LO
,'10_-1
• ll. 'AC • J'PA'
'IOU
OOIlG .t-I
RSGII
IN' . . .,uo.a .'AC-l
I
I.
. ~I~
ISIIII
OORG "'1
fa,
'LOAf
• DO
..II • IS. fAC lito.
I
fLOUI
JOII "Iuon u
fSi
In .ut ...l!lII.... TO JIIITIIAU
.

0372.
03TJ5
01U6
0174'

on.o
on••
01"6
01761
03110
03792
03103
03110
0]804
03111
99999
03151

03151
01151
Oll54
01166
01171
01190
01.02
0191.
01926
0191.
01950
01962
039'.
OJ. . .
039,.
0.010
0'010
0.020
0.01,
0.0.,
0.0.,
fMO'.
040. .
0.011
O.oM
0410.

I'll'
O'UI
0."1

Mill

0.'"

a'''.
Mill
fMl,.

Mill
Mill

au ..

OU66

32

15
16
42
26
44

12
42

02492
0
0)101
03106
00000
0
02492
03804
02490
0
0
00000

02555
00009
-H'O
00000
01565
00099
03768
00000

0
0

3
02492
1065.
02492
10150
OZ4.2
101S0
10.96
10164
02492
10916
D009.
ao.u
000"
1102•

000-0
00000
Ol87P
00000
0390J
00000
OZ.,Z
00000
039'00000
02 ••2
00000
01 ••'
00000

••

1l0 ••
11044

0249a
0-000

1&

02••2

It

U401
aU44
U.OI
113. .

000-0
00000
00002
00000
0000 a
00000
02.,0
00000

14
49

..
ZI
4'

22

U

n

49
2.
4'

..
21

••n
••
••
••
II
••,.
U."
onn
••,. oun
'''16

.
It

UI2~

Il.Zl

II

111M
0"61

II

1110•
0,.••

11M•
IIUI

II
II

11."

I'll'

00000
O'''J
10101
0-"1"
lO0IO

.....
00000
MUL
00000

818

I.

1620 'OI'aIN 11-0
021'0
02100
02110
02120
02210
02no

".1

QU60
OU70
02210
02290
02100
OUIO
OUZO
02no
OZl.O
Olno
OU60
OZHO
on80
OU'O
02400
OHIO
02410
OZ4)O
02440
02UO
02460
02410
02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620
026)0
02640
02650
02660
02670
·02680
02690
02700
02710
02720
02no
02740

IIACO

ozno

02750
02160
02770
02780
02190
02800
02810
02820
02830
02840
02850
02860
02810
02880
02890
02900
02910
02920
029)0
02940
02950
02960
02970
02910
02990
03000
03010
03020
03030
03040
0)050
03060
0)070
0)080
03090
03100
OHIO
03120
03130
OH40
0)150
03160
OH70
OHIO
OH90
03200
OJZIO
03220
03230
0)240
OlnD
0)260
0)270
UUO
0)1'0

onoo

••••

IIATY
IIAPT

••••
114"

"
•
I

TF

JF

•
•

TF

UFI
FUll
SIIF
IIATYI
SIIF
II.,,,
SIIF
IIACDI

• 'UI-I

.11.

SUIiOUTlIIIS

OU70
04zaZ
0.29.
0410.
04111
041)0
041"'2

.111"-1
.IIAto-l
RUO ALPHAMERIC
.RATY-I

TF
I
TF

•
•

WRTF

1620 FORTRA'" 11-0

IIRTFPC

ClUOS

IIRTFPE
,FAC
.GAM_2
,6
LAST
DPTM2
,GM2F
,611,
IIA)
TF
,DP'
IIA)
AM
.2
80
liEF DEC .1113
,11 t
TFM II&)
,70
,610
8
F"'C'Ie1
DORC; '-4
TFM OPTM2
.70
.610.
TF
CHAR 2
,lOCO
TOM CHAR~2
,11
.0
CLR70S-12
B
DORG '-4
TF
OPTM2
.OPG
.611
TR
,DPG
,611
OPT
8
liEF DEC
DORG '-4
TF
'-)0
.TERII
S
.CHAR 2
fF
.roA"'2
TF
ClUOS'30. TUM
C
tHAR
,LatD
''Il CU 70S
A
DPG.
,CHAR 2
TR
OPT
.611
.D'G
TF
CLR 70S-)0,LlST
TFM
.MASK F
.. n
A
,CHAR 2
TUM
TF
.6
fFM DP'
.0)
.610
TFM LAST
,610
.00
UII'
DORG .-4
DUO H+ZI.FUEIS-57
Til
GAM+I
.MUK
TO
• FAt
GAM.'
.FAC-1
GA"'6
'0
,9
"'M GAil+)
."1
.FAt
''1'

..

U'U

SUIROUTI'IES

..,",

..

051 . .

U

onu

o~

...

26

OS161

U

0~5]1

.,

0"'211
00000
OU05
00000
OU29
00000

u,

05"1
05162
O~'"

26

OUU
05861
on02

0435)
00000
04)77
00000
0"'401
0-000

II

OU6I
09694

-000)
0-000

49

16

069n
10210

-25"
0-000

.,••

08686
0 . . .2

05981
0-000

26
.9

OJaIO
09206

05480
0-000

o~abl

08130

-0003
0-000

Z6

,.

••
U

.
11

II
H

0595}
07138

00000
0-000

04556
04561
04568
04H8
04518
04590
04597

32

0595)
5
07138

00000

05861
08402

-0003
00000

02556
05202
0256)
02561
04670
02558
0678'"
071 )P
05170

05"01
07106
07108
07107
07108
00002
02S57
05970
00000

"11
49
31
U

25
25
44
15
26
11
49

0-000

617

SET

SET S I G'I LEfT OF' DEC PT
I "'SERT ZERO FROM DEC PT TO
FIRST ~ON ZERO DIGIT 0'1 RIGHT

F TYPE OUTPUT EQUALS ZERO

PAGE

04702

0117l
06708
07106
O!l122

OOOPO
05606
000000000

26

Oa17l
07U'

05970
05970
00000

4)
14

O~OJl

05050
05061
0507.
05086
05091·
0~1I0

05122
05U.
0"4'
05151
05170
05182

05194
E_OO ALPHAMERICALU

16
2.
15

H

04126
04731
04750
0471>2
047n
OH86
04791
04810
0"822
04834
04846
0.858
04870
04882
OU . .
·04906
04918
04930
04942
04949
04950
04962
04974
04986
04993
04994
05006
05025
05026

MOVES

04994
05nO
OU7l
04567
04567
05170
0456P
04906

05409
03806
07106
00-00
01100
05715
01100
07108
07108
07108
-2555
06701
00000
02492
02557
0)7)'1
07137
-0002
0456P
OOOPO
00000

11

04114

0~01'

._)5

,.

U

n . .6

TYPE.CHAR IS EXP-lOCD-F

.-..

,

.,

051 . .

•

0"'25'
00000

045)4
04546
04556

04598
04610
04622
046)4
04646
04651
04670
04682
04694
04701

,

IIEFDEC

26

"'I

CORE - SU8ROUTI'IES

GAM

8'1F
TF
TF

..

onn

A'IO IIRITE
STORE FOR ZERO I'ISERT ADDRESS

TF

A

,26

IIRITE

rFM
A

TR
80
80
CM

8~F

IIRTFPE

'~D

CHAR 1 S "'EG, EXP IS ~EG
CHAR IS "'EG, EXP IS POS I TI YE IIIRTFPE'
CHAR IS POS! TI YE
IIIRTFP"
GAM+!
,MASK EP+7
F ZERO
,Fl TE~D-4
ER F8 E ,CHAR-2
,9
CKII
,000
F ZERO
,WIDTH
CKII
ER F8 E
CHAR 2
.CHAR
,CHAR
CHAR 2
IIRTFPC
,CHAR
a.35
,GAM
a+23
,CHAR

8~H

FlERO

04~IZ

045H
04534

,

C
8H
TF

FNC'IEZ

0415.
041. .
04)71
0."0
0"'402
0441.
0442.
OUZ4
OH"
04446
04446
044'1
04461
OUI8
04480
outO
0.490
04502
04512

••

....
....

......

OU~'

lIanE AL'HAMERIC
.IIATY-I

SIIF
UTn
SIIF
.""-1
UPH
SIIF
UCO
TF
.UCD-I
RACDI
DORG '-1
ITYPE AM
SIIF
.)
,8
8
HYPE!
OORG '-1
,GAM_I
IIRITEI TFM IIA
,I
B
IIRITJ I
DORG '-1
RUOEF B~F EF ROZ-12.LOC
IF RDI
,8
I
DORG '-1
TF
.ICONl_6
EFMII
Fl fE'IO
EFMIII
,8
8
DORG '-1
,3
AfYPE AM
SIIF
,8
ATYPEI
I
DORG '-1
MACRO FOR F fYPE REAO
RIIEFSII
FTYPE CF
,a
EF COM
I
DORG '-1
MACRO FOR E TYPE READ
RWEFSII
ElYPE SF
IIA)
TEMP
OS
5
"
,8
EFCOM
8
OORG '-1
,3
SWF
HTYPE AM
HTYPEI
I
OORG '-4
1620 FORTRAN II-D
All SU8R 1'1
,MASK
GAM+l
IIRTEl TR
,CHAR-2
ID
ERFIE
TO
GA~.8
.CHAR
TO
,CHAR-I
G'~+6
,CHAR
I'IF ,•• 24
TOM GAM+}
,2
,6
TF
.GAM+2
'ER~
TR
,OPG
,611
OPT
liEF D~~
8
OORG .-4
3 CASES FOR IIRITI"'G F
UPT

SET 2

LOAD UFONIN' •

41

24
46
26
21
It4
16
21
26

••
26
26
26

11
41
16
49

n

n

••
26
22
U
26
24
46

21
J1
26
16
ZI
26
16
16

••

05201
0520, U
0511. U
05226
0121.' 2t
01250
05262

",.
"'.

02556
04950
05202
06613
04950
06673
05202
06708
06108
05026
04857
041H
025~5

0~170

0505.
05056
00000
05164
07108
05U4
05976
0713'
0~164

05169
0~169

0671'1
07UP
O~nD

O~IZ'

DZ6U
0"56
OUU
0"61
0""
on . .

06785
0670.

onn
06715
05601
OUOO
06701
05970
0'736
-54U
06701
00000
000-)
000-0
00000
06270
05401
OZ4.2
0'4"

oOH5I

02"'92

81M

"I

OHIO
OU20
0)))0
03140
03no UC;DII
031.0
OIJlO
OHIO
on90
0)400
01410
034Z0
03430
OIHO IIUK

......

03450 MASKEP
03460 MASKF
0)470 MASK I
0]410 ICON6
03400
O'350~ ICONS
03~llJ

03520 ICON]
01~30

0)540
01550
01560
OH10
01580
0]590
0]600
03610
0]"20
01610
0)640
0)b50

WATYI
\lAPTI
WACDI
WRTALP
RWA
REPSW
MATSW

03660 REPSW3

03610
0]680
03690
03100
03110
0)720
01130
0)140
01150
03760
03170
03180
03190
03800
0]810
0]820
03830
03840

LotD
LDC02

RWA2
tOMPSW

WIDTH

Til"
Til
TF

n ..

til
TFII

"DUO...

1'20 ponull 11-0

.2
)
H.U ••1I11111'
.11
DUD H.U.DUD H. . .
,10
H+l4,n
DUD
.10
DUINH+Z .01

U+2

dlIlID_

..

0""

u n lUOII ,

04360

SWF
RAlYl
RAPT!
RAtOI
ROALP
MAX

......
......
......
......
SWL
INPLUS
RwEFSW
WIDTH2

......
OPG
LOt
Swt

,·-l
,--2

..

·

,--3

SlItAOJ
OUOUD

SUIIRDUTI NES

.-

••

,--1

..

_

,e-'

"

"'0

,

DC
-0'

04110 OATIIIH DSA

5
INH

..
•

.00'

U

26
16
49
49

00565
005)2
01071

II
26

l'
14

o.on

I

00002
05520
02621
000-3
000-1
07100
OlJOO
06059

-un
-6045
00000

05401

10

0540Z
054U

0
11 X

05452
054n
05412
05482
05490
05490
05491
05498
05510
05511
05511
05530
05531
05538
05550
05562
05574
05512
0558)
05585
05586
05591
05.08
05606
05610
05612
05B4
05646
05658
05610
05618
05682
05694
05706
05115
05111

4R

0
09254

00000

411

08674

00000

4R

10290

00000

16
49

05924
05550

0-681
00000

16
49

05924
05550

0-887
00000

16

05924
05953
06059
05923
2
1
2
05585
05935
2
2
02615
06031
06031

OJOIO
00001
05922
00000

15
Z6
12

16
15
16
16
21
21

Ob031

-00000002
00019
-60b3

05924
05924
-6063
OOOOJ

16
15

0511b

11
11
14

Ob062
Ob149

06240
06239

05922
3
05142

01200

41

05618
0

OOO-b

PAGE

SET 2

5
,--5
• lOR OF RM AT END OF VARIAILE OUT REt
.RWEFSW
ISWF
,e+23
IDU
.OATlNH-4 ,1
IDGT
MU-2
.06
010
ALLDIIS GOOF SIIITCH FOR RATY
.>24
--12
FLT ENO-5,2
CDNnDLS POSITIDN IN FDRMAT SPECS
AM
SWF
,SWF
TF
e+18
.11
IR TO ADR INOICATEO BY FORMAT SPEt.
SWF
B
,b.
5
OS
TFM IIAX
,0687
ROlLP
II
ODRG .-)
,0887
TFM MAX
.8
RDALP
I
ODRG .-)
,1080
,I
TFII NAX
TOM RIIEFS..,
.0
os 4
RWA
II
ODIIG .-4
SilL IS A TRINARY SWlTCH USED TO IUNtH TO THE PROPE. SOURtE
TD ~eTAIN THE LotATlON THAT GOES IIITH THE FOR .. AT .. ACRO
II FDR ollJECT 'R_AII
lEI NG 'UFORIIEO
NOP FOR REDO tONTRDL
I
'OR ""'R IX CONTROL
NOP IIAJRX
WORKING POSlTlDN DF lID RlCDRO
OS
5
,t
IIATIII)( CllIITIlDL sns SilL TO 49
TOM SIIL>I
II
,_-4
, 1 FOR IIRT, 0 'DII RD. FLA' FOR I
OS
1
OS
3
.·~1
SWC> 12
.IIATSII
10
NO'
TEMP 10011 Of' OEC PT IN 'A""A
OS
5
tOlE LOtA.TI 011 TO II USED
DS
5
II
APTER Lot AOII DlTAINED III TD IIIID'III "ACRD
,2 __ . ___
TDII SWL·l
III IF WRITIIIG
.Rlliflil
10
II
,I
Swt ADJ
DaR' e-4
,0
SET TO IIlQUI~f OUTPUT
TD.. tD""1I
CF
LOt
,e
TIU". "A)(1111111 CHAR fOil OUTPUT
DS
II
,e-,
IIITUIIII .. AIIII M !lAUD III CDIITROL
DS
DOl' e-4
OSA OUDH

.,

.

025U
02620
02619
02621
06059
02611
0'018

It

05.01

••

.

DU. .
OUIO
DUU
05U.
OU46
05158
05110
051.2

onn

••

•

1U12

EIIASES lEt IIAIIK

IIASKS
OSC 10
."10707l'O'
451010700'
... U .... l
OS
OAt ) I, 000000000000000000000000000000'
OOOOOOOOOOO.OOOOODQlIQQlIQOOOOOQO·
.II"III,n9
OS
EF ALPH
.1
I
OORG . - )
EFIIO
Z
.1
8
OORG .-J
.1
8
Wilt IZ
OORG .-J
,0687
TFII MAX
WIlTALP
8
OORG ·-3
.oln
TFM MAX
WRTALP
8
OORG .-J
,I
.1010
TFM MAX
COMMON FOR EAtH WRITE
TOM RWEFSW
INITIALIZATION FOR EACH RO DR WRITE
0&TINH+2 ,MAX-2
TF
MAX-I
SF
2
OS
SET TO 1 IIHEN MATRIX HAS CDNTRDL
OS
I
2
OS
,00000
TFM .-1
.711
,2
TOM SWL . .
,--1
.LDt OF DECIMAL AS SPEt 8Y FORMAT
os 2
TllltE LOt 0
os 2
.9
TFII MESERR+8 ,.79
,INH
TFM MU2
,MAX
MU2
A
,IIAX
A
MU 2
tDNTlNUATlON DF RWA. ALSO USED AFTER EACH DUTPUT
RECORD NDT TERMINATED 8Y tDMPLT MACRO
• (I~H
TFII LAST
.-1
TOM tDMPSW
,--)
.-1 PROHlIlTS,O REQUIRES DUTPUT
os
,STURD>1
INH-l
TR
,SHERO
TR
INH>'6
,06
MAX-Z
.10
tM
NO. OF EFF. DIGITS IN FIELD
,--2
os 3
BNE e+24

RClY
LAST
OS
BO
RAOOIT TFM
I
CM
BNE
8C4
TOM
8SWF

I

Ell tOil 2
TF
DUDIIDU.IUTlIIIU
, •• 23
TFII 101lT
.D&TDuo:..~ .7
I
I OPT
8
IIItDII2
DOIIG .-4
IL

PAGE

IU 2
OU,.

1620 FDRTUN 11-0
03850
03860
03810
0]880
03890
03900
03910
0)920
039)0
03940
0]950
0]960
0]910
0)980
0]990
04000
04010
04020
04030
04040
04050
04060
04010
04010
04090
04100
04110
04120
04130
04140
04150
04160
04170
04110
04190
04200
04210
04220
0"230
04240
04250
04260
04210
04280
04290
04300
04310
04320
04350
0"'40
0""0

SUI."'" 11115

05730
0573b
05142
05754
05166
0577a
05790
05102
0,.14

34
43
16
49

'"

41

46
U

00000
5
05826
00565
00566
05922
05814
05130
03105

05953
-5771
-605)
000-6
01200
00400
00002

.

0586~

-0005
0586J
00000

49

5
05924
05914

0-681
00000

16
49

05924
05914

0-887
00000

..

05924
05953
4
05562

OJ080
00000

059)4
05945
05946
On53
0,.56
0"51
05970
05"6
05"1

41

06418
5
05935
1
3
05"4
00000

00000

Onf2

U

11

26

16

15

15

U
41

,

O,,~

u

49

00009
05513
00000

15

n

4'

059)5
06014
0604..

00002
05953
00000

0"71
05981
5
00000

00000
00000
00000

0

06041
0606.

5

06049
06011

-260'

06051

00000

5

0.001
060n
06014
06026
O.OJl
06011
06~

051161
05856

9

00102

u

05826
05138
05150
05861
05862
05814
051.2
05182
05194
05902
05902
05914
05924
05926
05933

819

J

,

X

un

IUD FOIITUH II-D

DC

OHIO

SUIRDUT I N!S

PAGE

SET 2

.00'

06051
06060

,0

06061

10

-606)

3

-0'

DC

0~J90

O"'~OO ENDFDR DAe
O~"lO INH

04420

OS
DS

o~uo

IN

O~HD

STURO DC

0~450

04. .D
0441D
04410
0 .... 90
04500
O"~IO

0 .. 520
OH30

1,0

06D63

0
OS

,ENDFDR

11.
116

06063
06231
06231
D6239

, INH·ll~
,DO

Z

-0
00
00
00
00
00
00
00
OC
-0
FLZE~S OC

.00

06240
06252
06264
06216
06288
06300
06312
06325

,0'

06327

,

,0246810
,0246810
,D246810
,0246810
,0246810
,02U810
,0246810

04540
DS
5
04550 NAIR I X TDM
NATSW
.1
D.. 560
TDII
SWL+I
,9
,FP2
0 .. 570
TF
LDCADJ
OH80
BNF
NATRX2-12,MATRI X-I
0 .. 590
TFM
LDCADJ
.00
.10
0,.600 LOCAOJ DS
2
04610
LOCAOJ
S
.K
MATR I X-I .LOCADJ
04620
S
046)0 HA fA. X2 A
MAT~IX-l .LOCAOJ
RE
04640
TF
laC
.MATRIX-I
04650
SM
PAR
dO
04660
BNE
*+24
04610
TOM MUSW
.0
04680
BNL
SWCH2
046'10
88
DORe; .-9
04100
04110
"ACRO FOR AN 110 CARRIAGE
COMEND+l .9
04HO SLASH
TO"
04130
SL .5HZ
J RwEFSW
80
COMEND
04140
8
04750
aORG ·-4
04760 SLASH! 80
IOCR
.COJIIIP sw
CM
0. TI NH+ ~~ .06
04710
.10
wR, ITt
OHao
81i
041QO
TF
l !
.610
.00
04820
BE
.- 36
04830
C.
LAST
,INH
048'00
8l
COM END
10RT
•• +23
04850 WR ITE
TF"
04860
8
10PT
.OATINH-4 .7

,--]

MACRO TO PROCESS MATRICIES

ADJUST lOC FOR MATRIX

.

eM

RWA/-12
.-4
MAX-Z
3
WR ITE
CO"END

BR IF .RIT I NG

04970 CHARl

as

04980
04990
05000
05010

8
OORG

REDO

BD

.-,
REDO

OORG
TOM
SWl+1
TOM COMPSW
5
AM
SWF
TF
SWF
8
SLASH

REP3
WA

06664

05618
000-6
01100
06321
000-2
000-0
01200
-6063
01300
-6655
-6053

0652~

43
14
46
26
12
14
46

ERASE 8LANKS FROM END OF

SUBROUT INES

110 RECORD

060~9

16
49

06632
05730
OH36
OH30
06560
OH36
06656
00565
00512

H

05658

00000

06664

14

0~q22

000-8

06613
06616
06688
06695

46
49

3
06632
06656

01300
00000

49

3
06657
3
06504

00000

43
25
16
49

06786
06785
06044
059H

05583
05618
-6762
00000

15

05935
05618

00001
00000

06560
06512
06584
06596
06608
06620
06632
06644

I~

47

SET 2

.-.

MACRD PERMITS REDDING 8ACK TO

RETURN FROM SWL IF MORE DATA
VOID REDO USING swe EFFECT ON CDMPSW
REFERENCE AOR IN 1/0 RECORD

"..5

,SWF

.11

OORG .-4

PAGE

(j:!;

11

06691
06698
0610B
06110
06111
0611.
06130
06142
06154
06161
06762
0617.
06185
06786
06798
06810
06811

15

15

00002

5

11
26
49

05861
05861
06492

-0005
0586J
00000

05861
05582
06890
05826
05582
05826

-0007
000-\
01100
01200
0586J
01100
-D002
0586J
00000

MACRD TO REPEAT FORMAT SPECS" SPECIFIC NO OF TIMES
SUB FROM REP SW. INITIALLY SET TO ZERD
IF REPSN NEIi • SET TDREPS REQO A"D REPEAT FORHAT
IF REPS'" ZERO, LAST FORMAT REPETITION IS CDII'UTE
IF REPSW PLUS, STEP DDNN AND REPUT FORMAT spec

AM
SM
8H
BE
A
8NH

51!
TF
B
OORG
SF
OS
AN

5H

•

SWF

sw

REP
REP 1
USWF

,1
01

REP SW

,SWF

8SWF
SlIf
SWF

,2
,SIIIF

.10,

CONTROL REPfTlT ION OF f IELOS

,11
,II

SWF-2)

'-4
REPSW1-I
5
SWF
REPSW

",7
.1

,

WORKING AREA ADR REf TO FAC OR GAN

06946

IIEP 2

O.Ut

8S.,F
REPSN 1
,SWF
REP 2-12

TFM
TF

SIIC AOJ
LAST

.MAlI Z

TFM

eJ

,619

8

SilL
DORG
AM
SIIF
A
LAST

·-4

06818
068]0
06842
06854
06866
06811
06890
06902
06914
06'121
06922
06933

06934

.10
.10

06970

.11

06912

DORG o-It

XTYPE

00009
0'953
00000

Ob536

TWICE MODIFIED CHARACTER I STiC

REOOA+23 ,COMPSW
swc AOJ .REDO Ii
Swl

as

8H
8E
A

fRF9

06651
06524
06656

06')48

A+H.,.U SW

8

RfPl

15
H
49

BR IF NOT TYPEWR ITER OUTPUT

SLASH+12

050)0

05180
05190
05200
05210
05220
05210
05240
05250
05160
05210
05280
05290
OHOO
05310
05120
OSHO
OH40
05350
OSUO
05110
05110
05390
05400
05410
05 .. 20

Ofl492

I~

MACRO TERMINATING 110 CONTROL

05040
05050 REDOA
05060
05010 TERM
05080
05090
05100
05110
05120
05110
05140
o~"o

~6

4Z

II
21
26
12
41

06430
06442
OM 54
06466

06523

3

05020

OSl60
05170 UP

D-D-D
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

Oh478

26
H
16

BR TO 10 tR IF OUTPUT RECDRD BLANK

OEC SPEC PLUS CHAR OF lRG

COMEND>I .2
3
,.-'L

TO
TFM

......

-O-D-0-0-0-0-0-0-0-0-0-0-0-02

Ob4QO
06492

15

\5

?l

06516

.-~

049~O

04950
as
04960 COMPLT TOM

-0
-0
-0

~q.,.

065004

.10

,--2

-0

t}t>4lJb

Ohlt18

06656
0666)
.08

-0
-.0

Rfl URN DURING A fORMAT STATEMENT

1620 FORTRAN 11-0
04870 CDMENO 8
04880
aORG
04690 IOCR
CM
04900 CKW
OS
04910
8NL
04920
B
04910
OORG

-0

5
05583
00001
05935
00009
06390 . 03605
06 .. 06 06333
06390
ODO-O
2
OH~O
02UI
06B)
Oo3QO
06133
06390
05981
06131
{JOO-l
03318
!1b47H
01200
1..1)583
00000
0~9q4
01300
00000
00000

,]t·

TURN FROM SWl, EACH MATRIX ELEMENT
MOV( ADJUSTEO LOCATION

"

..
..

06332
06334
06346
06358
06370
06382
06''10

0
17~

176
2

MACRO FOR ERROR f9 WHEN .. flITING

,ER COli 2

,3

.SWF

.9

..

,II

MACRO fOR SKl'PI~G FielDS

069n
01001
01002
0101.
07026
07031
07045
070.'
01051

11
Il
46
46
21

47

12

OU6l

26
49

05861
D5838

JZ

05584
5
05861

11
12

••

on.,

46
21

..

06190
05826
05\15
06878

11.
26
16

06044
0'136
02615

00000
000-7
000-1
01lDO
01200
0586J
00000

49

05n4

-7018
06031
00079
OOOOD

11

05161
0'7]6

-000)
On6J

21

822

0'4)0
0 . . .0
0 . . .0
0'''0
0"'0
0'410
0"'0
0"00
o,no
on20
on)o

•

OO_G
._CO," Rcn
OS
MAl

UPT
H(.OIll

OS~'('

0'''0

0~~60

10
05'80

O~~

O,~"O

0\600

olt,.tn
O~610

0-''') ,
octb"';j
('I)~')O

u',"'60
o~o10

05680
O')fjqu
O~

•
Rcn ,
,
~UY

CHAR

100

u't710
OH20
OHlO porCH
05140
05150
05160
Q~HO

05180
051QO
0\800
05810 FCHN8
0~820
O~810
O~840

0~8'O

05860
0'810 F.FWRT
0~880

OI)"qO
OI)QOQ

oS''HO
05'120
059)0
0~Q40

0~"50

OSQ60
0~Ql0

05980

.-.

OS
TR
8
OS
Alii
TF

LUO 'QUI'" II-D

DUO"
U·L
BSM'-U

,--,
,.-'

,'LlIU-L

,.

"

11001'110 C"'R'CTERISTIC
RISTOIU U","O "Altlt

SMF
,J
WIOTH
,SIIf
AM
SIIF
,I
TF
LOC 0
,III'
TF
I .. PLUS
,LAST
TF
,IIIOTH
WIOT" I
A
IIIOTH I
,IIIOTH
A
LAST
,IIIOT"2
e
,lin 2
LAST
8H
ER F9
TF
TERIII
,LAST
SM
HAM
,2
TF
CHU
,MIOTH
rF
WA
,FNH
rOM 91
,0
rFM 99
,00
80
EF IIRT
,RIIEFSM
rF
FAC
,fLULP
IFM HTElIII+U,ff TYPE
rFM SIICAOJ
,HAIl EP
lM
INPLUS
,DO
BNE FeH NI
SI!
eMU
.1
AM
,2
INPLUS
,,,Pl.US
C
• UST
8l
RO fCH
A
HE"D+1l
OORG ·-4
CII
,20
,"PLUS
8e
eF MIN
eM
INPLUS
,10
BE
EF PLUS
8
fFTYPE+]6
DORG ·-4
,F
e
LaC 0
BNH *+24
,F
TF
lOC 0
TF
,LOC 0
lOCO 2
A
LOCD 2
,LOC n
TR
GAil-59
,IIASK F-I
rFM WA
,GAil
TFM WA2
,"t-I
rFM SWCAOJ
.EFIIM
,2
SM
WIDTH
8NF SWL
,RNEFSN
SM
reRM
,8

aUla

SI!

,--2
,.'

,n,

,"

PW_
""
,-I
"" ."EnUII.&I,lf.
.1

,LL
,11

onU

,10

071]0
01142
07154
01166
01178
01]90
01402
014 ..

,II
,610, ELI III NATE LEAOING BlANKS
,10

fl1"?f\

,610, PROCESS FIRST NON BlANK CHARACTER
,610

.10

SUI ROUT! liES

,610
,'10

.610
,9
YALUE OF CALC CHAR 'OR OUf'UT

,610
,610
,610

,'I

,II

,10

,11

,10

,10

'"

~.

•

"

1111' ADA Of' Ole "
T.~a'.$.LQW

,

14

00000

00101

)t

unOl

14

011000

00100
OIHOl

.
H

II
26
II
26
26
26
21
21
2'

'6
26

,

Q161~

06)16

11'114

00000

5
0""
o~ 115

-000)
O,."J

O~UI

-0001

0~60'

0586J
OH]6
OHI5
0'115
05956
06011
01100
OHI6
-0002
OH,5
01)1]
00000

f) .. q

... ~

n'i9')h
O~g~6

051110
OH16
01002
06185

12

O~l8S

26
26
15
16
H

0'108
069H

2~

1100<11

Q'Joqq

OO~-O

vt"'llt
O?"Q2

Ol14Q

III I/Q ••"

011"" D'81'S

(l'iq~H

II

(,'i Cl4 0;;.

·1102
··4468
000-0
ouOO
000-1
·0002

14
41
49

t.''lQ4')

O'i13'6

01118

Ul100
00000

16
16
14
41
12

1)11 2,"0

06044
O.q4N
,,'H8
01108

0"'-;'8

14

(Jlifl4N

46

07678

14
46

QIjq!4N

..

alMO

H
41

05608
07550

2.
26

0'i1t08
nr"ltOh
0')6('6

01118

11
1I
16

02496
06?H

16

01084

16
12
44
12

OHI5
0591.
06785

06044

-a

12
49
]1

12
11

05115
nl5o'Jllt

00099
01108
05945

0111~

1~

0~9'N

01726
0113B
01750
07162
07174
01786
01198
07810
07822
01831
07B)4
07846
0785'
07810
01l1l
011. .
07906
01911
01910
019U
07954
01966
01911
01'18'
07916
07991
DIDIO
01012
0102'
01010
01042
010'.
01061
0.0.2
01014
08016
0109J
OlD. .
0.10.
OUlI
OIUO
OU.,
O.U,
0"61
OU.,
OIUI

4to

08062
0594'1
01162
08n61

14

'46t>

14
46
44
16
U

00000
01200
OOOJO
01200
00000
02219
01100
02219
05608
05608
0~412

-2555
··2491
-4490
000-2
0595]
-0008

01004
01110
078H
08043
1
05941'1

000M5
01200

07998
05941'1

OOO~O

07980
059411
01'"
01910
07108
0'194'
08030
01A10

01200
OOOJO
01200
00091
00-01

..
..
"

41
Il

14

25
1\
4"

.
...
n

O~"45
r) " ' "

0,.78'i

01300
0594N
-0002
00000

01101
01858

nOO02
-no02
000-1
OOODO

21

oran
OliO'
Oil 46

0594"
07831
000:10

U

OIIU
01101
01222

0009.
000-1
00000

"n"

OU10
0'601
01140
000"
07101
Ollll

00097
000-0
-l690
OODOJ
000-1
00000

.

00091

00000

o.. n

-1"1

11
12

n

.9

U

..
tlt

JJ

.II

08041
0~945

,

0lZZ2
0691l

U

00000
000-1
-0002
fJOO-O
01Z00
OOOPO
01100
01200
000-]
01200
05953
00-00
00001

H

46

823

000-4
00000

\4
U

01". I '
OIL . .
OU,.

O'Q4N

u

00000

PAGE

01658
07610
01671
01618
07690
01102

,10

,

07H8
01'50
01451
014\8
01HO
07481
01494
07506
0751]
01514
07526
07H8
07550
01562
07514
07586
07598
01610
07622
01634
07641>

•• O"'A

SET 2

,10

eHAII
,10
rp lEU
OOIG .-.
Cf
91
... L __ __ . __ ..
DS
til
.P&C-I
I . • +,.
TO
~A
,INPLUS . ,'II

,

onn
01UI
01150
01162
011 14
01186
01198
01110

OUll
01U.
01246
01258
01210
01282
0129.
01106

TDIII
511

•

0'0'0
OlDn
0'011
0'01'
010.0
onOl
onol
0111'

O,U.

TEll' LOC OF OEC PT IN IIIITPUT AECOIO

WlorH
.4
B
SWL
OORG .-4
99
EFMIN SF
EFPLUS SM
CHAR
,I
EFTYPE AM
INPLUS
.2
,00
CM
INPLUS
BE
LOG DIG
,10
CM
INPLUS
BH
eF DIG
ee
LOG DIG
eM
I NPLUS
.03
Be
EF DEC
8NF ERRF7 E ,RWfFSW
TFM EXP
,DOD
fOM E EXPAO+l,1
]
EXP
OS
CM
INPLUS
BE
e EXP
eeXP2 CIII
,20
INPLUS
8E
E UP "
eM
,10
INPLUS
BE
e UP
e+24
,91
eEXP22 80
Sill
CHU
,I
IliPLUS
,TeRM
C
BilL EUPAO-12
fO
EXP-I
,INPLUS
AM
,2
IIIPLIfS
eexpZZ+12
B
DORG .-4
eexPIil TDIII E exP&O+I,l
eexp
Alii
,2
IliPLUS
SM
CHAR
,I
8
e UP
DORG .-4
TO
EXP
,I"'LUS
CHU
eUPAO A
B
EF END
OORG .-4
L 0(;0 /G INP If DIG
Sill
,I
CHU
IF lEU
I
DORG .-4
EFDEC 10
Eun I
.97
,00
LaC 0

062]0
06240
062.0
06260
06210
06280
06290
06300
06)10
06120
06))0
06140
06]50
06360
06310
06110
063.0
06400
06410
06420
064JO
064.0
0'4'0
0 . . .0
06410
0.410
0 . . .0
06500 E'OIG
0"10 OPTII,
06110
O'UO
06540

PAGf

"Ta

110111'" ARIA AOI Itlf TO 'AC oa .,"

1620 FORTRAN 11-0
05990
06000
06010
06020
060'0
06040
06050
06060
06070
06080
06090
06100
01>110
06120
06130
06140
06150
06160
06110
06110
06190
06200
06110

SUllllllfllIIS

ISIif

01)00
O••• N

8?4

16Z0FOUIIlII 11-0
a6UO
All
0"'.0 IHUII C
IL
06no
aUlD fHNO ,8NF
OU90
JFII
0 . .00
8
06610
O\lRG
066Z0 EFENO~ S
066)0
80
06640
SF
IF
06650
SF
06660
06670
B"F
06610
SF
06690
8
06700
OO~G
06710 ERRF7f TF
06720
TOM
06no
8
DQRG
06740
067~0

06760 HTYPE I
06770
06710
06790
OUOO
06810
06820
06810
06840
06no HRO
06860
06870
068$0
06890
06900
069LO

06920 HWRT
06910
06940
06950
06960
06910
06980
06990
01000 EFROI
07010
07020
07010
07040 EFR02
07050
07060
07070
01080
07090
07100

TF
TF
A
C
8NH
A

B
ODRG
80
SM
8l
AM
TF
AM
8
OORG
SM
TOM
al
AM
TF
AM

NA
INPlUS
(FlY",!;
EFfNOZ
FAC
SNl

SU.IIDUYlNES

.

.'IIH

.

,

•. 11.

OUIO
0t222
0.21.
01266
0.15.
01210
0127•
DIU •
OU90

lEII.D CHECK

,lOll

-)

CHAR
ERR HE
CHAR-I
FAt
FNH
SN.L
FAt-Z
SNL
·-4
FAt
EI
£FE"D

'-it

WIDTH2
I"PLUS
LAST
LAST

• lDt D
.tH.• R~2

.

oUOt

.tHAR
,99

.FLUlP
•7

.6

,11,
.ll •

F PLUS Z ZUDS TO FAC
SET ER F7 INOltATlD" SWITCH

MACRO FOR HOLLERITH TYPE READ AND WR IT E
,SWF
.11

•• 32
5WF
ER COM

,UST

.WIOTHZ
,MAX2
• NIDTH2

tt-It

HWRT
WIDTH
aSWF
SWF
SWF
I"PLUS
HRD
'-4
WIDTH Z
COMPS.
8SWF
SWF
I"PLUS
I"PLUS
H WRT
B
OORG '-4
CF
laC
TF
F]XENO+6
F(X
B
DaRe; '-4
TDM F IKEND.I
TF
lOC
L.OC
5"
TF
LOC
B
ER F7
OORG .-4

.R.NEFSW
.2
,2
.INPLUS

,10,

REAO H FROM 10 REC TO FORMAT RECORD

,611

,2
,2
.0

.10,

WR I H

H TO 1/0 REC FROM FORMAT REt

,

,2
, SWF

.611

,2

,I Cal! 5+6
•. 2
,FAC
,2
,FAC-2

PAGE

SET 2

01
.TEIIM

,6
,6

08316
OU2.
08n•
OU50
01362
08369
08310
OUU
08)9.
08401
08402
0841.
08426
08438
08650
0.462
08476
08481
08482
08494
08506
08518
08530
08542
0855.
08561
08562
085H
08586
08598
08610
08622
08636
08641
0864Z
0865.
086"6
08613
08676
08686
08698
08710
08722
08729

II

0".2
0""

-0001
OUU
OUOO
DUll
OOORl!
00000

U

01101
01310
01'10-7
OZ6'lZ
DUll
0")6
026.0
05936

05601
on06
00000
01101
00000
00099
00000
00000

Z6
15
49

OZ.92
02615
01266

O)HQ
0000'
00000

26

05.56
059.5
05736
onu
01482
OS161
07078

0"6J
05736
05956
060)7
01100
05956
00000

08562
05956
05826
05861
0586J
05945
08494

0595)
000-2
01300
-0002
0594"
-0002
00000

05956
05678
05826
05861
05945
0856Z

000-2
00000
01300
-0002
0586J
-0002
00000

05981
03166
0)85.

00000
05488
00000

03161
0598J
05981
0598J
. 10170

00002
02492
-0002
02490
00000

Z'

.
""
.,zz
16

..
Jl
26
JZ

12

Z.
21
2.

n

Z1

••
H
12
H

11
26
II
49

12
15
H

11
26

.,11
H
2"
4'
IS
26

12
26

••

069n
O"'S
on02

olnl

0594~

I.

MACRO FOR A TYPE READ AND WRITE

625

't
16.20 FORUA" 11-0
01110 HYPE I TF
01120
TF
A
01130
07140
t
8H
01150
TF
07160
51!
07170
TFH,
07180
07190
80
TFM
07200
07210
8
DORIO
07220
07230 REAOA tF
07240
AM
07250
C
07260
8l
07270
B"F
CF
07280
07290
TF
07300
S
8M
07310 ROA
A
07320
TF
07330
07340
B
07350
OORe;
07360 ERF7A TON
07370
8
07380
DURe;
01390 ROAFL TFM
01400
SM
OHIO
TF
01420
S
07430
a
07440
DORIO
07450 WR !TEA TF
07460
a"F
07410
SM
07480
S
07490 NitTA
8H
01500
A
07510
TF
07520
8
07BO
OORG
015.0 NltTA2 SII
07550
8
01560
DORIO
S
07570 NAF.
07580
a
DDRG
01590
07.00
07610

07610
07.)0

07640

......
......
......
......
......

07650 1'111111
07 . .0

TF
Iii'

WIDTH2
("PLUS
LAST
lAST
H F9
TERM
TERM
swc AaJ
SWL
5WC AIlJ
SWl
.-4
[NPLUS
[NPLUS
[NPlUS
READ A
RDAFl.

,SWF
,LAST
,W[DTH

SUIIROUT INES

SET 2

,11

,MAX 2

,LAS.T
,2
.WRITE
,RW EF sw
.READ A

,
,I
,TERI!

,6
,10

.LO~

LOC

LOC

W[DTH

,F)(Z,

.6

.K

ERF7A

lOC

LOC

.WIDTH

,TEl'"

.61.1

.7

,11.,

.00
.2
,HZ
.F

.610
,10
,611

.lOC
,FAt-l

.11

EA F7

0-4
EI

SET ERH ERROR [NO. AND SWUt·H

ER F7

'-4

lOC
Lot
LOC
WIDTH 2
RD A

.-.

FAt
NA fX
LaC
NIDTH 2
NRTA 2
lOt
TERM
UNF

.2
,F

,wiDTH 2
.LOC

,61.1

.02

,10

PAGE
08730
08742
08754
0876"
08778
08790
081t02
08814
08826
088)8
08850
08857
onn
08810
08882
0819.
08906
08911
089)0
08962
01954
08966
08971
08990
01997
08998
0.010
09017
O.Oll
090)0
09042
09054
09066
09013
09074
0'0"
0.091
09110
09122
09U.'
091 . . ·
091U
09165
09166
09171

26
26
21
26
46
26
12
16
U

16
69

02615
10170

ooooP
00000

16
12

0591J
05911
O'9IJ
05956
01956

000'-0
000-2
OJ3St
02219
00000

02692
09186'
12 0'911
22 059"
U' 09166
21' 059U
U
067111
0'12'

OS98J
02491
-0002
02219
01100
0595.
O,,,J
00000

U

0'1'"
0'U2

000-2
00000

O!J'"

OZ221
00000

on.,
06062

O"IJ

II
2.
.9

.
..

l6
22

.

26'

091U

NIDTH 2 .• K
NIIT A
.-.4
f ANO .,F. n , . ""ANU SSA IIRIJIIIII,FlOAT', AIIG IF REQ •
CO.. ,utIDIC .,r IN. GAil AND OUTPUT "ICORD. lIOn
"'AIITlSSA".OIGIT BY DIGIT •. II " ..,.: TO . liPT. '"ON FAt
TO.G""'_ .JNS.~.T SIGN. CHIC;K 1I10TH,. AND ZlIIO •
1".'0.11111 " 0 1 1 ' ' ' ' 1 CONtillUAHDN
FAt
,11
.lOC
nOAT
.FAC-1

09186
091ge
09205

09206

It

Ot211

0595)

00000

••

I)

26
22

.~4

NIOTH 2
WRU

-~74

- .. 5.
00000
000-1
06785
01300
05981
00000
02815
02221
01100
059S6
0671"
00000

.
.

U

••

09122

15

0586J
05736
05956
06037
01100
05736
-0002

059.N
IIS945
0"65
onSl
09011
05911
0598J
05956
08998
05,911
0591J
10170

))

11
24
41

.••
.

.-4

05956
05tH
057)6
05736
07002
06785
0"15
060.6
059).
06066
05914

01691

82:.6

1',0 'OITU" ":0

'"
" 0"

0'''0
TP
0'''0
0'6'0 I'AL'M fOIl

Qltf
DPG
DP'
0l't1l2
OPTIII

S
T,II
S
Tf
511
511
TO
tF
511
t
'M
Tfll

I"'

Tfll
EFCHI(S Tfll

..

,2

,l-

NA

,NA'

. -;.11

II'
NA

1_-.

--

NAZ
EF U,
NA
Ef CMIIS

,'IIIIIF

,2

IIA

A
TF
S
t
8L
10
TOM
TFM
8Nf

·.36
fL TE"0-4
tHAR
NRTf

au"
O.UI
0"'0
09Jt2
0.37.

on..

,.

,00
,fAt-2

,6111

.• zo ____ .•.a
,000
,Lac:D
,'At
,C~II

,F
.loDe 0
,FNH
,-I
.-099
,AIIEfSII

,11

"

nu.. ..uWBLE EXI' IN GAil USING A MASK,
THE CHAR AND 5 I GN. MOVE lEfT GAM AND RIGHT GAM TO
OUTPUT. THIN GD TO 11I5I11T DECIMAL POINT
,F
IA IF f "DT LARGER THAN EFF IIIDTH
to
,fLTEIID-4

NIOTH
IIRT E2
e+36
CHAR
ERFIE
e+41

S
BNL
80
S
BD
TFM
A
A
TF
8

•• )5

~ORIO

ITYPEl TF
A
C
IH
TF
TFM
TFM
10
TF
TF
TFM

0+23
GAM
WRTE2
'-4

,

,~'DTH

,tHAR-2
,GAM
,NIOTH
,NIOTH

MACRO FOR I TYPE READ A"O IIR ITE
,II
WIDTH2
,'NF
,~IDTH2
LAST
,MlX2
lAST
ER F9
,LAST
I"PLUS
IR 0110+6 ,FAt
SNC AOJ ,WRITE I
,AN!fSN
SilL
,FPlMK
TERM
,FXl
FAt
SIIC AOJ ,RUDI
CHAR IV CHAR IS MOVED I"TD FAC,RIGHT JUSTIFIED,UIITIL SIlO"

16Z0 FDRTRA" 11-0

08160
08310
08380
08)90 IRDIG
081000
08410
081020· IRBl"K
084]0
08440
081050 ININUS
08460
011070
08480 EARF11
08490
08500
08510
08520 RUDI

olno

08540
085'0
01"0 RUDIF
08570

Dina

01590 EIIF7
01600
01610
01620
01630 ICON2
01640
01650
01660
01670
01. .0 .~
01690
08700
0.710 IIRITIl

......
......
......
....

......
......

olno

01710
0".0 IFMIIT
01750
0'''0
01770
01710

.n

"

,

u ___

.,

....

.-.

-

III'
511

IIlItU+lJ._.'-"~l

••

LOC
.ac:-2 --.a.LIIC- _--u..
, UIIIO.. • I COllI ••
I
flllI
OOIG _-4
Tf

"

-0

• ___

_____

_____

.

onso

SUIROUT I HES

09578
09590
09602
09614
09626
09631
09650
09662
09U4
09686
09691
09694
09706
09711
097)0
09742
09754
09766
09171
09790
09802
09814

0"11
02.'0

a. ono,

I!

OllH
07U7
05"6
0""
oun
olin
07014
06nL
P691L
069n
070~4

0'1))8
0693L
09446
06'1lL
066n

1I

oun

21
26
22
24

066n
01\01
01\08
051\5
05202
0'1'1010
01806
07108
04102

U

..
.3
15
16

-25n

0"06
OllJl
-0002
-0001
070111
00000
-0002

onu

01100
000-0
02490
0001(0
00-00
05601
02492
06613
02219
051008
OUOO
033\l
OOOOJ
00-9R
059H

U
~9

04~98

02219
OUOO
01806
05715
07106
-2555
05715
05715
00000
00000

26

05956
05116
05136
01002
05945
09984
06044
059]4
OUI5
02492
06044

0586J
05956
06031
01100
05736
-2492
-4446
05951
01283
02115
J0086

22
U

16
ZI

21

21
24

46
26
16
l6
U

26
26
\6

16

-DOOI
O,tlJ
00002
06185
0'606

051\5
04598
09638
01\08
05202
09685
09685
09685
02555

22
.6
.)

627

PAGE

SET 2

OR W CHAR ARE EXAMI"EO.
ERROR F1 NILl DCtUR IF MORE THAN I( CHAR ARE AVAIL TO RUD
SM
WIDTH2
,2
,10
Il
SilL
SN
,2
I"'LUS
CM
,70
,610
INPLUS
IH
IR DIG
IR BLNK
8E
,DO
CM
,610
I"PLUS
BE
IR Il"1(
CM
,20
,610
'"PLUS
BE
I MI"US
CM
,10
,610
I"'LUS
BE
SNL
8
ERR F7I
DORIO '-4
TO
,IfIPWS
, TERM
t
'-6
ERA F1 ,
8l
,I
SM
IR DIG+6
B
I READ
DORIO .-4
SF
FAt
I
Sill
DORIO
'-4
TF
,FXZ
Fat
SET FI XED ZlRO IIiTO FAt
TFM EI
,677
,~HI, SET ERROR f7 INDrcATlOIi
8
SilL
OOAG '-4
FPIMI(
,6
SF
TF
FLT END .ltOIi' Z.6
,Lot
8NF 'LOAT
tF
LOC
TF
,FAC
Lot
SM
LDt
TF
,FAC-2
,6
LOt
INF I5I1F-12 .EI
I" I F NOT 11111011 TYI'E F1
CF
,USI IRROII F7 I"DICATlOII
II
I
Ell COlI Z
DOli' _ .
_._al
I
RUO"
OOIlG
111'1/11111_.'''0'' SilL YIA SIIC IF IIUTlIIG I TV'.
VALUI PUT IN "'C III I flORII,UPAllllED tD ALPH' III
,,1111" lUI"' TQ I.IPI. HO COII"'III$ 'l1li 0" "IG" ORDIR
DIIIT I" 1A1i. ' ' ' . 1 VALUI IN "'" IS SlGIIID.e. .CKlO
_POI MIOIM, . , I ...lIUIIIIl'U1 AKJaO.
.
.1'11 IllULtS I' V'LUI TDO La. . . flOR flORNAT SpICS.
.flACtL _____ . __
TfM IfU
,Lot
,11
Tf
FAt
_

......

08210
08240
08250 IREAD
08260
08210
01210
08290
08300
08310
08320
01))0
08340

09)9'
09410
09."
094n
09."
0945.
09470
09482
09494
09506
09518
095]0
09S42
0955'
09566

illITE E

.

NRTE

"U •

,Lac: D ,-

~-----.- ..

IIll

CI(II
CKII
Cltll
CHAR
CHAR
IIIDTH
ER fl

A

......

• DPJ

It
U
16
U
26
IZ
IZ
20J
n
II
24
U
16
44
16
16

"21.

_

EFALP

,Lac: 0 2

0""
DUll
0.290
OUOI

aU

.• 'U..

~

0"10
On20
0"'0
0".0
0"'0
0"60
07770
0"80
on90
07800
07810
07820
07no
01'40
07850
07860
01810
07180
0111'10
07900
01910
01920
01930
07940
01950
01960
01970
01980
01990
01000
08010
08020
08030
080.0
08050
08060
08010
08080
01090
08100
08110
08120
08\30
08140
08150
08160
01170
08180
08190
08200
08210
01220

PAGE

SIT I

U

~

onoo

'UIRDU".'

0.210
OU4I

LaC
,2
,LDC
"C-2
flLYlIID-' ,I

09826
09838
09150
09862

Dnn

09816
09898
09910
09922
09934
09946
0995.
09970
09977
09971
09990
10001
1001"
10026
100))
10034
10046

loon

100M
10066
10071
10085
1008.
10091
10110
10U2
lOin
10lU
10151
10170
10182
1019"
10201
10201
10109

102&0
102U
lOU"
10. . .
lOnl

lOUD
10111
1011'

12
H

12

05950>
059)4
05945

1.

059~N

46
46
14
46
14
46
14

.
49

09971
10014
0594N
10014
05910N
10014
0594N
OS914
10054

25
24
41

00000
09984
100510

000-2
01]00
-0002
OOOPO
01100
01200
000-0
01200
OOOKO
01200
OOOJO
01200
00000

4'1

09826

0594N
06185
01]00
-0001
00000

JZ
49

02492
0"3.

00000
00000

26
16
49

02492
026l!1
05934

02815
00071'
00000

J2

4'

OUIL
03110
04042
05981
OOJ98J
05981
059U
05814
02615
07018

00000
10208
05911
00000
02492
-0002
02490
02615
00000
00000

4"

10114

00000

••11"

07014
02."
10102
0"11
0 •••0
0,.,"6
0]1IJ4

-I."
0598J
12491
-0002
O"IJ
05496
00000

12

26
44
))

26
II
26

••

]J

26

I'
26

n

099810

17

128

4.,..OI/J;I_

&620 'BJaAli U'1l

on.. lIun

TOIl

:,"

SIT I

PllIIl!O+. ,I

01100
GaM-I.
,1IA1l J
01110
"M ItO
-"
SM
II. I
,1 ...!
O"lO IIAn
0,,,0
5M
IIA
,I
TO
0.140
IIA
.IIA I
.611
10
I DIG
.IIA I
01"0
.11
8
I OIG+12
01110
OOAG
01"0
H
HD
0 •••0 101G
,II'
GAM
011.0
'8ty. .,S ,.IM"'UIII T.8M.,ea IIIG .lAG
liS
'I
0"00 MD
.IIIlM N' OAII'" ..GIl 111111 :aJGU
INF IIRTJ
,IIA
01910
til
.GAM+l
HD
019'0
01910
IUIE IIIIT 51011
0. . .0
r," LAST
.1000
BSIIF
01"0
8
QQRG .-4
0"60
,Fat
0.970 IIRT5GItI8NF wn 13
$11
MO
,2
01910
08990
,20
,.·10
TF" HIl
0'1000 WRTH 511
HO
,I
TFII OUT
0'1010
• GAM
09020
S
OUT
.~D
09030
our
C
.WUIT~ 2
09040
8H
Ell. FI
SF
09050
OUT
09060· our
, HI ORDER IIKG .lOll III 110 RECOAD, I TYPE
as 5
09010
A
OUT
.LAST
09010
SII
OUT
.2
09090
TR
OIlT
,611
.HO
09100
LAST
,DO
,610
09110
B
asWI'
DORG .-~
09120
09130 EIIFSI Til
DUD H.II.FLZERS~U
Til
09140
DUD H+II ,HO
,II
09150
a
ERCOM
09160
OORG '-4
1620 FORTR.N 11-0
09110
AIIHHIIETlt SU8ROUTlIIES
8P
.+12
09180 FIXl
VES
TF
09190
FAt
,F·X1
NO
F IXENO
09200
a
09210
DORG .-3
IIU-I
,.FAC-2
STORE SIGII
09220·
T.O
,K
09230.
FAC
IS CHAA GRUTER THAN K
C
09240
·8N" .+.~
09250
SET ERR TYPE
TO" fXfRR+25 ,I
TFM EI
SET Ell E9, OVFL IN FIX
09260
,51'~
YES, FAt • P.X9
09210
FXNl"",+U,
8
09Z80
DORG '-3
CF
09290
FAC-2
09300
TF
CLUII ADO ARU
aETA
,lEltg...'·1
TF
,FlU
09310
IMSA
TF
.+)0
,IMSAPF
ALIGII DECIMAL POINTS
0'32.0.
09330
~
,FAC
*+18
A
09]100.
DUMMY
,FAC-2

'-4

•

"

.'

..
•

.u

."

.'

".

,

"

'.'
,9.

"
"

1620 FORTRAN 11-0
09150
09360
09310
09380 FXAI
09390
094GO
09410 FURl
09420
09430
09~40

09450
09460
09"10
0'1"80 FXIII
09490
09500
0'1510
119520 HOI
0'1530.
09540.
09550
09560
09510
0'1580 HNINE
095<)0
09600
09610
,09620 FlIOR.
09630
09649
09650 IISlltIl
09660
09610
09680
09690
09100
09710
09120
09730
09HO
091'10
09160
09110
0"'10
09790 FLOAU
09800
09110
09120
0.110
09840
091'10
0. .60
0.110
09110
0 •• 90
09900

TF

a

FAC

SUBROUT IllES

IIU

*+12

88
DORG .-9

C·F
TF
8
DORG
SF

FAC
FXA-I
,FXSII-l
FXl
.-3
FAt
a
FXSRI+12
oORG .-3
SF
1001411
TF
,99
FAt
'8
O.DRG '-9
D
·1001111
,·FII)-I

av
TF

SET UP AOO
lRAlltH TO FIXED PDIIIY .00

,

,6

,99M'

.11

,611

•• 26

.FlC

88
DORG .-9
nil EI
,9,
TFII FltERR+3Q ,FIXElIIo-12.,
FAt
TF
.F.4
8
F~ERI\
DORG .-)
Q
,Fat
.,6
10\IM~
8
FX01"'U
IlDIIG '~4
,FAC-I
'.Z6
CF
FA~-Z

.n_

_1If

••

OOItG ....
FAC-iZ

Sf

·8a

DOIIG .-<)
IIIF '+26
CF
FA'

"At

..
..

F.'
"fh'

'F.

.0

.U)

.'+4.
Slll
SAV'
Alii
.-u
8
• .,.16
1I01tG '-1

-U56

U
11

0·'0'.
0'.911

••••

06"L

-0001
-0001
010,M
0701N
00000

Ion.
10110

10 ••'
lOin
10111
10H'
10M4
lO~5

10.06
10411
1·0410
104.,
10U4
104"
1046'
104.74
10486
10491
lOtiO

EUO. E.

SET IIP ....1IIl
" " • FlI9

EXIT

11.0''1' IIUIIllfR

16

47

&6

12
16
U
16

U
24
46

10658
111670
10682
10690
10690
10702
10114
10126
10131
10750
10758

J2

21

I'

H
16
4'1

•,FAC
,'IIH
.9;$!llF-l

,K

,1"'"
•,I

••

..

"
.n

.,
Of

,.,

.1.0.

....'I,n

CLIAJl

'AC

'INI HI
",.tun ~

10.05
0'.55
5
10126
10405
1046'
05130
05826

IOU•
1040'1
104011
10401
101'"
1016.
10569
10626
10169
5
1056.
10569
1016R
OH30
0'1826

069n
00000
06nL

-nl6
01200
OPOOO
00000

0'41,
-0002
000110
-0001
-2555
10401
05'15.6
01100
00000
05736
-0002
10"ON
000-0
00000
06260
00000

.
U

10690
02492
03160

01100
02815
00000

25
24
41
1'1
16
4'

03111
02492
10158
03101
OUI'I
n004

02"90
02221
01100
00001
OON19
00000

02490
02603
02515
10824
10124
99999

00000
02116
02815
03298
02492
1)2490

46

3J

26

108)0
10842
10849
10850
10862
10864
10864
10876
10888
10196
10896
1090e
10'"
18916
10928
10940
10942
10942
10"4

26

26
26
2Z
21

10~ON

PAGE

10911
10980
10980
109'91

11110+
UOIt
110Z4
U9Z'

49

00000

46
42

10862
00000

01400
00000

n
26
49

02492
03811
0381.

00000
03925
00000

32
49

Ollt92
10116

00000
00000

12
26
42

OU9L
02492
00000

00000
00099
00000

29

U

OU9L
10. .0
0,492
00000

0391L
01400
03280
00000

16

O~"5

01146
OZ4"
·0'6"

001118
-3741
02805
00000

29

0J29L
aO"4

02492
00000

11010

IS

82_

••26
16
26

..••
4.

4Z

00000

02 ••0
00000
00000

U
4Z

024'0
00000

00000
00000

uo_ •n•
4Z

HIlO
01492
00000

02492
00000
0 0000

Ull,

U

02492
00000

00000
00000

Utll4
I1U,

,.••

on"
000. .

01200
02492
00000

UII"

no..
110••

uu.
lU~

21

nlllD II

unz

02.492

Ill,.

1.fOI

'JI20

•U ..

112,.

"u

z~

It

U

19

IUM

OUIL
02lU
02221
ilia' -2M4
.00000
0,.61 OOD-I
UU. -0001
00000

",..
11.". ••. ..,,01

u ...

62H

onl'l

02492
03112

uUO
UH. n

~

10• •
1019•

~n22

101'18

11010
111170
11012

Ye$
$llIIle Sllll

02516

02618
02618

H
H
49

10170
10182
10794
10806
10118

11016
IU). .

~ER

.
..
26
II

10~22

UOU

fiXED ,.JIIIT

as

10U4
10546
10558
10569
1.0570
10512
10594
10606
10618
10625
10626
1063.
10650
10657

HU.
FLOAJI~

u

IUD'

DOIIG .-.
$F
FAC

••

lQ40I

IOU.

~0966

a8

OOltG .-9
znlAC
8l
99
TO
Cf
TIl
T1'
fAC-Z
TF
SAVe

011'1

IDJI.

1.1

OQ002
01."

11
J.I

SET 2

,IMU

OORG .-4

av

"GI
10290
10101

oa4. .

ou.,

,U ,

I.ao 'ORT.AM 11-0
fit

0"10
0,.,0
0"10

"

All

O"~D

IMII

0'''0
0"60
09970
099.0
0'1"0
10000 fSIl
10010
10020
10010 'lOI
10040
10050
10060
10010
111010
IOOQO
10100
\0110
10110
101 J~
10140

TOIl
TO

to}lit'

1016')
10110
luI KQ
10190
10100

10210
10llO
10llO
10240
102'J0
10160
102TO
10280
10290
10300
10)10
10320
10330
10140
10350
10360
10310
10380
10190
10400
10410
10420
104)0
10440
10450
10460

"

'MH

••-n

"U

.1

FACtl

.lItlll

.. n
.-U
·-1

lETA
8
MOIII.60
DOl' .-.
Tf
PAO-I
I
FADI
DOli .-)
TF
lEU
SII
fAD-l
InA-I
T'
A
IE fA-2
TF
SAVE
TF
fAC-I
Cf
'H
TOIl 'N"
C
lETA
BNN •• 1.
TF
SAVE-2
TF
fAC-I
Tr
IETA-2
TF
fAD.'
UVE
T'
TF
lEU
TFM ADDHI
S
lETA
BV
NO ADD
A
ADDtll

.,""
.0

.ZEl"'7~

.,

flMD AMn CUU III CORD !lUK

• 11.

.95"
.'''-2
•

.10

.0
• SAVE

·.UTA-'
.FAC-I

.SAVI-I
.HYI

.11"

.'AO.I
.IETA-Z
• SAVE

·
•
·

·

.-99

,

IUU
taa. .
IU"
lUll

luoa

..

lUI •
IIU.
Ill..
IU. .
113,.

IIOVE . . PONIMT

....
....•••..
..

CLEAR IEU-2 TO hi UIDS.
,11, ADO DI SUIT. IIANTI ssa
"DVE flI'flNfNT.
IUGHT 'HlfT DNE DIGIT.
CLEAR 'UG ON "IGH OIlDU DIGIT.
•• 11. sn NUT ""H 01l1T TO 'UG UID •
COIIPARE ex'ONENTS.
lUNCH IF NO EXCH'N'I Of D'EUNOS
EltHANGE IIANTISSAS.

....•••

SET UP ADDRESS
SUITRACT EX'ONENTS
NO OPERATlDN If OVUFLOII.
MODifY ADDIUS FOI SHIFT.
ADD F TO IUA
NO OP IF EX OIF NOT LESS THAN
SET SIGN Of OPERAND.
IUNtH IF ZUO RESULT
STORe SIGN Of RESULT

..•••

.11.
•• ll, LEFT SHIFT aNtE
SET lAST DIGIT TO lERO.

.61l. TEST LEAOINI ZERO
.10. SUBT ONE FRON EX'ONENT.
• 9,

IU6.
11376
lUll
11400
\1412
11414
114J6
1144,
1\460
11412
1\484
1\4"
11501
11~10

ElICHANGE EX 'OIIENTS,

....

..
..,.,.
II
I•

11

1'1

un, n

IIIPLAC£ IECOIlO IIAIK
CU.I InA

IU6~

• fAO-I

."0-1
.FAC

,ar,r:

In,

.'"-1

.IUA
,F
IfTA
NOADD
ADD
.IETA-2
'DDtU
ADD
A
fat-I
BZ
ZERfAtHZ.
TOil UNFLDII-I .2
TOil OVFLOII-I .1
TD
NDRN
99
,FAC-I
CF
FAC-I
BO
LVI
.FNH
n
FNH
,FH
TOil FAt-1
.0
SF
FNH
BO
FINISH
.FNH
SII
SAVE
01
BNV NORNt,.
TFN EI
.572
UNFLDII TFM fAC
TF
FAC-2
.9SPF-I
B
ERROR
OOIG .-4
.. DADO Sf
fH
TR
.fH
F.
A

INH
BNF
SF

..
....••

•• u

StllllftUTI MIS

SET UP ERROR tODe E2 •

,10,
SET RESULT TO ZERO.
,6
,611

115)2
11544
11556
11568
11510

IIS92
11604
11616
1162.
. liMO
11652
1l"4
11616
11611
11700
Ill11
11124
Iln.
IlH8
11760
U112
11184
IlT'6
IlID'
11110
lIIJ2
11844
lInl
11152
11864

4'

26
II

2.

,.
II

26

anu
IU"
IU9'I
1117•
111'111
OH9l
011>0)

1116'"

onu
-0001
00000
00000
0140)
OU.)
00000

0401'
111(>4

04065

0260'
040'9
021001
0160\
02491

0401 •
000-'
02854
040 ••
02492
02490

DUlL

0000-

01'l6~

ooono

)J

onoo noooo

15
H

",,.0'
II'~~

4r
1~

26

n

02~6)

07491
01~nl

01~~'J

01100
02.'11
026QI
02563

26
16

040~8

OZ~6'

O"~6S

16

01'03

22
46

02603
11852
11661
02603
118'2

0167~

01601
041)18
-2601
02565
01400
01603
02219
01100
02601
00000
00000
01200
00002
00001
02491
00000
0331l
0330Q
00000
00000
0331L
000-1
01400
00N72
OOCRR
02851
00000

0330Q
01HL

00000
03300

u

11

1I
U

.."
44
32
1.l

"

25

n

H

H

"

12
H
U
U

16
16
26
49
12
H

11~6J

\I~52

1I66l
02491
0)'96
118"
0)1oS1
00099
02491
0)616
0331l
02491
DUll
Ol80l
02565
11116
M61S
01491
02490

10

IlllR

1131

1620 FOURAN 11-0
10~10

10480
10~'I0

10500 FSBR I
10510
10520
10530
10540
10550
10560
10570 F"PI

TF
B8
ODRG
CF
Tf
8
DOIIG
SF
8
OOIG
SM
lO

.-.
F.c

SU8ROUTINES

11176
11888
11190
11190

.SAVE

"C-2
fAD-I
,fUR-I
FAD
.-J
fl(;-2
FSIRI>12
.-~

SET UP ADD
BRANCH TO FlOATING POINT ADD

..
....
..
....
.....t.
....
....••
.......

.10. sun. TIID FROII AOOllESS.
.2
'"P-I
t LUR AREA FOIl "'DOUtT.
10~'0
• zeaD-IO
IlUl TI PLY TIIO IIANTI SSAS.
III
.FIIP-I
t 11,
10590
fAC-2
10600
81
IERFAC
ADD EXPONENTS.
10610
A
SAVE
.fAC
10620
TF
FAC-I
.11, IIOVE f+1 DIGITS OF PRODUCT.
.HNO
106)0
SET UP EUOI CODE £4.
TOM UNFLOM-I .4
10640 F"FAXI -8N'I MORII>"
NORII"UZE " SUII NOT DVEIFLON.
TEST SIGN Of EXPONENT •
8NF • .,0
10650
• FAt
UPiDERFlOll
10660
B
UNfLOM-12.
10610
OOllG .-4
SET UP ERIOR CODE EJ.
TDII DVfLOII-I .1
10.'0
OVERfLOII.
10690
BH
OVfLOIl-U.
10700
rFlI SAVE
.tt
.10. SET exPONENT TO " .
NORIIALItE.
10710
II
NOIII.U
DDIIG .-4
10120
107)0 '01
SAVE EXPONENT 0' fACt
Tf
.fAC
SAYE
101~0
511
.10. SUITRICT TIIO 'ROIl "DOIIns.
.2
'0-1
elf AI ARU ,Da QUOTIEMT
10750
TF
19
10160
LO
."C-2
'DT
10770
0
.FD-l
•• al.
'DT
SET UP IRROI CODE n '011 0 DIVISOR.
10780
TOil OVFLDM-I .1
OIVlDID IY 11110.
10790
BV
DV' LOII-U.
10100
TF
FAt-1
• PDT
,U. IIOVE QUOTltMT.
_.FAt,.1
TO
STDRE $1111 DIGIT.
10110
99
lElia OUOT liNT.
10820
lERfIC+U.
IZ
511
10no 51!
SAVE
tiO. SUlI"'T I • ...eNIS.
SET UP EIIIIDII 'OOE n .
10140
TOIl DVFLDII-I .5
10850
IN"
DVEIIFLOII If lesULT IS 'OIlTl"I.
10860
OV'LOII-U,fl'
10170
TOIl UllfLOII-I .6
SIT UP 1M. 'CIIl 16.
IN
UMOEI'UIII til. "SUIT. MlGATlVE.
10110
UIII' LOII-12.
10190
.10. SIT EXpGNlIf 70 - " .
UVI
_IIALnE.
10900
NDllII.n
I
tt
10910
DDIII .-.
10910 FIIlIIII Tf
Sitn
.FI'
10910
SII
'OVI-I ..J.-._ ____ .10.
CLIAII " I ' POI QUOTlINT.
10940
pDT
LD
.611.
10"'0
10960
D
POT
.6
"IC-I
IIEP SlIN O' DIVIOEMD IIpONIMT •
TD
10970
PIC
• U.I
10910
I
'01.60
DOlI
10"0
-IXPoNINTlATlDII IUliaunll1S
11000 •••••
16" ' . ' . ' N 11-0
.10. IS I • UIIO
11010 FIXII
IIU
.00
INE .+16
!I~?O

"

,

,ze.o-,

IIQU.,.

•

'"'

.-tt

""

" "

.-t

""

PAGE

SET 2

........ .
.'0""'1

..

I190~

1191.
11922
11922

11'"

11941
11942
11954
11966
11911
11990
12002
12014
12026
UOJI
12050
12057
tzO"
12010
UOII
120. .
12101
12102
UlI4

lZUt
Ulli
Ut50
UI62
lUn
121 . .
12191
12210
IU2I
U2M
111'6

11151

uno

26
42

..

024QZ
00000

02565
00000

H
26

02490
0~089
O~OQO

00000
04113
00000

J2
49

02490
11902

00000
00000

0~117

00079
02490
01584
02565
02491
IIn9
11772
12051
llB08

000-2
02757
0413P
01200
02492
01310
00004
01400
02492
00000

016"
03640
02565
lITI4

0000)
OllOO
00011'1
00000

02565
04161
00079

02492
000-2
02158
024'10
D416J
00007
01400

12
11
2)

46
21
2'
15
41

44
49
15

"

16
4.
26
\2
26
1B
2')

15

."

26
15
U

"

H
44

15
U

onn

O)Hl
0)651
0)640
DI~91

Dnn

00099
015'"

02491
OUOO
000-0
OOOOS
01400
02492
00006
OUOO
00011
00000

on.,
01651
11124
011640

Ilea'

16
49

U801
0256'
llnl

lUH

26
U
It

041n
000"

alltl

LUI.

.,

1216'

00000

IIJ96

11

onn

000-0
OUOO

11112
IUM
11106
lun
UJl~

IUU

lun

21

02.".
000-2

uno n DUlL MIIM
I n " 29 on,L 01.90
lun n 02.91 on"

lun

".06

"

114)2

U!

'"

'"

..

UIO FOUa'N 11-0
11010

TF

n~:~
11060

I.
DORG
AI,

1I0l0
UOI{I
11090
11100
1I1l0

8NI

.,.,

UC

,FXl

.-9

."

,DO

.
.9.

,10,

PSI-12
• -U
.lJISI.
TFM EI
,Tn
FININE
D(JRG .-4
fOil OOOIlfY_ 1,1
IlUO
CF
MU-I
IIUO PSI
SF
lIISA-1
11140
MM
I liSA
,10
11150
.05
CF
IIISA-1
11160
BO
e+20
11110
.99
B
11110
'H2
11190
OORG
,FAt
11200
B}II' e+36
IIU-I
linD
SF
CF
FAC
11220
IIHO OOOREY NDP UJ
C
FAt
11240
.FXl
BE
IIU
11250
BNF 1t5/0
11260
.I.MU
TFII EI
11270
.9,
.112
TF
,FX2·
11280
FAt
TFII FXURHO .FIXENO-12"
11290
B
FXERR
11.300
11l1'()
OORG .-4
TF
BETA
.FA(
11120
IIHO
,10,
.01
I"SA
S"
11340
8l
"U
11350
FAe
.BETA
,6
11160
SF
100llK
TF
11310
FAC
.99
AM
9911K
.610',
IU80
.00
1'1190
BZ
'-72
,9,
TFM EI
11400
.773
TOil FXERR+25 ,I
11410
FXNINE.12
11420.
B
OORe; '-4
11430
I14SA
.00
.10.
114'0 FUll All
11450
BNZ *+)8
1146.0 OIlEFAC TFM FAC
.10,
.01
TF
FAC-2
11470
• OHEZ
11480·
88
OORe; .-9
11490
80
• FNH
,II •
11500'
.+4'"
BNF --14
,IM$A
11510
TFII EI
11520
11530'
8
MAN"
OORe; '-4
11540
,FAC·
11550
TF
SAVE
TO
11560
FAC
.FAe.,z'
11510
CF
FAC-2
TOil FAC-1
,0
11580

,

•

..

.-.

"

....
..

,

..

.

"

.n4

..

,9,

SU.aOUflNU

PAGE

SET 2

YU, J •• , • ONE

1241.
12UO

12Ul
IS J • ZlIIO
YES. U I POSITIVE
/10, eaa GI. ZERO TO MINUS I POilU

124)2
12444
1245•

1246.
12 .. 80
12 . . 7
12 . .'
12500
12512
1252.

sn UGN PoSCT! VE

I2SJ6
I EYEN
I ODD
J NEG, SET SIGN .. fGATIYE'

J • 'OR-OIIE
IS I POSITIYE
NO, ERR G2. J TO MINUS I POIiER
FAe • FXl
SfT UP UROR u n
STORE J
I * I-I

TEST OVFl
ERR G10 OYFL IN FIXI
SET UP SIGN
IS

ZERO

YES
FAt • FU PT ONE
IS A ZERD
YES, IS I NEliAflYE
YES, EIIII " , ZERO TO MINUS I
STORE CH'R
CoNYERT A TO F+2 FORM

12548
12560
12567
12568
1258'0
125.92
1260.
12616
12625
12640
12652
12664
12616
12688
12695
12696
12108
12120
12132
12144
12156
12168
12180
12792
1280.
12816
12823
12824
12836
12848
12860
12872
12814
12814
12886
12898
12910
12917
12918
12930
12942
12954

.,

l&

..
11
H
16
49

"n

J2
U

....
.
n

U

32

02492
00000

02825
00000

02492
12U8
12UO
OUIS
101/92

000-0
01200
02575
OOP71
00000

12605
03nl
OUH
02575
0257.
12568
12592

00001
00000
00000
000-5
00000
00099
00000

12604
01711

02492
00000
00000
00000
02825
01200
02515
00P12
02815
-H48
00000

n

OH92

41
2.

12986
02492
01712
12696
02615
02492
on06
03676

H

16
26
16
.9
26

02603

02492

12
46

02~ 1~

000 1

OHI2

01200
02'03
00000

2l
32
26

.

02,,92
0129l
02492
03280

O~O?9

02615
03101
11004

000-0
01200
OOP13
00001
00000

02515
12814
02492
02490
00000

000-0
01200
000-1
01018
00000

12918
12872
02615
13510

OHll
02575
00P14
00000

02565
02492
02490
15 ·02491

02492
02490
00000
00000

II

16
15

U

1I
47
16
26
42

.,
H

16
.9

, '108

26
25

n

22

6:t3

1620 FORTRAN 11-0
11590
11600
11610
11620 AXJ
11630
11640
11650
11660
11670

11680
11690
11700
lin 0
11120

TO"
8
OORG
TOil
TFII
TFM
TO"
TF"
BNF
CF
TF
LO

000REV'l.9
PSI
'-4
FAC
.0
NORII.54 ,FAC
ERROR+I ,4,9
FINISH'2.9
F INI SHU.F I NISH
NOOIV
,I"SA

"'SA

79
98"'
98MF
FAC
F IHISH
SEdl
SAVE

.

,lEIIO-35

• ONE~+2
.F,C
.97IiF

11740'
11750
11760
11710 '
11180
11190
11800
11810
11820 NOOIY
IIB30
11840
11850
11860

0
TF
TFII
TF
,SAYE
TFM
.01
8
Se
DORIO· '-4
8NF IIOOIY
• FA·C.., 1
BNF S05
,FAC
505,20
B
DORG '-4
TF
GAil
.FAe
TF
SAYE-2 ,SAVE
TFII F"dsH ,505,-2"0
'FM FMFAX I.n, S4YE"'Z
51!
,01
I"SA

11870

8Z,

11880
1189·0
11900·
11910

"TF
A

11730

11920

11930
11940
11950'
11960
11970 '50S
11910
11990
12000
12010
12020
12010
12040 1114
12050
12060
12010
12010
12090
12100
I2ll0 GEHT
12110
12130 FA~'I
12140'

TF

MI .•
79
FAt

FAt

•••••

,IUO-J5
,GAM
• 9711F·
,SlYE-Z

SAVE
B
FIIFAXI
DORG '-4
BNF NOOIY+48.FAC-I
B
NDOIY-20,
OORG
,175
TF" U
B
"ZO
DORG '-4
TFM EI
.776
TFM GEHT+6 .fUOR
I
'114+12
DORIO '·4
TFII ' GEHT'6 ,£NDO
TO
,Mil-l
99
TFII E.UOR+I.,.··
TFM FINISH •.£11011
TFII IIORM+" ,fA.C'"
Toli FI~ISHt2 ,2
fF" '''FAXI'ZhFlC

.-4

..

,10,

....

"
,6.

,01

,FAlI-!

SET UP F.2 NORMIlIlATION
ser UP RETURN ON ERROR

A~EA

,6

,10
GO TO FO FOil CHAR CHECK
DI.OOYFl·OR· UNfL OCCUR
VIS. OYFL
UNFL
STORE A

SET

UP.REcfURIt nOM FM'

, 10,.

I •

.j

CLua '.ODUE'

..

- 1

,II
GO TO FliP 'OR. CH&II CHECK
DID OYFVOIt UNflDCCUR
YES
,9.

.

,9,

,

....

,1·0.

,10

,II

12966
12918
12985
12986
12998
13010
1J0ll
130'~4

IS I NEGAtiVE
YEs
CL.! .... QUOTIENT
FIND ItA

.11

....

PAGE

SET 2

,111

•

OOAG '-4
SM
fAlI-I
TF
UFE-l

SUBROUT INU

SET UP RnURN
SET UP SIGN AT flU-I

ERR

G5, OVFL lNFAXI

ERR. G6, U~l lll'~XI
SfT U,· TY'f OUT· OF ERR
RfMOYEUlIoR TY'EOUT
Sft. U, SlIi/l

Ilun

13046
13051
U070
13082
U094
UI06
13118
U130
UI42
13154
UI6I
13162
1317.
13186
UI93
UI9.·
U206
13211
U230
UHZ
132,.
U266
13271
' 13290
U102
13314
lUll
133U
ln34
13341
13 •• Z
IUS.
IU6f
13362

un..

US86
U393
IU9'
13406

nOll'
In:MI

15
U

12605
12500

00009
00000

IS

02492
11754
03611
03805
03810
In94
02515
00079
Oll20
OH2C!
02.92
03803
12233
02565
12222

00000
-2492
000119
00009
-380l
02515
00000
02732
03040
02492
0312l
J1I62
02565
000-1
00000

13\94
U342
13362

02491
02492
00000

02555
02563
OU03
12049
02515
13394
00019
OZ492
02492
OZ565
12026

02492
02565
J1322
-2563
000-1
01200
02732
02555
ollil
02563
00000

.9

U242
13174

02491
00000

1/.

16

..

16
15
16

n

26
28
29
26

16
26
16
49

'"

44
49

.

26
26

16
12
.6
26

n

26
21
49
44

02615

49

un.

00P75
00000

16
16

02615

00P76
-3676
00000

.,.
16

n

16

13•• 2
UU4
U466
nUl
U4U'

"
••

13491

12
26

n ••.,

16

15
l'

u ...

U406

13'"

00099
03617
01B03
1I7H
03805
12049
00000
04257

onu

23

-)768

03711
00014
-3768
-1'91

00002
-2492
00000
000-2
0425P

634

1620 FOURAN 11-0
12lS0
lI"O
12170
UIIO
12190
lUOO MANlP

AM

II

12450
124.0
12470
12480
U490
12500 B3

10
IN'
"M
TD"
8
DOIIG
TOM
INF
TDM
tF
TDM
TFII
8
DORG
TFII
Tfll
8
DDRG
TF"
8
DDRG
TOM
NDP
TFM
TDM
8
DORG
DORG
34
)8
36
B
OORG
DSC

U5l0

DSA

12520

TIIA

12530

TCO

U5 ... 0

DEND

uno
12220
uno
12240
uno
UUD
uno

UZiO
Ul90
12)00
uno
UUO
12no
U140
uno
12).0
12170
12380
121.0 OlWR
12400
U41D
12420
1Z4)0
124~D

T"E-Z
ONlfAt
e+l6
'INISH·l
II

.

OVFLDII
e-4
DllIlI.l

..,.

OLIIII> 1

,00

.10,

• TA'E-Z
,717
,0

",11 ,
",9,
"

•,FNH

SUIIIOUTI NIS

usao

lJUI

II. . .
lU"
11551

11570
UU2

"

,1

FIIUSH.Z ,9
FINISH>T ,··20
LNENT

,.,

uno

SET UP ~ ERR TYPE
IS A NIGATIVE
YES, SfT UP ERR TYPE

lUOZ

n ...
U'U
UUI
13650
U."2
n ...
nnD
UUZ

FIND LOI OF A

.-~

FIIUSH+? , •• 32
.. IU£
f"!-l
F'"

_..

SET UP flULYIPLltATlOPl
"UlTIPLY I TI"ES IN.AI

13.'~

13701
U702

.-~

FINISH.7 ">ZO
EXPENT
.-4
FINISH+2 ,2
FINISH>I
EI
.61'
99

B)

..
U

onu
"I"
uno

1.
11
4.

02615
00099
01.52·

lS

1111'
UU8
llTn
DZ490
01105
01110
0136Q

0000'
024'0
00001
00000
0000'
HUO
ODDOO

OI81D
04137
04138

J1102
-2B5
00000

0)810
OlHl

JlT22
00000

03805
DlBO"
021tl5
00D99
03616

00002
DOOOO
00016
00000
00000

15044
15044
15044
15058

00101
00102
0070)
00000

11

"

0110~

000-0
OUOO
OUll

oun
OOP17
00000
00000

1551.

",FAC-2

FAt".Z

ERROR
.-4
15000
81
81

,6,

",

,a

UTI~

FIOID A"8 • E"8lN"1

IH21
lH22
U134
U".
13158
U110
1)117
15000
15000
15012
15024
15036
150... 4

ERR F6, -AT08

,00101
,00102
,00703

·.22
.-)

4~

15

JJ

"
16

49

..
..
1.

16

15
41

16
15
49

34
18

36
49

1504~

9

START+)

15057

5 X

15000

15057
1505.
15070
15000

9

Z~

PAGE

sn 2

IS I lIIID
YIS
IS A ZEIIO
IS • NfGUIVE
YIS, Ell G7 ZERO TO MINUS I
sn SIGN

,016840100

0168~010D

'"ll1lF

""'El

IlilNUS
I liSAPI'
IN'lUS
IRlllIIK
UPI'II 1

08730
05134
022)1
D6.56
06698
05678
06049
06057
on87
02404
0)319
07.06
08042
0'254
0''046
08278
07690
08222
017D2
06D6)
0232)
02313
02303
02291
02293
02253
02283
022Tl
02278 .
0225B
0226)
02261
0210.
02318
02288
07DlI
08370
10054
onn
0351J
0180)
0)7'0
UIZ4
03810

on4'
OIllZT
IZOZ6

0,.94
08062
D6)90
05402
MATRI~ .. O•. JJ~
MATRl2 .0.... 18
MUiRII _ OZ'ol
MOIICAI.· 00796
DOOREV lZ,O ...
ONfF~·· Ullt8 .
OYFL~_ .• JJj'52
·PR05 T: . O12Z.
1\'f.D~ ·05754
REA
044118
RE·AOI'· ro.t14
REPSII) . ann
RWEFSII: 05953
10011K ·OU9)
102M' Oll4)
2FM1
03~2'
9.MF
Oll18
97MZ' on63
9]MF
OHn
9IMF
on28
99MK
03Z11
9SCPF 02195
9SPF
02854
ADD
11652
ATYPE OH12
AXJ
1291.
,5044
8J
BETA
OlltOI
05126
asll'
CHAR2 DUO.
CHAR
D7108
CKII
o..n
.Olll
00'16
OP6
0597'
DPfllZ GlLn
01U7
0"
O.llll.lL. .. O~.DT
OUIT
DUO
QUI'''''. ...9.,.9
EII'Z. ·07.51
!TYPE!
lDGDIG
LDCADJ
MASKEP

IU'II .•' ....
fElP

E'AU!.

loon

EfCOII
EfDlt
!fDlIi
I'INO
E'IIIN

03291
059U
10014
OlJOI

Ifllll
1'1101
I'IIDZ

O~'O.

10992
OUU
OI~OZ

-)854
00000
00000

00500
00000

OODOO

162D FDRTRAN 11-0
ATVPEI
ClRl0S
COMADD
CDMEND
CDMPLY
COMPSW
DATDUD
DATINH
DrDDDA
DKBUFF
DKDATA
EE.P22
EEXPAD
EFALPH
EFCHKS
EFEND2
EFPlUS
EFTERM
EFTVPE .
ENDFDR
ENTA8S
ENTATN
f.NTCOS.
EPITOED
f.1IJD1I..
EN1'IlIP
ENTPIT
ENTFID
EPlJIl£C
ENTSCI
ENTSC2
ENTSC)
ENTSIN.
ENTSQT
ENTSIIO
ERCDM2
ERRF7E
ERRF71
UPENT
FINOIN
FINISH
FlXlNO
FlOAn
Fl TEIilD
FUAL'
FLUItS
'''fUI
'NCNEZ
'XNINE

36
49

1'''111

'07"1
O.U.
D7UI
01094
OI .. Z
OU"
D7nl
0920.
o~~.o

D... '
0 . . 74

SUBROUT illES
EFIIRT
£1
ENDD
ENTlN
ERCOM
ERFU
ERFl
ERF8E
ERF8I
ER,.
ERRET
ERROR
ElVPE
EXP
F2
FAC
FADI
FAD
FAXBl
FAXB
FAXll
FAXI
FCIINe
FDI
FO
PGVRI
FOVR
FH
FIXI
F!X1l
F,KI
I'IX

noDlt

SET 2
D1514
02615
DlT61
D2248
05322
0899B
10110
05202
10626
07002
DD602
D)67'
04556
D7811
D)'61
02492
11364
D~O'O

U,,1It
04258
12124
0~n4

Dn,.
12102
041U

12 l~
1)411.

on08
1011.51
In.4
0"2'"
Oil'4
O]42T

Fljlar .D"O~Z
_. IIU5J
FMIIIF onu
I'M,
0]'25
'IIFAt 0]452
z
F.II'1
FliP
O~UI
0]]51
'1I!tII1
Onl]
fNH
fPllIK OlZlI
0]605
FPZ
F
OUl9
FSII
lU4~
fSiRl UI.O
I' SIll
0~1I4
FSI
....0..
" " I 041]4
fXl
OUIt
02105
'X9
lotIO
'Ul
,U
OJ"I
HDI
10942
FXDRl 11024
FL~

n,. .

PAGE
.FXDR
FlD
HERR
FXH
FlMI
FXM
FURL
FUR
FU
FXl
'lERD
GAM
GEHT
GM2F
HND
HO
HRD
HTVPE
HWRT
!CDN2
ICON)
ICON5
ICON'
10lG
IFWItT
IMSA
INH
IN
lOCAL
IOCR
10GT
10PT
JOllie
10RT
10SK
IROIG
IRUD
ITYPE
lIZ

K
LAST

lNl0
lNZ
LN4
LN.
lNINT
lOtDZ
lOCO
lot
lDIiI
tVI
"14
IIAN"

NAsa,
"UK!
"UII

039'18
03974
0161'
OlZU
lD916
0)950
lD"~

O)9l1t
D3'02
02115
04950
02555
1)411

03735
OH18
10405
0....
o.nl
085.2
10202
05490
05412

25
MATSII
MAX2

MAX
MF
MU
~1

N2
NOADD
NOOIV
NORM
DlIIR
DNEl
DUT
PAR
PDT
PIDV2
PIOV4
PI

0541Z

PSI
RACDI
RACO
RAPT!
RAPT
RATVI
RATV
RDAFL
ROAlP
RDA
RDFCH
READA
REAOI
REClG
RECMK
REDOA
REDO
REP2
REP)
REP
REPSI!
RSGNI
RSGN
RWAZ
RIIA
SAVE
SE
SIX
SLASH
SOS
STAIIT
STO'
SIIC
SIIF
Sill
TAFt
TAN6

05~01

TENI~

05U~

10182
10Z4I>
025n
0'0')
OUll
OOT16
0....
00,.6
00"2
00520
005U
OO"~

09911
0'8211
0~ltZ4

OU.I
aZUl

onu

02910
02l1T
DUll

on...,
on..

05606
01601
0'''1
01010
01616

U,"
UNCI·

oun

05583
06037
D5924
O14Tl
0)112
02211
02238
11852
11194
11100
un4
03038
10569
on78
ann
01l6)
Oll'l
olin
12500
D5902
0"402
05882
0"'lT8
05862
0~)5~

09011
05'1'"
0895~

07311
011'18
1008.
02243
02~0)

OUU
OUII
0 . . .0
06922
06811
05512
1l0~4

D~OZO

0561D
05,.Z
DUn
lun
OUl9
06~92

UI42
OJ151

ann
onlz
01. . 1
on,.
onlS
01241
OIUI

~ I.

U:U

16Z0·'J!lYUN ·U .. O

,'0.;0.,

=C ......'

·'OHU

rtlACI
·TIlP. 'IIIU.
',11101'1 ,O$l.OJ

'1101
....ItO
,

·... 'C1U

AlIGn

,G1QI4

'0656'1

oua.

.m. "u.

WACO
""10
',WA" • . ,Oflit

onl.

WAPT '0.1"
W.
... :lUlY]
,It".•
oun

0'."

.llITM

on1l

valli ...,Z

..,. ""'

SUUIW'rtNlS

·."AI

wuu
win
waua
.a";,,
.aTl

""F

11

snJ

onu

0.'••
0",'
"'101
lOi9\!
10""
10'16
02'260

:::m "'...

'AG£
ITPf

itltO

SUS ..2

SUllO

01o.,t
• •''7

OM;.
-0,,,,,

we.oJ Mo"
'1 ••,0

"'I"IlIl

I/I!'OEC

WIO.TIt2

'bfno

'U

(~ilO

WUAl'

wIT"C
'wlIT'PE
liilTSGN
URFAt

.01550
05112.
0.'994
1,1I462

on••

0''''
'dlfE' 09076

:!iNOOfOlJlE '.'IIlIILY.

637

1620 FORTRAN n·D

SUBROUTINES

$n 1

1620 FOUIIA", II-D
00010 ••••••

oaozo •••••
00010
000.0
00050
00060
00010
00010
00090
00100
00110
00120
001'0
00140
00150
00160
00110
00110
00190
00200
00210
00220
OOllO
002'00
00250
00260
00210
00280
00290
00300
00310
00320
00330
00)40
00)50
00360
00370
00380
00390
00400
00410

IDIIIC
10"
1051
IDGT
EllIIET
10llT
lOCAL
"DNCAL
010
••••••
•••
F
K
PROGST
COMADD
~I
~I

W
RECLG
E"TLN
ENTEXP
EIITSCI
EIITSC2
ENTSC3
ENTFID
ENTREC
F.NTFeT
ENTSIID
E"'TDRR
ENTOEO
EIHCOS
f"'TSIN
EIITATN
EIITSQT
EIITABS

STDP

00420 REC""
00430 OK BUFF
OOHO FAC
00450
00460
00410
00480
00490
00500
OD510
00520

SAVE
BETA

.

OS

os

OG"
GAM
os
YAH
os
os
I"SA
NESERR DAC

ER E
00530 OUOH

os

00540 EI
00550 DUD
00560
00570

OS
OS

00590 iERD
iJ0600 9SCPF
00610
00620 FK9
00630 FIZ
00640 FXI
00650
00660
00610 9SPF
00680 LII2
00690 LII4
00700 Lilli
00110 LillO
0072D LOGE
00130
00140 OIlEZ
OD75D
00160 TIIDZ
00770 TIIOPI
00110 PI
0079D PlOY2
00100 PIOY4
00110 SIX
00120 U",

oono TlNI4

00840 •••••
00150 •••••
OO"O'X"

IU I

12
38

.

.SAVE-IO
.SAVE -30
,BETA -28

6,ER E •

.MfSERR

1620 FORTRAII 11-0

00510

SUI.ounIilS

1620 FDUIAII 11-0
SUIIIDUTlIlfS IIITH FLOAT IlliG 'OINT " ...OIIAIII
IDRT EIIUY PDIIIU llID CONSTANTS
OS
,520
OS
,UZ
OS
,n4
OS
.566
OS
•• 02
OS
.,.,
OS
.716
OS
.796
OS
,1&6
I6Z0 FOil TUN 11-0 I N tORE AREAS
CO .... UNICATlDN AREA
DDIIG 2211
OS
2 .. FLOAIING POINT IIO~D LEJllGTH
OS
2 .. FilED POINT 110110 LENGT"
OS
5 .. SURT".G ADDRESS OF NAlNLlNE PROGIAN
OS
~"
STARTING ADDRESS OF COMMON AIIEA
OS
2 .. NUNBER DF IIDRDS IN LOGICAL IIECORD
OS
5" NUMIIER OF LOGICAL RECORDS
OS
2" WORD LENGTH
OS
3" RECDRO LENGTH
OS
5 .. ENTRY ADDRESS TO LOG SUBROUHIIE
OS
5" ENTRY ADDRESS TO EXPONENTIAL SUIIlOUTlIIE
OS
5 .. ENTRY ADDRESS TO SIIIGLE SUISCRIPT SUIIROUHNE
OS
~"ENUY ADDRESS TO DOUILE SUISCRIPT SUIIROUTlIIE
OS
5 .. ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUIROUTINE
OS
5" ENTRY ADDRESS TO FIIIO SUBROUTINE
OS
) " ENTRY ADDRESS TO RECORD SUBROUTINE
OS
5" ENTRY ADDRESS TO FETCH SUBROUTlIIE
OS
5 .. ENTRV ADDRESS TO SIlITCH 0 SUIIROUTlIIE
OS
5" ENTRY ADDRESS TO ARRAY SUIROUTlIIE
OS
5 .. Ell TRY ADDRESS TO DISK END SU8ROUTINE
OS
5 .. fNTRY ADDRESS TO COSINE SUBROUHIIE
OS
~ .. EIHRY ADDRESS TO SINE SU8ROUTINE
OS
5 .. ENTn ADDRESS TD ARCUIIGE"T SUIIlOUTlIIE
05
~., E"TRY ADDRESS TD SQUARE RDOT SUIROUTINE
OS
5" EIITRY ADDRESS TD ABSDLUTE SU8ROUTINE
OS
10"RESERVEO fOR ENTRI ES TO lODEO SUIIIIOUTINES
eOMMDII WDRKI"G AREAS
OAe ~,STOP'
STOP'
OS
.S'OP+8
OSS 29
OS
60
OC
I
.'

SU8ROUTlIIES

,-

DC
28
,9999999999999999999999999999
R999999999999999999'1'19'199999
1620 FDRTRAN 11-0 FIXED PDIIIT eDIITAIITS
DC
10
.9999999999
R999999999
OC
10
.0000000000
-000000000
OC
10
.0000000001
-000000001
COIISTANTS FDR RELDCAT&8LE SUIROUTlIIES
OC
31
,0
-000000000000000000000000000000
DS
,--2
OC
1I
,0693141110559945309411232121451
-693141180559945109411232121458
Ot
u
.1)862943.UI989061 . . 34464242916
J3B62943611198906l8U4464242916
DC
Jl
.2019441"16191"921251696364315
K0194415101619U5921UI6963643"
DC
Jl
.230251509299404"14017991454.84
130258509299404561401 '991454614
DC
30
,414294411903251821.51128911917
")429448190325112165112'911911
DC
32
,10000000000000000000000000000000
JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
OS

,.-.

DC

.01

-I

OOS66
0060'
OOS65

00n6
00196
00U6
02211
02219
02221
02226
02UI
oun
OlUI
01240
0224)
02248
02lS)
D225.
02263
D2268
02213
02218
02283
02281
02293
Oll98
02]03
02308

onu
Oll18
02321
OB93

a
o
o
o

o
o
o
o
o
2

2
5
5
2

5
2
3
5

5
5
~

5
5

,
5
5
5
5
5
5

5
5
5

10

02395
02403
02404
02492
02"93

o
29
60
I

02565
02603
02604
D255S
02535
02575
02607

72

02607

o

02615
02681

o

70

02727

40

02728

4D

02761
02795

21

D2805

10

)8

I

o
o

o
6 K

DC
29
,2000000000000000000000DOOOOOO
IIDOOOOOOOOOOOOOOODOooOOOOOOOO
DC
10
.6ZUIIU0711".M169ZUI6166'.
02UIISJ071795I6U6.UUU6656
DC
30
,1I4U.UIJU91UU,4.zeUHUI
LI415'2.535.979J2JI4.Z.43J.JZI
DC
10
.1570796U679U"619UUZI691M
J510796U.19419661tlJlJZ1691 ••
DC
21
.1111".6n9J4. . 109615660. .11
I'I'391"n974. .109.I'660.411
DC
2.
..000000000000000000000000000
DOOOOOoooooooOOOOOooDIIOooooO
DC
Z9
.'4041.'00110••41'544151.164••
1140419500Z7051415'4U,11164.1
OC)O
.21.17.1., . . . ."2'.222.lI491.JI
II 1.7161UJ'''95SZ56UUl'U"JI
1620'011'11111 II-D IHOI_.Cf AOOIIESS 10XIS ANI 11001'110
CONSTAIITS IUIIIII K AIIO FI
OSA fAC+l

839

PAGE

SET 3

,--2

10
1620 FORTRAN 11-0 FLOATING PDIIIT COIIUIITS
DC
40
.0
-OOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOO
OSC 40
.0
OOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOO
DS

OOUO

00511
00n4

o

021115

10

02825

10

0215.

31

02154
01181

]I

o

02911

31

02949

]I

02980

31

03010

30

03042

32

03011
030"4

o

o)on

29

OUOI

30

2

OUU

3D

OU"

3D

OU91

21

OJZ19

2.

012. .

Z9

0]21'

3D

01283

2

, x

8411

" ' 0 FOIITU"

oono

"'1l1li
00110 99l1li

os

11-0

sn

SlilltDUTUIS

,99

onu
OUII
on81

-2491
0
5

,100

0)193

5

,FXM

OC
5
-0099
00190 100llK DC
5
-0100
OQ900 IIISAPF DSA IIISA

PAGE

J

0329.

00910 ISPFlll DSA

IIISA-l

0129.
0330l

-2515
5

00920 FH

GSA

FAC

03303
OH08

-2514
5

00930 FNH

DSA

FAC~l

Oll08
033U

-2492
5
-H91
0

00940 Fllll1F
00950 9611F

,FNH
,96

OllU
OllU
Olll8

00960

,97

0332l

00910
00980
00990
01000
01010

OS
DC
5
-0096
9704F
DC
5
-0097
98MF
5
DC
-0098
POT
DC
5
-0099
HNO
DC
5
-0100
102MF OC
5
-0102
FL LALP OSA ZERD-18

01020 FLZ
01030 FNHIII

OSA
OSA

,98

03328

,99

Olln

tlOo

Oll18

.102

03141
03348
033'08
Oll53

-2689

lERD-80

-2681

FAC-2

0335l
03358

-2490
5

01040 97M2F

,91

03358
03363

01050 LNENT

,56

Oll68

5
DC
-0097
DC
5
-0056
01060 EXPENT DC
5
-0012
01010 PAR
OS
5
01080
OS
5
01090 OKOATA ose z
00
01100
OSA 010004
01110

5

DC

01120 OIOOOA OSC
0

,12

~

X

5 X

03113

,·+5

NO OF HEME,..TS I,.. MATRIX TO PROCESS

,00

03378
03318
03)79

5
5
2

Oll85

5 X

-3381

OllIS
Oll86

"
,0

I

03387

1620 FOURA,.. 11-0
01130

5
DC
-0000
DC
3
-00
OSA DKBUFF

01140
01150

03395
03400

1620 FORTRAN,II-0 IN CORE
5
OS
TFl FAC
,TOFAC-1 ,11
B8
OORG .-9
TFl FAC
,FlIER
8
FINISH+l • ZERD"94
5
OS
OS
5
TF~
FMFAt-l ,FAC
,6
88
OORG .-9
TFL FAt
,FlZEII
8
ERXV+12 ,FAt-3
OS
5
,"
OS
5
TFt TRAtE-l ,FAC
,6
8Ne4 F"FAC+12
ReTY GAM-'
,2
,I
DC
I
,e-4
J
OS
t·-~
,FAC-I
'111' TRFX
WillY FNH
,6,
al
DORG .-9
WIITY FXH
,6,
88
OORG .-9
,1910
T'M FAC
,019"
,e·z
OS
2
,--4
OS
I
TF
FAt-2
,95CPI'
RtTV FINISH
,6
WATY "UERII
INOO+12
8
,IIU-'
"24
SF
FAt
,GAil
DS
TO" 'XEItUn ,02009
,--1
OS
2
,--)
OS
2
TFIII F XEltIl+ 10 ,INDO+12

01370
01310
01390
01400
OIHO
01420
014)0
01440
01450
01460
01410
014.0
01490
01500
01510
01520
01530
01540
01550
01560
01570
01510
01590
01600
0 . . 10
01620

FMFAt
UNFlO
FliHM2
TRAce

"

,.

..

F INalN

TRF.
OVFLOW
2FMl
FKOOO
ERROR
"U
GIIZ'
III'
"2

.

.
..,
,

' ' 1'

I'UEIfO I I
DOIIG .-J
I'XliU OS
TF
!NDO
FAt

,-

"'.

03406
OH08
03420

to

5

06
42

OH92
00000

OHOP
00000

06
49

02492
03724
5

03160
02673

06
42

0345J
00000

02492
00000

06
49

02492
03714
5
5
O'491i
0)464
-2554
1

03160
02't89

03422

ZERO Mil_US 94 PLUS TWO 11 MES F

EItR F5 U,..'l IN 'EXP
He IS Fl PT ZERO
FAt MiliUS) "INUS F

GAMIIA III NUS ONE MINUS rWD Tlllts
BRANCH IfF IXEO AItGUMENT
TVPE FLOArl"G ARGUMENT
TVPE , UEO ARGUMENT

o"'e

TWO TI liES F III,..US
o F Oil K ODD,.I F A,..O K eVEN
SET ItESUU TO A~L NINES

SfT COallltT SIGN

~

FAt

GANIIA MINUSTIIO TIllES

Ruer IlROItun
MINUS F

I' PLUS

fWD

.ealtOl

,SAVI

-2404
I

SU8ROUTINES

,

GM1M2F

4

5 X

03400
OHOI

DC

ZERO"

PAGE

,ODD

01110
01180
01190
01200
01210
01220
01230
QUitO
01250
01260
01270
01280
01290
01300
01310
01120
01330
01)40
01350
01)60

ZERFAC

SET 3
Oll92

01160

TOFAC

SUtlROUTI ,..U

,00000

",',

61 J

"', .'!

MOVI IX PONtNT

t-

03422
03434
0344'
OH50
03452
03464
03466
03466
03471
0'419
03494
03496
0350.
OU20
035U'

5

06
47
J4

.

0'526
0)512
0"44 I I
035$' 42
0]55'
0155. ] I
U570 U
03512
01512 16
OUIl
OU79,
on... Z6
OU96 n
Ol601 19
0)620 49
OJU~

Ol. .4
oun
0)6"
OJ666
OJ66.
0)668

.
U

as
16

g::::
.u
ou..
0)611

Z6

02492
00400
00102

0
on51
DUll
00000

02491
00100
00000

OU8l
00000

00100
OQOOO

02492

0-J~9

2

1
02490
OHIL
02601
0)700
0)U6
02492
0

OIUI
2
2
0)626
00000

02195
00102
00100
00000
03631
01555
-2·-09
-noo
00000

0

Ot~'9Z

02565

6~2

.'

n!

IUD FOIITUII

II-D

SUI.DUTrIll!S

,99
01UO
8NF •• 24
SET P.OPU S1Gt1
II
01640
SF
FAC-Z
,ENDD
OIUO FHIISH OS
01 . .0 Fl nNO os
,FINISH+?
OIUO
II
01 . . 0
OORG
OIUO
DC
,0
28
-000000000000000000000000000
01100 FlHR DC
2
RR
01110 EH ,!(V
.lfF ·.24
,FAt
AM
, •• 10,UR CODE. UR CODE + I
01120
EI
,0101
.... 2
OIBO FMI
F IIINUS ONE
OS
2
0\1.0
~C TY F"FACOl2
Oll~O
WATY "ESERR
011100
,6
EUV')O
oORG .-4
01110
01780 F2
,0
DC
2
-0
,il 1<10 Kl
DC
,0
-0
,99999
01800 DUMMY us
,0)8~1
018\0 START
os
SU8ROUlI NES - INIT tAL SECONDARY LINKAGE
01870
1620 FOR TUN 11-0
018 )0
oORG SURT
OS
I
018'0
0lR50
,00
DC
2
-0
TFM FMON+U , '-START
01860
,I
01870
DC
2
,--3
-I
FMON
01880
8
01890
TFM FMoN+U ,--START
01900
DC
2
.1
-I
FMON
01910
B
01920
TFM FMON+U ,o-START
,*-)
019]0
DC
2
-I
01940
FMON
8
rFM FMON+U ,--START
01950
,e-)
,I
01960
DC
2
-I
FMON
01970
B
01980
TFM FMON+II ,_-START
01990
,*-3
DC
2

.-.

"

,-'I.

•

,--)

"

02000
02010
02020
02010
02040
02050
02060

-I
B

TFM
DC
-I
B

TF"
DC
-I
B

FMON
F"ON+U
2
F"ON
FMON+ll
2

"
"

,--START

02100
02110
02120
021 )0
02140
02150
02160
02110
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
0231>0
02310
02310
02390
02400
02410
02420
OHJO
OH40
02450
0241>0
D2470
02410
02490

-2

00099

JZ

03124
Ol490
0

A....

4a

00000

00000

a

21

01160
on6a
OJ71.

'4
II

OHIS
031 . .
03191
0)110
0)111
0111.

J4
)9
49

03186
02615
2
0)41>4
021>01
OH9K

02492
O-J-I
00102
00100
00000

03820
99999
0]851

0
0

038~1

0)851
D38H
0]854
03862

16

07165
2

-000]

0381>1>
03818
03886

49
16

0715.
071105
2

OOUOO
-0027

01190
03902
03910

49

16

07154
0111>5
2

00000
-0051

03914
03921>
03934

49

0715.

16

0716~

00000
-0075

01931
03950
03958

49
l6

07154
07165
2

00000
-0099

2

49

03974
03982

16

07154
07165
2

00000
-0123

0]986
0]998
04001>

49

07154

,--)

16

071105

00000
-OIH

04010

49

FMON

OURG '-1
TFM F"ON+II
DC
2
-I
8
F"ON
DORG 0-1
TF" F"ON+lI
DC
2
-I
FMON
B
rF" FMON+ll
DC
2
-I
FMON
B
TfM FMON+ll
DC
2
-I
B
F"oN
TF" F"ON+II
DC
2
-I
B
F"ON
TF" FMON+U
DC
2
-I
B
FIION
TFM FIION+II
DC
2
-I
B
F"ON
TFM F"ONHI
DC
2
-I
8
F"ON
TFM FMON+U
DC
2
-I
8
F"ON
TFII FMON+n
DC
2
-I
FIION
8
TFII FMON+n
Dt
2
-1
8
fNON
TFII FIION+U
DC
2
-2
8
FMON
TFII FIION+n
DC
2
-2
II
FIION
TFM FNON+U
DC
2

••

0]9102

2
07154

00000

643

1620 FORTRAN 11-0
02070
02080
02090

01100
DnU
Dnu
OJno
ona.
011n
OJue

•• -1

,e-START

,1

PAGE

SET I

SUBROUT INES

PAGE

SET 3

6

010020

,e-START

,I

,--3
,8

07165
2

-0169

04020
04028

16

49

0715.

0-000

16

07165
2

-0191
00000
-0215

,_-START
.1

,_-3

04032
04042
04042
04050

07154

,--)

04054
04066
040r4

49

,.-START
tl

110

071105

010018

,--3

04090
04098

49
110

07154
07165
2

00000
-0239

04102
04114
04122

49
16

071510

,--)

00000
-0263

,--3

04126
04138
04146

49
U.

07154
07165
2

00000
-0287

,I
,o-SURT
,I

04150
04162
04110

49
16

07154
07165
2

00000
-03U

,e-)

,--START
,I

04174
04181>
0419.

49
16

07154
07165
2

00000
-0335

,e-)

,--3

04198
04210
04218

49

,I

07154
0711>5
2

00000
-0359

,.-J

04222
04U.
042.2

4.

"-START
,I

07154
On65
2

00000
-OJI3

,'-START
,I

0.2 . .
04251
0.2"

07154
07165
2

00000
-0407

,W-)

,e-J

04270
04212
04290

16

07154
0711>5
2

00000
-0431

,2
,o-STAAT
,2

0.294
04101>
OU"

4'

0715.
0711>5

00000
-0455

,e-1

,a-START

01
,_-STAAt

t1
, --START

,-o-SURT

,.-STAAl

,.-START

.2

o.n.
aU"

,e-J

04110

2

"
"
••
"
••

"
••

"

07165
2

2
0715.
07165
2

00000
-0479

844

......
......
....
....

1620 PDI'I"" 11-0
A
S
S
S

01510

nuo

01510
01. .0

onso

"

0,.60
Dina
0"10
01190
03600
OJ6IO
0)610
0'6)0
0'''0
01e.!J0
0)"60
0)610

S
S
SF

"

A
S
A
Mil
80
Mil
80
TOM
O)UO
8
0)"0
OOlG
O'7CCI 'lOOSET TOIl
8NF
03710
A
03720
A
nHJO
8V
0)/"0
011~0
BO
TFM
0)7"0
01710
8
0)180 DALo!!G OSC
2.
01790
Dse
0
01800
DC
-146
03810
DC

·

0)820 DAFMDN DSC
22
01830
DSA

II

'"II1IP

,n
,PI
,n

F"",,I

,F

.JtlIP

GIl
"
1111011
.011

FLUl-1
Fill
FfIZ

lIP
2FIII
F

ooosn
II

DC
TFM
B
B

,

SHOlT
10RT
10GT
2

"

t7-"

,F

• F2
.05

."
,tt
,a'

,10.
,10,

II

FLN ENTRY POINT FROII FUI
fEXP 'NllY POINT flOM FU.

"

"

• 01. . .

...n

-1+'
2+F
-F
-1+"
F EVEN
NO, Il. TO DOOSEY
YIS, I EVEN
NO, ' l . TO OOOUT
YES, FKODD • I
F.OOO • 0

"
,1

,DUONG

.-11

0.010
04020

TRA

04030

TCD

04040
0.050
0.060
04010
040.0
0.0.0
0.100
OU10
ouzo
o.no
0.1.0
au 50

.....
FIX
FU
FXS
FXSR

.. "A FXII

. . no
04110
0."0
OUOO
0."0
0.220
o.no
o.Z.o
0.250
OU60
OU10
'-ZIO
OU'O
OUDO
aUla
OU'O
aUla
0 . . .0
OUIO
OU'O
aUla
O.JlO
OU'O
0..00
.0."0
..... 0
0 •• )0

FXO
HOlt
IISGH
FLOAT
FSI
FAD
FSO
FlIP
Fa
foVII
FUI
FAXI

'.22

001110 .-)
Dse 9
016100035
DSA STOP-I

a

S

INF

II
I
LO
I
Lo
a
0011'

on ••

"

0"'"

,22

0'5"

.'

0560.
05605

.0

05606

,16135

056"

• 00.

0561 •

""

•
•"
"

"
""
U

U
U
IJ

n

IJ
H

n

••
••

,

.."

05.22
05U.
056. .

.1
,6

SU._OUTINES

0157.

U
16

onn
on."
05.22
0051>'
DO'. .
2

."
••

,00101
,00102
,DOlO)
.016100035

5 II
-5.0.
1

5

5 x
-1098
1
16
U
U

06051
0605.
06010
06000

,FXi-1

,11

,FIS-I

.11

.FAC

II

,FIli-I

,11

IS CHAR POSITIVE

99

,Fat

II

FAC • FAC/J

,FIOR-I

• 11,

PAC • ·J/FAt

FXOI

CHAN4iE SIGN ON PAC

.1
,10.

IS ,ac

zeao

.U
.11

0]851
01151
0315.
0)16'
01111
an"
O]9oa
OJ9I.
0)U8
03911
on50
0396.
O19n
01916
0]991
0.010
. .0.0
0.020
0.012
oto.a
O'OU
Otos.
O.OM
0'011
0.0.0
1M 102

II

CHAHIII SIGII OIl ,At

,t,

au'.
0. . . .

SIT UP III I. COOl

,

sn VP ••R II COOl

IMUI
1M no
1M " I
1M1l.
1M 1. .

..

.u..11.

IIiSA •
11116 •

00565
00566
0222D

-56.5
-5591
00000

PAGE

).
]I

J6

.9

.....
1M1l0

DUll

1M',.
1M,.•

0604.
06044
060"
06058

647
10

00101
00702
00703
00000

•
5 II

0.057

ARITHIIETIC aLOC.
ARITH"ETIC I~DC' -. SECONDAR' LlNIAGE

00000
02U"
OU.I
o22n
01.00
01 ••9
-5519
-5590

"

SET J
05651
06000
0.000
06012
060a.
06036
060"
060 ••

,10,

A""

0""
OJ. .6
ann
02119
a ••••
02UI
a ••• "
0]51'
05506
05''''
on
..

•

DUll
OJI"
O)IU
OIlU
01111
02219
02219
00000
02U.
02219
0211.
OUU
000-1
00099
000-1
00099
00001
00000

OJ. . .
05H2
-JU'

IS

05619
05620

.D,,"oN

OU20
ann
0'."

U

05619

FlDIlI
'-1
BNF UGN1+'0 .fac",1
8
UGHI
OolG .-1
aN
,00
FAC
a
fLOAn
FSUI FAC
."1-1
I
"'01
,FAD-I
FAOD FAC
FADI
F"UtI; ,FAC;",
. . .ll
EI
.111
...
FliP!
I
·,·111
"N . EI
I
PDl
·.FA~
"L SAVE
".-1
IIiSA
,"11-1
'IIU
.FAII-I
I liSA
I
FAlIl

•
•.""

U
II

0560'

FaC
FXAI
FA'
FlAI
FISU+J2
FISIlI
FAC
'FIlii
99

0'''91
0'.'on06
onll
o,no
onu
0155 •
onM
onll
015'0

an"

1620 Fill TRAN 11-0
lAZO FORTUN 11-0
DoRG STAll
OS
I
,oei
eM
Fat

•
•
•
•

on..

,0146

06000

FI ..

OIUO
onu
OU"
DUM
OU1,
aU"
01."
01.1 •
0lU6
GlUI
0'.50·
O,U,
0'.1.

,0

"
IOU
IOGT
PRoGSJ

U
II

ona. II
nu.
onll u 01
• .,

DDFMDN

DORG .-4
DDItG 06000
34
BI
31
81
16
81

B

OU94

1I""I1A-'F
'61111A-1-"
1110-"."
'At-)-F

11>20 FolTUN 11-0
0)"0
0)940
0)950
03960
03910
03910
03990
0.000 I I

01111

JI

II

PAGE

liT I

,I

,F
.F

•• 12

,

03'100 SHOlT
03910
03920

,F

.."

038'0 DDFNDN DSC
0
5
03860
DC
J . . '5
)
03810
DC
-0.
03880
DSA FMoN-Sf>
OJ890

,'2

ODD SET
FKODO
,I
OOOSlToU
.-.
,0
'1(000
,ENTLN-.
,ENTLN
LNENT
UPENT
,EIITUI'

DC

038"0

,I

SVIIMI.'

-2)'J6
49

,.

••
II

00000
00000

3
OZ492
0.598
02••Z
"190
oa.92

,. .....

••
••u
••21
••
••
••••
••
••
••••
••
"
••"
••II
22

U

21

II

01
01

..
O.

.

••

18

OU.O

au"

OZ.92
OU"
00099
. . . .2
000.9

00500
00000

000-0
00000
OllTP
00000
0]90J
00000
02.92
00000
O]9U
00000
02.91
00000
0]9'~

a....

00000

0501 •
0.9, •

01'"

OZU2
050M

000-0
00000
O.06N
00000
0.00
00000

aZUl

OU52
0,.91
05152
01.16
on ••
02615
01.16
026&5
05. .1
02565
05. . .
olin
0"10
olin
06010

0-000

oa.to

00000
OONn
00000
001171
00000
oz• . ,
00000
0'1.

00000

IMUL
00000

8h

.n.

162Q, POUlAN U-D

0.440"a1l_
0"."0
0"-'0

"L

.'

F . .I'
PMON+H
2

I
"M
DC
-2

PMON
'MON+11
2

TFM
DC
-2

aUTO

O~"IO

0""'0
04500

•

OUIO
OU20
04510

rPM
DC
-2
8
TFM

0..,,,0
04550
0""0

DC

-2
8

0..,70
0""0
0"'90

r,M
DC
-2

0"600
0"610
0""'0

TAFE

B

04630
04640
0"65,0
04660

04750
04760
04770,
04710
04790
04100
04810
0'U20
04830
04840
04850
04860
04870

o"u.
a..nQ
O!foU2
OU.O

•• -STA~'T
.2

.-1

DUO.
OUI"

2

.·-SfAn
.2

,-I

0"111
O.UO
04l1t

FMON
,MON+II
2

•• -STAU
.2

.-1

OU.2
04354
OU62

FMON
FMON+11
2

,·-START
,2

.... ,

0")'6
OU78
OH16,

,·-STA"

..... ,

04390
0""0'
04410

'MON
'lION+ll

FMON
'MON+11

FMON
DORG ·-1
TFII FMON+11
DC
-3
FMON
B
DORG 0-1
TFM FMON+ll
DC
2
-4
B
'liON
DORG 0-1
TFII 'IION+ll
DC
2
-7
FMON
B
DCRG 0-1
rFM FNON+ll
DC
2
-8
FIION
B
DDRG--I
TFII FIIO~11
DC
2
-7
FMON
8
DORG 0-1
TFM FMON+1l
DC
2
-5
FIION
8

04710
04120
04130
04740

S""'loi

,.-.

.2

,2

0"~9"

,·-STAU
,3

onu2

aliI!!>

00000
-0479

0""
On65
2

00000
-0'01

16

011"
01165
2

00000
-0527

16

071."
07165

00000
-05'1

'"~
It

••

.

,

0-000

0'436
044106
04446
04454

49

01154

0-000

16

07165
2

-0595

0445'
04468
04461
04476

49

V 1154

0-000

16

07165
2

-0617

04480
04490
04490
04491

49

07154

0-000

16

07165
2

-0639

04502
04512
04512
04520

49

07154

0-000

16

07165
2

-0661

49

07154

0-000

01165
2

-0683

,e-)

04524
045)"
OU)4
04542

,I

04546

071'4

0-000

,e-,
,e-)

,--3

,e-)

••
,--1
,I

.o-START
.5

00000
-0"'5

-0573

,o-SUAT

,o-STAAT
,7

.,,.

on,,,

on.·2

-0")1

011'"

,I

,I

U
16

.
16

H

ou",
0,0,090,

011.5
2

,I
,o-START
,7

16

PAGE,
02U'
0",,,.,
011.'
2

It

0"'14
OU24
OU,,,
04H2

,I
,0-STAn
,4

.
06

••

,I

B

04670
04610
04690
04700

s",,,auu ••

LOAD I

••-Sf.. '

-, ,
,
TFM
DC

. " .... 1

64.J
"""

1620 FORTUN 11-0
OORG 0-1
TFM FMON+ll
DC
2

04880
04890
04900

sn 3

,· ... 3

FIION
,I
OORG 0-1
TFII FIION+ll ,o-START
,--)
,5
DC
2
-5
8
FMON
OORG 0-'4
1620 FDUA,A" 11-0
ARITHMETIC BLgtK - SIIBI\OUTlI'IU
BP
YIS
"32
II
"
TF
,F.Z
FAC
NO
II
8
FIXf!'ID
OORG .~3
TO
IIU-I
.FAt-2
StORE SltH
,K
C
FAe
IS.CH'.:;IUTER,THANK
II
8NH . • • 44
1110
II
TOil FXERR+25 ,1
YES, . 5" EAR. TYPE
II
,,519
TFII EI
,9,
SET, U'.E', 'DYFL INFIX
fAC '~ F1I9
'
8
FXNINE+12,
II
DORG 0-)
FAt-2
CF
Tf
8ETA
.ZER0-51
CUAR 'PO UEA
B

04950
04960
04970
04910 FIXI
04990
05000
05Ql0
05020,
050)0
05040
05050
05060
05070
05080
05090
05100
05110
05120
05130
051"0
05150
05160
05170
05110 FUI
05190

.....

O~200

05210 'FURL

ouao

,

FIlii

.

T,

TF
5
A
TF

0+30
0+11
OUMMY
FAt
8
MU
00'" 0.,.4

BV

i'"

.llt$,PF
.FAC:
.FAC-2

"

"

ALlGNdl,.'£II!'~, IIOlilllS

"c
,,,,.1

8

FXi

DORG
$F
8
OOIlG
,SF
TF

.... 3

FAt

FXSR'I,U
.-.
1001111,
Fat

DOIIG .....
0
1110111.
IV
.. at
TF
'AC
II

Obi; .-.
II

rFII
'KNINET'II
TF

•

,F.St-1

.....

...".

,I\.p-&

II
II

' ••1111·

49

07154

0-000

11>

07165
2

-0727

04590
04591

49

07154

00000

0~i91

0451>8
04571
04511

OU86

46
'6

••

041>30
02492
0].10

01100
02815
00000

m:~

25
24

0)631
02492
Oio"l
0)621
02615
04 ....

02490

ZIt
22

02490
02603
02'"
04764
Q416"

Z6
49

02492
036)2

00000
02716
02815
113298
02492
02490
112575
OOPOO

U

0.102
00000

01400
00000

02492

°lUI

00000
0)'25
00000

on.2
04116

00000
00000

OU'L

00000
000. .
099 00

0 •• 54
04.".
04UI
0. .90
0.'.1
O.,,!.
QUID

'""
••n

oU~2

2'

OU~.

:n~:'~~'lXeO"DJ\lT.~,

04"i2
0"'19
04790
" •.,o2
DUO.
0.104
04",
0 • .,.,
O~I_'

11,4'"

••

OAt"

O. 6'
~~82

IItli.

04,. .

.n

'.n. ...

.•

e~'\_AJ~

::t.:~d·.f"

26

n

U

n

at
49

.,
J2

,.
JZ

..
t:r. ••
."'1 ••
... .,"
O~."

..11

16

..

On"
0

04' I
.~

,,!oUt
~

41

19

at

",,,
onn

ot...,

009,00

0~221

01100
00001
OON19
00000

.04910
0'492
0110 00

OJ2",

QJ9JL
0&400
OJU,Q
00000

.0a.U

"OON7I

01626

at 041 •."

QU"

12

-0705

0.,610
0 •• 22
04630

OU,.
I).t••'

~=IIRt)!t":;~r"'u::

OORG'.·'

07165
2

0+ "711
lin

.tll$'

.. 12

DORG .-.
CF
TF

16

04lU

811

.1

FIIOI

IMS,

PAGE
04556
04551>
04564

-5

049\0
04920
04930
04940

0521Q
05240
05250
05260
01270
05210
052.0
OUOO
05)10
05120
0.110
05140
05)'0
051.0
OU70
OUIO
05.,.0
05400
0"10.

,0-nAn
,5

SU8Ra.,TlNES

...

-,

DUO'
00.000

.~U

'1',,,,

-"".

I.ZO '.TUN li-D
0~420

FaDAI

D
I
0'410
05440
DOIIG
05450 UGH I III'
05. . 0
Cf
05470
II
0\410
DDAIi
054.0
SF
OUOO
81
OUIO
DOIIG
IIIF
05520
OU30
CF
0~560
88
DORG
05550
05560
SF
OSHO
I.
0\580
DOIIG
05\'0 PlOAn 8Z
n600
TO
05610
CF
TR
O~UO
O~6)0
TF
O~640
TF
n~b50
TFM
05660
80
O~610
511
0\680
A"
o'>l&qo
B
0\100
DORIO
TR
05710
05120
TF
05730
A"
05740
BNR
05750
TDM
TO
05760
TF
05710
057BO
I
OORG
05790
0580D 1'401111)6 TR
TOM
05810
U58Z0 ~ORM60 SF
051)0
BO
SM
05'~0
05150
B
05860
DORIO
TFM
05870 fADI
8NlY
05880
05890
B
05900
DORG
05910 FS8R 1 CF
FADD
05920
05910
8
OORG
059~0
SF
05950
05960
8
DORIO
05970

100".
FlOI.U
.-4

.+2.
PAC-Z

,PAC

.6

,'AC-2

II

FMPI

FOI

OYFlD

FDYRI

061~0 F!X1l
06150
06160
06110
061.0,
06190
06'200
06210
06220
062)0
06240
06250
06260 PSI
06210
06280
06290
06300
O.JlD
06320
06])0
06360
D6350
06J60 ODOREV
06no
06110

OU.O

06400
06410
06420
06UO
06460
0.450
0 . . .0
06410
06410
06. .0
0 . .00
06510
O"ZO
O'UO

TF
FMUL
8
DORG
TF
FDIY
INY
TOM
TF
TFII
8
DORG
TFL
TFM
8
DDRG
All
111'41
TF
88
ODRG
AM
IINZ
INF
TFII
I
DORG
TOM
CF
SF
MM
CF
10

··U
.-.

.-.

,fAC

II

FIXED POINT _ I ••

fAt

fAC

.-.
lUFAC

,

"

,PAC

.... ,.

PAC
IIU-9
FAC-Z
SAVE

,FlH
,'1SPF-1

.. n

,IITA-'

SAVE

,DUM'"
,I
,I

.-1)

.-16
.-3
FNH

•• n
.. n

·-12

.-1
FAC.I
lETA
110111160
.-3
FIIIH
FAC-l
FIIH
FINISH
SAVE
NOAII)'
'-4
EI
EUV+JO
UXY

.--J1
,FNH
,I
,DUll'"
,0
,IIECIIK

,11110-14
,FH
,0

,

,FNH
,I
.511

.
....

II

ns
STORE SIGIII

,II

to

,10,

CLUR 'FAC
CHAII • •
FIND HI OllOEII DIGIT
ADJUST CHAII

,611
It

..

FIND AND CLEAR RECORD IIARK

,6

,.

UPLACE IIECORO MARK
CLEAII lETA

,611. LEFT SHIFT ONCE
SET lAST DIGIT TO lElia

II

,'11,
010.

TEST LEADING ZEIIO
SUIT ONE FROII EX paillE lilT

,.,

SET UP ERR EI CODE

,6

.-~

FAC-2
,FSBR-I
FAC
FAol
.-)
"C-2
FSIRI+ll
'-6

19
FAC
FADI+U

.11,

SET UP ADD
8UNCH TO FLOATING POINT ADD

,lUOII
,fD-I

El

,7
,9SCP'
,9'

fAC-2
FAC

,II,
,II
,11 t

,II

SUBIIOUT II'4E5

.-Z6

..,.

ooaG
rP
SII
IMIl

,II

,• 00

,10 •
It

.FXI
,00

.10.

,IMIA
,111

",.,
"

,1

..

,05

CLEAR MULTIPLY AREA

fAt
100lla

PAC

• -12
II

024'2
ODOOO

44
U

05010
OZ490
00000

024.0
00000
00000

U
4l

02 •• 0
00000

00000
00000

••n

05050
OZ4'12
00000

OH'2
00000
00000

02"2
00000

00000
00000

03.22
000 ••
02492
025.4
02490
02U5
OU59
05192
02565
05159
05148

OI2DO
024'2
00000
0)2Bl
0285)
02221
-2594
99999
000-1
-0001
00000

0331l
05239
D5239
05216
05llR
02493
0260)
05)08 '

0515R
0))\3
-0001
99"9
00000
OHO)
D2693
00000

O)31L
02491
onlL
OH2L
02565

n

U

.
12
U

25

n

)I

O§lU

26

05126
05lllo
05141
05160
05172
05186
05192
05192
052D6
05216
05228
05240
05252
05264
05116
05284
05286
05296
05308
05HO
05332
05346
05)51
D5)52
05)64
05376
05)83

16
110

n

12

11
69
)I

210
11
4S

15
25
26
49

H
15
32
41

12
49
16

47
49

0538~

31

05396
05408
05416
05416

01
~,

)2
49

0521~

onOQ
00000
00000
onlL
000-1
00000

02615
0)19K
0)762

OONlI
01500
00000

02490
02492
05)'52

00000
0411l
00000

02490
05396

00000
00000

U

651

PAGE
05416
054U

2/0

0)

00079
02492

O~13P

05~60

~9

0536~

00000

26
09
15
26
16
49

00079
02492
05364
02615
02490
024'2
0)786

0)44N
0416J
01"00
00007
02795
000R9
00000

06
16
4.

02~92

04161
04162

0418N
-2565
00000

11
41
26

02515
05618

4Z

.

00000

000-0
01200
02825
00000

11

02492
05674
05616
0Z615
04932

000-0
01200
02515
OOPll
00000

15
n
3Z
lJ

05191
0J611

00001
00000
00000
000-5
OOODO
00099
DOOOO

,f"

,, f "
,IIISA
.11Z

,'Xl

IS I • ZElia
"0, tQNT I NUE
YES, J •• I • ONE
IS J • ZERO
110, CDNTlIIIUE
YES. THEN IS I POSITIVE
ilia, ER Gl. 0 TO MINUS I POIIE.

SET SIGN POSITIVE

,10

05146

It

..

I EVEN

"

I ODO
J NIG. SET SIGH NIGATI YE

"t'

J·.OII-ONE
U I POSITIVI
NO. 11111 GZ, J TO "INUS I POIIER

to

PAC. nl

,9.

lIT UP E••oa

,fAC

STIIAE

,
,

05504
05516
05521
05540
05547
05541
05560
05572
0551.
05580
05592
05604
05616
0561.
05618
05630
05642
05654
05666
05674
05616
05686
05"1
05110
onu

Dun

,flllllo-l2 ..

,01

0"468
05~80
05~92

,99

..

.... .. ,.
IIU

OU'L
D4194

SET

CLEAR MUL TI PLY AIlEA

.10

,FDVR-1
.SAVE

.... .
.-9
FAC

2'

05~)5

ERXV+2~

.-4
FAC
FD-I
FD
.-4
IMSA
o+Z'
FAC

..

PAGE

1~

0)44~

05~67

79
FAC
fA01+12

, flea.
.-J
In.
"

.lEROM
,FMP-I

M.64
04'"
M.n
04914
0 . .94
05001
05010
05010
05022
05024
05024
05036
0504'
05050
05050
05062
05064
05066
05016
05088
05100

05~21

.-~

..,.

Tfll

I

.-.
fAC-Z

EI
flIIINE
.-J
ODDIIEYtI
IIU-I
lllSA-l
IMSA
IIISA-l
·+20
•• 32
I
OOIlG .-J
8NF
SF
IIU-I
tF
Fit
NOP AXJ
t
Fit
IE
MU
'"F
TFII II
Tf
Fit
TFII fllII ••• O

II
M
Sf
Tf
All

sn

fLOATIIIG POINT fllUMI.II

1620 FORTUN 11-0
05980
05990
06000
06010
06020
06030
06040
06050
06060
06070
06010
06090
06100
06110
06120
06130

SU."OUfillU

lalT

~

.10,

on54
0515.
on..
05111
ontO
ci580z
0581 •
0,.,.
05UI
05150
05162
0'''4
05l1Z
OSIIZ
OSI. .
0190•

onu

.IUA

,DO

.6&0 • Tin DV'L

,H'

,9,

I •• iii, OVPL III PlXI

U

4f

16
6'

02515
025710
D5754
05111

4'
32
U

05790
OJ631
OZ4.2

41
Z4

44
I.
Z6
16
4'

06112
02492
01632
0,.12
02615
02492
OJ626
01596

I.

OZ60J

n

.
..
12

JJ

11

Z6

OS"•

46

on"

0257~

U
4'

01930
019102

os."

02~91

n

16

onn

OJ6J2
02.'2
OJZ9L
02492
OJ2811
0""
01615

02492
OOOQO
DOODO
DOOOO
02125
OUOO
02515
00P12
02115
-)6611
DDDOO
02492
000-1
01200
02603
00000
000. .
000-0
01100
oop13

{.

152

0"') ~ '},

"'v
-,

!tzo roltTUN
TDII FXE."25 ,I
06no
I
FXNINE
06560
DOItG .-~
0.,71) FUll All
,00
III"
IIU
011"0
06590 ONE"C
FAt
.01
06600
TF
FAt-2
.ONIZ
a6610
II
OORG '-9
06no
•• 44
06630
10
.FNM
INF .-14
.IIU
0".0
rFM EI
066'0
0. . . 0
I
OVFLO
06670
OORG 0-3
06680
TF
SAYE
• FAt
061190
TO
FAC
,FAC-2
0.700
CF
FAC-2
TOM FAC-I
,0
06710
TOM OOOREY+I .9
06720
06730
B
PSI
06HO
OORG '-3
FAC
06750 UJ
TF
.SAYE
06760
FSL fNHM2
,fAt-z
06170
TfM EI
.775
06780
8NF NO DIY
,IIISA
06790
CF
IMSA
06800 RECIP TF
79
• ZEIIOM
06810
TFl SAYE
• FAt
rF
06820
FAC-'
.ONU·'
TF~
,01
06830
FAC
06840
FOIV fAC
, SAVE
06850
BNXV NOOIY
TF
,FAC-4
06860
FAt-2
B
ERXY
06870
06860
ODRG '-3
06890 NDOIV TFL GAM
,FAC
06900
SII
IMSA
,01
06910
8Z
-+68
06920
Tf
79
,ZERO"
FMUl FAC
06930
• GAM
06940
BN~V HOOIY+12
06950
rF
FAC-2
.fAC-1t
06960
ERXY
B
06910
DORG '-3
06980
TF
fAC-2
,FAC-4
06Ha
8NF ENOO+36 .MV-l
07000
EHOO+H
B
DORG '-4
07010
07020 FAXSI AM
TAfE-2
,DO
07030
8l
ONEFAC
.+.".
07040
80
• fNH
ONF FINISH+I , TAFE-'
07050
TFM EI
07060
• 177
07070
B
OVFI.:
OORG '-3
07080
07090
TOM OlWR+l
.9
0.5~O

.. n

""

11-0

to

....
.n. ..
....

.

,

,10.

.10.

,lI,
.9,

..

••

.9.

.Il.

IS I ZUO
NO, tONTINUE

YES

FAt • FLT "

8NF
TOM
CF
TOM
TFM
B

-.36
.FAC-2
,I
OLWR+I
fAC-2
fINISH+2 ,9
FINISH+7 .-.20
LNENT

01260 OLWR

OORG . - )
TOM FINISH+2
Tfl'l FMP-I
TFM
EUY+30
FMP
B
OORG '-3
TFM EUV+30
EXPENT
B
OORG ·-3
TFM ERXV+30
NOP FINISH00

HM
DC
-I

•

071>10
071>20
071>10

TFM
DC
-I
8
TFM
DC
-I

071>40
071>50
011>60

•

07670
07680
01690
01700
01710
01120
07BO

DOlG
TfM
DC
-I
8
DOlG
AM

071".()

8

017~0

TFM
DC

07760

'MaN
, MOH+ I I
2

8
TFM
DC
-1
8
TFM
DC
-I
8
TFM
DC
-I
8
TFM
DC

07800
018\0
01820
01810
07 . . 0
07850
07860
07870
07880

tl

,I

,.-STAU

8
TFM
OC
-I
8
TF.
DC
-1
8
TFM
DC
-1
8
TFM
DC
-I

07920
079}0

01940
01950
07960
01910
01980
01990
08000

03"1
03.91
04001

•• -J

081QO

08200
08210
08220
08210
08240
08250
08260
08210
08280
08290
08300
08310
08320
08330
08340
08350
01160
01370
08380
01390
08400
08410
01420
01430
08440
01450
01460
01470
0 . . .0
08490

07154
07165
2

00000
-OIU

07154
07165
2

00000
-0147

07154

00000

0711>5
2

-0169

49

07154

0-000

II
49
II>

02492
05012
0711>5
2

000-0
00000
-0215

f·-)

04032
04042
04042
04054
0401>1>
04074

,--)

04011
04090
04091

49
,I>

07154
07165
2

00000
-0239

04102
04114
04122

49
\6

07154
07165
2

00000
-0263

,e-]

0412.
04131
04\46

"

07154
07\65
2

00000
-0287

,e-)

,.-START
,I

04150
04162
04110

49
16

07154
07165
2

00000
-OUI

,e-)

,·-srART

..

041H
041 . .
04194

49
16

07154
01165
2

00000
-OB5

-)

,--3

04198
04210
04218

.9
16

07154
07165
2

00000
-0359

04222
04234
04242

49
16

07154
07165
2

00000
-0383

,e-)

04246
04258
04261>

H

01154
01165
2

00000
-0407

,e-)

"

,.

,00

.lO.

,*-)

IS FAC ZERO

, .-START

tl

, .-START
,I

, .-START

,e-START

"
,I

FMOH
FMON+II
2

, .... START

FMON
FMON+II
2

,e-START

FMON
FMON'II
2

,_-START

"
,I

"

\6

16

11

655

1620 FORTRAN 11-0
08010
08020
08030
08040
08050
08060
08010
08080
08090
08100
08110
08120
08130
08140
08150
08160
08170
08180

4.

00000
-00. .

II>

fNON
fMON+ll
2

fMON
FMON+ll
2

01912

II

07lH
07165
2

4'

-\

01890
07900
07910

o).n

,--J

..
..
.."

PAGE

04010
04020
04020
0402.

,.-START

.

fMON
fMOH+I\
2

0)911

,.-STAIIT

FMON
FMON+II
2

fMON
fMON+II
2

o)no
,e-J

01912

FMON
FMONOII
2

-\

077 70
01780
01790

SIT )

,.-SUU

,I

FMOH
'-1
FAC
IHOAT
fMON+lI
2

SUI.OUT 1111$

019)1

fMON
'MON+II
2

fMON
'-1
fMON+l1
2

II-D

SU8ROUTINES

FMON

PAGE

SET 3
04210

49

01154

00000

04282
04294
04306

26
49
26

04281
00000
04305
00000
04329
00000

18

WRITE ALPHAMERIC
WATY
WAPT
WACO
RATY
RAPT
RACD
!TYPE

TF
8
TF
8
TF
8
TF
8

SWF
WATYI
SWF
WAPTI
SNF
WACDI

OHU

4.

04))0
04142

26
49

05861
05498
05861
05518
05861
05518

04154
04361>
04311
04190
04402
04414
04424
04424
04436
04446
04446
04454

2f>
49
26
49
26
49

05861
05862
05861
05882
05861
05902

04353
00000
04377
00000
04401
0-000

11

05861
04598

-0003
0-000

01165
2

-0595

49

07154

0-000

,--)

04451
0441>1
04. .1
04471>

16

07165
2

-0617

49

01154

0-000

,.-)

OHIO
OH90
04490
OH9.

16

01165
2

-0639

"
,--3

04502
04512
04512
04520

49

07154

0-000

II>

01165
2

-0661

04524
on14

49

01154

0-000

II>

07165
2

-oln

04546
045"
045"
04514

49

07154

0-000

16

01165
2

-0705

04511
OU7I
OU71
045 . .

'9

07154

0-000

II>

07165
2

-0127

04590

"

07154

00000

, WAfY-l
,WAPT-l

,WACO-I
READ ALPHAMERIC
, RATV-I

SWF
UTYl
,RAPT-I
SNF
8
RAPT!
TF
, RACD-I
SWF
B
RACDI
DORG ·-1
AM
,3
SWF
8
ITYPEI
DORIO '-1
,_-START
TF" F"ON+11
,4
DC
2
-4
8
FMON
DDRG '-1
TFM FMON+II ,--START
,7
DC
2
-1
FMON
8
DORIO '-1
TFM F"DN+11 ,'-START
,8
DC
2
-8
8
FNON
ODRG '-1
TFM F"ON+11 ,.-START
,7
DC
2
-7
FMON
8
DOlG '-1
TFM FIIOII+ll ,'-SfAIIT
,5
DC
2
-5
FMON
8
OOlG '-1
TFM F"OIl+l1 ,.-START
,5
DC
2
-5
FIION
DORIO '-1
TFM '14011+11 ,'-STAU
,5
DC
2
-5
FIIOII
DORG '-6
1620 FDaTlAN II-D I
IIACIID 'Oil I
TF

•

..... •

,8
,8

,--l
,8

,.
,I

,--3
,I

,--)
,I

,--)

ou,.

16

04542

oun
'ORMAT .;. SUI.OUTINIS
n , . .UD AND IIIIITE

49

S5G

.-.

,.,11 POUlAN 11-0

SU,...YlIIIS

"
"

......
......
......

.-,

.-.

.-"

..

,

,

1620 FORTUtt 11-0

..

SUIROUT I NES

..
....
...'U.
"

.

••

.'

.61.

••••••
......

..
•

OU9I
04"0
O.62Z
0461'
0. . . .
0"'1
0.670

0"12
0"'''
0470.
047"

04no
04142
0.754
0.1"
0.111
04790
04802
0481'
OU26
04838
04850
048102
04814
04881
04882
04894
0490'
04918
049)0
04931
049)8
04950
04951
04958
0.970
04982
0"989
04990
05002
05014
05026
05031
05050
05062
05014
05011
05082
05094
05106
05118
05130
05142

Z'

IL

.,
Z4

Z'

I'

L6

4J
2'
26
I.

OS95.
osn,
0513'
0700Z
059"
0 .....
0.044
osn4
DU.,
02492
0'044

....

-

05953
0328)
02815
-4990

000-2
01300
-0002
OOOPO
01100
01200
000-0
01200
OOOKO
01200
OOOJO
01200
00000

49

00000
04888
0,,958
048U
047)0

0594N
06185
01300
-0001
00000

1l
49

02492
059H

00000
00000

210

02492
02615
05934

02815
00071'
00000

0)28L
03130
04042
05981
0598J
05814
02615
01018

00000
05316
05981
00000
02492
02615
00000
00000

03422
00099
02H2
02594
02490
02565

01200
02492
00000
0)28L
02853
OU21

.
12

14

..
14

46

14

14
4'
49

25
14
it7

12

16
U

32
26
.4
1)

06
.4

n

69
46
25

n

Jl
26
2'

PAGE
05154
OH6Io
05111
05190
05202
05210
05210
05222
05234
05246
05251
05210
05282
05294
05)02
05302
0531.
05326
05U8
05350
05362
05369
05310
05311
05.91
05491
05510
05511
05511
05530
055J1
05518
05550
05562
05514
05582
05513
05515
05516
05591
05100.
05100'
051010
0 ••22
D5U4
0510'"
056"
OllotO
0561.
OS6IZ
Olio"
Dnll6
05115

05111
05210
02565
05111
05166

-259'0
00000
000-1
-0001
00000

onlL
05251
05257
05234
05251'
02693
02603
05326

05171'
03313
-0001
00000
00000
02403
02693
00000

69

0331L
02491
DULL
03121
02565
05302

0330Q
00000
00000
OHlL
000-1
00000

4R

05038

00000

49

"

05924
05550

0-'87
00000

16
.9

059Z4
05550

0-181
00000

"

'5
2'
U

0592.
05953
06059
05923
2

oJOIO
00001
05922
00000

l6

2
05515
05935

"

n

12
11

49

H
26

.,
11

15

.,
25

26

11
15
32
U

12

19

0516J
059"
0'0)7
01100
05n,
-2492

0595'
0593.
05945
0594N
04882
04918
0594N
04918
0594N
04938
0594tt
05934
0.958

12

47

SET 3

TFM .+23
,8ETA-9
09060
_+44
09010
8D
FINO HI ORO DIGIT
SM
SAVE
,01
,lO, ADJUST CHAR
09080
AM
,01
09090
*-13
09100
a
'-3'
09110
DORG .-3
,.-))
09120
TR
FNH
,611
TF
.+35
,FNH
09130
FIND AND CLEAR RECORD MARK
AM
,01
·.23
09140
09150
BttR '-12
,0
09160
TOil '-1
FAt+l
09110
TO
REPLACE RECORD HARK
,REC"K
09180
TF
BETA
,lERD-14
CLEAR lETA
09190
8
INoR60
09200
oORG '-3
,FH
09210 .IIOR36 TR
FIIH
.611. LEFf SHIFT O'ICE
TOM FAt-l
,0
09220
SET UST DIGIT TO ZERO.
FNH
09230 IIIOR60 SF
.6
,HIH
09240
80
FINISH
TESI LEADING ZERO
SII
09250
SAVE
.1
.10. SUIT ol'lE FRDII EXPDI'IENT.
09260
a
INOR3'
oDRG '-4
09210
09280 IC0tI2 8
READ IF
.1
09290
DORG
'-4
09)00
11020 FORTUI'I 11-0
FORIIAT - suaROUT I NES
oDRG START+1647
09310
,0617
09320 WAlYl TF" MAX
09330
IIRTALP
a
09)40
oORG '-3
09350 N4PTl TFM IIAX
.0117
.1
8
IiUAl'
093'0
DORG .-]
09310
09310 IIACDI T'M MU
,laiD
.1
09390 NRTALP TDM RWEFSN
CaIlMOI'I FOR EACH IIRITE
.1
;,
TF
09400 RWA
oATlNH+Z .MAX-2
INITIALIIATIDN FOR IACH _0 DR WRnE
09410
SF
MAX-l
09420 REPSN DS
2
,--J
09430 MATSN OS
1
,--2
SET TO 1 IIHEN IIAT . . X HAS CONTROL
09440 REPSN] OS
2
09450
TFM .-1
,00000
.111
0 . . .0
TOM SNL+l
.2
,--I
09410 LDCD
OS
2
.LOC OF OEtlMAL AS SPEC IY FORMAT
09410 LOC02 OS
,--s
2
'NICE LOC 0
TFM MESERR+I
09490
.9
TFM MAX2
09500
.INH
09510
A
MAX2
• IIU
A
MAX Z
.IIAX
09520
09530
taNiINUATlaN a, IIIIA,ALsa USID A' Till laCN OUT'UT
09540
IIICDRD NOT TIRMIIlAUD IY COlltlLT IIACRO
TFM LAST
.INN
095'0
TOM COMI'SN
09560 RNAZ
.-1
09510 COIIPSII OS
,--I
.-1 ,aaHlIlTs.o lIlIIllRIS OUTPUT
TR
09510
II'IH-l
.STIERa.1
TR
INH . . .
09590
.STuaa
CII
MAX-2
09600
.116
.10
3
0.1010 NID'H os
,--I
ND. OP "P. DICITS INPlILD

,

PAGE

liT I

,n

NIDTHZ
,SlIP
01500 ITYPU
A
LAST
.NIDTHZ
01"0
085Z0
C
LAST
.MAU
. . F9
aUlD
8H
I"PLUS
01540
• LAST
TFII IR DIG+' .FAC
01550
Tfll Slit ADJ .IIIIITE I
OU60
01510
10
SIlL
.RIIIFlIl
TF
reRII
01"0
""IIK
TF
FAt
.FXl
08590
TFN SlIt ADol&lfAlU ....
01600
CHAR IY CHAR IS !lOVED INTO FAt.RIIOHT JUSTlFIED.UNTlL SIGN
01610
OR N CHAR '~E EXAMINED.
01620
ERROR F7 III LL OCCUR IF IIORE THAN K CHAR ARE AVAIL TO READ
08630
NIDTH2
08640 IRUD SM
.2
.10
BL
SNL
08'50
$M
INpLUS
.2
08"0
CII
.10
081070
.610
IN'LUS
IR DIG
IH
01680
8E
IR ILNK
081090
CM
INPLUS
.00
08100
.610
IR 8UIK
BE
08110
CM
INPLUS
.20
.610
08120
8E
I MlttUS
08HO
IttPLUS
08140
CM
.10
.610
08150
8E
SilL
ERR F1I
8
087'0
DORG .-4
08110
,INPLUS
.11
08180 IRolG TO
,TERM
08190
C
ERR F7 I
8L
08800
IR 01G+6 ,I
08810 IR8UIK SII
I RUo
08820
8
088)0
oORG .-4
FAC
08840 IMINUS SF
8
SilL
08850
ooRG
'-4
08860
,FXI
SET FIXED lERO INTO FAt
FAC
08810 ERRFTI TF
TFII EI
• 677
.911 • SET ERROR F1 IttOICATlOI'I
08880
08890
8
SilL
oORG
08900
,6
FPIMK
08910 REAol SF
TF
FL T Etto ,ICON2+6
08920
,LoC
089)0
81'1F FLOAT
08940
CF
LOC
,FAC
,6
08950 RUolF TFL LoC
BttF 8SIIF-12 ,EI
IR IF NOT ERROR TYPE FT
08960 ERF1
ERASE ERROR F 1 INDICATION
CF
EI
08910
8
ERCo"2
08980
08990
DORG
09000 IFlOAr 8l
lERFAC
YES
,Fat
STORE SIGI'I
TO
99
09010
CF
FAt
09020
,FXH
090)0
8ETA-9
,11
TR
FAC-2
,9SPF-l
CLEAR FAt
09040
TF
CHAR. K
TF
SAVE
09050
.K

657

20

1
15

-00000002

2
2
02U5
0'031
06031
0'031

00019
-'063
0592.
05924

"

05H6
05671

-6061
OOOOJ

Jl
JI
14

060102
06149
D592Z
3

0'240
06239
000-6

16

1•

21
II

11

a

858

16211 'IIAT"''' II-D
0.610
0.610
Ot. .o
0. ."
0. .60
0. . "
0 . . 10
09690
09700
09710
09110
09no
09HO
09750
097.0
09170
09110
09790
09800
09110
09120
09830
09840
09UO
091.0
09810

INI
IItlY
LAST
DS
ID
RADDIT TFN
I
til
INE
Bt.
TOil

......
ISIIF

R"Tl
RAtOl
ROALP
'IAX

09900 ••••••

09910 ••••••

SilL
INPLUS
RIIEFSII
IIIOTH2

......
OPG
LoC

sile

MAX2

I
ISII.
IDIIT
10GT
IIAX-a

0".
0-12

t o-,

.11 ......

t"U

••01 III'

..

.DUIIIIt-• • 7
.06
.&a

OS
TFII
I
OOIlG
TFII

""

ALLOIIS ;aOF SIIITCH .011 UTY

·

.511'

.n
•••

IR TD ADII INDltAnD BY FDIlIIAT SPEC.

••

.'

.'

DC
-0'

..

•

..

..

"

,--IS

RETURII ADD DF MACIID IN CONTRDL

,QO'

10IBO ENDFOII oAC
0
10190 INH
OS
10200
os
10210 IN
OS
10220 STZERD DC
-0
10llO
00
10240
00
10250
00
10260
00
10210
00
10280
00
10290
00
10)00
DC
-0
10310 fLURS DC
10110
10330
10no
10350
10)60
10370
103.0
10)90
10.00
10410
10410
104)0
10•• 0
10. .0
10460
10470
10410
10490
10500
10510
10520
10510
105.0
10510
10560
10170
10110
10590
10600
10610
10620

""'R IX

LDCADJ
MURXl

......
iUSH

SUSHI

SU8RDUTI NES

u

16

••
&.

n

.6
11

01100
00102

00000
I
OIiU
001 . .
00. .6
01922
os. . .
osno

ann

-U17
-6051
000-6
01100
00.00
00002

onn

01. . 1
01"6
OI86J
5
059211
0191.

-0001
01l6J
00000

••

16

05914
05914

0-181
00000

16
15

05924
01953

OJOIO
00000

49

05562

00000

05934
05945
0"'''
05953
05956
01951
0597D
05916
05911

41

06418
5
05935
1

00009

41

05994
00000
5
5

05513
00000

05982
05994
06006
06013
0601.
06026
060ll
0603.
06044
060 . .
06049

IS
U
49

05935
0601.
0604M

00001
05953
00000

15

05678
05981
5
00000

00000
00000

05lU
01151
05110
05161
01 . .2
05U.
01111
05112
0519.
01901
05901
01914
01914
059U
059U

1&
U
.9
16
.9

as

0-6"
00000

"

00000

)

41

n

49

00000

a

5 X
-2601
)

SET )

INH
,00'

06057
06060

.D

06061

,ENDFDR

0606)
062ll
OUll
06239

1.0
114
176
2

.IIIH+I1.
.00
.0246110
.02. . 110
.0146110
.Q2 . .ll0
.0"'. . 10
.02 .... 110
.014. . 10

.00

06240
06251
OU64
0621.
06211
06100
06112
06325

.0'

..
..
....

06327

..

..

un
LAn
LAn

.-M

•

....

"••

OUll
06n.
06346
06151
06370
06182
06190
0619.
06406
06."
0.430
0.".,
0. . . .
0.466
06."
06• •
06.91
06""
06504
065"
O6IU
06".
O6U6
06'.'
06IM
GIna
06'"
06. . .
O66aa
0. . .

22

5 x
-606)
3

D6063

·
I

PAGE
06057

OS
5
TOil MATSII
.1
IIACRO TO PIIDCESS ""'RlCIES
TOil SIIL+l
.9
TF
LDCADJ
.FPl
INf IIUIIlI-lZ .IIATRIJI-l
TFII LOCADJ
.00
.10
-)
OS
I
ADJUST LOt FDR IlATIlII
S
LOCADJ
.It
S
NUll IX-I • LDtAllJ
A
IIATIlIX-l .LOCADJ
IIETUIIN FIIOII SilL. EACH IIATIlIX EUIIENT
TF
.IIA TlIJI-I.
Lat
IIDVE AIlJUSTED LDCAT10N
SM
PAR
.1
.10
IIIE ..I.
TOil IIATSII
.0
INL SIlt+12
I.
DOIIG .-,
IIACRO FDII AN I/O tARRIAGE IIITUIIN DURING-A FOIIIIAT STUIIIENT
TOIl CDIIING+1 .9
10
SLASNa
.1I111f'S1l
III IF IIln .."
I
tDIIENG
DDIIG .-.
10
lOCI
III TD la.CI. If DUTPUT UCDIID ILAIIK
CII
DATINN+I ~-.0.
.10
IN
IIU'I
III If Ill'. "'-'!IIITEII OUtpUT
.FUIU
$II
.01
.10. allAH ILAIU_'AIII ••D OF liD RICOIlo
til
.00
.6.0
II
til
ust
.INN
IL
call IND

'"

'••"

onu

659

OC
-0'
DC

10110

2&

"'E
01"1
onM
oln,
on.a
on. .
on. .
Olnl
on'lO
05102
os. . .

06049
06051

1620 FORTRAN 11-0
10150 OATINH DSA
10160

1111 AT IND III' VAII'AlLI DUT I.e

FLY ENO-I.a
CONtROlS 'OSITION IN FaillA' SPECS
SIIF
.1

8
SWCAOJ OS
DoRG 1-4
DATDUO OSA DUDH

10140

SIT •

SlIP
.0
5
IIAX
.0. .7
.1
.OALP
'-1
IIAX
• 0111
B
IIOALP
ooRG '-1
TF .. IIU
.1010
.1
TOM IIIIEFSIl
.0
OS
4
,--I
8
IIIIA
OORG .-.
SilL IS A TIIIIIAIIY SWlTtH USED TD lUNCH TD THE PIIOPEI SDUIICE
TO DIUIN THE LOCATlDN THAT GDES IIITH THE FOIIIIAT IIACIID
I I FDR OIJECT PIIOGRAM
IIEING PEIlFOIIIED
NDP FOil IIEDO CoNTIlDL
FOIl IIAlR IX CCIIITIlOL
NOP IIURK
OS
5
WDRKING PDSITIDII DF liD RECOIID
,'I
TOM SIIL+l
IIATRII CDNTROl sns SilL TO 49
,_-4
os
1
• 1 FOII·WIIT. 0 Fall RD. FLA' FDII E
)
OS
,--I
10
SIIC+12
.IIUSII
NDP
,.-5
OS
5
TEMP ADR OF DEC " IN GMIIA
CDRE LOCATION TD IE USED
OS
5
AFTER LDC AlIR DITAINED I. TO PIIDPEII IIACRD
TOM SIILH
.2
. . 20
.III1EFSII
IR IF WRITING
10
B
SIIC AOJ
.6
DoRG '-4
SET TD REQUIRE OUTPUT
TOM eOIlPSIl
.0
tF
LDC
Till CE MAXlMU" CHAII FOR OUTPUT
OS
5

I

SIIF
IUTY1

09880 ••••••
09890 ••••••

09920
09no
09940
09950
09960
09970
09980
09990
10000
10010
10020
10030
10040
10050
1001>0
10010
10080
10090
10100
10110
10120
lOUD

All
TF

SUIAllUT IMiS

o.a"

1 X

2

a
114
176
2
-0
-0
-0
-0
-0
-0
-0

-0-0-0-0-0-0-0-0-0-0-0-0-0-02

0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

2

"
"

15
26
44
ZZ
2Z

Z1
16

12

n

III

.,••
11

...,••
..••.
u

16

11

n

5
05583
05935
06390
06406
06390
2
06390
06)))
ann
05911

00001
00009
0161>4
06333
000-0

0""
00000

02ZZ1
06390
06190
06)n
000-1
01200
00000
DUOO
00000

06657
0651•
06656

00009
05951
00000

0666•
06019
06612
01710
DIU'
olno
. .'M
01716
0. .11

0'''1
000-6
OUOO
O6l27
ooo-a
000-0
0&100
-IOU
OUOO

onll
06471
onn

110

sn
106')0..lIIl.-.T' t~ IOU
11l4~0
.....•
1,0"
10f050 tC)III~ •
"'I/A2-lI,
1\1'660 " < . ODaG e;"
.
-':0;610 ~
tM' !!AX-'

It=: C~!t'

:~L:'I foE

1.\1700

lOllO
l~m

....

•

fXIfG

'1,' liS

:m: ~:~~" ~~J!I
10760
10770
1011,0
10790

:m~
1012.0
10130
10140.
10150
10860
1081Ci
108.0
10890
t0900

l09l0
to.92.0
10930

10940
10950
10960
10970
10980
10990
11000
110.10
11020
11030
11G40
11Q50
1106.0
11'01,0
11080

n090

•••ItJ

.~f"~6

J

.11&

'.1.0

.'!I-.2

OIC S,HC 'LUS til'. OF ,aG

:=-1

uUo

IU~O ~aF9,

111.50
1ll.60
11170

.

RE.'· ~

8,

Rep~~~~

U
A

DO"G
t~M'
tF'
TFM
I

IISW,F.
REPSIj 1,

.S~

• 11

.~ • .

SIIC. AO.J
L4ST .,
£1
SWL

""O

DO~G

'-4

11190 XTYPE
11200
i12.10
1122.0
11230 EaCOll2
1121i0 WA2
U2S0

4M
A

SWF,
LAST

1.

DUU

.6

0_612
0 ...' •.

oUOO
00000

3
06617
. 3
06504

0000,2

067\1,6
0.145
06044
on.34

05583
05618
-6762
00000

05 .. 35
05678
5
OU61
OU61
06492

OOPOI
00000
-0005
Q586J
00000

49

05861
05582
1
05838

-0007
000-1
01100
01200
0586J
01100
-0002
0586J
00000

32

05584

11
12
46

0"........

05861
05585
061 ..0
05826
05585.
06&7.

000-7
000-1
01100
01200
0586J
000()1l

I.
2.
16
49

0.044
05736
02.\5
05 .. 34

-7078
06037
00079
00000

Ofo"~
oun

06695

,!I

81\

0561,

06.676
0661.•.

;111111,.D+l
TIUt.E MOOIFIED tll'RACTEIIISTIt
.
8
SLASII+U
QQlIG e-4
REDD~" REDO '+".IIIAl SI(
to, IIEOOA+2,) .COVIII
""tRO PERMITS REDOING SACK TO
~flll ~=~ ADJ .UDO A to
DOAG .-4
aEOOA TO,,: SIIL+I
.1
IIETURN FIIDIII SWL I F MORE DATA
to
TDIII COIIIPSN
YD,ID IIEDO USING SWC EFFEtT 0" COMPSW
TEII~
oS
5
REFEllNee AOR I" 110 REtORO
SWF
TF
SWF
.ll
a
SLASII
OOIlG '-'"
••••••
".tIlQ Tl!. REPUT fQ~"AT SPEtS , SPECIFIC NO OF TIMES
••••••
SU.JRO'" U, SW. lNIT1~LLY SET TO ZERO
••••••
IF RIPS-W NEG • SET ToaEPS REIlD AND REPEAT FORMAT
••••••
IF 1I,1;51i ZERO, LAST FOIIMAT REPET IT ION IS COMPLETE
IF iEPS-W PLUS. stEP OQWN A"O REPEAT FORMAT SPEC
'.7
~EP
AM
SWF
SM
tiEP SW
.1
.10. tONTROL REPET IT 10" OF F IELOS
811
REP Z
aE
8SWF
ARE, SW
~SWF
.ll
aNIl SSWF
REPZ
SM
SWF
TF
SWF
.11
8
SW~-Z3
DORG '-4
~Hl
sF' REPSH3-1
oS
5
w~
WORKING AREA ADR REF TO FAt OR GAM
All SIIF
.10
.10,
$",
RSpSII 1

111,0'0
IlUO
11120

!;
••

Ofo"~

0f0,.,6
06,6,61

to!lUIl
e';'"

J

~'~I

o.,.u

.7

;CX~~M

2 "

M.CRO Fall EIIROIl F9 WilEN WRITING

•67,' '

06697
06698
0670.
06710
06717
06714
0673P

06742
06754
067.61
06762
061n
067"
06786
06798
06810
06817

06818
06830
068"2
06854
06866
06878
068 .. 0
06 .. 02
06914
0.921
06922
06 .. 13
0.934
06946
06958
06970
0698Z

01001
07002
07014
0702 •
07038
07045

..

n.
"9
43
25

I.

49
15
15
11
26
..

11
12
46
46
Zl
41

12
26

=:t~ ::~:~

..

112611 ,
1121'0
Cit"",
ll280 ,.,,'

11290.
I i300 OPT
ll3l0 OPT'IZ,
1132.0
I 13 IO,.'
llHO
il3S0

a

aSWf

.3
.SW.f

"
•. ll

DORG '~4
RCrV.
OS
WATY DUOH

W,O~KIIIG ,~U

ADR REF TO FAC DR GAM

l.eTY
D.S

tR.

~S

os

5
11~1

"O.l/lfl.• O, CIlARACTERISlIC
IlES,IOlifiS REt ORO MARK

ssw,H~

TEll" LOC; OF OEt PI IN OUTPUT RECORD
T.EM" ¢l OF OEt PT IN 110 Rit. -2

5
5
08000.

070."6
07058
07070
07077
Q7078
07084
07090
07102
0,n08
OH1_
07126
01\"1

It.
21

66f

0'

~+Z2

U3{0,
11,3$'0' A3

OOIlG '-f'Dse 9
01,4330n

1139,0

os.~

flit

080"5

qaoo,!

08,11'"
0804'
01105.
0.8000

.

TIIA

ll410-

TCD

""O~

II
21
'"

058"1
05n"
05.8Z6

-0003
0586J
OOIlOO

]to

00000
o
02607
00000
5
QZ616
05814
5

00102

)9

34
Jl
"9

onu

~

4,3,

00000

PAGE

OS
OOIlG
38 .
16,

ll3~0

0000.0

5

SET 3
MACRO FOR SKIPPING FIELDS

00000

ooo-e
,

07142
08000
08000
08012
08024
01032
08032

00100
00102
06326
00000

5

5

31
36
49

08032
080'32
08.046

3~

-U54.
00000
0,0000

.

00702
00.703
00000

5 X

U

00500
00000

1142,0 ~.ttt1tt,~",

UHO ",,"

~~:~~ ., .. "
1l'V'0

IS tllAI\, "os.nIY.E

U4'lO,
llU()

11"90: .
11500,
llnCk'
11520

llno,
1154.0 ..
llSSO'
11560 '
ll570
11510

116~0

02492

000-0

O!l;O94

001100

01165
2

-olin

07154
07165

00000
-0051

OJatO
On02
03910

49
U

039,1A

,-.,STAU

03'l~

U
U

~l

,e""S,'U.

.1;

11590
11600
11610

n:w·

)

1"
49,
16

.'1

.,e-STAlI'

,,1II0fil
FZMOII.~l,

0311.51
038.51.
03154
03.1.66
03.1.8
03816

.,~"S,

03934

07U+'
01165.
Z

:;;: ::

~m; ~::;;

113962
Ol'll"

07U4
0.716'

03U'

OnN

,•.

~"'IT,

-l"

2

O"1lA!
OJ""
0,0""

••
U,

1.
4.9

000110
-0075

'2

2,

00000

~Oln,

0,71$. 00000
01161, -Ol.47
Z

U20 fOUIA," II-D
11650
11 . .0
IIUO
116.0

8
DORG
Tfll
DC
-1
8
OORG
TFM
DC
-I
8
TFM
DC
-I
8
lFM
OC
-I
8
TFM

11690
11700
11110
11720
117)0
11740
IIno
11760
11770
11780
IIHO
11800
11810

i.lt

-1
8
TFM
OC
-I
8
TFM
DC
-I
8
TFM
DC
-I
8
TFM
DC
-I
8
TFII
DC
-I
8
TFM
DC
-I
8

11810

118 )0
11840
11850
11860
11870
11880
IU90
11'100
11'110
11920
11910
11'140
11'150
11'160
11'110
11980
119'10
12000
12010
12020
12030
120100
12050
12060
12070
12080
12090

TF
8
TF
8
TF
B

fMON
0-1
'liON' 11
2

,o-STAAT
,1

FMON
0-1
FMON'l1
2

,o-STAAT
,I

'liON
FMON+II
2

,e-STAR'
,I

FMON
FMON+11
2

12180
12190
12200 IIR \TEL
12210
12220
12230
12240

U

0115.

00000

,.-J

1.

on65
2

-OU9

U

07U4

0-000

...

O.OJZ
0.0.2
0.0.2
0.050

U

07165
2

-0191

4'

07154
01165
2

00000
-0215

t· e -)

04054
04066
04014

,.-)

0.078
04090
04098

49
16

07154
01165
2

00000
-02)9

.1

FMON
FMON+ll
2

,o-START
,I

04102
04114
04122

49
16

071510
07165
2

00000
-0263

,*-]

FMON
FMONtll
2

,--STAAT
.1

,.-)

04126
OH18
04146

10'1
16

07154
07165
2

00000
-0287

FMON
FIION+II
2

,o-STAAT
,1

4'1
16

071510
0116S

00000
-0311

,--3

04150
OH62
04110

49
16

07154
07165
2

00000
-0335

,*-3

04174
04\86
04194

,.-3

04198
04210
04218

49
16

071510
07165
2

00000
-0359

04222
010234
010242

49
16

071510
01165
2

00000
-0383

,*-3

04246
04258
0"266

49
16

01154
01\6S
2

00000
-0407

,e-)

,o-START

FMON
FMON+II
2

,0-$ TAR T

FMON
FMON+II
2

,.-STAIitT

01

FMON
FMON+Ll

•• - STAR T

2

01

FMON
FMON+II
2

,I

01

,.

)

,_-START

FMON
SWF
WATVI
SWF
WAPTI
SWF
WACOI

TF

SWF

8
TF
8
TF
B
OORG
TFM
DC
-3

RHYI
SWF
RAPT!
SWF
RACOI
0-1
FMON+lI
2

B

FMON
0-1
WA
WRITII
0-1
FMON+l1
2

12250
12260
1Z270
12280
12290
12300
12310
12320
12330
12340
12350
12360
12370
12310
123'10
12400

OORG
TFM
8
OORG
TFM
DC
-7
8
DORG
TFM
De
-8
8
OORG
TFM
DC
-7
8
OORG
rFM
DC
-5
8
DORG
TFH
DC

PAGE

SeT J
0.010
0.020
0.020
O.OZl

WRITE ALPHAMERIC
,WATV-I
,WAPT-I
• WAeD-1
RUO ALPHAMERIC
,RATV-I

1620 FORTRAN 11-0
12100
12110
12120
12130
12140
12150
12160
12170

SUIAOUTlNU

FMON
0-1
FMON+lI
2

,*-START

,3

,.
,--1
,8

,GAM+2

,8
,e-STAA.T

,7

,*-3
,8

,o-START

,I

,--START
,7

FHON
0-1
FMON+II
2

,0-SfART
,5

,.-l
,8

.--3
,I

,.-3
,8

,o-START

,5

2

04270

49

01\54

00000

010282
0102'14
010306
010318
04330
04342

26
10"
26
4'1
26
49

05861
05498
05861
Q5S18
05861
OS538

010281
00000
010305
00000
0"329
00000

01t354

26

05861

0"353

04366
0"378
04390
04402
04414
04424
04424
04432

49
26
49
26
49

05862
05861
05882
05861
05902

00000
04377
00000
04401
0-000

16

07165
2

-0573

04436
04446
04446
04458
04468
04461
04476

49

07154

0-000

16
49

0693]
04~98

-2557
0-000

16

01165

-0617

04480
04490
04490
04498

49

01154

0-000

16

07165

-0639

04502
04512
04512
04520

49

01\54

0-000

16

01\65
2

-0661

04524
04534
04514
04542

4'1

07154

0-000

I.

07165
2

-0683

04546
04556
04556

49

07154

0-000

16

07165
2

-0705

SET 3

,RAPT-I
,RlCD-1

FMON
0-1
FMON+l1
2

FMON
0-1
FMON+II
2

SUBROUT I NES

16

,--)

25

PAGE

663

26

2

2

~564

-5
12410
12420
12430
12440
12450
12460
12.70
12410
12.90
12500
12510
125Z0

8
OORG
TFM
De
-5

FHON
0-1
FMON+"
2

,I
,o-STAU

,5

•
.....
......

,*-J

FMON
DORG 0-4
1620 FORTRAN II-D I IIA FORII'" - SUIROUTINES
RnUI"! FRQtII SilL VIA Slit If IIAUIMG I TYPE
vaLUE PUT IN FAt IN I fOAII,"PANOED TO ALPHA IN
GaMII' RIGHT TO LEfT. HO tONTAINS AQtII OF HIGH ORDEl
DIGIT IN aAIl. afTeR VALUI IN aAII IS SlGIIED.tHECIlED
fOR IIIDT". IIDVE TO OUTPUT IIICDIIO.
12"0 ••••••
. .... 1 RnUL TS If VALUI TOO uue FOR fORMAT "Ees.
1254D III IT II TFM IIAZ
.PAC·I
TfL fAt
,11
I2no
• Lor.
12560
eN' IIR"2+12
12510
ff
FlXENO •• ,ICOIII"
FIX
12510
8

04561
0457.
0.51.
0.5. .

49

07154

0-000

16

071.5
2

-0727

04590
0.597

49

01U4

00000

0.59.
0.610
04622

••u"
••

07014
02.92
04666
0""
0)".

......
......
......
......

,'''-1

Dun
04.46

O.

-24'3

onu
02.'1
05104
00000

66 1,

1.U

In'o

DO."" .-4
116110 II.,H~ TOJ' "IXE,IIO.l
n
12610
0.\111-1'
11,620
"I! HO
IIA 2
UUON"'I
$"
S.I!
U640
II"
TO
IIA
12650
1266,0
80
I DIG
8
UUO
I. DlG.12
1l0RG .-4
121>10
TI'
HO
u..~0 101G
CF
G611
12700
OS
5
\2110 HO
BIIF IIUI
12720
12730
HO
12740
Bi\lE WilT SGN
HII, LAST
1lT50
B.
BSWF
12760
OORO .-4
12770
12180 WIITSO" 8ltF WRT 13
12190
51!
HO
12800
TF" HO
HO
12810 WRTl3 SII
12820
TF" OUT
12830
S
OUT
12840
C
OUT
BH
ER F8
1285,0
SF
OUT
12860
12810 OUT
OS
5
A
OUT
12880
OUT
12890
S"
Tit
OUT
12900
12910
TF" LAST
6SWF
12920
6
OORG '-4
12930
12940 ERF81 TR
DUD, H.lI
TR
DUO H+U
12950
CM
12960
OAlINH.2
TFII u+z
12970
12980
6l
Eit COli 2
TF.
DAlOUD+2
1299,0
TFM 10RT
DOOO
10PT
DOlO
B
ER COM
11020
B
DORG .,-~
D030
•• 32
BP
D040 IFIX
13050
FAC
TF
B
FHEIIO
D060
D070.
OORG '-3
TO
MU-I
13080
D090
C
FAC
1)l00
6NH
TOil FXER.+Z5
13110
TFM EI
IlllO
TF
FAt
13130
FXUR,
13140
B

'"

·.'6

POn~.H

11-0

OORG
CF
TF
TF
TF
S

'-3
FAC-2
8ETA
IIISA
e+30

.2
.III,U I-I
.81'~'1

.1

.IIA, 2

"tU
.11

.IIA, 2

..•

.IIA,

•••

.11

.IIA
• GAil. 1

• FA'
.2
• .20
.1
"GAil
.HI!
•. WIQTH 2

PUVIN,TS PUIIATUU TUIl.,POII HEG AaG
011· Ht OIlOIR. II!IN UIDi DIGlT

60a

e.18

13230

I3HO
13250 ICO~3
13260
13270 MASK.!

13280
13290
13300
13310
13320
13330 AS

.61,0

.FLlEll$~6T

.HO
,08
.61800

..

.11
.10
SETS ERROR F, AND EAASES REC MARK

.DATINH+l,

,,·,+23
,DATDUO,-4 .7

.

....

.F,Xl
.FAC-2
.11

.." ..

.1,
• 579
.FX9

YES
NO
STORE SIGN
IS CHAR GREA JER THAN II
SET EAR TV'E
SET Ell £9. OYFl IN FIX
YES. FAC • fll9

13340

13350

TRA

13110
13310
13390.
IHOO
IHIO
13420,

.......,.".,.

TC.O

....

SUI!IOIITI NES

CLUIi 611P, AUA
ALIGN DECiMAL. POINTS

.1

,01'''6016

OUIIt
04118
DUn
04'.26

16
49

05130
OSIU

OU38
04UO
04862
04814
0+186,

12
16
12

onn

04934
04946
04958
04910
04982
04989
04990
05002
05014
05026
050!8
05050
05062
05074
05086
05091
0509.
05.106,
0511.
05126
05126
05UI
05150
05162
05174

05186
05191

••

0.,26

02492
-0002
000110
-0001
-2·555
04769
05956
01100
00000

..
49

01618
02618
06059
02617
01018
06051
00565
00532
07018

OU60
0476R
000-8
07800
01300
06059
-5085
-6045
00000

46
Z6
49

05126
02492
01610

01100
02815
00000

n

03631
02.92 '
OSl06
01621
02615
02.92

02.90
022Z1
01100
00001
001'119
02805
00000

..
16
2'2

14

J2

21
12

11
16
49
31
)I

14
16
H
26
II>

14
U
15
It
26

••

on..

O~1]6

-u002
0416A
000-0
oono~

PAGE
05206
05106
05218
05230
05242
052.5.
05266
05HI
05290
05297
05U8
DUOS
05301

26
26
21>
12
ZI
26
4t

02490
02603
02515
05212
05212
99999
02492
0)611

00000
02116
02815
01298
02.92
02490
02575
00000

4R

0465.

00000

J)

665
28

II X
38
16
49

010)2
08012
08046

00702
00103
00000

9
5 X

.,
36

-]854
00000
00000

051,.
01162

16

011.5

113166

49
16

07154
07165
2

00000
-0021

01110 .9
0,3901, t6
0]910

0.7154
07165

00000
-0051

08045
010!>6.
0105.
08000

08000

G6UL
-2556
01200
01'000
00000

04U.2
04769
04761.
04769
04933
04913
04'U
04990
04913
5
04931
0.4913
0.91L
05130
05826

08045

('."T.v..

!l

OU90
0476.

08000
08000
0801Z
08024
08032
08032

1620,FORT~AN II ~D,f'~H,'nE
16211 FDURAN U,.D,
OORG STARr
OS
3
F!lONUI "-$TARY'
TF~
DC
Z
.1
•• .. 3

02555

SET 3

·.22

DORG ·-3
OSC 9
01 9466016
OSA FIX

13360

.ZE·1I0-51
.fXl
.IMSAPF
.FAt
,F,AC-2
.IMSA

06'U
00000

n

4"
I•

au"

.611
.610

.-4

8

04746
OU5I
04169
04.170

OUIl

.2
.00

0476'l

12

onu u

• HI ORIIER illiG AOR IN 110 RECORD. I TYPE

,HO,

U

12

04"6
04726
04U.

04'10
04922

.'.LAST

"

00002
05306
-25Se.
-0001
-0002
0701"
010.11
00000

It

27

04141

•••

.tooo

U
49

OlUI
02U6
04169
070.4
069))
0691L
04Hb
047S.

U
U

04"6
0. . . .
04.6.J1
0. .''''

onOl

.2

OUMY
TF
FAC
MU
8
OORO ',-4
B
WIlT 12
OORG
OAC 11,0000000000,,'
0000000000 •
OORG 08000
A5
38
.0010.2
A5
36
.00103
A

PAGE

SET J

O4UI

1620 FORTRAN 11-0
1315.0
13160
13170
13180
13190
13200
13210
1l1lO

SUtAOUT! HIS

00500
00000

FOlMAr"

'DIIIIU-

Sf~O!lOAIIY UN"'A"E

01151

olin

3
-0001

1

-I'

I3HO

B

UHQ,

TF"
DC
-I
B
TFII
DC
-1

13450
13460,
13470
13480
13490
IUOO
13510
H520
H530
13540
13550
U560

uno

13510

I

TFM
DC
-I
I

TFM
DC
-1

B

'''ON
'IIONHI
2

,'-START
,1

,--I

2

,,-START
.1

, .-,

F"OIi
'''01'1+11
2

.1

'liON
FIION+lI

FIION
FMONtU
2

TF/4

FIION
FMDIlUI

DC

2

-1

•

FIIOII

•• -.STAIT

.•,.n,",

•1

OJ . . .

on.. ,
,.--J

•• _SUIT

,1

onn,

0 . ., .

DUM
DJ9I1
Dn,o

,e"J

0. . . .

••••

01'"
0 . .. ,

OJ'"
0.91•

••1.
••U

.
I.

••

l

07U4
01161
:I

00000
-ODn

01U4
011"

00000
-0099

onl•

00000
-0123

2

0716'
2
0711.

00000

66'6

'.20 'ORTRAN 11-0

" ..

13590
11600

DC
-1

F"ON01I
2

"-STAU
01

sn

I

FIION
OORG 0-'
TFM ,"ONo"
DC
2
-I
8
FMON
"ORG '-1
TFM FIIOHoU
DC
2
-I
8
FMOH
TFII FMOHo"
DC
2
-I
8
'MON
1'-1lil
• MON>I I
n,~
2
-I
B
'MON
HM 'MOHO"
DC
2
-I
FIION
8
fFII FIIONOII
DC
2
-I
FMON
8
T'M FMON+II
DC
l
-I
FIION
B
TFM FIION+"
DC
2
-I
FIION
8
fFM FMON+\1
DC
2
-I
FMON
8
HOI FMON+II
DC
2
-I
F.ON
8
HM FMON+ll
DC
2
-I
FIION
8

131>50
11UO
131>10
\l680
1)690
IHOO
IHIO
IH10
I H30
131<0
II1~O

13160
13110
13180
1 J190
11800
\l810
13820
\l8)0
13840
13850
13860
13870
13880
13890
13900
13910
13920
DBO
Il9"0
1 V~50

13960
13910
13980
13990
14000
1.010
1.020

H
8
f.
8
fF

SWF

wun

SWF
WlPTI
SWF

, .-STAAT
,I

,--I

14UO
14160
14110
14180
14190
14200
14210
14220
14230
142"0
1"250
14260

,I

fF
8
fF
8
OS
TF
8
DORG
TFM
DC
-3
8
DORG
fFII
DC
-4
8
DORG
fFM
DC
-1
8
OORG
TFII
DC

SWF
RAfYl
SWF
RAPTl
5
SWF
RACOI
'-1
FIION+II
2
FMON
'-1
FMON+1I
2
FIION
0-1
FMON+ll
2
FIION
0-1
FNON+1I
2
FIION
'-1
FMON+ll
2

HTYPE
•••••
E,tOIl

00000

01165
2

-01.9

.
16

2

01\54

0-000

'6

01\65
2

-0191

01154
01165
2

00000
-0215

01154
071"
2

00000
-02)9

n

,e-)

,e_)

0407.
04090
04091

n

,I
,'-STARf
.1

04\02
04114
04122

49
16

071H
01165
2

00000
··0263

,e-)

.0-STARf
,1

04126
04U.
04\46

49
16

07154
07165
2

00000
-0287

,e-)

,e-START
.1

,--1

04150
04\.2
04110

'9
16

01\54
071.5
2

00000
-0311

,0-$TARf
01

,--3

04114
0418.
04194

49
16

01154
011.5
2

00000
-0335

,--3

04191
04210
04211

n

,0-STARf
.1

01\54
07165
2

00000
-0359

,--3

04222
042)4
0"242

U
16

01\54
01165
2

00000
-0383

.a
,0-STlRf
01

,--3

0"2U
0"251
04266

49
16

0715"
01165
2

00000
-0401

0"210

49

07154

00000

04282
0429'
04106
OHlI
OH30

26
26
49
26

05861
05498
05861
05518
05861

04281
00000
0"305
00000
0"329

OH.2

n

05538

00000

01tl5"
OU66
0"31'
0"390
0'.01
0.402
0"'14
OH24
04424
0"']2

26
'9
26
49

0581>1
05162
05861
05812
5
05861
05902

04153
00000
0"311
00000

01165
2

-0513

p_-START

,--START

WR IfE lLPHlMU I C
,WATV-I
,lIlPf-1
.W4Co-I

SU8ROUTINES

READ ALPHAMERIC
,RlTV-l
,RAPT-I
,0
.RACo-l
,_-START
,]

,I

,--)
,I

,--START

."

,-3
,8

,_-START
,1

.e-)

.1
,o-START

,I

,--)
,8

,o-START
.1

C.
RWUSW
8
EF COli
OORG 0-1

n

PAGE

26
U

16

0"']6
04''''
0""'6
04454

n

0115"

0-000

16

01165
2

-0595

0"'51
0"'68
04""
04476

49

01154

0-000

16

01165
2

-0611

0 . . .0
044'0
044.0
0'491

.,

01154

0-000

16

01165
2

-0639

U

01154

0-000

16

01165
2

-0661

01U4

0-000

045'"
045)4

••

OU14
OU'"
04556

49

n

0"53
0 . .00

00000
0-000

Jl
49

05953
0"'00

00000
0-000

11

05161
051.2

-000]
0-000

05. . 1

-0001
O,16J
-0002
O,16J

"

04"6
OU61
04571
04111
04190
OUOO
04600
OUI2
04"4
DUM
046. .
0 . . .0
D46"
0"'''
0"'''

'I'
II
26

onu

,.
,. a,.,.
II

It

0"61
0,.01
05'45
0'956

1I
21

n

05116

onu

667

30

04.01
0-000

"

N"CRO FOil E TVPE IIUO AND 1111 IfE
RWUSII
,I
EFtO..
0-1
,J
SIIF
HTYPEI
OORG 0-1
1620 FORTRAN 11-0 IF-HTV'. FORIIAl - SUIIIOUTI NIS
AM
Sill'
.J
TF
,Sill'
WIDTH
.11
All
Sill'
.2
TF
,SliP
LOt 0
.11
fF
IN'LUS
fF
IIIDTH 2 ,IIIDTH
A
IIIDTH 2 .1I1DtII
A
LAST
,IIIDTHZ
LASf
t
Z

,II"

16

,--3

SF
8
OORG
AM

.un

16

04502
0.512
0"'12
04520

,I

•

16

SET 3

MACAIl FIII.f. TypE IIUO AND IIIIITE

ETV'E

49

01154

29

-0141

04054
04066
04014

,o-START
,I

FMON
DORG 0-1

....

onu

,·"3

B

FTVPE

'6

040]2
04042
04041
04050

, ·-$TART
01

WACO I

-8
8
DORG
TFII
OC
-7

14210
14210
14290
1"]00

04010
04020
04020
D40ll

,.-)

1620 FORTRAN 11-0
1_030
H040
1"050
14060
1"010
14080
14090 EF2SW
.14100
.. 110
14120
1"130
14140

'AGE
01"1
04006

•

136\0
11620
136)0
1).40

14310
1"]20
14330
14140
1"350
14]60
14370
14110
14190
14400
14410
14420
14430
14,.40
14450
1"460
14410
14410
14490
14500
14510
14520
14UO

suaROUllNIS

onJ6

05115
05115
0,.,.
060)1

668

f6ao

111

14'.~

Tlo'
S~

1."10
14"0
'4Ho

fF

mu

t,

luto

14620
14UO
\4640 tlOFCH
1,4"0
14"'0
14610
14610
141>90
14100
141\0
14120
14710 FCH"8
14140
14150
14160
14110
14180
14190
14800
14810
14820
148 )0
14840
14850
14860 HIiRT
14870
i4880
14890
14900
14910

TEll.

CHAIl

80

" lMi

I",t

Sl!

"If
C
at

' 'IiI

•0

~9

.00' ,

.fO

.1;lM!ji'

.H

.~IiI;FW

'A'

5I1C"O,t

"If

iREAD' "

tNPLU1

NI

elH".
'"PLUS
INP~US
tiD FCH
EflSN

• Oil

.nlh fL.'''t'''T~

.1
,'2

,to

LUllING It"""S

.u'S,
.efENIHlZ

Ii' , 8EFtSl/

OORG .-4
CM

dN!

IF ..

INPUJS

.20

~:+3,2

8,

tfFUW
0-4
,IIIPLU$

8(""'1(

CH"RA'CTER

~.'2

04961
04964
04916
04988
05000

.6i6'

.EF PLUS

EF1Sil
IIEF25W

14920

TFM

\iI,A

14910
14940
IH;O
\4960
14910
14980
14990
i5000
15010

TFM
TFM

\iA2

,F

.F

.lOt D'
.L,OC 0

.MAS~ 1'-1

.G·ut

,FAC-I
.eFMli

~IiiG'bJ

WIOtH

,2

SWl

.RweFSW

SM

flO

.8

TERM
WIDTH
SilL
DORG .:'4

.4

SH

15020 HTYPE 1 TF
TF
A

C
8NH
A

••n
u

26,

t6

u

1,6

~)

26
III
14
41

12
II
2'4
n
16
4t

..
14

41
16

14
H

01002
061"
0"15

01100
05136
-0002

06.n
000.'
00099
050ZIJ

o'uu
01(01),0

Dna

OHU'
OOO~O

0~9n

01~"2

on~Q

060"
Oll94'"
049Z0
on08
05945
05945
OU2$'
a.401,
Olln4

-4<068

000-0
01200
000-1
-0002
05116
OUOO
-5212
00000

0594N
04964
04401
05U4

OOOKO
01200
-4"12
00000

0594"

OOO,JO
01200
-4644
00000

49

05008
04401
05384

16
49

04401

,,(tf).q.2

05194

00000

16

11

OSQn7

0;008
05020
0;027
0;028
0;0'40
05052
0;01>4
05076
05088
05100
05112
05124
051)6
05148
05160
05172
0;184
05191

iEFTYPH1&

.10

8

15030
15040
15050
15060
15070
15080
15090

PAGE'
04'tGt
04120
on3Z
0414.,
04156
on. .
04180
04'92
048'04
04'816'
OUZI
04840
04852
OU"
04.76
0 •• 88
04900
04912
04'H9
04920
04932
04944
0~956

010

0-4
EF2SW
BEF2SW
B
DORG 0-4
LOC 0
t
BNH -+2,
TF
Loe 0
TF
lOCO 2
A
lOCO 2
GAM-511
Ttl

si<

,610·. PItOCfU "RSf NO'"

.fF MtN

EF2Sl(

ODRG
eM
8"e
TFM
8
OORG
TFM

8~f

SliT J'

.,.HIt

,,1

TF
TFM
C,M

flliHtiflWS

.lIf:01H

.A

TO"

TF.

14600

"'T~'N H"I)

.....a ,'

E_ ,t
1u.

IiIAeRO Foa HOLLER I Til TVPE
.SW~
.11

WI DTH2
INPLUS
LAsT
LA S r
*.32

RUD

tl

n

16
16
16
12
44
12
12

49

0560B
050f>4
,"608
05606
0;606
02496
Q6933
01084
06044
05715
0;914
06115
05115
05934

01J19

01100
02219
0;608
05608
05416
-2555
-2491
-44~0

000-2
05953
-0008
000-4
00000

AND NRITE

l~iSl
iNlI; liz
.MAx'

swf

24
H

26
26

.WIDTI1Z

ER COM 2
8
OORG 0-4

0595/0

0~8bJ

059~5

05736
05956
06031
01100
05956
00000

05192
05204
05216
05228
05240
05252
05264
05271

26
26
21
24
H
21
49

05272
05284
05296
05303
05304
05316
05328
05340
05352
05364
05316
05383
0538.
05396
05404

41
16
49

05304
04401
OB84

05953
-5356
00000

n

12
15

05956
05678
05826

000-2
00000
0\300
-0002
0586J
-0002
00000

05408
05415
05H}

05136

0513.
05212
058.1
01018

66!1

.T
1620 FIlRfUN 11-1)
15100
15110
15120
15\30
15140 HWRT
15150
15160
1517Q
1518.0
15190
15200
15210
15220 8EFlSw
15230
15HO
15250
15260
15270 MASH
15280
15290
15300
15310
15320
1513'0 A6

80
TFM
8
OORG
SM
TOM
Bl
AM
TF

AM
8

......
WIDTH

2

COMPSW
BSWF

SWF

INPlll$
I Np\.US
H WilT

2

ilQRG

0-]

O,$'C

9

oS.

15HO
15leO
(5)90
U'400
15410

.

.0

.2

• sw~

H

TlI Ifll REt FROM FORMAt REt

.'61 i

.HVPi;

,.-,

,.It'tPI+U-S TARt
,-6

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

leo

08000
08000
08012
08112~

0594N
05945
05304

16
16

07398
01165
2

49

07154
31

38
)'6
49

08032
01032
08046

5
-lU4
00000
\100M

011'000

2

.5

T"~"
Dt
-5

FMON+ll
2

15460
15470
15410
15490

I

"MON

FMiiII

OORG '~I
TFM "NDN.u
OC
:I

-,

,.-Sf•• ,
;~

,_·'lilAI",

',.5

Ejots'll
....'4

IIIU

-4534
-0749
00000

x
00702
00703
00000

36

'"

x
0050'0
00000

,.-'3

04134
0.514
04542

n

01154

0-000

,'.-:3

045410
04556
0056
0064

16

onllS

-0105

0456.

'n

0715"

0-000

o.na
on'6

16

onu

-0727

:0090
04600
046110

.9

0115.

00000

,t.

aUla

on..

••

-1'854
-4'56
00000

.',

••

....

.8 ...FiroN
001lG 0':'

t,..iIe.'J,+,}Ffll,
t"M l,nil'.W.IFT".

1',011""
0"".' "'fUtllOlirl

••

o.na

04621\
OUll

32

9

01045
oa04l>
OBOse
08000

DORG ·'-1

1>'011&

GSS.I

OiG4$

'8

8

11
26
II
49

0803'1
01032

~019~'i'0\ 7

1 uo~t1Rt.~.N 11-0 ,I:F~l'IT'tI>E 2
i iI'20 .l'illl'fR:Alj n':f)t!'-H'r,n2
DORG HyP£
TFM f'MilN+n ..... suU

Oc

PAGE

'FIX

15420
15HO
ISHO
15450

uno

wlllTe

;:2

-5

155'00
15510
15520
UUO
15540

,10,

l'RA

IS350
1H60

.2

-6
FMOII
8
OORG ---It
OAt . 3l.oaoC)OOOll$O'OOO~Ot10011000000006'
O()OOooo'O.o.ooooo'O'OooO~C)O'()OOOOO·
olfRG 08000
3'8
A,6
.00702
,'(jcm)!
36
A6
11
*+,2-2

01'1482017
\5HO

SET 1

.11110

otIRG ·-,It
TFM MBASE+5
FMDN+H
r:FM

DC

sunout I NES

.~W!Fh

HWRT
EF2SW
8EF2SW

16

01165
2

-0683

2

2

H.

051 ••

0440J

c;' "

"20 FOUUN 11-0
SF
SOl

In.o EF"IN
15HO EFPLUS
15UO EFfYP!
15590
15.00
151>\0
15620
U6)0
15640
U6'O

COl
8H
8E
CII
8E

1~660

8~F

15670
15610
1~690 EXP
IHOO
15110
IH20 EEXP2
15130
IH40

TFII
TOil
OS
CII
8E
CII
8E
eM

1')71)0

BE

1~160

nno
15180
15190
15800
15810
1 ~820
1~8J0

15840
158~0

15860
15870
15880

.01
CII

BE

EEXP22 tiD
SII
C
8NL
TO
,M
8
OORG
EEXPII TOOl
EEXP
All
SII
8

OORG

1~890

TO

15900 EEXPAO A
15910
8
15920
OORG
15930 LOGolG BNF
15940
S..
15950
B
15960
oORG
15910 EFOEC Bo
15980
TFII
TFII
1~990
TOil
16000
16010
SM
16020
B
16030
OORG
16040 EFD[G eF
16050
eM
16060
8NL
16010
TO
All
16080
16090 £FTERI! C
16100
BL
16110 EFENO BNF

99
CHAR
.1
I NPLUS
.2
INPLUS
.00
LOG DIG
INPLUS
.70
EF DIG
LOG OIG
INPLUS
.03
EF DEC
ERU7 E .RNEFSN
EXP
.000
E UP'D.I.I
)

I NPLUS
E UP
INPLUS
E EXP ..
INPLUS
E EXP

·.z.

WA
WA
INPLUS
EFTYPE
EFEND2

OU"

.10
• '10
.610
.610

.

.20

.610

tlO

.610

.97
.1
.TERII

.9

.9

CHAR
INPLUS
EEXPAO-12
EXP-I
.IIIPLUS
INPLUS
.2
EEXP22+12
'-4
E EXPAO.I.2
I~PLUS
.2
CHAR
.1
E EXP 2
'-4
EXP
.INPLUS
CHAR
.EXP
EF END
'-4
EF DIG
.98
CHAR
.1
EF 7ERM
'-4
ERRF7 E .91
.00
LOC 0
EFTER".II.EF PLUS
91
.-1
CHAR
.1
EF TERM
'-4
98
WA
.FAC-I
·.36

·

VALUE OF CALC CHU FOR OUTPUT

.610

.11

.10

.11

.10

.10
.10

..

.INPLUS
.1
• TERM

.611

,FNH

.11 ,

TRUNCATES LOW OROER OIGITS

ZUO CHECK

1620 FORTRAN 11-0
16120
16130
16140
16150
16160
16110
16180
16190
16200
16210
16120
16230
16240
16250
16260
16210
16280
16290
16300
16)10
16320
16330
16340
16350
16360
16310
16380
16390
16400

TFII
8
DORG
HENDZ S
80
SF
TF
SF
BNF
SF
8
DORG
ERRF7E TF
TO"
B
DORG
HRO
SI!
8L
AM
TF
A"

FAC
SWL

IMIO
16420

TRio

16430
16440
16450
16460
16410
16410
16490
16500
16510
16520
16530
16540
16550
16560
16570
16510
16590

......
.....

TCO

·

.6

.FLULP
.1

.11.
, U.

05232
05232
05244
05256
05261
05280
05292
05304
05316
0532)
05324

D522~

.LOC 0
.CHAR-2
,CHAR

.99

•2

.10 •

F PLUS 2 ZEROS TO FAt
SET ER F1 INDICATION SWITCH
REAO H FROM 10 REC TO FOROIAT RECORD

.611

.00102
.00703

•

onu

05348
05355
05)56
05368
05380
05392
05404
05416
05423
08000
08000
0801Z
0802~

.019499009

08000

1620 FORTRAN JI-D UEF-ATYPE FOI"I"
1620 FOURAN JI-D UEF-Anl'E FOR"'T - SECONDARY LI 11K AGE
oORG STAU
OS
3
CII
FAC
.00
.10, IS CH'R POSITIVE
8
EFFIX
TF" '''ONOU .--STAU
,.-)
DC
2
.1
-I
'''ON
TFII fIlON.U ,--START
,.-J
DC
2
.1
-I
FIION
TF" 'IIDNOl' ,_-STAU
.,.-1
DC
2
.l
-I
8
fllON
TF" '''DN+U ._-STAIIT

•

"

14
U
14
46
46
14
46

44
\6
15

00099
0110.
05945
0594N
05016
059411
05116
05016
059411
05041
0'324
04715
04997
)

0594N
04952
0'9411
04940
059411
04952
04884
07108
0594'
04984
04784
05945
04812

000 .. ,
01200
OOOKO
01200
OOOJO
01200
00097
00-01
06185
01300
0594N
-0002
00000

49

04991
05945
01108
04812

00002
-0002
000-1
00000

H
21
49

04185
01108
05200

0594N
04185
00000

44

05116
01108
05116

00098
000-1
00000

05324
05608
05194
00091
01108
05116

00091
000-0
-4644
OOOOJ
000-1
00000

~4

00098
06933
05116
0693L
069)3
05945
04656
05232

00000
-2491
01300
0594N
-0001
06185
01300
OHIL

16
49

02492
05934

OOORR
00000

II
4J
32
26

01108
05324
01101
02492
OJ3lL
059)4
02490
05934

05608
01106
00000
01\01
00000
00099
00000
00000

02492
02615
05200

0334Q
OOOOP
00000

05956
05826
05861
0586J
05945
05356

000-2
01300
-0002
0594N
-0002
00000

080)2
08032
08046

00702
00103
00000

14
46
14
46
14
46

43
12
24
46
25
11
49

15
11

12

12
49
43
16
16

15
12
~9

n
I~

46
2S
II
24
47

Jl
44
3Z
49
26

15
49

12
47
II
26
11
~9

38

36
~9

08032
08032

9

08045

5 x

08045
01046
0105'
01000

36
~9

0315'

onu
01l5~
on..

'4
49

-4534
00000
00000

3
02492
04686
01165
2

03U.
03. . .

\6

DU'O
03902
03910

~9

0715~

16

01\65

OJ9I.

49
16

0lU6

onn
03911
03950

))

00000
000-1
-0002
000-0
01200
OOOPO
01100
01200
000-3
01200
0'95)
00-00
00001

PAGE
05212

.2
.INPLUS
.2

J2
IZ

SET 3

.-~

FAC
EI
EFENO
'-4
WiDTH
8SwF
SWF
SWF
INPLUS
8
HRo
OORG '-4
OORG 08000
A1
38
36
A1
8
·.22
DORG '-3
OSC 9
019499009
OSA FlYPE

A1

SUBROUTINES

04U6
046. .
04. .0
04692
04704
04716
0472.
04140
04752
04764
04176
04185
04788
04.00
048ll
04824
048)6
04848
04160
04872
04884
04'96
04908
04920
04932
04939
04940
04952
04964
04916
04983
04984
04996
05008
05015
05016
05028
05040
05041
05048
05060
05012
05084
05096
05108
05115
05116
05128
05140
05152
05164
05176
05188
05200

.1011

.99

.-)

CHAR
ERR F1E
CHAR-I
FloC
FNH
SWL
FAC-2
SWL

PAGE

SET 3
OUIZ

.45

,.-2

SUIROUT INfS

671

34

00500
00000

000-0
00000
-0027
00000
-0051

2

07154
01165

00000

-DOli

2
~9

\6

07154
07165

00000
-0099

872

.1

.....

.... tTlIlT
.1,

••-J

Uta'OAfIlAN' U;.D
"'DO

;DC

1"'0

•

:1 •• 30

DC

2

~I

uno

T'II

-I

uuo

a

'"''

".~o

,JlC
-I
8
DORG
TFN
llC
-I

"'.''60
1. . 10
1. . 10
U,690
,6100

'liON
'11.+11

2

'".

'"ON+II
2

.... STAIIT
.1

FIION
'-1
'NON+II
2

'•• ~START
.1

a

16710
16120
16130
I6HO

'''ON
DORG '-1
TF" '"011+11
DC
2
-I
B
'''ON
TFM F"ON'l1
DC
2
-I
B
F"OIl
TF" ,,,011'11
DC
2
-I
B
'NON
TFM F"OIl+1I
DC
2
-I
B
FMOII
If" FMON+II
DC
2

16150
16160
16110

Ii.lao
16190
16800
16810
16820
16830
16840
168~,0

16860

-1
8

16810
16880
1,6890

TFM
DC
-I

16900
169'10
16920

8

TFM
DC
-I

169lo

8

16940
16950

DC

IFM
jj

16990
17000
11010

8

TFM
DC
-I
TFM
DC
-I

II

...

,

TF

11500

InlO

011'10
01165
2

00000
-0215

01H"
16- 01165
2

00000
-0239
00000

0"102
041,4
04122

49
16

"-START
.1

,e-)

04126
04138
04146

49
16

••

07154
01165
011~'

07165
2

,·-3

04114
04186
04194

49

"-HART
.1

16

01154
07165
2

FMOII
FMOIII+II
2

.... ,ST.:RT
.1

....

)

04198
04210
04211

4'
16

07154
01165
2

49

01154

16

0116~

U

01154

16

01165
2

FMON
""ON+l\
2

,.-nART

tI

, • ... 3

04222
04234
042"2

FMON
FMON+II
2

•• .. START

,--J

OU46
04258
04266

.1

~i't

"i

2

F"OIl
F"ON+lI
2

01154
07165

00000
-0281
00000
-0311

2

00000
-0335
00000
-035(J

00000
-0383

2
00000
-0407

673

SII8i1OUT', Nt!S

SET 3

WRltE4LPHANERIC
.WATV-I
.WAn-1
.WACO-I

··1

11.,0

'.9
16

,t-3

f'

1·1... 0 •••••
IFiOI

o.o~.

.... START
.1

,_-3

11460
17410

-0191

0"0"
04090
04098

..

F_

DOIIG '-1
TFM 'MOII+11
DC
2

-,
•
.,
•

0-000

01165
2

,e-)

',--3

11410

07154

16

,'-START
,I

.....,

11420
11430
11440
11410

.9

0406'
0401 •

11'
8

B

040;32
0"042
04042
/14050

••-3

••

Inoo

00000

-011.9

,--START
•1

•• -snn

~0141

01165
2

,--3

ALPHA"UIC
Sill'
.RITV-I
RArYI
TF
SWF
.UPf-1
8
RA'Tl
nuo
TF
Sill'
.IIACO-l
8
11160
RlCOI
11110
OORG • ... 1
TFM "MONon •• -START
" 17180
11190
Dt
2
.3
-3
FMON,
17200
8
.1
11210
OORG .~1
17UO
T'" FMON+II •• -$TART
2,
17230
DC
.4
-4
11240
8
FMON
.1
11250
OORG 0-1
11260 UllleF 8NF EF RDZ+U.LOC
11210
8
EF RDI
IUIO
OO~G '-1
17290
TF" 'MON+l1 ,.·stAAT
11300
DC
2
.a
-8
8
FMON
11310
11320
DORG '-1
11110 ATYPE 10M
Sill'
,3
113~O
B
.1
AnI'''
17no
DOItG
17360
TPM ~MON'lI ,-·STARr
11310
,e-)
DC
,5
2
11310
11390

00000

' 01154

•• -START
.1

~UO

-5

01154
01165
2

49
16

SWF
WATYI
SWF
WAPTI
SWF
WACOI

B

16

00000
-0123

16

04010
04020
04020
04021

, .... 3

.."
..

071'"
01165
2

04150
04162
0"110

TF

8

OJ9"6
03991
0400 •

...

,e-)

FMON

TF

03912

2

.1

JI
8

OJ9n

..-,

35

'AGE
Of."
«)""2

1'20 FDRTR'AIII II-D
17020
110)0
17040
17050
17060
11010
17080'
17090
17100
11110
11120
17130
17140

:;ny; J

'MON
F"OIl'l1
2

-I
161160
16'170
16980

1ut'O\tufil,

'MOil
DOIIG ',-1
TF" 'MOII+U
DC
2

,-

tl
."STAU

,s

.1
ff'

49

01U4

00000

04282
04294
04)06
0431.
04330
04n2

26
49
26
49
26

05861
05H8
05661
05518
05861
055)'

010281
00000
04)05
00000
04329
00000

05861
05862
05861
05182
05861
05902

04353
00000
04377
00000
04401
0-000

01165
2

-0573

.e-J

"""0 IU'-""'. ,Oll'lin ..'su.wflNts

'19

04354
04366

26

01,31.

26
49
26
49

04390
04402
04414
04424
0 ... 24
04412
041tl6
04446
0"""6

0445.
04~!s1l

4~

16
49

01154

0-000

16

07165
2

-0595

49

011'4

0-000

44
49

0.642

O'~81
0-000

044.0

16

on.5
2

04502
04512
DUll
0452.
OUI4

49

01154

0-000

1I
49

05861
0 •• 98

-000) ,
0-000

OUt. u

on,5
2

-0683

04'••
Od56
04."
04'"

n

01154

0-000

.6

01165
2

-0705

04.".

49

07154

0-001l

Dun

.

01165

~0121

011'54

00000

0'981
03616
OJU4

00000

044"

04" ••
04410
114••0

04491

04f42

0.51.

....SUU

CORG .-.
1620 'Oll~""
tF
LOt
TF
.f tON to'.
I
FIX

nullO.'

,--I

PAGE
04210

CM'S"

o"•.0
onn

u

04,.. n

eMIIO It

er.."

'I'

04~9'

36

-0639

i

OOO.O!)
~.,.

81"

IUD ,ga,U" 11-0
I15Z0

11 no l'IID2

11'60

11,.0 IIIflS

11"0

U570
11510
11590 EFFIX
11600

11"0

11610
11.,0
11640
116~O

11660
11610
11680
11690
11100
11110
11720
11130
11140
17150
11160
11110
11180
11190
11800
11810
11820
11830
11840
17850
17860
11810
11880
11890
"'00
11910
11920
11910
11940
11950
11960
11910
11980
119"0
18000
18010
180Z0
18030
18040
18050
18060
18010

ICON'

DDR' .-4
TDN , III"D> I
TFL LOt
,PAt

"

CF

ISIU'-U
fI

8

IRCDIII

IN'

.,

DORG

.-.

. . .Z
TF
FAC
B
F III NO
DORC '-1
TO
IIU-I
FAC
C
BNH -+S6
TOM FlUII+ZS
TFM EI
TF
FAt
B
FlEAR
DORG '-1
CF
FAC-Z
TF
BETA
TF
IMSA
o+lQ
TF
S
-+1.
A
DUIIMY
TF
FAt
IIU
B
OORG '-4
B
HRD
.-4
DORC

HYPE! TF
TF
A
C
8H
TF
SM
TFM
BD
TFII
B
DORe;
READA eF
AM
C
BL
BNF
CF
TF
S
RDA
8H
A
TF
B
DORG

.11

,
.FU
,"C-2
.K

.,,,
.,.,
01

.ZUD-51
,FXZ
.IIIU"
.FAC
."C-I
.111"

....
....
....
....
..

••

ERF1A

YES
110
STOU SlGII
I SCHAR GRUTIR THAN K

.9.

'-4

I NPLUS
II;PLUS
II;PLUS
READ A
RDAFL
LOC
LOC
WIDTH 2
ERF7A
LOC
LOC
fRF7S
.-4

SET ERR TY'E
SET U £9. OWFL IN FIX
YES. FAt • F.9

CLUR ADD AIlEA
ALIGN DECIIIAL POINTS

•I

.

.1
.TERM

.6

,ao

.6

.K
.WIDTH
.TERM

,,,

,

.611

11470
11. .0
11490
InOD
11510
linD

linD
11540
""0

11.

.1

t

.00
.2

,610
.10
.611

.HZ

SUBROUTINES

.F
.LOC
.FAC-I
•2
.F

......
.....

rca

.11

05171

.WIDTH
.LOC

.611

.02

.10

""
""
-I
DC

Z

I

-I
I

'liON

DC

'11011>11
1

4'
Z6

04111
0149Z
01610

01100
0211'
00000

lS
24
41

01631
02492
04198
01621
Olltl5
OZ492
01'''6

02490
02221
01100
00001
001019
02805
00000

024"0
02/>03
02515
04866
06864

11

••

..
U

16
Z.
49
26
26
2.
22
21
2.
49

026 .. 2
01632

00000
02116
OZ815
01Z98
026'2
02690
02515
00000

4R

04630

00000

26
26
21
24
46
26
12
16

05'56
05945
05116
05116
01002
06185
06185
0604.
05'34
06044
05934

0586J
05736
05956
06037
01100
05736
-0002
-5Z4Z
05953
-5026
00000

0594N
05945
05945
05026
OSI86
059U
0598J
05956
OH66
05981
0598J
04654

00000
000-1
06185
01100
OS"OI
00000
02815
02221
01100
05'56
0678N
00000

H

H

16
49

11
II
24
H

'4
H

26
22
46
21

26
4'

.K

0515.
05166

OUU
01000
01000
01012
01024
01012
01012

.00101
.0070J
.019501016

IS

...

02615
04654

OOOOP
00000

16
12
26
22

0598J
05911
05'U
05956
05122

000-0
000-2
0135L
02219
00000

l6

02492
05354
05981
05956
053)4
05'11
0611N
05826

059IJ
0"91
-0001
02219
01100
059"
05. . J
00000

••

05956

ooo-z

05290

00000

22

05956
05Z'O

02221
00000

n

08012
08012
01046

00102
00101
00000

...

.
..
.9
IZ
2l

21
26

..
...

16

9

4'

-]856
00000
00000

00500
0_

01151
01151
01854
OU62

16

1
01165

-0001

01166
OJI11

••16

0.045
01046
01051
01000

.-.

onl'

•I

,,-.

"Ita
0"01
.nl0

"-ITAU
•1

,_

OJU•

•• ·.TAU

..

0)914
01"6

18

5 l

01045

•1

.........

)7

675

onn
on,. u

onn

08000

FIION
'"O"tll

052.0
05102
05114
05326
OU. .

.-.

DC

00002
0249Z
OUI'
00000
00000

0'611

O"IJ

PAe;E
05166
05111
05115
051 ••
051.1
05210
05222
05234
05141
05241
05254

au ..

1610 'OIITUN 11-0 IFIIN 'OIlIlAl
1620 'OIlTUN 11-0 !"'II ,a_IIAT - UtDIIDA_Y LlIIUGE
DORC; START
1
OS
TPII FMON+II
•• -nAU
DC
Z
,I
-1
FIION
I
T'II FIION.1l "-STARt
-I
I

0 . ."
0....
046. .
04110
04111
04111
04110
04161
04154
04166
04111
04190
04191
0419.
04110
0412Z
06834
0684'
04851
04170
06182
04'19
06890
04891

DUI4
OU"
070,a

"

O.
4•

SET 1

SET fit Fl ERROR INO AND SWITCH

TRA

18190

11410
11420
11410
11440
184'0
11 . .0

TOil

0461.
D66)0
04662
D4n6
04, . .
04611

OU98
04910
04922
04',.
04946
04"'1
04970
0.'82
04 .... 4
05006
05018
05025
05026
05031
05050
05062
05014
05086
05098
05110
05122
05136
05146
05158
05165

.LOC
,FXl

PAGE

I

IIACIIO FOil A TYPE RUD AND WRITE
WIDTH 2 .SW'
• II
INPLUS
.LAST
LAST
.WIDTH
LAST
.IIAX 2
ER F'
TERM
.LAST
TERM
.1
SWC .OJ .N~ITE
SWL
.~W E' SW
SWC AOJ .~fAD A
SWL

EI
8
ERF7S
DORC '-4
RDAFL TFM lOC
SM
LOC
TF
LOC
WIDTH
S
B
ItO A
DORG '-4
WRITEA TF
BNF WA FX
SM
LOC
S
WIDTH 2
WRTA
8H
WUA 2
A
LOC
TF
TERM
ISWF
8
DORG '-4
WRTA2 SM
WIDTH
8
WRTA
DORG '·4
WAFl
WIOTH 2
S
8
WItT A
00R6 '-'1>
OORG 08000
18
AI
16
AI
8
-+22
OORG .-3
AI
OSC
019501016
18310
OS. FIX

U400

sn

IR ., NOT .....ga
" '7
.RASE UROR" "
11I01tATlO"

1620 FORTRAN 11-0
18080
18090
18100
18110
181Z0
18130
18140
18150
18160
18110
18180
18190
18200
18210
18220
18230
18240
18250
IU60
11210
18280
11290
18100
183\0
11120
11110
11140
11350
18160
18310

SUIllClUT'IIIS

16

2
0715'

onu

z

•• z
•• 0""
It

00000
-0027

01"4
01165

00000
-0011

01"4

00000
-0015

16

Z

876

,

let°
i,.o

:~

""~

-1

•oc·
""
•t"lt.

1'''.0

:::1~:

-~

I;~i>~o

... uo

DC

(1640

",. '1If1i~AI! I~·O

:=~,U

'.
2

'IIOII+U

a

uno

U6IO

.···stAlT

.1

-l

m::
lI'no

••

DQ~G

f;l!1I

DC

1':'20

1'&-760
18170
18710.

-1
8
fFM
DC
.. I
8
"M
DC

18790
11100
188,10

8
T'"
DC

18130
11140
18750

-i .

••.. S"U

Z

t,,:

1,1,60

...

'''ON.
'·ItO.·11

":1
I
,ItDN
ODllG '·1
fNDN+U
Il' 2

116'0

••••tAU

.1

Sit '"

osnl
019511
01951

••••

11196'
0).914

.--J

onu

•• -StAlT
.1

FIIDN.. I·
2

.,-5.TlU
.1

'liON
'''DN+.11
2

••:-~,u

,MO/ll
'''011+11
2

•• -nAn

.1

.1

.,
••
.,I.

PAGE
071 '"
on.!

00000
-01199

Oll'.

000.00
-DIU

a

0116!

z

03,9"
03991
040.0'

49
16

....

04010
04020
04020
040'1

49' on54

.1.

,--I

040.Jl
040.2
04042
04050

,e-3

__... __ ••-i

'''ON

·-1

SIItlC!II'IIIIS

.
It

UU4
011"
l

on65

:I

110000
-0141
00000
-01"

07154

0-000

16

07165
2

-01'1

04054
0406to
04074

49
16

071'54
on65
2

00000
-0215

04078
04090
04098

49
16

07154
071U
2

00000
-Oll9

••.. 3

F"D/II
FII,IiNHI
2

,--3

04102
04114
04122

49
16

01154
07165
2

00000
-0263

.1

FMON
FMOII+.11
2

"-S.TAIIJ
.1

,--)

04126
04138
04146

49
16

07154
0"1165
2

00000
-0281

FMON
FMON+U
2

,.-START
.1

..

04150
0411>2
04110

49
16

07154
07165
2

00000
-0311

-~

, +-STAlT
•.1."

,.-)

04114
04186
041'4

49
16

07154
01165
2

00000
-0335

,--)

04191
04210
OHII

4'
16

01154
07165
2

00000
-0359

,I
,.-$fAU
.1

,--J

04222
042)4
04242

49

07154
01165
2

00000
-031)

2
FNON
FIION+ll

,.-START

01lS4
07U5

00000
-0407

,.-S~Allf

S9

-1
8
TFM
DC
-I
8
TO"
OC
-I

18~.20

11130
18840
18850
'118'60
\8870

•

18880
18890
18"11°.
189.1.0
18'1.20
18930

'liON
FMDN+.II
2

•

FIIDII~11

-1

11'.40
18.,0
1",.0

TFM
DC
-1
8
TFM

18.10
1"10

'liON.
FNO.Jll+ll

TFM
DC,.
-'I·
8
TFlt.
DC

2

.o-START

F.IION

04246
0425.

\6,20 FOUIlAN. II-D
18990
19000
1901.0
19020
190~j)

1

•....

1'1~0

19160
1·9110
19UO'
1.190
19200
1'210
1.220

I.Zlo,
19241)
1.2511
1926.ci..
19UO,.
1'2~O'EFItIl,

192~0

19300

Inll!,

2
FIION

TF
8
TF

SIIF
IIATYl
511F,

TF
B.

SIIF
114 t OI;

•

TF
B
TF

•
•

TF

AL'HAMERI.C
,N&.T,Y·I
,w'~r-l.

N&~T\

511F.
UTYl.
SIIF
UI','",
SIll'

II.C'!:!

DOIG .-1·
TI'II· F~N+1l
2
.
Ot
-3
FMON
DDIIG '-1
TFiII I'IIO!l~U
DC
I
-!o
FIION
OOllG hi

, .IIA.C.p.-l

lIet,o .

.1l.l;Y~1

'"~'~~l

.

'''4~9."1

"-:-$'4I1'T

.J

•

•

TF~

D~

-7
'.
OOIlG,
TF
8
DOIIi

""
•
""

~IIQIlt,U
FMO,
.:-,
FLTEND
EPIINA
.;"1
I' MOI!I'J..1
2

.1

PAGe

04210

49

01154

00000

04282
04294
OHr6
0431.
04))0
04·342

26
49
2.
49

05161
05498
05861
05511
05861
055)8

04281
00000
04305
00000
04329
00000

04354
0436to
04,.,.
04390
04402
04"'l4
04424
04424
04U2

26
49
26
4"
26

05861
05862
05861
05882
05861
0,.02

04353
00000
04]71
00000
04401
0-000

16

07165
2

-0573

04""6
04446
0444.
04454

49

01154

0-000

16

01165· -0595
2

COlI'.'

•1

••-$UIT
,7

,.-.sun

19UO

.,OC'''"
• ,"MOlt

DO~G

194,0
19460 -4E,,511. 0$

'''ON
'·1

FMON+U
I

••-J

••
,--I
.1

,e-J

.,

.-.

.,

......

4'

.,

-

07154

0-000

01165

-0611

40

Z

04410
044'0
0"'0
04502
04512
OU12
04!U

49

01154

0-000

26
49

0)130

05432
0-000

••

07165
2

-0.61

04524
04U.
0.,'4
04544

49

07154

0-000

16

07""5

-068-)

045...
04116

.1

.1.,

•• -stAU

26
4'

04458
04""
044.6', 16
04'116

.1

•

-,""

f·-,S

.·-S,,~:r,

FMON
DOIIG. '-.1
~MIIIt+,14
,!
Dt
-5
FMON
DOAG '-1
FIION+ll " ••",Sf~1lT
DC
2
.S

1

,*-)

.1

I.UO
19340
19350
19160'

19410
19420

••
.1

• '-SUII T
,4

DC
-7

19440

SET 3

• VHAIIIERlt

19)1O'

19nO
19]10
19]90.
19400

SUIRO"UNES

677

04266

,.~)

.1

16

W~JJE

19040
190 0
190 0
19010
190.0
1909.0
19100
19110
19120
19130
19140

DC
-1
8

.
16

.,

OUOI

Z

07154

0-000

0"'16. l6' 07165
2
04'"

-0705

04561
04511
041" ;l6
OUI6·

'"

01.,.

0-000.'

07165
2

-0727

04590 4'
04'0a:.

07154

,

00000 .

US

IUD

fD~TIUIN

I1-D

SUIIIDUTllln

SET J

PAGE

41

......

19470
19480
19490
19500
19510
19520
195)0 EF"III
19540
19550 EFALPH
19560
19510
19580
19HO
19600
19610
19620 EFAI P
19630

1620 fOIlfUN 11-0 E'IIN FOIIIIAT - SUIIlOUTINES
E AND' "PE IIANTISSA IIIIITlNG,FLOAT AIIG If !lEQ •
COIIPUTE PEC "
IN GAil AIIO OUTPUT ncollo. IIIIV!
IIANTISSA DIGIT IY DIGIT, IIIGHT TO LEfT, FIIOM FAC
Tg IiAM, INSEIIT SlGIIJ CHECII IIIOTH, AND UIID.
III TD IIIIT F fDIl , TYPE CONTINUATIDN
TFL FAC
,11
• LOt
BNF EFLon
,fAt-l
TF" FLTEND-4 .20
,10
TF
DPT
.TER"
S
DPT
,Lilt D Z
TFM OPG
,GA"
5
OPG
,lOt
2
TF
OPTII2
,OPT
SM
OPTII2
,2
SOl
IIA 2
01
TO
IIA
,WAZ
,6U
196~0
CF
WA
,6
SOl
IIA
1"650
.2
19660
C
WAl
,FIII"F
8H
1"670
EF AlP
19680
TFM WA
,00
,610
19690
BNF EF CHKS
,FAt-2
1970n
TFOI IIA
,20
,610
1971U EFCHKS TFOI CKW
,000
,9
19120
A
CKW
,LOCO
10130
A
tKW
.FAG
19740
rF
CHAR
,ClW
19150
,F
S
CHAR
19160
C
WIDTH
,LOC 0
19770
BNL e+32
19180 ERF8ES TFOI RffSW
,ERF8E
19190
B
BREFSN
19800
OORG ·-4
19810
BO
e+36
,FNH
,II
19820
TO" FlTENO-1t ,-I
19830
TFII CHAR
,-099
,9
19840
BNF WRTFS
.RWEFSII
19850
WRITE E TYPE.
ASSEMBLE EXP IN GA" USING A MASK,
19860
THE CHAR AND SIGN.
MOVE LEFT GAM AND RIGHT GAM TO
19810
OUTPUT. THEN GO TO INSERT DECIMAL POINT
19880 IIRTE
,F
5
WIDTH
19890
BRANCH IF F LARGER THAN EFF WIDTH
8L
·+32
19900 WR TE25 TFII REFSW
,WRTE2
19910
B
BREFSW
19920
OORG ·-4
199)0
e+36
BO
,FLTEND-It
19940
S
CHAR
,WIDTH
19950
80
,CHAR-2
ERF8ES
19960
TFM *+47
.GAM
19910
A
,WIDTH
··35
19980
A
,WICTH
·+23
19990
TF
GAM
20000
8
WRTE2S
20010
OORG ·-4
20020 WRTFS TFM REFSW
.WRTF

......

o

,

,

1620 FORTRAN II-D
20030
200"0
20050
20060
20010
20080
20090
20100
20110
20120
20130
201"0
20150
20160
20110
20180
20190
20200
20210
20220
20230
20240
20250
20260
20210
20280
20290
20300
20310
20]20
20330
20340
20350
20360
20370
203BO

8
8REFSW
OORG ·-4
EFLOAT A"
FAC
81
lERFAC
TO
99
CF
FAC
TR
BETA-9
TF
FAt-2
TF
SAVE
TFM e+23
BO
·+44
SM
SAVE
AM
'-U
8
·-36
OORG .-3
TR
FNH
e+)5
TF
All
·.23
.
8NR ·-12
TOM ·-1
TO
FAC+I
TF
BEU
B
EN0II60
OORG ·-3
ENOU6 TR
FNH
TO" FAt-1
FNH
ENOR60 SF
BO
FINISH
SM
SAVE
B
ENOR36
OORG .-4
ICON6 B
EF AlPH
ODRG
·-It
BREFSW TF" MIASE+5
TFM '''ON+II
DC
2
-9
B
FMON
DORG .-4
DDRG 01000
31
A9
36
A9

20390
20400
20"10
20420
20UO
20440
20450
20460 A9
20ltl0

0+22
ODRG e-J

DSC 9
019524017
DU FIX
TRA

20490

TCO

......

,

,FAt

,FXH

,II

,9SPF-1
,K
,BETA-9

..

,DUMMY
,01
,01

.10.

,.-33

,611

,FNH

CLEAR FAC
CHAR. K
FINO HI ORO DIGIT
ADJUST CHAR

FINO AND CLEAR RECOIID MARK

.01
,DUMMY
,0
,RECMK
,ZERo-l4

.6

,FH
•0

,

..

,FNH
,I

,611, TESJ LEADING ZERD
,10. SUBT ONE FRO" EXPDNENT

REPLACE RECORD MAlIK
CLEAR BETA

.611, LEFT SHIFT ONCE
SET LAST DI GIT TD lelia •

,f>

,I
,HTYPE+2"
.HTYP!+2.... SURT

..-J

,9.

04614
0462'
DUll
04650
04662

04/114
0~616

OU98
04110
04722
04734

04958
01726
01108
05106

OHIL
OOOOJ
00-9R
05953

22
16
49

05715
05014
04601
05434

02219
01300
-"622
00000

43
22

05050

01108

03126
05115
01106
-2555

25

n

O~lU

12
24
46

0~110

04112
04194
04806
04818
04830
048"2
04854
0~866

04878
0~890

04902
04914
04921
04922
04914
04946
0,,958

04910
04982
04994
05006
05013
05014
05026
05038
05050
05062
05074
05016
05098
05105
05106

16
44
16
16
21
21
26
22
24
46
16
49

47

.01952"017

OIOU
OIOU

olon

01045
01046
DI051
08000

11.,0
11-0

dTl-f FORII"
IIIITI-f 'OIlMAT -

01131
01131
05916
05976
07142
01l~2

07084
0693L
0693L
06933
01014
04710
0693L
04818
0693L
06613

061>13
06673
01108

01108
05115
04922
04601

21
26
49

04902
05091
05091
05091
02555
0499"

16

04601

49

05434

00000

II

02492
03422
00099
02492
0259"
02490
02565
0'1233
05266
02565
05233
05222

000-0
01200
02492
00000
OUBL
02853
02221
-2594
99999
000-1
-0001
00000

0331L
05313
05313
05290
0531L
02493
02603
05382

0523L
0))13
-0001
99999
00000
02403
02693
00000

49

Ollil
02491
O)31L
0312L
02565
05351

OUOO
00000
00000
onlL
000-1
00000

411

04626

00000

16
16

Oll91

01165

-"602
-0151

49

07154

00000

II
J6
49

01032
01032
08D1t6

00102
00103
00000

J6
49

-3n4
00000
00000

It]

16

ZI

46
25
))

31
26
26
16
5
RHSW
5

.-4

•• 24
GAM+)
TERM
DPT
WEF OfC

SUIIIOUTI NES

SET J
0~602
0~614

.6
TEIIP STOllE FDII lelia INSUT ADDRESS

O~6l2

CHAR

.-.

2

CHAR-2
CLR105-12
OPT~?

OPT
WH DEC
0-4
-.+]·0

-+18

n

0~U4

U

04646

25

.CHAR-I
,CHAR

0~658
0~610

25

.2
.IiM+Z

04682
04694
OH06
04718
04725

.OPG

••

.611

,CHAA

2or~40

~.

.tHAft

] CASes FOR WRITING F TYPE.CHAR IS EXP-lOCo-F
CHAR IS NEG. EXP IS NeG
CHU IS NEG. EXP IS POSITIVE (WRTFPE)
(WRYFPC)
CHAR IS POSITIVE
,MASt< EP+7
GAII+1
F ZERO
.Fl TEND-4
ER F8 E .CHAR-2
CKW
.000
.9
F ZERO
,WIDTH
CKW
Ell F8 E
CHU 2
.CHAR
CHU 2
.CHAR
WRTFPC
.CHAR
*+3')
.GAM

··23

04601
04611

.

.CHAII-2

.-~

GAM
WRTFPE
LAST
OPTM2
W43
WA]
WEF DEC
WAl
FNCNEl
.-4
OPTM2

TOM
20950
20960
8
20970
DORG
20980 WR TF PE TF
T.
20990
21000
e
DORG
21010
21020 WR TFPC TF
21030
5
TF
21040
TF
21050
21060
C
21070
8Nl
A
21080

II-D

IMA$~

GAM>I
UF8E
GAil>'
GANO'

20820
TF
20830
8NF
20840
TF
20850
20860
TF
20870
TF
20880 FNCNEl AM
20890
BO
TFM
20900
B
20910
DORG
20920
20930 FlEJW
TF"
TF

IFU
I
.REfSW

,FAC

.G .... +2

.6

• GM2F

,6ll

tWA)

..

.10

,610

.~PT

.2

t

.11.

SET SIGN LEFT OF DEC PT
INSERT lERO FROM DEC PT TO
FIRST NON lERO DIGIT ON RIGHT

00126
04738
OH50
04762
04174
04186
OH98
04810
04822
04834
O~8~6

04858
04870
OH8Z
04894
04906
0.918
0<930
049~2

O~q'5'"
0~966

,olD •

• 70
.LOCO
.0

.11

,OPG
.OPG

.611
.611

F TYPE OUTPUT EQUALS lERO

• TERM

.CHAR l

.GAM+2
CLRTOS-30.TERM
CHAR
.lOCO
CLR 70S
OPG
,CHAR

04913
04974
04986
04998
05010
05017
05018
05030
05042
05049
05050
05062
05014
05086
05098
05110
05122

~~

is
26

H
49

11
4]
43
14

H
2~

46
26
21
44
16
H
16
44
26
26
26

PAGf

0460J
5

OH56

OH25

05226
02563
02561
04694
02551
0678N
071]P
05194

07106
07108
07107
07108
00002
02557
05970
00000

OH33

02556
04914
05226
06613
04914
06673
05226
06708
06708
05050
04881

03126
01106
00-00
01100
05715
01100
07108
01108
07108
-2555
0670B
00000
OH92
02557
0365N
07137
-0002

0~881

43
U
49

02555
05018
05730
0714K
04601
04601
05194
0460J
04930

16
26
15
4.

0714K
06708
07106
05146

OOOPO
05606
000000000

26

0714K
0713P
05194

05970
05970
00000

05080
05080
00000
05188
01108
05158
05976

06785
06708
02557
06785
05608
01300
06708

11

H
49

26
22
,26

26
24
46
21

H

-)854
00000

01191

0~60J

OOOPO
00000

68 f
-1

1620 FORTRAN 11-0

SU8ROUT/ NES

SET ]

21090
OPT
,DPG
TR
,611
TF
21100
CLR70S+30.lAST
e.15
21110 CLR70S TF"
,MASK FI
21120
A
e+23
,CHAR 2
21110
Tf
TERM
.6
21140 W,HDEC TF"
OPT
.03
.610
TFM
21150
LAST
,00
,610
21160
8
BSWF
21170
OORG '-4
lR
21180 ERF8E
DUO H+2I.Fll.ERS-'7
21190
TR
GAM+l
,MASK
Moves E+OO ALP~AMERICAll Y
21100
,FAC
TO
GAM+S
21210
GA,..6
TO
,FAC-l
2 t220
,451
Tf" GAM.3
.9
21230
aNF
-.2oft
,FAt
TOM
GAM+)
21240
.2
21250
TR
DUD H+13.G."IM2F
.11
21260
TF
DUD H+12.0UD H+llt
21110
DUD H+14.03
,10
Tf"
21280
eM
UATINH+2 ,0,8
010
21290
TFM
EI+2
.61800
SETS ERROR F 8
EUSES REC MARK
21300
EA COM,2
Bl
21310
TF
DA mUO+2 ,OA,TINH+2
21310
TFM
IORT
,,·+23
21no
IOPT
B
.OATOUD-4 .7
21340
B
ERCON2
11150
OORG, '-4
21360 MASK
OSC
10
.451010700'
451070100'
21370 MASUP OS
,""SK+l
21380 'USHI OAe
31.000000000000000000000000000000 •
000000000000000000000000000000 •
2139{)
DORG 08000
]8
21400
AIO
.00102
21410
36
AID
.00103
21420
8
-+22
21430
DORG . - ]
21440 AID
Dse
9
.019541009
019541009
21450
OSA
HTVPE+24

·

TRA

21470

TCD

21410
21490 FMON
21500
21510
?l520

DORG START-]+noo
Sf
FMON+9
RHU_N>6 ,STur
TF"
TFM
US_ll
.FIL-I
All
BAS-II
S14
FMOH+8
.1

21530
21550

A

21560

TF
SM

21570

·-2"

REfURM>' ,'140No11
A ~G[JUT+ 11 • UT URN.'

ARGDUHl101

02628
02556
02563
02561
02558
05310
02558
02620
02619
02621
06059
02611
07078
06051
00565

06210
05425
02492
OH91
00M51
02492
00002
01520
02621
000-]
000-8
07800
01300
06059
-HIT
-6045
00000

16
H
15

H
26
16

14
16
H
26
16
.9
49

00532
070T8

44

10
0

H x
08032

38
16

01032

4.

Oto ••
9

0'O~5

07114

.10

31
H
25
25

5

0715.
0116.
OT171
.10

05970
05736
-5437
06708
00000
000-3
000-0
00000

OIOll

0.000

.a

8HZ

0713P
05188
0519]
05193
0678N
0713P
05730
05826

OBOOO
01000
0.012
01024
08032

01051
08000

31
26
16
21
26
16
16
49

05U6
05437

010"5
01046

21460

21HO

PAGE
051H
05146
05158
05170
05182
05194
05206
05218
05225
05226
05238
05250
05262
05274
05286
05298
OHIO
05322
05334
05)46
05358
05310
05]82
05]94
05406
05418
05425
05425

..
16

00000
00000

onu

Ill21.

U

07\.,
01190

07U.

"

OTnt

OlU.

on,o

n

at
U

00500
00000

00000

OUT.

-lISI

OllU

-7)99

onto lu' onn
01202

x

-"02

.6

U

00702
0070)
00000

0127)
OTln

000-.
000-1
01200

01165
0717,
-0001

682

lt20 '011 TUM II-D
21510
21590
21'00
211>10
21UO
211>30
211>40
21UO
21660
21610
21680
211>90

All GOUT Tf
laS
TF
SF
T'"

•

10
TFII

1
RETARG TFII
RETUR~

IIDATA

21100

•

IOU

,·.23

10GT

.IIDATA
.flNDIN

·.'6
IOU

OOllG .-4
OSC 2
02
OSA llBASE-8

cc

21120

DSC
0

21130 MBASE
21140

OS
OSA

21HO

DC

2L71>0 F Il

21no

DC
8
-OOOOOH
DC
8
-00 Han
DC
8
-0033016
DC
8
-001>1>011>
DC
8
-0082011
DC
8
-0099009
DC
8
-0108016
DC
8
-0124011
DC
8
-0141009
DDRG 06000
34
B2
38
62
36
B2
8
-+22
OORG '-3
OSC 9
016835004
OSA FMON-56

2\930

TRA

21180
21190
21800
21810
21820
21830
21840
21850
ZI860
21870
21880
21890
21900
2\910 82

TCO

219S0

DENO

PAGE
01"Z
01274
012 . .
01291
OU10
ona2
OU).
01nt
DUll
07]70
onn
OU71

.7
.7
.6

.02

..""
JI

u

••"
"
4'

.0

45

n,99
'In ••
00000
-1)21
-U11
03527
-7351

0116'
OUU
OU91
ODU5
001. .
OUU
ODltl
00154
0721L
00000

-331'
99999
00000

5 •

ann

1 ••

-nil
1

onl5

8
FIX

on.)
on. .

.'

OU9.
01399

.00000033

01407

.00033033

01415

8
5 •
-)154
1
I

•
•

.00033011>

0142)

.0001>1>011>

01431

8

.00012011

0143.

8

.00099009

07441

I

.00108011>

01455

8

.00124017

0741>3

8

.00141009

01411

8

06000
06000
060U
06024
06036
06044
06044

.00701
.00702
.00103
.016835004

)4
l8

3.
49

sua"ouTI NES

06044
06044
06044
01>051

00701
00102
00103
00000

9

5-X

06051·
06051
06051

06000

Z.

01313
01314

1620 FORTRAN 11-0
21940

SIT )

,'+23

10SK
.OKOATA
UGDUT+11.0UIIIIY

21110

21110

SU."DUTINES

IIETAIIG+U.OUNNY
lllASE
.OU""Y
III"E-2

36

-7098
00000

n

00000

SET 3

PAGE
06010
01>000
00000

683

00500

00000

46

1620 FOIITIIAN 11-0
ARGOUT

"nEt

IEP2511
aUFSIl
CLUOS
COllADO
CDIIEIiID
COIIPLT
COMPSN
OAf MOIl
DUONG
OUOUO
oAT/IIH
ooFMoN
OIOOOA
oKBUFF
OK DATA
EEXPZ2
EEXPAO
EFAlPH
EFCHKS
EFENOZ
EHOAT
EFPLUS
EFTERM
EFTVPE
ENDFOR
ENOR]6
ENOA60
E~UB~

fNum

ENreDS
ENTOEO
ENTORR
E~rtxp

ENrFET
ENrFIO
EI'HREC
ENTSC I
ENrSC2
ENrsC3
ENrSIN
ENrSQT
ENTSWD
ERCoM2
EAF8ES
ERRFlE
ERRF71
EXPENT
FINDIN
FINISH
FIXENO
FlOAH
FLrEND
HULP
FLlERS

07262
041'1
05114
0'4'4

onSl
022)1

0 . ."
06".
0''''
OU9I
05!190
06049
06057
05606
OH81
02404
03379
0"860
0"'96
04626
0"818
0523Z
OH26

ou""

05176
04656
06063
05358
05]82
02323
02313
02]0]
02298
02293
0225]
0228]
02273
02278
02258
0226]
02268
02308
02318
02288
01078
04902
05]24
04958
03313
03527
03123
0]680
05064
03130
03348
06321

FMeNU
FxH1NE
GM1MIf
HT"El
lfLIlAT
IMINUS
IMU"
INOR"
/1I01t60
IIiPLUS
IItIi.NK
IS"MI
I TYPE I
LoGOIG
loCAOJ
NASKEP
HASKFI
MATRIX
MArU2
MESEU
MONell
NORM36
NoRM60
OODser
OODREY
ONEFAC
OYFlOW
PRDGST
RADOlf
REAOEF
AEAOIF
REPSW3
RE TARG
RETURN
RWEFSW
100MK
102MF
2FNI
96NF
97M2F
97MF
98MF
"MK
9SCPF
9SPF
AID
Al
A3
AS
A6
A7
AI
A9
ATYPE
AXJ
81

049)0
0491Z
onu
O'l.Z

O,Dea

04.11
0)291
05102
onz.
0"45
04.11
0])0)
04'"
05016
06390
05"26
05437
0613"
06"18
02601
00196
0521"
05308
05494
05790
06034
03512
02226
051H
04468
0~018

05585
01358
01370
05953
0]293
03343
0]581
03318
03363
0]]23
0]]28
03288
02795
02854
08032
08068
08032
08032
08032
08032
08032
08032
04512
06172
06044

1620 FORTRAN 11-0
ADALP
ROA
ROFCH
READA
READI
RECIP
RECLG
REtMK
REDOA
REDO
REFSW
REP2
REP3
REP
REPSW
ASGNI

05914
05122
04828
05026
04990
06232
02243
02403
06162

06118
04601
06890
06922
06818
05582
04984

END OF ONE ASSEMBLY.

ASGN
RWA2
RWA
SAVE
SHORr
SIX
SLASH
START
STOP
swe
SIIF
SWL
TAFE
TAN6
rEH34
TERM

0"020
05610
05562
02565
05622
03219
06492
03851
02395
05982
05861
05934
02535
032"8
03278
06785

SU'.DUTINES
.2

US
.ETA

ISII'
CHA.2
CHA.
CItIl
010
OPG
OPTM2
OPT
OUDH
DUD
OUMMV
EEXP2
eEXPM
EEXP
EFZSW
EFALP
EFCOM
EFOEC
EFOIG
EFENo
EFFIX
EFMIN
EFMWI
EFNW
EFROI
fFR02
EFWRT
EI
EHDD
ENTlN
ERF1A
ERF7
ERF7S
UF8E
ERF81
ERF9
ERRET
ERROR
ERXV
HVPE
EXP
F2
FAC
FADI
FAD
FAX81
FAX8
FUll
FAXI
FCHN.
FOI
FO
FDVRI

Ol492
05352
0"090
06""8
04258
06010
04234
04920
05468
04162
OSSItl

SU8Rour I NES

SET

TDFAt
TRACE
TRFX
TWoPi
TWOl
UNflo
WA2
WA3
WACOI
WACO
WAF X
WAPTI
II APT
WA
WArYI
WATV

03408
03496
03558
03103
03013
OH66
07084
0"601
05538
01t330
05354
05518
04306
06933
OH98
0"282

47

PAGE

SET
060••
01214
0260)
05126
0670.
07101
o66n
00116
05916
0714Z
Olln
OZ607
02687
9.999
0"112
04'''0
04.52
04"01
04710
04600
050it8
05116
05200
0"686
0"632
04602
044.0
0"598
04630
05028
02615
03688
02248
05166
05050
04654
05226
04990
07002
00602
03596
03162
04556
04185
0]818

FDY.
FH
Fll
FlU
FUll
FUI
FU
FIIODO
FLDlT
FLZU
FLl
FM1MF
FMI
FMFAt
FMoN
FMPI
FNP
FNHMI
FNHM2
FNH
FPUIK
FPZ
F
FS8Rl
FS8R
FS8
FTVPE
FXI
FX9
HAl
FXA
FXOI
FXORI
FXOR
FXO
FXERR
FIH
FXMI
FXM
FXSRI
FXSR
FXS
FXI
FlERO
GAM
GM2F
HNO
HO
HRO
HTVPE
HWRT
ICON2
ICON]
ICONS
ICON6
IDIG

041 . .
OUOI
07407
on. .
01510
OU10
OJ"4
0)'"
040U
on60
oU!n
OUU
onu
0)452
071,.
05U6
0"1)'
03351
03419
033U
03211
036. .
0221'
053. .
0"114
04066
045)4
02U5
02805

IFIX
IMSA
INH
IN
lOCAL
IOCR
IOGT
lOP'
10RIC
10RT
10SIt
IROIG
IRUo
I TYPE
K2
K
LAST
lNIO
lNZ
lNt,
lH8
lNENr
LOC02
lOCO
loC
lOGE
MASKF
MASK I
MASK

OH.O

MATSW

0]818
04882
04964
0]998
on14
0]596
0]28]
01tl56
03950
0'104
0]Q26
03902
02815
04974
02555
0]655
03n8
04769
05356

MH2
MAX
MBASE
MOATA
MF

MU
NI
N2
NDOIY
OLWA
ONEZ
our
DYFLO
PAA
por
PIOY2
PIOY4
PI
PSI
RAeDI
RACO
RAPT!
RAPr
RUVI
RArv
ROAfL

OUll
on04
05370
05291
04890
05426
04146

PAGE
WIOTH
WRITE
WRTA2
WRTA
WRre2
WRTE
WRTF
WRTFS
WRTlZ
WRTl3
IIRTI
II

HVPE
LERDM
lERO
SlASH2

05115
06632
053n
05290
04622
04910
0it726
05106
0"~4

04862
0"690
02240
01046
03"5
02761
06524

STlERO
SWCAOJ
NEFDEC
WIOTH2
WRITEA
WRITEI
WRITIl
wnALP
NRTE2S
NRTFPC
WRTFPE
WRTSGN
lERFAC

0'0'4

Dun
06061
06217
00n6
06"4
00"6
00512
00520
00.5"
00554
048"
04730
0442"
03820
02221
05n6
02980
OZ881
02918
OZ949
03368
05606
05608
05981
03010
05"17
05]07
05425
0558]
06031
05924
onu
01377
0]666
0]632
02233
02238
06]24
06612
0]0]8
049]]
05516
03378
03333
03163
03191
03133
05686
05902
04402
05882
04378
05862
04354
05186

48
062]9
06044
05194
05956
0521tl
04446
04598
05550
0"994
05050
05018
04826
0]422

685

1&20 FORTRAN 11-0

SUIROUTI IIts

SET

~

687
16Z0 FORTRAN 11-0
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
OOIZO
00\30
00140
001'50
00160
00170
00180
00190
00200
00210

oozzo
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
OOHO
00340
00350
00160
00310
00180
00390
00400
00410

IORBC
IOPT
10SK
10GT
E~RE T
IORT
lOCAL
MONCAL
DID

K
PROGST
COMADO
Nl
N2

w

RECLG
ENTlN
ENTEXP
ENTSCI
ENTSC2
ENTSC3
ENTF 10
ENTREC
ENTFET
ENTSWD
ENTDRR
EN TOED
ENTCOS
ENTSIN
ENTATN
ENTSQT
ENTABS
STOP

00420 RECMK
00430 OKBUFF
00440 FAC
00450
OOUO
00470
00480
00490
00500
00510
00520

SUBROUTI NES

PAGE

SET "

16Z0 FORTRAN 11-0
SU8ROUTl NE S WITH FLOATING POINT HARDWARE
10RT ENTRY POINTS AND CONTANTS
OS
OS

as
OS
as
as

,520
,512
,554

00520
00532

.566
,602

00566
00602
00565
00716
00796
00816

,565
.71b

US
OS
OS

,796

,816

1620 FORTRAN 11-0 IN CORE AREAS
COMMUNICATION AREA
OORG 2218
OS
Z.. flOATING POINT WORD LENGTH
OS
Z .. FIXED POINT WORD LENGTH
OS
5 .. STARTING ADDRESS OF MAINLINE PROGRAM
OS
5 .. STARTING ADDRESS OF COMMON AREA
2 .. NUM8ER OF WORDS IN LOGICAL RECORD
OS
5 .. NUMBER OF LOG I CAL RECORDS
OS
2 .. WORD LENGTH
OS
3 . . RECORD LENGTH
OS
5 .. ENTRY ADDRESS TO LOG SUBROUTINE
OS
5 .. ENTRY ADDRESS TO EXPONENTIAL SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SINGLE SUBSCRI PT SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO DOU8LE SUBSCRI PT SUBROUT I NE
OS
5 .. ENTRY ADDRESS TO TRI PLE SUBSCR I PT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO FINO SUBROUflNE
OS
5 .. ENTRY AODRESS TO RECORD SUIROUT IIIE
OS
5 .. ENTRY ADDRESS HI FETCH SUIROUTINE
OS
5 .. ENTRY ADDRESS TO SWITCH D SU8ROUTINE
OS
5 .. ENTRY ADDRESS TO ARRAY SUBROUTINE
OS
5 .. ENTRY ADDRESS TO DISK END SUBROUTINE
OS
5 .. ENTRY ADDRESS TO COSINE SUIROUTINE
OS
5 .. ENTRY ADDRESS TO SINE SU8RDUTI NE
OS
5 .. ENTR Y ADDRE 55 TO ARt TANGENT SUIROUTI NE
OS
5 .. ENTRY ADDRUS TO SQUARE ROOT SUIROUTINE
OS
5 .. ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
OS
10"RESERVED fOil ENTRIES TO ADDED SUBROUTINES
COMMON WORKING AREAS
OAe
5, STOP'
STOP'
OS
, STO"8
DSS 29
OS
60
DC
I

os

"

SAVE
BETA

OS
72
)8
OS
DGN
GAM
OS
TUE
OS
IMSA
OS
MESERR DAC 6,ER E
Ell E
00530 DUDH
DS

,

0055~

02218
02219
02221
02226
02231
02233
02238
02240
02243
02241
02253
0225B
02261
02261
02273
02278
02283
02288
0229)
0229.
0230)
02)0'

onu
OHII
02U)
OH9)
Oll95
OHO)
0240~

OH92
OH9)

ou ••
OUO)
DUD.

,SAVE-IO
,SAVE -)0

,

Dun

,lEU -28

0251.
0251'
OUDl

,MESERR

DUOl

0
0
0
0
0
0
0
0
0

2
2
5

5
2
5
2
3

5
5
5
5
5
5
5
5
5
5
5

5
5
5
5

5
70

5 X
0
29
'0
I
72
38
I
0
0
0
6 x

2

0

688

U20 fOURAN 11-0
00540 E I

oono OUO
00560 •••••
00570
00580
00590 lERO
00600 9SCPF

00610
00620 FX9
00630 FXl
00640 FXI
00650
001>60

00700 LN8
00110 LNIO
00720 LUG.
00710
00740 O"El
00750
7~DZ

00770

T~DP

70

I

00780 PI

007'0 PIDV2

00800 PIOV4
00810 SIX
00820 TANio
00830 TENH
00840
00850
00860 FXH

.--2

os

PAGE

SET 4

1620 FDURA" 11-0 FLOATING POINT CONlANTS
DC
40
.0
- 000000000000000000000000000000000000000
DSC
40
.0
0000000000000000000000000000000000000000

.-

DC
28
.9"99999999999999999"999999
R9999"999999999999999999999
1620 FORTRAN ll-D FIXED POINT tONlANTS
DC
10
.9999999999
R9999999Cf9
DC
10
.0000000000
-000000000
DC
10
.0000000001
-000000001
CONSTANTS FOR RELOCATA8lE SUBROUTINES
DC
31
.0
-000000000000000000000000000000

OS

00670 9SPF
00680 LN2

00760

os
os

SUI"OUTl"E5

o

02615
02687

70

02721

40

02128

40

02761
0219.

ZI

o

02805

10

02815

10

02825

10

02856

,.-2

DC
31
.0693147180559945309417232121458
-69314718055994530941723212145'
DC
H
.1381>2943611198901>18834464242916
436629431>11198901> 18834464242916
DC
31
.2079441541679835928251696364375
K079441541679835928251691>364375
DC
11
.2302585092994045684017991454684
K 302585092994045684017991454684
DC
30
.434294481903251821651128918917
14 342 . . . 8190 325 I 82 765112891891 7
DC
32
• 10000000000000000000000000000000
J 00 000 000 00 0 000000 00 a 000000 00000
0$
,.-4
DC
.01
-I
DC
29
.20000000000000000000000000000
• 0 0 a 00000 0 0 0000000 00 0 000000 00
DC
30
.62811853071 795804 76925286 76656
028318530717.58647692528676656
OC
30
.314159265358979323846264338328
L 14159265358979 32384626433832 8
OC
30
.1570796326794896619231 ]2169164
J5 70 796]267948966192 3132169164
at
28
.7853981633974483096156608458
P85]9816339744830961561>08458
DC
28
.6000000000000000000000000000
0000000000000000000000000000
DC
29
.54041950027058415544357836461
N4041 95002705841554435 7836461
OC]O
.21877U6H949552562221>11491638
"1817616239495525622261149163.
1620 FORTUN 11-0 INDIRECT ADDRESS BOXES '''0 MODIFIED
cONSTANTS IUSING K AND fl
OSA fAC+!

028H
02887

o
31

02918

31

02949

31

02980

31

03010

30

03042

32

03038
030H

a

03073

29

03103

30

2

0313)

30

03163

30

03191

28

03219

28

03248

29

03218

30

03283

5 X

68 fJ

1620 FORTRAN 11-0
00870 FP 1M"
00880 .9H.
00890 10014.

OS
OC
5
-009'
DC
5
-0100

00900 I ~S.PF OSA

SUBROUT I illES

SET 4

PAGE
03283
03283
03288

-2493

o
5

03293

.LOO

I "SA

03298

5 X

00910 I SPFHI OSA

IMSA-I

03298
03303

-2575
5 X

FAe

03303
03301

-2574

00920 FH

FAC-l

03308
03311

-2492
5 X

03313
OHU
0]318

-2491

.FNH
.96
.97

OH23

009]0 fNH

009%0 FM1MF
00950 96HF
00960 97MF
00970 98HF

ooqao

PDf

OSA
OSA

os
DC
5
-0096
DC
5
-0091
DC
5
-0098
DC

5,

.98

03328

1199

OU))

,lOa

03311

,102

On<4l3

5 X

o
5

-0099
00990 HNO

DC
5
-OiOO

01000 102MF

DC
5
-0102
01010 FLlALP os.
lERO-18
01020 Fll

OSA

03)41

5

x

0))41

-2'" 5

X

oun

ZERO-8D

0))5)

010]0 FNHMI
01040

97~2F

OSA

FAC-2

03)SI

DC

5

0335.
on.3

-2490

5

-0097
010~0

lNENT

DC
5
-0056
01060 EX.ENT DC
5

,12

-0012

01070 PAR
os
01080
os
01090 OKDATA OSC

onoo
01110

5

, •• 5

5
2

,DO

00
OS.

DC

01120 D10o0A OSC

o

olODOA

..
.0

NO OF ELEMENTS IN MATRIX TO'ROCESS

0))11
OU18
03119

onls
ona5

on..
onll

-un

1

3

1620 FOUUN 11-0
011 ]0

5
DC
-0000
]
DC
-00
OSA OKBUFF

01140
01150
01160
01170
01180
01190
01200
01210
OIlZO
01230
01240
01250
01260
012/0
01280
01100
01 JOO
OIBO
0\)20
DIBO
01340
01350
01360
01)10
01380
01390
01400
01410
01420
01410
01440
01450
01460
OIHO
01480
01490
OISOO

.....

,TOFAC-I

5
F"FAC-I

,11

,.

,FAC

ZERO MINUS 9 .. PLUS TWO TIMES F
,6

RS
U~FlD
F~HM2

IRACE
FINDIN
GMIMlF

TRFX
OVFLOW
2FNI
FKOOO
ERROR
MU
GM2F
MF
FP2

·01590 FIXENO
01600
01610 FXERR
01620 ENDO

DURG
TFl
B
OS
OS
Tfl
BNCIt
RCTY
DC
J
OS
8NF
WNTY
88
OORG
WNTV
88
OORC
TF"
OS
OS
TF
RCTV
WA!V
6
6ljF
SF
OS
TOM
OS
OS
TFM
66
OORG
OS
TF

'-9
FAC
ERXV+U
S
S

,FLZER
,FAC-]

II

"

.

TRACE-I ,FAC
FMFAC+1l
GAII-I
,l
I
,FAt-1

'-9
FXH
'-9
FAC
2
I
FAC-2
FINISH
MESERR
EIjOO+\z

,--2

ERR F5 UNFL IN FEXP
FAt IS Fl PT ZERO
FAt MINUS 3 IIINUS F

,MU-l

FAt

,GAM

"

FXERR+Z5 ,OlO09
,--l
2
,.-3
2
HERR+30 ,ENOO+12

I_-It

II

",6,

GAMMA MINUS ONE MINUS rwo JlMES F
8RANCH IF FIXED AR'UMENT
TYPE FLOATI HG ARGUMENT
TYPE F I XED ARGUMENT

,8910
II

TWO TIMES F MINUS ONE
o F OR K ODD. I F AND K EVEN
SET RESULT TO All NINES

SET CORRECT SICN ON FAC

,
,19,

,ERROR
,SAVE

GAMMA MINUS TWO TIMES
RESET ERROR EXIT
MINUS F
F PLUS TWO

MOVE EXPONENT

..

1610 FORTRAN 11-0

··2"

..

I

SUBROUTINES

,.

•

•
•

,17'

,,'"

,.,
,.,

5

06
42

Ol4'1Z
00000

0]"0'
00000

06
..9

OZ .. 9Z
0172 ..

03760
OZ67]

5

06
U

06
.. 9
06
47
34

....
)I

"Z
JI
42

16

.
26
34
39

.

~

)2

0]65~

03656
03666
0]66"
0]661
03680
03688
03596
03681

SET 4

0\630
8NF •• 24
,99
SET PROPER SIGN
01640
SF
FAC-2
,ENOO
01650 FINISH OS
01660 FLTENO OS
,FINISH+7
01670
66
01680
OORG '-4
,a
·01690
DC
28
-000000000000000000000000000
01700 FLZER DC
,-99
2
RR
BNF
0\710 ERXV
,FAt
AM
0\720
EI
,0101
,1910,ERR CODE - ERR CODE + I
0\1]0 FMI
F MIliUS ONE
OS
2
,--2
01740
RCTY FMFAC+ Il
wary MESERR
01750
ERXV+]O
01760
8
.6
01770
OORG '-4
01780 Fl .
,a
DC
2
-0
0\790 Kl
DC
.0
-0
,99999
01800 oUMMV OS
,03151
01810 SlART OS
018Z0
16Z0 FORTRAN 11-0
ALL SUBR 11'1 CORE
01830
16Z0 FORTRAN 11-0
ALL SUBR IN CORE - SECONDARY LINKAGE
01840
OORC START
01850
OS
3
01860 FIX
CM
FAe
,DO
.10. IS CHAR POSITIVE
01870
H
FIXI
,FXA-I
01880 FXA
A
FAt
,11
FXAI
01890
8
,FXS-I
01900 FXS
S
FAC
,11
01910
HAL
B
01910 fUR
CHANGE S I Gil ON FAC
BNF FXSln+32 .FAC
01930
B
FXSAI
M
019~0 UM
FAC
,FXM-l
,11
01950
B
FXMl
99
,FAt
fAC- FAC/J
01960 FXD
LD
II
01970
FXDI
B
01980 FXOR
LO
99
.FXDA-1
.11. fAI: - J/fAC
0\990
FXDAI
8
OlOOO
DORG ·-1
02010 ASGN
IINF RSGll1+"0 ,FAC-1
OlOZO
8
ASGlll
OZO]O
DORG -L
OZO~O FLOAT
All
FAC
,DO
,10,
IS FAC ZERO
02050
FLOATl
II
fSUI FAt
,FSI-1
,11
02060 FSI
02070
fADl
HOD fAC
_PAD-1
OZOIO fAD
,11
02090
I
FA01
02100 FSiA
.IIF ,,"n+la ,PAt-I
CHAII'E SIGN ON 'At
II
Ol110
FSiU
021Z0 FII'
SET U, !All n CODE
T'II EI
02110
FM'!
021.0 FD
TfM II
SET UP EAII n CODE

"

03526
035]2
035 ....
0]556
O]S5I
0355.
0]570
0]572
0]572
0]581
03579
0]584
0]596
0]60.
03620
0]632
O]U~

.-]

FAC

0]406
0].01
O]"ZO
O]"ZZ
0]4ZZ
0]0..
034 .. 5
034S0
0]45l
03464
0] .. 66
0]466
0]471
0],,'9
0]49"
03"~6

,6

-+24

-l404
I

03501
03510
03527

,--It
,.SCPF

5

0].00
OHOI

,6

,6,
,0199

0].00

,2

,--5
TRFX
FNH

•

IN CORE SU8ROUTI NES

.-9
FAC
,fLZER
FINISH+! ,ZERD-9"
S

PAGE

0]]95

§

FAC

,

0]]92

"

OS
TFl
86
DORG
ZERFAC Tfl
8
IERO" DS
OS
FMFAe IFl

01~80

~

SET •

,DOD

1610 FOUUN Il-D

10FAe

UI~IO

OIHO
01530
01540
01550
01560
01570

·

DC

SU'ROUT! NES

,0000

03700
03712
0372)
0]7]0
0]72~

15

03760

OZ49Z
0]774
5
5
0]"9N
0346..
-l554
I

OU.l
00000

00100
00000

OZ .. 9Z
2
I
OZ490
037ZL
Ol607
03700
03656
OZ49l
0
03611
2

0-JR9

O~O"Z

0 ..0 ..2
0 .. 05.
0 ..0 . .
0 .. 01.
0.0.0
04102
0"11.
04126
0''1''
OOU50
0.161

02~55

-2-09

1

-3700
00000

2.

a
02492

02565

...

12

42

691

PAGE
0372"
OZ490
a
a
00000

5

00099
03618
00000

II

.

~

11

03786
OlU5
2

34

0346~

39

Ol607
0379K

..9

02~92

O-J-I
OOIOl
00100
00000

2

a
0

0~032

Ol795
00102
00100
00000
0]631

0]626
00000

Z

03926
0]93'
03950
03962
Ol9n
039. .
0]99'
0 .. 010
0.020
0 ..020

021t9l
00.. 00
OOIOZ

OZ .. 91
00100
00000

99999
03851

0]91~

03760
OZ489

a
01558
O]]lL
00000

03820

03851
0]85]
03854
03866
01111
03890
0]902

Ol49Z
00000

l6
42

03731
03751

On6l
ann
03783
03786
03791
03810
03811
0381.

S
O]"SJ
00000

)

14
~9

lL
.. 9
22

....
...
...••
~

..9

n
U

2.

....
••
11

••
01

...••••
...
••
0&

16
16

10100
10161
OH92
10120
00099
10....
000"
10.U

000-0
00000
O]81P
00000
0390J
00000
02.92
00000
039.. A
00000
OZ .. 92
00000
0399'
00000

10. . .
10....

02 ... 1
0-000

02~92

000-0
00000

Ol492
1056Z
aZUl
1075~

02492
L075~

l10U
oa ...a
1U16
Olio"
11116
11110
111...
oai"
11.00

Oil"

0~0611

00000
O.OIR
00000
oa."
00000
001111
00000
001115

192

1620 FORTUN II-D
01l'l0
Q21,60 .. DVR
02170
02110 FIXI
02l~0

02200
02110
OUZO
02210
02240
02no
02260
02210'
02280
02290
02300
02310
02320
02330
02340

I
TH
8
TF
8

FAll I

TF

FUB

8
TFl
8

IIATY
IIAPT
IIACO

TF

,e

'TF
8
TF
8

FDI
SAVE
FDYIII

".SA

FlXII
IMSA
FUll
TAFE

SUI"DUT ,NtS

SET 4

,FAt
,FIXI-I

,II ,

IMSA •

,FUI-I

,II,

IMSA •

04234
04146

,FA"-I

.11 ,

LOAD I

04258
04210

DUll

FAXBI

SIIF
IIATVI
SIIF
IIAPTI
SIIF
WAtDI

'IIIIITE ALPHAMERIC
.IIATV-I
,NAPT-I
,NAtO-I

READ ALPHAMEIIIC
SIIF
,UTY-I
UTVI
RAPT
TF
SIIF
,RAPT-I
023~0
a
RAPT!
02360 RACD
TF
SIIF
,RACo-l
8
RAtDI
,I
02310
OORG .-1
02380
02390 ITYPE AM
SIIF
.3
02400
8
!TVPEl
,8
02410
DDRG '-1
02420 IIR nE I TFM IIA
,GAM+2
B
WR !Til
,I
02HO
02440
OORG '-1
02450 REAOEF 8~F EFROl'12,LOC
02460
a
EF ROI
,8
OORG '-1
02410
02480 EFMII
TF
Fl TEND
,ICON606
,8
8
EFMIII
024'0
02500
OORG '-1
02510 HYPE AM
SIIF
,3
02520
AfVPE!
,8
B
02530
OORG '-1
02540
MACRO FOR F TVPE READ AND IIR ITE
02550 'TYPE CF
RWEFSII
02~60
a
,8
EF COM
02510
OORG '-1
02580
MACRO FOR E TYPE READ A~D IIRITE
02590 ETVPE SF
RW.EFSl/
02600 WA3
OS
5
TEMP STORE FOR ZERO INSERT ADDRESS
,8
02610
B
EFCOM
02620
OORG '-1
SWF
02630 HTYPE AM
.3
02640
HTVPEI
B
02650
DORG '-4
02660
1620 FORTIIAN II-D
All SU8R I N CORE - SU8ROUT/ ~E S
02670 IIKH2 TR
GAM+I
,MASK
02680
Bo ERF.8E
,CHAII-2
02690
GAM.8
,tHAII
TO
TO
GAM06
02100
,CHAR-I
RATV

PAGE
041n
04116
04191
04210

TF

B

."

,

4.
06
4.
26
49
26
49
06
49

11974
01515
12412

00000
02492
00000
042011
00000
OU)L
00000
04UP
00000

05861
05491
05861
05518
05861
05538

04281
00000
OU05
00000
04329
00000

05861
05862
05161
05812
05861
05902

04353
00000
04171
00000
04401
0-000

4'

05161
09646

-0003
0-000

16
49

06933
10138

-2551
0-000

44
49

08686
08642

05981
0-000

26
49

03130
09182

05480
0-000

1\
49

05861
08106

-0003
0-000

H

05953
01138

00000
0-000

05953
5
01138

00000

49

05861
01402

-0003
00000

31
U
25
2S

02556
05202
02563
02561

05401
07106
07101
07107

OUIZ
04294
04106
04111
04]30
04342

26
49

04354
04166
04378
04190
04402
04414
04424
04424
04436
04446
04446
04458
04468
04468
04480
04490
04490
04502
04512
04512
04524
04534

26
49
26
49

04534
04546
04556
04556
04561
04568
04511
04511
04590
0.59'
0.598
0.610
04622
0463'

2.
4'
26
49

26
49

II

4'1
II

49
11

11411

on65

11512
02515
11544

on15

6

0-000

693
1620
02110
02120
02130
02740
0215.0
02160
02110
02180
02190
02800
02810 WRTF
02820
02830
02840
02850
02860
02810
02880
02890
02900
02910
02920
02930
02940
02950
02960
02910
02980 F~CNEZ

......
......
......

a~F

·.24

TOM
TF
TR
8
OORG

GAM.3
TERM
OPT
WEF DEC
·-4

TR
80
80
CM
8l11H
C
BH
TF
A
aNF
TFM
A
TF
8~F

TF
TF
TF

AM
0~990
BD
0)000
TFM
03010
8
03020
OORG
03030 FZERO TFM
03040
TF
03050
TOM
03060
8
03010
DORG
03010 IIRTFPE TF
0)090
TR
03100
B
03110
DORG
03120 IIRYFPt TF
03130
S
TF
03140
TF
031'0
03160
C
0]110
BNL
03110
A
TIl
03190
03200
TF
03210 CLR10S TFII
A
03220
01230
n.
01240 IIHOEC ,,/II
01150
TFII
03:260
I

GAMol
F ZERO
Ell F8 E
CKW
F ZERO
CKW
ER F8 E
CHAR 2
CHAR 2
IIR TFPC
•• 15

*.23
GAM
IIRTFPE
LAST
DPTM2
WAl
WA3
WEF DEC

.-.

liB

FORTRA~

,CHAR
,2
, GAMo2
,DPG

11-0

,CHAR-2
,000

,6
.611

,9

,IIIOTH
,CHAR
,CHAR
.CHAR
.GA....
,CHAR 2
,FAC
,GAM+2
,GlllF
• DPT
,2
,WA)
,70

,e",.

,6
.611, SET SIGN LEFT OF DEC PT

..

,11.

,610. F TYPE OUTPUT EQUALS ZERO

,611
,611

,.11

CU70S.]0.L~ST

TEIIM
DPT

.

LAST

.00

IS.'"

.MUK F
.t"AI I

,OS

I HSERT ZERO FROM DEC PT TO
FIRST ~ON lEIIO DIGIT ON RIGHT

.610

,11

,6
.6l0
,610

PAGE
04646
04658
04610
04682
0469.
04701

.FLTE~D-4

,70
DPTM2
CHAR 2
.LOCO 2
CHAR-2
,0
CLII70S-12
'-4
DPTM2
,OPG
OPT
.OPG
WEF OEC
.-4
·.JO
.TEIIM
•• 1.
.tHAII Z
,G'M+2
CU70S+30.TEIIM
CHU
,~OCD
CLII 70S
DPG
2
OPT
.OPG

.. n

SET 4

3 CASES FOR IIRITI~G F TYPE,CHAR IS EXP-LOCo-F
CHAR IS NEG. EXP IS NEG
CHAR IS NEG, EXP IS POSITIVE IIIRTFPEI
CHAR IS l'DSITlYE
IWRTFPCI
.MASK EP.,

FNtNEZ

•• )5

SUBRDUT/IIIES

(

04102
04114
04126
04738
04150
04162
0417'
04186
0419.
0'810
04822
048)4
04846
0'1151

o.no
0.882
0....
04906
04911
04930
04942
04949
0.950

O.96Z

0497.
04916
04991
04994
05006
05011
05025
05026
05031
05050
05062
050n
05016
05098
05110
05UI
05U4
0".'
05151
05110
05112
051.4

44
IS
26

04610
02558
0678N
0113P
05170

01108
00002
0Z551
05910
00000

02556
0.950
05202
06613
0.950
0661)
05202
06108
06708
05026
04857
04857
02555
04994
05730
Oll7L
0.567
04567
05110
0456P
04906

05409
03126
01106
00-00
01100
05115
01100
07108
01108
01108
-2555
06701
00000
02492
02557
0365N
01137
-0002
0456P
OOOPO
00000

16
26
15

OI17L
06701
07106
05122

OOOPO
05606
000000000

26

OII1L
07UP
05\10

05970
05910
00000

31

.9

31
U
4J
14
41
24
46
26
21
4.
16
21
26

••

26

26
26
II
4J

.

4'

••
••
JI

26

21
2.
26
24

••
21

Jl
26

"

21

.,,.
Z'
16

05056
05056
00000
0516.
07101
05\)4
05976
07UP
0516.
05169
05169
06l1N
07U'
05TJO
05826

06785
06701

onn
06715
05601
OUOO
06101
05970
05TJ6
-54U
06708
00000
000-)
000-0
00000

,1
~

6S(,

1.20 fOIlTUN
0]210
0]2'0 fRF8E
0]290
0]]00
0]110
0]]20
0]]]0

''RR

'0

'0

'F~

BNF
'D~

0])40

0]]50
0])60
OH10
03380
03390
03400
OHIO
03420
03430
0]440
03HO

OORG

ERCO~

TR
TF
TFM
CM
TFM
BL
TF
TFM
8
8

11-0

..

suaROUT I NfS

02628
02556
0256]
02561
02558
05286
0255'
02620
02619
02611
06059
02617
07018
06051
00565
005]2
01078

,451010700'

05401

10

,MAS~ol

05402
054U

31 X

DUD H021,FLZERS-51
GAMOI
,MASK
GAMo'
,FAC
,FAC-l
GAMo"
GAMo]
,451
,9
. . 24
,FAC
,2
GAMo]
DUD Hol3,GIIIM2F
,ll
DUD H+1Z.DUO H+14
DUO H014, OJ
,10
OATINHo2 ,0'
,10
Elo2
,61800
"
ER COM 2
OA TOUOo2 ,DATINHo 2
, •• 2)
10RT
10PT
,DATDVO-" ,1
ERCoM2

IIOVU

SETS

foOO ALPHAIIUICALLY

E~~OR

as

Q14QO ... ASKF

OAC
31,000000000000000000000000000000'
000000000000000000000000000000'

O}~OO

MASKI

03510

lCQN6

0]520
un)O ICON5

ICON3
WATVI

as

,MAS~F+39

OORG
B
DORG
B
DORC

EF AlPH
'-3
EFRO 2
.-)
WRT 12
.-)

TFM

MAX

B

,I

,1
,I
,0687

,8

8
WRTAlP
OORG .- 3
WAPT!

TFM

B
DORt
WACOI
TFM
WR TAL P TOM
RwA
TF
SF
REPSw OS
MATS_ as
REPSW} as
TFM
TOM
03720 lOCO
as
OlBO lOC02 as
0)740
TFM
03150
TFM
03160
A
03170
A
03180
03790
0~800
TFM

Jll4AX
,0881
wR TALP
.-)
MAX
,1080
,1
RWEFSW
OATINH02 ,MAX-2
MAX-I

2
'-1
SWLol
2
2

,8
COMMON FOR EACH WR ITE
INITIALIZATION FOR EACH RO OR WRITE

,--3

,.,."2

,00000

SET TO 1 WHEN MATRIX HAS CONTROL
,711

,2

,--1

,*-3

~ESERRo8

.619

MAXZ
MAX2
MAX 2

,INH

LAST

,8

,lOt Of DEC I MAL AS SPEt BY FORMAT
,
TWICE lOC 0
,9

,MAX
.MAX
CONH NUAT I ON OF RwA. Al SO USED AFTER EAtH OUTPUT
RECORD NOT TERMINATED BY COMPL T MACRO
rlNH

1620 FORTRAN 11-0
03810
0]820
03830
03840
03850
03860
03810
03880
03no
0)900
03910
03920

RWAZ
TOM
COMPSW OS
TR
TR
CM
wiDTH DS
SNE
RCTY
LAST
OS
BO
RAOOIT TFM

B
tM
8NE
Bt4
TOM

0]930

0)940
03950
0)960
03970
0)980
0)990
04000
04010
04020
0"030
04040
04050
0401>0
04010
04080
04090
04100
04110
04120
04130
04140
04150
0411>0
04110
04110
04190
04200
04210
04220
042)0
04240
04250
042"0

ERASES REC MUK

BSWF

AM
TF

B
SWF
UTYl

OS
TFM

COMPSW
INH-I
I NHo86
MAX-2

3
·+2lt
5
8SwF
10RT
10GT
M.-X-2

RACol
ROAlP
MAX

SWl
I NPLUS
RWEFSW
WIOTH2
oPG
LoC

04210 ••••••

04zeO SWC
0.290
04100
04110

04120
041'0
04140 MAXZ
0."0
04]60 SWCADJ

SUBROUT INES

,.-]
,-1 PROHI8ITS,0 REQUIRES OUTPUT
, SHEROol
,SHERO
,06
,10
,.-2
NO. OF EFF. DIGITS IN FIELD

,e.,

, ADR Of RM AT END OF VARIABLE OUT REC

,RwEFSW

,e+23
,DATI NH-" ,7
,06
,10

e+24t

AllOWS GOOF SWITCH FOR RATY

--72
FLT ENO-5,Z
CONTROLS POSITION IN FORMAT SPECS
SWF
,5
*+18
,11
.SWF
SWF
BR TO AOR INDICATED 8Y FORMAT SPEC.

5

,.

,6,

MAX
,0681
,8
RoALP
OORG .-]
TFM MAX
,8
,0'81
B
ROALP
OORG '-3
TFM ~AK
,8
,1010
TOM RWEFSW
,0
OS
4
,*-1
B
RwA
oORG '-4
SWl IS A TRINARY SwITCH USED TO BUNCH 10 THf P~O'fA SOUACf
TO OBTAIN THE LOCATION THAT GOES WITH THE FORIIAT MAC~O
BEING PERfORMfD
I I fO~ OBJECT PAOGIUM
NDP fDR REDO CONTRDL
•
POA MATA IX CONTROL
NOP MATRX
OS
5
WORKING POSITION Of 110 RECORD
TOM SwL+l
,¥
"
IIATRIX CONTROL SETS SilL TO .9
OS
I
, I FOR WRT, 0 FOR AD, fLAG fOR f
OS
3
10
SWCo12
,IIATSII
NOP
OS
,.-1
TeIlP AOR OF DfC PT IN GAMMA
05
"
"CORE LOCATION TO IE USED
afTeR LOC ADII OITAtNID IR TO PIIOPeII IIACItO
TOil SWLOI
.1
10
"20
.IINI"II
..
•• IP IIRITING
I
SWC ADJ
DDAG .-.
lIT TO R.ClUIIII OUTPUT
.0
TOil COM''''
Cf
LOC
OS
5
TlUCI IIAXIIIUI! CHAR POll OUTPUT
I
OS
RITURN ADD Of IIAUD IN CONTIIOL

,.

,.-4
,·-1

..,

,e

,

••..
"

o

o

05452
054n
05482
05481
05490
05490
05498
05498
05510
05518
05518
055]0
055]8
055]8
05550
05562
055H
05582
05583
05585
05586
05598
05608
05606
05610
05622
05634
05646

16
11>
21
21

02615
06037
06031

00019
-6063
05914
05924

05658

16

05136

-606]

05610
05618
05682
05694
05106
05715
05718
05130
05136
051"2
05154
05166
05718
05190
05802
05814

IS

05618

OOOOJ

31
Jl
14

06062
06149
05922
3
05742
00000

06.240
06239
000-6

09206

00000

08674

00000

10194

00000

16
49

05924
05550

0-687
00000

16
49

05924
05550

0-887
00000

16

05924
05953
06059
05923

OJ080
00001
05922
00000

15
26
32

2
16

15

1
2
05585
05935
2

-00000002

2
ObOn

SET 4

,-1

B

RAPTI

06210
05401
02492
02491
00M51
02492
00002
03520
02621
000-3
000-8
01800
01300
06059
-539]
-6045
00000

MASKS
OSC
10
451010100'

03480 MASKEP

03540
03550
03560
03510
0)580
0]590
03600
03610
O]b20
03630
03640
03650
03660
03670
03680
0]690
0)700
0)710

F 8

iJOR.G .-4

014l)O
03"'70 MASK

PAGE

SET 4
05201
OS202
0521.
05226
0523'
05250
05262
052n
052 . .
05298
05110
05322
05]]4
05]46
05358
05310
05382
05394
05401

.-~

695

PAGE

05826
05818
05850
05861
05'1>2
05114
05882
05882
05894
05902
05902
05914
05'lH
05926
0591]

47

H

o

01200
00102

5

43
16

n

14

H
4b
IS

11
26

05826
00565
0051>6
05'i22
05814
05130
03125

05953
-5111
-6053
000-6
01200
00400
00002

05861
05856

-0005
0586J
00000

,,9

058bJ
5

16
49

0"2"
05914

0-681
00000

16
..

05924
05914

0-881
00000

11>
IS

OJ080
00000

49

05924
05953
4
DS5b2

059,.
059.1
05946
05951

H

06 . . .

00000

15

01931
I

,

00009

Olnl
05910
019n
05911

U
H

0199.
00000

05581
00000

5

On,.

01912
0'''4

0600 •

5
5

It
U

05911
0601.

..

060 ...

06011

060 ••
Oi026
06017
06011
06044

00000

0,."

00002

onn
00000

n

0'''1

00000
00000

.,

00000

00000

It

5

o

896

1620 fORTUIII 1'1-0
0.51'0

04110 b*'~
0.)90
O.~OO

'oCiU

osa
-0'

OttHO

SET

~

DUDII

.00"

"DC

04UIIII 'ilU

IU••OUTINU

"0-.
INH

DC

PAGE
060.,
060.'

,

06049
06052

-2601
3

06051

5
-60'63

,~OO·

06051
06060

.0

06061

10

X

3

-0'
O~UO

DC

OH]O EIIDFOR OAC
0
O~HO INH
OS
O~

Olo~50

0.460 III
OS
04.10 STlEIW DC

1.0
.I!NOFOR
11'\
116
2

.INH.I7.
,00

06063

1 X

0601>3
01>2)7
01>231
01>239

0
17~

116

Z

-0
OHIO
04490
04500
04510
04520
045)0
04HO

00
00
00
00
00
00
00
,OC
04S~0
-0
0'560 FllER5 DC

04510
(}'o580
Olt590
04600
04610
0"620
0.630
046ltO
04650
04660
04610
04680
04690
010700
04110
04120
04730
04140
04750
04760
04770
04780
04790
04800
04810

DS
MATRIX TOM
TOM

tF
8"F
TFM
LDCADJ DS
S
S
H4 TR1CZ

•TF

2

,0246810
,0246810
.0246810
.0241>810
.02.6810
,0246810
.0246810

.

06240
01>252
0626.
06216
06218
06300
06)\2
06325

,00
.0'

MATSW
,I
M4C~O TO PROCESS MATRICIES
'Swt+1
.9
LOCADJ
,FP2
MATRX2-12, MATAU-I
LOCADJ
.00
,10
2
ADJUST LOC FOR MATRIX
LOCADJ
tK
MATRIX-I .LOCAOJ
MATRIX-I ,LOCAOJ
RE TURII FR,OM SWL. EACH MATRIX ELEME .. T
LOC
.MATRIX-l
MOVE ADJUSTED LOCAT ION
,U
,I
.10
.+2lt
MArsN
,0
S1IC+12

,--3

..

,.-?

.. flO CARRIAGE RETURII DURING A FORMAr STATEMENT
.9
,RWEFSW
8R IF WRITING
.. COM'

-0
-0
-0
-0
-0
-0
-0

-0-0-0-0-0-0-0-0-0-0-0-0-0-02

0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

06321

l;

SM
8NE
T'OM
BilL
BS
OORG
MACRO FOR ,
SLASH TOM COMI:'NO+l
&0
S,LASHZ
S
COMEND
liaRG '0-4
SL ASH2 SO
"10CR
CM
oATlIIH+2
SH
WRITE

2

sw

,'06

..

8R TO 10 CR IF OUTPUT RECORD BLANK

.10
8R IF .. DT TYPEWRITER DUTPUT

OhH2
06334
06n6
06358
06310
06382
06390
0639~

06406
061t18
061t]0
06442
0645.
06~66

06H8
06490
06492
06492
06504
06516
06523
0652.
06536
06548

15

15
26

5
0558)
05935
06190

00001
00009
03664
06333
000-0

.~

06~06

16

.
42

06)90
2
06390
06333
06333
05981
03]18
061078
05583
05994
00000

02221
06390
06390
06333
000-1
01200
00000
01300
00000

15
H
U

06651
065210
06656

00009
05953
00000

U

0666~

1.
46

06059
06632

05678
000-6
01100

22
22
21
26

12

107
15

6!J7
(

1620 FORTRAN 11-0
04820
04810
04840
04H50
04860
04810

TF
SM
CM
8E
CM
8L
0'4880 ,WR ITE
TFM
04890
8
04900 COMENO 8
04910
OOR'
04920 IOCR
CM
04930 CKW
'DS
04,.0
8"L
04950
S
04960
ODRG
04910
04980
OS
04990 COMPL T TOM
05000 CHAR 2 OS
05010
B
05020
oORG
05030 REDO
SO
05040
TD
05050
TFM
05060
B
05010
DDRO
050&0 REODA TOM
05090
TOM
05100 TEIlM
OS
MilO
AM
05120
TF
05130
B
Oa.G
051"0
05150
05160 '
05170
05180
05190
05200 R'E~
A"II
05210
SM
05220
BH
052)0
8E
'A
052"0
05250
8NH
05260 REP2
SM
05270
Tf
05210
05290
DORG
OHOO lIEI')
Sf
05310 WA
OS
05320
All
05330
SII
05340
lIH
05350
8£
05360
A
05310
'8

.....
'.
.......
.......
......
.......

•

LAST
LAST
LAST

,FlZERS
,02

.6

,00

.610

tiD,

SUSROUTlIIES

SET

~

ERAse SLANKS FROM EIIO OF 110 RECORD

--36
LAST
COM END
10RT
10PT
RWA2-12
<. .

.'IIIH

, •• 2)
"DATINH-4 ,1

-~

MAX~2

3

i08

,,10

~.1f-2

DfC SPEC PLUS CHAR DF ARG

Ii'RITE
COMENO
·-4
"NACRO TERMINATING I/O COIITROL
3
COMEND+l ,2
3
TWICE MODIFIED CHARACTERISTIC
."--1

'SUSH~12

4t'-4

REDO A-+21o,M T :Sw
REoDA+23 ,'COMPSW
SWC AoJ
.REDO A
SWL
·-It

SWl.l
COMPSW
5
SWf
SWf
SLASH
e-4

MACRD PERMITS REDDIIIG BACK TD

.

.1

RETURN FROM SWL IF MDRE DATA
YOlO 'uoo UHNG SWC EFFECT ON COMPSW
R'EfEAEHCE ADR fN 110 RECORD

,e

,'5
,SWF

.ll

MACRD TO'REPElT fDtlMAT SPEtS A SPECIFIC NO Of TIllES
SUB "AOM _IP SN, INITIALLY SET TO ZERO
IF 1IE~SW NfG , SET TOIEPS UQO AND REPUTFa.MAT
If 1£1'$11 URO. LAST fORMAT "REPETITION IS COMPLETe
'IF, JlEPSW PLUS, STEP DOliN AND RfPEAT FORMAT SPEC
SIIF
,1
REP SN
,I
,10, CONTROL REPET IT I liN OF FIELDS
REP '2
8_
UP $11
• S!IF
.11
UWf
Sill'
,2
Silf
.11
SWF-23
.-4
REPSIIJ-l
5
!lORKnG AIIU ADIt REf TO 'ACOIt GAM
SIiF
'.1
• 10
,10
IIE'SlI J ,1
It'E'' 2
8SII'
REPlW J
,'511P
,11

.slli'

.

,

U" '2-12

•

PAGE
06560
06572
06584
06591>
06608
06620
06632
06644
06656
06663
06"~

06613
06616
06688
06695
06691
06691
06108
06710
06111
06711
06130
06742
061510
06761
06162

onn

06715
06786
06'"
06110
06lll

06818
06130
06. .2
068,.
06866
06111
06"0
0 ••02
0691 •
0.'21

26
12
I~

46
1~

H
16
49
49

0573D
05736
05730
06560
05736
06656
00565
00532
05658

06321
000-2
000-0
01200
-6063
01300
-6655
-6053
00000
000-8

.
14

05922

49

06632
06656

15

06657

49

0650~

00000

43

2!

06186
06185

16
49

059)4

05583
05678
-6162
00000

3
01300
00000

3
00002

3

15
15

..
11

26

11

060~4

05935
05678
5
05161
OS861
06~9Z

00001
00000
-0005
OSI6J
00000

-0007
000-1
01100
01200
0"6J
OUOO
-0002
OS16J
00000

n
u

0""
05512
061'10
05126
05512
05126
05161
05161

06922

U

00000

069U
069J•
069.'
86951
06910

OH'.

11
12

0'161
055"
06"0

000-7'
000-1
01100

0"'15

O'I6J
00000

DM"

069"

"

11

n

U

••
21

U

••

osnl
5

••••
21

Itt

onu onoo
06111

US

1'20 fOUIAN
OUIO
011'0 EIt''I
05 .. 00

DOli;

o-~

05~10

TP
""
TFII

SIIC _OJ
LAST
EI
SilL

•

05 .. ZO
05..10
05"~0

.TYPE

05UO
05~60

DOli'

_"

B

05"'0
054'0 ERCOIIZ
O, ... OIlU
0"00
05510
05520 CHAR
05'30
05540
05550 OPT
05560 EFeall
05510
05580
05590
05600
05610
05620
056)0
056,,0
05650
05660
05610
05680
0'6'0
05700
0'710
05720
05730
05740
05750
05760 ROFeH
0~710

05780
05790
05800
05el0
05820
05830
05840 FCHNB
05850
05860
05810
05880
05890
05900 EFIIRT
05910
05920
05910

OOItG
IItTY
DS
WATY
RtTY
DS
TR
8
OS
AN
TF
All
rF
TF
TF

.EII COlI Z
.IIU 2
.6"

o-~

SIIF
LUT
UIIF

.J

..
••
..

II-D

SUlllllUTlNlS

II_ClIO '011 UItOIt , . IIHEN IIIIITING

0701~

MACIIO fOil SKIPPIN' 'IILDS

o_~

5
OUDH

,

,.-,
,e ... ,

..

U+I
,'LlEU-1
ISIIF-12
5
SWF
.3
WIDTH
.SIIF
SWF
.2
LDC D
.SIIF
INPLUS
.LAST
WIDTH 2 .IIIOTH
A
WIDTH Z ,IIIDTH
A
UST
,IIIOTH2
,IIAX 2
C
LAST
BH
ER F9
TF
TERN
,LAST
SII
TERM
.2
TF
CHAR
.WIOTH
TF
WA
.FNH
TOM 97
.0
TFII '19
.00
80
EF IIRY
,RIIEfSIl
TF
FAC
.FUALP
TFII £FTERN+lI.EF TYPE
TFII SIICAOJ
.auo EF
,DO
CII
INPLUS
8HE FCH N8
SM
CHAR
.1
AM
INPLUS
.2
C
INPLUS
• LAST
BL
RO FeH
EFENO+12
8
OORG 0-4
CM
INPLUS
.20
EF MIN
8E
eM
INPLUS
,10
8E
EF PLUS
8
EFTVPE+36
OORG 0-4
,F
C
LOt 0
8NH -+24
TF
LOC D
.F
TF
LOCO 2
.LOC 0

.
to

IIOIIKIN' ARE_ ADII liEF TO FAt DII GAil
IIODIFIED CHAilACTIIIISTIC
liES TOIlES IIICOIID IIAII.
TlIIP Lot OF DIC "

IN OU7PUT RECOIO

.u
.11

07011
070U
070...
07051
07070
07077
07071

07D'~

07090
On02
011DI
0711"
07126
OnlJ
07131
07150
01162
onl4
onl6
07191
07210
07222
072n
07246
07251
07270
01282
07294
07306

onll

.10

.11

.tlo.

07001
07002

OTo"

.U

.SIIf'

P_G£

SET •

ELININATI LUOIN' BUNKS

.10

.610. PROCESS FIRST NON 8UNK CH'RAeTER
.UO

07no
07342
07"4
07366
07371
07390
07402
07414
01426
07431
07450
07457
07451
07410
07482
0749'
07506
075U
07514
07526
07538
07550

16
Z6
16

060 ....
05716
OUU

U

05n~

-7071
060n
00079
00000

11

...

0"61
05716
05126

-0001
0586J
00000

3~

00000
5
OZ607
00000
5
02616
05814
5
05161
05715
05 .... 1
05608
05945
05.56
05956
05716
05716'
07002
06115
06185

ZI

,.
14

11
4'

U
26
II
26
26
26
21
21
2.

...

26
12
26
26
15
16

n

26
16
16
14

n

12
11
24
47
4'

anal

06'133
00097
00099
07514
02492
01240
06044
05'14N
07458
07108
0"45
05945
07318
01258

12

00102
00100
00102
06126
00000
-0003
0586J
-0002
D516J
0"36
05715
05115
05956
06017
01100
05736
-0002
05715
03313
00000
000-0
0'953
0334Q
-1702
-446.1
000-0
OUOO
000-1
-0002
05736
01300
00000

14
46

0594N
07678

14

0594N

46
49

076'10
07738

OOOKO
01200
OOOJO
01200
00000

24
47
26
26

05608
07550
05608
05606

02219
01100
02219
05608

899
t

1620 FOR TRAN 11-0

~
/

05940
05950
05'160
05970
05980
05'190
06000
06010
06020
06030
06040
06050
06060
06070
06080
06090
06100
06110
06120
06130
06140
06150
06160
06170
06180
06190
06200
06210
06220
06230
06240
06250
06260
06270
06210
06290
06300
aUlD
06320
06330
06]'0
06350
06360
06]70
06310
06390
06400
06410
06420
06410

LOCO 2
.LOC 0
TR
GAII-5'1
.MUK f-I
TFM II'
.GAII
TFM IIAl
.FAC-I
TFII SWCADJ
.EFMN
SII
IIIOTH
.2
8NF SWL
.RIIEFSW
SM
TERII
.1
SII
WIOTH
.4
8
SWL
OORG 0-4
SF
9'1
SM
CHAR
.1
AM
INPLUS
.2
CII
INPLUS
.00
8E
LOG OIG
CII
INPLUS
.70
8H
EF OIG
8E
LOG DIG
CM
INPLUS
.03
8E
EF DEC
aNF ERRF7 E .RWEF511
TFII EXP
.000
TOil E EXPAO+IoI
OS
3
,--2
CM
INPLUS
,45
BE
E EXP
til
INPLUS
,20
BE
E EXP M
CN
INPLUS
,10
8E
E EXP
.+24
,97
80
511
CHU
,I
,TEIIM
C
""LUS
BNL EUPAO-lZ
TO
EXP-I
.I"PLUS
INPLUS
.z
I
EEXPZZ+12
DOli' .-..
TOIl I UPAD+I,Z
All
,Z
I NPLUS
511
CHAII
,I
E U, 2
I
DOli' . - .
TO
UP
,IN'LUS
A
CHAII
,Elii'
8
I f IND

SUaIOUT! NES

SET 4

A

EFIIIN
EFPLUS
EFTVPE

EXP
EUP2

EUP22

'"

EUPN
EU'

EEXPAO

DOIIG .-.

LDGDIG INF
511

06~40

06..,0
06460 If DEC
0"70
06410
064.0

I" DIG
CHAII
I ' lEU
DOli' .-6
10
IIIIIFT I
LOC D
'
T'II
TOil 97

...
.1

•
"" 'fT"'". L., ...

riD

.10
.610
.610
.610
,9

•.610
.610
,610

••
.Il

,10
,11

.10

,'7
.00
,-I

.10

,II
PLUI

VALUE OF cue CHAII '011 OUTPUT

PAGE
07562
07574
07586
07598
07610
07622
07634
07646
07651
07670
07671
07611
07690
07702
07714
07726
07731
07750
07762
07774
07786
07791
07110
07122
07131
07U~

07146
0"51
07170
07182
07194
07906
07911
07930
079"
079,.
07 . . .
07971
079"
07916
079. .
DIDIO
01022
OIOZ'
01010
0.0"
01054
01061
0.062
0107.
0.0. .
01091

OIOM
01106
01111
01110

21
31
16
16
16
12
'4
12
12
49

32
12
II

14
46
H
46
46
I.

....
.
...,
16
15

I.
46

05606
02496
06933
0108.
06044
05715
05934
06715
05715
05934

05608
05412
-2555
-2491
-4490
000-2
05953
-0001
000-4
00000

00099
07108
05945
05'14N
01062
0594N
01162
01062
0,.4N
01094
08310
07131
01043
3
0594N
07998
0,.4N
07916
0594N
07991
01930

00000
000-1
-0002
000-0
01200
OOOPO
01100
01200
000-3
01200
05953
00-00
00001

O,.U
OIOSO
011)0
05945
07911

00011'
01200
OOOKO
01200
OOOJO
01200
00097
00-01
06715
onoo
05'4N
-0002
00000

IS
U
12

01041
0"45
01101
0715'

OOOOZ
-OOOZ
OOD-I
00000

U

07IJI
01101
0.246

059411
07IJI
00000

4.

01162
0'f101
0lU2

000. .
000-1
00000

U
It
It
IS

On70
0160.
0"'0
00097

-7690

I~

14
46
43
12
2'

n

II

.,
Zl

••

4.

II

onol

13

000.7
000-0
OOOOJ

un

.,

j

aZQ ~DItUA" II-II
0~500

06510
06520
06BO
065.0
0.6550
06560
06.570
06580
01.590
06600
06610
06620
06630
066.0
06650
06660
06610
06680
06690
06100
06110
06120
06130
06HO
06150
06160
06110
06180
0.190
0690,.0

SIt

II

eH"

,I

lUlllOUT I HES

SET

~

PAGE

,10

01l4Z

oalS4

EF TEll."

OOIlG '-4
CF
98
5
OP"IZ OS
CM
WA
BN.l •• )6
TO
IIA
AM
WA
EFTERM e
I NPLUS
EFrYPE
IL
£FEND 8NF HENDZ
TfM FAe
8
SWl
OOIlG . - )
CHAR
EFEN02 S
ERR F 7E
80
SF
CHAR-l
TF
FAe
SF
FNH
SNF
SWl
SF
FAe-2
B
SWl
OORG
ERIIF lE TF
FAC
rOM E I
8
EFENO
.-4
OORG
EFD.IG

.-.

,-

,FAC-I

,

,l"PlU'

.

ll",

ADII 01' DEC pr IN 110 IIEe,

-2

TRUNCATES lON OIIDER DIGITS

,611

,TUII

.99

,11, lEllO tHECIl
,lOll

,eHAII
.6

,11 t

.11 •

0811)
01174
01186
0819.
08210
0lZZ2
08U4
082~6

,9'

.FLlAlP
•1

OU.2

08251
08270
08278
08278
08290
OUOZ
0831.
08326
08138
08350
08362
08369
08310
08382
08394
08.01

,LaC D
,CHAR-2

·

4'

01108
OUZZ

I~

000-1
00000

01161

"

.FNH

1Z

F PLUS 2 ZEIIOS TO FAe
SEr ER F1 INDICATION SWITCH

]J

14
U

n

11

00091
5
06'))
DIZli
06931
06913

00000
-2~91

01300
059~N

-0001
01>785
01300
01311
0001111
00000

H

onu

U
H
16
49

07702
01278
OZ492
05934

22
4J
32
26

01108
08370
07107
02H2

J2

OHlL

32

~.

059H
OH90
05'H

0560.
07106
00000
07108
00000
00099
00000
00000

26
15
.9

02492
02615
08H6

OOOOP
00000

05956
059.5
05136
05136
08482
05861
07078

05136
05956
06031
01\00
05956
00000

.

033~Q

MACRO FOR HOLLEIlITH TYPE READ AND WR ITE
HTYPE 1 TF
TF

06810

06620
06830
06S40
06850
06860
06810
06680 HRO
06890
01>900
06010
06920
06930
06940
06950 HWRr
06960
0&970

06980

SNit
A
B
OORG
80
SM
Bl
AM
TF

,,/OrH2
I"PLUS
LAST
LUT

TF

01000
01010
01020
01030 EFROI
070.0
07050

AM
B

.11

08402

26

08H~

26
21
2.

.10.

08426
08438
08450
08462
0841lt
08.81
08482
08494

,.10.TH2

,"A)(2

·+32

.-.

SWF
ER COM

• WIOTH2

HWRT
wIorH
BSWF
SWF

.RwEFSW
.2

S".

.-.

AM
I"PLUS
B
HRO
OORG
SM
WIDTH 2
rOM COMPSW
SSW.
8L
AM
swf

06990

, SWF

.LAST

fNPLUS

.-.

I"PlUS
If WIlT

READ H FROH 10 REe TO FORMAT RECORD

08~06

.2
.INPLUS
.2
•2
.0

·

,611

.10 •

WRITE H ro 110 REe FROM FORMAT REe

0851~

08586
08598
08610
08622
08634
08641
08642
OB654
08666

.2
.SWF

08518
08530
08542
08554
OB561
08562

.611

.2

OORG
CF
lOC
Tf
F/ XCND+6 • I CON 5>6
B
Fix

41
21
49

H
12

H
II
26
11
49

12
15
41

11
26

11
49
13

26
4.

0586J

08562
05956
05826
05861
0586J
05945
01494

05953
000-2
01300
-0002
059.1'1

05956
05618
05826
05861
059."
05945
08562

000-2
00000
01300
-0002
0586J
-0002
00000

05981
03686
038S.

00000
05488
00000

~0002

00000

7 (J I

J

L
1620 FORTRAN 11-.0

SU8R.OUT II.ES

SET •

OORG .-4
rOM FIXENO>I .2
rFl LaC
,FAt
.6
B
ER Fl
OORG .-10
07110
MACRO FOR A TYPE READ AND WR UE
01120 HYPE! TF
WIOTH2
,SNF.1.1
07130
TF
INPlUS
• LAST
07140
A
LAST
.WIDTH
01150
LAST
C
,"'AX· 2
01160
8M
fit F9
07110
TF
TERM
,lAST
01180
SM
TERM
.2
TFM SWC AOJ , WRIfE
01190
,R-W EF SW
01200
SWl
80
TFM
01210
swc AOJ
,READ A
01210 '
SWL
8
aORG '-4
07230
072'.0 RE.AQA CF
I~PLUS
.6
01250 '
AM
I NPLUS
01
.10
01260 '
I NPLUS
C
• TERM.
01210
8l
READ A
07280
IINF ROAFl
.lOC
07290
CF
laC
07300
TF
LOC
,FX-l
,6
01310
WIDTH
,K
S
07120 ROA
IH
ERnA
01330
A
loe
.f//OTH 2
01340
TF
Loe
,rERM
.611
07350
8
fR F7
07360
DO.RG .-4
07310 'EIIF1A TOM EI
,7
.. 11. SET Ell F7 EMOII INO AND .SWITCH
01380
I
UFl
07390
DOItG .-4
01.00 ROAFL iFM loe
.00
.1>10
OHIO
SM
,2
LOC
,10
01420
TF
loe
,~Ll
,611
01HO
$
WIDTH 2 .F
01HO
RD A
8
01450
DORG 0-4
01.60 WR iTEA rF
FA.C
,11
.LOC
01HO
INF WA 'X
,F.C-l
01480
510
lot
,'-l
01~90
WIDTH 2 ,F
S
01500 WIlTA
8H
WHA 2
01510
A
,f/l0TH
LOC
01520
fF
TEAM
,lOC
,loll
01530
8
SSIlF
DORr; '-4
075.0
07550 WRTA2 $"
WIDTH 2 .02
,10
01'60
WRTA
01570
DORG .-4
01580 WAFX
S
WIDTH 2 •. j(,
01590
W~T A
01600
OOAG '~4
07610
E AHO , TYPE IIlHTIS$A MRnl,.G.FlOAJ AJl.GIF· Rt!Q.
01060
01010 EFR02
01080
07090
01100

·

•
•

PAGE
08611
086H
08686
08698

15
06
49

0]681
0598J
10098

00002
021092
00000

26
26
21
24
46
26
12
16

05956
05945
05136
05736
01002
06185
06785
060. .
059]4
060H
059310

0586J
05136
05956
060]7
01100
05136
-0002
-9050
05953
-8834
00000

0594N
059105
05.45
08834
08994
05981
0598J
05956

15

08705

08106
081\8
oe130
08Hl
0&154
0&766
08771
08190
08802
08814
08826
08833
0883+
088106
08858
08870
08882
08894
08906
08918
08930
08942
08954
08966
ol9n
08914
01986
0899)
08994
09006
09011
O.!UO
09042
090.9
09050
09062
0.014
09086
090.91
09110

09112

H
16
49

21
26

05981
0598J
10098

00000
000-1
06185
01300
05981
00000
02815
02221
01100
05956
0618N
00000

15

02615
10098

Oooop
00000

0'98J
05911
05.6J
05956
08930

onn

11

\I
24
47
44
3J
26

22

u

••
49
16

12
26
22
49

26

0891~

02219
00000

44

09162

IZ

05911
05.56
09142
05981
0618N
05826

OS91J
02491
-0002
02219
01100
0 . . 56
0598J
00000

22
46
21
U
U

02492

000-0
000-2

U

.

0595.
09098

000-2
00000

09161

09l6.2

Zl

05956
09091

02221
00000

09U4
09141
09142

091,.

Gun
0"1' 4'

702

.71f<'

1620 FOIITIIAN 11-0

......
......
......
......

01620
0111030
0111040
0111050
011101100 EFMMI

TFL
8NF
0111010 EFALPH TOM
01690
rF
01100
S
01110
01120
~
07110
TF
01140
SM
nn~o HALP
SM
0711100
TO
01110
CF
01180
SM
01190
r
·1,,1i
01800
!FII4
01810
01810
.~F
u,,,to
TFM
OIO~O EFCHKS TFM

':'-="

018~n

A

01860
01810
01880

A
rF
S
C
8L
80
TOM
TFM

01"~0

......
......
......

8~F

S
B~L

80·
S
BD
TFM
A
A
TF

o

,

,

e+47

tGAM

.+)5

,WIDTH
,WIDTH

-+23

GAM
WRTEZ
8
DORG '-4
TF
A
C
8H
TF
TFM
TFM
80

WIDTH2
LAST
LAST
ER F9
INPLUS
IR 01G_6
SWC "DJ
SWL

MACRO FOR I TYPE READ AND IIR ITE
,SWF
,11
,WIOTH2
,M"X2
,LAST
,FAC
,WRITE I
,RWEFSII

1620 FORTRAN 11-0
08IBO
08190
08200
08210
OB220
08230
OB240 IREAO
08250
08260
08270
08280
08290
OB300
08310
08320

Dono

)
/

08340
08350
08360
08310
08310
08390
08400
08410
08420
08430
08440
08450
08460
08470
08480
08490
08500
08510
08520
08530
08540
08550
08560
08510
08580
08590
08600
01610
08620
08630
01640
08650
08660

IRDIG
IRBLNK
IMINUS
ERRFlI

READI

READ"

ERFT

ICON2

......
......
••••••
••••••
......

08610 ••••••
0 . . 10 Mil" II
08"0
01100
08710
01120
08710

sn 4

PACE

16

un.

011>10

ONOO
01'1110
07'1120
01'1110
01940
07950
07960
07910
07980 WRTE
07'1190
08000
08010
080Z0
08010
OB040
08050
08060
OB070
08080
080QO
OBIOO ITYP€l
08110
08120
081)0
08140
08150
OB160
OBI70

SUIIIDUTINES

IIDVE
CDI"UTE DEC "
IN GAM AND OIIT""T RECOIID.
MANTISSA DIGIT I ' DIGIT. IIIGHT TO
'110M FAt
TO GAil. INSEII' SIGNt CHICK MIOTH, AND ZEIIO •
IR TO MIT F FOil' TYPE CONTINUATION
FAC
,LOC
,II
FLOAT
,FAC-I
FLTENO-5 ,2
OPT
.TUM
OPT
,LOC 0
OPG
,GAM
DPG
.LOC
Z
OPTM2
• OPT
OPTMZ
,2
WA 2
,I
WA
,WAZ
,611
WA
,6
WA
,2
,FMI.,
WA2
fF AlP
WA
,00
,610
EF CHKS ,FAC-2
WA
,20
,610
CKW
,000
,'II
CKW
,LOCO
CKM
,FAt
tHAR
,CKW
CHAR
,F
WIDTH
,LOC 0
ER F8
·.)6
,FNH
,II
FL THlD-4 ,-I
CHAR
,-099
,'II
WRTF
,RWEFSII
WRITE E TYPE.
ASSEMIU EXP I~ CAM USING A MASK,
THE tHAR AND SIGN.
MOVE LEFT CAM AND IIIGHT GAM TO
OUTPUT. THEN GO TO INSERf DECIMAL POINT
,F
WIDTH
WIlT E2
IR IF F NOT LARGER THAN IFF WIOTH
e+)6
,FLTEIoID-4
CHAR
,WIDTH
UF8E
,tHAR-2

TF

SU8ROUTJ NES

,

"
"

•

onoz

09314
09326
09338
09]50
0931>2
09374
09386
0939.
09410
09422
09434
09446
09451
09410
09482
094114
09506
09518

06
44

15
26
22

16
U
26
IZ

12
25
H
12
24

"II.
44

16
16
21
21
26
22
24
H
4)

15

16
44

024'112
040U
OJTU
OllJT

olin
05976
onJ6

0598J
02491
00002
06785
05606
-2555
05606

Olin

01131

01113
01084
069JL
069JL
0110.33
01084
09290
Ollo9JL
09398
069]L
061>73
06110n

-0002
-0001
010lM
00000
-0002
03313
01100
000-0
02490
OOOKO
00-00
05601
02492
06613
02219
05608
01300

061>13

0110.
01108

05115
05202
09518
03726
07108
04702

onlL

OOOOJ
00-9R
05953

09530
09542
09554
09566
09518
09590
09602
09614
09626
09638
09n5

22
46
U
22
43
16
ZI
21
26
49

09646
09658
09610
09682
09694
09106
09111
09130

26
21
24
46
2110
16
16

09742
09754
09766

26
26
16

06785
024Q2
06044

03283
02815
J003B

09718
09790
09802
09814
09826
09838
09850
09862
09874
09886
09898
09910
09922
09929
09930
09942
09954
09966
09911
09985
09986
09998
10005
10006
10018
10030
10031
10038
10050
10062
10074
10016
10098
10llO
10122
10129
10130
10131

12
47
12
14
46
46
14
46
14
46
14
46

05956
059]4
05945
09930
09966
0594N
09966
0594101
09986
0594N
059]4
10006

000-2
01300
-0002
OOOPO
01100
01200
000-0
01200
OOOKO
01200
OOOJO
01200
00000

IZ
4.

00000
09936
10006
09936
09718

0594N
06785
01300
-0001
00000

32
49

OH92
05934

00000
00000

26
16
49

02492
02615
05934

02815
OOOTP
00000

)2
26
44

49

0328l
037)0
04042
05911
0591J
05114
02615
07078

00000
10136
05911
00000
02492
02615
00000
00000

'oR

10086

00000

16

01014

06
44
26

OZ4"

-2493
O"IJ
02491
05496
00000

It)

05115
04598
09590
07108
05202
09631
09631
09637
02555
04598

02219
01300
03126
05715
07106
-2555
05715
05715
00000
00000

05956
05736
05736
01002
05945
09936
0604"
05934

0586J
05956
06031
01100
05136
-2492
-4446
05953

SET 4

rERM
,FPIMK
TF
FAC
,FXl
TFM
SIIC ADJ
,READI
CHAR BY tHAR IS MOVED INTD FAt,RIGHT JUSTlFlEO,UNTlL SIGN
DR II CHAR ARE EUMINED.
ERROR F1 WILL OCCUR IF MORE THAN K CHAR ARE AVAIL TO READ
SM
WIDTH2
,2
,10
8L
SilL
SM
INPLUS
,2
CM
I~PLUS
,10
,610
8H
IR DIG
BE
IR BLNK
eM
INPLUS
,00
,610
BE
I~ 8LNK
CM
INPLUS
,20
,610
8E
I MINUS
eM
INPLUS
,10
,610
8E
SWL
8
ERR FlI
DDRG '-4
TO
• I NPlUS
,11
C
,TERM
'-6
8L
ERR F1 I
SM
IR DIG+6 ,I
8
I READ
DORG '-4
SF
FAC
8
SilL
OORC
·-4
TF
FAC
,FKl
SET FIXED ZERO INTO FAC
TFM EI
,671
,911. SET ERROR F1 INDICATION
Sill
8
DORG '-4
SF
FPIMK
,6
TF
FL TEND ,ICON 2_6
INF FLOAT
,LOC
eF
LOt
TFl lOC
,FAt
,6
BNF BSWF-12 ,E1
III IF NOT ERIIOR TYPE Fl
CF
EI
ellASE ERIIOR F1 INDICATION
8
ER tOM 2
DORG '-4
8
READ IF
,I
DOIIG
'-4
RETURN FROM SW~ VIA SIIC IF MIIITJIIG I TYPE
VALUE PUT IN 'A' IN I PORM,eXPANOED TO ALPHA IN
GAMA RIGHT TO LEFT. 140 CONTAINS AOII OF MIGH aRDEll
DIGIT IN GAM_ AfTI. VALUE IN GAM 1$ SIGNED,CHEtKED
FDII MIDTH, 1I0VE TO OII"UT IIECOIID.
EIIFlI IIESUL TS IF VALUE TOO LARGE FOil 'ORMAT S!,ICS.
TFM WAl
,~AC.l
TFL FAt
,LOC
,11
8NF WIlT 12+ 12 ,'AC-l
TF
FIXINO_6 ,ltONJ-6
FIX
DORG 0-4

..

09182
09194
09206
09211
09230
092U
09254
09266
09211
09290

PAGE

10118

lono

10162
lon4
10116
1019)

49
25
24

n

n

06
U

n

.

0594~

10206
OJ6I6
OJU4

7 (I ~~

17

704

1'20 'OUUN
011.01lUI2
01150
olno
Dina ...tlT!

11-0

SIT _
SU,RounNiS

PAGE

TOM

FUfNO+1 .2
TA
GAM-I'
,MASK I
TFM HO
.""+1
SM
IIA 2
.1
oneo
SM
IIA
.2
01790
TO
IIA
.IIA
.611
DilDO
,IIA
80
1 DIG
.11
01110
I OIG+12
8
Q8I20
OORG '-4
TF
olno 10lG
HO
.IIA
011.0
CF
GAil
PREVENTS '''"ATURE reRM,FOR NeG lAG
olno HO
5
ADR OF HI ORDER liON ZERO 01 GIT
0 . . .0
8NF WRn
.IIA
.11
0 . . 10
CM
HO
.'AII+I
oleeo
8NE WRT SGN
08890
TFM lUT
,1000
.68
08900
B
8SWF
08910
DORG '-4
08920 IIRTSO"! 8NF WRT 13
.FAt
08930
HO
,1
S"
08940
,20
TF" HO
,610
08950 WRTt3 SII
HO
,I
08960
,GAM
TF" OUT
08910
S
OUT
,HO
08980
C
OUT
,IIIOTH
08990
8H
ER F8
09000
SF
OUT
09010 OUT
os 5
, HI ORDER IIKG .lOR I N I/O ReCORD, I TYPE
09020
A
OUT
,lAST
09u30
OUT
,2
S"
09040
TR
OUT
,HO
,611
0905,0
TFM lAST
,DO
,610
09060
8SWF
8
OQ070
DORG '-4
09080 ERF8I
TR
DUO H+II,FLlERS-61
OQ090
TR
DUO H+ll ,HO
,II
anon
B
ERCO"
09110
OORG '-4
09120
1620 FORTRAN 11-0
AlII THMETIC SUBROUT 1NE S
09110 flXI
BP
-+32
YES
09140
TF
FAC
,FXl
NO
o9i50
8
F IXEND
09160
DORG 0-3
09110
TO
MU-l
,FAC-2
STORE SIGN
,K
FAC
09180
C
I S CHAR GREATER THAN K
09190
BNH _+44
NO
09200
TOM FXERR+25. 01
YES, SET ERR TYPE
09210
TFM EI
,579
,9,
SET ER E9, OVFl IN FIX
092<0
B
FXNINE+IZ,
FAC • FX9
09230
DORG '-3
09240
CF
FAC-2
TF
09250
BETA
,lERo-51
CLEAR ADD AREA
TF
09260
IM.SA
,FXl
09210
TF
-+30
olMSAPF
ALIGN DECIMAL POINTS
09280
S
-+18
,FAC
09290
A
~UMMY
,FAC-2

os

.'

..
•

"

·
,

"
"

1620 FOR TRAN 11-0
09300
09310
09320
09330 FUI
09340
09350
09360 FXSRI
09310
09380

FAC
B
MU
OORG '-4
BV
-+12
BB
OORG '-9
CF
FAe
TF
FXA-I

09]QO

DORe;

.-)

09400
09410
09420
09430 FXlll
09440

SF
B

FAt

09450

09460
09410 FXDI
09480
09490
09500
09510
09520
09530 FXIIIINE

TF

B

TF
FAt
88
DORG .-9
0
lOOMK

BV
TF

.+26
FloC

SET UP ADO
8RANCH TO FIXED POINT ADD

·

,6

,99
,FXP-l

,611

,99Mk

,11

68
DORG .-9
,578
,9,
TF" EI
Tf" FXERR-3D ,FIJ(END-12 ..

09540

Tf

FloC

09550
09560
09570 FXDRI
09580
09590
09600 ~SG~I
09610
09620
09630
096"0
09650
09660
09670
09680
09690
09100
09110
09120
091)0
09740 'lOAH
09150
09160
09110
09780
09190
09800
09810
09120
09830
09840

8

FURR

09850

,FXSR-l

,F)(9

ERROR E8. lERO DIVISION
SET UP ERROR EX I T
fAC • FX9

DOR!; 0-4
0
8

100NK
fXDI+12

OORG
8NF
CF
88
DORG
SF
B8

'-4
*+26

,6

,FAC-l

FLOATING POINT NUMBER

FAC-Z
'-9
'4C-2

OORG

.-9

eNF

·+26

CF

,F_C

FAt

,FAt

FIXED POI NT NUMIER

8.11

OORG +-9
SF

fAt

88
0010

'-'1

81
TD
CF
Til
TF

lERFAC
99
FloC

·

,FAt

8EU~t

,FXII

TF

FAC-2
SAVE

,K

TFO!
8D
511

·.2)

,lIfU-9

·.<\4
SAVE

•1

.-1)

.1 .

'"DORG. • -J
8

'-36

,9$~.F-1

,DUMMY

..

..
..

YES
STORE SIGN

,11

.10 •

elEU 'At
CHAR' K
fiND HI 0110,aDIGIT
ADJUST CHAI

15

1010.

J1
I'
12
12

10211
lOUD
102_2
10254
10266
10271
1021S
10216
10291
10309
10310
10322
1033_
10346
10351
10365
10366
10318
10390
10402
IOH4
10426
10431
10450
10462
10413
104n
10486
10498
10510
10522
10529
10530
10542
10554
10561
10562
1057"

10586
10594
10594
10606
10618
10630
10642
10654
10662
10662
10674
10686
10698
10710
10122

03. . 1
02516
1030.
0701_
069n

onn

102"
10291

00000

26

n

1030.
025st

,

06915
00000

4.
14
H
16
49

10no
10309
10366
05130
05826

DUll
-2556
01200
OPOOO
00000

44

02492
-0002
DOOKD
-0001
-2555
10309
05956
01100
00000

21
12
31
16
49

10402
10309
1030R
10309
10413
10H3
10413
10530
IOH3
5
10413
10413
10Hl
05730
05826

31
31
49

02618
02618
05322

06260
1030R
00000

46
26
49

10594
02492
03680

01100
02815
00000

25
2'
41
15
16
49

03631
02492
10662
03621
02615
10908

02490
02221
01100
00001
00N19
00000

33
26
26
26
22
21

02490
02603
02575
10128
10128
99999

00000
02116
02815
03298
02492
02490

26
49

02492
03632

02515
00000

46

10161,
00000

01400
00000

26
.9

02492
03871
03818

00000
01925
00000

32
49

02492
10780

00000
00000

32
26
42

0329l
02492
00000

00000
00099
00000

29
26
42

0329L
10884
02492
00000

0397L
01400
0328Q
00000

16
16
26
49

02615
03626
02492
03596

00N18
-3668
02805
00000

29
49

03Z9l
10858

OH92
00000

H

10974
02490
00000

00000
00000

02490
00000

00000
00000

11014
02492
00000

02492
00000
00000

3Z
42

02492
00000

00000
00000

n
n

OHZZ

01492

01200
02492
00000
DUll
OU.3
02Z21
-n94
99999
000-1
-0001
00000

.
25
U

12
16

12
16
22
24
46
32

alai"

05136
-0002
1030R
000-0
00000

PAGE
107H
10746
10753
10154
10766
10768
10168
10780
10192
10800
10800
10812
10819
10820
10832
la8H
10846
10846
10858
10870
10882
10884
10ea4
10896
10908
109Z0
10921
10921
10940
10947
109. .
10960
10972
10974
10914
10'"
10'"
10911
11000
11012
1101.
11014
IlO26
110Zl
110Zl
11040

1I0U
1l0...
11016
110. .
11l0D

1111'
ilU.
IIU6
IU ••

1115.

42
H

46

n

4Z

..
31

42

n

42

.
Jt
U

16
l6

u

tl
II

4.

00099
0l'S9'
02_.0
02U'
11123

11156
0256S

Hln
11112

11

00001
0'452
-U56
-0001
-0002
070lM

SET 4

,IMSA

FXA

fXSR!+12
DORG ·-4
SF
100MK

SU8ROUTJ NE S

101._

705

19

01490

7116

SUSROUT HIES

1620 FORTRAN 11-0

09860
09810
09880
09890
09'100
09910
09920
09930
09940

TR
TF

'"

INR
TOil
TO
IF
B
OORG
0~950 NDRII]6 TR
09960
TO"
09910 NORMbO SF
09980
80
09990
S"
10000
8
10010
ODRG
10020 FADI
TF"
100]0
RNXV
ij
10040
10050
DORG
CF
10060 FSBR I
10070
FADO
100BO
B
10090
DDRG
SF
10100
10110
B
10120
OO~G
TF
10130 FMPI
FMUL
10HO
10HO
B
10160
DDRG
10170 FOI
TF
10180
FDIV
10190
BNV
10200
TOM
10210 OVFLO
TF
TFM
10220
101]0
6
10240
OORG
102')0 FOVR I
TFL
TFM
10260
10270
6
L02eo
OORC
AM
10290 F I XII
10300
BNl
10310
TF
10)20
BB
10330
OORG
AM
10340
10350
BNZ
BNF
10360
IFM
10370
103BO
B
10390
OORG
TOM
10400
10410 PSI
CF

FNH

·.15
·.21
--12
'-1
F4tH

BETA
NDR"60
·-3
FNH
FAt-1
FNH
FINISH
SAVE
NORII36
·-4
EI
ERXV+30
EM XV
·-4
FAC-2
FAC
FADI
·-3
FAC-2
FSBRI'12
·-4
7Y
FAe

FADlt12
·-4
H
FAC
FAOltl2
EI
FAC-2
FAC
ERXV+24
·-4
FAC
FO-I
FO
·-4
IMSA
··26
FAC

·

.-])

,F"IH
.I
,DUMMV
,0
,RECIIK
, lERO-H

,FH
,0

FIND AND CLEAR RECORD "ARX

,6
REPLACE RECORD "ARK
CLEAR 8ETA

,btl. LEFT SHIFT ONCE
SET LAST DIGIT TO lERO

,

"
,6

, FNH
,!

,611. TEST LEADING lERO
,1 0,

,511

,9,
,6

,FSBA-l

,11

SU8T ONE FROM EXPONENT

SET UP ERR EI CODE

t

SET UP ADO
BRANCH TO FLOATING POINT AOO

, Lit

CLEAR "ULTlPLV AREA

,lEROM

.11,

CLEAR MULTIPLV AREA

,FD-l

.II

,lEROM
• FMP-l

,7
,9SCPF
,99

,II

,10

• FOVR-l
• SAVE

,II

,00

.10.

,

, FXl

.-9
FAe
,00
·+44,
·-26
,tI'olSA
,111
EI
FXNI NE
·-3
OOOREY'I , I
MU-I

,

I MSA-I
I MSA
IMSA-I
·"20
• +32

.

IS I
lERO
NO, CONTINUE

VES, J··t
,10,

"

,9,

,05

.

ONE

IS J • ZERO
NO, CONTINUE
YE S, THEN IS I POS IT IVE
NO, ER Gl, o TO MINUS I POWER

SET SIGN POSITIVE

SUBROUTINES

.+')6

EI
FAC
FxERR+30
FXERR
·-3
BE fA
IMSA
MU
FAC
100MK
FAC
1f9MK

*-12
EI
FXERR+25
FXNINE
.-4
IMSA
*+)8
FAC
FAC-Z

,10

EVEN
000
NEG,

,FAC

·+44

T?
SAVE
FAC-2

SET

SIGN NEGATIVE

,F X1

,

,t MSA
,9,
,112
.F xl
,FIXEND-12,.

"

, FAe
,01

," la,

J • + OR - ONE
IS I POSITIVE
NO, ERR G2, J TO MINUS
FAC a Fxl
SE T UP ERROR EXn

PO~ER

STORE J

.8ETA

,

,6

,99
,00

,610, TEST OVFL

,173

,9,

.I
,00

,

,01

..

,to,
,10.

,ONEl

.-9

·-14
EI
OVFLO
·-3
SAVE
FAC
FAC-2
FAC-I
OOOREV+I
PSI
*-:,3
FAe
FNHM2
EI
NO OIV
IMSA

OnlL
lI20]
1120]
11110
1120L
02493
02603
11212

11I2l
0]]13
-0001
99999
00000
0240]
02693
00000

49

0331L
02491
033IL
0372L
02565
11248

O]]OQ
00000
00000
0331L
000-1
00000

16
H
49

02615
0379.
03762

00N71
01500
00000

H
01
49

02490
024Q2
11316

00000
0411L
00000

32
49

02490
11360

00000
00000

26
0]
4.

00079
02402
11128

0344N
0413P
00000

26
09

26
16
49

00079
02492
IInB
02615
02490
01492
03786

0344N
0416J
01400
00001
02N5
000R9
00000

06
16
49

02492
04161
04162

0416N
-2565
00000

II
41
26
42

02'75
11582
024Q2
00000

000-0
01200
02825
00000

11
47
44
16
49

024,92
11638
11580
02615
IOB96

000-0
01200
02575
00P11
00000

15
H

11155
03631

00001
00000

]2

02574
02575
02574
II71B
11742

00000
000-5
00000
00099
00000

11754
03631
02492
12136
02492
03632
II B46
02615
024,92
03626
03596

02492
00000
00000
00000
02825
01200
02515
00P72
02815
- 3668
00000

02603
02515
03632
02492
0329l
02492
0328Q·
IIB58
02615
03621
IOB96

02492
000-1
01200
02603
00000
00099
000-0
01200
OOP73
00001
00000

02575
12024
02492
02490
00000

000-0
01200
000-1
03038
00000

41
44
16
49

1206B
12022
02615
1I~80

OHIL
02575
OOP74
00000

26

02565
02492
02490
02491
11755
11650

02492
02490
00000
00000
00009
00000
02565
02490
00P15
02575
00000
0344N
02492
0]040

26

1I
45

15
25
26
49
)1

15
32

43

12

,FNH
,IMSA

,174

..

.11 ,

,9,

ERR G3, OVfL IN FIXI
SET UP SIGN

IS I ZERO
NO, CONTINUE
VES
FAC a FlY PT ONE

IS A lERO
IS I NEGATIVE
VES, ER G4, ZERO TO MINUS I

YES.

STORE CHAR
CONVERT A TO F+2 FORM

• FAC
, FAC-2
,0

SET

,9

UP RETURN
SET UP SIGN AT MU-I

,SAVE
,FAC-2
,175
,!MSA

,9,

SET UP ERR G5 CODE

,lEROM

,11.

CLEAR "UL TI PLV AREA

,FAt
,ONfl'2

,6

11400
lI412
11424
11431
11432
114 . .
11456
11468
11480
11492
11504
11511
11512
11514
11536
1154]
11544
11556
1156B
11580
11582
11582
11594
11606
11618
11630
1163B
11638
11650

41

15

PACE

,99

MU-l
FAC
AXJ
FAC
MU

H

SeT 4

.-]

·+)b

11156
11168
lIl80
11192
11204
lI216
lI228
lI240
11248
11248
11260
11272
11284
11296
11308
11315
11316
11128
IIHO
11347
11348
II ]60
11372
II ]80
11380
II ]92

20

113~9

1620 FORTRAN 11-0

10420
SF
MM
10430
10440
CF
10450
80
10460
B
10410
DORG
10480
BNF
SF
104'JO
CF
10500
10510 ODOlol.t.v NOP
10'>20
C
10,30
BE
aNF
10540
TFM
10550
10560
TF
TFM
10570
B
10580
10590
OORG
TF
10600
SM
10610
al .
10620
M
10630
SF
10640
TF
10650
AM
10bbO
10670
Bl
TFM
10680
TOM
10690
10100
B
10710
OORC
A.
10720 FAx 11
BNI
10730
10740 ONEFAC TFM
TF
10750
BB
10760
UORG
10170
BO
10780
BNF
10790
10800
TFM
B
10810
10820
DORG
TF
10830
TO
10840
l08'.)0
CF
TOM
10860
TO~
10870
R
10R80
OORG
10890
TF
10900 AXJ
FSL
10910
TFM
10920
BNF
10930
10940
CF
TF
10950 REC I P
IFL
109110
IF
10910

PAGE

SET 4

,611

11662
11674
11686
11698
11710
11718
11718
11730
11742
11754
11166
II11B
11190
11802

24
46
H
16

1181"

26

11826
11838
IIB46
11846
11858
11870
118B2
11894
11906
I191B
11930
11942
11954
11966
11913
11914
11986
11998
12010
12022
12024
12024
12036
12048
12060
12068
12068
120BO
12092
12104
12116
12128
12136
12136
12148
12160
12112

16
49

11
13

4J
49

44
32
13

41

26
12
46
23
32
26

II
46
16
15
49

11
41
16
26
42

25
13
15·

U
49

12184

]J

12196
12208
12220

06

02492
0]48R
02615
12288
02575
00019
02565

26

02~90

26
05
16
H

26

707

21

70S

1620 FORfRAN 11-0

lnqaO
1.)qQO

TFM
FAC
FolV FAt

,1000

B~XV

11010
11020
11010
11040
110'0
11060
11070
11080
11090
11100
11110
11120
11130
11140
11150
11160
11170
11180
111qa
11200
11210
11220
11230
11240
11250
11260
\1270
11280
11290
11300
11310
11320
11130
11340
II 350
11360
11370
II 380
II )qO
11400
11410
11420
11430
11440
11450
11460
1\470
11480
11490
11500
11510
11520

TF

'10DIV

FAXBI

TOM

B3

• .. 36

aU~R"

,FAt
,01
,ZEROM
,GAM

.10

12256
12268
12280
122 . .
12288
12300
12H2
12324
12336
12348
12360

122~'

,11 ,

CLEAR MULTIPLY. AREA

12HZ
,FAt-it

,"'U-1
,DO

,

,FNH

,TAFE-2

,777

..

, la,

..

,11 ,

,9,

,9

,*+20

IS B zeRO
YES
NO, IS A ZERO
NO, IS B NEGATIVE
VESt ER G7, ZERO TO MINUS B
SET UP NO ERR TYPE
IS A NEGATIVE
YES. SH UP ERR TYPE

"

,9
,6,

fiND LN OF A

,2

, T'FE

SET UP MULTIPLICATION

,.+20
MULTIpLY 8 TIMES LNA

,.+20
,6,

FIND 04, •• 8

,9,

ER. F6, -A TO B

11550

TCo

11560

DENQ

~

E •• 8tN(A)

,FMFAC,tl2

,676

,a

.00101
,00102
,00103

,016840100

1620 FORTRAN 11-0

TOA

PAGE
12212

,FAC-2

1

FAC-2
F PH SH+2
FINISH+7
a
LNENT
OOOG 0-3
TOM
FINISH+2
FMP-'I
TFM
ERXV+30
IF"
FMP
8
oORG ·-3
ERXV+30
TF"
B
EXPENT
DORG ·-3
TFM
ERXV+30
NOP
FINISH.l
TFM EJ
TOM 99
8
ERROR
OOOG '-4
DURe 15000
34
B3
38
83
36
83
a
f+il
OORe .- 3
oSC
9
016840100

11540

~

,FAt-4

TFM

OSA

SEJ

,FAt-~

CF
TOM

11530

SUB.OUf 1NES

,10

~ODIV

FAt-2
A
ERXV
DORC 0- 1
TFL
GAM
SM
IMSA
Bl
-+68
TF
79
FMUL FAC
8NXV NOOIV+12
IF
FAC-2
e
ERXV
aORC .-3
TF
FAC-1
BNF
ENoO+36
B
fNoo+ZIt
OORG .-4
A.
TAFE-2
al
ONEFAC
e+41,
80
8NF
FINISH+I
H. E I
0
OVFLO
DORe '-3
TOM
OlWR+l
R~F

OL"R

,01
,SAVE

suaoOUT INES

12380
12380
12392
12'004
12411
12412
12H'
12U6
12HB
12460
12472
12480
12480
12492
12504
12516
12528
12540
12552
12560
12560
12512
12584
12596
1260.
1260.,.
12616
12624
12624
12636
12648
12660
12672
12619
15000
15000
15012
15024
15036
15044
15044

16

02H2

26

12288
OH90
03762

000-1
02565
01500
OH88
00000

02'55
02515
L2l80
00019
02'092
12300
02lt90
03162

02492
000-1
01200
0344'1
02555
01500
02'088
00000

02lt90
01124
01112

02488
03631
00000

02533
11998
12480
0312'0
01615
114BO

000-0
01200

12637

d.H
~9

06
12
~6

26
03

41
26
49

26
H
49

II
46
U
4ft
16
49

.

02~92

OHIL
0253)
00P77
00000

15
33
15
16
49

12637
02490
03125
03730
0336Q

00009
02490
00001
00000
00009
J2560
00000

15
16
16
49

03725
04\37
03792
04138

00002
·l535
J2604
00000

I.
49

03192
0337L

00000

16
41
16
15
49

03792
OHH
02615
00099
0359.

00000

14
}&
36
49

15044
150.4
15044
15058

00701
00702
00703
00000

IS

12~28

J2624t

-3464
00000
00076

OOODO

711'1

SET 4

PAGE

START+3

15057

15000

15051
15058
15010
15000

2l

5
36
49

- 3854
00000
00000

23

x
00500
00000

00000

71 n

1620 FORTRAN 11-0
ATYPEI
ClUOS
COMADO
COMENfl
COMPl T
eUMPSM
OATDUD
OAT I NH
DIODDA
OKSUFF
DKOA TA
EEXP22
EEXPAD

08706
051H
02111

EFAl~H

09206
09398
OS278
07690
08122
01702
0606)

lOGOIG
lOCAOJ
MASKEP
MATRIX
MA TRX2
MESEAR
MONeAl
NORM)6
NORM60
DOOREV
ONEFAC
OYFlDW
PRDGST
RAOOI T
READEF
READIF
REPSW3
RWEFSW
IOOMK
10ZMF

02323

2F ~l

02H3
u2303
02298
02293
02253
02283
02213
02218
022 ,"
all/')3
02268
oll08

96MF

~FCHKS

HEN02
HPlUS
H TE~M
EF TYPE
fNOFOR
EN fAijS
ENTA TN
ENTCOS
ENTOEU
E~TDRR

ENTE K.
ENTF£T
ENTF ID
ENTREC
ENTSCI
ENTSC1
ENT SO
ENTSIN
ENTSQT
ENTS.O
ERCO"2
ERRF n
ERRF11

EKPENT
FINOIN
F IN ISH
FIXENO
FlOAT[
Fl TE!\ID
FlZALP

FLIERS
FNCNEI

066~6

06698
05678
OhO/, 'f
QbO'}

"I

03187
024M
Oll79
01906
080~2

02318

02288
07078
Oij370
10006
03313
03527
03721
03680
llO}fJ
03no
03348
0632"
04906

FX~INE

10896

GM IMZF

031)26
08402
09986

HTYP~

1

IHINUS

IMSAPF
I N~l US
IRBlNK
I SPF"I
11 ~·IJ E 1

03298
05945
09966
0330]
09646

97M2F
97MF

98MF
99MK

9SCPF
9SPF
ATYPE

AXJ
81
BETA
SSWF
CHAR2
CHAR
CKW
010
DPG
OPT"2
OPT
DUDH
DUO

080bl
06)90
OH02
06lH
06."
02607
00196
11248
11272
117H
11998
03572
02226
05754
OH68
10086
05585
05953
03293
03343
03581
Olll8
Oll63
03113
03328
0)288
02795
02854
04512

11136
15044
02603
05826
06708
071 08
06673
00816
05H6
08173
07137
02607

OZ687

DUMMY

~q99q

EOPZ

07858
01986
01998
09290
07138
08094
08162
08246
07678
09182
0441)0
08642
08674

EE XPM

EEI(P
HAlP
EFCOM
EFDEC
EFOIG
EFfND
EFMIN
EFMWI
EFMW
EFROI
EFR02

SUBROUTI NES

SEf

EFMRT
EI
ENOO
ENTLN
EReOM
ERFU
ERF1
ERF8E
ERF81
ERF9
ERRET
ERROR
ERXV
erYPE
EXP
F2
FAC
FAOI
FAD
FAX81

0151~

F A)(8

F AX II
FAXI
FCHN8
FDI
FO
FOYRI
FDVR
FH
FIKI
F IKII
F IX I
FIX
FKOOO
FLOAT
FLZER
Fll
FM1MF
FMI
FMFAC
FMPI
FMP
FNHMI
FNHM2

FNH
FP1MK

FP2
F
FSaRI
FS8R
FS8
HYPE
FXI
FK9
FlAI
FlA

~

026\5
0)681
02248
05322
08974
10098
05202
10510
07002
00602
0)596
03762
0~556

07811
03818
02492
11316
0~090

12412
04258
11974
04234
07458
11432
04162
11512
OH86
03308
10562
11544
04210
01854
03579
04042
03760
03353
03313
03183
03452
11400
04138
0]358
03489
0331]
0328]
03664

022l'i
11348
0411'
04066
04534
02825
02805
101H
0]878

2~

PAGE
FlOI
FXORI
FXOR
FXO
FlERR
FXH
FXMI
FXM
FXSR I
FXSR
FIS
FXl
FlERD
GAM
GM2F
HNO
HD
HRO
HTYPE
HMRT
ICON2
ICON3
ICON5
ICON6
IDIG
IMSA
INH
IN
lOCAL
IOCR
IOGT
lOP!
IOR8C
IORT
10SK
IRDIG
IREAD
I TYPE
K2
K
LAST
LNIO
lN2
IN'
lN8
lNENT
lOCD2
lOCO
lOC
LOGE
MASKF
MASKI
MASK
MATSW

MF
MU
NI

101~6

10921
0)998
0)9H
OH.6
0321)
10120

H2
NODIV
OlMR
ONEZ
OUT
OYFLO
PAR
POT
PIDY2

0)9~0

10761
0)926
01902
0281'
0~950

PIOV~

02555
03655
03318
10309

PI
PSI
RACOI
RACO
RAPT!
RAPT
RATYI

OH9~
0~H8

08562
10130
05490
05482
O~~H

10286

015n
06061
06231
00716

0~35~

08994
05914
08930
07378
08834
10038
12196
02243
02403
06762
06718
06890
06922
06818
05582
10948
04020
05670
05562
02565
03219
06492
03851
02395
05982
05861
05934
02535
03248
03278
06785
0]408
03496
03558
OliO]

REC~K

REDOA
REDO
REP2
REP3
REP
REPSW
RSGNI
RSGN
RWA2
RWl
SAVE
SI X
SLASH
STAR T
STO.
SWC
SWF
SWL

"AX2
MAX

059Z'

0~371

05862

ROAFl
ROAlP
ROA
RDFCH
REAOA
READI
RECIP
REClG

06660\

0055~

10~13
11~10

03)78
03))3
01163
03191
03133
11650
05902
OH02
05882

~'TY

00566
00532
00520
00565
09930
on78
04424
03820
02221
05736
02980
02881
02918
029".9
03368
05606
05608
0598\
0]010
OHI3
05452
05401
05583
06031

0)666
0)6)2
02213
02231
1221'
12631>
0)0)8

TAFE
TAN6

TENH
TERM
TOFAe
TRACE
TRF x
TWOP I

jll

1620 FORTRAN 11-0
Twel
UI\IFLO

W42
.43
WACOl
WACO
WAF I(
wAP'l

END OF OPl4E

03013
0]466
07084

~APT

wA
WAry 1

wATV

04561
05518

WIDTH

04330
09162
05516

WRI TE
WRTA2
WR fA

04306
06933
05498
04282
05715
06632
09142
09098

SU8ROUTINES
wRTE2
WRTE
WRTF
WR Tl2
WA. fI 3
WRTI

w
XfYPE

SET 4
0.598
09530
04702
10194
101t02
10230
02240
07046

PAGE
lERO~

ZERO
SLASH2
STlERO
SWCAOJ
WEFOEC
WIOTH2
WR I TEA

0344'i
02767
06524
062]9
06044
05170
05956
09050

WR liE I
WR I TIL
WRTAlP
WRTFPC
W'R TFPE
WR T5GN
lERF AC

25
Olt4t46

10138
05550
05026
0499".
10366
03422

A55E~elY.

7 I :?

1620 FDUUN 11·0

LOADU

BLOCK I

7J 3

2
1620 FORTRAN. 1l-0

LOADER

BLOCK I

00010
oORG 2426
00020 NAMBUF DC
16,0
-000000.000000000
00030
DC
Z, '
00040 OVRL4P OS
ADOCD."
EOADOB
SCADDR
!DINO
MLIND
EXT! NO
SECT
iROTST
00140 AOOSVE
00150

02"'44

00160 LOODA
DO 1 70

02445
02HO
02455
02460
02461
024b2
02463
02466
02461
02412
oZIt 13

DS
OS
DS
OS
OS
OS

as
os

DS
DC

I, '

ODA
t 1,0,.0, SU8'~r8 L
1-0000-00-2522
DC
1,'

02414

00180 SVEDoA DOA
.1,0,21,0
1-0000-21-0000
DC
1,'

02490
02504

00200 INCODA DDA
.1,0,10. SU8-T8-l
1-0000-10"2522
DC
I, '

02506

OOllO

os

OO} ... o

•

lOR T
OS
IOGT
OS
IOPT
MO"CAL os
TFM
8

00460
00470

os

I

TOIS

TFM
TOM

"SUE

...
eM

"LI~IT

DC

,565

,'l66
.532

,746
"O~f',·.,Z]

.. ,

\4

14

02520

00230 SU8TBL DSS
1000
00240
DC
12" •
-0000000000'
00750.
OORG 1280
00260 DOAR
ass
20
00210 COMSEC ass
1-00" SySTEM COMMUNICATION SECTOR
002BO INR~
ass roo,.
READ. IN AReA FOR INQICATOR RECORD
00290 SSPTSL os
.ritfRK
00300 •
003\0 •
00320 •
00110 •
00150
00160
00170
00380
00410
00420
00430
00440
00450

14

01488

00190

Dono

16

OZ4H

OOOSO FLGRMK OS
00060
00010
OOOBO
00090
00100
00110
001Z0
00130

PAGE
02426
02441

GET

IOGT,FOR.7
TDIS+ ..·,MT8L+Il ..

BLOCK 2
INITIALIZE MA.INLINE aBLE

1 'f' I.
TOI5+6.,20·,·10'
TO 15+6;1118(.20.51+11

02521
02522
03533

I
1000
12

07280
072BO
07300

onoo

20
100
100

OHOO

0

00565
0056..
00532
00196
01500
07512

0
0

0

07524

16
49
16

07536

U

0
00565
0056'
07542
00000

an4t

11

07HZ

07560

14

07542

01547

-1523
JOZ68
JOlon
00000

I
OOOKO
J169)

7J"

1620 FOURA'"

11-0

LOADER

~l

OI~90

I "1+1.2 .. IIOVE CHAUCTER INTO COllECT AREA
.... AM8UF,69,lO. TEST FOR ALPHA CHARACTER
-+24
BH
TOil
TURN ON ALPHA 1"101 CUOR
AlF IND,O"
CF
NAllevr-1
TR
~A"8UF-15.NAMBUF-U •• SHIFT COllEtT AREA
TR
CCIN+10.CCIN+12 •• SHIFT INPUT AREA
RCII,KCK
8
DDRG --3
TR
NAM8UF-15.NAMBUF-I3 •• SHIFT COUECT AREA
N•• aUF-z,.IO
C"
8HE
lA8FUl
.+20,MlINO
80
ACIIKCK+12
~
DORG --3
INSERT S IF BlA~K MAlNll"'E NAIIE
TFM
NAIIRUF-2.13.10
TOM
AlF INO
TOM NAl4aUF f"
SET TRAILI NG 8lANK
...... ,..euF-l
CF
CM
HAM8UF-12"lO. TEST FOR LEADING BlANKS
8E
ENTER-12
eM
TEST FOR MAX LENGTH Of S I.' CHARACTERS
NAMOUF-14" 10 f
ONE
RCMKCK+12
BO
RC'tKCI(+ 12, AlF I NO"
TEST FOR All NUMERIC ENTRV
SF
NAM8UF-13
TEST FOR TVPE OF ENTRY
80
IIIlSCH,MlIND ••
SEARCH+II. ST8l+lI ••
I N/TULILE FOR SU8PROGRAM TA8lE SEARCH
TF"
TFM
TBl SlE '11. sal+51-20+11
B
SEARCH
nORG - - )
fFM
SEARCH+II. MTSl+1I
HM
TOl SlE +11 .• MTSl+51-20+11
·+20,. , TE ST FOR AVAIlA8~E ENTRY
aNR
B
LOAD
OURG --3
SEARCH+II.11.10
A"
SEARCH+II.NAM8UF-2.6. TEST FOR MULTIPLE ENTRV
t
SNE
·+3t!
EPRINT,73,8
BT"
B
MONCAl
DORG --3
AM
SEARCH+ll,9,10
CM
SEA-ReH+ll" • TE.ST FOR FUll TABLE
8NE
SEARCH
fPRINT,74,8
BT"
B
lOA.01+24
DORG 0-3
TF
SEARCH+II •.NAM8VF-2.6
BO
MAIN.MlINO
AM
SUBC!''' .20.10
AM
SEARC;"1I.8.10
SEARCH+ 11,1.6. LOAD 01 GIT TO INDICATE FliPPEO SU8PROGRAM
TO"
00
RNoED- 36.RlKI NO
BD
·+36.ceIN+13,

TF

0;"'00
.1 :,")10

OII>~O

01660
01670

01680
01690
01700
0111.0
01120
01130
01740
01750
01760
01770
01780
01790
01800
01810
01620
01830
01840
01850
01860
01870
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970
01980
01990
02000
02010
0202Q
02030
D,l040
OlOSU
0206Q
02070
02080
02090
02100
02110
02120
02130

RC~KCK+ 12
~AII8UF .CC

0874~

C"

'Jlb20
011>30
01640

ENTER

lARFUl

SU8SCH

MLSCH
SEARCH

TBlSlE

LOAD

lOAol

aD
B
TOM
TR
B
OORG
SM
AM
BO

02190
02200
02210
022.20
02230
02240
02250
02260

RNoeo

S
TF

IF"

OZlTO

0
fF

02280
02290
02300

eM

02310

A~e

AM

TF

AM
02320
02330
80
02140 RNoEDI S
02350
TF
TFM
02360
02370
TFM
02]80
B
TF
02390
02400
TF
02410
TF
IF
02.20

n

OlHO

)\
)\

02426
10509
08U2

~9

4]

0890~

49

086~4

16
15
15
13

OZH9
10264
02441
02440
02H9
08848
02427
086H
086H
02428
09068
09103
09191
090<12

GOOH
00000
00000
00000
000-0
01200
000-0
01200
10264
00000
02462
JI693
J2713
00000

09103
09191
09112
09224

J0673
Jlb9]
00000
00000

0910]
0910l
09168
10196
00796

OOOJI
02439
01200
0-073
00000
000-9
-0000
01200
0-074
00000
02439
02462
OOOKO
000-8
00001
10263
10512

OH26
02439
08928

14

I~

46
I~

41
4)

12
43
16
16

4"

16
16
~5

49
11

24
H

~9

26
43
II
11
15
43
43

0910l
09868
12971
09103
0910l
09364
09332

*+24.CC IN+ 14*.2lt
COMIND
CCIN+l0.CCIN+12
RCMKCK-12

09308
09320
09332
09344
09356

43
49
15
31
49

09332
09344
10265

0-]

09364

cceNT,t,IO, DECREMENT CARD COUNT BV ONE
SUBCOW-I.2,10
ROUND, SUBCOW,.I
SUBD04+$. SUBCOW-2
SUBODA+a. SUBCOW-2
IORT .-...·-23 •.,
lOAD SUBPROGRAM TA8lE IN SCRATCH AREA
I OP_T, Sus, 7
MlCO,W, SUBOOM8.6
HlCOW, 5, 10
MlCOW. SU800A+5'. 6
eceNT, f 10
S81NIT
MAINCT,20,lO
ROUNDI. "A.I NCT-I
SU800A+S.MUNO-2
SU8DoA+S. MA INCT-]
SUSODA+U.MTaL
IORT-.·,+Z3, ,
LOAD. MAINLINE TABLE
IOPT f SUB" 7

09364
09376
093H8
09400
09412
09424
OH36
09<'48
09460
094'12

12
II
43

10484
12970
09828
12731
12734
00S65
00532
12970
12976
12970
10484
08036
10482
09848
12731
12734
IZ739
00565
00512
12806
12811
02479
02482

lOADER

TF
51!
TF

INCOOA+~.FlOO.J1

TF"

e+le,5UB,T8L"11

1,·, •

AM
CII
SHE
TFM
8
TFM

• .. 6-,-20.10

8

IOPT.CONIi7

TFM

10U.o+2)

8
IOPT.FU.7
B
KEODHl
DORG '-3
All
suaco~-Z

02610

B

--18. SU8T8L +\011
• ... 36
10_T,0+2'3 ••
IOPT.,INt.1

STORE HI-CORE TA8LE,

JO~T •• +23,.

STORE COMNUNltATlON ,SECTDR

....

.1.10

) .
ODRG
026~0 ROUND I AM
NAIHtT-2 •. 1.IO. ROUND TO NEXT HI'G"f~, seCTOR
02650
8
_HDEDI
OO_G o-J
02660
TOil NlIIID, .. ,fUIIN .OFF MAINLINe INDICATOR
OcHO IIAIN
AM
MA,IIICT.20010
02610

7I 7

PAGE

09~84

0"~96

09508
09520
0"532
09544
09556
09568
0"580
09592
09604
09616
09628
09640
09652
0966~

09676
09688
09700

22
26
16
49
26

II
26
\4
H

II

43
22
26
16
16
~9

26

26
26
26
26
26
12
26
16
15

09111

02500
02510
02520
02530
02540
02550
02560
02570
02UO
02590
02600
011>10 ROUND:

_NOED

17

8lOCK I

FlOD+2."AI~CT-2

DC

11
U

H

~

OUOO
10511
00009
01100
00000
00000
02428
10511
00000
OZ428
000-0
01200
0241>2
00000

41

)\

0910]
09103
09092
10196
09308

02~40

021>30

I~

15

17

TF

TD~

0896~

08H6
08988
0 .. 000
09012
09024
09036
09048
09060
0 .. 068
09068
09080
09092
09104
09112
09112
09124
09136

21>
~6

49

02HO iteQON
02460
02.70
02'080
02490

0890~

08911>
08928
08"40
08 .. 52

H

091~8

FlOD+7.SU8DOA.S",
STOllE DISK lOAD ADDRESS OF MAINliNE TA8LE
lODoA+5,FlDO+7
lDDD4+8.fLOD+Z
COKSEC+71,FlSOOA.5
FLODH1.FLOO+7
FLOD+3l.IO.IO

024,50·

08756
08768
08780
08192
08804
08816
08828
08840
088"8
08848
08860
0&872
08884
08896
08904

081>44
02HI
02HI
01804
10264

09160
09168
09168
09180
09192
092M
09216
09224
09224
09236
09248
09260
09272
09284
09296

1620 FOR TRAN 11-0
02140
02150
02160
02170
02\80

PAGE

8l0CK I

CI~80

09112
09724
09736
097'08
0971>0
09772
09784
09796
09808
09820
0'1828
0<1828

098"0
0914'
09848
0911>0

onn

12835
12835
02511
09706
O~OOO

000-1
000-2
12970
12969
129b9

-9447
J2718
12734
000-5
12731
000-0
01200
OOOKO
10481
104ao
lo.ao
J0662
-QljCJl

J2118
10480
12131
12811
12806
12917
12811
OOOJO
12835
-2S33
00000

I

II

16

09706
09706
09700
00565
00532
00S65
00532
00565

H

OaH2

J290~

49

10004

00000

II

12969
09400

000-1
00000

10480

000-1
00000

14
H
16

4"

16

49

..
49
11

09868
09868 ' 15
0 . . .0

10~09

oa620

10513
00000
00000
10511
00000

II

09512
02462
IO_U

OOOKO
-)553
01200
-9771
J2951
-9795
JZ .. 21
-9819

00000

GOOKO

7H

1620 FORUAN 11-0
016~0

TF
AM
8
DORG
80
TOM
B
nOR.G
10M
SM
OE

01700
~11l0

02120
02BO END
02HO
02150
01160
01110
02180
02190
02800
B
02810 XEQONI TOM
02820
DC
TOM
TF
TR
eM

01830
02840
028~0

02810
02880
02890

o2C)on
02901
02910
02920
019)0
02931
01940
D29~0

02C)bO
02910
02980

:u: QO~2

EXTINO
SVEOOA'13,FLOD'IB
NAM8UF-II, LOMN-I

10016
10028
10040
10052
10064
10016
10088
10100
10\12
10120
10120
10132
10lH
10 152
10152
10164
10176
10188
10196

09956
09968
09980
09992
10004
10015

COM~EC+2!.,.lO

• +11)6
COMSEC+l~.l

12916 ~
12916

09284

09103
000-3
00000

09956
10263
08160

10265
00001
00000

10266
10484
08"40
08110
07294
I

00001
000-1
01200
00000
00000

43

02463
02503
024)0
07125
10120
07325
07)35
10152

49

03~4-

00000
12822
12998
000-0
01200
OOOJl
00000
00428
00000

26

02HI

26
II
49

U
15
H

6

09956

1,', •

IF"
CF
BO
B
DORG
IF
AD
A
UURG
TDM

PAGE

8LOCK I
09892
09904
09916
09924
09924
099)6
09948

~NE

eM

LOADER

MLCOW, SEARCH_II
~LC:OW. 1.10
LOAOI
'-3
"lZ,COMIND
8LKIND. L •• TURN ON 8LANK INDICATOR
ENTER
'-3
CONT,I
CCCNT 01,10
ROLOC'12
TFCC
OOAR'14

1, 10

CQMSEC+35
XEQON2.428
3540. ,6
.- 3
NAMBUF ,COMSEC'3~
XEQON2,428
3-;40" b
'-3
EXTIND,l
CO~SEC.75,.10

~E

311iltO t f 6
02990
B
31)45 •• b
03000
OORG '-3
ERROR MESSAGE SU8ROUTINE
03010
ERMESS+l6, EPRI NT-I
03020 E~~INI TF
RC TV
03030
WATV ERMESS
03040
03050
RCTV
WAry J080UT
03060
BB
03010
03080 CaNT
• --1, CONTINUE INDICATOR
COMMA INDICATOR
03090 caMINO OS
• '-2,
,·-3,
ALPHA INDICATOR
03100 ALFINO
, . - 4 , BLANK INDICATOR
01110 8LK I NO
03120 FOR
OSC
2,22
22
I,D
03130
OSC
0
~tl47'
01\40
DC

10196
10208
10220
10232
1024~

10256
10266
10265
10264
10263
10268

os
os
os

15
12
~6

49

I.

U
26

H
14

47
16

n

07335
00428
00000

4)

101~2

49

0354-

15
14
46
49

02463
01375
0354N

onooo

26
34

12995
00000
12979
00000
10451
00000
a

10195
00102
00100
00102
00100
00000

n

34
39
42

00001
000-0
01200

03~4-

a

a
0
2

10210
1027~

-141 t
03150 I NTCC
03\60
03\ 10
03\80
03190

00
00
00
00
00

,.02
,.0246810
,,0246810
, ,0246810
, ,0246810

10216
10288
10300
10312
10324

-0
-0
-0
-0
-0

-0000
-0-0-0-0-0-0-0-0-

10331>
10348
10360
IOH2
10384
10396
10408
10420
10432
10439
10439

-0
-0
-0
-0
-0
-0
-0
-0
-0

-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-

00000
0-0-0
0-0-0
0-0-0
0-0-0

71 fI

~

1620 FORTRAN 11-0
03200
03210
03220
03230
03240

03250
03260
03210
03280
03290
03300

00
00
00
00
00
00
00
00
I NTCC I 00
OORG
DC

LOADER

BLOCK I

,.0246810
, ,0246810
'10246810

,.0246810
, .02468LO

, .0246810
, ,0246810
, ,0246810
, ,0246810
'-4
I,'

I),LOCAL
DAC
LOCAL
03320 JOSOUT OAC
lit, JOB A8ANDONED'
JOB A8ANDONED'
5,0
03130 MAINtT DC
-0000
03340 CCCNT
os 2 .. CONTROL CARD COUNT
2,6, , TVPE IN LOCAL I NFORMA TI ON
03350 I NOV
OC
03310 LOCAL

PAGE

10441

5 x

10451

14 x

0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0
0-0-0

10462
10484
10481>

-6
03360

OC
-8
DC
JO
DC

03370
03380
03390
03ltOO
OHIO
01420
03430

CKSTL
CCIN
MTBL
S TBL
NEXC

03440
03450 TYPE

03460

OS
OAS
DSS

ass
DSA

DC
JO'
OSA

U341Q SUB

DC
-6'
USC

03480

OSA

2.8 •• REAO LOCAL INFORMATION FROM PAPER TAPE

10488

2,10, ,READ LOCAL INFORMATION FROM CARaS

10490

I,'

10491

READ IN AREA FOR LOCAL CARDS
1020" MAINLI .. E NAME TABLE
1020" SU8PROGRAM NAME TABLE
CCIN

10496
10499
10662
11682
12706

3, 10'

12706
12109

CCIN

12714

82"

5
82 X
1020
1020
5 X
J0499
3
5 X
J0499
3

3,06'

12714
12717

2.22

12718

SU80DA

12124

1,,'

12724
12125

J2126
I

12126

14

22

03490

DC

03500 SURDDA OOA
II,O,D,ST8l
I-OOOO-OOJ 1682
OHIO
OC
I,'
03~20

OlBO

MAP

DSC
22
DSA

5 X

12"'0

2,22

12741

MAPODA

12741

5 x

7211

1620 FOUUN 11-0
0.\540

DC

LOADER

BLOCK I

I,'

Ol~SO

"APDDA DOA
.. ,4800ol,CCIN-I
1-4800-0IJ0498
C ]1i60
nr.
I , •

22

03110

OSA

DC

J2nO

12150

14

12761

12804
12904

19 X

100
2

FLSDOA

12910

I.'

12910
12911

JZ912

12912

14

01120 FLSLJDA f)OA.
.l,D,i,FLOD
1-0000-0IJl804

03130

DC

tt'

1292'

03740 COM

OSC
22
OS.

2.22

12917

OH~O

I

12764

01570 LD"AIN DAC
IQ,LOAD MAINLINE paOG'
LOAD MAINliNE PROG'
03~8(1
FORTRAN LOADER INFORMATION SECTOR
0)-;90 •
0-2 CONTAINS SECTOR COUNT OF MAINLINE TABLE
03bOO •
3-7 CONTAINS DISK ADDRESS OF MAINLINE TABLE
0]610 •
9-13 CONTAINS DISK ADDRESS OF SCRATCH AREA
o ~620 •
14-18 CONTAINS DISK ADDRESS OF COMMON RESERVE AREA
03630 •
19-2) CONTAINS DISK ADDRESS OF EQUIVALENCE TA8LE
03640 •
24-2' CONTAINS SECTOR COUNT OF EQUIVALENCE TABLE
0161)0 •
27-31 CONTAINS ADDRESS OF IN-CORE SUBPROGRAM TA8LE
GlbbO •
3,'-" CONTAINS INITIAL LOADING ADDRESS
01b70 •
99 CONTAINS A FLAGGED RECORD MARK
03'80 FLOD
D5 S
100
03.90 FL S
DSC.
2.22
03700

PAGE

127H
1274'

5 X

1

CO"ODA

IHB

1, •

129B
12934

J293b

03770 CO"DOA OOA
,I,I9bb3,I,COMSEC
IJQl)b3-01-1300
03780
DC
1.'

12936

14

03790 INC

CSC

2,22

12951

03800

OS.

INCODA

12957
IZ951
12958

on.o

DC

01810

DC

1,'

DSC

2,22..

03830

OSA

LINKAGE TO SAVE COMMON AREA

DC

SVEDDA

12965

I.'

12965
12966

I b20 FOR TRAN 11-0

LOADER

PAGE
12971

038bO ML COW

1291b

5,0

-0000
01870 fR"ESS OAC
10,ERRDR
ERROR L
0]880 lOMN
OAe
S,,..AIN'
MA l"'l I
03890 ONETWU OSC
5,00101
00101

12999

03900

00000

DE NO

5 X
-2490
I

BLUCK I

03850 SUijCOW DC
5.0
-0000
DC

5 X

-250'
I

12959

22

03840

I

IZ950

22

03820 SVE

5 X

12979

10 X
5

X

13008

722

1&20
AODCOW
ADDSVE
ALF I~O
8LKI~O

8L~KCK
CUl~AM

COMDDA
CnMIND
COMSEC
EPRINT
EQAOOR
ERMESS
EX TI NO
HGRMK
H SODA
GETDIM
INCODA
INTer. I
J080UT
lAAFUt

FORTRA~

024~0

LOIIAI~

02412
10264
1026)
0866'0
0858'0
12936

LODP_O
MAl ~C T
MAPODA

1026~

01300
10196
02lt55
12919
02463
02H5
12~12

01112
02506
IOH2
104~1

08918

11-0

0152~

MO~Cll

00196
02441
13008
02H4
08632
09532
09848
OBI68
10484
10499
10496
12921
10266
01280
09924

ccc~r

CCIN
CKSTL
COM
CONT
OOAR
END

PAGE

BLOCK I
E~TER

10~82
111~0

MLI~IT

N.IIIBUF
ONE TWO
OYRLAP
RCMKCK
RNDEDI
ROUND I
Alii I

LOADER

12161
011H

1IL1~O

02~'1

FLOD
FLS
FOR
INC

08860
12804
12904
10268
12951

IIL$CH
MSIlE
MTBL
NEXC

09068
OH60
10662

I~OY

10~86

O~E

INRK
INTCC
IOGT
IOINO
IOPT
IORT
LOOOA
LOMN
LOAOI
LOAD
lOCAL

01'000
10216
00566
02461
00532
0051>5
02414
12999
09284
09224
10441
09868
12141
12916

ROACN
ROLOC
RMCHK

01680
OIiH
OUlI

MAI~

MAP
Mleow

R~OEO

ROU~O

SOlS
SECT
SETRM
SSllE
START
ST8L
SU8
SVE
lOIS

ll106

08~14

09400
0982.
01041
0.24"
08264
0109.
01160
11682
12118
129'9
01516

10
TFCC
1WO
TYPE

08180
01112
11114

XEOO~

096~O

SBINI T
SBPT8l
SCADOR
SEARCH
SETRMI
SPCHAR
SU8COW
SU800A
SUBSCH
SUBSET
SU8TeL
SYEDOA
TBlSZE

08036
01400
02460
09092
08320
08132
12911
12121>
09036
01644
02522
02490
09180
10004
10152
02461

XEOO~I

XEOON2
IROTST

END OF UNf ASSEMBLY.

1020 FORTRAN 11-0

lOAOER

8LOCK 2

724

IU~

FORTRA'" 11-0

LOADh

PAGE

BLOCK 2

I'l·,) 10 •
ilOI',JO

IOPT

000'0 IOGT
(If)O~O
IURT
nOOI)O

MO~CAl

O~O~O

ERAff

00010
00080
00090
00100
00110
00120
00110

INOS
ERROR

01.0
F
K

OOI~O

PROGST
00150 COMA DO
00160 ~I
00110 ~l
00180 w
00190 RECLG
00200 ENTlN
00110 ENTEXP
00220 ENTSCI
00230 ENTS):2
00240 ENTSC3
OOHO ENTF 10
00260 E~TREC
00270 ENTFET
00280 ENTSWO
00290 ENTORR
00300 EN TOED
00310 ENfCDS
00320 ENfSIN

OS
OS
OS
OS
OS
OS
OS
OS

,512
,566

00H2
005. .
00565
0079"
00"02
00"10

,~65

,196
.602

,blO
,62"

0
0
0
0
0
0
0
0

0062~

t 816
COMMUNICATION AREA
DORG 2218
OS
2 .. FLOATING POINT WORD LENGTH
OS
2 .. F I XED POI NT WORO LENGTH
OS
~
STARTING ADDRESS OF MAINLINE PROGRAM
OS
5 .. STAR TI NG ADORE SS OF COMMON AREA
05
2 .. NUMBER OF WORDS IN LOGICAL RECORD
05
5 .. NUMBER OF LOGICAL RECORDS
OS
2 .. WORD LENGTH
OS
1 .. RECORD LENGTH
OS
ENTRY ADDRESS TO LOG SUBROUT I NE
OS
5 .. ENTR.Y ADDRESS TO EXPONENTIAL SUBROUTINE
US
5 .. 'NTRY ADDRESS TO SINGLE SUBSCRIPT SUBROUTINE
5 .. EN TRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE
OS
OS
5 .. ENfRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE
OS
~
ENTR.Y 400RESS TO F I NO SUB ROUT I NE
OS
ENTRY ADORESS TO RECORD SU8ROUTINE
':)"
OS
ENTRY ADDRESS TO FETCH SUBROUT I NE
S"
OS
5 .. ENTRY ADDRESS TO SWITCH 0 SUBROUTINE
OS
5 .. ENTRY ADDRESS TO ARRAY SUBROUTINE
OS
S,' ENTRY ADORE SS TO 01 SK END SUBROUTINE
OS
5 .. ENTRy AOPRESS TU COS I NE SUBROUT I NE
0; . . ENTRY ADDRESS TO SINE SUBROUTINE
OS
OS
5 .. ENTRY ADDRESS TO ARCTANGENT SU8RDUTINE
OS
5 .. ENTRY ADDRESS TO SQUARE ROOT SU8ROUT INE
OS
5 .. ENTRY ADDKESS TO ABSOLUTE SUBROUTINE
OS
RESERVED FOR ENTRIES TO ADDED SUBROUTINES
70 "
OSS
30 llBRAR Y SU8ROUT I HE INDICATORS
OC
I.'

00816

02218

..

02219
02221
02226
02231
02231
02238
022~0

2

-;,.

02243
021'8
0225]
Oll58
0226]
0221>8
02211
02211
02283
0228B
02291
02298
02]0]
02308
02313
02li8
02323
0239]

3
5
5
5
5
5
5
5
5
5

..

2
2
5
5
2
5

~

5

02424

5
5
5
5
5
10
]0
I

00]90
DORG 2426
00400 NAJr4SUF DC
16,0
-000000000000000
00410
DC
2, '

02H6
02441

16

00420 OVRlAP DC

00330

ENTAT".

00140 ENTSQT
OOHO ENTABS
00360
00310 Ll ~SU8
003BO

t,

0239~

0244]

1.0

02444

00430 FLGRMK OS
00440 ADDCO" OS
004')Q EOADOR OS
00460 SCADDR OS
00470 !UlNa
DC

! ,0

02445
02450
02455
02460
02461

00480 MLINO

1,0

02462

OC

Ex TI NO OS
00500 SECT
as
OQ4QO

0246]
OH66

1620 FORTRAN 11-0

LOADER

BLOCK 2

PAGE

00510 lRUTST DC

1,0

02461

00520 AODSVE as
DOHO
DC

I,'

02412
02413

00540 LODDA
00550

DDA
,1,Q,Q.SUBJ8l
1-0000-00-2522
DC
1,'

725

02474

\4

02488

00560 SVEDOA OOA
d.0.2i.0
1 -0000-21-0000
00570
DC
I,'

02504

00560 iNWOA ODA
,1,0,10, SUIHBl
1-0000-10-2522
OO'5QO
DC
I,'

02~20

02490

14

0

OH06

00600
DS
1
00610 SU8TBL oss
1000
00620
12, •
DC
-0000000000'
00630
ENJOY F~OM CAll LINK STATEMENT
00640 JAYE NT NOP
TSTVLO.CDORfP
00650
IORT.lt+Z3
TF"
00660
B
IOGT.em!!,7
00670
TF" CDTPlD+l),25.10
00680
TF
D~EDDA+5,CO~SEC+71
00690
Tf
NAMBUF,749S.11
00100
TF
CO"SEC' 35. NAMSUF
00110
TFM
IORJ,fI.+239'
GET HOD SEC TOR
00120
B
IOGT,OME,1
00730
TF
SvEOO4+5,INRK+18
00740
TF
SCADOR.INRK+13
00750
TF
ADOCOW.I NRK. 36
00160
TF
ADDSVE,ADOCOW
00710
AM
ADOSVE 01 010
00180
TF
LDDOA+5,It;RI(+1
00190
TF
lDOOA+e,INU+Z
OOROO
TF
SEC T 01 NRK+Z&
00810
TF
EQADDR ,INR •• n
OOB20
TF
I~CDOA"5, INRK+l1
00830
TFM *+18t sueTS!.."ll
00840
TOM
00850
DC
1.' ,.

00860
00870
Q0880
00890
00900

nocno
Dono
009]0
00940
00950
00960

AM
CM
BNE
TFM
6
TOM
LN'INO OS

*-6,20,10

.-36
IOA;T •• "21"

IOPT,INC.1

02~21

STORE I N-CORE !AILE

lNKIND.1
,0-1
TO
IOINO,INRK+99
TOM EX.T1NO 01
EQUIVALENce TABLE SEARCH
EOSRCH TF
EQUODh 5, EDADOR

1
1000
12

02522
03533
41

0~H2

03546

16

03558
03HO
03582
03594
03606
03618
03630
03642
03654
03666
03618
03690

49
16

00565
00566
05051
05833
02441
07335
00565
00566
02495
02460
02450
02472
02472

O15n

03102
0371~

03126
03738

03750
03162

037H

26
26

26
16
~9

26
26
26
26

II
26
26
26
26
26

OH19
OH8Z

16
15

OH80
00000

037U
03186

·-18.SU8TBL+l0H

I~

03798

OH55
02511

~2533

00000

I

II
14

03810
03822

H

01534
038U

49
15

16

O)U6

03ue

02466

05448
-]569
-5B43
000K5
07371
OH9N
02441
-3641
-5820
01418
OHI]
OH36
02450
000-1
07407
01402
07426
01423
01431

03780
03180
031H
00565
00512
03856
0

OOOKO

-3SS3
01200
-3845

~

00001

03810

25
U

OZH3

07499
00001

03882

26

0591)

02455

OH61

4

-5191

726

'£

16'0 FOUIlAM 11-0
00910
00.10
009.0
01000
01010
01020
010)0
01040
01050
01060
OIOTO
01080
010.0
01100
01110
01120
011)0
01140
01150
01160
011 10
01180
01190
01200
01210
01220
012)0
01240

""

TF"
8
CO"PER TFII
8NR
8
DORG
tOllP
t
8E
All
CM
BNE
NlTRO eM
BH
B
DORG
SM
AM
A
FOUND AM
TFM

LOAOfIl

BLOCK 2

INR. . . . , SEC T
10.' ••• 21, t RUD IN FOUR SECTORS OF !QUIV. UBU
IOGT,EQU,1
SURCH EQUIV. TAiLE
COII'+II,SUITIL+II"
"20,COI4P+11,l1
UTRD+'4
0-)

UMIUF
FOUND
tOll'+l1,16,IO, I NCREIIENT TO NUT NAIIE
TEST FOR END OF UBU
COMP+ll,SUITIL+41I"
COIIPER+12
TUT FOR END OF EQUIY. TAIU
INU+U,O,9,

·.20
CoORTP
0-)

INRK+48,4,IO,
EOUDDA+5,4,10
COMPER-24

DECREMENT SECTOR COUNT

INCREMENT TO GET 01" NUM8U
01 "00A+5 ,4800
0IMOOA+6,COMP+II,11
S
0IlloDA+6,CO"P+II,11
TOM 0IllOOA+6, ,II
READ IN IlIM SECTOR
100tT ,e+23
FOUNOI TFM
IOGT,OlM,7
8
TO
SECC T, COMP+II,II
012~0
CM
secc T, 5t10
01260
OL
51!
SECCT,5,IO,
CALCULATE DIM ENTRY ADDRESS
01270
MM
01280
SeeCT,20,9
99,INRK
01290
AM
TR
olllSYE ,99,11
01300
TO
o"eooA,olMSVE
01110
TF
oMEooA+5.0IllSYE+5
01320
TR
oOAR. OllEDOA .. "OVE SECTOR DDA TO 'RDGRAM ODA AREA
01330
01340
IORT,'+2)., READ IN INDICATOR RECORD
TF"
IOGT.OIIE,7
013~0
8
DOAA.+8,DIMSVe+8, ,
MOYE SEC TOR COUNT
TF·
01360
INDICATOR RECORD CHECK
01370
TOil EXTINo.O
01380
INRK+U,INoCON, ,
CHECK FOR VALID INDICATOR RECORD
01390 TSTVlo C
01400
AE
RELFR"
INRI(+S,INOeON •• CHECK FOR VALIDITY IN CORe IIIAGE
01410
C
e.32
01420
8E
01410
8T" EPRINT,15,8
8
01440
"ONeAL
DORG 0-).
014~0
TF
INOR+U,AoOSVE
01460
CONVERT OEFINU TD CORE IIIAGE
01470
INOR+1."
TO"
OH~O
Ot
1,' t-

COMP+l1,4.10,

5

·.2"

01HO
01500
01510

AM
SM

INCREIIENT DISK ADDRESS BY ONE
00AR+5,1,10.
DECREMENT SECTOR COUNT BY ONE
00AR+8 ,1,10.
INITIALIZE FORTRAN COMMUNICATION AREA

1620 FORTRAN IJ-O

lOADER

0)19.
U9o.
03911
0)9)0
01942
0)U4
01962
0)962
0)91.
03986
0)991
04010
04022
040)14
040. .
04054
04054
04066
04011
04090
04102
04114
04126
04131
04150
04162
04174
04186
04198
04210
04222
04234
04246
04258
04270

.
16

16

16

4'J
49
24
.6
.11
14

."
n

14

12

II
4'
11

16
22

22
I'
16
4'

Z5
14
H
IZ
13
11

11
25
26

0~282

31

04294
04306
04)18

16
4.
26

04330
04342
04354
04366
04318
04390
04402
04410
04410
04422
OH33
044)4
04446

I~

24
46
24
46

17
49
26

PAGE
01UI
005U
00566
OJ91)
0)962
04046

-2"6
-)929
-51"

024-41
0.D90
0197)
0191)
01942
014. .
0405.
05448

00000
01200
000J6

01441
05913
01906
0391)

onn

0.9.8
05951
05958

-2911
01200
00-00
01100
00000
000-4
0011-4
00000
000-4
-4800
O)'In
O)91L
0000-

00565
00566
06015
06035
04222
060)5
06035
00099
05994
05828
0'8))
07280
00565
00.66
07288

-411)
-5944
O)91L
000-5
01300
000-5
00-20
-7400
0009R
05994
0.999

0246)
0741)

00000
06019
01200
06019
01200
0-0"
00000

0~178

07405
04410
05262
00796

0~828

-10317
-~820

06002

I~

05942
0'U8
I

02472
00000

Il
U

07285
07288

000-1
000-1

PAGE

8LOCK 2
26
16
26
26
4J
26
26
49

02213
02238
02240
0224)
04550
02219
02221
04618

07407
07412
07414
07417
OJ856
07424
07426
00000

24
41
24
49

07424
04598
07426
04618
05262
00796

02219
01200
02221
01200
0-076
00000

04666

26
21
26
26
26

02226
02226
02231
0150)
06024

07431
02472
07436
02231
07422

04678
04690

)2
26

07437
02423

00000
07466

04702
04714
04725
04126
0473B
04150
04762
04774
0-U'6
0.798
04810
04822
04814
04845

16
IS

0085J
00000
I
00.65
00532
-1500
04756
04"6
047S0
02472
02472
02450
07423
1

-5404
00000

02450
05324
04894
0.971
00000
024)1
00000
02461
00000
07411
06043

02231
01100
02444
00100
00102
00100
00101
00100
00101
00100
00100

0'031
00565
00566
00565

Ol46)
-'011

04458
04410
OH82
04494
04506
04511
04530
04542
04550
04550
04562
04574
04586
04598
04610
04618
04618
046)0
04642

01910
01920

04846
04858
04870
O. . IZ
04894
0490.
0491.
04910
04942
04954
04966

AODCOW.COMAOO
t
8H
ERML
·.24,OVRLAP
01~30 SIlEOK 80
8NCI RDPROG
01940
RCTY
01950
TYPE OUT NAME
WArY NAM8UF-1O •• ,
0191>0
SPTY
01970
WNTY ·AODSVE-4
01980
SPTY
01990
WNTY INIU'.l ....
TYPE OUT LENGTH
02000
WArY LDEO
02010
LOAD PROGRAMS ROUTINE
02020
CDTPLD.EXTIND .. lUNCH IF PROGUM IN CARP OR TAP"
020)0 RDPROG AD
GET PIIOGUII FROII DISK
02040 SCHLo TFM 10.T,·.23 ••
II
IOGT.INDR.7
02050
02060 CALL2 TFM lQlltT, •• 2J

O)91L
00000

727

Nl,INRK+7
TF
TF
N2.INRK+12
TF
W.INRK+14
01~40
TF
REClG,INRK+l7
01550
BO
LNK,LNKI"ID
01560
TF
01570
F"NIIK+24
K,INRIC,+26
01580
TF
OIL
01590
8
01600
DORG .-)
INRK+24,F
01610 LNK
C
01620
8NE ·.36
016)0
INRK+26,K
C
ML
Be
01640
01650
8T" EPRINT,76.8
B
MONtAL
01660
01670
oORG . - ]
TF
PROGST.INRU31
01680 ML
01690
A
PROGST ,AOOSVE
TF
CoIIAoo,INRK+16
01700
TF
01710
SVEOOA+U.COMADD
TF
01720
"LLG TH.I NRK+22
INITIALIZE LIBRARY SUBROUTINE INDICATORS
01130
01740
SF
INRK+37
LlBSU8+29,INRK+66
01750
TF
SAVE COM liON AREA
01760
TFM 010+)5.ENT.67
01770
TOM
01780
DGM
01790
TFOI
[ORT,·.2)"
PUT 21 SECTORS OF COMMON AREA IN SCRATCH
01800
I OPT ,SVE, 7
8
01810
nOO,ZEROS.2
01820 CLEAR TR
AM
CLEAR+6.500.9
01830
CLEAR+6.COMAOO
01840
C
BL
CLEAR
01850
AoOSVE ,AoDCOW
01860 TRYSZe TF
All
AoDSVE.l.l0
01870
A
AOOCOW.INRK+22
01880
TOM INRK+U
01890
01900
DC
1.' t01520 CO"lO
01530

-'55)

046~4

04'11
04990
05001
05014

46

17

16
49
31
Il
24
47
26

11
Zl
15
24
46
43
41

J4

).
).
38
)4

11
19
4)

I.
49
16

4

-4749
-5923
06088
OONOO
02231
01300
02450
000-1
07422
00000

-5931

-5031

728

1620 FOITUN 11-0

,.

LOAH.

IUICK 2

02010
IOIH,8U,7
020111,0._.......
ROIIHNIi, TO LOAO IOit0GUII FROII CAItO OR, TAPE
o~O... C;j)7I't.D TilM
416
02100
DC
1,' ,'01110
02120,
021l0.
02140
o2l~

'on6'/)
02170
02-1110
02190
02200
OUIO
02220
02i10
02240

NOlO
SF
tl'

428,C0II51:C+73
~21

42'
'I' n4,AODSVE
SF
489
COMseC;+'.,t__ .019
TF
TFII HiIRT,···23 ••
flU' BAC;K COMMUNICATION SECTDR
8
IDIOT ,COli, 7
T"M IOftT .. -+2),.
GET PROGRAII
e
10GT "EXJ, 7
CAll2
DORG ·-3
RELF.'II TO" IMAU'80

•

1.' .•

~C'

02250
02260
02210
02280
02290
02100
02310
02320 EI'tI I !liT
02330

.......

0~,340

rR,

CF
TFM
TFM
TF
B

INAK.INRtlo" , "OVE I NO ICArOR RECDRO TO CONFOR" TO CARD IMAGE
427
419,75
DDAR+1l ,'9999
I ~O"llo.ADOSVE
COMLO
ERROR MESSAGE SUR~OUTI NE

TF
EAMESS+16.EPlU~T-1
Rcn
WHY ERMESS

0~350

RC'TV

02360
02370
02J80
02390
02400
02410
02420
02HO
02440
02450
OHM}
02470
02480
1).2490
02500
02510
02HO
02510
02540
02550
02,560
02570
02580
02590
02600

W_TY J080UT
88
OORG '-9
MAINUNe OVERLA' RDUfiNE
Acn
WArY "_"IUF-IO
WNTV INRkol8
WHY OYAMES
Acn
WHY JoSDUT
H
"oNCAl
O()i\or; *-]
61
·+12,3700
8011 ERRET,1900
TOM INOS+IO,6
B
e.RROR
OORG

.......

£RML

EN,T

coonI'

os

......

WArv LOl'ts
WHy NAII8UF·10
LOlD CARO OR TAPE STORED PRDGRA"S
TO
COTP.,2,COMSEc+n
SM
COTp0201,10
TFM IORT,·.23"
GET INDICATOR REtORD

1620 FoATRAN 11-0

02610
02620
02630 RMCHK
02640
02650
026.0
02610,
021080
0269'0
02700
02710
02120
02730
027411
027S0
02760
021'10
0.2780
02790
02800 HE.O£R
02810
02d20
028)0
02840
02850 loOMIS

8

TF'M
SNR

loOT,CoTP-4,7
*+23, [NRK

6

*+20
AEAO

OOAO

.-]

_I'

CM
SOlE
SF
C~

t'F

RMCHK+llo1,IO
AMCHkoll,INRK+80
RMCMK
INRR+'I
INAH2
"'IRko'
I NRII +4
J,..K"+4.,.4111.·8
HEADER

CF
CM
BNE
ReTY
,TF. ..JORT,··'23
8
IDIOT, TYPE-4,"
II
COORTP
oORG .-.)
C
"IN_K+ I h !NDCON
'8HE Ref"D
8tjF AEAD • INAII +1'6
8
TS'TVLD
'OORG ·-3
DAC 7,LOAO
LOAD
028/00 OVRIIES DAC ~, OVERLAP'
OVERLAP'
02870 JOBOUT OAC 14, J08 ABANOONEO'
JOB ABANODNA:D'
OSC 2,2-2
02'.0 011£
22
01890
OSA OMEOOA
02900

DC
,

02910 DN£l)OA DDA

00S.6

-6060

OSO,.
0504'

15

004"
I

00000

MOSO
05062
05074
050. .
050. .
05110
05122
05134
05146
0515.
05170
05178
05171
05189

41
26
12
26
16
4'
16
4'
4'

00421
004U
0042'
00434

051QO
05202
05214
05226
05238
05250

16
16

LOADER

)2

n

_.

01391
00565
00U2
O05U
00566
05.014

00000

11

49

07400
00427
00419
07291
05942
0445,

07408
00000
-0075
A9999
02472
00000

26
34
J9
34
39
42

05985
00000
05969
00000
On9J
00000

05261
00102
00100
00102
00100
00000

00000
02431
07418
05775
00000
0579)
00796

00102
00100
00100
00100
00102
00100
OOOQO

05416
00602
00620
00624

03700
01900
00006
00000

]9

00000
0
05761
024]1

00100
00100

25
12
16

06012
060]2
000;65

01313
000-1
-5531

05520
05532
05544
05556
05564
05564
05516
05588
05600
05612
05624
05636

49
16

00566
05555
05564
05508

-6026
-7400
00000
00000

0~648

lit
lt7
14
II>
49
4"

OSS55
OSS55
OSS44
07401
07402
07401
07404
07404
05716
00000
00565
00512
05448

000-1
-7"SO
DilDO
00000
00000
00000
00000
01'131
01200
00102
-5707
-6068
00000

07413
05508
05508
04342

06019
01200
07416
00000

05484
05496
05~0'

26

,.

]9

"

]9
)4
)9
49
46
47

15
49
)4
)9

BLOCK 2

00102

PAGE

0561>0
05672
05684
05696
05708
05716
05716
05728
05740
05752
05760
05761

45

49
II
14
47
12
)]
)]
)]

24
H
44

It"

9 •

05791

lit x

05826

5 X

I, '
.t.O,l ...fNItk

DUla

14

02920

DC

,

l"t"'

H842

029JO COM

IJst

'hU

05l,H

22
OU

2

02940

COIIOOA

08849

5 X

D2950

DC

1."

051.0

I

"'Itil

lit

0191" u r
02990

•

,DSC;
tK
OSlI

6

05820

-5828
I

Ol'l60 tOIlDOA OOA ,1"'9663~J.CONSEt
1J966 1-0 1.,laoo
02970
DC
I,'

729

7 •

05775

05826
DU27

l-oOOO~OI-noo

00000
00000
02472
00000
07479
-5145
-5,41
-5169
-5.67
00000

OHto
I

)J

5

OU73

15

05324
05])6
05348
05160
05172
05)84
05]96
0540"
05404
05416
OH28
05440
054U
054"8
05454
05460
05472

c,_-s

&ELAOO

READ

4"

05262
05274
05286
05293
05310
05322
05324

.--1

ReTY

lOA liE
0502&

on..

-5152

on..

2,'-22

0"'7

Z

~JCTOOA

own

5

un

1620 fORTRAN 11-0
OJOOO

DC

~oAOU

I~DCIt

2

PAGE

0581)
1,'

on"

I

05116

I.

0'010 ElTODA DOA .1,19783,1,0
1J9181-01-0000
01020
DC
I,'

05890

01010

05891

I~C

01040

OSC
22
OSA

2,22
I,.CDDA

0~891

030~0

DC

I,'

05891
05898

01060 EQU

OSC

2,22

0~199

03010

OSA

EQUDOA

0~90'

1

-5116

-2506

I

22

01080

DC

05"0~

1,'

5 X
-5908

D~"06

I

01090 EQUOOA OOA
.1.O,4,SUBT8L
1-0000-04-2522
0)100
DC
1,'

05"08

14

01110 SVE

05923

0)120

OSC
20
OSA

2.20, ,

05922

LINKAGE TO SAVE COMMON AREA

SVEoOA

0~929

~

-2490
1
2

0)110

DC

1,'

05"2"
059]0

0)140 I,.OR

2.22

05911

011~0

OSC
22
oSA

ooAR,O

0~911

0)160

DC

1,'

05917
05942
0594)

03\ 10 DIM

OSC
22
OSA

2,22

0~944

OIMoOA

05950

~

1,'

05950
05951

-5952
1

01200 OIMOOA DOA
,l,4800,1.INRK
1-4000-01-7400
01210
DC
1,'

05952

14

03220 ERMESS OAC
10,ERROR L
ERROR L
0]230 lERO"E DC
1>,100001
JOOOOI
03240 01 MSVE OSS 20 .. RESERVES CURRENT DIM ENTRY

05969

01\60
OH~O

DC

,

11>20 FORTRAN 11-0

-1280
-0000
1

LOAOER

10 X

05993

I>

05994

20

06019

6

06024

~

BLOCK

0602~

1
~

0]290

06030
06033

-1400
3

DC

03310

o"erwo

03320 LOED

01330 OL2
03340
OH~O

0331>0 TYPE
03]10
0]380 oHA

1, '

2,0
DC
-0
DSC 5,00101
00101
DAC 9,
LOADED'
LOADED'
OSC 2,-22
2K
OSC
1,0
0
DC
5.149'
-149'
oSA DATA
DC
-I>'
oAC

731

PAGE

06030

-a'

X

05966

0]250 I NoCO" DC
b,987898 ••
INOICATOR RECORD CONSTANT
R 010 .. 0
03260 MLLGTH OS
LENGTH OF MA I NLI NE PROGRAM
5 ..
01210 CDI~P OS
1
01280 CDTP
DSA
I~R.

03300 SECCT

X

8

X

06035
06036

~

060H

9 x

06060
06062
06061

~

06072

~

),06'

06072
06015

-6017
1

6,-OATA'

06017

x

6 x

-DATA'
03390 ZEROS
0)400
03410
03420
03430
03440
034~0

03460
03410
0]480
0)490

OSC 50,0
OOOODOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50.0
00000000000000000000000000000000000000000000000000
OSC SO,O
00000000000000000000000000000000000000000000000000
OSC ~O,O
00000000000000000000000000000000000000000000000000
OSC
50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
50,0
OSC
000000000000000000000011000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC
50,0
00000000000000000000000000000000000000000000000000
DC
It'

,

ODRG
01510 OOAR
OSS
0)~20 COMsec DSS
03530 INRK
oss
01~OO

03~40

DE NO

7280
20

100,. SYSTEM COMMUNICATION secrOR
IOO,!

READ IN AREA fOR INDICATOR RECORD

06081

50

06U8

~O

06188

~O

06218

50

06288

50

06331

~O

06188

50

OUli

50

06411

50

06511

50

06~"

01210
01210

onoo
01400

20
100
100

00000

73~

1610 FOtUUN II-D
AOOtOIt
I DOW!
CDO'iT!'
COTPLD
CONAOO
CO"oOl
CO"PER
CoNSEC
olNOOA
olNSVf
ONeOOA
E~TABS

E~UT"
E~rcOS

EIIToEo
ENToRl!
ENTE XP
E~TFET

ENTF 10
E~TREC

E'ITStl
f'lTSC2
E~O

02450

OZU2
O~.41
o~on

02211
o~n?

0)910
CH)OO
05"2
05994
05828
02323
0231 )
0230)
02298
022')
02253
02283
022H
02218
022~8

Q2263

EIHSCl
e.,rSIN
ENTSgr
ENTSwO
E'.IIIT
EII'DDR
EIISRCH
EQUOO'
fRNUS
EXToOA
UTlIID
HGRMK
FOUND I
HFAOER
INCOoA
INoCON
JAYElH
J080UT
Ll8SUB
LNKIND
NllGTH
MONCAl

~OADfR

onol

"A.8UF
ONUWO

02)11

OVAl.,

021"

OVINES
'ROGST
ROPROG
RElIOO
RElFRN

onu

02455
0)182
05908
05969
05816

812
CAll2
COINP
COTP
CLEAR
COIIlO
COIC'
CON
OA"
DOAR
DIN
010
OME
ENTlN

Ol46]
OU45
04150
05116
02506
06019
03534

on.)

02]94
03n6
OoOH
00196

PAGe

IIUlCl( 2

02261

02~~1

060)6
02444
05775

Ol2Z6

E"T
EQU
UNl

fUH
ERROR

0~91'

EXT

05454
05118
06060
05014
06025
060)0
04150
044U
03962
05843
06077
01280
05944
00816
05820
02248

FOUND
F
INC
INDR
INoS
INRK
10GT
10lNO
I OPT
Ion
K
LODOl
LOEO
LDMES
lNK
MliNO

9

05404

"l
NI

0'124
00602
00624
05161
040'0

Nl

onn

Olll9
05R91
059)1
00610
01400
00566
02461
00532
OO~"

02221
024H
06041
05161
04"0
02462

NnRD
READ
RECLG
R_CHK
SCHLO
SECC T
SEC T
SVE
TYPE
W
ZEROS
seaOOR
SIZEOK
SU8TBL
SVEDDA
TRVSZE
TSTVLO
ZERONE
ZROTS T

OUIl

Oll))

01211
04022
05501
022H
05544
04990
060)5

Ollt.6
0592)
06012
02240
06081
02460
04110
02522
02490
04198
04342
05993
02461

OF ONE AS5EM8lV.

73;J

1620 FORTRAN 11-0

LOADER

BLOCK)

1620 FOUIlAN 11-0
OOOlO
00020
00030
00040
00050
00060
00010
00010
000'10
00100
00110
00120
00130
OOIl,O
00150
00160
00170
00180
001'10
00200
00210
00220
00210
00240
00250
00260
00210
00280
00290
00300
00310
00]20
00330
00)40
00]50

•
•
10PT
10GT
10RT
MONCAl
•••

K
PROGST
COMADO
Nl
N2
W
REClG
ENTLN
ENTEXP
ENTStl
ENrSt2
ENrsc]
ENTF 10
ENTREC
EN rFE T
ENTSWO
EN TORR
ENrOEO
ENreos
ENTSIN
ENrATN
ENTSQT
ENrABS
LI SSU~

OS
OS
OS
OS

LOADIR

ILOCK

J

,nz

,566

,565
,196
COIIIIUNICATION UEA
OORG 221B
OS
2 .. FLOATING POINT WORD LENGTH
OS
2 .. FIXED POINT WORO lENGTH
OS
5 .. STARTING ADDRESS Of "AINLINE PROGRAM
OS
5 .. STARTING ADDRESS Of CO.... ON 4ItU
OS
2 .. NUIIIER Of IIORDS IN LOGICAL RECORD
OS
5 .. NU"BER Of LOGICAL RECOROS
OS
2.. WORD LENGTH
OS
h, RECORD LENGTH
OS
5 .. ENTRY ADDRESS TO lOG SUBROUTINE
OS
5 .. ENTRY AnDRESS TO exPONENTIAL SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SINGlE SUISCRIPT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO OOUllE SUISCRIPT SU~ROUTINE
OS
5"
ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE
OS
5 .. ENTRy ADDRESS TO FINO SUIROUTINE
OS
5"
ENTRY ADORE SS TO RECORD SUIROUTI NE
OS
5"
ENTRY ADDRESS TO fETCH SUBROUTINE
OS
5"
ENTRY ADDRESS TO SIIITCH 0 SUIROUTINE
OS
5 .. ENTRY ADORESS TO ARUY SUIRoUTINE
OS
5 .. ENTRY ADDRESS TO DISK END SUBROUT I NE
OS
5 .. ENTRY ADDRESS TO COSINE SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SlNe SUBROUTINE
OS
5 .. ENTRY ADDRESS TO UCTANGE .. T SUBROUTINE
OS
5,. E.. TRY ADDRESS TO SQUARE ROOT SUBROUTINE
OS
5,. ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
OS
10..
RESERVED FOR ENTRIES TO ADDEO SUBROUTINES
DSS
30 .. LlBRARY SUBROUTINE INDltATORS

DC

1,'

00360
MAINLINE TABlE SEARtH
00370
DORG 2426
00380 NAMBUF De
16,0
- 000000000000000
003'10
DC
2. I
00400
00410
00420
004]0
00440

OVRlAP
FLGRMK
ADDeow
EOADDR
StADDR
10 IND

OS
os
os
OS
OS
OS
OO"~O
00460 ~ll~O OS
00470 EOTINO OS
00480 SEtr
os
00490 ZROTsr OS
OO~OO Aoosve os
00510
Dt
00520 lOOOA

1
~

5
1
1
1
3
1
5

1,'

OATA

ot

0221.
02219
02221
02226
02231

2
2
5
5

onu

2
5

02U.
02no

2

onu
02248
onsl

3
5
5

0225.
02261
02261
02213
0221.
022U
02288
02293
022'1'
02103
02301
0231)
02318
02323
02393
023'14
02424

70
30
1

02426
02441

16

S

5

5
5
5
5

5
5
5
5
5
5
5

5

I

1
5

5
5
1
1
1
3
1
5
1

024n

lOADER

14

BLOCK 1

1.'

OOllS40 SVEOOA 004
.1.0.21,0
1-0000-21-0000
00550
DC
1,'
00~60

o
o
o
o

02444
02445
OH50
02455
02460
02461
02462
0246)
02466
02467
02412
02U3

I

DOA
oI,O,O,SUBl8l
1-0000-00-2522

ot

00512
OOU'
00561
00196

02441

5

1620 FORTRAN 11-0
005]0

PAGE

1.0

Hi
PAGE

02488
14

024'0
02504
02505

00510 INCDDA DOA ,I,O.10,SUBT8l
1-0000-10-2522
00580
DC
1,'

02506

005'10
OS
1
00600 SUB TBl DSS
1000
00610
DC
12,'
-0000000000 '
00620 RMTIl tM
COMSEt+15 .. 10,
BRANCH IF NO lOCAL tAROS
00630
BE
lOOINC
00640
TFM
IORT .... 23
00650
B'
IOGT,LO,1
00660
TFM '+23,SUBTll+11
00610 5RtH
BNR "]2 .. ,
TEST FOR END OF TABLE
00680
TO~
TBlINO,1
,--2
006'10 T BLI NO OS
00100
S
lOOINe
00110
OORG '-3
00120
t
tOMSEt +35. SRCH+ 1'1.11,
COMPUE NAMES
00130
BE
TBllO
00140
AM
5RCH+II,20,10,
INCREMENT TO NEXT ENTRY
B
SRCH
00150
00160 EQSRCH TF
EOUOOA+5,EQAODR
00110
TF
INRK+U, SEC T
00180
TFM
10RT, . . 23..
READ IN FOUR SECTORS OF EQUIV. TAllE
00790
B
IDGT ,EQU, 7
00800 COMPER TFM CO"P+U,SUITll+l1..
SEARCH EOUIY. TABLE
1)0810
BNR "20,COIIP+I1,1I
00120
B
EOSRCH-l .. 6
DORG .-3
00830
00840 tOMP
t
NAMBUF
00850
BE
FOUND
00160
A"
COMP+11,16,10. INCREMENT TO NEXT NAME
00870
tM
tOMP+II,SUBTll+411..
TEST fO~ END OF TAILE
OOUO
BNE CO"PER+12
00890 NXT~O tM
INRX+4.,O,9,
TEST FOR END OF EQUIV. TABLE
00910
BE
EgSRCH-I .. 6
00930
SM
INRU41,4,IO, DECREMENT SECTOR COUNT
00940
AM
EQUOO4+5,4,10
00'150
B
COM'ER-24
00960 FOUN~ AM
CO"'+II,4,10,
INCReMENT TO GET DIM NUMIER
00970
TFII 01"00&+5,4100
00'110
S
0IMOO&+6,CD"'+II,11
00990
S
01 ,,00A+6,COII'+11 , 11
01000
TO.. 01 "OD4+6 .. 11
01010 ••••••
RUO IN 01." SECTDR
01020
TO
setc T, COM'+l1 ,11
8TM
INCGET, . . U
01030

02521
02522
0]53]

14

02520

01534
01546
01558
03570
03582
035'14
01606
03615
03611
03626
03626
03638
03650
03662
03614
03686
0369.
OHIO
03122
03134
03146
03154
03154
03166
03111
03790
03102
01114
03126
01811
03150
03162
03114
OJlI6

1
1000
12
14
46
16
4'1
16
45
15

01315
050'6
00565
00U6
03605
03626
01615

000-0
01200
-3581
-1221
-253]
00000
00001

49

05016

00000

H
46
11
49
26
2.
16
4'1
16
45
49

01135
04'118
0)605
01594
01011
01441
00565
00566
03765
03154
03Ul

0]60N
01200
OOOXO
00000
02455
02466
-3121
-6991
-2533
on6N
00000

01'110
03'122

24
46
II
14
47
14
..
U
11
49
11
16
22
22
15

02441
01174
03765
03765
0'714
01441
OIUL
07441
07011
03. .'
on65
070Jl
01012
01072
07072

00000
01200
OOOJ6
-2933
01200
00-00
01200
000-4
000-4
00000
000-4
-4100
OH6N
0376N
0000-

03934
0)946

n
17

OJIU
06122

0176N
-3"'1

03191

o

736

IUD fonU" 11-0

LOADU

•

."""

.....-.

01340
AM
01350
SM
01360
B
OORG
01310
01380 TRYSlE TF
01390
AM
01400
A
A
01610
01.7.0
TO"
01430
oc
01440
01450
01460
011010
01480
OIHO

OOAR+S,l,lO.
DDAA.+a,1.10,

''''CIIEMENT DISK ADDRESS 8Y ONE
DECIIEMENT SEC TOR COUNT IV ONE

SUBPRO-H
.-)
AOOSYE,ADOCOW
AOOS.£,I.IO
SPROST,AOOSYE
Aooeow,INRK+Z2
JNRK+23

1,', •

AOOtOW.COMAOO
S IlEOK
ADDCOW'(NRK+22
OVERLAP I ",0 I CA T! ON
TOM OVRliP,l"
TUR'" ON OYERLAP I"'DlcnOR

C

S

01510
01520
01530
01540
01550

WAry NAMBUF-IO."
WNTy INRk,+18,tt

TYPE P~OG"M NAIIE
TVPE LE"'GTH
TyPE OYERLAP
e+20,EXTIND, , BUNtH IF PROGRAM ON tUDS OR TAPE
8UOICH TO GET NEXT NAME
COMP+2"'" ,

WATY UVRMES.ft

BO
B

1620 FOR TRA", 11-0

......

LOADU

.-J

......

'F"

U

11
16
6t
16

H

12
13
II
U
l5

It
II
16
6'

.
U

n

06.39
00196

00100
00000

07056
07052
I

OH72
00000

II
12

01285
07288
on86

000-1
000-1
00000

26
II
21
21
IS

02472
02412
06168
02HO
014Z3
I

02450
000-1
021012
07422
00000

24
47

01450
06138
02450

02231
0\300
01422

0244.
00000
5

00001
00102

02431
OHII
06921
OH1.
03118

00100
00100
00100
02'063
00000

11
)~

)9

062)~

4.
26

04266
06118
04290
04298
OH98
OHIO
06322
06B4
04346
OH57

0.418
04430
04442
04654
04466

..

-"
01110
06211
01200
06211
01200
0-015
00102

04242
04242
01t2~4

00000
-)912
-6005
-1051
000-5
DilDO
000-5
00-20
-1400
000.11
07102
07107
06916
-6Ul

0161)
06526
01405
06H2
06858
00000
6

26
66

01t222

04265

OU'.
06116
OOS65
00566
01112
04062
01132
01132
0009.
07102
069n
0691.
OU'O
00'65
DO'"
01218

"

.
22
IS
H

3'
38
)9

U
4'

BLOCK )

01560
OORG .-3
01510
ROUTINE TO READ INDltaroll IIECORO FROM CAllOS OR TAPE
01580
LOAO CARD OR TAPE STORED PROGRAMS
01590 PHASEC 8 TM
INCGET,··12
01600
TO
CDTP+2 .c.OMSEC+ 11
01610
S~
COTP+2.1.10
TFM JOAT,w.23"
0lb20 !((AO
GET INDltATOR RECDRO
01630
IOGT,COTP-4.7
B
01640
TOM EXTlNO,1
TFM .+35', S'UAT8L-9
01650
0lb51 GONU AM
ENTsr+l1.20,lO
01.60 ENTS T aNR ··ZO, ••
lEST FOR END OF TA8LE
a
01670
RHD
DORG '-3
01680
01690
TF" •• 2). PtRK
01700 RMCflK BNR
··20
01710
S
RUD
01720
OORG .-3
AM
OIBO
ItMtHK+ 11.1 010
01740
tIl
A:NCHK+l1,INa" •• o
01150
SH£ R"CHl(
01160
SF
I"~"I
01110
CF
INU+Z
Cf
INUH
01110
CF
INAUIt
017'0
01800
iNNK+",41)1 ••
01810
SHE HUD'EA
ReTY
01820
,01830
WA'TY DAUI
OlhO
8
~HUED
01850
OO.G .-)
01160 HEADER C
I NIIK +\3.i NDtON"
TUr FOR IIIDICATO~ RECORD
ailE UAD
01810
BNF ·+20.IN.I(+16
01880
01190
8
IIUO
DO~G . - )
01900
01910
C
INU+25.E'IHShll.llt CO""U tUllES
01920
8NE
GeNn
01910
TF
1I."8UF .EIHU+u.1I
01940
AM
ENTShll.6.10
INF '.32 ,eOlrST+II.lI
01950
01951
'M fIlTShlhl •• IO
01960
I
fllTST
DO_G
01970
01910
SF
ENTST.ll,,6, SeT -LOADeD- "'DICUOI{
U .. I~"\JT.··'U
OI99D
02000
8
ULfAII
02010
DORG '-3
020~0
FI.I' sua'IIOGh .. nlu SUIICH
02060 flLLD All
fIlCH·lI.3010
rF FLPODUI •. SlltH+II.11
02010
02010
AM
511tH+II,5.10
TF
02090
n'DD •• 5, SAtHe'II.ll
lou.un
02100
02110
8
fOGt.n~. 7
SF
02120
COII'U

".

04150
04162
04116
06186
061.8
06210
04211

0439.
04406
OHOI

RCTy

ONHWO OSC 5,00101.*-9
00101

0)'"
on10
0)91l
0)996
06006
0601"
060)0
0604'
06056
040"
06011
04090
04102
041\4
06126
06111

0635B
04370
OH82

BL

OI~OO

PAGE

aLOtK

CI'HO
SF
ENDTST+II ••••
SET -LOADED- INDltATO.
01050
&Til
I'NC'UT ••• 12
OIObO FDUllOI TF" IOU ••• U
01070
10Gl.DI".1
DIDIO
tM
SEttr.5.10
010.0
e+1lt
BL
01100
5..
Sfter.solO.
CALtULATE 0111 ENflV ADDIIESS
01110
SECt r. 20 ••
01120
".IHRK
TA
011 3D
OIIISVE.99.11
01160
TO
OIIEOOA.DI"5VE
Tf
01150
O"EOOA+~.OI"SVE+'
01160
fit
OOAR .0"£0041 •• IIOYE SEC TOA 0041 TO 'IIOG"'" 00' UU
all TO
TF" rORT, •• ')" _fAD r~ l'IOltATOIl RECOIIO
R
UIlIO
IOG1.0ME.l
iF
OO-.'A.+a,DIMSW'E+a, ,
01190
IIDVE 5E"01l tOUNT
01200
INDiCATOR RECORO CHECK
(\1210 TS TYLO C
INA:K+ll,IIrtDCON.,
tHECK FOR VAliD INDICATOR REtOIlD
B£
01220
IIELF."
01230
C
INRK+5,INOCON"
CHECK FOR YALIDITV IN tOilE IIIAGE
oe
OIHO
·+5~
aTM EPRINT,75,a
01250
01260
RtTY
01210 INDCON DC
6,~818q8,."'4
R81891
01280
wATY JOAOUT
01290
8
MO"'CAL
0\300
OORG ·-3
TF
01310
I"'OR.+II,AODSYE
01320
TOM J~OA:.1,,,
CONYUT DEFINER TO CORE I MAGE
01330
DC
I. ' , .

PAGE

7:1 7

4

04414

04414
04486
04498
04~10

04522
04534
04546
04558

aloHa
04582
045.0
04590
04602
06614
06622
04622
04634
04646
04658
04670
04682
04694
04106
06718
067)0
06142
06154
04162
04162
04714
06116
04791
0 .. '0.
06106

06l1l
04130

0. . 42
0"~4

0....
0611.

04116
041. .

11
25
12
16
49
IS
16
II
45
4.

06822
01129
0112.
00565
00566
02463
06581
04581
06590
06510

-4486
01313
000-1
-4533
-1123
00001
-251)
OOOKO
00000
00000

16
4'
49

04613
04622
04~IO

-1400
00000
00000

II
14

4'

06613
04613
04602
01401
01402
01403
01404
01604
04162
00000
01231
05.10

000-1
-1480
01200
00000
00000
00000
00000
0"131
01200
00102
00100
00000

24

01413

41

04510
04806
04510

04217
01100
0161t
00000

41
32
3)

n
))

14
6J
)6
).

46

'24"

0742~

02HI
04581
04116
06581
04570

O"58J
01200
065U
000-6
0651J
OOOJ4
00000

04SIJ
06116
06526

00000
-6910
00000

2'
II
U

0)605
070).
0)605
010n

11

00'"
050)1

000-)
OUON
000-5
0160N
-491'
-1021
00000

4f
26
\I

.
H

II

0. . . .

lZ
17

04910

U

04~5'

0.911
0"""

04no

04.4'
04956
0....

0497.
04990

1\

.."

DO..,'

73S

*

1620 FOUllN
01110
1)1140
O?\~O

01160
02110
02180
02190
02200
OlllO
02220
02230
02240
02250
0221>0
02210
02280
02290
02)00
02310
02320
02BO
02140
02350
02360
02HO
02380
01190
02400
02410
02420
02430
02440
02450
02.60
02410
02.80
02.90
02500
02510
02520
02530
025.0
02550
02560
02510
02580
02590
02600
02610
02620
026]0
02MO
02650
02660
02670
02680

11-0

COMPAR

LOOI NC

COMPRE

SERCH

SE~C"I

...
.-6;.

SERCH2

MVADO

8~R

SERCH+56.eOM~AR.ll,11

TF
AM
AM
TF

COMPAR+ II,COMPRE+ 11.611

A

COMPAR.+ll,5.10
COMPRE+11,5.10
eOMPAR+ II.COMPRE + 11.611

SEReH]

PHASE8
ENUTST

INCI3

......
PROCOW

03080
03090
0]100
03\10
03\20
03\ 30
01140
03150
03\60
03170 PHASED
03\10
03\90
03200
03210
03220 tALL 3
03230

LOADER

PAGE

ILOU

COMPAhll,SURTlL_II, ,
INITIALIZE POINTU
TF
COMPRE -II, AOOCOW
AM
COMPRE_1\,I,10
BIIR
COMPRE
BIIF
COM'RE,COllPAR
TFM
10RT , . . n
R
IOPT,FLP,1
I II-CORE SUBPROGUM TABLE SEARCH AN~ LOAD
BTM
IIICGET,"12
COMPU
CF
COMPAR-36
8
OORG --3
RNR
SERCH
8
SERCH3
OORG .-3
BD
.+12,CO"PRE_lI,11
AM
COMPREolI,18ol0
B
eOM·RE
DORG ·-3
AM
COMPRE_II,II,IO
ANF
SERCH2.COMPAR
COMPARo II.eOMPREo 11.611,
CHECK FOR SAME IIAME
C
BE
SHCHI
AM
COMPRE+l1.7,lO
R
eOMPRE
DORG .- 3
SM
CDMPRE + 11.1\ 010
TOM
COJilPRE+ll.O,6
AM
eOMPAR+II.5.10
AM
COJl4PRE+l1.16.10
A
COMPRE +11. AOOSVE, 6
BNF
•• 156.CO,..PAA
eM
eOMPAR+II •• 61
•• 32
BNE
TF
eOHPAR+II,COMPRE+II.61I,
MOVE ADDRESS IN
SEReH2-20
B
OORG --3
~UUTlNE TO PLACt: INDIRECT ENTRY ADDRESSES I liTO SUBPROGRAMS
TF
e+3'>, COMPAR. 11 t 11
TF
*+18,COfllPRE+ll.ll
TFM
MOVE ACORESS I NTO PROGRAM
,6
SF
AM
COMPAR+ll,15,lO
COM.AR-2.
8
DORG .-3
ROUTINE TO LOAD ENTRIES IN IN-CORE SUBPROCRAM TABLE
CM
COMPAR+II.SUaT~L+IOII
.+ 12
BNE
ST" EPRINT,79.8
B
"1VAOO+24
DORG ·-3

1620 FORTRAN 11-0
OZb90
02100
02710
02120
02730
02TOn
02150
02160
02110
02180
02790
02BOO
02el0
02820
02B30
02800
028S0
02860
02810
02B80
02890
02900
02910
02920
02930
02940
029S0
02960
02910
02980
02990
0]000
03010
03020
03030
03040
03050
03060
03070

LOADER

TFM

05002
05014
05026
05031
05050
05062
05014
05086
05098
05110
05118
05118
05130
05138
05138
05UO
05162
05110
05110
05\82
05194
05206
05218
05230
05238
05238
05250
05262
05274
05286
05298
05310
05322
05334
OS]~6

02450
000-1
00000
05038
-5085
-1021

49

06822
05038
05002

-5098
00000
00000

45
49

on38
05570

00000
00000

4J
11

on70
05129
05118

0512R
000J8
00000

05129
05422
0504R
05238
05129
05111

OOOJI
05038
0512R
01200
000-1
00000

05129
0512R
05049
05129
0512R
0535.
0504R
05H4
0504R
05402

OOOJI
00000
000-5
000J6
02472
05038
-0000
0\200
0512R
00000

05389
00000
05]BM
05049
05014

OS04R
0512R
-0000
00000
OOOJS
00000

05049
05.66
06858
055]8

-]533
01200
0-079
00000

0519.
0504R
05049
05129
050.R

0504R
0512R
000-5
000-5
OSl2R

16
26
1\

U
44
16
49

11

n

49

\I
H

24
46

\I
49
12
15

\I
\I
21

44
14

47
26
49

053S.
OS]H
053bb
05318
05390

26
26
16
32

05~02

II

OS'14
05422

49

I~

05422
05434
05446

U

05~58

49

05466
05466
05478
05490
05502
0551'

11
45
26
11

11
26

0538~

73l./

BLOCK 3

C.OMPAR+IL. AOOSVE. 6

AM
CO~PAR+ll.15.10
AM
COMPRE+II,2.10
COM PAR
8
DORC . - ]
8NR
•• 44.CO~PAR+ll.l1
TOM
COMPRE+ 11 t ,6
8TM
INCPUT ,*+12
0
PHASEB
OORC ·-3
AM
COMPAR+l1.20,lO
R
COMPAR-24
DORG .-3
LOAD DISK-STORED SUBPROGRAMS
BTM
INCGET,·.12
TFM
*.23,SUBTBL+l1
.+44, ••
BNR
TEST FOR END OF TABLE
CM
PRoeOW .. 9
BNE
PHASEe
B
CALll
DORC . - ]
TF
IIAMBUF .ElltlTST+ll.l1
AM
ENOTsr+ll.6,10
INC 13-60.£NDTST+ 11.11
BN'
AM
ENOTST+11,14.10
8
ENDTST
OORG .- 3
BTM
INCPUT."12
aTM
EQSRCH,.+12. ,
SEARCH EOUI VALE liCE . TABLE
RETURN IF ENTRY NOT FOUND IN EOUIV. TABLE
AM
ENOTSTol1,l,l0
BTM
INCGET.,ol2
BNF
•• 32,ENOTSTH1,1l
AM
ENDTST+II,13,10
8
ENDTST
DORG '-3
TYPE -LOAD NAIIERCTY
3.0,--5
DC
-00
WArY LOMES
WATY NAMBUF-IO
BTM
INCCET •• oI2
SF
EIIDTST+Il .. 6.
SET -"'ED-. INDICATOR
All
PROCOW.I tlO
8TM
INCPUT.· • .:2
8
INCn
DORG '-3
CHECK AND TY'E OUT NAIIES OF UNLOADED SUIPROGRAIIS
TOM DATA, 1
TFM .+)1J,5U8'll+U
TOM MORE
.+.1
INR
8D
PHASEC"IIORE
TFM
10RT,.on
8
10GT .IL3.1

-25))

050.9
05129
05129
051\8
05111
00565
00532

PAGE

05526
05538
05550
05562
05570
05570
05582
05594
05606
05614
05614
05626
056]4
05634
05646
05658
05610
05682
OS694
05702
05102
051\4
05726
05138
OS1S0
05758
05758
05110
05782
05794
05806
058\8
05830
05838
05838
0584.
05150
0581>2
05874
05881>
05191
05910
05922
05930
0.930
05942
05954
05966
0'971
05990
06002

21

11
11
49
~5

15

\1
49

II
49

17
\6
45
14

0504R
05049
05129
05038

02472
000J5
000-2
00000

05614
OSI2R
06786
05634

050'R
00000
-5606
00000

05049
05014

OOOKO
00000

06822
05669
05702
05844

-5646
-2533
00000
00-00
01200
00000

47

0~414

49

05990

26
11
44
11
49

05669
05758
05669
05658

OS66R
000-6
0566R
000J4
00000

17
17

06786
0361.

-5110
-5782

11
17

05669
06822
05838
05669
05658

000-1
-5806
0566R
000J3
00000

34

00000
3

00102

]9
39

07153
02431
OblZ2
O.66R
05844
06786
05111

00100
00100
-5881>
00000
000-1
-5922
00000

02505
0.911
06079
06014
04474
00565
00.66

00001
-2533
00000
00000
06079
-60\3
-7166

H

11
49

If
32

11
If
49

I.
16

is

45
79
JORT,-.23 •• PUT BACK COMMU"'ICATION SECTOR
10PT ,CO~. 7
IDRT.·.Z3 ••
GET PROGRAM
IOGT,EXT,7
PROCOII,I,10
EXT"ID
"MTBl
'-3

PAGE
0601.
06026
060M
06050
06062
06010
06070
06079
060.2
06094
06106
0611.
06UO
06U.
06UI
06150
06162
06161
0611'
06116
0619.
06210
06216
06222
062)4

it

II

••11
.9

15
).

15
'9

J9
U

U
47

1

OZ •• I
'05971
06070
05971
05966

onlP
ODO-6
0591'
ODOJ.
00000

06079
0
00000
02505
0115)
02"'1
06050

00102
00000
00100
00100
00000

DODO 1

J8
)4

06162
0624'
00000
0
O14H
00000
02"68
Of/OOO

JI
19

07"18
07135

00100
00100

26

07056
06282
04581
0"'81
06)12
0"58J
06)62
00565
00566
0353"

02472
0246)
05669
000-1
0458J
06168
02463
-6)53
-7045
00000

,.
,.

19

Ollolo4
00100
00102

00100
00101
00100
00101

0

01ll"6
OU58
06270
06282
06294
06)06
06)18
063)0
063"2
06n.
06)62

26
26
"1

06)62
06)7)

15

00_16
I

00000

06174
06386
06397
06398
06HO
06422
06H4
06446
0"'58
06470
06482
06494
06506
06518
06526

25
12

00428
00"28
0
00429
00"'''
00489
07398
00565
00512
00565
00566
05"'''
02463
01534

07373
00000

'"
26

12

16

"

49

J1
26
32
26
16
49

16
49

12
15
49

00000
02"7Z
00000
01"79
-6"69
-7197
-6493
-7174
000-1
00000
00000

7~ I

1620 FDRTAAN 11-0

LOAOER

BLOCK 3

PAGE

8

03780 RElFRM TOM
03790
DC

INRK+SO

1.· .•

06526
06517

15

OH80
I

00000

03800
03810
03820
03830
03840
03850
03860
0)870
03880
03890
03900
0)910
03920
039)0
03940
0)950
03960
01970
039BO
0)990
04000
04010
Q4020
04010
04040
0'40''10'
04060
04070
040'90
0410'0
04110
04120

I"RK,INRK+., t MOVE INDICATOR RECOAD TO CONfOAM TO CARD IMAGE
427
439,75
oDAR+ I ) . 99999
SPROST.INAK+H
SPROSf.6.10
INRK+24,F, ,
TeST FDA EQUAL

06538
06550
06562
0651"
06586
06598
06610
06622
06634
06646
06658
06610
06682
06694
06706
06711

31

onoo

J)

00427
004)9
07293
06168
06168
0742"
06658
07426
06670
06851
06737
06732
06733
06726
06738

07408
00000
-0075
R9999
07431
000-6
02219
01200
02221
01200
0-076
-7_37
-239"
00000
0673'
00000

00000
06737
06732
0"298
06706
00565
00532
0678"
00565
00566
06l2J

00000
06877
-21tl"
01200
00000
-6109
-6989
00000
-68"
-6919
000'00

,

TR
CF
TFM

TFM
TF

SUB'IIO

SUaDIG
IIOVE

,,,,,PUT
I "'CGET

......
ePRI"'T

lEAONE

0'4130'
0'4140
04150
04160
04170
0"180 OVAIIES
0"190 JOIOUT
04200 DillE
0"210
0"220'

AM
e
BNE e+36
e
JNRK+26,K ••
TEST FDA EQVAL K
BE
·.24
BTM E'II INT. 76, 8
TF. ",aVE.1!.1 NRK+17,. UPDATE SUBAOUT! "'E TABLE
TFM MOVE.6,LlBSUI
CF
MOVE +7
BO
..OVE., MOVe. 11, 11
8
MOvE+12
oOR·G
TO
A
MOVE.II,ZERO"E
eM
MOVE+6,lIBSua.30
BE
TRVSU
8
SU80lG
TFM lou ... n
8
Ion,IIIC,7
8
I'NCf'UT -I .. "
TFM 10RTc,·. . n
8
IOGT .INC. 7
8
INCeGET-I . . .
EMROR ."ISSAGE SUBAOUTINE
TF
ERMESSOI •• E'RiNT-L
ACTY
DC
6.100001.'-_
JOOGOI
WATY N'''BUF-la
WAfY EIINESS
TO" SVEODA-l.I
88
oOAG '-9
oAC 9. OVfRUP'
OVERLAP'
DAC 1".Joe A..... DOIlED'
J08 ABANDONED'
OSC 2,22
22
oSA DMEODA

..;.,

OC

0,,2)0 OIIfOOA DOlo

,

DC

ItT

24
"6

17

16
16
)]
4)

49

06726

06726
06738
06750
06762
0677"
06716
06798
06810
068U
06U4
06846

25

21
14
46
49
16
"9

.
.
16

4'

O.UI
06170
06871

26
)4

07099
0'0'000
6

06157
00102

068IZ
06194
0690'
0691.
06910'
06921

39
39
15
U

0'24)1
07013
Ollt . .
00000

00100
0'0100
00001
00000

069)9
06966
06912

9 X
14 •

2

5 X

I, •

-697"
I

.1.0.,1,IN'l"

06914

14

I. '

2

2

069·72
06971

I-OOOO~DI-14DO

O'ltlioO

16
16
26
11
It

06911

7U

1620 FORTRAN 11·0
n~?50

INC

OSC

LOADER

BLOCK 3

PAGE

2,22

on ..

2
5 x

12
0~2bO

OSA

INCODA

0""

0~210

DC

I, '

06999
06996

2,22

06991

0.280

EQU

USC

9

-2506
1

12
0'290

OSA

EQUOOA

01003
0100)

04300

DC

I,'

04310 EQUOOA 00 •
• l.O.It,SUBTBL
1-0000-0'-2522
04320
DC
I,'
04HO 'l?

D5C
22
OSA

04J40

04]50

0100~

1

01006

I~

01020

2,22

01021

FLPD04

01021

I, '

01027
01028

-10]0
I

01030

I"

DC

04360 Fl PDOA OOA
.1,Q,Q,$U8TBL
1-0000-00-2522
04310
DC
I,'

010H

04)80

INn~

OSC
22
OSA

041QO

5 x
-1006

5 X

2,22

01045

onAR ,0

01051

-1280
-0000
I

1

5 x

04400

DC

I,'

01051
01056
01051

040410 Df M

DSC

2,22

01058

04420

OSA

D I MDDA

0106"

I, '

01064
01065

-1066
I

07066

I"

22

04430

DC

04440 D!

~DDA

04450

OOA
,l,480Q,1.INRK
1-4800-01-1400
DC
I,'

07080

04460 rRMESS aAC
IO,ERROR L
ERROR L
04410 DIMS VE DSS
20. ,
RE SERVE S CURRENT DIM ENTRY
04480 CD IN?
OS
I
04490 COTP
OSA
INRK

'

04500

DC
-a'

],

04510 SECC T

DC
-0
OAC

2,0

04620 lOED

9,

01083

10 X

07102
07122
07121

20
I
5

01121

-HOD
3

01130

162 a FORTRAN 11-0

S X

LOAOER

8l0CK 3

x

743

PAGE

10

011)2

LOADED'

011]5

9 X

0715]

7 X

LOADEO'
04630 LaMES

04640 BLl

04650
04660
04610

EXT

04680

04690

OAC
1.,lOAO
LOAD
2.-22
DSC
2K
1,0
OSC
0
ac
5.150'
-150'
2,-22
DSC
. 2K
OSA EXTOOA

DC

I, '

07166
07168

01173
07174
01180

-7182
1

01182

I"

04100 EXTDDA DDA
,1.19783,],0
IJ918]-03-0000
04110
DC
I,'

01196

04720 COM

DSC

01191

04130

DSA

2,22

5 x

07180
01181

2Z
CDMODA

07203

I,'

07203
07204

-1206
I

0t,150 CO"OOA OOA
,1,1966],1.COMSEC
IJ9663-01-1)00
04160
DC
I, '

01206

14

04110 LD

07221

041t,0

04180

OC

OSC
22
OSA

2,22

5 x

01220

lOOOA

01221
07221
01228

04790

OC

I, '

04800 DATAl

OAC

6,·OAT ... •

07231

1280
20

01280
07210
OHOO
01400

5 x
-2414
I
6 x

-OATA'
04810
00820 DOAR
048]0 CO"SEC
OOHO INAX

OORG
OSS
OSS
DSS

00850

DEND

lOa •• SYST!" COMMUNICATION SECTOR
READ I N AREA FOR INDICATOR RECORD
100"

20
100
100

00000

74ft

1630 FOIIUAII 11--0

AODC,OliI

01A50

EIiITSI~

AQI).$.VE
COTP!.O
COMAlIo
COJIoo.
CO"P."
COMPEl
.CQIlPtI'f
CCI"HC
OI"I)OA
,DI"SVE
ONE DO.

1l~"'1

E.IiIT50T
EIiIYSIID

fIlIHS!

ENTA8S
ENTATI!!
ENTCI)$
E~TDEO
E~ToRR

EIHEXP
EfIITFH
eN'FI'O
ENTREC
ENHCI
ENTSC2

Efllnp

OU.Z
02211
07206
05038
0)112

·~IU
~:7300

0"0"
01102
,069'"
05.658
0232)
02313
,02)03
02H8
022n
02251
ellB3
02273
02278
02258
02263
on'68

E.,.tll~T

E.gADDR
EOSRCII
EOUDDA
UNUS
EJ(TOOA
fUllID
F.lGRIIK

f.LPOOA
:FOoIlNOI
HEADER
IIIeDDl
JIICGH
1'It,PUT
INOC.O~

JOeOUT
~IBSUB

LOolNC
II\~ l~TH

NON tAL
NAMBUF
OHElWO

UIIOn

ouo,

aLOCK J

DYAUP
OYINES

OUI.

OlU.

""UI

06U.
OZ4n
0)674
070.06

PHASEC
PIIASED
'IIOCOII
pROGST
1101'11010
AEl,."
8l)
CAll)
CDINP
CDfP
CON'
CON
DATAL
DATA
DDlR
DIN
ONE
fNTlN
ENUT
EQU
EXT
FlP

OlOI3
07UZ
02463

0.2445
07010

ona.2

04",62
02506
0/>822
0.6786
.04217
06939
02394
05M6
06397
00796
OH41
04408

OZ~~~

0692.1
0'.34
0~~f4

o,no
05844
02226
06)11
06526
01166
05990
01122
01127
037'4
07197
07231
02505
07280
07058
069106
02248
04510
06997
07174
07021

11

P.GE
FDUIID
F

GtmIJ
U'CU
I 'It
IIidlII
INM
10GT
10J'I0
10PT
10RT

•l.ODOA

lOID
lDN.ES
lD
MlIND
NORE
MOYE
MVADD
NI

H2
NXTRo
RUD
REClG

0·)11.

Olli.
OU,.
05.'11
.0698'1
'0:f04'
0".00
O.O'S66
OZ461

00532
OO'U
OZUI
OZ4'4

onn

OBn
01221
02462
0607.
06726
055.14
022))
02231
OlBl.
04'10
02243

I"CHK
RNTll
SCHlO
SECCT

SECT
StitCH
SPAST
SRCH
TallO

w

SCADOR
SERCHI
SEACH2
SERCH)
SIlEOK
S'lI0ST
SUeDIG

sua,ItO
SU8T8l
SYEDoA
T811 NO

TRYSZE
TSTYlo
LERONE
LROTS T

OUOZ
035)4
06)]0
07U2
02U6

aSH.
OUI6
035.4
04.11
02240
OZ460
05231
05422
05510
06111
06161
06106
06610
02522
02490
03615
04298
04150
06871
02467

END OF ONE ASSEMBLY.

745

1620 FORTRAN 11-0

lOADER

BLOCK 4

16Z0 FDIIlUN II-D
00010
00020
onOl0
000.0

LOADER

ILOCK •

,22))
OS
,2Z)I
OS
OS
,22.0
OS
,Z2"1
ooo~o
OS
,565
00060
,566
OS
00070
,HZ
OS
00010
OS
,602
OOOqO
OS
,610
00100
,6H
OS
00110
OS
,816
onl20
,nQ4
os
00130
os
,UJI
00140
OORG 2426
001~0 IIIAMBUF DC
16,0
-000000000000000
00160
DC
2, '
00170
00180
OOIQO
00200
00210
00220
00230
00240

A (') !,'1C ow

DZU.

022.0
0056.
00"6
00U2
00602
00610
0061.
00816
02".
02Z)1

02416
02 •• 1

16

02443
OZ.4.
024 ••

ns

OS
fQADOR OS
SCAOOR OS
1011110 os
MLIIilO OS
EUIND as
002~0 SECT
os
00260 ZROTST os
00210 AOOSVE OS
00280
DC

0
0
0
0
0
0
0
0
0
0
0
0
0

OU.)

OVRlAP OS
FlC';f.('4f!'

PAGE

Dun

1111
N2
W
RECLG
10RT
10GT
10Pr
ERRET
I ~OS
ERROR
010
LI8SU8
COMAOO

I
1
5

02.~0

•

024~.

02460
02.61
02462
02463
02466
02467
02472
02471

I,'

5
1
1
1
3
I

•
I

OOA ,1,0,0,0
1-0000-00-0000
I,'
DC

0247.

00310 SVEOOA OOA t 1,0,21,0
1- 0000- 21-0000
00320
DC
I,'

02490

00310 DATA
os
00340 1 ~COOA OOA
.1,0,0.0
1-0000-00-0000
003~0
DC
I,'

02505
02506

00360
OS
I
00310 SUBTBL OSS 1000
12 ••
00380
DC
-0000000000'
003QO LNKADO OS
5
00400 FLeOOA OoA ,l,O.O.5U8TBL
1-0000-00-2522
00410
I,'
DC

02521
02522
03H)

1
1000
12

035)8
03540

5
14

002QO LOoOA
00300

00420
00430
00440

L~SUBA

01481

00780
00790
00791 OIMCT
00100
00810
00820
00830
00840
oono
00860
00870
00880
00890

WNlY
SPTY
OS
BO
WIITY
TF
spry
WNrY
BD
WArY
8
OORG
WArY

I
14

02520

03554

1620 FOR rRAN 11-0
TFM
8
80
S
00".90
CM
OO~OO
8E
00510
8
00520
OORG
00530
CM
00540
BL
00550
CM
BH
00~60
00510
TOM
00~80
BNR
00590
S
00600
B
00610
OORG
AM
00620
00h30
TF
00640
AM
00650
TF
00660
AM
00670
A
00671
AM
Tf
00612
00613
A
00674 DIMLO SM
SM
00615
00676
TOM
00617
CM
OU618
8NE
SM
00679
00680
C
00690
8L
TOM
00700
TF
00710
SM
00720
00730
AM
00740
80
oono
BNCI
00760 SUB8UF RClY
00770
DC

14

02504

LI BUR Y SU8ROUT IIilE LOAOER ROUT! NE
PTRS+I
CF
CF
PTR S.6

00450
00460
00470
00480

14

IORT ,-+21"
IOGr,L18,7

LOAOER

*+56,PTRS.ll.
BRANCH IF SU8ROUTI NE FOUND
P fRS+l 0, PTRCON,. OECREMENT POI NTERS TO NEXT ENTRY
PTRS,L 18SU8-1
R"TBL
.-48
0-3
PTRS,LlBSU8+5
·+48
PTRS,l18SU8+7

-+24
IRorsr,1
-+32. PTRS+IO.ll.
TEST FOR EMPTY OIM ENTRY
PTRS+10,PTRCDN •• OECREIIEIilT POI NTERS TO NEXT ENTRY
·-24
0-3
PTRS_IO,I.IO
LIBoOA.8,PTRS_10,11
PTRS.IO,5,10
AOOSVE ,AOOCOW
AOOSVE ,1,10
ADOCOW ,P TRS+IO.11.
INCREMENT AOORESS COUNTER BY LENGrH
PTRS+LO,5,10
OIMC r, PTRS_IO,II
PTRS,OIMCT
PTRStl,IO
DIMCTtltlO

C AltliLA TE SUBROIiTl HE IIUM8U

TYPE OUT SUeROIiTi liE NUMBER

,--5
"24,OVRUP
AOoSVE-4
SUBlUF-6,"U+10, 11,
SU"8UF+Z •• ,
. . n,OVRUP
LOeD
LBSUIl
--3
OVR"ES

H

05538
05543

OlSlO
03592

16
49
43
22
14
46
49

00565
00566
03660
05541
05537
04528
03604

-3603
-5504
0553P
05559
-2393
01200
00000

14
47
14
46
15
45
22
4Q

05~37

03720
05537
03120
02461
03752
05547
03120

-2399
01300
-2401
OllOO
00001
0554P
05559
00000

0360~

03616
03621
03640
03652
03660
03660
03672
03684
03696
03708
03120
0)132
0)144
03752
03752
03764
03176
03788
03100
03BI2
03824
03836
03841
03860
03812

TYPE OUT LENGTH OF SUBROUTINE

11
26

11
26

11
21

11
26
21

12
12
IS
14

03896
03908
03920
03932

41
12

0394~

41

0)956
0)968
03910
03992
0.00.
0.016
04021
040n

15
Z6

0.040
0.052
04051
0~06.

NOVE ADDRESS INTO IUfFER

00000
00000

747

PAGE

0388~

1,',*-4
SU88UF.5, ...

])

03~61

BLOCK 4

GET SUBROUTINE DIM ENTRIES 16 SECTORS

PTRS,1,6
DIMCr
DIMLo
PTRS+IO,5,10
ADOCOW, CONAIlO
e+24
OVRLAP ,I
SIl8BUF+6. PTR S"
SUB8UF_6,L IBSU8
SUBBUF-6 ,1,10
·.2/t,OVRLAP
LBSUBI

03556

0401.
04DII
0 . . 00
O.llZ
0 . . 2.
04U6
0....
04156
0415.

Z4

12
II
43
U
).

JI

05541
05526
05541
02412
02472
02450
05541
04051
05531
05531
04058
0553P
04058
0)860
on47
02450
03968
02444
0.034
0403.
04034
0.021
0.200
00000
I

000-8
0554P
000-5
024~0

000-1
0554P
000-5
0554P
04051
000-1
000-1
00001
-0000
01200
000-5
02231
01300
00001
05537
-2394
000-1
02444
00100
00102

31
4J
3.
49

0.033
00000
0
04018
OZ461
0.03.
00000
0.030
0.'56
D5579
0.200

02444
00100
0554P
00101
00100
02 ....
00100
00000

)9

on. .

00100

).

.3
JI
Z6

).

00100
00101

7~S

1620 FORlUN II-D
00900
S
00910
510
00920
8
00910
OORG
00940 LBSU81 SM
00'150
TF
00960
SM
00970
TF
00980
TF
00990
S"
01000
TO
01010
TO
01020
TF"
Ul010
8
01040
TFM
01050 LijSUA2 BNR
01060
TF
A
01070
01080
TO
01090
T.
01100
TO.
01110
TF
01120
TF.
01130
CF
01140
TF"
01150

01160
01170
011BO
01190
01200 RElOC
01210
01220
0\230
01240
01250 A"TBL
01260
01210 CAllb
01211
01280

......

01zqO

01300
01310
01320
01330 5RCH
0\340
01350
01360
01370
0\380
01390

01400
01410 T8110
01420
01430

01440

LOADU

BlDCk

~

ADDCDW, PTRS_IO, II,
RESET ADDRESS COUNTER
PTRS+10,13,10,
CORRECT DIM POINTER
lBSU&A+60,. ,
8UNCH to CHECK NEXT ENTRY
.-3
PTRS+IO.5.10.
DECREMENT 01 .. TO SECTOR CaU"'T
LIBOOH8, PfRS_IO, II,
MOVE IN SECTOR COUNT
PTRS+l0.3,lO.
OECREMENT DIM TO DISK ADDRESS
l (RDOA+I),PTRS+10, 11 t
tUNS FER 01 SK "DDRESS
OMEDOA+5,lI8DD'A+5, ,
SET UP ONE SECTOR DDA
PTRS+1O,5.10. DECREMENT TO DISK DRIVE CODE
L 1800A ,PTRS+1O.ll.
TIUNSFER ORIVE CODE
OMEOOA,LI8DOA
IOR.T,-.23,.
GET ONE SECTOR OF SUBROUTINE
lOGT,DMf,1
e+23, I NRK+8
RELOC
9q.PTRS+~

9q,INRK+7
*+35,QQ, 11,

SAVE 01 GI T TO 8E OVERUYEO
PTRS+'>,INR.K+8,6.
LOAD ENTRY AO'DRESS
qq, ,6.
RESTORE DIGIT
LIB+ll.400SVE
L I 800A+l h q9999
427
439
TF" IORT,*+2)" LOAO SUBROUTI NES
B
lOGT.LIB,7
A
LRSUBA+60
OORG 0-3
RELOCATE ENTRV .OORESSES
AM
LBSU8Z+11,4,10
lBSUB1+ll,ADDSVE,6,
RELOCATE ADDRESS
AM
LBSU8Z+1l, 1,10
R
L BSUB2
OOAG .- 3
C~
COMSEC+75 • .10,
BRANCH I F NO LOCAL CARDS
B~E
·+48
TF
INRK+4,INCOOA+')
TFM
IORT,.+Z3
B
IOGT,BL6,1
BO
CAll6.QVRlAP
TFM
IORT,.+Z3
0
IOGT,lO,1
TFM
*+23,SU8TBl+ll
BNR
TEST FOR END OF TA8LE
*+20",
8
CALL6
DORG '-3
COM$EC +35, SRCH+ 11,11
C
BE
TBllO
AM
SR.CH+l1.20,lO,
INCREMENT TO NEXT ENTRV
B
SRCH
DORG ·-3
AM
SRCH+ll.3.10
TF
FlPDOA+8, SRCH+ll, 11
AM
SRCH+l1.5,10
TF
FLPDOA+S,SRCH+Il,11

PAGE

22
12

02'50
055H
031>16

0554'
000J3
00000

0~200

12

04212
04224
04236
04248
04260
04212
04284
04296
04301
04320
04H2
04344
04356
04368
04380
04392
0"'04
04416
04428
04440
04452
04464
04476
04484

26

05541
05521>
05H?
05523
051>09
055H
05518
05604
00565
00st6
04343
04484
00099
00099
04403
0554K
0009R
05515
05531
00427
00439
00565
00566
0]616

000-5
0554'
000-3
055"
05523
000-5
05541'
05518
-4319
-5596
-1408
00000
05542
01401
0009R

00000
-0000
-4415
-5504
00000

04H]
04HL
04343
04332

000-4
02412
000-1
00000

01315
04588
0]404
00565
00566
04552
00565
00566
04647
04656
04552

000-0
01200
02511
-4587
-54B8
02444
-4623
-549b
-2533
00000
00000

01335
04700
04647
04636

Q464P
01200
OOOKO
00000

04647
03548
046H
03545

000-3
0"64P
000-5
0464P

O~II>'

04180
o~I'n

04200

04484
04496
04508
04520
04528
04528
04540
04552
04564
04576
04588
04600
04612
04624
046U
04648
04656
04656
04668
04680
04692
04700
04700

04112
0472"
04136

••
12
21>
26
12
25

25
II>
49
16
45
26
21
25

31
15
26
16
])

16
16
49
49

11
21

11
49

"

41
26
16

.,
4Q

16
49
16
45
49

H
46
11
4Q

It
26
11
26

07~08

00000
02472
Rq999

719
gi

1620 FORTRAN 11-0
01450
01460
01461
01462

v

01463
01464
01465 X
Ollte6
01467
01470
01480
01490
01500
01510
01520
01510
01540
01550
01560
01570
015BO
01590 FLIP
01600
01610
01620
01630
01640 SllEOK

01650

01880
01890
01900

BLOCK 4

PAGE

IORT,.+23
IOGT.FLP,7
X+ll,6.10
I.
.-2

04748
04760
04772
04181

TR
AM
RNR

X+II,V+7,6
X+l1 ,t4, 10
Y,SU8TBL+ll,7
lOR T ,-+'23
IOPT "FLP, 7
FL PPRQ+ 11. ADDeow
FLPPRO+ll.l.t'O
STAOD,FlPPRO+ll
AODCOW,FlPCDW

04184
04196
0"808
04820
04832
0484.
04856
04868
04880
0"892
04901t
04916
0492&
0"940
04952
0496'
04916
04988
05000
05012
05024
05036
05048
05060
05012
05064
05096
05108
05120
05132
0514.
05150

H"
8
TF
AM
TF
A
TF
AM
C
8M
CF
TFM

TF"
B
TF
AM
TF

AM
AM

t,

l NKADO ,-AOOCDW

lNKAOQ,24-,'lO
ADOCO., COMDO
FlPOVR
421
4'39,0
10RT,*.23
IOGT ,FLPPftO, 7
F LPlNK+ II ,FLPPRO+ 11
FlPLNK+ll.lt,lO

F LPLNK+ II, AODCOW ,6
FlPtHK+ 11.'1,610
FlPLNK+Il,6,lO

CALL5+24, SUB Tn >1\
AOOSVE, ADDCOW
AM
FlPPRO+ll.4,lO
AM
AODSVE,3,IO
TF
FLPPRO+II •• DDSVE ,6
A.
,OOCOW.2,10
·+24,QVRLAP
80
8Nel CAllS
BNR
TF

01660
01670
01680
01690
01100
01710
01720
RCTY
01730 FLPCOW DC
5,256,--5
-0256
01140
DC
1 t' ,_-'4
01750
01760
01770
01780
01790
01800
01810
0lB20
01830
OlhO
01850 CALLS
01860
01870

LOADER

TFM
B
AM
DC

WATV
BD
WNTY
SPTY
WNTV
80

16
49

11
11

11
45
16
H
26

11
26
21
26

11
24
46
3]

16
16
49

26
II
2h

II
II
45

26
II

11
26

11
U

H
)~

H

OHIO

)8

FLPCDW-4

05192
05204
05216

)9

H

11

WATV lOED

0522.

U
J9

B

CAllS

DORG

05240

49

.-)

052.8

TFN

JORT ••• 21

B
TF
AM
AM
TF

IOGT.8L5,l
SfClNK+I>;AOaCOw
5eCLNK+6,2010,
4DOCOW, 19010
FlPLNKtI6,ADDCOW

-5670
000-6

0481R
04819
04772
00565
00532
05689
05689
05652
02450
03538
03538
02450
05.60
00427
00"39
00565
00566
05630
05630
056)056305630
0528"
02412
05689
02472
0568A
02450
051410
0'260
00000
S

04779
000J4
-2533
-4843
-5610
02450
000-1
05689
05150
02lt50
000K4
02231
01100
00000
-0000
-4981
-5678
05689
000-4
02450
000-1
000-6
02533
021050
000-4
000-3
02412
000-2
024H
00100
00102

05655
05192
05648
00000
05146

00100
024104
00100
00101
00100
02444
00100
00000

05Ul
05156
0516'

WATy OVRMES

4

-4111

I

FlPMES
*.24,OYRllP
STAOO".

··32.0VRlA',

00565
00566
04819

052 . .
05260

05212
0528.
05296
0530.
05320

..

os He
aSH.
0'260

)9

05561

00100

16

005.5
00566

-5213

26

\I
II
26

onu
onll
02450
05615

-5.10
02450
000-2
00OJ9
02450

75U

1620 'DUUN 11-0
01910 SEClNK fll
All
01920
01'1)0
All
01."0
YF
OI.~O
IF
01960
All
All
OI'lTO
01'180
III
01'1'10
i;
02000
Btt
02010
B
02020
OORG
02030 FlPOVIl lOll
020.0
8
02050
OORG
02060 8l ~
OSC
2K
020TO
OSC

lOADER

ILOCK

PAGE

~

.HPlNK
S1ZEOUII.!I.IO
SfClNU6.5.10
0+11. S IlE 011+ 11.11
• SEClNII+6
SIlEOltll.IS.IO
AOOCOW.II.IO
FlPCOW. )0.10
AOOCOW.COIIAOO
FlPOVR
SUEOK

05U2
oon~ •.

11
\I
Il

Oon6'
OHIO
051'2
05.0.
05H.

U
Z'

O~'Z'

Z'

osn.

05~~0

2.-22

OS"Z
05"60
05"60
05412:
05480
05"ao

1.0

05"8Z

--)

OVRUP.I
FLIP
.-)

II
It
It

~.

••

.
15

05619
000·-5
000-5
0505.
0533'
OOOJ5
OOOJI
OOOlO
OZUI
01100
00000

00000
05059
05n8
05U6
00000
05059
02UO
05150
02UO

O'~'O

05048
OZ~~"

00001
00000

0.918

0

DC
5 .11)2'
-11l2'
020'10 8lb
2.-22
u.sc
2'
02100
osc 1.0
0
02110
Or.·
!),lS7'
-151'
02120 OIMfSl D~
.SU8TBL+59'
02\30 01"1B us
• SUBT8L
02140 lD
osc 2.22
02080

05"81
05488
051t90
05495

5

03121
OZ5ZZ

0
0
2

051096

22
02150

051

U2160
u2no

DC

LIS

02180

LOOOI

05502

I.'

05502
05503

-24H
I

0550.

2

DSC 2.22
22
051 . L 18001,0

02190

DC

I. '

0220U

DC

l,',LIB+7

05511

022"10 llaODA OOA .I,4102.6.DlllfS
1-4802-06-2522
02220
DC
I.'

05518

02230 PTRS

05531

DSA

5 X

05510
05HO
05515
05516

,

5 X

-5511
-0000
I

14

05532

L 18SUB+2 •• L leSU8-5 .01 MTaL-19

5 X
-2423
-238'1
-3\02
12

05537
05542
05541
0555.

02240 PfRCON DC
12.010000500020
-10000'00020

751

I;'"·'

1620 FOATUN 11-0
02250

ov~~es

02260 LOED
02270

D~E

LOADER

8l0CK 4

OAC 9, OVERLAP'
OVERLAP'
OAt 'I, ~DAOEO'
LOADED'
esc 2.22

PAGE
05561

9 X

05579

9 X

05596

2
5 x

22
02280

oSA

DMEOOA

05602

022'10

DC

I.'

05602
05603

-5604
I

05604

14

02300 "MEDDA eDA

.1,O,l,INRK

1-00\)0~01-1400

02310

OC

I,'

U2320 FLPLNK DSC 5.0
00000
BTM
OSC
101
I
5.0
ec
02"Q
-0000
OH60
6,'
DC
-0000'
02110 SUOD os
5
02]80
1,',
DC
02330
02]40

02190 FlPMES DAC 8.FLlPER •
FLI PER •
DSC 2.22
22
02410
DSA FlPDOA
02400 FLP

02420

DC

U2HO FLPPRO DSC

05618
05619
05624
05636

S

IT

00000
I

05641

5

05647

6

05652
05653
05655

8 X

05610

2

05616

5 X

05616
05611

-3540
1

2.22

05618

2

HODA.O

05684

-5692
-0000
I
14

I. '

-0000

22
02440

DsA

02450

DC

I.'

051>14
05689
05. .0

02460 FLODA

OOA

.1.161.5.99. . . . . . .

05692

02470

DC

5 X

1J61 f l ••'I1I9 •••
I ••

on

07210
01210
01300
07400

01110

00000

02410
DORG 1210
02490 00411
DSS 20
02500 tDIIS!C
100 .. SYSTEII CDMllUllltATION SEUDR
OSS 100 ...
onlo INRII
REAO IN ARIA 'DR INDICATOR REtOllD
02520

05106
20
100
100

752

l'ZO FOU. .'" II-D

'ggqi!

g~:~~

05619

IIIICDDA
lISUIl
LISUIZ
LISUIA
LIIIIIIA
LIISUI
LIlICAOO
NAIIIUF
OVllul'
OV.IIE.S
PTIlCON
Il.

FlPovl, 0.460
FVPAo, 05U8

CALU
CALLI>

AVE:'

t~M oun
COM c· 01)110
OliO'af.- 03121
011,0", 05604
E~'o",'
EXil~O
FLGiM
FllliCW'
FL"DD'~

FlPLNit'

FL,.1!S·
EtID OF

024 ••
02463
024 ••
05150

on.o'
o~

.. s

au

LOAI)£A

DU06
0.200

ILOCI 4

DATA
OOA.
DllICr
OlllLO
OlllTl
DID
DIIE

0•• 12

au"

0""
on",

03111

oz•.a
on••

ERRfT
ERROR

FLDOA
FLI'

05'5"
055 . .
05410
05""
05160
04.'2

H'

I NOS
INIIK
lOG'

02'05
01210
0.051
03160
02522
00116
0'''6
00602
00624
05692
0. . . .
0.610
00610
01400
00566

PAGE
1011110
lOP'
I oar
LODDA
LDEO
LD
LIB
MLlIllO
Nl
N2
"ItS
RECLG
RELOC
."TlL
SECT

OZUl

oonl

00 •••
02U4
05'"
0.4.,
0550.
02.61
022n
022,.
O.HT

onu

0....
04528
02 . . .

51,H
STAOO
TlLLO

"

'04616
'05U2
04100
02240
04101
04112
02UO

X
Y
SCADDR
SECLNK Dun
SUEOK '050.1
SUlIUF 040Zl
SU'TlL 02522
sveOOA 024.0
l"orSJ 02467

~e' Asse'MIlL Y.

i(
11>20 FOURAN 11-0

LOADER

BLOCK.

154

1620 FOUUII II-D
00010
00020
00030
00040

•
•
10PT
10GT
OOO~O 10l\T
00060 IOUNCAL
00010
00080
OOOqO F
00100 K
00110 P~OGST
00120 COMADO
00130 NI
00140 N2
00150 II
00160 RECLG
00110 eNTLN
00180 E.. TEXP
OOlqO ENTSCI
00200 EOTSCl
00210 f. "II T~C 3
00220 PHFID
00210 ENTREC
00240 ENHEf
00250 E"TSIID
00260 ENTORR
00210 ENTOEO
00280 ENTCOS
00290 ENTSTN
00100 E~TATN
00110 ENfSQT
00120 E'JTI\R~
DO:HQ
00140 LIBSUB
00350

OS
OS
OS
OS

LOADU

,532
,566
,5U

00532
00566
00565
00196

,796

CO .... UNICATION AllfA
DORG 2218
OS
FLOATING POINT 1I0RD LENGTH
OS
2 .. F I XED POINT WORD LENGTH
OS
5 .. STARTING ADDRESS OF MAINLINE PROGRA ..
OS
5 .. STARTING ADDRESS OF CO.... ON AREA
OS
2 .. NUMBER OF 1I0ROS IN LOGICAL RECORD
OS
5 .. NUMBER OF lOGICAL RECORDS
OS
2" WORD LENGTH
OS
h, RECORD LENGTH
OS
5 .. ENTRY ADDRESS TO LOG SUBROUTINE
OS
5" ENTRY ADDRESS TO EXPONENTI AL SUBROUTINE
OS
5 .. ENTRY ADDRESS TO 5 INGLE SU8SCR I PT SUBROUTI NE
~! , •
OS
ENTRY ADDRESS TO OOUBLE SU8SCRIPT SU8ROUTINE
OS
5" ENfOY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE
OS
~" ENTRY AUORESS TO F I NO SUBRour I NE
OS
>.. ENTRY AOORESS TO RECORO SUB ROUT INE
DS
5 .. ENTRY ADDRESS TO FETCH SUBROUTINe
DS
5 .. ENUY ADDRESS TO SWITCH 0 SUBROUTINE
OS
5 .. ENTRY ADDRESS TO ARRAY SUBRour INE
os 5" ENTRy ADDRESS TO DISk eND SUBROUTINE
OS
5 .. ENTRY ADDRESS TO COS I NE SUBROUT I NE
OS
5 .. ENTRY ADDRESS TO SINE SUBROUT! NE
OS
5 .. ENTRY ADORE SS TO ARC TANGENT SU8ROUTINE
os
5" ENTRY ADDRESS TO SQUARE ROOT SU8ROUT INE
5 .. ENTRY ADDRESS TO A8S0LUTE SUBROUTINE
DS
70. f
RESER YEO fOR ENTRIES TO ADDEO SUBROUTI NE S
OSS
JO .. LlBRARY SUBROUTINE INDICATORS
DC
I,'

2,.

os

00360
HA I NU NE TABLE SEARCH
OOHO
OORG 2426
00180 NA"BUf DC
16,0
-000000000000000
00390
DC
2, '
00400
00410
00420
00410
00440
00450
00460
00410

00480
004QO

00500
005\0

Ih'RlA.P OS
F l GRMK DS
ADDCO.
EOAOO"
StAOOR
IOINO OS
"'LIND OS
F x T I NO
StCT
DS
ZOOT S T DS
4005 VE
DC

PAGE

aLOCK 5

os
os

I,'

OOA
.l.O,D.SUBl8L
1-0000-00-2522

005]0

DC

1&20 FORTRAN 11-0

0221.
02219
02221
0222'
OUll
02233
02238
02240
02243
02248
02253
02258
022U
02268
02213
02218
02283
02288
02293
022qa
0230)
02308

5
5
2
5

2
3

5
5

5
5

5

5

5
5
5
5
~

onu

5
5
5

02)(8
02)2)
02H)
023Q4
OH24

5
10
30
I

OH26
02441

16

~

LOADER

024H
02HS
OH50
02455
02460
02461
02462
OH63
02466
OH61
02412
02411

5
5
I
I
I
3
I
5
I

02414

14

I
I
5

BLOCK 5

I, '

PAGE

024QO

oc

02505

1.0

14

02504

00510 I NCOOA OOA
,l ,0, lO,SU8TeL
1-0000-10-2522
00580
DC
I,'

02506

00~90
OS
I
00600 SUBT8l DSS
1000
00&10
DC
12. '
-0000000000 '
00620 LNKADO OS
5
00630 FlPOOA OOA
.ltO,Q.SU8TBL
1-0000-00-2522
00640
DC
I,'

02521
02522

LOAD DISK-STORED SUBPROGRA .. S
00650
00660
TF
SPRST,SCAOOR
00670
AM
SPRST,218
TF
00680
SCHDOA+5,INCDDA+5
006QO
TF
SCHOOA+13,AOOSYE
00100 PHASED 8TH
FlPGET,·+12
00110
TF
LNKPTR,lNkADO
00720
TFH
.+23,SUBT8L+ll
00130 ENOTS f 8NR
.... 44".
TEST FOR END OF TABLE
00140
PROCOW, ,9
CH
00150
PHA SEC
BNE
CAll6
00160
B
00710
OORG '-3
00180
TF
NA"8Uf, ENOTST+II,II
AH
oono
ENDTST+II,6,IO
00800
TEST fOR -LOADEO- INDICATOR
8NF
(NC 13- 56, ENOTST+II,II,
00810
AH
ENDTST+II.14,10
00820
AM
Lt,lKPTR,30,lO
00830
B
ENOTST
00840
OORG ·-3
8TM
00850
FLPPUT.·.12
008&0
B
EQSRCH
00810
OORG .-3
00880
RETURN IF ENTRV NOT fOUND IN EDUIY. TA8LE
AH
008QO
ENDTST+ll,I,10
OOQOO
8TM
FLPGET,.+12
ooQIO
BNF
'+32, END TST+11,l1
oono INCI3 AH £NOTST+11,13010
OOQ30
8
ENOTST
00Q40
DORG .- 3
00950
TYPE -LOAD NA"ERcrv
00"60
1,O •• -~
00910 PROCOW DC
-00
WAfY LDMES
00980

755

02488

00540 >VEOOA OOA
,1,0,21,0
1-0000-21-0000
00S'50
DC
I,'

005&0 nATA

2

2

OH43

os
os
os

00520 lOOOA

0
0
0
0

14

02520

alB]

I
1000
12

03538
03540

14

5

0355.
03556
03568
03580
0)5Q2
03604
03616
03628
03640
03652
03664
03676
0)684
03684
03696
03108
03120
03132
03144
03152
0)152
03764
03112
03712
03784
03196
03801
03120
03821

26

11
26
26

11
26
16
45
14

41
49
26

11
44

11
11
49

11
49

11
17
44

11
49

0671)
06773
06857
OU65
06656
OU58
03651
03684
038)4
04140
064)6

02460
-0218
02511
02412
-3616
03538
-2533
00000
00-00
01200
00000

02441
03651
0)752
03651
06758
03640

0365J
000-6
0365J
000J4
OOOLO
00000

06620
03932

-1164
00000

03651
06656
03828
03651
03640

000-1
-l1Q6
036~J

ooon
00000

01128
03834

34

00000
3

00102

03840

)9

01099

00100

756

1'20 FDJTU"II~O
010.00
UlOIO
OlOlO
0(0)0
01040
011>50
01060
(llDl0
010,,0
01090
01100
0·1110
01120
01130
01140
01150
01160
01110
01110
01190
01200
01210
01220
012)0
01240
01250
01260
01210
01280
01290
01100
01310
01)20
UI321
OIBO
01340
01)50
01160
01310
01190
01400
01410
01420
01410
01440
01450
01460
01 410
0,4aO
OH'IO
01500
01510
01520
01530
01540

1.iI.aI R

·iIlSIICH

.",y It'II'Uf-lO
:.,,, f'LPGET . . .·12
$I'
E!lDTST+llo,6. ·SET -TY"O- ·IIIO·IC,A'DII
.'''\1(:0. .1. 10
LIIKPU.",.I.O
A"
&TM FLPPUT ••• -12
I
1 IIC 13
OORG .-3
T.F
·,EQUODh5.EIIADOR
IF
tNIIU41.5£CT
lFM
IIEAO IN FOUR $.ECTDIIS .PI' £.QU"V. UILE
8
10GT.£QU.l
·T"M I:O"P.ll. SUITIl.U ••
SEARCH EO!!IV. UBLE
IIliR "20.I:OMP+ll.ll
NXTRD+Z4
Do!,G .-3
C
N.• MIUF
,~E
FOUND
All
COMP.ll.\I•• 10. INCRE·MENT TO NEXT NAME
eM
caM'o I 1.SUIT81+411 ••
res T FOR iND OF UIlE
8N£ tOMPERol2
INRKH.8,O,9,
tM
TEST FOR ENO OF EQUIY_ TABLE
e+20
8H
B
INeU-36
DORG .-,
INRK+48,4,lO, DECREMENT SEt TOR COUNT
SM
AM
EOUOOA+5.4.10
8
CONPER-24
AM
COM'.11,4.1-O. INCREIIE~T TO GET DIN NUNBER
TFM 01 MDDhS .4800
S
o 1"00A+6.COMPol1, 11
S
0INODA+6.COM,011.11
TOM 0IMOOh6 .. 11
READ I .. DIN SECTOR
TO
SEttT.tDNP+lI.II.
SAVE U~IT POSITION OF Dill NO.
8T .. FlPGet,"12
SF
ENDTST+II .. 6.
-lDADED- INDICATOR
BTM FlPPUT •• +l2
TFM IORT."23
8
10GT,DIM.l
tM
SECtT.5.10
BL
.+2'1t
S..
SEttT.S.IO.
CALCULATE 01" ENTRY ADDRESS
SEttT,20.9
N"
AN
99. I !\IRK
TR
DIMSVE .99.11
TO
ONEOI)A.OHI$VE
TF
DlilEDOA+5.011l$VE+5
TR
ODAR.DNEDD4 .. M.DYE SECTOR DDA TO ,.OGRAM ODA AREA
TFN tORT
ReAP IN I NOI CATDR RECORD
B
10GT.DME.l
TF
ODAR.8 .DIMSVE0.8 ••
MOVE SECTOR tOUNT
INDltATOR RetORO tllECK
t
CHECK FOR YAllD INDICATOR RECORD
INRK+13. HIDtON ••
BE
RELFRM
t
INRKoS.INOtDN .. CHECK FOR VALIDITY 1111 CORE IMAGE

10"·'.-.23, •

COIIPeR

•

COMP

NHRO

FOUND

......

sET

FOUNDI

,-.Z3,.

TSTYLO

1620 FORTIIAN 11-0
01~50

LDADEII

TO"

OC

01640
AM
01650
S~
01660
B
01610
DORG
01680 "YSlE A
01690
A
01100
Tf
01110
S
01120
TOM
01730
ot

.

INOA.+7., ,

1,' ,e

COlllVERT

DEFI~ER

TO CORE I"AGE

OO"A..5.1.l(~.
I NCIIEMEIljT DISK ADDRESS BY ONE
DOAR+8.1,'O.
DECREMENT SEC TOR COUtll BY OtlE
SUBPRO-l4
.-3
SPROST ,A005.YE
AOD('.OW.• I N"KO 22
ADOR, AQotOw
AOOtOIl.INRK+22
INRK+23

1 ~.

,*

t
BL

AOOR.COMAOO
SIZEOK
OVElIlAP INDICATION
TOM aVRlAP,l"
TURN ON II·VEM., I NO I Co\TliIJt
RCTY
Wary NAMBUF-lO" •
TY'E 'ROGU.M· NAIIE
WIIITY INR.K+18" •
"'-PE LEIIGTH
WATY OVR!4E$ ... TYPE OVE.RUP
All
OlAP
LNKPJR.30.10
80
"Z,O.EXfltlo •• IUNCM I F PROGRAM oN C.IIOS DR TA'E
8
CO"'.24., •
"AIIICH TO Gil IiIUT IIA"E
OORG .-3
ROUTINE TO READ INDICATOR RECOIIO FIIOIII CAllOS 011 TAPE
PHUEC 8TM FVGET.· •.12
TO
tOTP.+2.CQllSEC+1)
5M
COTP+Z •. hIO
RUD
TFM 10RT.o.2l! •• GEt IIiIDICATOII UCOIIO

EIIITSr

8
TOM
TF
TFM
INII
8
DOIIG
TfM
1'111

IOGT,.CDTP~4,,7

ElTlN.OOl
Lft\IIPTR.LNKAOQ

•• U.SUl1:.,,·U

·+20...
·,•.n FOil END II' "IU
RUD
.-,
··21.INRII
IIMCHK
e.20
RUD
DDIIG '-3
AM
~CHII.1"h10
cil
RIICHU 11.'1 !!lIl1tlO
IN£ RMCHIt
IMlII.1
S.F
CF
I"RUf
'CF
INIII+)
.Cf
1/11111+4

•

UGE
OJl52
OJl64
Otll6
0,. . .
onoo
01912
OJ924
D39J2
O.lUZ
OM44
OM'6
0"'"
03910
0)992
04004
040lZ
04012
04024
040)6
04041
04060
04072
04014
04096
04104
04104
04116
04121
04140
04152
04164
0.116
04188

59
17
Jl
11
11
17
4.
2.
26
16
4'
16

n

49
l.4
46
11
14

u

14
46

4.
lZ

11

••

It
16

U
22

15

024Jl
066·16
onu
OJU4

ou.u
06620
OJ.I.o.

-61"
-un

02441
04140
04023
04023
OJ992
07448
04104
03112

00000
OlZOO
000J6
-2933
01200
00-00
01100
00000

07441
0691]
03956
040n
06949
06950
06950
06950

00D-4
00D-4
00000
000-4
-4100
0.02L
0402L
00000402L
-4224
00000'
-424'
-4271
-6916
000-5
01300
000-5
00-20
-1400
0009R
06986
06991
06876
-4403
-6867
06994
01011
01200
01011

02455
0241>6
-3979
040ZL
00000

04200
04212
04224
04236
0424.
04260
04212
04284
04296
04)01
04)20
04332
04344
04)56
04368
04380
04392
04404

.
26

07021
061>56
03UJ
06620
00565
00566
01021
04308
01021
01027
00099
06986
06116
068"
01280
00565
00566
01288

04416
04428
04440

24
46
24

07413
055'12
07405

04452
04464
04416
044"
04500
0450B
04508
04520
04531

.. 6

04508
066'12
00000
07111
00196

01200
0-015
00102
00100
00000

2&
15

06934
06930
1

02412
00000

11
12

01285
0128B
05664

000-1
000-1
00000

21
21
26
22
15

06768
02450
06763
02450
01421
I

02412
01422
02450
07422
00000

04624
04636

24

06163
05228

02231
01300

04648
04660
04672
046.4
04696
0470'
04120
04132
04140

15
J4
3.

02444
00000
02411
07411
06175
06151
04740
04016

00001
00102
00100
0(1100
00100
OOOLO
0246)
00000

25

11
lZ

11
16
49
14
4J

12
IJ

11
31
25
26

11

16

PAGE

04532
04544
045S6
04564
04564
OH76
04588
04600
04612
04623

04740
04152
04164
04H6
04'"
04100
04112
0.124
0411.l6
04.141
04'"
04156

041. .
0".'0
O~'I

04NI

04100
0.4'"
04924
049.,.
0""
04,'60

11
J4
39
49

49

41

JI
3.
11
U
4'

11

as

U
16

4t

U
26
I'
4t
49

06n6
01024
07024
00565
00566
02461
06151
04141
04156
047.16

000-1
-479'
-1011
00001
03UI
-UU
00000
00000

04119
0....
04716

-7400
00000
00000

11
.14
47

0417.
0417•
04'"
07401
01402
07403
01404

000-1
-1410
OUOO
00000
OClOOO
00000
00000

n

4

-41.52

16
41

n
n

757

oun

...
II

J .

00100
-Jl76
00000
000-1
OOOLO
-)924
00000

069l)
07448
00'65
.001.66
O.ClZJ
040lZ
040.6

BLOCK 5

BE
.+56
BTN EPRINT.15.8
RCTy
WAly JOBOUT
8
NONeu
DORG .-3
TF
I~OR+Il.AODSYE

01560
OU10
01580
Q1590,
01600
01610
01620
01610

01140
01150
01760
01710
01180
01190
0'1800
018.10
01820
01830
018.0
01850
01860
01110
01880
01890
01900
01910
01920
01'130
01940
01950
01960
0"'10
01'10
01990
112000
020io
02020
020)0
02040
·020'0
020.0
ozoto
02010

....otll ,

..

OQI'~O

758

1'20 'IIIITII .. 11-0

LOA.R

BLOC. ,

02090
eN
INU+4._U,,1
INE HUDER
01100
ReTY
02110
TFN 10RT ••• n
02120
02UO
B
10",
1
02140
8
PHASED
OORG . - )
02150
02160 HEADER C
TEST FOR INDICATOR RECORD
I NRh I ).1 NDCON.,
02170
BNE RUD
02110
I"F ·.20.INRk+16
READ
02190
8
OORG .-)
02200
01210
INU+25.ENTST+II.II, CONPARE NAIIES
C
02220
I"E GONU
TF
02230
NANIUF.ENTST+II.II
AN
02240
ENTST+ 11.6.10
02250
B"F H)2.ENTST+II.11
AN
ENTST+II,14,10
02251
GONU+\Z
02260
B
OORG '-3
02270
SF
EN'ST.11,.6, SET -LOAOEO- INDICATOR
02280
8TM fLPPUT,o+l2
02290
RELfRM
02300
0
OORG . - )
02310
ENTST+II.20,10
02320 GONXT AM
02]30
AM
LNKPTR.30.10
ENTST
02340
B
02350
DORG ·-3
++I8.ADDSVE
02360 S !lEOK rf
rR
.ZEROS
02310
02380
AM
*-6,50,10
SIlEOK+18. SPROS T
02390
C
.-]6
02400
6L
•• 24,OVRLAP
02410
80
BNCI *+84
02420
02430
RCTV
WHV ~'MBUF-I0."
TYPE OUT NAME
02440
WNTY AODSVE-4
02450
SPTV,
024~0
WIIITY INRK+18" ,
TVPE OUT LENGTH
02470
WArV LDEo
OH80
02490
LOAD PROGRAMS ROUTINE
CoTPLo.EKTINO" IRANCH IF PROGRAM IN CARD OR TAPE
02500 RDPRUG 80
GET PROGRAM FROM DISK
02510 SCHLD rFM 10ln,-+23. ,
IOGToINOR.7
02520
8
LOOINC
02530
B
DORG +-3
02540
02550
ROUTI~E TO LOAD PROGUM FROM CUD OR TAPE
02560 CoTPLo TOM 416
02570
1,' ,DC

"PE--,

TD
Sf
Cf
TF
SF

02580
02590
02600
02610
02620

02740
02150
02760
02770
02780
02190
02800
02BlO
02820
02810
02840
02150
02860
02170
02880
02890
02900
02910
02920
029]0
02940
02950
02960
02970
02980
02990
01000
03010
03020
01030
03040
03050
03060
0)070
01010
01090
01100
01110
01120
01110
01140
0)150
01160
01170

TR
eF
TFM
TfM
TF
TF
AM
SU8PRO C
8NE
e
BE
BYM

......

-,on

44
49

07'oU
04716
05014
04776

07011
01100
07416
00000

24
47
26
II
44
11
49

07425
on"
02441
04847
on64
04841
0520e

0484'
01200
0484'
000-6
0484P
000J4
00000

32
49

048.,
06620
05592

00000
-5181
00000

II
II
49

04841
06158
04816

OOOKO
OOOLO
00000

26
H
II

05246
00000
05246
05246

OSHa
05312
05384
00000
02HI
02468
00000
OHI8
01081

02472
06192
000"0
06168
01300
02444
00100
00102
00100
00100
00101
00100
00100

05428
005U
00566
05872

02463
-5419
-692)
00000

41
)4

16
49
49
24

41

11

H
47
41
41
34
39
)8
34
38
39

-1211
00000

05428
05439

15

00416
I

00000

05440
05452
05464
05476
05488

H

00428
00428
00429
00414
00489

07373
00000
00000
02412
00000

COMSEC+9a ,INIIK+19
PUT BACK COMNUN I CATl ON SECTOR
IORT,-+23"
IOPT,COM,1
IORT,.+23.,
GET 'ROGRAM
IOGT,EXT.7
PROCOII.I.1 U
EKTINO
LOolNC
'-3
INRK+80

05500
05512
05524
05536
05548
05560

26
16
49
16
49
12

lNRK,lNRK+a,. MOVE INDICATOR RECORD TO CONFORM TO eARO I"AGE
427

05604
05616
0562B
05640
05652
05664
05616
oua8
05100
05112
05724
05136

428.COMSEC+13
.,1
429
434.AODSVE
489

LOADER

16
49
49

32

n

26
12

PAGE

ILOCK

1,' ,-

439,75

DoAR+I'.99999
INDR+II.AOOSVE
SPROST ,INIIK+ 31
SPROST,5,I0
INRK+24.F, •
TEST FOR EQUAL F
·+16
INRK+2ft.K, ,
TEST FOR EQUAL K
·+24

07398
00565
00532
00565
00566
03834
02461
05812

07479
-5535
-7179
-5559
-7148
000-1
00000
00000

15

01480
I

00000

11

01400
00421
00439

06934
06768
06168
01424
05736
01426
05748
06692

07408
00000
-0075
R9999
02472
07431
000-5
02219
01200
02221
01200
0-016

05113
05851
05840
05783
05151
05851
05772
04564

-7437
_2394
00000
000-1
000-1
-2424
01200
00000

05184
06692
05184

00000
0-011
00000

00565
00566
0594)
0'1941
on63
05996
06168

-5895
-6191
06763
000-1

II
49

059n
06692
onu
05920

00000
0"70
000J8
00000

1\
24
46
II

05943
0596l
0'064
059U

01200
00011.0

05~12

U

05584
05592
05S92
05603

49

05748
05160
05772
05184
05796
05801
05120
0")2
05840
05840
05152
05864
05812
05812
058"
05196
0590.
05920
onn
05944
05952
05952
05964
05916
05981
0599.
05996
0600.
06010
0'032

n

16
16
26
26
II
24

4f
24
46

11
16

16

41
II
II
14

.,
49
4)

11
49
16

u

U
11

"

45
49

45
11

uun

5

ONUI
01200
00102

43

EPRINT,76.8
TEST fOR NEW SU8ROUTINES CAUEO FROM FLiPPEO SU8PROGRAM
Tflll CCSUI+II.1 NRK+37
TFIII LBsua+lI. L IBSUI
usua
ccsua aD
AM
·-1,1,10
AM
USUI+ 11.1.1 0
LISU8+II,LUSUI+30
CM
INE eesul
a
TRYSlE
DORG --3
cesua+12
L8SU8 aD
aTII EPRINT,77.8
CCSUB+12
8
OORG .-)
IN-CORE SUIPROGRAM TABLE SURCH AND LOAD
LOolNC TFII 10RT.0+23
10GT.INC,T
a
TF
COMPRE+Il.ADOR
AN
COII'RE+II.I.IO
TFM COMPAU II. SUI TlU 11 ••
INITIALIZE 'OI"TER
COIIPRE 8N. SEReH
seHPRO
I
DORG '-3
COII"R I"R COM'RE
IT" EPUNT.7110,.
AM
COM"RE + 11,11. 10
8
CO""RE-12
OORe; .-)
COMPRE+II'.II.IO
sueH A"
COM"AR+II.COM'.E.II,611. CHECK fOR SAME NAME
C
SERCHI
BE
COIIPU+II.IO.IO
A"
FLIP

01404
05040
00000
00U5
005)2
06116

14

05384
05396
05408
05420
05428

1620 FORTRAN II-D
026)0
TF
TFM
02640
02650
B
TfM
02660
02610
B
02680
SM
02690
TOM
02700
8
oORG
02110
02720 RELFRM TOM
02730
DC

PAGE
04912
04984
04996
05001
05020
0'032
05040
05040
05052
05064
05076
05084
05084'
05096
05108
05120
05H2
05144
05156
05164
05164
05176
05188
05196
05196
05208
05220
05228
05228
05240
05252
05264
05216
05288
05300
05312
05324
05336
0531t8
05360
05372

759

6

-ZS3l
00000
00000

OOOJI
0~94L

7811

\

2.22

06867

OMEI>OA

0 . . 13

5

0687)
04050

OC

I, •

06114

-6816
I

04060 OMEDDA

DOA

,1.O.-l.INRI<

068"

14

04076

DC

I, •

06890

x

1-0000"01-1400
04080

INC

OSC
22

2.22

0"'1

01t09,0

OSA

I"'OOA

0.891

,

O~IOO

DC

1 ••

0 . . .'

-no.

061. .

I

762

I6Z0 '~UAN II-D
O~IIO

EQU

0~120

22
DU

0 . ."

fOUDDA

06905

I.'

06905
06906

-"01
I

06901

14

04140 EQUOOA eDA
.1.0.~.SU8T8L
1-0000- 0~-2 522
04\50
DC
I.'
04\60

I~DR

04\10

~AGE

ILOCK 5

2.22

DC

0~110

LOADeR

ose

DSt
22
OSA

06921

2.22

06929

DDAR .0

069)~

04180

DC

\.'

04190 DIM

osc

2,22

069)6

04700

22
OSA

01 MOOA

OU42

069)5

069~2

DC

I ••

.l,4800.1.INRk
04220 01 MOOA OOA
\-4800-01-7400
I, •
04210
DC

04320 SEceT
04330 TAB
04340
04)50

DC

04390
04400.

DC

14

069.6
01011
01016
010n
01022
01022
01025

2,0

\0 x

01027

20
6
5
I
5 x
-1400
3

2.22

01028

TABOOA

010)4

I, '

01034
010)5

-70)6
I

01036

I~

5 X

01050

LOADER

76:J

8LoCK 5

PAGE

2,22

01051

TBloOA

07051

I, '

01051
01051

-1060
I

07060

14

.1,Q,I.INRI(
044\0 TBlDDA DDA
1-0000-01-1400
I, •
04420
DC
04430

I

069 ....

3,'

1620 FORTRAN 11-0
OSC
22
oSA

0694)

06961

.I,O,l,INRI(
04360 TABOoA ODA
1-0000-01-1400
I, •
04310
DC

04380 TBl

5 x
-69~~

onn

os

OC
-0'
DC
-0
OSC
22
OSA

5 x
-1210
-0000
I

06958

10,ERROR
04240 ERMESS OAC
ERROR L
04250 Z ERONE DC
6,10000\
JOOOOI
04260 OIMSVE OSS
20 .. RESERVES CU~RENT DIM ENTRY
INDICATOR RECORD CONSTANT
6,987898. ,
04210 INoeON DC
R81898
LENGTH OF MAINLINE PROGRAM
042BO MllGTH
5 ..
042QO COI~P OS
I
INRK
04300 COTP
OSA

04110

5 x

OU22

OA929

04210

O~ETWO

OSC 5.00101
00101
OAC 9.
LOADED'
LOAoEO'
04450 lDMES OAC
7.LOAO
LOAD
04460 JOBOUT OAC 14,JOB ABANDONED'
JOB A8ANoo~eo'
04410 Blb
2.-22
OSC
2K
1,0
04480
OSt
0
04490
DC
5,157'
-151'
04500 EXT
2,-22
OSC
2K
04510
OSA exTOoA
044""0 lDED

070H
07015
070Bl
01099

9 x
1 X

01113

l~

01140

2

5

01\54

5 X

01156

14

04550 FLP
04560

OSC
22
oSA

01110

2,22

01111

FLPOOA

01\11

04570

DC

,

I, '

01\11
01\18

04580 COM

OSC
22
DSA

2,22

01\19

CDMDoA

01\15

04590

01\15
04600

,

DC

I. '

.1,1966) ,I,COMSEC
04610 COHoOA DOA
IJ966)-01-7100
04620
DC
I, '
041»0 lO

DSC
22

2.22

2

01\48

04BO exroDA OOA
.1.19183.3.0
IJ9183-03-0000
04540
DC
I, '

I, '

x

01\42
01\47

-1\56
I

DC

10

5 x

01\54
01U5

04520

9

2
5 x

-]540
I

5 x

-1\11

011'.

I

on ••

l~

01202

0720)

2

76',

'1

1'20 fORTRAN II-D

LDADE.

BLOCK 5

DSA

LODOA

07109

()4650

DC

I,'

01209
07210

04660 TYPE

OS&

D"AI

07215

04670

DC

3,06'

07215
07211

-6'
04680 OAf AI

II

PAGE

0~I>40

DAC
6.-0ATA--'
·04T ... ·

07221

041<90
04700 DDAR
04710 CO"SEC
04HO INRK

OORG
QSS
ass
OSS

07280
01280
07300
01400

04730

DE NO

1280
20

lOa .. SYSTEM COMMUNICATION SECTOR
100., •
READ IN AREA FDA INDICATOR RECORD

-2474

I
5 X
-7221
3
6 X

2

20
100
100

00.000

765
1620 FORTRAN 11-0
ADDeow
AOOSVE
CDT.lO
COMADO
CDMDDA
CDMPAR
COMPER
eDMPRE
COM SEC
OIMOOA
OIMSVE
OMEOOA

ENOTST
ENTABS

ENTATN

02450
02412
05428
022)1
07188
05952
03980
05932
01)00

EPRINT
EQlDDR
EQSRCH
EQUODA
ERI4ESS
EXTDDl
EXTING
FLGRMK
FLPODA

06q~~

flPGET

06986
06876
03640
02323

FlPI'UT
FOUNDI
HEADER
INCODA
(NOCDN
JOBOUT
Ll8SU8
LNKADD
LNKPTR
LOOINe
MllGTH
MONCAl
"'VESel
NA"'BUF

ENTeDS
ENTDED
ENTORR
ENTEXP
ENTHT
ENTFIO
ENTREe
ENTSCI
ENTSC2
ENTSC3
ENTSIN
ENTSQT

02313
02303
02298
02193
02253
02283
02213
02278
02258
02263
02268
02308
02318

ENTSWD

02288

ONETwo
OVUAP
OVR"*S

PHASU

lOlO.ER

BLOCK 5

010692
02455
039)2
06908
06961
07156
02463
02445
03540
OUS6
061>20
04248
05040
02506
07011
07113
02]94
03538
01>158
05812
01016
00796
06228
02441
01015

PHASEe
PHASED
PROCOW
PROGST
RDPROG
RELFRM
AODR
BL6
CALL6
CCSUB
COINP
eOTP
CDMP
COM
DlUI
DATA
OOAR
DIM
DME
ENTlN
ENTST
EOU
ERL
EXT

06175

FLP

04140
06316
038)4
02226
05384
05592
06163
01140
06436
05772
07017
07022
04012
07179
01221
02505
01280
06936
06867
022U
04836
06899
06596
07148
05148
07171

FOUND
F

02219

01"'.
0360~

FLIP

O~I"O

PAGE
GONXT
INCH
INC
INOR
INRK
IOGT
IOINO
IDPT
IORT
K

l8SUe
LOODA
LDEO
LOMES
LO
MLINO
MORE

I'll
N2
NXTRO
OLlP
READ

REClG
RMeHK
ROUND
SCHLO
seH
SectT

051~6

0)808
06891
06n)
01400
00566
02461
00512
00565
02221
05840
02414
07081
01099
0120]
02"62
06531
022))
022)8
0"012
OHO.
04116
0224)
04a68
06356
05196
0684)
07021

12
SEC T
SERCH
SETGM
SPRS T
TAB
TBl
TYPE
W

ZEROS
SCAOOR
SCHOOl
SCHPRO
SERCHI
SIlEDK
SPRDST
SUBPRO
SU8T8L
SVEDDA
UBDOl
TBlOOA
TRYSlE
IS TVlO
IERONE
IROTST

02466
OSH6
06192
06173
0102B
01051
01215
02HO
06792
02460
06B52
06168
06064
05228
06768
05688
02522
02490
07036
0101>0
04564
04416
06985
02461

END Of ONe ASSEMBLY.

766

1620 FORTRAN 11-0

LOAOU

BLOCK 6

767

1620 FORTRAN 11-0
00010
00020
00030
00040

•
•
10PT
IOGT
noo~o I ORr
OOObO MONCAL
[Joon 010
OOOBO ERREr
00090 I~DS
00100 EUOR
00110
00120
00130 F
00140 K
00150 • ROGST
00160 CO"'OO
00170 N1
OOIBO N2
00190 W
00200 RECLG·
00210 ENTLN
00220 ENTUP
001)0 ENTSCI
00240 ENTSC2
00250 ENTSt3
00260 EIllTFID
00270 ENTREe
00280 ENTFET
00290 ENTSIID
00300 ENTDRR
00110 ENTOED
00320 ENTeDS
oono E"HSIN
00340 ENTUN
00350 ENTSCIT
00)60 EN TABS
00170
00380 L /BSUII
00390

OS
OS
OS
OS

os

OS
US

as

BLOCK 6

,532
,')66
,565
,796
,816
.602
,610
.624

CO .... UNICATION AREA
DORG 2218
OS
Z .. FLOATING POINT WORD LENGTH
OS
2 .. F UED POI NT WORD LENGTH
OS
5 .. STAUING ADDRESS OF MAINLINE 'ROGU ..
OS
5 . . STARTING ADDRESS OF CO .. MON AREA
OS
2 .. NUMBER OF WORDS IN LOGltAL RECORO
OS
5 .. NUMBER UF LOGI tAL RftORDS
2 .. WORD LENGTH
OS
OS
3 .. REtORO LENGTH
OS
5 .. ENTRY AOORESS TO LOG SU8ROUT I NE
5 .. ENTRY ADDRESS TO EXPONENT! AL SUBROUTINE
oS
OS
5 .. ENTRY ADDRESS TO SINGLE SUBSCRIPT SUBROUTINE
OS
5 .. ENTRY ADDRE~S TO DOUBLE SUISCR I PT SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO TR I PLE SUBseR I PT SUBRDUTI NE
OS
5 .. ENTRY ADDRESS TO FIND SUIROUTINE
OS
5 .. ENTRY ADORES S TO RECORD SUBROUTINE
OS
5 .. ENTR Y ADORES S TO FETCH SUIROUTI NE
OS
5 .. ENTRY ADDRESS TO swneH 0 SUBROUTINE
OS
5 .. ENTRY ADDRESS TO ARRAY SUBROUTINE
OS
5 .. ENTRY ADDRESS TO DISK END SUIROUTINE
OS
5 .. ENTRY ADDRESS TO COSINE SUIROUTINE
OS
5 .. ENTRY ADDRESS TO SIIilE SUIROUTINE
OS
5 .. EIURY ADDRESS TO ARC TANGENT SUIROUT! NE
OS
5 .. ENTRY lDORESS TO SQUARE ROOT SUIROUTlIIIE
05
5 .. EIilTRY ADDRESS TO ABSOLUTE SUIROUTlHl
OS
7O ..
RUEIVEO FOR ENTRIES TO lDDED SUBROUTI illES
OSS 30"LI8RUY SUIROUTINE INDICATORS
DC
1,'

.•..•.

00400
MAl NlI NE TABLE SElRCH
00410
DORG 2426
00420 NA"IUF DC
16,0
-000000000000000
004)0
DC
2,'
00440
00450
00.60
00410
004.0
00490
n0500
00510
1)0520··
OOHO

LOADER

DYRLAP OS
FLGR"" oS
AOOCOW OS
fQADDII. OS
S"DDR OS
10/1110 OS
"LIND .OS
ElTlNO OS
SECT
OS
iKC!~! OS

1
I
5

5
5
1
I
1
3
1

PAGE

00532
00566
00565
00796
OOBI6
00602
00610
0062.
02218
02219
01221
02226
02211
02Z33
02238
02240
02243
01248
02253
02258
02263
02261
02273
02211
02283
022"
0229J
0229.
OUD3
02301
0211)
02311
02323
02191
02394

0

a

a
a

a

0

a
0
2
2
5

5
2
5
2
1
5
5
5

5
5

5

5
5
5

5
5
5
5
5

5

0241~

5
70
10
1

02426
02441

16

02443

2

02.'"
02441
02450
02455
02.60
02.61
OZ •• 2
0"'63
02.6'
02 • . ,

1
I
5
5

5
1
I
1
3
1

76~

'IIaMAI,! U-fI

,.~
00~~11 ADDS~'

II,S,

OMI>O LODQ'

oD4

_1,0,0.0,

OOHO

~~

I.'"

Dono'

I

•••

' . '"

•

"M""

"'~l\

•

o,~"

OOI>~ci

.... ..

·

DC

02501

6Q8~Q

00900
00910
009,20
009'l1!

NIN10~

009~.0

1l09!;0
00960
00970
00980
00990 SETI
01000 N2TST
01010

02521
TO. L0&;0 ..,11 ... AND lit) P,iAC"'&E

Dlo~n.EI'IlT.I>J.

80

NltST. ZI\DTS.T
LDF!X2
.-)
1111I20K,Nl
N,IN201l.Nl-1

DD~G

02522
025)4
02!>4/>
02558
02570.
02582
02594
021>02
021>02
021>1.
02U6
02638
021>50
021>1>2
021>7.
021>86
0269.
02710
02722
027)4
02146
02758
02710
02782
02790
02790
02802.
0281402826
028)8
02no
02862
02874
02882

I~HI8.0V~L.P

IIIHIB.SVEOO~~l

IOI\T .... H

IOG.t.S~E.7

BD
80
_en
TFI4 lORT •• +23
B,
IOPT. T~PE- •• 1'
RCTY
TFI4 10RT,-":23
B
IOGT. TYPU-4. 7
8C4 NI TST.24
SF
IIIII\K.III
SF
I NRK •. 12
TF
NI.INRiI·U
T~
112.INRK.,16
COl,
N2
BNE fl,nsr
B
N.LTST~2'.
OORG -,-1
W••,.1
~
SF
9,.
C",
99.101.8
SEn' .
III
~",

99.100 ...

8H
TFI4

NI TST.24.
RECLG.2.9.
B
N2TST
OOI\G '-3
TF" RECLGol .• 9
H
~2.ReCLG
SF
95

02882
02894
02906

;

,

11>2,0
01020
01030
01040
OIO~o

c."
B.

99,,19999
'HTSH24
9,.0000.l.
IIUSH.24
LOFI X2

OORG

-;"'),

8H
CI4
8L

01060 L.UF,H ~O
01010
'B.'
01080
OOllG,
01090 LDFIXI 110
01100
II,
01110
OORG.
OU20
TF"
Oi'130"
TOM'
011 4 0
TO'"
01150
Ot
0116,1) XFER,
01170
01180
01190
01200.

TF"
TFH.
TF.
TOM
DC

·

FQI\cJ""~,

11-0

LO!';IXIoO,ATA
IlE;AP-2 4
-):-3<,
"2b,J!}I~\
Gn~.rx,·
,
-t"")

00~R.5:,.9!tQO

OOAR.l
oDA!I,oI.• ,

.

1.· .•

DOAjI.8.40.9
aaAR+U',32eo,

::~:~5.S~'OD"',
I,,' ,-

2Z

01380

OSA

,

~C;

10IIII&,

16
49
41
49
43

0085J
OH14
01714
00·'1>5
00566
02602
03501>

-31>70
02444
02·4"
-2511

02790
02790
00000
005"

02467
00000

U

00~32

34
1.1>
4'

00000
00!>65
0051>1>
02626
07410
07412
022n
02238
02238
02602
02621>
022.40
00096
00099
02882
0009'
021>26
02243
02894

0223)
00000
0-101
01300
0-200
OHOO
011-02
00000

02243
02238
00095.

00-01
02243
011000

46

12
12
26
21>
14
41

49
2l
32
14

47
I.
46

16

n

16.
Zl

12

1'69

a

l,o.N1ell.

NI,oc K, I>

PAGE
02'118
02930
02942
02954
02966
02974
029n
02981>
029<14
02994
03001>
03014
03014
03026
03031
0304.
03050
03062·
03074
01086'
03097

00099
02626
00099
02621>
01501>

J9999,
01100
-0001
01300
00000

41 02994
49· 01214

02505
00000

":

OJOl4
031.94.

0241>1
00000

16. 01285
I'- 07280
15" 072'4
I

J9400
00001
00000

16·· 072 ...
II>, CHU3'
OIUI
IS, 03261·
I

011-40
-nlo
0241>0
00000

14
41>

.."
41

49'.

2.

03096·
03098·
03110
03122,
03134
11)146,
0315.
113170·
IIJII2.
0"94
03206
01211
03210

2

..

16, 0051>5,

-liz.!

0~66,

-3UI

."",' on"',

-3145 '
01l5U .. -3238
II 0121' 01111110,
11 03251 000lI0·
U. 03096. 0011-1
16«

U. 01091' 01Z00'
ZS' 01499, 0246.1

.,"
16

11056' -1229·
IIIIU6" -JUO,
2

DUll
03lJ7

5

OU38

2.

OU4.',

5

1, ,

113244"
03241,'

.

on... ·.·

14,

,.

-nn

02233
02232
00102
-26.1
-11.,.
00102
-21>97
-181>2
00400
00000
00000
01411
01.16
-01100
01100
00000

43
J4
II>

-JJ~6..

01)90,1000A, ~,£, ~ .O.~'~J.'O"
I.OI,\!l9-4"JUO.'!.
D(;." I,'"
,,
01400,

I

113260

014~Q',IN~,.

Q$C,

2.U

03261

01420

D~A.'

OOu,1I

032.'

2li

16
4J
41

JJ

01l.10, C; YLtTR ac
2.5,--1
-5
0.l220,
TFM. IORr, •• n
0,12108 ..
10GT.I~~.1
0.\240
TF"•. IOU,"n,
01250
8
IOIIt,10.7
01260
AI!;
00AII.5,4Q,10.,
01270
IIIIIOA.5.~0' 10
A.II;
01280
514· CYLl:TII,I,11I
01190
aNE" CYLPU2
OUOO GETFIX TO
749••. IPI NO
01310
tFtiI 10Rt •• t2,~"
GET, FI n.II, 'U~
01320
B.
IP&T,"12,1
'
01310
OSC 2.-22.,
2K
01340
ose 1.0
0
01350
5.144~. ~
DC
-144'
0131>0 10
OSC 2.2~
01310

14

02520

tFI4.
80
B.D
TFII
B
B

00720
00730 II LTS T,'
00140
00750,
00160
00710
00180
00190
00800
00810
00820
00130
008.40
00850
00860
00810
008110

02506

1
~QUT"'~E

.4

02490
02'04.

1.1\

OS

"

OOl>5!) AR ITH
0061>0
00610
00680
001>90
00700

14

02481

00610 INeDDA OD' .,.0,10,0
1-0\¥lQ;! III-IIO!)O,
0<; , It,'
001>20
OOUO

Ol~n

1124n

1-C~'OIl-OO-QIIIIII

005..,0 5 UDOA , Dill .100,11,0.
. '. , hOI/QO-21-000"
0.0\9:0
DC
I.'

QQ,."9:

N&E
5.
I

IInu

2

,

2

11r~~'

1620 FORTRA" 11-0

LDADU

PAGE

BLO(K 6

03212

OIQO
OIHO
OIHO
01~60

DC

I,'

oun

TO

CDTP+2,CoMSEc+n
COTP-Z,l,10
IORT,"l)
IOCT ,COTP-~, 7

03214

s_

ReAD

01410
01"80
011090 RMCHK
01500
OIHO
01520
OIBO
015"0
OIHO
01560
OIHO
01580
01590

TFM
8
TFM
8NR

03216
0)291
OHIO
OU22
OU)4
OU46
OU54

e+23, INRK

·+20

8

READ
DDRG '-1
AM
RMCHK-lIt1 olD
eM
RMCHK+ II , INRK+80
RMCHK
BOlE
SF
I"RK+I
eF
I"RK+2
eF
INRK+3
CF
INRK+1t
eM
INRK+4,4131,8
01bOO
BNf
READ
01610
RCTY
TFM
IORT,·.23
01620
111610
10PT t TYPE2-4.1
B
0lb40
8
LOF I XI
Ol6~O
DORC .-3
01651 LOFIX2 M
NZ,REeLC
01652
SF
95
AM
01653
99,218,9
Olblj4t
INRK+4,99
e
01655
8H
LOFIX
0lb56
SM
INRK+4,21S
01657
99, J NRK+4
LO
01658
0
95,RECLG
01659
TF
fo&2.9b
TF
Aoosve ,96
01660
Re TY
JI661
wATV MAXN2
01662
01663
wNTV AODSVE-4
01664
B
LOFIX
01665
OORG . - ]
*+12,3100
01666 E~ T
8I
ERRET .1900
8~1
01670
TOM
01680
J~DS+IO.6
EUOR
B
01'90
OORG .-]
01700
01710 INHI B RC TY
'IoiATy JOBOUT
01120
01730
A
MO~CAL
OORC '-3
01140
01"150 JOBOUT OAe
20,EXECUTION INHIBITED'
EXECUTION INHIBITEO'
01160 EROI
OAC
8,ER 01
ER 01
MAXN2 OAC
IB,MAX '12 ALLOWABLE'
MAX N2 ALLOWABLE

1620 FORTRAN 11-0
UI710 SVE
01180

ose
20
OSA

2,20

11
14
41

07"02
074010

0)(050

U
I"

47

01298

01462

)4
16
49
109

00565
00512
0299"

0141"
01486
01506
01506
03518
O]BO
03Hl
0]554
0]566
0]578
03590
0]602
0]61"

0]626
0]6]B
03650
0]662
0]610
03610
0]682
03694
0]706
03714
OHlit
03726
03738
03H6
O]7H

LOADER

SVEOOA

018 . .

0]858

3, '

0385B
0]861

INRK+IO

0]866

3,00'

01866
03B69

DATAL

01B1.
OlBH

O18BO DATAL
01890
01900 OOAR
01910 CUMSEC
01920 INRK

OORC
DSS
oss
DSS

01930

DENO

3.0b'

6,-OATA'

00000

02218
00095
00099
01404
02974
0740"
00099
00095

0297.

022101
00000
OOK18
00099
01100
-0218
07100"
02210]
00096
00096
00102
00100
00100
00000

03682
00602
00620
0062"

03100
01900
00006
00000

00000
03747
00796

00102
00100
00000

02238
OH12
00000
0]803
02~68

20 X

PACE

INRK

De
-6'
OAC

14
19
.9

-]870

0]838

3.06'

01870

It9

00000

BLOC. 6

0]850
03853

De
-0'
oSA

15

00000
00000
OMlli
01200
00102
-11097

771

0]850

01850

46
H

07401
OHOio

8 X

I,'

01860 TYPE2

]4
H
38
49

-11080
00000
00000

18 X

EROI

De
-0'
OSA

26
26

000-1
01200

0]801

OSA

018,,0 TYPE 1

12
II
2<0
46
12
28
29

00000

00000

03781

DC

0lB10

B

-7~00

03"'5
OH45
OUlio
01401

031014

01800 TYPE

De
-6'
DSA

000-1
-H21
-18510

03426
03438

OIHO

01820 COTP

01]7)

12
11
H

0]84"
0]8"5

OIBIO

03860

0)860

16 . 00,.5
49 00566
16 03H~
4~
OU54
49 03298

03.154

03"98

,

2'
12

On66
OU7.
0])90

0)402

~

-1210
-0000
I

03267

03811
0]819

5 X
-21t90
I

5 •
-31B7
]

5 X
-7400
3
5 X
-7~10

]

5 x
-3879
3
6 X

-OAT A I

7280
20
100
100

07280
07280
07100
01400

20

100
100

00000

772

&t20
AP""~

A
~

DUn

EIITSQ' Dill.

0)096

OU2)

f"",1IS

ouu

llU

02)0)
.0'2291

ftj,l

IN.~

DaZ9)
OUls

fNlt.'
fIlTi'IT

0221)

Dun

ellTfI~

fllTIteC
fllfSCI
.""$C.2

OU1.
02258
02263

END OF DIllE

II-II

ENfSU

o.noo

"LUll

foa'.'"

OnlJP
OZ41l

ffI.TSlII

·fIlT.SWD
EOlOOI
EXT/lID
nGIIIIII
GEffU
IIiCOOI
JIlIDUT
L\lfllU
LD."IU
UISUI
IIONCAt
NI1I21111
NAIIIUF

02U.'
02'10'

DUll

02.41
02. .1

oz..,

01196

ozt06
03141

02"'.

0)106
0219.
00196
02190
02441

.....-

ILIP "
.IILA' 0244.
"OGIl OUZ6
OUU

u.,"
CD"
DATU

DATA

00111

OJ'~'

o:nl.
onn
OTan

,.

INMUI

IlIDDa

IOGt
rOINO
10"
Illar
10

010
fNTLN

00116

flIT

on. .

It

0)610

UUl

lOOO'
lll'lX
" •• IIZ
111..1110
III
II!TSf

006·10

N2

EIlOl

ERReT
UIlOil
F

IIIDR
I liDS

on.,
00602

D06a.
02U9

..

~

OJU.

unoll

on..
00n.6

lIi4*l
DonI
.0...
01211
02121

0241.
0291.

IIflSt

IIhD

REClG

II~HII

nil

sl 1

"

o~n.

lI~t9'

01243

O)U'

iI~4"
DatU

SV!

Ituil

TY~n

Gj",.
on74

"PEl

1yP£
M

ohiG

112140

ol'ln

nUl

.FER

SCADIIR

Olln
02602
Olln

03050
02460

hEDDA
ZItOfS'

Olli9"
02467

ASSE"8l Y.

Hi
FORTRAN II·D Fllp RoutiM foe Load on'
C"II SUbroutines
Page 1

~

TLOHE

FLJ P

"y ER

00O-04R

OOIHOR.
00 lIlfo/!,e

88m
0014 2R
e

FLIP ROUTINE FIlJt LOAl). OH CAU SU8ROUT INES

02070
02060

SMI
EXJT

MYER,

WK
SWK

LMttL.

02140

HillS
DlDe

~~=tc

lK!lr

1:1:

7:t

00010 •••••

00070

1620 FORTIIAN 11-0
OSA FUI
TF
FAC
• FLN-I
SM
'-13
.02
TF
FAC-2
,.-25
aD
e+1t1t
• FPlH
TFM E I
,612

00080
OOOQO

SF
8

00100
00110

OORG '-4
TFM GOUtl8

.ENOOtI2

00120
00110

8NF

.+~8

,FAC-2

TFM

EI

.673

00140

GOAL+18
FAC-2

.ERROR

.07.

001~0

TFM
CF

00160

TFM

CORN-25

,9SPF+2

.07.

00110
00180

IF

CORN-13

.FAC

00020
00010
00040

FL~

OOO~O
OOO~O

FNH

TO'"

FNHMI
FNH

CfiII

00210

8Nt

,1
,15

00240
002~0

002bO

DOA.G .-4
IF
SE fA

u0270
00280

S
IF

SETA
99

00290
00100
00310
00320
OOHO
00340
00350
00360 COUN

rF

TF
TF

91MF
98MF
FAC
79

M

FAt

TF

TF

SAVE
FAC
IMSA-4

,FAt
,Q1MF
,FAt
,FMl

00370

TF

COUN+71

,lfMl

00)80

TF

BETA

,9SPF+l

00)90
00400
00410
00420

TF

99
9SHF

.10

OM
A

SETA

.97

00430

TF

79

,lERO-39

FAC-l

.FAC-2

~...

CORN-25

.31

B

.-60

A

TFM

.010

,III
.011 •

~8MF

.07.

.611
.610.

.0.

• +44

00220
00130

o

,Ill •

99
ovnON

CF

00190
00200

FORTRAN noD Relocatable LN Routine
Page 1

IIElOCAUILE LN 1I0UlINf

.010.

.0
• TWOZ

.FAC-2
,lERO-20

,BETA

.6

.FAC-2
.9afillF

.6

,11,

.lfRO-39
.11.

.0.

.lERO-19

·

,610

00004 00005 -0006
00006 20 02492 OOOON
LOAD ARGUMENT
00011 J2 00005 000-2
00030 20 02490 OOOON
IS A ZERO
00042 M3 00016 DUlL
YES. ERR F2. LPI
ZEIIO
00054 16 02615 00072
SETS I GN
00066 32 00099 00000
FAt IS NEGATIVE AlL NINES
00078 49 03652 00000
00085
SET UP NO ERR TVPE
00086 J6 00816 -3780
IS A NEGATIVE
00098 M4 00146 02490
YES. ERR F3. LN -A
00110 16 02615 00071
SET UP ERR TYPE 00122 J6 00816 -3676
A EOUALS PDS ITIVE A
00134 33 02490 00000
SET UP CDNS TANT EQUAL lERO
00146 J6 00573 -2856
S TDRE CHAR
00158 K6 00585 02492
FINO I + A MAPlTlSSA
00170 33 OHlL 00000
00182 15 03350 OOOOJ
CDMPARE TWD HIGH DROER DIGITS
00194 14 0331L 000J5
TO I.~. IF LESS THAN. NO 8R
00206 H6 00250 01300
00218 21 02490 02490
ADJUST CONSTANT TO LN 2.4. OR 8
00230 JI 00573 OOOLI
00242 M9 00182 00000
00249
FIND
I - A MANTISSA
00250 26 02603 03073
00262 22 02603 02~90
FINO
I-A HANT/I+A MANT
00274 26 00099 02747
00286 26 0332L 02603
00298 29 OH2Q 02490
STORE IN FAC
00310 26 02492 0332Q
FINO fAC •• Z
00322 26 00019 02728
00H4 23 02492 02492
STORE IN SAVE
003~6 26 02565 0332L
FAC fQUALS 2-FAC 00358 21 02492 02492
SET COUNTER EOUAL F-I
00370 26 02571 03625
SET DIVISOR P EOUAL TO 2F-1
00382 K6 00441 03429
BETA EQUALS F+2 ZERDS
00394 26 02603 02855
00~06 26 00099 02748
FIND 10lP
00~18 16 0332Q OOOJO
DIVIDE 8Y P
00430 19 0332Q 00000
ADO QUDTIENT TO 8ETA
00442 21 02603 00097
00454 26 00079 02728

775
FORTRAN noD Relocatable LN Routine
Page 2

BETA
SETA

,SAve

SM
SM

CDUN+71
IMSA-4

• 02
• 01

00480
00490
00500

8NZ
TF
M

COUN+36
79
BETA

·

00510

A

91HF

,FAC

00440
00450

M

00460
00470

IF

,97MF

.ZERO-39

,FAt

00~20

TF

FAC

00530
00540

SF

FAC
FAC

·

92
LNIO

,9SPF-l
.COR"-13

99

• FAt

97
GOAL+20
SAVE
FAC+3
FAC+3
FAC+4

• 00

S

00550 CORN

TF

00~60

M

00570
00580
00590
00600
00610
00620
OOb30
00640
00650
00660
00670
00680
00690
00700
00710

AM
BZ
TFM
TF
CF
TO
BO
TR

00720

TO

00730
00740
00750
00760
00770
007BO
00790
00800
00810
00820
00830
00840
00850
00860
00670
OOUO
00890
00900
00910

-+68

FNH
TOM FAC+]
SF
FNH
5M
SAVE
8
·-60
OORG .-4
TOM FAC+4

TF
8
OORG
TF
TFM
B
OORG
FAC
OS
FNH
OS
EJ
OS
OVFlOW OS
ENOO
OS
funR
OS
9SPF
OS
FNHHI
OS
8ETA
OS
IWOZ
OS
ZERO
OS
91MF
OS
GOAL

,97MF

·

.03
.99
.RECHK
.FNH

.FH
.0

·

.01

.0

FAC+I

.RECMK

FAC
ENOO+12
.-4
FAC-2
FAC
GOAL+12

.SAVE
.9SPF-I

,-99

.-4
.02492
.03313
.02615
.03652
.03768
.03676
.02854
.03358
.02603
.03073
.02161
.03)23

00466 23 02603
8ETA EQUALS 8ETAoSAVE
00478 26 02603
00490 J2 00441
.010 • P EQUALS P-2
.10 • REDUCE COUNTER BY ONE
00502 12 02571
IS COUNTER ZERO 00514 H7 00406
00526 26 00079
YES
MULTIPLY BETA 8Y FAC
00538 23 02603
ADD FAC TO PRDOUCT
00550 21 0332L
SET CONSTA~T IN FAC
00562 26 02492
NEGATE CONSTANT 00514 32 02492
SUBTRACT PRODUCT FROH CONSTANT
,ll t
00586 22· 02492
00598 26 00092
MUL TI PL V CHAR BY LN
10
00610 2L 02980
AOU F AC TD PRDOUC T
00622 21 00099
00614 II 00097
.10 • ZERD CHECK
00646 M6 00818
.0
00658 16 02565
.10, SET UP CHAR
NORMALIZE
00670 26 0249~
00682 3] 02495
SET RECORD MARK 00694 25 02496
00706 M3 00774
.011
,611
00718 31 0331L
00730 15 02495
00742 32 Ol3IL
.6
,10, ADJUST CHAR
00754 12 02565
00166 H9 00106
.0
00773
CLEAR RECORD MARK
00774 15 02496
REPLACE RECDRO MARK
00186 25 02493
SET CHAR IN FAC 00798 26 02492
00810 49 03780
00811
00818 26 02490
00830 16 02492
olD
00842 M9 0081 0
.0
00849
02492 00000
03313 00000
02615 00000
03652 00000
03768 00000
03676 00000
02854 00000
03358 00000
02603 00000
03073 00000
02167 00000
03323 00000

02565

til.

.0.

.6.

..

.1.

..

0332l
000-2
000-1
01200
02728
02492
02492
00000
00000
on2L
02853
00585
02492
000-0
01200
000-3
00099
00000
02403
Ol3IL
onoo
00000
00000
000-1
00000
00000
02403
02565
00000
02853
OOORR
00000

776

)

FORTRAN n·D Reb:atlblll LN

OUZ' 00000
0~.25 00000
OZ;', 00000
0,,., 00000
O)~Z. 00000
02 •• 0 00000
0240' 00000
OUUIOOoOO
00001

$,,,ilOL
OYFLOW
EIllOO
flU

LNIO
2FIII

0)/)5Z
0376'

BETA

0261\3
~._ROR 01676
FNH. Gnll
RECIIK 021,01
'iSPF Ol8S4

(nUs

OZ980
03429

PirIe 3

Ro"

TAILE

CliRN

COUN

00"1.
.. ~c. 024.2
FNllIII OIUi
SAVE on",
9711F 0]32)

""

GOAL
TIIOZ
9111F

oonolt
OUOI
00791R

olon

EI
FLN
IIIU
ZERO

02615
OOOG6R
02'U
02767

OU28

777,

00010 •••••

1620 FORTRAN 11':0
REl.·OcATABU fLbATlNG 'EXPONENTIAL ROUTINE
00020
OSA 'FEXP
00004 00005 -0006
000)0 FEXP
TF
FAC
.FE~'-I
.111. LOAO ARGUMENT
00006 20 02492 OOOON
00040
SII
hU
.0'10
.OZ
00018 J2 00005 000-2
TF
FAC-2
,--25
00010 20 024'0 000011
0g050
.111
TFM 8ETA
.10
00042 lilo 02601 000-1
TF
BETA-Z
B·EtA. FT PT ONE IF ... FORII I
00054 26 02601 01042
'ei0080
0001106 II) 00016 OUll
.011. ZERO CHECK
£80 ".*~,P> . ., F,.H
00040
;8;
GOBACK-24.
00078 119 00971 00000
.0
00100
'bORG;~-4
00085
00110
TO
IIll-l
';FIC-2
STORE SIGN
00016 25 03711 02490
C;F
FAC-2
000"1 )) 02490 00000
TF
79·iZl!'1i6-.'z
Cl.UR '.ODUCT "IIU
.
,
00110 26 00019 02725
'
001.0
fA.c;-l
....~E
IIULTIPLY BY l.OGE 00U2 23 024'0 01010
00150
TF
SlVE.+2
.FAt
5 TORE CItAR
00 Ill, 26 On67 OZ4'2
FAC"4
TO
00160
••
IIbYE RECORO MAliK 00146 25 024'6 024.3
'FAt+)
00170
TF
.11. 'MOVE F+5 DIGITS OF PRODUCT
00158 26 OZ4'5 OU4l.
e+It'i
(10110
"'0
;'0 II. NORMAl. I
00170 III 00211 OUIl.
•ill"
,'R
00140
,.Fit
;'611
00182 31 OI31L onoo
F"H
'00200
sil
SAVE'2
.01
00194 IZ 02567 000-1
.,10
'00210
F,.H
SF
00Z06 12 on 1l. 00000
.6
I:J,MF
SAYE.2
002Z0
C
IS eltAR 'L'f'SS THAN. EQUAL TO -F
00218 24 02567 014'1
002'30
;0.
YES- 'RE'sULT IS FLT PT ONE
oono 117 00'71 OUOO
00240
IV
.012
;0.
'TURII OFF OIlF\. INO
00242 116 00254 01400
002;0
00254 1102561 000-0
~LO. IS eltARIEIIO
,""
SAVto'2
.00
'oouo
8E
CALC
266 ... 00450 01200
00il0
til.
C1I.C... •
'.0. '~:!II l.iS5 1H"'N
00271 117006"101100
OOliO
,'II
SAYEe,
.62
,10. CHAR PosnrVE
00290 II, 02561 000-2
00Z40
IH
EIZ
.0.
CHU 'GlthTEII titAN '2. EIIIIOI
00102 Me. '01151 '01100
00)00
II.
•.•••
•
c;'HU LfSS 't'flAIi 2 00114 "' 'iIO.~1I 01100
OOUO
CHU
00326 21 02601 onoo
8EtA
OOUO
TR
FNIoIII1
;FH
.6U. AOJUST.AliTISIA 00311 ')1 OJ'JlO O)JOO
OOUO
•
CAl.c"/4.
.0
00)50 "' 0040. 00000
,00).0
00157
:G.;i.lU
OS
EI
,OJ616
ERROR
OS
El2

B

00922
00934
00941
00942
00954
00966

12 0260) 000-1
M9 00954 00000

FORTRAN noD Relocatable Floatlnq
ExponenUal Routine
Paqe 2

779
FORTRAN noD Relocatable Floating
Exponential Routine
Page 3

12 0260] 000-2
!l6 00978 01200
32 0260) 00000

PUT RESULT IN FAC

00960

FAC-2
ERROR

00490 M9 00442 00000
00497
ADJUST MANTISSA FOR CASE WHEN
00498 J6 00557 -2492
CHAR LESS THAN lERO, GREATER THAN
00510 KI 00557 02567
MINUS F
00522 26 0335Q 02853
00534 33 033IL 00000
00~46 26 02492 00000.
00558 32 0331l 00000
00570 26 00079 02747
MUL TI PLY AOJUSTEO ARGUMENT
00582 23 02492 02979
BY lNl0
00594 32 0336L 00000
SET SAVE EQUAL PRODUCT
00606 26 02565 0333l
STORE PROOUCT IN FAC
00618 26 02494 OH3l
SET DIVISOR EQUAL 2, DENOTE AS l
006)0 J6 00713 000-2
ADO SAVE TO 8ETA 00642 21 02601 02565
00654 26 00079 02129
MULTIPLY SAVE BY PRODUCT IN FAC
00666 23 02565 02494
00678 26 00099 0331Q
00690 16 0331Q 000-0
OIVIOE NEW PRODUCT BY L
00702 19 0)32L 00000
BR IF QUOTIENT IS ZERO
00714 M6 00158 01200
PUT QUOTIENT IN SAVE
00126 26 02565 00097
INCREASE l BV ONE
00738 JI 00713 000-1
007~0 M9 00642 00000
00757
QUOTIENT WAS lERO, IS COUNTER
00758 J4 00429 000-0
ZERO, IF YES 8R 00770 M6 00850 01200
INOICATOR NOT ZERO
00782 26 00079 02729
MULTIPLY BETA BY 10 TO .34
00794 23 02599 03278
00B06 32 0336l 00000
STORE PROOUCT IN BETA
00BI8 26 02599 0332Q
DECREASE COUNTER BY ONE
00830 J2 00429 000-1
00842 M9 00170 00000
00849
COUNTER WAS ZERO, WAS ORIGINAL
00850 "4 00978 03711
ARGUMENT NEGAT IVE
00862 26 00099 02746
YES, FIND RECIPROCAL
00874 26 0333l 03040
008B6 29 0333Q 02599
00898 M6 00942 01400
00910 26 02597 0332L

,0,
,0

0097B
00990
NO ERROR
01002
REPLACE RECORO MARK
01014
REMOVE RECORO MARKS
01016
010)8
SET SIGN POSITIVE
01050
01062
ERR F5 UNFl IN FEXP
01074
FAC IS Fl PT lERO
01086
0109B
01110
OUl1
ERR F4 OVFl
IN FEXP
01118
FAC IS Fl PT NINES
01130
01137
SET ERROR BRANCH 01138
01150
01157
02492
02603
0]0]8
0331)
03712
02167
0)010
02565
03)4)
03308
0)473
031'8
02854

01980
03363
03333
03318
0])23
03278
03328
03B8
OHO]
03803
02615
03676

26 02490 02597
26 02492 ~260)
J5 010)9 00009
25 02493 0240)
16 02496 00-00
49 0)804 00000
15 00099 00000
M4 01118 03711
16 02615 00075
16 02492 OOORR
26 02490 0285)
49 03676 00000
16 02615 00074
49 0)652 00000
J5 01039 00001
M9 01014 00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
DC 000
00000
00000
>00000

i811

OU6C OVFlOW OS
01110
OE,ltO

.03652,

FORTRAN noD Relocatable Floating
Exponential Routine
Paqe4

03652 00000
00001

SYMBOL TABLE
oVFLOW 0]6~2
f I
02615
FExP 00Q06R
HNO
0]131
O]O]S
ONEl
/FRO
021U
91M2F OBb]

GOUt_
ERROR
FH
LNIO
PDT
102MF
98MF

01002R
03676
03108
02980
03n3
01343
OH18

FINISH 03103
01l3eR
E12
FNH
013U
0]010
LOGE
RECMK 02403
QSPF
02854

BETA
FAC
FNHMI
MF
SAVE
96MF

02603
02492
On51
03473
02565
onls

tALt
FACT
GORD
MU
TEN34
97MF

OOHOR
00702K
00570R
03712
03278

03323

781

0001000020*
00030_
00040-

Subscripting Subroutine - Relocatable
Page 1

SU8SCRIPTING SUBROUTINE - RElOCAU8LE- FOR ONE. TWO OR
THREE DIMENSIONAL SUBSCRIPTED VARIASLES
LINKAGE
BTM ENTRYX,."12"
WHERE X-1,2 OR 3

OSA BASE,D4,Ol,I,02,J,Ol,K,QR/M

00050-

IF Q ADDR FLAGGED SASE IS FIXED
IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER
IF 01 IS FLAGGED - 1/0 STMNT
,3605
OS
03605 00000
OS
,2221
02221 00000
OSA
ENTR Y 1, ENTRY2. ENTRY]
00004 00005 -0006
00009 00005 -0042
00014 00005 -0090
00110
DORG --9
00005
00120 ENTRYI TFM
BR1NST+6.11
00006 Jo 00336 -0386
00130
TFH EXI T-l ,22, 10
00018 J6 004S1 000K2
00140
B
COM
00030 M9 00126 00000
00150 ENTRY< TFfr4
9R INSr+6.L2
00042 JO 00336 -0362
00160
TFM EXIT-l,32.l0
00054 J6 004S1 OOOLZ
00110
TF
ENTRYl-I.ENTRY2-1
00066 KO 00005 00041
00180
a
COM
0007S M9 00126 00000
00190 ENTRY) TfM
8RINST+6.L3
00090 JO 00336 -O)3S
00200
TF" EXIT':"1,1t2tlO
00102 J6 00481 000M2
00210
TF
ENTRYI-I.ENTRY]-I
00114 -a 00005 000S9
00220SET LENGTH OF FX OR FL
00230 CO~
TF
X+ll,FP2
00126 K6 00433 0]605
00240
8NF
e+lt8,ENTRY1-l
00138 MM 00186 00005
00250
Sf
COM+ I
00150 L2 00127 00000
00260
CF
ENTRYl-1
00162 L3 00005 00000
00170
TF
X+ll,K
00174 K6 00433 02221
00280'
00290'
MOVE PARA~ETERS TO WORK AREA
00300.
OOHO
TR
WKARU.ENTRYl-I.ll
00 [S6 lJ 00000 OOOON
00060·
0007,0,·
00080 FP2
00090 K
00100

00120-

00330
00140
00145
00350
00360·

CF
8NF
CF
SF

y+ 11
•• l6,BAse

00198
00210
00222
00234

BASE
Y+1l

CHECK IF IN 110

Ll 00~45 00000
MIf 00246 00004

13 0000" 00000
Ll 00445 00000

0011000]80
00]90
00400

aNF

CF
aNF
SF
TOM

00~10

00420
OOHO CFINST CF
00440
S
00~50 BRINST
00460
DORG

a

CFINST.COM+l
CDM+I
CFINST+12.DI
X+1l

V+l,2,.
01
HOLD,HOLO

·-3

OO~10.
00~80

11

00490
00500 L2
00510
00520 Ll
00510
005"0
OOHO

M

03,KK.ll

TF

HOlO,99
D2 .• J,11
HOLO,.99
01,1.11
HOLD •••

"
"
•M"
A

A

HOLD.D"
HOlO._-e ..

OOH6 MM 00306
00258 L3 00127
00270 "If 00311
00282 l2 00 .. 33

SET OP TO SUBTRACT

0029~

J5 00435

00306 13 00014
00118 KK 00501
00330 It, 00000

00127
00000
00014
00000
OOOOl
00000
00501
00000

DOH8

00H8 23 000]4 OOOJ_
00350 K6 00501 00099
00362 2) 00024 Doon
00374 KI 00501 0009'

DO".

n

OO.U

J) 00501 -0000

00014 OOOlR

Dona Kl 00501 00099
00410 Kl OOOSOI 0000.

782

OO~60

Y

A
00510
TOM
OO~IO
SF
AM
110'90
00600 E KIT
B
00610 WKARE A OSS
00620 >lOLo
DC
OO~)O BASE
OS
00640 D4
OS
00650 01
OS
00660 I
OS
OOblO 02
OS
OS
00610 J
00690 D)
OS
00100 KK
OS
DE NO
00110

n.BAsEoll.

.-ll, 1 ••

INIT OP TO ADD

9~

ENTRY\-I._-_

ENTRY1-l.,6
H.O
111),0
~.4
~.9

~014

I).tCJ
5.24
5.29

S.31t
5.]9

1

004]4
00446
00451
00470
0048Z
00000
00501
00004
00009
00014
00019
00024
00029
OOOH
000)9
DODO)

21 00099
J~ 00U5
12 00095
JI 00005
M9 OOOON
00042
00015
00005
00005
00005

OOOOM
00001
00000
-0000
00000

Subscripting Subroutine - Pelocalable
Page 2

OOOO~

00005
00005
00005
00005

SYMBOL TABLE
.KAREA 00000
SR I ~s T 00)30R
00034
OJ
00019
I
L2
00362R

FNTRY3 00090R
BASE
0000'
04
00009
00029
J
00]38R
l3

ENTRY2 00042A
COM
00lZ6R
EXIT 00.82R
K
02221
X
00.22R

ENTRY!
DI
FP2
KK

00006R
00014
03605
00039
00434R

CF INST 00)06R
00024
02
>lOLO 00508R
00386R
11

783

000100002000030 ADR

00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00140
00150
00160
00110
00180
00190
00200
00210
00220
OOBO
00240
00250
00260
00270
00280
00290
00300
00110
00320

lUCAL
10RBC
10RT
010
10SK
INoS
ERRET
10ERR
10GT
IOPT
FAC
OIOOOA
F l~olN
FPl
HOOO
PAR
ERROR
EI
FIXE~O
FLTE~O

FLOAT
OKOATA
ZERO
FIX
RECLG
W
N2
NI
oono K
00340 F
00)11)000360
00170 T088
00380 ORAY

FORTRAN Disk I/O without Floating
Point
Page 1

FORTRAN DISK 110 WITHOUT FLOATING POINT HARDWARE

.RECORO,FETCH,SWD,DRAY.OIOENO

OS.

FIND

OORG
OS
OS
OS
OS
OS
OS

ADR-4

os

OS

os
OS

os
os

OS
OS

os
os
os
os
os
os
os

,520

0000'
00009
0001.
00019
0002'
00029
00000
00716
00520

,1)65

00~65

,816
,55"
,610
,602
,624
t 566
,532

00816

,71b

00~54

.2492
.3387
,3583
,3605

0)60~

.3427
,3378
,3616
.2615
.3760
.1810

0)427
03378
03676
02615
03760
03810
04042
03379
02700
03854
02243
02240
02238
02233
02221
02219

os
os

,40ilt2
.3379
.2700
,3854
.2243
.2240
.2238
.2233
.2221
.2219

OS
OS

os
os
os
OS
OS

00610
00602
0062'
00566
00532
02492
03387
03583

TF

N!TEMP.NI

8

DRAY

TOM

TOBBt1.9, ,

1.

,0

00390

80

EVEN,FKOOD.

00400
00410
00420 F 1110

TFM

r

TOM

00430

TFM

RET02_6. SE TI ••

OOHON2
00450 N2CK
00460
00470

ERROR ROUTINE
II GRT N21
FINO-I.lERO.6.
C
lSI ZERO OR NEG
8NH BE2
C
FINO-l.N2.6,
COMPARE

00480

8H

8E2

00005
00005
00005
00005
00005
00005

-0012
-0334
-0298
-0216
-0024
-0210

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

00000 K6 00143 02233
00012 M9 01004 00000
SET ToB8 TO BRANCH
00024 J5 00013 00009
TEST FOR EVEN ADDRESS
00036 M3 00536 03427
00048 Jo 00265 -0698
00060 M9 00228 00000
SET FINO INDICATOR ON ,
00012 15 0358] 00000
BRANCH TO COMPUTE ADDRESS AND TEST(
00084 JO 00150 -0370

OSA8LK+5 .AGAI N
SWO+12
FINOIN.O ..

"

-,

00096
00108
AND N2
00120
00132

K4 0007J Ol700
M7 00156 01100

K4 0007J OlB.
MI> 00156 01100

78',

~~t

, WIO
••.1500
005'0
005Z0

HOZ
B
lJFFAR OS
BEZ
BI
TFM
OOHO
80

00540
00550
0051>0<

TFM

B

OOS70~ ••••

aQUO SNDA
00590
00600

"
·.12.1400
EI,..,72,t..
ERROR,DOAelK, ,

BR IF CK

OSAOTR'S.ERRDR
SE TRMK

IlAS

00144 49 00000
00155 00000
00156 "6 00168
I GRT N2
00168 16 02615
ENTERED FROM BUffER ROUTINE
00180 4L 03616
00192 J6 0040)
00204 "9 00354

00000

FORTRAN Disk 1/0 without Floating
pOint

01400
00N12

Page 2

002H
-3616
00000

SWD SUB~ DUTJ NE
TOM
SWO.900. 0
TFM '-II.HolO

00216 J5 01116 00000
00228 J6 00211 OOOMI
INCREMENT BUFFAR ARROW
00240 Kl 00155 02240
00610
B
SWOI
00252 M9 00406 00000
OOUO
DORG '-4
00259
00630 ICON8 DC
1.9
00259 00001
00640
OSA
RETfL T
00264 00005 -0896
00650
DORG e+5
00269
00660 10ENO TFM
OSAOTR'5.010ENO
00270 JO 00403 -0210
00610
80
SETRMK,FRIND,.
BRANCH I F FETCH
00282 ML 00354 00163
00680
C
NlTEMP.Nl
00294 K4 00143 02233
oono
BE
SETR.Mtc. t "
BRANCH IF BUFFER EMPTy
00306 M6 00354 01200
00100
WRITE BUFFER TO FILE
00318 10 00565 -0141
00110
B
10PT .DKOATA.1
00330 49 00532 -3319
00120
AN
FINO-I.I.610
.
00342 JI 0001J 000-1
00710 SETR MK TO
SWO'900. DKBUFF'200
00354 KN 01116 01210
00140
TFM
IORT.IOREF2'11
00366 LO 00565 -0429
00150
B
10GT
00378 49 00566 00000
00160
DORG '-4
00385
00770 OOB
OSC 1,1
00385 00001
00180
OSA
200
00390 00005 -0200
00190
DC
3,9
00393 00003
00800 OSAOTR DSA
S.O,OIOEND
00398 00005 -0216
00403 00005 -0210
00810
DC
1.'
00404 00001
00820 S.OI
80
FETCH1,FRINO"
BRANCH IF FETCH
00406 ML 00118 00163
00830"
RECORD
00840 IOREF2 tF
SWD-1,OAT8,7,
CLEAR FLAG ON AOORESS OF DATA
00418 LL 00215 -\061
00B50
$"
N1TEMP,l,lO.
DECREMENT WORD COUNT
00430 JZ 00143 000-1
00860
TF
BUFFAR,$WD-l,61l,
SEND WORO TO BUFFER
00442 KO 0015N 0021N
00810
SM
SUFFAR.2
00454 J2 00155 -0002
OOB80
SM
SWO-I.2
00466 J2 00215 -0002
00890
TF
BUFFAR. SWO-I. 611
0041B KO 0015N OOllN
00900
AM
BUFFAR ,2
00490 JI 00155 -0002
00910 CK
eM
N1TEMP,O.lO,
CHECK FOR FULL BUFFER
00502 J4 00143 000-0
00920
BNZ
TOB8
00514 M1 00012 01200
00930
80
T08B-12,FRINO ••
BR I F FETCH
00526 ML 00000 00163
00940
TFM L t J\lK8+ 18,10PT
00538 J6 00588 -0532
TFM RET02'6.lINKB
00950 CKI
00550 JO 00150 -0570
00960
B
N2CK
00562 M9 00096 00000
00910
DORG '-4
00569

A

BUFFAR,W"

785

p. .

00980 LINKS

TFM

IORT,.+23, •

00990
0\000

B
TFII

,DKOATA,,1
BUFFAR .OK8UFF + 199, •

01010
01020

5
BNF

BUFFAR-2.RECLG

~:g!~

A

ADOTOI AM

01050

-+21t,FR1ND
BUFFAR,W

fINI;J-1,l.610,

A

DIODDA+5,DIOOOA+8, •

01060
01070
01080
01090
01100 ACAIN

80
FETCH2.FRINO
8
T088-12
OORG '-4
A
DRAY-.I.FPZ
TF
SWO-l.DRAV';'l
011 10
8
SWO
01120
OORG .-~
N1'TEMP,N!
01130 FETCHI C
01140
bNE
FETCH2".
01150
01160
0\170
011 BO FETCH2
01190.
01200
01210
012Z0
01230
01240
0125001260
01210OU80
01290.
01300
01 JlO.
01320
01310
01140
on50 ICON1
01360
01310
01310 RETFL T
01390
01400'
01410 CHO
01420
01430 FETCH)

CALL CORRECT 10RT ROUTINE
00510 10 00565
00582 49 00000
INITIALIZE 8UFFER ARROW
00594 JO 00155
00606 K2 0015)
00618 MM 00642
00630 KI 00155
INCREMENT I
00642 JI 0001J
I~CREMENT SECTOR ADDRESS
00654 21 03392
00666 ML 00762
00678 M9 00000
0068S
0068b K I 00023
00698 KO 00215
00110 .9 00216
00711
00118 K4 00143
BRANCH IF BUFFER NOT EMPTY
00730 M1 00162
00742 J6 00588
00754 H9 00550
00761
00762 J2 00\4]

TFM 1IIo1KB+18.IOGT
II
CKI
DORG .-4
SM
NlTEMP 01 010
SEND THE WORD TO FAG
TF
FAC.BUFFAR.ll
SII
BUFFAR.2
TF
FAC-2.8UFFAR,11
AM
BUFFAR.2
81
-+12,1400
TEST FOR flOATING ADDRESS AT SWD-l
8NF
FETCH3. 5WO-l
IT IS A FIXEO ADDRESS
CF
SWO-I
TEST F.OR FLOATING WORD IN FAC
ONF
FETCH4.FAC-1
THE, WORD IS FLon I NG SET UP LI NKAGE FOR FIX
1F
FIXENO+ •• ICON7'6
8
FIX
DORG --It
OC
1.4
OSC
109
OSA RHFL T
TOM F I XEND.·'l0 2
TOM Fl TEND-s.2
BRANCH TO STORE NUMBER
B
FETCH4
OORG >-It

aNF

FETCl!5.FAC-l ..

mrr

00774
00186
00198
00810
0.0822

20
J2
20
JI
M6

02492
00155
02490
00155
00834

FORTRAN Disk I/O without Floating
Point
-0593
-3319
-1269
02243
00163
02240
000-1
03395
00163
00000
03605
00023
00000
02233
01200
-0566
00000
000-1
0015'"
-0002
0015N
-0002
01400

00834 MM 00928 00215
00846 L3 00215 00000
00858 M4 009"0 02491
00870 20 03166 00895
00882 49 03854 00000

00889
00889 00001
00890 00001
00895 00005 -0196
00896 15 03761 00002
00908 15 03805 00002
00920 "9 00940 00000
00921

lUNCH IF FIXeD
00928 "4 00984 02491

01440'
OIHO FETCH"
01"60
01470
0·1410'
01490

01500

TF
SJIII
TF

stORE THE WORD IN "f"ORY
SWO-I.FAC.6
SWD-l.2
SWD-l.FAC~2.6

CHECK FOR EMPfY IIUFFER
CK
e
DORe; '-4

00940 k6 0021N 02492

009'2 J2 00215 -0002
00'64 K6 OOllN 02"'0
D09U ' " 00502 00000
00913

Page 3

OI~IO.

III ~20

FETCH~

alHO
01 ~~O
01"0 DRAYl

SE I UP II ~UGE FO. FLOAT
rF
Fl TEND. I CON8+5
B
FLOAT
OORG .-~
SM
PAR,l,10 ..

•• ,4,

BNI
88
OORr. .-9
AGAIN-12.0RlY-1
OR;AY-ltK
S
B
AGAI N
OORG .-4
OSC
2.-00
O16~0
DSA
DOB
01650
DC
I.'
,DAT8+Q
01660 DKSUFF OS
01610·

al~60

alHO
OI.SO
01590
(11hOO
01610
01620
01630 OATB

R.,

0098~

20 03810 0026~
00996 49 0~0~2 00000
01003
DECRE"ENT WORD COUNT
01004 12 03378 000-1
01016 101 01030 01200
o 1028 ~2 00000 00000
01030
01030 10M 00686 00023
01042 K2 00023 02221
DID" M9 00698 00000
01061
01061 00002
01061 00005 -0385
01068 00001
01010 00000

FORTRAN [)i~k I/O without l"luatill'J
Point

Page 4

01680WR liE 2ND BLOCK

01690-

0110001110 LDIRD
01120
01130
01 "0 DIMI
01150
01160
01710
011S0
01190
OISOO SILOI
01810
01870
01830
01840
01850
0lR60
0lS10

lise

as.
DC
OSC
OSA
OC
OSA
OC
OORG
TOM
OGM
TO
CF
CF
IFM
8
TRA

TCD

01069
01015
01016
01077
01082
01085
01090
01091
01118
01118
01129
01130
01142
Oil"
01166
01178
01190
01202
01209
01211
01116
01217
01223
01226
01118

2.00
OIMI
I ••
101
209
\,9
SWD
I.'
S"OA_902
DK8UFF+200,O
SWO+90D,OK8UFF+200

ICON7+2
ICONS-I
IORT,o+23

IOPT,lOlRO,1

018S0
01e90_
01900010(0
01920 SWO
01930
01940
01950
01960 QUABLK
01910
01980
01990 DSABLK

SILOI

OF FETCH FIND RECORD
OORG SWOA
TFM OSABLK+5.SWD
TFM
IORT,IOREF+ll
10GT
OORG ·-4
OSC
1.1
OSA
209
) .9
DC
SWQ,SWD
OSA

02000

DC

00001
00005 -1011
00001
00001
DODO. -0209
00003
DODO' -0216
00001
H 01270 00000
00001
KN 01116 01210
13 00891 00000
13 00260 00000
10 005" -1189
4R 00')2 -1069
10 00565 -1109
49 001\6 00000
00002 2K
DODDS -1211
00001
00006 lJ918)
00003 -03
00006 -0000'

BLOCK I

00216
00216
00228
00240
00241
00247
00252
0025S
OOlbO
0026S
00266

"

DORG
02010
02020 OIOENO 81
020JO
88
01040
OORG
020S0 DATI
OSC
01060
OSA
02070
OC
02080
OS
02090 FE ICH
TF
02100
TOM

I,'

JO 00265 -0216
10 00565 -0571
49 00566 00000
00001
00005 -0109
00003
00005 -0216
00005 -0216
00001

\DEND
*+12,1400

00210
00270 .6 00282 01400
00182 42 00000 00000
00284
'-9
2, -00
00284 00002
OQABLK
002QO 00005 -0247
002n 00001
I.'
00296 00005
5
FIND-l,FETCH-I ••
TRANSFER I
00298 KO 00071 00291
FRIND,Ltll,
SET FETCH-RECORD INDICATOR TO FETCH
00310 J5 00163 OOOOJ
BRANCH TO SET FINO INDICATOR OFF
02110
AtTEST",
00322 .9 00358 00000
COMPUTE ADDRESS
TEST I
AN~ TEST
02120FOR DEFINE STATEMENT _
02130_
F IND-l,RECQRD-l.,
TRANSFER I
00)34 KO 00011 00))3
0?\40 RECORD IF
TOM
02150
SET FETCH-RECORD INDICATOR TO RECRO
FRINO,Q"
00346 J5 00163 00000
FINDIN,l, ,
SET FINO INDICATOR Off
02160 A I TE Sf TOM
00358 1 S 03583 00001
TFM
SET SECTOR ADDRESS IN OOA
02170 SE TI
01000.,·5,217 ••
00370 16 03392 -0217
M
COMPUTE ADDRESS OF FILE RECORD
FINO-l,RECLG,b,
02180
00382 K] 0OO7J 02243
OIODDA+S,99
00394 21 03392 00099
02190
BRANCH IF NOT FIND
00406 M3 00450 03583
OllOO
60
*+44,F INDIN"
IFM
00~18 10 00565 -0441
02210 SSEEK
JORT,*+23
IOSK,OKOATA,7,
TRANSFER TO IORT TO SEEK
02220
B
004)0 49 00554 -3319
00442 M9 00270 00000
02230
B
OIOENO
DORG .- 3
00450
02HO
TFM BUFFAR,OKBUFF+199"
02250
INITIALIZE BUFFER ARROW
00450 JO 00155 -1269
00462 K2 00153 02243
8UFFAR-l.RECLG
02260
S
IF
OO~H K6 00143 02233
02270
Nl TEMP ,NI"
DIOODA+a,REClG, ,
OllSO
IF
STORE RECORD LENGTH IN ODA
00486 26 03395 02243
rFM
01 ODOA+ 13 tOKSUFF +200,.
STORE ADDRESS OF SUFFER
02290
00498 10 03400 -1270
01 OOOA+ 11, RECLG"
SUB LENGTH OF RECORO TO GET FIRST COR
onoo
00510 22 03398 02243
TOM
INITIALIZE BRANCH BACK
02310 OVER
T088+1 ,2"
00522 J5 00013 00002
005)4 42 00000 00000
BS
02320
DORG ·-9
005)6
02330
TF
TEMPA,FP2,.
STORE flOATING LENGTH IN TEM'A
02340 EVEN
00531> K6 00119 03605
BNF
BRANCH IF FLOATING ARRAY
02350
*+36.0RAY-l"
00541 MM 00584 00023
00560 I I 00023 -0284
ORAY-l,DATl,7
02360 IDREF
CF
IF
TEMPA ,K.,
STORE F Ixeo LE"IGTH IN TEMP A
02310
00572 K6 00119 02221
IF
OIOODA+ 13, DRAY-i ••
srORE ADDRESS OF FIIIST elEMENT
02380
00584 20 03400 00023
AM
00596 11 03400 -0001
02390
01000"1301
S
01000A+13. TEMPA,.
HIGH O.OER POSITION OF ARRAY
OHOO
00608 2K 0)400 00119
00620 K6 00661 03400
TF
EVENI+ll,OIOOOA+13
02410

.

.

78 i

FORTRAN Disk I/O without FloatiTI')
Point
Page ~)

.

•

78~

\ &'420
IIH.lO
nlltitO EVUI
'J141j0011t60

A
TO

01000'+8,1,9
010DDh8,91

REelG,1.9

·.]6

"..

OHOO
02510.
02520'
02BO.

00612 K) 00119
OO&~" Kl 001061
00656 K5 00855
EVALUATE SECTOR COUNT
00661 16 0))95
00610 21 0))95
00692 14 0221tJ
00704 "6 00140
00716 U 03395
IS NON IN QQA
EVALUATE AND STORE LOW OROER
POSITION, I OF ARRAY

TEM",PAR
EVENI+Il,99
EVEN2'11

TF"
A
eM
8E

~H10

01480
02490

.....

FOaftA)f Diak (/0 without 'Ioatlilt

.

DIOOO4+8,5,10

on18
00099
00000

Nltnt

00-01
00097
00-01
01200
000-5

°2'i40·
00728 K2
00740 KI
00752 JD
00764 M9
00771
INSERT ADORESS FOR ERROR ENTRY
00772 10
8RANCH IF FETCH
00184 ilL

F It''O-l,9a.b

OH50
OH60
OZ510
02580
02590
02600

S
A
TfM
B
DORG
TFM

FINO-I,DIODDA'8,6
RET02'6,"20
N2CK
'-4

02610

8D

FfTCH8,FRIND, •

02620'
02630

TO

02640'
01650
02660
02670
02680 EVEN2

TFM
8
TDM
TOM

IOR8C, NOWLC ,7
FL TfND-5,2

02690

A

DIOODA +S, 01 ODOA. 8 ••

OIO+)S,VTURN,67,

RECORD
EVENI'II,DK8UFF+200 ,6,

IOA.T,e+23
EVEN1+U,,6.

88
02100
02110
ODRG '-9
IORT,*.23,.
02120 HTCH8 TfM
IOGT,DKDATA,7

02730

0114002HO
02160
02770
02780
02790
02BOO
02810
02820
01830
02840
01850
02860
02870
02880
07890
02900
02910
02920
02930
02940

BNG
8
OORG
Tf
TFM
8
OORG
EVENSP DC
OSC
OSA
YTURN 81
BN[
roM
8
UORG
NOWLC
OSC
OSA
DC
TEMPA OS
NITEMP

02950 FRIND

•• 20.E~EN1+1l .11
EVEN2

0-'

fL TENO,EVENSP+b
EI,475,9
ERROR

0-'
1,4

1,9
eVEN2-12

*+12,3100
ERRET0I900

INOS+1O,b
10ERR
'-4

2.02

os

OIOOOA
I,'
1,N2CK+23
2,RET02-1

os

1.BE2+7

02960-

WRITE FIRST

0007J
0007J
00150
00096

00098
03395
-0772
00000

0085J -0952
00810 00163

SET GROUP MARK AT END OF ARRAY
00796 KN 0066P 01270
WRITE ARRAY ONTO FILE
00808 ID 00565 -0831
00820 4R 00520 -0995
00832 15 03805 00002
RESTORE DIGIT
00844 J5 0066P 00000
INCREMENT SECTDR ADDRESS
00856 21 03392 03395
00868 42 00000 00000
00870
READ ARRAY FROM FILE
00870 10 00565 -0893
00882 '09 00566 -)379
TEST FOR NO GROUP MARK
00894 NN 0091'0 0066P
00906 M9 00844 00000
00913
00914 20 03810 00951
00926 16 02615 00M15
00938 49 03616 00000
00945
00945 00001
009106 00001
00951 00005 -0832
00952 M6 0096't 03100
00964 '01 00602 01900
00976 15 00620 00006
00988 49 0062't 00000
00995
00995 00002
01001 00005 -3381
01002 00001
00119 00002
00143 00002

FORTRAN Disk I/O without Floating
Point
Page 7

00163 00001
BLOC~

0297002980 0[M2
02990
03000
03010
03020
03030 L02NO
03040
03050
03060
03070 S TL02
03080
03090
03100

OSC
OSA
DC
OSA
DC
OSC
OS,
DC
OORG
Cf
TFM

OHIO
03120

TCO
SH02
OEND 6

8

101
200
3,9
SWO
1,'

2,00
0lM2

I,'

SWO+902
EVENSP'2

IORT, •• 23
(OPT ,102NO,7.

TRA

01003
01008
01011
01016
01011
01018
01024
01025
01118
01118
01130
WRI TE OUT 2ND PART 8LK 1 01142
0115'0
01166
01173
01115
01180
01181
01187
01190
D11L8
00006

00001
00005 -0200
00003
00005 -0216
00001
00002
00005 -1003
00001

13 00941 00000
10 00565 -ll5)
loR 00532 -1018

10 00565 -1173
49 00116 00000
00002 2K
00005 -1181
00001 '
00006 1J9783
00003 -03
00006 -0000'

SYMBOL TABLE
SETRMK
Fl TEND
FETCH"
OS'OTR
OIOODA
AOR

00n4R
0)810
00940R
00398R
03187
00004R
cno 00920R
UIM2
0100lR
fRREf 00602
F
02219
F~OOO 01427
ICONB 002~9R
IOGT
OO~66
00~54
10SK
~OWLC

OO'l9~R

0])78
PAR
STlOI OllllR
reMPA 001l9R

REfFLT
F IXENO
FE TCH3
DSASL<
OOULK
AGA[N
OATB
010
ERROR
FAt
FLOAT

00896R
03760
00928R
00260R
002't7R
00698R
01061R
OOB16
0)616
02492
04042
I~DS
00610
[OPT 00532
K
02221
NI
02233
REClG 022"3
SH02 011l8A
T088 00012R

OO)]U
0)583
00162R
03319
ci0155R
00156R
00284R
000210R
005)6R
00291R
03605
00116
00520
0106'1R
H2
02231
RETD2 00144R
SNO
0021U
N
02240

RECORD
FINOIN
FETCH2
DKDAfA
BUFFAR
8E2
DAll
DRAY
EVEN
FETCH
FP2
lOCAL
IDRIC
LOUD

NITEMP
FETCH8
FeTCHl
OK8UFF
A"EST
CK
DOl
DRAYl
EVEN1
FIND
HIND
10ENO
loREF
lD2ND
N2CK
SEn
SNOA
YTURN

0011o)R
00870R
0071BR
01010R
00)58R
00S02R
00)85R
01004R
00"6R
00072R
0016311
00270R
00560R
OIOllR
00096R
oonOA
0021611
OO'l52R

10RH2
FETCH5
EVENSP
DIDEND
ADOTOI
CKI
OIMl
EI
EYEN2
FU
I CIIN7
lOUR
IOU
LI NKI
OVER
SSEEK
SWDI

ZERO

789

DOloUR
00984R
00945R
00210R
00642R
D0550R
01011R
02615
008104R
D3I5"
008l9R
00624
00565
00570R
00522R
OO~lIR

00lo06R
02100

00010 •••• •
00020····
000'0 ••••
00040
00050
00060 FCOS
00070
00080
(')001)0 F SIN
00100
00110
00110
00110
00140

00150
DalbO
00170 CLF
00180
00190
00200
00110

DOno
OU230

00240
002')0
002bO

00770

00280 SRD

11>20 FO~TRAN 11-0
RELOCATAILE SINE AND COSINE ROUTINES
COSIO' I - U"ZItZ • 1X'.4ItH - IX"1>1/720 + •••
SINUI • COSIPIV02 - AI
00004 00005 -0001>
OSA FCOS.FSIN
00009 00005 -0042
00005
OORG '-4
TOM
CLF+lI
seT ROUTINE FOR COSINE
•0
00006 J5 00149 00000
FSIN-I
.FC05-1
,ai, LOAO ADDRESS OF ARGU"ENT
00018 KO 00041 00005
,0
000]0 M9 00054 00000
B
FSIN+12
TO.
CLFoII
.011, SET ROUTINE FOR SINE
01
00042 H 00149 OOOOJ
TF
,FSIN-I
,111, LOAD ARGUMENT
OOOH 20 02492 0004J
FAC
SM
FSIN-I
,02
,OlD
00066 J2 00041 000-2
TF
FAC-2
00078 20 02490 0004J
.FS I N-I
,III
CF
FNH
CLEAR HIGH ORDER FLAG
00090 ]] O]]IL 00000
,a
,611, seT FLAG AT HIGH ORDER OIGIT -I
TO" FNHMI
00102 15 0315Q 0000,a,
ro. Cl F .. 10
SET SWITCH ARG POSITIVE, RESULT POS
00114 J5 00148 00001
n~F
,FAt-2
,a.
IS AR.G NEGATIVE
00126"400174 024QO
YES, REPLACf BY ABloLUTE VALUE
CF
00138 ]] 02490 00-00
,01,
IS ROUTINE SINE OR COSINE
Mi\lF
.ClF+ll
00150 "" 00114 00149
,a,
CLF+ 10
,a
SINE, SINI-AI=-SINIAI, RESULT NEG
00lb2 J5 00148 00000
TF
I MSAPF
II~SA-tF. F-t2 ZEROS
,9SPF+l
00114 lb 0]290 02855
,la, CHECK 51GN OF CHARACTERISTIC
CM
FAC
,00
00186 14 02402 000-0
J:\~l
POlE)(P
,a.
SR IF POSITIVE. EQUAL TO lERO
00198 "b 00730 01300
,~F
COMPARE CHAR TO -F
FAC
00210 24 02492 03473
,a,
RR IF- CHAR LESS THAN -F
BL
MRO
00222 M7 00210 01300
,01,
ADJUST MANTISSA lIN IMSAPFI FOR
,FAC-l
00234 Jb 00269 -1491
,0,
CHAR GREATER THAN OR EQUAL TO -F
I FAC
00246 K I 002b9 02H2
I MSAPF
AND LESS THAN lERO
002~8 21 0329Q 00000
,CLF+ll
,01.
8R IF ROUTINE IS SINE
BD
00210 "L 00294 00149
I MSAPF
,PIOV2
.b,
ADO PIOV2. COStA'
SIN'~10V2-AI
00282 21 0329Q 03163
REDUCE ARGUMENT TO PRINCIPAL VALUE
I "1SAPF
r TWOPI
00294 Z2 03]90 03103
,0,
RANGE. MINUS PIOV2 TO POS PIOV2
RH
·-12
OO~Ob Mb 00194 01100
SET HIGH ORDER FLAG
SF
IM5A-I
00318 32 02574 00000
,6
003JO 21 OJ29Q 03133
I MSAPF
,P I
,0,
RR ARG NEGATIVE
0034] M7 00378 01300
++ lb
,010.
SET
SIGN
OF
RESULT
ClF+IO
,01
00354 J2 00148 000-1

FORTRAN Relocatable Sine and
Cosine Routine
Pa.qe 1

,a •

,

.b,

,b,

,b,

=

00300
00

~

10

00.320

00310
OOl40

00)50

003bO

,b,

,

SF

00370

,b,

IMSAPF

t MSAPF

• P t OV2

00380

TF

19

,IERO-40

00390
00400

M

I MSAPF

,r MSAPF

TF

t MSAPF

,98MF

00410

SF

I MSA-1

00420

IF

FAC

r

00430

TR

AA8-3

.AABS-8

00440 OVER

TOM

SUM+ 1

,2

00450
00460
00410
00480
004QO
00500 SUM

00510

IF
TFM

99

ONF 1+2

,98MF

97MF

,0000

8l
TF
S

98MF
DONE
SAVE
FAC

,

,95
.SAVE

AM

AAB-2

,02

a

,AS

00520

AM

AAB

,02

00510

M

AA8

,4A8-2

TF
TF

AB
79
I MSAPF

,99
.lERO-12

00570

CM

SUM+1

,9521

00580
00590
OObOO

BE

OVER

,

TOM

SUM.l

01

OOhlO

OVER+12
nORG '-4
FAC-I

,SAVE

B

00620 DONE

C

00630

8E

,9SPF

iERFAC

00640

TFM

SAVf

,01

DabS a

BO

NORM12

,ClF+10

00660

SF

99

00670
8
NOR"12
006RO
OORG .-4
00b90 POlHP C
FAC
00700
00710

BH

E9

SET SIGN ON ARGUMENT TO MINUS
003b6 32 a 329Q
,6,
ADO PIOV2, SINfA)= COSIPtOV2-AI
00318 21 0329Q
CLEAR PRODUCT AREA
003 00928
00594 21> 00019
MULTIPLY ARG 8Y QUOTIENT
00606 Z3 a ]29Q
ADD OR SUBTRACT AT SUM
.08,
006\8 J4 005]5
SUBTRACT
00630 "6 00462
SET SUM TO ADO
00642 J5 005]5
,0
00654 "9 00414
00661
CO"PARE ReSULT TO ZERO
00662 24 02491
EQUAL. RESULT' lERO
00674 46 03584
SET UP CHARACTERISTIC OF RESULT
001>86 II> 02565
SET UP SIGN OF RESULT
00698 "L 00890
8R TO NOR"ALlZA! ION
00710 32 00099
00722 .9 00890
.0

=

,a.

,a

,a.
,a,

00000
03163
02721
0329Q
OB20
00000
03040
00930
00002
033ZQ
0-000
00928
01200
000R5
02565
000-2
000-2
00922
00099
02755

OZ565
OR521
01200
00001
00000

02854
01200
000-1
00148
00000
00000

00729
,F

COMPARE CHAR TO F

,0.

,a.

Dono 24 02492 02219
8R TO E9 IF GREATER
00742 H6 00798 01100
ADJUST "ANTISSA I IN J"SAPFI FOR
00754 U 00784 0]]0]

791

FORTRAN Relocatable Sine and
Cosine Routine
Page 2

Dono
oono

.."

S

u

00140
00750
00 no E9
00170

•

FORTRAN RelocU8ble Sine and
,fAC

,0,

,fAC-2

UD

OOIlG '-4
TOM' 99
T"'M £I

,0

fAt

,-99

00790
rF
00100
8
DORG
00810
00820 IIORM36 rll
TDM
00830

FAt-l
UIIOR
'-4
FIIH
FAC-I

,9SPf-1

SF
00840
00850 IIORM12 aD

FIIH
FIIiISH

00860

SM

SAVE

00810
00880
00890
00900
00910
00920
00930
00940
00950
00960
00910
00980
00990
01000
DIDIO
01020
DI030
01040
01050
01060
01010
01080
01090
01100
01110
01120
01130
01140
01\50
01\60
01110

8
DORG
os
os
os
DC
OC
DC
os
DS
os
os
os
os
os
os
os
os
os
os
os
os
os
OS
os
OS
os
OS
os
os
OEIliO

NOllM36

uas
FAC
FNH
FNHMI
'''SAPF
9SPF
MF
PIOV2
rWOPI
I"SA
PI
lERO
98MF
q1"F

SAVE
lERHC
F

I,SPF"I
EI
ERROR
FH
FIIilISH
ONEl

~Rou_

PIg. 3

"
,',

,671

00780 UNOfLO TFM

U8
A8

CHAR GIlIATIR TMAN OR IQUAL TO ZERO
007. . KZ 00"4 02"'2
AND LISS THAll OR EQUAL TO f
Doni 26 00000 024.0
,0
007.0 M9 00270 00000
007'7
007.1 15 00099 00000
SET 51'N
SEl IIIIOR fl, LOSS Of SlGI'IIFIClIICE
Dalla 16 02615 00071
,10, IN feOS OR 'SIN, fAt· lERO
00822 16 02492 0001111
oon4 26 02490 021'1
DOl ... 49 OJ676 00000
00853
,611, LEfT SHIfT ONce 00854 31 OHIL OHOQ
SET LAST OIGIl TO ZEIIO.
00166 15 02491 00000
00878 32 OHlL 00000
.1..
,611, TEST LEADING ZERO
00190 43 onOl DUlL
,10, sun OIiE FROM EXPOIIEIIT.
00902 12 02565 000-1
00914 M9 00854 00000
.0
00921
00924 00004
00921 00004
00929 00001
00931 00002
009H 00002
00931 00005
02492 00000
OH13 00000
03158 00000
03298 00000
02854 00000
03413 00000
03163 00000
03103 00000
02515 00000
03lU 00000
02161 DOOOO
03328 00000
03323 00000
02565 00000
03584 00000
02219 00000
03103 00000
02615 00000
03616 00000
01308 00000
03103 00000
03038 00000
00002

,fH
,0

,
,FNH

01

--oIt,

4
4
I
2.01
2.02
5.0002'
,02492
,033U
.033138

.03298
.02854
,03473
.03163
,03103
.02575
.03133
,02161
,03328
,03323
.02565
,03584
.02219
.03103
.02615
,03676

.03308
.03803
.030,)8

j!l1

FORTRAN Relocatllble Slne and
Coslne Routine
Paqe 4

SYM80l TABLE
LERFAC 03584
ISPFMI 03303
A8
00928R
ERROR 03616
FH
03308
MF
03413
SAVE 02565
97MF
OH23

UNOFLO
I"SAPF
8RO
E9
FNH
OIliEZ
SUM
98MF

00822R
03298
00210R
00198R
03313
03038
0,0534R
03328

POlEXP
FIIiISH
ClF
F
FIIH"I
OVER
TWOPI

00130R
03803
oouaR
02219
03351
00462R
03\03

IIORM12
lA8
DONE
FAC
FSIII
PI
ZERO

00190R
00924R
00662R
02492
00042R
D3IH

02167

00154R
00931R
02615
00006R
02515
'IDV2 03163
9SPF 02854

IIOR"36
UBS
EI
FCDS

' 'SA

00010 •••••
00020·· ••
000'0
000~0

F A I~

anO'iO
00060
00010
00080
OOoqO
00100
00110

OOllO IESI
00130
out<40
OOl~O

OOlhO
00110

OOlAO
00100
00200
00210
00220
00210
00240
002~0

002bO
00210
OO}RO AlPH
n02QO

00300
00310
00320

OOHO
nO~40

00,:}50
003bO

00170
00380
OO)qO

00400

00410
00420
00430
00440

00450

1620 FOATRA~ 11-0
RElOCAIABLE FLOATI~G ARCTANGE~T ROUTINE
ARCIANIXI • X - IX"HIl > Ix"S)/S - IX"lll1 > •••
DSA
FUN
00004 00005 -0006
IF
FAC
.FATN-I
.111. LOAD ARGUMENT
00006 20 02492 OOOO~
,.
·-1)
.02
,DID
00018 J2 00005 000-2
IF
FAC-2
•• -25
,III
00010 20 OHqO OOOO~
GO
.'20
,FNH
.011. IS ARG ZERO
00042 M3 00062 OHll
R
ZERFAC
YES
000S4 49 015h 00000
DORf. ·-4
00061
TEST+Il
•
.08.
RESEI INOICATORS 00062 J6 ooon 0-000
BNF
TEST>24
.FAC-2
.0.
8R IF ARG NEGATIVE
00014 M4 00 II 0 02490
SF
.0,
SET INOICATOR. ARG NEG
00086 L2 00095 00000
CF
FAC-l
•
ARG • ABS ARG
00098 H 02490 00000
CM
FAC
.00
,10,
IS CHAR OF ARG
OOliO 14 02492 000-0
RH
TESTl+20 •
.0,
POS IT I VE
00121 M6 00894 01100
BE
AlPH+12
,0,
E QUAL ZERO
00134 M6 00290 01200
M
*.35
NEGATIVE
00146 Kl 00181 02219
•F
SM
98
,05
.10.
FINO-.5IF-1I
00158 12 00098 000-5
Q1
~F
.50
010
00110 32
OOONO
IF
,a
.91
00182 K6 00205 OOOIJ7
eM
IF CHAR UF ARC IS
00194 14 0.492 -0000
8L
Eon
,0.
LESS THAN -.5IF-II.BR
00206 M7 OIIIB 01)00
TFM
ALIlH-l
,FAC-2
,01.
SET UP ADJUST MANTISSA
00218 J6 00211 -2<490
A
AL PH-l
ODllD KI 00211 02492
• FAt
IF
,9SPF-l
FNH"l
,6
00242 26 OH5Q 02B53
CF
FNH
,6
00254 H OH1L 00000
TF
FAC-2
••
ADJUST MANTISSA 00266 26 02490 00000
5F
FNH
.6
00218 32 OHIL 00000
eM
FH
,610. COMPARE HI ORO MANTISSA DIGITS
00290 14 0))00 aDaK'
• + L 32
BL
TO 29. IF LESS IHAN 2q 8R
00)02 M7 004)4 01300
IF
91
.9SPF-l
00314 26 00097 02B53
F AC-2
.06
010.
FINO 1.6 TIMES MANTISS,
00)26 13 02490 000-6
TOM
'l8MF
,611
00)38 15 0)32Q OOOOJ
01
S
FAC-2
,S I x
FINO MANTISSA MINUS .6. PUT IN FAC
00)50 22 02490 03219
IF
~E TA
,99
STORE 1.6 MANTISSA IN BETA
00)6. 26 0260) 00099
TF
19
.lERO-42
00)14 26 00079 02125
'l8MF
,FAC-2
LO
FINO IFAC-.61111.6 X MANTISSA)
00]86 28 OH2Q 024qO
HNO
o
.8ETA
,6
00)98 2q 0)))0 0260)
TF
FAC-2
,91HF
.11.
PUT QUOTIENT IN FAC
00' 10 26 02.90 OH2L
SF
TESf+ll
,a.
SET INDICATOR. HI ORO GREATER 29
00422 L2 000q7 00000
TF
79
.IERO-4<4
00434 26 00079 02723
FAC-2
,FAC-Z
SQUARE FAC MANTISSA
00446 23 02490 02490
IF
SAVE
.PDT
,11, STORE IN SAVE
0045B 26 02565 Oj3)L
TF
BETA
.9SPF
8ETA IS F'l ZEROS
00470 26 0260) 02854

FORTRAN Relocatablc ArctanlJcnt
Routine
Page 1

I'.

..

·

.0.

ooon

,0.

.0.

"

TF

ATNl+35

.2FMl

,a,
,0,

00'60

TF

AlPH+ll

,FMl

00470 ATNI
00480
00490
00500

TF

99

.IERO-47

TFM
OM
5

98MF
98MF

,

96

.BETA

00510

TF

BE fA

,96

001)20
00530

TF

19
BETA

.ZERO-It)
• SAVE

,10

.610
.6,

SET DIVISOR EQUAL 2F-l. oe""oTE AS W
00482 K6 00541 0]429
SET COUNTER EQUAL F-l
00494 K6 00289 03625
00506 26 00099 02120
00518 16 0))20 OOOJO
DIVIDE 10/"
005)0 Iq 0332Q 00000
SUBTRACT BETA FROM QUOTIENT
005'2 22 00096 0260}
REPLACE BETA BY DIFFERENCE

....,

FORTRAN Relocatable Arctangent
Routine
Page 2

00554 26 02603 00096

00540

TF

BE TA

,PDT

00550
00560

SM
SM

ATNl+35
ALPH+ 11

, 02
• 01

00570

BNZ
TF

ATNI
SAVE

.ONEZ+2.

S
IF

00580

001)90

.BE TA

00620

BNF

SAVE
79
SAVE
TES T2

00b30

8NN

HST2-12 •

00640
00650

SF
A

PDT
PDT

00660 IEST2

BNF

00670
006BO

SF
A

00600
00610

M

POT
PDT

TFM

SAVE

00700

TF

FAC

BO
TR

007JO

TOM

00140

SM
B
OORG
SF
TF
TO
B
OORG
SF

007S0
00160
00710
00180
00190 TESTI
00800
00810
00820

008)0
00840
00850

TF
TF

o

.TEST+ll

·

,TAN6

.TEST+10

00690

00710
00720

• ZERO-It2
.FAC-Z

TESTl-24
FNHMI
FAt
SAVE

·

,PIO'll2

.01

.FNHMI
.FNH
,0
• 01

.-48

·-4

FNHMI
FAC-2
99
ENOO

·

,FAC-l
,TE 51+9

.-4

TEST+l0

99
PDf
PDT

.1ERO-2)
.ONEl
,FAC-2

00566 26 00079 02724
AETA EQUALS BETA TIMES
00578 2) 0260) 02565
,11 ,
SQUARE OF MANT I 5SA
00590 26 02603 03))L
,010, " EQUALS "-2
00602 J2 00541 000-2
.010 • REDUCE COUNTER BY ONE
00614 J2 0028q 000-1
IS COUNTER lERO
00626 Ml 00506 01200
YES. SAVE IS ONE IF.2 DIGITS I
006)ij 26 02565 03040
00650 22 02565 0260)
FINO 1 - BETA
00662 26 00019 02725
00674 23 02565 024qO
TEST INDICATOR. HI ORO GREATER 29
,Ol.
00686 MM 00734 OOOql
I S PRODUCT NEGAT IVE
00698 M6 00122 01100
YES. SET SIGN
. 00710 )2 O)))L 00000
ADD ARCTAN OF .6 TO PRODUCT
00722 21 0)3)L 03248
,Ol.
TEST INDICATOR, CHAR POSITIVE

.0.

,D.

.6.

00734 MM 00710 00096

SET SIGN
00746 32 O))3L
SUB PROOUC T FROM PI OV 2
00758 21 03)3L
,lOt SET CHARACTERISTIC OF RESULT
00770 16 0.565
PUT RESULT IN FAC
00782 26 014O
·'-'4

SAYE
FAt-2
TEST!
.-4
99
ENOO+12
'-4

.00
."IOY4

·~10

,TfS 1+ L,O

IIISAPF

• F ~t-2

FAC-Z

.PIDY2-1,

FAC

.MF

• TEST.9

BHH

-+72

OILIO

CF

JMSA+L

01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
012'W
01260
01270
01280

TDM
TF
A
S
TFM
8
DORG
OS

IMS4.
,IM,SAPf
··35
,FA.C
-+23
FAC-2
SAVE
tOl
TESTl-12
'-4
.021t92
.03313
.03584
.02219
.03358
,02'854
.03)08
',OJ]28
.03219
,02-60:]

F~H

l E RF At DS

F
FNHM 1

9SPF
FH

[}S

os
os

os

98HF

os

SIX

OS
DS
aS

SETA

OIHO lERO
01300 HNO
01110 nMF
01320 SAVE
OlllO POT
0\340 2FMI
01350 FMI
01360 ONEl

01370
01380
01390
01400
OHIO
0142'0
DIHO

os

TA~6

·

·

.02767
.03338
.03323
.0.2565
.03333
• 03429

ns

DS
OS
DS
DS
OS
OS

,03625
.03038

OS
PIDV2 DS
ENOO
DS
PIOV4 DS
I M$APF DS
OF
OS
IMSA
DS
Ollt40
DENO

00.42 26 02490 OlUL
009S4 II] 00'" 0]]5Q
.011. NOI""LIlE
.6
00966 J2 OHll 00000
.10
00971 12 02492 000-1
00990 ,It 01022 00000
.0
00991
00991 lI> 02490 02419
.10
01010 12 02492 000-2
IR IIEw CHAR IIEG" lYE
01022 "7 0101>6 OUOO
,0,
IR HEW CHAR ZERO 010]4 "6 00290 01200
IIEW, CHU POSITIYE
01046 32 02492 00000
.0
0105' M9 00J46 00000
01065
.10
01066 16 02565 000-0
01078 26 02490 03\91
01090 M9 00874 00000
.0
01097
,I
01098 2H 00099 00095
01110 "9 03180 00000
01111
.,01, reST INDICATOR. CHAR POS n I VE
01118 MM 01098 00096
CHU "lEG. STORE FAC MAHTt SSA
.6.
01130 26 0329Q 02490
FAt MAHTISSA IS F+l 01 GIT P IOY2
011"2 26 02"90 03162
COMPARE CHAR TO -F
0115" 210 02"92 01H3
BR I F CHAR NOT GREATER. EQUAL -F
.0.
01166 "7 01238 01100
SUB OLD FAC MANTISSA FROM PIOV2
01118 H 02576 00000
,11
01190 15 02575 0000.0
01202 Kb 01231 03298
,0
0121" Kl 01231 02"92
01226 22 02"90 00000
, LO, SET CHAR
01238 16 02565 000-1
IIORM AHD RETURN 01250 "9 00862 00000
.0.
01251
02"92 00000
on13 00000
03584 00000
02219 00000
03358 00000
02854 00000
03308 00000
03328 00000
03219 00000
02603 00000
02761 00000
03338 00000
03323 00000
02565 00000
03133 00000
Ollt29 00000
03625 00000
03038 00000

fIo_e
Paqe:i

.0.

.02

01100

FAt

PUT IN "C-2

.03248
• 03163
,03768
.03191
.03298
.034 13
.02515

03248
03163
03768
03191
03298
03473
02575
00001

00000
00000
00000
00000
00000
00000
00000

797
FORTRAN Relocatable Arctan<;1ent
Routine
Paqe 4

SYMBOl TABLE
lERFAC 03584
E"Ino 03168
FH
03308
IMSA 02575
PIOV4 03191
TEST! 00814R
97"F 03323

l"'SAPF Oll98
ECID
011l8R
FMl
036<15
MF
03"11
SAVE 0'2'65
TEST2 00714R
98MF 03328

UPH
F
FHH
OHU
SIX
ZERO

00218R
02219
0)]13
010]'
03219
02167

ATHI
fAC
FHH"1
POT
U!!6
2FMl

00506R
02492
0]358
03133
012lt8
03429

BETA

02603
00006R
03338
PIDY2 03163
TEST a0086R
9SPF 02154
FUN

liND

798

.10010· •• ••

n0020
00010 llORT

1620 FORTRAN 11-0
OSA
SO_T
••
SORl-1
,~o

RElOCATA8lF SOUAOE ROOT ROUTINE
00004 OOOO~ -0006
.0610,HAlF

THE

eXPONENT

FORTRAN Relocatable ,;quare
RDot RDutine
Pago 1

00006 Jl OOOON OOONO
00040

SQAT - 1

,2

,010,

!)OO~O

TF

FA(-l

,SORT-I

SQl

,FNH

noOQO SIJ 1

Hfl
R
£10RG
rOM

fNHfIIIl

.0

,1(l'lOO

TOM

SUE':.I

,2

,0,

,FA(-l

,0,

nOORO

il{J
flO

IfRFAe
.-~

I 10

ADDRESS Of MA~TISS.

00018 J2 OOOO~ 000-2
,III, "aVE "ANTISSA TO FAC-2
00010 20 OH90 000 ON
,Oil, TEST FOR IfRO
00042 "1 00062 OBIl
RESULT 15 ZERO
OOO~4 49 03~84 00000
00061
,btl, 1fT NEXT HIGH OROER OIGIT TO LERO
00062 I~ 03350 0000-

nnol'lo
00070

GET

llO

SE:'

EXIT

TO BRANCH BACK

00014 J5 00415 00002
TEST FOR SIGN
00086"4 00134 02490
Rf"OIiE "INUS SIGN
00008 B 02400 00000

00 110

TO""

<:"Uf X+ 1

,0

,0,

SFf

EXIT

00140

1 FM

f I

,676

,9,

SET

tRROR MESSAGE' F6

TO ERROR ROUTINE

00110 J5 0041S 00009
OOlll 16 02bl5 0001b

()OI'iO

tID

\U ~

,0,

BRANCH

0011'10

IF

')02+42

,0,

SET

00110
00lRO
OOlqO
OOJOO

RNf-

Si,JZ

502+12

,0,

~F

'17

TflO

F AC
AO

,97
,9SPf-

Tr

LOOP+ 11:1

.91M2F

fF

LOOP+ 102

,91M2F

Tf

FAC-2

,ONEl+L

002hO

H
lonp+ 108
flORG .-4
AM
LOOP.2)

,2

I\~N

lOOP

00110

(M

LUUP+?3

001?O

RNl

SOF.x-48
lUOP+lB
,lOOP+})
lOOP+18
.+18"

Donn

II

CF

0011-10

AM
SF

OOHO

AM

Sf'

ADDRESS

,0,

SET

ADDRESS

SFT

ADDRESS

TO 91-2F
OOZ18
TO FNH-I

~b

00292

03363

00230 1<6 00291 033';8
TO q7-7F
00242 Kb 00316 0336)

SET RESlJl T '0 100 .....
002'>4 26 02490 03039
00766 M9 00182 00000

00273

OOHH)

001')0

OOQqq

00110 12 000Q7 00000

,a,

OO)Q()

00140

001')8 Mot, 00182

EXPONENT

,0,

,a,

OU240

O(}l,>O

lllOP

SIGN

OOiH] 26 024Q2 00091
(lfM~ PRODUCT AREA
00194 }B 00080 028'14
MOVE MANIISSA INTO (H-F OR q8-F
00206 26 OODOU 024'lO

OllllO

DOlAn

FUR

STORE

,FAC-2

OOl1a

TfSf

SFT 51GN

U()210
00270

IF E"PONFNT 000

001 J4 '0 00482 oooqa
ADDRESS TO 97-F
0014b Kb 00212 03313

,FAC-2

,0610,AOO 2 TO RESULT
00214 Jl 0029P 000-2
SUBTRACT RFSUl r FROM MANTISSA
QOlA6 22 00000 00000
.0,
CONTINUE lOOP IF NnT MINUS
00298 Mb 00214 01300
,01,
COMPARE ~1TH TERMINAL AODRESS
00310 J4 00297 -2490
,0,
GO TD f"XI T IF EQUAt
00122 M6 00426 01300
,01611,AOD RACK
00314 KJ 0029k a029P
,Ob,
CLEAR FLAG
00346 lJ 0029k 00000
,010, ADO 1 TO ADDRESS OOV:;8 Jl 00116 000-1
SET FLAG ON MANTISSA ONE PLACE OVER

00370 12 OOODO 00000
LOOP+18

,02

,010,

ADD 1

TO MANTISSA

on 18?

00 l80

AM

lOOP.2}

,01

00

SM

llJOP+23

.9

~qO

0040Q
oa4l0
00420

,OlD,

lU[)P+12

80

19SPF

004}0
00440
004')0

MM

FAC-2

TF

FAC-l

,50
,97

')F

FNH

00460 500:

BB

E!-l.ROR

OU410
n0480 ,}(')3
00490

OORG .-4
AM
qq
CF
FNH

, so

,b,

Clf-AR HIGH ORDER FLAG
00494

OOSOO

, 0,

.98MF

OO'JIO

BNN

00')20
00530
00')40 F AC
001j50 FNt-l
00')60 IfRFAC
00510 FNHML
OO,)SO F I
00')90 q1MF
OOhOO qSPF
OOb I 0 97M2F
00620 ONEl
00610 ERROR
00h40 qafl4F
OOhSO

ItRFAC 03~8"
FNHMI 033'.58

SO I

000b2R

91f1112F

03363

SQ2+ l2

,a,

502

,a,

DORG .-4

as
os

,0249}
,0131J
,03584

OS
OS

.0261

OS

OOONO
00091
00000
00000

OOONO

IN FAC
33 03311

00000

03313 00000
031)84 00000
00000
02615 00000
03323 00000
02854 00000
03363 00000
03038 00000
03b7b 00000
03328 00000
00001

~

,0'3038

,0)328
1

"

02H54

033~8

.03616

lOOP
502
Q8"F

000-1
000-9
00000

TO 98-F

I03~21

OS

lcOHTRAN HelocatabV, ';quan,
Root Poutine
PacY' ~;

001;)06 K6 00212 03328
'HUNCH IF Nor NEGATIVE
001)18 M6 00182 01300
GO TO SET SIGN IF NEGATIVE
00530 M9 00110 00000
00S17
02492 00000

.028S4
,03363

05
05
05
OE NO

SET ADORE S5

,033')8

05
05

000-2

1 TO RESULT

ADD
00394 JI 00291
,0610,SUATRACT q FROM RfSUI.T
00406 J2 002Qp
,a,
GO TO lOOP
00418 f1119 00286
0042')
CLEAR PROLJU(T AREA
00426 28 oooao
HAl F THE RFSULT
00418 13 024«}O
,10.
c,rUR[ RESULT
0041j0 26 024qO
,0,
<)FT FLAG IN t-ll(,H OROER OIGIT
00462 32 0'3 311
GO BACK OR ERROR TyPE-UUr
00474 1t2 03616
004RI
,10,
ADD ':i TO PROOUCT 00482 1 ~ 00099

UORG .-4
lO

ADD

J 1 00292

SYMROl

TASlE

0261 '5

ERROR

03676

00214R

ONEZ

03018

00170R
03328

503

00~82'

FAC
SOE>
9SPF

FNH

03113

00414R

SORT

0285~

9714F

00006'
03323

02~q2

I:
'1 J'
800

FOR'rl'l!AN ReI.ocatabl.e Absolute
Value Routine

ftl!tfi'lUIL'iIUfilotE YALUE ItOUTIIIIE

011.0. 011... -0006

OOaol

,l'li

,ole

''U1
,0

~ ~2\9t

OOOUM

~1

0001. J2 oOilOJ 000-2
OOO~'O all 021090 OOOON

'F'~O'Tll$

~2 M 000.11 02~'1

POINT NUNIER

0005" IJ 02....0 00000
'00066 ~2 00000 00000
i,

0006"
FtlEO PIItilit NUII'iI!iI

'0006' U OA'»2 00000
000.0 ~2 '00lI'00 '00000
00082
On.20/l01l0

00001

Aas

'OOO'O'IioR

1/,io

00010 ••••·•

00020

OOO~O

TFt,

FlN
FAC

OS'A

FLi'1

OOO~O

ggg~

'Sf

99

'8

OVFlbw

000'110
000.0

'~IiG".-"
'f~ 'GOAL'''" "itt/tiaoll"2

00100
00110

~8"F ,~.-:+lia
'fFII 'EI

001'20
'1)111'30
OlYt40

fflo

:'GO;'~+iI'll

FAC-2

CF

T""

,;i'Ac-"'2
,.'i1P3
"iIi'~&
"

cl'llftil..~ ';;';S'P'F'.2

OOISO
00160

"tF

leF

'c01l""u
FIIH

'*i'F'A·C

00170

'TOM

' '"""1

.1
", f5

licHeo

tM

'~H

'00190

'tNl

·'+44

.00200
'oUi10

'A
IN

'''AC~'2

c01l'li":"

OOhO

;'31

• TWOl

Dono
00210

Dono

002.0
00]00
OOUO

'n

'oouo
oono

'·001,,'0 COUll

"HUO

oono
,'oojlO

:::::

~oo.cio

"0II4tO

"00.20

'IF
'0

,1'
fF

'~

!i·e

"al.

saVE

~~. "''

A

".F

1 ·-'."_TI$5&

,6

''I'm

'91'.

tF

"FfN'o
, Ii tMO

"At

'M

"t-',

00226 ·26·:01603"1I11I1J
'Doni 22'"01603",02490
I"A''''' II . .: MaNT
':00250 '260009'1'::O~lo!l7
~
"00Z6Z 26' 1f112L:0260J
0027"29 'DH2lI"OZ"O
'n
~. I,ll,.
'SltlUIN',",C
'Ooz. . '26 .oMtZ'~On20
FtNO' FAe ..,
·:0029.·, 26000t9':OIUI
'003'10 ll'iOI;tf'I'"IM9Z
:UlJItt.IN,,·ME
'lJDi22·2 •.,0H6S':1)3ilL
"F'le ·f'f~.S
:00'''', ZI'o:n'2'102.'Z
.. SET"couiltb.l:ftllAL "F"'l

·'.EfA

00260

,I),

,.0,
'~'FiC~2

oo~io

ciono

0000" 00005 -0006
'00006 00 02"92 'OOOON
,00018 .3 00062 DUll
','9,
''/E'S. E'RR F'2. 'LOG lERO
00031)16 0261'500012
I',
,SeCT 'Scl1ltl
'000"2 32 00099 00000
·..AC '1·$ 'Mt!GA"iI'Y·E 'ALL tiMes
""
0005" "9 03512 00000
00061
;67, iSfT't/P"NO·f1I1!'TYl'E
00062 J6 Dono ~310D
'i:s 'A NEG"lIVE
'00074M" 00U2 02440
;~,
YES, fEII'R "Fl, . lOG -A
00086 1602615 00013
"fI't, '~Frli" 'fltR '1''I'PE '00098 46 oono -]596
'A EQUAlS iPOsITlVE •
00110 '13 02"0 '00000
:,07<, 'SE', tJP'C'OlHl'lNT . fllUAl tuo
,00122 '46·005" "2n6
'1'&,
%'1'1II1E'tI+AR
,001'" 'K6,IJO'61 "OZ+92
... , '" fMD 'I '. 'A 'tWihSlA
00146 '3]' on 1 L "00000
';61'1
00158 15' 0:""0, oooOJ
','61'0. ',ClIMP'AIIE 'fliD'HiGH ORDU, DIGITS
00110 14 0311L 000J5
'TO '1.5.IF,,·~'&tS 'f"AM, 'MO '1111
,OOiU'M6 00126·0UOO
iOOI9"·11 '02+'90'1026'0
·'i'oliO. l"'~UST ,c(j"~l'''IiT 'TO LN 2. 4,,011 '"
,DOZ06 JI0056.· OOOll
,00111 "Itt OOISl,·,OOIDO
00't25

I.

',n:l, 'til>&o 'AlUiUMENT
"du, 'I'S :ic'li'o

'10
"'~'"
TFII PI

000"0

'FORTIlAN ReloCt.W:ile'LN,Routine
with Floa.ting Polrtt
Page 1

riOR flWI 'lI":b

,I'"''

IQO'M626OZ"'1'::oun
2F"'1

to. :In 'DIUS.""IQUAL· TO
-alta

...

~

•

"'ff'A"',QU'U

"i'HWtJii."h ' .. ,
v~fiI

'!'i~IO

;':"'.0"10"

~k7

::~'

'b'tll'l'OI'" IY' "

0015.116' 004'17"01111
"+Z ZlIlDS
'OIIno U,OHO):oaen

'tOil' 2.'::0....·/'on..
700'.'" t6 , ••:taQ.~OOOJO

.'...cw.·t.:<~,tioooo

'&~_n"')TO"'.t

•

'U4(1

:u ".....Jll'OOO.l

',,"'0, Ut''''''''"''.'

:_2:'2J!JoM'l:"HS

,·'1

I

IF

00410

,ll,

,97I1F

8fTA

anA EQUALS anA.SAVE
OO~S~

OO~~O
OO~SO

SII
SII

eOUNt71
11151-4

OO~I>O

8NZ

00410
00480

TF

COUN-)I>
19

II

00490

.FAe

TF

FAC
FlC
FAC

IF

,0,

BfTA

SF
S
CUR~

,

nllF

00510

00~30

.lO,

.lERO-39
,FAe

00500

nO~20

,010, P EQUALS '-2

.OZ
,01

..

•••

,Q7MF

..

tI.

·

qz

,11 ,

UO~40

L'fIO

.9SPF-l
• CORN-13

OO~~O

~9

.FAe

AM

91

.00

~l

GOAl+20

TFM
IF
er
TO
80
IR

SAVE
FAC_ 3
FAC-3

.03
.99

FAC+4

TO"

FAt.]

,RfC.MK
,FNH
.FH
.0

00560
OOHO
00'80
DOHO
00.00
00.10
00.20
00.30
00640
OO&~O

·.b8
F~H

IF
R
OORG
IfL
OOlltO
B
001~0
OORG
007.0 FAt
OS
00110 FNH
DS
00180 E I
OS
00190 aVfLOw OS
00800 ENDO
OS
00810 ERROR
os
00820 9SPF
OS
00830 FNHMI
US
00840 8E TA
os
008~0 rWOl
os
008&0 !ERO
os
00810 H"F
os
00880 98MF
os
00890 FMI
os
00900 IMSA
OS
00910 SAVE
os
00920 2FMI
os
00100 GOAL
00110
00120
OOHO

00910 LNIO
00940 RECM.
00950 FH
00960 FLlER
00010

,10,

·

SF
F~H
SM
SAVE
R
·-bO
OORG '-4
FAC.L
TO

00 •• 0
00.10
00&80
00690

.10,
.0

.01

..

.011

,611

••,10.
.0

,RfCP4K

FAe
ENOO_12
·-4
FAC

.SAVE

.HLER

GOAL+12

.0

'-4

,02492
.03313

,02615
.03572

,03688
,03596
,0281)4
,033'i8
,01603

,03073
,02767
.03323
.03328
.03783
.02H5
,025.5
.03581

os
OS
OS
OS
OENo

OO~I>I>

ZI> OZI>03 03J2L
J2 00411 000-2

REOueE eOUNTfR BY ONE
00~1' 12 02511
IS eOUNTER lERO 00~90 111 00382
YES
nOS02 21> 00019
IIUL TI PLY BEU 8Y FAe
00514 23 021>03
ADD FAC TO PROOUe T
00521> 21 0332L
SET eO~STANT IN Fit
00538 21> 02492
NEGATE CONS UNT
00550 32 02492
SU8 TRAC I PRODUC I FROM CONSTANT
005&2 22 02492
00514 2b 00092
MULr !PLY CHU 8Y Lit 10
00581> 2L 02980
100 FAt TO PRODUCT
00598 21 00099
/fRO CHECK
0'0610 II 00091
00612 116 00782
SET UP CHAR
00634 II> OZ51>5
~ORIIALIZE
00646 Z6 02495
001>58 33 02495
SET RECORD MaRk 00.10 25 02496
00682 113 00750
00694 31 OHIL
00706 15 02495
00718 32 033IL
ADJUS I CHAR
00730 12 02565
00142 M9 00.82
00149
REPLACE RECORD MARK
00150 25 02493
SET CHAR IN FAC 00762 2. -02492
0071~ 49 03700
00181
00182 06 02492
00194 119 00714
00801
02492 00000
01313 00000
02.15 00000
03512 00000
03688 00000
0159& 00000
0?854 00000
03358 onooo
02603 00000
alan 00000
02161 00000
03323 00000
03328 00000
OH83 00000
02515 00000
025&5 00000
03'81 00000

02980
02403
03308
037.0
00001

.02980
,02403

,OJ308
,03760

000-1
01200
02128
02492
02492
00000
00000
0332L
02853
005U
OZ492
000-0
01200
000-3
00099
00000
02403
0331L
OHOO
00000
00000
000-1
00000

02403
02565
00000
037&0
00000

03512
03688
031&0
0251~

02161

BETA

02603

ER.ROR 0]')96

FMI
LNIO
2FMI

03781
02980
03581

CORN
FAC
FNH
RECIIK
9SPF

00514R
02".92

03313
02403
02854

COUN
FH

003~6R

F~HMI

n3308
03358

SAVE
O1MF

03323

02~65

EI
FLN
GOAL
TWOZ
98"F

8U3
FORTRAN Relocatable LN Routine
with Floating Point
Page 3

00000
00000
00000
00000

SY"BOL TABLE
aVFLDW
ENOD
FLIER
I"SA
lERD

FORTFAN Rc:locatable LII Routine
with Floating Point
Page 2

02615
OOOObA
007.2~

03073
0)328

00010
00020
00010 ,F·.HP
00040
OOO~O

00000
00070
00080
00090
00100
\0 110

,):1120
00110
00140
00150
ON60
00170
00180
00190
00200
00210
00220
00210
00240
00250
00260
00210
00280
00290
00100
00310
00120
OOHO
OOHO
00350
00160
00370
00380 CALC
00390
00400
00410
00420
00430
00440
00450
00460

1620 .F·OUIlA!! 11-0

RELot,UaLE flO,UNG EXPONENTIAL ROUTINE
00004 OODO~ -0006
T.F.lFAC
• FEX P-1
00006 00 02492 OOOON
.1110 lOAD ARGUMEIH
·Tn lIH,
.OHEl>.6
00018 06 02603 01044
,lt~
•• 20
,FN_H
000)0 M) 00050 O)31L
.011. ZERO CHECK
8
GOSAtK-H.
00042 M9 00942 00000
.0
OQRG 1t-4
00049
TO
MU-I
• FAC-2
00050 2~ 036)1 02<190
srOR.E SIGN
CF
F\C-?
00062 )) 02490 00000
TF
19
.lfRO-42
CLEAR PRODUCT AREA
00074 26 00079 0212~
·M
F4C-2
~UL T I PLY lIY LOGE 00086 23 02490 0)010
.l.OGE
.HC
STORE CHAR
00098 2602~61 02492
U
S'V£+2
TO
FACH
.FACtl
..
MOVE RECORD ~ARK 00110 25 02496 0249)
Tf
FAC»
.102MF
.11.
MOVE F+~ DIGITS OF PRODUCT
00122 26 02495 03Hl
,F,.H
80
'+,48
00134 M) 00182 0331L
.011. NORMALIZE
TR
fNH
,FH
00146 )1 OHIL 03300
.611
U
SAVE.2
.01
0015B 12 02567 000-1
.1-0
Sf
FNH
.1>
00170 32 OHll 00000
C
$AVE+2
.MF
IS CHAR lESS THAN. EQUAL TO -F
00182 2" 02561 03666
BNH
GD-B,ACK-24,
YES- RESULT IS FLT PT ONE
.0.
00194 Ml 00942 01100
TURN OFF OVfL IND
.0.
00206 M6 00218 01400
All
SAVE+2
.00
.10, I S CHAR ZERO
00218 11 02567 000-0
CALC
BE
YES
002)0 M6 00)94 01200
.0.
C·Ale +b8
CHAR LESS THAN ZERO
Bl
.0.
00242 Ml 00462 01300
CM
SAVE+2
.02
.10.
CHAR POSITIve
00254 14 02567 000-2
BH
EI2
CHAR GREATER THAN 2. ERROR
.0.
00266 M6 00986 01100
Bl
• "44
.0.
CHAR lESS THAN 2 00218 Ml 00322 01300
A
BE TA
00290 21 0260) 0330Q
.FH
.11.
CHAR IS 2
TR
FNHMI
.FH
.611. ADJUST MANTISSA 00302 31 0)35Q 0330Q
CAlC-24
B
00314 ~9 00370 00000
.0
OORG 0-4
00)21
TOM
FNHMI
.611. CHAR IS I
00322 15 0335Q 0000.0
FNH
CF
.6.
AOJU5 T MANT 15SA 00334 33 OHll 00000
,FNH
A
BETA
00)46 21 02603 0331l
.II
FNH
TR
.FH
,611
00358 31 0331l 03)OQ
8V
EI2
OV ON CHAR ADJUST, ERROR
.0.
00310 M6 00986 01400
FNH
.610
00382 32 033ll 000-0
Sf
0-1
TFM
.00
.010. SET COUNTER EQUAL TO ZERO
00394 J6 0039) 000-0
FH
COl
.610. ARE HIGH ORDER DIGITS OF MANTISSA
.34
00406 14 OHOQ 00014
Bl
GORO
lESS THAN 34. IF YES GO TO GORO
00418 M7 00534 01300
SM
FH
.34
.610. SUB )4 FROM HIGH ORO DIGITS
00430 12 0330Q 00014
AM
CAlC-I
.01
.010. A~JUST COUNTER
00442 JI 00)93 000-1
8
CAlC_12
.0
00",,54 M9 00406 00000
DORC .-4
00461
, FAC
TFM ."59
.01.
ADJUST MANTISSA FOR CAse WHEN
00462 J6 00521 -2492
,SAve+z
A
-+41
CHAR lESS THAN ZERO, GREATER THAN
.0.

OU

FE~P

FORTRAN Relocatable Floating
Exponential. Routine with Floating
Pqlnt
Page 1

·

·

·
·

.0.

8US
FORTRAN Relocatable Floating
~£,{t'ential. RDutlne with Floating

00410
00480
00490
00500
00510 GORO
DQli2a

TF
CF
TF
SF

00530
00540

SF
TF

97MZF
SAVE

00550

TF

FAC+2

TF

FNHMI
FNH
FAC
FNH
19
FAC

,9SPF-l

·
·

,PDT

,POT

00570

A

BETA-2

, SANE

00')80

TF

H

.IERO~18

00590

"

SAVE

,FAC+2

00600
00610
00620 FACT

TF

••

.96Mf

TF"
OM

96MF
97MF

.00

00630

BZ

FAC 7+56

00b40

TF

SAVE

,-91

AM

FAC1+11

.01

8
FACT-60
OORG '-4
CM
CAlC-I

00690
00100

8E

00110

.11.
.010.

.11
,610
.6.

.010.
.0

.00

·

TF

,6,
.11.

.0.

00650
00660
00610
00680

.6

.lERO-20
,LN-lo-l

,Q2

00560

.1>.
.6

.010.
.0.

,lERO,18

BEU,-4

• TEttl4

00120
001)0

Sf
TF

91M2F
BETAe-4

·

00140

SOl

CAlC-I

.01

00150
00760

Dono

S
FAeCh68
OOAG
BNF
G08ACK-l.......'bl

00780

TF

00190

TF

f~8MF

.-It

.11.

.6

.010.
.0
.0.

.ZE'RG-ZI
POT

00800

o

00810

611

.Ht~

00120

00830

TF
SI1.

BETA-6
BETA

00840

8

HNO

00850

*.·20
OORG 0-4

00860

SM

SHA

.ONE~.2

.efTA-4

.6,

.6

.0
.11

.-02

00H4 K I 00521
00486 26 0335Q
00498 33 033ll
00510 26 02492
00522 32 O)Hl
00534 26 00019
MULTIPLY ADJUSTED ARGUMENT
005~6 23 02492
R-Y LNIO
00')58 32 0336l
SET SAVE EQUAL PRODUCT
00510 26 02565
STORE PRODUCT IN FAt
00582 26 02~94
SET DIVISOR EQUAL 2. DENOTE AS l
00594 J6 00671
ADO SAVE TO BETA 00606 21 02601
00618 26 00079
MULTIPLY SAVE BY PRODUCT IN FAC
00630 2) 02565
00642 26 000.9
00654 16 03310
DIVIDE NEW PRODUCT BY l
00666 19 0 n2l
8R IF QUOTIENT IS lHO
00678 HI. 00122
PUT QUOTIENT IN SAVE
00690 26 02565
lIo1CREASE l BY ONE
00702 JI 001>77
00114 " . 00606
00121
QUOTIENT WAS ZERO. IS COUNTER
00122 J4 0039)
ZERO. IF YES SR 00134 M6 00814
INDICATOR NOT LERO
00146 26 00019
MULTIPLY 8ETA 81' 10 TO .)1,
00758 2) 02599
00710 32 OH6L
STORE PRODUCT IN .BETA
00782 26 02599
DECREASE COUNTER 81' ONE
00794 J2 00393
00806 1'19 00134
00813
COUNTER WAS ZERO, WAS ORIGINAL
00814 M4 00942
ARGUMENT NEGU IVE
00826 26 00099
YES •. FIND RECIPROCal
008)8 26 0133l
00850 29 0331Q
00862 .,6 00906
aOlt74 26 02597
MINUS F

02567
02853
00000
00000
00000
02141

Paqe 2

0291.
00000

on3L
0333L
000-2
02565
02729
02~94

03)IQ
000-0
00000
01200
00097
000-1
00000
000-0
01200
02129
0)278
00000
03320
000-1
00000

0)631
02146
0)040
02599
01400
0332L

.10
.0

00881> 12 02603 000-1
008" .,9 0091.8 00000
00905

.10

00906 12 02603 000-2

8U6

/

00110
00110
00190

•• ,4

Ie
SF
TF

.1("-'

'AC-2

00900
TF
OMIO GOUC. TO

FAC
FAC+I

00920
009)0
00940

ERXV+)O
.-4
FAC+I
EI

B
OORG
TO
TF.

El2

009~0

00960
00910
00980
00990
01000
01010
01020
01030
01040
01050
01060
01010
01080
01090
01100
01110
01120
01110
01140
01150
011b0
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
OIHO

'UT RnULT

.lnA
.REC~K

OVflOX
UNflO
OORG .-4
OVFLOX TF
FAC-2
TFM
FAC
8
ERXV 24
OORG .-4
FAC
8ETA
ONEZ
DS
F"H
MU
lERO
LOGE
SAVE
8"F

••
.IEU+I

.1>14

.9.

.MU-l

.0

8

102~F

FH
MF
F"HMI
9SPF
L" 10
q7M2F

PDT
9b"F
q1J1itF
TENH
Q8P4F

HNO
RECMK
EI
ERXV
UNFLO
9SCPF

'"

00.11
00.42 OUOO
009)0 32 OZ60) 00000

.0

lEU

.9SCP'

olD

.99

as
os
os
os
os
os
os
os
os
os
os
os
os

.02492
.02603
.03038
.03313
.03632

DS
DS
DS
DS
DS
DS
DS

.03363
.OH))
,01111

,02767
.03010
.02565
.03343
.03308
.03666
.03358

,02854
.02980

'" FAt 00942 U 024tO DUn
009~4 21> 02~'2 02603

lE'UCE leCORO .AU
00"6
0091.
OO'U
00'16
IN FEXP
Ell F4 DVFL
00.91
01010
01022
01029
010)0
01042
01054
01061
02492
02603
03038
03313
03612
02161
03010
02565
01343
03308
01666
03358
02854
02980
01363

o))n
03318
03323
03278
03328
03338
02403
02615
03162
03466
02795
00001

• 03323
.0321.
.03128
.03138

os
os
os

.0240)
.02615

.03762
,03466

OS

as

,02795

OE"O

FORTRAN Relocatable Floatln~
~!:'i'rentiaJ. Routine with Float g
Page 3

n OZ491 02403
4' 037'1( 00000
25 024. . 02604
16 02615 00014
M4 01030 03tH
49 03466 00000
26 024.0 021"
16 024.2 00019
49 03786 00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
0000000000
00000
00000
00000
00000
00000

SYM80l TA8lE

()VFLOX 01030R
ERXV
FH
LNIO
POT
lERO

G08ACK
EI2
FNH
LOGE
RECN.
102MF

03162
03108
029BO
03133
02767

00966R
00986R
03313
03010
02403
033'03

8ETA
FAC
FNHMI
MF
SAVE
9SCl'F

02603
02492
0))58
03666
02565
02795

CALC
FACT
GDRO
NU
TENH
9SPF

00194R
00666R
00534R
01632
03218
02854

EI
FEXP
HND
ONEZ
UNFLO
96MF

02615
00006R
0333a
03038
03466
03318

S07
I

/,

s~RTRAN R~b?1"1tabll' Subsi'ripting
00010_

0002000030-

u routine

SU8SCRIPTING SUBROUTINE - RElDCAUBLE- FOR ONE. TWO OR
IHREE DIMENSIONAL SUBSCRIPTED VARUBLES
WHERE X-l.2 OR )
LINKAGE
B1M ENTRYX, .... 12"

WI

oatmg

POlIlt

Page 1

OSA BASE,04,Ol.I,D2,J,D3.K,OR/M

OOO~O·

IF 0 ADDR FLAGGED BASE IS FIXED
I F BASE I S FLAGGED ARUY IS FORMAl PAUMETER
IF 01 I S FLAGGED - I/O STMNT
00004 00005 -0006
OOOBO
DSA
ENTR Y 1, ENTRY2. ENTRY]
00009 00005 -0042
00014 00005 -0090
OORG +-9
OOOO~
00090
00006 JO 00336 -03B6
00100 ENTRYl TFM
8RINST+6,Ll
TFM
EXIT-l ,22, 10
00018 J6 00~81 000K2
00110
00120
8
COM
00010 019 00126 00000
8RINsr+6,L2
00042 JD 00336 -0362
00110 ENTRY2 TFM
TFM
EXIT-l.32.l0
eOO54 J6 00481 000L2
001~0
00066 KO 00005 OOO~I
OOI~O
TF
ENTR VI-I. ENTRY2-1
00078 019 00126 00000
00160
COM
8
BRINST+6.L3
00090 JO 00336 -033a
00170 ENTRY} TFM
HOI EXIT-I.Ol.10
00101 J6 00481 000012
OOIBO
TF
ENTRVI-I.ENTRY3-1
00114 KO 00005 00089
00190
SET LENGTH OF FX DR FL
00200TF
X+ll,FP2
00210 COM
00126 K6 00433 03664
e+ItS.ENTRY1-l
00138 MOl 00U6 00005
00220
8"F
SF
COM+I
00150 l2 00121 00000
00210
00240
CF
ENTRVI-I
00162 LJ 00005 00000
00\14 K6 004)) 02221
TF
002~0
x+ 11. K
000'5000060-

00010-

002bO-

00270-

MOVE PARAMETERS TO WORK AREA

00280TR

00290

WKAREA .ENTRY 1-1.11

00186 3J 00000 OOOON

0030000110
00320
00330
00340

0035000360-

CF
BNF
CF
SF
CHECK

OOHO
00380
00390
00400
OOHO
00420 CF INSI
00430
00440 BR I NS I
004~0

aNF
CF
8"F
SF
TOM
CF
S
8
OORG

V+Il
*+36,BASE
BASE
Y·Il
IF I" 110

00198
00210
00222
00234

00000
00004
00000
00000

00146 Mil 00306 00121
00158 l ] 00121 00000

CFINsr.COM'1
COM+I
CF INST+12.01
x+ 11

Y+l.2"

L3 00445
014 00246
] l 00004
l2 00445

SET OP TO SUBTRACT

01
HOlD.HOLD
'-1

00210
00282
00294
00306
00)18
003)0
00331

114 00318 00014
l2 00433 00000
J5 00435 00002
13 00014 00000
KK 00508 00501
49 00000 00000

00138
00350
00362
00374
00)16
00391

23 00034 OOO)A
K6 00~01 000 . .
2] 00024 OOOll
K1 00501 000. .
23 00014 0001l
Kl 00501 00099
Kl 00501 0000'
JJ 00501 -0000
21 000" OOOOM
J5 004n 00001
II 00095 00000

0046000470 L3
00480
00490 L2
00500
OO~IO Ll
00520
DOHa
00540

"

OM~O

A
TOM
SF

00560
00570

TF

"
A

""

Dl,KK,l1
HOLD.99

D2.J,11
HOlD.99

01, 1,11
HOLO,99
HOLD,Ott
HOLD.e-_, ,
9'1,84Sf,1I.
·-11,1, ,
9~

00~10

IIULTI'U IV LENGTH
INn 0' TO ADO

0042Z
00434
00446
00451

SIIS

u..-:::
i

OO~iO
1\1)~q.O

AM
~'\I

,8

ENTlHkl.· ...•
,~Nr~'i I

,O(

"(~:,g

dO~OO ,W,UeA "QU
("!06J(l HOl,Q
:. (l'b 1.0 BHE
fJ()~ iO O.

s.,

o,~

,~.,q

O~

as

'S,.llt
S,lQ

::~,~ 34
5_.• 3Q

001,00 FPl
DOnO K

oS
'rYS
B,S
DS

o,OT,~O

OE':ID ,3

~Do'O

DI

os
DS
os

DObSO I
0'0'660 02
li[)61·0 J
"U6~0 D,l
(Jilb~O

OK

00410 ,JIOOQ05 -0000
,00"8Z"'.9'0000N 00000
,oooao ,00042
00 508 ,000 15
,,0000'> 00005
00,009 ,00005
aOOl4 00005
,'000 19 00005

h.;;6

'),24

FORTRAN Relocatable Subscripting
Subroutine with Floating Point
Raqe'2,

000Z4 '00005
0001<1 :00005

5,(,]"q

,00014 JOOOO,5

,00039 00005
eD },664 ' 00000
,(),2221 00000
,00001

,.':0,l~t>4

,.022.21

SV~Ol T"~lE

ENIl\V3 POO'lOR

IoIKAREA 00000

BRINSI
01
I
l2

OOHOR
00034
00010
OO)62R

dlA>f

.0,4
J

u

,EN:TtRl,Y2 000,,211

OODQ~

0000'1
00029
0033'8R

,co.

,f,XIT
,K

,x

llo,12~R

OCl482R

0221.1
0:0422R

..

OF \NST
02
HOL 0
II

ENTR'(!\ ,00006R
00014
0\
,01664
F~2
00P19
y
004)4R

,

,00'306R
'000'Z4
,00508R
O!]:386R

8U9

OOOlO_

FORTRAN 11-0 OK 10

0002000010 AOR

OSA

ERRET
10ERR
10GT

os
os
os
os

Oq140

IOPT

OS

00150
00\00
00170
00180
ODI~O
00200
00210
00220
00210
00240
00250
0021>0
DOlro
0,Ol80
00290
003,00
OOUO
00120

FAC
DIOODA

10~BC

toRT'

010
IOSK

as
as
"as

os

as

I~O~

FII\IOI~

os

os
os
os
as

FP2 '
FKOOO
PAR'
OS
ERROR OS
EI
os
FIXE NO OS
FLTFN.o 0$
FLOAT .os
DKOA fa os
os
LERO
FIx
OS

REClfl

Os

W

05

N2
I

0$

as

~

• RECORO,FE.TC"i,.SW,O,ORA~ .OIOENO

00004
Q0009
000.14
00019
00024
00029
0,0000
001\6
00520
00565
00816

DORG AOR-4
,11'6

00040
00050
00000
00070
00080
00090
00100
00110
00120
DOllO

lOCAL

F I NO

FORTRAN Reloeatable Disk IIO
With Floating Point
Page 1

WJ.TH FLT HARDWARE

,1)2'0

,565
,Illb

00~54

,554
,blO

00610
00602
00624
00566
00532
02492
03387
03527
016610
03519
03318
0"596
02615
0]680
037]0
04,042
0).319
02700
038$4
022.3
02Z4O
1l223i.

,602

,624

,So6
• ')-32

.2492
,3387
.35'27
«3664

,357'9

,3378
.3596

,2615
,3680
,313-0

.4042
,]379
,Z700
,38~1t

._2241

,21-"·0
.l23.8,

onu

.2213,

00005
00005
00005
00005
00005
00,005

-0012

-03H
-0298
-OZI6
-002"

-ono

00,0,00
00000
00000
00000
00000
00000
00000
00000
00000
OODOO
00000
00000
00000
00000
00000
000110
00000
00000
00000
00000
00000
011000
0000.0
00000
00000
00000
00000
00000
QOOOD
00000

as
as

.2221
,2219

0·2.1:19

IF
H

Nl.TEMP,tNI"
OR~Yl.,O

00000 K6 001~3' 02233
00012 .M. OOlt96 00000

T086tl,9'.I

S£f TOIIII, TO, !lR~NCH

OOl9Q

80

EI/E~.FKOOO-t"

T~ST FQtl;,~V,~N\"ODR"SS

00400
00410
00470 FINO

TFM
8

OSA8lK+,S.AGUN
SWO+12
'.' ,

TDM

F IN-o-IN •.O"

ooHO
00140
001_5000160
00370 1088
00180 ORAV

rD.

02221

a002" J5 OOOU 00009
00036 .3 OO'''6:!U519
a01l4' . JO 00i6~' -0650'
000.0 ." 0Q,22,', BeDDOO

SEt

f 1,1'10 INIUCA.T,OR oil •

00012 15 03527, 00000

,
00430
00440~

BRA,..C,tt' TO

N2 EflRPR ROUTHIE

,

II' CIU IflJ
F 1,1>10-1 .ZERO.~.
1~. f ZEIU). plI,IfEG

OOHO NZCK
00460
00410,

C
8NH 8E2 . "
.,
C 'HNO,1.NZ>,6,.f,

00480
00490, RE TOl

Bit
8

8El

t~UT'£'.

ACORESS AND, TUTI

001lS4 JO 001'0' -0370
00091\ K,It OOOU'02700
00,108 M700"".', onoo

IlDM ....Rf l: AIULNZ

OC),UD H, a!t07J··o·tz38
00132 "6 0&1;'.',0.(,100
00144 49, oOllOmooooo

8111

.-

00500 IUFFAR OS
00510 IEl
81
TF~
00520

DOHO

so

EI.41Z,.,
ERitOR. DOAllK ••

005"0
00550
0051>0_

TFII

on~ 10 •••••

8

-,1201"00

OSAOfR05.ERROR
SEfRIIK

00155 00000
001'1> III> 0011>1
I GilT I'll
00161 I ' 021> 15
III IF CK liAS ENTERED FIIOII 8UFFER 1I0UTlNE
00180 4l 03591>
00192 JI> 00403
00204 119 00354

FORTRAN Relocatable Disk I/O
. with Floating Point
Page 2
01"00
00ll1Z
00241
-3591>
00000

SWO SU8ROUT I .. E
TOM
SW00900,O
TFII e-11,41,lO
A
BUFFA",N ••

00211> JS 01111> 00000
00221 JI> 00217 000111
I HeREIIENT SUF F AR ARIlOW
OOZ~O KI 00155 02240
00252 119 00401> 00000
00610
SWOI
00259
OORG .-~
00620
00259 00001
00630 ICON8
DC
1.9
00264 00005 -0812
00 ... 0
OSA
REfFLT
00269
00650
nORG .+5
00270 JO 00 .. 03 -0270
OSAO TR +5,0 I OE .. O
001>1>0 IOENO
TF"
SfTRMK,FRINQ,.
00282 "L 0035" 00163
80
00670
BRA"CH [F FETCH
0029" K4 00143 02233
00680
C
"I TEMP,~I
8RANCH [F BUFFER EIIP TV
OObQiO
SETR10... t
~E
00306 III> 003510 01200
WR[TE BUFFER TO F [lE
TFM
IORTt·+2~,.
00100
00318 10 00565 -03101
00330 109 00532 -3379
IOPT tO KO"'A,1
OOHO
00342 JI 0007J 000-1
All
00720
F-INO-l.l,610
00)5.. KN 01111> 01162
swo.QOO,OKBUFF.ZOO
00130 SFTRII. TO
TFo
00366 10 00565 -0429
[ORT.[OREF2+11
00740
00378 49 00566 00000
[OGT
00750
B
anRG '-4
00385
00760
00385 00001
OSC
00770 00.
1.1
00390 00005 -0200
OSA
200
00780
],9
00393 00003
00790
DC
00398 00005 -0216
00800 OSAOTR DSA
SWO.O[OEND
00403 00005 -:0270
00404 00001
00110
DC
I,'
8RA .. CH IF FETCH
FETCHI.FRINO. t
008Z0 SWOI
BD
00406 ilL 00670 00163
RECORD
OOB'O··
CLEAR
flAG
ON
ADDRESS OF DATA
00840 IDREF2 Cf
SWO-l. OA fS, 7.
00418 LL 00215 -0953
DECREMENT
WORD
COUNT
SM
~lTEMP.t.lO
,
DonO
00430 J2 00143 000-1
00442
-0 0015N OOZI~
TFL
eUfFAR,SWO-l.61l
00860
CHECK FOR FULL 8UFfER
00870 C.
CII
"'lTFMP,O,lO.
00454 J4 001 .. 3 000-0
00466 M7 OOOIZ 01200
00880
BNZ
ro8B
0041B ilL 00000 00163
8R [F FETCH
00890
80
TOBB-12.FRINO"
TfM
00490 J6 00540 -0532
00900
LINK8+1B.IOPT
TFII
00502 JO 00150 -0522
00910 CKI
RET02+6.ltNtc.8
00514 M9 00096 00000
00920
8
N2C.
00521
009]0
DORG .-4
00940 LINKS
TfM
IORT,*.2:J,.
CALL CORREC T [DRT ROUT[NE
00522 10 00565 -0545
00534 49 00000 -3379
00950
tOKOATA.7
8
TFII
INITlAllZE SUFFER ARROW
00960
8UFFAR ,DKBUfF+199"
00546 JO 00155 -1161
00510 SWOA
00590
00600

00910
5
BNF
009&0
00990
A
01000 AODTD[ All
A
01010

.uFFAR-2,REClG
*+24,FRIND

01020
01030
01040
01050
01060 AGAI~
01070
01080
01090 FE rCH[
01100

FETCH2.FRIND

80
8
OORG
A
TF
B
OORG
C
8NE

SUFFAR ,W

FINO-l,t,bIO,
010004+5,0[000'+8,
TOSB-12
'-4
DRAV-l,FP2
SWD-l.ORAY-l
SWD
'-4
Nl TEMP,NI
FETCH2."

t

00558 K2 00153
00570 MM 00594
00582 KI 00155
[ .. CREMENT [
00594 JI 0007J
[ NCREMENT SECTOR ADDRESS
00606 21 03392
00618 ilL 00714
00630 M9 00000
00637
00638 KI 00023
00650 KO 00215
00662 M9 00216
00669
00670 K4 00143
BRANCH If BUFFER NOT EMPTV
00682 "7 00714
00694 J6 005"0
00706 "9 00502
00713
00714 J2 OOIH

022'>3
00163
02240
000-1

TF"

B

FORTRAN Relocatable Disk I/O
with Floating Point
Page 3

03395
00163
00000
03664
Q0023
00000
02233

01200
LINKS+ 18, 10GT
-0566
CK[
00000
DORG .-4
SM
NlrEMP.l.1O
000-1
SEND THE WORD TO FAC
TFL
FAC.8IJFFAR,ll
00726 00 02492 OOI5N
B[
" •• 12,1400
00738 M6 00750 01400
• TEST FOR FLOAT[NG ADDRESS AT SWD-I
00750 "M 00844 00215
S"F FETtH3.SWO-l
01200[T [S A fiXED ADDRESS
CF
SWO-I
01210
00762 l3 00215 00000
TEST FOR FLOATING WORD [N FAC
01220'
8NF
FETCH4.fAC-1
01230
00774 "4 00856 02491
THE WORD [S flOATING SET UP llNKAGE FOR F I X
01240TF
F I XENO+6, I CON7+6
01250
00786 20 03681> 00811
01260
8
FIX
00798 49 0385 .. 00000
DORG '-4
01270
00805
01280 [CON7 DC
1,4
00805 00001
0[290
1,9
DSC
00806 00001
DSA
01300
RETFL T
00811 00005 -0112
FIXENO+l,:l
01310 RETFL T TD~
00812 15 03681 00002
01320
FL TE"0-5,2
0082'> 15 03725 OOOOl
TO"
013)0BRA ..CH TO STORE NU"8ER
FETCH4
01340 CKLO
B
00836 M9 00851> 00000
OORG --4
01350
00843
01360 fETCH3 BNf
FETCH5,FAC-l ••
8U"CH IF FIXED
00844 "4 00n6 02491
STORE THE WORD IN MEMORV
01370SWD-l,FAC.6
01380 FETCH4 TfL
00"6 -b 0021N 02492
01390CHECK FOR E"PTV BUfFER
CK
01400
00868 M9 00454 00000
OOFtG .-4
01410
008n
SET UP l ! ~KAGE FOil flOAT
0142001430 FETCH~ TF
FLTENO .lCON8'5
00876 20 037]0 00264
01 .... 0
8
HOAT
00888 "9 04042 00000
OQRG .-4
01450
00895
SM
PAR, 1, 10"
DECREMENT ilOilO COU .. T
01460 OKAn
00896 12 03378 000-1
e+14
8NZ
01470
00908 "7 00922 01200
88
00920 42 00000 00000
01480
DORG .-9
00922
01490
8 .. f
AGAlN-12.DUV-1
00922 Mil 001>38 00021
01500
DRAY-lt K
00934 K2 00021 02221
01510
S
01110
01120
01130
01140 FETCH2
01150_
01160
01170
01180'
01190

811

~

.

~

:...j)

812

,

'\

'J

009U '"90o(j~'booooo

gg::~

00002
0095. 00005 -CUI5
00960 OOOi)!
00962 00000

01170
01180'

rco

00961 00002
0096700005'-0'69
00968 00001
0096. 00001
Oo.h 00005 -020'
00977 00003
00,982 00005 -'0'216
00983 00001
00ge4 L3 00107 00000
01162 '0000 I
009'6 L3 00260 00000
01008 10' 005~5 -1043
01020 KN 01116 01162
01032 4R 00532 -0961
0104it 10 0056'5 -1063 '
01056 49 00116 00000
01063 00002 2K
01065 0'0005 ";1071
01070 00001 •
01071 00006 lJ9183
01071 00003 -03
01080 00006 -0000'
00984

SHOI

olno.

BLOCK I OF FETCH FIND U'CdIlD
01100
OORG SWOA
01110 SWO
rFII OSABU.5.SWO
TFII 10RT.tDREF+1l
01820
011S0
8,
10GT
01840
odA:G .-4
DIISO OUABLK DSC 1.1
D'S. ~O9
OI.~O
,01810
3~9
DC
01880 OSABLK OS. SWOt SWD

OIUO
01900
01910 010£110
01920
01910,
(11940' '0. n
01950
01960
01910
01980 FETCH
01990
11200Q,

DC
1.'
O,dRG

m~~14oo

ill

'8,8

OORG '-9
2.-00
DOAUK
I, •
5
FINO-I.FETCtl-l'..

DSC
OSA
DC
OS
TF
TD"

FRrND.I,II.
~nE,SI

• • ,,->'

~"

"

no

F I"D-{.REC'oRD-),."
FR1ND,O ..

02050 AITEST 'TO"

'FINOIN,l ..

02060 SEn

nil

01000A+5'217' ••

02070

II

F'fNO-I'.R'eC'c)G;".

A
~D

TFII
B

a..

02120
,02130
01140

'OO'IIG

02f50
0211>0
'02110

S
TF
TF

02180

f'"

""

02190
02200 OYER
02210
02220
01210 EYEN

I. ,
DORG
TF

022~O

INF

02250 IOIlEF
'0221>0

CF
TF

02270

TF

OZfaO

All

02300
02'110
On20

TF
II

EYENI+II,6Iliti&Ahl

~1150

TFII

~l160

A

02370
01,,0

,CII

1l~)'IO
~HOO.

07~10.
,Ol~to.

.

'Oi~Jo.

SET$f'CTlllI"gg:~:s I ~ N0~~!7

00001

'to""lJTfi.DDR~SSO~o~;~E I=Eg~:~2

'i'iI)UNl:ti IF 'NOT FIND

;iJit,ty,;,

~:ggg::}~:~~"h ..

02HII.

"
,

-0217
0007J 02243
0'3392 00"099
0045003527
00565 '-0441

00382 K3
394 21
00406 "3
JORT, •• 23
00418 10
IOSK,DK[}ATA,;1.
'rli"'J'lSFER TO 'IORT TO SEEK
00430 ~9 00554 -'3379
'ordEND
00442 119 00270 '0'0000
.-3
"00450
I'NlftALIZE8UFFER ARROW
BUFFAR;DKlIIIFHt'99 ••
00450 JO '00155 -1161
8UFFAR-2.RECLG
00462 K2 OOU3 02'243
,..fTEMP,Nl ••
, d0474 K6 00143 '02233
DIODOA+8.RECLG ••
'$foRi! R:E'til'RO LENGTH INDDA
00486 26 03395 02243
oi aDDU 13 ,DKBOFF.ido. ,
S'TORE )'OilR!Ss OF BUFFER
'00498 10 034DO'~1U.2
DIODOA+li.RECtG ..
, 'fuiIi:~CTH OF ~REt()ROTO GET F I RS'r COR
00510 22 03'198' 02243
T088+li2 ..
I~I nAt Uf"RANcH 'BACK
'00522 J500013 '00002
'00534 42 o(jooo~'lijjtioo
.~,
"
, 00536
TEII'A,F~2,.
STORE 'ftililflNG LE~GTH INTEIiIP"
00536 K6 00119 'O~64
·.36.DRA't-l.,
'lIlt"Meif IF'FtOAtJ'NG ARRAY
"0054111111' 0d584""1I00Zl
DRAY-I ;O.\':f~7
'00560 Ll 00023'':;11284
TEMPA •.K, ,
s'rtllt! F'lcl'E\H,fNGTH HI TEII'A
,""
'Oc)S72K60.0119'02221
01 ODOU i 3
l~,
'.S'tllRf "A'abRESS OF FIRST-Et'e'l\!!!!'T
e+44.,Ff.NOIN,.

S

o~no 'EVENI

00322"9 00358 00000
'c:tiMP'IJ:TE 'ADDR.ESS , TEST I • A"D TEST
'F'OR ;oe'~t'"E S,T'ATEM'ENT •
"laANSFER ,I
0033~ KO 00071 00333
s'eT 'f'Er'CH-'REC'ORD INDICATOR TD RECRD
003~6 J5 0016J 00000
'SET fINO INDICATOR OFF

'0 I DOOU 5 ,,99

02Z90

A
TO

813

:..- "h.

Q2010'
'b2020.
, '
'010)0 RECDRD TF
D2ditO
TOil

02,080
0'2090
02100 SSEEK
02l'10

OD216
00216 JO 00265 -0216
00228 10 00565 -0571
00240 49 00S66 00000
00241
00247 00001
00252 00005 -020'
00255 00003
00260 00005 -0216
00265 00005 -0216
00266 00001
00210
00270 "6 00282 01400
01)282 42 00000 00000
00284
00284 00002
00290 00005 -0247
00291 00001
,
00296 00005
fRANSHR I,
00298 KD 00071 00297
SET F~fCH-RfCORD INDICATOR TO FETCH
,
00310 J5 OOll>r'OdOOJ
8RANCH TO"'SfT FtNO INDICATOR 'OFF,

'"o58420 03'41iO"ilo0z3

, ffl GIi "o'ilbEit

"OI,DoQ:.~~i\ ,'I
,,(I'IODOA~8j'l7

''ltftLl;. 'h'l

::~i~~D''''j5.,rD

ilo 596 11 0140,0"'''000 I
PO'S I tt ON OF "Rluy
'00608 2K 03400' "0011'
00'/020 K6 0066to~00
00632 k3
'G06it4 Kl 0061>7.''\10099
",0'0656 KS 0(84),'00000

OOU':l"J8

1£/1'1'" ..
EVENI+ll'99
EYfN2+U

on

, ._

'fV;\t'UAtE SEtTORtillJNr
. G\l668 16' o';·):"l~ol
ObjilO 2.1.031."',.97
'C)b692 140U4,Q~;;'OI
'ciiJ70.~ "6 :OO'7~'O~:_oo
,
,
DOnI> 13 'O)34Y~5
.,f~:'g .III'I)OA
, ",flllt-vlTEANDSfOllE"LOiI' filtt09
, ":,,'citrrill". 't OF'lRRAY

FORTRAN Relocatable D!.skI/O
with ,!FIQII.tlnq .>'Oint
Page 5

0,· .... 0

00128
00740
00152
00764
00771
8RANCH IF FfTCH
00772

FlflO-I.98.6
FlflO-l.OIOODUI.6
TF~
_ETDZ.b, •• ZO
8
fllCK
OOAG '-4
80
FETCH8,FRIND ••

O:>4~0

OZ4.0
02470
02480
02490

10

OZ~60

IORT •• +23
IOR8e.NOWLe .7
fL TEND-5.2
EVEN1+U .. 6.

fF"

8

02~~0

EVEN2

TOM
TOM

ot 000l+5, 01 ODD' ••••

OH10

02580
88
02S90
OORG .-9
02600 FETCH8 TF~
OJO+3S.YTURN,67,
02610

IFM

IORT.·+23"

02620
02630'
02640

8NG

•• 20.EVEN1+11.11

10GT .OKOATA.1

01~50

02660
02670
02680
02690
02700
02710 EVENSP

01120
02710
02140 Y TURN
02750
02760
02770
02780
02190 NOWLe
02800
02810
02820 TEMPA
028]0 N I TEMP
02840 FRINO
02850·
02AbO02810 OlM2
02880
02890
02900
07910
02920 L02NO
029]0
0}9ltO
02950 S IL02

0007J 00098
0007J
00150 -0172
00096 00000

on"

FOPTPAN Hclocatable Disk I/O
with Floating Point
Page G

NL 00858 00163

RECORD
EVENI'Il.DK8UFF+100.6.

OZ~20'

OH]O
02HO

K2
KI
JO
"9

8
EVEN2
OORG '-4
TF
flTENO.EVENSP+6
TFM E 1,413,9
B
ERROR
DDRG .-It-

DC

l,1t-

OSC
OSA
81
BNI
TOM
8
DORG
OSC
OSA

1,9
EVEN2-IZ
'+12,3700
ERRET,lc)OO
INOS+10,b
(DERR
.-".
2.02
OIOOOA

DC

1,'

os
os
os

1,N2CK+23
2,RET02-1
1.BEZ+7
WRITE FIRST 8LOC<

DSC
OSA
DC
OSA
ae
OSC
OSA
DC
CF

SET GROUP MARK AT EflO OF ARRAY
00784 KN 0066P 01162
WRIIE ARRAY ONTO FILE
00796 10 00565 -0819
00808 4R 00520 -0995
00820 15 OHlS 00002
RESTORE DIGIT
00832 J5 0066P 00000
IflCREMENT SECTOR ADDRESS
00844 21 01392 03395
00856 42 00000 00000
00858
I~SERT ADDRESS FOR ERROR ENTRY
008~8 10 0085J -0952
READ ARRAY FROH FILE
00870 10 00565 -0893
00882 49 00566 - 3379
TEST FOR NO GROUP HARK
00894 NN 00914 0066P
00906 H9 00832 00000
00911
00914 20 01730 00951
00926 16 02615 00"1)
00938 49 01596 00000
00945
00945 00001
00946 00001
0095 I 00005 -0820
00952 H6 00964 OHOO
00964 47 00602 01900
00916 IS 00620 00006
00988 49 00624 00000
00995
00995 00002
01001 00005 -3387
01002 00001
00119 00002
00143 00002
0016] 00001

101
200
].9

swO

I.'

2,00
01 M2

I.'

EVENSP+2

IORT,.+Z3
tOPT ,LD2""O,7,
SWO+Q02
swa+902

029bO
02910
029S0
02HO
03000

TF"I
8
B
OORG
TRA

03010
03020

Teo
SILU2
OENO 6

WRI If OUT 2ND PART BLK

alDOl
01008
01011
01016
01017
OIOIS
01024
01025
01026

00001
00005 -0200
00003
00005 -0216
00001
00002
00005 -laO]
00001
L 3 009~ 7 00000

0103S
01050
01062
01118
01118
01130
01137
01119
0114".

10 00565 -1061
005]2 -lOIS
M9 01118 00000
~R

815
FORTRAN Relocatable Disk IIO
with Floating Point
Page 'I

10 00565 -1117
49 00716 00000
00002 2K
00005 -1145
00001 •
011~5 00006 IJ978]
01151 0000] -03
011154 00006 -0000'
01026
00006

SYM80L TA8LE
SETRH"
FLTENO
FETCH4
OSAOT.
OIOOOA
AOR

CKlD
01"2
ERRE T
F
F"ODO
ICON 7
IOERR
10RT
LINK~

OVER.
SSEE<
SWOI
zeRO

00354R
03130
00S56R
00398R
033S7
00004R
00816R
OIOOlR
OOb02
02219
0}579
00805.
00624
00565
00522R
OOS22R
00418R
00406R
02700

R£TFL T
F I XENO
FETCHl
OSABLK
OOAeLK
AGAIN

00812R
03680
00844.
00260R
00247.
00650R
OAT~
00953R
UIO
00816
ERROR 0]596
FAC
02492
FLOAT 04042
ICONS 00259R
lOG T 00566
IOSK
00554
NOwLe 0099~R
PAR
OB78
SILOI 00984.
TEMPA 00119R

RECORD
FINDIN
FE TCH2
OKOATA
RUFF A.
8E2
DATI
DRAY
EVEN
FerCH
FP2
INDS
10PT
K
NI

003]~R

03527
00714R
03]79
0015~R

00156R
00284R
00024R
00516R
00298R
0366~

00610
00532
02221
02233
RECLG 02243
S Tl02 o 1026R
T088
00012R

NI TEHP
FETCH8
FE TCHI
O"BUFF
AITEST
CK
008
ORAYI
EVENI
FINO
FRINO
lOCAL
IO.BC
LDIRD
N2
RET02
SIlO

00141R
00858R
00670R
00962R
00158'
OO.s~R

00385R
0089bR
00656R
00012R
00U3R
00716
00520.
00961'
022]8
00 1~4R
00216R
02240

IDRH2
FETCH5
EVENS.
OIOENO
AOOTOI
CKI
OIHI
EI
EVEN2
FIX
HERE
IOEND
IOREF
lO2NO
N2CK
SETI
SWOA
YTURN

00418R
00876R
009~5R

00270R
00594R
00llj02R
00'l69R
02615
00832R
01854
o 1032R
00210R
00560R
OIOIS.
0009bR
00370R
00216R
00952R

816

0001<1'·"·

tlnOIO··.·
00010 ••••

nori4o

nOM II
000.0 FtOS

~m~

~dnolO F srlli

00100
00110
00120

00130
OOl.ltO

ooHo' tLF
00160
00110
00180
00190
00200
00210
00220

00230
00240
00250
00260 BRD
00210
00280
00290
, 00300

00310
00120
00330
00340

1"iI FDiitOIii 11-0
'lIflotAUIU SINE AND tOSlNE 1I0UTlNfS
COSIKI • 1 - IK •• ,1/2 + IK ••• I/Z. - IK ••• ,1120 ••••
SflUAl • COSIPIOV2 - AI
osi FCOS.FSIIi!
00004 00005 -000'
0000. 00005 -00'2
DI$RG
00005
TO" ClF+lI
•0
.0 •
SET ROUTINE FOR COSINE
00006 J5 00125 00000
TFL FAt
.FtOS-l
.111. lOAD ARGUMENT
00018 00 02492 0000'1
FSI ... H
B
.0
00030 "9 000. . 00000
TDOIi tLF+lI
.011. SET ROUTINE FOR SINE
00042 J5 001Z5 OOOOJ
Tfl FAC
.fSI..-1
.111. LOAD AIIGU"ENT
00054 00 024.2 0004J
CF
FNH
.6.
CLEAR HIGH ORDER FLAG
00066 33 OUll 00000
TOM. F~HMI
.0
.611. SET FLAG AT HIGH ORDER DIGIT -I
00078 15 03350 0000TON ClF+IO
SET SWITCH ARG POSITIVE" RESULT POS
00090 J5 00lZ4 00001
BNF
.FAt-2
IS ARG ~EGATIVE 00102 M4 00150 02490
e~
YES. REPLACE 8Y ABSOLUTE VALUE
00114 13 02490 00-;00
,eLF.ll
B~F
.01.
IS RDUTI .. E SINE OR COSINE
00126 M" 00150 00125
TOM Clf_IO
.0
SINE •. SINI-Al--SINIA), RESULT NEG
00138 'J5 0012" 00000
IMSAPF
,9SPF+l
TF
IMSA.F - F+2 lEROS
00 ISO 26 03290 02855
eM
FAe
.00
.10. CHECl( SIGN OF CHARACTERISTIC
00162 14 02492 000-0
B~L
POZEX'
BR IF POSITIVE. EQUAL TO lERO
00114 M6 00106 OUOO
fAt
.MF
COMPARE CHAR TO -F
00 IB6 24 02492 03666
8RD
SR IF CHAR lESS THAN -F
BL
0019B M7 00246 OUOO'
TFM
.07.
ADJUST MANTISSA liN IMSAPFI FOR
.Flt-I
00210 J6 00245 -2491
.FAt
CHU GREATER THAN OR EQUAL TO -F
00222 KI 00245 02492
A
AND LESS THAN ZERO
00234 21 03290 00000
.01. Bit IF ROUTINE IS SINE
80
.tlF-lI
00246 Ml 00270 00125
IMSA ..F
.PIOYl
ADD PIOV2. COSIAI - SINIPIOY2-AI
00258 21 032"0 03163
I MSAPF
.TWDPI
REDUCE ARGUMENT TO PRINCIPAL VALUE
00270 22 0329Q 03103
·-12
RANGE. MINUS PIOY2 TO POS PIOY2
.0.
00282 M6 00270 01100
SET HIGH ORDER FLAG
IIISA-\
00294 32 02574 00000
A
IMSAPF
.6
00306 21 03290 03133
.PI
' •• 36
B~
.0.
Bit ARG NEGAT lYE 00318 Ml 00354 01300
SM
elF+IO
.01
.010. SET SIGN OF RESULT
00330 J2 001Z4 000-1
SF
IMSAPF
SET SIG~ ON ARGUMENT TO MI~US
00342 '32 03290 00000

.-4

•

·..

.0.
,0·,

.6.
.0.
.0.
.0.

.6.

.6.

·

.6.

:;L;;: ;at
00350

A

IMSAPF

.PIOV2

00360

TF

79

.ZEROII

.11.

00370
00380

M
TF

I MUPF
I MSAPF

.IMSAPF

.611.
.611.

00190

SF

I M,SA-I

00400

TF

FAC

00410

.TR

AAB-3

00420 OVER

TOM

SUM+I

00430
00440
'00450
011460

o

O'~70

.00480 SUN

TF
'FM

99
97MF
'9BMF

"ll.

·

UB-2

.02

.010.

.OZ

00'510

M

AlB

TF
IF

A8
19

005'10

M

00550

'CM

ollno

'OVER
BE
TOil SUII"
8
OVEU12
OORG '-4
C
FAC-I

lIis.,F

'5\111.1

.95
.SAY.E

.• 99
,ZeAOII
,SAVE
.9521

·
.1

ZUFAC

""

SAVE

.01

10

NORIIll

.ClF+10

SF

"

'IH

•• , .

ilO"o

TF

")0

'0"00

S

•• 11

.010.
.01.

IE

00"0
I ' NOIIM 72
00. .0
OOIlG 0-4,
00"0 POIIK'.C
fAC

00.10

.61

SAVE
FAC

UB

110600 DONE

.ifallF
,6000
.&B

DO~E

AM

005711

.0.

TF
S

00500

oouo
Dono

.01.

,2

81

'AM

oq.,o

.tJNez.Z
'.·.I'ABS~8

.16,
.0
.10.

00490

'OOlIO

.98I1F

.0
,II

.a.

.08.

.0.

,D.
.0

..
..

.10.
.01.

,0
.F

,0.
,0.

...0.

ADD PIOYZ. SINIAl-COSIPIOY2-U
00354 21 03290 03163
CLEAR PRODUCT AREA
00366 26 00079 0344'1
FIND Ao02
00378 2) 0329Q 03290
PUT RESULT IN IIISA+F
003 .. 0 26 03Z"0 033Z0
SET HIGH ORDER FLAG
00402 32 02514 00000
FAC - I
IF+Z 'OIGITSI
00414 26. 02492 03040
SET COUNTERS.
AB' 2 FACTORIAL
00426 lJ 00161 00170
SET SUM TO SUITRACT
00438 J5 00511 00002
00450 26 00099 03320
SHI FT PRODUCT
00462 16 033U 0-000
DIVIDE BY AI
00414 2R 03)20 00168
00"" M6 DaUB 01200
STORE OUOTIENT'
00498 26 02565 000R5
SUBTRACT OUOTIENT FROII FAC
.
00510 22 02492 02565
A8 CONTAINS K FACTORIAL
00522 J I 00862 000-2
FIND K+Z FACTORIAL MODIFIED FOR
0053.4 Jl 00864 000-2
PRODUCT DEV·ELOPMENT. 'UT IN AI
005'" Kl 00I61t 00862
00558 K6 00... DOD99
OOUD 26 DDO" 0544'1
MUlTl'U AIIG BY Q\lQTlEII'
00512 U 0,a9O 02565
ADD OR SUBTRACT AT SUII
ODS,4 J4 00511 011521
SUITRACT
D061N! "6 DOUI 01200
SET SUII TO 'ADD
00. . . J5 0051100001
00630 "9
00000
00637
COMPAIIE RESULT TOlEIIO
oonl 24 ·0",91 .02154
EQUAL, 'RESULT - IERO
00650 46'0)421·01200
SET UP CHARACTERISTIC OF IIUU\.T
00. . 2 16 0,..1.,000-1
SET UP $1&11 OF RnUl T
00614 MlOOtlO 00124
IR TO NO."AUZAT ION
00... 32 000.'00000
'006'" ... OOIJO ·00000
00705
COMpallE CMA. TO F
.
00106 24 0 " " 02219
8R IF. GRUTER
11600n4 01100
AOJUST IIANTISSA liN IIISAPFI :lIOlI
K6 ,00J.o'·OUO)
tHAR GIU TE R THAll 011 6QUAl TQ"tIltO
00742 112 00160·:02692
ANO USS THAll OR EQUAL 1D •
00754 '26 ODOOO '024.0

,oono

ilon,
oono

FORTRAN Reloc~e Sine .and
COline Routipe .wiUJ. rlo~ln" Point
Paqe 2

n0120

c'n,o

aOHO

8
8~D
DO_CO '-4
IF" E I

Otl71§O

8

.0

00190
SF
00800 NOUll7l BO

FNH
FINISH

00010

SAVE

00020
008)0
00840 AAA
OOR~O Ao
00&60
00870
008BO
00890 uas
00900 FAt
00910 FNH
oono FNHMI
009)0 IMSAPF
00'140 9SPF
009~0 .F
00960 PIOV2

5"

8
DORe;
OS
as
OS
DC
DC
DC
OS
OS
os
as
as
as
os
OOQ70 hlQPI
os
009ao I"SA
as
00990 PI
os
01000 lERO
OS
01010 98"F
os
01020 'i7"F
CS
010)0 SAVE
Os
01040 lEKFAL as
01050 F
as
01060 1 SPFM 1 os
01070 E I
us
Uloao FH
os
OIOqO F INI SH OS
01100 ONEl
OS
01\ 10 lERO~ os
01110 UNFlO OS
01110
rENO

.-.

FORTRAN Re1cx:atable Sine and
Cosine Routine with FloatinIJ Point
Paqe 3

.9,

,670

UNFLO

00760
OORe; '-4
00110 NORP)6 IR
FNH
00180
10" FAC-I

00U6 119 00246 00000
007l)
5ET EUOR Fl. L055 OF 51GNIFICANtE
00774 16 02615 00070
III F51N DR FC05.FAC • lUO
00716 49 03466 00000
00793
,611. LEfT SHIFT ONCE 00794 H 0331l OnOQ
SET LA5T DIGIT TO IERO.
00e06 15 02491 00000
,6
00818 32 OHIL 00000
,611. TEH LEADING IERD
Dono H 0372L onlL
.10, suar ONE FRO" EXPINENT.
ooeu 12 onn 000-1
,0
00154 "9 00794 00000
00161
00864 00004
00868 DaDDio
00869 00001
00811 00002
00873 00002
0087e 00005
02492 00000
03313 00000
ann 00000
032'18 00000
02854 00000
01666 00000
03163 00000
03103 00000
02575 00000
03113 00000
02767 00000
03328 00000 ,
03323 00000
02565 00000
03422 00000
02219 00000
03]03 00000
02615 00000
03]08 00000
03123 00000
03038 00000
03445 00000
03466 00000
00002

,FH
,0

,
,FNH

,01

NORP)6

4
4
I
2.01
2.02
,),0002 •
,OHn
.01313
• 0]358
,03298
,02854
,03666
,03163
.OHO]
.01511j
.03131
.02767

,o:n28

,01313
,02565
.03422
.0221'1
,03)0)
,02615
.01308
,01723
,0)038
,031t411)
t 0)466

SY"BOL TABLE
lERFAC 01422
(MSA,PF U3298
dRO
00246R
FAC
02492

rSIN 00042.
PI
OllH
UNFLO 03466
qBfiIlF
OB28

PUIExp
FINISH
ClF
FCOS

00706R
0172]
OOl14R
00006R

IMSA 0257~
PIOV2 03163
ZERO 02167

NORP36
AAS
DONE
FH

00194R
00864R
006]eR
0])08

MF
03666
SAVE 02565
ZEKOM 03445

~OR"7Z

AABS
EI
FNH

ONEZ
SU"
9SPF

008)OR
00878R
02615
OHl3

03038
OOSIOR
02854

ISPFMI
A8
F
FNHMI

03303
00868R
02219
03]58

OVER 00438R
TWOPI 0)103
97"F 03)23

,III

E

FORTRAN Relocatable Sine and
Cosine Routine with Floating Point
Page 4

000 I·e· ••.••
00020 ••••
000]0
ooo~o

FAT~

(001)0
0001>0
00070
00080
00090
00100 TEST

U20 FOIITUIIU-o
RElOCA"ILE fLOATI~G AI\CTA~GEIIT ROUTlN.E
ARtTAII'X' • x - lleo]lI] • U . . 5115 - IX . . 7111+ •••
oSA
FAT~
00004 00005 -0006
TFL
FAC
,FATIl-1
,111, LOAD ARGUMENT
00006 00 02492 OOOoN
Bo
0+20
,FIlH
,Oil, IS ARG lERO
00018 N] 000]8 O]]IL
8
lERFAC
YES
000]0 49 03422 00000
oO!\G 0-4
00037

~~~ m~:!!

00110
00120
00130

tF
CN
8H

OOI~O

BE

00150
00160
00170
00180
00190
00200

:FAC-2

FAC-2

,

FAt
,00
rfSJ1+20 ,
ALPH+12
,
-.:)5
,F
98
,05

,10,
010
,0

EOo

,0,

ALPH-I

,FAC-2

ALPH-I
FNHMI
FNH
FAC-2
FNH
FH

,FAt

00250
00260 ALPH
00270

A
TF
CF
TF
SF
tN

00280

8L

•• 132

OOHO

TF
NN

97

,9SPF-l

,
,29

,01>
,\

S

98MF
FAC-2

TF

SETA

,99

00340
00350

Tf
lO

19

,ZERO-42

98MF

• F AC-2

003bO
00370

o

HND

tBE fA

TF

FAC-2

,91MF

00380

SF

TEST+ll

00190

TF
M

79
FAC-2

,ZERO-It4

00420

TF
TF

SAVE
BETA

,POT
,9SPF

OOHO

IF

ATNl+]5

.2FMI

00440

TF

AlPH+lI

00450 UNI
00460

TF

TFN

99
98NF

00330

00400

00410

, sue

,FA.C-2

,ZERG-47
tlO

·

OM

00480

S

98MF
96

00490

TF

BETA

00500
00510

TF
M

79
8ETA

,SAVE

00520

TF

BETA

,PDf

SM

SM

00550
00560

8NZ
TF

AT~1

OOHO

S
TF

SAVE

OO~80

ATNI+35
At PH .. 11

SAVE

·

.ONEl+2

BNN

TESTZ-12 •

SF

POT
PDT

001>40 TEST2

8Nf

.ll r

,0.

,BETA
, ZERG-42
, FAC-2

00610

A

,6,

.02
.01

N
BNF

00620

,610

,ZERO-43

00600

OOUO

,6
,6

.8ETA

19
SAVE
TEST]

00590

,TEST+lI

,01,

.0,

·

,TAN6
• TEST+lO

,01.

,

00670

TFM

SAVE

,01

00680

TF

HC

,HND

00690
00700
00710

80
TR

TES Ti-24 ,fNHMI
fNHMI
.FNH
FAt
,0
SAVE
.01

,Oll, NORMALIZE

.-48

,0

a

00140

OORG 0-4
FI>IHMI
SF
FAC-2
TF

00190

TO

•

OOOJO
00000
02603
00096
0272'
02565
OH3L
000-2
000-1
01200
03040
02603
02725
02490
0001]
01300
00000
03248

9.

·

.fAC-3
t TEST+9

ENOD
DORG 0-4

00758 26 02492 03330
,611

00170 M3 00816 O]]5Q
00182 31 033511 OBll

00194 15 02492 OQOOO
,10

00801> lZ 02565 000-1
00818 M9 00770 00000

00825

.1.
,0,

00821> 32 03350 00000
008)8 26 02490 02489

SeT SIGN
RETURN

SF

TEU-IO

TF
TF
D

99

PDT
PDr

Tf
III

fAC-2

,PDT

.11.

$+44

,FNHMI

.011. NOR"AlIlE

001140

02720

SET CHARACTERISTIC Of RESULT
OOH6 16 02565 000-1
PUT RESULT IN fAC

00100

OIl"O

03783

FORTRAN Relocatable Arctangent
Routine with Floating Point
Page 2

SET SIGN
00722 32 0333l 00000
SU8 PRODUCT FROM P!OV2

001\0
00820

ooUP

03581

821

00734 II 0333l 0316)

DonO

00170 TEST!
00780

14. 02492 -0000

00710 MM 00746 00072

,PIDYl

00150
00760

00000
00000
000-0
OllOO
01200
02219
000-5
OOONO
00097

M7 01094 01]00

00662 MM 00710
IS PRODUCT NEGATIVE
00674 "6 00698
YES, SET SIGN
00686 32 0333l
ADD ARCTAN OF .6 TO PRODUCT
00698 21 03Hl
TEST INDICATOR, CHAR POSITIVE

PDT
PDT

TON

n

TEST INDICATOR, HI ORD GREATER 29

SF
A

SN

N4 00086 02490
12 0007\
02490
14 OH92
N6 00810
N6 00266
K] 00151
12 00098
]2 0009.7
K6 00181

00458 <6 00517
SET COUNTER EQUAL F-l
00410 K6 00265
00482 26 00099
00494 16 0332Q
DIVIDE 10/.
00506 19 0332Q
SUBTRACT BErA FROM QUOTIENT
00Sl8 22 00096
REPLACE BETA 8Y DIFFERENCE
00530 26 0260]
00542 26 00079
BETA EQUALS BETA TIMES
00554 23 02603
SQUARE OF MANTISSA
00566 26 0260)
W EQUALS W-2
00578 J2 00517
REDUCE COUNTER BY ONE
00590 J2 00265
I S COUNTER ZERO 00602 M7 00482
YES, SAVE IS ONE IF+2 DIGITSI
00614 26 02565
00626 22 02565
FIND I - BETA
00638 26 00079
006S0 23 02565

00650
001>60

00720

J6 00073 0-000

JI> 00253 -2490
K I 0025] 02492
26 0335Q 02853
]3 OHlt 00000
..
26 02490 00000
,6
002'54 32 0331L 00000
,610, CONPARE HI ORO NANTISSA DIGITS
00266 14 0330Q 000K9
TO 29, IF lESS THAN 29 BR
00278 M7 00410 01300
00290 26 00097 028H
.10.
FIND 1.6 TIMES MANTISSA
00302 13 02490 000-6
,611
00314 15 0]32Q OOOOJ
FIND NANTISSA MINUS .6, PUT IN FAe
00326 22 OH90 03219
STORE 1.6 MANTISSA IN BETA
00338 26 02603 00099
00350 26 00079 02725
FIND IFAC-.bl/II.6 X MANTISSAI
00362 28 0332Q 02490
,6
00374 29 0333Q 02603
,lI,
PUT QUOTIENT IN FAe
00386 26 02490 0]32L
,0,
SET INDICATOR, HI ORO GREATER 29
00]98 L2 0007] 00000
00410 26 00079 0272]
SQUARE FAC NANTISSA
00422 2] 02490 02490
,11,
STORE IN SAVE
00434 26 0251>5 OlHl
BETA IS F+I ZEROS
00446 26 0260] 02&54
,0,
. SET DIVISOR EQUAL 2F-I. DENOTE AS W
,0,

,0,

00410

00530
00540

,07,

00050
SET INDICATOR, ARG NEG
00062
ARG • A8S ARG
00014
I S CHAR OF ARG
00086
POSITIVE
00098
EQUAL lERO
00110
NEGATIVE
00122
FINO-.SIF-ll
00134
00146
00158
IF CHAR OF ARG IS
00110
LESS THAN -.5IF-il.8R
00182
SET UP AoJUS T NANTI S SA
00194
00206
00218
00230
AOJUST NANT I SSA
00242

,0,

,9SPF-I

FAC-2

TON

,0,

.97

TF"

00310
00]20

,0,

.0,

-+23

00220
002]0

00]00

,10.

,so

00210

002~0

..

n

FAe
al

:~~' ::S~~ ml~:~~~~v~0018
,0,

SF

FORTRAN Relocatable Arctangent
Routine with Floating Point
Page 1

• ZfRO-H
,QNEZ

00850 2M 00099 00011

00862 49 0]688 00000
00869

SET INDICATOR, CHAR POSITIVE
00870 l2 00072 00000
00382 26 00099 OH44

00894 26 0333l 0.3038

.F4C-2

F I IlO REe I PROCAl OF 'UN TI S SA
PUT IN FAt-2

00906 29 Ol33l 02~90
00918 26 02490 GlUt
009]0 10 0091~ Ol35Q

SZ2

OOa.O

SF
SIO
I

oooro
00880
00190
00.00
00910
00'20

DO~G

TF
SIO
8L

OOHO

·.,.4

Ooo~o

·

OIO~O

TF

01060

TF

FAe

.MF

••

01070

.10

IIISAPF

.FAt-2

.6.

.PIOY2-1

01000

eF

IMSA+l

.0.

·

IHSA
,I MSAPF
e.23
,FAC
FAe-2
SAVE
.01
fEST!-12 •

TOM

e+35

TFH
8

OORC '-4

as

,02492

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

.03313
.03422
.0221.

.02b03
.02767
.03338
.03323
.02565
.03333
.03581
.03781
.0303.
.03248

OS
OS
PIOY~
OS
IMSAPF OS
~F
OS
IMS.
OS

.03163
.03688
.01l91
.032.8
.03666
.02575

FAt
FNH
HRFAe
F
FNHMI
'SPF
FM
98HF
SIK
BETA
lERO
HNO
'7HF
S.YE
POT
2FIII
FMI
O~El

UNb

,03358
,02854
,03308

.03328
,0321CJ

PIOY2
ENOO

00942 J2 onn 00000
00954 12 024.2 000-1
DO ••• '19 00... 00000
009H
00.74 26 02490 02419
DO". 12 02492 000-2
IR NEW CHAR NEGA TI VE
00.,. 107 01042 OiJOO
I~ NEW CHAR lERO DIDIO "6 00266 01200
NEW CHU POSITIVE
01022 J2 02492 00000
0101'0 10. 00122 00000
01041
01042 16 02565 000-0
01054 2. 024.0 OJl"
0101>6 N. 00150 00000
OIOH
01074 2N 00099 ooon
DID. .
03700 00000
010'3
fEST INDICATOR • CHAR POS IT I YE
010'4 10M 01074 00072
CHAR NEG. STORE F At MANTI SSA
01106 26 032'0 02490
FAC IIANTISSA IS F+I DIGIT PIOY2
011 I I 26 02490 0311>2
COMPARE CHU TO -F
01130 24 02492 03"6
BR I F CHAR NOT GREATER. EQUAL -F
01142 107 01214 DILDO
SUB OLD FAt MANTI SSA FROM P IOY2
01154 33 02576- 00000
01166 15 02575 000001178 K6 01213 Oll ••
011.0 KI Ollu 02492
01202 22 02490 00000
SET CHAR
01114 16 02565 000-1
NORM ANO RETURN 01226 II. 00838 00000
01233
02492 00000
03313 00000
OH22 00000
02219 00000
03358 00000
02'5~ 00000
onol 00000
03328 00000
0321. 00000
02603 00000
02767 OOQOO
03331 00000
03323 00000
02565 00000
03333 00000
0)511 00000
03783 00000
03031 00000
03248 00000

l'We 3

4'

FAC-2

-+72

TF
A
5

..

.0

.TESh.

• 01.

BNH

01360
01370
01380
OIBO
01400
01410
01420

.0
.00
.PIOY4

• TEShlO

01080

01100
01110
01120
011)0
01140
01150
01lbO
01110
01180
OIl'O
01200
01210
01220
01210
01240
01250
012bO
01210
01280
01290
01300
01310
01320
01330
01340
01350

.10
.0.
.0.

01010
01040 EOO

010~0

.10
•0

.FAC-J
.02

B
fESh60
OOIlG 0-4
TFM
SAVE
TF
FAt-2
8
fEST!
DORG .-~
TO
B
ENOO-12
OORC '-4
BNF e-20

00960
00'70
00.80
OOHO
01000
01010

FORTRAN Relocatable Arctangent
Rolltine with Floating Point

••

.01

AlPH_12
FAC

IE
SF

OO'~O

FNH
FAC
·+)2
0-4
FAC-2
FAC

.11
.0
.0

.10.
.0.

03163
03688
03191
03298
03666
02575
00001

OE~O

00000
00000
00000
00000
00000
00000

823
FORTRAN Relocatable Arctangent
Rolltine with Floatin" Point
Page 4

$VIIROL TABlE
lERFAt
ENOO
FM
IMSA
PIOY4
TESTI
97MF

0]422
0]688
03308
02515
03191
00850R
03323

03298
01094R
EOD
FMI
03783
MF
03666
SAVE 02565
TEST2 00710R
98MF 03328

I~SAPF

UPH
F
FNH
ONEZ
SI K
ZHO

0025411
0221'

onl3
01038
03219
0271>7

ATNI
FAt
FNHMI
PDT
UNb
2FIII

0048211
02492
03358
03333
03248
03581

8ETA
FATN
HNO
PIOY2
TEST
'SPF

02603
00006R
03338
03163
00062R
02854

824

OOC,lO •••••
OOli JO

1620 FORTR.~ 11-0
OSA
SQRT

000'0 SQRT

~~

TF L

QOO~O

SQRT-l
FAe

RElOCAfABLE SQUARE ROOT ROUTINE
OOOO~

,50

,0610,HALF THE EKPONENT

, SORT-I

oooso

BO

S~I

000&0
000 70
00080 SQI

B

(f.HC

TO"

F~H"I

,a

OOOqO

TO""

SQEXtl

,2

00100
0011 0

BNF

.t48

,FAC-2

CF

FAC-2

00120

TO'M

SOEX+I

T Flo!

EI

.F~H

OOA.G .-4

t

676

OOlltO

00006 J3
, I I I , MOVE MANTISSA TO FAC-2
00018 00
.011. TEST FOR lERO
000]0 M]
RESULT IS ZERO
00042 49
000'09
,611, SET NEKT HIGH,OROER DIGIT
00050 15
,a,
SEI EXIT TO BRANCH BACK
00062 J5
,a,
TEST FOR SIGN
00014 M4
REMOVE MINUS SIGN
000B6 33
,0,
SET EXIT TO ERROR ROUTINE
00098 J5
.9.
SET ERROR MESSAGE Fb
00110 16

,0,

OOISO

TF

001&0
00170 S02
001 BO
00190

5O'2t42

S02+12
97
FAC
aD

00200

TF

00210

TF

.97MF

,99

,

,97
,9SPF

,97M2F

00220

TF

LOOP+}]

00230

TF

LOOPt102 ,97M2F

,FNHMI

00240

TF

FAC-2

00250

R

lOUPtl08,

002bO

DORG .-4

00210 lOOP
00280

S

00290

BNN

AM

• ONEl+l

lOOP+2.1

,2

lOOP

00300

c~

LOOP+23

00310

BNL

SQEX-48

00120
00330
00340
00350

A
CF
AM
SF

LOOP+iB
LOOPt18

,

.+ 18

.L

00]60

AM

lOOPt18

,02

00370

AM

lOOPt23

,01

003BO

SM

LOQPtZ3

.9

00390
00400

B

lOQP+12

00410

LO

aD

00420

~~

fAC-l

00410

T~

,FAC-2

,lOOPt23

DQRG .-4

00440

Sf

FAC-2
FNH

004')0 SQEX

88

ERROR

00460
00470 SQ]
00480

DORG .-4

00500

N

CF

FNH

IF

SQ2+42

BNN

00510

.50

r

98MF

SQZ+12

00'130 FAC

00540 FNH

DORG .-4
OS
OS

00550 lERFAt; OS
00560 FNHMI
OS
00510 E[

00580 91MF
00590 9SPF
00600 97M2F

006[0 ONEl
00b20 ERROR
00630 9aMF
00640

,02492
,03313

OS

w03422
,03356
,02b15
.03323

OS

,02854
.03363

os
os
OS
OS
OS

EXPONENT

00461 00002
00122 02490
02490 00000
00461 00009
02615 00016

000
00096

,03038
,03596

,03328

03323
00099
00000
00091
028H
02490
03363
d335a
03363
03039
00000
000-2

00000

,0,

CONTINUE LOOP IF NOT MINUS

,01,

002a6 M6 00262 01300
COMPARE WITH TERMINAL ADDRESS
00298 J4 oozas -2490

.0,

GO TO EXIT

If EQUAL

00310 M6 00414 01300
.0161l,AOO 6ACK
00322 KJ 002a- 00Z8N
.06.
CLEAR FLAG
00334 L3 0028- 00000
,DID, ADD I TO ADDRESS 00346 JI 00364 000-1
SET FLAG ON MANTISSA ONE PLACE OVER
00356 32 00000 00000
TO MANTISSA
,010, ADO
00310 JI 00280 000-2
,010. ADO
TO RESULT ADD

00362 JI 00285
.ObIO,SUBTRACT 9 FROM RESULT
00394 J2 002BN
,0,
GO TO lOOP
00406 M9 00214
00413
CLEAR PRODUCT AREA
00414 28 00080
,10,
HALF THE RESULT
00426 13 02490
S TORE RESULT
00438 26 02490
,6,
SET FLAG I~ HIGH ORDER DIGIT
00450 32 0331L
GO BACK OR ERROR TYPE-OUT
00462 42 03596
00469
,10.
ADO 5 TO PROOUCT 00470 11 OOOqq
,6,
CLEAR HIGH ORDER FLAG IN FAC
004a2 33 0331L
.0,
SET ADDRESS TO 98-F
00494 K6 00200
,0,
B-RANCH IF NOT NEGAT lYE
00506 M6 00170
GO TO SET SIGN IF NEGATIVE
0051a "9 00158
00525
02492 00000
03313 00000
03422 00000
0335a 00000
02615 00000
OHZ! 00000
02854 00000
03363 00000
03038 00000
03596 00000
03328 00000

.0,

S02

00520

IF

OOONO

TOlERO
03350 0000-

00122 M3 00410
SET ADDRESS TO 91-F
00134 <6 00200
,0,
TEST FOR SIGN
00146 M4 00110
SET SIGN
00156 32 00091
STORE EXPONENT
00110 26 02492
CLEAR PRODUCT AREA
00182 2B oooao
MOVE MANTISSA INTO 97-F OR 9a-F
00194 26 00000
,D.
SET ADDRESS TO 91 - 2F
00206 <6 00280
,0,
SET ADDRESS TO FNH - 1
00218 <6 00285
,0,
SET ADDRESS TO 91-2F
00230 K6 00364
SET RESULT TO 100 •••
00242 26 02490
.0,
00254 M9 00370
00261
,0610,AOO 2 TO RESULT
00262 Jl D02aN
SUBTRACT RESULT FROM MANTISSA
00214 22 00000

..

.50
,97

AM

BRANCH

OOOO~

02492 OOOON
OOOSO O]31L
03422 00000

,0,

, FAC-2
lOOPt18

00005 -0006

OE~O

000-1
000-9
00000

02854
OOONO
00097
00000
00000
OOONO

00000
03)28
01300
00000

00001

SYM80L TABLE
LERFAC 01422
FNHfoIl

033'>8

SOL
OOOSOR
97MlF OB6}

El
LOOP
S02
98MF

02615
00262R
00158~

OB2O

FORTRAN Relocal;t.bl,e Square
Hi'lt Rqutlne wit!ll'loating Point
P!iIJe 1

ERROR 03596
ONEl
03038
SQ3
00470R

FAe
SQEX
9SPf

02492
00462.
02854

FNH

SQ"T
91MF

03313
OOOooR
03.323

FORTRAN Relocatable Square
Root Routine with Floating Point
Page 2

00010·.··.
00010
00010 A8S
00040
OOO~O

1620

FO~'RAN

OSA

AIS

Tfl
8NF
tF

FAt
'.26
FAt-2

00060
00070
00080

n

00090
00100
00110 HC
00120

81
DOAG .-q

11-0
,A1I5-1
,FAt-I

DORe. .- q

CF

FORTRAN Relocatable AbSolute
Vllue Routlne with Floatlnq Point
AnOCATAIlLE ABSOlUTE VALUE RDUTINE
OOOO~ 0000' -0006
, III
00006 00 024tl OOOON
,0
00011 M~ 0004~ 02491
..
flOlfiNG 'OINT NUIOIIU
000)0 n 02490 00000
OOO~' 42 00000 00000
000~4

FAt

OS

,02492

DENO I

SYM80L

ASS

OOOQbR.

FAC

Paqe 1

FIXED POINT NUIOIIU
OOOH n 02~92 00000
000" 42 00000 00000
00058
02492 00000
00001

TA8LE

02.02

827

1620 MONITOR I SYSTEM FORTRAN II-D FLOW CHARTS

o
8211

PIi.lH I-A

.·

~1I4

1G

...--.-~--.

•
• YES
• 'Ur~~Uln81 •• PGPI

.

• itI(itlES
• ____ • ____ e •
NO

°IB
i---i~i:r'/

II

0

I
I
I
01

I
I
I

Ie

-------'""·i---,.--~

I

IJ

'/---CAlCUl"ATE----'/
I
SUBR.ENTRY
I

FI~llToR

I
I

OF DIM

I
I

AODR FRCM
DIM AND PUT

I
IN TABLE
I
---------.--------I

10

SECTOR AODR
UF EQUIV
TABLe

I

PGPI

IK
.----.----*

j---OETERMjNE-----j
I
I

I
I
I
I

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

---~fA;;- oo~;;-----

I
I

Iii

SU8R. ~.IIE
TO SYMBOL
TASlE

I

FIVE
I
------ ...--.--------I
111M

I

lK

I--"'Move-L18:-----'/

Allle----i

I'r:~l~~l
WlTli~·1 VE

I
I

I

NO
• Nl14

" " HAS EQUIV
" TABLE BEEN
" PROCfSSED

I
I

I
I

"

"

.----.----.

YES

"

IG

I

I
I
I

I
IL
----------------INIT.READIN

...

AREA TO
FLAG ZERO
ZERO

---------6--------I

-------.-------I
I
I
I

1620 FaRnAN 11-0
2A

•

•

*----.----* •

• IS

FI~ST

•

.----.----.

•

2G

.----.----.

"

YES

1-

!I
I

2R
--SF-C~ i ~3:5

;---1

~~~o~gv~ f

CARD INPUT

TO CHIS

II

---------6---------I

YES

I

2H

I
I

.----.---

• IS eHI>12

I

I

•

A 72 OR 71t

·

• ____ • ____ e

I

I
I

I

YES

• PGP4
•

•

2l

"

2E

IT

---- ___ e _______ _

I

"

2Q

" • IS CHI+12
EQUAL.ro
" 7Z OR 74

·

•

NO

PGP7

"

3A

I

II

iV

I

I

.----.----.

.

NO
"PGPb
2K

2X

2K

j---TYPfiiuT-------j

j---Movr,iiiir----1

I

I
I

II

ERROR,JNVA-

h~hO~M~T

I

II

I

---------r-------HAL T

PGP4

I

2l

l---sfl"-· --------i
I

I

PUS.rSN
TO 2 OR 4

...

II

I
[
-------GOTO _------N21

N.lIf "'10

DI~ sc~

I
--"---,-,...Gelp

I

PHA.SE B
AND

SET JAY-I

2J

. ---.----."

•

I
I

.!.... ------- .-------_!

PGP6

---iiEAii- i~-------

RECORD

---------.--------I
!I

LDI SK
• ~ REtake

2P

2 OF

2U

0

""IS THIS i.

yes...

j---Tvpe- Qu'i------,
I

•

2U

I

I
I

I
I
[
I

RECORO-

NO

II

:~2~: 0

2N

I
I
I
I

•

GO TO

•

PGP5

NO
PCPS

j---TvPECU'i-------j

•

I
I

•

•

" IS .THIS A

I
I

I

•

-----___ e _______ _

NO

• PGP3

.----.----.

2N

.~

.----.----. "

I

. -- .----e
·
..
.----.----. "
PGP3

•

PSTSN
RECORD

•

I

PAGE

2G

• 15 THIS A

I

I
I

I

PHASE I-A

PGP2
YES

• PGPZ

CHAMACTER
•
.'. A-N ASTER (SK. •
.0

--------.------I

II

IS

I

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

N21

I
I

IS

p,,,e----.---e
3A

"1' TWIS
Rm~O
•

,,,.

J'

•

'E$--- i----·
,

i--~i£&;Ruy------l

~gp.

AN ' .

'.

---------r~:---

38

r-jj~g~~T-------l

-1---!i~iAiijia~----1

_________ e ________ _

L_______
T
------ W
__Ae ...
_

II

GOTO

I
I

.e----.----.

N21

IS

3C

• FINOK
•
VAll 0

NO

•

PGP9

3E

e----.----e
I

YE S

JG

I
I

30

.---;OVi-FANOK----.
I
I

TO FLNG

I
I

ANa kLNG

I
--------.---------I
GOTO

N21

IS

GOTO

N2l

IS

831

PHASE 1-8

1620 FORTRAN 11-0

PAGE

IG

LEAD8l

-1---5; .. '''0

-.lEFT PAREN

!_-------.-------_!
TO

I
I
I

YES

2G

2R

4A

fO

I
I
I

2N

NO
• Glil

• " 2P

2U

NO

•

28T

IT

· .---.....----.
• .LEFT PAREN

I
I

TOI 2U

"

2I

ZY

j---SEY--' --------j
CDNTlNUE

I

I

I

I

~~~~T TO

I

I

CKI
•

PlIO

"" OECOOA
"

YES
• CKI

---8ii---- "-ASCA~---

I

.----.----. •
•
YES

YES
• DOlOOP

2X

I

II

··.----.----...
I
COMMA

I

I

NO

I

I
I

•

...

• CONTINUA• TID"' CARD

•

I
I 2S
.----.----.

yes

I .
..-- -.---.----.----.

YES
• RECORD MARK • GLiZ

•

I

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

2R

N~XT

I
I

AREA

•

•

2M

· •----e----.
•

8l.NK~

•

2H

Gl'l

INTO
CONTINUE

.----.----.

NO

NONARI

GliO

ELIMINATE

I

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

NO

I
I
I

•

•• GL 10

2l

2N

I

I

I

DE CODA

.----.----. •

CKCtHU

ZQ

COUNT

NO

" PAREN COUNT • OECOOA
•
lERO
•

I
---------.--------

I

I
I
I
I

I

I

GOTO

I

2V

-1---iiEAO-CAiip-----j

I

" 2"

I

UOS
II
I nON
ICKeN UI
--... ------.------...- 22.
GO TO
ASCA"

2H

- ________ e ________ _

2K

• .EQUAL SIGN

.. OINO

I

II
I

•

I

• 224

...

r--i~3r ~~i;~----i

I

.----.----.

20

I

j--iEsT-~oii------i
CONTtN~AI

I

I

2J

' . ALPHAMERIC
NO

YE S

-RIIlHT ,PUEIII'

YES

.----.----.
···.----.---....

NO

2P

··.-.---,...---e.-

,'YES

•• NOIUR I
• 4A

I
I

II

IC

•

•

2H

..----.----e •• ae.9

,Glll
•

2U

••• "'CA.DS
UT .,.0" •• • II'~AN
•

COUNT

2H

••---_e ____ •

!--------.-------_!
•

I

.----.--.-.

. ' R~i~=D
•
NEXT

I

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

lilll

I
------,---.-,..
.... -- .... --GOTD
G,L,9

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

j~--S;;iFT

,

-1---i80;~i~------1

2R

•

.----.---ZI

.
•

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

• CONTI"UE
COUNT

EOUAL 4

22A

PlIO

• CK2
•
•

3B

I

YES

I

TOI 3A

83:1
,I
1620 FORTRAN 11-0

rHASE 1-8

PAGE

3A

1--------·--------1
I

I

I

ERROR 43

I
I

I

I

I
---------.--------GOTU
"EGIN

IB

II

.

I
I

YES.
CKCNTU •
zw

•

.----. ----.

·

30

•

CUM"fNT

.----.----.
I

•

.

NO

II

•

.---- .----.•
3E

." ~g~mUEO
" S TUEMENT

·

yes
".m
3G

834

3 OF 38

1620 .0.'.'.. 11-0
..ONAItI

•

U

•• MINT
~;-;;;;;:-". III
fND
•
•

·

• --__ e ____ •

NO

I

I
I

.

• 11M

"0'

PAGE

5 OF 38

JI

--------,---1112i:li;i° I
---------j----I

I

NO

USlD 1'4&"

•

\ "H
.----.---.

. ' ~tnEME'H
• 'TUNS
FER •
• ____ e ____

. ' CA~2pu,
'.1'41
• e--__ e ____ • • 40

·

I

YES

"Gf

4G

'8

.----.----. •
•

I-I

PHASE

YES

,

•

ILOCK2

4P

SLOCK]

4Q

NO
•• Nl
•
"L

\

\

\

4C

•
•
YES
• 010 STMNT.
•
HAVE NO
•
• • ____ e ____ • •
4L

C"CNTU'
- _______ e _______ _

NO

I
I

NI

I

4J

.----.----.

I

.'0

.

\

I
,

40

4K

SLOCK4

j---SCAN-TeSr-----j

I

281'4 1

I

I

\
\
\

•

nSK-

ERROR 52

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

\
\

•

U

oursc I COPY I

I
WITH FIRST
THREE CHAR
I
_________
e ________ _,

I

~¥m

.----.----. •
4E

N3

NO

• FIRST THREE. ERROl
CHARACTERS

·

g~Tscl~8°m

DISK

I

~Ah~I~~AT

•

• ON TABLE

4S

SLOCKS

'4L

r--l~A~HE~:~;--,

"M

----_____
_I
,
Sg'NS e ________
STMNT

YES

r-------· -------,I

I

YES

EUOI

4F

e----.----e •

•

.* ~~R'~:=T.

·

A*.N)

.

4L

• OECLARAT \ VE.
• ____ e ____ e

I

NO
TO

\

4T

BLOCK6

ERROR 01

,

!_-------.-----_!

4G

835

1620 FORTRAN
COLNA~

j---j~irr
I

ALIIE-----,

---------e ________ _
I\
Al1

\

.

••

JIIIARK
NEXT

•----.----e
\

•

X'l
•
5F

I

I
---------e-_______
_I

I

I •
e----.--__

I

•

•

~U~:I~
e ____ • ____ •

.

5f

I
--------r-------I, l~~:C;E~S
IN 5YM

,

•

NO
CSI

•

5L

I

- - - - - - _ _ e__ _______ _

SIIfLU

--------e-_____

.--------e------.

!

I
e----.---.

01~MENSI0I'4

r-~~ijfi-------i

55
e____ .----e

C50~1'4

5L

' . ~TATEMEN'

•

~5A8u
6K

e-__ •\ ____
5X •
•

••

•

I\

5K

ERROR 56

e51

'.

CHAI

\

I
I

••

•

~2
51'4

5F

_________ e _______ __

II

.Ho--i---- .

e twlllEIIUC

e

YEs---r::'
.lIt

•

5W

• 'FIRST

YES

'10

5E

I

.---- .----.

a

YES

• ~Ull8ER
e
• 6k

a----.----e
\

NO

I 5J
e----.---.

YES

••A1'

•

\

· e----.--a

e ____ •\ ____
50 •

I
\

I

~~LmT NO

• NO GREATER
•
THA~ 9999

I

•

5V

e

• fiRST
• CHA. A
a.OEC. PT.

\

~---~~~~!~!!~-----!

e

I

5H

r--j~~~~· OFF----'

5C

,~A:~CTERS

••

AT

\

r--~~8~R~&r~r----1

5U

r-'sT~~:giiFL----I

I
\
---------.-----I

\

II

HCHI

5N

---------.------_!

58

•• RECORD

~O

~m~f

CS2

\
\
\

.---- .----.
\

------,I
5G

---m:~t

-,I

IONS

\
\

PHASE 1-8

CS TNO

INSfRUCT-

\

11-0

5A

E

I

••e s? "r~E~T
0\

~rlHl

0
0 •

o

•

'U

00

Hxl~R un E

•

e ___ e ____ •

' . fLCH2
e

5Z

I

YES

I 5Y
I---J6T;CADAFl----l

--------e--______ _

I

.LeH2

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

NO

e

Sl

l---~it~;j~----I
-------r-------TO

8U

"

1620 FOURAN II-D
FLtH)

loG

j---iiovi-t.O------j

I
I

CHAit Til
SYM

-I---!ii~tls'o

I

f

vif'¥1-1

---------.--------I

1

j---iiiiiTro------j
I
I

•

I
--------.----..... .,.-I
I
1

I

I

.----.----.

.e :~~~.MERJC
•

•

•• FLCH~

•

I
I

/oF

yES---i---·
I
1

6J
j---SHiFiOo~---j

NO

~~.k8fl D

I

SMTLU

IA

·.----.----..

I

Y~S--'I----'

6$

I

I

ERROII 11

I

IEGIN

II

61

j---iiGijio--------j
I
~~8l~YIN
I
I SYII
I
$MTLU

'4

6Y

!

!ZNJG7E:As

I

I

--------r----~---

6T

FLeMA

.

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

t

.--.----I

FlCHI

•

•

- ________ e __-.. ___ _

GOTo

611

j------.--------j

FLNU'"

I i"t~t'Ely- I

I

I

,,'6X

j---SHfFyo?FF-----'

--------N---------

---------.------... -T)6G

I

GO TO

tON STANT

FLCH'J

" , = "TI~'N

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

-.I . -----_e_. .______ _I

II

~~M~ArY I..

VIS

• FLtH'

~ij~tiiit~::---I

I

I
I

,
NO
WUII 'RE- , 'LCN1

FLCNl

.

I

....

,

GOlO

•

,

6E

SYM AREA

,

NO
•• FXNUII.
•
6U

NO----r---'

FLCH..
6F
,---ii'~HT' --------,
I

¥~'R

,

---r::--,.--.--I,
YES

" 2AflllT~8lN •• 6T

---------.--------I

•

6U

R';~Oijii:----l

tt_---_---_.

6R

•

ERROR 08

, "

w'--... -.----_

,--------.---,-----,
I
I

, /LlIUlli

•
. • HAV, F

1

I
I

YES

· .
No----r::'
...---.----" :Mia

60

•

,

• NI'X'

•

·.....--.----...

• tOUNT LESS
•
THAN 12
NO

,

6P

" Bli I ~AL

•

----_____ w_ _ __I

GOTO

I
.----.---.

·FLtHA

NO----j----

1bC

•

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

,';;-;-,~~~-'"
l"LU
SIMN
•
•,
, • I.

.

,...,...

ifiW~r;-----i

I 'H

68

tH4lt4CTER
tOUNT

I

i-

6N

---------~------

!

I
I

'HASI I-I

'4

6P

6l

• NEIT
•

,

NUMERIC

yEs--i-----

•

,

•
•

~o

•

CMPAR
78

TDI14

837
1620 FORTRAN 11-0

PHASE 1-8

i---ciillEcT-----~-,

I NUIIBER
I
I---------e--______ _
I
GOTD

PAGE

lG

7A

FLCH8

-I---~m;f~~----il
SY"

6l

-.-------.--------GOTD
SIULU

IA

e ___ • ____
tllP41t
18 e

•

•

•

• NEXT

CHAR AN E

•

·

NO

• FLtH.

•

•

10

..o~---·I----'

r-::::: O~:------l
11'

-------- .--------lEG IN

GOTO

II

e--__ .____
l' .

FLCH10

.----I -- .

••' li.fIIl.. '. ,IiTLU
•,
... .... , IA
VIS

TO

7G

IU

1 OF )8

1620 FORTRAN 11-0

PHASE 1-8

Ie
•----. ----a
, •

VES.
SMlOOP . .
88.

A2

1nST • '

~A~b~s~~W ' .

·

•

lOS

• - ___ e ____ •

NO

YES
A3

•

•

•

BC
*----.----e
•

• TABL£ ENTRY. A1
UStO
•
•

·.----e----.
.0

•

•

SVMMOl

TABLE FULL

.----.----.

YES

•

•

•

AOVAR.

9X

YES
FCTES T
llC

I
I

I
I
I

NO

BE

.
·····.----.----.·· .

1--------·--------,
I

I
I
I

I

ERROR 04

---------e ________ _

YES

•

•

.----.----.
8F

A\

• LOOKING uP

··

A1

•

CONSTA~T

NO
TO

I
I
I

I
I
I
I
I

NO

8N

• LITERL
•

!Mm"T

NO

8X

YES

• WAS
•
VAR~A8~E
'.01'1 HS ON

8V

e----.----•
I

I

II

\

I
I
I
I

·.----.----..·.

NO
A5

·

06
8l

!I
A4
I
BY
1--------·--------,

.·

····.----.---.

9A

I
I
I
I

I
I
I
I

ERROR 32

I
I

I

.·
····
·
.----.----. ·
I

I 8T
.---- .----

8M

YES
COME

AOORESS IN
C SORN-I

9L

NO

8R

I 8S
.----.----

YES
lUXIT

A2

--------RETURN--------TO

YES

I
I
I
I
I

IN 1/0
STATEMENT

9A

NO

IN DIM
STATEMENT

I
I
I

YES

LUXIT

I
I
I
I
I

8l
•----. ----a

8Q

.----. ----.
···
·
.----.----. ·

8K

WAS SYM A
1I8RARY
FUNCTI ON

!--------.--------~

WAS VAR
DIMENSION

YES

.----.----.·..
·
····.----.----.
I
I

NO

I
I
I

ERROR 03

····.----e____ e ··

9A

I

•

I
I
I

•

I

II
I

I

BO

•

.---- .----.

NO
LUUT

--,-------*-------I

I

.----.----.

NO

IN INSW TO
INDICATE
VAR WAS IN
TA8lE

8F

I
I
I
I

•

•

I
I
I
I
I

8J
---------.
--------SET DIGIT

YES

•

·.----e---• ·
lEFT PAREN

• - - __ e ___ •

YES

t¥~~l~~~~CE

A5
I
IV
,--------.
--------i

8P

• NEXT A

BW

• IN

az

NO

I

.. SVM

'.
•

·.----.-----.

8H

IU

YES
U

I

I

.----.----. •

88

~~M~mEA

NO

SMLOO • • TABLE ENTRY •

.---.-----.
·
'.
.'
·.---e----•
.
i

IN

• NAME

I
I

II

NO.

·.----.----..
·.----e----..

IN COMMON
STATEMENT

13U

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

NO

HG

TO

I
I
I

8l

A6

'---SET-iiiov4R-----i
TO INDICATE
DIMENSION
VARIABLE

I
I
I
I

I
I
I
I

---------.--------I

au

TO

I
I

9A

839

1620 FORTRAN 11-0

·.----.----..

lUXlr
•
•

8M

I S SYMBOL

•

TO se
• OuT'UTreO

•

•

.----.----.

YES

I

I

·.----.----..

AN ARITH
• FUNCTION

.----.----.·

YES

AIO
9<

!

I

I

---------.--------I

•

•

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

•.
•

•

•

•

WAS
VAR U8Lf

•

DIMENSION'

YES

•

A8

9E

I

AIO

90

I
I
I

IN CSORN-I
TO OUTSC-I

!-------.--------!
GOTO
OUTSC
AS
NO
49
9G

•

I
I

214

·

VARlAllE A
• FUNCT .NAME

·.----.----.
YES

I

lITERl

·
YEI·.---.----. •
.---- ..---.·
I
VES---j---*
III

9M

9F

r-~~~iXf;------1

lU TllO ••

~V~MN~OFOR ' .

qU.

1M

•

NO

I

TO

•

I

II

9V
.----.----.

••

88

9Q

---------.--------GOTO
lUXIT

I
I
I

!

AOVAR

9R

I

I

INO~CA'

8M

GOTO

lUXIT

I

9A

.----.----.

••

to~H ANT

·YES---',---'
.---- .....---.

I

J~mATE

I
OCCURRENCE
I
--------.---------

9Y

9S

-1---m~m~F---1

NO.
SlIlOD' • TABLE ENTRY •

88

9X

r--jii~I~~;-Tii---i

I

S~~ 1~~NO
I
!--------.----~---!
FXllT

•

•

NO
..
SMlOOP • TA8LE ENTRY.
•
a SVM

'---SET-iNj;-ro---i

9l

SMlOOP • TABLE ENTRY •
•
•
A COIISTANT
88
•

•

---;;0,0"-·-47------

YES

I
I

A1

GO TO

NO..

•

I

I

ARITH FUNCT
OPERATOR

.----.---.

9E
•----. ----a

• WAS

88

9K

I
--------.--------I

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

NO·
•
SMlOOP • TA8lE ENTRY •
•
• SVM
•

I
I
I
I

i---iiuTPUC------i

I
I
I

~O~I~'NT

•

I

9P

I

9J

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

.---MiivE-.00;-----1

I

-----.-----

A STMNt NO

YES

·
.
Nu---T---'
.----.----.
··.----.----.··

••

I
I

ERROR 36

I

I

89

-

88

YES.
•
SMLOOP • TA8lE ENTRY'

IN ARJTH

-

9 OF 38

9U

SMlOOP • TA8lE ENTRY •

.----.----.

·
.
·-----*----.

I
I
I
I

I

!I

NO

1--------·-------1

NO

NO

~A~~~UH

9S

I

I
I
I

lUSTNO

• LOOK ING FOR •

II

NO

9C

•

YES
FXUT
•

FUNCTION
• DEFINE

I
I

I
I

.----.----- .
·
••
••
·.----.----.
9N

I 9H
.----.----.

98

I

PAGE

9G

YES

OUTPUT
SYM80l

\-8

• WAS VARIABL •

I

I
I
I

"j-------- .--------,
I

PHAS~

A9

~A

•

III TABlE

---------.--------I

I

9T

NO.
•
YES
S"lOOP • TABLE elHRY • lUXI T
•
• SVM
•
9A

I

I

·.--- ----..
·
.--------I .
I

..

•

9l

• IIEW SYM80l
A CONSTANT

110

TO lOA

9N

8~O

•

9A

1620 FORTRAN 11-0

I'AGI 10 0' II

PHUE I-I

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

lOG

-I--Tli,;n:rr---I'
E TRY

."lMm2~

·

'100

I

---------j---------

I
·.----.---.
.
· I .
I
·.----.---.
.
·.----.---..

• IN

m~~SION

IOU

i----[ij;il"j;~----I
I N~U~OTIIIE
---------j---------

••

·..---.----...
I

10H

A12

'.

AU

1011

NO
,\14

•

PF~~~mN

..

.'

e----e ____ •

lOY

.

'.

NO

I

A14

10J

-I---im~~:-~:----i

NO
LUXIT

nm
I
---------.---------

• NEXT LEFT
•
' . PARENTHESIS . .

'U

L

YES

I
I

II 100
.----.----.

NO
411

•

10F

·
.
.----.----.··

• IN
DIMENSION
• STATEMENT
YES

•

•

AOO~ESS

I
I

ENTRY

1

•

·

IN

YES

•

I,

ERROR 10

I

--------- *--------I

YES
AI5
IOU

I

I
I

·*----.----* .
·
··

All
'10

A12
10H

•

•

I 10F

IN Ftr OR

•

SU8RY STMNT

A 13

10M
..... ---.----.

··

s

~u.

.----.----.
I

•

•

• SYM 5TMNf

*.

9A

•

·.----.----..
.- --.----.
I
r-:::::-::------j
• NEXT EQUAL
•
SIGN

....

•

•

~~=~6~

•

II

TO

STORAGE

I

I

I

NO

I
I
I

I llB

I

II

i~~:~~s
I~

TABLE

GOTO

LliXIT

• LEFT PAREN
• NEX T

*

•

• • ERR34
YES
•

.----.----.
J

"0

•

11K

Gore

.----.----.

•

.

AOSTN

I
I
I
I

I
I
I
I

FUNCTION
INDICATOR

I
I
I
I

---------.------LUXIT

I

9A

I
I

II

.----. ----.
.' ·~M'2ENT
.----....---.
llF

I
I

I

\IQ

OFF------(
I
I
I
I

--------- j--------

.---.---.
I \IR

•

.-

~.:gR1IN

* • PROGRAIII

.---- .----.
I

I
I

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

•

NO

••• +2
• 11 T

YES

I

TO llG

YES
• ERR34
•

11K

MOOAFT

I liS
-II---~~~nb:::----l

lIL

.---IN.T.1iue----.
I

SINGH
PARAMETER
UBLE

I

I
I
I

!_------....
------_!
GOTO
GLI
END
•

•

A~ORESS-SET

•

•

.----.---. •
11M

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

NO

1 N SUBPROG. • •
• +3
•

YES

I

I
TO liN

I

I 1E~8°W TO
I
-------- .---------

I

IIU

llQ

I

IE

ALLOCATION

I
I

--------- *-.. . ------liT
r--OUTPM' -ENii----.
I

I

M==hvM.

t~roaE~~M_

I
I

---------.-...------TJllU

r--~Vmr-------l
I

I

BUFFER IF
NECESSARY

I
I

I
-------.---------I

I llV

I

I
I

·
··.----.----.·.

IOl

i---t~s;~~Tr~~----1

I

OVERFLOW

11K

r---:::::-:~----!

liE

.----.----*
.' lMim,

NO

III

I

II

9A

.---GO-Tci- OO------j

------.---.-------I
.---TUR~-

11K

I

LUXIT

I

ERROR 58

(---SET-lj SeO-----(

ERR34

• +2
• 110

NO

• ERR34
•
* llK

YES

• ERR)4

NO

·

GOTD

I
I
I
I 110

.---- .----.
NO

• CONUIN
RETURN

llJ

.----.--~-.

•
e IN COMMON
• STATEMENT

•

.----.----.
NO
I
I
II liP

YES

9A

lle

FCTEST

·.----.----....

YES

YES

• ERR34
•
* 11K

I
I
I
I

.----.----. •
•

j---PlACe---------(

I

I

PAGE II OF 38

I IIH

____
... ____ e ________ _I
I

CONSTANT

_________ a ____ .,... ___ _

liN

·.----.----e.

J
--------....I --------

II

.----.----* •

• ON LEFT OF
•
EQUAL SIGN

lOY

TO lU

llG

• ---MOYe- STMNr:---(

II

I
I

PHASE 1-8

ll4

.-lOl

1---~~AH~Hx-----1

I
TO ION

1620 FORTRAN 11-0

·

IDS

I
--------.--------I

NO

• • YfS
ADSTN

NUfillBER

.--__ e ____ •
NO
I

lOT

YES·
•
lUX IT •• l~8:¥T T~~T ••

•

e ____ • ____
ADLIT
lOX e

eQUAL SIGN

NO

I

.

NO
• ON LEFT OF • • LUXIT

FCTST

I

I

I

I
I

•

ZU

I
I

I

I

NEXT TASLE

I lOR
.----.---•

YES'
ASCZI

((I

TO

FUNCTION

I

10L
j-----------------•

IDE

•---MOVE-SYMSOl---.
I

I

II

•• ~~~~¥ALENCE ••
e ____ e ____ •

10M

I
I

II

I

I CAll
------...---------I

10K a
• ----.I ____

NO
AI3

10Q

r--i8T~f~j~j;~----I'

I
I
I
I

STORAGE
ALLOCATION

I
I
I
I

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

BLOCKI CONTAINS DIMENSION, COMMON AND fOIlMAT
DIMfN

.---- .----.

121

SETDM

.---CaLL Eci-;;-----i
I
I

CHARACTERS
IN SYM

I

I

.----.--.

!--------.-------.!
I

NO

I
I
I
I 12B

•---- .----*
•

SYM-ENSION

-

.

•

I
I
I
I

120

I

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

I

aI

I

I
I

I .. DIMS"

I

I
I
I

•

~b

12E

84

*----.----*

•----e-___ *

YES

I

-

•

I

12M

•

NO

I

- DIMI

~~~'N

••

11C

NO
12L

•

NEXT
NUMBER

•

•

YES
B3

•

12N

•

•

I

YES

I

!

YES
86

• *llV

12E

•

•

•

I 12X
.----.----

I IZM

YES
- BEGINA

-

.
•

COMMA

-

NEXT

NO
- B2
e

-

12M

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

- DID ~AR
APPEAR AS
- SUBRT. PAR

82

• 12M

_ YES
B7
III

e

a---_a ____ •

NO

I

II

12T

I

12l

.---COLLE': T-------i

1--------· --------1

[---MODIF Y-SYM----i

1--------·--------1

I

I

I
I
I

I

SYMBOL

I
I
I

I

I

I
I
I

I

ERROR 19

I

I

I

I

I

I

---------*---------

--- ------ *--------I
I

UBLE FOR
2 OR 3
DIMENSIONS

I
I
I

I

I

TO lZU

8LOCKI CONTAINS DIMENSION, CO"MON AND FORMAT
B7

13A

C3

.--------. --------i

I
I
I

I

NAME IN
SVM"OL
MEMORY

I
I
I

I
I
---------.--------GOTO
SETO~

I

ERROR 32

I
I

I
I

I3F

NO

DB

C2

I
I

[
I

I
I
I
-------__
e-- ______ _I

---

I
I

YES
- C1

YES
C3

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

•

•

13G

•

L 3E

-

I

NO

I
I
I

•

•

I

01

I

•

I

•

-.----.---.
I
I N COMMON

I

13Q
,--------.I--------i
I
I ERROR 33
II
I
I
---------.---------

-

•

I 13K
.----.---.
WAS SYMBOL

IN TABLE

NO

C5
YES

YES
e COMIN

I

I 13 •
----------------PLACE·

COMMON

ADD~ESS

I

C6

• 13P

130

•

-

I

- .---- .----.
-I
• SYM

EOUI~AlENCD

13E

YES

C~

-

13F

NO

!

I3S

13L
---------------I
MOVE tOMMON

i---PlACE' --------i

L_______________ J

I

II

IN COMS.

I

.---- I.----.
13F

"No---T----

- NEXT
•• Al~HA.fTIC

TO UG

I

I

I

I

~mEnB[g

---------e-------I
II

ADDRESS FOR
FIX OR

I
I

!------~~~~-----!
TO I3N

I

II

I

13M

-l!---~~~~~--------I

I

COMMON
ADDRESS IN
NAME TABLE

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

I

YES
C1
13E

•

-"

113T
.----.--.
COMM'

'IEXT

a

NO
- BEGINA
-

-----r--" TO I3U

"

SYMBOL
TABLE

IN

---------6--------II

13R
.----. ----a

III

CI

C4

I
I
I
I
---------.--------II
FORA~~1Y

- I3R

1---SEy-OiG[y-----[
I

gm~~T~m

• C5
•

C6

•

I

I
I

I3V
--------- I---------

NO

I
I

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

!
I
---------.---------

I

NO

[

I 130

f~ROR

LEFT
PAREN

NEXT

. - - __ e ____ •

IB

YES

I 13J

-

• SYM
PRF.VIOUSLY

•

---------.--------I

,--------·--------1
I

•

I
I

I
I
I

-.----.----1 -

I

•

I
I

TAtiLE

13C

a SVM .. MON

NO

SYMBOL AND
PLACE IN

BEGIN

SYM

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

130

• ____ • ____
COMIN
13P e

13H

j---COLLEC 1-------1

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

·- .----.----. --

•

C6

.. EXT

13U

.----.----e
-- W~b2~~~Y

YES

COMMA

"

12G

I
I

I
I
I
I
I

.---- .----.

YES

C4

I

COME

13N

I

j---c OLLEC r-3-----j
C>lARICTERS
IN SY"

PAGE 13 OF 38

13G

'---PLACE ·YAR-----I

COMMEN

I

I
I

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

I

TO 12&

I

ERROR 21

I
I

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

I

lC

12V

DI"Z
NO
•

.

I

I
I

[

I
I

I

B2

12F

YES
_ B5

I
I

I

i

•

NEXT

•

NO

12S

COMMA

I

. - ___ a ____ a

I

I

•

--

I

•

I
I

TA~LE

.----.----

I
I
I

.
-.----.----..
I
.----.----.
.----.----.

- • RIGHT

•

.---.----.
-.----.----.
•

TO SYMBOL
STORAGE
AREA

I

I
I
I
I

TO SYMBOL

I
I
I 12.

---------.--------I
.----.IlzR
----

NO

•

•---_e ____ •
YE'

•
•
NO
• NE Xl
• B2
AlPAHBETIC
•
•

•

Nf XT

----- ---- .--------I
I
I
I
I

I
I
I
I

12K

" LEFT PAREN

I
I

I

I

!

.----.----.

I 12V

I 120

12J

_-12M

"

---------.--------I

NO

I
I
I

I
I

l~lLE~'l~

··---T----

B5

I---"OY[- i NOeX----[

•

"-

---------t
--------I :my ~m I

YES
82
• 12M

I
THE SYMBOL
I
TABLE FOR
lONE 01 MENI
SION

12r

I
I
I

•

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

--~.-

-

i---seT-A ·1-[N----.

•---sEr-o iGiT-----.
I

Il2P
.----.--I~~SX

I
I
I
I

I

I

""HAll

UL

.••
••
.----.---I .
_

I

ERRUR 01

I
I

STORAGE
ADDRESS IN

ADSA~E

I
I

I llC

NO

lit

I

---------.-------I

I

6-------1

_________ e ________ _

I 12H

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

I

12Y

.---SAve-sv;;Boi:--i

YES
- - BI

I

DIM I

•

lZU
*--.----e
3 INa- -_ nS

UN

r-~~m

I

• ____ e ____ •

NO

13

I2G

•
•
YES
" liAS SYMBOL "DIMZ
" IN TABlE
-

I
I

lC

I
I 13X
• .----.----..

COMMA
NEXT

.----.----

NO

_ BEGINA

.-

•

lC

"COl 14 0' II

8LDCKl CDIITUNS DIMENSIDN, COIIIION AND FDRMAT

.---- .._--.
••
•-14l
·.---....---.

FaR"AT

HA

•
• liAS

ST"'H

•

~~.l~

~O

•

YES

••

•

148

I/O

~UM8E~

•

e__e __ •

_________ e ________ _

•

WAS NO

;ktC~~

·

I

••

"0

oOI:~

LEFT PAREN

I

;1

I
PA~C~T oI~1T
I
I
RECORD LGTH
I
I
FO~ FORMAT
I
--I ______
SPECS e ________ _I

I
I
I
I

ERROR Z1

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

FO~MI

\4E

R/M AT E~O
OF ST~~T

•

I
I

14F
CONTI~UAT-

·
•

I
I

1011 CARDS

•

I

l:R~~IIIr,

•

I

I

114M

•

NEXT ",4

YES

I
I
I

14S

• 14,.

GOTO

..

o•

• +2

•

I

I

--------r--------

.----.----.

IU

E SYMBOL

I
I

TO ZERO

14l

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

I
I

I

• • NO
HYPE
o

• 14V

F
•.----.--YES
I ....

FORM3
I 14l
r----~~;T-------I
I

BLANKS

NEXT
NUMERIC

110

I
I
I

I

•

i---cENERATE------i

YES
••
• +2

•

I
I

15C

TOTAL
WIDTH

I
I

I
I
---------.------I
II 15H

1~8

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

[~:::::~::~~~~]

o

··
o

·.

~o

WIDTH
GREATER
THA~ 81

o +Z

.----.----.

YES

•

15K

I

I

I

TD 15A

r-------· -------1

i----ciiLL ECr------'j

I

1_____:~:::_______1

15J

!

ERROR 35

_________ e ______ ... ,..._

I

I
I
I

.---.----.

..
··.----.----.
I

o

I

L______ ._______ J
I

NO

o

o

15L

I

NO

I

TO I5G

•• l'H

..
•

I

I

NUMERIC

I
I

PDI~T

I

I
I

I

I

r-----~-·

I

••

·YES---i---I

o•

.

15W

I

.---.----. •

··.----.----I

II

•

TO 15U

o

0

NO
e

FORM'

• 15Q

~o
••FORMI
•

14L

vES---j---.. •

I

FORM1

•

• ZERO

YES

I.L

15Y

I UT

•

FOR"I

•• • ~k~~H

I

PARCNT
-...-------.---------

• PARCNT

I

II

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

I

I
I

U.

CO""A

II

GOTO

mTm~

•

15'1'

i---oUYPuf--------i

15S

.----.---.

••2

I

I

NO

e FeM",

PARE..

II

~O

~~~~A

I

j~--oUYPuf -;Y----~j

I

1511

...

YES

I

I 15R

I

•

I
I
---------.--------I

.

15V

--------j

ERROR 35

FeMA

I

.---- .----.

IB

·.- --.----....
··.----.----.

150

BLANKS

0

I
-------.-----...---I

i---sHIFT ·o;;;;-----i

I

YES

• 8EGIN

I

UP

I

I
I
---------.-------TO I5N

I

•

.---.----.

I

FORM5

END OF
STATEMENT

~o

I

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

ISM

DECIMAL

•

•

emw

II

i----iiurpuY------[
I
I

0

NEXT

r---t~~h ECY------,

• 15K

.---..----. ·
I

WAS THERe
••
MULTI-SPEC
• +2

YES

I
I 151
.----.---.

YES

II

· ....---.----.
I

o

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

YES

YES

DIGIT IN
I HYPE

15E

•

15N

o •

.---- ....
---.
I

-1---iiUY;uf------.

.··

•

·.----.---. .

I

I 15F
.----.----.

NO

NO

~D

I

.

15k

I 150

~IDTH

PAGE 15 OF JI
• _ _ • ____
15U e

151'1

I

II

ISC

1

I
I
--------.---------

I
TO 14U

15G

15A

•

I

I
I
I

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

BLOCk! CDNTAINS DIMENSION, CUMMON AND FORMAT

•

I

I
I

!_----.--•._-----_!
I
I
I

14T

~EXT

I

14'

I

FORM 3

FTYPE

NO

j---:::::.::------,
I
,

-'----SeT i AYVpe---j

II

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

I
TO 14N

TO 14G

0

i~TI~ml

• • ____ e ____ • • lltP

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

• HYPE
•
14T

•

SYM80L

II

I
I

• H

i-----iiUyPUT------i

NO

j---iiUTPuf -i------j

I

.----.----.

•

I

I

YES

.

E

I

I 14R

I

I 14L

•

I

.----.----.

.----.---.

•

II

YES
•• FO.NT

• I5l

NEXT
I

•

II

-1---tHEC~ ·;;ii~-----i

·

NEXT

NO---'Ir---'

I

FDRMZ

!_-------.-------_!

!-------- .--------!

...

.----.----

1411
•

NEXT
SLASH

YES

8LA~KS

I

I

I

·
•

16C

0

• __ ... _e ____ •

NO

i---sHiFT· ii;;;;-----i

I

•

•

14'

14V

HYPE

1~1,..

_e

I

·
·

•

I

j---cLEAR· iiuT-----i

---------.--------GDTD
•
>4

14Q

14K

i---Aiiii-oNE-rii----i

I

NUMERIC

1

I
I
I
I

I

~EXT

I
.---.----.

I

I 140
i--------·--------i

I

•

--..-------e _______
I

14l

r--~um~-·---l

14P

II

mm:2~

I

FD.,n

.---- .----. ••
·.---e_, . .

••
•

j---iiUypUf-------j

YES

~O----i----·

I

GDTD

14J

.----.----. •

I

I U'~hil I
·

I 14C

•

• 14J

ND

I
I
I
I

'0

------t--------

--_______ e ____ _

!-~------.- .. ---..--!

•

YES

·.·.2

14H

II

}~ I~~~tATE

•

ND

j---SEy-iiiGp-----i

II

~UINUH

I
r-::::·:-----l

I

I

II

.----.--.

.'

14U

14N

14G

I 15l

r--ouypuf --------j
I
I

~Mi~

BLA..KS

OFF

II

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

!

TO I6A

I

BLOCKI tOrN

-I---iii~~; TO-----

PAREN '" }fJM4

NO

PAGf 16 Of JI

1"

FoIIM4

.NO---T---·
TO 114

TO UU

848

ILOCK Z CONTAI"-I~IV,CONT,'SI,STOP"UNC,SU","'.
•

"A
.---.----.

• 'UYI2 US

·.-.---. .
.-..--.
1111

•

III ," r=I!& ,'.
,
1" ,

vES

••

l3:Ma:
·..o---r--'
..'l;l
I
.---.----.

'0

• ·WaS'IEY

YAR EQUIV

•

•• ~81
•

•

•

llU

VEs--T---'

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

. ' NIIT

"

~A'I"

r--::::-~:-----l

11.,

.---.---.

110

~---.---

'.

I

o

,

IU " ~&YvV"
o
liE

."
,

,

1---i3kkl~i-----l

Nii---T~::'
-'---iii:;a;lu----1

---------j-:::-----

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

VES

1m

.

11H

118

,

"III 110' '1

I 11J

VAltll=LE

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

.----.--.

.' '¥Okl~

IIii----r--·

'.

I

GOTO

EQ4

.1.1

l--.sT~;iii----1

•'.:::
•• 11"

-------.-.-.------GOTO
, . ., . .

11L

.----.---.....
I

I
.----.----.

11M

18F

•

.·COMMA

'. l~l

•

,•

IJItEXT

-------....- --•.---.--.•
....

I

•

lfG

.

E14110

.

Ut . ' £rl'"Sra:.D "
111
,
,

..o--j-'

1U

r~ii:-l...-------_
1111..-.
.-.....-n. .··1'
....... •• ..
., ......
.

1----::::-::-----1
110

IIa-I'--'

1.E

111

.,;;-,-'

o•

TO ttA

TO 1111

849
BLOCK 2 COMTAIIiS-EQUIV,COIIT"n,STOP,'UIC.,S\III.·OI'.

.

.'.

, ----.----.
1tA

" m4RVS
V

·.----.----.
I

• USE

III
•

•

..

110

11 ..
dv

GO TO

1114

EQLOOP

19C

r

r-

1ijlli;------1

··':5----1---'...
•

-

• • NO
III

......-.----.
.'·~!nll
•,.11.110
•,• ."
.
.-...-....I----. • atN

.....04

it'

'1$

TO '"

. . .l1Q

--.---.
19V

•

•

VIS

.', ,vnTl...
•••••
MAlia 110
• ,.
1 ...

.

IIO-r:"

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

ItO

,~I~usi----l

~i!eyi~-----i
------GOTO ...
UU10

-----~--

---------i~::-----

.---.--....

.. 19M

-----r::---

I

190

•
, • .A'
IOUI.V..

.--0,----.

r-

I

--------j-------I

0

"'TO

liE

I

TAIlLE atf

•

,

______ e ______ _

-I--~~~:·Sy;__·--i

r..mfE

• , YIS
•

lUI

r ritijii---l

II

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

1'til

19'

----FiNO- Ji-v-----j

I °muHJn
Tlr.t ..----

.--.-..-.

o • Villi THE

COIIT14

I

1"

I

~~i,-------

..0----,.

r-:::-:---l
-_____
e_I ,9M

HomItts

-~r.::-•*-",---*
• •••
• • 'VII
MTlIIUE
•
•

·.......-.--... .
110

Toll'"

I ...

NUSI

'"

I W-U~

--r:-.
.
____ .--__ e

•

•

..........--.'.

" s,."
110

USI

Tolzoa

lSi

'IS

"

,·,~I

BLOC~

1 CONYA I NS-EOUI V,CONT ,PSf, S TOP,FUNC, SUeR, DEF.

r--:::::-:~-----l

--------C---------

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

---------.--------I
I1 lOH

20A

STOP

I

lOB

I

DUMMY SYM

---------.--------YES
I
1
I 20J

I1
1
I

zue

•

• RECUMD MlMK •
NEXT

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

•

NO

•

YES
•

BEGI~

•

18

1
1

.----.----. •

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

I

I

••
• +2

I

CHAR IN SYM

1

• 20F

I

I

I

-----____ e _______ _

I

1
1

·.----. ----..·.

VES

I
1

•

I

BEGIN

18

SVM

=

• +2

NCT! ON

• 20N

.----.---.

i---OUTPUt--------i

lOV

I

1

I 200
1-------- --------1

L_______ .-______ J
I

ERROR 30

I
I
---------.--------GOTO
BEGIN

L__:::::_:___J

18

I
.---.----.
20W

0

I

•

•

•

IN

SUBPROGRAM

SUB RO RAil

0

1

XX2

20l

20Y

,---sET-suiiiicr----'

I

L______ .______J

I
I
I
I

•

I
I
I
I

I

I

• Sy,.. =
•
BROUTINE

TO ONE TO
INDICATE
SUBROUTI NE

--------e---_____ _

I

lOT
.---- .----.

I

-I ________ e ________ _I

lOS

~awl~ ~YM

1

ERROR)O

I

I

---------C---------

•

20Y

I lOX

---------.--------SUBP

•

I

I

r-i!ri~il~i!:----

I

NO
• +2

••

i-------- --------1

20R

I

•

.---_e____ •
YES

0

1
I

NUM8ERS

I

i---sETU;OTO------,
I
OUTPUT
I
SUIROUTINE
II OPERATOR
II
-----____ e ________ _

SU.,I~GRAII

.'

I

NO

I1
120M
1-------- --------1

2UF

1
I

·.----.----..•.
··yES---j----*.

GOTO

1
I
I 20L

-I ________ e ________ _1

GOTO

I

_________ e ________ _

-------T:::-----

20K

i---COLLEt T-;;----i

YES

ERROR 53

1

1

FUNCT

I1 20E
i--------·--------i
I
I

1
1

SYMBOL
GOTO'

20U

i----:::::-:~-----i

I
1

1
1
1
1 luD

NO

r--~¥~:UT------i

!_-------.-----_!
I

1

• NEXT
NUMERIC

I

lON

-I---SET-up-TO-----'
OUTPUT
I
FUNCTION
SYMBOL
II

r-:~~:~·:~-----l

I

I

- ________ e ________ _

• .----.----. •

I

1

i---ourpui--------i

I

ZOG

~akkEI~ ~YM

PAGE 20 OF ).

I

·.----.----..

H2
•

YES

••

·.----.----.
! .

• +2

•

20V

·

NO

-l
20X

I 20l

.

.----.----. ·

. ' mUIIENT
VE S

NO

I

I

TO 21l

TO 20U

851

BLOCK

TO ONE TO
INDICATE
SUBR OR FCT

.----.----.

I
I

·

I
I

21B

..----w----.
.LP~A8ETIC

~O

•

.·

•

•

•
• COMMA

I

I

i

_____ J
•

·

• llH

• ____ e ___ •

NO

I
1

·

YES

-l

ZIT

.---- .. ----.
·.
····
· .----. ·
RECLG GRTR
THAN 2
.-.~--

NO

I
1
I
1

C LLECT Nl

i---OUTPut --------,
I
I

LEFT PAREN

I
1

I
I
--------e------

I
.----.---.

DEFINE

'---SHIFT
°OFF-----iI
I
INEOI SK
1

---------

•

• NE.T

NO
••

·•----e---..
ALPHABETIC

•

•

YES

.-)
• 21H

I

I
121M

.

r-j~mi!::ND---I

~O

H

21J

YES--T---'
TO ZIG

-------__ e ________ _

I

I

1

1 llL

•

llR

•

•

1
I

i~~:-----

e---.---e •

•----e---•.

I
I
I
1 21X

I

I

.----.----.
·
·
· ···
·
YES

-4
lIT

N2 GRTR
THAN 20000

• ___ e ____ •

NO

I
.---- .I----.
21V

yes

• NEXT LPAREN • •
• +2
•
•' 2·1U
NO

1
I
I
I

!--------.------_!
I

-7 21H

1

IlIK

I
1
1
I
1 21W

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

YES
•• eEGIN
•
IB

•

I
1
I

I
1
I
1 llV

210 e
• ____ •1____
. . na~T
• PAREN

COLLECT NI
CALC RECLG

!-------- .-------_!
1

11

•

• -I

PAREN
NexT

YES

• 210

L_~~~~:.--

NO

• LEFT
•

---------e ________ _

1
I
I

• +2

i---OUTPut--------,
I COliMA
I

·
.·.
·•----e----.
21J
.----.----.

•

---------.--------1
I

NO
••

ZIP

21H

- ________ e ________ _

I
1
I
I

•

21U

e--__ e ____ e

1
1

ERROR 20

.

NEXT

YES

r--:::::-~~----I

I1 llC
i--------o--------i
I
I
1
I

1
I

II

•
• NEXT

+2
•
210.

. - -__ e ____ e

YES

.----.----.

YES
•

.----.----

•
• NO
• FUNCTION
• BEGIN
•
SUBPROGRAM
•
IB

I

I
S TATE.ENT
---------e-_______
_I

I
I1

21N

21G

i---sET-SUBS;-----,
1

PAGE 21 OF )8

CONTAI NS-EQUI V.CONT. PSE. STOP,FUNC, SUBR, OfF.

ZI"

·
NO

-5

ZIT

····.----.----.···
~~·~AREN

YES

ZIT

r--:::::-::-----l

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

T)2IN

&52

IEGINA

IC

aLOCK J COlI" I II. ...CAN ,"D ourIC
ASCAN
•

ZZA

.: i!!!t,~iT
:';;a
e ___ •• ____ e

·

.

---~.--------GOTO
•
-I

.---,---.

YES
•• ~=JS STATEM *•• +

·No----i-----.

r--ERROR I'

•

22~

•

1

NO.

I

GOTO

1m

•

NEXT ALPHA

o

•

YES
••
o +2
o 22G

•----a----e
I

NO

I

NO

I

I 22F

•

•

1

o

NO
••

-I
• 22W
0

•o

YES

•• 22'

•

NO

••

•• ~A'~N

0 ________

• NEXT
NUMERIC

22T

• ~IJCT

I
I

o

2ZX
e----,---_e
•

0

e---.----.

ASC4

i---ERROR'3;------j

!________

ASC6

••

~\M~
a ____ • ____ •

•

I

I
I

•

• NEXT

••

I

-2 22P

22S
.---.--.

• ___ • ____ e
•

I

_________ e ________ _

2

I ~7m
I
I
I
---------.---------

I

.',2.

0

I WI

j---iiui;ur-------j

!_-------.-------_!
•

NO----r--·

•

j---EiiiiOi' ji------j

---VES---r:::-----

'--------1

IN OMII

I

•• ~~~~~AL

O

0 ________

r--m~~

22Y

o

N°---T:::
-I---~m~' -------1

220

I

AlPHANEA1C

Ill)
•

*.
o

I 22C
~2------i

1________

.-NEXT

21P

zzv
.--.---.'. XU.
• 'Nln

21P

228

• HAVE NO

~BM::--l

- _____ e ________ _

I
I .
a---.--__
•
•

YES

r

1---;A;OA.ii------l

NO

IIU

AICn

UN

.----,----- •

PAG. U 0' ••

.----e----.
I

•• 22~

0

YES

TO 2211

85;1

PAGE 23 OF 31

aLOCK 3 COIlTAINS ASCAN ANO OUTSC

<3A •
e----. ____
•

•

•

•

•

SUBPaOG

N ..... E

·
I
.----.----.
• ___ a ____ •

NO

•

YES
ASCI

• 24V

J
I

.----.----.
I

NO

YES
•• CAtl2
•

37X

I

I

.----.---.
•• .
•
.----.-.
I
•• NEXT

I

ASCI

I
II

11~21

•

.----.----.

•*. ~~~a

•

...zif

.----------.
I

o

ZJf

23Q

i

I

23F

YES

o •
• +2

•

TO ZlG

13H

Al ",*"Ea I C

I

SIGN·

o N~T
e ,

NO---r--'

•

2]S

'0 2]U

2U

I
I
------.--------e-_ _ • ____
BY •

•
• 0

•

~~~NT

YEs---I---'

22T

NO
•• ASC 1

•

o

• 2)1

.----.----.

23T

• It,

I

I
I
---------.--------GOTO
ASC24

.---.---.

o\5C25

•

22Y

ASC4

I

I
I

j---E"ii.iiii· ;;------,

-

•

NO

123M
---------t
--------I
gmKE

YES

23S

• -NIXT
•

.----.----*
I
I

YES

.---e--__ •

--_.----.--------GOTO
ASC24
235

•

!------- .-------_!

~----i----·

I

~m¥ENTIAl

I

ASC24

j---i.;iiii ',.-----,

.---.----.

•

•

--------j-------I
.--.---.
-.Illl
·.---.---..

'III

!

I

NO

0

r1~~V!~~------1

)~~~l

J
I

•

2] •

• PAaCNT

ASCI

•

' . MUmm G

230

I

I

- ________ e ________ _

I

---------t --------

NO

••

.----.----.
·
'.
I

•• 2lT

j---ERRiiii'ii------j

YES

23J

• NEXT

~Yk~J PLY

YES

·22U

II

23C

STATEMENT

YES

••

~i:lN

23U

• NO
.• ASC25

·.----.----..
1m.
.----.--• Ja
.02;l
.----.---.
I

••

NO

I
I
---------.--------NO

•
• NUT

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

i---E"NDor-------j
I

23N

r-E"iiiiiiii,'i----l

23H

I 238

ASCT

.----.----.

23G
0

231

•

0

•

YES
• 0 +2
• 1lV

."I~
•

..-_e__.....:f'C7
TATENfNT

YES

OUrsN

• 2]'

na.

PAGE 2 .. DF 51

BLDCK 1 tONTAllIS asCAN AND DUTSC
asC21
o

2.. G

24A

.----.----.

YES

o nlGIT
00 l?SN
o .--__ e ____ e o

·.·.2
o2.c:

I

NO

II
I

I

!________

1---il::~;;~ls ---1

--------j---.----.---.
o

I

I

!
I

o ________

o

•

o

END

OF S JA TEME'l

o T

24(

j---SET--"--------,
OMM
TO tERO

I
I
I

I

I

.----.---.

o

PAREN

.----.---.
! .
.----.--I

I
I
I

NEXT

·

I

I
I
AStl5
I 2 ...
.----.---•

·.

NO

•

.· .
.
.----.----.

•

PAREN

NEXT

NO

!

•

LEFT

•

I

I 24S

• 26S

YES
••2

• 24Z

I

!

I 24Y

j---COLLEt T------j

j---iiUTPUt--------j

j---ERROii"09------.

I

I
I

I
I
I

AND

I

g~mlTERS
I
!I________
o ________ !

I

tOMNA

I
I

I
I
---------.--------GOTO

II

I

-9 2"H

I

I 24F

j---ouTPur--------j

I

~~~~TlO'l

. ·.mll

I m:TTmE I
--------.---------

• -7
• 24J

e ___ • ____ •

YES

~~~m8N

22M

I
I 24N
'---MO~E-NO-OF----j
I
PARAMETERS
I
I
FO~ A~ITH
I

I

• tOMMA

I

0

o +3
o • 24'

o NEXT
o

o

NO
••
• -I
• 2"~

YES

o

• RIGHT

24R

•

12U

24E

!---~~:~~!~~------!

I

I 24Q

.----.----.

24V

.---.----

··No---T---'

I

··•----e--__ e.
YES

.'

---------r--------

2 .. K

I

o

I

I

o

IFSCAN

AStI

I

24~

•
• NEXT
ALPHA

I
I

ARITHMETIC
STATEMENT
DEFINITION

24K

.----.----.

YES

L.

I
I

2~D

2.. W

•

NUT

n~~L

'0

r-tgii-~~£;------i

NO

j---iiuTPur--------j
I
I
I

o +2

I
I

!---~~-~~~!~~~~---!

I
II

0

I

I

I

o

.2

p

NO

!I ________ o ________!I

j---j:;~E-"--------,

,YMHOL
TABLE
ADDRFSS

PARA14TER

o

ND

o

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

j---eRROR"-ib-----,

!_-------.-------_!
I
II
I
I

•

.----e-_.

YES

I
I
I

2.. "

-1---iil!l!i~-~:---1

I 24H

24H

j---ER;OR";l------j

24U e
.--__ • ____

•

I
I
--_______
e ________ _I
I

I 24M
.----.----.
•
•
PAR.AME TEA.

••

.----.----.

• 24J

VALID

•o

NO

II

24T

YES

TO 2 .. G

0

-l

I

I
I
I

!_-------.-------_!
24l

j---ouji>ur --------j

j---ouTi>ur--------,

II

1
I
I

II

m~T ~~~~N
TO JAUE

-------- .--------I

I

I
I
I

!_-------.-------_!

!

I

I
TO 24N

LEFT
PAREN

TO 25A

TO 2"U

855

8LOCK ) CONTAINS AStAN AND OUTSt

.----.--.

PAGE 25 OF 38

25G

•

o DECIMAL
•
POINT
e.NEXT

.----.----.

•

U~ARY

MINUS

I
I

,

·

J 25H

• LEFT

•

PAA.EN
• NEXT

·

YES
•

+2

I

I

I 250

NO
••
• +2

YES

• 25F

I

I

ADD ONE TO
TfMPORARY

e-___ • ____
25V •

•

.----e----.

YE S

·
·.----.----..
NO

-0

o

I

!

ASCI2

•

NO
• ASC29

·
·.---.---.
I

VAR IABLE
• FCT NAME

258

I

25W

-,---iiujpuTI' --------,
COMMA

II

---------r-----------.----.

•

25T

III

25E

I

'LU~ SIGN

---------.--------1m
.---.----.
'·NEXT
Ill,?
I

•

o

.
00

·

U'HAMO IC

0

0

~----r-o
TO 25G

ilL

ASC27

25L

r-nE:~------I
---------;--------125M

-,--~8i~:~--T---~
SVMIIOl
I

------.---T)"N

AStl4

255

'--SH'FY"-------,

I
I

I

DOW"
PARAMETER

~mASC\5
--------.--------

.----.---e

ASC2'
•
•

0

125T

I~DSTA"M!N

.---e---.
YES
I

•

•o r

TO 25U

II

0 •••2

25V

25Y

.---.----.
•
HOP ARM
~,~aL

• •YES
e 2;~

.. .----e____ • •
e

·

NO

NO

•

NO
• AStl2
•

•• 258

yES---i-----

o·

•

.

ASCIl
2"

:mT

•

-2
• UI

o PAREII
•

25B

.----.----. •• :es

ASC2I
•

25X

•
• IN
•
ARt TH
• .FtT. CALL

YES

i---~~lGi~gFF------1

I

II

II

o WAS

NO

• ASC28
•

•• 25l

I

ASClO

• !ES
• 250

o .----.----.

II

•

• COMMA
•
NEXT
••

I 25R

----~~~!~.~~~--GOTO

I
I

L_______ ._______ J

I
J

• NOPRAM
NEGATIVE
•

I

r--r~i~iii::~:~--i
I

I
I

25P

I 25Q

I "25K"

·.----.----..

• SIGN

,

I
I

I
.----.---.

I

--------- .------I
6

25R

,---'ERROR" 40------.

L_______ ._______J

J

GnTO'

• -3

FROM NO OF
PARAMETERS

IJ

I

• • NEXT
•
PLUS

I
I

I 25J

I

0

j---suiij-" ONe-----j

j---ERROR" ;;0------,

I

•

• FeT

I

I GOTO'
1
I
---------.---------

.----.----.

·

25U

NO

o

VES---j---·

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

NO

I
I

• CAll FUR
• ARITH SUINT

•
•• 25L

e ____ • ___ •

j:---iiuypur--------,

o

YES

Ase27

0

J

NO

.----. ----.
25N

•

.---.----.
I

NO

TO 2U

851

0

'All 16 Of II

aLOCK J eOlTAINS ASCAN AND OUTse

ZtA

UG
.--._e

·oy;s-o,_o
r.

i---iii:;O---------,

r J=TSIlI
I
GOTO
ASCI
------------------

••
2Jf

ATIMINT

•

I

0

0

0

_________ e ________ _

II
.----.----.

I

•

• T PAAtT

No---i---·-

••

.'253

' . NEGATIVE
o

YES

GOTO

•.

0

~j~aL

·.----.----.
.----.I----.
NO

•

•

• NEXT

COMMA

•
•

---------j--------

YES
••• +3

CALL

•

·

. -___ e ____ •

YES

I

II

•

YES---r--'

•

NO

• IS
• ASCZ9
' . J~~l~BL~AME '·Z5T

ZI>N

0

I 21>L

•

I
.---.--.
ZI>R

•

.----.--.

.

ASC14

25S

Asell
ZI>S
j---sET-NDPiiAii----j

I SUBPROGRAM
l8 1~81~~~~ II

I

CALL

I

---------e-------__
GOTO
ASe 15

0

24X

I

I

YES

• ASC]O
•

.---.----.

liD

26Q

l--ii:~~;-------l

•
• NO
• IN
• ASC7
• NESTED
•
• FCT CALLS 0 Z]B

26F

•

Ase9

Z3F

·•---_e___•.
NO

I

•

ASCI

l~l TH

• FeT

0

• T PARCT

••

,.,

0 - -0 - - 0

•

21>E

+5
21>K

•

l---eRiDiO;;----~

ZI>K

21>D

VES

•

_________ e ________ _

I

t ..
·.----.---··
..
'----r---'
I
. ·.----.----..
o

YIS

0

_________ e ______ _

0

• I

•

rkk.•
@omEnI
.·z61

N~--'I--'

21>J
-'---SET-OiGIT-----i
IN fNTSll1
I

UC

•

0.•

• •Z6J
+2

rrno.O-.o---------.-------

!

PAREN COUIIT

•

NO

UH

r--mr;~~r----i

eo__.---e
UN

•

• 25W

ZI>M

r-~nr-----

I

I

I

_________ e ____ _

0

GOTO

I

ASC7

Z]8

I
TO 21>6
857

BLOCK J CONTAINS ASCAN AIIO DUTSC
OUTse

.----.--.

27A

r--iii:~i~~ii-----i

I

Ni3 OF SUBse

• *NEXT
• RT PAREM

I

I

I

•

---------r-------I

I

•

•

NUMERIC

• +2
• 21J

No---i---

•

• 11K

I .
· ••··.---e--_...••
liD

-1

•

I

TOIZ7G

27P

I
---------j--------CALC 01,02,
03,D4

I
---------,--------I ~¥H~~m ,
27Y

••
•

•

r--~iA~~i~iiT----

I

••

~24
21F

I
I
---------.---------

Z7Q

Z7S

se9

Z7K

~mA

-2

27H

o

YEs-T::'

-1-toLLE~-T- - I
NAME

I

-_._-----j-------i

27K

•~Pz
Z

• 2fC

NO

.---- .I----.

•• NEXT
• MINUS
•

I
.---.--.

YES--OI---'

Z7M

·.---.----..

• 27R

.---.--..'
·
.'
· ·
.
SC3

J

•

VES
• +3

~Mrf~CTED

NO

.---.----.• US
'0
·.- ..----..

T
•• • 251M..

·.---*---.
I

..

• ARE ALL

27H

---------j-:::-----

St~.----.----.
1m

OPERATOR
• PLUS

.----.----

VES

r--~i;~~~~::---l

0

•.---.---.
NEXT

YES--·'----·

YES--T:::'

•

•

I Z7J

*. ~2J

.0 •:tU.IU

•

27U

liD

27H

_ ________ e ______ _

I 27t

• -NEXT

~ES

••

.r-:::::O:---l

AND POIIITRS
-----_
_ e ________ _
I

i .
.---.---· .

Z7N

•

I

27~

-1---~~iFlmE-----

sezz

PAGE 27 OF

Z7G

NO

•

27M

• -NAME
• FIXED

Zll
•• L

·YES~J=-·.

•

r-~il~iiiI8R--~-1

----e_____
_
sc"
;oTO

21F

8511

]8

8l0CK4-CONTAIIIES-OUfSC (COPYI. DO. NON DISK 110

--------~~~k1c~E:S
DEC 10

21l

I---------e--_______
~---------

IN

SYM

I

-------,------

I 288

,

,

,

+2
280

,

,

.-----.--.
I

.----.----.
I

YES

YES

I
I
I

SVM80l

II

,

•

•

280
.----.----.
•

DOES SVM
EQUAL ACCE

• ____ e ____ •

ns

28S

28K
.----.---.

"

•

·
·
·.-----.----.
ODES SVM
EQUAL PUNC

NO

I

I

28N

,.. ----.----. , , ,NU
, ODES SV ..
, +2
,
EQUAL PRIN
, • 28H
20F

.----.----.
I

YES

YES

, +2

28l

I
I

(
I
I
I

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

I
(

I

21~

~I=rOl

FOR

j---E~~OR·

SYMBOL

.

01------1
I
I
I
I

---------.--------•

I

.-

I
I

2ev
.----. ----.
.-

.- IS SWITCH
3 ON

INOUT

DOlOOP

28T

.-.-VES

, .-

_________
e ________ _I
I

GOTO

YES

••• +2

•• 2IV

I
I
I
I

j---OUTPUt-./o----i
I

g~,'l~fl"i

*.EQUAL DO

.----.---I
I
I 2ex

I
I

I
I

•

NO

I

I
I

.- +2

294

30H

..

,e---- .----e ,

NO

"• • ~~Mmt
• +3
A TRANS
.----e
____ • • 2aW

I
I
I

---------.--------I

YES

I
I
TO 28N

TO 28G

·•----e---.
I .

••

•

• 28l

.---;;OO.F Y-./0----.

28M

OUTPUT
PUNCH
SYM80l

'l

ODES SYM
EQUAL TAPE

I

.---.----. •
I 21W

NO

YES

(---SEY-UP-TO-----,

!

! 28Q
.---- .----.
•

I

!

-:~-----T:::-----

I

I
I
I
I

,

21S

I

III

•

•

(---eRRiiR· iil------.

I

---------.--------GOTO
CK TAPE

,

• 28M

I
I

I 20E
I---SET~UP-TO-----I
I
OUTPUT
I
I
ACCEPT TAPE
I
I
SYMBOL
I

•

yeS
"·+2·

• ZIW

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

I

---------i--------

I
I

II
I m:v
SYM80l
!_-------.------_!
GOTO
Zl

NO
••
'+2
• 28F

I
I

IN SYM

I

T

I
---------e-_______
_!
GOTO

I
I

28J
1---seT-up-TO-~---.

I

·

ZIS

28P

+Z
28K

•

,

.'• HAVE
m,IIlUT
'NO.

'.ll
•

I---~~~km~:~----i

I

1 l8C

r--m:8n~:~---i
I

,

EQUAL TYPE

•

NO

VES---'f---'

ZIS

, .----.---. , , ,NO
DOES SYM

•

A ,

ZIH

, . - - - - . -___ e , ,NO
DOES SVM
EQUAL READ

II

GD'O

•

.---.----.
21U

ZIN

•

II

SYMBOL

II
,

CKTAPE

-I---~~h~t -TO----j

I

.----.----.
" la.mfu

ZIG

II

I

I

I

I
TO 28U

TO 29A

859
BlOCK4-CONTAINES-OUTSC

•

•

.----. ----.

• NUMERIC
NEXT

.-----.----.
I

~O

•

YES

••
.. +2

,•

19C

I 298

29N

,---eRROR· 25-------

, • IS INDEX

I

•

•

(

SYMBOL AND
STAlEMENT
NUMBER

I

(
I

I

,

OUTPUT DO
INDEX

•

•

---------.--------I
29J
.----.----.
-

• • [S INDex
•
FIX POINT
•

·.----.---.
vf<::

I

•

II 290
.----.----.
•
•

HAS NUM8ER
.8EEN uSED
'-.AS A LABEL

..

.. 29F

-----.---.

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

VE S

I
I
I
I 29E

• 29G

I

·24------i
•

•

•

•

IS NEXT

.----.---.
I

.----.----.
.
··.----.---.
I
29F

•

•

• HfXT

Al'HAlETlC

NO

TO 29G

• • •yes

• +2
, 2'"

,

•

NO

'l2
•
, 29G

I

I
I

·
.----.---. ·

, , ALPHMERIC

• 29G

I

I
I
I

---------r-------.---- I.----.
.·IS
·
•,
e----.---•.
I

29T

I

-------.------I

NO

•

,"Oex
VAL 0

YES

I

I

•

NO
l3
29X

IN 1/0
SUTEMENT

I
I

I

,

.

.

NO
8EGIN

29W

I
I
I
I

I
I
I
I

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

·.----.----., .
·.----.----.
I
.----.----.
·I~AJ'2ENT
TS~
29X

13
•

•

,

IS COMMA

NeXT

YES

,

•

NO

+3
30A

I

I
I 29Y

••

•

• ••

.----e----•

NO

l4

• llQ

I

I
I

r--e~~o;·

29l

2;-------

• 12
•

29G

18

j---eRRoR·z;------i

NO

, l2

OUTPUT
COMPARE
INDex

I

-1---cOFE~ 'ANo---j

T)29N

29Q

IS NEXT

29V

.----.---I

j---coi:i:ecTANO---.
I
I
I

•

.----.----.

YES

1295

•

,

,•

I
I

II

29G

I

II 29R
.----.----.

YES

I129M
~6i1AlIZE

l2

•

---------j--------

• 29G

YES
DOA

I
I

,

NO

•
•

~VMBOL

I

NO
•• l2

29l

AlPHMERIC

•

•,

.----.----.

VES

r--og~=~t--------l

I
I

I
I

L______.______ J

,

• NO
Z2
•

29K

•
• IS EQUAL
•• SIGN NEXT

ves---i----·
'---Eiiiiii~

IS COMMA

~EXT

yes

I
I
I

NO
DOA

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

.

STATEMENT

• 29G

II

I

I.

•

•

I
I

---------.--------I

• END OF

,

I 29P

--------COllEC --------T AND

29C

I
I

•

!

I

j---oUTPut-iiii-----j

.----.----

NO
l2

•

YES---j----·

I

---------.----------I

29U

••

VALID

29H

I

2~

PAGE 29 OF 38

.----.----.

29G

I
I
I

ERROR

00. NON DISK 110

(COPV).

l2

29A

I
I
---------.---------

fO 29U

SIll

'AGf 10 0' II

ILotK4-CDNTAINIS-OUTSC ICO"I. 00, IIIIM DISK 110

r-ruoi'n--l

---------r-------I JOB
.----.----.

•

IMI~lRlC

o0
o

.z~

29Z

0

yes--T:::

GOTO

NO

0

.----.--0 •

o

•

I

I

IIIDEX

_________ e ________ _

.----.I----.

lOP

• IS NIXT
NUIIE IC

YES
0
0

0

°3~

j---ERROR.iT------I

15

'OJ
i--~RROR"2~----,

I

I

.----.----.
00
•

•

~~AU~ENT

1~~T~~ENT

JOII

• IS NEXT

•

NUIIERIC

•

~oIOF
•

•

31Q

mT~=ENT

NO----r--·
o

I

•

j---ERROii' 2;------j
IN

18

I
I

I
I

I
--------.---------I

I

16

":ES
• +2
• lOU

"

30T

lOB 0 - -__ •

r--eiiiioii ·2'------j

~~~IN

0

18

30Z

____ •

."IS LEFT

i
I
-------.---------

00

• e ____ e ____ • •

•

• +2

•

0

I

TO 3U

,
PAGE

BlOCKIt-CONTAINES-OUTSC ICOPYI, DO. NON DISK 110

.---.---.
HG

3ll

r-CRROR"2a------l
o _______

.!

•• • b~M=~XT

liN

•

•

•• NO
JOE
• llJ

mA~L

I
I

---------j---------

I

I
.----.---.

00 MAS

•

INOU

VALID
•

•

•

.---.---.

NO---OIr--- o

•----e---.
i

•

yes
0

•

• +2
• • III

NO

3lU

I

17

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

--_______ e _______ _

o

o IS NEXT
o

AL'HABeT IC

o

I

I

JlE

JlL
•

NO
0

•

Z6

NO---- i----·

•

•

31K

•

00

NEXT

•

·NO----:----0

•

!ES

• +2
llX

:

31M

YES

••

.

• 'IS COMMA

I

310

RIGHT PAREN

•

I

29F

.--_.... ----.
o.
.0
•

YES
• lOA

... lOR

.---.----.

~~

3ti

"it----.---•

j---iRROii"2i------j

I

I

I

I

!_------.-------_!

!II
)1R

'j---eRROR'U--j

I

0

DOA

• 15 NEXT

NO

3lK

r-i8T~~fOO;----1

.----.----.

EQUAL TO

• .lERO

0

YES
10F

3lJ

• FLAG AT 10E
•o

3lE

100

31X

r~RROR.2a------l

j---OHYpur--------j

________ e _______ _

---------r--------

I
I

I
I

~y=:aL

I

]lY

i--i\et~;FLii~--~

'j--SET~liiG------j
AT 10E

--------j------

---------.--------GOTO
100

o 30T

I
.----.--.
•
•

I
I

I
I

3111

00

•

UU2f XIIGN

o

YEs---j--'

•

OF 38

I 31V

•

e ____ e ___ • •
•

10E

• I S IOlOOP
It

llP

UH

_________ e ______ ___

GOTO

o

I
I

YES--T--'

.----.----.

)1

')

31U

j---CiuTPur--------j

r-~~pliiG-iiT---l

•

318

0

I

NO

T)30G

:ES

00

PAREN
• NEXT
• ___ e ____ *

R6t

100

0

I 30X

.0 8

O

""IS COMMA
• HE'"

I

L _____

NO

0

0 +2
o 30Y

e--e----e 0

YES

YI!

0

I .
.----.----

YES

I

NO

0

o

lOR

No----r--

• ____ • ____
lOF e

00

•o

•

.----. ----.

3DS

•

.----e----.

~
o

.---.---.

o·

0

• 29Z

I

o

IDA
• • NO
Z~

130~

YES

II

)00

r--i5f.jiiiiiiiT----'
I I=DIAm~ I
-------..-e---------

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

• e ____ e ____ •

yES-i-----

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

I 300

• IS INDEX
o
VALID
o

'30.

rJJ---:.,----·•

)OH

rJJ----·,I--·

---------f--------

I

•

.;8."
•

'1

IEGIII

00

O

~~~~~ICAT"

)011

- _ _ _e _ - -

INOUT
•

.--.----.
••·RiII·'N2lf.· •• T51

JOG

lOA

r-~~~t--------l

rl

• 1
• *311(

TO Jill

812

liE

ax:

8LOCK4-CONUINES-OUTSC ICOPVI, DO. NON DISK 110

PAGE 32 OF

)I

.----.----. *. !ES
]2~

•

.'• ~M~F~W •• 32~

·.----.----..
I

NO

1

I
I
I 32S

j---ser-jolooP----j
1
I

I
1

TO rwo

I
I

I
I

---------.--------GOTO
100

HE

]2C

,---ouTPuT -LEFT---'
1

PAREN AND

I

PARCNT

I
I

ADO ON':

f

1
1

TO

I

--------- .--------I
1
1
I

I 320

'---SET-I OLooP----"i
1

TO THRH

1
1
I

I

1
I

I
--------.--------Goru
100

31E

8LOCK5-CONTAINEs-oursc (CO'V), 0 ICOPVI. DISK 110
DK IOEN

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

· .----.----. .
·
..

..

FfTCH

VES

NO
.. Ol(lOl

..

·.----.----.
ND

DKLlsr

II

I

I

I
I

--------- .---- ----DKLIST

I

33H

··

HC

.

NO
OKI02

·

.. F lto.C

I
I

.. 33E

I

I

I--------HJ
--------ADO ONE TO

I

DKPUT+ II
FOR 1I TERAL

---------.--------I
I
I

]]H

.----.----. ..
··.----.----.·.."Ji!
Ill< 102

..

NO

• IIlCOIID

VES

I
I

II

I
I

33M

FIND

•----e ____ •

Dkll S T

HH

.----. ---- .

..

NO

I
I
I

TD 33N

L8

• 131

I
I
I
I
I 33 •

•

.----.----.

•

HV

ELEMENT

.

I

I

II HX
.----.---•

•

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

• IS lIST
VALID

L8

1

I
I 33S
.----.---COMMA

YES

• OKA
•

•

33R

I

I

I

DKBI

NO
• DKEA

•

•

I

ND

•

I
I

I
I
---------.--------I

YES
.. 8fGJN

II

VES
• BEGIN

GOTQ

..

VES

I

•

·.----.----.

I
I

]]R

I
1

!
1

ELEMENT

1

---------.--------I

OUT pur
RIGHT PAREN

•

j---uuTPui--------j

I
I
I
I

.
. .----.----.. .
·

-,---OUTPUf-iil---i

33V

.----.----.

•
•
NO
• VALID LIST • OKe

YES

330

COMMA
INITIALIZE
SWITCHES

NO

I
I 33L

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

]]F

•

• ARE DONE

I
I
--------.--------I

33E

..

DKA

33P

I
I
I
I

.

DI SK 110
SVM8DL
OUTPUT LEFT
PAREN

DKLI ST

ERRDR 41

no

j---OUTPut--------j

DKA

I ]]K

--------our PUT --------GDTD

• +2

---------.--------GOTO
DKS

I

HU

YES

•

-------- .-------I

---------.--------I

DKPur

·.

ERROR 42

I

I
I

·.----.----....

DKIOI

CHECK FOR
LEFT PAREN

DKER

I
I

HH

j---O'SKSW -;;;-:I---j

I
1
I
I

..

IS THERE

A LIST

-----------------I
DKPur+ll
FETCH
SVM80L
SF OKlO

.----.----.
HN

ERKOR I

• HC

I
1
I
I
I Bd

Goro

PAGE 13 OF 38

nG

33A

33U

I

HV

fUOR 4]

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

1

I ~=~ SHIFT
I
!_-------.-------_!
DK8
GOTO

.
· ·.---.----...
OKC

33T

r--g~mf--------l

HZ

.----.----

•
•
NO
• LEFT PAREN • DKER
•

]3V

•

YES

I
I
I

TO ]4A

864

3)U

. 'AGE 14 DF I I

II.OCIt-COIITAINlI-DUTSC ceD"" 0 I Copy It 0111 110

141

1U
--I

,..~=J:L

-------i

e--.----.

o

oOLIFT PAREN

o

DKE
00

0

o

"O----i---I
.---.----.

DKD

~Ia

o

o

0

Y;-S-Ol--'

iS6Ai:

C

00

o

• UZ

•

•

•

,

DO LOOP

DKF

··•----e----e..

•
• NO
• VALID LI ST • DKaL
•

•

.--e---.•

DKG

DK01

I

··•
•

3~F

• tDNNA
• ___ e ____ •

=A=~=T. I
II DKLDOP.

YES

II

---------i~~~-----

.

0

• 33U

.

.---.---.

..

•
• NO
• LEFT PAREN • DID
•

·

e ___ e ___ •

YES

I

I

14R

OKG

•

34C

HR

14"

-,OuTPut7T:--.
m~=T
It

..
•

J4F

r-~T;utLT:----j

I 34L
-----.--

·YES

DKDL

YES

•

. -__ e _ _ e

•• ~~ER
• ·33U

• • COM"'
••

• • RIGHT PAREN • 0 NO
DKER
•

:S3Y

1

!
.---.----.

•

LI

34Q

-------i-------

I HE

IEGIN

.---.---.

________ e _______ _

I
.---.----.

0

YES

I1~K
.. --~;C?Bj~E~--·.

I

I

KiA

0·511

• ___ • ___ e

1

I

o.

'0 LIS

O

I----------I

I

YES

.--.--.
9'

'·END

MJ

I

••

14'

-------t---I ~~~:~ SY"
I

34C

ELENENT

I

•o

11

0

ND
• +2
•
J~
0

0

• OKLOO' -0

14H

YE5---'I--

3~D
j---iiUTPut--------j
I

•

...--.--0

• 0

o14R

•
• NO
o VALID LIST 0 DKt
ELENENT
0
•
• • ____ e ____ • • 3]Z
YES

•

0'---":
DKD

m -

.--.--.
54N

r=~t

---Iiiii!:~i;T----11

NO

• DKE
• 3~H

•
PARtNT-l

-----::C:--

I
TO'HG

865

PAGE 35 OF J8

ILOtK 6-CONTAINS-OUTSt ItDPY,", RETURN. IF. IFSS. GOTO. tGOTO. tALL

.----.--.•

RETRN
•

•

•

•

IF

J5A

.----.----..
NEXT
URN

I
I

J511

I
--.--.

•

.---.--.

YES

.•

lMm~m~N

NO

0

I
I

·No----j----e.

·.·.2
• 35E

I
j-------.--------j

I
---------.--------TO 2

.----.---. •••
•• 1I1.,t
·NO--L:~'

OUTSN

-I--UT--lhll
ON-I·
tND TC TO
I

I ERROR 51 II
--______ e ________ _
I

-------f--------i~lt~N
I

I

DUllII'

SY"IOI.S

AND

I1

--------r::-----

F1i

•

---------i-:::-----

-------i~:-----

•• Ii" EQUAL

II

YES
+2
• i'T

1---:::::·::------1

•• o

------------------GOTD
IIGIN

•

r-CiiWfI--1
e---.--o

Tif5;------1

15R

•

---------i-:::----J5E

•

yES
••

NIEIIiITCH'
• J;A
0

~.-.

NO

dUll

•• 3'X

ZU

1 m~n~N~~--l

----.-----

i
.--.----.
I 35V

•

mt~KNUR

•

NO

·e---e--..

.'

·.·.2
• 15X

o IIY 110

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

i,I--~~~=i~::~T---1

1UK

J5D

---------f--------II ~~I~~H
NUNlb
II

1m

r-=:·:----l
---------j---

YES

+)

•

YEs--j--:---e

135J

e----.----.
JSt

•

•

•• • '~S,:W~IE. • •••NO

I

-------C::-----

LOOP
• •
••• VO
T~mMITH .' 3;~
•

.'

m6~lIlTCH

35H

r-::::':~------1
________
e ________ _,
I

•

-1---iUY;ut---------

F ,
1__ t~!!~~IEN__~
I
OBT~~T

I

.---.---.
35U

35N

-1--~ETTI~--.

yes

••
• +2

• 35t

NO

J5G

1
I

YES

J511
j------.I--------j

I
I

ERROR 11

I

,

--------j--------I 35X
.---.--

.
·NO--r--'.
•

•

YES

. ' ART~ON'UTED ' . OUrsNZ
e

e 36F

r-

J~~

I

35Y

O;;-E---I

STATEIIINT
II
II NUIIln
---------,--------e-___ •I____
J51 •
YES
.' S9V:l ER
••••• )
•

0

·NO--r-·.

o 'iiAN ZERO

TD )6A

')IIU

811

Me

PAGE )6 OF ) I

BLOCK b-CONTAINS-OUlSe (COPYI. RETUR •• IF. IFSS. GOTO. eGOTO. CAll
IbA

*----.----* ..

..
• STATEMENT
END

..

I
I

18

.----.----.

NO

PUT RTPAREN

E~ROR

J6C

·

18

.. COMA

I

I 36J

NEXT

.----a--__
*
I

VE S

STATEMENT

·.----.----.
YES

..
..

NO
..

NO
36J

RTPAREN

-3

36C

YES

STATEMENT

I
I
I
I

YES BEGIN

---------*--------

I

NO

I
I

TO 36G

I
I
I

•____ •____ tt

. ·
·
NO

tt •

·2

36V

END OF DO
lOOP

.
..

TO 36N

35R

36X

FOR
COMPUTED
GOTO AND

I
I
I
I

LPARE~

I
I
I
I

J6Y

j---sEY-oiGly-----j
I~

I
I
I
I

CGTO

I
I
I
I

TO I~DICATE
COMPUTED
GOTO

---------.--------GO TO
OUTSN
CALL

35R

J6l

i---COlLECY-------i
I
I
I
I

I
I

TWO
CHAR IN SYM

_________ tt ________ _II

tt ____ • ____ •

YES

I

I
I

I
I
I
I

---------.--------I

I

---------.--------I

3bM

I
I
I
I

I
I
I
I

36S

I
I
I
I 3eT

TO ONE

j---iiurpUr-SyM----i

II

ro ON

I
I
I

I

COMPUT

l6R

.---SEY-YR INo-----j

..

..

.. 36X

OUTS~

I

I

*. ~~~PUT

---------.--------GO TO

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

36L

..

I
I
I
I

365

ERROR 01

j---ENO-OF--------.

.. NEXT

YES

• +2

I

YES

·.----.----..
.----.----. .·

NO

..

NEKT

I
I l6W
.---SEy-SrC-------j

I

I

.. WAS INDEX
VALID

-2

I
I
I

I
I
I
I
I 36F

OllTSN2

.

I

·.----.----..
.·

.

I

15

I
I
I
I

.-LEFT 'A.EN

NO

I

II

---------*--------I

I

I
I
I

E~ROR

I
I
I

I NDEX FOR
COMPUTED
GOTO

I

I 3bE

I

.----.----.

~O

OUTPUT

3~R

..

..
•

J6V

.----.----

II

COLlEer AND

CUT~N

1-------- ·--------1

36Q

.----.----. •

36K
---------

3bD

.. FND OF
..

ERROR 16

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

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

.
·.----.----..
I

• SyM EQUAL
•
TO TO

I

I
I
I

..

•

I
I
I
I

I
I
I

--------j---------

18

---------.--------I
II

I

ERROR 51

I

E~W~~s~=O

II

i--------· --------1
I
I
I
[

I
I
I

3bP

I
I

..

I

r--~~I:~~OFF-----l

.. 36K

.---- .I ----.
NO

BEGIN

GOro

• +2

.

*----.----*

.2
16E

GOTO

YES

I
I
I
I

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

I

I 36H

~OTO

.

---------.--------I

.----.----. ·.

--------- .--------BEGIN
.. 0

I
I

II

'1

36U

j--------.-------.
II ERROR 53
II

---------.-------I

I
I
I
I
I J68

j-------- .--------j
I
I
I
I

)6N

3bG
--------0------II COUNT
~~8~ P::EN
II
OUT-

YES
• BEGIN

I
I
I

I
I
I

TO 31A

TO leU

B67

BLOCK 6-CONTAINS-OUTSC ICOPVI. RETURN. IF. IFSS. GOTO. CGOTO. CALL
31h

•

•

•

e----.----e
SYM EQUAL

•

LL

• +2

.----.----.

NO

.----.---_tt

YES
••
•

..

37C

I

·
·.
·.---- .----..
NO

I
I
I
I

ERROR 01

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

37J

ERROR 29
I

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

I

I 31H

I

LPAREN

•

•

--------- .--------I

•

•

NEXT
ALPHA

FUNCTION

.

..

YES

tt tt +2

I
I
I
I

I

I 31Q
.----.----.

. ·
·
YES

-2

•

31N

• R JGHT

I
I

NO

37K
I
I
I
I

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

----_____
tt ________ _I
I

.----.----. •
)1L

•

• END OF
•
STATEMENT

tt ____ •___ •
NO

L_!!~_~ .____ ~__

I

I131M

•

• LEFT
• 'AREN

·.----.----.
I

• NEXT
NO

TO 31N

•

YES

••
• +2

• 31P

II

GOTO

IFSCAN+12
N BLOCK)

SUBRT NAME

37X

I

I
I

I
I

tt

•

37x
.----. ----.
•

CO"M'

NO

• •

.
YES---j----tt
NExT

•

+2

• 31l

I
I

I

II

I 31V
j---iiuTPur--------j

I

I
--------- .--------

II

I

I

COMMA

L_~~~~~.

___.

I

I

JH
---------c--------SYMBOL

NO
• C"LL2

.----.----. .
WAS V'R

ERROR 29

•

J

---------.--------i2hL~utPUT

·.----.----. .

CALL2

I
I

.--------. -------j
I

tt

•

31R

ALPHA

ASCll
26S

I
I
I
I 31V

YES

j---NExr-· --------.
I
I

•

I
I
---------.---------

I
I

!

•

I
I

•

37S

YES

• BEGIN
•
18

I
I

.----.---.

.
•

PAREN

•

I 31W
j--------. --------j

• NEXT

NO

i-------- .--------j

I

tt----.----e

I

I

ERROR 29

I 31E

ERROR 29

• 31L

j--------. -------.

I
I
I

I'
I

YES

••

• +2

.----.---.
II

• 31F

.----.----tt
NO
I

• WAS NAME A

NO

I
I

I 310
.----.----.
•
•

.----.----. tt
I 31J

I
I
I
I

·

YES
•

tt----.----.
I

II ~~~e2~E TO II
---------.---------

- --------.--------I

VAR AN

NAME

NO

•---iiurpuf--------i

I
I

TO ONE
OUTPUT
CALL
SVMBOL

WAS

ARITH FeT

•

I
I 31P

I

I
I
I
I

tt .----.----* •

•

II

FUNCTION
or·ERATOR
SET TSL IND
FOR FST NAM

j---SeY-CALLsw----j

•

I

OUTPUT

He

HU

I

II

• •2

I
I
I

HB

i-------- .--------.
I
I
I
I

YES

WAS NAME
IN TABLE

•

I

II

tt

PAGE 31 OF 38

31N

37G

I HZ

.----.----.

.·RIGHT
•

'AREN

·y!s-T---'

• NUT

I

TO l1U

TO JU

BI!!

~O

..ASCl
•

2)F

BLOCK .-CONTAINs-aUTSC !ca,Y"

·"0' II

R.TURN, I', I'SS, GaTa, CGaTa, CALL

a, ..

JlA

-I---a¥i:~i~-------I
J~8~ ~lEN
COUNT
I

---------j--------, 388

•

e----.----e •
~OUNT

• PAREN
'.

·

~~~~L

0

• ____ e ____ •

NO

YES

• •

.

. ' )~l

II
J8C

j---eNoiir-------j
I

STATEMENT

I

I
I
I
NO CALL2
I
I
________
e_ ... ______ ...I

YES

III

r-:::::·::------1
380

_________ e ________ _

38E
.---.---.•.

·No---T---'..
•

. ' ~~~T~=ENT

,

I

YES

•• 8EGIN
18

38F

r~:::·::------i
---------*--------

889

1620 FORTRAN 11-D

.---.---.

U6440

•••

•

NO

•••
.--e---e.

YES

•

•

•

• '·°9

• ___ e ____ •

I

·IC

"

j---AssiGN--------i

II

:28R8m~T

I
I

•

YES

.•

..'

,

CONSTANTS

I

•

•

I
I

---------e---___ ___

I

'. i~7u=AN
NO

10

I

18
.---.---.

·

+]

t~

•

•

•

)W

•

. ' ~~~NENTRY
• ASSIGNED

NO

I

IU

I
I

fOR Fix OR
FLOAT WORD

YES

•• unlo
1M

I

.

•• E92210
•

3R

.'

•

I
.--.---.

I nm L
I
!_----.-------_!
IW

•

r--i~C~E;

YES

··No--i----..'. '"
l~rL ~~~~

I
.---.--.

Elmo

YEs--'I---'

.

15
tt--.-_e
•

,'VAR

'.

·.--e--_e.
DIMENSIONED

•

I
e---.--e

NO
e

•

I

I IX
e--.----.
•

•

•
•• ~~'G
• OUlCE

.

YES
• • E91250

l~J610
2'

LT

•

·...--e_-_.
Xl

,

YE,

'.EI

•• ~:fINCf8U'e
•
110

,

IF Swl ON

El9140

~~9820
•• 3.

••

•• , lBfIIMON

I

;-------j

I
I
----__
e________ _II

IR

• • YAR

IY

I---m~ ~;-~~---I

lQ

YES

I

!_------,-------_!
I
I
I

•

I
I

LENGTH

IP

•

II

l~8 PROG

X2

j---SEi--NDLN-----j

YES

• E93010

· I
.---.---.
·.---e----..
NO

IJ
e--.---.
•

.

.'

OF
• TABLE

IH

________
e _______ _I
I
NO

E87210

IN
.--.----.
•

• END

. -___ e ___ •

---~jII!ii;;__----

Of

PAGE

IG

U

1~.Ap"OG

PHASE I-C STORAGE AllOCATION

6.0

IY
IU

e--.----e
EI1JlO

NO

8711

1M

.---.----.

E81610

•

•

1620 FORTUN 11-0

2'

• WAS
ARRAV
• EQUIV

•

•

·

2G

E 88420
2E

I
I
I
I
I

NO

28

Xl

j---;O;e-·--------j
I
I
I
I

08JECT TIME
ADDRESS
INTO TABLE

I
I
I
I

I
I
I

2H

2C

I

I

ACDRESS

20

•

~~uYeR8I~~

.---- .----.
I

NO
'.E90620
2P

•

•

IS VAR
THE BASE

r--

NO

• Xl
2H

!
I

I

I
2M
.----.----.
•

•• :~AGTELSW

---------e--------GOTO
-4

· .----.----.
YES

28

TO

I
I
I

2W

EOUIV VAR
WITH MOST

I
I

________
e ________ _I
I
NEG OFFSET

I

II

•

. ' ~a~~ONIN
•

II

.----.----.

YES

•

•

.

2X
.---.----

• END

TABLE

OF

•

NO
• • .,

••

38

.---.----.
YES
E91410

3M

• ___ • ____
E89660
2Y e

NO
'.E91320
•
2V

!
I

o. E87310

I

1M

I
I

2T

AT OUTCE

1

•

e

IS VAR THE
EQUIV eASE

•

·.----e----•
YES

I
I
I
I
I

•

NO
E90620
2P

2Z

j---se'-F LAG-,,---j

(---SE"T-;; i. AG------j

NO

e
e

I

I

I
I
I
I

I
I

+6

2R

I
I 2S •
e___-.--_

e

I
I

E89660 PLUS
I

•

m~~~r8;----i

2L

SCAN FOR

•

•

2W

1~-'&Ai;!~iLE----l

YES

I

t8D~mHuE

2F

I

.1

I
BASE
I
I
_______
e _______ _II
I

laTHER VAR
I
---------.-------I

j---SE'-FLAG-A,---j
I
I
I
I

.
.
·..----.---e
I

i---'REsToRE-------j

II

r~:-----

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

E91120

e----.--__
e
YES
I
E89610

2E

.•

I
I
I
I

.----.----.
2K

TA8LE

IX

I
I
I
I

NO

• END OF

I
I
I
I

.----.----.

E08420

YES

•

I

II

---GO,ii--'-e8974ii--

.'

I

II

'~~Ds~rp~N

(---"TyPE-.--------(

•

ADDRESSES
TO SCAN·
AHEAD FOR
EOUIV VAR

2J

I

I
I

ACDRESS
IF SW I ON

2V

---------

I

________ e ________ _

II

IU

I ~~FT=~~~ER I
---------r-------E88110

I
I
I

2H

I
REF NUMBER
I
I
I
I
I
________
e
________
_
I
I

I
I
I

DIMENSIONS
INTO TA8LE

VES
Xl

j---sE,-up-iAse---j

i---AssiGN--------.

_________
e ________ _I
I

•

X2

£91320

2P

•

I
I
I
I

j---;ove-· --------j

I
I
I
I

E90620

·.---.----.
Ne

1M

•

j--UVE-TAaLE----j

I

I

I

E87310

•
• USE
AN
ARRAY

-1---scAN-TABLE----i
FOR VAA
I
EOUIVALENCE

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

,

•

-------- .--------GO TO

.

.----.----

-,--- At~EU·FlAG----i
TElSM
I

I
,
_________
e _______ _I
~O=hERREF

2 OF

2U

2N

-1---CAlC~LA,e-----i

YES

•

'AGE

PHASE I-C STORAGE AllOCATION

El8470

I

I

1

II

I
I

E89660

I

I

I

---------.--------GOTO
X2

---------.--------I

IU

TO I 2U

2N

871

1620 FORTRAN 11-0

·.----.-_ -. .
·

E89820
•

*.

WAS

EQUIV

3A

....

.---.----.

·

2P

.----.---. •
I

•

o

•

3B

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

yes

IS VARIABLE' E90010
AN ARRAY
•
•
30

NO

I

I
I

3C

TO VARIABLE

I

I

3K

3J

I
I
I
I

2H

3H

I WMDIlN
---------j---------

I ~~~WVAA
I
-------.-------

"'miw
•

·

3'

AT

ElBlIO

'.

,•

,Ulno

.---.----

IH

.:

·~.MtV&~G 0: 0~;i
,
,

NO----j--TO

3N

I
I
I

!---~!--~~~!-----!

3A

E89820

GClO

3R

I

--------r::----,
0'

•

,

e---.---.

kU~MfNT

NO----j--·
TO

•

YIS
' 0 0 +2

,•

I
I
I

!---~~~~- ~~~:-----!

IF SMI ON

ZJ

3W

ANY CALLED
SUBPROGRAM
AND OUTPUT

n

311

£91410

E93010

j---SCANFOii-----""j

I
--I-mi;;;--------

TURN TO

3S

lL

r-i~2~n~;~~---i
,NAME e ________ _I
_________

I
I

-I----I-II-~t~o;;:----I

3A

I
I
1

SET FLAG

E92210

j---iaijii;iijo-----,
"

I
.---.---.

E89820

GOTO

I
I
I

I
I

OF

I
I

--------T-:-----

GOTO

GOTD

--------.

ADDRESS
FOR
ARGUMENT

!_-------.-------_!
GOTO
-2

I
I
I
I
I

3Q

3E

E90510

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

I

3K

USE REF
NUMBER

I
I
I

---------.--------SAVE ADD
I
I
BASE,

-1---~~!~~~~;~-----1

I

j---ASSjG~

II

ADDRESSES
AND RETURN

OF

3U

I
I

I
I

,

E91730

E91BIO

FOR ArRAY
-I _______ e _______ _

SET FLAG
AT TELSW

--------.-------GOTO
X3

GOTO
30

I
I
I
I
I

TO OUTPUT
I
I VARIABLE
I
-------.--------

SCAN ADO
AND RETURN
TO OUTPUT
EQUIV VAR

I
I
I
I

I
I

r--m~~'iTE-----1

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

3P
--------.
-------I
SAVE TABLE
1

I

I

1M

!I _______ o _______!I

! ___ !~2~ !_E~_____ !
E90010

NO
E87310

E91730
3H
---------.
-------RESTORE
I
I

E91250

I

TYPE ADO

..-

---------.--------II i~eaMkAG I

j---ASSjGN-Aiio----j
I

FLAG AT
EQRET

PAGE
3N

e----e-__ •
YES
E91810

.---- .---- e
NO
I

II

3G

.··

YES
• E90620

'JAR

PHASE I-C STORAGE ALLOCATION

IV

3U

1172

PHASE2

1620 'OUIlAII II-D
USS II

lA

1
.---.----.

-,--lB.'iam:--,
i29~R~IID

...---.--.
• IS

•• ~:tT~a
• BEEN SET

• yes

•

•• CDI28
• 9L

• 0

o

.---.----.
I

..D

I
I

•

I

NO

Ll

mt2hSA2~

,

CLEAR
TEMPDRARIES

I

EXIT

I

I

I

•

,

RMAT

lF

1L

SETFCT

S '"
°YTPi

TO

1620 FORTRAN 11-0

I

I
I

•

EXIT

•• ~~R~~JS A
• S TA TEMEIIT

·

II

• ___ e _ _ •

Tm¥E

.

r---~ji!V~;;~~
---------i--::-----

-,-- ~lrrif8!T------'
SY. .OL
_ _ e__ _ _ _

YES

·110---,·_·.
f8

I

ziRrl

12K
iEII~
~28E
'~URII

Y;-5-·I--·

r

NO

•

•

I

I 2V
.---.----.
•
•

L'r8~~T10NS
___ ._______J

•

I

o IS RPIIS

•

I

2Q

NO
• REMGET
•
• 2.

·yES--i-----.
SWI TCH SET

2W

--PUCE °NE;----

j---;;OVENEW------,

Y"eDl AT
N DF
TRING AND
_ _ t t _ _ _ _ _ _ _ _I
I - - -_
RETURN

!I___

I

SYMBOL INTO
~~aC8N~F AND

~!~~

2R

_______ 2I

REIIGET

2 ..

I

RGR

2U

In

2S

---------5DTO

lGR

I

.--.---.
• IS .....

I l=IT~~~-~
GTNS

FRO" STRIIIG

I
I
I
I
--_____
e _____ I
I

, --_ _ _ e _____ _

GOTO

lX

j--7au-5YiiiiiL----'

•

••

·

5

IIITCH.SET

I

e - - e - -__ _

2U

YES

III

'U9Bts!IBII-~

OF

I

2P

j---DPEN-SYRiNGi--1

1---1=1;~as;~-----1

•

•

18

ADSL

~OtATlDN

I

I sm2~ ON
I
I
I
-------------------

I

RIIIIS

2l

•

I

2 OF

lU

8B

;;....--.'---.;
.--.--.
.' nEl"r~'T'f ·.·+1
•

I
I

i---CETER itjNE-----j

AVAILABLE
I
AND RETURN
_______
e _______ _

I

---------0----

GET X

I

I

I

---I

RGR

i---~i~K~~::~~--1

I

T

~-----

, ) IG

TlON FRDM
SYMIOL

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

I

IJ

. 2t

2E

•

• RV EQUAL TD • •
Ol GaUTER
• +2
• THAll LV
• IK

j---GWRiU---[

I

I
I
I

PoGE

I

•

F 0" TAILE

.

2~

IH

-,__________________
-- ~I~V~~-----I1

·oCOOEl7
• 68

j--~E"ERiTE------j
I
TAILE lOCA,

T) 210

I

------r~:-----

YES

111

I
...----.------I
I
----.--.

I

LZ

SRFCT
•

PHASE 2

hg~

I

I

IT

-1--""iiiiojE-----j

•

IS

I
.--.---.

lG

~8~Alm

lR

I

NO

T
"EN'

:~~I ~SES

lG

SYMIOL

IS

I

, m:8ES

1M

II
I
------------------I

I
I

~~TFCT

IN
________
I
TABLE w_______ __I
IF

L2

IF

~~eBbt~

FORCE

•

i-;~:~i~~;-----i

I

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

I

I

••

• S ATE"EIIT

'II

I

I

r--GETTiie-iTH--[

TO

• ·I~ THIS A

o • _ _ e ___ •

j--DECRE~iENT-i
I
THE I VALUE
I
nONE

I

I

d¥UllII

lQ

I
AROUND
I
COOING
________
w________ _II
I

GOTO

I
I

•

L2

I

,

I

lE

II

I

i---g~~g~-------I

GOTO

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

l'

I
---.--.

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

i--~t~=·fi~iii---i

----r-------

IK

I

I

I
_________
w________ _II
I

L2

U
lK

CKF"T

'HE r VALUE
BY 1

lU

II

j--- I NCREME;r--i
I

j---;sSiGN--i-----j
TO I

0

II

L3

lD

I

I

o·

YES

---------.--------I

I

lQ

ADJUST

--ta~S~A8iJ------i

YES

WHATEVER
i2BtcUED
BY TABLE

j---pU'TjNPUY-----j

I
I

•
Y;-s-j--· •

lJ

I
!-----------------!

I

0

0 LOOJ

•

BUNCH TO

~~eOR~RA~gA

I,

COD,

i8~aL

tt_--.-_e

It

i--~~~~~~-----~
I

•

111

."

I

---------~----

18

•

---.--.
••• ¥2111~~JJ •'. 2~FMT

coon

lG

i-~=l!~!~~:~ --~
_________
I ~8ulI'Ue__-------I
CLEAR

fHASE Z

• ••
NO
••

.U

2Z

L_!~I~;~i~~]

TDI III

sn

9

Ib20 FOURtN 11-0

PHASE

0:--I

PUTX

)G

PUTC

r--~b~~:~=o
~~EL8S
I
---___ e ______

I

)N

2HN~YINT

II

)U
.---.----.

II

•

_________
e _______ _I
I

GOTO

I

I

COOEIC

i--;~K:U'-------'

3H

PUTNXT

PUTA

• ___ e ____ •

II
I
)V
.----.----. •
•

3P

I W~E~~ATEO
I1
RElOCAI ~O~
TION
I
---------*--------I

I
1
I
I

LOAD
ADDRESS AND
OSA ADDRESS

1

I
I

•

1
---------*-------GOTO
PUTNXT

I

• ARE 80TH

.---.----. •
lC

8---.----8
I
I
I
I
I

NO

3J

•

••

.*;l

*. I~:~~:~~~

·

•

I

I

I

f

A.NO RETURN

I

•

I

•

I

•

II

TE~PORARY

I

3F

I

I
I
I

I

AND RE TURN

· .----.

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

-

~"

•

I
3T
----------------OUTPUT "00.

I

---------.--------GOTO
PUTNXT+I

3K

3Z

3Y

II RESULT
m~~GT~~
II
I
I
---------8--------GOTO
CLEAR

IB

3l

i---oUTPui --------[

SUBTRACT.
MULTIPLY OR
01 V IDE
COO ING

1
I
I

+2

I
I
I

1

OUTPUT
ROUT INE

•

i---oUTPUT --------i

yES

AN EXPONEN-

3X

• IS SENSE
SWITCH 2 ON

I

3S

I
I

3"

I

I

·.---- .. ---- ....
·.----.----..
yES

*----.---. •

.---- I
NO

i---iNiTihlIIE----i

1
1

ON STRING
WITH THE
TEMPORAR Y

•

3U

• IS OPERATOR' COOEIO

I
I
I

i---REPlAC ;;-FAC---i

•

•

• T I Al

---------.--------I

I
I

•

I

---------.--------I

I
I

I

NO

YES

I
I
I

•

SEC TOR
BUFFER LOAD

•

I

I

1 3L
--------------OUTPUT 1

I
I
I
I

I
I
I
I

.----.---. .

NO

FLOAT TO
FIX CODING

lR

AN EQUAL
S J GN

I

3E

I
I

.----.---.
1

• IS OPERATOR. COOEIC

I
1

INSTRUCTION
TO STORE
FAC IN THE

I
I

I

---------.--------1

I
I
I
I

COOEI

I
I
--------.-------I

i---oUTPUT--------""i

I

3L

lK

OUTPUT DATA

I

1

I
I
I

•

i---HOve-i;;-------i

I

---------*--------I
I
I
I
I

mmm

• .... 2

3W

1---~gT~~:~i~:---i

THE FOLLOWING caDES
C

YES

I
I

1

----------------I
GENERATE
1

lQ

•

.----*----.
I

30

I
I
I
I

~5F~~~P~~ll

NO

NO

A NEW
TEMPORARY

I

1 3J
.---.---.

PUTNXT

YES
• IS THERE A • •

YES
8 8

• +2
3X

SIDES SAME
• MODE

I

•

4B

I

NO

)J

""i--PICK:U,-------i

i---SEfFlAGS----i

.

YES
• Fe TIE

'·A SINGLE
STATEMENT
• FUNCTION.

I

CODING TO

I

--------.-------GOTO
EX I T

IL

I

I

~l~eETTHE

I
I
---------8-------GOTO
CLEAR

IB

87 4
PHASE 2

Ib20 FORTRAN 11-0

loA

COOEIO

EXP COOING

I
I
I

I

**

--------.--------GOTO
EXIT

•

IL

NO

•
·ISTHE
* VALUE IN
•

I

4H

• +2

.ItO

CODE4A

1

i---REHOVE--------i

""i---ouTPui--------1

I
I
I
I

I
I
I

1
I
I

I
I
I
I

--------*--------GOTO
CL~AR

IB

PARENS

!-----------------!
GOTO
EXIT
COoElY

4C

OUTPUT
FUNCT ION
L INUGE OR
PARENS

I

IL

I
I

I
INS TRUCT ION
I
I
re PLACE
I
I
VALUE IN
I
-I ________
w_______ _I
ACCUMULATOR

I
1

I

GOre

I

•

I
I

.----.----. *.

CO DB

I

·.---.--8
YES

~ ALL
UTEMENT

+2

8

4F

L INUG!

4£

INE

-----1
IL

I

IB

8

4X

NO

FORMAL PAR- • •

·.----I.----..
OR

AAITH~ETIC

I
I
-------.---------

.

e.----. ---- •

•• ''''E TEAS

I

I
---____
8-------I

5A

I
I
I
I

C9MHAAY

••
• +~

.---.----.

YES

I

1

1

NO

•

• SUBSCRIPT

loR

OUTPUT RE-

mnU~mN

I

EXIT

4.

• IS IT
SINGLE

loP

I
-1-ijT-S

4L

________ e ______ _

GO TO

•

1--~~Sl~~J:----1

I

I
NO EXIT
I
--------e-------YES
CLEAR

I

I
-1---~mM~T

8

I
I

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

COOESS

COOE4A

COOEI5

----------------11
s IT· A

~O

8·'5 IT A
• CALL

I
I
I

IL

I

40

llOltARY

I

---------.--------GOTO
EX IT
i--OUTPui-------i

SUBPROGRAM
L1NUGE

OUTPUT
VARIABLE
SUBSCRIPT
COOING

I
I
I

4Q

4J

I
I
---------.---------

I

RVSN
INSTRUCT ION

i---OUTPUi--------.
1

RE~OVE

I
I
I

4J

4V

loP

i---OUTPui--------i
STATEMENT
FUNCTION
RETURN
COOING

-------.--------GOTO
COOElY

I

II

It OF

**NO

ACCUMULATOR.

YES

I
I
I

1

loS

.
·.---- .----..
ioN
.----.---

YES
t~A~JM:~T IF • * COOf7
•
5P
w

·.----.----*

I

FCTlE

.----.----.
loG

i---OUTPui--------.
I
I
I

PAGE

•

• +2
4l

YES

loY

45

YMaOL---l

NAUR taLL

i---9~TPUt ---------,

II

I

~U=m"T

LINKAGE

I

--------.--------GO TO
EXIT

IL

141
.----.---.
e. ;~IT

.

e--e---.

Il

I

YES
TO

IL

4U

875

1620 ":IUUN 11-0

•

.---.--.

A~u'lE

·

NO

. ' gPEUT9R

.

••

.' •• +52
C

•0

~iHtk

~O

'.

•

YES

I

I

.----.---.

I

INSTRUCTION

I~A~~~IPT

II

• OPERATOR

I?H~L + TO

!--------.-------_!
GOTD
EXIT

IL

NO

•

YES

•

I
I

II

I
I
I

8Y

5F

I
I
I
I

II

I
I
I
I

---------.--------GOTe
CLEAR

18

5R

I
I
I
I

•

I
.---.----

.

• IS THE

·

•

VALUE

I

YES

!_-------.---_--!
GOTO
CLEAR

I

.

I
I

•

18

I
8UNCH AND
,ADORESSfS

+2

5U

18

5Z

CODET8

IF TEST

II

!-------.-------_!
GOTO
CLEU

5T

i---iiurPUrIF----i
~m~H

II

I
I

-------- .--------GOTO

5Y

i ---OUTPUt --------,

r--~V~~ f~~:~----l
I
I
I

I
I
I
I

I

NO

••

• FIXED POINT'
• _ _ a ___ •

II

m~C~NvO

"ONCAl

•

COMPUTATIO~

COOING

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

--------- .-------I

5M

i---OUTPUCi-----i

BRANCH
INSTRUCTION

I

I

TRACE
INSTRUCTION

',I

I
I
I
I

I
I
I

---------a---------

5S

,---iiUTPU i --------,

~RO" STRING

I
I
I

I
I
I
I

i~Sle~~Tf~~
II
III WORD
STOP
-------- .---------I

%

i---ii~;;~:;------1

NO

i---iiuTPij f-------i

5L

• +2

5W

•

I
I
5X
j---ouTPut--------i

i---iiUTPui-------~

NO

50

I

EOJ

.

.----.---

I

BRANCH TO
MCNCAl

5E

OPERATOR

•

GihO COOING

5Z

IS SENSE
••
•
SWITCH] ON • +2
•
5$
o•
a-___ .---_.
YES
I

••

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

·.----.----... .
·.----.---.

EQUAL TO
• GOTD +

•

5K

GOTO

•

II

YES
••

r--~N~i: ~ijX~HT---1
I
I
I

I
I

9W~pmO

YES
o COOE7B
o

nM~ENT

II

50
OuTPUT COOI,G FOR GO
TO, STOP,
PAUSE. AND
E'O

COOE6

•

5V
o

.----e---.

NO

18

5J

•

I
I

LINKAGE

CLEAR

o

18

CLEAR

5P

o 'IF fENSE
• 0

.----.--.
••
·.----a----.. ;f

5C

i- --aUTPU f --------j

II

coon

5H

I
I
--------.-----GO TO

GOTO

I

I

-1---OUTPUi-HALT-~

IL

I

~~I~lNG
I
~En IF
I
!I ________
o ________!

COOING

0

I

,

-------f--------

0Y"UT IF

5 AfE"ENT

;~

••

• ___ e _ _ •

5 OF

5U

5N

5G

•

.'
• SUISCRIPT

PAGE

PHASE 2

e ___ • ____
5A •

CLEAR

IB

I

TEST

I

!_-------.-------_!
GOTO
CLEAR

18

Ilf

PAGE

PHASE 2

1620 FORTRAN 11-0

6N

6G

6A
OUTPUT
FORMAT
SPECIFICATIONS

•

•

•

a----.----. •

IS THIS
H TYPE

YES
• C0170
•
6P

.
·.----.----.
I
NO

CODE 11

I
I
I
I

I
I
I
I

ADDRESS IN
REP]

•

•

•

--------- .--------I

•

I

SYMBOL FROM
THE STRING

I
I
I

!_-------.--------.!.
I

j--

I

I
I

•

•• 6jEl~i~R AN

YES
•• com
6R

·..---e----..
NO

I

I
I

6E

6L

---------i--:~----I---jjii~tiPf~T---l

.----.----.

- _____ a ____ _

6G

CDlTA

.----.---.

•o
6R

ASpI~I~

.--.---.
,

NO

T) 'N

•
6C

•• C017l

•

.---.----.

NC

yes

•

•• PT~~P

7J

I

II

.---.----ex.
I

•

·
··e---e----..·

YES

•• COI1G

••

7A

HMI~l~LaN

NO

YES
• COl7SC
7K

I
I

e__ .I___
6Y e

I

·.---.---...

••• mlH
7C

e

I

I

··.---.----...
.·IS THIS
L 'AIUN

••

e

~g17A
6C

III
CO 17M

I 6T
.----.---.

"'UAWS

·O.m71

•

•

TO

6W

e---.----e
e

• ___ • ___
6S e

NO

1H

I

II

I

"'PT~~P

· mn

·No---i----· ·
ee. S THIS
• TYPE

U

NO---r---·

I

Tol

••

•

I
I

•

6C

--------a-------

,
I
I

--I

e

I

x TYPE
COOING

CDl7B

---------a--------GOTO
C017B

r-mi~HOYN

NO

-------.-------GOTO
C017A
6Q

·

e ____ e ____ e

I 6Y
e--_.I __
e

I

CODING

I

-1---jAypip~AT-~

C017E

I

·

YES
• C017J
1G

IS THIS

A TYPE

Ne

r--~um~-------j

I

6K

N

6C

•

6P

GOTO

R~B1ESS

e

,---oU'TPuj--------,

I

I

FREQUE~C

C017C

6J

!

60

•

YES
• C017E
•
• 6l

IN FREO 1
- ________ a ________ _

I

.---.----.

•

~:ij:;~~---~

I

I
II IN FREQ 2Y
,
I
I
-------.------GOTO
ce17A
C0170

I
I

II

6C

i---iii;;QvrA------,
I
I
I

IS THIS
L PAREN

NO

i---'SAYi-· --------i

6H

·•----a----..

I
I

CDI1A

e----.--*
I

66

i---SAVi-Riiiii-----,

·.----.----.

6 OF

6U

l'

6Z

r-m!;HDY~----l

-------e_-------I
I

GOTO

6U

877

C017A

6C

9

PHASE 2

1620 FORTRAN II-D

..---.----. •.~817A

Col7G
•

•

7A

IS FRfO 2
FULL

be

YES

CDI7J

I

GOTO
CDI7H

6C

COO£14

I
I

I
I
I

I
I

I
I
--------.-------GOTO
CDI7N

70

,

I
I
I

COIH

---------.--------I

I
I
I

CODING

GOTO

CDI7N

..

•

•

!_-------.-----_-.!

I

..----.----. .
·

CDITN

I

70

•

•

• IS FREO I

FULL

*--__ e ____ •

CDl7SC

NO
• COl7A
•

bC

7k

COOING

•

I
I
I

..

I

7E

I

I
I

I

I
I

I
I
--------e--------GOlO

COl7A

COl71

AOCOW
FILL IN
JUMP
AODHESS

loC

II t~~i~G
II
I
I
-------.--------GOTO
CDI7A

I

I

I
I

I

..

YES

•

~gDESS

8C

•

--------.-------GOTO
CLEAR

I
.----.---.

NO

YES

·

•

.----.----.

•

IS CMSW ON

I
I
I
I

•

lE~SA8
90

•

I
Tal 1U

7Y

T--------j

DIMENSION
VARIABLE
TO 10

.

YES

• COOARR

·

7V

I
I
I
I

---------a---_____
_
GOTO
CDI4A
CODEPA

•

..

NO---- j---- ..

IB

•

A8S0LUTE

j---O~YPU

7T

..

---------.--------GOTO
CLEAR

7Z

I

II

•

.·IS
SUBSCRIPT

COl48
•

.----e----.
I

IB

•

.

7X

.----.----

I
I
I

• IS SL EQUAL. COOEPA
•
TO l PARE~
..

I
I

loC

I

I

I
_________
a ________ _I

7S

..

I
I
I
I

FCTRT
7M
----------------SUBPRUGRAM
II OUTPUT
RETURN

7F

j---(iuTPuf--------j

.

7W

r--l~i~~~-:------l

I

.----.---.·

7L

j---AO:iUS T--------i

REPEAT
COOING

I

I

I
7R
---- I.----.

NO

I

I
I

• C014ND
•
•
80

TO DOA

I

i---OUTPuf--------j

yes

IS LIST
COMPLETE

8E

I

II

• IS SL EQU.l • CDOOA

---------e--------I

YES

..---.----..
•

70

.----.---. •

NO

1-- ~~T~~T--------l
I
I
I

I

NO

~5BJt=I:'t6 •• COOMAT

YES

.----.---.·

70

I

I

••

I
-------- ...--------I

7J

F TYPE

..

7V
.---.----*
•

70

CODARR

II

y~A~SnT f2E

i---ouTPUT------~

I
I
I

I

7P

,---OUTPU i --------j

COOING

I

I

7H

COI71

COOING

I

---------.--------GCTO
COIU

70

r--?UTI~l--------1

7C

r--2Ul~~r-------,
I
I
I

CD UN

COl7k

CD ITA

r-i~i~r~:;:---J

I

~O~rN!
--------.-------

7B

OF

7U

7C

----oUTP~f--------,

COTO

r-~~mr------1
I
I
--------_e
________ _II

PAGE

7Q

7l

j---oETER~jNE-----j

I
I
I
I

LOOP
INolCIES

I
I
I
I

- - - - - - - - - e--______ _

I

TO

I
I

SA

878

IbZO FORTRAN 11-0
BA

CDCALL

r--l~L:~-~-----l
I

•

I

I

I

-------.-------I

I

GOlO

COOEIZ

II

O~

STRING

PAGE
8G

.----.----. •

I S IT A
CAll Exn

.----.

STATEME~T

.---- I

NO

8N

•
•

YES

•

cox I T
8K

I

II

I
I

II

RETURN
SET SU8SW

i---oUTPui--------j

8H

••

I

I
I

•

9L

COOMAT

~a8~~M I~E

YES

I

I
I

---------.--------GOTO
CLEAR

.A~~INES

18

8k

SU8PSW

II
I
-------.---------I
II
I 8R

'---SET-UP------,

I
I
I

I
I
I
I

BRANCH TO
MONCAL

I
I
I

..!.-------.----_-!
GO TO
CLEAR

18

RETURN FOR
STATEMENT
FUNCTIONS

I

!

!

Fcn

••
•

I 8M
e----.---_a
•
•
la8J~baR:,.

•••

·yEs--i---·.
TO

I

IN

I
I
I

•

•

8W
.---.----.
•

NO
• IS THIS THE. FCTIA
•

.----.---- ..
LAST
PARAMETER

YES

.•

•

I

1~1 sw

·.---.---.
I

•

I
I
I

8x

I

I

I
yES CLEAR
I
---------.--------NO
EXIT

NO

-.-+2
•
IV

YES

TO

8T

I
I

8T

ON

•

•

r--~5::' ~:------i

as

---.----

FeTiA

NO
+4
• IR

I

I
---------.--------I

I
I
!-----------------!

I

I
I

FUNCTION
LINKAGE

i-~sTAiA:;~-----i

OUTPUT
SUBROUTINE
NITULlAlION
DOING

7Q

I
I
I
I

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

8L

8V

STATE~ENT

I
I
I
I

I

j---ouTPuT --------(

I ;aJ?AX I
~~hLclW

I
I
I
I

8.

+2

I

I

LINkAGE TO
BRING IN
NEW LINk

GeTO

BQ

I
I
I
I

8E

8F

• +2
8"

SU8PROGRAPII

'---SET--' --------1

--------- f ---------

---GOYo--·-Coi4.---

NO

(---OUTPUT -----~

COXIT

IB

..

·
·.----.---.

I

8J

II

8P
.----.---.

I
II

I

I

m:mm

I

---------.---------I

I
I

I
I
I
I

---------*--------

_________
a _______ _I
I

7Q

8U

i---oUTPuT --------j

I
I
I
I

I

LINK NAME

OF

1---seT-UP--------1

(---COlLEC 1-------j.

I

--------.-----.... -CoHA

•

•

II

88

CDI4E

•

9H

j---pucE "00.-----,
I

PHASE 2

IU

879

IL

9

•

.

e----,----e •

o..=W

~I"9T

• AilE

iUNCHWC

• _ _ e ____ •

NO

IUD 'OITUN II-D

YES

••

';l

•
• --__ e _ _ •

NO

EXIT

CODEl2

9H

I

I
I
I

I

9B

Joe

ON b~ ',eLE

I

t-l--------.--------I*
I
GOTO
MONeAl
•••

I
I

COSSAB

I

18

I

9J

I
I

9B

I
I

DO

INSTRUCTlCN

I
I
-------..--------I
I

I

90

9K

tt---.---* •

•

0° t~ul~ITO I

UBJECT TIME
ADDRESS

I
I
I
I
I
---_____ e ________ _I
I

o

YES
0 0 CDI~E

ea

.---e--.

NO

I
I
I

I

CLEAR

I

i---coMPU ie-------i
I

om.IIID
10

i---?~mi~~~~--I

I
I

NUM~ER

CARDS

NO

•

I
_________
e ______ _II
I

9C

T--~¥~~~~~~~-----I
I
--------..----------\I
GOTO

IL

I '.

•e-----e___ •

r--r~aii;~~----I

101
101
101
101

MESSAGES
AND SET
SYSCAL

.---.--.
'"
I¥A

':W8elL

I:,'---'VP(-eNO-oF---I:1
o
01
101
101

'HUt 2

CLEAR

18

9£

l---:h~ii~~-------l
ON TABLE

I
I

I
I

-I ________ e ________ _I

I

I
I

911

9f

---------t--------I g~T~~ST !

r--~\l£S~~~;-----1
I
I

ON STRING

I
I

I

________
e ________ _I
I

TO

I
I
I

I

------.-----TJ 9N
I

9G

I

88U

1620 FORTRAN

II-D

1/0

RO~TINES

~WA2

PAGE

IG

IN
.---.---.

r-i~;~~i:~8:~---1
WRULP

GOTO
WAPT

\0

I

MA~F.F~~MAT
MU-2' 08

WACO

!_-------.-----_!

I
j--.WEFS ..-;----,
WRTALP

I

10

..

IT
• I

E

I

II
I

-:~:-----r~:-----

• 0 NO
0

••• TY"'~~ITE" ••• i~
.YES

o +2

ON

IJ

I

H

I

I
I
I

------r-:--e_--.---.

--------e--_____
II
I IR

~EAO

o

o

IQ

RAPT

IV

OF

II m-i

FO~~AT

::, :) •• °

_______ e ________
_
00

I

GeTO

SWF. SWF.5

.---iuNc.:.-ro-----i

j---ii;!FSN-:-------,

I

I
.0 I
I
I
---------.--------GO TO
RWA

I

ADR.

i~DJ5:m

I

~---~!~!O--------

I

-I--~i~;:~~:::----I
2o"U
UU • IN"

---------r-------TO

"

I~
e__-.---e

I

•

NO

.: ",.wa.'.1 :•• iJ

·

. . ._ _ e _ _ •

I

• YIS

'0

IX

UAO

-------.-----•

ROALP

I
I
I
I

llii~'o--l

IF

I

II

--------e--------_

IL

-1---::;-II:"~i~~----,

~70'

IQ

r-~:::--l

F

IX

I

FL TENQ-5'

I

••.:W..
.••
·.YisO,----O.

I

ROALP

I---SNF:-AD;:----j

I
I
I
I

I

J

.... X. 87

I

I

.--------·--------i

I

I

I
""X-2.
06
_______
e ________
_I
GeTO

-------- .--------I

IJ

IU

r--s;s;:;a~i~--,

i-------- .--------.
I
I
I

e_---.---.

10

~

.---e----.
I
II IP

IH

IC

i---5;;-:·;o;:----.
I
OF FORMAT
I
I m-i ~OIO ,

I

o•

,
I

!_-----.------_!
GOTO
WR rALP

---.---.
I

IB

j---s;F; ·AO;:---'
,
I

SW

---------e-------

RA TV

YES

• RWA2

OF \I

.

IN

881

IE

1620 FORTRAN 11-0
SilL

.
•

o

2A

YES

o MArRX2
o

SWL • 1t9
e--__ .-___ •

.110

I

.

I
I
I
I

·

2B
.----.---.
S.. L • 41

lM

...

~~

I
I
I

20

o

I

I
.----.---.
I

•

I
I
I

•

• SPEC.
e ___ • ____ •

"• YES

20

0

•

"

.2L

.

YES

I

• • 2G

RUD

I
II 2Q
.----.---.
•
•

"

PAR LESS

I

I
I

I
I

•

I

I 2W
.---.----e
eYES
-I

" IOCR
3C

"

e----.----•

I

.NO

,
2X
e e---. ---- e.

2R

I
I

•

I

o

I

------e---------

NO
WAITE

0

"TYPE~AITER

"

2l

e ____ . - - - - e

I
II

.YES

2Y

1---m:iil~iiiio----1
I
I
I

END OF LAST
NON BLANK
FIELD

I
I
I

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

I
1

I

eOMPS~.

I
I

MATRX2

YES

" COMEND
"
3A

I
I

2E

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

.NO

".-_e ____ .

e

I

Mml~JI -

REAO

SLASHl

NO

• • swC
+1

PROGRAM
FOR NEXT
DATA
LOCATION

I
·1

I lV
.---.----.
•

.NO

i---OiJEC t --------,

I
I
I
I
I
2L
i--MATAjX:~----j

II

I 2E
.----.----.
•

•
o

2K

I
I
I
I
I
I
I -_______ e ________ _I

I

I

.---e---.
.YES I

j---LOtAoj-;-=K---j

I
I
---------e---------

I

•

II

•• THAN 0

I
I

•

I

NO

i---sw~;·~2------i

I
I

I

I

I
I

II

I

I
I
---------e---------

------ *--------

2J

" FIXED
•
POINT

--------- .--------~wC

PAR. 0

2U

j--'CDMiii6-:-;.---j

NO

••• 2Q

I 2P
1---MATiW·;-o----~

2H

-------e_______ _

I
I
I
I

SLASH

•

I

LOCAOJ .FP2

2C

PROGRAM
FOR NEXT
DATA
LOCU ION

•
.-___ e ___ •

-'----MATSW·;-'------I
SilL' 49

j---OiJEt' --------i
I
I
I
I

••
o

.YES

.~O-T---O
I

2N

.--.---*

-1--;EruRN-;O-----.
FORMAT
I
MACRO III
I COIITROL
II
_________ e ________ _
MATRIX

OF 11

'AGE

2G

.----. ----.

·

1/0 ROUTlIlES

II
I

~RITE

2M

II

j---MATiiix:i-:----i

j---j;u,-j iii-------,

I
I
I
I

I

MATRIX-I"
LOCADJ
PAR =PAR-I

I
I
I
I

I
I

I
I

I

I
I

I
I
---------.--------GOTO
eOMEND

--------- .--------I
TO

RECORD
USING
IORT

3A

2N

882

1620 FORTRAN 11-0
COMEND

3A

REDOA

.----.----e

•

•
•

•

e---e----. "

•

lG

I

I

I
I

GOro

IOCR

3C
e---.-_e

o

•

•

TVPE_R ITER
"

NO

• WRI TE
"
o 2l

e---.---_.
COMF.IIO
0

YES

3A

•

•

e

1

2U

o

~ilOA
• +

i

"

JH

3P

I
I
---------e--------GOTO
SSWF + 1
REP3

I

REPSW
POSITIVE

• REP2
•

e

3P

•

•

REPSW3
• POSITIVE

·

.NO

I

I .
.----.--

eYES
o ISWF
o
lQ

I

SIII!AOJ •
REDOA

•

GOTO

I
I
I

3X

REP2

I
I
I
I

3P

F TYPE
• NO flAG

I
I

I
I

"

---------e--------GOTO
EFCOM

.

-1---iiWi't~;i-------1

ETYPE

-I

3Y

• FLAG

! ----------------!
GOro
EFtOM

3T

REP2

IQ

I

j---iiwEFsio-;------j

YES

"

2.

3W

.. ATV OUOH
RCTY
RESTORE R~

------e_______ _

2A

I
---------SSWF

---GCTO--o-iisWF--:i

3S
---.--• REPSII3 • 0 •• o 1'~F
o
•
IQ
•.No---i----

I

GeTO

FrYPE

•

o--e---e

e

--------

I
I
I

I

•

-------e-------GeTO
SWL

ERCOM2

3R e
• ___ •I ___

)K

.---.----. eYES

I
J
I
I

j---iiGTv·--------j

II

REPSW3'
REPSW3-1

3U

ERCOM2
LAST. MAX2
EI. Fq

I

IR

3Q

sW~twl+7

I
I

I
I
1
I

HYPE
]V
j---SWF-;·SWF~3---i
I
LAST FROM
I
FORMAT
I
I

I
I

---------j---------

REPSW • 0

"

!

SWF .SWFIII

r-R1i!j!:::-----1

If

-'---SlRij;:--------,
---------.--------GOTO
SWL

•

".BSWF
IQ

j---sET-FlAGi-----j

!L

e.
filA TSW •

REP2

I
I

.

.No---r-REOO
3E e
• --__ • ___

RE:~~ITIVE

OF 11

j---SWtAOj-;------j

NO

j---SWF-:· SwF=i---,

SLASH

I
I
I
I
I

ERFq

-

.VES-j----

REP
3J
j---SW~:SWf;7----r
I
REPSW'
I
I
REPSW-I
I
I
I
I - - -____ e _ _ _ _ _ _I

•

ee

."
•

I
--------.--------I

-------e---_____ _

•

3N
.---.----.
•

I
I
I
I

I
3H
I
j---SWF:-SWF~5----i
I
I
I
I

3B

PROGRAM TO
CONTINUE

3G

RESTORE
COMPSW

II

j---OBJEC ,--------j
I

I
I
I
I

--------- e------__

I

I

PAGE

j---SWl-:·41------r

NO

• RWAl
(OMEND. 42 •

.YES

110 ROUTINES

3N

883

IP

110 ROUTINU

1620 FORTRAN 11-0

PAGf

.--.---.

U

EFtOM

4N

j-- ~~~H;:~~-----i
I1 INP~~~-lAST I1

···I~~&US
.
"
--------.
I

••

----_____ e ________ _

1

1

II

4H

~B

--I

r--;iiiT~!:i~~:---1

l--ijm~--

1

I

1

LAST-lAST
+ ~IOTH2

1
I

ROFCH

I

•

I

·.---e--..
•

YES

•

I

4K

i---CHAA:C;;:;;=i---1
I

1

INPlUS INPlUS+2

1
1

1
I

I

•

"

I
I

j---A~OS iG~------1

•

•

u
.----.----.

• INPlUS
LAST

" .----

NO

I

a

•

.----.

ROFCH

I
.----.----.
~F

• REAOING

"

..

NO
" HWRT
6H

~J

·

•

NO

TO

~G

I
I
I

•

1

---------.--------I
•

" INPlUS()

.

• 00

" • ___ e ____ •
NO

I
I
I
I
1

.---.----.
~C

•

• "INPLUS( II
"
GrR THAN

•

60

."'NPlUSII)
• itS
e--__ e ___ e

5U

•

"

·

•

"INPlUSIII
- 10

··

•

NO

YES

lDGDIG
• 60

e

YIS

•• mEC
4T

la' "

.
.----.----.
4T
.---- .----

5Y

PREVIOUS
DEC. PT

•

YES
"ERRF1E
•
•
itS

I
I
TOI 4U

5N

"

EFDIG

YES

• EEXPAE

.
"

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

I
,

.\0 TO EXP
INPlUS,
INPlUS +2

5Q

..

~IIRF1E

I
I

1

5S

I

!-------_e________!
I
1
I

1
5V e
. - - .I ____

---------e--------GOTO
xeA

yes

"

I
I
I
I

"" FCBlrWEO

""

.---- e---- e
NO
1

5M

• EFTERM

.

"

5'

5W

r--~~v~8j~jr---1
I

TO

1I

". - ""+1

FAt

I

1I

I

II

I
1

e----.---_.
5K

.---,.----.
.--_e____ •

EFTERM

YIS

e

•• f

XP
5R

YES

5l

ON

X8:0---T~·
•

5U

I NOICATOR

i---;oVE-ojGjr----j
I
,
1
I

OF 11

[---Ser-a i"cir-----j

I

YES
• eeXPM

.
e

l---CHAR:CHAi=j-~

4$

•

5X

I
I

II

.---.----.e. I~l

EFfND

." ·O~~ol~IioR •••m
•

5A

1
1
I
1

I

I

."

I

---------.--------GOTO
EFTYPE

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

I

~--r-::"
.---.--.
• _ _ e ____ e

I

I

II

e

.---.----.

"
·1"'LfJ$ll)
•
-0)

e

I

II

No----i--·

1

• ·HY'f

5R

e-___ • _ _ •

." I~P~gSII)

I
• ___ I
• __
5E
-e

··

.

•

!

I

e ___ • ____ e

·

~Bp

••

• 20

4X

1

5P

INPlUS II)

NO

•

~T

.---- • ---- e

II

I
5J
e----.---.
•
•

50

•

- EFOEC
•

4S

• LAST CHAR

I

EEXP2

I
1
I

I
.---.----.

•

NO

.

.----.---.

NO

~~~OIG

YES
" HOIG

10

XBe

1

II
5H
.----.I----.

I
I

•

II

i---CHAR; CHA;:l---.

YES

PAGE

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

I
I

5B
e---.----.

•

4N

EEXPAO' 21

II

I
I

•

•

NO

I

I

•

4W

i---exp:aoa------l

I
I

I
I

EFeEC

I

1

I
I

I -______ e _______ _I

EFPlUS

•

I
I

II

4W

r--SHJm~~----I

I
I

---------e---____
_
GO TO
EFENO

5G

5A

""lOGOIG
•
60

EI - -1

1
1
1

YES
•• EFMIN

i---jNPlir;------j
INPlUS + 2

EFMIN
YES

1/0 ROUTINES

1620 FORTRAN 11-0
EFTYPE

I

4M

"" I~P~gS(1l

"

YES---j----- "

I
TO

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

FCHNB
..

5X

j--zeiiii-fAC-----j

YES
• +2
6A

EFENO

I

I

INPlUS( II
• 03

ERRF7E

•

I

I
.----.I----4R .

NO

1

5U

"

.---.----.

1

---------.-------I
INDICATORS
I
I
I
I
I
I
-------__
e ________ _I

•

•

•

·.---e---.
NO

YES
fFOIG

•

4Q

•• I~P~~SII)
..

4Ji!

I

I

•

..

~~HNB

".

-00

4P

I
I

4J

""INPlUSII)

•

3U

.--.---.
·.----.---.
I
.---- .----.
•

NO

I .
.---.---

4C

•

I

----_____ e _______ _

I
.---.--.
.·.m9

·

• • .lUlUS
4X

INPlUJII)
••
¥~A HAN
•

I

I

--------j--------

•

II)

NO

1
1
1

1
1

4 Of 11

5Y

."lSfAC
IUD

5N

"

EF::::-r-::·

r-c~~i;:~~~----J
_________ e _______ __

-------::i-::------

TJ 6A
iU

6e

1620 FORTRAN 11-0
OA

•

EFRD2

.---.----.

•

• CHARACTEM

OVeRFlO~

•

.
•

• ____ e ____ *

YES

• ERRF1E

•

4S

I
I

I
I

68

LOCATION

EfWRT

MANTISSA

I
I

IOU

•

I
I

NO
• F LESS THAN • XCB

.e

OK

•

•

• ----e- ___ •

S.L

2A

YES

FlUATING
1 ERO

TO

I

I

I
I

S.L

60
.----. ----.

YES

6K

I
I

IS DATA

·

ZERO

.---- e- ___ •

YES

I

II

6Q

I

I
I

TER"-LnC02
OPG·
GAM-LOC02

I
I
I

INDICATOR
CHAR. -99

I
I

XCD

6R

OPT -2

·

I
I

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

I

I

•

EFALP

I

6X
.---- .----.

·

.

NO
• WRTF
•

7A

6Y

"i---CHAR;CHAR=i---i

.--SWCAOj-;-----"j

"j---i4ii"VE- 04TA-----"j

.---F"jx-4No-------.

I
I
I
I

I
I
I
I

I
I
I
I

I
I
I
I

I
I
I
I

--------.--------GOTO

EFTER"

5X

EFMW
WiDTH'
WIDTH-2

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

*.

FIXED DATA
FIELD

•

YES

•

•

• ETVPE

FIX

•

.----e--__ *

I

TO

I
I

!
•

6Y

. - -__ e ____ •

NO

I 6M
.----.----.

YES

• SWL

I

RETURN TO
NEXT
INSTRUCTION

I
I
I
I

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

6T

FlOAT

61

.---"jNSERi--------.

.---FLiiAT ·ANO-----.

I

I
I
I

ALPHA SIGN

I

I

CKW.

I
I

2A

I

LOCO+FAC
CMAR'CKW-F

I
I

RETURN TO
NEXT
INSTRUCTION

I
I
I

I
--------.---------I

---------.-------I

I
I
TO

6G

.

I

NO

•

I
I
I
I

I

I

6F
.----.----.

•

FM FAC TO
GAM IN
ALPHA FORM

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

I
I
I

REAOEF

•

I
I
I
I

71\1

.RTE

FIX

65

•

.----.----.

YES

I

I

I
I
I
I

•
• ETYPE

I
I

I
I

6L

I
1

I
I

I

I
WA2' FAC-l
--------e---------I
I
I

OW

I
I
I

I
I

I

GA~

.

•

.---seT-ZERii------"j

I

lERO GA."A

WA.

I
I

NO

• XCO

j---oj;T-:' --------"j

"j---oj;Tiii .:;-------"j

I
I

6E

•

I

!

r--L~m~~-------l
t

5U

•

61

II
6V
.----.I ---.•
•

I

XCB

NO

DIGIT. EFDIC

··.----.----*

YER

*.FLOAT

.---e----.

2A

LCGOIG

•

•

-I ________ e ________ _I

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

.* • FIRST

Ff~EFAEATA

YES

• ERflE
•
8G

I

NO

2A

6P

EFAlPM

I

GOTO

.----.---.

•

NO

be

X(A

SWL

EFMW
•

6U
.---.----.
•

6 Of 11

·.---.----..

I
I

GOTO

6H

lOto

•

• lOCO
•
GTR THAN
WIDTH

--------- e--------

e----. ----.

•

-------- -e---------

--------CONVERT

6N

r-~m~:~::8---1

r-~nA~;C~~r---!
GO TO

6G

r-~~i:mA;~-1
---------.--------GOTO
ERF7

NO

I
I

PAGE

110 ROUTINES

I
TOI bU

6N

886

7A

PAGE

110 ROUTINES

1620 FORTRAN 11-0
WR TE

WRTE2

7G

i---wIorH·:;-------i

i---cHARAC TER:----"j

I
I

I
I
I
I

WICTH-F

I
I

I
I

I
I

---------.--------I
I
I
I

•

·

WRTE2

e

••

7G

ZERO

INDICATOR
SET

I

•

•

I

XO"

•

CHAR-W 10TH

I

I

!_-------.-------_!
I
I

II

7E
.----.--.

. ' eHARA~TeR
•• OVU lOW

••

lU.E
• IG

I

TO 1/0 RfC.

FlERO
"j---~SEiii

I

I

•
8E

!

GOTO

I

I

YES

GTR
• ERF8E
THAN WICTM •
8G
•

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

I

•
80

• CHAUCTER
'051TIVE
•

I ..

•.--.--

NO

TO

II

GAM TO 1/0

=~~ITION
SIGN

•

I

II

7X

.---"jNSER i --------.

II
I

~~~e~EN
SIGN AND

I

I
I

r-~m;O.iif·----l

---------.--------GOTO
.EFDfC
WRTFPE

7T a
• _ _ • ___
•

I

--------T-~:-----

I

2·CHAR

1W

"j---;iive- i\"jCH'----•

II
I

NO---- *1'---·

7M

CLR70$

.

71

I
I

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

7R

7S

NO.

T--ii~ii:~r---l
--------.... ------

7L

I

•
• CKW

·•

•

1---cHAiz ·;-------"j

7L

I
---------j--------I

• FZERO

.----.---. a

-ieRg--"j

WIN°f/8E

mi~E

YES

·.----.---..
I

II

---ciiYii--·-wEFiiEc-

•

YES

.----a----a

II

7Q

.

• WRTFPE

• CORE EXP
•
POSITIVE
NO

o

7K

-1---R"jCHY' GAM----"j

II

·

YES

• ERF 8E
8G

LESS THAN

NO

I
I

7V
e---.----.

•

• CKW • OR

I

I
I
I
I

I

.---- ....---.
I

•

I

.---CHAR-:--------.
I

8G

I

70

RIGHT 8Y
2 CHARACTER
POSITIONS
I
I

•

!

I
AND SIGN TO
I
I
GAM
I
I
MOVE LEfT
I
I
GAM AND
--_______
e _______ _I

7F

I
I
I
I

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

• CHARAC TER
• OVERflOW
•

1J

• ---Miive-cHAii----.

I
I
I
I

I

I

.---SH.F'· OATA----.

NO----j----·

yes

e----e----e

NO

YES
• ERF8E
•

7L

I

I

7C

• e_-:-_. ____ ••
•

.

YFS

• FIERO

a·

I
7P •
e ____ I
• ___

I

I

•

7H

.---- .----.
NO
I

I
I
I
I

I
I

• CHARAC TER
•
OVERFLew

e---- • ____ •

·

NO

.----. ---- .

NO

•

!~~tCATOR

• ____ • ____ a

I

16

• wIDTH
•
NEGATIVE

YES

.----. ---_a

• ZERO
•a

OF 11

TU

7N

•

I
I
I
I

I
I

.---- .----.
I

•

1ST IC
MASK TC
GA"

WRTF

VES
• • UFPC
•
•
8A

SE

71

-I---:~E~tt~r----il
GAM TO 110
REe.

I
I
---------.-------GOTO
.HeEC

7U

887

IE

0' 11

110 1I0UTlNfS

1620 'OaTIlAN 11-0

[~!~!::::~~]

,.'If
----1----~~!:~=:~~u
..8vi u, •
-----0----

I
88
---- I.----.

I

u

~IITPPC

I

I

.
00

o

LOCO LESS
THAN CHAR

•--*----.
I
I
I
I

NO

IG

YES
o CLR70S
o

I f8 AmHm!

I

I

I

I
I
I

ERCOM

8D

IN 110 REe

I

I

I
--------.---------I

II

I
I

8E

-1---j~s~~nfF--1
RM IN liD
REC.

•

o

I
I

!_-------.-------_!
GO TO
BSWF
ERF8I

8L

o TVPING

•

ERCDM2

0
0

o

IQ

NO

I
I
I
I

8K
TO

I

o

•

I

•

.

l AA GE

e ____ e ____ e

8S

"

YES

o

fAF9
lU

o

I
I
I

I
I

BY

j---TEiM:i '5'=2---i

s=miA-

II

I
I

IQ

II

I
I
---------.---------

!
I

8T

• ____ •I ____
8Z e

I

WIDTH2

I

•
o

I

ERCOM2

)W

•

" RUOI NG
"

-------- .--------GOTO

I ex
.----.----.

o LAST TOO

'---5;;;-; .sw;;-;---.

II

OR TAPE
AS REQUIRED

I

8SWF

xu

BW

i~--~ii~i-;iicM---i

NO

WIDTH2
WIOTH2- -2

IQ

I ~:~\~~i~~~~ I
!_-----_.-------_!

" au

I
I
I

GOTO

_________ e ______ _

---GoTo- o -eiicoi4---

I
I

I

I
----,UNCH' c.iiii----j
I

.

I
--_______
e----____I

)W

8M

j---cLRvlii-------i

~~B

j---S;F-:'SWF-;---j

YES

BSWF

ATYPE
o

I
I
1
I
I

. -___ e ____ •

8F

OUTPUT ARU
MOYE DATA
FIIOM GAM TD
OUTPUT

.---.----.

GOTO

o

.----.---.

II

I

-----___
e ________ _I
I

I
1/0 REC TO
I
FORMAT
I
I
I
WIOTH2
I
-I _______
e-_______
_
DIGITS
I

I

I

8T

I 8R
j---R'EAii- FiioM-----i

8K

I

0

o

I
.----.---.

YES

i---ei-:-C------i

I

!I ________ o ________!I

I
I
I
I

.

xu

80

"

o READ

I
I
I

i---5;;-:' $W;-;---j
II ~mw- -2 II

NO
0

o

I

I

•

.----.---.
YES
I

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

r--A~~~: T~~~~---I

I

I

8Y

81'

o RECORD
o LENGTH OK

8J

III

.----.---.
I

OUTPUT UU

I

WEFDF.C

I

•

r--jsH~T-iiEC:---1

I
I

~Ol-kAST

---------e--------

aH

I
I
I
I

I
_________
e ________ _I

I

1"..

i---ii~i-!~:;ta---i
I

U

L~MM T +

I ~i~~ SIGN
I
---------e--------I

8D

o

i---iiov'E-RiGHT----i

eLR70S

I

I

8e

I

"TYPE

-1---;iiTHi~iDN----1

NO
0
0

SWL

.---.----.

YES

TO

8N

2A

,

I

9A

b80

110 ROUTINES

1620 FORTRAN II-D
9A

i--'Sw;;Aiir:------j
REAOA

I
I

..

I
I

I

o

I

_________ e ________ _

GOTO

SWL

o

o

2A

.----.---.

REAOA

98

WJ~I~2 GTR
CUTOFF

•

e_--.-__ •
NO

ROA2
• ROAFl

o FIELD
o

"

.---.----.
!

•

"

YES

I

I
I

9H
I
I

9M

TO FAC

I
"~ I
,.....
I

9C

"

I

I

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

I

9W

I

I
I

9R

j---wiOTHZ-:-------t

8lANKS

INPLUS

WAFX

0

o

NO

-1---ii~iiA:~:----1

-I---:;ii~~j;"-------I

9Q

".---.---.

r::-----

'---r::--

10

••~.--- •• V(S
o Fli£o OATA 0 WAFX

WA-G'IMK

-::~-----

I
I

I
I
---------.---------

----i~m:::~j(2---jl
I

9P

~RITEA

T--~~¥r r~g~-----I

YES

I

OF LI

RF7A
".e
"9L

NO

• FIXED
OUA

.----.----.

PAGE

9G

WIDTM2 - F

--------.-------UF7A

.

I
--.---.

9L

WIITA
9S
•
•. NO
0 0 WAfX=fIVE
"oWIITA2
"
9U

-II---C~:G~~:~~ --~

I

Et • -1

---------.--------GOTO
XU
9"

ROAFt

Z
-,---m-iFt:;J
='D~¥- PA~' -'I

------1';---TO
LOC,.

TO

9"

I

I
I

'K

.--.---.

YES

9T

--,--ti~ij~H------1
die, AOR,
- -_ _ _ e _____ _

T) .u

9W

j---;-,OTH2-:-----,
I
I
I

W OTH2 -K

I
I
I

---------.--------I

1

GOTO

WRTA

ITYPE

9S

9X

j---;jii'THZ-Fiiiiii--,
1

FORMAT

II

I

II

~mH~AST.

-------.--------I

e-_.I____ .
9Y

•

•

.

". Itlcgltc'

•• L H TM Ok

VES---r::

NO

••EltF9
•

JU

o

r--iiij;-yl-:-------

I (U~I'it' -

I

---------.--------T)IOA

889

Ibl0 FOATRAN 11-0

1/0 ROUflNES

.---.---.

lOA

lOG

1---swCAiij-:-----1
I

"RI TE I

I
I
I

I

I
I
I

•----e-___ •

--------- .--------I

NO

I
I

I
I 108

.----.----. •

.

NO
!)Wl

•

2A

.---_e ____ •
I
I
I
I
I

•

I
I

.----.

.---- I
NO

II

I 'JC

I
I
I

READ!

•

I

I

"IOTH2 -2

I

•

•

I

--------- .--------I

.----.----.

•

lOP

YES
• SWl
•

•

2A

I lor

I

INPLUS -2

I
I

I

I
I

I
I

I

I
I
---------.--------I

I

III
'INPLUSIIl

I
I

I

~--------.--------!
I

I
I

.
*.
.----.---_e .
I IDS
.----.----

I

I

TO LOG

• * FIXED
FIELD

I
I
I

10~

TO ION

WRTll

DATA

I

I
I
I

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

* • FLOAT
NO
•

HO-G'".l

I

I
I
I

j---IIRO. G~6 ,------.

I
I
I
I lOX

I

I 10L

IRDIG

I---INPLU 5-:------1

bY

yEs---i-----

I
I
I

LENGTH

---------.--------I

I
I

NO
• _ FIX

.---GAM:IO-70-s---j

.---FA;;:'· ZEROS--.
I

lOR

I

I

l E I - -7
I
I

•
• FIxeo
DATA

----------------I
DEFINE

I

--------EXPAND --------TO
ALPHA EACH
CIGIT IN
FAe AND
~OVE TO GA~

6Z

I

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

II lOT
READIF
----------------I
MOVE OAi
A

.---R.GHT·TO------[

I
I

I

2A

YES

I
I

I

FROM FAC TO
LOCI II

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

I

TO IOU

IP

II m:r~wl
I
---------.--------I
I
II lOW

100

I

I

.

8SWF-1

.----. ----- •

I

2A

*. :1~O"2

NAITEI
10V
----------------I
WA-GA_.2

-

READI

YES

• 'A.~EaS

NO

2A

---------.--------GOru
SWL

I
I

100

•

·.----.----.

ERF71

•

IAEAO

YES

• SWL

.---.----.
IOU

··.----.----.

10L

• I~INUS
.4!-lOC

10K

.----. ----. •

NO

10E

.---.----.

NO

•

ER~ll

IR8LNK
lOP
--------------11:818::1=1
--------.-------GO TO
IREAO

I

NEGATtVE

•

•

.*

YES
•

LOJ

• INPLUSIII
::.: 10
•

I

•
.. WIOTH2

I
I
I
I
I

I
I

I

I
I
I
I

• IR8lN"

•

MOVER

·.----.----..

100

[- --wIDIHi -:------[
I
I

.----.----. •

NO

I
I

I

•

INPLUSIII
* • • 20

--------- .--------I
IREAD

YES

I

FAC·'IERlJS
S"CADJ -

!
!

•

•

.----e---•.

• • +1 DIGITS

NO

• INPLUS III
-00

1---TER;:FPI;K----1

.----.---.

eRFl

•

I
I
I

1
.----.----.

•

•

•

10M

10H

•
• REAO

YES

.

YES
• IADIG
•

PAGE 10 OF II

ION

10l

I
I
I

LEFT OMIT
LeW ORDER
lEROS

I
I
I

I

---------.--------I
I
I
TO IIA

8 9/1

IblO FORTRAN 11-0
\I.

*---- . ----.
* • ZERO

··

•

liD ROUTINES

PAGE II OF II

.

YES

• ~FA
* llE

*---- .---- •

•0

WRTSGN

I

I

I
I

I IW

[---AFFIX .--------.
I

PROPER SIGN

I
I

I

I
I

I

I

I
I
I
I
I

lie
.----.----.
•

.

* • WIDTH OK

•

.

NO

ERF8I
SF

*---- *----.
I

YES

I
I

I

I

l1u

.---MOVE-OAT:;;-----.
I
I
I

FROM GA. TO
110 REC
REMOVE REC

I
I
I

I

MARK

I

---------.--------GOTO
8SWF
XFA

IQ

liE

I---.NSER r-------j
I
I
I
I

ZERO

I
I
I
I

---------.--------GO TO
BSWF

IQ

891

11>20 'OUlAN 11-0
MLiNIT

IA

;

l---~I!I!~~:: -~

'" NL INt
LO AL TABlE
I

I
I

•
o0

18

r

YES

~~NM~MT. 00 TWO

.----.----.

o REQUESTED
o

RDAGN

.----.---. •

10

0

I----I

I

o
0"

"

01499

---------e-------

JSpA

•

YES
0

iiWMBL

eOLNA~

0 IL

,

o • ----e ____ e "

LDDPRO

IE

I

NO

r-- ;;iTjlFu---.1

I: 1---'TvPE-OU,------ i : I

---------j---------

'"I
'0'
leJ-------e--------I*[

TWO

,

10

j

t88:T~R

II

TO

13999

I

LOOPRO

1:1
'"I

,

MONITOR

r-m~iiHu----i!

.0
o.

1 m8u~
-------.---------

.---.---.•••
•••
t3~Tk8fAL

o CUDS

~~OQN
IV

0

•---tt---e
YES
,

,1:10'

0

R'C~RO

R~~~R~

"

YES
°oER3
2F

•

I

IR

o • HAS LAST

0

NAME 8EEN

o COLLECTED

I

o • ___ e ____ •

I

YES

• +1

1M

0

IS

.----.----

.

••

IR

YES

I
I

III

I .
.---.--IW

km :m
.----.---."
YES
I

"

00

•

0
NO
RD o.RDAGN

I
I

I
I

TA8LE IN

o

YES---'---

I

INDI ATOR

1
I

•

•

"

.----.----

YES

LOADER BLOCK I

28

I

-II _______ e _______ _I,

XEQON2

3H

2C'

r-li~;CARii-OR---1
I

INDICATOR

I

I
I
---------e--------I
I

I
I
I

•
00

.----. ----.
20

YES

~:~O~~Ag~~N °oTSTVLD

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

o READ IN
NO

3H

COORTP

.

PIrIO

~8

fR2
2E
.*1--------.--------1*.
101
TYPE OUT
101
2
ERROR b t
101
101
1:1 ~~~MR 0 :,

J: 1-----------------1: I
ER3
2F
101-------- ~- -------10'

1:

~mA GO~lt a
11
"
THEN
1:1
01
MONITOR
0
1:1--------0-------- :1
0

891

2(

2A

PAGE

1H

TS TVLD

I

Tal

.---MO¥e-N.iie-----j
GOTO

.*
"

o ~i IIAINLbNE • XEQCN2

*. OI~~RA" N

0

'~F~E~yPING

I

I .
.---.----

I

1

IY

~~8J~~~RAII

1

I
I
I

I

--_______
I
TABLE e ________ _I

NO
•• TSTYlO

~A"E.

!

r--mrHhiF----'

2A

• HAYE ..

I
I

~A\.L1NE

lZ

-------::r~:-----

.---.---.

IX

SCRATCH
I
!I ___~~!~_o
________ !

T) IN

o
•• 2~'~LINE

1M

!

_________
e _____ _ I
I

1620 FORTRAN 11-0

•

j---Lo.ii-.--------.

IT

r--~~~-l~~------I

1

I

&N~NT IY

XEQON

•

1--~~~Ecr------1

TO' IG

I

--_______
e ________ _I
I

I

NO
o IS LAlT
0 DECCT
Ea~=: lER .. •• llJ
o • ___ e ___ • 0

•• sues

•

NO NAil
COL

0

IV

r--ijEane;;r-----'
I

I
---------e_________
I
.--.---.
,SU8S

I

1

~O'=kA~IAIIR
fAaLE

,
I
I

I

I

ARfA

I
j---;ur-;;lMe-&;;---j

II

o • ____ e ___ •

NO

IF

o

.P---.---.

COLNAM

I

I

NO----j----

YES

IE

I1

IK

m~RGhltD

ff8~~"E IN

IU

r-m~i~i::~----I

IP

.---.---.

I 0'

_________ e ________ _

IQ

IJ

•

.---e---.
I
,

NO
°oER2
2£

I

k~nk~-N

o
00

JiR~t~¥ IN

•

YES

IH

I
.----.---.

.--.----.
~~RII

"

I

I Ie
-1---~i~UP~----11
GOTO

0"

-, _______ e _______ _I

0

I
I
I

NO

•

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

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

DECe T

IN

IG

rl~~! !~~:----il
I
I

PAGI

LOADER ILOC. I

2 OF

4

1620 FORTRAN 11-0
JAVENI

lA

COUNTERS
AND DDAS
FOR LINK
PROCESSING

. 'AGE

.---.---.

UYSlE

3G

[---iiiAg-l'N------j
I ~~~o~o
I
I
I

j---j'N[ij Aljle----j
I
I
I
I

LOACER BLOCK 2

I
I
I
I

o °WILL PROG
o

--------- .-----I

3S·
I
IN CORE
I
SURPROGRAM
lIABLE

•

I
I
I

o

---------a----____ _

.----a----.

3C
----------------SEARCH
o

•

•

.----.----.

.---- 1.----.
I~AGE

.----a---.

•

NO
0

ER5

•

3'1

0

4S

I
I
I

I

I

o
o

I

CO~LO

3E

3R

I

m~TN~~~A.
I
I
I
I

I

3R

• CAAO OR

.

TAPE IND.
o ON

1:1
101

YES

- COTPLO

.----.
I
I
I
I

3S

[---INjTI Al,iE---1

j---i.:iiAC- •--------j

I

I
I

I
I
I

I
I
I

I

I

I
I

I
I

I
I

PROGA A~ COA
US,"G DIM

I

I
I
I

)"

21 SECTORS
OF CO~"CN
IN SCRATCH
AREA

I
I
I

--------- .--------I
I

I

---------.--------I
I
I

I

• ---;iji-ij P-'0-----'

I
I
I

E~IRY

IU

I
I

I
I
I

3F

j---sET-ijp--------1
I

AREA

CO~~UNIC.

I

I
I

I

I

---------a--------I

---------a---------

I

FORTRAN

10

lG

I
I

I

PROGRA~

FROM DIS'

I
I
I

!-------- ---------!
I

I
I

I
I

I
I

---------.--------CALL2

I
I
I

HEAiie;---j

RECORD Te
ceNFOR~ TO
CORE I"AGE

I

CAU2
I 3T
----------------m~Ki~
II
ANO ExECUTE

I

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

3T

3W

RELFR~

j~--;ii;e-

I
I
I

I

----------------SET U; DoA
FOR RElOC.
LOAO

ER5

3l

3Y

1-1--------.--------1·1
101
TYPE OUT
101

1:1
101

~mRGa5to
~CNITOR

1:1
101

I- J

I-I

1-1--------*--------1-.

I
I
I

~~mING AT

PROGRAM
FRo~ CIRo
'
OR TAPE

------------------GOIO
COMlD

j---cEi-- .--------j
CORRESPOND.
DI~ ENTRY

I
I

~U

.---- I

NO

j--liiiii-·--------.
I
GO TO

101

----- .----

RDPROG

I
I
I

---------a--------I
I
1I 3L

a-- __ a ____ a

YES

•

.*,
1*1----------------1-1

3'

FOR COAE
I "AGE LOAD

0

RDPROG

1*1

.---sET-ijP -ciiA----j

NO

.---- ,.----..
• AND
LENGTH

101

I---i=iii'bif6----I r~.Ao=lolt
I
3V

NO
0

I 30
101-------- .--------101

1:1
101

3 OF

3U

---------.--------I

•

•

I
I

1

•

eQUAL ENTRY. CDORTP
FOUfliD
•

o

3l

•

.

•

~~ML

3P

o SWITCH .\ ON

YES

TYPE HEAOER

• RECORD
o

YES

30

o

0

o)W
0

I
I
I

o CORE

EQUIVALENCE
TASLE FOR
EQUAL ENIKY

•

RELFR~

)J

•

--------- a-_______ _
I

•

YES
0

TYPE HEADER

o RECORD
o

.----.---.
I

•

•
0

I

I

3~

o RELOCATION

NO

I
I
I
I
!

I
I
I
I

II

.---.----.

TSTVLD

.--.---.

YES

I
I

T---l~Aii~hltE----T

0 0

FIT INTO

o CORE
o

I

COTPLo

3N

ER~L

3l

1*1--------.--------1•
101
TYPE OUT
101

.*.1:1
101

NAME,

S~§RLAP,ANO
ABANDCNED

I-I
1:1

101

1-1----------------1*1
I

3N

TO

I
J

4>

894

1620 FORTRAN 11-0

LOADER SLOCK 2

PAGE

I
I

COORTP

J
I

"8

I

I.-.
*1--------.--------1I
TYPE OUT
I-I

1_.

101

1-.
101

LOAC NAME

I_I
] -I

I-I
I-I

1*1--------*-------I- I
J
I
J
I

4C

I

j---iiEAii- iN-iiNe---,
I
I

CARD OR
TAPE RECURD

I
I

I
I
--------- *--------I

1I

-----.----.
1

•
o

•

40

IS II A

eYES
0 CDORTP

*

DATA
o CAMo

o . - -__ e ____ _ 0

NO

e
o

•

I
I
I
I
I

._--.---4E

IS IT A

•

VALlO

.--------.

• HEADER
o

NO

•

YES

• TSTVLD
•

•

CODRTP>I

3M
4C

895

4 CF

4

PAil. 1 OF

e---.---.
•
'.·~,,&Ehl..
.--...--.is.•'

~'nll

IA

• "8~1 ANi

I

YES

I

Ie

________
e _______ _
LIKE NAME

I

IC
----.I----.

•

· .
SE::::--r~:'
.---.---.
·.---_e___•.

•

•

10

1---GET;1iN-oii----,
LINKS SUBP.
I • TABLE

---------

.'

NO

I

1I
I

IE

j---COMP.RE-------j

II

FLIP SUBP.

,

.
---- I.----.
••
••
·.----.----.
~~lR t~~Al
• Four;o
YES

•

I
I

IL

.---- .I----.

. ' ~O~~DENTRY

•

•

I

.---.----.

tf

NO

fIIIO

•

I

.---.---.
•

YES

PH SEt
lZ

IY

Y~i~Mf~ON

I

I

I
--------e--______ _I

ZR

I

PHASEC

IZ

r-mii!N-------1

NO
••
. ' i~

I
I

I
I

---------e---------

I

Tol

IN

I
I

I
---------e----____
_I
l---iii~:~-~::---1

YEI

·.--e-__e.

I'

CORRESPOND.
elM ENTRY

I

PHASED

• HAS ENTRY
' . ~~E~A~hIDED

' . ENTER

I
I

IS

•

IX

j--GEY-·-------1

I

I
I

NO

YES

NO

• __- _ .____ e •

I

Tol

IG

··e---e----•
.
I
•

~. J8tl~~ ENTRY'.

IT

•

e---e-_e
YES

III

• ENDTST
.'

.' =~J &=08fh '.

I
I

•

1M

•

NO

I

TO

YES

--------r--------

IF

•

I

LmEEmy

•

·.-_e___..

lQ

I
e----.----•

•

IR

•

• END OF
' . m~~EsEEN

•• PHAm

I

I
TAdLE a ______ ... _ I
-------__
I
I
I

I

11\

10

F.NDYST

YES

LDA~~D'

I

EoukL ENTRY

I

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

j---jE.RCi,-------j

II

~~mo~m

~O~p~A~I

• BEEN

.------~--

•

'li¥ti:~f;--'I
I
--_______
e_________

I !~8c!:iii~1 --1
I.
.--.---

YES

CORE • ER9
TABLE •
• 2X

ULL

•

I
I
I

I
I

• jSuep.IN

•

'HISEl

I.

INOTST

IV

IP

fBR'- •TilLE
------------------GOTO
SERCH2

IJ

•

I

I

ENTER

-,--'LiCj.NAMf-----'
AND ,NT'"

I )e~~H¥I.l~
-------.----I
I
.----.--.

•

I
I

GOTO

IH

LODINC

• 'HAS EQUAL ' . ~801NC
NAME lEEN
•
• FOUND
IJ
• ____ e ____ e
YES

I--~l~ji~i.T-----I
-----____ e ________ _

-1---PLACE·;LiG---1
REC. MKl IN

i,---n~i~~i;:----il

.

rmr:::if-,
----r---

IU

IG

• • N8
L DINC
1J

T) 2A

IU

896

1620 FORTRAN II-D

.---- .----.

TS TYLD
•

•

• RELOCO\TION

•

YES

• RLFRM

·.---.----.
I
NO

!I

.----.----.

NO
• ERS

•

I

I

2t·

•

I

.---- .----.
I

· I .

I

SUBDIG

' . EROUP
• 3A

I

II

PHASED

r------

IUli. '" AILE

1&

I

•

~UN S~8:DED

NO

'.

YES

ZF

•
.,

I: 1-----------------1:

I

ZII

j---CAL~iN-------j

I
I

BLOCK 4
AND EXECUTE

I

I
I

I

In

--I

lrc=iefNy------1
ENTIIY

----------I

20
ZX

I: '---iY,EOUy----II: I

I:

:1

ERROR l '

1:1--------.--------1:1
I

ZY

•

··.--.---e..
I

.'

I

2G

I

• _ _ • ___
ZS e

I: l---mi;N:BiA~--I: I,

I

ER9

II

mMR~:RD

OR TA E

ES-- i-----

TJ

2R

I

Y

"

2Q

--Giiro-'TRYszi--

2K

RMTIl

YES
• EXTLD
•• Zit

---______ e ________ _

NO
• • SWlTtH I ON - • •
•
e ;~

,AND
LENGTH

NO

1---1ill~~LijE----jl

GOTO

•

·.--.----..

-111---~Cg:~5;~~~---t
TABLE

2E

1
'1

+2

2V

• ANY NAM.~
•• BEEN TY D

•• '
• ZR

-I-lii~-·-----l

------.----

.---.---.

•

I

---------.--------GOTO
RMTBL

NO

YES

I

II

21

•

.---.---I
II

•

1\
• IIAYNLlNE 1\
NO

fROM DISK

EXTLD
-

·•----4t_---..
.---- I.----.
I

I 2P
.---.----

~o

CF 'AIlE

YES

·e___-.----e.

TAPE IND.
' . EX LD
• eON
21\
____ .-___ • •

I

I

I

.' U f~l~o

YEt

2J

20

. ' ~1\ll:~gG
• tOilE

YES

•

1~~~8:~~-----1
1
1

I

!_-------...I ------_!
TRYSZE

• - CARD OR

•

NO

FOR tORE
IMAGE LOAD

I

YES

.

• IS THIS END. PHASED

·.---.---..

I

e_ ___ ,• _ _2H
_e

•

e.

•

2 OF

.----.---- •
ZU

•
• NO
• IS suep. f
• ER6
• EQUAL TO
•
• MAINLINE F
lC

--------r------

28

j---SETUP-ijij.----j
I

ZN

l=L~ING
PROGRAM

I

·.----.----.
!I

.----.---.

----k2ii~s~iGi~---

• tORE IMAGE
•
TYPE HEADER •
• REtORO
• 2Z
YES

PAGE

ZG

TYPE HEADER •
• qEtORD
• 2L

•

LOADER BLOCK 3

2A

'
-,---jNc:miii------,
E2TRY

I
I
---------e_------__
GDTO
LOOINC.I

II':•,

EII5

21

I.I------~--------I·I

TYPE uUT

I.

'=-2" ~'to ,:•
.011T8K
1:1---.--------1:

T) zu

887

IK

IOlO FORTRAN II-D
EROLAP

LUADER BLOCK 3

PAGE

3 OF

PAGE

OF

3A

'j---SE,-ij VERL_,---j
I
I
I

INDICATOR

I
I
I

!-------o---_____ !
i

I
I

I

I
33
1-1--------.--------1-1
101
TYPE OUT
101
1:1
~~~E6~~~~!~ 1:1
101
.esSAGE
101

.*1

.*1

1*(-------*--------1*1
GClTO

R.TBL

ERO

lA

3C

t. [-------- .--------1-1

101
101
I-I
I- t

101
101
1*[
1*1
J. I

TVPE OUT
ERROR L6

1*1

1*(--------*--------1*.

1620

LBSUBA

IA

SUBROUT I NE
DIM ENTRIES

I

II-D

LOADER SLOCK 4
IG

j---cALcuLATE-----j

'j---GE'-L iiiRARy---i
I
I

FORTRA~

I
I
I

I
I

I

SUBROUT I NE
NUMBER

[
I
I

I
I
---------e--------I

I - - - - - - __ e· ________ _I
-

I

I
I
I

I

I

'j---j~j,j

I
I
I

18

ALlzE----j

POINTER TO
SCAN TABL[
OF CALLED

I
I
I

•

_________
a ________ _I
I
SUBROUTINES

I

•

• HAS
o

.----.----.

NO

0 0

I
I
I

i~

[

00

un

ENTRY

o CHECKED

o

.---- .----.

NO

I
I
I
I
I

I

I

I
I
I
•

I lk
.el--------.-----[-I
TYPE OUT
101

yes
00 ""TBL
IX

101
101
101
101
JJ

.0.
10[
[01
1*1

SUBROUTINE
NUMBER

*.wl------__ .--------1 -I
I

POINTER TO

NExT FNTRY

IF

•

I

I

o

I
I

---------.--------GOTO
-1

-----.--.
[

I

o

I(

YES
• 0 +2
IN

i---Lii'ii-· --------1

101
[01
101
'-I
.-1

I
I
I

1:1

1:1
[01

mna~

lo[

SUBROUTl NE
FRO. DISK

I
---------.--------GeTe
LBSUB •• 3

•
•

•

•

e---e----.
yes

o

•

+,

LBSUBA

IT

r-iu~aiADER----l

o

•

Il

I

I

---------1---------

10

i

I

rm~,i

IY

AND

I

! ________ o-------_!

0

RMTBL

LBSU81

e----e----e
I

NO
0

BeeN

o CHECKED

IX

YES
ANY CONTROL • •
CARCS
- +2

CAU.

•

IX

Il

r-m~'=;------l
_______ e- _______ _

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

T)

IU

10

.----.----* •

~c

IS

o LAST ENTRY

•

-

I: 1------ --------1: I

I
.---.---.

I
I
I

I

R.TBL

IR
[0 [-------. -------101
TYPE OUT
101

I

•

IQ

1----------------1*1
GDTO
LBSUBI
IT

[o[

I
I
I
I

---------e--------I
I
1[ I"

I

TYPE OUT
LOADED
MESSAGE

IV

[ADDRESSES
I
IN FORTRAN
[
CD ••• AREA
I

0

o +2
IR

l_I-------.-------lel

101
101
101
1* I
1 -.
1*

lL

- OVERLAP
IND[CATOR
o ON

o

I~DICATOR

[

[

[

o ON
o

[

IE

j---OECMtMt;;,-----j
I
I

IJ

INDICATOR

I

i---PLACE· ENTRV---j

YES

_----e---*
I

I

10

I

IP

o OVERLAP
o

I
I

•

---------.--------I
I
I
I

----- .-----

NO

--------- .-------••I

I

1
.----.--.
•

YES
••

o

ENTRY
ADDRESSES

I

1*.
1*1--------.-------1*
I

• +2
lK

I

0

[

•

I-I

I
I

j---SE,-ii vERLA"j;--.

YES

••

I
I

.-1

l-t

I
I
I

•

imogm~D

o0

WILL SUBR.
FIT INTO
• CORE

I
I

IC

i---RELCC ATE------i

[.1
1* r

LENGT~

IH

• .----.----. •

NO

[

.---.---.

101
J *J

1
I

o • ____ e ____ •

I

.1

•

IU

1-1--------.-------1-1
I- I
TYPE OUT
l*t

I

I
I

IN

T) 2A

1.20

I
---------e-----___
_I
I
•

o 0 ~8H~~ ~AME
o

o

N~

•

00 C LL.
IV

o

•

YES

0

,

.----e---e
,
,

'~~CDNDARV

mma, ~=O ,

i
.----.----.

I

,

FIT

ROUTI~E

•

••2

[

2E

[
TO INO[C~TE
[OVERLAP

•

,
[

[

o

[

--------.--------+2
GO TO
[

I

.----.I----.

-,---LOAii-FLiPER---i

• *[S CONSOLE

[

o

[
[
[

SWITCH I CN

_----e----e
I
TO

lG

I

2V

i ;;-------j

1,

_________ e ________ _

I

CAU5A
211
i:---cAL--~
[
BLD K 5 AND
[
EKE UTE

.

iN--------,
[
[

------___
[
e ________ _[

.*.--------e________ ._ (
.0 [

[

[ 2S
e.----.----e eYES

YES

••
•

0

-e

+2

2N

•

0

o

y~g~~~~OR

* _e +2

ON

•

2U

e----e-___ e

NO

•
[

.0.----____ .!________ .0 ,
2T

*. ~~ll5A
o

o

0

2W

.0.'0.

.0.[0'

TYPE OUT
[0 •
LOADED
.o[
MESSAGE
[0'
.el-______
[0.
e _______ 101
Je J
'0.

•

[

[
[

•

I

K "AIfO
UTe

2R

[0 [

2H

2M

2F

TO

.----.

.---- [

no
ElE

!

•

.NO[CATOR

NO

2G

•

.*.

•
[
[
•

2L

• [S OVERLAP
• ON
o

0

ROUTINE

.----.----.

CALl5

i---SEj-C iGij-----i

[
[
[

i

-1---tA~-~-

I: 1--rYP'E-oiiT-----I:'
LENGTH
.el
1:1
1:1

---GOrii--O-jsrENO-

[

[
[
[

to NEXT

LI NUGE AND
,
[
SU8PROGRA~
[NAME

2F

.----.----.

NO

2K

j---jNCREMENT---i

• yes
FL I PER • •

20

I: 1----------------1: 1

[

20

.';l

.0.-------.--------'0'
.0.'O[ TYPE
OUT
.0.'O[
iTARTlNG
1:1
DDRE S
I:'

,

-----____ e ________ _

YES

••

I
,

2J

•

. - - _ . ____ e

NO

i---puTAoiims---l

I

00 o

1:1--------0--------1:1

2P

• 9VERLAP
&=0 ICATOR

2L

--_______
'TABLE e ________ _,

•

I

.--.---.

•

CALL5

0

SUBPROGRAM
o TABLE
o
NO

2C

•

o END OF

:•

?~~,JWII

o

l 0101:r--iv'n~i------I:I
"rlskG!
0•

1*1-------*------- •

I

i---;E.a- iN-------i
,'~mm'
SUBPROGRAM
,I

•
• WiLL

I:

HAM

o

I

•

2U

:I-~' DUi~~---:•
Of

- _______ e _____ _

,

I
I

LOAOER BLOCK 4

• ____ • _ _
UTEND
2H e

.----e----.

YES

11-0

rI IDim~m
I
m~H
I

r--liARCH--------i
, Eo~H ~2:e
I

I 21
.... ---.----.

FO~'~AH

ZG

2A

GOTO

CALL5A

2W

2N

9110

1620 FORTRAN. [-D
PHASEB

LOADER BLOCK 5

PAGE

IA

IN
lel--------.------- t-l

r--~5i;:~l::~ii---•

1:1
[0.

TABLE

[
[

---------e--______
[

o

o

e
o

OF
TAIL E FaUNa

eYES
0 CALL'
0

2F

•---_e_-__ •

.I

[

[

TSTVLO

oO.NDICATOR
•

.--_e____ •
•

I

10

I

-2

0

.---.----.
IE

0

0

U\jm~l ..l~

• o lISLE

e----e----e
YES
[

I

IF

IB

1:1
f~a:ll~G
1:1
101
LENGTH INO
[0
LOADED
.-,-------e-------le[o[•

.0.

,

e +2

1L

0

,
I
I

•

10

i---pur-'ENTRY-----j
•

A2¥RESS
hc8NDARY
LINKAGE

1•

,

1[

---------1--------1
.----.---.
o·
IR

•

&'~~RAM ON

•

YES--i----

NO

e

00 CDTPLD

oe

1T

I
l---i'8~i~~K-----l
15

•

NO
0 0

0

e

I t~mamM I
---------e----_____
-----(r-ii 1;--------

t)

:ES

----_____ e ________ _

------ __ e ________ _

GOIO

REtORT

o VALID
o
0
.--e---e
ND
[

R LS AND
~RANCH TO
MONCAL

IP

1

0 0

I
' IK
-,--iYPE-OUT------i

r-li~n~'Nj-----l

I

I

IJ
e----.---e

e e NO
• • ENTRY
_
o
PREVIDUSLY 0 0 +12
0 0 LOAOED
0
E

I

I

RECORD

--------e-_______

I
•I IC
e----.----e .

COMP

SIZEOK

I: 1---jyp'E-NAME:----I: 1

l---m~~l~~~---l

1'10

YES

[o[

lel------- ---------Ie I
GDTO
CaMP
10

1B

E~O

._.

lo[

[

I

OF

IU

1:1
[01

mMA:~6

DVERLAP

Ie J

[

-----.-----

I

---------e----___
GO TO

SCHPRO

.--.-----

YES

2A

,

!

1l
1-1------.I -------J e,

101
1:1

TYPE DUT

nC~IO FOR

,0,
:

.o[

,O[

1:1·..-------------1:1

t)

IG

901

2A

1620

.----.---.

SCHPRO

FORTRA~

11-0

2A

-

NO----j----*

.* Zl
-

I
I
I

CARD OR
TAPE RecORD

I

.-1-------.-------I*,
TYPf ER L11
I_I
2B

I-I

r*1
.*{

.*.-1--------*--------1*.
(
1*1

.----.----.
I

•

1*'
Je,

..

1-.

OLAP

I
I

NO

I
I

SUAP~OGR'M

•

•

2J
.----.---.
•

•

I S IT

20

•

I

J
I

•

.----. ----. •

ANY PROGS.
Nor lOACED

I
I
I

1

I
I
I
I

I-I
lei
I-I
lei

--------.--------GOTU
PHASES

•

ANY

2L

NA"ES OF

,_,

~OT

lei
,_ I

All PROGS.
LOADEO

CAll6A

•

·-.---- *---- .. NOT LOAOEO

1
1
1

CAll6A

•

2F

I-I

2"

I---CAll- i ~-------,

NO

PR.OGS.

CAlL6

•

,-,---GOTO
------·--------1-1
REAO
2G

IA

CAll6

2F
.----.----.
..

NO

•

!. {---------. --------1-1
'*1
TYPE OUT
,_,

'--PUlO i 5;:------,

•

IJ

*----.----.
I

2E

AOORS. OF
SUBP'O. IN
SECONOARY
LINKAGE

2G

H- (,

I
I

I
I
I
I

•

TSTVLO

I

I

NO
• READ

PHASED

r

I
---------e-----___
_
I

A~

INOICATCR
- RECORD
YES

'---STO;e·--------,
SUBPROGRAM
IN SCRATCH
AREA

I

I
I

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

I
-------- .---------I

I
I
I

•

I
I

I

OF

YE S

• PHASEt

.----e ___ •

1M

2C

MARK AT ENO

•

-OA r A

.. RECORD

l---SET-GROUP-----,
I

2H

.. IS IT A

I*J

GOTO

I
I
I

I
1

I

I

2 OF

!_-------.------_!
I

I
I

PAGE

2G

'---REAO-iM-OMf---'

• \.rll SU8P ••• :ES

*. ~t~AJ~~O

BLOC~

LOADER

READ

2"

BLOCK 6 AND
BRANCH TO
fXECUTF

I
I
I

--------- .'_._------1

I

1

I

TO

I

2G

902
)

1620 FORTRAN 11-0
AR ITH

IA

LOADER BLOCK 6

NINZOK

j---RESTOIiE-------,

'---;;UlTjPlY-Ni---,

I
I
I

I
I
I
I

COMMON AREA

I
I
I

!------ e--______ :

AY"

NO

e

•

I

I
I
I

e. N 1N20K

.----e----.
I
I
I
I

I

SE T 1

.-

e

lL

e

-

IS VALUE

200 OR LESS

YES

• NITST

-.----e----. -

•

+1
10

e

I

I

• IS VALUE
1 OR

NO
e

NlTST

e +1
10

. - - - - e ____ •

YES

I
I
I
I

• ____ •I ___
10 e

•

IG

•

IS VALUE

20000 OR
GREATER

•• GREATER

_- ___ •I ____
IJ e

•

YES

-

NO

YES

•

e

II IP
LOFIX
e .----.----. e

I
I
I

I
IC
-----.-----

-

IS VALUE

100 OR LESS

e----e---_e
NO
I

e----e----e

- ~I BEEN
SPECIFIED

I
IH
e----.----e

-

.
e

•

NO

I

_- b~T~~tO~~NO -_LOFIX
- SUBS CALLEO IP

-

e

I

•

NITST

I

I
I
I

I

I
e ____ •I ____
IB _

-

e ____ • ___
IN _

---------.--------1

I
I
I

YE S

PAGE

IG

NO

- NITST
-

+1

-

10

• e

-

NO
•• GETF(X
- IS SHOR T
ARITH TO BE
IS
- LOADED

-

.---- .---- e

YES

I

I
I

10

-

IR

,---r.,e-DUy------j

j---rR.NSFU------j

I

I

I

U 01
"ESSAGE

I

I

I

!-----------------!
I

1M

I
r--~.L~~~ -~~R-----I
IE

I

I

•

SET!

lL

r--m~~~

I

AAi TYPED
IN

EQUAL TO I

II
I

I

I
.----.---.
-.H, SOIMl
IF

NO

N2TST

TO-- ~nST
•• i~

-----..
HI TST

I

---------e _____ _

--------.-------•• I A

CORO----i

II;

1"

-1---=~PA~lY----1
LEN8TH BY
H2

I
I
I

---------.--------TO

I

A~O

ARITH

I

~gRI9cH
I
!---~~!~----------!
GETFIX

III

IS

j---C.li:- iN-------j

I

~m~A~

II

AREA

---------r-------I

I

I

I

IT

I

j--"BR.NCH-rO-----,
EXECUTE

-------e---------

IN

903

-"
1 OF

flIP ROUTINE faa Loao ONeaLL SUIPIlDGIIIIIS
IG

LA

r-mn~K'.

"GE.

I Of

1

PAGE

I OF

3

--1

-:~----T~--•

----:g~i;tiiuiN----

.

.·IS SUBPRO.
STILL IN
• CORE

IH

I-------*.. ------I
I
IMROGRAM

EXIT

IJ

i--~5ii~a~i~--i

-I ...-------.-------I
j---sE'-SeCyo;----'j
~~~NT TO

,

,

I

I

!_-------.-------_!
I
I
I

!

IE

r--m~~ ;~:-----I
I
I

CORE ADDRS.
IN DDA

I
I

---______
e ________ _I
I

!
!

If

j---sEr--.--------j
I
I
I
I

INUICATOR
TO S~OW
THAT PROG.
IS IN CORE

I
I
I
I

,

---------.--------TO

I

IG

904

1620 FORTRAN 11-0

DISK 110 SUBROUTINE

IA

I
I

WOS/REeORD
IN NITEMP

,

TOBB

GOTa
18

I
II

•

!
I

Ie

TOBB YO
B DRAY I

---------e--------I

..---- .----...
I

EVEN
IT

••
•

.

I'R~~~~
AlltllllA,Y

••

NZCK

IG

I

•

I

IW

i-!~E~iM~~F--i
I
BE RUD OR
I

!--~~!!!~-------!

I
.--.---.
•• •~~T'~k'~3k· ••
• auX

I

I

::IA~

\Q

D
IX
--------1---------

IR

10

.

I

DIGp

--------*---------

r-ur~iiyn:---l
-----j---------

II
I

II

I

II

I

F

SET!

j---'jN'jyj lLlzE----'j
I
,
I

a

IV

'j------sAve-------j

I

llE~
&F~DANO
~ teH INa

---------j--------

I

DRAY

I
II

IQ

IP

I

I
URAY
I
I
I
----____ e ________ _I
I

---------1---------

--------.------....DRAYI

SETl

REeORO

IF NOT AN

~mYeRO~O

LENGTH OF

I
ON
--_______
e ________ _II
I

I

'I
-----li8·-------•

IU

-'---cALcutAre-----j

r-m:~l~;~~---i

I
I

I
_________
e ________ _I
I

IN

FETCH

j---puy-NiJiiii------j

F~M-G~~~aR
"

II

aE URN •

•

II

AREa II TURN
IF NZ II

,

,

---------.--------OK
I
I
• ___ •!____
1Y e

.

FETCH..
ZD

••

IU,eH
FElCH

.
..

,UO fDRTUN 11-0

DISK 110 SUI.DUTINE

PAGE

e----.---__
·
...'
'.·

EVIN2

INTO
SlIo-l

-1---~ji~:i~R~~----i

··

I

I
,
---------.---------

I

2P

..

lL

•

GO TO

.~~r::"

I

•

OIiE RECORD

,

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

I

!

!
.---· I.----..
IF FETCH

.----.-_•.-.

.

2l

•

o

I

,---jNciiEMENr,---,
~~~C~E~~RD

I,

.---- .----.

!--------o-_______!
I
I

II

-1--------. ------1-.
0'

J .,
, '1

l~

SET UP AND
REAU IN THE
ROUTINE FOR

.,

101
101
101
10'

EVEN ARRAVS

•
o0

:I---~~!~-~!~!~~---I: I

I

I

•

NO
TOBB
F~hb-m8"p 00 lB
IS BUFFER

yEs-i---TOI 2U

2N

•

0

·
0

II

2S

•

I

TO

I

'---PUr-ONe-WO----,
,
'HTO BUFFER
,
II DECREMENT
,
NlTEMP
I
--------.-----...I
I
CK
I IT
.---.----.

II

NU"8ER

I

IF FETCH
GO TO
HTCH2

I

i

I

e ____ •I ____
21 •

• FETCHI

••

~~Tl~l

211

j---'NCREMENT-j---,
I
AND THE
,
I Dl~~R~~~TOR ,I
,---------e
________ _

lR

•

,

I

j---SET-UP-rO-----j
II =BO~RB~=I~~ II
!-------- .-------_!

••

lV

j---;EAO-OR-;R----j

•

SWD

I'

LlNKB

.----.----.

SliD

WRIT~

I
I

-------e-------

I

2 OF

2U

-I---;HIA:::--------

~eE~~

21

2N

AGAIII

2G

o

2V
.----.----.
GO TO
T08B-12

I

I
I

FETCHI
•

•

I

·
0

• ____ e ____ e

21

.----.----. •
IS THE
BUFFER

o

E~PTV

e ____ e ____ e

!

e0

YES
TO

~O

FETCH2

0

·
0

0

38

3A

906

1620 fonRAN 11-0

DISK 110 SU8ROUTINE

PAGE

·.---.----.
iS T Igc. .'.
3A

LINK!
2V

• 0

·

O~:

.

o GO TO LlNKB
e ____ • ___ •

I

0

---------.-------GOTD
CK

FETCH2 I 3B
i---OECREMfflr-----\
I ~~ET~~uln
I :K~I~~ i~FF

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

I
I

3C

DRAVl

Fat

OF WOROS
IN ARRAV

--------T-------3J

---SKjj;- THE-----B8 IF ALL
WOROS NOT

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

I .
·
...

I
II

e-_. __ .
3D

o

I
I
I

PROCESSED

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

•'

3H

11---i~~R~e~~i~----i

I

-II---:~~l ;~~~-----I

2T

PT"~ItD A~N ' .
Aku
JDR ~ ••
o
•

•

•

~-i~:'
e___-. ___ •

.----.----.
3K

. 0

88

•

o

0

I
I

... ' ••·AIA JD.NPL.
:J,IIVAO '" ' .
0

--I

•

e----.----.
3L

----iSII;u:~:8R-----1

,

II THE

0

AItAV

I

--------.------I

.----.I----.
311

••
•

o

18.12

...--.--.

•

GDTD

•

••

•0

AGAIII

211

907

3 OF

1620 MONITOR 1

DUP ROUTINE

00010 •••
00020
00030 lOCAL
00040 ROWR

REAO/WR ITE FOR CORE IMAGE LOAD
OORG 2201
,716
OS
OSA R01

00050
00060
00070
00080
00090 WR

TFM
8

IORT.·+23 ••
IOPT.WR.7
lOR T • SLI. 7
lOCAL
2.02

00100

TFM
B7
DSC
02
DSA

00110

OSC

00120 WR2

DSC 1,0
0
5,0
DC
-0000
3,0
DC

00130
00140

PAGE

.SELECTIUN ROUTIN[

PUT CORE IMAGE PROGRAM

02201
00716
02205
02205
02206
02218
02230
02242
02249

0
5 X
16
49
16
49

-4513
00565
00532
00565
00716
2

WR2

02255

1. '

02255
02256

-2257
1

02257

1

02262

5

02265

3

02270

5

02271

1

1

1

-2229
-2249
-2272

5 X

1

~OO

00150
00160

2,-22

02272

2

00180

DSC
2K
DSA

Sl2

02278

5 X

00190

DSC

1,'

02278
02279

-2280
1

00200 SL2

02280

1

02285

5

02288

3

02293

5

00240

DSC 1,1
1
5018550
OC
J85S0
3,036
OC
-36
DC
5,2402
-2402
DSA SOLDON

02298

5 X

00250

DSC

I, '

00260 COR
00270
00280

TFM

IORT,*+23
(OPT.CORl,1

00290 CORI

DSC
22
OSA

00170 Sll

00210
00220
00230

00300

-5

--_J

DC
5.0
-0000
DSC I, '

B

2,22
COR2

02354

TRA

02354

1

-4560
1

02298
02299
02300
02312
02324
02336
02348

1

16
49
36
49

00565
00532
00000
00000
2

-2323
-2348
00500
00000

5 X
-2356

1

nn~

1610 "ON ITO_
02)70
02180
01)'10
01400
02410
02420
02410
02440
02lt50
02lt~ I
024~2

02460
02410
U2480
02490 "01
Ol~on

TF

'"

OU, ROUflNE

.SELECTION _OUTINE

WR1'd.HOl05-2
lit S'88.0n02

043"
04311
043.0
0 ••02
0 •• 1.
0 ••, .
0.43.
04•• '
0 . . .,

8lfl e+I),
TF" DI"UR+21.lI79 ••
RCrv
NATy DI"fRR
8
IIIOCO"P-20
DORG . - )
IF
WA2'1l.IICS,"
aNF
·.24,"C5+12
SF
WR2'1 J
IF" WR2.5.00100
TFII IORT.RDWR
til
lOGY
O~C
2.02
02
OSA RD2

O.U'
0."0
0 ••• 2
044'.
04506
04513

I ••
101

04521

OH30

O~

5,01400

04526

02560
02510 SEC2
02580

DSC
22
OSA

..
J2

16

''1

0 . . 26
02270
0. . . 2
02no
022.2
00565
00566
2
5

OSC
I

02550

26

Dun
oun

-4521
I

DSt

-1400
OC
J.I71
J77
OC
5.02302
-2302
OSC I . '

••"
••

6

05261
-H02
01500
0'11'
00102
00100
00000

00000

04519
04520

02520 ADl

02\40

16

n

"'f
02265
17166
0....

04'1'1

02510

,

.
2.
1.

17866
177.0
00000
-0100
-2205

04529
045)4
045J5

2,22

045J6

SEt22

04542

025'10

OSC

I.'

04542
045.J

02600 SEt22

OSc

1,1

045H

02610

DC
5.18260
J8260
OC
3.1
-01
DC
5.02200
-2200
OSC
I,'

5 x
-4544
I

I

02620
02630
02640

02650 SOLDON TFII
02660
8
02610
TF
02680
8NF
02690
8
02100
OORG
TFII
02110
02720
8

04549

5

04552
04557
04558

IORT .... 23
IOGT.DDAI.1
INPUT+74.1EROI2

04560·
04512
0458.
04596
04608
04616
04616
04628

•• 20,MCS+22
e+32

'-3
IORT,·.Z3
IOGT,CCO,7

••

4'1

00565
00566
\)687
04616
04640

-4583
-5280
0592.
17800
00000

16
49

0056~

00566

-4639
-4614

.92616

9"
1620 IIONITOR I
02730
02740
02150
02760
02710
02180 CCD
02790

TFII
TF ..
8D

IIIIPUT+96 •••• 10
IIIIPUT+98.49.10 .
CALRPL'6 •• REPUC
8
CAllD
DORG '-J
DSC 2,02
02
OSA CCD2
I, •

02800

OSC

02810 CCD2

DSC
1.1
1
DC
5.00798
-0798
DC
3.2
-02
DS. INPUT-I

D2820
02830
028.0
02850

DSC

,

I.'

02860 RePLAC OSC 1.0.Z200
0
02870
DC
5.0
-ODOO
02880
DC
5.0
-0000
02890 OI"MER C"
NEWDI",4994
02900
8H
SEleRR
02910
TF
HOLD6.lER06
TF
02no
HOLD6,NEWDI"
02930
A
HOLD6.HOLD6
02940
CF
HOLD6-J
02950
SF
HOL06-Io
02960
HOlD6.IoI000.7
A"
TF
02970
O"READ+5.HDlO6-1
02980
rF .. IORT ... n
02990
8
IOGT .DDRUD.1
OJOOO
TF .. TRet'II.RUDIII
OJOIO
TO
"n.HOL06
A..
03020
TRfC+IO.O.ID
OJO)O TRec
TR
DIMMER-6 .. '
030.0
8
DI ....eR-I .. 6
03050 EQUIV TF" lIeIlDIM.0002 ••
TF .. DI"MER-..... P
D3060
8T .. DIMMEII,"12
OJ070
TF .. "., ••• 4t,9
OJ08D
03090
TF" MAPoU._fAOIN
OHOD
TD" MA'.1., •
OHIO
OSC 1.' ,01120
011J0
OH40

.

TFM

•

TF"

IOU . . ."
IDIOT. ""'DOA.1
.+lt7.RUDIN+1I

OUP ROUTINE

'SElEtTiON ROUTIlfE

PAGE
04640
04652
D466.
04676
0 ••••
0468.

16

16
43

•9

04690

\)709
13711
D2930
0273 •

000114
000"9
02200
00000

5 •

04690
04691

-4692
I

04692
04691
0.70D
04705

5

04705
04706

JJ6I2
1

x

Ol200
5

0.711
04116
0.718
olono
047.,
0""
04166
04171
041.0
OUOZ
OUI.
OU26
OU1.
0"'0
0 . .62
OU1.
04. . .
0....
0.91D
04.22
0 ••16
0 •••6
04'"
0.910
OUIt
0 ••11
0.".
05006

I.

••

26
Z'
ZI

n

12
II
Z6

16
U

16
25
11
II
49

16
16

n

16
16
IS

..

16

••

05306
Ol9H
0'113
05lU

-.994
01100
0'''9
05)06

0"'0
05879
05113
0590J
00565
00566
0 . . .1
010815

OOODO
OOODO
MIOOO
0"82
-".9
-'''0
-59)6
0511)
000-0
00000
00000
0-002
-5)07

ann o5ln

au..
OUIK
047"
05)0'
04712
0.71.
05)15
05)ZD
onzl
I

....

-

00-04
-U16
00000

00565 . -5005
00'" -5270
o.on -".7

914

1620 liON nOR 1
0)150
01160
0)110
01110
01190
01200
0)210
0)220
0)2)0
03240
0)250
03260
01210
0)210
0)290
0))00
0))10
0)]20
0)])0
0)]40
0)]50
0)]60
O)HO
0)]80
0)]90
0)400
01410
0)420
0)430
01440

C:III
IE
I"R
TFIII
I
DOR'
C

IIW ROUT . . .

01011 14
05010
05041 U
050S. 16
05066
0501.
05014
050. . 4.
0509. 11
05110 "9
05111
DUll U
05110
05111
05UI U
05110 24
05162 ·4.
05U. 16
05116 26
051 . . I.
01210 14
05ZZ2 )9
05214 16
05246 U
05lSi 49
05269

".

liD

oo12,RUDllIHI
OIIlE"oU,1511,1
U'I
0-)
lie: SUI,IIIR+I1,11
RE URE'L
Alii
1"11+11,16,10
8
8"R-2'
DORG 0-)
RD
Alii
""+5,',10
B
1"11-60
OORG 0-3
ERREPL Alii
8"11>11,4,10
C
IICS+39,'"II+II,lI
8E
EQUIV-l,,6
TFIII DIIIIEIIII+22,l516,.
TF
Ile:S+J5,IUOIZ
TFM IIIC5»9,0,8
UPI
RCTY
WATY DIIIIERR
TFM IORT ••• 23
8
IOPT,00A1,1
8
CAL~O
5,0,.
HOL05 DC
-0000
,565
10RT
OS
10PT
,532
OS
MAPOOA DSC 2,22
22
DSA MAP

8"R

01450

OSC

0)460 10GT
0)410 HOL02

OS
DC
-0
0)480 SYSCAL OS
01490 OOAI
OSC
22
0)500
OSA

·

00565
00532
05210
05216

0)640
0)650
0)660
03610
03610 DO"",
0)690

·

DSC

·

03160 COIIZ
0)110

IIIONITOR COIIII. SECTOR

03110
01790 C0II2Z
03100
0)110
OUZO

,SC

aup ROUTINE

05211

05296

)

05301

5 X

oSELECTlO" IIOUTINE

,,5
PAGE

OI.OAD

11118
05)06

0
4

05307

20

05)21

2

05)))

5

05)))
05134

-5))5
1

9

05))5
05340

5

053H
05348

5

on",9

2.22

05no

DCF4

053. .

1, '

053. .
05351
C:OIIIIO"

5 X
-5358
1

0515.
05)63
05)66
O!ll1l

5

05112

2,22

onn

COllU

0'119

1,'

J1111

05)02

1,'

DSC 1,1
1
DC
1,11120
J15Z0
1,029
DC
-Z9
5010600
DC
J0600

5 X
-5288
1

05293

1, '

,

OSC
Z2
OSA

5 X

I,'

DSC

0)150

0
0
2

05216
05211

DSC 1.1.,
1
5,11410
DC
JI4IO
1,0",0
OC
-40
DC
5,01'00
-1.00
DSC: 1,'

0)140

UIU

11111
00000
OllU
001"
00U2
02U4
5

05216

03100

OH)O

osa75

DCFI

03110 DCF4
OH20

000-4
OIOIL
01200
0'5"
0592.
0-000
00102
00100
-5251
-5210
00000

00000

n.11

0
2

DSC 1,1"
1
5,IU69
DC
J8369
),021
DC
-21
5,05800
DC
-5100
DSC 1, •
DSC
22
DSA

05013

I

O,,,?

OUOR

00415
05280

0)510 IIICS
,17118
OS
0)580 NEWOI~ DC
4,0
-000
0)590 MAP
OSC 20,0
00000000000000000000
0)600 ODA2
DSC 2,22
22
0)610
DSA DCF2
03620

000-.
00000

,415
2,22

i620 IIIO"lrOR I

0)6)0 DCF2

OUll
0. . . 2

0
2

05)01

OSC

05111
0501)
05011

050IL
01200
000J6
00000

00566
05219

,11)66

OSC 1.1 "
I
5,19663
DC
J966)
),001
DC
-01
OSA IIICS

0)560

nau

2,0

1,'

OSC

0)540

••

-6141
01200
05M1

-5)01
I

0)520 OCFI

0)550

,.••

01051
05111
01074
05115
051.1

05216
05211

03510

O)S)O

,,,.

oSILleTl ... ROIIlIlI1

'"II.ll,RIIDI~411

05)79

aUla

Z
5 X
-5)11
1

OUIi
OUI6

5

au..

3

05196

9U

(

1620 IIONnOIl I

au' IlOUT INE

-SfLEtTiON IIDUTINE

PAGE

038)0

OSC

I,'

051.'

0)840 00A5

OSC
22
OSA

2,22

OU9.

03850

OCf5

05402

Ol860

OSC

I, '

05402
0540)

Ol810 DCf5

OSC
1 tl t t
I
DC
5,18298
J8298
l,OH
DC

01880
03890

SP LIST SUIIlOUTINES

10

-5404
I

05404
05409

5

05412

-B
5;,024t58
UC
-H58
OSC
I, '

05411

01910

Olno OOAl

OSC

2,22

05419

0~9~0

GSA

DCf3

05425
05425
05421>

01QOO

n

03940

OSC

I, '

03950 Dcn

DSC
1
DC

1.l ..

05418

05421

OREPL

'Jd8ItOO

05H2
05435

Ql"lqO

DC
h028
-28
'),05800
DC
-5800
DSC
I, '

04000 MONeAl

os

,7
-II>
DC
S,02.02
-2402
DC
I,'

o ••Ot

0"'0

"0

ou.t

Q!tlItO

o"SO
O"~O

Ot.97
0 • .00
0 . .0.

SEl

,

I •

0

•

.

)

1,0

O\O~O

.

·n ••

on12

"10'

I

,

0''''

LEAOll DC

0'0'0

0....

o . . .t
0""

12,0
-ouooooooooo
0'0)0 CUOIO ou INPUJ

O~020

t

0....

I,'

I.

•

0....

0 . . .0

0.Q10 D.IUO OSC 1,1
I
Dr.
,,0 •• 00
0•• 10
- •• uo
0. . .0
,,001
DC
-01
0\000
OSA IUDIN
0\010

PAGI
IS

..

••"
••

.00
00'"

Dona

00000
00000
2

,

I

-u,.•
-.u
00'00
00000

.

I

,
921

11>20 MONITOR I

0,,90

lleND

aup ROUTINE

.seueTlDN ROUTINE

'AGI

II

00000

112

I

~l

IUO MONnOI I
BDTEST
CALCoN
CALRPL
CARDlo
CoNTCo
DDRfAD
DIMERR
DIMNER
DNRUo
fNTNES
EQUDCF
EQUDDA
ERREPL
"APDDA
MONCAL
NEIIOIN
NOCoNP
READIN
REPLAC
RTURNL
UTR

••

OJl42
02710
02162
05929
03050
058'0
05853
04118
05898
05713
051>49
05641
05138
05270
00791>
05306
04141>
05931>
02200
04170
05511

au, IDUnlil
050.,

CALLD Din.
CCDZ
0''''
CCD ·,.~6"
COIIZZ ~RIII
toMZ
·'M1I
'COPY
onlZ
tolU
tOR2
ouu
tOR
02100
DCFl
OUII
DCFl
onn
DCF3
05621
DtF4
OUSI
05404
DtF'
DeFI>
051050
oeFPI 0 " "
DCFP2 05520
OCF" 0.591'
DCFPI> 05621>
DCFP7 05684

on..

-SILlcnDII IGIITINI
DC"I
DtF"
DCF
DDAI
DDAZ
DDU
DDA4
00A5
00A6
DDAPI
DDAP2
DDAI"
ODA"
DDAI' 7
DDAI'8
DOAPt
DDA
DElET
OMP
DUN'
ENTER

0571'
on54
OZ44Z
05110
oun
05619
01150
05596
0'442
05477
05512
05513
05618
0'U6
057ll
05746
02434
051>17
02994
0.541>

on79

16

'AGI
eQUIY
eRCD
UICo
FINE
FLiB
HoLD2
HoL05
HoLD6
INPUT

lOCAl
10GT
IDPT
IOU
UIL
LOAD
MAP
Mes
RDI
R02
RD
RDWR

O~'IO

REPl

OU24

SEC2Z
SEC2

0.129
oun
0'145

SEll
SEll
SEUt
SEL
Sll
SL2
TREC
UPI

OU19
OU. .

Dun

11611
00716
00566
00512
00565
05110'
055.8
. 0.107
17718
045U
04521
05118
02205

~R2

~RAo

WR
ZER06
SELEC T
SElERR
SoLooN
SYSCAl
ZERo12

05510
04544
04U6
0l>ta4
0639Z
0240Z
DI>U6
OZ212
02210
04116
05198
02257
05476
02249
ose19
02451
02974
04560
00475
05924

END OF ONE ASSEN8LY.

923
11>20 MONI TOR
00010
00020
000]0
00040
00050
00060
00010
00080
00090
00100
00110
00120
00130
00140
00150
00160
00170
00180
001.0
00200
00210
00220
00230
00240
00250
00260
00210
00280
00290
00100
00110
00320

OWRAO

OORG
SF
SF
TFM
CM
BNE
SF
B

ZS

NOI
AN

OORG
tF
tM
BNE
SF
B
OORG
tF
TFN
TFM
TO

2502
tARO+31
tAR003]
CNT ,0,10
tARO+32,51,10
ZS
ROONLY
-+20
.-]

ROONL Y
CAR0034,69,10
NOZ
ZERO

•• 20
'-3
ZERO
AN+6,NUMER
ANo11,tARO+12
NUMER,CARO+12

00450
00460
00470
00480
00490
00500
00510
00520

'AN+6,l,lO
A"
AM . AN+11,2,10
tN
ANo6,NUNU026
SHE
AN
SF
NUMER
SF
NUMER+!4
SF
NUMER+20
TFM SETFLCio11,CARDoll
TFM eOMFlG+II,CARD+n
8TM SETFLG,"12
TFM SETFLGoll,tARO
02538
02550
02562
02574
02582
02582
02594
02606
02618
02630
02U8
02638
02650
026"
02614
02616
0269.
02710
02722
0273~

32
32
II>
14
41
32
49

131>44
UI> ....
05132
131>45
02582
05135
02594

00000
00000
000-0
OOONl
01200
00000
00000

33
14
U
32
49

05135
13647
02618
05U.
02650

00000
00009
01200
00000
00000

33
16
16
25
11
11

0513.
02680
02,'5
05091
02680
02685
02680
02674
05091
05105
O.lll
04555
04615

00000
-5091
J3625
13625
000-1
000-2
-5111
01200
00000
00000
00000
JJ624
J3636
-2806
J3652
J3676
-2842
05116
05110
01300
00102
00000
00000
00000
00000
00102
00100
0513.
00100
00000

1~

47
32
12
32
16
16

02746
02758
02710
02782
02794 17
02106 16
02 . . . 16
02830' 17
02842 26
02854 22
02166 47
0287. 14
02890 32
02902 J2
02914 J2
02926 J2
02938 J4
02950 39
OU62 44
0297. 19
02986 49
0299.
0299. J'
01006 14
0)011 19
01010 J4
03042 15
olon
03054
03065

15

045~4

04555
OUI5
04544
05121
05121
04482
00000
00455
050'2
05106
05112
00000
04761
02994
04199
01006
04789
00000
04109
00000
05097
I

00100
00102
00100
00102
00000

05117
I

00000

924

1620 MONITOR I
OO~~O

00~80

TF
TO
TOM
OSC

00~90

W'IlY AOORS-5

00~60

00510

OObOO
00610
00b20
00630
006~0
006~0

00660
00610
00680
006QO

00700
00110
00120
007'\0
00140
007')0
001bO

OU, ROUTlNf

-OMUD

HOl OA ,E NOAO+l
HOlOA-6,ENOAI>-5

STARTA.l,,,

1,' ,.

0]102

s_rv

WNTV
SPTV
WNTY
fF
RC TV
8TM
RCfV
TOM
TF
SM
SEEK TR TF
TO
CF
lFM
fn
MM

00710
00780

81l

SURU-5
HOlOA-6
ENOAO+I,HOlOA

KYMESS.w+12
1"11+2,0
NEW.II,SURU
NEW+ll,I,lO
OCF+5,AOORS
DCF ,AODRS-5
DCF
HOL02,O,l0
HOl02,ADORS-l
HOlD2,5,lO
•• 20,99

•• 20
8
OORG '-3
SM
HOlD2,l,lO
00800
00810
TO
OtF+4,HOlO2
00820
TOM DCF+5.0
00810
fFM DCf+ 13, TRACK
TF
00840
WORKAO,AOORS
00850 ROIRAK TFM 010+31), TEST ,61
00860
TFM
tORT, •• 21
00870
B
IOGl.OATA,1
BO
PUTNEW,INIT+2
00880
TF
TEMPV,AOORS
00890
00900
TO
+.23. TEMPV-l
TO
·.23,AJUST
00910
SM
TEMPV-l,O,lO
00920
TOM
TEMPV,O
00930
00940
WORKAD. TEMPY
S
001<10

00950

.. I<

WORKAD.I05,9

00960
00910

95

00980
00990

SF
AM
TF
Tf)M

01000

B

DDRG
01020 PUTNtW TF M
AM
01030
CF
010~0
AM
01050
TFM
OIObO NEw
BNF
01010
OIOBO
B
OORG
01090
01010

PUfNEW+12

.+20,RDONLY
CKZERO
'-3

011'tO

01150
01160
01110
01180
01190
01200 CKENU
01210
01220
012]0
01240
01250
012bO
01270
01280
01290
01300
01310
01320 R /TE6K

TF
SM
CF
BNF
TF
AM
TR
TF
AM
TUM
-~

MNE
fFM
TOM
TFM
8

.+30.NEW+6

++18,4,10
CKE .. O,ZERO
.+}O,NEW+6

++lB.l,1O
,HUN

•• 30 •• -6
++18,99,10
NEW"ll,ENOAO
++92

010+35,TEST,67
WAGAIN,O

IORT, •• 23

IOPT .OATA, 7
SO
WTNOFO. THRU
.-60, WAGA I N
BD
EXIT?
B
OORG 0-3
CM
NE W+b. TRACK+ 1999
PUT .. EW.12
8NE
fFM
010+35.TEST,67
TOM
WAGAINtO
01330
TFM
IORT,.+23
013~0
IOPT,OATA,l
01350
8
60
WTNOFO, THRU
01360
BO
.-60.WAGAIN
01310
4M
AOORS-I,02,10
01380
SEEK TR
01390
B
01400
OORG ·-3
-+12,3600
01410 TEST
BI
01420
81
ERROR.1900
AM
OtF+5.l.10
01430
TOM THRU,O
01440
AM
tNT,l.lO
01450
CM
t~n,20.10
01460
01470
EXIT-12
8L
EXI T-24
8
01480
OORG '-3
01 ... 0
OCF+501,10
01500 WTNOFO SM
NOF INO+l2,OCF
01510
TO
TO
NOF I NO+14 ,DCfH
01520
015)0
NOF INO+11>,OCf+2
TO
NOF INO> II,OCF+]
10
01540
TO
'NOF INO+20,OCF.~
01550
TO
NOF I NO+22 .OCF+5
0151>0
RCTV
01570
TFM
IOU,·+n
ol~ao
IOPT,NOF-4,1
015'10
6
TFM
IOU, . . n
01bOO
IOGT,OAU.7
01610
8
RCTV
01620
TFM TRK,TRACK
01630
TfM '.11, TRAtUS
O16~0
TOM
TUCUS . . 2,
olno

OUP ROUTINE

]8

05l2~

05111
I
05091
00000
05105
00000

J~

)I

]8

05l2~

26

0]17~

]~

Oll86
01198
0]210
0]222
0]234
0]246
032,.
0]270
03282
03294
0))01>
0))18
03330
033]8
03338
03350
03362

17

05117
00000
041>62
00000
02880
03M5
01645
OH81
04976

n

]4
15
26
12
26
25
33

0~976

16
25
13

05118
05118
05118
03338
03350

43

49
12
25
15

0331~

16

03386
0))98
03410
On22

21>
16

16
4"
43
26
25
25
12

03~9~

15

03506
03518
035]0
03542

22
13
]2

0355~

21>
15
49

03566
03578
03586
03586
03598
03610
03622
0]634
03646
03/>58
03666

'-3
NEW+6. TRACK-IOI
NEW+l1.I,tO
.. EW.l1
NEW+6, lOlli,9

25
15

OSIlO

O]ll~

OHU
0)458
03410
03482

INIT+2tl

26

01126
OllJl
0]150
0]162

0343~

qq, TRACK-IOI
NEW+6,99

1620 MONITOR
01100
01110
01120
01130 CKlERO

,AGf
0)0'1>
0)071
0)090
01i01

11

16

11
]]

11
16
44
~9

05117
05111
00000
00100
00101
00100
00101
00100
051)0
00102
-3198
00102
00000
05110
000-1
05091>
05091
00000
000-0
05095
000-5
00099
00000

05145
00095
0009 ..
03640
02880
03598

000-1
05118
00000
J3171>
05096
-4006
-3433
-5153
02880
05096
05151
04529
000-0
00000
05152
00J05
00000
H615
00099
00001
00000

031>40
OlM5
03645
03640
00000
03666
03702

J3675
006-1
00000
00J05
-0000
05135
00000

05118
04980
04981
OH89
05145
0085J
00565
00566
03581>
0~152

0)481
0)493
05151
05152
0~145

925

PAGE

.0IlRAO
03666
03678
036 .. 0
03702
03714
OH26
03738
037~0

03762
03174
03786
037 .. 8
03810
03822
03814
03841>
03858
03870
03882
03890
03890
03902
0391~

03926
03938
039S0
03962

onn
03911>
03998
04006
04006
04018
040]0
040~2
040S~

26
12
]]
,,~

26
II
31
26

11
15
24
41
16
15
16
~9

43
43
~9

14
41
16
15
16
~9

43
43

II
49
46
46
11
15
11

03696
03696
00000
03786
03744
03744
00000
03780
03180
00000
0364~

03890
0085J
04435
00565
00532
04098
03810
OH26

04018
00624
04981
04433

031>00
01900
001>-1
00000
000-1
OOOKO
01300
00000

0~1l2

14

05132

U
49

04)94

DUll

12
25
25
25
25
25
25
)~

0419~

16

0~206

49

16

04lll
OUIO

49

04l1tl

14

04254
04266
04211

16
16
15

00000
J5775
01200
-4006
00000
-3961
-5153
04433
04435
000-2
00000

04066
04091
0409.
04110
04122
041)4
04146
041S1
04170

044]~

03640
03598
0085J
04435
00565
00532
04098
03914
05095
03Hb

0~071
0~090

031>40
000-4
00000
05138
03640
000-1
04991
03744
000R9
00000
05116
01200
-4006
00000
-3857
-5153
044]3

04~0l>

04911
04"S
04117
04119
0.191
0~193

04l9S
00000
00565
OOS)2
00U5
00566
00000
05111
042.4
Jllil

000-1
04976
04977
04971
0~919

04910
04911
00102
-42lf
-SI71
-'U~l

-"Sl
OOIOl
Jll1.
JJ111
00000

9241

l..f II1'/'

1620 MONITOR I

DU; ROUTINE

oDMUD

PAGE

01'90

OSA

OCF

05159

02500

DC

I. '

05159
051.0

-4976
I

OS
OSC

.DOAl

l,O,EXITZ.'

05151
04433

a

l.O.EXI T2.9

04435

,565
.554t

I

03011>
03011>
0103.
00097
00096
00099
01>524
04484
0 .... 4
00000
04549
04711
04788
04549
0]041
04510
04182

0'277
-5U'
000-5
05U.
00000
OJOOO
01100
04217
000-2
000119
-5'29
0]0"
000-1
000-2
00000
03041
00000

03041
0 ....
01041
0452.
03041
04662
03041
I
04182

000R9
01200
000-0
01200
000L4
01200
00000

01041
04110
03041
04514
0))041
04834
03041
04802
04182
03041
00000
04514

000110
01200
00001
01200
OOOMl
01200
00006
01200
01100
00000
03041
00000

15

03041
1

~OOOO

32
.. 9

01041
04182

00000
00000

15

03041
I
03041
04182

00000

12

U
21
)2

14
U

,.

II
lb

l'
26

II
II
Zf>
4'
49
I"
46
14
U

...

41
15

OUP ROUTINE

49
14
46
14
46
14
46
14

04746

46

041~8

46
32
25
,,'I

04814
04826
04834
04834
04845
048 ....
04858
04.66

TEMP

MOVE
B
DORG +-1
T~M

3'1
14
4'

04654
04662
04662
04.n
04686
046'18
04710
04722
04134
04110
04782
04794
04102
04802
04813

R

SF

04nl
041'0
041.2
04170
04170
04112
041. .
0440.
04411
04410
044'2
04U'
0 .....
04471
0 .. 490
04502
04514
04521>
0 ..531
04550
04'62
04510
04'70
045.2
04,'1"
0'60.
04618
04630
04642
n4~51

onRG ···3

)2
49

,

00000

00000
00000

935
PAGE

'DALTR
04866
04818
048'10
04902
04914
04926
04938
04'150
04962
04'1'"
04986
04998
05010
050Z2
050]4
05046
0505.
05070
05082
05094
0510.
0511.
05126
05126
05138
05150
O'I6Z
05114
05186
0519.
05210
05Z22
05234
05, ...
05258
05270
0521Z
05294
05]06
0531'
05130
05)42
05)54
05366
05311
05390
05402
05414
05426
05419

CORE~O

RCTY
wArY FRSTHF
TFM lOOP'hP,.+2eL
~TM
LOOP.SECTR2-11
wAry ORIG
RCTY
WAlY FRSTHF
TF" lOOPfJ+P.*.2.L
BT" LOOP. SEC TRI-11
WAry CORRTD
RCTY
RClY
wArY SECHF
TFM LOOPfJ+P, •• Z.L
8TM LOOP. SEC TRZ+3'1
wAlY ORIG
RC TY
WAlY SECHF
TFM LOOP9+P, e+2*L
aTM LOOP.SECTRI+3'1
wArY CORRTD
8
TRWFIX
DORG .-3
wRF IlE TFM JOAf,.+21
8
IOPT,8RC2,7
RClY
WAn FLSEC
TFM IORT, •• "
8
IOPT,BRCI-4.7
WHY CORRTO
HALT
~OP
8
FURZ
NOP
LOOP
TF
LOOP2_11,'-1
fFM COUNT,o,IO
AM
LOOP2+11,10.10
TFM TR+ll
LOOP2
TfM TR •• , 19'189
AM
TR.6, 1,10
AM
TR.ll,I,IO
TR
TO
199'10,
CM
fIl+6.1'I'I'I9
8Nt
TR-Z4
A120
35
1'19'10,00100
SPTY
AM
COUNT,l,IO
CM
couru ,5, 10
8NE LOOP'24
LOOP'I 8
FILL
ADRMES DAC 7,SECTOR'
StCTOR'
02540 MESX
OAC 12, TYPE CHANGE'
TYPE CHANGE'
02550 SEt TAO DC
7,0
-000000
02560
OS
6"IUFFER ARIA IN CASE OF MISTAKIS IN'ERING

02040
02050
02060
02010
02080
02090
02100
02110
02120
02130
02140
02150
02160
02110
02180
02190
02200
02210
02220
02210
02240
02250
02260
02210
02280
02290
02300
02110
02120
02310
02340
02350
02160
02110
02380
02)90
02400
02410
02420
02410
02440
01450
02460
02470
02480
02490
02500
02510
02520
02530

"'E

05453

34
39
16
11
3'1
34
)9
16
11
)9
)4
)4
]9

16
11
39
34
]9
16
11
3'1
49
16
49
]4
)9

\6
4'1
39
41
49
41
26

\6
II
\6
I.

11
11
25
14

41
)5

]4

11
14

41
''I

00000
06281
05432
05246
06301
00000
06281
054)2
05246
06163
00000
00000
06321
054)2
05ZU
06307
00000
06321
054]2
05246
0616)
03162

00102
00100
-4914
-6173
00100
00102
00100
-4'114
-549]
00100
00102
00102
00100
-5046
-6221
00100
00102
00100
-5106
-5543
00100
00000

00565
00532
00000
06U7
00565
00532
06163
00000
03048
00000
0529]
0]0]8
052'13
05341
05336
0533.
05341
19'190
0533.
05306
19990
00000
0)031
03G38
05Zl0
'19'1'1'1
7

-514'1
-'686
00102
00100
-5191
-6671
00100
00000
00000
00000
05245
000-0
OOOJO
-0000
J'I91'1
000-1
000-1
00000
J999'1
01200
00100
00101
000-1
000-5
01200
00000
x
2

12

05412
FILE IIIIIIIISS

05411

6

931

1620 MOIIITOR I

OUP "OUT IIIE

-OALTR

1,0
01510 SU8INS OSC
0000000
Ol~80

uc

)01

0 .....

01590

-01
DC

5,0

0550]

-nooo

02600 SECTRI OSS
100
02610
oGM
02620 SECMES OAC
8,SECTlON'
SECTION'
026)0 SEC ION DC
5,0
-0000
02640
DC
I,'

05.21

01b~0

DC

056ze

02660
02670 AREA

OS
OSC
50,0
00000000000000000000000000000000000000000000000000
lIse 50.0
00000000000000000000000000000000000000000000000000
DSC
1)0,0
00000000000000000000000000000000000000000000000000
'.iO,O
USC
00000000000000000000000000000000000000000000000000
OSC
19,'

01680
OlbQO
U1100

01110

I,'

•

PAGE

1

0'''.

0550 ..
05.04
O"OT

100
I
8 X

05626

5

05629
056]0

2

I
50

05680

50

05HO

50

05T80

50

05810

19

058.. 9

50

OOO~OOOOOOOOOOOOOO'

02170 SHAG
02180
02190
02800
02810
02810

OSC
'.iO,O
00000000000000000000000000000000000000000000000000
OSC
50,0
00000000000000000000000000000000000000000000000000
50,0
OSC
00000000000000000000000000000000000000000000000000
OSC
50,0
00000000000000000000000000000000000000000000000000
OSC
19,'
000000000000000000'
rFM
."30,CtfAR-2
AM
e+18.2.10
SF
CM
e-6.CLEAR.+216
BNE
·-36
TRA

01810

TCD

01110 l.LEAR
02730
02740
021~0

011bO

SFLAG

OORG SFLAG
01840
14,CORRECTIONS HAVE NOT 8EEN ENTERED'
028S0 NOTHNG OAC
CORREC TlONS HAVE NOT BEEN ENTERED'
OAC
13,01 SK SECTOR'
02860 FLSEC
DISK SECTOR'
02ala CORRTO OAC
11, CORRECTED'
CORRECTED'
02880 SEC TR2 DSS
101
02890 FRSTHF DAC
lOtlST.HALF •
1ST .~ALF '

05899

50

059U

50

05999

50

060...
06068
06080
06092
06104
06116
06128
06140
06068

19
16
11
)2
14

41
)6
49

06098
06098
00000
06098
06080
00000
00000

-58"7
000-2
00000
-6065
01200
00500
00000

06068
06069

H

06131

13 x

x

0616]

11 X

06184
06257

101
10 X

!J'7

1620 MON ITOR
02900 OR1G

OUP ROUTINE

oOALTR

OAC
10, ORIGINAL'
ORIGINAL'
OAC
lO,2ND.HALF
02'>10 SEC~F
2ND.HALF '
02920 PROD2 RClY
029)0
WAH UGOOFD
02940
RCTY
48
02950
TFM
IORT, •• 23
02"60
10GT, TRWAOR,l
02910
8
02980
8
01000
02990
OORG 0-3
0)000 UGOOFO OAC
49,SECTION NUMBER ILLEGal, START TO RE-ENTER -OAUR'
SEC Tl ON NUM8ER ILLEGAL, STAR T TO RE-ENTER oOAL TR'
01010 PR003 kC TY
WATY PROO31
01020
01030
RCTY
48
oDAL TR
03040
'"
RE-ENTER
TFM
IORT, •• 23
03050
B
10GT, TRWAOR, 7
01060
03070
8
01000
OORG 0-3
03080
11, TYPE-IN EXCEEDS SECTOR LENGTH, START'
03090 PROOH OAC
TYPE-IN EXCEEDS SECTOR LENGTH, START'
OHOO 8RCI
OSA
sec TAO-5

,

.. ,

03110
OH10 BRC2
03130

DC
-0'
OSC
22
OSA

PAGE
06)OT
06321
06346
06358
06310
06382
0639"
06 ..06
06418
06426
06421
06524
06536
06548
06560
06512
06584
06596
0660 ..
06605

10 X
)4

.

39
)

48
16
49
49

3,00'
2,22

06686

A110+L

06692

00000
06.. 21
00000
00000
00565
00566
03000

..

]9
3 ..
48
16
49
49

00000
06605
00000
00000
00565
00566
03000

5 X
-5477
3

5 X

01140

DC

I, '

03150 BRC)

OSA

SEC TOll-I

0669'

3,00'

06698
06101

AREUI

06106

5
-5631

DC
-6'
TF"

3,06'

06106
06109

8

IDPT, TAlA, 7

OH 70 BRC4

03lBO
03190 TABC
0)200
03210
03220 TAlA
0)2)0

0)240

DC
-0'
OSA

IORT,_.23

2,22

06110
06122
061)4
061...
0675.

TABS

06164

I,'

06164
06165

TRA
OSC
22
OSA

DC

,

00102
00100
00102
00000
-6595
-))98
00000

H

06692
0669)

03160

00102
00100
00102
00000
-6"11
-)398
00000

49
)

06682
06682
066'5

1

10 X

-3602
1
5 X
-5625
)

)

16
49
)6
.. 9

00565
00532
00000
00000
2

-6133
-61"
00500
00000

5 X
-6T"
I

938

l(\"

"10 IIIINUOI 1

OII'loun,.

-0'''"

'All

OU50 TAli

DSC
1

O)UO

03290

DC
5,19300
JUDO
DC
loOn
-)8
6,0)000'
DC
-3000'
TCD UIC

06710

03300

DEND 0

00000

0)210
03210

1,1

067. .
06771

5

0677.

)

06710

6

939

1620 MONITOR I
A IlOPL

ADRMES
BAOlYP
CORENO
CaRR TO
FRSTHF
"IOTHNG
PROOll
AIOO
All0
4120
AUO
AI40
A200

03618
05439
03301
04866
06163
06281
06069
06605
03108
03590
05366
03822
04206
03422

EIIO OF ONE ASSEM8LY.

AREA
BOTCH
8RCI
BRC2
BRCl
BRC4
CLEU
COUNT
DOAST
FILL
FLGM
FUM
FLSEC
FURZ

DUP ROUTINE
05610
01036
06612
0661.
06698
06706
05849
0303t
19100
99999
OU3.
04102
06Ul
0]04'

oDUTR
HALT
HURl
IOGT
10PT
Ion
LOOP2
LOO'9
LOOP
L
IIESX
MOVE
OIlIG
'ROD I
PRODl

PAGE
05210
04490
00566
00512
00565
05112
05U6
05246
00012
05453
04182
OUOl
03210
OU46

PRDDl
P
Q

SCANI
SCAN
SECHF
SFLAG
SKUNK
"IA
UII

UIC

0 . . 24
00006
00011
.04310
04242
06327
0606a
03406
06nt
06766
06110

nOH

TEIIP
TRDIG

DUll

Til

OU30

SAVADD
SECIIES
SECUD
SECTON
SECTRI
SECTR2
SNEEZY
SUBIIIS
TRII'OR
TRNFIX
UGOOFD
IIIIFILE

9
01046
05601
05482
05626
05504
06184
03168
054"
03398
03162
06421
05126

00010

1610 "ONI TOR I

....

00020
00010
00040
0005U OlARL
000.0
00010
00080
OOOqO
00100
00110
00110
00130
00140

OORG
SF
C"
8E

C"

8H
CM

"

onll)O

2502
INPUr+21 •• 10
INPUT'22,O,IO
ERRI
INPU,"22,13,10
ERRIO

PltK,INPUT+ZO

TO

00170

rr'

PACK-I,(NPUH18
PAtK-2.INPU"16

00180
00190

TO

PACK-l,INPUT+14

Q0100
DOll:)

Sf

'"

PACK-4,(NPUHI2
PACK-4

oozzo

' e

fRRIO
SffFLG' II, I NPU" 11

OOlilt1l

PACK,O.8

P"
~f

·+11,INPUT+ll,6

IF U':' SF

QOl"ll
007bu
DOl TO

OOlS"

SETFLG+ll.l.10
SETF LG' ll, 70 ,610
ERRIO
SETFlG+ll t 1.10

A"
C"
~L

AM

002~()

("

OOlOu
00310

8l
'0

OOl20
OOBO
00340

A

SF TFlG+ 11 t INPUT+Zl
SETFI.G
Mno" NPUT+22

",

.+41,INPUT+22

e.3'5>,e+]5
.+23.1.10
TOM
003~0
INPUT+ZZ,0.8
IFM AOORS,ROAREA+71 ••
00 )60
10M OOAl2+1.0,11
003 -'0
OOJ80
DDAl2.0
IFM
10RT,e+23
003QO
0040n
B
lOG', ODAll 01
e.22,INPUT+22
00410
TO
AODRS.O,q
00~20
A"
DOAl2+ 1, AOOR S .11
00430
ro
10
DOAL 4+ 1, AOOR S ,11
00440
004.,0
10
DOAL 6+ 1 ,AODIl. S.ll
DDAl8+1.ADORS.11
00460
Trl
OOAl2,INPUT+22
00410
10
004BO
SM
ODAl2+S,lOOOO,7
004QO
IORr,e+23
'FM
lOG' , DOAll , 1
on'loo
TFM TE S T 4 8+ 11. ROAREA+61
00" lU
BNF
RSPT.RDAREA+61
00~20
e+20,ROAREA+61
00530 'E5T48 BNR
RSPT
00540
K
00')')0
[)ORG 0 - 3
AM
TE S T48+11.1, 10
00"160

PAGf

-DUlL

-DL".L

ERRIO
INPUH II
I NPUH10, ZEROIO
ERRI

L

001 hO

IUD

INPU'+Z2. 70, 10

6l

KE
'0

OOJ3n

DU' ROUTINE

DISI<. UllllTY PROGUM FOR

A~

OETERMINE ADDRESS

'0"

On02
On02
02514
02526
02531
02UO
02562
02514
02516
0259.
02610
02622
02.)4
02646
0265.
02670
02682
02694
02106
02718
02130
02142
02754
02766
02778
02790
02802
02814
0282.
02838
02850
02862
02874
0281.
02898
02910
02922
02934
02946
02958
02970
02982
02994
03006
03018
03030
030~2

"

03054
03066
03078
030"0
030'18
03098

13n4
13635
03122
13635
03842
13635
03142
U.24
U6H
03822
042)0
04229
04228
04227
04226
04226
042)0
03842
02741
0274J
02741
0214J
03842
02HI
02HI
02730
02513
02813
028n
02873
13635
M280

000-0
000-0
01200
000'3
01100
OOOPO
OUOO
00000
04225
01200
U6H
13UI
13629
13627
13625
00000
0-000
01200
J3624
U624
000-1
OOOPO
01300
000-1
J3634
01300
13635
13635
02873
000-1
0-000

0~202

45
49

04201
0420.
00'>65
00566
03089
03118
03098
03\18

000000000
-2933
-4193
\3635
00-00
042804280428042813635
JOOOO
-3053
-4193
J3831
\3831
\3831
00000

11

03089

000-1

32
14
46
14

46

14
H
32
24
46
25
25
25
25
25
12
14
46
16
32
II
14
47
II
14
47
25
25
21
11
15
16
15
15
16
4"
25
11
25
2~

25
25
25
12
I.
49
16
44

04201
00565
00566
02"56
04280
04202
04133
0~156
0~179

H8H

941

1620 MON "OR I

DUP ROUTiNE

00510
00580
oO')QO
00600
00610
00620

eM

rE ST48+ 11 ,ROAREA+65 t 1

BH
BNF
B

-+ 32
TE S T48, TEST48+11.11
RSPT

OOb30

RE

00640
OOb50 •
00660
00610 R SPT
Q0680
006QO

00100
00110
00120 SEV
Q013C
00740
00150
00160
00710
00180
00100
00800
OOBIO
00820
008)0
00840
00850
008bO
00810
00880
00890
00000
00",0
00910
00030
00940
00050
009.0
00970
00980
00090
01000
01010
01020
01030 LA8
010~0

01050
010.0
01010
01080
01090
01100
01110
01120

UDRG

0-

CM

ROAREA+65.04800.7
LAB

PAGE

·OlA8L

3

14
46
44
49

03089
03154
03078
03178

J]841
01100
0308R
00000

14
46

13841
03514

-4800
01200

03178
0]190
03202
03214
03226
03238
03250
03262
03214
03286
03298
0]310
03322
03334
03]4.
03358
03]70
03382
0]394
OHO.
03418
03430
03442
03454
03466
030418
03490
03502
03514
03526
03538
03550
03562

25
16
26
16

04118
03249
03261
005b5
00566
IHN
03249
03310

\3.35
OPOOO
03201
-3231
-4170
OPOOO

03574
03586
03598
0)610
03612
036)4
03646
03.58
03670
03612

25
32

03110
01122
Olillt

0314.
03154
03154
03166

REINITIAlIZE SEQUENTIAL PROGRA" TA8LE
TO
IFM
IF
TFM
B
TF"
eM
BE
SM
CF
AM
AM
IF"
S"
CF
AM
AM
CM
BL
AM
TF
SM
A
SM
A
SM
A
SM
A
SM
CF
TFM
8

DDAl8,INPU1+22
'iEV+LL.l000,8
SEV+23,·-1
IOJlT,-+23
IOGT,DDAl7,1
~ OARE A+ 3,7000,8
5EV+LL,7000.8
-+48
SEV+6.3,l0
SEV+b,.6
5E'II'+6,3,lO
StV+b,lt.1O
SEV+b,920Q,68
SEV+6,3,lO
SEY*6. ,6
SEV+6.1,lO
SEV+Ll.ltLO
SEV+ 1 L. 109Q, 8
SEV
SEV+6.24.10
Sf V+6, L S lFNT+'3,6
SEY+6,4,lO
SEV+6,MOO.6
SEV+6,4tlO
SEV+b,MOO,6
SEV+6 .8, 10
SEY+6,MOQ,b
SEV+b.4,10
SEV+6,MOD,6
SEY+6.7,lO

SEV.", ,6

IORT,·+23
IOPT, DDALT, 7
LA8EL

ro
SF
8TM
'FM
8

SF
TF
TFM
8
TO

OISK

~9

16
14
46
12
H
11
11
I.
12
3]
II
II
14
41
II
26
12
21
12
21
12
21
12
21
12
1)
I.
49

opooo

032414
03244
0324M
03244
03249
03249
03238
0324'
0324M
03144
0324M
03244
0324"
03244
0324"
03244
0324"
03244
0124"
00565
00532

01200
000-3
00000
000-3
000-4
OR200
000-3
00000
000-7
000-1
OP099
0\300
000K4
04259
000-4
02513
000-4
02513
000-8
02513
000-4
02513
000-1
00000
-3573
-4170

04132
00455
03916
00565
00566
13776
13715
00565
00H2
04155

13635
00000
-3610'
-3/>33
-4124
00000
04230
-3611
-4124
13.35

0324~

0324"
03244
03244

PACK

ODAl4,\ NPUf+22
8UHON
KYMESS,·+12
IORT,·+2'3
IOGT,DDAL3,7
RDAREA
RDUU+9, PACK

IORT, •• 21
IOPT,ODAll,7
DOAL6 ,I NPUf+22

17
16
49

32
Z6
I.
49
25

942

l(Y~

1620 MONITOI

DU' IOUTINE

.OLAIL

TFM
B

01110
011~0

01150
0111>0
01110
01180
01190
01200
01210
01220
01230
01240
01250 ERRI
0121>0
01270
01280 ERRIO
01290
01300
01310

IORT,,'n
IOGT,OOAU,7
IF" RDAREA.I99.,OOI99,7
CF
RDARE A' 1995
Tf
RDAREA'203.,PACK
rfM IORT,"n
B
IOPT,DDAU,7
Cf
BUTTON
8'M KYMesS,"12
rOM SYSCAl,3
B
MONeAl
OORG '-3
TF" 0IMEIIR'22,OO71,.
B
ERR10 .. 2
OORG '-1
TF" 01"ERRt22,7170,8
RCTY
rFM tORT. e.23
lopr,ERRMES-4,7
B

OJ7U
0)15'

on..

ERRI-20
DORG '-3
5,0
DC
-0000
Ol3bO KYMESS 8NF '.32,BUTTON
rFM KEYMES'24,5500,8
01370
01380
b
·.20
01390
DoRG '-3
01400
TF" KEYMES+24,4646,'
01410
RCTY
01420
rrM IORT,·.21
014]0
B
IOPT,MESS-4,7
01440
H
0141)0
KYMESS-I,,6
0
01460 RDAREA DSS 2100,13771>
01410 KEYMES OAC 19,OUP' JURI'! OFF WRITE ADDRESS KEY, START'
OUp· JURI'! OFF WRITE AoORESS KEY, START'
01480 DIMERR OAC 13,OUP.ERROR 00'

011.0
03802
0381.
03822
OU22
0383.
038'2
038.2
03854
03866
03878
03890
03902
03'10 .
03'1.

01<;00

OSC
26
OSA

04099

04130

I,'

04130
04131

OSC I,D
u
DC
~0I9800
HaOO
DC
3,02Q
-20
USA RoAREA

OISlO
01540
01~5D

01560

OoAl~

01580

04147

oOAl6

04153

1,'

04153
0't154

DSC

OSC I,D
0
DC
5019980
J9980
DC
3,020
-20
OSA ROAREA

01610
01620
01b10

04145
04146

2.26

01600 00Al6

OUP ROUTINE

04168
04168
04169

1,'

2,22

04170

01660

OoALS

04176

0lb70

OSC

I,'

04116
04177

01680 DOAl8

OSC
1,0
0
DC
5,19801
J9801
DC
]'010
-10
OSA RDAREA

~.

48

'I'

13

5 x
-4112
I

5 x
J1776
1

943

4

5 X
-4155
I

5

5 X
J3776
1

-4178
I

04183
04186
041'1
04191
04192

01120

OSC

1,'
2,22

04193

01140

OSC
22
oSA

oDAl2

04199

01150

OSc

I,'

04199
04200

01160 DoAl2

OSC I,D
0
DC
5,04800
-4800
DC
30002
-02
oSA RDAREA

01190

16

04178

olno DoALI

01180

OM646
00102
-3995
-4268
00000
00000

16

04163

DSC

01770

04045
00000
00565
00532
00000
0391N
2100
39

,.

04155
04160

OSC
22
DSA

01110

00455
ON500
00000

PAGE

01650 UDAL 7

01700

03948
04045
03960

49

'DUBl

01640

01690

OP170
00102
-)889
-421>0
00000
00000

04140
04145

OSC
26
OSA

01590

0.121
00000
00565
00512
00000
03802

15

04137

I,'

1620 MONITOR I
01510

16
34
16

04008
11771>
04021

2,26

01~10

-3117
-.147
-0199
00000
0'1210
-)777
-'147
00000
-3802
00001
00000

0]916

ntlp._ERROR 00'

01490 ooAl]

00565
005. .
15775
15771
15110
00565
00512
00."
0)916
00'175
00796

16
•9
16

onll n

H
B

01320

01330
OIHO
OIHO

PAGE
0169.
03706
03n •.
01730

5 x
J]716
1

-4201
1

04201
04206

5

04209
0421.

5
J3776
I
0

OIBOO

OSC

,

I, '

04214
04215

01810 IORT
01120 10GT

OS
OS

,565
,'66

00565
00566

0

944·

1620 MONI lOR

OUP IlOUIINI

OOlAil

5

'AGE

olno

IN'UI OAS 11,11611
01.40 IUOIO DC
10,0
-000000000
01150 PACK
5,0
OC
-0000
01'60 MONPK OSC I,D
0
01170 MONCAl OS
.1'16
01110 IUITON OSC 1,0,455

II X
10

1'6"
DUn
042)0

2

5

042]1
00196
004"

0

OOSU
Dun

0

1

0

011'10 I OPT
OS
,532
01'100 lSTENT DC
25,109901510004'109'10"60162'
P0990 15100049099011>60162'
01910
OSC 30000
000
01920 ERRMES OSA olMERR
01930
01940 MESS
01950
01960 AOORS
01910 MOD
01980 SVStAl
01990 lABL
02000
02010
02020 lUll
02030

DC
-6'
OSA
OC
-6'
OSA

KEYMES

04212

3.,06'

04212
04215

2,22

Ulll2

04336

I, •

04336
04331

,DlUl+11

tORt ,-.2]

8

loPT,UIlI,7

,475

TRA

DC

02050 lUl2

02090

OSt 1,1
I
ot
5.18200
J8200
DC
3,020
-20
5,02502
DC
-2502
DC
I. '

02100

TCD

02110

OEND 02502

02010
02080

-40'1'1
3
5 x
-4021
3

04210
04280
02511
00415
04212
042'14
04306
04318
04330

02040

02060

5 X

04264
04261

OS
OS
HM

DSt
22
oSA

3

04264

1,06'

ROAREA+71

25

042U

5 X

16
49
56
49

JJI41
0
0
005n
00532
00000
00000
2

-4305
-4330
00500
00000

5 x
-HlI
I

04338
04343
04346
OItlSI

5

04352

lABl

04282
02502

945

1620 MONITOR I
BUfTON
DIMERR

0.,.099

ERRMES

Olt2blt

KEYMES
KYMESS
lSTENT
MONtAl

04021
03916
04256
00196
13116

RDAREA

00455

ADoRS
oOAlI
OoAL2
OOAL)
oDAL4
DDAl5
ooAL6
DDAll

DUP ROUTINE
04280
04193
04201
04124
04112
04141
04155
04110

oolA8l
DoAl8
oU8l
ERIUO
EIIRI
INPUT
10GT
10"
10RT

PAGE
04178
02502
0]142
03122
U61]
0051>6
00532
00565

U8l1
lUl2
U8l
LAB
MESS
MOD
MONPK
PACK

04330
04338
04212
03U4
OU12
02513
04231
04HO

RSPT
SEV
SETfLG
SYSCAL
TEST48
1EROIO

6
03178
03238
021]0
00415
03078
04225

END OF ONE ASSEMBLY.

941

1620 MOIilI TOR 1
00010 00020
000)0 IOU
00040 MOfolCll
oonso 10GT
00060 IOPT
00070 0"800
00080

00090

OUP ROUTlIIIE
DORG )000
OS
,565
,lQ6
OS
,566
OS
OS
,532
2,22
DSC
22
OSA
OIMDDA

DC

00100 OIMODA ose

00' ROUTINE

oOFLlI

PAGE

DFl . .
03000
00565
00196
0051>1>

0
0
0
0
2

OOSU
03000
0)006

5

It'

0)001>
0)001

-]008
I

1,1

0)008

I
00110

OSA

4800

03013

3,1

00110

ue
-01
OSA

03013
0)011>

OSEe

0]021

00140

DC

I,'

03021
03022

00120

5 X
-4800
)

5 X
-9900
1

2,22

03023

Z

00\60

OSA

EQUIV

03029

5 X

00110

DC

I,'

0)029
030)0

001~0

OEQU

ose

22
-9940
I

2,22

03011

OSEe

030]1

~

oe

I,'

030)7
030]8

-9900
I

OS
Os
uS
Sf
Sf
BO
BO
BO
87
BO
B7
Tf.
AM
eM
BE
BNR

,10000
,9900
,13613
CC+2'3" ,
(c+tl".

10000
09900
13611
0]040
03052
03064
03016
03088
01100
01108
03120
03128
03140
03152
03164
03116

0
0
0
13638
13624
03140
0]740
03108
0)740
03128
0)740
03181
03187
03187
03196
03140

00180 LIBEf

ose

00190

OSA

22

00200
00210
00120
00230
00240

•
INEQU
OSEe
ee
002C,Q OFL [8
00260
00270
00280
OOHO
00300
003\0
00320
00330
00]40 AM
00350
00360
00370 BM

SET flAG ON NUM8U
SET flAG ON NAMe
ERTEN,ee_23
ERTEN,C.C+24

·+20,(C+25
ERIEN

*+20,CC+21
ERr"N

8M.ll,eC ... 2

814+11,1
8M+l1,(C+29,7
RMOK

AM,O-O

32
32
H
43
H
49

41
49
16

11
14
46
45

x

00000
00000
\]636
13631
13638
\]640
J3611
-0001
J3642
01200
00000

947
1620 MONITOR I
00380
00)90
00400 RHOK
00410
00420
00430
00440
0041)0

-

004&0

00470
00480 ROEQU
00490
00500
OOSIO AOEQU
00520
00~30

00540
00550
00560 COMP,
00570
00580
00590
00 bOO
00610 NAMER
00620
00630
00640
006~0

STERR

00660
00670
00680
00690
00700
00710
00120
00730
00140
00750
00760

TESTL
EQU[V

CNT
eKLRO

00710 tRONE
00180
00790
00800
00810
00820
00810
00840
00850
00860
00810
00880
00890
00900
00910

87

ERTEN

8TM
TFM
8
Tf
TFM
TfM
TR
SM
TfM
8
TFM
AM
8NR
B7
eM
BH
e
BNE
Rcry
rFM
folATY
TOM
DC

CKIRO,QO.10

wArY
87
DAe
DUPe"
DS
BNH
A
81
DS

os

e
BE
e
8NE
Re TY

IORT ,e.23"

DUP ROUTINE

READ EOU TA8lE 01"

lOG T ,04800,7
CNT,EQUIV+8 ••

SAVE NUMB SEC TORS IN DIM
EQU[V+lloiNEOU
EQUIV+8,8,9,
SET NUM SEC TOR TO
OSEC,EQU[V

CNT,8,Q
JORT, •• 21"

READ f [GHT SECTORS OF TABLE

IOGT,DEQU.7
CO~PN+

11, INEQU-S

COMPN+ll,I6
e+20
.COMPN+ll.ll
OK ALL
COMPN+ II, INEQU-800
TE STL

CC+22,0-0
ADEOU

STERR+24.7571,8
STERR

C(+24,0
1, I I .
eC+12
HITE
15.DUP- ERROR 51
ERROR 51

,

PAGE

-DFlIB

,

CNT,O.9

03188

49

03740

03196
03208
03220
032]2
03244
03256
03268
03280
03292
03304
03316

17
16
49
26
16
16
31
12
16
49
16

03328

II

0]}40
03352
03360
03312
03384
03396
03408
03420
03432
03444
03455

45
49
14
46
24

03552
00565
00566
03051
09953
09948
09900
03051
00565
00566
0]]95
0]]95
0]]60
04162
03395
03506
13635
03328
00000
0]501
03477
1]637
I

03456
03468
OlUl

39
49

035D6

,OSeC+40

09940

OULL
EOU[ V+5 ,EOU[ V+8
RDEQU-12
,DFlIB+11
2
CC+22,IERO •• TEST FOR [NVAlID OPERaND OR opuafolD MISSING
ERONE
eC-28,LERO-8
OVERR

D3518
03530
03542
03051
03550
03552
03564
03516
03588
03600
0)612
03624
00415
03636
03648
03656
03668
0)"0
0]692
03104
0)111>
03128
03140
03152

TF" S TERR+24,007l, 8
WAn' STERR
SVSCAL OS
,415
H
EXI TE
87
MONeAL
OVERR
TO
O[G,CC+25
eF
DIG
eM
0[G,l,1I0
8NE
ERTEN
TO
OIG,CC+21
CM
0lG,7,I0
8E
ovreN
ERTEN RCTY
TFM
STERR+24,1J70,8

41
]4
16
]9
15

000-0
-3231
-3000
09948
JOOOO
00-08
09940
00-08
-3315
-3023

-9995
-0016
0]]9N
J0800
01100
00000
01200
00102
OP571
00100
00000

13625 00100
01636
15 X

14

03051

00-00

47

04162
099"5
01280
0
2
13635
0)600
U641
03656
00000
03501
03411
0
00000
00796
03688
0)688
0)618
0]140
03688
0)688
0]196
00000
0)501

01100
09948

11
49

24
46

24
47
34
16
39
48
49
25
))

14
41

Z5
14

46
14

16

a

0)794
01200
03186
01200
00102
0-071
00100
00000
13618
00000
-00-7
01200
lJ640
000-7
01200
00102
0'110

94~

1620 MONI TO. I
00920
00')0
00940 DIG
00950 lERO
DOnO·
00970 OVUN
00910
00990
01000 SFVAL
01010 tVAl
01020
010)0 tKSP
01040
010~0

01060
01070
01010
010'0
01100
01110
01120
01110
01140 CKIST
01l~0

01160
01170
OIISO
01\90
01200
01210
01220
01230
01240
01250
01260
01210
01210
01290
01)00
01310
01)20
01330
01340
01350
01360
01370
01380
0\390
01400
01410
01420
01430

•
CK8LK

WATY

DU' .OUTINE

PAGE

.Dflll

STeRR
EXITE
,OVUR.J2

OJ417
0)1»6
0

00100

J'
"9

DC
Il,O
- 00000000000
MOllE VALID O'UANO tHltllS
TfM Sf VAL"
, tt'lI
TfM tVAL
, tt·u
TOM SFVAL'I),9
SF
0.0
os
,Sf VAL' II
CKIST
4'
CM
CVAL
41.610
UTEN
8l
AM
,2
tVAL
SFYAl+6, ,6
CF
AM
SFVAL'6,2,10
SF
SFUL'6, ,6
CM
,00.610
CVAl
BE
tKilK
CM
CVAl
,Ct'22
BNN RNGEtK
S7
SFVAl
rOM SFVAl'U, I
eM
eVAl,n,610
8H
ERTEN
tM
,10,610
eVAl
eKSP
8L
87
ERTEN

0)16"
0)176
0""
On9"
0)196
03101
OJIZO
OJI12
O)lU
0)1"4
Oll56
O)UI
0)110
0)892
0)904
OJ916
OJ928
03940
0)'52
03964
0)'176
03'114
03'1'16
0400S
04020
04032
04044

16
16
15
J2

031)1
0)143
03145
00000

J3624
J)625
0000'
00000

"'I

0)914
OllU
0)740
0)84)
O)8)Q
0)13S
0383Q
OJIU

00000
DOOM I
01)00
-0002
00000
000-2
00000
000-0
01200
J)6)5
01)00

14
46
14
47
49

C
81
SNE

04052
04064
04016

46
41

04088
04100
04112
04124
04136
04141
0"160

14
41
14
46
32
42

87

OS

"'22,ZERD
e.12.1400
ERTEN

•
•
tHEeK RANGE OF DIM NUM8
SFVAL+6, ,6
RNGECK eF
CM
tC'21,1110,1
aL
ERTEN
eM
(e'28,7319,1
8H
ERTEN
SF
Ct'lI
BB2
•
END OF VALIDITY CHEtKS
DULL TFM IORT ••• 2J
8
RO LIIURV NAMES
10GT ,llIEF. T.
CO
OS
.RNGEtK
rFM eO+lI.INEQU-S,
A2EQU AM
CO+ll,16
C
CO'II.NINES,61
pur
BE
eM
CO'l1, I NEQl,I'11'1
BNH A2EQU
RCTY
TFM STERR+24,l574.8
01~40
WAry STERR
01450
01460
B7
NAMER

0"162
04114
0,,088
04116
0419&
0"210
04222
0423"
04246
04251
04210
04212
04294

12

14
41
II
))

II
32
14

a

46

040~2

14
46
4'1

0)843
04088
03832
0)145
0314l
0)740
0384L
0)856
03740

15

2't

B

16
49
16
11
2~

46
14
"1
)4
16
)9
49

00001
OOOP'I
01100
OOOPO
01)00

\3635
04016
03740

on94
01400
01200

0383Q
1)641
0)740
13641
03140
1)624

00000
OPll0
0\300
OP319
01100
00000

00565
00566
0
04099
04099
0409R
04314
04099
0419B
00000
03501
03"11
03444

-4115
-3031
-9995
-0016
-4312
01200
J0119
OLIOO
00102
OP514
00100

949
1620 MaNITO. I
01410 NINES

DC

OU' ROUTINE

12.9'1"."'9999

PAGE

'OFLIB
04312

12

R99999999999

01480 PUT
01490
01500
OISIO
01S20
01530
01540
01550

TF
AM
TFM
TO

CO+1I.CC'22.6

CO+l1,4

04314
04326
04338

26
1I
16
25
12
25
16
49

0409R

13635

04099
0409R
0409R
040'9
0409R
00565
00H2

0-000
13641
-0001
13639
-"409
-30l1

01510
01580
01590
01600
01610

CO+l1,O.6'
CO'II.ct+28,6
to+II.1
TO
CO'II,ct.26.6
IORT, •• 2)
TFM
B
WR L18RAY NAMES
IOPT.lI8EF.7,
WRITE tONFIRM MESSAGE
Rery
WATV pute
SM
CO'II.I
TOM CO+l1.0,6
1.' ,.
DC

04410
04422
04"34
0""46
04451

34
)9
12
15

00000

01620
016)0
01640
01650
01660
01610
016BO

SM
WArY
AM
TFM
AM
TOM
Ot

04"58
04410
04482
04494
04506
04518
0452'

12

04099
0409R
04099
0409R

01690
01700
01110
01720
01730 PUCE

SM
tD'1l ,4
WNTV CO+l1 .. 6
TnM SYStAl.)
B1
eKI TE'12
OAt 26,fORTRAN LII NAME fNTfREO '
FORTRAN L11 NAME ENTERIO •

0"530
04542
04554
04566
04515

12
11
15
49

oeNO

00000

01560 •

S~

.

eO'Il,12
CO+l1 •• 6
CD'II,12
to'Il.0,610
CQ+Il,l
CO+l1.0.6

1,' ,.

041~O

04362
04374
04316
04)98

39

11
16
1I
15

O1t51!)

04099
0409R
I

04099

0409R

-OOO~

00102
00100
-0001
00000
-0012
00100
-0012
000-0
-000)
00000

I

0"099 -0004
040.R 00100
00415 0000)
0364'
26 X

01140 •
01150

uo

t"

1620 1II0001T0II 1
OIIlOOA
IIO ..CAl
RNGECK
AZEQU
AOEQU
All
811

cc

tKIST

C.IU

OlOOI
007 . .
04011
04191
03128
03140
03171>
131>13
0]984

CIISP
CIIZIIO
C"T
COIliPN
CO
CVAL
0"100
DEOU

DUP llDUn ..E
040!JZ
01.,.
01112
0101&
0lU4
040 ••
01.41
01000
OJOU

PAGE

eDI'L11
Ol'UI 01040
OJ. . .
DIG
0.900
OSEC
IOUIY 0 . . .0
EIIONE '01600
EIITEN 037"0
ElITE 01616
INIOU 10000
IOGT
00166

I OPT
Ion
L1.EF
..AMER
NI ..IS
DULL
OVEIIR
OVTEN
PUCE

oona

PUT
RDEOU
11Il1011
SfyAL
·Sffllil
TUlL
zeRO
SYSCAL

OOU'
01011
OJ444
OUIZ
0"162
OJn6

on..

!J
04)14
DU'!

au ..
OIUZ
OJU7
01506
OJ794
OO"lS

04575

END Of ONE ASSEMBLY.

IUD MONITOR
00010
00020

OORG 2700
2,-11,6301
DC

00030

DC
lL
DC
NN
DC
PP
DC

OUP ROUTINE

PAGE

oOCDPY
02700
06301

J.l

00040
00050

2.-)1,6303

0630]

2,-55,6305

06305

2.-77 ,6307

06307

2,-99,6309

06309

00070 POINT OS
,6300
5,9,6314
00080 LAS TNU DC
-0009
3,100,6317
00090 NUIISEC DC

06300
06314

00060

""

0
I

06317

JOO

00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00120
00230
00240
00250
00260
00270
00180
00190
00300
00310
00320
OOHO
003~0

00350
00360

OOHO
00]80
00390
00400
00410
00420
00430
00440
OO~~O

00460
00~70

00480
00490

DUP ROUTINE
0
DCOPY
,10000
INEQU OS
OS
ALPHA INPUT FOR CONTROL STATEMENT
.13613.
CC
OS
,532
10PT
IDGT
OS
•.566
,565
10RT
OS
IDRBC DS
.520
MONCAL OS
,196
,475
SYSCAL OS
0
eK FOR RK 11K I N CONTROL RECORD
ueoPY TFM TRM+ l1,CC-2
8AkT
All
TRII+11,2
ell
UM+II.CC+510Z
8H
GODNT
TMM
8NR III(T,O-O
TFII STERR+24.7170.8
81
ERONE+l2
•
•
•• 20,CC+73, t
GOO~T
80
8R IF TD SECTOR GIVEN
87
OPERAND III SSI NG
ERONE."
SF
SET UP AND CHEC;K FOil FILE PRDTECTlO .. OESIRED
CC+99" ,
CII
CC+100.57.10
8~E
·.24
SF
SET INO IF FILE PROTECtiON DESIRED
STtHG+l ...
RO
SFSECL.CC+I>I .. III IF SECTOR UIIITS GIVE ..
•
Roun HE TD CONYERT ALPHA TO NUIliERIC
STCHG TFM sn+6.CC+23
TFII ST1+I1.CC+2~
sn
TO
CC+23.CC+24
All
sn+6.1
0
CK FOR NDfI._ERIC SECTOR ADDRESS
CII
sn+I1.CC+40
8L
0 ..
SII
sn+I1.1
Tn
•• ,5,5'1+11.11
All
STI+I1.1
eN
0+1.07000.110
8E
ON
eM
e-13.0,10

10000
13613
00,32
00561>
0051>5
00520
00796
004n

0
0
0
0
0
0
0
0

02700
02712
02124
02131>
027"1
0271>0
02772

II>
11
14
41>
45
16
49

02759
02159
02759
02780
02712
0)633
03552

02780
02792
02100
0211Z
028Z"
OZUI>
02841

43
.9
12

0~540

02860
0217Z
OZI84
OZ19.
OZ908
OZ9Z0
02912
02n4
02956
02'"
02.80
a2992

02800

J31>11
-0002
J31ts
01100
00000
OP170

13681>

13712
15713
02848
OllU
03176

00000
000N7
01200
00000
13674

02190
OZ195
U636
02.90

J]636
H631
13637
·0001

U

02195
0]0]6
OZ19'
02979

14

0)0]6
02919

J1653
01300
·0001
02l9N
·0001
-70-0
01200
OOO-Q

I.
U
32
43

16
16

n

11
1.

47

12

.

n oun
a. OZ916

II'" ,
...•.

1620 liON IT OR I
OO~OO
OO~IO

00520
OUHO ON
OOHO
005~0
00~60

BE .
TFII
Bl

'M

C.
Bl
BTII

....

OOHO
00580
OQSqQ •

OObOO COpy
OOblO
00b20
00b30
00b40
OOb'lQ ltNCS
OObbO LENSC

TF
SAVE
O~

TR
10"
10"
A
OS
OS

aup ROUTINE

.oeo"
O)OO~

ON
STU"2~, 71lS,.
UONE+12
STl+Il,2
STl'II,CC+76
STI
8Ak,CKlIM+l1"
GET SYSTEII DillS
DCOPV+ . . ,5.10
LASTHO,99, •
PUT LUGEST LEGAL Dill NUIII+I IN LASTNO
SCRlTCH lRU Dill
,OtOpy
tOPY+ 100.COPY+20
COPY+110.0
COPY+I09.0
COP . . 108,COPY+I08
.tOPV+1IO
,(OPV+1IO

0)016
0)011
0)0)6

o)on
0)060
03012
O)O.~

0)096
02100
0)101
03UO
0)132
0)1~4

.

"
U

11
14
47

17
U
26

H
15
15
21

02810
02810

PAGE
0)0)6
01633
0)552
02195
02195

2

01200
OP115
-0002
J3689
OUOO
-3201
000-5
00099

02"~

0326.
02168
OI>JI~

0
02800
02810
02809
0210.
0
0

02720
00000
00000
02108

OOb 10 •

00b80
OObQO

BNF

GOAGIN,STCHCtll.,
CKll~t"

" I
00100 SFSfCl SF

srCHC"13.
.CC+2b
STCHG

It

00710 DIMNO

os

00110
00110 CKl'M
0071,0

B1
SF
SF
C

CC+31
((+16,CC+42

B~H

GOON

00150
00160
00110
001ao

cc+:n,2,8,

IFM
81

001'10 •
00&00 •

00810
00820 BAK
00830
00840
008~0

00860
00810
00880
00890
00900

00910

Dono

OOQ30
COq40 RMCK
OOq~O

00960
00'170

BBOIM

ooqeo •

GOAGIN
01000
DIDIO
01020
01030 BrMO
OOQQO

OL040

01050

8R IF NO SECTOR lI11ITS
lI11ITS GIVEN - GO CHECK L1I1ITS
PRESUYE INDICATION THAT SECTOR UIIITS GIVEN

OS
C
8L
IF"
B1
IFM
TOM
A
A
fF
TFM
B
TO
BNR
TFM
01
B8
SF
CM
BNE
B7
IF ..
TF ..
BTM

CHECK FOR VALID L1I1ITS

Q HAS NUll EQU Dill

STERR+Z4,1177,8, END ADDRESS GREATER THAN BEGINNING ADDRESS
ERONE+ll
GET 01" ROUTINE - ENTER USING 8TM UK,OIMADR
GEl 01" ROUTINE - UPON EXIT Dill IS IN ADDR At RIICKlll

03156
03168
Oll 16
11619
03188
03196
03208
03220
03232

H

03~52

~9

~9

01196
02813
0
02860

032~4

03256

CK FOR Dill IN RANGE
·-I.LASTNO.6.
•• 12, ••
BR IF DIM OK
STERR+24.0016,8, a III TOO LARGE

03261
03268
03280
03292

t:RONE+12.

OHO~

5

CALCULATE THE FRO .. ADDRESS 01 .. ADDRESS
CALCL.4800 ••
CAlCI_I,O
CALC 1+I,8AK-I,l1
CAlCl+l.8AK-l.ll
DDADIM,CALC1" PUT SEt TOR ADDRESS IN ODA
JORT , •• 23

IOGf,OEFl,7,
GET DIH
.+22.CALCl+1
BBDIM ,RODIfIIII,7,BR IF DIll IS OK
ERROR-DIM NOI IN USE
S TERR+24, 0074.8,
ERONE+l2

03312
OH2~

033]6
03)48
03)60
03372
03384
03)'16
01408
03420
03432
014~0

0IMNO-3

03452

)2

11650
136~9

116~5

~7

16

03968
03633

01100
OPI71

~9

03~52

25

5
0326P
03312
03b))
03552
03642
03643
01643
03643
03657
00565
00566
01418

45
16
H
42

03~~0

03643
-2700

03U3
03552
00000

00000

H
H

16
49
Ib
15
21
21
26
16
~9

32

0346~

I~

03476
03488

41

03~96

16
16
17

03508
03~20

0-002
00000

116~~

32
32

BTMO

t.

00000

H

CC+2b,O,8
EQUTlU,
GO GET DIM NU"BER
ALTER THE LINKAGE TO RO DillS
OoAOI M+8,otOP,(-100"
RMCK+ 11, OCOPV-IOO. ,
ALTER THE Dill GET ROUTINE
8AK,DIMNO ••
GET 01"

02813

~9

06314
01300
0-016
-~800

00000
0326P
0326P
036~2

-3395
-36~4

0-07~

1363b
136)9
03496
03676
03665
03419
03268

00000
0-000
01200
-2600
-2600
J3639

!l51

OUP

1620 "ONITOR
01000
01070 •
01080 tRONE
01090
01100
01110 EXIT
OlllO OKEX IT
01130
01140 S IERR

o lL 50

61

ROUTlN~

·OCOpy

OKGOON

PAGE
03532

49

04084

IF~
S TER.R. 24,0071,8, EI20 MONITOR
0]420
03430

DUP ROUTINE

-DCDPV

8NF
"3I>,STeHG+!
WNTY SAVRo.5
R
·.24
WN'V SAVRO
WArY FINMS2
WNTY SAVNR
8NF
"24, STeHG>!
WArY Fl
rOM
SYSeAl,]
87
OKEXIT

OH40

01450
03460
0)470
03480
03490
03500
03510
03520 •
0]5]0 F INME S OAC
]0, SECTORS OF DATA COPIED FROM'
SECTORS OF DATA COpt EO FROM '
03540 FINMS2 OAC
5, TO '
TO '
03550 FL
OAC
20, AND FILE PROTECTED'
AND FILE PROTECTED'
03560 •
FILE PROTECTION ROUTINE
OH70 F IlPRO RCTY
0]580
""TY KEYMES
03590 SAVRQ H
0,0.7
01600
DC
1.' ,01610
03620
03630
036'0
03650
03660
03670
03680
03690
03700
03710
03720
03730 OU~
03740 DU~1
03750 •
03160 KEY"ES

03710
03780
03790
03800
038\0
03820
03830
03840
03850
03860
03870
03880
03890
03900
03'Jl0
03920

TFM
TOM
TOM
TOM
TF
TF
TR
TR
fFM
TFM
TF
TD
87
60

KEYMES+l4, 4646 ,8
OEFIN+I,6
DEFOUT+I,6

CHGP+7,l"

SET

INO FOR FILE PROTECTION BRANCH

CF INS+",oUMI+"
CFINS+18,DUM+6
ROO 1M, SAVWR
ROOIM+20,SAVWR
ROOUIII+a,zo,9

RODIM+28.l0,9
S~

VRO+l0, SAVRO+5

SAVR.Ot5, SAYRO

RDWR,.O
END~E S, SE rX+lo,o

39,OUP,. TURN ON WRITE ADDRESS KEY, START'
OAC
DUP. TURN ON WRITE ADDRESS KEY, START'

..
ENDME S RCTY

WAry KEYMES
H
67

ENDC

•
•
SELECT AND FILE PROTECT THE SECTORS COPIED
SETFPR TFM
SFFL+ll.lNEQU,l
AM
SFFLtU.4
TFM
CFH
FlAG+l.41.10
SFFL
C
SAVWR+5,INEQU,7
8H
FLAG-12
PNT
OS
.SFFl+ll
WKHICP,PNT.ll
C
81
SE TX

TFM

FLAG+l.32.10

I

PAGE
054. .
05500
05512
05524
05531>

44
]8
49
38
39

0554'

18

0551>0
05572
055. .
05591>

44
39
15
49

05524
0574]
05531>
04801
051>1>5
Oll51>
05514

02161
00100
00000
00100
00100
00100
0281>1
00100
00003

051>15
00415
01581
]0

051>05
051>n

5 x

05675

20 x

2

05714
05721>
05738
05149

)4
39
48

00000
05915
00000
I

00102
00100
-0000

05750
05162
05114
05186
05798
05810
05821
05834
05846
05858
05870
05882
05894
05902

16
15
15
15
26
26

05939
05380
05388
05155
05347
05]54
02700
02720
02108
02128
05748
0574}
n5252

OM646
00006
00006
00001
0591]
05900
03156
03756
00-20
00-20
04813
04808

QS992

06210

1I
H
16
16
26
25
~

.

M3

05915

3.. X

05 .... 2
06004
06016
06028

34
39
48
49

00000
05915
00000
05416

00102
00100
00000

06036
06048
06060
06072
06084
06083
06096
06108
06120

16
11
16
24
46

06083
06083
06145
03761
06132
0
0622]
06200
06145

JOOOO
-0004
OOOMI
JOOOO
01100

24

47
16

0608l
01300
00012

959 ,

1620 MONITOR
03930
03940
03950
03960
03970
03980
01990
04000
04010
0'020
04030

S~

FLAG

SF
AM
c~

ijNH
87
•
SETX

TOM
87
WKHICP os
WKA
os
0404U WKOIM
D5S

04050

OENO

oUP ROUTINE

-DCOPY

PNr,4
PNT,,6,
PNT ,105

PNT ,105.20+1 NEQU
SETFPR+l2
WROSKF
SETX+IO,9
WROSKF

5
4
20

THIS IS THE SET OR CLEAR FLAG 'INSTRUCTION

PAGE
06132
06144
06156
06168
06180
06192

12
32
11
14
47
49

06083
0608l
06083
06083
06048
05288

-0004

06200
06212
06223
06227
06228

15
4 ..

06210
05288
5
4
20

00009

9

00000
-0105
J2100
OUOO

00000

988

, ..J

1"20 MONITOR I
ADJUST
AYLENT
tOPYIT
CntMP
DDADI"
OOASPl
DEFOUT
DEF SPl
DIMENT
HIOMES
EQUIlU
F ILPRO
F I NME S
F I NMS2
FOUNDS
GUAGIN
KEYMES
lASTNO
MUNCAl

0!JI'2
04560
050"4
04264
0)"57
04]27
05181
OHI9
04128
05992
0361/0

NUJIIISEC

..~"" 31 7

UKEX{T

0,1)88

ll;O OF tlN.

0~1l4
0~605
O~bbl)

0480.
03452
0~q15

06314
0079.

OUP ROUlINE

OKGOON
REPEAT
AOEQU
AYl

04014
0'U6
Oll.l
04. . .

ilK)

0401.

UK

OU . .

8lKT

Olnl

BaDIM
BTMD
CAlCI
CC
tFH
CFINS
tHGP
tKIf
tKLIM
tKSPL
tNT
COM'N
tOPY
DtOPy

OJ440
014 . .
011>42
U6U
060.0
05116
05141
04844
01196
OU42
01558
01148
02700
02700

oDeOPY
OfF!
Df"N
DfQU
DIMNO
DUMI
OUM
ENDt
UONE
ERRIO
ERUNA

EXIT
FUG
Fl
FOUND
GOON
GooNT
INEQU
10GT
I OPT
IOR8t
10RT

10

PAGE
01644
onn
01667

Lt~''

05901
OU.4
05416
03540
(11.4.
041>. .
01'"
06144
05675
01172
01968
02710
10000
00'"
00512
00520
00565

LENtS
LENSC
LOll
ON
OUTFI
OUTF
PNT
POINT
RDDI"
RDEOU
ROWR
R"CK
SAV2
SAVKO
SAVKO
SAVWR
SEn
SFFl

un.

UI
UBl

sn

04411
0 . . .2
0.401
02110
01110
04120
01016
0. . . .

STtHG
STUR
TUTl
TRM
Will
Will
WIIA
WilD I "
SAVC"
SAVStT
SCRENT
SETFP.
SFSECl
SYStAl
WKHICP
WRDSKF

0461'
0.011
06100

onoo

01756
OUS2
(11408
04119
0410.
0'U8
01156
06200
06072

01114
01 . .0
0160.
01'04
on41
OU5"
04'"

O.ll7
06211
04"1
04112
0"'''
06016
OU1.
00475

06211
052B8

AS5~M8LV.

961
1620 MONI TOR I
00010
00020
00030
00040
00050
00060
00070 10PT
00080 IOGT
00090 IURT
00100 KIN~
00110
00120

OUP ROUTINE

-OLOAD, -OREPl, -DELET

PAGE

SIJ.ROUTINE S-DI MMER.GETR ,GETL.I NSERT .R~MOYE.F INO
(IORG 2~~8
DS
.532
,11)6,.
OS
,11)65
os
DSC 2,02. t
02
OSA QUEEN
DC

DDA TD FLIP CORE WHEN MOVING PROGRAMS

I.'

00110 QUEEN

DSC
1.1
1
00140
DC
5.02000
-2000
00150
UC
3,140
J40
00160
DC
6,OS800'
-;800'
00170 toRSll DC
3,080,. THE tURRENT S IlE OF THE SPL
-80
00180 OIM~RR DAC
14.0UPoERROR 00 •

02458
00512
00566
00565
02458

0
0
0
2
5 •

02464
0241>4
02465

-ZOO66
1

02466

01471
02414

3

02480

6

0241)

3
14 x

01485

2

DUP_ERROR 00 •

00190
00200 ERRO
00210
00220
00230
00240
00250 DMDOA

TFM 01"HR+22.007l.8
KtTY
WArY 01 MERR

2,22 .. 00. USED 8Y DIMMER TO READ IN DNE SECTOR

00260

8
OORG
DSC
22
OSA

OMREAO

02514
02514

-2516

00270

DSC

1.'

01515

I

H

MONCAL
0-3

00280 OMREAL> OSC
1.0
0
002

00.90 PKOODA OSC

2,22"

USA

SPlPKO

02643

I,'

02641
0264<1

n

oo~oo

00510
00520 SPt.KO

usc
osc

nOA FOR HANDLING THE SPL ON MOOULf ZERO

1,1

005.0
00>;1)0

00'"0

02651

02U'
DDA FIi~ HANDLING THE SPL ON MOOULE DNE

00580

SPtPKI

02666

DSC

I,'

021>fl6
02f161

00600 SPI.PK I DSC

1,1

00590

1

02f158

2,22 ••

n

5 X
-26"5
I

02650

005/0 PK 100A nsc
OSA

2

02645

I
5,\9801
DC
J9801
DC
1,080
-60
uc 5,05800
-'800
osc I,'

ou-; iO

01617

026f10

2
5 X
-2668
1

02668

3

00610

DC
5,39801
19801

1620

02613

~O'UTOR

00620

DC

00610

DC
5,05800
-5800
OSC I,'

I

DUP ROUJlNE

963

-DLOAD, -DREPL, -DELET

3,080

PAGE

3

02616

-80

006"0
006~O

00660

PK2DOA DSC
22
OSA

2.22, •

02681

DDA FOR

HAND~ING

THE SPL ON "ODULE TIIO

02683

2

SPLPK2

02689

5
-2691
I

00610

DSC

I,'

02689
02690

00680 SPL PKZ

O~C

1,5

02691

00690

DC

~,'9801

026'16

00100

DC
3,080
-80
DC
·5,05800
-5800
OSC I,'

02699

•

5

02682

x

~9801

00710
00120

00710 PKlDOA OSC
22
DSA

OOHO

00750

DSC

2.22"

027010

DOA FOR HANDLING THE SPL ON "OOUI.E THIIEE

02712

5

I, '

02712
02111

-2714
I

02114
02719

02722
02121

,

2,22.,DO& TO F.XCHANGE CORE liNEN USING THE SPL

0212.

00820

THAOIIS

021)5

I,'

027]5
02n6

DSA
DSC

1,1
008"0 THROIIS OSC
I
00850
DC
5,19881
J9881
00860
OC
3,010

021"5

00870

02150

.

,

-

---.~.--

1

027"2

OC
5,05800
-5800
DSC I , '

,---..........,...--.-.. ...

5 •

-2731

027]1

-ao

00880

5

02728

U0810 THADDA OSC

00810

~

02706

SPLPKl

00760 SPl PK 3 DSC 1,7
7
00710
DC
5,19801
P9801
00780
3,080
DC
-80
00790
DC
5,05800
-5800
00800
OSC
I,'

a

5

·02705

02151

984
..., ...

-,.~--

...-.,,",:

1620 liON nOR I

DU' RDUTJ III

oDLD'O. oDR"L. oOILIT

00190 UVAIL DC
),0,. ACCUIIUUTES IlVAILAIU ILil. SltTDIII 'DUIIO III MOV,
-DO
00900 CALC2 DC
5.0
-0000
00910 GOLDEN DC
I.O"LISTfII-.
00920 LISTER DC
•• O"HOLDS 'RESENT SPL 'DsnION
-000
00910 N.aODO DC
6.0UOOO"FIIIST SECTOR OF Dill " "
-~8000

009~0

009~0

PACK

DC

',OuPAe.

CONTINUED

,

02'"
OU.D

on••

•

OU.,O

6

Dun

DC

1,Of,PACK NUll FOR SPLIST

DC

I.'

00970 CALel

DC
6.0
-00000
OC
4.0 •• CAlCULATION AREA
-000
DC
I.O"SH UP THE OVERRIDE CODE FO. COII"RI5I DN

00990

027U

01000 LI S TE S DC
6.0"DESIRED SECTOR ADDRESS FIND
-00000
01010 L1STET DC
4.0, ,P\lUMBER TO IE I NSfIITED SPL INSERT
-000
01020 HEX
USC 1.0
0
01030 CONS TI DC
b,O .. WOIitk AREAS
-00000
01040 CONSl2 OC
6,0"
-00000
010~0 UCARR Y DC
6.0 .. WHERE TO LOAD NUT IIDVED SECTORS
-00000
01060 QHOLO DC
6.0
-00000
01070 CONST5 DC
6.0
-00000
01080 CONST6 DC
6.0
-00000
01090 CONsn DC
6.0
-00000
01100 MACKEl DC
4.0
-000
01110 STEAL DC
4,0
-000
3,0
01120 CALC 1 OC
-00
01130 F AK st: v DC
HAS SEVEN FRO" LISTER
4,0"

02119

6

.

onu
027'.
02190

6

.

0279..
02795
02101

6

02807

6

021n

6

02819

6

OZ.Z5

6

02Ul

6

olin

6

.
.

OZ ... I
028.'
OZ8 ...

3

..

02852

-000

01140 COMMON DC

1,0

OZIU

01150 NOMMON DC
-0
01160 NOSECA DC

2,0

02155

I,D

021510

1620 MONITOR I

DUP ROUTINE

2

~3:-;

oelLOAO. oOREPL, oDELET

01170 MOVES. DC
b.O.,fOR SEtTOR ADDRESS
-00000
01180 MOVESC DC
l,Q"FOR SEC TOR COUNT
-00
01190 CONSTa DC
5,0
-0000
01200
01210
SUBROUTI NE-GETR
01220
SUBROUTINE FOR SHIFTING ONE TO RIGHT III THE SltL
01210
TOM NOMMON,l •• INITIALIZE TO SAYE CORE FOR EXCHANGE OF SPL
01240 GETR
01250 ClI PPP TF
91t,'ACK
TFM IORT, <+23
01260
01210
8
I OPT ,THROoA. 7
01280
B
REDSPL
Ol2C10
DORG . - ]
01100 GErRT" TF
C_lC2,SPLCOR"
LEFt PRESENT SPL C.A.
01110
.SPLCoR,04,IO, LEFT END NEil ENUY
01120
SF
SPlCOR,,6,NEIi HAG
01]]0 NEWDI" DC
4,O,o,oESIRED Dill ENTRY
-000
01140
AM
CAlC2,OT.IO,RIGHT EIID OF IIEII ENTRY
TF
01150
1I S TER ,CALCZ ,II
01360
B
WHYNOT
01310
DORG <-3
01380
SUBROUTI NE-GETL
01390
01400
SUBROUTINE FOR SHIFTING ONE TO LEFT IN SPL
01410
01420 GElL
TO" ~OMMON,2.
01410
CLlPPP
B
01440
DORG <-3
01450 GElL TM TF
CALC2, SPLCOR
01460
SM
SPLCOR,O",IO,LEFT END OF NEW ENTRY
01410
SF
SPLCO~ •• 6,
01 .. 80
SM
CALC2,Ol,10,RIGHT EIIO NIII ENTity
01490
TF
LI STER ,CALt2 ,11
01500
a
WHYNOT
DORG --3
01510
01520
OIBO
SUIROUTINE-REIIOVE
015 .. 0
RE040YES THE PRUENT ENTRY IN LlSTU AIID CLOSES THE LIST
01550
01~60 REMOVE TOM
HOMMON,), ,
01570
B
CLIP"
01580
DnRG 0-3
01590 REIIoTR TF
CAlC2,SPLCOR
A04
01600
CAlC2,0.,IO,
TR
01610
SPLCOR,CALCZ.III,CLOSES HOLE
SF
01620
SPLCOR,,6
01610 SPLCOR DC
5,0,0,0104 AOOItESS SPL
-0000
01640
SM
CALC2 ,010 10
TF
01650
LIS TER .CALtZ ,II
CF
01660
SPLCDR, ,I
5,0,0 ,C YLI NDEIl I'L
01670 SPLcn DC
-0000

...

•

02711

00960

00980 CALCO

PAGE

DU"

PAGE
6

OZ862
Oll65
02110

02112
02 ....
OZ896
02901
02920
029Z'
02921
02940
OZ952
02961
02""
OZ976
02911
OZ996

OZ996
03001
03016
03011
030U
0]0"0
o]on
0106..
0:JOf6
DID. .

DID••
OSD91
DUD.
03104
01111
OUU
0)140
OJ151
01112
OJ1"

OInt
OUIf

OZI55
0009..
00565
00532
0""6

00001
02112
-2919
-2129
00000

02759
03151
0315J
4

03151
000-"
00000

26
.9

02759
0276..
03388

000-7
027511
00000

15
.. 9

02155
OU'"

00002
00000

Z6

02759
0)151
OJl5J
02759
0216 ..

onll

03151
000-"
00000
000-1
027511
00000

U

OU55
OU.4

00001
00000

:t6

on59
02159
OJUJ
OJUJ

on5.

02759
027"
OJlIJ

000-1
On!!R
00000

15
26
16
49
.. 9
26

11
12

II

12
J2

lZ
:t6

...

.
11
U

JZ

12
16

JJ

,

,

Oil"
000-.
00000

988

Lf~

1620 "'ONnOR

DUP ROUY! Nt!

oDLOAD, oDaEPL, oDEUT

01680 STOMP CM
PACK,OO,lOll. PACK ZERO
DI6QO
WHSPO
B£
01100
CM
PICK,Ol,lOll,PACK ONE
01110
BE
WRTSPI
CM
01120
PACK,02ol011, PACK TWO
01730
BE
WRTSP2
01140
8
WRTSP3" , PACK THREE
OIHO
DORG '-3
OlibO
ROUTI"e FOR RETURNING lPPROUTE SPL TO OISK
01170 WRT SPO TFM
IORT,.+23
01780
B
IOPT,PKOOOA,7
017QO
8
WHV"OT
01800
DORG '-3
01810 WRTSPI TF"
lORT,e·23
01820
8
IOPT,PKIOOA.7
018 )0
WHVNOT
B
01S40
OORG .-)
01850 WRTSP2 TFM
IORT,e+23
01860
a
IOPT,PK200A.,l
01 R 70
a
WHVNOT
018S0
OORG . - )
01890 WRT SP 3 TFM
IORT,"·23
01900
lOP T • PK 300& , 7
8
01910 WHVNOT TFM
I OR T. e+2),. RES TORES CORE 8EFORE RETURNING TO "'AINLINE
01910
01HO
SUBROUTINE-INSERT
01940
INSER TS TO THE LEFT OF THE PRESENT ENTRVANO OPENS LIST
01950
IOGT, THRDOA, 7
B
01960
AA
01970
DORG .-q
01980 I N$fR T TOM
NOMMON,4, ,
tLI ppp
01990
B
DORlj. . - }
02000
02010 I~St'TR SF
SPlCQR, ,6
02020 FOU~D
f),Qt·,FINO SEC TOR TOTAL
DC
-0000
02030
ROUT INE fO SEE IF LI ST I S ALREADY FULL
02040
fFM
*+35,05800.1
02050
AM
*+23.04, La
02060 TIPSY "NO *-l.2,9Q9Q9, ,FINDS RECORD MARK AT ENO OF LIST
02010
fF
CONSTZ,TIPSY+ll
02080
AM
(ONST2,04,10
02090
fF
CONST3,CONST2"
OZlOO
SM
(ON5T3,05800,7
02110
C
CONS T 3-2 ,COR. S Il t ,COMPARES PRESENT SIZE TO DEFI"ED LIMIT
02120
NERR
"I.
02130
IFM
DIMERR+22.1178,8
02140
ERRO
B
02150
OORG *- 3
02160 NERR
TF
CONS T2, TIPSY.ll ,bll,OPENS THE LIST
02170
TF
CAte2, SPlCQR
AM
02180
CAlC2.0).lO
02190
TF
CALC2,LISTET,b, INSERTS THE ENTRY FROM L1STEY
02200
CF
SPlCOR,
02210 DRESTR DC
5,19880,*,

,b,

03111
0)200
0)212
0)224
03236
03241
03260
03268
03268
0)280
03292
03300
01300
03312
03314
0)332
0)332
03344

..
14

14
46
14
46
49

PAGE
02772
032. .
02T12

onoo
02112
0)332
0))64

\6
49
49

on88

00565
005)2

-)29\
-2637
00000

16
49
49

00565
00532
03388

-3323

16

00565
00532
03388

~2683

-2660
00000
-3355

033~6

49
49

03364
03364
03376
03388

49
16

00565
005)2
00565

-3387
-2706
-)411

03400
03412
03414
03"'14
03426
03434
0343'
03445

49
42

00566
00000

-2729
00000

15
49

02855
02884

0000.
00000

32

03l5J
5

00000

03446
03458
03410
03482
03494
03506
03518
03530
03542
03554
03566
035H
035H
0)586
03598
03610
03622
03633

16
II
45
26
II
26
12
24
41
16
49

03481
01481
03458
02801
02807
08815
08815
08813
01514
02501
02524

-5800
000-4
99999
03481
000-4
02807
-5800
02483
0\)00
OP 118
00000

26
26
11
26
33

0280P
02759
02759
0275R
0315J
5

0)48J
03151
000-3
02794
00000

16

6

000-01200
OOD-J
01200
OOO-K
01200
00000

00000

J"I8BO

967

1620 MON I TOR
02220
02230
02240
02250
02260
02210
02280
02290
02300 OI .... ER
02310
02320
02330
023"0
023S0
02360
02370
02380
02390
02400
02410
02420
02430
02440
024~0

02460
02470
02480
024QO

Q?SOO FINO
OHIO
OH20
02530
02';100

021)')0
0211)60

U2')10 FINfHR

-OlOA-D. -ORfPl,

PAGE

'DELET

SPlCOR.4. LO,
SPLCOR, ,6
STOMP t, ,
R
OORG '-3

036)4
03646
03658
03666

11
H
49

03151
03\~J

03\88

000-4
00000
00000

THE DIMMER. SUBROUTINE FOR BRINGING IN A DIM ENTRV
SPECIFIED IN -NEWDIM- TO BEGIN AT CORE POSITION 19880
C
BNH
TF"
a7
Tr
A

TF
A
IF
TO
SM
fF

NEwOtM,MAXOIM
*+32
01 MERR+22 ,0016,8
ERRD
CAlC2,NEWOIM
CAlC2.,CAlC2.
CALC3,N48000
CALC3,CAlC2, ,NEW DIM SECTOR AODRESS
DMREAO+ 13, ORES TA.
*+23,CAlC3
OMREAO+ 12 ,0,10, ADJUS T DIM READER S A
DMREAD.5. CUO-I
IORT, .... 23
IOGT,DMOOA,1

TFM
B
BR
DORG .-9

03666
03678
03690
03702
03710
03722
037H
03746
03758
03710
03782
0379'
03806
03818
03830
03832

2~

H
16

49
26
21
26
2\
26
25
12
26
16
49
42

0296)
03710
02501
02524
02759
02759
02719
02119
02589
0)19)
02588
02581
0056~

00566
00000

03843
01100
0-016
02963
02159
02110
02159
03633
02719
000-0
02718
-3829
-2568
00000

THE F I NO sua.OUT! NE FOR LOCATING A POINT ON A PARTICULAR
SPL FROM AN ADDRESS GIVEN IN -llSTESSF
Cf
TF
BT
fOM

"DORG
TF

TOM
"M
TF ..
02600
02610
SF
02620
TF
U2610
TO
02640
SF
02650 T.VAGN TF
02660
AM
02610
SF
02680
AM
02690
iF
02700
TO
02110
eN
02720
BE
TF
02730
02140
BT
02150
C
02760
8NL
02110
S
02~80

025QO

OUP ROUTI NE

AM
CF

llSTES-s .. 8
II STE S-4
19885.LlSTES .. ACCEPTS SECTOR ARGUME"T
SPL I ST. SPLI S T-I .. FINDSURT OF CYLINDER
NOMMON,5
CLI ppp

.-)
CALC2-I,NEWDI'"
Cl.lC2-4, .11,FLAG ZERO
CALC2-1,02.10,FINO SECTOR
ADRSPl.,l, lERO THE FIELD
91,., ,PICK UP COUNT
ADRSPl-2 ,99"
MOVE SECTOR CYL AOORESS
AORSPL-4, Ll STES-4
AORSPL-4
LEfT PRESENT SPl C.A.
CALC2. SPLCOR"
SPLCOR,04,IO, LEFT END NEW ENTRV
SPLCORn6,NfW FLAG
CALC2,01,IO,AIGHT END OF NEW ENTRV
LlSTER,CALC2,Il
CALC4, SPLCOR , l I ,
CALt",09,101l, 'LANK SECTORS
AODBLK
NEWOIM,LlSTER
01 MMER, DI"'MEA-l
I Q885,AORSPL .. DOES THIS PROGRAM BEGIN ON THIS CYLINDER

-+48
19885,AORSPL

0)812
0)844
0)856
0)e68
03880
0)892
0)900
0)900
03912
03924
0)9).
0)948
039.0
03971
03984
0399.
04008
04020
04032
Q4044
04056
040 ••
04010
04092
04104
04116
04121
04140

32
13
26
21

15
49
26
15
13
1.
32
26
25

02185
02186
19885
04324
02855
0288"

0-000
00000
02190
04)23

0296)
0000000-2
-0000
00000
00099
02186
00000
03151
000-4
00000
000-1
0215R
O)UJ
OOO-R
01200
02164

11

02158
02755
02158
045\4
00091
04512
04510
04510
02159
03151

J2

O)UJ

11

02159
027.4
0218)
02183
04210
02963
036'.
\9 . . '
0417.
191.,

32
26

ze.
25

\4
U
26

n

24
U
22

OOOO~

00000

03.65
04514
01300
04514

988

02110
021"0
02100
02110
02120
02830
02140
02150
02160
02870
02880
02890
02900
02910
02'120
02910
02940
02950

SF
A
A

PLUSSR SF
C
CF
BNH
TF
RLGONE rF ..
8

B
DDRG
ADOBlK SF
A
CF
~

191n
1". . . . 19115
AOUPL .191. . . . ADD SECTOR TOUL.AOJusreo IF NECESSARY
L ISTES-4
ADRSPL.LISTES •• HAS THE CDRIIECT ENTRY IUN RUCHED
LISTES-"
fRYAGN
FOUND.ADRSPL
10RT.·.n
IOGT.THIlDDA.7
.,,2. EX" TO 8E FILLED

04112
04.164
DUn
04111
04200
DUll
04Z24
04236
04Z . .
OU.O

.-)

OUIO
04210
04292
04304
Q4U6
04324
OU9l

LlSTER-Z
ADRSPL.LISTER •• ADD IN THE COUNT FOR .LANII SECTORS
LlSTER-Z
PLUSSR

0011(; .-J
DC
2.0.AODBLKOlI
-0
01960 CLEVER DC
1.0.AOOBlK+l5
01910
u1980
OlQqO

01000
03010
U3010
03030
0]040
O)O~O

0)060
0)010
0)080
03090
03100
03110
03lZ0
03130
OHI,O
03150
03160
03110
03180

OH90
03700

03210
03120
03230
01140
032~0

03no

NEVER

....

....

...

TOM

NEVER-I •• 11

OlZIU
03290
03100
03310

.. II

NEVER,OS,lO

80
AM
TO

21

J2
24

n

U

n
16
49
49
]2
2'

]I

"

1911)
191. .
OU'"
02116
04514

-'un

00000
19115
1911.
00000
02790
00000
01100
04514
-4Z7I
-2729
00000

02762
OU'4
0271>2
04'"

00000
0271>4
00000
00000

on..

0]991>
on45
OO,U
00"1>

2

04315

RUUTlNE FOR BRINGING IN THE PROPER LIST AND
SC ANN I NG TO THE CORRECT CYliNDER ENTRY
SPLI S T TF" JOltl ..... 21
I OPT • THROOA. 1
I
roM 19880 •• II.FLAG ZERO
19885.05.10
CF
COMMON
SF
94 ••• DESIRED CYLINDEII
SF
93
TO
STAROT+IO,95" SET-UP SEARCH FOR THE CORRECT CYLINDER
Tn
STAROT+11.96
LI 5 TE S-5 .50000 .1, USE OVERRIDE CODE TO OETER"INE IIOOULE
SF
94
ROSPl
I
OORG --3
SPLINI 8NF ."20. COMMON
8
G£TeAK
OORG .-3
TIlM CAlC4-I.O,II.SET-UP CALC4
IF .. ADRSPL.05800
HOLDS COUNT POSITION FOR SPL LIST
lPSRDA NOP
PREPARE TO COMPARE
TO
CAlC4.ADRSPL ,11 ,
CF
CAlC4
CALC4.7.10
C"
BE
COIICYl
AORSPl ,OIt,lO.,NEXT ENTRY
SPlAOD AM
ADRSPl+b
I
OORG --3
KEVE,94
RDSPl TF
TF
NE VER. LI srE S-4. ,CORRECT TENTHOUSANOS POSITION

03270

oun

J2

21

·.24,99
NEVt:R,l.10
CLEVER.NEYER

04324
04316
04348
04)60
0072
043'4
04391>
04408
04420
0402
04444
04451>
04. .4
0441>.
04476
044"
04484
04496
04501
04520
04532
04544
04556
04568
04580
04588
04588
04600
04612
041>24
041>31>
046.1
04660

32
32
25
25
13
32
49

0051>5
00532
19810
19885
02853
00094
00093
05026
05021
02185
00094
04518

-4341
-2129
0000000-5
00000
00000
00000
00095
00096
NOOOO
00000
00000

••

04484
05164

02853
00000

02182
04514
00000
0271]
02183
02183
04980
04514
04520

0000-5800
00000
045111
00000
000-1
01200
000-4
00000

05003
04291
04290
04291
04660
04291
04315

00094
02186
0000000-5
00;)99
000-1
04291

11>
49
15

13

n

.9
15
16
41
25
33
14
46

11
49
26
26
15
13

.u
11

25

969

Ibl0 IIDNITOR I

DUP ROUTINE

'"

PAGE

-OLOAD, -OREPL. eDELET

SF
CLEVER
03320
013)0
ROUTI NE TO READ IN CORRECT SPl
Q4,KEVE
03340
TF
94,0,1011. PACK ZERO
03150 REOSPl C"
rF
PACK.94 .. SAVE PACK NUll
OH6O
REDS PO
03370
BE
94,1.1011.
PACK ONE
03380
03190
8E
REDSPI
C~
94,2,1011, PACK rwo
03400
REOSPZ
01410
8E
CM
94,3,1011. PACK THRtE
03420
REDSP~
03430
BE
SPLPKO+I.ClEVER
03440 REOSPO TO
TFM lORT .... 21
03450
10GT. PKODUA,l
03460
8
03470
8
SPLINI
OOR'; ·-3
03480
0)490 REDSPI TO
SPlPK 1+1 ,CLEVER
rF .. lORT,·+23
03500
03510
8
10GT.PKIODA.l
SPLINI
03520
8
03530
DORG .-3
0)540 REOSPl TO
SPLPK2+I.CLEYER
03550
rF" IORT ,-+23
I OGT. PK2DOA.l
0351>0
8
03~70
8
SPLINI
03580
OORG --3
035'10 REOSP3 ro
SPLPK 3+l.CLE VER
TF .. IORT , •• 23
03600
IOGT.PK)ODA.l
03610
B
SPLINI
03620
8
OORG '-3
03b30
SPlC n , ADRSPL "CYLeOllE POSITION
03640 co..cn rF
AORSPL, ,6
03650
SF
03660 KEVE
OS
.eOMen.23
SPLen,03,I0
031>10
A"
SPLcn,1000,61,IS THIS THE IIIGHT eYUNOER
03680 STAROT ell
0)690
SPLEXT
BE
ADRSPL,,6
01700
eF
8
SPLADO
03710
OORG e-3
03720
03730 SPlEXT rF
SPLCOII.SPLcn"FINO Dill NU" LOCATION
SPLcn,Ol,IO.BACK TO HIGH ORDER POSITION
SII
03140
SF
SPLcn,,6
03750
TF
NtWOIII.SPLeOIl, II,CYLINDEII DESIRED
01760
LISTER,SPLCOII,II,
TF
03710
TF
SPLCOII, SPLCYL
01180
TF
03790
SPLcn.ADRSPL
SF
COMMON
03800
IIHYNOT
8
03110
0011(; e-]
03120
0)110 •••
LINKAGE TO RETURN TO PROPIII sua.aunNE ,FUR SAVING COli!
NOMllaN,Ot,10
03140 GET8AK CII
Dina
BE ,GETUR
03160
ell
110"11011,02.'0
GULTR
03170
8E

041>12

32

04315

00000

04684
04696
04108
04120
04132
04144
04156
04168
04180
04192
04804
04816
04828
04.40
04848
04848
04860
04812
04884
04892
04892
04904
049\6
04928
04936
04936
04948
0491>0
04972
049.0
049.0
04992
0500)
05004
05016
0502.
oso.o
05052
05060
0501>0
0'072
05014
05096
0510.
05120
05132
05144

26
14
21>
46
14
46
14
14
46
25
16
49
49

00094
00094
02712
04804
00094
04848
00094'
04892
00094
04936
02646
00565
00566
0441>4

05003
00000094
01200
OOO-J
01200
OOO-K
01200
OOO-l
01200
04315
-4839
-2637
00000

25
16
49
49

02669
00565
00566
04464

04315
-4883
-2660
00000

l5

02692
00565
00566
044610

04315
-4921
-2613
00000

02115
00565
00566
04464

04315
-4911
-2706
00000

03187
045111
0
03187
0311P
05060
0451"
0456.

0451.
00000

OSI"

46

11>
49
49
25
16
49

'9
ZI>
)1

11
14
4/>

n

49
26

12
)2

a.
II>
26
Z6

12

03111
000-3
00000
01l5J
0315J
Ollil
04514
00000
00000

02155
02921

000-1
01200
ooo-z
01200

on ..

..

Dun

9

000-3
OPOOO
01200
00000
00000

03\51
03\87
0311P
02963
Onl>4
03151
03111
oZln

49

~

0""
05164
0""
0""
05200

'4
.6
14

01016

97n

L{t L

1620 MOIInOll
03180
03190
03900
0]910
0)920
0)930
019~0

olno
0]960
0)910
0]980
0)9'10
0'000
0~010

04020
040)0
04040
04050
04060
04010
04080
04090
04100
04110
0"120
04130
04140
04150
04160
04110
04180
04190
OltlC0
1'4210

04220
04110
04?40
04250
04260
04210
04280
04290
04300

04'10
04320
04330
04340
04350
04360
04HO
04380
04390
04400
04410
04420
04430

e..
BE
e..

NO....ON.03.10
REMOTil

BE

I NSETII
FINOTII

•

DU' llGUTINI

'UI

eOLOAD. eDII."'. e~u,

NDIIMON.O~.IO

'DOIIG --I
ADRSPL DS
,\.PSIIO. . 6
POR TI DN OF THE MOVEa SU•• OUTINe WHltH MOVES TH' DATA
CO.. PFR TF .. 10RT'-'21
10PT,KING,l,SAVE THE INFORMATION IN CORE
8
CAlCl,140,.,IIEGUUR RUO
C"
SPCREO
8L
SM
RDMOVE+5,14D.9
S..
IIRMOVE.,.140,'
WHIPIT TF .. lou, . . n
10CiT,RDMOOA,l
8
fFM IORT, •• Z3
10Pf,WR .. 00A.l
8
SM
CAlO.140,9
CM
CALC7.140,9
8"H SPCRED
SM
WRMOYE'5,140,9,ADJUST COUNT .. ND DDA AFTER TUNSFERING '40 SE
SM
RDMOYE.,.140.9
WHIPI f
8
DORG '-3
SPCRED TF
RD"OYE •• ,C"LC1" TRANSFER LAST PORTION OF PROGUM·
TF
WR .. OYE.8.CALCl
S
WRMOYE'5,CAL"
S'
RD .. OYE" .CALC1
TFM IORT,.+23
~
IOGT.RDMOO".7
(FM IORT,e+2)
B
10PT ,IIRMOD", 7
fFM WRMDVE+8.lltO,9, RESTORE CONSTANTS TO I~O
fFM RDMOYE.8,I~O,'
fF
MPT,19885,.
SAYE ADDRESS OF LAST PROGR .... S ORIGINAL. SECTOR A
fF
19an,WRMOYEt5 .. CORREtT SECTOR ADDRESS IN DI .. ENTIIY
fFM IORT, •• 23
I OPT ,OMOOA, 7
8
TFM 10RT ,"23
IIJGT,KING,l
8
MARYEL
B
OORI> ·-3
ERR
8"F .+68,FORT ••.tHECk FOR ERROR 60 IN OLOAD
TFM DI MERR_22 ,1610,8
RCTY
WArY OIMERR
UNF ERRO_Z4.0UMP
lOADRE-36
a
"ORG ·-3
TFM DIMERR-Z2,00n,.
fRRO
B
DORG ·-3
SPlFl TFM IORr ,.+23, t LINKAGE FOR THROIlING SACRED SIX TO DISK WHEN LOA
10Pf, SPLR2, 7
8
TIIA

..".

01151
01104
01155
0141"
01900

05261 16
05110 49
05292 I '
0510" . U
05116 12
0512. 12
05no '6
OU52 49
OU64 16
05JJ6 49
0511. 12
05400 14
05412 ~l
05424 12
054,. 12
05441 49
05456

00'"
00512
OU4,
OJ4"

OSIU
05224
05116
05141
01260
0''''
0.,14

05~"

05468
05410
05~92

05504
05516

I'
I"

II

OGO-I
OUOO

000-"
OUOO
00000

0

at
26
22
22
16
~'1

0~5Z8

16

055~0

~9

05552
0556.
OH16
05588
05600
05611
05624
05636
05648
0565.
05656
05668
05680
05692
05104
D5716
057Z.
OHZ.
057)6
0514.
051 ••
05156
05168

16
16
26
26
16
49
16
~9

10'1

u

-'291
-24,1
00.140
OUOO
00... 0
00.140
-U6)
-2591

O"O~

02627
00561
00566
0056'
00n2
021••
OU.I
05456
02627
02604
05340

-u"

-2614
00J40
00 .. 40
OUOO
00..40
00 .. 40
00000

02601
02630
02621
02604
00565
00566
00565
00532
026]0
02601
086]6
191.,
00565
00532
00565
00566
10892

02 . .1
OU41
OZI411
02141
-5527
.2591
-5551
-261~
OOJ~O

00.140
19885
02621
-5623
-2568
-56.7
-ZIo"
00000

~.

025~8

.9

01188

1]062
0P670
00102
00100
U"I
00000

16
~9

02507
0252.

0-011
00000

16
109
36

00565
00532
00000

-5161
-5101
00500

16
3.
39

0572.
02501
00000
02"5

971

1620 MONITOR 1
04440 SPlR 1

04450
04460
04470
04480
044QO SPlR2

04500

DUP ROUTINE

-OLOlO, -OREPL, _OElET

OSC 101
I
DC
5,18298
J8298
3,0]]
DC
-31
OC
5,02458
-2458
OSC I,'
OSC
2?
OSA

05.13
05814

I,'
SPLFl

0"530

OORG SlOO
fFM IORT ,*.2]"
LINKAGE FOR THROIIIII' ..OYER TO DISK WHEN LOADING
8
IOPT,MOYFll,7
fIlA

04550
04560

04570 MOYfll DSC
22
OSA

04580
04590

DSC

X

-51'12
1

0514.

2,Z2

08500
08500
08512
0852.
08536
08541

MOYFl2

0155.

10'

0855.
015S5

0 . . 00 MOYFl2 DSC 1.1
I
04610
DC
5,18331
J8BI
04620
DC
3,038
-38
04.30
DC
5,08600
-8600
04640
DSC 10'
0"650
04660
04670
04680
OU90

05805

05801

fcil

11

00000

05806

05813

OSC

00000
1

05800

2.22

04520

49

05191

SPLRl

04510

04540 MOYFL

PAGE
05180
05792

'16
49
]6
.9

00565
00532
00000
00000
2

-85Z]
-1548
00500
00000
X

,

-8556

08556
5

08561
085"
01569

5

08510

THE ..DYE II SUBROUTINE FOR 'IIe' ... IIIG A ", ..ce TO 'UT A '1I0GRAM GIVE
A STARTING SECTOR ADDIIESS -MDvn ..- ..NO A SECTOR tOllNT -_ESC-

0~100

04110
OOIlG 1600
04120 SFSUCE SF
SutESS
TF
OHll
RESTORE MOVE UtTOR C_T.
"OVESC,SFSUCeoll"
04HO UITMR B
- ... TO IE "M IY CAlLING PIIDGRA"
04140
OOIlG 0-]
0~750 MPT
5,0
DC
-0000
TF .. 10IlT,-.n
0"7'0 PIiEf

0.600
,01600
01612
0161~

01632
0.U6
016 . .

49

U066
0216'
01614

00000
01611
00000

'6

00'6'

-"'1

32

"

,

972

IUO II011nOR I
04170

OUIO
04190
04100 NOIIA

••

DOIIG
Dse

22
04110

DU

IOGf,_A,7,
PRUA

PA'E
01610
01. .'
0.610
01"0

NOIII

0 •• "

I, '

0 . .' .
0 . ."

04120

DC

DSC 1,1
1
DC
5,lll06
HID.
),022
DC

04850

oDlOAD, oDRIPl, oOElEf

0-'
',22

04130 NOIIII
04140

DUP ROUTINE

LINKAGE FOR IRINGING IN fHE SECOND HAL' 0' IIOV

49

4'

00U6
09000

12

-1"0
00000

2
5

•

-1"1
I

01'"
D. .n

5

0 ••••

-22
04860

6,09000'
DC
-9000'
04170 TRWCAR DSC 2.22 •• DDA FOIl IIDV I Nli DA TA
22
0 . . 80
OSA NOVCAR

08.n

04890

08699
08700

DC

08692

OBIo99

I,'

04900 MoveAR OSC 1,0
0
5,0
04910
DC
-0000
04920
DC
30060
-60
5,13776
DC
0"")0
J3116
04940
UC
1,'
04950 TRWBUS OSC
22
0.960
DSA
04970

DC

2,22. ,

01706
0870'1
.OB114
0.115
ODA FOR IIDVING DATA

08116

MDVIUS

087Z2

I, '

01722
01123

050"0

2.22, ,

2
5 X
-8724
1

08124

08729
08132
08737

,

OSC
22
DSA

5 •
-8701
1

08701

0"980 MOVBUS DSC 1,0
0
5,0
DC
0"""0
-0000
05000
3,060
DC
-60
05010
5,13116
DC
JH76
05020
DC
1,'
050]0 TRWA

6

oaU8
DDA FOR IIOVINliDATA

lOPEU

D87J9

2

08745

5 X

913

1620 II0NITOR
05050

DC

DUP ROUTINE

oOlOAD, oDREPl, oDELET

1,'

05060 lOPELA OSC I,D
0
05070
5,0
DC
-0000
050BO
3,060
DC
-60
05090
DC
5,137710
JH76
05100
DC
I,'
05110 TRWB

OSC

2,22, ,

PAGE
08145
08746

13

-8741
I

08747
08152
08n5
08160
08161
OOA FOR flOVING DATA

08762

II

05120
05130

DSA
DC

LOPEZI

08768

I, '

08768
08769

05140 lOPEl& OSC ltO
0
5,0
05150
DC
-0000
05160
3,060
DC
-60
05170
5,U776
lit
J)776
05180
DC'
1,'

08770

05190 MOHITR OS
,796
05200 KEYS
OSC 1,0
0
05210 CAlC6 DC
5,0
-0000
05220 tAlC5 DC
6,0
-00000
,10,0
05210 ZEROE 5 Ot
-000000000
6,0
05HO CIIIIShDC
-00000
05250 CUNsn DC
),0 ••
-00
)'0
0'260 tUIUIEN DC
-00
05210 LIMIT DC
1,099

00196
08785

O'liO KEYI

-99
DSC

I,D

5 X
-B170
1

08715

5

08771
5

08781
087B4

0
1

08790
01796

6

01106

10

01112

6

OIBI'
0 . ."
O"U
0 . .21

0

05290 DIIIHLD DC
9,0
-00000000
05100 DIIIENT OS
,1.110, CONTROL fiELD fOR NOIIOIII
05110 MOVER SF
NOVE SA-,
tF
IIOVUA-6
onzo
onu
TF . SFSUCE+IltIlOVESC ..
STORE MOVE SECTOR COUNT.
Tf
onlo
LI SlU,IIOVEIA .. "NO 'OINf IN LIST !lHlRE 'ROIUII IS TO ItGl

Olnl

9

19110
0"12
0....
01'"
0....

0
Oll57
all"
01611
027.0

J2
I)

26
l!6

00000
00000

02 . .'

02162

974

'I

iA

1620 NONITOa 1
05140
05150
05360

T'N
a
onRG
o~no
CM
8E
05180
0~190
Tf
aT
0~400
Sf
05410
0~420
TF
O~4JO
S
0~440
CF
SF
0~4S0
TF
0541>0
al\jF
05670
OS480 MSTAKE CF
TF
05481
05490
B
05500
DORG
05Sl0 OSEVE .. SF
05520
S
SF
05530
05540
TF
05550 ACTAJ C
05560
B"L
OS510 ACTAli Br
OS5BO
CM
05HO
8E
CM
OS600
SIIjE
05610
SF
U5610
A
0~610
OSbltO
8
05650
OORG
056&0 ACTAK TF
011)610
TFM
05680
8
056'10
DORG
OSTOO
8
05710
OORG
05120 ACTAG TF
rFM
05110
0')740
8
0.,1':10
onqG
05160
6T
05710
SF
MM
05180
TF
OSl'10
05800
6T
SF
0~810
B
05820
DORG
05830
05840 MID.. " SF
05850
SF
8T
05860
05Bl0
CM
058BO
BF

DUP RDUn . .

PAGE

-ILOAD, -oalPL, -OIL"

RlGONE+IO,"ZO
fiNO
o-J
LISTER-J,Ot,IOll,LOOl FDa IUNI INflY
HIDNIT
"EI/OIN,lISTER" NOVEU IS IN THE IIIODLE OF A PROGIIAII
o I liNER ,01 IIIIEII-I
HDVESA-4
CO"STS,nln
CO"ST5,NOVESA
MOVESA-4
CO"ST5-2
BAVAll,CO"ST5" ADJUST ILANI AVAIL TO IlINUS TO ALLOW FOR Dill
FllTST,n. . . . . IS THE PROG"'" "LE PROTECTED
SUCESS" ,ERROR UIT
RESTORE IIOVE SECToa COUNT.
HOVESC, SFSUCE.II"
EXITMR
'-J
L1STES-It
FOU"O,L1 STES
FOU"O-2
CO .. ST2, FOU"O
CO .. ST2,MOVESC, ,
ENOUGH SECTORS AVAILABLE
ACUG
GETR,GETR-I, , LOOK FOR HORE ROOM
LI STER-3,l,l01l
ACTAH
LI STER-3 ,9,1011
ACUK
LI STER-2
CONST2,lISTER
ACTAJ
'-3
II S TE S ,MOVESA" REPOSITION LISTER TO MOVESA
RlGONE+)O.·+20
FINO
'-3
PROGRAMS MUST 8E MOVED
8LANKT, ••
'-3
L1STES,MOVESA"
REPOSITION FIND TO MDVEU
RLGONE+1O •• +20
FINO
'-3
GErR,GEYR-I
lISTER-2

LISTER,200.c)
CONSTt,99
GETL,GETL-I
lISTER-2
ACTAA
'-3
.. OVESA-4, ••
MOVESA IS AT All AREA COVERED IV IUI4K SECTORS
1I STER-2
GETR,GETR-I
L1STER-3,l,IOll
OSEVEN

01.10
OI19Z
01900
01900
0 . . 12
08924
01916
01 . .1
01960
08972
08914
019. .
0.001
09020
0.0)1
.0.044
09056
09064
0.064
09076
09088
09100
09112
09124
09U6
09148
09160
09172
0911'
09191>
09208
09220
09228
09228
0'1240
0'1252
0921>0
0'12100
0921>8
0921>8
09280
09292
09300
09300
09312
09324
09316
09348
09360
09372
09380
09380
09392
09404
09416
09428

&6
69

16
66
26

n

J2
Z6
Z2

Jl
12

...
26

Jl

26
69

12
22
32

21>
24
46

Z7

14
41>
14

47
32
21
49

26
110
~q

0621.
O)IIZ

-1900
00000

02161
09JIO
OZ96J
OJ666
02851
02825"
OllU
02851
10212
1)066
02165
01624

ooo-a
DilDO
02766
OJ665
00000
19115
02162
00000
00000
02125
191"
00000
08611
00000

02'716
0344'
0)1043
02807
02807
09268
02872
02761
09131>
0271>1
09228
02162
02801
09112

00000
02790
00000
03445
02865
01300
·02171
OOO-P
01200
OOO-R
01200
00000
0211>4
00000

02190
04218
03832

028102
-9260
00000

Dun
on54

49

103510

00000

26
16
"9

021'10
03832

02862
-9300
00000

27
32

02812
02162
02164
02801
02996
02762
095100

02811
00000
OOKOO
00099
02995
00000
00000

02n8
02762
02872
02761
0901>4

00000
00000
02871
OOO-P
01200

13

21>
27
)2
49
32
)2

27
14
46

0~218

16

975
1620 MONITOR I
058'10
05'100

rF
~T

rF
05920 I SFVEN rF
05930
TF
05940
8T
05'150
SF
05'160
A
05910
C
05'180
8M
05990 ACTAA S
06000
TF
06010
S
06020
SF
06030
TF
06040
CF
06050
TFM
CM
06060
06010
8E .
06080
8T
06090 NO .. AME 8T
06100
CM
06110
8 .. E
061Z0
SF
06130
Mil
Ohl40
TFM
0&150
TF
0&160
S
06170
SF
06180
t
OflolQO
b"L
0ll)Ql0

Ohl00

062\0
OI.2}O

06210

06240
06HO
062hO
06270
06280
06290 ACTAO
06100
06310
06120
06330
06140
01>350 ACTAC
06360
01>310
0l>3aO
01>390
01>.00
06410
06420
06410
010440

•S

TF
tF
TFM
8Y
BY
8
OURG
rF
8T
TF
TO
CF
SF
TF
CF
TFM
aT
Tr
A
S
SF
TF
tF

DUP ROUTINE

.OLOAD. oDREPL, -DUeT

NEWOIM,lISTER"
POSITION END OF BUNKS FROI4 THIS DIMS SECTOR
OIMMER,DIMMER-I
CONSTl,l9885
CO"S r6,MOVESA
CONST3,CONSTl
GETl,GETL-I
lISTER-Z
CO .. ST6,MOVESC
CO"ST6,CONSTI"IS THERE E.. OUGH ROOM TO LOAD THE MOVESC
'LA .. U
CONSTI,lISTER"E"OUGH ROOM HAS BEEN FOUND WITHOUT NOV ING PRO
CO.. ST2,MOVESA
CO"ST2,CONSTl
CO"ST2-2
·.35,CONST2, , PREPARE THE ·TRAILlIIG NINES ENTRY
e+21
lISTEY,9000,8
LISTET.9000,8
e+24

INSERT,INSERT-I
REMOVE,REMOVE-I.
lISTER-3,l,IOll
ACTAO
lISTER-2
lISTER.200,9
95,99.10,
TO CONPENSATE FOR PACK ADDRESS ING

CONS·n,99
99,MOVESA

91
99,MOVESC
ACTAC
MOVESA,99
MOVESC,"
•• 35,99 •• PREPARE EIGHTS ENTRY OF NOVESC
e+21
lISTET,.'!9",8
INSERT,INSERT-I
GETR, GETR-I
.,O... ME
0-3
NEWDI M,lI STER" USE 0111 E"TRV TO FINO SECTOR AORESS
DIMIIER,OIMNU-I
CONS n,I9885
CO"ST)-5,19I10
CONS13-4
CONST3-5
'.H,IIOVESC. ,PRE"RE AN E I GHrs EII"'Y OF NOVESC

·.2l
lISTET,IOOO,.
I .. SERT ,INSEIIT-1
CONS12,NOVESA
CONS 12 .1I0VESe
CONsn,CONSTZ
COI4STJ-2
"n,CONSn. ,PREPAIe THE LEADING NINIS ENTRY
·.21

PAGE
09440
09~52

09464
09471>
09488
09500
09512
09524
09536
09548
095100
09572
09584
095910
091>08
091020
09632
0"44
091>51>
09668
096.0
091>92
09704
09716
09128
09740
09152
0"64
09776
09718
09800
09812
09824
098)1>
09148
09860
09112
091. .
09896
09904
09904
09916
09928
09940
099t2
0996~

0,,976
09911
10000
10012
10026
10016
1006.
10060
10012
10014

02963
03666
02801
02831
08815
02996
02162
02831
02831
10356
02801
02807
02801
02805
0964)
09641
02794
02194
09680
03414
0)084
02161
09904
0271>2
02164
00095
08815
00099
00097
00099
09976
028102
02865
09171
09869
02794
03414
02172
09680

031>65
19885
02862
02801
02995
00000
02865
02801
01100
02164
02862
02801
00000
02807
00000
OROOO
OROOO
01200
03413
03083
OOO-P
01200
00000
OOKOO
000R9
00099
02862
00000
02865
01300
00099
00099
00099
00000
OQ999
03413
0217t
00000

02963
0)666
26 ·08815
01110
J]
OIlU
12 01110
26 10011
n 10009
16 02794
03414
26 02107
Zl 02101
Z2 0 •• 15
IZ 01113
10101
n 10105

02764
03665
191"
19810
00000
00000
021.,
00000
OQOOO
0)413
02862
02165
02107
00000
0.11'
00000

26
27
26
26
26
27
)2
21
24

410
22
26
22
12
21>
33
16
14

410
27
27
14
4J
32
13
16
26
22
32
24
410
21
22
26

n

16

27
27
49
26

27

"

ar

"

15

0276~

9741

1620 liON I TOR
TFII
0"450
064,,0
CN
OM10
BE
06480
8T
06490 REIISIL CF
8T
06500
06510
CII
06520
801E
8T
0"530
065"0
6
06550
OORG
06560 F lUST 811G
06510
6
06580
OORG
06590 GORT
U
06600
CM
06610
HE
CM
06620
06630
BE
Tf
06640
Of:tbI)O
HT
06660
ANG
Obb 70
B
06MO
DORG
Ob6QO
BNF
06700
B
06710
DOR!;
06720 BLANKT SF
TF
06710
06740
S
06750
CF
SF
06160
TF
06110
CF
06780
06190 HAVCOM C
06800
BNH
06810
8
06820
DORG
06810 8AVADD SF
06640
A
Ob8';0
B
06860
DORG
06870 MOVNOW S
06880
CM
06890
8E
SF
06900
TF
Ob'HO
ObQ20
CF
06930
TFM
060940
BT
TFM
06950
06960
S
06970
TOM
069BO
DC
06990 REMBLK BT

OU. ROUTINE

·.24
IliISERT ,INSERr-l
IIOVE SA-", .. 'OS I TI ON LISTER FOil
GETL,GETL-I
LISTER-l,OI,IOIl

•
EXIT

'-H
GETR. G'E TR-I
SFSUCE
.-)
GORr ,19899 ..
NSTAKE

JAGE

eDl.OAD, eDRE.L, eDELET

LISTer ,9000,1
LISTET,.OOO ••

CHECK FOR FILE PROTeCTION

.-)

GETR.GETR-I .. SEARCH FOIl IIORE BLANK SECTORS
LISTER-3.01.101I, CYL RfPRESEIITEO
GORr
LISTER-3.0',IOII,8LAIIKS
BAVAOO
IIEWOIII,L1STER
OIMMER.OIIIMER-I
-+20,19899,. FILE PROTECTED PROGRAII
F IL TS Toll
'-3
GORT,I9899"IMMOVA8LE PROGRAM
MSUKE
.-3
lISTES-3
CONS T5 .FOUNO
FOUNO,lISTES
lISTeS-3
FOUNU-2
BAVAIL,FOU~O

FOUNO-2
MOVESC.BAVAIL,.IS HOU BIG ENOUGH
MOVNOW
GORT·
.-3
LISTER-Z. t I
ADO IN COUNT OF BLANK SECTORS FOUND
BAVAlL.lISTER
BAVCDH
.-3
ADJUST LAST NIllES ENTRY FOR FINal OUTPUT
BAVAlL.MOVeSC ..
SAVAll,OOO,9,
REH8LK
LlSTER-2

IOD96
1010.
101ZO
IOU2
10144
'01S6
10161
10110
101.2
10204
10212
10212
10224
IOU2
10232
10244
102U
10268
10280
10292
10304
10316
10)28
103)6
10336
10348
10356
10356
10368
10310
10392
10 ..0 ..
10416
10"28
104 .. 0
10452
10464
10U2
10.. 12
10 .. 84
10",'6
10504
10~04

1,' ,-

10516
10528
10540
10552
1056..
10'516
10518
10600
10612
10624
10615

REMOVE .REIIOVE-I. ,REMOVE LAST NINES ENTRY IF IT IS A PEIIFECT

10636

•• 3S,8AVAIL
-+21
lISTET.9000,8
INSERT.INSERT-1
WRMOVE+5 ••• ZERO FIElD
WRMOVE+5. &AVAIL
HEX,. ,RECORD MARK

,..

02194
0279..
101 ....
0).. 14
02851
02 •••
02761
10116
02812
01600

011000
011000
01200
Ol4U
00000
0299'
000-0
OUOD
olin
00000

10212
09032

19. . .
00000

02112
02161
10232
02761
10412
02963
03666
10336
10124

02111
000-'
01Z00
OOO-R
01Z00
02764
03665
19199
00000

4"
49

10232
09032

19899
00000

32
26
22·
]3
]2
26
H
24
41
49

02181
02825
03445
03443
0275"
01 .... 3
02865
10504
10212

00000
03445
02790
00000
00000
0]445
00000
0275"
01100
00000

12
21
.. 9

02162
02754
10.... 0

00000
0276«0
00000

22
I"

0215"

02865
00-00
01200
00000
0215 ..
00000
OROOO
03 .. 11
-0000
0215"
00000

16

.. 6

27

n

27
14

n

2l
49

n

'"
21
14
U
14

...
26

27
55

'"

46

]2
26
J3
16

Z1
I"
Z2
15

21

02181

0275~

10636
02162
10587
10585
0279"
0341"
02621
02627
02795
I
0301 ..

16

03081

977

1620 MONITOR I

OUP ROUTINE

CM
BE
TF
BT

•

01110

07120
07130
07140
07150
07\60
07170
07180
07\90
07200
07210
07220
07230
01HO
07250
07260
07270
07280
07240
07300
073\0
07320
07330
07340
07350
07360
07370
01380
07]90
01400
07410
0720 ..ONlTOII 1

DUP aOUTlN1

''GE

.OLD.D. .DllePL. -DeUT

SEVEIH CM
II STER. 7000.,.CHECK fOIl SPECIAL CAU 0' CYliNDER ZERO
SPEtH
8F
REMOVE.REMOYE-I
NlliEliT IT
B
LOO'SY
OORG
SPECH TFM 19•• 5".
REMOYE. REMOYE-I
8T
TFII MAllY> 1.41.10.NO' THE GETR IN THIS SPECIAL CASE
liE AT
B
OORG
liEWDI II.lI STEIl
CHOICE TF
8T
01 IIIIER .DI""EII-I
CM
1I STER.OOOI.I. CHECK 'OR WOIIK IlEPllfSENTED 1'1 cn INOEII COUtiT
BNE
07UO
191 . . . 200.9
07690
"II
SF
95
07700
4
19885.99
07710
07720
4
19885 019818
SET-UP FlKSEY ANO RACKET
01730
071~0 MEAT
"OYESA-4.05.10
ro .. "DYE SA-4 01.11
01750
01160
BO
-+2"',99
ro .. MOYESA-4.0.11
07110
01780
TO
19B81.MOYESA-4
07190
TF" FAKSEY.7000.8
01800
SF
19883
5.00200,.
01810 DEl TA DC
-0200
TF~
07810
RACKET .. 8
TF
07830
RACKET.19885 •• ESTA8LISH THE PlUIIBER OF SECTORS US~D ON THIS C
07840
CF
\9883
07850
TOM
RACkET-201
MM
19883,05,10
07860
01810
*+24,99
SO
TQM
07880
RACKET-l.O
FAKSEV,98
07890
TO
01900
TO
FAKSEV-I.91
01910
INIT TO 200 HI NUS RACKET
S
DElTA,RACKET"
01020 "AMY
8T
GETR,GETR-l •• SHIFT OFF OF AliCHOR PROGRAM
TF
01930
CONST5.MOYESA
01940
CONST5.19885
S
RACKET,QOOO,I
079'50
CM
07960
8NE CONCUO
REPLACE THE CYLlliDER .. ARKER
07970
TF
lISTET,FAkSEV,.
01980
BT
INSERT.INSERT-I
07C)90
CONSTS,,7,
CM
08000
BE
EIGHTS
IS THERE ENOUGH ROOM FOR REIIAINIIiG lilNES EliT
08010 DELNTS C
OEL fA .CONS'S ••
08020
TAC
SL
08010
8H
TIC
SF
A PERFECT FIT.INSERT THE lilNES ENTRY
08040
CONST5-2., t
TF
08050
-+35.CO .. ST5
08060
.+21
CF
08070
rFM LI STET .9000.8
08080
INSERT.INSERT-I
"T
AM
08090
FAKSEV,Ol,lO

07550
07560
01510
075.0
07590
01600
01610
011>20
071>30
07640
01650
07660
071>70

.-,

.-,

..4.

....

14
U

32
21
21

00095
19885
198e5

09292
09104
09311>
09328
09340
09352
09364
09375

Il

02858
02858
09140
02858
19881
02852
19883
5

000-5
OOOOJ
00099
000002858
OPOOO
00000

02841
028101
19883
02839
19883
09460
02839
02852
0285!
09]75
02812
02825
02825
02841
09952
02794
03414
02825
099810
09315
09812
09144
01823
09681
09685
021910
034110
02852

0-000
19885
00000
00001
000-5
00099
00000
00098
00097
02841
02871
02862
19885
0-000
01200
02852
031013
-0000
01200
02825
01300
01100
00000
02825
00000
OROOO
03413
000-1

09316
09388
09400
09412
0942~

09436
09""8
09460
09H2
094810
091096
09508
09510
09532
095410
09556
09568
09580
09592
09604
09616
09628
09640
09652
0966"
09616
09688
09100

21

"

16

21
16
49
26
27

14
U'
13

15
U

IS
25
16
32
16
26
31

15
13
H

15
25
25
22
21
26
22
14

H
26

21
14
46
24

H
106
32
26
H
16

21
11

02764
09152
01014
09024

01200
03013
00000

19815
01014
09491
0'1292

-0000
03013
000111
00000

02963
0'''''
02764
09zeo

02764
03665
0-001
01200
OOKOO
00000
00099
198 . .

19...

II

OPOOO

09101
09120
09U2
09144
09152
O'lISl
09164
09116
09111
09196
09196
09201
092Z0
09UZ
09Z44
09256
0921>8
09280

979

1620 MONITOR I
08\ 00
08110
08120
08130
08140 TIC
08150
OA160

OBII0
08180
08190
08200
08210 TAC
08220
08110
082~0

08250
08260

08210
08280
08290
08300
08310
08320
08130
08340
08350
08360
08370
08380

08390
08400

08 .. 10
08,c,20
08"~O
084t~O

0841«)0
08460

08,10
08,80

081090
08500
oa510
06520
08530
OU40

an so

08560
08570
08580
08590
01.00
01'10
0 . . 20
01.30
08640
01.50

TF
8T
8
OORG
SF
TF
CF
TF.
aT

B

lISTET,FAKSEV ••

OUP ROUTINE

INSERT. INSERT-I
EIGHTS
·-3
CONST5-2., •
INSERT THE NINES ENTRY
.+V;,CONST5

-+21

LISTET,9000,8
INSERT.INSERT-I
EIGHTS

OOR!; . - ]
SF
FILL THE REST OF THE CYLINDER WITH NINES ENTRY
OEl'.-2"
TF
e.35,OEl rA
CF
-+21
TF_
L1STEr.900D.a
CF
DEL "'-2
aT
INSERT.INSERT-I
5
eONST5.0EL TA
AM
. FAKSev.OI.IO
TF
LISTET,FAKSEV,.
RESTORE THE CYLINDER MARKER
8T
INSERT • INSERT-I
TF .. DElTA,00200,7.
8
DELNTS
OORG '-3
CONCUD eM
CONST5,OOOOO,7.
SECTOR ADORES FITS Oli EliO OF PREViOUS PROGR
8E
EIGHTS
8
OHNT5
DORG '-3
EIGHTS TF
•• 15.MOVESC., INSERT AN EIGHTS ENTRY FOR MOYESe
eF
-+21
TF .. L1STer.Booo.1
aT
INSERT • INSERT-I
8T
GETl.GETl-1
MOVESA-]
SF
Tf
RACKET .MOVESA
MOVESA-)
CF
SM
RACKET .200.9
8NF
'-12. RACKET
RACKET .200,'
A"
aT
GETL .GETL-I
ROUTINE TO RESTORE THE SPL TO ITS PROPER FOil ..
ALLRIT aT
GETR. GETR-I •• SHIFT TO PICK UP NEXT ENTity TO ANAlYlE
CM
L1STER-3.7.101i
8UUTY
IE
CM
LI S TER-3.9.101l
H
ADDUC
CM
L1STER-l.e.IOll
8E
ADDUC
TF
NENOIM.L1Snll .. IIIING IN NEM 01 .. ENTity TO FINO LENGTH
aT
DI ....ER.OI ....U-I
SF
fAK$EV-l
fAKSEY.2DO.9

""
SF
S

AM

CF

94
95.NEVER
. . . 01010
fAKSEV-1

PAGE

.OlOAD, -OREPl, • DEL ET

RESTORE THE CYliNDER HARKER

09112
09124
091)6
091H

26
21
109

097~Io

3l
26
H
16
21

09156
09768
09780
09192
09804
09812
09812
098210
09836
09848
09860
09812
0988~

09896
09908
09920
09932
09944
09952
09952
09964
09976
09984
09984
09996
10008
10020
10012
100.4
10056
10068
100.0
10092
1010.
10116
10128
101.0
10152
10164

lon6

1011.
10200
10212
10224
10lJI>
10248
10260
102U
10214
10296

49

32
26
13
16
H

21
22
II
26
21
16
49

02794
099810

02852
03413
00000

02823
09191
09789
02794
01414
09984

00000
02825
00000
OROOO
03413
00000

09313
09859
09857
027910
09173
01414
02825
02852
02794
03414
09315
09604

00000
09375
00000
OROOO
00000
03413
09315
000-1
02852
03413
-0200
00000

0341~

I~

02825

46
49

0998~

091>04

-0000
01200
00000

26
33
16
21
21
)2
26

10019
10017
02194
03414
02996
02859
02541
02859
02841
10080
02.41
02991>

02865
00000
OQOOO
0)413
02995
00000
02862
00000
OOKOO
02141
OOKOo
02995

02872
02761
10592
0211>1
10656
021.1
106'1>
02963
Ol666
oznl
02.'2
00094
00095
00095
OZI5I

02171
000-1'
01200
OOO-R
01200
000-0
01200
02764
0)665
00000
OOROO
00000
04291

n

12
44

II
21
21
14
U

14

,.

."

u

26

n

J2
U
12

2Z
11
II

19

DOD-I

00000

98t1

1620 MONITOR I
08660
08610
OBUD
OB690
08700
08710
08720 NOISY
OB730
08HO
OB150
08760
08770
087BO
08790
08800
08810
08"10
08810
08800 RAKES
08850
OB860
088/0
08880

~"l

S
SF
A
A
CM
Bt
BNH
CM
BNH
TF
aT
AM
TF
aT
TF
aT
SM
C

08990

090040

09050
09060
09070
09080
09090

09100
09110
09120
09130
09140
09150
09160
09170
09\80
O(H90
09200
09210

POSI TlON L1HER FOR EXIT
1I S TER-3. 08 .1011

GETL.GETl-l ••

·.20

DORG ·-3

08950

09000
09010
011020
09030

GETL.GETL-I
NOISY
.-]
REMOVE. REMOVE-I

BEAUTY

08940

PAGE

_OLOAO. _DaEPL. -DlLU

•• 32

"F

BT
a
o8aQo
DORG
08900
af
OaqlO 6EAUTY af
CM
08020
08Q30
8E

08960
OB970
08980

OU, ROUTINE

19B.5.99"DOES THIS PROGRAM SURT ON A CYliNDER PREVIOUS TO
-.<\8
191es.99
19'8)
19. . . . 19.85
AACKE T ,19888
RACKET. ZOO, 9, HAVE ZOO SECTORS IEEN ACCOUNTED FOR THIS CYLI
ELEST
AURIT
L1STER-J, •• IOII
TElAST
STUL,LlSTER
GETR, GETR-I
FAKSEV,I,IO
RE STORE SEVENS MARKER
lISTEr,FUSEV"
INSERT,INSERT-I
lIHEr.STEAL .. REPEAT THE DIM NUMBER
INSERT.INSERT-I
RACKET,200.9,
L1STER.FUSFV

sf
GEfR. GETR-I
B
SFSUCE
DORG .- 3
ADOR AC sr
LISTER-2,t.
.lOa THE 8LANK OR EIGHTS SECTOR COUNT TO TOTAL
A
RACKET.ll STER
llSTER-2
CF
NOISY
B
DORG .-)
AM
FAKSEV.l,lO.
INSERT cn MARKER FOR A PERFECT FIT
ElESf
TF
II STET .FAKSEV
aT
GETR. GE TR-I
8T
INSERT.INSERT-I
RAKES
a
OORG ·-3
TElAST SF
LlSTER-l
PREPARE THE SIZE OF THE EIGHTS ENTRV
RACKET,LISTER,.
S
CF
II SfER-2
TFM CONST8.200.8
CONS f 8. RACKET
5
SF
CONS T8-2
S
LISTER.CONST8
fF
STEAl.Ll STER
TF
*+35.COIIIIST8
•• 21
CF
INSERT THE EIGHTS ENTRV
TFM
LISTEr,eOOO,a,
8T
REMOVE,REMOVE-l., REMOVE THE INDICATOR FROM THE Ll ST

1010.
10llO
ID1U
IDJ44
1015.
10361
10110
10JU
10404
10416
104Z.
10440
10452
10. .4
10416
104 . .
10500

1051l
10524
10536
10548
10560
10572
10580
10580
10592
10604
10616
10628
10636
10616
10648
10656
10656
10668
10680
10692
10700
10100
10712
10124
10136
10748
10156
10756
10768
10760
107'12
10804
10816
10828
10840
10852
10864
10876
10888

H

19.15
10J6I
19. . 5
19183
19111
02S41
02S41
10100
10121
02161
10156
Oze45
02112
02152
02794
01414
02794
OJ414
02841
02764
10580
02996
10180

00099
OUOO
00099
00000
19. . 5
I9S . .
OOKOO
01200
01100
OOO-g
01100
02164
OZUI
000-1
02152
O14U
02845
0141)
OOMOO
02152
01100

14
46
49

03084
02996
02161
10636
10592

03083
02995
OOO-Q
01200
00000

21
49

02812
08600

02811
00000

32

02762

11
J3

01841
02762
10380

00000
02764
00000
00000

02852
02794
02872
Ol"14
10524

000-1
02852
02871
03413
00000

01762

00000
02164
00000
0-200
02841
00000
02810
02764
02870
00000
OQOOO
03083

.6

Z2
JZ
ZI
ZI
14

...,.,
14

Z6

21
II
26

21
26

27
Il
24
46
21
49

21
21

49

II
26
21

21
4~

l2
22
H
16
22
l2
22
26
26

33
l6
27

20

02995
00000

02841
02762
02870
02870
02868
02764
02845
10887
10885
02194
0]084

981

1620 MONITOR I
09220
09230
09240
09250
09260
09210

INSER f.INSERT-1
FAKSEVtltlO
II STeT,FAKSEY
INSERT. INSERT-I ••
lISTEr.STEAl

df
AM
fF
Bf
fF
8T
aT
TF
TOM
B

O(n80

09290
09300
09310
09320
09330
09340 NOMe

09)50
Q(HbO

09310 NOMO
09380

INSERT.INSERT-l.,

OSC
22
USA

INSERT THE SEVENS MARKER
REPLACE THE REDUCED INDICATOR

2.22
NOME

11010

I.'

11010
11011

DC

OSC
1,1
I
OC
5.17106
J1106
DC
3.022

-22
09430

DC

10900
10912
10924
10936
10948
10960
10912
10984
10996
11008
1I0l6
11016
11028
11040
11052
11064

09JrtOO NOME

09420

PAGE

'OLOAD, -OREPL, 'DElET

GETL.GETl-1
RACKET. I I STer
RACkET-],O,ll
NOISY
OORG --3
II NKAGE FOR PLAC I NG THIS LAST PORTION OF MOVER ON DISK
fFM
IORT ••• 21
IOPT,NOMD,7
B
TRA

09]90

09410

aup ROUTINE

6,09000'

49

03414
02852
0179410
03414
02794
0341<\
02996
02841
02838
10380

03"13
000-1
02852
03413
02845
03413
02995
02794
000000000

16
49
36
49

00565
00532
00000
00000

JI039
JlOb4
00500
00000

27

II
26
27
26
17

21
26

15

21

2
5 X
JI072
I

11012
11011
11080
11086

-9000'
fCO

091t50
09460 OElFL
09"'10
09480

DORG 5600
TFM
IORT, •• 21
8
IOPT.OElI.1
fRA

09 .... 0 aElI

OSC
22

2.22

05636
05641

09500

OSA

Dell

05654

09510

.

09520

NOMC

11016

094ltO

DEll

0562~

0565~

5 X

-5656
I

DSC

1.1

I
DC

5.18241

05661

5

3.013

OS664

1

05669

5

DOHO

at
-11

5,05800
DC
-5800
I, •
OSC

-5623
-5648
00500
00000

2

05655

09550

09HO •

00565
00532
00000
00000

05U6

J8247

09560

16
49
36
49

I, •

DSC

09530

05600
05600
05612

05670

DelETE PROG . . " ROUTt Nf

982

lf4(

1'20 MOIl I ro. I
09"0 0
09"0 0
OUOO
09610 DELET
09UO
09UO
096~0

09650
09660
09610
09680
09690
09700

09110

09720
09730
09740
09750
09760
09110
09780
09790
09800
09810
09820
09830
09840
09850
09860
09870
09880
09890
QqCJOO

09910
09no
09030
OQ940

09950
099bO

OQQ70 OKDEL
09980
OQ990
10000
10010
10020
10030 •
100"0
10050
10060
10070
10080
10090
10100
10110
10120
[01l0

DD~G

SF
TF"
TF"
8T
811R
8
DORG
14M
SF
SM
rF
SF
TF
TO
TO
Til
TO
SF
CM
8E
C
aNH
TFM

DU' .oun ...

,./oE

0GL06D. oDRI"L. oDlUT

5100
DELETE
OElUMINE MAX.MO. 0' DIM ENTRIES
"UDIM . . . . . . .
NEIIDI".3 ••
DIMMU,DIMII'R-I

05100
05.00

•• 20,M .. '

05 . . .
051.0

osell
D582~
osan

"OIlCAl

J2

UO ••

00000

I'

03.41
029U
OJ . . .
0516 •
00796

OU99
o-OOJ
OJ. .,
19880
00000

U

1....

lZ

000. .
0009.

000-5
00000
000-1
00099
00000
U615

16
Zl
~s
~9

osa68

0-'

"AP.8,5,10

0""
05110
05192
05904
0591.
05921
05"0
05952
05964
05916
05911
06000
06012

"

99,1010
"UDI","
INPUT+II
PIIA"E ,I NPUT+22
DIMNUM,INI'UJ+)O
o I M"U~ 1,1 NPUJ+2.
OIM"UM-2,INI'UT+Z'
0IMNUM-3,IIIPUH24
DIMIIUM-J
OIMNUM.O ••
OKDEL-24
IS DIM NO. IN aANGE
OIMIIU"."UDI"

06024
06036
06048
06060
06068

··32

0IMERR+22 ,0076 ,.
ERRO
D
OORG '-3
IS 011'4 liD. IN USE
TF
NEWOIM,OIMNUM
ST
OIMMER,OIMMER-l
aNR OKOEl.MAP
TF" o [MERR'22 ,1271,8
ERRO
6
OORG '-3
PNAME.
ZER012
C
8E
ERRD-12
aTM EQUIV •• +12
CM
OIMNUM.0.8
8NE e+32
HM 01 MERR+22, 7270,"
8
ERRO
DOR(j e-3
DElETE ENUV HOM SP LIST
8TM SPlOEL,e+12
NEWO[ M.O[MIIUM
H
aT
01 MMER .DIMMER-I
TF
FWRll+5.MAP+5
TO
FWR IT .MAP
TF
HOlO3.MAP+8
TF
LOAOSC,MAP'8
TFM FLAG+ II, TRACK2
TF
LOAOS •• MAP'5
LOADSA-5,MAP
TO

12
2.

O)l~l

12
2'
25

13624
13119
13150

Z5
25
25
32

131~9

1l6~1

11148
13147
13147

U639
U637
00000
0-000
01200

I~

uno

46

06124

24

U150
060n
02501

47
16
49

0252~

Ob068
Ob080
Ob092
06104
06116
06124

2b
21
45
16
49

0296)
03666
06148
02501

OblZ~

2~

11189
02512
08606
131S0

0252~

06116

~6

061~8

17

06160
06172

~7

Ob20~

16
49

02501
025H

17

12090
0296)
01666
13232
13227
ll(5)

0618~

06196

I~

U

13'~J

0J8~)

01100
0-016
00000
13150
0)665
19880
01'271
00000
11(2)
01200
-6160
0-000
01200
0'270
00000

0620~

0620lt
06216
06228
06240
06252
0626~

06216
06288
06)00
06312

26
21
26

25
26
26
16
26
25

lll~O

06H9
ll050
llOlt5

-6216
13150
0)665
19885
19880
19888
19888
J1178
19885
19880

983'

1620 MONITOR
101"0
10150
10160
10170
10180
10190
10200
10210
10220
10230
10240
[0250
102bO FLAG
10210
10280
10290

10300
10310
10320
IOHO
10340
10150
10360
10310
10380 CLEAR
10390
10400
10410
10"20
10QO
10~40 CLF.
10~50

104'0
10470
10480
10490
10500 WROK
10510
10520
10530
10~'0
10~~0

[0560
10~10

10580 FPOK
10590
10600
10610
10620
106)0
10640
[0650
10660
10610
10680

OUP ROUT[IIE

""P+lt
fIIIAP+5,20,10
e-12
BH
al
e+"8
AM
MAP+5.20.10
MM
MAP+5,105,Q
A
FlAG+l1,99
TF
ClFP+6,FLAG+ll
TFM FWRIT+8,20.9
TFM FWRIT'Il. TRACK2
TFM
(ORT,e+23
B
[OGT,F'00A.7
BNF e+20,TRACK2"
B
CLEAR
DORG .-3
SM
HOLD],1,10
FPOK
Bl
FlAG+ll,105,9
AM
c. FlAG'II, TRACK2.2100
BL
FLAG
FUG'll,TUCK2
TF'~
AM
FWRIT+5,20,lO
FlAG-H
B
OORG .-)
TF
FWRIT+5.LDAOSA
TO
FWR[ T .LDADSA-5
SF
BUTTON
BTM KYMESS,·+12
IORT ,e+2)
TFM
8
IDGT,F'DDA,7
CF
lRICK2" •
lOAUSC,1,10
S"
Al
WROK
AM
ClF'+6,105.9
CLFP+6, TUCK2+2100
C"
BL
TFM
IORT,-+23
IOPT,FPDOA,7
8
A.
FWRI T+5.20,10
TFM CLFP'6, luell2
CM
LOADSt,o,,,
S'IE ClFP-24
CF
8UTTON
HTM KYfJIIESS,·"12
TF
NEWDIM,OIMNUII

0632~

Ob336
Ob148
06360
06372
D63H
Db396
Ob~08

06420
Ob4)2
0644~

Ob~56

SEARCH FOR F [LE

D[MME~,O["MU-l

TDM
OSC

""P" ,

TF

MAI'·J9.ZUOI.
IDRT, . . U
IDPJ ,DMDDA, 7

TF"
8
TOM
8

1.',-

I'~OrECTIDN

11
13
21
26
16
16
16

"

~9

12

06500
06512
06524
06536

~6

065~8

06616
06628
066"0
06652
0666~

06616
066. .
06700
061\2
06724
067)6
061U
06160
06172
06114
067 ••
06801
06110
06n2
0 . .44
061n
06.,.
0....
0 ••• 0

SYSCAl,)

o.au

MDNCAl

06904
0 . .12
05600

DDRG 0-)
Teo D!LFL

~6

061080

0660~

UMOVf DIM fllUY

~6

4~

06560
06572
06580
06580
06592

CLEAR FILE l'aOrECTlDN

12
12

Ob~68
06~8B
06~88

elF.

IT

PAGE

-OLDAO. oDREPL, .DELET

SF
SM

1988~

19885
Ob116
06408
19885
19885
06H9
06658
11235
112~0

-b~67

13153
06820

000-1
01200
00J05
J9818
01100
J7718
OOOKO
00000

06~19

06479

~1

06~68

16
II
49

06~19

26
25
)2

13232
11227
00455
11998
00565
00566
11178
U140
06124
06658
06658
06652
00565
00532
112J2
06651
11140
06628

17
16
49

H
12
~6

II

I"

47
16
49

1I

1/.

14
47

n

13232
064~~

00~55

17

11991

26
Zl


22

Il
26
32

32
33
4]

4'

)2

06~44

24
46
32
Zf>

064"
06"'1
11'6410

24
66

06~92

26

06506
06516
0652'
11'6540
065U
06".
0.516
06511
066011'
06612
11'661'
D.6J6
0....
06_
066116
0....
0 . . .0

21
12
24
4'

25

32
26
I'

,.
26

n

41

••
J'

"
"

19

1299]
066.0
02963
01666
0.644
06916
00_
01501
01411
01 . .3

25

131~D

000-1
13163
01300
11'011'00
U635
0-000
aliII'D

1299'

01665
1. . .0
00000
00101
0'511
00100
o-UI

!lSi

Y.~I

lt20 MaNITo. 1
11 . .0
11700
11110
11720
11 no
11740
11150
11 no
linD
11110
117'10
iliaD UEC
11110
11120
11830
11840
11850
11860
11870
11880
11890
11900
11910 EXITFL
11920
11930
11940
11950
11960
11970
11980 CALLMV
l199Q

12000
12010
12020
12030
12040
12050
12060
12010
12080
12090
12100
12110
12120
12130
12140
12150
12160
12110
12180
12190
12200 WR2
12210 LOADRE
12220
12230
12240

"

TF

"
,

CF
AM
TF
TFM
TFM
TO
AM
'NR

,

OOIlG
AM
C
BH
AM
CM
8L
8
OORG
8NF
TFM
8
DDRG
TFM
8
DOIIG
TF
TF
TF
TO
Tn,
B
TFM
8
DORG
8NF
TFM
S

TFM
a
TF
8T
~TM

8TM
BNF
TO

TFM
8

os

TFM
SF
aTM
TFM

A

TO
SF
ef
TF
TF
A
SM
TF
TF
aNF
SF
8
DORG
TFM
SPS
eM
8NE
TOM
SF
TF
80
TFM
TOM
8
DORG
NOREI TF
TF
TO
NEGATE TOM
TF
TF
TF
8NF
8

INITI

SCANI

DORG
TFM
TFM
TFII
TFII
TFM
TFII
I
NDP
TF
TFII
ITII
511
ID
A"
All
I

U,"SCA

-~O&D,

-_I"', -OILn

0-)

0-)

•• 32.FORT
DIMERR'22.7671.1
ERR'24
0-)

DIMERII·22.0019,1
ERRD
.-3
DIMNUM.NEIIDI"
MOVESC.LOADse
MOVESA,LOADSA
MOVESA-5.LOAOSA-,
10RT."23
10GT.MOYOOA.l

EXITMR+6.·.20
MOVER
.-)

ERR.SUCESS
IORT ••• 23

10GT.EOUDDA.l

IORT,·.Zl
IOGT.eOM2.7
NEWOIM.OIMNUIII
OIMMER.OIIIIIII£R-I
SETMAP.··U
WRLAST.otU
MDNCAL.DUII'
MeS'B.OUMP
JDRT,·.23
10GT .0IlPOI", 7
.2257
ATN'll.INPUT+12
LOAORE
ATNR,"12
INPUT+49.7070 ••

OUP IOUTlNE

0-)

PHI.O.9.
HOL02.6.10
LOADRE
FREODA.O
FORT
MAPMA .lIt S'IZ
NOREl.IICS'22
seUCH.0.7
seueH-5.0
MOOOKI
'-3
IIIPUT+22.11t S.U
MAPEA • Me S'll
OUMP.Mes·n

LOAD AFTEII eO"PILATlON

PTES' .0 ••
INPUT+14,UIU12
HOLOCO'40.IEII06 ••
HOlDeo·).IICS')9
'.20. LOADIE
De22

NEGATE FILE PROTECTION

.-]

DOIG 0-) .
All
SeANlt6,75,.
I
SCANl
DORG 0-)
TCD' LOADFL

,,'
"

061••
06176
0611.
06100
06112
06124
0.n6
0 . . .4
06144
06lS.
06. .1
0 ••10
06892
06904
06.16
06924
069Z4
06')6
06941
06956
06956
0696.
06916
06976
06988
070110
07012
01024
010)6
0704.
07060
01061
07061
01080
01092
01104
07116
01121
07140
07152
01164
07176
071.8
01200
01212
02257
07224
072J6
07248
07260

••&6

11
II
U

,.

UUS
UUS

C\'UNDER SPEC.

''''I

OOUS
DOS. .
06ns
06lU
O. . J'
06144
06916

-67n
nUJ
JJ176
nln
000-0
unA
00000

0296J
02963
06.24
06ln
06lJ5
06824
066'12

000-1
OJI41
01100
000... 0
J5176
onoo
00000

06956
on07
05680

0,.11

49

16
49

anal
02524

0-079
00000

26
26
26
25
16
49
16
49

1)150
02865
02862
D2BS7
00565
00566
08630
08832

02963
13140
13050
U045
-7047
H204
'"1061
00000

44
16
49
16
49
26

U066
-1103
';J)272
-1127
J3Z97
U150
OJ665
-1164
-7176
13318
U31.
-7223
J336S

16
J2
11
16

05656
00565
00566
00565
00566
02963
03666
10738
11842
00796
n801
005"
00566
a
09051
01224
01606
11662

21
25
12
33
26
26
21
12
26
26
44
J2
49

02260
02251
02251
02258
12999
13005
U005
U005
UOl6
11106
05968
UOA2
07540

00425
00422
00000
00000
02262
02262
02265
000-1
02210
02270
11800
00000
00000

16
l4
47
15
)2
26
4]
16

11012
U052
07224
11429
U062
UI06
01540
11146
1l14l
10682

00-00
000-6
01200
00000
00000
17190
-0000
00000
00000

UUS
IJlIl
U181
11015
U617
UOJO
1299)
01644
06014

I1IU
17795
11801
00000
1l12)
nll7
11111
01224
00000

lJl40
1l)4)
lJJ40
11072
017)4
00565
00566
11171
09661

00-00
00-0)
-0000
000-4
Jl711
-7727
J)44S
00000
077)4

&6

n

11

.5

••
11
24
46

..
11

l4
47
44

1(.

21
11
11
44
25
16
49

U062
00000

J36..,
00000
-1260
OP070

PAGE
07272
07284
07296
01308
07320
07)32
01344
07356
07)68
01380
07)92
OH04
07416
07424
07424
OH36
07441
OH60
OH72
01414
01496
01508
01520'
07532
01540
01540
07552
07564
07516
07588
07600
07612
07624
07616
07644
07644
07656
01661
07610
01692
07104
07116
07721
07140
077'2
07764
07776
07711
01100
01112
07824
011J2
all.,
07144
01152
044100

u

49
26
26
25
U

26
26
26
44
49

16
16
16
16
16
16

'"

41
2A
16

n

D. . .'

ltST
27

11800

-63!JZ

12
U
II
II

onl4
11012
O.,.U
lJl40
nJ40
07610

-7716
000-1
1)072
OOO-J
000-)
00000

II

01114
01121

00-75
00000

...
...

a.

lllU
02 . .'
Uln
00000
011100

uus
uua
uu.
nu. un.

oDLOAD. -DIIPL. -DUET

WR2') .425
WR2."ZZ
WR2
WR2.1
HOLOtO+9.IIR2"
HOLoeO'15.IIR2+5
HOLoeO.15.IIIZ.1
HOLoeD'15".10
HOLoeD.26.WIIZ'"
MAPMA.IIR2'U
Ot2.MeS.22
FORT
NOREl

LOAose.0.9
DeFSCR'I.] ••
DCFsel.5.0.7
LOOP.4.10
SCANI-6.IIUDIN
1000T • . , n
IOGT.OOASell.l
RUOIN.O
INI·II.seANI'6
NIIO UK-I.1lA1 Nil
LCTEST,"12
LOO,",l.IO
UPSCA.LOO,"
LDADSe,J.10
DCFlell+s.).10
INln

0....
067••
0 • .,&6
0.711
067.0

o.nz

NE1I01M,1.10
NEIIOI M.MAXDI III
EXITFL
TREe+11.20.10
TREe' 11 , Tue .... 2100
TREe
F I NOON' 12

1620 liON I TOR
12HO
12260
12270
12280
12290
12300
12310
12320
12330
12340
12350
12360
12310
12380
12390
12400
IH10
12420
12430
12440
12450
12460
12470
12"80
11490
12500
12510
12520
125)0
12540
12550
12560
12510
12580
12590
12600
12610
12620
12630
12640
126S0
12660
12670
12680
12690
12700
12no
12120
12 no
12HO
12150
12760
12710
12710
12790
UIOO

DU' aMI'"

HOLOt,ZIR06
HOLD. ,IIIIIDI M
HOLOt,MOL06
HOL06-'
HOLDt-I,.IOO,1
OZIIEAD+"HOLD6-1
101lT,.,U
10GT,OlllUD,l
TIIEC'II, TRAU
o'ZJ,HOLD6
TIIEC'IO,O,IO
OIZO.TRACK
CAlLIIIY

In

1.20 MONI TOa I

.....
.....
.....

12810
12120
'DREPl I NOfPENDENT
12110
IlI .. O
DDRG .. 400
10aT, . . n
12150 UPlFl
12860
8
10PT ,!lEPta, 7
TRA
12810

au, aDUnNI

12190
12900
12910
12920
12930 REPL2
129.0

O.. ..aO
04400
04412
04424
04416
04448

DSC 1,1
I
DC
5,il400
J8400
3,021
DC
-28
DC
5,05100
-5800
DSC
I,'
DSC
22
DSA

00,65
00512
00000
00000
i

OU.TlUI(II
TF
FREAD.5.II".'
TO
uno
FREAD.IIA'
TFII FREAD.U. fRAtll
11840
13.,0 IIORUD tM
MA'.8.040,9
811K •••4
UII>O
SII
U170
IIA"',040,9
U880
TFM FREAD.',040,9
13890
8
"U
U900
OORG .-)
TF
11910
FREAD+.,MA'.'
MAP •• ,MAP ••
139Z0
S
TF
FIIRn •• ,FREAD••
13930
TFM 10RY,"n
t 39"0
IOGT,FREODA,7
U9~0
B
In60
TF" 10U,"ZI
1)970
IOPT,FWROOA,7
~
eM
"'.P+8.0,9
11980
.+4,.
11990
BE
FREAD.5,FREAD+'
1.. 000
A
A
FWRIT.5,FREAO.'
14010
1 .. 020
B
"ORERD
140)0
DORG . - )
14040
TON FWRODA,Z
1.. 050
TFN StRAtH,O,7
TOM FREDDA,O
14060
14070
ENTRY AND tORE ADDRESSES FROM FROM DIM MAP
TF
14080
M"NA ,N".11
TF
MAPEA,M"+18
14090
B
14100
"AIN82
OORG . - )
14110
MOOND1,RTEST
14120 Nol S. Bo
BTM NODISK,"12
14\30
TFM HOLOCD+3,o,a
14140
14150 NA(N82 SO
MODDKI,RlEST
TFM [ORT,."23
14160
IOGT,CON2,7
141 10
D
eM
HOLDCD+l,D,1
14180
•• 36
8E
14190
14200
DELETE FROM DIM FROM S.P.LIST
TF
OINNUM,HOLoeD+)
142\0
8fM SPLOEl,'+12
14220
14210 •
DELETE TO DIM FROM SP LIST
fF
DIMNUM,HOLDCD+7
14240
BfM SPLOEL,'+12
14250
fF
MOVESA,LOAOSA
\4260
14210
TO
MOVESA-'5,LOADSA-5
TF
14280
MOVESC,LOADse
TFM IORT,e+23
14290
IOCT,MOVDDA,7
14300
B
fFM eXJTMR+6, •• ZO
14310
14)20
MOVER
8
DORG '-3
14330
14140
8~F
·.ZO,AOK
14350
8
UPDIM
DORG .-3
14360

11.10
U120

1620 MONITOR I
14370
14380 NOSPAC TF
BT
14390
14400
fF
TF
14410
fD
14420
TFM
14430
\4440
B
14450
DDRG
TF
14460
TFM
14470
14480
B
BfM
14490
14500
eM
14510
BE
eM
1"520
BE
14530
TFM
14540
fFM
14550
14560
B
14570
B
DORG
14580
14590 U"OIM TFM
B
14600
fFM
14610
\4620
B
14630
146.. 0 SEAIIFP TF
BT
14650
TF
14660
14670
TO
TF
14680
TFM
14690
TF
14700
14110
SF
14720
SM
14110
8H
14140
8l
AM
14150
MM
14160
A
14110
TFM
14180
TFM
14HO
TFM
14800
14810
a
14820 fESTFP INF
14830
8
148.. 0
DORG
5M
14850
14860
Il
AM
14170
CM
14110
IU90
8l
AM
14900
TFM
14910
14920
I

DUP IlOUTlNE

MOYESA,MAP+II§

MOVESA-5,MAP

ext TMR+6, •• ZO
MOVER
.-3
DIMNU",NOSPAC+ll,ll
IORT.*+Z3
IDGT,COM2,7
SPlINS,"12
NOSPAC+ll,"OLOCo+]
ERR
HOlDCO+3,O.'

ERR
HOSPAC+ll,HOLDCD+3
IORT , •• 23

flL~

FWRIT+S,MA'+S
FIIRIT ,IOAP
.. OLD1,MAP.I
TESTFP+ll,TRACK
HOLD5,MAP+S
HOLO'S-I
HOLD5,ZO,aO

.-"
•• ,.1

HOLD5.10,10
HOL05,lOS,9
TESTFP+ll.99
FIIR n+I,02D.9
FIIRJT+13,TUCK
101lT, . . n
IOGT.FPOOA,7
'.20, TIIACK
CtIIFP

.-,

HOLD1,lolO
HOFLGS
TESTFP+ll,IO',.
TESTF'+l1, TIIAtIl+ZlOO
TESTFP
FWRJT+5,IO,10
TESTfP+ll.rIlAtK
TUff .... 24

16

06~4'

26

06560
06572
06514
06596
0660.
06620
06612
06640
0"40
06652
06664
01>676
06611
06700
06712
0672"
OU)6
06748
06760
06172
06780
06780
06792
0680"

25
16
14
47

U2"0
IU47
112"2

lIZ55

19111
066.. 0

IZ

I ....

16
49

UUD
06 ....

26

UUO

I ....

I ....

I .... '

26
16
49
16
"9
I"

11250
-6699
JI429

ZI
ZI
"9

Iun
0056'
00566
00565
005U
1988a
06780
13247
U212
0658 ..

IS
16
IS

U"21
131 .. 6
13 .. 29

OOOOZ
-0000
00000

Z6

IlI06
13111
0688..

19191
191 . .
00000

10482
09866
l2993
10682
00565
00566
12993
06968

13083
-6172
0-000
uoa3
-6919
H297
0-000
01200

11150
12090

12993
-6968

26
25
26
16
49
16
49

13150
12090
02862
02857
02865
00565
00566
08.30
08832

12997
-6992
13050
13045
13140
-1051
J3204
-7012
00000

44
49

1)7092
01312

13066
00000

"

06816
06828
06840
06848
06848
06860
06872
06884
06896
06908
0691.0
06932

16
49
14
46

06944

26

069~6

11

06968
069ao
06992
07004
07016
07028
07040
01052
07064
07072
07072
07084
07092

26

26
49
H

17
16
0

11

SO

Jl716
19115
1"'0
JJ7l6
00-..0
OUOO
00-40
00-.. 0
00000

12

-6723
JI.. ZI
00-00
01200
13250
13250
00000

991

PAGE

oDLOAO, oDIlEPL, -OElET

INSERT TO AND fROM DIMS INTO S.P.L1ST
NENOIM,HOLDeD+7,7
DIMMER,DIMMER-I
MOVESC ,M".8

IOGT,MOVDOA,7
NOSPAC
'-3
IORT.*+2J
IOGT,EOUODA,7
IORT,·.23
IOGT,COM2,7
CLEAR ANY
NEWDIM,HOLDtD+7,7
DIMMER.DIMMER-I

PAGE
06516

07092
01104
01116
01128
01140
07152
07164
07172
01112
07184
07196
07208
07220
07232
01244
07256
07268
07280
07292
01304
07312
onu
01324
07336
07348

02963
03666
02865
02862
02857
08630
08832

J2997
01665
19888
19885
19880
-1172
00000
onOL
-7207
H297

...,.

13\50
00565
00566
10606
01103
05656
12993
05656
on03
00565
00566
07092

16
49
16
49

00565
00566
00565
00566

-7335
J3272
-7359
JU91

26
27
2.
IS
26
16
26
32
l2

02963
03666
13232
13227
UU3
07517
13091
13090
1309l
0'''56
07521
13091
13091
07581
uns
112.. 0
Dons
00"6
0759.
07U •

J2991
03665
19115
19180
19188
J3776
198n
00000
OOOKO
01100
01200
OOOKO
00J05
00099
00-10
J)17.

26

21
26
26
25
16
49
26
16
49
17

14

.. 6

..
16
16
49

31

-7120
J2993
01200
0-000
01200
JZ993
-7303
J1Z04
00000

PROnCTlON IN TO AND FIIOM DIM
07360
07312
07384
07396
0740,
07"20
0102
01 ....4
01456
01468
07410
07 . . 2
07504
07516
0752.
on40
01512
07564
01571>
075 ••
07i96
07596
0160.
07620
0'612
07644
0T656

01...
07610

...
46

11
13

21
I.
I.
1.

.
4 ..
..9

12
46

11

l ..
47
11
16
49

I3I''s
01741
07517
07517
075"

nua

07517
075"

-7575
J)t13

un.

00000
000-1
OUOO
OOJOS
J51l.
OllOO
OooKO
JI17.

00000

882

1620 ImNITOR

DU' IOU".

076••
076. .
07700
oniZ

DORG . - )
TF
1~9~0 CLRFP
HOLD),IIA'.'
TF
1~9~0
FIlltIH~,IIA'+!
TO
Filii IT ,IIAP
1~'60
TFN F'Shl,U,10
1~970
BTN F',"U
I~"O
SUR".lI,HDLDCD+)
I~"O NOFLGS CN
15000
8E
lLLCLR
CM
HOLDCD>J,O,I
15010
15020
8E
ULCLR
TFN SEARFP+II,HDLDCD+J
15010
150~0
B
SURFP
15050
DORG
15060
REMOYE NAIIIS
I~010 AUCLR C
HOLDCD+3.HOLDCD+7
150BO
8E
"101
15090
eM
HOLDCD+J,O,I
15100
8E
e+4'
SF
15110
DELETE
TF
15120
DIM"UM.HOLDCO>3
BTil EQUIV.""
15130
15HO
SF
DElETE
TF
15150
01 N"UN, HOLOtD+?
6 TM EQUIV, . . 12
15160
TF
15110
I'lEWDI N,HOLDCO>7
15180
8T
01 MMER .D"INER-I
15190
8T1. SETMAP."12
1~200
HOLOtO+l,HOLDCD+7
e
15210
8E
VOILA
eM
HOLoeD+l,0.8
15220
15230
~E
VOILA
DELETE FROM DIM REFERENCES
111)2"0 •
TF
15250
"EWOI M,HOLOCD>J
15260
8T
DIMMER.OIMMER-I
15270
81'lR ·.20."AP
6
MONtAl
15280
15290
OORG , - ]
TDM MAP,.,
15100
15110
ose 1.' ,.
15320
15130
IH40
15150 VOILA
15160
15)10
15180
15390
llj400 RELO
15410
15420
154]0
15440
15450
15460
15470

D7"~

017"
077. .
077"
077"
onl4
07796
07101
011"

.-)

...

TF
TFM
8
BTM
8NF
fD

TFM
8
TFM
eM
8NE
SF
TO
TF
TF
TFM

'AGE

-DLOAD, -DRt'L, -DiLE'

1~'30

ci7116
07.21
01140
071!1Z
07164
07816
07111
01900
01912
01.24
07.36
01948
07960
07.12
01914
01996
08008

IORT , •• 23

10GT ,OMPOIM, 7
PHI,O,IO
HO~02,6,IO

LOADER
FORT
DUMP,MCS.23
P"AME ,MCS+35
HOlDCD+7,MCS+39
SCRACH.O,7

Z6

2!1
U

14
46
14
46

16
4.
24

46
14·
46

J2
26

17

)2
26

11
26

21
17
24
46
14
46

lun

191. .

ft71l6
"99J
071"
07171
07160

19• . ,
19. .0
OOOU
-77U
J2991
01200
0-000
DilDO
J2991
00000

Inn
07.36
\2993
07.00
U086
I3\SO
08606
\3086
\3150
08606
02963
03666
10138
12991
08112
12993
08112

"997
DilDO
0-000
01200
00000
12993
-1900
00000
12991
-7936
12997
03665
-7972
"997
01200
0-000
01200

02963
03666
01064
00796

12993
03665
19880
00000

UU2

uzn

1I6U
1I~6Z

onll

08020
08032
08044

26
21

080~6

49

08064
08064
01075

15

19810
1

00000

26

19199
00565
00532
11142
00196
17101
00565
00566
13082
11052
12234
U062
UU8
!lU9
\2997
11146

U130
-8111
-2568
-1124
13311
U3I8
-8171
J3365
000-0
000-6
01200
00000
17801
17813
17817
-0000

01076
010. .
08100
08112
08\24
0lU6
08141
08160
08172
08114
01196
08208
08220
08H2
08244
08256

MAP+I 9. ZER019
10RT,"23
IOPT,OMODA,7
WRLAST ... \2
MONCAl. DUMP
MCS+21oDUMP

"
"

45

16

4.
H
44
25
16
~9

16

14
47
12
25
26
26
16

n

993

1620 MO"ITOR
15480
15490
15500
15510
15520
15530
15540
15550
15560
15570
15580
15590
15600
15610
15620
15630
15640
15650
!5660
15670
15680
15690
15700
15710
15120
15730
15740
15750
15760
15770
15180
15190
15800
15810

TDM
80
8
OORG
NORE2 TF
TF
TFM
TFM
TFM
INIT2 TFM
TFM
TFM
8
SCAN2 NOP
TF
TFM
8TM
SM
8D
AM
AM
8
DDRG
UPSCAN AM
8
DORG
REL02 TF
TF
A
5M
TFM
8
OORG
TtO

DUP ROUTINE

15820
COMMON ROUTINES fOil -DLDAD AND -1IItf'L
15830
15840
OORG 1200
15150
15160 COMMFL TFM 101tT,"23
IOPT,COMM2,1
8
15810
TRA
15180

15.10

05C I, I
1
5,Ll480
OC
JI410
3,040
DC
-40
5,01600
Ot
-"00
OSC

15'40 COMM2

DSC

15890 COMMI
15900
15910
15920

1"!0

.

08268
OazlO
08292
08300
08]00

08311
OUI4
08U6
OUU
08360
01372
08314
08396
01408
01420
0802
08444
0lU6
01461
08410
084.2
0lS04
08512
08512
01524
01532
08532
08544
01556
01561
01510
01592
01600
04400

01200
01200
OUIZ
01224
072)6
07141

15
43
49

!l429
08]00
10612

00000
HIOO
00000

26
26

\2
0
II
II
49

!l020
11025
13140
1l34]
1])40
13072
01414
00565
00566
17771
09661
09865
09614
11072
08512
11140
11340
OU60

17790
177'!
00-00
00-03
-0000
000-4
J7178
-1407
J3445
00000
08414
-8532
-8456
000-1
13012
000-1
000-3
00000

II
49

08414
01401

00000

26
26
21
IZ

!l003
!lOOt
!l009
U009
llU5
05956

13044
13044
13140
000-1
OP070
00000

00565
00U2
00000
00000
I

-722)
-7263
00500
00000

16
16

16
16

16
16

49
41

26

16
17

16
49

16

49
J6
49

012U

5

07256

1

07261

13

D0-7~

,

I,'

07261

I,ZZ

OU63

2

COIIIII

07269

!I •

2Z
DU

PAGE

eDlOAO, eDllePL, eOELET

FREDOA.O
•• 20,MCS+22
MODOKI
e-3
HOlOtD+30,MtS+12
HOLDCD+35,MCS>17
LOADSe,O,.
OtFStR+I,3.9
DtFSCR+5,0,7
LOOP.It,10
SCAN2+6,READIN
IORT,.+23
10GT ,OOASCR, 7
REAOIN.O
8"R+ II, SCAN2.6
NOOI5K-I,RELD2
LeTEST,"12
LOOP,loIO
UPSCA",LOOP
LDlOSC.3,10
DCFSCR+5.1,10
1"IT2
e-]
SCA"2+6,75.9
S""2
.-]
HOLDCO+Il. THOU
HOLatD+! 9, THOU
HOLOtD.I9.LOlOSC
HOLOCD+!', 1,10
INPUT+42, 7070, 8
ISTO
e-]
REPLFL

984

SI))

IUO MOIIIlOA I
1~960

OSC

IH70
15'1'0 Eoun
15'190
16000

OOAG 1100
'FM
8
10Pr ,EOUlt 7
TR4

DU' ADUlI.

-OLDAD. -ORl"-, -OELn

2,22

DilDO
08100
01l1Z
08124
081)6
01141

DSC

16020

OSA

EOU2

08154

I, '

01154
OIiSS

)4

-1241
I

012119
07210

I, '

lou, .. n

16010 EOUI

PAGE

16

49
)6

49

005U
00512
00000
00000
2

-lin
-1141
00500
00000

22

16030

OSC

160'0 fOUl

OSC
101
I
5,11271
DC
JI218
3,020
DC
-20
DC
5,08'00
-8600
OSC
I, '

08170

OORG 8600

08600

16050
16060
16010
16080
16090
16100 •
16110 •
16120

5 X

-It 56

1

01156

EOUIVALE ..CE TABLE SUBAOUTI .. e
5,0
DC
-0000
TFN NEWDIM,0002,8
16130 EOUIV
DIMNER.OIMMER-I
BT
16140
BNF
SK .. AME .0ELEfE
16150
eN
16160
OIM~U",O.8,
lbllQ
A.. AME
BE
16180 LIMITS CM
OIMNUM.SU8LO.8
16190
a2RUO
8L
O"IMNUM,SU8HI.8
16200
CM
8M
82RUO
16210
fFM C.. INE'6,OIMNUM
16220
fFN C.. I .. EtIl. TRACK' 15
16230
16240 WITHIN fF"
HOlOIt,O.lO
16250
fF
01 SKF+.,. EQUD '"+5
01 SKF ,EQUOIM
16260
TO
TFM
16210
IORT,."2J
16180
8
IOGT.ODAKF,7
16200
AM
HOL04.1,10
Ib300 CNIN~ C
TFLC
16310
BE
eN
HOlDIt,50,lO
16320
16310
8H
WRT2
AM
16340
CNINE'II,16.10
16350
8
'''INE-12
16160
DORC '-3
16370 TFlG
aNf NOF.OELETE
TFN CNINEHI.9999,6
16380

t.

08161

5

01164

3

08169

5

0860~

08606
08618
08630

START DELEtE OPERATIO ..

WITHI .. SU8ROUTI .. E DIM LIMITS

...

086~2

OB654
08666
081>78
08690
08102
08114
08726
08718
08150
08762
08774
08186
08198
08810
08822
08U4
08846
08858
08810
08878
08878
08890

5

49

0-002
03665
13086
0-000
01200
0-010
090~4
01300
13150 0-039
0'1054 01100
08816 H150
J3191
08821
13151 000-0
13355 19885
13350 19880
00565 " -8797
00566 J3405
13157 000-1
00000 00000
08818 01200
13151 000'10
08'146 01100
000J6
08821
08198 00000

.4
16

08986
0882J

16

02963

21

03666
09678
13150
10418
13150

H

14
46
14
41
14
46
16
16
16
26
25
16
49
II
2~

46
I.
46

II

13086
09999

995

1620 MO .. ITOR I

16"'10

SM
fF
AM

16~20

8

16390
16000

CUP ROUTINE

C.. INEtIl.NI .. E12.6
CNINE+ll.20.10
CNINE-12
OORG --3
16"'30
16440 WRT2
8NF .+20,DElETE
16~~0
8
WRT
16460
OORG .-3
TFM DIMERR+22.7574,.
16470
MUl T2
16480
8
164QO
DORG ·-3
TF
CNINEtIl. PNAME ,6
16~00 NOF
AN
16~10
CNINE+l1.4,10
fF
16~20
tNINE+ll.OIMHU'''6
TFM
IORT, •• Z3
16BO wR T
IOPT,DDAKF,7
B
16~'0
165~0
8
HIT
16560
DORG .-3
16,)70 B2REAO TF
OISKFt5.EQUOIM+5"
AM
OISKF.5,8.10
16580
16590
TO
OISKF ,EOUDIM
16600 INI TSC TFM RECO+ II, TUCK
TFM CMPAR'II,'RACK'15
16610
TFM CLOSW+8,20,9
16620
fFM
IORT, e+21
16630
166~0

16650
16660 RECD
16610
16680
16690 CMPAR
16100
16110
16720
16110
16140

16750
16760

8
AM
BNR
8
DORC

C
8E
COl
BE

EXIT
.-3
Or"NUM,. ,
CLOSE

CMP"R.Il,TRACk.!9" ••

1,',·

16820

fF
SM
TF
AM
TFM
TFM
TF
TF

TRREC'6 ,CIII'''+ II
TRREt'6.IS,10
TRAEC+II,tl!PU·11
'RAfC'II,I,IO
CLOSIHU,ClOSU'
CLOSRtI 3oCLOSU'......
CLOSII",DISK,.,
CLDS. . 5.0ISKFU
CLOS"',20,10

11>830

TEST FOR LAST ENTRY
LOOK FOR OIM ..UM8U
TEST FOR END OF 20 SECTORS

INCRO
RECO.llo16.10
CMPAR+ll,16,lO
RECD
8
OORG .-3

osc

AM

AI!

TR
8NR

TF"

0.0. ,
DONE.CLOSU'+1.14"
IORT,"2J

08821
0882J
08821
08198

000-4
13203
OOOKO
00000

44

49

08966
0'1022

13086
00000

16
49

02501
09'162

OP514
00000

26
II
26
16

0882J
08821
0882J

13189
000-4
13150
-9045
J3405
00000

35

49
49

00565
00532
10~42

0905~

NOT WITHI .. LIMITS

AM
AM

OISKF+5,20.9
8
I .. ITSC
DORG .-3
TOM CLOSUP'2000" •

12
26
II
49

089~6

08946
08958
08966
08966
08918
08'186
08986
08998
0<>010
09022
0'1034
0'1046

e+23,11.10

e.20",

PAGE
08902
08914
08926
089]8

IOGT.ODAKF,7

16110 INCRD
16780
167'10
16800 CLOSE
16810

16840
16850
16160
16870
16180
16890
16900
16910 TUEC
16920
16930

-OLOAD, -OREPL • • 0ElET

CN1NE+l1,4,10

0'1054
0'1066
09018
09090
09102
09114
09126
09138
09150
09161
0917.
09182
09182
091n
0'1206
09218
092]0
09242
0'1254
09262
0'12.2
09214

13355
II 13355
13350
25
16 09113
16 0919)
16 13265
16 00565
.9 00566
II 09173
45 09182
4'1 " 10542
26

24
.6
14

19885
000-8
19880
Jl116
J3791
00-20

-9149
J340~

OOOJI
00000
00000
00000
01200
J517S
01200
000J6
000J6

49

13150
09282
0'11 '13
09262
09173
0'1193
0'1162

II
49

13355
0'1090

00-20
00000

IS

15116
I

QOOOO

26

0'1408
09401
09413
0'lH3
13210
I3JH
11262
1312'
13125
00000

09193
OOOJS
09193
000-1
Jl116
JS760
1)355

DO'.,

- '..4'

U

II
II

00000

09282
~OUTINE

TO CLOSE IN LIST

DILITE ENTRY
TIST 'OR END 0' TAILE

09282
09293
092n
09)06
09JII
0'1))0
0'1142
09354
0'lU6
09311
091.0
0'1"02
0.414
0.426

12
2.
II

',.6

26
26

11

.,.,
11

o.no

11355
OIlOKO
00000

15160

99'

1620 ..ONITOR

•

169~0

1"'9~0

1"'960
1"'910
1"'''80
16""0
11000
17010
11020
11010
11040
17050
11060
11010
11080
17090
17100
11\ 10
17120
11\ 30
111<0
11150
11160
11110
11180
17190
11200
11210
11220
112]0
17240
11250
11260
11270
11280
11290
IHOO
IH 10
11320
I7BO
11340
l11S0
11360
11310
11380
173QO
11400
11410

11420
1 71t 30
17440

17450
11460
11410
11480

OONE

NOTDK

••
••
D''''.
O'UI
0,.,0
0'"2

lou ... n

IO'T.tLMOOA.l
tLOSU'.' . . . . . .

TR
AM
'M
8
nORG
TF
S
SF
C
8H

CLOSUP.ClOSU,t2000
ClOSR>S.20.10
CLOSW+5.20.10
TRREt>U
.-1
HOlOS.tLOSII+!J ..
HOLDS .EQUDI"'5
HOLD5-2
HOLDS.EQUDIM>'
NOTOK

H ..

10RT., •• Z3

8
I)Q~G

IOPT.CLII00A.7
INITSC
.-1

~M

HOLOS,20,lO.

'AGE

-OLOAO. -DIIII'&.. -DILn

IOGT.CLODDA.7

TF ..
I
TO ..
OSC

B

OU, ROUTINI

I.
15

1.' ,.

0'''5

0"."

a ....
aUlD

RECORD "aliI( I S I H LAST TUCK

095U
0'5)0
0,,5)0
095.2
09')5.
0"56'"
09')11
095.0
09602
O""'I~

DO HOT IIRITE A FULL TRACK

HOL01.EQUOIM>'
HOL03.HOLOS
s
IF
CLOSW+8.HOL03
NOTOK-32
8
OORG .-3
OIMNUM.O •••
SKN'ME CM
BE
EXIT
TF
01 SKF'5 .EQUOI "+5
TO
OISKF.EQUOIM
,"M 01 SKF+e,20,9
IFM 01 SKF+l3. TRACIl
IFM COiAMES'll. TRlCK+ll
seA"N
rFM
[ORf,.+23
B
IOGr.OOAKF.l
aNR a+20,CHAMES+ll,11,
'10MULr
B
OORG ·-3
PNAJitE,,7,
C"AMES e
JIIIUl T
8E
C'IAME S+ll. TUCK> 1995.1
eM
a+32
8E
AM
CNAMES+ll.16,lO
S
eN~"E S-20
DORG '-3
AM
DISI(F+5.20.10
S
SeANN
OORG ·-3
•• 20,DElETE.,
MUl T
BNF
A
HOLOIM
OORG .-3
AM
(NA"'ES+l1,4,10
DIMNUM.CNAMES+II.ll
C
EXIT
BE
TFM o t MERR,+22. 7511,8
MULI2 Rcry
fF

HOT ,

DELETE O'ERATION

0"622
0.622
0"614
09646
09b58
09"'70
09U8
0.611
09690
09102
09714
09726
09738
097~0

09762
0911~

TEST FOR END OF "ILE
LOOK FOR MUtT I PL E NAME

IF MULTIPLE NAME

onlb
09798
09806
0980b
09818
09830
09842
09854
09866
09874
0'1814
0988b
098"4
09894
09906
09914
09914
09926
09918
09950
09962

)I

II
II

••
26

zz

12
24
.6

"

OOSA6
00565
005U
17760
I

-,.n

un6
U)n
1lZ62
o •• t •

15776
000110
000110
00000

U09l
nO'1
130'"
110"1
09622
00~65

4.
4.

00512
090"0

12

130"1
13153
11I51
1.32b5
09590

2b
22
2b
49

14

JUl •

JU.7
00000

UZ62

191.,
00000
198 . .
01100
-.6U
J3191
00000
OOOKO

Inn

\3091
11I53
00000
0-000
01200
19815
19180
00-20
J3776
J1717

~9

\3150
10542
13355
13350
13358
13363
09811
00565
00S66
09806
10018

24
4b
14
4b
11
49

\3189
09894
09811
09814
09817
09186

-0000
0\200
J5711
01200
000J6
00000

11
4"

13355
09150

OOOKO
00000

4~

49

099\4
10510

\3086
00000

11
24
46
16
34

09817
13150
10542
02507
00000

000-4
0981P
0\200
OP511
00102

46

26
25
16
16
lb
Ib
49
45

).

-9785
H405
0981P
00000

997

1620 MONITOR
11490
11500
11510
11520

WATV
WAry
TF
8
OORG
NOMUL T SNF
a
OORG
CM
8L
tM

11530
11540
11550
11560
11S10
11580
11590
BH
11600
TFM
11610
TFM
11620
17630
8
11640
OORG
11650 OllMIT TFM
TFM
11660
CM
11610
8E
11680
11690
'M
17700
CM
177\0
8NE
17720
17130
8
OORG
l1HO
TF
17150 SECT
A
11160
17710
S
SF
17180
C
17790
L7800
BL
TFM
17110
8
17120
DORG
17830
eM
I T840
BNE
11850
11160
A"
Tf
11870
17 . . 0 ENTOIl Tf
AM
11890
TF
\1900
AM
11910
1FM
11920
A.
11930
TIIM
11"'"0
OSC
11'f50

,.

17960

I1no

11 . . 0
119.0
11000 AHAME
18010
11020
18010

T' ..

,•

OUP ROUT.\NE

a+20. DELETE

EXIT
'-3
OIJIINUM.SU8l0.a.

TEST DIM HUMBER LIM ITS

OllMIT
DIMNUM,SU8HI,8

OllM"
CNINE+6.NINEI2

CNJNE+ll,TRACK+ll
WI THIN
'-3
CNT,1,lO,
a.23, TRACK+95
CNAME 5'11. TRACK'"
SECT

wIll ENTRY EXCEEO MAX SC

*-13,100.9
CNT.t.IO
eNT .20,10
a-60

EHTOK
.-)

HOLDS .DISKF.5
HOLO~ .CNT
HOL05.EQUDIM'5
HOLD5-2
HOLO~.EQUOIM+'

•• 32
OIMERR'Z2. u n ••
NUL T2

.-3
CNAME5+1l. TUCK+l995
EHTOIl
DISKf'I.I.IO
TIUCIl'201l.IUOU
CNA .. es.II.'HA"I •••
CNA .. es'Il.4.10
tNAMES.II.01.NU....
CNA"!S'1l.2.10
CNAMU>Il.0.610
CHA .. U>U.IO.IO
tNAME5tll .. 6
~.'

ADD A NEil EHTIIY

,.

10RT . . . n
I O",OOAII' , 1
EXIT

DORe; . - ]
PHAME.IUOU ..
C

BE

EXIT

(I

51l"A"I+24

001". e-]

PAGE

.OLOAD • • OREPL • • OELET

DIMERR
P"AME-IO
PNAME .lEROI2
EXIT
'-3

""0 01" NU"IIII TO II DllIlIO

09914
09986
0"998
10010
10018
10018
10010
10011
100)8
10050
10062
100H
10086
10098
10110
10118
10111
10130
10142
10154
10166
10171
10190
t0202
102\.
10222
10222
10214
10246
10258
10210
10212
10294
10]06
10]\4
10]\4
10326
10311
10)50
10)62
10J74
101. .
10391
10410
10422
104]4
10445
10446
10411
104'0
10411
10UI
10••0
10501
L0510

1"
19
26
49

02415
11179
13189
10542

00100
00100
13123
00000

44

10018
10542

13016
00000

16
16
49

I3UO
10118
13150
10118
08816
oea21
DUll

0-010
01300
0-0)9
01100
J1203

Ib
16
14
U
\I
\I
14
41
4"

13094
10151
09811
10222
10153
\3094
11094
10142
103'2

000-1
HI1I
H'1I
01200
OOJOO
000-1
OOOKO
0\200
00000

26

13091 11155
13091
110"4
19 . . 5
13091
13089 00000
11091 .19'"
10314 01100
02507 OP51)
09962 00000

4"
14
47
14
4f>

21
22
12
24
47

u.

49

14
U

U
Z6
Z6
U
Z6

11

"

U
15

1.
4'
4'
24
U

••

0 . . 17
10162
11151
15111
0911'
09117
09'"
09111
0911P
09817
0981P
I

37

JlUl

00000

J'S771
01200
000-1

13123
131 . .
000-4
\1150
000-2
000-0
OOOJO
00000

00565
00n2
10542

JOU.
J)40'
00000

\1t19
10542
0.102

OUOO
00000

Uln

998

SU

. . 20 MOIIII TOR 1
1I0~0

1'0'0
11060
11010
18010
11090
18100
11110
18120
18130

HOlDIM AM
TF
8
OORG
CF
HIT
8
OORG
TCO

....

11140
18150 ATNR
18160
181 TO
18180
ISI90
IS200
18210
18220
18230
ISHO
18250
18260
IS210
18280
18290
IS300 R
18301
IS302
1830]

IS304
18110
18320
18330
18HO
18350
18]60
18170
18380

18390
18400
18410
18420
18430
18440
18450 R2
IS460
Ih70
18"'80

18490
18500
18510
18520
18530

DU' ROUTIHI

-DLOAD. -DRfPL. -OEUT

CNAMES·ll.~.IO

'AGE
10'10
10522
10514
10542
10542
lOSS.
10562
08100

DIMHUM.CHAMES·Il.U
LIMITS
'-3
OHEfE
EQUIY-I".
'-3
EQUFL

COMMOIII
OORG 8600
5,0
DC
-0000
CF
FORT
SF
INPUTe"
eM
INPUT+96,4J.10.
DETERMINE III'UT DEVICE
8NE -.32
TFM PHI,05,10
s
R
OORG '-3
CM
INPUT+96,51,IO
8NE -+32
TFM PHI,03010
R
S
OORG .-3
CM
INPUT+96,44,10
ERRO-12
SHE
TFM PHI,O.IO
SF
INPUT+91
TEST FOR SUIROUTINES
SF
INPUT+117".
eM
INPUT+11S,OO,IO
8E
-+24
SF
STFLAG
TEST FOR RELOCATION
eM
I NPUT+98.54.10.
SNE •• 32
8RANCH ON DIGIT TO RELOCATE
TnM RTEST,l"
K
R2
1l0RG 0-3
TOM RTeST ,0
CM
INPUT+98,62,lO
8NE *·)2
TOM NTEST,I
8
R2
OORG 0-]
TOM NTEST,Q
CM
INPUT+9S,49,lO
ERRO-12
8~E
SF
INPUH'I9
CM
I NPUT+ 100,57,10.
TEST FOR FILE PROTECTION
8NE e+32
lOM PTEST.l.,
BRANCH ON DI Gil TO PROTECT
8
-.20
DORG '-3
TOM PrEST ,0
TFM .+ltl,INPUTtl12,.
CARD FROM
TFM A TN+6 ,HOlOeD

11
26

••
])

49

088~8

08810
08882
OS894
08906
08914
08914
08926
OS'I3S
08'150
08962
08'1H
08986
089'18
09006
09006
09018
09030

13016
016011

00000
00000

uno

JI

,

08600
01604
08606
08611
08no
08642
08654
OS666
08614
08614
08686
08698
08710
08718
08718
08110
08742
08n4
08166
08178
081'10
08802
08814
08826
0883B
OBno
0885S

01666

000-4
0.11'
00000

0 . . 17

JJ
47

0167~

16
49

13012
0175.

00000
00000
DOOM 1
01200
000-5
00000

14
41
16

..

IH09
08111
13012
0.1754

OOONl
01200
000-3
00000

I'


......,

...

.
II
I"

11

.. 9
14
4•

41
II

.,
II

41
II
I"

41

4'1
4'1
2'
Il
16
15
I.
I.
16
16
15
I"
16
I.
I.
16

.. 9
26
11
14
41
44
24
U

11
11
II
U
U

11>
49
11
11
49

'AGE
09.,4
0'''0

09....
00000
00000

UIOI
1)101
0.726
09. . 1
09"0

000-1
000-'
01200
000-1
00000

0966J
0"'4
0 • .,4
09661
09n4
09661
09.,4
UIOI
UIOI
09716
101".

.9999
01400
DilDO
000-1
09. . J
000-1
09.6J
000-1
00005
DilDO
00000

0961l
1)4"3
U4 .. 3
U14.
13429
UI40
U080
131.. 3
U3 .. 0
un5
U4 .. \
U072
10117
10105
005.'
005.6
09. . 1
0'1.14
U082
1016.
10142
11080
10378
13080
10105
1011l
\J072
10246
0051>5
00532
\J140
1))40
0'1'114

00000
UO.2
000-1
-0000
00000
00-00
-0001
00-03
-0000
00000
J7778
000-4
J7857
JU53
J0045
Jl437
U.41
J0070
000-5
DilDO
17853
11857
01200
000-1
00-75
00-15
000-1
13012
J02\J
H .. 45
000-3
000-3
00000

09""

.. 0·

, II

1"20 "ONITOR
19660 INeRE
1'1610
D
19680
DORG
1'1690 ALPHAS fF"

'"

19700

19710
19120
197)0
1'1140
19750
19760
19170
I97BO
197'10
19800
1'1810
\9820
1'18)0

OUP ROUTINE

REAOC
.-3
SCREM,04,9,
COMPUTE SECTORS REMAINING
S
SCRE",lOOP
80
•• 20, seRE'"
8
MAINB
OORG ·-3
NOP SCAEM,1.10. eHANGE TO SUITRICT FOR NEW DUMP
TF
DCFseR'8, seRE"
TF" IOAT, •• 21
lopr.00UCR.7
8
lOAOSC, seREM
MAI1I8 8
1I00ISK-I .. 6
DORG ·-3
SEQ ERR ReTY
'0" READJN+305 •••
ose 1,' I .

\9840
19B50
19B60
19870
19880
19B'I0
19900
199\0 CCO

,

WATY
TF
WNTY
H
8
OORG

ERRSEQ
READIN.304.COMPHI.II
REAOINtlOO

PAGE

'OlOAO. 'OIlEPL • • OELET

READ.07S,'

10146
10258
10266
10266
10271
10290
10302
10llO
lOUD
10)22
1033..
10341>
10158
10370
10318
1037.
10390
10..01

10402
10"14
10421>
10431
10.. 50
10U8

READe
.-3
SYSTEM LOADER
2.02

10..51

19920

CC02

10.....

199)0

OSC

I.'

1046..
10... 5

19940 eC02

ose 1.1
I
De
5,00798
-0798
DC
302
-02
DSA INPUT-l

19960
19970

13075
00000

41
21>
\6
49
21
49

130n
1))43
00565
00532
UI40
0986N

000-1
1)015
J0357
JJ445
U075
00000

]4
IS

00000
180n
1

00102
00000

)9
26
3'
41
.9

U857
18082
18078
00000
10022

00100
1011P
00100
00000
00000

non

2

J04 . .
I

10479

TON
TFM
I
CM
IE
TF
8
DOAG
TDN
DSC

SYSCAL ,1.11
IOU.··U
IOPT.CCO.7
""U.0.7
•• 12
4Z0.MA'U

1,' ,-

1041Z
10"'"
1050.
10511
lOUD
10M'
10'M
1056'
IOSl2
10nJ

TO

421.'HI

10574

20090

00-04

J36U
I

10.. "
lOUD

19990 MOD..Ol
20000
20010
20010
20030
20040
20050
2001>0
20070
20080

"16 •••

13015
13075
10310
10310

10022

1047..

I.'

.

II>
22
43
4'1

41

10466

OSC

.-]

00-15
00000

10411

19980

·.20

n"41

NO.... OIS.

O~C

02
DSA

19950

II
4'1

nt

IS

.

00.. 75
00Sl5
00512
UUI
10SlZ
00420
10514

OOOOJ
J0517
J0451
-DODO
OUOO
IJlIl
00000

15

00.. 16
1

00000

II

00411

11011

16
49
'4

...
26

1002

I
S~')

lItzlr I'OlU '01 1
20100
20110
ZOUO
ZOUO
20140
20150
20160 SOL
20170

SF
TF
SF
CF
TFI!
I

DSC
2K
OS.

DU'IDUfI ..

PAGE

_DLON), -OI"L. -DILl'

~ZI

,.
JZ

00"1
00414

419
.,9
lou ••• n
IOGT.SOL.7
2.-22

10'"
10'"
10610
10622
10614
10"6
106,.

SOll

10664

,

J066'
1

4J~.".'I!.

12
U
lit
49

00~19
00~29

00,.,
00"6
2

20UO

DSC

1 ••

10664
1066'

20190 SOll

ose

1.1

1066'

20200

OSA

1971)

10671

,

20210

10671
10674

J9183
3

20220

10610

1

DC
3.3
-03
6,0'
DC
-0000'
20230 MOOOKI TOM SYSC.L.l.U
20240
TF" IOllT.·.U
IOPT.CCD.7
20250
B
TF
20260
DLDCF.5.SCIIACH
20210
TO
DLDtF.SCUCH-'
SF
DLntF.l
20280
20290
tF
DLDtF
TO .. 421.0.11
20300
CM
M.P .... O.T
20no
e+32
20120
8E
DLD.U .... P...
TF
20310
•• 20
20340
8
OORG 0-3
20HO
TOM OLD+l",
20160
10no
OSC 1,',20380
20390
20400 OLD
20HO

TFM
B

DSC
02
OSA

.. APR .. , ••
Cf
Sf
HOLDCD.n
HOLDCD+40.lEIt06
C
SNE -+24
TFM HOLOCD+40.S9.,9
SF
HOLDCD.31
Tf
HILI".HOLOtD.~O
TF
LOllM.HOlDeD.n
C
NOSU59.HILI ..
BL
EIIRCYl
NOSA+59.LOLl ..
C
SL
ORCn
CF
HILI"-2
CF
LOLI"-2
SF
HOLDCO.]6
MM
HOLDtO.n.200 ••
SF
95
TF
LISTES.99
CF
. HOLDCO.35
TO

.+41.HDLOCD+ J5 ••

e+35,e+35
•• 23,1,10
LlSTES-5.0.10

""

•

JOl5T
JOI'I

lOIn

10179
10'1~

D1Jp llOUTlNE

.OLO.O • • OIIEPL • • 0nET

NOT I ....OV •• U

SET UP DltIVE CODE

DETEII .. INE .DOIIns StHE .. E

0.2~. lISTES-~

NINESt.~O,(IISC;.

.-It.

.-]

OI"URoU. 727~.1
EIIIID
.-]
tNTCYL.0.l0
•• S'
SCDLO.NIIIUC
IIIIIUC.9200 ••
LGE+2S.0010
IILCOIIE+lO, • .,O

,.110
·-S
LI STEIl, IIIIIUC
LGE

PAGE

U

10185

•• 25.12.10
LI S TE S-4. HOl06-" 11
LISTES.IOOOO.T
CNTeYL.o.IO
IIINESC-l
IIINESC.9100.1
S.. ALL
IIINESt.200 ••
tNTtYL .1.10

5

1003

JORf, •• 2J

IOGT.DSRUD.7.
HOlD6-1.U.DIN.71
0.22.LlSTE$-5
HOl06-1.0.'

5

10176

I.'

A

rF ..
TO
AM
20750
80
20760
TF ..
20770
TO
20180
20790
NOP
TF
20100
20110
TF"
20820
CF
CM
20830
201'0
IN"
SM
20150
A..
20160
20870
8
OOllG
201'0
Z0190 EllIICYL TF ..
20900
8
OOllG
20910
10920 SMALL C"
10910
IE
TF
20940
20950
20960
'FIll
TF ..
20970
20910
DOIIG
20990
21000 RGE
t
INL
21010

00565
00566
2

101"
10870

I ••

20480 NOSA
20490
20500
20510
20520
20530
20540
20550
20560
20570
20580
20590
20600
20610
20620
20630

B

16
49

I'll
~6

26
49

5

1620 MONITOR I

207~0

00000

15

J0171
-0000
I

DSC

AM
TDM
TFM

10865
I

JZ

n

1086~

20470

20650
20660
20670
20680
20690
20700
20710
20720
20no

15

25

10164

DSC 1.0
0
DC
5.0
-0000
DC
3.999
1199
5.99999
DC
119999

206~0

OOOOJ
JOn7
J04"
13146
1]141
00000
00000
0000-0000
01200
13106
00000

DLDCF.O

20430 DlOtF

20450

10754
10766
10171
10790
10102
lOll'll
10122
10122
lOin

X

6

10834
10146
101"

OSt

20460

101~2

X

00475
00565
005JZ
10176
10871
lOin
10871
00428
Ul06
10lU
10869
10834

15
16
49
26

10RT ••• 23
10GT.OlO.T
2.02

20420

20440

10612
10694
10706
107U
10no

4Z

00000
Ul06
00000
00000
Jot'7
Jot,.

onEIl .. ' NE NUIII.fR OF CYLINDERS

101 . .
10191
10910
10922
10934
10946
10958
10970
10912

33
32
24
41

16
32
26
26
2~

1099~

41

11006
110U
110]0
UO~2

24
4T
13
13

1105~

12

11066
11078
11090
11102
llU6
IU26
11111
11150
1116Z

13

12
26
U
25
~1

11
'5
16

1111~

~9

11116
11191
11210
11222
lUn
11246
11251
UZlO
1121l

16
25
11
4S
16
25

1129~

J]

11306
lUll
11310
UJ4Z

41
12

lU!I~

11M2
11M2

Iun
IUIZ

lUll
IU96
11406
1I4l1
11610
lI . .Z
114M'
11462
11462
11476

"

26
16
14

11
69

.
.

16
6'

Z6

16
16

13063
13025
13030
10946
13030
13028
130TO
13091
10945
11362
10945
11]62
13068
13096
11026
13027
00095
02190
13025
11161
11161
U161
02185
00565
00566

00000
00000
13117
01200
00199
00000
13030
13027
13070
01300
13091
01300
00000
00000
00000
OOItOO
00000
00099
00000
13025
11161
000-1
000-0
J1115
JZ210

1117~

J7'~9

U220
11174
11246
11259
02116
02790
130ll
11296
UO]6
nOli
lU.Z
110ll
U296
lU06

02785
00-00
02716
000J2
1317..
JOOOO
13140
000-0
00000
011200
01100
0-200
000-1
00000

0"01
OU24

0"74
00000

lU96
UUO
un4
nOli

000-0
01200
1I0S1
OIIZ00
000-0
J166Z
00000

Ill. .

'6
69

06271
01U2

Z6

027'~

11'"

nOli
onoo

1004

1610
ZlOZO
ZIOIO
21040
210S0
21060
Zl070
ZlOIO
21090
21100
21110
21120
21130
21140
21150
21160
21170 CHll
21180
21190
21200
21210
21220
21230
2L240
2L250
21260
21270
2L280 LGE
2L290
21300
2LlIO
21320
2LBO
21340
21)50
21360
21370
21180
21390
2L400
2L410
2L420
2L430
2L"40
21"50
2L460
2L470
2L"80
2L490
2L500
2L510
2L520
21530
2L540
21550
215100
21570

CM

IE
T'M
CII
BE
T'"

n

BIIII
AM
C

BH

_n.

a

21700
2L 110

.ILGAD. • • •" .

..IT

IIINESC"ZOO.8
GETII.GUa-a
tHIL.L1STEa-1
LOLlII.aoo ••
LOlllI-Z.HllIN-2
Eilil
HOLOCOtn.o ••
HOLOCDtI5.LOLIN-Z
NOSA

.. s..

11....

11sn
111M

..u

11 lSI
uno
USIZ
111.'
1160.
1 . ."
11.10
U"2
11.,0
U.50
U.U
11 • .,.
11 . .6
11 . . .
U710
11722
Un4
1114.
1115.
117. .
11166
U"I
U190
11802
III"
1182.
11134
llU4
Ill. .
11'"
11110
U.IZ
U8 . .
11.06
U911
11930
1I.4Z
11.54
U'"
11978
U990
12002
12014
120Z6
12038
12050
lZ062
12074
12016
lZ091

T'II
TD
B
001110 . - )
CM
lISTER-3'''.1011
8NE RGE
TO
oH7,HILIII-Z
In,.. Hlllll-2,o
C
lISTER.HILlII
TOM HILlM-2.0
BilE RGE
C
LOLlM-2,HllIII-2
8NE RGE
8
ERR
OORG 0-3
AM
•• 23.1.10
CM
CNTCn,O,lO
BH
RGE.96
BL
•• 32
Tr
IIINESC,SCOLO
8
RGE+'6
OORG '-3
SF
NINESC-2
8T
GETL.GETl-I
CM
L ISTER-]. 7.IOU
BNE HERE
SF
II STER-L
14M
LI STEII.200.9
TF
LOAOSA •••
TO
LOAOSA-5,PACK
CF
LOAOSA-5
TO
oH7,LOAOSA-5
A
-+35,-+35
AM
e.23.1,10
TOM LOAOSA-5,O,10
TFM JO~T, •• 2)
6
IOGT.D3READ.l
TFM HOLDIo-I,READIII+ll
TO
0+22. LOAOSA-5
AM
HOL06-1,0.9
80
0+2",LOAOSA-4
TFM ·.25.12.10
TO
lOADSA-4.HDL06-I,11
NOP LOADSA,10000.1
Cf
LISTER-I

8
DnRG
TF
8T

SCRKO
+-3
NEI/DIII,lISTER
OIIlMER,DIIIIIER-I
A
MAPtS,MAPtl
fF
lDADSA.MAPo'
TO
lDADSA-5,IIAP
A
LDADSA.NINESC
LOAOSA,LOADSt
S
SCROK
6
DDRG 0-3
DSC 2,22
22
OSA D4RUD
DSC

,

'AGE

,.
... .'.1
510 a.

1620 MONITOR I
2L580
2L590
2L600 HERE
2L6LO
211020
2L630
2L640
2L650 SCRKO
21660
2LIo10
21680
2L690 D3REAO

DU' allln . . .

LlSfElI-I.".ao..
"60
LGhZI.o.ao
CNTtn.o.ao

L,'

DUP 1l0UTlNE

Z2020

ATNR,.+12

INPUT+49.7070 ••
NR2+J.425

IIR2,42Z
IIR2
IIR2+1
HOLDCD"],1I1I2+S
HDLDCD+19,WIIl+5
HDL OC D+ 1. ,1I1Il+1
HOLOCD+19,I.IO
HOLOCDtIO,WIIl+n
IITEST,O
ISTe-24.IICS'ZZ
fORT
PTEST .0
HDLDCO+7.lit St"
'NAIIE .lIcs+n
DUIIP.1It S+ 2J
HDLDCOtJ5.IItS+ll
HDLDCOtl.O ••
ISTo
'-1
CDllIIFL

001110· 10100

U
Z.

no..
nOt.

1.
ZI

OUSt
n027
non
lOll •
OZ761
1"'2
U721
n061
02164
13061
U462
nO.6
UU2
0·5651.

OOO-P
01200
nOl>l
00000
nO.,o
00000
01200
nO.1
01200
00000

11.,19
13296
U558
11834
n038
U551

000-1
000-0
01100
01300
13134
00000

nO]6
02996
02761
UUI
02763
02764
130S0
n045
13045
U9I9
U9I9
11919
13045
00565
005610
13n4
12041
UIl4
12074
12087
13046
n050
02163

00000
02995
OOO-P
01200
00000
OOKOO
00099
02712
00000
n045
ll919
000-1
000-0
J2013
J2210
J1149
13045
00-00
130410
000J2
13 11M
JOOOO
00000

a•

n

,."

....,
14

25
IS

n

..,
15

....,
U

11
14
4'

..,
2.
4.
J2
21

"

47
12
n
Z6
25
)]

25
21
11
15
16
49

110
25
II

4]
16
25
41

3]

lUI.

49

12171

00000

26
21
21
26
25
21
22

02963
0]666
19185
13050
nO.5
n050
13050
010552

021104
0]665
19888
19815
19880
1303.
n140
00000

"

••

.(

111115
.5

, x

12216

21760

I,'

nz. .
UIII
non
OZI1Z
11650

..

lZ216
12217

122]1
122ll

ATN+I It I NPUha..
LOADER

a'

000-'
01200
000-0
000-0
01200
011200
02171
02761
OOJOO
130. .
01100
00-00
no . .
00000

PAGE
lZlIO
12118
12111
12130
lZl42
12154
12166
12118
12190
12202
12210
12210

122]1

OSC

U76a
aUlSl

+DLOAD, 'OREPL, +OELET

21720 O.READ OSC 1,1
1
DC
5,04800
2L730
-4800
21740
DC
302
-02
21750
OSA READIN

21710 LOADER TFM
21780
SF
6TII
217'0
TFM
21100
21110
A
TO
21120
SF
21830
2L840
CF
21150
T'
TF
21860
A
21170
SM
21110
21190
T'
TOM
21900
allF
21910
S,
21.20
TOM
21']0
21940
Tf
TF
21950
TD
Z1960
TF
21970
TFII
ZI9IO
8
21990
DOIIG
ZZOOO
rco
Z2010

a.

J2218
I

12211
5

12223
122Z6

122J4
122••
UZSI
12270
UZIl
1l2...
12_
lUll
12JlO
12J4Z
1235.
In••
Inll
123.0
U40Z
1241..
124210
12411
12410
U"Z
12414
12. . .
12. . .
IlI06
07.100
aOloo

5 x
J1778
I
16
32
11
16
ZI
25
32
])

26

210

21
IZ
Z6

"

.. 4
IZ

"

Z6
210
ZI
Z6

...
1.

09053
1223.
08606
n662
OZ260
02257
02251
02258
13003
13009
13009
IJ009
n020
nOll
onn
n06Z
nOI5
lZ99.,
nil.
Inll
non
aZ99)

"."

J]6]7
00000
JZ270
OP070
00425
00422
00000
00000
0226Z
OZ2Io2
02265
000-1
02210
00000
17100
00000
00000
nln
nl13
niDI
11795
0-000
00000

lOot

"......

St

1610 IIOIUTOR I
nOlo COIIH
21040
nOlo

nil
I
TRA

n060 COM'LI OSC
U
OSA
ZlOTO
ZIOIO

OSC

au, ROUT ...

_OAO.

...1"-.

lou.·.n

22160
22110
22110
22190
22200
22210
22220
22HO

22250
22260
22270
22280
22290
22]00
22310
22320
22121
22322
22]]0
22140
22150
22]60
12370
22380
22190
22400
22410
22420
224]0
224~O

22450
22460

,.

..••

I.U

10100
10112
1012'
101M
10141

COII'\.2

101"

I ••

10154
101"

J015.
1

10156
10161

,

101••

]

10169

S

IO".COMPLI.T

ZZO'O COMHZ OU.' 1.1
I
Ot;
s.lIno
ZlI00
JUZO
].02.
22110
DC
-29
5.10600
22120
DC
J0600
221]0
Dse I ••
Z21.0
22150

PAGE

• .....If

DORG 10600
DC
5.0
-0000
HDLO].0.9
SPLI~S TFM
eM
1I STER-].a.IOI1
8PiE LOOK
A
HDLO].LUTU
8T
REMOYE.REMOYE-l
TF
1I STET. 0 I MNUII
BT
IPiSERT.1 NSERT-I
HOLD] ... OYESC
LOOK
C
8E
SPlI"S-I .. 6
8T
GHL,GETL-I
8
SPLl"S+12
sn .. AP TF
.. "+5.LDADSA ••
TO
.. ".LO.. OS ..-5
tF
.... P
SF
MAP+l
TF
MAP+'.LOADSC
'+24.
STFLAG
8"F
MAP .. A
SF
TF
MAP+I J, MAPII'
TF
MAP+\8 ... APEA
TD
MAP+I 9.MAPRII
TF
DIM"U ... "EIIDIM
Tf .. IORT •• +2]
8
10PT • DMDOA. 1
TF .. 10RT .'+23
8
IOGT.MtSl.7
TF
"CS+39.DIMNUM
TF .. IDRT."U
8
IOPT.MCSI.1
•
I"SERr DIMPiUM IPi SPLIST
BTM SPlIPis.o+12
C
PNAME .ZER012 ••

1.

00•• '
oon,
00000
00000
2

U

Jon.
JOI41
00500
00000

S X

10170
10600
1060.
10606
10618
106]0
10642
1065.
10666
10678
10690
10102
10114
10116
IDna
10750
10762
10714
10186
10798
10810
10822
10834
10846
10es8
10810
10882
10894
10906
10911
109]0
10942

SET UP Dill ENTRY

liAS PROGRAII

~AIIE

10954
10966

GIYEN

5
16
14
47
21
21
26
27
24
46
Z1
49
26
25
]1

J2
26
44
]2

26
26
25
26
16
49
16
49

26
\6
49

11
24

1]15]
02761
10690
1]15]
03084
02194
0]414
13153
1060"
02996
10618
19885
19880
19880
19881
19888
10822
13106
1989]
19898
19899
13150
00565
00532
00565
00566
11811
00565
00532

00-00
OOO-Q
01200
02764
o]on
1]150
0]41]
02865
01200
02995
00000
1]050
1]045
00000
00000
1]140
13499
00000
13106
13111
13063
0296]
JOe9]
-2568
J0917
J3476
13150
J095]
J]416

10606
13189

J0966
1]123

111117

1620 IIDNI TDR
22470
22490
22500
22510
22520
22530
22540
22550
22560
22570
22580
22590
22600
22610
22620
22630
22640
22no
22660
22670
22680
22490
22100
22710
22720
22730
22140
22750
22760
22770
22180
22790
22800
22810
22820
22130
22140
21850
22160
22170
22"0
221.0
22.00
22910
22920
22no
22940
22910
22960
22970
22 . .0
!2990
UOOO
21010
nozo
nOlo

8E
BTM
NONA" TF
TO
SF
CF
TF
TO
TFM
fFM
C
BL
TF
TF
TFM
Lsa
8
TFM
8
10
ENOWRT 8
DORG
TFM
TF
TF
TO
BTM
B
DORG
ALTER TF
S
TF
TF
TF"
B
TFM
I
A
A

F'

C
8L
TF
Tf
8
SF
ITII
Tf
SF
T'"
SM
IH
8Z
All
11M
A
TFII
TFM

"DNAM
EQUIV ••• IZ"
FREAO+5. SCRACH ..
FREAD.seRACH-5
FREAD+I
FREAD
FWRI H5.LOADSA
FIIR IT .LOAOSA-5
FREAO+U.fAREA
FIIRIT+13.fARU
.. AX SC .L OAOSC
ALTER
FREAO+I.LOADSC
FWRI HI.LOADSC
IOtU,·.Z3
IOGT.FREOO... 7
10,,"T ••• 21
IOPT.fWRDO .... 1
'+20.PTEST
SETMAP-l,,6
.-3
F'SF+I.U.IO
HOLD] .LDADSC
FWRlh5.LOADSA
FWR IT .LOAOSA-5
FP.·.12
ENDIIRT
.-3
HDL03.LOAOSC
HOLOltllAXSC
FREAO+'.IIAXSC
FIIRI hl.llAISC
10'" ••• 2J
lDGT.FREDOA.1
IORT, •• 21
IDH.FIIRDDA,l
'READ.5.IIA1SC
FIIRIT.'.IIAXSC
11A1SC .MOLOI
unRo12
FREAD.' .HOlD]
'IIRIT ••• HOLDI

OUP RDUlINE

PAGE

.DLDAD. .DREPL. 'OELU
PUT NAIIE IN EQUIVALENCE
LOAD PROGRAM TO DISK

UIU

UK

IUTTDPi".
KYIIESS ••• "
HDLDS.'IIRlhS
HDlO'-1
"Sf.6. TRACIIZ
HOLDS.20.10

.....
-12

HOLDS.ZO.IO
HOlDS .105 ••
"5,.6.99
'IIRrh •• 20 ••
fllRl HlI. TUClIZ

fIll PROTECT AIID LOAO PRO.AM

10978
10990
11002
11014
11026
11038
11050
11062
11014
11086
11098
IUIO
lU22
llU4
11146
11n8
11110
11112
11194
IU06
11214
11214
11226
lU3I
11250
11262
1127'
11282
11282
11294
lUD6
lUll
linD
lU42
11354
11366
11311
In.o
11402
1141.
11426
1141'
11450
11462
11414
11486
114••
11510
l1S2I

un.

I1M6
115'J1
11570
11112

"'"

II_

46
11
26
25
]2

J3

26
25
16

16
24
41
U
Z6
16
49

16
49
41
49

16
26
26
25

17
49

26
22
26
U·
16
49
16
49
21
11
Z.

u

,6
It
49
IZ

n

16

11002
08606
0241
0242
13243
13242
13U2
lUll
13255
13240
13055
11282
13250
13235
00565
00566
00565
005]2
11214
lonp

01200
JI002
13146
U141
00000
00000
U050
U045
U776
J3716
13140
OUOO
13140
13140
J1l69
J3429
J1193
J3421
13015
00000

11643
UlS]
UU2
UU7
11462
11206

OOOll
UI40
U050
U045
JUlio
00000

UlS]
HIS]
U250
UU5
00565
00,.6
OD5U
00U2
U247
nU2
UOSS
lIn4
U250
UU'
lIl46
00455
1199.
UOtI
UO'O
lI6. .
UOtI
lISU

13140
13055
U055
n055
J1353
JJ429
JU77
J3421
noss
n055
UISI
OUDO
UI53
nlS)
00000
00000
J1416

... "'"
J2
16
U

U
lJ
11

1.
I.

11091
lJ091
lI . . .
lIUS
11140

41

ua32

00000
J7lll
00.0
01100
01200
OOOXO
DOJO'
0009t
DO-IO
J7771

IOU

1620 IIOllITOR
2)040
n050
2)0"0
2)010
Hoao
n090
21100
21110
23120
2H)0
23140
2)150
2H60
2)110
2Hao
23190
23200
23210
. 23220
23230
23200
23250
2]260
23210
2)2BO
23290
Z3300
23310
23320
23330
23HO
23350
213M
21370
23180
23190
23400
234LO
21420

TFM
a
F~SF
SF
SM
'M
aE
All
CII
SNE
'FII
S
All
TFII
6
OORG
OONESF TFII
B
CF
8T"
8
WRl AS T TF
H
8T
RCfV

23~30

RC TV

aup

IlOUTlNl

"1l010. -ga.PL. "DILIT

U6. .
UU.
11.90
UJOZ

un.

Inn
UU.
11150
lI16Z
1IT7~

UTIZ
IIlIl
U"4
lIlO.
Ull1

IOPT,FPDOA.l

linD
WRITE FIHll MESsaGE

F INALM+30. PNAME,.

NEWOIII.DIIIIIUII
Olll"ER.OI""ER-l
FINAl"

TO

lQQQ9,"AP+19

L9 •• 8.0IllHUM
WNTY 19.95

TF

$PTY

WNTY IIAP
ONlY 1'9999
TOM SVSCAL.3
WRlAST-l •• 6
B
•
ADDRESS KEY MESSAGE SUBR0l!TlNE
KVMESS BNF ·.32,8UfTON
TFM KE YME S+24. 5500.8
B
··20
DORG '-3
HM KEYMES+Z4,4646,.

23440

H

8

KYMfSS-l t.b

23<480 SPlOEl

TF

DElETE DIM NO.
NEWOIII.OIMNUM

23490
23500
235LO
23520
23530

aT

OIMMER,DI,.MER-l

21470

TF

TO

TF
TF
23'i40
CF
TFM
21550
B
23560
OORG
23570
23580 REMDEl C
23590
BNE

111.2
1185.
111. .
11811
11.90
1L902
1L916
1L926
119]8
11950
11962
11914
1\91'
1199.
12010
12022
12010
12030
120.2
1205.
120.6
12018

wHY KEvMES

230450

23460

I'
.9
12

00565
005. .
171T1

"6"
U.4,
11.4Z
00565
005)Z
U212
116. .
Ll60.

Jl •• l
JI4lJ
00000
000-1
00-00
01200
00J05
J'U'
01200
JlJ4t
J)''')
00010
JT7T1
00000

I.
46

"TlZ

0051>5
00532
00455
1199'
1166J
12.49
029103
011>1>1>
00000
12119
19999
1999.
19995
00000
19880
19999
004n
1l84J

J1805
Jl4L)
00000
J1I30
00000
lH.9
13150
0].65
00102
00100
19899
13150
00100
00101
00100
00100
00003
00000

12030
12935
120~2

00455
ON500
00000

12935
00000
12911
00000
119"

OM646
00102
00100
00000
00000

16
49

02963
03666
02190
02185
13038
13091
13036
04218
03832

13150
03665
1.885
19880
19888
19885
00000
J2194
00000

24
41

02704
1208R

13150
01200

uno
un. u

1l6U

BUrrON
KYMESS,·.12
FP-l.,6

WATY

"GE
U61.

1 DIU •• +2)
IOGT.HDDI.'
Tuell
HOLD).1.10
HOlDhO ••
DDHESF
FPSF+ •• 105.9
FPSF+6. '''I'l2+2100
FPSF
IDRT . . . n
IOPT.FPDDA.'
FWRIT+5.Z0.10
FP5F+ •• TIUCKZ
FPSF-]6
0-]
IORT, •• Z3

"

I.

6'

16
.9

U

.9

I.

16
49
II
Il
69

21>
U

21
16
)'

25
2.
31
14
18

n

15
69
H

16
49
16
34
19
U

.9

1)15)
U15)

41

FRDM S.P. LI Sf
12090
12102
12114
12126
12118
12150
12162
121H
12186
12194
12194
12206

llSTES.MAP+5
L1STES-5.MAP
NINESC,MAP+8

HOLD5,MAP+5
NINESC-2
RlGONE+30,.+20
FIND
'-3
LI 5 TE R. 0 I MHUM
SPLOfl-l t ,6

26
21
26
25
26
2f>

H

IUUS
1620 MONITOR 1
23600
23610
23620

BT
CM
8E
236]0
CM
23640
8E
23650 INSOEl TF
8T
23660
ijf
23670
8T
23680
23690
CM
ijNE
23100
SF
23110
A
23720
CF
23730
aT
21740
23750
a
OORG
23160
23710 COMPRS SF
23180
A
CF
23790
8T
23800
23810
8
OORG
23820
23830 CVlOEL ST
23840
eM
23850
SHE
oT
23860
TFM
23810
SM
23880
23&90
BT
2).00
BT
21910
8
21920
OORG
23930 N0200 tM
21940
8E
SF
23950
23960
5M
ijNF
21910
A
23980
TOM
21990
CF
24000
CF
HOlD
TF
24020
24010
8T
aT
24040
8T
24050
8
24060
DORIO
24070
SF
24080 YES9
A
24090
s
HIUO
241\0
CF
n
24120
I
24LlO
24140
DO.'
24150 SCEU T'II

REMOVE. REMOVE-l
II STER-].l, LOll

enOEl
lISTER-3.9.LOll
COIIPRS
L1STEr.NINESC
INSERT.INSERT-l
GETl.GETl-l
GETl.GETL-l
LISTER-l , Ci,lOll

SPlOEL-l,,6
LI STER-2
NINESt,llSTER
LI STER-l
REMOVE .REMOYE-l
COMPRS+36
'-3
L1STER-2
NINESC.L1STER
lISTER-2
REMove. REIIOYE-l
INSOEL
·-3
GE Tl.GETl-l
L1STER-3.1,1011
N02DO
GETR • GETR-I
LI STET .9200 ••
NINESC.200.9
INSERT,INSEU-I
GETR.GETR-l
REMOEl
·-3
L1STER-3.9.1011
YES'
HOL05-2
HOLD5.l00.'
--L2.HOLD5
H'NESt.HOlD5
HOlD5-),9.11
HOLD5
HOlD5-2
LI STET ,HOLDS
GETR.IOUR-l
INSERT. INSERT-l
GEU.IOETR-l
REIIOEL
0-1
lISTER-2
NINESC ..... STU
HOlD5,LUTU

USTU-Z
ItIMOYI,IIII1OYI-'
CnDEL
--)

D"'fU+ZZ.007l.'

DU' ROUTINE

.OlOID. -OREPl. -DUn

'AGE
12218
12230
12H2
1225.
12266
12218
12290
12302
12314
L2326
1233.
12)50
12)62
\2)1.
12386
1239.
12406
12406
12418
12410
lH42
12454
12462
12462
12416
12486
12498
12510
12522
125n
125. .
12558
12566
125"
12578
12590
UI>02
12.14

1262.

una

U650
12662
12614
U ...
lU. .
UllO
U12Z

uno
uno

21
14
46
14
46
26
21
21
21
14
41
12
21

n

21
.9
32
21
))

21
U

21
16
4'
21
16
12
21
21

49
I~

46

12
12
6"

21
15

n

U

U
21

n

02162
13038
02162
0308 ..
12218

00000
0216"
00000
03083
00000

02996
02161
12566
02812
02194
\3038
03414
02812
12194

02995
ooo-P
01200
02871
OR200
OOKOO
03413
02811
00000

02161
12730
13089
13091
12602

OOo-R

nOli
1)0"
1)091
nOI9
on94
02172
OJ414

01200
001<00
n091
13091
OOOOR
00000
00000
13091
02171
O)4U
02111
00000

)2

01162
U0ll
UO.l
oznz
010'4
12662

00000
on64
ozn4
00000

onOT

0-015

UT. .

)J

21

••
16

121"

49

00000

olin

Zl
J2

lUll
12"0
12791
12'"

03083
OOO-P
01200
OOO-R
01200
13038
01413
02995
02995
OOO-R
01200
00000
0216.
00000
03083
00000

2T
49

Ill54

U142

03084
02761
11462
02161
12406
02194
03414
02996
02996
02161
1208R
02162
nOli
02762
03084
12.42

olon

00000

llIlu

<

, • ..:u _nOlI I
2~"0

HIlO
2~110 FI~ALM

24190 RMARK
24200 ERRSEQ
24210 KEYMES
24220
H230
24240
24250
24260

DIll'

aaun ..

CLOSUP
INPUT
READIN
CARD

,CARD-~~
24261 HaLoeD os
os ,17118
24210 MCS
24280 N1NESC DC
4,9000
ROOO
24290 THOU
DC
6dOOOOO
JOOOOO
6,0
24300 LDADSA DC
-00000
2,0
24310 HOL02 DC
-0
O,FIND+ll
24320 MUDIM os
24330 MAXSC DC
3,040
-40
6,0
24340 MCAS
DC
-00000
21t350 FOR T
oSC
1.0
0
H360 "APR" OSC 1,0
0
24310 GPMARK OGM
2H80 FINDIM OSC
1,0
0
24390 AOK
OSC 1.0

50

".GE

eDLDMI, eMI'L, -DlLlT

URD
DDRG .-3
DAC II,DK LDADED
OK LOADED
OAC 1,0
0
DAC Z7,DUP.EUOU5 C.IID SEQUENCE •
DU".UROU5 CARD seQUENCE '
DAC 39,DUP. TUIIN OFF IIIIITE ADDIIESS KEV. START'
DUP. TURN OFF IIIIITE ADMISS KEV, STAIIT'
DAC 1,0
0
DSS ~OOO, 13116
DAS 81,13613
os ,17118
DC
"5,0
-00000000000000000000000000000000000000000000

B

12110
12111
UIl9

••

oua •

00000

II

a

12ln
12851

Z7

12.11

3'

2
2

Uti.
U716

13613
11171

non

.000
II X
0

2

u

12'90
17118
13038

0
0

1304"

6

~

13050

6

13052

2

03843
13055

0
3

13061

6

13062
13063
13064
13065
13066

0

1)070

2HOO HllIM

DC
It. 7000
POOO
244}0 LOOP
OC
2.0
-0
2H20 SCREM OC
3.0
-00
24430 SEQ
5,0
DC
-0000
2H40 BUT TON OS
,455
24450 PHI
DC
2.0
-0
24460 RYEST OSC
1.0
0
2"'10 NTEST DSC 100

4

13072
13075
13080
00"55
13082

0
2

1301l
1308"

0

t IJ JI

1620 MONITOR 1
24480 PTEST

nsc

a

1.0

2H90 DelETE DSC
1.0
0
24500 HOLD5 OC
5.0
-0000
24510 CNT
OC
3.0
-00
4,7000
24'20 LOLl" DC
POOO
H530 COUNT DC
3.0
-00
24540 "APMA OC
5.0
-0000
24550 NAPEA OC
5.0
-0000
24560 IEROl9 DC
19.0
-000000000000000000
6,0.IEROI'-13
2"570 lER06 DC
-00000
4,0
24580 SCOLD DC
-00·0
24590 LOAOSC DC
6,0
-00000
6,0
24600 SC."CH DC
-00000
H610 DIM/IUM DC
4.0
-000
],0
24620 HOLD3 DC
-00
4,0
24630 HOLD4 DC
-000
24640 SCR 1
DC
6.0
-00000
DC
6.0
24650 seR2
-00000
21t1»60 HOLD6
DC
6.0
-00000
24610
DAC 1.0
0
lIt680 PNAME DC
12.0
- 00000000000
1, •
246QO
OAC
24100 lER011 DC
12,0,lEII019-7
-00000000000
2"1\0 NINEI2 DC
1l,99999'1'''''9
R'I9999'9'999
24720 MOYODA DSC 2,22
22
24130
DSA MOYDeF

DUP ROUTINE

-OLOAD, .DIIE"L, .DELET

13086
13091
130'1"
13098
13101

"

13106

5

13l1l

5

DUO

19

13111

6

1311"

4

13140

6

13146

6

13150

"

13lS3
13151
13163

"
6

1316'1

6

13115

6

13177

11119

II
I

13191
13121

II

13203

II

13204

Z

UlIO

5 x

lit 740

DSC

I. '

UlIO
13211

24750 MOYDCf

D~C

1,1

lUll

I

51

"AGE
130n

JUU
1

lOU

1610 MONITOR
2U60

DUP IlOUflNE

elllAD, eOR"l, eDlL.r

2U70

UlZO

-JI
24710

DC
5,0'600
-"00
OSC
I.'

24790
24800 FWRIT
24810
24820
248)0
24840
24850 FREAD
248bO

24870
24880
2"8'10

24900 ClOSW
24910
24920
24930
24940

nZ27

OSC

nuz

,

nzn

)

uz.O
UZ.I
un2
IlZ.7
nno
11255
U25.

OSC
1,1
I
5,0
DC
-0000
3,0
DC
-00
5,0
DC
-0000
OSC
I,'

24910

I

nazi

OSC 1,1
I
DC
5,0
-0000
DC
3,0
-00
5,0
DC
-0000
OSC
I,'

EQUOD" DSC
22
OSA

52

,

lun

OSC
101
I
Dr.
5,0
-0000
)'0
DC
-00
DC
5,0
-0000
DSC
I,'

2"'Q60

2ltQlljO

'A"

,

nan

DC
',llnl
JUJI
DC
)'011

U2n
U2n

5

11265
U270

5

n2n

2,22

1)212

2

EQUDCF

11271

S x

I,'

n218
n2n

H210
I

24980 EQUDCF OSC
1,1
1
DC
5,18278
J8218
25000
DC
3,020
-20
25010
5,08600
DC
-8bOO
25020
OSC 1,'

11285

5

13288

3

25030 CHTCYL DC

11296

13210

2"QQO

13293
13294

2,0

-0

11113
1620 MONITOR I
25040 COMl
25050

OSC
22
OSA

2.12

IH03

I,'

OSC

DSC 101
I
5,18520
DC
J8520
DC
3,020
-20
5,IDbOO
DC
JObOO
DSC I,'

25100
25110
25120 ClOSR
25130
25140
25150
25160

DSC 1,1
I
5,0
DC
-0000
3,0
DC
-00
5,0
DC
-0000
DSC I,'

25110 MA'

OSC 20,0,19110
00000000000000000000
25180 OCFSCR OSC I,D
0
2H90
5,0
DC
-0000
25200
3,0
DC
-00
25210
DS. READIN
25220

DSC

I, '

25230 EQUOIM OSC 20,0,19110
00000000000000000000
25240 OISKF OSC 1,0
0
25250
DC
5,0
-0000
25260
OC
3,OZO
-20
25210
as. TUCK
25210

.

OSC

25290 FAIlEA os
znoO snCAl os
25110 SUlLO os

PAGE

I, •
. .CLOSUP
.4n
,10

53

13291

1))03
lUO.

25010 COll21

25090

oOLOAD, oDREPl. oOEur

COll22

25060

25080

DUP ROUTINE

5 x
JI30S
I

11305
nno
UIl)
Ilnl
IUI9

uno
In25

5

UUI
UU3
13n.
19110

20

Inn
U3.0

5

1))43
UI . .

5 x

unl
U349

Jlll1
1

19.10

20

UI50
un5

5

unl

s

usn

lUI.
u_

un.
OeM"
OOOlO

,

x

un.
1

0
0
0

11114

S

1620 IIIIIIITOII I
nno
IUIO
In40
nno
Into
IU10
InlO
25 no

SUIHI
TUCK
IASICII
IIONCAL
Tueu
OUPtaO
SUCESS
DIIPD III

25400

DS
OS
OS
DS
OS

as
as

DSC
2X
OSlo

25470 DUMP

Dse
0
25410 eLODOA ose

,AlIt

eMU'
0
0
0
0

1101.

0

II."

0

DIIPDII

aun

5

JJJn

I,'

una
lun

Z

1

13171

5

aUla

)

au.t

5

lUI7

1,0

lUI.

2,22

11319

2

254"0

eLosR

113"

5

25500

I,'

13395
13]96

HUO

ose

2,22

13197

2

I

eLOSW

1340]

5
JJ251
1
Z

25530

Dse

I,'

13401
13404

25540 DDAKF

Dse
22
DSA

2,22

1]405

DISKF

13411
11411
U412

25550

x

lun

22
DSA

25510 ClWDDA Dse
22.
25520
OSlo

x

5 x
HUO
I

25560

Dse

I, '

25570 FPDDA

2.26

13413

2

25580

Dse
26
DSA

FWRIT

U419

5 X

25590

Dse

I, '

U419
13420

JUZ7
1

2,22

11421

2

25600 FWRDDA Dse
22

'4

0

DOO.'
11116
001"
001"
U71t
aNn

Z,-22

DSC 1,1
I
5,11430
DC
JI430
3,050
DC
-50
5,02500
DC
-2500
Dse I,'

25460

-oa.",.

,eLDSU'

DSC

25450

.ILDACI.

.IUICII
,eLDSUP
,IN'UT
,AOK

25420 OIlPDII

25440

aou".

.".

25410

25430

OU,

.19

IIlIS

1620 1I000IToR 1

DUP ROUTINE

eDLOAD, -ORE'L, -OELET

PAGE

25610

OSlo

FWRIT

U421

5

25620

DSe

I,'

13427
lH2.

JI227
1

2,22

13429

25630 FREDDA DSe
25640

22
DSA

FREAD

134J5

5

13415
13416

JJl42
1

25650

DSe

I, '

25660 READ

OSlo

READIN

IH41

5

3,00'

13441
13444

J7T71
3

25670
De
-0'
25680 DDASCR DSe
02
25690
OSlo
25700

DSe

2,02

13445

oeFSeR

13451

I, '

13451
U452

5 X
J3335
I

25710 olREAD ose
22
25720
OSA

2,22

U4S)

2

D2READ

lHS9

5 X

25730

I, '

U459
11460

J1461
1

13<161

,

DSe

25740 D2READ ose 1,1
I
25750
DC
5,0
-0000
25760
DC
J,021
-21
lH70
OSA TUCK

13466
U469

]

U'''4

,

13474
U4?5

J]776
1

X

25710

Dse

a, '

25790 "eSl

2,22

U476

2

25100

ose
22
OSlo

"CS2

1)412

5 X

25110

DSC

a, '

11412
lHI]

25120 "e52

Dse 1,1
I
De
5,L"61
J'661
DC . 1,1
-01
DSA IItS

25no
25 ... 0
25150

55

JJ4I4
1

11414
n4l9

5

aM92

,•

11497

I

ItH

1620 MONITOR I
25160

DSC

HUI SffLAG DSC
0
25110 TRACK2 DSS
Teo
25880
25890

DU' ROUTINI

!,AGE

oOLOAO, oORE'L, oDELeT

I, '
I,D
ZIOO, 17178 ..
COMH

READ WRnE ARU fOR TUCK

U ..91

nn.

13....

1

"""
ln71

2100

56

10100
00000

DEIliD

I (I t 7

1620 MONITOR I
AOOBlK
AODRAe
AORSPL
AllCLR

04280
10656
04514
07816
AlLRIT 10128
ALPHAS
10266
B2READ 0905_
8ASIeM 00796
BAVADD
10'072
8AVAll
0275.
BAveDH
10440
BEAUTY
10592
10356
8LANKT
SUTTON
00455
eALlMV 06976
CHOICE 09196
CLEVER 04315
CllPPP 02884
CLOOOA
13389
elOSUP
13776
CLWQOA
13391
eNAMES . 09806
eNTCYL
13296
COMCYl 04980
COMHI
101~8
COMFL2
10156
COMNFL
07200
CONMON 02853
COMPFR 05268
CONPRS
12~06
CONCUO 09952
CONSTI 02801
CONST2 02801
CONST) 08815
CONS" 0881Z
eONST5 02825
CONST .. 02831
CONSH 02837
CONST8 02870
eORS Il
OZ413
CURREN 08118
1246Z
cnOEL
OIREAO 13453
OZREAO 13461
12210
03READ
041EAO lZZIR
13335
OUSCR
OOAseR
\3445
DELETE
13086
OELHT5 09604
19180
DIIIENT
DIMERR OZ.15
OIMHLO 01131
DIMMER 036 . .
DINNUM
Ul5ci
DMPOIN 13365

OMREAD
DOlliE SF
DRESTR
OSEVEN
OU'CRO
EIGHTS
ENDWRT
EQUDCF
EQUODA
EQUOIM
ERRcn
ERRSEQ
EXITFl
EXITMR
FAKSFV
F I l TST
FINALM
FINOIN
FINDON
F INOU
FREOOA
FIIRDOA
GEreAK
GETlU
GerRTR
GOLDEN
GPNARK
HOLOCO
HOLOI"
I NITRO
INITSC
INSOH
I NSERf
I NSETR
KEYMES
KSEVEIII
KYNESS
LCTEST
L1MI fS
LISTER
LUTES
LI STET
LOAOEII
LOAOH
LOADItE
LOROSA
LOADse
LOOPSY
~O'EU

LOPUS
L".DA
MAl Nil
MAINU

"AIIYEL
.. AXOIN
"IONn

OUP ROUTINE
02516
11782
03633
0906~

13613
0998~

11206
13280
13272
19880
11362
12851
0692~

08624
OZ852
10212
12819
130n
06680
03900
\34Z9
IHZI
05164
03016
02921
02160
13064
12990
10510
09974
09090
12218
03414
03U4
12911
10716

1199.
09614
01666
027."
02190
02196
UH4
06600
0721"

UOSO
13140
0902 ..

onu
o.no
04101

0'''2

a.....
101"
OJI. .
0.310

PAGE

-OlOAO. -OREPl. ODELET
MOOOKI 10682
MODNOI
IOU2
MONCAl 00196
MONIU 00796
MORERO 0658~
MOV8US 08721t
MOVCAl 08701
MOVDCF
13Z1Z
MOVDOA
13204
MOVesA ·02862
MOVESC 02865
MOVFLl 01548
MOVFl2 08S56
MOVNOW
105010
MSTAKE 09032
14108000 02770
NEGATE 01576
NEWOI" 02963
NINElZ 13203
NINENT 09132
NINESC 13031
NOOISK 09866
NOFlGS on41
NOMMON 02855
NOMlll' 10018
NONAME 09610
NOSECA 02156
NOSPAC 01092
OLiNIT
10118
PKOOOA 02637
. 'UOOA 02660
'K200A 02613
PK3DDA 02106
PLUSSR 04111
QCARRY 02113
RACKET 02141
ROMOOA OU,l
ROMOV! 0Z599
REAOIN 1111.
REOSPO 0410..
REDSPl I) .....
REDS'2 04192
REOS'3 049]6
REOSPL 0"'96
106U
RE"ILK
IIEMDfL U19"
REMOTR 0110 ..
REMOVE OJ014
ItEMSIl
101.4
U'LFL 0'''00
ItLGDNI
RSeVIN
ACUA 0 . . .0
ACTAC 099"
RCfAD 0990 ..
ACue; 091 ••

au...
lOla.

ACTAH
ACrAJ
AtTAK
ALTER
ANAME
AOK
ATNR
ATN
INR
CUC2
CALC)
CAlCt,
cue5
CALC6
CAlCl
CARD
CCD2
CCI!
CHll
CLEAR
elfP
CLOSE
CLOSR
CLOSII
ClAFP
CNPAR
CNINE
CN'
CON22
COM2
COMH
CONIII

to.... 2
COMP
COUNT
Del
DCll
OC2
OOAKF
DEll
DELl
DUET
OUfL
DELTA
DISKF
OISKN
DLDCF
O~D

DLOAO
OMOOA
OII'DM
OONE
DltlPL
DUIIP
INrOll
IQUI

09U6
09112
09228
11Z82
10471
13066
08606
0904Z
09650
02U9
02719
0211)
08796
08no
02848
13034
IOU6
10UI
IIno
OUIO
06nz
09282
\3320
13257
07611

09112
0 . . 10,
13094
11305
nl97
10100
01241
01263
10106
U101
09554
06014
05961
1)"05
0',,,,
0. . . .

OSlOI)
0 ••00
09)75
nno
06)U
10111
10."
05100
02U.

usn

o.no
01100

U ...

10JU
011 . .

51
EQU2
EQUFl
EQUIV
ERRO
ERR
EXITZ
EXIT
ElEST
FAREA
FI~D

FLAG
FORT
fOUND
FPOOA
FPOK
fP
F'SF
FRE~O

FWRIT
GElL
GETR
GORT
HUE
HEX
HllIM
MOL02
HOLD3
HOL04
HOLDS
HOL06
I NCRO
INCRE
INlll
lOll T2
INPUT
IOGT
10PT
IOU
ISTO
KEVE
KEY!
KEYS
KING
LGE
lIMI T
LORDI
LOAD2
LOI.IM
LOOK
Loo,
LSII
""INI
NAMY
M"U
M"MA
MAPIIM

08156
08100
01606
025H
05656
091\0
10542
10700
13716
03832
06468
13062
03445
13413
06820
1\462
11642

1)142

13221
1)2996
02812
10232
121 \8
02195
\3070
\3052
13153
13157
13091
13115
09262
10246
01680
08360
13613
00'"
00532
00'"

on,.

0'00)
Olill
olln
OH5.
1111>6
01121
04 •• 1
0 ...63
130••
10690
n012

1114'

10370
0....

11111

11106
!JOU

IIIiii'

5\~

'J

1.20 MONnOIl I
M"
.... St
"CAS
"CSI
.. t52
~tS

"EU
MOVER
MOVfl
OPT
"UlT2
MUlT
NDISK
'IERR

19110
1)055
11061

au ..

NOALF

098~0

"OF
"OISY

08~8 ..
10180
08.10
08"8
1101'

NO_8
"OOt
"000
"OOf

"HI
"NME
""ElA
"IIU
"TUT
OHOLD
OUlU
R2
RAKES
IIOS"L
RUDe
IIUD
IIEtD
AElD2
IIHD
REPlI
IIEPL2
AGE
AMUk
R
HHT
StANI
seAN2
SCANN
StERR
SCOLD
Still

IHe.
1777.
09292
01132
08,500
08636
09962
0989.

03H'
0"2'11
12S66

NOIIIA

"Atll

\loa

"0200

"HH

Nfl
OItDEL

11064

"OREI
,06
0'124
02 •• 5
021>1>1
021>91

"

Oln4
D!lOU
U4 . .
UO"
0041'
lont
0157.

Ol729
02117
10110
Inn
U7n
on"
0 . ."
03•• 6
0.,\2
05340
on . .
01711
11142
026\.
OU22
03161
03300
01332
ont ..
\31Z]
13130
08106
09"'6

I UIII

1620 MO"ITOR I
00010
00020
00030
00040
000'50

nu,,",p

ODRG
8NF
CF
T.
TFM

DUMPCC.MCS+23"

aQObO

TF
TF

FllAO.422
SC,fllAD+8

00080

8n

PAPST .fi'lCS+23

OOOqO

00110
00120

ou~PtC

CA
DORG '-4
SF
CONTRO-l, , ,
SF
TYPE-I

00130 •
001410

00150
DalbO
00170
00180

001QO
00200
00210
00220
002]0
00240

I
TYPE ,41,10
TVP'
ERRO-12
"3

H"

NUMB,EENT

ODiitG

TYPE ,'50, 10

TYPE .45, 10

E
TYPE,ltQ,lO

.-.
BI

.-,

00330

eM

TYPE+2.73.10

RH
e ..
BL
TFM

ERRo-I2

00)80

TO

OOJ"O

AM
B
oORG
tM
8E
CM
8"E
SF
CM
IE
TF"
TFM
8

..

TF

HM
8
BNR

TYPE+2.10,lO

ERRD-12
"UMS, SE'"
-+23, TVPE+2
NUMB.O,lO

BI
.-)
TVPE.~),10

L
TVPE.SIt,10

SPl
NUMI-7
NUMa.o.lO

NAME
rO+6.HUMI-l ••
&H-l.-+23
AN,NUMB-l,l
FIHD+21,NUIIII"
'.+21,.+2'),111

n .. Ap.FILAD
eONT,FllAD

02500
02500
02512
0252.
02536
02548
02560
02572
02584
02596
02603
0260.
02616

17801
00000
00402
00-00

.9

02604
U611
05474
0547"
05477
05474
136']
0)246
03190

32
12

U611
\36.6

00000
00000

14
46
I ..
41>
14

14
.6
.9

..

136'"
02"06
\36.1
02738
13647
02758
13647
06518
0610'

OOONO
01100
000"5
01200
000 .. 9
01200
OOOMI
01200
00000

16
.9

136.]
0)026

-0002
00000

16
.9

11641
0)026

-000)
00000

14
47
]2
14

13647
06104
\36 .. 8
116.9
06104
116.9
06104
116.3
02197
11641
0]026

00002
01200
00000
0001']
01100
0001'0
0\300
-0004
1)6'"
000-0
00000

1l6'"
O'U'
lUU
02118
116U
1164)
0427.
0""
05\65
0".'
Otau

000N3
0\200

44
H

31
16
26
25
26
H

00425

00422
05482
17801
00000

DETERMINE TYPE

LORM

00140
00150
OOlbO
OOHO
00400
00"'10
001t]0 lOAM
004)0
0041t0

tALL FROM CONTIIDl REtORD

TFM NUMB.MENT
BI
DORG
tM
TVPE,62,lO
B"E ERRD-12
SF
TYPE + 1

8

OO]qO
00300 S'l
00310
00'20

"

eM
BH
eM
8E
eM
BE
CM
BE
B
OORG
8

C01'5a
00260
00270
00280

00450
00060
00470
00.80
00""0
00500
00510
00520
00530
00540
00550

IS CALL FROO 5PS,FORTRAN

8

00100

PAGE

-OOUM'

to"TRO-2
FILIO,lt02
FllAO+5,O,9
FllAO+3,1t25

00061
00010

TO

OUP ROUTINE

2500

CONV
fIND

."
"'"

NO TO NUMEIIl(;
ENTRY

02628
02640
02652
0266.
02676
02U8
02700
02712
02724
027)8
02718
02750
02757
02758
02770
02717
02778
027'10
02802
0281'
02826
02818
02150
02 •• 2
0211.
02116
021'1
02906
02906
029"
02910
02942
02954
02 . . .
02971
029.0
0100'
OJOI6
03016
OJOII
OIDta
OJ061

..
I"
H
16

2S
II
.9

..

I'
.6

..
.1

32
14

1.
16

69
26
I.
49
4'

0'12'
04974
DJ094

OOON~

01200
00000
000-0
0\200
J]6'2
-)025
J16)6
11643
-]06J
OS416
OS47.

IUlllI

1610 IIONUOR I
OO'i60 •
00~1O

OO~80
OO~90

00000 'ONf
00010 82
00010
000)0
000 .. 0
oo.~o

00.00
00010
00b80
OllbQO

,.

00100
U01l0
001/0

oono
00'40 PAPST
001~0

00160
00110 SETUP

0018u
001~O

rOM
O~'

1,' ,*

00810 REAO
00870

fFII

JORT,.+21

R

IOGT.FIl00A,1

Qoa . . o

00860
00870 •

fFII
TFM
fFII

01010 •
01020
o I o~o
010"D
OIO~O

o lllbO

_ElU

01010
OIOHO

a I OqO

on42

OUTPUT DEVICE IS tAROS

0311"
031 . .
03171
03190
03202

OU1"

OUTPUT DEVICE IS PAPER TAPE
SET UP IIAO OF FILAO
SET UP SECTOR CNT OF FIUO

AI0+II.SECTOR
fSXC+II,SECTOR.79
TSXC+l~, SEC TOR
SC,3tlO
FOUR
lOOP. SC
FOlJR+12

.-.

LOOP,It,tO

TSXC.OI
CALL PAPER TAPE

PAPER+15,IX,1,
PAPER ,-+12

03226
03238
032 .. '
032 ...
03Z5I
03Z70
01212
0329..
on06
01111

OUU
0.11.

0-0'"
00000

26

UI>U
13.....
13"5
0)246
13 ... 5
05510
13... 5
0610"
02 ... 1
02621
05325
035.0
03282

05412
00000
000N7
OUOO
00003
01200
000113
01200
00000
-0000
-3621

OZ." 7
05325
03560
05 ... 87
0541Z
0'418
1

00000
-3457
-7211
J8000
00-0)
00000

U
14
46
I"

...
I"

H

))

I.
I.
I.
"9
32
16
16
16

I.
15

-1162
00000

OBI8
03330

16
.. 9

005.5
0056 •

-33"'1
-5"••

033 .. 2
0335..
0336.

16
16
16

03 ... 57
03597
03.21

J8000
JI079
J8000

13M3

000-3
01300
136"3
00000

03378
0)390
03402
0341"
034Zl
03422
03 .. 34
034 ...
03458

1~
~6

01~12

26
•9

02736
0343 ...

....

02736

OOO-~

03~86

026 .. 7
-0000

16

16
17
11

A10+11,75.10
ENOTE S, CONTRD-2

03482

lOOP,I,IO

03"9~

....12

0350.

47

8NE

1I

tM
8l
5M
8E
AM

SC,),10
Al
SC I 3 ,10
FILAD+5,3,10

B

READ

03~70

03965
03930
03457
0531 ...
0273.
03 .. ] ...

-3~70

000P5
13611
000-1
01200

LITTLE lOOP FIN JSHED

OORG
•

01100 Tsxe

OUTPUT DEVICE fEST

I.
49

SET LOOP COUNTER

~"

01000

SAVE SC FROII FILAD

030'"
03016
030."
0109..
03106
0311.
OUID

2

INITIALIZE ADDRESSES

00880 SOEST eM
OOSqO
8~l
OOqOO
fF
00910
8
00920
OORG
OOq,)o fOUR
fFII
00940 1I
8NF
OOQ';O AIO
fFII
00<160
8T"
AM
00910
00080 TVPENO 8~'
009QO

PAGE

000UN'

FILAD.1,., ••

00800

00810 •
OOHItO INIT

OUP ROUTINE

EUOA IIAP NO Nor IN USE
HII OIIlERhU,oon,.
8
EAAO
00R6 . - )
H
se,FILAO·.,.
SF
100-1
CII
IOO,57.l0.
8E
PAPST
ell
100,.30 10
lVPWR T
BF
100,43,10
CII
SNE ERRo-I2
C.
01 •• ,
'FII Sfl}UEN,O
HII ENOTE S+I1, TSxc+n
HII RELLT-b.FINISC
R
SHUP
OORG ·-4
SF
01" •
TFII ENOTE 5+11,'10+11
fFII RELlT-6.FINISP
HM F ILAO.l3, SEC TOR,.
r>M FILAO+8,),9.

TFM

03518
0]530
0]5~2

xx

0155 ..
035 ••
03578
03585

.-.

47
12
"6
11
"9

13.... 3
0365<0
11 .... ]
00000
05419
03318

000-3
OUOO
000-3
01200
000-3
00000

16

0 .. 093

-0000

14

\,

CALL CARD ROUTINE
0]586

AShtl,XX

I U21

1020 MON[TOR
01110
01120
01110
01140
Oil ~o
01160
01110 AI
011 BO
01190
01200
01210
01220
012]0
012.0
01250

01260
01210
01280 A2
01290

01 )00
01310
01120
01330 AJ
OIHO
01150
01160
01370
01380
01390
01400 H
01410
01420
01410
01 •• 0 P4PER
014~O

01 ... 60 TDJ
01470
01 ... 80
01 ... 90
01500
01510
01520
015]0
015'0 CARD
01550
01560
OIHO
01580 A81
01~90

01600
01.10
01620
01.30
016~0

01.50
01.60

fFII
8

AM
AM
B
OORG
CM
BNE
TF
fF
CF
CF

oODUMP

TSXC+ll.75
TSXC+35,7S
TV'END

.-.

se. 1, 10,

PAGE

036~6

REIIAINING SC

LESS THAN THREE

Al
SEC TOR+I"9,IERO
SEC TOR+IH,lERO
SEC TOR+l25
SEC TOR+I00

8~F

A2,OI
PAPER+]5. SEC TOR+7' ••

.-.

SC-I-SPEClAl PAPER TAPE OUTPUJ

PAPER,_+12

FINI SP
A81+11. SEC TOR+15 .....

SC-l

SRECIAL CARD OUTP\lT

PUN,e+23.711

CARD, SEC TOR+75
F INI SC
'-4
SEC TOR+224, ZERO
SECTOR+200

A4,Ol
PAPER+35. SECTOR+UO.,
PAPER,-+l2
FINISP
.-4
AB1+II.SE'TOR+Z29"
PU~,·.2),711

CARD. SEC TOR+150
FI~I se
T03+6,19925
TDH7
•• ,XX,2

T03+It.CONI
TD3+6.20000
BNE T03
ONPT 19925
nil ERRDIIP . . . 1Z
B
PAPER-I .. 6
DORG ·-4
TF
FINI+18,ABI+11
fFM ABI+6,SAV
TFII CNH.S.I0
CF
ARI+7
SAV,XX,2
TO
SII
C"J5,I.I0
8E
FINI
All4
0541>5

C~T5,I,10

B~R

n

DSC

2,22

0541>1>

FILAD

05412

OSC

O}IJ90 SENT
01000 F lLAO

01010

,4
os
l,O
OSC
0
5,0
DC
-0000
DC
3,0
-00
5,0
DC
-0000
b,OOOOO'
OSC
00000'
6,0
ose
000000
OSC
101
OOl
OSA
SEC TOR

03080

DC

0)040

030'50 SAFeF
OlObO

030QO TYPWRT CM
8NH
01100
TFM
fFM
fFM
fFM
0311)0
B

all I 0
OB20
03130
031'0

4t

onll

49

0]494

000P5
OZ61N
000-5
OUIN
00000

12
46

02651
054ZI>
02615
05)62

000-1
01200
000-1
00000

01Z16
01254
0]494

OZUN
01200
00000

12
~

16

OZ615
0]494
OZ651

6

DUll

COli
LAnd,10

02Q80

03030

05326
O§U'
05]50
05)62
05)14

'-4
TUILH,LAST,II
FINISP+)6
RE
TYPENO+12
8
DORG .- 3
2,22
OSC

F 1 L OOA OSC
22
07CJ 70
os.

0302f)

'AGE

-ODUII'

05]1l
05194
05406
0541.
05425
05426
05U.
05450
054§'
05458

02'QbO

01010

DU' ROUTI.

LASJ, nolO
TYPENO+12 ,LAST ,II

I,'

11
49
24

4fI
49

5 X
-5494
I

5 x

05412
05413

-5474
I

00004
05414

0
I

05419
05482
05481
05488

6

05494

6

05500
5 x

05501
05501
05508

I,'

05510
05522
05534
05546
0555B
05570
05582

TYPE ,45,10

SPECAL

COUNT.O,q
FllAO+8,l,9
FIlAD+13.19900

IORT,·+23
IOGT,FILDOA,1

J8000
I
14
41
16
16
16
16
49

IlM7
05686
01>102
05482
05487
00565
00566

000M5
01100
00-00
00-01
J9900
-5593
-5466

lo~5

1620 MONITOR I

HoelY
03160
ONTY 19900
03170
ERRDMP,·.12
03180
" fM
AM
03190
F IlAO+5.1, LO
AM
01200
COUNT,l,lO
03210
COUNf. se
e
03220
BL
·-'96
FINISP+36
03230
8
03240
DORG '-3
TYPE ,41,10
03250 SPECAl CM
TYPA
BE
03260
ReTY
03270
fFM
FILAO+8,32,9
03280
fllAO+lhEQUIV
03290
fFM
fFM
CNT2,O,9
03300
rFM
TFWR IT+ II,EQUI V+II
03310
fFM
fFWRlf+62,EOUIV+12
OB20
fFM
fFWR IT+ 79,EOUI V+ 15
03330
fFM
IORT,.+23
03340
8
10Gf,fIlDDA.l
03350
fFM
03360
COUNT .0.10
NAIIOUT+IO ,EOUI Y+ll
03370 fFWRrT fF
BNR
-+20, fFWRI '.11,11
03380
FINISP+36
8
03390
03400
DORG '-3
WATY NAMOUf
03410
SPfY
03420
SF
EOUIY+12
03430
NUMOUT-I, EOUI Y+ 15
TF
03440
03450
WNfY NUMOUT-4
SPfY
03460
SPTY
03410
TFWRIT+ll.L6,lO
AM
03lt80
AM
TFWR(T+62,16,lO
03490
AM
TFWRIT.79,16,lO
03500
COUNT,I,IO
AM
03510
CM
03520
COU"'T,5,10
TFWRIT
BL
03530
RCTY
03540
A
CNTZ,COUNf
03550
CNT2,200.9
CM
03560
TF wR IT- 12
8L
03510
fFWRIT-72
8
03580
6,00000'
03590 NUMOUT D~

DUP ROUffNE

PAGE

.OOUIIP
05594
05606
05618
05630
05642
0565.
05666
051>18
05686
05686
05698
05110
05722
05734
05746
05758
05110
05182
05794
05806
05818
058)0
05842
05854
0581>2
05862
05814
05886
05898
05910
05922
05934
05946
05958
05970
05982
05994
06001>
06011
01>030
06042
06054
060(>6
06083

•q

00000
19900
06176
05479
06102
06102
05570
0725 •

00102
00100
-5630
000-1
000-1
13643
01300
00000

14
46
3.
16
16
16
16
16
16
16
49
16
26
45
49

13647
06518
00000
05482
05487
06100
05841
05892
05909
0051>5
00566
06102
06095
05862
07254

000"1
01200
00102
00-32
J6000
00-00
JI>OII
J6012
J6015
-5817
-5466
000-0
16011
058ltJ
00000

)9
34
32
26
38
14
34

06085
00000
16012
06082
06079
00000
00000
05841
05892
05909
06102
06102
058)0
00000
01>100
06100
05818
05751
6

00100
00101
00000
16015
00100
00101
00101
000J6
000J6
000J6
000-1
000-5
01300
00102
06102
OOKOO
01300
00000

14
35
17

11
\I
24
41

11
11
11
11
14
47

14
21
14
41
49

-0000'
7,000000'
03600 NAMour OAe
000000'
3,0
DC
03610 (Nf2
-00
03620 COUNT DC
2.0
-0
fFII
0IllERR+21.0011,'
03630
RCTY
01640 ERRo
TFII
IOIlT, . . n
03650
8
I OPT ,OAT"-4, T
03660
H
03670

7 X

01>085
01>100

01>101
06104
06U6

16
34

06140
061U

4.
41

Dual

"

OU43
00000
005"

0-011
00102
-6151

oon1

-un

00000

00000

UU

S\'

/"

IUD 1I0NITOa

OU, aaun.

0"64
06U6
06111
06200
OU12
06214
06212
OUJ2
06244
06U6
06261
06276
06277

04020

04030

OSC

0]8]0 DIMERR
0]840 lORY
0]8~0 10PT
0]860 lOG'
0]870 MONCAl
0]880 CON'RU
0]890 DIMMER
03900
0]910
01920
03930
03940
O,q~O

03960
03970
01980
0)990
04000
04010 DMDOA

I,'

46

I.
I.

00102
00100
00000
00000

II X

0056~

064~4

00000
06277
00000
OU7N

onoo

0.100
01.00
00000

2

-6)21
I

06]21

06466
06468
06468

00000
01600

sx

06)16
0631.

00512
00516
00796
ll6ll
061. .
06358
06170
06312
063'4
06406
06418
064}0
06442

007.6
06111
06200
06U'
06212
0617N

18 X

26

Zl
26

Zl
26
25
12
26
16

••

42

0
0
0
0
81
06501
06501
06496
064'6
0648.
0642'
06481
06481

2

x

2
01161
06501
06516
06501
06506
06496
000-0
06495

00~65

-646~

00566
00000

-6468
00000

2

06414

5

06414

-6416
1

0647~

06416

1,0
04040 OMREAO OSC
0
5,0
040S0
DC
-0000
3,1
04060
DC
-01
5,19900
04010
DC
J9900
04080
DSC 1,'
04090 CALC)

...
.••
4.
46
46

on16

DC
3,06'
-6'
OAC
ll,OUP'ERROR 00'
oUP'ERRDR DO'
,565
os
,~]2
os
,566
os
,796
os
DAS Bl,ll6ll
TF
CAlC2,NEWD1M
l
CllC2,CllC2
TF
CllCI,NUOOO
CALC) ,CllC2, ,NEW 0111 SECTOR ADDRESS
A
DMREAD+ll,OllESTR
TF
•• Z3.C.ALC3
TO
OMREAO+12,O,10,AOJUST 01" READER S A
SM
OMREAO+~,CllCI-l
TF
TFM
IORT,.+23
IOGT,DMDOA,7
8
88
OORG .-9
OSC 2,22
ZZ
OSA DHREAD

03820

•

PAGE

-DOlI'"

I
NONCAl
OUIO
"U,,.OO
0)6'0 uao", 81
onoo
II
"U,)1OO
onlO
al
"12,1100
onlO
81
"20,1900
OHIO
B
URO"'-1 .. 6
on40
OORG .-1
RCTY
olno
WAn unulI'
01760
H
01710
8
onao
URO"'-I .. 1
OOllG '-1
on90
la,Dup-eRROR IN DUIIP'
01100 EROU'" DAC
OUP'EUOR IN DUll"
01110 OATU OSA DIIIEU

06411
06484
06489

,

064'0

6,0
DC
-00000

064.6

5

6

1027

1620 MONITOR 1
04100 CAlC2

Dr.

OUP II0UTINE

5,0

-0000
04110 ORE STR DC
5.1.880
J9880
4,0
04120 TWiCE DC
-000
04130 N48000 DC
6.048000, ,FIRST SECTOR OF DIM "AP
-48000
04140 TYPA
TF" NEWDI14,OOO4,1
041~0
TOM CONTRD+l~, ,11
A
04160
NEIIOI",CONTRO+U"
BT
04110
DI""ER,DI"NER-l
TO
04180
DU"S v ,198.0
04190
TO
DU"SV+ 1,19811
TFM
04200
IORT,·.23
04210
B
IOGT,DU"SW,1
TFM TYPSEC" ,lERO FiElD
04220
TFM UPPER ,10801
04230
TF14 lOWER ,10800
04240
04250
RCTY
CF
04260
10100
TDM 10105,
04270
04280
DC
1. t t04290
04300
04310 UREAL
04320
04HO
04140
04350
04360
04]70
04380
04390
04400
04410
04420
04430
04440
04450
04460
04470
04480
044.0
04')00
04510 ;ON'
04520
045)0
04540 HUH r
04550
04560
04570
04sao
045'0
04600

W~TY

RCTV
8NR
tDM
B
DORG
SF
TF
eM
BE
CM
8E
CM
BE
C
8E
TF
TF
BT

10700

•• 32 .... 0WER.ll
SYSCAl.3 ••
"ONtAl

.-)

LOWER .. 6

ElANIN,UPPER,11
ElAMIN-I,1,1011
FORIIAII
EXA"I N-I,',lOI1
NINIT
EXAMIN,OOOI,.
TONV
EXANI N, TWICE
FORIIAR
TWICE,EXANIN
NEWDI",EXA"IN
OI""ER,DI""ER-l
TVPSEC,I'''1
B
FORWAR
OORG '-1
A" TYPSEC,200,.
B
FORIIAR
OORG '-1
RCTY
CF
TVPSEC-4
IINTY TVPSEC-"
SF
TYPSEt-"
SF
IIANIN-Z
A
TVPSlC,UAIIIII
SPTY

•

PAGE

-DOUNP
06501
06506

5

06510

4

06516
06518
06')10
06542
06554
06566
06578
06590
06602
06614
06626
066]1
06650
06662
06674
06615
06686
06698
06110
06122
06134
06742
06742
06154
06766
06718
067.0
06l0Z
06114
06826
06111
06150
06.62
06174
0681.
06191
06910
06.11
06.11
06910
06'11
069. .
06950
06. . 2
0197"
06. . .
0'"1
07010

•

5

6
16

01161
U648
01161
06146
01122
011U
00565
00566
011"1
01147
01152
00000
10700
10705
I

0-004
00001364'
06145
1'''0
19811
-6613
-111"
-0000
J0801
JOIOO
00102
00000
00000

10700
00000
06742
00415
00196

00100
00102
011511
00001
00000

011SK
01151
01154
01082
01154
069)8
01157
06.11
01157
07082
06510
07161
06146
07141
07082

00000
0114P
OOO-P
01200
OOO-R
01200
0-001
01200
06510
01200
01157
07157
06)45
1. . . .
00000

II

071"1
07012

001100
00000

J4
II
II
J2

00000
onn
onn
onn
onSl
on41
00000

0010Z
00000
00100
00000
00000
071!J7
00101

15
Zl
27
25

.
n

16

16
16
16
I.

n

IS
)8
I•
45

15
4.
)2
Z6
1"
46
14

..
.,
1.

2"

Z6

Z6
27

".".
ZI

J2
U
14

IOU

1620 "ONITOII
04610
04620
04610
04600

OU, lOUT 1111

-OOU..,

SM
CF

0 ... 110

TYPSEC,OI,IO
TYPSEC-4
~NTY fYPSEC-4
SF
TYPSEC-4
TYPSEC,OI,ID
UPPU,D4,aO
lO~ER ,04,10
8
UREAL
OORG 0-]
OSC
2,22
2l
OS, OUMSY

04720

DC

041 '\0 OUM$'1
04140

OSC
1
DC

~

047-'0

DC

1,080

006~0

04660 FOR~U
04670
04610
0106QO
04700 OUMSW

'10

''MM

Jqaoo

041:100 LOWER

).

Jl
Il
Il
II
69

onlo
2

01120
01121

-1122

I.'
1.1

01122

019800

I

01127
071]0
07116

6

07161
07102

DC
5.0
-0000
DC
5.0
-DODO
DC
1.0

04820 E XAMIN DC

u

10

000-1
00000
00100
00000
000-1
000-4
000-.
00000

07161
071]1
01Ul
011]1
07141
01141
01152

5

-HI)
0,10700'
DC
J0700'
04710 fYP$fC DC
5.0
-0000
04780
DC
1.'

04810

12

01120

041(-,0

041QO UPPfR

PAGE
01022
010n
0106'
010'1
01010
010az
010'6
OHO'
01116
01116

07147
07152

5

07151

•• 0

07157

',0

07161

4

0.4800
5,O,DUMPCC+ll

04800
02615

0

\l675
02/051

0

4

-000
04830 NEWOIM DC

-000
04840 MAPTAtt OS
048'50 LAS T
DC

-0000
Q,CONTRO+62
OS
CNT')
2.0,OUMPCC+41
DC
-0
F IN I SC CF
lERO-2to
TFM
A81+11,TRAIL+19
TFM PUN, •• 23,7l1
8
CARD, JRAt L
FINISP

JI4JO

DC

OUIO

-10

DC

on90
05_00

1>.02100'
-ZSOO'
TCD JACK

on"

05_10

DEliO DUNP

02100

n

1

1031

1620
CONTRa
OIMERR
DIMMER
DMREAD
ORESYR
DUM'CC
ENDres
EQUINO
EROUM'
ERROM'
EUMIN
FIlDDA
FINISC
FINIS'
FOR WAR

MAPTAB
MONCAl
NUOOD
NAMOUT
NEWDIM
NUMOUT
AIO
AI
A2
A3

A4

13"13
06121
06146
06H6
06~06

02604
05314
05482
06217
06116
01151
05_61>
0111>2
07218
07012
04800
00796
06516
06085
07161
06083
OH4I>
03654
01170
03814
01882

MOIIITO~

1

All
AENT
AN

II
82
lEGS
8NII
CAltl
CAlC)
CAIID
CA
tNT2
tilTS
COMPE
tOM
CONI
CONT
COUNT
DATAT
DIIDDA
DUMP
DUMSW
DUNSY
EENT
EQUIY
E~MAP

OUP .OUTIIiI
04012
0000_
05166
03026
on06
OU94
0')62
06501
01>1096
o(oon
OJl90
06100
02611

OUI>'
0'411>
ono.
0309_
06102
01>316
0646.
02500
01114
01n2
00002
16000
0529'0

_O_P
EllIIF
EaRD
E
FILAO
FIN1
FIIID
FOUND
FOUII
INI
INIT
100
10GT
I OPT
IOU
I
JACK

11
lAST
lOOP]
lOOP
lOIlN
LOIIER
l
MCS
MENT
IIAME

PAGE

0(05'2
06116
02138
05U(o
OCtUI
05022
04602
0)Ct22
05)12
0)n2
136_.
00566
00552
00565
02111
07Ct12
03(O)Ct
02615
0_4711
02136
02901>
01152
0(063(0

11118
00003
0(0218

NAM
III-NE
NIIiIT
NUMB
01
,.PE.
PAPST
PUN
RAil
110
IlEAO
IIUll
RM

SAl

SA2
SAFtF

SAV
SC
SENT
SETUP
SPl
STFlG
TD3
TO
TEMA'
TEN

U61,

on..
069)1

UI>U
02641
0)910
012_.
01218
01211
0_4110
onll
on. .
onn

UI>U
UI>"
05"'(0
02965
U6U
0000(0
01282
onJi
04610
0391_
0".0
0"'(0
01 •• 0

13
TONY
TRAil.
TR

rsxc

TWICE

"PI

TYPE
UPPER
UREAL

xx

lERO
SAFODA
SCTEST
SECTOII
SEQUEN
SPECAl
snCAl
TFN~IT

"PEND
npSEC
"PIlltT
lEROU

06911
01212
Q5106
03516
06510
065111
1)641
011(01
01>110
00000
01)12
05UII
0))18
18000
021>27
0. . . .
00U5
05no
03U2
011_1
05510
01299

END OF ONE ASSEM8l Y.

IOU

00010
00010
00010
00040
000.0
000'0
00010
00010
000'0
00100
00110
00120
001)0
00140

......
...
...

eDl.11I

IUD "ONnDA I

SU'ROUTlIIU- DI . . . . . Gn •• G.TL •••_
THIS VIASION OPt.'TII WITII
.EFOAI THE AITUAII TO Till MOlilTaa

Ion

lOCH

OOAG 24U
OS

024"

.sn

os
O~

IOU
OU'"TA TF

.".
.,.5

fF

CALtz.IIEIIOI"
CALCZ .CALC2
CALC1.1I41000
CAlCl.tALC2 .. IIfW DIM SECTD. ADDAESS
O".UD+U.DAUTA
"23.CALCl
DMUD+12.0.10.AOJUST DIM AUDU S A
0"REAO+5.CALCl-1

fFM

tOJtr ••• 21

A

001~0

•• IIII. .T.f ....
III ,DAI TIL JUST

'HI S'L ALwa,s

H
A
TF
TO

OOIU
00. . .
ooMI
OZ·".
OZ4fD
02411
024.4

o
o

DUO.

"
,."

OUI.
025)0
02542
02554

ZI
U
26
I.

16
21

o

OUU

00160
00110
00110
001'0
00200
00210
00220
00110
00140 O"ODA

8
IOCT,O"DOA.J
BI
OOlU• •-.
OSC 2.ll • • DDA 'OA OlllllU-AUDS 0111 SEtTOA

OUlI
02510

OU'O

Z

00250

DSA

_UD

025 . .

5

I.'

-2518

OSC

025 . .
02511

00210 OtIItUO OSC

100

0251.

00260

51!

n

o

00210
OOUO

00]00
00110
00)20 CALC)
00310 CAlC2
00340 ORESTR
00]50 N48000
00)60 CORSIl

Dono

THIIODA

00]80
00]90

OU. .

OC
•• 0
-0000
DC
).1
-01
DC
5.1 . .00
J"OO
OSC I.'

02593

OC
6.0
-00000
DC
5.0
-0000
DC
5 . . . . .0 .. RESlORIS tOAf ADDAESS fDA DIll DOA
J9"0
DC
'.04l000,,'IAsr SEtTOA Of DIM M"
-41000
DC
].010.. THE 'AUINT LENGTH OF THE SPL
-'0
OSC 2.02" ODA FOIl SAVING COAf WHEN MOVING THE fQV. TAllE
02
OSA THROWS

0260.

OSC

4'
42

0''''
OUU
OZ624
OUU
0261.
0260.
000-0
021>07

OUU
0160.
OZ'O'
02601
02541

OUOO

02593
00"5
00'. .
00000

-2511
-2510
00000

x

I

5

021001
OU02

02611
0261.
0262.

6

02627
0262.
026]4
-2636
I

02634
02615

1,'

1033

oOIFIN

1620 "ONITOR I
00400

THltO~S

00410

OSC

o

00410

2

02641

DC
5.02000
-2000
DC
1.100
JOO
DC
5.0 . . 00

00420

PAGE
02636

1.0

02644
02649

-9100

OSC

00440
004~0

1,'

02650
02U]

DIMEU OAt 11.DU"EUOA 00'
DUP.ERAOA 00'
lFM DI"EU+22.007l ••

00460
OOHO ER~O
004'0
00490
00500
00510
00520 PKOooA

~CTY

WlTY OIMERR
H

005]0

B
196 ••• MONtAL
OORG 0-]
DSC 2.22.. OOA FOR SPl ON MODULE ZERO
22
OSA SPLPKO

00540

DSC

I.'

00550 SPlPKO OSt

1.1

02671
02690
02702
02114
02126
02134
02134

13
16
34
119
41
49

02615
00000
026"
00000
00796

0-01\
00102
00100
00000
00000

02740
02740
02141

-2142
I

02742

1

00,.0
00510
00580
00590

02741

DC
5.19.01
J9101
ot
3.100
JOO
DC
5.09800
-9800
DSC I.'

00.00 PKIDOA DSt
22
00610
DSA

2.22..

02750

3

02755

5

02756
DDA FOR SPl ON MOOULE OIiE

02751

SPlPKI

021')

OSC

1,'

02741
02764

00410 SPlPKI OSC

1.3

02765

00620

00640
OO.~O

00.60
00670

oono

3
DC
5.39101
19801
DC
3.100

02770

JOO

OC
5.09100
-9100
DSt I.'

PK2DOA OSC
22
00690
OSA

2.22..
SPLPK2

5 •

-2165
I

5

02773

3

0277.

5

onn
OOA.aa I'L

all MODULI

TIIO

021'0
02116

2

,

.
,

:}

1. .0 .... n . . l
00100

DSC

", .oun ...

-DiPlIl

I,'

OOHO 5'VIZ DSC 1,1
I
00120
DC
1.5. .01
N9101
oono
DC
J.l00

02'"
onn

-n..

on..
on..

,
J

,

JOO
00150

00160 'UDDA DSC

2.12.,

02101
02102
DDA POI 5'L all NODULI THilIE

22
OSA

SPVU

02109

00780

OSC

.

1.'

Oll09
02110

00950 CALC9
00960 CALC4

-ZI ..
1

5

02116
02119
02124

I

02125

00140 CLEVER DC
2.0
-0
),0, tOTAL aLAI'IKS FOUI'IO 11'1 MOVE
ooa~o SAVAIL DC
-00
00860 FOU"O DC
5.0 .. FIN05 SECTOR TDUL
-0000
00870 AORSPL DC
5.0
ADDRESS OF THE SPlIST CORE SEARCH 'OII'lT
-0000
5.0 .. CYlII'IOER SPl
00880 SPlCYl DC
-0000
00a90 SPLCOR DC
S,O •• DIM ADDRESS SPL
-0000
00 .. 00 REPACK DC
2.0
-0
2.0
00"10 UNPACK DC
-0
00920
1,0. ,PACK cONTINUED
DC
DC
R
DC

,•

02111

007'10 SPLPKl DSC 1.7
7
00100
5.79101
DC
pnOl
1.100
00110
DC
JOO
OC
5.09100
00a20
-9aoo
00010
DSC 1 ••

00 .. 40

2

0210'

00710

00930 PACK

J

1

02196

,,09100
DC
-"00
OSC I,'

00140

""

02827
02UO

S

D21.o
021.5
02850
02852
021!!4

2

02855

1.9. ,PAcrt I'IUII FOR SPL 1ST

02856

1.'

02151

OC
6.0
-00000
4,0., CALCULATION AllfA
DC
-000

1

02815

0286J

6

02161

4

1035

1620 II01l1T01I 1
00970 HEX
00980 CONSTI
00990 COIIST2
01000 QURRY
01010 QHOlD
01020 CDNST5
01030 COOjST6
01040 CDNST1
01050 RACKET
01060 STUL
01010 CAlC7
01080 FAKSEV
01090 COIIMDN

OU, ROUTINE

.OEFIN

DSC 1.0
0
DC
6,O"WORK AREAS
-00000
DC
6,0"
-00000
OC
6,O .. fIIIHE"E to LOAD NU T MOVEO SEC TOilS
-00000
DC
•• 0
-00000
DC
•• 0
-00000
DC
•• 0
-00000
DC
6.0
-00000
DC
4,0 •• ACCUIIULATES 2DO SECTDRS FDR A CYLINOEII
-000
DC
4.0
-000
DC
1.0
-00
4,0,. HAS SEVEN FIIDM LUTER
DC
-000
DC
1.0

01100 NOMMDN DC
·0
01110 NDSECA DC

02874

4

6

•
•

02810
028. .
02192

6

•
•

02198
02904
02910

•

02914

4

02911

4

029ll

1

02925

4

02926

2.0

02921

1.0

02929

01120 CONSTe DC
5.0
-0000
01110 EURIT 'FM DIIOERR+22.7179.1
8
ERRD
011~0
01150
DORIO .·3
01160
SU8ROUTINE-GETR
01170
SHIFTS ONE TD IIIGHT IN SPL
01110
01190 GETRTR TF
CALC2,SPLCOR ..
LEFT '.ESENT SPL c •••
AM
01200
SPLCOR.04.IO, LEFT END ~II ENTIt'
SF
01210
SPLCOII .. 6.NEII fUG
AM
01220
CAlC2.07.10,IIIGHT END OP NEil ENT.'
TF
01210
lISTER.CALC2.11
012.0
CF
S'LCOII .. 6
01250
II
DORIO .-9
01260
01270
01210
SUIRDUT I NE-GET.L
SNIPTS ONE TO LEPT IN T. . S'L
01no
OIlOD GEllTR Tf
CALC2 ,S'LCOII
SM
DIl10
S'LCOI.04.10,'ELT 1110 0' 11111 INT.,
DU20
SF
SPLCOII, ,6.
SM
D1UO
CALeZ,Ol,lO •• IIIMT EIID 11111 INUY
Tf
DU.O
LI STI.,CALCZ ,11
·S'LCO. . . .
CF
OlJIO
II
OU60

...

PAGE
021 ••

2

02914

5

D2936
029.1
02956

16
49

026"
02690

0"79
00000

02"6
02 . .1
OZ98D
DlftZ

26

..

01613
02150
DU5-

OJOO.

26

OJOI.
01021
01010

Oll50
00_
00000
0011-1
02'lL
00000
00000

OJOJO
01041

OJO,.

...

0 ....

OlOlI

"ono.

J2
11

026U

n

U

0""
021500000

16
12
II
11

02613
0215.
OilS01613

It, ...,.

II 021561

00000

02150
00_
0_

00II-1
026lL

00000
00000

lUI

1620 MOtUTO" I

DUP "OUTINE

PAGE

eOEflN

01)10
OORG 0-9
01180
01)90
REMOVES AN ENTRY FROM SPL
SUR ROUT I NE-REMOVE
01400
CAlC2, SPlCDR
0"10 REMOrR IF
AM
01420
CAlC2,04,IO,
TR
01410
SPlCDR,CAlCZ,61I,CLOSn HOLE
,~
01 . . 0
SPlCDR, ,I>
',M
O14~0
CAlCZ ,01,10
01460
LISTER,CA"CZ,11
CF
01410
SPlCDR".
8R
01480
OlltqQ
OORG .-9
Ol'lun
INSERTS AN ENTRY IN THE SPL
SU8ROUTINE-INSERT
OIHO

"

OHO.
0)116
0)121
011.0
0)152
OU . .

211

au"

n
.2

OU90
0]202
0)214
0122/1
0)2]1
01250
0]262
012H
Ol2.1>
0)298
OHIO
01322
on14
0314(0
onS4
03154
0)]1>6
03]78
0)]90
0)402
03414
03421>
03418
03440

)2
II>

OU.I
OH90

OI~lO

01'10 IN5[ IR SF
01.,,.0

I'M

Oll)~U

OI':.bO

r IPSv

AM
RNR

UI1)10

IF

01')(iO
01"(10

AM
IF
5M
C
BI
RC TY

01.00
01blO
0162U

01'30
01ta40
010'>0

01060
0lbl0

01680 NERR
O16
49
26
26

11
21>
J)

11
J]

U

OZI>U
OUU
ozuOZI502/11)
09.54
021500000

02150
000-.
OULL
00000
000-1
DULL
00000
00000

028S03237
0)2)7
0]214
02880
02880
05130
05HO
05128
OB54
00000
02856
021>75
02690

00000
-9800
000-4
99999
01211
000-4
02880
-9100
02627
0\100
00102,
00100
OP178
00000

Oza802613
021>13
0261l
028502850
028500000

0323P
02850
000-3
09665
00000
000-4
00000
00000

09657
09656
19885
03956

00000
00000
09661
00000

028500095
02840
02840
09651
09651
03580

OOKOO
00000
00099
000-1
000-5
OOOOJ
00099

017QO

01920

"0

··24,9Q

1620 MONITOR I

OUP ROUTINE

Ol440
03452
01464
03416
03484
01484
0)496
0)50.
03520
03532
03544

)]

12
26
49
13
)2
26
12
13
15

03551>

It}

01568
01580
0)592
011>04
03616
01628
036"0
01652
03664
031>16
031>88

15
II

PAGE

oDEFIN

TOM LI S TE S-4,O,1I
01'30
SM
SPLCOR.O].lo.SeT " HIGH ORDER OF LIST IN CORE
01940
SPlCOR, ,6
01950
CF
LEFT PRESENT SPl C.A.
01960 UYAGN TF
CAlC2,SPLCDR"
AM
SPlCOR,04,IO, LEFT END NEW ENTRY
01970
Sf
·SPlCOA., .,.NEW FLAG
01980
CAlC2.01,IO,RIGHT END OF NEW ENTRY
01990
AM
02000
TF
L1SfER.CAlC2.1l
SPlCOR, ,6
02010
CF
CM
LI S TER-], 90101\
02020
ijE
AOOOlK
02030
I F WORK AREA EX IT
CM
II STER,OOOI ,8.
02040
PlUSSR+24
02050
8E
TF
NEWOI M,L1 STER
02060
OIMMER.DIMMER-1
OT
02070
roM
19880,0.11
02080
MM
19881.05.1011
02090
TOM
02100
19881.1.11
_+24,99, ,
MATCH-UP THE TENTHOUSANOS pas IT ION
02110
80
TOM
19681,0.11
02120
SM
19885,01,10
02130
19885,ADRSPl
02HO
S
8E
02150
··24
40RSPl.19885,
,SUBTRACTS THE BICKHOW
A
0211>0
ADRSPL,19888 .. ADD THE SECTOR COUNT Ta SECTOR POSITION
~
02170
AORSPl,lISTES
PlUSSR
02180
C
TRVAGN
02190
8l
TF
FOUNO,ADRSPl
02200
GOONY
02210
8
OORG '-1
02220
ADO THE BLANK SECTOR COUNT
LISTER-2."
02230 AOOBl" SF
022'0
ROUTINE FOR lOCATING THE .CORREtT SPL IN CORE AND
02250
DIRfC TlNG THE 1I STER TO THE CORRECT CYLINDER ENT"Y
02260
02270
A
AOR SPl,U STER
02280
C;F
L1SfER-2
02290
PlUSSR
B
02300
OORG o-l
02110
02320 SPLIST TOM 19880,,11,FlAG ZERO
M!4
19885,05,10
02110
SF
9,.. "DESIRE,O CYLINDER
02340
SF
93
021~0
TO
STAROT+I0,95
02160
TU
STARDT+1I.96
02370
REPACK,94
IF
02180
lISTES-5,05,10
MM
02190
8D
·']2.99 •• SIGNIFICANT OYERRIDE CODE
02400
TF
94,REPACK
02410
REDSPl
B
02420
OOIl.G 0-3
02410
MM
LI STE 5-5,50000.7. GENERATE PROPU IlClDUU nOli OVUlaE COOE
02440
94
SF
02450
REDSPl
8
02460
OORG 0-3
02470
02410 SPLINI TFM ADRSPl,09l00

onoo

03712
03724
0]116
03148

onl>o

03772
OH84
01796
Ol808
0]820
0)1)2
03844
03856
01868
03810
0]892
03904
03912
03912

03924
019)6
0)941
0)956
03""
03968
0]910
0199Z
0400.
04016
04021
04040
04051
0406.
04016
04014
04014
04096
04101
G'U16
0.n6

49

09657
02850
028502613
02850
028S02613
09654
028509651
03912
09654
03892
09649
09600
19880
19881
19881
01808
19881
198U
19885
01856
02840
02840
02140
03604
02835
09638

0000000-3
00000
02850
000-4
00000
000-7
021>Il
00000
OOO-R
01100
0-001
01200
09654
09599
0000OOO-N
OOOOJ
00099
0000000-1
02840
01200
19885
19881
09661
01100
02840
00000

12

09652

00000

Z1

02840
09652
0)868

09654
00000
00000

19810

)]

26
11
)2
11
26
)]

14
,,1>
H

46
26
27
IS
13
15
41
IS
II
Z1.
46
21
21
Z4
U
21>

])

49

II

l . .as

)2
12
IS

00094
00091
04174
04175
OZ852
09656
04014
00094
04220

0000000-5
00000
00000
00095
00096
00094
000-5
00099
02151
00000

.9

0"651>
00094
OUZO

NOOOO
00000
00000

16

02140

-9100

II

U

26
U
4)

26
49

Ii
JZ

1037

6

n

,It..'

IO~1:i

'J

1610 lIOM"oa
02490 CLUCK

onoo
onlo

SF
TF
AI'

DU' 1l1li"'"

eDtf'1I1

PAGE

AOISPl •• 4
SPlCOI.ADU'L
S'LCOR.O).IO
SPlCOR.7000 ....
SPUXT
AORS'L •• 6
AORS'l.04.10
CLUCK

02520 STUDT CII
fillD THI COI. .CT CYlIIIDER Ell,.,
025~0
BE
eF
02540
All
02550
02540
1
OORG e-)
02570
02S80 •••
ROUTINE TO IIRITE "CK lIST ALRUOY I II COlE I f NECESSARY
94.PACII
02590 REDSPl C
8£
02600
SPLINI
CII
'ACII,09,I0II,FIRn
02610
TIIIP
TF
UNPACK,94
021>20
026]0
BE
SPOil
PACK.OO,IOII, 'ACK ZERO
02640
e"
02650
WRTSPO
8E
CM
PACK,OI,IOII,PACIL ONE
02660
BE
WRTSPI
02670
eM
PACK,02.10ll, PACII TIIO
02680
WRTSP2
02690
8E
WRTSP) .. , PACK THIlEE
02700
B
OORG .-)
02110
02720 WRTSPO TFM 10RT ,.+23
I OPT ,PKODDA, 7
8
02710
SPORT
02140
B
OORG . - )
027~0
02160 WRTSP I TFII IORT,-.23
IOPT,PKIOOA,7
02710
8
02180
8
SPORT
02190
OORG . - ]
02800 WRI SPZ IFII IORT.-.23
10PT, PK2DDA, 7
02810
8
8
SPORT
02820
DORG . - ]
02B10
02840 WRISPl TFII lOR T ,-+2)
I OPT, PK]DDA, 7
02B~0
B
02860
ROUTINE TO BRING IN DESIRED SPl If NOT ALREADY IN CORE
PACK,UNPACK, ,SAVE PACK NUM
02870 SPORI TF
CLEVER,IISTES-It
028BO
10
SF
02890
CLEVER
MM
USl[S-4,O~,10
02900
e+24,94
02910
80
SM
02920
CLEVER,OI,IO
CM
PACK,O,lOll, PACK ZERO
02030
02Q40
BE
REOSPO
02950
eM
PACK ,1 .1011. PACII ONE
02960
8f
RfCSPI
02970
CM
PACK,2,lOll. PACII TIIO
RFnSP2
02980
8E
SPLPK]+ I,ClEVER
02990 REOSP) TO
TFII IORT,.+23
01000
01010
JOCT,PK300A.7
0]020
R
SOllNI
01010
OORG ·-1
03040 REOSPO 10
SPlPKO+ I.CLEVER

"

1620 liON I TOR
03060

TFM
8

03070

R

OlO~O

DUP ROUTINE

01250
01260
01270
01280 SPLR2
01290

OSC )'1
I
DC
5.19]38
H138
DC
1,025
-25
~,02458
DC
-2458
DSe
I,'
ose
22
OSA

49

000. .
04116
02156
02U4
04410
02156
04160
02156
04)92
02156
04424
04456

02154
OUOO
OOO-R
00094
01200
000-01200
OOo-J
01200
000-11
01200
00000

49
49

00565
005)2
04480

-4]f)
-2U4
00000

49
49

00565
00532
04480

-4415
-2751
00000

04448

49
49

00565
00532
04480

-4447
-2180
00000

04456
04456
04461

16
49

n0565
005]2

-4479
-2aO]

21>

..
49

02856
02821
02827
091>57
04552
02827
02856
04668
02851>
04712
02156
04756
02812
00565
0051>6
04116

02854
09657
00000
000-5
00099
000-1
000-01200
OOO-J
01200
OOO-K
01200
02827
-"659
-280]
00000

25

02743

02827

04680
04692
04704
04712
04112
04724
OH36
047U
04756
04751>
04768
04710
04792
04100

16
49
49

00565
00566
04 1I I>

25

021" , 02821
00565 -"747
00566 -2157
04116 00000

OUOO
0"112
04824
04136
04848

16
49
]6
49

04116

0'l"
04200
04212
04220
04220
042)2
04244
04256
04261
042.0
04292
04104
04316
04]28
04340
04352
04360
04360
04)72
04384
04392
04)92
0.404

r,""16
04424
04424
04416

0"480
04492
04504
04511>
04528
04540
045~2

0456.
04576
04588
041>00
04612
0"624
0"636
0"648
04660
041>61
0'''8

11
14

U

11

24

14

26

14

14

14

..

16

..

2~

]2

IJ
4]
12
14
.. 6
l'
41>
1"
41>
25
16

16

49
49
25

16
49
49

0485)

1

IU39
PAGE

OORG 0-]
10
SPlPKI+I,UEVER
TFM
IORT, •• 23
lOGT,PKIDDA.7
8
8
SPUNI
OORG . - ]
TO
SPlPK2+I,ClEVER
O)(~O
TFM IORf.e.23
8
IOGT,PK2DOA,7
01160
0]170
8
SPUNI
DORG .-3
0)(80
ROUTINE TO LOAD THE SACRED SIX TO DISK IIHEN lOADING FROM CARDS
01190
01200 SPLFL TFII IORT.e.23
B
I OPT ,SPLR2, 7
012\0
TRA
03220

032'0

00000
02140
000-)
OPOOO
OUOO
00000
000-4
00000

12

oDUIN

IDln,-+21
lOG T, PKODDA ,1
SPUNI

03080
01090 REDSP I
03100
01110
0)(20
03130
0)(40 REDSP2

0'230 SPlRI

."
.
..
....
.

02 ....
02110
OUIO
OUI0)414
OU4OU"O
0412.

041Z1
04140
04152
0'l44

I

-4703
-2714
00000

02789
00565
00566
0"116

02827
-4791
-1710
00000

00565
005]2
00000
00000
1

-412]
-486]
00500
00000

5

0"56
04861
04862

2,22

0486)

SPlRI

04869

01100

D~e

I,'

04169
04170

03110

Teo

SPlFL

04100

5 X

-48".I

0]]20
0:3))0 •

DODO
0 DO
0
0
0 DO
DODO

03140 •

0]]50 •
03160 •
0]]70 0
0]]80
0]]90
0)400
0]410
0]420
OlUD
0)440
0]450
0141>0
0)470
0)480

EEEEE
E
EEfE
E
UEEE

FFFFF
F

FFFf
f

F

III
I
I
I
III

N
N
liN N
N N N
N liN
N
N

EEEEE
E

fEU
E
IEEEE

THE DEf I NE PROGRAII FOIl REDEFINING THE SYSTEM PAUIIETERS
DORG 5000
lOll 11175,00000
DC

05000
05000
05011

15

1]175
I

00000

TR
HII

05012
0502.
050)6
0504.
01016

JI

O9JJ6

.9

14

00565
00566
05174

116U
-5047
-5056
00000

1.·.·

9))6,1)612 .. TRANSII" THI DEFINE CONTROL CAIIO
101lT, . . n
IOGT,SlIPlIy.7, .IING III THI SECOND AllY lIlIIIAGI
8
DflNE
OORG .-J

B

49

loh

1620 MONI lOR 1

OU, ROUUNE

_OIF IN

'AGE

OH90 SlIPRV DSC
22
01~OO
DSA

2,22.,
IABC

0'062

OHIO

DC

I ••

05062
0506)

01520 TA8C

DSC
1.1
I
DC
5.18197
JOI97
DC
1.001
-01
DC
6,09500'

0)5]0
O]HO
01550

DDA FOR IHE SAtRED SlI SECOND.I' LIII"'"

9

D'DU

-5064
I

05064

5

05069
05012

6

0507.

-91)00'

01560 IRWSL 0 DSC
12
0]510
DSA
o3~80

DC

2.22 ..

OOA fOR SHIFTING IHE EQUIVALENCE LIST

05079

SLOEQV

05015

I,'

05015
05086

5 I
-5011

I

05081

1.0
015'0 SlOEQV OSC
0
01600
UC
5.0
-DOno
],060
03610
DC
-60
'5.09800
01620
DC
-9800
OHt30
DC
I.'

05092
05095
05100

5

05101

03640 TRW flO DSC

2,02 ..

05102

2

01650

02
OSA

TLOEQV

05108

5 X

03b60

DC

I.'

05101
05109

DOA fOR SHIFTING tHE EQUIVALENCE lIS1

0)&70 TLOEQV DSC

05110

03b80

05115

036QO
0)100

03110

1.0
a
DC
5.0
-0000
].060
DC
-60
DC
5.09800
-9800
I ••
DC

05118

]

051Z1

5

051H

03120 CaNSO DC

6.0
-00000
lO,O
03730 ZEROES DC
-000000000
03740
USC 2.a.,EXTENSION Of ZEROES
00
037S0 CURREN DC
3.0
-00

1620 MONI IDR I

OUP ROuTINE

05110

6

05140

10

05141
05145

1 (/ ~.I

PAliE

-OEFIN

DC
-9'
OSC
0
03780 OUPCRO OSS
037QO SARB
OSC
22
03800
OSA

1&2,9331
2,22 .. OOA fOR COMMUNICATION SECTOR ON DISK

09331
05150

SARC

0515'

03810

DC

1.'

05156
05151

03820 SARC

OSC
1.1
1
DC
5,19639
J9639
3,001
DC
-01
OSA OflNE

3,099

0)710 KEYS

1,0

05149

03840

03850
Ol8bO

DC

I ••

03870 DFINE
03880
038'0
03900
03910
03920
03930
03940
03950
03960
03910
03980
03990
04000
04010
04020
04030

IF"
BT
IF
ID
TO

NEWDIfIl,OOO... 8

04040

W

TO
TO
TO

SF
SF
C
8HE

IFM
8T
TF
CF

n

SF
04050
04060 SANDOR MM
80
04010
80
04080
04090
80
04100 LENSC T 10
TO
04110
10
04120
SF
04130
SF
04140
041'0
C
.,.E
04160
04170
C
BE
04110
If 14
04190

OIMMER.DI .... H-I
CORSIZ.l98.8
SURli NG SEC TOR FOR WORK AREA
CALC9-I.DUPeRD+20
CALC9-2.DUPCRO+18
C4LC9-1.0UPCRO+16
CALC9-4.0UPCRO+14
CALC9-5.0UPCRO+12
CALC9-5
OUPCRO.II
OUPCRD+Z2,ZEROU+2 •• WAS THIS FJeLD BUNK
SANDOR
NE"OI".OOOI.'
OI .... ER.OIM ..U-l .. IRING IN WORK AREA DIM
CAlC9.19IU
CALC9-4
CAlC9-5.19I1D
CALC9-5
CALC9.05,9.USEO FOR CYLINDeR NUMBER ALSO
ERRORI.97 .. 1S SURT IIF SCRATCH AT BEGINNING OF CYliNDeR
ERROR I ,.8 ..
CALC9.DUPCRO+22. ,

EIUtOIU. '9 ••

CALC4-I,O\JffCRO+JO. ,NUMIER OF CYLINDERS REQUESTED
CALC4\-2.DU'CRO+21
CALC4\-3.Du,cID+a6,
CAlt.-Z
OupCAD+n
oupc:aD.lo,UADU-4, ,
liAS THII 'IILD aUNK
eNU"
DUPCRDoal.lliol •• '
ESOR
,.EWDIM,OOOI ••

10

05148

037bO LIMJ'

03830

-5110
I

162
2

5 x
-5158
1

05158
05161
05166
5 x

05111

-5174
1

05111
05112
05174\
05186
05198
05210
05222
05114\
052.6
05258
05270
05212
0529.
05306
05311
05]]0
05342
05U4
053"
05371
05390
05402
05414
05426
05418
05410
05462
05474
054"
0'4"
01110
O'UI
01114
0'146
0511.

I.

Z7
26
25
2S
25
25
25
25
32
32

24

47
16
Z7

lI>
)]

25
32
U

u

U
U

l5
l5

"a.
U

..
J2

u

II

09649
09.00
OZ627
OZ861
02862
02861
02860
02859
Oll58
02858
09348
09359
05'102
09649
09.00
02863
02"9
02151
02151
02861
056.8
056.8
056. .
02 . . .
021.,
02 . .4
0''''
on6'
onn
06016
on. .
06110,
0"4'

0-004
09599
19888
09359
09357
09355
09353
09151
09149
00000
00000
051102
01200
0-001
09599
19885
00000
1"10
00000
00-05
00097
OOOtl
00099
09167
0.,.,
09163
00000
00000
O'U6
DUOO
01l4l
OUOO
0-001

I
().')

':>
IIIU

IUD _ n o a I
0~200
0~210
o~no

O~UO
0~2~"

O~UO
o~Uo

O~HO

04210
04290
OHOO
0~)l0

OH20
04])0
OU40
OH50
04)60
04370
04180
04390
04400
04410
04420
04~)0

OH40
OH~O

04460
04410
04480
Olt4C)O

IT

IMW lOUTI",

PAGE

-Dl'11I

OIMMEII.OIMIIU-I
CAlC~-" 1 . . . . . .
CAlC4-2
CUIIREN.lIMIT
CUltIlEN-1

O~IJO

Tf
SAVE OLD CTllNDtI CDUNT
SF
PKROOII TF
SF
SF
n
CUltIlEN.96 .. TO fINO AllOWAllE CTllNOEIIS LEFT
S
CAlC4-I.CUltIlIN
C
8NH IIDIIENF
TFII DIMER,II+u,nn,.
EIIRO
8
DOItG . - )
EIIIIORI T'" 0IMEIIII+22,1I72,'
EIIIID
8
1l0RG .-)
WILL THERE 8E ENOUGH 1t00M TO MOVE THE IIOIK I IIG AllEA
ROIIENF TF
lISTES.CAlC9
TFII UGONE.30,·+20
S
FIND
OURG '-3
TFM AORSPl.OO.IO
SCAASN CII
LISTER.9200 ••• IS THIS ARU AVAILAILE
_+36
8E
CII
LlSTER.OOOI.1
S'IE ERRZ)
AM
AORSPL.OIOIO
AORSPL.CAlC4-1 .. HAVE ENOUGH CYLINDERS IEEN FOUND
e
8E
FIXEOV
BT
GETR.GETR-I
GfTR.GflR-1
~T

04~OO

H

,onll
055••
OU06
05611
05610
OS6.,
OU54
05666
05671
056.0
0""
0"91
05110
05118
0511.
OS730
05142
05150
05750
05162
OSl1~

051 ••
05191
05810
05822
058)4
058.,.
'j~t·~8

M810

se~ASN

04510
IlORG . - \
04510 F IXEQV rFM 'lEWD I M.I. 8. SCRATCH ENTRY
04~)O
Rf
OI~MER.OIMMER-I
04540
UHES.19885
rF
041j~O
lIHES-5.19810
TO
TFM Rl GONE+30, •• 20
04560
04~70
S
FINO
I)ORG . - )
04580
Olt1j90
TFM lISTET.9200,8
0460n Doe
eM
lISTfR,OOOl,8, I S THERE MORE WORK AREA TO EUSE
04610
SlEfPY
SNE
8T
REMOVEo~f MOVE-I
04620
I N~}E~ T, 1 NSER T-l
04630
BT
GETR,Gf:TR-l
04640
6T
04650
oDe
8
04660
!I0R~ '-1
04610 E~UfF CM
(..4'.(.4-1,11,10, ARE THEllf LESS THAN ELEVEN CYlINDERS DESIRED
04680
PKkOOM
RNL
04690
TFM O:""FFlh.?2,1018,.
04700
B
ERRD
04110 SLEEPY TfM usrEY.oooI.e
rr
04120
L1STES,eALC9
04730
TJ="" RlGONE+30."2Q
04140
B
FINO". IIHERE THE NEW WORK AREA WILL BEGIN
OORG .-1
04150

zr

I ....
00000
051'11
00000
00000
00096
05145
01100
0'173
00000

02615
02690

OP112
00000

26

09661

"

096~4
095~0

0286)
-5750
00000

16
14
U
14

02840
096"
05110
09.54
0'212

26
12
26
JZ
Jl
a2

z.

U
16
49

..

16,

~9

41
II

,.

02'~0

46
21
21
H

05.1.
09520
09520
05162

16
U
'6
25
16
49

09649
09600
:19661
, :656

oza~o

It

on••

0.600
OU66
021n
O!UU
O"~~
000.5
"145
OU"
05711
Dun
02690

000-0
OR200
01200
0-001
01200
000-1
02866
01200
09519
09519
00000

0~8f8

05818
OS890
O~qOl

05914
05926
05938
(15946
05946
05958
05910
05Q82
05994
060011
06018
06026
06026
060)1
06050
06062
06014
06086
06098
06110
06111

\6
14
H
21
21
21

"
14
46
16
49
16
26
16
~9

0~644

09S40
09665

09654
0601.
09560
09510
09520
05958

0-001
09599
19885
19880
-5946
00000
OR200
0-001
01200
09559
09519
09519
00000

01866 OOOJI
05606 01300
021>15 ' OP018
02690 00000
09665 0-001
09661 02863
09644 -6118
09540 00000

11143
1620 ~ONITOR I
04160
04110
04180

TF
e~

Olt790 LUCKY

04800
04810
04820
048)0
04840
04850
04860
04810
04880
04890
04900
04910
04920
04930
04940
04950
04960
04910
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

SNE
ST
8T
S~

eM
SNH
LOUNGE eM
8E
eM
SNE
8T
8
OORG
ERR21 TFM
8
OORG
F IXSUP TFM
8

TF
SF
CF
TF
SF
CF
TFM
B
NUMMOO TFM
BT
TF
SF
CF
TF
Cf
TFII
8
BOR
SF
eN
8E
TO

CM
8H
CII
8Nl
TFM
B
DORG
NEW TOT DC
-000
05250 OLOTOT OC
-000
05260 ODIM
OC
-00
05210 OEQV
DC

AORSPL.eALC4-1
LlSTER.noo.8
ERR2)
REMOVE.REMOVE-I
I NSER T. "~SERT-I ..
ADRSPL.OI.IO

OUP ROUTINE

PAGE

.DEFIN

S TUff I N THE NEil 1I0RK AREA

AORSPL,OQ,lO

FIXSUP
1I STER.'I200.1
LUCKY
lISTER-3.1,lOl1
ERR23
GETR.GETR-I
LOUNGE
'-3
0IMERR+22.11 n.8
ERRO
.-]

iORT,.+23 .. LET 10RT I N ON THE SECRET
IOGr.SU8.1
00425 .CAlC9-2 .. WORK AREA CHANGEO III COMMUNICATION AREA
00423
00422
OFI NE+2)'CAlC9-2
OFINE'21
OFINE+20

10"T,·.23
IOPT.SAR8.1
NfIlDIM.000I.8. LET THE DIM TABLE IN ON OUR SECRET
OIMIIER.OIMMER-I
191n.CALC9
19881
19880
19888.CALC4-1
19181
IORT."23
I OPT .DIIDDA.l
OUPCA.O+ll" • HOII ARE liE FIXED FOR NUM8ER OF IIIlDULES
DUPCRO+l4.00.10
AU
CUltREIj-I.OUPCR0+14 •• THERE WAS SOMETHING THERE
CURREN-I.04.IO. IS MOOUlE NUM 4 011 LESS
··36
CURREN-I.OI.10

06111
06110
06142
06154
06166
06118
06190
06202
06214
06226
06238
06250
116262
06274
06282
06112
06294
06)02
06)02
06314
06326
06338
06)50
06362
06314
06386
06398
06410
06422
06434
064"
OU5.

26
14
41
21
2J
12
14
41
14
46
14
41
49

02840
09654
06282
09560
095.0
02840
02840
06302
09654
0615.
09651
06282
09520
06214

02166
OR200
01200
09559
09519
000-1
000-0
01100
OR200
01200
OOO-P
01200
09519
00000

16
49

02675
02690

OPI13
00000

16

00565
00566
00425
00423
00422
05191
05195
05194
00565
00532
119649
0,.00
1'815
191.1
19.10
19. . .
19. . ,
00565
005)2
09)10
onn
06660
05144
05144
0 . .26
05144
06. .0
OUU
0'690

-6125
-5150
02161
00000
00000
02161
00000
00000
-6421
-5150
0-001
09599
IlZl6)
00000
00000
02166
00000
-6529
-2510
00000
000-0
01200
09UI
000-4
OllOO
000-1
01300
OP111
00000

21

~9

26
32
J)

26

12
))

16
~9

16

21
26
)2

06~10

n

U

OTMEAR'22.1I11.1
fUD
'-3
4,0

06412
06494
06506
06511
065)0
06542
06554
06566
06571
06590
0660'
06614
0"'6
0 . .11
0 . .46
0....

4.0

0"1)

4

3.0

0 . .56

)

).0

066"

j

AU

-all

))

16
49
)2

14

"

IS

14
46

...
l~

16
49

12

4

to 44
·... - _ ..

"r·_··~·

1620 liON ITO_ I
05210 AU
05290
05100
05310
05]20
OH)O
05)40
05350
05]60
05170
OHIO
05390
05400
05410
OH20
05')0
0')440
05450
05460
05410
0")480
0'5490
0-)")00

055[0
05"20
055)0

DU' _OUTINI

'AliI

.0lfiN

lUNG IN 0111 SECT~ COUIIT
CALC4-I.DUPC_D+.2 ••
CALC4-Z.0U'C_O+.0
CALC4-3.0UPC_0+JI
CALC4-3
I_ING IN THI lOY TAILf SlCTO_ COUNT
CALC 1 .aUPc_a+50 ••
CALC1-I.DUPClO+.I
CALC1-2.DUPClO+.6
CALC 1-2
~AING IN OLD DIM AND lOY ENnns
TFII NEWOIM.0002 ••
8T
OllllleR.DIMMI_-I
IF
OEOV.I . . . .
lOll NEWDI II. 3
8T
DIMMER.OI lillER-I
IF
00111.19 •• 1
A LITTLE MATHMETICS TO SEE IF THE DIM PLUS THE EOY
TARLE TOTAL HAS INCRUseD D_ AT UAST TUEO
SF
OUPCRO+45
SHOULD OLD EQY LEIOIGTH liE USEO
C
OUPtAO+50 .lEROES-4 ••
6NE
·.24
TF
CALC7.0EQY
TD
TU
TO
SF
TO
TO
TD
SF

"

C
6NE
IF
IF
CF

OUPC.RO+]7
OUPCRD.42, ZEROeS-it.,

·.2'"
CAlC4-1.00III

SHOULO OLD Dill LENGTH IE USED

NEWTOT .tAlt 7
NEWTOT-2
NEwTOT .CALC4-1
IF
OLOTOT.OOIM
CF
OlOTOI-2
0')")80
A
OlOTOT .OEQV
IS THE TOTAL LENGTH OF THE TWO TAILES LONGE
01)').90
OLOTDT ,NEWTOT ••
C
CONTI N
05600
8NL
05610
S
NEWTOT .OLDTOT
TFM Ll S TE S. 04800
05620
05630
TOM LlSTES-5ol
056ltO
A
II STE S.OLOTOT
05650
TFM Ft.LGONE+30.· .. 20
FINO THE END OF THE OLO EOY TA8LE
B
FINO •• ,
05660
0';610
OORG ·-3
0';680
TFM CO,..ST5.000.8
0';6'W S4RJ
CM
lISTER-).9ol01l
6NE
ERROR8
05700
01) 110
SF
II STER-2
A
CONSI5.LlSTEA
05720
CONST5,NEWTOT,. HAYE ENOUGH BLANK SECTOAS 8EEN FOUND
05730
C
05140
BNl CONTIN
BT
GETR. GE TR-I
05750
0')160
CM
LISTER-3,1.l0ll
05110
BE
·-24
SARJ
05780
6
05790
OORG ·-3
DIMERR+22,1018,8, NOT ENOUGH AOOM AT SPEt lEO LOtATION
05800 ERROR8 TFM
05810
E.RO
B
05820
OORG ·-3
058]0 CONTIN SF
OUPCRO+J7

0~540

05550
05560
05570

A

06660

O..U

25

n

0661.
066. .
06701
OUZO
06U2
067••

IS

061'16
on. .
06110
061.2
0610.
06116

16

06121
01>8.0
06852
06164
0 ... 76
06".
06900
069U
06924
06936
06941
06960
06912
06984
06996
07008
07020
07032
070H
07056
07068
07080
01088
070'8
07100
07112
07124
071]6
07148
07160
07172
07184
07196
01208
07216
07216
07228
07236
01236

1Z

n
n
n

J2

02166
02 . .5
0216.
02 . . .
02921
02920
0291.
0291.

oun

00000
09317
Dun
09383
00000

O-OOl

096 ••
09600
0 . .59
0964'
09600
06656

0.599
191.'
0000]
09599
19811

09)12
09)81
06876
02921
0937'0
09179
06924
02866
06649
06647
06649
06653
06651
0665)
06653
07236
06649
09661
09656
09661
09644
09540

00000
05U6
01200
06659
00000
05136
01200
06656
02921
00000
02866
06656
00000
06659
06649
01300
06653
-10800
00001
06653
-7088
00000

32
21
24
46
27
14
46
49

02898
09651
07216
09652
02898
02898
07236
09520
09651
01172
07100

0-000
OOO-R
01200
00000
09654
06649
01300
09519
OOO-P
01200
00000

16
49

02675
02690

OP078
00000

12

09374

00000

n

26

as

n
U

]Z
24

47
26
32
24
41
26
26
J)

21
26
)J

21
24
46
22
16

15
21
16
49
16
14

H

U

09319
09371

1045

1620 MONITOR 1
C
BE
CM
BNl
TFM
6
OORG
TFM
BI
TF
t
BE
TF
TFM
8
059QO
TFM
TFM
06000
6T
06010
06020
TF
06030
TF
TF
06040
06050
TO
HM
06060
06070
8
TFM
06080 HERO
06090
8
HM
06100
8
06110
AM
06120
AM
06130
SM
06140
6NF
06150
TOM
06160
TOM
06170
TFM
06180
TFM
06190
A
06200
06210 JANITO tM
8NH
06220
TFM
06HO
06240
8
HM
06250
8
06260
AM
06210
AM
06280
SM
06290
06]00
8
DDRG
06]10
06320 MELANt TF
TFM
06130
06340
8
06)50
Tfl!
06360
TFM
06HO
TFM
0.380
8
06390
05840
05850
05860
05870
05880
05890
05900
05910
05920
05HO
05940
05950
05960
05970
05980

•

OUP ROUTINE

DUPCRO+42, lEROES-4.,
EQVlEN

PAGE

-Of FIN

WAS THERE ANEW OIM TABLE LENGTH

CALC4-l.03~,9

.+ 32
01 MERR+22 ,1078, 8
ERRO

IOPT,THRDOA,l
PREPARE TO SHIFT THE EQUIVALENCE TAIlLE
IORT ,.+23"
IOGT.TRWSLD,l
IORT,.+23
IOPT.TAWTLO.7
SLDEOY+5,60,lO
T~DEQV+5.60.IO

CONST2.60.10
HERO. tONST2
IAWSLD.O
IRWIL0.2
SLDEQV.5.01000.7
TlDEOY.5.04800
TLDEOY+5.CALC4-1
CALC7.060.9. NAJOA SHIFT OF
MELANt
IORT, •• Z)
IOGT.TRWSLD.7

IOUI~ALENCE

UIU

JORT,.~23

10PT.TRWTLD.l
SLDEOY+5.0lo0.'
TlOEQY+5.060,9
CALt7.060.9
JANnO
.-)

MINOR SHIPT OF EQUIVALENCE TAaLE

IORT,a+Z)

10Gr • TIIWSLO.1

10RT, •• 2)
10PT.T_WTLO.l
TLOEQY •••• 0.9

IORT,·.23
10GT.TH_DOA.l.

24
46
14
46
16
49

09379
08400
02866
07B6
02675
02690

05136
01200
00-35
01300
OP078
00000

01316
07328
07340
07152
013104
07316
01311
01400
07412
07424
07436
07448
07460
07472
07484
01496
01508
01520
07532
07544
01551>
075.1
07580
01592
01604
07616
01621
01640
01652
01"4
07616
Olio. .
07100
07112
07124
01136
01141
on60
01172
onl4
01192
01192
07104
0111.
Olin
011.0
01112
07. . .
07"6

16
27
26
24
.10
26
16
49
16
110

09649
09600
05130
05130
01400
19888
00565
00532
05115
09649
09600
02921
02810
05092
05087
0051>5
00532
00565
00566
00565
00532
05092
05115
02880
07520
05079
05102
05092
05115
05115
02921
07192
0051>5
005".
00565
00§)2
05092
0'115
02921
01616

0-003
09599
19888
02866
01200
028610
-7411
-2580
-1000
0-002
09599
19888
19888
19885
19880
-7519
-2621
-7543
-5019
-1567
-5102
00000
00000
00000
02880
00000
00002
-1000
-4800
02866
00-60
01100
-7123
-5079
-7141
-Sl02
00-60
00-.0
00-100
00000

05111
00565
005. .
00565
00U2
0'111

02921
-1121
-5019
-1151
-'102
00-60
-7111

onu

.-)

NEWD I M,0003, 8. NEW DIM LENGTH SPECIF lEO
OIMMEA.OIMMER-1
CONSH.19888
CONsn.CAlC4-1
EQVLEN
19688 .tALC4-I .. SET NEW DIM LENGTH
IORT,.+23
IOPT ,0MOOl, 7
TLOEQV+5.01000,7
NE'IIIOI",2,8. EOV TABLE
OIMMER.OIMMEA-l
CAlC7.198B8
CONS12.19888
SlOEQV.5.19885
SLOEQY.I9880
IORT, .+23

TLDEOY+ •• CAlCl ••

07248
07260
01272
01284
07296
07308

_1'lUH THI e~1 ,aall ~ISK

21
26

26
26
25
16
.9
16
49
16
49
11
11

12
44
15

15
110
110
21
14
41
16

..
16
49
11

II
1l
.9

u
16
.9
16

.,
16
16

OO,U

•• 00'"

14

~}'\

-un

111411

1620
0 .... 00 NURSES SF
0 .... 10
C
SNl
0''''20
064)0
TF
5
0' ...... 0
0' .... 0
TF"
8T
0'''''0
TF
0''''70
TO
0.410
TFII
OH.O SARI
06500
8
065\0
S"
CII
OU20
065]0
8E
All
06540
06550
8
DORG
06560
06570 DUMOIM DC

1I000nall

I

au .. lounlll

CONSf),CALC"'-1
!QVl!N
CONST5,CALC"'-1
CONsn,CONSTJ, ,
NEIIDI"'OOOZ,'
01 M"EIl, 0 I MMfII-1
SAIIM+', I . . . .
SUH,I."O
10Rr,o+Z]
10'T,SAU,1
CONsn,OI,IO
CONST5,000,'
EQYlEN
SARH+5,01,11)
SARI

HUMIE" OF UClOllS ADDED

.-]

1.' "

'AGE

-OIPI"

KlY5

DUMMY SECTOR Fill

01'"
0"00
079U
0192_
0191.
01 .....
01. .0
01912
01.n
01 •••
01001
0.020
080ll
0.0......
080.6
0.061
08016
08016

DC

065'lO

DSC 18,0
000000000000000000
1 ••
DC

080'l6

06610

DC

08091

06620
06630

DSC
18.0
000000000000000000
DC
1.'

06640

DC

06650

DSC 18,0
000000000000000000
1 ••
DC

08118

06610

DC

08137

06680

OSC
18,0
000000000000000000
1 ••
DC

08156

06100

DC

08157

061\0

OSC 18,0
000000000000000000
osc 2,22 t t ODA FOR FilliNG IN .UIIK DIM SECTORS
22
OSA SARH

06660

06690

06120 SARF
06730

2_

....
26
22
16

Z1

at
2S

,

...16
U
I'"

....
11

.9

0.1 ....
0'130
0 .... 00
0219.
0219.
O"U
0 . .00
OIL 19
0.1 ....
00.61
OO.Jl
OU9I
02'"
0 .... 00
0.1 ••
01996

U

00000
Ole66
01300
02166
0'130
0-002
0.'"
19115
1 . . 10
-.01.

-'116
000-1
00-00
01200
000-1
00000

08071

06580

06600

JZ

1.0

0801.

100

I.

08098

1.

08116
08111

1.0

18

08136

1.0

08118

1.0

U

08158

18

08116

2

08182

06740

DC

I.'

08182
081U

06150 SARH

OSC
I

1.1

0818'"

5 X

-8184
1

IfH7

1620 MONITOR

OUP ROUTINE

06770
067BO

06700

DC

1.'

06800
DORG 01400
II NKAGE TO CALL IN PHASE TWO AND EXECUTE IT
06810
06820 EQVLEN TFM lOR T. -+23
068]0
JOGT,SAR.K,7
H
OSC Z,-22
068"'0 SARIC;
2K
06850
OSA SARl
Ob860

DC

I.'

06870 SARl

OSC

101

06880

DC
5,18174
J8174
OC
3.023
-23
OSA PHASE2

PAGE

'OfFIN

'),99999
DC
R9999
),001
DC
-01
DSA DUMDIM

06760

16

08\89
081.2
08191

5 X
-8076
1

081'll
08198
08~00
08~00

08~12
08~24

16
... 9

08'>]0

00565
00566
2

-842]
-8"'24

5 X

oe ... 30
08"'31

-8H2
1

oe432

I

06890
06900

DC

06910
06920
069)0

06940
06.50

06980

oe ...... o
08445

5 X

08 ...45
084"'6

-5600
1

1I HKAGE FOR lHROWI NG PHASEt TO DISK WHEN lOADING PROGRAM
OOFl~'t

TFM

IORT,.+23

8
TRA

IOPT. DDF I N5. 7

06960 DDFIN5 OSC
06910

10'

08 ... 31

22
DSA
DC

2,22

08448
08460
08"'72
084 ....
08 ...96

ODFfN6

08502

1 ••

08502
08503

069.0 OOFIN6 DSC 10\
1
07000
DC
5.1813'
J8139
].0]8
07010
DC
-38
01020
DC
5.05000
-5000
I ••
OC
07030
070"0

TCD

01050

DDIIG 05600

DDFIN ...

16
4'1
16
49

00565
00532
00000
00000
2

-8471

-8,,'6
00500
00000

5 x
-1504
I

0850 ...
01509
O15U
01511

5

01511
0 ........

0'600

1048

1610 IIONITDIl I
0'060
01010
0'010
0'0'0
01100
01110
01120
01UO
011 .. 0
0'150
01160
01110
01110
011.0
01200
01Zl0
01220
012)0
01240
01250
07260
07210
07280

'",SEl TO
TO
TO
SF
SF
t
INE
8NF
TFII
UIA
IT

TF
aNF
TFII
A
TF
til
8E
TF
888
TAB8
TFII
8
lENlIS TF
ACCUM

072QO
07300
01310 El
01320
01330
07140
07350
01160
07310
07)80
013'10
07 .. 00
01410
07420
01430

• SET
lOOPA
looP8

LOOPI

LOOP]

07~"O

01450
01460
01470 LOOP2
01480
014'10
01500
07510
07520
075]0
01540
01550
07560
01570
07580
015'10

c.

OUP lOUTlNE

'Alii!

-DIFIN

tALt, ,DU'CAD.'O •• IUD III IIV IIITay DATA
tALtl-I.DUP'IDt4,
tALt '-2 .DUPtlD'"
tALCl-I
DUPtIO'"
OUPtIO'IO.ZIIQlS-", WAS T"III A .IV TAILI 'N'IIY
LNGIIP'
OUTSYD.!tEYI
NIWO'".I.I. IIV.IN'I'
01 l1li11 ,D 1II1II1-'
taLC',,,. . .
•••• KEYI
tALC, ,0••00
tALC).CALC4-,
l . . n.tALC)
CALC1,OOO,'
TAli
l'I . . ,tALtl"SET .W .IV LlNGT"
10IlT,·.n
10PT,Oll00A,l
EL,I . .I I
EL-2

DC
... 0,-000
TF
OL,CALC4-1
CF
OL-2
4,0,DC
-000
POINTER TO END OF CYL n
TF
L1STfS,END23
TFII RlGONE+)O.'+20
FIND
8
DORG .-]
TFII L1STET,'1200,1
GETIt, GETR-I
IT
CII
lISTER-3, 1.1011
.-24
BE
CII
L1STER.OOO].1
8NE lOOP2
REIIOVE. REIIOVE-I, • REMOVE 0111 TA8U ENTRIES
8T
8T
INSEIH,INURT-I
LOOP!
8
DORG .-]
CII
lISTER,0002,I
8E
LOOP5
CM
II 5TER-309.101I
8NE LOOP4
II 5 TE R, '1200 ,8, HAVE ME EIIASED ALL PROGRAMS
CM
SETKEY
BE
8T
GETR.GETR-I
CM
L1STER-301,101I
8NE LOUP ..
GETL,GETl-I
8T
REIIOYE,REIIOYE-I
8T
SETKEY
8
OORG ·-l

0'600
OM"
OM••
0""
0''''
01. . .
0''''
0''''
0''''
05101
on'D
onn
on. .
onM
on. .
onlO
051.,
0110.
01'"
0,.21
0"'0
051'"
0516]

Z!I

II

n

,.
I'
II

41

••
,.••
••

..
11

Zl

26

14
46

U

16
.9
26
U

02911
OUJO
OZ •••
029 ••
0911'

",n
0 . .72
06'22
0"'.
09.00
OUU
OSI. .
DUO.
0260.

I""

0292.
0,.16
.9111
00161
00532
01111
Osa85

.

0.,11
091.,
0 . .11

00000
05U.
01100
051 ••
0-001
095"
I ....
OS . . .
-4100
01 . .6
0260.
00-00
01200

on21

-salt

-'''a
1.11.
00000

06115
061"

02166
00000

26
16

0.661
096....
095"0

06921
-5920
00000

16

09665
09520
0.651
05912
0965..
06024
09560
09580
05944

OR200
0.519
OOO-P
01200
0-00)
01200
09559
09519
00000

0'654
0616..
09651
062 ..0
0965 ..
06 .. "
09520
09651
062 .. 0
09500
09560
06.. "

0-002
01200
OOo-R
DilDO
OR200
01200
0.51'1
OOO-P
DilDO
09499
09559
00000

051U
05'"
0""

26

051. .
05900
05912
05.20
05920
05912
0""
05956
05961
05910
05"2
0600.
06016
060Z4
0602.
060)6
060.1
06060
06012
060 ...
06096
06108
06110
06U2
06144
06156
06164

]]

••
2T
I"
46

1.
U
2T
21

..
..,
1"

46
14
U
1"

n

14

J7
27

.9

..

"

1049

1620 liON I TOR 1
07600
07610
07620
076)0
01640
07650
01660
07610
07680
07690
01100
01110
01120
07130
01140
01150
01760
01170
01180
01790
07800
07810
01820
07810

on..o

LooP5

LOOP6
LOOP4

KEY I
LOOP1

OUP ROUTINE

BT
CM
8NE
8T

GETl,GETL-l
LIS TER-l, •• lOll, IS THIS A NININES INDICATOII
LOOP6
REIIOVE, REMOVE-l
LOOPS
B
DORG .-]
8T
GETR • GETR-l
LOOP)
8
OORG .-)
TF
NEWDIII,lISTEa
DIMIIER,O IIIIIEII-I
aT
Mil
19883.05.10. CALCULATE SIZE OF 000 NINES ENTRY
TOil 1988],1,11
_+24,9'
80
TOM 19883.0.11
TF
LOOPT+Il,I'I1I5
_+21
CF

os

TFII
8T
til
BNE
aT
8
IT

,.

L1STET"OOO.'
GETL.GETL-I
L 15TER-309,1011

•• '6

REIIOYE ,REMOYE-1 ..
--48
GETR • GETR-I
lISTET,'OOO.1

lllIOYE THE NINES REtORO

07850
til
_+24
01860
8E
INSERT ,INSERT-I
07810
aT
KEYl
01880 SElKEY SF
5,0,07190 NMTOT DC
-0000
07900
TF
NMTOT.Ol
NMTOT,El
01'110
A
TFII lOOPS'II.RETURN •• 'RIPAII TD REPOSITION T"I LlSTIR THROUGH
07'20
LOOPA
01930
8
OORG .-)
019 .. 0
GETR,GETR-I
01950 RETURN IT
CII
L1STER-301.101l
01960
IItTURN
07970
IE
SF
LI5TEII-2
0"10
A
07990
ACCUII.llST. . . . 6CtUIIU~ATI T"I NUIII,R OF II'TORS "~LID
CF
lISTER-2
01000
REIIOVE .IIEIIOYf-1
IT
01010
8NF ELCHEK.KEYI
01020
010)0
TFM LISTET.OOO) ••
010.. 0
INSEU.INSIU-l
IT
SII
OL,100.9
01050
RITUIN ... IUURN '0 FILL IN
Dill 'AILI "".11'
0.0.0
'H
II
CLFLAG
01010
010.0
A
fL.DL
010.0
LI STIT ,000',.
0.100
IT
INS. . '.I.SIU-I
0.110
IIIYl
CF
01120 DL
DC
4,0.-006
RETURN.E&.
OIUO
I ..'

.aA.

""

PAGE

.0EflN
0616..
06116
06111
06200
06212
06220
06220
06232
06240
06240
06252
06264
06276
06211
06100
DUll
06324
06U5
06316
061.1
06360
06n2
06184
06196
06401
06420
06412
064.4
06456
OU61
0646.
06.10
064.2
0650.
06512
06512
0652'

06116
06548
0.,..
06'"
06'"
06596
06. .1
06610
0 . .11
0....
0. . . .
0....
0 . . .0
0. . . .
0. . . .
0""
06n.

21
14
47
21

09500
09651
06220
09560
0616 ..

09 .. 99
OOO-R
01100
09559
00000

17

09520
05992

09519
00000

26
21
11
15
U
15
26
U

096 .. '1
09600
1988]
1981]
06)12
1'")
06347
06145
0
0.665
09500
09651
06401
09560
06348
09520
09665
06"56
0"10
06U5
5

09654
09599
000-5
OOOOJ
00099
000019111
00000

.9
.9

16
21

.,

..
..
.
.
••
14

21

21
14
21
J2

OROOO
09""
OOO-R
01200
09559
00000
09519
OROOO
01200
·09579
00000

26
2l

06461
06.61
05911
Oil"

06715
05117
-6512
00000

n

0.520
09651
06512
09652
.,16)
09652
09560
06".
09465
09110
06115
06512

09519
000-'
01200
00000
09654
00000
09559
061n
0-001
095."
00II00
01100
OUOO

J2

.
II

n
n

16

n

12
46
46
II

,."

06U.

0 . ...,

16 09461

..

06nl
0-01.

06U.

OM'.

06111

0''''

09"0

•

11

~y

00000

IUD

. . 140
. . UO
0"'0
01110
01110
011.0
OUOO
OUIO
OUZO
01110
aU40
0"'0
OU60
01210
OUIO
082'0
08)00
08)10
01120
OIBO
on40
01)50

•_6

IUD IIaIIlTe. I
COI\'IUZ.

CLPUG CF

•

OORe;
flCIIU TFII
IT
COII'H SI!
III
S
IE
TDII
TF
8T

8
OORG
U993
-7018
00500
00000

22

08500

OSA

S.... P

07024

5
-7026
I

08510

DC

I ••

07024
01025

08520 S ... RP

OSC
1

101

01026

1115 I

1620
01530

~ONITOR

08560

DC
5.18114
J8174
DC
3.023
-23
DC
5.05600
-5600
DC
10'

08510

Teo

08540
08550

OUP ROUTINE

PAGE

.DEFIN

20

01031
070)4
01019
07040

S... RN

06'70

08580
OORG 05200
015.0 'H",SE] TO
PATCH .OU"RD+!I •• LENGTH OF SPL LIST
01.00
TO
PATCH-I.DU"RD+56
08610
TO
PATCH-2.DU'CRD+'4
SF
08620
PATCH-2
08630
CII
,.TeH.000.9
ACTP
01640
8E
TFM LISTES.,.
01650
TOil 1.ISTES.5,
016.0
TF~
01610
RLGONE+3D •• +20
8
08610
FIND". UING IN THE SPL FDR sOlie OISERVATlON
OORG +-)
01 . .0
08700
SF
DUPCRDon
CII
08710
DU"RD+)4.00.10
8NE -+41
08720
TFII 10RT •• +21
Olno
08740
8
IOGT.LOX.l
08750
TO
DUPeRD+ 34.C S.~'
TFII -.35.0•• 00,1
OllbO
AM
•• 2),04,10
olno
SHR --12.999.', , fiND THE END OF THe SPL
08110
08190
--l,04,IO
A"
SM
08100
--13,9100,1
CII
08810
·-21.PATCH
),0,01820 'ATCH DC
-00
08830
8NH •• 32
TFII DIIIERR+22.117 •••• SPL LIST IS UDeflNED LESS THAN NUDID
01140
01150
EaRD
8
OORG .-3
0"60
TF
01870
CDNSTS,"ATCH
0 . . 10
TF
CALC9.PATtH
08190
CM
PATCH.IO ••
INH ACTN
08900
TFII DIMEU+ZZ.1I1.,.
08910
089Z0
e
ERRO
OORe; .-)
089JO
08940
ROUT INE TO UP DATI THe I'L eNTItY PO. ITIIL'
TFII LIS T15.I9IOI
01950 AtTN
01960
TOil
TOil OU"RD+n .. ll. PUG liRa
01970
TF
0 . . 10
CURRE .... I.OU"AD+t4
TFII NIIIOIII,0004,.
08"0
IT
09000
01 IIIIER.OI 1111111-1
09010
C
CONSn.I . . . .
09020
IE
AC"

1.,

...

Llnes-,.l.n

05200
05200
05212
05224
05216
05248
05260
05272
052"
05296
0510.
05116
05316
05U.
05140
05J52
0516.

25
25
25
32
I~
~6

16
15
16
.9

12
I.
47
I.

..

onn n
onll 16
0'400
05412
05.24
054)6
0544'
05459
05460
05.72
054.4
05492
05492

11
U

05.59
05UI
05451
05457
05459
06210
09661
09656
096.4
09540

09195
09393
09391
00000
00-00
01200
-0000
00001
-5316
00000

09)70
09)11
05)"
00''5
005. .
09111
05423
05421
05400

00000
000-0
OUOO
-5)15

11

05~21

05423
05421

4T
16
49

O'4'Z
OUT!
OZ"O

01100
01'171
00000

26

02191

".

OU.O

05459
05."
00-10
01100
0"174
00000

09. . 1
0 . . .6
09110
0.14"
0 . .4.
0 . .00
0''''
0 . . .0

J9IOI
OOOOJ
000009JTl
0-004
0""
I ....
OUOO

3

0"60

It

0,,.4
0'"'
05601
056.0
0"12

n

onn n

D."'''

05249
-9100
000·4
99999
000-4
-9100
-5459

U
1.

on04 26 02163
onl6 I. 0'4"
onn u 05160
on.o 16 oun
05111
05160

-",.

"n

l'

'4

'"

!U5Z

au, RDUfllIE

1620 IIONITDR
0'10)0 ACTT
0'1040
09050
0'10'0
09010
09010
09090
09100
09110
09120
09\30
09140
09150
09160
09170
09180
09190
09200
09210
09220
09230 Acro
on40
09250
09260
0921U
09280
09290
09300
09310
09)20 AcrR
09330
09340
09350
09360 MOOS2
09370
09)10
09)90
09400
09410
0.420
09430
09440
09450
09460
0.470
09480
09490 Acn
09500
09510
09520
09530
09540
09550
09560 lcr2
09570
09580

TF
TF
TFII
8
TF
TFII
8
DORG
8T
C
8l
!

S
TF
BY

CM
8E
8T
B

DORG

s

CM
8NH
TF
CF
rFM
BT
8
DORG
A
TF
8T
BT
CM
BE
CM
IE
CM
BE
TFM
8T
rF
TO

TOM
a
OORG
rFM
Br
rF
TO
TOM
B
DORG
TFM
aT
TF

CDIIS".I . . . .
1. . . . . tALC.
JO.' ••• ,J
10".01100•• 1,
COIISn.CAlC"

-OEfllI

COllECT "L IIITI' 011 DISK

GOOII'.'.···i~

onll

FIIIO
--)

GElR.GIU-l
I S THE Nfll LIST LONGIII 01 SHOIlTEIl
COIIS".CO;1S,. ••
ACTC!
CONST5,CONST6
lISTIR.CDNsn
II STET, II STIR
REMDVE .:lEIIOVI-1
lISTET,'JOOO,.
-+24
[NSERT,INSERT-I .. PUCE THI CDIIIIEU IIlAIIIt SECTOII IN THE LI S
MOOS2
.-)

cONsrlo,CONST5
lISlER-"7,IOll
ACTR
")5.CONST6

.+21

1I STET, 9000, 8
INSERT,INSERT-I
MOOS2
'-3
lISTER,CONST6 ..
II STET ,lI STIR
REMOVE,REIIDVE-I
INSERT,INSERT-I
CURREN-I.OI.IO
ACrP
CURRE 11-1, 02 ,10
lCTl
CURREN-I,Ol,IO
lcn
NEWOI ",ootn,.,

05656
0''''
05610
05.92
on04
051&'

[NeRUSE THE BUNK SECTDII COUNT

SET UP DN MODULE THREE

OIMMER.DIMIIER-1
LI S TE S, 19885
lISTES-5.191.0
CURREN-I.3,.
ACTT

05716
05n,

on...

0"'0
05772
D511..
051.'
0510.
05120
058)2
os .....
05 . . '
os., ..
05.64
05.76
0511.
05900
05912
05.24
059)6
05948
05956
05956
05961
059.0
05992
06004
06016
0'021
0.0 .. 0
06052
060...
06076
06088
06\00
0611~

.-)

NEWDIM,0006,1
OIMMER,OIMMER-1
lISTES.".15 .. FINO END
LlSTES-5.191.0

f

OLD LISTS

CURREN-ItZ . .

aCTT
·-3
NEWD[M,0005,8
O[MMER.DIMIIER-I
LISTES, 19.85

0612"
06U6
061 ....
0.1 ....
06156
06161
06\80
06\92
0620 ..
06212
06212
06224
06236

,....

"101

D0'.'
005U
Oll. .
0.'44
0.,.. 0

I ....
OZ."
-no)
-Z5IO
Oll6)
-5J)'
00000

O.UO
02198
05164
02198
0."4
09665
09560
09665
05856
095.0
06004

0.519
02904
01300
02.04
02'"
09654
09559
OROOO
01200
09519
00000

02904
09651
05956
059)5
059)3
09665
09580
0600 ..

0289.
000-'
01100
02904
00000
OROOO
09579
00000

49

09654
09665
09560
09510
05144
062.0
05144
06212
05144
061"4
096"9
09600
0966\
09656
051 .. 4
05656

02904
09654
09559
09519
000-1
01200
000-2
01Z00
000-)
01200
0-007
09599
19115
198.0
0000)
00000

16
27
26
25
15
49

09649
09600
0966\
09656
05144
05656

0-006
09599
19885
19880
00002
00000

16
Z7
26

09649
09600
0966\

0-005
09599
19885

Z6

Z6

at

4.
Z6

...
16

Z1
2"
47
Z2

Z2
26

21
14
46
II
.. 9

22
14
47
26

n

16
27
.. 9
21
26

21
21
14
.. 6
14

...

14
46
16

21
26
Z5

n

02904

2l

1053

1620 MON ITOR I
09590
09600
09610
09620
09630 ACTP
09640
09650
09660
09670
09680
09690
09700
097\0
09720
09721
09722
09123
09724
09725
09126
097)0
097ltO
09750
09760
09770
09780
09790
09100
091\0
09120
09830
09140
09850
09160
09870
09180
09890
09900
09910
09920
09930
09940
09950
09960
09970
09910
09990
10000
10010
10020
10030
10040
10050
10060
10070
10010

DUP ROUTINE

8E

e+48

TO
TD
SF
SF
CM
BE
TO
SF
CM
BE
TD
SF
CM
IE
TD
SF
SF
CII
IE
TD
SF
SF
CII

CS'41.0UPCRO.94
CS+4I.DUPCRO+96
CS.U
OUPtRD.n
DUPCRD+) ... OO.lO

•• 24CS.49,DUPCIID.J4
OUPCRD.99
OUPCROHOO, 00. 10
•• 24
CS.n,DUPCRD.IOO
DUPCRD+IO)
OUPCRD·104,OO,10
•• )6
CS.16.0UPCIID.10"
C5+16
DUPeRO.IOl
DUPCIID.10., 00, 10
e+J6
C5.72,DUPCIID.10.
CS.7Z
DUPeIlO.'11
DUPCIIO+lIZ,OO"O

PAGE

-DEFIN

LI S TE S-5 019180
rOM CURREN-l, 1 ••
a
lCTT
OORG '-3
TFM IORT ••• Z3 •• IRING IN THE COMMUNlcaTlDN SECTOR
IOGT ,lOX, 7
8
ROUTINE FOR TRlNSFERING THE CONTROl CHARACTERS IF PIIUENT
TO THE COMMUNICATION SECTOR 'NO SETT ING FlAGS IF NECESSARY
SF
DUPCRD'71
CM
DUPCRD'H,OOOO,8,
•• 48
8E
ro
CS+"O,DUPCRD>72
rD
CS'''l,DUPCRD+7''
SF
CS+40
DUPCRD.77
SF
CM
DUPCRD'80,OOOO,8
BE
·+.8
TO
CS+42,DUPCRD'78
TO
CS+43.DUPCRO+'0
SF
CSH2
SF
DUPCRD+n
CM
OUPCRD+84,OO,10
-+24
BE
TO
CS+44.DUPCRO+.4
SF
DUPCRD.n
CM
DUPCRD'90,OOOO,.
e+48
BE
TD
CS+45. DUPCIID.I.
TD
CS+46.DUPCRD+90
SF
CS+45
SF
DUPCRO>93
CM
DUPCRD>96,OOOO.1
TO

06248
0.260
06272
06210
06280
06292

25
IS
49

09656
05144
05656

19880
00001
00000

16
49

00565
00566

-630)
-6936

0630"
06316
0632.
06340
0.352
06364
06176
06381
06"00
06412
064Z ..
0643.
0644.
0'460
0'''12
06414
on96
0650.
06520
06532
06544
06556
0656.
06510
0659Z
0660 ..
06616
06621
06640
06652
0 .....
06616
066••
06100
0611Z
06n..
0.n6
on. .
06160
0.712
061'4
0619.
0610.
0'"0
O.U;
06144
0. . . .
0. . . .

...

)2
14

09"08
09411
06)7,
05240
05241
05240
0941"
09"17
06448
05242
05243
05242
09420
09421
on96
05244
09424
09427
06568
05245
05246
05H5
09430
09433
066ltO
052U
05248
05247
09)70
0.371
066 ••
052"9
09"36
094)7
0.n6
05273
094.. 0
09 .... 1
0679.
0'216
0'216
D.......
09445
06156

00000
0-000
01200
09409
09411
00000
00000
0-000
01200
09415
09417
00000
00000
000-0
01200
09421
00000
0-000
01200
09425
09427
00000
00000
0-000
01200
09431
09413
00000
00000
000-0
01Z00
0931\
00000
000-0
01200
09437
00000
000-0
01Z00
0 ..... 1
00000
00000
000-0
01200
0 .....5
00000
OODOO
000-0

25

25
)2
)2

14
.. 6
25
25
)2

32
14
"6
25
)2

I"

.. 6
25
25
32
32
1"
46
25

Z5

.
.,.
32
)2
14

25
J2
1"

U
J2

46

25
J2
JZ

...

14

Z5
JZ
JZ

,.

onu
05ZU

09.....

0 ..... 9

22

~~\
10$4

1620 IIOIInH I

1II'lauTl •

. . . . . 11

•• 2.
CS.IJ,DU'CID+llZ
101tT, . . n
IOPT,LDX,7" 'UCI THI CDII_l'AT I 011 SECTOR UCK 011 DISK
IIONln

'HI

10090
10100
10110
10120
10UO
101.0
10150 LOX

IE
TO
TFII
8
8
ODRG - - )
OSC 2.22"

10160

OSA

F IELOX

069.,

10170

DC

1 ••

o.,n

100.05200
1.0

05200
069""

DDA FOR THI CO"tuNICATlON SECTOR

0 . .10
06"'
06tO.
069'6
069,.
069"
0.U6

••
.,••

II
16

06tO.
01111
005.,
00512
06960

n

01200
0"'.'
-6927
-69'6
00000

2

Z2
5 X

-69'" 1

06"'2

lalla C5
OSS
10190 F IELDX OSC
a

10220

DC
~.I966J
J'U)
).001
DC
-01
OSA CS

10230

DC

10200
10210

100

I
5

069'"
06952

3

06957

5 X

06957
06951

1 ••

10240
RDUTINE FDR WRI TlNG lACK THE S'L TO THE 'ROPER PACK IEFDRE
EXITING TD MDNITDR
10250
10260 MDNITR eM
PltK.OO.l0Il, "Cit ZERD
10210
RITSPO
8E
10280
eM
PACK.OI.IOll.PlCI( ONE
10290
8E
RITSP I
10)00
el'
PlCK.02.1011. PACI( TWO
10310
RITSP2
8E
10320
CM
PACI(.03.101I
R I UP)
lana
BE
WHVNOT
10140
8
OORG .-3
10350
10360 R ITSPO TFM IORT.-.23
I OPT .PKOOOA. 7
10310
8
WHYNOT
10380
B
OORG --)
10390
10400 RITSPI TFM 10,,"T, •• 23
IOPT,PKIOOl.7
10410
8
10420
8
WHVNOT
10430
OORG 0-)
10 .... 0 RITSP2 TFM IORT.-.23
10450
8
IOPT.PK2DOA.7
10460
8
WHVNOT
10410
DORG 0-3
10480 R ITSP) TFM IORT.-+23
10490
I OPT. PUDDA. 7
8
10500 WHV~OT roM 475.3
196 ... MDNCAl
10510
8
DORG . - )
10520
10530 DDFINI TFM IORT,-+23,. LINKAGE FOR THROWI"G PHASU TO DISK
10~~0
8
IOPT,OOFIN2.7

069.0
06972
D6.1.
06.96
alDOl
07020
07032
070""
01056
0106..
0106 ..
07076
010'1
07096
07096
07108
07120
07121
07121
071.0
07152
07160
07160
07172
0711"
071.6
0720"
07204
07216

-5200
1

...
...
...
H

02156
0706 ..
02856
07096
02856
07128
02856
07160
07U ..

OOa-01200
OOO-J
01200
OOO-K
01200
OOO-l
01200
00000

••••

l'

00565
005)2
071'"

-1081
-273"
00000

16
.. 9
.9

00565
00532
0711.

-711'
-2757
00000

16

00565
00532
0711.

-7151
-2780
00000

005.5
00532
00"75
00796

-7183
-280)
0000)
00000

00565
005)2

-7227
-7252

1 ..
.6
1 ..
1..

"9

.,
'"~

.,
16
15
49

16
49

11155

1620 "ONITOR I
10550

10560 DDF IN2 DSC
22
10510
DSl
10580

OUP ROUTINE

-OEFIN

TRA

DC

PAGE

2.22

07228
07240
07252

DDFIN)

07258

1.'

07251
0725.

10590 DOF IN3 OSC 1,1
I
10600
DC
5.17014
J70B4
10610
DC
3,022

)6
49

00000
00000
2

2.-

00500
00000

5 X
-7260
1

07260
07265

5

07261

)

-22
10620

072n

106)0

DC
5.05200
-5200
DC
I,'

10640

Teo

07204

10650
10660
10670
10680
10690
10700
10710
10720
10730
10740
10750
10760
10170
10180
10790
10800
10810
10820
10130
10 ... 0
10850
10160
10170
10110
10190
10900
10910
10920
10910

DOFIN1

SECONDARV liNKAGE FOR THE F1NO,GETL.GETR.REIIOVE.INSERT
PROGUIIS TO SEE IF THE 1I0UTlNES ARE PIIESENTLY IN COilE
DORG 9500
TFM CHEX.6.GElLTR
GEll
8
INCORE
DORG --3
GETR
TF" CHEX.6.GETIITII
8
INCOIIE
DORG --)
TFM CHEX.6.FINDTR
FIND
8
INCORE
DORG .-3
REMOVE TFM CHEX+6.REMOTII
B
INCORE
DORG .-)
INSERT TFM CHEX 0 6.I"SETII
8
INCOIIE
DORG --)
DI""ER TFII CHU ••• OI .... TII
B
INCOIIE
DORG - - )
MOVESA DC
6,0. ,FOR SECTOR AOOIIESS
-00000
MOVESC DC
l,O •• FOR SEC TOA COUNT
-00
99999
EXIT"R I
OOIlG
GOIINV B
99999
DORG --3
NEWOIM DC
4.0
-000
DC
l.O •• FOil Call,.RIIII AT LlSTIII-J

--,

10... 0 LISTER DC
4.0
-000

0727..

09500
09500
0.512
09520
09520
09512
0'540

otS"o

0.552
09560
0.560
09572
095.0
095.0
0'592
09600
09600
09611
09620
09625

16

09722
09661

-3030
00000

09722
09661

-2956
00000

09122
09661

-)440
00000

09122
096. .

-J10Ct

4'
16
"9

09722
D....

-)190
00000

16

09722
0....

-2UI
00000

'16"

".

16

"9

16

'"~

6
)

0962.
096'0
096"
0.61.
D.....
0 .....
0 . .50
096."

00000

".
'"

99.99

00000

99.99

110000

"
"

IOU

1620 "mUTO. 1
10950

DC

DU' .0UlINE

-OEfIN

'AGE

1.0 •• TO SET-U' lUTES OVEUIDE CODe

10960 llSTES DC
6.0
-00000
10910 llSTET OC
~.o
-000
10980 LAVSPl DC
100
10990
11000
11010
11020
11030
11040
11050
11060

INCORE BNF

TFM
B
Cf
CHEX
B
OORG
RlGONE os
SPll
OSC

25

09.55
09."

6

09. .5

4

09. . .

,GOONY-24
OOA FOR BRINGING IN THE SACRED SIX
2.22 f f

09. .1
09610
0 . .92
09104
09716
09124
09614
OnZ4

SPl2

097]0

I.'

09730
09131

CHEX.lAYSPL ••
10RT.un
IOGT.SPlI.1
lAVSPL
99999

IS THE ROUTINE Al.EADY IN CO.E

.-]

,.

H

49

n

49

09666
-9103
-9724
00000
00000

09"6
00565
00566
09666
99999
0
2

22
11010

OSA

11080

nc

11090 sel2

OSC
1.1
I
5019]]8
DC
HB8
DC
3.025
-25
DC
6,02458'

11100
11110
11120

5 X
-9132
I

09732
09111

5

0"740

3

09146

6

-2"58'
11130 GREUI TFM
11140
B
TRA
11150

IORT,.+23,.
TAA-TCD fOR THROWING THE SECONDARY LINKAGE TO 0
IOPT.GREAT2.7

11160 GREAT2 DSC
22
OSA
11110

2,22

09114
09796

GREATl

0910Z

I.'

09802
0980]

llL80

DC

09112

16
49
16
49

00565
00532
00000
00000

-9771
-9796
00500
00000

2
5 X
-9804
I

09804

11190 GREAn ose
1.1
I
5. L8l97
11200
DC
JBln
]'003
11210
DC
-03
11220
DC
6,09500'
-9500 I
Teo GREATI
11230

11240

09748
09160

09809
09812
09818

6

09148

00000

DEND

1057

1620 MONITOR 1
AODBLK
ADRSPl
BAVAIL
eLE vER
ClfLAG
COMMON
COMPEL
CONST!
CONST2
CONST]
CONSTS
CONST6
CONST7

0]912
02840
02830
02827
06736
02926
06780
02874
02880
051]0
02898
02904
02910

CONST8

02931t

tONTIN
CORSIl
CURREN
OOF INI
DDf IN2
DDflN3
DDF IN4·
ODF INS
DOF IN6
DIMERR
DIMMER

07236
02627
05145
07204
07252
07260
08448
08496
08504
0265]
09.00
02458
02588
02618
08016
09337
06156
08400
05698
07216
02936
09610
02925
06944
03440
0581B
06302
03010

OIJIIIMTR

DMREAD
DRESTR
DUMDIM
OUPCRO
ELCHEK
EQVLEN
ERROR 1

ERROR8
ERRRIT
EXITMR
FAKSEV
F IELDX
f INOTR
F IXEOV
f IXSUP
GEll TR

GETUR
GREAT!
GREAT2
GREAn
INtORE
INSfRT
I NserR
JANI TO
lAYSPL
lENlI S
LENSCT
LI STEil
LI STES
1I STET
lNGNFF
lOUNGE
MELANC
MONITR
MOVESA
MOVESt
N48000
NEWOIM
NEWTOT
NOMMON
NOSECA
HUM"OD
NURSES
OLOTOT
OUTSVD
PHASE2
PHUEl
PKODDA
.KIDDA
PK1DDA
P,lDDA
PKROoM
PlUSSR
QCAItRY
RACKET
REDSPO
REDSPI
REOSPl

CUP ROUTINE
02956
09748
09196
09804
09668
09580
03190
07676
09666
05140
05450
09654
09661
0966'
06872
06214
01192
06"60
09625
09628
0262~

09649
06649
02928
02929
06422
07888
06653
06922
05600
05200
02734
02757
02110
01103
05606
01168
0281.
02914
04668
04712
0~156

PAGE

,0EfIN
REDSP]
REOSPL
RE"OTR
REMOVE
REPACK
RETURN
R ITS PO
IIITSPI
R ITSP2
RITSP]
RLGONE
ROMENf
AAA
ACtUM
ACT2
Atn
ACTN
ACTP
ACTQ
ACTR
ACTT
818
CALC2
tALC3
CALC4
CALCl
CALC9
CHEX
CLUCK
CS
DFINE
DL
DMDDA
DOC

El
END21
ENUfF
E~Ul
E.~D

ESOR
FIND
fOUND

04624
04220
03104
09560
02852
06512
07064
01096
01128
01160
09614
05718
061>60
05863
06212
06144
05560
06210
05164
05956
05656
05104
02613
02601
02867
02921
02163
09116
OOU28
05200
05114
06715
02,.0
05951
0'"1.
06921
06026

GETL
GETR
GOONV
HERO
HEX
10GT
10PT
10RT
KEY!
KEY5
LOX
LIMIT
lOOPI
LOOP2
LOOP]
LOOP4
LOOP5
LOOP6
LOOPl
LOOPA
lOOPB
LUCKV
1100$2
NERR
NWTOT
OOIM
O~QV

PACK
PATCH
QHOLD
SARB
SAMe
SAlF
SARH
SARI
SARJ
SUK

DUll

SAIIl

02690
06UO
09S40
028)5

SARN
SARO
SARP
SPLI

09500
0"520
0"618
07520
02868
00566
00532
00565
06))5
051~9

06936
05148
059~4

06024
05992
06240
06164
06220
063)6
05118
05900
06154
06004
0)354
06467
06656
06659
02156
05459
02192
05150

onn
08116
08114
01996
07100
01424
01412
06910
07011

07016

SPl2
SPlH
SPLRI
SPLR2
SPORT
STEAL
TASA
TA88
TABC
TIPSY
TRWAA
TRWBB
SANDOR
StRASN
SETKEY
SlOEQV
SLEEPY
SLlPRV
SPLtOR
SPLCn
SPLE XT
SPLINI
SPLI ST
SPLPKO
SPLPKI
SPLPK2
SPLPK3
STARDT
THROOA
THROWS
TlOEQV
TRWSLo
TRWTLD
TRYAGN
UNPACK
WHY NOT
IIRTSPO
WRTSPI
WRTSP2
WRYSPl
ZEROES

26
09732
04100
0~148

0486]
04410
02918
05696
05816
05064
03226
06946
06954
05402
05762
06456
05087
06074
05056
02150
02845
0]484
04116
03956
02142
02765
02718
02111
04164
02628
OlU6
05110
05079
05102
03604
02154
07114
04)60
04)92
0~U4

04U6
O"~O

0'1124

END OF ONE Asse"Sl Y.

lu58

MONITOR

SYSTE~

00010 •
00020 •
00030
0001t0 STAR
00050
00060
00070
00080
00090
00100
00110
00120
00130
OOHO TOI
00150
00160
00110
00180
00190 Sfl
00200
00210 TEMPSC
00220
002)0
0021t0
00250
00260

THIS PROGRA~ WILL LOAD MONITOR I SYSTEM TO DISK
FORMAT FOR CNTR CD IS
.LDCNTR NAMEPR SSSSS~ EEEEEE NN NNS
OORG 1404
TR
}912, NA"'-1
RACO ]91J",
RAPT IF PAPER TP ••••••
lFM TO I + 6.4000
TFM TOI+ll,4003
SF
1912
SF
)988
8NR "20,}983
87
ERHI
C
1q~5.LDCTR+12
8HE ERHI
TO
1t000.400},21
AM
TOI+6.1
AM
TOI+ll.2
CM
fOl+6,4U61
8HE TOI...
CONVERT CNTRL CD TO NUMERIC
SF
ItU01...
SET FIELD FLAG O~ SECTOR AOOR
SF
4008...
AND O~ SECTOR COUNT
OS
.SFl+ll
SF
4014
S
1t012.400,
8l
fRHI
TOM 1t006.0..
PLACE REC MK FOR TR
DC

00210
00280
00290
00)00
00310
00320

TR
AM
TF
TFM
SF
TF
TF

4012.1
TOTSEC.4012..
TEMPse,o
4060
r:M+ l l . 4064
(;1'4+9.4016

OOHO

AM

CM+lltl

TFM
TFM
TO

OSKOUT+8.0.9. MAKE SECTOR eNT lERO
OSKOUT+13.5000
HUP+1.1..
MAKE WLRC SW INTO NOP

Dono

00350
00)60
00110
00)80
00390
001t00
00410
001t20
00430
00440
001t50
00460
00410
001t80
001t90
00500
00510
00520
00530
0051t0
00550

INI Tl
•
•
•
eOINI
RC

8F
eM

PI\GE:

LOADER

1.· ..

0~KOUT.4000

SAVE TOTAL SECTOR COUNT

07404
01404
01416
01428
01440
07452
07464
01476
07488
01496
01508
07520
01532
01544
01556
01568
01580
015'12
07;91
01601t
07616
07628
01640
01651
07652
01664
07676
07688
01100
07712
01121t

01136
01148
07160
01172

11
H

16
16
~2

12
45
49
24
47
25
11

11
14
41
32

32
12

22
41
15
11

11
26
16
12
26
26
11
16
16
25

a 197?

0~866

03973

00'>00
-4000
-4003
00000
00000
01983

07<;26
01531
OJ972
01981'
07496
08042
OJ9R5
01\042
-4000
01526
01531
01526
01520
04001
04008

o

08041
01200
-4003
-0001
-0002
-4067
01200
00000
00000

04014
04012
08042
04006
1

00000
04005
01300
00000

09028
04012
08511
01591
040()0
01R19
01811
01R19
09036
09041
09281

04000
-0001
04012
-0000
00000
04064
04016
-0001
00-00
-5000
00001

01A14
01AH
-5000
07996
01f161
01Ab7
Ofl466
-5019
08250
01A19
0848R
011'14
0815R
01RI4
OAl;R

-5000
-5079
00500
00600
01874
-0004
00000
-0001
01200
-0001
08212
-5000
01200
-')075
01200

READ INPUT FOR DISK LOAD
TFM
TFM
RNeo
81
TF
SM
8HF
eM
8NE
AM
80
CM
8E
CM
BE

RC+6.50DO
C14+6.5079
5000 •• 2. ~NPT IF PAPER TAPE INPUT ••••••
HALTRD.0600
8F+ll.eM+6"
NOP IF P. T.
8F+ll.4..
NOP IF P. T.
COl. 0..
NIJP IF PAPER TP ••••••
;079.1,21. COMPARE eo SEQ NOP IF fP •••••
ERSEQ-IZ...
NOP IF TP •••••
CM+1101
RDTRl.ERSEQ+I0 •• RR TO READ TRAILER
RC+6,5000 •• CK FOR FIRST CD OF SET
ADJUST
RC+6.507,.,2~O CD CK
A~JUST

01784
01796
07808
07820
07832
07844
01856
01868
01880
01892
01904
01916
01928
01940
07952

16
16
16
46
26
12
44
14
41
11

4J
14
46
14
46

1059

PAr,[

MONITOR SYSTEM LOADER
00560
00510
00580
00590 •
00600 HALTRD
00610
00620
00630 •
0061t0 LDCTR

01100

49

01996
08009

39

OAO 11

00100

08020

49

lit

46

079~8

WATY .+15
DAC 6,HRDER'
HROEH. '
81
RC
DAC 1,.LDCNTR
-LDCN TR
RClY
WATV ERHIGH

08029

BE
81

00650 ERHI
00660
H
00610
81
00680
00690 ERHIGH DAC

RC+6.5150"lRD CO CK
ADJUST
WRDSK •• , 4TH CO WAS REAQ, wRITE 3 SECTORS

S rAR
36,CONTROL STATEMENT INVALID, RE-ENTER'
C~TROL STATEMENT INVALID, RE-ENTER'
DSKOUl+8,l,9, INCREMENTSECTOR COUNT
00100 ADJUST AM
AM
RC+6,15"
I~CREMENT READ-IN POINTER
00110
AM
CM+6,15"
INCREMENT SEQ NUM ADDRESS
00120
AM
TEMPSC,l,.
ADU TO COUNT OF SECTORS USED
OOHO
C
TOTSEC,TEMPSC,. ALL SECTORS PREPARED FOR LOAD
OOHO
8NE RC",
READ ANOTHER RECORD
00150
TDM ERSEQ+I0,1"
SET TERMINAL INDICATOR
00160
81
RC
00170
00180 •
SEQUENCE ERROR ROUTINE
00190 •
00800 •
TFM SA"MSl+18,RC
00810
00820 ERSEQ RCTY
T~SEQ,ERSEQ+IO
80
00830
TF
"llUT+4,CM+6,11, TRANSFER WRONr. SEQ NO. FOR PRINTING
0081t0
WNTY WOUT
00850
W4TY ERR
00860
00810
8t
00880 SA"MSI H
81
RC
00890
00900 TRSEQ W4TY TC
61
SA""'SI-12
00910
OAC 8,TRAILER,
00920 TC
TRA IHR
DAC 35, CAKD SEa ERROR, CORRECT AND START'
00930 ERR
CARD SEQ ERROR, CORRECT AND SURT'
DSC 6,00000'
0091t0 WOUT
00000'
00950 •
00960 •
TKAILER CARD EARLY DETECTION ROUTINE
00910 •
00980 •
TFM C"'+6,0,61,
SPECIAL SfQ NUM IF NON-SEQ ANO NOT TRAILER
00990 COl
81
01000
C'"
01010 01020 3,9'J9
01030 SKADR DC
R19
0101t0 -

-')1'>0

01Al4
091,)A
09042

01964
01'-116

CM

2

08042
08054
08066
0801/\
08081
,)lH ~R

08110
08182
08!'J4
08206
08118
08230
08242

08250
08262
08214
06286
06298
08110
08122
08334
08346
08354
08166
08115

6 x

2

07R08
1 X

J4
'9

48
49

2

00102
OOlno
00000

00000
08081
001)00
07404
36 ](

2

11
11
11
11
24
41
15
49

1)<1036
01814
01"174
01'>'H
0"511
01808
08272
0780S

00-01
-0015
-001'>
-0001
015'11
01200
00001

16

081')2
00000
083')4
08464
08460
08191
08H4
00000
01808
08315
08122

-1808
00102
08212

14

41
26
18
)9
4i1

4A
49
39
49

0781~

00100
00100
00700
00000
00100

8

x

l

08 }91

35

x

2

08460

6

08466
08418
08481

16
49

01A1M
01R68

-0000

3

1 06 It -

MONITOR SYSTEM LOADER
01050
01060
01070
01080
01090
01100
01110
01120
01110
0111t0
01150
01160
01170
01180
01190
01200
01210
01220
01210
0121t0
01250
01260
01270
01280
01290

•
LAST CD READ AND CK
•
RDTRl RNCD 5311", READ TRAILER
RNPT IF PAPER
rOTSEC OS
,ROTRL+21
SF
5111
TfM SAVMS1+18,ROTRL
5190.CM+11..
NOP IF P. T ••••••
C
8NE ERSEQ".
NOP IF P. T. • ••••
80
•• 60,5318
80
•• 48,5317
8NR •• 16,5316
eM
5115,99999
BE
WRDSK", BR IF TRAILER OK
•
ERROR
NO TRAILER REC
•
ERTR
RClY
WArY HDTRL
RelY
WAlY NOTRL2
RClY
"12,0100
81
TOM ERSEQ+I0,O

TAP~

••••••

H

08488
08511
014500
08512
08524
08536
08548
08560
08512
08584
08596
08608
08620
08632
08644
08656
08668
08680
08692
08104
08113

36

(J5l11

32
16
24
41

05311
08352
05390
08262
08608
0860R
08608
05315
09042

43
43

45
lit

46
34

39
34
49

14
46
15
48
49

oo~oo

o

00000
-R4A8
07819
01200
05318
05311
05316
R9999
01200

00000 00102
08711 00100
0(1000 00102
08801 00100
00(100 00102
08680 00100
08272 00000
00000 00000
08608
47 X
2

87
EUR
DAC 47,NO TRAILER REC. CORRECT, RE-LOAD COMPLETE DECK'
HO TRAILER REC. CORRECT. RE-LOAD COMPLETE DECK'
01100 HOTRl2 DAC )O,WITH CNTR REC. AND 8R TO 7404'
WITH (HTR REC. AND BR TO 7404'
OU10.
01)20 HAM
OAC ~O,

08801

30 X

2

08867

50 X

2

01BO

31 X

2

NOrRl

OAe

11.

08961

0131t0 OSKOUT OSS
01350
DC

6
3.0

09028
09036

6

5000

09041

5 X

3

-00
01160

OSA

01170 •
01180 WRDSK
01390
011t00 SKI
01ltl0
011t20
011t30

WRITE DISK ROUTINE
OSKOUT+},SKADR" CK FOR SEEK NEEDED
C
•• 36
8E
DSKOtJT
SK
TF
SKADR. OSKOUT+3,. SAVE SEEK ADDRESS
WON OSKOUT
CON OSKOUT
ASC,3800., BR OVERFLOW
81
TE ST. 1900, ,
BR ANY OTHER ERROR
BI
BNI
BR NO ERRORS
51'12,1900"

-5000

09041

o1 It itO

011t50
011t60
011t70 H2
OH80
011t90
01500 SM2
01510
01S20
01510 •

H

81

87
A

80
Bl

·+12.0700
SK I
DSKOUT+S,oSKour+8 •• Aoo NIJMB SECT WR.ITTEN TO SECTOR AOOR
EHO,fRSEQ+10,.
BRANCH IF LAST WRITE
INITl",
BR~~CH IF NOT LAST WRITE

09042
09054
09066
09078
09090
09102
09114
09126
09138
09150
09162
09114
09182
091'14
09206

1

24
46
i4

26
38
16
46

46
41
48
46
1t9
21
41
49

09031
09090
09028
08481
0902R
09028
09452
09214
09182
00000
09114
09066
09033
09508
0114R

08481
01200
00701
0'>031
00702
00703
OJ80a
01900
01900
00000
00700
0~036

08212

I (} 6 I

MONITOR

LOADER

0150\0
01550
01560
01570
01580
01590
01600
01610
01620
016)0
0160\0
01650
01660
01670
01680
01690
01700

e+12,0600
e+12,0700
81
"12,1600
e+12.1700
81
·+12,3600
81
81
H12,3700
•
WRUNG LEN REC CK ~ourlNE
NOP
NOP ONESEC", NOP 1ST TIMF., BRANCH 2ND TI"E
TO
NOP+ 1,9
87
SK I
ONE SEC TOM NOP+l,l
RCTY
WATY DERR
81

01710
01720
01710
0170\0
01750
01760
01170
01780
01790
01800
01810
01820

•
•
ASC

Olno
0110\0
01850
01860
01810

TEST

~YSTf~

81
81

H

OERR

•
•
•
END

87
SKI
OAe 31,01SK RO WR ERROR, START TO RETRY'
DISK RD WR ERROR, START TO RETRY'
81
AM
AM
SM
87

OVERFLOW ROUTINE
H2,1900" BR IF OTHER ERROR ALSO
DSKOUT+13,100,.INCREMENT CORE WRITE-OUT ADDRESS
OSKOUf+5,1,.
INCREMENT SECTOR ADDR
DSKOUT+8.1.9
SKI

09214
09226
09238
09250
09262
09174

4t>

0'1286

41
25

09318

4,}

0')066
09287
00000
0'1381
09366
00000
0'1066

09298
09310
09318
OqHO

46

46
46
46

46

15
lit
i9

on26
on3A
09250
on62
09274
09286

00600
00100
01600
01100
01600
OHOO

09287

00000
00009
00001
00102
00100
00100
00000

09342
09354
09366
09378
09181

48
4'1

0'1452
09464
09476
09488
09500

46
11
11
12
4'1

OCJl50
09041
09033
0'1036
09066

01900
-0100
-0001
00-01

09508
09520
0'15)2
09544
09556
09568
0'1579

15
26

08272
09711
00000
09101
09568
04006

00000
0199'1
00102
00100
00100
00000

46

n x

2

EN" ROUTINE
TOM
TF
RCTY
WATY
81
To..
DC

ERSEQ+I0,0
LDMESS+lO.3999,. GET NAME INTO MESSAGE
lOMESS
.+12.0700
0\006,0

1,',.

WNTY "000
,Rl880
81
"12,0100
W1890
A
PREPARE FINAL
"005.TOTSEC, ,
01900
S...
SECTOR TYPEOUT
01910
0\005,1"
WATY LDMES2
01920
WNTY 4000
019)0
0190\0
·.12,0700
81
8Cl .+2"
01950
01960 SAVMES H
STAR
87
01970
01980 •
01990 LDMES2 DAC 5, TO '
TO •
02000 LOMESS Ole 20.AAAAAA LOADED FROM '
AAlAAA LOADEO FROM ,
02010

4

OENO STAR

09580
09592
09604
09616
09628
09640
09652
09664
09676
0'1688

14

39
46

15

1

38
46

21
12
J9

IA
46
46
48

49

04000
09604
04005
04005
09691
04000
09664
Oqh88

00000
01404

00100
00700
08511
-0001
00100
00100
00700
00100
00000

0'1697

5 X

2

09707

20 x

2

07404

'062

PAf;E

MONITOR SYSTEM LOADER
ADJUST
DSKOUT
ERHIGH
HALTRO
LDMES2
LOMESS
NoTRL2
ONE SEC
ASC

08158
09028
080S 1
019')6
09697
09707
08801
09318
09452

BF
COl
COI~I

CM
DERR
END
ERHI
ERR
ERSEQ

07856
08466
07784
07868
09381
09508
08042
08391
08262

ERTR
H2
IN IT l
LOCTR
~A'"

Nap
NOTRL
RC
ROTRL

08608
09150
07148
08029
OR867
09286
08113
07808
08488

SF 1
SKADR
SI< I
SM2
STAR
TC
TOI
TEST
T~Q

<'1S80
08481
09066
09182
01404
08H5
07520
09214
08354

WOUT
WRDSK
SAYMES
SAYMS1
TEMPSC
TOT SEC

~

09460
09042
0'l616
08134
01591
OR511

END OF ONE ASSEM8L Y.

1063

ZZJO~

FORTRAN II-D ~A~PLE PROGQAMl
Z
DIMfN510N fl}01.FI}CI,GI}01.HI5.51.FUNCTI50I,H}lS,SI.VALUEISOI

ZZFORX~1

~IM~"5Tn"

A~r.1}01

nFFTNF o,~~ 1}0.200)
EQUIVALENCE (F.ARGI,IVALUt,G,HI,IFUNCT.E.Hll
~C5FCTIXI=~INFIXI**2+COSFIXI**2

20 READ 999.XIERO.XMAX,DELX
50 READ 987,A,B.C.O
READ 992,(ARGIJI,J=1.101
READ 991.IVALUEILI.L=1.501
READ 991.IFUNCTILI.L=1.501
IND=1
RECOROIIHOI ARG.VALUE.FUNCT
READ 988,(IHIM.NI.N=I.SI.M=1.5)
RECORDftNO) H
READ 984.IFltl.I=I.10)
READ 984./GIJI.J=1.101
PRINT 983
ZOO X-XZERO
30 Xl-SINFUl
XZ-COSFnl
X3-SINFrXI/COSFIX)
X4-ExPFrXI
XS-FXPFI-XI
lr"-lO(;F on

X7-LOGFfXI/2.3058509
X8-SQRTFrx I
X9-ATAHFrX)
XI0aLOGF/X31/2.~058509

40
51

55
61

PRINT 998.X,Xl.X2.X3
PRI~T 998,X,X4,X5
PRINT 998.X,X6,X7
PRINT 998.X,X8
PRINT 998.x,X9.XIO
PRINT 988
IFIX-XMAXI 40.51.51
X"X+DELX
GO TO 30
00 61 1=1.10,5
Efll=SC5FCTIFIIII
000;5 J=1.lC.5
FIT )aJ
PRINT 999. FI I I
IC=GIJI
PRINT 998.EIII
PRINT 993oJ •. GIJI.K
CONTINUE
CONTlfllUF '

0001
0002
01103
0004
OOf'5

0006
00(\7
0008
0009
0010
OOll
0012
0013
0014
0015
0016
0011
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
{)029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049

1064

FORTRAN II-D SAMPLF PROGRAM

PAGE 2

INn=1
ARG,VALUF,FUNrT
DO 63 J-1.10
00 70 L=I,50
IFIARGIJI-VALUfILI170.65,70
65 PRINT 990,ARGIJI.FUNCTIL)
70 CONTINUE
63 CONTINUE
FETCHIINDI H
DO 130 ~=1 ,2
DO 80 N=l,~
~~TCHIINOI

H1IM,NI=HI~,NI*1.0E+2

PRINT 9~O,HIIM,NI
80 CONTIHU£
130 CONTINUE
PAUC;F
GO TO 20
983 FORMATlllX 1HX 13X 6HSINIXI lOX 6HCOSIXI lOX 6HTANIXI IllX1HX 13x
1 6HEXPCXI lOX 7HfXPI-XII llX 1HX 13X 6HLOGIX) 9X 8HLOGI0IX)1 llX
2 1HX 13X 7HSQRTIXII llX IHX 13X 7HATANIX) 7X 13HLOGI0ITANIX)111 )
998 FORMAT(4F16.81
991 FORMATCI0F5.2)
992 FOR~ATCF4.2,9F5.2)
993 FORMATCI3,5X,FIO.7,5X,I31
984 F·ORMATllOF4.2)
987 FORMATCF5.3,lX.F5.3,IX,F5.3,lX,F5.3)
999 FORMAT(3F4.0)
990 FORMATC2F20.7)
918 FORMATCI0F4.3)

END

1)051)

0051
0052
0')53
1)1)54
0055
0056

C057
0058
0059
0061)

0061
0062
0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
0013
0074
0075
0076
0077
0078
0079

-DATA

.40 .60 .10
1.111 2.222 3.333 4.444
'i.o 10.n ,-4.0 11.1'1 '9.0 17.(\ 44.1'1 41.(\ 50.1' l.n
1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.n 9.0 1~.0
11.n 12.0 1'.0 14.0 15.0 16.0 17.0 18.0 1I~.0 2C.0
21.0 22.0 2~.0 24.0 2~.0 26.0 27.0 28.0 2C).0 3C.0
31.0 32.0 33.0 34.0 35.0 36.0 37.0 38.0 39.0 40.0
41.0 42.0 4~.0 44.0 45.0 46.0 47.0 4!1.0 49.0 o;o.c
1.10 2.10 3.10 4·.10 5.10 6.10 7.10 8.10 9.10 10.1
11.1 17.1 1~.1 '4.1 1 11 .1 1('..1 1 7 .1 11'1.' In.1 '1'.1
21.1 21.1 2 .... 1 74.1 25.1 26.1 :n.l :?8.1 ?C).1 ~:).1
31.1 32.1 ".1 34.1 3';'1 .. 6.1 :3 7.1 38.1 3 0 .1 40.1
41.1 42.1 4--.1 44.1 45.1 46.1 47.1 48.1 4".1 0;0.1
.11 .22 .... 3 .44 .55 .66 .77 .1'8 .99 .10
.11 .12 .13 • 14 .1') .16 .17 .18 .19 .20
.21 .22 .23 .24 .7<;
1.1 2.2 3.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0
2.1 2.2 3.3 2.4 2.5 2.6 2.7 2.8 2.9 "!.~

0080
0081
0082
('083
0084
0085
0086

a08 7
::O!l8

""fIIC)
"O.,.

PC[~T

--.,-

BEl

,RECORD,FETCH,SWO,ORAY,CICENC

.... ARCWARE
00004
00009
00014
00C19
00024
00C29
OOCOO
00716
00520
00565
00816
00554
OOtlO
00602
00624
005t6
00532
02492
03381
03583
03605
03421
03318
03t76
02615
03160
03810
04042
03319
02100
03854
02243
02240
02238
02233
02221
02219
01316

00005
C0005
C0005
00005
00C05
C0005

-C072
-0 334
-0298
-0216
-0024
-0210

00000
00000
00000
00000
00000
00000
00000
00000
COOOO
00000
00000
00000
OOCOC
OCOOO
00000
00000
OCOOO
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

00000 K6 00143 02233
00012 M9 01004 ecooo
SET TOSB TO BRANCH
00024 J5 00013 eOO09
TEST FOR EVEN ADDRESS
00036 '-3 00536 03421
00048 JO 00265 -C698
00060 M9 00228 oeooo
SET FINC INOICATOR [N •
00012 15 03583 OCOOO
BRANCH TO CO~PUTE ACORESS AND TESTI
00084 JO 00150 -0310
00C96
00108
AND N2
00120
00132
00144
00155

K4 0001J 02100
M1 00156 01100
K4 0001J 02238
'-6 00156 01100
49 OOOCO 00000
COOOO

00520 BE2
00530
00540

BI
TFM
BD

·+12,1400
EI,412,9,
ERROR,DDABLK"

00550
00560
00510.
00580 •••••
00590 SWDA
00600
00610

TFM
B

OSAOTR+5,ERROR
SETRMK

SWD SUBROUTINE
TOM SWD+900,0
TFM ·-11,41,10
A
BUFFAR,W"

00156 1'16 00168
I GRT N2
00168 16 02615
BR IF CK WAS ENTERED FROM BUFFER ROUTINE
00180 4L 03616
00192 J6 00403
00204 M9 00354

01400
00M12
oe241
-3616
OCOOO

00216 J5 01116 OCOOO
00228 J6 00211 OOOMI
INCREMENT BUFFAR ARROW
00240 K1 00155 02240
00620
B
SWOl
00252 M9 00406 OCOOO
00630
DORG ·-4
00259
00640 ICON8 DC
1,9
00259 00001
00650
OSA RETFL T
00264 00005 -0896
006bO
DORG ·+5
00269
00610 10ENO TFM OSAOTR+5,OIOENO
00210 JO 00403 -0210
00680
BO
SETRMK,FRINO"
BRANCH IF FETCH
00282 ML 00354 00163
00690
Nl TEMP,Nl
C
00294 K4 00143 02233
00100
BE
SETRMK.,.
BRANCH IF BUFFER Epo1PTY
00306 1'16 00354 01200
00110
TFM IORT,·+23"
WRITE BUFFER TO FILE
00318 10 00565 -0341
00120
IOPT ,OKOATA,l
B
00330 49 00532 -3319
AM
00130
FINO-l,l,610
00342 Jl 0001J OCO-l
00140 SETRMK TO
SWO+900,OKBUFF+200
00354 KN 01116 01210
00150
TFM IORT,IOREF2+11
00366 10 00565 -0429
00760
10GT
00318 49 00566 00000
B
00710
DORG ·-4
00385
00780 DDB
OSC 101
00385 00001
00790
DSA 200
00390 00005 -0200
3,9
00800
DC
00393 00003
00810 DSAOTR DSA SWD,DIOEND
0039B 00005 -0216
00403 00005 -0210
00820
DC
00404 00001
I, '
FETCH1,FRINO, •
00830 SWDI
BD
BRANCH IF FETC ..
00406 fill 00118 00163
RECORD
00840-.
00850 IOREF2 CF
SWD-l,DATB.l,
CLEAR FLAG ON ADDRESS OF DATA
00418 LL 00215 -1061
00860
SM
NlTEMP,l,10 •
DECREMENT WORD COUNT
00430J2 00143 000-1
TF
BUFFAR,SWD-l.611 ,
00870
SEND WORD TO BUFFER
00442 KO 0015N 0021N
BUFFAR,2
00454 J2 00155 -0002
SM
00880
SM
SWD-l.2
00466 J2 00215 -0002
00890
TF
BUFFAR, SWO-l. 611
00478 KO 0015N 0021N
00900
BUFFAR,2
AM
00490 Jl 00155 -0002
00910
NlTEMP,O,10.
CHECK FOR FULL BUFFER
CM
00920 CK
00502 J4 00143 OCO-O
00514 M7 00012 01200
BNZ TOBB
00930
TOBB-12,FRINO,.
BR I F FETCH
00526 i'lL 00000 00163
BO
009"0
TFM LINKB+lS,IOPT
00538 J6 005es -0532
00950
IFM RETD2+6, LI NKB
00550 JO 00150 -0510
OM60 CKI
N2CK
00562 "'9 00096 00000
00970
B
00569
00980
DORG ·-4
00990 LINKB TFM IORT.-+23,.
CALL CORRECT ICRT ROUTINE
00510 10 00565 -0593
.OKOATA,l
00582 49 00000 -3379
B
01000
INITIALIZE BUFFER ARROW
TFM BUFFAR,DKBUFF+199"
01010

0102C
01030
010100

S
BNF
A

01050 ACDTOI AM
01060
A
01010
0108C
01090
0110C
01110 AGAIN
01120
01130
011100 FETCHI
01150

SO

BL:FFAR-Z. RECLG
"+24.FRIND
BLFFAR .10/
FIND-l.l.610.
DIOOOA+5.DIOQDA+8 ••

FE TCH2 .FR I NO
B
TOBB-12
OGRG "-4
A
DRAY-I. FP2
TF
SI.0-1.0RAY-l
B
S .. O
DORG "-4
N1TEMP.N1
C
BNE FETCH2 It'

00594 JO 00155
00606 K2 00153
00618 101M 00642
00630 Kl 00155
INCRE"Et-.T I 00642 J1 0001J
INCREMENT SECTCR ADDRESS
00654 21 03392
00H6 ML 00162
00618 "9 00000
00685
00686 K1 00023
00698 KO 00215
00110 M9 00216
00111
00118 K4 00143
8RANCH IF BUFFER NCT EMPTY
00730 "'1 00162
00142 J6 00588
00154 ,.9 00550
00161
00162 J2 00143

-1269
02243
00163
02240
OCO-l
03395
00163
00000
03605
OC023
OCOOO
02233

01200
TFM LINK8+18.IOGT
-C566
B
CKI
OCOOO
OORG "-4
S,.
N1TEMP.1010
000-1
SEND THE Io/ORO TO FAC
TF
FAC.BUFFAR.ll
00114 20 02492 0015N
SM
BUFFAR.2
001B6 J2 00155 -0002
TF
FAC-2.BUFFAR.ll
00198 20 02490 0015N
AM
BUFFAR.2
00810 Jl 00155 -C002
·+12,1400
BI
00822 "6 00834 01400
TEST FOR FLOATING ADCRESS AT SWD-l
Bi'!F
FE TCH3, SWO-1
00834 MM 00928 00215
IT IS A FIXED ADDRESS
:~ F
SWD-l
00846 L3 00215 00000
TEST FOR FLOATING WORD IN FAC
BNF FE TCH4 ,FAC-l
00858 M4 00940 02491
THE WORD IS FLOATING SET UP LINKAGE FOR FIX
F I XENO+6, ICON1+6
TF
00810 20 03766 OC895
FIX
B
00882 49 03854 00000
CORG "-4
00889
1,4
00889 00{)01
DC
1,9
OSC
00890 00001
DSA RETFl T
00895 00005 -0896
TOM FIXENO+1,2
00896 15 03761 COO02
TOM FlTENO-5,2
00908 15 03805 OC002
BRANCH TO STORE NUMBER
FETCH4
00920 M9 00940 00000
B
00921
DORG --4
BRANCH IF FIXED
BNF FETCH5.FAC-1 ••
00928 ,.4 00984 02491
STORE THE WORD IN ME,.ORY
0145000940 K6 0021N 02492
SWO-1,FAC.6
01460 FETCH4 TF
00952 J2 00215 -C002
SM
Swo-l,2
01.410
00964 K6 0021N 02490
TF
Sko-l,FAC-2,6
01480
CHECK FOR EMPTY BUFFER
0149000976 1019 00502 00000
CK
01500
B
DORG ..-4
00983
01510
SET UP LINKAGE FOR flOAT
01520FLTENO,ICCN8+5
00984 20 03810 00264
01530 FETCH5 TF
00996 49 04042 OCOOO
FLOAT
B
01540
01003
CORG .. -4
01550
DECREMENT WORD COUNT
PAR,I,lO ••
01560 DRAYI SM
01004 12 03318 000-1
BNZ "+14
01016 "1 01030 01200
01510

01160
01110
01180
01190 FETCH2
01200"
01210
01220
01230
o lHO
01250
01260·
01270
01280"
01290
01300"
01310
0132001330
013100
01350
01360 IC.:N7
01310
01380
01390 RETFLT
01400
0141001420 CKLO
01430
01440 FETCH3

01580
01590
01600
0161C
01620
01630
01640 DATB
01650
01660
01610 DKBUFF
0168001690*
011000111001120 L01RD
01130
01HO
01150 01141
01160
01110
01180
01190
01800
01810 SHOl
01820
01830
018ltO
01850
01860
01870
01880

01890
019000191001920
01930 SkO
01940
01950
01960
01910 OOABLK
01980
01990
02000 DSABLK

FlB
DORG
BNF
S
B
DORG
OSC
OSA
DC
OS

01028
01030
01030
01042
01054
01061
01C61
01061
01068
01010

--9

AGAIN-12,ORAY-1
DRAY-1,K
AGAIN
--4

2,-00
ODB
1, •
,OATB+9

42 00000 OCOOO
00686 OC023
K2 00023 02221
"'9 00698 CCOOO

"'' '

00002
00005 -0385
00001
00000

WRITE 2ND BLOCK
OSC
OSA
DC
DSC
OSA
DC
DSA
DC
OORG
TOM
OGM
TO
CF
CF
TF'"
B
TRA

2,00
01141
1, •
1,1
209
3,9
SWO
1, '
SWOA+902
OKBUfF+200,0

TCO

STL01

01069
01015
01016
01011
01082
01085
01090
01091
01118
01118
01129
01130
01142
01154
01166
01118
01190
01202
01209
01211
01216
01211
01223
01226
01118

-

SWO+900,OKBUFF+200
lCON1+2
ICON8+!
IORT,-+23
IOPT,L01RO,1

BLOCK 1 OF FETCH FIND RECORD
DORG SWOA
TFM DSABLK+5,SWO
TF",
IORT,IOREF+l1
10GT
B
OORG --4
OSC 101
OSA 209
3,9
DC
OSA SWD.SWO

DC
02010
DORG
02020
02030 DIOENO BI
02040
BB
02050
DORG
02060 OAll
OSC
OSA
02010
DC
02C80
OS
02090
02100 FETCH TF

1, •
10ENO
*+12,1400
--9

2,-00
DDABLK
1. •
5
F IND-l,FETCH-l"

TRAt.SFER I

00216
00216
00228
00240
00241
00241
00252
00255
00260
00265
00266
00210
00210
00282
00284
00284
00290
00291
00296
00298

00002
00005 -1011
COOOI
COOOI
00005 -0209
00003
COO05 -0216
00001
J5 01210 OCOOO
00001
KN 01116 01210
l3 00891 OCOOO
l3 00260 CCOOO
10 00565 -1189
4R 00532 -1069
10 00565 -1209
49 00116 OCOOO
00002 2K
00005 -1211
00001 '
00006 1J9183
00003 -03
C0006 -OOOC'

JO 00265 -C216
10 00565 -C511
49 00566 CCOCO
00001
00005 -0209
COO03
00005 -0216
00005 -0216
00001
",6 00282 01400
42 OOCOO CCOOO
COO02
00005 -0241
00001
00005
KO 00011 OC291

02110

TOM

FRINO,I,II,

SET FETCH-RECORD INDICATOR TO FETCH
00310 J5 00163 OOOOJ
02120
8
AITEST".
BRANCH TO SET FIND INDICATOR OFF ,
00322 "'9 00358 00000
02130COMPUTE ADDRESS • TEST I • AND TEST
02140FOR DEFINE STATEMENT.
02150 RECORD TF
FINO-l,RECORO-1"
TRANSFER I
00334 KO 00011 00333
02160
TOM FRINO,O"
SET FETCH-RECORD INDICATOR TO RECRD
00346 J5 00163 00000
02110 AITEST TOM FINOIN,l"
SET FIND INDICATOR OFF
00358 15 03583 00001
TFM 01000A+5,211 ••
02180 SEll
SET SECTOR ADDRESS IN ODA
00310 16 03392 -0211
02190
FINO-l,RECLG,6.
COMPUTE AOORESS OF FILE RECORD
00382 K3 0001J 02243
02200
A
DIODDA+5.99
00394 21 03392 00099
BD
02210
-+44,FINDIN.,
BRANCH IF NOT FIND
00406 1"13 00"50 03583
02210 SSEEK TFM IORT,-+23
00418 10 00565 -041tl
02230
B
10SK,OKDATA,1.
TRANSFER TO IORT TO SEEK
00430 49 00554 -3319
B
DIOENO
02240
00442 1"19 00210 00000
02250
OORG --3
00450
02260
TFM BUFFAR.DKBUFF+199"
INITIALIZE BUFFER ARROW
00450 JO 00155 -1269
BUFFAR-2,RECtG
02210
S
00462 K2 00153 022"3
TF
00"14 K6 00143 02233
02280
NlTEI"IP,NI "
TF
STORE RECORD LENGTH IN ODA
02290
010DDA+8.RECLG"
00"86 26 03395 02243
TFM 01000A+13.DKBUFF+200.,
STORE ADDRESS OF BUFFER
02300
00lt98 10 03400 -1210
DIODDA+l1,RECLG.,
SUB LENGTH OF RECORD TO GET FIRST COR
S
02310
00510 22 03398 02243
INITIALIZE BRANCH BACK
TOM TOBB+1,2"
02320 OVER
00522 J5 00013 00002
00534 42 00000 00000
BB
02330
00536
02HO
OORG --9
STORE FLOATING LENGTH IN TEMPA
02350 EVEN
TF
TEMPA,FP2"
00536 K6 00119 03605
BRANCH IF FLOATING ARRAY
02360
BNF -+36,DRAY-1.,
00548 1"11"1 00584 00023
00560 LL 00023 -0281t
DRAY-1,OAll.l
02310 10REF CF
STORE FIXED LENGTH IN TEMPA
TF
02380
TEMPA,K"
00512 K6 00119 02221
STORE ADDRESS OF FIRST ELEMENT
TF
OIOODA+13.0RAY-1"
02390
00584 20 03400 00023
00596 11 03"00 -0001
AM
01000A+13.1
02400
HIGH ORDER POSITION OF ARRAY
DI000A+13.TEMPA.,
S
02410
00608 2K 03400 00119
00620 K6 00103 03ltOO
TF
EVENl+11,OIODDA+13
02420
00632 K3 00119 03318
TEMPA.PAR
02430
006"4 K1 00103 00099
EVENl+11,99
A
02440
EVALUATE AND STORE lOW ORDER
024S0POSITION + 1 OF ARRAY
024'000656 H 00103 -0000
EVENl+ 11.0
02410 CARRY CM
00668 "'1 00692 01200
8NE -+24
02lt80
00680 J6 00103 -COOO
TFM EVENl+11,O
02lt90
00692 K5 00951 00000
EVEN2+11
02500 EVEN1 TO
EVALUATE SECTOR COUNT
0251000704 32 00095 00000
SF
95
02520
A,..
99,1,10, ADD ONE FOR GROUP ~ARK
00716 11 00099 000-1
02530
00728 26 03395 OC091
DIOOOA+8,91"
SET UP SECTOR COUNT
TF
02540

'"

02550
02560
02510

C

·+8,99,1
·+24
0100DA+8tl.9.

00140 K4 00148 -0099
00152 "'6 00116 01200
AM
ADD TO SECTOR CNT IF NOT EVEN HUNDREDS
00164 11 03395 00-01
02580
95.REClG
o
00116 29 00095 02243
A
02590
FIND-l.94.6. ADO NUMBER OF RECCROS TO I 00188 Kl 0001J 00094
02600
BD
·+36.96
00800 ... 3 00836 00096
02610
BO
·+24.95
00812 ... 3 00836 00095
02620
SM
FINO-1.1.610
00824 J2 0001J 000-1
02630
00836 JO 00150 -0856
TF'" RET02+6,·+20
02640
8
N2CK
00848 "'9 00096 00000
02650
DORG ·-4
00855
02660
AM
F IND-1.1.610
00856 J1 0001J 000-1
02610
TFM 010+35.YTURN.61.
INSERT ADDRESS FOR ERROR ENTRY
00868 10 0085J -1048
02680
BD
FETCH8.FRIND ••
BRANCH IF FETCI1
00880 Ml 00966 00163
02690"
RECORD
02100
TO
EVEN1+11.0KBUFF+200.6.
SET GROUP MARK AT END OF ARRAY
00892 KN 0010l 01210
02110"
WRITE ARRAY ONTO FilE
02120
TF'" IORT.*+23
00904 10 00565 -0921
02130
B
10RBC.NOWlC .1
00916 4R 00520 -1091
02140
TOM Fl TEND-5.2
00928 15 03805 00002
02150 EVEN2 TOM EVENl+ll.,6.
RESTORE DIGIT
00940 J5 0010l OCOOO
02160
A
OIOOOA+5.01000A+8 ••
INCREMENT SECTOR ADDRESS
00952 21 03392 03395
02110
BB
00964 42 00000 OCOOO
02180
OORG "-9
00966
02190 FETCH8 TFM [ORT.*+23 ••
READ ARRAY FROM FILE
00966 10 00565 -0989
02800
B
IOGT.OKDATA.l
00978 49 00566 -3379
02810TEST FOR NO GROUP MARK
02820
BNG *+20.EVENl+ll,11
00990 NN 01010 0070l
B
EVEN2
01002 M9 00940 00000
02830
02840
OORG "-4
01009
TF
FlTENO.EVENSP+6
02850
01010 20 03810 01041
TFM EI.415.9
01022 16 02615 00M75
02860
B
ERROR
01034 49 03616 OCOOO
02810
OORG .-4
02810
01041
02890 EVENSP DC
01041 00{)01
1.4
029CO
DSC 1.9
01042 00{)01
02910
GSA EVEN2-12
01047 00005 -0928
02920 YTlJRN BI
-+12.3100
01048 M6 01060 03100
BNI ERRET .1900
01060 47 00602 01900
02930
TOM INOS+10.6
01012 15 00620 OC006
02940
B
IOERR
01084 49 00624 00000
02950
OORG ..-4
01C91
02960
01091 00002
02910 HOWlC DSC 2.02
DSA OIODOA
01091 00005 -3387
02980
01098 00001
02990
DC
1.'
2.N2CK+23
00119 00002
03000 TEMPA OS
00143 00002
03010 NlTEMP DS
2.RETD2-1
00163 00{)01
1.BE2+1
03020 FR[NO OS
WRITE FIRST BLOCK
030300304001099 00001
03050 0lM2
OSC 1 rl
01104 00005 -0200
OSA 200
03060
01101 00003
03010
DC
3.9
OSA SwO
01112 00005 -0216
03080
8f:

03090
03100
03110 lD2NO
03120
03130
0310\0 STl02
03150
0316C
03170
03180
03190

DC
DORG
DSC
OSA
DC
CF
TO
AM
TFM
B
TRA

0320C
03210

Teo STlC2
DE NO 6

1. •

S~0+902

2.00
0[142
1. •
EVENSP+2
CARRY+7.CORSII
CARRY+8.1C
IORT,-+23
10PT ,l02ND, 7.

01113
01118
01118
01124
01125
01126
01138
01150
01162
WRITE OUT 2ND PART BlK 1 oli 74
01186
01198
01205
01207
01212
01213
01219
01222
01126
00006

00001
00002
00005 -1099
COOOI
L3 01043 00000
K5 00663 07376
Jl 00664 -COlO
10 00565 -1185
4R 00532 -1118
10 00565 -1205
49 00716 OCOOO
00002 2K
00005 -1213
00001 •
C0006 IJ9783
00003 -03
00006 -0000'

SY,",BOl TABLE
SETRplK
Fl TEND
FETCH4
OSAOTR
OIOOOA
AOOTDI
CK
OCB
ORAY1
EVENI
FINO
FRINO
IOENO
IOREF
lO2NO
N2CK
SEn
SWOA
YTURN

00354R
03810
00940R
00H8R
03381
00642R
00502R
00385R
01004R
00692R
00012R
00163R
00270R
00560R
01ll8R
00096R
OOHOR
00216R
01048R

RETFlT
F IXENO
FETCH3
OSA8lK
OOA8lK
AOR
CKI
01111
EI
EVEN2
FIX
ICON7
IOERR
10RT
LINKS.
OVER
SSEEK
sw01
ZERO

00896R
03160
00928R
00260R
00247R
00004R
00550R
01077R
02615
0094CR
03854
00889R
00624
00565
00570R
00522R
00418R
00406R
02700

RECCRO
FINOIN
FETCH2
OKOATA
CORSIZ
AGAIN
CKlO
01 .. 2
ERRET
F
FKCoO
ICCN8
IOGT
IOSK
NCwlC
PAR
STlOl
TE"'PA

00334R
03583
00762R
03379
07376
00698R
oonOR
01099R
00602
02219
03421
00259R
00566
00554
01091R
03318
o lll8R
001l9R

N lTEMP
FETCH8
FETCH1
OK8UFF
SUFFAR
BE2
OHB
010
ERROR
FAC
flOAT
INoS
ICPT
K
N1
REClG
STlO2
TDBB

OOl43R
C0966R
007l8R
01070R
00155R
00156R
01061R
00816
03676
02492
04042
00610
00532
02221
02233
02243
01l26R
00012R

IOREF2
FETCH5
EVENSP
DIDENO
AITEST
CARRY
OAll
DRAY
EVEN
FETCH
FP2
lOCAL
IORBC
LCIRO
N2
RET02
SWO
W

00418R
00984R
01041R
00210R
00358R
00656R
00284R
00024R
00536R
00298R
03605
00116
00520
01069R
02238
00144R
00216R
02240

000100002000030 ACR

FORTRAN 11-0 OK 10

~ITH

FlT HARDWARE

CSA

FIND

00040
00050 lOCAL
00060 IORBC
00010 10RT
00080 010
00090 10SK
00100 INOS
00110 ERRET
00120 IOERR
00130 10GT
00 litO IOPT
00150 FAC
00160 oIOOOA
00110 FINolN
00180 FP2
00190 HOO~
00200 PAR
00210 ERROR
00220 EI
00230 FIXENo
00240 FL TEND
00250 flOAT
00260 OKOATA
00210 ZERO
00280 FIX
00290 REClG
00300 W
00310 N2
00320 Nl
00330 K
00340 F
00350 CORSIZ
0036000310
00380 T088
00390 DRAY

OORG
OS
OS
OS
OS
DS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

AOR-4

TF
8
TOM

NlTEMP,Nl
ORAYl.,O
T068+1.9 ..

00400

80

EIIEN,FKOOo.,

00410
00420
00430 FIND

TFM
B
TOM

oSABlK+5,AGAIN
SWo+12
FINoIN.O ..

00440

TFM

RETo2+6, SETl ••

N2
0045000460 N2CK
00410
00480

(I GRT ",21
ERROR ROUTINE
FINO-l,ZERO,6.
I S I ZERO OR NEG
C
BNH BE2
COl/PARE
FINO-l.N2,6.
C

BH
00490
00500 RET02 B
00510 BLFFAR OS

,RECORO,FETCH,SWC,ORAy,OICE~C

,116
,520
,565
,816
,554
,610
.602
,624
,566
,532
,2492
.3381
,3521
,3664
.3519
,3318
,3596
,2615
,3680
,3130
,4042
.3379
.2100
,3854
.2243
,2240
.2238
,2233
.2221
.2219
,1316

BE2

---,.

00004
00009
00014
00019
00024
00029
00000
00116
00520
00565
00816
00554
OOflO
00602
00f24
00566
00532
02492
03381
03521
03664
03519
03318
03596
02f15
03680
03130
04042
03319
02100
03854
02243
02240
02238
02233
02221
02219
07316

00005
00005
00005
00005
00005
00005

-0072
-0334
-0298
-0216
-0024
-0210

00000
00000
000100
00000
00000
00000
00000
COOOO
OOCOO
00000
00000
00000
00000
00000
OOCOO
COCOO
00000
00000
00000
COOOO
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

00000 K6 00143 02233
00012 M9 00896 00000
SET TOBB TO BRANCH
00024 J5 00013 OC009
TEST FeR EVEN ADDRESS
00036 ~3 00536 03579
00048 JO 00265 -0650
00060 ~9 00228 00000
SET FI~C INCICATOR eN •
00012 15 03527 00000
BRAf\jCH TC CO~PUTE ADCRESS AND TEST!
00084 JO 00150 -0310
00096
00108
AND f\j2
00120
00132

K4 0001J 02700
M1 00156 01100

K4 0001J 02238
1016 00156 01100
00144 49 OOCCO CCOOO
00155 00000

00520 BE2
00530
00540

BI
TFM
BO

·+12,1400
EI,472,9,
ERROR,DDABLK"

0055C
00.56e
00570.
00580· ••••
00590 SkDA
00600
00610

TFM
B

DSAOTR+5,ERRCR
SETRMK

SWD SUBROUTINE
TOM SkD+900,O
TFM .-11 ,41,10
A
BUFFAR,W"

00156 M6 C0168
0016B 16 02615
I GRT /1;2
BR IF CK WAS ENTERED FROII BUFFER ROUTINE
00180 4L 03596
00192 J6 004C3
00204 M9 00354

01400
OCM72
ce247
-3596
eeoco

00216 J5 01116 CCOCO
00228 J6 00217 OCOMI
INCREMENT BUFFARARROW
00240 K1 00155 0224C
0062e
B
SkD1
00252 M9 00406 OCOCO
0063e
DORG ·-4
00259
006110 ICON8 DC
1,9
00259 00001
00650
DSA RETFL T
00264 00005 -0812
DORG .+5
00660
00269
00670 IOEND TFM OSAOTR+5,OIOEND
00270 JO 00403 -C210
BRANCH IF FETC,",
00680
BO
SETRMK,FRIND"
00282 Ml 00354 OC163
N1 TEMP,N1
00294 K4 00143 02233
00690
C
0070e
BE
BRANCH IF BUFFER EfoIPTY
SETRMK",
00306 M6 e0354 01200
TFM IORT,·+23"
00710
WR ITE BUFFER TO FILE
00318 10 00565 -0341
IOPT ,DKDATA,7
00330 49 00532 -3379
00120
B
AM
FINO-1,l,610
00730
00342 J1 0007J OCO-1
SkD+900,DKBUFF+200
·00354 KN 01116 01162
00140 SETRMK TO
00366 10 00565 -0429
00750
TFM IORT ,IOREF2+11
00378 49 00566 OCOOO
00160
10GT
B
DORG .-4
00770
00385
00385 00001
00780 DDB
DSC 1,1
00390 00005 -020e
00790
DSA 200
3,9
00393 00003
00800
DC
00398 00005 -0216
00810 DSAOTR DSA SkD,DIOEND
00403 00005 -0270
00404 00001
00820
DC
I, •
FETCH1,FRIND. ,
BRANCH IF FETC ...
00830 SWD1
BD
00406 Ml 00670 OC163
RECORD
00840-CLEAR FLAG ON ADDRESS OF DATA
00850 IOREF2 CF
SWD-1.DATB.7.
00418 LL 00215 -0953
SM
DECREMENT WORD COUNT
NlTEMP.1,10,
00860
00430 J2 00143 OCO-l
00442 -0 0015N OC21N
TFL BlFFAR,SWD-l,611
00870
CHECK FOR FULL BUFFER
CM
NlTEMP.0.10,
0088C CK
00454 J4 00143 OCO-O
004M M7 00012 01200
BNZ TOBB
00890
00478 foiL OOCOO 00163
BR IF FETCH
TOBB-12,FRIND ..
00900
BD
00490 J6 00540 -0532
TFM Ll NKB+ 18. 10PT
00910
00502 JO 00150 -C522
TFM RETD2+6,LlNKB
00920 CKI
00514 M'1 00096 eeooo
N2CK
00930
B
00521
DORG .-4
00940
CALL CORRECT ICRT ROUTINE
00950 lINKB TFM IORT.·+23"
00522 10 00565 -C545
00534 49 CCOOO -331'1
.DKDATA,7
00960
B
TFM BlFFAR,DKBUFF+199"
l"'ITIAlIZE BUFFER ARROW
00970
00546 JD 00155 -1161
00558 K2 00153 02243
BlFFAR-2,RECLG
00980
S
00570 MM 005'14 OC163
BNF .+24,FRIND
00990
00582 Kl 00155 02240
BUFFAR,W
A
0100e
INCREMENT I 00594 Jl 0001J OCO-1
FIND-l.l,610.
01010 ADDTOI AM

0102C
0103C
010100
01050
0106.0
01010 AGAIN
01080
01090
01100 FETCHI
01110
01120
01130
011100

01150 FETCH2
0116001110
01180
0119001200
0121001220
01230OlHO
0125001260
01270
01280
01290 ICON7
01300
01310
01320 RETFLT
01330
013~0-

01350 CKLO
01360
01370 FETCH3
0131001390 FETCH4
0140001~10

OH20
OH3001440 FETCH5
01450
01460
01470 ORAYl
01480
01490
01500
01510
01520
01530
015't0
01550 DATB
01560
01570
01580 DK8UFF

DIODDA+5.DIODDA+8.,
BO
B

FETCH2.FRINO
TOBB-12

OORG --4
A
ORAY-l.FP2
TF
SIoO-1,ORAY-l
B
SIoO
OORG --4
NITEMP,Nl
C
BNE FETCH2. t I

I~CREMEH

SECTCR ACDRESS
00606 21 03)92
OOt: 18 ML 00714
00630 M9 OCOOO
00631
00638 K1 00023
00650 KO 00215
00662 M9 00216
00669
00670 K4 00143
BRANCH IF BUFFER NCT EMPTY
00682 'H 00714
00694 J6 0054C
00706 M9 00502
00713
00714 J2 00143

0:3395
00163
CGOOO
0]664
00023
OllOOO

011200
LINKB+18.IOGT
-I: 566
B
CKI
OllOCO
DORG --4
SM
NlTEMP.l.lO
0()0-1
SEND THE WORD TO FAC
TFL FAC,BUFFAR,11
00726 00 02492 OC15N
BI
u12. 1400
00138 M6 00750 01400
TEST FOR FLOATING ADDRESS AT SWO-l
00150 MM 00844 00215
BNF FETCH3,SWD-l
IT IS A FIXED ADDRESS
00762 L3 00215 O()OOO
CF
SWO-1
TEST FOR FLOATING WORD IN FAC
BNF FETCH't,FAC-1
00774 M4 00856 02491
THE wORD IS FLOATING SET UP LINKAGE FOR FIX
TF
FIXENO+6.ICON1+6
00786 20 03686 00811
00198 49 03854 00000
B
FIX
00805
DORG --4
00805 00001
DC
1.4
DSC 1,9
00806 00001
DSA RETFLT
00811 00005 -0812
TOM FIXENO+1.2
00812 15 03681 ce002
00824 15 03725 00002
TOM fl TENO-5. 2
BRANCH TO STORE NUMBER
B
FETCH4
00836 M9 00856 oooeo
00843
DORG --4
BNF FETCH5,FAC-l ••
BRANCH IF FIXED
00844 M4 00876 02491
STORE THE WORD IN MEMORY
TFL SWO-l,FAC,6
00856 -6 0021N 02492
CHECK FOR EMPTY BUFFER
00868 .. 9 00454 00000
8
CK
00875
OORG --4
SET UP LINKAGE FCR FLOAT
00876 20 03130 00264
TF
FLTENO,ICON8+5
00888 49 04042 OCOOO
B
flOAT
00895
DORG --4
DECREME~T WORD COUNT
SM
PARtidO"
00896 12 03378 000-1
00908 M7 00922 01200
BNZ -+14
00920 42 00000 ceooo
BB
00922
DORG .-9
00922 MM 00638 oe023
8NF AGAIN-12,DRAY-l
00934 K2 00023 02221
DRAY-1,K
S
009't6 M9 00650 OCOOO
AGAIN
B
00953
DORG ·-4
00953 00002
DSC 2.-00
00959 00005 -0385
DSA DDB
00960 00001
DC
1• '
00962 COOOO
.DATB+9
OS
TFM

015'001600016100162001630 L01RO
0161t0
01650
01660 OIMI
01610
01680
01690
01100
01110 STlDl
01120
01130
o 1 litO
01150
01160 HERE
01110

01180
011900180001810
01820 SWO
01830
o 18 itO
01850
01860 00A8LK
01810
01880
01890 OSABlK

WRITE 2ND !lOCt(
DSC
DSA
DC
OSC
OSA
OC
OSA
DC
CF
OGM
CF
TFM
TO
B
TRA

2,00
DIf4l

TCO

STlOl

1,'
1,1
209
3,9
S~O

1, '
ICON1+2
OATB+9+200
ICON8+1
10RT.HERE+11
ShO+900,OKBUFF+200
IOPT,L01RO.l

00961
00961
00968
00969
00914
00911
00 .. 82
00983
00984
01162
00996
01008
01020
01032
01044
01e56
01063
01065
01010
01071
01011
01080
00984

00002
00005 -0969
00001
00001
00005 -0209
00003
00005 -0216
00001
l3 00801 OOOCO
00001
l3 00260 oeooo
10 00565 -1043
KN 01116 01162
4R 00532 -0961
10 00565 -1063
49 00716 OCOOO
00002 2K
00005 -1011
00001 '
00006 1H183
00003 -03
00006 -0000'

BLOCK 1 OF FETCH FINO RECORD

00216
00216 JO 00265 -C216
10RT ,IOREF+11
00228 10 00565 -0511
0021t0 49 00566 oeooo
10GT
00241
--4
00241 00001
1,1
00252 00005 -0209
209
00255 00003
3,9
00260 00005 -0216
ShO,S~D
00265 00005 -0216
00266 00001
01900
OC
1,'
00210
DORG IOENO
01910
00210 M6 00282 01400
-+12,1400
01920 OIOENO 81
00282 42 OCOOO 00000
BB
01930
00284
OORG --9
01940
00284 00002
01950 OATl
DSC 2,-00
00290 00005 -0241
DSA ODABLK
01960
00291 00001
DC
01970
I,'
00296 00005
OS
5
019.0
00298 KO 00011 00291
TRANSFER I
FINO-1,FETCH-l"
01990 FETCH TF
SET FETCH-RECORD INDICATOR TO FETCH
TOM FRINO,l,ll,
02000
00310 J5 00163 OOOOJ
BRANCH TO SET FINO INDICATOR OFF,
AITEST .. ,
B
0201C
00322 M9 00358 ceooo
COMPUTE ADDRESS • TEST I , ANO TEST
02020FOR OEFINE STATEMENT •
02030TRANSFER I
00334 KO 00011 OC333
FIND-l.RECORO-l.,
0201t0 RECORO TF
SET FETCH-RECORD INDICATOR TO RECRO
TOM FRIND,O ••
02050
00346 J500163 oeooo
SET FIND INDICATOR OFF
02060 AITEST TO,. FINDIN,l"
00358 15 03521 00001
SET SECTOR AOORESS IN OOA
Oleno sen TfM 01000A+5,217"
DORG
TF,..
TF,.
B
DORG
CSC
OSA
OC
OSA

S~OA
DSABLK+5,S~D

02080
0209C
0210C
02110 SSEEK
02120
0213C
02140
02150
0216C
02170
02180
0219C
02200
02210 OilER
02220
02230
02240 EllEN
02250
02260 IOREF
02270
02280
02290
02300
02310
02320
02330
02340 CARRY
02350
02360
0231002380"
02390 EVENI
024000241C
02420
02430
02440
02450
02460
02470
024BC
02490
0250e
0251e
02520
0253C
02540
,,'--~--

00310 16 03392 -(217
CCMPUTE ACCRESS OF FILE RECORC
00382 K3 0007J 02243
A
CIO()OA~5,99
00394 21 03392 OC099
BO
B~ANCH
"~44,F IfIIOIN"
IF r-.cr Flr-.C
00406 n 00450 0]527
TFM
ICRT,·+23
00418 10 005(;5 -0441
1:1
IC5K.OKOATA.7,
TRANSFER TO IORT TC SEEK
00430 49 OC554 -~llq
B
C IOEND
00442 "9 00270 OCOOO
CORG .. -1
00450
TF,.. BUfFJ\R,IlKRUFF~199"
1r-.ITIAlllE BUFFER ARROW
00450 JO 00155 - 11 t; 1
BLFF AR-2, RECLr;
004t;2 K2 00153 02243
S
TF
00474 K6 00143 022'31
r-.1TfMP,N1"
TF
CIODDA+8,REClG,.
STCRE HCORC LENGTt- IN CCA
00486 26 03195 02243
TFM
DIODDA+13,DKBLrF~200,.
STCRE A[CRESS CF BUFFER
00498 lC 03400 -1162
SllB lENGTt- C!" RECORD TC GET FIRST COR
OIOODA+11,RECLG"
S
00510 22 03398 02243
TOM
TO'HH1.2,.
I"-ITlAllZE BRANC ... BACK
00522 J5 00013 0(002
00534 42 OCOCO OCOCO
BB
DORG "-9
00536
STCRE flOATING LENGHI IN TEMPA
TF
TEMPA,FP2"
00536 K6 00119 03664
BRANCH IF FLOAT ING ARRAY
.~36,DRAY-l"
BNF
00548 "1'1 005B4 oe023
ORAY-l ,DA fl, 7
00560 LL 00023 -02B4
CF
TEMPA,K,.
STCRE FIXED LEI\GTH IN TEMPA
TF
00572 K6 00119 02221
STCRE ACDRESS CF FIRST ELEMENT
TF
OIODDA+13,ORAY-l"
005B4 20 03400 00023
00596 11 03400 -CIOOI
AM
DIOODA+l3,1
HIGH ORCER POSITICN OF ARRAY
CIODOA~13,TEMPA.,
S
00608 2K 034CO 00119
00620 K6 00703 034CO
EVENl+l1,DIODDA+13
TF
00632 K3 00119 0337B
TE"PA.PAR
00644 Kl 00703 e0099
A
EllEN 1+ 11,99
00656 J4 00703 -COOO
EIIEN1+11.0
CM
00668 1'7 00692 01200
BNE
"+24
006BO J6 00103 -COOO
TFM EVENl+11,O
EIIALUATE HD STORE lew ORDER
PCSITICN + 1 CF ARRAY
00692 K5 00939 ocooe
EVEN2+11
TO
EIIALUATE SECTOR CCUNT
00704 32 00095 ocoee
'l5
SF
00716 11 00099 OCO-1
99,1,10,
ADO ONE FOR GRCUP "ARK
AM
00728 26 03395 CC097
SE T UP SECTOR COU!'.T
TF
DIODDA+B ,97 ..
00740 K4 00748 -C099
".8,99,7
C
00752 1'16 00776 0120C
BE
"+24
ACC TO SECTOR CNT IF NCT EVEN HUNDREDS
AM
OIODDA+8,l,9.
00764 11 033'15 00-- 01
00776 29 00095 02243
95,RECLG
0
ADD NUMBER OF RECCRCS TC !
00788 K 1 0007J OC094
FIND-l,11
8UFFAR,Z
CHECK FOR FULL 8UFFER
HI TEMP ,0, la,
8HZ T088
BR IF FETCH
8D
TOBB-1Z,FRIND"
TFM L1NK8+18,IOPT
TFM RETDZ+6, LI NKB
NZCK
B
DORG .-4
CALL CDRRECT 10RT ROUTINE
TFM IORT,*+23 ..
,OKDATA,7
B
INITIALIZE BUFFER ARRDII
TFM BUFFAR, DKBUFF+199"
BUFFAR-2,REClG
S
8NF '+24,FRINO
BUFFAR,II
A
INCREMENT I
AM
FINo-l,I,610,
INCREMENT SECTOR ADDRESS
A
DIODOA+5, 010DOA+8"
BD
FETCHZ, FRINO
TOBB-12
B
DORG .-4
DRAY-ltFP2
A
SliD-I, ORAY-l
TF
SWD
B
DORG .-4
N1TEMP,Nl
C
BRANCH I F BUFFER NOT EMPTY
BNE FETCH2" ,
TFM L1NKB+18,IOGT
CKI
B
OORG .-4
SM
N ITEMP 01,10
SEND THE WORO TO FAe
FAC,BUFFAR,l1
TF
BUFFAR,Z
SM
FAC-Z,8UFFAR,11
TF
BUFFAR,Z
AM
·+12,1400
BI
TEST FOR FLOATING ADDRESS AT SWO-I
BNF FETCH3,SII0-l
IT IS A FIXED ADDRESS
CF
SlIo-l
TEST FOR flOATING IIORD IN FAC
BNF FETCH4, FAC-I
THE WORD 1S flOATING SET UP LINKAGE FOR FIX
F IXEND+6, I CON7+6
TF
B
FIX
DORG
1,4
DC
DSC 1,9
DSA RETfL T
TOM FIXEND+l,Z
TOM FlTEND-5,2

01010
010Z0
01031,
010"0
01051 CK
0101>0
01070
01080
01090 CKI
01100
01111
011Z0 L1NKB
01130
01140
01150
01160
01170
01180 AODTOI
01190
01200
01Z10
01Z21
01230
01240 AGAIN
01250
01260
01210 FETCH 1
01Z80
01Z90
01300
01310
013Z0 FETCHZ
01330.
01340
01350
0136.
01310
01380
013900140.
01410.
01420
01430'
01440
01450'
01460
01410
01480
01490 ICON7
01500
01510
01520 RETFL T
01530

SM
SM
TF
AM
CM

01540'
01550 CKlD
01560
01510 FETCH3
01580'
01590 FETCH4
01600
01610
016Z001630
01640
01650 ICON8
01660
01610 DRAY!
01680
01690
01700
01110
01720
01130
01140
01150 DATB
01160
01110
01180 DKBUFF
01190.
01800.
01810.
018Z001830 lolRo
01840
01850
01860 DIM 1
01810
01880
01890
01900
01910
0192. STLOI
01930
0194.
01950
01960
01910
0198.
01990

BRANCH TO STORE NUM8ER
FETCH4
B
DORG '-4
BNF FETCH5,FAC-l"
STORE THE WORD IN MEMORY
TF
SIID-l,FAC,6
SM
SIID-l,Z
TF
SlIo-l,FAC-2,6
CHECK FOR EMPTY BUFFER
B
CK
oORG .-4
1,9
DC
DSA RETFL T
SM
PAR.i.1O"
8NZ *+llt
BB
DoRG .-9
BNF AGAIN-12,DRAY-I
DRAY-l,K
S
AGAIN
B
DDRG .-4
DSC 2,-00
DSA DDB
DC
I,.
,OA18+9
OS

.-4

00538
00550
0056Z
00574
00586
00598
00610
0062Z
001>34
001>46
006"
00654
0061>6
00678
00690
00702
00714
00726
00738
00150
00162
00769
00770
00782
00194
00801
00802
00814
008Z6
00838
00845
00846

JZ
JZ
KO
Jl
J"
M7
Ml
JI>
JO
M9

00Z07
OOZ67
OOZOP
00207
00195
00052
00040
00672
OOZOZ
00148

-OOOZ
-OOOZ
0021>P
-OOOZ
000-0
01200
OOZ 15
-0532
-0654
00000

10
49
JO
KZ
MM
Kl
Jl
21
ML
M9

00565
00000
00Z07
00205
00726
00207
0012l
03392
00846
00040

-0677
-3379
-1339
OZ243
00215
02240
000-1
03395
00215
00000

00858
00870
0088Z
00894
00906

20
JZ
ZO
Jl
M6

K4
Ml
J6
M9

00195
00846
00672
001>34

02Z33
01200
-0566
00000

J2 00195 000-1
OZ49Z
00Z07
OZ490
00201
00918

0020P
-0002
OOZOP
-0002
01400

00918 MM 0101Z 00ZI,7
00930 l3 00Z61 00000
0094Z M4 010Z4 OZ491
00954
00966
00913
00973
00914
00919
00980
0099Z

PAGE

BRANCH IF FIXED

Kl 00063 03605
KO 00267 00063
M9 00268 00000

ZD 03766 00919
49 03854 00000
00001
00001
00005 -0980
15 03161 00002
15 03805 OOOOZ

4

01004 M9 01024 00000
01011
010lZ M4 00300 OZ491
01024 K6 0026P 02492
01036 J2 00267 -0002
01048 K6 00Z6P 02490

DECREMENT WORD COUNT

01060
01067
01061
01072
01014
01086
0109B
01100
01100
01112
011Z4
01131
01131
01137
01138
01140

M9 00586 00000

01139
01145
01146
01141
01152
01155
01160
01161
01110
01170
01181
0118Z
01194
01Z06
01218
0lZ30
0124Z
OU54
01Z61
01263
01268
01269
01215
01Z78

00002
00005 -1141
00001
00001
00005 -OZ09
00003
00005 -0268
00001

00001
00005 -0980
lZ 03378 000-1
141 01100 01200
42 00000 00000
MM 00110 00063
KZ 00063 OZZ21
149 00182 00000
00002
00005 -0457
00001
00000

IIRITE ZND BLOCK
OSC
051.
DC
DSC
OSA
DC
OSA
OC
DORG
TOM
DGM
TD
CF
CF
TFM
8
TRA

Z,OO
DIMI
1,.
101
Z09
3,9
SMO
I,.
51101.+902
DKBUFF+200,0

.

SIID+900, OK8UFF+ ZOO
ICON1+Z
ICON8+1
loRT,HZ)
10PT, LD1RD, 1

J5 013"0 00000
00001
KN 01168 01340
L3 00915 00000
L3 01068 00000
10 00565 -IZ41
loR 0053Z -1139
10 00565 -1261
49 00716 00000
00002 2K
00005 -IZ69
00001 a
00006 lJ9783
00003 -03
00006 -0000.

PAGE
02000
0201'.
02020.
02030
02040 SWD
02050
02060
02070
02081 DDABLK
02090
0210'
02110 DSABLK

TCD

02120
02130
02140 OIOENO
0215.
02160
02170 DAll
02180
02190
02200
0221e FETCH
02220
0223.
022"0.
02250.
02260 RECORD
02270
02280 AITEST
02290 SEll
02300
02310
02320
02330 SSEEK
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430 OVER
02440
02450
02460 EVEN
02470
02480 10REF
02490
02500
02510

DC
DORG
BI
BB
DDRG
DSC
DSA
DC
OS
TF
TOM
B

01170

STLDI

BLOCK 1 OF FETCH FIND RECORD
DORG SIIDA
TFM DSA8LK+5,SWD
TFM
lOR T ,I oREF+ 11
10GT
8
DORG ·-4
DSC 1,1
DSA 209
3,9
DC
DSA SWO, SWD
l,i
10END

*+12.1 .... 00
.-9
2,-00
DDABLK
l,i
5
FIND-I, FETCH-I"
FRIN-D, 1, 11,
AITEST",

TRANSFER I
SET FETCH-RECORD INDICATOR TO FETCH
BRANCH'To SET FINO INDICATOR OFF,
COMPUTE ADDRESS, TEST I , AND TEST
FOR DEFINE STATEMENT.
TRANSFER I
F INO-l,RECORD-I ..
SET FETCH-RECORD INDICATOR TO RECRO
FRIND,O"
SET FIND INDICATOR OFF
FINDIN,l"
SET SECTOR ADDRESS IN DDA
01000A+5,218"
COMPUTE ADDRESS OF FILE RECORD
FIND-l,RECLG,6,
DIODOA+5,99
BRANCH IF NOT FIND
.+44, F I NOI N"

TF
TOM
TOM
TFM
M
A
BD
TFM
B
B
DoRG
TFM
S
TF
TF
TFM
S
TOM
BB
OORG
TF
8NF
CF
TF
TF
AM

NLTEMP,Nl ••

S
TF
M
SF
A

DIODDA+ 13, TEMPA"
EVEN1+11,DIOOOA+13
TEMPA,PAR
95
EVENl+11,99

IORT,*.23
IOSK,DKDATA,7,
DloENO
·-3
BUFFAR,DKBUFF+199"
BUFFAR-2,RECLG
DloDDA+8 ,RECLG"
01000A+13. DK8UFF+200,.

OloDDA+ ll,RECLG"
T08B+1,2. ,
.-9
TEMPA,FP2"
•• 36,DRAV-l"
DRAY-I, DA11, 7
TEMPA,K, ,
DloDDA+13,ORAY-l ..
010DOA+13,1

TRANSFER TO 10RT TO SEEK
INITIALIZE BUFFER ARROW
STORE RECORD LENGTH IN DDA
STORE ADDRESS OF 8UFFER
SUB LENGTH OF RECORD TO GET FIRST CDR
INITIALIZE BRANCH BACK
STORE FLOATING LENGTH IN TEMPA
8RANCH IF FLOATING ARRAY
STORE FIXED LENGTH IN TEMPA
STORE ADDRESS OF FIRST ELEMENT

0021>8
00268
00280
00292
00299
00299
00304
00307
00312
00317
00318
00322
00322
00334
00336
00336
00342
00343
00348
00350
00362
00374
00386
00398
00410
00422
00434
00446
00458
00470
004B2
0049"
00502
00502
00514
00526
00538
00550
00562
00574
00586
00588
00588
OObOO
00612
001>24
00636
00648

Jo 00317 -0268
10 00565 -0623
49 00566 00000
00001
00005 -0209
00003
00005 -026B
00005 -0268
00001
116 00334 01400
"2 00000 00000
00002
00005 -0299
00001
00005
Ko 00123 00349
J5 00215 OOOOJ
M9 00410 00000
KO
J5
15
16
K3
21
M3
10
49
M9

00123
00215
(l3583
03392
0012L
03392
00502
00565
00554
00322

00385
00000
00001
-0218
02243
00099
03583
-0493
-3379
00000

Jo
K2
K6
26
10
22
J5
42

00207
00205
00195
03395
03400
03398
00053
00000

-1339
02243
02233
02243
-1340
02243
00002
00000

K6
MM
LL
K6
20
11

00171
00636
00063
00171
03400
03400

03605
00063
-0336
02221
00063
-0001

OHOO
00919
00171
00095
00919

00171
03400
03378
00000
00099

PAGE
02520
02530
02540
02550
02560
02570.
02580.
02590 CARRY
02600
02610
02620.
02630
02640
02650 BDI2 •
02660
021>70
02680
02690 oVER3
02700
02710
02720 OVER2
02730
02740
02750
02700
02110 EVENI
02780
02790.
0280e
02810·
02820
02830
02840
02850 EVEN2
02860
82870
02880
02890
02901 FETCH8
02910
02920
02930
02940.
02950
0291>0
02970
02980
02990
0300e
03010
0302. EVENSP
03030
030 .. 0

HIGH ORDER POSITION OF ARRAY

00660
00672
006B4
00696
00708

6
2K
K6
K3
32
Kl

EVALUATE AND STORE LOW ORDER
POSITION + 1 OF ARRAY
eM
BNE
TFM

EVEN1+11,O
*+24
EVENl+11,O

EVALUATE SECTOR COUNT
,9, ADO ONE FOR GROUP MARK
AM
97,1
o+23,RECLG
TO
OVER3,251. ,
BRANCH IF RECLG IS 1
BD
TO
*+23,91
80
8RANCH IF EVEN NUMB OF SECTORS
*+24,210"
AM
97 r 1, 10
TF
SET UP SECTOR COUNT
01000A+8,97"
BD
OVER2,BDI2+11,l1
MM
DloDDA+8,50010
FIND-l,97,6,
ADD NUM8ER OF RECORDS TO I
A
SM
FINO-I,I,010
TFM RETD2+6,*.20
N2CK
B
DORG .-4
TO
EVEN2+11
BD
FETCH8 ,FRIND"
8RANCH I F FETCH
RECORD
TO
EVEN 1+ 11, OKBUFF+200, 6,
SET GROUP MARK AT END OF ARRAY
WRITE ARRAY ONTO FILE
TFM
10RT,o+23
10RBC,NoWLC ,7
8
TOM FLTENO-5,2
TOM EVEN1+ll,,6,
RESTORE DIGIT
AM
FINO-l,l,610
A
010DDA+5,DI oDDA+8"
INCREMENT SECTOR ADDRESS
88
DoRG .-9
TFM DI0+35,YTURN,b7,
INSERT ADDRESS FOR ERROR ENTRY
TFM IORT,.+23"
READ ARRAY FROM FILE
IOGT,OKOATA,7
8
HM INOUT ,CHECK-12" RESTORE SPECIAL 10RT ERROR EXIT
TEST FOR NO GROUP MARK
BNG *+20, EVEN1+ 11,11
B
EVEN2
DORG .-4
Fl TEND, EVENSP+b
TF
TFM EI,473,9
ERROR
B
OORG
..
1,4
DC
DSC 1,9
OSA EVEN2-12

.-

00720 J4 00919 -0000
00732 M7 00756 01200
00744 J6 00919 -0000
00756
00768
00780
00792
00804
00811>
00828
00840
00852
00864
00876
00888
00900
00907
00908
00920

11
K5
M3
K5
M3
11
26
ML
13
Kl
J2
JO
M9

00097
00791
00828
00815
00828
00097
03395
00864
03395
0012L
0012L
00202
001 .. 8

00-01
02243
00251
00097
00210
000-1
00097
0079J
OOONO
00097
000-1
-0908
00000

K5 00991 00000
ML 01018 00215

00932 KN 0091R 01340
009 ....
00956
00968
00980
00992
01004
01016
01018
01018
01030
010"2
0105 ..

10
4R
15
J5
Jl
21
42

00565
00S20
03805
0091R
0012L
03392
00000

-0967
-0000
00002
00000
000-1
03395
00000

10
10
49
16

0085J
00565
00566
02098

-1124
-1053
-3379
-1250

0106b
01078
01085
01086
01098
01110
01117
01117
01118
01123

NN 0108b 009lR
M9 00980 00000
20 03810 01123
16 02615 OOM73
49 03676 00000
00001
00001
00005 -0968

PAGE

7

0305.• YTURN
0306e
0307e
03080
0309.
03100
0311e TEMPA
03120 N1 TEMP
e3138 FRIND
03110'.
0315 ••
03160 DIM2
03170
03180
03190
03200
03210 L02ND
03220
03230
03240 STL02
03250
03260
03270
03280
03290
03300

++12,3700 .. TURN OFF WLRC IND
ERRET 01900 .. GO ON IF NO OTHER ERROR
INOUT,MYER" SET UP SECOND 10RT ERROR EXIT
IDERR", LET IDRT CHECK ANY OTHER ERRORS
...."
SWO+902
2,N2CK+23
OS
2,RETD2-1
OS
l,IIE2+7
WRITE FIRST IILDCK

01124
01136
01148
01160
01167
01170
00171
00195
00215

DSC
OSA
DC
OSA
OC
DSC
DSA
DC
CF
OGM
TD
AM
TFM
II
TRA

03310
03320

TCO SH02
OENO 6

00001
00005 -0200
00003
DODOS -0268
00001
00002
00005 -1170
00001
L3 01119 00000
00001
K5 00727 07376
J1 00728 OOOJO
10 00565 -1253
4R 00532 -1185
10 00565 -1273
49 00716 00000
00002 2K
00005 -1281
00001 ~
01281 00006 1J9183
01287 00003 -03
O!29Q 00006 -ooooa
01194
00006

III
IINI
TFM
II
ODRG
DDRG

os

101
200
3,9
SWO

I,.

2,00
DINZ
l,iI
EVENSP+2
SWO+900
CARRY+7,CORSIZ
CARRY+8,10,10
IORT,++23
IOPT ,L02NO, 7,

WRITE OUT 2ND PART IILK 1

146
47
10
49

01136
00602
02098
00624

03700
01900
-0008
00000

00002
00002
00001

01170
01175
01178
01183
01184
01185
01191
01192
01194
01168
01206
01218
01230
01242
01254
01266
01273
01275
01280

01296 CORE POSITIONS REQUIRED
PLUS RELOCATION INCREMENT
00332 STATEMENTS PRoceSSED

PAGE
00010·
00020.
00070 INOUT
00150 10ERR
00060 CHECK
00110 010
00050 EEX IT
00140 ERRET
00030 AOR

FORTRAN 11-0 OK 10
OS
OS
OS
OS
OS
OS
0 SA

WITH FLT HARDWARE

,2098
,624
,1262
,816
,1630

,602
FIND

,R ECORO, FETCH, SliD, DRAY ,0 IOENO

02098
00624
01262
00816
01630
00602
00004

00000
00000
00000
00000
00000
00000
00005 -0124

00009 00005 -0386

00040
00080 lOCAL
00090 10RSC
00100 10RT
00120 10SK
00160 10GT
00170 IOPT
00180 FAC
00190 OIOOOA
00200 FINOIN
00210 FP2
00220 FKOOO
00230 PAR
00240 ERROR
00250 EI
00260 F I XENO
00270 FL TEND
00280 FLOAT
00290 OKOATA
00300 ZERO
00310 FIX
00320 RECLG
00330 II
003100 N2
00350 Nl
00360 K
00370 F
00380 CDRSIZ
00390.
02910 NOWLC
02920
02930
029100 IIYER
02950
02960
00400
00410 T088
00420 DRAY
00430

OORG
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

AOR-4
,716
,520
,565
,554
,566
,532
,2492
,3387
,3527
,3664
,3579
,3378
,3596
,2615
,3680
,3730
,4042
,3379
,2700
,31154
,2243
,2240
,2238'
,2233
,2221
,2219
,7376

OSC
OSA
DC
III
81
B7
TF
8
TDM
80

2,02
DIODOA

1,.

.+12,3700" TURN OFF IILRC INO
CHECK-12,1900,, LET 10RT HANDLE DISK OVERFLOW
EEXIT",WLRC liAS ONLY ERROR
NlTEMP,N1
ORAYl, ,0
T088+ 1 ,9..
SET T08I1 TO IIUNCH
EVEN,FKOOO..
TEST FOR EVEN AODRESS

00014
00019
00024
00029
00000

00005
00005
00005
00005

-0350
-0268
-0064
-0322

00716 00000
00520 00000
00565 00000
00554 00000

00566 00000
00532 00000
02492 00000
03387 00000
03527 00000

03664 00000
03579 00000
03378 00000

03596 00000
02615
03680
03730
04042
03379
02700
03854
022",3
02240
02238

07376

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

00000
00006
00007
00008
00020
00032
00040
00052
00064
00076

00002
00005 -3387
00001
H6 00020 03700
"6 01150 01900
"'9 01630 00000
K6 00195 02233
149 00966 00000
J5 00053 00009
143 00588 03579

02233
02221
02219

PAGE
8RANCH IF BUFFER PROG IN CORE
AGAI N, DOABlK+ 1"
OSABlK+5,AGAIN
00"50
00.. 60
SWD+12
B
SET FINO INDICATOR ON •
TOM FINOIN,O"
00.. 70 FINO
BRANCH TO COMPUTE ADDRESS AND TESTI
00.. 80
TFM RE T02+"·, SEll"
N2a
ERROR
ROUTI
HE
.1
GRT
00490N2
IS I ZERO DR NEG
FIND-1,ZERO,6,
00500 N2CK
C
BNH BE2
00510
COMPARE I AND N2
FINO-1,N2,6,
00520
C
8H
BE2
00530
00540 RET02 B
00550 BUFFAR OS
I GRT N2
TFM El,472,9,
00570 BE2
NUEMP,Nl
TF
ERROR, OOABlK" BR IF CK MADE FROM EVEN ARRAY PROGRAM
BO
TFM OSAOTR+5, ERROR
00590
SETRMK
00600
B
00610SWO SUBROUTINE
00620 •• **.
SWO+900,0
TOM
00630 SWDA
TFM *-ll,Jtl,lO
00640
SWOl
00650
B
OORG --3
00660
SET UP LINKAGE FOR FLOAT
00670FlTENO,ICON8+5
00680 FETCH5 TF
FLOAT
00690
B
OORG _-4
00700
OORG ++4
00710
00120 IOEND TFM D5AOTR+5, 01 OEND
SETRMK,FRIND, ,
BRANCH IF FETCH
BO
00730
NlTEMP,NI
00740
C
BRANCH IF BUFFER EMPTY
BE
SETRMK" ,
00750
TFM RE TD2+6, *+20
N2el(
B7
WRITE BUFFER TO FilE
TFM
00160
tORT ,*+23"
10PT ,0I(0ATA,7
B
00770
AM
FIND-I,I,610
00780
5WO+900, DKBUFF+ 200
00790 SETRMK TO
TFM
IORT,JOREF2+11
00800
B
10GT
00810
DORG _-4
00820
DSC 1;1
00830 DDB
DSA 200
00B40
3,9
00850
DC
00860 DSAOTR DSA SWD,OIOENa

00 ....0

BD
TFM

,.

00870
00880 SWDI
00890

DC
A
80

1,.

INCREMENT 8UFFER ARROW
BUFfAR,W"
FETCHl,FRIND,.
8RANCH IF FETCH
RECORD
00900*.
CLEAR FLAG ON ADDRESS OF DATA
SWD-l,DATB.7,
00910 IOREF2 CF
DECREMENT WORD COUNT
NlTEMP,l,10 ,
00920
SM
TFl BUFFAR, SWO-l, 611
00930

00088
00100
00112
DOll"
00136

2
Ml
JO
M9
15
JO

0073" 00300

00317 -on ..
00280 00000
03527 00000
00202 -0422

00148 K4 0012l 02700
00160 M7 0020B 01100
00172 K4 0012l 02238

00184 M6 00208 01100
00196
00207
00208
00220
00232
0024 ..
00256

49 00000
00000
16 02615
K6 00195
4l 03596
J6 00.. 75
M9 00426

00000
00M72
02233
00299
-3596
00000·

00268 J5 01168 00000
00280 J6 00269 OOOMI
00292 M9 00418 00000
00300
00300
00312
00319
00322
00322
00334
00346
00358
00370
00382
00390
00402
00414
00426
00438
00450
00457
00451
00462
00465
00470
00475
00476
00478
00490

20 03730 00964
49 04042 00000
JO
Ml
K4
M6
JO
M9
10
49
Jl
KN
10
49

00475 -0322

00426 00215
00195. 02233
00426 (H200

00202 -0390
00148
00565
00532
0012l
01168
00565
00566

00000
-0413
-3379
000-1
01232
-0513
OOOC)O

00001
00005 -0200
00003
00005 -0268
00005 -0322
00001
KI 00207 02240
Ml 00754 00215

00502 I I 00267 -1023
00514 J2 00195 000-1
00526 -0 0020P 0026P

PAGE
00940 CK
00950
00960
00910
00980 CKI
00990
01000
01010 L1NK8
01020
01030
01040
01050
01060
01070 ADDTOI
01080
01090
01100
01110
01120
01130 AGAIN
01140
01150
01160 FETCHI
01170
01180
01190
01200
01210 FETCH2
0122001230
01240
0125001260
0127001280
0129001300
0131001320
01330
01340
01350 ICON7
01360
01370
01380 RETFL T
01390
0140001410 CKlD
01420
01430 FETCH3
0144001450 FETCH"
01440-

NI TEMP,0,10,
CHECK FOR FUlt BUFFER
CM
T08B
8NZ
BR IF FETCH
BD
TOBB-12,FRIND"
TFM LI NKB+ 18 ,J OP T
TFM RETD2.6,LlNKB
N2el(
8
DORG _-4
CAll CORRECT 10RT ROUTINE
TFM
IORT,*+23"
.OKDATA,7
8
INITIALIZE BUFFER ARROW
TFM 8UFFAR,DK8UFF+199"
8UFF AR-2 ,R EClG
S
BNF *+24,FRI NO
8UFFAR,W
A
INCREMENT I
FIND-I,l,610,
AM
INCREMENT SECTOR ADDRESS
A
DI00DA+5, DIODOA+8"
80
FETCH2,FRIND
T088-12
8
DORG .-4
A
DRAY-l,FP2
SWD-l,DRAY-l
TF
B
SliD
ODRG
Nl TEMP,Nl
C
8RANCH IF BUFFER NOT EMPTY
BNE
FETCH2., ,
TFM L1NKS.18, I OGT
CKI
8
DORG _-4
NlTEMP,l,IO
SM
SEND THE WORD TO FAC
TFL
FAC,BUFFAR,1l
++12,1400
81
TEST FOR FLOATING ADDRESS AT SIID-l
BNF FETCH3,SWD-l
IT IS A FixeD ADDRESS
CF
SWD-l
TEST FOR FLOATING WORD IN FAC
BNF FETCH4, FAC-l
THE WORD IS FLOATING SET UP LINKAGE FOR FIX
TF
FIXEND.6,ICON7+6
FIX
8
DORG --4
1,4
DC
DSC 1,9
OSA RETFLT
TDM fIXENO.l,2
TDM FlTENO-5,2
BRANCH TO STORE NUMBER
8
FETCH4
DORG .-4
8NF FETCH5,FAC-l, ,
BRANCH IF FIXED
STORE THE WORD IN MEMORY
SWD-hFAC,,,
TFL
CHECK FOR EMPTY BUFFER

-....

00538
00550
00562
00574
00586
00598
00605
00606
00618
00630
00642
00654
00666
00678
00690
00102
00714
00721
00722
00734
00146
00753
00754
00166
00778
00190
00797
00198

J4
M7
I'll
J6
JO
M9

00195
00052
00040
00624
00202
00148

10
49
JO
K2
MM
Kl
JI
21
Ml
M9

00565 -0629
00000
00201
00205
00678
00207
0012l
03392
00798
00040

000-0
01200
00215
-0532
-0606
00000
-3379
-1231
02243
00215
02240
000-1
03395
00215
00000

KI 00063 03&64
KO 00267 00063
1'19 00268 00000
K4
I'll
J6
M9

00195
00798
00624
00586

02233
01200
-0566
00000

J2 00195 000-1

00810 00 02492 0020P
00822 1'16 00834 01400
00834 MM 00928 00267
00846 l3 00267 00000
00858 M4 00940 02491
00870
00882
00889
00889
00890
00895
00896
00908

20 03686 00895
49 03854 00000
00001
00001
00005 -0896
15 03681 00002
15 03725 00002

00920 1'19 00940 00000
00927
00928 M4 00300 02491
00940 -6 0026P 02492

PAGE
01470
01480
01490 ICON8
01500
01510 DRAY!
01520
01530
01540
01550
01560
01570
01580
01590 OATB
01600
01610
01620 DKBUFF
016300164001650-

...

00952 M9 00538 00000

CK
DORG .-4
1,9
DC
DSA RETFL T
PAR,l,10"
S"
8NZ *+14__9
88
DORG
BNF AGAIN-12,DRAY-I
DRAY-I,K
S
AGAIN
8
DORG
OSC 2,-00
OSA 008
DC
I, iI
.OATB+9
OS

00959
00959 00001
DECREMENT WORD COUNT

00964 00005 -0896
00966 12 03378 000-1
00978
00990
00992
00992
01004
01016
01023
01023
01029
01030
01032

.-4

"T 00992 01200
42 00000 00000
"M 00722 00063
K2 00063 02221
M9 00734 00000
00002
00005 -0457
00001
00000

WRI TE 2ND BLOCK

OlbbO01670 LDIRD
01680
01690
01700 DIMI
01710
01720
01730
01740
01750 STLDI
01760
01770
01780

DSC
DSA
DC
DSC
DSA
DC
DSA
DC
CF
DGM
CF
TFM

01790

TD

01800 HERE
01810

B
TRA

01031
01037
01038
01039
01044
01047
01052
01053
01054
01232
01066
01078
01090
01102
01114
01126
01133
01135

2,00
DIMI
I,.
1,1
209
3,9
SWD
I, iI
I CON7+2
OATB+9+200
I CON8+ I
10RT,HERE+ll
SWO.9DO: D!C.8UFF+200
IOPT, LOIRD, 7

01140

01820
01830.
0184001850
01860 SWO
01870
01880
01890
01900 DDABLK
01910
01920

TCD

01141
01147
01150
01054

STLDI

8LOCK 1 OF FETCH FINO RECORD
DQRG SWDA
TFM
OSABLK+5,SWD
10RT,IOREF+II
TFM
IOGT
8
OORG 0-4
1,1
OSC
OSA
209
3,9
DC

00268
00268
00280
00292
00299
00299
00304
00307

00002
00005 -1039
00001
0000 I
00005 -0209
00003
00005 -0268
00001
L 3 00891 00000
00001
L3 00960 00000
10 00565 -1113
KN 01168 01232
4R 00532 -1031
10 00565 -1133
49 00716 00000
00002 2K
00005 -1141
00001 iI
00006 IJ9783
00"03 -·03
00006 -OOOO@

JO 00317 -0268
10 00565 -0623
49 00566 00000
00001
00005 -0209
00003

PAGE
01930 OSABLK DSA

SWO,SWO

01940
OC
01950
DQRG
01960 DIOEND BI
01970
BB
01980
DORG
01990 DATI
OSC
02000
DSA
DC
02010
02020
DS
TF
02030 FETCH
02040
TDM
02050
B

I,.
!DENO

-+12,1400
_-9
2,-00
DOABLK
l,iI
5

FIND-l,FETCH-l, ,
FRINOtl,ll.
AITEST",

02060·
02070 ..
02080 RECORD
02090
02100 AITE ST
02110 SET!
02120
02130
02140
02\50 SSEEK
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250 OVER
02260
02270
02280 EVEN
02290
02300 IOREF
02310
02320
02330
02340
02350
02360
02450
02370
02380 CARRY
02390
02400
02410.
02420.
02440_

TF
TDM
TDM

TFM
M
A
BD
TFM
8
B
DORG
TFM
S
TF
TF
TFM
S
TOM

BB
DORG
TF
8NF
CF
TF

TF

F INO-l ,RECORO-l,
FRINO,O, ,
FINOIN,l"
01000A+5,218"
FINO-l,RECLG,6,

t

DIOOOA+5,99

_+44,FINDIN.,
IORT,*+23
IOSK.DKDATA,7,
OIOEND
.-3

BUFFAR,OKBUFF+199,.
NITEMP.N1.,
OIODOA+8,RECLG. ,
oIODOA+ 13, OKBUFF+200"
01 OOOA+ 11 ,REClG"

TOB8+1.Z"
.-9
TEMPA,FP2, ,

*+36.0RAY-l"

TRANSFER TO 10RT TO SEEK
INITIALIZE BUFFER ARROW

STORE RECORD LENGTH IN DDA
STORE ADDRESS OF BUFFER
SUB LENGTH OF RECORD TO GET FIRST COR
INITIALIZE BRANCH BACK
STORE FLOAT ING LENGTH IN TEMPA
BRANCH IF FLOATING ARRAY

DRAY-I,DATI,1

TEMPA,K, ,
DIODDA+l3. DRAY-I"
DIOOOA+13,1

S

o 1000A+ 13, TEMPA"

TF
M
SF

EVEN 1+ II. 01 ODOA+ 13
TEMPA,PAR
95
EVENI+ 11,99
EVENl.l!,O

A

BRANCH IF NOT FIND

BUFfAR-2,RECLG

AM

CM
BNE
TFM

TRANSFER I
SET FETCH-RECORD INDICATOR TO FETCH
BRANCH TO SET FIND INDICATOR OFF •
COMPUTE ADDRESS , TEST I , AND TEST
FOR DEFINE STATEMENT.
TRANSFER I
SET FETCH-RECORD INDICATOR TO RECRD
SET FINO INDICATOR OFF
SET SECTOR ADDRESS IN DOA
COMPUTE ADDRESS OF FILE RECORD

STORE FIXED LENGTH IN TEMPA
STORE ADDRESS OF FIRST ELEMENT
HIGH ORDER POSITION OF ARRAY

-+24
EVENI+l1,O
EV,t,LUATE AND STORE LOW ORDER
POS IT ION + I OF ARRAY
EV,t,lUATE SECTOR COUNT

00312
00317
00318
00322
00322
00334
00336
00336
00342
00343
00348
00350
00362
00374

00386
00398
00410
00422
00434
00446
00458
00470
00482
00494
00502
00502
00514
00526
00538
00550
00562
00574
00586
00588
00588
00600
00612
00624
00636
00648
00660
00672
00684
00696
00708
00720
00732
00744

00005 -0268
00005 -0268
00001
M6 00334 01400
42 00000 00000
00002
00005 -0299
00001
00005
KO 00123 00349
J5 00215 OOOOJ
M9 00410 00000

KO
J5
15
16
K3
21
M3
10
49
M9

00123
00215
03527
03392
0012L
03392
00502
00565
00554
00322

00385
00000
00001
-0218
02243
00099
03527
-0493
-3379
00000

JO
K2
K6
26
10
22
J5
42

00207
00205
00195
03395
03400
03398
00053
00000

-1231
02243
02233
02243
-1232
02243
00002
00000

K6
MM
LL
K6
20
11
2K
K6
K3
32
KI
J4
M7
J6

00171
00636
00063
00171
03400
03400
03400
00919
00171
00095
00919
00919
00756
00919

03664
00063
-0336
02221
00063
-0001
00171
03400
03378
00000
00099
-0000
01200
-0000

PAGE
,9, ADO ONE FOR GROUP MARK
All
97,1
TO
*+23,RECLG
02471
BRANCH IF REClG IS 1
02472 8DI2
BD
OVER3,251"
.+23,91
02473
TD
02474
BRANCH IF EVEN NUMB OF SECTORS
BO
.+24,210"
97,1,10
02475
AM
SET UP SECTOR COUNT
02410 OVER3
TF
01000A+8 ,97"
02648
OVER2,BOI2+l1,l1
BD
MM
DIODDA+8,50,10
02444
FIND-l,97.6, ADO NUMBER OF RECORDS TO I
A
02520 OVER2
FIHO-l,I,610
02550
SM
TFM RETD2+6,*+20
02560
02570
N2CK
B
OORG 0-4
02580
02430 EVENI
TD
EVEN2+11
FETCH8,FRIND, ,
8RANCH IF FETCH
02600
BO
RECORD
02610SET GROUP MARK AT END OF ARRAY
EVENl+ 11, DK8UFF+200 ,6,
TD
02620
WRITE ARRAY ONTO FilE
02630IORT,*.23
TFM
02640
02650
IOR8C,HOWLC ,7
B
TDM FlTEND-5,2
02660
RESTORE DIGiT
02670 EVEN2 TOM EVENl+ll,,6,
FINO-lo 1,610
02590
All
INCREMENT SECTOR ADDRESS
A
DIODOA+5,DIODDA+8"
02680
02690
B8
DORG _-9
02700
INSERT ADDRESS FOR ERROR ENTRY
02710 FETCH8 TFM DIO+l5,YTURN,61,
IORT ,,,+23.,
READ ARRAY FRDM FilE
TFM
02720
IOGY,OKDATA,l
02730
8
TFM
II'IOUT ,CHECK-12" RESTORE SPECIAL 10RT ERROR EXIT
02740
TEST FOR NO GROUP MARK
0275002760
BNG *+20, EVENl+ll, 11
02170
B
EVEN2
DORG .-4
02180
Fl TEND, EVENSP+6
02790
TF
TFM E 1,473,9
02800
ERROR
02810
B
OORG '-4
02820
1,4
02830 EVENSP DC
1,9
02840
DSC
OSA
EVEN2-12
02850
02860 YTURN
BI
'+12,3700"
TURN OFF WLRC IND
GO ON I F NO OTHER ERRDR
02870
BI'II
ERRET,1900"
TFM
I NOUT ,MY ER • , SET UP SECOND 10RT ERROR EXiT
02880
02890
B
IOERR", lET 10RT CHECK ANY OTHER ERRORS
OORG .-4
02900
OORG SWO+906
2,N2CK+23
02970 TEMPA OS
2,RET02-1
02980 NlYEMP OS
02990 FRINO DS
l,BE2+7
WRITE FIRST BLOCK
030000301.0'
021>10

00756
00768
00780
00792
00804
00816
00828
008"0
00852
00864
00876
00888
009DO
00907

03150
03160 NIO
03170

OSC
OSA
DC
DSA
DC
OSC
OSA
DC
TO
AM
CF
OG"
OGM
TFM
B
TRA

1,1
200
3,9
SWO

I, •
2,00
01"2

I,.

CARRY+7,CORSIZ
CARRY+B,10,10
EVENSP+2
OKBUFF+200
SWO+900
10RT,N10+ll

IOPT,LD2NO,1

K5
M3
K5
M3

11
26
Ml
13
Kl
J2
JO
M9

00791
00828
00815
00828
00097
03395
00864
03395
0012l
0012l
00202
00148

02243

00251
00097
00210
000-1
00097
0079J
OOONO
00097
000-1

-0908
00000

00908 K.5 00991 00000
00920 III 01018 00215
00932 KN 0091R 01232
009'0'0 10 00565 -0967
00956 4R 00520 -0000
00968 15 03725 00002
00980 J5 0091R 00000
00992 Jl 0012l 000-1
01004 21 03392 03395
01016 '02 00000 00000

01018
01018 10 0085J -1124
01030 10 00565 -1053
01042 49 00566 -3319
01054 16 02098 -1250

01066 NN 01086 0091R
M9 00980 00000

01078
01085
01086
01098
01110
01117

20 03730 01123
16 02615 OOM73
49 03596 00000

01117 00001
01118 00001

01123 00005 -0968
01124
01136
011"8
01160
01167
01174
.0.0171
0.0195
00215

PAGE
.03030 DIH2
03040
03050
03060
.03070
.03.08.0 L02NO
03090
031.0.0
03110 STL02
03120
03130 GM
03140

6

11 00097 00-01

.01174
01179
01182
01187
01188
01189
.01195
01196
01198
.01210
01222
01232
QU68
0123"
.01246
01258
01270
01277
01279
01Z84
01285
01291

M6
47
10
"9

01136
00602
02098
.00624

03700
01900
-0008
00000

00002
0.0002
00001

7
00001
00005 -.0200
00003
00005 -0268
00001
00002
.00005 -1174
00001
K5 00727 07376
Jl 00728 OOOJO
l3 01119 00000
00001
00001
10 00565 -1257
4R 00532 -1189
10 00565 -1277
49 00716 00000
00002 2K
00005 -1285
00001 •
00006 lJ9783

00003 -03
01294 00006 -000001

03180
03190

TCD
STL02
DENO 6

01300 CDRE POSITIONS REQUIRED
PLUS RELOCATION INCREMENT
00322 STATEMENTS PROCESSED

01198
.00006

1620 FORTRAN I1-D

LOADER

PAGE

BLOCK 3

00010 •
00020
00030
000100
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

•
10PT
IOGT
10RT
MONCAl

OS
OS
OS
OS

,566
,5ob5
,196

COMMUNICATION AREA
DORG 2218
OS
2 .. FLOATING POINT WORD LENGTH
OS
2 .. F I XED POI NT WORD LENGTH
5 .. STARTING ADDRESS OF MAJNLlNE PROGRAM
OS
oS
5 .. STARTING ADDRESS OF COMMON AREA
OS
2 .. NUMBER OF WORDS IN LOGICAL RECORD
OS
5 .. NUMBER OF LOGICAL RECORDS
OS
2 .. WORD LENGTH
OS
3 .. RECORD LENGTH
OS
5 .. ENTRY ADDRESS TO LOG SUBRDUT INE
OS
5 .. ENTRY ADDRESS TO EXPONENTIAL SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SINGLE susseRI PT SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO DOUBLE SUSSCRI PT SUBROUTINE
OS
5 .. ENTRy ADDRESS TO TRIPLE SUBSCRJPT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO FIND SUBROUTINE
OS
5 .. ENTRY ADDRESS TO RECORD SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO FETCH SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO SW ITCH 0 SUBROUTI NE
OS
5 .. ENTRY ADDRESS TO ARRAY SUBROUTINE
OS
5 .. ENTRY ADDRESS TO 01 SK END SU8ROUTI NE
5 .. E~rRY ADDRESS TO COSII'IE SU8ROUTINE
OS
OS
5 .. ENTRY ADDRESS TO SI NE SU8ROUTINE
5 .. ENTRY ADDRESS TO ARCTANGENT SUBROUTINE
OS
OS
5 .. ENTRY ADDRESS TO SQUARE ROOT SUBROUT I NE
OS
5 .. ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
RESERVED FOR ENTRIES TO ADDED SUBROUTINES
OS
7O ••
L1BSUB OS S 30 .. L1BRARY SUBROUTINE INDICATORS

F
K
PROGST
COMADD
Nl
N2
W
RECLG
ENTLN
ENTEXP
ENTSCI
ENTSC2
ENTSC3
ENTF 10
ENTREC
ENTFET
ENTSWO
ENTORR
ENTOEO
ENTCCS
ENTSIN
ENTATN
ENTSQT
ENTABS

DC

00350

1,

OOHO
00450
00460
00410
00480
00490
00500
00510

OVRLAP
FLGRMK
AODCOW
EQADOR
SCAOOR
IOINO
MLiNO
EXT INO
SECT
IROTST
AOOSVE

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DC

02218
02219
02221
02226
02231
02233
02238
02240
02243
0224B
02253
02258
02263
0226B
02213
02278
02283
OU88
02293
02298
02303
02308
02313
02318
02323
02393
02394

5
2
3
5

5
5

5
5
5
5
5
5
5
5
5
5
5
5
5
70
30

02426
02441

16

0244.3
024104
02445
02450
02455
02460
02461
02462
02463
02466
02467
02472
02473

I.'

00520 LDOOA

OOA
,1.O,Q,SUBrSl
1-00OO-00-25n

00530

DC

1620 FORTRAN 11-0

02414

LOADER

14

8LOCK 3

1 ••

PAGE
02488

00540 SVEDDA ODA
,1.0,21.0
1-0000-21-0000
OC
I.'

02490

00560 DATA

02505

00550

DC

2
2
5
5
2

02424

~

MAINLINE TABLE SEARCH
00360
OORG 2426
00370
16,0
00380 NAMBUF DC
-000000000000000
2 ••
DC
00390
00400
00410
00420
00430

0
0
0
0

00532
00566
00565
00796

,532

1.0

00570 INCOOA DDA
,l,O,lO,SU8TBl
1-0000-10-2522
00580
1 ••
DC
NOOATA as
I
00600 SUBTBL OSS
1000
00610
12, •
DC
-0000000000'
00620 RMTBl
CM
COMSEC+75, ,10.
BRANCH I F NO lOCAL CARDS
00630
BE
LOOINC
00640
TFM
IORT,.+23
00650
B
IOGT,lO.1
00660
TFM *.23,SUBTBl+ll
00670 SRCH
BNR .+32, t ,
TEST FOR END OF TABLE
00680
TOM TBLINOd
00690 TBL IND OS
,*-2
00700
B
LOOINC
00710
DORG .-3
00720
C
COMSEC+35 t SRCH+ll, 11,
COMPARE NAME S
00730
BE
TBLLO
00740
AM
SRCH+ll,20,lO,
INCREMENT TO NEXT ENTRY
00750
B
SRCH
00760 EQSRCH TF
EQUDDA+5. EQADOR
00770
TF
INRKH8.SECT
00780
TFM
lORT,*+23 •• READ IN FOUR SECTORS OF EQUIV. TABLE
00790
IOGT,EQU,7
B
00800 COMPER TFM COMP+ll,SU8TBL+l1,.
SEARCH EQUIV. TABLE
00810
HNR
-+20. COMP+ 11 ,-11
00820
EQSRCH-l,,6
B
00830
DORG ·-3
00840 COMP
NAMBUF
C
00B50
BE
FOUND
00860
AM
COMP+ II ,16,10, iNCREMENT TO NEXT NAME
00870
CM
COMP+ 11, SUB Tel +411"
rEST FOR END OF TABLE
00880
BNE
COMPER+l2
00890 NXTRD CM
INRK+48.0,9,
TEST FOR END OF EQUIV. TABLE
00910
BE
EQSRCH-I •• 6
00930
SM
INRK+48,4.10.
DECREMENT SECTOR COUNT
AM
EQUODA+5,4,lO
009"0
00950
COMPER-24
8
00960 FOUND
AM
COMP+ll ,4, 10,
INCREMENT TO GET DIM NUMBER
00970
TFM 0IMODA+5.4800
00980
S
OIMDOA+6.COMP+ll.11
00990
S
DIMDOA+b.COMP+lI.11
01000
TOM OIMDDA+6. tit
DIDIO
READ IN DIM SECTOR
01020
TO
SECC T .COMP+11.11
01030
BTM INCGET,"12

14

02504

02506

14

02520
02521
02522
03533
03534
03546
03558
03570
03582
03594
03606
03615
03618
03626
03626
03638
03650
03662
03674
03686
03698
03710
03722
03134
037106
03754
03754
03766
03778
03790
03802
03814
03826
03838
03850
03B62
03814
03886
03898
03910
03922
039H
03946

1
1000
12
000-0
01200
-3581
-7245
-2533
00000
00001

49

07375
05098
00565
00566
01605
03626
03615
0
05098

24
46
11
49
26
26
16
49
16
45
49

07335
04930
01605
03594
07035
07448
00565
00566
03765
03754
0.367L

0360N
01200
OOOKO
00000
02455
02466
-3121
-7021
-2533
0376N
00000

24
"6

021041
03874
03765
03765
03734
071048
0367L
074108
07035
03698

14
46
16
4'
16
45
15

00000

II

O~7b5',

16
22
22
15

07095
07096
07096
07096

00000
01200
000J6
-2933
01200
00-00
01200
000-4
000-4
00000
000-4
-4800
0376N
OH6N
0000-

25
17

07156
06846

0376N
-3958

11

14

H
110
46
12
11
ItO

1620 FORTRAN II-D

LOADER

......

~1340
AM
01350
SM
01360
B
ODRG
01370
01380 TRYSlE TF
0:390
AM
01400
A
01410
A
01420
TOM
01430
DC

01440
01450
01460
01470
01480
0\490
01500 ONETWO
01510
01520
01530
01540
01550

DDAR+5.1,10,

DDAR+8.1,lO,

INCREMENT DISK ADDRESS 8V ONE
DECREMENT SECTOR COUNT 8V ONE

SUBPRO-24
·-3
ADDSVE. ADDCOW
AODSVE.l.IO
S~RDST.AOOSVE

AOOCOW.INRK+22
INRK+23

1,' I.

ADOCOW.COMADO
SllEOK
AODCOW.INRK+22
UVERLA~ INDICATION
TOM OVRlAP,l.,
TURN ON OVERLAP INDICATOR
RC rv
OSC
5.00101,--9
00101
TYPE ~ROGRAM NAME
WATY ~AMBUF-IO."
TYPE LENGTH
WNTY INRK+18",
WAry OVRHES",
TYPE OVERLAP
BD
.+20.EXTlND" BRANCH I F PROGRAM ON CARDS OR TAPE
8RANCH TO GET NExr NAME
B
CDMP+24" •
C
aL
S

1620 FORTRAN 11-0
01560
01570
01580

LOAOER

PAGE

BLOCK ]

SET -LOAOEO- INDICATOR
01040
ENOTST+ll.,6,
SF
01050
BTM INCPUT.>+12
JORT,.+23
01060 FOUNDI TFM
B
01070
IDGT.DIM.7
01080
CM
SECCT .5010
01090
BL
-+24
CALCULATE DIM ENTRV ADDRESS
01100
SM
SECCT.5.10.
MM
01110
SECCT .20.9
01120
AM
99.INRK
01130
DIMSVE.99.ll
TR
DMEDDA.DIMSVE
TD
011"0
01150
TF
OMEDDA+5.DIMSVE+5
Oll60
MOVE SECTOR DDA TO PROGRAM DDA AREA
TR
DDAR,OMEOOA"
IORT,*+23. t READ IN INDICATOR RECORD
Dlll0
TFM
IDGT.DME.7
01180
8
DDAR+8,OIM5VE+8, ,
MOVE SECTOR COUNT
01190
TF
I NDICATOR RECORD CHECK
01200
01210 TSTVLD C
INRK+I30 INDCON ••
CHECK FOR VAllO INDICATOR RECORD
RELFRM
01220
BE
INRK+5,."mCON,. CHECK FOR VAlIDITV IN CORE IMAGE
01230
C
•• 56
BE
012"0
01250
BTM EPRINT.75.8
01260
RCTV
6,987898,.-4
01270 INDCON DC
R61898
01280
WATY JOBOUr
01290
MONCAL
B
OORG '-3
01300
ODAR+ll,ADDSVE
TF
TOM
CONVERT OEF INER TO CORE IMAGE
01320
INDR+7, ••
1,',.
01330
DC

03958
03970
03982
03994
04006
0"018
04030
04042
0,,054
0"066
0"078
04090
04102
0"11"
04126
04138

]2

17
16
49
14
47
12

U
11
3L
25
26
31
16
49
26

0568J
06810
00565
00566
07156
04042
07156
07156
00099
07126
06998
07003
07280
00565
00566
07288

00000
-39B2
-4005
-70B2
000-5
01300
000-5
00-20
-7400
0009R
07126
07l3l
06996
-4137
-6990
07134

04150
04162
04114
04186
04198
04210
04217

24
46
24
46
17
]4

07413
06550
01405
04242
06882
00000
6

04211
01200
04217
01200
0-075
00102

04222
042]4
04242
042"2
04254
04265

39
49

06963
00796

00100
00000

26
15

07293
07076
1

02472
00000

11
12
49

01265
07288
06610

000-1
000-1
00000

26

02472
02472
06192
02450
07423
I

02450
000-1
02472
07422
00000

04266
04276
04290
04298
04298
OHIO
04322
04334
04346
04357

11
21
21
15

04356
04310
04362

24
47
22

02450
06162
02450

02231
01300
07422

04394
04406
04408

15
34

02444
00000
5

00001
00102

04418
04430
04442
04454
04466

39
38
39
4)
49

02431
07418
06945
04474
03778

00100
00100
00100
02463
00000

BLOCK 3

DOR& e-3
ROUT I NE TO REAO INDICATOR RECORO FROM CARDS OR TAPE
LOAO CARD OR TAPE STORED PROGRAMS
H
01590 PHASEC BTM INCGET,.+12
01600
TO
COTP+2. COMSEC+73
01610
SM
COTP+2, l,10
01620 REAO
rFM
IORT,.+23,. GET INOICATOR RECORO
01630
B
IOGT.COTP-4.7
01640
TOM EXflNO.I
01650
TFM
e+35, SUSTBl-9
01651 GONXT
AM
ENTSHll.20.10
01660 ENrST
B~R
e+20" ,
TEST FOR ENO OF TA8LE
01670
B
READ
01680
OJRG '-3
01690
rFM
·+23,INRK
01700 RMCHK
8NR
e+20
01710
B
READ
01720
OORG '-3
01730
AM
RMCHK+ll,l,lO
01140
CM
RMCHK+I1.INRK+80
01750
RMCHK
8~E
01760
SF
INRK+I
01770
CF
INRK+2
01780
CF
INRK+3
01790
CF
INRK+4
01800
CM
INRK+4,4131,8
01810
BNE HEADER
01820
RCn
01830
WArV DATAl
01840
8
PHASED
01650
DORG 0-3
01860 HEADER C
INRK+13.INOCON, •
TEsr FOR INOICATOR RECORD
01810
8NE
READ
01860
BNF
.+20,[NRK+16
01890
READ
8
01900
OORG '-3
01910
C
I NRK+25. ENTST+ 1l.1l.
COMPARE NAMES
01920
B~E
GONXT
01930
TF
NAM8UF.ENTST+ll.11
01940
AM
ENTST+ll,6.10
01950
BNF
-.32. ENTST+l 1.11
01951
AM
ENTST+11.14010
01960
8
ENTST
01970
OORG '-3
0198D
SF
ENTST+ll,,6, SET -LOAOEO- IND ICAlOR
01990
8TM
INCPUT . . . 12
02000
B
RELFRM
02010
OORG 0-]
02050
FL I P SU8PROGRAM TA8LE SEARCH
02060 T8LLD
AM
5.RCH+ 11.30 10
02070
TF
FLPDDA+B. SRCH+11.11
02080
AM
SRCH+11.5.10
02090
TF
FLPOOA+5.SRCH+ll.11
02100
TFM
JORT,-+23
02110
B
IOGT.FLP.7

PAGE
04474
04474
04486
04498
04510
04522
04534
04546
04558
04570
04582
04594
04602
04602
04614
04626
04634
046]4
04646
04658
04670
04682
04694
04706
04718
04710
04742
04754
04766
04774
04774
04786
04798
0"810
04818
04818
04830
04842
04854
04866
04878
04890
04898
04898
04910
04922
04930
04930
04942
049510
04966
04978
04990

48
17
25
12
16
49
15
16
11
45
49

0459)
04602
04522

00000
-4496
01371
000-1
-4,45
-7147
00001
-2513
OOOKO
00000
00000

16
45
49

04625
04634
04522

-7400
00000
00000

11
14

3\
14
41
34
39
49

04625
04625
046llt
07401
07402
OH03
07404
07404
OH74
00000
07255
05954

000-1
-7480
01200
00000
00000
00000
00000
OMI31
01200
00102
00100
00000

24
41
4"
49

07413
04522
04818
04522

04217
01200
01416
00000

210
07425
04570
26 02441
11 . 04593
44 04898
0'0593
11
49 04582

0459L
01200
0459L
000-6
0459L
OOOJio
00000

32

0459l
06610
06550

00000
-4922
00000

03605
07062
03605
01059
00565
00566

000-3
0]60N
000-5
0360N
-5001
-7045

41
32

H
3J

00000
06846
07153
07153
0056~

00566
02463
04~93

47

17
49

11
26

11
26
16
49

4

1620 FORTRAN II-D

LOAOEk

...

1620 FORTRAN 11-0
02680
02690
02700
02710
02720
02730
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
02880
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
0]140
03150
03160
03170
03180
03190
03200

MVADO

SERCH]

rF
A
AM
AM
8
OORG
8~R

LOADER

05050
05061
05141
05141
05130
05130
00565
00532

00000
-2533
02450
000-1
00000
05050
-5097
-7045

31
49

06846
05050
05014

-51100
00000
00000

45
49

05150
05582

00000
00000

43
11
"9

05182
05l'tl
05130

0514J
000J8
00000

11
44
24
46
11
49

05141
05434
0506J
05250
05141
05130

OOOJI
05050
0514J
01200
000-7
00000

12

21
44
14
47
26
49

05141
0514J
05061
05141
0514J
05366
0506J
05366
0506J
05414

OOOJI
00000
000-5
000J6
02472
05050
-a000
01200
0514J
00000

05366
05378
05390
05402
05414
05426
05434

26
26
16
32
11
49

05401
05]96
00000
05390
05061
05026

0506J
0514J
-0000
00060
000J5
00000

05434
05446
05458
05470
05478
05478
05490
05502
05514

14
47

05061
05478
06882
05550

-),33

05206
0506J
05061
05141

0506J
0514J
000-5
000-5

05002
05014
05026
05038
05050
05062
05074
05086
05098
05110
05122
05130
05130
05142
05150
05150
05162
05174
05182
05182
05194
05206
05218
05230
05242
05250
05250
05262
05274
05286
05298
05310
05322
05334
05346
05358
05366

32
16
26

11
45
44
16
49

17

15
11

11

17
49
45
26

11
11

8LOCK 3

COMPAR+ll,CoMPRE+ll,611
COMPAR+ l1,ADDSVE ,6
COMPAR+ 11,15 ,10
COMPRE+ 11,2,10
COMPAR
.-3
*+44. COMPAR,+ 11,11

TDM COMPRE+ll'1I6
8TM
INCPUT,*.12
6
PHASE a
DORG .-]
AM
eOMPAR+l1,20.10
8
COMPAR-24
OORG .-]
LOAD 01 SK-STDREo SUBPROGRAMS
PHASE8 8TM
INCGET,*+l2
TFM *"23.SUBT8L .. 11
ENDTST 8~R •• 44.,.
TEST FOR ENO OF TABLE
CM
PROCOW, ,9
8NE
PHASEC
a
CALL3
DORG .-3
TF
NAM8UF. ENOTST+ll.11
AM
ENDTST+ll,6.10
8NF
INC13-60,ENDTST+ll,11
AM
ENDTS 1+ 11 014,10
8
ENDTST
DORG .-3
8TM INCPUT, . . 12
8TM EQSRCH,*"12, ,
SEARCH EOUIVAlENCE TABLE
RETURN IF ENTRY NOT FOUND IN EQUIV. TABLE
AM
ENDTST+ll,lol0
8TM INCGEl,"12
8NF .+32.ENDTST+l1,11
AM
I~C13
ENDTS T+ 11 013.10
8
ENDTST
DORG .-3
TYPE -LOAD NAMERC TY
PRoCDW DC
],0,--5
-00
WATV ~DMES
WATY NAMBUF-I0
8T" lNCGEr, •• 12
SF
ENoTST+ll, .6,
SET -TYPED- INDICATOR
PRoCoW,l,10
A"
8T" INCPUT,"12
TOM NoDAlA.O
8
INcn
OORG .-3
CMECK AND TYPE
NAMES OF UN~oADEO SUBP~OGRAMS
PHAS'Eo TOM DATA,l
TF" .+35, SU8T8L+1l
TOM MORE
BNR _+48
80
'HASEC-12,MORE

our

PAGE

BLOCK 3

02120
SF
COMPAR
TFM COMPA"R+l1,SU8TBL+ll, ,
INITIALIZE POINTER
02130
TF
COMPRE+l1.AOOCOW
02l't0
AM
COMPRE+l1,l.10
02150
02160 COMPAR 8NR COMPRE
8NF COMPRE ,COMPAR
02170
TFM IORT,H23
02180
02190
8
I OPT ,FlP. 7
02200
I N-CORE SUBPROGRAM TA8lE SEARCH AND LOAD
02210 LODINC BTM INCGET ,.+12
COMPAR
02220
CF
8
COMPAR-36
02230
02HO
OORG .-3
02250 COMPRE BNR SERCH
02260
B
SERCH3
02270
DORG .-3
.+32,COMPRE+ll,11
02280 SERCH BD
AM
COMPRE+ 11 ,18.10
02290
B
COMPRE
02300
DORG .-3
02310
AM
COMPR E+ 11,11,1 0
02320
BNF SERCH2.COMPAR
02330
CHECK FOR SAME NAME
COMPAR+l1,COMPRE+l1.611,
02340
C
02350
8E
SEReHl
AM
eOMPRE+ 11, 7.10
02360
eOMPRE
02370
8
OORG .-3
02380
SERCHI
SM
COIIPRE+1l,11,10
02390
02400
TOM COMPRE+ 11,0, 6
AM
COMPAR+ll,5,l0
02410
02420
AM
COMPRE+ll,16,10
A
COMPRE+ 11, ADDSVE ,6
02430
02440
8NF .+56, COMPAR.
CM
COMPAR+11,,67
02450
II+)Z
SHE
02460
MOVE ADDRESS IN
02470
TF
COMPAR+ 11,COMPRE+ 11,6 11,
SERCH2-20
02480
B
DORG .-3
02490
ROUTINE TO PLACE INDIRECT ENTRY ADDRESSES INTO SUBPROGRAMS
02500
•• 35, COMPAR+ll t 11
02510
TF
TF
.+18,COMPRE+l1,11
02520
TFM
MOVE ADDRE SS I NTo PROGRAM
02BO
SF
*-6,,6
02540
AM
COMPAR+ll,15.10
02550
COMPAR-24
02560
8
DORG .-3
02510
ROUTINE TO LOAD ENTRIES I N IN-CORE SU8PRoGRAM TA8LE
02580
02590 SERCH2 eM
CoMPAR+ 11, SUBT8L + 1011
02600
B~E
*+32
02610
8TM EPRINT,19,8
8
MVADO+24
02620
02630
DORG .-3
B~R
SERCH+56,CoMPAR+ 11,11
02640
02650
TF
CoMPAR+ 11,CoMPRE+ II, loll
AM
CoMPAR+ll,5,10
"02660
AM
COMPR E+ 11, 5010
02670

01200
0-079
00000

PAGE
05526
05>38
05550
05562
05574
05582
05582
05594
05606
05618
05626
05626
05638
05646
05646
05658
05670
05682
05694
05706
05714
05714
05726
057)8
05750
05762
OHTO
05770
05782
05794
05806
05818
05830
05842
05.850

26
21

11
49

0506J
0506J
05061
05141
05050

0514J
02472
000J5
000-2
00000

45
15
17
49

05626
0514J
06810
05646

0506J
00000
-5618
00000

11
49

05061
05026

OOOKO
00000

17
16
45
14
47
49

06846
05681
05714
05856
04486
06014

-5658
-2533
00000
00-00
01200
00000

26
11
44
11
49

02441
05681
05770
05681
05670

0568J
000-6
0568J
000J4
00000

17
17

06810
03674

-5782
-5794

11

05681
06846
05850
05681
05670

000-1
-5818
0568J
000J3
00000

00000
3

00102

01177

00100
00100

11

17
44

11
49

05850
05856

)"

05862
05874
05886
05898
05910
05922
059]4
05946
05954

39
39

15
49

02431
06846
0568J
0585(.
06810
02521
05830

0595"
05966
05978
05990
06002

15
16
15
4'
'13

02505
06001
06103
06038
04U4

11
32
11

17

-~898

00000
000-1
-5934
00000
00000
00001
-2533
00000
00000
06103

6

1620 FORTRAN 11-0
TFM
B
TF
AM
BNF
AM
8
DORG
10M
OS
RCTV
TOM
WArY
WATV
B
DORG
BO
BNCI
RC TV
SPROS T OS
PlATY
SP TV
WNTY
SP TY
SPRSI
OS

03220 CALL3
03230
03240
03250
03260
03210
03280
03290
03300
03310 MORE
03320
03330
03340
03350
03360
03110
03380 S IlEOK
03390

03400

LOADER

(ORT.*+23
IOGT,"Bl3,7

NAMBUF,PHASEO+41.11
PHASEO+41.6,lO
.+32. PHA SEO+lt 7,11
PHASEOf-47,llt,lO
PHASED+36
'-3

MORE,l

,*-2
DATA,O
LOMES
NAMBUF-IO

·-80
'-3
.+24,DVRLAP

*+q6

,_-5

03410
IYPE OUI NAME
03420
NAMSUF-IO" •
03421
AODSVE-4
03430
03440
01450
• ·-5
WNTY I NRK+ L8."
TYPE OUT LENGIH
03460
0.3410
WArV LDED
LOAD PROGRAMS ROUTINE
03480
TF
INOR+l1 ,ADDSVe
03490
e+24,EXTINO
03500
BD
O}510
ENTST+ll.ENDTST+ll
IF
SM
ENTST+ll.l,lO
03>20
035 }O
TF
*+18 t ENTST+ll.ll
03540
IF
ENTST+ll.SPROST,b
(11550 RDPROG BD
BRANCH IF PROGRAM IN CARD OR TAPE
COTPlO, EXTINO"
GET PROGRAM FROM DISK
03560 SCHLU
TFM
IORT,*+23"
IOGT,INDR,l
03'>10
B
0.1'580
R
RMTBl
OORG .-3
03590
ROUTINE TO LOAO PROGRAM FROM CARD OR IAPE
03600
416
03610 CDIPLD TOM
03620
DC

1,' ,-

03630
03640
03650 MLLG IH
03660
U3670
036BO
03690

onoo

03710
01120
03730
03140
03150

TO
SF
OS
CF
TF
SF
IF
TFM
B

..

428,COfolSEC+73
428

429
434,ADOSVE
489
CQMSEC+ 98, INRK+ 79
PUT BACK COMMUNICATION SECIOR
IORT,*+23"

[OPT,COM,7

TfM

IORT,*+23,.

8
SM
TOM

PRoeo .... , 1,10

GEl PROGRAM

[OGT,EXr,7
E X I I NO

1620 FORTRAN 11-0

03160
B
01170
DORG
03780 RElFRM 10M
03790
DC
03800
03810
01820
03B30
01840
03850
03860 SUAPRO

TR
CF
TFM
TFM
TF
AM

C

LOADER

1, ' , .
INRK. INRK+B., MOVE INDICATOR RECORD TO CONFORM TO CARD IMAGE
421
439,1~

ODAR+13,999Q9

03810
"NE
03880
C
I~RK+26,K"
TEST FOR EQUAL K
01890
BE
*+24
03900
BIM
EPRINT,76,8
03910
TF!M1
MDVE+ll,INRK+17,.
UPDATE SUBROUTINE TABLE
03920
TFM
MOVE+b,lIBSUB
03930
CF
MOVE+7
0}940 SUBDIG BD
MDVE,MDVE+l1,11
03950
B
MOVE+12
03960
DORG '-3
03910 MOVE
TO
039AO
A
MOVE+ll.IERONE
03990
CM
MOYE+6,LIBSU8+30
04000
BE
TRVSlE
04010
8
SUBOI G
04020 INCPUT TFM
IORT ,*+23
04030
IOPT,[NC,7
B
04040
B
INCPUT-l •• 6
04050 INCGET TFM
IORT,.+23
04060
B
[OGT,INC,7
04010
B
INCGET-l. ,6
04090
ERROR MESSAGE SU8ROUTiNE
04100 EPR INT IF
ERMESS+16.EPRINT-I
04110
RCTV
04120 lERONE DC
6,100001,_-4
JOOOOI
04130
WArY NAMBllF-10
04140
WA TY ERMESS
TOM
04150
SVEDDA-l,l
04160
BB
04170
DORG '-9
04160 OVRHES DAC
9. OVERLAP'
OVERLAP'
04190 JOBOUI DAC
14,JOB ABANDONED'
JOB ABANDONEO'
04200 DME
OSC
2,22
22
04210
DSA
DMEDOA
04220

DC

I ••

04230 OMEDDA DDA
,1.0,1,INRK
1-0000-01-7400

00565
00566
02441
06001
06094
06001
05990

-6037
-7190
0600J
000-6
0600J
OOOJ4
00000

06103
0
00000
02505
07111
02431
06014

00001

060H
06026
06038
06050
06062
06074
06086
06094
06094
06103
06106
06118
06130
06142
06154
06162
06162
06114
06186
06192
06198
06210
06222
06234
06240
06246
06258

16
49
26

38
39

06186
06210
00000
0
021031
00000
02468
00000
0
01'.18
07159

06210
06282
06294
06306
06318
06330
06342
06354

26
43
26
12
26
26
4}
16
49
49

01080
06306
04593
04593
06336
0459L
06186
00565
00566
03514

02412
02463
0'>681
000-1
0459L
06192
02463
-6371
-1069
00000

06386
06397

15

00416
1

00000

0639"
06410
06421
06422
06434
06446
06458
06410
06482
06494
06506
06'>18
06530

25
32

01311
00000

33
26
32
26
16
49
16
49
12
15

0042B
00428
0
00429
00434
00489
01398
00565
00532
00565
00566
05856
02463

06542
06550

49

03534

00000

06550
06'>61

15

07480
I

OUODO

H

01400
00421
00439
07293
06192
06192
07424
06682
01426
06694
06882
06761
06156
06751
06150
06162

07408
00000
-0015

06366
06318
06386

11
44

11
49
15

34
15
39
39
49
43

41
34

J9
34
38
34

BLOCK 3

RMIBL
.- 3
INRK+80

SPROST,INRK+31
SPROST,6,LO
I NRK+24, F t I
TEST FOR EQUAL F
*+36

PAGE

BLOCK 3

00102
00000
00100
00100
00000

02444
00100
00102

00100
00101
00100
00101
00100
00100

00000
02472
00000
01479
-6493
-1221
-6511
-1198
000-1
00000

PAGE

06562
06514
06586
06598
06610
06622
06634
06646

06658
06610
06682
06694
06106
06718
06730
06142
06750
06150
06162
06114
06786
06798
06810
06822
06834
06846
06858
06870

33
16
16
26

II
24
47
24
46

11

16
16
33
43
49

25
21
14
46
49
16
49
49
16
49
49

00000
06161
06756
04298
06130
00565
00532
06BOR
00565
00566
0684N

R9999

07431
000-6
02219
01200
02221
01200
0-016
-7437
-2394
00000
0616J
00000
00000
06901
-2424
01200
00000
-6833
-1013
00000

-6A69
-7013
00000

06882
06894
06901

26
14

07123
00000
6

06681
00102

06906

39
39
15
42

02431
01101
02489
00000

00100
00100
00001
00000

06918
069JO
06942
06944

06945

q X

06961

14 X

06990
06996

5 X

06996
06991

-6998
1

06998

14

1620 FORTRAN 11-0

LOADER

PAGE

BLOCK 3

04240

DC

I, '

04250 INC

OSC
02
DSA

2,02

01013

04260

INCDDA

01019

04270

DC

I, '

07019
07020

04280 EQU

DSC
22
OSA

2,22

07021

EQUODA

01027

I, '

01021
07028

-7030
1

.l,O,4,SU8T8l
04310 EQUODA DDA
1-0000-04-2522
DC
04320
I, '

07030

14

04330 FLP

010,,5

04290

DC

04300

04}40

04350

OSC
02
DSA

DC

01012

04380 INOR

OSC
22
OSA

-2506
1

5 X

07044

2.02

5 X

FLPDOA

07051

1 ••

01051
07052

-7054
1

07054

14

.1,Q,O,SUBTBl
04360 FLPDDA ODA
1-0000-00-2522
I, •
04370
DC

04390

2

07068
07069

2,22
OOAR,O

07075

5 X

04400

DC

1 ••

07075
07080
01081

04410 OIM

DSC
22
DSA

2.22

01082

OIMDDA

07088

1 ••

01088
07089

-7090
1

04440 DIMDOA DDA
.l .. 4800, l.INRK
1-4800-01-1400
04450
DC
I, '

01090

14

04460 ERMESS OAC
lO.ERROR l
ERROR L
04470 OIMSVE DSS 20.,
RESERVES CURRENT DIM ENTRY
04480 CDINP
OS
1
04490 CDTP
DSA
INRK

07101

10 X

07126
07146
07151

20
1
5 X

04420

DC

044'0

1620 FORTRAN 11-0

04500
04510 SEceT
04620 LOED

04630 LOMES
04640

BU

04650
04660
04610 EXT
04680

04690

LOADER

04130

04140

Dse
22
USA

DC

I, •

04780

04190

DSC
02
DSA

DC

07151
07154
07156
07159

9 X

01111

7 X

01190
07192
07197
07198
01204

-7206
1

01206

14

01220
07221

CDMDDA

01227

I, •

07227
07228

-1230
1

07230

14

5 X

07244

2,02

01245

LDODA

07251

I, '

01251
01252
07255

04850

00000

OEND

5 X

01204
01205

b,.DATA·
DAe
-OAT A'
04810
OORG 7280
04820 DOAR
DSS 20
04830 toMSEC QSS
100, , SYSTEM cmlMUNICATION SECTOR
100, ,
READ IN AREA FOR INDICATOR RECORO
04840 INRK
DSS
04800 DATAl

-7400
3

2,22

,1,19663,1, (ONSEe
04750 COMDDA DDA
IJ9663-01-7300
041hO
DC
I,'
04110 LD

PAGE

BLOCK 3

,1,19783.3,0
04700 EXTDDA ODA
lJ9783-03-0000
047LO
oc
1. '
04120 COM

5 X

01104

DC
3, '
-0'
DC
2,0
-0
9,
OAC
LOADEO'
LOADEO'
7,LOAD
DAC
LOAD
2,-22
OSC
2<
1,0
DSC
0
5,150 •
DC
-150'
2,-22
DSC
2K
OSA BTDOA

DC

-1280
-0000
I

07280
07280
01300
01400

5 X
-2414
1
6 X

20
100
100

10

1620 FORTUN 11-0
AODeow
ADOSVE
CDTPLD
COMAOO
COMOOA
COMPAR
COM'ER
COMPRE
COMSEC
DIMOOA
DIMSVE
DMEDDA
ENDTST
ENTABS
ENTATN
ENTCOS
ENTDED
ENTDRR
ENTEXP
ENTFEr
ENTF 10
E~TREC

ENTSC 1
ENTse2
ENTSC3
ENTSIN

02450
02H2
06386
02231
07230
05050
03122
05130
01300
07090
01126
06998
05610
02]23
02313
02303
02298
02293
02253
02283
02273
C2278
02258
02263
02268
02308

ENTSQT
ENTSWD
EPRINT
EQADOR
EOSRCtf
EOUOOA
ERMESS
EXTOOA
EXTiND
FlGRMK
FLPOOA
FOUNDI
HEAOER
INCOOA
I NeGET
INCPUT
INDCDN
JOBOUT
llSSUS
LOOINC
MIlH~

MC,N(.AL
NAM8UF
NOOATA
ONETNO
OVRlAP

LOADER

02318
0228B
06882
OH55
0)614
01030
01107
01206
02463
OH45
01054
03982
04174
02506
06846
06810
OUl1
06963
02394
05098
06421
00196
OH41
02521
0","08
024't4

BLOCK 3

OYRMES
PHASEB
'HASEC
'HUED
'ROtoW
PROGST
RDPROG
RELFRM
Bll
CAll]
CDINP
CDTP
COMP
COM
DATAL
DATA
DOloR
DIM
DME
ENTlN
ENTST
EQU
EXT
HI'
FOUND
F

06945
05646
04486
05954
05856
02221>
06342
06550
01190
06014
07146
07151
03154
07221
07255
02505
01280
07082
06990
02248
04582
0704:1
01196
010"5
03814
02219

PAGE
GONlT
INt1]
INt
INOR
INRK
10GT
10lND
10'T
10RT
K
LODOA
lDED
LDMES
lD
MLIND
MORE
MOYE
MVADD
Nl

H2
HURD
READ
REClG
RKCHK
RMT8l
seHlO

04510
05830
01013
01069
OHOO
00566
02461
00532
00565
02221

SEeCT
SECT
SERCH
SPRST
SRCH
TBLlD
W
SCADOR
SERCHI
SERCH2
SERCH3
SIlEOK
SPRDST
SUBDIG
SU8PRO
SUBTBL
SVEDDA
TBlIND
TR YSZE
TSTVLO
IERONE
ZROTST

021 (J

03524
o

3~2S

2,22

03~26

DCF3

01H2

1 ••

03537
0353\

2Z
01740

DSA

01750

OSC

01160 DCn

01800

OSC
1,1"
1
5,18400
DC
J8400
DC
3.028
-28
5,05800
DC
-5800
1 ••
OSC

01810 ODAP6

DSC

01820

OSA

01710
01780
01790

OREPL

5 X
-353"
1

03534
03539
03542

3

03547
03548

2.22

03549

DCFP6

03555

1 ••

03555
03556

2

2l

01830

osc

01840 OCFP6

DSC
1.1
1
DC
5.18241
J82,,1
DC
3.013
-13
DC
5.05800
-5800

01850
01860
01810

03551
03562
03565
03510

5 X
-3557
1

4

1620 "ONIJOR 1 DUP ROUTU'IE oSElECTION ROUTINE 14011. LEVEL
01880

PAGE

~

1 ••

OSC

01890 EQUOOA OSC
22
01900
OSA

2.22

03512

2

EOUOCF

03578

5 X

01910

1 ••

03578
03579

OSC

-3580
1

01920 EQUOCF OSC 1.1
1
01930
DC
5.18278
J8278
],020
019'00
DC
-20
5.08600
01950
DC
-8600
OSC· 1 ••
01960

03580

01970 CONTCO TF"
01980
TO
01990
CF
AM
02000
tM
02010
02020
BNE
02030
RCTY
02040
TFM
02050
B
RCTY
02060
TFM
02070
02080
8
02090
CM
02100
BNE
BC4·
02110
02120
TFM
02130 BOTEST BO
SM
02140
B
02150
02160
OORG
AM
02170
02180
eM
02190
BH
02200
TOM
OSC
02210

03596
03608
03620
03632
03644
03656
03668
03680
03692
03704
03716
03728
03740
03752
03764
03176
03788
03800
03812
03820
03820
03832
03B44
03856
03861

06397
06397
06397
06397
06397
03716
00000
11> 00565
49 00532
34 00000
16 00565
49 00566
14 06397
'07 03176
46. 03668
16 03799
43 03820'
12 03799
49 03788

000-0
00426
00000
000-5
000-6
01200
00102
-3703
-6236
00102
-3739
-6391
00·0-6
01200
00400
J3772
13613
000-2
00000

03799
03799
03876
13625
1

000-3
J3623
01100
00000

03868
03876
03876
03887

49

03888

00000

15

0319R
1

00000

02250

B
*.20
OORG '-3
TOM BDTES-T+ll,,6
OSC 1.' ,-

02260
02270
02280
02290
02300
02310

CM
BE
TFM
RCTY
TFM
B

03888
03900
03912
03924
03936
03948

14
46
16
34
16
49

06397
03972
06397
00000
00,65
00532

000-6
01200
000-6
00102
-H59
-6391

02320
()2330
01340
02350

RCTY
CM
BH
TOM
B
OORG
TOM
TOM
SF
C
8NE
TR
TR
TFM
8
OORG
C
8NE
TR
TR
TFM
B
OORG
C
BE
C
BE
e
BE
C
BNE
TR
TR
TFM
B
OORG
C
BNE
TF"
B
TFM
B
TFM
B
8
OORG
C
SNE
TR
TR
TFM
B
OORG
e
SNE
TR

03960
03972
03984
03996
04008
04016
04016
04028
04040
04052
04064
04076
04088
04100
04112
04120
04120
Oltl32
04144
04156
04168
04180
041B8
0"188
04200
04212
04224
04236
04248
04260
04272
04284
04296
04308
04320
04328
04328
04340
0"352
04364
04376
01t388
041000

34
14
46
1,
49

00000
03799
04016
13625
04028

00102
J3623
01100
00000

1>
15
32
24
H
31
31
16
49

0379R
17BOI
13612
13623
04120
02434
02442
02432
02402

00000
000-0
00000
0,989
01200
05990
0599B
-2502
00000

24
47
31
11
16
49

13623
04188
024]4
02442
02432
02402

06024
01200
06025
06033
-3000
00000

2"
46
24
46
24
46
24
41
31
16
49

13623
03190
13623
01118
13623
03314
13623
04328
0243'0
02442
02412
02402

06059
01200
06071
01200
06083
01200
06095
01200
06096
0610,.
-2700
00000

24
47
16
'09
16
49
16
'09
49

13623
04432
00565
00566
00565
00566
00565
00566
03202

06130
01200
-4375
-H49
-4399
-3572
-442]
-3480
00000

2'0
H

13623
04500

06142
01200
06143
06151
-5000
00000

,

02220
02230
022~0

CAROIO+2.0.10
CAROIO+2,426
CAROIO+2
CAROIO+2.5.}0
tAROIO+2.06.10
.+60

IORT,.+23
IOPT.ENTMES-4.7

IORT,.+23
IOGT.CAROIO-4.7
CAROIO+2.06,10
.+24
eONTCO+72
•• 23,INPUT+159
*+32. INPUT
*-1.2,10
.-24
'-3
80TEST+11.1.10
BOTEST+l1.INPUT+10
*+32

INPUT+12"t

1,' ••

,

CAROIO'2.06.10
_+12

CAROIO'2.06.10
IORf,-+23

IOPT.CAROI0-4.1

03585

5.

03588

3

03593
0359'0
16
25
33
11
14
47
34

11

14
46
15

1620 MONITOR 1 aup ROUTINE 'SHECTION ROUTINE "00. lEVel 4

02360

02370
02380
02390
02400
02410
02420
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540
02550

02560
02570
02580
02590
02600
02610
02620
02630
026ltO
02650
02660
02670
02680
02690
02700
02710
02720
02710
07740
02Ho
02760
02770
02780
02790
02800
02810
02B20
02830
02840
02850
02860
02870

BOTEST'II.1NPUT+I0
-+32
INPUT+12,O
_+20

'-3
80TEST+ll,O.6
MC5+23,O,10
INPUT-I
INPUT+IO.WRAO
·+56
OOA.OOAPI
DCF.OCFPl
SElEC +30. 02502
SElEC
'-3
INPUT'IO.ALTR
·+56
DOA.DOAP2
OCF.OCFP2
SELEC+30.3000
SElEC
'-3
INPUT+I0.0UMP
DMP+12
INPUT'10.LOAO
CAllO
INPUT+lO.REPL
eAlRPl+68
INPUT'IO.COPY
*+56
DOA.OOAP5
DCF.OCFP5
SElEC'30.02700
SElEC
0-]
INPUT+IO.DElET
*+92
IORT,*+21
I OGT, DDAP6. 7
IORT.*+23
IOGT.EQUODA.7
IORT,*+Z3
IOGT.eO"2.7
CAltOM'lt8
0-3
INPUT'10.FINE
.+56
DOA.ODAPT
OCF,OCFP7
SELEC+30.05000
SElEC
'-3
INPUT+I0.lABl
*+56
DOA.ODAPB

6

03571

P~Gc

04~12

04424
04432
04"32
0""4'0

H

04~56

ll. 02434

0~"68

31
16
"9

04,,80
04492
04500
04500
04512
04524

02~42

02432
02402

2~

13623

~7

0~568

31

02434

00000

06177
01200
06178

~

PAGE

1620 MONITOR 1 OUP ROUTINE _SELECflON ROUTINE MOD. LEVEL"
02880
TR
02890
TFM
02900
8
02910
DORG
02920
C
01930
SNE
02940
TR
02950
TR
02960
TfH
02970
8
02980
DORG
02990
RCTY
030ao
TfM
03010
8
03020
H
03030
8
03040
OORG
0]050 NOCOMP CM
0]060
BNE
0]070 R TURNL 8Nf
0~080
TO
03090
TfH
OliOO
B
03110
TO
03110
Tf"
011]0
TO
MM
03140
Oll50
80
OB60
B
03110
OORG
01180
SM
03190
TF
01200
S
03210
BO
032zn
BO
03230
8
03240
OORO
AM
03250
03260
Tf
03270
CM
03280
8NL
01290
TfM
e3]On
RCTY
WArY
OlliO
03320
B
03330
DORO
{J3140
TF
0]350
BNf
03160
SF
0])10
TfM
01380
TfM
OH90
81
0]400 KOI
OSC
02
Ol410
OSA

SELEC+30,02502

0",36
04548

SELEC

04~60

OCF,OCFP8

.-,

INPUT+LO,FLlB

_+56

OOA,OOAP9
DCf,OCfP9
SELECHO,03040
SELEC
·-3
IORT •• +21
I OPT, ERCO-4,1
MONCAL
_-3
HOlOl,S,IO
NOCOHP-56
MONeAl, 428"

UPI+L4,REPLAC
[ORT, •• Z'3"
IOGT,SECZ.7
REPLAC,UP1+14
HOlD2.0.10
HOL02.HCS+88
HOL02,5,lO
_+20,99
a+20

CHANGE TO EKROR HESS. LATER
GET TWO SECTORS RD

,

WK

.-)

JIICS+88,l,lO
HOlDII),434, ,
HOLDS. MCS+88

COMPUTE SECTOR COUNT

a+1Z,HOLD5

."ZO,HOlO5-1
a.20
--)

HOL05-201,10
WR2+8.HOL05-2
"CS+88.02302
a.56
01 MERR+22. 7179,8

04568
04568
0"580
0"592
0"604
04616
04628
04636
04636
04648
0"660
0"672
04684
04692
04692
0,,104
04716
041Z8
04740
04752
04164
04176
04188
Olt800
04812
04824
048]2
04H32
048H
04856
04868
04880
0489l
04900
04~00

2,02

04912
04924
04936
04948
04960
04972
04984
04992
04992
05004
05016
050Z8
05040
0505,
05059

R02

0506,

OIMERR
NOCOMP-20
--3
WRZ+13.MCS+88
a+24,MCS+12

WR2+11
WR2+5.00800
10RT.RDWR
IOGT

02442
02432
02402

00000

24
47
31
31
16
49

13623
04636
01434
02442
OZ,,32
02402

06111
01200
062l}
06221
-3040
00000

34
16
"9
48
49

00000
00565
00532
00000
00796

00102
-4671
-6286
00000
00000

14
41
44
25
16
49
Z5
16
25
13

05907
04636
00196
05840
00565
00566
01200
05907
05901
05907
04832
04844

000-5
01200
n047R

4:l
49

OSC

01430 002

OSC 101
I
DC
5,01400
-1400
3.177
DC
J17
DC
5.02302
-2302
OSC 1.'

03440
03450
01460
01470

03480 SfC2
03490

DSC
22
OSA

I.'

49
11
26
14
46
16
34
39
It.

05895
02265
11866
04992
06341
00000
06319
04612

000-1
058.5
-2302
01300
OPI19
00102
00100
00000

26
44
32
16
16
49

on70
05028
02210
02262
00565
00566
2

11866
11790
00000
-0800
-2205

43
43

5 X

DSC 101
1
5,18260
DC
J82,,0
DC
301
-01
5.02200
DC
-2200
OSC 1 ••

()~520

03530
03540
03550

03560 SOLOON BTM
03570
TfM
03580
8
03590
TF
03600
8Nf
03610
8
03620
OORG
03630
TFH
03640
8
03650
TfM
03660
TfM
03670
80
03680
B
03690 CLRIN TfM
03700
TOM
03110
AM
03120
CM
03730
BL
03140
81
03150 CCO
OSC
02
01160
OSA
03770

OSC

O~O61

050n
O~O80

05081
05082

oVHO SEe22

CLRIN,a+12

05090
0'>0<)5

05098
05103
05104

CLRIN-l •• 6
2.02
CC02

05319

I, '

05319
05320

IOGT.DOAI,7
INPUT+74.ZER0l2
a+20,Mt5+22

at 32
.-3

IORT ,-+23
IOGT.CCo,7

INPUT+9b,44,10
INPUT+9a,lt9,10
CALRPL+68,REPLAC
CALLO

a+18,INPUT-l
INPUT-I,O

--6,1,10
--I8.INPUT+161

·-36

5 X
-5090
I

0508"
05089

05106
0511"
05130
05142
05154
05166
05114
05114
05186
05198
05210
05222
05231t
05246
05258
05210
05282
05294
05306
05313

IORf •• +23

-5067
I

05072

05088

I.'

oonoo

PAGE

SEcn

OSC

02200

-4163
-%82
05840
()QO-O
17866
000-5
0OO9Q
00000
OOU-I
004)4
11866
0,891
05896

05065
05066

2.22

03500

-2~o2

11866
05891
05891
04900
04900
04912

12
26
22

1620 MONITOR 1 OUP ROUTINE .SELECTION ROUTINE MOU. LEVEL 4
0]470

06186

31
16
49

05246
00565
00566
13687
05174
05198

-51l8
-5141
-5908
06.190
11800
00000

00565
00566
13109
13711
43
03314
49 03118
16 0526.
15 1361Z
11 05264
1" 05264
41 05258
49. 0524N
2

-5191
-5313
000M4
000M9
02200
00000
J3612
00000
000-1
JH74
01300

11
16
49
26
4_
49
16
49
16
16

5 X
-5321
I

PAGE

1620 MONITOR 1 DUP ROUTINE -SnECTION ROUTINE MOD. lEVEL ~
OH80 CCD2

DSC
I

1.1

05321

5',00798

05326

03800

OC

3.2

05329

03810

-02
DSA

INPUT-I

05334

I.'

05334
05335

OC

03790

10

5

-0798

03820

DSC

02200

03UO KEPLAC OSC 1,0,2200
0
038'40
OC
5.0
-0000
03850
OC
5.0
-0000
NEWDIM.4994
03860 DIMMER CM
01870
BH
SHERR
03880
TF
HOLD6.IER06
TF
HOLD6.NEWDIM
03890
03900
A
HOL06.HOLD6
HOL06-3
03910
CF
03920
SF
HOLD6-4
03930
AM
HOLD6.48000.7
03940
TF
DMREAD05. HOLD6-1
(ORT, .+23
TFH
03950
03960
B
I OG'T. DDREAO, 7
0'3970
TFM TREColl,READIN
*.23,HOlD6
03980
TO
AM
03990
TA.EC+IO,O.tO
0IMMER-6,.6
04000 TREC
TR
OIMMER-l,,6
04010
a
04020 EQUIV
TFH NEWDIH.0002.8
TFM OIMMER-6.MAP
04030
04040
aTM OIMMER, •• 12
04050
TFH MAP+8,4,9
TFH MAPon.REAOIN
04060
04010
TOM "MP+14.,
04080
OSC
1.' .•
04090
04100
04110
04120
04130
04140 BNR
04150
0"160
04170
04180
04190
04200
04210
04220
04230 RO

TFM
8
TFH
CM
BE
BNR
TFH
B
OORG
C
8E
AM
B
OORr.
AM

5 X
J3612
1

05HO

5

05345

5

05346
05358
05370
05382
05394
05406
05~18

05430
05442
05454
05466
05418
05490
05502
05514
05526
05538
05550
05562
05574
05586
05598
0560Y
05610
05622
05&34
05646'
05658
05&10
05682
05694
05702
05102
05114
05126
05138
05746
05146

IORT.*+23
IOGT.MAPOOA,l
e+41,REAOIN+l1
BNRoll.REAOIN0411
RO

.+12,REAOIN+ll
01 MERRo22 .1571.8
UPI
--3
MC5+35. BNR+ll, 11
ERREPL

BNR+ll, Ib,}O
BNR-24
--3
MAP+5 ,4 ,10

14
46
26
26
21
33
32

05934
03358
06349
06349
06349
06346
06345
11 06349
26 06369
16 00565
49 00566
16 05525
25 05513
11 05524
31 053449 05341'1
16, 05934
16 05340
17 05346'
16 05943
16 05948
15 05949
1

04420

OSC

04430 IOGT
04440 HOl02

OS
DC
-0
04450 SYSCAL DS
04460 OOAI
OSC
22
04410
OSA
04480
04490
04500
04510
04520
04530

OSC

oeFl

00565
00566
05681
05681
05702
06341
05826

-6879
01200
OM7?
OP571
00000

24
46
49

17813
05166
05681
05646

056RJ
01200
OUOJb
00000

11

05940

000-4

4~

05610

00000

11

05681
17817
0553P
06341
11813
11R17
00000
06319
00565
00532
03118

000-4
0568J
01200

11

05146

OSC

24
46
16
26
16
34
39
16
49
49

0~891

~

00565
00532
058'18

0
0
2

05904

1 ••

,566
2.0

00566
05901

0
2

,415
2.22

00475
05908

DCFl

05914

I. '

05914
05915

1. '

04540 MCS
OS
,17718
04550 NEWOIM DC
4.0
-000
04560 MAP
OSC 20.0
00000000000000000000
04570 MONCAL OS
,196
04580 INPUT OAS 81.13613
04590 00A6
OSC 2.22

5 X
-5916
1

05916
05921
05924
05929

5 X

05929
059]0

J7718
1

17718
05934

0
4

05935

20

00196
13613
05955

0
81
2

05961

5

22
04600

OSA

DCF6

OP~76

06390
0-000
00102
00100
-5885
-5908
00000

5 X
-5935
1

MONITOR COMM. SECTOR

~6479

PAG~

05158
05766
05166
U5718
05190
05802
05814
05826
05838
05850
05862
05814
05886

05904
05905

OSC 1,1"
1
DC
5.19663
J9663
].001
oc
-01
OSA MCS

-56H
-5898

16
49
16
14
4&
45
16
49

1620 MONI TOR 1 OUP ROUTINE -SELECTION ROUTINE MOO. LEVEL 4
04240
aNR-60
8
04250
OORr. - - }
04260 ERREPL AM
8NR+l1.4,10
04270
C
MCS+39,ANR+ll.ll
04280
EQUIV-l, ,6
BE
04290
TFM 01 MERRo22 .1576. 8
04300
TF
MCSH5.lEROI2
OHIO UPI
TFM MC5+39.0,8
04320
RCTY
04330
WATY DIHERR
04340
TFM
IORT, -+23
04350
(OPT,OOAI.7
B
04360
8
CALlO
5,0,_
04310 HOL05 DC
-0000
04380 IORT
,565
OS
04390 IOPT
,532
OS
04400 NAPOOA OSC 2.22
22
04410
OSA MAP

-4994
01100
06355
0593"
06349
00000
00000
H8000
06348
-5477
-6356
-6468
06349
000-0
00000
00000
0-002
-5935
-5574
00-04
-6468
00000

II

1620 MONITOR 1 OUP ROUTINE .SELECTION ROUHNE MOD. LEVEL
OSC

04620 DCF6

OSC 1,1. ,
1
5.18430
DC
J8430
DC
3.050
-50
OSC 5.02500
02500
OSC I, •

04630
04640
04650
04660
04670 WRAO
04680 ODAP1
04690

05961
05962

1 ••

0~610

PAG~

~

OOUMP

12.IH466594144
DC
Jlt446659lt141t
OSC 2.22
22
OSA OCFPI

I.'

05963
05968
05971

05912
05971
05989

12

05990

2

05996
05996
05997

04700

OSC

U4710 DCFPI

DSC 1,1
1
5,18220
DC
J8220
3,027
DC
-27
DSC 5.02502
02502
OSC

05998

12,144441536359
DC
J4441t1536359
OSC 2.22
22
OSA DCFP2

06024

04710
04130
04740

I.'

Lit1':JO

04760 ALTR
04770 nOAPZ
0471'0

1 ••

06003

5 X
-5998
1

5

06006
06007

5

06012
12

06025
06031
06031
06032

5 X
-6033
1

04790

OSC

04800 OCFP2

OSC 1,1
1
DC
5.19300
J9300
DC
3.038
-38
OSC 5.03000
03000
OSC 1. '

06033

DC
12.1H444645451
J44444645457
12,144453564144
DC
J4445356H44
12.144459455753
DC
J44459455753

06059

12

06071

12

06083

12

06095

12

04810

U4820
04830
04840
04"50 DUMP
04860 LOAD
04810 REPL

0603g

5

06041

3

06042
06047

1620 MONITOR I OUP ROUTINE .SELECfION ROUTINE MOD. LEVEL 4
04880 COpy

PAGE

DC
12,1441043565768
J44443565768
OSC 2.22
22
OSA OCFP5

06102

114910

OSC

1. '

06102
06103

04910 DCFP5

1.1

06104

04930

OSC
1
DC

5.19363

06109

04940

OC

04890

O~AP5

04900

J93b3

3.037

-37
04950
04960
04970 DElET
04980 FINE
04990

OOA~7

05000
05010
05020
05030

05040
05050
05060
05070 LA8L
050S0 OOAP8
05090
05100
05110 DCFPS·
05120
05130
05140

0609&
5 X
-6104
1

OolLZ

DC
5.02700
-2700
OSC I.'

06111

DC
12.144445534563
J444455H563
DC
12,144446495545
J44446495545
OSC 2.22
22
OSA OCFP7

06130

12

06142

12

061H

2

OSC
OCF~l

I. '

OSC 1.1
1
DC
5018139
J8139
],038
DC
-38
OSC 5.05000
05000
OSC I, •

06lla

06149
06149
06150

5 X
-6151

I

06151
06156
06159
06160

5

06165

DC
12.1"4453414253
J44453414253
OSC 2.22
22
OSA OCFP8

06171

12

06178

2

.

061S4

OSC

1 ••

06184
061S5

OSC
1

1.1

061S6

DC

5018200

JB200
DC
3.020
-20
OSC 5.02502
02502

12

-5963
1

06191
06194
06195

5 X
-61S6
1

13

PAGE

1620 MONITOR 1 OUP ROUTINE -SelECTION KOUTINE MOD. LEVEL "
05150

OSC

05160 fLiB

12,1444'>65349'>2
De
J44H6534942
ose 2.22
22
OSA DCFP9

05170 DDAP9
05180

OSC

05200 DeFP9

05240

ose 1.1
1
DC
5.18261
J8261
DC
3.017
-11
5.01000
DC
-3000
OSC 1 ••

05250

OSC

05210
05220
05230

05260 E~TMES OSA

06212

06219

5

06219
06220

-6221
1

5

06229

3

06234
06215

1,',13175

1311~

ENTER

06240

05280 ENTER
05290 EReD

],06'
DC
-6'
OAC 21.ENTER OUP CNTRL
EN TER OUP CNTRL REt.'
OSA ERReD

R.Et.'

),06'
DC
-6'
OAe
12.ERR CONTROL'
ERR CONTROL'
13.0UP_ERROR 00'
OH20 OIMERR OAe
OUP·ERROR 00'
05]30 HOLD6 De
6.0
-00000
05J40 lER06 DC
6.0
-00000
0'350 ODREAO OSC 2,22
22
OB60
OSA OMREAD
05300

05310 ERReD

05)10

ose

1 ••

05380 OMREAO OSC
1,1
1
5,04800
05390
DC
-48UO
05400
DC
3.001
-01

5 X

062103

-6245
3

062,,5

21

06290
06290
0629]

5 X
-6295
3

06295

12 'X

06319

13 X

06349

6

Ob355

6

06356
Ob162
06162
06363

5 X
-6364
1

06364
0636Q

06371

1620 MONI TOR 1 DUP ROUTINE -SHECHaN ROUTINE MOD. LEVEL' 4
05410

OS A

REAOIN

05420

OSC

1.'

05430 lERII12 DC
12.0
-0 00 00000000
05440 CARDIO OSA INPUT
05450
05460

OIMI

05470

DC

3.10'

JO'
OSC
22
OSA

2.22
0lM2

05480

OSC

I.'

05490 01142

OSC
1

1.1

05500

DC
5.04800
-4800
DC
3.002
-02
DC
5.11900
J1900
ose 1 ••

05510
05520
05530
05540 0lM4
05550 LIST!
05560

OS
OSC
22
OSA

.17980

2,22
OlM4

PAGE
06311

-6468
1

06390

12

06]9,
06395
06398

06405
06406

5 X
-6407
1

06401
06412
06415
06420
06421
11980
OH22
06428

05570

OSC

I ••

OS
DC
-00

.09178
3.0

09118
06t,32

05600

DC

3.0

05610

-00
DC
-00

3.0

05620

DC

3.0

05630

-00
ose

1 ••

os
os
os
OS
os
os
OSC

.12645
,12668
,12691
.12714
,12737
,12483
2.22

22

5 X
J3613
3

06199
OH05

05580 READ
05590 CNT!

SPLPKO
SPLPKI
SPLPK2
SPLPKl
THROWS
CORS IZ
SPLsua

5 X

06371
06378

06428
06429

05640
05650
05660
05670
05680
05690
05100

x

06221

06226

06240
05210

12

062U

1 ••

05190

II,

06200

1,'

0
2
5 X
J7980
1
0
3

06435
061038

3

U641tl

3

06442
12645
12668
12691
12114
12731
12481
064"1

0
0

0
0
0
0
2

I'

162D MONITOR 1 PUP ROUT 11IE .seUCTlON RoutINE 1100. LEVEl
0511D

lISA

SUISPL

05120

OSt

1.'

"

06"'
e6UO

06"56

-u

D5170

5.12458
J2""·
OSC 1.'

DC

.

OAC
0
05190 READIN OSS
TFM
05800 SEL
8
D5810
TRA
05820

05180

05830 SELl
05A40

DSC
22
DU

3

5

06465
064.61

400
IORr."23
IDPT.SELl.l
2.22

OM68
06868 16
06880 49
06892
36
06904 .49
06916

SEl2

06922

05850

DC

1 ••

05860 SEl2

DSt
1

1.1

06924

05R70

5.18554
DC
J8554

05880

DC

X
-6924.

1

0(>931

DC

05900

-2402
1 ••
DC

06938

05910

TCD

06868

05920

OENO

5.02402

SEL

00000

1620 MONITOR 1 OUP ROUTINE .SElECTION ROUTINE MOD. LEVEL 4

END OF ONE ASSEM8l Y.

-6891
-6916
00500
00000

06932

-41
05890

0639~

1 X
400
005/;5
DOU2
00000
00000
2

06929

3.041

02846
D3596
12483
06356
06319
DIMME~
05346
DHREAD D6364
ENTMES 06240
EQUDC~
03580
EQUDDA· 03512
ERREPl 0576&
MAPDDA 05898
MONCAl 00796
NEWDII< 05934
NOCOHP 04692
READIN 06468
REPLAC 02200
RTURNl 04116
A.LTR
06024
BFLG
02638
BNR
05670

5

06464

1.0

03188
03154
03246

16

)(

-'''511

eMS9·

06922
06923

SOTEST
CALCOM
CALRPl
CARDIO
COMPAII
CONTCD
CORSIL
DDREAD
DIIIERR

5

06"51

05730 SUBSPL IISC 1.1
1
5.112·98
DC
051"0
JU9.
D5150
DC
3.0n
05160

PAGE
06"'"

CALLO
ce02
CCD

CUUN
CNT!
COlll22
COM2
COpy
CORI
CUR2
COR
CT
DeFl
DCF2
DCF3
DCF4
DCF5
DCF6
OCFPl
DCFP2
DCFP5
DCfP6

DCFP7
DCFP.
DCFP9

01118
05321
05H3
05246
D6432
03488
D3480
06095
02H8
02356

onoo
02626
05'116
03442

03534
Ollt65

03511
0596.3
05998
06D33
06104
03557
06151
06186
06221

OCF
OOAI
00A2
00A3
ODA4
DOAS
DDA6
DDAPI
DDAP2
DDAP5
ODAP6
ODAP7
DDAPe
00AP9
DDA
OELfT
D[MI
0lM2
01114
OMP
ON

DUMP
ENTER
EQUIV
. ERCD

02442
05908
0343'>
0)526
03457
03503
05'155
05990
0602~

0609&

0)549·
DUO
06178
06213
021t]"
06130
06399
D6407
11980
OHll

02174.
06059
062"5
05538
06290

PAGE
ERRCO 06295
FINE
06142
06212
FllB
HOL02 ·05901
HOLD5 05897
HOLD6 06349
INPUT 136U
lOCAL 00116
10GT
'0051>6
00532
IOPT
00565
IORT
06171
LA8L
US
02560
L1sn 06422
LOAD
06011
I'IAP
05935
MCS
11178
NEXT
02706
RDI
05059
05.06,7
RD2
RD
05·146
RDWR
U2205
READ
09718
lI.EPL
06083
SEC22 05090

11
SEC2
SELl
SEL2
SELEG
SEt

SLl
Sl2
lREC
UPl
WR2
WRAD
WR
ZER(J&
·SELECT
SElERR
SOlDON
SPlPKO
SPLPKl
SPLI'K2
SPlPK3
SPLSUB
SUBSPl
SYSCA·l
THROWS
ZER012

05082
06n6

06924
02402
06868
02?12
02280
0'>514
05826
Q.2251
·05"189
02249
'06355
0245M
03358
05106
12645
12668
12691
12714
Ob443
06451
00475
12117
06390

1620 MONITOR 1 OUP ROUTINE *OlOAO, -OREPL,
00010
00020
00030
00040
00050
00060
00010
00080
00090
00100

PAGE

'DELET MOD. LEVEL 4

SUBROUT I NE S-:-Ol MMER,GETR, GETL, {NSER T, REMOVE,F INO

10PT
10GT
10RT
KING

00110

DORC
OS
OS
OS
DSC
02
oSA

2458
,532

02458
00532
00566
00565
02't58

,566
,565

2,02. ,

DDA 10 fLIP CORE WHEN MOVING PROGRAMS

QUEEN

02464

00120

DC

I ••

02464
02465

00130 QUEEN

DSC

1.1

02466

00140

I
DC

5,02000

02411

00150
00160

-2000
DC
3.10\-0
J40
DC
6,05800'

0
0
0
2
5 X
-2"66
1

5

02414
02480

6

02483

3

-5800'
00110 CORSIZ DC
3,080" THE CURRENT SIZE Of THE SPL
-80
14,DUP*ERROR 00 •
00180 DIMERR DAC
OU p. ERROR 00
TfM OIMERR+22 ,0011, 8
00190
00200 ERRD
RCTY
WHY DIMERR
00210
00220
H
MONCAl
00230
8
00240
DORG '-3
2.22, ,DDA USED BY DIMMER TO READ IN ONE SECTOR
00250 DMDDA
DSC
22
DMREAD
00260
DSA

.

00210

OH85
02512
02524
02536
02548
02560
02568
02568
02514
02514
02515

I ••

DSC

14 X
16
34
39
48
49

0-011
00102
00100
00000
00000

02501
00000
02485
00000
00196

5 X
-2516
I

02516

00280 DMREAD DSC
1.0
0
00290
DC
5.0
-0000
00300
DC
301
-01
00110
DC
5,19900

02581

02584
02589

J9QOO

00320

DSC

00310 ROMDOA DSC
22
00340
DSA

I ••

02590

2,22, ,ODA USED BY THE MOVER TO MOVE PROGRAMS

02591
02591

RDMOVE

02591

1620 MONI TOR 1 DUP ROUT INE -OLDAO,
00350

DSC

-OREPL, -DELEl

MOD. lEVEL 4

1 ••

PAGE
02598

00360 RO.OVE DSC
1.0
0
DC
5.0
-0000
003BO
DC
3,140
J40
OO]qO
DC
5,05800
-5BOO
00400
1 ••
DSC

02599

00370

02604
02607
02612
02613

00410 WRMODA DSC

2.22"

22
DSA

WRMDVE

02620

1 ••

02620
02621

00420

00430

DSC

DDA USED BY THE MOVER TO TRANSFER PROGRAMS

00440 WRMOVE DSC
1.0
0
00450
DC
5.0
-0000
00460
DC
3,140
J40
00410
DC
5,05AOO
-5800
00480
I ••
DSC
00490 PKODDA OSC
22
00500
DSA
00510

CSC

2,22"

02630
02635
02636
DDA FOR HANDLING THE SPL ON MODULE ZERO

OSC

02631

SPlPKO

02643

1 ••

02643
02644

2.22"

-2645
1

02M5
02650
02653
02658
02659
DDA FOR HANDLING THE SPL ON MODULE ONE

02660

SPLPK 1

02666

I ••

02666
02661

00600 SPLPKI OSC
103
3
00610
DC
5.39801
19801

5 X
-2622
1

02627

00520 SPLPKO OSC
101
1
DC
5,1980l
J980 1
00540
DC
3,080
-80
00550
DC
5,05800
-5800
00560
I, •
OSC

00590

02614

02622

00530

00510 PK 100A DSC
22
00580
OSA

5 X
-2599

02668
02673

5 X
-2668
1

PAGE

1620 MONIrOR 1 DUP ROUTINE oOLOAD. oOREPL. oDelET MOD. lEVEL 4
00620

02616

DC
1.080
-80
DC
5.0580.0
-58.00
1 ••
DSC

00630

.0064.0

001>50 PK200A DSC
22
DSA

2.22"

00660

00670

DSC

02681

5

02682
DDA FOR HANDLING THE SPL ON MODULE TWO

02683

2

SPLPK2

02689

5

1 ••

021>89
02690

-2691
1

02691

00680 SPLPK2 DSC
1.5
5
00690
5.59801
DC
N9801
00700
1.080
DC
-80
00710
DC
5.05800

021>96
02699
02704

5

-58.00
00720

DSC

Dono

PK3DOA DSC
22
DSA

00740

00150

1 ••

2.22"

DSC

02105
DDA FOR HANDLING THE SPL ON MODULE THREE

02106

SPL PK 3

02712

1 ••

02112
02113

00760 SPLPK3 DSC
1.1
1
00770
DC
5.19801
P98DI
),080
00780
DC
-80
0.0790
DC
5.058.0.0
-5800
00800
DSC
1.'

2
5 X
-2714
I

02114
02719
02122

.02727

5

.02728

0.0810 THRDDA DSC
22
OS A

2,22, ,OOA TO EXCHANGE

.02129

2

THROWS

02715

5 X

00810

1 ••

.02716

00820

CO~E

WHE~

USING THE SPL

02135
DSC

0.084.0 THROWS DSC

02737

.0.0850

02742

.0.0860
.0.0870
OO"AQ

101
1
DC
5.19881
J9881
DC
3.080
-80
DC
5 • .058.0.0
-58UO
I ••
DSC

11>20 MONITOR I

02745
02750

.02151

PA!;E

OUP ROUTINE oDLOAO. -OREPt, oDELET MOO. LEVEl 4

00890 aAVA I l DC
).0 ••
ACCUMULATES AVAILABLE BLANK SECTORS FOUND IN MOVE
-00
.0.0900 CAlC2
DC
5.0
-0.000
0091.0 GOLDEN DC
I.D"LISTER-1t

02754

.02759
.02160

00920 I I STER DC
It.O"HOLOS PRESENT SPL POSI TION
-00.0
00930 M8UOO DC
6.048000 •• fIRST SECTOR Of DIM MAP
-48.000
00940
DC
l.Q"PACK CONTINUED

.02771

00950 PACK

DC

1 ,0" PACK NUM FOR SPLIST

02772

00960

DC

1 ••

00970 CALC]

DC
6.0
-00.000
DC
CAlCULATION AREA
4.0"
-000
DC
I.O •• SET UP THE OVERRIDE CODE fOR COMPAR I S ION

00980 CALC4
0099.0

-2731
1

01000 1I S TE S DC
6.0"DESIREO SECTOR ADDRESS FINO
-0.0000
0101.0 I I STET DC
4,O"NUMRER TO BE INSERTED SPL INSERT
-000
01020 HEX
DSC
1.0
0
01030 CaNST! DC
6,O"WORK AREAS
-00000
01040 CONST2 DC
6,0"
-00000
01050 QCARRY DC
6,0" WHERE TO LOAD NEXT MOVED SECTORS
-00000
01060 QHOLD DC
6.0
-00000
01010 CONST5 OC
6.0
-00000
01080 CONSTI> DC
6.0
-00000
01090 CONST7 DC
6.0
-00000
01100 RACKET DC
4.0
-000
01110 STEAL DC
4 • .0

02764

4

02770

6

02771
02779

6

02181

4

0218~

0219.0

6

02194

4

on9S
.02801
02801

6

02811

6

02819

6

02825

6

02831

6

02837

6

02B41

4

02845

4

-DOD
011Z0 CALCl

DC

1 • .0

-00
0113.0 FAKSEV DC
4,0., HAS SEVEN FROM LISTER
-000
01140 COMMON DC
1.0
01150 NOMMON DC
-0
01160 NOSECA OC

02848
02852
028S1

2.0

028S5

1.0

02856

4

4

PAGE

1620 MaN ITOR 1 OUP ROLIT INE _DlOAD, oDREPl, -DElET MOD. leVEL ""
01110 MOVESA DC
6,a"fOR SECTOR ADDRESS
-00000
01180 MDVESC DC
3,O"FQR SECTOR CDLlNT
-00
5,0
01190 CONST8 DC
-0000
01200
01210
SUB ROUT INE-GETR
01220
SUBROUTINE FOR SHIFTING ONE TO RIGHT IN THE SPl
01230
TOM NOMMON,l,.
INITIALIZE TO SAVE CORE FOR EXCHANGE OF SPl
012"0 GETR
01250 ClIPPP TF
91t,PACK
TFM
10RT,un
01260
IOPT,THRDDA,7
01270
B
01280
B
REDSPl
DORG 0-3
01290
lEFT PRESENT SPl C.A.
01300 GETRTR TF
CAlC2, SPlCOR"
AM
01310
SPlCOR,O"",10, lEFT END NEW ENTRY
SF
SPlCOR, ,6,NEW FLAG
01320
01330 NEWDIM DC
"",O,-,DESIREO DIM ENTRY
-000
AM
CAlC2,07,10,RIGHT END OF NEW ENTRY
01340
TF
liSTER,CAlC2,l1
01350
01360
WHYNOT
B
01370
DORG 0-3
01380
SU8ROUTINE-GETl
01390
SUBROUTINE FOR SHI FTJ NG ONE TO lEFT IN SPl
01400
01410
TOM NOMMON,2,
01420 GETl
01430
CLlPPP
B
0-3
DORG
014100"
CAlC2,SPlCOR
01450 GETlTR TF
SM
SPlCOR,04,10,lEFT END OF NEW ENTRY
01460
01'070
SF
SPlCOR, .6,
CAlC2,Ol,10,RIGHT END NEW ENTRV
01480
SI!
01490
TF
lISTER,CAlC2,ll
B
WHYNOT
01500
DORG 0-3
01510
01520
SU8ROUTINE-REMOVE
01530
REMOVES fHE PRESENT ENTRV IN LISfER AND CLOSES THE liST
01540
01550
01560 REMOVE TOM NOMMON, 3, t
ClIPP"P
01570
8
01580
DORG --3
01590 REMOTR TF
CALC2, SPlCOR
AM
01600
CALC2.04,lO.
01610
TR
SPLCOR, CAlC2, 611,CLOSES HOLE
SPLCOR, ,6
01620
SF
5,O ... ,DIM ADDRESS SPl
01630 SPLCOR DC
-0000
01640
SM
CAU2, 0 lola
01650
TF
liSTER,CAlC2,l1
CF
SPlCOR, ,6
01660
5,O,.,CYLINDER. SPl
01670 SPlCVl DC
-0000

02862

6

02865
02870

-..

02872
0288""
02896
02908
02920
02928
02928

15
26
16
~9
~9

02855
0009~

00565
00532
04702

11
32

02759
03151
0315J
4

03151
000-4
00000

02964
02916
02988
02996

11
26
49

02759
02164
03388

000-7
0275R
00000

02996
03008
03016
03016
03028
03040
03052
03064
03016
03084

15
49

02855
02884

00002
00000

26
12
32
12
26
49

02159
0315J
02759
02164
03388

03151
000-4
00000
000-1
0275R
00000

15
49

02855 OOOO~
02884 " 00000

26

02159
02159
0315J
0315J
5

03151
000-4
0275R
00000

02159
02764
0315J
5

000-1
OZ75R
00000

02~0

02952
02963

030B4
03096
03104
03104
03116
03128
03140
03151

26

11
31
32

03~51

03152
03164
03116
03187

12
26
33

03188
03200
03212
03224
03236
03248
03260
03208

14
46
14
46
14
46
49

02172
03268
02772
03300
02172
03332
03364

01200
00000

03268
03280
03292
03300
03300
03312
03324
03332
OH32
03344
03356
OH64
033610
03376
03388

16
49
49

00565
00532
03388

-3291
-2637
00000

16
49

00565
00532
03388

-H23
-2660
00000

16
49
49

00565
00532
03388

-H55
-2683
00000

16
49
16

00565
00532
00565

-H87
-2706
-3411

03400
03412
Ollt14
0341"
03426
03434
03434
03445

49
42

00566
00000

-2729
00000

15
49

02855
02884

00004
00000

32

0315J
5

00000

16

03"81
03481
03458
02807
02801
03518
03578
03516
03580
02501
02524

-5800
000-4
99999
03481
000-4
02801
-5800
02483
01300
OP178
00000

1620 MONITOR I DUP ROUTiNE -DlOAD, oOREPl, oDELET MOD. lEVEL 4
01680
01690
01700
01710
01120
ul730
01140
01150
01160
01170
01180
01190
01800
01810
01820
01830
01840
01850
01860
01810
01880
01890
01900
01910
01920
01930
01940
01950
01960
01910
01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
0216v
02110
02180
02190
02200
02210

STOMP

CM
PACK,OOolOll, PACK ZERO
8E
WRTSPO
CM
PACK,Ol,lOll,PACK ONE
8E
WRTSPI
CM
PACK,O},lOll. PACK TWO
8E
WRTSP2
B
WRTSP3", PACK THREE
oORG 0-3
ROO TI HE FOR RETURN I NG APPRO lATE SPl TO DISK
WR fSPO TFM
IORT,·+23
8
IOPT,PKODoA,7
8
WHVNOT
OORG 0-3
WRTSP1 TFM
IORT,*+23
B
IOPT,PKIODA,7
8
WHVNOT
DORG '-3
WRTSP2 TFM
IORT, •• 23
8
I OPT. PK200A, 7
8
WHYNOT
DORG --3
WRTSP3 TFM
IORf,*+21
B
I OPT, PK300A,l
WHYNOT TFM
10RT ,.+21. ,RESTORES CORE BEFORE RETURNING TO MAINLINE
SU8RUUTlNE-INSERT
INSERTS TO THE lEFT OF THE PRESENT ENTRYANO OPENS LIST
8
I OGT, THRODA,l
88
DORG --9
INSERT TOM NOMMON.It ••
B
ClIPPP
DORG 0-3
INSETR SF
SPlCOR,,6
FOUND DC
5,o,.,FIND SEerOR TOTAL
-0000
ROUTI NE TO SEE IF LIST IS AlREADY FUll
TFM -.35,05800,1
AM
-+23,04,10
TIPSY
BNR --12,99999 .. FINoS RECORD MARK AT END OF LIST
TF
CONST2, Tl PSY.1l
AM
CONST2,04,I0
TF
CNSTl,CONSr2
SM
CNsn,05800,l
C
CNSTl-2 ,CORSlZ, ,COMPARES PRESEj\jT SIZE TO DEFINED LIMIT
Bl
NERR
TFM 0IMERR.Z2,ll78,8
B
ERRO
DDRG '-3
CNST3
DC
5,0
-0000
NERR
TF
CONST2, TlPSY>ll,6U,OPENS THE LIST
TF
CAlC2,SPlCOR
AM
CAlC2,03010
TF
CAlC2,LlSTET,6,
INSEkTS THE ENfRY FROM LISTer
CF
SPLCOR,,6,

00001
02772
-2919
-2729
00000

PAGE

03446
03458
03410
03482
031094
03506
03518
03530
0"3542
03554
03566
03514
03518
035110
03592
03604
03616
03628

4~

11
45
26

11
26
12

24
47
16
49

000-01200
OOO-J
01200
OOO-K

5
26
26

11
26

33

0280P
02159
02159
0275R
0315J

0348J
03UI
000-3
02194
00000

6

PAGE

1620 MONITOR 1 DUP ROUT! NE -OLOAD. -DREPL. -DELET liDO. LEVEL •

5,19880,-,
02220 ORESTR DC
J9880
All
SPLCOR,4,10.
02230
CF
SPlCOR, ,6
022~0
02250
8
STOMP".
OORG .-3
02260
02270
THE 01 MilER SU8ROUTlIIE FOR BRIIIGING IN A DIM EIITRY
02280
SPECIFIED IN -NEWDIII- TO 8EGIII AT CORE POSITION 19880
02290
02300
02110 DIMMER C
NEWDIM.MUDI"
8~H
02320
-+32
02330
TFM 01IlERR+22.0016.8
B7
02340
ERRD
TF
CALC2.NEWDIM
02350
A
CALe2.CAlC2
02360
02370
TF
CALC3.NIoaooo
02380
A
CALC 1.CALC2 •• NEW DIM SECTOR AODRESS
02390
TF
DMREAD+13.DRESTR
02400
TO
•• 23,CALC3
SM
02410
DIIREAD+l2.0.10.ADJUST DIM READER S A
TF
DIIREAO+5. CALC]-1
02420
TFM
IORT,.+23
024JO
02'040
8
10GT,DMOOA.l
02450
BB
DORG '-9
02'060
02470
THE FINO SUBROUTlIIE FOR LOCATING A POINT ON A PARTICULAR
02480
01'090
SPL fROM AN AODRESS GIVEN IN -L1STES02500
02510 FIND
SF
lISTES-5,..8
CF
llsrES-4
02520
TF
19885.LISTES.,ACCEPTS SECTOR ARGUMENT
02530
02540
BT
SPLIST.SPLIST-I •• FINDSTART OF CYLINDER
TOM HOMMON.S
02S50
02560
8
CLI PPP
02510
OORG '-3
CALC2-1.NEWDIM
01S80 FINDrR TF
02590
TOM CALC2-4 •• 11.FLAG ZERO
02600
MM
CALC2-1.02010.F I NO SECTOR
TFM AORSPL. ,7, ZERO THE FIELD
02610
91,,,PICK UP COUNT
02620
SF
TF
ADRSPl-2,QQ,. MOVE SECTOR CYL ADDRESS
02630
02640
TO
ADR SPL-4. Ll S TES-4
02650
SF
ADRSpL-'o
LEFT PRESENT SPL C.A.
02660 TRYAGN TF
tALC2.SPlCOR ..
AM
SPlCOR,04,lO, LEFT END NEW ENUY
02670
SF
SPLCOR, .6,NEh FLAG
02680
AM
CALC2.07.10.RIGHT END OF II~W ENTRY
02690
02700
TF
lISTER,CAlC2,11
TO
CALC4. SPlCOR .11,
02710
CM
CAlC4,09,lOll, 8LANK SECTORS
02710
BE
02130
ADOBLK
TF
02740
NEWDIM.LlSTER
onso
8T
DIMMER.OIMMER-l
02160
19885,ADRSPl •• OOES THIS PROGRAM 8EGIN ON THIS CYLINDER
C

03639
036.0
03652
03664
03672

11
33
.9,

01151
03UJ
03188

000-"
00000
00000

03672
03684
03696
03708
03716
03128
03140
03152
01764
03116
03188
03800
0)812
0382'0
03836
03838

24
41
16
.9
26
21
26
21
26
25
12
26
16
'09
42

02963
03116
02501
02524
02759
02159
02719
02719
02589
0]799
02588
02581
00565
00566
00000

03B49
01100
0-016
02961
02759
02770
02159
01639
02779
000-0
02716
-3835
-256A
00000

03838
03850
03862
03874
03886
03898
03906
03906
03916
03930
03942
03954
03966
03978
0)990
04002
04014
04026
04938
04050
04062
040H
0"086
0'0098
04110
04122

32
H
26
21

02185
02186
19885
04330
02855
02884

0-000
00000
02790
04329
00005
00000

02758
02755
02758
04520
00097
04518
04516
04516
02759
03151
0315J
02159
02164
02183
02783
04286
02963
03672
19885

0296'3
0000000-2
-0000
00000
00099
02186
00000
03151
000-4
00000
000-7

1~

49
26
15

Ii
16
32
26
25

12
26
11
32

11
26
25
14
46
26
27
24

1620 HONI TOR 1 OUP ROUT INE -DlOAO. -DREPL • • DELEr MOD. LEVEL 4
02170
BNL
02780
S
02190
SF
A
02800
A
02810
02A20 PLUSSR SF
02830
C
02840
CF
02850
RNH
TF
02860
02810 RLGONE TFM
02B80
B
01890
B
02900
DORG
02910 ADOBLK SF
02920
A
02930
CF
02940
8
02950
OORG
02960 NEVER DC
-0
02970 CLEVER DC
02980

02990
OJOOO
OlO10
Ol020
OJ030
01040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160
03110
03180
03190
03200
Olno
03220
OJ230
03240
03250
03260
03270
03280
03290
03300

-+48
19885.ADRSPL
19A83
I.BA8.19885
AORSPl.19888"
L1STES-'o

PAGE

2,O,AD08LK+ll

04134
04146
04158
OU70
0'ol82
04194
04206
0"218
04230
04242
0'0254
04266
04278
04286
04286
04298
04310
04322
04]30
04297

1,O,ADOBlK+35

04321

ADO SECTOR TOTAL.AOJUSTED IF NECESSARY

AORSPL,LISfES"HAS

THE CORRECT ENTRY BEEN REACHED

1I STES-4
TRYAGN
FOUNO.ADRSPL
fORT ••• 23

I DC T • THRODA, 1

.,.2,

EXIT TO BE FILLED

'-3
LIS TER-2

lOR SPl. II S fER. ,ADO IN THE COUNT FOR BLANK SECTURS
llSTER-2
PLUSSR
.-]

ROUTIIIE FOR HRINGING IN THE PROPER LIST ANa
SCANNING TO THE CORREcr CYLINOER ENUY
SPLIST TFM
lOIn ,.+23
8
IOPT.THRDDA.7
TOM
19880" 1l,FLAG ZERO
MM
19885.05010
CF
COMMON
SF
9'o ••• DESIRED CYLINDER
SF
93
TO
STAROT+IO,95 •• SET-UP SEARCH FOR THE CORRECT CYLINDER
TO
STARDT+ll.96
MM
lISTES-5.50000.7.USE OVERRIDE CODE TO DETERMINE MODULE
SF
94
8
RDSPL
DORG --3
SPUNI 8NF
*+20,COMMON
B
GETRAK
OORG '-3
rOM CALC4-1.0.ll,SET-UP CALC4
TFII AORSPL. 05800
LP.SROA NOP
HOLDS CUUNT POSITION FOR SPL LIST
TO
CALC4.ADRSPL
,II. PREPARE TO COMPARE
CF
CALC'o
CM,
CALC4.7010
BE
COMCYL
SPLAOO AM
AORSPL
,04.10"NEXT ENTRY
B
ADRSPl+6
OORG . - ]
TF
ROSPL
KEVE .• 94
TF
NEVER.L1 STES-4 •• CORRECT TENTHOUSANDS POSIT lOll
TOM NEVER-1 .. 11
MM
NEVER.OS,10
BO
-+24,99

...

0275R

OH5J
OOO-R
01200
02764
03611
0"520

04330
0'0342
04354
04366
04378
010390
04402
04414
04426
04438
04450
04462
041070
04470
04482
04490
04490
04502
04514
04526
04538
o-USO
04562
04574
04516
045""
0"59"
04606
04618
046]0
04642

46
22
32
21
21
32
3J
41
26
16
'09
49

04182
19885
19883
19888
04520
02786
04520
02186
04002
03445
00565
00566
-'0278

01300
04,20
00000
19885
1988A
00000
02190
00000
01100
04520
-4277
-2729
00000

32
21
33
49

02162
0'0520
02762
0'0194

00000
02764
00000
00000

24

2

32
49

00565
00532
19880
19885
02853
00094
00093
05032
05033
02785
00094
04594

-43Sl
-272q
0000000-5
00000
00000
00000
00095
00096
NOOOO
00000
00000

44
49

04490
05170

02853
00000

15
16
41
25
33
14
46
49

02782
04520
00000
02783
02783
02783
04986
04520
04526

0000-5BOO
00000
045200000
000-7
01200
000-4
00000

26
26
15
13
43

05009
04297
04296
0.297
04666

00094
02786
0000000-5
00099

16
49

n

lJ
3)
32
12
2~
2~

11

11

1620 MONITOR 1
03310
03320
03330
03.340
03350
03360
03370
OH80
03390
03400
0.3410
03420
03430
03440
03450
03460
03410
03480
03490
01500
0]510
03520
035}0
03540
03550
01560
0~570

01580
01590
03600
03610
03620
01630
03640
03650
03660
03670
03680
03690
OJ 700
03710
03720

01730
03740
03150
0]760
03770
01780
03790
03900
L3810
03820
03830
03840
03R50
03860

1620 MON ITOR 1
Ol870
03880
03890
03900
01910
03920
U 39)0
Ol040
03950
03960
01970
01080
03990
04000
04010
04020
040]0
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
04]40
04Hl
04350
04]60
04370
04380
04]90
04400

DUP ROUTINE .OLOAD, -OREPL,

eM
BE
CM
8E
CM
BE

aup

PAGE

.DELET MOO. lEVEL 4

NEVER, 1 t La
CLEVER,NEVER
TO
CLEVER
SF
ROUT! NE TO READ IN CORRECT SPL
94,KEVE
TF
94,0,1011, PACK ZERO
REDSPl CM
TF
PACK,94"SAVE PACK NUM
REDSPO
BE
CM
94,1"011, PACK ONE
REDSP 1
BE
CM
94,2,lOll. PACK TWO
REDSP2
8E
CM
94,3, lOll, PACK THREE
REDSP 3
BE
SPLPKO+l ,CLEVER
REDSPO TO
TFM
IORT t .. +23
I OGT t PKOODA, 7
8
SPLI N I
8
DORG ·-3
SPLPK1H,CLEVER
REDSPI TO
TFM
IORT,·+23
IOGf,PKIDDA,1
8
B
SPLINI
DORG ·-3
SPlPK2+ 1 ,CLEVER
REDSP2 TO
JORT.*+23
TF"
'OGT, PK2DDA, 7
8
SPUN I
B
OORG ·-3
SPlPK3+1, CLEVER
R[DSP3 TO
IORT,.+23
TFM
IOGT,PK30DA.1
B
SPUN I
8
DORG ·-3
"CVLCORE POSITION
SPLCYL,ADRSPL
COMCYL TF
AORSPl, ,6
SF
,COMCYl+23
KEVE
OS
SPLCYl, 01, 10
AM
SPlCYl,7000.6B,IS THIS THE RIGHT CYLINDER
SfARDT CM
8E
SPLEX T
AORSPL, ,6
CF
SPlADD
B
DOR!; ·-3
SPLCOR,$PLCYl"FJNO DIM NUM lOCArlON
SPlEXT TF
SPlCYl,03.10,BACK fD HIGH ORDER POSITIUN
SM
SPlCYL, ,6
SF
NEioJDIM,SPLCOR, 11,CYLINOER DESIRED
TF
lISTER,SPLCOR,tl.
TF
SPlCOR, SPlCYl
TF
$PLCVL ,AORSPL
TF
COMMON
SF
WHYNOT
B
OORG .-3
LINKAGE TO RETURN fO PROPER SUBROUTINE AFTER SAVING CORE
NOMMON,Ol,10
GETBAK CM
GETRTR
BE
AM

04654
04666
04678
04690
04102
04114
0412.
04738
04150
0"162
04114
04186
0"198
04810
04822
04834
04H6
04854
04854
04866
04818
04890
04898
04898
04910
04922
04934
04942
04942
04954
04966
04918
04986
04986
04998
05009
05010
05022
05034
05046
05058
05066
05066
05078
05090
05102
05114
05126

25
32

04291
04321
04321

000-1
04291
00000

26
14
26
46
14
46
14
46
14
46
25
16
49
49

00094
00094
02112
04810
00094
04854
00094
04898
00094
04942
02646
00565
00566
04470

05009
000-00094
01200
OOO-J
01200
OOO-K
01200
OOO-l
01200
04321
-4845
-2637
00000

25
16
49
49

02669
00565
00566
04410

04321
-4889
-2660
00000

2~

16
49
49

02692
00565
00566
04470

04321
-4933
-2683
00000

25
16
49
49

02715
00566
04470

04321
-4977
-2706
00000

11

00565

04;20
00000

14
46
H
49

03i81
04520
03187
OHap
05066
045204574

26
12
12
26
26
26
26
12
49

03151
03187
03l8P
02963
02764
03151
03181
02853
03388

OH87
000-]
00000
0315J
0315J
OH87
04520
00000
00000

05170
05182

14
46

02855
02928

000-1

05194
05206
05218

I.
46
14
46
l'
46
49

02855
03016
02855
0310'
02BSS
03434
03906

01200
00000

16
49
14
41
12
12
16
49
16
40
12
14
47
12
12
49

00565
00532
028.8
05462
0260'
02621
005&5
00566
00565
00532
02848
02848
05462
02627
02604
05346

-5297
-2458
00J40
01300
00J40
OOJ40
-5369
-2591
-5303
-261.
OOJ40
OOJ40
01100
OOJ40
')OJ40
00000

26
26
22
22
16
49
16
40
16
16
26
26
16
49
16
49
49

02601
02630
02627
02604
00565
00566
00565
00532
02630
02601
08636
19885
00565
00532
00565
00566
10884

02848
02848
02848
02848
-55]·}
-2591
-5557
-2614
00J40
00J40
198B5
02621
-5629
-2568
-5653
-245A
00000

44
16
34

05730
02507
00000
4

11114
OP670
00102

39
44
49

02485
02548
14936

00100
13426
00000

16
49

02507
02524

0-078
00000

OS13R

05150
05162
05110

26
32

11

ROUT INE -OLDAD, -OREPL, -DEL E I MOD. LEVH 4

NOf04MON, 02,10
GETLTR
NOMMON,Oh10
REMOTR
NOMMON, 04, 10
INSETR
B
F INDTR
DORG .-3
ADRSPL OS
,LPSRDA+6
POR TI ON OF THE MOVER SUBROUTINE WHICH MOVES THE OAT A
CO"PFR TF M IORT, .+23
8
rOPT,KING,7,SAVE THE INFORMATION IN CORE
CM
CALC1,14Q,9,REGULAR READ
BL
SPCRED
SM
ROMOVE+5,140,9
SM
WRMOVE+5,140,Q
WHIPIT TF M IORT,.+23
8
IOGT,RD'MDOA,7
TFM
IORT,·+Z3
B
I OPT, WRMDOA, 1
SM
CAlC7.l40,9
CM
CAlC7,140,9
BNH
SPCRED
SM
WRMOVE+ 5 t 140,9, AOJUS T COUNT AND DDA AFTER TRANSFERING 140 SE
SM
ROMOVE+5,140,9
8
WHI PIT
DDRG - - ]
SPCRED TF
RDMOVE+8,CAlC1" TRANSFER LAST PORTION OF PROGRAM
TF
WRMOVE+8,CALC1
S
WRMOVEt5,CAlCl
S
ROMOVE+5,CAlC7
fFM
[ORT,.t23
8
IOGT,RDHOOA,1
TFM
[ORT,· .... 23
B
IOPT,WRMDDA,7
TFM
WRMOVE+8.140,9,
RESTORE CONSTANTS TO 140
TFM RDMOVE+8,140,9
TF
MPTrl9885"
SAVE ADDRESS OF LAST PROGRAMS ORIGINAL SECTOR A
TF
19885,WRMOVE+5, ,CORRECT SECH)R ADDRESS IN DIM [NTRY
TFM
IORT,.+23
B
IOPT,DMODA.1
TFM
IORT ..... Z3
8
[OGT,KING,7
8
MAR VEL
DORG ·-3
ERR
BNF
-+68,FORT.,
CHECK FOR ERROR 60 IN DLOAD
TFM
01 MERR+22. 76 70, 8
RC TY
NINESC DC
,,",9000,.-5
ROOO
WArY DIMERR
BNF
ERRO+24,QUMP
PATCH]
B
DORG .-]
TFM
DIMERR+22,0078,8
8
ERRD

000-]
OPOOO
01200
00000
00000

OU'oo

p~GE

0~230

05242
05254
05266
05n4
04520
0~274

05286
05298
05310
05322
05334
0534h
05358
05370

05382
05394
05406
05418
0'>430
0')447
05454
05462
05462
05474
05486
05498
05510
05522
05534
05546
05558
05570
05582
05504
05606
05618
O~630

05642
05654
05662
05662
05674
05686
05692
05698
05710
05722
05730
05730
05142

000-2
01200
000-3
01200

OOU-4

10

1620 MON I TOR 1 DUP ROUTINE 'OlDAD. -OI\EPL, .OELET MOD. LEVEL ~
OHIO
O~4JO

DORG .-)
CONST3 DC
6.0

04440 SPLFL
04450
04460

-00000
TFM
IORT,*+21" LINKAGE FOR THROWING SACRED SIX
IOPT,SPLR2,1
8
TRA

04470 SPLRI

asc

ro

01 SK WHEN LOA

lol

I
DC
5018298
J8210
BT
06580
B
06590
OORG
06600 FILTST 8~G
06610
8
06620
OORG
06630 GORT
8T
06640
CM
06650
BE
06660
CM
06670
8E
06680
TF
06b90
8T
06100
ANG
06710
8
06720
OORe
06710
8NF
06740
B
06750
OORG
06160 BLANKT SF
06170
TF
06780
S
06790
CF
06800
SF
06810
TF
06820
CF
06830 OAVCOM C
06840
BNH
06850
8
06860
DORG
06870 RAVAOO SF
06880
A
06890
B
06900
OORG
06910 MOV'tOW S
06920
CM
06930
BE
06940
SF
06950
TF
06960
CF
06910
TFM
06980
8T
06990
TFM
07000
S
01010
TOM
07020
DC

095610

09696

ACIAD
LI STER-2

LISTER.20Q,9

1620 MONI TOR I
06470
06480
06490
06500

POSITION END OF BLANKS FROM THIS DII'IS SEtTOR

DIMMER. DIMMER-l
tONSTl.19885
tONST6. MOVESA
tONST3.CONSTl
GETL,GETL-l
LlSTER-2
CONST6.MOVESC

09.08
09.20
091t32
091t.4
091t56
091t68
091080
091t92
09504
09516
09528
09540
09552

PAGE
10064
10076
10088
10100
10112
10124
10n6
10148
10160
10172
10184
10196
10201t
10204
10216
10224
10224
10236
10248
10260
10272
10284
10296
10108
10320
10328
10328
10340
10348
10348
10360
10372
103B4
10396
10408
10420
IOH2
101t44
10456
10464
10464
10476
10488
10496
10496
10508
10520
10532
10544
f0556
10568
10580
10592
10604
10616
10621

26
33
16
14
46
21

109

10099
10097
02194
02794
10136
034H
02858
02996
02761
10148
02872
08600

OllOO
03413
00000
02995
OOO-Q
01200
02811
00000

55
49

10224
09024

19899
00000

27

46
26
21
55
49

02872
0216i
10224
02761
10464
02963
03672
10328
10216

02811
OOo-p
01200
OOO-R
01200
02164
03611
19899
00000

It4
49

10224
09024

19899
00000

32
26
22
33
32
26
H
24
47
49

02187
02825
03445
02787
03443
02754
03443
02865
10496
10224

00000
03445
02190
00000
00000
00000
02754
01100
00000

32
21
49

02162
02754
10432

00000
02164
00000

22

02154
02754
10628
02762
10519
10577

02865
00-00
01200
00000
02154
00000
OROOO
01413
-0000
02754
00000

H
21
14
47
27

14
46

14

14
46
32
26
33
16
21
16
22
15

021910
03414
02627
02627
02795

1

05755
00000
OROOO

OROOO

03441;)

16

OUP ROUT INE .OLOAD. -OREPl,

1620 MONITOR I
07030
07040
01050
07060
01010
01080
01090
01100
01110
01120
01130
07140
01150
01160
01170
01180
07190
07200
07210
07220
01230
01240
01250
07260
07210
01280
01290
07300
07310
07320
01)30
01340
07350
07360
07370
07380
01190
01400
07410
07420
07430

"EMBLK BT
CM
BE
Tf
8T
A
B
OORG
KSEVEN Sf
MM
A
Sf
S
AM
Cf
B
OORG
RSEVEN BT
TOPPRO 8NR
8T
TF
A
SF
TFM
MARVEL 8T
C
BNH
CM
8H
WASH
BT
B
DORG
C
BE
Tf
8T
fF
fF
fn
A
TF

REMOVE. REMOVE-I .. REMOVE LAST NINES ENTRY I f IT
L1STER-3.01.IOIl
KSEVEN
NEWDJ H, Ll STER" SET MOVER OOA fROM DIM ENTRY
OIMMER.OIMMER-l
WRMOVE+5,19865
TOPPRO
'-3
L1STER-l ... SEr MOVER aDA FROM CYLINDER ENTRY
LI STER. 200. 9
WRMDVE+-5,99

IS A PERfeCT

WRMOVE

WRMOVf+ 1 ,NEVER.
WRMOVE+l ,01 t La
WRMOVE
TOPPRO
.-3
REMOVE. REMOVE-I
.+24. HEX

GErLt GETl-l, ,A.DJUST THE LISTER FOR NO EXACT fIr
CONST5. MOVES A
CONST5.MOVESC
CONST5-4 ••• SfCTOR ADORES Of LAST SEC fOR TO BE MOVED TOWARD
NEWO J M, 9
RACKET ,19888
RACKET,200,Q.
H~VE 200 SECTORS BEEN ACCOUNTED fOR THIS CYLI
EIEST
lLLRIT
lISTER-3,8,1011
TELASf
STEAL,L1STER
GETR,GETR-l
FAKSEV,1,10
lISTET,FAKSEV,. RES TORE SEVENS MARKER
INSERI,INSERI-l
LISTEr.STEAl •• REPEAT THE DIM NUM8ER
INSERT,INSERT-l
RACKEJ,200,C),
L1STER,fAKSEV

•• 32
GETL,GETl-l
NOISY
_-3
REMOVE,REMOVE-l

GETL,GETl-l. ,
POSITION 1I S TER FOR EX IT
L1STER-3,08,1011

·.20
8EAUTY
·-3
GETR,GETR-l
SFSUtE
·-3
ADO THE BLANK OR EIGHTS SECTOR COUNT TO TOTAL
LISTER-2",
RACKET, LI STER
lISTER-2
NOISY
·-3
fAKSEV,l,lO,
INSERT CYL MARKER FOR A PERFECT FIT
LlSTET,FAKSEV
GETR.GETR-I
INSERT,INSERT-l
RAKES
0-)

lISTER-2
RACKET ,LISTER,',
L1STER-2
tONST8,200,8
CONST8,RACKET
CONST8-2
LISTER,CONST8
STEAl,lISTER
,"35,CDNST8

PREPARE THE SIZE OF THE EIGHTS ENTRY

-+21
LISTET,8000,8,

INSERT THE EIGHTS ENTRY

PAGf.

26
21
26
21
12
24
46
27
49

02851
19885
10368
19885
19883
19888
02841
02841
10100
10128
02761
10156
02845
02812
02852
02194
03414
02194
03414
02841
02164
10580
02996
10380

00000
19885
19888
OOKOO
01200
01100
OOO-Q
01100
02164
02A71
000-1
02852
03413
02845
03413
OOKOO
02H52
012UO
02995
00000

21
21
14
46
49

0308'0
02996
02161
10636
10592

03083
02995
OOO-Q
01200
00000

21
49

02872
08600

02871
00000

32
21
33
49

02162
02841
02162
10380

00000
02764
00000
00000

11

02852
02794
02812
0341"
10524

000-1
02852
02871
03413
{lOOOO

02162
02841
02162
02810
02810
02868
02164
02845
10887
10885
02794

00000
02164
00000
0-200
02841
00000
02810
02164
02870
00000
OQOOO

24
46

22
32
21
21
1"
"6
47
14
41
26
21

11

26
27

Z1
49
32
22
33
16
22
32
22
26
26

33
16

19

LU

00000
00099
01300
00099

.,,..........

PAGE

1620 MONITOR 1 OUP ROUTINE .OLOAO, .OREPL, .OELET MOO. LEVEL 4
09250
09260
09270
09280
09290
09300
09310
09320
09330
09340
09350
09360
09370
09380 NoMC
09390
09"00
09"10 NOMo
09420

8T
REMOVE, REMOVE-I"
INSERT, INSERT-1
8T
AM
fA~SEV, 1,10
LISTET,FAKSEV
TF
8T
I NSERT ,INSERT-I"
TF
II STU, STEAL
8T
INSERT ,INSERT-I"
IOETL,GETl-I
8T
TF
RACKET , l I STET
TOM RACKET-3,O,ll
NOISY
B
DORG .-3
LINKAGE FOR PLACING THIS
TFM 10RT,o+23
I OPT, NoMO,l
8
TR"
OSC
22
OSA

REMOVE THE INDICATOR FROM THE LIST

INSERT THE SEVENS IIARKER
REPLACE THE REDUCED INDICATOR

10888
10900
10912
10924
10936
10948
10960
10972
10984
IQ996
11008
ILOilo

27
27
11
26
27
26
27
27
26
15
"9

03084
030Bit
02852
02794
03414
0279..
03414
02996
028"1
02838
10380

03083
0)413
000-1
02852
03413
02845
03413
02995
02794
000000000

II.
49
36
49

00565
00532
00000
00000
2

J1039
J1064
00500
00000

LAST PORTION OF MOVER ON 01 SK

2,22

11016
11028
11040
11052
11064

NOME

11070

I, '

11070
11071

09430

DC

094lt0 NOME

11072

09480

ose 1,1
1
5,17106
OC
J7106
3,022
DC
-22
6.09000 •
DC
-9000'
Teo NOMC

09490
09500 DELFL
09510
09520

OORG 5600
TFM
IORT t -+21
10PT,OELId
8
TRA

09530 DEll

2,22

09540

DSC
22
DSA

05600
05600
05612
0562't
05636
05648

DEL2

05654

09550

Dse

I,'

05654
05655

09560 OEL2

Dse 1,1
1
5,18247
DC
J8247
DC
3,013

09450
09460
09410

09570
09580

21

5 X
JI072
1

11071
11080
11086

6

11016
16
"9
36
49

00565 -51>23
00532 .-5648
00000 00500
00000
00000
2

-5656
1

05656
05661
05664

-ll
5,05800
DC
-5800
OSC
I,'

09590
09600

05669
05670

1620 MONITOR I OUP ROUTINE .OLOAD, .DREPL, .0ElEf MOO. LEVEL 4
09610
09620
09630
09640
09650
09660
09670
09680
09690
09700
09710
09720
09730
09740
09750
09760
09770
09780
09790
09800
09810
09820
09830
09840
09850
09860
09870
09880
098'10
09900
09910
09920
09930
09940
09950
09960
09970
09980
09990
10000
10010
10020
10030
10040
10050
10060
10061
10062
10063
10064
10070
10080
10090
10100
10110
10120

•
•
•
OELET

OKDEL

•

PAGE

UELETE PROGRAM ROUTINE
OORG 5800
SF
DELETE
DETERMINE MAX.NO. OF DIM ENTRIES
TFM MAXOIM.9999.8
TFM NEWDIM,3,8
8T
01 MMER, 0 I MMER-I
BNR •• 20,MAP
MONeAL
8
OORG ·-3
MM
MAP.e. 5, 10
SF
96
SM
99,1,10
TF
MAKOIM,99
SF
INPUhll
TF
PNAMErlNPUT+22
TO
DIMHUM,INPUT+10
DIMNUM-I,INPUT+28
TO
TO
01 MNUM-2, I HPUT+26
DIMNUM-3,INPUT+24
TO
SF
0IMNUM-3
eM
DIMNUM,O,8
8E
DKDEl-24
IS DIM NO. IN RANGE
e
D IMNUM, MAXOI M
8NH -+32
TFM DIMERR+22, 0076, 8
8
ERRD
OORG .-3
IS DIM NO. IN USE
TF
NEWDIM,OIMNUM
DIMMER,DIMMER-I
8T
8NR OKDEl,MAP
TFM DIMERR+22,1271,8
8
ERRD
DORe ·-3
PNAME,ZERDI2
C
8E
ERRO-12
BTM EQU IV ,.+12
eM
0lMNUM,o,8
BHE •• 32
TFM DIMERR+22,7270,8
8
ERRO
oDRG .-3
TF
NEWDIM,DIMNUM
8T
DIMMER,OIMMER-I
BNR •• ZO.MAP
B7
EXIH
DELETE ENTRY FROM SP LIST
8TM SPLDEl,.+12
TF
NEWDIM,DIMNUM
8T
OIMMER,DIMMER-I
TF
fWRIT+5,MAP.5
TO
FWRIT,HAP

05800
05800

32

13114

00000

05812
05824
05836
05848
05860
05868
05868
05880
05892
05904
05916
05928
05940
05952
05964
05976
05988
06000
06012

16
16
27
45
49

03849
02963
01672
05868
00796

OR999
0-003
03671

13
32
12
26
32
26
25
25
25
25
32
14
46

19888
00096
00099
03849
13624
13229
13190
13189
13188
13187
13187
13190
06124

000-5
00000
000-1
00099
00000
13635
13M3
13641
13639
13617
00000
0-000
01200

06024
06036
06048
06060
06068

24
47
16
49

13190
0606B
02501
02524

03849
01100
0-076
00000

06068
06080
06092
06104
06116
06124
06124
06136
06148
06160
06172
06184
06196
D6204
06204
06216
06228
06240

26
27
45
16

02963
01672
06148
02507
02524

13190
03671
19880
OP271
00000

U229
02512
08606
13190
06204
02507
02524

13167
01200
-6160
0-000
01200
OP270
00000

02'163
03612
06248
06936

13190
03671
19880

12090
02963
03612
13272
13267

-626'..:

06248
06260
06272
06284
06296

"'I
24
46

11
14
41
16
49
26
27

45
49

11
26
21
26
25

19BBO
00000

13190
03671
19885
19880

U

1620 MONI TOR 1 DUP ROUT IHE 'OLOAO,
10130

rF

101~0

TF
TFM
TF

10150
10160
10110
10180
10190
10200
10210
10220
10230
10240
10250
10260
10210
10280
10290
10300 FLAG
10310
10320
10310
10340
10350
10360
10370
10380
10390
10400
10410
10420 CLEAR
10430
10440
10450
10460
10410
10~80 ClFP
10490
10500
10510
10520
10530
10540 WROK
10550
10560
10510
10580
10590
10600
10610
10620 FPOK
10630
10640
10650

SF
SM
BH
HZ
AM
MM
A
TF
TFM
TFM
TFM
8
BNF
8
ODRG
SM
OZ
AM
CM
8l
TFM
AM
8
DDRG
TF
TO
SF
BTM
TFM
B
CF
SM
BZ
AM
CM
8L
TFM
B
AM
TFM
CM
SNE
CF
BTM
TF
ST
TOM
DSC

10660
10670

TF
TFM

10680
10690 Din

B
TOM
B
DDRG
TC D

TO

_OREPl, 'OELET MOD. LEVEL

PAGE

~

HOlD1,MAP+8
LOAOSC,MAP+8
FlAG+ 11, TRACK2
LOAOSA, MAP+5
LOADU-5,MAP
MAPH
MAP+5,20,lO
'-12

106
11
13
21
26
16
16
16
49
44
49

13193
13180
06523
13102
13091
19884
19885
06380
06452
19885
19885
06523
06102
13215
13280
00565
00566
06532
06624

19888
19888
Jl778
19885
19880
00000
OOOKO
01100
01200
OOOKO
OOJ05
00099
06523
00-20
J7778
-6511
H451
17778
00000

12
46
II
14
41
16
11
49

13193
06864
06523
06523
06512
06523
13212
06488

000-1
01200
00J05
J9878
01300
Jl778
OOOKO
00000

26
25
32
11
16

13212
13261
00455
\l998

06308
06320
06332
06344
06356
06368
06380
06392

26
26
16
26
25
32
12

-+48

0640~

MAP+S,20,lO
JIIIAP+5,105,9

06416
06428

FlAG+ll,99

061o~0

CLfP+6, FLAG. 11
FWRIT+8.20,9
FWRIT+13, TRACK2

06452
06464
06416
06488
06500
06512

IORT,*+23
IOGT,FPDOA,7
*+20. TRACK2,.
CLEAR
'-3

SEARCH FOR FILE PROTECTION

06~24

HOLD).l.10
FPOK

FLAG.}l,105,9
FLAG+ l l , TRACK2+2100
FLAG
FLAG+ l l , TRACK2

FWRIT+5.20,lO
FLAG-24
'-3
FWRIT+5,lOADSA
FWR IT ,LOADSA-5
8UTTON

KYMESS, ... 12

IORT, •• 23

IOGT,FPDOA,7
CLEAR FilE PROTECTION

TRACK2"f
LOADSC. l,10
WROK

ClFP+6. l05, <)
ClFP+6, TRAC)(2+2100
CLFP

IORT,*+23
IOPT,FPOOA,7
FWRIT+5,20.10

CLFP.o,TRACK2
LOADSC,O.9
ClFP-24
BUrTON

06532
06532
06544
06556
06568
06580
06592
06604
06616
06624
066210
06636
06M8
06660
06672
06684
06696
06708
06720
06732

REMOVE DIM ENTRY

1,' ,.
MAP+19,ZER019
tORT . . .·23

~9

33
12
~b

\l

061~~

1~

06156
06168
06780
06192
06804
06816
06828

~1

06840

KYMESS,*"12
NEWDI M, OIMNUM
OIMMER,DIMMER-I
MAP",

~6

06852
06864
06876
06888
06899

16
49
\l
16
14
41
B
11
26
27
15

13102
13091
00000
-6672
-6695
00~65
00566
J3451
17778
00000
000-1
13180
06768
01200
06702
00J05
06102
J9S78
06696
01300
-6191
00565
00532
H451
13212
OOOKO
06102. J7118
13180 00-00
06672
01200
00455
00000
\l998
-6864
13190
02963
03612
01611
19880
00000
1

06900
06912

26
16

19899
00565

06924
06936
06948
06956
05600

49
15
49

00532
00415
00796

-2568
00003
00000

16
49
36
49

00565
00532
00000
00000
1

-4423
-4463
00500
00000

1620 MONITOR 1 DUP ROUTINE .DlOAO, *OREPL, 'DELE f MOD. LEVEL 4

10700

101\0
10720

IOPT,

D~DDA,

1

SYSCAl. )
MONeAl
.-)

DELFl

10730
10740
-OLOAO
10150
10160
DORG 4400
10110 lOADFl fFM
IORT,*.23
10780
B
IOPT,LOA02,7
10790
TRA
10800 LOADI
10810

DSC
101
1
DC
5,18369
J8369

10820

DC

INDEPENDENT ROUTINES

3,021

10840

-27
OC
5,05800
-5800
I, •
DSr.

10850 lOA02

DSC

10860

DSA

lOB )0

2,22

22

10870
10880
10890 OLD AD
10900
10910
10920
10930 MXNOSA
10940
10950
10960
10970
10980
10990
11000
11010
11020 OC2
11030
11040
\l050
11060
11070
11080
11090
11100
11110

DSC

04453
04456
04461
04462
04463

LOADI

04469

1, •

04469
04470

DORG 5800
BTM SCRAO,*.l2
TO
MXNOS 4-2. Me $+49
SF
MXNOSA-2,399,9
SM
MXNOSA,lOO,9
DC
3,399,DLOAD+35
L99
TFM HOL02,Q,lO
TO
HOL02,SYSCAl
I S CAll FROM CONTROL CARD
CM
HOlD2,4,lO
SNE
SPS
TFM ATN+ll,INPUf+32
I
CONVERT CONTROL CARD TO NUMERIC
BTM ATNR,*+12
SF
HOlDCO+iO
SF
HOLOCO+ 11
SF
HOlDCO+22
SF
HOlOCO>27

80

*+68.NTEST

CM
ONE
TFM
TF
01

HOlOCD+26.0.1
-+2,,"
HOlOCO+26,02~02.7

MAPMA,HOLOCD+26
·+44

13174
-69)5

rAGE

04400
04400
04412
04424
04436
04H8

05800
05800
05812
05824
05836
05835

5 X

-4448
I

11
25
32
12

09298
058)3
05833
05835
3

-5812
11827
00199
OOJOO

05848
05860

16
25

13104
13104

000-0
00415

05872
05884
05896

14
41
16

13104
01484
09053

000-4
01200
J3645

11

08606
13056
13063
13068
13073
06036
13012
06016
13072
13150
06012

-5920
00000
00000
00000
00000
13132
-0000
012QO
-2402
13072

05908
05920
05932
0594~

05956
05968
05980
05992
06004
06016
06028

32
32
32
32

43
14

H
16
26
49

23

24

PAGE

1620 MON ITOR 1 DUP ROUTINE _DLDAO, *OREPL, .DELET MOO. LEVEL 4
11120
11130
11140
IU50
11160
11110 OC22
11180
11190
11200
11210
11220
il230
U240
11250
11260
'11270
11280
11290
11300
11310
11320
11330
11340
11350
11360
11370
11380
11390
11400 DISKN
11410
11420 MAIN81
11430
11440

CM
BNE
TFM
TF
BD
SF
C
BE
TF
S
BNL
TF"
8
DDRG
C
BL
C
BH
TF
S
AM
TF
SF
SF
tF
8D
B
DDRG
BD
8TM
80
TOM
DSC

HOLDCO+26,O,1
.-32
MAPMA,99999,1
MAPEA,HDLOCD+31
DISKN,PHI ..
INPUT+39
INPUT+50,ZERDI2
ERRD-12
HOLD6,HOLOCD+15
HOLD6,HDLDCD+9
a+32
DJMERR+22.7117,8
ERRO
0-3
HOLDt,D+9, SCRI
StERR
HOLDCD+15,SCR2
SCERR
LOADSC, HOLOCD+15, ,
LOADSC, HOLDCD+9
LOADSC,l,lO
SCRACH, HOLDCD+9
LOADSC-2
StRACH-4
SCRACfi-5
MOODKltRTEST
MAINBI
0-3
MODN01,RTEST
NOOISK,ul2

11450
11460
11470
11480
11490
11500
11510
11520
11530
11540
11550
11560
11570
11580
11590
11600
11610
11620
11630 SCROK
11640
11650
11660

B
OORG
TO
SF
C
BE
SF
TF
TO
CF
SF
C
BH
TF
A
SM
C
8Nl
SF
SF
CF
TF

-+20

IF NOT ON DISK GOTO NODISK

0610-8

COMPUTE SECTOR COUNT

.+32,PTEST
MAPRM,. ,

NO FILE PROTECTION

1.' ,0-3
MAPRM ,GPMARK,.
INPUT+63
I NPUT+74,ZEROI2
NOSAC

MAPRM.,.

06036
'06048
06060
06012
06084
06096

FILE PROTECTION

IMMOVABLE PROGRAM

LOAOSA, HOLDCO+21
LOADS A-5, HOL OCO+ 16
LOAOSA-4
LOADSA-5
LOADSA, SCR2
SCROK
HOlDb,lOAOSA
HOlD6,LOADSC
HOl06, 1,10
HOLD6, SCRI
SCERR
I NPUT+l1
LOAOSA-4
LOAOSA-5
PNAME ,I NPUT+ZZ

06120
06132
061"
06156
06168
06180
06188
06188
D6200
06212
06224
06236
06248
06260
06272
0628"
06296
06308
06320
06332
063,.0
06340
06352
06364
-06316
06381
06388
06396
06396
06408
06,.20
06"32
06444
06456
06lt68
06480
06492
06504

14
47
16
26
43
32
2,.
46
26

22

46
16
49
24
,.7
2"
,46
26
22
11
26
32
32
33
43
49

13012
06016
13150
13155
06340
13652
13663
02512
B2l5
13215
06188
02507
02524

-0000
01200
R9999
13011
13130
00000
13161
01200
13061
13055
01300
OPI71
00000

13055
12854
13061
12854
13180
13180
13180
13186
13178
13182
13181
10682

13203
01300

06364

43
15

104B2
D9866
06396
13115

13131
-636"
13133
00000

49

06408

00000

25
32
24
46
32
26
25

13116
00000
13161
01200
00000
13067
13062
00000
00000
13209
01100
13102
13180
000-1
13203
01300
00000
00000
00000
13635

11

1

Ob612

12
12
33

06624

26

13115
13616
13681
108B6
IH15
IH02
13097
13098
13097,
13102
06588
13215
13215
13215
13215
1285,.
13624
13098
13097
13229

06636
06648
06660
06612
06684
06696
06704
06104
06716
06128
06140
06152
0616,.
06776
06188
06800
06812
06824
06836
06848
06860
06872
06884
06896
06904
0690"
06916
06928
06940
06952
0696,.
06916
06984
06984
06996
07008
07016
01016
07028
07036
01036
07048
01060
01012
07084
01096
01108
07120
07128
01128
01140
Oll52
Oll64
01116
Oll88
01200

14
46
26
27
,.5
49

13049
061"0
02963
03672
06704
07036

0-000
01200
13049
03671
19AAO
00000

14
16
39
16
26
26
21

00000
02501
02485
02963
11215
11215
13215
13212
13214
13504
00565
00566
06895
06883
06894
0690"
07036

00102
OP572
00100
0-131
13161
02963
13215
00000
OM800
13214
-6847
J3491
Jl776
13215
000-0
13776
00000

24
46
11
14
47
49

02963
02963
06984
06895
06895
0688,.
Ob152

000-1
03849
01100
OOOKO
J5876
01300
00000

44
16
49

07016
02507
05686

13114
OP611
00000

16
"9

02507
02524

0-079
00000

26
26
25
16
49
16
,.9

13190
Oi865
02,862
02857
00565
00566
08630
08824

02963
13IBO
13102
13097
-7107
H24"
-7128
00000

4"
16
49
16
49
26
27

05662
00565
00566
00565
00566
0296]
03672

13118
-716l
J3312
-7U17
J3115
13190
03611

Ob516
06528
06540
06552
06561t
06516
Ob58B
Ob600

33
32
24
,.6
26
21
12
24
46

1620 MONITOR 1 OUP ROUTINE oOLOAO, oOREPL, oDELET MOD. LEVEL 4
11610
11680
11690
11100
11710
11720
11730
11740
11750
11760
11770
11180
11190
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
12HO
12150
12160
12170
12180
12190
12200
12210
12220

CM
BE
TF
8T
8NR
8
OORG
RCTY
TFM
WHY
F INOON TFM
TF
TF
A
CF
AM
TF
TF"
B
TfM
TO
AM
TREC
BNR
8
DORG
AM
C
BH
AM
CM
Bl
B
DDRG
EXITFL BNF
TFM

HOlOCO+3.0.8
FINOON
NEWOI M, HOLOCDH
DIMMER, 01 MMER-I

-+20, MAP
CAllMV
0-3
0IMERR+22, 7572, 8
OIMERR

NEWOIM,l3l,8,
HOL06,ZER06
HOLD6,NEWDIM
HOLD6,HOlD6,
HOl06-3
HOL06-1,4800,8
02REAO+5, HOLD6-1

IORT,-+23
10GT ,OIREAO, 7
TREC+ 11, TRACK

-.23,HOLD6
TREC+IO.O,10

-.20, TRACK

CALLMV
·-3
NEWDIM,ltlO
NEWOIM,MAXOIM
EXI TFL
TREC+ll,20tlO
TREC+ 11, TRACK+2 100
TREC
FINDON+12
0-3
-+32, FORT
0IHERR+22, 7671, 8
8
ERR+24
OORG 0-3
TFM DIMERR+22,0079,8
8
ERRO
OORG ·-3
CAtLMV TF
DIMNUM,NEWDI"
TF
Movesc, LOAOSC
TF
MOVESA, LOADS A
TO
MOVfSA-5,LOADSA-5
TFM
IORT,U23
IOGT,MOVDOA,1
8
TFM EXITMR+6, -+20
8
MOVER
OORG --3
BNF ERR,sucess
IORT,U2]
TF"
8
IOGT,EQUDDA,7
TFM
10RT,"n
IOGT,CDH2,l
8
TF
NEWDIM,DIMNUM
DIMMER,DIMMER-I
8T

FIND FIRST UNUSED DIM ENTRY

13209
01100
13061
13055
000-1
13055
00000
00000
00000
13131
00000

43

25

PA.GE

H
11
26
16
49
16
25
11
45
49

11

26

26

(

1620 MONITOR I
12230
12240
12250
12260
12210
12280
12290
12300
12310
12320
12330
12340
12350
12360
12370
12380
12390
12400
12410
12420
12430
12440
12450
12460
12470
12480
12490
12500
125[0
12520
12530
12540
12550
12560
12570
12580
12590
12600
12610
12620
12630
12640
12650
12660
12670
12680
12690
12700
12110
12120
12130
12140
12150
12160
12770
12780

8TH
8TH
8NF
TO
TFM
8
WR2
OS
lOAORE TFM
SF
8TM
TFM
A
TO
SF
CF
TF
TF
A
SM
TF
TF
8NF
SF
8
OORG
SPS
TFM
CM
6NE
TOM
SF
TF
60
TFM
TOM
B
OORG
NORE1
TF
TF
TO
NEGATE TOM
TF
TF
TF
6NF
6
DORG
TF M
TFM
TFM
[~I T I
TFM
TF M
TFM

12190
12800
12810
12820
12830

6TM
SM
60
AM
AM
6
OORG
AM
B
OORG
TCO

SCA~1

(ORT, * .. 23
IOGr.0~PDIM.1

.2251
ATN+ll.INPUT+32
lOlDRE
ATNR,.+12

INPUT+49.1070,B
WR2+3,425
WR2,422
WR2
WR2+1
HOlOCD+9.WR2+5
HOlDeD" 15, WR2+5
HOLoeD+- 11), WR2+8

HOLOCO+15, I. 10

HOL oeo+ 26, WR2+ 13
MAP"'., WR2+ 1 J
DC2.HCS+22
FORT
NOREI
'-3

PHI,O,9,
HOlO2,b,lO

L2840

LOAD AFTER CaMP [LAT!ON

lOA ORE
FREDDA,O
FORT
MAPMA,MCS+12

NORE1,MCS+22
SCRACH,Q.1
SCRACH-5,Q
MOOOKI
'-3
INPUT +2 2, MCS+ 1,5
MAPEA,MCS+17

OUMP,MCStZJ
PTEST,O"

NEGATE F Ilf PROT ECT ION

INPUT+74,lER012
HOLDCD+40,lER06,r

CVL [NOER SPEC.

HOLOeD+ 3, MCS .. 19
-+20 ,LO AORE

OC22
·-3

lOADSC,Q,9
OCFSCR+8.3. q

OCFSCR+5.0.1
lOOP.4,10
SCANl+6,REAOIN

IORT,.+23

IOGT,DOASCR,l
READIN,Q

NOP
TF
TFM

BNR+ll,SCANl+6
NOD(SK-l,MAIN~l

1 OUP ROUT INE *OLOAO,

PAGE

.DElET MOD. LEVEl •

MONCAL.DUHP
MC5+23. DUMP

1620 MON I TOR

12850
12860 UPS(A
12810
12880
12890

OUP ROUT! NE 'OLOAD. eOREPL,

SeTMAP, ... 12
WRlAST,.+12

01212
01224
01236
012.8
01260
01212
02257
0128.
01296
01308
01320
01332
01344
01356
01368
07380
07392
OH04
07416
01428
07440
07452
07464
01416
07484
01484
07496
07508
07520
01532
075104
01556
07568

11
17
44

25
16
49
16

32

11
16
21
25
32
33
26
26
21
12
26
26
44
32
49

10138
11842
00196
11801
00565
00566
0
09053
01284
08606
13662
02260
02257
02257
02258
13055
13061
nOM
13061
13012
13150
05920
13114
07600

-7224
-7236
13426
13426
-1283
J3403

00-00
000-6
01200

01~80

IS

07592
07600
01600
07612
01624

49
26
26
25
I'
26
2b
26
44
49

13635
13155
11426
13133
[3681
\3086
13049
07704
06096

16
16
16
16

13180
13381

00-00
00-03

13318

-0000
000-4
J777A

01636
01648
07660
01672
07684
076'16
07104
07104
01116
07728
07740
07152
01164
07116
0178R
07800
07812

15
32
26
43
16

01860
01812
01884
07892
01892
07904
01912
04400

INI Tl
'-3
SCANI
'-3
LOADFL

OODOO
00000

17813
17795
11801
00000
13167
13161
11817

072H4
00000

16
49
41
26
16

17
12
43
\1
11
49

09614
13120
01892
13180
13378
01140

-7d36

11

01794
01188

00-75
00000

-1781
J3483
00000
07794
-6364

PAGt
07824
07836
01848

SCMH+6,75.9

OOGOO
00000
11790
11800
-0000

13120
07794
00565
00566
17178
09661
09865

16

-OREPl, .OELE! MOO. LEVEL 4

lCTEST,-+12
LOOF', 1,10
UPSCA,lOOP
lOADSC, 3 ,10
OCFSCR+-5,),lO

J3645
00000
-1320
OP070
00425
00422
00000
00000
02262
02262
02265
000-1
02270
02210
17800
00000
00000

13130
13104
07284
13467
13114
13150
01600
13186
13181
10682

16
14

47

49

000-1
13120
000-3
000-3

00000

l2QOO
12910
[NDEPENDENT
-OREPl
12920
12930
OORG 4400
12940 REPlFl TFM
tORT ,-+-21
12950
B
IOPT,RFPl2,7
12960
TRA

12970 REPlI
12980
12990
11000
DOlO
13020 RUL2
1)030

OSC
[.1
1
'5,18400
DC
J8400
DC
3,02A
-28
DC
5,05800
-5800
I ••
DSC
OSC
22
OSA

13100
13110
13120
13130
13140
13150
13160
13110
13180
13190 ISTO
11200
13210
[3220
13230

00500
00000

04462

04469

1 ••

04469
04470

OORG sa 00
TFM HOL02,0,10
BTM
SCRAD,-+l2
TO
HOL02.SYSCAL
CM
HOlO2.4,10
6NE
RHO
SF
INPUT+-l1
TF" ATN+l1,INPUT+24
8TM
ATNR,-+l2"
SF
HOlOCO+8
SF
HOLoCD+14
SF
HOlOCO+26
SF
HOI. DC 0+ 31
TF
PNAME.l N~ur+22
CM
HOLDCO+1.0,R.
BE
ERRO-12
TF
NEWO[M.HOLDCD+7
8T
OIMMER.O[MMER-l
8NR
w+:32,MAP

-4423

-4463

04461

04463

OSC

00565
00532
00000
00000
1

04456

REPLI

13050
11060 DREPL
D070
DORO

16
49
36
49

0445J

2,22

13040

11090

ROUTINES
04400
04400
04412
04424
044]6
0444R

CARD TO NUMER I C

ERROR [F NO TO DIM

05800
05800
05812
05824
05836
05848
05860
05812
05884
05896
05908
05920
05932
05944
05956
05968
05980
05992
06004

5 X
-4448
1

16
11
25
14
47
32
16
17
32

32
32
32
26

I"

46
26
21

45

13104
09298
13104
13104
08112
11624
0905]
08606
13054
13060

13012

13017
13229
13053
02512
02963
03612
06036

27

000-0
-5824
00475

000-4
01200
00000
J36H
-5896
00000
00000
00000
00000
13635
0-000
01200
13053
0}671
19880

2'

1620 MON ITOR 1 OUP ROUT INE .OLOAO, .OREPl,
13240
13250
13260
13270
13280
13290
IHOO
13310
IH20
13330
13340
13350
13360
IH70
11380
13390 PATZ
13400
1.3410
13420
13430

TF"
B
DORG
BNF

13440
13450
13460
13410
13480
13490
13500
13510
13520

8
OORG
FILE
TD

13~30

13540
13550
13560
13570
13580
13590
13600
13610
13620
13630

13640
13650
13660
13610
13680
13690 NT l
13100
13110

13720
13130
13140
13750
[3160
13170
13780

TF"
8
OORG
TF
TO
TF
80
CM
87
TFM
80
NO
TOM
DSC

ERRO, ••

ERROR IF TO DIM NOT IN USE

'-3

."32,MAP+19
ERROR IF TO DIM IS IMMOVABLE
01 MERR+22 ,00 1_1.8
ERRD
--3
LOADSA, MAP+S
LOADSl-5,MlP
ENTRY AND CORE ADDRESSES FROM CARO
MAPU, HOLDCDHS
PATCH2+52,NHST

HOlOtO+30,O.7
PAICH2

MAPMA.99999,7
*+32,PTEST

06016
06028
06036
06036

16
49

02507
02524

0-072
00000

44

06068

19899

060"8
06060
06068
06068
06080

16
,,9

02501
02524

0-073
(l0000

26
25

13102
13091

19885
19880

06092
06104
06116
06128
06136
06148

26
43
14
49
16
43

131S5
11634
13076
l1S82
13150
06180

13081
13132
-0000

06160
06111

15

13115
1

00000

06112
06180

49

06192

00000

06180

25

13115

13116

06192

43

06848

13130

06204
06216

14
47

13049
06380

0-000
01200

06228
06240
06252
06264
06276
06288
06300

32
24
46
24
46
24
41

13652
13663
02.512
13065
12854
13059
12854

00000
13167
01200
13209
01100
13203
01300

06312
06324
06336
06348
06360
06372
06380
06380
06392
06404
06412
06412

26
22
11
32
26
49

13180
13180
13180
13178
13186
06884

13065
13059
000-1
00000
13059
00000

26
44
49

02963
06412
06312

13049
11310
00000

27

03672

03671

OM24
06436
06448
06456

4;
16
49

06456
02507
02524

19880
0-074
00000

MAPR,.." •
I, t, ..

·+20

'-3
PROTECT JON
MAPRM,GPMARK
PROGRAM [S MOVABLE
NOI SK ,PH I
BD
[S THERE A FROM D[M
HOLDCD+3,Q,8
CM
8NE
Nfl
PROGRAM IS [N WORK lREA
SF
INPUT+39
INPUT+50, ZER012
C
BE
ERRD-12
HOLDCD+19,SCR2
C
BH
SCERR
HOLoeD+ 13, SCH.l
C
SCERR
8L
COMPUIE SEC lOR COUNT
TF
lOADSC. HOl OCD+ 19
LOAOSC, HOloeD+ 13
S
lOADSC, 1,10
AM
SF
LOADSC-2
TF
SCRACH. HOLDCO+l3
MA[NB2
8
DORG _-3
NEwDI M, HOLoeD ... 3
TF
BNF
_+20, LOADER
NIl-68
8
DORG . - )
D[MMER,DIMMER-I
8T
ERROR IF FROM DIM NOI IN USE
e+31,MAP
8NR
TFM OtMERR+22,Q074,6
ERRD
8
DORG ·-3

R9999
13133

*OREPL,

-DELE I

PAGE

MOD. LEVEL 4

ERROR [F FROM D[M IS IMMOVABL E
BNF
IFM
B

.+32,MAP+19
01 MERR+22, 0071, B

ERRD
DDRG .-J
TF
LOAOSC,MAP+a
PUT FROM 0[14 PROG. ON SCRATCH
TOM
FWRODA,O
TF" FWRIT+5,Q,1
TOM FWRIT,Q
TFM FWRIT+13.TRACK
TF
fREAD+5,MAP+5

MORERD

TO

fREAO,MAP

TFM

FREAD ... l), TRACK
MAP+R,040,q

eM

BNH
SM
IF"
8
oDRG
TF
S
TF
TF"
B
TFM
8
CM
BE
A
A
8
DORG
TOM
YFM

TOM
eM
BNE
87
NO[SK

so
BTM
TFM

MA[NBZ 80
rFM

·+44
M4.P+8,040,9

FREAD+8,040,9
-+32

--3
FREAO+8,MAP+8
MAP+8, MAP+R

F WR I T +8. FREAO+8
IORT,*+23

IOGT,FREDOA,l
IORT,.+23

IOPT,FWROOA.l
M4P+8.0,9
-+44
FRE 4.0+5, fREAO+A
F WR [T"5, FREAD+S

MORERD
'-3
FWRDOA.2

SCRACH,O,1
FREOOA,O
ENTRY AND CORE ADDRESSES FROM FROM DIM MAP
HOlOCO+35.Q,7
PATCHI+12
PATCHl
MDDNDI. RrEST
NOOISK,.+12
HOlDCO+3,O,8
MODOKI,RTEST

IORT t *+23

8

IOGT ,COM2. 7

CM
BE

HOlDCD+3,Q,Q
-+36

IF

(I[MNUM,HOLDCD+3

8TM

SPLOEl,*+12

06450
0646R

064RO
06488
0648B

44
16
49

06488
02501
02524

19899
0-017
00000

26

13l8o

19888

06500
06512
06524
06536
06548
06560
06512
06584
06596
06608
06620
06632
06640
06640
06652
06664
06676
06688
06700
06112
06124
06736
06748
06160
06112
06780
06780
06792
06804

15
16
15
16
26
25
16
14
12
16
49

13459
13272
13267
13280
13287
13282
13295
19888
06640
198B8
13290
06664

00000
-0000
00000
J3176
19885
19880
J3176
00-40
01100
00-40
00-40
00000

26
22
26
16
49
16
49
14
46
21
21
49

13290
19888
13275
00565
00566
00565
00532
19888
06180
13287
13212
06584

198RR
19888
13290
-6699
J3461
-6723
J3459
00-00
01200
13290
13290
00000

15
16
15

l3459
13186
13461

00002
-0000
OODOO

06816
06828
06840
06848
06860
06872
06884
06896
06908
06920
06932

14
41
49
43

130Bl
12810
12798
10,,82
09866
13049
10682
0056S
00566
13049
06968

-0000
01200
13131
-6872
0-000
13131
-6919
J3335
0-000
01200

13190
12090

13049
-6968

26

13190

17

12090
02862
02857

13053
-6992
13102
13091

41

17
16

43
16

49
14

'06

DElETE FROM DIM FROM S.P.LIST
•

29

FILE PROTECTION

1620 MONITOR 1 OUP ROUTINE -DLOAD,
13790
13800
13810
13820
13830
13840
13850
13860
13870
13880
13890
l3900
139\0
13920
13930
13940
13950
11960
13970
13980
13990
14000
14010
14020
14030
14040
14050
14060
14070
14080
14090
14[00
14110
14120
14130
14140
141S0
14160
[4110
14180
14190
14200
14210
14220
14230
14240
14250
14260
14210
14280
14290
14)00
14310
14320
14330
14340

PlGE

-OELEI MOO. LEVEL 4

01 MERR+2Z. 00 72, 8

DELETE TO DIM FROM SP LIST
TF
DIMNUM,HOLDCD+7
BTM SPLDEL,HI2
TF
MoVESA,LOADSA
MOVESA-5, LOADSA-S
TO

06944
06956
06968
06980
06992
01004

26
11

26

25

30

1620 MONITOR 1 aup ROUT INE -OLDAO,
TF
14350
14360
TFM
14370
B
14180
TFM
14390
B
14400
DoRG
14410
8NF
14420
8
14430
OORG
14440
14450 NOSPAe fF
14460
Bf
14410
TF
fF
14480
14490
fO
14500
fFM
14510
B
14520
OaRG
14530
TF
14540
fFM
14550
B
14560
8fM
14570
CM
14580
BE
14590
CM
14600
8E
fFM
14610
14620
TFM
146]0
B
14640
6
14650
OORG
14660 UPOIM TFM
14670
B
14680
TFM
14690
8
14100
14710 SEAI~FP TF
14720
Bf
14710
TF
14140
TO
14750
TF
TFM
14760
1H70
TF
14780
SF
14790
SM
BH
14800
14810
8Z
14820
AM
148)0
MM
14840
A
14850
TFM
TFM
14860
14870
TF M
14880
8
14890 TESTFP BNF
14QOO
B

PAGE

*OREPl, oDELET MOD. lEVEL 4

MOVEse.lOADse
fORT t *+23
I OGT. MOYDDA. 7

ExtTMR+6,··ZO
MOVER
.-3
•• 20,AOK
UPDIM
·-3

07016
07028
07040
01052
07064
07012
07012
01084
01092

26
16
49
16
49

02865
00565
00566
08630
08824

13180
-7051
J3244
-7072
00000

44
49

01092
01312

13118
00000

01092
01104
07116
07128
07140
07152
07164
07112
07112
07184
07196
07208
01220
072]2
07244
07256
07268
07280
07292
07301t
01312
07112
07124
07336
07348

26
27
26
26
25
16
49

02963
03672
02865
02862
02857
086]0
08824

H053
03671
19888
19885
19880
-1172
00000

26
16
49
17
14
46
14
46
16
16
49
49

1'190
00565
00566
10606
01103
05662
13049
05662
01103
00565
00566
01092

0710l
-7207
J3335
-7220
J3049
01200
0-000
01200
H04Q
-1303
H244
00000

16
49
16
49

00565
00566
00565
00566

-1335
J3312
-135<)
J1335

07360
01372
07384
07396
01408
07420
07432
07444
07456
07468
07480
01492
07504
07516
07528
01540

26
27
26
25
26
16
26
32
12
46
46
11
13
21
16
16
16
49
44
49

02963
03672
13272
13267
13193
01581
13139
13138
13139
07456
07528
DU9
13139
07587
13215
13280
00565
00566
07596
01688

H053
03671

INSERf TO AND FROM DIMS INTO S.P.lIST

NEWDIM,HOlOCD+7,7
DIMMER.DIMME,-1
MDVESC,HAP+8
MOVESA,HAP+II)
MOVESA-'j, MAP

eXITMR+b,*.20
MOYER
.-]

OIMNUM.NOSPAC+lI.11

IORT •• +23

IOGT,COM2,7
SPlINS,*+12

NOSPAC+ll,HOlDCO+)
ERR
HOLDCD+3,O.8
ERR

NOSPAC+ll,HOLDCO+3
IORT, •• 2)

locr,HOVDDA,1
NOSPAe
*-3

IORT, •• 23
rOGT,EQUDOA,7

IORT.*.21
[OGT,COM2,7

CLEAR ANY FILE PROTECIION IN TO AND FROM DIM

NEWO[M,HOLDCO+7,1
OIMMER.OIMMER-I
FWR I T +5. MAP. ~

fWRIT,MAP

HOLD3.MAP+8
TESTFP+ll.TRACK
HOLDS, MAP+5

HOl05-1
HOlD5,20,lO

·-12
.+48
HOLO'l,20rLO
HOlO5,105,Q

TESTFP+ll,9Q
FWRIT+8,020,9
FWRIT+l),TRACK

IDRT,*+23

07~52

[OGT ,FPDDA, 1
*+20, TRACK

07564
01516
07588

C1RFP

14940

14950
14960
14910
14980
14990
15000
15010 ClRFP
15020
15030

DORG

SM
8l
AM
eM
BL
AM

'-3
HOL03, 1,10
NOFLGS
TESTfP+l1,10~,q

TESTFP+Ll,TRACK+2100
TE S TF P
FWRIT+5,20,lO

TESTFP+l1,TRACK
TESTFP-24
8
OORG '-3
TF
HOLOl,MAP+8
FWRIT+S,MAP+5
TF
fF~

TO

FWR I r ."'AP

TFM
15050
8TM
15060 NOFLGS CM
15010
8E
15080
eM
15090
8E
TFM
15100
15110
8
15120
OORG

FPSf+l.33,10
FP •• +12
SEARfP+ll.HOLDCO+3
AllClR
HOlOCD+'},Q,R
AllCLR
SEARFP+ll, HOl Deo+ 3
SEARFP
'-3
1'1130
REMOYE NAMES
15140 AllCLR C
HOl DC 0+ 3, HOl oeD+ 1
15150
BE
·+108
15160
eM
HOloeO+3,o,8
15170
BE
·+48
15180
SF
DELETE
15190
fF
OI"NUM.HOloeDH
15200
BfM EQUIV, •• 12
15210
SF
DelETE
15220
TF
OIMNUM,HOLDCO.l
152]0
8TM eOUIV •• +12
15240
fF
NEWOIM.HOLoeD.7
15250
Bf
OI"MER.OIMMER-1
15260
BfM SETMAP, *+12
15270
HOlOCD+3,HOLOCO+7
e
15280
BE
YOIlA
15290
eM
HOLOCO+3,0,8
15300
BE
YOIlA
15310 •
DELETE FROM DIM REFERENeES
15320
TF
NEWO I M. HOLoeD+]
15]30
DIMMER. OIMMER-l
8T
15340
BNR •• 20,MAP
15350
B
MONeAl
15360
OORG ·-3
15]70
TOM MAP, ••
15380
OSC 1, I • •
150~0

15390
15400
15410
15420 YOILA
15430
15440
15450

TF
TfM
8
8fM
BNF
TO
TFM

HAP+19.ZEROI9
JORT, *+23
I OPT. O"OOA. 7
WRLAST,·.12
MONeAl. DUMP
MeS+23.DUMP
IORT,.+23

19895

19880
19888
J3776
19885
00000
OOOKO

olloO
01200

OOOKO
OOJ05

00099
00-20
J3776
-1S75
J3451
IH16
00000

PAGE

1620 MON I TOR 1 ouP ROUT INE -OLDAO, -OREPl, .0ElEI MOD. LEYEL 4
14910
14920
14930

31

07596
07596
07608
07620
07632
07644
07656
01668
07680
07688
07688
07700
07712
07724
07736
01748
07760
01772
07784
07196
01808
01816

12
46
II
14
47
11
1.
49

13193
07748
07587
07587
01516
13272
01587
01552

000-1
01200
00Ja5
J5816
01300

26

13193
13272

19R88
19H85

2.

OOOKO
J3776
00000

Il267

19A80

11643
11462
07371
01816
07816
07371
07360

OOOll
-7148
J3049
01200
0-000
01200
J3049
00000

32
26
17
32
26
17
26
21
11
24
46
14
4.

13049
01936
13049
07900
13134
13190
08606
13134
13190
08606
02963
03672
10138
13049
08112
13049
08112

13053
01£UO
0-000
01200
00000
13049
-7900
00000
13053
-7936
13053
03671
-7972
13053
01200
0-000
01200

08020
08032
08044
08056
08064
08064
08015

26
27
45
49

02963
0.3672
08064
00196

13049
03671
19880
00000

15

19880
1

00000

08016
08088
08100
08112
08124
08136
08148

26
16
49

19899
00565
00532
11842
00196
11801
00565

13174
-8111
-2568
-8124
13426
13476
-8111

07816
07828
01840
01852
07864
01876
01888
07900
07912
07924
01936
07948
01960
07972
01984
01996
08008

25
16
II
14
46
14
46
16
4'1

24
46
14
~6

11
44
25
16

130~9

32

1620 MONITOR 1 OUP ROUTINE .0lOAD, .OREPl, .DElET MOD. LEVEL"
15460
15470
IH80
15490
15500
15510
15520
15530
15540
15550
15560
15570
15580
15590
15600
15610
15620
15630
15640
15650
15660
15610
15680
15690
15100
15710
15720
15130
15140
15150
15160
15710
15180
15790
15800
15810
15820
15830
15840
15850
15860
15810
15860

8
RElD
TF"
eM
8NE
SF
TO
TF
TF
THI
TOM
80
8
OORG
NORE2
TF
TF
TFM
TF ..
TFM
TFM
INlTl
TFM
TFM
B
NOP
SCAN2
TF
TFM
8TM
SM
BO
AM
AM
B
OORG
UPSCAN AM
B
OORC
REL02
TF

HOL02.p , 10
lOADER
fORT
OUMP,MeS+23
PNAME,"CS+35
HOlOCO+ 7.MC5+39

SCRACH,Q,1
fREDDA,O
*+20,MCS+22
MOOOKI
*-]HOlOCDHO,MCS+l2
HOlOCD+35,MC5+17

LOAOSC,O.9

DCFSCR+8, 3, 9
DCFSCR+5,O,'7
lOOP.4.10
SCAN2+6,REAOIN
IORT t _+23
10GT,DDASCR,l
REAOIN,O
BNR+ 11, SCAN2+6
NOOISK-I,RElO2

LCTEST, •• 12
LOOP,l.tO
UPSCAN, lOOP
L OAose, 3,10
OCFSCR+5,3.10
INITZ
·-3

SCAN2+6, 15, 9

SCAN2
·-3
HOlOCO+13, THOU
HOlOCO+19,THQU
TF
A
HOlOCO+19,lOAOSC
SM
HOLOCO.19, L, La
TFM
INPUT+42,1070,B
ISTO
8
OORG ·-3
TCO
REPLFL

15890
15900
15910

PAGE
08160
08172
08184
08196
08208
08220
08232
08244
08256
08268
08280
08292
08300
08300
08312
08324
08336
08348
08360
08312
08384
08396
08408
081020
08432
084""
08456
08468
08480
08492
08504
08512
08512
08524
08532
08532
08544
08556
08568
08580
08592
08600
04400

IOGT,DMPDIM.7
PHI,O,lO

00566
13130
13104
11310
13114
13426
13229
13053
13186
13467
08300
10682

J3401
000-0
000-.
01200
00000
17801
17813
17817
-0000
00000
17800
00000

26
26
16
16
16
16
16
16
49
41
26
16

13076
13081
13180
13381
13378
13120
084110
00565
00566
11718
09661
09865
09614
13120
08512
13180
13378
OR360

17790
17795
00-00
00-03
-0000
000-4
J7778
-8407
J3483
00000
08414
-8532

49

08414
08'<08

00-15
00000

26
26
21
12
16
49

13059
13065
13065
13065
13655
05956

13096
13096
13180
000-1
OP010
00000

16
49
36
49

00565
00532
00000
00000
1

-7223
-1263
00500
00000

17
12
43

11
11
49

11

H

-8456
000-1
13120
000-3
000-3
00000

COMMON ROUTINES FOR _DlDAD AND .DREPL

L ->920
DORG 1200
L '5930 COtotMFl TFM
lORT,·"23
15940
IOPT ,COMM2,1
B

L5960 COMMI

OSC
1

1,1

01200
07200
07212
01224
07236
01248

15110

DC

5,18480

01253

15950

49
16
14
47
32
25
26
26
16
15
43
49

TRA

J84HO

1620 MONITOR 1 DUP ROUTINE -OLOAD,

-OREPL,

_OElEr

MOD.

lF~EL

4

PAGE

15980

DC

15990

DC
5,08600
-8600
1 ••
OSC

07261

OSC
22
OSA

07263

3,031

01256

-31
IbOQO

16010 CUMM2
16020

COMMI

01269

1. '

07269
07270

16030

osc

16040
16050 EQUFl
16060
16010

nORG 8100
TFM
IORT,·"23
B
IOPT,EOUl,1
TRA

16080 EOUI

OSC
22
DSA

16090

01262

2.22

2,22

08100
08100
08112
08124
08136
08148

EQlJ2

08154

I, '

08154
08155

16100

OSC

16110 EQU2

08164

16150

OSC
1,1
1
DC
5,18218
J8218
OC
3,020
-20
5,08600
DC
-8600
OSC
1. '

16160

DORG 8600

08600

16120
16130
16140

16
49
36
49

00565
00532
00000
00000
2

-8123
-8148
OO')UO
00000

5 x
-8156
1

08156
08161

08169
08170

16170 ..
16180 ..

EQUIVALENCE TABLE SUSROUT INE
16190
DC
5,0
-0000
16200 EQUI~
TFM
NEWOIM,0002,8
16210
BT
D1MMER,DIMMER-l
16220
BNF
SKNAME, DElETE
16230
CM
DIM~UP4,o,8,
16240
BE
ANAME
16250 LIMITS CM
0IMNUM,SUBLD.8
16260
Bl
82REAO
16210
eM
DIMNUM.SUBHI,8
16280
BH
82REAO
16290
TFM
CNINE+6,OIMNUM
16300
TFM CN I NElOALF
B
NOOISK TD
SM
TFM
TDM
TFM
TFM
TFM
TF"
TO"
INItRO TFM
TFM
TF"
TFM
READe
TFM
8
TF
BTM
CM
8NE
SF
BNF
eOMP
C
8NE
AM
AM
AM

19040

INPUT+100,51,1O,
_+32

SCRAO

MAXOIM,99I+75
SEQ,READIN+79 ..
SEQERR
SEQd.l0
SF_ll,OT5,9
CONP+1l.015,9

27
45
49
14
47

26
25
13
32
21
26

oDELET MOD. LEVEL 4

SeR2-5,MAP
SeRI-5
SeR2-5
seRI-1t
seR2-4
COUNT .0,10,

12
12
26
16

CHECK FOR PROPER SEQUENCE

eAGE
09542
09554
09566
09518
09590
09602
09614
09626
09638
09650
09662
09610
09610
0'1682
09694
09106
0'1718
09126
0912b
09138
09750
09162
09714
09186
09798
09810
09822
0'1834
09846
09854
09854
09866
09818
09890
09902
0'1914
09926
09938
09950
09962
09914
09986
09998
10010
10.022
10034
10046
10058
UiOTO
10082
10094
10106
10118
10130
10142
10154

25
32
32

49

13204
13198
13204
13199
13205
0929P

16
46
44
45
49

09638
09854
09610
09854

19880
00000
00000
00000
00000
00000
000-0
01400
0966J
00000
00000

11
14
46
11
49

IH45
13145
09726
09661
09650

000-1
000-5
01200
000-1
00000

14
lob

0966J
09B54
0'1854
09661
09854
0'1661
09854
13145
13145

R9999

33
33

41
11
45

11
43

11
14
41
49
49
25
12
16
15
16
16
16
16
15
16
16
16
16
16
49
26
11
14
41
44
24
47

11
11
11

131105

0'1186
10266
0961L
13481
13481
13186
13467
13180
1312B
13381
13318
13313
13419
13120
10111IDI05
00565
00566
09661
09614
13UO
10166
10142

13128
10318
13128
10105
10111

01400
01200
000-1
09b6J

000-1
0966J
000-1
00005
01200
00000
00000
13130
000-1
-0000
00000
00-00
-0001
00-03
-0000
00000
J7118
000-4
J7851
J1853
J0045
J3415
13419
JOOlO
000-5
01200
11853
11851
01200
000-1
00-15
00-15

40

PAGE

1620 MONITOR 1 DUP ROUTINE .OLDAO. oDREPL. oDELET MDD. LEVEL •
19680
19690
19100
19110
19120
19130
19140
19750
19160
19110
19180
19190
19800
19810
19820
19830
198"0
19850
19860
19870
19880
19890
19900
19910
19920
19930

SM
8D
TFM

LOOP.l.10
IHeRE.LODP
IORT , •• 23
10PT.DoASeR.l
B
AM
LOADSe.03.10
AM
DeFSeR+5.03.10
B
INITRO
DDRG .-3
INeRE AM
READ.015.9
B
REAOC
OORG .-3
COMPUTE SECTORS REMAINING
ALPHAS TFM SCREM .01t.9,
SCREM.LOOP
S
80
"20.SCREM
B
MAIN8
DORG .-3
NOP SCREM".10. CHANGE TO SU8TRAe T FOR NEW DUMP
TF
DCFSCR+8. SCRfM
TFM IORT. -.23
IOPT.00ASCR.7
B
A
LOAOSC, SCREM
MAINB 8
NODISK-l, ,6
OORG . - ]
SEQERR RCTY
TOM READIN+30S".
DSC 1,',-

199"0
19950
19960
19910
19980
19990
20000
20010 CCO
20010

10402
10414
10426
104]8
10450
10458

WArY ERRSEQ
REAOIN+30~,COMP+ll,ll
TF
WNTY REAOIN+300
H
B
READC
OORG . - ]
SYSTEM LOADER
OSC
02
OSA

10166
10118
10190
10202
10214
10226
10238
10246
10246
lD258
10266
10266
10218
10290
10302
10310
10310
10322
10334
10346
10358
10no
10378
10]18
10390
10401

00565
00532
13180
13318·
09914

49

13479
IOD22

00-15
00000

16
22
43
49

13123
13123
10310
10370

00-04
13120
nl23
00000

41
26
16
49
21
49

13123
IH81
00565
00532
13180
0986N

000-1
13123
J0351
H48]
1112]
00000

34
15

00000
1808]
I

00102
00000

39
26
38

12913
18082
18018
00000
10022

00100
1011P
00100
00000
00000

11
11
49

11

~8

49

20030

osc
osc

2.02

10~58

CC02

10464

1. '

20070

I"
I
5,OO19A
DC
-0198
3,2
DC
-02
DSA INPUT-l

20080

DSC

20050
20060

20090 MOONOI TOM
TFM
20100
20110
8
20120
CM

13120
102~6

NON-DISK
X

10464
20040 CCD2

JO'+66
1

10~65

10466
10411
10414
10419

1. '

10419
10480

SYSCALol,1l
IORT, •• 23
10PT,CCD,l
MAPEA,O.7

10482
10494
10506
10518

15
16
4"
14

00415
00565
00532
13155

10~]0

46
26
49

10562
00420
10514

01200
13155
00000

15

00416
1

00000

25
32
26
32
33
16
49

00428
00428
00434
00489
00429
00565
00566
2

13130
00000
13150
00000
00000

J3612
I

1620 MONITOR I OUP ROUTINE oDLOAO, oOREPL, oDELET MOD. LEVEL 4
20130
20140
20150
20160
20110
201RO

8E
TF
8
OORG
TOM
OSC

-+32
420,MAPEA

20190
20200
20210
20220
20230
20240
20250
20260 SOL

TO
SF
TF
SF
CF
TFM
8
OSC
2K
OSA

428,PHI
428
H4,MAPMA
"89
,.29

20210

.+20

0-3

"16,. ,

l.· ..

105~2

10554
10562
10562
10511

[ORT ••• 23

10574
10586
10598
10610
10622
10634

10GT.SOLo1
2,-22

10658

SOl2

10664
10664
10665

106~b

OSC

I, '

20290 SOL2

OSC
1
OSA

1,1

10666

19183

10611

20]10

10611
10614

20320

10680

5 X

20480
20490
205DO OLD

lD81~

10846
10858

20520

OSC

J0658

J9183
3

15
16
~"
26
25
32
33

20510

JOb51

5 X

10682
10694
10106
10118
10130
IOH2
ID154
10766
10118
10190
10802
10814
10822
10822
10833

IORT,.+23
IOGT,DLO,7
2,02

42

J0666
1

DC
].3
-03
DC
6,0'
-0000'
20330 MOOOKI TOM SYSCALol,1l
10340
TFM IDRT,"21
20350
8
(OPT. ceo, 7
20160
TF
OLOCF +5, SCRACH
20370
TO
DLOCF, SCRACH-5
20380
SF
DLOCF+l
20390
CF
OLOCF
20400
TOM 428,0,11
20410
CM
MAPMA ,0,7
10420
8E
*+32
20430
TF
DLD+ll,MAPMA
20440
8
*.20
20450
OORG .-3
20460
TDM DlO+l •• ,
20410
OSC 1, I , _
TFM
8
OSC
02
DSA

OOOOJ
J0511
J0458
-0000

PAGE

20280

20300

~1

000-1
13120
J0213
H483
000-3
000-3
00000

12
43
16
49

6
OD475
D.D565
00532
10816
10811
10812
10811
00428
13150
10822
10869
10834

OOOOJ
J0111
J045R
13186
13181
00000
00000
0000-0000
01200
13150
00000

15

10865
1

00000

16
49

00565
00566
2

J0851
J085S
2

15
14
46
26
~9

DLOCF.O

1086~

5

1,'

ID864
10869
10810

J0871
-0000
I

1620 MONITOR 1 DUP ROUTINE -DLOAD, _OREPL, -DELET MOD. LEVEL
20530 DLDCf
205~0

20550
20560
20570
20580 NOSAC
20590
20600 FINOX
20610
20620

~

10811

TFM
87
OSC
2K
OSA

10886
10898
10905

JORT. FINOX. 7

lOCAL
2.-22

OSC

OSA

I, '

20850
20860
20870
20880
20890
20900
20910

•• 35. e+35

IORT."+23
IOGT ,03REAO, 7
HOL06-I,REAOIN+71
.+22,lOADSA-5
HOlO6-1,O,9
e+24,LOAOSA-1t

TO

NOP
CF
8
OORG

5 X

10913
10918
"10921
10926

5 X

J3800
1

e+23.1,10
LOAOSA-5,O,10

.+25,12,10
LOAOSA-4,HOL06-I,11
LOAOSA,10000,7
LlSTER-1
SCRKO
--3

10934
109,,6
10958
10970
10982
10994
11006
11018
11030
110~2

11054
11066
11078
110'10
11102
11114
11126
11138
11150
11162
11174
11186
11194

5 X

14
47
)2
13

26
25
33
25
21
11
15
16
~9

16
25
11
43
16

02761
11194
02163
02764
13102
BOn
13097
11065
11065
11065
13097
00565
00566
1321~

41
33
49

11124
13214
11150
11163
13098
13102
02763
11254

26
27
21
26
25
21
22
49

02963
03672
19885
13102
13097
13102
13102
06588

25

1620 MONITOR 1 OUP ROUTINE -OLDAO, -OREPl, -OELET MOO. LEVEL 4

LOAOSA-5,MAP
LOAOSA,NINESC
LOAOSA,LOAOSC
SCROK
--3
2,22

21020

A
S
8
OORG
OSC
22
OSA

04REAO

11292

210]0

DSC

I, '

11292
11293

TF
8T
A
TF
TO

NEWOIM,lISTER
OIMMER,OIMMER-I
MAP+5.MAP+8
LOAOSA,MAP+5

21040 04READ DSC 1,1
1
21050
OC
5,0"'800
-4800
21060
3,2
OC
-02
21070
DSA REAOIN

11)07

210BO

11307
11308

DSC

21090 LOADER TFM
21100
SF
21110
8TM
21120
TFM
21130
A
21140
TO
21150
Sf
21160
CF
21170
TF
21180
TF
21190
A
.21200
514
21210
Tf
21no
TOM
2lno
8NF
21240
SF
21250
roM
TF
21260
21270
TF
21280
TO
21290
TF
21300
TFM
2l3t0
8
21320
OORG
21330 PATCH2 8E
2U40
TF
21350
87
213.60
TF"
21170
87

I, '
lTN+11,INPUT+24
LOADER

ATNR.,-+t2
INPUT+49,7070,8
WR2+3,42S

IIR2,422
IIR2
IIR2+1
HOLDCO+I30WR2+5
HOLDeD+19,WR2+5
HOLDCO+ 19,WR2+8
HQLOCO+19,I,10
HOLOCO+30,WR2+l3
RTEST.O
15TO-24.MCS+22
FORT
PTEST ,a
HOLDeD+ 7, MC5+39
P·NAIIE,MCS+35
OUMP,HC5+23
HOUICD+35,MCS+17
HOLOCO+3,O,8
ISTO
--3
>+32
IIAPMA, HOLOCOHO
PAT2+12
IIAPMA,02"02,l
PAT2+12

noo-p
01200
00000
OOKOO
00099
02112
00000
13097
11065
000-1
000-0·
JI089
J1286
J7849
13097
00-00
13098
000J2
1321M
JoaOO
00000
00000

PAGE
11194
11206
11218
11230
11242
11254
11266
11278
11286
11286

20920 HERE
209]0
20940
20950
20960
20970 SCRKO
20980
20.90
21000
21010 OlREAO

J0905

J0913
1

10931
10932

I, '

208 .. 0

00565
00716
2

NOSA

L1STER-3, 7,1011
HERE
lISTER-I
lISTER,200,9
LOADSA,99
LOADSA-5,PACK
LOAOSA-5
*.41,lOADSA-5

8

16
49

J3800

CM
8NE
SF
14M
Tf

TFM
TO
AM
80
TFM

5

10926
10931

OSC

TO

1088~

10885

10911

20690 SPO
20700
20710
20720
20730
20740
20750
20760
20770
20780
20790
20800
20810
20820
20830

CF
TO
A
AM
TOM
TfM

10879

10911
10912

20680

H

10876

FINDXX

20630 FlNDXX OSC 1,1
1
20640
5,18542
OC
J8542
),012
20650
OC
-12
20660
OSA NOSA
20670

PAGE

DSC 1,0
0
S,O
OC
-0000
3,999
OC
R99
OC
5,99999
R9999
OSC 1,'

02764
03671
19S88
19885
19AM
05692
11180
00000

2
5 X
jlZ94
1

11294
11299

5

11302

3

lUIO
113Z2
11334
11346
11358
11370
11382
11394
11406
11"18
11430
11".2
1.145'"
11466
11478
11490
11502
i1514
11526
11-538
11550
11562
11574
11582
11582
11594
11606
11614
11626

5 X

J7778
1
16
32

17
16
21
25

32
3}

26
26
21
12
26
15
44
32
15
26
26
25
26
16
"'9
46
26
49
16
"'9

09053
11310
08606
13662
02260
02257
02257
02258
13059
13065
13065
13065
13i>76
13tH
05932
1311"
13133

non

11229
13"'26
n081
11049
05956
1161'"
13150
06148
131.50
061"8

J)637
00000
Jl346
01>070
00425
00422
00000
00000
02262
02262
02265
000-1
02270
00000
1.7800
00000
00000
17817
17813
17801
17795
0-000
00000
01200
13076
-2402

44

PAGE

1620 MONI TOR 1 OUP ROUT INE -OLOAD, -OREPL. oDELET MOD. LEVEL ~

HOlOCO+30.0.7

21380
21390
21400
21410

CM
BNE
B7
TCO

21420
21410 COMfL
21440
21450

OORG 10100
TFM
IORT , -.23
I OPT, COMFLl.7
8
TRA

21460 COMFLl OSC
22
OSA
21470

116H
11646
11658
07200

.-52
PAl2
COMMFL

14
41
H

13076
115<14
06136

-0000
01200

16
49
36
49

00565
00532
00000
00000
2

J0123
J0148
00500
00000

10100
10100

10112
10124
10116
10148

2.22

10154

(;OMFL2

J0156
1

10154
21480

OSC

10155

1, '

10156

101
21490 COMFL2 OSC
1
5,18512
DC
21500
J8512
3,030
DC
21510
-30
5,10600
21520
DC
JOoOO
OSC
21530
1, '

10161
1016"
1016.
10170

OORG 10600
5.0
-0000
21,60 SPllNS TFM HOlO3,Q,9
lISTER-~.e.lOll
CM
21570
BNE
LOOK
215BO
HOl03.LI STER
A
215'10
REMOVE.REMOVE-l
BT
21600
LI STET, 01 MNUM
TF
21010
INSERT,INSERT-l
8T
21620
HOl03,MOVESC
C
21630 lOOK
SPL INS-I, ,6
BE
21640
GETl,GFTl-1
8T
21650
SPLlNS+12
B
21660
MAP+5,lOADSA.,.
21670 SETMAP TF
MAP .lOAOSA-5
TO
21680
MAP
CF
21690
MAP+l
SF
21700
MAP+8,lOADSC
TF
21710
_+24,STFLAG
BNF
21720
MAPHA
SF
21730
MAP+13. MAPMA
TF
21740
MAP+18,MAPEA
TF
21750
MAP+19,MAPRM
TO
21760
OIMNUM,NEWOIM
TF
21770
iFM
tORT .*+23
21180
IOPT,DMDOA,1
B
21190
I ORT, -+23
TFM
21AOO
IOGT,MCS1,1
B
21810
21540
21550

10600
10b04

DC

1620 MONITOR I

10b06
10618
10630
10642
10654
10666
10678
106'10
10702
107\4
10126
10130
10750
10762
10174
10786
10798
10810
10822
10834

SET UP DIM ENTRY

108~6

10858
10870
10B82
10894
10906

OUP ROUTINE -OLOAO, "OREPl. .DELET MOO. LEVEL

TF
MCS+39 t OIMNUM
TFM
IORT.-+23
B
IOPT.MCS1,7
INSERT OIMNUM IN SPLIST
21850 21860
8TM
SPlINS, -+12
21870
C
PNAME.ZEROI2"
2lAHO
BE
NONAM
21890
8TM EOUIV,*+12.,
21900 NONAM
fF
FREAD+5.SCRACH"
21910
TO
FREAD,SCRACH-5
lIno
SF
FREAD+!
21930
CF
FREAD
21940
TF
FWRtT+5.l0ADSA
21950
TO
FWRIT ,LOADSA-5
21960
TFM FREAD+13,FAREA
21970
TFM FWRIT+13,FAREA
21980
C
MAXSC.lOAOSC
21990
BL
AlfER
22000
TF
FREAO+8. lOAOSC
22010
TF
FWRIT+O,LOAOSC
n020 LSK
TFM
IORT, *+23
22030
IOGT.FREODA,7
B
22040
TFM
IORT,.+23

6

WAS PROGRAM NAME GI VEN
PUT NAME IN EQUI VALENCE TABLE
LOAD PROGRAM TO DISK

IOPT.fWRODA.7

BO
_"20.PTEST
22070 ENDWRT B
SEH1AP-l. ,6
nORa
DORG 0-3
22090
TFM FPSF+l,12.10
22100
TF
HOL03, lOAOSC
22110
TF
FWRIT+5.LOAOSA
22120
TO
FWRI r .LOAOSA-5
22130
8TM FP, e+ 12
22140
ENOWRT
8
22150
OORG 0-3
22160 ALTER
TF
HOLD3,LOAOSC
22170
S
HOlD3.MAXSC
22180
TF
fREAO .. e. MAXSC
22190
TF
FWRIT+A.MAXSC
22200
TFM
IORT ..... 23
22210
8
IOGT.FREOOA.7
22220
TFM
IOR.T. -+21
22230
8
IOPT.FWRODA.7
22240
A
FREAO+5,MAXSC
22250
A
fWRIT+S.MAXSC
22260
C
MAXSC .HOL03
22270
8L
ALTER+l2
22280
TF
FREAO+8.HOlD3
22290
TF
FWRIT+8.HOL03
22300
LSK
B
22310 FP
SF
BUTTON, ••
22320
8TM KYMESS,·"12
22330
TF
HOlD5.FWRIT+5
22340
SF
HOLD5-1
22350
TFM FPSF+6. TRACK2
22360
SOl
HOL05.20,1O
22310
8H
--l2

16
14
47
21
27
26
27
24
46
27
4.
26
25
33
32
26
44
]2
26
26
25
26
16
~9

16
49

13193 00-00
OOO-Q
02761
100'10 01200
131'13 02704
03083
03084
l3'1 '10
027'14
03414
03413
131'13 02865
1060N 01200
02'195
02'1'16
00000
10618
13102
19885
13097
19880
19880 00000
00000
19881
13100
1988B
10822 .13537
11150 00000
19693
13150
13155
19898
19899
13115
13190 02963
J0893
00565
-2568
00532
J0911
00565
J3514
00566

~

21820
21830
21840

22050
n060

45

PAGE
10918
10930
10'142

26
16
4'

10954
10966
10978
10990
11002
11014
11026
11038
11050
11062
11074
11086
11090
11110
11122
11134
11146
11158
11170
11182
11194
11206
11214
11214
11226
11238
11250
11262
11274

17
24
46
17
26
25
32
H
26
25
16
16
24
47
26
26
16
49
16
49
~3

49
16
26
26
25

11
49

17811
00565
00532
10606
13229
11002
08606
13281
13282
132B3
13282
13212
13267
13295
13280
13107
11282
13290
13275
00565
00566
00565
00532
11214
1013P

13190
J0953
J3514

J0966
13167
01200
JlO02
13186
13181
00000
00000
13102
13091
J3716
J3716
13180
01300
13180
13180
J1l69
J3467
J1193
J341j9

13133
00000

11643
13193
13272
13267
11462
11206

00012
13180
13102
13097
Jl274
00000

13193
13193
13290
13275
00565
00566
00565
00532
13287
13212
13107
11294
13290
13215

13180
13107
13107
13107
Jl353
J3467
Jl317
J3459
13107
13107
13193
01300
13193
13193
00000
00000
Jl486
13272
00000
J7178
DOOKO
01100

11281

FILE PROTECT AND lOAD PROGRAM

11282
11294
11306
11318
11330

26

113~2

49

11354
11366
11378
11390
11402
11414
1H26
11438
11450
11462

22
26
26
16
16
~9

21

21
24

47
26
26
49
32

1147~

17

11486
11498
11510
11522
11534

26
32
16
12
46

111~6

00455
11998
13139

13138
11648
13139
11522

46

1620 MONITOR I

DUP ROUTINE oOLDAD,

PAGE

-nREPl, oDElET MOO. LEVEL 4

_+48
8Z
AM
HOLD5,20,lO
MM
HOLD5,J05,9
FP'SF+o,99
A
TFM FWRIT+8,20,9
TFM FWRIT+13, TRACK2
TFM
IORT,-+23
IOGT,FPDDA,7
8
SF
TRAeK2
HOlDJ,l,lO
SM
HOLO),Q,C)
eM
8E
OONESF
FPSF+b,105,9
AM
FPS F+6, TRACK2+210D
eM
FPSF
aNE
IORT,.+23
TFM
IOPT,FPOOA,7
8
FWRIT+5,2.Q,10
AM
TFM FPSF+6,TRACK2
FPSF-36
a
225RO
OORG 0-3
[ORT, *+23
22590 OONESF TFM
IOPT,FPDDA,7
22600
8
22610
eF
BUTTON
aTM KVMESS,*.12
22620
FP-l,,6
22630
B
WRlfE FINAL MESSAGE
FINALH+JO,PNAME ••
22640 wRLASr TF
NEWDIM,DIMNUM
22650
TF
OIMMER,DIMMER-I
22660
8T
22670
ReTY
?l680
WAfY FINALM
19QQC),MAP+19
22690
TO
19998,DIMNUM
22700
TF
22710
WNTV 19995
SPTY
22720
WNTY MAP
22730
DNTY 19999
22740
22750
TOM SYSCAl, ]
WRLAST-l.,6
22760
a
ADDRESS KEy MESSAGE SU8ROUf!NE
22170
.+32,BUTTON
22780 ;540
25550
25560
25570

FIND AVA1LA8LE AREA
DDRG 13800
eF
MAPRM,., ,
SF
HOLDCD+35
HoLDCD<40.ZER06
e
8NE •• 24
TF
HOLDCD<"O.MXNOSA
SF
HOLOCO+38
TF
H111M.HOLoeD+40
TF
LoLIM.HOLOeO+37
,",XNOSA.HILIM
e
BL
ERRCYL
MXNoSA.LOlIM
C
ERRcn
8L
HllIM-2
eF
eF
LOLlM-2
SF
HOLDeD+36
MM
HOL Deo< 37 • 200.9
SF
95
TF
L1STES.99
eF
HOLDCD+35
TO
-.4-1., HOLoeD+ 3'5"
-+35,.+35
A
_+23,1,10
AM
TOM L1STES-5.0.10
TFM IORT, •• 23
IOGT,03REAU,7,
B
TFM HDL06-I.REAOIN+l1
255RO
•• 22.LlSTES-5
25590
TO
HOlO6-1,O,q
AM
25600
•• 2lt,LlSTES-4
BO
25610
TFM _+25.12,10
25620
TO
LISTES-4.HOlD6-1.11
25630
25640
NoP L1STES.10000.7
TF
25650
NINESC.LOADSC ..
TFM CNTCVL,O,10
25660
CF
NINESC-2
25670
25680
CM
HINEse.920Q,A
BNH SMALL
25690
25700
SM
NINESC.200.8
AM
25710
CNTcn.I.IO
25720
8
·-48
25730
DORG '-3
25740 ERRen TF" 01 MERR+22, 7214 t 8
ERRD
25750
8
25760
DORG .-3

NOT IMMOVABLE

SET UP DRIVE CODE

DETERMINE ADDRESS

seH~ME

DETERMINE NUM8ER OF CYLINDERS

13800
13800
13812
13824
13836
13848
13860
13812
13884
13896
13908
13920
13932
139"4
13956
13968
139BO
13992
14004
H016
14028
14040
14052
1"064
14076
1"o88
14100
1"112
1412"
14136
14148
14160
1"112
1"184
14196
14208
14220
14232
14244
14256
14268
14276
1"216
14288
14296

2100

16
"9
16
25
11
43
16
25
41
26
16
33
14
47
12
11
49

13115
13081
13086
13860
13086
13084
13823
13955
05B35
14276
05835
14276
13821
13953
13082
13083
00095
02790
n081
14075
14075
1"015
02785
00565
00566
1321"
1"134
13214
14160
14173
02786
02790
05692
11979
05690
05692
14296
05692
13979
110220

00000
00099
00000
13081
14075
000-1
000-0
J4099
Jl286
J18"9
02185
00-00
02786
00OJ2
1321M
JOOOO .
·13180
000-0
00000
OR200
01100
0-200
000-1
00000

16
"9

02507
02524

OP214
00000

33
32
24
,,7
26
32
26
26
24
47
24
H
H

H
32
13
32
26
H
25
21
11
1~

1620 MONIIOR 1 oUP ROUTINE oDlOAo. 'DREPL. 'DElEr MOD. lEVEL"
25710 SMALL
25780
25790
25800
25810
25820
25830
25840
25850
25860
25870
25880
25890 RCE
25900
25910
25920
25910
259"0
25950
25960
25970
25980
25990
26000
26010
26020
26030
26040
26050
26060
26070
26080
26090
26100
26110 CHIL
26120
26130
26140
26150
26160
26170
26180
26190
26200
26210
26220 lGE
26230
26240
26250
26260
26270
26280
26290
26300
26310
26320

CM
BE
TF
TFM
TFM
TOM
TOM
TDM
TFM
TFM
B
DDRG
C
8NL
eM
8E
TFM
eM
BE
TFM
8T
BNR
AM
e
8H
TOM
TOM
TFM
TOM
BT
TFM
TO
B
DORG
eM
8NE
TO
TOM
C
TOM
BNE
C
8NE
8
DORG
AM
eM
8H
Bl
TF
8
OORG
SF
TOM
8T
TOM

CNTCVL,O,lO
-+36
SCOLD.NINEse
NINESC.9200.8
LGE+Z3,Q,lO
RLGONE+ 11,1
WHYNOT+13.1
ell PPP+25.1
eLI PPP+Io2. SPLINI
RlGONE+1O,·+ZO

FIND
'-3
lISIE8.NINESC
lGE
lISTER-3.7.l011
a+60
lGE+23, 0, 10
CNTeVl.o.IO
-+2-4
NINEse. 9200. 8
GETR.GETR-1
CHIL.lISTER-3
lOLlM.100.9
lOLlM-2.H1L1M-2
ERR
WHYNOT+13.9
CLIPPP+25.9
ell PPP+Io2. REOSPl
RlGONE+I309
IIHYNOT. WHYNOT-I
HOLoeD+H.0.9
HOLDCD+35. LDLlM-2
NOSA

'-1

lISTER-30 7.1011
RGE
•• 47,HIlIM-2
HILIM-2.0
lISTER.HILlM
HILlM-2.0
RGE
lOLlM-Z.HILlM-2
RGE
ERR
.-)

- .. 2],,, 10
CNlen.o.IO
RGE+96

·"32
NINESC.StOLO
RGE+96
.-)
NINESC-2
WHYNOT+n.9
GETl.GETl-l
ClIPPP<25.9

5~

5 X

00000
00000
13161
01200
05835
00000
13086
13083
13823
01300
13955
01300
00000
00000
00000

ooxoo

PAGE
14296
14108
1"320
14332
1It344
14356
14368
14380
14392
1"404
14416
14424
14424
1"436
14448
14460
14"'2
14484
14496
14508
14520
14532
1105"4
14556
14568
14580
14592
1"604
1"616
14628
146"0
14652
14664
14672
l'o612
11068"
14696
14708
14720
14732
14744
14756
14768
14780
147B8
14188
14800
14812
14824
14836
14848
14856
14856
14868
14880
14892

II,
"6
26
16
16
15
15
IS
16
16
4"

13967
05692
14811
04267
03"01
02909
02926
0428"
03838

000-0
01200
05692
OR200
000-0
00001
00001
00001
-4470
J4"24
00000

Oll64
14788
02761
1"520
14811
13979
14520
05692
02872
14672
13955
11953
05662
03401
02909
02926
04267
OH88
13083
13081
13800

05692
01300
OOO-P
01200
000-0
000-0
01200
08200
02871
02761
OOJOO
13821
01100
00009
00U09
-4702
00009
03387
00-00
13953
00000

1"
47
25
15
24
15
"7
24
,,7
49

02761
14102"
14743
B821
02164
13821
14424
13953
14424
05662

ooo-p

11
14
"6
26
49

14811
13979
14520
110856
05692
14520

000-1
000-0
01100
01300
13967
00000

32
I,
27
15

05690
03"01
02996
02909

00000
00009
02995
00009

24
46
14
46
16
14
46
16
27
"5
11
24
"6
IS
15
16
I~

27
16
25

"9

"1

13979

1"310"

01200
13821
00000
13823
00000
01200
13821
01200
00000

56

PAGE

1620 MONITOR 1 DUP ROUTINE *DlOAD. -DREPl. -DElEr MOO. lEVEL ~
26310
26340
26350
26360 HILIM
26370 LOLIM

TFM
TOM
B7
DC
POOO

DC

POOO
DC
-000
26390 CNTCYL OC
-0
26391 PUCH3 TFM
26392
8
87
26391
26400 F INDfL TFM
26410
8
TRA
2M20

26380 SCOLD

1"916

16
15

02926
04267

1~92B

~9

1093~

1~904

CLI PPP+42. REDSPL
RlGONE+13.9
SPD
~. 7000'. NOSA+23

13823

4

"

.... 7000. NOSA+ 155

13955

~.0.NOSA+l67

13967

2.0.NOSA+179

13979
1~936
1~9~8

IORT. *+23
IOGT.THRDDA.7
LOADRE-36

26430 FINDlF DSC
22
26440
DSA

2.22

1"960
14968
14980
H992
15004
15016

FINDDA

15022

26450

1 ••

15022
15023

DSC

IORT ,*+23
IOPT.F1NDlF.7

~

16
49
,,9
16
49
36
49

15032

14968

26520 lOCAL

OS

.716

00716

26530

OEND

BAVCO~

8lA.NKT

BUrrON
CALLMV
CHOICE
CLEV[R
CLI PPP
ClOODA
CLOSUP
CLWDDA
C... AMES
CNTCYL
COMCYL
COMELI
COMF12
COMMFL
COMMON
COMPfR
COMPRS
CONCUD
CONST 1
CDNST2
CONST]
COIIS15
CONST6
CONST7
CONST8
CORSil
CURREN
CVLOEL
DIREAD
02READ
OlKEAO
04REAO
DCFSCR
ODASCR
DELETE
OElNT5
O(MENT
DIMERR
01 MHlD
DIMMER
OIMNUM
DMPDIM
DMREAD

0045~

07036
09196
04321
02884
13421
13776
134]5
09818
13919
04986
10148
10156
07200
0285,l
05274
12406
0995l
02801
02801
0575,
02825
028]1
02831
02870
02483
08809
12462
13491
13499
11286
11294
13373
13483
13134
09604
19880
02485
08822
03672
13190
13403
02576

J5024
1

3

0

00000

1620 MONITOR I OUP ROUTINE eDlOAO. *OREPl, oDELET MOD. lEVEL 4

BEAUTY

5 X

15038

FINDfL

AOD~AC

J4991
J5016
00500
00000

15037

TCD

AORSPL
ALLCLR
ALLRIT
AL PHAS
H2READ
BAS ICM
HAVADD
"AVAIL

J4959
-2729

15029

26510

04286
10650
04520
07816
10128
10266
09054
00796
10464
02754
10432
10592
10348

00565
00566
07248
00565
00532
00000
00000
2

15024

1.1
26460 FINDDA DSC
1
5018542
26470
DC
J8542
DC
3.012
26480
-12
5.13800
26490
DC
H800
26500
DSC I . '

ADDBLK

57

-4702
00009

DONE SF
ORESTR
DSEVEN
DtWCRO
EIGHTS
ENOWRT
EQUDCF
EOUnOA
[QUDIM
ERRCyt
[RRSEQ
EX I TFL
fX ITMR
FAKSEV
F ILTST
F INALM
F INDOA
F INDFL
FINOIM
FINOlF
FINDON
FINDTR
F INDXX
FREOOA
FWRODA
GE TaAK
GETlTR
GETRTR

GOLDEN
GP~ARK

HOlOCO
HOLDIM
INITRO
INIrSC
INSDEL
INSERT
INSETR
KEYMES
KSEVEN
KYMESS
LCTEST
LI~ITS

LISTER
LI STES
L1STET
LOADER
LOADFL
lOAORE
LOADS A
lOADSC
lOOPSY
lOPEZ A
lOPflB
lPSRDA
MAIN81
MAIN82

11782
03639
09056
13613
09984
11206
13320
13312
19880
14276
12913
06984
08624
02852
10204
12815
15024
14968
13117
15016
06740
03906
10913
13461
13459
05170
0]016
02928
02760
13116
13046
10498
09974
09090
12278
0341"
03434
12967
10708
IIq98
09614
08666
02764
02-790
02794
11310
04400
07284
13102
13180
09024
08147
08770
04514
0636'0
06884

MARVEL
MAXDIM
MIONIT
MOODK I
MODliOI
MONCAl
MO"'ITR
MORERO
MOV8US
MOVCAR
MOVDCF
MOVODA
MOVESA
MOVESC
MOVFLl
MOVFL2
MOVNOW
MSTAKE
MX ... OSA
N48000
liEGATE
NEWDIM
NINE12
NINENT
NINESC
NDOISK
NDFlGS
NDMMON
NOMUl T
NDNAME
NO SEC A
NOSPAC
DL IMIT
PATCHI
PATCH2
PATCH3
PKOOOA
PKIODA
PK200A
PK100A
PlUSSR
QCARRY
RACKET
ROMDOA
ROMOVE
READIN
REDSPO
REOSPI
REOSP2
REOSP]
REDSPl
REMBlK
REMDEL
REMOTR
REMOVE
REMSll

10884
03849
09372
10682
10482
00196
00196
06584
08724
08701
1 ]252
13244
02862
02865
08546
08556
10496
09024
05835
02770
07636
02963
13243
09132
05692
09866
01148
02855
10030
09672
02856
07092
lOBO
12798
11582
14936
02637
02660
02683
02706
04194
02813
02841
02591
02599
17778
04810
0'0854
04898
04942
04702
10628
12194
Oll04
03084
10136

REPlfl
RlGDNE
RSEVEN
ACTlA
ACTAC
AC TAD

ACTAG
ACTAH
ACTAJ
ACTAK
At TER
ANAME
AOK
ATNR
ATN
8NR
CALC2
CAtC3
CALC4
CAlC5
CAlC6
CUC7
CARD
CCD2
CCD
CHIL
CLEAR
CLFP
CLOSE
CLOSR
CLOSW
CLRfP
CMPAR
CNINE
CNSH
CNT
COM22
COM2
COMFL
COMMI
COMM2
COMP
COUNT
OCI
DC22
DC2
OOAKF
DEll
DEL 2
DELEr
DELFl
DELTA
DISKf
DISKN
DLDCF
OLD

58

PAGE
04400
04254
10800
09S52
099h8
09896
09260
09128
09104
09220
11282
10466
11118
OA60b
OQ042
09650
02159
02779
0218]
08196
08790
02848
11090
10466
1045&
14672
06624
ObM6
09294
11358
11291
01b88
09194
08810
01518
13142
13343
13335
10100
07248
07263
10106
13145
09554
06096
05920
11443
056"8
05656
05800
05600
09375
IH88
06340
10871
10858

OLOAD
OMOOA
OMPDM
DONE
DREPL
DUMP
ENHlK
EQUI
FOU2
EQUFL
EOUIV
ERRD

05 ROO
02S6fl

13411
09542
05800
13426
[0361
08148
OS15b
OR lO(1
OR606
Ol~7.(f

ERR

050662

EXIT2
EXIB
EXIT
ElEST
fAREA
fINO
FINDX
flAG

09110
On936
105,"
10100
11776

FORT
FOUND
FPODA
FPOK
FP
FPSf
FREAD
FWRIT
GETL
GETR
GORT
HERE
HEX
HILIM
HOLD2
HOLDl
HOL04
HOLDS
HOLD6
INCRO
INCR~

INI Tl
INI12
INPUT
lOCAL
IDGT
10PT
10RT
ISTO
KEVE
KEYI
KEYS
KING
LGE
LIMIT

03R3H

10900;
06,12
13114
0344'>

1'451
C6864
11462
11642
1'3282
13267
OH96
Olan
10224
11194
02195
138B
1]104
13193
11197
13139

1"'421'1
09214
10246
01140
08160
136li
00716

00566
00532
00565
05956
05009
08813
08785
02458
14l8H
08812

1620 MONITOR I DUP ROUTINE .OLOAO, _OREPL, .OElET MOD. lEVEL
lOADl
lOAD2
lOllM
lOOK
lOOP
lSK
MAINS
MAMY
MAPEA
MAPMA
MAPRM
MAP
MUSC
MCAS
MCSI
MCS2
MCS
MEAT
MOVER
MOVFl
MPT
MUL T2
MUlT
NOISK
NERR
NEVER
N0200
NOAlF
NOF
NOISV
NOMA
NOM8
NOMC

NO~O

04448
04463
13955
10690
13120
11146
10370
094116
13155
13150
13115
19880
13101
13113
13514
13522
17118
011292
08824
08500
08636
0111174
091106
06848
03580
04291
12566
011854
08986
10380
08670
08618
11016

NOME
NON AM
NOREl
NORE2
NOSAC
NOSA
NOTOK
NTEST

Nfl
OKOEl
PACK
PAT2
PHI
PNAME
PRE1A
PRE7
PTEST
QHOlO
QUEEN
R2
RAKES
ROSPl
READe
READ
REeD
RElD2
RElD
REPlI
REPL2
RGE
R~ARK

R

RTEST
SCANI
SCAN2
SCANN
SCERR
SCOLD
SCRI
SCR2
SCRAO
SCREM
SCRKO
SCROK
SECT
SEQ
SF
SMAll
SOl2
SOL
SPO
SPlFl
SPlRI
SPlR2
SPS
STEAL
STOMP
SUSHI
SlJ8l0
TAC
TFlG
THOU
TIC
TIPSY
TRACK

11064
11072
11002
07600
08300
10886
13800
0963"
13132
06380
06148
02172
06136
13130
132211
011000
08638
13133
0281'1
OH66
081150
105H
045114
10022
13479
09114
08532
08112
04448
04463
14424
121111
0875"

13131
07788
08408
09162
12854
13961
13203
13209
092'18
13123
11254
06588
10234
11128
100114
14296
10666
10658
10934
05156
05804
058111
07484
028"5
03188
000311
00010
09812
08878
1~09b

097"4
03470
13176

PAGE

~

TREC
TRREC
TRWA
TRW8
UPDIM
UPSCA
VOilA
WASH
WR2
WROK
WRT2
WRT
YES'I
lER06
SCRAeH
SURFP
SEQERR
SETFlG
SETMAP
SEVENT
SFSUCE
SKNAME
SPCREO
SPECAS
SPlAOD
SPleOR
SPleYl
SPLOEl
SPlEXT
SPUN I
SPlINS
SPlIST
SPlPKO

0~151

03181
120110
05066
04470
1060b
04HO
0264~

END OF ONE ASSEM8l V.

1620 MONITOR I
00010
00020
00030
00040
00050 OlA8l
00060
00010
OOORO
00090
00100
00110
00120
00130
00140
00150
00160
00110
00180
00190
OOZOO
00210
00220
00230
00240 SETFLG
00250
00260
00210
00280
00290
00300
00310

OUP ROUTINE .OlA8l

UISK UT 11ITY PROGRAM FOR 1620

SF
CM
8E
CM
8H
CM
8l
SF
C
BE
TO
Tn

TO

TO
TO
SF
CM
BE
TFM
SF
AM
CM
8L
AM
CM
8l
TO
00~20
TO
00}30
A
00140
AM
00150
TDM
00360
TFM
00170
TOM
003RO
TOM
TFM
00~90
00400
8
00400
TF
00410
TD
00420
AM
00430
TO
00440
TD
00450
TO
TO
00460
00470
TO
004RO
SM
TFM
00490
00500
8
TFM
00510
00520
8NF
00510 TEST48 BNR
00540
8
DORG
00550

P4GE

MOO. lEVEL 4

-OLA8L

02502

DORG 2502

INPUT+21, ,10

02~02

INPUT+22,O,lO

02514
02526
02538
02550
02562
02514
02586
025118
02610
02622
02634
02H6
02658
02670
02682
02694
02106
021\8
02130
02142
02154
02766
02118
021110
02802
02814
02826
02838
02850
02862
028110
02886
028118
02910
02922
02934
029,,6
021156
02910
021182
029114
03006
03018
03030
030"2
03054
03066
03078
030110
OHOZ
03110

ERRI

INPUT+22,73.10
ERRIO
INPUT+22,10,10
ERRIO
INPUT+II
I NPUT+20,lEROIO
ERRI
PACK,INPUT+20
PACK-l,INPUT+18
PACK-2.INPUT+16
PACK-3,INPUT+14
PACK-4,INPUT+12
PACK-4
PACK,O
ERRIO

SETFlG+ll,INPUT+l1
-+11, INPUT+ll,6
SErFlG+ 11.1.10
SETFLG+U,70,610
ERRIO
SETFlG+II,I,IO
SETFlG+II.INPUT+21
SETFLG
MOO,INPUT+22

.+47,INPUT+22
-+35. _+}5

-+23,1,10
INPUT+22,O,8

AOOR.S ,RDAREA+ 71"
DOAl2+I,O,lI
00Al2,O

IORT,·.Z3
IOGT.ODALI,1
DOAl8+8,ROAREA+88

•• 22,INPUTt·22

AOORS,O.9
ODAl2+I,AODRS,l1
DOAl"+!, AOORS,ll
DDAl6+ I, ADORS,!I
ODAL8+I, AOORS,ll
00Al2 ,I NPUT+22
00Al2+5,10000,l

IORT,.+23
IOGT,OOAll.7
TEST48.1I,ROAREA+61
RSPT,ROAREA+61
.+20,RDAREA+61
RSPT
.-3

DETERMINE ADDRESS

32
14
46
14
46
14
47
32
24
46
25
25
25
25
25
12

14
46
16
32
11
14
47
11
I"
"1
25
25
21

11
15
16
l~

15
16
49
26
2~

11
25
25
25
25
25
12
16
"9
16
44
45

"II

59

SPlPKI
SPlPK2
SPlPK3
STAROT
STFlAG
SUCESS
SYSCAl
TElAST
TESTFP
THRDOA
THROWS
TOPPRO
TRACK2
TRAeK3
TRW SUS
TRweAR
TRYAGN
UPSCAN
WHIPIT
WHYNOT
WITHIN
WRlAST
WRMDOA
WRMDVE
WRTSPO
WRTSPI
WRTSP2
WRTSP3
lEROl2
lEROl9
lEROE S
lSEVEN

06884
094i"t
08739
OR762
07312
078112
08112
101144
02257
06768
08946
09022
12730
11161
13186
07360
10378
09122
10738
011108
OR600
09690
05462
09152
04574

13634
11635
03906
13635
031126
11635
03926
13624
11633
03906
04312
04HI
04310
043011
0"308
04108
04312
03926
02141
0214J
02141
0274J
()31126
02741
02110 1
02730
02513
02873
02873
02813
13635
04362
04284
04283
00565
00566
04268
021168
04362
04284
04215
04238
0"261
04283
04288
OD565
00566
03101
031110
OHIO
01190

000-0
000-0
01200
000P3
01100
oooPo
OBOO
00000
04",07
01200
13631
1363\
\3629
13621
13625
00000
-0000
01200
H624
13624
UOO-I
OOOPO
OUOO
000-1
H6310
01300
136H
13635
02873
000-1
0-000
J3841
000000000
-2913
-4275
13864
136:15
00-00
0436K
0436K
0436K
OH6K
13635
JOOOO
-3065
-4215
J3837
13831
\3837
00000

02668
02691
02714
05022
11537
nU8
00475
i0156
07576
02729

onn

10812
11778
13716
08716
08693
04002
08512
05)46
03388
08138
11842
02614
02622
03268
OHOO
03332
03364
IlI61
13114
OR806
09468

1620 MONITOR 1 DUP ROUTINE *OlABl
00560
00570
00580
00590
00600
00610
00620
00630
00640
00650 •
00660
00670 RSPT
00680
00690
00100
00710
00120 SEV
00130
00740
00150
00760
00110
00780
00190
00800
00810
00820
00A30
00840
00850
00860
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00910
00911
00972
00971
00914
OQ9RQ

00990
ClOOO
OIDia
01020
0\030 LAB
01040
01050
01060
01070

01190

01200
011\0
01220
01230
01240
01750 ERRI
01260
01210

O12AQ ERRlO
01290
01300
01310
01320
01330
01360 KV.ESS
01370
O\lAO

14
46
44
49

03101
03101
03166
03090
03190

000-1
H841
01100
0310J
00000

14
46

13841
03634

-4800
01200

25
16
26
16
49
16
14
46
12
33
11
11
16
12
33
11
11
14
47
11
26
12
21
12
21
12
21
12
21
12

13635
OPOOO
03213
-3249
-4252
OPOOO
OPOOO
01200
000-3
00000
000-3
000-4
OR200
000-3
00000
000-7
000-1
OP099
01300
000K4
04341
000-4
02513
000-4
02513
000-8
02513
000-4

03610
03622

16
11
14
47
16
49

04260
03261
03273
00565
00566
11119
03261
03322
03256
03250
03256
03256
03250
03256
03250
03256
03261
03261
03250
03256
03250
03256
03250
03256
03250
03256
03250
03256
03250
03256
03250
J2591
03568
03568
03562
00565
00532

03634
03646
03658
03610
Ol6A2

25
32
17
16
49

04214
00455
03998
00565
00566

04283
00000
-3670
-3693
-4206

OHIO
03122
03134
03146
OH5"
03166
OH66
03178

-+32

TEST48. TEST48+l1. 11
RSPT
OORG '-3
ROAREA+65,04800,7
CM
8E
l48

8

SEV+6,7,lO
SEV+6,,6
RDAREA- Ll1Q, 00, 21011

01190
03202
03214
03226
03238
03250
03262
03214
03286
03298
03310
03322
03334
03346
03358
03310
03382
03394
03406
03418
03430
03442
03454
03466
03418
03490
03502
03514
03526
03538
03550
03562

*-6.2,LO

03514

*-18, RDAREA+6000
·-36
IORT,.+23

03586

OOAl8.INPUT+22
SE\I+ll.7000,8
SEV+23 •• -1
IORT, .+23
IOGT.DOAl1,7
RDAREA-1991.1000,8
SEV+ll. 7000, 8
-+48
SEVt6,3.10
SEV+6.,6

SEV+b.3,lO
SEV+6,4,10
SEV+6,9200,68
SEV+6,3,lO
SEV+6,,6
SEVt6,1,lO
SEV+ll.l.10
SEV+ll,1099,8
SEV
SEV+6 ,24, 10
SEV+6 t LS TENT +3, 6
SEV+6,4.10
SEV+6,MOD,6
SEV+6,4,10
SEV+6,MOO,6
SEV+6,8,10
SEV+6,MOO,6
SEV+6,4.10
SEV+h,"'OD,6

LABEL
TO
SF
8TM
TFM
8

SF
TF
TFM

TFM
TFM
8
TO
TFM
B

TFM
CF
TF
TFM
8
CF
STM
TOM
B
ODRG
TFM
8

03598

IOPT,ODAl7,1
OISK

tORT,*+23
lOGY. DOAl), 7

MOD. LEVEl 4

ROAREA
RDAREA+9,PACK
ROAREA+99 t 79.10,

MANTISSA LENGTH POSITION
ROAREA+I04,19663,7,
IN Co~. SECTOR

IORT,*+23
IOPT,DDAL3,7
ODAL6,ODAl2

IORT,-+23
IOCT,DDAl5,1
RDAREA+1999,OO199,7
RDAREh 1995
RDAREA+2034, PACK

IORT,*+23
10Pf,OOAL5,1
BUTTON

KY","eSS,*+12
$YSCAl,J
MONCH
'-3
OI~ERR+22,OO71,8

ERRLO+12
DORG .-3
TFM 01MERR+22,7110,8

RC TV
TFM
IORT, •• 23
8
JOPT.ERRMES-4,1
H

8
BNF
TFM
B

ERR 1-20
-+32, BUTTON

KEYMES+24,550Q,8
-+20

01'}90

DORr; *-]
TFM KEYME 5+24, 4646, 8
RCTV
TFM
IORT,"·23
8
IOPT,MESS-4,7
01440
H
01450
B
KYMESS-l •• 6
01460 ROAREA OSS
2100.13176
01470 KEVMES oAC 39,OUP* TURN OFF WR IfE AOORESS KEY.
OUP. TURN OFF WR IfE ADDRESS KEY, START'
01480 OIMERR O4C
13. OUP_ERROR 00'
DU p. ERROR 00'
01490 DOAl3
OSC 2,26
26
01500
OSA DOH4

START'

04tBI

ooouo

32
26
16
16
16
49
25
16
49
16
33
26
16
49
33
17
15
49

13776
13785
13875
13880
00565
00532
04237
00565
00566
15775
15171
15810
00565
00532
00455
03998
00475
00796

16
49

04203
03938

0-071
00000

16
34
16
49
'on
49
44
16
49

04203
00000
00565
00532
00000
03886
04030
04121
04042

00102
-3973
-4342
00000
00000
00455
ONSOO
00000

16
34
16
49
48
49

04127
OM646
00000
00102
00565
-4077
00532
-4350
00000
00000
0399P
00000
2100
39 X

04H2
OOOP9
J9661
-1765
-4206
04283
-380 I
-4229
-0199
00000
04312
-3861
-4229

oooon

-3$86
00003
00000

OPl7D

13 X

04206
04212

01510

DSC

1 ••

01520 DOAl4

DSC 1.0
0
OC
5.19800
J9800
DC
3.020

04219

-20

02') 13

000-7
00000
000-000-2
J9776
01300
-3633
-4252

PAGE

03694
03706
01118
03730
03742
03754
01766
03118
03790
03802
03814
03826
03838
03850
03862
03A14
03886
03898
03906
03906
03918
03926
03926
03938
03950
03962
0)914
03986
03998
04010
04022
04030
04030
04042
04054
04066
04018
04090
13776
04103

04212
04213

01540

H

P4CK

ODAl4,DDAl2
BurrON
KYf.o\ess, -+12

01400
01410
01420
01430

01530

11

REINITIALlZE SEQUENTIAL PROGRAM TABLE
TO
TFM
TF
TFM
B
TFM
CM
8E
SM
CF
AM
AM
TFM
SM
CF
AM
AM
CM
8L
4M
TF
SM
A
SM
A
SM
4
SM
A
SM
CF
TFM
AM
CM
Bl
TFM
8

1620 MONITOR I OUP ROUTINE .OL4BL
OIOAO
01090
01091
01092
01100
01110
01170
all 30
01140
01150
01160
01170
OIIAO

P4GE

MOO. LEVEl 4

TEST48+11.1,10
TEST48+11,RDAREA+65,7

AM
CM
8H
8NF

04214

04222

5 X
-4214
I

1620 MONITOR I OUP ROUTINE -OUBl

PAGE

MOO. lEVEL "

5 X

01550

OSA

ROUEA

04227

01560

ose

I, '

04221
04228"

01570 OOAl5

ose
26
OSl

2,26

04229

DOAl6

04235

5
-4237
I

01580
01590

ose

I, '

04235
04236

01600 DOAl6

Dse
0

1,0

04237

5,19980

04242
0 ... 245

01610

oc

01620

oc

3,020

01630

-20
OSA

RDAREA

0 ...250

J3716
I

J9980
5 X

01640

ose

I, '

0 ... 250
04251

01650 OOAl1

2,22

04252

2

01660

OSC
22
OSA

DoAl8

04258

5 X

01610

OSC

I, '

04258
04259

-4260
I

01680 ODAl8

OSC 1,0
0
OC
5.19801
J9BOI
3,010
DC
-10
OSA RDARE A-2000

04260

1

01690
01700
01710

04265
04268

04273
04214

01720

OSC

I,'

DSC
22
OSA

2,22

04215

DOAL2

042Bl

I, '

04281
04282

01150

OSC

01760 00Al2

I,D
OSC
0
DC
5.04800
-4800
3,002
DC
-02
DSA RDAREA

01170
01180
01190

1620
01800
01810
01820
01810
01840
01850
01860
01810
01880
01890
01900
01910
01920

OSC

MO~ITOR

01940 MESS
01950
01960 AOORS

02020 LABLl
02030

04291
04296

1 DUP ROUTINE oOlABl

I, '

PAGE
04296
04291

04312

00196
00455
00532
043)8

),06'

04354
04357

2,22
lA8l2

04418

02040

DC

1,'

02050 LABL2

DSC
I

1,1

04lt20

02060

OC

5,18200

0 ... 425

02010

OC

J8200
3,020

0 ... 428

5,02502

0"'''33

I. '

0 ... 434

-20

OC
-2502

02090

OC

-4181
)

5 X
-HO)
3
5 X

04362
0"362
02513
00415
04364
010316
04388
04400
04412

Olt418
04 ... 19

02080

5 X

043"6

DC
-6'
OSA

,OlA8l+11

0
25

04339

04354

IORT. -+23
IOPT,LABLl,1

0
0
81 X
10

04313

KEYMES

,,.15

J3116
1

00565
00566
13613
01t307

),06'

RDAR.EA+l1

5 X

HOD. lEVEL 4

DC
-6'
OSA

OSC
22
OSA

5 X
-4283
1

04288

010346
04349

01910 MOD
os
01980 SVSCAl os
01990 lABl
TFM
02000
8
02010
TRA

JI176
1

0"283

10RT
,565
as
IOGT
os
,566
INPUT OAS 81,13613
LEROIO DC
10,0
-000000000
PACK
5,0
DC
-0000
MONPK OSC I,D
0
MONCAl as
.196
8UTTON OSC 1.0,455
0
laPT
OS
.532
lSTENT DC
25,109901580004909901660162'
P09901580004909901660162'
OSC 1,000
ODD
ERRMES OSA OIMERR

01930

5 X

04213

01130 ODALl
01740

J3116
I

Ib
49
3b
49

J3841
0
0
00565
00532
00000
00000
2

-4381
-4412
00500
00000

5 X
-4420
I

4

1620 MONITOR 1 OUP ROUTINE .OLASL

MOO. lEVEL 4

PAGE

02100

Teo

LASL'

0431>4

02110

PEND 02502

02502

1620 MONITOR 1 OUP ROUTINE *OlABL

BUTTON

00455

OI"ERR
ERRMES
KEYMES
L
00532 00000
03396 00002
.:::,''~AP2
03402 00005 -3404
1, ;;l
03403 00001
1, 1
03404 00001
5,04800
03409 00005
3,2
03412 00003
DIMS
03411 00005 J1800
1 , Q)
03418 00001
03419 00002
2,22
SPL2
03425 00005 -3538
1, Ql
03426 00001
23,S.P. LIST IS INCORRECTQ)
03429 00046
,796
00796 00000
16,8888888688888888
03489 00016
03490 00002
2,22
03496 00005 -3518
EQU22
03497 00001
It ..
03498 00020
20,0
03518 00020
20,0
03538 00020
20,0
03558 000011,0
03559 00020
20,0
03579 00020
20,0
03599 00002
2,22
03605 00005 -3607
OIl'll
03606 00001
1, "
CONTROL .F IELD TO READ DIMS
1, 1, •
03607 00001
03612 00005
5,04800
DC
03615 00003
3,050
DC
03620 00005 J1800
OSA DIMS
03621 00001
USC 1 , al
03700
UORG 3700
EDIT THE DIM TABLES FOR FLAGS OR RECORD MARKS
MAXIMUM NUMBER OF DIMS
01 MS+68, 5,10,
MM
03700 13 11868 000-5
03712 32 00096 00000
96
SF
03724 26 02632 00099
MAXDIM,99
TF
START DIM COUNTER 03736 16 02636 0-001
TFM DIMNUM, 1 ,8,
INlT • TO DIM POSITION 1
TF'" MAP, 01 MS+20"
03748 16 05373 J1820
03760 31 03498 11840
EQU2, 01 MS+40
TR
03772 16 03376 -3703
TFM DROPDM,LlSTCM+3
NOP BRANCH TO SAVE
TOM STAR T+ 2 5, 1 , ,
03784 15 03829 00001
STAR T+ 48 , , ,
RETURN TO MA IN DIM EXIT
87
03796 49 03852 00000
03804 16 00565 -3827
TFM
IORT,*+23

PAGE

3

1620 MON I TOR

SYSTEM TABLE EDITOR

01410
01420

b

IOGT,DIMl,7,
SAVE" ,

01430

TFM

MAP, DIMS, ,

01440
01450 TEST
01460
01470

TFM
bNR
AM
AM

CN T 2,0, 10 ,
INUSE,MAP, 11,
MAP, 1, 10 ,
CNT2tltlO,

01480
01490 TESTR
01500
01510
01520

b7
AM
AM
8NF
B7

TESTl
MAP, 1, 10
CNT2 tl ,10
*+20,MAP,1l,
OIMFOR",

01530 TEST 1
01540

80
CM

01 MFOR, MAP, 11
CNT 2, 19, 10,

t!

01550
TESTR
BL
INCREMENT TO NEXT DIM ENTRY
01560**
AM
DIMNUM, 1,10,
01570 NEXT
01580
01 MIlIUM, MAXDIM"
C
01590
PUTCYL
BE
AM
MAP, 1,10
01600
MAP,DIMS+5000, ,
CM
01610
01620
BL
TEST-12
01630
TFM
IORT,*+23
IOPT,DIHl,7,
01640
B
011'42+ 5,50, 10 ,
AM
01650
STAR T, , ,
01660
87
01670 INUSE TFM CA,CFIELD"
LP+11 ,MAP
01680
TF
bNR *+20 ,MAP"
01690 LP
01700

t17

DIMFOR" ,

01710
01720
01730
01740 ADDI
01750
01760
01770
01780
01790
01800 NF
01810 DIMFOR

bD
bNF
8NF
AM
AM
bNR
bNR
AM
87
bNF
RCTY

ADD1, CA, 11
NF ,CA ,11
DIMFOR,LP+l1,l1
CA,l,lO
LP+1l,1,10
LP,CA,ll
DIMFOR,LP+ll,11
MAP, 19, 10
NEXT
ADDl,LP+ll,1l

01820 CNT 2
01830
01840
01850 CA

UC
2,0,*-5
WATY FORMD
RCTY
5,0,*-5
OC

,, ,

MOO I F I CAT ION 8

PAGE:

READ DIMS
03816 49 00566
CHANGE TO NOP AFTER FIRST TIME
03828 49 03700
IN IT. TO POSITION ZERO
03840 16 05373
MAP+CNT2 IS POINT 03852 16 04270
IS DIM IN USE
03864 45 04104
NO
03876 11 05373
TEST FIRST PUS IT ION
0381i8 11 04270
03900 49 03952
03908 11 05373
03920 11 04270
TEST REST OF DIM 03932 44 03952
FOR UNFLAGGED ZEROS
03944 49 04264
03952 43 04264
HAS LAST ONE 8EEN TESTED
03964 14 04270
03976 47 03908
NEXT DIM NUMBER
END OF DIM TABLE

03988
04000
04012
04024
END OF 50 SECTORS 04036
04048
04060
WRITE DIM TABLE
04072
04084
YES
04096
GO READ NEXT 50
04104
DIM IS IN USE
04116
CHECK FOR VALID DIM
04128
ACCORDING TO CF IELD
04140
04148
04160
04172
04184
04196
04208
04220
04232
04244
04252
DIM ENTRY IS IN ERROR
04264
04270
04276
04288
04294

-3599
00000
J1800
000-0
0537L
000-1
000-1
00000
000-1
000-1
0537L
00000
05371
000J9
01300

11 02636 000-1
24 02636 02632
46 04622 01200
11 05373 000-1
14 05373 J6800
47 03852 01300
16 00565 -4083
49 00532 -3599
11 03612 OOONO
49 03804 00000
16 04294 -4534
26 04139 05373
45 04148 05373
49
43
44
44
11
11
45
45
11
49
44

04264
04184
04252
04264
04294
04139
04128
04264
05373
03988
04184

00000
0429M
04291'4
0413R
000-1
000-1
04291'4
0413R
000J9
00000
0413R

34 00000 00102
00002
39 04501 00100
34 00000 00102
00005

4

1620 MONITOR

SYSHM TA bLE ED !TOR

04300 38 02633
04312 34 00000
04319 00036
6,100001,*-4
OC
04324 22 05373
MAP,CNT2
S
04336 16 05391
TFM DUMP,19980
04348 25 0539P
DUMP, MAP, 611
TO
04360 11 05313
AM
MAP, 1,10
04312 11 05391
DUMP, 1,10
AM
04384 43 04348
T DOUMP, DUMP-l
SO
04396 35 19980
ONTY 19980
04408 12 05373
MAP,1,10
SM
MAP,ZEROI9,b,
DEL ETE INVALID DIM ENTRY
TF
04420 26 0531l
04432 12 05313
MAP, 19,10
SM
01980
04444 15 0531l
TOM MAP" b
01990
04455 00001
1,iIl,*
USC
02000
04456 11 05313
MAP, 19,10
AM
02010
04468 26 03310
DROPoM,oIMNUM,6
TF
02020
04480 11 03316
DROPoM, 4, 10
AM
02030
04492 49 03988
NEXT
02040
87
04501 00034
02050 FORMD OAC 11 ,01 M FORMAT ERROR@
04534 00001
1,0
02060 CFIELD OSC
04539 00005
5,0
DC
02070
04542 00003
3,0
DC
02080
04541 00005
5,1
DC
02090
04552 00005
uc 5,1
02100
04553 00001·
USC 1, iil
02110
04554 31 03538
SPL2,DIMS+80
02120 SAVE 1 TR
04566 26 04845
SCRSC,oIMS+28
TF
02130
04518 26 03211
SCRSA,0IMS+25
02140
TF
04590 25 03206
SCRSA-5,oIMS+20
TO
02150
04602 15 04835
TOM R oLI S T+ 2 5, 1
02160
04614 49 04846
TRMAP
El7
02170
MAKE ,. Ll S T WlTH ONLY CYLINDER ENTRIES IN IT
02180**
04622 16 J2003
02190 PUTC Yl TFM Ll ST+3, 7000,28
04634 33 J2000
LlST,,2
CF
02200
04646 11 04628
PUTCYL+6, 4,10
AM
02210
04658 11 04633
PUTCYL+11, 1, 10
AM
02220
04610 11 04640
PUTCYL+18,4,10
AM
02230
TES T FOR LAST ENTRY DONE
*+20,PUTCYL+9"
bD
02240
04682 43 04102
04694 49 04622
PUTCY L
1:17
02250
ADO FINAL RECORD MARK
TOM PUTCYL+18"b,
022bO
04102 15 046404113 00001
DSC l,iIl,*
02270
FLAG START OF LIST
SF
02280
LIST",
04714 32 12000
04126 11 04640
PUTCYL+18,4,10
AM
02290
04138 16 0464TFM PUTCYL+18,0,68
02300
04750 12 04640
PUTCYL+18,3,10
5M
02310
04762
33 0464PUTCYL+
18,,6
LF
02320
04114 11 04640
PUTCYL+18,3,10
AM
02330
START wITH 011'1 ENTRY TWO
TFM 01 MN UM, 000 2 , 8 ,
02340
01860
01b70
o !ti80 DBl
01890
01900
01910 TDDUMP
01920
01930
01940
01950
01960
01970

WNTY DIMNUM-3",

~PTY

PAGE

MODIFICATION 8

TYPE DIM NUMEH:R

00100
00101
04210
J9980
0531l
000-1
000-1
05396
00100
000-1
03395
000J9
00000
000J9
02636
000-4
00000

11880
11828
11825
11820
00001
00000
OPOOO

00000
000-4
000-1
000-4
04631
00000
00000
00000
000-4
0-000
000-3
00000
000-3

5

1620 MONITOR

SYSTEM TABLE EDITOR

02350
TFM
02360 RDLl ST TFM

TRMAP+11,DIMS+40
IORT,*+23"

02310
02380
02390 SCRSC
02400 TRMAP
02410
02420 NXT
02430
02440
02450
02460
02410

IOGT,MAP1,1
SAVE 1
3,0,*
MAP20,DIMS
MONPK-24, MAP 20
DIMNUM,I,10,
DIMNUM,MAXDIM"
FILLlN
TRMAP+11,20,10,
TRMAP, 01 MNUM
MAP2+5,2,1O,

D

B
DC
TR
BNR
AM
C
BNL
AM
BO
AM

02480
TFM TRMAP+l1,DIMS
02490
B1
ROll ST
DIM REFERS TO MONITOR PACK
02500**
MAP20, 1, 10
02510
CM
02520
8H
NXT
MAP20+5,5,10,
02530 MONPK MM
02540
02550
02560

TO
TFM

CYL,96
CYL-l,95
LK + 11 , Ll S T+ 3, ,

02510 LK

C

CYL,LlST+3,7,

02580
02590
02600
02610 GETR

BE
AM
81
AM

GfTR
LK+1l,4,l0,
LK
LK+ 11 ,It 10 ,

02620
02630
02640

BNR
AM
B7

*+32,LK+11,11
LK+11,3,10
INS",

02650
02660
02670

AM
C
BL

LK+11,3tlO
SEV,LK+11,l1
INS",

02680
02690
02700 DMBT

TF

DMBT+6,LK+11
DMBT+6,3,10
LIST",

02710 cn
02720
02730
02740.SEV
02750
02760
02770

TO

SM
SF
DC
8T
CF
DC
TF
S

Bl

4,7000,*
DIMHER,LK+ll,l1
DMBT+6,,6
4,6999,*
HOL05,MAP20+5
HOLD5,DMNXT+5
ERR

MODIFICATION 8

PAGE

04186 16 02636
04198 16 04851
TWO SECTORS OF DIMS
04810 16 00565
04822 49 00566
04834 49 04554
04845 00003
04846 31 03559
04858 45 04962
DIM ENTRY
04810 11 02636
DIM TEST
04882 24 02636
04894 46 05438
ENTRY
04906 11 04851
04918 43 04846
NEXT TWO SECTORS
04930 11 03409
04942 16 04857
04954 49 04810

0-002
J1840

04962 14 03559
04974 46 04810
CALCULATE CYLINDER OF PROGRAM
04986 13 03564
04998 25 05193
05010 25 05192
INIT. CYL. SEARCH TO FIRST ENTRY
05022 16 05045
COMPARE FOR CYLINDER OF PROGRAM
05034 24 05193
05046 46 05078
NEXT ENTRY
05058 11 05045
05070 49 05034
GET RIGHT HAND ENTRY H.O.
05078 11 05045
0509045 05122
05102 11 05045
IF RECORD MARK, INSERT DIM
05114 49 05266
05122 11 05045
05134 24 05217
IF CYLINDER, INSERTDIH
05146 47 05266
05158 26 05188
05170 12 05188
IT MUST BE A DIM NUMBER
05182 32 12000
05193 00004
05194 21 03216
052Q6 33 0518Q
05217 00004
05218 26 05313
05230 22 05313
05242 46 05406

000-1
01100

READ

NEXT
LAST
NEXT
READ

-4833
-3396
00000
11800
03559
000-1
02632
01300
OOOKO
02636
000-2
J1800
00000

000-5
00096
00095
J2003
J2003
01200
000-4
00000
000-1
0504N
000-3
00000
000-3
0504N
01300
05045
000-3
00000
0504N
00000
03564
03584
01200

6

1620
027t:W
O.tf'10*'*

u.::ouu IN:>

MON !TOR

SYSTEM TABLE EDITOR

bP
GETR
INStKT DiM NUMbEk INTO LIST
Tr
TrJl~+11,PUTLYL+18

MODIFICATION 8
05254 46 05018 01100

05266 26 05325
CONTAINS ADDRS. OF RECORD MARK
05216 11 04640
SM
02820
LK+llt3,lO
05290 12 05045
LK+l1,,6
02830
SF
05302 32 0504N
021;40 HOLDS UC
5,0, *'
05313 00005
02850 HOlM TF
PUTCYL+18,LIST+4,6,
OPEN FOR DIM NUMBER
05314 26 0464AM
02860
LK+llr3tlO
05326 11 05045
LK+ 11,01 MNUM, 6,
TF
PUT IN DIM NUMBER 05338 26 0504N
02870
lK+ll, 3, 10
02880
SM
05350 12 05045
LK+ll,,6,
02890
CF
CLEAR FLAG OVER DIM
05362 33 0504N
02900 MAP
DC
5~0,*,
05373 00005
05374 11 05045
02910
AM
LK+11,4,10
05386 33 0504N
02920
CF
LK+l1,,6
02930 DUMP
DC
5,0,*
05397 00005
02940
B1
NXT
05398 49 04810
02950**
TWO PROGRAMS START AT THE SAME SECTOR ADDRESS
02960 ERR
TF
DROPDH,DIMNUM,6,
05406 26 03370
02910
AM
OROPOM,4,10
05418 11 03376
05430 49 04810
02980
B7
NXT
02990**
FILL IN LIST WITH 9-ENTRIES AND DUPLICATE DIMS
03000 FILLIN TFM SA,0,7,
INIT. TO START OF LIST
05438 16 03371
TFM PO IN T , LI S T+ 3
05450 16 03366
03010
INIT. SC TO 200
05462 16 05661
TFM SC,200,9;
03020
NEXT ENTRY TO RIGHT H.O.
AM
POINTtlrlO,
03030 NX
05474 11 03366
05486 45 05518
BNR *+32,POINT,11
03040
PO IN T ,3, 10 ,
REACHED END OF LIST
AM
03050
05498 11 03366
05510 49 06806
LST
03060
iH
05518 11 03366
AM
POINT, 3,10
03070
IS IT A CYLINDER ENTRY
SEV,POINT,11,
03080
C
05530 24 05217
05542 46 05766
BNL NOCH
03090
IS SC DOWN TO ZERO
SC,0,9,
CM
03100
05554 14 05661
05566 46 05462
NX-12
BE
03110
05578 26 05637
YES
TF
PT9+11,END"
03120
05590 11 04640
END,4,10
AM
03130
05602 12 03366
POINT,3,l0
SM
03140
05614 32 03360
POINT,,6
SF
03150
MOVE LIST TO THE RIGHT
ENO,LlST,6,
TF
03160 PT9
05626 26 046405638 26 05709
NINESC,SC
TF
03170
05650 33 05707
NINESC-2
CF
03180
05661 00003
I)C
3,0,*
03190 SC
056E!2 11 03366
PO INT,3, 10
AM
03200
05674 26 03360
INSERT 9 ENTRY
POINT,NINESC,6,
TF
03210
02ulO

kM

PAGE:

04640

PuT~YL+18,4,10,

000-4
000-3
00000
12004
000-3
02636
000-3
00000
000-4
00000
00000
02636
000-4
00000
-0000
J2003
OOKOO
000-1
03360
000-3
00000
000-3
03360
01300
00-00
01200
04640
000-4
000-3
00000
12000
05661
00000
000-3
05709

7

1620 MONITOR

SYSTEM TAbLE EDITOR

03220
03230
03240 NINE SC
03250
03260

SM
CF
()C
AM
CF

POINT,3,lO
POINT,,6,
4,9000,*
POINT,4,10
POINT,,6,

03270

A

SA,SC"

03280

AM

POINT,3,10,

03290
03300 NOCYl

01
TF

NX-12
NOCYL+30,POINT"

03310
03320
03330
03340
03350
03360

SM
SF
6T
CF
S
BN

NOCYL+30,3,10
LIST,,2
DIMMER,POINT,ll,
NOCYL+30,,6
OMNXT+5,SA
ERRl,,,

03370
03380

6Z
SF

FITS,,,
OMNXT+3",

03390
03400

TF
CF

NINESC,DMNXT+5
NINESC-2",

03410
03420
03430
03440
03450 OP

TF

OP+ll, END
END,4,10
POINT,3,10
POINT,,6
END,LIST,6,

AM
SM
SF
TF

03460
03410
03480
03490
03500
03510

AM
SM
CF
AM
CF

PO IN T, 3, 10
POINT,NINESC,6,
POINT,3,lO
POINT,,6,
POINT,4,10
POINT,,6,

03520

A

SA,DMNXT+5"

03530

S

SC,DMNXT+5"

03540

AM

POINT,3,lO,

03550 FITS

A

SA, DMNXT+8"

03560

S

SC,OMNXT+8"

03570
03580
03590
03600

ISZ

NX, , ,
NX, , ,
POINT,l,lO,
*+32,POINT,l1,

TF

BP
AM
bNR

MODIFICATION 8

05686 12 03366
CLEAR FLAG OVER 9 05698 33 03360
05709 00004
05710 11 03366
CLEAR FLAG SET FUR MOVE
05722 33 03360
UPOA TE SECTOR AOORS.
05734 21 03371
POINT TO ENTRY ON RIGHT OF 9XXX
05746 11 03366
05758 49 05462
MUS T BE A DIM NUMBER
05766 26 05796
05778 12 05796
05790 32 J2000
GET DIM ENTRY
05802 27 03216
05814 33 05790
05826 22 03584
THERE IS AN OVERLAP
05838 47 06382
NO 9XXX NEEDED
05850 46 06066
PUT A 9 ENTRY IN FRONT OF DIM
05862 32 03582
05814 26 05109
PREPARE TO INSERT REMAINDER
05886 33 05101
05898 26 05951
05910 11 04640
05922 12 03366
05934 32 03360
MOVE LIST TO MAKE ROOM FOR 9XXX
05946 26 046405958 11 03366
INSERT REMAINDER 05910 26 03360
05982 12 03366
CLEAR FLAG OVER 9 05994 33 03360
06006 11 03366
CLEAR HAG SET FOR MOVE
06018 33 03360
UPDATE SECTOR ADDRS.
06030 21 03311
SUBTRACT REMAINDER 9 FROM S.C.
06042 22 05661
MOVE POINTER TO DIM
06054 11 03366
UPDATE WITH S.C. OF DIM
06066 21 03311
DOES DIM OVERLAP CYl INDER
0601"8 22 05661
06090 46 05414
JUS T FITS
ROOM FOR MORE
06102 46 05414
OVERLAPS CYLINDER 06114 11 03366
IS NEXT POSITION A

PAGE
000-3
00000
000-4
00000
05661
000-3
00000
03366
000-3
00000
03360
00000
03371
01300
01200
00000
03584
00000
04640
000-4
000-3
00000
12000
000-3
05109
000-3
00000
000-4
00000
03584
03584
000-3
03581
03581
01200
01100
000-1

8

1620 MON lTOR

AM
TF

POINT,3,10,
LST
POINT,3,10
SEV,POINT,l1
ERR 2
POINT,l,lO,
POINT,,6
*+35,END
END,4,10
END,LlST,6,

03710
03120
03730
03740

AM
TF
SM
CF

POINT,3,10
POINT,DIMMER-l,6,
POINT,3,10
POINT,,6,

03750
03760

AM
CF

POINT,4,10
POINT,,6,

03770
03780

SM
AM

POINT,I,lO
SC,200,9,

03b10

03620
03630
03640
03650
03660
03670
03680
03690
03700

AM
b7
AM
C
BNL
AM
SF

SYSTEM TABLE EDITOR

TF

NX
BZ
03790
BNF NX,SC
03800
B7
FITS+48",
03810
PROGRAMS OVERLAP
03820**
DROPDM,DIMMER~1.6
TF
03830 ERRl
DROPDM,4,10
AM
03840
POINT,l,lO
AM
03850
NOCYL+30 ,POI NT, 611,
TR
03860

MODIF ICAT 10/11 8

06126 45 06158
06138 11 033bb
06150 49 06806
06158 11 03366
06170 24 05217
06182 46 06554
YES
06194 11 03366
06206 32 03360
06218 26 06253
06230 11 04640
OPEN LIST Te RIGHT OF CYLINDER
06242 26 046406254 11 03366
INSERT DIM NUMBER 06266 26 03360
06278 12 03366
CLEAR FLAG OVER DIM
06290 33 03360
06302 11 03366
CLEAR FLAG FROM MOVE
06314 33 03360
06326 12 03366
ADD 200 FOR NEXT CYlINDER
06338 11 05661
06350 46 05474
06362 44 05474
06374 49 06p4
STILL NEGATIVE
CYL INDER ENTRY

PAGE
03360
000-3
00000
000-3
03360
01300
000-1
00000
04640
000-4
12000
000-3
03215
000-3
00000
000-4
00000
000-1

OOKOO
01200
05661
00000

06382 26 03370 03215
06394 11 03376 000-4
06406 11 03366 000-1
DROP DIM FROM LIST

06418 31 05790
06430 32 03360
POINT,,6
SF
03870
06442 26 06424
ERRl+42,POINT
TF
03880
06454 45 06474
BNR *+20 ,POINT, 11
03890
06466 49 06510
*+44
b7
03900
06474 11 03366
AM
POINT,3tlO
03910
06486 24 03360
POINT,DIMMER-l,6
03920
C
06498 46 06406
ERRl+24
BE
03930
06510 33 0642M
ERRl+42,,6
CF
03940
06522 26 03366
PO IN T, NOCY L+30
TF
03950
06534 12 03366
POINT,l,10
SM
03960
06546 49 05474
NX
b7
03970
PKOGRAM OVERLAPS CYLINDER, BUT NEXT ENTRY IS NOT CYLINDER
03980**
06554 12 03366
POINT,3,10
SM
03990 ERR2
IS IT END OF LIST 06566 45 06586
I:)NR *+20,POINT,11,
04000
06578 49 06806
1:)7
Lsr
04010
06586 32 03360
SF
PO INT" 6
04020
SAVE POINT IN LIST
TF
ERR2+43,POINT"
04030
06598 26 06597
Obbl0 11 03366
AM
POINT,3tlO
04040
06622 26 06725
SAVDM,POINTtll
TF
04050
PUT DIM NUMBER IN DROP LIST
DROPDM,SAVDM,6,
TF
04060

03360
00000
03366
03360
00000
000-3
03215
01200
00000
05796
000-1
00000
000-3
03360
00000
00000
03366
000-3
03360

9

1620 MONITOR

SYSTEM TABLE teITOR

MODIFICATIIlN 8

06634 26 03370 06725
06646 11 03376 000-4
06658 11 03366 000-1
DROPDIM NUMBER FROM S.P. LI S T
06670 31 0659P 03360
04100
PGINT,4,lO
SM
06682 12 03366 000-4
04110
IlNR * + 20 ,P 0 I NT, 11
06694 45 06714 03360
04120
117
f ITS+60
06706 49 06126 00000
04130
POINT,,6
SF
06714 32 03360 00000
04140 SAVDM DC
4,0,*
06725 00004
TF
TR2+6,POINT
04150
06726 26 06676 03366
AM
POINT,3,10
04160
06738 11 03366 000-3
POINT,SAVOM,6
06750 24 03360 06725
04170
C
8E
06762 46 06658 01200
04180
TR2-12
04190
SM
POINT,3,10
06774 12 03366 000-3
CF'
067B6 33 03360 00000
04200
PO INT" 6
06798 49 06126 00000
FITS+60
04210
IH
RECORD MARK MARKS END OF THE S.P. LIST
04220**
SCRSA-5,1,10,
04230 LS T
CM
IS SCRATCH ON MONITOR PACK
06806 14 03206 000-1
06818 46 07022 01100
04240
6H
NOSCR
MM
WHAT IS THE STARTING CYLINDER'
04250
SCRSA, 5,10,
06830 13 03211 000-5
06842 25 05193 00096
CYL,96
04260
TO
06854 25 05192 00095
TO
CYL-1,95
04270
06866 16 06901 J1999
TFM PUTSCR+11,LlST-l
04280
AM
PUT S CR + 11 , 4, 10
06878 11 06901 000-4
04290
04300 PUT SCR C
CYL,LlST+3,7,
FIND FIRST cn INOER
06890 24 05193 J2003
06902 47 06878 01200
04310
6NE PUTSCR-12
AM
PUTSCR+ll,4,1O
06914 11 06901 000-4
04320
IS THERE A 9200
06926 24 06985 0690J
NINE2,PUTSCR+11,11,
04330
C
06938 47 03350 01200
liNE ERR3
04340
REPLACE IT WITH DIM 0001
TFM PUTSCR+l1,OOOl,68,
04350
06950 16 0690J 0-001
06962 12 06901 000-3
PUTSCR+ll ,3,10
SM
04360
06974 33 0690J 00000
CF
PUTSCR+11, ,6
04370
06985 00004
4,9200,*
04380 NINE2 DC
06986 11 06901 OOOJI
AM
PUTSCR+11,l1,10
04390
KEE P TRACK OF NUMIlER Of CYLINDERS
SCRSC,l,lO,
04400
SM
06998 12 04845 000-1
07010 47 06926 01200
BNl PUTSCR+36
04410
07022 14 05661 00-00
SC,O,9
04420 NOSCR CM
07034 46 02402 01200
WT
04430
BE
07046 16 05764 -2402
YES
04440
TFM NOCYL-2,WT"
07051l 49 05578 00000
0,,"450
PT9-48
87
07065 00100
04460 PATCH OSS 100
12000 00000
04470 LIST
,12000
OS
11800 00000
,111l00
04480 DIMS
OS
03800 00000
,3800
04490 LI STOK OS
03700 00000
,3700
04500 1I STCM OS
04640 00000
,PIJTCY L+ III
US
04510 END
03804
UEND STAR T
04520
04070
04080
04090 TR2

AM
AM
TR

DROPDM,4,lO
POINT,1tlO
ERR2+43,POINT,611,

PAGE 10

40 Saw Mill River Road
Hawthorne, New York 10532
WHite Plains 9·1900 (Code 914)

'ternational Business Machines Corporation

December 8, 1964
MEMORANDUM TO:

Users of IBM 1620 Data Processing Systems

SUBJECT:

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 9

This letter transmits Modification No. 9 of the subject program. The
material enclosed with this modification consists of the following:
Twelve (12) Correction Cards
Any discrepancies between the material you receive and the items listed
should be reported to the Manager of DP Program Information Department,
IBM Corporation, 112 East Post Road, White Plains, New York.
This program has been registered by type of system and is listed under the
name and address shown on your order. Program modifications as and
when made by IBM will be sent to this same address. Should there be a
change in your type of system or in your address, or should you no longer
require maintenance of this particular program, we would appreciate your
notifying DPD Program Information Department through your IBM Branch
Office.
An Authorized Programming Analysis Report (APAR) should be submitted
through your local IBM Systems Engineer to report any difficulties encountered
in the use of this system. The APAR should be addressed to APAR
Processing, Programming Systems Department, IBM Corporation, Monterey
and Cottle Roads, San Jose, California
95114.

PROGRAM INFORMATION DEPARTMENT
Distribution: SE Managers, CE Managers

1620-1311 Nlonitor I
Program No. 1620-PR-025 (Card)
Modification No. 9
Page 2
SPS II-D Subroutines, Deck 41=5

1.

Error The Arctangent routine hangs up upon execution .
. Correction

The following changes are necessary to correct the problem:

Page 12 of the listing (Set 1) should be changed
From 00030 FATN1 TFM
To

00030 FATN1 TFM

PCK+5, *+20, 1

00000 1602370 00020

PCK+5, *+20, 17

00000 1602370 00020

One (1) replacement card numbered 22409 is provided. Please
remove the correspondingly card from Deck #5 and insert the card provided.
SPS II-D Processor. Deck 41=6
1.

Error The macro-operations SAVE and RSTR do not assemble correctly
in a relocatable assembly.
Correction

The following changes are necessary to correct the problem:

Page 32 of the listing (SPS II-D, Phase B) should be changed.
From 15780
15940
To

15780
15940

CF
CF

ZEPO+7
ADDRS-4

10526 33 02307 00000
10696 33 03490 00000

B
B

PATCH1
PATCH2

10526 49 14378 00000
10696 4914410 00000

Page 40 of the same listing should be changed
From PreviouslyVacant Area
To

19621 PATCH1 BNF
19622
SF
19623
B7
19624 PATCH2 BNF
19625 .
SF
19626
B7

*+24, RLOCSW
ZEPO+1
RSTRF+204
*+24, RLOCSW
ZEPO+12
SAVEF+120

14378
14390
14402
14410
14422
14434

44
32
49
44
32
49

14402 07992
02301 00000
10538 00000
14434 07992
02312 00000
10708 00000

1620-1311 MonitorI
Program No. 1620-PR-025 (Card)
Modification No. 9
Page 3
Four (4) replacement cards numbered 23642, 23644, 23693 and 23694
are provided. Please remoVe the correspondingly numbered cards
from Deck #6 and insert the cards provided.
Supervisor, Deck #='7
1.

Error Erroneous error message LD3 is typed when loading a
relocatable program stored on the disk such that a three sector
boundary coincides with a cylinder boundary.
Correction

The following changes are necessary to correct the problem:

Page 3 of the listing (Monitor I Relocating Loader) should be changed
F..rom 01200
To

01200

BI

*+12,1700

01006 460101801700

BNI

PATCH, 1700

01006 46 02264 01700

ERR-12,3600
ERR, CNTL+4
DIS

02264 47 01018 03600
02276 43 01030 00924
02288 49 00934

Page 10 of the same listing
Add

04151 PATCH BNI
04152
BD
04153
B'7

Two (2) replacement cards numbered 80007 and 80032 are provided.
Please remove the correspondingly numbered cards from Deck #7
and insert the cards provided.
FORTRAN II-D Processor, Deck #=8
1.

Error Erroneous trailer records are produced when a source
program calls 26 or 93 different subprograms. These records prevent
the loading of the FORTRAN object program.
Correction

The following changes are necessary to correct the problem:

Page 16 of the listing (Phase 1-C) should be changed
From 07730
To

07730

TDM

CADD, 6, 6

0929815 10855 00006

B

SJ0492

09298 49 11652 00000

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 9
Page 4
Page 21 of the same listing
Add

2.

1003D ST0492 C
1003E
BNE
1003F
BTM
1003G
SM
1003H
TDM
10031
B7

CADD,CEND
*+36
OUTADD, 00000
CADD, 3, 10
CADD, 6, 6
HU+34

11652
. 11664
11676
11688
11700
11712

24 10855
47 11700
17 10270
12 10855
15 10855
4909310

10860
01200
00000
00003
00006

Error NEXT COMMON not correctly calculated when COMMON area
extended by array equivalence.
Correction

The following changes are necessary to correct the problem:

Page 8 of the listing (FORTRAN II-D, Phase 1-C) should be changed
From 03720

BNF

*+48, TELSW

05480 4405528 07104

03720

BNF

EXTCOM,TELSW

05480 44 11720 07104

To

Page 21 of the same listing
Add

1003J EXTCOM TF
1003K
S
1003L
eM
1003M
BNH
1003N
TF
10030
B7

*+35, TEMP3
*+23, WDLN
COMADD, *-*
E89010+156
COMADD, *-13
E89010+156
.

. 11720
11732
11744
11756
11768
11780

26 11755
22 11755
1402262
47 05528
2602262
49 05528

03422
02962
00000
01100
11755

Five (5) replacement cards numbered 51441, 51492, 51523, 51524 and
51525 are provided.. Please remove the correspondingly numbered
cards from Deck *8 and insert the cards provided.
After Decks *5, #6, #7, and #8 have been corrected, only these decks
should be loaded to the Monitor I disk pack using Deck *1 (System Loader).

PROGRAM INFORMATION DEPARTMENT

40 Saw Mill River Road
Hawthorne, New York 10532
WHite Plains 9-1900 (Code 914)

ternational B1I8iness lVlachiTle.~ Corporation
March 5, 1965

MEMORANDUNI TO:

Users of IBM 1620 Data Processing Systems

SUBJECT:

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10

This letter transmits Modification No. 10 of the subject program.
material enclosed with this modification consists of the following:

The

Thirty-Nine (39) Correction Cards
Any discrepancies between the material you receive and the items listed
should be reported to the Manager of DP Program Information Department,
IBM Corporation, 112 East Post Road, White Plains, New York.
This program has been registered by type of system and is listed under the
name and address shown on your order. Program modifications as and
when made by IBM will be sent to this same address. Should there be a
change in your type of system or in your address, or should you no longer
require maintenance of this particular program, we would appreciate your
notifying DPD Program Information Department through your IBM Branch
Office.
An Authorized Programming Analysis Report (APAR) should be submitted
through your local IBM Systems Engineer to report any difficulties encountered
in the use of this system. The APAR should be addressed to APAR
Processing, Programming Systems Department, IBM Corporation, Monterey
and Cottle Roads, San Jose, California 95114.

PROGRAM INFORMATION DEPARTMENT
Distribution: SE Managers, CE Managers

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 2
Disk Utility Program (DUP), Deck #3
1.

Error When an SPS program which uses subroutines is stored
Core Image, any constants which are to be stored above 22302
are lost if the program exceeds 20,000 core positions.
Correction

The following changes are necessary to correct the problem:

Page 8 of the listing (1620 Monitor I DUP Routine *SELECTION
Routine Mod. Level 4) should be changed
From 03360

SF

WR2+13

05016 32 02270 00000

03360

SF

WR2+14

05016 32 02271 00000

To

Page 9 of the same listing should be changed
From 03580

B

IOGT, DDA1, 7

05130 49 0056605908

03580

B

FTAPAR, DDA1, 7

05130 49 06468 05908

To

Page 16 of the same listing should be changed
From Not used at this point in execution
To

2.

05791
DORG
05792 FTAPAR BNF
05793
SF
B7
05794

06468
*+24, WR2+14
WR2+13
IOGT

06468
06468 44 06492 02271
06480 32 02270 00000
06492 49 00566

Error The file protecting ability of the DCOPY routine did not function
in some cases and the completion message did not indicate this.

Correction The DCOPY routine has been modified to perform the
file protecting function as specified. The changes are combined with
those under error 3.
3.

Error An erroneous error message printed, indicating that insufficient
availabel storage for the copy was found by the DCOPY routine.
This occurred in cases when the starting sector address for the copy
was located after a program on a cylinder.

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 3

Correction The DCOPY routine was modified to perform the check
of available disk area in the specified manner.
Change the DCOPY listing (DUP) as follows:
Page 6 of the listing should be changed
From 02600
To

02600

BTM

BAK, WKA

04740 17 03268 06227

B

NXTDIM

04740 49 06250 00000

Page '7 of the listing should be changed
From 03130
To

03130

BD

SETFPR, CHGP+'7

NOP

05276 43 06036 05155
05276 41 00000 00000

Page 8 of the listing should be changed
From 03420
03430
03440
To

BNF *+36, STCHG+1
WNTY SAVRO+5
B
*+24

03420
B
03430 FILDEF DSC
03432
DSA
03435
DC
03438
DSC
03440
NOP

From 03620
03630
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730 DUM

TDM
TDM
TDM
TF
TF
TR
TR
TFM
TFM
TF
TD
B7

05488 44 05524 02861
05500 38 05743 00100
05512 49 0553600000

*+36
2,26
RDDIM
1, I
4 ,0

05488 49 05524 00000
05500 00002
055060000502700
0550700001
0550800004
05512 41 00000 00000

DEFIN+1, 6
DEFOUT+1,6
CHGP+7,1
CFINS+11, DUM1+11
CFINS+ 18, DUM+6
RDDIM, SA VWR
RDDIM+20, SAVWR
RDDIM+8,20, 9
RDDIM+28, 20, 9
SAVRO+10, SAVRD+5
SAVRO+5, SAVRD
RDWR, ,0

05762
05774
05786
05798
05810
05822
05834
05846
05858
05870
05882
05894

15 05380
15 05388
15 05155
2605347
26 05354
31 02700
31 02720
16 02708
1602728
2605748
25 05743
49 05252

00006
00006
00001
05913
05900
03756
03756
00020
00020
04813
04808

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 4
From (Cont'd)

To

03740
03750
03820
03830
03840
03850
03860
03870
03880
03890
03900
03910
03920
03930
03940
03950
03960
03970
03980
03990
04000
04010

DUM1
BD
*
*
*
SELECT
SETFPR TFM
AM
CFH
TFM
SFFL
C
BH
PNT
DS
C
BL
TFM
SM
FLAG SF
AM
CM
BNH
B7
*
SETX
TDM
B7

ENDMES, SETX+10, 0

05902 43 05992 06210

03635
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03755
03758

TR
RDDIM,SA VWR
05762
TFM RDDIM+8, 20, 9
05774
SH
SF
SAVCNT-4
05786
FPADR DS
, SH+11
05797
TF
CNTDWN, SAVCNT
05798
TFM RDDIM+13, 10000
05810
SF
BUTTON
05822
,00455
00455
BUTTONDS
BREP TFM IORT, *+23
05834
B
IOGT, FILDEF, 7
05846
TFM FPADR, 10004
05858
SOMMOR C
SAVWR+5, FPADR, 11
05870
*
NUMBER OF SECTORS TO PROTECT
BNH SFPFLG
05882
B7
CONUE
05894

AND FILE PROTECT THE SECTORS COPIED
SFFL+11,INEQU, 7
06036 1606083 ioooo
SFFL+11,4
06048 11 06083 00004
FLAG+l, 41, 10
06060 16 06145 00041
SA VW"R+5, INEQU, 7
06072 24 03761 10000
FLAG-12
06084 4606132 01100
, SFFL+l1
06083
0
WKHICP, PNT, 11
06096 24 06223 06083
SETX
06108 47 06200 01300
FLAG+l, 32, 10
06120 16 06145 00032
PNT, 4
06132 12 06083 00004
PNT, , 6
06144 32 06083 00000
PNT, 105
06156 11 06083 00105
PNT,105*20+INEQU
06168 1406083 i2100
SETFPR+12
06180 47 06048 01100
WRDSKF
06192 49 05288
SETX+10,9
WRDSKF

06200 15 06210 00009
06212 49 05288
31 02700 03756
1602708 00020
32 04308 00000
00000
2606103 04312
1602713 10000
32 00455 00000
00000
1600565 05857
490056605500
16 05797 i0004
24 03761 05797
470608001100
49 00036 00000

1620-1311 Monitor I
Prog-ram No. 1620-PR-025 (Card)
Modification No. 10
Pag-e 5
To

(Cont'd)
03840
03845
03850
03860
03870
03880
03890
03900
03910
03920
03930
03940
03950
03960
03970
03980
03990
04000
04005
04010
04015
04018

4.

06036 11 0579'7 00105
FPADR, 105
06048 14 05797 12000
FPADR, 12000
06060 4606152 01100
WRFPR
06072 49 05870 00000
SOMMOR
06080 12 05797 00004
FPADR, 4, 10
06092 32 05797 00000
FPADR,,6
~
06104 11 0579'7 00004
FPADR, 4,10
SM
CNTDWN,l
06116 12 06103 00001
BNZ CONUE
06128 47 06036 01200
TDM SFPFLG+?,l
06140 15 06087 00001
WRFPR TFM IORT, *+23
06152 160056506175
06164
49 00532 05500
B
IOPT, FILDEF, 7
CF
BUTTON
06176 33 0045500.000
BD
06188 43 05992 06087
ENDMES, SFPFLG+7
. 06200 11 0270500020
AM
RDDIM+5, 20, 10
06212 49 05834 00']00
B7
BREP
CNTDWN DS
0610300000
, SFPFLG+23
DORG 6250
06250
NXTDIM TFM DDADIM+8 ,.DCOPY-200 06250 16 03665 02500
TFM RMCK+11 ,DCOPY-200
06262 1603419 02500
06274 17 03268 06227
BTM BAK ,WKA
B'l
DIMENT+24
062864904752 00000
CONUE AM
CM
BH
B?
SFPFLG 8M
SF

Error When deleting- an entry from the Equivalence Table and
the end of the table is between sectors 05068 and 05079, eig-ht (8)
sectors following- the area reserved for the Table are destroyed
(05080-05087) .
Co::t;'rection

The following- change is necessary to correct the problem:

Page 36 of 1620 Monitor I DUP Routine *DLOAD, *DREPL, *DELET,
Modification Level No. 4
From 1 7120 DONE

TF

HOLD5, CLOSW+5

09542 26 13139 13302

17120 DONE

TF

HOLD5, CLOSR+5

09542 26 13139 13363

To

Twenty-eight (28) replacement cards are provided. These cards
are numbered 11109 thru 11132, 10199, 10589, 10590 and 10608.
Please remove the correspondingly numbered cards from Deck #3
and insert the cards provided.

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 6
Supervisor! Deck #7
ERRATA
Modification No. 9 stated that Page 3 of the Listing (Monitor I Relocating
Loader) should be changed
To

01200

BNI

PATCH, 1700

01006 4602264 01700

PATCH, 1'700

01006 47 02264 01700

This should have stated
To
1.

01200

BNI

Error The correction to the Relocating Loader in Modification No. 9
does not function properly when a cylinder overflow occurs on the
first three sector group read into core.
Correction

The following changes are necessary to correct the problem:

Page 3 of the listing (Monitor I Relocating Loader) should be changed
From 01200
01210

BNI
BI

PATCH, 1 700
CIN, 3800, 6

01006 47 02264 01700
01018 46 01083 03800

01200
01210

BI
BNI

CIN, 3800, 6
PATCH, 1700

01006 46 01083 03800
01018 47 02264 01700

To

Page 10 of the same listing should be changed
From 04151 PATCH BNI
To

04151 PATCH BNI

ERR-12, 3600

02264 47 01018 03600

ERR, 3600

02264 47 01030 03600

Three (3) replacement cards numbered 80007, 80008, and 80032
are provided. Please remove the correspondingly numbered cards
from Deck #7 and insert the cards provided.

..
1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 7
FORTRAN II-D Loader, Deck #9

1.

Error An object FORTRAN subprogram cannot be loaded from
paper tape.
Correction

The following changes are necessary to correct the problem:

Page 4 of the listing (FORTRAN II-D Loader, Block 3) should be changed
From 01740

ClVI

RMCHK+11, INRK+80

04646 14 04625 07480

01740

CM

RMCHK+11, INRK+'75

04646 1404625 07475

To

Page '7 of the same listing should be changed
From 03690

TF

COMSEC+98, INRK+'79

06458 26 07398 07479

03690

TR

COMSEC+94, INRK+75

06458 31 07394 07475

To

Page 4 of the listing (FORTRAN

II~D

Loader, Block 5) should be changed

From 02030

CM

RMCHK+11, INRK+80

04900 14 04879 07480

02030

CM

RMCHK+11, INRK+75

04900 14 0487907475

To

Page 6 of the same listing should be changed
From 02630

TF

COMSEC+98, INRK+79

05500 2607398 07479

02630

TR

COMSEC+94, INRK+75

05500 31 07394 07475

To

Four (4) replacement cards numbered 63156, 63180,63209 and 63217
are provided. Please remove the correspondingly numbered cards
from Deck #9 and insert the cards provided.
FORTRAN Subroutines with Auto Divide, Deck #10

1.

Error I/O subroutines give erroneous error F7 message when
reading leading zeros in some fixed point cases.
Correction

The following changes are necessary to correct the problem:

...

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 8
Page 26 of the listing (Set 1) should "};)e changed
From 12560
To

12560

BNH

IRDIG

04778 47 04882 01100

BL

IRDIG

04778 47 0488201300

Page 1'7 of the listing (Set 2) should be changed
From 08290
To

08290

BNH

IRDIG

09874 47 09978 01100

BL

IRDIG

09874 47 09978 01300

Two (2) replacement cards numbered 52101 and 53134 are provided.
Please remove the correspondingly numbered cards from Deck #10
and insert the cards provided.
FORTRAN Subroutines with Auto Floating Point. Deck #11
1.

Error I/O subroutines give erroneous error F7 message when
reading loading zeros in some fixed point cases.
Correction

The following changes are necessary to correct the problem:

Page 19 of the listing (Set 3) should be changed
From 08680
To

08680

BNH

IRDIG·

04778 47 04882 01100

BL

IRDIG

04778 47 04882 01300

Page 1 7 of the listing (Set 4) should be changed
From 08280
To

08280

BNH

IRDIG

09826 47 09930 01100

BL

IRDIG

09826 47 09930 01300

Two (2) replacement cards numbered 65057 and 66134 are provided.
Please remove the correspondingly numbered cards from Deck #11
and insert the cards provided.

1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 10
Page 9
After Decks 41=3, 41=7, 41=9 and 41=10 or 41=11 (Deck 41=10 for users with
Auto Divide; Deck 41=11 for users with Auto Floating Point) have
been corrected, only these decks should be loaded to the Monitor I
disk pack using Deck 41=1 (System Loader). Note: When Deck 41=7
is loaded, the system communication sector is reinitialized.
Any user changes to this area must be made again after loading
this deck.

,PROGRAM INFORMATION DEPARTMENT

40 Saw Mill River Road
Hawthorne, New York 10532
WHite Plains 9·1900 (Code 914)

ernational Business J1;Jachines Corporation

r.EBRUARY 23, 1966
MEMORANDUM TO:

Users of IBM 1620 Data Processing Systems

SUBJECT:

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 11

This letter transmits Modification No. 11 of the subject program. The conditions
corrected and the changes incorporated in this modification level are:
Correction

Correction or Change Made

Deck 115

1. Subroutine Set 00 will sometimes (Fixed Product
Area Position dependent) calculate erroneous results
for divisors that have at least 2 low order digits
smaller than the corresponding number of high order
digits of the dividend.

Deck 116

1. A DAC or DSAC with a long comments field may.
cause erroneous output and/or unpredictable behavior.
2. There was a typographical error on Modification
Letter number 7, error 2.

Deck #S

1. When the last instruction generated falls at the
very end of memory, a check stop occurs when trying
to load the program.
2. Must be able to classify a FORTRAN statement before
reading the first continuation card.
3. The correction in Modification No.9 concerning
COMMON extended by array equivalence calculates
an incorrect value for NEXT COMMON in some cases
of non-COMMON array equivalence.

Deck 119

1. If local subprograms are to be loaded from both card
or paper tape and the disk, they will not be loaded
properly.
2. If a local subprogram is called from a local subprogram
and there are no in-core subprograms used, the error is
indicated improperly.

J.M)57

.....

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 11
Page 2

Deck #9 (Continued)

3. An incorrect check is made for 7 character local names.

A list of materials distributed with this letter follows:
Item No.

Descri ption

1
2

25 Change Cards
Attachment 1 - Listing of Change Cards
Attachment 2 - Listing of Symbolic Changes

3

Initial requests for this system which are filled after the date of this letter will not include
the cards mentioned above, as these cards will be included in the object deck.
Any discrepancies between the material you receive and the items listed should be reported
to the Manager of DP Program Information Department, IBM Corporation, 40 Sawmill River
Road, Hawthorne, New York 10532.
This program has been registered by type of system and is listed under the name and address
shown on your order. Program modifications as and when made by IBM will be sent to this
same address. Should there be a change in your type of system or in your address, or should
you no longer require maintenance of this particular program, we would appreciate your
notifying DPD Program Information Department through your IBM Branch Office.

PROGRAM INFORMATION DEPARTMENT
Distribution: SE Managers, FE Managers

IBM 1620-1311 MONITOR 1
PROGRAM NO. 1620-PR-025(CARD)
MODIFICATION NO. 11

ATTACHMFNT NO. 1
PAGE NO. 1

LISTING OF CHANGE CARDS (DECK 5)
3100699~4005310049546006040130033004qSOOooolooo000005921S0320053IoooooISo07~2516

THE ONE (1) RFPLACEMENT CARD LISTED ABOVE IS TO BE
INSERTED INTO D~CK 5 RFPLACING THE CORRrSPONnlNGLY
NUMBERED CARD.
LISTING OF CHANGE CARDS (DECK 6)
014Q1360401705G761170026023870329526025710238721025710257115030360000226030'-3283
42023294912332015030360000016120950000t1705S76158642602387U3295140238700051'-3284
OOO*11120190000131029041201~41030420232925030400238725030390238645123321?09'-3289

06060660606060606S060606060660606060606606060606060000000000t2603042023294923y38
11804007023600000005004900000000000188000541052800161057010576251057502329223339
THE FIVE (5) REPLACEMFNT CARDS LISTED AROVE ARE TO Bf
INSERTED INTO DrCK 6 REPLACING THE CORRESPONDINGLY
NUMBERED CARDS.

IBM 1620-1311 MONITOR 1
PROGRAM NO. 1620-PR-02S(CARD)
MODIFICATION NO. 11

ATTACHMENT NO.1
PAr,E NO. 2

LISTING OF CHANGE CARDS (DECK 8)
4800u0043098881007826100931007743027300242415159830000*311513815~3849029180S0004

001403837000244704026012004310440024244410162100934910440016042280465233151S0023
40000003315142000002415143100194609554012004304222024244!t100941009324046521S0024
00000000000000321009300000321514000000321514200000170483600000410383700002450103
90380201704836000004910440055555663005945626316023590977117023241020016023550104
03369000104903744045117880336~4903744044118080336~43041800336§44057400335§3~1421

47230336402962320009500000220009902962210342700099431172003967240340603427451441
22221175502962140226200000470552801100260226211755490552801503967000014903951525
680150396700000490584400140451187611944170903600104160724702219490479~03211;1526

13432000001602359091761702324104100954709567170541610460095470239914095670051861
00004912544015004750000249125560120845600005120845100005491196470703213478051901
THE ELEVEN (11) REPLACEMENT CARDS LISTED ABOVE ARE TO BE
INSERTED INTO DErK 8 REPLACING THE CORRESPONDINr,LY
NUMBERED CARDS.
LISTING OF rHANGE CARDS (DECK 9)
000S94608804011001510264000003302440000003102426024283110509105114913046031S3018
0004559595659005300000*S44149550*001010250765~07383430764407655491301404408S3074

644024264908632000000000000000000000000000000000000000000000000000000000000S3075
511103651000134907232034000000010239070990010039024310010017066560387632036S3195
510000011038340000115025210000017066200392449038080260691302455260744802466!3196
63110594300001160596302533450595200000_9061680_505996000001706692071701105963223
490593201105943000n5110596300005210S94lo2472260~1350S9Sl26061300594!160000063225
07188*011966300107300*2202474*0722106*014444163410*11067~80003049036400000063240

THE EIAHT (8) REPLACEMENT CARDS LISTED AROVE ARE TO BE
INSERTED 'NTO DECK 9 REPLACING T~E CORRESPONDINGLY
NUMRERED CA~DS.

·.

IBM 1620-1311 MONITOR I
PROGRAM NO. 1620-PR-025(CARD)
MODIFICATION NO. 11

ATTACHMENT NO.2:
PAGE NO. 1

LISTING OF SYMBOLIC CHANr,ES (nECK 5 )
CF

07070

BFLG-25,,6

00580 L3 0049 OOOOOCHANnE

LISTINn OF SYMBOLIC CHANGES (nECK 6)
15250
15330
15690 DACR
19570 DAC5
19580
25340

TF
BTM
NOP
TF
B7
BTM

INPUT2+6,ZEPO+29
EVALAD,DAC5,4
INPUT2+6,ZEPO+29
INPUT2+6,ZEPO+29
DAC+36
CSORN,IOG+136

11748
11792
12156
15864
15876
14076

26
17
41
26
49
17

03042
05076
03042
03042
ll804
05690

02329
15864
02329
02329

CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
J4556 CHANGE

LISTING OF SYMBOLIC CHANGES (DECK 8 )
00860
02150
02l7l
02180
02430
02520
03720
09321
09322
09323
09324
09325
09326
09327
09328
1003 P
1003Q
1003R
1003S
26300
28891
28892
28893

TF
E87420 BNR
COMSW OS
BNF
BNF
BNF
8n
EQONCC SF
SF
SF
BTM
NOP
B7
DOCCTU BTM
87
COMSET TOM
87
NONCOM TOM
87
B
EOPAT SM
SM
87

SUBSW+1,ZER13+2
COMSET,MODAD,l1
,*-1
NONCOM, t400AD, II
DOCCTU,SUBSW+l
EQONCC,SUBSW+1
EXTCOM,COMSH
SUBSW+1
CHI+1
CHI+3
CKCNTU,0,10
DECODE+35,2,10
DJ:CODE
CKCNTU,0,10
ASCAN
COMSW,l
E87420+20
COMSW,O
E89820
EOPAT
NEXT,5,10
LNGAD,5,610
EOJP

02674
03948
03967
03968
04118
04210
05480
10094
10106
10118
10130
10142
10154
10162
10174
11788
11800
11808
11820
10398
13432
13444
13456

26 10093 10077
45 11788 0336R
0
44 ll808 0336R
44 10162 10093
44 10094 10093
43 ll720 03967
32 10093 00000
32 15140 00000
32 15142 00000
17 04836 000-0
41 03837 000-2
49 03802
17 04836 000-0
49 10440
15 03967 00001
49 03968
15 03967 00000
49 05844
49 13432 00000
12 08456 000-5
12 0845J 000-5
49 l1964

CHANGE
CHANGE
ADD
CHANGE
CHANGE
CHANGE
CHANGE
ADD
ADD
ADD
ADD
ADD
ADD
·ADD
ADD
ADD
ADD
ADD
AnI)
CHANGE
ADD
ADD
ADD

~BM 1620-1311 MONITOR I
PROGRAM NO. 1620-PR-02S(CARD)
MODIFICATION NO. 11

ATTACHMFNT NO. 2
PAGE NO. 2

LI STI NG OF SYMBOLIC CHANGES (DECK 9)
00930
01030
01050
01660
03060
03090
03180
03891
03892
04681
04682

B

TOM
B
B
COMPRE BNR
COM PAR BNR
B
ENOl
BNF
B7
PATCH1 AM
B

PATCHl
NOOATA,O
INC13
ENOl
COMPAR
SERCH
COM PRE
RCMKCK+12,NUMBUF-15
RCMKCK
lNKPTR,30,10
ENOTST

03820
03900
03924
08840
05932
05952
06056
13046
13058
07232
07244

07232
02521
03808
13046
05952
05996
05932
08644
08632
11 06758
49 03640

49
15
49
49
45
45
49
44
49

CHANr';E
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
ADO
ADD
OOOlO CHANGE
00000 CHANGE

00000
00000
00000
00000
00000
00000
00000
02426

40 Saw Mill River Road
Hawthorne, New York 10532
WHite Plains 9-1900 (Code 914)

ernational

/11 achin.es Corporation

October, 1966

MEMORANDUM TO:

Users of IBM 1620-Data Processing Systems

SUBJECT:

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 12

This letter transmits Modification No. 12 of the subject program. The
conditions corrected and the changes incorporated in this modification
level are:
Correction

Correction or Change Made

Deck #3

1.
The terminal:f in the Sequential Program
List is not detected properly when attempting
to load a program when the monitor pack has
insufficient room.

2.
The flagged zeros after the =1= in the
S. P. List cometimes interfere with finding
the:t= .
Deck #7

1.
FORTRAN subroutines assume the arithmetic overflow to be unchanged after return
from an IORT call.

+

2.
#XEQ or #XEQS operations are not
performed after :f=DUP *DLOAD and spurious
message "ERROR IN FIELD" at col. 27 is
listed.

1M487

IBM 1620-1311 Monitor I
Program No. 1620-PR-025 (Card)
Modification No. 12
Page 2
A list of materials distributed with this letter follows:
Item No.

"Description

1
2
3

13 Change Cards
Attachment 1 - Listing of Change Cards
Attachment 2 - Listing of Symbolic Changes

Initial requests for this system which are filled after the date of this letter
will not include the cards mentioned above, as these cards will be included
in the 0 bj ect deck.
Any discrepancies between the material you receive and the items listed
should be reported to the Manager of DP Program Information Department,
IBM Corporation, 40 Sawmill River Road, Hawthorne, New York 10532.
This program has been registered by type of system and is listed under
the name and address shown on your order. Program Modifications as and
when made by IBM will be sent to this same address. Should there be a
change in your type of system or in your address, or should you no longer
require .maintenance of this particular program, we would appreciate your
notifying DPD Program Information Department through your IBM Branch
Office.

PROGRAM INFORMATION DEPARTMENT
Distribution: SE Managers, FE Managers

IBM 1620-1311 MONITOR 1
PROGRAM NO. 1620-PR-025(CARD)
MODIFICATION NO. 12

ATTACHMENT NO. 1
PAGE NO. 1

LISTING OF CHANGE CARDS (DECK 3)
5102759320315To0000120275900001260276402759330315TOOOO014027720000016033310T0222
263746033080120014027720000116033310266046033080120014027720000216033310268T0223
346033080120016033310270616005650333149005320263749033880110280700001310280T0224
10348T260275903151490360402706160056503411490056602729421502855000044902884T0225
28010348T4903340031511102759000032602759027943303151T9880110315100004330315T0228
. 40000026027720009416049050263725026460432146048820120014000940000T160490502T0243
660250266904321460488201200140009400002160490502683250269204321460488201200T0244
16049050270625027150432116005650490549005660000049044}002604949031511104949T0245
000053304949000001104949000013304949000004904470047002603187045203204520000T0246
000011502909000011602926049141604284T442449038380240276405692461478801300 14T0546
THE TEN (10) REPLACEMENT CARDS LISTED ABOVE ARE TO BE
INSERTED INTO DECK 3 REPLACING THE CORRESPONDINGLY
NUMBERED CARDS.
LISTING OF CHANGE CARDS (DECK 7)
44070220285449095500160958607045491124607813430741809730440707809730490948280141
43112260025532002850000031000001124649000000150042800000490913800261160191780197
10063500002110064200002140063500620470062401100250102800440440074000455490080200
THE THREE (3) REPLACEMENT CARDS LI STED ABOVE ARE TO BE
INSERTED INTO DECK 7 REPLACING THE CORRESPONDINGLY
NUMBERED CARDS.

IBM 1620-1311 MONITOR 1
PROGRAM NO. 1620-PR-025(CARD)
MODIF ICATION NO. 12

ATTACHMENT NO. 2
PAGE NO. 1

LI STI NG OF SYMBOLI C CHANGES ( DECK 3 )
01690
TFM
I)E
01700
CM
01710
TFM
01720
I)E
01730
01740
eM
TFM
01750
I)E
01760
01770
TFM
01780 WRTSPO TFM
I:)
01790
01800
67
AM
01810 PATXX
01820
TR
01830
TF
01840
87
02180
8
TFM
03380
03390
TO
03400
BE
03410
CM
03420
TFM
03430
TO
03440
BE
03450
CM
03460
TFM
03470
TD
03480
BE
034~0
TFM
03500
TO
03510 REDSPO TFM
03520
6
03530
B7
03540 REM
TF
03550
AM
0:3560
CF
03570 CLFLG DC
03580
AM
03590
CF
03600
67
TFM
25850

WRTSPO+23,PKODDA
WRTSPO
PACK,01,1011
WRTSPO+23,PKIDDA
WRTSPO
PACK,02,1011
WRTSPO+23,PK2DOA
WRTSPO
WRTSPO+23,PK3DOA
IORT,*+23
IOPT, *-*
WHYNOT
CONST2,1,10
CONST2,TIPSY+l1,611
CAL C2 , S P LC OR
NERR+24
PATXX
REDSPO+23,PKODOA
SPLPKO+l,CLEVER
REDSPO
94,1,1011
REDSPO+23,PKIDOA
SP LPK 1+ 1, CLEVER
REDSPO
94,2,1011
REOSPO+23,PK20DA
SP LPK2+ 1,C LEVER
REDSPO
REDSPO+23, PK300A
SPLPK3+1,CLEVER
IORT,*+23
IOGT ,*-*
SPUNI
ClFLG, SPlCOR
CLFlG,05,10
ClFLG,,6
5,0,*
ClFLG,01,10
CLFLG" 6
SPLINI
Cl I PPP+42, R EM

03200
03212
03224
03236
03248
03260
03272
03284
03296
03308
03320
03332
03340
03352
03364
03376
03592
04726
04738
04750
04762
04774
04786
04798
04810
04822
04834
04846
04858
04870
04882
04894
04906
04914
04926
04938
04949
04950
04962
04974
14392

16
46
14
16
46
14
16
46
16
16
49
49
11
31
26
49
49
16
25
46
14
16
25
46
14
16
25
46
16
25
16
49
49
26
11
33
11

33
49
16

03331
03308
02772
03331
03308
02772
03331
03308
03331
00565
00532
03388
02807
0280P
02759
03604
03340
04905
02646
04882
00094
04905
02669
04882
00094
04905
02692
04882
04905
02715
00565
00566
04470
04949
04949
0494R
-0000
04949
0494R
04470
02926

-2637
01200
OOO-J
-2660
01200
OOO-K
-2683
01200
-2706
-3331
00000

°000-1
0348J
03151
-2637·
04321
01200
OOO-J
-2660
04321
01200
OOO-K
-2683
04321
01200
-2706
04321
-4905
00000
0
03151
000-5
00000
000-1
00000
0
-4914

CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE

LISTING OF SYMBOLIC CHANGES ( DECK 7 )
03100
15480
20320 AB07
20330

CM
6
TOM
B7

TE S T+ 11 , I NDS+ 10
AB07,MXQ50,7
LDINPT,O
UTI0

00672
07034
11246
11258

14
49
15
49

00635 -0620 CHANGE
11246 -7813 CHANGE
00428 00000 CHANGE
09138
CHANGE
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:04 10:12:33-08:00
Modify Date                     : 2014:03:04 09:59:56-08:00
Metadata Date                   : 2014:03:04 09:59:56-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:2536efcd-4994-4d42-8e4a-3234eef31201
Instance ID                     : uuid:b68b3e79-237b-714a-b38f-2b042fcdf5a9
Page Layout                     : SinglePage
Page Mode                       : UseOutlines
Page Count                      : 737
EXIF Metadata provided by EXIF.tools

Navigation menu