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 .
Page Count: 541

Download
Open PDF In Browser	View 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