1620 PR 029_1620_Monitor_II_Listings_and_Flowcharts_Version_2 029 Monitor II Listings And Flowcharts Version 2

1620-PR-029_1620_Monitor_II_Listings_and_Flowcharts_Version_2 1620-PR-029_1620_Monitor_II_Listings_and_Flowcharts_Version_2

User Manual: 1620-PR-029_1620_Monitor_II_Listings_and_Flowcharts_Version_2

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

Download1620-PR-029_1620_Monitor_II_Listings_and_Flowcharts_Version_2 1620-PR-029 1620 Monitor II Listings And Flowcharts Version 2
Open PDF In BrowserView PDF
1620 Monitor II Listings and Flowcharts (Version 2)

l620-PR -029
1620-PR -030

PAGE

1620-U11 SUPERVISOA AND ID~T II

......

SYSTEM COMMON
00020
00030
DDRG "02
OOOitO DIMENT DSC 1.0.,
0
DSA 0
00050

00402
00402

DDA FOR LOADE~ CALLS.

00401

00060

DC

3.0

00401
00410

00010

-00
OSA

0

00H5

-0000
3
X
-0000
6

00H5
00U1

6,0' •
DC
-0000'
OSC 1.1.,
1
3.0
00100 SRElOC DC
-00
00110 SFDINT OSC 1,0.,
0
00120 CINIT OC
1.0"

00080

00422

DISK SCRATCH AREA DEFINER.

00090

00"25

OOllO LDINPT DSC
1,0"
0
00140 FSPS
DSC 1,0"
0
00150 H[GH
DC
5,0"
-0000
5.0 ..
00160 LADDR DC
-0000
1,1 ..
00170 18MMOD DSC
1
00180 OLDDA DSC
15,0' "
00000000000000'
OVERLAY READ ROUTINE
00190
XX,XX,02,
H
00200 HALT
IBMMOD,101"
00210 OVRLAY 34
[8MMOD,102,O
00220
16
BI
HAl'.1 '900 ..
00230 8NI
18MMOO+13, ,6,
00240
B
ilORG 0-9
00250
DSA 20
00260

SPS. FORTRAN. ANO DUP CNTl CARO SOURCE.

00426

LAODR INITIALIZATION INOICATOR.

00421

LOADER ENTRY CODe AND INPUT DEVICE.

00428

LOAD SUP IND. AND MONITOR CNTL CARD SOUR.

00429

H[GHEST ADDRESS LOAOED PLUS ONE.

0043-4

LOADER INPUT BUFFER VECTOR.

00419

DR[VE CODE FOR SYSTEM MODULE.

00440

TRANSMIT HEADLESS DDA-S HERE FOR DVRLAY.

00441

RESET AND SURT UPON OVERLAY ERROR.
SEEK AND READ OVERLAYING PROGRAM.

00456
0046B
00480
00492
0050'0
00506
00510

HALT [F IND. 1900.
8RANCH TO [TS FIRST LOCATION.

15
M8
34
L6
46
"9

00350
00360

X

MA[ N IORT ROUT INE.
10RBC. 10PT, 10SK. AHD 10GT.
ENTR[ES ARE
FILE OESCRIPTOR AND RETURN ADDRESS VECTOR [S IOU.
DRIVE REPOSITION lAaLE
DORG 8NI+20
2,0
DC
-0
2,0
DC
-0
2,0
DC
-0

00512
00513
0051'>
00511

1620-1111 SUPERVISOR AND [ORT [ I
00310
00380
00390
00400
00"10
00"20
00430
004'00
00'050
00460
00410
00"80
00'090

......
'

10RBt
10PT
[aSK
IOGT

ERRET
[!'fOS

00500
00510
00520

DC

PAGE

2,0

00519

ENTRY SECTION
TOM 010P+47,1,11.
TFM DF[LE+ll, THU2,B,
10GT+ 12
B
DDRG 0-1
SF
-,XX ••
TFM OFILE+ll.TH ..
TFM BKPT,X01"
8[
ERROR ,1900,11

8

BKPT,,16,

DDRG 0-'0
2,06,.
DC
-6
2,01
DC
-1
2,16
DC
J6
2,11
DC

PUT ENTRY WITH READ
PUT ENTRY.

8AC~

CHECK.

00520
00532
005"4
00554
00554
00566
00518
00590
00602
00609
00610

SEEK ONLY ENTRY.
GET ENTRY.
TURN OFF ANY I/O INDICATORS.
WHITHER WANDEREST THOU. WAYFARER.

ERROR I!'fOICATOR TA8LE.

02067
01945
00518

OOOOJ
OJ168
00000

12
16
16
'06
4R

00554
01945
00461
00630
0046P

00000
-1156
-1850
019000000

00614
00616

Jl
DC

2,36

00618

00540

2,31

00620

00550

11
DC

2,38

00622

00560

LB
DSC

I, '

00623

DSC
0
DSA

15
16
49

00612

L6
DC

00562 I !'fOur

2

-0

00530

00561

1,0

00624

CHECK-12

00629

5 X

00629
00510
00580
00590
00600
00610
00620
00640
00650
00660
00610
00680
00690
00100
00110
00120
00730
00140
00150
00760
00710
00180
00190

ERROR I NO[CATOR SCANNER ROUTINE.
[NIT[ALIZE FOR CURRENT [NO[CATOR.
*+21,INOS.1.
*.21t,XX,.
TEST I F INDICATOR ON.
ERROR+ll.,6,
YES -SET FLAG INDICATOR.
ERROR+ll,2.lO,
ADVANCE ADDRESSING.
TEST [F FINISHEO
80
ERROR,ERROR+11,11.
OlODA,
ECAlL.,
YES
-SET UP CALL TO THE ERROR ROUTINE.
TR
8
OVRlAY",
DORG 716
CAll LINK AND CALL LOAO ENTRY
0
SIMULATES AN [OGT ENTRY FOR SPS -CALL- PSUEDO-OP.
SET READ [NO[CATOR.
lOCAL
TFM OFILE+ll,TTl,.
MOVE FILE DESCR [PTOR.
TR
CNTWD,10XX,l1.
PUNCH THE TIME CLOCK.
TF" BKPT,XOl+48 ••
IOXX,9,.
COMPUTE RETURN ADDRESS.
AM
BNF ERRET-12.CNTWO+7
AM
JOXX,4
EXECUTE ANY IND[CATOR CHECK.
8
ERRET-12".
OORG 0-]
MON[TOR CALLER (THROUGH MONITOR RETURN ROUTINE. I
MONCAL TR
OLODA .MDDA
TURN INDIRECT ON
BSIA OVRlAY",

ERROR

00000
00101
00102
01900
00000

-0020

00510
00210
002BO
00290 0
00300 0
00110
00320
00330 REPOS
003'00

-0000
00440
00440
00456
0045L

TF
BNI
SF
AM

2

-1256

00610
006"2
00654
00666
00618
00690
00702
110716

26
't1
32

00716
00728
007'00
00752
00764
00176
00788
00796

16
31
16

00796
00B08

11
43
31
49

II
H

11
'09

31
60

00651
00666
0064J
00641
00630
00441
00468

-0610
00000
00000
000-2
0064J
0119]
00000

01945
02110
00461
00565
00590
00565
00590

-1756
0056N
-189B
-0009
02117
-0004
00000

00441
00'068

01179
00009

00810
00820
00830
00840
00850
00860
01030
01040
01050
01060
01070
01080
01090
01100
01110
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00910
00980
00990
01000
01010
01020
01120
01130
01140
01150
01160
01110
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360

......
DID

CHKI

OlDY

0101

DIOX

X03

OIOZ

GTEST

......
X04

CHK2

PAGE,

1620-Ull SUPERVISOR AND 100T II
DISK FILE 110 PREPARATION SECnDN
TO
OIOP+l,OFILE+ll,II,SET LOM ORDER DIGIT OF 0' CODE.
-+3,.CNTWO,.
TO
DECODE SCRATCH AND HIGH UPDATE
CF
0+23,OIOP+102"
INDICATOR.
DIOP+7,ERRET-2
TO
8NF 010I,CNTWD+2 ..
TEST IF DIM NUMIIER SUPPLIED.
IIAPENT,CNTNO+6,l1, MOYE DOlo 'TO WORK I NG SLOT.
TR
80
TEST FOR SECTOR SCRATCH RELOCATION.
DIOY,DIO'+7"
A
MAPENT+3, SRELOC"
VE S -COMPUn ABSOLUTE SECTOR ADDRESS.
TO
IIAPENT, SRELOC-3"
GET ITS LOGICAL DRIVE CODE.
8NF DIOZ-12,IOSK"
TEST IF SEEK ONLV DESIRED.
CF
tOSK •••
YES -CLEAR THE INDICATOR.
TFM SKOlt,IOXX,l11,
PERFORM THE SEEK AND EX IT •
8
SEEK
DORG '-3
TR
YES ~COMPUTE SECTOR TO READ.
MAPENT,IIAPSCT"
A
MAPENT+6,CNTWD+6
A
IIAPENT+6,CNTWD+6
TFM SK04,DIOX"
SEEK THE MAP ENTRY.
B
SEEK
DORG '-3
TO
DIOP+9",IIAPENT+6, , READ SLOT FOR 0111 ENTRY 10,20,40,60,801.
TOM MAPENT+6,O,l1,
RESTORE SECTOR COUNT '-0011
TFM BKPT,X03"
PUNCH THE TIME CLOCK.
)6
READ THE DESIRED MAP ENTRY.
MAP,ENT ,102"
B
EXECUTE ERROR TEST.
ERRET-12" ,
DORG '-4
MAPENT,DIDP+95.011, MOYE DIM ENTRY TO MORKING SLOT.
TR
8NR DIOY,MAPENT"
TEST IF VALID DIM ENTRY.
8
ERROR+60. , t
NO -GO TO THE ERROR ROUTINE.
DORG '-3
BRANCH IF GET ENTRY.
8NF GTEST ,OFILE"
SET MODE DIGIT.
TO
DIOP+U,CNTNDH"
PERFORM THE SEEK.
TFM SK04.DIOP ..
SEEK
B
DORG ·-3
MAPENT+13,99999,,
CM
TEST IF RELOCATABLE LOADER REQUIREO.
0+24,1200
BI
NO -TEST IF SPS SUPERY ISOR REQUIRED.
BNF DIOl,MAPENT+13"
TR
YES -READ AND EXECUTE CALLER.
OLODA,RCALL"
DYRLAY
8
DORG '-3
POST 01 SK 110 HOUSEKEEP ING SECTION
CF
CLEAR POSSIBLE USERS ERROR TRAP IND.
DIO'+98., ,
BRANCH I F GET ENTRY.
INF CHK2,DFILE"
TOM DIOP,+41,O ..
KILL POSSIBLE RIC INDICATOR.
INF IOxx,CNTWD,6,
EXIT IF NO REPOSITIONING REQUIRED.
DRIVE ,.REPOS-OLDCY "COMPUTe A SECTOR ADDRESS FROM THE
AM
REPOSITION CONSTANT.
TOM MAPENT+1,O,U,
TF
M"PENT+3,DRI¥E,11
CF
MAPENT+2
A
MAPENT+3,DRIVE,ll
RESTORE THE LOGICAL DRIVE CODE DIGIT
TO
IIAPENT, TEMP-5"
DIOY+24
B
DORG .-]
BNF CHK3,DIOP+1"
TEST IF HIGH INDICATOR TO BE UPDATED.

00820
00132
00844
00l!l6
00. .8
008BO
00892
00904
00916
00928
00940
00952
00964
00912
00912
0098"
00996
01008
01020
01028
01028
01040
01052
01064
01016
01083
01084
01096
01108
01116
OU16 '

25
25

33
25
44

02021
00867
00867
02027
00972
02144
00928

0194N

02170
02122
00600

02172

16
49

02144
01116
00554
02143
01500

02170
02027
00425
00422
00554
00000
-056N
00000

31
21
21
16
49

02144
02150
02150
02143
01500

01835
02116
02176
-1028
00000

25
15
16
)6
49

0211"
02150
00461
02144
00590

02150
0000-108"
00102
00000

31

02144
00928
00690

02 11M
02144
00000

01160
02031
01500

01934
02171
-2020
00000

02151
01196
01128
00441
00468

R9999
01200
02157
01801
00000

15
26
33
21
25
49

02118
01344
02061
0056N
02169
02145
02147
02146
02147
02144
00952

00000
01934
00000
02110
-161R
00000216R
00000
0216R
02014
00000

44

01380

02027

01356
01368
01380
01392
01404
01412
01412
01424
014]6
01448
01460
01412
01480

26
21
44
31
49

00H4
00"32
01412
00441
00468

02157
02152
00468
01821
00000

44
26
45
16
49

01240
00462
00565
01240
00565
01240

02111
00565
-216K
02158
-215P
00000

01480
01492
01500
01500
01512
01524
01536
01548
01560

25
49

02014
01608

02U4
00000

16
26
33
21
21
21
4]
21
11
16
21
25
43
16
49

02014
02019
02015
02019
02019
02019

000-0
02149
00000
02019
02019
02149
02144
02014
000-1
-2123
02014
0216R

01128
01140
DU52
01160
01160

01112
01184
01196
0120B
01216
01216
01228

01240
01252
01264
01216
01288
01300
01312
01324
01336
01344
01344

3J

43
21
25
44

33

4~

49
4~

25
16
49
14
46
4~·

31
49
33
44
15
44

11

02147

02143

3
1620-1311 SUPERVISOR AND 10RT II
01310
01]80
01390
01400
01410
01420
01430
01440
01450
01460
01410
01480
01490
01500
01510
01520
01530
01540
01550
01560
01510
01580
01590
01600
01610
01620
01630
01640
01650
01660
01670
01680
01690
01100
01710
01720
01130
011"0
01150
0116D
01170
01780

CHK3

CHlt4

......
•
•
SK01

SEEK

"

SK02

SKO)

01790
01800
01810
01820
01830
01840
01850
01860

PAGE

TF
HIGH,MAPENT+U"
YES.
A
HIG~2,MAPENT+8
BNF CHK4, SP SMLP"
TEST IF SPS IIAIN LINE PROGRAM.
TR
DLODA,SUPRET ..
YES -GET ROUTI NE TO HANDLE.
B
OYRLAY
DORG '-3
8NF X04+24,C.NTWD+1"
TEST IF EXECUTION DESIRED.
TF
HALT+6,IDXX"
YES -SET UP THE EXIT.
TFM 10XX,MAPENT+18,l11
BNR X04+24,MAPENH14
TFM IDXX,M"PENT+l),711
X04+24
B
DORG '-3
SEEK ROUTINE
-SEEKS WHEN NECESSARY, COMPUTES PHYSICAL
DRIVE CODE CORRESPONDING TO USER SUPPLIED DRIYE CDDE, AND
UPDATES CURRENT 110 CYLINDER POSITION INDICATOR.
TO
TEMP-5, MAPENT ..
INSERT SUPPLIED DRIYE CODE.
SK02
B
DORG '-3
TFM TEMP-5,O,10,
COMPUTE CYLINDER FOR THIS CALL.
TEMP,MAPENT+5
TF
CF ' TEMP-4
A
TEMP,TEMP
A
TEMP,TEMP
TEMP,MAP.ENT+5
BD
SK01,MAPENT"
TEST FOR SPECIFIED ORIYE CODE.
TEMP-5, TEMP-5 ..
NO -MUST BE COMPUTED.
AM
TEMP-5,I,10
TFM DRIYE,EQUIY"
COMPUTE LOCATION OF PHYSICAL DRIYE CODE.
A
DRIVE,TEMP-5
TO
MAPENT ,ORI VE,Il,
REPLACE LOGICAL DRIVE CODE BY PHYS ICAL.
BD
.+32,MAPENT ••
ERROR IF NO PHYS ICAL DRIVE CODE.
TFM BKPT,SK02
ERROR+60,. ,
B
TELL THE OPERATDR A THING DR TWO.
DORG '-3
AM
DRIYE,OLDCY-EQUIY"GET OLD CYLINDER POSITION.
TEMP-it, ,.
SF
COMPARE WITH DESIREO CYLINDER.
C
TEMP-30DRIYE,1l
BI
SK04,12DO,6,
TEST IF THE SEEK IS NECESSARY.
34
MAPENT, 701"
YES -PERFORM THE SEEK.
TF
DRIVE,TEMP-3,6,
UPDATE OLD CYLINDER POSITION.
5K,0,,",,6.
B
RETURN TO CALLER.
DORG '-4
CONSTANTS AND DDA-S
DC
TABLE OF NON-DISK 110 MODE AND OEVlce
2,16"
J6
2,36.,
SPECIFIERS.
OC
L6
2,56
DC
N6
2,11
DC
Jl
DC
2.37
L7
2,57
OC
N7

TTl

"

,

01512
01584
01596
01608
01620

01632
01644
01656
01668
01616
01616
01688
01100

01712
01724
017'36

01748

16

11
32
24
46
34
26
49

01480
0201'0
02014
02169
02169
0214'0
01676
00461
00690
02169
02015
02016
021'oL
02144
0216R
0214L

01755
01756

2

01758

2

01160

2

01762

2

01764

2

01766

2

02144
-1608
00000
-0008
00000
0216R
01200
00101
02016
00000

4

1620-1311 SUPERVISOR AND IIIRf II
01810
01880
01890
01900
01910
01920
01930 MOOA
01940
01950
01960
01910 ECAll
01980
01990

DC
J8
DC
X8
DC
118
DC
J9
DC
X9
DC
M9
OS
OSA

01768

2
2

2.28

01110

2.48

01172

2.19

01174

2.29

01176

2

2.49

Of178

2

0,*+1

01719
01783

0
5 X

DSA19

DC
3.3
-03
DC
6,0'
-0000'
OS
0,-+1
OSA OSAIO
DC
-12
DSA

02000

PAGE

2.18

01183
01786

J9795
3

01192

6

01193
01197

0
5 X

3.12

01797
01800

ERROR

01805
01805
01806

02010

OSC

1,',

02020 RCALL
02030

OS
DSA

DSA15

0.*+1

J9149
3
X
-0630
1

01801
01811

0
5 X

01811
01812

02040

J9183
1

DSC 1.0
0
02050
DC
2.3
-3
02060
DC
6,0'
-0000'
02010 SUPRET OS
0.·+1
02080
DSA DSA17
02090

01825
01828

J9710
3

01834

6

DC
3.2
-02
02100
DC
6,0'
-0000'
02110 MAPSCT OSC 1.1
1
02120
DSA 4800
02130

DSC
001

01814

2

01820

6

01821
01825

0
5 X

01835

3.1

01840

5

01840
01841

-4800
3

01849

6

5
PAGE

1620-1311 SUPERVISOR A"O 10RT II

DC
6,0'
-0000'
02150
CIIITlNUATION OF ENTRY SECTION
02160 XOI
TFl *.35,IOXX,11,
MOVE FILE DESCRIPTOR TO CNTWD.
02161
MA
*.23,IOXX,11.
COMPLETE MOVE
TR
02170
CNTIIO.XX
02180
AM
COMPUTE RETURN ADDRESS.
10XX.l ..
02181
MF
IIF MOVE FLAG AND CLEAR
OFILE.DFILE+8 ••
02190
BRANCH IF DISK 110. BNG
SNG DIO.CNTIID+1 ••
A
02200
OFIlE+11.CNtWD+6 •• "0 -BUILD NON-DISK 110 INSTRUCTION.
02210 OFILE TF
IOP+I0.XX
02220
TO
IOP+l.IOP+10
110 SECTION
02230
022'\0 lOP
CNTWD+4, xx, 06.
CONSTRUCTED NON-DISK 110 INSTRUCTION.
30
TEST FOR ANY 110 ERROR.
02250
BI
010P+60.1900 ..
02260
TFII BKPT.X03 ..
PUNCH THE TIME CLOCK.
02210
BNR IOXX.CNTIIO+4.0611. NO -TEST FOR AN INITIAL RECORD MARK.
ERROR_60 •••
YES -EXECUTE CONTROL CARD TRAP ROUTINE.
022BO
B
02290
ODRG --4
02540 TEMP
1,0 ..
SCRATCH FIELD FOR SEEX ROUTINE.
DC
-000000
02300 OIOP
30
MAPENT.700.010.
CONSTRUCTED DISK 110 INSTRUCTION.
02310
SNF *+36,-+35,.
IF INDICATED. DO AN RBC.
02320
S
"23.010P+1I
02330
36
"APENT.700.10
02340
PROCEED I F NO ERROR.
8141 XO" 01 900 ..
ERROR -PUNCH THE TIME CLOCK.
02350
TFM BKPT.X04 ..
02360
BNF ERROR.-+26 ••
BRANCH TO ERROR SCANNER OR USERS
02310
CF
ERROl! ROUTINE.
*.IIt.XX ..
02380
XX
B
02390
ODRG --"
02400
DRIVE EQUIVALENCE AND POSITION TABLES
02410 EQUIV OS
0.-.1
DC
201
02"20
-1
02HO
DC
2.0
-0
02440
DC
2.0
-0
02450
DC
2.0
-0
02460 OLOCY OS
0.-+1
02470
DC
2.0
-0
024BO
DC
2.0
-0
02490
DC
2.0
-0
DC
2.0
0250,0
-0
02510
SYMBOL DEFI~ITID~S AND WORKING STORAGE
SEEK ROUT I NE RETURN ADDRESS VECTOR.
02530 SK04
DC
5.0 ..
-0000
STORAGE FOR WORKING OOA.
02520 MAPENT DSC 21 .. 0. ,
000000000000000000000
5,0,.
VECTOR TO MUDULE TAHlES.
02550 DRIVE DC
-0000
02140

......

01850
01862
01874
01886
01898
01910
01922
01934
01946

06
70
31
11
55
21
26
25

01885
01885
02170
00565
01934
00820
01945
01968
01959

0056N
0056N
00000
-0001
01942
02177
02176
00000
01968

01958
01910
01982
01994
02006
02013
02019

LO
46
16
M5
49

021114
02080
00461
0056N
00690

00000
01900
-10B4
0217M
00000

02020
02032
02044
02056
02068
02080
02092
02104
02116
02123

LO

02144
02068
02061
021"4
01216
00467
00630
02118
00000

71

1
~4

22
36
41
16
44
33
49

02123
0212"

0
2

02126

2

02128

2

02130

02132

02131

0
2

02134

Z

02136
02138

2

02141

6

02144

21

02169

5

007-0
02067
02031
007-0
01900
-1216
02118
00000
00000

6

1620-1311 SUPERVISOR ANO 10RT I I
02560 CNTWD
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02610
026BO
02690
02700
02710
02720
02730
02740
02750
02760
02170
02780
02190
02800
02850
02860
02820
02830
02840
02810
02810
02880
02890
02900
02910
02920
02930
02940
02950
02960

xx
10XX
BKPT
SYSORG
SYSCAl
NONEX
SPSMlP
RMI
RM2
SUPENT

CUMM
MCOMM
MCCBUF
MCYL
OSAOO
DSAOI
OSA02
OSA04
OSA06
OSA01
OSA08
05A09
05AI0
OSAll
OSA 16
05A17
OSA13
OSAl4
OSAI5
OSA12
OSA18
OSAI9
OSA20
OSA21
USA39
DSA40
OSA50
OSA51

02970

02980

OSC
13,0. t
0000000000000
OS
0.0 ••
OS
0, tOSk+ll ...
OS
O,HAlT+ll ••
OS
0.2,,"02.,
OS
O,QYRlAY+7 ••
OS
Q,HALT+l"
OS
O,OVRlAY, ,
OS
0.2210"
OS
0,2215,.
0,2934.,
OS
OS
Q.SYSORG+400"
OS
O,CO""+50,.
OS
0,13000"
OS
0,98"
OS
O,200*MCYl, .,
OS
O,OSAOO+35 ..
OS
0,OSA01+1"

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OORG
DSC
1
DSA

PAGE

STORAGE fOR CALLING SEQUENCE RECORD.

02110

13

INDICATES USED FIELD OR UNDEFINED SYM80L
CALL AND RETURN VECTOR.
INDIRECT RETURN BRANCH ADDRESS
o8JECT PROGRAM STANDARD ORIGIN.
SYSTEM PROGRAM COMMUNICATION DIGIT.
NON-EXECUTE IND. SET BY SPS, ETC.
SPS SUPERVISOR FLAG WHEN MLP LOAD REQUEST
INDIRECT VECTORS TO SET RECORD MARKS
FOR THE SPS SUP. AFTER MLP LOAD.
ENTRY TO THE SPS SUPERVISOR.
LOCATION OF COMM SECTOR IN MONITOR.
MONITOR INOS. IN THIS SECTOR
MONITOR CNTL CARD READ 8UFFER.
MONITOR CYLINDER
FIRST SECTOR IN MONITOR CYLINDER
LOAOER RETURN ANAL YZER
STAGE 2
ARITHMETIC TABLES.
COMMON AND OVERLAY READ ROUTINE
MAIN 10RT
RELOCATA8LE LOADER CORE SAVE AREA
MONITOR
NAME 0 LOAD Roun NE STAGE
ERROR ROUT! NE STAGE 0
ERROR ROUTINE
STAGE 1
LOADER CALLER STAGE 2
SPS SUPERVISOR RETURN ANALTZER
ERROR ROUTINE STAGE 3
ERROR ROUTI NE STAGE"
SPS SUP AND LOADER CALLER
STAGE
ERROR ROUTINE
STAGE 2
LOADER RETURN ANALYZER
STAGE 1
MONITOR AN~ DUP SUP. LOADER SU8R.
NAMED LOAD ROUTINE
STAGE 1
ERROR ROUTI NE STAGE 0 PLUS
SYSTEM COMMUNICATION SECTOR.
SYSTEM ODA SECTOR.
SPS SUPERVI SOR
RElOCATA8LE LOADER
CONTROL TO WRITE ON DISK.

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

1,1

00000
00565
00"61
02lt02
00415
00457
00468
02210
02215
02934
02802
02852
13000
00098
19600
19635
19636
19639
1961t0
19656
19659
19744
197"9
19761
19767
19770
19772
19777
19183
19786
19792
19195
19198
19630
19663
191H
17024
19600
19982
19982

DSA04

19981

0,05A02+3.,
O,OS404+1"
0,05A06+16, •
O,OSA01+3u
0,05A08+85, ,
0,05409+5"
0,05AI0+12 ..
0.05Al1+6"
0,05AI6+3. ,
0,05Al1+2 ..
0,05AI3+5, ..
OtOSAl~+6,.

O,05AI5+3, ,
0,05AI2+6, ,
0,05AI8+3,.
0.05419+3"
0,05AOI-5, ,
0.05A08+4,.
0,05A08+84. ,
0.11024, f
O,OSAOO. ,
19982.

03000
03010
03020
03030
03040
03050

0
0
0
0

a
0
0
0
0
0

5 X

19987
19990

3,20
DC
-20
DC
6,402'
-0402'

02990

a
a

J9639
3

19996

lOR T SU8ROUTI NES WHICH NORMALLY RESIOE ON DISK FOllOW
OVERLAY ERROR ROUTINE
SAVE ERROR COUNT ROUTINE
OORG ERROR

STAGE 0
00630

7
PAGE

1620-1311 SUPERVISOR AND 10RT II
03060
03010
03080
03090
03100
03120
03130
03140
03160
03170
03180
03240
03250
03260
03210
03280
03290
03300
03310
03320
03330
03340
03350
03360
03310
03380
03390
03400
03410
03420
03430
03440
03450
03460
03410
034BO
03490
03500
03510
03520

TEST INO TABLE
UP THE ERROR COUNT
COUNT.DI.1O"
MODIFY ERROR TEST
NoERR
TEST+ll,02.10 ••
MODIFY ERROR COUNT LOCATION
TEST+18,02.l0, •
TEST LAST INDICATOR
TEST,TEST+ll,ll.
WRI TE ERROR COUNT TO DISK
SET CORRECT MODULE
18MWRT, IBMMOD •••
TO
• NO ERROR COUNT ~O DISK IF FULL TRACK
WRTCT+12,OLOOA+l" .. WRITE ERROR COUNr NO FLAG
8NF
GOGO
8
OORG '-3
SEEK THE ERROR COUNT
[8MWRT,101,,.
WRTCT
34
WR I TE THE ERROR COUNT
38
18MWRT,102".
81GTRB,1900
81
B
GOGO
OORG '-3
BIGTR8 RCTY
OISK WRITE ERROR MESSAGE
WAn MESl, "
·H
WRTCT
8
DORG '-4
OAC 21,8AO DISK WRlfE.RESET START'
MESI
8AO DISK WRITE.RESET START'
MESSAGE IF ENrERING 10RT ERROR
TEST IF CALLED AT ENTRY
CM
BKPT,X01"
GOGO
MESSG
8E
BKPT, XOl+36
CM
MESSG
8E
NO-CALL 10RT ERROR
TR
OLOOA ,JOFf"
Ell MI NATE SEEK
8
RLAY+12",
OORG '-4
OAC
11.ENT ERROR'
MES2
ENT ERROR •
MESSG RCTY
10 IN MESSAGE
WA TY MES2, "
to INDICATORS
WNTY INDS-l",
RCTY
*+12,700
81
B
EEXIT+l2
OORG '-3
1,1
IBMWRT DC
J
OSA OSAIO+5
TEST

03530
03540

8NF
AM
AM
AM
BO

NOERR. I NOS. 7,

-0610
000-1
000-2
000-2
0064J

00690

25

01022

00440

00702

44
49

00134
00864

00455
00000

34
38
46
49

01022
01022
00166
00864

00701
00702
01900
00000

34
39
"8
49

00000
00811
00000
00122

00102
00100
00000
00000

44
11
11

00114
00722
00122
00734
00746
00758
00766
00766
00178
00790
00802
00809
00811
00864
00816
00888
00900
00912
00924
00931
00933

ov

DC
-01
DSA

43

00654
01131
00641
00648
00630

00630
006lt2
00654
00666
00678

11

27
14
46
14
46
31
49

00467
00954
00461
00954
00441
00480

00954 34
00966
39
00978
38
00990 ' 34
46
01002
01014
49
01022
01022

00000
00933
00609
00000
01014
01648

01021

-1850
01200
-1866
01200
01036
00000

11 X
00102
00100
00100
00102
00700
00000

5 X
J9754
3

301

01027
01030

ERROR+500

01035

5 X

-1130
0
5 X
J9630
3

03550 JOFF
03560

OS
OSA

0,*+1
OSA21

01035
01036
01040

03570

DC
-05

3.5

01040
01043

8

PAGE

1620-1311 SUPERVISOR AND 10RT II
03580

DSA

ERROR

on90

DSC

1,'

01048
01049

-0630
1

03610 •
03620
03630 COUNT

ROUTINE TO TYPE OUT AND RESTORE THE ERROR COUNTERS TO ZERO
DORG ERROR+500
06
2,00 •••
DC
-0
07
2,00",
DC
-0
16
2,00 •••
DC
-0
11
2,00 ...
DC
-0
36
2,00",
DC
-0
37
2,00 .. ,
DC
-0
38
],00', ••
DC
-0'
DORG ERROR+524
CAll IN 8Y ENTERING
RCTY f t '
340003200701
WIITY 46, ••
360003200702
46.120 ••
TR
4900070011'175400100046
32,702,.
38
H
NOW WASN-T THAT NICE
DORG
2,0
DC
-0
2,0
DC
-0
2,0
DC
-0
2,0
DC
-0
2,0
DC
-0
2,0
DC
-0

01130
01131

2

03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03760
03770

.-9.

03780
03790
03800
03810
03820
03830

......

01840
03850
03860 8BUFF
03870

03880 SIOXX
03890
03900 CHECK
03910
03920
03930
03940 SETX
03950

DC

],0'

'I

5 X

01Ma

01133
01135
2

01131
01139
01141

2

01144

3

01154
01154
01166
01178
01190
01202
01204
01205

34
38
31
38
48

00000
000"6
00046
00032
00000

00102
00100
00120
00702
00000

01207
2

01209
01211
01213
01215
01218

-0'

THI S ROUTINE REMAINS IN CORE WITH All ERROR ROUTINES
OORG ERROR.600
DO
DSC 8.0'
OOOODOO'
DSC 6,0'
DOOOO'
ROUTINE TO OETERMINE ERROR INDS.
*.Zft.,SETX".
TF
•• 33,XX,7
TF
*-1.,6
CF
.+36.XX
8NI
CHECK+ll,INOS,67
SF
SIX DIGIT SUPER INITIALIZATION
CHECK+12 ...
SF
CHECK+ll,2,10
AM

01230
01230
01242

00

00000
8

26
26
33
47
32
32
11

01280
01301
0127R
01328
0127R
01280
01219

14
47
44
43
34
39
34
38

01279
01268
00766
01042
00000
01785
00000
01250
00000
01484
00609
00000
00638
01574
01230
00000
01508
01230
01514
0151R

6

01250
01256
01268
01280
01292
01304
01316
01328

00000

01316
-0000
00000
00000
-0610
00000
000-2

9
1620-lJll SUPERVISOR AND IORT II
03960
03970
03980
03990
04000
04010
04020
04030
0"040
0"050
04060
04070
04080
04090
0/tl00
04110
04120
04130
04140
04150
04160
04170

CHEKI

CM
BNI
8NF
CHEK2 80
HOLLER RCTY
WATY
SPTY
HOI
WNTY
SPTY
NOP
H03
WNTY

CHECK+ll.INDS+12,8", DISK ERROR TEST IF OVERFLOW
CHECK,nOO
OTEST,CHECK+12",
ON DISK ERROR, DISTINGUISH IF OVERFLOW.
IF NOT, Gd INTO RETRY lOOP.
RETRY,STEPS"
TYPE ERROR MESSAGE.
EMSGI

EEXIT

-1636
5 X

...

SIOXX
H04
INOS-l

SPTY
H04

81

H
TFM
RNTY
SPTY
BI
SF
S
8
DORG
OSA

PAGE
01340
01352
01364
01376
01388
01400
01412
o 142/t
01436
01448
01460
01412
011t84
01496
01508
01520
01532
01544
01556
01568 .
01575
01519

ERROR+8

81-5,81.111.
BBUFF" •

INITIALIZE INOIRECT 8RANCH.
READ THE OPERATORS ENTRY.

.-24,400"

IF SSW4, AllOW REENTRY.
COMPUTE BRANCH ADDRESS.

B8UFF, ••
B 1-5, BBUFF+ 1

81,,6.,
0-4

PERFORM INDI RECT BRANCH.

3't
41
38
34
1t8
16
36

3't
46
32
22
49

0-622
01300
01280
01200
00102
00100
00101
00100
00101
00000
00100
00101
00000
-IS7R
00100
00101
00.. 00
00000
01211
00000
X

0"180

DSA

RETRY

01519
01584

04190

DSA

APHASE

01584
01589

-1042
5 X

04200

DSA

AJOB

015B9
01594

-1612
5 X

OSA

RETN

015910
01599

-It.oo

0"210

01599
01600
01612
01624
01636
01648
01660
01612
a1680
01680
01692
01704
01716
01728
01740
01752
0176/t
DI716
01784
01185

16
49

-1680
01623
00415
00461
02144
00/t41
02132
001t80

00000
00004
-0796
01175
01815
000R8
00000

36
34
46
32
26
15
33
H
49

01230
00000
01680
01230
00467
02067
00554
02118
01636

00100
00101
00400
00000
01234
00000
00000
00000
00000

01t220
04230
0"240
0"250
04260
04270
04280
04290
OUOO
OHIO
04320
04130
04340
04350
04360
0,,]10
0"380
0"390
01t"00

AJOB
TDM
APHUE TOM
TFM
EEXIT NOP
TR
TFM
B
DORG
RETN
RNTY
SPTY

81

EMSGI

• +23,0 ••

SET MONITOR RETURN INDICATOR •

SYSCAl,4
BKPT ,MONCAL
MAPENT,SAVODA"
OlODA,ERRB"
OLOCY+I,MCYl.l0,
OVRLAY+12
·-3
B8UFF, ••

• -24.400"

SF
88UFF,.,
TF
BKPT, BBUFF+4
TOM DIOP+47,O
CF
10SK
CF
DIOP+98
8
EEXIT
DORG 0-]
DAC 9,OSK ERR
DSK ERR'

"

RESTORE WORKING DDA IF DISK I/O ERROR.
RESTORE MAIN ROUTINE AND RETURN.
RESTORE MONITOR MOOULE CYLINDER IND.
READ OPERATORS ENTRY.
ALLOW REENTRY IF SSW" •
INITIALIZE FOR RETURN.

III

5 X
15
15
16
"1

31

9 X

10

1620-1311 SUPERVISOR AND IDRr II

PAGE

t·.

04410 SlOP
04420

36
DSC

MAPE~T,102,O

,

1

04430 ERRS
04440

DS
DSA

0,*+1
DSA06+!

01815
01819

DC

3,13

01819
01822

0'0'050

01802
01814

-13
04460

DSA

ERRET

01821

04470

DSC

1,',

01821
01828

04480
04490

OORG 19982,
DSC 1,1
1
DSA OSAI0

04500
04510
04520

DC
-12
DSA

,

CO~TROL

TO WRITE

O~

DISK.

-0602
1

19982
19982

ERROR

19995

I, '

19995
19996

045"0
04550
04560 E0030
04570
04580
04590
04600
04610
04620
0"630
04640
04650

OVERLAY ERROR ROUT! NE
STAGE 0 PLUS
DORG ERROR
TF
SIOXX+4,IOXX ..
MOVE RETURN AODRESS FOR TYPE-DUT.
eM
BKP1,X03"
THREE POSSIBILITIES FOR THIS.
BNF E0010,eNTWO+5 ..
BRA~eH IF DISK 110·.
BNI E0040,I200
B~R
E0050,CNTWD+4,ll,
TEST IF C~TL CARD TRAP.
TFM BKPT,IOXX,711,
YES -SET PROPER RETURN PO INT.
TR
OlDOA,-+19"
LOAO AND EXECUTE ERROR ROUTINE
B
OVRLAY+12,DSAI4"
STAGE 4.
3,6
DC
-06
DSA ERROR

04660

DSC

,

1,'

04670 E0040
04680
04690
04700
04710
04720

CM
BNI
TFM
TR
8

BKPT,X04 ..
E0050,1200
8KPT ,IOP+24

TEST IF ERROR AT NON-D I SK 110 nME.

OlDDA,·+19"

LOAO A~D EXECUTE ERROR
STAGE 2.

00630
00630
00642
00654
00666
00618
00690
00702
00714
00728

J9749
3

-0630
1

26
14
44
47

"5

16
31

49

007H

ROUTI~E

00736
00748
00760
00772
00784
00798

OVRLAY+12,DSAI2,,
3,6

-06
DSA

ERROR

00803

I, '

00803
00804

01254
00467
00838
00736
00806
00467
00441
00480
3

00565
-1084
02175
01200
0211"
-0561'4
00721
1'l777

5 X

00733
00734

DC

DSC

11

00102

J9641
3

19987
19990

3,12

DSC

OH40

021'14
1

19981

04530

04730

L6

-0630
1
14
H
16

31
49

-1216
01200
-1982
00791
19786

00467
00806
00467
00441
00480
3

5 X
-0630
1

11

04750 E0050
04160
04170
04180
04190 E0070
04800
O"BIO
04B20
04830
04840
04850
04860 E0080
04870
04880
04890

RCTY
WArY
B
OORG
81
CM
BNI
TFM
TD
TR
TDM
TR

..

1620-1311 SUPERVISOR

,

EMSG21, ..
lPHASE .. ,
+-3

EOIOO,1200 ••
BKPT,X04"
E0090i1200
H04+6,ERROR+20, ,
OIOP+ 12, S IOP+12
SIOP,DIOP
DIOP+12,4

OLDDA, •• 19"

A~D

10RT II

IMPOSSI8LE ERROR -MACHINE FAICURE OR
I~CORRECT 10RT CALLING SEQuENCE.
TERMINATE THE CURRE~T PHASE.
TEST IF AT MAP SECTOR READ TIME.
~O -TEST IF AT DISK 110 TIME.
YES -INITIALIZE FOR DISK ERROR.

LOAD A~D EXECUTE ERROR ROUTI NE
STAGE 1.

PAGE
00806
00818
00830
0083B
00B38
00850
00B62
00874
00886
00898
00910
00922
00934
00948

DC

OVRLAY+12,DSAll, ,
3,6

-06
DSA

ERROR

00953
00953
00954

B

04900

DSC

,

I, '

04910 E0090
04920
04930
04940
04950
04960 E0095
04970
04980

CM
BI
CM
8NI
TFM
TR
B

DC

BKPT ,ABOl ..
E0095,lZOO
8KPT,SK02 ..
E0050, 1200
H04+6, ROVCD, ,
OLODA, •• 19, t
OVRLAY+12,DSAI3"
3,5

04990

-05
DSA

ERROR

01041

05000

DSC

1,'

01047
01048

05010 E0100
05020
05030
05040
05050 EMSG21

BNR E0080,MAPE~T, ,
TFM H04+6,MERR ••
B
E0095
OORG ·-3
OAe 8, IMP E;RR·.
IMP ERR'
DORG 19982,
OSC 1,1
I
OSA DSA21

05060
05070
05080

TEST IF ILLEGAL NAME LOAD REQUEST.
NO -TEST I F ILLEGAL OR I VE CODE.
YES -SET UP FOR ERROR PROCEDURE.
LOAO AND EXECUTE ERROR ROUTINE
STAGE 3.

00956
00968
00980
00992
01004
01016
01028
01042

TEST IF EMPTY MAP E~TRY CALL.
YES -SET UP CALL TO THE ERROR ROUTINE.

01050
01062
01074
01082
01083

CONTROL TO WRITE ON DISK.

1~982

DC

3,5

05100

-05
OSA

ERROR

19995

I,'

19995
19996

DSC

OVERLAY ERROR ROUTINE
STAGE i
OORG ERROR
B
HO~+6. ,6
BRA~CH AS PRESET •

00102
00100
00000

46
14
41
16
25
31
15
31
49

01050
00461
00956
01490
02032
01802
02032
00441
00480
3

01200
-1216
01200
-0650
01814
02020
00004
00941
19161

"9

-0630
1
14
46
14
41
16

31
49

00461
01016
00467
00806
01490
00441
00480
3

J0926
01200
-1608
01200
-1002
01035
19172

-0630
1
45
16
49

00922
01490
01016

02144
-0818
00000

8 X

2

i9987

05090

05120
05130
05140

00000
01083
01612

19982

19987
In90

05110

12

34
39

00630
00630

12

J9630
3
X

1

-0630
1

49

0149-

00000

1620-1311 SUPERVISOR AND IORf II
05150
05160
05170
05180
05190
05200
05210
05220 WTEST
05230
052"0
05250
05260
05210
05280 oTEST
05290
05300
05310 CYLoYF
05320
05330
053"0
05Hl
05150
05360
05310
05380
05390
05"00
05"10
05"20
05"30
05""0 NEXT
05"50
05"60'
05"10
05"80
05"90
05500
05510' RETRY
05520
05530 NloP
055"0
05550
05560
05570
05580
05590
05600 DOVFL
05610
05620
05630 EIISG2

+-3
NIOP+13,9"
DISAlL! ANY". CIIIC:I.
INlTlALlZE ERROR REtlllll.
EUIT ,3"
EEXlT+U,OVIILAY
MOYE THE 110 INStRUCtiON.
NIOP, SlOP"
CLEAR THE RECORD IIARII.
NIOP+12,""
SAVE tHI 1I0RIING ODA.
SAVDDA,IIAPENT"
"20,INOS,7,
OETERIIINE " NOII-CYLINDER oYER ..LOII ERROR.
B
RETRY",
NO.
OORG +-3
AM
IITEST+ll,Z
CM
IlTEShll,INDS+12
BNI IITEST ,UOO
INI ++n,3800
SF
INDS+12
BNF EEXIT,INOS+12
TFM NEU,200"
YES -COMPUTE ADDRESS OF TOP OF NEXT CTL.
TO
0+23,M"'ENT+3
8D
.+2", TEETH
TFM NEXT,100
TFM NEIIDDA+U,O
A
NEXT-2,MAPENT+3
TF
NEIIODA+"NEXT"
NEXT ,MAPENT+5"
COMPUTE NUMBER O,F SECTORS PROCESSED.
5
TF
NEIIDDA+ll,NEXT
NEXT, MAPENT+8, ,
COMPUTE NUMBER OF SECTOR,S YET TO PROCESS.
5
BNF RETRY ,NEXT"
MUST RETRY If 0 OR LESS.
CM
DRI VE ,99,610"
TEST IF DRIVE OVERFLOII.
BI
DOVFL,1200
NO -SET NEil SECTOR COUNf.
CF
HEXT •• ,
0,.
OS
NEXT-Z
SF
TF
NEIIODA+I,NEXT
SF
NEIIDDA+9",
COMPUTE NEil CORE ADDRESS.
A
NEIIODA+ U, MAPENH 13
AM
DRIvEtl,610,
UPDATE CYLINDER POSITION INDICATOR.
Til
MAPENT+l,NEIIDDA+I"MCYE NEil DDA fO 1I0RKlNG SLDT.
CHEII2+11,CHEK2+11,ll,REDUCE RETRY COUNT.
TO
IIAPENT,10l"
R!SEEK.
'"
110 INSTRUCTION GETS IIOVED HERE.
30
8NF ++36,DIOP+"7"
TEST IF ALSO READ BACK CHECK.
TO
•• 23,010'+"1"
YES -GET IIOOE DIGIT.
36
""'ENf,100
SEE IF ANY TROUBLE THIS TIME.
8NI EUIT ,1900"
INoUT,,6,
8
ooRG +-3
TF
IIISG1.12,EII5G2.", , INITIALIZE FOR ORIYE OVERfLOIi TYPE-OUf.
B
HOLLER
OORG ·-3
OAC 3,oFL,

DORG
fOM
TOM
TFM
Til
TOM
Til
BNF

'"

oFL

056"0 NElioDA DSC 15,0'
00000000000000 '
05650 SAVDOA DSC 20,0
00000000000000000000
05660 STEPS OSC 10,123"567190,1200,UP, UP, UP AND --IIHoDPS.
123U67890

.....
OftJI

00650
00662
0061"
0061.
0069.

Dono

00722

Dono
Dono

007U
00754
00766
00178
00790
00802
0081"
00826
00838
00850
00B62
0087"
00B86
00B98
00910
00922
00934
009%
00958
00969
00910
00982
00994
01006
01018
010]0
01042
0105"
01066
01018
01090
01102
0111"
01126
0113"
0113"
011"6
01154
01155

PAGE

15
15
16
31
15

31
4"
"9
11
I"
41
"1
32
""
16
25
"]
16
16
21
26
22
26
22
""
1~

46
33

01079
01636
01678
01066
01078
Oll 75
00730
01042

00009
00003
-0468
01802
0000"
021""
-0610
00000

00121
00121

-0002
-0622
OUOO
03800
00000
00622
-0200
02141
01211
-0100
-0000
02147
00969
02149
00969
02152
00969
000R9
01200
00000

oono
00790
00622
01636
00969
00831
00150
00969
01113
00967
01165
00969
01171
00969
010"2
0216R
0113"
00969

o

"1
"9

01636
0062R

00000
00969
00000
02157
000-1
01161
0138P
00101
00000
02067
02061
00700
01900
00000

26

01791
01388

01159
00000

32
26
32
21

11
31

25
3"
30
44
25
36

"9

00967
01168
01169
01113
0216R
021"5
OU87
021"4
00000
01114
01113
021~4

X

01160

15

01175

20

01200

10

05680
05690
05700

DC
-06
OSA

05710
05720
05130
05140
05150
05160
05770
05780
05790
05800
05810
05820
05830
05UO
05850
05860
05870
05880
05890
05900
05910
05920
059)0
059"0
05950
05960
05970
05980
05990
06000
06010
06020
060)0

DAC 5, ..... ,1211
+++++
OORG 19982"
OSC 101
1
DSA OSAll

OSC

,

••••••

IOU

101

Z02

060~0

06050 ZO)
06060
06010
06080
06090
06100
06110 Z04
06120
06130 10PA
06140

2

13

1620-Ull SUPERVISOR AND 10RT II
05610 TEETH

13

PAGE
01211

CONTROL TO IIRITE ON DISK

19982
19982
19987

5 X

3,6

19987
19990

ERROR

19995

5

-0630

1,'

19995
19996

OYERLAY ERROR ROUTINE STAGE 2
OORG ERROR
TFM CHEKZ-6,EEXIT+12" INITIALIZE ERROR CHECK EXIT.
TOM CHEII2.l't 1
TFM 81.5,IOPA"
SET RETRY ADDRESS.
TD
IOP.12,SIOP+12"
MoYE THE 1/0 INSTRUCTION.
TR
SIOP,IDP
TR
10PA,IOP
TDM 10P.12,~"
CLEAR THE RECORD MARKS.
TOM loPA+12,,,
SF
loP+9",
INITIALIZE FOR OEYICE COMPARISON
TOM loP+I0,O
CM
IOP.I0,10,10,
DETERMINE IF A TYPE ERROR
8NI
ZOI,1200
CM
IOP.l,36,10,
YES -DEjERMINE IF A READ.
81
0+36,1200
CM
IOP+1037,10
BNI EEXlf+12,1200"
EXIT IF A IIRITE.
TF
EMSG1.",EMSG7." •• SET UP ERROR MESSAGE.
B
HOLLER
DORG .-)
CM
10P+l0,20,10,
TEST IF PIT PUNCH ERROR
BNI Z0201200
TF
EMSGl+4,EMSG6+4" YES -SET UP ERROR MESSAGE.
B
HOLLER
OORG .-3
TEST IF PIT READER ERROR
CM
IDP.l0,30,10,
INI 10),1200
TF
EMSGH4,EMSG5+4" YES -SET UP ERROR MESSAGE.
B
HOLLER
oORG +-3
CM
IOP+I0,40,10,
TEST IF CARD PUNCH ERROR
BNI Z04,1200'
TF
EMSG1+",EMSG4+4,. YES -SET UP ERROR MESSAGE.
8NF HOLLER,INoS.2"
TEST IF IIRITE CHECK.
B
lOP., ••
YES -GIYE FREE RETRY.
OORG .-3
SET UP ERROR MESSAGE.
TF
EMSG1+It,EMSG3+4"
TEST IF REAO CHECK.
BNF HoLLER,lNOS"
30
•• ,
NON-DISK 110 INSTRUCTION.
BNI EEXIT'12,1900,.
EXIT IF NO ERROR.

00630
00630
006"2
00654
00666
00678
00690
00102
00114
00126
00138
00150
00762
0077"
00786
00798
00810
00822
0083"
008"2
008"2
0085"
00866'
00B18
00886
00886
00898
00910
00922
00930
00930
009"2
00954
00966
00918
00986
00986
00998
01010
01022

J9161
3

1

16
15
16
25

26
"9

01370
01371
015B4
01970
01802
01010
01970
01022
01961
01968
01968
00842
01959
00822
01959
016U
01789
01388

-1648
00001
-1010
01814
01958
01958
00004
00004
00000
00000
OOOJO
01200
000L6
01200
OOOLT
01200
01083
00000

1"
"7
26
49

01968
00886
01789
01388

OOOKO
01200
01071
00000

14
"1
26
49

01968
00930
01789
01388

OOOLO
01200
01071
00000

14
47
26

01968
00986
01189
01388
01010

OOOMO
01200
01065
00612
00000

01189
01388
00000
01M8

01059
00610
00000
01900

31

31
15
15
32
15
lit
"1
14
"6
1"

n

"4

'26"

44
30
41

14

06150
06160
06110
06180 EMSG3
06190 EMSG4
06200 EMSG5
06210 EMSG6
06220 EMSGl
06230
06240
06250

TFM
8
DDRG
DAC
CDR
DAC
COP
DAC
PTR
DAC
PTP
DAC
TYP
OORG
OSC
1
DSA

010)~

16

01046
01054
01055

49

),CDR ..
3.COP,

01061

1,PTR,

01067

CHEK1+ll,IIIOS+8"
CHECK-12

NO -GIVE THE LOOP A WHIRL.

.-]

),PTP,

01011

3.TYP.

01079

19982,
1,1

CONTROL TO WRITE

all

DSAl2

19981
19981
1'1990

DC

3,6

06270

-06
OSA

ERROR

1'1'195

1,'

19'195
19996

06280

DSC

••...•

01351
01256

-0618
00000

3 X

19982
19982

OISK.

06260

06290
06300 •
06310
06320
06310
06340
06350
06360
06370
06380
063'10
06400.
06410
06420 RNAM
06430
06440
06450
06/060
06470
06480
06490 ROIM
06500
06510
06520
065]0 RDIMI
06540
06550
06560
06510
06580 MERR

15

PAGE

1620-1311 SUPERVISOR AND IORT II

ERROR ROUTINE STAGE 3
PROCESSES INVALIO DIMS, PROGRAM NAHED LOADS AND DRIVE CODES
DORG ERROR
EXECUTE INDIRECT BRANCH.
H04+6 .. 6,
8
DORG '-3
INITIALIZE fOR ILLEGAL NAME CAll.
TFM 81,RNAM, ..
EMSGl+4,EMSGll+4
Tf
TOM H03+1,9
TFM H03+6,U02A+6
AA02A+18,SIOP+12
tD
TfH 81+5,RDIM
HOllER
B
OORG '-3
READ THE TYPED NAME.
RATY 88UFF+l., ..
SPTY
ALLOW RE-ENTRY I f SSW4.
_-24,400, ..
BI
Sf
B8Uff
AA02A+16,BBUFF+ll
TF
EEXn+l2
8
DORG '-3
READ THE TYPED DIM NUM8ER.
RNTY BBUFF ....
SPTY
_-24,400
BI
8BUFF
SF
NDP/BRANCH SWITCH.
NOP RMAP+20",
AA04+ 7, BBUFFH
TF
SET RETURN POINT.
BKPT,AB06+24.,
TFM
EExn+12
B
DORG . - ]
RMAP-2,CNTWO+6
TF

00630
00630
00638
00638
00650
00662
00674
00686
00698
00110
00118
00718
00730
001'02
00154
00766
00718
00786
00786
00198
00810
00822
00834
00846
00858
00810
00878
00878

5 X
J9786
3
5 x
-0630
1

49

OH9-

00000

16
26
I,
16
25
16
49

0157'1
0178'1
01461
01466
00247
01584
01388

-0118
01089
00009
-0235
01814
-0786
00000

37
34
46
32
26
49

01231
00000
00718
01230
00245
01648

00100
00101
00400
00000
01241
00000

36
)4
46
32
41
26
16
49

012)0
00000
00786
01230
00982
002'11
00467
01648

00100
00101
00400
00000
00000
01233
Jl118
00000

26

00960

02116

00890
00902
00914
00926
00938
00950
00957
0096L

16
16
26
16
16
4'1

01579
01584
01789
00467
OH66
01388

-0962
-0962
01083
-0880
-0957
00000

00962
00974
00'lB2
00982
00994
OL002
01002
01014
01026
01038
01050
01058
01058
01070
01078
01079

15
49

00835
00786

00009
00000

26
49

02116
01648

01233
00000

16
26
15
26
49

01579
01789
014/0'1
00840
00698

-0786
01095
00009
01076
00000

K5
49

02014
01648

01230
00000

15
1620-1311 SUPERVISOR AND 10RT II
TFM Bl,RMAP
TFM Bl+5,RMAP
TF
EMSGl+4 ,EMSGIO+4
TFM BKPT, D10+60
TFM H03+6,RMAP-S
B
HOllER
DORG '-4
DC
5,0'
-000'
06610 RMAP
TOM Ro1H1+I,9
06680
RolM
B
066'10
OORG '-3
06700
TF
CNTWO+6,BBUFF+3
06110
EEXIT+12., ,
B
06720
DORG . - ]
06730 RoveD
TFM BI,RDIM,.
TF
06740
EMSGl+4,EMSG20.'"
06150
TOM H03-11,9
06760
TF
ROIHL+6,ocoe+18
06110
B
RNAM-20
06180
DORG . - )
06190 OCDe
TD
tEMP-5,BBUFF,O
06800
EExn+12
B
068LO
OORG '-3
3,MAP,
06820 EMSGI0 DAe
MAP
06830 EMSGll OAC l.NAM,
NAM
06840 EMSG20 DAC
3,MOO,
MOD
06850
DORG 19982,
06860
DSC
Itl
1
06870
DSA OSA13

PAGE

06590
06600
06610
06620
066)0
06640
06650
06660

06880

DC
-05
DSA

06890

06900

DSC

.......

06910
06'120 •
06930
06940
06'150
06960
06970
06980 YOO
06'190
07000
07010
07020
070]0

GO TRY AGAIN WITH NEW MAP NUM8ER.
INITIALIZE FOR ILLEGAL DRIVE CODE ERROR.

16

2

DI085

3 X

2

01091
CONTROL TO WRITE ON DISK.

19982
19982
19981

3,5

19981
19990

ERROR

19995

I,·

1'1995
19996

ERROR ROUTINE
STAGE 4
MONITOR CONTROL CARD TRAP PROCESSOR
DORG ERROR
TD
YOO+8,FSPS
TO
YOO+ll,IOP+9
CF
YOO+8
CF
YOO+ll
CM
*+8. XX. 710
BNE EEXIT+12
JA,CNTWO+4
MA
TFM JR,02.10
IOP+l ,37, 10
CM
-.+48
8E

16

00630
006)0
00642
00654
00666
00618
00690
00702
00714
00726
00738

5 X
J9172
3
5 X
-0630
1

25
25
33
33

14
47
70
16

14
46

00686
0068'1
00686
00689
00686
OL648
00984
01141
01959
00786

00429
01961
00000
00000
-00-0
01200
02174
000-2
00017
01200

luo-un
070-'0
01050
07060
07070
070BO
07090
07100
01110
01120
01130
0114D
01150
01160
01170
01180
01190
07200
07210 YOIA
01220
01230 YIOB
01240 JA

SUPEIIVISOR AND 100f II

TFII
CM
BNE
A
MA
BNR
TDM
All
MA
SM
TD
A
MA'
8NR
A
MA
8NR
TDM
TDM

JR,001,9
10P+I.)6,10
EEXIT+12
JA,JR
CNTIIO+-..JA
EEXIT+12,CNTIID+-.,11
OYRLAY+I0, 1.11
JA.158
CNTIID+-.,JA
JA,158
CNTIID+4,Y01+1106
JA,JR
CNTIID+4,JA
JTEST ,CNTIIDH, 11
JA,JR
CNTIID+-',JA
JTEST,CNTIID+4,11
SYSCAL,O
OVRLAY+IO,O

oc

5.0,--5

ReTY

07250
01260
01210 JTEST
01275
07280
01290
01300
01310
01320
01330
07340
01350 VOl
07360

-0000
WATY EMSG13
87
APHASE+12
8NF YI08,JR-l
SM
CNTIIDH,I,IO
CF
OYRLAY+10
TR
ERROR,CNTIID+4,11
TFM MCC8UF+1,00,210
.-6,2,10
AM
CM
·-18,MCC8UF+161
8NH .-36
MCCBUF+-.,ERROR
TR
TFII MCC8UF+3,OOOO,8
DC
1t',·

07370

DC

,

PAGE
00750
00762
0071-'
00716
00798
00110
OOB22'

oon-.

00.-.6
0015.
00870
00882
0089"
00906
00918
00930
009U
00954
00966
00978
00984
00990
01002
01010
01022
01034
01046
01058
01070
01082
0109-'
01106
01118
01129

1,',--2

SF
IICCBUF,XX,2
DC
5.0,-0000
01400
AM
Y071+6,I,10
CF
Y0711+6, ,6
01410
Y01&+6, 1, 10
01420
AM
07430
CM
Y07A+6,MCCBUF+160
BNH Y07A
014-'0
01450
111
VI08
01460 EMSG13 DAC a,TRP ERR'
TIIP EIIR'
07470
DORG 19982 ..
01480
DSC 1,1
1
01490
DSA OSAl"

DC

21
70
-'5

15
11
70
IZ
Z5

21
70
-'5
21
10
45
15
15
34
39
-.9
44
12

33
31
16

11
14
41

31
16

OUU
01959
016-'8
00984
02174
016U
00478
00984
02174
00984
0217M
00984
02174
DIDIO
0098"
02174
DIDIO
00475
00478
00000
5

00-01
000L6
01200
01141
00984
0217M
OOOOJ
-0158
00984
-0158
01129
01141
00984
0217M
01141
00984
021711
00000
00000
00102

01211
01624
00978
02174
00478
00630
J3001
01064
01064
01058
13004
13003
1

00100

17

01140
000-1
00000
0211M
000-0
000-2
J3161
01100
00630
0-000

01127

01380 V07A
07390 JR

07500

16
14
-.7

CONTROL TO IIRITE ON DISK.

01130
01141

32

J3000
5

00000

01142
01154
01166
01178
01190
01202
01211

11
33
11

01136
OU30
01136
01136
01130
00978
8

000-1
00000
000-1
J3160
01100

lit
47
-'9

19982
19982

3,6

19987

5

199Bl
19990

J9777
3

-06

17
1620-1311 SUPERV ISOR AND IORT II

PAGE

07510

OSA

ERROR

19995

07520

DSC

I, '

19995
19996

07530
075100
07550
0156D
01570
07580
07590
01600
07610
07620
07630
07640
07650
07660
07670
07680
07690
07700
07110
07720
07130
07HO
07750
07760

......

SPS SUPERVISOR AND RELOCATA8LE LOADER CALLER STAGE 1
OORG 0
TFM OLDCV+l,MCYL,10,
RESTORE MONITOR MODULE CYLINOER INO.
8NF LCAOI,OLDD.l+6"
DETERMINE IF NON-TRA OISX LOAD.
TOM LOINPT,O,ll,
YES -SET INDICATOR.
TR
DIMENT,MAPEIU ..
MOVE WORK I NG DDA TO COMMON SLOT.
NO -TEST IF SPECIFIED LOAD ADDRESS.
8NF •• 24-,CNTWO+.".
HIGH.CNTIID+ll, ,
YES -MOYE IT INTO THE HIGH INDICATOR.
TF
8RANCH IF TRA CALL.
LCAOI 8NF LCA06A,LDINPT,,
8D
LCAOIt,LDINPT ..
TEST IF CALL FOR DISK LOAD.
BNF LCA06,MAPENT+13, ,
TEST IF CAll FOR SPS SUPERVISOR.
SF
FSPS, ..
YE S -SET ·FLAG.
TEST IF CALL FOR SPS SUPERVISOR.
LCAOlt BNF LCA06,FSPS ..
LCA02 TFM IOXX,e.23 ..
READ SPS SUPERVISOR INTO CORE.
IDGT,LCA08,7
B
TFM IOXX,* .. 23"
RESTORE MPV TA8LE AND. EXECUTE SUP.
IOGT,LCA09,7
B
LCA06 8NF UH,DIMENT+lIt ..
TEST FOR SPECIFIED ENTRY ADDRESS.
TF
DIMENT+13,DIMENT+18"VES -LETS PLAY BALL.
LCA06A TR
OLDDA, LCA07 ..
LOAD AND EXECUTE STAGE 2 OF CALLER.
OVRLAY+12
8
DORG
0, •• 1
LCA07 OS
DSA DSAI6

07770
07780

DOOOO
00000
00012
00024
00036
000lt8
00060
00072
OOOalt
00096
00108
00120
00132
001"4
00156
00168
00180
00192
0020-'
00216
00223
00223
00227

.-,.

DC
-03
DSA

,

3,3

00227
00230

0

002]5
00235
00236

077'10

DSC

1,'

07800 LCAOB

DSC
22
DSA

2,22

00237.

LCAO]

00243

07810

-0630
1

16

02132

""

00072
00lt28
00402
D0072
00434
00204
00120
00180
00429
00180
00565
00566
00565
00566
0020"
00415
00441
00"80

15
31
44
26
"It
,.3
It"
32
It"
16
It9
16
49
4"
26
31
,.9

000R8
00"47
00000211t4
02177
02181
00428
00428
02157
00000
00429
-0155
-0237
-0179
-0245
00416
00420
00223
00000

0
5 X
J9161
3
5 X
-0000
1

5 X
-0273
1

07820

OSC

1,'

0021fl
002-.4

07830 LCA09

2,-22

002,.,

2

018100

DSC
2K
DSA

lCA02A

00251

5 X

07850

DSC

I, '

00251
00252

,

,

07860 LCA02A DSC
1
01870
DSA

Itl

0025]

OSA02

00258

18

-0253
1

5 X

18

1620-1311 SUPERV ISOR AIID IOU II

PAGE

07880

DC

3.2

00258
00261

07890

-02
OSA

100

00266

01900

OSA

SUPENT

00266
00271

-0100
5

01910

DSC

I ••

00271
00272

-2934
I

07920 LCA03

OSC
I
OSA

1,1

00273

OSA50

00218

3.50

00278
00281

01930
07940

DC
-50
OSA

07950

SYSORG-2

00286

I. '

00286
00281

01960

OSC

01910
01980

oORG 19982.
OSC 1.1
I
OSA OSA 15

01990

08000

DC

CONTROL TO WRITE ON DISK.

19

J9636
3

5 X
J7024
3

-2400
I

19982
19982
19981

3,3

5 X

19987
19990

J9183
3

19996

6

-03
08010

......

08020
08030
08040
08050
08060
08010
08080
08090
08100
08110
08120
08130 LC801
08HO
08150
08160
08110
08180
08190
08200
08210
08220 LeB02
08230
08240

DC

6,0'
-0000'
RELOCATABLE LOADER CALLER STAGE 2
OORG 0
8NF LCB02,LOINPT"
BRANCH IF TRA CAll.
TF
CNTWO+6, HAL T+6, ,
SAVE POSSIBLE RETURN ADDRESS.
80
BRANCH IF liON-DISK LOAD.
LC801. Lo I NPT"
TOM Sk03+1,9"
DISK -COMPUTE PHYSICAL DRIVE CODE.
TFM SK04,*.20
seEK
8
DORG '-3
TO
DIMENT,MAPENT"
GIVE DRIVE CODE TO LOADER
TF
CNTWD+6,IOXX"
SAVE POSSIBLE RETURN ADDRESS.
TO
DRIVE-5,TEMP-5"
MOVE THE DERIVED DRIVE CODE.
TR
CNTWD+13,ORIVE-5,. SAVE CALlIIIG PARAMETERS.
8NF -+24,SPSMlP+l"
WATCH OUT FOR THOSE NOli-DiSK MAIN-LIIIE
SF
LOADS FOR THE SPS SUPERV I SORt
FSPS",
BNF -+36, SPSMlP"
TEST IF SPS MAIN LINE PROGRAM.
CF
SPSMlP" ,
YES -INDICATE RELDCATABLE.
SF
SPSMLP+l
8NF ."24"CIN1T"
TEST IF TO INITIALIZE LOADER FIELD.
TFM LADDR,O"
YES.
TFM
(QXX, -.23.,
WR ITE UPPER SAVE AREA ON DISK.
IORBC,LcaOB,1
8
TF
HALT+8.CNTWD+18,II,INITIALIZE CYLINDER POSITION FOR LOADER.

00000
00000
00012
00024
00036
00048
00060
00068
00068
00080
00092
00104
00116
00128
001100
00152
00164
00116
00188
00200
00212
00224

44
26
43
15
16
49

00200
02116
00092
01113
021H
01500

00428
00462
00428
00009
-0068
00000

25
26
25
10"
32
44
33
32
44
16
16
49
26

00402
02176
02164
02183
OOHO
00429
00176
00468
00469
00200
00439
00565
00520
00464

02144
00565
02014
02164
00469
00000
0046R
00000
00000
0042"1
-0000
-0223
-0255
0218Q

31
49

00441
00480

31

I9
PAGE

1620-1311 SUPERVISOR AND 10RT II
08250
08260
OA210
08280 Le808
08290

TR
B
DORG
OSC
22
OSA

OLDOA,LC810"
OVRLAY+12
'-4
2,22

READ AND EXECUTE THE LOADER.

00236
00248
00255
00255

LCB09

00261

5
-0263
I

OA300

OSC

I, ,

00261
00262

08310 LCB09

1,1

0026)

08320

OSC
I
DSA

OSA07

00268

08330

DC

3,2

00268
00211

08340

-02
DSA

ERRET+1500

00276

08350

OSC

I, ,

00216
00271

08360 LC810
08310

DS
OSA

DSA51

00278
00282

08380

DC
-09

3,9

00282
00285

J9600
3

DC

6,502'

00291

6

08390
08400
08410
08420
OB430
08440
08450
08460
08410
08480
08490
08490
08500
08510
08520
08530
08540
08550
08560
08570
085BO
08590

0,.+1

-0502'
DORG 19982,
1,1
OSC
I
[)SA OSAI6

CONTROL TO WRITE ON DISK.

3,3
DC
-03
6,0'
DC
-0000'
RElOCATABLE LOADER RETURN ANALYZER STAGE I
OORG 0
RESTORE IORT AND THE UPPER SAVE AREA
TR
OlDOA.LRA05"
VIA THE OVERLAY READ ROUTINE.
OVRLAY+12.,.
B
OORG '-3
TFM BNI+18,IBMMOD+13,111,RESTORE OVRLAY ROUTINE EXIT.
INITIALIZE FOR STAGE 2.
TR
OLDDA,LRA06"
CNTWO+18,HALT+8,6, RESTORE LOAD MODULE CYLINDER IND.
TF
TFM HALT+II,DIMENT+18,71I,SET STAGE 2 RETURN ADORESS.
8RANCH IF TCD EXIT FROM LOADER.
BNF LRA02, LDI NPT,.
DRIVE-5,CNTWO+13 .. RESTORE CALLING PARAMETERS.
TR
TF
IOXX,CNTWO+6
TEMP-5.0RIVE-5
TO
MAPENT,DIMENT
TR
SET STAGE 2 INDIRECT RETURN ADDRESS.
TFM HAlT+ll,CHK4.,
CHECK FUR NON-EXECUTE OF NON-DISK LOAD.
BNF .+24,QVRlAV+21,t

00218
00000

x

J9656
3

-2102
I
0
5 X

19982
19982
19987

5 X

19987
19990

J9161
3

19996

6

00000
00000
00012
00020
00020
00032
00044
00056
00068
00080
00092
00104
00116
00128
00140

211

109

00441
00480

00269
00000

16
31
26
16
44
31
26
25
31
16
44

00510
00441
02180
00461
00116
02164
00565
02014
02144
001061
00164

-045L
00283
00464
-04200428
02183
02116
02164
00402
-1412
001089

31

20

1620-1311 SUPERVISOR AND IDIIT II
08600
08610
08620 LRA02
08630
08640
08650
08660

08670
08680

08690
08700
08710 LRAOS
08120
08130

DC
-18
DSA

08740

PAGE

CF
YES -CLEAR THE EUCUT IDN INDICATDII.
CNTIID+lt"
CF
OVIIUY+21
TFM OLOCY+I ,MC\'l. ,10,
RESTORE MONITOR MODULE CYLINDER IND.
TFM HALh6,8
8NF OVRLAY+12,FSPS"
TEST IF CALLED BY SPS SUPERVISOR.
BNF OVRLAY+12,SPSMLP+I"YES -TEST IF MAIN LINE PROORAM LOAD.
TFM HALT+1I,0IHENT+18,711,SET STAOE 2 RETURN ADDRESS.
TR
DLDDA,.+19"
READ IN SPS SUPERVISOR RETURN
B
OVRLAY+12,DSAI7,.
ANALYLER.
3,2
DC
-02
DC
6,0'
-0000'
OS
0.-+1
DSA DSA06

00lS2
001"
00176
00111
00200
00212
00U4
002)6
00248
00262

SJ
J3
16
16

••

44
16

31
49

5 X

0
J9640
3

00281
00281
00282

-0502
I

Dse

10'

08760 LRA06
08770

OS
DSA

DSAOI

00283
00287

0
5

08780

DC
-04
DSA

3,4

00287
00290

J9635
3

0

00295

1,'

00295
00296

08800

Dse

08810
08820

ODRG 19982,
DSC 1,1
1
OSA DSAl8

08830
08840
08850

......

08860
08870
08880
08890
08900
08910
08920
08930 SRA02
08940 SRAOI
08950
08960

CDNTRDL TD NRITE DN DISK.

00255
19770

6

08750

08790

-042-

00269
00273

502

0,·.1

21

00000
00000
000R8
-0008
00429
00469

00268

00273
00276

3,18

02111
00419
02U2
00462
00410
00410
00467
00441
00480
3

-0000
I

19982
19982

3,3
DC
-0]
DC
6.0'
-0000'
SPS SUPERVISOR RETURN ANALYlER STAGE I
ODRG 0
CF
fSPS, ••
CLEAR THE SPS SUPERVISOR FLAG.
BD
BRANCH IF NON-DISK LOAD.
SRA02,LDINPT"
8NF SRA02,SPSMLP"
TEST IF RELDCATABLE.
ND -TURN OFF THE INOICATDR.
CF
SPSHLP",
TFM HALT+ll,CHK4+12,. SET STAGE 2 INDIRECT ADDRESSES.
CF
TURN OF MAIN-LItlE PROGRAM INDICATOR.
SPSMLP+l, "
TFM HALT+6,8
TFM OLDCY+l,MCYL,IO,
RESTDRE MDNITDR MDDULE eYLltlDER IND.
TFM GTEST+5ft,OVRLAY"
RESTORE BRANCH ADDRESS IN IORT.

19987

5

19987
19990

J 9 792
3

19996

6

00000
00000
00012
00024
00036
00048
00060
00072
00084
00096

33
"3

""

33
16
33
16
16
16

00429
00060
00060
00"68
00467
00469
00lt62
02132
0121"

00000
00428
00468
00000
-1424
00000
-0008
000R8
-0468

2I
1620-1311 SUPERVISOR AND 10RT II
08970
OB980
08990
09000
09010
09020 SRAO]
09030
09040
09050

09080
09090

09110
09120
09UO
09140
09150
09160
09170
09180
09190
09200
09210
09220
09210
09240

......

09250
09260
09270
09280
09290
09300
09310
09320
093)0
09HO
09]50
09360

B

RMI,ltlDS+I3,6,
RM2,INDS+13,6,
DLODA, SRA03"
OVRLAY+12

......

PAGE

SET TIIO RECORD MARKS I N THE SPS
SUBROUTINE NORK AREA.
READ AtlD EXECUTE STAGE 2.

00108
00120
00132
00144
00152
00152
00156

DORG ·-3
OS
0.-+1
DSA DSAOI
3,4
DC
-Oft
6,Q'
DC
-0000'
DORG 19982,
Dse 1,1
I
DSA DSA17

09060
09070

09100

TO
TO
TR

CONTRDL TO WRITE DN DISK.

25
2~

31
49

02210221N
00441
00480

00623
00623
00152
00000

0
5 X

00156
00159

J9635
3

00165

6

19982
19982
19987

DC
3,2
-02
DC
6.0'
-0000'
SPS SUPERVISOR AND LOADER RETURN ANALV UR STAGE 2
DORG 0
B
HALT.6, ,6,
INDIRECT EXECUTE BRANCH.
DDRG 8
SF
CINIT" ,
RESTDRE LOADER INITIALIZATION IND.
BNF *.20, FSPS"
TEST IF CALLED BY SPS SUPERVISDR.
B
IOXX,,6,
YE S -RETURN TO IT.
OORG --3
BD
•• 20. SYSCAl"
TEST IF CALLED BY A SYSTEM PROGRAM.
B
HALT+Il,,6,
ND -RETURN THROUGH PRESET BRANCH.
DORG --3
TR
OlOOA,*.19 ••
EXECUTE SYSTEM RHURtl AtlALYlER.
8
DVRLAY+12,DSA19
],3
DC
-03
DC
6,0'
-0000'
DORG 19982,
CDNTROL TD WRITE ON DISK.
DSC 1,1
1
DSA OSAOI

5 X

19987
19990

J9770

19996

6

00000
00000
00008
00008
00020
00032
00040
00040
00052
00060
00060
00072
00086

3

49

0046K

00000

32
44
49

00lt27
OOOitO
0056N

00000
00429
00000

43
49

00060
0046P

00475
00000

31
It9

00441
00480
3

00079
19795

00092

6

19982
19982
19987

],1
DC
-01
DC
6,0'
-0000'
IDRT LOAD PROCESSOR FOR NAMED PROGRAMS SECTION 1
OORG 0
A
e.23.HALT+6"
MOVE I4AME AND POSSIBLE LOAD ADDRESS.
A
*+35,1,111
A
*+47. *+23
TO
*+47,26.7

J9635

19996

6

00000
00000
00012
00024
00036

22

5 X

19987
19990

3

21
21
21
25

00023
00047
00071
00083

00462
-OOOJ
00047
-0026

22

PAGE

1620-1311 SUPERVISOR AND 10RT II
09370
09380
09390
09400
09410
09420
09430 AA02
09440
09450
09460
09410

TO
TR
TOM
TF
TR
TFM
8
TFH
8
OSC
2K
OSA

--10 AA04- 1. 6
U02A.lB.711
·-25,XX,6
AA02A+23.HALt+6.,
AA02A+24.CNTWD
IOXX,*+23,.
IOR8C.AA03,7
IOXX,·.23 ••
10&T.0+12.7
2.-22

00048
00060
00012
00084
00096
00108

SAVE IDRt CALLING PARAMETERS.
SAVE CORE TO 8E OVERLAlO.

OOlZO

00132
00144
00156

REAO AND EXECUTE SECTION 2.

0+7

00162

09480

OSC

1,'

00162
00163

09490

DSC
1
DSA

1,1

001M

OSA09

00169

09500

25
31
15
26
31
16
49
16
49

5 X
-0164
1

5 X
J9744
3

3,5

09520

DC
-05
OSA

00169
00112

ABOO

00171

09530

DSC

I, '

00171
00178

J0902
1

09540
09550 AA02A

DORG 229
DSC 32,0
00000000000000000000000000000000
OSC 2,02
02
DSA 0+7

00229
00229

32

09510

09560 AA03
09.510

00261
00267

09580

DSC

I, '

00261
00268

09590

OSC
1
OSA

1,1

00269

HOD

00214

3,10

00274
00277

SYSORG+8500

00282

09600
09610

DC
-10
OSA

09620

,

OSC

09640 AA04

OSC 8,3200000'
3200000'
OSC 5.0'
0000'
OORG 19982.
OSC 1,1
1

09650
09660
09610

-0269
1

-1400
3
5 X
J0902
1

00282
00283

I, •

09630

23

00283
-0010
00000
00462
02170
-0131
-0261
-0155
-0156

0004P
00229
0004P
00252
00253
00565
00520
00565
00566
2

00284
00292
19982
19982

CONTROL TO WRITE ON DISK.

23
1620-1311 SUPERVISOR AND 10RT II
09680

OSA

09690

3,2
DC
-02
6,0'
DC
-0000'
MONITOR CALLER SUBROUTINE -ALSO PROCESS ES RETURNS TO THE
OUP SUPERVISOR FROM ITS CALLS TO THE RELOCATA8LE LOADER.
OORG 0
TFM OLDCY+ I, MCYl.I0.
SET CYLINDER POSITION.
MCA03
8
OORG 20
TFM HAL T+6,M8000.,
SET ENTRY TO THE MONITOR.
TFM 8NI+18,18MMOO+13,711,RESTORE OVRLAY ROUTINE EXIT.
MCAOI
8
OORG ·-3
8NF "ClO6,HALT ••
TEST IF MONITOR AlREADY IN CORE.
8
YES -8RANCH DIRECTlY TO IT.
M8000" ,
OORG
OSC 2,2
02
OSA MCAOOA

09100
09710
09720 •
09730
09140
09150
09760
09770
09180
09190
09800
09810 MtAOO
09820
09830
09840 MCA04
09850
09860
09810
09880
09890
09900
09910

OSC

I, '

OORG
8NR
TOM
8NF

100

10050 MtA05

TOM
TFM
8
TFM
B
TF ...
TR
8
DC

*+21t,SYSCAl,.
SYSCAL.O
MCAOO,SYSCAL ..
SYSCAl,5, t
IOXX,*+23"
IOR.8C,MCAOIt,7
JOXX,*+23,.
IOGT,MCA05.7
HAlT+6,CHK4+12"
OLOOA,*.19,.

DVRLAY,llSAOl ..
3,4

5 X

19981
19990

J9198
3

19996

6

00000
00000
00012
00020
00020
00032
00044
00052
00052
00064
00071
00071

16
49

02132
00100

OOORB
00000

16
16
49

00462
00510
00208

-2902
-045L
00000

44
49

00250
02902

00456
00000

5 X

00017

-0079
1

00017
00078

I, '

OSC 1,0"
0
5,1400, ,
DC
-1400
DC
3,117
J17
DSA SYSORG-l00

09920
09930 MCA03
09940
09950
09960
09910
09980
09990
09991
10000
10010 MCAOI
10020
10030
10040

19981

·-4

OSC
MC,~OOA

PAGE

05A20

OOA TO SAVE CORE ON 8-TH CYLINOER

00079
00084

OF DISK SCRATCH AREA

00081
00092

5 X
-2302
1

00092
00093
00100
00100
00112
00124
00136
00148
00160
00112
00184
00196
00208
00220
00234

REPLACE ANY SY5CAL R.M. BY O.
TEST IF OUP CALL.
YES -SET SYSCAL RETURN CODE.
SAVE CORE FOR THE DUP SUPERVISOR.
LOAD THE DUP SUPERVISOR.
SET UP EXIT AFTER RESTORATION OF TA8LES.
RESTORE ARITH TABLES AND EXECUTE
MONITOR OR DUP SUPERVISOR.

-04
DC
6,0'
-0000'
OSC 3,220
220

2

'I

45
15
44
15
16
49
16
49
16
31

49

00124
00415
00052
00H5
00565
00520
00565
00566
00462
00441
00468
3

00240

6

00241

3

00415
00000
00475
00005
-0111
-0011
-0195
-0241
-1424
00227
19635

24

1620-1311 SUPERVISOR ANO IORT II

PAGE

10060

DC
5,139',
-139'

002~.

10070 MCA06
10080
10090

TR
OLOOA,>+19..
READ IN THE ""NITOR PLUS THE 10RT VIA
8
OVRLAY+12 ,05A06 .. ,
THE OVRLAY RUD ROUTINE.
DC
30109
J09
DC
6,502'
-0502'
OORG 19982..
CONTROL TO WRITE ON DISK.
DSC
I tl
I
DSA DSAI9

00250
00262
00216

00"41
00480

00282

6

10100
10110
10120
10130

DC

10HO

25

00269
[9640

3

19982
19982
5 X

19981

3,3

19981
19990

J9795
3

6,0'

19996

6

02820

19

-03

DC

10150

-0000'
10160
10170
10180
10190
10200

MON[TOR

-HA[N ROUTINE

COMMUNICATION SECTOR ASSEM8LED PARAMETERS
DC
19,0' .COMK+18,
HEADLESS DDA-S FROM SPS AND FORTRAN.
-00000000000000000'
DC
2,8,CO""+41,
STANDARD SPS MANTI SSA LENGTH.

10210

028~3

-8
DC

10220

2,2,COMM+43.

02845

STANDARD SPS SUBROUTINE SET.

-2
10230

I,O.COM"+44,

STANDARD SPS NOISE DIGIT.

DC

2,8,COMM+46,

STANDARD FORTRAN MANTISSA LENGTH.

028~8

2,4,COM"+48.

STANDARD FORTRAN FlO. PT. WORD LENGTH.

02850

1,I,COMM+49,

NUM8ER OF MODULES IN 1620 SYSTEM.

02851

MONITOR STATUS INDICATORS.

02852

o

10240

02846

DSC

-8
DC
-4
DSC

10250
10260

1
DSC 4,O."CO"M,
0000
DC
201,I1COM"+5

10270
10280

-1
DC
-0

10290
10300

DC
-0
DC

10310

02857

2.0.MCOMH+7

02859

2,O,MCO"M+9

02861
02863

2,O,MCOMM+ll

-0
10320

DSC

I,D,MCOMM+12,

LE BOEUF SUR LE TOIT.

02864

OSC

1.5.COMM>73..

PRINC[PAL INPUT DEV[CE CARD

02875

o

10322

5
10)21
10322
10321

THE PR[NCIPAL [NPUT DEV[CE NUMBER W[LL BE 5 FOR CARD SYSTEM
AND 3 FOR PAPER TAPE ON SYSTEM DELIVERY.
DC
lo1,CO""+16,
OBJECT SYSTE" SIZE

02818

J

DC
5.0,COMM+88.
-00011

10330

02890

LOWEST ADDRESS LOADED BY LOADER.

25
1620-1311 SUPERVISOR AND [ORT 11
10331

OSC

lo1,COMM>83.

1
DC

10HO

FORTRAN SUBROUT INE SET

5.0.COMM+93.

CURRENT LOADER RELOCATION [NCREMENT.

5,O.COMM+98,

CARD SEQUENCE NUM8ER FOR LOAO[NG.

PAGE
02885
02895

-0000
10350

DC

10360

-0000
OSC 1,' ,COMM>99

10370
10380
10390
10400
10410
10420
10430

•
•
•
•
•
•

10440 ..
10450
10460
10470
10480
10HO
10500
10510
10520
10530
10540
10550
10560
10570
10580
10590
10600
10610
10620
10630
10640
10650
10660
10670
10680
10690
10700
10110
10120
10130
10740
10150
10760
10110
10780
10790
10800
10810
10820
10830
10840

•
•
•
•
•
•
•
•
•
•
•
MAOOO

MAOI0

02900
02901

COLD START ENTRY TO THE MONITOR
-CLEAR STORAGE. THEN
THE FOLLOWING INSTRUCTIONS MUST 8E LOADED INTO O.
340003200101
360003200702
4902~02X

Y 1963611100102
WHERE

X
-I
-3
-5

I S THE MONI TOR CONTROL CARD SOURCE TYPEWRITER
IF ANY OTHER DIGIT IS SUPPLIED.
PIT READER
THE MONITOR Will ASSU"E THE
CARD READER
VALUE 1 ITYPEWRITERI

AND WHERE Y IS THE DRIVE CODE FOR THE PHYSICAL MODULE
ON WH I CH THE MOr-ilTOR r-IOW RESIDES ~1
MODULE 0
[F ANY OTHER DIGIT IS SUPPLIED.
-3
MODULE 1
THE MONITOR Will ASSUME THE
-5
MODULE 2
VALUE 1 I MODULE 0 I
-7
MODULE 3
DORG
TO
TR
TDM
TO
80
TOM
TO
CF
TO
BD
TOM
TO
TOM
TOM
TOM
TOM
TFM
TFM
TF
TO
BTM
TR
8TM
TR
BTM
TR
8TM
TR

SYSORG
402."CROlA. ,
1000102
402.0

MOVE ARITHMETIC TABLES TO PROPER ADDRESS.

-+23.31
·+2-4,MCOOl
3101
MCOMM+3.31

32, ,t
-.23.32 ••
-+24,"C004

seT

UP LOGICAL MODULE 0 DRIVE CODE
EQUIVALENCE.

32,1
MCOMM+5.32

"COMM.O,t

02402
02402

25

02414

31

02426
02438
02450
02462
02474
02486
02498
02510

15
25
43
15
25

02522

02594
02606
02618
02630

15
25
15
15
15
15
16
16
26
25

0253~

Ir-ilTIAllZE COMM SECTOR .[NOS.

025~6

11

00402
00100
00402
02461
02414
00031
02855
00032
02521
02534
00032
02857
02852
02853
02854
02864
00510
02132
02124
00440
08380
10802
08380
10822
08380

31
17
31

08380
10862

33
25
43

MCOMM+l,O
MCOMM+2.0
MCOMM+12.4
BNI>18.18MMOO+13.711
OLDCY+l.MCYl,IO
EQUIV+l,HCOMM+5,. READ DDA-S fOR SPS. FORTRAN, DUP, AND
IBMMOO,MCOHM+5,.
THE EQUIVALENCE TABLE AND DUMP THEM
UT05,8.,
ONTO DISK, ON SPECIAL SECTOR.
SPSDDA. UT05-1 011
UT05.136

02558

02642
02654
02666

11
31
11

FOROOA,UT05-l.l1

02618
02690
02702
02714
02126

31

UT05.139
OUPDOA, Ur05-1, 11

UT05.2
EQUODA. Uf05-loll

02510

02582

108~2

04485
00102
00000
00031
10690
00001
00031
00000
00032
10120
00001
00032
00000
00000
00000
00004
-045L
000R8
02851
02851
-0008
0837R
-0136
0837R
-0139
0831R
-0002
0831R

26

16Z0-U11 SUPERY ISOR AND 101lT II
10850
10860
10870
10880
10890 NAOZO
10900

TFN
8
8
DDRG
DSt
22
DSA

PAGE

10U,HZ)
loR8C.NAOlO,?

M8000,.,
.-It
2.Z2

02738
02750
02762
02769
02769

PROCEED TO THE INTER-PHASE ENTRY.

144025

02775

10910

OSC

1 ••

02775
02776

10920 MAOZ5

DSC
I
DSA

1,1

02777

OSAItO

02782

3.1

02782
02785

10930
10940

OC
-01
DSA

10950
10960

...... .

10970
10980
10990 MBOOO
10991
10992

10993
11000
11010
11020
U030
110ltO
11050
11060 .. 8010
11070
11080
11090
11100
11110 .. 8020
Ul20
11130
11131
Ul"O
11150
11160 .. 8025

DSC

SPSDDA

02790

I.'

02190
02791

..

I NTER-PHASE ENTRY TO "oNlToR.
DDRG SYSoRG+50o
RCTY
RESTORE TYPENRITER CARRIAGE.
TD
KREC+2,Co"1I+76, ,
SAVE sysre .. SUE
TR
olDCY ... 82Z6-1 ..
SET ARN INDICATORS SO SEEK .. UST OCCUR
BSNX .+12. "
TURN OFF REGISTERS
TF
EQUIV+l ...Co ..1I+5, •
RESTORE LOGICAL DRIVE 1 ..ODULE EQUIV.
TO
IB....OD,MCOMM+5
SF
HALT, ••
INDICATE PRESENCE OF MONITOR.
TD .. rOP+31.9. ,
DISA8lE CONTROL CARD TRAP.
8D
.. 8035.oVRLAY+IO,.
TEST fOR ENTRY VIA CNTl CARD TRAP •
TOM "101,0 ..
NO -SET UP TO READ A CNTl CARD.
TO
U34.MCOMM.12 ..
DNAY EArCHAY.
TD
U23.SYSCAl
SYSCAl, MCD06
TO
80
TEST IF END OF JOB.
"8020,SYSCAl"
8T .. U107,1,.
YES -GO TO JOB CLOSING ROUTINE.
TO
•• 23, SYSCAl ..
EXECUTE A CO .. PUTEo 8RANCH ON SYSCAl •
TO
*+21,MCD09
TF
·.30 ...CDI0
CF
*+11
8
M8025 .. 6
DDRG .. 8000.2"",
TRICKY, WHAT SAY--.
DSA MCROI.M8080,MBl00."BI00,"8140

,

02902
02902
02911t
02926
02938
02950
02962
02974
02986
02998
03010
03022
0303"
030"6
03058
03070
03082
0309"
03106
03118
03130
03146
03150

16
49
49

11180
11190

TO .. SYSCAL,O"
B
MBOI0+"8
DDRG ·-3

03172
03184

FORCE TERMINATION OF JD8.

27

-2761
-2769
00000

5 X
-2777
I

X
J971t3
3
X
J0802
I

34
25

31
60
26
Z5
32

l!>
43

15
25
2S
25
U
17
25
25
26
33
49

00000
09836
02131
()2950
02124
004ltO
00456
01995
03192
09870
03056
03051
00415
03082
08812
03105
03117
03136
03135
0315-

00102
02818
04076
00000
02851
02851
00000
00009
00lt78
00000
0286"
00"75
107ltO
001t75
-0001
00lt75
10710
10781
00000
00000

5

X

03150
03155
03160
03165
03170

11170 .. B030

00565
00520
02902

-4098
-3304
-1"'2
-3"52
-3~88

49

00475
03070

32
25
15
44
39
34
48
49

00451
03203
00478
0328"
10381
00000
00000
03010

00000
00478
00000
03203
00100
00102
00000
00000

15
49

09870
03022

00001
00000

11

096108

15
15
31

02861t

-0000
00006
00006
108"2

15

00000
00000

03192

27
1620-U11 SUPERVISOR AND 10RT II
11200 .. B035
11210
11220
11230
11240 "B040

SF
TO
TOM
BMf
WATY
11250
ReTY
11260·
H
11270
B
11280
DDRG
11290 M80,,5 TOM
11300
B
11310
DORG
11320 .. B080 BTM
11330
TON
11340
rOM
11150
TR
113110
BNR
11370
TF ..
113BO .. B080A WATY
11390
WNTY
RCTY
11"00
11410
B
OORG
11"20
llltlO M8081 NOP
11HO
TD
111050
B
11460
DDRG
111t70 "8100 BTM
lllt80
BMF
111090
BMF
11500
B
11510
DORG
11520 MB110 TOM
. 11530
BNF
11540
BO
11550
BNF
11560
8
11570
DDRG
11580 .. S110A BT
11590
TR
U600
BNR
11610
B
11620
DDRG
11630 KB110B TR
1161t0
A
11650
TO
11660
TF ..
11670
BNF
11680
SF
11690
TFM
11700
8
11710
DORG
ll720 M81ltO 8NF
11730
8
OORG
117"0
11750
BTM

PAGE

NONEX, ••
--I ,OVRLAV+I0,.

INHIBIT EXECUTION •
SAVE RETURN CDDE.
OVRUY+ ItI.O ••
RESTDRE .. AIN IND.
"B045,M8035+ 11" TEST IF READ NU .. ERICALlY.
TYPE RELOAD MESSAGE.

..

03192
032C1t
03216

03228

""3O".

,

148010-12
.-3
MI01.lt.
MBOIO
·-3

UTl1 ...
"002,6.,
MCO .. M.12.6, •
.. R02.DUPDDA,.
.. B081 ...R02"
PDINT,U9"

""36, ••
POINT-l" •

03240
03252
03264
03276
03284

WAIT FDR OPERATDR.
INHIBIT READING A CONTROL CARD.

03284
03296
0330r,
03304
03316

TEST FOR INHIBITED EXECUTION.
SET SYSCAl CODE.
SET DUP INDICATDR.
GET DDA FOR DUP SUPERV1SDR.
TEST IF VALID.
NO.
TYPE ERROR MESSAGE.
IDENTIFY .. ISSING OIN ENTRY.

03328
03340
03352
0336"
03376
033B8
03400
03lt12
031020
03420

unOF
.-3
.. B225+7 ...CROU"
"B200 ..
.-3

NO LOAD ADDRESS.
GO TO EXECUTE lOAD.

UTl1, ..

TEST FOR INHIBITED EXECUTIDN.
TEST IF PHASE BEGAN WITH EXECUTE CARD.
YES -TEST IF EXECUTION INHI8ITED.
YES.

"BI45,NCOMM+l ••
NBI10 .MCOMM+2 ••

UTIOF",
·-3
.. CO ..... 12.4, ,
.. B110B.CO .... +22 ••
N81108.CO.... +22. ,
•• 20.COMH+39"

"81108".
·-3
UT05.i:D"M+39 ..
"R02,UT05-I.ll,
.. BI90 ... R02 ..
MXQO"+.l2" ,
.-3
MROZ+l.COMM, ,
MR02.l,SRELOC ..
"R02,SRElOC-3 ••
MR02+ U. 99999.••
·+24,COMM+12 ••

MR02+13.,.
HIGH. SYSORG"
"8195 ...
.-3

031032
03lt41o
03452
03"52
03464
03lt76
03488
03496
03496
03508
03520
03532
OlS"4
03552
03552
0356"
03576
03588
03596

SET EXECUTION INDICATOR.
TEST IF PROGRA .. lOADED TO DISK •
YES -TEST IF IN CORE I .. AGE FORNAT.
YES -TEST IF A DIM NU .. 8ER SUPPLIED.
WHERE ARE YOU.
GO TO GET THE DDl •
..OVE TO TEMPORARY SLOT.
TEST IF VALID.
NO -TYPE ERROR MESSAGE AND CLOSE J08.
USE ODA IN COMM SECTOR AS lOAD DDA.
CONVERT FROM SCRATCH TD .8S0lUTE
SECTOR ADDRESS.
FDRCE THE RElOCATABlE INDICATDR.
TEST IF THE SPS SUPERVISOR REQUIRED.
YES -SET FLAG INDICATDR.
RELDCATA8lE PROGRAMS WILL BE LOADED
AT SYSORG.

·+20,MCOMM+l,t
M8030" ..
·-3

TERMINATE JOB IF THIS PHASE INVOLVES
EXECUTION OF A USER-S PROGRAM.

UTil,l,.

TYPE NON EXECUTE MESSAGE.

097H

031020

097710

09798

-0139
00100
00100
00102
00000

16
39
38
34
"9

09795
00000
09580

Itl
25
49

03764

17

09648

410

03720
03496
09580

44
49
15
44
"3

""

49

10"81

00000
0""070

02864
03596
03596
03552
03596

27
31
45
49

07236

03596

31

09775

03608
03620

21
25
16

09777
0977"
09787
03668
09787
00"34
03752

03632
o36"It
03656
03668
03680
031>88
0368B
03100
03708
03708

28

."

09173

""

32
16
"9

08380
091H
03740

00000
04485
00000
-0000
02853
02854
00000
00004
02824

02824
0281tl
00000
02841
0837R
09174
00000
02802
00425
00"22
R9999
02814
00000
-2492
00000

44
49

03708

03172

02853
00000

11

096"8

-0001

28

1620-1311 SUPERYISOR AND lotIT I I
11160
11710
11180
11190
11800
11810
11820
!le30
!l840
11850
11860
!l810
11880
11890
11900
11910
!l920
11930
11940
11950
11960
11910
11980
11990
12000
12010
12020
12030
12040
12050

MBH5

HBI90
MBI95

......

HB200

PAGE

TOM "CO"M+1,0 ..
INDICATE PHASE NOT BEGUN.
GO TO CONTROL CARD REAO EXECUT IVE.
B
"eROl •••
OORG --3
TOM "8225,3"
FORCE UPDATING OF HIGH INDICATOR.
TOM "002.0.,
SET SYSCAL CODE.
FINAL LOAD AND EXECUTE OF SYSTEM OR USERS PROGRAM.
TF
EQUIV+3,MCOMM .. 1, ,
MOVE REMAINDER OF EQUIY TABLE.
TF
EQUIV+5.MCOMM+9
TF
EQUIV+1.HCOHM+!l
TR
SET DRIVE REPOSIT[ON TABLE TO ZERO-S.
REPOS.LREC ..
TOM REPOS+7.0
HOVE CONTROL CARD SOURCE TO COMMON.
TO
*+41,FSPS ••
TO
FSPS.MCOMM+3
BNF *+24,*+23
SF
FSPS
FOR GOOD MEASURE.
SF
lOINfJT. 1t
SF
CINIT
TR
COMM+84. JREC
IOXX,*+23,.
WRITE COMM SECTOR ON DISK.
TFM
8
[ORBC.H8220.1
IOP+37,5, ,
RESTORE CNTL CARD TRAP IN 10RT.
TOM
SET SYSeAL CODE.
TO
SYSCAL,MD02, •
CF
REMOVE MONITOR INDICATOR.
HALT".
CF
REMOVE ANY REMAINING LITTlE GOODIES.
HALT+1. "
TEST FOR EXECUTION.
Bo
M8210.SYSCAl ..
WlTY "1425 •• ,
YES -TYPE MESSAGE.

ReTY

MB210
MB220

12060

TFM
8
DSC
22
OSlo

IOXX,e+23,.

LOAD AND EXECUTE DES IRED PROGRAM.

IOGT.M8225.1
2.22

0)720
03132
03140
03140
03152

15
49

02853
0409B

00000
00000

15

04063
09773

00003
00000

03164
03116
03188
03800
038[2
0)824
03836
03848
03860
03812
038810
03896
03908
03920
03932
03944
03956
03968
03980
03992
04004
04016
04028
04040

26
26
26
31
15
25

02126
02128
02130
00512
00519
03811
001029
03872
00429
00428
00421
028&6
00565
00520
01995
00415
00456
00457
04016
10319
00000
00565
00566
2

02859
02861
02863
09843
00000
00429
02855
03871
00000
00000
00000
09818
-3931
-4040
00005
09173
00000
00000
00415
00100
00102
-4039
-4063

MB222

04046

12070

DSC

I ••

04046
04041

12080 M8222

OSC
I
OSA

1.1

04048

OSA39

04053

3d

04053
04054

12090

12100

OSC
001
OSA

12110

2~

44
32
32
32
31
16
49
15
25
33
33
6, , TEST FOR -DUP- CARD.
HOP01,1200
MCCBUF+ll,MM10+6 .. TEST FOR -XEQ- CARD.
MX001,1200
MCCBUF+ll ,MMll+6"
TEST FOR -X EOS- CARD.
MX002,1200
MCROI-12,MCCBUF+l.7,COMMENTS CARD -GO TO READ NEXT OIlE.

UT06, ••

0"178

04190
·04802
0481"
04826
0"838
04B50
04862
OltSl,.
04B86

0"898
04910
04922
0,,934

049,.6
04958

24

47
15
17
49
24

47

13011
04602
02855

08514
04086
13011
0"658

17
48
49

0852"

43
17
43

0"086
08524
0"086
02824
02841
02802
00426
02876
02884
00"34
04070
13011
06228
13011
062"8

31
15
]I
2~

]I

15
16
25
24
46
24
"6
24
"6
2"
"6
24
46
24
46
24
"6
49

00000
0"086

13011
06580
13011
06600
13011

06836
13011
069"0
13011
06972

0"086

0,*-4

0,,965

2,U

0"971

0
2

04972
Olt485

1
0

]l

09935

01100
00001
-0000
00000

099H
01200
.-'0000
00000
00000
09871
-0000
09172
09BOO
000009851

Ol855
0983"
0000-2402
04485
09951
01200
09959
01200
09967

01200
09975
01200

09983
01200

09991
01200
09999
01200

J3001

XX
13030
DG"
13040 MCR01A DS

13050

......

0,MCRD4A+11
JOB CARO PROCESSOR

13060 MJBOI
13070 MJB02
13080
13090
13100
13110

8TM
8TM
TFM
8
8NF
8NF
13120
8NF
13130 MJB02X BD
1311,0
TF"
'B
13150
13160
DDRG
13170 MJB02A DSC
0100

UT07,."
UT06, "

FO,·+23 •••

UTlO,MJB02A,7
MJ803,FIt, ,
MJB30,Fl. ,
MJB04,MDOI
MJB03B,MCD01 ..
FO,MJ803. ,
unOE
.-3

GO TO JOB CLOSE OUT ROUTINE.
GO TO CONTROL RECORD TYPE-OUT ROUTlIIE.
DECODE COL. 7.

04974
04986
0"998
05010
05022
05034
05046

MUST RE-REAO IF ANV ERROR.
EXIT IF R.M.

05058
05070

PROCEED IF PROPER DIGIT.
NO -TVPE ERROR MESSAGE.

05082
05090

17
17
16

,.9
4"
44
44
43
16
49

05090

",0100

08812
08521t
09628

-0000
-0000

-5021

09168

-5090

0510,.

09632

06180
05172
05160

09629
09772

09628
09512

-!H04
00000

10690

4

31
1620-1311 SUPERVISOR AND 10RT II
13180

DC
-1

PAGE

2,7

05095

2
2

13190

DC

2,1

-1
DSA

05097

13200

MJB02X+ll

05102

I.'

05102
05103

13210

,

DSC

13220 MJB03 RClY
13230 MJB03A TOM MCOMM+3,I,.
CHANGE SOURCE INDICATOR.
TOM 1'1103,1011,
132"0
INDICATE JOB CARD SEARCH.
13250
TO" MCOMM,O, •
INDICATE JOB NOT BEGUN.
13260
B
MCROI-12" ,
GO TO CNTL CARD READ SUPERVISOR.
13270
OORG .-3
13280 MJB03B TD
MCOMM+3,MF02,11
13290 HJB04 SF
MJ8l0, ••
INITIALIZE TO SCAN REMAINDER OF CARD.
13300
SF
MJB15
13310
TO
MJB 11 + 11 ,COMH+"9
13320
TO
NJ820+8,COMM+49
13330
TOM MJBI5A+ll,1
13340
TFM MJB13A+6,HCOMM+5
13350
TFM NJ817+11 ,It
13360
TFM MJB50A+5,8,10
13370
TFM MJB55A+5,IZ,10
13380 "JB10 BNF MJ812A+12,*"
IGNORE CONTROL CARD FIELD IF SCAN OVER.
13390
TF" FO,*+23, ,
DECODE CURRENT DRIVE EOUIV. FIELD.
13400
8
UTlO,MJ850A,7
13410
TOM MJBI2A+l,1"
SET ERROR RETURN SWITCH.
BNF MJB12+20,F4"
13"20
CHECK FOR ANV ERROR.
13430
BNR •• 44, MODI ••
TEST IF CARD FINISHED.
CF
MJBtO, ••
131t"0
YES -NO FURTHER SCAN OF FIELDS.
13450
CF
MJB15
13460
B
MJ812A+12
13470
DORG .-3
13480
BNF MJBI2A+12,MD01"
IGNORE A BLANK.
13490 MJ61l CM
MF02,XX,610.
NO -CHECK IF WITHIN CORRECT RANGE.
13500
8NI MJ813,1300
13510 MJB12 . TFM fO,*+20,,_
NO -TYPE ERROR "ESSAGE.
13520
B
unOE
13530
OORG '-3
13540
WAlY MMl1
13550
RC TV
13560
H
WAIT FOR OPERATOR.
13570
8N1 MJ80l,itOOu
IF NO SSW4, SOURCE CHANGES TO TYPEWRITER.
13580
WATY MM31, "
INDICATE THAT CONDITION IGNORED.
13590
RClY
13600 MJB12A NOP MJB15A-20" ,
NOP/BRANCH SWITCH.
13610
TF
MF02,MJB13A+6,611"ALLOW THE OLD EQUIVALENCE TO STANO.
13620
B
MJB13A+12
13630
DORG ·-3
13640 MJB13 A
MF02.MF02,611,
C'OMPUTE PHYSICAL DRIVE CODE.
13650
AM
MF02,l,610
13660 MJB13A TF
XX.MF02.21l.
MOVE TO "COMM EQU IV TABLE.
13670
AM
MJBl3A+6, EQUI V-MCOMM-4. ,MOVE TO 10RT EQUIV TA8LE.
13680
TF
MJBI3A+6,MF02,611

" ,

at

05104
05116
05128
05140
05152
05160
05160

05172
0518"
05196
05208
05220

05232
052""
05256
05268
05280
05292
05304

X

-5069
1

lit
15
15
1,
"9

00000

00102

02855
09871
02852

00001

04086

00000

25
32
32
25
25

02855
05280

U

05719

0975J
00000
00000
02851
02851
00001
-2857
-000"

16
16

16

05574

05971
06205
06219

000-8

09168

000J2
05280
-5315
-6200

05316

15

05513

00001

05328
053"0
05352
0536"
05376

44
"5
33

OH40
05384

05384
05384
05396
05408
05"2.0

05432
05440
05"40
05"52
0546"
05476

05488
05500
05512
05524
05536

05544
05!>44

05556
05568

16
1t4
16
49

05604
05407
06064

OOOOJ
00000

05524

09628

33

05604

,,9

0552"

09632
09772
00000
00000
00000

09172

05280

44

05524

lit
It?

0975J
05544

16
49

09628
0951l

-5440

39
34
48
47
39
lit
41
26
"9

10065
00000
00000
05104

00100
00102
00000

05580

21
11
26

0975J
-0000

10"05
00000
05688
0975J

0975J

000-0

01300
00000

00400
00100
00102

00000
055714
00000

0975J
000-1
0975J

05580

11

05574

-onL

05592

26

055714

0975J

32

162a-UIl SUPERVISOR ANO 10RT II
13690
13700
13710
13720
13730
13740
13750
13760
13770
13780
13790
13800
13810
13820
13830
13840
13850
13860
13870
13880
13890
13900
13910
13920
13930
13940
13950
13960
13970
13980
13990
14000
14010
14020
14030
1.031
14040
14050
14060
14070
H080
110090
14100
14110
loU20
14130

MJBl5

BNf
TfM
B
TOM
BNF
BNR
Cf
BD
B
OORG
MJBI5A TOM
TFM
8
8NF
BNF
BNF
SF
C
BI
TO
8TM
TO
WAlY
TF
WAlY
TF
RClY
H
8NI
WATY
RCTY
MJ817 8TM
SF
AM
TF
AM
TO
TFM
B
MJB20 SM
8NI
AM
AM
AM
AM
AM
1~140
B
14150
OORG
110160 MJ821 OSC
22
14170
OSA

MJBl5A-20,_, ,
FO ••• 23 ••
UTlO,MJB55A,7
MJ8 12A+ I. 9, •
MJB12+20,F4"

*.24,"001, t
MJB15,,,
-+20,MJBI3A+6,11,
MJB20
--3
MJB23,XX,10,
10XX,"23
IOGT,MJB22,7
MJ811,MJ815"
MJBll,MDOI"

.. JBIl,F4 ••
l4005" ..

TEST If R.M. ALREADY ENCOUNTERED.
NO -EXTRACT CURRENT PACK NO. FIELD.
SET SWITCH.
CHECK fOR ANY ERROR.
NO -TEST IF CARD FINISHED.
YES -NO FURTHER SCAN OF PACK NO. FIELDS.
SKIP TO END IF MODULE NOT ATTACHED.
READ TRACK CONTAINING PACK NUM BER.
IGNORE CHECK IF END OF CARD, OR
BUNK FIELD, OR
IGNORED ERROR IN FIELD.
COMPARE THE PACK NUMBERS.

14009,MF02,11
MJBll,1200

.+2),MJ821 ••

PAtK NO. ERROR. -GET MODULE NUMBER.

UT01.XX
M'U6+56,UTOI-2
MM16
M"17+72,MM32+14
MM17
MM17+78,MM33+20

'"

MJB15A,400"
MM31 •• ,

UTOS,XX"
14000 .. t
UT05-1,5"
UT05-1,14004,6
UT05-1,1.610,
MAPENT, TEMP-5"
IOXX,"23
10RBC,MJB21,1

IIAIT FOR OPEUTOR.
RE-READ PACK NO. If 55114 OFf.
TYPE CONOITION IGNORED MESSAGE.
REAO IN OIM SECTOR fOR THIS LOGICAL
MODULE ANO MOVE SECTOR ADDRESS fOR
THIS PACK TO PROPER DIM ENTRY.

PAGE
05604
05616
0562B
05640
05652
05664
05676
05688
05700
05708
0570B
05720
05132
05H4
05756
05168
05780
05792
05804
05816
05828
05840
05852
0586'0
05876
05888
05900
05912
05924
05936
05948
05960
05972
0598~

EXIT IF ALL MODULES FOR THIS
-+8.1.710.
MJB30,1l00, ,
CONF IGURAl ION PROCESSED.
MJBI3A+6,MCOMM-EQUIV+6
MJBI5A+ll,2,10
MJB17+11,1
MJB50A+5,I,10
MJ855A+5,5,10
REPEAT FOR NEXT LOGICAL MOOULE.
"Jato .. ,
--3
2,22

05996
06008
06020
06032
06044
06056
06068
06080
06092
06104
06116
0612B
06140
06148
061108

UT05B

06154

ADD 1 TO SECTOR ADDRESS.
IIRITE IT BACK OUT ON DISK.

05688
09102B
09168
05513
05440
05688
05604
05708
06056

05604
-5639
-6214
00009
09632
09772
00000
0557"
00000

15

0616t,

16

00565
00566
05960
05960
05960
14005
14009
05960
05839
07988
10057
10001
10131
10065
10143
00000
00000
05708
10405
00000
OR380
HOOO
08379
0837R
0837R
021410
00565
00520
06064
06180
05574
05719
05971
06205
06219
052BO

000-0
-5H3
-6156
05604
09772
09632
00000
0975J
01200
0616'0
-0000
07986
00100
10455
00100
10471
00102
00000
00400
00100
00102
-0000
00000
-0005
14004
000-1
02014
-6055
-6148
-00-1
01100
-0735
000-2
-0001
000-1
000-5
00000

44
16
49
15
44
45

33
43
49

t,9
44
44
44
32

24
46
25
11
25
39
26
39
26
34
48
47
39
34
11
32
11
26
11
25
16
~9

12
47
11

II
11

II
11
H

n

2
5 X

14180

DSC

1, '

061510
06155

-8498
1

14190 MJB22

OSC
26

2,26

06156

2

33
1620-1311 SUPERVISOR AND IORT II

PAGE

14200

DSA

MJB23

06162

14210

DSC

1,'

06162
06163

14220 MJB23

DSC
1
OSA

1,1

06164

19800

06169

"'HO.

ot

3,20

06169
06172

It,250

-20
DSA

14000

06177

5

1, '

06177
06178

J4000
I

14230

14260

DSC

14270 MJB30 TOM MI03,O,.
DISABLE JOB CARD SEARCH.
GO READ ANOTHER CNIL CARO.
14280
B
MCROI-12",
ODRG~ --3
14290
14300 MJB50A OSC 4,0100
0100
14310
2,0
ot
-0
2,1
14320
ot
-1
14330
OSC 6,0'
00000'
1t,340 MJB55A DSC 4,0100
0100
14350
2,0
DC
-0
It,360
2,5
DC
-5
14370
DSC 6.0'
00000'
SPS AND SPSX CNTl CARD PROCESSOR
1"380
SET SPS ENT RY IND.
14390 MSPOI TOM MCOMM+ I ,3"
14400
8
."20
ODRG _-3
14410
14420 MSP02 TOM MCOMM+!,3, 11 ,
SET SPSX ENTRY IND.
14430
TOM MtOMM,l.,
INDICATE PHASE BEGUN.
TOM MCOMM+12,5
14"40
DECODE ·COL. 7.
141050
TFM FO •• +23, ,
14460
B
UTI 0, MSPO", 7
14470
.+23. SFDINT. I
TEST IF LEGITIMATE.
TO
0+20,MCDOI
141tB0
BO
NO -Kill THI S PHASE.
141090
8
U'10e .. ,
OORG --]
1"500
14510
BNF "SP03,Fl
14520
8NF "SP03,MCOMM+l"
TEST IF SPSX CARD.
1t,530
TFM FO,.+23 ..
YES -DECODE COlS. 8-9.
~ un 0, MSP05B, 7
14540
B
1~550
BNF "SPO],FI
TFM FO, *+23 ••
OECODE COL. 10.
lft560
14570
UTlO,MSP05C,7
B

......

06180
06192
06200
06200

5 X
-6164
I

J9BOO
3

15
49

09871
04086

00000
00000

4
2

06205
06207
06208

6

0621"

4

06219

2

06221

2

06222

6

06228
06240
06248
06248
06260
06272
06284
06296
06308
06320
06332
06340
06340
06352
06]64
06376
06388
OMOO
06412

3 11

15

02853
06260

00003
00000

43
49

02853
02852
02864
09628
09168
06331
06340
09512

OOOOl
00001
00005
-6307
-6523
00426
10690
00000

104

06460

4~

061060

16
49
4"
16
"9

09628
09168
06460
09628
09168

09629
0285]
-6387
-6537
09629

49
15
15
15
16
49
2~

-6~23

-6551

14

PAGE

1620-1311 SUPERVISOR AND IOU II
8NF
H580
TFM
14590
H600
8
14610 MSPO) TR
8NR
1"620
14630
TFM
14640
8
DORG
14650
11.660 MSP04 TDM
8
1"610
OORG
"'680
14690 MSP05A DSC
0101
14700
DC
-7
14110
DC
-1
14720
DSA
DSC

1"730

.14740 MSP058 DSC
0101
14750
DC
-8
14160
DC
-2
It,710
OSA

,

14780

DSC

14190 MSP05C DSC
0101
1t,800
DC
JO
14810
DC
-I
DSA
IU20

.

DSC

1"830

lIt840 MSP05D DSC
0101
1t,850
DC
JI
DC
"'860
-2
1t,870
DSA
14880
"'890

......

DSC

IISP03,Fl
FO.*+23, t
UTlO,MSP05D,1
MR02,SPSDDA"
MSPO'l,MR02"
PDINT,8"
M8080A
--3
M002,4,
M8081+12
4,0101

--"

06424
06U6
06448
06460
06412
06484
06496
06504
06504
06516
06523
06523

2,7

06528

DECODE COLS. 11-12.
MOVE DDA FOR SPS ASSEMBLER.
TEST IF VALID.
NO -TERMINATE CURRENT PHASE.
SET SYSCAL CODE.

44
16
49
31
45
16
49

06460
09628
09168
09114
06504
09198
03316

09629
-6459
-6565
10802
09174
-0008
00000

15
49

09173
03'132

00004
00000

4
2

2,1

06530

SFDINT

06535

5

1,'

06535
06536

-0"26
I

4,0101

06537

4

2,8

06542

2,2

0654"

COMM+81

06549

I, '

065t,9
06550

-2883
1

4,0101

06551

4

2,l0

06556

2

2,1

06558

COIIII+17

06563

5

I, •

06563
0656t,

-2819
I

.,0101

06565

4

2,ll

06570

2
2

2.2

06512

COMM+79

06511

I, •

06577
06578

35

5 X
-2881
I

FOR AND FORX CNTL CARD PROCESSOR.

35
1620-1311 SUPERVISOR AND IORT II
14900
"'910
lIt920
1t,930
I 49t,0
1,,950
14960
14970
14980
14990
15000
15010
15020
15030
15040
15050
15060
15010
15080
15090
15100
15110
15120
15130

MFTOI

TOM

MCOMM+I,4"
B
·+20
DDRG --3
MFT02 TDM MCOMII+l. 4 ,11.
TDM MCOMM,t. ,
TOM IICOMII+12.5
TFM FO.*+23 ••
B
UTlO,MSP05A.7
TD
"23. SFDINT"
BD
"20.MCDOI
B
UflOE •• ,
DORG --3
BNF MFT03.Fl
TFM FO,·+23. ,
8
unO.MFT05B,1
BNF MFT03,FI
TFM FO,.+23, •
B
UTlO,MFT05C.1
MFT03 TR
MR02, FORDOA"
SNR IISP04,MR02"
TFM POINT .136
B
MB080A
OORG .-3
MFT05B OSC 4.0101
0101
15l1tO
2,8
DC
-8
15150
2,1
DC
-1
15160
OSA COMM+82
15110

DSC

15180 MFT05C DSC
0101
15190
DC
-9
15200
DC
-2
15210
OSA
15220

......

15230
15240 MOPOI
15250
15260
15210
15280
15290
15300
15310
15320
15330

DSC

PAGE

SET FOR ENTRY IND.

06580
06592
06600
06600
06612
0662"
06636
06648
06660
06672
06684
06692
06692

SET FORX ENTRY IND.
I NDI CATE PHASE BEGUN.
DECODE COL. 7.
TEST IF LEGITIIIATE.
NO -KILL THIS PHASE.
DECODe COL. 8.

0670lt

06116
06128
06140
06152
06164
06176
06788
06800
06808
06808

DECODE COLS. 9-10.
MOVE DDA FOR FORTRAN COMPII.ER.
TEST I F VAL 10.

15
49

02853
06612

00004
00000

15
15
15
16
49
25
43
49

02853
02852
02864
09628
09168
06683
06692
09512

OOOOM
00001
00005
-6659
-6523
00426
10690
00000

41t
16

06164
09628
09168
06164
09628
09168
09174
06504
09798
03376

09629
-6727
-6808
09629
-6763
-6822
10822
09774
-0136
00000

t,9
Itlt
16
49
31
It5
16
49

4

06813

2

06815
06820

5
-2884
1

1,'

06820
06B21

"",0101

06822

2.9

06827

2,2

06829

tOMM+15

0683"

5

1, •

06834
06835

-2817
1

O.P CNfl CARD PRoceSSOR
TOM MCOMM+ 1,2 •. _
seT PHASE INDICATOR.
TOM MCOMM,1.,
INDICATE PHASE BEGUN.
TOM "'OMM"12,6"
SET DUP INDICATOR.
TOM "002,4.,
SET SYSCAL CODE.
fFM FO,*+23,.
DECODE COL. 1.
8
uno. MSP05A. 7
.+21, SfDlNT '-1
TO
TeST IF LEGITIMATE.
BD
M8080+24./lCOOI
B
UT10E .. t
NO -KILL THIS PHASE.
OORG .-J

06836
06848
06860
06872
06884
06896
06908
06920
06932
06940

36

"
2
2

15
15
15
15
16
49
2~

It3
49

02853
02852
02864
09113
09628
09168
06931
03328
09512

00002
00001
00006
OOOOit
-6901
-1>523
00lt26
10690
00000

36

153..0
15350
15360
15370
15380
15390
15.. 00
15410
15420
15HO
15440
15450
15460
15470
15480
15490
15500
15510
15520
15530
155"0
15550
15560
15570
15580
15590
15600
15610
15620
15630
15640
15650
15660
15670
15680
15690
15700
15tlO
15120
15730
151"0
15750
15160
15770
15780
15790
15800
15810
15820
15830
15840
15850
15860
15870
15880
15890

......
MXOOI

MX002

MX003
MX003A

"X0038

MXQ04

MXQ05

MXQ06
MXQ06A

MX006B
MXQ06C
MX007

16zo-un

SUPERVISOR AND IDRT

II

PAGE

XEO AND XEOS CNTL CARD PIIOCI!SSOR
CF
fSPS ...
SET XEO ENTRY INDICATORS.
TFM "XOOn+ll.27.10
MX002+2 ..
8
OORG - - )
SF
FSPS •• ,
SET XEOS ENTRY INDICATORS.
TFM MXQ038+11.3.. ,10
TDM "CO"M.l ..
INDICATE PHASE 8EGUN.
TOM "CD"M+I,I,lI
TDM "CO"M+12,4, ,
SET D8JECT PRDGRAM INDICATDR.
8NF *+20,MCO""+2 ••
TEST IF EXECUTIDN IS INHIBITED
YES -TYPE MESSAGE AND FINISH UP JD8.
8
unOF" ,
ODRG --3
TFM FO,*+23 ••
DETERMINE IF COLS. 7-12 LEGITIMATE.
UTlO,MX050,7
8
BO
"XQ07,MDOI
BNF MXQ03,MDOI
NO -NAMES MUST 8E NON-NUMERIC.
8
UTloe" ,
DORG --3
TFM MX003A+23.MX055"
INITIALIZE TO DECODE REST OF CARD.
TFM FO,.+23 ..
PERFDRM THE SCAN.
uno. XX
8
.-1,1,.
AM
8NR *+20. MD01.,
TEST FOR R.M.
MXQ04-24, , •
YES -END OF CARO.
B
OORG --3
F5,XX
C"
BNI MXQ03A,1300
BD
BRANCH IF NON-DISK LOAD INPUT.
"XQI2,LDINPT ..
8NF "XOll,CO""+)5 ..
IIRANCH IF PROGRA" NAME SUPPL lED.
BNF "XQ05,COMM+39, ,
TEST IF DIM ENTRY PICKED UP.
NO -TYPE ERROR MESSAGE AND CLOSE J08.
IIATY "M31".
UTlOF
8
OORG --3
GO TO PICK UP THE DIM ENTRY.
BT
UT05,COMM+39"
TR
"R02,UT05-1,11.
"OVE FDR LOAD ROUTINE.
TEST I F EMPTY.
BNR *+20,MR02, •
MXQ04+12, ••
YES -ERROR.
B
OORG --3
DETER"INE IF RELOCATA8LE.
TF
"FO I, "R02+ 13, ,
MFOI
tF
MFO t. 99999
tM
MX006A ,1200
BI
NO -FORCE UPDATING OF HIGH INDICATOR.
TF" MXQ06C+6,MBI90 ..
B
"X0068
DORG --3
YES -MOVE IN LOAD ADDRESS IF ANY.
IIMF .+2~tCDMM+8 ••
TF
"1225+11,COM"+12
M8225+1I
CF
TFM MXQ06C+6,MBI95
"OVE I N ENTRY ADDRESS IF SUPPLIED.
8NF a+24,COMM+l'. ,
TF
"R02+18,COM"+17
"8195,., ,
M8190 OR MBl95.
8
OORG --3
CLEAR EXCESS FLAGS IN NAME FIELD.
MCCBUF+14, ••
CF
CF
"CC8UF+16

06'M0
06952
0696..
06972
06972
0698 ..
06996
07008
07020
07032
07044
07052
07052
07064
07076
07088
07100
07108
07108
07120
07132
07144
07156
07168
07176
07176
OTl88
07200
07212
0722"
07236
07248
07256
07256
07268
07280
07292
07300
01300
01312
07324
07336
07348
07360
07368
07368
01380
01392
0740"
07'116
07428
01'140
074"8
07448
07460

3l
16
.. 9

00U9
071n
06996

00000
000K7
00000

32
16
15
15
4"
49

00 .. 29
onn
02852
02853
0286"
07052
09580

00000
OOOL"
00001
OOOOJ
OOOOit
02854
00000

16
49
43
44
49

09628
09168
014"8
07108
09512

-7075
-7843
09712
09772
00000

16
16
49
45
49

071"3
09628
09168
07143
07176
07200

-7857
-7143
00000
-0014
09712
00000

1"
47
"3
44
,,4
39
49

09634
07120
0770"
07672
07256
10517
09580

-0000
01300
00428
02837
02841
00100
00000

2T

08380
09774
01300
01236

028"1
0837R
09771t
00000

46
16
It9

09146
09746
09146
01368
07446
07416

09787
00000
R9999
01200
-3740
00000

4"
26
33
16
4"
26
"9

07392
01t071t
04074
074'16
07440
09792
03752

02810
02814
00000
-3752
02815
02819
00000

33

13014
13016

00000
00000

15

11

31
45
49
26

33

lit

33

37

37
1620-1311 SUPERVISOR ANO 10RT II
15900
15910
15920
15930
15940
15950
15960
15970
15980
15990
16000
16010
16020
16030
16040
16050
16060
16010
16080
16090
16100
16110
16120
16130
16140
16150
16160
16170
16180
16190
16200
16210
16220
16230
16240
16250
16260
16270
162BO
16290

MX008

"XQ09
Mxal0

MXOli

MX012

MX013

"X020

16300
16310
16320
16330 MX050
16340
16350
16360

CF
tF
CF
TFM
TF"
TFM
TF
TO
8NR
B
DORG
TF
TF"
8
OORG
IIATY
B
DORG
AM
TF
B
DDRG
8NR
TFM
B
OORG
TO
BD
TFM
8
OORG
TR
TO
BNF
TF
8NF
TF
B
OORG
OSC
1
OSA

MCC8UF+18
MCCBUF+20
"CCBUF+22
A803+30,MX009 ..
A803+50,"XOI0
AB03+43,MCCBUF+23
COMM+35,"CC8UF+23
A809A,EQUOOA
. . 20,EQUDDA

INITIALIZE FOR EOUIVALENCE TA8LE SEARCH.

-+20
--3
AB09A+5,EOUDOA+5
"XQ03A+23,MX055+14

MXQO]A, ••

RETURN TO DECODE REST OF CARD.

--3

""38, t t
UTlOF" ,
--3

A801+11,4 ••
COMM+39,A803+11.11,
MXQ05 .. ,

--3
AB02-12,EOUooA ..
POINT.2"
MB080A
--3

•• 23.l0INPT,.
MXOI3,MC005
POINT,27,9,
UTlOE
--3
"R02,MX020,.
DIMENT+14,"CROlA
"2",COMM+13
DIMENT+18,CDMM+17
"24,CDMM+8
HIGH,COMM+12
M8195
--3
1.1

CoULO NOT FINO -7YPE ERROR MESSAGE.
FINISH UP.
MOVE CORRESPONDING DIM NUMBER TO
TO THE CoMM SECTOR.
GO PICK UP THE DI" ENTRY.
GO TO EOU TABLE SEARCH IF OOA VALID.
NO -TYPE ERROR "ESSAGE.
TEST FDR LEGITIMACY OF INPUT DEVICE.
NO -TYPE MESSAGE AND EXIT.
SET UP TD EXECUTE LOADER CALLER.

DSA15

DC
3.3
-03
DC
6,0'
-0000'
OSC 4,1001,.
1001
DC
2,7
-7
DC
2,6
-6
DSC 6,0'
00000'

PAGE
071t12
07"8"
07496
07508
OH20
07532
07544
07556
07568
07580
07588
07588
07600
07612
07620
07620
07632
07640
016"0
07652
07664
07612
07672
07684
07696
07704
0770"
07716
07728
07740
0771t8
07748
07760
07772
07784
07796
07808
07820
07828
07828
07833
07833
07836

PROGRAM ·NAME.

33
33
33
16
16
16
26
25
"5
,,9

13018
13020
13022
11064
11084
11077
02837
11380
07588
07600

00000
00000
00000
-7620
-7640
H023
13023
10862
10862
00000

26
16
49

11385
07143
07120

10867
-7871
00000

39
49

10553
09580

00100
00000

11
26
"9

11045
02841
07256

-OOOit
1I04N
00000

45
16
49

10986
09798
03376

10862
-0002
00000

25
43
16
49

07727
07748
09798
09512

00"28
10730
00-27
00000

31
25
44
26

0977'1
00416
07796
00420
07820
004H
03752

07828
04485
02815
02819
02810
02814
00000

44

26
"9

5 X
J9783
3

07842

6

0781t3

4

07848

2

07850

2

07851

6

38

38

1620-Ull SUPERVISOR AND IORT II
16310 MXQ55
16380
16390
16400

DSC
0101
DC
J3
DC
-4
DSA

",0101, ,

07857

2,13

"

07862

2

2,"

07864

COMM+39

07869
07869
07870

161tl0

DSC

1,'

16"20

DSC
0101
DC
Jl
DC
-5
DSA

4,0101, •

16430
16""0
16450

07818

07883
0788"

-2814
1

1,'
4,0101.,

16520
16530
165100
16550

07885

"

07890

2

2,5

07892

2

CO"M+17

07897

OSC

I, '

07897
07898

DSC
0101
DC
K7
DC
-1
DSA

4,0101 ••

"

2,1

07906

2

INPUT SOURCE.

LDINPT

07911
07911
07912

DSC

I, '

OSC
0101
DC
K8
DC
-1
oSA

,.",0101 ••

16600

01899
07904

16570

16590

X
-2819
1

2,27

16560

16580

EN7RY ADDRESS.

X

2,22

.

16510

4
2

07883

DSC

16500

01811
07876

2,5

OSC
0101
DC
K2
DC
-5
OSA

SUBROUTINE SET INDENTlFltATiON FOR FoURA

2

5 X
-0428
1

07913

2,28

07918

"

2,1

07920

2

2

CoMM+82

07925

1,'

07925
07926

-2884
1

07927

4

2,29

07932

2

16610

OSC

16620

OSC 4,0101, ,
0101

CONTROL CARD COUNT FOR FORTRAN.

39

-2841
1

CD""+l2

16460

16490

LOAD ADDRESS.

2,t?

16470
16480

PAGE

DIM NUMBER.

5 X

.3:11
1620-1311 SUPERVISOR AND loRT I I
16630

DC
K9
DC
-2
DSA

16640
16650

PAGE

2,2

07934

COMM+75

01939
07939
01940

-2811
1

019'11

'I

5 X

16660

OSC

1,'

16610

'1,0101"

2,2

079'18

16100

OSC
0101
DC
II
DC
-2
OSA

&0""+81

01953

16110

DSC

1,'

01953
07954

16720

16750

OSC
0101
DC
l3
DC
-1
DSA

16760

OSC

1,'

07961
07968

-2879
1

16770

4,0101 ••

16800

DSC
0101
DC
L4
DC
-2
OSA

16810

DSC

16680
16690

16730
16140

16780
16790

16820

......

16830 •
168100

16850 urOl
16860
16810
16880
16890
16900
16910
16920
16930

......

16940 •

SPS SUBROUTINE SET.

2,31

4,0101 ..

01946

SPS NOISE DIGIT.

-2883
1

07955

2,33

01960

2,1

07962

CoMM+17

07967

SPS MANTISSA LENGTH.

2

"
2

07969

'I

2,34

079710

2

2,2

07976

2

COMM+79

01981

5

1,'

01981
07982

-2881
1

ROUTINE TO MULTIPLY A DIGIT BY FIVE -RESULT IS A FIVE
DIGIT FIELD ADDRESSED AT UTOl-l
DC
5,0 .. ,
CAll HIG SEQUENCE
-0000
TF" *-2,0.8.
TO "23,DIGIT
CF
urOl-l,,7,
8TM UTOl,O
TO
'-I,UTOl-l
A
UTOl-1,UTD1-1
A
UT01-1,UT01-1
A
UT01-1,UTOl+21
8B
DORG '-9
ROUTINE TO EXTRACT NUMERICAL STRIP FROM MON ITOR CONTROL
CARD READ IN AREA (MONITOR READ IN AREA HAS FLAGS IN EVERY

07987
07988
08000
08012
0802"
08036
08048
08060
08062

4u

5
16
33
25
21
21
21
"2

07986
07987
08011
07987
07987
07987
00000

0-000
-0000
01981
07987
01981
08011
00000

40

1620-1311 SUPERVISOR AND 10RT 11
16950 *
16960

DC

16970 UT03
16980
16990
11000
17010 UT03A
17020
17030
17040
17050

-OOUO
TO" "001.0 ..
TFM MF02.MF03-20 ••
A
MFOI.MFOI ..
A
MFOI.UTOl-I ..
TF
UT03B+8.UT03-1.11.
BNR -.26.UT03B+a"
TO" NOOI,O, ,
DORG * ..
DSC 1.', ,

PAGE

41

EVEN DIGIT POSITIONI
~S.O,

•

CAlLING SEQUENCE

08066
08068
08080
08092
08104
08116
08128
08140
08151
08151

TFM MFOI.NCHAR
IITM UT03,ADDR
WHERE NCHAR IS THE NUMBER OF CHARS.
IN THE FIELD.AOOR IS THE ADDRESS OF
THE FIELD -AS IT WOULD BE ADDRESSED
FOR AN ALPHAMERIC lOP ISECDND DIGITI.

, ..

17060
17070
17080
17090
IHOO UT038
17110
17120
17130
11140
17150
17160
17170
17180
17190 UT03C
17200
11210
17220
17230
17240
17250
17260
17270
17280
172.90
17300
17310

88
UPON RETURN, MODI CONTAINS MINUS ZERO
OORG .-9"
IF THE FIELD WAS PURE NUMERIC, PLUS
AM
"F02,1.,
ZERO IF BLANK, A RECORD MARK IF IT
TO
MF02,UT038+8,6.
CONYAI NED A RECORD MARK. AND PLUS ONE
CM
·.8.0,710"
IF THE FIELD WAS NON-NUMERIC.
BNI •• 38,1200,.
BNF UTO]C .MDOl ..
A ONE DIGIT SOURCE FielD IS ALWAYS TRANSTOM MDOI,I ..
FERRED INTO A TNO DIGIT 08JECT FIELD.
8B
SOURCE FIELDS OF MORE THAN ONE DIGIT
OORG .-9"
RETAIN THEIR ORIGINAL DIGIT COUNT. THE
UTO]8+8.70.10.
LOCATION
OF THE OBJECT FIElO IS GIVEN
C"
BNI UTO]B+36,noo ..
8Y MF02 lIT WILL BE IN MFO]I
TOM MOOI,O.1I
AM
UT03-I.2
UTO]-I,MFOI
C
aNI UT03A.noo
MF02.MF03-19
C"
BNI *+48.1200
TO
MF03-18.MF03-19
TOM MF03-19,O
TFM MF02."F03-IB
SF
MF03-19
BB
DORG e-9
MDNITOR SUBROUTINE TO REAO A MAP SECTOR INTO 0-99
5,0
DC
-0000
11320 UT05
TR
UT05B."APSCT ..
CALLING SEQUENCE
17330
A
UT05B+",.UT05-I,.
IITM UT05,DIMNUM
17140
A
UT058+6,UT05-1.,
WHERE DIMNUM IS THE 01" ENTRY
17350
TD
UT05A+II.UT058+6"
WHICH IS DESIRED IN THIS SECTOR.
1731&0
TOM UT05B+"'.0.1I.
UPON RETURN UT05-1 CONTAINS CORE
17370
TFM IOXX, •• 23 ..
ADDRESS OF THE REQUESTED ENTRY
17]80
I
IOGT,UT05Al,7.
C-O.20,"O,60,80.
11390
TfM UT05-I,O
17400 UTOSA TO" UT05-2. XX
17410
BB
17420
DORG e-9
17430 UT05Al OSC 2,22
22
17440
DSA UT058

...

.......

08152
08154
08154
08166
08178
08190
08202
08214
OB226
08228
OB228
08240
08252
08264
08276
08288
08300
08312
0832"
08336
083"8
08360
08372
0837'+

5

15
16
21
21
26
45
15

09772
09751
09746
09746
08186
08154
09772

42

00000

00000

11
25
14
47
44
15
42

09751
0975J
08186
08228
08264
09772
00000

-0001
08186
-00-0
01200
09772
00001
00000

14
41
15

08186
08214
09772
08067
08067
08116
09751
08360
09753
09752
09751
09752
00000

OOOPO
01300
0000-0002
09746
01300
-9752
01200
09152
00000
-9753
00000
00000

11
24
H

14
47
25
15
16
32
42

08378
08]80
08392
08404
08"16
08U8
08440
08452
0846"
08416
0848B
08,,90
08490

00000
-9751
09746
08067
0806P
08186
00000

5
31
21
21
25
1~

16
49
16
15
42

08"98
08504
08504
08487
08504
00565
00566
08379
08378
00000

01835
08379
08379
085010
0000-8463
-B490
-0000
00000
00000

2

081096

X

08496

-8498

41
IUO-1311 SUPERVISOR AND 10RT II
17450

OSC

17460 UT05B
17UO
171080
17490
17500
17510
17520
17530
17540
17550
17560
17570
17580
17590
17600
17610
17"'20
171&30
17640
17"'50
17"""0
171&70
17680
171&90
17700
17710
11720
17130
17740
11750
17160
17770
117BO
11190
17800
17810
17820
17830

......
UT06

UTO"'A

UTD"'8

UT06C

UT06D

UT06E

......

17840 UT07
17850
178"'0
17870
17880
17890
17900
17910
17920
17930
17940
11950
17960

PAGE
081t97

I.'

DSC 20.0
00000000000000000000
SUBROUTINE TO TYPE A MONITOR CONTROL CARD.
DC
5.0
-0000
aNf *+14,MCR02A+II.II. RETURN I F INPUT FROM THE TYPEWRITER.
88
DDRG e-9
RCTY to,
RESTORE TYPEWRITER CARRIAGE.
TF" UTOi&A+lI.MCCBUFtll .. DETERMINE LAST NON-BLANK COLUMN OF
CARD.
B
UT068+12. "
DORG .-3
80
U1'068.XX
UTO"'hll.1
A"
80
UT06B+12.UT06A+II.II
UT06hll,I
AM
CM
UTO"'A+ll.MCCBUF+160
8NI UT06A.1300
8
UT06C
DDRG e-3
AM
UTO"'. . 1I.1
TF
UT06D+ll.UT06A+ll
UT06B-44
8
DORG *-3
TO
19998 ,MCCBUF+ I "
DUMP INITIAL RECORD MARKS.
19999.MCCBUF+3
TO
DNTY 19998
BNR • +1 ... MCCBUF+5 ••
RETURN iF R.M. IN COL. 3 •
BB
oORG ·-9
AN
•• 23,2.,
SET R. M. AFTER LAST SIGNIFICANT CHAR.
TO
UT06E+1l.XX
.-I,MCROlA.6
TO
WATY MCC8UF+5 ...
TYPE REMAINDER OF CARD.
RCTY
RESTORE DIGIT.
TOM UT06D+1l.XX,6,
BB
DORG *-9
JOB CLOSE-OUT SUBROUTINE.
DC
5.0
-0000
FORGET IT IF WE HAVEN-T DONE ANYTHING.,
Bo
*+14,MCOMM ••
BB
e-9
DORG
TYPE END OF JOB "ESSAGE If FORCED.
BD
*+44.UT01-1 ••
NO -TYPE ONLY IF THE CONTROL CARD
TO
*+23.MCO""+) ••
•• 20,MC005 ••
SOURCE IS NOT THE TYPEWRITER
BD
·.20
B
OORG e-3
WATY MM21
RCTY
TO
UT07C,MCONN+5
TOM UT07Al+11,O
B
-+20

08lt98

20

08522
08524
08536
08538
08538
08550
08562
08510
08570
08582
0859"
08606
08618
08630
08642
08650
08650
08"'62
08614
08682
08682
08694
08106
08718
08130
08132
08732
08H4
08756
087"'8
08780
08792
08/104
08806

41t
42

08538
00000

Olo15P
00000

34
16
1t9

00000
08581
08662

00102
J3011
00000

43

08650
08581
08662
08581
08581
08570
08682

00000
-0001
0858J
-0001
J3160
01300
00000

26
49

08581
08755
08606

-0001
08581
'00000

25
25
35
45
1t2

19998
19999
19998
08732
00000

13001
13003
00100
13005
00000

11
25
25
39
34
15
42

08755
08803
0875N
13005
00000
0875N
00000

-0002
00000
04485
00100
00102
00000
00000

It3
42

08826
00000

02852
00000

43
25
1t3
49

08810
08861
08870
08882

08811
02855
10730
00000

39
3't
25
15
1t9

10199
00000
09152
09033
08938

00100
00102
02857
00000
00000

II
43

II
14
It7
49

II

08810
08812
08824
08826
08826
08838
08850
08862
08870
08870
08882
08891t
08906
08918

42

102

PAGE

1620-U11 SUPERVISOR AND lOin II
17910
17980
11990
18000
18010
18020
18030
18040
18050
18060
18010
18080
18090
18100
18110
18120
18130
18140
18150
18160
18110
18180
18190
18200

DDRG
UT01A
34
81
81
81
81
36
8NI
TO
UTOHI 80
WATY
WATY
RCTY
H

ur078

UT01C

8
DORG
TOM
TOM
TOM
TOM
TO
88
OORG
CSC

.-3

0-9
1,1

08926
08926
08938
08950
08962
08974
08981>
08998
09010
09022
09034
09046
09058
09010
09082
09090
09090
09102
09114
09126
09138
09150
09152
09152

DSA04

09151

5

09151
09160

J9639
3

09166

6

REFRESH THE COMMON REGION AND THE
oVRLAY READ ROUTINE.

UT01C,101 ..

."12,600"
0+12.700

_+12,1600
.+12,1100
UT07C,102
UT078,1900

.+23,."23.11.
UT07A,MCDlI
MMl2, "
MM23

..

COMPLAIN LOUDLY IF ANY ERROR.

,

OPERATOR MUST RESET AND START TO RETRY.

UT07A
0-3
INITIALIZE NECESSARY INDICATORS AND
FIELDS.

MCOMM,O ••

MCOMM+l,O.t
MCOMM+2.0
M103,1,11
I BMMOD, MCOMM+5

.. ,

80UNCE 8ACK.

46
46
41>
46
36
47
25
43
39
39
34
loB
49

09152
OB950
OB91>2
0891"
08986
09152
09090
09033
08926
10221
10301
00000
00000
08926

00101
00600
00100
01600
01700
00102
01900
0903l
10190
00100
00100
00102
00000
00000

15
15
15
15
25
42

02852
02853
02854
09871
00440
00000

00000
00000
00000
OOOOJ
02857
00000

3"

I
OSA

18210
18220
18230
18240
18250 UTIO
18260
18210
18280
18290
18300
18310
18320
18330
18140
18350
18360 UllOA
18)10
18380
18390
18400
18410
18"20
18"30 UTl08
18440
18450
18460
18410

DC
3.1
-01
DC
6,402'
-0402'
SU8ROUTINE TO DETERMINE VALIDITY OF A CONTROL CARD FIELD.
u23,FO.1l.
MOVE CALLING SEQUENCE RECORD.
TF
TR
F I. ~X
FO,I,t
COMPUTE NORMAL RETURN ADDRESS.
AM
INITIALIZE COLUMN TYPE-OUT POINTER.
TF
POINf.F5"
POINT-I
CF
INITIALIZE RETURN IND. FLAGS.
SF
Flt "
SF
Flo
TFM UTIOA+23,MCCBUF-1,.INITIALIZE CALL TO UT03.
UTIOA+23,F5
A
UTlOA+23,F5
A
unOA+ll,F6
TO
E~TRACT NUMERIC STRIP IF ANY.
TFM "F01,XX ..
8TM UT03,~X
NO -CHECK FOR R.M.
8NR UTl08,M001"
Fl .. ,
YES -SET INDICATOR.
CF
GO TO ERROR ROUTINE IF NOT ALLOWED.
80
unOE,Fl.

FO, F1-4,6,
F6,l,lO,

H

09112
09112
09631
000-1
01200

15
26
15
49

09441
0964J
09441
09620

00005
0915J
00006
00000

43
49

09512
0962Q

09630
00000

43
49

09512
09620

09631
00000

39
38
39
43
33
49

10591
09191
10611
09580
09632
09620

00100
00100
00100
09632
00000
00000

39
34
15
49

10639
00000
09810
03688

00100
00102
00000
00000

CALL ANO RETURN YECTOR.

GO TO ALPHA-S
GO TO 8LANK-S
NUMERIC -E~IT
NUMERIC -MOYE

unOC,M001 ..
unOO,M001"

09412
09492
09620
09636
09440

09428
09'0"0
09'052
09464
09412
09412
09'084
09'092
09492
09504
09512
09512
09524
09536
09548
09560
09572
09580
09580
09592
0960'0
09616
0962'0
0962B

FO,,6
DDRG ·-3
80
8NF
BNF
CM
8NI

09620
00000
-0001
09634
00000
00000
00000
J2999
09634
09634
096)6
-0000
-0000
09112
00000
09629
00000

26
31
11
26
33
32
32
16
21
21
25
16
17
45

8

TEST IF ALPHAMERIC.
TEST IF BLANK.
IF NO MOVE DESIRED.
DIGIT OR A FIELD.

.+24.1200

~

09191
09629
09628
0919B
09191
09629
09632
09323
09323
09323
09311
09141>
08068
09368
09629
09512
09620

09168
09180
09192
09204
09216
09228
09240
09252
09264
09216
092B8
09300
09312
0932'0
09336
09348
09360
09368
0931>8
09380
09392
09'004
09416

33
43
49
'03
"'0
H

14

43

43
1620-1311 SUPERVISOR AND 10RT I I
18480
18"90
18500
18510
18520
18530
18540
18550
18560
18510
18580
18590
18600
18610
18620
18630
18640
18650
18660
18610
18611
18680
18690
18100

TOM

.+11,5
F7,MF02,611
0-11,1>

unoc

TF
TOM
8
FO,,6
DORG .-3
80
UTIOE,F2"

UTIOD

DORG 0-3
BD
unOE,F3"

8

UTlOE

GO TO ERROR IF ALPHA-S NOT ALLOWED.

FO,.6

B

FO,,6

DORG
WA TY
WNTY
WA TY
80
CF

0-3
"M39",
POINT-I
MMlt5
UT10F,F4"
Flo",

8

FO, ,6

GO TO ERROR IF 8LANK-S NOT AlloWEO.

TYPE ERROR MESSAGE.
8RANCH IF PHASE TO 8E DELETED.
SET RETURN IND.

PAGE

18110 Fl

DORG 0-3
WA TV MM40".
RC TY
TOM MIOI,O.,.
8
HBHO.,
DORG 0-3
DC
5,0"
-0000
OSC
1,0"

R.M. ERROR.

09629

18120 F2

OSC

1,0"

ALPHA ERROR.

09630

18730 Fl

DSC

1,0.,

BLANK ERROR.

09631
091>32

UTlOF

FO

TYPE PHASE DElETED MESSAGE
TURN OFF ALREAOY READ INOICATOR
WIND-UP.

o
o

18140 F4

OSC

o
o

I,D"

END PHASE ON ANY ERROR.

18150 F5

DC

2,0,.

STARTING CARD COL.

091>34

2,0,.

FIELD LENGTH.

09636

MOVE TO ADDRESS FOR NUMERIC DATA.

09641

-0
18160 F6

DC

-0
18170 fl

DC
5.0..
-0000

18180

OSC

18190
\8800

NON EXECUTE TESTER.
DC
5,0
-0000

18810 UT11
18820
18830
188"0
18850
18860
18810
18880
18890 UT lIA
18900
18910
18920

80

.+24,*-1"

8NF

UTIIA+12,NONEX"

8NF

.+20,MCOMM+2"

8
DORG
WATY
RC TY
SF

UTIlA
.-3
MM19

CF

1,',

MCOMM+2.
NONEX

09642

t,

09/>41
PICK THE ENTRY.
TEST IF EXECUTE INHI8ITOR IS ON.
YES -TYPE ONLY IF NOT ALREADY TYPED.

TURN ON EXECUTION INHIBITOR.

88
OORG .-9
MONITOR SCRATCH FI ElDS

09648
091>60
091>12
09684
09692
09692
09704
09716
09128
09140
09142

43
44
44
49

09612
09140
09692
09128

09641
00457
02854
00000

39
34
32
33
42

10149
00000
02854
00451
00000

00100
00102
00000
00000
00000

44

PAGE

1620-1311 SUPERVISOR AND IORT "
18930 MFOI
18940 MF02
18950 MF03
18960 1'1001
18970 1'1002
18980 HR02
18990 POINT
19000

DC

09746

5,0

-0008
DC
5,0
-0000
DC
ZO,O
-0000000000000000000
OSC 1,0

o
OSC
o

09751
09771

1,0

09773

OSC 20,0' ..
0000000000000000000 '
DC
5,0 ..
-0000
OSC 1,',

HOLDS OOA FOR PROGRAH MONITOR IS CALLING.

09774

LOOKY HERE, MA.

09798

19040
19050 JREC

-00'
DC
1,0

19060

09800

00
DC

12,-0
-0000000000DC
4,0',

20

09799

19010 ••••••
INITIALIZATION RECORDS.
19020 IREC
OSC 2,0
19030

20

09772

09813

12

09817
09818
09819

19090 KREC

OSC 5,-0
0000OSC 5,-0
0000OSC 5,0',
0000'
DC
1,0

19100

DC

2,-0

09B]6

19110

OSC

1,-0

09831

19120

DC

2,-0

09839

19130

DC

2,-0

098"1

19140

OSC

1,',

09842

19150 LREC

DC

1,0

09843

19160

OSC
0OSC
0OSC

2,-0

09B44

2

2,-0

09846

2

2,-0

09848

1,',

09850

19070
19080

19170
19180

0-

09824
09829
09834

19190

ose

19200 MREC

OSC 19,0'
000000000000000000'
THE FOllOWING INOICATORS ARE NON-ZERO OR FLAGGED IF TRUE.

19210 •

09851

19

45
1620-1311 SUPERVISOR AND 10RT II
19220 1'1101
19230 1'1103

OSC

o
OSC
o

CNTL CARD READ IND.

09870

1,0 ..

-JOB- CARD SEARCH IND.

09871

19240 ••••••
HIl'IITOR OAC-S
19250 1'11'101
DAC 24,ENTER HONITOR CNTL REC.',
ENTER HaN I TOR CNfl REC.'
19260 MM02
DAC ", JOB ,
JOB
19270 1'11'103
OAC 4,TYPE,
TYPE
19280 1'11'104
DAC 4,PAUS,
PAUS
19290 1'11'105
OAC 4,SPS,
SPS
19300 "1'106
OAC 4,SPSX,
SPSX
19310 1'11'107
OAC 4,FOR,
FOR
19320 MH08
OAC ",FORX,
FORX
19330 1'11'109
OAC 4,DUP,

DUP
19340 1'11'110
19350 1'11'111
19360 1'11'116
19370 HM17
19]80 1'11'119
19]90 1'11'121
19400 1'11'122
19410 MH23
19420 1'11'125
19430 1'11'126
19440 1'11'130
19450 1'11'131
19460 HM32
19470 HM33
19480 MM36
19490 HM37
19500 1'11'138

PAGE

1,0 ..

OAC 4,XEO,
lEO
OAC 4,XEOS,
XEOS
OAC 32,PACK NUMBER ERROR ON MODULE O. "
PACK NUMBER ERROR ON HODULE O. '
DAC "2,SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.',
SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.'
OAC 25,EXECUTION IS INHIBITED. "
EXECUTION IS INHIBITED. '
DAC
ll,END OF JOB',
END OF JOB'
OAC 43,CANNOT RESTORE COMHON -RESET AND START TO "
CANNOT RESTORE COMMON -RESET ANO START TO '
DAC 6,RETRY',
RETIt,.,
DAC 10,EXECUTION',
EXECUTION'
DAC 21, JOB CARD GROUP ONLY',
JOB CARD GROUP ONLY'
DAC 12,HUST RelOAD',
MUST RelOAD'
DAC 18,CONDITION IGNORED',
CONDITION IGNORED'
DAC B,COHPARE',
COMPARE'
DAC
12,-ENTER CARO',
-ENIER CARD'
DAC
18,SYSTEM DIM ERROR "
SYSIEM DIM ERROR '
DAC
18,OBJECT DIM ERROR',
OBJECT DIM ERROR'
OAC 19,OBJECT NAME ERROR',
OBJECT NAME ERROR '

09873

24 X

46

2

09921
09929

4

09931
09945

"4

09953

4

2

09961

4 X

09969

4 X

09977
09985
0999]

" X

" X
4

10001

32

10065

42

10149

25 X

2

2
2

X

10199

11 X

10221

43

X

10301

6 X

10319

10 X

10339

21 X

10381

12 X

10405

18

10441

2

2

2

X

2

10457

12

2

10481

18 X

2

10511

18 X

10551

19

46

2

1620-1311 SUPERVISOR AND 10RT II
19510 "1439
19520 141440
19530 MM4S

19540 ••••••
19550
19560 MCDOI
19510
19580 MCD02
19590

..

FOLLOWING ARE MONITOR-S QUICK AND DIUY DIGIT DECODERS.
DORG SYSORG+8288
OSt 2.-01
OJ
DSt 8.01010000
01010000
OS
0 ... 1
OC
2.6

-6
DC
-8
OC

19600
19610

19690 MCol0
19700

NOC

19630 MC004
19640 MCo05
19650 MC006
19660 MCDOl
19670 MCo08
19680 MCo09

41

10591

24 X

2

10639

19X

2

10611

3 X

2

10690
10690
10692

2.8

6.100000
JOOOQD
DSt 10.0010000000
OOIOQDOOOO
DSC
10.0101010100
0101010100
OSC 10.0001010000
0001010000
oSC 10.0000000000
0000000000 .
oSC 10.0124444444
0124444444
oSC 10.0443444444
0443444444
oSC 10.1357911111
1357911111
DC
2.-50

19620 MCD03

PAGE

DAC 2~.ERROR IN FIELD AT COL. ' .
ERROR IN FIELD AT COL • •
OAt 19.PHASE TERMINATED. ' .
PHASE TERMINATED. •
OAt 3 •• ' .

10700
10701

o

10103

2

2

10109

6

10110

10

10120

10

10130

10

10140

10

10750

10

10160

10

10110

10

10181

2

2.-55

10183

NN
19UO

OC

2.-60

10785

2.-65

10187

2.-10

10789

2

0-

OC
ON
OC
P-

19120
19130
19740 MtDll

DSC 10.1234567890
1234567890
19150
SYSTEM DIM ENTRY SECTOR -THESE DDA-$ ARE PICKED UP
19160
DORG SYSORG+8400.
BY THE COLD START ROUTINE.
19110 SPSoDA DSC 1.0 ••
DDA FOR SPS ASSEM8LER.

10190

19780

OSA

0

10801

19190

DC
-00
OSA

3.0

10801
10810

0.0

10815

......

10802
10802

o

19800

10

-0000
3

47
1620-1311 SUPERVISOR AND 10RT II

OSC

19810

PAGE

1.',

19820 FORODA DSt

1.0 ..

19830

0

10821
10821
10830

o

OSA

10822

DDA FOR FORTRAN COMPILER.

19840

OC

3.0

19850

-00
OSA

0.0

10835

1.'.

10835
10840
10841

OSC

19860

19810 OUPDOA OSC

1.0 ••

19880

0

o

OSA

ODA FOR OUP SUPERYISOR.

5 X

-0000
]

X

10842

OC

3.0

10847
10850

19900

-00
OSA

0.0

10855

19910

oSt

1,',

10855
10860
10861

X

-0000
-0000

1

1.0 ..

19930

DSA

0

10861

3.0

10867
10870

-0000

OC

6.0'

10B16

6

19940

DoA FOR EQUIVALENCE TABLE.

-0000
3

19920 EQUooA OSC

o

2

-0000
-0000
1

10841

19890

.

48

-0000
-0000
1

10815
10820
10821

10862

3

-00
19950

DC

19960
19910
19980
19990
20000
20010
20020
20030
20040
20050
20060
20010
20080
20090
20100
20110
20120

-0000'
IORT LOAD PROCESSOR FOR NAMED PROGRAMS SECTION 2
ooRG SYSORG+8500
8NF AB05.A402A+5 ..
TEST FOR A SPECIFIED LOAD ADDRESS.
TF
U04+ 11. U02A+4 ..
YES -MOVE TO CALLING PARAMETER RECORD.
SF
AA02A+5, ••
INITIALIZE SCAN.
TFM
IDXX . . . 23
8
IDSK.A808.1
TF
AB09A+5.MAPENr+5
TD
A809A. TEMP-5
TO
A810+411.A809 ..
SET A GROUP MARK FOR lOOP TEST.
TFH IOXX,*.23,.
READ 4 EQUIVALENCE TA8LE SEtTORS.
B
IOGT.AB08+8.7
TFM A803+11.A810+11 ••
INITIALIZE ~ SECTOR SCAN.
8NR *+32.XX ••
TEST IF TABLE IS EXHAUSTED.
TFM BKPT.A801
B
ERROR+12
oORG .-]

A800
A801

A802
A803

10902
10902
10914
10926
10938
10950
10962
10914
10986
10998
11010
11022
U034
110~6

11058

11066

48

It4
26
32
16

"9

26
25
25
16
1t9
16
45
16
49

111310

00234

00295

00233

002310

00000
J0961
J1363
02149
02014

00565
00554

11385
11380
11801
00565
00566
11045

11066
00461
00102

11319
JI021
J1311
J1401
00000
J0926
00000

162D-1311 SUPERVISOR AND IOU II
20130
20140
20150
20160
20170
20180
20190
20200 "805
20210
20220
20230 AB06
20240
20250
20260
20270
20280
20290
20300
20310
20320 AB07
20330
203100
20350
20360
20370
20380
20390
201000
20410
201020

20430 A808
2010100
201050

20460

C
81
AM
55
AM
8
DORG
TF
8
DORG
AM
TF
BNF
SF
80
SF
TR
8
DORG
TF"
8
TF"
TF
TR
TFM
TF"
TR
8

DC

Dse
22
OSA

20'IT1
201080 A809

20500
20510

11066
llO?8
11090
11102
11114
11126
ll1310
Ill310
UI46
lll5lo
lll54
11166
1111B
11190
11202
112110

11226
11238
11246
11246
11258
11270
11282

00245
01200
-0016
1104N
-0004
00000

26
49

002105

10926

0021tl
00000

11
55

II

II
26
44
32
43
32
31
49
16
49
16
26

31
16
16
31
49

002810

11226
00285
00000
00000
00565
00566
01945
00565
02170
02132
00462
001041

00468
3

11362

6

11363

3

U369

4

49

-0004
U04N
00255
00000
00255
00000
11246
00000

11045
00290
11202

11356

-DOll
-0261
-1756
00252
002810

-0098
-1886
00103
19635

11370

2,22

11371
U377

Dse

,

I, •

11371
U378

ose
0
OSC
I
D5A

1,1

U380

II

11385

3,4

U385
11388

ASl0

U393

oc

49

1104N
11154
11045
1l0]4
11385
10998

11306
ll318
11330

AB09A

1,0, l'

24
46

112910

113102

-03
6,0'
DC
-0000'
Dse 3,220
220
4,2
DC
-002
OSC I , '

201070

20490 A809A

PAGE

AB03+11,AAOZMI6,6,CDIIPARE CURRENT ENTRY.
8RANCH I F FOUND.
AB06,I200"
NO -ADVANCE ADDRESSING.
AB03+11 ,16"
TEST IF 4 SECTORS EXHAUSTED.
"803, AB03+11,l1,
YES -IIICREMENT SECTOR ADDRESS.
ABO"'+5,4"
AB02
--3
A"02A+16,AA02A+12"MOYE NAME FOR NO LOAD ADDRESS CASE.
ABOI
_-3
MOVE FOUND DIM ENTRY.
A803+11,4"
U04+6, A801+11,ll
-.24.A1021+26.1'
TEST IF REPOSITIONING DESIRED.
A104,.,
YES -SET INDICATOR.
."2",AA02A+26.,
TEST IF EXECUTION DESIRED.
YES -SET INDICATOR.
"'04+1,,,
0,A801 ••
OYER LAY SECTION 1 IIITH TERMINATION
0·, ••
ROUTINE.
_-3
IOXX,23,t
RESTORE CORE.
IOGT,U03,7
DUMMY UP A GET ENTRY TO 10RT.
DFILE+11, TTl"
IOXX,AA02"+23
eNTWD,U04
SET UP TO RESTORE HPY TA8LE AND
OLOeY+I,MeYL"
EXECUTE LOAD.
HALT+6,XOl+36"
OLDDA,I03
YOU-RE ON YOUR OliN NOli, 80Y.
OVRLAY, DSAO I "
3,3

GROUP MARK FOR TEST.

2

JU80
1

U319

5 X
-0000
3

-010

20520

OSA

5 X

49
PAGE

1620-1311 SUPERVISOR AND 10RT II
11393
I, •

.. ,

20530

DSC

205100 AB10

00
DORG 19982,
osc 1.1
1
DSA OSA08

20550
20560
20570

113910

11396
19982
19982

READ BUFFER FOR FOUR SECTORS.
CONTROL TO WRITE ON DISK.

DC

3,90

19987
19990

20590

-90
OSA

SYSORG

19995

I, '

19995
19996

OSC

20610

DEND

00

00000

00000

19981

20580

20600

J1396
1

00000

511

J9659
3
X
-2,,02
1

50

1620-un SUPERVISOR AIIID loRT II
APHASE
BIGTRB
CYLOVF
DIMENT
OUPOOA
EMSGI0
EMSG11
EMSGH
EMSG20
EMSG21
EQUOOA
FOROOA
HOLLER
IBMMOO
IBMWRT
lCA02A
LCA06A
LDINPT
MAPEIIIT
MAPSCT
MB080A
M8110A
MBllOB
MCAOOA
MccaUF
MCROlA
MCR02A
MCROItA
MCR05A
MFr05B
MFT05C
MJB02A
MJBOZl
MJB03A
MJB03B
MJB12A
MJBIlA
MJB15A
MJ850A
MJ855A
MOIIICAL
MSP05A
MSP05B
MSP05C
MSP050
MXOOU
MXODlS
MX006A
,.X006B
"1006t
NEWOOl
OVRLAY
Al02A
AA02
AA03
AAOIo

01612
00166
00802
00lt02
10842
01079
01085
01211
01091
01083
10862
10822
01388
OOltItO
01022
00253
002010

00428
021104

01835
0)376
03552
03596
00079
13000
04485
04146
04414
04658
06808
06822
05090
05058
05116
05160
05512
05568
05708
06200
06214
00796
06523
06531
06551
06565
07120
D7176
01368
07416
07440
01160
00468
00229
00120
00261
00284

ABOO
ABOI
A802
ABO]
A805
Al06
AB07
AB08
AB09A
ABO.
A810
AJOB
81
BBUFF
BI(PT
BNI
CHECK
CHEKl
CHElZ
CMU
CHII2
CHK3
CHI(4
CINIT
CNTNO
COMM
COUNT
OCOE
OFILE
OIDI
DIDP
DID
DIDX
D1DY
OIDZ
DOYFL
DRIVE
OSAOO
OSAOI
DSA02
OSA04
DSA06
DSA07
-OSA08
OS-A09
DSA10
OSAlI
OSAlZ
OSA13
OSAl4
OSAI5
OSA16
OSAI1
OSA18
OSA19
OSAZO

10902
10926
1099B
11034
11 nit
11151t
112lt6
11363
11380
11319
11396
01600
01579
01230
00lt67
00492
01268
01340
01376
00880
OU44
01380
0 .... 12
00"27
02170
02802
OU31
01058
0193"'
00912
02020
00820
01028
00928
01128
01134
02169
19600
19635
19636
19639
196",0
19656
19659
19744
19749
19161
19186
19172
19771

19183
19167
19710
19792
19795
19798

DSAZI
DSU9
DSAItO
DU50
DU5l
EOO30
E0040
EOOIO
E0010
EOO80
E0090
EOO95
EOIOO
ECALL
EEXIT
EMSGI
EMSGZ
EMSG3
EMSGIt
EIISG5
EIISG6
EMSG7
EQUIV
ERR8
ERIIET
ERROR
FO

F1
Fl
F3
Fit
F5
F6

F7
FSPS
GOGO
GTEST
HOI
H03
HOlt
HALT
HIGH
INOS
INOUT
lOCAL
IOGT
IDPA
lOP
10PT
IORBC
10SK
IOU
IREC
JA
JOFF
JREC

PAGE
19630
1966S
19143
17024
19600
00630
00136
00806
00838
00922
00956
01016
01050
01193
016]6
01185
01155
01055
01061
01067
01073
01079
0212]
01815
00602
00630
09628
09629
09630
09631
09632
09631t
09636
096"'1
00lt29
00864
01160
011024
01460
01484
00456
00434
00610
00629
00716
00566
01010
01958
0053Z
00520
00554
00565
09800
00984
01036
09818

JR
JTEST
KREC
LAODR
LCAOI
LCA02
LCA03
LCA04
LCA06
LCA07
LCA08
LCA09
LCBOI
LCB02
LCB08
LCB09
LCIIO
LRA02
LRA05
LRA06
LREC
MAOOO
MA010
"A020
MA025
MBOOO
MBOIO
M8020
"B025
MB030
MB035
MB040
MB045
1'18080
MBon
liB 100
MBUO
"81"'0
MB145
"8190
MB195
MB200
MBllO
MB220
M8l22
MB225
"8226
MCAOO
MCAOI
MCA03
MCA04
MCA05
MCA06
MCDOI
MC002
MCDOl

51
MtDOIt
MtD05
MCD06
MC007
Mt008
MC009
MtDIO
MtOll
MtOMM
MtROI
MeR03
MCROIt
MCR05
MCR06
MCYL
MODI
14002
MOOA
MOPOI
MERR
MESI
MES2
MESSG
MFOI
MF02
MF03
MFTOI
MFT02
MFT03
MIDI
MI03
MJBOI
MJB02
MJB03
IIJBOIo
MJBI0
"JBIl
"JBI2
MJBlJ
MJB15
MJB17
MJB20
MJBZ1
MJB22
MJBZ3
"JB30
MMOI
MM02
MM03
MM04
MM05
MM06
MM07
MM08""09
MMIO

o lilt 1
01010
09831t
00439
00012
00U2
00213
OOlZO
00180
00223
00231
00245
00092
00200
00255
00263
00278
00176
00269
00283
098103

02402
02546
02769
02171
02902
03022
03082
03150
03172
03192
03240
o 3281t
0330"'
03"'20
0]452
03496
03688
03120
031"0
03152
03164
04016
04040
04048
Olt063
01t077
00052
00208
00100
00011
002ltl
00250
10690
10100
10710

10120
10130
1071t0
10750
10160
10110
10181
10190
02852
04098
04218
OH]4
U4602
04965
00098
09112
09713
01179
06B36
00B78
00811
00933
OU954
09746
09151
09111
06580
06600
06164
09810
09811
04974
049B6
05104
05172
05280
05396
05420
055410

05604
05960
06056
061"8
06156
06164
06180
09873
09921
09929
09931
09945
09953
09961
0996.
09971
0998~

51
16l0-1311 SUPERVISOR AND IORT 11

""11

""16
MM17
MMI9
"M21
M.(22
141423
MM25
111126
1'1"30
M"31
""32
111133
M"36
MM37
""38
MM]9
MM",O
MMlt5
MR02
MREC
IISPOI
MSP02
"SP03
HSPOIo
MXQOI

09993
10001
10065
10llt9
10199
10221
10301
10319
10339
10381
10405
104101

10451
10481
10511
10553
10591
10639
10611
097110

09B51
06228
0621t8
06460
065010

069 ItO

END OF ONE- ASSEMBLY.

MX002
"X003
MX004
MlO05
MXQ06
MlQ07
Kla08
"lO09
IIXOIO
MXOIl
IIXOl2
IIXOU
MK020
"X050
IIxa55
NEXT
NIDP
NOERR
1II0NEX
OLDCY
OLOOA
OTEST
POINT
RCALL
RDIMI
RDIM

06972
01108
012210
07256
07348
07448

01508
01620
076100

01612
01104
0171t8
01828
0181t3
01857
00969
01061>
00654
00451
02131
00lt41
00166
09798
01807
00834
00186

RDVCD
REPOS
REfN
RETRY
Rill
RM2
R"AP
RNA"
SEEK
SEn
SlOP
SIOXX
SKOI
SI(02
SK03
SI(04
SRAOI
SRA02
SRA03
STEPS
TEETH
TEMP
TEST
TTl
UTOI
UT03A

PAGE
01002
00512
01680
01042
02210
02215
00962
00118
01500
01316
01802
01250
01480
01608
01712
02143
00072
00060
00152
01200
01211
02019
00630
01751>
01988
08116

UT03B
UT03C
UT03
UT05A
UT05B
UT05
UT06A
UT06B
UT06C
UT060
UT06E
UT06
UT07A
UT07B
UT07C
UT07
UTIOA
UTl08
UTIOC
UTIOO
UTlOE
UTlOF
UTIO
UTllA
UTn
WRTCT

08178
08264
08068
U8476
08"98
08380
08570
08650
08682

o81lt4
08792

085210

08926
09090
09152
08812
09300
09368
09472
091092

09512
09580
09168
09728
09648
00122

52

WTEST
XOI
X03
X04
XX
Y07A
YIOB
Y07
YOIA
YOO
ZOll
ZOl
Z02
Z03
Z04
SAVOOA
SFOINT
SPSOOA
SPSMLP
SRELOC
SUPENT
SUPRE T
SYSCAL
SVSORG
UT05Al
UTOTAI

00710
01850
01084
01216
00000
01130
00978
01118
00954
00678
00150
00842
00B86
00930
00986
01115
00426
10B02
00468
001t25
02934
01821
00475
02402
081t90
09022

1620-1311 MONITOR IILOADER
00120
DDRG 2500
00130 0 WRITE SEGMENT 1 OF LOADER ON 01 SIt.
0011t0 TRYl
34
DCONTl.l01
00150
38
DCONTl,102
00160
8NI RIGHT1,1900
00170
H
00180
8
TRY!
00190 RIGHTl TRA
00200 DCONTl DSC 9,119600009
1196110009
DSA CARDIN-IO
00220
00225 FAkE

P
DSA

00504
00511

00516

00310

DC

2,73

00320

P3
DSA

OK

00528

I, '

00528
00529

,

DC

38
48

49
36
..9

02584
02584
02560
00000
02500
00000
00000
9

00701
00102
01900
00000
00000
00500
00000

00340 • SECTDR ADDRESSES AND COUNTS FOR DISK INPUT.
00350 CNfL 1 DC
8,00100200
-0100200
00360 CNTL2 OC
8,00200100
-0200100
00370 CNT
DC
8,00300000
-0300000
00380 • CYLINDER OVERFLOW ROUTINE.
00390 • IF OVERFLOW OCCURRED, UPDATE ARM POSITION CODE FOR IOCS.
OOItOO CYLOV AM
ARM,I,10
001tl0.
READ ONE DR TIIO SECTORS FROM NEXT CYLINOER, ANO CONTINUE.
00420
TF
015-1 ,CNTL2
00430
AM
CNTL+5,1
00,,1t0
8D
MORf,CNTU5
00450
8
DIS
00"60
DDRG 0-3
00"70 MORE
TF
015-1 ,CNTLI
00"80
B
CYLDV+24
00"90
DORG 0-3
00500 • NORMAL EXIT.
INCREMENT SECTOR ADDR. 8Y 3, DECREMENT COUNT 8Y 3,

-0502
2
49

01266

5 X

2

-0920
-0554

2
X

-0630

I

00537
005"5
00553

005510

11

00464

000-1

00566
00518
00590
00602
00610
00610
00622

26
"3
49

00933
00925
00610
00934

00545
-0001
00925
00000

26
49

00933
00518

00537
00000

11

00630

1620-1311 MONITOR IILOADER
00510 •
GO TO BEGIN PROCESSING INPUT.
00520 OK
TD
OK+23.DIS-6
00530
AM
CNTL+5, XX
SM
MAPENT+8,3,9
00540
00550
8
FIN
00560
DORG '-2
•. CONTRDL TO BRING IN SEGMENT 2.
00590
DC
1,1

00000

00511

CNTL,CYlOV

00516
00521
00523

00330

34
'"

02597
00502
00503

DDRG 502
DC
2.0

0 DISK INPUT PROGRAM.
IF CARD INPUT. BRING IN SEGMENT 2.
B
LOADER
DDRG .-It
• INPUT CONTROL FOR DISk INPUT.
DDA IS AT CNTL. CYLOV IS LOCATION
•
OF CYLINDER OVERFLOW ROUTINE, LD 3 IS ERROR MESSAGE, Ok IS
•
NORMAL EXIT.
NORM
DC
1,7

00300

02500
02512
0252"
02536
02548
02560
02572
02584
02597

-0
00230
0021t0
00250,
00260
00270
00280
00290

PAGE
02500

PAGE
00630
00642
00654
00666
00675

25

11
12

"9

00653
00925
00410
01092

00928
-0000
00-03
00000

00615

P
DSA

5 X

CONT2,C'lOV

00680

-0694
-055"

00610

DC

2,74

00680
00685
00681

00620

P4
DSA

CARDIN

00692

5

00692

-0512

00630 •
006"0

DDA TO BRING IN SEGMENT 2.
DC
1,'
1,0

0069"

00660

DSA

CARDAD

00699

00690

DSC

5 X

3,3

00699
00700

CARDIN-IO

00701

5

1,'

00701
00708

-0502
1

00700 • ADDRESS TO 8RANCH TO AFTER DISK READ ERROR.
00710
DSA OIS
00720 • LOAO ADDRESS FOR INPUT.
00730
DC
5.0
-0000
00740 • FOR DISK INPUT, HAS CHARACTER COUNT REACHED 300 ...
00750
CM
CHAR1,300
00760
BNE .+32
00770 • IF SO, GET MORE INPUT.
00180
TFM C,O
00190
B
DISk
00800
DDRG .-3
00810 • IF NOT, ARE WE READY FOR A NEW 75-CHARACTER GROUP ...
00820
t
CHARI,C
00830
8NE 8EGIN
00840
8
HERE"l
00850
DORG .-3
00860 • INPUT CONTROL FOR CARD INPUT.
0 IS INPUT LOCATION, ERR IS ERROR
00870 •
ROUTlI'2
1

01333
01341

01

01860

2
-1328
-0554
2

02597

5 X
-0502

02597
00502
00503

DORG
502
2,0
DC
-0
LOADER
B
OORG 0-3
o CARD INPUT PROGRAM.
• GET INPUT DEVICE CODE FROM CoMM. AREA.
IlEAO,IOMEO, ,
CARD DR TAPE INPUT
CARDIN TO
READ
CF
• TRANSMIT CARD INPUT CONTROL, AND GO TO READ A CARD.
A,READ
CARD
TR
B
DIS+12
DDRG 0-3
IF TAPE, BYPASS THIS.
• IF CARD INPUT, CHECK SEQUENCE.
READ,5,10
CEND
CM

00504
00512

49

01266

00000

00512
00524

25

H

00796
00796

00428
00000

00536
00548
00556

31
49

01073
00946

00796
00000

00556

14

00796

000-5

00568
00580
00592
00604
00616
00628

41
24
46
12

01092
01092
00454
00079
01092
00454

01200
00075
-0001
00454
01200
-0001

38
16
49

00450
01063
01042

00100
OOOPI
00000

51
1620-1311 MONITOR IILOADER

PAGE

01990
8NE FIN
02000
8NF FlN,75,.
CHECK CARD SEQUENCE NO.
02010
AM
SEQ,l
02020
79, SEQ
C
02030
8E
FIN
02040
SM
SEQ,l
02050 • IF CARD I S OUT OF SEQUENCE, WRITE LAST SEQ. NO. WHICH WAS CORRECT,
02060 •
AND LO 1.
THEN HALT, AND READ ANOTHER CARD.
02070
WNTY SEQ-4
02080
TFM STOP+9,71,10
02090
8
ERR+12
02100
DORG 0
02110 GET
1,7
DC
P
02120
DSA OUT
.CYlOY

00640
00652
00664
00675
00675
00680

02130

DC

2,74

P4
DSA

DISK

00692

1, '

00692
00693

DC

5 X
-0816
-0554
2

00680
00685
00687

02140

02L50

44
11

-0864
1

02160 CONT2

DC

1,0

00694

02170

DSA

DISKAO

00699

5
J9600
3

02180

DSC
003
DSA

02200

OSC

3,3

00699
00700

CARDIN-l0

00707

1,'

00707
00708

02210 • ADDRESS TO 8RANCH TO AFTER CARD OR TAPE READ ERROR.
02220 DISKX DSA 01S+12
02230 REL

DC

5 X
-0502
1

00113

5 x

00713
00718

5,0

-0946
5

-0000
02240
02250
02260
02270
02280
02290
02300
02310
02320

• FOR UNIT RECORD INPUT, HAS CHARACTER COUNT REACHEO 75 •••

START
FORK
•

CM
CHAR1,75
8NE -+32
SO,
REAID
ANOTHER RECORD.
IF
TF", C,O
8
CARD
DORG '-3
CHAR1,C
C
TCO
TRY2

02330
DORG 2500
02340 • WR I TE SEGMENT 3 OF LOADER ON DISK.
02350 TRY3
34
DCONT3,701

00120
00132

14
47

00863
00764

-0075
01200

007410
00756
00764
00764
02500

L6
49

00H9
00536

-0000
00000

24

00863

00439

34

02584

00101

02500
02500

5~

6

1620-un MONITOR IfLOAD!R
02360
02370
02380
02390
02400 RlGHT3

38
8NI
H
8
TRA

PAGE

DCONT3,702
RIGHT3,I900

02512
02524
02536
02541
02560
02572
02584

TRY3

02410 DCONl) DSC 9,119612012
119612012
02420
DSA RCON-2
02430
02"40
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
. 02600
02610
02620
02640
02650
02660
02610
02680
02690
02700
02710
02120
02730
02740
02750
02160
02770
02780
02790
02800
02BIO
02811
02820
02830
02840
02850

38
47
48
U
36
49

00702
01900
00000
00000
00500
00000

5 X

02597
02597
01104

DORG RCON
SEGMENT 3 HANDLES ANAlYZING AND LOADING OF INPUT.
TFM CNTL-2,OIS+12
• INITIALIZE COUNTERS FOR NEW 15-CHARACTER GROUP.
HERE
AM
C, 75
AM
CHARI,4
TF
LOC,CHARI,II
AM
CHARl,1
BEGIN BNR NOTRM,CHARI,I1
BMF NOFlAG ,CHARI,l1,
RECORD MARK INDICATOR
• FLAGGED RECORD !!ARK - START NEil GROUP.
TF
CHARI,C
8
START
DORG .-3
• UNFLAGGEO RECORD NARK - GET NEil 5-DIGIT AOOR.
NDFLAG AM
CHARI,S
B
HERE+24
DORG .-3
• ZERO INDICATOR - READ IN SEGMENT 4.
NDTRM 80
NOZERO,CHARI,ll
SEEK
TO
CONTI
,ARM.I
TR
A,PROG
BOIS
DORG .-3
NON-ZERO INOICATOR
NDZERO TFM REL,LOC"
BNF FLAG,CHARI,ll
• FLAGGED DIGIT - DO NOT RELOCATE.
TFM 202", TWO
B
DO
DORG .-3
• UNFLAGGEO OIGIT - ADD RElCON.
FLAG
A
REL,RELCON
• IF RELOCA TA8LE PROGRAM, ADD RELCON TO LOll AND ENTRY ADDRESS.
8NF "48,FIN
CF
FIN
A
LDW,RELCON
A
MAPENT+13,RELCON
TFM 202"'FIVE
• GET LENGTH OF DATA, SAVE ADDR. OF FIRST POSITION OF DATA FIELD.
DO
TO
TEMP,CHARI,ll
BUCKET FOR TEMP I
CF
TEMP",
AM
CHARI ,2
TF
N,CHARI,l1
TF
M,N
AM
CHARI"

025.4
02560
00000
02500
00000
00000·
9

-1102

•

01104

16

00918

-0946

01116
01128
01140
01152
01164
01176

11
11
"5
"4

00"39
00863
01283
00863
01228
01208

-0075
-0004
0086L
-0001
0086L
0086L

01188
01200
0120B

26
49

OOB63
00720

00439
00000

01208
01220
01228

II
49

00863
01140

-0005
00000

01228
01240
01252
01264
01272
01272
01284

43
2S
49

·01272
02228
01013
009H

0086L
00"65
02242
00000

16
44

00718
01316

-1283
0086L

01296
01308
01316

16
49

02024
01388

-1880
00000

26

11

31

01316

21

00718

004"9

01328
01340
01352
o 136lt
01376

44
33
21
21
16

01376
01092
001t4"
00"15
0202"

01092
00000
00449
00"1t9
-1696

01388
01400
01412
01424
01436
01448

25
33

11

01"89
01489
00B63
02057
02061
00863

0086L
00000
-0002
00B6L
02057
-0001

01460
01472

26
26

0211t5
01411

00863
00118

01"810
01492

49

02008

00000

01492
01504
015 ...
01!H4
01526
01538
01550
01558

16
49

02085
02086

-1513
0-000

11

00863
02067
01492
01892

-0005
000-5
01100
00000

OIUJ
01411
02067
01558
01283
00720

02221
-0001
000-1
01100
02051
00000

4"

00863
01672

-0001
0086L

01650
01662
01672

16
49

02085
02086

-1671
0-600

01672
01684

11
12

00863
02067

-0011
000J2

01696
01708

I"
47

02067
01868

000-1
01300

01720
01732

14
47

02067
01834

000J2
01300

01744

44

01778

0086L

01156
01168
01778

16
49

02085
02086

-1777
0-200

01778
01790
01802
01814
01826
01834

70
14
47
"9

02016
02017
01626
00863
01612

008U
OOOQO
01200
-0001
00000

0183"

44

01868

0086L

01846

16

02085

-1867

11
26
26

59
1620-1311 MONITOR ULOAOER
02860
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02910
02980
02990
03000
03010
03020
03030
03040
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270
03280
03290
03300
03310
03320
03330
03340
03350
03360
03370
03390
03400
03410
03420
03430
03~~0

03450
03460

PAGE

TF
TEMP2,CHARI
TF
TEMP I,REL
• 8RANCH TO PROPER INDICATOR ROUTINE.
BR
8
2008",
DORG .-3
• THREE INDICATOR - SYMBOliC ADDRESSES, FLAGGED AND RELOCATED 8Y SET.
THREE TFM SET-l,H21"
THREE INDICATOR
B
SET ,0,8
DORG .-1
AM
CHARI,5
SM
M,5,I0
BP
THREE
B
STORE
DORG .-3
• FOUR INDICATOR - NUMERIC 8LANKS.
FOUR
TO
TEMPI,BLANK,6,
FOUR INDICATOR
AM
TEMPI,I
SM
M,I,IO
BP
FOUR
A
LoC,N
B
START
DORG .-3
• EXAMINE seCOND POSITION OF OP CODE.
Q
AM
CHARI,I
BNF DONT,CHARI,11
• FLAGGED - RELOCATE Q FIELD.
TFM SET-I, •• 21
B
SET,600,8
DDRG .-1
• MOVE m NEXT INSTRUCTION.
DONT
AM
CHARI,II
5M
M,I2,I0
• FLAGGED FIVE AND UNFLAGGEO ONE INDICATORS - INSTRUCTIONS.
• ARE THERE LESS THAN 1 DIGITS LEFT •••
FIVE
CM
M,1,IO,
FIVE INDICATOR
8L
NO
• NO - ARE THERE lESS THAN 12 •••
CM
M,I2,I0
Bl
LESSI2
• NO - EXAMINE FIRST POSITION OF OP CODE.
BNF
IF8,CHARI,II
• FLAGGED - RELOCATE P FIELD.
TFM SET-I, •• 21
B
SET,200,8
DORG .-1
• IF FIRST DIGIT OF OP CCDE WAS 8, DO NOT EXAMINE SECOND DIGIT.
IF8
MA
FIVE BK+It,CHARI,l1,NOVE DIGIT
tM
FIVE BK+5,80,IO,
COMPARE FOR 8
8NE Q
AN
CHARI;I
8
OONT
DORG .-3
• LESS THAN 12 DIGITS LEfT - EXAMINE FIRST POSITION OF OP CODE ONLY.
LESSI2 BNF NO,CHARI,II
• FLAGGED - RELOCATE P FIELD.
TFM SET-I.HZI

6U

01558
01570
01582
01594
01606
01618
01626
01626
01638

12
46
49

25
11

12
46
21
49

11

11

7

1620-1311 MDNHDR IILDADEII
03470
03480
03490
03500
03510
0)520
03530
03531
03540
03550
03560
03561
03570
03578
03581
03584
03587
03588
03589
,03593
03594
03600
03610
03620
03630
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03731
03740
03750
03760
03770
03780
03790
03800
03810
03811
3B12
03880
03890
03990
04000
04010
04020

PAGE

B
SET.200.8
DORG "-1
• RESET CHARACTER CDUNTER TD BEGINN ING DF DATA FIELD.
TF
ND
CHARl.TEMP2
• TWD AND FLAGGED ONE INOICATOR - CONSTANTS.
TWD
A
CHAR1.N ..
TWO INDICATOR
• SAVE OIGIT AT ENO OF FIELO.
STORE SM
CHARltl.l0
TD
SAVEl.CHARl.11.
GENERAL STORING ROUTINE
• SET A RECORD MARK THEilE.
A
TEMP1.N
SM
TEMPl,I.10
TO
CHAR1.RM.6
• TRANSMIT DATA TO LDAD ADDRESS.
Til
REL.TEMP2.611
• REPLACED SAVED DIGITS.
TO
TEMP1.SAVEl.6
AM
TEMPl,l.lo
AM
CHARl.1.1o
• GO TO UPDATE LOCATION POINTER.
PLACE 8
FOUR+48
.XX
P2
OS
0
FIVE8K NOP •• 4,
JUST A BUCKET TO COMPARE 8 DP
DORG 2018
8
XX
DORG '-1
8
TIIO
DORG '-1
B
THREE
DORG '-1
NSTDR B
FDUR
DORG 0-1
MSTDR' 8
FIVE
DOIIG '-1
SIX
8
DORG .-4
• ROUTINE TO SET FLAGS AND RELOCATE 5-01GIT ADORESSES.
BUF
5.12345
DC
J2345
,,0 ••
DC
RelOCATING SUBRDUTINE
-0000
• COMPUTE BEGINNING AND ENO OF ADDRESS.
SET
TF
Pl.CHARl
A
Pl.SET-l.11
TF
P2.Pl
AM
'2.4
Pl,.6
SF
SF
MA
STRIP AODRESS
BUF.P2.11.
A
RelOCATE ADDRESS
IUF.IIELCON ••
BRING
8ACK
MA
'2.IUF.6.
88
AM
SET-l.l
8
SET-l .. 6
• SIX INDICATDR - END OF DATA TO BE LOADED.
• READ IN SEGMENT 4.
SIX
TFM PRDG+17.LEAVE
B
SEEK

01158
01868

.'

49

02086

01868

26

00863

02145

01880

21

00863

02057

01892
01904

12
25

00863
00968

000-1
0086L

01916
01928
01940

21
12
U

01411
01411
0086L

02057
000-1
02260

01952

31

0071Q

0214N

01964
01976
01988

25
11
11

0141J
01411
00863

00968
000-1
000-1

02000
02011
02012
02018
02018
02028
0202B
02038
02038
02048
0204B
02056
02058
02068
0206B
02075

49

01606
0
00-00

00000

41
49

00000

00000

00000

49

01880

00000

49

01492

00000

49

0155B

00000

49

01696

00000

49

02206

00000

02079

5

020B4

5

02086
02098
02110
02122
02134
02146
02158
02170
02182
02194

26
21
26
11
32
70
21
70
49

02205
02205
02011
02011
0220N
02079
02079
0201J
02085
0208N

00863
0208N
02205
-0004
00000
0201J
00449
02079
-0001
00000

02206
02218

16
49

02259
01240

-1548
00000

11

9

0-200

61
PAGE

1620-1311 MONITOR IILDADER
DORG .-3
04030
04040 • STORAGE FOR NUMERIC BLANK 04050 BLANK DC
2.0
-0
04060 • DDA TO RE AD I N SEGMENT 404070 CDNTl DSC 9.019624005
019624005
DSA NOZERD
04080

02226
MUST BE PATCHED IN A8S0LUTE DECK.

2

02227
02228

9

02241

5 X
-1272

0221t1
04090 • INPUT CONTROL FOR SEGMENT 4 - CONTI IS DDA. LD 4 IS ERRDR MESSG.
04100 •
NOZERO IS NORMAL RETURN.
04110 PROG
DC
1.7
P
DSA CONTl.C nov
04120

04130

DC
P4
DSA

04140
04[50 RM
04160
04170
04180
04190
04200
04210
04230
04240
0 ... 250
04260
04270
04280
04290
04295
04300
04310
04320
04330
04340
04350
04360
04390
0 ...... 00
04410

CARDAD
DISKAD
LOC
M
N
PI
SAVel
SAVE2
TEMP
TEMPI
TEMP2
xx
ARM
COMM
C
HIGH
LOW
IOMED
MAPENT
RELCON
SEQ
TCD
ITA8
SYSSCT

.

02242
5 X

022lt7

2.74

02247
02252
02254

NDIERD

02259

-2228
-0554
2
5 X

DC

1 ••

02259
02260

-1272
1

DS
OS
DS
OS
OS
OS
DS
DS
DS
DS
OS
DS
DS
OS
DS
OS
DS
DS
DS
DS
DS
DS
DS
OS
TCD

"19609
.19600
.NOIERO+11
• MSTOR+9
.NSTDR+9
.8B+23
.RD+l0
.RD+7
.8R+5
.DO+23
• SF+ll
5.0
.464
.440
.439
.434
....44
.428
.402
.449
,454.... 28
.440
.19663
TRY3

19609
19600
01283
02067
02057
02205
00968
00965
01489
01411
02145
00000
00464
00440
00439
00434
00444
00 ... 28
00402
00449
00454
00 ... 28
00440
19663
02500

0
0
0
0
0
0
0
0
0
0
0
5
0
0
0
0
0
0
0
0
0
0
0
0

DORG 2500
04420
04430 • WRITE SEGMENT 4 OF LOADER ON 01 SK.
DCON14.701
34
04440 TRYt,
DCONT4.702
38
04450
0 ... 460
8NI RIGHT4.1900

02500
02500
02512
02524

62

34
38

'"

02584
02584
02560

00701
00702
01900

10

1620-1311 MONITOR IILOADU
04470
H
04480
8
04'190 RIGHT4 TRA

PAGE
02536
02548
02560

TRY4

02572
04500 OCONH DSC 9,119624005
119624005
04510
DSA NOZERO
04520
01t530 •
04540

0'0550
04560
0it570
04580
04590
0"600
04610
04620
04630
04640
04650
04660
04670
0'1680
04690
04700
04710
04720
04730

04HO
04750
04760
04170
01
01
01
01
01

48
49
]6
'09

02584

00000
02500
00000
00000
9

02597
-1272

02597
01272

DORG NOZERO
ZERO INDIC:ATOR - SET TCD INDICATOR.
CF
BNF *+20,CHARI,1l
• FLAGGED ZERO - 00 NOT RELOCATE.
B
NOT
OORG .-3
• UNFLAGGEO ZERO - DO RELOCATE.
AM
CHARI,S
BNF ADD,CHARI,l1
• INDIRECT ADDRESS - SUBTRACT RELCDN.
CHARl,RELCON,6
S
8
NOT+12
DORG '-3
• NOT INDIRECT - ADD RELCON.
ADD
A
CHARl,RELCON,6
B
*+20
DORG .-3
NOT
AM
CHARI,S
• PUT ADDRESS IN COMM. AREA.
TF
MAPENT+18,CHARl,11
• SAVE LAST SECTOR READ, IF DISK INPUT.
EXIT
80
,10 "EO
MAPENT+5,CNTl+5
TF
SM
"APENT+5,]
AM
"APENT+8,3.9
WRITE THREE FIELDS ONTO COMMUNICATION SECTOR.
EXIT
TO
CNfLE ,ARM+l
TR
A,EX
8
015+12
DORG .-4
EX
DC
1,7
P
OSA CNTLE ,CYLOY

reo

01272
01284

33
44

00"28
0130"

01296

'19

01368 . 00000

11
44

00863
01348

-0005
0086L

0132B
01340
01348

22
49

00B6L
01380

00449
00000

01348
01360
01368
01368

21
,,9

0086L
01380

00H9
00000

11

00863

-0005

01380

26

00"20

0086L

01392
01404
01416
01428

43
26
12
11

01440
00407
00407
00410

00428
00925
-0003
00-03

01440
01452
01464
01471
01471

25
31
49

01490
01073
00946

00465
01471
00000

01304
01316

·

01476

5

01476
01481
01483

-1~90

-0554
2

DC

2,H

01

Pit
DSA

THRU

01488

5

OSC

1, '

01488
01489

-150lt
1

DSC
0
OSA

1,0

01,,90

SYSSCT

01495

02

02

CNTLE

00000
OU86L

01304

01

02

11

00000
00000
00500
00000

5 X

63
1620-1311 MONITOR II LOADER
02

DC
8,100000
-0100000
02
THRU
TR
84,COMM
02
TOM RO+l,8
02
CNTLE-2,NEXT
TF"
02
B
EXIT
02
DORG .-3
04840 • SIX INDICATOR -UPDATE LAST LOCATION PLUS ONE INDICATOR.
LEAVE TF
HIGH,REL
HOVE THE ENTRY ADDRESS.
TF
MAPENT+ 18 ,MAPENT+ 13
04860 •
IF NON-DISK INPUT, READ ONE MORE RECORD.
BD
."20
,10 MEO
8
EXIT
OORG
'-4
TO
*+21
,10 MED
RNCD
04894
TFM SEQ,O
8
EXIT
04910
ODRG '-4
04920 •
ODA FOR 10RT-S LOADER RETURN SU8ROUTINE.
04930 CNTL3 DSC lit, 1979200300000'
1979200300000 •
04931 •
READ AND EXECUTE EXIT SU8ROUTJ NE.
04932 NEXT
TFM 510,0
TO
COMM,ARM+l
TR
COM"+ 1 ,CNfl)
8
480
04940
TCD TRV4
04950
04960
04970
04980
04990
05000
05010
05020
05030
05040
05050

DORG 2500
• READ IN SEGMENT I OF LOADER AND 8EGIN EXECUTION.
TRY5
3ft
OCON15 , 701
36
OCONT5,70l
8N[ RIGHTS,1900
H
B
TRY5
RIGHT5 H
8
LOADER
DCONT5 OSC
14,01960000900502
01960000900502
DEND TRY5

PAGE
01495
01503

J9663
8

01504
01516
01528
01540
01548

31
15
16
49

00084
00959
01488
01440

00440

ooooa

-lb50
00000

01548

26

00434

00718

01560

26

00420

00415

01572
01584
01591
01592
0160"
01616
01628
01635

43
49

01592
01440

00428
00000

25
36
16
49

01613
00000
00454
01440

00428
00500
-0000
00000

01635
01650
01662
01674
01686
02500

14
16
25
31
49

00510
00440
004"1
00480

-0000
00465
01635
00000

34
36
47
48

02584
02584
02560
00000
02500
00000
01266
14

00701
00702
01900
00000
00000
00000
00000

02500
02500
02512
02524
02536
02548
02560
02572
02584
02500

~9

48
49

12

PAGE

1620-1311 MONITOR IILOADEII
ANYERII
CARDAD
CARDIN
DCOIIITl
DCONT2
DCONTl
DCONTlt
DCONT5
UISKAD
FIVEBK
LESS12
LOADER
MAPENT
NOFLAG
NOZERO
RELCON
RIGHTl
RIGHT2
RIGHT3
RIGHTlt
RIGHTS
ADD
ARM
A
BACK

00982
19609
00512
0258'0
0258'0
02584
02584
02584
19600
02012
01834
01266
00402
01208
01272
00449
OZ560
02560
02560
02560
02560
01348
00464
01073
01066

B8
BEGIN
BUNK
IIR
8
BUF
CARD
CEND
CHARI
CIN
CNTU
CNTL2
CNTL)
CNTLE
CNTLI
CNTL
CNT
COM"
CONTI
CONT2
CONU
C
CYl.DV
DISK
OISKX

02182
01164
02ZZ7
01'18'0
01078
OZ079
00536
00556
00863
01083
00537
00545
01U5
01490
01328
00920
00553
00440
OZZ28
00694
01250
00439
00554
00864
00713

DIS
OONT
00
D
ERR
E
EXIT
EX
FAKE
FIN
FIVE
FLAG
FORK
FOUR

GET
HERE
HIGH
IF8
INIT
IDMED
nAB
LEAVE
LOC
LOll
"ORE

00954
01612
OU"
DIOII5
01030
01091
01440
01471
00503
01092
01696
OU16
00732
01558
00675
OU16
00434
01778
OU09
004Z8
00440
01548
01283
00444
00610

o

"

MSTDR
NEXT
NORM
NO
NDTRM
NOT
N
NSTOR
OK
OUT
PI
P2
PLACE
PROG
II
RCON
RD
READ
REL
RM
RPROG
SAVel
SAVE2
SEEK

02061
02058
01"0
00511
01868
01228
01368
02057
020lt8
00630
00816
02205
02011
02000
02242
01626
OliO,>
00958
00796
00718
02260
01231
00968
00965
01240

13

SEll
SET
SF
SIX
START
STOP
STORE
TCD
TO
TEMPI
TEMP2
TEMP
THREE
THRU
TRANS
TRVI
TRV2
TRY]
TRY4
TRY5
TIIO

xx

ZERO
SYSSCT

END OF ONE ASSEMBLY.

PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
00010
00020
00030
00040
00050
00060
00070
OOOBO
00090
00100
00110
00120
OOUO
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00110
00320
00330
00340
00350
00360
00370
00380
00390
00400
00ltl0
00420
00430
00440
001t50
00460
001t70
00480
00490
00500
00510
00520
00530
00540
00550
00560

SPBL
SMPBL
SYMTBL
LOSYMB
SBFAOD
LBLIM
MAlLIM
•
IPTSPB
2PTSPB
BP20K
2PRTlO
•
XUl
XRAZ
XRAJ
XU5
XU6
AlDAD
AlSCY
AlOAD
AlSCY
AlDAO
AlSCT
HOAD
A4SC T
A5DAD
ASSCT
SSTDAD
SSTSCT
MSTDAD
MOSOAD
B lOAD
BlSCT
B20AD
B2SC T
830AD
B3SCT
B)MAD
840AD
BItSC T
B50AO
B5SCT
B60AD
B6SCT
DIMOAD
OIMSCT
EOOAD
EOSCT
PHCDAD
PHCSCT
SUBOAD
•

DORG 2218
SYMBOL TABLE PARAMETERS
DS
SECT OilS PER BLOCK
• ltD ••
DS
5 'MBOLS PER BLOCK
235"
DS
16003,
HI-ORDER POSITION OF SYMBOL TABLE
LO-ORDER POSITION OF SYMBOLIC BLOCK
OS
, SYMTBL+SMPBl-17-1.
DS
, LOSYMB-SP8L-I00+1,
SYMBOLIC BLOCIt DISK ADDRESS
OS
, LOSYMB+12,
LD-ORDER BLOCK LIMIT
, SYMTBL-6,
OS
MAXIMUM LIMIT
EMPIRICAL SECTOR ASSIGNMENT PARAMETERS
,1500,
I-PASS TOTAL SECTORS PER SYM. BLOCK
DS
2-PASS TOTAL SECTORS PER SYM. BLOCK
DS
,600.
SYMBOLIC 8LOCKS PER ZOK CORE
DS
2-PASS RATID--INTERM./FINAL SECTORS
DS
,20000,
INDEX REGISTER LOCATIONS
,264+1.40+5-1
DS
,264+1.40+5-2
OS
,264+1-40+5.3
DS
,264+1-40+5.5
DS
DS
,264+1-40+5.6
SPS DISC ASSIGNMENT PARAMETERS
DS
,18600,
CONTROL STATEMENTS, PH.A SUBROUTINS
OS
,137
,18800,
NORMAL PROCESSING--FREIIUENT STMTS.
DS
os
,58
DS
,18861,
TRA, CALL, GET-PUT AND ASSOC DEtL
OS
,22
,18883,
DMES,DVLC,OOT,HEAO
os
,lt4
OS
,18737,
DENO, TCO, AND SYMBOL TABLE LIST
DS
,29
DS
·SYSTEM SYMBOL TABLE
,18927,
DS
,35
DS
MASTER SYMBOL TABLE
DS
,SSTDAD+SSTSCT,
,19663,
MONITOR CDMM SECTOR DISK ADDRESS
DS
,19180,
PHASE B INITIALIZATION
DS
,20
DS
INPUT, BRANCH TABLE, SCAN
OS
,19200,
OS
,56
LlNPRT ,INSTRN, DC, OSDNB, DAS,DDRG
OS
,19000,
,6)
DS
DS
,09700,PHASE B3 MEMORY ADDRESS
,19063,
RSTR, DAC,ALOII, DMES, DSB, OVLC, DGM
DS
,56
DS
DSA ,MACRO,DDA,TRA,OEND
DS
,19122,
,29
DS
DS
,19151,
CAll Ll NK, LOAD, EX IT
,29
DS
DS
,04800,
DIM ENTRY ~OR EOUIV. TA8LE
DS
,I
,0,
EOUIVALENCE TABLE
DS
,4
OS
,19260
OS
,40
OS
OS
,0"808,
SPS SUBROUTINE DIM ENTRIES
MONITOR COMMUNICATION PARAMETERS

,5,

66

02218
00040
00235
16003
19997
15998
20009
15997

o

o

o
o
o

o
o

01500
00600
00005
20000

o
o
o
o

00309
00114
00319
00329
00334

o

18600
00137
18800
00058
18861
00022
18883
00044
18737
00029
18927
00035
18962
19663
19180
00020
19200
00056
19000
0006)
09700
19063
00056
19122
00029
19151
00029
04800
00001
00000
00004
19260
00040
04808

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
o
o
o
o
o

00454
02086
OZln
0221)6
00720
01D51t
01892
00428
01176
o lit 11
021"5
01489
01492
0150'>
01342
02500
02500
02500
02500
02500
01880
00000
01140
19663

1620 SPS 11-0 FOR MONITOR II---PHASE A
00570
00580
00590
00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00720
00730
00140
00150
00760
00770
00780
00790

MOSCT
MODOC
/jOCTOC
MONAME
MOIONO
MOML
MOSBNO
MONOI S
MOEXEC
MOHAO
SYSCAL
NONEX
PCK
..
IORT
IOPT
10GT
IORBC
10SK
lOCAl
MONCAL
IOCSAO
•

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

,16000,
,MOSCT+22,
,MOSCT'2],
.HOSCT'35.
,MOSCT+39,
·,MOSCT+41.
.MOSCT'43.
.HOSCT'44.

PAGE

MONITOR COMM SECTOR MEIIORY ADollESS
01 SC OUTPUT CODE
CD-TP OUTPT CODE
NAME
10 NUMBER
IIANT. LENGTH
SUB. SET
NOISE DIGIT
EXECUTE CONTROL AND SPS I"PUT
IIEMORYAOOR
SYSTEM COMMON ACTION LOCATION
NON-EXECUTE FOR JOB ERROR

,426.
,415.
,415,
,457,
.2365
10RT ENTRIES
.565
.532

16000
16022
16023
16035
16039
16041
16043
16044
00426
00415
00475
00457
02365

0
0
0
0
0
0
0

a
a
a
0
a
0

00565
00532
00566
00520
00554
00716
00196
19783

0
0
0

1
80
2
81
1 ••

02218
02298
02300
02381
02382

1
80
2
81
I

DC
5.0
-0000
1 ••
DC

02387

00880
00890 AJUST

DC

02399

11

02420

21

02439
02441
02448

19
2
7·

02459

II

02469

10

00800 ..

00810 •
00820 OUT
00830
00840 ZEPO
00850
00B60
00B70 LNTH

00900 THINGS
00910 COLL
00920
00930 NUM8
00940 JSTBL
00950 EVODD
00960
00970
00980
00990
01000
01010

•
STPCSW
STTYSW
STPRSW
TYINSW
COINSW

,566
,520
,554,00716
.00796

,19183,

AOOR OF THE LOADER-CALLER

0
0

a
a
a

SPS COMMUNICATION AREA
OS
!IS
OS
OS
DC

02388

11.2121212121 ..
INSTRUCTION PARITY TABLE
-2121212121
DC
21.0010203040506070000'
-0010203040506070000'
OS
19
OS
2
DC
7.'
-00000'
DC
ll.32:t2323232 ..
ALPHA PARITY TABLE
-3232323232
DC
10.0101010101 ..
OMES PARITY TABLE
-101010101
PROCESSOR CONTROL SWITCHES--FLAGGED I-ON. UNFLAGGED O-OFF
OS
1 ..
PUNCH SYMBOL TABLE
OS
I ..
TYPE SYMBOL TABLE
OS
1 ..
PRINT SYMBOL TABLE
os
1 ..
BEGIN TYPEWRITER INPUT
DC
BEGIN CARD INPUT
1,1"

02410
02't71
02472
02473
02474

J

01020 PTiNSW OS
01030 ERSTSW OS

1 ..
I ..

BEGIN PAPER TAPE INPUT
ERROR STOP

02475
02416

67
1620 SPS 11-0 FOR MONITOR II---PHASE A
01040
01050
01060
01070
01080
01090
01100
01110
01120

ZPSSW
RELSW
LSCDSW
LSTYSW
LSPRSW
PCNUSW
INTRSW
KILSUB
OIVCSW

OS
OS
OS
OS
OS
OS
OS
OS
DC

J

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

1 ..
1,1 "

01130 CTVT
5.0
DC
-0000
01140 I NCODE DC
2.5
-5
01150 OBJCRE OS
5 ..
01160 PROCRE OS
1 ..
01170 PRlLlM oSA

PAGE

TWO PASS MODE
ASSEMBLE RELOCATABLE
LIST CARD
LIST TYPEWRITER
LIST PRINTER
PUNCH RESEQUENCED SOURCE DECK
INTERRUPT
NO SUBROUTl NES
NO SYMBOLIC DIVIDE

02477
0247B
02479
02480
02481
02482
02483
02484
024B5
02490

OBJECT MACHINE SIZE
PROCESSOR MACHINE SIZE

02492

2

02497
02498
02503

5
1

5 X

01180 HCLI"

oSA

LBLIM

02503
02508

-0000
5 X

Oll90

DC

I.'

02508
02509

KOO09
1

01200 STCNT

.

5,1,.
DC
-0001
5,0. ,
DC
-0000
OS
2 ..
OS
1
OS
2

STATEMENT COUNT

02514

5

HIGH AODRESS

02519

01210 HlAoo
01220
01230
01240
01250
01260

L
NOISE
SUBNO
PICKUP

os

LENGTH OF MANTISSA

5

02521
02522
02524
02529
02530

2
I
2
5
I

02560

30

012BO SPSGM

1,1
OC
J
30,0'
DC
-0000000000000000000000000000'
OGM

01290 INKRM
01300

OS
DC

I, '

02566
02567

01110 TEMPR
01320

OS
DC

1 ••

02512
02573

01330 RMRK
01340

OS
DC

3
1. '

02576
02577

01350 ONEZ

10,1
DC
-000000001

01210 I STAT

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

01360
01370
01380
01390
01400
01410
01420

•
•
•
CFF

02561
5
I

02581

10

10CS CALL-LOAD PROCESSOR SECTION-NO WLRC
OS
TFM
B

B1

02592
02594
02606
02618

IORT,·+23

IOGT,CFFDEF,1
CFF-l"b

6)

16
49
49

5
00565
00566
0259L

-2617
-2625

2

PAGE

1620 SPS 11-0 FOR MONITOR II--'HASE "
01430 CFFDEF DSC
22
01~"0 CFFA
DSA
01450

DC

A8S0LUTE DISK NOT WRONG LENGTH

2.22 ..

02625

01550

DC
-6'

1. '

01570
01580

021033
02638

1
5

0210103

5

02645

2

3.06'

02653

DSA

INPUT-I0

02658

3.08'

02658
02661

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

5 X

-2811
3

5 X

-2811
3

02661

UGM

DC
JO'
DGN

1

02650

•

01590 CARDIN OSA

011010

-0000

UGM

DC
-8'

011000

02631
02632

021050
02653

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

01560 TAPIN

5 X

02631

01"60 MURI
OS
01410 IOADDR DC
5,O"FllE ADDRESS OF INTERMEDIATE OUTPUT
-0000
Ol'o80 SVNTAD DC
5.02600"FILE ADDRESS OF SVM80L TA8LE
-2600
01,,90 saOUT DC
2.0
-0
01500 *
01510 •
END SPS COMMUNICATION AREA
01520 •
01530 TVPIN DSA INPUT-I0
015"0

2

INPUT-I0

02666

3,10'

02666
02669

0

02669

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

5 X

-2871
3

01620 S8MAX

02611

2

01630 S8CNT

02673

2

02529
02107"
0210810

5
1
10

DC
2.00
-0
DC
2.0
-0
5.PICKUP
016"0 ADDCOW OS
01650
OS
1
0110100 ALPHA DC
10,0
-000000000
011070 BETA
DC
5.0
-0000
011080 DIGITS OS
3
01690 CLERER DC
1.0

01100

DSC 210.0
00000000000000000000000000
DSC '21.'
00000000000000000000000000 '
DAS 61

01110
01120 INSAY

021089

5

02692
02693

3

021094

26

1

02720

21

027109

61

1620 SPS 11-0 FOR MONITOR II---PHASE A
01130

OAC

5.

01no (NPUT
01150
011100
01110

DAS
OAS

10
"
66
1.' I-

01180
01190
01800
01810
01820
01830
018"0
01850

DAS

,

DC

PAGE
02811

"'

DAS 1
OSS 211
OS
5
OS
5
OS
5
OS
5
OS
1
DC
5.0
-0000
018100 LIMITS DC
5.0
-0000
01810
DC
I.'

03282

01880 AOORS
01890

OS
DC

11
1,'

03293
03294

01900 ERlA8
01910

DAS
OAC

6
2.+'

03297
03309

01960 FlGRM

DC

1 t·;.

02010 CORM

OAt 22, RE-ENTER STATEMENT.'
RE-ENTER STATEMENT.'

02020
02021
02022
02023
0202"
02030
020"0
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150

*SMDDE
DGSV

2
2

1
1

217
5
5
5
5
1
5

11
1

6 X
2 X

03321

10

2 X

03323
03331
03338

1,'
FLAGGED RECORD MARK

12
1

03339

OS
OS
OS
OS ·5
READ INPUT

TEMP
0
•
PHASEA TOM ERROIG,O
BD
REA02. CDINSW
80
REAOl, PTINSW
0
0
READ TYPEWRITER
•
READ3 RCTY
BlXM 0+12,20-1"2111
TFM INPUT+l"2111
OAC

2

'I X

66 K

03281

,

12

6 X

03033
0303"
03255
03260
032105
03270
03271
032710

01920 LOPOUT DC
10.0
-000000000
01930
OAC 2, '
OS
DC

5
2

02881
02893
02901
03031

INPUT2
SUBENT
DMSV
OMSYW
PLAtE
ERROIG

.'

2

1,' 1*

BCXM 0-12,2111

7tt

03341

22

03384
03385
033810
03391

1
1
1

5

03392
03404
03416

03211
03600
03568

00000
02474
02475

00102
001KK
-0000

03428
03440
03452
03463

34
66
16

00000
03452
030K3

03464

64

03452

1 X

2

000-2

1620 SPS 11-0 FOR MONITOR II--PHASE A
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02415
02420
02430
02440
02450
02460
02~70

TF
TF
TF
TFH

INPUT-2, CLERER+9
INPUT+IO, CLERER+II
INPUT+18, CLERER+7

tORT, *-+23

IOGT,TYPIN-4,7
8NC4 PROSTM
WArY CORM
87
READ3

8

•
•
•
READI

•
•
•
REA02

R28E

PAGE
03'H6
03488
03500
03512
03524
03536
0351t8
03560

26
26
26
16
49
47
39

02702
02704
02700
-3535
-26lt6
00400
00100

109

02879
02891
02899
00565
00566
0380lt
03341
03428

03568
03580

16
49
49

00565
00566
03804

-3591
-2654

03600
03612
03624
03636
03648
03660
03672
03684
03696
03708
03720
03732

16
49
44
45
16
14
46
16

00565
00566
03744
03660
02811
02871
037"4
02879
02877
02870
00565
00532

-3623
-2662
02482
02871
000-0
000J4
01200
0-070
02514
00000
-3743
-2662

03744
03756
03767

66
16

03756
00lK2
028R9
O-KOO
I X
2

03168
03180
03792

43
43
63

03804
03804
03756

028R7
028R6
03705

03804
03816
03828
03837

~9

45
16

10606
03840
02903
2

00000
02901
-0000

READ PAPER T4PE
TFM
8
87

tORt ,*+23
IOGT,TAPIN-4,7
PROSTM

03~92

READ STATEMENT FROM CARD
TFM
B
BNF
8NR
TFM
CM
BE
TFM
TNF
SF
TFM
8

•
•
•

IORT,·+23
IOGT,CARDIN-4,7
RSCAN,PCNUSW
"24,INPUT-IO
INPUT-IO,OOolO
INPUT-IO,14,10
RSCAN
INPUT-02,70,8
I NPUT-04, STCNT"
I NPUT-.ll

PUNCH RESEQ. SOURCE CARD

IORT,*+23
IOPT,CARDIN-4,7

73
32
16
49

FIND RIGHTMOST CHARACTER OF STATEMENT AND PLACE A
RECORD MARK AFTER IT

•

02480 RSCAN
02490
02500

BLXM '+12,122Ill
TFM
INPUT+18II).D200,8 9
1 t' , .
DAC

02510
02520
02530
02540
02550
02560
02570
02580
02590

BO
BD
BCX

02610
02620
02630
026"0
02650
02660
02670

TR
TR
AM
TOM
BO
TOM
DC

<
•
PROSTM 8
BNR
TFM
X2
DC
-2
02600
OAC

PROSTM,INPUH 1611)
PROSTM,INPUT+1511)
.-36,RSCAN+2111)
CLEAR FOR INTERMEDIATE OUTPUT
PROCON

•• 24, INPUT+ZO
I NPUT+22, 00000

2.2 •• -2

1,',-

03839

INPUT2, CLERER+46
I NSAV-l,1 NPUT+19
S TCNT",10
LOABSW, loll
R3E, 2PSSW
INPUT2+99

03840
03852
03864
03876
03888
03900
03911

1.· .•

I
31
31

II
15
~3

15

03034
02148
02514
07320
03924
03133
I

X
02739
02900
000-1
OOOOJ
02477
00000

71

1620 SPS 11-0 FOR MONITOR II---PHASE A
02680
02690
02700
02710
02720
02730
02140
02750
02760
02170
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
028BO
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150

R3E

•
<
<
RLOPI

<
ER2

OP

<
<
•
<

03160 •
03170 OPI
03180
03190
03200
03210
03220

TR
AM
BNR
TFM
TF
CM
BE
C
BNH
TF
BNR
87
CM
BNE
BD
BD
8TM

INPUT2+8, INPUT-II
INKRM, 1,10
<+24,INPUT-I0
INPUT-IO,OO,ID
PLACE, AODCOW
AODCOW, 99999

PAGE

31
11

02870
000-1
02871
000-0

03912
03924
03936
03948
03960
03972
03984
03996
04008
04020
04032
04044
04052
04064
04076
04088
04100

45
16
26
14
46
24
47
26
45
49
14
47
43
43
17

03042
02566
03960
02871
03270
02529
04032
02529
04032
02519
04052
04156
02881
04112
04100
03392
09570

8LXM "12.-14111
BCX
.+20,X2111
OP
B7
BNR RLOP 1+12,INPUT-1211)
RECORD MARK IN LA8lE FIELD.
TFH EVALER-I, 20000
1,',.
DC

04112
01t124
04136
04144

66
63
It9
45

04124
04144
04228
04124.

OOOJM
038L7

04156
04167

16

07041
I

KOOOO

BT
TF
80
TR
BD
C
BE
TF
TFM

27
26
43

*+36

010168
04180
04192
04204
04216
04228
04240

ERlAB+ I O,INPUT+IO
I NKRM ,0

04264

07322
02891
04216
03042
07118
02704
04276
03307
02566

07321
02704
02471
02870
02476
02891
01200
02891
-0000

OOOJ038L7

·+48
ADDCOW,HIADD ••

HI AODRESS TO HIAOO

*+24
HIAOD,ADDCOW

*.20,INPUT
ER2
INPUT ,14,10
RLOPI

.+24,ERROIG
PHASEA, 2PSSW
OUTPUT, PHASEA

02529
R9999

01200
02519
01100
02529
02881
000J4
01200
03211
02477
-3392

CflECK FOR RECORD MARK IN LA8El FIELD.

EPR I,NT, EPRI NT-I
INPUT+I0, CLERER_II
.+24, 2PSSW
INPUT2+8, INPUT-ll
ERCOR. ERSTSW
CLERER+ll,INPUT+IO

0~252

31
43
24
46
26
16

028R3

PROCESS OP CODE
CHECK FOR RECORD MARK IN OP CODE.
8LXM "12,-10111
BCX
.+20,XZII.
81
OPI
BNR .-20,INPUT+2011)
TF
INPUT+18, CLERER+7
.+24. lPSSW
80
TR
INPUT2+8, INPUT-II
87
ER3
TES T FOR ABSOLUTE OP CODE
.+46,INPUT+ll
TO
TO
*+35.INPUT+13
CM
* .. 23,77,10
ALFOP
BNE
ClERER+3.INPUT+18
C
BNE
AlFOP

0"276
04288
04300
04308
0"320
04332
04H4
04356

66
63
49
45
26
43
31
~9

04288
04308
04364
04288
02899
04356
03042
04680

04364
04376
04388
04400
04412
04424

25
25
14
47
24
47

04410
04411
04411
04472
02696
04472

7!

029-1
02700
02477
02870

02892
02894
000P7
01200
02899
01200

6

PAGE

1620 SPS 11-0 FOIl MONITOR II--P"A" A
INPUTZ. INPUt+U
03230
TO
TO
INPUTZ+1. INPUT+1"
03UO
BTM INStRN. DOINST+2'
03250
SoaN OPCOOE TABLE
03260
03210 ALFOP 8LXM '+12.8111
BLXM '+U.15121
03280
• +..... INPUT+9fll
ID
03290
BXM "U.-51ZI
03300
BCXM '-2".-2111
03310
B7
ER3
03320
TF
XRA3. OPLNtB 121
03330
MA
ALFLP+11.0PlCTBI21
03340
MA
AlFLP+35.0PI NTB 121
03350
ALFLP
03360
INPUT+10111"-'I31
C
OK
03370
BE
8CX14 .-2 ....-.131
03380
ERl
03390
87
LOCATIONS OF SECtiONS OF OP-COOE TA8LE
03400
03410 OPLNTB OSA A-AENDX-5.8-8ENOX-7. C-tENOX-9. o-DENOX-11

.

•

03420 OPLCTB OSA

03470
03480
031090
03500
03510
03520
035)0
03540
03550
03560
03570
03580
03590
03600
03610
03620

TFM
DC

•
•
•
•
OK

OZ893
OZ895
J0320

0101072
0 ......
04496
OU08
OU20
04532
04540
04552
04564
04516
0 .. 588
04600
04612

66
66
.. 3
62
64
49
26
70
70
24
"6
64
"9

01048'
0 •• 96
04540
04520
0 ..496
0,,680
00319
04587
04611
028R1
04740
04576
0 .. 680

000-8
00-15
028RO
OO-ON
000-11.

5 X

4

AENOX+5-3.8ENOX+7-3.CENOX+9-3.DENDX+11-3

4

11

04643
0 ..648
04653
04658
04663

J3590
J3928
J .. 641
J5853
5 X

4

04663
0 ..668
04613
04678

-0005
-0007
-0009
-0011

7.

9.

,

04023
04043
04063
00--0
01200
00--0

-005-0310
-071J
-1215 X

INVALIO OP COOE
EVALER-1.10000

•

11

0303 ..
03035
10132

04623
04628
04633
04638
04643

5.

8T
80
TFM
ITM

II
15

04623

03430 OPINT8 OSA

03440 •
03450 EU
03460

8

0 ..416
0 .......
0 ..460

04680
04691

16

070U
1

LOOOO

1,',·

EPRINT.EPRINT-1
ERCOR. ERSTSW
INPUT2+1. 041. 9
INSTRN.LDL8l

0 .. 692
04704
0.116
04128

27
43
16
17

01322
07178
03035
10132

01321
021076
00-41
-8]90

04740
0.752
0.764
04776
OH88
0.800
04808
04818

62
26
25
71
32
49
49

04752
02330
00328
00329
02327
OM 80M
05116

00--3
Olo58P
02330
00328
00000

04818
04828
04828
04838
04838
04848
04848
04858
04858
01t868
04868
04878
04878
04888
04888
01t898
04898
04908
04908
04918
04918
04928
04928
04938
04938
0'"948
04941
04958
04958
04968
0.968
04976
04976
04988
0.825
01t829

49

05068

49

04976

00000

49

05032

00000

. USING THE LAST DIGIT OF THE OPCODE ENTRY GOOOB IS
MODIFIED TO BRANCH TO THE CORRECT ENTRY IN BTBl
IXM
TF
TD
MF
SF
87
8
DORG

'+12.3131
lEPO+30.ALFlP+l1.11
XRA5-1.lEPOa30
XRA5.XRA5-1
lEPOan
ITBLa6151,,6
SAVRST ••• -7
'-1

00000

73
PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
03630
03640
03650
03660
03670
036.0
03690
03700
03710
03720
03130
03740
03750 8TBL
03760
03770
03780
03790
03800
03810
03820
03130
038.0
03150
03860
03870
03810
03890
03900
03910
03920
03930
03940
03950 OECl
031160
03910
03980 BT8L2

8
DORG
8
OORG
8
OORG
8
OORG

a

"DW8~ ..

'-1
DECL ...
'-1
80MK".
'-1

-6

-5
-4

MCCALL,., .,-3

--1
ADC."
'-1
MACRO ...
'-1
INST ...
'-1
SIOC, "
'-1
DISK",
'-1
ItOW ...
'-1

-2

OORG
-1
8
OORG
8
0
OORG
+1
8
OORG
+Z
8
DORG
a)
8
DORG
+4
8
K",
DORG '-1
OSON8 ... +5
OORG '-1
+6
I
II."
DORG '-1
+7
8
8NI.".
OORG '-1
DEMDC,. , +11
B
OORG '-1
8
8SIH, .. a9
OORG '-3
XRA6-1o ZEPOa29
TO
87
IT8UI6! ,,6
OORG IITBL-50-3 •••
OSA OC

•

INTERWEAVE SU8-VECTOR WITH VECTOR

00000

'"9

11196

00000

,"9

05020

00000

49

1U04

00000

49

010996"

00000

49

05104

00000

49

05080

00000

49

05056

00000

49

05092

00000

49

1228"

00000

49

050'"4

00000

49

05044

00000

49

12128

00000

109

05008

00000

25
49

00333
OMQ2R

02329

0

04829
04834
04839

J2768
5
5 X

+1

04U9
04844·
04. .9

J2552
5
5 X

5" ,
OSA

+2

04849
0485'"
04859

J11t88
5
5

5",

+]

04859
04864
04869

J3216
5
5 X

5",

+4

0"869
0"874
04879

J1408
5

5 .. ,

01990
04000

OS
OSA

0'"010
04020

OS
OSA

5 .. ,

0'"030
04040

OS
OSA

04050
04060

OS
OSA

OAS

04010
04080

OS
OSA

HEADER

OORG

OAC

7"

5 X

9

1620 SPS 11-0 FOR MONITOR II--PHASE A
04090
O-HOO

OS
OSA

5., ,

PAGE

+5

0 ••' "
04884
OUB9

J2676
5

+6

0.889
04894
04899

J2048

04899
04904
04909

J1236
5
5 X

04909.
04914
0'1996
04996
05008
05020
05032
050'14
050"4
05056
05068
05080
05092
0510"
05116

J1l56
5

OSB

04110
04120

OS
OSA

OG"

04130
04140

OS
OSA

OMESCL

5".
5".

H

04150
OS
5, ••
+B
04160
DDRG OECL+20
04170 INST
BTM INSTRN,DOINST
04180 BSIN
BTM I NSTlN,DOBS
04190 AOt
BTM I NSTRN, OOADt
04200 BOMK
BTM INSTRN,DOBOMK
04210 BI
BTM INSTRN,OOBI
04220 BNI
,BI
DS
04230 RDW
8TM INSTRN,DORDW
04240 RDW8
BTM INS TRN, OOROWB
04250 OISK
BTM INSTRN,OOOISK
04260 K
BTM "'.STRN,DOK
04270 SlOt
BTM I NSTRN, DOSI Ot
0"280 SAVRST BTM INSTRN,OOSVRS
04290 0
OHOO.
04310 0
THE FOLLOWING tLOSEO SUBROUTINE EVALUATES
04320 0
THE STATEMENT OPERAND
04330
04340
OS
5
OH50 TRSCAN TR
I NPUT+19, INPUT+21,.
ELIMINATE LEAOING ,
01t360
BT
StAN, TRStAN-l
04370
DS
5
04380 StAN
TF" OPER,IO,IO
0'1)90
TF" XFLAG,OO,IO
TF
0IVSW,tLERER+5, ,
0"'100
tLEAR SWlTtHES
TOM 8SWol,1l
0"410
• TF
AODRS ,CLERER+9
0"420
0'1430 StAN2 TO
ALPHA, LNTH+I"
REtORO MARK--ALPHA EMPTY
0'1440
BD
.+44,INPUT.l9
0'1450
80
o+3201NPUT+20
0'1460
TR
INPUT+19,INPUT+21
0'1470
.-36
87
0'1480
BNR StANI-24,INPUT+20
04485
BD
FERRR,LPNSW
04490 StANA SF
ADDRS-'1
04500
CM
RtTR, 00,10
04510
BE
SREL+12
04520
tM
RtTR, 01,10
O'iBO
liNE -+2,.
0'1540
IINF SREL, ADDRS
04550
tM
RCTR, -01,10
04560
BNF *+24, ADDRS

•

05132
0513'1
051'16
05162
05164
05176
05188
05200
05212

052210
05236
05248
05260
05272
05280
05292
05304
05316
05328
053"0
05352

053610
05376
05388

10

5 X
5
5

17
11

17
17
17
17
17
17

17
17
17

31
27
16
16
26
15
26
25
43
"3
31
49
45
43
32
14
46

14
"7

10"

14
44

10132
10132
10132
10132
10132
0
10132
10132
10132
10132
10132
10132

5
02900
05164
5
06532
06986
07318
07319
03293
0268"
05280
05280
02900
05236
05464
069B8
03289
07314
05"56
07314
05376
05"44
07314
05"12

J0296
J0404
JO"48
JOS28
J0596
J0664
J0732
Jl076
J0752
J0832
J0996

02902
05133
OOOJO
000-0
02698
OOOOJ
02702
02388
02900
02901
02902
02901
07317
00000
000-0
01200
000-1
01200
03293
OOO-J
03293

75
1620 SPS II-D FOR MONITOR II---PHASE A
04570
04580
04590
010600
0.UI0
0"620
04630
0"640
04650
04660
04670
04680
04690
04700
0"710
04720
04730
04740
04750
04760
04170
0'1780
04790
04800
0'1810

liE
TFM
BT
117
SREL
TOM
B7
tM
BE
SCANI CM
BNE
TFM
TR
EVALOP B7
CM
BNE
TFM
B7
DIGALF BNR
III

liD

M
SF
TF
MDRET BO
B7
010820 MOVE
TF
04830
TD"
87
04B"0
04850 DIVIDE CM
04860
BE
0'1870
LO
OU80
0
04890
SF
0,.900
TF
04910
87
010920
TDM
04930 INTER" 8D
87
049"0
TOM
0"950
04960
TR
04970 BLOP
CM
04980
8E
TO
0"990
05000 ADDSUS 20
05010
TF
05020
TFM
05030
8NF
050'10
TO
05050
A"
05060
87
05070 EVALAD SF
05090
TOM
05100
TFM
05110
TFM
05120
TR
05130
87

SREL
EVALER-2,71170"
EPR INT ,EPRINT-l
EVI
RLOCSW, I , l l
TDBB
INPUT+20,23,10
SCANA-12
INPUT+20,IO,10
·.44OPER, 10, 10
INPUT+19,INPUT+21
EVALAO
INPUT+20,20,10
EVALAD
OPER,20,10
SCAN1+36
0+20, ALPHA
MOVE
DIVIOE,OIVSW
ALPHA,8ETA
90
ALPHA,99
SREL-32,RSYMSII
MOVE+12
ALPHA,BeTA
OIVSW,O
GET-I,,6
BETA,O
MDRET
99,ALPHA
89,BETA
85
ALPHA,94
MDRET
OIVSW,I,ll
SREL-32, RSYMSW
StANI+36
lPNSW,t,ll
INPUT+19,INPUT+21
OPER"IO
StAN2
o+13,OPER-I
ADDRS ,ALPHA
ALPHA,CLERER+9
OPER" 10
o+36,RSYMSW
"13, ADOSUB+l
RtTR, 1,10
StAN2
HED-2
8SW,0
LABL,I,IO
DOL,,10
eOLL-18,THINGS-20
BeNSpt

PAGE
05400
05412
0542"
05436
0544"
05456
05464
05"76
05488
05500
05512
05524
05536
055"4
05556
05568
05580
05588
05600
D5608
05620
05632
05644
05656
05668
05676
05688
05700
05108
05120
05132
057"4
05756
05168
05780
05788
05800
05812
05820
05832
05844
05856
05868
05880
05892
05904
05916
05928
059'10
05952
05960
05972
05984
05996
06008
06020

RELOtATI ON ERROR

76

'16
16
27
,,9
15

"9

1'1

"6
I"
'17
16
31
'19

I,.
47
16
49
.,5
49

43
23
32
26
43
49
26
15
49
14
46
28
29
32
26
'19
15

,.3
49
15

31
I"
'16
25
20
26
16
'1'1
25

11
49
32
15
16
16

31
'19

05,.,."
07040
07322
01078
07316
07102
02901
05292
02901
0554"
06532
02900
05960
02901
05960
06532
05524
05608
05676
05708
02684
00090
0268"
05412
05688
02684
onl~

0653P
02689
05656
00099
00089
00085
0268"
05656
07318
051012
05524
07317
02900
06532
05224
05881
03293
0268"
06532
05952
059'1l
073)10
05224
10119
07319
06075
06073
02,.21
0614"

01200
PI770
07321
OOOOJ
OOOK]
01200
OOOJO
01200
OOOJO
02902
OOOKO
01200
OOOKO
02684
07318
02689
00000
00099
07315
02689
90000
-0000
01200
02684
02689
00000
00094
OOOOJ
07315
OOOOJ
02902
000-0
01200
06531
02684
02702
000-0
07315
05881
000-1
00000
00000
000-1
000-0
021000

11

PAGE

1620 SPS 11-0 FOR MONITOR II--'MASI A
05HO·
05150 COMSPC
05160
05170
05180
05190 LA8L
05200 DOL
05210
05Z20
05230
05Z"0 •
05250 •
05260
05270 EUNTH
05280
05290
05300 8CMSPC
05310
05320
05310
053"0 SPEC
05350 •
05)60
05370
05380 •
05390 SI
05"00
05410 •
05420
05430
05""0
05"50
05"60 •
05"'0
05480
05490 •
05500

CM
8L
TF
CF
OS
DS
AM
TR
CM

CIlECK FOR SP!C IAL CHARACTER
INPUT+ZO,70,10
SPEC
COLL.INPUT+ZO
COLl-I

..

,--2

DOL.I,IO
COLL-lT,COLl-15
COLL-17.1,10
SYMIOL IN OPERAND CONTAINS MORE THAN SIX CHARACTERS
OR NUM8ER IN OPERAND HAS MORE THAN FIVE DIGITS
INE "ZO
81
ER5
INPUT+19,INPUT+21
TR
CHECK TO SEE IF OPERAND IS PRESENT
TFM GET-I,ILOP
BNR COMSPC,INPUT+ZO
87
GET
.CHECK FOR + OR eo 51.1 NPUT+ZO
CHECK FOR BLANK
GET,INPUhl9
110
ICMSPC-12
117
CHECK FOR COMMA
CM
INPUT+20.23.10
BE
GET
CHECK FOR SLASH
INF e+"8,OIVCSIl
INPUT+20.Zl,10
CM
8NE e+24ITM GET ,INTERM-12
CIlECK FOR ASTER I SK
INPUT+ZOtl4,10
CM
ASTER
BE
tHECK FOR DOLLAR SIGN
INI1UT.ZO,13,10
tM
IE
DOLLAR
•
CHECK FOR LEFT PAREN
CM
INPUT+Zo,24,10
8NE e+24
BTM GET,BLOP-24
•
tHEtK FOR RIGHT PAREN
CM
INPUT+20.0",10
RTPN
BE
L DCHAR TDM LA8L
COMSPC+H
17
DOLLAR CF
DOLLAR
e+3Z,DOL
10
TFM COLl .. l0
e+44
81
DOL,I,10
CM
8NE LDCHAR
COLL-3
SF
HEO-Z
CF
TDM LA8L

·
·

onlo

05520
05530
05540
05550
05560
05570
05580
05590
05600
05610
05620
05630
05640
05650
05660
05610
05680
05690

06021
060.0
0605Z
060"
06015
06013
06076
06088
06100

I"
"7,·
Z6
33

1"

OZ901
06176
OZ"39
OZUI
0
0
06073
OZUZ
OUZZ

06112
0612"
06132

'"
31

06132
017"0
02900

01200

"9

061""
06156
06168

16
"5
"9

06531
06028
06538

-58""
02901

06176

"3

06208

OZ901

06188
06200

U
"9

06538
06132

02900

06208
062Z0

I"
"6

02901
06538

000K3
01Z00

06232
062 ....
06256
06268

44
1 ..
41
17

06Z80
02901
06280
06538

02485
OOOKI
01200
-5188

06280
0629Z

14
46

02901
06846

000J4
01200

0630..
06316

14
"6

02901
06"08

000J3
01200

06328
063"0
06352

I ..
41
17

02901
06364
06538

OOOK"
01200
-5820

06364
06376
06388
06400
06"08
06"ZO
06"32
06"""
06"52
0646"
06"'6
06488
06500

14
"6

02901
06182
06075
0605Z
06408
0645Z
02'>39
06"88
06073
06388
OZ"36
10119
06075

000-"
01Z00
00000

06512
0652"

43

11

31

15

"9

33

43
16
"9
1"
"1
3Z
33

15

12

OOOPO
01300
02901
00000
000-1
02"2"
000-1

02902

00000
06013
000-0
000-1
01200
00000
00000
00000

77
1&20 SPS II-D FOR MONITOR II---PHASE A
05700
05710
051Z0 •
05130 •
057'10
057.50 OPER

·

05760
05770
05175
05780
05790
05800
05810
05120
05830
058"0
05850
05860
05810
05880
05890
05900
05910
059Z0
05930
059"0
05950
05960
05970
05980
05990
06000
06010
06020
06030
060"0
06050
06060
06070
06010
06090
06095
06100
06110
06120
06130
06140
06150
06160
06170
06180
06190
06200
06210

GET

80
87

Ot
-0
DS

TOil

eo

XFLAG

"9

06132
06088

06013

CLOSED ROUTINE TO EVALUATE COLLECTED SYM80L DR INTEGER

8D
C
BE
8D
CM
8H
8E
TDM
TR
CM
8NE
5CHAR 8NF
TF
87
6CHAR BNF
SF
SF
87
GETAST TF
8NF
TDM
81
TRNUM8 tM
8H
TNS
11
ASTER CM
8E
8TM
RTPN
BNF
C
8H
C
8NL
TFII
8T

FERRR

PAGE

BCIISPC-12,DOL
'CMSPC-56

81
DC
-0
TFM
8T
87

•
•
•

2,0

06532

5
RSYMSII,O
FERRR ,LPNSIf
U23,COLL-2
GETAST,I"'IO
TRNUMI, LAIl
COLL-I7, 05,10
6CHAR
5CHAR
COll,O
COlL-n, COLL-15
COLL-17, 05,10
e-36
LIADD-Z", HED-2
COLL-IZ, HED
LlADD
LUDO, HED-Z
tDll-13
COLL-2
L8ADD
8ETA,ADDCOII
DIGALF,RELSII
R5I'MSII,1,l1
DIGALF
COll-I",6060
ER5
COLL-2.8ETA
DIGALF
DOL,O,IO
LDCHAR
GET,INTERM
FERRR,LPNSII"
uZ3,COLL-Z
U36,10,10
uZ3,COLL-Z

06537
06538
06550
0656Z
0651tt
06586
06598
06610
06622
0663"
066"6
06658
06610
06682
0669"
06706
0611"
067Z6
06738
06750
06758
06770
06182
0679"
0680Z
0681"
06826
06838
06846
06858
06810
0688Z
0689"
06906
06918
06930
069"Z
0695"
06966
06978
06986

FORIIAT ERROR

-+48.77.10
EVALER-Z.15000
EPRINT,EPRINT-l,.
ERCOR,ERSTSW
SCANA
2,0
EVALER-Z,15000,.
EPRINT,EPRINf-I,.
EVI

ILLEGAL INOEX SPECIFIED

FORMAT ERROR
ILLEGAL )(

06988
07000
07012

2
15
H
Z4
"6
"3

14

"6
"6
15

31
I"
..7

""
""

Z6
49

32
32
"9
26

""

15
"9

lit

"6
72
"9
1"
"6
n

""

2 ..
'16
2"
"6
16

Z1
'13
"9
16
27
"9

5
01315·
06988
06585
06758
06802
02lt22
06114
0668Z
OZ"39
02'Z2
02'lZZ
0663"
07556
OZ"Z7
01510
07580
OZltZ6
02lt37
01580
OZ689
05588
07315
05588
OZlt25
077"0
OZH7
05588
06073
06388
06538
06988
06917
069"2
069"1
06918
010"0
013ZZ
07178
0530"
2
070"0
073ZZ
01018

00000
07317
OZHl
012J"
06075
000-5
01100
01200
00000

02"2"

000-5
01Z00
10119
101Z1

10119
00000
00000
02529
02418
OOOOJ
-6060
01100
OZ689
000-0
01200
-5800
01317
OZlt37
011PO
02431
013P7
PSOOO
01321
02"'6

P5000
013Z1

EVALER IS THE ERROR ROUTINE
DAS

5

07021

78

5 X

13

1(Q0 SPS 11-0 FOR MONITOR II---PHASE A
06220
06230

BNR
DC

1,',_

06240
06250
06260
06270
06280
06290
06300
06310
06320
06330
06340
06350
06360
06370
06380
06390
06400
06410
06420
06430
06440
06450
06460

EVALER BT
EPRINT.EPRINT-1
SPTY
WAH eOLl-12
EVI
BO
EReOR. ERSrsw
CHKND
TFM ADDRS
TOBB
CF
seAN-I
BI'IR *+20.INPUT+20
B7
SCAN-I, ,6
eM
INPUH20.23,10
BE
SCAN-I •• 6
TR
INPUT+19,INPUT+21
B7
TOBB+12
ERCOR
WATY CORM",
RC TY
TR
INPUT+19.INSAV-I
WATY INPUT-IO
TF
ADDCOW. PLACE
TOM ERROIG. 1.11
SM
INKRM,t,tO
SM
ST(I'IT .1.10
TFM CFFA. NeOCFl
BTI'I CFF.REA03
NCOCF I ODA , O. A2DAD. l2SCT. I NS TRN
OJ8800-58JO.132
I ••
06470
DC
06480
06490
06500
06510
06520
06530
06540
06550
06560
06510
06580
06590
06600
06610
06620
06630
06640
06650
06660
06670
06680
06690
06700
06710
06720
06730
06740

RCTR
RSYMSW
RLOCSW
LPNSW
OIVSW
BSW
lDABSW
•
•
•
•
EPRINT

2 ..

OS
OS
OS
OS
OS
OS
OS

1 ..
1 ..

ERROR CORRECTION ON-LINE

I
1 ..
1 ..

01030
070'11

'15

59007
1

00000

07042
07054
07066
07078
07090
07102
07114
07126
07134
07146
07158
07170
07178
07190
07202
01214
01226
0723B
07250
07262
01274
07286
07298

27
34
39
43
16
33
45
49

07322
00000
OH27
07178
03293
05163
01134
0516l
02901
0516L
02900
07114
03341
00000
02900
02811
02529
03271
02566
02514
02631
02594
14

07321
00101
00100
02476
-0000
00000
02901

00000
03321
03313
03297
02563
07021
07418
00457

00102
02879
00100
00100
00100
00100
02476
00000

6
02529
07486

R9999
01200

H
46
31
49
39

34

31
39
26
15
12
12
16

17

14

OOOK3
01200
02902
00100
00102
02748
00100
03270
OOOOJ
000-1
000-1
-7298
-3428

07312
RElOCATION COUNTER
ON FOR RELOCATABLE SYMBOL
ON FOR RELOCATABLE EXPRESSION

07314
07315
07316
07317
07318
07319
07320

1
ON INDICATES BLANK OPERAND
ON FOR RELOCATABLE SYMBOL TO TABLE

EPRINT PRINTS THE ERROR MESSAGE ANO REFERENCE TO
INDICATE THE STATEMENT IN ERROR
RCTY
TF
LOPOUT. INPUT-2
WArY LOPOUT-8
WArY ERLAB
WNTY INKRM-3
WATY EVALER-21
BD
u24,ERSTSN
SF
NONEX •• ,
8B2

•
•
•
•
CTEST

PAGE

59007

KILL AUTO EXECUTION

01322
0733'0
07346
07358
07370
07382
07394
07406
07418

34
26
39
39
38
39
H
32
42

07425
07426
07438

14
46

TEST IF SIZE OF OBJECT CORE HAS 8EEN EXCEEDED.
LINKAGE
BTM CTEsr,.-+12
(RETURN ADDRESS IF ERROR!.
OS
CM
BE

6
ADDCON.99999
ERI-2

79
PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
24
46
15
42
H
16

02529
07488
07484

02497
01300
00000

07486
07041
1

07484
JOOOO

1,',*

07450
01462
07474
07486
07488
01500
07511

EPRINT.EPRINT-I
CT1+10.01
NONEX
CTEST-I .. 6

07512
07524
07536
01548

27
15
32
109

07322
07484
00457
0742N

07321
00001
00000

01556
07568
07580
01592
07600
07612
07624
07636
07648
07660
07612
01684
01696
07708
07716
07728
07740
07751

15
31
44
49
26
27
44
11
26
44
44

02439
02422
07600
05588
08389
08096
01716
08359
02689
07708
07708
07315
02689
05588
02645
07752
07042
I

00000
02424
05163

07752
07764
07776
07788

II,
46
25
25

08359
01740
03385
19998

KOO09
01300
19998
02561

07800
07812
07824
07836
07848
07860
07812

16
49
26
26
16
16

00565
00520
10077
02673
03276
03281
10077

-7823
J0023
10061
02645
J5991
KOO09
-00100

07884
07896
07908
07920
07932

16

079104

21
43
12
46

00565
00566
08096
08016
02673
07872

-1907
J0031
08095
08335
000-1
01100

07956
07968

16
49

00565
00566

-1919
Joon

06750
06760
06770
06780
06190 ERI
06800
06810

C
BI
TOM
BB2
BD
TFM

ADDCOW. OB JCRE
ERlol300
CTI_IO.OO

DC

06820
06830
06840
06850
06860
06870
06880
06890
06900
06910
06920
06930
06940
06950
06960
06970
06980
06990
07000
07010
01020
01030
07040
07050
07060

BT
TOM
SF
81

cn

•
•
•

"-2,CT1+10
EVALER-I.IOOOO

THE SYMBOL TABLE IS SEARCHED FOR EQUIVALENCE

TOM
LBADO
lB2

LADDR

NIC
ER5

TR
BNF
B7
TF
BT
BNF
AM
TF
BNF
BNF
TOM
CF
Bl
CM
BNE
BTM
DC

eM
07010
01080
BNL
TO
07090
TO
07100
WRI TE
07110 •
TFM
07120
07130
B
TF
07140
TF
07150
TFM
07160
TFM
07170
AM
07180 ROBLK
07190 •
READ
TFM
07200
07210
B
BT
07220
80
07230
SI'I
07240
BP
07250
READ
07260 *
TFM
07270
072BO
B

COll, 0
CDLL-I1. COLl-15
LB2. SCAN-l
DIGALF
BSENT. COll-2
BS. BS-l
I'IIC. EQSW
BSBF-105.10
BSBF-I. 11
BETA.
e+48, RElSW

."36, BETA
RSYMSWoI 011
BETA
DIGALF
SBOUT. 00.10

.+24
EVALER. 50000

1,',·
BSBF-lo L8L1M

.-24
DGSV. LOSYMB+I
LOSYMB+l. SPSGM
DISK-W(RC--SAVE CORE SYMBOLS

IORT,*+23
I ORBe. SOEF 10 7
B20CF+5. BIOCF-5
SBCNT. SBOUT
L1MITS-5. MlXLI M
LIMITS. LBlIM
B20CF +5. SPBL
01 SK-WLRC--REAO SYMBOL BLOCK

IORT,.+23
IOGT.SOEF2.7
8S. 8S-1
lBFNO. EQSW
S8CNT. 1.10
RDBlK
01 SK-WLRC--RES TORE CORE-ER5

IORT,.+23
lOG T • SOH I. 7

811

H
33
49
14
47

11

11
109

02437
OB095
08335
000-5
0835R
02478
02689
OOOOJ
00000
000-0
01200
NOOOO

15

1620 $PS 11-0 FOR MONITOR
07290
07300
01310
07320
01130
07340
01350
01360
01310
OH80
01390
01400
01410
01420
01430
01tt40
01450
01""0
01410
014BO
014.0
01500
01510
01520
01530
01540
01550
07560
07570
01580
07590
07600
07610
07620
07630

TD
TR
ITM
ot

,

II-'IIAS.

A

PAGE

onto

LDS'tMBH, DIISY
LIMITS-9, 'RTllM-~
EVALER, 50000

0100~

1, ',-

01015

OT992

LBFND

AM
I15B'-1,5aO
IIETA,BSBF-l,ll
TF
•
RUD DISK-WLRC--RESTDRE CDRE
TFM IDRT,·.U
B
IOGT,SDEF1,1
TD
LOSYMB+l, DIISV
TR
LIMITS-9, PRTLIM-4
BT
LAODR,,2
•
BINARY SYMBOL TAILE SEARCH SU8ROUTINE
B5
TR
L1M-., L1MlT5-9
BSCYC TF
I158F, CLERER.'
A
IIS8F, LIM
A
IS8F, LIM-5
TF
ISAV, BS8F
A
8S8F, 8S8F
A
8S8F, BS8F
ISIIF, BSAV
A
BD
e+24. 8S8F
AM
8S8F-l, 8,10
SM
8SBF-l, 8,10
858F-l, L1 ....,
C
BNE e+26
TOM EQSW, 0
812
lSENT, 158F-l,11
C
8NE ISNEQ
TDM EQSW, I,ll
882
BSNEU BH
BSHI
TF
LIM, BS8F-I
17
ISCYC
076~0 BSHI
TF
L1M-5, 8S8F-l
07650
B7
IStYC
07660 EQSW
, 8SHI-l
DS
01610 8S8F
6,0
DC
-00000
07680 BIAV
6,0
DC
-00000
076.0 LIM
10,0
DC
-000000000
07100
1,'
OC

··•

07110 8SENT
D1720
07730
01740
07150 LDLBl
D716D
07110 SNDTCD
0718D
07190

01016
01021
01040
08052

11
IT

11
26

0106~

16
49
25

010T6
08088

49

31

01096
01108
01120
01132

Ii
26
21

Z1

Oll~

26

08156
01168
08110
081.2
011104
08216
08228

21
21
21
43
11
12

082~0

47
15

08252
08264
08266
08278
08290
08302
083010

08316
08328
08336
083~8

2~

~2
2~

47

15
42
46
26
~9

26
49

08335
08360

onu
D2~99

NOOOO

08359
02619

000-5
OU5R

00565
00566
19998
03212
';'161>0

-1063
JOon
03385
02499

08361
08360
08360
08360
08366
01360
08360
08360
08216
08359
01359
01359
08266
OU35

03212
02698
08316
01311
08160
08360
08360
OU66
08360
ODO-8
000-8
08311
01200
00000

01319
08304
08335

OU5R
01200
OOOOJ

08336
08316
08101
08311
08108
0
6

01100
08359

08366

6

08376

10

16

08359

08317

12

DS

25

1999B
03212
OTOU
1

12

0838'

ROUTINE TD LOAD LABELS INTO SYMBOL TABLE
C
BNE
BTH
TOM
8lXM

tlERER.l1, INPUT+I0
e+24
OUTPUT, PHASEA
TSPEC, 1
0+12,12111 ..

CHECK LABEL

08390
08402
084110
08426
08438

24
47
17
15
66

02704
Oft426
09510
10124
OB450

02891
01200
-3392
00001
000J2

08HO
08462

It]

08486
08486
08450
08509
08606
08546
085"5
OB606
08569
09382
08593
08606
10124
08486
0.382
08389
08389
08114
08114
08389
08380
08379
08096
09418
08359
09026
02645
09026
03385
19998

028P9
028P8
OOO-K
028P9
012-3
02485
028P9
012Kl
028P9
Olll!
028P9
013D9
00000
OOO-K
10124
02891
00000
02891
02890
02889
00000
10121
08095
08335
KOO09
01300
000-0
01200
19998
02561

00565
00520
03281
03276
02613
10017
09025
10017

-8833
J0023
KOO09
J5997
02645
10061
08359
000140

81
1620 SPS II-D FOR MONITOR II---PHASE A
01800
07810
07820
01830 LBCK2
018~0

01850
01860
01810
01880
01890
01900
07910
01920
07930
07940
01950
07960
01910
07980
01990
08DOO
08010
08020
08010
08040
08050
08060
08070
08080
08090
OBIOO
01110
08120
08130
08140
08150
08160
08110
08180
081.0
08200
08210
08220
08230
08240
OB250
08260
08270
08280
08290
08300
08310
08320
08330
08340
08350

BD
lICK2,INPUT-21l1
BD
LBtK2,INPUT-3111"
BtXM '-2~,-21l1
·.23,INPUT-2111.,
t
8E
lBt3,03tl0
_.16, DIVeSW,.
BD
t
·.21,INPUT-2111"
liE
lBtl,21.10.
C
"23, INPUT-2 11 I
BH
ER2B. 33, 10.
C
0+21,INPUT-21l1
Bl
'.24,69,10
TDM TSPEt.O
lBC3
BCXM LBtK2,-ZI1I
80
ER2B, UPEC
TF
ISENT, INPUT+l0
SF
ISENT
BO
0+60, INPUT+10
BD
'+48, INPUT+9
TF
IISENT. INPUT.8
tF
IISENT-9
TF
BSENT-I0, HED
BT
BS, BS-l
8D
ER4A, EUSI!
tM
8SBF-l. LBlIM
BNl LOSOK
SBOUT, 00,10
tM
BE
lDSOK
TO
DGSY, LOSYM8+1
TD
lOS YMB.l, SPSGM
•
lotS CAll-WRITE DISK WlRC
TFM IORT,"23
I
IORIC,SDEF1,1
TFM LIMITS. l811M
TFM lIMITS-5, MAXlIM.,
TF
SacNT, S8DUT·
TF
12DtF+5, I1DCF.5
TF
LDSR+ 11, BSBF-I
lDDStY AM
B2DtF+5, SP&l,10
•
READ 01 SK-WlRt
TFM IDRT.·.23
IOGT,SDEF2,1
B
85, BS-l
BT
8D
ER4. eusw
SBCNT, 1,10
SM
BNZ lODStY
•
10CS CALL-READ DISK WlRC
TFM IORT".23
B
IOGT, SDEFI.l
TO
LOSYMB+l, DGSV
LDSR
TFM BSBF-l •• -.
lDSOK SM
PRTlIM. 11.10
eM
PRTlI M. MUlIM
Bl
TA8FUl
TR
lIMITS-9, PRTLIM-4
BlX -+12, BSBF-l( 1)-.-.

PAGE

SKIP TRAILING BLANKS
• OK

oun

43
64

0853~

46
4!
24
46

08U6
08"98
08510
08522

IllEGAl UNLESS
ND SYMBOLIC DIVIDE
IN I!FFECT
I

08546
08558
08510
08582
08594
08606
08618
08630
08642
08654
08666
08678
08690
08702
08114
08126
08738
08150
08162
08714
08186
0819B

II+-'S,AND BLANK NOT AtlONED

08810
08822
08834
08846
08858
08810
08882

lEFT FUll 8lOCK lIMJT

21
43
14

46
14
46
25
25
16
~9

16
16
26
26
26

11

08906
08918
08930
08942
08954
08966

16
49
21
43
12
47

00565
00566
08096
09430
02613
0889~

-8929
JOO31
08095
08335
000-1
01200

08978
08990
09002

16
49
25
16
12
14
41

00565
00566
19998
08359
02503
02503
09230
03212
09086

-9001
J002)
03385
-0000
OOOJl
J5997
01300
02499
083N9

09026
09038
0905.0
09062
09014

82

2~

46
24
41
15
64
43
26
32
43
43
26
33
26

088910

090110

SHIFT SYMBOLS LEFT

2~

31

65

17

1620 SPS 11-0 FOR MONITOR II---PHASE A
08}60
08370
08380

TO
TOM
DC

OGSV,61l1"

6(1'",

I,',.

08390
8lX o+12,PRTLlMI21
08400
TR
99972121,99989121"
08410
TF
8SBF-l, 8SENT, 6
08420
.+48, RElSW
8NF
08430
SF
AOORS
08440
80
*+24, LOABSW
08450
CF
ADORS
08460
TF
5 (1) ,ADDRS"
08470
TO
6111 ,OGSV
08480
BTM OUTPUT, PHASfA
08490 TABFUl AM
820CF+5, SP8l,10
08500
C
S80UT, S8MAX
08510
8Nl ER19
08520
AM
S80UT, 1,10
08530
TO
OGSV, LOSYM8+1
08540
TO
LOS YM8+ 1, SPSGM
08550 •
10CS CALL-WRITE DISK WlRC
08560
[ORT,*+23
TFM
08570
IOR8C,SOEF2,7
8
08580
TO
LOSYM8+1, OGSV
08590
TFM PRTLlM, l8L1M-17
08600
TF
lOSYM8, CLERER+52
08610
TFM 8S8F-l, L8L1M-17
08620
87
LOSOK
TFM EVAlER-l, 20000
08630 ER28
1,',.
08640
DC
08650
08660
08610
08680 •
08690 ER4
08700
08110
08720
08730 fR4A
08140
08750
08160 ER19
08710
08180
08190
08800
08810
08820
08830
08840
08850
08860
08810

INSERT SYM8011C EQUIV

EPRINT, EPRINT-l
8T
ERCOR, ERSTSW
80
8TM OUTPUT, PHASEA
READ DI SK-WLRC
TFM
IORT,"23
IOGT,SoEF1,7
8
L1MITS-9, PRTlIM-4
TR
TO
LoSYMB+l, oGSV
TFM EVALER-l, 40000

09086
09098
09109

25
15

03385
000-6
1

000-6
00000

09110
09122
09134
09146
09158
09170
09182
09194
09206
09218
09230
09242
09254
09266
09278
09290

65
31
26
44

09122
99R72
0835R
09194
03293
09194
03293
000-5
000-6
09570
10017
02645
09498
02645
03385
19998

02N03
99R89
08389
02478
00000
07320
00000
03293
03385
-3392
000140
02671
01300
000-1
19998
02561

32
43
33
26
25

17
11
24
46
11
25
25

09302
09314
09326
09338
09350
09362
09314
09382
09393

16
49
25
16
26
16
49
16

00565
00520
19998
02503
19991
08359
09026
01041
1

-9325
JOO31
03385
J9992
02745
J9992

09394
09406
09418

21
43

01322
01118
09510

01321
02476
-3392

09430
09442
09454
09466
09418
09489

16
49
31
25
16

00565
00566
03212
19998
01041
1

-9453
J0023
02499
03385
1'10000

49
16

09394
01041
1

15
41

11

DC

1.' ••

B7
TFM
DC

ER2B+12
EVAlER-l, 11900

09490
09498
09509

TOM

ASTSW,I,1I
OUTPUT,PHASEA
EPRINT,EPRINT-l

09510
09522
09534
09546
09558

16
49

10125
09510
01322
09523
09522

09569
09510

26

5
10109

NOP
8T
TFM
B7

•
*
*

PAGE

TO MAKE HOLE FOR
NEW ENTRY

1,',.

*-23,11,10,
.-36

CHANGE NOP TO 8TM

27

18

KOOOO

J1900

OOOOJ
03392
01321
000J7

OUTPUT ROUTINE

OS
OUTPUT TF

5
OT2DCF+5,OUTDCF+5

10093

83
1620 SPS 11-0 FOR MONITOR II---PHASE A
08880
08890
08900
08910
08920
08930
08940
OB950
08960
08910
08980
08990
09000
09010
09020
09030
09040
09050
09060
09010
09080
09090
09100
09110
09120
09130
09140
09150
09160
09170
09180
09190
09200
09210
09220
09230
09240
09250
09260
09210

09280
09290
09300
09310 SOEF 1
09320

BT
TF"
B1
DSC
00
OSA

09582
09594
09606
09618
09630
09642
09654
09666
09618
09690
09102
09110
09122
09134
09146
09158
09166
09718
09190
09802
09B14
09826
09838
09850
09861
09862
09814
09886

EPRINT.EPRINT-\

ER20+1,49.10
OUTPUT-l .. b

2.00"

PLUS DISK WITH WRONG LENGTH

I, '

DSC
00
OSA

B20CF

2.00"

PLUS DISK WITH WRONG LENGTH

49

11
49
15
16
49

II
49
14
41
17

31
25

31
II
49

OOO-K

OllOO
02477
03133
02561
00001

00565
00520
L0093
0956R
10096

-9689
JOOH
-0001

00565
00520
10093
0956R
09832
09802
09862
09946
09953
-3042
09832
0956R

-q]45

00002
J0039
-0002
-3242
01300
-9802
03034
03271
09946
000-8

5
26

11
25

10109
10093
03242

10093
000-2
02561
-9921
J0047
-3042
00000

09956
09968
09980
09991

41
15
16

0956R
10125
01041
I

00000
OOOOJ
K7000

09992
10004
10016
10023

27
16
49

07322
09957
0956R
2

07321
000M9

10031
10037

8h

16

02643

00565
00520
09832
0986J
9

10029

DC

14
46
43
45
25
15

10109
10109
09956
09766
09110
03133
10096

16
'49
1<>
49

10029
10030

09340 SOEF2

22

09898
09910
09922
09934
09946

Bl0CF

09330

09350

PAGE

S
OT2DCF+5. SYMTAD
CM
OT20CF+5,-2,1O
BH
ER20, ••
INTER SECTOR OVERFLOW
BO
2PASS, 2P SSW
BNR 2SECT, INPUT2+99
INPUT2+9'9, SPSGM
TO
TOM OUTDCF+8, 1
*
WRI TE OISK-NO WLRC
TFM
IORT, •• 23
B
IOR8C,OUTOF1,7
AM
OUTOCF+5, 1
B1
OUTPUT-I. ,6"
RETURN
25EeT
TOM OUTOCF+8, 2
0
IDes CALL-WRITE OISK-NO WLRC
TFM
IORT,.+23
8
IORBC,OUTOF1.7
25
AM
OUTOCF+5, 2
B1
OUTPUT-l, ,6
2PASS CM
2PTR+6,INPUT2+208
.+24
BL
8TM 2PSOUT,"12
TR
2PBUF 01 NPUT2
TO
2PBUF+7,ERROIG
2PTR
TR
INPUT 2+8. 2PBUF, 2
AM
2PTR+6. 8,10
B7
OUTPUT-I, ,6
OS
5
2PSOUT TF
OT20CF+5, OUTOCF+5
AM
OUToeF+5,2,10
TO
INPUT2+208, SPSGM
10CS CAll-WRITE DISK WITH WLRC
*
TFM
IORT,*+23
B
IOR8C.OUTDF2,1
TFM
2PTR+6,INPUT2+8
2PRE
B
2PSOUT-l .. 6
2PBUF
9,0'
OSC
00000000'
ER20
NOP OUTPUT~I, ,6
TOM ASTSWol,ll
TFM E VALER-l ,27000
DC
1,' ••

5 X
J0056
1

19

PAGE

1620 SPS II-D FOR MONITOR II---'H'SE •

.

09360

DC

1,'

09370 OUTOFI OSC
02
OSA
09380

.

09390

lOOn
10038

DC

09"00 OUTOF2 OSt
00
09410
OSA

10039

2

OUTOtF

100"5

5

I, '

10045
100"6

JOO88
1

2,02"

2.00 ••

PLUS DISK NOT WRONG LEHGTH

PLUS DISK WITH WRONG LENGTH

100"7

DTZOtF

10053

1,'

10053
1005"

J0104
1
14

09"20

DC

091t30 B1DCF

DOA ,o,o-.,SPBL,SBFAOO
o-OODO-"OJ5998
DC
1,'

10056

ODA ,o ••-*,SPBl,SBFAOD
0-0000-40J5998
DC
10'

10072

09""0
09450 82DCF
0'1460

0'1470 OUTDCF DOA

20

J0072
1

10010
14

10086

,O,*-*.1.JNPUT2

10088

14

0-00DO-0~-3034

,

O'lUO

DC

10102

1,'

09490 DT2DCF DDA ,O,*-*,2,INPUT2+8
0-0000-02-30"2
09500
DC
I.'

10104

09510
09520 HED

1011'1
10121

1
2

10123
10124
10125

2
1
1

09530
095"0
09550
09560
09570
09580
09590
09600
09610
09620
09630
096"0
09650
09660
09670
09680
09690
09700
09710
09720

DS
DC
-0

1"

10118

1
2,0

CNTR
as 2
TSPEC as
1
ASTSW OS
1
•
•
PHASE Al--INI TI ALllA TlDN
•
SURT TfM IORT.H23
IOGT,MCADEF,7
8
TDM "OCTOC,O
TDM IIODOC,O
1I0NAME,CLERER+ll
Tf
TF
MDIDNO.CLERER»
TFM MOMAD,99999
TFM IIIKRM,99999
TFM AODCDI/,2"01
L,MDML
TF
NOISE.MONOIS
TO
Tf
SUBNO,MOSBNO
STAIH2 TDM 0,0
TR
19999,tLERER>52

10126
10138
10150
10162
10174
10186
10198
10210
10222
1023"
102"6
10258
10270
10282

16
"9

10294
10306
10318
10330
10338
10350
10362
10374
10386
10394
10406
10418
10430
10442
1045"
10466
10"78
10-'90
10502
10514
10526
10538
10550
10562
10574
10586
10598
10606
10618
10630
10642
10654
10666
10678
10690
10702
10714
10726
10738
10750
10762
10770
10182
10794
10806
10814
10826
10838
10850
10862
10874
10886
108'18
10910
10922
\0934

45
15
16
49

15

15
26
26
16
16

16
26
25
26
15
31

00565
00566
16023
16022
16035
16039
00415
02566
02529
02521
02522
02524
00000
19999

J0149
J"162
00000
00000
02704
02&96
R9999
R9999
-2401
16041
1604"
16043
00000
02745

85
1620 SPS 11-0 FOR MONI TOR II---PHAS£ A
09730
09740
09150
09760
09770
097.80
09790
09800
09810
09820
09830
098"0 Altl
09850
09860
09870
09880
09890
09900
09910
09920
09930
099"0
09950
09960
09970 ST2L
09980
09990
10000 PROtON
10010
10020
10030
10040
10050
10060
10070
10080
10090
10100
10110 SLP
10120
10130
101"0
10150
10160
10170
10180 SLPK
10190
10200
10210
10220,
10230
10240 SLC
10250
10260
10270
10280

8MR
TDM
Tf·M

87
TR
BNR
TDM
TfM
B7
TDM
TFM
TD
TF
SM
TR

TF
SM
TF
BS8A
8LXM
8LXM
TD
Cf
tM
8L
8£
87
8NR
TF14
8LXM
tF
BtXM
CM
8NE
8D
RCTY
WATY
8LXM
8X"
8NR
B7

C
8NE
tR
B7
8LX"
TfM
A
C
TF
8L
t
8E
8CXM
WArY
81

PAGE

*.<\4,0
PROCRE.2.11
HtLlM,LBLlM
Altl
39999,tLERER+52
*+1t4
PROCIIE,4,l1
HtLIM,LBlIM+1116-17
AlCI
PROCRE,6,l1
HClI14,LBLI14+2.1176.11
OBJCRE-4,PROCRE
PIITLlM, HCLIM
PRTlIM, 17,10
LIMITS-9, PRTLIM-"
H30,OBJCRE
*+18,1,10
.-.,CLERER+52
-+12
-.12,01') '"~
.+12.0151
INCODE,MDEXEt
INCOOE
INCDOE,03,10
t15P
Cl"P
CUP
·+24,INPUT-l0
INPUT-I0,OO.10
·+12,-9-153111
I NPUT+153 1 11
.-12.2111
INPUT-I0,14,10
CALLA2
·+36,THNSI/

CLEAR VEtTOR REGISTERS

INPUT-l0 .. ,
.+12,0111

TYPE CONTROL STATEMENT

-+12,2(1)"

COMPRESS BLANKS

u20,INPut-l0111
SLPX
tLERER+l. INPUT-lOll I
SLP
INPUT-llI1I,INPUT-9111
SLP+12
.+12,80AT-EOAT-5131
SLC+ll.MESTA8
SLC+l1.80LT-BOAT+EOAT+5111
XRA I.BOL t-80At+EOAt+5 131
XRA2.80LT-80AT+EOAT+5131
_+36
INPUT-1212I,·-.
MATCH
SLPX+24,5131
IDMES
PHASEA

86

31
45
15
16
49
15
16
25
26
12
31
26
12
26
60
66
66
25
33

14
47
-'6
49
45
16
66

33
64
14
47
"3
34
39
66
62
"5
49
24
47
31
49
66
16
21
24
26
"7
24
46
6"
39
"9

10338
02498
02508
10"18
39999
10394
02498
02508
10"18
02"98
02508
02493
02503
02503
03272
10496
10-'96
00000
10514
10526
10538
02"92
02492
02"92
12006
11950
11894
10630
02871
10642
030L"
10642
02871
12"90
10726
00000
02871
10738
10750
10770
10814
02694
10738
028PO
10750
10826
10897
10897
00309
00314
10910
02Q69
10956
10838
10943
03392

00000
OOOOK
KOO09
02745
00000
OOOOM
MOOOI
00000
N9993
02498
02508
000J7
02499
02491
000-1
02745
00001
0--00
0-0-0
00426
00000
000-3
01300
01200
02811
000-0
OOIOK
00000
000-2
000J4
01200
02473
00102
00100
000-0
000-2
028Pl
028Pl
01200
028P2
OOJMN
J3353
llJJ2
llJJ2
llJJ2
01300
00000
01200
00--5
00100

21

1620 SPS 11-0 FOR MON IT OR /I---PH ASE A
10290 IDMES

OAC

10300 MATCH
10310 80LT

87
OSA

07.

PAGE
10943

1101 '

22

7 X

(1111'

10320

OSA

10330

OSA

10340 BOAT

10350

OSA

OSA

eOAT+5(31 .. 6
22.28,30.22,20,40.]2.22.10,32

10956
10967

49

IlKNP
5 X

10

34,34,20,30,40,42,18.30,24,30

10967
10972
10977
10982
10987
10992
10997
11002
11007
11012
11017

-0022
-0028
-0030
-0022
-0020
-0040
-0032
-0022
-0010
-0032
5 X

10

32,36.24,28,10,18.10,54,34

11017
11022
11027
11032
11037
11042
11047
11052
11057
11062
11067

-0034
-0034
-0020
-0030
-0040
-0042
-0018
-0030
-0024
-0030
5 X

C IP te2P ,t3P ,CltP, C5P ,C6P.C7P .C8P ,CCJP ,ClOP

11067
11012
11077
11082
11087
11092
11097
11102
11107
11112

-0032
-0036
-0024
-0028
-0010
-0018
-DOLO
-0054
-0034
5 X

CLIP ,ClLAP.C 12P .C13P.C 14P .CI5P ,CI6P. CI7P .CIUP

11112
11.117
11122
11127
11132
11137
111"2
11147
11152
11157
11162

JI254
JI334
JI454
Jl634
JI654
JI674
JI694
JI714
JI734
J1814
5 X

11162
11167
11172
11171

JI834
JIB54
JI874
JI894

CI8P, CI9P ,ClOP .e2 IP ,C22P.C23P .C24P, C25P.C26P

11182
11187
11192
11197
11202
11207

Jl950
J2006
J2050
J2070
J2090
5 X

11207
11212
11217
11222
11227
11232
11237
11242
11247
11252

J2110
J2154
J2174
J2314
J2334
J2354
J2410
J2430
J2450
5 X

10

87
1620 SPS 11-0 FOR MONITOR II---PHASE A

10360

OSA

10370 EOAT

OSA

C27P

10380 CIP
10390
10400
10410
10420
10430

TF"
TO
SF
CM
8NL
TFM
87
BNR
87
C
BNH
TFM
TO
87
TO

08JCREtO"

10440

10450
10460
10470
10480
10490
10500
10510
10520
10530
10540
10550
10560
10570
10580
10590
10600
10610
10620
10630
10640
10650
10660
10670
10680
10690
10700
10710
10720
10730
10740

C2P

C2PI
C2P2

TO

C3P

C3PI
C 3P2
C3P3

SF
87
8NR
87
C
8NH
TFM
TO
87
TO
TO
SF
CM
8L

eM

C4P
C5P

8NH
TF
87
TO
87
TOM

OBJCRE-4,INPUT-IO+2oll
OBJCRE-4
OBJCRE.20000
-+24
08JCRE,20000
PHASEA
-+20, INPUT-IO+2*15,.
C2PI
C70.INPUT-IO+2015
C2P2
SU8NO,OO,I0
SU8NO,INPUT-IO+2.14
PHASEA
SU8NO,INPUT-IO+2.15
SUBNO-I.INPUT-IO+2014
SU8NO-I
PHASEA
*-+20,INPUT-IO+2*16,.
C3P I
C70.INPUT-IO+2·16
C3P2

PAGE

11252
11254
11266
11278
11290
11302
11314
11326
11334
11346
11354
11366
11378
L1390
11402
11410
11422
11434
114'06
11454
11466
1147't
11486
11498
11510
11522
11530
11542
11554
11566
11578
11590
11602
11614
11626
11634
11646
L1654

OBJECT CORE N

SU8ROUTINE NUM8ER NN

MANTISSA LENGTH NN

L,OO,lO
L,INPUT-IOt2015
C3P3
L.INPUT-IOt2016
l-I.INPUT-IO+2015
l-I

L,2,IO
·.36
L,45,lO
-+24
L.MOML
PHASEA
NOI SE r I NPUT-IO+2* 11"
PHASEA

NOI SE OIGI r N

ERSTSW,L,ll,

ERROR STOP

88

16
25
32
14
46
16
49
45
49
24
~7

16
25
49
25
25

32
'09
4)
49
24
47
16
25
49
25
25
32
14
47
14
47
26
49
25
49
15

J2470
02497
02493
02493
02497
11326
02497
03392
11354
11378
14161
11410
02524
02524
03392
02524
02523
02523
03392
11474
11498
14161
11530
02521
02521
11566
02521
02520
02520
02521
11614
02521
11626
02521
03392
02522
03192
02476

23

9

-0000
02893
00000
KOOOO
01300
KOOOO
02901
02901
OLIOO
000-0
02899
02901
02899
00000
02903
02903
OLIOO
000-0
02901
02903
02901
00000
000-2
01300
000M5
01100
16041
02893
OOOOJ

1620 SPS 11-0 FOR MONITOR 11-·PHA5I A
10750
10760
10770
10780
10790
10800
10810
10820
10830
108ltO
10850
10860
10870
10880
10890
10900
10910
10920
10930
10940
10950
10960
10970
109BO
10990
11000
11010
11020
11010
11040
11050
11060
11070
11080
11090
11100
11110
11120
11110
11140
11150
11160
11170
11180
11190
11200
11210
'11220
11230
11240
11250
11260
11270
11280
11290
11300

C6P
C7P
C8P
C9P

ClOP
CllP
CllAP

87
TOM
17
TOM
87
TOM
87
TD
TD
TD
TD
TO
SF
8T
TDM
8T
TDM
B7
TOM

aT
C12P
CllP

C14P

Cl5P

C16P
CI1P
CllAP
CUP

CI9P
C20P
C20P2

TDM
BT
TDM
TDM
TOM
TOM
87
TOM
TOM
TOM
TOM
87
TDM
TOM
TOM
81
TDM
81
TDM
11
TOM
17
INF
TD
TDM
11
TDM
11
Bo
TF
SM
TFM
B
ILX
S
TR

PHASEA
RElSlI,loU,
PHASEA
MoCToC,l,l1,
PHASEA
MDCTDC,O,U,
PHASEA
CTYT ,INPUT+8 ..
CTVT-l,INPUT+6
C TVT-2,INPUT+4
CTVT-l,INPUT+2
CTVT-4,INPUT
CTVT-4,
PHASEA
STTYSII,l,11 ..
PHASEA
STPCSlI.l,l1,
PHASEA
STPRS 11,1,11 ,
PHASE A
INTRSlI,l,l1,
PHASEA
CDIIISlI,l,l1,
PTINSII,O
TYINSII,O
INCOOE,5
PHASEA,
PTINSII,I,I1,
TYINSlI,o
COINSII,O
INCDOE,l
PHASEA
TYINSlI,l,l1,
CDINSW,O
PTINSII,O
PHASE A
LSCDSII,I,11,
PHASEA
LSTYSII,I,I1,
PHASEA
LSPRSII,I,I1,
PHASEA
PHASEA,UTAT-30, ,
I5TAT-30, FlGRM
MOOOC,O,I1,
PHASEA
MoODC, 1, 11 ,
PHASEA
PHASEA, SSTSW .. ,
SSTDCF+13,HClIM
SSTOCF+13,SSTSCT'100+ 11
10RT,U23
10GT, SSTOF,l
0+12,SSTOCF+13111
PRTLIM,4111
LIMITS-9,PRTlIM-4

PAGE

ASSEM8lE RElOCATAIlE
OUTPUT PAPER TAPE
DUTPUT CARD
CTn 1111111111

TYPE SYMIDL TABLE
PUNCH SYMBOL TA8lE
PRINT SYMBOL TABLE
INTERRUPT XXX
8EGIN CARD INPUT

BEGIN PAPER TAPE INPUT

BEGIN TYPEIIRITER INPUT

LIST CARD
LIST TYPEIIRITER
LIST PRINTER
STORE CORE I MAGE

STORE RElOAOA8LE
SYSTEM SYMBOL TABLE

11666
11614
11686
11694
11706
1171'>
11726
11134
11746
11758
11770
11782
11794
11806
11814
11826
11834
11846
11B54
11866
11874
11886
11894
11906
11918
11910
11942
11950
11962
11974
11986
11998
12006
12018
12030
12042
12050
12062
12070
12082
12090
12102
12110
12122
12134
12146
12154
12166
12114
12186
12198
12210
12222
12234
12246
12258

49
15
49

12210
12282
12289

15

15
49
15
49
25
25
25
25
25
J2

49
15
49

15
49
15
49
15
49
15

15
15
15
49
15
15
IS
15
49
15
15
15
49
15
49
15
49
15
49
44
25

15
49
15
49
·U

26
12
16
~9

65
22
31

03)92
02478
03392
16023
03392
16023
01392
02490
02489
02488
02U7
02U6
02486
01192
02471
01192
02470
03192
02472
03392
02483
03392
02474
02475
02413
02492
03392
02475
02471
02474
02492
03392
02'H3
02474
02415
03192
02479
03392
02480
03392
02481
03392
03392
02530
16022
03392
16022
03392
03392
12311
12311
00565
00566
12246
02503
03272

24

OOOOJ
OOOOJ
000002889
02887
02885
02883
02881
00000
OOOOJ
OOOOJ
OOOOJ
OOOOJ
OOOOJ
00000
00000
00005
OOOOJ
00000
00000
00001
OOOOJ
00000
00000
OOOOJ
OOOOJ
OOOOJ
02530
03339
0000OOOOJ
12313
02508
-3511
J2233
J2289
123J1
000-4
02499

89
1&20 SPS 11-0 FOR MONITOR II---PHASE A
11310
11320 C20P4
11330 SSTOF
11340 C20P3

roM
11
OSC
22
DSA

PAGE

SSTSlI,l,11
PHASEA

2,22 ••

ABSOLUTE DISK NOT IIRONG lENGTH

~9

12313
03392
2

SSTOCF

12295

I, ,

12295
12296

J2298
1

11360 SSTOCF oOA ,O,SSTDAD,SSTSCT ,'-0
OJ8921-35-0000
I, •
11310
DC

12298

14

11380
uno
11400
11410
11420
11430
11440
llUO
11460
11470
lH80
11490
U500
11510
11520
11530
11540
11550
11560
11570
11580
11590
11600
11610
11620
11630
11640
11650
11660
11610
11680
11690
11100
11705
11110
11120
11130
11740
11150
11160
11170
11780
11790

12313
12314
12326
12334
12346
12354
12366
12318
12390
12402
12410
12422
12430
12442
12450
12462
12410
12482
12490
12502
125l'o
12526
12538
12550
12562
12574
12586

11350

DC

SSTSII
C21P

OOOOJ

12312

OS
TOM
11
TDM
11

I
2PSSII,1,l1,
Tilo PASS MODE
PHASEA
C22P
KILSUB,I,I1,
ND SUBRoUTI NES
PHASEA
C23P
TR
INPUT-l0Ill,ClERER+l"
NAME AUAU
SF
INPUT-l0+Z05-1
TF
MDNAME,INPUT-l0+2.5+2'5
CF
INPUT-l0+205-1
17
PHASEA
C24P
TNS INPUT-l0+2'12,MoIONO"
ID NUMBER NNNN
87
PHASEA
C25P
CF
ISTAT-30 .. ,
L1BR
B1
PHASEA
C26P
TOM PCNUSlI,l,lI,
PUNCH RESEQUENCED SOURCE DECK
11
PHASEA
C27P
TOM OIVCSII,O ..
NO SYMBDlIC DIVIDE
Bl
PHASEA
CALlA2 SF
INPUT-l
SF
I NPUT+ll
BlXM 0+12,19-153111
SF
INPUT+153111
ICX" 0-12,2111
TFM loRT,u23
IORBC,MCADEF,7
B
BNF 0+24, TYINSII
TDM 2PSSII,O
•
•
DISK STORAGE SCRATCH SECTOR ASSIGNMENT
•
TFM IORT.· .. Z3
IOGT,OIM,7
B
TF
CYLAV,MOSCT+8+20
8D
0+24,TYINSW
RC TY
TF
SCTAV-2,CYLAV, ,
08TAIN AVAIL CYL. FROM MONITOR
A
SCTAV,SCTAY
8D
SAS2P,2PSSW
TFM SASC+l1,IPTSP8+SP8L
CM
HCLIM,l8lIM+1176'17
BL
-+1t8
BE
-+24
AM
SASC+l1,BP20K'IPTSP8-BP20K'SP8L

12598
12610
12622
12634
12646
12658
12610
12682
12694
12706
12118
12730
12742

911

U
~9

15
49
31

32
26
33
49
12
49
33
49
U
~9

15
49
32
32
66
32
64
16
49
~4

15

16
49
26
~3

34
26
21
43

16
14
47
46
11

1
02477
03392
02484
03392
028PI
02880
16035
02880
03392
02895
03392
02530
03392
02482
03392
02485
03392
02880
02892
12526
030L4
12526
00565
00520
12598
02477

00000
00000
OOILM
00000
000-2
J2513
J4162
02473
00000

00565
00566
1"187
12658
00000
14190
14192
12902
12117
02508
12166
12754
12717

J2621
J3330
16028
02413
00102
14181
14192
02417
-1540
MOOOI
01300
01200
-7300

OOOOJ
OOOOJ
02694
00000
02891
00000
16039
00000
OOOOJ
00000

25

1620 SPS II-D FOR ~ON"OR II---PHASE A
11800
11810
11820
11830
11840
11850
11860
11870
11880
11890
11900
11910
11920
11930
11940
11950
11960
11970
11980
11990
12000
12010
12020
12030
12040
12050
12060
12070
12080
12090
12100
12110
12120
12130
12140
12150
12160

A
eM
SASC
Bl
AM
SASI
AM
AM
C
8l
AM
87
SASXl TF
S
87
SAS2P TFM
eM
8l
8E
AM
A
SASC2 eM
Bl
AM
SAS2
AM
AM
e
Bl
AM
B7
SASX2 TF
S
MM
SF
TF
TO
TD
AM
TYPASS TF
lZl70
S
12180
TF
12190
S
12200
TF
12210
TF
12220
TF
12230
BNF
12240
TFM
12250
TFM
12260
TFM
12270
TFM
12280
BTM
12290 DIM
DSC
22
12300
DSA
12310

DC

PAGE

SASe+ l l , 0-1

CFFA,NCDCFl
eFF,PROSTM
2,22

12754
12766
12718
12790
12802
12814
12826
12838
12850
12862
12870
12882
1289'0
12902
12914
12926
12938
12950
12962
12974
12986
12998
13010
13022
13034
13046
13058
13070
13078
13090
13102
13114
13126
13138
13150
13162
13174
13186
13198
13210
13222
13234
13246
13258
13270
13282
13294
13306
13318
13330

OIMOCF

13336

1, '

13336
13337

SCTAV,*-*
SASXl
STSAV,20SP8l
S8HAX,I,10
SAse+11,lPTSPB
seTAV,SAse+ll
SASXl
STSAV,SP8l
SASI
INTSAV,SCTAV
INTSAV,STSAV
TYPASS
SASC2+11,2PTSP8+SPBl
HClIM,lBlIM+1176'17

*+48
·+24
SAse2+ 11, 8P20K02PTSP8-BP20K oSPBl
SAse2+11,0-1

SCTAV,*-*
SASX2
STSAV,2oSPBl
SBMAX,I,lO
SAse+ 11, 2PTSP8
SCTAV,SASC+ll
SASX2
S TSAV ,·SP8l
SAS2
INTSAV,SCTAV
INTSAV,STSAV
INTSAV,2PRTlO
90
INTSAV,Y4
H23,INTSAV
.... 23,AJUST
[NTSAY" 10
SYHTAO, SCTAV
SYMTAO,STSAV
IOAODR,SYMTAO
10AODR,INTSAY
BI0CF+5, SYMTAO
B20CF+5,SYlHAD
OUTDCF+5,IOADDR

*+24,RElSW
ADOCOW, 99999

R28E+l.41.10,

PROSTM+l,41,lO ••

CHANGE BE TO NOP
CHANGE B TO NOP

21
14
47

II
II
11
24
47

II
49
26

2Z
49
16
14
47
'06
11
21
14
47
11

II
II
24
47

II
49
26

2Z
13
32
26
2'
25

II
26
22
26
22
26
26
26
44
16
16
16
16

11

12777
14192
12870
14197
02611
12777
14192
12870
14197
12802
14202
1'0202
13174
12985
02508
12974
12962
12985
12985
1'0192
13078
14197
02671
12777
14192
13078
14197
13010
14202
14202
14202
00090
14202
13161
13173
14202
02643
02643
02638
02638
10061
10071
10093
13282
02529
03673
03805
02631
02594
2

26

12753
-0000
01300
-0080
000-1
-1500
12777
01300
-0040
14192
1'0191
-0640
MOOOI
01300
01200
-2800
12961
-0000
01300
-0080
000-1
-0600
12777
01300
-0040

IH92
14191
KOOOO
00000
00094
14202
02399
000-0
14192
14197
02643
14202
026H
02643
02638
02478
R9999
OOOMI
OOOMI
-7298
-3904

J3338
1

!J \
1.20 SPS 11-0 FOR MONITOR II---PHASE A

PAGE

12320 OIMDCF DOA ,O.OIMOAO.l.MOSCT
Q-4800-01J6000
12330
DC
1, '

13338

21

14

13352

12340 MESTAB DS
,-+1
12350 Cl
OAC
11,00BJECTCORE
oOBJEC TCORE
12360 C2
DAC
14,05UBROUTINE5ET
oSUBROUTlNESET
12370 C3
OAC
15, oMANTI 5SALENGTH
oMANTI SSAlENGTH
12380 C4
OAC
1l,ONOI5EOIGIT
oNOISEDIGIT
12390 C5
OAC
10,oERRORSTOP
oERRORSTOP
12400 C6
OAC 20,oASSEMBlERElOCATABlE
oA 55 EMBl EREl OC ATABLE
12410 C7
OAC
16,oOUTPUTPAPERTAPE
oOUTPUTPAPERTAPE
12420 C8
DAe
11,00UTPUTCARD
oOUTPUTCARO
12430 C9
OAC 05,.C TVT
oCTVT
12440 CI0
OAC
16, 'TYPESYHBOl TABLE
oT YPES YMBOLT ABLE
12450 Cll
OAC
17,'PUNCHSYMBOlTABlE
OPUNCHSYMBOlTABlE
12460 CllA
DAC
17, oPR INTSYMBOl TABLE
oPRINTSYMBOlTABlE
12470 C12
OAC
10,0INTERRUPT
olNTERRUPT
12480 C13
OAC
15,oBEGINCAROINPUT
'BEGINCAROINPUT
12490 C14
OAC
20"8EGINPAPERTAPEINPUT
08EGINPAPERTAPEINPUT
12500 C15
DAC
21,*BEGINTYPEWRITERINPUT
OBEGINTYPEWRITERINPUT
12510 C16
DAC
09, oll S TCARO
'lISTCARO
12520 C17
DAC
15,olISTTYPEWRITER
*1I S TTYPEWRITER
12530 CllA
OAC
12,'lISTPRINTER
*1I S TPR INTER
12540 C18
OAC
15,oSTORECOREIMAGE
05 TORE CORE [MAGE
12550 C19
OAC
16,oSTORERElOAOABlE
oS TORERElOAOABlE
12560 C20
OAC
18,oSYSTEMSY~BOlTABlE
*S YS TEMS YMBOLT ABLE
12570 C21
OAC
12,oTWOPA5SMOOE
oTWDPASSMOOE
12580 C22
DAe
14, *NOSUBROUTI NES
*NO,UBROUT INES
12590 e23
OAe 05,*NAME
-NAME
12600 C24
OAC 09,.IONUMBER
*IONU14SER

13353
13355

0
11 x

13371

14 x

13405

15 x

13435

11 X

13451

10 X

2

13;417

20

2

13511

16 X

13549

II X

13571

5 x

13581

16 X

2

13613

11 X

2

13647

17 x

2

13681

10 x

13101

15 X

13131

20 x

IH71

21 x

13813

!J2

2

9 x

13831

15

13861

12 x

13885

15 X

13915

16 X

13941

18 X

13983

12 X

14007

14 x

14035

5 X

14045

9 x

2

12620 t26
12630 t21

OAt 05,.LIBR
.L18R
OAt 21, .PUNtHRESEIIUENtEDSDURtEOEtK
.PUNeHRESEIIUENeEOSOUReEOEeK
DAe 11,·NOSYMIOLleDIVIOE

28

PAGE

1620 SPS 11-0 FOR MONITDR 11---PHA5E A
12610 t25

5 X

'"'063
14013

27

I'H21

17

2,10

2

.~OSYMBOlltDIVIDE

DC
PO
12650 MC.DEF DSC
22
DSA
12660

14161

2

2,22

14162

2

MCADCF

14168

12670

1,'

14168
14169

J"110
I

IH10

I"

12640 e10

DC

12680 HCADCF DDA ,0, MOSOAO, 1, HoseT
OJ9663-01J6000
DC
1,'
12690

1"18"

12100 CYLAV

IH87

12110 SCTAV

14192

3,20
DC
-20
5,0
DC
-0000
5,0
12720 STSAV DC
-0000
5,0
12730 INTSAV DC
-0000
12740
DC
1, '
12150 FLAt
12760
12170
12780

SF
34
38
TRA

12190 AlDeF

DDA ,O,AIDAD, AlSeT, ZEPD
OJ86DOJ31-2300
DC
1, '

12800
12810

14197

5

1"202

5

1"203
110204
1"216
14228
142"0
110252
1"26"

FlGRM
AlDCF ,00101
AIDCF ,00702

,

14278

TCO

FlAI

14204

START
5
*+2],ADOeDW
"23,AJUST
AODeow, ,10
seAN,"12,7 11
TRSCAN,"12,1 11
INPUT+18,8MK+6

10126
10130
10132
10144
10156
10168
10180
10192
10204
10216
10228
10240
10252
1026"
10216
10288

DORG
12820
12830
OS
12840 INSTRN TO
12850
TO
12860
AM
BTM
12870
BTM
12880
12890
C
12900
8E
12910
C
SNE
12920
12930
8TM
12940
TF
12950
AM
8TM
12960
12970
B7

•• 36
INPUT+18,88T+6
•• 24
TRSCAN,"12,7 11
ADDRS ,ADDCDW
ADDCDW,ll,IO
tTEST,*+12
INSTRN-l, ,6

32
3"
38
36
H

03339
1"26"
1"26"
00000
00000
14

00000
00701
00102
00500
00000

L

5

25
25
11

11
17
24
"6
24
47

17
26
11

11
"9

10155
10167
02529
05164
05134
02899
10240
02899
10252
0513'0
03293
02529
07426
1013J

02529
02399
000-0
JOIBJOl9K
10403
01200
10395
01200
J025K
02529
OOOJI
J0288

93
PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
12980 DOINST TF
12990
C
13000
BNE
SM
13010
13020
C
8~E
13030
13040
SM
13050
87
13060 BBT
DAe
Bar
13070 BMK
OAt
8MK
TFM
13080 D08S
13090
TO
13100
SF
87
l3110
13120 DDADC TF
13110
SF
TOM
13140
13150
tM
13160
8NE
13170
SF
13180
87
13190 OOBOHK TDM
13200
TD
13210
TD
13220
SF
13230
TFM
81
132100
mM
13250 0081
TD
13260
13270
SF
13280
TF
13290
SF
13300
B7
13310 OOROW TDM
13320
TO
13330
TDM
13340
TD
13350
SF
13360
87
13370 OORDWB TOM
13380
87
13390 OOK
TF"
TD
13400
13410
Sf
TO
13420
SF
13"30
TOM
13"40
B1
13"50
13"60 DOSIOC SF
TFM
13"70
13480
CM
1 ]1,90
BE
13500
CM
13510
BE

AODCON, 5,10
INPUT+16, XIB2-3
.+24ADDCON,10,10
LDL8l
4,8BT

10296
10]08
10320
10332
10344
10356
10368
10380
10389

4,8MK

10397

INPUT2+1,060,9
INPUTZ+6,LEPO+28
INPUT2+6
lDUl
INPUT2+2, ZEPD+29
INPUT2+2
INPUT2,8
INPUT+12, 59,10.

10"04 16
10416 25
10428 32
10440 "9
10448 26
10460 32
10472 15
10"8" lit
10"96 "7
10508 32
10520 "9
10528 15
105"0 25
10552 25
105610 32
10576 16
10588 "9
10596 15
10608 25
10620 32
10632 26
106"4 32
10656 "9
10664 15
10676 25
10688 15
107(10 25
10712 32
10724 "9
10732 15
107"" 49
10752 16
1076" 25
10176 32
10188 25
10800 32
10812 15
10824 "9
10832 32
108104 16
10856 14
10868 ' 46
10880 I"
10892 46

INPUT2+1, ZEPO+29
INPUT+14, XB7-]

-+2"

FLAG OP Of RNle, RAIC

-.2".
INPUT2+1
LOLBL
INPUT2,4
(NPUT2+1, ZEPO+28
INPUf2+6, ZEPO+29
INPUT2+6
INPUT2+",00,10 11
lDLBl
INPUT2, "
INPUT2+1, ZEPO+30
ZEPO+28
INPUT2H,ZEPO+29
INPUT2+1t
LOlBL
INPUT2+3,0.t1
INPUT2+l, ZEPO+Z8
INPUT2, 3
INPUTZH,lEPO+29
INPUT2+4
lOL8L
INPUT2+3,3.tl
DORDN+12
INPUT2+1, 0310,9
INPUT2+6, ZEPO+29
INPUT2+6
INPUT2+4, 1EPO+28
INPUT2+4
INPUT2+3, O,ll
LDlBl
ZEPO+22
INPUT2+l, 0106,9
ZEPO+23,"3,10
-+72
ZEPO+25,"243,8
-+36

9

'I

26
24
47
12
24
47
12
49

03035
02895
103""
02529
02897
10380
02529
08390
4

"
03035
03040
03040
08390
03036
03036
03034
02893
10520
03035
08390
03034
03035
03040
03040
03038
08390
03034
030H
02328
03038
03038
08390
03031
03035
0303"
03038
03038
08390
03037
10676
03035
03040
03040
03038
03038
03031
08390
02322
03035
023n
109"0
02325
10928

Z9

02329
13620
OIZOO
000-5
14146
01200
OOOJO
2

00-60
02328
00000
02329
00000
00008
000N9
01200
00000
00004
02328
02329
00000
000-00004
02330
00000
02329
00000
000002328
00003
02329
00000
OOOOL
00-3It
02329
00000
02328
00000
000000000
00-46
000M3
01200
OM243
01200

1&20 SPS 11-0 FOR MONITOR II---PHASE A

PAGE

CM
IEPO+23,42,10
13520
8E
-+24
13530
TOM
INPUTZ+l, 1
13540
TFM 1 NPUT 2+", 60.1011
13550
13560
SF
ZEPO+28
13510
TF
INPUT2+6,IEPO+Z9
13580
SF
INPUT2+6
13590
81
lOl8l
13600 OOSVRS AM
AOOCOW,12
TFM
INPUT2+1, 02,10
13610
•• 36.lEPO+29
13620
80
13630
AM
AODCOW,12
TOM INPUT2+1,1
136"0
13650
8TM creST, ... 12
81
13660
tOl8l
13670 OOOISK TOM
INPUT2,3
13680
TO
INPUT2+l. IEPO+28
13690
TOM INPUT2+4, 7,11
TOM INPUT2+3, 0,11
13100
13110
TO
INPUTZ+6, ZEPO+29
SF
13720
INPUT2+6
87
13730
LOl8l
13140 OMESCl TFM CFFA,FFlOCF
13750
8TM CFF ,DEClZ
,O,A40AO,A4SCT,INSTRN
13760 FF 10CF OOA
OJ 8883-44J0132
13110
DC
1, '

10904
10916
10928
10940
10952
10964
10916
10988
10996
11008
11020
11032
1104"
11056
11068
11016
11088
ll100
ll112
1112"
11136
11148
11156
11168
11180

13780 MCCALL TFM CFFA,A3DCF
13790
8TM CFF ,MACR02
,O,A3DAO,A3SCT,INSTRN
13800 A30CF
ODA
OJ8861-22J0132
13810
DC
1, '

111'16
11208
11220

,

13820 OGM
13830
13840
13850
13860
13810
13880 MACRO
13890
13900
13910
13920
13930 •
139~0 •
13950 •
13960
13970
13980
13990
14000 •
14010 •
14020 OAS
14030

TOM
8TM
8NF
AM
TF
87
TO
TO
AM
SF
TF

8TM
TF

16
32
26
32
49
11
16
"3

11

15
17
49
15
25
15
15
25
32
49
16

11

02323
10940
03035
03038
02328
030"0
030"0
08390
02529
03035
ll056
02529
03035
01426
08390
0303'>
03035
03038
03037
03040
03040
08390
02631
02594
14

000H2
01200
00001
000000000
02329
00000

02631
02594
14

J1Z20
J0132

03034
05164
ll972
02529
03293
ll972
ll327
ll339
02529
02328
03040

00005
J1260
01319
-0001
02529

11394
11394
00000
13276

-2530
02329
00001

JI420
03293

30

-0012
000-2
023Z9
-OOIZ
00001
J1068
00001
023Z8

ooaap

000002329
00000
JllaO
J0132

11194
16

11

11234

INPUT2, 5

SCAN, •• 12
DAC3-32,BSW
ADOCOW, 1
ADORS, AOOCOW
OAC3-32

.+23,AOOCOW
·+23,AJUST
ADDCOW,,10
IEPO+28
INPUT2+6, ZEPO+29
SET ONE

TFM
A
TOM
87

1"
46
15

11236'
11248
11260
11272
11284
11296
1130"
11316
11328
I 1 litO
11352

15
H
11
26
It.
25
25
11
32
26

11364
11376
11388
11400

15
49

11408
11420

26

0516'>
02381

11432
114"4
11456
11468
11"80

26
21
15
25
49

02572
02572
03034
03040
12004

11488
11500
11511

15
16

03034
00000
ll791
000-0
1 X
2

17

05164
02387
02387
11628
07041
1

Jl524
03293
-0051
01300
QOOOO
-0050
-0100
07321
02476

11

02529
02399
000-0
00000
02329

TO INDICATE SUBROUTINE IS REQUIRED

"30,ISTA1-30

.-..

·.18,lEPO+29
1
OSA",TO OSA ROUTINE TO COUNT NUM8ER OF OPERANDS
EVALUATE LENGTH Of OAS

SCAN,.+12
lNTH, AODRS

16

21

11

95
1.20 SPS 11-0 FOR MONITOR II---PHASE A
14040
14050
1"060
14070
14080
14090 •

TOM
TO
87

14100 •

02387
02572
00002
02329

EVALUATE LENGTH OF OAt

14110 •
1~120 OAe
14130
14140

TFM
OAC

14150
14160
14170
14180
14190
14200

8TH
TF
CM
8N
TFM
DC

14210
14220
14230 OACER
14240
110250
14260
14270
14280
14290
14300
14310 ER9DAC
14320

TFM LNTH, 00050
TFM -TEMPR, 100
EPRINT, EPRINT-1
8T
80
ERCOR, ERSTSW
87
OACR
AOORS,AOORS
A
TEMPR,AOORS
TF
8NR *+20,INPUT+20
87
ER90AC
BNR .+32 t I NPUT+22
TFM EVAlER-l, 90000"

TOM

,

DC

INPUT2, 0
STCHAR+ll. 00,10

1,',.

11512
11524
11536
11548
11560
11571

SCAN,·+12
LNTH,AODRS
LNTH,51

*+80
EVALER-l. 80000"

ER 8, lENGTH TOO BIG

1,',·

CONSTANf NOT SPECIFIED

1.' ,.

14.330
B7
14340 CHVALO BlX
8NR
14350
14360 ElOOAC TFM
14370
DC

DAtER
*+12,TEMPR(1I
.+32, INP,UT+ZO( It
EVAlER-1, 17000"

14380
87
14390
BNR
14400
B7
CM
1H10
14420 STCHAR 8NE
TO
14430
14440
TFM
OAe
14450

DACER
"20, INPUT+2211 I

14460
14470 DACR
14480
14490
14500
14510 •

PAGE

TEMPR,LI'ITH
TEMPR,TEMPR
INPUT2, 2
INPUTZ+6. IEPO+29
OAC3

TF
A

HIS-COUNT OF CONSTANT LENGTH

1,',*

·"32
INPUT+22( 11 ,23,10
ElOOAC
STCHARo11.INPUT+22(11
INPUT+22( 11

1. I ,*

TR
TF
TO
TO

I NPUT+21, INPUT+23 (1 I
INPUT2+6, ZEPO+29
INPUT2+4, lNTH
INPUT 2+ 3, lNTH-I
BNR
OAC3,STCHAR+ll
ADDRESS ASSIGNED BY PROCESSOR

26

14
41
16

11572
11584
11596
11608
11620
11628
11640
11652
11664
11672
11684
11695

16
16
27
43
49
21
26
45
49
45
16

02387
02572
07322
07178
11828
03293
02572
11672
ll684
11704
070H
1

11696
ll704
11716
11728
11739

49
65
45
16

ll596

11740
11748
11760
11768
ll780
11792
11804
ll815

49
45
49

11816
11828
11840
11852
11864

31
26
25
25
45

02902
03040
03038
03031
12004

029-4
02329
02387
02386
11791

11876
11888

25
25

1189'1
ll911

02529
02459

14
41
25
16

11116
llH8
07041
1

03293
03293
02901
02903
ROOOO

025P2
029-1
J7000

ll596
029-3
11168
ll792
029-3
000K3
11128 01200
029-3
11791
029-3 -0000
2
1 X

14520 •
14530 NOSINE TO
TO
14540

•• 23,ADOCDW
.... 23.JSJRl

!.I 6

:H

1$20 SPS 11-0 FOR "ONITOR II---PHASE A
14550
14560
14510
14580
14590
14600
14610
14620
14630
14640 OAC3
14650
14660
14670

AM
TF
A
SM
80
TF
8TM
TO"
87
8TM
80
TO
87

PAGE

AOOtOW .. 10
AOORS ,AOOCOW
AODCOII, TEMPR

11900
11912

02529
03293
02529
02529
11972
03293
07426
03035
08390
05134
11876
07320
11972

000-0
02529
02512
000-2
02328
02529
Ji984
0000-

AODCOW,2.10

11936
11948
11960
11912
11984
11996
12004
12016
12028
12040

15
15
16

03034
03040
070101
I

00004
00001
POOOO

12084 17
12096 26
12108
11
12120 26
12132 44
12144 27
12156 43
12168
16
12180
17
12192 . 2~
1220" 44
12216
15
12228 26
12240 21
12252
23
12264 21
12276 49

05164
02387
05134
02572
12180
07322
07178
02572
05134
07320
11972
07320
03293
03293
02381
02529
11972

J2096
03293
J2120
03293
01319
01321
02476
-0001
J2192
07316
01319
OOOOJ
02529
02387
02512
00099

11

05164
03040
03039
02387
03034
12428
02387
12428
07041
1

J2296
02329
02328
03293
OOOOM
02329
-0099
01100
00000
07321
02416
-0099
J2440

1192~

"H,ZEPO+28
AOORS,AOOCOW
CTEST, '+12
INPUT2+I, 0,11
LOLBL
TRSCAN,.+12
NOSINE,8SW
lOA8SII,RLOCSW
OAC3-32

11
26
21
12
~3

26

17
15
~9

17
43
25
49

32

J2016
01319
01316

14680 •

1"690 •
Ilt100 •
14710 OSB
14720
1"730
14740
14750
147bO

14770
14780
14790
14800
14810
14820
14830
148"0
14850
14860
I"B70
H880
14890
14900
14910
14920
14930
14940
14950
1"960
1"970
14980
14990
15000
15010
15020
15030
15040

EVALUATE LENGTH OF OS8
INPUT2,~

roM
TOM
TF"

DC

1,' ,-

8TM
TF
8TM
TF
8NF
BT
80
TFM
8TM
TO
BNF
roM
TF
A

SCAN"+12
lNTH, AOORS
TRSCAN,'+12
TE"PR, AOORS

*.48, SSW
EPRINT. EPRINT-I
ERCOR, ERSTSW
TEMPR, 00001
TRSCAN, . . 12
lOABSII,RLOCSW
DAC3-32, 8SW
LOA8SW, I, 11
AOORS, AODCOW
ADORS, LNTH
LNTH, TEMPR
ADOCOW, 99
OAC3-32

"

A
87
•
•
•
OSON8

15050
15060
15070
15080 N4SS

12048
12060
12072
12083

INPUT2+6, 1
EVAlER-l, 70000

~VALUATE

LENGTH OF OS OR ON8

8T"
TO
TO
TF
TOM
80
CM
8NP
TFM

EVALER-l, 80000

DC

1,',·

12284
12296
12308
12320
12332
12344
12356
12368
12380
12391

8T
80
TFM
BTM

EPRlNT, EPRINT-1
ERCOR, ERSTSW
LNTH, 00099
TRSCAN,"12

12392
12404
12416
12428

27

17

07322
07178
02387
05134

12440
12452

25
44

07320
11972

01316
07319

12464
12"76
12488
12500
12512
12524
12532
12544
12552
12564
12576
12588
12600
12612
12624
12636
12648
12660

26
15
21
43
21
49
11
49

03293
07320
02529
12532
03293
11972
03293
11972
05164
12648
12648
07040
07322
07178
03035
09510
02529
07426

02529
OOOOJ
02387
02328
02387

02529
0303lt
12720
02529
11984
02631
02594
14

000-1
OOOOJ
02529
R9999

0303lt
12767
03040
05164
02387
02572
02572
02900
12944
02572
12980
07041
I

OOOOK
02328
02329
J2816
03293
-OOOJ
-0001
02902
02901
-0000
01200
ROOOO

01322
07178
12980

07321
02476

SCAN,"12
INPUT2+6, ZEPO+29
INPUT2+5, ZEPO+28
LNTH,AOORS
INPUT2, 4,11
"84, ZEPO+29
LNTH,99

*+60

2~

25
26

15
43
14

47
16

43
16

97
1~20

15090
15100
15110
15120
15130
15140
15150
15160
15170
15180
15190
15200
15210
15220
15230
15240
15250
15260
15270
15280
15290
15300
15310
15320
15330
153100
15350
15360
15370
15380
15390
15400
15410
15420

.
•
•

DNB2

OSS
OORG

PAGE

SPS 11-0 FOR MONI TOR II---PHASE 4

LOA8SW, RlOCSW
OAeJ-]2, 8SW

TO
8NF

AIIDRESS ASSIGNED BY PROCESSOR
TF
TOM
A
BO
A
81
AM
87
8TM
BNF
80
TFM
8T
80
TFM
8TM
TF
8TM

•
•
•

ADDR S, AODCOW
LOA8SW,l,l1
AOOCOW,LNTH
OSS,ZEPO+28
AOORS,LNTH
OAC3-32
AOORS,l,IO
OAC3-32
SCAN, '+12
... 84,RELSW

.+72.RLOCSW
E VALER-2, 71 710 ..
EPRINT,EPRINT-I"
ERCOR,ERSTSW
INPUT2+1,06,IO,
OUTPUT,PHASEA
AOOCOW,AOORS
CTEST, '+12

RELOCATION ERROR
IGNORE A8S0LUTE OORG
IN RELOCATABLE ASSEM8LY

11
44
43
16
21
43
16

11
26

17

000-1
J2564
02418
01316
P1110
01321
02476
000-6
-3392
03293
J2672

SET ADDRESS COUNTER TO NEW VALUE
12672
12684
12696
12108
12120
12728
127"0
12152

AOOCOW,1,10
S"
TOM
INPUT 2 .. ,11
8NF -+ZIt,AODeQN
TFM AOOCOW,99999
DAC3-20
B7
OENOC TFM CFFA,CA5DCF
BTM CFF ,OENO
,O,A5DAO,A5SCT,INSTRN
CA5DCF OOA
OJBI37-29J0132
15430
DC
I, '

12
15

44
16
49
16

11

J2752
J0796

12766

OEF INE CONSTANT AND DEFINE SPECIAL CONSTANT

15440 •
15450 *
15460 OC
15HO
1H80
15490
15500
15510 eeON
15520
15530
15540
15550
15560
15570
15580

TOM
TO
TF
BTM
TF
TFM
AM
TR
8NR
eM
BNE
TFM
oe

INPUT2, 2,11
DC-I, ZEPO+2 8
INPUT2+6, ZEPO+29

15590
15600
15610

8T
80
81

15
25
26
17
26
16

1,' ••

12768
12780
12792
12804
12B16
12828
12840
12852
12864
12876
12888
12900
12911

EPRINT, EPRINT-I
EReOR, ERSTS.
ceN2

12912
12924
12936

27
43
49

SCAN.-+12
LNTH,AOORS
TEMPR, -00001
TEMPR,I
INPUT+19, INPUT+21
CCN2-36,INPUT+20
TEMPR,O
CCN2
EVALER-I, 90000

tl:l

11
Jl
45
14
41
16

33

1620 SPS 11-0 FOR MON IT OR II---PHASE A
15630
156"0
15650 CCN2
15660
15610
15680

eM
BH
Bt
C
8NP
TFM
DC

INPUT+20, 23.10
eCON+12
eeON+24
TEMPR, LNTH

15690
15100
15710 DCRN
15720
15130
15740
15750

aT
80
TF
eM
BN
TFM
DC

EPRINT,EPRINT-l
ERCOR, ERSTSW
LNTH, TEMPR
LNTH,51

15760
15770
15180
15790
15800
15810
15820
15830

BT
80
TFM
TFM
BTM
TO
8NF
TOM
TF
AM
A
BO
TF
SF
TF
87
TFM
Bl
TR
BTM
AM
BNR
CM
BH
TF
AM

EPRINT, EPRINT-l"
ERCOR, ERSTSW
LNTH, 00050
TEMPR, 50

15620

15840
15850

15860
15870
15880
15890
15900
15910
15920
15930
15940
15950
15960
15970
15980
15990
16000
16010
16020
16030
16040
16050
16060
16010
16080
16090
16100
16110
16120

CCN3
OSA

OSAI

DSA2

EROSA

16130
16140

PAGE

-.60
EVALER-l, 17000

1.· .•

-+72
EVALER-l, 80000

1,·,.

ER 8 LENGTH TOO 81G

TRSCAN,*.12
lOA8SW,RLOCSW
CCN3, BSW
LOA8SW.1,11
ADORS, AOOCOW"
AODRS.l
AOOCOW, LNTH

MACHINE ASSIGNS ADDRESS

e+24, OC-l

ADDRS, ADDCOW
TEHPR-l
INPUT2+4, TEMPR
OAC3-32
LNTH, 00000
OSAI
INPUT+19, INPUT+21
SCAN,'+ 12,7 11
lNTH, 5.10
--36, INPUT+20
lNTH, 0050
EROSA
AOORS, AODCOW
AOORS, 5, 10
ADOCOW, lNTH
A
TOM
INPUT2, 1
OAC3-32, ZEPO+28
BNF
ADOCOW, 19.10
AM
SM
AODRS, 5
TOM
INPUT 2, O.ll
BTM CTEST, '+12
B
lOLBL
OORG '-3
TFM EVAlER-l,60000
1, I , .
OC
BT
BO

EPRINT,EPRINT-l
ERCOR, ERSTSW

02901

129""
12956
12968
12980
12992
13004
13015

14
46
41
2"
"1
16

13016
13028
13040
13052
13064
13076
13081

21
43
26
14
47
16

01322
07118
02387
02387
13136
07041
1

07321
02476
02512
-0051
01300
QOOOO

130B8
13100
13112
13124
13136
13l1t8
13160
13172
1318"
13196
13208
13220
13232
13244
13256
13268
13276
13288
13296
13308
13320
13332
13344
13356
13368
13380
13392
13404
13416
13428
13440
IH52
13464
13416
13484
13484
13495

27
43
16
16
11
25
44

01322

07321
02476
-0050
-0050
J3148
07316
07319
OOOOJ
02529

16

01041
1

00000

13496
IJ508

27
43

07322
07118

07321
02476

13520
13532

16
49

02387
13368

12840
12852
02512
13052

07041

34

000K3
01100
01300

02387
01100

J1000

1

15
26
11
21
43
26
32
26
49
16
49
31

07178
02381
02572
05134
01320
13244
07320
03293

03293
02529

21
15
44

13244
03293
02511
03038
11972
02387
13308
02900
05164
02387
l.3296
02387
13484
03293
03293
02529
03034
11912

11

02529

12
15

03293
03034
OH26
08390

11
11
45
14
46
26

11

17
49

-0001
02387
12767
02529
00000
02512
-0000
02902
J332000-5
02901
-0050
01100
02529
000-5

02381
00001
02328
000J9
-0005
0000J3416
00000

99
PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
16150
16160
16170
16180
16190
16200

TFM
B1
•
•
•
A

16210
16220
16230
16240
16250
16260
16270
16280
16290 AENOX
16300 B
16310
16320
11.330
16340 X87
16350
16360
16310
16380
16]90
16400
16410
16420
16410
16440
16450

LNTH, 00050
DSA2+24
OPERA TI ON COOE TABLE

DC
5,41210 ••
M1210
OC
5,62220"
02220
DC
5,54230"
N4230
5,.4,.290 ..
DC
"4290
5,43240, ,
DC
"3240
5,42490, ,
DC
142490
5,52340, ,
DC
N2340

DC

5,48480, t

148480
DC
5,60000"
00000
5,60000,.
OC
00000
7,1t154110, ,
DC
14154110
DC
7,6254120"
0254120
7,4261610, t f
DC
14261610

DC

1,5454130 ..

N454130
1,4271490, ,
DC
M27H90
DC
1,4354140"
14354140
DC
7,6344250"
0344250
7,6346260, ,
OC
0346260
1,6359310, ,
OC
0359310
DC
7,4263270"
14263210
1,4242420, ,
OC
14242420
7,6246320, ,
DC
0246320
7,4346330, ,
OC
14346330
OC
7,5446110"
N44b1l0
DC
7,5441700",
N441700
OC
7,4244430"
M244430

ADO

A

13543
13548

SUBTRACT
MULTIPLY

14

13553

01 VIDE

0

13558

COMPARE

C

13563
13568

BRANCH
CONTROL
HALT

13573
H

13578

DUMMY OP COOE

1358J

DUMMY DP COOE

13588

AOO IMMEDIATE

AM

13595

SUBTRACT IMMEDIATE

SM

13602

BRANCH AND MODIFY INDEX

8X

13609

MULTIPLY IMMEDIATE

14M

13616

7-CHAR. BRANCH

B7

13623

COMPARE IMMEDlATE

eM

13630

TRANSMIT DIGIT

TO

1.3631

TRANSMIT FIELD

TF

13644

TRANSMIT RECORD

TR

13651

BRANCH ANO TRANSMIT

BT

13658

BRANCH BACK

BB

13665

SF

13612

SET FLAG
CLEAR flAG

CF

13679

MOVE FLAG

MF

13686

MOVE ADDRESS

MA

13693

RRANCH 0 I G [ I

BO

13100

1 U (I

1

7

-0050

35

PAGE

1620 SPS /I-D FOR "ONITOR II---PHASE A
16460

DC

1,4262600, ••

BRANCH AND SELECT

BS

13101

1

BRANCH INDICATOR

BI

13114

7

BRANCH LOW

BL

13721

1

M262600
16410

DC

1,4249460"

M249460
16480

DC

16490

M25J1H
DC
7,4255137 ..
M25,131

BRANCH NEGATIVE

8N

13128

16500

DC

BRANCH HIGH

8H

13735

16510

M248116
DC
7,4257116 ..
M257116

BRANCH POSITIVE

8P

13142

DC

BRANCH EQUAL

BE

13749

16520

1.4253137 ..

7,4248116, t

7,4245126"

36

MH5126
16530

DC

",4269126. f

BRANCH ZERO

BZ

13156

BRANCH OVERFLOW

BV

13163

BRANCH ANY DATA CHECK

BA

13710

BRANCH OUT, LOAD IR3

BO

13111

DEFINE SYMBOL

OS

13184

DEFINE CONSTANT

DC

13191

FLOATING ADO SU8.

FA

13198

FLOATING SUBTRACT SUB.

FS

13805

M269126
16540

DC

7,4265146"

M265146
16550
16560
16510 XOS
16580

DC

7,4241196,.

"241196
DC
7,-4256704"
"25670M
DC
7,4462015,.
M462015

DC

7,-4443005.,

"443I!ON
16590

DC

7,-4641031.,

"6411!3J
16600

DC

7,-4662021 ..

M66202J
16610

DC

1,-46540Itl ..

FLOATING MULTIPLY SUB.

FM

13812

FLOATING OIVIDE SUB.

FD

13819

LOAD DIVIDEND

LD

13826

DIVIDE IMMEDIATE

OM

13833

SELECT ADORESS

SA

13840

MASK INTERRUPTS

MK

138it7
13854

M65404J
16620

DC

1,-4644051"

M61t1t05J
16630

DC

1,5341t280"

N3't4280
16640

DC

., ,4454190 • .,

M454190
16650

DC

7,-6241412.,

024U1K
16660

DC

1,-5452614,.

16610

N45261M
DC
7,6252412 ..
0252412

SEEK

SK

16680

DC

READ NUMERICALLY

RN

13861

READ ALPHAMERICALLY

RA

13868

DUMP NUMERICALLY

ON

13875

WRITE NUMERICALLY

WN

13882

WRITE ALPHAMERICAllY

WA

13889

DEFINE DISK

DO

13896

1,5955360 ••

N955360
16690
16100
16710
16120

DC

7,5941370"

N9U170
DC
7,4455350 ..
M45H50
DC
7,6655380.,
0655380

DC

1,66ltI390"

0641390
16730

DC

7,-4444263.,

M44426L

11) 1
1620 SPS /1-0 FOR MONITOR II---PHASE A
16140
16150

16760
16110 BENDX
16180 C
16190
16800

16810
16820
16830
16B40
16850
16860
16870
16880
16890
16900
16910

16920

DC
7,6060000,.
0060000
DC
7,6060000 ..
0060000
DC
1,6060000 ..
0060000
DC
7,6060000 ..
0060000
DC
9,634654160 ..
034654160
DC
9,634454150 ..
034454150
DC
9,425546440,.
M25546440
OC
9,4255591t50.,
M25559450
DC
9.425549470 ..
M25549470
DC
9,425548111 ..
M25548117
DC
9,425557111 ..
M25551111
DC
9,425545127"
M25545127
DC
9,425569121 ••
M25569121
DC
9,1t25553136 ••
M25553136
DC
9,425555136 ..
M25555136
DC
9,42H61630, ..
M243(,7630
DC
9,426754620,.,
M26754620
DC
9,425367650",
M25361650

DC

9.426261610, ••

PAGE

DUMMY OP CODE

13903

DUMMY OP CODE

13910

DUMMY OP CDOE

13911

DUMMY OP CODE

13924

TRANSMIT FIELD IMMEDIATE

TFM

13933

TRANSMIT DIGIT IMMEDIATE

TOM

13942

BRANCH NO FLAC

BNF

13951

BRANCH NO RECORO MARK

8NR

13960

BRANCH NO INDICATOR

8"11

139M

BRANCH NOT HIGH

BNH

13918

9

9

BRANCH NOT POSITIVE

8NP

13987

BRANCH NOT EQUAL

BNE

13996

BRANCH NOT ZERO

BNl

14005

8RANCH NOT LOW

BNL

14014

9

BRANCH NOT NEGATIVE

BNN

14021

9

BRANCH CONDo AND MODIFY XR

BCX

14032

BRANCH AND MODIFY INDEX

BXM

14041

BRANCH AND LOAD XR

BLX

14050

BRANCH AND STORE XR

BSK

14059

BRANCH EXPONENT CHECK

8XV

14068

BRANCH NO OVERFLOW

BNV

14011

9

BRANCH NOT ANY OAT A CHECK

8NA

14086

9

BRANCH LAST CARD

BLC

14095

IMM.

9

M26267610

16930
16940

16950
16960

16910
16980

DC

9.4261651S6.,

M26165156
DC
9.425565141,.
M25565141
DC
9,425541197.,
M25541197

DC

9.425343096.,

M253U096
DC
9,424311016"
M24311016
DC
9.424312026,.
M24312026

16990

DC

17000

DC

9,424313036.,

BRANCH CONSOLE SWITCH

ON

BCl

14104

BRANCH CONSOLE SWITCH

ON

BC2

14113

BRANCH CONSOLE SWITCH

ON

80

14122

BRANCH CONSOLE SWITCH 4 ON

8C4

14131

BRANCH ANO TRANSMlr IMM.

8TM

14140

M24373036

9,424314046.,

M24314046

17010

DC

9,426354170"

M26354170

1 u2

9

31

1620 SPS 11-0 FOR
17020 KBB2
17030
17040
17050
17060
17070
17080
17090 XDSS
17100
17110 XDAS

MO~JTOR

DC
9,424272420 ..
M24272420
DC
9,-645452604"
04545260M
OC
9,555657410"
N55651410
OC
9,-1t44965011"
M4496501J
DC
9,-464567111"
M6456111J
DC
9,-465355131"
M6535513J
DC
9,-635941003"
03594100L
DC
9,1t46262115"
M46262115
DC
9,-4"62"3105"
M4624310N
DC
9,-444162145"

II---PHASE A

2-CHAR. BRANCH BACK

BB2

14149

9

UNMASK INTERRUPTS

UMK

14158

9

NO OPERATION

NOP

14167

DIVIDE SUB.

DIV

14116

9

FLOATING NATURAl EXP. SU8.

FEX

14185

9

FLOATING NATURAL LOG. SUB.

FLN

14194

TRANSFER TO LOAD

TRA

14203

DEFINE SPECIAL SYMBOL

DSS

14212

DEFINE SPECIAL CONSTANT

OSC

14211

DEFINE ALPHA SYMBOL

DAS

14230

9

DEF INE AlPHA CONSTANT

DAC

14239

9

DEF INE SYM801lC ADDRESS

DSA

14246

DEFINE SYMBOLIC BLOCK

DSB

14257

DEFINE NUMERIC BLANK

DNB

14266

DEFINE GROUP HARK

DGM

14275

8RANCH NO GROUP MARK

BNG

142B4

TRANSFER TO PROCESS

TCD

14293

BRANCH OUTPUT RECORD MARK

80R

14302

BRA~CH

BRE

14311

BRANCH MODE SHIFT

BMC

14320

BRANCH READ INPUT READY

BIR

1432'1

BRANCH SIOC CHANNEL BUSY

BCB

14338

PAGE

3B

PAGE

39

9

M4416214~

17120
11110

DC
9,-444143125"
M4414312N
DC
9,-4"6241035"

17140

DC

17150

DC
9,445542005"
M455.2005
DC
9,-444754075"

M4624103~

9,-446242065"

M4624206~

17160

M4475"07~

17170

17180
17190
17200
17210
17220
17230
17240
11250

11260
17270
17280
17290

DC
9,425541550 ••
M25547550
DC
9,634344018"
0343",,018
DC
9,425659401"
M25659401
DC
9,425945411"
M259"5411
DC
9,425443Hl"
M25443421
DC
9,424959441 ..
M24959441
DC
9,424342461"
M24H2461
DC
9,624156840"
024156840
DC
9,596355662"
N96355662

DC
9.594455622"
N94455622
DC
9,666355862"
066355862
DC
9,664455822"
064455822
DC
9,436355672"
M36355612

END OF RECORD

SELECT ADDRESS AND OPERATE

SAO

14347

READ 01 SK TRACK NUM. WID GP. MK.

RTN

14356

READ DISK WITHOUT GROUP MARK

RON

14365

WRITE DISK TRACK NUM. WID GP. MK.

WTN

14374

WRITE 01 SK WITHOUT "ROUP MARK
CHECK DISK TRACK

~UM.

WID GP. MK.

9

WD~

14383

9

CTN

14392

9

Iii

;J

1620 SPS 11-0 FOR MONITOR II---PHASE A
17300
17310

17320
17330
17340
17350
17360

DC
9,434455632"
M34455632
DC
9,634653060"
034653060
DC
9,466253050"
M66253050
DC
9,466259080"
M66259080
DC
9,635562120"
035562720
DC
9,635546730"
0355 .. 6130
DC
9,565946920",

CHECK 01 SK WITHOUT GROUP MARK

CON

TRA~SMIT

14401

TFL

14410

FLOATING SHIFT LEFT

FSL

14419

FLOATI~G

FSR

14428

TNS

14437

FLOATING

SHIFT RIGHT

TRANSMIT NUMERIC STRIP
TRA~SMIT

TNF

14446

OR TO FIELD

ORF

14455

OCTAL TO DECIMAL CONY.

OTO

14464

DECIMAL TO OCTAL CONY.

DTO

14473

8RANCH ON BIT

BBT

14482

BRA~CH

BMK

14491

NUMERIC Fill

9

9

~65946920

11370
11380
11390 BBTX
17400 8MKX
17410

DC
9,566344960" ,
N66344960
DC
9,446356910",
M46356910
DC
9,424263900" ,
M24263900
DC
9,425452910",
M25452910
DC
9, -445663285",

O~

MASK

9

9

DEFINE OCTAL TABLE

DOT

14500

9

DEFINE DISK ADDRESS

DDA

1"509

9

LOAD DIVIDEND IMMEDIATE

LDM

1451B

9

10CS READ

GET

14527

9

10CS WRITE

PUT

14536

9

DEFINE TYPEWRITER NUMERIC

DTN

14545

9

NUMERIC

DeN

14554

9

DEFINE TYPEWRITER ALPHA

DTA

14563

9

ALPHA

DCA

14572

9

DEFINE DISK WITH WLRC

DOW

14581

9

BRA~CH

BTA

14590

M4566328~

17420
17430
17440
11450
17460
11470
17480
11490
11500
17510
17520
11530
11540
17550
11560 CENDX
115700

DC
9,-444441073"
M4444101L
DC
9,53445U80"
N34454180
DC
9,-414563013"
M7456301L
DC
9,-576463023"
N1646302L
DC
9,-446355053"
M4635505L
DC
9,-444355253"
M4435525L
DC
9,-446341353"
M4634135L
DC
9,-444341553"
M"434155L
DC
9,-444466063,.
M4446606L
DC
9,426341200"
M26341200
DC
9,606060000"
006060000
DC
9,606060000"
006060000
DC
9,606060000"
006060000
DC
9,606060000 ..
006060000
DC
9,606060000"
006060000
DC
11,42554371017"
M2 5~43 71 01 7

DEFINE CARD

DEF INE CARD

A~D

TRANSMIT ADDRESS

DUMMY OP CODE

14599

DUMMY OP CODE

14608

DUMMY OP CODE

14617

OUMMY UP CODE

14626
14635

DUMMY OP CODE
BRANCH CONSOLE SWITCH I OFF

BNCI

14646

11

1620 SPS JI-D FOR MONITDR II---PHASE A
17580
17590
17600
17610
17620
17630
17640
17650
17660
17670
17680
17690
17700
11710
17720
11730
17740
17750
17760
17710
17780
17790
17800
17810
17820
17830
17840
17850

DC
11,42554372027"
M2554372027
DC
11,42554373037 ..
"2554373031
DC
11,425510374047 ..
M2 554374047
DC
11,102555343097 ..
M2555343097
DC
11,42556765157 ..
M2556165151
DC
11,63595554300 .. ,
035955510300
DC
11,42436754640 .. ,
M2436754640
DC
11,1025367510660 .. ,
M2536154660
DC
11,42424162316, ..
M2424162316
DC
11,102424262326, ..
M2424262326
DC
11,42554262306 .. ,
M2554262306

BRANCH CONSOLE SNITCH 2 OFF

IINC2

8RANtH CONSOLE SWITCH 3 OFF
8RANCH CONSOLE SNITCH 4 OfF
BRANCH NOT LAST CARD

DC

ll,1t2Itl!i562317".

M2415562317
DC
110 4242 5562321, ..
M2425562327
DC
l1,4H54262307, ..
M2454262307
DC
11,42624241109 ...
M26242HI09
DC
1l.42624H2209 ...
M2624242209
DC
11,42624941909 ...
M262U41909
DC
11.42625549809 ...
M2625549809
DC
11.42625561009 ...
M2 62 '567009
DC
11.59556368613 ..
N9556368613
DC
11.59555163633.,
N9555763633
DC
11,66556368813 ..
06556368811
DC
11,66555163823"
0655516382]
DC
11.44556]685130,
M4556368513
DC
I1,H555763523 ..
"4555163523
DC
11,59416368713"
N9416368713
DC
11,59415163733 ..
N9415163733
DC
11.66416368913 ..
06416368913

14651

11

BNC3

14668

11

BNC4

14679

11

BNLC

14690

11

BRANCH NOT EXPONENT CHECK

8NXV

14101

11

TRANSMIT RECORD NO RECORD MARK

TRNM

14712

11

8RANCH CONDo MODIFY XR IMNED.

8CXM

14123

11

BRANCH AND LOAD XR IMMEDIATE

8LKM

14734

11

BRANCH BAND A SELECTED

BBAS

14745

11

8RANCH 8AND 8 SELECTED

888S

14156

11

BRANCH NEITHER BAND SELECTED

BHBS

14767

11

8RANCH BAND A NOT SELECTED

BANS

14778

11

8RANCH 8AND 8 NOT SELECTED

BBNS

14189

11

BRANCH EITHER BAND SELECTED

8E8S

14800

11

BRANCH AND SELECT 8AND A

8SBA

1,,811

11

8RANtH AND SELECT 8AND

B588

14822

11

BRANCH AND SELECT INDIRECT ADDR

BSIA

148]3

11

8RANCH AND SELECT NO IND ADDR

8SNI

14844

11

8RANCH AND SELECT NO INDEX

BSNX

14855

11

READ NUMERIC TYPEWRITER

RNTY

14866

11

READ NUMERIC PAPER TAPE

RNPT

14871

11

WRITE NUMERIC TYPEWRITER

WNTY

1488R

11

WRITE NUMERIC PAPER TAPE

WNPT

14899

11

DUMP NUMERIC TYPEWRITER

DNTY

14910

11
11

DUMP NUMERIC PAPER TAPE

DNPT

14921

READ ALPHA TYPEWRITER

RATY

14932

11

READ ALPHA PAPER TAPE

RAPT

14943

11

WRITE AlPHA TYPEWRITER

WATY

14954

11

PAGE

40

PAGE

41

tu5
1620 SPS II-D FOR MONITOR II---PHASE A
17860
17870
17880
17890
17900
17910
17920
17930
17940
17950
17960
17970
17980
17990
18000
18010
18020
18030
18040
18050
18060
18070
18080
18090
18100
18110
18120
18130

DC

11,66415163923 ..
06415163923
DC
l1,66414H4943 ..
06414344943
DC
lI,594143H153 ..
N9411t3H153
DC
11, H554344543"
M4554344543
DC
11,66554344843 ..
06554344843
DC
11, 59554H4653 ..
N9554344653
DC
11,63426368184 ..
03426368184
DC
11,59436368124 ..
N9436368124
DC.
11.496763681 .... ,.."
M9676368144
DC
11,6251636B114"
02516368114
DC
11,"2526368134 .. ,
M2526368134
DC
11, 5963H55642 ..
N96310155642
DC
11,59444155602 ..
N9444155602
DC
11,66634155842 ..
06634755842
DC
11,66444155802"
D6444755802
DC
11,43631t755652"
M3634755652
DC
11,43444755612 ..
M344/t155612
DC
11,-425653441110 ..
M256534411M
DC
11, -46625859061 ..
M662585906J
DC
11,-46+35662071 ..
M643566201 J
DC
11,-46624955081 ..
M662495508J
DC
11,-46416355091.,
M641635509J
DC
11,-46456763101 ..
M64561631DJ
DC
11,-46535641121 ..
M653564712J
DC
11,-46625962141,.
M662596214J
DC
11,-46625362151 ..
M662536215J
DC
11,-63465362161.,
0346536216J
DC
11,46414444010 ..
M641H44010

WRITE AlPHA PAPER TAPE

WAPT

14965

11

WRITE ALPHA CARD

WACO

14916

11

REAO AlPHA CARD

RAto

14987

11

DUMP NUMERIC CARD

oNCD

14998

11

WRITE NUMERIC CARD

WNto

15009

11

READ NUMERIC CARD

RNCD

15D2D

11

TABULATE TYPEWRITER

T8TY

15031

11

RETURN CARRAIGE TYPEWRITER

RCTY

15D"2

11

I NDEX TYPEWRITER

IXTY

15053

11

SPACE TYPEWRITER

SPTY

150H

11

BACKSPACE TYPEWRITER

BKTY

15075

11

READ OISK TRACK NUM. W/GP. MK.

RTGN

15086

11

READ DISK WITH GROUP MARK

RDGN

15097

11

WRITE 01 SK TRACK HUH. W/GP. MK.

WTGN

15108

11

WRITE DISK WITH GROUP MARK

WDGN

15119

11

CHECK DISK TRACK NUM. W/GP. MK.

CTGN

15130

11

CHECK DISK WITH GROUP MARK

CDGN

15141

11

8RANCH OUT, LOAD IRI

BOLD

15152

11

FLOATiNG SQUARE ROOT SU8.

FSQR

15163

11

FLOATING COSINE SUB.

FCDS

15174

11

FLOATING SINE SUB.

FSIN

15185

11

FLOATING ARCTANGENT SU8.

FATN

15196

11

8ASE 10 SU8.

FEXT

15201

11

FLOATING LOG. BASE 10 SU8.

FLOG

15218

11

FLOATING SHIFT RIGHT SU8.

FSRS

15229

11

FLOATING SHIFT LEFT SU8.

FSLS

15240

11

TRANSMIT FLOATING SU8.

TFlS

15251

11

FLOATING ADD

FADD

15262

11

FLOATING

EXP~

tuG

1620 SPS 11-0 FOR MONITOR II---PHASE A
18140
18150
18160
18170
18180
18190
18200
18210
18220 XHEAD

DC
11.46626442020 ••
M6626442020
DC
11.46')46453030 ••
M6546453030
DC
11.46444965090 ..
M644(o965090
DC
11.42634653070 ••
M2634653070
DC
11.62535955860 ••
02535955860
DC
11.-42634662171 ..
M263466217J
DC
11.-44624143025 ..
M462414302N
DC
11.-44565947015 ..
M456594701N
DC
11.-48454144385 ..

FLOATING SUBTRACT

FSUB

FLOATING MUltiPLY
FLOATING DIVIDE
BRANCH AND TRANSMIT FLOATING

15273

11

F"UL

15284

11

FDIV

15295

11

BTFl

15306

11
11

SELECT READ NUMERICALLY

SlRN

15317

SR. AND TRANS. flOAT. SUB.

BTFS

15328

11

DEFINE SPECIAL ALPHA CONSTANT

DSAC

15339

II

DEFINE .oRIGIN

DDRG

15350

II

HEAD

HEAD

15361

II

11

PAGE

42

PAGE

43

M84~414438N

18230

DC
11.-62416545007 ••
D241654500P

SAVE PRODUCT AREA

SAVE

15372

18240

DC

RESTORE PRODUCT AREA

RSTR

15383

11

8RANCH NO OUTPUT RECORD "ARK

SNOR

15394

11

BRANCH NO END OF RECORD

BNRE

15405

11

8RANCH NO MODE SHIFT

BNMC

15416

11

BRANCH NO READ INPUT READY

8N IR

15427

11

BRAIICH S10C CHANNEL NOT BUSY

BCNB

15438

11

18250
18260
18270
18280

18290
18300
18310
18320
18330
18340
18350
18360
18370
18380
18390
18400
18410

11.-59626359017"

N962635901P
DC
11.42555659401 ..
M2555659401
DC
11.42555945411 ..
M2 5~5945411
DC
11.42555443421 ..
M2555443421
DC
11.42554959"41 ..
M2554959441
DC
ll,1t2435542461"
M2435542461
DC
11.-62534144662 ..
D253414466K
DC
11.-59554943652 ••
N955494365K
DC
11.-62414356422 ..
0241435642K
DC
11.-62415662432 ..
0241 566243K
DC
11.-62536341612 ..
0253634161K
DC
11.-62534159622 ..
D253415962K
DC
11.-62536343642 ..
0253634364K
DC
11.-62534342672 ..
02531t34267K
DC
11.-62535445682 ..
0253544568K
DC
11. -62534943652 ••
0253494365K
DC
11.-59414943752 ..
N941494375K
DC
11.-66555643852 ..

SELECT ADC AND INCREMENT

SLAD

15449

11

READ NUMERIC INPUT CHANNEL

RNIC

15460

11

SELECT ADDRESS AND CONTACT OPER.

SACO

15411

11

SEL. ADDRS.AND PROVIDE OUTPUT SIG. SAOS

15482

11

SELECT TAS

SLTA

15493

11

SELECT ADC REGISTER

SLAR

15504

11

SELECT REAL-TIME CLOCK

SLTC

15515

11

SELECT CONTACT BLOCK

SLCB

15~26

11

SELECT MANUAL ENrRY SWITCHES

SLME

1~537

11

SELECT INPUT CHANNEL

,SLlC

1~548

11

REAO ALPHA INPUT CHANNEL

RAIC

15559'

11

WR ITE NUMER IC OUTPUT CHANNEL

WNOC

15570

11

065~564385K

10"
1620 SPS 11-0 FOR MONITOR Ii---PHASE A
IB420
18430
18440
18450
18460
18470
18480
18490
18500
18510
18520
18530
18HO
18550
18560
18570
18580
IB590
18600
18610
18620
18630
18640
18650
18660 DENDX
18670 FILE
IB680
18690
18700 FDCF

DC
11.-66415643952..
0641564395K
DC
11.-59425763736...
N9425763130
DC
11,-66425163926 •• ,
06425763920
DC
11.43575346940...
113575346940
DC
11.41554446930...
M1554446930
DC
11.45565946950...
145565946950
DC
11.-H4153530n..
11341535303L
DC
11.-62454552043..
02lt5455204L
DC
11.-44576341453..
11457634145l
DC
11.-44576355153..
11457635515L
DC
11.-44655343185..
M4655H318N
DC
11.-44544562085..
M45445620BN
DC
11.44455544008..
114455544008
DC
11.42634154100..
112634154100
DC
11.60606060606..
DO 60 6060606
DC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11,60606060606..
00606060606
OC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11.60606060606..
00606060606
DC
11.60606060606. •
00606060606
34
FOCF. 00701
38
FoCF. 00702
TRA

OOA

WRITE ALPHA OUTPUT CHANNEL

WAOC

READ BINARY PAPER TAPE

Rapr

15592

11

WRI TE 81 NARY PAPER TAPE

WBPT

15603

11

COMPLEMENT OCTAL FIELD

CPLF

15614

II

AND TO FIELD

AN OF

15625

11

EXCLUSIVE OR TO FIELD

EORF

15636

II

CALL 10CS OR EXEC PKG. ROUTINE

CALL

15647

11

10CS SEEK

SEEK

15658

11

DEFINE PAPER TAPE ALPHA

OPTA

15669

11

DEFINE PAPER TAPE NUMERIC

DPTN

15680

11

DEFINE VARIABLE LENGTH CONSTANT

DVLC

15691

11

DEFINE MESSAGE

DMES

15702

II

OEFI NE END

DEND

15713

11

BTAM

15724

11

15735

11

DUMMY OP CODE

15746

11

DUMMY OP CODE

15757

11

DUMMY DP CODE

15768

11

DUMMY OP CODE

15770

II

DUMMY OP CODE

15790

II

DUMMY OP CODE

15801

11

OUMMY OP CODE

15812

11

DUMMY DP CODE

15B23

11

DUMMY OP CODE

15B34

11

DUMMY OP CODE

15845

DISK

BRANCH AND TRANSMIT AODR.
DUMMY OP CODE

.O,A20AO,A2SCT,INSTRN

IMMED.

15581

15846
15858
15870
15882
15894

OJ 8800-58J0132

II) 1\

11

11
34
38
36
49

15894
15894
00000
00000
14

00701
00702
00500
00000

PAGE

1620 SPS 11-0 FOR MONITOR II---'HASE A
18710
18720
18730
18740
18750
18760
18710
18180
18190
18800
18810
18820
18830
18840
18850
18860
18870
1888D
18890
18900
18910
18920
18930
18940
18950
18960
18970
18980
18990
19000
19010
19020
190)0
19D40
19050
19060
19070
19080
19090
19100
19110
19120
19130
19140
19150
19160
19110
19180
19190
19200
19210
19220
19230
19240
19250

reD
ODRG
MACRD2 TFM
TD
A
GODD83 8
BTBL) B
OORG
8
OORG
8
ODRG
8
DORG
B

FILE

15846

INSTRN
GOOOB3+6,8TBLl
GOOOB3HI,ZEPO+29
GDOOB3+5,GDDD83+11

10132
10132
10144
10156
10168
101BO
10190
10190
10200
10200
10210
10210
lD220
10220
10230
10230
10240
ID24D
10250
10250
ID25B

·-· .. 10

0
TRA",
·-1
+1
I OGEr " ,
.-1
+2
PUT.,.
.-1
PCALL, •• +3
.-1

SEEK, ••

+4

ODRG .-1
B

DCARD", +5

DORG .-1
8
DOWOD", +6
ODRG .-1
+1
B
DDA, ••
DORG .-3
TRANSFER INSTRUCTlDN RDUTlJ20 SPS II-D FOR MDNITOR II---PHASE A

TFM CFFA,NCOCF2
19260
BTM CFF,LOL8l
19270
19280 J0
19570
19580
19590
19600
19610
19620
19630
19640
191>50
1961>0
19670
19680
19690
19700
19710
19120
19730
19740
19150
19760
19170
19780
19790

DCARO

TO
TDM
A
TFM
BTM
TO
TD
TF
BTM
TF
8NF
TOM
AM
TF
AM
81
DDIIDO TOM
TO
TFM
BTM
TD
TO
TF
8TM
BTH
TF
BMF
TOM
AM
TF
AM
BNF
SM
B7
PCALl TR
SJ
11
26
44

03040
03039
03040
03035
05164
10693
07320
02572
05134
03293
10622
01320
02529
03293
02529
10622
03039
03040
03035
0511>4
10693
0132Q
02572
05134
05134
03293
10622
01320
02529
03293
02529
11066
02529
10622
02421
11106
11234
02901
11234
02901
11214
02439
02430
02422
02422
11406
02900
11081>
02422
11290

02328
000003040
000-5
J0134
01319
01316
03293
J078k
02572
10693
OOOOJ
000-1
02529
000-7

10612
10614
10686
10698
10110
10722
10134
10746
1015B
10170
10782
10194
10806
10818
10830
10842
10854
10862
10814
10881>
10898
10910
10922
10934
10946
10958
10910
10982
10994
11006
11018
11030
11042
11054
1101>6
11014
11086
11098
11106
11118
11130
11142
11154
11166
11118
11190
11202
11214
11226
11234
11246

tl U

15

11
26
11
49
15
25
16
11
25
25
26

11
17
26
44
15

11
26
11
104

12
49
31
45
49
14
46

14
46
26
33
31

14
46
31
49

14
46

000002328
000-5
J0910
07319
01316
03293
J095Q
J09102572
10693
OOOOJ
000-1
02529
000J2
07319
000-5
02400
02901
000K3
01200
000-0
01200
02901
00000
02424
000-7
01200
02902
000-6
01200

45

PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE A
19800
19810
19820
19830
19840
19850 pelPI
19860
19870
19880 pee
19890
19900
19910
19920
19930 ER22
19940

TOM
TR
87
SF
TFM
AM
eM
BNl
e
BNE
AM
SF
B7
TFM
DC

COll,O
eOll-17,eOll-15
peAlLl
eOll-13
pee+ll,elT8l+10-18
pee+11,18,10
pee+ II, el TBl +10+3018
ER22

19950
19960
19970
19980
19990
20000 Cl TBl

8T
80
TFM
TFM
BTM
OAe
LINK
OSA

EPRINT,EPRINT-l
EReOR, ERSTSW
INPUT2+4,06000
eFFA,NeDef2
eFF,SNOTCO

20010
20020

COll-2,·-pelPI
PCC+l1.5,10
pee+11

PCC+l1,,6
EVALER-I,27200

1.' ••

6.LJNK

20040

TABLE/VECTOR Of eAll STATEMENT

SElECT OPE RANDS

OAe 6,EXIT
EXIT
OSA eAllEX

20050

20060
OS
20070 MAeSHF TR
20080
8NR
87
20090
20100
eM
20110
BE
20120
e
20130
8E
20140
882
20150 CLUNK OS
20160 CllOAO TO
20170
TD
20180
AM
8TH
20185
8TM
20190
20200
TF
20210
AM
20220
8NF
SM
20230
20240
TFM

11418
11430
11442
11454
11466
11479

15
31
49
32
16

11
14
46
24
47
II
32
49
16

27
43
16
16
17

02439
02422
11234
02426
11361
11361
11361
11406
02437
11314
11361
11361
1136J
07041
I

5
I NPUT+ 19,INPUT+21
-.20.INPUT+20
MAeSHF-l .. 6
INPUT+20,23,lO
MACSHf-l,,6
elERER+ 1,INPUT+20
MAeSHF

,-+1
o+23,Aooeow
o+23,AJUST
AooeOw .. l0
TRSCAN ••• 12.7 11
TRSCAN. "·12,1 11
AODRs,Aooeow
AODeOW,31,10

.+24,8SW
ADDeOW,5,10
INPUT2+1,05,10

00000
J1471
000J8
Jl543
01300
00000
01200
000-5
00000

K7200

X

J1618
6

11494
11497
11512

5 X

11512
11515

J161"
6 X
5 x

11530
11530
11535
11536
11548
11560
11568
11580
11592
11604
11616
11618
11618
11630
11642
11654
11666
11678
11690
11702
11714
11726

46

00000
02424

01322 01321
07178 02476
03038 -6000
02631
J0658
02594 -8414
6 X
2

11494

CLLlNK

DAe 6,lOAD'
lOAD
OSA ellOAO

20030

11258
112T0
11282
11290
11302
11314
11326
113J8
11350
11362
11374
11386
11398
11406
11417

31
45
49
14
46
24
46

J1746
5
02900
11568
1153N
02901
1153N
02694

02902
02901

1153b

000K3
01200
02901
01200

0
11641
11653
02529
05134
05134
03293
02529
11726
02529
03035

02529
02399
000-0
Jl660
Jl67Q
02529
OOOL 1
07319
000-5
000-5

~2

25
25

11
17
17
26

11
44
12
16

III
1620 SPS 11-0 FOR MONITOR 1I---PliASE A
20250
20260
20270
20280
20290
20300
20310
20320
20330
20340
20350
20360
20370
20380
20390
20400
20410
20420
20430
20440
20450
20460
20470
20480
20490
20500
20510
20520
20530

87
eAllEX TD
TO
AM
TF
TFM
AM
87
DDA
8TM
SF
BD
TO
eF
TF
8TM
8TM
8TH
8TM
TFM
TF
8NF
TO
TD
AM
TF
AM
DOAX
TFM
87
e62S
DC
02
20540 e66W
DC
06
20550 C41A
DC
Ml
20560 FM
34
20570
38
20580
TRA
20590 FMDCF
20600
20610
20620
20630
20640
20650
20660
20670
20680
20690
20700
20710
20720
20730
20740

•
•
•

ADOCOW, 00,10
AODRS, ADoeow
AODeow, 13010
eFFA,NcoeF2
MEXIT
2,62

11738
llH6
11758
11770
11782
11794
11806
11818
11826
11838
11850
11862
118H
11886
11898
11910
11922
11934
11946
11958
11970
11982
11994
12006
12018
12030
12042
12054
12062

2,66

12064

AOORS ,ADDeaN

[NPUT2+1,04,lO
Aooeow,6,lO
MEXIT

SCAN, ... 12
ODA
.+36,BSW
lDA8Sw,RLoesw
DOA
DDA+23,AODRS
fRSCAN, -+12 t 7 11

TRSCAN,* .. 12.7 11
TRSCAN.·+12,7 11
TRseAN,"12,7 11
INPUT2+l,060,9 11
ADORS,DOA+23
OOAX,DOA
."23, AODtON

*+23. AJUST

2,41

12066

FMoeF,00701
FMOCF ,00702

12068
12080
12092
12104
12116

ODA ,O,A3DAO,A3SCT,INSTRN
DJ8861-22J0132
Teo FM

49
25
25
II
26
16
II
49
17
32
43
25
33
26
17

11
17

17
16
26
44
25
25
11
26

11
16
49

10622
11769
11781
02529
03293
03035
02529
10622
05164
11826
11886
07320
11826
11849
05134
05134
05134
05134
03035
03293
12042
12005
12017
02529
03293
02529
02631
10622
2

02529
02399
000-0
02529
000-4
000-6
JI838
00000
07319
07316
00000
03293
J191J192K
Jl93M
Jl940
00-611849
11826
02529
02399
000-0
02529
000J3
J0658

34
38
36
49

12116
12116
00000
00000
14

00701
00702
00500
00000

25
49
49

00333
l-J52
10530

02328

49

11876

00000

49

12312

00000

49

12676

00000

12068

DEFINE MESSAGE

OORG
TD
B7
DEC TAB 8
OORG
8
OORG
8
OORG
8
DORG
DEeL2

PAGE

"EXIT
*+23,AOOCOW
*+23, AJUST
Aooeow, 00010

INSTRN
XRA6-1, ZEPO+28
OECTA8(61
DMES. t,
+0
0-1
OVle t t ,
+!
0-1
+2
DOT",
'-1

10132
10132
10144
10152
10162
10162
10172
10172
10182
10182
10190

HEADER",+]

'-3

11 2

00000

47

PAGe

1620 SPS 11-0 FOR "ONITOR II---PHASE A
20750 • ANALYZE CONTROL CHARACTER, SUBROUTINE ANAL
INPUT+H,4tlO, 1ST CHECK IF RIGHT PAREN IS PRESENT
CM
20760 A~AL
BNE ANALI+12", NO LEFT PAREN, ERROR
20770
ANAL1+l1 ,INPUT+22"HOVE CHARACTER TO ANOTHER LOCATIOft
TF
20780
INPUT+19,INPUT+23" POSITION INPUT RECORD
TR
20790
ANALI+II,44,IO,IS IT A 0
eM
20800
NOT A 0, MAY BE GOOD
BNE ANAl2" 10,
20810 ANALI
TFM EVALER-I,17400"IT IS A 0, ERROR
20820
Ot
1,',20830
20840
20850
20860
20870
20880
20890
20900
20910
20920
20930
20940
20950
20960
20970
20980
20990
21000
21010
21020
21030
21040
21050
21060
21010
21080
21090
21100
21110
21120
21130
21140
21150
21160
21170
21180
21190
21200
21210
21220
21230

ANLH

ANAL2

ANAU

CF
8T
BO
CM
8E
8
OORG
C"
BL
CM
BL
CM
8NE
CM
BE
B
OORG
CM
BE
CM
8L
CM
8H

ANAL, •• RESET STRAY PAREN SWITCH
EPRINT.EPRINT-I" PRINT ERROR MESSAGE
ERtOR, ERSTSW
OTR-I.OMESC"
BRANCH TO READ NEXT CHAR
OMS81 •• ,
SCANNING FOR ALPHA "DOE
O"SNUM
.-3
ANAlI+l1,U,IO, CHECK TO SEE IF CHARACTER LFE BETWEEN A+F
ANAlI +12" •
NO I F BRANCH FROM HERE
ANALI+lI,H,IO, MAy 8E CHECK FURTHER
ANL14" ,
OKAY
ANALI+II,54.10. CHECK REST OF CHARACTERS SERIALLY
ANAL3", NOT A MODE CHANGE
OTR-I, OMESC" "ODE CHANGE SET UP BRANCH
OMSNU" " ,
CHANGING FRO" ALPHA TO HU"ERIC
OMES2."
CHANGING FROM NUMERIC TO ALFA
.-3
ANAlI+11,51.10, CHK FDR P
ANLl4" ,
LEAVE SUBROUTINE
ANAL1+11.52,10, CHECK FOR R,S"T
ANALI+12."
ERRDR IF BRANCH
ANALl+ll,63.10,
ANALl+12".
ERRDR IF 8RANCH

8

ANL14,..

OKAY, R.S. OR ,

ANAL4 OS
,ANALl+12
• PHASE A ONES PROCESSOR
OMES
BTM SCAN,.+12
TF
0IGITS,CLERER+2" CLEAR DIGIT COUNT
TFM DTR-l.DMESC" SET SWITCH TO HANDLE POSSIBLE ERROR
BNR .+24.INPUT+20"CHECK IF BREAKER A RM
B
OMSRM ... BREAKER A RM, ERROR, INSERT NU" END "ESSAGE
TOM 5"00E." INITIALI ZE STARTING "UDE SWITCH
BNF D"ESI. BSW"
PROGRA"MER SPECIFIES ADDRESS
TF
ADORS,AOOCOW" NO, MOVE LOCATION COUNTER INTO ADDRESS Loe
O"ESI
TFM MOOEl.6,0"S"Nl .. , INITITlALlLE BRANCH IN SUBROUTINE "ODE
BTH "00E,"12..
FIND "ODE
C"
INPUT+20,41,10, SEE IF ALPHA MODE
BE
DMSALF",
STARTING MODE ALPHA IF BRANCH.
TFM EVAlER-l,11300 .. ILLEGAL STARTING "ODE CHARACTER,

.

DC

1.'

21240
BT
21250
80
21260 OMSALF BNF
21270
TO
21280
TO

t-

EPRINT,EPRINT-I .. PRINT ERROR MESSAGE
EReOR, ERSTSW
OMESA,BSW"
SEE OF PROGRAMMER SPEC ADDRESS
•• H,ADOCOW"
NO, ADJUST ADDRESS • LOC COUNJER
"23,JSTBL

10190
10202
10214
10226
102)8
10250
10262
10273 .

14
41
26

11
14
41
16

02905
10262
10261
02900
10261
10342
01041

000-10
01200
02903
02904
000"4
012-0
JHOO

1
21
43
14
46
49

10190
07322
01118
11691
10806
10910

00000
07321
02476
J0850
01200
00000

14
41
14
47
14
47
14
46
49

10261
10262
10261
10310
10261
10446
11691
10910
110B6

000"1
01300
000M7
01300
000N4
01200
J0850
01200
00000

14
46
14
47

10261
10310
10261
10262
10261
10262
10310

000N7
01200
000N2
01300
00003
01100
00000

05164
02692
11691
10590
11302
033B4
10626
03293
11632
11578
02901
10710
07041
1

J0542
02695
J0850
02901
00000
00000
07319
02529
J0874
J0650
OOOMI
01200
J7300

21
43
'14
25
25

07322
01178
10782
10745
10157

07321
02476
07319
02529
02459

10746
10758
10710
10782
10794
10806
10818
10830
10842
10850
10850
10862
10814
10886
10898
10910
10922
10934
10946
10954
10953

11
26
12
16

02529
03293
02529
11632
11578
11692
02692
10190
10262

000-0
02529
000-2
J0806
J1578
J0850
000-4
10190
00000

02692
10806
01384
10910
03293
11692
02692
10190
10262

000-2
00000
000-1
07319
000-1
J0966
000-2
10190
00000

10954
10966
10978
10990
11002
11014
11026
11038
11050
11062
11074

27
14
46
14
46
14

07322
02901
11512
02901
11062
02901
11512
02901
11512
02692
10910

07321
-0079
01100
00009
01100
OOONO
01300
000N9
01100
000-1
00000

11086
11098
11110
11122
11134
11146
11158
11110
11182
11194
11206
1121B
11229

26
44
21
49
21
12

03260
11134
03260
11182
03260
03260
11182
03260
11205
11277
10806
01041

02692
07319
02529
00000
03293
000-1
03384
000-1
03260
02469
11217
J7600

11230
11242
11254
11266
11278
11290
11302

27

10274
10286
10298
10310
10322
10334
10342
10342
10354
10366
10378
10390
10402
10/t1/t
10426
1043B
10446
10446
10lt58
101t70
10482
10494
10506
10518
10262
10530
10542
10554
10566
10578
10590
10602
10614
10626
10638
10650
10662
10674
10685
10686
10698
10710
10722
10134

48

33

14
46
49

11
26
16
45
49
15
44
26
16
17

14
46
16

o

113
1620 SPS 11-0 FOR MONITOR II---PHASE A
21290
21300
21310
21320
21330
21340
21350
21360
21370
21380
21390
21400
21410
21420
21430
21440
21450
21460
21470
21480
21490
21500
21510
21520
21530
21540
21550
21560
21570
21580
21590
21600
21610
21620
21630
21640
21650
21660
21610
21680
21690
21700
21710
21720
21730
21740
21750

AM
TF
OMESA
OMSBI

5"

TFM
8TM
BTM
AM
BNF

B

AOOCOW"IO
AODRS,AOOCOW .. SET ADDRESS OF MESSAGE TO 2ND DIGIT
ADOCOW,2,10, SET LaC. COUNTER TO LOC BEFORE "ESSAGE
MODE1+6,OMSBI",
SET-UP BRANCH INST IN SUBROUTINE MODE
MODE,"OOE"SEARCH FOR CO"MA
OTR,O"ESC .. SCAN MESSAGE OPERANO
0IG[TS,4,10, LEFT PAREN FOUND, UPDATE DIGIT COUNT BY 4
ANAL,ANAL"
STRAY PAR EN NOT FOUND IF BRANCH
ANAL4

OORG '-3
AM
OIGI TS.2,10, UPDATE O[GIT COUNT BY 2
OMSBI
B
OMSMNI TOM SMODE,I,IO, SET SWITCH FOR ALPHA STARTING MODE
BNF OMSNUM,8SW"
CHECK IF PROG SPECIFIED ADDRESS
A" AOORS,I,10, PROCESSOR ASSIGNED, INCREASE ADDRESS
OMSNUH BTM OTR,OMESll"SCAN MESSAGE OPERAN~
AM
0IGITS.2,10, LEFT PAREN FOUND
8NF ANAL,ANAL"
STRAY PAREN NOT FOUND IF 8RANCH
ANAL4
8
DORG
DC
1,',*
OMESt

EPRINT, EPRINT-I
INPUT+20.79"CHECK TO seE IF CHAR NUMERIC
OMSER2",
NOT NUMERIC, ERROR
I NPUT+20 ,69,10
0"SI2,.,NUMERIC IF BRANCH
INPUT+20,50,10. CHECK IF -OTHRU-9
0"SER2", NON-NUMERIC IF BRANCH
INPUT+20,59,10
0"SER2."
NOT NUMERIC IF BRANCH
DIGITS,I,10, UPDATE DIGIT COUNT BY ONE
B
OMSNUM
• CHECK TO SEE IF ALPHA WILL START IN EVEN LOCATION
• LOCATION OIISV CONTAINS LaC OF LAST DIGIT STORED,
DMSV.OIGITS .. INITIALIZE IT WITH DIGIT COUNT.
0"ES2 TF
SEE OF PROGRAM"ER SPEC ADDRESS
BNF DMES21, 8SW"
A
OHSV.ADOCOW .. NO. ADO LOC COUNTER
OMES22
8
OMES21 A
OMSV,AOORS" ADO PROG SPEC ADDRESS
OMSV,1.10, ADJUST FOR NUMERIC STARTING MODE
SM
BD
"24,SMOOE .. CHECK STARTING MODE
SM
OMSV.l,lO, ADJUST FOR ALPHA STARTING MODE
OMES22 TO
*+21,DMSY
OHSENO-I, EVOOD,.,
TO
OMS81.0MSEND-l .. WILL START IN EVEN
80
TFM EVALER-I,17600..
000 ERROR, PRINT ERROR "ESSAGE
1,', •
DC
BT
OMES 11 CM
BH
CM
8H
CM
BL
CM
BH
OMS12 AM

21760
BT
BO
21770
AM
21780
21790
8
21800 OMSENO CM
BH
21810
21820 OMSRM AM

EPRINT,EPRINT-I
EReOR, ERSTSW
OIGITS,I,IO,ALLOW FOR OHSBI
0[GITS,,9, SEE IF NO DIGITS ACCUMULATED
*+36",
NO ZERO. OKAY

OIGITS,lOO.9

PAGE

17
17

11
44
49
11
49
IS
44
11

11
11
44
49

47
14
46
11
49

43
12
25
25

43
16

1
43
11
49
14
46
11

07322
07178
02692
10806
02692
11326
02692

07321
02476
000-1
00000
00-00
01100
OOJOO

49

1620 SPS II-D FOR MONITOR 1I---PHASe A
21830

PAGE

8
DMSERI...
ERROR [F BRANCH. NO D[GITS
218~0
TFM
[NPUT2+1. 070.9 11
21850
TF
[NPUT2+6. DIGITS
21860
8NF
.~24, BSW
21870
A
ADDCOW.DIGITS .. UPDATE LOCATION COUNTER 8Y MESSAGE SIZE
21880 OECLRN 8TH crEST .*+12
21890
TFM CFFA. NCOCF
21900
BTM CFF.LOLBL
21910 NCOCF
DOA
.0.A20AO.A4SCT.INSTRN
OJ8800-44J0132
OC
1, t
21920

11424

21930
21940
21950

DIGITS.IOO.9. SET D[GIT COUNT TO 100
EVALER-I.80000 .. ER 8 MESSAGE. DMES TOO LONG

11426
11438
11449

16
16

02692
07041
1

OOJOO
QOOOO

·"24

11450
11462

49
16

11474
07041

00000
ROOOO

TFM
TFM

DC

21960
B
21970 OMSER 1 TFM
21980
DC
21990
22000
22010
22020 NMOAL

BT
BD
B
DC

1, t,.

EVALER-I.90000 .. ER9 MESSAGE. NO DMES OPERAND

1, I,.,

PRINT ERROR MESSAGE

EPRINT.EPRINT-I
ERCOR. ERSTSW

OMSRM+24", CONTINUE
2.0

11314
11326
11338
11350
11362

49
16
26
44
21

11374

17

11386
11398
11410

17

16

11473

11462
03035
03040

11374
02529
07426
02631
02594
14

50

00000
00-102692
07319
02692
J1386
JI41D
-8390

I

11414
11486
11498
11511

27
43
49

07322
0717S
1I326

11512
11.523

16

01041
I

J7500

11524
11536
Ll548
11560
11516

21
43
11
49

01322
07178
02692
10910

07321
02476
000-2
00000

11578
11590
11602
11614
11626
11638
11650
11662
11674

31
45
49
14
46
14
46
26
49

0290(]
11614
11302
02901
00000
02901
11578
liMO
00000

31
14
46
45
49

02900
02692
11426
11148
1I21S

02902
OOJOO
01100
02901
00000

14
47
32
14
46

02901
11816
10190
lIb91
10818

000-4
01200
00000
JOS50
01200

49

10922

00000

14
47
42
26
49

02901
lIR52
00000
11810
00000

000K4
01200
00000
11691
00000

17

05164
01320
12251
11948
11960
07320
11948
05134
1I959
12056
12251
12251
03293
12056
12251
12104
07041
1

JI888
07316
03293
00000
07319
OOOOJ
00000
Jl972
03293
11948
02529
-0050
-0050
01300
03293
02901
ROOOO

07322

on21
02476
J2110
02901

07321
02476
00000

2

-0
22030 OMSER2 TFM
22040
DC
22050
22060
22070
22080
22090
22100
22110
22120
22130
22140
22150
22160
22170
22180
22190
22200
22210
22220
22230
22240
22250
22260
22270
22280
22290
22300
22310

EVALER-l.17500..

1,

ALPHA IN NUMERIC FIELD

I ,.

8T
EPRINT.EPR[NT-l .. PRINT ERROR MESSAGE
80
EReOR. ERSTSW
AM
DIGITS,2,lO.
UPDATE DIGIT COUNT 8Y 2 FOR END OF MESS
S
DMSNUM
DC
5,0
-0000
MODE
TR
INPUHI9,JNPUT+21..
MOVE INPUT RECORD LEFT 1 CHAR
BNR a+24,JNPUr+20",NOr BLANk, CHECK FOR RM
8
DMSRM."
CM
INPUT'20.B.IO, SEARCH FIELD. CHECK FOR COMMA
MODE 1 BE
•• •
COMMA FOUND. 8RANCH
CM
[NPUT+20 .. 10.
COMMA NOT FOUND. CHECK FOR 8LANK
8E
MODE...
BLANK. CHECK NEXT CHARACTER
TF
"18. MODE-I...
ALPHA CHAR IN FielD. RETURN. OR CHECK
8
•••
NEXT CHAR. ACCORDING TO BRANCH
• SUBROUT INE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT 8UFFER
OS
5
DTR
TR
INPUT+19.INPUT.21 •• MOVE OPERAND LEFT 1 CHAR' SEARCH
CM
DIGITS,l00.9. CHECK DIGIT COUNT
8H
oMSERI-3b...
BRANCH TO ERROR ROUTINE
8NR .+20,INPU'+20 •• FOR RM
8
DMSEND ••• RECORD MARK FOUND. SCAN fiNISHED
DORG '-3
CM
INPUT'20.4.10. CHECK FOR STRAY RT PAREN
8NE '+56 ••• NOT A STRAY PAREN IF 8RANCH
SF
ANAL ... SET SWITCH FOR STUY PAREN FOUND
CM
DTR-I,DMESC
BE
DMSBI+12

11690
11692
11104
11716
11728
11740
11148
11148
11160
11772
11184
11796

5
02902
02901
00000
000K3
01200
000-0
01200
il517
00000

5

15
PAGE

1620 SPS 11-0 fOR MONITOR II---PHASE A
22320
22330
22340
22350
22360
22370
22380
22390
22'000
22410
22420
22430
22440
22450
22460
22470
22480
22490
22500
22510
22520
22530
22540
22550
22560
22570
22580
22590
22600

8

OMSNUM+12", NUM
OORG '-3
CM
INPUT'20.2~.IO. CHK FOR LEFT PAREN
8NE
.+2 ..... "NOT A. lEFT PAR EN
BB
'"
, LEFT PAREN FOUND
TF
.+18,OTR-l..
Nor A It
B
RETURN
•
•
•
•
DVLC

11808
11816
11816
11828
11840
11852
11864

DEF INE VARIABLE lENGTH ADORESS CONSTANT

OC

1 t' ,*

11876
I1M8
11900
11912
11924
11936
11948
11960
11972
11984
11996
12008
12020
12032
12044
12056
12068
12019

22610
22620
22630
22640
22650
22660
22670
22680
22690 OVENO
22700
22110
22720

8T
80
8TM
8NR
87
8TM
A
81
CM
BNP
TFM

EPRINT. EPRINT-I
ERCOR, ERSTSW
TRSCAN,*+12,7 11
-+20, INPUT+20
DVEND
TRSCAN, . . 12
DVCKl. lDORS
DVLP
DveKL, 00050

12080
12092
12104
12116
12128
12136
12148
12160
12168

DC

22730

8T
80
TFM
TFM
BNF
A
TOM
TFM
8TM
OS
OS

BTM
TO
TF
CF
8NF
TOM
DVASGN SF
OVLC2 BTM
TF
8NF
rF
AM
SM
8NN
A
8NR
OVLP
TFM

22740
22750
22760 DVAOB
22770
22780
22790
22800
22810
22820 OVCKL
22830 OVSWI

SCAN ••• 12
LOABSW.RLOCSW
DVAoB+ll. ADDRS
DVSWI
DVLC2, 8SW
LDA8SW.I.ll
DVSWI
TRSCAN."12
DveKl. ADORS
DVlP, DVSWI
DVAD8+l1. ADDCOW ..
oVADS'II. 50
ADDRS. 50
.+24
DVADS+II. AODRS
_+48, INPUT+20
EVALER-l. 90000 ..

ADDR IS RT .-MOST POS OF 1ST CON.

ER 9. CONSTANT NOT SPECIFIED

H

15
32

17
26
44
26
11
12
46
21
45
16

21
43

17
45
49
17
21

49
14

_+60

12180

47

EVAlER-I. 80000 ••

16

1,' ,*

12192
12203

EPRINT. EPRINT-l
ERCOR. ERSTSW
DVCKL. 50
AoORS. 00000
*+24. DVSWI
ADDCOW, DVCKl
INPUT2. 8
CFFA.NCDeF
CFF,DACl-32
• OVA SGNHI
• DVASGN

12204
12216
12228
12240
12252
12264
12216
12288
12300
11959
11948

27
43
16
16
44
21
IS
16
17

ER8. TOTAL LENGTH TOO 81G

22840 •
22850 •

25
26
3l

DEFINE OCTAL TABLE

1 16

07178
05134
12136
12168
05134
11959
12056
11959
12240
01041
1
01322
07178
11959
03293
12276
02529
03034
02631
02594

o
o

J2148
03293
-0050
01100
QOOOO
01321
02476
-0050
-0000
11948
11959
00008
J 1410
J1972

51

1620 SPS 11-0 FOR MONITOR II---PHASE A
22860 •
22870 DOT

22880
22890
22900

22901
22902

22903
22910
22920 OOTI

22930
22940
22950
22960

BTM
8LX
CM
8NH
TFM
8T
80
8LXM
8TM
TO
BLXM
TFM
DC

SCAN.*.12 .,

PAGE

POWER NUMBER

12312
1232.
12336
123.8
12360
12372
12384
12396
12408
12420
12432
124.4
12455

o+12,AOORS131
XRA3.l3,10
DOTI
EVALER-2,18000
EPRINT ,EPRI NT-l
ERCOR,ERSTSW
'+12013131

TRSCAN,.+ 12 t,

ASSIGNED

ADDRS

LDA8SW,RLOCSW

•• 12,-2'.',.
DUT+ 102,010,9,

1.' ,.

SET TERM LENGTH
SET TERM 1

8LXM .+12,-lf2' ••
SET LENGTH
CM
XRA3,O
DTEX
8E
23000 OTLOOP MM
OUT+I02121,08010
23010
8X
*+12,XRAl(2),.
I NCREMENT LENGTH
2.3020
80
*+20, 99( 11
B7
23030
*+20
23040
8XM o+lZ,-l! 11
100(11
23050
SF
TF
OUT+I02(2I,99
23060
8CXM DTlOOP,-l(31
23070
23080 OTEX
8X
FINAL LNTH INCR
*"12,XAAIC2J"
MA
LNTH, XRA2
23090
23100
BNF .+48.8SW
A
AOOCOW,LNTH
23110
23120
TF
AOOR S ,AOOCOW
23130
TOM LDABSW,l,ll
23140
TFM
INPUT2+1,090,9 11
23150
81
OECLRN
23160 •
HEADER ROUTI NE
23170 •
23180 HEADER TFM HED.,lO
TDM HEAOER+l
23190
23200
8NR COMA,INPUT+20
TFM
INPUT2+1, 030,9 11
23210
INPUT2+6. HEO
23220
TF
TFM CFFA,NCOCF
23230
23240
8TH CFF, SNOTCO
23250 COHA
CM
INPUT+20,23rl0
HEAOER+36
23260
BE
23270 •
HElDER OPERAND GREATER THAN ONE CHARACTER
ERI2,HEAOER+1
23280
BD
CM
INPUT+20, ,10
23290
e+60
23300
BE
eH
INPUT+20,40,10
23310
SPECIAL CHARACTER USED AS HEADER
23320 •
23330
BL
ERII
23340
TF
HEO, I NPUT+20
TOM HEAOER+ 7,1
23350
INPUT+19,INPUT+21
23360
TR
23310
81
HEAOER+Z4
22970
22980

22990

17
65
1.
.1
16
27
.3
66

17
25
66
16

52

0516.'
12336
00319
12"08
01040
07322
07178
12408
05134
07320
12444
02320
1

J2324
03KR3
OOOH
01100
P8000

IH68
00319
12584
02L20
12516
12536
125'08
12548
001-0
02L20
12492
12596
02387
12656
02529
03293
07320
01035
11314

OO-OJ
-0000
01200
000-8
00L09
000R9

10121
12683
12160
03035
03040
02631
02594
02901
12112

000-0
00000
02901
00-310121
Jl410
-8414
000K3
01200

01321
02476
OO-H
J2420

07316
OOO-K
00-10

12.56
12.68
12480
IH92
12504
12516
12528
12536
12548
12560
12572
12584
12596
12608
12620
12632
12644
12656
12668

66

12676
12688
12700
12712
12724
12736
1214B
12160
12172

16
15
45
16
26
16

12784
12196
12808
12820

.3
46
14

12920
02901
12868
02901

12683
000-0
01200
OOOMO

12832
12844
12856
12868
12880

41
26
15
31
49

12888
10121
12683
02900
12700

01300
02901
00001
02902

12888
12899

16

01041
1

J7100

12900
12912
12920
12931

16
49
16

10121
12932
07041
1

000-0

12932
129"4
12956
12964
12976
12988

21
43
.9
34
38

07322
07118
12112
13012
13072
JOU2

07321

lit
.6

13
61
.3
49
62
32
26
64
61
70
44
21
26
15
16
.9

11
14
46

14

OOO-J
00000
00099
OO--J
00L09
00314
07319
02387

02529
OOOOJ
00-9-

II 7
1620 SPS 11-0 FOR MONITOR II---PHASE A
23380 ERII
23390

DC

1,',·

23400
23410
23420 ER12
23430

TFM
B7
TFH
DC

HEO,,10

23440
23450
23460
23470 F2
23.80

23490

BT
BO
87
34
38
TR

23170 •
23500
23510
23520
23530
235"0

AM
SH
CM
8L
TRA

23550 F20CF
23560
23570
23580
23590
23600
23610
23620

TFM

23630 STiU
23640
23650
23660 STIT2
23610
Z3680
23690 DUTeL
23700
23710 ALlR
23720
23130 NAOO
23140 LNCT
23750 •

1,', •

EPRINT,EPRHH-l
EReOR, ERSTSW
HEADER+36
F20CF,00701
F20CF ,00702
OUTAR-l, CLERER+3,2

.-12+6,50,10
e+23.1,10
CLERER+l, 34,10
.-48

13000
13012
13024
13036
13048
13060
13012

31

11
12

14
47
36
.9

12994
13035
02694
12988
00000
00000
14

53

J7200

02416
00101
00702
02696
OOONO
000-1
000L4
01300
00500
00000

12964

SY1480L TA8lE OUTPUT PHA SE
OORG INSTRN
OAS
80
OAC
I.'

10132
10133
10293

80
1

DAS 32
OAe
12, SYM80L TA8LE
SYMHOl TA8lE
DAS 36
OAS 32
OAC 09, BLOCK 01
8LOCK 01
OAS 39
OAS 80
OAC
1, '

10295
10359

32 X
12 X

10383
10455
10519

36
32
9

10531
10615
10175

39
80
1

OAC
5.00000
00000
OAS
1
OS
5
OS
2

10171

5 X

10787
10192
10794

1 X
5
2

23160 •
23180 OEND
23790
23800
23810
23820
23830

."20
EVAlER-l,11200

ODA ,O,A40AO,A4SCT,INSTRN
OJ8883-44J0132
TCO F2

•
•
•
OUlAR

PAGE

EVALER-l,IHOO

TFH
8TH
TO
TO
80
8TM

EVAlUATE ADDRESS OF OENO
INPUT2+1,30,10 11

10796
10808
10820
10832
10B44
10856

SCAN •• +12,7 11
INPUT2+o, ZEPO+24
INPUT2+5, lEPO+28
.+24, ZEPO+29"
OUTPUT, CSTAT

CHECK FOR TCO

I JS

16

17
25
25
43
'11

03035
05164
03040

03039
IOB68
09510

2
2
2

2

OOOLJ08202329
02328
02329
J0892

1620 SPS 11-0 FOR MONITOR II---PHASE A
23840
23850
23860
23870
23880
23890
23900
23910
23920
239]0
23940
23950
23960
23970
23980
23990
24000

TFM
8TM
CSTAT 8NF
8TM
CM
BE
TO
TO
•
WRITE
TFM
B
TD
CAllA3 RCTY
A3STRT TFM
A3BO
BD
TDM
DC

CFFA.NCDCFl
CFF.SNOTCO
"2~.2PSSW

2PSOUT. H12
SBOUT. 00.10
CALLA]
DGSV. LOSYMB+l
LOSYMB'I. SPSGM
01 SK-WlRC-OUTPUT PARTIAL BLOCK
IDlIl'''2]
IORBC.SDEFl.7
LOSYMB'I. DGSV
A3BO.11.1 STAT-l
*+44,*-A380'11 .. 6

1,',-

24010
SM
A3BO'11.1.10
24020
B7
A3BO
24030
TD
u23.HUDD
24040
TD
U23.AJUST
H050
AM
HIAOD.00.l0
.+23,PICKUP
H060
TD
24070
TD
"23.AJUST
24080
AM
PICKUP •• 10
240Qn
BNF "20.ISTAT-30
24100
B7
·+20
24110
TF
HOMAD.HUDD
24120 MACRIN BHF "68.KllSUB
210130
CM
A3BO'11.ISTAT-30
24140
BNH ·+44
24150
TD
A380'11.41BD+23.6
24160
SM
A3BO'11.1.10
24170
87
--48
24180
ASTOP .ASTSW
BD
BNF H84.2PSSW
24190
24200
BNF o+36.PTlNSW
RCTY
2"210
24220
WAlY PT2MES
24230
BNF o+36.CDINSW
2'+240
RC TY
24250
WATY CD2MES
24260
BD
ST8EGN.STPCSW
24270
BNF CAll81.STTYSW
24280 STBEGN BNF STl.STPCSW
24290
WACO S TI T1 '""
24300
WACO OUTeL
24310 STl
BNF ST2.STT.YSW
24320
TFM STITl+2*4lt".
24330
DAC 1.' ,-

16
17
44
11
14
46
25
25

02631
02594
10916
09862
02645
11000
03385
19998

-7298
-8414
02477
J0916
000-0
01200
19998
02561

109610
10976
10988
11000
11012
11024
11036
11047

16
49
25
34
16

00565
00520
1999B
00000
11035
11068
1103N
1

J0987
J0023
03]85
00102
-2559
00000
00000

11048
11060

12
49
25
25
11
25
25
11
44
49
26

109100

10952

11068

PUNCH TITLE

RCTY
RC TY
WATY STIli
RCTY

24340
2'B50
2"360
24370

PAGE
10868
10880
10892
10904
10916
10928

11080
11092
11104
11116
11128
11140
11152
11160
11112
11184
11196
11208
11220
11232
11240
11252
11264
11276
11288
11300
11312
11324
11336
11348
11360
11312
11384
11396
11408
11419
11420
11432
11444
11456

43

15

44

14
47
25
12
49
H

44
"4
34
39
44
34
39

43
44
44
39
39
44
16

54

11035 000-1
11024
11091 02519
l11D3 02399
02519 000-0
11127 02529
11139 02399
02529 000-0
11160 02530
11172
00415 02519
11240 02484
11035 -2530
11240 01100
1103N 11047
11035 000-1
11184
12588 10125
11336 02417
11300 02475
00000 00102
12633 00100
11336 02474
00000 00102
12111 00100
11360 02470
12408 02471
11396 02470
10295 00400
10615 00400
11480 02471
10383 -0000
1 X
2

34
34
39
34

00000
00000
10295
00000

00102
00102
00100
00102

34
14
46
16
26
11
25
25
44
39
39
39
39

00000 00102
02645 000-0
11920 01200
02673 000-0
10077 10061
02673 000-1
10535 02673
10533 02672
11624 02470
10615 00400
10615 00400
10455 00400
10615 00400
11720 02471
00000 00102
00000 00102
10537 -0000
1 X
2

1 J 1J
1620 SPS II-D FOR MONITOR II---PHASE A
2080
21t390 ST2
24400
24410
24420
24430 snoop
2"440
24"50
2"460
24470
2It"80
24490
24500
2"510 Sf)
24520
24530
24540
24550
24560
24570
24580
24590
24600
2"610
24620
24630
24640
2"650
24660
24670
24680
2It690
24100
24710
24720
24730
247100
24750
H160
24770
24180
24790
24800
24810
24820
24830
24840
24850
24860
24870
24880
24890
24900
24910
24920

RCTY
CM
BE
TFM
TF
AM
TO

TO

S80UT.00.IO
OSYMB-20., ,

SBCNT.00.10.
B20eF+5.B1DCF+5
SBCNT .1.10
STI T2 .... 0.2.SBCNT
STIT2'39·2.SBCNT-I
ST3.STPCSW
OUTCL
OUTCL
STI T2
OUTeL
CRlD.STTYSW

OUTPUT BLOCK NO. IF MORE THAN ONE
EXISTS

8NF
WACO
WACO
WACD
WACO
8NF
RCTY
RC TY
TFM STIT2+4hZ
OAC 1,',.

WATY STlT2
RCTY
RCTY
TFM STI T2+41*2.00.10
CRlO
AM
B2DCF+5.SPBl
C
S8CHT .SBOUT
Bit
FLOAD
TD
DGSV.lOSYMB+l
TD
LOSYMB+l.SPSGM
•
REAO DI SK-WLRC-REAO SYM80L BLOCK
TFM IORT.H23
8
IOGT.SDEF2.7
TFM L1MITS.l811M
TFM lIMITS-5.MAXLlM
TD
LOSYM8+l.0GSV
B7
OSYM8-20
FLOAD TD
DGSV,LOSYMB+l
TO
lOSYM8+1. SPSGM
*
READ 01 SK-WLRC-PARTI Al 8LOCK
TFM 10RT ....23
B
IOGT.SDEFl.7
TR
LlMITS-9.PRTLI"-"
TO
LOSYM8+I.OGSV
AM
L1MITS-5.H.10
B7
ST5
OSYMB TR
OUTAR-1.0UTCl-1
TFM LNCT.05,!0
TFM S TLP+6.0UTAR+5'2
STLP
TF
*- •• L1MITS-5.11
AM
STLP+6.14,lO
AM
L1MITS-5.S.10
TF
NAOD.LlMITS-~.l1
TO
AllR+8. NAOO
TD
ALlR'6.NAOO-l
TD
AllR'4.NAOO-2
TO
AllR'2. NAOO-3
TD
ALZR'O. NAOO-4

PAGE
11468
11UO
11492
1150"
11516
11528
11540
11552
11564
11576
11588
11600
11612
11624
11636
11648
11660
11671
11672
11684
11696
11708
11720
11732
11744
11756
11t68

H

34
34
16
39
34
34
16
11
24
46
25
25

10455
00000
00000
10537
10077
02673
11848
03385
19998

00100
00102
00102
000-0
-0040
02645
01100
19998
02561

lI1BO. 16
11792 "9
lIB04 16
11816 16
11828 25
11840 49
11848 25
11860 25

00565
00566
03281
03276
19998
11920
03385
19998

J180]
JOO31
KOO09
J5991
03385

11872
11884
11896
11908
11920
11932
11940
11952
11964
11976
11988
12000
12012
12024
12036
12048
1201>0
12072

120

16
49
31
25
11
"9

00565
00566
03272
19998
03276
12336
31 10132
16 10794
16 11982
26 00000
11 11982
11· 03276
26 10792
25 10785
25 10783
25 10781
25 10779
25 10777

19998
02561
J1895
J0023
02499
03)85
000J7
10614
000-5
J011t3
03270
000J4
000-5
03270
10792
10791
10790
10789
10188

55

1620 SPS 11-0 FOR IIONITOR
24930
24940
24950
24960
24970
24980
24990
25000
25010
25020
25030
25040
25050
25060
25070
25080
25090
25100
25110
25120
25130
25140
25150
25160
25170
25180
25190
25200
25210
25220
25230
25240
25250
25260
25270
25280
25290
25300
25310
25320
25330
253100
25350
25360
25370
25380

TFII
8MF
TFM
80
TFM
CF
CF
CF
TF
AM
All
C
8NL
SM
8P
8NF
TFM
8
8NF
ST4
WAlY
RCTY
S15
C
BL
CM
BE
C
BNH
CAlli 1 8NF
BNF
WATY
RCTY
H
BNF
BNF
WACO
WACO
WACO
NOP
NOP
NOP
TFM
8TM
ASTOP RClY
IIAlY
B
OUTAD OSlo

25390
25400

DC
JO'

II--'HASE A

PAGE

ALZR.l0.00.l0
..... NADO
loUR> 10. ".10
•• 24.RELSW
AllR.l0.20.10
AllR.9
AUR.8
AllR
STLP.6.ALZR.l0.6
STLP+6.18.10
LIMITS-5,12,10
lIMITS-5,1I11ITS
-+36
LNCT,I.10
STLP
SH,STPCSW
IORT,·.23
IOPT,OUTAD-4.7
ST5,STTYSW
OUlAR

120M
12096
1210B
12120
12132
12144
12156
12168
12180
12192
12204
12216
12228
12240
12252
12264
12216
12288
12300

12312

lIMITS-5,lIMITS
OSYM8
SBOUT ,00,10
CALUI
SBCNT ,SBOUT
STLOOR
.+60,2PSSW
"48,PTlNSW
2STMES
.+96,STPCSW
•• 81o,LSCDSW
OUTCL
OUTCL
OUTCL
OUTCL, .. CHNGE TO WACO TO PUNCH
OUTCl" ,CHNGE TO WACO TO PUNCH
OUTCL" ,CHNGE TO WACO TO PUNCH
CFFA,e81DCF
CFF.4158
ASMS
IIONCAL, "
DUTAR

IIORE BlNK LN AFTR SYM TABlE
IIDRE BLNK IN AFTR SYM TABLE
IIORE BLNK IN AFTR SYII TABLE

CAll EXIT

3,10·

•
.......................................................................
DGM

25410 PTZMES DAC 39,RerHREAD SOURCE PAPER TAPE FOR PASS 2.'
RETHREAD SOURCE PAPER TAPE FOR PASS 2.'
25420 C02MES DAC 32,RElOAD SOURCE CARDS FOR PASS 2.'
RelOAD SOURCE CARDS fOR PASS 2.'

12324
12336
12348
12360
12372
12384
12396
12408
12420
12432
12444
12456
121068
121080
12492
125010
12516
12528
125100
12552
12564
12576
12588
12600
12612
12628

16
44
16
43
16

33
33
33
26

11
11
24
46
12
46
44
16
4.
44
39

34
24
47
14
46
24
47
44
44
39

34
48
44
44
39
39
39
41
41
101
16
17
310

39
49

12628
12631

56

10787 000-0
12144 10792
10787 000N9
12144 020HB
10787 OOOKO
10786 00000
10785 00000
10777 00000
U98K 10787
11982 000J8
03276 000J2
03276 03281
12264 01300
10794 000-1
11976 01100
12300 02470
00565 J22"
00532 J2624
12336 02471
10133 00100
00000 00102
03276 03281
11940 01300
02645 000-0
12408 01200
02673 02645
11528 01100
12468 02oH7
12468 02475
12775 00100
00000 00102
00000 00000
12564 02470
12564 02479
10615 00400
10615 001000
1,0615 00400
10615 00000
10615 00000
10615 00000
J2898
02631
02594 -4158
00000 00102
12823 00100
00796 00000
5 X
1

/

J0133
3

12631
12633

39 X

12711

32

2

12 I
1620 SPS 11-0 FOR MONITOR II---PHASE A
25430 2STMES DAC H,PRESS START IiHEN READY.'
PRESS START WHEN READY.'
25440 ASMS
OAC 38.0I5C AREA TOO SMAll. ASSEM8lV DELETED'
DI SC AREA TOO SMALL. ASSEMBLY DELETED'
25450 CBIDCF ODA .O,B1DAO,BISCT,SBOUT.1
OJ 9180-20-2646
25460
DC
1,'

,

25no F3
25480
25490
25500 A50tF

34

38

A5DCF,00701
A5DCF,00102

TRA

25510

DOA .0, A5DAD,A5StT ,INSTRN
DJ87)7-29J0132
Teo f3

25520

DEND START

PAGE
12775

24 X

12823

38

12898

14

~7

2

12912
12914
12926
12938
12950
1,2962
12914
10126

122

34
38
36
49

12962
12962
00000
00000
H

00701
00702
00500
00000

1620 SPS 11-0 FOR MONITOR II---PHASE A
IPTSP8
2PRTlO
2PSOUT
2PTSPB
2STHES
A35TRT
AOOCOW
AODSU8
8CMSPC
CA50CF
CALll2
CALLAl
CALL81
CALLE X
CARDIN
C81DCF
C02MES
CDINSW
CFFDEF
CHYAlD
CLERER
CLlINK
CLLDAD
COMSPC
OECLRN
DECTA8
DIGALF
DIGITS
OIHDAO
DIHOCF
DIMSCT
Divesw
DIYIDE
OMESll
DMES21
DMES22
DMESCL
DMSALF
DMSEND
OMSERI
OMSER2
DMSMNI
DMSNUM
D080MK
DODISK
DOINST
DOLLAR
OORONB
DOSIOC
DOSVRS
DTlOOP
OYASGN
ElODAe
EPRINT
ER9DAt
ERlNTH

01500
20000
Q9862
00600
12775
11012
02529
05880
06144
12752
12490
11000
12408
117"6
02666
12898
12711
02474
02625
11704
02691
11618
11618
06028
11374
10152
05588
02692
04800
13338
00001
02485
05708
10966
11134
11182
11156
10710
11278
11462
11512
10874
10910
10528
11076
10296
06408
10732
10832
10996
12492
11948
11128
07322
11684
06124

ERROIG
ERSTSW
EYlLAO
EYALER
EVALOP
FFl0tF
GETAST
GOODB3
HEADER
I NtODE
I"PUT2
INSTRN
INTERM
I"TRSW
INTSAV
10ADDR
10eSAD
KIlSU8
lOABSW
lDCHAR
LODSey
LIMITS
LOPOUT
LOSYMB
lSCDSW
lSPRSW
lSTYSW
MACRIN
MACR02
MACSHF
MAXlIM
MCAOCF
MCADEF
MCCAll
ME STAB
MOCTOC
MOEXEC
MOIDNO
MONAME
MONtAl
MONOIS
MOS8NO
HOSDAD
MSTDAD
NCDtFI
NCOCF2
NOSINE
OBJCRE
OPI"T8
OPlCTB
OPLNTB
OT2DCF
OUTOCF
OUTDFI
OUTDF2
OUTPUT

03271
02476
05960
01042
05536
11180
06158
10168
12676
02492
03034
10132
05800
02"83
14202
02638
19783
02484
07320
06388
08894
03281
03321
19997
02479
02"81
02480
11172
10132
11536
15997
14170
1"162
11196
13353
16023
00U6
16039
16035
00196
16044
16043
19663
18962
01298
10658
11876
02"97
04663
04643
010623

10104
10088
10039
10047
09570

PtALLl
PtNUSIl
PHASEA
PHCOAO
PHCSCr
PICKUP
PROtON
PROCRE
PROSTM
PRTLIM
pr2MES
PTiNSW
PUrSRJ
UOCSW
RSYMSW
2PASS
2P8UF
2PRE
2PSSW
2PTR
2SECT
2S
5CHAR
6CHAR
A1CI
UDAD
Al0CF
AlSCT
A2DAD
A2SCT
AlBD
A30AO
A3DtF
A3SCT
HDAD
A4SCT
A5DAD
A5DCF
A5SCT
ADC
AOORS
AENDX
AJUST
ALFLP
ALFOP
ALPHA
AUR
ANAll
ANAU
.",All
ANALit
ANAL
ANlI4
A
ASMS
UTER

PAGE

11234
02482
03392
19260
00040
02529
10606
02498
03804
02503
12633
02475
10550
01316
07315
09766
099"6
09934
02477
09B26
09710
09746
06682
06714
10418
18600
14264
00137
18800
00058
11024
18B61
11220
00022
18883
000"4
18731
12962
00029
05020
03293
13588
02399
04516
04472
02684
10777
10250
10342
10446
10262
10190
10310
13543
12823
06U6

ASTOP
ASTSW
81Ol0
BIDtF
BlSCT
82DAD
820CF
B2StT
BlDAD
BlMlD
83SCT
84DAO
84StT
B5DAD
85SCT
86DAO
86SCT
BBT
BBTX
BENDX
8ETA
81
BlOP
8HK
8HKX
8NI
80AT
BOLT
80 11K
8P20K
8
8SAY
BS8F
8SCYC
BSENT
BSHI
BSIN
8SNEQ
8S
BSW
8TBl2
8TBll
6T8L
CLOP
CI0
CllAP
CllA
CllP
Cll
e12P
C12
C13P
C13
C14P
C14
C15P

12588
10125
19180
10056
00020
19200
10072
00056
19000
09700
00063
19063
00056
19122
00029
19151
00029
10389
14482
11924
02689
05044
058H
10391
14491
05044
11112
10967
05032
00005
13595
08366
08360
OBI08
08389
08336
05008
08104
08096
07319
04829
10180
04876
11814
11581
11854
13M7
11834
11613
11874
13681
11894
13701
11950
13131
12006

58
C15
C16P
C16
C11AP
C11A
C17P
C11
C18P
C18
C19P
C19
tiP
CI
C20P2
C20P3
C20P4
e20P
C20
C21P
e21
C22P
C22
C23P
C23
C24P
C24
C25P
C25
C26P
C26
C21P
e21
C2Pl
C2P2
C2P
C2
ClPl
C3P2
C3P3
C3P
C3
C4lA
C4P
C4
C5P
C5
C625
C66W
C6P
C6

C10
C1P
C1
C6P
C8
C9P

13771
12050
13813
12090
13361
12010
13831
12110
13885
12154'
13915
11254
13155
12198
12295
12282
12174
13947
12314
13983
12334
14007
12354
14035
12410
1404~

12430
14063
12450
14013
12470
14121
11378
11410
11334
13377
11496
11530
11566
11454
13405
12066
11634
13435
11654
13457
12062
12064
11614
13477
14161
11694
13517
11714
13549
11134

123
1620 SPS 11-0 FOR MONITOR IJ---PHASE A
C9
CCN2
CCN3
CCON
CENDX
CFFA
CFF
CHKND
CLT8L
CNTR
COU
COMA
CORM
CRLD
C
CSTAT
CTl
CTEST
CTYT
CYlAY
DAC3
DAtER
OACR
DAe
DAS
DCARD
DCRN
DC
ODA
DDAX
DDWDD
DECL2
DECL
OENoe
DEND
DENDX
DGM
OGSV
DIM
DISK
OIVSW
DMESI
DMES2
DMESA
DMESC
DMES
OMS12
OMS81
OMSRM
DMSV
OHSYW
ONS2
OOADC
0081
008S
DDK

13511
12960
13244
12828
lIt635
02631
02594
07090
11419
10123
021t39
12760
03341
11120
139H
10892
01474
07426
02490
10\181
12004
11596
11828
11"88
11"08
10674
13040
12768
11826
12042
10862
10132
0'0916
12728
10796
15845
11236
03385

13330
05080
07316
10626
11086
10182
10850
10530
11062
10806
11302
03260
03265
12464
10448
10596
10404
10152

DOL
DOROW
DDRG
Don
DOT
0
DSAI
DSA2
DSA
058
DSDN8
DSS
DTEX
OTR
DYAD8
DVCKL
DVEND
DVLe2
DYle
DYLP
DYSWI
EOAT
EQDAD
EIIseT
EIISW
ERll
ER12
ER19
ERI
ER20
ER22
ER28
ER2
ERl
ER4A
ER'o
ER5
ERCOR
EROS A
ERLAB
EYI
EYODD
F20CF
F2
F3
FOCF
FERRR
FilE
FLAI
FLGRH
HOAO
FMOCF
FM
GET
HCLIM
HEO

06073
10664
12552
12"08
12312
1"646
13308
13344
13276
12048
12284
12532
12584
11692
12240
11959
12168
11960
11876
12056
11948
11252
00000
00004
OB335
12888
12920
09498
07488
09956
11406
09382
04156
0"680
090\7B
09430
07740
07178
13484
03297
07078
02469
13012
12964
12914
15894
06988
15846
H2O"
03339
11848
12116
12068
06538
02508
10121

HIAOD
IOMES
INKRM
INPUT
INSAY
INST
lOCAL
IOGEr
10GT
10PT
IOR8C
IORT
(OSK
ISTAT
JSTBl
K
LA8L
LAB
LADDR
L82
l8ADD
l8e3
L8CK2
L8FND
LSLlM
LOlBL
LDSOK
lDSR
LIM
LNeT
LNTH
LPNSW
L
MACRO
MATCH
MDRET
MEXIT
MODEl
MODE
MODOC
MOMAD
MOML
MOSCT
HOVE
MURI
NADO
NASS
NCOCF
NIC
NMOAL
NOISE
NONEX
NUM8
OK
ONEZ
OPI

PAG~

02519
10943
02566
02881
02749
04996
00716
10338
00566
00532
00520
00565
005510

02560
02"59
05092
06075
03337
07660
07600
07580
08606
080\86
08016
20009
08390
09026
09014
08376
10194
02387
07317
02521
11304
10956
05656
10622
11626
11518
16022
00415
160'tl
16000
05676
02633
10192
12428
11410
01116
11511
02522
00457
02"48
04140
02587
0.4364

OPER
OP
OSYHB
OUTAD
OUTAR
OliTCl
OUT
PCAU
PCC
PCK
PCLPI
PCTR
PLACE
PUT
R28E
R3E
RCTR
ROBlK
RDWB
ROW
READI
READ2
READ3
RELSW
RLOPI
RMRK
RSCAN
RTPN
SI
SASI
SAS2P
SAS2
SASC2
SASC
SASXl
SASX2
SBCNT
SBHAX
S6Dur
SCAN 1
SCAN2
SCANl
StAN
SCTAV
'SDEFI
SDEF2
SEEK
SIOC
SLC
SlP
SLPX
SHDDE
SMP8l
SPBl
SPEC
SPSGM

06532
04228
11940
12628
10133
10615
02216
11014
11.350
02365
11314
11214
03210
10386
03612
03924
07114
01872
05068
05056
03568
03600
03428
02478
04112
02516
03H4
'06882
06208
12802
12902
11010
12974
12766
12810
13078
02673
02671
02645
05488
05224
05304
05164
14192
10023
10031
10362
05104
10886
10138
10814
0338"
00235
00040
06176
02561

12 I,

59

SREl
SSTDF
SSTSW
STI
ST2L
ST2
5n
ST4
ST5
START
STCNT
STI rt
STIT2
STlP
STSAV
SUBNO
TAPIN
TEMPR
TEMP
T08B
TRA
TSPEC
TYPIN
X2
XS7
XB82
XOAS
XDS
XDSS
XFlAG
XHEAO
XRAI
XRA2
XRA3
XRA5
XRA6
ZEPO
SAVRST
SBFAOD
SNOTCO
SSTOAD
SSTOCF
SSTSC T
START2
STBEGN
STCHAR

snoop

STPCSW
STPRSW

srrvsw

SUBOAD
SUBENT
SYMTAD
SYMT8l
SVSCAl
TA8FUL

05444
12289
12313
11396
10574
11480
11624
12300
12336
10126
02514
10295
10455
11976
14197
02524
02658
02572
03391
07102
10258
10124
02650
03837
13623
14149
14230
13184
14212
06986
15361
00309
00314
00319
00329
00H4
02300
05116
15998
08414
18927
12298
00035
10270
11360
117BO
11528
02470
02472
02411
04808
03255
0264]
16003
00475
09230

1620 SPS II-D FOR MONITOR II---'HASE A
THINGS

02"20

TRNUMB

D68D2

TRSCAN

PAGE
05134

TYINSII

TYPASS

02'113

END OF ONE ASSEMBLY.

125

1620 SPS II-D FOR MDNITOR II---PHASE 8
25540
25550
25560
25570
25580
25590
25600
25610
25620
25630
25640
25650
25660
25670
25680
25690
25700
25710
25720
25730
25740
25750
25760
25770
25780
25790
25800
25810
25820
25830
25840
25850
25860
25870
25880
25890
25900
25910
25920
25930
25940
25950
25960
25970
25980
25990
26000
26010
26020
26030
26040
26050
26060
26070
26080
26090

•
SPBL
SMPBL
SVMT8L
LOSYMB
SBFADD
LBLIM
MULIM
•
1 PTSPB
2PTSPB
BP20K
2PR TI 0
•

XRAI
XRA2
XU3
XRA5
XRA6
•
AIDAD
AISCT
A2DAD
A2S0
A3DAD
A3SCT
A4DAD
A4SCT
A5DAD
A5SCT
SSTDAD
SSTSCT
MSTDAD
MQSDAD
BIDAD
B1SCT
B2DAD
B2S0
B3DAD
83SCT
83MAD
B4DAD
84SCT
85DAD
65SCT
B60AD
86SCT
DIMDAD
DIMSCT
EQDAD
EQSCT
PHCDAO
PHCSCT
SUBDAD
•

DORG 2218
SYMBOL TA8LE PARAMETERS
DS
SEC TORS PER BLOCK
• 40"
DS
SYMBOLS PER BLOCK
• 235"
DS
HI-ORDER
POSITION DF SYMBOL TABLE
• 16003.
DS
, SYMTBL+SMPBL-17-1,
Lo-oRoER POS IT I ON OF SYMBOLIC BLOCK
DS
, LOSYMB-SPBL o l00+1,
SYMBOLIC BLOCK DISK ADDRESS
DS
, LOSYMB+12,
Lo-oRDER BLOCK LIMIT
DS
, SYMTBL-6,
MAXIMUM LIMn
EMPIRICAL seCTOR ASSIGNMENT PARAMETERS
OS
.1500,
I-PASS TOTAL seCTORS PER SI'M. BLOCK
, ,600,
OS
2-PASS TOTAL SECTOR~ PER SYM. BLDCK
OS
SYMBOLIC BLOCKS PER 20K CDRE
DS
.20000,
2-PASS RATlO--INTERM./FUJAL SECTORS
INDEX REGISTER LOCATIONS
DS
,264+1*40+5*1
DS
,264+1*40+5*2
,264+1-40+5·3
DS
.264+ 1*40+5.,
DS
,261t+1-40+5_6
DS
SPS DISC ASSIGNMENT PARAMETERS
DS
,18600,
CONTROL STATEMENTS, PH.A SUBRoUTINS
DS
,137
DS
,18800,
NORMAL PROCESSING--FREQUENT STMTS.
,58
DS
DS
.18861,
TRA, tALL, GET-PUT AND ASSOC DECL
,22
DS
DMES, OVLC, DDT, HEAD
DS
,18883.
,44
DS
,18137,
DS
OENO, TCD, AND SYMBOL TABLE 1I ST
,29
DS
DS
,18927,
SYSTEM SYMBOL TABLE
OS
,35
DS
,SSTDAD+SSTSCT,
MASTER SYMBOL TABLE
,19663,
OS
MONITOR COMM SECTOR DISK ADDRESS
OS
,19180,
PHASE B INITIALIZATION
,20
OS
OS
,19200,
INPUT, BRANCH TABLE, StAN
,56
OS
LINPRt,lNSTRN,OC,DSDNB,OAS,DORG
OS
.19000,
OS
,63
OS
.09100, PHASE B3 MEMORY ADDRESS
DS
,19063,
RSTR,OAC,ALOW,DMES,DSB,DVLC,DGM
OS
,56
DSA ,MACRO,DOA,TRA,OEND
DS
,19122,
OS
,29
,19151,
OS
CALL LlNK,LOAD,EXIT
,29
OS
,04800,
DIM ENTRY FOR EQUIV. TABLE
DS
OS
tl
OS
EQUIVALENCE TABLE
,4
OS
OS
,19260
,40
OS
OS
,04808,
SPS SUBROUTINE DIM ENTRIES
MONITOR COMMUNICATION PARAMETERS

,5,

,0,

PAGE
02218
00040
00235
16003
19997
15998
20009
15997
01500
00600
00005
20000
00309
00314
00319
00329
00334
18600
00137
18800
00058
18861
00022
18B81
0001010
18737
00029
18927
00035
18962
19663
19180
OD020
19200
000§6
19000
00063
09700
19063
00056
19122
00029
19151
00029
04800
00001
00000
00004
19260
000100

04808

1 26

o
o
o
o
o
o

o
o
o
o
o
o

o
o

o
o
o
a
o
c
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

60
131710

1 &20 SPS 11-0 FOR MONITOR 11---PHAse B
26100
26110
26120
26130
26140
26150
26160
26170
26180
261'10
26200
26210
26220
26230
26240
26250
26260
26270
26280
26290
26300
26310
26320
26330
26340
26350
26360
26370
26380
263'10

MoseT
MOOOC
MOCTOC
MONAME
MOIONO
MOMl
MOSBNO
MONOIS
MOEXEC
HOMAO
SVSCAL
NONEX
PCK
•
IORT
10PT
10GT
10RBC
IOSK
lOCAL
MONCAl
IOCSAO
•
•
•
OUT
IEPO

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS

26410

• Mose r+,.,L,

,Moser"4).
,"'05CT+44,
,426.

,415,
,475,
,457,
,2365
IORT ENTRIES

,565
,532
,566

,520
,554
,00716
,00796

,19783,

AOOR OF THE LOAOER-CALLER

PAGE
16000
16022
16023
16035
16039
16041
16043
16044
00426
00415
00475
00457
02365

0
0
0
0

00565
00532
00566
00520
00554
00716
00796
1 '1783

0
0
0
0
0
0
0
0

02218
02298
02300
02381
02362

1
80
2
81
1

0
0
0
0
0
0
0
0
0

SPS COMMUNICATION AREA
OS
OS
OS
OS

DC

26400 LNTH

MONITOR COMM SECTOR MEMORY ADDRESS
01 SC OUTPUT COOE
CD-TP OUTPT COOE
NAMe
10 NUMBER
MANT. LENGTH
SUB. SET
NOISE DIGIT
EXECUTE CONTROL AN~ SPS INPUT
MEMORY AOOR
SYSTEM COMMON ACTION LOCATION
NON-EXECUTE FOR J08 ERROR

.16000.
,MOSCT+22.
,MOSCT+23,
,MOSCT+35,
,MOSCT+39,

1
80
2
81
1 ••

02367

OC
5.0
-0000
1 ••
DC

02366

INSTRUCTION PARITY TABLE
26420 AJUS T . OC
11.2121212121 ..
-2121212121
21.0010203040506070000 •
26430 THINGS DC
-0010203040506070000'
26440 COLL
19
OS
26450
OS
2
7, •
26460 NUMB
OC
-00000'
26470 JSTBL
ALPHA PARITY TABLE
DC
11.3232323232 ..
-]212323232
DMES PARITY TABLE
26480 EVOOO OC
10,0101010101 ••
-101010101
26490 •
PROCESSOR CONTROL SWITCHES--FLAGGEO I=ON. UNFlAGGEO O-OFF
PUNCH SYMBOL TABLE
26500 STPCSW OS
1 ..
TYPE SYMBOL TABLE
26510 STTYSW OS
1 ..
PRINT SYMBOL TABLE
26520 S TPRSW OS
1 ..
BEGIN TYPEWRITER INPUT
26530 TYINSw OS
1 ..
26540 COINSW OC
l, 1 t I
BEGIN CARO INPUT

02399

11

02420

21

02439
02441
02448

19
2

0245~

11

02469

10

02470
02471
02472
02473
02474

J
26550 PTINSW OS
26560 ERSTSW OS

BEGIN PAPER TAPE INPUT
ERROR STOP

1 ..
1 ..

02475
02476

I 27
1620 SPS 11-0 FOR MONITOR II---PHASE B
26570
26560
26590
26600
26610
26620
26630
26640
26650

2PSSW
RELSW
L SCOSW
LSTYSW
LSPRSW
PCNUSW
INTRSW
KILSUB
OIVCSw

26690 PROCRE
26700 PRTLIM

OS
I ..
OS
1 ..
OS
1 ..
OS
1 ..
OS
1 ..
-1, ,
OS
OS
1 ..
OS
1 ..
l,l,.
OC
J
OC
5.0
-0000
2,5
OC
-5
OS
5 ..
OS
1 ..
OSA

26710 HCllM

OSA

26720

DC

26660 CTVT
26670 INCOOE

26680 OBJCRE

TWO PASS MODE
ASSEMBLE RELOCATABLE
LIST CARO
LI ST TYPEwR ITER
I I ST PR INTER
PUNCH RESEQUENCEO SOURCE- OECK
INTERRUPT
NO SUBROUTINES
NO SYMBOLIC OIVIOE

02490
02492
OBJECT MACHINE S lIE
PROCESSOR MACHINE SIZE

02497
02498
02503

5
1
5 X

LBLIM

02503
02508

-0000
5 X

1 ••

02506
0250'1

KOO09
1

26730 STCNT

STATEMENT COUNT

26740 HIAOO

HIGH AODRESS

OC
5.1 tt
-0001
DC
5,0"
-0000
26750 L
OS
2 ..
26760 NOISE OS
1
26770 SUBNO OS
2
26780 PICKUP OS
5
26790
OC
1,1
26800 ISTAT

26810 SPSGM
26820 INKRM
26830

J
DC

LENGTH OF MANTI SSA

30.0'

-0000000000000000000000000000'
OGM
OS
5
1 ••
OC

.

PAGt
02477
02478
02479
02460
02481
02482
02483
02484
02465

02514
02519

02521
02522
02524
02529
02530

2
1
2
5
1

02560

30

02561
02566
02567

26B40 TEMPR
26850

OS

DC

5
1 ••

02572
02573

26660 RMRK
26870

OS
OC

3
1 ••

02576
02577

26680 ONEZ

10,1
DC
-000000001

26890
26900
26910
26920
26930
26940
26950
26960

•
•
•
OS
CFF
TFM
B
87
CFFDEF OSC
22

02587

10

lacs CALL-LOAD PROCESSOR SECT ION-NO WLRC
5

JORT,*+23
IOGT.CFFOEF.7

CFF-l,,6
2,22,.

ABSULUTE DISK NOT WRONG LENGTH

02592
025'14
02606
02618
02625

12~

5
16
49
49

00565
00566
0259L
2

-2617
-2625

1620 SPS 11-0 FOR MONITOR II---PHASE B
26970 CFFA

OSA

26980

DC

PAGE
02631

27070

27100
27110

02643
02645

OSA

INPUT-IO

02658

),08'

02658
02661

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

27130

DC
JO'
DGM

5 X
-2775
3

02661
02666

3.10'

02666
02669

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

-2775
3

02653

INPUT-I0

27150 SBMAX

X

02650
02653

),06'

DC
-8'
DGM

2

02650

DC
-6'
DGH

27120 CARDIN DSA

27140

02633
02638

.......................................................................
·

27090 TAPIN

-0000
1

02631
02632

1. '

26990 HURl
OS
27000 10ADOR DC
5,O"FllE ADDRESS OF INTERMEDIATE OUTPUT
-0000
27010 SYMTAD DC
5.02600"FILE ADDRESS OF SYMBOL UBL E
-2600
27020 S80UT DC
2.0
-0
27030 •
27040 •
END SPS COMMUNICAT I ON AREA
27050 •
27060 TVPIN OSA
INPUT-IO

27080

X

5 X
-2775
3

02669

DC
2,10
JO
27160 AOOCOW OS
27170 ALPHA DC
10.0
-000000000
27180 BETA
DC
5.0
-0000
27190 NOPREC OC
15.410000000000'
-0410000000000'
27200 TEMP
OS
5
27210 CLERER DC
1.0

02671

27220

0271]

26

02739

27

27240
27250

OSC 26.0
00000000000000000000000000
OSC 21, •
00000000000000000000000000'
OS
8
OAC 5.

02773
02775

8
5 X

27260 INPUT

OAC

02785

6 X

21270

0280]

8

27280
27290
27300
27310
27320
27330
27340
27350
27360
21370
27380
27390
27400
27410
27420

02804
02816
02828
02840
02852
02864
02876
02888
02900
02912
02924
02936
029,,8
02960
02973

27230

02676
02686

5
10

02691
02706

15

02711
02712

6.

129
PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE B

DC
8.0
-0000000
00
.,0246810
00
" 0246810
00
• ,0246810
00
• .0246810
00
.,0246810
00
. . 0246810
00
• ,0246810
.. 0246810
00
, ,0246810
00
00
. . 0246810
00
. . 0246810
•• 0246810
00
, ,0246810
00
00
•• 02"'6810
DC
2.0
-0
2,0
27430
DC
-0
27440 PACK
OSS 300
27450
OAS 1
27460 INPUT2 OAS 1
2H70
OSC 50,0
00000000000000000000000000000000000000000000000000
27480
OSC 50.0
00000000000000000000000000000000000000000000000000
21490
OSC 50.0
00000000000000000000000000000000000000000000000000
21500
OSC 50, •
0000000000000000000000000000000000000000000000000'
11
27510 AOORS OS
21520
DC
1. '
21530 LINK
21540
21550

TFM
8
DC

21560 OUMPl OS
21570
OS
21580 DEFIN2 OSC
00
OSA
21590

-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-0-0-02

02975

2

02976
03277
03279
03280

300
1 X
1 X
50

0]330

50

03380

50

03"30

50

03"90
03491

11

PCK+IO,19.17
,,26
PCK
1. '

O]lt92
03504
03516

,lINK+14
1
2,00

03506
03517
OH18

SUBIN

03524
03524
03525

1
10
49

02315
-236'1
1

5 X
-35]4
1

DC

I.'

21610 OEFIN

OSC
02
OSA

2,02

03526

SUBIN

0]532

1,'

03532
03533

-3534
1

0]534

14

21630

DC

27640 SUBlN

ODA .0,*-.,2,.-0- ouoo- 02- 0000

1 3 II

-0019
00000

0
1
2

27600

27620

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
0-0-0

5 X

4

PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE B
27650

DC

27660 OEFOUT DSC
02
27670
DSA
27680

DC

I, '

03548

2,02

03549

SU8DUT

03555

I, '

03555
03556

-3558
1

03558

14

27690 SUBOUT OOA ,O._-*,3,PACK
0-0000-03-2976
I, •
27700
DC

03572

,

27710 DEFSM
27720

DSC
00
DSA

2,00

03571

SUBSM

03579

I, '

03579
03580

-3582
1

03582

14

27730

DC

27140 SUBSM

OOA .O,--*,SP8l,SBFAOO
0- 0OOO-40J5998
DC
1,'

27750

OAS
OAC

5 X

03596

27760 HURl El OS
27770 INTBUF DSC 9,00000000'
00000000'
27780
OSS I'll
27790
DC
I, '
27800 ERLAB
27810

5 X

03597
03598

1
9

03607
03796

191
1
6 X
2 X

03801
01813

6

2,+'

+'
27820 lOPOUT DC
12.0
-00000000000
27830
DC
4.'
-00'
27840 lIMfSP OS
.HCLIM
27850 LIM
DC
10.0
-000000000
27860
DC
I, '

03827

12

03831

4

02~08

0
10

27870 lIMSV
27880

03852
0385)

10
1

02645
03856
0)B57
03862

0

27890
27900
27910
27920

OS
DC

03841
03842

10

I, '

BlX
HED
OMESW
lTY5

OS
,SBOUf
OS
3
OS
1
5,75
DC
-0075
27930 IC
2,0
DC
-0
27940 FRSTAD OS
5
27950 STKlEN OS
5
27960 lSfAO OS
5
27970 FLGRM DC
I, '

03864
03869
03874
0)879
01880

5
5
5
1

13 1
1620 SPS 11-0 FOR MONITOR II---PHASE B
27980 PACKAD OSA

PAC K, PACK. 75, PACK+150, PACK+225

PAGE
03885

5 X

03885
03890
03895
03900
03901

-2976
-3051
-3126
-3201

DSS 26
6,0
DC
-00000
28020 ISHCO OS
5
2g030
DC
I, '

03902
03933

26
6

28040 SFA
28050

8
1,0

03947
03948

28060 8LKADS DSS
28070
OSA

30
SYMT8l-6

03949
03983

)0
5 X

28080 lIMTSF DSA

SYMT8l.17'SMP8L+ll

03983
03988

J5997
5 X

28090

I, '

03988
03989

KOO09
1

03991
03996

2
5

04001

5

27990

DC

1,'

28000 PKMOO
28010

,

OS
DC

,

DC

28100 8lKCTR OS
2
28liO DHPDIG OC
5,0
-0000
28120 AB8A
5,0
DC
-0000
28130 FRSTHT DSC 1,0
0
28140 KlRlSW OS
1
28150 X
OS
5
28160 CAROlN OS
1
28170 VACANT OSS 140
28200 COPOEF DSA INPUT2
28210
28220

DC
JO'
DGM

3.10'

TF
TFM
TFM
TFM
TFM
TF
SM
TFM
8NF
TFM

ERlA8.10,ClERER.l1

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

282)0 INIT I
28240
28250
28260
28210
28280
28290
28300
28110
28320
28330
28340

TO

SM

HEO"IO
SU80UT+5,O
INKRH,99999
SUBIN'13,1NT8UF
SU8IN'S,IOADOR
SUBIN+5.Z,lO

ADDCOW,2401
*.24. REl SW
AOOCOW,99999
OMPD I G-4, PROCRE
OMPOIG.l,10

I

03938
03939

04002
04003
04008
04009
04010
04154

I

5
1
140
5 X

04154
04151

-3279
3

04157
04158
04170
04182
0<\C194
04206
0421R
04230
04242
04254
04266
04278
04290

132

26
16
16
16
16
26
12
16
44
16
25
12

03811
03856
03563
02566
03541
03539
03539
02676
04278
02676
03992
03996

02723
000-0
-0000
R9999
-359B
02638
000-2
-2401
02478
R9999
02498
000-1

b

1620 SPS 11-0 FOR MONITOR II-'MASI II
28350
28360
28370
28380
28390
28"00
28410
28420
28BO
28""0
28450
28460
28470
28480 •
28490
28500
28510 DCF82

SF
8NR
TR
TFM
8
TR
AM
TFM
TR
TF
TF
TF

04102
04114
OU26
04JJI
04150
OU62
OUT4
OUI6
OU98
0"410
04422
0404
04446

•• 48

28520

PKMOO, PACIIAOH
PKMDD+4,25
7TY5,50
UM-9,lIMTSP-9
SUBSM+5, SYMTAD
SFA,SYMUD
ABBA
,PKMDD+"
TO
INT8UF+200,SPSGM
CALL PHAse B2
TFM CFFA,DCFB2
BTM CFF,PHASEB-12
DDA ,O,B2DAD,B2SCT,PHASEB-12
OJ92 00-56-H 58
DC
1,'

28530 •
28540 Fl
28550
28560

LOAD PHASE Bl TD THE FILE
34
SU80,701
38
SUBO,702
TRA

28570 SUBO

DOA ,O,810AO,BISCT,SBDUT+I
OJ9180-2D-2646
TCD
Fl

04458
04470
04482

,

28580
28590
28600
28610
28620
28630
28640
28650
28660
28670
28680
28690
28700
28710
28720
28730
28140
28750
28760
28770
28780
28790

PAGE

FlGRM
.+48,ISTAT-29
PKMOO,PACIlAD-4
nU,75

•

R2

R2SW

03180
OU62
03902
03162
04398
03902
03906
03862
03832
03581
0391t7
04001
03798

00000
02531
03881
-0075
00000
03886
-0025
-0050
02"99
02643
02643
03906
02561

02631
02594
14

-4482
-4158

34
38
16
49

04'46
04546
00000
00000
14

00701
00702
00500
00000

17

09664 -4170
04362 02477
04318 0061
035·n -2766
03539- 000-2

31

16
49

31
11
16
31
26
26
26
25
16

17

04496
04498
04510
04522
04534
04546
04498

OORG
BTM
PHASE8 80
80
TFM

INITI
GEET ,"12, ,CALL PHASE B3
2PASS,2PSSII
R2,R2S11
SUBIN+13,INPUT-19
AM
SUBIN+5,2,10
RUO SDURCE STATEMEN-f FROM
TFM IDRT,"23
B
IDGT,OEFIN,7
TR
INTBUF,INPUT-19
BNG GOI
,INPUHBO"CHK. FOR
BNG 0+32,INPUT+l"80
TOM R2SII,l,l1
B7
GOI
SM
SUBIN+5,I,10
87
GDI
fR
INPUT-ll, INPUT-U+I00, ,
TR
INTBUF,INPUT-19+100"
TOM R2SII,O
87
GOI
I,D
DC

J2
45

04158
04158
04170
04182
04194
04206

THE FILE

04218
04210
04242
04254
04266
04278
04290
04298
OUIO
0431B
04130
04342
04354
04361

FILE GRP.MRK

PRDCESS 2DND SHDRT STMT
DIRECTLY. NO DISK ACCESS.

28800 2PASS BNF SECRD,PTlNSII" CHK FDR CARD DR TAPE INPUT
28810 • ACCEPT TAPE INPUT
28820
TFM 10RT,Ul)
28830
8
IOOT,TAPIN-4,7
28840
87
FORWD

43
43
16

11
16
49
31
55
55
15
49

12
49
31
31
15
49

00565
00566
03598
04502
04298
0'>361
04502
03539
04502
0277"
03598
oon61
0It502
I

-42'H
-3526
02766
02865
02965
OOOOJ
000-1
028H
02866
00000

04362

"4

04406

02475

04374
04386
04398

16
49
49

00565
00566
04430

-4397
-2654

133

28850
28860
28870
28880
28890
28900
28910
28920
28930
28940
28950
28960
28970
28980
28990
29000
29010
29020
29030
29040
29050
29060
29070
29080
29090
29100
29110
29120
29130
29140
29150
29160
29170
29180
29190
29200
29210
29220
29230
29240
29250
29260
29270
29280
29290
29300
29310
29320
29330
29340
29350
29360
29370
29380
29390
29400

.

1820 SPS II-D FOR MONITDR II--PHASE 8

PAGE

AccePT CARD INPUT
SECRD TFM IORT,U2)
IDGT,CAROIN-4,7
B
FORWO 8NR . . 24,INPUT-I0
TFM INPUT-IO,O,IO
CM
INPUT-I0,14,10
BE
2PASS
TOM e-l1,1
RSCAN,RSCAN-I
BT
GOI
AM
INKRM,l,10
8T
CLDUT,CLOUT-I
TOM KLRLSW,I,II
TR
INPUT2-I,INPUT-l1
8NF '+24,LSTYSII
RCTY
•
•
CHECK FOR CDMMENT STATEMENT

.

CHTER BNR .+20, INPUT
87
CHKID
INPUT,l4,10
eM
8NE CHKlD
BNF "2It,LSTYSW
IIATV INPUT-l0",TYpe COMMENTS STATEMENT
BNF PHASEB,LSCDSII
8T
ReVSCN, REVSCN-l
•
PUNCH COMMENTS CARD
PCHCDM 8NF PHASE8,LSCDSII
TFM IDRT,H23
B
I DP T, CDPOEF-4, 7
87
PHASEB
CHKID TFM RLDP+U,INPUT-2
AM
RLDP+U,2,10
CM
RLOPHl,INPUT+12
RLOP+24
8E
RLOP
8NR _.-36,_-e
TF
INPUT+I0,CLERER+U
CLERER+ll,INPUT+lO
C
8E
*+36
TF
ERLA8+10,INPUT+IO
TFM INKRM,O
TFM RMDP+U,INPUf+lO
RMOP+II,2,10
AM
CM
RMDP+ll , INPUT+20
RMOP+24
BE
RMOP
8NR *-36,*-*
INPUT+IB,CLERER+7
TF
8NF NAST,2PSSW
BNF .+32,INT8UF+7
TDM INTBUF+7,O
.+20
B7
TR
I NT8UF ,INTBUF+8
8NR PULLlO,INTBUF
TFM SU8IN+l3,INT8UF
AM
SU81N+05,2,10
•
ReAD INTERMEDIATE OUTPUT FROM FILE

04406
04418
04430
04"42
04454
04466
0It478
04490
04502
04514
04526
04538
04550
04562

16
49
45
16
14
46
15
27

04574
04586
04594
04606
0"618
04630
04642

45
49
14
47

010654

04666
04678
04690
04702
04710
04722
04734
04746
010758
04770
04782
04794
04806
04818
04830
04842
04854
04866
04878
04890
04902
0491"
04926
04938
04946
04958
04970
04982

13ft

11
27

15
31
44
310

410

39
44
27
4"
16
49
49
16
U
14
46
45
26
24
46
26
16
16
11
14
46
45
26
44
44
IS
49
31
45
16

11

00565
00566
01t454
02175
02775
-04362
0It467
05860
02566
08556
04003
03H8
04574
00000

-4429
-2662
02775
000-0
000J4
01200
00001
05859
000-1
08555
OOOOJ
02774
02480
00102

04594
04710
02785
010710
04642
02175
04170
05922

000J4
01200
02480
00100
02479
05921

OU70
00565
00532

02479
-4701
-4150

02785

010170

04769
04769
04769
04782
04722
02795
02123
04830
03811
02566
0It889
0It889
04889
04902
04842
02803
05170
04946
03605
0It958
03598
05018
03547
03539

-2783
000-2
-2797
01200
00000
02723
02795
01200
02795
-OUOO
-2795
000-2
-2805
01200
00000
02719
02477
03605
00000
03606
03598
-3598
000-2

9

1620 SPS 11-0 FOR MONITOR II---PHASE 8
29410
29420
29HO
29440
29450
29460
29HO
29480
29490
29500
29510
29520
29530
29HO
29550
29560
29510
29580
29590
29600
29610
29620
29630
296"0
29650
29660
29670
29680
29690
29700
29710
29720
29730

.

TF
TR
TF
TR
TF
TR
TR
TR
TDM
8NF
WATY
TF
8NR
TFM
DC

lOPOUT, I NPUT-2
INPUT 2-1, LOPOUT-9
lOPOUT, INPUT-IO
INPUT2-n. lOPOUT-1l
lOPOUT, INPUT+18
INPUT2+25. LOPOUT-l
INPUT2+35. INPUT+19
VACANT ,INPUT+19
OMESW,
"24, lSTYSW

29740
29750
29760
29710
29180
29190
29800
29810
29820
29830
29840
29850
29860
29810
29880
29890
29900
29910
29920
29930
29940
29950

8T
8NF
CM
8l
RClY
T8TY
CM
8NH
8NF
TFM
B
8T
TlU
BNF
BD
B1
8NF
BD
T8l2
TFM
TO
A
GOOOB2 8
BTBl2 8

REVSCN, REVSCN-I
'+60.lS TYSW
REVSCN+35,INPUT2+108

PAGE

TFM IORT ,.+23
8
lOOT, OEF IN2,1
PUlllO 8NF NAST ,INTBUF_l
TFM EVAlER-Z.67670
8T
EPRINT, EPIIINT-I
ERRXX WAry MESS2
RCTY
8T
FWDSCN,FWOSCN-I
TFM IORT,.+23
8
IQGT,TYPIN-4,1
8C4 ERRXX
CM
INPUT,I4,I0
8NE •• 24
TDM INTBUF+1,O
87
CASTER-48
•
•
TYPE OUT SOURCE STATEMENT

04994
05006
05018
05030
05042
05054
05066
05078
05090
05102
05114
05126
05138
05150
05162

NAST

05110
05182
05194
05206
05218
05230
05242
05254
05266
05278
05290
05302
05314
05326
05337

26
31
26
11
26
31

05338
05350
05362
05314
05386
05398
05410
05422
05434
05446
05458
05470
05482
05494
05506
0551"
05526
05538
05550
05562
05514
05586

27
44
14
H
34
34
14
H
44
16
49
21
44

MARKI

TYPE SOURCE STMT.

INPUT2",

PLACE ,AOOCOW

•• 24,INPur+20
INPUT+22 .. 10
1, ',_

-+24
REVSCN+35. INPUT2_2.59
flU
flU. lSCDSW
IORT.*+23
I OPT, COPOEF-4 ,1
CLOUT. ·tlDUT-I
"32.INTBUF+I
INSTRN.INTBUF-I
TBll
INSTRN,INTBUF
INSTRN.INT8Uf
(;00D82+6. BT8l2
GOOD82+11.INTBUF+I
GDOOB2.5.GODD82+11

•• 10
0

"ACRO ....

16
49
44
16
27
39
lit
27
16
49
46
14

41
15
49

31
31

IS
44
39
26
45
16

H

49
44
It)

16
25
21
"9
49

00565
00566
05170
08014
08452
08421
00000
05972
00565
00566
05054
02785
05162
03605
04526

-5011
-3518
03605
01610
08451
00100
00102
05911
-5113
-2646
00400
OOOJ4
01200
00000

03821
03278
03821
03290
03821
03304
03314
04010
03857
05302
03279
09487
05338
02807
I

02783
03818
02195
03816
02803
03820
02804
OZ804
00000
02480
00100
02676
OZ805
000-0

05922
05410
05951
05398
00000
00000
05951
05482
05482
00565
00532
08556
05514
1309"
0566"
13094
n09"
05580
05585
05519
00000
15526

059Z1
02480
-3387
01300
00102
00108
-3391
01100
02419

10

-~469

-4150
08555
03599
03599
03598
03598
-5586
03599
05585
000-0
00000

135
1620 SPS 11-0 FOR MONITOR II---PHASE B
29960
29910
29980
29990
30000
30010
30020
30030
30040
30050
30060
30070
30080
30090
30100
30110
30120
30130
30140
30150
30160
30110
30180
30190
30200
30210
30220
30230
30HO
30250
30260
30210
30280
30290
30300
30310
30320
30330
30340
30350
30360
30]10
30380
30390
30400
30410
30420
30430
30440
30450
30460
30410
30480
30490
30500

T811
GOOD8

8TBl

KSCAN

DDRG
8
DORG
8
DDRG
B
DORG
8
DDRG
B
DORG
B
DORG
8
OORG
TFM
TO
A
B
8
DORG
B
DORG
8
DORG
B
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8
DORG
8lXM
TFM
DA.C
80
BO
8CX

PAGE

.-1

05596
05596
05606
05606
05616
05616
05626
05626
05636
05636
05646
05646
05656
05656
05664
0566't
05616
05688
05700
05712
05122
05122
05132
05132
0511t2
05742
05152
05152
05162
05162
05112
05112
05182
05182
05192
05192
05802
05802
05812
05812
05822
05822
05832
05832
05842
05842
05852
05852
05860
05860
05812
05883

SAVE,.,

+1
'-1
+2
RSTR, "
·-1
PCHCDM-12 . . . .3
·-1
CALlEX, .. +It
·-1

",e2" .+5

'-1
PCHCOM-12, .. _6
'-1

lINkSF,.,+l
.-3
GOOD8+b.8T8l
GOOD8_11.1 NT8UF
GOODB.5.GOOD8+11
.,10

IRA., .-5
'-1
DSDNB •• , -4
·-1
DEND". -3
·-1

DC",
.-1
OORG",
·-1

-2
-I

DAC •••
.-1

0

OSA, ••

+1

·-1
DAS .. ,
·-1
HEAD, ••
·-1

+2
+3

OS8". "

+4

OGM, ••

+5

'-1
DOA, ••
·-1

+6

DMES .. ,

+1

.-1

·-1

DVlett,

.8

·-1
DOTtl., • .9
'-3
B12,122{ 11
INPUT+18111.0Z00,8 9

1.· .•

RSCAN1,INPUT+16111

05884
05896
05908

RSCANI,INPUT.I~III

'-36,RSCAN+21111

136

49

15610

00000

49

15598

00000

49

04654

00000

49

15502

00000

49

15658

00000

49

04654

00000

49

15490

00000

16
25
21
49
49

05706
05111
05705
00000
15514

-516Z
03598
05111
000-0
00000

49

14002

00000

49

15550

00000

49

14546

00000

"9

14406

00000

49

15646

00000

49

15538

00000

49

14210

00000

49

06046

00000

49

15418

00000

49

15514

00000

49

15562

00000

49

15622

00000

49

15586

00000

49

15634

00000

66
16

05812 00lK2
028-3 O-Keo
I X
2

43

05920
05920
05872

H
63

028-1
OZ8-0
058QI

11

PAGE

1620 SPS 11-0 FOR MONITOR II---PHASE B
30510 RStANI 882
30520 REVStN TFM
30530
SM
30540
BNR
TFM
30550
30560
8B2
30570 FWDStN TF
TF
30580
30590
TF
BLXM
30600
TFM
30610
DAC
30620
30630
30640
30650
30660
30670
30680
30690
30100
30710
30120

BC X
B82
•
•
•
HEAD

e.23.2.10
·-12,*-e
*-1,0,610
I NPUT-2 ,tLERER+9
INPUT+I0,tLERER+II
INPUT+18,tLERER+7
HI2,-122111
INPUT+142111,0200,8

1,',*
*-12,*-311)

42
16

06032
06044

63

06046
06058
06070

26
16
49

12
45
16
42
26
26
26
66
16

05957
05957
05934
0595P

12

-3439
000-2
00000
000-0

02721
02183
02195
02723
02719
02803
06020
OOIKK
029K7
0-200
2
1 X
06020

060K9

03856
03490
l'o466

03604
-0000

42

HEADER ROUTINE
HED,INTBUF+6
AODRS
EtLATl

TF
TFM
B7

•
•

THE FOLLOWING CLOSED SU8ROUTINE EVALUATES
THE STATEMENT OPERAND

30130 •
30740 •
30750
30760
30770
30780
30790
30800
30810
30820
30830
30840
30850
30860
30870
30880
30890
30895
30900
30910
30920
30930
30940
30950
30960
30970
30980
30990
31000
31010
31020
31030
31040

H35,INPUT2+160

05920
05922
05934
05946
05958
05910
05972
05984
05996
0600B
0602'0
06031

OS
TRStAN TR
8T
OS
SCAN
TFM
TFM
TF
TOM
TF
StAN2
TO
80
80
TR
87
8NR
80
SCANA
SF
tM
8E
CM
8NE
8NF
tM
8NF
8E
TFM
8T
87
TOM
SREL
87
CM

06081
06082
06094
06110
06112
06124
06136
06148
06160
06172
06184
06196
06208
06220
06228
06240
06252
06264
06276
06288
06300
06312
06324
06336
06348
06360
06372
06384
06392

5

INPUT+19,)NPUT+21 ••

ELIMINATE LEADING,

SCAN, TRStAN-I
5
OPER,IO,IO
XFlAG,OO,IO

DIVSW,CLERER+5"

CLEAR SWITCHES

8SW,I,ll
AoORS ,tlERER+9

ALPHA, LNTH+l.,

REtORO MARK--ALPHA EMPTY

e+44,INPUT+19
e+32,INPUT+20
INPUT+19,INPUT+21
·-36
StANI-24,INPUT+20
tHKNO,LPNSW
AOORS-4
RtTR, 00,10
SREl+12
RtTR, 01,10

e.24
SREl, AooRS
RtTR, -01,10
.+24, AooRS
SREL
eVAlER-2 ,11170"
EPR INT, EPR/NT-I,
EVI
RLOCSw,l,11
T088
INPUT+20,23010

RELOCATION ERROR

31
21
16
16
26
15
26
25
43
43

H
49
45
H
32

14
46
14
47
44
14
44
46
16
27
~9

15

0640~

~9

06U2

14

StANA-12
INPUT+20,IO,10

06424
06436

·.44

064~8

OPER,IO,IO
INPUT+19,INPUT+21
EVALAO
INPUT+20,20,10
EVALAO
OPER,20,I0
StANI+36

06460
06472
06484
06492
06504
06516
06528
06536
06548
06556
06568
06580
06592
06604
06616
06624
06636
06648
06656
06668
06680
06692
06704
06716
06728
06736
06748
06160
06768
06780
06792
06804
06816
06828
06840
06852
06864
06876
06888
06900
06908
06920
06932
06944
06956
06968
06980

46
14
47
16

5
02804
06112
5
09501
01956
08380
09502
0]490
02686
06228
06228
02804
06184
06412
08100
03486
08376
06404
08376
06324
06392
08376
06360
06392
08014
08452
08052
08378
08112
02805

02806
06081
OOOJO
000-0
02717
OOOOJ
02721
02388
02804
02805
02806
02805
08379
00000
000-0
01200
000-1
01200
03490
OOO-J
03490
01200
PI770
08451
OOOOJ
000K3

137
PAGE

1620 SPS ll-O FOR MONITOR II---PHASE 8
31050
31060
31070
31080
31090
31100
31110
31120
31130
31140
31150
31160
31170
31180
31190
31200
31210
31220
31230
31240
31250
31260
31270
31280
31290
31300
31310
31320
31330
31340
31350
31360
31370
31380
31390
31400
31410
31420
31430
31440
31450
31460
31410
31480
31490
31500
31510
31520
31530
31540
31550
31560
31570
31580
31590
31600

StANI

EVALOP

O/GALF

MORET
MOVE

DIVIDE

INTERM

BLOP

AOOSU8

EVALAD

8E
CM
8NE
TFM
TR
87
tM
8NE
TFM
B7
8NR
87
BD
M
SF
TF
80
87
TF
TOM
87
tM
8E
LO
0
SF
TF
87
TOM
80
87
TOM
TR
eM
8E
TO
20
TF
TFM
BNF
TO
AM
87
SF
SF
TOM
TFM
TFM
TR
81

•
COMSPC CM
BL
TF
CF
LA8L
OS

•• 20, ALPHA
MOVE
DIVlDE,OIVSW
ALPHA,8ETA
90
ALPHA,99
SREL-32,RSYMSW
MOVe+12
ALPHA,8ETA
olVSW,O
GET-I .. 6
8ETA,O
MORET
99,ALPHA
89,8ETA
85
ALPHA,94
MORET
01 VSWol,l1
SREL-32, RSYMSW
StANl+36
LPNSW,l,l1
INPUT+19,INPUT+21

OPER"lO
StAN2
·+13,OPER-I
AOORS,ALPHA
ALPHA,tlERER+9
OPER, ,10

.+36,RSYMSW

"13,

AOOSU8+1
RtTR, 1,10
SCAN2
HEO-2
DOLLAR

BSW,O
lA8l,1,10
DOL" 10
tOLL-18,TH/NGS-20
8CMSPC
CHECK FOR SPEC tAL CHARAtTER

06988
07000
07012
07024
07035

[NPUT+20,10,lO
SPEe
tOll.INPUT+20
tOll-l

"
138

49
14

06240
02805
06492
09501
02804
06908
02805
06908
09501
06472
06556
06624
06656
02686
00090
02686
06360
06636
02686
08380
0749N
02691

46

0660~

28
29
32
26
49

00099
00089
00085
02686
06604
08380
06360
06

l,lNTH2 lNTH2,lNTH TF TFM lNTH,O 87 FIT • SET A FLAGGED RECORD MARK TERMINATING ONE CARD SErFRM TO TRDATA+6,FlGRM,6 "OOIF I TFM 1TY5,75"INITIALlZE FUll CARD COUNTER TR PKMOD,PKMoD+5 aNR STNUCO,PKMOD SU8IN+5,SU8oUH5 C BNH oVRlAP * WRITE 3 SEC TORS -- 4 CARDS -- TO THE FILE TFM IORT,.+23 B IOR8C ,OEFoUT, 7 BlXM HI2,INPUT2+9Q-PACK-2( II, ,CLEAR TF PACK+2( lI,ClERER+52" PACK AREA BCXM 0-12,-50111 AM SUBOUT+5,3,10 TR PKMOO,PACKAD-4 .. INITI ALlZE BUFFER ADDRESSES STNUCD TF ABBA,PKMOO+4"AOORESS OF NEW CARD MOVED TO ABBA 12118 12130 12142 12154 12166 12174 12186 12198 12210 lZ222 12234 8 OORG TOM BO TF .+8",BRANCH BACK OR CONTINUE .-3 oUT-7,O NEWCAR,IC I STTCO,ADORS TO ISTTCO-5,IC TR TRDATA+6,ISTTCO-I0,6 B1 REETRN-60 * ROUTINE TO HANDLE THE CASE WHERE DATA OVERFLOWS FROM ONE • CARD TO ANOTHER SPlI r A lNTH,1TY5 MOVE PARTI Al 8lX .+12.LNTH(1) .. DATA TR OUT+2,OUT+2(1J .. INTO OUT +2 A FRSTAD,lNTH,,08TAIN ADDRESS OF NEW FIRST DIGIT CF 1TY5 A STKlEN,lNTH,6 TF lNTH,7TY5 87 "DOlFI • ERROR ROUTINE -- FINAL OUTPUT HAS OVERLAPPED INT. OUTPUT OVRlAP TFM EVAlER-2,12110 BT EPRINT,EPRINT-l B1 MONCAl 0 • NUMER IC TO AlPHA CONVERTER 21 21 26 16 ~9 25 16 31 45 24 47 02219 02219 10000 02381 11464 02381 10000 02387 -0000 1163Q 03862 03902 12330 03539 12510 03880 -0015 03907 03902 03563 01100 00565 00520 12282 OzqP8 12282 03563 03902 04001 12350 J2269 -3549 004-0 02164 OOON000-3 03881 03906 00000 00000 03864 0}490 03864 03928 12246 12258 12210 12282 122910 12306 12318 12330 12342 12350 12350 12362 12314 12386 12398 12410 16 49 66 26 64 11 49 02211 11978 03938 03933 1163Q 11148 12418 12430 12442 12454 121066 12418 12490 12502 21 65 31 21 33 21 26 49 02387 12442 02220 03869 03862 0381M 02381 12186 03862 OKlQ1 OKKKO 02381 00000 02381 03862 12510 12522 12534 16 21 109 08014 08452 00796 P2110 08451 31 26 49 15 H 26 25 31 24 0 FIll OS TR TFM TO BNF TOM CF BO TOM BNG 125~5 5 FllBUF,Flll-l,11 FCHBUF, 10,10 FCHBUF, FllBUF+4, 11 12546 12558 12570 12582 12594 12606 12618 12630 12642 _+60, FCH8UF FCH8UF-I, 5,11 FCH8UF -+24, FCHBUF FCHBUF-I, 2,11 •• 24,FCHBUF 31 16 25 410 15 33 43 15 55 5 12802 12819 12819 12642 12818 12819 126102 12818 12666 1254N OOOPO 12800 12819 OOOON 00000 12819 OOOOK 12819 149 1620 SPS 11-0 FOR MONITOR II---PHASE B 31470 37480 31490 31500 37510 37520 31530 37540 31550 37560 31510 CVAC r 31580 31590 31600 37610 37620 F1lBUF 31630 FCH8UF 31640 31650 31660 31670 37680 37690 37700 37110 37720 31730 37740 31750 31760 37170 31780 37790 31800 37810 37820 TFM BNR TFH TF AM AM C 8NH BB2 OS TFM A BTM B FtHBUF,41.10. .+24, FCHBUF FCHBUF,34,10, FilBUFH4, FCH8UF,6 F I l8UF+4, 1,10 Fll8UF+l·ft, 2,lO FllBUF+4, FllBUF+9 FlLl+12 G FOR GROUP MARK , FOR RECORD MARK 5 ACTFll+5,ZEPO ACTFll+5,lNTH FILL,ACTFll-4 CVACT-I,,6 DORG --3 OSS OS OS 16 2 5 rHE FOLLOWING ROUTINE ARRANGES THE OUTPUT OF THE LISTING * • OECK l STOUT BNF GOCl,lSCOSW BTM Flll,AORFll-4"AOORESS TOM INPUT2+2061-3,1 CM lINPRT-I,OOINST BNE lSTCoN BTM FllL,OPFll-4"OP.COOE BTM Flll,PFll-~"P-FIElO 8TM F Ill,QFll-4, ,Q-FIElO 81 PUNCH lSTCON BTH Flll,lNTHFl-4 TOM INPUT2+Z.61-3,7 PUNCH TFM loRT,H23 B IOPT,COPOEF-4,7 GOel 8T CLOUT ,ClOUT-l B7 lSTDUT-l .. 6 ADRFll OSA AOORS-4,AODRS,INPUT2+2*61-2 31830 DC I, ' 31840 OPFll OSA ZEPo PAGE 126510 12666 12678 12690 12702 12714 12126 12138 12750 12756 12758 12710 12782 12194 12802 12802 12819 12824 16 45 16 26 11 12826 12838 12850 12862 12814 12886 12898 12910 12922 12930 12942 12954 12966 12918 12990 13001 H 13001 13006 13011 13012 ,ZEPO+l,INPUT2+2*61-2 13017 11 24 41 42 16 21 17 49 12819 12690 12819 12810 12806 12816 12806 12558 000M7 12819 00014 12819 000-1 000-2 12811 01100 5 13070 13010 12546 1215P -2300 02381 H061 00000 16 2 5 11 15 lit 47 11 17 11 49 17 15 16 49 21 49 12918 02419 12546 J2997 03398 00001 09721 J0750 12930 01200 12546 H013 125106 H029 12546 H045 129510 12546 H017 03410 00001 00565 J2977 00532 -·U50 08556 08555 1282N 5 X -3486 -3490 -3399 1 5 X -2300 -2301 -31011 1 37850 DC 1.' 13017 13022 13027 13028 31860 PFIL OSA ZEPO+2, ZEPO+6, I NPUT2+2* 70-2 13033 5 -230Z -2306 1 t' 13033 13038 13043 13044 31870 DC 150 -3417 1 25 I1>ZO SPS 11-0 FOR MONITOR II---PHASE 37880 QFIL OSA ZEPO+ 7 .lEPO+ll. PAGE INPUTZ+Zo76-2 13049 -2307 -2311 -H29 1 13049 DC 37890 37900 ACTFIL OSA 37910 DC 37920 LNTHFL OSA 37930 DC 13054 11059 13060 1 •• lEPO+l, .-. .INPUT2+2 0 73-2 21> 5 X 13065 1 •• 13065 13070 13075 13076 LNTH-4.LNTH.INPUT2+2067-2 13081 1 •• 13081 13086 13091 13092 -2301 -0000 -3423 1 5 X 3 -2383 -2387 ""3411 1 37940 • 37950 31960 37970 37980 37990 38000 38010 38020 38030 38040 38050 38060 38070 38080 38090 38100 38110 38120 38130 38140 38150 38160 38170 38180 38190 38200 38210 38220 38230 38240 38250 38260 38210 382BO • ASSEM8LE INSTRUCTION 0 INSTRN TO 0+23. AOOCOII TO .+23,AJUSr AM AOOtOW .. l0 TFM lINPR T-l.001 NSf lEPO.INTBUF TO TO lEPO+l.INTBUF+l 8TM SCAN.-.12,l 11 TR lEPO+2.CLERER+H TR lEPO+2. AOORS-It CF lEPO+2 8NF ·+2It,RlOCSW ZEPO SF 8TM TRseAN,o+I2.1 11 TR lEPO+1, AOORS-4 CF lEPO+1 8NF -+24. RlOCSW SF lEPO+l INPUT+18.8MK+6 C 8E -+36 INPUT+18,88T+6 C 8NE -+36 8TH TRSCAN, -. 12 TO lEPO+7,AOORS 0 SET THE Q-MOOIFIERS OPCOOE 8UM .+12,-5111 8Nf .+36.INT8Uf+1111 TO lEPO+ 121l1,INT8Uf+71l1 CF lEPO+ 12111 Be XM OPCOOE+12,lIl1 TYPINS TF AOORS,AOOCOW AM AooeOWoll C INPUT +16. 8B2 1309" 13106 13118 13130 13142 13154 13166 13178 13190 13202 13214 13226 13238 13250 13262 13274 13286 13298 13310 13322 13334 13346 13358 25 25 11 II> 25 25 33 44 32 24 46 24 47 13117 131Z9 02676 09721 02300 02301 06112 02302 02302 02302 13238 02300 06082 02307 02301 13298 02301 02803 13346 02803 13370 17 06082 25 13370 13382 13394 13406 13418 13430 13442 66 44 25 33 6" 26 0,2307 134510 24 13382 13418 023J2 023J2 13382 03"90 02676 02801 17 31 31 33 44 32 11 11 11 OZ676 OZ399 000-0 J0750 03598 03599 J317Q 02755 03486 00000 08318 00000 J32503486 00000 08378 00000 13513 01200 13505 01200 J3358 03490 OOO-N 036-5 036-5 00000 000-1 02676 -0011 09475 151 1620 SPS 11-0 FOR MONITOR 1I---PHAse 8 38290 38300 38310 38320 88T 38330 BMK 38340 CHKB7 38350 38360 38170 38380 38390 0 38400 FLAGGR 38410 38420 38430 38440 38450 381060 38470 38480 38490 38500 38510 38520 38530 38540 38550 38560 0 0 • SEEIH . 38570 38580 0 38590 0 38600 TRANS 38610 8HE SM 87 DAC 88T OAe 8MK CH 8NE SM PAGE CHK87 AOOCOW.l0.l0 fLAGGR 1t,88T 131066 41 13478 13490 13499 12 13514 02676 "9 13550 1t,8MK , . , 13507 I NPUT+ 14,4217,8 FLAGGR AOOCOW.5 1)514 13526 U538 01200 OOOJO 4 " 41 12 02799 13550 02676 02804 13582 13626 02805 13626 13782 13550 02806 02805 13618 31 45 49 14 46 43 49 13626 13638 13650 13662 13674 13686 13698 25 14 47 24 46 32 49 13647 13647 03598 0-0-1 01200 03599 012J5 I" OH217 01200 -0005 CHECK TO SEE IF THERE IS A FLAG OPERAND TR BNR B7 CM BE BO 87 INPUT+19.INPUT+21 .+20,1 NPUT+20 SEEIH INPUT+20.23,10 SEEIM MGRUOR ,I NPUT+ 19 FLAGGR 13550 13562 1357" 13582 13594 13606 000K3 01200 02804 SET FLAG IF IMMEDIATE INSTRUCTION TO CM BNE C 81 SF 87 TR BNR 38620 B7 38630 BO 38640 B7 38650 CM 38660 8E 38670 MGRUDR CM 38680 8NE 38690 8NR 38700 87 38110 C 38720 BNE 38730 Sf 387100 CHAR TR 38750 87 38760 BAKR C 38770 8NE 38780 BNR 38790 87 38800 C 38810 8NE 38820 A8LE TO -.21,INTaUf .+9,1,810 LlNPRT o+23,INTBUF+l LlNPRT .1215010 ZEPO+7 L1NPRT 09722 13685 0,122 02307 09722 00000 SCAN fLAG OPEllANO INPUT+19.INPUT+21 0+20, I NPUT+20 LlNPRT 0+20.INPUT+l9 TRANS INPUT+20,23,10 L1NPRT INPUT+20,71.10 ABLE 0+20,INPUT+22 A8LE lERONE+9, I NPUT+22 8AKR IEPo+l0 INPUT+l9,INPUT+Z3 TRANS+12 ZERONE+ U,I NPUHZZ ABLE o+20,INPUHZ4 lERONE ZERONE+9,INPUT+2it IERONE U18,INI'UT+20 U706 U118 13130 13738 13750 13758 13170 13182 13794 13806 13818 13826 13838 13850 II It5 49 "3 "9 14 46 14 47 ItS 49 24 47 32 31 13862 13874 13882 13894 13906 13918 13926 13938 49 24 47 45 49 24 13950 25 152 47 02804 13138 09722 13758 13706 02805 09722 02805 13950 13826 13950 13991 13882 02310 02804 13718 13993 13950 13926 13982 13991 1391Z 13968 02806 02805 02804 OOOK] 01200 OOOPI 01200 02807 02807 01200 00000 02808 02801 01200 02809 02809 01200 02805 27 nnD 38no 38850 38860 38870 38880 38890 38900 38910 38920 38930 SF !EPO TRANS IT ZERONE SF ZEPD+ll.7071.1I0 17 CHAR CNT OS 2.CHAR-l • • EVALUATE LENGTH OF OS OR DNB · DSONB 389~O 38950 38960 38970 38980 38990 39000 39010 39020 39030 39040 • 39050 39060 39070 39080 39090 39100 OSS 39110 PROS 39120 • 39130 • 39140 39150 DAS 39160 39170 39180 39190 39200 39210 39220. 39230 39240 39250 39260 39270 39280 39290 39300 NOADD 39310 39320 39330 393100 39350 39360 • 39370 • 39]80 OORG ·• · ·• BTM Tf BD CM BN TFM TR 8TM BO TO 87 13962 32 1397~ ~9 13982 32 49 U99~ 13861 SCAN,"12 lNTH.AOORS 14002 14014 "~8.INTaUF+6 1~026 LNTH.l00 •• 2" lNTH.99 lNPUT+19.INPUT+21 SCAN.n12 . . n.BSM KLRLSII. RLOCSW PROS 14038 14050 14062 l~on 1~086 14098 14110 14122 17 26 41 14 47 16 n 17 U 25 49 02300 U706 02311 13862 2 OPOPI 00000 06112 02387 03490 J~OI~ l~on 0360~ OU87 -0100 OUOO -0099 02.06 1~074 02387 02804 06112 14UO 04003 J~098 09502 08378 U,I98 ADDRESS ASSIGNEO 8V PROCESSOR TF A BO A B7 AM ITM 141)0 14142 14154 14166 lU78 14186 14191 ADDRS.ADOtOW AOOtOW.LNTH OSS.I NTaUF+5 AOORS.lNTH oSSH2 AOORS.l.10 1I NPR T. DODS 26 21 U 21 49 11 17 0]490 02676 14186 03490 14198 113490 09722 000-1 -9866 06112 02317 02387 02572 14350 J4222 03490 02387 02387 02805 02676 02459 000-0 02676 02572 000-2 J4418 02676 02387 03603 02381 EVALUATE LENGTH OF DAS BTM TF A TF BNR SCAN.n12 lNTH.AOORS lNTH.lNTH TEMPR.LNTH NOAOO.I NPUT+20 14210 1~2Z2 14234 14246 14258 17 26 21 26 45 ADDRESS ASSIGNEO IV PROtESSOR TO TO AM TF 25 25 11 26 i4270 14282 14294 14106 lUll 14330 14342 14]50 14362 14374 14386 14191 12 49 49 14293 lU05 02676 03490 02676 02676 HU8 02804 06112 14270 04003 14198 14406 17 06112 14418 26 02676 03490 SM AODCOII.I.10 8NF "2~.ADDCDII TfM AOOCOW. 99999 AOORS-4 ECLATl CF INF "24.LSTYSW WIITY AODII.S-~ BNF . . , •• LStDSW BTM FILL.ADRFIL-4 IIACD INPUT2 87 PHASEe • • DEFINE CONSTANT AND OEF INE SPEt JAl CONSTANT 144)0 14442 14414 I_ 144" 144'0 14502 14514 1452' 14"8 12 44 02676 14466 02676 03U' 14502 01416 145J1 12M6 03279 04170 000-1 02676 R9999 00000 02"-0 00100 02419 J2997 00400 TO DC +230 INTBUf., CF tCOMER TFM SFUG+ll. 00000 8TM ICAN.utz TF LNTH.ADORS CM lNTH.51 8L ·.24 TFM lNTH.50 TR lEP0-1.CLERIR UPO+ 51.lNTH+ 1 TO ZEPO SF TFM SFUGH ..... 10. 87 TRREt+JZ CCOMER CM INPUT+22.23.10 TRREC+24 BE 8M TRREC-72 CM INPUT+22. 20.10. 8NE TRREC ... SF teDMER TFN SFLAG+l. 32.10. TRREt 87 • • COLLEtT CONSTANT • SFUG+ U.I NPUT+22 TF TO ZEPD+51.INPOT+22 tM INPUT+22.60.10 •• 24 8P SF ZEP0+51 TR lEPO. ZEPD+ 1 TUEC TR IIIPUr.19.INPUT+Zl INR C:COMlII.INPUT+Z2 SFUG Sf UPO+SO CM --1.34.10 INE . . 72 INF "J6.1IP0+50 INF . . Z4.tcOllER ZEPO+49 SF lIPO.50.lNTH+l TD lU46 lUll 14570 14182 14594 14_ 14611 146M 14642 I . .M 14666 1. .71 1. .90 1. . . . 14110 14722 14n4 14n6 14111 14no 14712 14569 14698 lU97 06112 OUI7 81311 14642 02317 02299 OUIl 81380 14117 lU14 02807 03603 00000 -0000 dU94 03490 -0051 01300 -0050 02712 01311 00000 OOOMl A SM 87 TR BTM BO m 87 "23. AOOCOW 0+23. JSTBL AOOCOW,,10 AODRS. AODtOIl AOOCOII.TEMPR AOOCOII.2.10 PROS INPUT+19.INPUT+21 SCAN •• +12 OAS+60.BSW KLRLSW.RLOCSW PROS Z1 n 17 41 25 02806 "4374 09502 01378 DEfiNE ORIGIN 8TM SCAN._H2 153 PAGE 1620 SPS 11-0 FOR MONITOR II---'HAII I 39390 39400 39410 39420 39430 39440 39450 39460 39410 39480 39490 39500 39510 '9520 39530 ]9540 39550 39560 )9570 39580 39590 39600 39610 39620 ,39630 39640 39650 39660 39670 39680 39690 39700 39710 39720 39710 39740 39750 39760 39770 39780 )9790 39800 39810 39820 39830 398~0 39850 39860 39870 39880 39890 39900 39910 39920 39930 39940 ·_ TF ADOCOW.ADORS SET ADORE 5S COUNTER TO NEW VAlUI · DC tHANGE SF TO NOP IF -. SF ON UNITS DIGIT &IF CON IGNORE. CHANGE NO' TD SF 14790 14802 1"-14 l..-a6 1"-" 1 •• to lU62 lU14 1..-. . 14". 14910 14922 14'14 14_ 1495. 154 16 II 44 38 44 17 39 49 Z5 II 16 17 16 •• 47 16 J1 Z5 32 16 49 1. .6 4' 14 47 32 16 4' . 26 Z5 14 32 J1 3l 41 32 lUI' 14190 02807 141.2 14"8 14817 14862 14197 0235. 02101 14850 Dun onoo 62804 146..' onso 14 14897 47' 14912 44 1495. 44 ,1495a J2 02349 II 02350 OOOK] 01200 01100 OOOKO 01200 00000 OOOLl G2807 02807 00000 01100 00000 02301 02106 02807 00000 000L4 01200 02350 14698 00000 02388 29 1620 SPS 11-0 FOR MONITOR [[---PHASE B 39950 39960 39970 39980 39990 TOM SF C BNN TF TFM 5 TR 80 SF BNR CF BNR ~OOOO ~OOIO ~0020 ~OO30 ~0040 40050 "0060 ~0070 40080 • "0090 • ~0100 • 40110 GOAHO 40120 ,,0130 40HO 40150 "0160 40110 40180 DSC 40190 "0200 40210 40220 "0230 40240 40250 PRDCSA "0260 CHECK 40210 "0280 40290 "0300 • 40310 • 40320 • 40330 "OHO 40350 40360 ,,0370 40380 "0390 --FLIP "0400 DOoSF 40410 oOCoNF "0420 PDSAF 40430 PCONF 40440 lINP 40450 OSB 40460 lINKSF "OHO CALLEX 40480 TRA 40490 MACRO 40500 OSA PAGE OUMPI+ll"ll ZEPO LNTH,INTBUFH 1~910 -+2. LNTH,INTBUF+~ .+3S.lEPO+50 .+23,LNTH 1~982 IS 32 1~9H 2~ 15006 15018 15030 46 26 16 22 31 150~2 ZEPo .+24,OC +23 ZEPo+I "2~,lEPO+l ZEPO+l CHECK ,INPUT+22 15054 .15066 1S018 15090 15102 1511" "5 15126 15138 15150 15162 26 21 26 11 1511~ ~3 15186 15198 15210 15222 21 43 32 ~5 33 03511 02300 023B1 15030 02381 15065 15065 02300 15090 02301 15114 02301 15306 000000000 03602 01300 03602 -2350 02381 00000 14569 00000 02301 00000 02801 OH90 02676 03819 03819 15210 OH90 15222 OH90 02220 03869 03869 02616 02381 02616 000-1 30 ADORE 55 ASSI GNED 8Y PROCESSOR TF A TF AM BD A B AM TR TF 5 BNF BNR AoORS,ADDtDW ADDCDW, LNTH LSTAD,ADDCOW LSUD ,1,10 DSC,DC +23 ADDRS.LNTH DSC+12 ADDRS,ltlO OUT+2,lEPO+l FRSHD,LSTAD FRSTAD ,lNTH -.36,OUMP1+11 TOM DUMPI+ll,l,l1 lINPRT ,DOCON INPUT+19,INPUT+23 SCAN,·+12 GOAHO,8SW KlRLSW,RlOCSW 1523~ 152~6 15258 15210 15282 15294 15106 15318 15330 15342 -+2"-, ZEPO+l 8TM TR 8TM 80 TO ~9 11 31 26 22 ~4 1529~ ~5 1529~ 15 03511 09122 02804 06112 15126 17 31 11 43 25 O~003 1~569 02381 00000 000-1 02301 03819 02381 03!>!1 02301 OOOOJ -9982 02808 J5330 09502 08378 ADDRESS ASSIGNED 8Y PROGRAMMER Tf LSTAO ,ADDRS Bo *+32,OC +23 AM lSUD .lolO 81 OSC+12 A lSTAo ,LNTH 87 OSC+12 8RANCH TABLE 8TM lINPRT, ODDS 8TM lINPRT,DOCOIl 8TM 1I NPRT, PDSA 8TM 1I NPRJ, PCON 8TM lINPRT,oOINST 8TM GETT ,oS8f 8TM GETT ,LINKS BTM GETT.CAlEXT BTM GIT,MTRA BTM GIT,MACROF 8TH GIT,oSAF 1535~ 26 15366 15318 15390 15398 ~3 15~10 l5n8 15430 11 15~~2 11 11 11 11 11 11 09122 09122 09122 09722 09122 09620 09620 09620 09516 09516 09516 17 11 11 11 17 17 11 11 11 11 09516 09516 09620 09620 09620 09620 09620 09620 09620 09532 34 15118 15718 00000 00000 14 00101 00102 00500 00000 06112 02381 -9734 02eo~ 02806 -9110 09502 -0001 03490 00000 02806 1545~ 15~66 15418 15490 15502 15514 15526 15538 03490 ~9 03819 15398 03879 15222 21 03819 02381 ~9 15222 11 11 11 11 11 1~569 000-1 -9866 -9982 JOl66 J0086 J0150 -9722 J"692 J~920 Jlt416 J3122 J3406 155 1620 SPS lI-il FO" 40510 40520 "0530 40540 40550 40560 "0510 "0580 40590 ,,0600 "0610 40620 "0630 OEND ooA DGM OVlC RSTR SAVE OMES DoTCl DAC MAC2 • F2 406~0 ,,0650 5U82 40660 ,,0670 40680 40690 40100 ,,0110 i '---PHASE 8 PAGE GIT .DfNOF GIT,DOAF GETT,OGMF GETT,OVlCF GETT, RSTRF GETT, SAVEF GETT,oMESF GETT, DOT GETT,OACF GAT ,MACR2 L DAD PH ASE 83 TO THE FILE 34 SU82,101 WN SUB2,702 TRA 15550 15562 15514 15586 15598 15610 15622 156H 156~6 15658 15670 15682. 15694 15106 15718 DOA ,O,830AO,83SCT,83MAO OJ9000-6)-9100 TCD F2 • • • DS8F "0130 40HO 40150 40160 40170 40180 40190 40800 ~0810 "0820 • 40830 • 40840 • "0850 40860 ~0870 • • • ASINE . J~030 -991~ J0010 J0686 J09~0 J1602 J3288 J3n8 J3~06 09122 EVAlUATE LENGTH OF 058 8TM TF TR BTM 8NF TFM M SF TR 8TH 8NF· SCAH •• +12 LNTH,AODRS INPUT+19,INPUT+21 SCAN,.+12 0+24,8SI/ AOORS,I LNTH,ADDRS 9S INPUHI9,INPUT+21 seAN,"12 ASINE,BSW 09122 11 09n~ 26 097~6 31 11 0975e 09110 09182 091M 09806 09818 09830 23 098~2 ~4 0985~ 21 26 ~~ 16 32 31 11 06112 09794 03490 02387 00095 02804 06112 09890 03~90 -98~2 09502 ADDRESS ASSIGNED IV PRoelSSOR A TF A LNTH, AODtOI/ AODRS,lNTH AOOCDI/,99 09166 09118 21 02381 03490 02616 02616 02381 00099 02387 09664 00099 J54lB 02381 06112 04003 09998 02616 03490 -0001 -9938 08378 09502 -0001 02616 OOOOJ 03490 ADDRESS ASSIGNED BY PROGRAMMER TF BTM LNTH,99 GEET,OoOSF 09890 09902 40930 • "09"0 • 1t0950 40960 oGHF 40970 40980 40990 41000 41010 41020 41030 38 36 49 J5136 15670 DDRG lINPRT ~0120 40880 40890 40900 40910 40920 "CiarY~ 8TM BTM 8TM 8TM 8TM 8TM 8TM 8TH 8TM BTM 26 11 DEFINE fiLE GRDUP MARK TFII 8TM TO 8Nf AM TF TDM UITHtl seAN,o+12 IILRLSW,RlOCSW . . . . ,8SW AOOeOI/,1 ADORS ,ADOCOII TF 'UTAO 09914 09926 09938 099!10 09962 099n 09986 09998 IlLRLSlI,ltU ,AOORS .'~ ,. 16 17 as 4~ 11 26 15 26 0~003 03869 31 41040 41050 41060 41070 41080 41090 • 41100 • 41110 41120 41130 41140 41150 41160 41170 41180 41190 41200 41210 41220 41230 41240 41250 41260 41210 41280 41290 41300 41310 41320 HHO 41340 4\350 4131>0 41310 41380 41390 41400 41410 41420 41430 41490 41500 41510 41520 41530 "IHO 41550 41560 41510 41580 H590 41600 41610 41620 41630 41640 TF All TO TOM BTM 25 15 11 03819 03819 02220 03511 09664 03490 -00-1 02561 OOOOJ J5454 10070 17 10082 25 10094 26 10106 32 10118 33 10130 4" 10142 32 10154 15 1011>6 31 10118 17 10190 21> 10202 31 10214 16 10226 14 10238 41 10250 12 10262 22 10214 16 10281> 44 10298 44 10310 26 10322 21 10334 26 10346 22 10351 II 10370 33 10382 31 10394 16 10406 22 10418 ·26 10430 31 10442 11 10454 33 10466 26 10418 33 10~90 32 10502 31 10514 11 10526 45 10538 49 10546 Jl 1055B 11 10570 21 10582 49 10590 16 10602 21 10614 44 10626 21 06112 0"003 10601 10491 10490 10166 10490 04003 02804 06112 02381 02218 10508 02387 10286 02387 03490 02381 10382 10334 10601 10601 03819 03819 03819 10491 02300 10496 10496 10525 02804 06112 034B6 02350 02341 -0000 -0000 10508 10546 10590 02804 06112 02381 10226 03490 03819 106)8 02616 J0082 08318 03490 00000 00000 09502 00000 OOOOJ 02806 J0190 03490 02713 -2220 -0050 01100 OOONO 02381 -0050 10491 10490 02616 02387 10601 02381 -0001 00000 02714 -2351 03490 03490 02806 J0454 00000 03490 00000 00000 10490 -0000 02805 31 02301 03869 03869 09664 0 0 10709 10121 02676 02711 0)169 02616 03879 02300 06112 10818 03490 03486 02302 02804 06112 10010 10022 10034 10046 10058 lSTAO ,AOORS lSTAD 01,710 OUT+2,SPSGM oUMPI+II,I,l1 GEET,PCONF 26 11 DEFINE VARIA8lE LENGTH ADDRESS CONSTANT • oYLCF 8TM TD TF SF CF 8NF oYASGN SF TOM TR BTM TF TR TFM CM OVlP 8NP SM S TFM BNF BNF TF A TF S AM CF TR TFM S TF TR BTH CF TF CF OVSF SF OVTR TR OVAD AM 8NR 81 TR 8TH A 81 OVADBF TFM A BNF A SCAN. -+12 KLRlSW,RLOCSW OVA08F+ 11, AoORS oVSW2 oVSWI .+36,8SW OVSWl ••• MACHINE ASS IGNS ADDRESS KLRLSW,l.ll INPUT+19, INPUT+21 SCAN, "12 LNTH, ADORS OUT. ClERER+l DYTR+I>. OUT+2 LNTH, 00050 .+",8 LNTH,50,10 AOORS, LNTH LNTH,50 *.8*12. DVSW2 •• 36. OVSWI OVA08F+ll.AOOCOW OVA08F+l1, lNTH lSTAO , OVADBF+ll LSUO • LNTH LSTAO , 1 OVSW2 ZEPO. CLERER+2 DVSF+6, ZEPO+51 OVSF+6, AOORS OVAD+ll, AOORS INPUT+19, INPUT+21 SCAN, _.12 AOORS-4 ZEPO+50, AOORS ZEPO+50-9 00000 •• 2 a-_,DVSF+6,211 OVTR+6, 00000 *+20, INPUT+20 OVAD8F INPUT+19, INPUT+21 SCAN, ... 12 lNTH, AOORS DVlP AOORS, 00000 LSTAO , LNTH a+24, OVSWI AOOCOW, LNTH 02806 J0570 03~90 -0000 02387 10490 02381 t 5. '1 PAGE 1620 SPS 11-0 FOR MONITOR II---PHASE 8 41650 41660 41610 41680 41690 41100 41110 41720 41130 4tHO 41750 41160 41170 41180 41790 41800 41810 41820 41830 41840 41850 41860 41870 41880 41890 41900 41910 41920 41930 41940 SAVEF 41950 41960 41970 41980 41990 42000 42010 420Z0 42030 42040 42050 42060 42010 420BO H090 42100 42110 42120 42130 42140 '02150 42160 42110 42180 10638 10650 10662 10674 10490 10491 10686 10698 10110 10122 10B4 10146 10758 10770 10182 10194 10806 10818 10no 10842 10.,,, 10166 10178 10190 10902 TR ZEPO+l. OUT+2 FRSTAO,lSTAO TF FRSTAO,LNTH S BTM GEET,OOCONF OVSW1 OS , OVSF OVSW2 OS • OVSF+ 1 MSTRF TO • +23. ADDCOW •• ADJUST TO a+21,AJUST •• LOCATION AM AOOCOW, ,10, COUNTER TF TEMP,AOOCOW ,AOOCOW TF FRSTAO AM AOOCOW.23 .. UPDATE lOC COUNTER BY MACRO EXPANSION TF LSTAD ,AOOCOW TR ZEPO.RSIN .. MOVE EXPANSION INTO WORK 8UFFER 8TM SCAN."12 .. FIND NUMERIC EQUIV OF 1ST OPEIUND 6NF a"21t. BSW TFM AOORS.BO CF ADORS-4 .. ,MOVE 1ST TR ZEPO+2,AOORS-4 .. OPERAND INTO MACRO EXPANSION. INPUT+19,INPUT+21 .. GO AND GET TR 8TH SCAN •• +12 .. NUMERIC EQUIVALENT OF NEXT OPERAND TF lEPO+l1,AOORS .. INTO MACRO EXPANSION ZEpO+1 CF TF AODRS,TEMP STM GEET,L1NP • MACRO EXPANSION FOLlOIIS RSIN TR 0,0 TOM 100.0 DC I, ' ·ro ."23,ADDCOW •• ADJUST TO AM TF TF AM TF TR BTM CF TR TR 8TH 8NF TFM TF CF TOM ."23,AJUST •• DC LOCATION AOOCOW, ,10, COUNTER TEMP, ADOCOII FRS TAD ,ADDCOW 400&011,35 •• UPDATE COUNTER BY MACRO EXPANSION LSTAD ,ADDCOW lEPO,SAYIN .. MOVE MACRO EXPANSION INTO WORK 8UFFER 5CAN,"12 .. FIND NUMERIC EQUIV OF lST OPERAND ADORS-4 ... MOVE 1ST ZEPO+14.ADORS-4 .. OPERAND INTO MACRO UP'NS ION INPUT+19.INPUT+21 .. GO + GET SCAN.'+12" NUMERIC EQUIVAlENT OF NEXT OPERAND •• 24,BSW AODRS,80 ZEPO+23,AOORS., OPERAND INTO MACRO EXPANSION ZEPO+19 ZEPO+ll.O" MOYE RECORD MAlIK IN nPANSIDN 1,',. TOM DUMPl+11.1.11 RSIN-24 8 • MACRO EXPANSION FOLLOWS SAVIN TOM 100.0 TR TOM 100 US 26 22 11 25 25 11 26 26 11 26 31 11 44 16 3J 11 11 17 26 DUll 26 17 02301 03490 09664 n 10914 10926 10938 ]I 10940 10952 10964 10976 109•• 11000 11012 11024 11036 lU)U 11060 11012 11084 11096 11108 11120 11112 11144 11155 25 25 11 26 26 02220 03879 02381 J5430 02616 02399 000-0 02616 02616 -0023 02616 109H J0194 09502 -0010 00000 03486 02806 J0866 03490 00000 02111 J5466 00000 00100 I 00000 00000 10963 10975 02616 02111 031n 02676 03819 02100 06112 03486 02314 02804 06112 11120 03,,90 02323 02319 02311 1 02676 02399 000-0 02616 02616 -0035 02676 11180 JI048 00000 03486 02806 Jl096 09502 -0080 03490 00000 00000 " 03511 10890 OOOOJ 00000 IS 00100 00000 00100 00000 00000 00000 15 11 26 31 11 33 31 31 11 44 16 26 33 15 11156 11168 49 11110 11192 11204 15 n 33 1620 SPS 11-0 FOR MONITOR II---PHASE B ~2190 DC PAGE 1 •• ~2200 • SUBROUTINE TO PROCESS CONTROL CHARACTER PHA 42210 ANAL CM INPUT+24,4010, 1ST CHECK IF RT. PAREN. IS PRESENT 42220 RHE ANAL4 ... NO LEFT PAREN., ERROR ~2230 TF ANALl+ll,INPUT+22 .. MOVE CHAR TO ANOTHER LOCATION 42HO TR INPUT+19,INPUT+23 .. POSITION INPUT RECORD H250 TFM '+23.CCHAR.. REGIN CHECKING CONTROL CHAR. 1ST INITITIALIZE 42260 C ANALl+ll .. , ADDRESSES. CHECK CHARACTERS 42270 ANAL 1 8E ANAL2"IO, CHARACTER FOUND 42280 CM ANALl-1,CCHAR-2~ .. SEE IF SEARCH IS FINISHED 42290 8E ANAL4 .. , YES, NO CONTROL CHARACTER fOUND 42100 SM ANALl-l,]olO, NOT FINISHED, MODIFY ADDRESS 42]10 8 ANALl-12 .. , BRANCH BACK TO CONTINUE SEARCH 42320 "NAl2 TF ANLlC+ll,ANALl-1 .. PREPARE TO MOVE CONTROL CHARACTER 42130 AM DIGITS,lol0, SET AODRESS TO MOVE 42340 TF "30,DIGITS .. DIGIT INTO OUTPUT BUFFER 42]50 SM ,,23,2010, PREPARE TO SET CONTROL CHARACTER IN OUTPUT BUFFER 42]60 ANLlC TO .. , .. , INSERT CONTROL DIGIT 42170 ANUB CM ANALl+l1,54,10,SEE IF ITS A MODE CHANGE 8E ANA.L] 42380 42390 "NUA 80 OMSNUM,N.MOAl .. SCANNING FOR NUM MOOE 42400 87 D"S81 .. , SCANNING FOR ALPHA MODE DMES2,NMOAL .. CHANGE FROM ALPHA TO NUMERIC 42410 ANAll 80 42~20 8 DMSNM1, .. CHANGE FROM NUMERIC TO ALPHA 42HO ANAL4 80 ANALH, NMOAL .. CHECK TO SEE I F ALPHA OR NUMERIC 42~40 TF '+18,DIGITS .. PREPARE TO CLEAR lOCATION PREVIOUSLY SET WITH 7 4H50 TOM ... CLEAR LOCATION 4H60 ANAL~I AM DIGITS,lol0, SET IN NEXT LOCATION 42470 TF '+l8.0IGITS 42480 TOM • ,t 42490 OSC 1,' t- . 42500 42510 42520 42540 CF 8 DSC I DC N1 OSC 42550 DC 42530 34 11216 11218 11230 11242 11254 11266 11218 11290 11302 11314 11326 11338 11350 11362 11314 11386 11398 11410 11422 1143~ 1l~~6 11454 11466 IH18 1149D 11502 115H 11526 11538 115~9 ANAL", RESET STRAY PAREN SWITCH "NUA 1.1 11550 11562 11514 2,51 11516 1,3 11577 2,43 11519 02809 11418 11301 31 02804 16 11289 24 11301 11350 14 11289 ~6 11418 12· 11289 49 11218 26 11409 11 09526 26 11404 12 11409 25 00000 14 11301 46 1I45~ 4] 12086 "9 11842 41 12318 ~9 12D14 H 115H 26 11508 15 00000 11 09526 26 11544 15 00000 1 14 41 26 "6 33 ~9 11218 11434 I 000-4 01200 02807 02808 J1600 00000 012-0 J1576 01200 000-3 00000 11289 000-1 09526 000-2 00000 000N4 01200 09515 09515 OODDO 09515 09526 00000 000-1 09526 00000 00000 00000 ] M] 42560 DSC 42570 DC M2 DSC 1,4 11580 2.42 11582 1,5 11583 ~ 42580 5 DC 42590 2,41 11585 42600 MI DSC 8 1,8 11586 42610 DC 2,59 11588 42620 N9 DSC 1 1.7 11589 2 2 159 1620 SPS 1/-0 FOR MONITOR II---PHASE B 42630 42640 DC 02 OSC 42650 DC 42660 42670 PAGE 2,62 11591 1,6 11592 2,63 1159~ DSC 2 1.2 11595 DC 2.54 11597 1.9 11598 6 0] N~ 42680 OSC 9 DC 2,46 M6 • PROGRAM TO PROCESS DMES, PHAsea DMESF 8TM SCAN,"12 .. EYALUATE ADDRESS OPERANO TO FIND NUM. VALUE TOM DMESWol.ll,SET SWIVCH TO REPLACE -WITH TDM SMODE, .. RESET STARTING MODE SWITCH TR OUT,CLERER.. CLEAR TR OUT+50.CLERER+I.. OUTPUT BUFFER TFM DIGITS,OUT+I .. INITIALIZE BNR "2401NPUT+20 .. CHECK TO SEE OF BREAKER A RM B DMS!R1 TFM MODEI+6.DMESO .. FIND STARTING IIODE BTM NODE,"12 BNF DMESA,8SW,.ALPHA CHAR. IN FIELD, ASSUME ALPHA NODE. CHECK TDM KLRLSW.I,11 TD o+2],AODCOW .. TO SEE IF ADDRESS OP PRGRANMER OR PROCESSOR TD '+23,JSTBL .. ASSIGNED PROCESSOR IF NO lUNCH FROM PREV INST. AM ADDCDW .. ID,ADJUST LOCATION COUNTIR TF ADDU,ADOCOW .. SET ADDRESS OF MESSAGE TO 2ND DIGIT SN ADDCOW,2.1D. SET LaC COUNTER TO LOC IEFORI MESSAGE DMESA TFM 1I00II+6,DIIES8.. SEARCH FOR COliMA 8TM IIODE,MODE.. ENDING FIELD DMES8 TDM NMOAL,.. SET SWITCH FOR ALPHA .FIElO. DMS81 BTM DTR,OMEst .. SCAN IIUSAGE OPERAND AM DIGITS.I.I0. TF "18,DIGITS .. PREPARE TO MOYE IN 0 TR ,DMS82-2 AM 01GITS,2,10. LEFT PAREN UPDATE DIGIT COUNT BY Twa TF o+lB,DIGITS .. ALLOW FOR CONTROL CHAR IN OUT PUT BUFFER TDM ... INSERT EVERYTHING EXCEPT FINAL CONTROL DIGIT OSC 2,' ,--2 0' DMSB2 DSC 1,7,. 7 BNf ANAL,ANAL •• STRAY PAREN NOT FOUND IF IRANCH 8 ANAL~... STRAY PAREN DORG DMESC AM DIGITS.Z.IO. UPDATE DIGIT COUNT BY 2 TF "l8,DIGITS .. ALLON FOR CHARACTER IN OUTPUT BUFF" TF .INPUT+20.. MOVE CHARACTER fROII INPUT TO OUTPUT 8UFF SM --6,1010, SET UP ADDRESSES TO CUA. FLAG TF -.11,--11" + CLEAR CF I OMS81 .. , CONTINUe SCAN 42690 CCHAR 42100 42110 42120 42730 42140 42750 42160 42710 42180 42190 42800 42810 42820 42830 42840 42850 42860 42810 42880 42890 42900 ~2910 42920 42930 42940 ~2950 42960 42970 42980 42990 4]000 43010 43020 43030 430~0 43050 103060 43070 43080 43090 .-] ... 2 11600 11602 11614 11626 11638 11650 11662 1161~ 11686 11698 11110 11722 11134 11746 11758 11110 11112 1179" 11806 11818 11830 118102 1185~ 11866 11878 11890 11902 1191~ 2 11 15 15 31 n 16 ,,5 49 16 06112 0]851 09516 02218 02268 09526 11698 12902 ~4 13076 13022 11806 15 0~003 17 J16l't OOOOJ OODOO 02712 02113 -2219 02805 00000 J2026 J1122 09502 OQOOJ 02676 25 IH69 25 11181 02~59 11 02616 . OOD-D 26 0]"90 02616 12 02676 000-2 16 .13076 J1830 17 13022 J3022 15 09515 00000 17 13136 JI946 11 09526 000-1 26 1188~ 09526 n 00000 11923 11 09526 000-2 26 11920 09526 15 00000 00000 1192] 2 11925 11926 119~8 11218 ." 49 11218 11478 00000 11 26 26 12 26 31 49 09526 11976 00000 11916 12D12 00000 11842 000-2 09526 02805 000-1 11976 00000 ODOOO 119~6 11~6 11958 1191D 11982 1199~ 120D6 12018 160 35 1620 SPS IJ-o fOR MONITOR I1---PHASE B 103100 103110 103120 Hll0 103140 43150 43160 103170 103180 103190 43200 43210 103220 43230 43240 43250 43260 103210 43280 43290 43300 U3iO 43320 43330 43340 43350 43360 43310 43380 43390 43400 43410 43420 431030 41440 43450 43460 43410 43480 43490 43500 43510 43520 43530 43540 43550 43560 43570 43580 OORG DMESD BNF TF AM DMESI TOM DMSNMI TOM DMSNUM BTM AM TF TDM OSC 8NF PAGE '-3 12026 12026 12038 12050 12062 12014 12086 12098 12110 12122 12133 oMES1.BSW •• IS IT A PROGRAMMER SPECIFIED ADDRESS AooRS.AoOCOW •• NO. MOVE LOC. COUNTER INTO ADDRESS LOC. AODRS,l.lO SMOoE.I.IO. SET SWITCH FOR NUM STARTING MODE NMOAL.l.IO. SET SWITCH FOR NUMERIC MODE OTR.OMES11 •• SCAN MESSAGE OPERAND oIGITSol.IO. lEFT PAREN FOUND. UPOATE OIGIT COUNT BY 2 '+18.oIGITS .. AllOW FOR CONTROL CHAR. IN OUTPUT BUFFER • •• MOVE TO BUF.FER 1,' ,. ANAL.ANAL •• STRAY PAREN NOT FOUND IF BRANCH ANAL4 ••• STRAY PAREN B CORG oMES11 CM BH CM BH CM BL CM BH SF oMS12 AM TF TO 1213~ 12146 12154 12154 12166 12118 12190 12202 12214 12226 12238 12250 12262 12274 12286 122.8 12306 12306 12318 12330 12342 12354 12U6 123T8 '-3 INPUT+20.19.10. CHECK TO SEE IF CHAR IS NUMERIC oMSER2 ••• NOT NUMERIC. ERROR INPUT+20.69.10 OMSI2 ... NUIIERIC IF BUNCH INPUT+20.50.10. CHECK IF -OTHRU-9 OMSER2 ... NON-NUMERIC IF BUNCH INPUT+20.59.10 OMSER2 ••• NOT NUMERIC IF lIlANCH INPUT+20 0IGITS.Io10. UPDATE DIGIT COUNT BY ONE . . 18.DIGITS .. ALLOW FOR DIGIT .INPUT+2D.. . MOVE DIGIT TO OUT PUT BUFFeR B DMSNUM... BRANCH BACk TO CONT INUE SCAN DORG '-3 OMSER2 8TM oMSR2.oMSNUM .. PUT END OF MESSAGE IN OUTPUT IUFFER oMES2 TF "35.0IGITS .. NUMERIC TO AlFA MODE CHANGE. SM . . 23.0UT+I.. SEE IF ALPHA STARTS IN EVEN LOCATION TFM DMSV ••• INIT. SAVE LOC WITH DIGIT COUNT BNF DMES21.8SW .. SEE IF THERE IS A PROGUIIMER SPEC AOOIIISS A DMSV.AoDCOW •• NO. ADD LOC COUNTER FOR LOC OF LAST DIGIT B7 DMES22 oMES21 A DMSV.ADDRS .. ADD PROG ADDRESS FOR lOC DF LAST DIG.IT SM DMSV.l.l0. ADJUST FOR NUMERIC STARTING IIODE Bo '+24.SHODE .. CHECK SURTING MODE SM DMSV.l.l0. ADJUST FOR ALPHA STARTING MODE oMES22 TO '+23,DMSV .. SEE IF CHAR WILL START IN EYEN LOC TO EVODD+l.EVDDD DMESB.EVODD+I .. Will START IN EVEN LOCATION Bo AM DIGITS.I.10. INSERT TF .+18,OIGITS, .TOM f f 11 B DMESB oORG 0+1 2,-0, --] DC DC 12386 1239. 12410 12422 12U4 12446 12458 12470 12482 44 26 11 15 15 11 26 15 12062 03490 03490 09516 09515 13136 09526 12128 00000 44 49 11218 .1I47B 11218 00000 lit 46 02805 12306 02805 12262 02805 12306 02805 12306 02805 09526 12292 00000 12086 000P9 01100 00009 01100 OOONO OUOO 000N9 01100 00000 000-1 09526 02805 00000 12'20 12353 12353 09521 12386 09521 12434 J2086 09526 -2219 -0000 09502 02676 09521 03490 000-1 09516 000-1 09521 02469 02470 000-1 09526 000000000 17 36 09502 02616 000-1 000-1 000-1 J2154 000-1 09526 00000 1 1~ 46 14 U 14 46 JZ 11 26 25 '" 17 26 12 16 •• 21 4' 21 12 U U 21 ZI U 11 26 124'~ 15 12506 12518 12514 4' 09521 12434 09521 12457 02470 11830 09526 12500 00000 11830 2 3,2' ,- 12511 43590 oMER1N TOM 43600 DC OUT+l00 •• PUT IN NUMERIC 1.' ,- 12518 12529 15 02318 1 00000 43610 OUT+l0l ••• END OF MESSAGE 12530 15 02319 00000 -2' , TOM 161 1620 SPS 11-0 fOR MONITOR II---PHASE 8 43620 DC 43630 43640 OHERlA TFM 43650 CF 43660 TOM 43670 DC 43680 43690 TOM DC , 43100 OMER1C TFM 43710 B 43720 OMSENO CM 4.3730 8NE 103740 BD 43750 TFH 43760 DC 43770 43780 43790 43800 43810 43820 43830 "3840 43850 43860 43870 43880 43890 43900 43910 43920 43930 43940 43950 43960 43970 43980 43990 44000 44010 44020 44030 44040 44050 44060 44070 44080 44090 DSC 0' CF TFM SN TF AM 8NF A A 8 OHENOI A SH 80 SH OMEND2 TF S Tf NOP NOP 8TH DMSERI 8TM OS DHSR2 AM TF TOM DC 12541 DMER1C 12542 12554 12566 12511 12119 4. 11 onn OUT+l0l 12590 12601 15 02319 1 00000 DIGI TS.l00 •• SET DIGI T COUNTER TO 100 12602 12614 12626 12611 12610 126" 12671 16 49 0.526 12110 09526 12698 12902 02223 2 -0100 00000 -2U9 01200 09516 -DODO OUT+I01,,8. CLEAR LAST FOUR DIGITS FOR END OF MISUIII OUT+98 OUT+99" .MOVE RH·FOR 1.', • 1,',. .+96 DIGITS,OUT+l •• CHECK IF OPERAND PRESENT '+60, •• ERROR IF NO MESSAGE OPERAND PlIESENT DNSER1.SMODE .. CHECK MODE OUT.' •• , MOVE IN ALPHA END OF MESSAGE 2.· •• -2 2.' .--1 ... 1,' .- DIGiTS.l.l0 o+ll.DIGITS INSERT DC 16 11 12674 12616 1269B 12110 12722 12n4 127" 12711 12770 12712 12794 12.06 12818 12130 12'42 UI14 lZ166 1 ZITI 12190 12902 12918 12920 12932 12944 12955 12956 12961 12910 12991 Tf I '+18.DMSR2-1 12992 DC 3.-0· •• 13015 lJD04 .. 2 12602 02319 OU16 00000 0-000 00000 00000 .1 14 47 43 16 12672 OUT+2 DIGITS.OUT+I01 DIGITS. OUT+l •• SUBTRACT STARTING LOCATION OF DIP _FER lSTAD .DIGITS .. HOVE DIGIT COUNT FDR OUTPUT LSTAD 01010. ADD 1 FOR RT LOC +1 DMEND1.8SW •• CHECK fOR PROGRAMMER SPECIFIED ADDRESS lSTAD .AODCOW •• fORH RT lOC.l ADDCOW.DIGITS .. UPDATE lOC COUNTER TO LAST DIGIT Of CONSTANT DHENDZ lSTAD .AoORS •• INITIALIZE lEFT MOST WITH PROG SPIC ADDRESS lsao .1.10. ADJUST FOR NUMERIC SURTING MODE >+2ft.SHOoE .. CHECK IF SURTING MODE ALPHA LSTAD ... 10. UES. ADJUST FOR ALPHA SURTING IIODE FRSTAD .LSTAD •• FORM LEFT MOST FRSTAO .DIGITS •• ADDRESS LNTH. 01 GITS.. I NHUL I I I lEI'lGTH LOC IIESOUT+6.INPUT2+5 MESOUT+ll.0U'+2 GEET.PeONF OMSR2 .DMSENO+60, •• t PUT END OF MESSAGE IN OUTPUT IUFFER 5 DIGlTs ... 1D HI8.DIGiTS INSERT . 1.·... .• AM TF TOM PAGE 1,',. 2 33 16 12 Z6 11 44 Zl 21 •• 21 02220 09526 09526 03879 03879 lUI2 0\87' 02676 12130 03179 12 03119 43 12 12130 03879 03169 03869 02117 10472 10417 09664 12920 Z6 22 26 41 41 17 17 11 26 15 11 26 15 26 4' 00000 -2319 -2219 09526 000-1 09502 02676 09526 00000 01490 000-1 09516 000-1 03879 09526 09526 012'4 02220 J54'4 J2686 5 09526 12950 00000 1 000-1 09526 00000 09SU 12916 00000 1 000-1 09526 00000 13010 00000 3 12919 00000 37 1620 SPS 11-0 FOR MONITOR II---PHASE 8 ~~100 ~~1l0 'o'H20 44130 44140 "'1150 ""160 ~4170 4~180 4'1190 44200 "4210 44220 "4230 442"0 44310 44320 4'1330 44340 44350 ~4360 t,4370 t,~380 t,4390 4HOO DC 5,0 -0000 MODE TR INPUT+19,INPUT+21" MOVE INPUT RECORD LEFT 1 CHAR BNR o+Z4,INPUT+20" ,NOT BLANK, CHECK FOR RM B OMSENO+36 CM INPUT+20,23,10, SEARCH FIELD, CHECK FOR COMMA MODEL 8E '" COMMA FaUNa, BRANCH CM INPUT+20,,10, COMMA NOT FOUND, CHECK FOR BLANK BE I'IODE" , BLANK, CHECK NEXT CHARACTER TF 0+18,MOOE-l .. , ALPHA CHAR IN FIELD, RETURN, OR CHECK 8 .,' NEXT CHAR. ACCORDING TO BRANCH • SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER OS 5 OTR TR INPUT+19.INPUT+21 •• MOVE OPERAND lEFT 1 CHAR + SEARCH TF OMSV,DIGITS" CHECK NUMBER OF DIGITS SM DMSV.OUT+l CM I NPUT+20.4,10, CHECK FOR STRAY RT PAREN BNE " H . , . NOT A STRAY PAREN IF 8RANCH SF ANAL .. , SET SWITCH FOR STRAY PAREN FOliNO 80 OMSNUM+12.NMOAl,.SCANNING IN NUMERlt MODE IF 8RANtH 87 OMS81+12". SCANNING IN ALPHA MODE CM INPUT+20.24.10. CHK FOR LEFT PAREN 8NE '+24,.,NOT A LEFT PAREN 8B •• , • LEFT PAREN FOUND TF "18.0TR-l.. NOT A I, .OR ERROR 8 RETURN PAGE 38 13020 13022 13034 13106 1311B 31 45 49 14 106 14 46 26 49 1313... 13136 13H8 13160 13172 13184 13196 13208 13220 13228 13240 13252 13264 13276 31 26 12 14 47 32 43 49 14 47 42 26 49 5 02B04 09521 09521 02805 13228 lI218 12098 11854 02B05 13264 00000 13282 00000 17 65 14 06112 13312 00319 47 133108 66 17 25 66 16 13348 06082 04003 13384 02320 66 U 46 13"08 00319 13524 02120 13046 13058 13070 13082 13094 02804 13058 126&2 02805 00000 02805 13022 1312t, 00000 02806 02805 00000 000K3 01200 000-0 01200 13021 00000 02806 09526 -2219 000-4 01200 00000 09515 OOOK" 01200 00000 13135 00000 t,""10 • 4~~20 • 44HO • 4t,4t,0 44t,50 ~OT 44'160 4'0470 44480 44490 Don '04500 H510 44520 44530 DEFINE OCTAL TA8LE 8TM BlX tM BNH 8lXM BTM TO BlXM TFM DC 4~540 BLX" 44550 CM 44560 BE 44570 OTlOOP MM '04580 BX 410590 80 44600 87 '04610 8XM '04620 SF 44630 TF 44640 8CXM 44650 OTEX BX 44660 TR 4t,670 MA ",,680 BNF 44690 A SCAN,a+12 ., 0+12,AOORS(31 XRA3,13.10 DOTI . . 12.13131 TRSCAN,*+12. , KLRLSW,RLOCSW POWER NUMBER ASSIGNED AOORS .+12,-211» •• our+ 102,010,9, SET TERM LENGTH SET TERM 1 •• 12,-1(2). , XRA3,O SET LENGTH 1.·.· OTEX OUT+l02 (21,08,10 *+12,XRAlt2. " .+20. 99( 11 .+20 *+12.-l( 1) LOOI1I OU1+102(2I,99 OTLOOP.-1131 *+12,XRA1I2. ,t OUT+2.0UT+l03121 LNTH, XRA2 *.1t8,8SW AOOCOW.lNTH INCREMENT LENGTH 13288 13300 13312 13324 13336 133'18 13360 13312 13384 13395 13396 13408 13420 13432 1344... 13456 13468 13476 FINAL lNTH INCR 13488 13500 13512 13524 13536 13548 13560 13572 J3300 03MRO 000J3 01100 OO-H J3360 08318 ODD-II 00-10 1 13 61 43 49 62 32 26 64 61 31 70 44 21 13456 13476 13488 13,,8B 001-0 02120 13432 13536 02220 02387 13608 02676 Oo-OJ -0000 01200 000-8 00L09 000R9 OOO-J 00000 00099 OO--J 00109 02L21 00314 09502 02387 163 1620 SPS 11-0 FOR MONITOR II---PHASE 8 44250 '04260 CM BNH 4~110 eo 44280 4'1290 '04300 '04700 4'0710 '04720 44730 44140 8 8NR 87 TF TOM TF AM TF S TOM 8TM 41t150 44760 44770 44780 • 44790 • 44800 • 410810 DACF 4t,820 ""830 448t,0 44850 44860 44870 44880 44890 t,4900 44910 4'0920 OMSV,lOO.9, tHECK DIGIT COUNT '+36,., lESS THAN 100. OKAY. ERROR IF NO 8RANtH DMER1N.NMOAL" TEST SWITCli FOR NUM OR AlPHA, NUM IF 8R ONERIA". ALPHA IF BRANCH FilM HEliE e+20,INPUT+20 •• FOR 11M OMSENO AOORS, AOOCOW KLRLSW,I.11 lSTAD,AOORS LSTAO, 1010 FRSTAO,LSTAD FRSTAO.LNTH DUMP1+ll.1.11 GEET,PCONF 09521 39 14 47 41 49 45 49 26 15 26 11 26 22 15 17 0966t, J5454 13748 13760 13772 13784 13196 13808 13820 13828 13840 13852 13864 13875 17 14 46 21 26 45 "9 45 1'1 46 16 06112 03490 14428 03490 02572 13828 13840 13888 03490 14576 02B07 J3760 -0051 01300 03490 03490 02805 13816 13888 13900 13912 13920 139)2 13940 13952 13964 13976 16 65 '15 49 'is '19 1'1 47 02805 13900 13920 144'10 139.0 UU2 12518 12554 13652 12626 03490 04003 03879 03879 03169 03169 03517 OOJOO 01100 09515 00000 02805 02676 OOOOJ 03490 000-1 03879 02387 OOOOJ EVAlUATE LENGTH OF OAt 8TM StAN,"12 CM AOORS,51 BNN EROAC A· ADDRS ,AOORS TF TEMPR, ADDRS 8NR e+20,INPUT+20 B7 . .20 8NR OAC2,INPUT+22 CM AOORS,O 8H EROACI TF M I NPUT+22 OAt 44930 ""940 OAC2 44950 44960 44970 44980 1,' ,* TFM BLX 8NR 87 BNR 87 t,4990 CM 45000 STCHAR 8NE 45010 TO 45020 TFM 45030 OAC INPUT+20.23.10 o+12,TEMPRI1I '+20,INPUT+lO( 11 EROAC+12 "20. INPUT+22 11 I 450t,0 INPUT+20111.34,10, STCHAl OUMP1+11.0.11 INPUT+20111 , '05050 45060 45070 450BO PAGE 13584 13596 13608 13620 13632 1364" 13652 13664 13676 13688 13700 13712 13724 13736 CM 8NE TOM TFM OAC *+32 INPUT+22(11.23,10 ERDAC+12 STCHAR+ll.INPUT+22111 INPU1+22 (11 1.· .• 1,',. 45090 STCHAI TR OU1+2,INPUT+21 45100 TR I NPUT+19.INPUT+2311I 45101 tM TEMPR.O 45102 aNH _+36 45110 CF OUT+2UI t,5120 leXM e-12,-2111 45130 INR DAU. STeMAR." 45140 • ADORESS ASSIGNED" . . . . . . . 1 X 16 13988 14000 14012 14024 14035 14 47 15 16 028-5 14036 03517 028-5 14036 14048 31 31 14 47 33 84 '15 02220 02804 02572 14108 022110 lft084 1.236 U It,060 14012 1'108'1 1401)6 14108 2 000K3 025P2 028-5 028-7 13964 02B-7 1"4"0 13963 02B-7 000K3 01200 028-7 -0000 1 X 13917 CHltK '011 ' . 02807 -0000 01100 -0000 2 OOOL" 01200 0000-0000 1 X 2 02806 028-8 -0000 01100 00000 OOO-K 11963 45150 45160 "5170 45180 45190 45200 45210 "5220 45230 45240 45250 45260 45210 45280 45290 45300 "5310 45320 45330 45HO 45350 45360 45310 45380 45390 45400 45410 45420 45421 45422 45423 4H2 ... 45425 45"26 45427 45428 45429 45430 45HO 45450 . 1620 SPS 11-0 FOR MONHOR II---PHASE B NOSINE TD TO AM TF A SM TF BD TF B1 OAe3 BTM BD TO TF OAt4 TF SM TF A BD TF AM TF S TF TF BTM EROAt TFM BNF TOM SM 8LXH 8NR B7 8eXH TFH 8eXH 8L X TFH OAt 45485 87 45490 EROAtl 8LX 45491 8NF 45492 TOM 45493 SM 45500 TFM 45510 OAt 45520 45510 45540 45550 HIO osc 45560 DSA "23,AODeow "23,JSTBL Aooeow .. l0 AODRS,AODeow Aooeow, TEMPR ADDeow,2,10 LNTH,AODeow H24,INTBUF+5 ADDRS,AODeow DAe4 SCAN,It.12 NOSINE,BSW KlRLSW,RLOCSW LNTH,AODRS FRSTAD ,ADDRS FRSTAD ,I LSTAD,FRSUD LSTAD ,TEMPR *.72,INTBUF+5 LSTAD ,ADDRS LSTAD ,I FRSUD,LSTAD FRSTAD , TEMPR ADORS,LNTH LNTH, TEMPR GEET, peONF TEMPR,lOO a+36,R2SW,. R,2SW,O., FORCE DISK ACCESS TO NEXT STATEMENT SUBIN+5,I,10 .... 12,-120(1) .. .+20,INPUT+20+120(1)., *+20 CLEAR TRAILING TRASH TO BLANKS FOR L GT CONST --20,2(1) INPUT+20+120(II,OO,10 *-12,2( 11 "12,TEMPRIlI INPUT+22( 11 1.',. OAt2 *+12, TEMPR(l) .+36,R2SW,. R2SW,Q,. FORCE DISK ACCESS TO NEXT STATEMENT SUBIN+5olol0 INPUT+22( 11 1,', .. TFM INPUT+20111,70,10, BexM --12,-2(1',. OAe2 87 FORtE ALPHA ZEROS PAGE 14120 H132 14144 14156 14168 14180 14192 14204 14216 14228 14236 14248 14260 14272 110284 14296 14308 14320 14332 14344 14356 14368 14380 14392 14404 14416 14428 1444D 14452 14464 110416 110488 14500 14508 14520 14532 14544 14556 110567 14568 14576 14588 14600 14612 14624 14635 2,-16 14636 14648 14660 14667 IORT ,00023 14673 25 25 11 26 21 12 26 43 26 49 17 43 25 26 26 12 26 21 43 26 11 26 22 26 26 17 16 44 15 12 66 45 49 64 16 64 65 16 49 65 44 15 12 16 16 64 49 40 14143 02676 14155 02459 02676 000-0 03490 02676 02676 02572 02676 000-2 02387 02676 1422B 03603 03490 02676 142B4 06112 J424B 14120 09502 04003 083.78 02387 03490 03869 03490 03869 -0001 03879 03869 B3879 02512 144D4 03603 03819 03490 03879 -0001 03869 03819 0381>9 02572 03490 D2381 DU87 02572 09664 J5454 02572 -0100 14476 04361 00000 04361 03539 000-1 14488 001K14508 029K5 14520 14488 000-2 029K5 000-0 14520 000-2 14556 025P2 028-7 -0000 1 X 2 13888 14588 025P2 14624 04361 04361 00000 03539 000-1 028-7 -0000 1 X 2 028-5 14636 13888 2 OOOPO OOO-K 10 X 165 1620 SPS 11-0 FOR MONITOR 11---PHASE 8 45570 45580 45590 ose 49 OSA OSt 2,49 ,00000 45960 45970 45980 ReTAB 45990 46000 46010 46020 DOA ,O,B4DAO,B4SCT,LINPRT OJ9063-56-9722 TCD fit DORG INSTRN BNF . .36. LSTYSW RCTY TBTY __ 9 88 DORG 14615 ADJUST AOOCOW RETURN ADDRESS SET UP BR TO lOR 14692 14104 1471' 14728 14740 14112 14764 14776 14118 SET TO TOTAL LENGTH UP ADOCO., TOTAL LENGTH BRANCH TO MONCALL IN 10RT BR4NCH INSTRUCTION B7 14800 14812 14124 14836 14848 14160 14872 14814 14896 14908 14920 14932 14944 14956 14968 14910 14992 15004 15016 15028 l!I040 15052 15064 15016 15088 41 5 X 2 -0000 -0000 1 14685 14690 14691 I, ' 45600 GET PUT LINKAGE GENERATION 45610 LINKS TO •• Z3,AODCOW,. 45620 •• 23.AJUST TO 45630 AM ADDeOW,,10. 45640 A MIO +II,ADDeow,. 45650 TF MID +18.INT8UF+6,. 45660 BTH SCAN •• +12.1 11 45670 TR MIO+19,ADDRS-4 45680 8NF '.Z.,RLOCSW 45690 SF IUD +13 45700 TF FRSTAO,AODCOW 45710 TF LSTAD,AODCOW 45720 AM lSTAD.24.10. 45730 AM AOOCOW,23.10, 45740 CF MIO +2 45150 CF MID +14 45160 TR ZEPO,MIO 45770 TF AOORS.FRSTAD 45780 TFM X,PHASE8 45790 8TM GEET ,lINP 45800 GET PUT LINKAGE GENERATION END 45810 CALEXT TO .+23,AODCOW 45820 H23,AJUST TO 45830 AM AOOCOW .. I0 45840 TFM MIO +18,MONtAl. , 45850 CF MI0 +l4 45860 CF 1410+19 45870 TR IEPO,MIO .12, • 45880 TF ADDRs,ADDeow 45890 AM ADOCOW,06.10. 45900 8TH GEET,llNP 45910 • LOAD PHASE 84 TO THE FILE 45920 F4 34 SUB4,701 45930 38 SUH,702 45940 TRA 45950 SUB4 PAGE -0565 -0023 2 14673 14678 14619 25 25 11 21 26 17 U 44 n Z6 26 11 11 13 33 31 26 16 17 25 25 11 16 33 33 31 26 11 17 34 38 J6 49 14715 14727 02676 14678 14685 06112 14686 14800 14680 03869 03879 03879 02616 14669 14681 02300 03,490 04008 09664 02676 02399 000-0 02676 03604 J476M 03486 08378 00000 02676 02676 000K4 OOOK] 00000 00000 14667 03869 -4lTO J5466 14943 14955 02616 14685 14681 14686 02300 03490 02616 09664 OU76 02399 000-0 -0796 00000 00000 14679 02676 000-6 J5466 15088 15088 00000 00000 14 00701 00702 00500 00000 13130 00000 00000 00000 OH80 00102 00108 00000 15040 n094 U09• 13106 13118 uno 13132 11111 44 34 " 42 Ul2~ 46030 106040 LINKe 106050 46060 os 46070 LINKeR BT 460ao BT 46090 OS 46100 LlNKO TFII 46105 TFII 46110 TFII 46120 BT 46130 OS 46140 lINKOR aT 46150 BT 46160 OS 46110 LINKER TR 46180 Tf A "6190 46200 Tf 106210 TF 106220 BTM ose "6230 III0es 10 DSA "62"0 "6250 SPS 11-0 full MONI TOR II---PHASE 8 DC 5,123105 JZ31o' TFM LlNPRT-l,ooeON BT LlNKER,LlNKe-1 ose PAGE , ReTAB,ReUB-l LlNKe,LJNKeR-l 5 lINPRT-loPOSA eHSYM+II,OSABOX-I lNTH,5 lINKER,lINKD-I 5 ReTAa.ReTAI-l LlNKD,lINKDR-l 5 ZEPO+I,OUT+2 FllnAO,UTAD LSUD,lNTH ADDIIS,FRSTAO X,lINKER-l eVAeT ,LINPIIT 2,-16 13138 13150 13166 13168 13180 13196 13198 13210 13222 1323" 13250 13252 13264 13280 132B2 13294 13306 IU18 13UO 13342 13354 IORr ,00023 13360 2,"9 13360 13365 13366 16 27 DS. IOGr ,00000 lU72 106210 ose 1,' 13312 13377 13318 106280 MBUK! OSA 0.123<1 lun 09721 13282 27 21 13i51 02220 03879 02387 03869 13281 -9122 2 , X 2 -on6 -0000 1 5 x I,' "6300 MBUK2 OSA 01234 13389 "6310 ose 1,' 13389 13390 -123" 1 <16320 IIBUK3 Dse 12 ose 2,12 13391 2 I, ' 13393 1,1 1339" "6360 AOOBKT DC 5,123"5 J23"5 13093 5 X ose 1,0 J0166 -9502 -0005 13191 -0565 -0023 2 "6290 "6]lt0 110 IG IT ose 1 "6350 DP3S11 DC 13093 13167 1309" 13138 5 16 09721 11> 10305 16 02387 27 13282 5 21 1309" 27 13198 5 31 02301 26 03869 Zl 0,3879 26 03490 26 . 04008 17 12758 2 lun 1338<1 <16330 111111 -9982 13137 5 109 46260 102 13136 -123" I 5 X 13395 1. 13<100 5 167 1820 SPS 11-0 FOR MONITOR II---PHASE B <16370 SVAOO 2,12 DC J2 "6380 IIZOIG DC 2,1Z J2 "6390 MACR2 CF OP3SW e "Z3,INPUT+l" "6"00 461010 BI REG,OIZ"",10, 46lt20 e .+23,INPUT+16 81 eAl,OlZ53,10, "6"30 e u23,INPUT+12 46"40 106450 8NI lINKS,OIZ"",IO, CARD TAPE TYPE DEFINERS "6"60 46"70 BrM seAN •• +l2 NOOPP,8S11 BO 46"80 TO ItlRLSlI,RLDCSW 46"90 TFM SVADO,OO,IO "6500 TF AODIK T. ADDIIS .. "6510 B7 GO "6520 46530 NODPP TF ADDBKT,ADDCOII 46540 rFM SVAOO,OB,10 AN "6550 ADOBKT,01,10 46560. GO BTN 'RseAN,.H2,7 11 TR MBUltl-12 48260 N03 TR OUT+2.MRM 48270 TOM DUMP 1>11.1,11 48280 TFM LNTH.Ol 48290 BTM lINKCR,.+12 48300 BTM GEET. PHASEB 48310 DC 5 .123~5 J2345 48]20 LSTCAR TFM lCHAR,O,lO, 48330 8NR -.20,INPUT+20 48340 B7 NOCAR 48350 -+23. INPUT+20., C 48360 81 -+48,01200.l0. 48370 C -+23, INPUT+20., B[ 48380 NOCAR.01223,10, 48390 TF lCHAR,INPUT+20,. 48400 TR [NPUT + 19. I NPUT+21 81 LSTCAR+12 "8410 48420 NOCAR TF *+18,lSTCAR-I 48430 8 00000 PAGE tEST END OF 8LOCK NEXT BLOCK 14922 149]4 46 31 14978 14078 14866 14855 14810 15888 15885 1H83 13379 06082 13385 14946 45 11 49 26 32 26 14093 00000 15888 00000 J5038 03486 33 31 16 11 03869 03490 03879 03819 02676 13356 13368 13373 02300 04008 09722 02676 02676 02676 000K4 DOOJ9 00000 00000 00000 13354 J5182 J0750 15182 26 15194 11 15206 16 15218 31 15230 31 15242 11 15254 43 15266 31 15278 25 15290 15 15302 11 15314 16 15326 11 15338 .31 15350 15 15362 16 15374 11 15386 17 IH02 03819 02676 02387 02220 02222 13168 15338 02220 09503 03598 02676 02387 13252 02220 03517 02387 13168 09664 5 02676 000-7 -0007 13391 13379 J5254 09502 13385 08378 00001 000-5 -0005 J5338 1339.3 OOOOJ -0001 J5386 15404 15416 15428 15436 15448 15537 15436 15516 15459 15496 15483 15516 15531 02804 15416 15534 00000 000-0 02805 14958 14970 14918 14990 15002 15014 15026 15038 LOAD EQUIV NUM 15050 15062 15074 15086 15098 15110 15122 15134 15146 15158 15110 SET TO TOTAL LENGTH TEST 3RO OPERAND OUTPUT 3RO OPERAND BLANK THE ONE CHAR BUCKET TEST BLANK TEST COMMA 15~60 15472 15484 15496 15508 15516 15528 SAVE LAST CHARACTER 33 17 31 26 26 26 11 11 33 33 16 45 49 24 46 24 46 26 31 49 26 49 46 01200 14094 14078 000-4 -~170 02805 012-0 02805 012K3 02B05 02806 IS1t03 00000 17 I 1620 SPS I [-0 FOR MONITOR II---PHASE 8 48440 48~50 PAGE OORG '-3 LCHAR DC 2.12" J2 DC 5.123'05 J2345 ,,8470 PC All TR COll-lB. THINGS-20 48480 TR ALPHSN.lEROS .. 48490 BNR .+20, [NPUT+20,. 48500 B7 PCALll 48510 CM I NPUT+20.23,10, 48520 BE PCAlll 48530 CM INPUT+20.00.10 48540 8E PCTR 48550 TF COll,INPUT+20 48560 CF COll-l 48570 TR COll-17 .COll-15 48580 TO IOENT-l.INPUT+20 48590 TR [OENT-6,IDENT-5 48600 CM INPUT+20.69,IO, •• 24 48610 8H 48620 TDM ALPHSW,I.l1, 48630 CM COll-17,7.10 48640 BNE PCTR 48650 TR ALPHSW.lEROS 48660 8TM ER,*+12 48670 B7 lILCH 48680 PCTR TR INPUT+19,INPUT+21 48690 B PCALl+24 48700 OORG '-3 48710 PCALlI CM COLl-17.06,10 _+44 48720 8E 48130 TOM COlL.O 48740 TR COll-17.COLl-15 48750 81 PCAlll 48760 COll-13 SF 48710 lILCH 8 PCALL-l .. 6 48780 OORG --4 48790 AlPHSN DC 1.0 15536 15531 LAST CHARACTER IN OPERAND 48"60 15542 15544 31 15556 31 15568 45 15580 49 15588 14 15600 46 15612 14 1562,. 46 15636 26 15648 J3 15660 31 15672 25 15684 31 15696 14 15708 46 15720 15 15732 14 15144 47 15156 31 15168 '11 15780 49 15188 31 15800 49 15808 15808 14 15820 46 15832 15 15844 31 15856 49 15864 32 15876 49 15B83 15883 CLEAR BUCKET AND SWITCH OFF RM COMMA TEST FOR ALPHA SET AlPHA SII ON ,,8800 [DENT 15190 48810 ZEROS 15891 DC 7.000000' -00000' DSC 8.0000000' 0000000' 48820 • TO LOAD PHASE 86 TO THE OISK FILE .48830 F6 SU86.701 3" 48840 38 SU86.102 TRA "8850 48860 SUB6 "8870 DOA ,0. 860AO. 86SCT. INSTRN OJ9151-29J3094 TCo F6 48880 48890 DSAF 48900 48910 OORG TFM TR TFM 15900 15912 34 159H 36 49 15936 15948 38 02421 15883 15588 15808 02805 15808 02805 15788 02439 0243. 02422 15889 15884 02805 15732 15883 02422 15788 15883 14484 15876 02804 15,568 02400 15891 02805 02422 15864 02'139 02422 15808 02426 1554L 000-6 01200 00000 02424 1591tS 15948 00000 00000 14 00701 00702 00500 00000 13512 09503 13504 -2296 02155 -9502 000K3 01200 000-0 01200 02805 00000 02424 02805 15885 00009 01100 OOOOJ 000-7 01200 15891 J5780 02806 00000 00000 00000 15900 MACR2 TRDSA+6,ZEPO-4 DUIOX,CLERER+43 RlDSA+6.DSAIOX-l 13406 13406 13418 13430 ,,,., 16 J1 16 ft7 1620 SPS 11-0 FOR MONITOR fI---PHASE B 48920 4B930 48940 48950 48960 4B910 48980 48990 49000 49010 49020 49030 49040 49050 49060 49010 49080 49090 49100 49110 49120 49130 49140 49150 49160 49110 49180 49190 49200 49210 49220 49230 49240 49250 49260 49210 49280 49290 49300 49310 49315 49320 49340 49350 49360 49310 493BO 49390 49400 49HO 49420 49UO 49440 49450 49460 49HO -.20 81 TR INPUT+19,INPUT+21 • • COLLECT OPERANDS • GDEVAL 8TH 5CAN,.+12,l 11 All TROSA+6,5,10 All RLOSA+6,I,10 RLOSA TO ,RLDCSII CII TROSA+6,lEPD+51 TROSA BL TFII TRDSA+6,lEPO+46 TFH RLOSA+6,OSABDX+9 Bl TROSA+12 TROSA TR lEPD,AOORS-4 8NR GOEYAL-12,INPUT+20 8NF IIACI,INTBUF+I TFM LNTH,5 All AOOCOII,5,I0 TF AOORS,ADOCOII SII AOOCOII,ZEPO+1 A AOOCOI/, TROSA+6 TF FRSTAO,AOORS SM fRSUO,4 TF LSTAO,FRSTAD AM LSTAD,5 KATHY 8TM GEET,PDSAF • • SIIBROUTINE LI NKAGE FDR fUNCTI aNAL MACROS AND AR ITHMETIC MACR . .+21,ADDCOII MACROF TD _.23,AJUST TD AM ADDCOII .. I0 TF SPOFLD+ll,INTBUF+6 81 OSAF,,, TO OSA ROUT! NE TO PICK UP OPERANDS • • ASSEM8LE LINKAGE • MAti TR DUT+2,lEPD+I TF ADDRS,AODCOII SM ADDCOII,lEPO-23 A ADDCOII, TRDSA+6 TR ZEPO, LINK A ZEPD+11,ADORS MM SPOFLo+n,5,IOll TR ZEPO+25,DUT+2 ZEPD+18,99 S ZE'PD+14 SPOFLO CF TFM .,*+24 8TM LINPRT,OOINST QUT+2,ZEPO+25 TR AM ADDRS,7,10 TF LSTAD,ADORS 8TM L1NKOR,"12 TFM LNTH,I TO OUT+2 ,LNTH+I .. MOVE REC.MRK. TO aUT+2 PAGE 13442 13450 49 31 13462 02804 13462 13414 13486 13498 13510 13522 13534 13546 13558 13566 1351B 13590 13602 13614 13626 136)1 13650 13662 13614 13686 13698 13110 11 11 17 06112 13512 13504 00000 13512 13566 13512 13504 13518 02100 13450 13118 02381 02616 03490 02616 02616 '03869 03869 03819 01819 09664 2S 25 11 26 49 13145 13751 02616 UI91 13406 02616 02399 000-0 03604 31 02220 03490 02676 02616 02300 02311 13891 02325 02318 02314 04008 09122 02220 03490 03119 U252 OU81 02220 02301 02676 -2211 U512 03492 03490 OOO-N 02220 00099 00000 JU22 Jono 02325 000-1 03490 J3910 -0001 02311 U122 13134 13146 13151 U110 13118 ,U190 13802 13814 13126 un8 13850 U162 13814 13886 13898 13910 13922 13934 13946 13958 13910 13912 11 25 14 41 16 16' 49 31 45 44 16 11 26 12 21 26 12 26 11 26 12 21 J1 21 13 J1 22 ]] 16 11 31 11 26 11 16 25 4B 02806 J341M 000-5 000-1 08318 -2351 01300 -2346 -9512 03486 02805 03599 -0005 000-5 02616 -2301 13512 03490 -0004 On69 -0005 J5442 1'13 1620 SPS 11-0 FOR MONITOR 11---PHASE 8 49480 49490 49500 49510 49520 49530 49540 49550 49560 49510 49580 49590 49600 49610 49620 49630 496100 49650 49660 49610 49680 49690 49100 49710 49120 49130 49140 49150 49160 49110 49780 49190 49800 49810 49820 49830 49840 49850 49860 49810 49880 49890 49900 49910 49920 49930 TOM 8TM 8TM • • • DOAF 49940 MAX 49950 . ( SCAN, a+12 MURIEL,BSW DDASGN,BSW KLRLSII,RLOCSII LSTAO,ADORS DOAZ LSTAD,ADOCOW ·+23,LSTAO '+Z3,A.lUST lSTAO,OO,lO INPUT+19,INPUT+21 SCAN"+12 OAX-5,ADORS INPUT+19,INPUT+21 SCAN,"12 OAX,AODRS INPUT+19,INPUT+21 SCAN,"12 AOORS-2 SCTX,ADORS INPUT+19,INPUT+21 SCAN,"12 MAX,ADORS OUT+2, DAX-5 LNTH,6 OUT+2,SCTX-2 lNTH,3 LINKCR,·+12 OUT+2,MAX-4 OSA80X,UOCSII L1NKOR,"12 "36,MURIEL AOOCOII,LSTAD ADDCOII,1 GEer ,PHASEB 6 I,' OS DC 3 1,' 14461 14468 3 1 OS DC 5 14413 1,' 14'114 5 1 TO RE,TURN ADDRESS ROUTINE .+Z3, AODCOII" ADJUST AilOCOll .+23, AJUST . AOOCOII .. IO MIDCS+l1,OOO19 14416 144. . 14500 14512 , 49960 •• TRANSFER 49910 MTRA TO TO "9980 49990 AM 50000 TFM : 11 03511 13168 09664 AM TR 8TM TO TR 8TH TF TR 8TM SF TF TR 8TM TF TR TFM 8TM TR TFM 8TM TR TO 8TM INF TF SM 8TH OS DC , scn 15 11 14030 14042 14054 14066 14018 14090 14098 14110 14122 14134 14146 14151 14110 14182 14194 14206 14218 14230 14242 14254 14266 14218 14290 14102 14314 14J26 14338 1435D 14162 14314 14386 14398 14410 14422 14434 14446 14463 14464 TO DAX PAGE 13994 14006 14018 OOOOJ J40U -4110 DEFINE DISK ADDRESS 8TM TO 80 TO TF 81 OOASGN TF TO 00A2 OUMPl+l101,ll LINKCR,nlZ GEer,PHASE8 lINKC.a.12 174 11 25 41 25 26 49 26 25 Z5 11 31 11 2S Jl 11 26 31 11 32 26 31 11 26 It 16 11 31 16 11 31 25 11 44 Z6 12 11 25 Z5 11 16 06112 J4042 03591 09502 14098 09502 04003 01311 03819 03490 14146 03819 OZ616 14133 03119 14145 OU99 03879 000-0 02804 02806 06112 J4110 14"'8 03490 02104 02806 06112 J4206 14463 03490 02804 02806 06112 J4242 034 . . 00000 14467 03490 02804 02806 06.112 J4290 14413 03490 02220 14458 OU87 -0006 13U8 J4338 :02220 14465 02381 -0003 13168 J4314 02220 14469 09503 01318 13252 J4410 14446 03591 02616 ' 03879 02616 -0001 09664 -4110 6 I 14499 lUll 02616 13365 02616 02399 000-0 -0019 49 1620 SPS 11-0 FOR MONITOR II---PHASE B A "IOCS-l1,AODCoN" TFM MIOCS+l8, lOCAL, , TF FRSUO,AODCoW TF lSTAO,AOOCOW AM lSTAD,24,10, MIOCS_2 CF CF "IOCS-14 CF MIOCS+19 TR LEPO,MIOCS TF ADORS ,fRSTAD TFM X,*.21t BTM lINPRT,OolNST GENERATE DISK OEFINERS TFM M8UK3+1, 22 ,lOll, Cf MBUK3 TR OUT+2,M8UK3 AM AODCoN.19,10, TF lSTAD,ADDCOW AM ADDCOW,02,1D TFM lNTH,02 8TM lINKCR,"12 TF M8UKl, ADDCOW, , AM M8UKl,06,10 TR OUT+2,M8UKI-4 AM ADDCDN,05,10 TFM lNTH,05 TO DSA8oX,RElSW TOM INTBUF.l 8TM lINKDR,.+12 OUT+2 ,MRM., TR AM ADDCON,OldO TFM LNTH,Ol TOM DUMPI_U,I,l1, 8TM L1NKCR,"12 GENERATE DDA TOM OUT+2 t 1 t, TFM MBUKl,lOCSAD TR OUH3,M8UKI-4 AM ' AODCOW,06dO TFM lNTH,06 8TH lINKCR,"12 TFM M8UK1,OO3,9, TR OUH2,M8UKI-2 AM ADDCON,03,10 TFM lNTH,03 8TM lINKCR,"12 TFH M8UK1,0 •• TR OUT+2,M8UKl-" AM ADDCOW,05,I0 TFM lNTH.06 TOM OUHP1+11.0,11 8TM lINKCR,.-12 8TM GEET, PHASE8 50010 50020 50030 500~0 50050 50060 50070 50080 50090 50100 50110 50120 50130 50140 50150 50160 50170 50180 50190 50200 50210 50220 50230 50240 50250 50260 50270 50280 50290 50300 50310 50320 50130 50340 50350 50360 50370 50380 50390 50400 50410 50420 50HO 50440 50450 50460 50470 ~0480 50490 50500 50510 50520 50530 RETURN ADDRESS lOR GETS ENTRY SET TO TOTAL lENGTH PAGE 14524 14536 14548 14560 14572 14584 14596 14608 14620 21 16 26 26 11 I1t632 Ilt644 26 16 17 14656 MODE CODE MOVE ADDCON TO END OF 1I NK ADORE SS OF DDA RECORD MARK PRINT RM DISK AODRESS SECTOR COUNT CORE ADDRESS 14668 1"680 14692 1"104 14716 14728 147"0 14752 1476" 14776 14788 14800 14812 14824 1"836 1"8"8 lIt86Q 14872 14884 H896 14908 14920 14932 149"4 1"956 14968 14980 14992 15004 15016 15028 15040 15052 15064 15076 15088 15100 15112 15124 33 33 33 31 16 33 31 11 26 11 16 17 26 11 31 11 16 25 15 17 31 11 16 15 17 15 16 at 11 16 17 16 31 11 16 17 16 31 11 16 15 11 11 13365 13372 03869 03879 03819 13356 13368 13373 02300 03490 04008 09722 02676 -0716 02676 02676 000K4 00000 00000 00000 1.3354 03869 J't668 J0750 13392 13391 02220 02616 03879 02676 02387 13168 13383 13383 02220 02676 02387 09503 03598 13252 02220 02676 02387 03517 13168 OOOKK 00000 13391 000J9 02676 000-2 -0002 J4764 02676 000-6 13379 000-5 -0005 02"78 00001 J4860 13393 000-1 -0001 OOOOJ J4920 02220 11383 02221 02676 02387 13168 13383 02220 02676 02387 13168 13383 02220 02676 02387 03517 13168 09664 00001 J9783 13319 000-6 -0006 J4992 00-03 13181 000-3 -0003 J5052 -0000 13379 50 OOO-~ -0006 0000J5124 -4170 50540 • 50550 • 50560 • EVAlUATE ADORESS OF OEND 175 1620 SPS 11-0 FOR MaN ITOR II---PHASE 8 50570 50580 50590 50600 ,,0610 50620 50630 50640 50650 50660 50670 50680 50690 50700 50710 50720 50730 50740 50750 50760 50770 50780 50790 50800 50805 50810 50820 50830 PAGE 8TM SCAN.-+12 ADDRS-4 CF 8NF .+24,LSTYSW WNTY AODRS-4 8NF ·+36.LSCDSW 8TM FIll,ADRFll-4 WACO INPUT2 SF AODRS-4 80 DOTCD,INT8UF+6, ,CHECK FOR TCD TFM TESTAO TF fRSTAD,HUDD TFM lNTH TO OUT+2 .lNTH+l, ,RK. MRK. 8TM RElODG,6.1011 8HI STACKR,9,10 TOM STNUCD_13,2 8T MOOIF I ,MDDIF 1-1 TR TROATh6, NINES-5,6 TFM 410,999,9 TR "16, AODRS-4 WRITE FINAL 3 SECTORS TO FILE FINIS TFM IORT,"23 8 loR8C,DEFOUT,7 • END OF PHASE 8 ,CAll IN PHASE C TOM PICKUP+l,l,ll TFM CFFA, PHAZEC BTM CFF,PHASEC PHAZEC OOA ,0, PHCDAO, PHcseT, PHASEe OJ9260-"OJOOOO 50840 DC I, ' 15136 15148 15160 15172 15184 15196 15208 15220 15232 15244 15256 15268 15280 15292 15304 15316 15328 15340 15352 15364 50850 SIMPLE TOM TRDATA+6.6,611 50860 87 FINIS-48 50870 NINES DC 6,99999' R9999' 50880 OHSIX DC 6,6 -00006 50890 DC I, ' "452 1546" 15476 50900 DOTCD 8TM RElODG,O, 1011 50910 TFM lNTH 50920 TO OUT-701C 50930 TR OUT-6,AODRS-" 50940 8TM GEfT,lUCK 50950 • TO LOAD PHASE 85 TO THE FilE 50960 F5 n SU85,701 50970 38 SU85,702 50980 TRA 151t84 15496 15508 15520 15532 UENOF . 50990 SUBS 51000 J5H8 00000 02480 00100 0299 09482 02420 11632 TRNUMB TRSCAN TYINSW TVPINS VACANT 58 ZERONE 07160 06082 02413 13430 04010 END OF ONE ASSEMBLY. 183 SPS liD 00020 00030 00040 00050 00060 X XX COMMON RMARK RELINC SYSCAL IORBC loSK 10RT loGT lOCAL MONCAl BASE PCI( PLUSl FOREO SUBVEC MOD BUF SSLOC 00070 00080 00090 00100 00110 00120 00130 00140 00150 00160 00170 00180 00190 00200 XEO 00210 00220 00230 00240 00260 II 00280 00290 00300 00310 00)20 00330 EXIT 00]50 OOAR 0360 OODAR 00370 DS DS OS OS OS DS OS OS OS OS OS OS OS OSB OS DS DS8 DSS OS OS OORG TFM B A AM TO TFM SM OS BH TFM SF TF CF TFM ,0 ,0 ,401 ,421 ,434 ,475 ,520 ,554 ,565 , Z 5 12000 2402 10RT 10GT DDAP.5 ·-1 DDDAPH 1214 . .9 XEO 439 .. 68 434 .. 27 ,-+21 .--2 , 2 ,-22 DDAR " DC " ,0 BASE DC ] R99 DU 99999 , LOC OF SUIR SUPER ON DISK RD SUBR I'M seTC t, ADJ FILE ADR PNT TO SEC CNT OF NEXT SUIR PERMIT HIIII CORE TO 'UilN AOR ELIMINATE A SEEI( IN 10RT REDUCE SUIRS REOO STORES SUIR REOO COUNT " PREPARE TO LOAD DBJEtT PRD&RAM RESTORE RElOCATION INCREMENT .. HOLDS OOA FOR OBJEt7 '1I0G 07280 02215 01000 07999 1102.. 02 ..02 OZ..02 02..... OZ426 02438 02"'0 02"2 02<474 02413 02486 02 ..98 02510 02522 ,999 " " 16 )2 26 U 02598 02598 02601 0-0-1 01100 -0075 00000 02633 00000 -2585 5 x -2565 1 02606 02607 '&6. • " X -1600 3 , x· R9999 1 30 -2425 -2608 -2644 -0003 02620 -0480 00565 00566 02598 02437 02615 0121 .. 02 ..13 0 02 ..02 00439 00468 0043 .. ,00427 02425 02402 20 2 OZ593 02606 " 16 12 16 ..9 02'" , 21 11 U 02'" 02558 02565 02591 02592 RO SU••S RIOO fROM SCRATCH 16 ..9 DUM 02591 DSC 0 OSA 00420 START OF AREA COMM IIITH FORTUN LDR ,PCI( -150 ARU FOR SUBR READ IN " 0 0 1 0 0 0 0 0 0 0 0 0 0 , X 2 0 5 X 12000 0 0 OU9I , ,RUTOhU" DSC 2K OSA SCRATCH SEC ADR FOR SUIRS ,2365 ,n DSS 00410 , " " ,ODDAR DC 00000 00000 00401 00421 00434 00475 00520 DO"" 00565 00566 00116 00796 01600 02165 ADR OF RECORD MARK ADR OF RELOCATION INCREMENT ,DOOAP ,7 ,7, ,SECLST ,3 ,000AP+12 ,<480 ,110, ,1 00390 DOAP 00430 UNMODIFIED ZERO ,'66 00380 00400 " ,716 ,796 ,1600 ,7 ,peh33 ,7Z80 ,)0 ,8000 ,MOO-l ,1102" XEO+23 XEO 20 87 PAGE SUBRoU" NE SUPER V I soR II 13982 00440 DDDAP 00450 DSC 02 DSA SUBROUTINE SUPERVISOR II ,02 02608 DOAP ,0 02614 , DC 00460 " 00470 RESTOR DSS DAe 20 FOR INFO lOST DURING lOADG OF SUBRS I,D o DDRG e-1 00490 SEeLST DSB 3 00510 DDAse DC 1 , EVENIZES SECLST LABEL FOR SHORT OBJ PG"S ,3D " L I S T QF SEe LNGTH FOR REQD PROGRAMS DC 5 J9661 DC 3 -01 DSA IIA3 00520 00530 005'10 00560 DDOASe DSC 22 00570 OSA 005BO 00630 5 02740 3 FOR $IS COIIII SEe 5 X -7300 1 02147 2 x 02755 02760 5 ,1 02163 3 02768 5 X -7400 02768 02769 DC " ,0 DC 5 -4BOB DC 1 -06 DSA IIA2 ,480B onn ,6 02178 o -2132 1 ,0 Dse 006BO 1 02753 0215'1 " RO 0111 1 02770 3 5 X 02783 00690 DC " 00700 OOAII DC ,0 2 30 3 02745 02746 001>'10 00670 1 X 02137 00650 ODA2 00660 1 02753 DC 5 -0000 DC 1 -01 DSA IIA 00620 20 ,19663 ,0" SIMULATE OOA ,O,O,OOI,IIA ,0 RO OBJECT SECT o 02621 026'11 ,I ,22 DC 00610 -2593 -0000 ,0 DOAse 00590 •••••• OC 15 00600 ODA Dse 5 X 02614 02619 02620 02642 02644 02732 " 2 2 2 02745 DC 00550 PAGE SPS 110 2 -293'1 1 02783 0271'1 IIRT SUBR ON DISK 02785 185 SPS liD 00110 DSA BASE 00720 1 00730 DC -DO OSA 00140 DC 00150 DDARS 00760 ODOA OS Dse 22 OSA 00170 DC 00790 OOOA2 DSC 00800 DSA 20 2 ·2 00840 DC 00B50 oDDAIl DSC 02 DSA 00860 2 DSA IIA DC 3 ...... DGM 00980 NODOA DSC 00990 " .22 -1600 02798 5 02791 02199 -1000 02755 02100 20 3 1 2 5 X 02806 02807 -2755 02108 2 1 0211'1 5 X 02814 02815 -2770 .22 02816 2 .' 02822 02823 -2755 ,02 02124 2 1 5 X 02122 1 021S0 5 .X 02llD 02831 " -2785 1 5 X 02836 •• " •••••••••••••••••••••••••••••••••••••••••••••••••••••••• USED IN XEQ PORTION OF IIHEN NUN DISK INPUT SF 469 TR '116 ,RESTOR TR 428 .RESTOU6 TFII KEQ+21 ,OOOAR B7 KEg DC 1 P'" " ,1 02836 -7'100 02119 3 02U9 02140 02112 32 OZI64 02176 31 16 OZI18 49 02895 02896 1 DC 5 J9783 02790 02793 02806 OOAII DC 00895 GM 00900 00910 NODISK 00920 00930 009'10 00950 00970 RO SUBR FOil IIOOIFICATIDN DDARS 00880 NOODA -'I' ,DDA ,22 " 00870 00890 " DDA2 DC 00820 oooAR S DSC 22 00830 DSA ,0 DDA 22 00810 PAGE 5 X 02790 1100 , 00780 SUBROUTINE SUPERVISOR II SU'..+LO.... CALLIR ST ..' 1 02901 IIU 31 00.69 00416 00428 00000 02621 02621 02'1lJ 02'102 1 -2585 SPS lID DC 01000 PAGE SUBROUTINE SUPERVI SOR II ,3 4 02904 -03 01010 01020 01030 01040 01050 01055 01060 01070 01080 01090 01100 01110 01120 01130 01140 01150 01170 01180 01190 01220 01230 01260 01270 01280 01290 01300 01310 01120 01330 01340 6 DC ,0' -0000' ,600 CHAR Wl FOR DIM ENTRIES OVERLAYG PG" DORG 2934 DOlR ,402 TR SAVE 08J PROG 01" ENTRY FOREQ ,402 SAVE FOR FORTRAN AND NOOISK INPUT TR _"",07 STORE OBJ PROG DISK AOR TF DDH5 IIOVE DRIVE CODE TO DDA ,"02 TR RESTOR ,416 SAVE ENTRY AOR ,-+23 RO SYS COM II SEC TO IIA3 TFM 10RT ,OOOASC ,7 8 10GT 100 ,lt28 TO ,03 ,71011 CM 100 100 110 DIGIT INDICATOR OS ROFRST BH BR IF PROG ON DISK ,WA1+15 80 FOR EX FOR EX 80 ,IIA3+74 ,-I SET FOR NON DISK INPUT TOil DSKSW TFM RDFRST+23,NDDDA-4 RD FRST 8R IF PROG ON CARDS 8L TOM NOOOA+Z ,2 RDFRST TF" 10RT ,*+23 READ FIRST RECORD OF OBJECT PROG ,1 10GT ,OOOA 8 SAVE CARD SEQ NO IF NON ~ISK INPUT (NDII BNF CAP ,OSKSW IIA+75 SF ,WA+19 TF IIA3+98 IORT ,·+23 TF" IOR8C ,DDDASC ,7 8 CALC SIZE OF OBJECT CORE. HIGHEST lOR AVAIL IN CAP+18 CAP ,20 AM CAP+15 .10. STEP HI AODRESS 8Y 20000 DC 2 WA2 SUPER ...... ,--3 , , " 01350 01360 01370 01430 FORE X 01440 01450 01460 01461 CORIM ,--] 01999 ,23. MOVE RECORD INTO HI ADDRESS ,*-5 CAP ,0 BR IF NO WRAP AROUND REOUCE+U,CAP+18 SAVE COUNT OF 08JECT CORE CAPACITY I NSURE NO REC MKS AND TEST FOR SPS PGM 8S8A '+12 ,14 8LXM '+12 131 8NR .+2,. ,IIAF-l 131 8TM OELETE DELETE IF REt MARK IN AREA ,XEQS ,-I (31 BCXH '-2~ ,IIAF+13 SPSTS r t RD CTl 8R IF CARD IMAGE SPS PROGRAM 8E SPSTST-5 SF ,WAF+5 SPSTST C CDR 1M BR IF CORE IMAGE PG" 8E 8SNX FOREX CF 10RT HOUSKEep "29 TfH IORT ,*+19 CALL LINK FOR FORTRAN LOADER 8 lOCAL ,22001 ,810 DSt 3 .18' 38' MAKE ADJUSTMENTS REQD FOR CORE I MAGE PGM TR WA2 ,IIA SAVE CRUCIAL PORTION OF IND REC TR BNR TF 01380 01390 01400 01410 01420 .. .. , .. 02910 02934 02934 02946 02958 02910 02982 02994 03006 03018 03030 03038 03042 03054 03066 03078 03090 03102 03114 03126 03138 6 15 16 47 15 16 49 02565 01280 02160 02155 02621 00565 00566 OJ038 03038 0 03126 03390 03390 05620 03l'o9 03126 02838 00565 00566 01100 01315 01314 OOOOJ -2832 01300 00002 -3149 -2800 03150 03162 O.31H 03186 03198 44 32 26 16 49 03210 07475 07398 00565 00520 05620 00000 01'019 -3209 -2741 03210 03218 11 03225 2 OOOKO 31 26 -J999 03210 05645 03217 00000 03228 60 66 45 17 64 03270 03282 03306 04002 03282 00001 00-J4 07LR9 -69<03 OO--J 07413 01200 00000 07405 01200 00000 00000 -3421 2KO-l 03222 03234 03246 03258 03270 03282 0329" 03306 03318 03330 033~2 03354 03366 03318 03390 03402 03414 31 31 26 25 Jl 16 49 25 H 46 43 H ~5 2~ 0646~ 46 32 03502 061059 06464 03430 03390 00429 00565 00716 3 2~ 46 60 33 16 ~9 03426 03"30 31 02934 26 07470 07408 02570 02513 02576 03526 07443 00402 00402 00401 00402 00416 -3017 -21'01 00428 -OO-L 07400 t 87 01462 01463 01464 01465 01466 01467 01468 01470 01480 01490 01500 01510 01520 01530 01HO 01560 01570 01590 01600 01610 01620 01640 01650 01660 01740 01750 01760 01770 01772 01774 01776 01780 01800 01810 01820 01830 01840 01850 01860 01870 01880 01890 ROCTL •••• tt. PARAM NOISY MANfl SU8SET tKSET TF TR AM SM AM BNF A SPS 110 SUBROUTINE SUPERVISOR II WA+70 IIA+8 DOAR+5 ,RIIS ,IIA2 DDAR+8 ,I .I 01900 01910 02000 02005 02010 SETCDO 02020 02030 02040 02090 02100 DELETE 02110 02120 02130 .10. , , PAGE 03"42 03454 03466 ,10 ,10 03478 .. .. 03526 03538 03550 03562 03574 03586 03598 03606 03618 03626 03U8 03650 03662 03610 DOAR+ll ,I .+2,," ,WAf+23 ADJ FOR RELOCATION INCREMENT AS ReQ PICKUP ,REL INC SAVE AREA 428-440, CLR FLAG ON 429 FOR NON 0 I SK INPUT TO 441 ,421 TR RESTOR+6 ,428 CF REHOR+7 8MF NOISY ,n+WA3 8N~ MANTL ,n+lln BNF SUBSET ,81+wn BR IF SUBSET IS AOJ AT EXECUTE TIME 87 CKSET TO IIA+36 • 77+IIA3 INSERT NOISE DIGIT 87 PARAM TO ,19.WA) IIA+35 INSERTS UNITS DIGIT OF LENGTH TO IIA+34 ,18.IIA3 INSERT TENS DIG INCL FLAG Sf IIA+34 B7 PARAM+12 TO WA+J8 ,81+IIA3 INSERT SU8 SIT 10 SET SECTOR AOR FOR REQO SUBR SET 03 AFP • 4808 ,02 VL a 4814 ,01 FXL • U20 CM WA+38 ,10 .02 BH RD DIM 8R IF AFP SET (Oll TFM ODU+5 ,4814 BE RO DIM 8R IF VL SET 1021 ,08 ,10 CM WA+35 e.32 8E TFM IIA+38 ,10 .02 B7 RD aiM FORCE SET 02 ,6 DOA2+5 All ,.+23 TFM 10RT READ RIQD DIM ENTRIES 8 IOGT ,7 • DODAl INSIST THAT MANTISSA LENGTH MEET SPECIFICATIONS CM IIA+35 ,02 ,10 e+24 BH IIA+35 ,02 ,10 TF" CM W. . 35 .45 ,10 •• 2,. BL TFM IIA+]5 ,45 .10 PCK.31t TO ,WA+38 SUIR SET 10 TO PCK+36 .WU36 NOISE DISJT FOR OIJ "M TF PCK+33 ,L .L FOR 01" PGII 8NR OELETE ,IIA2+19 IR IF FIRST D'MFOR SET IS 8LANK IIl2+'00 .WA2 INSURE OCCUPIEO'OIM ENTRY T" CM IIA2 +15 .01 .10. OICOOI SI1' TFM SUBVEC-5 .-33 IND LOC OF RM AT END Of AlPltA 8E FVLAFP 8H VL AFP B ,BO SET M .7 DELETE RCTY WArY DELETE-I , TYPE REA SOli FOR TERIII ..UION RCTY WATY OELTEO ""1 ' ......Afl811 , RODI" .. FURNISH TRAIlG REC MARKS SHIFT INO Rec TO MATCH CD IMAGE PGM ADJ OBJ PROG DOA .. .. ........ .. ..••• 03490 03502 03514 03682 03694 03706 03118 03730 03742 03754 03766 03114 03786 03798 03810 03822 03834 03846 03858 03870 OJ882 03894 03906 03918 03930 03942 03954 03966 03978 03990 04002 04014 04026 04038 lilR 31 11 12 11 44 21 25 31 33 44 44 44 49 25 49 25 25 32 49 25 14 46 16 46 14 U 16 49 11 16 49 14 46 16 14 47 16 Z5 25 26 .5 31 14 16 U 46 49 34 ]9 34 39 00441 02627 02628 03606 03626 03670 03682 07436 03574 07435 07434 07434 03586 07438 06456 02934 000-1 000-1 000-1 07423 0043~ 00421 00428 00000 07377 07379 07381 07377 07379 07378 00000 07381 07438 03186 02775 03786 07435 03714 07"38 037B6 02775 00565 00566 000-2 01100 -4814 01200 07435 03846 07435 07435 03882 07435 02399 02401 02398 04002 03534 02949 000-2 01100 000-2 000M5 01300 000M5 07438 07436 07435 02953 02934 000-1 ooo-a 01200 000-2 -0006 -3809 -2808 OlllO -oon 04250 04082 04002 00000 0400J 00000 06141 01200 01100 -6787 00102 00100 00102 00100 5 SPS 110 02140 02150 02160 021AO 02190 02200 02210 02220 02230 02240 02250 02260 02270 02280 02290 02300 02310 02320 02])0 02340 02350 02370 02380 02390 02410 02420 02430 02450 02460 02"70 02475 024BO 02490 02500 02510 SUBROUTINE SUPERVI SOR II RCTV TOM SYSCAl ,4 B7 MONCAl CREATE AOD VECTOR FOR ADJUSTMENT OF P AND 0 OPERANDS VLAFP TFM SUBVEC- 5,-147 IND lOC OF RM AT END OF ALPHA SM FVLAFP.35,98 A LOC 115 ,L INSERT ·L A LOCU5.50,L LOC1l5.10,L S INSERT -L AM LOC 115.10, 99999 AM LOC1l5.IO,1 TF LOC 115.60,LOC115+10 A ,L L INSERT +2L A LOCU5+20,L A LOC1l5.70,L TF LOC 1I5+30,LOC1I5+10" INSERT -2L A LOCI15+30,LOCI15+30 TF LOC 1I5+80,LOC 115+30 FVLAFP S -+35 ,PICKUP 8NH -+24 AM PICKUP ,SECLST-12 .. MOVES PICK IF OBJ PGM SHOR T TF DDDAP+ll ,PICKUP TF SUB NO-2 ,WA+38 STORE SET NO B7 RO SUB FINAL BNR CK SUB ,I5TAT-30 ,7, BR IF ANOTHER SUBR REOD INO OS ISTAT PNTR B7 CAP CK CKSUB BD RD SUB ,INO ,Ll, BR IF SUBR IS USED AM IND ,I ,10 AM ;1 SUB NO ,10 AM DIM ,10 ,610 AM ,5 SV+5 ADJ TO SUBR DSA FOR ENTRY POINTS STPSV SM ,5 ,10, ADJ SUBVEC POINTER SV SM ,I NE ,10 ,.-3, NO OF ISTAT ENT TO CK FOR SU8R NE DC 2 ,01 -1 02520 BH CK SUB 02530 ADJDIM AM DIM ,20 ,10, ADJ FDR NE OF NEXT DIM ENTRY 02540 TD NE ,WA2+18 ,7, STORE NE ,+ 02550 DIM OS PO I NTER FOR NE IN 01'" ENTRIES 02560 ,MOO+1 TFM SV+5 02570 BD ,NE FINAL 02580 87 ADJ DIM SKIP BUNK DIM ENTRY 02600 RDSU8 TF RD SU8+35,DIM 02610 SM RD SUB+35,18 02620 TR DDARS MOVE DIM ENTRY TO DOA FOR RDG SU8R 02660 CM DDARS+17 , CK SUBR NO 02670 SU8NO OS 4 SET NO AND SU8R NO 02680 BNE DElETE 02690 AM LOC115+"O, ADD CDRES USED 8Y PREVIOUS SU8R 02700 PICKAD OS NOW HAS CORE REOD 8Y LAST SUBR 02710 A LOC 115+50,P ICKAO INSERT PICK +L 02720 A LOCI15+60,PICKAD INSERT PICK -L 02730 A LOC 1I5+70,P ICUD INSERT PICK +2L 02740 A LOC1l5+80,PICKAD INSERT PICK -2L 02750 TF PKUP ,DDARS+13 STORE CORES USED BY SU8R ,- .. , , ,,- PAGE 04050 04062 04074 04082 04094 04106 O"l1B 04130 04142 04154 04166 04178 04190 04202 04214 34 15 49 16 12 21 21 22 11 11 26 21 21 21 26 21 26 22 H 00000 00475 00796 00102 00004 02210 -014P -0098 074)5 071035 071tl5 R9999 -0001 06325 07435 07435 07435 06325 06345 06345 07443 01100 -2632 07443 OH3B 04285 06315 06365 06325 06325 06325 06375 Q7435 06335 06385 04374 04386 11 11 06345 06345 06395 04285 04286 07443 02619 04535 04490 04338 0 05538 04490 04329 04537 0445P 05397 04)98 04410 12 12 05392 04418 46 04338 04457 04418 0 05391 04318 0443" 04525 04525 02755 02112 4 04002 06355 0 01100 OOOKO -2952 06365 04561 0,,561 04561 0"561 02768 04226 04238 04250 04262 04274 042B6 0429B 04310 0431B 04329 04330 0433B 04350 04)62 11 26 26 49 45 49 43 11 11 04418 04422 04434 0""'''6 04457 04458 04470 04482 04490 04502 04514 0"526 0"531 04538 04550 04561 0"562 0"574 04586 04598 04610 6 -7444 0432R 000-1 000-1 OOOJO -0005 000-5 000-1 2 11 25 16 43 49 26 12 31 14 41 11 21 21 21 21 26 06375 06385 06395 05505 -8007 04"18 04457 -0018 00000 -0000 01200 -0000 189 ...... 02760 02110 02780 03370 LNG 02790 02800 02810 SU8RO 02820 02830 02840 02850 02860 02870 02900 02920 02930 02950 02980 03010 MODIFY NEWCO NXTlND ...... RM NOTRM THREE 03020 02990 SAVE 03000 03040 03060 03070 03080 03110 03120 03130 03140 03080 03190 03105 03090 03100 03101 031ltO 03150 03192 03191t 03196 03210 03220 03230 03HO 03250 INST CONST ADJ PFLD SPS 110 SU8ROUTI NE SUPERV ISOR .. .. .. ,- .. ax AOJO OFLD OND PCONST PSUEDO ONE 03260 03270 PBOTH 03280 03290 PLOAO " SET PICKAD TO TENS COMPLEMEIIIT OF CORES USED BY THIS SU8R TF PICUD ,DDARS+13 SF PICKAD ,+ OS 2 NO OF UNPROCESSED DIGITS OF IN5TRN AM PICKAD ,99999 AM PICKAD ,I TFM DOARS+l3 ,MOD PUT WORK AREA CORE ADR INTO DDARS TFM 10RT ,.+23 READ IN SU8ROUTINES 8 ,DDDARS 10GT ,7 TFM 10RT ,·+23 ,7 B 10SK ,DDOAW TDM INST+l ,I DISABLE MDDIFCTN TOM MOD+5 ,-2 ASHCAN OSA OF EACH SU8R BLXM *+12 ,8UF+5 (41" SET TO FIRST INDICATOR DIGIT -1 TF 319 ,324 SET PNTR TO FIRST IND ON NEW CARD-l 8NR NOT RM ,I CK IND COOE FOR RM I l l .. 8NF RM ,I (JI .. 8R IF BREAK IN SEQUENCE BX NEW CD ,7FlVE (41" 8R I F NEW CARD REQUIRED BX NXl INO ,SIX (3)" ADJ ~OR NEXT IND DIGIT BR TO ROUTINE TO PROCESS OATA PER INDICATOR DIGIT TF ,3 LNG III OS ,NOT RM+ll (1)' , ilL X -+12 ,LNG PUT LENGTH IN IX 1 TD ,1 -+29 INSERT IND CODE I l l .. CF ++17 ,7 OS TEMP STOR FOR MOOFD P+O FIELDS ax LOCU'+5 ,THREE 1ll,6, BR AS INDICATED +STEP 1X3 TO LENGTH NOP ADJ ,X (2)" ,BR IF ELIG FOR MOD IBNR ADJ ,CTLPNT 8X NXT IND ,309 ADJ I X3 TO NEXT IND DIGIT I l l .. ,X BD P FLD IIR IF !lODFG P FlD 121 .. 8X ADJ 0 ,ONE 121 .. STEP 'TL PNT TO 0 FLO ,7 I]),. MA SAVE MOD P FLD AS REQD TO . . 22 ,X 121 A SAVE ,LOtlU+40 IIA 7 I3I,SAYE ADJ 0 ,ONE STEP CTL PNT TO Q FLO 121 .. Q FLD ,X 8D 121 .. BR IF MODFG 0 FLD BX· Q ND· ,ONE (21 .. STEP CTL PNT TO NEXT P FLD MA SAVE ,12 (])" MOD 0 FLD AS REOD ,X TD -+22 121 A SAVE ,LOCH5+ltO MA IlI,SAVE 12 (2)., 8X -+12 ,ONE STEP CTl PNT TO NEXT P. FLD BXM -+12 ,12 (3)" STEP PNTR TD 011 OF THIS INST ,-12 8CXM INST Ill .. STEP DOWN LNG AVAIL 8Y 12 B7 NXl IND ,99998 (3)" 8NF CONST 8R IF RELOCATA8LE CM 99995 131,3 ,9 BNE CONST TF CTLAR.59 ,RMS «3) ,. TR TCP ,I MOVE PS CON ONL V ,PSUEDO+23 DS TFH 99997 I3I,X SET AOR TO ZERO A 319 ,X ADJ IX 3 BY L OF PSUEDO (31" BNR 2NO PC 13) .. BR I F COL 15 OR CONTO 01 ,rep CTlAR TR LOAD COMPLETE PS CON TO CTl AREA .. PAGE 04622 04634 04645 04646 04658 04670 04682 04694 01t706 04718 04130 0'1142 04751t 0"766 04778 0'1190 04802 04814 04826 04837 04838 04850 04862 04813 04874 04886 04898 04910 04922 04934 OU46 D4958 04970 Olt982 04994 05006 05018 05030 05042 05054 05066 05078 05090 05102 05110 05122 05134 05146 05158 05169 05170 05182 05194 05206 190 26 32 11 11 16 16 49 16 49 15 15 66 26 45 44 61 61 26 65 25 33 61 41 61 43 61 70 25 21 70 61 U 61 70 25 21 70 61 62 61t 49 44 14 It7 26 ]I 16 21 45 31 0"561 04561 2 04561 04561 02768 00565 ·00566 00565 0055" 01t8B7 08005 04766 00319 04826 04814 04766 04178 04645 0 04850 04879 04879 0 063204910 04778 04934 04994 0"873 0"968 04873 00--7 04991t 05018 05078 04873 05052 04U3 OO-J2 05078 05090 04886 04118 0489B 99RR5 04898 06524 06525 0 99RR7 00319 05254 06465 02768 00000 R9999 -0001 -8000 -"705 -2816 -4729 -2824 00001 OOOOK 00004 00324 00--1 00--1 ON226 05KK8 00--3 046"5 00--1 -0000 040L7 00-00 00L-9 00-00 05J69 00--7 00-00 06355 04873 05J69 00-00 05J69 00-J2 00-00 06355 04873 05J69 OO-J2 OOOJK 99RR8 00-03 01200 06456 00--1 -0000 00--0 00--1 06525 7. 03300 SIX roM DC -6 SPS 110 SUBROUTINE SUPERVISOR II INS T+ I ,06 2 ,5 ,PLOAO +22 ,15 ,PLOAD +20 DC 2 P5 CF CTLAR BUM NXT IND ,CTLAR (2),. INIT IX2 + BR ()., 2NDPC BNF P NOT C ,6 BR IF PS CON CaMP ON lAST CARD (1 I, TCP+8 IU" TR TCP CLOSE PS CON ( B,X TFM 5 SET SECOND ADR TO ZERO 8XM -+2lt ,8 C3.,. STEP IX3 PNOTC TO TCP (1) ,RMS-60 INSERT RM AT END OF PS CON IN TCP BX ,7FIVE (41 -+12 8LX P LOAD ,324 III FORM INFO REQD TO COMPLETE LOADING OF SU8ROUTINE AOJ ENTRY POINTS IN SU8VEC AS IND BY DSA AT START OF SUBR. FORM A IND ,NE ADJ IND FOR ALL ENTRY PDINTS A SU8 NO ,NE ADJ SUBR ND.FDR All ENTRIES FllSV AM FIL SV+35,5 ,10 TF SV ,PICKUP ,6 A PCK ,2 ,"OD+1 OS SV 5 ,--5 CONTAINS ADR OF SUBR IN SU8VEC ,5 ,1O, AOJ SU8 VECTDR AOR SM SV SM ,1 .10, REDUCE NO DF ENTRIES NE 8H FIL SV TF SCT ,DDARS+8 ,6, RECORD SEC REQO FOR SUBR TF DOAII+8 ,SECLST ,7, ENTER SEC-CNT FOR WRT SUBR TO SCR TC SCT OS 5 SECTOR COUNT FOR WHOLE SU8ROUTINE TFM 10RT ,-+23 WRITE MOD SU8R ON SCRATCH IOR8C ,DDDAW ,7 B A ODAW+S ,DOAII+8 INCREASE DISK ADR 8Y NO SEC AM PICKUP INCREASE CORE ADR BY SUBR LENGTH PKUP DS 5 TEMP STORE PROG TOTAL CORES AM SCT ,3 .10. ADJ FOR NEXT SUBR AM ,I II 87 ADJ DIM CAPCK A SUBVEC- 5,PCK RM FOR AlPHA ,pel( TF SU8VEC RM FOR BETA SM SUBVEC ,I MAKE REQD ADJ TO READ 08JECT PRDGRAM CF DDAR+13 DI SKCK 8NF ·+.,.8 ,OSKSW SR IF DISK PGM TR EXIT-48 ,NO DISK SF ODDAR+I DSKSW OS ,--1 I SW HAS -I WHEN NON DISK INPUTINDIl TR DOAR ,NOODA REDUCE SM PICKUP ,CAP+l8 RDC KR UZ FM KR AVl8 BV -+12 8SNX -+12 BHH XEQ TNF SIZE+60 ,PICKUP MOVE NO OF CORE TO S lIE MESSAGE 8TM OELETE ,SIZE BELOW IS DUAL PURPOSE VECTOR. EVEN ADR FIELDS ARE ADR OF ROUTINES THAT ARE USED FD DECODING INDICATOR CODE aDO ADR FIELDS ARE SU8R ADJ FOR THE P AND Q OPERANDS OF INST DORG 6296 7FIVE 03305 03310 03320 03330 03340 03345 03360 03370 03380 03810 03820 03830 03840 03850 03860 03870 03880 03890 03900 03910 03920 03930 03940 03950 01960 03970 03980 03990 04000 04050 04060 04070 04080 04120 04130 04140 04150 01160 04160 04170 04175 04176 04180 04190 04240 04270 04280 04290 04300 .. .... .. ,- ,- PAGE 15 04881 2 00005 05210 33 05242 66 44 06465 04178 05302 065K5 00--5 05314 065K5 05326 05206 00000 06M65 00--6 06513 -0000 00--8 06396 ON226 OOlK" 05218 05228 05226 05254 05266 05278 05290 05302 05314 05326 .. 05338 05350 05362 053H 05386 05392 05398 05410 05422 05434 05446 05457 05458 05410 , 05482 05494 05505 31 16 62 25 61 65 21 21 11 26 21 12 12 46 26 26 16 49 21 11 05506 05518 05530 05538 05550 05562 11 11 49 21 26 12 0557tt 05586 05598 05610 05620 05622 05634 33 44 31 32 05646 46 60 05658 05670 05682 05694 n 12 H 13 11 04329 04537 05397 0539K -2365 5 05392 OHI8 05362 0545P 02793 5 00565 00520 04418 04418 000-5 07443 08007 000-5 000-1 01100 02763 -2644 -5481 -2824 02790 02793 01"43 5 -0000 05457 000-3 -0001 02483 04434 02210 02215 02215 02578 05634 02510 02586 I 02565 01443 05658 05670 02402 06715 04002 02365 02365 -0001 00000 05620 02840 00000 02896 -3228 01400 00000 01100 OH43 -6655 06296 191 SPS 110 04310 DSA 04320 lOC1l5 DSA SU8RDUTINE SUPERVISOR II RH-12 , ,INST PAGE 06300 O,PCONST ,0 ,CaNST ,O,NXTIND,O,NYET , O,FORM 06300 06305 06310 06315 -4802 -0000 -.086 5 06315 06320 06325 -0000 -5110 -0000 -4898 -0000 -4778 -0000 -6918 -0000 -5338 06330 04330 DSA 0 ,NYET,O ,NYET,O ,NYETta 06335 06340 063'U 06350 06355 06360 06365 . , .. 04350 RMS OS 60 60 RECORD MARKS 04360 SPSTST DC 8 ,61514842 0151"842 04310 CTLAR DSS 188 USED FOR sueR CONTROL CONSTANT 04430 rcp OS TEMP STaR FOR PSUEDO CONSTANT ,CTLAR+60 " 04460 SIZE OAC 43,CORE CAPACITY EXCEEDED BY 00000 LOCATIONS.' CORE CAPACITY EXceEDeD 8Y 00000 lOCATIONS.' 041070 DELlED DAC 23,PROGRAM IS TERMINATED.' PROGRAM IS TERMINATED~' 04480 BDSETM DAC 35,SU8R NOT lOCATED IN SU8RO.\JTlNE MAP' SUBR NOT lOCATED IN SU8ROUTINE "AP' 04490 NYMES DAC )I,IMPROPER IND CODe IN SU8R 0000' IMPROPER IND CODe IN SUBR 0000' 04500 NYET TNF HYMES+58 ,SUB NO 04530 8TM DELETE ,NYMES IEQS OAC 25,IMPROPER CONTROL RECORD.' IMPROPER CONTROL RECORD.' 0t,540 DORG FOREQ ,I 04550 LDRMKS AM -+18 04560 TO RIIS-59 ,AMS-60 ,2 _-6 04510 CM ,RMS 04580 lDRMKS 8L 04590 SF RMS-60 04600 54 DDAl ,101 LOAD SUIA SUPER ON DISK 04610 38 DDAL ,702 Ot,620 TRA 04630 DDAl DOA ,1, SSLOC,SI ,111l-2 lJl024-51-2400 7 -0000 -6918 -0000 -6918 -0000 -6918 -0000 I 06370 DC 10 5 X 06365 04340 9 X 06315 06380 06385 06390 06395 06396 06456 06464 60 8 06465 06525 06655 .188 0 43 X 2 06141 23 2 06187 35 X 2 06851 31 X 2 06918 06930 06943 11 07280 07280 01292 01304 07316 07:128 07340 07352 01364 07316 01388 11 25 14 47 32 34 38 36 49 73 192 06915 04537 04002 -6857 25 X 2 01298 -6397 07298 07280 06396 01)88 01388 00000 00000 14 -0001 06396 -6456 01300 00000 00101 00102 00500 00000 SPS 110 0~610 TCD 0~680 0"70D MA3 0~1l0 WAF 0~120 MA 0~730 L o~no PICKUP 0"150 ISTAT CORG FOREO DS 20 DSS 100 DSS 100 DS OS OS OS 0"760 DEND 0~690 SUBROUTINE SUPERVISOR II PAGE 10 PAGE 11 07292 lDRMKS.12 .. SYSTEM COMMUNICATlDN SECTOR FIRST SKTR OF 08J PGM C IND RECOROI ,MAF ,MAo35 ,MAo"3 .WA+71t ADR OF SPEC MANT LENGTH 07280 07299 07300 07"00 07"00 0705 ·07""3 20 100 100 0 0 0 0 07~7" SUPER 0293" t 93 SPS 110 ADJDIM BDSETM COMMON DDDARS DDDASC DELETE DEL TED DISKCK FVLAFP LDRMKS LOCll5 MODIFY MONCAL NODISK NXTlND PCONST PICKAD PICKUP PSUEOO RDFRST REDueE RELINe RESTOR 2NDPe 7FIVE 0"34 06787 00"01 02816 02747 0"002 06741 05586 0"250 07280 06315 Olt75" 00796 028"0 0"778 05110 04561 Ollt,,] 05146 03126 0563" 00lt]" 02621 05254 05226 END OF ONE ASSEMBLY. SU8ROUTINE SUPERVISOR II AOJO ADJ 8ASE 8UF CAPCK CAP CKSET CKSUB CaNST CORI .. CTLAR DOA2 OOAl ODAP DDAR DDARS DDA DDAse DDAW DDDA2 DDDAP DDDU DDDA DODAW 0111 04994 04910 01600 07999 05538 03210 03682 04338 0"898 03"30 06"65 02770 on .. 02593 02565 02755 02155 02732 02185 02808 02601 02515 02100 02824 04457 OSKSII EXIT FILSV FINAL FOREO FOREX FORM GM INa INST lOCAL 100 10GT IDRIC IORT IOSK I STAT LNG L IIANfl 1100 NDDDA NE HEIltD HDDDA 05620 02558 05362 0018 07280 03390 05338 02839 OU29 0lt886 00716 03038 00566 00520 00565 0055" Dl 00000 B7 UNFL TFM BRANCH+6 t *+32 ,017 00572 JO 00094 -0604 ,09 00584 J6 00677 00-12 TFM F IX+25 .012 00596 M9' 00780 00000 87 F03+24 48 ,5550040250 0050500040 5552000000 020B 00252500020450,348 DC 00348 00048 1'1 ALPHA-2-P, BET A-2 -p" MUL MANTI SSAS 00604 KL 00048 00194 -p, ZRES BR IF ZERO PRODUCT BZ 00616 M6 00346 01200 ,0, ,-2L BD MOVE-12 t 100 BR IF NORM NOT REO 00628 1'13 00724 00100 -L 00640 J6 00747 -0100 TFM MOVE+ 11 ,100 CM 8L ,. , t' , , 228 4 ", PAGE -p ,01 ,1O, 09010 FIX SM BETA 09020 09030 09040 09050 09060 09070 09080 09090 09110 09120 09130 09140 09150 09170 09180 09190 09200 10010 10020 10030 10040 10050 10060 10080 10090 10110 BNV SM TFM BO SF A TF 87 TFM TFM TFM TF B7 LD 0 8V TO BD BZ DC SF S 87 TFM 87 TOM ,0 *+36 010 ALPHA -P,OI -P, -99 ,10 BETA ,01 ,FI X+23 CHGE 101 -P -p, BETA ALPHA ALPHA-2-P,99 ,0 EXIT ,017 BRANCH+6 ,*+56 ,09 ,111 FIX+25 ,099 MOVE+ 11 ,CLR-I06-P, , 85 FA3+12 ,ALPHA-2-P, , 99 ,8ETA-2 -P" 99 ,0 ZCK ,99 99 ,0, ,99 FIX -P ZRE S ,40550002 ,314 8 100 -P ALPHA -P,BETA ,0 MOVE ,98 MOVE+l1 MOVED ,11 t ,0 401 MOVE FD3 MOVED CHGE ZCK , , , " " , " , , PCK+15 AM " " ,6, ,99 ,6 PCK+ 10 BV O'END 02024 CHAR BY ONE 00652 J2 00196 00664 M7 00700 00676 J2 00050 00688 J6 00196 00700 ML 00916 00712 32 00101 -2L 00724 KJ 00050 00736 K6 00048 ,-L 00748 M9 00496 00756 JO 00094 00768 J6 00677 00780 J6 00747 ,-L 00792 20 000B5 ,2L 00804 M9 00032 OOB 12 2Q 00099 -L 00824 2R 00099 -L 00836 M6 00936 00848 25 00099 ,-l. 00860 M3 00652 ,-iL 00872 M6 00346 00314 00008 00884 32 00100 -2L 00896 KK 00050 00908 M9 00736 00916 J6 00747 ,-L 00928 M9 00896 SET ERROR INDICATOR 00936 15 00401 SIMULATE HARDWARE 01 V AND FORCE 00948 11 023800960 46 0237101 02024 A~JUST 000-1 01400 000-1 OOORR 00675 00000 00196 00099 00000 -0812 OOJ11 -0099 00628 00000 00048 00194 01400 00099 00099 01200 00000 00196 00000 -0098 00000 0000OVE 00099 01400 229 PAGE FLOATING POINT SQUARE ROOT. VARIABLE LENGTH SYMBOL TABLE .NOSDIG FSQR3 NINE PICK SQ3 02401 0000 OR 00636R 00198R 00368R ALPHA LNIO ONEZ PIOV2 UNFL 00050R 00591R 00449R 00496R 00334R 10160 FSQR3 10170 DSA FSQR3 DORG EDGAR TFM PCK+5 PCK B7 10150 DC 10190 10200 BO B7 11020 MM 11030 BNF 11040 11050 CF TOM 11060 BD 11070 TFM 11090 SQ2 MF TF 11110 11120 TF TF 11130 TFM 11140 TF 11150 TF 11160 TF 11170 11200 LSQ 87 AM 12010 BETA LOGE OVFL SAVE XX 00196R 00543R 00266R OOIODR 00000 CLR LSQ P SQEX ZRES 00734R 0021bR 00000 00424R 00346R EDGAR 150M PCK SQ2 OOOOOR 00324R 02365 00112R 00004 00005 -0000 00000 00000 10 02370 -0020 ,b, 'BR TO PICK AND RETURN 00012 49 0236N 00000 42 ,075050 0550000002 00000805 0"0000560000000005,350 00350 00042 , BETA-I -P,O, ,-1 00020 ML 00040 00195 *+20 -P, BR IF RESULT ZERO ZRES 00032 "9 00346 00000 ~P,50 ,10, BETA DIV CHAR BY 2 00040 J3 00196 COONO ,BETA-2 -P,O, BR FOR POS IT IVE ARG *+36 00052 "M OOOBB 00194' BETA-2 -P 0006" L3 0019" 00000 401 ,0 SET NEG ARG INDICATQR 00076.1500401 0001)0 ,98 ,0, SQ3 BR IF CHAR ODD 00088 00368 00098 ,-L SQ2+42 ,97 MOVE MANTISSA AOR 00100 J6 00154 -0097 97 ,99 00112 71 00097 00099 SQEX+47 ,97 STORE IlESULT CHAR 00124 K6 00471 00097 .99 ,CLR-92-P ,2L 00136 20 00099 00642 ,8ETA-2 -P,. MOVE MANT INto 97/98 MINUS L 00141 20 00001) 00194 LSQ+l8 ,97 ,.-2L INITIAL "'ANT ADR HI ORDER 00160 J6 00234 -0097 ,SQ3+18 ,01, INITIAL RESULT ADR LSQ+23 00172 KO b0239 00386 LSQ/1-6 t LSQ+IB INITIAL "ANT AOR 00184 KO 00318 0023" BETA-2 -P, ONEZ-48-P, t ,+1 SET RESULT TO ONE· 1+1 DIGITS 00196 KO 00194 00401 LSQM ,0, 00208 "9 0032" 00000 ,2 ,0610, ADD 2 TO RESULT LSQ+Z3 00216 Jl 0023R 000-2 SU8 RESULT FROM MANTI SSA ,*+20 ,17 "I " . 230 PAGE ,0, 12020 BNN LSQ 12030 1204{) CM BNL LSQ+23 SQEX ,BETA-2 -p ,07 LSQ+18 ,LSQ+23 ,01611, ,06 12050 ,0, 12060 12070 CF AM LSQ+l8 , LSQ~\-6 ,01 12080 12090 LSQM SF AM LSQ+l8 ,02 ,010, LSQ+23 ,01 ,DID 12100 12110 12120 11190 12140 SQ3 12150 12160 12170 12180 12200 SQEX 13010 13020 ,010, 00228 22 00000 00000 CDNT INUE UNTI L MANT I S NEG 00240 M6 00216 01300 00252 JM 00239 -0194 BR IF TERMINAL RESULT ADR 00264 M6 00424 01300 RESTORE LAST SUB 00276 KJ 0023M 0023R 002B8 L3 0023M 00000 REDUCE MANT FIELD L ENG TH ONE 00300 Jl 00318 000-1 00312 32 00000 00000 STEP MANTISSA ADR,HI ORDER,+2 00324 Jl 00234 000-2 STEP RESULT AOR +1 AM 00336 Jl 00239 000-1 STEP RESULT -9 ,0blO, ,09 LSQ+23 SM 00348 J2 0023R 000-9 CaNT LOOP WITH NEXT 2 DIGITS ,0, LSQ+l2 87 00360 M9 00228 00000 00316 00016 t 70700200065020 t 31 b 16 DC CHAR/2 ADD .5 TO t 10, ,50 99 AM 00368 11 00099 OOONO ,211, -L, LENGTHEN MANT FOR DOD CHAR TOM BETA-2 -p ,0 00380 J5 -0194 000000392 L3 00195 00000 -L, BETA-l -P, CF ,-L MOVE MANT ADR ,98 SQ2+102 TFM 00404 J6 00154 -009B BR TO STORE CHAR + INlT LOOP SQ2 B7 00416 M9 00112 00000 00424 20 00080 00634 ,+L ,CLR-IOO-P,t 80 TF 00436 J3 00 194 aDONa RESULT/2 , Hi, BETA-Z -P,50 MM DEFINE FIELD .-L, 98 SF 00448 32 00098 00000 INSERTS CHAR 99 TFM 00460 16 00099 -0000 STORE RESULT ,99 PCK+l5 TFL 00472 06 0238- 00099 RETURN TO MAINLINE ,6, PCK+ 10 B7 00484 49 0237N 00000 02061 02061 DEND t ,6, 13040 231 PAGE FLOATiNG SIN-COSINE SYMBOL TABLE NOSDIG BRD FCOS3 NINE PCK POlCH XX 02401 0020eR OOOOOR 00636R 02365 00760R 00000 UB CLF FSIN3 ONEZ PI SAVE ZRES OSA 00910R 0008BR 00032R 00449R 00962R 00100R 00346R FCOS3 13100 FCOS3 DORG EOGAR TFM CLF+11 13IlO 13120 TFM 87 13140 FSIN3 TFM 13150 13160 'rFM B7 13180 DC 13190 13200 BNF TOM 14010 CLF 14020 14030 CF CF 14040 14050 CM BNL 14060 14070 CM BL TF 14080 TFM 14090 14100 14110 BRD S TR 80 14120 A 14130 A8 CLR H34 OVER PICK SUM 00914R 00734R 01011R 00.400R 00 198R 00" 72R ALPHA DONE LNI0 OVFL PIOV2 TWOPI 00050R 00588R 00591R 00266R 00 .. 96R o 1009R ,FSIN3 ,010 8ETA EDGAR LOGE P PLACE UNFL 00196R OOODOR 00543R 00000 00716R 00334R 00004 00005 -0000 00009 00005 -0032 00000 ,09, INIT FOR COS 00000 J6 00099 00-10 00012 10 02370 -0088 GO TO PICK ANa RETURN 00024 49 0236N 00000 ,-011 ,09. INIT FOR POSITIVE SIN CLF+l1 00032 J6 00099 00-IJ PCK+5 ,17 ,*+20 0004 .. 10 02370 -0064 PCK ,6, GO TO PICK AND RETURN 00056 "9 0236N 00000 46 ,0500507056 5000510007 0507005651 0070510000 505608,348 00348 000 .. 6 ,BETA-2 -P 00064 MM 00100 00194 *+36 ,0 ,0, ADJUST FOR NEG SIN CLF+lO 00076 J5 00098 00000 BETA-2 -P 0008B L3 00194 00000 BETA-l -P, -L 00100 L3 00195 00000 -P, CLR-94-P ,+L MOVE L+2 ZEROS TO SAVE SAVE 00112 KO 00100 00640 -p ,00 BETA ,10 00124 Jit 00196 000-0 ·POZCH ,a, BR IF POSITIVE DR ZERO CHAR 00136 M6 00760 01300 -p ,00 ,+L BETA ,lOll, 00 146 J4 00 196 000-,0, BRD BR IF CHAR LESS THAN -L 00160 "7 00208 01300 , SAVE -P,07, ,-L CHAR BETWEEN 0 ANO -L *+30 00172 JO 00202 -0100 -p ,0 *+18 ,BETA 00 18" KK 00202 00196 ,-L ,BETA-l -P, , 00196 3J 00000 00195 ,01 t *+24 ,CLF+ll BR I F SIN ROUTINE 00208 ML 00232 00099 ,P I OV2-45-P, , , +LCONVERT TO SIN SAV E-P 00220 KJ 00100 00451 -P, TWOP 1-45 ,1, SAVE ,+L 00232 KK 00100 00964 PCK+5 PCK ,elF ,17 ,6, 232 9 14140 BH 14150 14160 14170 14180 14190 14200 15010 15020 SF A BN SM SF A TF 15030 15040 15050 15060 M TF SF TF 15070 15080 OVER TR TDM 15090 15100 15110 15120 TF TFM D 8Z 15130 15140 SUM 15150 15160 15170 TF S AM AM M 15180 15190 15200 16010 16020 16030 16050 DONE 16060 M BNF TOM B7 C BE 16070 16080 TFM DC 16090 BO 16100 16110 16120 SM TR TO 16130 16140 16160 16170 SF B7 BD SF TF DC PLACE TF T.F PAGE 10 PAGE 11 ,a, *-12 SUB 2 PI FROM MANT UNTI L NEG 00244 MI> 00232 01100 SAVE-l -P, -L 00256 L2 00099 00000 SAVE -P,PI-45 ,+l 00268 KJ 00 100 00917 ,a *+36 00280 M7 00316 01300 CLF+IO ,01 ,010 00292 J2 0009B 000-1 -P SAVE 00304 L2 00100 00000 SAVE -P,PIDV2-45-P, , ,+L 00316 KJ 00100 00451 BO ,CLR-!06-P, , ,2 L 00328 20 00080 00628 4B,5552705600 0002202000 5055000000 0008550000 00560050 ,348 0034B 00048 -P SAVE -P,SAVE 00340 KL 00100 00100 -P,98 , -L SAVE 00352 K6 00100 00098 SAVE-l -P, -L 00364 L2 00099 00000 BETA -P,ONEZ-47-P" ,+LSET BETA EQUAL 1 PLUS L+l ZERO 00376 KO 00196 00402 ,H34-1 AAB-3 ,01 00388 LJ 00907 01010 SUM+l ,2 ,0 lIt SET FOR SUBTRACTION 00400 J5 00473 GODOK , -L 99 ,98 00412 26 00099 00098 97 ,0000 ,8, -L 00424 16 00097 0-000 98 ,A8 -L 00436 2R 00098 00914 ,0, DONE 8R IF QUOTIENT ZERO 00448 M6 00588 01200 -p ,95 ALPHA 00460 K6 00050 00095 -P BETA -P,ALPHA 00472 KK 00196 00050 ,0 10 AAB ,2 00484 Jl 00910 000-2 AAB-2 ,2 ,010 00496 J 1 00908 000-2 , AAB-2 ,0 1, MB 40IG IT PRODUCT 00508 KL 00910 00908 ,a ,99 AB 00520 K6 00914 00099 ,CLR-IOb-P,t 80 ,2L 00532 20 00080 00628 SAVE -P,ALPHA -P 00544 KL 00100 00050 , SUM+l OVER ,01 00556 MM 00400 00473 ,0, ,I SUM+l SET TO ADD 00568 J5 00473 00001 OVER+l2 ,0 005BO M9 00412 00000 BETA-l -P,CLR-95-P ,+L 00588 KM 00195 00639 PQlCH+60 ,0, BR IF L+l ZEROS 00600 H6 00820 01200 -p ,01 SAVE ,10 00612 J6 00100 000-1 48,0750775070 0000505505 500050005 I 0000505000 05057005,350 00350 00048 PLACE-24 ,BETA-l -p,O, ,-LBR IF NORMALIZATION NOT REQ 00624 ML 00692 00195 SAVE -PtOl ,10 00636 J2 00100 000-1 BETA-l -P,BETA -L,-L 00648 LJ 00195 00196 -P" BETA-l -P,NOS DIG ENTER NOISE DIGIT 00660 K5 00195 02401 -L BETA-l -P, 00672 L2 00195 00000 *-60 0068't M9 00624 00000 PLACE ,CLF+IO ,01 00692 ML 00716 00098 8ETA-2 -P 00704 L2 00194 00000 -p,t -P,SAVE BETA STORE CHAR 00716 KO 00196 00100 , " " " " , , " 233 TFL 16200 17010 17030 POZCH 17040 17050 17060 17070 17080 17100 17120 17130 17140 17150 17160 17170 17180 17190 AAB 17200 AB 18010 IB020 PI 18030 TWOPI 18040 H34 18050 18060 PCK+15 , BETA -P,b, STORE RESULT 00728 00 0238- 00196 RESTORE RM 00740 KN 00051 01018 RETURN TO MAINLINE PROGRAM PCK+I0 00752 49 0237N 00000 00760 J4 00196 000-3 CM -P,03 ,10 BETA ,0, BR IF CHAR SMALLER THAN 03 BL *+80 00772 M7 00852 01300 -p ,00 ,10, ,+L 00784 J4 00196 000-0 CM BETA BR IF CHAR LESS OR EQUAL L BNH <+44 ,0, 007'16 M7 00840 01100 ,0 CHAR TOO LARGE TOM 401 t ll, 00808 15 00401 0000ALPHA+l-P,H34+7 RESTORE RM 00820 KN 00051 o lOla TO 87 ZRE S 00832 M9 00346 00000 TOM 401 ,0 00840 15 00401 00000 , SAVE-l -P,07, 'AOJ TO SUB TWO PI FROM MANT TFM *+42 00852 JO 00894 -0099 -P,O, UNTIL REDUCED TO NEG NUMBER. ,BETA *+30 00864 KK 00894 00196 ,11, -L 00876 J5 00194 0000TOM BETA-2 -p ,0 TF ,BETA-2 -P 00888 20 00000 00194 ,0 00900 M9 00208 00000 BRO B 00907 DORG '-4 OS 00910 00004 4 00914 00004 OS 4 00915 00001 OS 1 ,3141592653589793238462643383279502884 1971693993 DC 47 00962 00047 DC 47 ,62831853071795864769252867665590057683943387987 01009 00047 01011 00002 ,01 ~C 2 ,02 01013 00002 DC 2 ,OO02@ DC 01016 00005 5 OEND 02072 02072 TO 87 ALPHA+I-P,H34+7 ,I, ,6, 2 31~ PAGE 12 VARIABLE LENGTH FLOATING ARC TANGENT 18070.***** SYMBOL TABLE NOSDIG CLR LOGE PCHAR SAVE TEST2 02401 00734R 00543R 00836R 00100R 00652R ALPH EDGAR NINE PCK SIX UNFL 00196R OOOOOR 001>36R 02365 01235R 00334R DSA FATN3 DORG EDGAR TFM PCK+5 PCK 87 18130 ac TFM 18140 18170 80 87 TO 18180 TEST 18190 18200 CF CM 8H 19010 BE 19020 19030 CM 8L 19040 19050 1901>0 TFM A TF 19070 CF 19080 TF 19090 ALPH SF 19100 19110 CN BL 19120 191)0 TF NM 00050R 01040R 00449R 00198R 01281R 00000 ATNI FATN3 OVFL PIOV2 TES T ZRES 00424R OOOOOR 00266R 00491>R 00064R 00346R BETA LN10 P PIOV4 TESTl 00196R 00591R 00000 01321>R 00792R 00004 00005 -0000 00000 00000 10 02370 -0020 ,6, BR TO PICK AND RETURN 00012 4' 0236N 00000 50 ,0700055050 0000510005 057670'070 7000065020 51500825,350 00350 00050 SET INDICATORS TEST+11 ,08, 00020 J6 00075 0-000 *+20 .8EU-l -p,o, ,-L 00032 ML 0005.2 00195 00044 M9 00816 00000 TESTl+24 SAVE MANT SIGN TEST+9 ,BETA-Z -p,o, 00052 KN 00073 00194 00064 L3 00194 00000 BETA-2 ~P 00076 J4 00191> 000-0 ,10 BETA -Po 8R IF CHAR POSITIVE PCHAR 00088 116 00836 01100 BR IF CHAR ZERO ALPH 00100 M6 00196 01200 +L 00112 .... 01196 99\oRR BETA ~P.-99999 ,10, BR IF CHAR LESS THAN -Ill-id eOD ,0, 0012" M7 01040 01300 00136 JO 00195 -0194 ALPH-l ,IEU';Z -P.07 0014. KJ 00195 00196 ALPH-l ,IITA -p,o -L,+L CLEAR AREA LeFT OF BETA BETA-2 -P.CLR-'6-P " 001100 KO 00194 001038 -L EXPAND 8ETA BY REIIOVING FLAG BETA-1 .p, 00172 L3 00195 00000 ADJUST BETA FIELD FOR CHAR 8ETA-Z -P, " 0018"· K6 00194 00000 -L CONTRACT BETA BY RfSETTNG· FLAG BETA-l -P, " 001" L2 00195 00000 00208 J" 00196 DOOK9 BnA -P,29 ,10, -L 8R IF "ANT LESS THAN .29 . ATNl-72 ,0, 00220 M7 00352 01300 ,+L 00232 20 00079 00634 79 . ,CLR,..lOO-P" 60MANT IN 99 BETA-z -P,I> ,10, 0024" J3 00194 000-10 18090 FATN3 18100 18120 ALPHA Eoa ONEZ PICK TAN6 XX ,17 ,0, ,0, 235 PAGE 13 19140 TOil TF· 19170 TF 1.180 LO 19190 DC 19200 20010 D TF 20020 SF 20030 TF 200"0 20050 II TF 2001>0 TF 20070 20080 20090 ATNI TFM TFII TF 20100 20110 20120 20130 TFiI 20140 20150 TF M DM S TF 2011>0 TF 20170 20180 20190 SM SM BNZ 20200 Tf 21010 TF M 21040 DC 21050 BNF BNN 21060 .-1 ·1+1>'''ANT IN 99 00256 15 00098 OOOOJ BETA-2 -P,SIX-45 +L MANT-.I> L DIGITS 0021>8 KK 00194 01190 10+6'MANT MOVED TO ALPHA.L+20G 00280 K6 00050 00099 99 ,2L 2L+2 ZEROS ,CLR-9'o-P " 00292 20 00099 00640 98 ,BETA-2 -p" DIGITS 1 00304 2Q 00098 00194 48 ,2552000855 5256030106 2020055008 5552000000 56550855,348 . . 00348 00048 100 ,ALPHA -p" -L, L+2 DIGITS 00316 2R 00100 ·00050 8ETA-2 -P,91 ,-L MANT IS .MANT-.6d/Il0+6.MANTa 0.0328 K6 00194 00097 Te5T+U INO THIS CALC MADE 00340 L2 00075 00000 80 ,ClIi-101>-P" ,2L ZEROS 00352 20 00080 00628 aUA-2 -P,8ETA-2 -P" SQUARE MANT 00364 KL 00194 00194 ,-L SAVE IS MANhMANT.L DIGITS SAVE . -P, 99 " 00376 K6 00100 00099 , ALPHA -P ,CLR-9S -p" ,+L INIT ALP~A TO 00 L+l ZEROS 00388 KO 00050 00639 ,99999 ATNIH5 ,10, ,2L OO~OO JI> 00459 999R9 ,99999 ATNl-3 ,10, ,+L 00412 J6 00421 99.R9 99 ,CLR-92-P ,+L L+4 lIROS 80,,24 20 00099 001042 9. ,10 ,10, -L 00431> 16 00098 OOOJO 98 -L 00"'" 19 00098 -0000 96 ,ALPHA -P .0041>0 2K 00096 00050 ALPHA -P,96 L+l DIGITS 00"72 KI> 00050 00096 ,ClR·l'06-P, , 80 ,2L 00484 20 00080 00628 ALPHA -P,SAVE -p" 2L+l DIGITS 00491> KL 00050 00100 ALPHA -P,99 ,-L L+l DIGITS 00508 K6 00050 0009. ,010 ATNl+3' ,2 00520 J2 00'>59 000-2 ATNl-3 ,1 ,010 00532 J2 00421 000-1 ATNI BR IF LESS THAN L-1 PAsses 00544 N7 00424 01200 -P,ON£:Z-47-P,t ,+L SAve L+2 DIGITS 00"1> KO 00100 00402 -P, ALPHA -p " ONE MINUS SUM DFICOfF."ANT . . 2a SAve 00568 KK 00100 00050 80 ,CLR-106-P, , 00580 2Q 00080 00628 SAVE -P,BETA-2 -p" ~L+2 DI~~~9~R~~U~~100 00194 48 ,0000202100 2026502504 5044200040 5200500500 00084025,348 00348 00048 TEST2 ,TEST+ll ,01 001>04 11M 00652 00075 ,0 TES.T2-12 , 00611> 141> 001>40 01300 ,1, 19150 19160 21020 21030 98 -P," .0, , " " " ,0, 1311 '. ,PAGE 14 21070 21080 SF 21090 TEST2 21100 21110 8NF SF A 21120 21130 TFM TO 80 21150 21160 21170 SM TR TO 21180 21200 22050 22070 PCHAR B7 SF TF BNF SF TFL 87 TOM 22080 22090 TF TOM 22030 TESTl 22100 0 22110 DC 22120 BD 22130 SF 22140 22150 TF SM 22160 22180 B7 TF 22190 SM 22200 BL 23010 BE 23020 SF 23030 B7 TFM TF 99 99 , -L -L ,+l 00628 32 00099 00000 ,TAN6-45 ,1, L+l DIGITS 00640 2J 00099 01236 , TEST+IO ,01 00652 MM 00688 00074 *+36 -L 00664 32 00099 00000 99 -L ,+L 99 ,PIDV2-45-P" L+2 DIGITS 00676 2J 00099 00451 -P,l ,lD 00688 J6 00196 000-1 BETA -L ,BETA+l -Pt, INSERT RM AT 100-L 100 00700 2N 00100 00197 TESTl-24 ,98 ,-2L BR IF NORMALIZATION NOT REDO 00712 M3 00768 00098 -P,l ,to BETA 00724 J2 00196 000-1 -2L ,-2L 00736 31 00098 00099 98 ,99 -L 99 INS EAT NOISE DIGIT ,NOS DIG 00748 25 00099 02401 ,0 00760 M9 00712 00000 *-48 -2L 00768 32 00098 00000 98 ,-L 00780 K6 00194 00097 8ETA-2 -P,97 ,TEST+9 00792 MM 00816 00073 *+24 ,01 00804 L2 00194 00000 BETA-2 -P -P,6 PCK+15 ,BETA 00816 00 0238- 00196 ,6 00B28 49 0237N 00000 PCK+l0 , -1 TEST+l0 ,0, INDICATE POS I T I VE CHAR 00836 J5 00074 OOOOJ ,CLR-95-P 99 ,2L 00848 20 00099 00639 ,-1 -2L DIVIDEND EQUALS .1 100 00860 15 00100 OOOOJ -L, IS MANT 99 ,BETA-2 -P., DIVISOR 00872 2R 00099 00194 555670 70510005,348 44 ,0440525000 5250000050 0050510000 00348 00044 ,0, ,99 ,-2L BR IF MANT IS 100000 ••• *+56 00884 M3 00940 00099 -2L REDUCE TO L DIGITS 100 00896 32 00100 00000 ,-L 00908 K6 00194 00099 BETA-2 -P,99 ,1O, -P,l REDUCE CHAR BY 1 BETA 00920 J2 00196 000-1 THESE 3 00932 M9 00964 00000 ,0, *+32 ,-L INSTRUCTIONS GO BETA-2 -P,98 00940 K6 00194 00098 WiTH BD ABOVE ,1O, BETA -P,2 00952 J2 00196 000-2 ,0, ++44 BR IF OPERAND I S ONE 00964 M7 01008 01300 ,0, BR IF CHAR REDUCED TO ZERO ALPH 00976 M6 00196 01200 -P, CHAR STILL POS iT I VE ,MAKE NEG BETA 00988 L2 00196 00000 01000 M9 00112 00000 TEST+48 ,10, -P, STORE CHAR 01008 J6 00196 000-0 BETA ,+L 01020 KO 00194 01281 BET A-2 -P, P IOV4-45 " , , 1 ~, , " , " , , 237 PAGE 15 23070 EDD 23130 23140 , 23150 23160 23170 23180 23190 24010 24020 24050 24060 24070 SIX 87 BNF TF TF CF TOM CM BNH TFM DC A S TF TFM B OORG DC 24080 TAN6 DC 24090 PIOV4 DC DEND TESTl TESTl 01032 M9' 00792 00000 BR IF RESULT MORE THAN PIOV2 01040 MM 00792 00074 ALPHA -P,BETA-2 -P 01052 KO 00050 00194 BETA-2 -P, P I DV2-46-P, t ,+L L+2 DIG iT S 01064 KO 00194 00450 ALPHA-1-P, -L 01076 L3 00049 00000 ALPHA -P, 111, -L 01088 J5 00050 0000-P, 00 BETA ,1011, ,+L 01100 J4 00196 000-,0 01112 M7 01160 01100 *+""8 ++35 ,ALPHA -P,07 01124 JO 0ll-59 -0050 10 ,0550555000 ,350 00350 00010 '*+23 ,BETA -PtO 01136 KJ 01159 00196 BETA-2 -P 01148 K2 00194 00000 BETA-2 -P,8ETA-3 -P 01160 KO 00194 00193 BETA -P,Ol ,10 01172 J6 00196 000-1 TESTl ,0 01184 M9 00792 00000 *-4 01191 45 ,600000000000000000000000000000000000000000000 01235 00045 46 ,5"04195002705841554435783646085999101351482514 01281 00046 45 ,785398163397448309615660845819875721049292349 01326 00045 02091 02091 , TEST+l0 , PAGE 16 FLOATING EXPONENTIAL 24100****** VARIABLE LENGTH SYMBOL TABLE Nosa IG CLR FEX3 DNEZ P IDV2 UNFL 02401 00734R OOOOOR 00449R OQ496R;° 00334R DSA GOBACK EDGAR GORO OYFL REel P , xx DID28R oooaOR a0608R oa266R DOBB8R 00000 FEXT3 24110 FEX3 DORG EDGAR TOM SETUP+! 24120 24140 FEXT3 67 TOM 24150 24160 TFM 87 24180 DC TFM 24200 TF 25010 25020 ,80 87 25040 TO 25050 25060 25070 CF TFM TF 25080 SETUP 25100 25110 TF M 25120 BO 25130 25140 25150 SM SF 25160 25180 87 TF TF ALPHA 0005aR a0436R E12 LNla 00591R P 00000 SAVE aOIOOR aa346R ZRe'S BETA FACT LOGE PCK SETUP , FEX3 ,a, FEXT3+l2 , SETUP+l ,9 ,0 ,a, ALLOW 00196R 00740R 00543R 02365 00144R CALC FEXT3 NINE PICK TEN34 aa46BR oa020R aQ636R aOl98R 01093R 09004 00005 -0020 00009 00005 -ooolf) 00000 MUL By LOG E FOR EXP 00000 J5 00145 00001 PREVENT ';MUL ~~O~~G"~ ~g~3~X~0000 0002Q J5 00145 00009 00032 10 02370 -0052 ,6, 8R TO P ICK AN~ RETURN 00044 49 0236N 00000 46,0056070005 5020250008 5604504052 0052510050 000050 ,348 00348 00046 000'2 J6 01027 000-1 GOBACK-I ,01 .10 ALPHA-2-P t ONEZ-45-P, , ,+L ONE. L+4 DIGIT MANTISSA 00064 KO 00048 00404 ,-L *+20 ,8ETA-l -P,o, 00076 ilL 00096 00195 G08ACK-12, BR IF "ANT ZERO 00088 119 01016 00000 ,8ETA-2 -P,O, RECIP-I NON ZERO MANT! SSA 00096 KN 00887 00194 BETA-2 -P 00108 L3 00194 00000 00120 16 00101 -0000 101 -L -L L+4 DIGITS IN 101-L 97 ,8ETA-2 -P" 00132 20 00097 00194 ,0, MUL BY LOG E IF EXP 00144 M9 00236 00000 00156 20 00080 00628 80 ,CLR-10b-P" ,2 L 2L+2 OIGIT PRODUCT BETA-2 -P,LOGE-45-P" ,+L 00168 KL 00194 00498 ,0, ,-2L 8R IF AIORDER NOT ZERO ,98 , 00180 M3 00236 00098 00192 J2 00196 000-1 BETA -P,l 99 , 00204 32 00099 00000 -2L, ,-L MOYE L+4 DIGI TS BETA-2 -P,102 00216 K6 00194 00102 00228 119 00248 00000 ,0 *+20 t ,-L MOVE L+4 DIGITS BETA-2 -P.lOI ,17 PCK+5 PCK . " 239 PAGE 17 25190 25200 CM BNH 26010 26020 CM BE 26030 BL 26040 26050 CM BH 26070 8L 26060 DC 26090 TR 26100 26120 87 TOM 26130 26150 CF A TR 26160 BNY 26170 E12 8NF 26180 26200 27010 CALC 87 SF TFM 27020 27030 eM 8L 27040 SM A 27050 AM 27060 B7 27080 TFM 27090 27100 TF A 27110 27120 CF 27130 SF TF 00236 K6 00194 00101 ,+L 00248 J4 00196 000-,1011 BETA -P,-OO BR IF CHAR LESS THAN -L G08ACK-12, 00260 M7 01016 01100 00272 J4 00196 000-0 ,10, -P, BETA BR I F CHAR ZERO CALC 00284 M6 0046B 01200 BR IF CHAR BETWEEN -L AND ZERO ,0, CALC+68 00296 M7 00536 01300 00308 J4 00196 000-2 ,10 -P,2 8 ETA ,0, BR IF CHAR LARGER THAN 2 EI2 00320 M6 00436 01100 ,0, 8R IF CHAR 8ETWEEN 0 AND +2 00332 M7 00376 01300 07770070 7007770050 5090007000 7000000505 76705070, 34" 00348 00046 CHAR EQUALS P2 ,-L GOBACK-l ,BETA-4 -P" 00344 KJ 01027 00192 SHIFT LEFT 2 POSITIONS -L ,-L BETA-5 -P,8ETA-3 -P" 00356 LJ 00191 00193 00368 M9 00424 00000 E 12-12 CHAR EQUAL S +! -L BETA-6 -P, 00376 J5 00190 0000" 00388 L3 00191 00000 -L BETA-5 -p t " DO~OO KJ 01027 00191 ,-L GOBACK-I ,8ETA-5 -P" -l,-l SHIFT LEFT I POSITION BETA-5 -P,8ETA-4 -P" 00412 LJ 00191 00192 8R IF AOJ CHAR DOES NOT OVFlOW 0042~ M7 00456 01~00 BR IF MANT POSITIve -P,RECIP-l OVFL 00436 MM 00266 00887 00448 M9 00334 00000 UNFL -P 00456 L2 00191 00000 BETA-5 -P, " -2L INIT SIZE INO ,o8l0, 00468 J6 00477 0-0-0 00480 J4 00192 OOOL~ ,10, -L BETA-4 -P, 34 BR IF BETA LESS THAN .34 +CHU GORD 00492 M7 00608 0.1300 -L ADJ BETA BY -.34 , lO, 00504 J2 00192 OOOL4 STEP SIZE INO ,010, , I CALC+9 , 00516 JI 00477 000-1 ,0, CONTINue REDUCT10N OF 8ETA CALC+12 00528 M9,00480 00000 PROCESS IF CHAR NEG ,BETA-4 -P,07, 00536 JO 005~,S -0192 005~8 KJ 00595 00196 *+47 ,BETA -PtO L+4 DIGIT FIE'LD -L, +L BETA-6 -P,CLR-96-P 00560 KO 00190 00638 00572 L3 00191 00000 -L BETA-5 -P, SHIFT RIGHT W R T CHAR SIZE BETA-4 -p, 00584 K6 00192 00000 00596 L2 00191 00000 -L BETA-5 -P, ,0, ,0, ,0, ,0, PAGE 27140 DC 27150 GORO 27160 TF M 27170 27180 TF SF TF 27190 27200 28010 28020 28030 A TF M 28040 TF 28050 28060 FACT TFM OM TFM 28070 82 28080 TF 28090 28100 AM 87 28120 28130 CM 8E 28140 TF 28150 M 28160 28170 SF TF 28180 SM 28190 29010 29020 REC I P 87 DC BNF 29040 TF 29050 TFM SF 29060 29070 BV AM 18 44,0856405252 0055085502 2020005000 0000000851 4052 ,348 00348 00044 80 ,CLR-I06-P, , 00608 20 00080 00628 ,2L BETA-4 -p, LNIO-46-P t , ,+L 2L+4 DIGIT PRODUCT 00620 KL 00192 00545 -2L 97 00632 32 00097 00000 -p ,99 ,-L L+4 DIG IT FIELDS SAVE 00644 K6 00100 00099 ,-L BETA-2 -P,99 00656 K6 00194 00099 FACT+ll ,2 ,010 00668 J6 00751 000-2 ALPHA-2-P, SAVE -P 00680 KJ 00048 00100 ,CLR-I06-P, , 80 ,2L 00692 20 00080 00628 -P,BETA-2 -P" 2L+8 DIGIT PRODUCT SAVE 00704 KL 00100 00194 ,96 ,-L DIGIT DIVIDEND 99 L+6 00716 26 00099 00096 ,lO, -L 96 00728 16 00096 000-0 97 -L DIGIT DIVISOR. L +4 QUOT! ENT 00740 19 00097 -0000 FACT+56 ,0, 8R WHEN TERM REDUCES TO ZERO 00752 M6 00796 01200 -P,97 SAVE L+4 DIGIT FIELD 00764 K6 00100 00097 FACT+ 11 ,1 ,010 00776 JI 00751 000-1 ,0, FACT-60 CALC NE XT TERM 00788 M9 00680 00000 ,0lC 00796 J4 00477 000-0 CALC+9 ,0, 8R IF FURTHER ADJ NOT REQUIRED RECIP 00808 M6 00888 01200 80 ,ClR-I06-P,t ,2LAOJUST FOR REOUCTNS BY .34 00820 20 00080 00628 , L 2L+4 DIGIT PRODUCT ALPHA-4-P, TEN34-45 , I 00832 KL 00046 01048 -2L 2L+3 DIGITS 00844 32 00097 00000 97 ,-L ALPHA-4-P ,98 L+2 DIG ITS 00856 K6 00046 00098 CALC+9 ,1 ,010 t REDUCE INDICATOR 00868 J2 00477 000-1 ,0 00880 M9 00796 00000 *-84 26, 0000084025 0000000200 005005 ,350 00350 00026 ,0 1, GOBACK-12, REC I P-l BR IF MANT WAS POSITIVE 00888 MM 01016 00887 MAKE CHAR NEGATIVE GOBACK-1 00900 L2 01027 00000 ,CLR-94-P ,2LCALC REC I PROCAL IF NEG MANT 99 00912 20 00099 00640 99 ,10 tIO, -2L, 2L+2 DIGIT DIVIDEND 00924 16 00099 OOOJO ,ALPHA-4-P, , -L, L+2 DIGIT DIVISOR 100 00936 2R 00100 00046 ,0, GOBACK-24, 8R IF ORIG OPER 1 OR 1/ LOGE 00948 M6 01004 01400 00960 Jl 01027 000-1 ,10 GOBACK-1 ,01 , .. , , , 241 PAGE 19 TF *+23 ,G08ACK-l ,6 ,99 ,6, 00972 KO 0099N 01027 TFL P CK+ 15 ,-L STORE RESULT 00984 06 0238-' 00099 29100 87 PCK+ 10 ,6, RETURN TO MAINLINE 00996 49 0237N 00000 29101 AM GOBACK-l,Z,lO 01004 Jl 01027 000-2 TFM ALPHA-4-P 01016 J6 00046 -0000 GOBACK TFL PCK+15 ,ALPHA-4-P,6, STORE RESUL T 01028 00 0238- 00046 B7 PCK+10 .6, RETURN TO MAINLINE 01040 49 0237N 00000 29150 TEN34 DC 47 ,21877616239495525622261149163841873167118056246 01093 00047 DEND 02102 02102 242 PAGE 20 FLOATING POINT LOG AND LN. VARIABLE LENGTH SYMBOL TABLE NOSOIG COUN GOAL ONEZ ALPHA 00050R 02401 00368R 00B32R 00449R CZERO LNI0 OVFL PLUS PIOV2 D0496R ZRES 00266R BETA EDGAR LOGE P DQbBOR SAVE 00959R 00591R 00196R OOOOOR 00543R 00000 DOIDOR CLR FLN3 NINE PCK UNFL 00734R 00020R 00636R 02365 00334R CORN FLOG3 NLG PICK XX 00596R OOOOOR 00876R 00 19B R 00000 00346R OSA 00004 00005 -0000 00009 00005 -0020 00000 ,I SET FOR COMMON LOG 00000 J5 00597 00001 *+20 00012 M9 00032 00000 ,0 ,0, CORN+l ,9 SET FOR NATURAL LOG 00020 J5 00597 00009 PCK+5 00032 10 02370 -0052 PCK BR TO PICK AND RETURN 00044 49 0236N 00000 28 ,0700 6050 0500500105 7070700055 ,350 00350 00028 ,BETA-l -P tt ,-L BR I F NON ZERO ARG 00052 ML 00096 00195 401 ,0 SET IND FOR LOG DR LN OF ZERO. 00064 15 00401 0000N I NE-45-P, PL SET UP TO STROE NEG NINES 00076 L2 00591 00000 OVFL+12-P, BR TO STORE AND RTN TO MAINLIN 00088 M9 00278 00000 ,BETA-Z -P,O, BR IF MANT POSITIVE 00096 MM 00132 00194 401 ,0 SET IND FOR NEGATIVE 00108 15 00401 00000 8ETA-2 -P, MAKE POSITIVE 00120 L3 00194 00000 CORN-25 ,CZERO-45 ,017, +L INITIALIZE 00132 JO 00571 -0914 GOAL-13 ,BETA -p,O, SAVE CHAR 00144 KO 00819 00196 BETA-l -P, -L, EXPAND FIELD TO L+I DIGITS 00156 L3 00195 00000 BETA-2 -P,l -L, ADD 1.0 00168 J5 00194 OOOOJ 8ETA-I -P,15 -L, 00180 J4 00195 000J5 *+44 BR IF MOO MANT NOT LESS 1.5 00192 M6 00236 01300 BETA-2 -P,BETA-2 -P" DOUBLE MANT. L+I DIGITS 00204 KJ 00194 00194 CORN-25 ,48 ,010, ADJ FOR NEXT CONSTANT 29190 FLOG3 29200 30020 FLN3 B7 TOM 30030 30040 B7 29180 DC TFM BO 30060 TOM SF B7 30110 BNF 30120 TOM 30130 CF 30140 30150 30160 TFM TF 30170 301 BO 30190 TOM CM BNL 30200 A 31010 AM CF ,FLN3 FLOG3 OORG EDGAR CORN+l TOM ,0, , 2 ~3 PAGE 21 00216 Jl 00571 000M8 31020 31070 B7 DC 31040 TF 31050 TOM 31060 31080 31090 311 00 Lo TF 31110 TF 31120 31130 M o TF 31140 TF 31150 31160 COUN A 31170 311BO TFM 31190 31200 TF 32010 32020 OM A 32030 TF TFM TF TFM 32040 32050 TF 32060 SM 32070 SM 32090 BNZ 320 DC 32100 32110 TF M 32120 A 32130 TF *-60 t ,0 00228 M9 00168 00000 42,56705508252552085552550103 5106202050 085552, 350 00350 00042 ,+L L+l DIGITS ALPHA -P, ONEZ-48-P" 00236 KO 00050 00401 ,11 , -L, CONVERT TO TWOZ ALPHA 00248 J5 00050 OOOOK 2.0 MINUS MO~ MANT ~2.0-Z0 ALPHA -P,BETA-2 -P" 00260 KK 00050 00194 00272 20 00099 00641 ,2L 99 ,CLR-93-P " 00284 2Q 00097 00050 97 ,ALPHA -p" -L, -L, %2.0-Zo/Z EQUALS Y ,BETA-2 -P" 98 00296 2R 00098 00194 , -L L+2 DIGITS BETA -P,9B 0030B K6 00196 0009B ,CLR-I06-P, , ,2L 00320 20 OOOBO 0062B 80 -P,BE"TA -p" 2L+4 DIGITS BETA 00332 KL 00196 00196 -p ,97 ,-L L+2 DIGITS SAVE 00344 K6 00100 00097 -p,t -P,8ETA BETA DOUBLE Y 00356 KJ 00196 00196 >+9 ,99999 ,+L1NITIALIZE COUNT TO L-l TERMS tOlD, 0036B J6 00377 999R9 ,010, 003BO J6 00439 999R9 CQUN+71 t 99999 ,2L ALPHA -P,CZERO-46 ,+L L+2 DIGITS. ZERO ALPHA 00392 KO 00050 00913 ,CLR-92-P 00404 20 00099 00642 ,+L 99 ,10, -L, 98 ,10 OBTAIN RECIPROCAL TERM 00416 16 00098 OOOJO 00428 19 00098 -0000 -L, 98 L+2 DIGITS TO PREV TOTAL ALPHA -P ,97 00440 Kl 00050 00097 ,ClR-IOb-P, , 80 ,2L PRODUCT OF Y**2 AND TOTAL OF 00452 20 00080 00628 ALPHA -P,SAVE PREVIOUSLY CALC TERMS -P" 00464 KL 00050 00100 ,-L ALPHA -P,97 L+2 DIGITS STORED TOTAL 00476 K6 00050 00097 ,010, COUN+71 ,2 REDUCE DIVISOR 00488 J2 00439 000-2 REDUCE NO OF UNCALC TERMS COUN+9 00500 J2 00377 000-1 BR IF L-I TERMS NOT CALC COUIJ+36 00512 M7 00404 01200 46, 08552550 5052000865 5250066005 5050605000 07770050,350 00350 00046 ,CLR-I06-P, , ,2L 00524 20 00080 00628 80 2Y • SUM OF L-I TERMS ALPHA -P,BETA -P" 00536 KL 00050 00196 , BETA -L ADD 2Y TO ABOVE PRODUCT. L+2 97 -P" 0054B 2J 00097 00196 SET WITH PROPER CONSTANT l+3 BETA -P, , . , ,0, 2H PAGE 22 00560 K6 00196 00000 -p SF BET A 00572 L2 00196 00000 -p ,97 , -L SUB ACCUM TOTAL FROM CONSTANT S BETA 00584 K2 00196 00097 NlG BR IF F I NO I NG NATURAL LOG ,0, 00596 M9 00876 00000 , 2L TF 80 ,CLR-l06-P" 00608 20 00080 00628 -p, , M LOGE-45-P,BETA +L, 00620 KL 00498 00196 -p ,97 ,-L L+3 DIGITS 00632 K6 00196 00097 TF BETA -P SF BEH 00644 L2 00196 00000 TF ,CLR-IOO-P, , , +L 80 00656 20 00080 00634 M ONE Z-46-P, G DAl-13 ,1, +L, OR I G CHA R • ONE. L+5 DIGITS 00668 KL 00403 00819 99 -P A ,BET A 00680 2J 00099 00196 -P,99 TF BETA PREPARE FOR NORMAL I ZA TI ON 00692 K6 00196 00099 CF 8ETA -P 00704 L3 00196 00000 CLR-92 -p ,98 ,+L 00716 K4 00642 00098 C -P, BE ZRES 8R IF L+5 ZEROS 00728 M6 00346 01200 TFM GOAL-I ,03 t la, SET CHAR EQUAL 3 00740 J6 00831 000-3 ,BETA-4 -p ,0, ,-L BR IF HI ORDER DIGIT NON-ZERO BD GDAL-24 00752 ML 00808 00192 -l,-L TR BETA-4 -P,BETA-3 -p, , 00764 LJ 00192 00193 SM GOAL-l ,01 ,10, REDUCE CHAR 00776 J2 00B31 000-1 -p ,NOS DIG TO BETA INS ERT NOISE DIGIT 00788 K5 00196 02401 87 *-48 ,0, CONTINUE NORMALIZATION 00800 M9 00752 00000 ,7050005005000660 DC 16 ,350 00350 00016 8ETA-4 -P, -L, SF SET FIELD DEFINITION 0080B L2 00192 00000 8ETA-3 TFM 00820 J6 00193 -0000 BNF ,99 AFFIX SIGN AND RTN TO MAINLINE "+24 00832 M4 00856 00099 SF BETA-5 -P 00B44 L2 00191 00000 TFL PCK+15 , BETA-3 -h6 00856 00 0238- 00193 ,6 87 PCK+ 1 0 00868 49 0237N DOOOD ,ClR-IOQ-P, , ,+L TF CONVERSION FOR LN 80 00B76 20 00080 00634 008B8 KL 00546 00819 LNI0-45-P ,GOAL-13 +L, L+5 DIGITS ,0, RETURN TO COMMON SECTION PLUS 00900 M9 00680 00000 48 ,0 0095900048 OC 48,-69314718055994530941723212145817656807550013436 DC 01007 00048 48,-138629436111989061883446424291635313615100026872 DC 01055 00048 48,-207944154167983592 82 516963 643 7452970422650040308 DC 01103 00048 02122 DEND 02122 32140 ,2150 32160 CORN 32170 32180 12190 32200 33010 33020 33030 PLUS 33040 33050 33060 " 330BO 33090 33110 33120 .33150 GOAL , 33190 NLG 33200 " 34010 34030 CZE RO 37090 37100 37110 245 PAGE 23 FLOATING SHIFT RIGHT SYMBOL TABLE NOSD IG EDGAR ONEZ PICK ZRES 02401 OOOOOR 00449R 00198R 00346R JOHNNY FSRSI OVFL PIOV2 DSA DORG TRNM AM DC TF MF S TFM 8NF CF MA TFL TO 34078 B7 34079 JOHNNY MA 34080 SM 34090 MA 34094 aNF 34100 CF 34030 FSRSI 34040 34055 34060 34070 34070 34020 PATTY 34072 34074 34075 34076 34150 DC TF B7 DENO 00140R 0000 OR 00266R 00496R ALPHA LNI0 P SAVE FSRSI EDGAR PCK+ 11 ,PCK+ 10 PCK+lO ,II 4 ,5050 ALPHA , PCK+20 ALPHA ,PCK+15 PCK+15 ,PCK+15 PCK+25 JOHNNY ,PCK+20 PCK+20 PCK+25 ,PCK+20 P CK+ 20 , PCK+ 20 PCK+16 ,PCK+21 PATTY+12 PCK+25 ,PCK+20 PCK+25 ,I PCK+20 ,PCK+25 *-24 ,PCK+20 PCK+20 2 PCK+15 PCK+I0 02141 ,05 ,ALPHA 00050R 00591R 00000 00100R BETA LOGE PATTY UNFL 00196R 00543R 00060R 00334R CLR NINE PCK KX 00734R 00636R 02365 00000 00004 00005 -0000 00000 00000 3D 02376 0237N ,10 00012 11 02375 OOOJI ,350 00350 00004 ,11 00024 K6 00050 0238N ,11 00036 PI 00050 0238,611, ZERO ALPHA FIELD 00048 22 0238- 023800060 16 02390 -0000 00072 M4 DO 140 02385 00084 33 02385 00000 ,11 00096 70 02390 0238N ,11 00108 06 02385 0238N 00120 25 02381 02386 00132 M9 00072 00000 DO 140 70 02390 02385 ,10 00152 12 02390 000-1 00164 70 02385 02390 ,Il 00176 H4 00152 0238N ,6, REMOVE FLAG FROM B OPERAND 00188 33 0238N 00000 t 350 00350 00002 ,6 00200 20 0238- 00050 ,6, RETURN TO MAINLINE PROGRAM 00212 49 0237N onooo 02141 ,11 246 PAGE 24 FLOATING SHIFT L~FT SYMBOL TABLE NOSDIG CLR MK PCK xx 40010 40015 40020 40030 40040 40050 40010 40080 40090 40100 40110 40120 4()130 40140 40150 40160 40110 40lBO ALPHA EDGAR NINE PICK ZRES 02401 OD134R 00132R 02365 00000 FSLS BKSC MK BLNK DSA DORG TRNM DC TF AM MF TFM TFM SM SM 8NF TO SM TRNM BD TRNM MF 81 DC D~ND 00050R DOOOOR 00636R 0019BR 00346R FSLS EDGAR PCK+ll 08 ALPHA PCK+l0 MK+2 BK5C+35 MK+ll 8KSC+35 MK+ll 8KSC PCK+20 MK+ll PCK+15 MK-U PCK+15 PCK+20 PCK+IO 46 02151 BETA FSLS ONEZ PIOV2 OOl96R OOOOOR 00449R 00496R ,PCK+IO ,50000505 ,PCK+20 ,11 ,11 ,10 BKSC LNIO OVFL SAVE ,350 ,11 ,10 ,10 tI ,6 ,10 ,6 tI ,XX ,PCK+20 ,8KSC+35 ,11 ,611 ,MK+2 ,6 ,6 , 00591~ 00266R OOIOOR 00004 00000 00000 00350 00012 00024 00036 00048 00060 00012 00084 00096 OOIOB 00120 00132 00144 00156 00168 00180 00232 02151 ,ALPHA ,ALPHA ,BLNK+l ,I , XX ,BLNK OOD12R ,Oil BLNK LOGE P UNFL 00232R 00543R 00000 00334R 00005 -0000 30 02316 00008 K6 00050 11 02315 PJ 00134 JO 00101 JO 00143 J2 00101 J2 00143 . M4 00012 2N 023BN J2 00143 30 023BM3 00120 3- 023B1J 023BN 49 0231N 00046 0231N 0238N OOOJI 00050 -0050 -0233 000-1 000-1 00000 00232 000-1 00000 023BN 00 lOP 00134 00000 247 PAGE 25 36150* TRANSMIT FIELD FLOATING ROUTINE SYMBOL TABLE . NOSOIG LNIO P TFLS 02401 00591R 00000 OOOOOR 40110 40120 TFLS 40130 40140 40150 ALPHA LOGE PCK UNFL DSA DORG TRNM TFL AM 81 DEND 00050R 00543R 02365 0033'tR BETA NINE PICK 00196R 00636R 0019BR 00000 XX TFLS EDGAR .+14XX PCK+l0 PCK+l0 02161 ,PCK+l0 ,11 ,XX ,11 tiD ,6 CLR ONEZ PJOV2 ZRES 00134R 00449R 00496R 00346R 00004 00000 00000 00012 0002'0 00036 02161 EDGAR OOOOOR OVFL 00266R SAVE OOIOOR. 00005 -0000 LO 06 II 49 00014 00000 02315 0231N 248 0231N 00000 OOOJI 00000 PAGE 26 37020* FLOATING BRANCH AND TRANSMIT ROUTINE SYMBOL TABLE NOSOIG 02401 EDGAR OOOOOR NINE 006361"1. PICK 00198R ZRES 00346R ALPHA LNIO ONEZ PlOV2 00050R 00591R 00449R 00496R o SA 6 HSI DORG EDGAR TRNM MV+2 36020 BTFSI AM TF B TFL B7 OEND 36090 MOV 36100 NO BETA LOGE OV FL SAVE 00196R 00543R 00266R 00 100R BTFSI MOV P UNFL CLR OOOOOR 00036R 00000 00334R ND PCK XX 00734R 0004BR 02365 00000 00004 00005 -0000 00000 ,PCK+I0 , Ll, PCK+ 10 ND+6 ,Il ,PCK+I0 ,to XX XX 02171 , XX STORE A+B OPERANDS MOVE EXP AND BR 00000 00012 00024 00036 00048 02171 LO 00038 0237N Il 02375 OOOJI K6 00054 02375 07 00000 00000 49 00000 00000 249 PAGE AUTO FLOATING PT SET 03.SPSJIO SUBROUTINES MONITOR II SYMBOL TABLE NOSOIG LN10 P UNFL 02401 00%7R 00000 00322R 02040****** 01080****** 01090****** ****** 01100****** 01110****** 01120****** a 1130tt+**** 01140****** 01150****** 01160****** 01170****** 01180****** 01200****** 02010* 02020****** EDGAR 02100 ALPHA 02110 P xx 02130 SAVE 02140 BETA 02160 PICK 02170 03000 03130 03150 04030 OVFL ALPHA LOGE PCK XX 00050R 00519R 02365 00000 BETA NI NE PICK ZRES 00196R 00612R 00198R 00334R ClR 00710R ONEZ 00425R PIOV2 00472R EDGAR OOOOOR OVFL 00266R SAVE 00100R FOR OP ERA·NDS A AND B ONL Y PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. IF SUBROUTINES REQUIREO,THEN THE AREA IS USED AS FOLLOWS 239B MANTISSA LENGTH SOURCE,SUBROUTINE SUPERVISOR 02401 NOISE DIGIT. SOURCE,SUBROUTINE SUPERVISOR PCK AOR OF PICK. SOURCE,SUBROUTINE SUPERVISOR ADR OF RETURN TO SUBR. SOURCE,SUBROUTINE PCK+5 PCK+l0 ADR OF RETURN TO MAINLINE. SOURCE,PRIMARY LINKAGE PCK+15 ADR OF A OPERAND CHARACTERISTIC. SDURCE,PICK PCK+20 ADR OF B OPERAND CHARACTERISTIC. SDURCE,PICK PCK+25 ADR OF A oPERAND MANTISSA. SOURCE,PICK PCK+30 AOR OF B OPERAND MANTISSA. SOURCE,PICK PCK+31 RESERVED FOR POSSIBLE RECORD MARK PCK-5 THRU PCK-B9 SUBVEC FOR THE 17 FURNISHED SUBROUTINES AORS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR PCK-90 DOWN TO END OF IORT MAY BE USED IF NO ADDED SUBRours a SA PICK 0000 .. 00005 -0198 OS ,*-4 00000 00000 DORG EDGAR 00000 OS 51 00050 00051 OS ,ALPHA-ALPHA" ABS ZERO INO OPERD REFERENCES PICK 00000 00000 ,0, INDICATES FIELD IS MODIFIED BY ·PGM OS 00000 00000 ,50 00100 00050 DS 00196 00096 96 OS 00197 00001 DS 1 ,BETA+I-P RESET ERROR INDICATOR TO 401 0019B 2N 00401 00197 ,PCK+IO ,Il, MOVE OPERANDS FROM MAINLINE TR PCK+ll 00210 31 02376 0237N ,10, CALC RETURN ADR 00222 11 02375 OOOJI AM PCK+ 1 0 ,11 TFL BETA ,PCK+20 ,11, MOVE B TO BETA 00234 ~6 00196 023BN ,6, PCK+ 5 RETURN TO SUBROUTINE BV 00246 46 0237- 01400 , ,6 PCK+5 B7 00258 49 0237- 00000 ,001.00110000020 ,350 00350 00014 DC 14 , -1 00266 15 00401 OOOOJ 401 TOM NINE-44 +L 00278 L2 00568 00000 SF 2511 PAGE .. .. , NINE-43 ,6, TFL PCK+ 15 ,+L 00290 00 0238- 00569 CF NI NE-45 00302 L3 00567 00000 +L 87 PCK+I0 ,6 00314 49 0237N. 00000 04090 UNFL TDM 401 00322 15 004Dl 00001 ,l -L 00334 L2 00711 00000 lRES SF CLR+l TFL +2 ,6 00346 00 0238- 00712 PCK+15 t CLR CF . *-18 ,6 00358 L3 0034- 00000 ,6 87 PCK+ 10 00370 49 0237N 00000 04120 SHARED CONSTANTS 04140****** 49 ,1000000000000000000000DOOOOOODOOOOOOOOOOOOOOOOOOO 04150 ONEl DC 00425 00049 ,15707963267948966192 313216916397514420985846996 04160 PIOV2 DC 47 00472 00047 DC 47 ,4342944819032~182765112891891660S08 229439700580 04170 LOGE 00519 00047 DC 48 ,23025850929940456840 1 7~914546843 6420760 110 148862 04180 LNI0 00567 00048 4·5 , 999999999999999999999999999999999999999999999 DC 04190 NINE 00612 00045 DC ,99 00614 00002 2 00710 00096 04200 CLR OS 96 96 lERDS ,0 00710 D0048 05010 DC 48 49 ,0 ,*-47 00663 00049 05020 DC ,-99 DC 2 00712 00002 5 ,8 ,2365 02365 00040 DS8 02080 PCK NOSDIG DS ,2401 02401 00000 DEND 03001 03001 , , , ,- " 251 PAGE PROGRAM DIVIDE SYMBOL TABLE NOSDIG EDGAR OVFL SAVE 02401 OOOOOR 00266R OOIOOR 05050 DIVWI 05060 05070 05080 05090 ALPHA LNIO , UNFL 00050R 00567R OOODO 00322R DSA DIVWI DORG EDGAR TR PCK+11 AM TF lD 0 87 DEND PCK+IO 85 PCK+25 PCK+30 PCK+IO 03011 00196R 00519R BETA lOGE PCK XX ,PCK+IO 02365 00000 ,11, ,21 R-I0 ,Cl ,PCK+15 ,611 ,PCK+20 ,611 ,6 ClR NINE PICK ZRES 007l0R 00612R 0019BR 00334R OIVWI OOOOOR ONEl 00425R P IOV2 00472R 00004 00005 -0000 00000 MOVES DIV OPERANDS INTO PCK· AREA 00000 31 02316 0237N CALC RETURN ADR 00012 11 02375 -0021 00024 20 00085 00700 00036 28 0239- 023800048 29 0239N 0238N 00060 49 0237N 00000 03011 252 PAGE FLOATING ARlTHMETICS SYMBOL TABLE lRODIV EDGAR FS3 ONEZ PlOV2 ZRES NOSDIG FA3 lNl0 OVFl SAVE 0019bR OOOOOR OOOOOR 00425R 00472R 00334R DSA DORG TOM B7 TOM FA3 B7 FM3 TOM B7 DC TOM FD3 HOVE TF TFM B7 BXV FADo FLOP BV BNXV TOM BNF UNFlO CF B7 ZRODIV TOM FADD BNZ TF" B7 OEND FS3 02401 00020R 005b7R 002bbR 00100R ALPHA FD3 LOGE P UNFL ,FM3 , FA3 FS3 BETA FLOP MOVE PCK UNFLO 00050R OOObOR 00519R 00000 00322R t FD3 EDGAR ,2 FLOP+ 1 MOVE+12 FLOP+! ,! MOVE+12 FLOP+l ,3 HOVE 4,0005.350 FLOP+l ,9 79 .CL R-17 , FLOP-12 PCK+5 PCK .6 *+12 PCK+15 ZRODIV PCK+I0 401 PCK+I0 401 PCK+10 401 PCK+15 PCK+10 PCK+15 PCK+IO 03024 ,PCK+ZO · · · .611 .6 ,-I .PCK+15 ,0000 .611 ,810 .6 ,11 .0 ,UNFLO+ 11 .6 ,6 ,61011 .99 .6 0019bR 0011bR 00072R 02365 00176R 00710R 00040R OOb 12R 00198R 00000 ClR FM3 NINE PICK XX 00004 00009 00014 00019 00000 00000 00012 00020 00032 00040 00052 00350 00060 00072 00084 00096 00104 00116 00128 0014.0 00152 00164 00176 00188 00196 00208 00220 00232 00244 03024 00005 00005 00005 00005 -0000 -0020 -0040 -OObO J5 00117 M9 00084 J5 00117 M9 00084 J5 00117 M9 00072 00004 J5 00117 20 00079 00002 00000 00001 00000 00003 00000 00009 00693 10 02370 -0104 49 Hb 01 116 47 15 44 33 49 15 OJ 47 16 49 00000 01500 0238N 01400 01500 00401 OOOOJ 0237N 023800401 0-0-0 0237N 00000 00401 0000023B- 00187 0237N 01200 0238- OOORR 0237N 00000 0236N 00116 023800196 0237N 253 PAGE FLOATING SQUARE ROOT SYMBOL TABLE NOSDIG FSQR3 NINE PICK SQ3 02401 OODDOR 00612R 00198R 00368R ALPHA lNIO ONEZ PIOV2 UNFL 00050R 00561R 00425R· 00472R 00322R 10160 FSQR3 10170 OSA FSQR3 OORG EDGAR TF" PCK+5 B7 PCK 10150 DC 42 10190 10200 BO B7 *+20 BETA LOGE OVFL· SAVE XX 00196R 00519R 00266R OOlOOR 00000 ClR LSQ P SOEX ZRES OOHOR 002I6R 00000 00424R 00334R EDGAR LSDM PCK S02 OOOOOR 00324R 02365 001l2R 00004 00005 -0000 00000 00000 10 0·2370 -0020 BR TO PICK AND RETURN 00012 49 0236N 00000 00000805 040000560000000005,350 ,015050 0550000002 ,.:,,20 .17 .6, 00350 00042 ZRES 11020 MM 8ETA 11030 BNF *+36 ,BETA-1 -P, -P,50 ,10, .BETA-2 -P,O, 11040 11050 BETA-2 -P CF TOM' 401 ,0 11060 80 SQ3 .98 11070 TFM 502+42 ,97 11090 S02 /IF TF 97 SOEX+47 ,97 '99 -P,O, " .0. .99 .CLR-92-P ., .8ETA-2 -POI 11110 11120 tF TF 11130 TF" LSO+18 ,97 11140 TF LSQ+23 .S03+18 ,01, 00020 ML 00040 BR IF RESULT ZERO 00032 H9 00334 OIV CHAR BY 2 00040 J3 00196 BR FOR POS IT IVE ARG 00052 MM OOOU 0006"· L3 00194 SET NEG ARG INDICATOR 00076 15 00401 BR IF CHAR 000 OOOU 113 00368 MOVE II ANT I 5SA ADR .-L 00100 J6 00154 00112 71 00091 STORE RESULT CHAR 00124 K6 00"11 00ln 20 00099 .2L MOVE MANT INTO 9719B MINUS 00148 20 00000 .-2L INITIAL MANT ADR HI ORDER 00160 J6 00234 INITIAL RESULT AOR 00195 00000 OOONO 00194 00000 00000 00098 -0091 00099 00091 0061B L 00194 -0097 00239 00386 11150 TF LSOM-6 11160 TF BETA-2 -P,ONEZ-46-P" 11170 11200 LSQ B7 AM LSQH LSQ+23 12010 .-L .LSQ+IB · .2 ,0, ,0610t INITIAL MANT 0~~~2 KO, 00181t KO 00318 00234 ,+L SET RESULT TO ONE· L+1 DIGITS 00196 KO 00194 00377 00208 M9 00324 00000 ADD 2 TO RESULT 00216 Jl 0023R 000-2 SUB RESULT FROM MANTI SSA 254 PAGE 00228 22 00000 00000 BNN LSQ ,0, CONTINUE UNTIL MANT IS NEG 00240 M6 00216 01300 , BETA-2 -P,Q7 00252 JM 00239 -0194 CM LSQ+23 ,a, BR IF TERMINAL RESULT AOR BNL SQEX 00264 M6 00424 01300 ,01611 , LSQ+IB ,LSQ+23 RESTORE LAST SUB 00276 KJ 0023M 0023R ,06 00288 L3 0023M 00000 CF LSQ+IB LSQM-6 ,01 AM ,010, REDUCE MANT FIELD L ENG TH oNE 00300 Jl 00318 000-1 00312 32 00000 00000 SF ,02 ,010, AM LSQ+ 18 STEP MANTISSA ADR,HI ORDER t +2 00324 Jl 00234 000-2 AM ,01 .010, LSQ+23 STEP RESULT ADR +1 00336 Jl 00239 DOO-l ,09 ,0610. SM LSQ+23 STEP RESULT -9 00348 J2 0023R 000-9 ,0, B7 LSQ+12 CONT LOOP WITH NEXT 2 DIGITS 00360 M9 00228 00000 ,707D0200065020,316 DC 16 00316 00016 AM 99 ,50 ADD .5 TO CHAR/2 00368 11 00099 DDOND TOM BETA-2 -PtO ,211, -L, LENGTHEN MANT FOR ODD CHAR OD38D J5 -0194 OODO-L, BETA-l -P, 00392 L3 00195 DOOOD CF ,98 ,-L MDVE MANT ADR TFM SQ2+42 0040'" J6 00154 -0098 BR TO STORE CHAR + INIT LOOP B7 SQ2 004.16 M9 00112 00000 ,+L 00424 20 00080 00610 TF 80 .elR-lOO-Pr, ,10, BETA-2 -P,50 RESULT/2 00436 J3 00194 OOONO MM -L, DEFINE FIELD SF 98 00448 32 00098 00000 99 TFM INSERTS CHAR 00460 16 00099 -0000 ,99 ,6, STORE RESULT TFL PCK+ 15 00472 06 0238- 00099 PCK+ 10 ,6, RETURN TO MUNL INE B7 00484 49 0237N 00000 03061 03061 DEND 12020 12030 12040 12050 , 12060 12070 12080 12090 LSQM 12100 1211D 12120 11190 12140 SQ3 , la, 1215D 1216D 12170 1218D 12200 SQEX 13010 13020 13040 %.55 PAGE FLOATING SIN-COSINE SYMBOL TABLE NOSOIG 8RD FCOS3 NINE PCK POZCH xx 02401 00208R OOOOOR 00612R 02365 00760R 00000 AA8 CLF FSIN3 ONEZ PI SAVE ZRES DSA 00910R 00088R 00032R 00425R 00962R 00100R 00334R FCCS3 13100 FCOS3 DORG EOGAR TFM CLF+ll 13110 13120 TFM 87 13140 F51N3 TFM 13150 13160 TFM B7 13180 DC 13190 13200 BNF TOM 14010 CLF 14020 14030 CF CF TF 14040 14050 CM BNL 14060 14070 CM BL 14080 TFM 14090 14100 14110 BRD S TR BD 14120 14130 AB CLR H34 OVER PICK SUM 0091'tR 00710R 01011R 00400R 00198R 00H2R ALPHA DONE LNI0 OVFL PIOV2 TWOPI 00050R 00588R 00567R 00266R 00472R 01009R ,FSIN3 ,010 BETA E~GAR LOGE P PLACE UNFL 00196R OOOOOR 00519R 00000 00716R 00322R 00004 00005 -0000 00009 00005 -0032 00000 ,09, INIT FOR COS 00000 J6 00099 00-10 00012 10 02370 -0088 GO TO PICK AND RETURN 00024 49 023bN 00000 ,-011 CLF+ll ,09, INIT FOR POSITIVE SIN 00032 J6 00099 00-IJ PCK+5 ,·+20 .t7 00044 10 02370 -0064 PCK ,6, GO TO PICK AN~ RETURN 00056 49 0236N 00000 46 ,0500507056 5000510007 0507005651 0070510000 505608,3"8 00348 00046 ,8ETA-2 -P *+36 00064 MM 00100 00194 ,0 CLF+lO ,0, ADJUST FOR NEG SIN 00076 J5 00098 00000 BETA-2 -P 00088 L3 00194 00000 BETA-I -p, -L 00100 L3 00195 00000 -P, CLR-94-P SAVE ,+L MOVE L+2 ZEROS TO SAVE 00112 KO 00100 00616 BETA -P"OO .to 00124 J4 00196 000-0 POZCH ,0, BR IF POSITIVE OR ZERO CHAR 00136 M6 00760 01300 BETA -P,OO ,+L t 1011, 00148 J4 00196 000-,a, BRD BR IF CHAR LESS THAN -L 00160 M7 00208 01300 *+30 , SAVE -Pt 0 7, ,-L CHAR BETWEEN 0 AND -L 00172 JO 00202 -0100 ,BETA *+18 -PtO 00184 KK 00202 00196 ,BETA-l -P, , ,-L 00196·3J 00000 00195 ,CLF+ll ,0 1, *+24 BR IF SIN ROUTINE 00208 ML 00232 00099 SAVE-P ,PIDV2-45-P" ,+LCONVERT TO SIN 00220 KJ 00100 00427 SAVE -P, HJOP 1-45 ,1, .+L 00232 KK 00100 00964 PCt<+5 PCt< ,elF ,17 ,6, 256 PAGE 14140 BH 14150 14160 14170 14180 14190 14200 15010 15020 SF A BN SM SF A TF DC 15030 15040 15050 15060 TF SF TF 15070 150BO OVER TR TOM 15090 15100 15110 15120 TF TFM 0 BZ 15130 15140 SUM 15150 15160 15170 TF S AM AM M M TF TF 15180 15190 15200 16010 16020 16030 16050 DONE 16060 BNF TOM B7 C 8E 16070 16080 TFM DC 16090 BO 16100 16110 16120 SM TR TO 16130 16140 16160 16170 SF B7 80 SF PLACE H TF ,0, SUB 2 PI FROM MANT UNTIL NEG 00244 M6 00232 01100 -L SAVE-1 -P, 00256 L2 00099 00000 -P,PI-45 ,+L SAVE 00268 KJ 00100 00917 ,0 00280 M7 00316 01300 *+36 ,010 CLF+IO ,01 00292 J2 00098 000-1 -P 00304 L2 00100 00000 SAVE SAVE -p f PI DV2-45-P, t ,+L 00316 KJ 00100 00427 ,CLR-I06-P,t 00328 20 00080 00604 80 ,2L 48,5552705600 0002202000 5055000000 0008550000 00560050 ,348 00348 00048 -P SAVE -P,SAVE 00340 KL 00100 00100 -p ,98 ,-L 00352 K6 00100 00098 SAVE SAVE-I -P, -L 00364 L2 00099 00000 BETA ,+LSET BETA EQUAL I PLUS L+1 ZERO -P,ONEZ-47-P" 00376 KO 00196 00378 AAB-3 ,H34-1 ,01 00388 LJ 00907 01010 SUM+I ,2 ,011, SET FOR SUBTRACTION 00400 J5 00473 OOOOK ,-L 99 ,98 00412 26 00099 00098 97 ,0000 ,B, -L 00424 16 00097 0-000 -L 98 ,AB 00436 2R 00098 00914 ,0, DONE BR IF QUOTIENT ZERO 00448 M6 00588 01200 ALPHA -P,95 00460 K6 00050 00095 -P BETA -P, ALPHA 00472 KK 00196 00050 ,010 ,2 00484 Jl 00910 000-2 AAB AAB-2 ,2 .010 00496 Jl 00908 000-2 ,AAB-2 ,01. 4DIGIT PRODUCT AAB 00508 KL 00910 00908 ,0 ,99 AB 00520 K6 00914 00099 ,CLR-I06-P, , ,2L 00532 20 00080 00604 80 -P ,ALPHA -P SAVE 00544 KL 00100 00050 ,SUM+l ,01 00556 MM 00"00 00473 OVER ,0, SUM+l ,1 SET TO ADO 00568 J5 00"73 00001 OVER+-l2 ,0 00580 M9 00412 00000 SETA-I -P,CLR-g5-P ,+L 00588 KM 00195 00615 POZCH+60 , ,0, 8R IF L+I ZEROS 00600 M6 00820 01200 -P,OI SAVE ,10 00612 J6 00100 000-1 48,0750775070 0000505505 5000500051 0000505000 05057005,350 00350 00048 ,-LBR IF NORMALIZATION NOT REQ PLACE-24 ,BETA-l -P,O, 0062" ML 00692 00195 -P ,01 SAVE 00636 J2 00100 000-1 tlO -L,-L BETA-l -P,8ETA 00648 LJ 00195 00196 -P" BETA-I -P,NOS· DIG ENTER NOISE DIGIT 00660 K5 00195 02401 -L 00672 L2 00195 00000 BETA-I -P, .-60 006B4 M9 00624 00000 00692 ML 00716 00098 ,CLF+IO ,01 PLACE 00704 L2 00194 00000 8ETA-2 -P -PH STORE CHAR 00716 KO 00196 00100 BETA -P.SAVE *-12 , " " " " , " " 257 PAGE TFL 16200 17010 17030 POZCH 17040 17050 17060 17070 17080 17100 17120 17130 17140 17150 17160 17170 17180 17190 AAB 17200 AB 18010 18020 PI 18030 TWOPI 18040 H34 18050 18060 PCK+15 ,BETA -P,6, STORE RESULT 00728 00 0238- 00196 RESTORE RM 00740 KN 00051 01018 RETURN TO MAINLINE PROGRAM 00752 49 0237N 00000 -P,03 CM BETA ,'10 00760 J4 00196 000-3 .+80 ,0, BL BR ·IF CHAR SMALL ER THAN 03 00772 M7 00852 01300 -P,OO CM BETA ,10. ,+L 00784 J4 00196 000-0 8NH *+44 ,0, BR IF CHAR LESS OR EQUAL L 00796 M7 00840 01100 TOM 401 ,0 ,11, CHAR TOO LARGE 00808 15 00401 0000TO ALPHA+ l-P. H34+7 RESTORE RM 00820 KN 00051 01018 87 ZRES 00832 M9 00334 00000 TOM 401 ,0 00840 ·15 00401 00000 TFM ,SAVE-l -P,07, *+42 AoJ TO SUB TWO PI FROM MANT 00852 JO 00894 -0099 -P,O, S *+30 ,BETA UNTIL REDUCED TO NEG NUM8ER 00864 KK 00894 00196 TOM ,11, -L aETA-2 ,..P,O 00876 J5 00194 0000TF ,BETA-2 -p 00888 20 00000 00194 8 • BRO ,0 00900 M9 00208 00000 OORG ·-4 00907 OS 4 00910 00004 4 OS 00914 00004 OS 1 00915 00001 DC 47 ,3141592653589793238462643383279502884197 Ho9 3993 00962 00047 47 DC .62131853071 795864769252867665590057683943387987 01009 00047 DC 2 ,01 01011 00002 DC ,02 2 01013 00002 DC ,OO02i1 5 01018 00005 OENo 03072 03072 TO B7 ALPHA+ l-P ,H34+7 PCK+l0 ,I, ,6, 9 PAGE 10 FLOATING ARC TANGENT SYMBOL TABLE NOSOIG CLR LOGE PCHAR SAVE TEST2 02401 007l0R 00519R 00836R 00100R 00652R ALPH EDGAR NINE PCK SIX UNFL 00196R OOOODR 00612R 02365 01235R 00322R DSA FATN3 DORG EDGAR TFM PCK+5 87 PCK 18130 DC TFM 18140 18170 BO B7 TO 18180 TEST 181 gO 18200 CF CM BH 19010 BE 19020 19030 CM BL 19040 19050 19060 TFM A TF 19070 CF 19080 TF 19090 ALPH SF 19100 19110 CM BL 19120 19130 TF 11M 00a5aR 01040R 00425R 00198R 0128'IR 00000 ATNI FATN3 OVFL PIOV2 TES T ZRES oa424R OOOOOR 00266R 00472R 00064R 00334R BETA LNIO P PIOV4 TEST! 00196R 00567R 00000 OB26R 00792R 00004 00005 -0000 00000 00000 10 02370 -0020 ,6, BR TO PICK AND RETURN 00012 49 0236N 00000 50 ,0700055050 0000510005 0576705070 7000065020 51500825,350 00350 00050 SET INDICATORS ,08. TEST+ll 00020 J6 00075 0-000 ,-L 00032 ML 00052 00195 ,BEl'A-I -P,O, *+20 00044 M9 00816 00000 TESTl+24 ,BETA-2 -P,O, SAVE MANT SIGN TEST+9 00052 KN 00073 00194 0006" L3 00194 00000 BETA-2 -p 00076 J4 00196 000-0 SETA -P, ,ID ,0, BR IF CHAR POSITIVE PCHAR 00088 '16 00836 01100 8R I F CHAR ZERO ALPH 00100 '16 00196 01200 -P,~99999 +L 00112 J" 00196 999RR ,10 t BETA BR IF CHAR LESS THAN -IL-la ,0, EOO 00124 M7 01040 01300 00136 JO 00195 -0194 ALPH-I ,IETA-Z -P,07 00148 KJ 00195 00196 ALPH-I ,BETA -P,O BETA-Z -P,CLR-96-P -L.,+L CLEAR AREA LEFT OF BETA 00160 KO 00194 00614 EXPAND BETA 8Y REMOVING FLAG -L SETA-I -P, 00172 L3 00195 00000 'ADJUST lETA FIELD FOR CHAR BETA-2 0018" K6 00194 00000 -L CONTRACT BETA BY RESETTNG FLAG BETA-I -p, 00196 L2 00195 00000 00208 J4 00196 000K9 ,10, -L BeTA -P,29 BR IF MANT LESS THAN .29 ATNI-72 00220 '17 00352 01300 00232' 20 00079 00610 ,+L 79 ,CLR-IO'O'-P" IN 99 BETA-2 -P,6 ,10, 0024" J3 00194 000-6 18090 FATN3 18100 18120 ALPHA EOD ONEZ PICK TAN6 XX ,++20 ,17 ,0, -P, " " " ,0, :t.I.Q PAGE 11 19140 19150 19160 19170 19180 19190 19200 20010 20020 20030 20040 20050 20060 20070 20080 20090 ATNI 20100 20110 20120 20130 20140 20150 20160 20170 20180 20190 20200 21010 21020 21030 21040 21050 21060 ,-1 '1+6.MANT IN 99 00256 15 00098 OOOOJ +L MANT-.6 L DIGITS BETA-2 -P,SIX-45 00268 KK 00194 01190 10+6.MANT MOVED TO ALPHA. L+2DG ALPHA -P,99 TF 00280 K6 00050 00099 ,2l 2L+2 ZEROS ,CLR-h-p 99 TF 00292 20 00099 00616 DIGITS I -L, 98 ,8ETA-2 -p" LD 00304 2Q 00098 00194 48 ,2552000855 5256030106 2020055008 5552000000 56550855,348 DC , 00348 00048 -L, L+2 DIGITS 00316 2R 00100 00050 100 ,ALPHA -p" o ,-L MANT IS .MANT-.6a/.10+6.MANTa TF BETA-2 '-P,97 00328 K6 0019" 00097 INO THIS CALC MADE TEST+ll SF 00340 L2 00015 00000 ZEROS ,2L ,CLR-I06-P" TF 80 00352 20 00080 00604 SQUARE MANT 0036" KL 00194 00194 8ETA-2 -P,BETA-2 -P" M ,-l SAVE IS MANToMANT.L DIGITS TF SAVE -P,99 " 00376 K6 00100 00099 ,+L INIT ALPHA TO 00 l+1 ZEROS -P,CLR-95 -p" ALPHA TF 003S8 KO OOO§Q 00615 00400 J6 00459 999R9 ,10, ,99999 ;2L TFM ATNI+J5 00412 J6 00421 999R9 ,+L ,99999 ,10. TFM ATNI-3 ,+L L+'t ZEROS ,CLR-92-P 99 TF 0042" 20 00099 00618 , la, -L 00431> 16' 000 . . OOOJO ,IO TFM 98 -l OO"U 19 00091 -0000 98 OM 2K 00096 00050 -P 00"60 96 ,ALPHA S L+l DIGITS TF ALPHA -P,96 00"72 K6 00050 00096 00484 20 00080 00604 ,CLR-I06-P, , ,2L TF 80 2L+I DIGITS ALPHA -P,SAVE -p" M 00491> KL 00050 00100 ,-L L+I DIGITS TF ALPHA -P,,99 00508 K6 00050 00099 00520 J2 00459 000-2 •ATNI+35 ,010 ,2 SM 00532 J2 004Z1 000-1 ,DID ATNI-3 ,1 SM ,0, BR IF LESS THAN L-l PASSES BNZ ATNI 00544 M7 00424 01200 l+Z DIGITS ,+L -P,ONEZ-47-P" TF SAVE 0,0556 KO 00100 0'0378 ONE MINUS SUM OF.COEFoMANTooza -P,ALPHA -p,t SAVE 00568 KK 00100 00050 00580 20 00080 00604 ,CLR-I06-P, , ,2L 80 TF 2L+2 DIGIT PRODUCT -P,BETA-2 -P" SAVE M 00592 KL 00100 0019" 48 ,0000202100 2026502504 5044200040 5200500500 00084025,348 DC 00348 00048 00604 '1M 00652 00075 ,TEST+lI ,01 BNF TEST2 00616 M6 00640 01300 ,0 BNN TEST2-12 , TOM 98 -L ,0, , " PAGE 12 21070 210BO SF A 21090 TEST2 21100 21110 BNF SF A 21120 21130 TFM TO BO 21150 21160 21170 SM TR TO 21180 21200 22050 22070 PCHAR B7 SF TF BNF SF TFL 87 TOM 22080 22090 TF TOM 22030 TESTl 22100 0 22110 DC 22120 80 22130 SF 22140 22150 TF SM 22160 22180 B7 TF 22190 SM 22200 BL 23010 BE 23020 SF 23030 B7 TFM TF , 99 99 -L 0062B 32 00099 00000 , TAN6-45 -L,+L L+l DIGITS .1, 00640 2J 00099 01236 ,TEST+1O ,01 00652 MM 006BB 00074 *+36 -L 00664 32 00099 00000 99 ,PIDV2-45-P,t 99 -L.+L L+2 DIG ITS 00676 2J 00099 00427 ,lD D06B8 J6 00196 000-1 -Ptl BETA -L ,BETA+l -Pt, INSERT RM AT 100-L 100 00700 2N 00100 00197 TESTl-24 ,98 ,-2L BR IF NORMALIZATION NOT REDO 00712 M3 00768 00098 -P,l 00724 J2 00196 000-1 BETA .10 -2L ,-2L 00736 31 00098 00099 98 ,99 99 -L INSEAT NOISE DIGIT ,NOS DIG 00748 25 00099 02401 ,0 00760 M9 00712 00000 *-48 98 -2L 00768 32 00098 00000 ,-L 007BO K6 00194 00097 BETA-2 -p ,97 *+24 t TEST+9 00792 MM 00816 00073 ,01 BETA-2 -P 00804 L2 00194 00000 -P,6 PCK+15 ,8ETA 0081600 0238- 00196 PCK+I0 ,6 00828 49 0237N 00000 , -1 TEST+I0 ,0, INDICATE P.OSITIVE CHAR 00836 J5 00074 OOOOJ ,CLR-95-P ,2L 00848 20 00099 00615 99 ,-I -2L EQUALS .1 100 DIVIDEND 00860 15 00100 OOOOJ -L, 99 DIVISOR IS MANT ,BETA-2 -P't 00872 2R 00099 00194 555670 70510005,34B 44 ,0440525000 5250000050 0050510000 00348 00044 ,99 ,0, ,-2L 8R IF MANT IS 100000 ••• *+56 008B4 M3 00940 00099 -2L 100 REDUC E TO L DIGITS 00B96 32 00100 00000 ,-L 00908 K6 00194· 00099 8ETA-2 -P,99 -P,l REDUCE CHAR BY 1 BETA ,10. 00920 J2 00196 000-1 00932 M9 00964 00000 ,0, THESE 3 *+32 ,-L INSTRUCTIONS GO BETA-2 -P ,98 00940 K6 00194 00098 -P,2 ,10. WITH 80 A80VE BETA 00952 J2 00196 000-2 ,0, BR IF OPERAND I S ONE *+44 00964 M7 01008 01300 ALPH BR IF CHAR REDUCED TO ZERO 00976 M6 00196 01200 -P, CHAR STILL POSITlVE,MAKE NEG BETA 00988 L2 00196 00000 01000 M9 00112 00000 TEST+48 -p, ,10, 01008 J6 00196 000-0 STORE CHAR BETA ,+L 01020 KO 00194 01281 BETA-2 -P, P I OV4-45 , " " " , " , " , ,0. " 261 PAGE 13 23070 EOD 23130 23140 23150 23160 23170 23180 23190 24010 210020 24050 24060 24070 SIX 24080 TAN6 24090 PIOV4 B7 BNF TeST! TEST! 01032 M9 00792 00000 ,TEST+10 BR IF RESULT MORE THAN PIOV2 01040 MM 00792 00074 TF ALPHA -P,BETA-2 -P 01052 KO 00050 00194 TF BETA-2 -P,PIOV2-46-P" ,+L L+2 DIG ITS 01064 KO· 00194 001026 CF ALPHA-1-P, -L 01076 L3 000109 00000 TOM ALPHA -P, -L I II, 01088 J5 00050 0000CM -P, 00 BETA ,lOll, ,+L 01100 J4 00196 000-BNH *+48 ,0 01112 M7 01160 01100 TFM 0+35 ,ALPHA -P,07 01124 JO 01159 -0050 DC 10 ,0550555000 ,350 00350 00010 A *+23 ,BETA 01136 KJ 01159 00196 S BETA-2 -P 01148 K2 00194 00000 TF BETA-2 -P,8ETA-3 -P 01160 KO 00194 00193 TFM BETA -P,OI ,10 01172 J6 00196 000-1 B TESTl ,0 0,1184 M9 00792 ·00000 0-4 DORG 01191 DC 105 ,600000000000000000000000000000000000000000000 01235 00045 DC 46 ,54041950.02705841554435783646085999101351482514 01281 00046 DC 45 ,785398163397"''''83096156608'''5819875721049292349 01326 00045 DEND 03091 03091 , -p,o PAGE 14 FLOATING EXPONENTIAL SYMBOL TAB L E NOSD IG CLR FEX3 ONEZ P IOV2 UNFL 02401 007l0R OOOOOR 00425R 00472R 00322R GOBACK EDGAR GORD OVFL RECI P XX OSA 0102BR OOOOOR 0060BR 00266R DOB88R 00000 ALPHA 00050R 00436R El2 00567R LNI0 00000 P SAVE 00100R 00334R ZRES ,0, 24120 24140 FEXT3 87 TOM ,0, 24150 24160 TFM B7 241BO DC 24200 TFM TF BO B7 25040 TO 25050 25060 25070 CF TFM TF 00144R CALC FEXT3 NINE PICK TEN34 0046BR 00020R 00612R 0019BR 01093R , FEX3 24110 FEX3 25010 00196R 00740R 00519R 02365 00004 00005 -0020 00009 00005 -0000 00000 MUL BY LOG E FOR EXP ALLOW 00000 J 5 00145 00001 00012 M9 00032 00000 ,0 FEXT3+l2 , PREVENT MUL BY LOG E FOR EXT SETUP+l ,9 00020 J5 00145 00009 00032 10 02370 -0052 ,17 PCK+5 ,*+20 BR TO PICK AND RETURN PCK 0"0044 49 0236N 00000 46,0056070005 5020250008 5604504052 0052510050 000050 ,348 00348 00046 00052 J6 01027 000-1 G08ACK-l ,01 ,10 ,+L ONE. L+4 DIGIT MANTISSA ALPHA-2-P,ONEZ-45-P,, 00064 KO 0004B 003BO 00076 ML 00096 00195 ,-L *+20 ,BETA-l -P,O, 8R IF MANT ZERO GOBACK-12, 000B8 M9 01016 00000 NON ZERO MANTI SSA ,BETA-2 -P,O, RECIP-l 00096 KN 00BB7 00194 0010B L3 00194 00000 BETA-2 -P 16 00101 -0000 00120 -L 101 L+4 DIGITS IN 101-L -L 97 ,BETA-2 -P" 00132 20 00097 00194 MUL 8Y LOG E IF EXP *+92 00144 M9 00236 00000 00156 20 OOOBO 00604 , 2L 60 ,CLR-106"'P,t 2L+2 DIGIT PRODUCT , +L 8ETA-2 -p, LOGE-45-P" 00168 KL 00194 00414 8R IF HIOROER NOT ZERO ,-2l ,98 00180 M3 00236 00098 00192 J2 00196 000-1 ,10 BETA -P,1 00204 32 00099 00000 -2L t 99 , MOVE L+4 DIGITS ,-L BETA-2 -P,102 00216 K6 00194 00102 00228 M9 00248 00000 ,0 *+20 t ,-L MOVE L+4 DIGITS BET A-2 -P 010 1 FEXT3 DORG EDGAR TOM SETUP+l 25020 BETA FACT LOGE PCK SETUP , " ,0, 250BO SETUP 25100 25110 TF 25120 80 25130 25140 25150 SM SF TF 25160 251BO B7 TF M ,0, PAGE 15 25190 25200 CM 8NH 26010 26020 CM BE 26030 BL 26040 26050 CM BH 26070 BL 26060 DC 26090 TR 26100 26120 B7 TOM 26130 CF A TR A 26150 26160 BNV 26170 E12 BNF 261BO 26200 FOlD CALC 87 SF TFM 27020 27030 CM BL 27040 SM 27050 AM 00236 K6 00194 00101 BETA -P, -00 ,1011, +L 00248 J4 00196 000-GOBACK-12, ,0, BR IF CHAR LESS THAN -L 00260 M7 01016 01100 BETA -P, dO, 00212 J4 00196 000-0 CALC ,0, BR IF CHAR ZERO 00284 M6 00468 01200 CALC+68 ,0, BR IF CHAR BETWEEN -L AND ZERn 00296 M7 00536 01300 BETA -P,2 ,10 00308 J4 00196 000-2 E12 ,0, BR IF CHAR LARGER THAN 2 00320 M6 00436 01100 0+44 ,0, BR IF CHAR BETWEEN 0 AND +2 00332 M1 00376 01300 46, 01170070 7007110050 50Q0007000 7000000505 76705070, 348 00348 00046 GOBACK-l ,BETA-4 -p" ,-L CHAR EQUALS P2 00344 KJ 01027 00192 8ETA-5 -P.BETA-3 -p" -L,-L SHIFT LEFT 2 POSITIONS 00356 LJ 00191 001B E12-12 00368 M9 00424 00000 BETA-6 -p, ,lI, -L CHAR EQUALS +1 00376 J5 00190 0000BETA-5 -p, ,,-L 00388 L3 00191 00000 GOBACK-l ,BETA-5 -p" ,-L 00400 KJ 01027 00191 8ETA-5 -P,BETA-4 -P" -L,-L SHIFT LEFT 1 POSITION 00412 LJ 00191 00192 0+32 ,0, BR IF ADJ CHAR DOES NOT OVFLOW 00424 M7 00456 01400 OVFL -P,RECIP-l.1, BR IF MANT POSITIVE 00436 MM 00266 00887 UNFL -P 00448 M9 00322 00000 BETA-5 -P, .. -2 L 00456 L2 00191 00000 *+9 ,0810, INtT SIZE IND 0046B J6 00411 0-0-0 BETA-4 -P,34 .10, -L 00480 J4 00192 000L4 GORD ,a, BR IF BETA LESS THAN .34 +CHAR 00492 M1 00608 01300 'BETA-4 -P,34 ,10, -L AOJ BETA BY -.34 00504 J2 00192 000L4 CALC+9 ,I ,OlD, STEP SIlE IND 00516 J 1 00411 000-1 CALC+12 ,0, CONTINUE REDUCTION OF 8ETA 00528 M9 00480 00000 ++59 ,BETA-4 -P,07, PROCESS IF CHAR NEG 00536 JO 00595 -0192 27060 B1 270BO TFM 27090 27100 A *+47 TF 8ETA-6 -P,CLR-96-P -L,+L 27110 27120 CF TF 8ETA-5 -P, BETA-4 -P, -L L+4 DIGIT FIELD 00560 KO 00190 00614 00572 L3 00191 00000 SHIFT RIGHT W R T CHAR SIZE 00584 K6 00192 00000 27130 SF BETA-5 -P, -L 00596 L2 00191 00000 ,BETA -PtO 00548 KJ 00595 00196 PAGE 16 27140 DC 27150 GORD 27160 TF 27170 27180 SF TF 27190 27200 28010 28020 28030 TF M 28040 TF 28050 28060 FACT TFM OM 28070 BZ 28080 TF 28090 28100 AM B7 28120 28130 CM BE TFM A TF 28140 TF 28150 M 28160 28170 TF SF 281BO SM 28190 29010 29020 RECIP 87 DC SNF 29040 TF 29050 TFM SF 29060 29070 BV AM 44,0856405252 0055085502 2020005000 0000000851 4052 ,348 00348 00044 ,CLR-I06-P,t 80 ,2L 00608 20 00080 00604 8ETA~4 -P,LNIO-4b-P, , ,+L 2L+4 DIGIT PRODUCT 00620 KL 00192 00521 ~2L 00632 32 00097 00000 97 -p ,99 ,~L DIGIT FIELDS L+4 SAVE 00644 K6 00100 00099 BETA-2 -p ,99 ,-L 00656 K6 00194 00099 ,2 ,010 00668 J6 00751 000-2 FACT+ll ALPHA-2-P, SAVE -P 00680 KJ 00048 00100 ,2L 00692 20 00080 00604 80 ,ClR-L06-P" -P,8ETA-2 -p,t 2L+8 DIGIT PRODUCT SAVE 00704 KL 00100 00194 99 ,96 ,-L L+6 DIGIT DIVIDEND 00716 26 00099 00096 96 ,10, -L 00728 16 00096 000-0 97 -L DIGIT DIVISOR. L+4 QUOTIENT 00740 19 00097 -0000 FACT+56 BR WHEN 'TERM REDUCES TO ZERO ,0, 00752 M6 00796 01200 -P,97 SAVE L+4 DIGIT FIELD 00764 K6 00100 00097 FACT+ll ,! ,OLO 00776 Jl 00751 000-1 ,0, FACT-60 CALC NEXT TERM 00788 M9 00680 00000 ,010 00796 J4 00477 000-0 CALC+9 SRI F FURTHER ADJ NOT REQUIRED RECI P ,0, 00B08 M6 00888 01200 ,CLR-I06-P,t 80 ,2LADJUST FOR REDUCTNS BY .34 00820 20 00080 00604 ALPHA-4-P, TEN34-45 ,I ,L 2L+4 DIGIT PRODUCT 00832 K·L 00046 01048 97 -2L 2L+3 DIGITS 00844 32 00097 00000 ALPHA-4-P,98 ,-L L+2 DIGITS 00856 K6 00046 00098 ,I ,OLO, CALC+9 REDUCE INDICATOR 00868 J2 00477 000-1 0-84 ,0 00880 M9 00796 00000 26, 0000084025 0000000200 005005 ,350 00350 00026 ,01, GOBACK-12, RECI P-I BR IF MANT WAS POSITIVE 00888 MM 01016 00887 GOBACK-I , MAKE CHAR NEGATIVE 00900 L2 01027 00000 ,CLR-94-P 99 ,2LCALC RECIPROCAL IF NEG MANT 00912 20 00099 00616 ;10, -2L, 2L+2 DIGIT DIV IDEND 99 .LO 00924 16 00099 OOOJO ,ALPHA-It-P, , -L, L+2 DIGIT DIVISOR 100 00936 2R 00100 00046 ,0, GOBACK-24, BR IF ORIG OPER 1 OR I/LOGE 00948 M6 01004 01400 00960 Jl 01027 000-1 GOBACK-I ,01 ,10 , " , , .. 2.6.5 PAGE 17 j ! I ,6 ,6, 00972 KO 0099N 01027 ,-L STORE RESULT PCK+l5 00984 06 0238- 00099 RETURN TO MAINLINE ,6, peK+ 10 87 29100 00996 49 0237N 00000 01004 Jl 01027 000-2 GOBACI(-I,2,l0 AM 29101 01016 J6 00046 -0000 ALPHA-It-P T.FM ,AlPHA-4-P,6, STORE RESULT GOBACK TFL PCK+15 01028 00 0238- 00046 RETURN TO MAINLINE ,6, PCK.I0 B7 01040 49 0237N 00000 ,21877616239495525622261149163841873167118056246 DC 47 29150 TEN34 01093 00047 03102 DEND 03102 TF TFL *+23 ,GOBACK-I ,99 266 PAGEo 18 FLUATING LOG SYMBOL TABLE NOSOIG COUN GOAL ONEZ PIOV2 ZRES 02401 00368R 00832R 00425R 00472R 00334R ALPHA CZERO LNIO OVFL PLUS OSA 29190 FLOG3 B7 TOM 30030 30040 TFM B7 29180 DC BO TOM SF B7 30110 OQ567R 00266R 00680R BNF 30120 TOM 30130 CF 30140 30150 30160 TFM TF CF 30170 30180 30190 TOM CM BNL 30200 A 31010 AM 00196R BETA EDGAR OOOOOR 00519R LOGE 00000 P SAVE 00100R CLR FLN3 NINE PCK UNFL 00710R 00020R 00612R 02365 00322R CORN FLOG3 NLG PICK XX 00596R 0000 OR 00876R 00198 R 00000 00004 00005 -0000 00009 00005 -0020 00000 SET FOR COMMON LOG ,1 00000 J5 00597 00001 00012 M9 00032 00000 ,0 *+20 ,0, SET FOR NATURAL LOG ,9 CORN+! 00020 J5 00597 00009 00032 10 02370 -0052 ,[7 PCK+5 ,6, 8R TO PICK AND RETURN PCK 00044 49 0236N 00000 ,350 6050 0500500105 7070700055 28 ,0700 00350 00028 ,-L 6R IF NON ZERO ARG ,BETA-l -P" *+44 00052 ML 00096 00195 SET INO FOR LOG OR LN OF ZERO. 401 ,0 ,11 t 00064 15 00401 0000SET UP TO STRO~ NEG NINES PL NINE-45-P, 00076 L2 00567 00000 8R TO STORE AN~ RTN TO MAINUN OVFL+12-P, 00088 M9 00278 00000 8R IF MANT POSITIVE 00096 MM 00132 00194 SET INO FOR NEGATIVE 401 ,0 00108 15 00401 00000 MAKE POSITIVE BETA-2 -P, 00120 L3 00194 00000 +L INITIALIZE 00132 JO 00571 -0914 CORN-25 ,CZERO-45 ,017, SAVE CHAR 00144 KO 00819 00196 GOAL-13 ,BETA -P,O, EXPAND FIELD TO L+l DIGITS -L, BETA-l -P, 00156 L3 00195 00000 00168 J5 00194 OOOOJ -L, A DO 1.0 IlETA-2 -P,1 ,11 t 00180 J4 00195 000J5 -L, BETA-l -P,15 t 10 t 8R IF MOD MANT NOT LESS 1.5 ,0, *+44 00192 M6 00236 01300 DOUBLE MANT. L+l DIGITS BETA-2 -P,BETA-2 -P" 00204 KJ 00194 00194 AOJ FOR NEXT CONSTANT ,48 ,010, CORN-25 FLOG3 ,FLN3 OORG EDGAR TOM CORN+l 29200 30020 FLN3 30060 00050R 00959R ,0, , 267 PAGE 19 00216 Jl 00571 000M8 31020 31070 B7 DC 31040 TF 31050 TOM 31060 31080 31090 TF LO 31100 o 31110 TF 31120 31130 TF M 31140 TF 31150 31160 COUN A TFM 31170 31180 TFM TF 31190 31200 TF 32010 OM A 32020 TFM 32030 TF 32040 M 32050 TF 32060 SM 32070 SM 32090 BNZ 320 DC 32100 32110 TF M 32120 A 32130 TF *-60, ,0 00228 M9 00166 00000 42,56705508252552085552550103 5106202050 085552, 350 00350 00042 ,+L L+! DIGITS ALPHA -P,ONEZ-48-P,t 00236 KO 00050 00317 -L, CONVERT TO TWOZ ALPHA 00248 J500050 OOOOK 2.0 MINUS MO~ MANT ~2.0-Zo ALPHA -P,BETA-2 -P,t 00260 KK 00050 00194 00272 20 00099 00617 ,CLR-93-P ,t ,2L 99 -L, 00284 2Q 00097 00050 97 ,ALPHA -p" ,BETA-2 -P t , -L, %2~0-ZO/Z EQUALS Y 98 00296 2R 00098 00194 , -L L+2 DIGITS -P,98 8ETA 00308 K6 00196 00098 ,2L 00320 20 00080 00604 80 ,CLR-I06-P'1 2L+4 DIGITS -P,BETA -Pt, BETA 00332 KL 00196 00196 -p ,97 ,-L L+2 DIG ITS SAVE 00344 K6 00100 00097 -p, , DOUBLE Y 00356 KJ 00196 00196 -P,BETA BETA . .9 ,010, ,+LINITIALIZE COUNT TO L-l TERMS ,99999 00368 J6 00377 999R9 00380 J6 00439 999R9 ,010, ,2L COUN+71 ,99999 , +L L+2 DIGITS. ZERO ALPHA ALPHA -P,CZERO-46 00392 KO 00050 00913 00404 20 00099 00618 99 ,CLR-92-P ,+L -L, OBTAIN RECIPROCAL TERM 98 ,10 t 10, 00416 16 00098 OOOJO -L, 00428 19 00098 -0000 98 -p ,91 L+2 DIGITS TO PREV TOTAL ALPHA 00440 Kl 00050 00097 ,CLR-IOb-P,t ,2L PRODUCT OF Y**2 AND TOTAL OF 80 00452 20 00080 00604 PREVIOUSLY CALC TERMS ALPHA -P, SAVE -Pt' 00464 KL 00050 00100 -p ,91 ,-L L+2 DIGITS STORED TOTAL ALPHA 00476 K6 00050 00097 ,010, RE~UCE DIVISOR ,2 COUN+71 .00488 J2 00439 000-2 REDUCE NO OF UNCALC TERMS ,010, COUN+9 00500 J2 00377 000-1 ,0, BR IF L-l TERMS NOT CALC COUN+36 00512 M7 '00404 01200 46, 08552550 5052000865 5250066005 5050605000 07770050,350 00350 00046 ,2 L 0052420 00080 00604 eo ,CLR-I06-P" 2Y • SUM OF L-j TERMS ALPHA -P,BETA -P t , 00536 KL 00050 00196 -P t , -L ADO 2Y TO ABOVE PRODUCT. L+2 , BETA 97 00548 2J 00097 00196 -p, SET WITH PROPER CONSTANT L+3 BETA .. , 260 PAGE 20 00560 K6 00196 00000 -p 00572 L2 00196 00000 SF BETA -P,97 ,-L SUB ACCUM TOTAL FROM CONSTANT S BETA 00584 K2 00196 00097 ,0, BR IF FINDING NATURAL LOG NLG 00596 M9 00876 00000 ,CLR-I06-P, , ,2L 00608 20 00080 00604 TF 80 -p, , +L, LOGE-45-P,BETA 00620 KL 00474 00196 ,-L L+3 DIGITS 00632 K6 00196 00097 -P,97 TF BETA -p 00644 L2 00196 00000 SF BETA ,+L 00656 20 00080 00610 TF ,CLR-IOO-P" 80 ONE Z-46-P ,GOAL-13 .1, +L, L+5 DIGITS M ORIG CHAR * ONE. 00668 KL 00379 00819 -P 99 ,BETA 00680 2J 00099 00196 A -P,99 PREPARE FOR NORMALIZATION BETA TF 00692 K6 00196 00099 -P 00704 L3 00196 00000 BETA CF CLR-92 -p ,96 ,+L 00716 K4 00618 00098 C -P, BR IF L+5 ZEROS 00728 M6 00334 01200 8E ZRES GOAL-l ,10, TFM ,03 SET CHAR EQUAL 3 00740 J6 00831 000-3 ,BETA-4 -p,a, ,-L BR IF HI ORDER DIGIT NON-ZERO BO GOAL-24 00752 ML 00B08 00192 BET A-4 -P,BETA-3 -p, , -L,-L 00764 LJ 00192 00193 TR SM GOAL-l ,01 t 10, RE OUC E CHAR 00776 J2 00B31 000-1 -P, NOS DIG TO BETA INSERT NOISE DIGIT 007B8 K5 00196 02401 ,0, *-48 CONTINUE NORMALIZATION 87 00800 M9 00752 00000 00350 00016 16 ,7050005005000660 ,350 DC -L, BETA-4 -P, SF SET FIELD DEFINITION 00808 L2 00192 00000 BETA-3 TFM 00820 J6 00193 -0000 8NF ,99 AFFIX SIGN AND RTN TO MAINLINE *+24 00832 M4 00856 00099 BETA-5 -P 00844 L2 00191 00000 SF TFL PCK+l5 ,BETA-3 -P,b 00856 00 0238- 00193 ,6 00868 49 0237N 00000 87 PCK+lO ,+L TF 80 t CLR-IOQ-P" CONVERSION FOR LN 00876 20 00080 00610 +L, L+5 DIGITS 00888 KL 00522 00819 LN 10-45-P, GOAL -13 M ,0, RETURN TO COMMON SECTION PLUS B 00900 M9 00680 00000 ,0 00959 00048 DC 48 48,-69314718055994530941723212145817656807550013436 DC 01007 00048 4B, -138 629436111989061 B8344642429163 5313615100026872 DC 01055 00048 48,-207944154167983592825169636437452970422650040308 DC 01103 00048 03122 DEND 03122 32140 32150 32160 CORN 32170 32180 32190 32200 33010 33020 33030 PLUS 33040 .. 33050 33060 330BO 33090 33110 33120 33150 GOAL , 33190 NLG .. 33200 34010 34030 CZERO 37090 37100 37110 2 II ~J PAGE 21 FLOATING DATA TRANSMISSION ROUTINES SYMBOL TABLE NOSDIG EDGAR LOGE PCK UNFL 02401 OOOOOR 00519R 02365 00322R FSRS FSLS TFLS FLOAT BTFS ALPHA FLOAT NINE PICK XX 00050R 00052R 00612R 00198R 00000 8ETA FSLS ONEZ pIOV2 ZRES 00196R 00020R 00425R 00472R 00334R ,FSLS , TFLS tBTFS DSA FSRS DORG TOM B7 TOM B7 TOM TR AM F SR 87 EDGAR FLOAT+25 FLOAT FLOAT+25 FLOAT FLOAT+25 PCK+ 11 PCK+l0 PCK+15 PCK+lO TR AM TF BTFL B7 DEND PCK+ll,PCK+lO,ll PCK+l0, 11 it+30,PCK-t-lO PCK+ 15 t PCK+20, 611 03144 ,B ,5 ,6 ,PCK+IO ,11 , PCK+20 ,11 ,611 ,6, BTFS FSRS OVFL SAVE 00096R OOOOOR 00266R 00100R 00004 00009 000 14 00019 00000 00000 00012 00020 00032 00040 00052 00064 00076 RETURN TO MAINLINE 00088 00096 00108 00120 00132 00144 03144 CLR LN10 P TFLS 007l0R 00567R 00000 00040R 00005 00005 00005 00005 -0000 -0020 -0040 -0096 J5 M9 J5 M9 J5 31 11 08 00077 00052 00077 00052 00077 02376 02375 0238- 00008 00000 00005 00000 00006 0237N -0011 0238N 49 31 11 K6 07 49 0237N 02376 02375 00150 023800000 00000 0237N -0011 02375 023BN 00000 2711 1620 MONITOR [[ 00010 00020 00030 OOO~O 00050 00060 00070 Nl 00080 N2 00090 W 00100 RECLG 00110 00120 00130 00140 00150 SAVSYH lENGTH FLNG KLNG PROGST 00160 COllADO 00170 USEOFS 00180 SUBFCT VERS [ON FORTRAN 11-0 PHASE 1-~ PAGE 1620 FORTRAN 1[-0 PHASE I-A OQRG 02218 DC 5 .-100 -OIUOSC 1 .2 2 DC .67 07 DC 6 ,981898 R87898 DC 2 .0 -0 DC 5 .0 -0000 DC 2 .0 -0 DC ,000 -00 OS 12 .RECLG OS 5 DS 2 DS 2 DC 5 .00000 -0000 5 ,19999. DC J9999 OSC 30 .0 000000000000000000000000000000 DC I .0 00190 PUSTSN OSC .0 0 WII OS 2 FP2 DS 2 fEND DS 5 LSTAO OS 5 P2PTR OS 5 FCTENC DS 5 DS 5 FIION TF *+42,FMON-l' t TFII fORT, *+23 8 IOGT .. 7 B DORG 0-4 JAY DSC 1 .2 2 00330 NXLOC DC 5 .15999 J5999 00340 STBl DS 5 00350 COMST DS 5 00360 01 SKSW OSC 1.0 0 00370 IIUlOEF DC 1.0 00200 00210 00220 00230 00240 00250 00260 00270 00280 00290 00300 00310 00320 ... 00380 INTOPI OSC 0 02218 02222 02223 02225 02231 6 02233 2 OU38 02240 2 022~3 02243 02248 02250 02252 02257 12 5 2 2 5 02262 02263 30 02293 02294 02296 02298 02303 02308 02313 02318 02323 02324 02336 02348 02360 02367 02367 SETUP ROUTINE ENTRY GO TO EXECUTE CAlLED ROUTINE 26 16 49 49 2 2 5 5 5 5 5 02366 00565 00566 00000 02323 -2359 -0000 00000 02372 02377 02382 02383 02384 1.0 02385 271 1620 MON !TOR II 00390 00400 OOUO 00420 00430 00440 00450 00460 00470 00480 00490 00500 00510 00520 00530 00540 00550 00560 00510 00580 00590 00600 00610 00620 00630 00640 00650 00660 00610 00680 VERSION 2 FORTRAN 11-0 PHASE I-A PAGE 5.00600 DC -0600 DC 3.002 -02 DSA CARD DC 02390 02393 02398 1 •• CAllP2 TFII FIION+35.BLK8 BTII FIION. CAllP2 INDIY DS 1 0 INDIY a o FOR CARDS. 1 FOR TYPEIIRITER. FLAGGEO 3 FOR PAPER TAPE JUIIP OS ENTlN OS .RECLG+5 AFT8l OS 014935 .151)9 CHI OAS 430 CHI5 OS .CHI+700 CHIENO OS .CHI+860 CARO OS .CHI-203 lOCAL OS .716 10GT OS .566 IOR8C OS .520 10PT OS .532 10SK OS .554 ERRET OS .602 IORT OS .565 IIONCAL OS .196 E86440 TFII FIION+35 ... BLK7 8TII FMON .E86440 8lK8 OS .E86440+31 PRSCAN TFII FIION+35 .PH80AT 8TII FMON .PRSCAN CAll IN PHASE 8 PH80AT OSC 2.22 22 00690 OSA PH800A 02400 02412 02424 . 00100 DC 5 X 02398 02399 02429 02248 14935 15139 15839 15999 l't936 00716 00566 00520 00532 00554 00602 00565 00796 02430 02442 02461 021054 02466 02418 J4936 1 16 17 16 17 16 17 02359 02324 1 -2461 -2400 5 0 0 430 X 0 0 0 0 0 0 0 0 0 0 0 02359 -0000 02324 -2430 0 02359 -2478 02324 -2454 2 02484 024·84 02485 I •• 00710 PHBDOA OSC 1.0 0 00720 5.11200 DC J1200 00130 3 .082 DC -82 00740 OSA E86440 -2486 1 02486 02491 024910 02499 00750 DC 1 •• 02499 02500 00760 Nil 00770 00780 00790 8Y 8SIA BSBA TOM -+12 •• 12 •• 12 475 02502 02514 02526 02538 .2 SYSCAL ZH -2430 1 46 60 60 15 02514 02526 02538 00475 01400 00009 00001 00002 2 . 1620 MONITOR II 00800 00810 00820 00830 00840 00850 00860 00870 00880 00890 00900 00910 00920 00930 00940 00950 00960 00970 00980 00990 01000 01010 01020 01030 010"0 01050 01060 01070 01080 01090 01100 01110 01120 01130 01140 01150 01160 01170 01180 01190 01200 01210 01220 01230 01240 01250 01260 01270 01280 01290 OUOO 01110 01320 OU30 01340 01350 MOVE MOVEJ VERSION 2 SF 457 TFM IORT ,-+23 IOGT B .ABOEF .7 TFM IORT ,-+23 IOPT B .WCOEF .7 A800A+5 .100 AM .9 WCOOA+5 .100 AM .9 CM WCOOA+5 .200 .7 BNH MOVE TFM 10RT ,.+23 .7. B 10GT .ABJOEF .7 TFM 10RT ,-+21 ·IOPT .WCJOEF B .7 TFM ABJODA+8 ,100 .9 TFM WCJOOA+8 .100 .9 ABJOOA+5 .124 AM .9 IICJOOA+5 .124 AM .9 IICJOOA+5 .1600 CM .7 BE MOVEJ ABJOOA+5 .24 5M .10 SM IICJOOA+5 .24 ,10 IICJOOA+5 .1700 ,7 CM BE MOVEJ ,0 TOM 00000 U18 AM .20000 TR .ALPHRM-l .26 I BNR e-24 .0 TF STIL ,--18 TF INOOA+U .ST8L SM INODA+U .'199 .9 ,.+23 TFM 10RT ,7, 10GT ,INDATA B SM INDDA+IO .1 .10 I NOOA+ll .NXlDC C INL e..,,8 TOM IUFSCS+IOO.--e DGM e TO IUFEQT+800,GRIIK TO IUFOIM+100.GR"'K TF TUI .STlL TF FClENO ,STBL , •• 2J TFII 10RT 10GT ,DIMOAl B .7. TF 0IMDDA+5 .BUFOIM+45 •• 01MOOA TO .BUFOIM+40 TFM DIMDOA+B iDOl ,'I TFM DIMDDA+ 1l.IUFEOT , •• 2J TFM 10RT lOin ,DIMOAl I AM -+18 .16 .10. BUFEQT-5 ,IZNINE C .2. ROONE IE TF -+30 .N114+1' e+18 ,04 AM .10 DUMMY SM .D9 .10. e-6 III! ,D5 .610 .7, GRMK ,1, N1I4 , .... FORTRAN 11-0 PHASE I-A PAGE NON - EXECUTE SET MOVE PHASE 2-8 BLOCKS TO WORK CYC. CALCULATE MEMORY sIre INIT IALUE SYMBOL TAILE GET FIRST 5 DIM ENTRIES IN EOUIU\'ENCE TABLE DIM ENTRY GET • SUTORS OF EQUIV. "'ILE LDAD SYM TAIU FROM EOUIV TAILE IS ENTRY ALL NINES YES ND OETERIIINE SUBROUTINE ADDRESS 02550 02562 02514 02586 02598 02610 02622 021>14 02646 02658 02670 02682 02694 02706 0271B 02730 02742 02754 02766 02778 02790 02802 02814 02826 02838 02850 02862 02874 02886 02898 02910 02922 02934 02946 02958 02970 02981 02982 02994 03006 03018 03030 03042 03054 03066 030711 03090 03102 03114 03126 03138 03150 03162 03114 03186 03198 32 16 49 16 49 01210 03221 03222 03234 03246 03258 03270 03282 03294 03306 03318 03330 03342 03353 03354 03366 03317 03318 03390 03402 03414 03426 03437 03438 03450 03462 03474 03416 03491 03510 03522 03534 03546 D3558 03570 03582 03594 03606 03618 03630 03642 03654 03666 03678 03690 03702 03714 03726 03733 03734 03746 03758 03165 03766 03718 03790 32 11 11 14 U 16 49 16 49 16 16 11 11 14 46 12 12 14 46 15 11 1I 45 26 26 1Z 16 49 12 24 46 15 25 25 26 26 16 49 26 25 16 16 16 49 U 24 46 26 11 12 13 00457 00565 00566 00565 00532 0601'1 06042 06042 02562 00565 00566 00565 00532 06068 06091 06065 06088 06088 02658 06065 06018 06088 02658 00000 02856 -OOOJ 02838 OU77 05692 05692 00565 00566 05U9 05692 02910 06318 I 07120 07222 03221 02318 00565 00566 05707 05702 05710 05115 00565 00566 0314~ -UlS 03534 03192 03192 99999 0319K 3 00000 -un -6006 -260'1 -602'1 OOJOO OOJOO -0200 01100 -2681 -6052 -2705 -6075 OOJOO OOJOO 00J2" 00J2" -1600 01200 000K4 000K4 -1700 01200 00000 KOOOO 05669 00000 02856 02377 00R99 -2933 -5671 000-1 02372 OUOO 00000 02981 02981 02377 02377 -3053 -5694 07167 07162 00-08 -6320 -1I25 -5694 000J6 05995 01200 031"4 000-4 000-9 000-5 2n 1620 MONITOR II 01360 01110 OU80 01390 01400 01410 01420 01410 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 01740 01750 01760 01770 01780 01790 01800 01810 01820 01810 018"0 01850 01860 01870 01880 01890 01900 01910 Till SF OS All TF 95 5 99 nil Tll1 T112 SM flU LOOP41 AM flU TlI2 C IH N1142 TF T113 SM fl13 SF T113 Tl12 os 5 eM Tl12 CF Tl13 Tl13 OS 5 BNE LOOP41 N1142 SM Tl12 TF TlU SM T113 SF T113 TlH OS 5 TF T114 S T114 AM TlI4 A MUOC TF NXLOC TF Till SM Tlli FCTEND TF RDONE CM NIl4+18 NIl4 8L FeTEND S'" _+18 511 TFM CHI END e-6 ell 8Nl --]6 TF CHI END TO INPUTD CF INPUTD INPUTD C'" 8E IPTY CII INPUTD IPPT 8E TOM INDIV TFM N2lKEY-l 8 N12 DORG e-4 IPPT TOM INDIV TFM N21KEY-l 8 NI2 DORG e-It IPTY TOM INDIV TFM N2IKEY-l N12 TFM IORT SM TF .- .ENTLN-5 .99 ,5 ,NIl4+18 .U ,02 ,N114+18 . ,T1I2 ,01 ,e .00 ,- VERSION 2 PHASE I-A SYIIBOL TABU POINTER .. .6. .10 STORE sueR. ADDRESS IN SYM TAB~E ELIMINATE BLANKS FRDM IIAME ,10 .10 .10 .6 .610 ,6 .02 .NIl4+18 ,10 .1I .10 .6 .- FDURAN 11-0 ,TlI2 .nn ,01 .10 .Tl14 ,TlIZ ,611, STORE SUBR. NAME I N NAME TAIL E ,NUOC .6, STORE POINTER IN SYI!. TA8LE ,05 .10 ,TIll .IUFEOT+?95 .05 .02 .DO .CHI .10 .10. INITIALIZE READ IN AREA .210 • AlPHRM .426 DETERMINE INPUT DEVICE .01 ,10 .03 .0 .10 .. .3 .08 ,II, .10 ,I .06 ,*+23 .10 .10 CARD INPUT .10 .. PAPER TAPE INPUT TYPEWRITER INPUT PAGE 27/1 47 12 12 16 14 46 26 25 33 14 46 14 46 15 16 49 00095 5 00099 0322J 03221 03353 03353 03353 03353 03390 03377 03377 0337P 5 0335l 0337P 5 03282 03353 03377 03317 0331P 5 03437 03431 03437 02372 0231K 0322J 03221 02318 03144 03126 02318 03588 J5999 03588 03510 15999 05997 05997 05997 03766 05997 03734 02424 06004 03790 15 16 49 02424 06004 03790 OOOOL 000-8 00000 15 16 16 02424 06004 00565 00001 00D-6 -)813 11 26 12 26 12 11 24 46 26 12 32 14 33 47 12 26 12 32 26 22 11 21 26 26 12 26 14 00000 -2243 00099 000-5 031"4 000J2 000-2 031"4 01100 03353 000-1 00000 1100-0 00000 01200 000-2 01144 OOOJI 00000 03353 03317 000-1 03437 0335l 02372 000-5 03221 -7115 OUOO 000-5 000-2 000-0 J5U9 onoo 05670 00426 00000 000-1 01200 000-3 01200 00000 OOOJO 00000 4 1620 MON ITOR /I 01920 01930 01940 01950 01960 01970 01980 01990 N21 02000 02010 02020 02030 02040 02050 02060 02070 02080 02090 02100 02110 02120 02130 02140 02150 02160 02170 02180 02190 02200 02210 02220 02230 02240 02250 02260 02210 02280 02290 02]00 02110 CALLP 1 02320 02330 02340 02350 02360 02310 OUIO 02390 OUOO 021t10 02UO 02430 02440 02450 02460 02410 8 TD TF TR TR TF TF CM BNE RCTY TFM 8 CM INE BC4 BNR Bl CM INE CF CF CF CF C BE C BE C liE C liE RCTY TF WATV RClY NATY H II DORG SF SF SF SF 10 TF TR TFM TF AN Tf C IINH TF Tf TFM II IOGT COMADo-4 COMST 8UFSCS 00402 FLNG KLNG INPUTD VERSION 2 *+24N21+24 -+20 MONCAL CHI CALLPI CHh3 CHI+5 CHI+1 CHI+9 CHhl0 WASS CHl+10 WAOeJP CHI+I0 WADK CHI+lO FKTEST CHI+32 CHI ,·+23 READ A~ INPUT RECORD USING IORT. .. .. ,N21KEV-7 ,7, ,10 ,01 ,CHI .. ,14 ,la, , , , ,PSTSN+8 ,POBJP+8 , ,,LDISK+8 ,FANDK+' , .. ,INOIV ,ALPHRII ,CHI-l .00 ,FLNG ,02 ,KLN6 ,KLNG *+2. II liN 10RT 10PT .. .. PAGE 03802 03814 03826 03838 03850 03862 03874 03886 03898 03910 03922 03934 03946 03958 03970 03982 03994 04002 04014 04026 04038 0405D 04062 04014 04086 04098 04110 041Z2 04134 04146 04158 04110 04182 04194 04206 04218 04230 042U OU49 04250 04262. 04214 04286 04298 04310 04322 04334 D4346 04358 04370 OUI2 0"394 04406 04418 04UO 04"42 SET UP DIM IN SYS COMM SECTOR SET UP DIM IN SYS COMM AREA MOVE F MOVE K ALLOWS GOOF SW ITCH IS THIS A CONTROL STATEMENT ND, CALL IN PASS 1 YES IS THIS A PSTSN STATEMENT YES NO, IS THIS A POBJP ST. YES NO, IS THIS A LDISK ST. YES NO, IS THIS A FANDK ST. YES NO, INVALIO CTL. ST. ,ALPHRM ERMESI N21 .-4 CHI+] CHI+5 CHI+1 CHI+9 .+"8 CHI+160 CHI5-1 CHI+160 FP2 FP2 II FP2 PHASE I-A GET SYSTEM COMMUNICATION SECTOR MOVE OBJECT TIME MACHINE SIZE -+2". 10RT 10GT INPUTO FORTRAN /1-0 ,SCSOAT ,7, ,BUFSCS+16 •• ,COMADD ,INIT ,INIT-l ,BUFSCS+46, , ,BUFSCS+48., ,10 ,01 ,FP2 ,II ERROR, INVALID CONTROL STATEMENT BR. TO READ NEXT STATEMENT ...... ,10, CARD INPUT YES, MOVE INPUT RECORD TO CHI' ERASE RECORD MARK ,1O. CALCULATE F PLUS TWO .. CALCULATE N, NORD SIZE FOR DISK 10 ,*.2J ,SCSOAT ,1, PUT SYSTEM COMMUNICATION SECTOR 49 25 26 31 31 26 26 14 47 34 16 49 H 47 46 45 49 14 47 33 33 33 33 24 46 24 46 24 U 24 U 34 U )9 34 J9 48 49 32 32 32 32 43 26 31 16 26 11 26 24 41 26 26 16 "9 00566 02258 02382 062Ui 00402 02250 02252 05991 03922 00000 00565 00566 05997 03982 03910 04002 00796 15139 04250 151U ,151H 15146 15148 15149 04646 15149 041910 15149 04950 15149 05270 00000 15111 15139 00000 0;105 00000 03886 -5117 06294 02262 05741 05740 06264 06266 000-1 01200 00102 -3945 -5998 000-1 01200 00400 15139 15142 151"4 15146 151U 04346 15299 15838 15299 02298 02298 02240 02298 04418 02240 02296 00565 00532 00000 00000 00000 00000 02424 05610 15138 000-0 02250 000-2 02252 02252 01100 02298 02240 -4"53 -5111 000J4 01200 00000 00000 00000 00000 05713 01200 05783 01200 05193 01200 05803 01200 00102 05610 00100 00102 00100 00000 00000 275 1620 MONITOR II 02480 02"'0 02500 02510 02520 02510 02540 02550 02560 02510 02580 02590 02600 02610 02620 02630 02640 02650 02660 02610 02680 02690 02700 02110 02120 02130 02HO 02750 02760 02710 02780 02790 02800 02810 02820 02830 02840 02850 02860 02810 02880 02890 02900 02910 02920 02930 02940 02950 02960 02970 03020 03030 030100 03050 03060 03070 CM INL TFM B1 8NE TFM 11 TFM SETPT TF SM TF TOM GMI DGM TF AM SF BV II DORG IIASS TF ReTY NATY CM liE CII BE IIREM3 RCTY WATV H 8 DORG WASS2 TO B DORG WA08JP TOM TF RCTY WATY CM INE TOM B DORG CM INE TDM I DORG TDM 87 WAOK TOM TOM TF RCTY IIAlY 8NR STBL VERSION 2 FORTRAN 11-0 PHASE I-A PAGE ,39999 . .32 LSTAO SETPT •• 32 LSTlO SETPT UTAD PZPTR P2PTR JUMP FCTEND . .-. ,19190 ,34990 ,5"'90 ,STilL ,09 ,LSTAO ,--. *.30 .+18 ,JUMP ,4 ·+12 PRSCAN .-4 CHI+14 ,ALPHRM CHI CHt+12 IIASS2 CHI+12 IIASS2 ,,72 ,14 ,10 ,6 ,10 .. .10, .10, IS DEVICE CODE PAPER TAPE YES NO, IS DEVICE CODE CARDS YES ERROR, INVALIO OUTPUT DEVICE CODE ERMES3 N21 .-4 PUSTSN N21 .-4 JAY CHI+H CHI CHI+12 *+32 SR. TO READ NEXT STATEMENT ,CHI+12 ,I ,ALPHRM ,,72 IIUFSCS+23,1 N21 --4 CHI+12 ,1" "32 BUFSCS+23,0 N21 ·-4 BUFSCS+23,O WREM3 8UFSCS+22,1 JAY .1 CHI+32 ,ALPHRM , CHI .+24 ,CHI+12 DUP ACTION REQUIRED .. .1.1, I S DEVICE CODE PAPER TAPE NO· YES .. IS DEVICE COOE CARDS NO YES .10. .10. ,llt ,11 .11, ,7, SET UP fO LOAD OBJECT PROG. ON OK. OUP ACTION REIlUIREO ELIMINATE RECORD MARKS 04"'" 04466 04418 04"'0 044" 04510 04522 04530 045"2 04554 04566 0"'78 04589 04590 04602 ·0461" 04626 04638 04645 04646 04658 04670 04682 04694 04106 04118 0"130 04142 04154 04166 04113 04114 047116 04193 04794 OU06 OU18 04830 0"842 04854 04866 04818 04885 04816 04898 04910 04922 04929 04930 04942 04950 04962 04914 04986 0"998 05010 276 14 46 16 49 41 16 49 16 26 02377 04"98 02308 04542 04530 02308 OU42 02308 02313 on13 OU29 0231Q 1 04620 04620 00000 04638 0245" 02429 000-" 00000 01400 00000 15153 00000 15139 15151 04774 15151 04774 00000 05921 00000 03886 05610 00102 00100 000P2 01200 OOOPO\ 01200 00102 00100 00000 00000 25 49 02294 03886 15151 00000 .l5 02361 15153 00000 15139 15151 0"886 062'U 03886 00001 05610 00102 00100 000P2 01200 OOOOJ 00000 15151 04930 06241 03886 000P4 01200 000000000 06241 04130 06240 02367 15111 00000 15139 05034 0000- 12 26 15 26 11 32 46 49 26 34 39 14 46 14 46 J4 39 "8 '" 26 34 J9 14 41 15 49 14 47 15 49 15 49 15 15 26 34 39 45 L9999 01300 J9190 01200 L4990 N4990 02377 000-9 02308 00000 OOOOJ 00001 05610 00102 00100 J5151 6 1620 MONITOR II 03080 TFM '-L ,00 ,2 03090 AM --13 --25 CM ,CHI+30 03100 03110 8NH .-1t8 CF CHI+U 03120 03130 CF CHI+15 03140 CF CHI+l7 03150 CF CHI+19 03160 CF CHI+21 03170 TF aUF SC S+35,CHI +22 03180 SF CHI+B 03190 SF CHI+15 SF 03200 CHI+l1 03210 SF CHI+19 03220 SF CHI+21 03230 TO BUFSCS+36,CHI+2'1 03240 8UFSCS+37,eHI+26 TO 03250 TO 8UFse S+38,eHI+28 03260 TO 8UFseS+39,eHI+30 03270 SF 8UFseS+36 03280 8 N21 DORG '-4 01290 0.3300 FKTEST TF eHI+20 ,ALPHRM 03310 ReTV 03320 WATV CHI 0.3330 TO FWORK-l ,CHI+ll 03140 TO FWORK ,CHI+U FWORK 03150 CF 03360 eM FWORK 03370 8NE N31 03380 FWORK-l ,CHI+l2 TO 03390 FWORK-L SF 03'100 FWORK ,CHI+l4 TO 034LO CM FWDRK ,02 8L N31 03"20 eM FWORK ,28 03lt30 03/t'l0 8H N31 ,FWORII 03'150 TF FLNG 03460 IIWORK-l ,CH10l5 TO IIWORK ,CHI+17 031t70 TO IIWORK 03'180 eF ,17 03'190 eM II WORK 03500 INE N31 03510 KWORK-1 ,CHI+16 TO IIWORK-1 03520 SF 03530 TO KWORK ,CHI+U 035'10 KWDRK ,04 eM 03550 IL N31 01560 eM IIWORK ,10 IH 03510 N31 01580 TF KLHG ,IIIIORK 03590 I H21 03600 OORG 03610 N31 RcTY 03620 IIATY ERMES2 03630 H VERSION , .... , , ",10 ,n , , , FORTRAN 11-0 PHAse I-A ,610 ,10 .10, IS F NUMERIC NO, ERROR YES, LOAD F ,10, F IN RANGE ND, ERRDR .. .... .. .10, .10. NO, ERROR YES, MOVE F TD FORTRAN COM. AREA IS K NUMERIC NO, ERROR YES, LOAD K K IN RANGE NO, ERROR ,10 NO, ERROR YES, MOVE K TO FORTRAN COM. AREA IR. TO READ NEXT STATEMENT .-" ERROR, F OR KOUTS 10E RANGE PAGE 05022 05034 05046 05058 05070 05082 05094 05106 05118 05130 051"2 0515/t 05166 05178 05190 05202 05211t 05226 05238 05250 05262 05269 05270 05282 0529" 05]06 05318 05]30 053"2 05354 05366 05378 05390 05402 05'11'1 05426 05"38 05'150 05462 0547" 051t86 05498 05510 05522 05534 05546 05558 05570 05582 0559'1 05606 05618 05625 05626 05638 05650 0502J 0502L 05021 05010 15152 1515/t 15156 15158 15160 06253 15152 15154 15156 15158 15160 0625'1 06255 06256 06257 06254 03886 000-0 000-2 J5169 01100 00000 00000 00000 00000 00000 1511>1 00000 00000 00000 00000 00000 15163 15165 15167 15L69 00000 00000 25 32 25 I" 47 14 '16 26 '19 15159 00000 15139 05760 0576L 05161 05761 05626 05160 05760 05761 05761 05626 05761 05626 02250 05762 05763 05163 05763 05626 05762 05762 05763 05163 05626 05763 05626 02252 03886 05670 00102 00100 15150 15152 00000 000P7 01200 15151 00000 15153 000-2 01300 000K8 01100 05761 15154 15156 00000 000P7 01200 15155 00000 15157 OOO-/t 3'1 39 '18 00000 05865 00000 00102 00100 00000 49 03886 16 11 14 47 33 33 33 33 33 26 32 32 32 32 32 25 25 25 25 32 49 26 14 39 25 25 33 14 '11 25 32 25 I" '17 14 46 26 25 25 ]3 14 '17 7 onoo OOOJO 01100 05163 00000 277 1620 MONITOR II 036'10 I N21 03650 ODRG --It 03660 ALPHRM DC 2 03670 INOATA OSC 22 03680 OSA 2 .. VERSION 2 FORTRAN 11-0 PAGE PHASE I-A IR. TO READ NEXT STATEMENT ,0' 05662 05669 05610 ,22 05611 05671 INDDA 03690 DC ,' 05611 05678 03100 INODA OSC 0 DC 5 J1330 DC 3 -10 OS 5 DC 1 ,0 05679 03710 03120 03730 0311t0 03750 DIMOAT OSC 20 03160 DSA 03110 2 DC 05687 t' 05692 05693 ,20 05694 05100 " DC 03830 seSOAT DSC 20 038'10 DSA 0568'1 ,010 OIMODA 03780 DIMDDA ose 0 03790 DC 5 -4800 03800 DC 3 -01 03810 OSA IUFDIM 03820 ,17330 , DC 03900 DC 5 X -5619 1 2 5 X -5702 1 05702 05107 ,001 05110 3 05115 5 05115 05716 -7122 1 05717 2 ,20 x 05121 seSDDA 03860 SCSDDA OSC 0 03870 DC 5 J9663 03880 DC 3 -01 03890 OSA 8UFses 2 ,04\800 05723 03850 2 ,0 " 2 05700 05101 " 057210 ,0 05725 ,19663 05730 ,DOL 05733 05738 " 05738 05739 278 00000 -5725 1 3 5 X -6218 1 8 1620 MONITOR 1/ 03910 03920 03930 INIT 03940 OSC 1 DC 5 -0000 OS ,I DC VERSION 2 FORTRAN 1/-0 PHASE I-A PAGE ,00000 057~5 ,*-4 ,999 05Hl 05748 03950 R99 OC 5 R999R .-99999 05753 03960 DC .00000' 03970 FWORK 03980 KWORK 03990 PSTSN 04000 P08JP 04010 LOISK 04020 FANOK 04030 ERMES 1 04040 ERMES2 04050 ERMES3 04060 12NINE 04070 INPUTO 04080 b -0000' OS 2 OS 2 OAC 5,PSTSN PSTSN OAC 5,P08JP P08JP DAC 5,LDISK lDISK OAC 5,FANDK FANQK DAC 30,ERROR. INVAlI 0 CDNTROl RECORD' ERROR, INVALID CONTROL RECORD' OAC 28,ERROR, F OR K OUTSIDE RANGE' ERROR, F OR K OUTSIDE RANGE' OAC 32,ERROR, INVALID OUTPUT UNIT CODE' ERROR, I NVAlI 0 OUTPUT UN IT CODE' ,999999999999 12 DC R99999999999 ,00 DC 2 -0 OSA CHI DC -0 04100 N21KEV OGM 04110 ABOEF DSC 22 04120 OSA 04130 DC , OU40 A800A OSC 05759 6 05765 2 2 5 05175 5 05785 5 X 05795 05805 28 32 05995 12 05997 2 06002 06004 2 ,22 06006 ,' 06012 06013 DC 041bO DC 04170 DC x 5 05921 ,00 x )0 X 05865 2 2 x 2 5 X J5139 2 Ob005 Ob012 ABOOA a 04150 0 3 057bl 057b3 Ob002 04090 9 057~0 5 ,0 06014 ,11400 Ob019 5 X -6014 1 J7400 3 ,100 06022 ,06218' Ob028 ,02 06029 JOO 04180 WCOEF 04190 6 -6218' OSC 2 02 OSA NCOOA 6 5 X 06035 2711 1620 MONITOR II VERSION 2 FORTRAN 11-0 PHASE I-A PAGE Ob035 0603b -6037 04200 DC " 04210 WCODA OSC 0 ,0 06031 5 ,00000 Ob042 3 ,100 06045 ,06218' 06051 6 ,22 06052 2 04220 DC 1 -0000 04230 DC 04240 DC JOO 6 -6218' 04250 ABJPEF OSC 2 22 04260 OSA A8JOOA 04270 ,' 06058 06059 ,0 06060 5 ,17876 Ob065 3 ,124 06068 ,06218' 06074 ,02 06075 DC 04280 A8JOOA OSC 0 04290 DC 06058 -6060 1 J787b 04300 DC 04310 DC J24 6 -6218' 04320 WCJDEF OSC 2 02 04330 DSA WCJODA 04340 DC , 04350 WCJODA OSC 0 04360 DC 5 -1476 04370 DC 3 J2't 04380 6 DC -6218' 04390 DORG 06218 04400 8UFSCS DSS 100 04410 OS 2 04420 BUFEQT OSS 800 04HO OS 2 04440 BUFOIM OSS 100 04450 OS 2 04460 DUMMY OS 04470 DORG 16000 04480 PHAOOA OSC 1,0 0 04't90 DC 5017290 J7290 04500 OC 3.050 -50 " 06081 5 06081 06082 -6083 ,0 06083 ,01476 0608R ,124 06091 .062lS' 06097 ,99999 6 06218 06218 06319 06320 07121 07122 0722] 99999 16000 16000 16005 16008 280 1 3 100 2 800 2 100 2 o x 10 1620 MONITOR II 04520 5,02218 OC -2218 DC 1 04530 OC 04540 OC 04550 DC 04560 OC 04570 OSC 4 0000 04510 04580 RECHK S OC RECMKS-9 -.18 DUMMY ·-6 ·-18 ·-36 GRHK 04590 LDPHA 04600 04610 04620 04630 046"0 04650 04660 GH 04670 04680 04690 04700 04710 SF TFH TF 5M CM BHE TOM DGM TO TO K WN TRA . 04720 Teo lOPHA 04730 OENO VERSION 2 FORTRAN 11-0 PAGE PHASE I-A 11 16013 .' .' .' 16014 16015 16016 .' .' 16017 16018 .0000 16019 .' 16023 .. • BUF SC S+999 ,RECHKS ,10 .10 .BUFSCS-I 16024 16036 16048 16060 16072 1608" 16096 16107 !b108 16120 16132 16144 16156 16168 16024 SET SYMBOL TABLE TO ReCORD MARKS ,--. ,GM N21KEY GMI .GM PHADDA.701 PHADDA.702 4 32 16 26 12 14 47 15 25 25 ]It 38 36 49 16014 16054 99999 160510 1605" 16048 02981 1 06005 04589 16000 16000 00000 00000 00000 -7217 16023 OOOJO -6217 01200 00000 16107 16107 00701 00702 00500 00000 00000 281 1620 MONITOR II 12NINE ABJOOA ABJOEF AlPHRH BUFO!M BUFEOT BUfSCS CALLP1 CALLP2 CHIEND COMADO OIMOAT OIMODA DISKSW E864~0 ERNESI ERNES2 ERMES3 FCTENO FKTeST INDATA INPUTO INTOPI 05995 06060 06052 05670 07122 06320 06218 04250 02400 15999 02262 05694 05702 02383 02430 05805 05865 05921 02318 05270 05611 05997 02385 lENGTH lOOP41 MONCAl MUlDEF N21KEY PHADOA PHBDAr PHBDDA PROGST PRSCAN PUSTSN RECMKS ABODA ABDEF AFlBl BLK8 CARD CHI5 CHI CoMST DUMMV ENTlN ERRET VERSION 2 02H8 03282 00796 02384 06005 16000 02478 02486 02257 02454 02294 16023 06014 06006 1~935 02461 1~936 15839 15139 02382 99999 0224B 00602 FORTRAN "-0 FANDK FlNG fMON FP2 FWORK GMI GM GRMK INDOA INDIY INIT lOCAL 10GT 10PT loRBC loRT IOSK IPPT IPTV JAV JU"P KlNG KWORK PHASE I-A 05795 02250 02324 02298 05761 04589 16107 02981 05679 02424 057 0"950 04774 04646 06037 06029 04730 02240 02296 02243 05717 05725 02293 02263 04794 06083 06075 1620 MONITOR II 00010 00020 00030 OOO~O 00050 00060 00070 Nl 00080 N2 00090 II 00100 REtLG 00110 OOlZO 00130 00140 00150 SAVSYM LENGTH FLNG KLNG PIIOGsr 00160 tOM.. OO 00170 USEOFS 001.0 SUIFCT 001'0 PUSTSN 00200 1111 00210 'P2 00220 TEND 00222G" OOUO LSTAD 00240 "2PTR 00250 FCrENO 00260 00270 FMON 00280 00290 OOJOO DOnO 00320 JAY DonO NXLOt 00340 STIL 00350 CO"ST 00360 0 ISKSW VERSION 2 FORTRAN II-D PHASE 1-8 1620 FORTRAN II-D PHASE 1-8 OCRG 02218 5 DC .-100 -010DC ,2 1 K DC 2 ,67 01 DC 6 ,'87898 R81898 DC 2 ,0 -0 DC 5 .0 -0000 DC ,0 2 -0 ,000 DC 3 -00 OS 12 ,REtLG OS 5 OS 2 OS 2 DC 5 ,00000 -0000 D5 OSC 30 .0 000000000000000000000000000000 DC 1 .0 02218 Ollll DG" OS OS OS OS TF TFM •• 00370 MULOEF DC 6 02133 , 2 02240 2 02243 3 02243 02248 02250 OU52 02257 lZ 5 2 2 5 02262 02263 5 30 02293 , 5 ... 1 02231 022'4 02296 02l'8 On03 OUOO 02308 02313 02318 02323 02324 02336 02348 OU60 02361 OU6J 02372 01377 02382 OUI3 , SETUP ROUTINE ENTRY IOGT •• 7 GO fO EXECUTE t .. LLEO IIOUTINE IXIRG .-4 OS 1 OS OS OS 1·.0 DC 02215 02238 1 2 2 5 rENO-3 5 "42,F"0N-l· .. IORT.**23 5 Ol223 , oS OS OS OS PAGE , ,, 1.0 1 2 26 16 49 4' 2 5 1 5 5 5 5 02366 00565 00566 00000 02323 -2359 -0000 00000 ·1 5 5 5 1 OU.4 00310 INTOP! OSt 1.0 0 00390 5,00600 DC -0600 00"00 DC 3,002 -02 02385 02390 5 02393 3 283 1620 MONITOII II VERSION 2 FOIl fUN 11-0 PHASE I-I PAGE 00410 au CARD OU" 5 00410 . I.' OU9I 02399 J4936 1 DC 00410 C..LL'2 TFM 00440 IT" 00"'0 00460 _INOIV OS 004'0 00... 0 00. .0 00.00 00110 OOSIO OOUO 00540 00550 00560 Don. 00518 00591 01600 00610 00620 006)0 00'40 00650 00660 00670 00. .0 00690 00700 00710 00720 Dono 00""'0 00750 00760 00770 00180 007'0 00800 00110 00120 00830 001140 00850 00160 FMONU',BLU 'MON,C ..LV2 1 IICIIV • o FOil tAROS, 1 FOR tyPEIIRITER. • FUGSEO 3 FOIl "APER fAPE JUII" OS 5 ENTLOG OS ,REClG+5 ""flL os .. 1. .35 CHI OAS 430,15139 CHIS OS .CHI+700 CARD OS .CHI-203 IOC .. L OS .716 100f ,S66 OS 10RIC OS ,520 10PT os 10SK OS ,"4 ERRET OS ,602 10RT OS .S65 "ONCAL OS .796 E8 6440 TF II FMON+U .ILK7 ITM FIIIN IILKI OS ,E. .440+31 PRSC .. N 10 .+20,INOIV 11 PRSCN2 .NP PII5CN2,INOI" 17 PRSCNI SSCSII OC 2.00 -0 DORG t ..LLP2+ 100 snlST D5C 10.0101010101 0101010101 PRSCNI TFM U+l,41.10 TFM U+37,41.1O TFM UROAU+2,01,10 PRSCN2 S FXORFL-5,KLNG PLUS+U,FLNG 10 ... +.... INOIV -+20 DOIIG --3 8EGIN .fM PUT.132,8 BEGINA fFH '''RCNT,O,9 TF SU8SII,ZER13+2 ·TFM 55t511,00,lO 110 ' .. ,INOIY TO" CHI5+14~ DC 1. 't. 00170 00180 00890 00900 BA 02400 024lZ 02414 16 11 02429 02248 14935 15119 151., 14'36 00716 00'66 00120 DIU2 8'''4 .n, ..... A..., 10'96 01450 11""2 11"1 "4" OZ4. . "4"'" 01416 014'" ,e.,,,,,o 16 17 43 49 44 4' 82100 02500 02510 01112 02514 01146 OU5I 02570 01182 02590 021.0 02602 02614 02626 OUU 02650 02661 .. • CHI-l,CHI5-1 f" B READ1+'4 IXIRG .-~ 02662 02674 02. . 1 02682 RtTY 28/~ 02359 02324 1 -2"61 -2400 5 0 0 430 X 2 0 0 0 0 0 0 0 0 0 0 02159 -9752 02324 -2430 a 0247~ 02546 02541> 02510 2 02424 02424 10 16 16 16 22 21 43 4' 02683 0271' 0"11 06304 06769 0'730 02602 OOOMl OOOMI 000-8 02252 02250 02424 00000 17 16 26 16 45 15 089"" DUll 09912 02494 02682 15913 0-132 00-00 09897 000-0 02424 00000 31 '19 1513. 02870 1583. 00000 34 00000 00102 1 2 1620 MONITOR II 00910 ESNO 00920 DS Ot ,--5 00930 00940 00950 00960 00910 00980 BlOt 00990 01000 01010 01020 01030 01040 01050 01060 01010 01080 READI 01090 01100 01110 01120 01130 CKRM 01140 01150 01160 01110 01180 01190 01200 01210 TFM B Bt4 BNCI RtTY OS WATY tM BNE CM BNE tM BE B DDRG TFM 11 TFM IORT"+23 10GT .UROATA-4.1. .-36, •• YERSI0N 2 FORTRAN Il-D PHASE I-B PAGE 02688 02689 1,',--1t -+36 ,--5 CHI CHI,1t3,10, TES T FOR COMMENT lEAOSl CHI+2,O,lO, lEADBl tHI+4,O.10, BEGINA LEA08l --3 IDRT ... 23 10GT.CODATA-.... l . "35.CHI +144 SM *+23.2.10 TF 110 BO CM BH B DORG AM TOM CKENO DC 02694 02106 02718 02730 02142 02148 02154 02166 02118 02190 02802 02814 02B26 0283S' 02846 02846 02858 02810 02882 02894 02906 0291S 02930 02942 02954 02962 02962 02914 02985 READ STATEMENTS FROM TYPEWRITER AllOWS GOOF SW ITCH READ FIRST CARD ·+56.CKEND" SCAN 8ACK TO Pl ACE RECORD IIARK "44.CKENO-1 CKRII-I.CHI CKRM-24" , REAOI ... --3 CKRII-I .2 CKRII-I .. 6 CHECK FOR BLANK CARD 1,',. 01220 BNCI *+36 01230 RClY 01240 ESNDPl DC 4,0,--5 -000 01250 1,' ,--It DC 02986 02998 03004 01260 WArY 01210 tM 01280 BE 01290 TOil 01300 lEAOBl BO 01310 TR 01320 B ' DORG 01330 01340 AM 01350 CM 01360 BNH 01310 SF 01380 TRIt40 OS 01390 BTM 01400 BTM OHIO TF 01420 TFM 03010 03022 03034 03046 03058 03010 03082 03090 03090 03102 03114 03126 03131 03138 03150 03162 03114 . 0 I -2711 -9115 00400 00100 00102 39 14 41 14 41 14 46 49 00565 00566 02682 02166 00000 0 15119 15119 0305S 15141 03058 15143 02602 03058 16 49 16 12 26 43 43 14 46 49 00565 00566 02905 02905 03216 02962 02962 02905 02882 02846 -2869 -9183 J5283 000-2 00000 03216 03215 J5139 01100 00000 11 15 02905 0290N 1 -0002 00000 41 34 03022 00000 4 00100 00102 39 14 46 15 43 15119 15139 02846 15148 03090 15138 03058 00100 000M3 01200 000015139 15140 00000 03004 15139 03558 06896 0 05302 08944 02688 030010 000-1 00009 01100 00000 16 49 46 41 34 00100 000M3 01200 000-0 01200 000-0 01200 00000 03005 CHI CHI.43.10 REAOI CHI.9.0.11 "32.CHI CHI-1.CHI+l --24 _-3 ESNOPl.l.IO CHI.69.10 CSPYA-12 ... OUTSW BRANCH IF NO STATEMENT NUIIBER .' CST.NO,.+12., OUTPUT STATEMEt4T NUMBER PUT. lJ4.8.COlON ESNO.SYII ESNOPl.0.8 31 49 11 14 41 32 11 11 26 16 -3150 0-1310 09819 0-000 285 1620 MONITOR II 01430 01"40 01450 01460 01410 01480 01490 01500 01510 01520 01530 01540 01550 01560 01510 01580 01590 01600 01610 01620 01630 01640 01650 01660 01610 01680 01690 01100 01110 01120 01130 01140 01150 01160 01110 01180 01190 01800 01810 01820 01830 01840 01850 01860 01810 01880 01890 01900 01910 01920 01930 01940 01950 01960 01910 VERSION Z FORTRAN 11-0 PHASE 1-B NOINO.l.11 t40INO TOM OS 80 TOM OS STt4ER.9111 .. 911101 .. INSW TEST IF STATEMENT NO. WAS USED BEFORE SET INDICATOR THAT STATE. NO., APPEARED 80 .+20.1( ll .. TEST IF STATEMENT NO. MAS DO REFERENCE 81 8TM IIF TOM OS TOM lEAOZ-12 PUT. 140.8.DUMMY 0+23.1111 111 100 tKENO PARCNT DC -00 BO lEAOZ CII BNE TR B DORG STNER TFM 8 OORG CM 8NE 8TII C BV 8E 8 DORG FORM CII 8NE TR B DORG BTM C BY BE TFM B OORG TOM CSPYA TFM AM Bt4R TFM TR B DORG tM SNE TF TF AM ,--2 ,--2 ,--I OOTRAN.l 3,0,--1 FORII.81l1 .. CHI.0.I0. STNER+20 CHI-l.tHI+1 --36 --3 SPGS+U .076.9 TEST FOR FORMAT NUMBER SPERR+12 ••• STATEMENT NO. PREVIOUSLY USED --3 CHI.46.10 CSPVA COlNAII.6.10 SYM.FMTCST CSPVA FORMAT CSPVA --3 CHI,OO,10, .+32 CHI-l.tHI+1 --36 --3 COlNAM.6.10 SYM.FMTt,ST .. SHI FT OFF BLANKS MUST IE FORMANT STATEMENT ·+24 FORMAT SPGS+I1.211.9 SPERR+12 ... --3 NOINO. ELSE ERROR 21 *+J5.CHI. .+23,2,10 .+,.4 CSPYA+3S.31.610 CSPYA+35.AYOI0.6. OEtOOE --3 CSPYA+35.0.610 CSPYA+12 0+51o.tSPYA+35 .+47. *+42 •• 35,1,10 AVOID & FLAG3.1.FlAGO.RECMARK PAGE 03186 03195 03198 03210 03219 03222 03234 03242 03254 03266 03276 03218 03288 03290 03302 03314 03326 03338 03346 03346 on58 03366 on66 on78 03390 03402 03414 03426 03438 03446 03446 03458 03410 03412 03490 03490 03502 03514 03526 03538 03550 03558 03558 03510 03512 03594 03606 03618 03630 03638 03638 03650 03662 03614 03686 15 43 15 43 49 11 11 15 15 03195 0 03346 000-9 0 03242 03290 08944 03211 000-1 0 09899 3 OOOOJ 000-9 00001 000-1 0-140 000-1 00000 00001 43 14 41 31 49 03446 15139 03366 15138 03302 000-8 000-0 01200 15140 00000 16 49 09225 09142 00-16 00000 14 41 15139 03510 04560 09879 03570 10392 03510 000M6 01200 000-6 09829 01400 01200 00000 15139 03490 15138 03446 000-0 01200 15140 00000 49 04560 09879 03538 10392 09U5 09142 000-6 09829 01400 01200 OOKl1 00000 15 16 11 45 16 31 49 03195 03605 03605 03638 0360N 0360N 03130 00000 J5139 000-2 00000 OOOLl 05922 00000 14 41 26 26 11 0360N 03582 03116 03121 03121 000-0 01200 03605 03116 000-1 11 24 46 46 49 14 41 31 49 11 24 46 46 16 " 1620 MONITOR II 01980 01990 Olooo 02010 02020 02030 02040 02050 02060 02070 02080 02090 02100 02110 02120 02130 02140 02150 02160 02170 02180 02190 02200 02210 02220 02230 02240 02250 02260 02270 02280 02290 02300 02310 02320 02330 02HO 02350 02360 02370 02380 02390 02400 02"10 02420 OZ430 OZHO OZ·UO OZ460 02410 OZ480 02490 02500 02510 OZ520 02530 VERS ION 2 .. , FORTRAN 11-0 PAGE PHASE 1-8 03698 03710 SM TR .+18,1,10 B CSPVA+24 03712 >-3 03730 03730 037"2 03754 03766 03774 0371't 03786 03198 03810 03822 OORG DECODE TFM AM BNR 8 ODRG CM BH CM BHE CM 8E TFM 8 CORG CM 8HE AM 8 ODRG eM 8HE SM 8 CORG OEeODA AM BNR 8 CORG eM BE CM SNE CKCTAR 80 BTM 8 ODRG NONARI SLXM CF TEMP DS Cf TEMPS OS C 8E BO 8TM Ll C BE SCXM TR ERROl BTM XRA2 DS eM L2 ELI MINATE BLANKS .+35,CHI-2 .+23,2,10 -+20 -+80 >-3 OECOOE+35,100,610 DECODE+12 OECODE+}5, 33 ,610 -+56 PAReNT,O,1O DECOOA PAReNT,o,9 NONARI >-3 OECODE+35,21t,610 038310 038106 03858 03866 03866 03878 03890 03902 03910 03910 03922 *+32 PARCNT,I,IO DECOOE+12 >-3 DEeOOE+35,It,610 DEeODE+12 PAReNT ,10 10 DECOOE+12 >-3 DEeODE+35,2,10 >+20,DEeODE+35,11 CKCTAR .-3 DECODE+35 ,23,610 DOD DECODE+35,z..,610 DECOOA ASCAN,INDIY CKCNTU,O,IO ASCAN >-3 >+12, TBST-T8ENDC2. CHI+I 5 ,* CHI+3 ,> CHI+4,ENDCT+4 END "Z4,INOIY CKCNTU,O,IO TBENOI2',CHI+4 L2 039310 39lt6 o 03954 03951t 03966 03978 03986 03986 03998 04010 04022 04034 04046 Olt058 04066 010066 0407B 04089 Olt090 04101 04102 04114 04126 OU38 04150 04162 04174 04186 04198 00314 04ZI0 , Ll,-llCZ' CHI-I,CHI.5 ERROR,071,9 ,314 XRA2, TBCM-TBEND 12 31 "9 03116 00000 0359" 000-1 00000 00000 16 "5 49 03765 03765 03774 03846 J5137 000-2 00000 00000 14 46 14 47 14 0376N 03742 0376N 03866 03288 11 106 039510 16 "9 010066 OOOMO 01100 00013 01200 000-0 01200 00-00 00000 110 47 11 49 0316N 03910 03288 031lt2 000K4 01200 000-1 00000 lit It7 12 49 0376N 03742 03288 03H2 000-4 01200 000-1 00000 11 03165 03986 040310 000-2 0376N 00000 1" 46 lit 47 43 17 It9 0376N 10416 0376N 03954 10440 Olt740 101t40 000K3 01200 000K4 01200 0242't 000-0 00000 66 33 Olt078 15140 5 151lt2 5 151lt3 09466 04150 047"0 OltlZ5 04ZI0 04150 15138 09230 0 00314 00K31 00000 45 49 33 24 U 43 17 24 46 64 31 17 14 03288 00000 09839 OIZOO 024Z4 000-0 15H3 01200 OO-IJ 15144 00-71 -0077 287 1620 MONITOR II 02540 02550 02560 02570 02580 OZ590 02600 '02610 02620 02630 TBENO OZ640 02650 02660 02670 02680 02690 02700 02710 OZ720 02730 0271t0 02750 02760 02770 TBeM OZ780 BNH TDM SNF TOM SO BTM BXM TR B7 DC . OSA -+12 STSN.O" FORTRAN 11-0 PHASE 1-8 PAGE 04222 04234 SET SINGLE STATEMENT SIIITCH OFF 0+48, TRINO TRIND,O "Z4,NOIND ERROR2,572,9, >+12,-6121 CHI-I,CHI+5 TBENDI2 ... 6 04Z46 04258 04270 MISSING STATEME"T NUM8ER AFTER TRANSFER I, ' HONARA 6,466455, • DC M66455 OSA NONARA 6.444546. , DC M445.6 DSA NONAIIA DEFINE DC 6.43565"' .. M35651t OSA DIM COMMON 6,626356., DC 026356 OSA NONARA 6,514164, , DC N741M 62 31 49 05531 04294 03137 OH94 09386 04306 15138 OU2N I 01100 00000 03137 00000 03195 OON72 00-00 15144 J02Z4 6 04341 5 01t)41 04347 J02Z4 6 04352 04358 04363 EQUIVALENCE 02800 17 04294 04306 04318 04325 OloZ94 04352 6,455864, , DC M55864 OSA CDMMON 6,594563,. DC N94563 OSA NONARA It) 04Z82 04330 04336 FUNCTION SUBROUTINE 6.41t4954, , DC M44951t OSA RETURN 47 15 44 15 04330 6,626442,. DC 026442 OSA NDNARA 02790 02810 YERSION 2 04363 04369 J0224 6 5 x JOZZ4 6 OU74 04374 04380 Olt385 DI MENSION 04385 04391 RETURN OU96 0440Z Olt396 OH07 04401 04413 STOP 04418 04418 OH24 PAUSE 28S J0272 6 5 X J0248 6 5 X J0368 6 5 x J02Z4 6 5 X JOZZ4 6 6 1620 MONITOR II VERS ION 2 FORTRAN 11-0 PAGE PHASE 1-8 04,,29 02820 OSA OKlO 02830 DC 6.,46,.955 .. 02840 DSA 5 X J0488 6 04429 044J5 FIND !!610955 X 010440 OKlO J0488 6 0410100 02850 02860 02870 02880 02890 02900 02910 02920 02930 02940 02950 02960 02970 02980 6,464563, ., DC M64563 OSA OKlO 6,591t5"'3,. DC N94543 OSA lOUT FETCH 0H-46 RECORD 04451 04457 6,576455, ., DC N761055 OSA lOUT PUNCH 6,636851, ., DC 036851 OSA lOUT TYPE 6.515949., DC N75949 OSA lOUT PRINT 04495 04501 READ 04506 04512 04.. 73 J0200 6 04495 J0200 6 0 .. 506 5 X J0200 6 X 04517 CAU· 03020 03030 DC GOTO 03040 1175663 OSA IF 6.415663 •• J0200 6 04484 0 .. 490 DC 6,434153 .. 1134153 DSA GOTO 03010 04 .. 73 04479 04 .. 84 CONTINUE 03000 X J0200 6 04462 04468 ACCEPT DC 6,435655" M35655 OSA CALL 02990 JOlt88 6 04462 6,411tl43 .. DC MlIo343 OSA lOUT 6,594541., DC N94541 OSA NONARA 5 X 041051 J0224 6 04517 04523 04528 J03 .... 6 04528 0 .. 534 OU39 0 .. 539 045.. 5 J0320 6 X 04550 28iJ 1620 IIONITOR 11 VERSION 2 FORTRAN 11-0 PHASE I-B IFI DC 6,494624" 1194624 03060 OS 2 03010 COLNAM TFM •• 42,SYM-Z6,. COLLECT NAIIES TO DETERMINE TYPE OF STIINT 03080 TFII *+35,CHI 03090 All *+18,2,10 03100 TF .CHI,l 03110 All .-1,2,10 03120 BNR •• 20,*-13,11 03130 .+32 B 03140 DDRG .-3 03150 511 COLNAM-l, 1, 10 03160 BNZ COLNAM+24 03110 TFM "3D, SYII-25 03180 All *+18,2.10 03190 CF 03100 OUTSCE 05 5 03210 .-6,COLNA....42 C 03220 BNH .-36 03230 TF SYII,COLNAM+42,11 03240 B8 03250 DDRG .-9 03260 CHECK FOR CONTINUATION CARDS 03210 OS 2 03280 CKCNTU TFII 10RT,"23 03290 IOGT,C50ATA-4,1 B onoo CKCNI,CHI5+10 BD 03)10 TFII CCNO,O,lO 03320 CII CHI5,43,10 03)30 •• 24BE 03340 TDM CHI5+9, 0,11 88' 033'0 DDRG .-10 03360 03370 CKCNI CM CCNO,D4,10, TEST FOR MORE THAN 4 CONTINUATION CARDS 03380 BNE 03390 CM CHI5,43010 03400 BE 03410 TFM CCNO,0.10 03420 TFII SPG5+ 11 ,273,9 5PERR+12 03430 8 DORG .-3 OH40 03450 TFM -+41,CHI5+144 OH60 CKCN2+68,FII511 8D 03470 SM -.23.2,10 031t80 TF CKENO *+56,CKENO 03490 CKCN2 80 03500 .+44,CKENo-I 80 03510 CM CKCN2-1,CHI5+12 BH CKCN2-2 .. 03520 03530 8 CKCNTU 03540 DORG ·-3 03550 AM CKCN2-1 .2,10 03560 TOM CKCN2-1 ,,6 0]510 DC 1,' ,03050 TBST .. .... -+6' -.4,. PAGE 0 .. 550 04556 04558 04560 04512 0 .. 584 04596 04608 04620 04632 04640 04640 04652 04664 04616 04688 04699 04100 04112 04124 04136 04138 04139 04140 04152 04164 04716 04788 04800 04812 04824 04825 04826 04838 04850 04862 04874 04886 04898 04906 04906 04918 04930 04942 04954 04966 04978 04990 05002 05010 05010 05022 05033 J0296 6 16 16 11 26 11 45 49 12 41 16 11 33 24 41 26 42 16 49 43 16 14 46 15 42 14 41 14 46 16 16 49 16 43 12 26 43 43 lit 41> 49 11 15 2 04602 0 .. 601 0 .. 602 00000 04601 04640 04664 04559 04584 04694 04694 00000 5 0"694 04616 '09819 00000 -9853 J5139 000-2 J5139 000-2 0460P 00000 000-1 01200 -9854 000-2 00000 04602 01100 0460K 00000 2 00565 00566 04826 05052 15839 04824 15848 00000 -H63 -9191 15849 000-0 000M3 01200 000000000 05052 04906 15839 04906 05052 09225 091 .. 2 000-4 01200 000M3 01200 000-0 OOK13 00000 04953 05022 04953' 03276 05010 05010 04953 04930 04140 J'983 09902 000-2 00000 03276 03215 J5851 01100 00000 04953 0495L 1 000-2 00000 1620 MONITOR \I VERSION 2 FORTRAN 11-0 PHASE I-B PAGE 03580 03590 03600 CCNO BNCI *+36 RC TV DC 2,O~·-5 -0 WATV CHI5 03610 03620 CM CH15.43tlO, 03630 8E CKCNTU 03640 AM CCNO.1.IO 03650 80 CKCN4.FMSW 03660 TFM .+35,CHI5+10 03670 AM ·+23,2.10 03680 CKCN] BNR ·+44, 03690 TFM CSPVA+35.37.610 03700 TR CSPVA+35.AVOI0.6 03710 8 CKCNTU 03720 OORG ·-3 03730 CM CKCN3+11.0.610 • CHECK FOR BLANKS ANO MOVE NON BLANK 03740 BE CKCN3-12 ••• TO SCAN AReA 03150 TF C SPVA+35.CKCN3+ 11.611 03760 AM CSPVA+35.2.10 03770 CKCN3-12 8 03780 DORG ·-3 03790 CKCN4 TF .+30,CSPVA+35 03800 SM *+18.1,10 03810 TR .CHI5+ll AM 03820 CSPVA+35.13Z.9 03830 B CKCNTU 03840 THE FOLLOWING IS USED TO COLleCT STATEMENT NUMBERS 03850 CSTNO TF CSORN-l,*-l. , SET UP RETURN AOORESS e+32,CHI 03860 8D 03870 TR SHIFT OFF LEADING ZEROS CHI-l.CHI+l" 03880 .-24 B 03890 OORG ·-3 03900 TFM SYM-14.0000.8 03910 TFM CSTNOI+6. SYM-14 03920 CM CHI.69.10 03930 BNH CSTNOI+I04 039~0 AM *.18,1.10 03950 CSTNOI TO .CHI 03960 TR CHI-l.CHI+l 03970 8NR ."20.CHI+2 03980 B *+32 03990 OORG ·-3 04000 CM CHI.69.10 04010 CSTNDI-12 BH 04020 CM CSTN01 +6.SYM-I0 04030 BNH *+2404040 ITM ERROR2.576.9. STATEMENT NO GREATER THAN 4 DIGITS 04050 TF SYM.C STNDI+6.11 04060 SYM-3 SF ,.-4 04010 RTSW DS I ,.-J 04080 ERSW OS I ,1, .-2 04090 STSN DC 1 J ,00,. 04100 STC DC 2 -0 ..... 05034 05046 05052 47 34 05070 00000 2 00100 00102 05058 05070 05082 05094 05106 05118 05130 05142 05154 05166 05178 05186 05186 05198 05210 05222 05234 05242 05242 05254 05266 05278 05290 39 14 46 15839 15839 04140 05052 05242 05153 05153 05186 0360N 0360N 04HO 00100 000143 01200 000-1 09902 J5849 000-2 00000 OOOU 05922 00000 49 0515L 05130 0360N 03605 05130 000-0 01200 0515L 000-2 00000 26 12 31 11 49 05272 05272 00000 03605 OH40 03605 000-1 15850 00H2 00000 26 43 05593 05H6 15138 05314 05301 15139 15140 00000 09865 05412 15139 0.5510 05412 00000 15138 0-000 -9865 00009 01100 000-1 15139 15140 15141 00000 05302 05314 05326 05338 05346 05346 05358 05370 05382 0539~ 05~06 05418 05HO 0'1042 05450 0'450 05462 051074 054B6 051098 05510 05522 05529 05530 0'531 11 43 16 II 45 16 31 49 JIt 46 26 11 11 49 16 16 14 47 II 25 31 .5 O'~'O 49 05H" 14 46 14 47 15139 05394 051012 0'510 09386 09879 09876 I I I 17 26 32 05533 00009 01100 -9869 01100 00N76 05"IK 00000 2 2!J 1 1620 MONITOR II 0ltll0 01tl20 04130 04140 04150 010160 04170 04180 04190 010200 04210 010220 04230 04240 04250 OU60 04210 04280 04290 04300 04310 04320 04330 04340 04350 04160 04HO 04380 04390 041000 04410 04420 04430 04440 04450 04460 041010 CSDRN CS SALT SMLNG SCHI AVOID 041080 04490 04500 04510 04520 04530 04540 010550 04560 SC2 04570 NUMBER 04580 0~590 04600 04610 04620 04630 04640 BD TDM TOM TDM B 80 TFM TOM CM BE CM BH CM BNH CM BH TDM TFM TFM TF" AM AM TF CF OS AM AM CM BNH CM BL SF DS B OORG SF DC L7 DC TF TOM BD SM TR B DORG 8TM TOM TF TFM CM BNE TR VERSION 2 FORTRAN n-D PAGE PHASE 1-8 2,37,*-3 05534 05546 0555B 05'70 05582 055910 05606 05618 05630 05642 05654 05666 05618 05690 05702 05714 05126 05138 05750 05762 05714 05786 05198 05810 05821 05B22 05834 05846 05858 05810 05112 05B94 05905 05906 D591" 05914 05922 2,',*-1 05924 SYM,SALT .. 6,ll. VARSW.O SMTlU.EQUSII .. 05926 0'938 05950 05962 05914 05986 05994 05994 06006 06018 06030 06042 06054 06066 06018 060B6 CSTNO-l.DIMSW.6. FXORFl.2 EXIT IF IN DIMENSION STAJEMENT YARSW.l,. EXIT TO LOOK UP STATEMENT NUMBER STNOSW.l SMfLU 0+24.EQUSW SCHI.CHI .. FXORFL.O .. SCHI.3.610. NUMBER SCHI.69.610. NUMBER SCHI.48.610. CS SCHI.55.610 CS FXORFL.2 •• S"LNG.O.IO. SALT+6.SYM-12 SALT+18.SYM-13 SALT+6.2.10 SALT+18.2.10 INITIALIZE IF Nor IN EQUIVALENCE INITIALIZE FIX OR FLOAT SIIITCH TEST FOR FIX VAR SET FXORFL TO FIX WAR INITIALIZE SYMBOL LENGTH COUIH .. .SCHt ,II, SMLNG.2.10 SCHI.2.10 SCHI.40.610 *.56 SMLNG.12.10 SALT-24 SYM-ll .. SC2 ·-3 SYM-11 SCHI, 1. 10. CHI-I.SCHI.II. SMTlU ·-3 ERRDR. 78. 9 YARSW.l,. SYM.ZERSYM+I NUMBl+6.SYM-29 CHI.70, 10, *+32 CHI-I.CHI+1 .-36 B OORG ·-3 TEST TO SEE IF SYMBDL IS TO BE SHIFTED OFF NAME GREATER THAN 6 CHARACTERS SET VARIA8LE SII. TO INDICATE LITERAL TEST FOR LEADING ZEROS 2 ~12 0530J 06309 01563 09903 06864 0'618 05905 06309 0590N 06006 0590N 06006 O'90N 05138 0590N 05138 06309 05B21 05804 05816 058010 05816 00000 00000 0 05821 05905 0590N 0'914 05821 05174 09868 0 059910 09904 00002 00001 00001 00000 09908 J5139 00000 000-3 01200 00009 01100 000148 OllOO 000N5 01100 00002 000-0 -9861 -9866 000-2 000-2 0590N 00000 32 09868 2 00000 26 15 09819 01563 0686" 05905 15138 06864 058014 00000 09908 000-1 0590N 00000 09230 01563 09819 06164 15139 06086 15138 06042 00-78 00001 06844 -9850 OOOPO 01200 15140 00000 43 IS 15 15 49 103 16 15 14 46 14 46 14 41 14 46 15 16 16 16 11 11 26 33 11 11 14 U lit 41 32 49 000-2 000-2 000140 01100 000J2 01300 00000 00000 2 43 12 31 49 17 IS 26 16 14 107 31 49 10 1620 MON ITOR 0.650 0.660 0.670 04680 04690 OHOO 0.710 OH20 0.730 OH40 ·04150 04760 0.770 OH80 0.790 04800 04810 04820 0.830 04840 04850 NUMB CM BE CM BNH CM BNL NUMB1 TO TR AM NUMB5 AM B DORG FXNUMB TOM SM C BNL BTM TF TF SF MODE DC -0 04860 FXORFL DC -0 04870 B 04880 DORG 04890 flNUMB TFM 04900 CM 04910 liE 04920 TFM 04930 NUM83 SM 04940 TR 04950 CM 04960 VARBR BE 0.970 aNH 0.980 TFM 04990 CM 05000 8NL 05010 NUMB2 TO 05020 AM 05030 I 05040 DORG 05050 CMPAR CII 05060 aNE 05070 TFN 05080 TOM 05090 CII 05100 IL 05110 aNE 05120 TDN 05130 TR 051.0 CM IH 05150 05160 EXCESS BTM 05170 TO 05180 TR I[ VERSION 2 F OUUN 11-0 PHASE l-B PAGE CHI,l, 10 FLNUMB CHI.69.10 FXNUMB NUMBI+6.SYM+l .+2~ .CHI •• COLLECT MANTISSA CHI-1.CHI+I NUMBl+6.1.10 SYM-30.1.10 NUMB ·-3 fXORFL.2,t SET FIX OR FLOAT SW TO FIX CONST SYM-30.1.10 UNG. SYM-30 •• _+24 TEST IF FIX NUN8ER EXCEEDS K ERROR,l17.9. FIXEO POINT NUMIIER GREATER THAN II SYM-30.TENZ SYM+I.NUMBI+6.11. SYM+I .. 2 RIGHT JUSTIFY ValUE 2,0,--2 06086 06098 06UO 06122 06134 06146 06158 06170 06182 06194 06206 06214 06214 06226 06238 06250 06262 06274 06286 06298 06307 2.0,- 06309 SMTlU .-3 VARBR+6.NUNB3 SYM-30.1.10 06310 06318 06318 06330 063.2 06354 06366 06378 06390 06402 06414 06426 0643B 06450 06462 06474 06486 06494 06494 On06 06518 06530 065.2 06". 06566 06578 06590 06602 0661. 06626 06638 06650 •• 24 YARBR+6.NUMBZ+12 SYM-30.1.10 CHI-I.CHI+I CHI.70.10 • ,t . BRANCH BACK TO SHIFT OFF LUDING lEROS CMPAR YAR8R+6.NUNB2+12 NUN8l+6.SYM+I *+24 NUNBl+6.CHI.6. NUM81+6.1.ID NUMB3+12 .-3 CHI •• 5.10. PLUS+12 PLUS+U.O.IO PLUS+I.I CHI+2.20.10 COLLECT NUIIBER TesT FOR E TYPE *+36 •• 36 PLUS+l,2 CHI-I.CHI+1 CHI+2,69,10 -+24 ERROR.178,9. PLUS+11.CHH2 CHI-l.CHI+3 INVALIO EXPONENT 14 46 14 .7 14 .6 25 31 11 11 49 15 12 24 .6 17 26 26 32 15139 06318 15139 06214 06164 06170 00000 15138 0616. 098.9 06086 000-3 01200 00009 01100 -9880 01300 15139 15140 000-1 000-1 00000 06309 09849 02252 06274 09230 09849 098110 -9880 2 00002 000-1 098.9 01300 OOJ77 09891 0616M 00000 11 2 49 06864 00000 16 I. .6 16 12 31 14 46 .7 16 14 46 25 06408 09B49 06366 06408 09849 15138 15139 00000 06494 06408 0616" 06474 0616M 061610 06378 -6366 000-1 01200 15139 06734 06733 06723 151.1 06590 06602 06723 15138 15141 06638 09230 06733 '15138 000M5 01200 000-0 00001 OOOKO 01300 01200 00002 15140 00009 01100 00J78 151101 151"2 11 49 I. .7 16 15 14 .7 47 15 31 14 .6 17 25 31 -61074 000-1 15140 OOOPO 01200 01100 -6474 -9880 OUOO 15139 000-1 00000 293 1620 MONITOR 1I 05190 05200 05210 05220 05230 05240 PLUS 05250 05260 05270 05280 05290 05300 05310 05320 053)0 lERSYM YERSION 2 FORT UN 11-0 PHASE I-B CM BNH S TO CHI.69.10 PLUS PLUS+l0.PLUS+U PLUS+l!,CHI TR CHI-I,CHI+I AM SYN-30 .. 1 TF SYM.S'M-30 SF SYN-29 TF SYM-2.SYM-30.7 BV EXCESS BO SNTlU,S'M-29 . TFM SYM.99.1011 B SMTlU DORG .-3 JO,O DC -00000000000000000000000000000 05340 DC 3,010,ZERSYN-28 -10 05350 T8LFUL BTM ERROR2.74.9, 05360 I MONCAl .. , ABORT JOB CAN NOT GO ON 05370 DORG .-3 05380 SYMBOL TABLE LOOK UP 05390 05.00 SMTlU BLX .+12,P2PTRIlI 05410 XRAI OS ,309 05420 CF OMVAR 05430 17 SNLOOP+12 05440 SMLOOP BXM .+12.-10111 05450 OUTSW OS .SIILOOP 05"60 INR JOE.4111 05.70 aNG FULl,4111 .. GROUP "ARK AT FCTENO 05.80 TO "23.SYN 05490 8D SMLOOP.SYTBST 05500 BLX SNLOOP.LSTADIlI 05510 FUll INF FUTEST •• I l I .. I'UG AT SEPARATION ,POINT 05520 BLX SIIlODP. JUMP fll,. JUMP AROUND 05530 FUTE ST C XRAI,lSTAD 05540 IH FUL2 05550 ISX "12.*+35111 05560 SM *.23."..6,10 05570 INR TBlFUL ••-. 05580 8NF AOVAR.JOE 05590 ISX AOYAR.JUMPlII .. UPOATE JUMP AROUND POINT 05600 FUL2 IU "12,"35111 05610 SN •• 23,6,10 05620 INF .lOVAl,e-e,. IS UPPER HALF FULL 05630 CF JOE 05640 SAYEGM OS 5 •• 05650 10 .+20.0IMSW 05660 81 AOVAR 05670 SF 4111 05680 87 FULl+l2 05690 JOE BO llTERL,VARSW,O, BRANCH fF SYM80L IS A CONSTANT 05700 8NF e+20, 3(1) •• FLAG AT 3 POS. IMPLIES CONSTANT 05710 B SMLOOP 05720 DORG *-3 ....... PAGE 06662 06614 06686 06698 06710 06722 0673. 06746 06758 06770 06182 0619. 06806 06814 06800 14 47 22 25 31 11 26 32 26 46 .3 16 49 15139 06722 06732 06733 15138 098"9 09879 09850 09877 06626 06864 09879 06864 00009 01100 06733 15119 151100 -0000 09849 00000 -9849 01400 09850 OOORR 00000 30 06815 068" 06856 06864 ......• 06864 00309 06816 06888 06896 06896 06908 06920 06932 069" 06956 06968 06980 06992 01004 070i6 07028 07040 07052 07064 07076 07088 07100 07112 07123 0712. 07136 071." 07156 07164 01176 07188 07196 29'. 17 49 65 33 49 62 45 55 25 .3 65 •• 65 24 .6 61 12 45 4. 67 67 12 " 33 43 .9 32 .9 N3 4. 49 09386 00796 06876 0 08132 06908 06908 0 07164 06968 06955 06896 06896 06992 06896 00309 01076 07028 07051 068.4 01132 08132 07088 07111 08132 07164 5 07144 08132 000-4 06980 07688 07196 06896 00-74 00000 023J3 00000 OOOJ000-4 000-. 09879 02500 023-8 000-. 024K9 02308 01100 070NI 000N6 00000 0716. OZ4K9 07lJI 000-6 00000 00000 09904 00000 07563 000-3 00000 12 1620 MONITOR II 05130 05740 05750 05760 05770 05780 05790 05800 05810 05820 05830 05840 05850 05860 05870 05880 05890 05900 05910 05920 05930 05940 05950 05960 05970 05980 05990 06000 06010 06020 06030 06040 06050 06060 06070 06080 06090 06100 06110 06120 06130 06140 06150 06160 06110 06180 06190 06200 06210 06220 062]0 062t,0 06250 06260 06210 06280 VERS ION 2 fORTRAN 11-0 PHASE I-B PAGE -4111,SYM C SMLOOP BV BHE SMLOOP TOM INSW,l" SET DIGIT IN INSW If VARIABLE FOUND TEST IF SYMBOL WAS LIBRARY FUNCTION XRAI,FCTENO .. C BH FCTEST, " BO CSORN-l,OIMSW,6, RETURN IF IN DIMENSION STATEMENT BO .+32, EQUSW CM CHI ,24, 10 B *+32 OORe .-3 BNF CSORN-I,EQUSW,6 CM SCHJ.Z4,610 BNR .+20,6(1) .. TEST FOR SUBPROGRAM FCTST B OORG '-3 BE 0IMERR+12 BO *+20,6( 11 •• TEST FOR DIM VARIABLE LUXIT 8 OORG .-t, BD LUX IT ,IOSW .. DIM VAR USED WID DIM IN 1/0 STATEMENT BD DELAY,SSCSII lUXIT ,CAllSW, • DIM VAR USED WID OIM IN CALL 80 BO COME.COMSW, • SAME FOR COMMON BO lUXIT-12,EQUSW DIMERR BTM ERROR,13,9, DIMENSIONED VAR USED WITH OUT SUBSCRIPT BD COMER2,COMSII .+20, b( 11,. BO TEST FOR DIM VARIABLE OIMERR 8 OORG '-3 SET DIMENSION VARlA8LE SWITCH SF DMVAR" t EXIT FROM TA8lE LOOK UP EXIT IF OUTSW NOT SET lUXIT BNF CSORN-l,DUTSW,6, Cf OUTSW PUT',XRAI-l BT BNF *+41t,DMVAR CF DMVAR VARSW OS t' OUTSCE,CSORN-I TF B OUTSC DORG 0-3 ,FNTSW, , TEST IF SYM80L WAS A FUNCTiON NAME BNf .+32 ARITH STATEMENT CALL 8TM PUT ,015 •• 8, CSORN-I, ,6 B DORG 0-3 80 *+20, FNTSW,. DIGIT AND NO FLAG IMPLIES SUBPROGRAM CSORN-l .. 6 8 DORG .-] ST ATl!MENT FUNCTI ON PREV DEFINED BD AERRI,OMM" FUNCTiON OPERATOR CALL 8TM PUT,0153,8, 8 CSORN-I .. 6 DORG 0-3 DELAY SF SSCSW 81 LUXIT SEARCH SYM80l TABLE fOR CONSTANTS CONSTANTS HAVE FLAG llTERl BNF SMlOOP,3111 .. ...... ...... ...... 07196 07208 07220 07232 07244 07256 07268 07280 07292 07304 07312 07312 07324 07336 07348 07356 07356 07368 07380 073B7 07388 01400 07<012 ~07424 07436 07 VARIABLE WAS NOT DEFINED THEN IT MUST BE SIMPLE VARIABLE 11070 COMA AM NXLOC,5,lO lIoeo TF NXLOC,CoMADD,6, MOVE 08J TI ME COHMON ADDRESS TO SYM AREA lI090 80 "32,FXORFL 11100 AOJ COMMON ADDRESS FOR FLOAT VARlA8LE S COMADD,FP2" 11110 B -+20 11120 OORG 0-3 AOJ COMMON ADDRESS FOR FIX VARIABLE 11130 S CDMAOD, KLNG" 11140 COMA8 8NR •• 20,CHl+2 lI150 B 8EGINA IU60 DORG 0-3 CHI,23,10, TEST FOR MORE LIST ELEMENTS 11170 CM 11180 BNE COMER 11190 TR CHI-l,CHI+l 11200 8 COMMEN+1Z DORG 0-3 11210 11220 CONE HERE IF SIMPLE VARlA8lE WAS IN TABLE -.24, be 1) 11230 COMIN BNF BTM ERROR,313,9, VARIABLE WAS PREVIOUSLY PLACED IN COMMON 11240 lI250 8NF --12.5(U •• WAS IT PREVIOUSLY EQUIVALENCED 11260 SF 6111 NXLOC, SMlNG 11270 COMINA A 4( 1» ,NXlOC, t MOVE NEW SYMBOL ADDRESS INTO TABLE 11280 TF 11290 rF NXLOC,SYM,6 10750 10760 10710 10780 10790 10800 10810 10820 10830 01142 10840 10850 10860 10870 108BO 10890 DIM3 10900 ENS ION 3U6 11720 11732 1174" 11756 11768 11776 11776 11788 11800 11808 11808 11820 11832 11844 11852 11852 1186" 11876 11888 11900 11912 11924 43 11 26 43 31 49 4" 17 44 32 21 26 26 24 1620 MONITOR II ll300 11310 11320 ll330 llHO 11350 11360 11370 11380 11390 IHOO 11410 11420 11430 11440 11450 11460 11470 11480 IH90 11500 11510 11520 COME COMC VERSION 2 FORTRAN II-D PHASE I-B PAGE COMA,. , BRANCH TO PLACE COMMON ADDRESS IN fABLE OORG- .-3 RETURN FROM SYM fA8LE LOOK UP WHEN VARIABLE WAS DIMENSIONED BNF "20.6 (11 8 COMIN+12,., VARIABLE PREVIOUSLY PLACED IN COMMON OORG .-3 BNF COMIN+12.5(11 •• TEST IF YAR WAS PREVIOUSLY EQUIVALENCED SF 6( 11 BD .+32,FXDRFL TF 8 COMM+11.FP2 COMM SET UP fO MULTI PL Y NUM8ER OORG .-) TF COMM *+23.KLNG MM 99999 ( 1 ) ,.-• ., SF S 8N TF A 95 COMAOO.99 .. COMER3 99999 (11 .COMAOO 99999(II.COMM+II 8 GEN. NO. OF LOCATIONS FOR ARRAY COMA8." THIS ADDRESS IS fHE LOW ORDER DIGIT OF FIRST El EMENT • COMMON EXCEEDS CORE SIZE DaRG --4". COMER3 8TH MON DAC 11530 11540 FOMAT 11550 11560 11570 11580 11590 11600 11610 11620 FOMAH 11630 11640 11650 11660 11670 11680 11690 !l100 11110 11120 11130 11140 11150 FORM99 11160 11110 !l180 !l190 11800 11810 11820 !l830 11840 NON ERROR,474.9. 3.MON 11936 11944 11944 11956 11964 119610 11976 11988 12000 12012 12020 12020 12032 12044 12056 12068 12080 12092 12104 12111 12112 12125 11720 00000 44 49 11964 11864 000-6 00000 44 32 26 49 11864 000-6 12020 12043 12032 000-5 00000 06309 02298 00000 26 13 32 22 47 26 21 49 12043 999R9 00095 02262 12112 999R9 999R9 11788 11 09230 00M74 3 X 2 43 49 12162 000-8 12194 03219 00001 00000 43 16 49 12194 09225 09142 000-8 OOK71 00000 16 11 45 03605 0.1605 12206 12334 02905 02905 12310 0360N 03605 12254 J5137 000-2 0360N 02424 J528N 000-2 01200 000-0 000-2 00000 09902 04740 0360N 0360N 15138 15139 12414 15138 12310 00001 000-0 000L7 05922 15150 000-0 01200 15HO 00000 15139 12450 000K4 01200 4~ 25 02252 -aoou 00000 00099 01300 02262 12043 00000 UNIT RECORD FORMAT OUfPUT 80 TOM •• 32,INSW 1(11,1 FOMATI ·-3 FOMATI.8(lI SPG5+11.277,9 B SPERR+12., • OORG ·-3 TFM CSPYA+35 .CHI-2 AM CSPYA+35.2.10 MR ·-12.CSPYA+35,II, 10 FORM99,INDIV AM CKRM-I,CHI+IU,l11 AM CKRM-l,2,10 8E e+44 TFM CSPVA+35.0,610 AM CSPVA+35,2,10 12130 12142 12154 12162 12162 12114 12186 12194 12194 12206 12218 12230 12242 12254 12266 12218 12290 12302 12310 12310 12322 12334 12346 12358 12370 12382 12394 12406 12414 12414 12426 8 OORG BB TFM 8 ERROR 21 SCAN AHEAD FOR RECORD MARK .-48 0-3 FMSW,I CKCNTU,O, 10 CSPVA+35,37,610 CSPVA+35,AVOIO,6 CHI-l,CHI+11 CHI,0.10 ME e+32 TR CHI-l,CHI+1 8 --36 OORG 0-3 CM CHI.24,10 8E -+24 OORG TOM eTM TFM TR TR eM 15 43 11 11 46 16 !l 49 15 11 16 31 31 14 41 31 49 3117 1620 MONITOR II 11850 11860 !lUO 11880 11890 11900 11910 11920 11930 11940 11950 !l960 11910 11980 11990 12000 12010 12020 12030 12040 12050 12060 12010 12080 1209.0 12100 12110 12120 12130 12140 12150 12160 12110 12180 12190 12200 12210 12220 12230 12240 12250 12260 12210 12280 12290 12300 12310 12320 12330 12340 12350 12360 12370 12380 12390 12400 8T" 8T" 8T" AM TFM FORMI TR CM 8E C" 8M 8L ITM TO" I OORG SLASH CM IE CM IE CM BE CM 8E FORMER ITM Tit CM 8E CM IH e" PTYPE FORM2 FTYPE HYPE FORM3 8I1E Tit C" INE VEUION 2 FORTRAN 11-0 PHASE 1-8 PAGE ERROR.315,9, LEFT PAREH Does NOT FOLLOW FORMAT PUT. 128.8.FORMAT PUT. 124,8.lEFT PAREN PARCNT,I.10 WIOTH,81,8, INITIALIZE WIDTH CHECK CHI-1.CHI+l CHI,O,10 0-24 CHI,41.10, FORM2 SUSH PUT, 144,8,A TYPE UTYPE,I FORM3 0-3 CHI.21,10. TEST FOR SLASH FORMl CHI,24,10 FDRM4 CHI,20,10. TEST FOR SCALE FACTOR FDRMER+12 I:HI,10,10 0+24... INVALID FORMAT SPECIFICATION ERROR,31,,9, CHI-l,CHI+l CHI.O,10 0-24 CHI,69,10, SHIFT OF SCALE FACTOR e-48 CHI,51.10. TEST FOR P FOR"ER CHI-1.CHI+l I:HI,O.10 FlYPE 12438 12450 12462 12474 12486 12498 12510 12522 12534 12546 12558 12510 12582 12594 12602 12602 12614 12626 12638 12650 12662 12674 12686 12698 12110 12122 12134 12746 12158 12710 12182 12194 12806 12818 12830 12838 12838 12850 12862 12814 12886 12898 12910 12918 12918 12930 12942 12954 12962 12962 12914 12986 12998 13010 13022 13034 I DORG CM8H e-36 .-3 CHI.69,10 FDRM8 e" CHI.49,10, TEST FOR I TYPE 8ME 0+44 8TM PUT, 149.8,1 TYPE TO" UTYPE,I 8 FORM3 DORG 0-3 e" CHI,46.10. TEST FOR F TYPE 8HE 0+32 8TM PUT. 146,8.F TYPE 8 FORM3-12 OORG 0-3 C" CHI,45,10. TEST FOR E TYPE 8ME FORMER aTH PUT, 1~5.8,E TYPE TOM IATYPE,O TR CHI-l.CHI+1 CM CHI.0.l0 BE .-24 3U8 11 17 17 11 16 31 14 46 14 46 41 09230 089H 08944 03288 14205 15138 15139 12498 15139 12838 12602 08944 14141 13010 00L15 0-128 0-124 000-1 0-087 15140 000-0 01200 OOOMI 01100 01300 0-144 00001 00000 49 15139 13626 15139 13862 15139 12110 15139 12710 09230 15138 15139 12710 15139 12110 15139 12698 15138 15139 12918 12794 OOOKI 01200 000K4 01200 OOOKO 01200 OOOJO 01200 OOL 15 1S140 000-0 01200 00009 01100 OOONl 01200 15140 000-0 01200 00000 14 46 14 47 11 15 49 15139 13734 15139 12918 08944 14141 13010 00009 01100 000149 01200 0-149 00001 00000 14 41 11 49 15139 12962 08944 12998 000M6 01200 0-146 00000 14 41 15139 12698 01944 14141 15118 15139 13010 000M5 01200 0-145 00000 15140 000-0 01200 17 15 49 14 46 14 46 14 46 14 46 17 31 14 46 14 46 14 41 31 14 47 17 15 )l 14 46 26 1620 MONITOR II CM 12HO 12~20 8NH TOM 12"30 BTM 12"40 CM 12"50 12460 BE 121t70 BT 12480 BNF 12490 CF 12500 M 12510 SF 12520 TF 12530 BTM 12540 80 CM 12550 BNE 12560 12570 TR B 12580 12590 DDRG 12600 CM 12610 BNE 12620 8TM TR 12630 12640 CM 12650 8E 12660 CM 12670 BNH BTM 12680 12690 8T FORM5 CM 12100 12710 8NE 12720 TR 12730 8 12140 DDRG 12750 FORM51 CM 12160 eME 12710 BTM TR 12780 12190 SM 12800 BNZ 12810 CM 12820 BE BNR 12830 12840 8 12850 ODRG TR 12860 12810 8 12880 DORG 12890 FCMA eM 12900 BNE 12910 BTM 12920 12930 129'10 12950 12960 FORM7 VERSiON 2 FORTRAN 11-0 PHASE 1-8 PAGE CHI,69,10 FORMER 0IMSIII,1" CSTNO,·+lZ ... SYM,O,10 FORMER 13046 13058 nOlO n082 13094 13106 nll8 13130 13142 13154 13166 13118 13190 13202 13214 13226 13238 13250 13258 13258 13210 13282 13294 13306 13318 13330 133'12 1335'1 13366 13378 13390 13402 13..,14 13422 13422 13103'1 13'146 13458 13470 13'182 13'19'1 13506 13518 13530 13538 13538 13550 13558 13558 13570 13582 1359'1 13602 13602 1361'1 11626 S EJ SW ITCH TO RETURN FROM lSTNO COllECT NUM8ER OUTPUT W -+60.FREQSW, • TEST IF SPEC WAS MUll SPECIFICATION FREIlSW SYM,SETFRIl+ll 96 SYM,99 WIOCK,O,10 FoRM5,IATVPE .. TEST IF iN I OR A TYPE CHI,O,10 e+32 CHI-l,CHI+l .-36 .-) CHI,3ol0 FORMER PUT, 103,8, CHI-l,CHI+l CHl,OolO '-2'1 CHI,69,10 FORMER CSTNO,"12 PUT ,SYM CHI,O,10 e+32 CHI-l,CHI+l F.ORM5 '-3 CHI,4,10, FCM .. PUT, 10'l,8,RIGHT PAREN CHI-l,CHI+l PARCNT ,1, 10 FORMS CHI,O,10 PUT .. SYM" ·.32 FORMER,CHI+2 BEGIN '-3 CHI-1,CHI+l .-56 '-3 CHI,n,10 '+32 PUT, 123,8 ,COMMA FORMI II DORG --3 CM CHI,21,10 BNE FORM1+36 IITM PUT, 121,8.DIVIOE 15139 12698 09904 05302 09819 12698 08944 13190 1lt134 09879 00096 09819 14216 13378 15139 13258 15138 132l'o 00009 OllOO 00001 J3094 000-0 01200 09879 15139 12698 08944 15138 15U9 13294 15139 12698 05302 0894'1 15139 13422 15U8 13318 000-3 01200 0-103 15140 000-0 01200 00009 01100 J3366 09879 000-0 01200 151"0 00000 12 '17 1'1 '16 '15 '19 15139 13558 089'1'1 15138 03288 13378 15139 1353B 12698 02590 000-4 01200 0-10'1 151"0 000-1 01200 000-0 01200 15141 00000 31 '19 15138 13494 15140 00000 1'1 '17 15139 13602 08944 12498 000K3 01200 0-123 00000 15119 12534 0894'1 OOOKI 01200 0-121 14 47 1.5 11 14 46 21 410 33 23 32 26 11 43 l'o 41 31 '19 14 47 11 31 1'1 '16 l'o '11 11 21 1'1 '11 31 '19 14 '17 11 31 11 '19 1'1 '17 11 27 141310 00000 14l1t5 00000 00099 000-0 14141 000-0 01200 15140 00000 3 (HI 1620 MONITOR II 12970 12980 12990 13000 13010 13020 13030 13040 13050 13060 13070 13080. 13090 13100 13110 13120 13130 13140 13150 13160 13110 13180 13190 13200 13210 13220 13230 13240 13250 13260 13270 13280 13290 13300 13310 13320 13330 13340 13350 13360 13310 13380 13390 13400 13410 13420 13'130 13440 13'150 131t60 13410 13480 1)1t90 13500 13510 13520 FORM8 TFM Til CM BE CM 8E CM BNH TOM ITM CM BHE TR • DORG CM IE CM BNE BT FORM'I AM IITM 8 DORG FDRMX CM BNE ITM 8T BTM 8 DORG HDll CM BNE 8TM 8T ITM HOlll TR INR 8 DDRG TF CF 8TM SM INZ 8NR B DORG SETFRII SF FREIlSW OS IATVPE OS 8T TF eM 8NE CF VEIISION 2 FORTRAN t1-D PHASE I-B PAGE WIDTH,87,8, CHI-l,CHI+! CHI,O,10 '-2'1 CHI,24,10 FORI'!'1 CHI,69,10 FORM51 OIMSN,I CSTNO,"12 CHI,O,10 •• 12 CHI-l,CHI+l 13638 13650 13662 1367'1 13686 13698 13710 13722 1373'1 137'16 13758 13770 13782 _-)6 --3 CHI,51,10, TEST FOR SCALE FACTOR PTYPE CH102'1,10 FORMX PUT ,SYI'! PARCNT ",10 PUT, 12'1,8,lEFT PAREN FORM 1 '-3 16 31 14 '16 14 '16 I" 41 15 137910 17 110 '17 31 49 13802 13802 1381'1 13826 13838 13850 13862 1387'1 13886 14 '16 1'1 '17 27 11 17 '19 1"205 15138 15139 13650 15139 13862 15139 13422 09904 05302 15139 13802 15138 13158 0-087 151"0 000-0 01200 OOOK" 01200 00009 01100 00001 J3758 000-0 01200 15140 00000 15139 12794 15139 13894 08944 03288 12498 OOONl 01200 OOOK'I 01200 09819 000-1 0-124 00000 15139 13962 1'1216 089'14 089,,'1 13"02 00001 01200 000-0 09879 0-1,,7 00000 '15139 1413'1 14216 089"" 089'1" 15138 14054 12698 000M8 01200 000-0 09819 0-148 14089 14088 089'14 09879 1'1022 13'102 12698 15139 00000 0-000 000-1 01200 15141 00000 14134 0 0 0894'1 1'1145 15139 l253'1 1413'1 00000 08944 138910 CHI,67,10, TEST FOR X SPECIFICATION HOll WIOCK,O,10 PUT,SYM PUT, lU,8,X TYPE FORM5+2'1 --3 CHI ,'18,10, SETFRII NIOCI(,O,10 PUT,SYM PUT, 1'18,8,H TVPE CHI-l,CHI+1 _+20.CHI+2 FORMER '-3 .+35.CHI . . 22 PUT, ,8,OUTPUT HOLL SYM,l,10 HOlL! FORM5+2'1,eHI+2 FORMER '-3 FREIlSW ,SETFRQ 1389'1 13906 13918 13930 139'12 1395'1 13962 13962 13974 13986 13998 1'1010 1'1022 1'103'1 140'16 1'10510 1'105" 1'1066 1'1078 14090 1'1102 1'111'1 1'1126 1'1134 1'1134 1413'1 1'11'11 141'16 1'1158 1'1170 1'1182 1'1194 '•• -4 PUr.SYM SETFRIl+l1,5YM CHI,24,10, FoRM1+36 FREIlSW 3111 1'1 '17 17 21 11 '19 1'1 U 11 21 17 31 ,,5 '19 26 33 11 12 '11 105 '19 32 27 26 1'1 '17 33 15140 15141 00000 09879 09879 000K4 01200 00000 28 1620 13530 WIDTH 13540 13550 13560 13510 WIDCK 13580 13590 13600 13610 13620 WBUI 13630 DS B DORG DS S BN BB OORG DORG O$C 22 OSA , MO~ITOR FORTUN II-D PHASE I-B PAGE <-9 16000 2,22 DEFI 16006 1,' 16006 16001 " FORM" '-3 2, WIDTH,SYM FORMER 136"0 DC OSC 1,0 0 5,11600 DC J1600 3,043 DC 13670 VERSION 2 14205 110206 142110 110215 14216 110228 14240 110242 16000 16000 13650 DEFI 13660 II 49 22 41 42 0 13862 00000 2 14205 12698 00000 09879 01300 00000 29 5 X ' J600e I 1600e 16013 16016 -103 13680 OSA lOUT 16021 13690 DC , 1, ' 16021 16022 13700 WRBLKI TFM B 13110 TRA 13120 IORT,H23 IOPT,WBLK1,7 I1no WRBLKl TCO 13740 • 13150 • 13760 • 13110 • 13780 • 13790 • U800 • U8l0' 13820 13830 13840 13850 13860 13810 U880 13890 13900 13910 13920 13930 13940 13950 13960 16024 16036 16048 16060 16024 OUT OF' CORE BLOCK 2 CONTAINS THE FOLLOWING EIIU I V AUNCE SUBROUTINE FUNCTION CONTINUE PAUSE STOP DfF INE DORG IDUT TFM FMON+35,ILK4" lOUT 8TM fMON, lOUT CM CHI ,57,10, CHECK FOR P IN STOP II NNARAA TFM FMONUS,ILK1, , DIM 8TM FMON,DIM TFM FMON+35,8LKI" COMMON 8TM FMDN,COMMON TFM FMON+35,8LK6" IF IITM FMON, IF TFM FMON+]5,BLK6" GOTO BTM FMON,GOTO TFM FMON+35,8LK6" CAn 8TM FMON,CAlL 10200 10200 10212 10224 10236 10248 10260 10272 10284 10296 10308 10320 10332 10J44 10356 J0200 1 16 49 36 t,9 16 17 14 109 16 17 16 17 16 17 16 11 16 17 00565 00532 00000 00000 J6041 J6000 00500 00000 02359 02324 15119 10512 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 -9683 J0200 OOONl 00000 -9614 J0248 -9614 J0212 -9129 J0296 -9129 J0320 -9129 J0344 311 1620 MONITOR II VERSION 2 FORTRAN 11-0 PHASE 1-8 13910 TFM FMON+]5,BLK6" RETURN 13980 8TM fMON,RETURN 13990 TFM FMON+]5,8LKI" FORMAT 14000 ITM FMON, FORMAT 14010 TFII FMON+35,BLK4, , ODO 14020 8TM FMON,DOO Ilt030 TFM FMON+35,8LK3" ASCAN 140ltO 8TM FMON,ASCAN 14050 TFM FMON+35,8LK3" OUlSC 14060 8TM fIlON,DUTSC 14010 rFM FIION+35,81115, , OKlO 14080 ITM FIION,OKIO 14090 NNARAA IE srOPEN IUOO 8TM COLNAII,2,10 IloilO CM 5YM,6245,8 14120 IIV ERROl 110130 IE PAUSEN 14l1tO 8TM COLNAM,5,10 14150 C SYM, TlNUE+8 14160 8V ERROl 14110 liE CONTEN 110180 C SYM,CTlON+8 14190 IE FUMCTA 14200 IITM COLNAM, 7,10 1lt210 C S'M,ROUTN+1Z 14220 IV ERROl 14230 SUB,... 8E 14240 C SYII,DEFCT+12 14250 IE DEFINE 1''260 ENTER TO DECOMPOSE EQUIVALENCE STATEMENTS 14210 EQUIVN 8TM COLNAM, 8, 10 14280 C SYII,I VALEN+l4 14290 8V ERROl 14300 IHE ERROl 14310 TR CHI-l,CHI+i5 14320 CF srSN 14330 EIIR TOM EQUSN,I,l1, SET SNITCH INDICATING EIIUIV STATEMENT l43ltO TOM PR" .. INlTUlIZE PR 14350 DC 1,',* ...... ...... PAGE 1036B 10380 10392 10404 10416 10428 10440 10lt52 10464 10416 10488 10500 10512 10524 10536 105lt8 10560 10512 10584 10596 10608 10620 10632 106410 10656 10668 10680 10692 10704 10116 10728 10740 10752 10764 10176 10188 10800 10811 , 14160 14310 14380 14390 CM 8E ,ITM TFM 141000 Elll AM 141010 141020 14410 CM IIH 8TM 110440 CM 14450 14460 IH ITM 110410 BD 14480 E83230 AM I 1""90 14500 DORG 110510 80 CHI,24,10 10812 10824 10836 10848 10860 10872 108810 10896 10908 10920 10932 TEST FOR DIM VAR 11 16 11 16 023210 46 02359 02324 02359 02324 110006 11 010560 14 46 46 106 09819 OH98 13838 04560 09819 04198 13172 09819 13706 11 010560 210 09879 Oltl98 13004 09879 11 16 11 17 24 46 46 24 46 46 210 106 11 24 46 41 31 n 15 15 14 110038 11076 312 17 14 46 11 01200 14467 01200 000-6 43 11 14 ~6 011000 000K4 01200 00-12 J5139 000-2 OOOMO 01100 00J70 00009 01100 11 49 11 16 002~5 OlltOO 01200 000-5 13831 01400 01200 13111 01200 000-1 13631 000-8 13003 01400 01200 U 46 -9129 J0368 -9614 J0392 -9683 J0416 -9660 J0440 -9660 J0464 -9106 J0488 01200 000-2 04560 09819 04198 010198 15138 05531 09908 12509 1 10956 10968 10976 10976 INVALID VAR .-21t GO TO COLLECT NAME TEST IF SYM PRti'VIOUSLY DEFINED IF' SYM NOT PRE V OEFINED, SAVE ROOM FOR OFFSET VALUE 16 16 109104 •• 24 CSORN,.+12 •• .+J2.INSW •• NXLOC.5,lO, EQ21. " '-3 EQ21,6111" 17 17 02359 02324 02359 02324 02359 02324 02359 15139 10848 09230 05905 05905 0590N 10908 09230 0590N 10896 05594 10916 02372 11076 •• 24. ERROR, 12.9, StHI,CHI StHI,2,10 StHI,40,610 fRROR,170,9, StHI,69,610 16 151510 00000 OOOOJ 00000 J09ltlo 03219 000-5 00000 30 1620 MONITOR II 14520 14530 14540 14550 14560 14510 14580 14590 14600 14610 14620 E021 14630 14640 14650 14660 14670 14680 14690 14100 14110 14720 14130 14140 14150 14160 14170 14180 14790 14800 14810 14820 14830 14840 E024 14850 14860 1~810 14880 14890 14900 1~910 14920 14930 14940 1~950 E023 14960 14910 14980 14990 15000 15010 15020 15030 15040 SAVEl 15050 15060 15010 BNF BNF B DDRG A TF TF 8 IlORG BTM BD BNR B OORG 8NR B DORG BNR B DDRG C BE C BE BTM BNF BNF BNF BTPI BNF B OORG BNF CM BNE AM TFM CM BH BTM TFM TFM AM TO API CM 8NH CM 8NE 8TM TF SF OS CM INE AM Ea21,5111 .. .+20, 6( 1) •• EII21 .-3 NXLOC,SPlLNG NXLOC,SYM,6, 411 ), NXLOC .. E83230 ·-3 ERROR,lll,9, .-lZ,FNTSW, , .+20,111 J •• E021-12 ·-3 *+20,8111 •• E021-12 ·-3 *+20,PR •• Elll ·-3 MODE, FXORFL., .+48 FP2,KLNlh, .+24 ERRDR,112,9, EQ22,5111 .. •• ~6.6'lJ,t, •• Z4,PR. , ERRDR,173,9, .-12,PR-l •• E07 .-3 e0 4 ,DMVAR .. SCHI,24,610 EQBR+8 SCHI,2,10 EOBR+6,EQBR+20 SCHI,69.610 ·.21t ERROR,75.9, VERSION 2 FORTRAN II-D PHASE 1-8 TEST IF SYM WAS PREVIOUSLY EQUIV TEST IF VAR WAS IN COMMON MOVE SYM NAME J NTO TABLE MOVE NEW 5 YM ADD I NTO TABLE I NVAlID NAME USED IN FUNCTION TEST FOR FUNCTlDN NAME IN EQUIVALENCE TEST FOR DUPI"V PARAPIETERS DF SUBPRDGRAM TEST FOR SUBPROGRAM NAME IN SUBPRDGRAM TEST FDR FIRST NAME ON LIST TEST FDR MUED EQUIV TEST FDR K EOUAL TD F+2 IN MIXED EQUIV TEST IF SVM HAD BEEN BRANCH IF SYM IS NOT TEST IF PREVIOUS SVM ILLEGAL EQUIVALENCE TEST IF PREV SVM liAS PREVIDUSlV EQUIV IN COMMDN liAS IN COMMDN EQUIV TEST FOR DIM VAR, BRANCH IF NDT 1132~ 11336 lln8 11360 11372 1138" 11396 11408 11420 11432 INCORRECT SUBSCRIPTING SYPI-3.0,l "30,SYM-4 •• -18,1,10 .SCHI,II. COLLECT INDEX SCHI,2,10 SCHI,69,610 .+1t8 E023+6,SYM E023-12 ERROR,75,9 SVM,EQ23+6,l1, SVM-4 " SCHI,4,610, .-48 SCHIo2,10 PAGE 10988 11000 11012 11020 11020 11032 11044 11056 11064 11064 11076 11088 11100 11108 11108 11120 1112B 11128 11140 1114B 11148 1116D 11172 11184 11196 11208 11220 11232 11244 11256 11268 11276 11276 1128B 11300 11312 TEST FDR RIGHT PAREN 44 44 49 11016 11020 11016 000-5 000-6 00000 21 26 26 49 02312 0231K 000-4 10956 05821 09819 02312 00000 11 43 45 49 09230 11064 11108 11064 OOJll 09900 000-7 00000 45 49 1112B 11064 000-8 00000 45 49 11148 11732 12509 00000 24 46 24 46 06307 11208 0229B 11208 09230 12144 11276 11256 09230 11244 11732 0630<> 01200 02252 01200 00J12 000-5 000-6 12509 OOJ13 12508 00000 11616 0590N 11560 05905 11558 0590N 11372 09230 09876 11 ... 14 11414 00000 05905 0590N 11492 08132 000K4 01200 000-2 J1512 000D9 01100 00-15 -0000 -9815 000-1 0590N 000-2 000D9 01100 -9879 01200 00-75 1141M 00000 11 44 44 44 17 44 49 410 JIo 47 11 16 1... 46 17 16 16 11 25 11 14 114~~ ~7 11456 11468 11480 11492 11504 11515 11516 11528 11540 1" ~1 11~1~ 11 11396 09230 09879 09875 0 0590N 11480 05905 11552 11560 11560 11512 ~9 11572 00000 16 1158~ 44 11596 11604 ~9 09879 11676 11604 11676 -0001 12509 12509 00000 11616 11628 08875 12509 12508 04089 0590N 12176 0590N 10860 10836 12508 088P5 000-4 000-6 000-5 09879 OOO-It 01200 000K3 01200 00000 06307 06307 0 11768 OB815 125D9 12508 11836 000-5 00000 11 26 32 14 ~7 31 000-10 01200 000-2 313 1620 MONITDR II 15080 EOBR 15090 15100 15110 15120 15130 B DDRG TFM BD BNF B DDRG BNF BSX AM TO TO TF CM 8E '-3 SYM,I, EQ4,PR .. FORTRAN 11-0 PHASE 1-1 TEST IF PREVIOUS SVPI MAS DIM VAR •• 20,PR EQ4 '-3 EQ4,PR-l .. O+12,REFIlI REF,4,10 PR,6UI PR-l,51l1 .. TEMP,SVM .. SCHI.4,610, EOlDDP, .. CM SCHI,23,610 152~0 8E E01 15250 B EQ1-Z4 15260 DORG '-3 15210 EQl TD MODE,5UI" 15280 CF MDDE 15290 SAVE3 DS 15300 BSX o+12,REFIII 15310 AM REF,4,10 15320 PR,6111 TO 15330 TD' PR-l,SlII 15340 e+32 BD ,PR" 15350 TFM TEMP,I 15360 B E84130 15370 DORG '-3 15380 SCHI,2~,610 CM 15390 BNE ·-32 15400 AM SCHI,2,10 151010 CM SCHI,69.1>10 15~20 BNH EQ23-48 15~30 TFPI EOBR+6,o+20 15440 B EQ23-36", 15450 DORG --3 ' TF TEPlP,SVM 15"60 15~10 E810130 BNF *.20,5(1),. 151080 B EQ4 15490 OORG .-3 15500 E84180 CM 9111,000,9, 15510 BE EO~ 15520 E84330.6111 .. BD 15530 .+35,4111 TF 15540 AM *.23,5,10 15550 A TEMP". 15560 E84240 TF ADSAVE,STBl 15570 S AOSAVE-l,91 11 " 15580 AM ADSAVE-lol,10 15590 TF REF,ADSAVE 15600 SM ADSAVE,04ol0 15610 TO PR-l,ADSAVE,l1, 15620 AM ADSAVE,l,lo 15630 PR,AOSAVE,lI, TD 151~0 15150 15160 15170 151BO 15190 15200 15210 EQ4 15220 15230 VERSION 2 •• 20 TEST IF PREVIOUS SVM liAS EOUIV SAVE INDICATORS SAVE DFFSET END Of LIST SET FIX DR FLOAT " TEST FDR DIM VAR GD TD CDlLECT SUBSCRIPTING TEST IF VAR PREVIOUSLY EQUIVALENCE TEST IF PREVIDUSlY EQUIV $VM liAS BASE TEST FOR DIM VAR PAGE 116D~ ~4 11616 11628 11640 11652 11664 11676 116B8 11700 11712 11724 11732 11732 11144 11755 11756 11768 11780 11792 1180... 11816 11828 11836 11836 11'48 11860 11112 118B4 11896 11908 11916 11916 11928 11940 11948 11948 11960 11972 67 11 25 25 26 14 1198~ GENERATE DfFSET TD PREVIDUS BAse GENERUE ADDRESS DF BASE SAVE FIX DR FLOAT SAVE DIM I NOICHOR ~3 11996 12008 12020 12032 1204 ... 12056 12068 12080 12092 12104 31 " ~6 14 46 ~9 25 33 61 11 25 25 43 16 49 088P5 000-10 11928 000-6 000-5 12509 -0001 00000 ~9 0590N· 11816 05905 0590N 11360 11558 11372 000K4 01200 000-2 000D9 011.00 J1916 00000 26 04089 1~ 47 11 14 41 16 010089 ~~ 119~8 49 11676 09879 000-5 00000 1~ 000-9 11676 12124 12019 12019 04089 08503 08502 08502' 08815 08503 12508 D8503 12509 00-00 01200 000-6 000-4 000-5 00000 02311 000-9 000-1 08503 000-4 0850l 000-1 0850l U 43 26 11 21 26 22 11 26 12 25 11 25 32 1620 MONITOR II 15640 15650 15660 15670 15680 15690 15700 15710 15720 15730 15140 15150 15160 15770 15180 15190 15800 15810 15820 15830 15840 15850 15860 15810 15880 15890 15900 15910 15920 159]0 15940 15950 15960 15970 15980 15990 16000 16010 16020 16030 160"0 16050 16060 16070 16080 16090 16100 16110 16120 16130 16140 16150 16160 16170 16180 16190 E8H30 EQ22 EQLOOP EBASE TEMP2 E84560 PR E84695 HERE B DORG A 87 8NF BNF B DORG TFM TF S AM SF OS AM 8TM BNF BSX AM C 8E BO TF AM TFM A TF BNF SF OS B DORG CM 8E TFM 8 DDRG AM TFM 8 DORG SF OS A TF B7 BNF B DORG 80 TF AM TF 87 CM 8NE VERSION 2 'FORTRAN 11-0 PHASE 1-8 PAGE EQ4 ·-3 TEMP, 99999( 1 J., E84240 EQZ4-32,PR-l" EQ7,PR,. EQ24-32 ·-3 SCHI.CHJ, , EBASE, STBL EBASE,REF E.8ASE-l.l,lO EBASE-3 GENERATE NEW OFFSET ENTER FROM EB3500, BR TO ERROR IF PRE V SYM WAS EQUIVALENCED OR IN COMMON ENTER HERE AFTER EQUIV STATEMENT HAS ,. SCHI,l,lO, CSORN, •• 12, E84804,5111 .. "+12,rEMP2(11" TEMP2,t,,10 TEMP2,REF't E84695 E81t560,6f LJ .. ADSAVE ,loll I ADSAVE,5,10, ADSAVE,I,6711, ADSAVE,TEMP,6, 9111,EBASE-1 E84710,PR 6111 5,. E84710 .-3 SCHI,24,610 -+32 SYM, .. 711 BEEN SCANNED ONCE TO DETERMINE BASE IF SYM WAS PREV EQUIV IT MUST 8E THE BASE OF PRESENT EQUIV TES T FOR 01 M VAR PLACE OFF SET I NTO TABLE ...·52 .-3 SCHI,2,10 E08R+6 •• +20 E023-36 .-3 5YM ,--2 5YM, TEMP .. 99999!II,SYM .. E84560-44 0+20,6111 HERE ·-3 HERE,61l1 ADSAVE,4! 1 I ADSAYE,5,10 ADSAVE, TEMP ,6 E84710-12 SCHI,24,610 GEN OFFSET MOVE OFFSET INTO TABlE •• 60 12116 12124 12124 12136 12144 12156 1216B 12176 12176 12188 12200 12212 12224 12235 12236 49 11676 00000 21 49 44 04089 12020 11244 11132 11244 999R9 t,4 49 16 26 12508 12509 00000 49 05905 12235 12235 12234 12232 0 05905 05594 12908 122B4 12415 12415 12544 12424 08503 0850] 0850L 0850L 000-9 12136 000-6 5 12136 14 "6 16 49 0590N 12468 09879 12512 000K4 01200 -OOOJ 00000 II 05905 11558 I1H2 000-2 J2500 00000 09879 0 09879 999R9 12380 12564 12620 00000 12620 08503 08503 0850L 12124 0590N 12692 000-6 000-4 000-5 04089 2Z 11 32 II 122t,8 17 12260 12272 12284 12296 12308 12320 12332 12344 12356 12368 12]80 12392 12404 12415 12'116 12424 12"24 12436 12448 12460 12468 12468 12480 12492 12500 12500 12509 12512 1252" 12536 125H 12556 12564 12564 12576 12588 12600 12612 12620 12632 lot, 61 11 24 46 43 26 11 16 21 26 44 32 16 49 32 21 26 49 44 49 43 26 II 26 "9 14 47 33 J5139 02377 08815 000-1 00000 000-2 J2260 000-5 124J5 000-4 OB815 01200 000-6 000-4 000-5 -OOOJ 04089 12234 12509 00000 00000 04089 09819 000-6 00000 OOOH 01200 3J5 1620 MONITOR II 16200 16210 16220 16230 16240 16250 16260 16270 16280 16290 16300 16310 16320 16330 16340 16350 16360 16370 16380 16390 16400 16410 16420 16430 16440 16450 16460 16470 16480 16490 16500 16510 16520 16530 16540 AM CM BNE AM 8NF 87 TF TFM E84710 CF SAVE2 OS CM BNE AM CM 8ME TF AM TR VERS ION 2 FORTRAN 11-0 PAGE PHASE 1-8 12M4 12656 12668 12680 12692 12704 12712 12724 12736 12747 12748 12760 12772 12784 12796 12808 12820 12832 12844 12852 12852 12864 12876 12888 12896 12896 12908 12920 12932 12944 12956 12968 12980 12988 12919 SCHI,2,10 5CHI,4,610 .-24 5CHI,2,10 •• 20,611. E8471 0-12 99999111, TEMP 9111,000.9 ,. 5U .... CLEAR FLAG INDICATING EQUIY VARIABLE 5CHI,4,610 EOLOOP+60 5CH1,2.10 SCHI,23,610 4.56 .+35, SCHI -+23,1,10 CHI-l EQR B DORG .-3 0+35,SCHI TF *.23,2,10 AM BNR 0+20 8EGINA 8 DORG --3 8TM ERRDR,72,9, E84804 CM 5CHI,2",610 8HE ESlt710 5CHI,2,10 AM SCHI,4,610 CM BHE .-24 AM SCHI,2,10 E81t710 B DORG --3 IVALEN DAC 8,IV4LENCE IVALENCE OUTPUT SUBROUTINE DECLARATION STATEMENT 16550 16560 SU8PA TFM SU8POT+ 11,0135, 8 TR CHI-l,CHI+13 16570 .+l6, SU8FCT 16580 BD 16590 TOM SUBFCT,I .+24,STSN 16600 BD 16610 STM ERROR,370,9 16620 8NF .-12, STSN 16630 SU8PF TOM SU8SW,1 16640 CM CHI,40.10 16650 BH -+24 SU8 DECLARATION ERROR 16660 SUBPI BTM ERROR ,270,9, CHI,69,10 16670 CM e-21t 16680 8H OUTPUT SU8ROUTINE SYMBOL 16690 SUBPUT BTM PUT,Ol3S,a, TF O+35,FCTEND 16700 e+23.10,10 16710 SM 16720 BNR *+20, .-. B7 MVGM 16730 SAVEGM,o-9 TF 16140 ...... ••••• ilO04 13016 13028 13040 11052 (J064 13076 11088 13100 11112 1112" 13136 11148 13160 13172 11184 11196 13208 13216 316 000-2 000-4 01200 000-2 000-6 49 05905 0590N 12644 05905 12112 12124 999R9 000-9 000-5 0 0590N 12236 05905 0590N 12852 12843 12843 151]8 10788 26 11 45 49 12887 12887 12896 02602 05905 000-2 00000 00000 17 09230 0590N 12736 05905 0590N 12932 05905 12736 00-72 000K4 01200 000-2 000-4 01200 000-2 00000 13171 15138 13064 02293 13076 09230 13064 09912 15139 13136 09230 15139 13124 08944 13207 13207 13216 13272 01123 0-135 15152 02293 00001 05531 OOL70 05531 00001 OOOMO 01100 00K70 00009 01100 0-135 02318 OOOJO 00000 11 14 47 II 44 49 26 16 33 14 47 11 14 47 26 11 11 14 47 11 14 47 11 49 16 31 43 15 43 17 44 15 14 46 J7 14 46 17 26 12 45 49 26 04089 00-00 00000 000-4 01200 000-2 OOOK] 01200 05905 000-1 00000 00000 13207 34 1620 MONITOR II 16750 16760 16770 16780 16190 HVGM 16800 16810 16820 16830 SM TO TF'" B7 BTM SF 8TM TOM DC 16840 16850 16860 16810 16880 16890 16900 16910 16920 16930 SU8P2 16940 16950 16960 16'110 16980 16'190 11000 11010 11020 TF BNR BNF BTH CM BE BTM BTM Til. CM 8NH CM 8H BTH SF BTM BO TOH DC , VERSION 2 FORTUN 11-0 PHASE I-B PAGE SAVEGM,30,l0 SAVEGM,GM1,6 FCTEND,OOOOO.,67 MVGM+12 MVGM20,FCTEND,711 oUTSW CSDRN,o+12 8(1),*-. 1,' ,* SAVSVI4, SVM *.36,CHI+2 8EGIN,SUBFCT ERRoR,311 ,'I CHI,24tlO e+24 ERRoR,371,9 PUT, 12.,8,LEFT PAREN CHI-1,CHI+l CHI,.O,10 SUBP2-36 CHI,69,10 5U8P2-36,. , TEST FOR SYMBOLIC ARGUEMENTS MVGM20,SAVEGM,111 oUTSW, CSORN,e+12 •• OUTPUT ARGUEMENT SU8P2-36,INSW" ERROR IF ARGUEMENT WAS IN 7111,*-. 1,',. 17030 11040 11050 11060 11010 11080 17090 11100 17110 11120 11130 ROUTN CM CHI,23,10 BNE ·.32 BTM PUT, lZ3,8,COMMA B SUBP2-lZ OORG +-3 CM CHI,4,10 BNE SUBP2-36 BTM PUT, 104,8,RIGHT PAllEN B BEGIN DORG +-3 OAC l,ROUflNE ROUTINE I1UO SUBROUTINE MOVES GR. MARK 20 POSITIONS LOWER IN SVS. TABLE 11150 5 DS 11160 MVGM20 TO MVGM2D-l,IIECMK,6 11110 CF MVGM2D-l 11180 TF SAVEGM,MVGM2D-l,11 11190 SM SAVEGM,20,10 11200 TO SAVEGM,GM1,6 11210 182 11220 OUTPUT FUNCTI ON DECLARA fI ON STATEMENTS 11230 FUNCTA TR CHI-ItCHI'9 11240 TFM SUlPUJ+ 11,1 n , l 11250 BD SU8PF-24,SUIFCT 11260 TDM SUBFCT,l,l1 11210 SUBPF-36 I ...... •••••• 35 13228 132.0 13252 13264 13272 13284 13296 13308 13319 12 25 16 49 17 32 17 15 07123 0712l 02310 13284 13644 06896 05594 000-8 1 13320 13332 13344 13356 13368 13380 13392 13404 13416 U428 13"0 13452 13464 13416 13488 13500 13512 13524 13535 26 45 44 17 14 46 17 17 31 14 41 02243 13368 02590 09230 15139 13404 0'1230 08944 15138 15139 13392 15139 13392 13644 06896 05594 13392 000-1 1 09819 15141 02293 OOlll 000K4 01200 OOll1 0-124 15140 0001'10 OllOO 0000'1 01100 -112l 00000 J3512 03219 00000 13536 13548 13560 13512 13580 13580 13592 13604 13616 13624 13625 14 41 15139 13580 08944 13416 000K3 01200 0-123 00000 15139 13392 08944 02590 000-4 01200 0-104 00000 14 .6 11 32 17 43 15 11 49 14 H 17 49 OOOlO 09782 -0000 -2310 00000 J3308 00000 1 X 13642 13644 13656 13668 13680 13692 Ul04 25 33 26 12 25 42 Ul06 13118 13130 13142 13154 31 16 43 15 49 2 5 1364L 13643 01123 07123 0712l 09621 00000 1364L OOOKO 09182 15138 13111 13064 02293 13052 15148 0-136 02293 OOOOJ 00000 317 1620 MONITOR II 11280 11290 CTiON VERSION 2 FORTRAN II-D PHASE I-B PAGE OORG '-3 OAC 5,CTlON CTION 17300 •••••• OUTPUT CONTI NUE STATEMENT 11310 CONTEN BD ·'24,·NDIND 11320 8TM ERROR2,514,9, UNNUMIERED CONTINUE STATEMENT 11330 aTM PUT, 121 ,., CONTI NUE 11340 8TM PUT, 140,8,DUMM' 11350 B IEGIN 11360 DORG '-3 11310 TlNUE DAC 5, TlNUE TlNUE 17180 •••• OUTPUT PAUSE STATEMENT 11390 PAUSEN TR CHI-l,CHI+3 11400 8TM PUT. 126,8,PAUSE 11410 BTM PUT, 140,8,DUIIHV 11420 BNR ++20,CHI+2 11430 B IEGIN 17440 DORG '-3 11450 PAUS CM CHI.69,10 11460 11'1 "32 11410 8TM ERROR2,573,9. CHARACTER AFTER PAUSE NOT NUMERIC 17480 B IEGIN 11490 DORG '-3 11500 ITM PUT, 140,.,DUMMY 11510 TO '+23,CHI 11520 8TH PUT,O,8 11530 TR CHI-l,CHI+1 11540 BNR '-36,CHI+2 11550 8 BEGIN 11560 DORG e-3 11510 OUTPUT STOP STATEMENT 11580 STOPEN Til. CHI-l,CHI'1 17590 8TM PUT, 125,8,STOP 17600 8 PAUSEN+24 17610 DORG e-4 11620 .~ OUTPUT DEFINE STATEMENT 17630 DEFINE Til. CHI-1,CHI+13, , SHIFT OFF INEOISK 17640 CF STSN 11650 BD ERR60+l2,SUBFCT 17660 BD ERR60+l2,MULDEF 17670 TOM MUl.DEF,1 11680 CM CHI.24,10, CHECK FOR LEFT PAREN 17690 BNE ERR44 11700 TR CHI-l,CHI+l., SHIFT OFF lEfT PAREN 11710 CM CHI,69.10 11120 BNH ERR44 11130 BTM CLDGr,03,10, COLLECT Nl 11740 SF S'M-l 11750 CM SVII,50,10 11160 BH ERRIt4,., Nl GREATER THAN 50 17110 TF Nl, SVM 17180 CM CHI,23.10 11190 BNE ERR44 17800 Til. CHI-l,CHI+l 17810 II W,Nl 13162 13163 ...... 13112 U784 13196 13808 13820 13828 13829 .... .... .. •••• 13196 09386 08944 08944 02590 03195 00N1/t 0-121 . 0-140 00000 5 X 31 13850 11 13B62 1381" 13886 13894 1389" 13906 13918 13930 13938 13938 13950 13962 13914 13916 13998 14006 11 45 49 089"4 13894 02590 15142 0-126 0-140 15141 00000 14 46 11 49 15139 13938 09386 02590 00009 01100 OON13 00000 11 25 08944 13973 11 08944 0-140 15139 0-000 31 45 49 15138 15140 13950 02590 15141 00000 15138 OB944 13862 D-125 00000 14006 14030 14037 14038 14050 14062 14014 14086 14098 14110 14122 14134 14146 14158 14110 14182 14194 14206 14218 14230 14242 1425" 318 43 11 11 11 49 13838 1"018 .... X 31 11 /t9 15138 08944 31 15138 33 43 43 15 14 41 05531 31 14 41 17 32 14 46 26 14 41 31 23 14480 1"1t80 02384 15139 14468 15138 15139 14468 14526 09818 09819 14468 02233 15139 14~68 15138 02240 15140 15152 00000 02293 02384 00001 000K4 01200 15140 00009 01100 000-3 00000 OOONO 01100 09879 000K3 01200 15140 02233 36 1620 MONI TOR II 17820 17830 17840 17850 17860 17870 17880 17890 17900 17910 17920 17930 17940 17950 17960 17970 179BO 17990 DEFCr 18000 18010 18020 18030 18040 18050 18060 18070 18080 18090 18100 18110 18120 18130 18140 18150 18160 18170 18180 18190 18200 18210 18220 18230 18240 18250 18260 18270 18280 18290 18300 18310 18320 18330 ERR60 ERR44 VERS ION 2 FORTRAN 11-0 PHASE 1-8 CM 99,0100,8 TOM RECLG ,2 BH -+24 TOM RECLG,I CM 99,0200,8 8H EXCEEDS TWO seCTORS ERR44". CM CHI,69,lO 8NH ERR44 8TM ClOGT ,06,10, COLLECT N2 SF SYM-4 TF N2,SYM CM SYM,20000 BH ERR44 CM CHI,Olt,IO 8NE ERR44 8 8EGINA DORG '-3 DAC 7,INEDISK INEOISK TFM RECLG,OOO,9 TD *.35,JAY BTM ERROR2,670.9 JAY,.-. TOM B 8EGINA DORG '-4 os .ERR60 COllECT DIGITS SUBROUTINE • • • BTM OS CLOGT BD TR B DORG TFM TFM eLOGTI SM 8l ClOGT,XX,lO, xx :II: NO. PAGE 14~66 14278 14290 14302 14314 14326 14338 14350 14362 14374 14386 14398 14410 IH22 14434 14446 14454 14455 14468 14480 14492 14504 14516 14523 14468 . 14 15 46 15 14 46 14 47 17 32 26 14 46 14 47 49 31 0-100 00002 01100 00001 0-200 01100 00009 01100 000-6 00000 09879 KOOOO 01100 000-4 01200 00000 00099 02243 14314 02243 00099 14468 15139 14468 14526 09875 02238 09879 14468 15139 14468 02602 7 X 16 25 17 15 49 02243 14515 09386 02367 02602 00-00 02367 00070 00000 00000 0 OF DIGI TS TO COLLECT + I 110524 14526 14538 14550 14558 14558 14570 14582 14594 14606 14618 14630 14642 14651t 14666 H678 14686 14686 14698 14700 *+32,CHI CHI-1,CHI+! .-24 '-3 SYM-12.0 CLDGT2+6. SYM-12 CLOGT-l.l.10 XCLDGr CHI.69,10 XCLDGT CM BNH .+18,1,10 AM CLOGT2 TO .CHI TR CHI-1.CHI+l BNR CLOGTl.CHI+2 B ERR44 OORG '-3 XCLOGT TF S YM.CLOGT2+6.11 BB OORG '-9 • OENO OORG 16000 W8LK2 DSC 2.22 22 18340 DSA OEF2 2 14558 15138 14526 15139 15140 00000 45 49 09867 14648 1't525 14686 15139 14686 14648 00000 15138 14582 14468 -0000 -9867 000-1 01200 00009 01100 000-1 15139 15140 15141 00000 26 42 09879 00000 00000 H 31 49 16 16 12 46 14 47 11 25 31 16000 16000 2 16006 5 1464Q 319 1620 MONITOR 11 VERSION 2 FORTRAN IJ-O PAGE PHASE 1-8 1 •• 18360 DEF2 . 16006 16007 OSC 0 1.0 16008 18310 DC 5.17400 16013 18380 DC 3.046 16016 18390 -46 OSA lOUT 16021 5 1 •• 16021 16022 J0200 1 DC 18350 J6008 1 J7400 . DC 18400 IORT, •• Z3 18410 WRBLK2 TFM 18420 B 18430 TRA IOPT.WBLK2.1 18440 WRBLK2 18450 18460 18470 18UO 18490 18500 18510 18520 18530 18540 18550 18560 18570 18580 18590 18600 18610 18620 18630 18640 18650 18660 18670 18680 18690 18700 18710 18720 18730 18140 18750 18760 18770 18780 18790 18800 TCD OUT OF CORE BLOCK 3 CONTAINS THE FOLLOWING OUTSC ASCAN OORG lOOT TFM F MON+35. 8LK4 .. lOUT BTM FMON.IOUT TFM FMON+15. BLK2 BTM FMON.NONARA TFM FMON+35.BLKl .. DIM 8TM FMON.DIM TFM FMON+35.BLKl .. COMMON 8TM FMON.COMMON TFM FMON+)5.BLK6 •• IF 8TM FiliON. IF TFM FMON+35.BLK6, • GOTO BTM FiliON. GOTO TFM FMON+35.8LK6 .. CALL 8rM FIIION.CALL TFM FMON+35,8lK6. t RETURN BTM FMON.RETURN TfM FMON+35,BlI<1 •• FORMAT 8TM FMON,FORMAT TFIII FMON+35,8L1(It,. DO STIIINT 8TM FiliON. DOD 8NF ASCAN ASClA ,TRINo" B ASCANI ,SINGST,. DUTSC BD SCI DurSCI B rfM FMON+35,BlK5, , OKlO BTM FMON.DKIO OUTPUT SU8SCRI PTI NG CODE OUTSC1 TF TEMP.4111 TD 0lMHO,6111 CF OIMNO OIMNOT OS 2.*-2 TF DIMNOT.OIMNO 16024 16036 16048 16060 16024 16 49 36 49 00565 00532 00000 00000 J6047 J6000 00500 00000 16 17 16 02359 -9683 J0200 -9637 J0224 -96H J0248 -9614 J0212 -9729 J0296 -9729 J0320 -9729 J0344 -9129 J0368 -9614 J0392 -9683 J0416 03137 00000 09898 00000 -9706 J0488 • • • 10200 10200 10212 10224 10236 10248 10260 10272 10284 10296 10308 10320 10332 10)44 10356 10368 10380 10392 10404 10416 10428 10440 10452 10Ult 10H6 10488 10500 10512 10524 10536 10545 10548 32(1 11 16 11 16 11 16 11 16 11 16 11 16 11 16 11 16 11 44 49 43 49 16 17 26 25 33 26 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 12026 11990 10860 10512 02359 02324 04089 10653 10653 2 10545 000-4 000-6 00000 10653 38 1620 MONITOR II 18810 18820 18830 18840 18850 18860 18870 18880 18890 18900 18910 18920 18930 189100 18950 18960 18970 18980 18990 1'1000 19010 19020 19030 190.. 0 1'1050 19060 19070 19080 19090 19100 19110 19120 19130 191 ..0 19150 19160 19170 19180 19190 19200 19210 19215 19220 19230 192 .. 0 19250 19260 19210 19280 19290 19]00 19310 19320 19330 193.. 0 19]50 CF TR BLXM BLXM BXM SC22 BXM TR 514 OIMNO OS CM BNH TOM BTM roM CM BE 5C4 TOM TF BNF CF SF SC5 CM BE CM BE BTM SCI BTM TR 80 8 • DORG TF SC3 TA CM BH ALFAT CM 8NH 8TM 80 8 OORG 80 TF CM BE CM 8NE SF PI OS TR CM BNH roM 8TM SC9 TFM CALC "" VERSION 2 FORTRAN 11-0 PAGE PHASE I-B 10560 33 10512 31 10584 66 10596 66 10608 62 10620 62 10632 31 10644 12 10653 10656 110 10668 .. 7 10680 15 10692 17 107010 15 10716 14 10728 106 10740 15 10752 26 10764 4 .. 10776 33 10788 32 10800 14 10812 "6 10824 1.. 10836 ..6 108..8 17 10860 17 10872 11 10884 103 10896 49 10904 1090" 26 10916 31 10928 14 10940 46 10952 1" 10964 47 10976 17 10988 0 11000 49 11007 11008 43 11020 26 11032 110 110.... 46 11056 lit 11068 41 11080 32 11091 11092 31 111010 14 11116 .. 7 11128 15 111..0 17 11152 16 1116" 13 SC22 AAl-3,MASK, • '+12.4(21 SC22+24.12131 "12.4(21 '+12.12(31 CHI-l.CHI+l 0lMNO,OOOl,810 2,"-2 CHI,69,10 ALFAT OIMSW,I CSTNO,"12 OIMSW,O CHI,14,10 SC3 OIMSI/,O A2-"UI,SYM '+36,SC22 SC22 A2-4121 CHI,H,10 SC22 CHI,Io,10 -+36 ERROR,7S,9 ERROR ,272 ,9 CHI-l,CHI+l SCI-12,OIMNO SC'I '-3 AAl-"121,SYM CHI-l,CHI+l CHI,69.10 SCI-12 CHI ,"0, 10 SCI-12 CSORN, . . 12 "20,HORFl 5CI-12 .. '-4 SCI-I2,611I, , 1-12131,XRAl-1 CHI,10,10 •• 48 CHI,20,10 SC5 SC22 5,. CMI-l,CHI+l CHI,69,10 SCl-12 OIMSI/,I CSTNO,SC" MOVEIT+6,OI-12 0lMNOT,05,10 SET UP WORK AREA FLOATING VARIA8LE USED IN SUBSCRIP O~M VARIABLE USED IN SU8SCRIPT 10608 11852 10596 10632 10620 10632 15138 10653 2 15139 10952 099010 05302 0'19010 1513'1 10'10" 0'1'104 llQ63 10800 10608 llQ63 15139 10608 15139 10872 09230 09230 15138 108.. 8 11152 00000 11921 00-04 00-J2 00-04 00-J2 15140 0-0-1 111151 15138 15139 108.. 8 15139 10848 05594 11008 108.. 8 09879 15140 00009 01100 000140 01100 J0988 06309 00000 10848 llQP5 15139 11092 15139 10800 10608 5 15138 15139 108U 09904 05302 11218 105.. 5 000-6 00308 OOOJO 01200 OOOKO 01200 00000 39 00009 01100 00001 J07010 00000 OOOJ" 01200 00000 09879 10608 00000 00000 OOOK] 01200 000-4 01200 00-75 OOK72 15140 1065) 00000 15140 00009 01100 00001 J0140 J1871 000-5 321 1620 MONITOR II 19360 19370 19380 19]90 19.. 00 19410 19..20 19"]0 19.... 0 19"'0 19.. 60 191070 19"'0 19"90 19500 19510 19520 19530 195..0 19550 19560 19570 19580 19590 19600 19610 19620 19630 196.. 0 19650 19660 19670 19680 19690 19700 19710 19720 19730 191.. 0 19750 19160 19770 19780 19190 19800 19810 19820 198]0 19840 19850 19860 19870 19880 19890 19900 19910 A 14M A MOVE IT A SM 8Z SM SM B OORG S 14 SF A 14 SF A A 14 SF TF M. SF TF VERSION 2 FORTRAN 11-0 PHASE 1-8 PAGE TEMP,99 0lMNOT,12,10 MOVEIT+6,99 ,TEMP,l1 OIMNOTtlt 10 -+44 TEMP,05,10 MOVEIT+6,12,10 MOVE IT 11116 11188 11200 11212 1122~ 11Z]6 llZ..8 11260 11212 11279 llZ80 11292 11304 11316 11328 113..0 11352 1136.. 11376 11388 .-~ 0 .. ,01 03,C2 92 D4,99 OZ,82 9Z 0 .. ,99 O.. ,AZ 03,Cl 92 03,99 OZ,81 92 02,99 AU,0001,8 TF 01,99 TFM PI,1-12 PI,9,10 AM IINR -+20,'1.11 GO TO OUTPUT STRING 8 tON' ... OORG .-] AM '1,3,10 eM '1,0,68 BE MV2 0lMNOT,01,10 AM MVI 8 OORG ·-3 TF MV1*6,Pl,. SHIFT OFF SU8SC NOT NEEDED TF MV3+11,PI AM MV3+11,ltlO SM MV]+6.11.10 0,0 TR SM PI,03010 B MVl+12 OORG .-3 SO a 148 "LITERAL SU8SCRIPT, 51 a 1.. 9 ONE SU8SCRIPT 52 • 150 TIIO SU8SCRIPTS, 53 = 151 THREE SU8SCRIPTS TFM L4+11.0148,8, 8ASE FOR SUBSCRI PT OPERATORS A L4+11 ,DIMNOT 8TM PUT,O CM L4+11,OI48,8 8E -+24 SF CALLP2 BTH PUTtl24,8 8TM PUT,140,8 BNR l6.DI-7 11~00 11.. 12 11 .. 210 11~]6 11 .... 8 11..60 11472 11 ..84 "" MVI MV2 MV3 .. CONT L4 L5 11~96 11508 11516 11516 11528 115..0 11552 1156.. 11572 11512 1158~ 11596 11608 11620 11632 11644 11652 11652 11664 11676 11688 11100 11712 11124 11736 11748 322 21 13 21 21 12 "6 12 12 "9 010089 10545 11218 00000 10545 11280 0 .. 089 11218 11212 00099 000J2 00099 0408R 000-1 01200 000-5 000J2 00000 22 23 32 ZI 23 32 21 21 23 32 26 23 ]2 26 13 26 16 11 .. 5 "9 11919 11907 00092 11919 11895 00092 11919 11919 11901 00092 11901 11895 00092 11895 11855 11883 11091 11091 11516 11652 11883" 11875 00000 00099 11871 00000 00099 11867 11861 00000 00099 11859 00000 00099 0-001 00099 J1815 000-9 1109J 00000 11 "6 11 49 11091 1109J 11572 10545 11484 000-] 0-000 01200 000-1 00000 26 26 11 12 31 12 ..9 11626" 11631 11631 11626 00000 11091 111096 11091 11091 000-1 OOOJI 00000 000-3 00000 16 21 17 14 11681 11687 08944 11687 11724 021000 0-1"8 10545 -0000 0-148 01200 00000 0-12" 0-1"0 11876 lit 46 32 17 0894~ 17 .. 5 089.. 4 1178.. 40 1620 MONITOR II 19920 19930 199'\0 19950 19960 19970 19980 19990 20000 20010 . 20020 20030 20040 20050 20060 20070 20080 20090 201DO 20110 20120 20130 20lltO 20150 L6 AAl Bl Cl A2 82 C2 Dl I D2 J 03 K D4 20160 MASK 20170 20180 20190 20200 20210 20220 20230 VERSION 2 PUT,104,8 OUTSCE,22131l1.67, 01-7 PUT-5,8,11 PUT ,01-4 PUT-5,O.U 01-7.Dl-3 L5 B OORG _-3 OS DS DS 4 4 DS 4 DS DS 4 8 DS DS 4 DS 8 OS 8 DS 4 DS DS 8 OS 1 4,0001 DC -001 ••-3 OS 4.1 DC -001 4.1 DC -001 4,0 DC -000 .4.0 DC -000 4.0 DC -000 8,0 DC -00011000 BTH 8LXM Sf TOM BT TOM TR fORTRAN 11-0 11760 11772 1178'\ 11796 11808 11820 11832 11844 11852 11855 11859 11863 11867 11871 11875 11883 11887 11895 11899 11907 11911 11919 11920 11924 RETURN "" " 20260 20270 20280 20290 .... oodoo OOOOQ 11879 000011880 00000 "81 " 0 "4 "4 11944 4 11952 11956 11964 , "1 0-104 -22J3 8 4 8 4 8 119"0 8,0 -0000000 4,0 DC -000 8,0 DC -0000000 4,0 DC ·-000 8,0 DC -0000000 DC 08944 0469R 11876 08939 08944 08939 11876 11748 "" "4 "" 11936 DC 20250 31 49 11912 'I,D DC 17 66 32 15 27 15 11921 11928 -000 20240 PAGE PHASE I-B 4 11968 4 11976 8 11980 " 11988 11989 I,' ASCAN CODE 20300 TRINO 20310 ASCANI Cf U24,NDINO 80 20320 ERROR2,572,9, 8TM 20330 11990 12002 12014 33 43 17 03137 12026 09386 00000 03195 OON72 323 1620 1I0NITOR II 20340 20350 20360 20370 20380 20390 20400 20410 20420 20430 20440 20450 20460 20470 20480 20UO 20500 20510 20520 20530 20540 20550 20560 20570 20580 20590 20600 20610 20620 20630 20640 20650 20660 20670 20680. 20690 20700 20710 20720 20730 20740 20750 20760 20770 20780 20790 20800 20810 20820 20830 20840 20850 20860 20870 20880 20890 ASC1A TOM CM BNH CII BNl ASC1B SF BTM TOM CII BE AfRR BTM CII BNH CII BNl TOil TfM BTM TOM CII 8NE BTM TR 17 TOil ASC22 BTM IFSC TFM TFM ARGSC TfM If SCAN TR INR Ell8 8TM ASC12 CM 8HE 8TM 117 CM 8NE ARG1 TfM TR ASC4 CM BNE ASC23 80 AM TfM BTM 8 OORG ASC54 AM 8 DORG AlG2 8Nf 87 TFM CM BH VERSION 2 fORT RAN 11-0 OMM ,I CHI,40,10 AERR CHI,70,I0 AERR OUTSN CSORN,"12 STSN CHI,H,IO . .24 ERROR,376,9 CHI+2,40,10 ASC2Z-lZ CHI+2,70,10 'SCU-1Z EQUSN,I SCHI,CHI+2 CSORN,"12 EQUSN,O SCHltU,610 ASC22-12 PUT,OU3,8. EQUAl CHI-1.CHI+l .. SHIFT OFf EQUAL ASCII 0"".0 13J.8,EQUAl PUT. NOPARM.Ol.l0 ASC14+18.fLlST-9 SSCSN,OO.10 CHI-1.CHI+l "24.CHI+2 ERROR.SlI.9, IIISSING OPERAND. ETC. CHI,20.10 •• 32 PUT, l29.8.UNARY III NUS •• 32 CHI,lO.10 ASC4· SSCSN.5.10 CHI-1.CHI+l CHI,24.10 ARG2 ASC54.FNTSNI PARCNT, 1,10 SSCSW.5.10 PUT. 124,B.lEFT PAREN If SCAN --3 TPARCT.l.10 ASe23+24 --3 "20.NOPARM -+20 sseSW.5.10 CHl.40.10 ARG3 PHASE 1-8 PAGE 12026 12038 12050 12062 12074 12086 12098 12110 12122 12134 12146 12158 12170 12182 12194 12206 12218 12230 12242 12254 12266 12278 12290 12302 12310 12322 12334 12346 12358 12370 12382 12394 12406 12418 12430 12442 12450 12462. 12474 12486 12498 12510 12522 12534 12546 12558 12570 12578 12578 12590 12598 12598 12610 12618 12630 12642 32'1 15 14 47 14 46 32 17 15 14 46 17 09907 15139 12146 15139 12146 06896 055910 00001 OOOMO 01100 OOOPO 01300 00000 J2110 00000 00013 01200 00176 OOOMO 01100 OOOPO 01300 00001 J5141 J2242 00000 OOOL) 01200 0-133 15140 14 47 17 49 14 47 16 31 14 47 43 11 16 17 49 05531 15139 12158 09230 15141 12310 15141 12310 09908 05905 05594 09908 0590N 12310 08944 15138 12086 09907 08944 14552 14124 02494 15138 12406 09230 15139 12450 08944 124H 15139 12498 02494 15138 15139 12598 1257B 03288 02494 08944 12370 OOOJO 01200 000-5 15140 OOOU 01200 09901 000-1 000-5 0-124 00000 11 49 14550 12546 000-1 00000 44 49 16 14 46 12618 12630 02494 15139 12702 000-5 OOOMO 01100 H 47 lit 46 15 16 17 IS 14 47 17 31 49 15 17 16 16 16 31 45 17 00000 0-133 000-1 J4549 000-0 15140 15141 00118 OOOKO 01200 0-129 14552 42 1620 MONITOR II 20900 20910 20920 20930 20940 20950 20960 20970 20980 20990 21000 21010 21020 21030 21040 21050 21060 21070 21080 21090 21100 21110 21120 21130 2111t0 21150 21160 21170 21180 21190 21200 21210 21220 21230 21240 21250 21260 21270 21280 21290 21300 21310 21320 21330 21HO 21350 21360 21370 21380 21390 21400 211tl0 211t20 211t30 2141t0 21450 ASC6 ARGl ASC3 ASC7 ER39 ASCI ASC24 ASC25 CM BNE C" 8NH AM SF BTM 80 BNR 80 CM BNE 80 87 8TM CM BL BTM CM BE CM 8NE 8TM 8 DORG CM 811E 8TM 8 DORG CM 811E 8TM 8 DORG CM 811E CM 811E 8T" TR 8 DORG 8TM 8NF B7 CM BE 80 BD BTM BTM BD SM 8 DORG VERSION 2 FORTRAII 11-0 PHASE 1-8 PAGE 12654 12666 12678 12690 12702 12714 12726 12738 12750 12762 12774 12786 12798 12810 12818 12830 12842 12854 12866 12878 12890 12902 12914 12926 12931t 12931t 12946 12958 12970 12978 12978 12990 13002 130 lit 13022 13022 13031t 13046 13058 13070 13082 130910 13102 13102 13 lilt 13lZ6 13134 1311t6 13158 13110 13182 CHI.l.10 IFSCAN+24 CHI+2.69.10 IFSCAN+2" SSCSW.5,10 OUTSW CSORN"H2 FNSC,FNTSW" BRAIICH IF SYII80L WAS FUNCTION NAME ASC1.CHh2 ER40.FNTSW1 PARCNT .0.10 ER39 MOOAFT.SIIIGST 8EGIN ERROR.319.9, CHI.30.10 UI\IBALENCED PAREIITHESIS. ETC. -+24 ERROR.378.9. CHI.21t.10 ASC23 CHI.10.10 -+32 PUT, lIO,8.ADD ASC24 '-3 CHI.20.10 I NVAlI D OPERATOR -+32 PUT. 120.8.SU8TRACT ASC24 '-3 CHI.21,10 ·"32 121,8,DIVIDE PUT. ASC21t '-3 CHI,14,10 ASC25 CHI+2,14.10 ASC21t-lZ PUT. 115.8. EXPOIIEIITI AL CHI-l.CHI+l -+20 '-3 PUT, 11It,8,MULTIPLY ARG1,SSeSil DIMERR CHI,It,IO HItB FNse1.FNTSIlI CALLl .CALLSII INVALID OPERATOR ERROR.318,9. 10lt,B,RIGHT PAREN PUT, e+32. FNTSIlI PARCIIT, 1,10 1319~ 13206 13218 13230 13238 *+20 '-3 000-3 01200 00009 01100 000-5 00000 J2738 09900 15141 09901 000-0 01200 09898 1t9 15139 12194 151"1 12394 02494 06896 05594 14086 12830 1101086 03288 12818 14006 02590 09230 15139 12866 D9230 15139 12522 15139 12934 08944 13114 14 n,7111 TOM 7111,1" CM CHI,40,10 DOC BNH ER25 CM CHI,69,10 8H ERn BTM CSORN ,"12 " PUT,XRA1-1 aT DOC1,FXORFL 80 BTM ERROR,2T5,9, ·8TII ERRoR,274,9, ER24 CALL RETURN FORMAT DO STATEMENT ASCAN OUTSC DISK INPUT 10UTPUT ...... 17 16 17 16 17 16 17 16 17 16 11 16 17 16 11 ...It 49 16 17 43 49 16 17 47 02324 J0224 02359 -9614 02324 J0248 02359 -9614 02324 J0272 02359 -9729 02324 J0296 02359 -9729 02324 J0320 02359 -9729 J0344 02324 02359 -9729 02324 J0368 02359 -9614 02324 . J0392 12026 03137 11990 00000 02359 -9660 02324 J0440 10860 09B98 10512 00000 02359 -9706 02324 J0488 11990 11990 12002 12014 12026 12038 12050 12062 12074 12086 12098 12110 12122 12134 12146 12158 12170 12182 12194 12206 1221B 12230 12242 12254 12266 12278 12290 12302 12314 12326 12338 INCORRECT DO STATEMENT IS DO REF. ST. NO. IN TABLE SET BY DO, IF NOT SET DO REF IN TABLE COLUCT DO INDEX SYIIIOL FLOATING POINT YARIAILE FDR INDEX DO REFERENCING ILLEGAL STATEMENT NUMBER 15 43 11 14 47 14 47 43 17 15 31 14 46 17 17 32 17 43 43 71 H 14 "1 14 ,,6 17 27 43 17 17 03137 12026 09386 15139 09130 15141 09130 12098 04740 05531 15138 15139 12158 09230 08944 06896 05302 12338 12242 12241 000-7 15139 121"6 15139 12146 05594 089"4 12350 09230 09230 00000 03195 00N72 000M4 01200 000N6 01200 02424 000-0 00000 15142 00009 01100 00K75 0-108 00000 J2194 000-9 000-7 000-7 00001 OOOMO 01100 00009 01100 J2302 00308 06309 00K75 00K74 329 1620 MONITOR II 23560 23570 23580 23590 23600 23610 23620 23630 23640 23650 23660 23670 23680 23690 23700 23110 23720 23730 23740 23750 23760 23770 23780 23790 23800 23810 23B20 23830 238"0 23850 23860 23870 23880 23890 23900 23910 23920 23930 23940 23950 23960 23970 23980 23990 24000 24010 24020 24030 24040 24050 24060 24070 24080 24090 24100 24110 oOCI oOA OOB OOEl FORTRAN 11-0 CHI,n,10, TEST FOR EQUAL SIGN NEXT ER25 PUT, 133,8,EQUAl CHI-l,CHI>1 INITIALIZE SWITCHES DOA •••. DOB DOC CHI,40,10 ER25, .. TEST· FOR UNSIGNED VALUES CHI,69,10 eM SYM,O.10. 8E eM 8NE 8TM ER25 CHI,23,10 ER25 PUT, 123,8,CoMMA CHI-l,CHl+l CHI,"O,10 ER25 CHI,69,10 TR DOE YERSION 2 CM BNE BTM TR CF CF CF CII BNH CM 8NH SF SF 8TM 80 87 8NF TF CM BNH CM BNH SF 8TM 8T 80 17 INF CM Ie BNR 8NF 8NF C BL 80 B DORG CM BE Bo B7 BTM TR CM BNE SF 8TM TR 8NF PHASE 1-8 PAGE •• 24, ,. DOA OUTSW CSORN,-+12 •• "20,FXORFl ER25 DOB,OOA ooTEST,SYM COLLECT AND OUTPUT FIRST INDEX TEST IF FIRST INDEX WAS ZERO -+2. 008 CSORN,"12 PUT,XRAl-l "20,FXoRFL ER25 .+36,DOB SYM,O,10 ER25 00E,CHI+2 -+48 r D08 -.16,OOA TEST IF SECOND INDEX IS GREATER OR SYM,DoTEST" EQUAL TO THE FI RST I F BOTH ARE CONSTANTS ER25", 1/0 CANNOT END HERE ER25,IOSW" BEGIN .-3 CHI,23,10 -+32 RETURN TO 110 ScaN 10F,rOSW" ER25 PUT, 123,8,CoMMA CHI-l,CHI+l CHI,20,10 ooEl DOC PUl,120,8, MINUS CHI-l,CHI+l 00E2,DOA 33\1 12350 12362 12374 12386 12398 12410 12422 12434 12446 12458 12470 12482 12494 12506 12518 12530 12538 12550 12562 12574 12586 12598 12610 12622 12634 12646 12658 12670 12682 12694 12706 12718 12730 12738 12750 12762 12774 12786 12798 12810 12822 12834 128"6 12854 12854 12866 12878 12890 12898 12910 12922 12934 12946 12958 12970 129B2 14 47 17 31 33 33 33 14 47 14 "7 32 32 17 43 49 4" 26 14 "6 14 47 17 31 14 47 14 47 32 17 27 43 49 44 lit 46 45 44 44 24 47 0 49 14 46 43 "9 17 31 14 47 32 11 31 44 15139 12146 08944 15138 12ltH 12586 12242 15139 12146 15139 12494 12434 06896 05594 12538 12146 12586 13239 09879 12146 15139 12146 08944 15138 15139 12146 .15139 12694 12586 05594 08944 12738 12146 12774 09879 12146 12854 12834 12834 09879 12146 12146 02590 OOOLl 01200 0-133 15140 00000 00000 00000 OOOMO 01100 00009 01100 00000 00000 J2518 06309 15139 12898 14336 12146 08944 15138 15139 12982 12242 08944 15138 13062 000K3 01200 09911 12434 09879 000-0 01200 OOOK3 01200 0-123 15140 OOOMO 01100 00009 OUOO 00000 J2706 00308 06309 12586 000-0 01200 15141 12586 12"34 13239 01300 09911 00000 0-123 15140 OOOKO 01200 00000 0-120 15140 12434 48 1620 MONITOR II 24120 24130 24140 24150 24160 24170 24180 24190 24200 24210 24220 H230 24240 24250 24260 24270 24280 24290 24300 24310 24320 243.30 24340 24350 24360 24370 24380 24390 24400 24410 24420 24430 24440 2H50 24460 24410 24480 24490 24500 24510 24520 2'0530 24540 24550 24560 24570 24580 24590 24600 24610 24620 24630 24640 24650 24660 24670 VERSION 2 FORTRAN 11-0 PHASE I-B PAGE BNF OOE2,OOB SYM,DOTEST C BNF .+32,OOC BH ER25 B7 00E2 BL ER25 OOE2 CM CHI,40.10 BNH ER25 SF OUTSW BTM CSORN,·.12 CM XRAI,2213 ER25,. , BE SUBSCRIPTED VARIA8LE IN 00 BO *.20,FXORFL ER25 B7 CM SVM,O,lO ER25 BE OOEE 80 IOF,JOSW" RETURN TO J /0 SCAN 8NR *+20 ,CHI+2 B BEGIN OORG '-3 BTM ERROR2,573,9 B BEGIN DORG '-3 DOTES T OS 10 ENTER HERE TO DECOMPOSE I/O STATEMENTS OTHER THAN DISK lOUT EN BNE ·+44 TFM IOUTl+l1,lI2,8, OUTPUT ReAD SYMBOL TR CHI-l,CHI+l lOUT! B DORG '-3 CM tHI,S5,IO 8NE IOUT2 CHI+2,63,10 eM 8E ·+24 10UTER 8TM ERROR,71,9 TFM 10UTl+lI, III ,8. OUTPUT PRINT SYM80L TR CHI-1.CHI+3 8 lOUT! OORG .-3 IOUT2 CM CHI,45,lO 8NE 10UT3 TR CHI-l.CHI+.l •• SHI FT OFF E CM CHI,69.10 8NH IOUT3 TFM lOUT! +11,0113, 8, OUTPUT TYPE SYMBOL 8 lOUT! DORG 0-3 loun 8TM COLNAM.2,10 CM SYM.4348,8 8Y I OUTER 8NE IOUT4 TFM IOUT!+1l.1l8,8, OUTPUT PUNCH SYM80L IOUT5 TR CHI-l,CHI+3 CM CHI.63.10 lOUT! 8NE 8TM COLNAM,4,10 12994 13006 1301B 13030 13042 13050 13062 13074 13086 13098 13110 13122 13IH 13146 13154 13166 13UB 13190 13202 13210 13210 13222 13230 13239 44 24 44 46 49 47 14 47 32 49 14 46 43 45 49 13062 09879 13050 12146 13062 12146 15139 12146 06896 05594 00309 12146 13154 12146 09B79 12146 14336 13210 02590 000-0 01200 09911 15141 00000 17 49 09386 02590 OONH 00000 13240 13252 13264 13276 13284 13284 13296 13308 13320 13332 13344 13356 13168 11376 13316 13388 13'000 13H2 13424 13436 13448 13"'56 13456 13468 13480 13"92 13504 13516 13528 135,,0 13552 47 16 31 49 1.3284 13635 15138 13624 01200 0-112 15140 00000 14 41 14 46 11 16 31 49 15139 13376 15141 13344 09230 13635 1513B 13624 OOON5 01200 00003 01200 00-71 0-111 15142 00000 14 41 31 14 15139 13'+56 15138 15139 13456 11635 13624 000145 01200 15140 00009 01100 0-113 00000 04560 09879 13H2 136"'4 13635 15138 15139 13624 04560 000-2 014)48 01400 01200 0-118 15142 00003 01200 000-4 13564 13576 1358B 13600 13612 11624 13636 13644 136'04 13656 13668 13680 13692 13100 13701 24 46 17 14 46 43 49 125B6 13239 12242 01100 01300 000140 01100 00000 J3110 -2213 01200 06309 10 H 16 49 11 14 46 41 16 31 14 "'1 11 3.31 1620 MONITOR 11 24680 24690 2'0700 24710 2"'720 24730 10UTl 24740 24750 24760 IOUT4 2'0770 2"780 2'0790 24800 2'0810 2'0820 TPCST 24830 2'0840 24850 24860 2"870 2"'880 24890 24900 24910 24920 24930 24940 2"'950 24960 24970 24980 24990 25000 25010 25020 25030 250'00 25050 25060 25070 25080 25090 25100 25110 25120 25130 25140 25150 25160 25110 25180 25190 25200 25210 25220 ...... INOUT IDA IDLER J08 100 YERS ION 2 FORTRAN 11-0 5YM. TPCST C 8Y IOUTER BilE I OUTER TR CHI-l.CHI+7 AM IOUT1+1101.10 OUTPUT 110 SYM80L 8TM PUT ... 8 I NOUT OORG '-3 SYM.5763,8 CM 8Y IOUTER 811E 10UTER OUTPUT ACCEPT SYMBOL TfM IOUT1+1l.0116,8. 8 IOU75 OORG '-3 TAPE OC 1.63415145, , 03'015145 OI/TPUT INPUT-OUTPUT LISTS CM CHI.69.10 .+2. 8H STATEMENT NUM8ER MISSING BTM ERROR.276.9. SF OUTSW TOM 10SM.l 8TM CSTNO.'+12 .+32.INSW BD SET DIGIT FOR FORMAT STATEMENT NUMBER TOM eU),l" .+32 B OORG ~-3 TEST IF SlAMNT NUMBER CORRESPONDS TO FMT .'+2., Be 1»" BO I/O STATEMENT NO. NOT A FORMAT NUM8ER arM ERROR,277,9. 8NR .+20,CHI+2 B 8EGIN OORG '-3 CM CHI.230 10 w+24 8E MISSING COMMA OR INVALID LIST ELEMENT BTM ERROR,278,9, 123,8,COMMA 8TM PUT, TR CHI-l.CHI+l CM CHI •.'00, 10 BNH lOB CHI,69.10 CM BH IOLER OUTSW SF 8TM eSORN,lOA TFM IOLOOP,0.10 CHI,24,10 CM IDLER 8NE PARCNT ,1010 AM 8TM PUT, 12",8.LEFT PAREN TR CHI-l.CHI+l AM I OLOOP.l 010 CM CHI,24,10 BE lOG CHI,40,10 CM 8NH 108+ 12 CHI,69,lO CM 8H IDLER ...... PAG~ PHASE 1-8 13108 13120 13732 131'0" 13156 13768 13180 13792 13804 13812 13812 13824 13836 13848 U856 13856 13868 13880 13892 13904 13916 13928 13940 13952 13964 13976 13988 14000 14012 14024 14036 14048 1'0060 14072 14084 1'0096 14108 14120 lH32 332 31 II 17 "9 09879 13332 13H2 15138 13635 08944 13108 13101 01400 01200 15146 000-1 -0000 00000 14 46 41 16 '09 09879 13332 133.32 13635 13516 ON163 01400 01200 0-116 00000 H 8 14 46 11 32 15 17 43 15 49 H 11 45 49 J.r, 46 11 11 31 14 41 14 46 32 11 16 14 47 11 17 31 II 1" '06 14 47 14 46 15139 131'0" 09230 06896 09911 05302 13812 000-8 13836 00009 01100 00K16 00000 00001 JJ180 03219 00001 00000 13836 09230 13856 02590 000-8 OOK77 15141 00000 15139 13892 09230 08944 15138 15139 13988 15139 13880 06896 05594 14155 15139 13880 03288 08944 15138 14155 15139 14520 15139 14000 15119 13880 000K3 01200 00K78 0-123 15HO OOOMO 01100 00009 01100 00000 J3836 000-0 OOOK4 01200 000-1 0-124 151"'0 000-1 000K4 01200 OOOMO 01100 00009 01100 50 1620 MDNITOR II VERS ION 2 FORTRAN II-D PAGE PHASE 1-8 OUTSW 25230 SF 25240 IDLDDP DC 2.0,-0 8TM CSORN,*+12 f., 25250 COllECT LIST ELEMENT 25260 8NR w+20,611 ) 25270 87 FUNCTION NAME IDLER", 25280 CM CHI,23,10 25290 8NE 10E 25300 8TM PUT, 123,8,COMMA 25310 10SW SF 25320 TR CHI-l,CHI>! 100 25330 8 25]40 CORG '-3 25350 IOE 8NF 10LER,IOSW 25360 CF 10SW CM CHI,33,10 25370 25380 BNE IOB+12 25390 BTM PUT, 133,8,EQUAL 25400 80 DOA-48,FXORFL., BRANCH to COllECT INDICES OF ARRAY LOOP 25410 B IDLER DORG .-3 25UO 25430 RETURN HERE fROM DO CODEING 254'00 10F CM CHI,4.10 25450 8NE 10LER 25460 8TM PUT, 104,8,RIGHT PAREN CHI-1,CHI+l 25470 TR PARCNTo1,10 25480 SM 25490 BN IDLER IOLOOP,1,10 25500 SM 25510 BNZ -+32 BNR IOLER-24,CHI+2 25520 25530 BEGIN B 25540 DORG ·.-3 25550 CM CHI,23,10 25560 BHE IDLER 25570 BTM PUT, 123,8,COMMA CHI-l,CHI+l 25580 TR 25590 SF 10SW 25600 8 100 CORG '-3 25610 124,8,LEFT PAREN 25620 lOG 8TM PUT, PARCNT ,1,10 25630 AM 25640 TR CHI-l.CHI+1 25650 AM IOLOOP,1,10 25660 CM CHI,24,10 25610 8NE 100 25680 8TM PUT, 121o,8,LEFT PAREN AM PARCNT,1,10 25690 TR CHI-1.CHI+( 25700 25710 AM IOLOOP,1,10 25120 B 100 OORG --3 25730 25140 OORG 16000 25750 118LK4 OSC 2,22 22 25760 OSA OEF4 14144 14155 32 06896 2 ODOOO H156 14168 l1tl80 14188 14200 14212 14224 H236 14248 14256 14256 14268 14280 14292 14304 14316 14328 14336 17 45 49 14 47 05594 14188 13880 15139 14256 08944 09911 15138 14096 J,,168 000-6 13880 09911 15139 14000 08944 12386 13880 09911 00000 000L3 01100 15139 13880 08944 15138 03288 13880 l1tl55 14452 13856 02590 000-4 01200 0-104 15140 000-1 01300 000-1 01200 15141 00000 15139 13880 08944 15138 09911 14096 000K3 01200 0-123 15140 00000 00000 08944 03288 15138 14155 15139 14096 08944 0-124 000-1 15140 000-1 000K4 01200 0-124 000-1 15140 000-1 00000 14336 14348 1'0360 l1>10 21>620 266'0 26640 26650 26660 261>70 261>80 26690 26700 26710 26120 26730 26740 26750 26760 26770 21>180 'VERSION 2 FORTRAN 11-0 PHASE 1-8 PAGE BD DKF. IOSW,. RETURN TD I/O SCAN DORG DOEE eo DKF,IOSW .. RETURN TD I/D SCAN 00. ENTER HERE TO DECODE DISK 110 STATEMENTS DDRG IOUTEN DKIDEN SF flAG FDR FETCH AND RECDRD OKlO". CM CHI ,43, 10 BNE DKIOl TFM DKPUT+1l,OH2,8, FETCH SYMBDl CM CHI+2,1t8,lO, CHECK FDR H 8NE ERROl TR CHI-l,CHI+3,. SHI FT DFF TWD CHARACTERS B DKlIST DORG ,0-3 OKID1 CM CHI,44,10 8NE DKI02 CF NO' FLAG FOR F I NO OKlO. " TFM DIlPUT+11,0144,8, FIND SYMBOL TR CHI-1,CHI+l .. SHIFT OFF ONE CHARACTER 11 OIlLlST DORG 0-3 DK102 BTM COlNAM,03,10 SYM.DRDCT+4 C BV ERROl, INE ERROl TR CHI-1,CHI+5" SHI FT OFF THREE CHARACTERS TFM OKPUT+ll,0146,8, RECORD SYMBOL DKLlST TOM DISKSN,l;l1, SET SW TO INDICATE DISK liD ' CM CHI,HtlO, CHECK FOR lEFT PAREN INE OKER TDM IDSW,I TR SHIFT OFF lEFT PAREN CHI-1,CHI+1" CM CHI ,69, 10 Bl -+24 AM DKPUT+ll,1.10 ADD ONE FOR llfERAl CHI.Io0,10 CM DKER Bl OK PUT ITM PUT ••• OUTPUT DISK I/O SYMBOL BTM PUT,0124,', OUTPUT lEFT PAREN OUTS .. SF liT 1'1 C$OIN,o+12 BO U20,FXORFl OKER B. DORG e-" CM CHI.04,10. CHECK FOR RT PAREN INE OKER ITM PUT ,01010,1, OUTPUT RTI PAllEN INF BEGIN,DKlO, , IRANCH TO BEGIN IF FIND SfMNT ITM PUT,OIU,I, OUTPUT COMMA TR CHI-l,CHI+l" SHIFT OFF RT PAREN DKl 8NR U24,CHI+2 8TM ERROR ,412,9. DISK 110 ST"NTS MUST HAVE LISTS TI DKSN1-1,SWSET-4" INIT SNITCHES DKA 12878 13118 13178 13240 13240 13252 132610 13276 13288 13300 13312 1332~ 13332 13332 13344 13356 13368 13380 13392 13400 13400 13412 13424 13436 13448' 13460 13472 13lt8" 13496 13508 13520 13532 13544 13556 13568 13580 13592 136010 13616 13628 13640 13652 13659 13660 13672 13684 13696 13708 13720 13132 137'14 13756 1371>8 13776 13716 ~ORG ~~~ INR 0+20,CHI+2 43 1~4H 099'11 43 1"44'1 09911 32 14 47 16 14 47 31 49 10488 15139 13332 13603 151H 04198 15138 13472 00000 000M3 01200 0-142 000M8 01200 15142 00000 14 It7 33 16 31 ,49 15139 13ltOO 10488 13603 15138 13472 0001'14 01200 00000 0-144 15140 00000' 17 04560 09879 04198 04198 15138 13603 0238] 15139 13820 09911 15138 15139 13568 13603 15139 1)820 08944 0894" 06896 055910 13660 13820 000-3 lit725 01400 01200 1514" 0-1"6 OOOOJ 000K4 01200 00001 1H40 00009 01300 000-1 OOOHO 01300 -0000 0-124 00000 J31>40 06309 00000 31 49 15139 13820 089410 02590 0891010 15138 13756 09230 14351 13856 000-4 01200 0-104 101t88 0-123 15140 15141 001'172 14126 00000 105 13796 15141 49 02590 00000 1" 46 15139 13832 09230 08944 15138 15139 14048 15139 13820 06896 05594 13960 11t354 13972 OOOK) 01200 OOM71 0-123 15140 OOOMO 01100 00009 01100 00000 J3928 000-6 00002 00000 143510 l3992 14028 00001 14352 00000 14352 13116 09230 14352 13776 14354 01200 001'173 14354 00000 H 46 47 31 16 15 lit 47 15 31 14 47 11 14 47 17 11 32 17 43 49 lit 107 11 104 17 31 45 17 53 \ 335 1620 "oNITOR II 26790 26800 26810 26820 26830 21>8100 26850 26860 21>870 26880 26890 26900 26910 26920 21>930 26940 ,2/>950 26960 21>970 -21>9ID 26990 2700D 27010 27020 27030 27040 27050 2701>0 2107D 21080 21D9D 27100 27110 27120 27130 27140 27150 27160 27170 21180 21190 27200 27210 21220 27230 27240 27250 27260 27270 27280 27290 27300 27310 27320 27)30 OKER 8 DDRG CII IE ITM 8T" TR OKB tM 8NH CII IEG'IN e-] CHI,2),10 0+24 ERRDR,411,9 PUT,Ol2J.8. tHI-1.CHI+l .. CHI.40,10 OKC CHI,69,10 VERSION 2 FORTRAN 11-0 PHASE 1-8 PAGE DUT PUT CDMMA SHI FT DFF ONE CHARACTER 8H DkER", LITERAL ITEM ON LIST SF DUTSN ITM CSDIN,nI2 BD e.32,6111 .. DIGIT IMPLIES AN ARRAY NAME TOM OKSII2,2 B "ZO DORG o-J TOM OK$N2,1 80 uZO,DKSNl I OKI1+12 DORG e-4 OK$N1,OKSW2 t IE OKA DKBl 8TM ERROR,47J,9. ARRAYS AND SIMPLE 'IARUllES ON SAME 110 TO OKSNhDUlI2 I DKA DORG e-J 0 THE FIiIlLOIlING HANDLES 'IMPlIEO DO lDOPS IN LISTS OKC TFM OKLDDP.0,10 CM tHI.24,10 INE OilER All PARCNT.i,lD BTM PUT,D124,8, 'OUTPUT LEFT PAREN TR tHI-ltCHI+l" SHI FT OFF ONE CHARACTER AM OUDDP,l,10 eM tHI.24.10 IE DKG OKO CM CHI ;40,10 INH OKC+12 eM CHI ,1>9, 10 IH OKER SF OUTSW 2,0,_ OKlOoP DC -0 BTM CSoRN.o.12 INR 0.20,6111 I DKER". FUNCTION NAME DORG e-3 BO U36,OKSW1 C OKSN1,OKSW2 BNE OK81 TO OKS WI ,OKSW2 DKDl CM CHI,23,10 8NE OKE BTM PUT,0123,8, OUTPUT COMMA TR CHI-1,CHI+l 336 13788 13796 13796 13808 13820 13832 13844 13856 13868 13180 13892 13904 13911> 13928 13940 13952 1391>0 13960 l3912 139•• U991 U992 14004 nU16 140Z8 14040 14048 14048 14060 14D12 140.4 14096 14108 14120 14U2 .14144 14156 14168 14180 14192 14204 14215 14216 14228 14240 14241 14248 14260 14272 14284 14291> 14308 14320 14332 11 17 31 1" 47 14 46 32 17 43 15 49 15 43 49 24 46 17 25 49 11> 14 0 'QUOO 15139 00009 13820 ,'01100 01>896 00000 2 17 45 49 05594 1,.248 13.20 J4228 000-6 00000 43 24 47 25 14 47 17 1428'1 14152 1'1016 14152 15139 14364 D8944 15138 11t352 14354 01200 1054 000K3 01200 0-123 15140 31 54 1620 MONITOR II 27340 27J50 27360 27110 21380 27390 27400 21410 27420 271030 21440 271050 27460 27470 27480 27490 27500 27510 27520 27530 275"0 27550 27560 27570 27580 27590 27600 27610 27620 27630 27640 27650 27660 27670 27680 27690 21700 21710 27720 21730 21740 27750 VERSION 2 FORTRAN II-D PHASE I-B PAGE SF DKE OKSWI OS 2,--3 OKSW2 OS 2,--1 8 OKO OORG '-3 DKE BNF OKER,OKE CF DKE CM CHI, 33, 10 BNE DKC+l2 8TH PUT,Ol33,B, DUTPUT EQUAL SYMBOL 80 DOA-48,FXORFl .. GO TO DO CODING FOR IMPLIED DO LOOP DKER 8 DORG .-) • RETURN HERE FROM DO CODING DKF CM CHl,Olt,lO BNE DKER BTM PUT,OIDIt,8, OUTPUT RT PAREN TR CHI-1,CHI+l SM PARCNT,l,10 DKER BN SM OKLOOP,l,lO BNZ -+32 BNR OKER-2/t,CHI +2 B BEGIN ODRG 0-3 CM CHI,23010 BHE OKER B 01101 ODRG 0-3 OKG BTM PUT,0124,8, OUTPUT LEFT PAREN All PARCNT,l,10 TR CHI-l,CHI+1 All OKlOOP, 1,10 CM CHI,24010 BNE OliO 8TII PUT ,0124,8, OUTPUT LEFT PAREN AM PARCNT,l,10 TR CHI-l,CHI+l AM OKLOOP ,1,10 8 OKO ODRG 0-3 DRDCT DAC 3,ORO IIRO DC 27760 27770 SWSET 21780 21790 W8LK5 27800 -0 DC -0' ODRG OSC 22 OU 14344 110352 32 1435t, 14356 lIt364 14364 14376 1"388 14"00 1"1012 1""2" 14436 I"""" 1"",,4 14"56 1"468 1"lt80 1""92 1"50" 110516 lIt528 H540 14552 14560 1/t560 1"572 14584 14592 lIt592 H604 H616 1"628 146"0 1/t652 It,661t 14676 14688 14700 110712 14720 110721 2,00 49 44 33 14 "7 17 43 "9 14 47 17 31 12 107 12 47 45 49 14 107 49 11 11 31 11 14 47 11 11 31 55 1436" 2 2 14156 00000 13820 14364 15139 14060 08944 12386 13820 IH64 00000 000l] 01200 0-133 06309 00000 15139 13820 089,,4 15138 03288 13820 1'0215 14560 13796 02590 000-4 01200 0-104 15140 000-1 01300 000-1 01200 15141 00000 15139 13820 1"296 000K3 01200 00000 089"4 03288 15138 14215 15139 14156 08944 03288 15138 0-124 000-1 15140 000-1 000114 01200 0-124 000-1 151"0 000-1 00000 11 It,215 "9 H156 00000 X 2 110727 J,OO' 14130 16000 2,22 16000 16000 OEF5 16006 27810 DC 1,' 16006 16007 27820 OEF5 OSC 0 1,0 16008 3 5 X J6008 1 337 1620 MONITOR II 27830 DC VERSION 2 FORTRAN 11-0 PHASE 1-8 PAGE 5,17650 16013 J7650 27840 DC 3,046 16016 27850 -46 OSA lOUT 16021 27860 DC I, ' 16021 16022 , 27870 WR8l115 TFM 27880 B 27890 YRA IORT,H23 IOPT,WBLK5,7 27900 WR8lK5 27910 27920 27930 27940 27950 27960 27970 27980 27990 28000 28010 28020 28030 28040 28050 28060 28070 28080 28090 28100 28110 28120 28130 28140 28150 28160 28170 28180 28190 28200 28210 28220 28230 282"0 28250 28260 28270 28280 28290 28300 28310 TeO 16024 16036 160t,8 16060 1602" 5 J0200 1 16 00565 00532 00000 00000 J6047 J6000 00500 00000 02359 0232ft 02359 17 02324 16 02359 17 02324 16 02359 17 0232" 11 03288 49 13028 14 15139 49 1408" 14 . 15139 49 11990 17 04560 49 12910 16 02359 17 02324 16 02359 17 02324 16 02359 17 02324 43 10860 49 10512 16 02359 17 02324 -9683 J0200 -9637 J0224 -9614 J02,,8 -9614 J0272 00000 000N6 00000 000N3 00000 000-3 00000 -9614 J0392 -9683 JOlt16 -9660 J0440 09898 00000 -9706 JO"SS 47 01200 49 36 49 0 0 0 • 0 0 0 0 0 OUT OF CORE BLOCK 6 CONTAINS THE FOLlOWI NG OUTSC CALL RETURN IF IF OVERFLOW IF EXPONENT CHECK IF SENSE SWITCH GOTO ODRG lOUT TFM FIION+35,BlIl4 .. lOUT 8TM FIION,IOUT TFM FMON+35,8LK2 BTM FIION, NONARA TFM FMON+35,BLKl" DIM BTH FMON,DIM TFM FMON+35,8LKl" COHMON 8TH FIION,COIIMON AM PARCNT,01,10, IF B IFI ell CHI,56,10, GOTO 8 GOTOEN CM CHI;53,10, CALL B CALLEN BTM COLNAII,03,10, RETURN . B RETRN TFM FMON+35,BlKl" FORMAT 8TM FIION,FORMAT TFM FMON+35, 8LK4" ODD BTM FMON, ODD TFM FMON+35,8LK3" AStAN 8TM FMON,ASCAN BD SCI, SINGST" OUTSC 8 OUTStl TFM FMON+35,8LK5" DISK INPUT/OUTPUT BTII FMON,OKIO OUTSC COOE IS HERE DORG ASCANI ENTER HERE TO DEtOMPOSE tALL STATEMENT CALLEN BNE ERROL TR tHI-l,tHI+! 10200 10200 10212 1022t, 10236 10248 10260 10272 10284 10296 10308 10320 10332 1034" 10356 10368 10380 10392 1040" 10416 10428 10440 10452 10464 10476 10488 10500 ... 16 17 16 000~1 11990 11990 12002 338 31 04198 15138 151100 56 1620 MONITOR II BTM C BV BE C BE TOM BTM CM BNti CM 8H SF 8TM 8NR 80 8TM TOM 28320 28330 28340 28350 28360 28370 28380 28390 28400 28410 28420 28430 28440 28450 28460 28470 28480 28490 28500 28510 28520 28530 CALLA 28540 28550 28560 tALL8 28570 28580 28590 28600 28610 28620 28630 28640 28650 28660 28670 28680 . VERSION 2 FORTRAN '11-0 PHASE I-B PAGE COLNAM,04t10 SYM.EXITCT+6 12014 12026 12038 12050 12062 12074 12086 12098 12110 12122 12134 12146 12158 12170 12182 12194 12206 12218 12229 ·+~8 EXITCo SYM.lINKCT+6 L1NKCo CAllSW,1 PUT, 138.8.CALL CHI,40tlO CAllER CHI.69.10 CALLER OUTSW CSORN,"12 CALLB.CHI+2 CALLA.INSW PUT,0153,8, FUNCTION OPERATOR CALL 611l ••-. DC 1,' •• B DORG 8NR B DORG 80 8TM 8NF B DORG TOM CM 8NE BTM BEGIN ·-3 ERR09.6111 8EGIN ·-3 .+24,FNTSW ERROR.279,9, "20,FNTSW 12230 12238 12238 12250 12258 12258 12270 12282 12294 12302 12302 12314 12326 12338 12350 12362 12374 12386 12398 12406 12406 12418 12430 12442 12454 12462 12462 12414 12486 12498 12506 12506 12518 12530 12542 SYM PREVIOUSLY USED NOT AS tALL NAME .-24,., TRYING TO tALL SINGLE STATMNT FUNCT ·-3 FNTSN,O CHI,24.10 ,tALLER PUT, 124.8,LEFT PARE" AM PARCNT ,1.10 CM CHI+2,4,10, TEST FOR NO FUNtTiON ARGUEMENTS BE CALLER TF" ASCAN+23,CLASEN 28690 8 ASCAN .. , GO TO ARITHMETIC StAN 28700 DORG .-3 28710 EXITeD 8NR CALlER-48,tHI+I0 28720 TOM TRINO,l,l1 28730 8TM PUT, 0131, 8, CALL EXIT SYM80l 28740 BTM PUT,0140,8, DUMMY 28150 8 8EGIN 28760 DORG ·-3 28770 llNKCo CM CHI+8,24,10 28780 8E .+32 28790 8NR CALLER-48,CHI+8 28800 B ERROl 28810 DORG .-3 28820 TOM TRINo,l,ll 28830 BTM PUT,0152,8, CAL L LI NK SYMBOL 28840 8TM PUT,0140,8 28850 8TM PUT,0140,8 TR 28860 CHI-l,CHI+9 1255~ 57 04560 09879 12086 12406 09879 12462 09909 08944 15139 09454 15139 091t54 06896 05594 1225B 12238 08944 000-6 1 DOD-It 12873 OHOO 01200 12881 01200 00001 0-138 OOOMO 01100 00009 01100 00000 J2182 15141 03219 0-153 00000 49 02590 00000 45 49 07936 02590 000-6 00000 43 12282 09230 12302 12270 09900 00K79 09900 00000 09900 15139 09454 08944 03288 15141 09454 10463 10440 00000 000K4 01200 0-124 000-1 000-4 01200 J4530 00000 49 09406 03131 08944 08944 02590 15149 OOOOJ 0-131 0-140 00000 14 46 45 49 15147 12506 09406 04198 000K4 01200 15147 00000 15 03137 08944 OOOOJ 0-152 0-140 0-140 15148 17 24 46 46 ZIt 46 15 17 14 47 14 46 32 17 45 43 17 15 17 44 49 15 14 47 17 11 14 46 16 49 45 15 17 17 17 17 17 31 089~4 08944 15138 339 1620 MONITOR II 28870 28880 28890 28900 28910 28920 28930 28940 28950 lKtol 28960 28970 28980 28990 29000 UCD3 29010 29020 29030 29040 29050 Uto" 29060 29070 29080 29090 29100 29110 29120 29130 29140 VERSION 2 FORTRAN 11-0 CM tHI,40,10 8NH CALLER CM CHI,69,10 8H CALLER TR OUUR .MASKlK TF oUUR+l,CHI TR CHI-l,tHl+l TFM lKC03+6,oUUR+3, CII CHI,40,10 8NH LKCD4 8NR 'LKC03,UC03+6,11 8 ERROl DORG .-3 TF .CHI, TR CHI-l,CHI+l AM LKC03+6,02,10 8 LKCOI DORG CM CHI,04,10 8HE ERROl 8NR ERROI,CHI+4 CF oUTAR+2 CF DUUR+6 CF DUTlR+l0 8T 'UT,oUTAR+3 8T PUT,oUUR+7 8T 'iJT,OUUR+lI 8 8EGIN 29150 OORG .-3 29160 EXITCT OAC ",EXIT EXIT 29170 LlNKCT oAC ",LINK LINK 29180 OUUR oss 14 29190 4.0 DC ..000 29200 MASKlK os ,--3 29210 4,0' DC -000 29220 4,0 DC -000 29230 2,0' DC ... 29240 29250 RETRN 29260 29270 29280 29290 29300 29310 29320 29]30 29140 29350 29360 PHASE 1-8 PAGE 12566 12578 12590 12602 12614 12626 12638 12650 12662 12674 12686 12698 12106 12706 12118 12730 12742 12750 12750 12762 12774 12786 12798 12810 12822 12834 12846 12858 12866 12867 .-3 ENTER HERE TO OUTPUT RETURN STATEMENT SYM,URNCT+4 ERROl "44,SU8FCT ERRoR2,577,9 8EGIN,NOIND 8 8EGINA DORG .-3 8TM PUT, 139,8,RETURN 8TM PUT, llto.a,DUMMY TOM RTSW,I BEGIN 8 DORG .-3 C 8NE 80 8TM 8D lit 47 14 46 31 26 31 16 14 47 45 49 26 II 11 49 14 47 45 33 33 33 27 27 27 49 12875 ... 15139 58 15139 09454 12882 12883 15138 12712 15139 12750 12706 04198 OOOMO 01100 00009 01100 12896 15139 15140 J2885 OOOMO 01100 1271K 00000 00000 15138 12712 12662 15139 15140 000-2 00000 15139 04198 04198 1288" 12888 12892 08944 08944 08941t 02590 01200 15143 00000 00000 00000 12885 12889 12893 00000 4 2 09~54 000-4 4 X 12882 12899 14 4 12896 '12903 0 4 12907 4 12909 12910 12922 12934 12946 12958 12970 12978 12978 12990 13002 13014 13022 3411 24 47 43 17 43 49 17 17 15 49 09879 04198 12978 09386 02590 02602 13027 01200 02293 OON77 03195 00000 08944 08944 05529 02590 0-139 0-140 00001 00000 1620 MON ITOR II 29310 URNtT OAt VERSION 2 FORTRAN 11-0 PHASE 1-8 PAGE 3,URN 13023 59 2 URN 29380 29390 29400 29410 29420 29430 29440 29450 29460 29410 294S0 29490 29500 29510 29520 29530 29540 29550 29560 29570 29580 29590 29600 29610 29620 29630 29640 29650 29660 29610 29680 29690 29100 29710 29720 29130 29140 29150 29760 29770 29780 29190 29800 29810 29820 29830 29840 29850 29860 29870 29880 29890 29900 29910 OUTPUT IF CODING IFI TOM TRINO,l,ll. SET TRANSFER INDICATOR ON 8TM PUT, 107,S,IF SYM80L 8TM PUT, 124,8,LEFT PAREN SVM80L 80 *+20.DOfRAN, , TEST IF 00 LOOP ENDING WITH TRANSFER 8 *+20 OORG ·-3 8TM ERROR2,571.9 TOM IFSW,l. , SET SIUTCH TO INOICAT IF STATEMENT rFM STC.3,10 CHI.OIt,IO, rEST FOR VACEDUS PARENS CM ERR02 8E • IFSS CODE 8TM COLNAM,8,10 C SYM.OVFL+l4 8NV -+32 GOIFAS TFM ASCAN+n.IFASEN 81 .. SCAN •• , GO TO stAN EXPRESSION 8NE -+44 TR SHIFT OFF 8 CHARACTERS CHI-l.CHH15. , TFM SYM,OOllt.8, INDICATOR 14 - OVERFLOW 87 IFPUT SVM,EXPONoI4 C 8NE IFSS SHI FT OFF 8 CHARACTERS TR CHI-l,CHIH5 .. 8TM COLNAM.5,10 SVM.CHECKC08 C ERROl 8Y SNE ERROl SHIFT OFF 5 CHARACT ERS TR CHI-l ,CHI>9., TFM SVM.0015.8, INDICATOR 15 - EXPONENT CHECK 81 IFPUT SVM.SENSW>14 IFSS C 8NE GOIFAS SHI FT OFF 8 CHARACTERS TR CHI-l,CHIH5 .. 8TM COLNAM, 3,10 §VM.TCHCH C ERROl 8Y SNE ERROl SHI FT OFF 3 CHARACTERS TR CHI-l.CHI>5 .. CM CHI.70,10 8H -+24SW ITCH NUMBER I N ERROl 8TM ERROR.174.9. TOM OIMSW.l 8TM CSTNO,.>12. TOM 01M5W,0 SF SYM-3 IFPUT 8TM PUT.0130 ••• SENSE SNITCH SYM80L pur OUT SNITCH NUM.ER , 8T PUT.SYM" LOOK FOR RIGHT PAREN CM CHI.4,10, 8NE ERR02 SM PARCNT.l,10 104.8.RIGHT PAREN SVM80L 8TM PUT. 13028 13040 13052 13064 13076 13084 13084 11096 11108 13120 13132 13144 13156 13168 13180 13192 13200 13212 13224 13236 15 17 17 43 49 17 15 16 14 46 17 24 41 16 49 47 31 16 49 13~24 13256 13268 13280 13292 13304 13316 13328 13340 13352 11360 13312 13384 13196 13408 13420 13'132 134'1'1 13'156 13468 13'180 13'192 13~04 13516 13528 13540 13552 13564 13576 13588 13600 47 ]I 17 24 46 41 31 16 49 24 47 31 11 24 46 41 31 14 46 17 15 11 1~ 32 11 21 14 41 12 11 03137 OS944 08944 13084 13096 OOOOJ 0-107 0-124 09899 00000 09386 09905 05533 15139 14264 OON71 00001 000-3 000-4 01200 04560 09819 13200 10463 10440 13244 15138 09819 13540 09879 13360 15138 04560 09879 04198 04198 15138 09819 13540 09879 13180 15138 04560 09879 04198 04198 15138 15139 13'192 09230 09904 05302 09904 09816 08944 08944 15119 14264 03288 08944 000-8 14291 01400 J4498 01200 15154 0-014 14307 01200 15154 000-5 14317 01400 01200 15148 0-015 14333 01200 15154 000-3 14339 OHOO 01200 15144 OOOPO 01100 OOJ14 00001 Jl516 00000 00000 0-130 09819 000-4 01200 000-1 0-104 341 1620 MON ITOR II 29920 29930 29940 29950 29960 29910 29980 29990 30000 30010 30020 30030 30040 30050 30060 30010 30080 30090 30100 30110 30120 30130 30140 30150 30160 30170 30180 30190 30200 30210 30220 30130 30240 30250 30260 30210 30280 30290 30300 30310 30320 30330 30340 30350 30360 30310 30380 30390 30400 30410 30420 30430 30440 30450 30460 30470 OUTSN TFM TR SF CM 8H 8TM 8TM 80 81 80 SF 80 SM STC.2.10. CHI-l.CHI>1 OUTSW CHI.69.10 a+2" ERROR.115.9, VERSION 2 FORTIIAN IJ-O PHASE 1-8 PAGE SET UP TO OUTPUT TIIO STATEMENT NUM8ERS INCORRECT STATEMENT NUM8ER COLLECT AND OUTPUT STATEMENT NUM8ER . .20.INSW a+20 OUTSNE-12.8lll 7111 OUTSN2.CGTO •• 8RANCH IF IN COMPUTED GO TO STC.1010 8M OUTSNE>20 SNR . . 32.CHI>2 8 8EGIN DORG e-3 8TM ERROII.011.9. CONTROL TRANSFEREO TO FORMAT OUTSHE 8TM ERROR2,513.9. INCORRECT NUM8ER OF STATEMENT NUM8ERS 8 BEGIN DDRG --3 CM CHI.23.10 SNE OUTSN>48 8NR OUTSN.CHI .... OUTSN>48 DORG --3 DUTSN2 CM CHI.4.10 8NE OUTSNE>20 514 PARCNT .1010 TR CHI-loCHI>l 8TM PUT .104.8 SNR e+2'1.CHI>2 OUTSN3 BTM ERROR.176.9, INDEX OF COMPo GO TO MISSING OR INVALD CM CHI ,23, 10 8NE .-24 TR CHI-l.CHl+l CM CHI.49,lO. TEST FOR FIXED POINT VAR 8L OUTSN3 CM CH1t55.10 8H OUTSN3 8TM CSORN'''12 80 OUTSH3.61l1 8T PUT,XRA1-l 8 OUTSNE-32 DORG .-3 ENTER HERE ,TO OUTPUT GO TO STATEMENT GOTDEN 8NE ERROl TOM TRINO.l.11, SET TRANS INDICATOR 80 "20.DOTRAN a+20 8 DORG .-3 8TM ERROR2,511.9 TR CHI-l,CHI+l CM CH(,24.10, res T FOR COMPUTEO GO TO 8E COM PUT TFM STC,l,lO • CSTNO.a.12. , 13612 13624 13636 13648 13660 13612 13684 13696 13708 13116 13728 13140 13152 13764 13116 13188 13196 13796 13808 13820 13828 13828 13840 13852 13864 13872 13.72 13884 13896 13908 13920 '13932 139'14 13956 13968 13980 13992 14004 14016 342 16 31 32 1'1 46 11 11 43 49 43 32 43 12 46 45 49 11 11 49 14 41 45 49 14 41 12 31 11 45 11 14 41 31 14 41 14028 14 46 14040 14052 14064 14016 14084 43 21 49 14084 14096 1'1108 1'1120 14128 14128 14140 14152 14164 14116 11 41 15 43 49 11 31 14 46 16 05533 15138 06896 15139 13684 09230 05302 13116 13128 13196 000-7 13812 05533 13828 13808 02590 000-2 15140 00000 00009 01100 00J15 J3696 03219 000-8 00000 09906 000-1 01100 15141 00000 09230 09386 02590 00-11 OON13 00000 15139 13612 13624 13612 000K3 01200 15143 00000 15139 13828 03288 15138 08944 13956 09230 15139 13944 15138 15139 139'\'1 15139 13944 05594 13944 08944 13116 000-4 01200 000-1 15140 0-104 15141 00J16 000K3 01200 151'10 000M9 01300 000N5 01100 J4052 000-6 00308 00000 04198 03131 14128 14140 01200 OOOOJ 09899 00000 09386 15138 15139 14208 05533 OONl1 15140 00 OKlo 01200 000-1 60 1620 MONITOR II VERSION 2 FORTRAN 11-0 PAGE PHASE 1-8 14188 14200 14208 14208 14220 14232 14244 14256 14264 142M 14277 105,8,GO TO SYMBOL 8TM PUT, 30480 BRANCH TO OUTPUT STATEMENT NUMBER 30490 B OUrSN+12" , OORG ·-3 30500 I06,8,COMPUTEO GO TO SYMBOL J0510 COMPUT BTM PUT, 124,8.LEFT PAREN SYMBOL, BTM pur, 30520 AM PAReNT.1,10 30530 30540 TOM CGTO,I BRANCH TO OUTPUT STATEMENT NUM8ERS 30550 B OUTSN"t 30560 OORG --3 ERROR,72,9 BTM 30570 ERR02 OAC 8,OVERFlOW 30580 OVFL OVERFLOW 30590 EXPON OAC 8,EXPONENT EXPONENT 5,CHECK 30600 CHECKC OAC CHECK 8,SENSESWI 30610 SENSW OAC SENSESWI 30620 TCHC DAC 3, TCH TCH [)oRG 16000 30630 30640 WBlK6 OSC 2,22 22 30650 oSA oEF6 30660 30670 oEF6 30680 30690 30700 30710 DC DC 30750 TCo 30760 OEND 49 0-105 00000 17 17 11 15 49 08944 08944 032B8 09906 13624 0-106 0-124 000-1 00001 00000 11 09230 00-72 8 X 2 B X 14293 14309 5 X 14319 8 X 14335 3 X 16000 16000 16006 J6008 16006 16007 I, ' I 16008 OSC 1,0 0 5,17550 DC J7550 3,046 DC -46 oSA lOUT 30720 WR8lK6 TFM 30730 B TRA 30740 61 08944 13636 17 16013 16016 5 X 16021 J0200 I 16021 16022 I, • 16024 16036 160108 16060 16024 tORT,*.23 JOPT,WBLK6,l WRBlK6 16 49 36 49 00565 00532 00000 00000 J6047 J6000 00500 00000 00000 343 1620 MONITOR II ADLllI AoSAVE AoSUBZ AoSUBP AoVAR 1 ADVAR2 AoVLOP AoXLIT ASC3lA ASCANI BEGINA C5DATA CAllEN CAllER CAllP2 CULSW CODATA CHECKC CKCNTU CKCTAR CLASEN CLDGTl ClDGT2 CDLNAM COMA DO COHER2 COMER] COMINA COMMEN COMMON COMPUl CONTEN CSTNOI OECOOA DECODE DEFINE DIMERR OIMNOT 01 SKSW DKIOEN OKlIST OKLOOP OOLOOP DOTEST oOTRAN E31061 E83230 E84130 E84180 E84240 E84330 E84560 E84695 E84110 E84804 E86440 08612 08503 08516 08480 08H8 08260 08216 086"4 14454 11990 02602 09795 11990 09454 02400 09909 09787 14309 04740 04034 14530 14582 14642 04560 02262 09442 12112 11900 11552 10272 14208 13772 05406 03954 03730 14038 07448 10545 02383 13240 13472 14215 11990 13239 09899 07876 10956 11928 11948 12020 12124 12424 12544 12736 12908 02430 E94270 E94620 ENSION ENTlOG EQLODP EQUIVN ERROR2 ESNDPL EXCESS EXITCo ExnCT FCTENO FCTEST FlNUH' FMTCST FNTSWI FOMATl FORMS1 FORM99 FORMAT FORMER FREQSW FUNCTA FUTEST FXNUMB FXORFl GENolM GOIFAS GOTOEN IATYPE IFASEN IFSCAN INTDPI IOLOOP IOUTEN IOUTER IVALEN LEAoBl LENGTH lINKCO lINKCT LITERL LUSTNO MASKLK MOOAFT MONCAL MOVOIM MOVEIl MULDEF "VGM20 NNARAA NoNARA NONARI Nap ARM NUMBER OUTS12 VERSION OB980 09371t 11541 02248 12176 10716 09386 03004 06626 1Z406 12867 02318 08744 06318 09829 09901 12194 13422 12334 10392 12698 14134 13706 06992 06214 06309 11060 13180 14084 loHltl 14498 12310 02385 14155 13240 13332 129B9 03058 02248 12462 12B75 07688 08068 12896 14006 00796 11104 11212 02384 13644 10512 10224 04066 14552 06006 13426 FORTRAN 11-0 OUTSCI OUTSCE OUTSN2 oursN] DUrsNE PARCNT PAUSEN PH8DAT PH800A PROGST PRSCAN PRSCNI PRSCN2 PUSTSN PUTOUT RETURN AZ UI ADLIT AOSTN ADVAR AERRI AERR AFTBL UFAl ARG1 ARG2 ARG3 ARGSC ASCIl ASC12 ASC'" ASC15 ASClA ASC1S ASCI ASC21 ASC22 ASC23 ASC24 ASC25 ASC26 ASC30 ASC31 ASC3 ASC4 ASC510 ASC6 ASC7 ASC8 ASCAN AStER AVOID Bl 82 BA PHASE 1-8 10512 04699 13872 13944 13808 03288 13838 16000 16008 02257 01454 02510 02546 02294 09272 10)68 11867 11155 on40 08676 08132 09430 12146 14935 10952 12474 1259B 12702 12358 14162 12'106 14106 14174 12026 12016 12830 13510 12322 12522 13114 1313" 13666 14290 14398 12714 12498 12578 12678 12750 14130 10440 14486 05922 11859 11871 02682 PAGE 8EGIN BUIA BLKI BUZA BLK2 8LKJA BLU BLK"A BLK4 BLK5A BlK5 BLK6A BLK6 8LK7A 8lK? BU8 BLOC C1 C2 CALC CALL2 CALL3 CAllA CALLB CALL CARD CCND CGTO CHI5 CHI CKCNI CKCN2 CKCN3 CKCN4 CKENO CUM CLOGT CMPAR COMA8 COMA COMC COMER COME COMIN CO"M COMST COMSW CONT CSORN CSPVA CS CSTNO CTION 01 02 03 ~~!I 02590 09622 09611t 09645 09637 09668 09660 09691 09683 09114 09706 09737 09729 09760 09152 02461 02148 11863 11875 1116" 13446 13490 12238 12258 10344 14936 05052 09906 15839 15139 04826 04954 05142 05242 03276 02906 14526 06494 11788 11720 11988 09"42 11944 11852 12032 02382 09910 11652 05594 03570 05138 05302 13163 11883 11895 11907 62 04 DEFI DEF2 DEF3 oEF4 DEF5 DEF6 DEFCT DElAY OIMI 01112 DIM3 DillEN DIMNO DIM OIMSW OIHTP oKA DKBI DK8 oKC OKOI OKD OKER DKE DKF OKG oKIOI DKIOZ OKlO ou DKPUT DKSWI OKSW2 DMVAR DOA DaB DOCI DOC DOEI DOE2 OOEE ODE 000 DO E8ASE ENDCT END EQI EQ21 EQ22 EQ23 EQ24 EQ4 EQ7 EQBR 11919 16008 16008 1600R 16008 16008 16008 14455 01668 10596 11412 11528 10512 10653 10248 09904 11173 13176 14016 13856 14048 14296 14156 13820 14364 14444 14592 13332 13400 10488 13732 13592 14352 14354 08132 12434 125B6 12350 122102 12982 13062 13178 12854 10416 12122 12235 09835 09"66 10860 11076 121"4 11408 11276 11676 11732 11552 1620 MONITOR II EQR 10788 EQUSW 09'908 E024 12138 ER25 12146 ER 38 12394 ER3. 12818 ER40 14486 ERMES 09801 ERROL 04198 ERR02 14264 ERR09 079]6 ERR44 14468 ERR60 14468 ERRET 00602 ERROR 09230 05530 ERSW ESNO 02688 ETYPE 12962 EXIT 09114 EXUT 07820 EXPON 14293 FCMA 13558 FCTST 07912 HIST 14558 FLNG 02250 02324 FMON FMSW 09902 FNSCI 14266 FNSC2 14354 FNSC 14086 FNTSW 09900 FOMAT 12130 FORMI 12498 FORM2 12838 FURM3 13010 FORM4 13862 FORM5 13378 FORM7 13626 FORM8 13734 FORM 03446 FORHX 13894 FP2 02298 FTYPE 12918 FUll 06968 FUL2 07076 HLlT 07992 GMI .09782 GM2 GM3 GM GOTO HERE HOLL! HOLL IFl IFPUT IF IFSC IFSS IFSW INOIV INOUT INSW INTOP lOA lOB lOCAL 100 IDE 10F lOG IOGT IDLER 10PT IORBe (ORT 10SK lOSW lOUT! IOUl2 lOun IOU'" IOUT5 lOUT I JAY JOE J JUMP JWG KlNG K Ll L2 VERSION 09790 09798 02300 10320 12620 14022 13962 1302B 13540 10296 12334 13360 09905 024H 13708 03219 09121 13836 13988 00716 14096 14256 14336 14520 00566 13880 00532 00520 00565 0055'1 09911 13624 13376 13H6 13644 13516 10200 11887 02367 07164 11899 02429 08920 02252 11911 04150 04210 FOR TRAN 11-0 L4 L5 L6 LOPHB LEAOl LITF LKCOI LKC03 LKC04 LSTAO LUXIT MASK MODE MON MVI MV2 MV3 MYGM NI N2 NOINO NUMBI NUMB2 NUMB3 NUMB5 NUM8 NXLOC OMM ORDtT OUlAR OUTse OUTSN OUTSW OYFL P2PTR PAJSP PAUS PCNT PI PLUS PLUSS PR PTYPE PUT RUDI REtLG REtMK PHASE 1-B 11676 11748 11784 16024 03302 07748 12662 12706 12750 02308 07504 11921 06307 12125 11484 11572 11620 13272 02233 02238 03195 06158 06462 06366 0619'1 06086 02372 09907 14721 12882 10464 13624 06896 14217 02313 08376 13894 13749 11091 06722 09831 12509 12794 0894'1 021'16 02243 0962-1 PAGE REF RETRN ROUTN RTSW SALT SAVEl SAVE2 SAVEl SC 1 SC22 SC2 SC3 SC4 SC5 SC9 SCHI SO SENSW SETOM SLASH SMLNG SMTLU SPERR SPGS SSCSW ST8L STC STNER STSN SU8Pl SU8P2 SUBPA SUBPF SUBSW SUBTR SWSET SYM TBtM TBENO T8ST TCHC TEMP2 TEMP5 TEMP lEND TENl TlNUE 08875 12910 13625 05,29 05798 11515 12H7 11755 10860 10608 05994 10904 10740 10800 11152 05905 10776 14319 10680 12602 05821 06864 09130 09214 02'194 02377 05533 0311.6 05531 13124 l3lt28 13004 11088 09912 08456 14730 09879 04402 04325 04556 14335 12415 04101 04089 02303 09891 13829 END OF ONE ASSEM8L Y. ;} 45 1620 MONITOR II 00010 00020 00030 00040 00050 00060 00070 Nl 00080 N2 00090 W 00100 RECLG 00110 00120 00130 00140 00150 SAVSYH LENGTH FLNG KLNG PROGST 00160 COMADO 00170 USEOFS 00180 SUBFCT 00190 00200 00210 00220 00230 00240 00250 00260 00270 00280 00290 00300 00310 00320 Dono 00340 00350 00360 00370 00380 VERSION 1620 FORTRAN 11-0 PHASE 1-C DDRG 02218 ,-100 DC 5 -010DC 1 ,2 K 2 ,67 DC 07 ,987898 DC 6 R87898 ,0 DC 2 -0 5 ,0 DC -0000 ,0 DC 2 -0 DC 3 .000 -00 OS 12 ,REtLG OS 5 OS 2 OS 2 5 ,00000 DC -0000 OS 5 ,0 OSC 30 000000000000000000000000000000 ,0 DC 1 FORTRAN "-0 PHASE 1-C PUSTSN OS 1 PUSTSN = 2 FOR PAPER TAPE PUSTSN • 4 FOR CARDS WW OS 2 FP2 OS 2 TENO 5 OS LSTAO OS 5 P2PTR OS 5 FCTEND OS 5 5 OS .+42,fMON-l., FMON TF SETUP ROUTI NE ENTRY TFM IORT,*.23 IOGT,,7 B to, GO TO EXECUTE CALLED ROUTINE 8 DORG ·-4 JAY OS 1 NXlOC OS 5 STBL 5 OS COMST OS 5 DI SKSW DC 1.0 00390 MUlOEF DC 1.0 OOitOO INTOPI OSC 1.0 0 00410 DC 5.00600 -0600 PAGE STORAGE ALLOCATION 02218 02222 02223 02225 02231 6 02233 0223B 02240 0221t3 02243 022'18 02250 02252 02257 12 5 2 2 5 02262 02263 30 5 02293 02294 02296 02298 02303 02308 02313 02318 02323 02324 02336 02348 02360 02367 02367 02372 02377 02382 023B3 02384 02385 02390 ;} 46 26 16 49 49 63 TPCST TRINO URNCT VAR8R VARSW W8LKI WBLK2 WBLK] W8LK4 WBLK5 W8LK6 WIOCK WIDTH W WW XRAI XRA2 lER13 SAVEGM SAVSYM SETAFT SETOM2 SETOM3 SETDH4 SETDM5 SETFRQ SETINO SINGST SMlOOP STNOSW STOPEN SUBFC T SUBPUT SUBTST SYTBS T TBLFUL TPARCT UROATA USEOFS WRBLKI WRBLK2 WR8LK3 WRBLK4 WR8LK5 WRBLK6 XCLOGT lERSYM 2 2 5 5 5 5 5 02366 00565 00566 00000 02323 -2359 -0000 00000 13707 03137 13023 06402 07563 16000 16000 16000 16000 16000 16000 14216 14205 02240 02296 0030. 00314 09895 07123 02243 13846 10824 11004 11264 11372 14134 08284 OQ898 06896 09Q03 L4006 02293 13160 08308 02500 06844 14550 09779 02263 16024 16024 16024 16024 16024 16024 14686 06843 1620 MONI TOR II YERS ION 2 FORTRAN 11-0 PHASE 1-C PAGE 00420 DC 3,002 00430 -02 DSA 02393 CARD 02398 I, ' 02398 02399 , 00440 DC 00450 00460 00470 00480 00... 90 00500 00510 00520 00530 00540 00550 00560 00570 00580 00590 00600 00610 00620 00630 00640 00650 00660 00670 CALLP2 TFM FMON+35. BlK8 BTM FMON.CAllP2 INDIY OS 1 • INDIY • 0 FOR CARDS, 1 FOR TYPEWRITER, • FLAGGED 3 FOR PAPER TAPE JUMP 5 OS ENTLOG OS ,USEoFS+4 AFTBl OS ,14935 CHI oAS 430,15139 CHI5 OS ,CHI+700 lOCAL OS ,716 10GT OS .566 IOR8C OS ,520 10PT OS .532 10SK OS .554 ERRET OS .602 IORT ,565 DS MONCAl OS ,796 E86440 SF 1t1+4 BT OUTADo, PROGST" INIT OUTPUT ROUTINE 8 AROUND DDRG ·-4 BlK8 DSC 2,22 22 00680 DSA BlKBA , 02400 02412 02424 02429 02267 14935 15139 15839 00716 00566 00520 00532 00554 00602 00565 00796 02430 02442 02454 02461 02461 00700 BlKBA DSC 0 1,0 02469 00710 DC 5,17800 02414 00740 1,' JUOO 3,136 J36 DSA CALLP2 DC , DC 00770 00780 00790 00800 00810 00820 SF SM TF TO AM 32 27 49 02359 02324 1 -2461 -2400 5 0 0 430 X 0 0 0 0 0 0 0 0 0 11311 00000 10706 02251 02484 00000 -2469 1 02477 1,' 00750 AROUND TDM 00760 DC 11 02467 02468 DC 00130 16 02461 00690 00720 5 X -3350 1 I. SYM+l,.-e 3 02482 5 02482 02483 -2400 1 02484 02495 15 03476 1 00000 02496 02508 02520 02532 02544 32 12 26 25 11 03416 02257 03482 11942 11942 00000 000-1 02251 0229" 000-6 65 62 45 61 11 60 16 22 11 26 12 26 12 12 12 11 24 46 44 02568 02580 02568 02604 02303 02628 Ollt35 Ollt35 03435 03440 03440 03445 03445 03440 03lt45 03435 03445 03120 02712 03532 034403lt4N 03475 03435 02936 0343N 02891 03413 03482 0343N 02995 02972' 02l-8 OO-J00--4 02l-3 000-5 00000 -0000 02371 000-5 02377 000-6 02371 00D-4 OOOJO OOOJO OOOJO 02303 01200 03440344N 00000 00000 0343N 00000 0344N 000-2 03lt3N 00000 02298 03482 02298 00000 03482 0343N 02995 03050 03050 03056 00000 0 03418 00000 0 00000 03435 0343N 1 02252 03482 02252 -3476 -0000 00100 00102 I.',. 02556 02568 02580 02592 02604 02616 02628 02640 02652 02664 02616 02688 02700 02112 02124 D2136 0214B, 02760 02172 02184 02796 02808 02820 02832 02B44 02856 02B68 02810 02892 02904 02916 02928 02936 02936 02948 02960 02912 02984 02996 03008 03014 03020 03032 03038 03044 03056 03068 03019 SNAOO,5,10 SMAOO OUrllT+21,E86820'6 LLl,PUSTSN OUTK._+16 E86801+ lI,E 86620+6 03080 03092 03104 03116 0312B 03144 12 32 26 43 1.' SrM+1", FLAGGED TERMINAL RM TO INDICATE CARD END PROGST,Dl,10 LOC,PROGST PTlU+2,PUSTSN PTRA+2,06,10 DETERMI NE TABLE END ITEND. 347 1620 MONITOR II 00830 00840 00850 00860 00870 00880 00890 00900 00910 00920 00930 00940 00950 00960 00910 009BO 00990 01000 01010 01020 01030 01040 01050 01060 01010 D1080 01090 01100 01110 01120 01130 01140 01150 01160 01110 01180 01190 01200 OU10 01220 01230 01240 01250 OU60 OU10 01280 01290 01300 VERSION 2 BLX axM BNR BSX AM ISNX TFM FORTRAN II-D ··12,LSUOI3I "12,-1013' .-12,413' "12,TENOU' TEND.S,ID "12 SMADD,D, SMADO,UBL 5 AM SMADD,5,lO • SMeNT,STBL TF SM SMtNT,6,lO TF MODAO, STBL MOOAO,4,I0 514 E86601 SN SMeNT ,10,10 514 MODAD ,ID,ID AM SMlOO,10,10 C MODlO,TEND .. TEST FOR END OF TABLE E81210 BE INF EB660I,SlItNT,l1. TEST fOR LITERAL BNF STMTNO.MODAO, 11 , TEST FOR STNNT· NO CF SMeNT .. 6 CF MOOlO .. 6 TF SYM,SMADD,ll CF SNADO EB6801-48,MOOAO,11, BUNCH IF FIXED BO SN 511AOO,2,610 TF •• 23,SMAOO,11 TF SYM-2· lOC,FP2 A TF SMAOD,LOC,6 TF E86801+11,FP2 E86801-12 B DDRG .-3 A LOt,KLNG SMAOD,lOC,6 TF TF E86801+ll,KLNG TFM E86820+6,SYM+I EB6BOI SM E86820+6, .. FP2 OR KLNG BNCI e+60 ReTY ,_-5 ABASE DS IINTY Lot-4 $PTY , __ 5 WDLN OS E86820 WNTY AM SMAOO,5,I0 TON SMAOO .. 6 , DC 01310 SM 01320 SF 01330 TF 01340 BD 01350 OUTllT BTM 01360 DSA PHASE 1-C PAGE 348 ~4 33 33 26 33 43 12 26 26 21 26 26 49 21 26 26 16 12 47 34 38 34 38 11 15 11 00100 00101 00100 000-5 00000 03435 000-5 03435 00000 03149 03050 03158 02294 1012B -3144 5 X 2 2 1620 MONITOR II 01370 01380 01390 LLl 01400 01410 01420 01430 01440 01450 01460 01470 01480 01490 PTCD 01500 01510 G"1 01520 01530 01540 01550 01560 01570 01580 01590 01600 01610 01620 CARD S"ADD SMCNT "ODAD SYM 01630 01640 01650 01660 01610 01680 01690 01100 01110 01720 TEMP TE"P2 TEMP3 TEMP5 SAVEl SAVE2 SAVE3 ADSAVE EBASE MDoE LDC B DORG TR TF CF TR SF TD TF" VERSION 2 E 86601 ·-3 eARD,CARD-81" eARO+4.l0C SY"+1 CARD+6.E86820+6.11 SYM+l PTeO+2.PUSTSN FORTRAN II-D PHASE l-e PAGE 03"'4 03149 03150 03158 03158 03170 03182 03194 03206 03218 03230 03242 03254 Oll61 03265 INIT FOR PUNCHING CARDS/PAPERTAPE IORT ,.+23 IDPT.PTCD-4.7 OUTlIT 8 DORG ·-4 DSA CARD B DC -0 DG" DN8 ONB DC DSS DS DS DS OS DS DS DC OS OS DS OS OS OS DS OS OS DC 49 31 26 33 31 32 25 16 49 49 -2995 -3050 02712 00000 03350 03354 03476 03356 03476 03267 00565 00532 03128 03269 03482 00000 030500000 02294 -3253 -3261 00000 5 X 03265 03267 -1350 2 03268 03318 03348 03349 1 50 30 1 5 5 5 30 2 5 1 •• 03350 03435 03440 03445 03475 03477 03482 03483 81 5 5 5 30 2 5 1 5 5 5 5 5 5 5 5 5 2.0 03488 03493 03498 03503 03508 03513 03518 03523 03528 03530 5 5 5 5 5 5 5 5 5 2 2 .00 50 30 1 •• 81 -0 01730 STMTND TF SYM. SMA DO. 11 01140 CF SMAoo .. 01750 AM MODAo.2.10 01160 MF "35,MOOAO,ll, 01770 SM MDDAO,2,10, 01780 TFM SMADO, .6 01190 ',0000',. DC -DOD' 01800 TF "35,SMAOo AM 01810 ·.23,5,10 01820 STMNTl BO STMNT2,O, 01830 ReTY FLAG INDICATES STATEMENT NUM8ER REFERENCEO 03532 03544 03556 03568 03580 03592 03603 26 33 03604 03616 03628 03640 26 11 43 34 11 71 12 16 03475 03435 03445 03603 03445 0343N 5 0343N 00000 000-2 0344N 000-2 00000 03639 036]9 03676 00000 034]5 000-5 00000 00102 349 1620 MONITOR II VERSION 2 FORTRAN 11-0 PHASE l-C 01840 WHTY BTM 01850 01860 STMNT2 TF 01870 SF 01880 SF 01890 B 01900 OORG 01910 E87210 TFM 01920 DC SYM-3 ERROR2, 579, 9 STMNT1+l1,SYM+l,6, STMNTl+ll .. 6, 5MAoO, E86601 e-3 01930 E92210, SUBFCT .. TBASE ,FCTENO TEST IF IN SUBPROGRAM COMPILAT'ION BUFOUM, .. GO TO OUTPUT BUF FER 019~0 01950 01960 01970 01980 01990 E81270 02000 02010 02020 02030 02040 02050E87310 02060 02070 02080 02090 02100 02110 02120 02130 021~0 Bo TF B OCRG TF AM TF AM TF AM B oORG SM SM, SM TF C BE SNR 51! BHR AM B oORG AM BO B DORG SM SM SM B OORG BNR 02150 02160 02170 02180 02190 02200 02210 02220 02230 02240 02250 02260 E87~20 02270 B OORG 02280 BNF 02290 02300 BD 02310 SNF 02120 CF 02330 TF 02340 8D 02350 TF 02360 E87490 SI! 02370 TF 02380 TF PAGE TABLE STMNT NO. AND REC MARK SET FLAG OVER RIM FOR PASS 2 SYM+2"lO, 1.· .• e-~ SMA DO. TBASE SMAoO,l,10 SMCNT,TBASE SMCNT ,5,10 MODAO, TBASE MOOAo,2,10 E87310+36 e-3 SMAOO,10,10 MooAD .10,10 SMeNT,10,10 SYM,ZER13-1 SMAoO, TEND .. E93010 E8H20,SMeNT,l1, 511AoO,01,10 "32,SMAoO,l1 SHADO,l,10 E87310 ·-3 SMAoO,1,10 "20."00Ao,I1, E87310 03732 03744 03756 03763 03764 03776 03788 03800 03812 TEST FOR END OF TABLE TEST FOR CoNST OR VARIABLE ASSIGNED TEST OF FUNCT OR SUB CAll NAME E8731D, ·-3 BRANCH IF NOT IN COMMON BRANCH IF COMMON VAR IS ARRAY BRANCH IF COMMON VAR WAS EQUIV SHADD, .6. WOLN,KLNG -+24, SHADD. 11 WDLN. FP2 MODAD.ZolO *+23,MODAO,11 SYM 350 031t72 11318 0363R 0363R OH35 02712 00100 00N79 0]476 00000 00000 00000 16 03477 1 000-0 43 26 49 07836 07655 09928 02293 02318 00000 26 11 26 11 26 11 03435 03435 07655 000-1 07655 000-5 07655 000-2 00000 11 26 32 32 49 03836 03844 ~9 0384~ 12 12 12 26 24 46 45 12 '15 03856 03868 03880 03892 03904 03916 03928 03940 03952 03964 03972 03972 03984 03996 '010004 010004 010016 04028 040100 04048 04048 04060 04068 04068 04080 04092 04104 04116 04128 04140 04152 04164 04176 5MAOo,10.10 SMCNT ,10. 10 MOOAD,10,10 E87310 .-3 E89820.MOoAO,11, E87670,MOoAD,ll, E89660,SMAoo,l1, 38 0382~ --3' -+20,MODAD.l1. 03652 03664 03676 03688 03700 03712 03720 03720 03131 11 034~0 03440 03~45 03445 03880 03435 OH45 03440 03475 03435 08842 04048 03435 03972 03435 49 0384~ 11 43 49 03435 04004 12 03435 03440 0384~ OOOJO OOOJO OOOJO 11925 02303 01200 0344000-1 03HN 000-1 00000 000-1 0344N 00000 0384~ OOOJO OOOJO OOOJO 00000 45 49 04068 038104 0344N 00000 44 43 44 33 26 43 26 12 26 26 05944 04280 05840 0343N 03038 04152 03038 03445 04187 03475 0344N 0344N 0343N 00000 D2252 0343N 02298 000-2 0344N 00000 12 12 49 034~5 4 1620 MONITOR II VERS ION 2 FORTRAN 11-0 PHASE I-C PAGE --1,5 t 1 a 02390 02400 02410 02420 02430 02440 AM TF TF AM TOM DC 02450 02460 8TM DC PGPRT,.+l2" 1.0 02470 DSA TEMP-4 04265 5 X SYM-ll 04265 04270 -3484 5 X 02480 HODAD,*-13,611 TEMP, .-25.11 M0040,2.10 SMCNT,,6 1. t OSA 02490 B 02500 DORG 02510 E87610 BNF 02520 CF 02530 TO 02540 CF 02550 SM 02560 TF 02510 TF 02580 SH 02590 TF 02600 TF 02610 AM 02620 14M 02630 A 02640 TF 02650 BD 02660 TF 02610 8 02680 DORG 02690 TF 02700 14 02710 SF 02720 S 02730 TF 02140 A SM 02750 02760 AM 02170 TOM 02180 DC 02790 02800 02810 02820 TYPE AND OR PUNCH E 891lt0 '-3 E 88420, SHADD .11. SMADD,,6 SAVE NUMBER OF DIM INDICIES MODE MODAD.2,I0 ADSAVE.MOOAO.ll. SYM,AOSAVE.ll, MOVE VAR NAME TO SYM SMCNT .10.10 TEMP,SMCNT.ll. SAVE COMMDN ADDRESS SET ENTRY TD CDMMDN SAVE DIMENS ION INDICES MODAD.SMCNT .611. MODE.trIO, Mooe,5,IO ADSAVE,99 SMCNT .ADSAVE .611. 04248 04260 17 04270 04212 04280 04280 04292 04304 04316 OH28 04340 04352 04364 04316 04388 041000 04412 04424 04436 04448 0'\460 8RANCH IF COMMON ARRAY WAS EQUIV MODE,MODAD,II, 11 26 26 PICK UP NO OF ELEMENTS -+32,5"AOO.11 WOlN,FP2 -+20 0,,1t12 '-3 WDlN.KlNG SMCNT.WDlN,6 95 D4480 04480 04492 0"504 04516 0"528 99, WDlN., TEMP2,99 TEMP2,TEMP .. MODAD,8,I0 SMAOD.4,I0 SMAOD. ,6 CALC TDTAL ARRAY VDlUME TEMP2 CONTAINS LAST ELEMENT OF ARRAY 0~540 1,',. 04552 OH64 04576 04581 DC SMAOD.14.10 PGPRT.0+12 1.1 04588 04600 04612 J DSA TEMP-4 0"617 SYM-II 04617 04622 SM 8TM 02830 ,. 04188 04200 04212 04224 04236 04241 DSA 11 15 04187 0344N 03488 03445 03HI 000-5 0418P 0418P 000-2 00000 11380 I -4260 -3464 05884 00000 04636 0343N 03530 03530 03445 03523 03475 03440 03488 0344N 03530 03530 03523 034404480 03038 04492 0343N 00000 0344N 00000 000-2 0344N 0352L OOOJO 03440344000-1 000-5 00099 0352L 0343N 02298 00000 26 23 32 22 26 21 12 11 15 03038 034400095 00099 03493 03493 03445 03435 0343N I 02252 03038 00000 03038 00099 03488 000-8 000-4 00000 12 17 03435 11380 I 000J4 -4612 49 44 33 25 33 12 26 26 12 26 26 11 13 21 26 43 26 49 5 x -H81t 5 X 351 1620 MONITOR 11 VERSION 2 FDRTRAN 11-0 PHASE I-C PAGE 04622 04621 02840 DSA 02850 02860 02870 02880 02890 02900 02910 02920 02930 029"0 02950 02960 02970 02980 02990 03000 03010 03020 03030 03040 03050 03060 03070 03080 01090 01100 03110 03120 03130 03140 03150 03160 03170 03180 03190 03200 03210 03220 03230 03240 03250 03260 03210 03280 03290 03300 03310 03320 03)30 03340 03350 03360 B E89740 DORG '-3 ENTER FOR COMMON ARRAYS WHICH WERE EQUIVALENCED CM SMCfojT .0.69 BNE E90620 ••• 8RANCH IF fojOT 8ASE SF E89660+1 8 E87670+24 DORG '-3 TF E8ASE.SMADD .. ENTER HERE AfTER ASSIGNING BASE VARIABLE CF E87610 BNF .+~4, E89660 CF E89660 SM EBASE.IO.IO B ·+20 DORG '-3 SM EBASE,I.IO SF E8ASE A EBASE.STBl SF EBASE-3 ... GEN TABLE NUMBER TF SAVE I. SMAOO TF SAVE2.SIItNT TF SAVE1.MODAD BNF • +60.E89660+l E89660+1 CF SM SAVEI,IO.IO SM SAVE2.10.10 SM SAVE1,IO.10 SM SMCfojT.IO.IO SM SMADD.IO.IO SM MDDAD.I0.10 C SMADD.TEND 8E E89610 BNR ·+20."0040,11. BRANCH IF NOT SUBR OR FUNCT NAME B E88540 DORG '-3 BNR E 88660. SMCNT .11. BRAfojCH IF ND STORAGE AllOCATIOfoj DONE BNF E88600. SIICNT .11. BRAfojCH IF fojOT STATEMEfojT NUMBER B E88540 DORG BD '+20. MDDAD.11 B E88540 DORG '-3 SM SMAOO,IO.IO SM SMCNTtlO,IO SM MDOAD,lOtlO E88540 B DORG '-3 BNF *+20,SMAOO,11. SEARCH FOR EQUIV. VARIA8LE 8 E88600 DORG '-3 EBASE-l,SMCNT,ll, C IS EQUIV VAR EQUIV TO PRESENT BASE BNE E88600 E88420 E88470 E885~0 E88600 E88660 TEMP2-4 .-" 352 04627 0"628 0"636 04636 046"8 04660 04672 04680 04680 0"692 01t70" 04716 04728 04740 0it748 04748 04760 04772 0478" 04796 04808 04820 04832 048"4 04856 04868 04880 04892 04904 04916 04928 0"940 0"952 04964 0"972 04972 04984 04.996 05003 0500" 05016 05024 05024 05016 050<\8 05060 05068 05068 05080 05088 05088 05100 -3464 5 X 49 -)489 05884 00000 14 47 32 49 034406380 05841 04304 00-00 01200 00000 00000 26 33 44 33 12 "9 03528 04280 04148 05840 03528 04760 03435 00000 05840 00000 OOOJO 00000 12 32 21 32 26 26 26 33 12 12 12 12 12 12 24 46 45 49 03528 03528 03528 03525 0]508 03513 0]518 04892 05841 03508 03513 03518 03440 03435 03445 03435 05772 0"972 04892 000-1 00000 02377 00000 03435 03440 03445 05841 00000 OOOJO OOOJO OOOJO OOOJO OOOJO OOOJO 02303 01200 0344N 00000 45 44 49 05068 05004 04892 0344034400000 43 49 05024 04892 03441'1 00000 12 12 12 <\9 03435 03440 034<\5 04892 OOOJO OOOJO OOOJO 00000 44 49 05088 0500lt 03<\3N 00000 24 47 03527 05004 01200 44 03"~- 6 1620 "OHITOR [[ 03110 E88110 SM TF 03380 TF 03190 TF 03400 03410 BD 03420 AM 03HO CM 0341t0 BNE 03450 TF 03460 B 03470 DORG 01480 M 03490 SF A 03500 TF 03510 TF 03520 AM 03510 TOM 035 ... 0 03550 OC . VERSION 2 FORTRAN 11-0 "OVE SY" NAME TO SYM TEST IF VAR WAS DIMENSIONED AOSAVE,5.10. ADSAVE,O,67. TEST FOR ZERO OFF SET SAVE SYMBOL AoORESS e+32 TEMP] .TEMP ."56, ·-3 ADSAVE,WDLN,6, 95 99. TEMP TEMP3.99 SMAOo.TEMP3.6. SHADD.l.IO SHeNT •• 6. PAGE PHASE I-C SMADD.I,10 AoSAVE. SHADD. 11. SYM.ZER13-1 SY".ADSAVE . l l . E B8900. MODAO .11. MOVE 08J TIME ADDRESS TO TABLE 1,',- 05112 051210 05136 05148 05160 05172 05184 05196 05208 05220 05228 05228 05240 05252 05264 05276 05288 05300 053ll 12 26 26 26 43 11 14 47 26 49 03H5 03523 03475 03475 05344 03523 0352L 05228 01498 05276 000-1 0343N 11925 0352L 0344N 000-5 -0000 01200 03488 00000 23 32 21 26 26 11 0352L 00095 00099 03498 0343N 03435 03441 03038 00000 03488 00099 03498 000-1 00000 11 lI380 I -5324 15 03560 03570 8TM PGPRT,.+12 DC 1.0 05312 05324 03580 oSA TEMP3-.... SYM-ll 05329 5 05329 05334 05336 05344 05344 05356 05368 05380 05392 05400 05400 05412 051023 05 ... 24 05'1]6 05448 05UO 05472 05484 05496 05508 05520 05532 05544 05556 05568 05580 05592 05604 05616 05628 ...9 -349'" -3464 05752 00000 12 14 47 26 49 03 ... 40 0310405400 00099 05436 OOOJO -0000 01200 031088 00000 23 32 034400095 0 00099 01498 03530 03530 03503 03530 03530 03523 0344034"'00095 00099 03503 05628 03482 05628 03482 03503 03038 00000 03590 8 DORG 03600 03610 E88900 SM CM 03620 8HE 03630 TF 03640 03650 a DORG 03660 03670 M SF 03680 03690 TEMP4 OS A 03700 03710 TF TO 03720 CF 03730 03740 E89010 TF AM 03750 03760 MM 03770 A TF 03780 II 03790 03800 SF 03810 S 03820 A 038)0 BNF 03840 C 8H 03850 TF 03860 C 03870 E89600 .-3 5MCNT,10.10. 5"&NT,O,67, ENTER FROM E88730 TEST FOR ZERO OFF SET e+32 ,9.TEMP e"4,. .-3 SMCNT.WDlN.6 95 .. 99, TEMP" TEMP3.99" MOoE.MaoAo.ll. MODE TEMP5.TEMP3 •• MDoE.I.l0 MDoE.5.10 ADSAVE.99 SMCNT .ADSAVE,6ll SMCNT.WDlN,6 95 99,WDlN TEIIP5,99 .. -+48. TElSW" GEH ADD OF FIRST ELEMENT OF ARRAY AND MOVE TO TEMP1 TEMP5 CONTAINS BASE ADDRESS TEMP5 CDNTA I NS ADDRESS DF LAST ELEIIENT aUNCH IF IN CDMIION lDC,TEMP5 _+24 lDC.TEMP' TENP5,CDMST 21 26 25 33 26 11 II 21 26 23 3. 22 21 44 2'" 46 26 24 8 03488 00099 0344N 00000 03498 000-1 000-5 00099 0352L 0303B 00000 0303B 00099 07204 03503 01100 03503 02382 353 1620 MDNITDR II VERSIDN 2 FDRTRAN 11-0 PAGE PHASE I-C •• 24 03880 0)890 0390D 03910 03920 03930 8NH aTII TF All TOM DC 1,',. 05640 05652 05664 05676. 05688 05699 03940 03950 03960 03970 SIll SM aTM DC J DSA SMADD,14,10 IIDOAO,10,I0 PGPRT ••• 12 1.1 05700 05712 05724 05736 03980 ERROR2,515,9. SIIADD,TEMP3,6 SIIADD,5,10 SMADD ••.6 CDMMON VAR. DVERLAPS MEIIDRY 17 26 11 15 12 12 17 05664 llll8 03tt3N 03435 0343N 1 D3435 03445 11380 I 01100 00N75 03~98 000-5 00000 OOOJ~ OOOJO -5736 TEIIP3-4 05741 --349'" 5 X -3464 5 03990 oSA SYM-ll 05741 D5746 0 ...000 OSA TEMP5-4 05746 05151 04010 04020 04030 04040 04050 04060 04070 D4080 04090 04100 04110 04120 04130 04140 04150 04160 01t170 04180 04190 04200 04210 04220 04230 0 ... 240 04250 04260 04270 04280 04290 04300 04310 04320 04330 04340 04350 47 E89600 8NF E8B540,EQRET E92010 8 OORG ·-3 RESTDRE ADDRESS AND CDNTlNUE SCAN TD E89610 TF SMADD,SAVEI •• TF SMCNT, SAVE2 .. DUTPUT VAR STORAGE TF IIDOAO.SAVE3 .. 8NF E87310+36,TElSW,, CF TELSW E87310+36 8 DDRG .-3 E89660 CM SMCNT,O,69, ENTER FRDM E87470 IIHEN SIMPLE VAR liAS IN CDMMDN AND EQUIVALENCED 8NE E90620 .. , SF E89660 E87490-36 8 DORG ·-3 FLAG SET AT 91210 IIHEN EQUIV VAR WAS E89140 8NF *.20,OUTCE, • E91250 .. , FDUNo BEFDRE CDMMaN IN TABlE a DDRG .-3 8NF •• 20, E89660+1 8 E88470 DORG ·-3 BNF E87310,E89660 E88470 8 DDRG .-3 ENTER FROM 87450 TO DUTPUT VARIABLES NDT IN CDMMON EB9820 8NF E90620,SMADD,ll. BRANCH IF VARIA8LE WAS EQUIVALENCED SMAOD, .6, CF 1I0lN,KlNG TF •• 24. SMAoo.ll 80 TF WoLN,FP2 A LOC.WDLN TEMP,LOC TF SI! 511AoO.1.10 TF *+23.SMADO,ll. E89930 TF MOVE SYM NAME SYM ••• 05751 05752 05764 05772 05712 05784 05196 05808 05820 05832 05840 05840 05852 05864 05876 05884 058B4 05896 05904 05904 05916 05924 05924 05936 05944 05944 05956 05968 05980· 05992 06004 06016 06028 06040 06052 35 {I 44 49 -3499 04892 07756 07376 00000 26 26 26 44 33 49 03435 03440 03445 03880 0720 ... 03880 03508 03513 0351B 07204 00000 00000 14 47 32 49 034406380 05840 04116 00-00 01200 00000 00000 44 49 05904 07092 07060 00000 44 49 05924 04680 05841 00000 44 49 0384 ... 04680 05840 00000 44 33 26 06380 0343N 03038 06004 03038 03482 03488 03435 06063 03475 ·0343N 00000 02252 0343N 02298 03038 03482 000-1 0343N 00000 43 26 21 26 12 26 26 q 1620 HONITOR II VERSION 2 FORTRAN 11-0 .PAGE PHASE 1-C 04360 04370 04380 04390 04400 TF 80 AM TOM DC SMAOO.LOC.6. E90010.MOOAO.11. 04410 04420 BTM DC PGPRT,*+12 04430 DSA TEMP-4 06129 SYM-ll 06129 06134 04440 HOYE 08J TIME ADDRESS TO TA8lE SRANCH IF VARIA8lE IS AHARRAY SMAQD,1.10 SMCNT .. 6 1.' ,. 1.0 OSA 06064 06076 06088 06100 06111 26 43 06112 06124 17 8 04450 DDRG 04460 04470 E90010 SH 04480 TO 04490 AM 04500 HM 04510 A TF 04520 04530 M SF 045"0 04550 S 04560 A 04570 TOM 04580 DC E90580 --3 SHAOD.5.10. POI NT TO HO OF ELEMENTS MODE. MOOAO .11. SAVE DIMENSION INDICES MOOE.OI.10 MOOE.05.10 E89930+11.99 SMAOO.E89930+ 11.611 SMAOD. WOLH. 6 95 99.WOLH lOC,99 f t Lot UPDATED TO END OF ARRAY SMCNT .. 6 1.' ,. 06134 06136 06144 06144 06156 06168 06180 06192 06204 06216 06228 0621tO 06252 06264 06215 04590 04600 04610 04620 04630 5"AOO,4,10 MOOAO.10.10 .S"'CNT.IO.10 PGPRT.HI2 1.1 06216 06288 06300 06312 06324 SM SM SM BTM DC 11 15 0343N 06144 03435 03441 03482 0344N 000-1 00000 11380 1 -6124 10 -H81t 5 49 12 25 11 13 21 26 23 32 22 21 15 12 12 12 11 -3464 06340 00000 0l't35 03530 03530 03530 06063 0343N 0343N 0009500099 03482 03441 000-5 OH"N 000-1 000-5 00099 0606L 03038 00000 03038 00099 00000 03435 03445 03440 11380 I 000-4 OOOJO OOOJO -6324 J 04640 OSA TEMP-4 06329 -3484 5 -3464 5 X 04650 OSA SYM-ll 06329 06334 0.. 660 OSA LOC-" 06334 06339 0 .. 670 E90580 BNF _+20. TElSW 191730 04680 B 0 .. 690 DDRG --3 04700 8NF E87310.EQRET 0 .. 710 B E91810 OH20 DORG --3 04730 ENfER FROM E89820 TO AS SIGN EQU I V YAR IAIIL es HOT I N COMMON 04no E90620 TF SAVE ADDRESSES THEN SCAN TABLE TO SAVEl. SMADD .. 04750 TF SA VEl. SMeNT .. FIND ALL VARIABLES EQUIVALENCED TO THIS 04760 TF BASE. THE VARIA8LE WITH THE LARGEST SAvn.MDOAD •• 04770 TF ADSAYE.SMAOD, • NEGATI YE OFF-SET. I F ANY. WILL THEN BE 06339 063..0 06352 06360 06360 01>372 06380 06380 06392 06404 06416 5 X 44 49 -3418 06360 07480 07204 00000 44 49 038.... 07524 01316 00000 26 26 26 26 03508 03513 03518 03523 031t35 03440 03"45 03435 355 1620 MDN ITDR II 04780 04790 04800 04810 04820 04830 04"0 04850 04860 04870 0... 80 04890 04900 0 ..910 0 .. 920 0 .. 930 04940 04950 04960 04910 04980 04990 05000 05010 05020 05030 05040 05050 05060 05010 05080 05090 05100 05110 05120 05130 051 .. 0 05150 05160 05170 05\80 05190 05200 05210 05220 05230 05240 05250 05260 05210 05280 05290 05300 05310 05320 05330 SAYE4 E90150 E90850 E90900 E91050 E91120 CM 8ME TF TF SM SF A SF OS TFM 8D SM SM S" C liE BNR 8 DDRG 8NR INF B DORG 10 8 DDRG SM SII SM I DDRG BNF I OORG C INE 80 SII TF AM All C BNL TF TF 8 DDRG SM C BNL TF TF 8 DORG TF S YERSION 2 SNCNT .0.69. £91120 ... $AYE4.SMADD EIIUE.SMADD .. EIIUE-1.1.10 ElASE EBASE.ST81 EBASE-3 FORTRAN 11-0 PHASE I-C ASSIGHED STORAGE FIRST ELSE 8ASE VAR WILL BE ASSIGNED FIRST SAVE REF NUMBER ,. TEIIP, 0, E'OI50.MODAO.11. S"ADD,10.10 SMeNT.l0.10 IIODAD.l0.l0 SIIAOO.TENO E9141 0 "20.MDDAD.11. E90750 --3 E 90900, SIICNT .11. "20.SMCNT.11. n0150 --4 "ZO.MODAO.11 n0750 --3 SIICNT.l0,10 SMADD.l0.10 MODAD.l0.10 E90150 --3 -+20.SMAOO.11. E9D850-20 nST FOR D1M SU8R DR FUNCTI ON NAME HAS STORAGE BEEN AlLOCATED BRANCH IF NOT STATEMENT NUII8ER LOOK FOR EQUIV VARIAIlLE .-)' SMeNT.EIASE-l,6. E9015o-Z0 E91050, IIODAD .11. SMAOD.l.10 ABASE, SMADO .11. ABASE,5.10 SNADO,l.IO ABASE.TE"P.6. 190750 TEMP, ABASE .11. SAVE4.SMAOO •• E90750 --3 ·SMtNT.l0.10 SHCNT.TEMP.6. E90850+12 TEMP.SMtNT.ll. SAVE ... SMAOO E90850+12 --3 "DSAVE. STBl AOSAVE-l. SMCNT .11. TEST FOR EQUIVAlENCE TO lASE YARIABLE TEST FOR DI"ENSION FIND NEG OFF-SET SAVE NEW OFF-SET SAVE TABLE ADDRESS OF NEN VARIABLE TEST OFF-SET MOVE IN NEW OFF SET GEN ADDRESS OF BASE PAGE 06428 06440 06452 06464 06476 06488 06500 06512 06523 0652.. 06536 06548 06560 06572 06584 06596 06608 06620 06628 06628 06640 06652 06659 06660 06612 06680 06680 06692 06704 06716 06724 06724 06736 06144 061".. 06156 06768 . 06780 06792 0680.. 06816 06828 068..0 06852 06864 06876 06814 06884 06896 06908 06920 06932 06944 06952 06952 06964 356 16 43 12 12 12 24 46 45 49 034406952 06523 03528 03527 03528 03528 03525 0 03488 06680 01435 03440 03445 01435 07204 06628 06548 -0000 0344N OOOJO OOOJO OOOJO 02303 01200 0344N 00000 45 44 49 0672" 06660 06548 0344034400000 43 49 06680 06548 0344N 00000 12 12 12 49 034.. 0 03lt35 03445 06548 OOOJO OOOJO OOOJO 00000 44 49 06744 06660 0343N 00000 2 .. 47 24 46 26 26 49 034406660 06884 03435 03014 03014 03435 0301M 06548 03488 06523 06548 03527 01200 03"4N 000-1 0343N 000-5 000-1 03"88 01300 030lM 03435 00000 12 24 46 26 26 49 03 .. 40 03"406692 03488 06523 06692 OOOJO 03488 01300 034403435 00000 26 22 03523 03522 02317 0344- 14 47 26 26 12 32 21 32 43 12 26 11 11 00-00 01200 03435 03435 000-1 00000 02371 00000 11 1620 05340 05350 05360 05370 053BO 05390 05400 05410 DUTCE 05420 05430 05440 05450 05460 E9I250 05470 05480 05490 05500 05510 05520 05530 E91320 05540 05550 05560 05510 05580 E9~410 05590 05600. 05610 05620 05630 05640 05650 05660 05670 056BO 05690 05700 05710 05720 05730 057"0 05750 TElSII 05760 E91610 05770 057BO 05790 05800 05810 05820 05830 SAYAO 05B,,0 05850 EQRET 05B60 05870 05880 E91730 05890 AM BNF TF TF SM TF AM OS SF 80 8 DORG CF TF TF TF Tf B OORG SM TFM TF B DORG CM BL SF C BNE TF TF TF B DORG Tf TF AM TF AM 8 DORG DS TF TF TF AM TF AM MON~TOR II YERSION 2 FORTRAN 11-0 PHASE I-C PAGE ADSAYE,07,I0 E91320,AOSAVE,11, TEST IF BASE IS IN COIIMON, BRANCH NO MOOAO,ADSAVE SMADO,AOSAVE SMAOO,loIO SMCNT,AOSAVE SMCNT,3010 • -+1 OUTCE E87670+ 12 ,MOOAO,l1, RETURN TO OUTPUT COMMON ARRAY E87490-48" • RETURN TO OUTPUT SIMPLE COMMON VARlA8LE '-3 QUlCE, •• ENTER FROM E89750 SMAOO,SAYEI SMCNT ,SAVE2 IIOOAO,SAVEl EBASE-I, SIICNT ,11, SET UP BASE NUMBER TO SEARCH FOR £885",0.36, •• THE REMAINING EQUIV VARIABLES '-3 AOSAVE,I,IO, ENTER FROII E91150 TEMP,O EBASE-I,SIICNT,II, SET UP BASE NUMBER E90900+44 '-1 TEMP,O •• ENTER FROII E90790 AFTER SEARCHING TABLE FOR ALL EGUIV VARIABLES, IF TEMP IS LESS E91610 ••• I f NOT NEGATIVE TElSW ••• THAN ZERO, THEN THE IIASE ELEMENT IS ADSAVE, SAVEl" e+56 ••• NOT ASSIGNED FIRST SMADD,SAYEI SMeNT ,SAVE2 MODAD,SAVEl EB9B20+12 '-3 SMAOO,ADSAYE SMeNT,AOSAYE SMCNT,4 MODAD,ADSAYE "OOAD,l,IO E89820+12 a-3 ,E9HIO ENTER FROM E91420 ,SAVE OFf-SET VALUE SAVDFS,TEMP" SMADD,SAVE4, , SMCNT ,SAYEit S"CNT,4,10 MODAD,SAYE4 MODAD,I,IO SF EGRET ·DS .a TF SAYAD,ADSAVE .. SAYE ADDRESS OF BASE ELEMENT DS ,E91610 Ea9820+12 .. , IIRANCH TO OUTPUT SYM WITH NEG OFF-SET DORG '-3 SMAOD,SAVEl, , E NT ER F ROil E90600 TF SMCNT,SAVE2, , TF RESTORE TABLE ADDRESSES ANO BRANCH TO • 06976 06988 07000 07012 07024 07036 0704B 07060 07060 07072 07084 07092 07092 07104 07116 07128 07140 07152 07160 07160 07172 07184 07196 07204 07204 07216 07228 01240 07252 01264 01276 01288 07300 07308 0730B 01320 07332 07344 07356 01168 07376 07204 07376 07388 07400 07412 07424 07436 074"B 07459 07460 07376 07472 07480 07480 07"92 000-7 0352l 03523 03523 000-1 03523 000-3 32 43 49 03523 07160 03445 OH35 03435 03440 03440 0 07060 04292 04104 33 26 26 26 26 49 07060 03435 03440 03445 03521 0492B 00000 03508 03513 03518 034400000 12 16 26 49 03523 0]488 03527 06768 000-1 -0000 034400000 14 47 32 24 47 26 26 26 49 034B8 07376 07204 03523 07308 03435 03440 03'045 05956 -0000 01300 00000 03508 01200 03508 03513 03518 00000 26 26 03435 03440 03440 034"5 Ollt45 05956 03523 03523 -0004 03523 000-1 00000 11 44 26 26 12 26 11 11 26 11 49 "9 0 07827 03435 03440 03440 0341t5 03445 01376 0 07'159 0 05956 26 26 03435 03440 26 26 26 11 26 11 32 26 12 00000 0344N 00000 03488 06523 06523 000-4 06523 000-1 00000 03523 00000 0350B 01513 357 1620 MONITOR II 05900 TF 05910 B 05920 OORG 05930 E91BI0 TF 05940 lF 05950 AM 05960 TF 05970 AM 05980 TF 05990 SM 06000 SF 06010 A 06020 SF 06030 CF 06040 TeASE DS 06050 liD 06060 SM 06070 TF 06080 AM 06090 TF 06100 B 06110 DORG 06120 SM 06130 TF 06140 B 06150 OORG 06160 E92010 TF 06110 CF 06180 TF 06190 TF 06200 TF 06210 SF 06220 ·SAVOFS DS 06230 06240 DORG 06250 E92210 TF 06260 AM 06270 SM 06280 8NR 06290 SM 06300 TFM 06310 TF 06320 SM 06330 TF 06340 SM 06350 E92290 8D 06360 A 06370 B 06380 OORG 06390 A 06400 E92305 CF 06410 SUBADD DS 06420 TF 06430 TF 06HO TF 06450 TF • MODAO,SAVEl .. E88540+36 '-3 SMAOD,SAYAD .. SMCNT,SAVAO SMCNT,4,I0 II00AD, SAVAO MODAO,I,IO EBASE,SAVAD EUSE-l,I,IO ERASE EBASE,ST8L EBASE-3 SAVDFS " e+68 ,MOOAO,II, SAVAD,I,10 a+30, SAVAO, 11 YERSION 2 FORTRAN II-D PHASE I-C PAGE ASSIGN EQUIVALENT AOORESSES ENTER FROM E90603 lEST IF DIM VAR ·.18,5,10 ,SAYDFS .. E88710 .. , a-] SAYAD,6,10 SAVAD,SAVOFS,6, E8B710 .. , .-] TEMP, TEMP]" EQRET SMADD,SAYEI SIICNT,SAVE2 MODAD,SAVE3 TELSII PLACE OFFSET INTO SYM AREA PLACE OFfSET INTO TABLE ENTER FROII EB9601 " E88540+36 .-] SU8AOO,FCTEND, , SU8AOO,I4,I0 SUBAOO,IO,10 ·-12,SUBADD.1l SUBADD,I,10 E92440-23041 ,10 SMADD, SUBADD SMAOO,3,I0 MODAO,SUBADD II0DAO,2,10 e+32 ,MDDAO,ll, lDC,FP2 ENTER FRDII E87240· TO OUTPUT SUBPROGRAM TEST FOR FIX DR FLOAT e+20 '-3 LOC ,KLNG MODAD, .6 " SYM,ZERI3-1 ."23.SMADD,ll 5YM,. , SHADD,LOC .6, MOVE NAME TO SYM MOVE OBJ TIME ADDRESS TO TABLE 358 07504 07516 07524 07524 07536 075"8 07560 07572 07584 07596 07608 07620 07632 076"4 07655 07656 07668 07680 07692 07704 07716 07724 07724 07736 0774B 07756 01756 07768 07780 07792 07801t 01816 01821 07828 07836 078]6 0784B 07860 01872 07,884 071196 07908 07920 07932 079"" 01956 0796B 07980 079B8 0798B OBOOO 08011 08012 0802" 08036 08048 26 49 034"5 01t928 03518 00000 26 26 11 26 11 26 07459 01459 000-4 07459 000-1 07459 000-1 00000 02377 00000 00000 43 12 26 11 26 49 03435 03"40 034"0 03445 03H5 03528 03527 03528 03528 03525 07B21 0 07724 07459 07710 07710 00000 05112 0344N 000-1 0745R 000-5 07827 00000 12 26 49 07459 01lt5R 05112 000-6 01821 00000 26 ]3 26 26 26 32 031t9B 00000 03508 03513 0351B 00000 49 031t8B 07376 034]5 03440 03445 07204 0 04928 00000 26 11 12 45 12 16 26 12 26 12 43 21 49 08011 OBOll 08011 07860 OBOll 08157 03435 03435 03445 03445 07988 034B2 OBOOO 02318 000J4 OOOJO 0801J 000-1 OOOMI 08011 000-3 08011 000-2 0144N 0229B 00000 21 33 03482 0344N 0 03415 08047 03475 03HN 02252 00000 12 32 21 32 33 26 26 26 26 11925 0343N 00000 03482 13 1620 MONITOR II 06460 SM 06470 TO 06480 AM 06490 E92385 AM 06500 TO 06510 SM 06520 E92390 BTM 06530 DC 06540 OSA 06550 OSA 06560 06570 06580 06590 06600 06610 06620 06630 06640 06650 06660 06670 06680 06690 06700 06710 06720 06730 06740 06750 06760 06770 ·06780 06190 06800 06810 06820 06830 SF TFM NOP TF AM TF TF AM SM SM SM C BE 8NR TDH SM CF TF SM CF 80 AM AM 81 AM CF TF TF TF TF SF TO SM 14M AM A TF AM B1 TF AM E92HO E92455 E92470 E92570 068~0 06850 06860 06810 06880 06890 06900 06910 06920 06930 06940 06950 E92860 06960 SUBAOO,8ol0 SUSAOO, RECHt< ,6., VERSION 2 FORTRAN 11-0 PHASE I-e PAGE 1,0 08060 08072 08084 08096 08108 08120 08132 08144 Loe-4 08149 5 X SYH-II 08149 08154 -3478 5 X STORAGE HAS 8EEN ALLOCATED SUBAOD,8,lO SU8AOO,2,IC SUBADO, RECMt(,6, STORAGE HAS BEEN ALLOCATED SU8AOO.2,iO PGPRT, •• 12 08154 08156 08168 08180 08192 08204 08216 08228 08240 08252 08264 08276 08288 08300 08312 08324 08336 08348 08360 08372 08384 08396 08408 08420 08432 084100 08452 08464 08416 SHADD. ,6 --11,32,10 E92455 SU8ADD,FeTENO SUBADD,3,I0 SMADo,FeTENO MOOAO,FeTENO MOOAO,l,IO SU8ADO,IO,I0 SHADD.IO,lO MOOAD.IO,IO MODAD. TEND E92860 ••• TEST FOR END OF TABLE E92455. SUBADO.II E92440+1.9 SUBADC, 1,10 SU8AOD,.6 "30.SU8ADD -.18.1.10 E92570. SUBADD.II. SU8ADDol.IO. LOC.5,10 E92305 LOC,5,I0 MOOAD,,6 SYM,ZER13-1 ADSAVE, SMADD,lI, SVM,AOSAVE,ll, SHADD,LOC.6, SMAOD,,6 MODE, SUSADO,ll, SU8ADD,7,I0 MODE,5010 TEST FOR DIM VAR FLAG INDICATES FUNCTION SUBPROGRAM IN 08~88 08500 08512 08524 08536 085,,8 08560 08512 08584 08596 08608 08616 08628 SAVE NUM8ER OF DIMENSIONS 99,5,10 ADSAVE,99 SUBADD,ADSAVE,611 SUBADD,8,I0 E92385 TBASE.FCTEND" lOt.OI,lO. ENTER FROM E92UO FOR RECORD MARK 12 25 11 II 25 12 17 32 16 41 26 II 26 26 II 12 12 12 24 46 45 15 12 33 26 12 33 43 II II 49 II 33 26 26 26 26 32 25 12 13 11 21 26 11 ~9 26 11 08011 080lJ 08011 08011 080lJ 08011 11380 I -)464 03't3N 08157 08252 08011 08011 03'+35 03445 03445 08011 03435 03445 03445 08616 08252 08181 08011 080lJ 08390 08390 00000 08440 08011 03482 08000 0.3482 0344N 03415 03523 03415 0343N 0343N 03530 08011 03530 00099 03523 080lJ 08011 08096 01655 03482 14 000-8 09784 000-8 000-2 09784 000-2 -8144 00000 000L2 00000 02318 000-3 02318 02318 000-1 OOOJO OOOJO OOOJO 02303 0120.0 080lJ 00009 000-1 00000 08011 000-1 00000 080lJ 000-1 000-5 000-5 00000 11925 0343N 0352L 03482 00000 0801J 000-1 000-5 000-5 00099 0352L 000-8 02318 000-1 359 1620 MONITOR II 06910 06980 06990 01000 01010 010Z0 01030 GLP 010"0 07050 AM C BNH SM CF AM BT BTM DSA 01060 07070 07080 01090 01100 01110 01120 07130 01140 01150 01160 07170 01180 01190 01200 07210 01220 01230 01240 01250 07260 07210 07280 01290 07300 01310 01320 01330 07340 01350 01360 01310 01380 01390 01400 01410 01420 01430 01HO 01450 01460 01470 01480 01490 SF TO B OORG EMP MSP ..... E93010 E93060 E93200 E93330 BWP VERSION 2 FORTRAN 11-0 PHASE I-C PAGE CADD.tI.IO CEND.CAOD EMP CAOD,l1,lO CADD". CAOO.OI,IO OUTADO,LOC OUTK,"16 CSTI,LOC-I 086~0 11 08652 0866" 08616 08688 08100 08112 08124 24 47 12 31 11 27 17 087~0 08140 08145 08146 08158 08710 08711 08118 08190 08197 08198 08810 08822 08834 08842 LOC+I CADD,LOC>I,6 MSP ·-4 514 CADD,09,I0 B GLP DDRG ·-4 14M LOC,05ol0 BUFDUM,99 BD AM LOC,OI,IO GO TO OUTPUT BUFFER B 8UFDUM", DORG 0-3 ENTER HERE FROH E81530 AFTER ALL STORAGE ALLOCATION IS COIIPLETE TF DKADO,INTOPI+5 AM TEND,9.IO, ESPECIALLY FOR JAY TF SHADD,TBASE TF SMCNT. TBASE AM SMADD.2 AM SMCN.T .5 B -+32 DORG ·-3 SM SMADD,10010 SM SMCNT.I0,10 SMCNT. TEND, C Bl E93610 BNR E93200, SMCNT ,11, B E93060 DORG 0-3 BNR E93060, SMAOD,l1, BNF •• 32.SMADD,11 TOM SMADD,O,6 B E93060 DORG ·-3 SMAOD,O,6, TOM CLEAR RECORO MARK SM SMADD.2,10 LOC,5,IO AM TF SSYMWK.lER13-1 TF ·+23,SMAOO,11 TF MOVE FUNCTI ON NAME SSYMWK" , SSVMWK-ll SF CM SSYMWK-IO.00.I0 BNE WGP SSYMWK-ll.SSVMWK-9 TR 08842 088510 08866 08818 08890 08902 08914 08922 08922 08934 08946 08958 08910 08982 08990 08990 09002 09014 09026 09034 09034 09046 09058 09070 09082 09094 09106 09118 09130 09142 36U 11291 OOOJI 11291 11296 08118 01100 11291 oaoJl 1129J 00000 000-1 11291 10106 03482 10128 -8140 5 X 2 32 25 49 -9801 -3483 03483 1129J 08798 00000 03483 00000 12 49 11291 08712 000-9 00000 13 03482 09928 03482 09928 000-5 00099 000-1 00000 10968 02303 03'>35 03440 03"35 02390 000-9 01655 01655 -0002 -0005 00000 "3 11 49 26 11 26 26 11 11 49 0310"0 12 12 24 "1 "5 "9 03435 034"0 03440 09328 08990 08922 OOOJD OOOJO 02303 01300 45 44 15 49 08922 09034 0343N 08922 0343N 0343N 00000 00000 15 12 11 26 26 26 0343N 03435 03482 09542 09105 09542 09531 09532 09186 09531 00000 000-2 000-5 11925 03103N 00000 00000 000-0 01200 09533 32 14 47 31 08946 034~- 00000 15 1620 MONITOR II VERSION 2 FORTRAN 11-0 PAGE PHASE I-C 09154 09166 09178 09185 09186 09198 09210 09222 09234 09250 09542 09541 09106 26 26 26 26 03361 09542 03366 03482 03368 09326 0343N 03482 10128 -9250 5 X 2 TFM CF B OORG TF TF TF TF 8TM OSA SSYMWK,00,10 SSUWK-l BliP ·-4 CARO.l1,SSYMWK CARD.16,LOC 07600 07610 07620 01630 07640 AM TF TF 8TM DC SMAOO,2,lO, SYM,ZER13-1 SYM,E93330.47.11, 1.0 09250 09255 09256 09268 09280 09292 09304 07650 OSA LOC-4 09309 5 X SYM-ll 09309 09314 -3418 5 X CARD+18,AlPHRM SMADO.LOC ,6. CSTl7,CARD OSA 01610 01680 07690 CSTll E93060 8 OORG .-4 DC 2,18 J8 01110 01120 01130 01140 01150 01160 01110 01180 01190 01800 07810 01820 01830 01840 07850 01860 01810 01880 01890 07900 07910 01920 E93610 80 8 DORG TFM 8 TF TF LTJUST SF CN SHE TR TFM CF 8 DORG MVNAME TF MOVE SYM NAME PGPRf.*+L2 01660 01100 ALPHRM DC MOVE OBJ TIME ADDRESS TO TABLE OUTK,*+ 16 09114 09316 09323 09324 2,0' 09326 u20.SU8FCT ):RNEST .-3 09328 09340 09348 09348 09360 09312 09384 09396 09408 09420 09"32 09444 09456 09468 09475 09476 09488 09500 09512 0952" 09531 09542 IORT.*+23 10GT,COMSEt,1 SSYMIIK,ZER13-1 SSYMIIK,SAVSYM SSYMIIK-ll SSYNWK-10,00,10 NYNAME SSYMWK-ll. SSYMIIK-9 SSYMIIK,00.10 SSYMIIK-l LTJUST .-4 tOMNAM. SSYMIIK SAVSYM,SSYMIIK TF TFM IORT, . . 23 8 IOPT.COMSEC.7 HU 8 DORG .-4 SSYMIIK DC 12.0 -00000000000 07930 DC I, ' 17 11 26 26 11 -9324 -3350 03435 03415 01lt15 11380 1 16 000-0 00000 00000 16 33 49 07500 07510 07520 07530 07540 WGP 07550 07560 07570 07580 07590 000-2 11925 0910N -9304 -3464 49 08922 00000 43 49 09348 09544 02293 00000 16 49 26 26 32 H 41 31 16 31 49 00565 00566 09542 09542 09531 09532 09,,16 09531 09542 09541 09396 -9311 -9802 11925 02243 00000 000-0 01200 09533 000-0 00000 00000 26 26 16 49 49 09861 022103 00565 00532 09580 09542 09542 -9523 -9802 00000 2 12 09543 361 1620 MON ITOR II 01940 ERNEST 8NF 01950 80 01960 8TM 01910 HU BTM 01980 DSA HU.DI SKSII HU,MULDEF ERROR2,610,9 DUTK,"16 CSTl.ALPHRM 07990 08000 08010 08020 08030 08040 08050 08060 08010 08080 08090 08100 08110 08120 08130 08140 PHA10 CADO,6,6, OB150 08160 TOM TFM 8 AM TO TFM 8 TF BV 8S8A TFM TFM BNF TFM 87 DSC 22 DSA , DC VERSION 2 FORTRAN 11-0 PHASE I-C ENO OF PROGRAM INDICATOR IORT,u23 IOPT,DKDATA.7 OUDD.3.10 DISK,OKDATA+l IORT,u23 IOPT,OKDATA.l, PROGST,LOC alP RM FOR PHASE 2-A -+12 "12 CALLP2-I,00600,7, CALLP2-6.00000.7, CALLP2. CALLP2 FMON+35,PHAlD CALlP2+12 2.22 PAGE 0954" 09556 09568 09580 09596 START OF STRI NG SYMBOLS ON DISK INDEX REGISTER INDICATION 09596 09601 09602 09614 09626 09638 09650 09662 09674 09686 09698 09110 09122 09134 09146 09158 09710 09117 PHAlDA 09183 I.' 09183 09784 44 43 11 11 15 16 49 11 25 16 49 26 46 60 16 16 44 16 49 09580 02383 09580 02384 11318 00010 10128 -9596 5 X 2 -9801 -9326 1129J 00565 00532 10968 10986 00565 00532 02257 09710 09722 02399 02394 02400 02359 02412 2 5 X -9785 1 09185 08110 PHAIDA DSC 1,0 0 08180 RECMK OS .PHA1DA-l 08190 5,15930 DC J5930 08200 3,010 DC -10 08210 DSA CALLP.2 091n 09190 0 5 09193 X 09198 08220 DC , I,' 09198 09199 082)0 CSTI DC 2,01 -2400 1 09801 2 -1 08240 tON SEt DSC 20 08250 DSA 2,20 09802 2 COMSC 09808 08260 DC 1.' 09808 09809 08210 CDMSC DSC 1,0 0 Dt 5 J9663 ]'001 Dt -01 08280 08290 00006 -9631 J0918 000-3 10985 -9685 J0918 03482 01400 00001 -0600 -0000 02400 -9177 -9810 1 09810 ,19663 09815 09818 362 3 11 1620 MONITOR 11 VERSION 2 FORTRAN 11-0 PHASE I-C PAGE 08300 DSA COMAR 09823 08310 DC I •• 09823 09824 -9826 I 09821 09826 09828 09816 09926 09861 1 0 48 50 I 0 08320 083)0 08340 08)50 08360 08310 08380 08390 08/t00 08410 08420 08430 08440 08450 08460 08HO 08480 08490 08500 08510 08520 08530 08540 08550 08560 08570 08580 08590 08600 08610 08620 08630 08640 08650 08660 08670 08680 08690 08100 08710 08720 08730 08740 08750 08760 08770 08780 08790 08800 08810 08820 BillY COMAR DAS I OS .8ILLY-I OSS 48 055 50 GMZ DGM COMNAM OS ,COMAR+35 • OUTPUT ~UFFER-SET UP POI NTER AND LAST DISK • ADDRESS FOR PASSZ 8UFDUM TF UrAO.DKADD CM CADD.DISK+8 BNE BFDUMI TFM P2PTR.0 B BFDUM2 DDRG ·-3 BFDUMI TF P2PTR.CEND SM P2PTR,DISK CM P2PTR.300 8NE *+36 TFM P2PTR.0 AM LSTAD.03,10 TFM IORT.un B IOPT.DKDATA.7 BFOUM2 TFM CADD.DISK TFM CENO.DISK+7' 8TM OUTADD. 00001 B E87270-2" DDRG >-4 OUTPUT CONSTANT ROUTINE > > 8TM OUTK,"16 • DSA LENGTH. HIGH-ORDER • OS oUTK TF WI(1. CADD TF IIK2. OUTK-I.ll. LENGTH TF IIK2. IIK2.11. NOVE IN LENGTH AM OUTK-l. 5.10 TF IIK3. OUTK-I,ll. CONSTANT ADDRESS AM OUTK-l. 1.10 AM IIKJ, WK2 OS C LADD. CADD 8E OUTK2 C CEND.CADo 8E ITNC • TEST FOR SPACE FOR ENTIRE CONSTANT C WKJ, CEND 8H TO oUTKI TR CADD.---,6 11K] OS A CLGTH. IIK2.6. INCREMENT LENGTH 09928 09940 09952 09964 09916 09984 09984 09996 10008 10020 10032 10044 10056 10068 10080 10092 10104 10116 101Z3 . , 10127 10128 10140 10152 10164 10176 10188 10200 10211 10212 10224 10236 10248 .. .-. 10260 10272 10284 10295 10296 .' 18 X 26 14 41 16 49 02308 11291 09984 02313 10080 10968 J0994 01200 -0000 00000 26 12 14 41 16 11 16 49 16 16 02313 02313 02313 10056 02313 02308 00565 00532 11291 11296 10706 03764 11296 J0986 -0300 01200 -0000 000-3 JOO19 J0978 J0986 Jl06.! -0001 00000 5 11316 10211 10211 10121 10295 10127 11316 0 11291 1012P 1021J 000-5 1012P 000-1 -0000 11 49 26 26 26 11 26 11 11 24 46 24 46 24 46 31 21 IUOI 10516 11296 10436 11316 10328 1129J 0 11300 11291 01200 11291 01200 11296 01100 00000 10211 363 1620 MONITOR II 08830 08840 08850 08860 • 08810 TO 08810 08i90 08900 08;10 08920 • 089]0 08940 08950 08960 08970 • 08910 IfNC 08990 09000 09010 09020 09030 09040 090'0 09060 09070 09080 09090 09100 09110. 09120 OUTK2 09130 09140 09150 OUTU 09160 09170 09110 09190 09200 09210 09220 09230 09240 09250 • 09260 • 09270 • 09280 09290 OUTADD 09300 09310 09320 09330 OUT 09340 09350 09]60 09370 09380 VERSION 2 FORTRAN 11-0 A C.AOD.WK2 8 OUTK-I .. 6. DORG --3 TRANSMIT DIG IT BY DIGIf TO CADO •. IIK].611. AM CLGTH. 1.610. AM CADD. 1.10. AM 11K]. 1.10. SM IIK2.1.10 TEST FOR LAST CARO C CADO. LADD BE OUTU C CAOD. CEND SHE TO INCREMENT TO NEXT CARO TF CAOO. CENO AM CAOO. 4.10 TR CADO. U.6 .+J!s, TF CLGTH SM ].10 -+23. .-e,6 TF CAOO. A CADD. CLGTH.611. TF CLIITH, CAOD AM CLGTH. 3.10 AM CADO. 4.10 AM CENO. 75.10 8 OUTKI DORG '-3 OUTPUT THREE SECTORS TFM RETURN+6,OUTU 8 CKlI+12 OURG .-] AM CADO. 4.10 TIl CAOO. Kl.6 SM CLGTH. 3.10 TF CADO. CLGTH.611 AM CLGTH. ].10 A CLGTH.611 CABO. TFM CLGTH. DISK+7 TFM CADO.0ISK+8 8 OUTU DORG .-] CONSTAN'T OUTPUT ROUTINE FOR PASS 0$ AM C 8NH SM TR TF AM TF SM 88 , PHASE 1-C PAGE 10308 10320 10328 21 49 11291 1012P 10211 00000 10328 10340 10352 10376 25 11 11 11 12 1129J IUOO 11291 10295 10211 1029N 000-1 000-1 000-1 000-1 10388 10400 10412 10424 2~ ·46 24 47 11291 10576 11291 10328 11301 01200 11296 01200 26 11 12 26 21 26 11 11 11 49 11291 11291 1129J 10507 10507 1129J 1129J 11306 11306 11291 11296 10284 11296 000-4 11307 11306 000-3 00000 11300 11291 000-3 000-4 000P5 00000 16 49 10962 10896 J0596 00000 11 31 12 26 11 21 16 16 49 11291 1129J 11306 1129J 11306 1129J 11306 11291 10284 000-4 11307 000-3 IUOO 000-3 11300 J0993 J0994' 00000 11 24 47 12 31 26 11 26 12 42 5 11291 11296 10816 11291 1129J 1129J 11291 11]06 11306 00000 000-9 11291 01100 000-5 11307 10705 000-4 11291 000-1 00000 1036~ 10436 10448 10460 10472 10484 10496 10508 10520 10532 10544 10556 10568 10576 10516 10588 10596 10596 10608 10620 10612 10644 10656 10668 10680 10692 10700 31 26 BTM OUUDD, NEW AOORESS CADO. 9,10 CADo CEN\!. CKLCO CADD. 5.10 CADD. Ki t 6. CONSTANT CADO. DUTADD-I.6, NEW ADDRESS It,10 CADD. CLGTH,CADD CLGTH.OI,IO 10704 10706 10718 lono 10742 10754 10766 10778 10790 10802 10814 36 /1 19 1620 MONITOR II VERSION 2 FORTRAN /1-0 PHASE l-C DORG .-9 091toOO • CHECK FOR LAST CARD 09HO CKLCD C LADD. CEND 09420 BE CKll 09430 TF CAOO. CEND 09440 AM CENO. 75.10 09450 CKL AM 't,10 CADD. 09460 OUT B DORG .-3 09470 09480 • OUTPUT 09490 CKLl TFM RETURN+6. CKL 09500 • DISK OUTPUT ROUTINE TFM IORT,.+23 09510 09520 IOPT.OKDATA.7 B 09530 AM DKADD. 3.10 09540 TFM tADO. DISK 09550 TfM tEND. DISH15 09560 RETURN 8 09510 DDRG ·-4 09580 OUTDK DSC 1.0 0 09590 DKAOD DC 5.00000 -0000 09600 DC 3.003 -03 09610 DSA DISK 09390 . PAGE 10816 10828 10840 10852 10864 10876 10884 24 46 26 11301 10884 11291 11296 11291 10754 11296 01200 11296 000P5 000-4 00000 10884 10896 10908 10920 10932 10944 10956 10963 10963 16 10962 J0864 16 49 11 16 16 49 00565 00532 10968 11291 11296 00000 J0919 J0978 000-3 J0986 J1061 00000 11 11 49 10968 5 10971 10976 5 X 1 •• 10976 10917 09630 DKDATA DSC 02 09640 DSA 2,02 10918 2 OUTDK 10984 5 09650 DC 1.' 10984 10985 J0963 1 09660 • 09670 DISK OUTPUT DISK AREA DSC 50.0 00000000000000000000000000000000000000000000000000 DSt 50.0 00000000000000000000000000000000000000000000000000 1 •• DC 09620 DC 09680 09690 09100 09710 09120 09730 09140 09150 CADD 20 10816 DSC 49.0 0000000000000000000000000000000000000000000000000 DSC 50.0 00000000000000000000000000000000000000000000000000 DSC 50.0 00000000000000000000000000000000000000000000000000 DSC 50.0 00000000000000000000000000000000000000000000000000 OS 1 DSA DISK+lOI J0986 1 10986 50 11036 50 11086 11081 49 11136 50 11186 50 11236 50 11286 11291 1 5 X 11291 Jl081 365 11>20 MONITOR /I VERSION 2 FDRTUN 11-0 PAGE PHASE 1-C 09160 CEND DSA DISK+150 11296 5 09110 LADD DSA DISK+300 11296 11301 J1136 5 09180 CLGTH DSA DISK+l08 11301 11306 J1286 5 09790 K1 DSC 02 DC -0 DC 2.02 11306 11307 J1094 2 2.0 lUlO 1 •• lUll DC 5.0 11316 09800 09810 . 09820 WKl . -0000 09830 DEND 09840 ERRDR2 TF ERMES+14.·-1 09850 RClY 09860 WArY ERMES 09810 88 DORG .-9 09880 09890 ERMES DAC 9.ERROR 00' ERROR 00' PGPRT WILL TYPE IF PROGRAM SWITCH 1 ON 09900 09910 • PUNCH TAPE IF PUSTSN - 2 09920 • PUNCH CARDS IF PUSTSN - 4 09930 • 09940 • LINKAGE TO PGPRT 09950 • 8TM PGPRT,"12 09960 • DC x- 0 OR 1 I,X" 09970 • DSA SADDR-4. NAME. EADDR-4 09980 • 09990 DS 5 10000 PGPRT TFM FAFl+6.RAClRO+1 10010 TF FAF1-1.PGPRT-l 10020 AM FAfl~1,05.10 10030 TF FAF1+ll •• -. TO MOVE IN START ADDRESS 100"0 FAFl .-*,*-*" AM 10050 FAfl+6.2.10 10060 AM FAF1+11,OI,10 FAF1+6.RAtARO+9 10070 eM 10080 8NH fAFl FAF1-1,5.10 10090 AM 10100 TF "23.FAf1-1.11 MOVE IN NAME 10110 TR RACARO+12,*- ••• FAf3. PGPRT-1.11. BRANCH I fEND AODRESS REQU I RED 10120 BD 10130 TF RACAR0+35.10lERO 10140 AM FAFl-I.2.10 10150 FAF2 8Ntl .+36 10160 RCTY WArY RACARD+1 10170 •• 20,PUSTSN 10180 BD 10190 FAF1-1 .. 6 B DORC .-3 10200 11318 11330 11342 11354 11356 11357 11378 11380 11392 11404 11416 11428 IH40 11452 11464 11t,76 11488 11500 11512 11524 11536 115"8 11560 11512 11584 11596 ll608 ll616 366 26 3" 39 42 11371 00000 11357 00000 11311 00102 00100 00000 9 X 16 26 II 26 25 11 11 14 47 11 26 31 43 26 11 47 34 39 43 49 5 11434 1H27 11427 11439 00000 11434 11439 11434 11428 11427 11523 11188 11648 11811 11427 11596 00000 11777 11616 1142P 21 2 J1777 11379 000-5 00000 00000 000-2 000-1 Ji185 01100 000-5 l1'UP 00000 1137R 11923 000-2 00100 00102 00100 02294 00000 1620 MONITOR II 10210 10220 10230 10240 10250 FAF3 10260 10270 10280 10290 FAF4 10300 10310 10320 lOBO 10340 10350 10360 10370 RACARD 10380 10390 TFM IORT,*+2') 8 IOPT.PTRA-4.7 FAFl-1.,.6 8 DORG '-4 TF RACARD+35.RAMASK AM FAFl-I.05.l0 TFM FAFH6.RACARO+27 TF FAFft+ll,FAFl-l,ll TO *-*,*-*" AM FAF4+6, 2, 10 FAF4+11,l,lO AM FAF,..6, RACARD+35 CM 8NH FAF4 AM FAF1-l.I,l0 8 FAF2 DORG '-3 DSC 12.707070707000 707070707000 DS 24 DC 2,0' VERSION 2 FORTRAN 11-0 PHASE 1-C PAGE 11616 11628 11640 11647 11648 11660 11672 11684 11696 11708 11720 11732 11744 11756 11768 11176 11776 MOVE IN END ADDRESS 16 49 49 00565 00532 1142P Jl639 Jl936 00000 26 11811 11427 11702 11707 00000 11702 11707 11702 11696 11427 11560 11954 000-5 J1803 1142P 00000 000-2 000-1 JIB 11 01100 000-1 00000 11 16 26 2~ 11 11 14 H 11 49 12 11811 11813 24 2 10400 11863 50 10410 11913 50 11935 22 50,0 DC -0000000000000000000000000000000000000000000000000 50,0 DC -0000000000000000000000000000000000000000000000000 10420 DC 22.0 -000000000000000000000 10430 10ZERO OS • --12 10440 lER13 DS ,--9 10450 PTRA OSA RACARD+l 10460 DC 2 .00 -0 DGM 10470 GM3 10480 RAMASK DC 11.07070107070 -7070107070 10490 • DENO 10500 OORG 16000 10510 BlK7 DSC 2.22 22 11923 11926 11940 0 0 5 X 11940 11942 Jl177 2 1194) 11954 11 I 16000 16000 22 10520 OSA BlK7A 16006 105)0 DC 1 •• 16006 16007 10540 BLK7A OSC 0 1.0 16008 10550 DC 5.17700 16013 10560 DC 3 16016 10510 JOO OSA E86440 16021 1 •• 16021 16022 5 X J6008 1 J7700 10580 DC .100 5 X -2430 1 367 1620 MONITOR II 10590 lOPHC 10600 GM 10610 10620 10630 10640 10650 TOM OGM TO TD TFM 8 . GMI GII2 ,Gil GII3 ,Gil 10RT ,·+23 IOPT,BlK1.7 . TRA 10660 TCD 10670 OENO ,*-* lOPHC VERSION 2 FORTRAN 11-0 PHASE l-C PAGE 16024 16035 16036 16048 16060 16072 16084 16096 16024 00000 368 15 25 25 16 49 36 49 03268 1 09926 11943 00565 00532 00000 00000 00000 16035 16035 J6083 J6000 00500 00000 23 11>20 MONITOR II 10ZERO AO$AVE AlPHRM AROUND BFDUMI BFDUM2 BUFDUM CALLP2 COMAOD COMNAM COHSEC a I SKSW OKOATA E8b440 E81>60l E86801 E81>820 E87210 E81210 E81310 E81420 E81490 E81610 E88420 E88410 E88540 E88600 E88660 E88710 E88900 E89010 E89600 E89610 E89660 E89140 E89820 E89930 E90010 E90580 E90620 11923 03523 09326 02484 0998" 10080 09928 02400 02262 09861 0980l 02383 10918 02430 02712 02984 03044 03720 03788 03844 04048 04152 04280 04631> 04680 04892 05004 05068 05112 0531t4 05412 05152 05112 05840 05884 05944 06052 06144 06340 06380 E90750 E90850 E90900 E91050 E911l0 E91250 E91320 E91410 E91610 E91130 E91810 E92010 E92210 E92290 E92305 E92385 E92390 E92440 E92455 E92470 E92510 E92860 E93010 E93060 E93200 E93330 E9UIO ENTlOG ERNEST ERROR2 FtTEND INTOPl LENGTH LTJUST MONtAL MULDEF MYNAME OUT ADD OUTllT PHAlDA VERSION 2 06548 061>80 01>724 06884 06952 01092 01160 01204 07316 01480 01524 07151> 078)6 01951> FORTRAN 11-0 PHASE I-C 0238~ PROGST PUSTSN RACARO RAMASK RETURN ABASE AFT8l BIllY 8lK7A 8lKl BlK8A 8LK8 8WP CADD tARD tEND tHI5 tHI tKLl tKLtD tll tlGTH tOIlAR COMSC tOIlST tSTll tSTl OISK DUOO EUSE EMP EQRET ERIIES ERRET FAFI FAF2 09~16 FAFl 116~8 10106 03128 09185 FAF~ 11696 02250 02324 oaooo 08096 08132 08180 08252 08300 08440 08616 08842 08922 08990 09058 09328 02267 0954~ 11318 onu 02385 022~8 09396 00196 FlNG FMON PAGE FP2 GlP GMI GM2 GMl GM HU INDIV lOCAL 10GT 10PT IOR8C 10RT 10SK IT Nt JAY JUMP KI KLNG UDD LDPHt Lll LOt lSTAD HaDAD MODE MSP HI N2 NXLOC OUTtE OUTDK OUTKl OUTK2 OUTK3 OUTK OUT P2PTR PGPRT PHAID Ol251 02294 11716 ll9H 10956 030H 1"935 09827 16008 16000 02469 02461 09106 11291 on50 11296 15839 15139 10884 10816 10864 lU06 09826 09810 02382 09S2~ 09801 10916 10968 03528 08118 01316 11357 00602 11~28 11560 02198 0871l 0321>8 09926 11943 16035 09580 02424 00711> 00566 00532 00520 00565 00554 10436 02361 02429 11307 02252 11301 11>024 01158 03482 02308 03445 03530 08198 OlZH 02238 02312 07060 10963 10284 10516 10591> 10128 10154 02313 11380 09777 PlCO PTRA REClG RECMK SAVAO SAVEl SAVE2 SAVEl SAVE4 SHADD SMCNT STSl SYM T8ASE TO TELSW TEMP2 TEMP3 TEMP4 TEMP5 TEMP TEND WOlN WGP WKI WK2 WK3 W WW ZERll SAVOFS SAVSYM SSYMWK STMNTl STMNT2 STMTNO SUB ADO SUBFC T USEOFS END OF ONE ASSEIIBL Y. 369 1620 MONITOR II 00010 00020 00030 00040 00050 00060 00010 00080 00090 00100 00110 00120 00110 00140 0015D 0011>0 00110 00180 00190 00200 00210 00220 00230 00240 00250 00260 00210 00280 00290 00300 00310 00320 00330 00340 00350 00360 00310 00380 00390 00400 00410 00420 IORT 10GT 10PT HEADER HI N2 W REClG LENGTH F K BEGAD LOCOM UFSTR FCTSW PUSTSN WW FP2 TBASE lSTAD P2PTR FtTEND FHON JAY XUDD lOXRAD FllEST INIT 00430 INITA 00~40 00450 00~60 .00410 00480 00490 00500 00510 00520 INITB 00530 005~0 00550 I I VERSION 2 FORTRAN Il-D 00565 00566 00532 02218 02218 02233 02238 02240 02243 02248 02250 02252 02257 02262 02263 02293 02294 02296 02298 02103 OU08 02313 02318 02323 02324 02336 021U 02360 02361 02367 02384 02389 ·-It , BTM BTM eM 8L tM BNH tM BE 8LXH BlXM 8TM 8TII 8TM GETX, S)(,. 14 2 5 2 3 5 2 2 5 5 30 1 I 2 2 5 5 5 , 26 16 ~9 49 02~2~ 02~36 021t~8 02460 02411 GET FIRST TWO SYIIIOlS SXtl52,9 GO TO ANALYZE IF Sl IS OPERATOR GO TO talON CODE IF STATEMENTS NO. seT tODEI FOR ARITH. STATMENTS . GETX,SL 37 U 5 02366 00565 00566 00000 02323 -2359 -0000 00000 I 11 02399 02~00 02412 *+]6 ANAll Z. " 0 0 0 0239~ GEU, SY SX,I04,9 SYtl31t,9 COClN". •• 12,COOE1(]) •• "12,5171 ADSl,SX AOSL,SY PAGE PHASE 2-A MONITOR 2 OPTIMIZER PHASE 2-A ,565 DS ,566 DS ,532 OS DORG 2218 DSS 14 DS 2 DS 5 DS 2 OS 3 DS 5 DS 2 DS 2 5 OS OS 5 DSS 30 OS I DS 1 OS 2 DS 2 DS 5 DS 5 5 DS DS 5 OS 5 TF . . lt2,FMON-l TFM IORT,H23 IOGT .. 7 8 B DORG DS 1 DS 11 DS DS 5 OS 5 T"" FILEST,600 u12,1 8S BlXM **12,0151 8lXM Ul2,Ol61 BlXM "12,ADDSTRI21 TOM BGNST+I DC 1,',- 16 60 66 66 66 15 02~12 11 D248~ 17 02496 02508 02520 02532 0251tlt 02,S6 02,568 02580 02592 ·02404 0261' lit It7 14 47 14 ~6 66 66 11 17 11 5 5 5 D2)99 02424 02436 02448 02460 16000 I 08382 08382 05054 02·5H 05054 02612 05061 03020 02580 ·02592 08688 ouae 08312 -0600 00001 O-D-O 0--00 05J51 00000 -505~ ~5061 DOJOIt 01300 OOJ52 011.00· 0.OJ14 OUOO 03JU 0~--5 -5054 -5061 -5061 24 03265 11940 02243 09784 07459 03508 03513 03518 06523 03435 03440 02317 03415 01655 10328 01204 03493 03498 05423 03503 03488 02303 03038 09186 11316 10211 10295 02240 02296 11926 01821 02243 09542 03628 03616 03532 08011 02293 02263 1620 MON ITOR II 00560 00570 00580 00590 00600 00610 00620 00630 00640 00650 00660 00670 006BO 00690 00700 00710 00720 00730 00740 00150 00760 00770 00780 00790 00800 00810 00820 00830 00840 00850 00860 00870 00880 00890 00900 00910 00920 00930 00940 00950 00960 00970 00980 00990 01000 01010 01020 01030 01040 01050 01060 01070 01080 01090 01100 01110 ANALIl IFA CALLA aUrA ENDA INA COOEDO OSKIO SU8PF PASS2 PASS2A COCLN CODEI CDU COOEIF CDIC VERSION 2 FORTRAN 11-0 PAGE PHASE 2-A FILL STRING WITH COMPLETE STATEMENT BTM AOSL,Sl. , Sl,132 CM SNE I I 0(3),,, GO TO CODE SET IN XR 3 Bl BlX .+12.5)(11) TO lER2,OIGSTR( I) MM lER2,5.10 *+18,99 MA 99(2),,6 B7 SET PROPER CODE IN XR 3 AND GO TO BlXM INIT8,COOEIF(3) .. PLACE COMPLETE STATEMENT ON STRING 8LXM I N I T8, CDCALt! 3)" 8LXM INITB,COOU")) BUM INITB,COEND(3) TOM INPSW.l,ll 8UM INITB,COOUT(3) BTH CLlSTS,PASSZ BTH GETX, SN TR 8VlIST!61.SN-3 BXM *+12.416) 8TM MRBVlT,*+12 BUM *+12.CDOUT!31 BLXM *.12,5(1) BTH AOSL. SX BTM ADSL.SY BTH AOSL. SN B7 II TOM SU8PSW,I.11 BTM PUT.SX 8TM PUT. SV PUT COMPLETE STATEMENT TO OUTPUT BUFFER BTM GETX, SX" BTM PUT .SX SX,132,9 CM BNE ,PASSZA B7 INITA-12 SBASE-1.SX TF BNF *+24, SBASE, 11 CLEAR LISTS FOR REFERENCED STATE. NO. BTM ClISTS,* .. 12., BTM PUT .SX BTM PUT ,SY BTM GETX. SX tM 5X,l40.9 INITA+12 BNE BTM PUT .SX B7 INITA CODEI SCANS ARITHMETIC STATEMENTS, IF STATEMENTS, AND IS ALSO USED BV THE CALL STATEMENT ROUTINE CM SY.133.8 BNE CODEIF MBASE-I, SX TF *.20,MSlSE,11 BD B7 CODEI F TR BVlISTC61.SX-3 BXM .+12,4C6. LEFT OF THE EQUAL SIGN ON BVlIST TOM FFOPSW, 0 •• BlXM *+12.15(71 TF SX.BGNSTI71 02628 02640 02652 02664 02612 026B4 02696 02108' 02720 02728 02140 02752 02764 02776 02788 02800 02812 02824 02836 02848 02860 02B72 02884 02B96 02908 02920 02928 02940 02952 02964 02976 02988 03000 0)012 03020 03032 17 14 47 49 65 25 13 70 49 66 66 66 66 15 66 0304~ 17 17 17 17 03056 03068 03080 03092 0310~ 03116 03128 11 17 31 62 17 66 66 17 17 17 49 15 17 17 17 17 14 47 49 26 44 1~ 47 17 49 08688 05067 02616 00--0 02684 05104 05104 02726 00-9R 025BO 02580 02580 02580 05106 02580 08222 08382 OQP59 02848 08066 02872 02884 0868B 086B8 08688 02616 05107 05212 05212 08382 05212 05054 02964 02460 05094 03056 08222 05212 05212 08382 05054 02484 05212 02472 -5067 -0132 01200 050N4 050-3 000-5 00099 03KJ6 03QJ2 04LQ2 03RQO OOOOJ 04LQZ -2940 -5073 05070 0--04 -2860 04LQ2 0---5 -5054 -5061 -5073 OOOOJ -5054 -5061 -5054 -5054 00J32 01200 05054 0509N -3056 -5054 -5061 -5054 00J40 01200 -5054 03136 03148 03160 03172 03184 03192 03204 03216 03228 03240 14 41 26 43 49 62 15 66 26 05061 03216 05100 03192 03216 OQP59 03216 05102 03HO 05054 03252 03264 03216 03288 03300 03312 03324 14 46 62 14 46 14 41 05054 03368 03288 05054 03336 05054 03240 00J32 01200 0---5 00J53 01200 00J54 01200 03336 03348 03360 03368 17 15 49 44 01460 05102 03240 03392 -3348 OOOOJ 17 07856 03404 050H 05054 03768 03452 05061 05061 0374B 05061 03572 05061 03512 05061 03748 -3392 0---5 lNRR9 OOJ32 01200 0---5 lNRR9 00J49 01300 00J53 01200 -015" 01200 00J51 01100 05716 05212 05212 08351 03620 05054 05212 050H 03688 08351 03608 05054 03608 08351 03608 -340. -5054 -5061 000-0 0---5 1NRR9 -5054 00J24 01200 000-1 31 0-133 01200 05054 0510J 05051 0--04 00000 0--J5 lNRR9 37 \ 1620 MONITOR II 01120 01130 01140 01150 01160 01170 01180 01190 01200 01210 01220 01230 01240 01250 01260 01270 CDIB 01280 01290 01300 01310 01320 COlD 01330 01340 01350 01360 01310 01380 01390 01400 01410 01420 01430 01440 01450 01460 011070 011080 01490 01500 01510 01520 01530 01540 PASKIP 01550 01560 01510 01580 015'10 01600 01610 01620 01630 01640 01650 01660 01670 ...... ...... ...... ...... ...... ...... ...... ...... ...... ...... CM BE BXM CM BE CM BNE VERSION 2 FORTRAN 11-0 PHASE 2-A PAGE SX.132.9 CDlB *+12.5171 SX.153.9 *+36 SK,154.9 CDIC THE ADSBLV ROUTINE IS ENTERED IIITH xu POINTING AT THE LEFT PAllEN FOllOlllNG THE FOP OPERATOR. ANV FIXED POINT. NONSUBSCRIPTED NAME APPEARING BEFORE 'HE CLOSING RIGHT PAREN WI:ll BE PLACED ON THE BOUND VARIABLE LIST. UPON EXIT. XR7 WI BE POINTING AT THE SYMBOL FOLLOIlING THE RIGHT PAREN. BTM ADS8VL.H12 TOM FFOPSW,l.11 87 C01C BNF *+24,FFOPSW THE PURGCM ROUTINE EXAMINES EACH ENTRY ON THE BOUND VARIABLE TABLE. FOR EACH VARIABLE THAT IS IN COMMON STORAGE, THE ENTRY AND ITS RelATED SUBSCRIPT TABLE ENTRY ARE CLEARED • BTM PURGCM.HI2 BLXM *+12.5171 TF SX.BGNST!71 SX,112,9, CM OUTPUT All SYMBOLS UNTIL A SUBSCRIPT IS COlE, .. BE FOUND. THEN GO TO SEOPT BXM *+12.517) TF SV.BGNST171 SV,l49.9 CM BL CDIEI CM $Y.U3.' BE PASKIP CM SV.154 8E PASKIP CM SV.151.9 BH CD1E1 THE SEOPT ROUTINE WILL CHECK FOR POSSIBLE OPTIMIZATION OF SUIISCRIPT EXPRESSIONS. UPON ENTERING SEOPT. XRl IS POINTING AT THE SOP. SX CONTAINS THE SU8SCRIPTED VARIABLE NAME. ANO SV CONTAINS THE SOP. UPON LEAVING SEOPT. XR7 WIll BE POINTIN AT THE SYMBOL FOLLOWING THE RIGHT PAREN. SEOPT Will OUTPUT ALL NECESSARV SYMBOLS FROM THE SUBSCRIPTED NAHE TO THE RIGHT PAREN INCLUSIVE. BTM SEOPT .CDI0+12 8TM PUT.SX BTM PUT. SV TFM PCNT"lO BXM e+12,5(7) TF SX. 8GNS T! 11 BTM PUT .SX CM SX,\24.9 8NE -+32 PCNT,l,JO AM PASKIP+)6 B7 SX, 10lt, 9 CM 8NE PASKIP+36 SM PCNT,1,10 8NZ PASKIP+36 3 ~" j - 03380 03392 03404 03416 03428 03440 03452 03464 03476 03488 03500 03512 03524 03536 03548 03560 03572 03514 03596 03608 03620 03632 03644 03656 03668 03680 03688 03700 03712 03724 66 26 14 46 62 26 110 41 14 46 14 46 14 46 11 17 17 16 62 26 17 14 47 11 49 l~ 47 12 47 05102 00J04 01200 000-1 01200 1620 MONITOR II 01680 01690 01700 01110 01720 01130 01140 01150 01160 01110 01180 01190 01800 01810 01820 01830 01840 01850 01860 01810 011180 01890 01900 01910 01920 01930 01940 01950 01960 01970 01980 01990 02000 02010 02020 02030 02040 02050 02060 02070 02080 02090 02100 02110 02120 02130 02140 02150 02160 02170 02180 02190 02200 02210 02220 02230 COIEl BXM BTM Bl BTM VERSION 2 F ORTUN 11-0 PHASE 2-A PAGE COI0+12,5171 PUT 9 SX CDID+12 PUT,SX THE MRBVLT ROUTINE Will CHECK TO SEt IF THERE ARE ANY ENTRIES ON THE BOUND VARIABLE LIST. IF THERE ARE, EACH ONE Will BE MATCHED AGAINST EACH ENTRY IN THE BOUND VARIABLE fABLE. WHEN A MATCH IS FOUND, THE BV AND ITS SETAB ENTRIES WIII BE CLEARED. BNR '+20, BVLI ST-1I6' B7 INITA BTl' MRBVLT ,INITA COUll BlXM "12,1517' TF SL,BGNSTl7' BXM '+12,517' TF SN,BGNSTI1' CM SN.132,9 BNE COCL2 BTM PUT,SX BTM PUT ,SY BrM pur ,SL BrM PUT,SN BTM PURGCM,INITA CDCl2 BTM PURGCM,-.12, • PURGCM IF FOP OPERATOR FOUND CDCL3 BLXM "12,20171 BrM ADSBVl,COI0, , CHECK ARGUMENTS FOR BVL 1ST COENO BNF CDNOl,SUBPSII" I F IN A SUBPROGRAM, ADJUST AOCOII FOR TFM SAVU,8,10 SAVU,LOIR S MM SAVIX,5,10 99,1,10 A" LOXRAO,BEGAD, , LOXRAD CONT AI NS ADD. FOR SUBPROGRAM TR TF LDXRAO, 1,10 A" A BEGAO,99 TFM XRAOO,381 XRAOO,99 S CDNOI 8TM pur,sx BTM Pur,sy BTM PUT,Sl CM PUTl+6,CARO BE CONOXT TOM PEXIT+l,9" GO TO OUTPUT FINAl BUFFER DF SYMBOLS pun B7 CONOXT TF CllBLK,GTBLKB, , OUTPUT ANY CAll RECORDS TF PUTXl,INTOP2 TFM 10RT, . . n IDGT ,CAULK, 7 B BNR "20. CARD B7 NUTPH TFM IORT".23 IOPT,PUTXX,7 B AM CLlBLK, 3, 10 AM PUTXl,3,10 B7 CONDXT+24 NEXTPH TFM FMON+35,CON02, • CALL IN NEXT PHASE BTM FMON,INIT COLE 03736 03748 03760 03168 62 17 49 03780 03792 03800 03812 0382" 03836 03848 03860 03872 03884 03896 03908 03920 03932 03944 03956 03968 03980 03992 04004 04016 04028 04040 04052 04064 04076 0408B 04100 04112 04124 04136 0"148 04160 04172 0"180 04192 0420" 04216 04228 04240 04248 04260 04272 04284 04296 04304 04316 "5 "9 11 66 26 62 26 14 0---5 -5054 03404 05212 03404 05212 17 47 17 17 17 17 17 17 66 17 4" 16 22 13 11 26 11 21 16 22 17 17 17 14 46 15 49 26 26 16 49 "5 49 16 49 11 11 "9 16 17 -5054 03800 02472 08066 03824 05067 03848 05073 05073 03944 05212 05212 05212 05212 07856 07856 03968 07"60 04100 05206 05206 05206 00099 02394 02394 02257 02389 02389 05212 05212 05212 05230 0"180 05359 05274 0"3"1 05701 00565 00566 04248 04304 00565 00532 04341 05701 04204 02359 02324 OQP58 -21072 O--J5 INRR9 0---5 INRR9 00J32 01200 -505" -5061 -5067 -5071 -2"72 -3956 O--KO -3392 05107 000-8 05204 000-5 000-1 02257 000-1 00099 -0381 00099 -5054 -5061 -5067 -5396 01200 00009 08469 05378 -"227 -4328 05396 -4271 -"351 000-3 000-3 -"359 -2"00 373 1620 MONITOR II 02240 CAlBU OSC 02 OSA 02250 02260 DC VERSIDN 2 02310 02330 02340 02350 CDN02 02360 . CAlLBK 0433" 1, • 04334 04335 5 X 04349 -5396 1 I, • 04351 PUTlY 04357 DC I, • 04357 04358 -5696 1 DSt 22 DSA 2,22 04359 2 CON03 04365 . DC BLXH TF 021040 CM 02450 BE 021060 CM 02470 BNE OH80 67 02'090 rFM 02500 02510 tOOUT3 BXM TF 02520 CM 02530 BNE 02540 SM 02550 02430 coour 0434" 2,2 DC 02"20 04341 DC OSC 1,0 0 5,17800 DC J780D 3,136 DC J36 OSA INIT 02410 1 0"336 OSC 02 DSA 02380 COH03 02400 -4336 04349 0"350 02370 02390 PAGE PHASE 2-A 04328 02270 CALLBK DSC 1.0 0 5,0 02280 CLLBLK DC -0000 3,3 DC 02290 -03 OSA tARO 02300 02320 PUTXX FOR TRAN II-D 2,2 I, ' 04367 04372 5 04375 3 5 X 04380 -2400 1 04380 04381 I,' U12,I5171 Sl,BGNSTI71 SL.132,9 COOUll SL,133,9 COOUT2 "12,STORIRI7" .. PRCNT,I 5 X -4367 1 04365 04366 04382 04394 0"406 04418 04430 04"42 0445" 04466 0"478 04490 04502 0"514 04526 BSX -+12,5(7) ,11 Sl,BGNSTl7I SL.124,9 _+32 PRCNr,I,10 37 I! 66 26 14 46 14 47 67 16 62 '26 14 47 12 04394 05067 05067 046'78 05067 04666 04466 05079 04490 05067 05067 0"546 05079 0--J5 INRR9 OOJ32 01200 00J33 01200 OQL06 -0001 O---N INRR9 00J24 01200 000-1 4 1620 MONlTOR ([ 02560 02570 02580 02590 02600 02610 02620 02630 02640 02650 02660 02670 02680 02690 02100 02710 02120 02730 02740 02750 02160 02710 02780 02790 02800 02810 02820 02830 02840 02850 02860 02870 02880 02890 02900 02910 02920 02930 02940 02950 02960 02910' 02980 02990 03000 03010 COOUT2 COOUll COOUT6 COOUT5 CDOUT8 COOUJA COOUT4 COOUTT COOUT9 SX 03020 SY 03030 Sl 03040 SN 03050 B7 CM BE CM BNE AM CM BNE TF 8LX BXM BXM BLXM TF CM BH BL BTM TFM 8TM BXM TF CM 8NE TOM 8TM 87 8XM TF CM 8L CM 8H 8TM 8NF TF 80 87 TR 8XM 8TM 8TM TF 87 OS DC OS DS OS DC VERSION 2 FORTRAN 11-0 PHASE 2-A PAGE .... 68 Sl,199,9 MRS V'L T, *+ 12 PUT,SX SX.SY COOUlA 6 1. ' 04538 04546 04558 04570 04582 04594 04606 04618 04630 04642 04654 04666 04618 04690 04102 04114 04726 04738 04750 04762 04774 04186 04198 04810 04822 04834 04846 04854 04866 04878 04890 04902 04914 04926 04938 04950 04962 0.914 04982 04994 05006 05018 05030 05042 05054 05055 6 6 6 1 •• 05061 05061 05013 05074 ·-32 SL. 104, 9 -+24 PRCNT,l,10 PRCNT.O cooun BCNSfl71,DOLLP .+lZ,STOR1R(7)< COOUT+12,HI1I COOUT+12,5111 *+12,5(7) SX,BGNSTI71 SX,199,9 COOUT4 COOUT5 ClISTS,*+12., WHEN OOLLP FOUND, CLEAR LISTS AND TABLES SX,124 PUT,SX., OUTPUT OPERATOR -+12.5(1. SX.8GNSTl11 SX.112,9 COOUT6 INPSW.O PUT.SX INITA . . 12.5111 SY,BGNSTI11 SY,149,9 COOUTT SY,151,9 COOUTT SEOPT ,COOUT8 .. COOUT9.INPSW M8ASE-l.SX OPTIMIZE SU8SCRIPT EXPRESSION -.20, MBASE, 11 COOUT9 8VLlSTl61.SX-) *+12.4(6) 03060 PRCNT 03010 OOLlP 49 14 46 14 47 11 14 41 26 65 62 62 66 26 14 46 41 11 16 17 62 26 14 41 15 11 49 62 26 14 41 14 46 11 44 26 ~3 49 31 62 17 11 26 49 04606 05067 04526 05067 04606 05019 05019 04lt 78 lNRR9 04654 04394 04394 04690 05054 05054 04854 04762 08222 05054 05212 04786 05054 05054 04702 05106 05212 02472 04866 05061 05061 04938 05061 04938 05716 05018 05100 04982 05018 OQP59 05006 08066 05212 05054 OH98 6 1 OOJ99 01200 00J04 01200 000-1 -0000 01200 05084 OQL06 0--K5 0---5 0---5 lNRR9 00J99 01100 01300 -4150 -0124 -5054 0---5 lNRR9 00J32 01200 00000 -5054 0---5 INRR9 00J49 01300 00J51 01100 -4186 05106 05054 0510J 05051 0--04 -5018 -5054 05061 6 6 6 1 05019 05084 OS 5 5,199 DC -0199 03080 lPAREN DC 5.104 -0104 05089 375 1620 MONI TOR II VERS ION 2 FORTRAN 11-0 PACE PHASE 2-A 05095 6 05101 6 03180 AOOSTR 03190 6.4 DC -0000. 6.5 DC -00005 OSC 1.0 0 DC 2.0 -0 OSC 1.0 0 OSC 1.0 0 OSC 1.0 0 OS ,--104 50. 11230054500445500000111101100066181094415750000100 OSC 1123 005H00445500000 11110110006618 1094~ 75750000100 OS OSA PASS2 03200 OSA IFA 05162 05161 -2940 5 03210 OSA COOEOO 05167 05172 -2728 5 X 03220 OSA INA 05112 05171 -2800 5 X 03230 OSA OUTA 05177 05182 -2716 5 X 03240 OSA SU8PF 05182 05187 -2152 5 X 03250 OSA OSKIO 05187 05192 -2928 5 03260 OSA CALLA 05192 05197 -2812 5 X 03210 OSA ENOA 05197 05202 -2740 5 X 03280 8GNST 03290 LaiR OS DC -8 OS OS TF TR AM CM BE 882 1,15999 2.8 05202 15999 05204 -2764 1 2 03090 SBASE 03100 MBASE 03110 FFOPSW 03120 ZER2 03130 CALLSW 03140 INPSW 03150 SU8PSW 03160 OIGSTR 03170 03300 SAVIX 03310 03320 PUT 03330 PUTI 03340 03350 03360 03370 05102 05104 05105 05106 05107 05003 05108 0 50 .- 05151 05162 0 5 05206 05211 05212 05224 05236 05248 05260 05212 2 5 PUTOUT. PUT-l.11 CARD. PUTOUT-4.2 .-6,5,10 --18, CARO+200 -+14 376 2 26 31 11 14 46 42 5 05392 -5)96 05230 05230 05274 0521J 05388 000-5 -5596 01200 1620 MONITOR II OHRO PUTZ 03190 03400 03410 03420 03430 03440 03450 PEX(f 03460 03470 INTOP 03480 TFM 8 AM B RCTY WNTY TFM BB OORG OSC 02 DSA IORT, •• 23 [OPT, INTOP. 7 INTOP1+5.2.10 -+36,00200 •• FORTRAN II-D PAGE PHASE 2-A 05274 05Z86 05298 05310 05322 05334 05346 0535B 05365 05365 C9TT ST ON SW2 CARD PUTl+6,CARO CONOXT .-4 2.Z DC 03490 VERSION 2 INTOPI 05371 1 •• 05371 05372 05378 5 X D5386 -5396 1 05386 05387 03550 PUTOUT OS 03560 DC 5 1, • 05392 05393 03570 03580 CARO 03590 PUTXY CAS OSS OSC 0 1 300 1.0 05395 05396 05696 DC 5.0 05701 03610 DC 303 0570" 03620 -03 OSA CARO 05709 03630 DC I, • 05709 05710 03600 punz 5 X -5373 1 05381 1 •• DC -5291 -5365 OOO-Z OOZOO 00102 00100 -5396 00000 05373 03500 INTOPI OSC 1.0 0 03510 INTOP2 DC 5.600 -060Q 03520 DC 3.2 -02 03530 DSA CARD 03540 16 49 11 49 34 18 16 42 00565 0053Z 05378 05346 00000 05396 05230 04180 2 1 300 1 -0000 036"0 03650 03660 03670 03680 03690 03700 03710 SEOPT 03120 03730 03740 03750 03760 -5396 1 SEOPT OS TR TFM CM BilL BLXM BH 05715 05716 05728 05740 05752 0576" 05776 5 SEBUF-4 .15E .. 47 ZEROS SEEl+42,SEBUF-3 SY,150,9, CHECK SUBSCRIPT OPERATOR ... 24,., BRAIICH NOT SINGLE SINGLE OPERATOR SEE1.5, • SEEl-12 .. , BRANCH TRIPLE 31 16 1" 46 66 "6 5 06B72 05854 05061 05776 05812 05800 01064 -6B73 OOJ50 01300 00005 01100 3-77 1620 MONITOR II 03770 03780 03790 03800 03810 01820 03630 03840 03850 03860 03870 03880 03890 03900 03910 03920 03930 03940 03950 03960 03970 03980 03990 04000 04010 04020 0"030 0"0"0 Olt050 04060 04070 04080 04090 04100 04110 04120 04130 04140 04150 04160 04170 04180 04190 0"200 04210 04220 0"230 04240 04250 0"260 04270 OltZ80 04Z90 04300 0"310 04320 SEE 1 CKCOM BLXN BLXM 67 BXM TF TRNM OOUBLE OPERATOR SEEl,ll .. TRIPLE OPERATOR 8SX "12,XRSTORI71, , •• 12,15(11 •• SKIP DUMMY TBUF-l,BGIISTI71" GET EXPRESS ION SEBUF-3, TBUF-4 AM --6,It,10 "12,5171 SEEl+24,1,1l, CLFLAG, FFOPSW "23,SE8UF+8 WKAREA,77777 WKAREA .. 8 CLFLAG "22,WKAREA LoCoM,4 PUTToT CKCOM+35,lZ,10 CKCoM+35,SEBUF+44 CKCoN+24 "36,SEBUF+4 SEBUF+4 SEBUF-3 ,9 "36,SEBUF+16 SEBUF+16 SEBUF+9 ,9 -+36, SEBUF+28 SEBUF+2B SEBUF+21,9 '+36, SEBUF+ltO SEBUF+40 SEBUF+33,9 NBASE-l,SK '+32,NBASE, II SEBUF+42,FP2 MA TF CF CM BrtE BLXM COMPSE MM BLK C BE BNR B7 BXM POTAB TFM TR SF TO TO SF INITI MA CM FORTRAII 11-0 SEEl,8,. BXM BCXM BNF TFM CM BZ TF C BL AM CM BNE ClFLAG BNF CF TOM BNF CF TDM BNF CF TDM BNF CF TOM CKF!X TF BO TF B7 VERSION 2 REDUCE REGISTER BY ONE -+20 SEBUF+"2,K SEBUF'+"1 LoIR,8,10 -+24POTA8,336141 .. GO PLACE ON TABLE LoIR,48tlO '+12,99141 SEBUF+42,SETAB-21"1, ,CHECK IF ON TABLE YES ONTAS ••• CHECK TOP OF TABLE '+20,SETA81"1 .. IAVAIL,., GD SEE IF IR AVAlLA8LE '-44,48141 INIT 1+ 11. SEBUF+B SETAB-47Iftl ,SEBUF-3,. PLACE ON S.E. TABLE SETAB-47141 IRUSE ,SETAB-48141 SX-4, SETAB-48Iftl SX-4 BVLO-l, SEBUF+R CHECK DONE BVlO-l"lO. PAGE PHASE 2-A 05788 05 BOO 05812 05824 05836 05848 05860 05872 05884 05896 05908 05920 05932 05944 05956 05968 05980 05992 06004 06016 06028 06040 06052 0606" 06076 06088 06100 06112 06124 06136 06148 06160 06172 06184 06196 06208 06216 0622B 06240 06252 06264 06276 06288 06300 06312 0632" 06336 06344 06356 06368 06380 06392 06404 06416 06428 06440 378 66 66 67 62 26 30 11 62 64 44 16 70 lit 46 26 24 47 11 14 47 4" 33 15 "" 33 15 "4 33 15 44 33 15 26 43 26 "9 26 33 1" 47 66 13 65 24 46 "5 "9 62 16 31 32 25 25 32 70 1... 05B12 05812 05824 05836 07062 06873 05854 05884 05836 06028 05931 06871 06871 06028 05978 02262 06664 05931 05931 05920 06064 06880 06873 06100 06892 06885 06136 06904 06897 06172 06916 06909 05100 06216 06918 06228 06918 06917 05204 06276 06356 05204 06300 06918 06788 06344 06836 06300 06439 OP071 OP071 07057 05050 05050 07116 07116 00008 00011 OP-N5 0--J5 INRR9 07059 000-4 0---5 OOOOJ 05102 -6884 77777 0-000 01200 06871 00004 01300 000J2 -6920 01200 06880 00000 00009 06892 00000 00009 06904 00000 00009 06916 00000 00009 05054 0510J 02298 02252 00000 OOO-B 01200 0-336 OOOMS 0-099 OP116 01200 OP11B 0-048 -6884 06873 00000 OP070 OP010 00000 06B84 000-0 9 1620 MONITOR II VERS ION 2 fORTRAN 11-0 PHASE 2-A PAGE 04330 BE CKLOIR", TABLE lOAOED 04340 TO BVLO-5,IRUSE, , SET I R NUMBER 04350 TF "22,~Vl!l-1 04360 C lOtOM,It" CHECK IN COMMON OH70 CF BVLD-4 04380 •• 32 Bl 04390 TRNM BVTAB (51, BVLD-5" NOT COMMON 04400 B7 ."20 04410 TR BVTAB (5I,BVlD-5" IN COMMON 04420 TF BVTAB-l( 51,1 SE+5 04430 BXM •• 12,6( 5) ,11 04440 SF BVLO-It 04450 AM INITl+l1,12,10 04460 CM INIT1+11,SE8UfH4" CHECK DONE 04470 BNE INITl,,, NOT DONE 04480 CKLOIR C lOIR,IRUSE .. CHECK lOW INOEX REGISTER 04490 8l -+24 04500 TF lOIR,lRUSE 04510 PUTTOT BXM ·+12.05(7) ,. UPDA 04520 61 •• 12, XRCOMP. 71 •• BSX 04530 BLX "12,XRSTOR(1I 04540 8TM PUT ,SX 04550 BTM PUT,SV,. PUT TOTAL EXPRESSION 04560 BXM H12,5(1I 04510 C 339,XRCDMP 04580 BE OUTSE". YES 04590 TF SY,BGNSTI1I 04600 B7 PUTTOT+4B 04610 OUTSE B7 SEOI'T-I,,6, LEAVE SEOPT 04620 • 04630 ONUB TO SX-4,SETAB-4BI41 04640 SF SX-4 04650 BTM PUT,SX,. PUT INDEXEO VARIABLE 04660 BXM ·OUTSE, 05 (11 .. UPDATE FOR NEXT OPERATOR 04610 04680 !AVAIL 8NR POTAB,SETAB-II"'I 04690 BCXM IAVAIL,"'BI'U,ll 04700 B7 PUTTOT ••• GO NO IR AVAILABLE 0"'710 • 04120 as 1 010130 WKAREA DC ",,0 -000 0"'1100 SEBUF DC 5.0 -0000 0<10150 OS 43 04760 OS8 6,20 0"'170 BVTAB OSt 6,0 000000 04180 KRCONP OS 5 010790 XRSTOR OS 5 04800 IRUSE DC 2,0 -0 0"'810 TBUF DC 6,' -0000' 010820 ISE I,D DC 06452 06464 06476 06488 06500 06512 06524 06536 06544 06556 0656B 06580 06592 06604 06616 0662B 06640 06652 06664 06616 066B8 06700 06712 06724 06736 06748 06760 06772 06780 . 46 25 26 24 33 47 30 49 31 26 62 32 11 14 47 24 41 26 62 61 65 11 17 62 24 46 26 49 49 06188 06800 06812 06824 62 06836 068"'8 06860 6<10 109 25 32 11 "'5 06861 06871 06628 07112 06498 02262 07113 06544 OPOMO 06556 OPOMO OPOl9 065BO 07113 06439 06439 06428 05204 06664 05204 06616 066B8 06700 05212 05212 06736 00339 06180 05061 06712 0511N 10 01200 07051 07116 00004 00000 01300 07112 07112 01069 0-0-0 00000 000J2 -6920 01200 07057 01300 07057 0---5 OP-NO OP-N5 -5054 -5061 0---5 01050 01200 INRR9 05050 05050 05212 06780 OP070 00000 -5054 0---5 06356 06836 06664 OP117 0-04Q 1 4 06876 06919 06925 07040 "'3 07050 07055 01057 5 5 2 01063 6 6 X 6 20 07064 379 1620 MaN nOR II 010830 VERSION 2 FORTRAN II-D OSC Itt" 00 00000000000000000000000000000000000000000000' DC 1, ' 048100 04850 BVlO 010860 SETAB 010870 0"'880 0"'890 04900 PHASE 2-A PAGE 47 07065 , 01112 5,' DC -000' DSt 1,1 1 OSt "'1,0 00000000000000000000000000000000000000000000000 OSC 1,2 2 OSC 41,0 00000000000000000000000000000000000000000000000 DSt 103 07111 07118 07119 47 07166 07161 47 01214 3 04910 DSC 41,0 00000000000000000000000000000000000000000000000 OSC 1,1t 010920 010930 OSC '00000000000000000000000000000000000000000000000 " 41,0 0109100 OSC 04950 OSC 47,0 00000000000000000000000000000000000000000000000 OSC 1,6 6 OSC 47,0 00000000000000000000000000000000000000000000000 DSC 107 1 ost "'1,0 0000000000000000000000000000000000000.0000000000 I, , DC 1,5 07215 47 01262 07263 47 01310 5 0"960 010970 04980 010990 05000 05010 05020 05030 050100 ...... ...... ...... ...... , 05050 OS 05060 AOS8Vl TFM 05010 BXM 05080 TF 05090 CM 05100 BNE 05110 AM 05120 Bl 05130 CM 051100 BNE 05150 SM 05160 BNZ 05170 BXM 05180 SXOP BNH 05190 CM 05200 BNl 47 01311 01358 07359 47 07406 47 OHOl 07<10510 ADSBVl 5 • PCNT,I,10, INITIALIZE PAREN COUNT •• 12,5(1) I t UPDATE STRING INDEX SX,8GNSTITI .. GET SYMBOL $)(,124,9, , SX • lEFT PAREN *+32, I t NO PCNT ,1,10 AOSBVL+12 SX.104.9, SX • RIGHT PAREN SXOP ••• NO PCNT,1,10 AOSBVl+12 AOSBVL-I,5IlI,6, EXIT ADSBVl MBNAME ••• MUST BE A NAME SX,155,9 MUS T BE A NAME MSNAME.' • 01459 011060 0.7412 01<1081t 01"'96 07508 01520 07532 01540 01552 01564 01516 01588 07600 07612 076210 3811 16 62 26 14 47 11 49 14 107 12 107 62 47 14 46 5 08351 011084 05054 05054 01540 08351 07472 05054 01600 08351 01"12 01"'5R 01158 05054 01158 000-1 0---5 INRR9 00J21o 01200 000-1 00J04 01200 000-1 01200 0---5 01100 00J55 01300 11 1620 MONITOR II 05210 05220 05230 05240 05250 05260 05210 05280 05290 05300 05310 05320 05330 05340 05350 05360 05310 05380 05390 05400 05410 05420 05HO 05"40 05"50 05460 05410 05480 05490 05500 05510 05520 05530 055"0 05550 05560 05510 05580 05590 05600 05610 05620 056]0 05640 05650 05660 05670 05680 05690 05100 05110 05120 05130 05740 05750 05760 CM Bl BNE 8TM CM BH Bl BTM 8TM OS CNTPE BX MSNAME TF 80 B1 TF BO TF TR VERSION 2 fORTRAN 11-0 PHASE 2-A PAGE SX,149,9 ADSBVL+12,.. -+21t." CNTPE,45.10. SXoI51,9 ADS8VL+IZ ••• ·"21t •• , CNTPE.75.10, 01636 016... B 01660 01612 01684 01696 0170B 01720 01132 01H5 01746 01758 01110 01782 011'10 01802 0181 ... 07B26 07838 0785... 07856 01868 07880 01892 01'10lt 07916 07928 NOT SUBSCRIPT OP NOT SINGLE SKIP 9 SYMBOLS NOT SUBSCRIPT OP MUST BE DOUBLE SKIP 15 SYMBOLS SKIP 12 SYMBOLS CNTPE ,60,10, 2 AOSBVl+24,*-111 ) M8ASE-I,SX •• lO,MBASE,II. FIXEO ADSBVl+12.,. ABASE-I, SX AOS8Vl+12 ,ABASE ,II, ARRAY T8UF-I, SX BVlISTl6I,TBUF-"" PUT ON liST SKN AOSBVl+12,"161 OS 5 PURGCM 67 ."12.STORIR(51" aSK CM STaR I R PURGCM-I, ,6 BE BNR .+24,BVTAB<1l151 BTM GOPURG, .-12 BCXM ·-21t,6151 BlX PURGCM-I,STORIRI5I,6, EXIT PURGC" OS GOPURG TO Tf TO AM C BE MM BLX TRNM Bl OS MRSVlT 61 CM BNE BLKM III MA C BNE BTM BCXM BLX BCXM B7 OS 5 019 ...... 019"6 07958 07970 07982 01994 08006 08018 08030 08042 0805" MD,BVlA8+6151 BVTAB+I 11 51 ,BVTAB+515 I MOC, BVUB+6151 ·STORIR,6,10 MO,MDC GOPURG<12 MD,48,10 ,,12,99141 SETAB-4114I,ISE GOPURG-I,,6 5 "12,STORIRI51" $TORIR 08065 08066 08018 08090 08102 08114 08126 08138 08150 08162 081110 08186 08198 08210 asx ·.24MRBVLT-1,016I,6 CMPRA,BVLlST-1I61 CMPRB,BVTAB+10151 CMPRA,CMPRB _+24 GOPURG, MRBVLT+lt8 MRBVLT<60,6151 "12,STORIRI51 MRBVLT+48,"16I,1I MRBVL T-1, .6. EXIT MRBVLT 5 I ... 41 47 11 lit 46 41 11 11 61 26 43 49 26 It] 26 31 62 67 I" 46 45 11 6 ... 65 0505 ... 01 ... 12 01684 01746 05054 07412 07732 01746 07146 2 01484 05100 07190 07412 08360 01412 07062 OQP59 01412 5 07868 08366 0185N 07916 01946 01892 0185N OPPM5 05054 0510J 05054 0836J 05054 07059 0--04 OQ]06 -0000 01200 OPONI -1892 0-0-6 OQ306 5 08353 OPONI 08355 08366 08353 01958 08353 08042 OPOl1 0194N OPOM6 OPOM5 OPOM6 000-6 08355 01200 OOOMS 0-099 01064 "1 66 70 10 24 41 11 64 65 64 1t9 5 08018 08]66 0811'0 0806N OS311 08316 08311 OS174 01946 08126 08198 08114 0806N OQ306 -0000 01200 0--00 OQP58 OPONO 08316 01200 -8114 0-0-6 OQ]06 O--OM 14 46 13 65 30 "5 It9 62 16 66 66 05204 08326 05204 08270 OPOl1 08302 08314 08210 0520" 0833S 0822J 25 26 25 11 24 46 13 65 30 49 61 I" 12 00J ... 9 01300 01200 000M5 00J51 01100 01300 000P5 00000 08221 3Si 1620 MONITOR. II 05110 057BO 05790 05800 05810 05820 05830 05B40 05850 05860 05870 058BO 05890 05900 VERSION 2 FORTRAN 11-0 PHASE 2-A PAGE CLISTS CM BNl LOIR,8,IO CLUB 11M LOIR,lt8,I0 BLX "12,99141 TRNM SETAB-4714I,ISE BNR .<20, SETAB 141 B7 *+20 BXH 0-32,'UI41 TFM LOIR,8,l0 8lXM "12,0151 BlXM CLlSTS-I,OI6I,6 08222 08234 082"6 08258 08270 OB282 0829" 08302 08314 08326 08338 OS 2 2,0 08351 08353 2,0 08355 2 6,6 -00006 05930 STORIR OS 05940 oc 1,0 08361 6 08366 08361 5 I 4,0 08311 It 1,0 08312 4,0 OS376 CLTAB • PCNT MD oc oc -0 oc -0 05910 MDC 05920 ABASE 05950 CMPRA oc oc oc , -000 05960 05970 CMPRB 05980 05990 06000 06010 06020 06030 06040 06050 06060 06010 06080 06090 ...... -000 • , 08462 06110 08,,62 08463 OC 08381 08382 08394 08406 08"18 08430 08 ... 42 08454 OB456 08"56 I, ' 06120 GTSUA OSC 1,0 0 06130 GTSLKB DC 5,600 -0600 06140 OC 3,2 -02 06150 DSA INPUT 06160 OC o-o"s 000-8 0-0-0 0--00 4 ...... GETX FORTRAN ROUTINE OS· StiR GETSY,INPUT TFH IORT ,*+23 B IOGT ,GETBLK ,1 AM GTBLKS ,2 ,10 GETSY TF GETX-I,INPUT+4,6, GET NEXT SYMBOL TR INPin,INPUT+S" SLIDe DOWN BS DORG 0-9 GETBlK DSC 2,2 02 06100 DSA GTBLKA GETX 000-8 01300 000M8 0-099 01064 OPII8 "5 16 49 11 26 31 42 5 08430 00565 00566 08469 0838J OB,,82 00000 2 -8464 I 08464 08469 08Hl 3 08411 08,,17 . 08418 I, ' 3S2 -84112 I 08482 -S417 -8"56 000-2 08"86 08487 00000 13 1620 MONITOR (( VERSION 2 FORTRAN 11-0 PHASE 2-A PAGE 06170 06180 INPUT OAS DC 1. ' 08481 08482 06190 06200 OS DC 199 1 •• 08681 08682 06210 06220 AOSL 06230 06240 OS TF TOM DC 5 8GNST+l(71.0 1 f',- 08687 08688 08700 08711 06250 06260 06270 06280 RMNS 06290 06300 06310 8XM 882 OS TF TR BB2 pC 8GNST(1),*-1,11 .+12,5In 08712 08724 08730 08732 OB744 08756 08758 5 RMNS-l. BGNS f( 71 .6 BGNS T-4171 .8GNST+1171 1 •• TCO 06420 OENo 199 1 26 15 62 42 26 31 42 5 INRR9 10--0 1 0868P 00000 08724 0---5 5 0873J INRR5 INRR9 10--0 16002 16002 00000 00000 00701 00702 00500 00000 08759 16002 16002 06320 BVLI ST OS 1 OORG 16002 06330 06]40 8LKOPT OSC 1.0 0 06350 5,15930 DC J5930 06360 DC 3.070 -70 06370 5.2400 DC -2400 06380 STFILE 34 8LKOPT.701 8LKOPT,702 06390 38 06400 TRA 06410 14 16007 16010 16015 16016 16028 16040 16052 16016 STFILE 34 38 36 49 00000 38il 1620 MONITOR II AOOSTR AOS8YL ANALIZ BLKOPT BVlI ST CAL8LK CALLBK CAllSW COCALL CONOXT COOUTt COOUT2 CDoun COOUT4 COOUT5 CDOUT6 CDoun COOUT8 :OJJT9 :OJJT4 CKLJI\ :LFLA:; 1:L1 Sf S :LL~LK CJOEn CJQEIF CJ~.SE OI~ST:t FCTE~O FFPSo FILEST GET3LK E~O JF J~E 05157 07"60 02672 16002 08759 04328 04336 05105 03812 0"180 04678 0,,666 04478 04854 0"762 04702 04938 04786 05018 04198 06628 06329 OBH2 04341 02900 03216 06Z7b 05]03 02118 05102 OUH 08U6 ASSEHlY. GOPURG GT8LKA GT8LK8 HEADER IAYAIL INTOPI INTOP2 LENGTH LOXRAO LPAREN M8NAME MRBYL T NEXlPH PASKIP PASS2A PURGe" PUSTSN PUTOUT PUTTaT ASASE AOSL 8E . . 0 BG~ST BVLD BYU8 CALLA tHO COU COlS COIC COlI) COlE! YERSION FORTRAN 11-0 079"6 0846" 08469 02218 06836 05373 05378 02248 02394 05089 07758 08066 04304 03572 02'16" 07856 02294 05]92 COlE COCL2 COCL3 COCLN COENO CONOI CON02 CON03 COOUT CKCOM CKFIX CLTAB CMPRA CMPRB CNTPE COOEl DOllP OSKIO 0~66' e~OA FCrs~ HHI 196U 32251 15999 37117 J70U 02740 15196 Olin J3369 al24J alH2 HH9 FMD~ FP2 F GETSY GEnt I FA nl I ~ITI UITA UIT8 INIT INPS~ PHASE 2-A 03768 03944 03956 03020 03980 04100 04359 04367 04382 05896 06172 08326 OB371 08376 077"6 03136 05084 02812 02764 o22u 02324 02298 02250 Dauo 08382 02728 02776 06428 02472 02580 oHoo 05106 PAGE INPUT INTOP 10GT IOPT 10RT IRUSE ISE JAY K II LOCOM LOIR LSTlO HBASE MOC MO Nl N2 J~U~ ]JU JUTSE '2PH P45S2 ~CNT PEKI r PJUS P\C~T PJTl PJT2 pUT PUTXX I)UTlr 08482 05365 00566 00532 00565 07057 070M 02367 02252 02616 02262 05204 02308 05101 08355 08353 -02233 02238 o678B 02752 06780 02313 02940 08351 OB5B 06356 05079 05224 05274 05212 04351 05696 15 PUTXl RECLG RMNS SAVI X SBASE SEBlJF seEI seon SETAa SL SN SUBPF SXOP SX SY T8ASE T8UF UFSTR 0 oW XR401 05701 02243 08732 05206 05095 06876 05812 05716 07118 05067 05073 02928 07600 05054 05061 02303 07063 02263 02Hl lE~2 051 O~ 16DH 08356 05107 06871 07050 07055 S fF IL E R SJBPSo SfO~I ~(4\E4 He)"? X\SfJ\ nn6 n3H ~lO I OlOll OJ020 DJ030 0)040 0)050 OJ060 OJ070 OJOBO OJ090 0)100 01110 0)120 01130 OH40 l1l50 OJl60 01170 0)180 01190 00200 onlo 0)220 00230 00240 00250 00260 00270 l02BO 00290 00300 00310 00320 00310 00340 00350 00360 00370 00380 )0390 00400 00410 00420 00430 00440 00~50 IJP T InT 11-) i=A)E~ H ~2 • ~ECl:; lE~:;rH F ( ~EG"O LJ:JM ~FSU F: TSW 'JSTS~ W~ F>2 BASE LSHO P2PTR F: fE ~O F~J~ :;~ , Z Z I 5 Z Z , 5 JJ I I Z 2 02Hb ,, , , 02298 OZ303 02308 02311 OZ318 02323 02324 02336 02348 02360 02361 J2367 02372 02377 02379 02384 02389 02394 02399 J2400 OHI2 02424 02H2 5 )S OS OS .+42 .FMJ~-I IHT I ]:;T , •• 23 .7 0-4 I Ji):>:)5,. St" lJJ05" ~X .. OJOO2,.]P'" ()JOO5.,S't'" ,, , L ... :; f' :;ntLK~ M~ F .WW ,PASSII-I •l [)~N 0-3 :LH .99 , .. ):JW,!l:::ao T= 00~80 1~& I ZZ! B OS OS OS OS TO lOS)2 OJ565 00566 00796 00716 00475 02218 OZ218 02233 OZ238 02HO OZ243 02H8 02250 OZ252 02257 02262 02263 OZ291 OZ294 ,71b H as sv :J~:;: PHASE 2-B ,4-15 OH~ HA)O LJHAO FILEST PASSII 11-0 • ,b& OSS OS OS OS l5 OS OS OS OS OS OSS OS OS OS OS OS OS OS OS OS TF TFM B B ). FJRTRl~ .5&5 i)l~:; JAr S{ SK ~E~SIJ~ II PiASE l -8 ,512 OS OS OS ~J~:U OS I ):~L OS SfS:AL OS n:;r 00460 OOHO .10 a2U6 02H8 02460 02472 ,~ 00~81 00490 • 00500 00510 00520 0 00530 005~0 ~HIfH =)HU~ u. 00550 n:JWol.IO c· lOCJW S=T l)OHSS n ar~ nJUST.U:JW T= ~:"o,O:J~ HITULIlE T= ·JTKl T=~ IHT I):; , 8 AOCO~ TO 26 16 4' 49 26 26 13 21 26 11 33 H 2 5 2 3 5 2 2 5 5 3D I I 2 2 5 5 5 5 5 02366 00565 00566 00000 I 5 5 2 5 5 5 5 OH27 04931 02250 I 0871~ 059&9 05969 05969 02323 -235~ -0000 00)00 02B6 02H9 000-2 OOJB 02257 000-1 00000 EVE~ .LSTU ,·+21 , f)UfXK .7 Ol484 02496 17 OH4~ -5~~9 26 022>1 05969 02508 Ol520 02532 l6 16 4" 07665 00565 00566 02308 -2HI -7052 385 1620 00560 00570 00511 00572 00513 00514 00575 00580 00590 :UAR 00591 00600 • 00610 00620 00630 00640 00650 00660 00670 00680 00681 00682 00681 00684 00685 00686 00690 00700 00720 00130 00740 00150 00760 00710 00180 00790 00600 00810 00B20 00B30 00840 00850 00860 00810 00860 00890 00900 00910 00920 00930 00940 00950 LI ~)H TF TF ~nSIJ~ flR II It::xr .~nUF , .PRE3JF C~ ·.HI 8JF I 0-6 ·-18 BL .-)& n."''' ,~ ,75 ,BUFft .. 15 .10 ol ,10 :OllB.))S~ Bl l~ ~EI(T .1"j)Jr"l2:~ 'fEXr S~ FJRTRn 11-0 .PlPTR S:H SET ~. snH:; f)M 0: 1, t, .. 8LK~ ."1 Z ar~ :;2rx ,. .10 .1 ~ECORO Ll L3 E((f :)OE5 11 14 41 12 43 II OlB3 07706 08015 OH1~ ooop, -8JlD 01300 OOJ-I 06993 000-1 :O~STl~TS 15 16000 I 00)00 S~HEA ,~I HB9 .5171 .SX .SK .132 02676 02688 02100 02712 02724 02136 02748 02160 02772 02784 02796 02808 02820 02832 028H 02856 02868 02880 02892 02904 02916 02918 02940 02952 26 66 08997 02700 048H 04946 OZ317 02100 OZ8l0 Ol820 16009 02820 00000 05965 02832 05840 09239 09239 02916 09251 04166 0--00 02844 00339 02844 02844 09034 0---5 -2377 -2377 00H2 DilDO 00100 00400 00H4 01 zoo 00102 00100 0---5 05H9 OSL SK .9 LI n:1 LlJ 8~:4 LlJ :~ !l;"'ST+l:) , 13ft .9 LIJ 8= R:rv WHY U:JW-4 UKM "·12 • ,171 ;rS:L ,(;TSt:L-l aT T= LV .8.~S TI7I ,152 eM LV •B Bi Ll {V TF .8:;~ST+I)( 11 8TM FH:E .0 010 016) 8~M .0161 .5(1) 8~M LZ :~ H7 ,10 .5 8E L2 SC~ Ll .-5171 JJTPJT STHEMEH NJMBER AOo~eSSES _ .. 12 8~M • -5111 BTM H~S ~~ "~STl7I B~E SoTFC r 8T~ i)JTX · ·.15 !t.SLA .... I<..SL ...... K J2964 02916 02988 03000 03012 03024 03036 03048 03060 03072 03088 S(F S(F 03088 03093 03098 HloO 03112 .n n !l :;''fST-H 1) :~ ~;~STI7I ,1'-D ME TlM : (F ~T l)SW .1 TO SM 10 07706 08015 02,86 01710 OZ586 02586 02580 01706 10314 09361 02664 02675 C~ DH 21 26 26 .0 arM n ~(FMT Ol544 02556 02568 02580 Ol592 02604 02616 Ol628 02MO 02652 ~n'tST"l a~E LlJ r:JA,;:: PHASE 2-B 8;~sr-41 11 ,ElG~STt'l(1) .9 .8G~ST+1I71 .129 • AD:)'" .lJ •9 olD 386 17 17 14 H 47 47 14 46 34 38 66 27 26 14 46 26 17 62 62 14 46 6l 62 17 31 02976 04990 -5914 -9026 -9026 09251 09257 OH69 OOoJO I~H9 03048 08993 26 Il O---~ 03136 06030 5 H 17 O---~ -9343 LJ--O OJJ40 01200 00001 13--0 OJJl8 01 zoo -3088 K 3 I~H5 47 15 31 14 H I~U9 0-152 01100 iJ--9 000-0 0--00 0---5 000-5 01200 I~U5 I~H9 H20 ~O~I Tn II 00960 S~ '):J~ 00910 SETFCT 8ll *H2 00980 au SEHMT 00990 TF ~ 161 01000 nF EltIIlH) 01010 T=M S:H 01020 n:1 UTY~ 01030 ~: ry 01040 ~HY O:JW-~ 01050 s'n 01060 W~TY 5161 01010 ~JTYP n. 9161 OIOBO :~ 5'~STlll 01090 BE :JOEl1 87 01100 l2 01110 SET~.T TF nOO02 Co 01120 nOOOl 01130 S~ nOOOl 01140 sr. ·~u 31150 OSA ~40002. U:OW 01160 01110 01180 01190 01200 01210 01220 01230 0l2ftO 01250 01260 01270 01280 01290 01300 OUlO 01320 01330 01340 01350 01360 01380 01390 01~00 87 CJDEO 57 no 000 os ~40001 OS ~40002 os HOO03 as ~~0004 os ~40005 os ~~0006 os ~~0007 05 ~4000B os ~~0009 05 UOOlO os ~40011 os ~40012 os ...... 'OJ~ST 880~T 2-8 F'A~e 0312~ 03136 03"8 03160 03112 0318. 03196 0320B 03220 03232 032n 0}Z56 03268 03280 03292 03300 03312 03324 033)6 03352 .H~I ,AD:l" .8151 .0 .8 .1 .ll .128 .9 .~161 .~ .10 ••• 1~ , , 03352 03357 03358 03366 03377 03382 03387 03392 03397 03402 on07 03412 03417 03422 03U7 03ft32 OHJ7 5 n 5 OJJST 5 *.2), .-1,11 B) BJ~T,21D .~ OJJST-I.l,613 FJHU~ os ~RGCEOJRE 532 S~ T" os Bt BU os 05 J~ SEU:~ 5 J'n JPn-1 •• Z~.FJC" lI»Tl.!hlO. TF~ 8) 01~40 ~HASE 5 5 '5 A 01450 JOTl 01460 01410 014BO FX 01490 JUSE 11-0 .10 , FJUU~ 01410 OlUO OIHO FORTRA~ S:TFC T-H :XIT ; ; ; 5 5 os J~S~ VElSIO~ .6 .n-1I61 J~S~-I .' RJJrl1E ...... 033-6 ~5 05969 03U8 03300 26 O--O~ 73 16 09371 09361 03256 00000 05965 00000 0--05 0--09 OH69 0--08 0-000 00100 00102 03100 00101 00100 OOOOJ 00J28 01200 12 65 " H 38 H 38 15 .•...• O--O~ H H~R9 ~b IOH2 028H 03387 0--04 03387 00000 03387 000-4 07512 -3352 5 x 2 49 26 3} 12 17 ~9 ~9 03H2 03H~ 25 03456 03468 03480 43 11 42 03486 ,OeASE • ~PS~-I ,11 IS If FIXED OR FLOATI~; VARIA8lE FLOAfJ~G, AOJUSf H8lE AOORESS ,6 ORl~~ 03~88 16 03500 OJ512 03524 03536 03547 21 43 12 26 •• 12 o35~8 46 03560 03562 02472 H I , . . 10-1100 -3387 -5969 03160 02928 5 5 5 5 5 5 5 5 5 5 5 5 5 5 03467 03480 03HL 5 035H 03546 03536 03541 OHAP 0 03560 onH 00210 000-1 -2412 OHS. 03562 000-5 00000 01400 I 0 387 U20 01500 01510 FlAO 01520 01530 FUO 01540 U~1t 01550 ~HH os 0: -I as 0: U 0: u~lTn II VUSJ3~2 FORfU~ 11-0 PA:JE PHUE 2-8 J 2.1 03565 03567 J 2.21 03570 03572 5,-03798 03577 -379~ 01560 TU:E 01570 ~EAO 01580 OJREF 01590 n.E 01600 01610 FL~~L 01620 FUJL OU30 FLEX. 01l>1t0 FXEXP 03582 5,-03793 0: -37n 5,-03&03 0: -3801. 5,04286 0: -428& 00005,113))" OOUF, 0: JUDO 0: 5.0H66 -Ub6' 3 os 2,3 0: -3 0: 5,03902 -3902 0: ',04111 -4111 5,040n 0: 03587 03592 03597 03602 03605 03607 03612 03617 5 03622 -Iton 03627 5,17300 oc JUDO 01660 ACCEPT 0: 5.0lt238 -U38 5,-Oll5B 01670 sun oc 01650 OJMAX 33632 5, 011>37 5 -225~ 036~2 5,042&2 01680 ACCTAP 0: -U62 OC 5,-02263 01690 sun -226L 01700 PU~CH 0: 5,04211t -UH 00005,17300. ,OO8UE. 01710 OJ8ASE OC JUDO 5,04190 01720 .~~fAP 0: -4190 01730 os 3 2,2 01740 FlSU8 0: -2 01750 os 3 01760 FXSU8 0: 2.ll K2 01770 os 3 2,9 01780 FlOVO 0: 036~7 5 03652 03657 03662 03665 OJ667 3 2 03670 03672 3 2 03675 03677 3 2 03682 5 03687 5 -9 01790 FXOVO 01800 FI.RDV 0: 5.03926 -3926 5.D40~6 0: -~04b 388 1~20 01810 fXRllV 0: ~J~ITJR II VHSIJ~ 2 FJRTRA~ 1l-0 PHASE 2-~ PA:iE 5.03950 03692 5,03999 03697 5.038!>4 03702 -l950 01820 F XTOFl 0: -3q rlB 01830 F l TJF X 0: -)854 01840 RFlSUB 0: 5,04022 03701 5,[)}878 03712 -~0<2 01850 ~FXSUB 0: 01860 RS~Fl 01870 RS~FX 0; 5.03974 -3974 5,039140: -3974 5,-03808 0: -]87~ 01880 13 03717 03722 03727 -380~ 01900 SwF 5,-0381] 0: -381l 0: 5,-02288 O19LO SWFFX 0: 01920 HYPE 0: 01930 SLASH 0: 5, - 03818 -381 ~ 0: 5,-03823 -382l 5,0,.310 0: -BID 5,OH]0 0: -H30 0: 5,0'454- 01890 SWCFX 03732 03737 -22B~ 5,-2268 037~2 -22b~ 5,04406 037~7 -~406 01940 REP 01950 HYPE 01960 FTYPE 01970 HYPE 03752 03757 03762 03767 0]772 -H~4 01980 ~EDJ 01990 HTVPE 02000 XTVPE 02010 ASTJP 02020 FACAO 020]0 IJE~O 02040 IXI 02050 PAR 02060 MAT 5,-0]828 0: -38n 5,OH78 0: -H78 5, -0]811 0: -]811 5,02395 0: -2395 0: 5.02492 -l492 5,-03838 0: 0]771 0: 5,04010 -4010 5,03B,.3 0: -38B 0: 5,-03848 03801 03782 (B187 0]192 03797 03802 -38n 03812 03811 -384~ 02070 BGNST 02080 02090 02100 SRFCT OS 1,15999 FOHRAN SYMBOL fA8lE SEARCH ROUTlIjE 5 as TF SRSY,--l,ll. MOVE I ~ PARAMErERS 15999 03822 03824 26 0]88] 03836 11 0]8~8 Z6 11 26 03823 03946 0]823 0]82l 389 1620 MONI TOR II 02110 02120 02110 02140 OZlSO 02160 02170 02180 02190 02200 02210 02220 02230 02240 02250 02260 02270 02280 02290 02300 02310 02320 02]30 02]40 02350 02360 02370 02180 02390 02400 02HO 02420 021t30 02HO 02450 02460 02"70 02480 02490 SRSY OPX PFPSW SRNX SRGT OMSW COMSW P21 Pl1 AM TF AM TF OS SlX S,R TFM TOM os os VERSION Z FORTRAN 11-0 PHASE 2-8 PAGE S~FCT-I,5,10 SRGT,SRFCT-I,ll SRFCT-I,I, U SBASE-l 0]860 0]812 0]883 0]884 03896 03908 03920 03930 03928 03932 ,- "12,SBASE161 SRNX,S8lSE,II SRGT,O,67 ~MSW,l.ll • ·-1 ,--3 SR.FCT-l,,6 8 OJR:; --3 TF .S8~SE,11. ,_-5 OS TOM FPSW 8~F ·.68,SRGT.ll BO "36, S~IPSW CF SRGT .. 6 OS OS TOM FPSWol,ll TFl OPX,P27 ,-,--I B a+20 0<4024 OJRG TFl TO TO TOM --3 DPX,P17 FXORfL,1I61 .. B~F .+2~. TOM I:OM5",00171,19, os os COMSW ,--I ,--I ~5 16 15 49 04159 0 0]896 03940 0]940 04418 0 0 0]82l OMJ60 0416-0000 OOOOJ 00000 039~0 MOVE 08JECT ADDRESS OF S'~80l 03940 03946 03952 03964 03916 03988 03998 03999 [)/ltSW, 2( fl),. 65 000-5 0]82l 000-1 00000 rJ GT ,0 O~OOO 0~012 26 15 44 43 33 15 06 49 00000 0 09Hl 04032 04012 03940 0 0 09]41 0]9]0 04044 041600000 03940 09349 00000 OOOOJ 04078 00000 0~032 0~032 SET FIX OR FLOlT SET OIME~SION SWITCH ,01210 ,189 04044 04056 04068 06 25 25 15 0~078 [)MSW 0~080 0~O92 SET COMMON SWITCH 44 15 04102 a+20,DMSW .. BO IS IT OIMENSIO~ED 87 NO, EXIT SR.CFFl" • TF ~lt99995(b) •• SET I MAX SRCFFL CF FXORFl B EXIT SRFer-l"b, seASE OSC 1,4 4 02500 FXORFl 0: 2,0 -0 02510 FORTRAN FORCE PROCEDURE 02520 os 2 025]0 FJRCE CM LV,104,9 02540 FORCE8_21t 8l 1t'll,104,'9 02550 CM 02560 8l FORCEB+24 02570 8lX a+l2.lV+l(S) 02580 8lX ·.12,RV+lC6) 02590 Ml F:ODE,FB4SE(51 02600 CM RV,141,9 02610 8~ FORCC FBASE-7 (5), FSASE (6) 02620 FORCES C 026]0 8~H ·.24 02640 Ml FCOOE.lH 039]0 04162 03998 03999 0 04104 0]999 0 04102 0--01 0--02 -J~70 03998 -OJll 0~104 't3 0412~ 0]998 0~1l6 49 26 04136 09338 04162 0]82l I 9RR95 00000 00000 04124 04[]6 0~1~8 33 ~9 O~160 OU62 0~164 0~166 0~178 14 41 0~190 14 0~202 41 65 65 10 04214 0~226 04238 04250 04262 2~ 04286 41 10 0~298 3UO I~ 46 0~2H 2 09239 04298 09251 04298 04226 04238 04321 09251 04330 OL]-] 04310 04321 00J04 01300 00J04 01300 OR2MO ORK52 Ol]JO 00J41 01100 OlllO 01100 04128 1620 02650 02660 FCOOE 02670 02680 LH 02690 FJRCC 02700 02110 FBASE 02720 02730 02740 MO~ITOR C~ 61 OS F6ASE-715J .0.10 FORCEB.12 , .+2-1040 0: -1 OC NO OSA 2,1. , OU52 L3 01t351 01t351 01t158 1.0 2.60. , ,.9 04362 DSA COOE6 04367 1.0 04367 01t368 02830 FTSW 02840 02850 02860 DC -0 DC -0 DSA OSC 0 DC -2 DC -0 DSA 2,0, , 04372 CODE9 04377 1.0 04377 04378 04382 CDDET 04387 04387 04388 DC 1.0 02880 DC 2,0. , 02900 02910 FFRSW 02920 02930 DC -0 DSA OS DC -0 0:: -0 5 X 14 49 -2916 013-3 0,.286 0 2 000-0 5 X -2916 1 2 5 X J001lt 1 5 • JOl46 1 5 • j0098 1 04390 DO -0 02890 42 04380 IF 2.0 02870 CALLX 0--00 04322 Oc 04370 COMPUTED GOTO 2.0 2,2. f 66 04360 GOTO 2.59 02790 RXFLAG DC 02820 RPARE,. 2.50 DC 02810 PAGE PHASE 2-8 01t328 0,.330 043,.2 03310 01t350 DC 00 DC 02800 FORTU,. 11-0 .' 02760 02180 VERS ION 2 04310 04321 04322 0,.328 02750 RFlAG 02770 Ii 8LXH .+12,O(bl OS 882 OSA L3 2.0 04392 CODE 12 04397 2,0 •• 04397 04398 04400 DOA 5 X J0170 1 2 OH02 2.0 3\11 1620 MO,.ITOR Ii 02940 OSA 02950 SUBPSW OS 02960 DC JO 02970 DC JO 02980 OSA 02990 RMSW 03000 OSC 0 DC -0 VERSIO,. 2 FOR TRAN 11-0 PHASE 2-8 PAGE COOEO 04,.07 04407 04408 04410 I 2.10, , PLUS 2,10 04U2 COOEI 04417 1.0 04417 04418 2,0" PRI,.T 5 X -3366 1 2 5 X JOO02 1 04420 03010 DC 2.0 04422 01020 -0 OSA CDOEl4 04427 2,0" 04427 04428 04410 J019,. 1 2 2.0 04432 2 COOE14 OH17 2.0 .. 04437 04U8 04440 J019,. 1 2 2.0 04442 2 CODE14 04447 0'0447 04448 J0194 1 01030 FLAGSW OS 01040 DC -0 030S0 DC -0 01060 OSA 03070 CKSW 03080 03090 03100 OS DC -0 DC -0 DSA 03110 DC 1.0 03120 DC 03130 -S DC 2.5" 03140 DSA READ TYPE MPY 2 S X S X S X 04450 2 2.5 04452 2 COOEI 04457 04457 04458 JOO02 1 04460 2 -5 031S0 DC 1.0 01160 2,5 •• 2.4 04462 03180 OC -S DC -4 DSA COOEI 04467 03190 DC 1.0 04467 04468 03110 EXP 392 5 X JOO02 1 1620 MONITOR II 03200 03210 03220 DC -0 DC -0 DSA 2,0. t 04411 04411 04418 1.0 DC -0 DC -0 OSA 2,0, , J0194 1 04490 2 1.0 2,0" 04492 CDDE14 OH91 04497 04498 DC 1.0 03320 DC -0 DC -0 DSA 2.0., 5 X J0194 1 04500 PUNCH TAPE OH02 CODEl't 04507 04501 04508 J0194 I 04510 2 DC 1.0 03360 DC JO DC JO DSA 2,10" MINUS 2,10 04512 COOEI 04517 04511 04518 OH90 DC 1.0 03400 DC -5 DC 2,5, • 03410 5 X 2.0 03350 03380 PUNCH 2.0 OHIO 03370 04482 04487 DC -0 DC -0 OSA 03340 OH80 04487 04488 DC 03330 5 X J0194 1 CODE14 03280 03300 ACCEPT TAPE 2.0 03270 9 04410 ACCEPT CODEl4 DC 03290 PAGE PHASE 2-8 04472 03240 03260 FORTRAN 11-0 2.0 03230 03250 VERS [ON 2 5 X 5 X JOO02 1 04520 DIVIDE OH22 2.5 -5 03420 DSA CODEl 04527 OH27 04528 03430 DC 1.0 03440 DC -0 2,0" 5 X JOO02 1 04530 RDVD 39;\ 1620 MONITOR II on50 03460 DC -0 OSA PHASE 2-8 PAGE CODEO 0"537 04537 04538 DC 1.0 03480 DC "9 DC "8 DSA 2,~9., 03500 FORTRAN 11-0 04532 03470 03490 VERSION 2 2.0 CMA 5 X -3366 1 04540 2,48 04542 COOE8 04541 04547 04548 J0122 1 04550 2 03510 DC 1.0 03520 DC "9 DC -1 DSA 2.1 04552 CODE3 04551 04551 04558 JOD26 1 04560 2 03530 03540 2,49" LPAREN 5 X 03550 DC 1.0 03560 DC 00 2,60" 03570 DC 2,59 04562 03580 N9 DSA CODE6 04567 5 04567 04568 JOO14 I 03590 DC 1.0 03600 DC 00 OC N9 DSA 2,60, , 03610 03620 STDP PAUSE 04570 2.59 04572 CODE6 04511 04517 04518 2 5 X JOO14 1 03630 DC 1.0 03640 2,60, , 2.59 04582 2 03660 DC 00 OC N9 DSA COOE6 04587 5 X 03670 DC 1.0 04581 04588 03680 DC DO DC N9 2,60 .. 03650 03690 04580 CONTINUE FORMAT JOO14 1 04590 04592 2,59 3 lJ I, 2 10 1620 MO~ITOR II VERSIO~ 2 FOR fRAN 11-0 PHASE 2-B PAGE 03100 DSA CODEt1 04597 OHIO DC 1,0 04597 04598 J0242 1 03720 DC -5 DC -0 DSA 2,5" 03730 03740 04600 2 04602 2 CDOE4 0460t, 04607 04608' 03750 DC 1,0 03760 DC -0 DC -2 DSA 2.0" 03710 03780 04610 2 04612 2 CODEO 04617 5 04611 04618 -3366 1 DC 1,0 03800 DC -0 DC -0 OSA 2.0 .. 03820 04620 2 04622 2 COCALL 04627 04627 04628 J0410 1 DC 1,0 03840 DC 00 DC 00 DSA 2.60" 0]860 CALL EXIT 2,0 03830 03850 SENSE SW I TCH 5 X J0050 1 2,2 03790 03810 UNMNS 2,0 SC 5 X 04630 2 2,60 04632 2 CODED 04637 04637 04638 -3366 1 04640 2 5 X 01870 DC 1,0 03880 2.60 .. 2,59 04642 03900 DC 00 DC N9 OSA CODEl 04647 03910 DC 1,0 04641 04648 03920 DC -0 DC -0 DSA 2,0 04652 2 COOE5 04657 5 X 03890 03930 03940 2.0" EQUAL COLON II 2 '5 X JOO02 1 04650 395 1620 MOIU fOR II 03950 DC 1,0 03960 DC -0 DC -0 DSA 2,0" 03970 0]980 VERSION 2 FORTRAN 11-0 PHASE 2-8 PAGE 04657 04658 -2964 1 04660 2 2,0 04662 2 FCn 04667 04667 04668 SU8P 03990 DC 1,0 04000 DC -0 2,0 •• 04010 DC 2,0 04672 04020 -0 DSA FCn 04677 1,0 04677 04678 04030 DC 04040 DC 04050 04060 -0 DC -0 DSA 2.0,. 5 X J0338 1 04670 SUBF 2 5 X JOll8 1 04680 OEF 2,0 04682 FCn 04687 04617 04688 JOlla 1 04070 DC 1,0 04080 DC 2,0" X 04690 2 2,0 04692 2 04100 -0 DC -0 DSA CODE15 04691 0"110 DC 1,0 04691 04698 J02l8 1 04120 DC -0 DC -0 DSA 2.0" 04090 04130 04140 CALL 04700 2 2,0 RETURN 04702 2 FcrRT OU07 OUOT OUo8 x JOi62 1 04150 DC 1,0 04160 04170 DC -0 DC 00 2,60 DU12 04180 OSA COOED 04717 , 1,0 04717 04718 -3366 1 0IS IN OUTPUT 8UFFER ,I>IEXTl31 PUTlI>IS aLX "12 ,pun ,11 TF 2(31 ,pun ,11 lDCOI4 C B~H *+24 ,552 BD FLG2 ,PUT2 ,11 PUUC C lOCO" 8.H "2~ ,SSl 80 *+2,. CF 1131 PUTGT OS ,10 5SXRl M" ,7131 8X" '.12 ,PUT2 XRFIL BT ,SS3 FlG3 HER.E 80 ,10 PUTXO SSXR2 ,5131 aXM -+12 ,pun aT XRFIL ,SS~ HERE2 BO FLG" ,8 ,0 PUTXE TFI4 5S" ,10 ,12 SII SAL ,10 ,12 AM JtEXT ,SLNG PUTXF A AOCOW ,AOCDW SAVCDW TF ,6 ,SLNG lNGAO A ,FLGlt+ll TFL SSXR2 ,6 PUTX-l B ,99111 XRFIL &LX .+1~ ,0 ,10 99 CM XRFIl2 BE ,XR8ASE III TFL 99999131 ,11 ,XRFIL-1 "A Olll ,XRFIL-l ,11 0(31 "F 882 ,11 0(31 ,XRFIL-l XRFIL2 TF 882 4,0 DC -000 4,-0 06550 DC -00,--4 06560 XR8ASE OS , ,02lt6789 00 06570 • ,013456891011 06580 00 SF 2131 06590 FLG2 ,--4 06600 SSl OS ,--3 06610 SS2 OS ,--2 06620 SSl OS 06090 06100 06110 06120 06130 061"0 06150 06160 06170 06180 06190 06200 06210 06220 06230 0621t0 06250 06260 06210 06280 06290 06300 06310 06320 06330 063"0 06350 06360 06370 06380 06390 06400 06410 06"20 06"30 06""0 06450 06460 06470 06480 06490 06500 06510 06520 06530 06540 AM PUTXB C 811E C 811E C BL PUTEST 80 87 ,- "" ,-" ,-" , PAGE PHUE 2-8 06102 0611" 010126 06138 06150 06162 06174 06186 06198 06206 06218 06230 062~2 0625" 06266 06278 06290 06302 06313 0631" 06326 06338 06350 06362 06371t 06386 06398 06"10 06"22 06434 06",,6 06"58 06"70 06482 06"94. .06506 06518 06530 065"2 06554 06566 010578 06580 06592 06597 11 2" 41 2" ,,7 2" 47 It3 ~9 65 26 ZIt "7 "3 2~ "7 43 33 13 62 27 "3 13 62 21 "3 16 12 11 21 26 21 06 "9 65 14 "6 06 70 71 42 26 "2 402 000-2 0769" 01200 05969 01200 07671 01300 07688 06Z18 OO--Z 02262 06266 06626 02262 06302 06314 00--1 0 08092 06338 06506 06646 080M 06386 06506 06666 06636 07696 07706 05969 06657 0770J 08094 0602R 06518 00099 06580 99RR9 00--0 . 00--0 07P-6 0802080301100 0663" 0802N 01100 06633 00000 00--0 0650N 000-11 00--7 08025 06635 OOO-M 00--5 08030 06636 0-000 000J2 000J2 07677 05969 07677 06677 00000 000R9 000-0 01200 065R7 0650N 06501>1 " " 06601 06597 06602 06614 06626 06633 06634 06635 06029 07688 06854 06657 06994 07696 0715" 06206 06686 -0 32 0 -0-00---00--2 0 0 0 ---00 0---00000 18 VERS ION 2 1620 MONITOR II 06630 06640 06650 06660 06610 06680 06690 06700 06110 06120 06730 06HO 06150 06160 06770 06780 06790 06800 06810 06820 06830 06840 06850 06860 06870 06880 06890 06900 06910 06920 06930 06940 06950 06960 06970 06980 06990 07000 07010 01020 01030 07040 01050 07060 07070 01080 OS OS 81 FLG3 SF SAVCOW OS 81 FLG4 SF 81 07090 07100 07110 01120 07130 07140 07150 07160 07170 PUTXH SS' S511 FORJRAN 11-0 PAGE PHASE 2-8 ,.-1 06636 06631 06638 06646 06657 06658 06666 06678 ,- PUTXt 0(3) ,- ,99999 PUTXO 0(3) ,0 PUTXE PLACE OSA ADDRESSES IN OUTPUT NEXT ,SLNG PUTCAO A ,SLNG 8AL S ,-4 MM SSXR2 ,NEXTl31 eLK -.12 -.32 , SSXR2 80 ,pun TF Dill 81 PUTO 8LX -+12 ,99121 99999(31 ,XRBASEI21 TFL 0(3) ,pun MA ,PUTl MF 0131 ,COoET-3 80 PUTO ·"20 PUTXF 87 ,99999 TFM SAVCoW PUTXF+24 B1 Tlfl S TYPE NOT EOUAL TO LAST ,CODET PUTOIF TF L STYPE ,ADCOW SAVCOW C oUTSEQ BNE ,SSLNG 8Al C PUTNXT BL PUTXG AM NEXT ,I ,TYPEr NEXT TO AM ,2 NEXT ,0 TFM NEXT ,NEXT TF LNGAO ,3 SM SAL PUTEST 87 OUT OF SEQUENCE ,SQLNG 8Al OUTSEO C PUTNXT 8L ,75 SAL CM PUTXH BE ,I AM NEXT 8AL ,I SM TOM NEXT 1,',DC ,7 ,810 ,5 NEXT ,5 BAL ,COoET-3 PUTU ,AOCQW PUTXJ NEXT PUTXG ,PUT2 PUTTA NEXT PUTXG NEXT CARD BUFFER TO BE USED NEXT PUTNXT AM .1 a 49 32 49 32 49 06266 00--0 0 06362 00--0 06410 R9999 0-0-0 8UFFER ,10 ,11 .11 ,11 ,10 ,6 ,10 ,610 ,10 ,10 ,10 ,10 ,6 , AM 5M BD TF B7 TF B7 19 0 06686 06698 06110 06722 0673' 06146 06758 06766 06778 06790 06802 0681' 06826 0683. 06846 21 22 06854 06866 06818 06890 06902 06914 06926 06938 06950 06962 06914 069B6 26 2' 41 24 41 06994 01006 07018 01030 01042 07054 07066 01071 24 41 14 46 01078 01090 07102 .10 .10 13 65 43 26 .9 65 06 10 11 43 49 16 49 11 25 11 16 26 12 49 11 12 15 11 ,6 0711~ ,611 01126 01134 01146 12 43 26 49 26 49 ,10 01154 11 07706 07696 08094 06134 06166 00--0 06814 06118 99RR9 00--0 00--0 06834 06446 06657 06470 01617 01617 OOO-M 07P-6 08094 0803- 07694 06657 06994 07696 07154 01106 01100 01706 07700 07701 07696 06186 07688 05969 01200 07619 01300 OOOCI 01615 000-2 000-0 01106 000-3 01696 07154 07696 01078 01106 07696 01100 1 01683 01300 000P5 01200 000-1 000-1 00000 01706 01696 07134 07700 06914 01100 06914 000-5 000-5 01685 05969 07706 000-1 00-99 06N91 0803080301685 R9999 0802N 4u3 1620 MONITOR II 07180 07190 01200 01210 01220 07230 01240 01250 01260 07270 01280 07290 07300 07310 01320 01330 01340 07350 01360 01310 07380 01390 01400 01410 01420 01430 07440 07450 01460 01oHO 01480 01490 07500 07510 07520 01530 07540 07550 07560 07510 01580 01590 07600 TO CM 8E AM TF PUTXI 5M TFM 81 NEXT PREBUF PUTPCH PREBUF NEXT NEXT BAl VERSION 2 ,HGRM ,BUF4 ,15 ,PREeUF .1 ,75 PUTXH OUTPUT BUFFER LOAD TO DISC PUTPCH TOM BUF4+15 OGM TFM 10RT ,-+23 10PT ,PUTXX B AM PUTXl .3 TFM PREBUF ,BUFI TFM NEXT ,BUFI-l TFM -+18 ,8UF4+15 TF aUF4+15 ,NI3089 ,12 SM '-6 CM ,aUFl --18 BH --36 B PUTXI PUTC ,--1 TF -+23 CF -+l1 --I C ,LOCOM BH PUTCA TR TYPET ,TYPECR PUTCB TF PUTX-l ,PUTC-I 8 PUTXA PUTo TF PUTC-I,PUTo-l PUTCA TR TYPET ,TYPECN 8 PUTC8 ,PUTA-I PUTA TF PUTl AI! PUTA-I ,5 pun TF ,PUTA-I AM PUTA-l ,I ,PUTA-l TF PUTX-l TR TYPET • TYPEA 8 DUTSEQ PUTRM Typer, TYPERM TR TF PUTX-l,PUTRM-l 81 PUTXA TYPERM OSC 1,2 2 01610 DC 2,2 -2 01620 2,5 DC -5 01630 DC 2,10 JO 07640 2,11 DC JI 07650 DC 5,100 -0100 07660 DC I, ' FORTRAN 11-0 , ,6 ,10 .10 ,10 ,7 ,10 PHASE 2-8 PAGE 07166 07178 07190 01202 01214 07226 07238 07250 07258 01269 07270 072B2 01294 07306 07318 07330 073~2 ,10 ,11 ,6 ,11 ,10 .11 ,10 07354 07366 0131B 01390 01402 01414 07426 01438 07450 01462 01474 014B6 01498 07510 01522 07534 07546 07558 07570 07582 07594 07606 07618 071>30 07631 25 14 46 11 26 12 16 49 07100 08015 01258 08015 01106 07706 01696 07078 01614 -1935 01200 000P5 08015 000-1 000P5 15 08010 1 00565 00532 01665 08015 01706 01348 08010 01348 07348 01342 01238 01425 01425 0142N 0749B 01615 06029 06090 01401 01615 01462 08025 01521 08030 07521 06029 01675 06994 01615 06029 06090 1 00000 16 49 11 16 16 16 26 12 14 46 49 26 33 24 it6 31 26 49 26 31 49 26 11 26 11 26 31 ~9 31 26 49 01639 07641 2 07643 07645 01650 01651 4 U(I 2 -1293 -1652 000-3 -1110 -7109 -8010 09034 OOoJ2 -1110 01100 00000 0140J 00000 02262 01100 08046 01401 00000 01485 08061 00000 0752J 000-5 0752J 000-1 01521 08016 00000 01637 07605 20 1620 MONITOR II 07670 ~UTXX 07680 OSC 02 OSA 1, , DSC 1,0 0 5,0 DC -0000 1,1 DC -03 DSA SUFI 077ltO FLGRM 07750 07760 07770 07780 07790 07800 07810 07820 DC PAGE 07652 07658 07700 PUTXY 07730 PHASE 2-8 07658 07659 OC 07720 FORTRAN 1/-0 PUTXY 07690 07710 PUTXl VERSION 2 2,2 07665 07890 8UF2 07900 07910 BUf3 07920 01930 BUF4 079ltO 07673 1,' -7710 I 01615 07611 07619 01681 07683 01688 07689 01694 I 2 2 2 2 5 I 5 01701 07706 5 5 X 07i06 01109 01110 -7710 I 50 07760 25 01185 50 07835 25 07860 50 01910 25 07935 50 07985 25 07950 0011 01960 PREBUf OSA IUFI 08010 0801.5 07970 pun 07980 PUT2 5 5 08015 08020 08025 DS 5 X 07673 07614 01696 DAS DSC 50,0 00000000000000000000000000000000000000000000000000 OSC 25,0 0000000000000000000000000 OSC 50,0 00000000000000000000000000000000000000000000000000 OSC 25,0 0000000000000000000000000 DSC 50,0 00000000000000000000000000000000000000000000000000 OSC 25,0 0000000000000000000000000 OSC 50,0 00000000000000000000000000000000000000000000000000 OSC 25,0 0000000000000000000000000 os 5 07668 1 OS OS 2 OS 2 OS 2 OS 2 OS 5 OS I LSTYPE DC 5,0 -0000 07810 BAL 2,15 DC P5 07840 LNGAO DS 5 07850 NEXT DSA IUfl 011BO -7660 1 07660 TYPET SLNG SSLNG NLNG SQLNG COOET 07860 07870 BUfl 21 2 I 5 X -1710 5 5 405 1620 MONITOR II 01990 PUll 08000 TYPEX 08010 08020 08030 080ltO 08050 08060 veRSION 2 FORTRAN I/-D PAGE PHASE 2-11 5 1,1 08030 08031 2,12 08033 2,15 DC J5 2,20 DC KO 2,21 DC III 5,1 DC -0001 I,' DC 08035 2 08037 2 DS DSC I DC J2 08039 08044 08045 0804& 08070 TYPECR OSC 1,3 3 2,5 08080 DC -5 2,8 08090 DC -8 2,13 08100 DC J3 2,14 08110 DC Jit 5,10 DC 08120 -0010 DC 08130 I, ' 08048 08050 08052 08059 08220 08230 08240 08250 08260 08210 osc 3 DC -5 OC J3 DC J3 5 08060 08061 08140 TYPECN OSC 1,2 2 2,5 08150 DC -5 2,8 08160 DC -8 2,13 OC 08170 J3 2,1<4 08180 DC J4 5,100 08190 OC -0100 OC 08200 I, ' 08210 TYPEA 2 OB054 08063 2 08065 2 08067 ·08069 2 080H 08075 08076 1,3 2,5 08018 2 2,13 08080 2 2,13 08082 2 2,14 DC J4 5,1000 DC -1000 I, , DC 08081t 2 08089 5 08090 406 22 1620 MDNI TOR II 08280 SSXR I DC VERS ION 2 FORTRAN 11-0 PHASE 2-8 PAGE 2,0 OB092 2,0 OR094 23 2 -0 082'0 SSXR2 08100 08310 CANOS 08320 OBHO OS340 08350 08360 08170 CANoSA 08180 08390 08400 08410 OR420 CANOR T DC -0 OS TF 8TM STM SF TO TF OS AM 8TM CM 8NE A~ QA430 8 08440 D~RG 08450 8TM OSA 08460 08410 08480 08490 08500 08510 08520 08530 08540 08550 085bO 08510 08580 08590 08bOO 08610 08620 08b30 08640 08b50 08bbO 08b10 08b80 08b90 08700 08710 OX OV EXSlJH E~RT ExeLR TF TF B OS OS 80 ,OX ,OV , .-5 ,S ,OX ,104 .I *+18 ,CANOS-l ,OX ,. 0825b 08261 082b2 08214 08286 OA291 OR302 08304 08316 08328 OR340 08352 08364 08376 08388 08400 ,II C AN DR T 5 EXXR ,SBASE-S ,SSIL ,*'" 12 ,21 8~F ·+24 TOM TOM TOM 8SX 8TM OS eM SS4 S52 SSI L , PFPSW ,I ,I ,0 ·.12 , •• 23(2) PUTX 5 F EXCLR-I 0121 EXlER 0(21 E~CLR-I pun ,610 ,.-. . ,10 08~12 OH24 08HO 08442 08454 08466 0841R OH90 08502 08514 08510 ,10 ,6 ,blO ,3 ,9 ,bl0 ,6 , , •• 16 TF,SVN9,CLlR 81 E~eLR-l 8~f ·.2",. EXCLR STM ,8 ,*+16 ·+24 8~E .10 ,10 ,6 EXCLR 0121 EXR T 8TM OSA OB099 08100 08112 08124 08136 08148 08160 081b6 08112 08184 08196 0820R 08220 08232 08240 08240 0825b ,II ·.32 CANoS-I CANOS-l ·-3 SRFCT DX,DX 8~F 8~H 08120 08730 EXX. 08740 CANDS-l RMNS OX ,. -1 ,OX ,OV 8TM CM BE CM 8E CM EXlER 5 CANDSA RMNS RMNS OX OV-4 , 08530 08535 08540 08542 OB550 08562 ,6 ,SSIL , •• 12 2b 17 17 32 25 26 11 17 14 47 11 4. 17 26 26 49 5 0816b 04990 04990 OR297 08298 00000 0 08099 04990 08297 08240 OB09' 0809R 080.R -8297 -8)02 00000 08297 08)02 000-5 -8297 0-104 01200 000-1 00000 03824 -8256 S X 2 -R297 -8291 08280 00000 08220 OHOQR 08197 00000 0 4} 44 17 14 46 44 15 15 15 67 11 S 085S0 08)40 OR442 00-008388 OR38B 06636 06634 06611 08424 06010 04155 nbb37 -8340 000K1 01200 0]928 00001 00001 00000 08M15 -0000 5 14 41 14 46 14 41 11 49 44 17 02250 0844J 00-008514 00-00844J 06030 5 -Q007 -8109 -8114 0844J OB574 08442 aOOJO 01100 000-3 01200 000-9 01200 -8530 x "\ 06631 -8? 14 407 1620 08150 08760 08110 08180 08790 08BOO 08810 8~F TF AM TF TFM 8TM OH 08820 EXJX 08830 08840 EXJ 08850 088bO SVN9 08810 eLlR 08880 08890 08900 08910 08920 08930 08940 08950 08960 08910 08980 XR91 XR98 XR99 fRRT BLKI 08990 MO~ITOR EXJX XR99 XR99 XR98 SS2 PUTX MA,XR99,XR9A 80 ·.24 rFM OPX TO SSXR2 81 E XRr 5,79 DC -0079 DC 5,02b61 -2b61 OS 5 OS 5 OS 5 OS 5 RC TV T~F EN2+6 WHV EMI WArY ERRT-l 882 DAS OSC 2,02 02 DSA 8LKIA 09000 DC 09010 BLKIA ose 1,0 0 DC 5,01416 -147b DC 3,41 -41 OSA COoEI-2 09020 09010 09040 09050 DC 09060 09010 BLKl OS OSC 02 OSA 09080 I, ' II VERSION FORrRAN 11-0 , PFPSW ,ADCOW ,23 010(21 ,11 ,.+16 ,SSIL 010 ,SBASE-5 ,10 ,11 ,10 010 PHASE 2-8 PAGE 08514 08586 08598 08610 08622 08b]4 08650 08650 08b55 08bbO 08662 08b14 0868b 08b98 08709 44 26 11 26 I' 11 4J 16 25 49 08662 08129 OR129 08124 00-1- 06614 OQOJI 03928 0')969 OOOKl 06010 -8650 5 X 3 -9017 -8129 -8124 08686 03930 08094 08188 5 06631 OOOJO 04155 08114 , seNT ,6 08719 08724 08729 087H 08116 08148 08760 08112 08184 08181 08188 08194 08794 08795 34 73 39 39 42 5 5 5 5 00000 09385 09365 0873N 00102 09361 00100 00100 I X 2 5 X -8196 I 08196 08801 08804 08809 I, ' 08809 08810 2,02 08811 08812 BLK2A 08818 09090 DC I, ' 08818 08819 09100 I3LKlA Dse 0 1,0 08820 4(j~ 5 X JOOOO 1 5 X -8810 1 24 1620 MONITOR 11 09110 09120 09130 01: VERSION 2 FORTRAN 11-0 PHASE 2-B PAGE 5.01536 -1536 DC 3.60 -60 OSA COOEl-2 08828 08833 09140 DC I •• 08833 08834 09150 09160 BlK] OS DSC 02 DSA I 2.02 08835 08836 09110 8lK3A 08842 I •• 08842 08843 09180 DC 09190 BlK1A OSC 1.0 0 DC 5.01600 -1600 DC 3,41 -41 ' OSA COOEl-2 09200 09210 09220 08852 08857 DC I •• 09240 09250 BlK" OS OSC 02 OSA I 2.02 08859 08860 8lK4A 08866 I. ' 08866 08867 DC 09280 BlK"A OSC 1.0 0 DC 5.01HI -1641 DC 3.41 -41 OSA COOEI-2 09290 09300 09310 09320 09330 09340 8lK5 09350 09360 09370 8lK5A . 5 X JOOOO I 5 X -8868 I 08868 08873 08876 08881 DC I •• 08881 08882 OS DSC 02 OSA 1 2.02 088810 8LK5A 08890 DC I •• 08890 08891 OSC 0 1.0 08892 . 5 X -8844 I 08844 09230 09270 5 X JOOOO I 08849 08857 08858 09260 25 08825 3 5 X JOOOO I 08883 5 X -8892 I 4uU 1620 MONITOR II 09380 0~390 09400 09410 09420 09430 BlK6 09440 . 08905 DC I •• 1 2.02 08907 08908 BLK6A 08914 I •• 08914 08915 DC 08924 08929 DC 1 •• 09510 09520 BlKl I 2.02 08931 08932 09530 OS DSC 02 OSA 8lK7A 08938 09540 DC 1 •• 08938 08939 09550 BlK1A OSC 1.0 0 DC 5.01701 -1701 3.019 DC -19 DSA SU8COS-2 09580 08948 08953 2,02 08955 08956 8lK8A 08962 DC 1 •• 08962 08963 OSC 1.0 089610 DC 09620 OS OSC 02 OSA 096]0 09640 BlK8A 1 2 -8940 I 08945 1 •• 09590 5 X J4l00 1 08940 08953 08954 09600 09610 BlKS 5 X -8916 1 08921 09500 09570 5 X JIoIOO I 08916 08929 08930 09560 5 08900 OS OSC 02 OSA DSC 1.0 0 DC 5.01682 -1682 3.019 DC -19 DSA SUBCDS-2 09490 PAGE PHASE 2-8 08905 08906 09460 BlK6A 09480 FORTRAN 11-0 08897 091050 09470 VERSION 2 5.01517 DC -1517 DC 3.019 -19 OSA SUBCOS-2 0 td U 3 5 X J4100 I -89610 I 26 1620 MONITOR II 09650 VERS ION 2 FORTRAN (1-0 PHASE 2-8 PAGE DC 5.01720 -1 no DC 3.019 -19 DSA SUBCDS-2 09660 09670 08912 08977 08917 08978 09680 DC 09690 CKCOW DC 5.0 -0000 1 •• DC 08983 OS 00001,. SSSW., OS 00001,,101, , 0000 1 • , 102, • 00001" 103,. 00001" STEMPl., 00001, t STEMP2., 00001, ,CAlLSW" 08985 08986 08987 08988 08989 08990 08991 08992 08993 09700 09710 09720 09730 09740 09750 09760 09770 09180 09790 09800 09810 09820 09830 09840 09850 09860 09870 09880 09890 09900 09910 09920 09930 09940 09950 SSSW FSW 101 102 103 SlEMPI STEMP2 CAllSW DOSW os os OS os OS OS OSC 0 OS OS SUBSW REGSW RSW OS SWAREA EXIND DC -0 TFM DC J6 SF DC l2 CF DC L3 rF DC K6 AM DC Jl MM DC J3 H DC M8 6lX DC 05 MA DC PO TR DC os os 27 08969 1 •• 5 x J4100 1 08984 OOOOlflFSW" 1.0 2.0 .- 08994 08995 08996 08991 08997 08999 1 1 1 1 0 2 0OOO2,16"TFM, 09001 2 0OOO2.12"SF, 09003 2 00002,33, ,CF 09005 00002,26,. TF I 09007 0OOO2,II,.AM, 09009 00002,13, ,14M, 09011 00002 ,1t8, ,H, 09013 2.65 09015 2.70 09017 OOOOl"EXIND" OOOOl"SU8SW,. 1 1 2 2 09019 2.31 L1 09960 TFl DC 2.6 -6 09970 NIl089 DC 00013.0 -000000000000 09980 ZERO ,--II DS 09990 ZER06 DS ,·-1 09021 09034 Il 09023 09027 0 0 09025 09026 09026 09035 0 0 0 1 09033 090"0 0 5 411 1620 MONITOR II 10000 ZER04 10010 ZER05 10020 8lUK 10030 DS OS OS DC VERS ION 2 FDRTRAN II-D PHASE 2-8 • --9 ,--8 ,--8 1. ' 10040 T ZNK OS • *-2 10050 NIlO92 DC 5,00099,., -0099 10060 SU8 DC 00002,22.,SU8, K2 10070 N 11133 DC 5.00095" , -0095 10080 MOD DC 2.0 PAGE 2" 090"2 090"7 09049 -0 10090 MPY 10100 BT 10110 RCTY DC K3 DC K7 DC 00002.23 09051 00002.21, ,8T, 09053 00002 ,3lt .. RC fV, 09055 U 10120 WArY 10130 GlNO 10140 ADD 10150 SM 10160 RVSN 10170 RHDO 10180 MODMES 10190 DOMES 10200 FUlHES 10210 OOA 10220 MNS5 10230 N1l06] 10240 N13062 10250 FAC 10260 FIVE 10270 10280 10290 10300 10310 10320 RTNAME ST I J p Q DC 0OOO2.39"WATY, L9 DC OOOOIt,QOO •• GlNO. -000 00002,21.,AOO, DC Kl DC 00002.12"SM, J2 DC 30125 J25 DC 3.123 J23 DAC MIXED MODE' MIXED MODE' DAC IMPROPER 00 NESTING' 22. IMPROPER DO NESTING' DAC 20. SYM80l TABLE FULL' SYMBOL TABLE FULL' DC 00005,109 •• OOA t -0109 DC 00002.-05, ,HNS5, -N DC 5.00100", -0100 DC 5.00102 t., -0102 DC 0OOO5.101"FAC. -0101 DC 2.5 -5 OS 00005" RTNAME., ODD05 t ,ST,. OS 00004, ,I, t OS OS 00005" J, t OS 00005" P. I OS 00005. ,Q" 09051 09061 4 09063 2 09065. 09068 3 09071 n. 09073 IlX 09099 22 x 09143 20 09186 09188 09193 09198 09203 412 09205 2 09210 09215 09219 09224 09229 09234 5 5 4 5 5 5 2 1620 MO~I TOR II VERSION 2 FORTRAI'4 11-0 PHASE 2-8 PAGE 10330 lV 10340 DS 0OOO5"lY" DSe 1.1 1 10350 XRSW DS 10360 "'TAD DS 00005, ,RTAD ... 10310 ltV DS 0OOO5"RV .. 10380 DSe 1.2 2 10390 SXF 5 DS 10400 J4000lo OS 5 101010 T2 DS 5 10420 MS 00005, ,ANS ... DS 10430 ADTEMP DS DOOO5"ADlE"P •• 10440 Sl DS 00005 .. SL •• 10450 NOll00 DC 5.1100 -1100 10460 8NH DC 2.lo7 "1 IOlo70 e 2,24 DC 29 09239 09240 09241 09246 09251 09252 1 5 5 1 09251 09262 09261 09212 09271 09282 09281 5 5 5 5 5 5 5 09289 09291 2 09293 2 09295 2 K4 10480 eM 10490 8l 10500 ~OUOO 10510 8E 10520 ~01200 10530 80 DC 2.14 J4 2,47 DC "1 DC 5.1300 -1300 OC 2.46 "6 DC 5.1200 -1200 2,lt3 De 09300 5 09302 2 09301 09309 2 '" 2,44 09311 2 10550 FAe"2 DC 5,02490 09316 10560 BI DC "6 DC 10540 8NF DC M4 -24~0 10510 10580 GBASE 10590 l~G 10600 PI 10610 J3 10620 DS DS OS DS Dse 0 10630 OPl OS 10640 XR5 OS 10650 XRl DS 10660 FPSW OSC 0 10610 FPSWX ose 0 10680 SKIPSW os': 0 10690 eOMXSW DSC 0 2,46 09318 1,0 09319 5 09324 09321 09338 09343 09344 5 3 11 5 1 ,329 .339 1,0 09346 00329 00339 09341 2 0 0 1 1,0 09348 3 11 5 1,0 2 1,0 09349 1,0 09350 4.13 1620 "ONITOR II 10100 ERSWT 10110 ~00J96 DSC 0 OSA VERS ION Z fORTRAN II-D PAGE I>HUE 2-8 1,0 09356 "ONCAl 09362 + , 101100 EMI OAC 10150 EM2 DAC 10160 10110 INPUT DU DC 10111 OSC 50.0 00000000000000000000000000000000000000000000000000 DSt 50.0 00000000000000000000000000000000000000000000000000 DSt 50,0 00000000000000000000000000000000000000000000000000 DSC U,O 0000000000000000000000000000000000000000000000000 OC 1. ' 10112 10113 10114 10190 10800 10810 101120 10830 10840 10850 10860 10810 10880 10890 10900 10910 10920 10930 10940 10950 10960 10910 10980 10990 11000 11010 11020 11030 11040 11050 11060 11070 CODEl tODE3 CODE4 tODE6 CODEl CODES CODE9 CODEl2 eODE14 COOE1S COOE17 CODESS COSSl8 -0196 1 4 09356 09351 09361 10111 SPFPSII DS 1 4,0 10120 SCNT DC -000 DC 10130 1, ' 1, + 5, 30 09351 1.' 0931>5 1 x 09319 5 X 09319 09390 1 X 1 09191 50 09441 50 09491 50 095101 109 2 09590 10000 OORG 10000 SECONDARY LINKAGE FOR BLOCK DC Z.I -1 ,-5111 IX" CODElP H CODnp ,-5111 BX" H 8GNST-4111 ,8GNST + 1111 Til. CDDUP 8 ,BlK2 TFM F"ON»5 ,CODE6 BTM F"ON ,BLK2 TFM FMDN»5 ,CODEl 8T" F"DN .-10111 aXM CODE8P H .BlK2 TF" FMDN+35 ,COOE9 BTM F"ON SUBtl2 a H .BLK3 TF" FMDN+35 ,tDDEl4 8T" FMDN ,1 TOM CALlSW toUP 8 .BLK2 TFM FMON+35 .CDDEl7 BT" FMON a SUBCDS H SUBt;,AB 8 2 10001 1000Z 10014 100U 10038 10050 ·10062 10014 10086 10098 10110 10122 10134 10146 10158 10110 10112 10194 10206 10218 10230 10Z42 10254 10266 IOZ18 10290 41'1 62 48 62 48 31 49 16 11 16 17 62 48 16 11 49 48 16 11 15 49 16 11 49 48 49 101034 00000 lZ538 00000 11'411.11.5 13494 OZ359 02324 02359 023Z" 13140 00000 02359 OZ324 1"150 00000 02359 02324 08992 13112 OZ359 02324 1410Z 00000 14126 0---1'4 00000 O---N 00000 10--0 00000 -8812 JOO14 -8812 J0098 O--J00000 -8812 JOI4/> 00000 00000 -8836 J0194 00001 00000 -8812 JOZ42 00000 00000 00000 1620 MONITOR It 11080 11090 11100 11110 11120 11130 11140 11150 11160 11170 11180 11190 11200 11210 11220 11230 11240 11250 11260 11270 11280 11290 11300 11310 11320 CM nE TO CODElA 8TM OSA 11330 DSA VERS ION, 2 FqRTRAN 11-0, PHASE 2-B PAGE H COl2S B H TFM BTM FCTRT TFM BTM EOJ TFM BTM COCALL TF" BTM FCll CODEIP BT" BTM TF CM 8E CM 8E SUBI2B FHDN+35 ,BLK'" FMON ,Fcn FMDN+35 ,BLK2 FMON ,FCTRT FMDN+35 .BLK4 FHON .EOJ FMDN+35 ,BLK3 FMON ,COCALL THE FOllDWI NG CODES ARITH"ETIC OPERATORS .SL R"NS RMNS ,LV SR ,BGNSTl71 LY. 133,8,EQUAL CODEIC LY. US,8,EXPONENTIAL COOEID CDOE ADD. SUBTRACT, MULTIPLY, DIYIDE SL, 10l,8,FAC N60007 ,FLAGSW MOD SRFCT ,-+16 SR ,00000 10302 10314 10326 10338 10350 10362 10374 10386 10398 10410 10422 4B 49 4B 16 17 16 17 16 00000 02359 02324 02359 02324 02359 02324 02359 02324 00000 00000 00000 -8860 J033B -8812 J0362 -8B60 J0386 -8836 J0410 10434 10446 10458 10410 101t82 10"94 10506 17 04990 17 0"990 26 02372 14 09239 46 '110l" 14 09239 46 12004 -9282 -9239 INRR9 0-133 01200 0-115 01200 10518 10530 10542 10554 10570 H 47 25 17 16 17 17 14114 09282 0-101 10804 01200 09049 04428 03821t J0570 5 X 1 , 10570 10575 -2372 10575 -9224 X 11340 • 11350 11360 11370 11380 11390 11400 11410 11'120 UUO IIHO lIAI50 11'160 UUO PUTR 11'180 TEST FOR MIXED MDOE MDO .FXORFL -+)6 ERRT ,MODMES ERSWT .1 FX .fXDRFL FX IS USED 8Y OPSR ROUTINE 8TM DPSR ,LY CM ,22 LY 8H PUTR TOM SSIL ,I TF DPX ,LY TF LY ,FACAD ,0+16121 8LX" USU8 DSA OPX 11'190 DSA LY 1072'1 10129 -3930 5 11500 J 10129 1013'1 -9239 DSA FLAGSW BGNST 171 FSW ID73'1 10136 101'18 10160 25 26 15 -9224 04428 INRR9 08986 27 27 '19 05720 05720 02928 09282 02372 00000 lA\ A\7 26 49 02372 108U 02372 10942 0-101 01200 09282 00000 '14 10872 08986 05022 J0872 03824 J0888 5 X I C 8E BTM TO" TO 11510 CDDElH TD. 11520 TF U530 TO" ,FXORFL ,FAC ,I 10576 10588 10600 10612 10624 106]6 106'18 10660 10672 1068'1 10696 10708 1072'1 ,10 .11 ,11 21t 46 17 15 25 17 14 46 15 26 26 66 31 09049 10624 08736 09351 03562 04162 01200 -9073 00001 04162 03488 -9239 09239 000K2 10108 01100 06637 OOOOJ 03930 09239 09239 03797 0830'1 10P24 5 X I , X 04162 09203 OOOOJ 415 1620 "oHIlD" II 11540 11550 11560 IT GTtl 8T GTCl EXIT B 11510 DDRG .-3 11580 N60007 CM SR. 11590 8HE "60009 11600 TF SR 11610 B CoDEIB 11620 DORG .-3 11630 N60009 IIMF "60010 116'10 BT" GNRP 11650 N60010 BTM SRFCT 11660 DSA SL YERSIDN 2 FDRTRAN 11-0 PHASE 2-B PAGE .SL ,SR 10112 10784 10796 1080'1 1080lt 10816 10828 10840 10848 108'18 10860 10872 10888 101,8,FAC ,SL I .-.12 ,FSW , •• 16 17 17 10888 10893 -9282 5 X 11610 DSA U680 11690 BlXM USU8 DSA TFL 11100 DSA FAtAD 10910 10915 -9021 5 OSA H'IOOOI 10915 10920 -3197 11710 10920 10922 10934 109'12 25 '19 -3382 09049 10554 04162 00000 109<12 1095" 10966 '10978 10990 11002 11014 11026 11034 25 14 41 16 14 41 16 '19 09049 09239 10990 09239 09239 1055'1 09239 1055'1 04428 0-120 01200 O-IZit 0-121 01200 0-122 00000 11034 ll046 ll062 43 11080 04378 03824 JI062 5 X 1 "40001 10893 1089'1 10910 ,·+16121 11120 TD MDD ,FXORFL 11730 8 tDDElA 11740 DORG .-3 11750 ENTRY IF RIGHT SYMBOL IS FAt, THEN IF DPERATOR IS OIYIDE 11760 'SET UP ,REYERSE OIYIDE 11170 COOEIB TO IIDD ,FLAGSW 11180 CM lV, 120,8,SUBTRACT 11790 BHE ·.Z4 11800 124,8,LEFT PAREN TF" LY, 11810 tM LY, 121,B,0IYIOE 11820 BNE CODElA 11830 122,8, TF" LY, B840 B CDDElA 11850 DDRG .-3 11860 EHTRY IF OPERATOR IS AN EOUAL SIGH 11810 COOEIC BD tDIQZP ,FTSW 11880 SLt BTM SRFCT ,-+16 11890 DSA SL ...... 11900 DSA SX 11910 TO EXINO ,FXORFL 11920 CDIOlP BMF CODE1E ,RSW 11930 TO EXIND ,RFLAG 11940 FXoRFL IS SET BY SRFtT 11950 tOOELE BNF N60013 ,FSW 416 66 -3382 08304 IORIO 5 X I 5 X 17 11062 11067 -9282 11061 ll068 11080 11092 25 10'1 2S -2377 08999 11104 08999 04162 08997 04358 1110'1 44 11916 08986 5 32 1620 MONI TOR I I 11960 UQ10 COll3 11980 11990 12000 12010 12020 12030 12040 12050 12060 12070 CI>111 12080 12090 87 TOM 6LXM OSA 12110 COOEIX 60 12120 6~C2 12130 60 12140 6LXM 12150 OSA 12160 C0222 12110 6TM OSA 12180 12190 12200 12210 • 12220 12230 8NF TDM TOM 12240 12250 12260 • 12270 C0555 12280 12290 12300 C0666 12310 VERSION FORTRAN 11-0 PHASE 2-B PAGE FXORFL .FLAGSW FXORFl ,EXIND CODEIX OUTPUTS FIX TO FLOAT OR FLOAT TO FIX HISTRUCTIONS TF ,RMOD N40001 TO FX .EXINO 8TH OPSR ,N40001 6NF COLli ,FSW 6TM PUTX ,*+16 OSA B TM ,N4000L, FACAO TO C BE 11U6 11128 11140 25 24 46 04162 04162 11276 11152 11164 11176 11166 11200 11216 26 25 17 44 03382 09071 03562 08999 03488 -3382 11236 089"6 06030 Jl216 5 X 3 COOEIX FSW .-1 ,.+16(2) EXSUB OPX .N40001. N40002 11216 11221 11226 11228 11236 11248 11264 FCTlE .FTSW C0555 C0222 .FSW EXSU8 ,*.16(2. TFL. FACAO.N40002 11264 11269 112H 11276 11288 11300 11312 11326 SRFCT SL.SX 11328 11333 11338 11340 11356 ,*+16 11356 11361 11362 11374 11386 N60014 ,RSW SS2 .1 RSW ,0 OUTPUT TRACE I NSTRUCTI ON 8TM pun , •• 16 OSA 8T. TRACE, SX 11398 11414 11414 11419 11424 11426 11434 8 TCLEAR oORG .-3 OUTPUT FRFAC INSTRUCTION 8NF t0666 ,FSW 8NF C0444 ,RSW 81 CD3B 8TM SRFCT ,*+16 oSA SL.SX 11434 11446 11458 11466 11482 17 49 15 66 4] 41 43 66 17 44 15 15 17 49 44 44 49 17 11482 33 04428 08999 01200 -5972 -3382 -3797 11276 08966 OOOOJ 08304 llK64 5 X 3 -3930 -3362 -3387 12368 11434 11340 08304 04378 00200 08986 llL28 5 X 3 -9021 -3797 -3387 03824 J1356 5 X 2 -9282 -2377 11676 06634 08997 08997 00001 00000 06030 J1414 5 X 3 -9053 -3587 -2377 11800 00000 11466 08986 11714 08997 11630 03824 Jl482 5 x 2 -9282 41 i 1620 MONITOR II VERSION 12320 12130 12340 12350 80 TO 6TH OSA COIPFP SSXRl SRFCT SR. N40002 ,PFPSW ,S6AS[-5 12360 12370 12380 12390 12400 12410 12420 BO TO 8NF TOM TFM BTH OSA COIPFP SSXR2 .PFPSW .S8ASE-5 ·.24 .RSW 12430 12440 C0333 12450 12460 12410 12480 12HO • 12500 N60014 12510 12520 12530 87 TFH BTM OSA PHASE 2-8 .101 PAGE 11487 11488 11500 11512 11528 ,.+16 SS3 .1 SS2 .11 PUTX .... 16 TFL.SX.N40002 TCLEAR SS3 PUTX TFL.SX.FAtAO FORTRAN 11-0 11528 11533 11534 11546 11558 11510 11582 11594 11610 tlO 11610 11615 11620 11622 11630 11642 11658 .9 , •• 16 11658 11663 11668 11670 11618 8 TCLEAR OORG .-3 OUTPUT TRACE I NSTRUCTI ON 8L XM EXSU6 ,*.16 (2) OSA DPX. TRACE.SX 11618 11694 11694 11699 11704 11706 11114 43 25 17 43 25 44 15 16 11 49 16 17 -2377 11946 08092 03824 03928 04155 JI528 5 X 2 -2372 -3387 11946 03928 08094 04155 11582 08997 06635 00001 06634 OOOJI 06030 J1610 5 X 3 -9021 -2377 -3381 11600 06635 OOJOI 06030 Jl658 5 X 3 -9021 -2311 49 66 -3797 11800 08304 11094 5 X 3 -3930 -3581 -2377 11800 12550 C0444 12560 B TCLEAR OORG '-3 OUTPUT FRFAC INS TRUCH ON 87M SRFCT ,.+16 OSA Sl,5X 12570 12580 12590 12600 N7X 12610 BNF BD TFH BTH OSA N8X N6X SS3 PUTX TFL 12620 OSA Sx 11188 11193 -9021 5 X 12630 OSA FACAO 11793 11798 -2377 5 x 12540 • 11714 11130 11710 11735 11736 111"8 11760 11172 11786 .PFPSW .SBASE-5 .101 , ·.16 .9 4111 49 17 44 43 16 17 00000 00000 03824 JlBO 5 X 2 -9282 -2377 11884 03928 11820 04155 06635 OOJOl 06030 J1788 5 X 1 34 1620 HONITOR II 12640 TCLEAR BIIR 12650 87 12660 N6X TFH 12670 TF 12680 AM 12690 8TH 12700 OSA EXIT CLEAR SS2 N40005 1140005 PUTX MA,N40005,SX 12710 N8X 12720 12730 12740 N60013 12750 TD TDM B7 BTH DSA SSXRl SSI N7X SRFCT SR 12760 DSA N40002 12770 B7 12780 COIPFP BTM 12790 DSA 12800 12810 12820 CD123 SRFCT SR,N40002 fORTRAN 11-0 PHASE 2-B PAGE 11798 11800 11812 11820 11832 11844 11856 11872 ,BGNST+l1 ,11 ,10 ,AOCOW ,18 ,10 .... 16 11872 11817 11882 11884 11896 11908 11916 11932 ,SBASE-5 ,I ,-.16 11937 11938 11946 11962 ,-+16 11962 11967 11968 11984 B7 11984 11989 11994 11996 12830 - CD555+12 ENTRY OPERATOR IS EXPONENTIAL SL, 101,B,FAC "60015 SRFCT ,·.16 SR,J 12BBO 12890 12900 12910 BD 87 TD CN 12920 IE 12930 BTM 12940 TDM 12950 1160017 8LXM 12960 DSA DU .+20 12004 12016 12028 120" 12044 12049 12050 12062 12D70 12082 12D94 12106 12118 12130 12146 ,FLAGSII N60016 *.23 FXORFL *+36 ERRT ERSIIT EXSU8 DPX 45 49 16 26 11 17 ,FLAGSII ,0 ,10 ,MODMES ,I ,-+16121 IXI 35 -3797 02928 16010 02640 06634 OOOJI 03402 05969 03402 000J8 06030 Jl872 5 X 3 -9017 -3402 -2377 25 08092 15 06633 00001 11772 01824 J1932 5 X 1 49 17 04155 -2372 5 X 11932 11937 BLXM EXSUB ,"16121 OU TFL ,fACAO·,N40002 12840 CODElO CM 12850 8"E 12B60 CIIDEIG BTH 12870 DSA 12970 VERSION 2 49 17 -3387 11128 03824 Jl962 2 5 X 66 -2372 -3387 08304 llR84 5 X 3 -9021 49 14 47 17 43 49 25 14 46 17 15 66 -)797 -3387 11446 09282 0-101 12262 01200 J204" 5 X 2 03824 -2372 -9224 12070 12166 12093 04162 12130 04428 04428 000-0 01200 08736 -'Ion 09351 00001 OB304 12J46 5 X 1 12146 12151 -3930 12151 12156 -3807 5 X 5 X 4J!J 1620 HONITOR II 12980 DSA VERSIDN 2 FORTRAN II-D PHASE 2-8 PAGE J 12990 87 13000 1160016 TD 13010 BO 13020 TFM 13030 8TM 13040 BLXM 13050 DSA COOEIH+12 FX . . 24 UFSTR+l DPSR EXSUB OPX 13060 DSA LV 13070 DSA ,FXDRfL ,FX ,11 ,LV ,·+16(2) 12156 12158 12166 12178 12190 12202 12214 12230 ,10 49 25 43 16 17 66 12230 12235 -3930 5 X 12235 -9239 5 X 12240 12240 13080 TDM B 13100 DDRG 13110 N60015 8Nf 13120 8TM 13130 TF 13140 N60018 8TM 13150 DSA 13090 FXDRFL CDDElH .-3 N60018 GIIRP SR SRFCT SL ,0 12242 12254 12262 12262 12274 12286 1229B 12314 ,F511 ,*+12 ,8GN5T171 ,.+16 15 "9 4" 17 26 17 DSA 13170 13180 13190 TO FLAGSW SLXM EXSUB DSA TFL 13200 DSA 12319 ,FXORfl ,"16121 12320 12332 l234B 08986 J2286 INRR9 03824 J2314 5 X 1 25 66 -9224 0"428 08304 04162 IlL48 1 5 X 12353 12358 -3797 5 X 13220 B7 TDM 8D 8LXM DSA CODE1G FT5W ,0 FCTlEA ,FSW ••• 16(2 J EXSUS TFL, FAeAD, N40002 5 12358 12360 12368 12380 12392 12408 49 15 43 66 S53 n PUTX 8 ,101 ,I ,."16 12413 12"18 12"20 12432 1244" 12460 ,'I tlO 42U -9224 12028 04378 12"20 0830" x 00000 08986 12M08 3 5 X 12408 TFM SM 8TM DSA 12298 05022 02372 -9021 J 13270 Fe TlEA 13280 13290 13300 00000 00000 12348 12353 DSA 13240 13250 13260 10736 fAClD 13210 13230 FCTlE -9224 0"162 -92B2 5 X 1231" 12319 13160 -9224 10748 03562 04162 12202 03562 02264 OOOJI 03488 -9239 08304 12K30 5 X 1 16 12 17 -9021 -3797 -3387 06635 OOJOI 06014 000-1 06030 J2lt60 5 X 1 36 1620 MONITOR II VERS ION 2 FORTRAN 11-0 PHASE 2-B PAGE 12~60 13310 OSA fl 12~65 12465 13320 05A BLANK 11310 133"0 13150 SM BTM OSA AOCOW PUTA SXF.ADCOW 11160 11170 11180 13190 lHOO lHl0 CODE1P S TFM B DORG -6014 5 X 12~10 12~10 TF CM 8L eM U~50 BH BXM 11"60 1.l1t70 N60020 8TM 11480 TR 13~90 BTM 11500 TF 5F 13510 11520 TF 13530 TOM 115~0 TF 13550 SF 13560 eM 13570 BE 13580 811F 11590 BTM 13600 N60022 BTM 13610 05A 13~20 11430 lH40 13620 OSA .It .10 ,*.16 N~0002 N~0002 .N~0002 5R N60021 1160022 GIIRP sueT SR .101 FLAGSW TO B CoOElA 11650 OoRG '-3 13660 1'160021 TF SR 13670 TFM OPX 13680 TOM 5USE-5 13690 BTM pun 13700 OUTPUT LIBRARY 13710 CODElA BLXM USUB 13720 oSA OPX - ~9 17 11 17 0~990 126~6 26 32 26 15 26 32 14 03381 09279 03386 03187 01387 OH81 02372 12808 12766 05022 12106 12718 12130 14 ~6 62 ~6 .FSW 121~2 ~~ ,·.12 ,-.16 1275~ 17 17 12766 12782 12787 12788 12 BOO 12808 12808 12820 12812 12844 .FAtAO .10 .0 .COOE3A+l6 FUNtTiON LINKAGE ,'.16121 .17 12856 12812 09282 09282 12610 09282 12610 129i6 lNRR5 0~990 0182~ 5 12782 12787 .FXORFl -9251 -5969 02102 05964 02640 26 14 47 1269~ .11 .9 22 16 -9026 05969 000-4 07522 J2500 5 X 2 12518 12550 12562 12574 12586 12598 12610 12622 126H 12658 12670 12682 116~0 ...... 12 17 12500 12505 12506 12518 12530 12538 SR 11630 12412 12~84 12500 T8ASE-l. TMAX TMAX. 0.9 CLEAR '-3 OUTPUT FUNC TI ON LI NKAGE OR REMOYE PARENTHESIS SL .BGNSTl7I 101.8.FAC SL. 1'160020 154.8.ARITH STATEMENT CALL 5L. 1'160020 CODEn .5171 RMNS .SL 8GIIST-4171 .IGNST.1171 RMNS .SR N40002 .TUSE SL-3 N~0002-1 .SL N~0002 .9 31 -59H 5 X 05964 00-00 00000 lNRR9 0-101 01100 0~15" 01100 0---5 -9282 10--0 -2372 02]03 00000 09282 00009 0118P 00000 OOJOI 01200 08986 J2766 J2182 X 1 -2372 5 25 ~9 26 16 15 17 66 -2372 04"28 12856 04162 00000 02312 03930 04155 06030 03191 000J7 00000 J2812 08)04 12Q72 5 x I -3930 12872 421 1620 MOIIITOR II VERSION 2 FOR TRAN 11-0 PAGE PHASE 2-B 13730 oSA N40002 12877 13740 OSA SR 12817 128B2 12882 12884 12896 12908 12916 129i6 12928 11750 TF BGN5TI7I .FAt 13760 TOM F5W ,11 .1 U770 EXIT B 13780 DORG '-3 13190 CODE3B til 154.8.ARITH STATEMENT CALL SL •. U800 BE eODElC 13810 153.8. FUNtTi ON tALL til SL. UB20 BE CODElt uno N60023 CM SL. 107.8.IF 13840 BE CDDET 13850 TR BGNST-~I7I .BGNS1+1I11 TR BGNS1+I(7I U860 .BGNS1+6171 13870 B1 EXIT 13880 ARITH STATEMENT tALL DR FUNtTiON tALL OPERATOR .-10(71 13890 CODElt BXM •• 12 13900 CODEn BTM R!lNS .Sl 13910 BTM RMN5 .LV 13920 .BGNS1+II71 TIt IGN5T-"I7I 13930 IIIF N60026 .FSW ,.+12 139~0 BTM SNRP 13950 N60026 tM 154.8. ARITH STATEMENT tALL LV. U960 N60027 BE 13970 TOM 5S3 .1 13980 N60027 TFM S52 .10 .11 , •• 16 8TM SRFtT 13990 14000 OSA SL 129~0 12952 12964 12916 12988 13000 U012 . 14010 DSA N40001 14020 14030 H040 14050 1"060 TF AM TO 8TM OSA N~0003 N~0003 ITH 1"070 DSA N40001 14080 OSA N40003 14090 BD 14100 CODBD BTM TF 14110 14120 BTH DSA 14130 CODEll RMNS SR SRFcr SL FLAGSW pun U020 13032 13044 13056 13068 13080 13092 13104 13116 1312B 13140 13156 -H87 5 X -2372 26 15 49 lNRR9 08986 02928 09201 OOOOJ 00000 14 46 H 09282 U020 09282 U020 09282 10098 lNRR5 0-154 01200 0-15.3 01200 0-101 01200 10--0 10--5 ~6 14 46 31 31 02928 62 13032 04990 04990 lNRR5 13092 05022 092]9 13128 06635 17 17 31 44 17 lit 46 15 16 17 .10 H161 U162 26 U17~ 11 13186 13198 13214 .*+16 25 17 1321~ U22~ 1322~ ,*+16 422 -3382 03392 05969 03392 OOOJI 04428 0"162 06030 H214 5 X I -3382 5 x 13219 13226 13238 13250 13262 13278 0-15~ 01200 00001 0663~ OOOJI 03824 J3156 5 X 1 -5972 5 X 13219 .CALLX .SL .BGNS1I71 O--J-9282 -9239 10--0 08986 J30.92 -9282 5 x U156 13161 .ADtOW .11 • FXORFL lD-~O ~9 43 17 26 17 -3392 13"26 0438B 04990 -9282 02372 INRR9 03824 J3278 I 5 X 38 1620 MONITOR " I~I~O OSA SL 14150 8NF SF 8TM OSA -+24 SL 1~160 14110 14180 14190 14200 14210 14220 14230 14240 14250 14260 14270 14280 14290 14300 14110 14320 14330 14340 14350 14360 14370 14380 14390 14400 14410 110420 14430 14440 14450 CODE 3E CM 8E TR 8 OORG N60032 BTH COOEJX BO TF TDM 8 OORG COOEll TOM 8 ODRG CET 8XM CM 8E 8XM COOE4P TF TF 8TM CM BNE TO BTM OSA purc VERSION 2 FORTRAN 11-0 PHASE 2-8 PAGE 13278 13283 13283 13284 13296 13308 13324 ,FPSW ,-+16 SL 13324 13326 13338 13350 13362 13370 13370 13382 13394 11406 13418 13426 13426 13438 13446 13446 13458 13470 13482 SR, 104,8,RIGHT PAREN N60032 BGNST-4 I 11 ,8GNS1+I[71 coono '-3 ADJUST CEl BGNSTl1I FSW EXIT '-3 CAUX CLEAR '-3 -+12 8GNSTl1I CLEAR COOE3X.12 OUTPUT REVERSE SR LV OPSR SR N60034 FX PUTX BTM,LV,FACAO ,ADCOW ,CAHSW ,FAC ,I ,11 ,0 ,5171 ,132 ,9 ,-5(7) SIGN INSTRUCTIONS FOR UNARV MINUS ,8GNST (71 13494 13506 13518 13530 13542 13554 13566 13582 .RVSN ,LV ,101 ,8 ,FLAGSW ,-+16 14460 87 EXIT 14470 COOE4A 8LXM EXSU8 ,-+16(2. OSA OPX,L V, N40003 1""71 13582 13587 13592 13594 13602 13618 14480 87 14490 N60034 8NF 14500 8TM 1~510 N60035 8TM 14520 OSA EXIT 1160035 GNRP SRFCT SR 13618 13623 13628 13630 13618 13650 13662 13678 14530 N40003 OSA ,FSW ,·+12 ,-+16 39 -9282 5 X 44 32 11 -9282 13308 09341 09282 00000 01402 H324 5 X I 14 46 31 49 -9282 02312 13370 INRR5 13238 0-104 01200 10--0 00000 17 43 26 15 49 03444 13446 INRR9 08986 OZ928 -5969 08992 09203 OOOOJ 00000 15 49 04388 02640 00000 00000 62 14 46 62 13458 INRR9 02640 13394 0---5 00H2 01200 O---N 26 26 17 14 47 25 17 02372 INRR9 09239 09068 03488 -9239 02372 0-101 13638 01200 03562 04~2A 06030 J3582 5 X 3 49 66 49 44 11 17 -5972 -9239 -3797 02928 08304 13018 5 X 3 -3930 -9239 -3392 02928 13662 08986 05022 J3662 03824 J3678 5 X I 13678 13683 -2372 5 X 13683 -3392 08986 04428 INRR9 0]562 13602 INRR9 10122 10026 INRR5 10--9 02928 04188 13032 423 1620 MONI TOR II VERSION 2 TOM FSW ,I 14580 14590 ,FXORFl TO FLAGSW BGNST(71 ,FAt 14600 TF ,FXORFl TO FX 1"610 14620 87 COOEtoA ,124 14630 COOE8P CM IIGNST (71 14640 aHE COOE8 14650 87 COOE3 BGNST-4(7) ,8GHS1+1I11 14660 C015P TR 8GNS1+10(71 ,132 14670 CM 14680 8HE EXIT 14690 ,I TOM CALLX IHOO a7 CODElY OORG 14100 14710 TERTIARV 1I NUGE 8LOCK 14720 2,5 DC 1"130 -5 ,SR 14740 SU8COS aTM liMNS 14750 8 CDSSP 14160 SUBCA8 TFM FMON+35 ,8LK6 14770 8TM FMON ,SU8CAB IH80 SUBC12 TFM FMON+35 ,8LK1 14790 8TM FMON ,SU8C12 ,8LK8 14800 SU8128 TFM FMON+35 ,SU8128 8TM FMON 14810 8GNST-4(11 ,8GNST+6171 14820 COSSP TR ,8GNST-5171 TF SX 14830 ,SX-It 14840 TO XRSW ,e+16 8TM SRFCT 14850 14860 OSA SX,SX 14861 14870 14880 14890 IHOO 14910 TO TO TOM TO 8TM OSA SPFPSW SPCOM SKIPSW UFLAG CANOS 01,01 14920 14930 14940 14950 14960 XU 14970 14980 14990 TOM CM 8l 8E 8X" TF 8TH OSA SS2 SR XXI XX2 ,I ,150 -+12 ,30(7) 15000 15010 XX2 BXII 8X" XX4 ,-30(7) .+12 ,15 (1 I FORTRAN 11-0 PAGE PHASE 2-8 1368~ ,11 13696 13708 13720 13132 137"0 13752 13764 13772 137810 U796 13808 13820 lUOO ,9 ,9 14250 14255 14256 14268 142aO 14292 14304 14320 ,FPSW ,COMSW ,FXORFl ,.+16 ,SUB3 CANOS ,."16 14 47 15 49 OOOOJ 04162 09203 04162 00J24 01200 10--0 00J32 01200 00001 lUOI 14102 141110 14126 14138 14150 14162 14174 14186 14198 14210 14222 14234 14250 ,I H40006 15 25 26 25 49 14 47 49 31 14320 14325 14326 14338 14350 14362 14374 14386 14398 14414 ,8 04,SY 14414 14419 14420 14432 l,2 fl 17 49 16 17 16 17 16 17 31 26 25 17 25 25 15 25 11 15 14 47 46 62 26 17 62 62 04990 -2372 14198 00000 02359 -8908 02324 J4126 02359 -8932 0232'0 J4I50 02359 -8956 02324 J4174 INRR5 10--5 INRR4 02377 09241 02373 03824 Jlt250 5 X 2 -2317 -2377 09357 093H 15691 03999 09349 00001 04368 04162 08100 J4320 5 X 2 -5979 -5984 06634 00001 0-150 02372 15204 01300 14432 01200 14386 O--LO 03401 03647 08100 JH14 2 5 X -6009 -2384 14490 14444 O--l0--J5 40 1620 HONITOR II VERSION 2 15020 15030 15040 TF 8TH DSA N40006 CANOS 04,SV ,SUB2 ,·"16 15050 15060 XX4 SKM TF AM BO 87 SF BTM OSA XX4 N40005 N40005 ,-15171 ,AOCOW ,12 ,RXFlAG 1~070 15080 15090 15100 1>110 15120 .+20 _ .. 20 FORTRAN II-D PHASE 2-B PAGE H444 14456 14472 14412 14417 14418 14490 14502 14514 14526 14534 1"546 14562 ,10 N40005 PUTX ,·+16 BTH,N40006,N40005 14562 14561 14512 145n 14586 14598 14610 14626 26 17 62 26 11 43 49 32 17 -6009 -2384 14490 O--JN 03402 05969 03402 000J2 14534 04368 14546 03402 00000 06030 J4562 5 X 3 ~5912 -3407 -3402 08094 09241 14610 09351 02317 00000 07402 J4626 5 X 1 15130 15140 15150 15160 15170 TO BNF SF BTH OSA S'SXR2 .+24 SX PUTC 15180 15190 BTH OSA PUTO 04 ,*+16 14626 14628 14644 11 -2371 01486 J461tlt 5 X 1 15200 15210 BTH OSA PUTO 01 ,.+16 14644 14646 14662 17 -6009 01486 Jlt662 5 X 1 15220 15230 BTM OSA PUTC 01 ,*+16 14662 14664 14680 17 -5979 07402 Jlt680 1 5 X sx UFSTR+3 SR ,XRSW ,SPFPSW ,.+16 14680 14682 14694 14106 14118 14734 ,I 25 44 32 17 -5984 02266 00001 02312 0-150 14716 01100 08100 J4734 5 X 2 15240 TOM 15250 CM 15260 IINH 15270 COSSS3 8TM 15280 OSA CANOS 02,OJ ,*+16 15290 15300 8TM OSA PUTO 02 ,*+16 14734 14139 14no 14756 15310 15J20 8TM OSA PUTC OJ ,*.16 14756 In58 14174 11 -5989 01402 J4174 5 X 1 15330 XX5 15340 8TM OSA CANOS 03,Ok , •• 16 14174 14716 In92 17 -5994 08100 J4792 5 X 2 -5999 -6004 01486 J4814 5 X 1 ,no ,8 US 41 03401 03637 08100 J4472 5 X 2 15 14 47 11 17 -5989 -5994 07486 J4756 5 X 1 4...1 <) '" 1620 MONITOR II YERSION 2 FORTRAN 11-0 PAGE PHASE 2-B 15350 15360 8TM OSA PUTO 03 , •• 16 loU92 14797 14798 ' '11 14814 15370 15380 BTM OSA PUTC Ok ,*+16 14814 14816 14832 11 -5999 01402 J4832 5 X 1 15390 tOS1V 15400 BTII OSA PUTRM IRM ,·.16 14832 14834 14850 11 -6004 07606 J4850 5 X 1 15410 15420 15430 15440 15450 15460 QZP 15410 15480 15490 15500 15510 15520 rOil 8XM 8NF TR 81 CM 8NE BO TD 7011 8rM OSA ,0 SKIPS,! ,-5111 .+12 QIP ,101 8GNST-4171 ,BGNST+lIl1 t0148 ,133 BGNST+51l1 COSlT ,XRSW L2 ,RXFUG RFLAG ,I RSH PUTX ,."16 TF,FACAO,N13092 14850 14852 14864 14876 14888 14900 14908 14920 14932 14944 14956 14968 149B4 15 62 44 31 49 14 47 43 25 15 J5690 09349 00000 1"816 O---N 14908 08987 INRR5 10--0 11552 10--4 OOJ33 15028 01200 0284" 09241 04358 01t368 08997 OOOOJ 01>030 J4984 5 X 3 15530 15540 15550 15560 CDS1T 15570 15580 15590 15600 15610 15620 15630 15640 15650 15660 n670 15680 15690 15100 15110 XXI 15120 TF 8TM 81 80 8NF 8TM 80 TOM 8TM OSA TF TOM TO 80 87 8TM SF 87 8TH OSA BGNSTl7I !>NRP L2 EXIT .+24!>NRP -+24 SS4 ,'I ,11 14984 14989 14994 14996 15008 15020 15028 15040 15052 15064 15016 15088 15104 ,FAC •• .. 12 ,XRSW ,FSW ,-+12 ,CALLSW ,I purx ,*+16 TFL,FACAD,N13092 8GNSTl7I FSW FLA!>SW *+20 EXIT !>NRP '0161 EXIT CANOS , O",SV ,FAt ,I ,RXFLAG ,CALLSW 15104 15109 15114 15116 15128 15140 15152 15164 15172 15184 15196 15204 15220 ,11 , ·"12 ,-+16 15220 426 11 26 17 49 43 44 17 43 15 17 26 15 25 43 49 17 32 49 17 -9007 -3797 -9040 INRR9 09203 05022 J5020 02844 02928 09241 15064 08986 05022 J5064 15088 08992 06636 00001 06030 J5104 5 X 3 -9021 -3797 -9040 INRR9 09203 08986 ,OOOOJ 04428 04)68 15172, 08992 02928 05022 'J5184 0--00 00000 02928 08100 J5220 5 X 2 -6009 42 1620 MONITOR II 15T30 15140 1S150 15760 15770 '-15780 COSIS 15790 15800 15810 15820 15830 158"0 15850 15860 15870 15880 15890 JPl 15900 15910 15920 15930 159"0 15950 1596D 15970 15980 .COSU 15990 16000 16010 16020 16030 160"0 16050 16060 CDSIN 16070 16080 CDSIJ 16090 16100 16110 ZRM TOM 80 TF B7 TF TF CM 8E SS2 ... 12 l COSlS l lDI 01 II 01 96 lOI lOI JGPP SSI PUTX MM,Ol,lOI SF TF CM BE TOM BTM OSA M MA 80 BO A TF Il 10 TOM 8TM DU 8D 8D INF TFM 10 TOM 8TM DSA 11TH DSA 87 DC VERSION 2 FORTRAN II~O PHASE 2~B PAGE 15225 15226 15238 15250 15262 15270 15282 15294 15306 15318 15330 15342 153510 15366 15378 15390 15"06 ,0 .RXFlAG .FP2 ,K ,l ,1 _+48 0" 0" COSIZ COSlZ 0" SV OUNEG •• 2. SS2 purx ,lOI ,99 .10 ,10 ,I ,.+16 15406 15 It 11 15416 15"18 151t30 15"42 15"54 15"66 150UB 15"9D 15502 15Sl" 15526 155"2 ,l ,99 ,XRSII ,SPFPSII ,SX ,DIt .SPCOl! ,I ,·+16 AM,N13092,O" OPZ,N13092, SX 155"2 1551t1 15552 1555" 15566 15578 15590 15602 15611t 15626 156"2 PUTX .. -+16 SF, N13133, 8UNX 156"2 156"1 15652 15654 15670 CDSlXR FPNXR CDSIJ DPZ e+21\ SS2 purx ,XRSII ,SPFPSII ,SV ,11 ,SPCDM ,I , •• 16 .10 15670 15675 15680 15682 15690 COSIV+1. 2,' U 43 26 109 26 26 14 106 23 32 26 1" 46 15 17 23 70 "3 H 21 26 ,,7 "3 15 17 "3 "3 4" 16 "3 15 17 17 "9 "3 -23810 06634 00000 15210 04368 06017 02298 15282 06017 02252 06022 06017 05919 -0001 15354 01200 05919 06022 00096 00000 06022 00099 06022 OOOJO 15816 01200 06633 00001 06030 J5406 5 X 3 -9011 -5984 -6022 06009 06017 06009 00099 15526 092"1 15526 09357 06009 02377 0238" 06009 15196 01300 15526 15691 0663" DODO 1 06030 J5542 5 X 3 -9009 -9040 -6009 15712 09241 15692 09357 1565" 0238" 09346 OOOJI 15626 15691 06631t 00001 06030 J56,,2 5 X 3 -93"6 -90"0 -2377 06030 J5670 5 X 3 -9003 -901t7 -9026 H852 2 42. 1620 MONITOR II 1612D SPCOM 16lJO FPNXR 161"0 161'0 CDSIXR 16160 16170 16180 16190 16200 DS TFM 87 TF AM TO TOM IITM OSA 16210 81 16220 D4LNEG S 87 16230 16240 JGPP TDM IITM 16250 16260 DSA 16270 16280 lDVO· YERSION 2 1 ,21 OPZ eOSIN ,AOCOII N40005 N,,0005 ,12 ,XRSII SSXR2 ,1 5S1 ,.+16 PUTX 8lX,N40005,NU092 FORTRAN II-D TCD 16390 16400 16410 DORG 10000 SECQNDARY LINKAGE FOR BlDCK2 2,2 DC -2 ,BlKI TFM FMON+35 ,CODEl 8TM FMON ,8lKI TFM FMON+35 ,CODEl BTM FMON ,BlKI TFM FMON<)5 ,CODE4 8TM FMOI'! ,LV BTM RMNS CODE6P 8 ,8 ,130 CM RV B CODE7P ,BlKI TFM FMON+35 ,CODES BTM FMON KODEI lDOE3 XODE4 XOPE6 XODE7 XODE8 15716 15781 15186 15788 15796 15808 15816 15828 15844 COSIY+18 ,SX 04 COSll ,I SS2 PUTX ,*+16 lDVD,N0098,DI 16380 16UO 164)0 164100 16450 16"6D 16470 1648D 16490 16500 16510 16520 16530 15691 15692 15704 15712 15724 15136 15748 15760 15176 ,10 16320 XYYX 16330 16340 16350 16360 16370 16300 16310 XOOX PAGE 2~8 ,lOll 87 JPl DC 2,2' X8 DC ',98 -0098 DDRG 16002 DSC 14,01780013602"00 017BOO13602400 PUTPCH. 11, GM TD PRE8UF-5.GM TO FlGRM SF XOOK,701 34 XOOX,702 38 TU 1629D N0098 PHASE 15144 15849 15854 U856 15864 II> 49 26 11 25 15 17 -9015 -3~02 49 22 49 15 17 49 ·15869 XVVX -90"0 H.52 06009 02377 15526 0663/t 00001 06030 J5U4 5 X 3 J5864 J5869 -5984 15418 2 5 16002 16002 16016 16028 16040 16052 16064 ·16076 16088 16016 1 093"6 OOOKJ 15626 03402 05969 03402 OOOJ2 08094 D92~1 066H 00001 06030 J5176 5 X 3 1" 25 25 32 3" 38 36 49 07269 08010 07674 16002 16002 00000 00000 16 17 16 17 16 02359 02324 02359 02324 02359 02324 04990 1043" 09251 11240 02359 02324 029 00001' 03824 J0510 S X 1 17 31 49 16 17 16 17 16 17 16 11 43 49 16 17 16 17 -2372 5 X 10510 10515 16870 OSA SK 16880 16890 16900 16910 TOM 8NF 8TH OSA SKIPSW COOE68 INSET SR,AoCOW ,0 16920 COoE68 TOM 16930 BTM 16940 OSA SSI PUTX B ,I 16950 OSA SK 10590 10595 -591't 5 X 16960 DSA BLANK 10595 10600 J0809 5 X 10600 -9026 ,RMSW , •• 16 ,·.16 45 10515 10516 10528 10540 10556 It4 10556 10561 10562 1051'> 10590 15 15 11 17 J0809 09349 00000 10562 04418 11094 J0556 5 X 2 -2372 -5969 06633 00001 J0590 06030 5 X 1 429 ,. 1620 MONITOR II 16970 16980 16990 17000 17010 17020 17030 17040 17050 17060 17070 17080 17090 17100 11110 17120 17130 171"0 17150 17160 11170 17180 17190 11200 SM COoE6A B1 N600.1 CM 8E CM BNE TFM B1 N60043 TFM TFM BTH CM BE TO AM CM 8l SF SK OS N60044 CM 8NE BTM OSA 17210 OSA 17220 OSA AoCON CLEAR lV, CLEAR SX, N60043 J N6004. J •• 54 VERSION 2 PHASE 2-B ,10 PAGE 10602 10614 10622 10634 10646 10658 10610 10682 10690 10102 10114 10126 10138 10150 10162 10114 10186 10198 10809 127,8,CONTINUE 132,8,SEMI tOlON ,0 ,0 ,J-4 RMNS ,SX SX, 132,8,SEMI COLON N60044-12 J-4 ,SX --6 ,I .-18 FORTRAN 11-0 ,10 ,J+l N600"3+24 J-4 ,- CODE PAUSE lV, 126,8,PAUSE N600"5 , •• 16 PUTX H 10810 10822 108]'0 10850 BLANK 05969 02640 09239 02640 02377 10690 09224 10810 09224 10756 04990 02371 10198 09220 10756 10756 10714 09220 0 14 09239 0-126 10870 01200 06030 J0850 5 X 1 47 17 000-4 0-127 01200 0-132 01200 -0000 10850 10855 -9013 5 X 10855 10860 -9224 5 10860 10862 17230 87 CLEAR 17240 CODE STOP lV, 17250 N600ltS CM 125,8,STOP 11260 8HE N600lo6 11210 BTM PUTX ,*+16 11280 oSA RCrY 12 49 14 46 14 "7 16 49 16 16 17 14 46 25 11 14 41 32 10810 108B2 10894 10910 49 14 "7 17 -9026 02640 09239 0-125 11026 01200 06030 J0910 5 X 1 17290 OSA 8lANK 10910 10915 -9055 5 X 11300 oSA MU062 10915 10920 -9026 5 X 11310 11320 8TM oSA PUTX WATY 11330 oSA ASTOP 10938 10943 -9051 5 X 11340 oSA N13063 10943 109"8 -3192 5 X 109"8 -9193 10920 10922 10938 , .+16 4JlI 17 -0000 -9220 -2377 0-132 01200 02377 000-1 -9225 01300 00000 -9198 06030 J0938 5 X 1 46 1620 MONITOR II VERSION 2 FORT~AN 11-0 ,PHASE 2-8 PAGE 17)50 11360 BTM OU H 10950 10966 17)70 OU J 10966 10971 -9013 5 X 17380 OSA BLANK 10911 10976 -9224 5 17390 17400 BTM oU PUTX 8 OU N00796 10994 10999 -5974 11410 BLANK 10999 11004 -9356 5 X 17420 DSA PUTX 17430 SM APCON 1-7440 B7 'CLEAR 17450 CODE END lH60 N6004(> arM PUTX 1735 BTM FMON 20530 20540 WUBt12 JF" FMON+35 20550 BTM FMON 20560 WUB12B TFM FMON+35 20510 BTM FMON 20580 OUTPUT RETURN 20590 FeTRTP TOM SS2 20600 8TM SRFeT 20610 OSA RTNAME VERSION 2 FORTUN [1-0 PHASE 2-8 PAGE , SU8tOS ,BlK6 ,SU8tA8 ,BLK7 ,SUBe12 ,BLK8 , SUB12B 14114 14126 14138 14150 14162 1417" 110186 17 ,I IU98 14210 14226 15 11 .-.16 16 17 16 17 16 17 02324 02359 02324 02359 02324 0235~ 02324 06634 00001 03824 J4226 5 X 1 -921C 5 X 14226 14231 20620 OSA N40011 20630 20640 BTM OSA PUTX TFl 20650 OSA FAtAO 110248 14253 -9021 5 X 20660 OSA N40011 14253 14258 -3797 5 LOXRAO ,0 N61A ,I SS2 PUTX ,*.16 TR, XRAOO,LOXRAD 14258 14260 14272 14284 14296 14312 14312 110317 14322 14324 14336 14348 14360 14316 20670 N60182 eM 20680 8E 20690 TOM 20700 8TM 20710 OSA 14231 14232 14248 ,*.16 14 46 15 17 -31032 06030 JIo248 5 X 1 -3432 02394 -0000 14324 01200 06634 COOOI D601C JH12 5 X 3 -901~ 16 26 12 17 -23B9 -2394 06635 DOJDl 03437 09246 03437 000-1 JH76 06030 5 X 1 TF" TF SM 8TM OSA SS3 N40012 N40012 PUTX 8 20110 ou N40012 14316 1<1381 -59H 5 X 20780 OSA 8LANK 1<1381 14386 -3437 5 20190 20800 20810 XBLK2 81 CLEAR DORG 16002 14,01793606010000 OSC 01793606010000 34 X8LK2,101 XBLK2,702 38 TRA ,·.16 ,9 17 20720 N61A 20730 20740 20750 20160 20820 XliX 20830 20840 ,101 ,RYAO ,I ,10 14386 14388 16002 16002 16016 16028 16040 16052 55 JIoI02_ -8908 J4126 -8932 J4150 -8956 J4114 49 -9026 0264C 34 38 36 49 16002 16002 00000 00000 14 C0701 C0702 00500 coooo 439 1620 MONITOR II 20850 Teo 20860 20870 208BO DC VERS [ON 2 FORTRAN 11-0 PHAse 2-8 PAGE XllX 16016 DORG 10000 SECONDARY LINKAGE FOR 8LOCK 2,3 10000 10001 -] 20890 20900 20910 20920 20930 20940 20950 20960 20970 209BO 20990 21000 21010 21020 21030 21040 21050 21060 21070 21080 21090 21100 21110 21120 21130 21140 21150 21160 21170 21180 21190 21200 21210 21220 21230 21240 21250 21260 21270 21280 21290 21300 21310 21320 21no 21340 21350 21360 21310 21380 YODEl YODE3 YODE4 YODE6 YODE7 YODES· YOOE9 YOOE12 YODel" YODEl' YODE17 YOOESS YDSSA8 Y012B yeTl TFM 8TM TFM BTM TFM 8TM TFM 8TM TFM 8TM TF" 8TM TFM BTM 8 H TDM B TFM 8TM TFM 8TM B H B H B H TFM 8TM TFM 8TM TFM BTM CM B FMON>]5 FMON FMON>35 FMON FMON+35 FMON fMON+35 FMON FMON+35 FMON FMON+35 FMON fMON+35 FMON SU8C12 ,BLKI ,CODE1 ,BLKI ,COOEl ,BLKI ,tOOE4 ,BLK2 ,eOOE6 ,81K2 ,eOOE7 ,BLKI ,eOOE8 ,BLK2 ,CODE9 Fx C014P FMON.]5 FMON FMON+35 FMON SUBCOS ,I ,8LKI ,COOEl5 ,BLK2 ,eDDE17 SUBCAB SU8l2R FMON>35 ,8LK4 FMON ,Fen yeTRT FMON>]5 ,8LK2 FMON ,FeTRT YOJ FMON>]5 ,8LK4 FMON ,EOJ YDCAll ,131 LV CDCAlP OUTPUT 10 STATEMENT tD14P TOM FFRSW ,0 TR BGNST-4171 ,BGNST>1I11 TF ,8GNSTllI SL CM lV ,142 BL CD14JG CM lV .141 8H C014JG TOM FFRSW ,I TFM 10NO .127 CM LV .142 8E CDI4FV .eM ,143 LV 8E C014FL ...... 10002 10014 10026 10038 10050 10062 10074 10086 10098 10110 10122 10134 10146 1015B 10170 10182 10194 10206 10218 10230 10242 10254 10266 10218 10290 10302 10314 10326 10338 10350 10362 ·10314 103B6 10398 10410 10422 ,8 10434 10446 10458 10470 101082 10494 10506 10518 10530 10542 10554 10566 10518 ,8 ,8 .9 .8 .8 4411 16 11 16 17 16 17 16 17 16 17 16 17 16 17 49 48 15 49 16 17 16 17 49 48 49 48 49 48 16 17 16 17 16 11 14 49 15 H 26 14 47 14 46 15 16 14 46 14 46 02359 02324 02359 02324 02359 02324 02359 02]24 02359 C2324 02359 02324 02159 02324 14150 00000 03562 10434 02359 02324 02359 02324 14102 00000 14126 00000 141H OOOOC 02359 02]24 02359 02324 02359 02324 09239 12632 -8788 JOO02 -8188 J0026 -8788 J0050 -8812 JOO74 -8812 J0098 -8188 J0122 -881.2 J0146 00000 OOOCO COOOI 00000 -8788 J0218 -8812 J02lt2 00000 COOOO COOOO 00000 00000 00000 -8860 JOB8 -8812 J0362 -8860 J0386 0-131 00000 OH9B INRR5 09282 C9239 10952 09239 10952 0"398 10649 09239 10682 09239 10766 00000 10--0 1NRR9 0-142 01300 0-147 01100 00001 00J21 0-142 01200 0-143 01200 56 1620 21390 21400 21410 21420 21430 21440 IONO 21450 21460 21HO 21480 CD14FV 21490 21500 21510 21520 CM BE CM BE SF OS CM BE B7 TF CM 8NE 8TM DSA ~ONITOR II LV CDI4RV LV C014RL FFRSh VERSICN 2 FORTRAN 11-0 ,146 ,B ,147 ,8 ,144 ,B ,FETCH ,101 ,8 PHASE 2-B PAGE BT,LV,N13092 10590 10602 10614 10626 10638 10649 10650 10662 10674 106B2 10694 10706 10118 10134 21530 TR 21540 87 21550 Col4FL TF 21560 8TM 21570 DSA 8GNST-4171 Co14A LV SRFCT SL,N40004 10734 10139 10744 10746 10158 10166 10118 10794 21580 21590 21600 ,I purx ,e+16 TFl,FACAO.,N40M4 21610 21620 21630 21640 21650 21660 21670 21680 21690 21700 21110 21720 21730 21740 21750 21760 21110 21780 TOM 8TM DSA COURV COl4RL C014SV COl4SL CDI4JG CDI4JW 21790 ,. LV CD14SV CD14SL LV SL CD14JW purx ,e.16 ,BGNST+lIH ,FETCH ,.+16 10194 10799 10800 10812 10828 SS2 10828 10833 10838 10840 10852 10864 10812 10884 10892 10904 10912 1092'1 10932 10944 10952 10964 10916 10988 TF 8TM 81 TF 87 TF Bl TF Bl TF Bl TFH 8TM 8TM TDH ,FAC 8GNST 111 GNRP • e+12 CDI4FV+12 LV ,RECORD CDI4FV+12 LV ,RECORD CDI4FL+l2 ,FIND LV COI4FV+12 LV ,FIND CDI4FL+12 ,126 laND ,9 OPSR ,LV RMNS ,SL ,I SS2 OUTPUT INSTRUCTION FOR 10 DEVICE , •• 16 8TH SRFCT OSA SL OSA 11000 11016 N40004 14 46 14 46 32 14 46 49 26 I" 47 17 31 49 26 17 15 17 57 09239 0-146 10872 01200 09239 C-147 10892 C1200 043ge COOOO C 09239 0-144 10912 01200 10932 09239 12631 09282 0-101 10976 C1200 0603C J0734 5 X 3 -9053 -9239 -9040 INRR5 10--0 11202 09239 12631 03824 J0794 5 X 2 -9282 -3391 06634 COOOI 0603C J0828 5 X 3 -9021 -]797 26 17 49 26 49 26 49 26 49 26 49 16 17 17 15 17 -3397 INRR9 05022 10694 09239 10694 09239 10778 09239 10694 09239 1011B 10649 034B8 0499C 06634 09203 J0864 12626 12626 12621 12621 00J26 -9239 -92B2 COOOI 03824 JI016 5 X I 11016 11021 -9282 5 x 11021 -3397 fdl 1620 MONITOR II 21BOO BD 21810 BO 21820 BNR 21830 TFM 21B40 81 21850 CDI4FR BLX" 21860 OSA 21870 B7 21880 CD14R~ TF 21890 AM 21900 TF 21910 TOM 21920 C014NR TF" 21930 BTM 21940 OSA COl4FR C014RM C014NR OPY CD14NR+12 ex·SU8 OPX,lV,N40004 CDl4A N40001 N40001 S8ASE RMSII OPY PUTX OPY ,l V, N40004 VERSION ,FFRSW ,RMSW .5161 ,27 t FORTRAN 11-0 PHASE 2-B PAGE ,10 11022 11034 11046 11058 11010 1101B 11094 ,11 ,N40001 ,0 ,10 ,6 ,11 ,10 11094 11099 11104 11106 11114 11126 11138. 11150 11162 11114 11190 , •• 16121 .AOCOW .-+16 11190 11195 11200 11202 11214 11226 11234 11246 1125B 11270 112B2 11294 11306 11318 11330 11346 43 43 45 16 49 66 49 26 11 26 15 16 11 11018 C4398 11114· C4418 11162 0--05 12.606 OOOKl 11114 08304 11-94 5 X 3 -3930 -9239 -3391 11202 03382 05969 03382 OOOJI 0416- 03382 044i8 COOOO 12606 OOOH 06030 J1190 5 X 3 J2606 -9239 -3391 D89B7 COOOO 11214 0439B 0264C 04990 -92B2 092B2 0-132 12184 01200 09282 INRR9 ,09282 0-109 12108 01200 09282 C-124 11164 01200 03824 J1346 5 X 1 21950 CD14A 21960 21910 21980 21990 22000 U010 22020 22030 22040 22050 22060 22010 TOM BNF 81 BTH CM 8E TF CM 8E CM 8E 8TM OSA 101 .+20 CLEAR RMNS Sl, C014EN SL SL, CODOA SL, COOEPA SRFeT SL 22080 DSA SR 22090 221CO Ull0 S I MVAR 22120 22130 22140 22150 CD96 22160 8D COOARR ,D~SW OUTPUT SIMPLE VARlA8lE TOM SS2 ,1 TF 10NOA ,IONO TD FX ,FXORFl 8TM OPSR ,leNOA BLXI' USU8 ,·+16(2) DSA OPX 11364 11316 11388 11400 11412 1142B U170 OSA 10NOA 11428 11433 -3930 5 X 22180 OSA SR li1t33 11438 J2599 5 ,0 ,FFRSW ,SL 132, B, SEMI COLON ,8GNSTl71 109,B,DOA 124,8,LEFT PAREN , •• 16 15 44 49· 11 14 46 26 14 46 14 46 11 11346 11351 lU51 11352 442 -9282 5 X 43 15 26 2S 11 66 -2312 11460 03998 06634 COOOI 12599 10649 03562 C4162 03488 J2599 08304 11H28 5 X I 58 1620 22190 22200 U2l0 22220 22230 22240 22250 22260 22210 22280 22290 22300 22310 22320 22330 . 22340 22350 22360 CDI4C TR 81 COOARR TF CM 8L 8XM TOM CM BE Bl C0148 TOM TO TF 8TM C094 BO 8TM OSA ~ONITOR II VERSION 2 FORTRAN 11-0 P~ASE 2-8 PAGE 11438 11440 11452 ,8GNsT+1I11 8GNST-4171 C014A OUTPUT DIMENSION VARIABlES IN 10 STATEMENTS ,8GNS T+5171 LV ,148 .,8 LV COOMAT ,SIll -+12 ,I ,11 101 ,148 ,8 LV COSsA8 CODESS ,0 101 FX ,RXFLAG 10NOA ,IONO OPSR ,ICNOA C09U , XRSW 8T 11460 11412 llU4 11496 11508 11520 11532 11544 11552 11564 11516 115B8 11600 11612 11628 pun , •• 16 31 49 26 14 41 62 15 14 46 49 15 25 26 11 43 11 -2372 lNRR5 11202 09239 09239 12216 11508 08981 09239 1029C 10266 OB981 03562 1259~ 03488 11648 06030 5 10--0 10--4 0-148 01300 0---5 OOOOJ 0-148 01200 00000 04]68 10649 J2599 09241 JI628 X 1 22310 OSA 10NOA 11628 11633 -9053 5 x 22380 OSA NI3092 11633 11638 J2599 5 X 22390 22400 C0941 22410 22420 22430 22431 22440 22450 22460 22410 81 80 TFM 81 TFM TO TOM TO COHA -+32 OPX -+20 OPX PFPSW SS2 SBASE-5 EXSUB OPX, 10NOA, SX 8LX~ OSA 22480 81 22490 COOEPA TF" 22500 COlltNA 8XM 22510 TF 22520 CM 22530 BNE SM 22540 22550 B OoRG 22560 22510 CM 22580 BNE 22590 AM 22600 B 22610 PARCNT OS CM 22620 COHA PARCNT, 1,10 *+12 SL SLtl04,8 , SPFPSW ,11 ,21 ,SPFPSN ,I ,XRSW 11638 11640 11648 11660 11612 11680 11692 11104 11116 11128 11144 ,10 ,10 ,.+16(2) 11144 11149 11154 11156 11164 11116 11188 11800 11812 11824 11836 11844 11844 11856 11868 11880 11891 11892 ,Sill ,8GNST171 0+32 PARCNT,I,10 C014NA .-3 n,124,8 -+36 PARCNT,lo10 COl4NA 2,· SL,IH,8 49 43 16 49 16 25 15 25 66 -904C 11202 11680 09351 03930 OOOJl 116·92 0393C 000~1 03928 09351 06634 COOOI 04155 C9241 0&304 I1P44 5 X 3 49 16 62 26 14 -393C J2599 -2311 11202 11891 11188 09282 09282 11844 11891 11116 H 12 49 14 41 11 49 14 09282 11892 11891 11116 2 09282 59 COO-I 0---5 lNRR9 0-104 C1200 000-1 COOOO 0-124 01200 000-1 COOOO 0-133 H3 1620 MONITOR 11 22630 22640 22650 22660 22610 22680 22690 22100 22110 22120 22130 22140 22150 22160 21110 22180 22190 22800 22810 22820 22830 22840 22850 22860 22810 22880 22890 22900 COl4NA PARCNT,I,IO C014NA AM GLNo,l,lO TF T2,GLNO TOM 101, I BXM CoOElZ C014E TOM 101,0 BXM -+12 TR 8GNST-4C11 TF BGNSTl1I BXM -+12 TR 8GNST-4111 COl4NC TR BGNST-4Ill CM 8GNST 111 BNE CDHNC 8LXM C014A COOOA TDM 101 TF T2 81 C0128 COlltM SM GLNo TDM 101 TR 8GNST-H1I 81 C014A COl4EN 80 C014NO TF N40004 BTM PUTX OSA BTM VERSION 2 FORTRAN 11-0 PHASE 2-B PAGE 8NE CM 8H 11904 11916 11928 11940 11952 11964 11916 11988 Ileoo 120ll 12024 12036 12048 12060 12012 12084 12096 12108 12120 12132 12140 12152 12164 121T6 12184 12196 12208 12224 ,-15111 ,10111 ,BGNST+6111 ,OOA ,5111 ,8GNST+lI11 ,BGNSTHlll ,104 ,9 ,5111 ,1 ,GLND ,I ,0 ,8GNST+6111 ,10 ,FFRSW ,10ENO ,·+16 47 14 46 11 26 15 62 15 62 31 26 62 31 31 14 41 66 15 26 49 12 15 31 49 43 26 11 11116 CI200 11891 000-1 11176 OIlCO 09061 COO-1 09261 C9061 08981 00001 10110 O--JN 08981 00000 12012 O--JO lNRR5 10--5 INRR9 09186 12048 C---5 INRR5 10--0 INRR5 10--0 INRR9 00J04 12060 C1200 11202 0---5 08981 00001 09261 C9061 10314 09C61 000-1 08981 00000 INRR5 10--5 11202 12244 04398 03391 03802 06030 J2224 5 X I 22910 OSA N40004 12224 12229 -5912 5 22920 OSA ZERO 12229 12234 -3391 5 12234 12236 12244 12256 12268 22930 Bl CLEAR 22940 COl4NO TF N40004 ,OIOENO 22950 TDM FFRSW ,0 22960 Bl COI4EN+24 22910 OUTPUT CODING FOR COMPLETE MATRICES IN 10 STATEMElns 22980 COOMAT BD SIMVAR ,SBASE-5 22990 BTM PUTX ,-+16 23000 OSA TFM 12216 12288 12304 49 26 15 49 43 11 -9023 02640 03391 04398 12208 12611 ceooo 11364 04155 06030 J2304 5 X I 23010 OSA PAR 12304 12309 -9001 5 23020 OSA PI 12309 12314 -3812 5 X 23030 23040 23050 23060 8D Bl BNF TOM -+20 CM99 CM98 SSI 12314 12316 12328 12336 12348 ,FXORFL ,FPS .. ,I 4ft/I 43 49 44 15 -9338 12336 12420 12396 06633 04162 09341 COPOI 60 1620 MUNITUR II BT~ 23070 23080 OSA 23090 231CO C~98 23110 23120 CM99 23130 23140 23150 23160 23170 23180 23190 23200 23210 2322C 23230 23240 23250 23260 23270 23280 13290 23300 B7 roM BD TDM 80 TF 8TM OSA BO B7 BNF TOM 8TM OSA CM97 C.96 TR 87 TF 87 OS OS OS PUT X SF,SR,BLANK ·.20 5S4 -+24 SS2 CM96 N40004 PUTX OPX.N40004.SR -+20 CM97 C"'97 SSI PUTX CF.SR.BLANK BGNST-4171 COI,\A N40004 C"99+36 5 5 2 5.-02298 VERSION FORTR AN 11-0 PHASE 2-B PAGE ,·.16 12360 12376 12376 12381 12386 12388 12396 12408 12420 12432 IH44 12456 12472 .1 .COMSW .1 .FFRSW .~AT ,-+16 12472 12477 12482 1210810 12496 12504 12516 12528 12544 .FXORFL .FPSW .1 ,·.16 12544 12549 12554 12556 12568 12576 12588 12599 12604 12606 12611 .BGNST+l!71 ,DRAY 10NOA LVP OPY o [OENO DC -2290 23310 DRAY DC 5.-02293 17 49 15 43 15 43 26 17 43 49 44 15 11 31 49 26 "9 61 06030 J2376 5 X 3 -9003 -2372 -9026 12408 06636 00001 12432 C3999 06634 COOOI 12576 C4398 03397 03817 0603C J2472 3 5 X -3930 -3397 -2372 125C4 04162 12556 12556 C9347 06633 COOOI C603e J2544 3 5 X -9005 -2372 -9026 INRR5 11202 03397 121056 5 5 2 5 10--0 12616 12616 -22n 23320 FIND 5.-02273 DC -221L 23330 RECORD DC 5.-02278 -2270 23340 FETC~ DC 5.-02283 -228L 23350 CAll EXIT AND CAll LINK ROUTINES 23360 COCALP 8E COX IT 23370 COllNK BXM -+12 .1517) 23380 8TM liMNS .Sl 23390 8TI'I RMNS .SX 8TI'I RMNS 23400 .NAME 23410 TF NAME-4 .SX 23420 SF SL-3 23"30 COlGT OS NAME-8 23440 TF .Sl 23450 TF COLGT .AOCOW 12621 12626 12631 .- 12632 12644 12656 12668 12680 12692 12704 12715 12716 12728 46 62 17 17 12740 12752 12764 12780 15 11 17 17 26 32 26 26 13152 12656 0499C 0"990 010990 13147 09279 e 131"3 12715 01200 0--J5 -9282 -2377· J3151 02377 COOOO 09282 05969 44S 1620 MONITOR II 23'\60 23470 2H80 231t90 23500 23510 23520 23530 2351t0 23550 23560 23570 23580 23590 23600 23610 23620 23630 23640 23650 23660 23670 23680 23690 23700 23710 23720 23730 23740 23150 23760 23770 TOM AM 8TM OSA TF TOM AM 8TM OSA 8TM OSA VERSION 2 SS2 .1 COlGT ,50 , •• 16 PUTX TFM.N07495.COLGT COLGT .AOCDW SS2 .1 COLGT .19 PUTX TFM,N00565.CDLGT ,·.'6 FORTRAN 11-0 PAGE PHASE 2-8 ,10 12780 12785 12790 12792 12804 12816 12828 12844 .10 128'\4 12849 12854 12856 12872 , •• 16 PUTX B.NOO716,NZTHO SM AOCDW 8T PUTX2 8T PUTX17 BT PUlX12 AM AOCOW 8 CLEAR OS PUTX2 TR TYPET TFM pun TFM PUTX-l B7 PUTX8 882 OS 5 PUTX17 TR TYPET TFM pun 8 PUTX2+24 OS 7 PUTXI2 TR TYPET TFM pun PUTX2+H 87 TYPEM2 OSC 1.2 2 23780 DC 2.2 -2 23790 DC 2.5 -5 23800 DC 2.10 JO 23810 DC 2.11 JI 23820 DC 5.10000 JOOOO 1 •• 23830 DC ,- .It .NM22 .N147RM .NAME ,1 12872 12877 12882 12884 12896 12908 12920 12932 1291t4 12955 12956 12968 12980 12992 13000 13006 13008 13020 13032 13050 13052 13064 13076 13083 .10 .10 .TYPEM2 .PUTX2-1 ,·+20 .lYPECN .PUTX17-1 ,TYPEl2 .PUTXI2-1 13085 13087 13089 13091 13096 13097 ldG 26 15 11 17 17 06634 00001 12715 OOONO 06030 J2780 5 X 3 -9001 J3117 J2715 12715 05969 06634 COOOI 12715 000J9 0603C J2844 5 X 3 -9001 J31U J2715 06030 J2872 3 5 X 12 27 27 27 11 49 31 16 16 49 42 31 16 49 31 16 49 -5974 J3127 J3132 05969 12956 13008 13052 05969 02640 C 07675 0803e 06029 0611" 5 07675 0803C 12980 7 07675 0803C 12980 I 000-4 13134 13139 13151 000-1 00000 13083 J2955 HOOO 08061 H007 00000 13098 H051 62 1620 MONITOR 23840 rYPEl2 OSC 2 23850 DC J2 23860 DC J5 23870 DC KO 23880 DC VERS ION 2 I[ FORIRAN 11';'0 PHASE 2-8 PAGE 1.,2 13098 2,12 13100 2015 13102 2,20 1310" 2,21 13106 5,10000 13111 63 2 IU 23890 DC 23900 JOOOO DC I, ' 13112 5,7495 23910 N07495 DC -7495 23920 N00565 OSA 10RT 23930 NOO716 OSA 239"0 N2THO 23950 NM22 13117 lOCAL 5,20000 DC KOOOO 2,20 DC KO 24040 XWWX 24050 24060 SM AOCO~ ,4 87 CLEAR OORG 16002 OSC 14,0180000"110000 0180000" 11 0000 X8LK3,701 3" XBLK3,702 38 TRA TCO 210080 OORG 10000 SECONDARY LINKAGE FOR BLOCK" 2,4 DC -4 TFM FMON+35 ,BLKI 8TM FMON ,COOEI TFM FMON+35 ,BLKI 8TM FMON ,CCOEl ,BLKI TFM FMON+35 8TM FMON ,COOH 24110 lODEI 24120 24130 lOOE3 24140 24150 lOOE4 2"160 13127 13132 -0716 5 5 13139 13151 13152 13168 13168 13113 13178 13180 13192 16002 16002 ,10 16016 16028 160,,0 16052 16016 xwwx 24070 24090 24100 -0565 13134 23960 N14 7RM DC 5,10\7' -H7' 23970 NAME OS 12 23980 COXIT 8TM PUTX ,-+16 OSA 8.NOO796,BlANK 23990 24000 2/tOIO 24020 24030 XBLK3 5 X 13122 13122 13127 17 12 06030 HI68 3 5 X 12 49 -5974 -9356 -9026 05969 02640 000-4 H 34 38 36 49 16002 16002 00701 00702 00500 COOOO 02359 02324 02359 02324 -8788 JOO02 -8788 J0026 -8788 J0050 oooee ooooe 10000 10001 10002 100110 10026 10038 10050 10062 16 17 16 17 16 17 100H 10086 10098 16 17 16 17 16 17 16 17 16 17 16 02359 02324 447 1620 MONITOR II 2·U70 2H80 2"190 2"200 24210 24220 24230 24240 2"250 24260 24270 24280 24290 2HOO 24310 24320 2,,]]0 2"HO 24350 24360 24370 24380 2"390 24400 24410 24420 2,.,,30 24440 24450 24460 2,.,,70 24480 2""90 24500 24510 24520 24530 24540 24550 24560 24570 lOOE6 lOOE7 lOOE8 lODE9 lODE 12 lOIJE14 lODEI5. lOOEI7 lOOESS lOSSA8 lO12S lCll lCTRT. ZOJ lOCAll FCllP TFM 8TM TFM 8TM TFM BTM TFM 8TM TFM 8TM TFM 8TM TFM 8TM TFM 8TM TFM 8TM TFM BTM TFM 8TM BTM 8 TFM BTM SM 8 TFM BTM BTM CM BE CII BNE AM FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON FMON+35 FMON RMNS FCllP FMON+]5 FIION VERSION 2 PAGE 10122 10lH 10146 10158 10170 10182 10194 EOJP FMON.35 FMON RMNS LV ,8lK] ,CCCAlL , Sl ,136 ,8 ,SU8F ,135 ,8 ,SUBP ,6 ,AOCOW ,136 ,10 ,10 11 10290 16 10434 10446 -+36 LV Felli AOCOW RUO LV 10206 10218 10230 10242 10254 10266 10278 10302 1031" 10326 10338 -10350 10362 10374 10386 10398 10410 10422 ADCDW 10458 24620 RTNAME FCTlG SU8PSW FCllG FTSW SRFCT Sl,N40012 24630 24640 24650 24660 TO roM 8TM OSA ,FXORFl RFLAG ,-I RSW PUTX , -+16 S,BLANK,8LANK 24580 PHASE 2-B 10110 ,BLK2 ,FCTRT ,5 TF CM BNE TF 87 TOM B7 TOM 8TM OSA 24590 24600 Felli 24610 FORTRAN 11-0 ,BLK2 ,COOE6 ,BLK2 ,tOOET ,BlKI ,COOE8 . ,BLK2 ,COOE9 ,8LKI ,CODE12 ,BLK3 ,CODEl4 ,BLKI ,tOOEl5 ,BLK2 ,COOEI7 ,8LKI ,COOESS ,BLKI ,COSSAR ,8LKI ,C0128 ,LV ,8 10470 10482 10'094 10506 10518 10530 105U 10554 10562 10574 10582 10594 10610 ,SU8F -+32 ,SL ,I ,I ,11 ,-+16 10610 10615 10616 10628 10640 106.56 10656 10661 44S 16 17 16 17 16 17 17 16 17 17 49 16 11 12 49 16 17 17 14 "6 14 47 11 26 14 "7 26 49 15 49 15 17 25 15 11 0235~ 02324 02359 02324 0235~ 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 02359 02324 04990 10"34 02359 02324 05969 12008 02359 02324 04990 09239 10494 09239 10582 05969 092"6 09239 10562 0921C 107"8 0"408 IOH8 04378 03824 5 -8812 J0074 -8812 J0098 -8788 JOl22 -8812 JOl46 -8788 J0170 -8836 J0194 -8788 J0218 -8812 J0242 -8788 J0266 -8788 J0290 -8788 JOll4 -9239 00000 -8812 J0362 000-5 COOOO -8836 J0410 -9282 0-136 01200 0-135 01200 COO-6 05969 0-136 01200 09282 00001 OOOOJ J0610 x 2 -9282 -3437 04358 04162 08997 OOOOJ 06030 J0656 5 X 3 -5974 -9026 64 1620 ~ONI TOR II VERSION 2 TF SXF ,AOCQW 24680 SM SXF .10 24690 TFM ADTEMP .4 24100 TF ADTEMP-l • SL 24710 TF ADTE~P .ADeON 24720 .5(1) BXM -+12 24130 B7 FeTlGI 24740 FCTlG BTM RMNS .Sl 24750 FCTlG 1 TF Tl .ADCON 24160 TFM RV .0 24770 TF LV .AOeON 24780 SM LV .1 24190 CM SL .132 24800 BE FCT lC 24810 FCTlA BTM RMNS .SI 24820 BTM RMNS .SR 24830 8NF FCTl2 .FTSk 24840 ARITHMETIC STATEMENT FUNCTION 24850 TDM SARGSW .0 24860 TF SX .lV 24810 FCTlH TDM SSI .1 24880 BTM PUTX ,*.16 24890 DSA AM.lV.FIVE FOR TRAN II-D PMASe 2-B PAGE 10666 10668 26 10680 12 10692 16 ID104 26 10116 26 10128 62 107U 49 10148 17 10160 ·26 10112 16 10784 26 10796 12 10808 14 10820 46 10832 11 10844 17 10856 44 2~610 TDM BD B7 TFM TF AM BTM DSA 2HOO 24910 24920 24930 24940 24950 24960 24970 24980 24990 25000 25010 25020 TF AM TFM BTM OSA 25030 25040 25050 TDM 8TM DSA SS4 *.20 Fe1l3 SS2 SUBCOW SUBeOW PUTX TF.SUBeOW,LV .10 .6 .9 .10 .8 .SC 10868 10880 10892 10904 10920 10920 10925 10930 10932 10944 10956 10964 10916 10988 11000 11016 .10 .10 , •• 16 StOw BCOM SS2 .ADeow .36 .11 purx ,.+16 BNF. BCOM. SUBCOW 65 05969 OOOJO -OOO~ 107~C 09282 C5969 0---5 10160 04990 06014 09251 09239 09239 09282 11418 04990 04990 11558 -9282 05969 CO-OO 05969 000-1 0-132 C1200 -9282 -2372 C4378 IN MUN LINE .1 .FCTSW .11 .AOeDW .35 -9026 09251 09251 09277 09276 0927P 11016 11021 11026 11028 11040 11052 11064 11080 .IC .10 110BO 110B5 11090 11092 11104 11120 SSI .1 PUTX ,*+16 CF.SUBCOW,8LANK 15 26 15 17 15 43 49 16 26 11 11 26 11 16 17 15 17 13366 00000 09239 06633 COOOI 0603C J0920 5 X 3 02377 -9009 -9239 -n05 06636 COOOI 10964 02293 11204 06634 OOOJI 13371 05969 13371 COOL5 06030 JlO16 5 X 3 -9007 J3371 -9219 13376 05969 13316 COOL6 06634 OOOJI 06030 JIOBO 5 X 3 -9311 J3376 J3371 06633 COOOI C6030 J1120 5 X 3 -9005 J3371 -9026 11120 11125 11130 449 1620 MONITOR II 25060 25070 25080 TFM 8TM DSA 25090 25100 25110 25120 FCll3 25130 251~0 8NF 87 TF TFM 8TM DSA e+20 FeTlJ SX SS2 SRFCT Sl.N40012 25150 25160 25170 25180 25190 TF AM TFM BTM DSA JOE JOE SS2 PUTX MA,JOE.SX 252CO 25210 25220 25230 25HO 25250 25260 25210 252BO 25290 25300 25310 25320 25330 25340 25350 25360 25370 25380 25390 TFM BTM CSA FCTlF FeTlB FCllK FCllC FCTlD eM BE AM B7 BD TF" B7 TFM TOM BTM DSA BD CM BE TDM 8TM DSA VERSION SS4 .1101 PUTX ,*.16 TF, SUBCOW. SUBCOk SS2 PUTX FORTRAN 11-0 PMAse 2-B PAGE .8 11132 11144 11160 11160 11165 11170 11172 11184 11192 11204 11216 11232 ,SARGSW ,SUBCOW .11 ,.+16 ,ACCOW .23 .11 ,·.16 ,11 ,.+16 ,10 11232 11237 11238 11250 11262 11274 11290 .10 .10 11290 11295 11300 11302 11314 11330 .10 TFL.N~0012,SX SR FCTlB RV FCTLA FCllC SR FCTlD SR S51 PUTX ,104 ,8 .5 ,10 ,RV .2 .10 11330 11335 11340 11342 .RIGHT PAREN 1135~ .1 .1 ,-+16 11366 11378 11386 11398 11410 11418 11430 .10 11~42 11~58 AM,LV,SR EXIT LOXRAD CLEAR SSl PUTX 11458 11463 11468 11470 11482 11494 11506 11518 11534 .FTSW .0 .. ,*+16 JR, LOXRAD. XRADO 11534 11539 45u 16 17 44 ~9 26 16 17 26 11 16 17 16 17 14 46 11 49 43 16 49 16 15 17 4] 14 46 15 17 06636 CJI01 C6030 J1160 5 X 3 -9007 J3371 J3371 11192 11160 02317 13366 13371 0663~ COOJI 03824 J 1232 5 X 2 -9282 -3437 11557 C5969 11551 000K3 06634 COOJI 0603C J1290 3 5 X -9017 J1557 -2377 06634 OOOJI 0603C Jl330 5 X 3 -9021 -3437 -2377 02372 0-10~ 11386 01200 09251 COO-5 10832 11418 09251 02372 000-2 11430 02372 000-1 06633 00001 06030 J1458 5 x 3 -9009 -9239 -2372 02928 04378 02394 -0000 02640 01200 06633 COOOI 06030 J153~ 5 x 3 -9019 -2394 66 1620 ~ONITOR 25400 25410 JOE 25420 FCTl2 25430 B7 OS BTM OS. CLEAR 5 SRFC T SL,N40011 25440 25450 25460 25470 25460 25490 25500 25510 25520 25530 eM 8NE TOM 87 TFM TF AM SM 8TM OSA SR 25540 25550 25560 TOM 8TM OSA 25570 25580 25590 FCllJ 25600 25610 25620 25630 25HO 25650 2566C 25670 TOM B7 TFM 8TM OSA 60 TOM TF SM BTH OSA TFM TF AM 8TH OSA 25680 25690 25100 25710 25720 II VERS lUN 2 FOR TRAN II-O PHASE 2-B PAGE 115H 11546 11557 11558 11514 ,*.16 "04 ,8 11514 11519 11580 11592 11604 11616 11624 11636 11648 11660 11612 11688 ,R IGHT PAREN _+32 SARGSW ,I FeTiH SS2 ,11 N40012 ,.CCOW N40012 ,90 1'140011 ,4 PUTX , *.16 TFM, 1'140012 ,1'140011 ,11 ,10 ,10 ,[0 AM,N4001Z,FOUR 11686 11693 11698 11700 11112 11728 SARGSW ,0 FCTlH SS2 ,11 PUTX ,*" 16 TF, 1'140011, sueCOh 11728 11133 11738 11740 11752 11760 11772 11188 SSI PUT X ,I ,."16 FellK ,SARGSW ,I SSI N4001l ,AceOh N40011 ,6 PUTX t *+16 AM,N40011,ONE2 SS4 ,1101 N40012 ,LV ,13 1'140012 PUTX .-+16 BNR ,N~0012 ,N400 11 ,11 ,10 11788 11793 11198 11800 11812 11824 11836 11848 11864 ,10 11864 11869 11874 11816 11886 11900 11912 11928 ,8 ,10 67 -2389 49 0264C 11 5 03824 JI574 5 X 2 -n82 14 H 15 49 16 26 11 12 11 15 17 15 49 16 17 43 15 26 12 17 16 26 11 17 -3432 02312 0-104 11624 01200 13366 OOOOJ 10892 06634 COOJI 03437 05969 03431 OOORO 03432 000-4 06030 JI688 5 X 3 -9001 -]437 -3432 06633 00001 06030 JI728 5 X 3 -9009 -3437 J3382 13366 0000- 106n 06634 OOOJ 1 0603C J 1788 5 X 3 -9007 -3432 J3371 11398 13366 06633 COOOI 03432 05969 000-6 03432 06030 Jl864 5 X 3 -9009 -3432 JU80 06636 CJ101 03437 09239 03437 000J3 06030 Jl928 5 X 3 11928 11933 J3378 -3437 11938 -3432 09251 11964 451 1620 MONITOR II 25130 25140 25150 25160 25770 25180 25190 25600 25810 25820 25830 25840 25850 25860 25870 25880 25890 25900 25910 25920 25930 25940 25950 25960 25970 25980 25990 26000 26010 26020 26030 26040 26050 26060 26070 26080 26090 26100 26110 26120 26130 26140 26150 26160 26170 26180 26190 26200 26210 26220 26230 26240 26250 26260 26270 FCllL AM BXM 8TM CM 8NE Bl VERSION 2 RV ,5 _+12 ,5171 RMNS ,SR SR ,10lt FellL Fell8 ENO OF J08 ROUTINE EOJP CM BAL ,0 8NH -+36 EOJJ AM NEXT ,I TO NEXT ,FLGRM CM PREBUF .8UF4 8E EOJG AM PRE8UF ,75 TF NEXT ,PRE8UF AM NEXT ,to TFM NEXT ,0 81 EOJJ EOJG TF CLL8U ,GT8LK8 TFM LNG ,67 TO 8UF4+75 ,PUTPCH+ll TFM 10RT ,·.23 IOPT 8 ,PUTXX AM PUTXl ,3 TFM PRE8UF ,8UFI eM LNG ,67 8NE EOJW+24 TFM IORT ,-+23 10GT ,eAL8LK B AM ,3 eLL8LK EOJWG AM PRE8UF ,4 A PRE8UF ,Aoeow AM PREBUF ,3 TF LNG ,PRE8UF AM PRE8UF ,68 CM PRE8UF ,eUF4+75 8E EOJG.+24 EOJW CM LNG ,67 8E EOJWG AM PRE8UF ,14 TF PRE8UF ,SIX9l TFM 10RT , •• 23 8 10PT ,PlJTXX 80 EOJSTN ,PUSTSN EOJENO AM AOCOW 01 TF LENGTH t ACCQW TR FCTSW ,GR8AGE TF seNT ,lOCOM MM LOCO~ ,5 80 -+20 ,99 87 -+20 SM LDeOM ,I TFM IORT , *+23 8 10PT ,SECTO TO -+21 ,JAY FORTRAN 11-0 PHASE 2-8 PAGE ,10 119~0 ,8 11952 11964 11976 11988 12000 11 62 17 14 41 49 12008 12020 12032 12044 12056 12068 12080 12092 41 11 25 14 46 11 26 ,R IGHT PAREN ,10 '[0 ,6 ,10 ,10 ,67 ,10 ,7 ,10 '[0 ,1 ,10 ,10 ,6 '[0 ,11 ,10 1210~ 11 12116 12128 12136 12148 12160 12172 12184 12196 12208 12220 12232 12244 12256 12266 12280 12292 16 49 26 16 25 16 49 11 16 1230~ 12316 12328 12340 12352 12364 12316 12388 12400 12412 12424 lH36 124108 12460 12412 12484 12496 12508 12520 12528 12540 12552 12564 ,10 ,10 ,6 ,7 ,10 '[0 ,10 ,7 452 14 14 47 16 49 11 11 21 11 26 11 14 46 14 46 11 26 16 49 43 11 26 31 26 13 43 49 12 16 49 25 04~9C 02372 11940 11386 07696 12056 07706 C7700 08015 12136 08015 07706 07706 0770e 12032 13356 09327 080lC 00565 00532 01665 08015 09327 12388 00565 00566 13356 08015 0801N 08015 09321 08015 08015 12160 09327 12280 08015 0801~ 00565 00532 12172 0596~ 02248 02293 09361 02262 12528 12540 02262 00565 00532 12585 COO-5 C---5 -2372 C-I04 0120C 000-0 olloe COO-I 07674 -7935 01200 COOPS 08015 00C-4 -0000 04931 00007 07269 J2195 -7652 CCO-3 -7710 00007 01200 J2267 J3343 000-3 000-4 05969 000-3 080lN OOOOB -8010 01200 00007 01200 COOP4 13222 J2435 -7652 02294 000-1 05969 13294 02262 COO-5 C0099 COO-l J2563 J3320 02367 68 1620 CM BE BO CF TO RClY WNlY WAn 26]60 RClY 26310 WNTY 26380 WAn 26390 RelY 26400 WAn 26410 BY 26420 Bl 26430 ARNOT TOM 26HO Bl 26450 EOJSTN TO 26460 CM 26410 BNE 26480 TFM 26490 Bl 26500 EOTONY TFM 26510 TR 26520 EOPETE AM 26530 8NF 26540 TOM 26550 TF 26560 CF 26570 TOM 26580 TF 26590 CF 26600 BD 26610 TOM 26620 OC 26280 26290 26300 26310 26320 26330 LHl 26340 26350 26621 26630 EOJRIT 26640 26650 26660 26610 26680 26690 EOROD 26100 26710 COPCH 26120 26730 26140 USEDCR 26750 LCOMAD 26160 CSW 26110 TSW 26180 NINERM ~ONI "9 ARNOT ARNDT 457 SYSCAL roR II VERSION 2 FORTRAN 11-0 PHASE 2-B PAGE ,810 ,4 12516 12588 12600 12612 12624 12636 12MB 12660 12612 12684 12696 12708 12120 12732 12144 12752 12164 12112 12184 12196 1280B 12B20 12828 ,ERSWT ,JAY AOCOW-4 USEOCR SCNT-4 LeOMAO ENOMES -+12 MONCAL SYSCAL lHI •• 21 "9 EOlONY TSW EOPETE TSW INPUT+I0 FCTENO EOROO FCTENO INPUT+9 I NPUT+6 FCTENQ INPUH4 INPUT COPCH INPUT+10 ,2 ,PUSlSN ,2 ,810 ,I ,10 ,10 ,SVTYNB ,5 ,FCTEND ,8 ,FCTENO ,10 ,4 ,FCTENO 12840 ,10 ,11 ,11 ,11 ,CSW 1,' ,. ,--I TO 1 NPUT+5 WNPT INPUT WNPT INPUT+6 SM FCTEND ,10 FCTENO , TBASE C 8NL EOPETE 81 EOJENO SM FCTEND ,15 Bl EOJRIT+36 TO INPUT+5 , SVTYNB WNCO INPUT 81 EOJRIT+24 OAC 8, LENGTH' LENGTH' OAC 13, NEXT COMMON' NEXT COMMON' OS 1 OS I DC 6,99999' R9999' ,10 33 25 34 38 39 34 38 39 34 39 46 49 15 49 25 05965 00196 41 16 49 16 31 02318 H 15 26 13052 02318 12900 33 09396 12912 12924 12936 12948 12960 12971 15 26 02318 09394 33 0939C 43 15 13012 09400 12912 12984 12996 13008 13020 25 38 3B 12 24 46 49 12 49 25 38 49 09395 13012 13084 13096 13105 13121 00100 00100 00102 00100 01400 lH21 OOOOC 13385 12144 11 13052 13064 00100 00102 13105 00000 09357 00415 12636 12193 12193 12828 13147 12852 13141 09400 H 69 0-0-4 01200 09351 OOOcO 02361 00102 00100 12585 12152 12752 00457 00415 00000 12852 12864 12816 12888 13032 13044 ,10 14 46 43 COO02 02294 0-0-2 01200 000-1 OOOJO 13223 000-5 0231Q 00008 09399 C231Q COOOO 00004 C231Q COOOO 13146 CCOOO 1 12911 00200 C0200 OOOJO 02303 01300 09390 09396 02318 02318 12852 12448 02318 13020 09395 COOJ5 13223 00400 13008 8 X 09390 13 13146 13141 13153 453 1620 MON ITOR II VERSION 2 FORTRAN 11-0 PHASE 2-8 PAGE 26190 OSC 50,0 00000000000000000000000000000000000000000000000000 26800 OSC 18,0 000000000000000000 26810 SIX91 OSC I,D 0 26820 SVTYNB DNS 1 26830 DNB 50 26840 ONB 19 26850 DC 1,' 13154 50 13204 18 13222 13223 13213 13292 13293 26860 GRBAGE OS .-+1 26810 DC 6,-0002 -OOOOK 26880 OC 19,1701234561891234561 Jl01234561891234561 26~890 OGM 26900 SECTO OSC 2,0 00 26910 OSA SECTY 13326 133~6 13327 1 50 19 1 13294 13299 13318 19 13319 1 2 13320 26920 DC 26930 SECTY OSC 0 1,0 13328 26940 DC 5,0 13333 13336 1,' -0000 5 X J3328 1 26950 DC 3,1 26960 -01 OSA HEADER 13341 1,' 13341 13342 -2218 1 2,2 13343 2 CALLBK 13349 1,' 13349 13350 26910 DC 26980 CALBU OSC 02 26990 OSA 21000 , DC 21010 CAllBK DSC hO 0 21020 CllBLK DC 5,0 -0000 27030 3,3 DC -03 21040 DSA SUfi 21050 DC 5 X 5 X J3351 1 13351 13356 13359 13364 13364 13365 1,' 21060 SARGS. OS 13366 13311 13376 21070 SUBCO~ OS 21080 SCOW OS 45 I; 5 X -1110 1 10 1620 27090 aNR 27100 27110 27120 27130 21140 21150 21160 27170 211BO TOR II VERS ION 2 FORTRAN 11-0 PAGE PHASE 2-B DC M5 CNE2 2,1 DC -I FOUR DC 2,4 -4 ENDM ES DAC 19, END OF COMPILATION' END OF COMPILATION' oORG 16002 XBLK4 14,0180410411 OOOC OSC 018V4104110000 xvvx TO SEC TO-I,GM XBLK4,701 34 38 XBLK4,702 TRA TCo 27190 27200 27210 27220 27230 27240 27250 27260 27270 27280 27290 27300 27310 27320 27330 ~CNI 2,45 13380 13382 XUBCoS XUBCAB 16002 16002 16016 16028 16040 16052 16064 16016 XVVX KUSC12 XUB12B SCABP 27340 273S0 27360 CDAB2 27370 27380 27390 27400 CDA8. 27410 TDM TO Bo TF 87 TF BTM oSA 27420 CF M 27430 27440 MA 214S0 CDSA61 BO 27460 BNF 21470 BNF BTM 2H80 21490 COSAB7 BNF 27500 TOM FMON+35 FMON BGNST-4171 SCABP FMON+3S FMON FMON+35 FMON SX SRFCT SX, SX ,-+16 ,K CANDS D4,SY ,a+16 04 04 04 COSAB7 COSA8X COSAB 7+ 12 GNRP CDSABX S51 14102 14114 14126 14138 14150 14162 14174 14186 14198 14210 14226 ,BLK7 ,SU8C 12 ,8LKa ,SUB12B ,BGNST-5(71 L 13319 16002 16002 oooce CCCOC 02432 00701 00702 CCSOO CODOC 14100 ,elK5 .I ,FlCORFL 14 25 34 3B 36 49 14101 ,SUBCOS ,BGNST+ll(71 SKIPSW RXFlAG -+32 L CDU. 19 X 13385 oORG 14100 TERTIARY LINKAGE BLOCK 6 2,6 DC -6 TFM BTM TR B TFM 8TM TFM BTM TF BTM oSA 11 13378 14226 14231 14232 14244 14256 14268 14280 14288 14300 14316 ,FXORFL ,fP2 14316 14321 14322 143H 14346 14356 14370 14382 14394 14406 14418 ,L ,99 ,lei ,FPSW ,FSW , •• 12 ,FPS. ,I 16 17 31 49 16 17 16 17 26 17 IS 25 43 26 49 26 17 33 23 70 H 44 44 17 44 15 02359 -BB84 02324 J4102 10-Jo INRR5 14198 COOOO -8932 02359 J4150 02324 02359 -8956 02324 J4174 02377 INRR4 03824 J4226 5 X 2 -2377 -2377 09349 ceOOI 04368 C4162 14288 C4162 02298 06017 14300 06017 C2252 0810C J4316 S X 2 -6009 -2384 06009 06009 060C9 14406 14766 14418 05022 14766 06633 00000 06017 C0099 06987 09347 08986 J4406 C9347 00001 455 1620 MONITOR [( 27510 27520 27530 27540 TF AM BTM OSA 275S0 B7 27560 COSAB5 TO 27570 TF 27580 BTM 27S90 COSAB4 TFM 27600 CDSAB3 BXM 27610 CM 27620 BE 27630 BTM 27640 DSA 27650 8NF 27660 TOM 27670 TR 27680 TDM 27690 B7 27700 CaSAB8 TFM 27110 BTM 27120 OSA 27730 27140 27150 27160 27110 27780 27790 27800 27810 27820 27830 27840 27850 27860 27870 2788C 27890 27900 27910 27920 27930 27940 BO TF BO TF TFM 87 COSA8X A BO BXM TF TF TOM TFM B7 CoSABI TOM 67 FPCL TF TFM B7 COABU TOM ro BTM VERSION N40005 ,AOCOW N4Q005 ,35 ,.+16 PUT X TFM ,N4000S,04 CDSAB8 FX N40005 OPSR OPX FPCL D4 COSAB5 N40005 OPX COSAB3 04 CDSA82 e+12 XR5 TCOW GTSRSW GNRP-I GYES-Z4 SS2 COSAB5 N40005 OPX COSAB3 RSW RHAG PUTX PHASE 2-B PAGE 14430 14H2 14454 14470 ,10 14470 14475 144BO 14482 14490 14S02 14514 14526 14538 14550 14562 14574 14590 ,RXFLAG ,IONO ,N4000S ,17 e+12 ,-5171 BGNST+5111 .133 CCA8U PUTX , e+16 OPX,N40005,04 COABP SKIPS. BGNST-4171 101 COHA SS2 PUTX AOO.N40005.SX FORTRAN 11-0 ,10 ,9 14590 14595 14600 14602 14614 14626 14638 14650 14658 14670 14686 ,101 ,0 ,BGNST+ 1171 ,0 ,II ,10 ,·.16 ,CALlS',BlANK ,101 ,FACAO ,6 14686 14691 14696 14698 14110 14722 14734 14746 147S8 14766 14178 14790 14802 14814 14826 14838 14850 14858 14870 14878 14890 14902 14910 14922 14934 ,10 ,SX ,ICI ,-S(1) .XR7 ,C4 .I ,II ,CDABXT ,I ,FACAO ,16 ,10 .I ,Il ,RXFLAG , ·+16 456 26 11 17 49 25 26 17 16 62 14 46 17 44 IS 31 15 49 16 17 43 26 43 26 16 49 21 43 62 26 26 15 16 49 15 49 26 16 49 15 25 17 QS969 03402 03402 OOULS 06030 J4470 5 X 3 -9001 -3402 -6009 14658 03S62 04368 03402 10649 03488 -3402 0393C COOJ7 14550 O---N 10--4 OOJ33 1491C 01200 C603C J459C S X 3 -393C -3402 -6009 14994 08987 C9349 COOOO INRRS 10--0 08987 00000 11202 06634 OGOJI J4686 06030 S X 3 -9063 -]402 -2377 14878 060CS 14490 03402 03930 14538 0600S 148S8 14802 003H OS961 06023 05021 OS082 06634 14490 0)402 0393C 14S38 OB997 04358 06030 C8992 C9026 08987 03797 000-6 02377 08987 O---N 00339 C60a9 COOOJ J5086 COOOI 03797 000J6 OOOOJ 04368 J4950 72 1620 MONITOR II OSA 27950 27960 27970 21980 27990 28000 28010 28020 28030 28040 28050 28060 28010 28080 28090 28100 28110 28120 28130 28140 VERSION 2 FORTRAN 11-0 TF 8TM 87 TF TOM TO 8NF 80 87 8TM SF 14950 14955 1't960 14962 14974 14986 14994 15006 15018 150]0 15042 15054 15062 15014 15086 15098 15106 15118 15130 15142 16002 16002 ,11 TCO 28190 28200 28210 OORG 14100 TERTIARY LINKAGE BLOCK 2,1 DC -1 ,8LK5 TFM fMON+l5 BTM FMON ,SUBCOS TFM FMON.]5 ,BlK6 BTM fMON ,SU8CAB Tf U5 .XR7 COLlP 8 ,UK8 TFM fMON.]5 ,SUB128 BTM FMON OUTPUT INITIALIZING INSTRUCTION fOR 00 COOING AND PLACE [NOICIES ON 00 LIST ,5(51 BXM "12 ,101 80 C012C Tf TZ ,8GNS"51 Sf TZ-3 ,21 ,10 AM OOREF ,GeASE C OOREF 8NH COllE ,OFLMS BlM ERRT .+12 8Y B7 MONCAL OAC 14,00 TABLE FULL' DO TABLE FULL' YU8CAB YUBCI2 YU812B ...... C012P C012C OFLMS XUUX 26 11 49 26 15 25 44 4] 49 11 ]2 15 49 25 l5 26 49 -9001 -3797 -6009 lNRR9 05022 15086 INRR9 08986 OH28 15086 15062 15086 05022 0--00 09349 02928 0--01 0--04 O--OC 05542 C9203 J4986 0920] COOOJ C4368 09341 C8992 J50H 00000 COOOO 04368 COOOI C5961 14 ]8 36 49 16002 16002 OOOOC OOOOC C0101 00702 CC500 COOOO IItl02 14114 14126 14138 14150 14162 Ilt171t llt186 16 17 16 17 26 49 16 17 C2359 02324 02]59 02324 00]29 14198 02]59 02]24 -8884 JIoI02 -890B J4126 00339 COOOO -8956 J4174 l1tl98 14210 llt222 14234 14246 14258 14270 14282 14294 14306 14315 62 43 26 1421C 14246 09267 09264 03591 03597 143"2 087]6 14306 00796 14 C-0-5 08987 lN9R9 COOOO OOOKI 09324 0110e Jlt315 01400 16016 16028 16040 16052 16016 28180 YUBCOS 73 14950 ,FAC 8GNSTl71 ,.+12 GNRP COA8H ,FAC COABP 8GNSTl71 fSW .I ,RXFLAG FLAGSW COABH ,FPSW e+20 ,CALLS~ COA8XT GNRP ,·+12 0161 ,0 COA8XT TOM SKIPSW B7 EXIT GlFlN TO 1161 ,RXfUG ,I TOM 4161 ,TCOW Tf 0161 87 GTJW OORG 16002 X8LK6 OSC 14 ,01808201914100 01808201914100 ]4 28150 XUUX XBLK6,701 X8LK6,702 28160 38 28110 TRA 28220 28230 28240 28250 2B260 28210 28280 28290 28300 28310 28320 28]]0 28340 28350 28360 28310 28380 28390 28400 28410 28420 PAGE PHASE 2-8 TFM,FACAO,04 34 1'\100 lltl01 32 11 H 47 17 46 49 457 1620 MON ITOR " VERSION 2 FORTRAN 11-0 PHASE 2-8 PAGE 28430 C012E 28440 28450 28460 28410 28480 28490 28500 28510 28520 28530 28540 28550 28560 TF AM TF 8XM TF SF BlX TF eXM TF TFM TOM BTM OSA 9141 e+12 SR SS2 SKIPSW SRFCT SL 28510 OSA N40001 28580 28590 8TM OSA SRFCT SR 28600 OSA N40003 28610 28620 8TM OSA PUTX TF 28630 OSA "40001 14546 14551 -9007 5 28640 OSA "40003 14551 14556 -3382 5 X SKIPSw ,0 5141 ,AOCON •• 12 ,10151 N40001 ,8GNS"51 N40001-3 13141 ,N40001 *+12 ,5151 SL ,8GNS"51 Sl, 132,8,SEMI COLON N60084 Sl, 104,8,RIGHT PAREN N60085 17141 ,ZER04 COlltE ,ICI CLEAR .-3 .+12 ,5151 N40003 ,8GNSTl51 N40003 ,120 14556 14558 14510 14582 14594 14606 14618 14630 14642 14654 14666 14678 14690 14702 14714 14726 14134 14734 14746 14758 14770 28650 TOM 28660 TF 28670 8XM 28680 TF 28690 SF 28700 TF 28710 BXM 28120 TF 28130 CM 28740 BE 28750 CM 28160 BNE 28770 N60084 TF 28780 80 28HO C012A 8 28800 OORG 28810 N60085 8XM 28820 TF 28830 CM 28840 8NE OOMAl OOMAl OOREF .+12 Sl SL-3 .+12 ,DOREF ,21 ,n 14342 14354 14]66 14378 14390 14402 14414 14426 14438 14450 14462 14474 14486 14502 ,10 ,6 ,5151 ,BGNS"51 ,DOREFI41 ,SL ,10151 ,BGNSTl51 ,11 ,10 .I •• .. 16 26 11 26 62 26 32 65 26 62 26 16 15 17 14502 14507 14507 14508 14524 , •• 16 14529 14530 14546 ,9 .+48 456 0927~ 14426 0-009 14450 02372 06634 09349 03824 5 03597 COOKI 09267 0-0-5 IN9R9 COOOO OL597 09282 O-OJO lN9R9 aOOJI 00001 J4502 X I -9282 5 17 14524 14529 ,*+16 0]627 03627 0359P l1t390 09282 -3382 03824 J4524 5 X 1 -2372 5 11 -3392 06030 J4546 5 X 1 15 26 62 26 ]2 26 62 26 14 46 14 47 26 43 49 -3392 09349 0-005 14591t 03382 03379 0-013 14642 09282 09282 14102 09282 14734 0-017 11988 02640 00000 05969 O-OJO IN9R9 COOOO 03382 0-0-5 lN9R9 0-132 01200 0-104 01200 09025 C8981 00000 62 26 14 47 llt746 03392 03392 110818 C-0-5 IN9R9 00J20 01200 74 1620 MONITOR II 28850 28860 28870 28880 28890 289CO 28910 28920 28930 X~LK7 28940 x ITX 28950 28960 VERSION 2 FORTRAN II-D PHASE 2-8 H182 14194 14806 14818 14830 14842 14850 16002 16002 16016 16028 16040 16052 16016 28910 TCO 28980 28990 29000 OORe 14100 TERTIARY LINKAGE 8LOCK DC 2,8 -8 TFM FMON+35 ,BlK5 8TM FMON , SU8DDS TFM FMON+35 ,8L1(6 8TM FMON ,SU8CAB TFM FMON+35 ,Bun 8TM FMON ,SU8CI2 C0128P+24 80 ,10 L 8 CoU8P THE FOLLOWING OUTPUTS THE TEST AT THE END OF A DO LOOP ,n TF T2 TOM oOSW ,0 TF oOTEMP .DOREF TOM CKSW 01 TOM SKIPSW 01 C T2 ,OOREf ,11 SNE C012X 8LX -+12 ,DCREF 14) ,11(4) TF SL MF FG61T , SL CM 5L ,8 ,.-4 OS TOM SKIP5W ,1 TFM N~0005 ,1100 8E N60092 8NF C012AA ,FGB IT TFM OPl ,22 ,10 TFM OPW ,46 ,10 TFM N40005 ,1300 81 C01288 TFM OPZ ,21 ,10 TFM OPW ,~7 ,10 8TM SRFCT ,-.16 OSA 5L 29010 29020 29030 29040 29050 29060 29010 29080 29090 29100 29110 29120 29130 29140 29150 29160 29110 29180 29190 29200 29210 29220 29230 29240 29250 29260 29210 29280 29290 29300 29310 29320 29330 lU6COS lU8CA6 lU8C12 lue126 C0128P C012Y C0120 FGB IT C012AA C01266 29]40 PAGE TR 8GNST-4(5) ,8GNST+lIS) TF N40003 ,6GNSTI51 SF N40003 SF N40003-3 11(4) TF ,fIo40003 8 C012A-12 eORG ·-3 eORG 16002 esc 14,01810101 q 14100 01810101914100 X6LK1,101 34 38 X6LK1,702 TRA OSA XTTX H 26 32 32 26 49 lN9R5 03392 03392 03389 0-011 14114 34 38 36 49 16002 16002 00000 00000 e010l e0702 00500 00000 16 17 16 02359 02324 02359 02324 02359 02324 14222 14198 -8884 J4102 -8908 J4126 -8932 J4150 08987 00000 15 100-0 lN9R9 COoOO 00000 03392 00000 14 14100 14101 Hl02 H114 14126 14138 14150 14162 14114 14186 14198 14210 14222 14234 14246 14258 14210 14282 14294 14306 14318 14325 14330 H342 14]54 14366 14318 14390 14402 14414 14422 14434 14446 14462 17 16 17 43 49 26 15 26 15 15 24 41 65 26 71 14 15 16 46 44 16 16 16 49 16 16 17 14462 14467 N40001 09267 09343 08993 00000 14947 03597 04438 00001 09349 00001 09267 0359P 14488 01200 14294 OL591 09282 0-017 14325 09282 0-000 09282 0 09349 00001 03402 -1100 14568 C1200 14422 14325 09346 000K2 14922 000M6 03402 -1300 14446 09346 OOOK 1 14922 COOM7 03824 J4462 5 X 1 -9282 5 X 459 1620 MONITOR II VERS ION 2 FORTRAN 11-0 PHASE 2-8 PAGE 14461 H468 14480 14488 14488 29350 29360 29310 29380 C012X 29390 29400 29410 29420 29430 29440 29450 29460 N60092 29470 29480 29490 N60095 29500 29510 TOM B OORG TOM 6TM TOM SM CM 8L B OORG TFM TFM TFM TF 8TM OSA OPI OPW N40001 5L SRFCT 5L 29520 OSA N40004 14637 29530 29540 29550 TOM BTM OSA SSI ,1 PUTX ,*+16 OPI,N40004,N40001 14631 14638 14650 14666 14666 14671 14676 14618 14690 14706 SS2 N60095 ·-3 CKSW ERRT ERSWT oOREF OOREF EXITA C012Y ,1 ,0 , DOMES .1 ,21 ,OO8ASE 1~500 14512 14524 14536 14548 14560 14568 14568 14580 14592 14604 14616 14632 ,10 0-] .11 ,47 ,1 ,10 .10 ,10 ,9(4) ,*+16 15 49 -]382 06634 14604 00001 OOCCO 15 17 15 12 14 47 49 044]8 08736 09351 03597 03597 14912 14258 00001 COOKI -]657 01300 CCOOO 16 16 16 26 C9346 14922 03382 09282 03624 5 COOJI 000M7 000-1 C-009 J4632 x 1 17 11,632 29560 29510 29580 TF BTM OSA SL SRFCT SL 29590 oSA N40001 29600 29610 29620 TFM 8TM oSA SS2 ,11 PUTX ,*+ 16 C, N40004,N40001 29630 29640 29650 29660 29610 29680 29690 TF TOM 6TM OSA SM C 6E ,13(4) ,-.16 lHll 14712 14124 14140 14140 14745 14150 14152 14164 14716 14792 N40004 ,514 ) S51 ,1 PUTX • -+16 OPW,N40004,N400C5 OOREF OOREF N601C7 ,21 ,oe6ASE 14792 14197 14802 14804 14816 14828 ,10 ljull -9099 -9282 5 x 15 17 26 17 -3391 06633 ceOOI 06030 J4666 5 X 3 -9346 -3397 -3382 09282 0-013 03824 J4706 5 X 1 -9282 5 X 1"706 14711 ,10 coooc 16 11 26 15 11 12 24 46 -3382 06634 0603e 5 OOOJI J4740 3 x -9291 -3391 -3382 03397 0-005 06633 ecoo 1 06030 J4792 5 X 3 J4922 -3397 -3402 03597 03597 14888 COOK 1 03657 o 12eo 76 1620 MONITOR 11 VERS ION TF N40003 , CCREF AM N40003 ,21 C OOREF ,N4OOO3 BE COl2D N6Clei BO •• 24 .CI 09350 15796 12611 03651 14947 13385 121t48 12984 12172 12852 12828 12420 10160 0231a 14198 02399 04428 03702 04274 05414 09143 04162 03697 05782 04918 13294 N00565 NOO116 NOO196 NO 1100 N01200 N01300 N01495 N13062 NI3063 N13089 ~13092 ~13133 NI41RM N40000 N40001 N40002 ~40003 N40004 N40005 N,,0006 N,,0007 N40008 N40009 N40010 N40011 N40012 N60007 N60009 N60010 N60013 N60014 N60015 N60D16 N600l1 N60018 N60020 N60021 N60022 N600n N6D026 pHASE 2-8 04926 04931 05808 06023 02218 12063 11153 11111 09262 13121 02248 02394 01694 05450 09013 00796 13122 13121 09356 09287 09307 09300 13117 09198 09193 09034 09040 09047 13139 03311 03382 03187 03392 Oll91 03402 03407 03412 03411 03422 03421 03432 03431 10804 10848 10872 11916 11678 12262 1216~ 12130 12298 12610 12808 12166 12964 13092 PAGE N60027 N60032 N60034 N60035 N60041 N60043 N60044 N60045 N60046 N60048 ~60049 N60012 N60e84 N60085 N60092 ~60095 ~60 101 N60182 NINERM OUT SEQ PARCNT PASSI I PRE8UF PU~TAP PUSTSN PUT 17B PUT11C PUT111 PUT CAD PUTDIF PUTEST PUTINS PUTNXT PUTPCH PUTX12 PUTXI7 RECORO RFLSUB RfXSUB RTNAME RXFlAG AOCOW ADD ADSL AM ANS ARNDT ASTOP ATYPE 8AL 8BOUT BCOW BD 8EGAO BE BGNST 462 IH28 13370 13638 13662 10622 10690 10810 IC810 11026 11 350 11122 126C6 14702 14134 1456B 14604 14888 14260 13153 06994 11891 02400 08015 03662 02294 13894 13846 13758 06686 06854 06186 06206 01154 01258 13052 13008 12626 03101 03112 09210 04368 05969 09063 04946 09009 09212 12752 03792 03141 07696 03480 13316 09309 02257 09302 15999 16 BI SLANK BLKIA SLK I BLK2A SLK2 SLKJA SLK3 SLK4A SLK4 SLK5A SLK5 SLK6A SLK6 SLK7A SLK7 BLK8A SLK8 BL SLX SNF SNH SNR S STM BT BUFI BUF2 BUf3 BUF4 CALL X CANDS COlli C01l7 COl23 COl2A CDI2S COl2C C0120 C012E ca12P COl2X C012Y CDI4A CDI4S C014C CD14E CD14M CCI4P CDI5P COl7A CDl7S COllC COl7D COl7E COl7F 09318 09026 08796 08788 08820 08812 08844 08836 OBB6R OBB60 08B92 08B84 08916 08908 08940 08932 08964 OS956 09295 09015 09311 09289 13378 05974 05972 09053 07110 07785 07860 07935 0438B 08100 11236 13422 11128 14126 10314 14246 14282 14342 14198 14488 14258 11202 11552 11440 11988 12140 10434 13712 12650 1]082 12830 12890 13010 12938 1620 MONI TOR (( CO l1G COllH CO 111 CC11J CO 11K COI1L CDI1H CDl1N COl7P C0222 C03B CD41,4 C0555 C0666 C0941 CD94 C096 COA8P COABU COABW COABl eolGT CDPCH COSIJ COS IN COSIS COSlT CDS IV caSll cassp eaxIT eET Cf CGCOW CKCOW CKFMT CKSW CLEAR CllR CM96 CM97 CM98 CH99 CM CODEO COOEI CO DEl CODH CODE5 CODE6 CODET CODE8 CODE9 CODET CoDOA COMSW 13590 C CSW 01 02 03 04 OFlMS 01 OJ Ok DMSW OOA OOMAX DOMES OOREF OOSW DRAY OX OY EMI H2 EOJG EOJJ EOJP EOJ EOJWG EOJW EOROD ERRT ERSWT ETYPE EXClR EXINO EX ITA EX IT EXJ EXJX EXRT ElSUB ElXR EXZER FACAO FACM2 FAC FBASE FCOoE FCTlI FCTl2 FCT13 FCTlA FCTlB FCTlC FCTlD FCTlE FCTlF FCTlG 13510 13306 13326 13466 13486 13274 13386 12626 11340 11630 117Ft 11434 11466 11648 11600 11412 14994 14910 14300 14256 12715 13072 15654 15626 15282 15028 14834 15526 14198 13152 13446 09005 12068 08983 03048 04438 02640 08714 12576 12556 12396 12420 09293 03]66 10002 10026 10050 02964 10074 10098 10122 10146 07688 12108 03999 VERSION 09291 13146 05979 05989 0.5999 06009 14315 05984 05994 06004 03998 09186 03627 09099 03597 08993 12616 08297 08302 09365 09379 12136 12032 12008 10386 12280 12364 13052 08736 09351 03772 08442 08999 14912 02928 08686 08662 08388 08304 08550 08514 03797 09316 09203 03310 04321 10582 11558 11204 10832 11386 11418 IIHD 12368 11H2 10748 FORTRAN 11-0 FCTlH FCTlJ FCTIK FCTll FCTlP fCTl FCTRT FCTSW FETCH FFRSW FGBIT FINO FIVE FlAO flOVO FlEXP HG2 FlG3 HG4 FlGRM FlMUL FlROV FlSUB FMCN FORCC FORCE FOUR FP2 FPCl FPNXR FPSW FPSWX FREQI FREQ2 F FSW FTSW FTYPE FXAD FXDva FXEXP FXMUl FXRDV FX FlSUB GAODI GBASE GCNT GCow GETSY GEll GFlAG GFREE GI GLNO GM PHASE 2-8 10892 11760 11398 11940 10434 10338 10362 02293 12631 043Q6 14325 12621 09205 03567 03677 03617 06626 066116 06666 076H 03607 03687 03667 02324 04330 04166 13382 02298 14878 15692 09347 09348 12925 1]081 02250 08986 04378 03767 03572 03682 03622 03612 03692 03562 03672 05586 09324 05177 05831 04892 04844 05494 05606 05713 09061 02432 PAGE GNONE GNRP GPUTA GPUT GS81 GTCl GTFIN GT JW GTPT GTSCl GTST GYES HERE2 HERE H HTYPE INPUT INSET 10 I 102 103 lOCAL JOEND IOGT IONOA 10NO 10PT 10RT 10 I !TVPE IX I JAV JGPP JOE JP I J JWG K llJ 11 L2 l3J 13 lOI lOYD lH I lNGAD LNG lOCOH l lSTAD lVP lV HA MAT 051 QO 05022 05HO 05338 11618 05120 15106 05542 05154 05840 05630 05106 063Q8 06350 09013 03182 09390 11094 08987 08988 08989 00716 03802 00566 1259Q 10649 00532 00565 03127 09219 03762 03801 02367 15816 11551 15418 09224 02508 02252 02820 02700 02844 04328 02916 06022 15864 12636 01701 09327 02262 06011 02308 12604 09239 09017 03811 19 ~~ "NS5 MOO MPV N0098 Nl N2 N2THO N6LA N6X N7X N8X NAME NEXT NGFRE NlNG NM22 NOTVP OBASE ONE2 OP OPSR OPT! OPW OPX OPV OPl PI1 PI P27 P2PTR PAR PFPSW PRINT P PUNCH PUT\l PUT! PUT2 pun PUlA PUTCA PUTCS PUTC PUTO PUTGT PUTO PUTRM PUTR PUTTA PUTX2 PUTXA PUTXS punc PUTXC PUTXE 09011 09\68 09M9 0%51 15869 01233 02238 13132 14324 11620 11172 118R4 13151 01706 05650 01681 13134 03256 02<12 13380 02379 03488 03541 14922 03930 12606 09346 04102 09338 04018 02313 03812 03928 03582 09229 03652 13810 OR020 08C2~ 08C30 01522 07498 01462 01402 01486 06313 06814 01606 10108 01134 12956 06090 06114 06266 06362 06410 463 1620 MONITOR II PUTXf PUTXG PUTXH purx} PUTXJ purx PUTXX PUTXY purxz Q QlP RCTY READ REClG REDO REGSW REPI REP2 REP3 REP4 REP RFLAG RMNS RHOO RMSW RSNFl RSNFX RSW RTAD RV RVSN S8ASE SCABP SCNT SEC TO SEeTY SETAD SF S I X9Z SK SLASH SlC SlNG SL SM SPCOM 06446 06914 07078 07238 07114 06030 07652 07660 0766~ 09234 14908 09055 03592 02243 03777 08996 12889 13009 13673 03511 03757 04358 04990 09071 04418 03717 03722 08997 09246 09251 09068 04160 14198 09361 13320 13328 11239 09003 13222 10809 03752 11046 07611 09282 09065 15691 END OF ONE ASSEMBLY. SQlNG SRFCT SRGT SRNX SR SRSV SSI SS2 SS3 SS4 SSll SSLNG SSSW SSXRI SSXR2 ST SUB2 SU83 sue SUBSW SVN9 SWCFX SWFFl SWF SXI7 SXF SX SY17 SY U T2 T3 TBASE TCOW TFl TFM TF TUX TRACE TR TSW TYPE A TYPE TV PET TYPEX TlNR VERSION 07683 03824 03946 03940 02372 03883 06633 06634 06635 06636 06637 07679 08985 08092 08094 09215 03637 036H 09042 08995 08709 03732 03742 03737 12829 09257 02377 13569 02384 06014 09267 09343 02303 05961 09021 09001 09007 05964 03587 09019 13147 08076 03602 01675 08031 09033 FORTUN 11-0 UFS7R WATY W WW XOOX XBLK2 XBLK3 XBLKit X8LK6 XBLK7 X8lK8 XCTl XCTRT XC12B XOOEI XCOE3 XODE4 XODE6 XOOET XOOE8 XODE9 XOJ XR5 XR7 XR97 lR98 XR99 XRAOD lRFll XRS .. XSSX XTTX XTYPE XUUX XVVX XWWX XX I XX2 XX) XXit XX5 XYVX XZlX yeTi VCTRT YD12B PHASE Z-B 02263 09057 02240 02296 16002 16002 16002 16002 16002 16002 16002 10338 10362 10314 10002 10026 10050 10074 10098 10122 10146 10386 00329 00339 08719 08124 08729 023B9 06506 092ltl 16016 16016 03787 16016 16016 16016 15204 14432 14374 14490 14776 16016 16016 10338 10362 10314 ~AGE YOCEI YODE3 YODH VOOE6 YOCE7 YODE8 VODE9 VOJ ZCTI ICTRT ZOl2B ZER04 ZEROS ZERo6 ZERO ZODE 1 ZODE3 ZODE4 IODE6 ZODET ZODE8 ZOOE9 ZoJ ZRM SADCOW SARGSW SAVCOW SETFCT SETNMT SIMVAR SKIPS .. SPFPSW SRCFFl STEMPI STEMP2 SUBI2B SU8CI2 SU8CAB SU8COS SUSCOW SUBPS" SVTYN8 SWAREA SVSCAl TCLEAR TYPE12 10002 10026 10050 10014 le098 10122 10146 10386 10338 10362 10314 09025 09026 09027 09023 10002 10026 10050 10074 10098 10122 10146 10386 15690 11213 13366 06657 03136 03300 11364 09349 09357 04136 08990 08991 14174 14150 14126 14102 13371 04408 13223 08997 00475 11800 13098 TYPECN TVPECR TVPEK2 TVPEKl fYPEM2 TYPERM USEOCR WUB 12S WU8C 12 WU8CAB wueCDS XDCAll XOSSAB XODE 12 XODEI4 XOOEI5 XODE11 XODESS XRBASE XRF Il2 XUBI2B XUBC12 XU8CAB XUBCOS YDCAll YDSSAB YODE 12 YODEl4 YOOE 15 VOOE 17 yaDE SS VUB12B YU8C12 VUBCA8 VUBCOS ZOCAll IDSSAS lOOE12 lODE 14 IODE15 lDCEl1 10CESS IU8128 WBC12 WSCAS IU8Cr.S "0 08C61 08046 1H37 13(jS2 1 '1CR3 01631 13105 14114 14150 14126 14102 10410 10290· 10170 10194 10218 10242 10266 06597 06580 14114 14150 14126 14102 10410 10290 10170 10194 10218 10242 10266 14174 14150 14126 14102 10410 10290 10170 10194 10218 10242 10266 Ilt 174 14150 14126 14102 1620 MeN ITOR II OOC Ie 00C20 00030 00040 00050 00060 00010 00080 10RBC 10PT IOSK 10CT ERRET IORT OOC~O lOCAL 00100 MONtAL 00110 ole 00120 00130 00 litO 00150 00160 00170 00180 00190 002CO 00210 00220 00230 00240 00250 00260 00210 00280 00290 00300 00310 00320 00)30 00140 00350 00360 00370 00380 00390 OO~OO F K PROGST COMA CO Nl H2 W RECLG ENTlN ENTEXP ENTSC2 ENTSC3 ENTSo X ENTF 10 ENTREC ENTFET ENTSWD ENTDRR ENToEO ENTtOS ENTSIN ENTATN ENTSQT ENUBS ..... 001tl0 STOP 00420 RECMK 00430 OK BUFF 00~40 FAC 00450 00460 00410 00480 00490 00500 00510 00520 OS OS os OS os OS OS OS os VERSION 2 FORTRAN 11-0 SUBRCUT II'IES SET PAGE 1620 FORTRAN 11-0 SUBROUTINES WITH FLOATING PO I NT HARDWARE 10RT ENTRY POINTS AND CONSTANTS .520 .532 .554 ,566 00520 00532 00554 00566 ,602 00602 00565 00116 00196 00820 ,565 .716 .796 ,820 1620 FORTRAN 11-0 IN CORE AREAS COMMUNICATION AREA oORG 2218 OS 2 .. FLOATING POINT WORD LENGTH OS 2 .. FIXED POINT WORD LENGTH OS 5 .. STARTING ADDRESS OF MAINLINE PROGRAM OS 5 .. S URTING ADDRESS OF COMMON AREA os 2 .. NUMBER OF WORDS IN LOGICAL RECORD OS 5 .. NUMBER OF LOGICAL RECORDS OS 2 .. WORD LENGTH DS 3 .. RECORD LENGTH oS 5 .. ENTRY ADDRESS TO LOG SUBROUTINE OS 5 .. ENTRY ADDRESS TO EXPONENTIAL SUBROUTINE OS 5 .. ENTRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE OS 5 .. ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE OS 5 .. ENTRY ADDRESS TO SWITCH 0 FIXED SUBROUTINE OS 5 .. ENTRY AODRESS TO FIND SUBROUTINE OS 5 .. ENTRY ADDRESS TO RECORD SUBROUTINE DS 5 .. ENTRY ADDRESS TO FETCH SUBRounNE os 5 .. ENTRY ADDRESS TO SWITCH D SUBROUTINE OS 5 .. ENTRY ADDRESS TO ARRAY SUBROUTINE OS 5 .. ENTRY ADDRESS TO DISK END SUBROUTINE OS 5 .. ENTRY ADDRESS TO COSINE SUBROUTINE OS 5 .. ENTRY AOORESS TO SINE SUBROUTINE OS 5 .. ENTRY ADDRESS TO ARCTANGENT SUBROUTINE OS 5 .. ENTRY ADDRESS TO SQUARE ROOT SUBROUTINE oS 5 .. ENTRY AOORESS TO ABSOLUTE SUBROUTINE OS TO, ,RESERVED FOR ENTRIES TO ADOED SUBROUTINES COMMON WORK ING AREAS DAC 5,STOP' STOP' OS ,STOP>B OSS 29 60 Os DC 1 , 02218 02219 02221 02226 02231 02233 02238 02240 02243 02248 02253 02258 02263 02268 02273 02278 02283 02288 022~3 02298 CZ30~ 02308 02313 02318 02323 02393 02395 " SAVE BETA OS OS DCM CAM OS TAFE OS IMSA OS MESERR DAC ER E 00530 DUOH OS 2 2 5 5 2 5 2 3 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 7C 72 38 ,SAVE-IO ,SAVE -30 ,SEU -2B 6,ER E ' ' ,MESERR 5 X 02403 02404 02492 02493 C 29 6C 1 02565 02603 02604 02555 02535 02575 02607 72 38 1 C C C 6 X 02607 'Iii 5 1620 MONITOR II 00540 EI 00550 DUD 00560 VERSION 2 FORTRAN 11-0 'SUBROUT INES ••-2 OS OS 70 40 DC ,0 PAGE SET 3 02615 02687 02127 C 70 ItC 02128 4C -OOOOODOOOOOOOOOOOOOOOOOOOO~OOOOOOOOOOOD 00570 00580 ZERO 00590 00600 00610 FXH ..... OSC 40 ,0 0000000000000000000000000000000000000000 OS 1620 FORTRAN 11-0 INDIRECT AODRESS BOXES AND MODIFIED CONSTANTS IUSING K AND F' OSA FAC>1 " 02767 , ,FXH ,99 02772 02772 02777 :; ,100 02782 00620 FPIMK 00630 99MK OS DC -0099 00640 100MK DC 5 x 02772 -2493 C 5 -0100 00650 IMSAPF DU INSA 02787 5 X 00660 FNH FAC-l 02787 02792 -2575 5 x 02792 02797 -24~1 ZERO-78 OSA ZERo-ao 02797 02a02 -2689 5 DC 5 02B02 02807 -2687 5 OSA 00670 FlULP DSA 006BO FLZ 00690 LNEIIT ,-I 5 -OOOJ 00700 EXPENT DC 5 -OOOJ 00710 oKDATA OSC 2 00 00720 DSA DIOOoA 00130 DC 00740 CIOCDA OSC 0 00750 DC 5 -0000 0076C DC 3 -00 00170 DSA DK8UFF 00780 , DC ,-I 02812 ,00 02B13 02819 " 5 x 02819 02820 ,0 02821 ,00000 02826 ,000 02829 -2821 1 02834 " 00790 1620 FORTRAN 11-0 IN CORE SUBRDUTINES 008CO ZERFAC TFL FAC ,FLlER ,ZERO-94 ,1 00810 8 F IXEND 00820 lEROM OS 5 ZERO ~INUS 94 PLUS TWO TIMES F 00830 UNFLO TFL FAt ,FLiER ERR F5 UNFL IN FEXP " 02834 -24C4 02835 1 02848 02836 06 49 02859 02860 C6 466 02492 03068 5 02492 03142 -2613 03142 1620 MONnOR II , VERS ION .. FORTRAN 11-0 SUBROUTINES 02872 02884 02896 02908 02915 , .. 02914 02920 02932 02944 02946 02946 02958 02960 02960 02969 D2961 02912 02984 02996 03008 03020 0]032 03043 03044 03054 0]052 03018 03056 03068 03076 02984 0]076 03088 03100 03111 03118 0]112 03119 03120 03U2 03144 03156 03167 03168 03180 03192 03204 .. ... " ..... ..... 01340 01350 FX9 PAGE SET 8 ERXV+12 FAt IS fL PT ZERO ,6 TfL TRACE-I ,FAt BNC4 F1XEND RCTY GAM-I ,2 .. a-It ,I DC I J ,.-5 GAMMA ~INUS ONE MINUS TWO TIMES f 00890 GMIM2F OS ,FAC-I 8NF TRFX 8RANCH IF FIXED ARGUMENT 009CO ,6, TYPE flOATING ARGUMENT WNTY FNH 00910 00920 88 009]0 DORG '-9 ,6, TYPE FIXED ARGUMENT 00940 TRfx WNTV FXH 00950 88 DORG '-9 00960 ,0199 ,8910 00970 OVfLOh TFM FAC 2, '-2 00980 fMI OS ,.-4 o F OR K COD, 1 F AND K EVEN 00990 FKOOO OS 1 FAC-2 01000 TF ,9SCPF SET RESULT TO ALL NINES ,6 01010 ERROR RCTY FINISH 01020 WATY MESERR 01030 8 ENoo+12 ,MU-I 01040 MU SET CORRECT SIGN ON FAC BNF -+24 ,GAM 01050 SF FAC 01060 GM2F GAMMA MINUS TWO TIMES OS t' ,79. ReSET ERROR EXIT 01010 TOM FXERR+25 ,02009 01080 Mf ,--I MINUS F OS Z ,.-3 F PLUS TWO 01090 FP2 OS 2 ,MU-2 01100 WJRS OS TFM FXERR+30 ~ENoO+12 01110 01120 flXENo B8 011]0 OCRG . - ] ,ERROR 01140 FXERR OS ,SAVE 01150 ENoo TF FAC MOVE EXPONENT BNF -+21t SET PROPER SIGN 01160 .99 FAC-2 ,ENoo 01110 SF 01180 FINISh OS ,FINISH+l 01190 HTEND OS ,0 01200 88 OCRG ·-4 01210 ,FAt 8NF -+24 01220 ERXV AM .01 01230 EI TFM ERROR+lO ,FIXENo-12 01240 87 ERROR 01250 01260 OS 5 SWC-l • SWCFX-l 01210 SWCFX TO ,SWCFX-2 01280 TH SWC-2 SF SWC-I 01290 01300 81 SWC 1620 FORTRAN 11-0 FLOATING POINT CONTANTS 01310 .9999999999999999999999999999 01320 9SCPF DC 28 R999999999999999999999999999 01]30 OSC 2,99 00840 00850 TRACE 00860 00870 00880 FINDIN 03238 49 06 H 34 "'0 38 U ]8 42 16 26 3'0 ]9 49 44 ]2 15 16 U '03132 0288L Ol06! -2554 1 COOOO 02492 C0400 00102 C 02946 0279K OOOOC 02491 00100 COOOO 0277K OOOOC COIOO CCOOO OH92 2 I 0249C O]l1J 02607 0]08! 03044 02492 0 0]009 2 2 0 0]014 OOOOC 0-JR9 C]238 00102 001CO COOOO C3019 02555 -2-09 -]088 00000 C 26 H 32 M2 44 II 16 49 25 06 32 49 02492 0]112 02490 0 C CODOC 02565 00099 03076 03144 02615 0]014 02984 5 05971 0591C 05971 05912 02492 -0001 -3056 COOOO 03167 0]166 00000 28 03239 99 1620 FORTRAN 11-0 FI XED POINT CONTANTS .9999999999 DC 10 R999999999 03250 10 467 1620 MONITOR II 01]60 FXl VERSION fORTRAN 11-0 DC 10 ,0000000000 -000000000 01370 FXI OC 10 .0000000001 -000000001 01380 CONSTANTS FOR RELOCATA8t.E SUBROUTINES 30, 100000000000000000000000000000 01HO DC JO 0000 0000 0000000 00000 0000 0000 OUOO ONEZ DC 2. 01 -1 01410 DC ]0, 218716162394955256222611491638 K18116162394955256222611491638 01420 TEN]4 DC 2, 01 -1 01430 30. 43'>294481903251821651128918911 DC M3429448190]251827651128918917 01440 LOGE DC 2. 00 -0 01450 DC ]0, 6283185]0711958641692528676656 028318530111958641692528616656 01460 TWOPI DC 2, 01 -I 01410 DC ]0. 54041950021058415544]578364610 N"041950021058415544 3518364610 01480 ATAN.6 DC 2, 00 -0 01490 DC ]0, 314159265358919323846264338328 L 14159265] 58919323846264338328 01500 PI DC 2, 01 -1 01510 DC ]0, 600000000000000000000000000000 000000000000000000000000000000 01520 S IXTEN DC 2, 00 -0 ]0, 157019632619489661923132169164 01530 DC J510196326194896619231 ]2169164 01540 PIOV2 DC 2, 01 -1 01550 LNI DC 31, 0000000000000000000000000000000 -000000000000000000000000000000 31, 69]141180559945]09417232121458 01560 lN2 DC -693147180559945309417232121458 01570 LN4 31, 1386294361119890618834464242916 DC J386294361 1198906 18834464242916 01580 LN8 DC 31. 2079441541679835928251696364375 K019441541679835928251696364375 01590 LNIO 31, 2302585092994045684017991454684 DC K302585092994045684017991454684 01600 rwo DC 31, 2000000000000000000000000000000 KOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 01610 DC 28 ,0 -0000000 DC 00 0 00000000 C00 00 00 01620 FllER DC ,-99 2 RR 01650 oUM~Y OS ,99999 01660 START OS .0]851 01670 oORG 3189 SUBROUTINES SET PAGE 03260 10 0]210 lC 03100 ]0 0]]02 03332 30 03334 03364 ]0 03366 03396 30 0339B 03428 30 .034]0 03460 3C 03462 03lt92 30 03494 2 03524 30 03526 2 03551 31 0]588 31 03619 31 03650 31 03681 31 0]712 31 03740 28 03742 2 99999 0]851 0]189 0 0 468 1620 MONITOR II VERS ION 2 FORTRAN 11-0 SUBROUTINES SET PAGE 01615 OSA WAry 03793 01680 OSA REP3 03793 03198 -4166 5 X C1690 OSA TRAtE 03798 03803 -6920 5 X 01100 OSA SWC 03803 03808 -2884 5 01110 OSA SWtFX 03808 03813 -5912 5 x 01120 OSA SLASH 03813 03818 -3168 5 X 01130 OSA REP 03818 03823 -6482 5 X 01140 OSA REOO 03823 03828 -6816 5 01750 OSA XTYPE 03828 03833 -6708 5 x 01760 OSA COMPLT 03833 03838 -7048 5 x 01710 PAR DSA 0 03838 03843 -6688 5 X 01780 OSA MATRIX 03843 03848 -eCCC 5 X 01790 01800 01810 01820 1620 FORTUN 11-0 ODRG SURT OS 1 ,DO DC 2 -0 BLXM FMON I . un 00 00100 BUM FMON ,*(0' 00 00100 BUM FMON ,-ec) 00 00100 BLXM FMON ,-(0) 00 00100 BUM FMON ,·101 00 00100 BLKM FMDN ,·101 00 00100 BLxM FMON ,-COl 00 00100 BUM FMDN ,-CO) 03848 -6324 01830 01B40 01850 01860 01870 01880 01890 01900 01910 01920 01930 01940 01950 01960 01970 SUBROUTJ NES - I NIT JAL SECONDARY LINKAGE 03851 03851 03853 , , , , , ,a ,a ,a , ,a , ,0 03854 03866 03878 03890 03902 03914 03926 03938 03950 03962 03974 03986 03998 04010 04022 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 07228 0010C 0722B 001CC 07228 0010C 07228 0010e 07228 0010C 07228 eOloc 0722B 0010C 07228 04034 04046 0<4058 04070 04082 04094 04106 OU18 0<4130 0<4142 OU54 01tl66 04118 0<41'0 04202 0<42l<4 04226 0"'238 0"250 0<4262 0<4274 04286 042.8 04310 04322 0<4334 04H6 04358 0<4310 0'UB2 0"3'<4 04"06 0"418 04<430 0"4"2 0445" 0<4466 . 04"'78 0<44'0 ~O 66 -0 66 -0 66 -0 66 -0 49 49 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 00100 07228 OOICC 07228 OOIOC 07228 001CC 07228 0010C 07174 07154 07228 0020e 07228 0020e 07228 0020e 01228 00200 07228 00200 0722S 0020C 0722B 00300 0122B 00400 07228 00700 07228 00800 07228 0070C 07228 0050C 07228 00500 0722S 00500 04070 COOOO 04094 00000 04U8 COOOO COOOO 00000 04166 COOOO C4190 00000 C4214 COOOO 04238 COOOO 04262 00000 0"286 00000 0"310 COOOO 04334 00000 0'>358 ccooo C4382 00000 0"406 COOOO C4430 00000 04"54 COOOO C4"78 00000 25 60 66 21 26 64 66 21 26 64 16 22 26 22 15 00380 04526 04538 04561 0l26S 0"55C 04586 0"609 OL526 04598 00324 00324 00334 00334 03018 02219 02"03 00002 0-256 02219 CL240 0-03K 0-lB6 02219 CL"98 0-03J -0000 02219 00324 02219 00000 000-9 ,0 ,0 03854 COOOO C3878 COOOO 03902 oeooo C3926 00000 03950 COOOO 03914 00000 03998 COOOO C4022 469 1620 MONITOR II 01980 01990 02000 02010 02020 02030 020<40 02050 02060 02010 02080 020.0 02100 02110 02120 02130 02140 02150 02160 02170 02180 02190 02200 02210 02220 02230 02240 02250 02260 02270 02280 02290 02300 02310 02320 02330 02340 02350 02360 02370 02380 02390 02"00 02410 02420 02"30 02440 02450 021060 02470 02480 02",90 02500 02510 02520 02530 , , , , VERSION 2 FORTRAN II-D ,a 00100 ,-(01 FMDN ,0 00100 FMON ,-COl ,0 00100 ,.(01 FMON 00100 ,0 ,-(0) FMON ,0 00100 CLOBB CLon ,-(01 FMON ,a 00200 FMCN ,-un ,a 00200 BU~ FMON ,-101 ,a 00 00200 BLXM F"CN ,'101 ,0 00 00200 BU~ FMCN ,-co. ,a 00 00200 BLxM FMON ,'101 ,a 00 00200 BUM FMON ,·CO) ,0 00 00300 ,'101 BLX" FMO" ,a 00 00400 ,arOI BUM FMON ,a 00 00700 BLXM FMON ,·101 ,0 00 00800 BLKM FMON ,·101 ,0 00 00700 BUM FMCN ,·ceJ ,0 00 00500 BUM FMON ,·101 ,0 00 00500 ,aCC) BUM FMON ,a 00 00500 MODIFICATIONS MACE BEFORE START OF EXECUTION ,REtMK TO 00380 B588 •• 12 ,PIOV2-0NEZ+32141 aLX" •• 12 •• 23 ,F A TF CNEZ-3" I <4 I ,ONEZ-62 14 1 BtXM .-12 ,-00032141 BLXM -+12 ,TWO-LNl+31141 a+23 ,F A TF LNl-31141 ,LN 1-59 I" I 8tXM --12 ,-00031141 TF~ ,00000 00324 ,F 00324 5 TF 00334 ,00324 ,F 5 00334 TOM WJRS ,0 ,09 ,10 CM F 00 BUM 00 BUM 00 BUM 00 BUM 00 B B BUM 00 BLKM 00 , , , , , , , , , , , , , , SUBROUT INES PAGE SET 04502 04514 0<4526 0"538 0<4550 0"562 045'" 0<4586 0<4598 04610 0<4622 0"'63" 04646 04658 0<4670 04682 470 14 6 OOOCO C4046 coooo J 162.0 MONITOR II 025~0 8t-1L 02550 TOM 02560 5 02570 SF 02580 S 02590 SF 02600 S 02610 SF 02620 S 02630 SF 02640 S 02650 S 02660 S 02670 A 02680 S 02690 A 02100 A 02710 TF 02120 A 02730 S 02740 S 02150 A 02760 S 02770 SF 02780 A 02790 A 02800 S MM 02810 02820 80 02830 MM 02840 80 02850 TOM 02860 8 02870 OoRG 02880 OooSET TOM 02890 8NF 02900 A 02910 A 02920 BV 02930 BXV 02940 BO 02950 TFM 02960 B 02970 DUONG OSC 2K 02980 OSC 0 02990 DC -146 03000 DC 03010 DAFMCN OSC 22 03020 OSA VERS ION 2 FORTRAN 11-0 SUBROUTINES SET .+24 WJRS ,5 ·+18 ,F 9SCPF+I ·"18 FX9+1 *.18 , ,K , , .+18 ,k *.18 ,2 ,2 ,K ,K ,k ,F ,F ,F ,F ,F ,F ,99 ,99 ,99 ,F FAC+I-K 99-K 100-K IMSA+F FAC-I-F ZERO-18+F ZERO-BO+F 2F GAMMA-2F GAMMA-I-2F ZERO-94+2F , FLZER-l FMl ,F FP2 ,F MF ,F F ,OS OOOSET ,99 K ,05 OOOSET ,99 FKOOD ,I oOOSET+12 --4 FKOoo ,0 ·.:J6 ,ENTlN-4 LNENT ,ENTlN EXPENT ,ENTEXP ,10, ,10. .. 04922 04934 04946 04958 04970 Olt982 04994 05006 05018 05030 05042 05054 05066 05078 05085 05086 05098 05110 05122 05134 051lt6 05158 05110 05182 05194 -I+F 2+F -F F EVEN NO, 8R. TO ODDSET YES, k EVEN NO, SR. TO ooeSEr ·YES, FKOOO * I FKoOo • 0 FLN ENTRY POINT FROM FAX8 FEXP ENTRY POINT FROM FAXB .+12 -+12 SHORT IORT IOGT 2 .Ol1t99 ,*+23 ,DUONG ,-22 15 22 32 22 32 22 32 22 32 22 22 22 21 22 21 21 26 21 22 22 21 22 32 21 21 22 13 Olo910 ,2 .. .. 04706 04118 Olt730 0lt742 04766 0lt778 04790 04802 0481lo 04826 Olt838 04850 Olt862 04814 04886 04898 ,2 , U 047510 ,K FXZ+l FXl+1 FXH 99MK 100Mk IMSAPF FNH FlZALP FLZ 99 99 GM2F GMIM2F ZERD" ,2 PAGE 0~69~ ,1 ,0 05196 4 ,0146 05200 " 05201 2 ,22 05202 OOFMON 43 13 1t3 IS 49 15 1t4 21 21 46 46 lt3 16 49 05208 04718 03018 04736 01300 00005 02219 OOOOC 02221 00000 02221 COOOO 02221 00000 C2221 02221 02221 02219 02219 02219 02219 02219 02219 00099 00099 00099 02219 00000 02219 02219 02219 000-5 00099 000-5 C0099 00001 00000 -323~ 04760 -3251 047e4 -3261 04808 -3271 02772 02177 02182 02187 02192 02197 02802 00099 0009~ C30~3 02914 02859 04916 -3741 02969 03052 C30H 0221~ 05086 02221 05086 02967 05098 02961 05134 02807 02812 05146 05158 o522t 00565 00566 2 00000 02244 02248 02253 0l't00 01500 OH99 -5193 -5194 5 X 05208 -5210 "71 1620 MONITOR II 03030 DC 03040 oDFMON OSC 0 03050 DC 5 J6835 03060 DC 3 -Olt 03070 DSA 1100 ,0 05210 05215 ,004 05218 03090 SHORT 03100 OHIO 03120 03130 03140 03150 03160 03170 03180 03190 81 TFM loRT 10GT B B PROGST oORG --4 OORG 06000 34 Bl 38 Bl 36 BI .+22 B DORG .-3 OSC 9 016800035 OSA STOP-I ,·+2J TOO 03230 032ltO 03250 03260 03210 03280 03290 03300 03310 03320 03330 03HO 03350 03360 03370 03380 03390 03400 03410 03420 03410 03440 03450 03460 ..... FIX FXSR FX~ FXD FXCR RSGN fL.OAT FS8R FOVR FIXI 3 05223 " TRA PAGE SET ,16835 , 03220 SUBROUTINES " DC 03210 FORTRAN 11-0 05209 03080 03200 VERSION 2 ,OAFMO~ 05223 05224 ,1 ,6 ,00101 ,00702 ,00103 ,016800035 06000 1620 FORTRAN 11-0 AR ITHMETIC 8l0CK 1620 FORTRAN 11-0 ARITHMETIC BLOCK - SECONDARY LINKAGE OORG START OS 3 TFL FAC ,FIX-l ,11 8 FlU BNF FXSR1+20 ,FAC CHANGE SIGN ON FAC B FURl ,FX~-I M FAC ,11 B fXMI ,FAC Lo FAC a FAC/J 99 B FXDI TFM FXO-l ,FAt FAC • J/FAC 8 FXORI ,RSGN-I ,II TFL FAC RSGNI 8 ,ll ,FLOAT-I TFL FAC FLoAH B 8NF FS8Rl+Z6 ,FAC-2 CHANGE SIGN ON FAC FSBRI B TFL SAVE ,FAC B FoVRI TF IMSA ,FJXI-i ,11 t IHSA 8 FIXIl 05226 ·05238 05250 05251 06000 06000 06012 06024 06036 060lt4 0601t1t -7100 1 16 49 49 00566 02220 -5249 -5202 COOOO 34 38 36 49 06044 06044 06044 06058 00701 00702 C0103 00000 9 06051 06057 06058 06010 06000 OC565 5 X 36 1t9 -2394 OOOCO 00000 00500 00000 03851 03853 03851t 03866 03818 0]890 03902 03914 03926 03938 03950 03962 03914 03986 03998 04010 04022 Olt034 04046 010058 04010 04082 472 06 1t9 41t 1t9 23 49 28 1t9 16 49 06 1t9 06 1t9 1t4 1t9 06 1t9 26 49 3 02lt92 04502 0107110 010694 02492 04740 00099 04802 03925 049410 02492 04961t 02492 05056 05314 05288 02565 05334 02575 053810 0385l 00000 02492 COOOO 0390J 00000 02492 00000 -2492 00000 03971 00000 0399P 00000 02490 COOOO 02492 00000 0406R 00000 1620 MON ITOR II 03410. 03080 03490 03500 03510 03520 0]5]0 0]540 03550 03560 03510 03580 03590 03600 03610 03620 03630 036100 03650 03660 03610 03680 03690 03100 03110 03120 03130 03HO 03150 03160 0]170 03180 03790 03800 03810 03820 03825 03830 03840 03850 03860 03810 03880 03890 03900 03910 03920 03930 03940 03950 03960 03910 03980 03990 04000 04010 FAXI FAXB SET VERSION 2 FORTRAN 11-0 SUBROUT INES SET TF IMSA , FAXI-l ,11, IMSA • B FAX II TFL SAVE-4e ,FAXB-l ,II, LOAO 8 FAXBl ,11 TFL FAt ,00344 B SET! 8LXM FMON ,.ltd ,a 00 00200 ,.(01 BUM FMON ,0 00 00200 ,. (01 BUM FMON 00 00200 ,0 8UM FMON ,*co. ,a 00 00200 ,. un BLXM FMON ,a 00 00200 8UM FMON ,* (01 ,0 00 00200 ,.(01 BlX" FMON ,0 00 00300 BUM FMON ,·CO) 00 ,0 00400 ,.(01 BU~ FMON ,0 00 00100 BlXM FMON ,·COI 00 ,0 00800 BlXM FMON ,·101 ,a 00 00100 BllM FMON •.*(OJ ,a 00 00500 BUM FMO" ,*(01 00 00500 ,0 BllM FMON ,-COl 00 00500 ,0 1620 FORTRA" 11-0 ARITHMETIC BLOCK - SU8RDUTINES CM FAC ,00 ,10 .+32BP FAC ,FIl TF NO F IXEND B DORG _-3 MF MU-l ,FAC-2 STORE SIGN FAC ,K C IS CHAR GREATER THAN K 8NH .+ltlt NO TO~ FXERR+25 ,I YES, SET ERR TYPE ,9, TF~ ,512 SET ER E2, OVFL 1_ FIX EI FXNINE+12, FAC • FX9 8 DORG .-3 TF BETA ,ZERO-51 CLEAR ADO ARU TF ,FXZ IMSA TF ,IMSAPF ALIGN OECI~AL POINTS "30 e+18 ,FAC S A DUMMY ,FAC-2 TF ,IMSA FAC MU OORG .-4 CF FAC , , , , , , , , , , , , , , FIXI , ...... • FXSRI PAGE 010094 04106 04118 010130 04142 04154 04166 010118 04190 04202 04214 04226 04238 04250 010262 04214 010286 010298 04310 04322 043310 04346 04358 04310 010382 04394 041006 OH18 04UO 041042 0104510 041066 04418 041090 26 49 06 49 06 49 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 025T5 05158 C2525 06192 02492 066610 01228 00200 01228 C020C 01228 00200 01228 0020e 01228 00200 01228 0020e 01228 00300 01228 oo ... oe 01228 00100 01228 00800 01228 00100 07228 005CC 07228 00500 07228 00500 e409L eoooo 0411P 00000 04502 045110 04526 04538 04546 04546 04558 04570 04582 04594 04606 04614 04614 04626 04638 04650 04662 04614 04686 04693 04694 14 46 26 49 02492 010546 02492 03068 000-0 01100 C3260 00000 71 24 107 15 16 49 030n 02492 04614 03009 02615 04924 021090 02221 01100 COOOI 00N12 COOOO 26 26 26 21 26 49 02603 02575 04668 04668 99999 02492 0302C 02716 03260 02787 C2492 02490 02515 00000 33 021092 OOOCO 49 32 21 42 32 26 14 106 04126 02492 02492 00000 C387P 0278K 021092 0277P 0480C 010796 00000 00099 COO-O 01200 -0-00 04884 04838 04884 0278K 04888 021092 04882 COOOO 01400 00000 0392N C1400 0277P -0-00 04882 02615 03014 02lt92 02984 04885 OONl1 -3056 03250 00000 28 49 44 44 33 42 00099 04802 05016 05002 02490 00000 0394R 02491 OH90 00000 00000 32 42 02490 00000 00000 00000 44 33 42 050102 02492 00000 021092 00000 00000 32 42 02492 OOOOC 00000 00000 14 46 11 11 49 02492 02836 00099 02594 0249C 02565 05151 051810 02565 05151 05110C COO-O C1200 02492 0277K 0279P 02221 -25910 99999 000-1 -0001 00000 31 26 11 0219K 05231 05231 0515J 02192 -0001 22 9 C031o~ ceooo 04166 00000 04190 00000 042110 00000 010238 00000 010262 00000 010286 coooo OU10 00000 010334 00000 010358 00000 04382 00000 04406 00000 CIolo30 00000 0101054 coooo 041078 00000 473 1620 MONITOR II 04020 04030 04040 04050 010060 04070 010080 04090 010100 04110 010120 04130 04140 04150 04160 04170 041BO 04190 04200 04210 04220 04230 04240 04250 04260 04210 04280 04285 04290 04300 04310 04320 04330 OH40 010350 04360 04310 04380 04390 04400 04lt 10 041020 041025 04430 OH40 04450 06460 04470 010480 04lt90 04500 OHIO 04520 04530 045 ... 0 04550 FX~I FXOI e+20 FAC FAC B7 SF A 882 SF TF CM BE AM 882 SF 8NV CF 0 FX01+82 . .24 FX01+82 100NK BY e.38 TF AM BB2 A TF" FXNINE TFN TF B DORG FXORI LO B7 RSGNI 8NF BNF CF· 8B DORG SF BB DORG BNF CF 8B DORG SF BB OORG FLOAT! CM BE MF TR TF TF TFM 10 SM AM B DQRG TR TF AM 100MK FAC 99MK "24 "8 FAC u8 VERSION 2 ,FXSR-l ,11 , ,6 ,99 ,00 ,610 ,00000 ,79 ,FXD-l ,611 ,99MK ,00000 ,11 FORTRAN 11-0 SUBROUTINES ,79 ,FX01+83 ,9, ,511 EI FXERR+30 ,FIXENO-12 .. ,FX9 FAC FURR .-10 ,FXOR-l 99 ,11 FXOI e.52 ,FAC-l FXD1+80 •• 26 ER El, ZERO DIVIS ION SET UP ERROR EXIT FAC • FX9 ~FAC-2 FAC-2 .-9 FAC-2 --9 e+26 FAC ,FAC FIXED POINT NUMBER .-9, FAC .-9 FAC lERFAC 99 IETA-9 FAC-2 SAVE e+23 .+ltlt SAVE --13 .-36 .-3 FNH ,00 ,FAC ,FXH ,FLZUP ,K ,BETA-9 ,DUMMY .t .. .. ,10 ,11 .11 t ,10. STORE SIGN CLEAR FAC CHAR. K FINO HI ORDER DIGIT CHAR A~JUST ,I e+35 ,--33 .FNH e.23 .t ,611 FIND ANt CLEAR RECORD MARK PAGE SET 04106 04114 04126 04738 04740 04152 04764 04116 04188 04800 04802 04814 04826 04838 0 ... 850 04862 04874 04886 04888 04900 04912 04924 04936 04943 049104 04956 049610 04916 04988 05000 05002 05002 05014 05016 05016 05028 050100 05042 05042 050510 05056 05056 05068 05080 05092 05104 05116 05128 05140 05152 05164 05176 05184 05184 05196 05208 47f1 11 42 32 47 33 29 46 26 11 42 21 16 16 26 49 31 26 26 16 43 12 10 1620 04560 04570 04580 04590 04600 NORM6C 04610 04620 fSBRI 04630 04640 04650 04660 04670 04680 FDVRI 04690 04700 OHIO 04720 04130 ·flXIl 04140 04750 04760 04770 04780 04190 04800 04810 04820 04830 04840. 04850 04860 PSI 04870 04880 04890 04900 OoOREV 04910 04920 04930 04940 04950 04960 04970 04980 04990 05000 05010 05020 05030 05040 05050 05060 05070 05080 05090 FUll 05100 05110 ONEFAC 8NR TOM TD Tf Sf B7 CF FADD BB2 SF B DCRG TFl 8D TF FOIV Ba2 A" BNZ TF aB DORG A" BNZ BNF TFM B OORG TOM "F TO ~ONITCR 0-12 0-1 fAC+l BE·TA FNH fiNISH FAC-2 FAC FAC-2 FSBRIH2 0-4 FAC .+24 1'1 FAt 11 VERSION .DUMMY .0 .RECMK .IERD-74 FORTJUN 11-0 .. REPLACE RECORD MARK CLEAR BETA .11, SET UP ACO SUBROUTINES SET .6 ,6 .6 .FSBR-l .FDVR-l .WJRS .ZERDM ,SAVE ,11 IMSA -+26 FAC ,.00 ,1Q, IS I • ZERO NO, CONTINUE YES, J •• l ~ ONE '-9 FAt ,00 .10, IS J • ZERO NO, CONTINUE VES, THEN IS I POSITIVE NC, ER Gl, 0 TO MINUS I POWER _+44 .-26 EI FXNINE --3 OoOREV+l MU-l -+21 . .9 .+24 MU-l AXJ FAC "U -+44 EI FAC ERXV+24 8ETA IMSA MU FAC 100MK FAC 99MK .-72 8l TFM EI TOM FXERR+25 FXNINE 8 DCRG _-4 AM IMSA eNZ -+38 TFM FAC "" Bo CF NOP C 8E eNF TFM TF 81 TF SM BZ M SF TF AM PAGE 05220 05232 05244 05256 05268 05280 05288 05300 05312 05314 05326 05333 05334 05346 05358 05370 05382 05384 05396 05408 05420 05422 05422 05434 05446 05458 05470 05478 05478 05490 05502 05514 05526 05538 05550 05562 05574 05586 05598 05610 05622 05630 05642 05654 ,11 .FXl .. , ,IMSA ,111 ,'I, 01 ;fAC ,I"SA ,0005 ,99 STORE SIGN fROM J ,FAC ,01 .... .. .. ,,BETA ,6 ,810 ,FXl , ,IM5A ,172 ,'I, ,FXZ IS I EVEN YES, SET SIGN POSITIVE J • ~ DR - ONE IS I POSITIVE NO, ERR G2,. J TO MINUS I POWER FAC • FXZ STORE J ,10. 05666 .99 ,00 ,610. TEST OVFL ,173 ,I ,9, .. ,00 .10. , ,01 .10. 05678 05690 05702 05714 05726 ERR G3, OVFL IN FlU SET UP SIGN 05738 05750 05157 05758 05770 057B2 IS I lERO NO, CONTINUE YES 45 15 25 26 32 49 05208 0523J 02493 02603 0279K 03UJ 02490 02492 99999 CCOOO 02403 C2693 00000 0249C 05300 COOOO 00000 02492 0537C 00079 02492 0404N C3018 0285R C2565 02515 05422 02492 OOOOt COO-O 01200 C3210 COOOO 11 47 44 16 49 02492 0.5418 OH2C 02615 04912 OOO-C C1200 02575 OOPll 00000 15 11 25 13 05551 03019 05523 05523 05550 03019 05920 02492 0302C 05630 02615 02492 03144 02603 02575 0302C C2492 o278K 02492 0217P 05642 02615 03009 04912 COOOI 02492 02575 C-0-5 C0099 00000 COOOO 03210 C1200 02575 00P72 03260 16 02575 05808 02492 000-0 CI200 COO-l 26 42 02490 OOOOC 03298 COOOO 43 44 16 26 16 49 66 71 15 49 05 16 44 33 0279K 02575 COP14 03238 000R9 44 16 49 05876 05806 02615 0249C 02492 03120 04154 C3019 05551 05502 OK489 C2615 06048 02575 05992 00079 02565 02492 02492 06048 06132 02555 02575 06156 06108 00079 02492 06060 02490 06808 02490 02490 06808 02523 05782 06260 03112 02615 05844 71 26 65 M9 43 26 03 26 65 ,,9 15 44 16 06192 03074 04154 C6304 06328 00019 02492 03014 04154 06372 03069 03112 02615 33 01 42 32 49 06 U 26 0'1 42 11 47 26 42 U 33 41 24 46 44 16 26 49 26 12 46 23 32 26 11 46 16 15 49 11 41 11 00000 0402J 02492 COO-l 01200 02603 00000 00099 COO-O 01200 OOP73 00001 COOOO 475 1620 MONITOR II 05120 05130 05140 05150 05160 05170 051$0 05190 05200 05210 05220 05230 05240 05250 05260 05270 05280 05290 05300 05310 05320 05330 05340 05350 05360 05370 05380 05390 05400 05410 05420 05430 05440 05450 05460 05470 05480 05490 05500 05510 05520 05530 05540 05550 05560 05570 05580 05590 05600 05610 05620 05630 05640 05650 05660 05670 TF liB DORG BO eNF TFH OVFLO TF TFM B7 BLXM "F TOM 87 AXJ FSL TFM BNF CF 80 RECIP TF TFL TFL FolV BNXV B7 NOOIV· TFL SM BZ BO TF F"Ul BNXV ERXVS TF BlXM TF MF BlX" FAKBI AM BZ 80 BNF TFM B OORG MF TF alX QSTS B7 QSTSI Bo TF F"UL TF BlX AlSFQ 87 ALSFQl TOM 8NF TFM FAC-2 _-'I -+68 --14 EI FAC-2 FAC ERXV SET+l2 MU-l OoOREV+l PSI FAC-3141 EI NODIV IMSA •• 24 79 SAVE Ht FAC NOolY ERXVS GAM IMSA -+84 _+24 79 FAC NOOIV+12 FAC-2 RESET FAC-2 FAC-2 RESET SAVE-42 ONEfAC -+44 FINISH+1 EI OVFLO --3 FUBI F IXENo+6 SET+12 Q5TSI a.24 79 FAC FIXENo+6 SET+12 ALSFQI FIXENO+l FINISH+! EI VER$ ION 2 FORTRAN 11-0 ,ONEZ-4 ,FNH ,I"SA ,774 ,9SCPF ,99 SUBROUTINE S SET FAC z FLT PT ONE .. ,11, ,9. IS A ZERO VES, IS I NEGATIVE YES, ER GIt, ZERO TO MINUS I ,10 ,--1(0 I ,FAC-2 ,'I ,FAC-2 ,175 ,I"SA ,WJRS ,ZEROM ,FAC ,ONEZ ,SAYE ,FAt ,01 ,WJRS ,lERO" ,GAM ,9, , ,10 ,11 .... .FNH ,11, ,SAVE-42 ,111 ,'I, ,FAO-2 ,QSTS+6 ,LNENTIO I ., .. .. ,0 ,WJRS ,ZEROM .11 ,SAVE-40 ,AlSFQ+6 ,EXPENTIO),. , ,0 .2 ,FU81 ,676 SET UP ER G5 CODE ,11 ,FAC-4 ,ERXVIOI ,FAC-4 ,MU-l ,FIXENOIOI ,00 .10. ,9, IS 8 lERO YES NO, IS A ZERO NO, IS a NEGATIVE VES, ER G·7, lERO TO MINUS 8 FIND lN1A1 HC ~ PAGE 05194 05806 05808 05808 05820 05832 05844 05856 0586B 05876 05888 05900 05912 05920 05932 05944 05956 05968 05980 0599206004 06016 06028 06040 06048 06060 06072 06084 06096 06108 06120 06132 06144 06156 06168 06180 06192 ·06204 06216 0622B 06240 06252 -06260 06260 06272 062B4 06296 06304 06316 06328 0631t0 06352 06364 06312 06384 06396 lNIAI-a FIND E"18-LNIAII ER F6. -A TO 8 476 43 26 06 06 09 47 49 06 12 46 43 26 03 41 26 66 26 71 66 11 46 43 C5875 02490 00009 02490 COP75 02575 00000 C3018 0285R 02492 03302 02565 C1500 021092 COO-l CI200 03018 C285R 02555 C1500 02488 C3120 OH88 03019 03068 000-0 01200 C219K 02523 OOP11 COOOO 02490 06302 02807 C301B C285R 02525 06370 02812 00002 06192 00076 12 1620 MeNITOR II Bl 05680 056~O CORG 06A08-12_12 CF 003~~ BXM .+12 TFM 00309 TFM 00314 MU-l CF RESET+3~ SF BNV *+24 RESET+34 Cf Tfl QZF 8NXV *+24 TfL QZf B58A 00344 BY ·+12 8NXV -+12 AM "8 FMUL QZF 8NF ·+24 FAC-2 SF BS88 00304 2 , 01 DC -L 2 , 01 DC -1 , 90 DC RO , 90 DC RO 4 DS OORG 08000 34 Al 38 Al 36 Al TO 15999 TR START+3 .+22 8 OORG ·-3 OSC 9 019400033 OSA fiX 05900 QZl 05920 QZ2 05930 QZf 05940 05950 05960 05910 05980 05990 06000 06010 06020 Al 06030 FORTRAN II-D SUBROUT INES PAGE SET 06~08 05100 SET! ()51l0 05120 05130 05140 05750 05760 05770 05780 05790 05800 05810 05820 RESET 05830 05840 05850 05860 05870 05880 05890 05910 VERSION 2 ERXV+2~ ~9 03144 0666~ 33 00344 coooo 06616 06688 06100 06112 06124 06136 06148 06160 06772 06184 06196 06808 06820 06832 06844 06856 06868 06880 06893 62 16 16 33 32 0668~ CC013 -0000 -OOCO COOOO COOOO C1400 COOOC 06895 C 1500 C6899 COOCI C1400 C1500 -0-00 06899 C3019 CCOOC 00002 0666~ , !ltO' ,00000 ,00000 ,QZl ,QZ2 ,6 ,19 ,00000 ,QZ2 ,MU-l ,6 H 33 06 41 C6 60 46 41 11 03 44 32 6C CC3C~ 00314 0301~ 06842 0676C 06842 06903 06196 069C3 0034~ 0682C 06832 0684C 06903 0688C 0249C C030. 2 13 06895 06897 06899 ,00101 ,00702 ,00103 ,400 ,12000 0690.3 08COO OBCOO 08012 08024 08036 08048 08060 08068 08068 FIRST TIME ONLY FIRST Tl~E ONLY ,019400033 08068 08068 C8C68 15999 C3854 08082 36 49 -3854 OOOCC 00000 C0500 COOOO 66 -0 -0 66 66 3 01228 00100 00100 01228 01228 03854 00000 CCOOO C3890 CH02 5 X 08081 08081 08082 08094 08000 06040 TRA 06050 TCD 06060 06010 06080 06090 06100 06110 06130 06120 06140 1620 fORTRAN 11-0 1620 FORTRAN 11-0 OORG START OS 3 BUM FMON ,*, 01 00100 00 00 00100 ,a(OI BUM FMON ,*(OJ 8UM FMON 08000 FORMAT fORMAT - SECONDARY LINKAGE 03851 03853 03854 03866 0381A 03890 03902 ,0 ,0 , CC7Cl 00102 C07C3 CC40C 12000 00000 34 38 36 25 31 49 477 1620 MONITOR II 06150 06160 06110 06180 06190 06200 06210 06220 06230 06HO 06250 06260 06210 06280 06290 06300 06310 06320 06330 06HO 06350 06360 06310 06380 06390 06400 06410 06420 06430 06440 06450 06460 06470 06480 06490 06500 06510 06520 06530 06540 06550 06560 06510 06580 06590 06600 06610 06620 06630 06640 06650 06660 06610 06680 06690 06700 WATV WAPT WACO 00 BLXM 00 8UM 00 BLXM 00 TfL B BUM 00 BUM 00 BLXM 00 BLXM 00 BUM 00 8 B 00100 fMON 00100 fMON 00100 fMON 00100 FAC IfLOAT FMON 00100 FMON 00100 FMON 00100 fMON 00100 FMON 00100 CLOBB CLOTT TF B TF B TF B SWf WATY1 SWf WAPTl SWF WACOI VERSION , ,t" (0) Tf B RAPT IF ,0 ,.(0) , ,*, 0) , ,FLOAT-l ,0 ,0 ,11 ,*, 0) , ,0 ,a(O) , ,,*101 , - , 0) , ,0 ,0 ,0 ," (OJ ,0 WRITE ALPHAMERIC ,WATY-l ,WAPT-l ,WACO-l READ ALPHAMERIC ,RATY-l SWf RATY1 ,RAPT-l SWf RAPTl B ,RACO-1 RACO TF SWf RACDI 8 SWF ,3 !TYPE AM /TYPE 1 B ,.(O) SLX. FMON 00 00400 ,.(0) SUM FMON 00 00100 SLX. FMON ,*COI , 00 00800 ,. (OJ 8LX~ FMON 00100 00 SUM FMON ." (0) 00 00500 f. f 0) BLX. FMON 00 00500 • a(O J SLX. fMON 00500 00 1620 FORTRAN 11-0 I MACRG FOR , SwF ITYPE 1 TF WIOTH2 .,WICTH2 A LAST ,MAX2 LAST C RATY FORTRAN 11-0 ,0 , , , , , , , , ,8 ,8 ,0 ,0 ,0 ,0 ,a .0 ,0 FORMAT - S~eRCUTINES 1 TYPE REAG A~~ .RITE ,11 SU8ROUT INES PAGE SET -0 CCOOO C3926 03914 03926 03938 03950 03962 03974 03986 03998 04010 04022 04034 04046 04058 04010 04082 04094 04106 04118 04130 04142 04154 66 -0 66 -0 66 -0 C6 49 66 -0 66 -0 66 -0 66 -0 66 -0 49 49 00100 01228 00100 07228 0010e 07228 00100 02492 05006 07228 00100 01228 0010C 07228 00100 01228 0010C 07228 00100 07114 07154 04166 04178 04190 04202 04214 04226 26 49 26 49 26 49 05851 05488 05851 05508 05851 05528 04165 CCOOO C4189 COOOO 04213 COOOO 04238 04250 04262 04214 042B6 04298 04310 04322 04334 04346 04358 04310 04382 04394 04406 04418 04430 04442 04454 26 49 26 49 26 49 05851 05852 05851 05872 05851 05892 05851 04502 01228 00400 01228 0070C 01228 0080C 07228 00100 07228 0050C 07228 00500 01228 00500 C4231 00000 C4261 00000 04285 0-000 -0003 0-000 C4334 COOCO C4358 COOOO 04382 COOCO C4406 COOOO 04HO COOOO C4454 COOOO 04478 COOOO 05946 05126 05726 0585J 05946 06027 0~466 04478 04490 04502 04514 04526 471i 11 49 66 -0 66 -0 66 -C 66 -0 66 -0 66 -0 66 -0 26 21 24 coooo C3950 COoOO 03974 00000 0]99P 00000 04022 00000 C4046 coooo C4010 00000 04094 coooo 04118 00000 COOOO COOOO 14 1620 MONITOR 11 06710 06720 06130 06740 06750 06760 06770 06780 06790 06800 06810 06820 06830 06840 06850 06860 06870 06880 06890 06900 06910 06920 06930 06940 06950 06960 06970 06980 06990 01000 07010 07020 07030 07040 07050 07060 01010 07080 07090 07100 07110 07120 07130 07140 07150 07160 07110 07180 07190 07200 01205 01210 07220 01230 07240 07250 BH TF TFM TF~ BO TF TF TH IREAD IRDIG IRBLNK IMINUS ERRF7I READI REAOIF ERF7 IFlOAT ER F9 INPLUS IR 01G+6 SWC AOJ SWL TER~ VERSION 2 FORTRAN 11-0 SUBROUfINES PAGE SET 04538 04550 04562 04574 04586 04598 04610 04622 ,LAST ,FAC ,wR IrE ,RhEFSh ,FPIMK ,FXl FAC ,REAOI S WC AOJ CHAR BY CHAR [S MOVED INTO FAC,RIGHT JUSTIFIED,UNT[L SIGN OR W CHAR ARE EXAM INEo. ERROR F7 WILL OCCUR IF MORE THAN K CHAR ARE AVA IL TO READ WIoTH2 ,2 ,10 SM SWL BL SM INPLUS ,2 BNR ,II -+20 ,INPLUS B7 ERRF71 eM INPLUS ,70 ,610 BH IR DIG BE I R BLNK CM INPLUS ,00 ,610 BE IR BLNK ,20 CM INPLUS .610 BE I MINUS CM INPLUS ,610 010 BE SWL B ERR F7I DORG .-4 ,II TO ,INPLUS ·-6 , TERM C BL ERR F 7 I SM IR DIGt6 ,I I READ B DORG .-4 SF FAC B SWL DORG ·-4 FAC ,FlCZ TF SET FIXED ZERO INTO FAC ,911 , SET ERROR F7 INDICATION TFM EI ,617 SWL 8 DORG .-4 ,6 SF FPIMK TF FLT END ,ICON2+6 ,lOC BNF I FLOAT CF LOC ,FAC ,6 TFl LOC 8NF 8SWF-12 ,E I BR IF NCT ERROR TYPE F7 CF EI ERASE ERROR F 1 INCICATION 8 ERCOM2 DORG .-4 ,00 ,10 CM FAe BE ZERFAC ,FAt MF 99 STORE SIGN ,FXt-i ,11 TR 8EU-9 FAC-2 ,11, TF ,FlZALP CLEAR FAC CHAR. K ,K TF SAVE TFM .BETA-9 ·.23 04631t 04646 04658 04670 04682 04690 04702 04714 04726 04738 04750 04762 04174 04786 04798 04805 04806 04818 04830 04842 04854 04861 04862 04874 04881 04882 04894 04906 04913 04914 04926 04938 04950 04962 04914 04986 04998 05005 05006 05018 05030 05042 05054 05066 05078 .. , .. 46 26 16 16 43 26 26 16 07004 05935 04812 06034 05924 06775 02492 06034 12 05946 05924 05935 046% 04882 47 12 45 49 14 46 46 14 46 14 46 14 46 49 0593~ 000-2 OllOO -0002 0593N 04806 04842 0593N 04842 0593N 04862 0593N 05924 04882 OOOPO 01100 01200 000-0 C 12CO OOOKO 01200 OOOJO 01200 00000 25 24 41 12 49 00000 04812 04882 04812 04634 0593N 06775 01300 -0001 00000 32 49 02492 05924 coooo 00000 26 16 49 02492 OZ615 05924 0326C 0007P 00000 32 26 44 0211K 03116 05006 05971 0597J 05804 02615 07080 eoooo e5Z44 05971 00000 02492 02615 coooo 00000 OZ492 02836 00099 02594 CZ490 OZ565 05101 000-0 01Z00 OZ492 0271K 0279P 02221 -2594 33 06 H 33 49 14 46 11 31 26 26 16 15 01100 05726 -2492 -4334 05943 02772 03260 -4914 47 ~ 1620 MONITOR II 01260 01210 07280 01290 07300 07310 07320 07330 07340 01350 01360 01310 07360 07390 01400 01410 01420 07430 01440 01450 07460 07410 07480 01490 07500 07510 01520 01530 07540 07550 01560 01510 01580 01590 07600 01610 01620 07630 01640 01650 01660 01670 01680 01690 01700 01710 01720 07730 07740 01750 01760 07710 01780 01790 01800 01810 , INORbO ICON2 WAHl WAPT I "COl WRTALP RWA REPSW MATSW REPSW3 LOCO LOCOZ RWA2 COMPS' WIOTH LAST RAOOll VERSION .. FORTRAN II-D SUBROUTINES SET 80 *+44 FINO HI ORO DIGIT SM SAVE ,01 .10 .. ADJUST CHAR AM ,01 --13 8 ·-36 DORG ·-3 TR FNH , --33 ,611 *.]5 TF ,FNH FINO AND CLEAR RECORD MARK AM ,01 *.23 BNR ·-12 .-1 TOM ,0 ,6 TO FAC+! ,RECMk REPLACE RECORD MARK , ZERO-74 TF 8ETA CLEAR BETA SF FNH ,6 81 ,6 FINISH B READ IF 01 DORe FORMAT - SUBROUTINES 1620 FORTRAN 11-0 DORG START+1637 TFM MAX ,8 ,0681 WRTALP 8 DORG ·-3 TFM MAX ,0881 ,8 B WRTALP DORG ·-3 TFM MAX ,1080 ,8 TOM RWEFSW COMMON FOR EACH WRITE 01 TF DATlNH+2 ,MAX-Z [NITIALlZATION FOR EACH Ro OR WRITE MAX-l SF ,*-] OS 2 ,--2 OS 1 SET TO 1 WHEN MATRIX HAS CONTROL OS 2 .-1 TFM ,00000 ,111 TOM SWL+l ,2 ,·-1 ,loe OF DECIMAL AS SPEC BY FORMAT OS 2 OS 2 ,*-3 TWICE LOC 0 ,9 TFM MESERRt8 ,67Q TFM MAX2 ,INH ,MAX MAX2 A MAX 2 ,MAX CONTINUATION OF RWA. ALSO USED AFTER EACH OUTPUT RECORD NOT TERMINATED BY COMPL T MACRO TFM LAST ,INH ,-I TO~ COMPSW ,*-) ,-I PROHIBITS,O REQUIRES OUTPUT OS TR INH-I ,STZERO+ 1 TR INH+86 ,STZERO MAX-2 ,06 CM .10 OS NO. OF EfF. DIGITS IN FIEla 3 BNE ·+24 RCTY , AOR OF RM H END OF VAR IABLE OUT REC OS 5 ,*-5 BD BSWF ,R"EFS~ TFM 10RT ,*+23 ,OAT INH-4 ,7 B 10GT CM MAX-2 ,06 ,10 BHE -+24 ALLGWS GCOF SWITCH FOR RATV .. .-'t ,. , ,---2 PAGE 05090 0510Z 05114 051Z6 05134 05134 05146 05158 05110 05182 05194 05206 0521B 05230 05238 05245 05488 05488 05500 05508 05508 05520 05528 05528 05540 05552 05564 05512 05573 05575 05576 05588 05598 05596 05600 05612 05624 05636 05648 05660 05668 05612 05684 05696 05705 05108 05720 05726 05132 05144 05756 05768 05780 48U 05134 02565 05101 050ge 00000 000-1 -0001 COOOO 0510J 02792 -0001 00000 00000 02403 02693 00000 49 4R 0279K 05181 05181 05156 051BJ 02493 02603 0279K 0311J 04962 16 49 05914 05540 0-687 00000 16 49 05914 05540 0-887 COOOO 16 15 26 32 05914 05943 06049 05913 2 1 2 05575 05925 2 2 02615 06021 06027 06027 CJ080 00001 05912 00000 05126 0566f C 06052 06139 05912 3 05132 ooooc 5 05816 00565 00566 05912 058C4 -6053 CCOOJ 43 12 11 49 31 26 11 45 15 25 26 32 16 15 16 16 21 21 16 15 31 31 14 47 34 43 16 49 14 47 00000 -00000002 C0079 -6053 C5914 C5914 06230 06229 COO-6 01200 COI02 05943 -5767 -6043 COO-6 01200 16 1620 01820 07830 07840 07850 07860 01810 07880 01890 07900 01910 01920 01930 07940 07950 07960 07HO 01980 01990 08000 08010 06020 08030 08040 08050 08060 08070 08080 08090 08100 08110 08120 08130 08140 08150 08160 08170 08180 08190 08200 08210 08220 08230 08240 08250 BC4 TO~ HS.F SWF RA TYI RAPTl RACOI ROALP MAX ......'. ..... SWL INPLUS RWEFSW WIOTH2 OPG LaC SWC MAX2 SWCAOJ OAToue ~ON ITOR II VERS ION 2 FORTRAN 11-0 SUBROUTINES . CONTROLS POSITION IN FOR~AT SPECS AM SWF ~ , S.. F TF .11 *+18 BR TO AOR INDICATED By FORMAT SPEC. .6. B SWF OS 5 ,0681 TFM MAX .8 ROALP B OORG .-3 ,O8~7 MAX TFM .8 RCALP B OORG . - ) .1080 .8 TF" MAX TOM RWEFSW .0 ,.-1 OS 4 B RWA IlQRG .-4 SWl I S A TRINARY SWITCH USED TO BRANCH TO THE PROPER SOURCE TO OBTAIN THE LOCATION THAT GOES WITH THE FaRHAT HACRO BB FOR OBJECT PROGRAM ~EI NG P ERFORMEO Nap FOR REDe CCNTRCL FOR HATRIX CONTROL B NOP MATRX 2 WORKING POSITION OF 1/0 RECORD 5 OS MATRIX CCNTROL SETS SWL TO 49 SWl+ 1 TOM .9 ,*-4 1 I FOR WRf, 0 FOR RD, FLAG FOR E OS ,*-1 OS 3 ,MATS~ BO SWC+12 Nap TEMP ACR OF DEC PT IN GAMMA ,*-5 OS 5 CORE LOCATION TO BE USED OS 5 OBTAINED eR TO PROPER MACRO AOR AFTER LaC SWl+l TOM .2 BR IF WRITING ,RWEFSW -+20 BD SWC AOJ 8 .6 DORG ·-4 SET TC REQUIRE OUTPUT TOM COMPSW .0 CF LaC TWICE MAXIMUM CHAR FOR OUTPUT 5 DS 8 ,_-5 RETURN ACO OF MACRO IN CONTROL DS OORG ·-4 DSA OUDH .. .' .- PAGE SET .-72 Fl T END-5.2 ... .. .. .. 46 15 0512C C3113 05B16 0582B 05840 05851 05852 05864 05872 05872 05884 05892 05892 05904 05914 05916 05923 11 -0005 16 49 05851 05846 0585J 5 05914 05904 16 49 05914 05904 0-887 00000 16 15 05914 05943 4 05552 CJ080 00000 06408 5 05925 1 3 05984 OOOOC coooo 41 05912 05984 05996 06003 06004 06016 06027 06028 06034 06035 06039 15 43 49 05925 06004 15 05668 05971 5 OOOOC C 2.0 06039 06041 INH 06042 06047 OB290 2.0 06047 06049 DC -0 OGM DC 08300 08310 49 05924 05935 05936 05943 05946 05948 05960 05966 05971 DC -0 DGM 08210 08280 OATINH OSA 08260 26 49 15 43 41 17 0040C 051n 05804 COO02 C~85J COOOO 0-681 COOOO 00000 00009 C5573 GOOOO 5 5 33 49 COO02 05943 COOOO 0603~ GCOOO 00000 ccooo 5 x -2607 2 I 5 X -6053 2 06050 06051 .0 481 1620 MONITOR II 08320 ENOFOR DAC 0 08330 INH OS 08340 OS 08350 IN OS 08360 S HERO DC -0 08310 DO 08380 00 08390 00 08400 00 08410 DO 08420 00 08430 00 08"40 DC -0 08450 FLlERS DC 08460 08470 08480 08490 08500 08510 08520 08530 08540 08550 08560 08510 08580 08590 08600 08610 08620 08630 08640 08650 08660 08670 08680 08690 08700 08710 08720 08730 08740 08750 08760 08770 08180 08190 08800 08810 08820 08830 MATRIx LOCAOJ MATRX2 SLASH SLASH2 .R ITE IOCR CK_ FORTRAN 11-0 SUBROUT INE S SET .ENOFOR 174 116 2 PAGE 1 x 06053 1.0 06053 06227 06221 06229 ,lN~+114 .00 2 .00 06230 06242 06254 06266 06218 06290 06302 06315 2 ,D' 06311 , .0246810 .0246810 .0246810 .0246810 .0246810 .0246810 .0246810 OS 5 TOM MATS" MACRO TO PROCESS MATRIC IES 01 TOM SWL+1 .9 TF ,FP2 LOCAOJ 8NF .ATRX2-12. HATR I X-I TFM LOC.OJ .00 .10 OS ,--3 ADJUST LOC FOR MATRIX 2 S LOCAOJ .K MATRIX-l .lOCAOJ S A MATRIX-l .LOCAOJ RETURN FRO~ SWL. EACH MATRIX ELEMENT TF LaC .MATRIX-I HOYE A~JUSTED LOCATION PAR SM .10 01 BNE -+24 TOM MATSk .0 BNL SkC+ 12 B8 OORG --9 MACRO FOR AN 1/0 CARRIAGE RETURN OUR ING A FORMAT STATEMENT TOH COMENO+1 .9 80 8R IF kRlTlNG .RWEFSW SLASH2 8 COMENO OORG .-4 80 ,CaMP SW IOCR BR TO lC CR IF OUTPUT RECORD BLANK CM OATlNH+2 ,06 ,10 BH WR I TE BR IF NOT TYPEWRITER OUTPUT TF LAST .FLZERS .6 SM ,10, LAST .02 ERASE BLANKS FROM END OF 110 RECORD ,610 CM LAST .00 ·-]6 BE CM ,INH LAST BL COM END , •• 23 TFM 10RT ,OATtNH-4 .7 B 10PT 8 RWA2-12 OORG ·-4 CM MAX-2 .08 .10 os 3 ,--2 DEC SPEC PLUS CHAR OF ARG BNL WR I TE .. , COMENa YERS ION 2 .. .. 06322 06324 06336 06348 06360 06312 06380 06384 06396 06408 06420 06432 06444 06456 06468 06480 06482 06482 06494 06506 06513 06514 06526 06538 06550 06562 06574 06586 06598 06610 06622 06634 06646 06653 06654 06663 06666 482 C 114 176 2 -0 -0 -0 -0-0- -0 -0 -0 -0-0-0-'0-0-02 -o-c-o-c-c -o-c- 0-0-0 C-O-O 0-0-0 0-0-0 0-0-0 0-0-0 c-o-o 15 46 42 5 05513 05925 0638C 06396 06380 2 0638C 06323 06323 05911 03843 06468 05573 05984 OOOOC 15 43 49 06647 06514 06646 00009 05943 00000 43 14 46 26 12 14 46 14 47 16 06654 06049 06622 0512C 05726 05120 06550 05726 06646 00565 00532 05648 C5668 COO-6 01100 06317 000-2 COO-O 01200 -6053 C 1300 -6645 -6043 15 15 26 44 16 22 22 21 26 12 47 ~9 49 14 ~6 05912 3 06622 COCOI COO09 03052 06323 ooo-c 02221 06380 06380 06323 000-1 01200 coooo 01300 COOOO ceooo 000-8 CIlOO 18 1620 MONITOR II 08840 08850 08860 08810 08880 088g0 08900 08910 08920 08930 08940 08950 08960 08910 08980 08990 09000 09010 09020 09030 09040 09050 09060 09010 09080 09090 OglOO 09110 09120 09130 09140 09150 09160 09110 09180 09190 092CO 09210 09220 09230 09240 09250 09260 09210 09280 09290 09300 09310 09320 09330 09340 09350 09360 09310 09380 09390 VERS ION 2 FORTRAN 11-0 SUBROUTINES SET 6 CO~ENO OORG '-4 ~ACRC as COMPL T TOM CHAR2 OS 6 OORG REDO BO TO TFM 8 OORG REOOA TOM TOM TERM OS AM TF B DORG B1 ,*-1 TWICE ~ODIFIEO CHARACTERISTIC SLASH+l2 >-4 REDO A+24.~AT REOOA+23 SWC AOJ SWL '-4 SWL'I COMPSW 5 SWF SWF SLASH .-4 4g 06646 00000 49 3 06641 3 06494 CCOOC H 25 16 49 06776 06775 {)6034 05924 05573 05668 -6752 00000 15 15 ceoci CCOOO 26 49 05925 05668 5 05851 05851 06482 4g 06808 06816 06828 11 12 068~0 ~6 06852 06864 06816 06888 06900 06912 06919 06920 06931 06932 06944 06956 06968 06980 06992 01003 01004 07016 01028 07040 01041 01048 01060 01072 01079 01080 01086 46 21 41 12 26 49 05851 05512 06888 05816 05572 05816 05851 05851 05828 01092 01104 01110 01116 01128 01lH 01144 08000 08000 OBO 12 08024 OB032 08032 Ig TERMINATING IIC CONTROL 3 COMENO+! ,2 3 PAGE 06678 06665 SW ,COMPSh .REDO A MACRO PERMITS REDOING BACK TO ,1 RETURN FROM SWL IF ~ORE DATA VOID REDO USING swc EFFECT ON COMPS. REFERENCE ADR IN 110 RECORD ,> ,5 , SWF ,Il MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES SUB FRO~ REP SW, INITIAllY SET TO ZERO IF REPS. NEG , SET TOREPS REOo AND REPEAT FORMAT IF REPSW ZERO, LAST FORMAT REPETITION IS COMPLETE IF REPSW PLUS, STEP DOWN AWO REPEAT FORMAT SPEC REP AM SWF ,1 SM REP SW ,I ,10, CONTRCL REPET IT ION OF F I E~ OS BH REP 2 BE 6SWF A REP sw ,11 I SWF BNH 6SWF REP2 SM SWF ,2 ,SWF TF SWF ,Il SWF-23 B OORG .-4 REP.] SF REPSW3-1 ,> .A OS 5 WORKING AREA AoR REF TO FAt OR GAM ,7 ,10 AM SWF SM REPSW ,! ,10 BH REP 2 BE BSWF , SWF A REPSW 3 ,Il B REP 2-12 ,> OPT OS 5 TEMP LOC OF DEC PT IN OUTPUT RO ERF9 TFM SWC ADJ ,ER COM MACRO FOR ERROR f9 WHEN NR IT ING TF LAST ,MAX 2 ,679 ,9 TF" EI 8 SWL OORG '-4 xrYPE AM SWF ,3 MACRO fOR SK I PP ING FIELDS , SWF A ,11 LAST B BSWF OORG >-4 ERCOM2 RCTY WA2 OS WORKING AREA AoR REF TO FAC OR GAM , .. ,--5 06681 06688 066g8 06100 06101 06708 06120 06732 06744 06751 06752 06764 06175 06176 06768 06800 06801 06808 IS Il 00002 -0005 C585J COOOO -C001 000-1 01100 01200 C585J 01100 -0002 0585J COOOO 16 26 16 49 05514 5 05851 05515 06888 05816 05575 06816 5 06034 05126 02615 05924 11 21 49 05851 05126 05816 -0003 0585J OOOCC 34 OOOOC C 00102 H 34 02601 OOOCC 5 02616 058C4 5 5 00100 00102 38 36 49 08032 08032 08046 C0102 00103 OOOCC 36 49 -3854 00000 00000 32 II 12 46 46 21 49 00000 000-1 000-1 CIlCO 01200 CS85J 00000 -7080 06021 0001g 00000 11 83 1620 MONITOR II 09400 09410 09420 CHAR 09430 094~0 09450 DPTM2 09460 09410 09~80 Og490 09500 09510 09520 A3 09530 WATV RCTY OS TR BSB8 OS VERSION 2 FORTRAN 11-0 SUBROUTINES SET OUOH 5 EI'I BSWF-12 5 os 5 oORG OBOOO 38 '3 36 '3 B -+22 oORG >-3 OSC 9 01943]033 oSA FIX ,*-5 ,FLZERS-I MOolFIEC CHARACTER I STiC RES TORES RECORD MARK , •• 5 TEMP AOR OF DEC PT IN 110 REt, -2 ,00102 ,00103 ,019433033 PAGE 31 60 08045 08045 08046 OB058 OBOOO 09540 TRA 09550 TCO 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09610 09680 09690 09700 09710 09120 09130 09140 09150 09160 09110 09180 09190 098CO Og810 Og820 09830 09840 09850 09860 09810 09880 09890 09900 1620 FORTRAN 11-0 loA FORMAT 1620 FOR TRAN 11-0 loA FORMAT DORG START OS 3 TFL FAC ,FIX-I ,Il IFIX 8 ,.(0) BLX~ FMON 00 00100 ,0 ,. CO) BUM FMON 00 00100 ,0 ,e(O) BLXM FMON 00 00100 ,0 ,.(0) BLXM fMON 00 00100 ,0 BUM FMON ,*(01 00 00100 ,0 BLXM FMON ,·I(l) 00 00100 ,0 ,.(OJ BUM FMON 00 00100 ,0 6LXM FMON •• I(l) 00 00100 ,0 ,.,ot BLX. FMON DO 00100 ,0 ,.(0) BUM FMON 00 00100 ,0 ,_(0) BLXM FHON 00 00100 ,0 B CLOBB B CLOTT WRITE ALPHAMERIC TF SWF .WATY-l B ~ATYl TF SWF .WAPT-l WAPT! 8 08000 06316 COO02 5 x 00500 00000 SECONDARY LINKAGE 03851 03853 03854 03866 03818 03890 03902 03914 03926 03938 03950 03962 03974 03986 03998 04010 04022 04034 04046 04058 04010 04082 , , , , , , , , , , 0~094 48 /, 06 49 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 OH06 04118 0"130 04H2 04154 -c 04166 04118 04190 04202 26 4g 26 49 66 -0 49 49 3 02492 04998 01228 OOIOC 01228 00100 01228 00100 01228 00100 01228 00100 01228 00100 01228 oOloe 01228 00100 07228 oOlce 01228 OOIOC 01228 OOICC 01114 0115~ 0385L coooo 03818 00000 03g02 00000 C3926 00000 03950 00000 03914 00000 0399B 00000 04022 00000 04046 00000 04010 00000 04094 00000 C4118 00000 00000 COOOO 05851 05488 05851 05508 04165 00000 04189 coooo 20 1620 MCNIrOR II 09910 09920 09930 09940 09950 09960 09970 09980 09990 10000 10010 10020 10030 10040 10050 10060 10070 10080 10090 10100 10110 10120 10130 10140 10150 10160 10110 10180 10190 10200 10110 10220 10230 10240 10250 10260 10270 10280 10290 10300 10310 10320 10330 10340 10350 10360 10370 10380 10390 10400 10410 10420 10HO 10440 10450 10460 TF 8 SWF WACOI VERSION 2 FORTRAN 11-0 SUBROUTINES SET ,WACO-I 0~226 ALPHA~ER[C READ SWF ,RATY-l UTYI .RAPT-l SWF RAPTI ,RACD-l SWF RACOI ,8 8U~ FMON ,"lOt 00 0030e ,0 WR IrE I TFM WA ,GAfI!+2 8 WRIT 11 8lXM FMON ,*(0) 00700 00 ,0 .-(0) BU' FMON 00 00800 ,0 ,.(0) 8lXM FMON DO 00100 ,0 BlX, FMON ,*CO) , 00 ,0 00500 ,.CO) BLXM FMON 00 00500 ,0 ,.(0) BUM FMON 00 00500 ,0 1620 FORTRAN 11-0 I WI FORMAT - SUBROUTINES RETURN FROM SWL VIA SWC [F WRITING I TYPE VALUE PUT IN FAC IN I FORM, EXPANDED TO ALPHA IN GAMMA RIGHT TO LEFT. HO CONTAINS AOR OF HIGH ORDER DIGIT IN GAM. AFTER VALUE IN GAM IS SIGNEO,CHECKED FOR WIDTH, MOVE TO OUTPUT RECORD. ERF81 RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. WRITII TFM WA2 ,FIC+l TFL FAC ,loC ,11 BNF WRTl2+12 ,FAC-I TF FIXENO+6 ,ICON3+6 B IFIX OORG --4 WRTl2 TOM FIXENO+l ,2 TR &AM-19 ,MASK I-I TFM Ho ,GAM+l WRTI SM WA 2 ,I SM NA ,2 TD ,NA 2 NA ,611 BD ,11 ,NA 2 I DIG [ DIG+l2 8 OORG --4 10lG TF ,WI HO CF GAM PREVENTS PREMATURE fERM.FOR NEG ARG Ho DS 5 lOR OF HI ORDER NON ZERO DIGIT 8NF NRH ,w. ,11 CM HO ,GAM+l ME IIRT SGN TFM LAST ,7000 ,68 BSNF 8 DORG ·-4 TF B TF B TF 8 PAGE 0~214 , , , , , , , .., , ,- 04238 04250 04262 04274 04286 04298 04310 0~322 04334 04346 04358 04370 04382 04394 04406 04418 OH30 04442 04454 04466 04418 04490 04502 04514 04526 04538 04550 04557 04558 04570 04582 04594 D4606 04618 04630 04642 04649 D4650 04662 04673 04674 04686 04698 04710 04722 04729 26 49 05851 05528 C4213 ceooo 26 49 26 49 26 04237 coooo 66 -0 16 49 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 05851 05852 05851 05872 05851 05892 07228 0030C 06931 04502 07228 0070e 07228 00800 07228 0070e 07228 0050e 07228 0050C 07228 00500 COOOO 04285 0-000 CHIO 00000 -2557 COOOO 04358 00000 04382 00000 04406 00000 04430 ecooo C4454 COOOO 04478 COOOO 16 06 44 26 49 07086 02492 04570 03074 04998 -2493 C597J 02491 05208 ceooo 15 31 16 12 12 25 H 49 03069 02536 04673 07086 06931 0693J 0465C 04662 00002 05210 -2556 -0001 -0002 0708e C708D 00000 26 33 04673 02555 5 04594 04673 04730 0512e 05816 06931 oeooo ~9 44 14 47 16 49 21 C~261 0693J -2556 01200 opooo 00000 485 1620 MONITOR 11 10410 10480 10490 10500 10510 10520 10530 10540 10550 10560 10570 10580 10590 10600 10610 10620 10630 10640 10650 10660 10670 10680 10690 10700 10710 10720 10730 10735 10740 10750 10760 10710 101av 10790 10800 10810 10820 10830 10840 10850 10860 10870 10880 10890 10900 10910 10920 10930 10940 10950 10960 10970 10980 10990 11000 WRTSGN BNF SM TFM WR1I3 SM TFM S C BH SF OUT OS I SM TR TFM B DORG ERF81 TR TR CM TFM Bl TF TFM 8 B OORG IFIX CM BP TF B OORG MF C BNH leCN3 MASKI NRT 13 HO HO HO OUT OUT OUT ER F8 OUT 5 OUT OUT OUT LAST BSWF _-4 DUD H+11 DUD H+11 DAT INH+2 EI+2 ER COM 2 DATDUD+2 10RT 10PT ER COM 2 --4 FAC FORTRAN I [-D SUBROUTINES ,610 ,HO ,NIDTH ,- ,lAST. ,2 ,HO ,00 , HI ORDER WKG AOR IN 110 RECORD, I TVPE ,611 ,610 ,FLZERS-67 ,HO ,11 ,08 ,10 ,67800 .. SETS ERROR F8 IND ERASES REC MIRK ,DATlNH+2 ,.+23 ,DITDUD-4 ,7 ,00 ,FXZ ,FAC-2 ,K ."56 TD~ FXERR+25 ,I TFM EI ,572 ,FX9 TF FAC B FXERR OORG --3 TF BETA ,ZERO-51 TF IMSA ,FXZ TF ·.30 ,IMSAPF .+18 ,FAC S ,FAC-2 A DUMMV TF FAC ,I MSA B MU OORG --4 8 NRT 12 OORG '-4 OAe 11,0000000000 ' OOoooooooe' DORG 0800e 38 A5 ,00702 36 A5 ,00703 .+22 8 DORG ·-3 ,10 .. .... .. .. .. .. ,9, ,I NO STORE SIGN I S CHAR GREATER THAN K SET ERR TYPE SET ER E2. OVFl IN FIX YES, FAC 2 FX9 CLEAR ADD AREA ALIGN DEC IMAL POINTS PAGE SET ,C ... ·.32 FAC FIXENO --3 MU-l FAC VERSION 2 ,FAC ,2 ,20 ,1 04730 010742 04754 04766 04778 04790 04B02 04814 04826 04837 04838 04850 04862 04874 04886 04893 04B94 04906 04918 D4930 04942 04954 04966 04978 04990 04997 04998 05010 05022 05034 05042 05042 05054 05066 05018 05090 05102 '05114 05122 05122 05134 051106 05158 05170 05182 05194 05201 05202 05209 05211 08000 08000 08012 08024 08032 486 04766 04673 0467L 04673 04837 04837 04837 04894 04837 5 04837 04837 0483P 0572C 05816 02492 -0002 ceOKO -0001 -2555 04673 05946 01100 00000 02618 02618 0604S 02617 0708e 06041 00565 00532 0708C 06250 C461L 000-8 C7800 01300 06049 -4989 -6035 00000 46 26 49 02492 05042 02492 03068 CCO-O 01100 03260 VOOOO 71 24 47 15 16 26 49 03019 02492 05122 03009 02615 02492 02984 02490 02221 01100 00001 OON72 03250 00000 26 26 26 22 2l 26 49 02603 02575 05176 05176 99999 02492 03020 02716 03260 02787 02492 02490 02575 COOOO loR 04558 00000 44 12 16 12 16 22 24 46 32 21 12 31 16 49 H 31 14 16 41 26 16 49 49 14 05726 -0002 0461l 000-0 00000 11 X 3B 36 49 08032 08032 08046 00702 00703 00000 22 1620 11010 A5 11020 ~ONIToR oSC 9 019466016 OSA FIX II YERS ION FoRTUN 11-0 SU8RoUT INES SET 08045 08046 08058 08000 TRA 11040 TCo 11050 11060 11070 n080 11090 Illeo llno n120 11130 11140 11150 11160 n170 11180 11190 11200 11210 11220 11230 11240 n250 11260 ll270 11280 ll290 ll300 11310 11320 11330 11340 11350 11360 ll370 11380 11390 IHOO ll410 IH20 11430 11HO 11450 ll460 ll470 11480 11490 ll500 11510 1620 FORTRAN 11-0 EF-HTVPE 1620 FORTRAN II-a EF-HTYPE DORG START as 3 BLXM FMON ,·CO) , 00 00100 ,0 BLXM FMoN ,*'01 00 00100 ,a BLX~ FMON ,*(OJ 00 00100 ,0 &LXM FMON , .'OJ 00 00100 ,0 BLXM FMON ,*C(]) 00 00100 ,0 BLXM FMON ,*fOJ 00 00100 ,0 BLX~ FMON ,*(OJ 00 00100 ,0 ,.(0) BLX~ FMON 00 00100 ,a ,. ((n BLXM FMON 00 00100 ,0 BLXM FMCN ,.(0' 00 00100 ,a ,w((J) BLXM FMCN 00 00100 ,0 BLXM FMON ,.ro. 00 00100 ,a B CLOBB B CLOTT WRITE ALPHA~ERIC TF SWF ,WATY-I B WATVI TF SWF ,WAPT-I B WAPTI TF SWF ,WACD-I B WACDI READ ALPHAMERIC TF SWF ,UTY-I RATVI B TF SWF ,RAPT-I B RAPTI os 5 TF SWF ,RACO-I B RACOI ,8 8LXM FMON ,.(0) 00 00300 ,0 5 X 36 49 -3854 ocooe 00000 00500 OCOOO 03851 03853 03854 03866 03878 03890 03902 03914 03926 03938 03950 03962 03974 03986 03998 04010 04022 04034 04046 04058 0"070 04082 04094 04106 04118 04130 04142 04154 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 49 49 3 07228 00100 07228 001ce 07228 00100 07228 oOloe 07228 00100 07228 oOloe 07228 00100 07228 oOloe 07228 00100 07228 oOloe 07228 00100 07228 oOloe 07174 07154 C3854 00000 C3878 00000 C3902 00000 03926 00000 03950 00000 039H COOOO 03998 00000 04022 COOOO 04046 00000 04070 00000 04094 00000 04llB 00000 00000 00000 04166 04178 04190 04202 04214 04226 26 49 26 49 26 49 05851 05488 05851 05508 05851 05528 04165 00000 04189 00000 04213 00000 04238 04250 04262 04274 04285 04286 04298 04310 04322 26 05851 05852 05851 05872 5 05851 05892 07228 0030C 04237 00000 04261 00000 08000 FOR~AT FOR~AT - SECONDARY LINKAGE , , , , , , , , , , EF2S~ 23 08032 08045 11030 .... PAGE ,019466016 " , 49 26 49 26 49 66 -0 04285 0-000 OHIO coooo 487 1620 MONITOR II 11520 11530 11540 11550 11560 11570 11580 11590 11600 11610 11620 ll630 11640 11650 11660 ll670 11680 11690 11100 11710 11720 ll130 11HO 11750 ll760 11770 ll780 11790 11800 11810 11820 11830 11840 ll850 11860 11870 ll880 11890 11900 11910 11920 11930 ll940 11950 11960 ll970 11980 11990 12000 12010 12020 12030 12040 12050 12060 12070 BLXM FMON 00 00400 8LX~ FMON 00 00700 BLXII FMON 00 00800 BLXM FMON 00 00700 HYPE ETYPE ~TYPE GlAgg EFtO" ROFCH FCHN8 CF B SF B RWEFSW EF tOM YERS ION FOR TRAN 11-0 SUBROUT INES , ,,*, o. ,,*10) ,*10) , ,0 ,0 ,0 ,0 MACRO FOR F TYPE READ AND WR ITE 04334 04346 04358 04370 04382 04394 04406 04418 66 -0 66 -0 66 -0 66 -0 07228 0040e 07228 0070e 07228 00800 07228 00700 04334 00000 04358 00000 C4182 COOOO 04406 00000 04"30 04"42 49 05943 04526 COOOO 0-000 , , 04454 04466 Olt478 04490 32 49 11 49 05943 OH26 e5851 05150 OOOCO C-OOO -0003 0-000 , 04502 04514 04526 04538 04550 04562 0"574 04586 04598 04610 04622 04634 04646 04658 04670 04682 04694 0"706 04718 04730 ·04742 04154 04766 04778 04186 04798 04810 04822 04834 048"6 04858 0"870 04877 04818 04890 04902 04914 04921 04922 66 07228 0060e 05851 05705 05851 05598 05935 05946 05946 05726 05726 07004 06775 06775 07110 06931 00097 00099 04986 02492 06034 04786 04285 05390 C593N 04878 07110 05935 05935 04754 04285 05]9C C4502 COOOO -0003 0585J -C002 0585J 05726 05705 05705 05946 06027 e1100 e5726 -0002 05705 02792 ceooo COO-O 05943 C279P -4358 0593N -5250 47 16 49 0593N 04922 04285 0<;3ge OOOKO Cl200 -4534 00000 14 059U OOOJO , ,8 MACRO FOR E TYPE READ AND WRITE RWEFSW EFCOM ,8 SWF ,3 B HTYPEI ,8 1620 FORTRAN 11-0 EF-~TVPE FORMAT - SUBROUTINES 8LX~ FMON ,a(O' 00 ,a 00600 AM SWF ,3 TF WIDTH ,SWF ,11 AM ,2 SWF TF LDt 0 ,ShF ,11 TF ,UST I NPLUS TF WIDTH 2 ,WIDTH A WIOTH 2 ,WIDTH A LAST ,WIOTH2 C LAST ,MAX 2 8H ER F9 TF TERM ,LAST SM TERM ,2 TF CHAR ,WIDTH TF WA ,FNH ,0 TOM 97 TFM 99 ,00 ,10 EF WRT BD ,RWEFSW TF FAC ,FLULP ,11 TFM SWCAOJ ,READ EF BNR -+32 ,11 ,INPLUS ,ERRF7E TFM EF2SW B1 BEF2SW ,00 ,61O, ELIMINHE LEADING BUNKS tM INPLUS 8NE FCH NB ,I SM CHAR tiD AM INPLUS ,2 INPLUS ,LAST C RO FtH BL ,EFEND+12 TF" EF2SW B BEF2Sh DORG '-4 CM INPLUS ,20 ,610. PROCESS FIRST NON BLANK CHARACTER BNE *+32 ,H MI~ TF" EF2S~ B BEF2S~ DDRG '-4 tM INPLUS ,10 ,610 AM PAGE SET ,-CO) 48S 33 -0 11 26 11 26 26 26 21 21 24 46 26 12 26 26 15 16 43 26 16 45 16 49 14 47 12 11 24 47 16 49 U ceo-a 01200 000-1 -0002 05726 01300 -5138 00000 24 1620 MONITOR [ I 12080 12090 12100 12110 12120 12130 12140 12150 12160 12110 12180 12190 12200 12210 12220 12230 12240 12250 12260 12270 12280 12290 12300 12310 12320 12330 12340 12350 12360 12370 12380 12390 12400 12410 12420 12430 12440 12450 12460 12470 12480 12490 12500 12510 12520 12530 12540 12550 12560 12570 12580 12590 12600 EF~RT BNE .+32 TF~ EF2SW 8EF2SW '-4 EF2SW BEF2SW B OORG TFM B DDRG C 8NH TF TF A TR VERSIO~ FORTR~N 11-0 SUBROUTI NE S SH ,EF PLUS ,EFTYPE+36 '-4 LOC 0 ,F 1t+24 LOC 0 lOCO 2 LOCO 2 GAM-59 TF~ WA TFM WA2 TFM SWCADJ SM WIDTH BNF SWL SH TERH SH WIDTH B SWl DORG '-4 ,F .LOC 0 ,LOC 0 ,MASK F-1 ,GA,.. .FAC-1 ,EF~W ,2 ,RWHSW ,8 ,4 P4GE 04934 04946 0495B 04965 04966 0497e 04985 04986 04998 05010 05022 05034 05046 05058 05010 05082 05094 05106 0511B 05130 05142 05149 ,10 ,10 HACRO FOR HOLLERITH TYPE REAC AND WAITE HTYPE1 BseA -+12 TF~ 00314 ,00000 ,-S~F A 00314 BUM _+12 ,00000 (11 AM SWF ,00002 MA HROWRT+6 ,UST HA HRDWR T+ 11, SWF eo ,RWEFSW *+36 MA HRDWR T+ 11,LAST HRDWRT+6 ,SWF HA SH SWF ,00002 A SWF ,00314 A LAST ,00314 ,HU2 LAST C BH ERCOM2 HROWRT TF DUMMY III ,DUMMYIl) ,00002( 11 BXH -+12 .-00002 (2) 8CXH .-21t TOM tDMPSW ,0 8SBe BSWF eEF2SW TFM MBASE+5 .FTYPE B7 GZAQQ MASKF OAt 31.000000000000000000000000000000 ' 000000000000000000000000000000' DORG 0800e 38 A6 ,00702 36 A6 .00703 _+22 B OORG *-3 A6 DSC 9 ,0194B2017 0194B2011 DSA FIX 0515C 05162 05174 05186 05198 05210 05222 05234 05246 0525B 05210 05282 05294 05306 05HA 05330 05342 05354 05366 05378 05390 05402 05411 08000 08000 08012 08024 08032 08032 41 16 49 0496f 04285 0539C -45146 16 49 042B5 05390 -4594 00000 24 41 26 26 21 31 16 16 It 12 44 12 12 49 0559B C5022 05598 05596 05596 02496 06931 01086 06034 05105 05924 06115 057C5 05924 C2219 01100 02219 C5598 05598 05410 -2555 -2491 -4382 000-2 05943 -OOOB 000-4 00000 60 16 21 66 11 70 70 43 10 10 12 21 21 24 46 26 62 64 15 60 16 49 05162 00001 00314 -0000 00314 0585J 05198 CCO-O 05851 -C002 05336 05726 05341 05851 0521C C5943 C5341 05126 05336 05851 05851 -0002 05851 C0314 05726 00314 05126 06021 07080 01100 999R9 999R9 COO-2 05354 OO-OK 05330 05668 O.COOo COO02 05B16 01423 -4430 04502 31 x 38 36 49 08032 08032 08046 25 01200 COOOO 00102 00703 COOOO 5 X 08045 48 !J 1620 MONITOR II VERSION 2 FORTRAN 11-0 SUBROUTINES TRA 12620 TCD 12630 12640 12650 12660 12670 12680 12690 12700 12710 12720 12130 12740 12150 12160 12110 12780 12190 12800 12810 12820 12B30 12840 12850 12860 12Bl0 12880 12890 12900 12910 12920 12930 129';0 12950 12960 12970 12980 12990 13000 13010 13020 11030 13040 13050 13060 13070 13080 13090 13100 \3110 13120 13130 1620 FORTRAN 11-0 EF-HTYPE 2 FOR~AT 1&20 FORTRAN 11-0 EF-HTYPE 2 FOR~AT - SUBROUT INES DORG fTYPE BUM FMON ,-COJ ,0 00 00500 , . (0) BLX~ FMON 00 00500 ,0 BUM FMON ,'(0) ,0 00 00500 ,FIX TFH MBASE.5 TFH EFTERM+18,EF TYPE ,6 8 EF2SW DORG '-4 SF 99 tHAR SM ,10 .1 AM INPLUS ,2 tM ,610 INPLUS ,DO BE LOG DIG CM INPlUS ,10 ,610 8H EF DIG BE LOG DIG ,03 tM INPLUS ,610 BE EF DEC BNF ERRF1 E ,RWEFSW TFM EXP ,9 ,000 TOM E EXPAO+l.l OS ,·-2 VALUE OF CALC CHAR FOR OUTPUT 3 CM ,45 ,610 INPLUS BE E EXP CM INPLUS ,40 ,610 BNL ERRF7E ,20 CM INPLUS ,610 E EXP M 8E CM INPLUS ,610 .10 BE E EXP .+24 BO ,97 SM CHAR ,9 .1 INPlUS C .TERM 8NL EEXPAD-12 EXP-l ,11 TO ,INPLUS AM INPlUS ,2 EEXP22+\2 8 DORG .-4 TOM E EXPAD+l,2 AM INPLUS ,2 SM CHAR ,10 .1 E EXP 8 OORG .-4 EXP ,11 TD ,lNPlUS A CHAR ,EXP EF END 8 08000 , , , EXP EEXP2 EEXP22 EEXPH EEXP EEXPAD PAGE 08045 08046 OB058 08000 12610 EFHIN EFPLUS EFTYPE SET , 04430 04430 04442 04454 04466 0447B 04490 04502 0451.; 04526 04533 04534 04546 04558 04570 04582 04594 04606 04618 04630 04642 04654 04666 ·04678 04687 04690 0';702 0471'; 04126 04138 04150 04762 04774 04786 OH98 04810 04822 04834 04846 04858 04865 04866 04878 04890 04902 0'0909 04910 04922 04934 490 36 49 -3854 000 DC 00000 00500 00000 66 -0 66 -0 66 -0 16 16 49 07228 0050C 07228 00500 07228 0050C 01423 05120 32 12 11 14 ';6 14 46 46 14 46 44 16 15 00000 COO-I -C002 000-0 01200 OOOPO 01100 01200 000-3 01200 .;6 14 46 1'0 46· 43 12 24 46 25 11 49 00099 07110 05935 0593N 0';942 059n 05042 04942 0593N 04974 0525C 04687 04923 3 0593N 04878 0593N 05250 0593N 04866 0593N 04878 0481C 07110 05935 0491C 04686 05935 04198 15 11 12 49 04923 05935 07110 04138 COO02 -0002 000-1 COOOO 25 21 49 04687 0711C 05126 0593N 04681 ccooo 14 46 14 0428~ C4430 COOOO 04454 00000 C4478 00000 -3854 -455B cooeD 05943 CO-DO COOOI 000M5 01200 OOOMO 01300 COOKO 01200 OOOJO C1200 C0097 00-01 06775 C1300 0593N -0002 00000 26 1620 MON[TOR [[ VERS [ON 2 13140 OORG '-4 EF D[G 13150 LOGO[G BNF ,98 13160 SM CHAR '[0 ,1 13170 B EF TERM 13180 OORG '-4 13190 EFrec BD ERRF 1 E ,91 13200 TFM LOC 0 ,00 ,10 13210 TFM EFTERM+18,EF PLUS 13220 ,-I roM 97 13230 CHAR ,I SM .10 13240 EF TERM B 13250 OORe .-4 13260 He[C CF 98 13210 CM WA ,F At-l 13280 BNL -+36 1)290 WA TO ,INPLUS ,till 13300 AM WA ,I [ 3310 EFTERM C INPLUS ,TERM 13320 BL EFTYPE 13330 EFENO BNF EFEN02 ,FNH .11, 13340 TFM ,99 FAC 01011 13350 8 SWL 13360 OORC '-3 13370 EFEN02 S CHAR ,LOC 0 [3380 BD ERR F7E ,CHAR-2 13390 CHAR-l SF TF 13400 FAC ,CHAR 11410 SF FNH ,6 BNF 13420 ,99 SWL 13430 SF FAC-2 13440 B SWL 13450 DORG '-4 13460 ERRF7E TF FAC ,FlZAlP .II. ,7 13470 TD~ ,11, EI 13480 B EFENO 13490 OORG '-4 13500 DORG 0800C 13510 3B A7 ,00702 13520 36 Al ,00103 13530 B -+22 13540 DORG 0-3 13550 A1 9 DSC ,019499009 019499009 13560 OSA FTYPE , .. FORTRAN I1-0 SUBROUTINES SET PAGE 04941 04942 04954 04966 04913 04914 04986 04998 05010 05022 05034 05041 05042 05054 05066 05078 05090 05102 05114 05126 05138 05150 05158 05158 05170 051B2 05194 05206 05218 05230 05242 05249 05250 05262 05274 05281 08ece 08000 08012 08024 08032 08032 TRUNCHES lOW ORDER O[GITS ZERO CHECK , F PLUS 2 lEROS TO FAC SET ER F7 INOICATION SWITCH 44 12 49 05042 07lIC 05102 00098 CCO-I 00000 43 16 16 15 12 49 05250 05598 05120 00091 OHIC 05102 00097 000-0 -4546 OCOOJ 000-1 00000 33 14 46 25 11 24 41 44 16 49 00098 06931 05102 0693J 06931 05935 04558 05158 02492 05924 -2491 01300 0593N -0001 06775 01300 0279K OOORR 00000 22 43 32 26 32 44 32 49 07110 05250 07109 26 15 49 02492 02615 05126 0219P OCOOP COOOO 38 36 49 08032 08032 08046 00102 00103 00000 36 49 -443e ocooc 00000 00500 ooooc 06 49 3 02492 04590 o 385L 00000 08045 OB045 OB046 0805B OBOOO 13510 TRA 13580 TCO 13590 13600 13610 13620 13630 13640 1620 FORTRAN [(-0 RAEF-ATVPE FOR~AT 1620 FORTRAN [(-0 RAEF-ATYPE FORMAT DDRG START OS 3 ,F[X-l TFl ,11 FAC B EFFIX OBOOO 024~2 0219K 05924 0249C 05924 27 ooooc 05598 07108 00000 07110 00000 0009~ COOOO 00000 5 X SECONDARY LINKAGE 03851 03853 03854 03866 4 UI 1620 MON ITOR II VERSION FORTRAN [(-0 13650 BlXM FMON ,* CO I 13660 00 00100 ,0 13670 BlXM FMON 0) 13680 00 00100 ,0 13690 BLX~ FMON ,*'01 13700 00 00100 ,0 13710 BUM FMON •• (OJ 13720 00 00100 ,0 13130 BlX~ FMON t. (0) 13140 00 00100 ,0 13750 BUM FMON ,*( 0) [3160 00 00100 ,0 13170 BUM FMON ,*(0) 13180 00 00100 ,0 13790 BLXM FMON ,*CO) 13800 00 00100 ,0 BlX~ FMON 13810 ,*(01 13820 00 00100 ,0 13B30 BUM FMON ,*'OJ 13840 00 00100 ,0 13B50 BLXM FMON ,* (0 I 13B60 00 00100 ,0 13810 B CLOBB 13880 B CLOTT 13890 WRITE ALPHAMERIC 13900 TF SWF ,WATY-l 13910 B WAHL 13920 TF , WAPT-l SWF 13930 8 WAPTl 13940 TF SWF , WACD-l 13950 B WACOI 13960 READ ALPHAMERIC 13970 SWF TF ,RA TV-I 13980 B RATVl 13990 TF SWF ,RAPT-l 14000 RAPT! B 14010 TF SWF ,RACO-I 14020 B RACDI ,8 14030 BlX~ FMON ,*CO) 14040 00 00300 ,0 14050 BLX~ FMON ,*(0) 14060 00 00400 ,0 14070 REAOEF BNF EFR02+12 ,Loe 14080 EFROI B 14090 ,·(0)> BUM FMON 14100 00 00800 ,0 14110 AIYPE AM SWF ,00003 14120 B ATYPEI 14130 t. (0) BlXM FMON 14140 00 00500 •a , . , 0) 14150 BlX~ FMCN 14160 00 00500 ,0 14110 ,. (e1 BIX" FMON 14180 00 00500 ,0 14190 1620 FORTRAN 11-0 RAEF-ATYPE feRMAT 14200 EFROI OF lOC SU8ROUTINES SET PAGE 03878 03B90 03902 03914 03926 03938 03950 03962 03974 03986 , ,-e , , , , , , , , , . , , 07228 03818 00000 03902 COOoo 03926 00000 C3950 COOOO C3H4 00000 C3998 CCOOO 04022 00000 C4046 COOOO 04010 00000 04094 00000 04118 00000 COOOO COOOO 66 -0 66 -0 66 -0 49 49 04166 0417B 04190 04202 04214 04226 2. 49 2. 49 26 49 05851 05488 05851 05508 05851 05528 04165 04238 04250 04262 0427't 04286 04298 04310 04322 04334 04346 0435B 04370 04382 04394 04406 04418 04430 04442 04454 04466 04478 04490 26 49 26 49 26 49 66 -0 66 -0 44 49 66 -0 11 49 66 -0 66 -0 66 04237 00000 04261 00000 04285 0-000 C4310 COOOO 04334 OCOOO (5971 00000 043B2 COOOO -C003 00000 04430 00000 -0 05851 05852 05851 05872 05851 05892 07228 0030C 07228 00400 04546 04502 01228 00800 05851 04802 07228 0050C 01228 0050C 01228 00500 04502 33 05911 COOOO 03~9B , 07228 00100 07228 oOlce 00100 07228 00100 07228 00100 01228 DOlce 07228 OOIOC 07228 0010e 01228 00100 07228 0010e 07228 00100 01174 07154 04010 04022 04034 04046 04C58 04070 04082 04094 04106 04118 04130 04142 04154 , , , 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 00000 04189 00000 04213 COOOO 04454 00000 04418 00000 SUBROUTINES IIH 28 1620 14210 14220 14230 14240 14250 14260 14270 14280 14290 14300 14305 14310 14320 14330 14340 14350 14360 14310 14380 14390 14400 14410 141020 14430 141040 141050 14460 14470 141080 14490 14500 14510 14520 14530 1105100 110550 14560 14570 14580 14590 14600 14610 14620 14630 14640 14650 14660 14670 14680 H690 14700 14710 14120 14730 14140 14750 EFR02 ERF7S EFFIX ICON5 .. ~CNITOR TF F IXEhD+6 8 EFFIX OORG '-4 TD~ F IXENO+1 TFL LCC 8NF 8SWF-12 CF E1 8 ERCOM2 OCRG '-4 CM FAt 8P .+32 TF FAt F IXENO 8 DORG '-3 MF MU-l FAC C 8NH .+56 TOM FXERR+25 TF~ EI TF FAC 8 FXERR OORG '-3 TF BETA TF IMSA •• 30 TF *.18 S A DU~~V TF FAC 8 MU DORG '-4 EFRD 8 DORG '-4 II VERSION 2 FORTRAN 11-0 SU8ROUTINES 04514 04526 04533 04534 045106 04558 04570 04582 04589 04590 010602 04614 04626 046310 04634 04646 04658 04670 04682 04694 04706 010714 010714 010726 0473B 04750 04762 04774 04786 0479] 010794 04801 ,2 ,FAt ,6 ,EI 8R IF ERASE ,DO ERROR TYPE F7 ERROR n INC ICATlCN ~CT ,10 ,FXl NO ,FAC-2 ,K STORE SIGN IS CHAR GREATER THAN K .. ,I ,9, ,572 .F)(9 SET ERR TYPE SET ER E2, OVFL IN FIX YES, FAC a FX9 ,lERO-51 ,FXl CLEAR AeO AREA ,I~SAPF ALIGN DECIMAL POINTS PAGE SET CON 5+6 ,FAC ,FAC-2 ,IMSA ,I 26 49 03074 0459C C4800 COOOO 15 06 44 33 109 03069 0597J 05804 02615 0708C 00002 C2492 02615 00000 OOODO 14 02492 04634 CH92 03068 000-0 01100 0326C COOOO 24 47 15 16 26 49 03019 02492 04714 C3009 02615 02492 029M 02490 02221 01100 COOOI 00N72 03250 COOOO 26 26 26 22 21 26 49 02603 02575 04768 04768 99999 02492 0302C 02716 03260 C27B7 C2492 02490 02575 00000 loR 045H 00000 26 26 21 24 46 26 12 16 49 70 43 33 11 24 47 44 0585J 05726 C5946 06027 01100 05726 -C002 -4906 26 22 46 21 70 26 05946 05935 05726 05726 070C4 06775 06775 06034 05924 05001 05170 0593N 05935 05935 04930 05102 05911 0597J . 05946 05082 05001 05911 0597J 49 15 49 16 12 70 26 22 49 26 44 12 22 46 21 70 26 49 12 49 22 4'1 04558 02615 04558 0597J 05001 05971 0597J 05946 05026 02492 05294 05001 05946 05274 05001 05971 0677N 05816 05946 05218 05946 05218 38 36 49 08032 08032 08046 36 49 -3854 00000 OOOOC 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 66 -0 3 07228 0010e 07228 00100 0722B 001CC 07228 00100 07228 0010C 07228 00100 07228 001Ce 07228 00100 46 26 49 71 29 MACRO FOR A TYPE READ AND WR ITE ATYPEI TF TF A C BH rF SM TFM 87 READA MA BO CF AM C Bl BNF CF XOTZ TF S ROA BH A "A TF WIOTH2 INPLUS LAST LAST ERF9 TERM TERM SNCAOJ SWL XQTl+ll WRITEA INPLUS INPlUS INPLUS '-36 ROAFl lOe lOC WIDTH2 ERF7A XOTZ+ 11 lOC lOC ,11 ,SWF 0,>802 010814 04826 04838 04850 04862 04874 04886 04898 04906 04918 04930 010942 04954 04966 04978 04990 05002 05014 05C26 05038 05050 05062 ,LAST ,WIOTH2 ,MU2 ,UST .00002 ,READA ,LOC ,,RWEFSW ,6 ,10 ,01 ,TERM ,,LOe ,7 ,6 ,FXl ,I< ,WIOTH2 ,XQTZ+11 ,TERM ,611 33 05971 C5943 COOOO 000-1 06775 C1300 05971 -0000 C3260 C2221 Cll00 05946 CSOOI C677N 493 1620 MON IToR II 14160 14110 14780 14790 14800 14Bl.o 14820 14830 14840 14B50 14860 14870 14880 14890 14900 14910 14920 14930 14940 14950 14960 14970 14980 14990 15000 15010 15020 15030 B7 ERF7S ERF7A TOM EJ 87 ERF1S RDAFL TFM loC SM XQTZ+ll MA loC TF LoC WIOTH2 S 87 RDA WRITEA TF FAC BNF WAFX SM XQTZ+11 S WIOTH2 NRTA 8H WRTA2 A XOTZ+ll MA LOC TF TERM 87 BSWF WRTA2 SM WIOTH2 B7 WRTA WAFX S WIDTH2 B7 WRTA OORG OBOOO 38 A8 36 AS 8 .+22 DORG .-3 A8 OSC 9 019508016 15040 OSA FIX VERSION ,7 ,II ,00 ,00002 ,XQTZ+ll ,Fll ,F ,610 ,LoC ,FAC-l ,00002 ,F ,11 FORTRAN 11-0 SUBROUTINES SET ,611 ,WIOTH2 ,XQTZ+11 ,LOC ,611 ,02 ,10 PAGE 05014 050B2 05094 05102 05114 05126 05138 05150 05162 05110 05182 05194 05206 05218 05230 05242 05254 05266 05274 05286 05294 05306 08000 08000 08012 08024 08032 08032 ,K ,00102 ,00703 ,019508016 OB045 OB045 08046 OB058 08000 15050 TAl 15060 TCO 15010 15080 15090 151CO 15110 15120 15130 15140 15150 15160 15170 15180 15190 15200 15210 15220 15230 15240 15250 15260 1620 FORTRAN II-D 1620 FORTRAN 11-0 OORG START OS 3 BLXM FMON ,'(01 00 00100 8LXM FMON ,-CO) 00 00100 8LX" FMoN ,·101 00 00100 8LXM FMoN ,* CO) 00 00100 ,*(01 BLX" FMON , 00 00100 8LXM fMON ,*(01 , 00 00100 BLXM FMON ,*(01 00 0010C •• (01 8lX" FMON 00 00100 08000 , , , , , COOOP COO-O -C002 e5001 C280K C2219 0597J 02491 -0002 C2219 Cll00 05946 05001 0597J COO-2 02221 00702 0070] COOOO 5 X 0050C 00000 EFMW FORMAT EFMW FORMAT - SECONDARY LINKAGE 03851 03853 03854 03B66 03878 03890 03902 03914 03926 03938 03950 03962 03974 03986 03998 04CI0 04022 04034 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 49 '1 03854 COOOO 03878 00000 C3902 00000 03926 00000 C3950 COOOO C3974 00000 C3998 COOOO 04022 ooooc 30 1620 MCNITO~ " 8LX~ FIION 00 00100 BLX~ FMON 00 00100 BlXM FMON 00 00100 BLX~ FMON 00 00100 B ClOB8 B ClOTT 15210 15280 15290 15300 15310 H320 15330 15140 15350 15360 15310 15380 15390 15400 15410 15420 15430 15440 15450 15460 15470 15480 15490 15500 15510 15520 15530 15540 TF B TF B -... TF B SWF WATV1 SWF WAPTI SWF WAC01 VERSICN 2 FORTR~N 11-0 SU8ROUTINES SET ,.(0) · · · .0 ,*101 ,., 0 J ,_(0' .0 .0 .0 !tRITE ALPHAMERIC .WATY-1 .WAPT-1 .WICO-1 READ ALPHAMERIC .RATY-1 TF SWF RATYl SWF ,RAPT-1 RAPTI ,RACO-1 SWF ,B B RAC01 BLX~ FMON ,*(0) 00300 ,0 00 BLXM FMON ,·to. 00 00400 ,0 ,.(0) 15550 BlXM FMON 15560 00 00100 ,0 15570 EFMW TF FLTENO ,ICON6+6 15580 B EFMWI 15590 REFSW D'S ,.(0) 15600 BLXM FMON 15610 00 00700 ,0 15620 BLXM FMDN ,.(0' 15630 00500 ,0 00 ,*(0) 15640 BLKM FMON 15650 00 00500 ,0 ,_(0) 15660 BUM FMON 15670 00 00500 ,0 15680 ~ED08 BlK~ FMON ,.«01 156~0 00 00900 ,0 15700 1620 FORTRAN 11·0 EFM~ FORMAT - SUBAOUTINES 15710 E AND F TYPE MANTISSA WAITING,FlOAT ARG IF REQ • 15120 COMPUfE DEC PT IN GAM AND OUTPUT RECORD. MOYE· 15730 MANTISSA DIGIT 8V DIGIT, RIGHT TO LEFT, FROM FAC 15HO TO GAM. INSERT SIGN, CHECX WIDTH, ANO ZERO • 15750 BR TO WRT F FOP. F TYPE CCNTlNUATION 15760 EFMWI TFL FAC ,lOC ,11 15770 BNF EFLOAT ,FAC-l 15780 EFAlPH TFM HTEND-4 ,20 ,10 15790 TF OPT ,TERM 15800 OPT ,lOC D S 15810 TFM OPG ,GA' 15820 OPG ,LOC 0 2 5 B TF 8 TF , , , 04058 04070 04082 04094 04106 04118 04130 04142 04154 66 -0 66 -0 66 -0 66 -0 49 49 01228 0010C 01228 001ce 01228 00100 01228 001ce 07174 07154 04166 04178 04190 04202 04214 04226 26 49 26 49 26 49 05851 05488 05851 04238 04250 04262 04274 04286 04298 04310 04322 04334 04346 26 H 26 49 26 49 66 04394 04405 04406 04418 04430 04442 04454 04466 04478 04490 04502 04514 -0 66 -0 66 -0 66 -0 66 -0 010370 04382 ,. , , , , , -0 66 -0 66 -0 26 49 04358 , ...... ...... ...... ...... ...... PAGE 04046 04526 04518 04550 04562 04514. 04586 04598 6Q C6 44 16 26 22 16 22 05508 05851 05528 00000 04010 COOOO C4094 00000 elo1l8 COOOO coooo 00000 04165 00000 04189 CCOOO C4213 COOOO 05851 05852 05851 05872 05851 05892 01228 00300 01228 O040e 01228 0070e 03118 04526 e 01228 007ce 07228 00500 01228 005CC 07228 00500 01228 0090C 04231 CCOOO C4261 COOOO C4285 c-oco C4310 00000 04334 COOOO 04358 00000 C5352 cooco 02492 0597J 02491 OOOKO 06115 050~4 03114 01003 07003 C5966 05966 Jl C4046 04406 coooo C4430 00000 04454 COOOC C4478 00000 04502 COOOO C55~6 -2555 05596 495 1620 MON ITOR II 15830 15840 15850 EFAlP 15860 15870 15880 15890 15900 15910 15920 15930 15940 EFCHKS 15950 15960 15970 15980 15990 16000 16010 ERF8ES 16020 16030 16040 16043 16046 16050 16060 16070 16080 16090 16100 16110 16120 16130 WRTE 16140 16150 WRTE2S 16160 16110 16180 TF SM SM TO CF SM C BH TFM BNF TFM TFM A A TF S C BNl TFM 8 CORG CM BNF B7 BL BO TOM TFM BNF DPTM2 OPTM2 WA 2 IIA IIA WA WA2 EF ALP WA EF CHKS IIA tKW CKW CKW CHAR CHAR WIDTH VERS ION 2 FORTRAN 11-0 SUBRO'UTINES .1 ,WA2 , ,611 ,6 ,2 ,FNH ,00 ,FAC-2 ,20 ,000 ,lOtO ,FAC ,CKW .F ,lOC 0 ,610 ,610 ,9 •• 32 REFSW BREFSW .-4 FAC ,ERF8E *+20 e+20 *+24 *+36 ,RWEFSW ,-70 ,10 , , 04610 04622 04634 04646 04658 04670 04682 04694 04706 04118 04730 041"2 0475it 04766 04778 01t190 04802 04814 04826 04838 04845 048"6 .. 26 12 12 25 33 12 24 46 16 44 16 16 21 21 26 22 24 46 16 49 07144 Cl144 07086 C693J 0693J 06931 01086 04634 0693J C7C03 -C002 -0001 C708D COOOO -0002 02192 OllCO COO-O 04142 C24~0 0693J 06663 06663 06663 07110 01110 05105 04846 04405 05326 OOOKO CO-OO C5598 02492 06663 02219 05598 01300. -5126 OCOOO U 44 49 41 43 15 16 4it 021092 04878 0'0890 04902 04926 03114 07110 05074 OOOP05943 04870 04878 04890 04902 04914 04926 04938 04950 04962 22 47 16 057C5 04974 49 05326 02219 C1300 -4522 COOOO 04858 ,FNH ,11 FLTENO-4 ,-I ,9 CHAR .-099 WRTFS ,RWEFSW ASSEMBLE EXP IN GAM USING A MASK, WR ITE E TYPE. THE CHAR AND SIGN. MOYE LEFT GAM AND RIGHT GAM TO OUTPUT. THEN GO TO INSERT DECIMAL POINT ,F S WIOTH BRANCH IF F LARGER THAN EFF WIOTH .+32 Bl TFM REFSW ,WRTE2 B BREFSW CORG .-4 .+36, n TEND-4 BO 161~0 CHAR ,WIOTH S ,CHAR-2 16200 80 ERF8ES ,GAM 16210 TFM *+47 ,WIDTH 16220 A *+35 ,WIDTH 16230 A *+23 16240 TF GAM 16250 B WRTE2S 16260 DORG .-4 ,WRTF 16210 WRlFS TFM REFSW 16280 BREFSW B 16290 CORe ·-4 ,00 16300 EFLOAT AM FAe .10. IS FAC lERO 16310 ZERFAC YES 8Z ,FAC STORE SIGN 16320 MF 99 ,FXf-l BETA-9 16330 TR .11 FAC-2 ,FLZALP CLEAR FAC 16340 TF .ll. ,K TF SAVE 16350 CHAR' K ,8ETA-9 16360 TFM *+23 ...... PAGE SET ,OPT ,2 04981 04982 04994 05006 05018 05030 05042 05054 05066 05013 05014 05086 05C93 05094 05106 05118 05HO 05142 05154 05166 496 43 22 43 16 21 21 26 49 16 4~ 11 46 71 31 26 26 16 04982 04405 05018 01110 01300 0219K OOOOJ 00-9R C5943 05C65 05065 05065 02555 04962 03114 05705 07108 -2555 05705 05705 CCOOO COOOO 04405 05326 -4626 00000 02492 02836 000-0 01200 02492 0211K 0279P 02221 -2594 04826 0009~ 02594 024~e 02565 0518~ 32 1620 MON I TOR II 16370 16360 -+404 BD SM SAVE 16390 AM a-13 164CO *-]6 B 16410 OORG 0-3 16420 TR FNH 16430 TF *+35 16440 AM -+23 16450 BNR ·-12 16460 0-1 TOM 16410 TO FAC+! 16480 TF BETA 16490 ENOR6C SF FNH 16500 B7 FINISH 16510 BREFS. TFM MBASE.5 16520 B7 MEOOB 1653C lCDN6 B EF ALPH 16540 DORG '-4 16550 DORG OBOOO 16560 38 A9 16570 36 A9 16580 B *+22 16590 OORG '-3 16600 A9 OSC 9 019524011 16610 OSA FIX .. VERSION ,DUflJIIIY ,10, ,01 FORTRAN 11-0 SUBROUllNES SET 05178 H ACJUST CHAR 05190 05202 05214 31 26 11 0279K H 05246 0526R 02493 02603 0279K 0311J ,01 ,*-]1 .611 ,fNH FIND ~NC CLEAR RECORD 05222 05234 ~ARK ,01 05246 ,DU~MY .. ,0 t REGMK ,IERO-74 05256 05270 05282 05294 05306 05318 05326 05338 05346 05353 08000 OBOOO 08012 08024 08032 08032 ,6 REPLACE RECORD MARK CLEAR BETA ,6 ,6 , ,I-lTVPE-+24 ,I ,00702 ,00103 ,019524011 TRA TCO 16640 1620 FORTRAN lJ-O WRTE-F FORMAT 1620 FORTRAN 11-0 WRTE-F FORMAT - SU8ROUTINES OoRG HTYPE+H TFM MBASH5 ,FIX 8 REFSW ,6 OS ,REFSW 5 TEMP STORE FOR ZERO INSERT ADDRESS OORG .-4 TR GAM+l ,MASM 80 ERF8E ,CHAR-2 TO GAf!iI+8 ,CHAR TO ,CHAR-l 6A""+6 8NF ·+24 ,CHAR TOM GAM+3 ,2 TF TERM ,GAM+2 ,6 TR OPT ,OPG ,611 8 WEF DEC OORG '-4 3 CASES FOR .RITING F TYPE,CHAR IS EXP-lOCO-F CHAR IS NEG, EXP IS NEG CHAR IS NEG. EXP IS POS IT IVE IWRTFPEI CHAR IS POSITIVE IWRTFPCI TR GAM+! ,MASK EP+7 BO F lERO ,FLTENO-4 BO ER F8 E ,CHAR-2 16610 16680 16690 .'3 16700 16710 16720 ~RTE2 16130 16140 16150 16760 16710 16780 16790 16800 16810 16820 16830 16840 16850 .RTF 16860 16810 99999 COO-l II 051B~ -0001 49 05178 COUOO 12 1.5 25 26 32 49 16 49 4R 33 08000 0518R 0526~ C27n 0526~ -0001 99999 00000 02403 02693 00000 07423 045C2 -4502 04550 00000 08032 00102 00103 00000 38 36 49 08046 36 49 -3854 OOOOC OOOOC 16 49 0440N 08045 08045 08046 0805e 16630 16650 05222 02565 0.5222 16620 16660 PAGE FINO HI ORO DIGIT 08032 5 X C05CO coooo 08000 , 04502 04502 04514 04405 04521 04522 04534 04546 04558 04570 04582 01423 -3854 CCOCC 5 31 43 25 2~ 04594 44 15 26 04606 11 04618 49 02556 05126 02563 02561 04594 02558 0617N 0100L 05094 05325 C11C8 C1110 C11C9 01110 COOC2 02557 05960 00000 04625 04626 04638 04650 31 43 43 02556 C~333 04874 C3114 05126 01108 4U7 1620 MONITOR II 16880 16910 16920 169]0 16940 CM BNH C 8H TF A 8NF 16950 TF~ 16960 16970 16980 16990 A TF BNF TF TF TF AM BO TFM B DORG TFM TF TOM B OORG TF TR B OORG TF S TF TF C 8Nl A T8 TF TFM A TF TFM TFM B DORG fR TR 16890 16900 17000 17010 17020 FNCNEZ 17030 11040 11050 17060 17070 flERO 17080 11090 11100 11110 17120 WRTFPE 11130 17140 11150 11160 WRTFPC 17110 17180 11190 17200 11210 11220 11230 11240 17250 ClR70S 17260 17210 11280 .EF DEC 11290 11300 11310 17320 ERF8E 17330 11340 17350 11360 11310 TO TO TF~ 11420 BNF TOM TR TF TH CM 17430 TFM 11380 11390 11400 17410 CKW F ZERO CKW ER F8 E CHAR 2 CHAR 2 WRTFPC _+35 A ... 23 ,DOD VERS ION FORTRAN ll-O SUBROUTINES ,9 , WIOTH ,CHAR SET PAGE 04662 14 04614 04686 04698 04710 47 24 46 26 21 44 16 21 26 44 26 26 26 11 43 16 49 04122 04734 ,CHAR ,CHAR ,GAil! ,CHAR 04746 04758 GAM ,FAt WRTFPE ,6 .. ,..+2 ,6 LAST OPTM2 ,GM2F .611, ,OPT WA3 ,2 WA3 WEF DEC ,WAl ,11, WA3 ,70 ,610 FNCNEZ '-4 OPTM2 ,70 ,610, ,lOCO CHAR 2 CHAR-2 ,0 ,11 ClR70S-12 0-4 OPTM2 ,OPG ,611 ,DPG ,611 OPT WEF DEC '-4 a+30 t TERM a+18 ,CHAR 2 ,GA"'+2 ClR70S+30, TERM CHAR ,lOCO ClR 70S ,CHAR OPG ,OPG ,611 OPT ClR1CS+]O,LAST a+35 ,MASK Fl ,(liAR 2 * ... 23 TERM ,6 OPT ,03 .610 ,00 ,610 LAST BSWF .-4 DUO H'21,FLZERS-57 GA~+1 .MASK GAM_8 ,FAC ,FAC-l GAM+6 GAM+3 ,4~l ,9 -+24 ,FAC GAM.3 ,2 ,ll DUO H+13,GMIM2F DUO H+12.DUU "+14 DUD H+14.03 ,10 OATINH+2 ,08 ,10 EI+2 ,67800 .. 04110 04782 SET SIGh lEFT OF OEC PT INSERT zeRO FROM DEC PT TO FIRST NO~ ZERO DIGIT ON RIGHT F TYPE OUTPUT EQUALS ZERO 04794 04806 04818 04830 04842 04854 04866 04873 04874 04886 04898 04910 04917 04918 0114~ 04405 04405 05094 OHON 04830 0114~ 06698 01108 05046 COOPO C5596 OOUOCOOOO 04962 22 04980 04974 04986 04998 26 26 24 46 21 3! 26 16 21 26 OOOOC 05088 01110 05058 06115 06698 C2551 C6115 05082 05094 05106 05118 05125 05126 05138 05150 05162 05174 05186 05198 05210 05222 05234 REC MARK 05120 04980 05070 ER~SES 04918 C 7110 26 05046 05058 SETS ERROR F 8 C1110 C1110 -2555 06698 00000 02492 C2557 0304L 07003 -0002 0440N OOOPO 00000 04950 04181 04181 02555 05960 05960 05022 05034 E-OO AlPHAMERICALlY 06698 Cll00 C5705 C 1100 0114M 0700L 05094 05010 MOVES 00-00 26 31 49 04930 010942 04949 04950 , 16 26 15 49 06663 04874 06663 05126 06698 05246 05258 4US coooo 05598 16 49 05816 01300 06698 C5960 C5726 -5331 C6698 COOOO COO-3 000-0 COOOO 31 31 25 02628 02556 02563 02492 2~ 02561 16 02558 0521C 02558 0262C 02619 16 44 15 31 26 16 14 16 05966 0100l 05088 05093 05093 0677N 010CI 0572C 02621 0604~ 02617 C6260 05325 C2491 00M51 02492 COO02 0291M 02621 000-3 000-8 07800 34 1620 MONITOR II 11440 11450 17460 11410 17480 17490 17500 MASK VERS ION BL TF TF" 8 B ER ceM 2 OATOUO+2 ,OAfINHt2 10RT t *+2'} IOPT ,OATOUO-4 ,7 ERCOM2 DORG ·-4 DSC 10 451070700' FORTRAN 11-0 SUBROUT INES PAGE SET 05270 05282 052'14 05306 0531B 05325 05325 ,451010100' 17510 MASKEP as ,MASK ... l 17520 MASKF I OAC 31,000000000000000000000000000000 ' ooc 0 ooocoe 00 ooooccoo co 0000 0000' 17530 OORC OBOOO 17540 3B AI0 ,OC702 17550 AIO 36 .0010] 17560 B *+22 17570 DORG ·-3 175BO AIC DSC 9 ,019541009 019541009 17590 DSA HTYPE+24 176CO TRA 17610 TCO 08000 17620 17630 CLOfT 17640 17650 CLOBB 17660 17670 17680 QOQ 17690 OORG TFM 87 TF" MA BLXM BLXM OSA 7154 QQQ+6 CLOBBtl2 QQQ+6 OQQ+l1 FMON 17700 FMON 17110 17720 11730 17740 17150 17160 17770 17780 BAS 17790 17800 17810 17820 17830 17840 SLIP 17850 ~DATA 8SBA SlX TO TR TF TFM AM 17860 17870 1 35 01300 C6049 -5311 -6035 coooe C 31 x 0800e 0800e C8012 OB024 08032 08032 38 36 4. 08032 08032 CB046 08045 08046 08058 OBOOO 36 49 -4502 OOOCC 00000 07154 07154 07166 07174 07186 07198 07210 07226 16 49 16 70 66 66 08045 ,SET ,00344 ,.+12(0) ,11 , 01226 OU28 07240 07252 01264 07216 07286 07300 07312 07324 07336 07346 07360 07372 073B4 07401 07402 , , 07408 07409 -+12 -+12 ,00344 [! I 00000(1 I ,REC,..K SlI P-5 ,99995 I 11 00314 ,00016 [! I BAS+ll ,Ftl-5 BAS+ll ,00008 BCX~ ·-12 .-0000112) TFL M8ASE ,DUMMY , •• 21 TF~ IORT 8 10GT ,MOATA .1 TRNM 99995 (! I ,SlIP-5 TOM QOO ,6 eSSB 00000(1 I OS 6 OSC 2 02 02 OSA HBASE-8 DC 070BC C6041 00565 00532 07CBC IC 05326 05337 ,SET+12 ,*-*fO) 47 26 16 49 49 00702 C0703 00000 5 X 60 65 25 31 26 16 11 64 C6 16 49 30 15 60 C05CC 00000 01216 -4154 07186 C7216 -4142 07221 00344 07228 01210 00000 00005 X 1 . -0001 0724C 07252 000-0 07396 00314 C7335 07335 07300 07416 00565 00566 999R5 07210 OOO-C 6 2 00001 003M4 02403 999R5 OOOJ6 -7424 -OOOB OO-OJ 99~99 -7359 -1402 01396 00006 ce002 5 x 07408 -74lt I 4UU 1620 MONITOR II 17880 17890 MBASE 17900 OSC 0 OS OSA 17910 DC 17920 F Il 17930 17950 17960 17970 17980 17990 18000 18010 18020 18030 18040 18050 18060 18070 IB080 IB090 18100 18110 18120 18130 18140 IB150 18160 H2 18170 181BO VERSION 2 , 8 FIX 1 DC SUBROUTINES SET PAGE 07418 07423 , , , , , , , , , 8 5 X 07423 07424 , 00033 -0033 DC 033 -33 DC 5 00033 -0033 DC 3 , 016 -16 5 , 00066 DC -0066 DC 3 016 -16 5 , 00082 oc -00B2 DC 3 011 -17 5 , 00099 DC -0099 DC 3 009 -09 DC 5 00108 -0108 DC 3 016 -16 5 , 00124 DC -0124 3 , 017 DC -17 5 , 00141 DC -0141 DC 009 -09 OORG 06000 34 B2 ,00701 38 82 .00'102 36 82 ,00103 B -+22 OORG .-3 OSC 9 .016835C04 016835004 DSA 7100 TRA FORTRAN 11-0 07410 5 , 00000 oc -0000 3 , 033 DC -33 17940 1 -3B54 1 07429 07432 07437 07440 07445 07448 07453 07456 07461 07464 07469 07472 01477 01480 07485 0748B 07493 074'16 06000 06000 06012 06024 06036 06044 06044 34 38 36 49 06044 06044 06044 06058 36 -710C OCOOO 06057 06057 06058 5IJlI C0701 00702 00703 00000 5 X COSOC 36 1620 ~ONITOR II VERSION 2 FORTRAN 11-0 SUBROUT INES SET 06000 P~GE 37 06070 06000 49 ccoce 00000 48 oooce coooo 1819C rco 182CO QSflS H 06082 18210 oEND QSTZS 06082 501 1620 MONITOR II ALSFQI AUN.6 AfYPEI BEF2SW 8REFSW CLR 70S COMAOO COMENo COMPLT COMPSW OAFMON OALONG OAIOUD OATINH DOFMON oloooA oK8UFF oKoATA EEXP22 EEXPAo EFALPH EFCHKS EFEN02 EFLOAT EFPLUS EFJERM EFlYPE ENDFOR ENOR60 ENTA8S ENTATN ENTCOS ENIOEo ENTDAR ENIEXP ENTFET ENTflo ENTREC ENTSC2 ENTSC3 ENISoX ENTSIN ENISQT ENISWo ERCD"2 ERF8ES ERRF7E ERRf71 EXPENT FINDIN FINISH FIXENo fLOATl FLTENo fLlALP FLIERS 06312 03430 04802 05390 05326 05058 02231 06646 06688 05668 05202 05194 06039 06047 05210 02821 02404 02813 04786 04922 04550 04742 05158 05094 04546 05102 04558 06053 05306 02323 02313 02303 02298 02293 02253 02283 02273 02278 02258 02263 02268 02308 02318 02288 07080 04826 05250 04882 02812 02915 03111 03068 05056 03118 02797 06317 FNCNEZ FXNINE GM1M2F HROWRT HfYPEl IFLOAT IMINUS IMSAPF INOR60 INPLUS IR8LNK ITYPEI LDGDIG LDCAoJ MASKEP MASKFI MATRIX MATRU MESERR MONCAL NORM60 oooser OOOREV ONEF.C OVFLOW PROGST RADon READEF REAolF REPSW3 RWEFSW 100MK 99MK 9SCPF AlO AI A3 A5 A6 A7 A8 A9 ALSFQ ATYPE AXJ 81 B2 BAS BETA BSWF CHAR2 CHAR UW CL08B ClOTT DID VERSION 04830 04912 02914 05330 05150 05006 04862 02787 05218 05935 04842 04'02 04942 06380 05326 05337 06324 06408 02607 00796 05268 05086 05550 05782 02960 02226 05144 04358 04962 05575 05943 02782 02777 03238 08032 08068 08032 08032 08032 08032 08032 08032 06364 04406 05920 06044 06044 07324 02603 D5816 06698 07110 06663 071H 07154 00820 FORrR.N 11-0 OPG oPTM2 OPT OUDH DUD DUMMY EEXP2 EEXPM EEXP EF2SW EFALP EFCOM EFoEC EFDIG EFENO EFFIX EFMIN EFIIWI EFMW EFRol EFRD2 EFWRI EI ENDD ENTLN ERFU ERI'7 EAF7S ERF8E ERF8I ERF9 EAAET ERROR ERXV EAXVS HYPE EXP FAt FAUI FU8 FAXll FAXI FCHN8 FoVRI FoVR FIL FIXI FIXII FIXI FIX FKOOo FLOAI FLZER FLl F~l F~ON SUBROUTINES 05966 071"" 07003 02607 02687 99999 04738 04866 04878 04285 04634 04526 04974 .05042 05126 04590 04534 04526 04382 04502 04534 04986 02615 ·03076 02248 05012 04974 04558 05126 04894 07004 00602 02984 03120 06132 044'''1 04687 02492 06192 04118 05758 04094 04878 05334· 04046 07429 04502 05384 04070 03854 02967 03998 03742 02B02 02969 07228 SET 3 FNH FP !I'K FP2 F FS8RI FS8R FTYPE FXl Fn HOI FXDIU FXCR FXD FXERR FXH FXMl FXM FXSRl FXSR FXZ FZERD GAN G"2F GZAQQ HO HTYPE ICDN2 ICON3 ICON5 ICON6 10iG IFIX IMSA INti IN lOCAL IOCR 10G·T 10PT IOR8C 10RT IDSK IROIG IRUo ITYPE K LAST LNIO LNI LN2 LN4 LN8 LNENT LOC02 LOCO LOC 5u2 38 P~GE 02792 02772 03052 02219 05288 04022 04430 03270 03250 04802 04944 03950 03926 02984 02772 04740 03902 04694 03878 03260 04874 02555 03043 04502 04673 04478 05238 05202 OH94 05346 04650 04998 02575 06053 06227 00716 06654 00566 00532 00520 00565 00554 04806 04634 04310 02221 05726 03681 03551 03588 03619 03650 02807 05596 05598 05971 LOGE ~ASKF ~ASK I ~ASK ~ATSW ~AX2 ~AX M8ASE MoATA MEDce IIF ~U NI N2 NCDIV ONEl our OVFLO PAR Pl0V2 PI PSI QQO QSTSI QSTS QSTlS Ol1 QZ2 QZF RACo.! RACO RAPTl RAPT RATYI RATY RoAFL RoALP RoA RoFCH REAoA REAol RECIP RECLG REC~K REDeA REoC REFS. REP2 REP3 REP REPSW RESET RSGNl RSGN RWA2 RWA 03366 05411 05211 05325 05573 06027 059h 07418 07402 04502 03054 03020 02233 02238 06048 03302 04837 05844 03843 03526 03462 05502 07210 06304 06296 06082 06895 06899 06903 05892 04286 05872 04262 05852 04238 05102 05904 05C26 04754 04906 049H 05980 02243 01403 06752 06708 04405 06888 06920 06B16 05572 06808 04964 039H 05660 05552 1620 MONI TCR II SAVE SETI SE T SHOAT SLASH SLIP STAAT STOP SWCfX SWC SWf SWL TAfE ENO OF ONE 02565 06664 04142 05226 06482 07401 03851 02395 03168 05972 C5851 C5924 02535 VERSION TEN 34 TERM TRACE TAFX TWOPI TWO UNFLO MA2 MAl WACOI W4!;O WAf X WAPTI 03334 06775 02884 02946 03398 03712 02860 07086 04405 05528 04214 05294 05508 FORTRAN 11-0 WAPT WA WATYI WHY WIDTH WJAS WAITE WRTA2 WRTA WRTEZ WRTE WATF WRTFS SU&AOUT INES SET 3 04190 06931 PAGE WATl2 WAll 3 WATI W XQrz XTVPE lEAOM ZERO S IXTEN SLASH2 STlEAO SWCADJ WEFOEC OHas 04166 05705 03018 06622 05274 05218 04522 04938 OU26 05014 04558 04766 04594 02240 04990 07048 02859 02767 03494 06514 06229 0603" 05094 39 WIOTH2 WRIlEA WAITEI WAITJl WATALP WATE2S ~ATFPC WRTFPE WRTSGN lERfAC ASSE~BLY. 503 1620 NONITOR II 00010 00020 00030 00040 00050 00060 00070 00080 00090 00100 00110 00120 00130 00140 00150 00160 00170 00180 00190 00200 00210 00220 00230 00240 00250 00260 00210 002BO 00290 00300 oono 00320 00330 00]40 00350 00360 00370 00380 00390 00400 00410 ..... 10RBC 10PT 10SK 10GT ERRET 10RT lOCAL MONCAL 010 ...... F K PROGST COMA DO NI N2 W RECLG ENTlN ENTE~P ENTSC2 ENTSC3 ENTSDX ENTFID ENTREC ENTFET ENTShC ENTORR ENTDEc ENTCOS ENTSIN ENU TN ENTSQT ENTABS ..... STOP 00420 RECMK 00430 OKBUFF 00440 FAC 00450 00460 00470 00480 00490 005CO 00510 00520 SAVE BETA VERSION 2 FORTRAN 11-0 SUBROUTINES SET 1620 FORTRAN 11-0 SUBROUTINES WITH FLOATING POINT HARDWARE lOAf ENTRY POINTS AND CONTANTS OS ,520 OS ,532 OS ,554 OS .566 OS ,602 OS ,565 OS ,716 OS ,796 OS ,820 1620 FORTRAN 11-0 IN CORE ARUS COMMUNICATION AREA DORG 2218 OS 2 .. FLOATING POINT WORD LENGTH OS 2 .. FIXEO POINT WORD LENGTH OS 5 .. STARTING ADDRESS OF MAINLINE PROGRAM OS 5 .. STARTING ADDRESS OF COMMON AREA 2,. NUMBER OF WORDS IN LOGICAL RECCRD OS OS 5 .. NUMBER OF LOGICAL RECORDS OS 2 .. WORD LENGTH OS J .. RECORD LENGTH OS 5" ENTRY ADDRESS TO LOG SUBROUTlt;E DS 5 .. ENTRY ADDRESS TO EX'ONENT!AL SUBROUTINE OS 5 .. ENTRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE OS 5 .. ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE DS 5 .. ENTRY ADDRESS TO SWITCH D FIXED SUBROUTINE OS 5 .. ENTRY ADDRESS TO FIND SUBRDUTINE OS 5 .. ENTRY ADDRESS TO RECORD SUBROUTINE OS 5 .. ENTRY ADDRESS TO FETCH SUBROUTINE OS 5" ENTRY ADDRESS TO SWITCH 0 SUBROUTINE OS 5, • ENTRV ADDRESS TO ARRAY SUBROUTINE OS 5 .. ENTRY ADDRESS TO 01 SK END SUBROUTINE DS 5 .. ENTRY ADORE SS TO COSINE SUBROUTINE OS 5 .. ENTRY ADDRESS TO SINE SUBROUTINE DS 5 .. ENTRY ADDRESS TO ARCTANGENT SUBROUTINE OS 5" ENTRY ADDRESS TO SQUARE ROOT SUBROUTINE OS 5", ENTRY ADDRESS TO ABSOLUTE SUBROUTINE OS 70.,RESERVEO FOR ENTRIES TO AODEt SUBROUTINES COMMON WORKING AREAS DAC 5,STOP' STOP' OS ,STOP+8 OSS 29 OS 60 DC 1 OS DS DGM GAM OS UFE OS IMSA OS MESERR OAC ER [ 00530 OUCH DS " 72 38 PAGE 00520 00532 00554 00566 00602 00565 00716 00796 00820 02218 02219 02221 2 2 02226 5 02231 5 02233 02238 02240 02241 02248 02253 02258 02263 02268 02273 02278 02283 022B8 02293 02298 02303 02308 02313 02318 ,02323 02393 , 6,ER E ' ,MESERR 02403 02404 02492 02493 02607 5 (J', 5 5 5 5 5 5 5 5 5 5 5 5 5 7C 02395 02565 02603 02604 02555 02535 02575 02601 ,SAVE-IO ,SAVE -30 .BETA -28 2 2 3 5 5 5 5 C 29 60 I 72 38 I C C C 6 2 05946 05170 04334 04502 05540 04962 04950 04918 C4730 02836 1620 MONITOR II 00540 EI 00550 cue 00560 00570 00580 lERO 00590 00600 00610 FXH VERSltN 2 FORTRAN 11-0 SUBROUTINES SET ,.-2 OS OS 70 40 ,0 DC -000 00 00 0 0 00 00 00000000 oooe 0000000 00 a C0 e 0 DSC 40 ,0 000000 0 0 OC 00 0 0000 C00 00 00 00 000000 000 00000 OS 1620 FORTRAN 11-0 INDIRECT ADDRESS 80XES AND MOO I F I ED CONSTANTS IUSING K AND FI OSA FAC+I OS 5 DC -009'1 00640 100~K DC 5 -0100 00650 I MSAPF DSA IMSA 70 4C 02128 4C C 02767 " 00620 FP IMK 00630 99~K PAGe 02615 02687 02727 5 x 02772 02172 02772 02177 ,FKH ,'1'1 ,lOa -24~3 C 5 02782 02787 5 X FAC-I 02787 02792 -2575 5 x 00670 FLIALP DSA lERO-'18 02792 02797 -24'11 5 x 00680 fLl ZERO-80 02197 02802 -2689 5 x 02802 028C7 -2687 5 00660 FNH OSA OSA 0069C LNENT DC -OOOJ 00700 EXPENT DC 5 -OOOJ 00710 DKDATA DSC 2 00 00720 DSA DIOODA 00730 DC 02812 02813 02819 -2821 I 02819 02820 ,a 02821 5 ,0000 02826 ,000 02829 a DC ,-I ,00 " OOHO DIODDA DSC 00750 ,~I -0000 00760 DC 3 00170 -00 DSA DKBUfF 00780 DC 02B34 -2404 I 02834 02835 " 00790 1620 FORTRAN II-D IN CORE SUBROUTINES 00800 IERFAC TfL FAC ,FLIER ,7 00810 FIXEND ,ZERO-94 B 00B20 ZEROM DS 5 ZERO MINUS 94 PLUS TWO TIMES F 00830 UNFLO TFL FAC ,FLIER ERR F5 UNFL IN FEXP ,- " 02836 02848 02859 02860 06 49 02872 02884 02896 02908 02915 49 C6 47 34 06 024n 03068 5 02492 03742 -2673 C3142 5115 1620 MONITOR II 00840 00850 TRACE 00860 00870 00880 FINDIN 008~0 00900 00910 00920 00930 00940 00950 00960 00970 00980 00990 01000 01010 01020 01030 01040 01050 01060 01070 01080 01090 01100 01110 01120 01130 01140 01150 01160 01170 01180 01190 01200 01210 01220 01230 01240 01250 01260 01270 01280 01290 01300 01310 o13io B TFL BNC4 RCTY DC ERXV+12 TRACE-I FIXEND GAM-I I J GMIM2F OS BNF WNTY B8 DDRG TRFX WNTY BB DORG OYFlO. TFM FMI as FKOOD DS TF ERROR RCTY WATY B MU BNf SF GM2F OS TOM MF OS FP2 OS WJRS OS TFM FIXENC BB OORG FXERR OS ENDD TF BNF SF FINISH OS FL TEND OS B8 OORG ERXY BNF AN TFM SWCFX 9SCPF 01330 01340 01350 FX9 VERSION 2 , ,FAC , ,I ,.-5 TRFX FNH ,FAC-I '-9 FXH --'I fAC 2, '-2 I FAC-2 FINISH MESERR ENDD+12 -+24 FAC FORTRAN II-D SUBROUTINES ",6 ,2 .--4 ,6, .. GA~MA ~INUS ONE MINUS TWO TIMES F BRANCH IF FIXED ARGUMENT TYPE FLOATING ARGUMENT ,6, TYPE F !XED ARGUMENT .0199 ,8910 ,a-It ,9SCPF .. o F OR ~ DOC, I F AND K EVEN SET RESULT TO ALL NINES ,6 ,- ,MU-I ,GU FXeRR+25 ,02009 2 ,*-1 2 ,*-3 "MU-2 FXERR+30 ,ENDD+12 SET , ,19, C~RRECT SIGN ON FAC GAMMA MINUS TWO TIMES RESET ERROR EXIT MINUS F F PLUS TWO --3 FAC a+24 FAC-2 ,ERROR ,SAVE ,99 ,ENDD PAGE SET FAC IS FL PT ZERO MOVE EXPONENT SET PROPER SIGN ,- ,FINISH+7 ,0 '-4 a+24 ,FAC EI ,01 ,10 ERROR+30 ,FIXEND-12 87 ERROR as 5 SWC-I ,SWCFX-I TO TFL SWC'-2 ,SWCFX-2 SF SWC-I B7 SWC 1620 FORTRAN 11-0 FLOAT ING POINT CC~TANTS DC 28 .9999999999999999999999999999 R9 99 999999 99 9 99999999 99999 99 OSC 2,99 9'1 1620 FORTRAN 11-0 F I XEO PCINT CO~ TA~TS 10 ,9999999999 DC R999999999 02914 02920 02932 02944 02946 02946 02958 02960 02960 02969 02967 02972 02984 02996 03008 03020 03032 03043 0]044 03054 03052 03018 03056 03068 03076 02984 03076 03088 03100 03111 03118 03112 03119 03120 03132 03144 0 02946 0279K OOOOC 02491 OCIOO OCOoo 38 42 C217K occce COIOC coooo 16 02492 2 I 0249C 0311J 02607 0308e 03041. 02492 0-JR9 26 34 39 49 44 32 15 16 42 26 H 32 "2 03156 03167 03168 03180 03192 03204 25 06 32 49 a 03009 2 2 C 03014 OOOOC C 02492 03112 02490 C C OOOOC 03144 02615 03014 02984 5 05971 C597C 05971 05972 2e 03239 03250 5116 coooo e2492 e0400 OCI02 44 38 42 44 II 16 49 03238 03132 C28SL 03068 -2554 1 IC C3238 00102 CCIOO COOOO 03019 02555 -2-09 -3088 COOOO C2565 C0099 03076 OCOOO C2492 CCO-I -3C56 03167 C3166 COOOC 1620 MONITOR II VERSION 2 FORTRAN 11-0 SUBROUT fNES SET ~ PAGE 01360 FXZ 03260 lO 01370 03210 Ie 03300 30 013ee 01390 01400 01410 01420 01430 01440 01450 01460 01470 01480 DC 10 ,OOOOOCOOOO -000000000 FXl DC 10 ,0000000001 -000000001 CONSTANTS FOR RELOCATABlE SUBROUTINES DC 3D, 1000000COOOOOOOOOOOOOOOOOOOOOO JO 0 0 0000 00 00 0 0000 000 00 00 00 00 00 ONEl DC 2, 01 -1 DC 30, 218116162394955256222611491638 KI811616239495525622261149163B TEN34 DC 2, 01 -1 DC 30, 434294481~03251821651128918911 "34294481903251827651128918917 LOGE DC 2, 00 -0 DC 3D, 628318530117958641692528676656 02 B318 530111958641692528616656 TWOPI DC 2, 01 -1 DC 30, 540419500210584155443518364610 N404195002 7058415544 35 78364610 ATAN.6 DC 2, 00 03302 03364 03396 03428 031060 01560 LN2 01570 LN4 01580 LN8 01590 LNI0 01600 TWO 01610 01620 FLZER 01650 OUMMY 01660 START 01670 3C 03462 CH92 3C OH94 -0 01550 LNI 3C 03430 30, 3141592653589793238lt6264338328 11415926535891932384626H38328 DC 2, 01 -1 01510 DC 3D, 600000000000000000000000000000 00000000000000000000 CO 0000 0000 01520 SIXTEN DC 2, 00 01540 PIOV2 3e 03398 01500 PI 01530 3C 03366 -0 DC 014~0 30 03332 033H DC 30, 151079632679489661923132169164 J51079632619489661923132169164 DC 2, 01 -1 DC 31, OOOOOOOOOOOOOOOOOOOOOOOOOCOOOOO -000000000000000000000000000000 DC 31, 693H7I805599It'309417232121t,'8 -693141180559945309411232121458 DC 31, 13862943611198906188344610242916 J386294361 119890618834464242916 DC 31, 2079104154167983592825169636U15 KO 79 4415416 7983592825169636U75 DC 31, 23025850929940456840119914'46810 K302 5850929940456840 119914 54684 DC 31, 2000000000000000000000000000000 KOOO 00 0000 000000 0 000000000 00000 DC 28 ,0 -000000000000000000000000000 DC 2 ,-99 RR OS ,99999 OS ,03851 DDRG ]789 03~24 3C 03526 2 03551 31 0]588 31 03619 31 03650 31 03681 31 03112 31 03740 28 03742 99999 03851 03189 5U7 1620 "DNITOR II VERSION 2 FORTRAN 11-0 SU8ROUTINES SET ~ PAGE 01675 OSA WATY 03793 OSA REP3 03193 03198 -4166 01680 -6920 5 x 5 X 5 X 01690 OSA TRACE 03798 03803 01700 OSA swt 03803 03808 -2884 5 x OSA SWCFX 03808 03813 -5H2 01110 5 x 03813 -3168 5 x 01120 OSA 01730 OSA OSA 01140 SUS~ 03818 -6482 REP 03818 03823 -6816 REDO