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

03823
03828

-6708
5 X

5

5 X

01750

OSA

XTYPE

03828
03833

OSA

COMPlT

03833
03838

-7048

01760

-6688

0

03838
03843

MATRIX

03841
0]848

-ooce

03848

-6324

01170 PAR
01180

01790
01800
01810
01820
01830
01840
01850
01860
01810
01880
01890
019CO
01910
01920
01930
01940
01950
01960
01910
01980

OSA
OU

••••••

FiX
FXSR
FXM
FXO
FXDR
RSGN
FLCAT
F S8R

1620 FORTRAN 11-0
All SUBR IN CORE
1620 FORTRAN II-D
ALL SUBR IN CORE - SECONDARY LINKAGE
OORG START
OS
3
TFL FAC
,FIX-l
,11
B
FIX!
BNF FXSRl+20 ,FAC
CHANGE SIGN ON FAC
8
FXSRI
M
FAC
,FX~-1
,11
8
FXMl
lO
99
,FAt
FAC a FAC! J
8
FXOI
TFM FXD-1
,FAC
FAC • J!FAC
B
FXDRl
TFl FAt
,RSGN-l
,11
B
RSGNI
TFl FAC
,FlOAT-l
,11
8
HOArt
BNF FSBRl+26 ,FAC-2
CHANGE SIG~ ON FAC
8
FSBRI

03851
03853
03854
03866
03878
03890
03902
039H
03926
03938
03950
03962
03974
03986
03998
04010
04022
04034

51)8

x

5 X

, x
5

x

3

06
49
4~

49
23
49
28
49
16
49
06
49
06
49
44
49

02492
10604
10816
10796
02492
10842
00099
109010
03925
llO~6

02492
ll066
02492
11158
11416
1139C

0385l
COOOO
C2492
COOOO
0390J
00000
02492
00000
-2492
COOCO
C3971
00000
0399P
COOOO
C2490
COOOO

1620 MONITOR II
01~~0

020eo
02010
0202e
02030
02040
02050
02060
02010
02080

FDV~

FIXI
FAXI
FAXO
SET

TFl
8
TF
8
TF
8
TFL
8
TFl
8

WAlV
.APT
WACO
RATY

TF
8
TF
8
TF
8

TF
8
TF
B
RACO
TF
8
ITYPE AM
8
WRITE I TFM
8
REAOEF 8NF
8
EFMW
TF
8
ATYPE AM
8
RAPT

FTYPE
ETVPE

WA3
HTYPE
WRTE2

......

FORTRAN II-D

,FAC

I~SA

,FIXI-I

,11,

I~SA

,FAXI-I

,II.

IMSA

,FAXB-l

,11,

LOAO

,00344

,11

FIXII
IMSA
FAXII
SAYE-40
FAXBI
FAC
SETI

020~0

02100
02110
02120
02130
02140
02150
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02210
02280
02290
02300
02310
02320
02330
02340
02350
02360
02310
02380
02390
02400
02410
02420
02430
02440
02450
02460
02410
02480
02490
02500
02510
02520
02530
02540

YERS ION 2

SAVE
FOYRI

SWF
WATVI
SWF
WAPTl
SWF
WACOI

SUBROUfiNES

PAGE

SET
04C46
04e58
04010
04082
04094
04106
04118
04130
04142
04154

•

WRITE ALPHAMERIC
,WATV-I

C6
49
26
4~

26
49
C6
49
06
4~

02565
11436
02515
11492
02515
11866
C2525
12300
02492
12524

C2492
coooo
C406R
ocoec
C409l
cooeo
C411P
eeooo
COHM
COOOO

04166
0'1118
04190
04202
04214
04226

26
26
49
26
49

05851
05488
05851
05508
05851
0552P.

C4165
COOOO
04189
00000
04213
COOOO

,

04238
04250
04262
04214
04286
04298
04310
04322
04334
04346
04]58
04310
04382
04394
04406
04418

26
49
26
49
26
49
11
49
16
49
44
49
26
49
11
49

05851
05852
05851
05812
05851
05892
05851
09668
06931
10180
08732
08688
C3118
0916e
05851
054C2

04231
oeooo
C4261
00000
04285
o-occ
-C003
C-OOO
-2557
0-000
05971
c-oec
05384
O-ODe
-0003
C-OOO

,

044]0
04442

33
49

05943
0114C

eoooe
C-OOO

04454
04465
04466
04478
04490

32
49
11
49

05943
5
O714C
05851
08446

0-000
-0003
COOOO

31
43
25
25
44
15
26
31
49

02556
051C6
02563
02561
04514
02558
0671N
07CCl
05014

C5305
071C8
07110
C7I09
Cl110
cooe2
02551
05960
COOOO

,WAPT-I
,WACO-I
READ AlPHA~ERIC
,RAfY-l

SWF
RATYl
,RAPT-l
SWF
RAPT!
,RACO-I
SWF
,8
RACOI
,3
SWF
,8
HYPEl
WA
,GAM.2
,8
WRI Til
EF R02+l2,lOC
EF ROI
,8
FLTEND
,ICON6.6
,8
EFMWI
SWF
,3
ATYPE I
,8
MACRO FOR F TYPE ReAO ANt WRITE
CF
RWEFSW
,8
8
EF COM
MACRO FOR E TYPE READ ANt W~ ITE
SF
RWEFSW
OS
5
TEMP STO~E FOR ZERO INSERT AoORESS
EFCO~
,8
8
AM
SWF
,3
HTYPEI
8
1620 FORTRAN 11-0
All SUBR IN CCRE - SUBROUTINES
TR
GAM+!
,MASK
,CHAR-2
BO
ERF8E
GAM.8
,CHAR
TO
GAM+6
,CHAR-I
TO
,CHAR
BNF e+24
TOM GAM.3
,2
,6
TF
TERM
,G'",.2
,611
TR
OPT
,OPG
WEF OEC
B
OORG ·-4
3 CASES FOR WRIT ING F TYPE,CHAR IS EXP-lOCO-F
CHAR IS NEG, EXP IS NEG

,
,

,
,

,

,.,

,

04502
04514
04526
04538
04550
04562
04514
04586
04598
04605

4~

00000

509
1620 MONITOR II
02550
02560
02510
02580
02590
02600
02610
02620
02630
02640
02650
02660
02610
02680
02690
02100
02110
02120
02130
02140
02750
02160
02110
021BO
02190
02800
02810
02820
02830
02840
02850
02860
02810
02880
02890
02900
02910
02920
02930
02940
02950
02960
02910
02980
02990
03000
03010
03020
03030
03040
03050
03060
03010
030BO
0109C
03lCO

~RTF

TR
80
BO
CM
BNH
C
8H
TF
A
8NF
TF"
A
TF
8NF
TF
TF
TF
FNCNEZ AM
BO
TFM
8
OORG
HERO TFM
TF

YERS ION 2

FORTR AN 11-0

SU8ROUTINES

SET 4

CHAR IS NEG, EXP IS POSITIVE IWRTFPE I
CHAR IS POSITIVE
IWRTFPCI
,MASK EP.l
,FlTENO-4

GAMH
F ZERO
ER F8 E .CHAR-2
,9
CKW
,000
f ZERO
CKW
,WIDTH
ER F8 E
CHAR 2
,CHAR
CHAR 2
,CHAR
WRTFPC
,CHAR
.+35
,GAM
•• 23
,CHAR
GAM
WRTFPE
,FAC
,GAM.2
,6
LAST
DPTM2
,GM2F
,611,
,OPT
WAl
WA3
,2
liEF DEC
,WAl
.11,
WAl
,70
,610
FNCNEZ
.-4
,10
OPTM2
.610,
CHAR 2
,lOCO 2
,0
TO~
CHAR-2
,II
8
ClR7CS-12
ODRG .-4
WRTFPE TF
DPTM2
,OPG
,611
OPT
,OPG
,611
TR
liEF OEC
8
OORG ·-4
WRTFPC TF
.+30
,TERM
e.18
,CHAR 2
S
TF
,GAM+2
TF
ClR 70S.30, TERM
CHAR
C
,lOCO
8Nl ClR lOS
A
OPG
,CHAR
TR
OPT
,oPt
,611
TF
ClRl0SHO,LAST
ClR70S TF" .+35
,MASK
•• 23
A
,CHAR
TERM
,6
TF
WEFDEC TFM OPT
,03
,610
TFM lAST
,610
,DO
8SWF
8
DORG ·-4
ERf8E TR
DUD H.2I,FlZERS-57
TR
GAM.I
,~ASI<
,FAC
TO
GA'''8
TO
GAM+b
.fAC-l
,451
,9
TFM GA~+3
,FAt
8NF -+24
TO~
GAM+3
,Z

"

04606
04618
04630
04642
04654
04666
04618
04690
04102
0'1114
04126
04138
04150
04762
04714
04186
04198
04810
"04822
04834
04B46
04853
04854
0'1866
04818
04890
04897
04898
04910
04922
04929
04930
04942
04954
04966
"04918
04990
05002
05014
05026
05038
05050
05062
0507'1
05086
05098
05105
05106
05118
05130
05142
05154
05166
05HB

SET SIGN lEFT OF OEC PT
INSERT ZUO fROM DEC PT TO
FIRST NCN ZERO DIGIT ON RIGHT

F TYPE OUTPUT EQUALS ZERO

,

~DYES

HOO AlPHAMERICAllV

5 J li

PAGE

31
43
43
14
47
24
46
26
21
44
16
21
26
44
26
26
26
11
43
16
49

02556
04854
05106
06663
04854
06663
05106
06698
06698
0493C
04161
04161
C2555
04898
05720
0821R
04465
04465
05014
04BIC

C5313
C31H
07108
CO-OO
elloo
C5105
01100
Cl110
C7110
07110
-2555
C6698
CCOOO
C2492
02551
0304l
C7003
-0002
04"6N
COOPO
00000

16
26
15
49

0821R
06698
07108
05026

OOOPO
C5596
COOO00000

26
31
49

0821R
0100l
05014

C5960
05960
00000

26

0'1960
0496C
ooooe
05068
07llC
05038
05966
0100l
05068
05013
05013
0671N
0100l
0572C
05816

06715
C6698
02551
C6715
05598
01300
06698
05960
05726
-5311
06698
OOOOC
000-3
000-0
00000

0262B
02556
02563
02561
02558
0519C
OZ558

C6260
05305
02492
02"91
COM51
02492
00002

22
26
26
24
46
21
31
26
16
21
26
It
16
49
31

31
25
25
16
44
15

0446~

1620 MONI TOR 11
03110
03120
03130
0314C
03150
u.H60

ERCO~

03170
031 80
03190
03200
03210
03220

03230 MASK
03240 MASKEP
03250 MASKF
03260 MASK I

03270 ICCN6
03280
03290
03300
0.3310
03320
03BO
03340
03350
OB60
01370
03380
03390
03400
03410
03420
034]0
03440
03450
03460
03410

VERSION

,II
DUD
H+13,GMIM2F
DUO
H+12,VUD H+ 14
TF~
DUD
H+14,03
.10
CM
OATtNH+2 ,08
.10
TFM
E)+2
.67800
BL
ER COM 2
TF
OATOUO+2 ,OATINH+2
TFM
10RT
, *+23
B
10PT
.O.Aroue-1t ,7
ERCOH2
B
OORG '-4

FORTRAN 11-0

SUBROUTINES

SET 4

TR
TF

ICON5
ICON3
ATYPEI

WAHl

.APT!

WACOI

03480 WRTALP
03490 RWA
0]500
03510 REPS.
0]520 MATSW
03530 REPSW3
03540

03550
03560 LOCO
03570 LOC02
03580
03590
03600
03610
03620

036]0
03640

SETS ERROR F 8

05214
05226
05238

ERASES REC MARK

05250

05262
05274
05286

05298

,--2

.'

os

31
26
16
14
16
41
26
16
49
49

02620
02619
02621
0604S
02611
07080
06041
00565
00532
07080

0291~

02621
000-3
000-8
C1800
01300
06049
-5297
-6035
COOOO

05305

MASKS
OSC
10
,451010700'
451070100'
OS
,~ASK+l
OAC
31,000000000000000000000000000000'
000000000000000000000000000000 '
OS
,MASKF+39
B
EF ALPH
,!
DORG '-3
,I
B
EFRO 2
CORG '-3
B
WRT 12
01
DORG '-3
TF
,SWF
WIDTH2
,11
TF
INPLUS
.LAST
A
LAST
.WIOTH2
,HAX2
C'
LAST
8H
ERF9
TF
TER~
.LAST
87
ENOOV
oORG START+16]7
TFM
MAX
,0681
.8
WRTALP
B
oORC .-3
TFM
MAX
,OSSI
.8
WRTALP
8
oORG '-3
TFM
MAX
.1080
.8
TOM
RWEFSW
,1
COMMo~ FOR EACH WR I TE
TF
DATINH+2 ,JIIIAX-2
INITIALIZATION FOR EACH RO OR WR ITE
SF
MAX-I
,--]
OS
2
SET TO 1 WHEN MAn IX HAS CONTROL
OS
1
OS
2
TFM
.00000
'-1
.711
TOM
SWt+1
.2
OS
2
.LoC OF OECI~AL AS SPEC BY FORMAT
2
TWICE LCC 0
TFM
MESERR+8 ,619
.9
TFM
MAX2
tiNt-!
MAX2
,MAX
A
MAX 2
,JIIIAX
A
CONTINUATION OF RWA. ALSO USED AFTER EACH OUTPUT
RECORD NOT TERMINATED BY OOMPL T MACRO
TFM
LAST
,INH

,.-1
,--3

PAGE
05190
05202

.

05305

10

05306

0
31 X

05311
05356
05378
05386
05386

4R

0
09184

00000

4R

08720

00000

05394
05394
05402
05402
05H4

05426
0543"
05450

05462
05414
05488
05488
05500
05508
05508

05520

4R

10236

oooeo

26
26
21
24
46
26
49

05946
05935
05126

0585J

05726
01004
06175
12764

05726

16
49

05914
05540

0-681
00000

16
49

05914
05540

0-881
00000

16

05914
05943

OJ080
OQOOI
05912
00000

05126
05946
06021
01100

05528

05528
0':11)40

15

05552
05564

26
32

05572
05573
05575

05576
05588

16
15

05598
05596
05.00
05612
05624

0604~

05913
2
1
2
05575

05925

-00000002

2
2
02615

00019

06027

-605]

06C27
06027

05914
C5914

-6053

05636

16
16
21
21

05648

16

C5726

05660
05668
05672

15

05668

5j
1620 MONITOR II
03650
03660
03610
03680
03690
03100
03110
03720
03730
03140
03150
03160
03770
03780
03790
03800
03810
03820
03830
03840
OU50
03860
03870
03880
03890
03900
03910
03920
03930
03940
03950
03960
03970
03980
03990
04000
04010
04020
04030
04040
04050
04060
04070
04080
04090
04100
04110
04120
04130
04140
04150
04160
04110

RWA2
TOM
COMPSW OS
TR
TR
CM
WIDTH
OS
8NE
RCTY
LAST
OS
80
RAOOIT TFM
B
CM
BNE
8C4
TOM

VERSION 2

FORTRAN 11-0

SUBROUT INES

COMPSW

.-1

INH-l
INH+86
MAX-2
3

.-1 PROHIBITS.O REQUIRES OUTPUT
.STlERO+l
.STlERC
,10
.06
NO. OF EFF. DIGITS IN FIELD

,--3

05684
05696
05705
05708
05120
05726
05732
05744
05156
05768
05180
05792
05804

,--2

-+21t
5
8SWF
10RT
10GT
MAX-2

,--5

t

ADfl OF RM AT END OF VARIABLE OUT REC

.RWEFSh

,·.23
.OATINH-4 .7
.06
.10
ALLOWS GOOF SWITCH FOR RATY

-+21t
a-72

FlT END-5.2
CONTROLS POSITION IN FORMAT SPECS
SWF
,5

..'

AM
a.18
,SWF
TF
.11
8R TO AOR INDICATED 8Y FORMAT SPEC.
SWF
8
.6 •
SWF
OS
5
RATYl
TFM
MAX
.0687
.8
B
ROAlP
DORG .-3
RAPT!
TFM
MAX
.0881
.8
ROAlP
8
OORG '-3
RACOI
TFM
MAX
.1080
.8
RWEFSW
RDAlP
TOM
.0
MAX
OS
.*-1
RWA
8
DORG .-It
SWL IS A TRINARY SWITCH USEO TO 8RANCH TO THE PROPER SOURCE
TO OBTAIN THE LOCATION THAT GOES wITH THE FORMAT MACRO
B8 FOR OBJECT PROGRAM
BEl NG PERFORMEO
NOP FOR REOO CONTROL
FOR ~ATRIX CONTROL
B
SWL
NOP MATRX 2
WORKING POSITION OF 1/0 RECORD
INPLUS OS
5
~ATRIX CONTROL SETS SWL TO 49
TOM
SWL+1
.9
1 FOR WRT. a FeR ~D. FLAG FOR E
RWEFSh OS
1
.*-It
01 DTH2 OS
3
SWC+l2
.MATSW
80
NOP
,e-I)
TEMP ADR OF DEC PT IN GAMMA
DPG
OS
5
CORE LOCATlCN TO BE USEO
5
LOC
OS
AFTER LOC ADR OBUINED BR TO PROPER MACRO
SWL+I
SWC
TOM
.2
_+20
BR IF hRITlNG
.RWEFS.
BO
SWC ADJ
.6
B
OORG .-'t
SET TO REQUIRE OUTPUT
TOM
COMPSW
.0
CF
lOC
TWICe ~AXIMUM CHAR FOR OUTPUT
04180 MAX2
OS
5

04190

BShF

PAGE

SET

"

05816
05828
05840
05851
05852
05864
05872
05872
058H
05892
05892
0590lt
05914
05916
05923

31
31
14

C
06052
06139

05912

OOOOJ
06230
06229
000-6

3
47
34

05732

G1200
00102

43
16
49
14
47
46
15

OOOOC
5
05816
00565
00566
05912
05B04
05720
03113

11

05851

-0005

26
49

C585J
COOOO

16
49

05846
0585J
5
05914
05904

16
49

05914
05904

0-887
COOOO

16
15

05914
05943
4
05552

OJ080
00000

49

05943
-5167
-6043
000-6
01200
00400
00002

0-687
00000

00000

......

"

,·-1

.'

8

04200 SWCAOJ OS

...

..
..

"

,*-5

RETUR~

ACO CF MACRO

IN CONTROL

5J2

05924
05935
05936
05941

41
15

05946

064C8
5
05925
1
3
05984
00000
5
5

COOOO
OC009

05573
00000

05948
05960
05966
05971

43
41

05912
05984
05996
06003
06004
060 l '
06027
06028
06034

15
43
49

05925
06004
0603M

00002

15
33

05668
05971

oooee

05943
00000

CDOOO

5
49

OOOOC
0

00000

1620 MONITOR II

VERS ION 2

FORTRAN II-C

SU8RoUT INES

SET

PAGE

0~21C

ooRG .-~
04220 CAToue OSA oUOH

06035
06039

04230

DC
-0

2,00

06C39
06041

04240
04250

OG~

OSA

INH

060'02
06047

DC
-0

2,00

060'07
060'09

OATlN~

04260
04270
04280

OG~

DC

04290 ENCFOR OAC
0
INH
OS
04310
OS
04320 IN
OS
04330 STlERO DC
-0
04340
00
04350
00
01t360
00
04370
00
04380
00
04390
00
04400
00
04410
DC
-0
04420 fLZERS DC

I,D

04430
04440
04450
04460
04470
04480
04490
04500
04510
04520
04530
04540
04550
04560
04570
04580
04590
04600
04610
04620
04630
04640
04650

MATR IX

LOCAOJ
MATRX2

SLASM

SLASM2

,ENOFOR
174
176
2

,INH+114
,00

I
5 X
-6053
2

,0246810
,0246810
,0246810
,0246810
,0246810
,0246810
,0246810

06053

I

06053
06227
06227
06229

C

2

,00

06230
062'02
06254
06266
06278
06290
06302
06315

2

,0'

06311

,

5 X
-26Cl
2

06050
06051

,0

0~300

10

OS
5
TOM MATSW
,I
~ACRo TO PROCESS MATRICIES
TOM
SWL+1
,9
TF
LOCAOJ
,FP2
BNF MATRX2-12,MATRI X-I
TFM LOCAOJ
,00
,10
OS
2
,·-3
AOJUST LoC FOR MATR IX
S
LOCAOJ
,K
S
MATRIX-l ,LOCAOJ
A
MATRIX-l ,LoCAOJ
RETURN fROM SWL, EACM MATR IX ELEMENT
TF
LOC
,MATRIX-I
MOVE ADJUSTED LOCATION
SM
PAR
,I
,10
BNE ·.24
TOM MATSW
,0
BNL SWC+12
B8
DORG '-9
MACRO FOR AN 110 tARR UGE RETURN DURING A FOR'AT STATEMENT
TOM CoMENO+l ,9
BO
SLASM2
,RWEFSh
BR If WRITING
8
CoMEND
DORC .-4
80
IOCR
,CO~P sw
BR TO Ie CR IF OUTPUT RECORD BLANK

06322
06324
06336
063'08
06360
06312
06380
06384
06396
06408
06420
06'032
06'044
06'056
06468
06480
06482

..

06482
06494
06506
06~13

06514

X

114

116
2
-0
-0
-0
-0
-0
-0
-0

15
15
26
44
16
22
22
21
26
12
47
15
46
42

-o-c-0-0-0-0-

C-O-O
O-O-C
0-0-0
C-O-O

-0-0-0-02

0-0-0
C-O-O

-c-o-o-c-

5
05573
05925
06)80
06396
063BC
2
06380
06323
06323

c-o-o

COOOI
00009
03052
C6323

coo-o

03843
0646B
05573
C59B4
COOOO

C2221
06380
C6380
06323
COO-I
01200
CCOOO
01300
CCOCC

...

15
43

06647
06514
06646

00009
05943
CCOCO

43

06654

05668

14
4t
26
12
14
46
14
H
16
49
49

C604~

05~71

513
1620 MONITOR II
0'0660
04670
04680
04690
04100
04110
04120
04730
04740
04750
0'0760
04770
0'0780
04790
04800
04810
04820
04830
04840
04850
04860
04870
04880
04890
04900
04910
04920
04930
04940
04950
04960
04970
04980
04990
05000
05010
05020
05030
05040
05050
05060
05070
05080
05090
05100
05110
05120
05130
05140
05150
05160
05170
05180
05190
05200
05210

CM
BH
TF
SM
CM
BE
CM
8L
wRITE TFM
B
COMENo 8
OORG
IOCR
CM
CKW
os
BNL
B
DORG

oATlNH+Z
WRITE
UST
LAST
LAST
a-36
LAST
COM END
10RT
10PT
RWA2-12
'-4
MAX-2
3
WRITE
COMENO
'-4

OS
COMPLT TOM
CHAR2 OS
87
REDO
80
TO
TFM
8
DORG
RECOA TOM
TOM
TERM
OS
AM
TF
8
DORG
RESET B7

3

,06

,

,FLZERS
,02
,00

VERS ION

..

FORTRAN 11-0

SUBROUTINES

SET 4

,10
8R IF Ncr TYPEWR ITER OUTPUT

,6

.10,

ERASE BUNKS FROM END Of 110 RECORD

,6\0

06~H

06586
06598
06610
06622
06634
066'06
06653
06654
06663
06666
06618
06685

,INH

, •• 23
,OATlNM-4 ,7
,08

,--2

PAGE
06526
06538
06550
06562

,10
DEC SPEC PLUS CHAR OF ARG

14
46
49

C6622
05720
05726
0572C
0655C
05126
06646
00565
00532
05648
05912
3
06622
0664t

000-6
C1100
C6311
COO-2
COO-O
01200
-6053
C\300
-6645
-6043

ococe

000-8
01300
COOOO

MACRO TERMINATING 110 CCNUOL

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

REP

REP2

REP3
loA

06681
06688
06698
06700
06708
06120
06732
067'04
06151
06752
06764
06775
06176
06188
06800
06801
06808

COMEND+l ,2

3

,*-1

TWICE

~CoIFIED

CHARACTERISTIC

SUSM+12
REDO A+H,MAT SW
REoOA+23 ,CO~PSW
SWC AOJ
,REDO A
MACRO PER~ITS REDOING BACK TO
SWL
'-4
,I
SWL+l
RETURN fROM SWL I F MORE DATA
COMPSW
VOID REDO USING SWC EFFECT ON COMPSW
,+
5
REffRENCE AOR IN 110 RECORD
,5
SWF
SWF
,SWF
,11
SLASM
·-4
RESETl
MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES
SUB fROM REP SW, INITIALLY SET TO ZERO
IF REPSW NEG, SET TOREPS REQo AND REPEAT FORMH
IF REPSW ZERO, LAST fORMAT REPETITION IS COMPLETE
IF REPSW PLUS, STEP OOhN AND REPEAT FORMAT SPEC
AM
SWf
,7
,I
SM
REP SW
,10. CONTROL REPET IT ION OF FIELDS
BH
REP 2
BE
8SWF
REP sw
A
,11
,S"F
BNH BSWF
SM
SWF
,2
,SWF
Tf
SWF
,11
B
SWF-B
CORG .-4
Sf
REPSW3-1
OS
5
WORK I ~G AREA ACR REF TO fAC OR GAM
AM
SWF
,7
,10
SM
REPSW
,I
,10
BH
REP 2
BE
BSWf

....

,-

06816
06828
06840
06852
06864
06876
06888
06900
06912
06919
06920
06931
06932
06944
06956
06968

.

51

(I

15
49
H
25
16
49

3
06647
3
06494
06776
06775
06034
05924

00002
05573
C5668
-6752
00000

26
49

05925
05668
5
05851
05851
06482

49

12668

\l

05851
05572
06888
05816
05572
05816
05851
05851
05828

-0001
000-1
ClIOO
C1200
C585J
01100
-0002
0585J
00000

05514
5
05851
05575
06888
05816

000-7
000-1
ClIOO
Cl200

15
15

\l

12
46
46
21

47
12
26
49
32
11
12
46
46

ceOOI
00000
-0005
0585J
00000

COOOO

11

1620
05220
05230
05240
05250
05260
05210
05280
05290
05300
05310
05320
05330
05340
05350
05360
05310
053BO
05390
OHOO
OHIO
05420
05430
05440
05450
05460
05410
05480
05490
05500
05510
05520
05530
05540
05550
05560
05570
05580
05590
05600
05610
05620
05630
05640
05650
05660
05610
05680
05690
05700
05710
05720
05130
05140
05750
05160
05770

~ONITOR

11

,VERS ION

REPSW 3 ,ShF
REP 2-12
CPT
5
,*
ERF9
TF~
SWC AOJ
,fR CO~
TF
.MAX 2
LAST
TF~
,61CJ
EI
8
SWL
oORG .-4
XTYPE
,J
AM
SWF
, ShF
A
LAST
B
BSWF
OORG .-4
ERCOM2 RCTY
,--5
OS
5
.'2
WATY oUOH
RCTY
CHAR
•• -5
OS
5
TR
EI+l
,FLZERS-l
BSB8 BSWF-12
SWF
,3
EFeO" AM
TF
WIDTH
,SWF
AM
,2
SWF
TF
,SWF
LOC 0
TF
INPLUS
,LAST
WIDTH 2
,WIDTH
TF
A
WIDTH 2
,WIOTH
A
LAST
,WIOTH2
,MAX 2
C
LAST
BH
ER F9
TF
TERM
,LAST
TERM
SM
,2
, .. 10TH
TF
CHAR
TF
WA
,FNH
,0
TOM 91
TF~
99
,00
,RWEFSW
80
EF WRT
TF
,FLZALP
FAC
TFM EFTERM+18 ,EF TYPE
,READ EF
TF~
SWCAOJ
RDFCH 8NR -+20
,INPLUS
81
ERRF7E
CM
INPLUS
,DO
8HE FCH NB
,I
SM
CHAR
AM
INPLUS
,2
INPLUS
,UST
C
RO FCH
BL
B
EFEND+12
DoRG ·-4
FCHNB eM
,20
INPLUS
BE
EF MIN
CM
INPLUS
,10
BE
EF PLUS
EFTYPE+36
8
OORG .-4
EFWRT C
,F
LOC D
A
B
OS

FORTRAN 11-0

SUBROUTINES

TE~P
~ACRO

Lee OF DEC PT IN OUTPUT Ro
feR ERROR f9 WHEN WR IT IHG

~ACRO

FOR SKIPPING FIELDS

,9

..

.11

WORKI~G

AREA AOR REF TO FAC OR GAM

MOOIFIEo CHARACTERIST Ie
RESTORES RECORD MARK

,11
,11

,10

,11
,11
,610.

PAGE

SET

,11

ElIM INnE LEADING BUNKS

,10

.610, PROCESS FIRST NON 8LANK CHARACTER
,610

06980
06992
01003
01004
01016
01028
01040
01041
01048
01060
01012
07019
01080
01086
01092
07104
07110
01116
07128
07140
01152
07164
07116
07188
01200
01212
01224
01236
07248
07260
07212
01284
01296
07108
07320
01332
013H
01356
01368
01380
01392
07400
07412
07424
01436
01448
01460
07412
01419
07480
01492
07504
07516
07528
01535
01536

21
49

01548
07560
01572
OH84
01596
01608
01620
01632
01644
01656
07668
07680
07692
07699
07700
07112
07724
07736

16
26
16
49
11
21
49
34
39
34
31
60
11
26
11
26
26
26
21
21
24
46
26
12
26
26
15
16
43

26
16
16
45
49
14
47
12

11
H
47
49

05515
06816
5
06034
05126
02615
05924
05851

05726
05816
OOOCC
5
02601
OOOOC
5
02616
05804
05851
05105
05851
05598
05935
05946
05946
05726
05726
070C4
C6775
C6775
0711e
C6931
00097
00099
0753.

021092
08286
06034
OHoe
08416
0593~

01480
07110
05935
05935
07380
08304

-1080
C6021
C,0019
ccoco
-C003
0585J
00000
00102
00100
00102
06316
00002
-0003
C585J
-0002
C5B5J
05126
05105
05105
05946
06021
Cll00
C5726
-0002
05705
02792
ceooo
000-0
C5943
0219P
-7724
-4358
0593N
oeo-o
01200
000-1
-0002
C5726
01300
OOOCO

14
46
14
46
49

01712
0776C

OOOKO
01200
COOJO
C1200
00000

24

0559P

C2219

41
26
26
21
31
16
16
16
12
1t4
12
12
49

01572
055ge
05596
05596

0593~

0770e
0593~

12

C585J
COOOO

515
1620 MoNITDR II
057110
05790
05800
05810
05820
05830
05840
05850
05860
05870
05880
05890
05900
05910
05920
05930
05940
05950
05960
05910
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
06230
06240
06250
06260
06270
06280
06290
06300
06310
06320
06330

EF~IN

EFPLUS
EFTYPE

EXP

EEXP2

EEXP22

EEXPM
EEXP

EEXPAO
LOGOIG

8NH
TF
TF
A
TR
TFM
TFM
TFM
SM
BNF
SM
SM
B
OoRG
SF
SM
AM
CM
BE
CM
BH
BE
CM
BE
BNF
TFM
TOM
OS
CM
BE
CM
BNl
CM
BE
CM
BE
8D
S14
C
8Nl
TO
AM
B
OORG
TDM
AM
SM
B
OORG
TO
A
B
oORG
B~F

SM
B

VERS'loN 2

FORTRAN 11-0

SU8RDUTINES

lDC D
LDCD 2
LOCO 2
GAM-59
WA
WA2
SWCADJ
WIDTH
SWL
TERM
WIDTH
SWl
.-4

,F
,LoC 0
,LOC 0
,MASK F-l
.GIJIII

,FAC-l
,EFMW
,2
,RWEFSN
,8
,4

,10
,10

99

,I
CHAR
INPlUS
,2
INPLUS
,00
LOG DIG
INPLUS
,70
EF DIG
lOG DIG
,03
INPLUS
EF DEC
ERRF7 E ,RWEFSW
EXP
,000
E EXPAo+l,1
, .... 2
3
INPLUS
,45
E EXP
INPLUS
,40
ERRF7E
INPlUS
,20
E EXP,M
,10
INPLUS
E EXP
-+24

,10
,610

077108
,OlO

07760
07772
0178"
01796
07808
01820
07832
07844
07853
01856
07868
07880
07892
07904
07916
07928
07940
07952

,610
,9

,

VALUE OF CALC CHAR FOR OUTPUT

,610
,610
,610
,610

,97

CHAR
,I
,TERM
INPLUS
EEXPAo-12
EXP-l
,INPLUS
,2
INPLUS
EEXP22+12
.-4
E EXPAO+l,2
INPLUS
,2
CHAR
,I
E EXP
.-4
EXP
,INPL~S
,EXP
CHAR
EF END
.-4
,98
EF DIG
CHAR
,I
EF TERM

PAGE

SET

•• 24

07964

,9

01916
07988
08000
08011
08024
080H
08032
08044
08056
08068
08015

,11

,10

,11

08076
08088
08100
08101
08108
08120
08132

010

516

32
12

021096
06931
07086
06034
05705
05924
06715
051e5
05924
0009~

46
43
12
2"
46
25

07110
05935
0593N
08108
0593N
08208
08108
0593N
0814C
08416
01853
08089
3
0593N
08044
0593N
08416
0593N
08032
0593N
0804"
01976
011le
05935
08016
01852

11

059]5

11
14
46'
14
46
46

14
46
44
16
15

14
46

14
46
14
It6

14

49

0196"

01100
C2219
C5598
05598
05316
-2555
-2491
-43B2
000-2
05943
-e008
000-4
00000
ceooo
000-1
-0002
COO-O
01200
OOOPO
C1100
01200
000-3
01200
05943
00-00
COOOI
000M5
01200
OOOMO
01300
OOOKO
01200
aOOJO
01200
00091
00-01
06175
01300
0593N
-0002
COOOO

15

08089

11

05935

12
49

07l1C
07904

00002
-0002
COO-l
00000

25
21
49

07853
07l1C
08292

0593N
07853
00000

44

08208
0111C
0826e

00098
000-1
00000

12
49

13

1620 MONITOR II
06340
06350
06360
06370
06380
06390
064CO
06410
06420
06430
06440
06450
06460
06470
06480
06490
06500
06510
06520
06530
06540
06550
06560
06570
06580
06590
06600
06610
06620
066JO

OORG
EFCEC 80
TFM
TFM
TOM
SM
8
OORe
EFe Ie CF
CPTM2 OS
CM
BNl
TO
AM
EFTERM C
8l
[FENO 8NF
TFM
8
OORe
EFEN02 S
80
SF
TF
SF
8NF
SF
B
DORG
ERRF7E TF

06640

_+36

WA
WA
INPlUS
EFTYPE
EFEN02
FAC
SWl
'-3

CHAR

ERR F 7E
CHAR-I
FAC
FNH
SWl
FAC-2
SWl
'-4
FAC
TO" EI
8
EFENo
DORG
'-4

06650
06660
06670
06680 HTVPEl 8SBA
06690
TF"
06700
A
06710
8lX"
06720
AM
MA
06730
MA
06740
06750
80
06760
MA
06170
MA
06780
SM
06790
A
A
06800
06810
C
06820
8H
06830 HROWR I TF
06840
8XM
06850
8CX"
TOM
06860
06870
8S88
06880 EFROI CF
06890
TF

VERSION 2

.-4
ERRF7 E ,97
laC C
,DO
EFTERM+18,EF PLUS
,-I
97
CHAR
,L
EF TERM
.-4
98
5
"
WA
,fAC-l

FORTRAN 11-0

,10
,10

..

,

,lNPlUS

TEMP AOR CF DEC PT IN 110 REC, -2
TRUNCATES lew ORDER DIGITS

,611

,I
tTER~

, l l , lERO CHECK
,lOll

,FNH

,99
,LOC 0
,CHAR-2
,CMAR

,

,6

,99

,ll,
,11,

• FllAlP
,7

PAGE

SET 4

SUBROUTINES

F PLUS 2 ZEROS TO FAC
SET ER F7 INDICATION SW ITCH

08139
08140
08152
08164
08176
08188
08200
08207
08208
08219
08220
08232
08244
08256
08268
08280
08292
08304
08316
08324
0832'
08336
08348
08360
08372
08384
08396
08408
08415
08416
08428
08HO
08441

43
16
16
15
12
49

08416
05598
08286
00091
071IC
08268

00091
000-0
-7712
COOOJ
000-1
00000

3l

24
41
44
16
49

00098
5
06931
08268
0693J
06931
05935
07724
08324
02492
05924

-2491
C\300
0593N
-0001
06775
01300
0279K
OCORR
00000

22
.3
32
26
32
44
32
49

07lle
08416
07109
02492
0279K
05924
02490
05924

01108
CCOCO
C7110
00000
00099
00000
00000

26
15
49

02492
02615
08292

0279P
COOOP
COOOO

08448
08460
08472
08484
08496

60
16
21
66

08460
00314
00314
08496
05851

08~08

70
70
43
7C
10
12
21
21
24
46
26
62
64
15
60
33
26

08634

OCOCI
-COOO
C5H5J
000-0
-C002
05726
05851
0594J
05851
05726
-C002
00314
00314
C6C21
01100
999R9
000-2
aO-OK
00000
00002
COOOO
05392

08712
08719
08720
08732
08744
08751

49

10604

00000

15
06
49

03069
0597J
10140

oocoo

08752
08764
08776
08788
08800
08812
08824
08836
08848
08860
08872
08884
08896
08908
08920
08928
08940
08948
08960
08972
08984
08996
09008
09016
09028
09040
09052
09064
09076
09088
09100
09112
09120
09132
09140
09152

70
43
33
11
24
47
44
33
26

09160
09172
09184
09196

06
44
15
26
22
16
22
26

14
46
25

11

14

coooo

C5St;la

MACRO FOR Hall ER ITH TYPE READ AND WR ITE
e+12
00314
00314

,00000
,-SwF
e+12
,0000011)
SWF
,00002
HROWRT+6 .lAST
HRDWRT+ll,SWF
e+36
,RWEFSW
HRoWRT+6 • SWF
HRDWRT+II,lAST
SWF
,00002
SWF
,00314
lAST
,00314
,MAX2
lAST
ER COM2
DUMMY III ,DU~MYII)
,00002111
-+12
.-21t
,-00002121
,0
COMPSW
8SWF
lOC
F IXENo+6 ,I CON 5+6

08520
08532
08544
08556
08568
08580
08592
08604
08616
08628
08640
08652
08664
08676
08688
08700

11

08639
08568
08634
0863~

05851
05851
05726
05726
0708C
999R9
08652
08628
05668
05816
05911
03074

517
1620 MONITOR II
06900
06910
06920 EFR02
06930
06940
06950
06960
06970 REAoA
06980
06990
07000
07010
07020
070JO

8
DORG
TOM
TFl
8
oORG

MA
80
CF
AM
C
8l
BNF
01040 xQTl
OF
07050
TF
07060
S
07070 ROA
BH
07080
A
07090
MA
07100
TF
07110
87
07120 ERF7A TOM
07130
87
07140 ROAFl TFM
07150
SM
MA
07160
07170
TF
07180
S
07190
87
07200 WRlTEA TF
07210
8NF
07220
SM
07230
S
07240 WRTA
8H
07250
A
07260
MA
07270
TF
07280
87
07290 IoRTA2 SM
07300
87
OHIO .AFX
S
07320
87
0733C
07340
07150
07360
07370
07380 EFMWI TFl
07390
8NF
07400 EFAlP~ TOM
07410
TF
07420
S
07430
TFM
07440
S
07450
TF

VERSION 2

FORTRAN 11-0

SU8RoUTlNES

SET 4

FIXl
'-4
F IXENO+l ,2
,FAt
,6
lOC
ER Fl
.-4
MACRO FOR A TYPE READ ANt WRITE
XQTZ+11
,lOC
WRITEA
,RIIIEFSW
INPlUS
,6
INPlUS
,01
,10
INPlUS
,TER~

,

.-36
RDAFl
loC
loC
WIDTH2
ERF7A
XQTZ+11
lOC
lOC
ERF7
EI
ERF7
lOC
XQTl+ 11
lOC
lOC
WIOTH2
RoA
FAC
WAFX
XOTZ+ll
WIOTH2
WRTA2
XQTl+ll
loC
TERM
8SWF
WIoTH2
WRTA
WIOTH2
WRTA

,LOC

,

,FXl
,K

,7
,6

,WIOTH2
,XOIZ+l1
• TERM

,611

,7

,11

,00
,00002
,XCTZ+l1
,FLl
,F

,610

,lOC
,FAC-l
,00002
,F

,II

,611

,WIDTH2
,XQTZ+ll
,lOC

.611

,02

,10

,K

E AND F TYPE MANTISSA WRITlNG,FlOAT ARG IF REO.
COMPUTE DEC PT IN GAM AND GUT PUT RECORD. MOVE
MANTISSA DIGIT BY DIGIT, RIGHT TO LEFT, FROM FAC
TO GAM. INSERT SIGN, CHECK WIDTH, AND lERO.
BR TO WRT F FOR F TYPE CONTINUATION
FAC
,II
,lOC
,FAC-l
FlOATl
FlTEND-5 ,2
OPT
, TERM
,lee 0 2
OPT
OPG
,GAM
,toe o 2
oPG
OPTM2
,OPT

51 8

PAGE

09208

09220
09232
09244

22
46
21
70
26
49
15
49
16
12
70
26
22
49
26
44
12
22
46
21
70
26
49
12
49
22
49

00002
02492

08841
09016

05971

0593~

00000
000-1
06775
01300
C5971

05935
05935
08776
08948
05971
0597J
05946
08928
08847
05971
05HJ
1014C
02615
10140
0597J
08847
05971
0597J
05946
08872
02492
09\40
08847
05946
0912e
08847
05971
0617N
05816
05946
09064
0~946

05~43

-0000

03260
02221
01100
05946
08847
06 77~
OOOOP
000-0
-0002
08841
C280K
02219
0597J
02491
-0002
02219
01100
05946
08847
C597J
000-2
02221

00064

02492
11158
03113
07003
07003
05966
05966
08219

0597J
02491
00002
06775
05596
-2555
05596
07003

15

1620 "CNITOR II
07460
07410
01480
074'10
01500
c 1510
07520
07530
01540
07550
07560
07570
01580
07590
01600
07610
07620
07630
07633
07636
01640
01650
01660
01610
01680
07690
07100
07110
0712C
07730
07140
07150
07160
07170
07180
01790
07800
01810
01820
01830
01840
07850
07860
07870
01880
07890
07900
07910
01920
07930
07940
07950
01960
01910
01980
01990

SM
HALP
SM
TO
CF
SM
C
BH
TFM
BNF
TH
EFOHK S TFM
A
A
TF
S
C,
Bl
CM
BNF
87
8l
BD
TOM
TFM
BNF

OPTM2
~A 2

VERSION 2

FORTRAN 11-0

SUBROUIINES

SEI

~

,2

.t

~A

,611

,WA2

~A

,

~A

,2

~A2

,FNH

,6

EF ALP
,00
,FAC-2
,20

~A

EF CHKS
~A

,610

CK~
CK~

,9

,lOCO
,FAC

CHAR
CHAR
WiDTH
ER F8
FAC

,Cl eR - ONE
IS I POSITIVE
NO, ERR G2, J TO MINUS I POWER
FAC • FXl
STORE J

,10.

,8ETA

,

,6

,99
,00

,610, TEST OVFL
,9,

,173
,I

ERR Gl, OYFL IN FIXI
SET UP SIGN

PAGE
11286 31
11298 26
11310 11
11322 45
11334 15
11146 25
11358 26
lUl0 32
11382 49
11390 33
11402 01
11414 42
11416
11416 32
11428 49
11435
11436 06
11H8 43
11460 26
11472 09
11484 42
11491
11492 11
11504 n
11516 26
11528 42
11530
11530 11
11542 41
11554 44
11566 16
11518 49
11586
11586 15
11598 11
11610 25
11622 13
11634 ,43
11646 H
11658 41
11670 24
11682 It6
11694 44
11706 16
11718 26
11130 49
11738 26
11750 12
11762 46
11774 23
11786 32
11198 26
11810 11
11822 46
11834 16
11846 15

0219K
11333
11333
llHC
1l31l
02493
02603
0279K
03llJ
OH9O
02492
00000

1125L
02192
-0001
99999
COOOC
02403
02693
00000

0249C
11402

00000
00000

C2492
11472
00079
02492
00000

0404N
C3018
0285R
02565
COOOO·

02515
11530
02492
OOOOC

000-0
01200
03210
00000

02492
11586
11528
02615
11014

coo-o
01200
02575
OOPll
CoOOO

1165~

COOOI
02492
02575
C-0-5
C0099
00000
COOOO
C3210
01Z00
02575
00P72
03260

03019
11631
11631
11658
03019
12028
02492
0302C
11138
02615
02'092
03144
02603
02575
0302C
02492
0Z18K
02492
0277P
11750
OZ615
C3009

20

00000
0402J
COOOO

OZ492
000-1
01Z00
02603
OOOCO
00099
COO-O
01200
OOP73
COOOI

523
1620 MONI TOR II
10210
10220
10230
10240
10250
10260
10270
10280
10290
10300
10310
10320
10330
10340
10350
10360
10310
10380
10390
10400
10410
10420
10430
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
10110
10720
10730
10740
10750
10760

B
OORG
FAXll AM
BNZ
cNEFAC TFM
TF
88
OORG
8D
8NF
TFM
OVFLO Tf
TF~

AXJ

REtlP

NDDIY

ERXVS

FAX81

QSTS
QSTSl

81
BLXM
MF
TOM
B
CORG
fSL
TFM
8NF
CF
BD
TF
TFL
TFL
FDIV
8NXV
81
TFL
SM
BE
80
TF
FMUl
8NXV
TF
8LXM
TF
MF
8UM
AM
8Z
BD
8NF
TfM
B
OORG
MF
Tf
BlX
B7
BD
TF
FM~L

FXNINE

'-4

IMSA
•• 31
FAt
FAt-2

FORTUN 11-0

YERSION 2

.

,DO

,01
,ONEZ-It

..

SU8ROUTINES

11858
11865
11866
11818
11890
11902

,10

,10,

NO, CONTINUE

YES

fAC

a

PAGE

SET 4

1.

11911t

'-9
e+68
'-14

EI
FAC-2
FAt
ERXY
SET+12
MU-I
ODOREV>1
PSI
'-4
fAC-3141
EI
ND DIY
IMSA
.+24
19
SAVE
FAC
FAC
NOOIY
EUVS
GAM
IMSA
e+8"
0+24
19
FAC
NODIY+12
FAC-2
RESET
FAt-2
fAt-2
RESET
SAVE-42
ONEFAt
-+It,,
fINISH+l
EI
OYflO
'-3
FAIBI
fIXEND+6
SET+12
QSTSI
•• 24
19
FAt

,fNH
,IMSA
,114
,9SCPF
,99

..

,II,
,9,

IS A ZERO
YES. IS I NEGATIYE
YES, ER G4, ZERO TO MINUS I

,10

,.-110 I
,fAt-Z
,9
,FAC-2
,175
,IMSA
,WJRS
,ZEROH
,FAt
,ONEZ
,SAVE
,fAC
,01
,WJRS
,LEROM
,GU

,9,

SET UP ERR G5 CODE

,11.

CLEAR MULTIPLY AREA

,10
.11,

,fAt-4
,ERXYIOI
,FAt-4
,MU-l
,FUENOIOI
,aD
.10.

,

,FNH
,SAVE-42
,1T7
,FAC-Z
,QSTS+6
,LNENT(C I

,

,WJRS
,ZERO~

..
..

.11,

,9,

..
..

tLEAR

~ULTlPlY

AREA

IS B ZERO
YES
NO, IS A ZERO
NO, IS 8 NEGATIVE
YES, ER G1. ZERO TO MINUS B

FIND LNIAI

,0
fAt. e'UIAI

,11

,SAVE-40

52'1

11916
11916
11928
11940
11952
11964
11916
11984
11996
12008
12020
12027
12028
12040
12052
12064
12016
12088
12100
12112
12124
12136
121'U
12156
12168
12180
12192
IZ204
12216
12228
12240
12252
12264
12276
12288
12300
12312
12324
12336
12348
12360
12368
12368
12380
12392
12404
12412
124H
12436

49

11014

11

OZ575
11916
0249Z
0249C

H
16
26
42
43
44

16
26
16
49
66
71

15
49
05
16
44
33
43

26
06
06
09
47
49
06
12
46

43
26
03
41
26

66
26

11
66
11
46
43
44
16
49

11
26
65
M9
43
26
03

oooce

00000

Coo-o
01Z00
000-1
03298
00000

U9H
11914
02615
0249C
02492
0312C
04154
03019
11659
1161C

OZ79K
C2575
COP74
03238
OeOR9

OK489
02615
12156
02515
12100
00019
02565
02492
02492
12156
1224C
02555
02515
12264
12216

02490
00P75
02575
COOOO
03018
028SR
02492
03302
02565
01500

ooon

02492
12168
0249C
06808
02490
02490
06808
02523
11890
12368
03112
02615
11952
12300
03014
04154
12412
12436
00079
02492

11983
02490
00009
00000

02492
000-1
01200
03018
0285R
OZ555
01500
02488
03120
02488
03019
C3068
000-0
01200
0219M
02523
OOP71
00000
02490
12410
02807
03018
0285R
02525

ZI

1620 MCNITOR II
10770
10780
10790
10800
10810
10820
10830
10840
10850
10860
10870
108RO
10890
109CO
10910
10920
10930
10940
10950
10960
10970
10980
10990
11000
11010
11020
11030
110~0

11050
11060
11070
11080
11090
11100
11110
11120
11130
111~0

11150
11160
11170
11180

VERSICN 2

F IXENO+6 ,AlSFQ+6
BU SET+12
,EXPENTCO."
,a
AlSFQ B7
AlSFOl
AlSFOI TD~ FIXEND+l ,2
BNF FINISH+l ,FAXRl
TF~
,9,
,676
EI
B7
ERXV+24
SETI
CF
00344
BXM a+12
,13(0 I
,00000
TF~
00309
TF~
00314
,00000
MU-l
CF
RESETl+34
SF
BNV ·+24
CF
RESETl+34
TFL QZF
,QZl
BNXV a+24
TFL QZF
,OZ2
BS8A 0034~
,6
•• 12
RESEll BV
BNXV -+12
AM
,19
,00000
"8
FMUl QZF
,QZ2
,MU-l
BNF -+2,.
SF
FAC-Z
,6
BSB8 00304
2 , 01
DC
-1
2 , 01
QZl
DC
-1
2 , 90
DC
RO
2 , 90
OZ2
DC
RO
QZF
OS
4
ENCOV SM
TERM
,00002
TFM SWCADJ
,RUOA
B7
SWl
DORG 15000
,00701
3~
83
,00702
38
8l
36
83
,00703
B
-+22
DORG .-]
B3
OSC 9
,016840091
016840091
oSA STARr+]

FORTRAN 11-0

TF

,

FIND

SUBROUTINES

SET

PAGE
12~~8
12~60

26
65

12~72

~9

12480

15
44
16
49
33
62
16
16
33
32
41
33
06
H
06
60

0306~

~6

1268C
12692
12700
12163
12740
02490
0030M
2

e•• (B-UHAI1

12~92

ER F6, -A TO B

12504
12516
12524
12536
12548
12560
12572
1258~

12596
12608
12620
12632
12644
12656
12668
12680
12692
1270~

12716
12128
121~0

41
11
03
~4

32
60

12753

22

0074
OHH
1248C

12478
02812
COO02
12300
00076

C3112
02615
031H
00344
12548
00309
00314
C301~

121C2
1262C
12102
12163
12656
12763
0034~

cooco
COO13
-0000
-0000
COOOO

coooo

01400
COOOO
12755
C15CO
12159
CCOOI
C1400
01500
-0-00
12759
03019
COOOO
00002

12155
12157
12159
12763
12764
12776
12188
15000
15000
15012
15024
15036
15044

12
16

4
06775
0603~

~9

05924

34
38
36
49

15044
15044
15044
15058

-0002
-8752
00701
00702
00103

coooo

150~4

15051

5 X

15051
11190

TRA

11200

TCo

11210 GIGS

H

15082

11220

oENO GIGS

15082

15058
15010
15000

15000

-385~

36
49

ooooc

OCOOC

00500
COOOO

~8

OOOOC

COOOO

525
1620 MONITOR /I
·AlSFQl
ATAN.6
ATYPE1
CLR lOS
CO~ACo

toMEND
·COMPLT
CO"PSW
oAloUD
oAJlNH
OIOoDA
oKBUFF
OKoATA
EEXP22
EEXPAD
EFAlPH
EFCHKS
EFEND2
EFPlUS
EFTERM
EFTYPE
ENOFOR
ENUBS
ENTATN
ENTCOS
ENTDEo
ENTDRR
ENTEXP
ENTFET
ENTFlo
ENTREC
ENTSC2
ENTSt3
ENT sox
ENTSIN
ENTSQT
ENTSWo
ERCOM2
ERRF7E
ERRFlI
EXPENT
FINolN
FINISH
FIXENO
FLOAT 1
FL TENO
FlZAlP
FLZERS
FNCNEZ
FXNINE
GM1M2F
HRoWRT
HTYPEl
IMINUS
IMSAPF
INPlUS

121080
031t30
05~02

05038
02231
06646
066B8
05668
06039
06041
02821
02404
0281l
07952
08088
0918~

09376
0832~

01712
08268
07724
06053
02323
02313
02303
02298
02293

02253
02283
02213

02278
02258
02263
02268
02308
02318
02288
07080
08H6
10048

02812
02915
03111
03068
11158
03118
02791
06317
04810
11014
02914
08628
08448
10028

02181
05935

IRBlNK
ITYPEI
lDGDIG
lotAoJ

VERSION
10008
09668

08108

~ASKEP

06380
05306

~HRU

0632~

MAJRX2
"ESERR
MONCAl
NORM60
OoOREY
oNEFAC
oVFlOW
PRoGST
RAoOIT
RUoEF
REAoIF·
REPSW3
RESEll
RWEFSW
100MK
99MK
9SCPF
AlSFO
HYPE
AXJ
B3
BETA
8SWF
CHAR2
CHAR
CKW
DID
DPG
oPTM2
OPT
oUOH

06408
02601
00196
11370
11658

DU~

DUMMY
EEXP2
EUPM
EEXP
EFAlP
EFCO'
EFDEC
EFOIG
EFENC
EFMIN
EFMWI
EFHW
EFRol
EFR02
EfWRT

EI
ENDO
ENOOY

11890
02960

02226
0574~

04358
10128
05575
12668
05943

02782
02177
03238

FORTRAN 11-0
ENTlN
ERto~

ERF7A
ERF7
ERF8E
ERF81
ERF9
ERRET
ERROR
ERXV
ERXVS
ETYPE
EXP
FAt
FAXBI
FAXB
FAx11
fAX I
FCHN8
FoVRl
FOYR
F1X1.
FUll

SUBROUTINES
022'"
05226

08928
10140
05106

10572
0700~

0060Z
02984
03120
122~0

0410510
01B53
02~92

12300

010118
11866

040910
07~80

11~36

010046
10604
11492

SET 4
ICoN2
ItON3
ICON5
"ON6
10lG
IMSA
INH
IN
lOCAL
IOCR
10GT
IOPT
10RBC
10RT
10SK
IRolG
IREAo
/TYPE
K
LAST
lNIO
lNl
lN2

12~72

flXl

0~070

lN~

OH06
12028

FIX
FKOoo
FLOAT
FLZER
FLZ
fMl
FNH
FPIMK
FP2
F
FS8Rl
FS8R
FTYPE
FXl
FX9
FXOI
FXoU
FXoR
Ho
HERR
FXH
FXMl
FXM
FXSRI
FXSR
HZ
FlERO
GAM
GIGS
GM2F
HO
HTYPE

03854
02967
03998

lN8
lNENT
lOC02
lOCO
loC
lOGE
"ASKF
MASKI
MASK
"AJSW
MH2
"AX
MF
MU
NI
N2
NODIV
ONEZ
OUT
OVFlO
PAR
PIOV2
PI
PSI
QSTSI
OSTS
QZl
OZ2

150410
02603
05816
06698
07110
06663
00820
05966
08219"
0700]
02601
02681
99999
0190~

08032
0804~

09268
071~0

08140
08208
08292
01700
09160
04382
08688·
08120
01536
02615
0301.
12164

037~2

02802
02969
02792

02112
03052
02219
11390
04022
0~~30

03270
03250
10904

110106
03950
03926
02984·
02172
LC842
0]902
10796
03878
03260
010854
02555
15082
030~3

10351
04418

QZF
RACol
RACD
RAPT 1

526

PAGE

10172
05394
05386
05318
10328
02515
06053
06221
00116
06654
005H

005]2
00520
0.0565
OC554
09912
09800
04310
02221
05126
03681
03551
03588
03619
03650
02801

05596
05598
05971
03366
05311
05356

05]05
05573
06027
05914
03054
03020
02233
02238
12156
03302
10515
11952
038H
03526
03462
11610
12412
12404
12155
12159
12163
05892
04286
05812

23
RAPT
RATYl
RATY
ROAFL
RoAlP
RoA
RoFCH
REAOA
READI
RECIP
REClG
RECMK
REOOA
REDO
REP2
REP3
REP
REPSW
RESET
RSGNI
RSGN
RWA2
RWA
SAYE
SEll
SET
SLASH
START
STOP
SWCFX
SWC
SWF
SWl
TAFE
TEN34
TERM
TRACE
TRFX
TWOPI
ThO
UNFlO
WA2
WA3
hACDI
WACO
WAFX
WAPTl
WAPT
WA
WATVI
WHY
WIDTH
WJRS
WRITE
WRU2
WRTA

04262
05852
04238
089108
05904
08812
01380
0875,
10080
12088
02243
02403
06152
06108
06888
06920
06816
05512
06808
11066
03914
05660
05552
02565
1252~

04142
06482
03851
02395
03168
05972
05B51
05924
02535
03334
06175
02884
02946
03398
03112
02860
01C86
04465
05528
0421~

091~0

05508
Oltl90
06931
05~88

04166
05105
03018
06622
09120
09064

1620 MCNITOR II
~RTE2
~Rn

WRTF
WRTI2
WRTl3
END Of ONE

04502
C9552
0460'
10236
10H4

WRTI
W
XQTZ
XTYPE
lERO~

VERS I.CN
10212
02240
08836
01048
02859

FORTRAN [1-0
lERO
SUrEN
SlASH2
SHERO
SWCAOJ

SUBROUTINES

SET 4

PAGE

WEFCEC
WIDTH2
WRITEA
WRITE I
WR ITIl

02161
03494
06514
06229
06034

05014
05946
09016
04334
10180

24

WRTALP
WRTFPC
WRTFPE
WRTSGN
lERFAC

ASSE~Bl Y.

527
1620 MONITOR II
0(1010
00020
00030
00040
00050
00060
00010
00080
00090
00100
00110
00120
00130
00140
00150
00160
00110
00180
00190
00200
00210
00220
00230
00240
00250
00260
DOnO
00280
00290
00300
00310
00320
00330
00340
00350
00360
00310
00380
00390
00400

.....

10RBC
10PT
IDSK
10GT
ERRET
10RT
IDCAl
MONCAl

F
K
PROGST
COMAOO
NI
N2
W
REClG
ENfLN
ENTEXP
ENTSC2
ENTSt3
ENTSDX
ENTFIO
ENTREC
ENTFET
ENTSIID
ENTDRR
ENToeo
ENTCOS
ENTSIN
ENTATN
ENTSQT
ENTABS

.....
STDP

00410 RECMK
00420 FINDIN
00430
00440 SIICFX
00450
00460
00470 99~K
00480
00490 FAC
00500

VERSION 2

FORTRAN 11-0

SUBROUTINES

00510 OHEFAC TfL FAC
00520 RTN
BSB8 ·+12
00530
BB2

,-

"

,HONE

528

PAGE

SET

1620 FORTRAN II-D
SUBROUTINES WITH FLDATING PDINT HARCWARE
10RT ENTRY PDINTS AND CDNSUNTS
DS
,520
DS
,532·
,554
OS
DS
.566
DS
,602
DS
,565
DS
,716
OS
,196
Ib20 FDRTRAN 11-0 IN CORE AREAS
COMMUNICATION AREA
OORG 2218
OS
2" FLOATING POINT WORD lENGTH
OS
2" FIXED PDINT ~DRO LENGTH
OS
5" STARTING ADDRESS DF "AlNLlNE PROGRAM
OS
5" STARTING ADDRESS OF CDMMDN AREA
OS
2" NUMBER OF WORDS IN LDGICAL RECORD
DS
5" NUMBER OF LOGICAL RECORDS
OS
2" NORD LENGTH
OS
3" RECDRD LENGTH
DS
5" ENTRY ADDRESS TO lOG SUBRDUTI NE
DS
5 .. ENTRY ADDRESS TO EXPONENT UI SUBRDUTINE
DS
5" ENTRY ADDRESS TO DDUBlE SUBSCR IPT SUBRDUTINE
OS
5" ENTRY ADDRESS TD TRIPLE SUBSCRIPT SUBRDUTINE
OS
5" ENTRY ADDRESS TO SNITCH D FIXED SUBROUTINE
DS
5" ENTRY ADDRESS TO FIND SUBRDUfiNE
DS
5" ENTRY ADDRESS TO RECORD SUBROUTINE
OS
5" ENTRY ADDRESS TO FETCH SUBROUTI NE
OS
5" ENTRY ADDRESS TO SWITCH 0 SUBRDUTINE
DS
5" ENTRY ADDRESS TD ARRAY SUBROUTINE
DS
5" ENTRY ADDRESS TD DI SK END SUBRDUTINE
DS
5 .. ENTRY ADDRESS TD CDSINE SUBROUTI NE
DS
5" ENTRY ADDRESS TD SINE SUIRCUTINE
OS
5" ENTRY ADDRESS TD ARCTANGENT SUBROUTINE
DS
5" ENTRY ADDRESS TO SQUARE RDDT SUBRDUTINE
OS
5" ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
DS
70,.RESERVED FDR ENTRIES TO AOOEt SU8ROUTINES
COMMDN NORKING AREAS
OAC 5,STDP'
STDP'
DS
,STOP+8
DS
1
OS
5
TO
-SWCMl
,SIICFX-l
TFL -SWCM2
,SIICFX-2
SF
-SWCMl
,00000
5
,00099
DC
-0099
11
-3808
DS
4O
DC
I

00520
00532
00554
00566
00602
00565
00716
00196
02218
02219
02221
02226
02211
02233
02238
02240
02243
02248
02253
D2258
02263
02268
02213
02218
02283
02288
02293
0229B
02303
02308
02313
02318
02323
02393

2
2
5
5
2

5
2
3

5
5
5

5
5
5
5

5
5
5
5

5
5
5
5
5
1C

02395

5 •

02403
02404
02409
021t10
02422
02434
02445

C
1
5
25
06
32

021046
02492
0249]

49

02494
02506
02518

06
60
42

032C~

C32eR
0320M
5

2

e2409
02lt08
cooeD

C38C~

40
1

C2492
02518

03153
COO02

05540
04930
04B98
10408
02836

1620 MONITOR II
005~C

00550
00560
OOHO
005S0
00590
006CO
00610
00620
00630
006~0

00650
00660
00610
00680
00690
00700
00710
00120
00130
OOHO
00150
00160
00170

VERSION 2

FORTR_N 11-0

SUHRCUTINES

seT

ENOFOR oAC 1,0
0
INH
OS
,ENOFOR
SAVE
OS
,INH+71
SETA
OS
, SAVE+38
IN
OS
176
HSERR OAC 6,ER E '
ER F. '
OUCH
,MESERR
OS
H
,MESEMR+8
OS
,0
Due
Ot
30
-00 C00 00 0 0 00 0 0000 0 00 0 0 0000 0000
GA~
OS
,DUD
ZERO
18
,0
Ot
-00000000000000000
,0
DC
10
-000000000
ROlERO DC
2
,0
-0
lEROI0 OS
,ROlERO-2
STlERO DC
,0
2
-0
00
,0246810
00
,0246810
00
,0246810
00
,0246810
00
,0246810
00
,0246810
00
,0246810
,00
DC
-0
FllERS DC
,0'

02521
02592
02630
02697
02699

00800

2

OC

02699
02707
02139

0
C
3C

02139
02757

C
Ie

02761

10

02767
02771
02172
02184
02196
02808
02820
02832
028~4

0
2
-0
-0
-0
-0
-0
-0
-0

02851

-O-C-0-0-0-0-0-0-0-0-0-0-0-02

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

02859

,00

02860

olOODA

5 X

02866

-2868
1

02866
02867

"

00810 01000_ DSC
0
00820
DC
5
-0000
00830
3
DC
-00
00840
DC
6
-0000'
00850 lERFAC TFl FAC
00860
B7
-HTENO
OOBlO UNFlD TFl FAt
00880
B7
ERIY+l2
00890 INFFAC TFl FAC
00900 CVFlO~ DS
00910 ERROR RtTY 00001
00920 M2KMI OS

C
C
C
176
6 X

02169

,

00180 oKCATA OSt
00
00190
OSA

PACE
02521

,0

02868

,0

02813

,0

02816

"

02882

,FLlER

02884
02896

,FLIER

0290~

02916
02924
02924
02936
02942

,INF
,INFFAC

,

,26

,--5

06
49
06
49
C6
34

02492
02960
02492
02980
02492
C
-OOOJ
0

03131
03131
031&3
00102

529
1620 MONITOR
00930
0094b
00950
00960
00970
00980
OOggO
01000
01010
01020
01030
01040
01050

~ATY

FIXENO
FLTENO
MU
ERXV
M2KPI
FKCOO
TRACE
10CMK

01060
01070
01080
01090 IRFX
01100 FXH
01110
01120
01130 FX9

.....

01140 FXl
01150 Fll
01160
01170 ONEZ
01180
01190 FLIER
01200 •
01210
01220 lOGE
01230
01240 FlONE
01250
01260 INF

.

01210 ,
01280
01290 MKPI
01300 _K
01310 .KS
01320 lNENT

B7
DS
DS
BNF

MESERR
RTN

"

VERSION 2

FORT UN 11-0

SUBROUTINES

PAGE

SET

,FIXEND+6
,FlTEND+2
,FAt
,0101
,810

-+24
AM
EI
DS
,--2
,--4
DS
ERROR
B
,6
,FAt
TFl TRAtE-l
BNt4 RTN+l2
RtTY 00000
,--5
,100
DC
5
-OlCO
,FAt-1
BNF TRFX
~TY FAt-9
BB2
WNTY FAC+I
,2
,--!I
OS
B82
1620 FORTRAN 11-0 FIXED PCINT tC~TANTS
,9999999999
DC
10
R999999999
,0000000000
DC:
10
-000000000
,000000000 I
DC
10
-000000001
10, 1000000000
DC
JOOOOOOOOO
2, 01
DC
-1
,0
DC
8
-0000000
DC
2
.-99
RR
CONSTANTS REQU IRED FOR RElOtATABLE SUBROUTINES
,'1342944819
DC
10
M342944819
,00
DC
2
-0
,10000000
DC
8
JOOOOOOO
,01
DC
2
-1
,99999999
DC
8
R9999999
,99
DC
2
R9
•••••• WATY •• WAPT .. WACO. lOADS IX Al WITH FORMAT ADR SUPPlIEO
_ ••••• BY MAINLINE, STCRES REQD MAX REt lNGTH + ceDe FOR DEFINER
,I
DC
5
-0001
,0
DC
5
-0000
,MK
OS
2
,-I
Dt
5
-OCCJ

,

53u

02948
02960
02966
02968
02968
02980
02989
02981
02992
03004
03016
03028
03034
03040
03052
03064
03066
03012
03078

39
49
44

11
49
06
~1

3~

44
38
42
38

02699
02506
0
0
02992
C2707
0
C
02936
0300l
02518
oocec
5

00000
02492
C040C
eOl02
C2491
CCI00

-2493
C

00100

42
lC

03099

It

03109

10

03119

It

03121
03129
031ll
Ie

03143
03151
03153
03161
03163

03168
03173
03173
03178

02492
0-1-1

03066
02483

03089

03141

COI00

2
5

1620

~ON

01330 E XP E,..T DC
5
-OO(;J
C 134C ~AX
OS
5
01350
OORG 03200
SWC-I
01360 SWCMI OSA
01310 SIIC"2

OSA

I TOR II

VERS ION 2

FORTR~N

11-0

SUBROUTINES

SET

,-I

SWC-2

,TYI
TFL MAX
,0
TOM
TYPE
,06113
,19
WRTAlP
8
TYI
OS
WAPTI
,PT 1
TFL MAX
8
WRTAlP-12,08173
,79
PTl
OS
WACDI
TFL MAX
,CO 1
•••••• WRT ALP ••• PREP TO CALL WRT SECT IF NOT IN CORE
*
TOM
,-5
TYPE
SET TYPE-WRITER SWITCH OFF
.RHLP 80
,HTYPE+23
RWA
TRNH RODAI
, WOSA
PLACE SECTOR ADDRESS FOR WRT 8LOCK
87
RDAlP+24 ,00000
RDDA
,-02
OSC
2
OK
01520
OSA RDDAI

01380
01390
01400
01410
01420
01430
01440
01450
01460
01470
01480
01490
01500
01510

PAGE
03183

"ATYI

,"

0)188
03200
03204

5 X

03204
03209

-6645
5 X

03209
03210
03222
0323<
03245
03246
03258
03269
03270
03282
03294
03306
03118
03325

DC

,'

OSC
I
DC
5
-0000
DC
3
-27
DC
5
-3800
OSA RWA

.L

0333)

,OClCOO

Ol338

01570
01580
01590

DC

I
DC

01650 RATY I
01660
01670
01680 COL

03341

,03800

03346

6
-0088'
TFl MAX
TOM
TYPE
8
ROALP
OS

03333
03353

.00051'

0)359

01

03360

.00088'

03366

• TV}

,0
,10159

..

SET TYPE-WRITER SWITCH ON

,79

"

C3269
-8J73

03188

03403

IS

03423
06682
03333
03<72
2

OOOON
04501
03360

43
30
49

5 X
-3333
I

5 X

03351
03352

,RDOU
,0

03245
CCOOO
-6J13

06-

03]51

"

01600 RWEFSW OS
01610 ROSA
OSC
0
01620
6
DC
-0051'
01630 WOSA
OSC
I
01640

,027

-6644
C3188
03423
03294
0
03188
03282

C

03311
03332

01530

01560

06
49

03331

01540 RDDAI
01550

06
IS
49

-6682
I

03368
03380
03392
03403

06
15
49

03188
03423
03448
C

C3245
00000
JOJ59

03404
OHI6
03423
03424
03436

06
49

e3188
03436
I
03188
03423

C3269

03448
03460
03472
03484
OH96
03508
03516
03528
03540
03552
03564
03576
03588
03600
03612
03624
03636
03648
03660
00000
03667

43
30
16
49
16
49
16
26

06682
03333
00565
00566
03558
03528
03558
C3563
03564
00000

04500
03353
-3495
-3325
-4142

531
1620 MONITOR II
01690
01700
01110
01120
01130
OIBO
01750
01760
01770
01180
01190
01800
01810
01820
01830
01840
0lB50
01860
01870
01880
01890
01900
01910
01920
01930
01940
01950
01960

VERSION 2

FORTRAN 11-0

SU8ROUTINES

TFL MAX
,PTI
B1
RDAlP-12
TYPE
OS
1
RACDI
,COl
TFL MAX
TOM TYPE
,-5
•
• ••••• RO
ALP ••• PREP TO CALL
•••••• GO TO RD WRT ALPHA I RWAI
ROALP
RWA
BD
,HTYPE+22
TRNM RODAI
,ROSA
TFM
IORT
.*+2)
B
IOGT
,RDDA
,7
CLOB8
TFM QQQ+6
,SET
B7
CLOTT+12
ClOTT
TFM QQQ+6
,SET+12
TF
,00344
QQQ+11
BlXM FMON
,QQQ (OJ
,0(01
QQQ
8UM
FMCN
-00344
,RECMK
TO
,-5
AM
003H
TR
SLIP
,-00344
,.+23
TFM
10RT
,7
8
IOGT
,DARITH
TRNM -00344
,SLIP
AM
00344
,5
ggg
TDM
,6
-00344
87
SLIP
OSS 6
,00000
CAR lTH DSC 2
, 02
02
01970
OSA
ARITH

..

PAGE

SET

RAPTl

SET TYPE-WRITER SWITCH OFF
RD
SECT IF REQD AND RD IN 110

PLACE SECTOR ADDRESS FOR RD 8LOCK
READ IN 1/0 BLOCK

03673
03613
03614

06
IS

66
66
25
11
31
16
49
lD
11
15
49

0034~

OC344
00000
00565
00566
0034~

00344
03552

03403
OOOON

-4154
C0344
03552
CCOOO
C2403
-COON
0034"
-3623
-3667
00000
-00C5
COO06

0034~

6
2
5 X
-3675
I

01980

DC

"

01990 ARITH

OSC
D

,0

03615

02000

DC

,00125

03680

02010

-0125
DC
3
-27

,021

03683

02020

DC

,03800

03688

02030

-3800
DC
1

"

03689

02040 DUMMY
02050 XX
02060 START
02070
02080

OS
DS
OS
DORG
3789
DSA
WATY

,99999
,DUMMY
,03851

99999
99999
03851
03789
03793

02090

DSA

REPl

03793
03798

-4166
5 X

02100

OSA

TRAce

03198
03803

-6H8
5 x

5

5

532

C
C
{)

4

1620 MONI TOR II
02110
02120

OS,
OS.

VERSION 2

FORTU~

11-0

SUBROUTINES

SET

PAGE
-300~

SWC

03803
03808

-66~6

SWCFX

03808
03813

-241C
5 X

5 X
5 X

02130

OSA

SLASH

03813
03818

021~0

OSA

REP

03818
03823

-6384
5

02150

OSA

REOO

03823
03828

-6882
5

02160

OSA

XTYPE

03828
03833

-629C
5 X

02110

OSA

CO~PL

03833
03838

-6846
5

02180 PAR

OSA

0

03838
03843

-636C
5 X

03843

-0000

02190

OS.

MATRIX

038108

5

03H8

-6444

022CO
02210
02220
02230
02HO
02250
02260
02210
02280
02290
02300
02110
02320
02330
02140
02350
02360
02310
02380
02390
02400
02410
02420
02430
OH40
02450
02460
02410

T

INITIAL SECONDARY LINKAGES
OORG START
OS
3
BlX~ FMON
,*(01
NOP
BLXM FMON
,-CO.
NOP
BlX~ FMON
,*COJ
NOP
BUM fMON
,-(VI
NOP
8LX~ FMON
,*COI
NOP
BLXM fMON
,*CO'
NOP
BLX~ FMON
,*COI
NOP
,-(0)
BlXM FMON
NOP
BLXM FMON
NOP
BLXM FMON
,-Ull
NOP
8LXM FMON
,-un
NOP
8LXM FMON
,*COI
NOP
B
CLOBB

03851
03853
03854
03866
03818
03890
03902
0391~

03926
03938
03950
03962
039n
03986
03998
04010
04022
0'10310
04046
04058
04Cl0
04082
04094
04106
04118
OU30
04142

,-un

3
66
U
66
41
66
U
66
41
66
41
66
41
6-6
41
66
41
66
41
66
41
66
41
66
41
"9

C356~

00000
03564
OOOCC
035M
00000
03564
CODOC
C3564
OOOOC
03564
OOOOC
03564
000 DC
0356tt
OOOOC

035610
00000

035610
OOOOC

03564
00000
03564

ooooc

03496

03854
00000
C3878
CCOOO
C3902
00000
C3926
CCOOO
C3950
00000
C3914
COOOO
C3998
00000
04022
COOOO
04046
OCOOO
C4010
OCOOO
04094
OCOCO

0"118
CCOOO
00000

533
1620 MONITOR II
024.BO
8
02490
TF
025CO
B
TF
02510
02520
B
02530
TF
02HO
B
02550
TF
02560
B
02510
TF
02580
8
02590
TF
02600
8
02610
H
02620
B
02630
H
02640
8
02650
H
02660
B
02610
H
02680
8
02690
H
02100·
B
02110
H
02120
B
02130
H
02140
B
02150
H
02160
B
02170
S
021BO
S
02790
S
02800
TF
02810
Sf
02820
S
02830
SF
02840
S
02.850
SF
02860
S
02810
SF
02880
5
02890
S
02900
S
02910
TF
02920
to
02930
SF
02940
BS8B
02950
MM
02960
BO
02970
MM
02980
BO
02990
TDM
03000
Bl
03010 ootSET TD~
03020
BNF
03030
A

CLOTT
00309
wAn 1
00309
WAPTl
00309
WACOI
00309

RATTI
00309
RAPT!
00309
RACOI

VERS ION 2

FORTRAN 11-0

SU8ROUTINE S

SET

,.-1

,--1
• --I

,--}

010262

26·

042U
04286
04298
04310
04322
04334
04346
04358

49
26
49
48
49
48
49
48
49
U
49
48
49
48
49
48
49
48
49
22
22
22
26
32
22
32

·-12

010310
04382
04394
04406
04418
04430
04442
04454
04466

.-12
.-12
.-12

.-12

041018

.-12
99MK
100MK
FXH
MK
11K

,K

e+18

,K

04490
04502
04514
04526
04538
04550
04562
04514
04586
.04598
04610
04622
04634
04646

,K
,K
,K

,

,2

,K

fXHI

,

e+18

.K

FX1+1
M2KMI
M2K"1
M KP1
RECMK-2
00380
FAt+l

26
49
26
49
26
49
26
49

,·-1

·-12

e+18

109

.--1

·-12

FX9+1

PAGE
04154
04166
04118
04190
04202
04214
04226
04238
04250

,

,2
,2

,K
,K
,K
,StCNS

010658
04610
04682
04694
04106
04118
04130

,ReC~K

e+12

F
,os
ODD SET
,99
K
,05
OOOSET
.99
FKOOO
,I
000SET+12
FKOoO
,0
e+]6
,ENTlN-4
LNENT
,E~ TLN

,10

010142

tiD

04154
04166
04718
04186

010198
04B10

53'1

22

03516
003C9
03210
003C9
03246
OC3C9
03210
00309
03368
003C9
03404
003C9
03424
00000
04310
00000
04334

oooee

04358
00000
04382
00000
04406
OOOOC
0443·0
OOOOC
04454
COOOO
04418
02445
03034
03072
03113
03113
045BO
-3090
04604
-3100
04628
-311t
02942
02942
03168
02401
0038C
02493
04118

32
22
32
22
22
22
26
25
32
60
13 0221~
43 OH86
13 .02221
43 041U
15 02981
49
04198
15 02987
44 04834
21 03118

ocooo
04165
00000
OlolB9
COOOO
010213
00000
C4231
COOOO
C"261
OOOCC
04285
00000
00000
OOOOC
00000
COOOO
00000
00000
OCOOO
00000
00000
OOOOC
COOOO
COOOO
00000
OOOOC
COOOO
COOOO
02221
02221
02221
02221
00000
C2221
COOOO
02221
00000
02221
COOOO
02221
02221
02221
04909
C2403
00000
COO02
000-5
00099
000-5
00099
COOOI
00000
C2244
02248

\,

1620 MOI'IITOR II
03040
03050
03060
03070
03080
03090
031CO CALONG

03130

A
BV
BXV
BO
TFM
B
CSC
2K
OSC
0
DC
-202
DC

03140 sceNS

DC

03110
03120

03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
0.3260
03270
032BO
03290
03)00
03310
03320
03330
03340
03350
03360
03310
03380

REDO
RECOA
LOCACJ

COMPL T
SLASH

MATRIX

MATRX2

03390
01400
03410
03420
03430
03440 SWL
01450
03460

03470
01480

03490 REPSW
03500 ~ATSW
03510 REPSW3
03520 LOC
03530 SWC
03540

EXPENT
-+12
-+12
-PROGST
10RT
IOGT
2

4

VERSION 2

FORTRAN 11-0

S~T

SUHROUT INES

,ENTEXP

5

PAGE

,-22

04822
04834
04846
0485B
04810
04882
04894

,0

04896

,0202

04900

.14CJ9
, •• 23
,CALONG

,7

21
46

4t
43
16
49

03183
0484t
04858
02220
00565
00566
2

02253
01400
C1500
07499
-4893
-4894

06338
C6659
06586
06599
C
00309
06396
2
06372
OMC8
C6396
06408
06659
06022
0--00
06638

C6638
COOOI
00L26
ceOOI

04901

"

8
,62635657
02635657
OORG 6290
80
REDOA+l2 ,MATSW
TOM swc+n
,I
BLXM SWL
,REOOA 161
TOM SWL+13
,I
,_-I
OS
TF
,2
00309
III
B7
SLASH+12
OS
2
BSBA -+12
BLXM SLASH+24 ,RTN
(61
BXM .+12
,-3
(11 . .
BLXM -+12
(61
,RWAl
TOM SWC+13
,3
Bo
,RWEFSW
SLASH 2
(61
B
0
TOM MATSW
,I
,9
TOM SWL+13
TFM LoCAOJ
,10
,10
BNF .+24
,MATRIX-l
TF
LOCAOJ
,MRS
B7
MATRX2+12
A
MATR IX-I ,LOCAOJ
TF
,MATRIX-l
LoC
,10
SM
PAR
,01
8NE _+24
TOM MATSW
,0
8NL SWC+12
882
.BSBB -.12
8B
MATRX2
TOM SNUB
,9
BO
,MUSN
SWC+12
NoP
,Loc
OS
,--8
OS
,--1
OS
OS
TOM SNL+U
,2
BO
JHB
,RWEFS~

04909
06290

06290
06302
06314

06326
06336
06338
06350
06358
06360
06372
063B4
06396
06408

ADJ I X 1 FORMAT PNTR

06420
06432
06444

06456
06468
06480
06492

06504
06512
06524

06536
06548
06~60

06·572

06584
06586
06598
06610
06622
06634

43
15
66
15
26
49
60
66
62
66
15
43
49
15
15
16
4'+
26
49
21
26
12
41
15
46
42
60
42
15
H

41

06631
06638

.--5

06336
06504

06336

00001
OKN06
OOO-L
OOP18
eOO03
03333
OOOOC
COOOI
00009
COOJO
064H
03173

06524

OMH
06645
03843
06572
0663B
06658
06598
06512
06599
06658

ccoce

C6336
C6443
000-1
C1200
COOOO
C1300
COO02
00000
000C9
06638
C6645

0
C

06640
06645

"

06595

000-2

C
C

06646
06658

15
4j

06599

04922

06670

60

0033~

00001

06682

26
16
15

01015
0664C
06599

03185
-DODO
COO02

16
22
26

00314
00314
06196

R9997
03188
C0314

31
31

02520
02607
06802
OOOOC
0
06814
06834
06026

COO02
03333

535
1620 MONITOR II
03550
03560 •

03510
03580
03590
03600
03610
03620
03630
03640
03650
03660
03610
03680
03690
03700
03710
03720
03730
03740
03750

03760
03770

03180
03790
03800
03810
03820

03830
03840
03850

03860
03870
03880

03890
03900
03910
03920
03930
03940
03950
03960
03910
03980

VERSION 2

FORTRAN 11-0

SUBROUTlNE~

•••••• RNA
... ST OFINR COOE,RESET .AEPSW •• MATSW .. REPSW3 •
•••••• SET SWL TO BB TO OBJ PGM. INIT ERROR TO F9
TF
OATlNH+2 ,MAX-3
TFII REPSW3
,00000
TOM SNL+l3
,2
•
••• ••• RNA3
• •• LO IX A2 WITH -.MU.-l AND ST IN • IX2HLO •
RWA3
TFM 00314
,99991
S
00314
,MAX
TF
IX2HLD
,00314
•
• ••••• RWA2
••• RESET .CCMPSW. INIT 110 REC TO ALPHA BLANKS
•
• ••••• RCTY IF WATY,SKlP .RA DO IT. IF WRTG
RWA2
TR
INH-I
,STZERO-l
TR
INH+86
,STZERD
e+24
BO
,TYPE
RCTY 00000
1X2HLO OS
,--5
BSBA .+12
80
8SWF
,RWEFSW
Bl
RADon
•
•••••• BSWF
••• FOR'U CONTROl,BR TO FORMAT SPEC IA,SET IX·l
•
•••••• TO PNT AT WIDTH SPEC IN FORMAT STATEMENT
BSWF
BXM -5
111,8
111
e.23
HYPE MA
,309
,e-.
BtX 8SNF
121
,99998 121
8LX" BSNF
REP
8LXM .+12
,REPSW III
SM
171,01
,10
8H
REP2
8E
REPEX '
A
(11,4
0
111
BNH REPU
REP2
TF
,2
00309
III
8XM 8SWF
,-5
III
REP3
SF
REPSW3-1
,REPSW3171
BLX" REP+12
REPEX
,4
(11
BSWF
ERCoM2 RCn
WAn OUOH
Rcn
TO
EI+2
,RECMK
Bl
BSWF
OATINH OSA IN(21

•RWA

°

ex"

DC

2

-0
03990
OGM
04000 DATOUD OSA

oUOH

04010

2

DC

06694
06706
0671B
06730

06742
06154

06166
06118
06190

43
34

06796
06802

06814
06B26

06834
06B46
06858
06810
06882

06894
06906

06918
06930
06942
06954
06966

06918
06990
01002
01014

01026
01038
01050

oiou

60
43
49
62
10
61
66
66
12
46
46
21
41
26
62
32
66
62
34
39
34
25
49

01013

,DO

02770

02771
03423
00102
00001
C3333

000-8
06B69 C0309
06834 00-00
06834 99R98
06894 I COOL 7
0---0
COO-l
C6954 01100
01002
01200
0---0 COO-4
01002 CI100
00309 000-2
06834 COO-N
06639 COOOO
06894 COOMO
06834 000-4
00000
00102
02699
CCIOO
OOOOC
00102
02709 02403
OOO-~

06834
5 x
-2097
2

07073
01075
01076
07081

,MK

~2699
2

07081
01083

,OC

-0
04020
DGM
04030 FLOAT 2 IISBA _+12
04040
8LX -+12

PAGE

SET

BSBA ",00334

(5) "

SET 0

07084
01086
01098

5 Te -K

53G

60
6~

I
07098
0711C

00001
OLlP]

1620 MONITOR II

VERSION 2

FAC+ll51
FAt-4
MU-1

,FAt

*+32

.FAC+l 151.,

04050
04060
04070
04080
04090
04100
04110
04120
04130
04140
04150
04160
04170
04180
04190
04200
04210
04220
04230
04240
04250
04260
OH10
042BO
04290
04100
04310
04320
043]0
04340
04350
04360
04370
04380
04390
04400
04410
04420
OH30

CF
CF
MF
BD

04450

TCD

04460

SECONDARY
OORG START
OS
3
TFL FAC
FlU
B
8lXM FMDN
NOP
BlXM FMON
NOP
BlXH FMON
NOP
BlXM FMON

..
..

FORTRAN II-V

SUBROUT 1NES

07110
07122
07134
07146
07158
07170
07178
07190
07202
07214
07226
07238
07250
01262
07270
01282
07294
07306
01318
01330
01342
01350
07362
07374
01386
01398
01410
07418
07430
07442
07454
07466
07478
OH'IO
08000
08000
08012
08024
08036

HI ORDER DIG
STEP
U5 BY

(5 . . .
BtX~ --12
,1
87
ZERFAt
BD
,328
SKIP IF HI ORDER DIGIT NOT ZERO
FLO
,7
SF
FAC
1510 1
,FAC
FSl FAC-l0
,329
FLO
MF
328
UP IS HG IXS VALUE
TF
,329
FAt
FAC-9
SF
FAC-2
,MU-l
MF
RESTORE eRlG SIGN
B7
FlTEND
,6
F IXi
,'I
TFM FAC-20
,000
MF
,FAC-2
'W-I
FAC-22
TF
,FAC-2
CM
FAC
,00
,10
BH
*+32
,FXl
TF
FAC
81
FIXENO
FAC
,K
0
BNH .+56
,572
,'I
TFH EI
FXNINE TF
FAC
.FX9
MF
FAC
,MU-l
ERROR
87
TFM *+59
,FAt-30
A
*+41
,FAt
TOM FAC-30
,0
,11
TF
FAC
,FXZ
A
FAC
XSGN
MF
FAC
,MU-l
B7
F I XEND
CORG 8000
AS1
Al
,701
34
38
AI
,702
.+26
49
Al
,01560005102398
CSC
14
01560005102398
04440
TRA

0~410

04480
044'10
04500
0~510

04520
04530
04540
0~550

04560
04510

,

,.-.

,FIX-I

33
33
71
43
64
49
H
32
05
71
26
32
71
49
16
71
26
14
46
26
49
24
47
16
26

71
49
16
21
15
26
21
71
49

OK4R3
02488
02967
0717e
07146
02884
07214
OK4R2
02482
00328
02492
02483
0249C
02960
02412
02961
02410
02492
01350
02492
0296C
02492
074Le
02101
02492
e2492
02936
01H1
OH71
02462
02492
02492
02492
e2960

10

COOOO
COOOO
02492
CK4R3
C-0-1
00328
-0001
02492
00329
00329
COOOO
02967
00-00
02490
02490
000-0
OllCO
C3099
02221
01100
OON72
03089
02961
-2462
C2492
000003099
COOOO
02961

34
38
49

08036
08036
0805e
14

00701
00702
00000

36
49

OOOOC
00000

C0500
00000

03851
03853
03854
03866
03818
03890
03902
03914
03926
03938
03950

06
4'1
66
41
66
41
66
41
66

02~92

03962
03914
03986
039'18
04010
010022

H
66
41
06
49
66

00000
03564
COOOC
02492
01086

0403~

41

0"046
010058
04C70
04082

66
41
66
41
66

OOOOC
C3564
00000
03564

08050
08062
08000

ASI

LINKAGES

PAGE

SET

WITH WRITE BlOCK I N CORE
,11

,-101

,-'0'
,-(Ot
,.(0)

3
0121C
03564

ooooc

035M
OOOOC
03564
OOOOC
0356~

0385l
COOOO
03878
COOOO
C3902
COOOO
03926
CODOC
C3950

537
1620 MONITOR 11

VERSION 2

FORTRAN 11-0

SUBROUTINES

PAGE

SET

04580
045'10
04600
04610
04620
04630
04640
04650
04660
04610
04680
04690

NOP
,-10)
BUM FMON
NOP
,lOOOO
,.-1
TFl FAC
,11
B
FlOAr2
BlXM FMON
,·cot
NOP
,-(0)
BUM FMON
NOP
BlXM FMDN
,-101
NDP
BlXIO FMON
,-101
0~100
NOP
04110
BUM FMON
,eUU
04120
NOP
04130
CLOB.S
B
04740
B
CLOTT
04750 WAlY
TF
00309
,--I
04160
WAlYl
B
,.-1
04770 WAPT
TF
00309
04780
WAPT1
8
04790 WACO
,.-1
TF
00309
04800
B
WACOI
04810
TF
00309
,*-1
04820
RAIYl
B
TF
00309
04830
,·-1
0~840
B
RAPT!
0~850
TF
00309
,*-1
0~860
B
RACOI
04870 HYPE 8LX -+12
,MKP1
SET 15 TO -K +1
151 ..
04880
,WRT I 161
BLX" SWl
0~890 WRITEA BLX" ERF9-12
,*+12 16)"
SR TO CHECK RECORD LENGTH
04900
,FAC-I
BNF IIA FX
04910
TF
FAC
,FAC-2
SHIFT IF Fl NO.
04920
,-8
BXM WRT A
141
04930 WRUCK IF
IN-2
I2I,FAC
141
0~940
B
BSWF
04950 ATYPE BlXM Sill.
,IIRHUI61
04960 WAH
8X
WRT A
,MK
141
0~910 FTYPE
CF
RIIEFSW
04980
BlXM SWL
,IIEFCO"161
04990 ETVPE SF
RWEFSW
05000
8lXM SilL
,WEFCO"161
05010 HTYPE BlXM JHS+36
,WHTYPEI61
05020 .RTA
BNH IIRTA CK
,01
05030
BXM IIRT A
,-2
I~I
WRITE I TYPE FROM FAC TO 110 REC
05040 05050 WRTI
BNF WRT 12+12,FAC-I
FIXED NUMBER
05060
TFM FIXENO+6 ,wn 12
05070
B7
FIX 1
05080 WRH2 TFH FIXENO+6 ,RTN
05090
8lX~ ERF9-12
,-+12 (6) "
BR TO CHECK RECORD LENGTH
05100
MF
MU-1
,FAt
05110
OUD-29
.fLlERS-29, ,
TR
CLEARS CUD AREA
05120
WRTSGN-12,FAC
80
HI ORC tlG lOC 11X 5 = -K+II
(51 ••
05130
BCX~ --12
,I
CECRE ~leRO ZERO
«51 "

0409~

04106
010118
04130
04142
04154
04166
04178
04190
04202
04214
04226
04238
04250
04262
04274

04286
042'18
04310
04322
OH34
04346
04358
04370
04382
04394

..

'0~~06

04418
04430
04"42
0~~54

«141066
04478
04490
04502
04514
04526
04538
0~546

04558
04510
0~582

010594
04606

538

41
66
41
49
49
26
49
26
49
26
~9

26
49
26
49
26
49
65
66
66
44
26
62
26
49
66
61

33
66
32
66
66
47
62
44
16
49
16
66

71
31
U
64

0356~

ooooc

03564
OOOOC
03564
00000
03496
03516
00309
0321C
00309
03246
00309
03270
00309
03368
0030~

03404
00309

03424
04322
06586
04'182
04418
OH92
0~49C

02095
06834
06586
04490
03333
06586
03333
06586
0495e
04382
0449C

04558
02966
0727C
02966

04982
02967
0271e
04618
045'14

CCOOO
03914
10000
0399P
COOOO
C4022
COOOO
040106
00000
OloC70
00000
010094
00000
04118
00000
00000
OOOCO
04165
00000
0~189

00000
04213
00000
04237
00000
C4261
00000
04285
00000
OLlO8
OHN14
OMl46
C2~91
02~90

O-OOQ
OK~92

00000
OMl34

oLIn
00000
ON-18
COOOO
ON-18
OMQ14
01101
a-OOK

02491
-4546
-2506
OMN70
02492
02830
CK4R2
0-0-1

11

1620 MONITOR II
05140
05150
05160
05110
05180
0519C
05200
05210
05220
05230
05240
05250
05260
05210
05280
05290
05300
0531C
05320
05330
05340
05350
05360
05310
05380
05390
OHOO
05410
05420
05430
05440
05450
05460
05410
05480
05490
05500
05510
05520
05530
05540
05550
05560
05510
05580
05590
05600
05610
05620
05630
05640
05650
05660
05610
05680
05690

FORTUN 11-0

VERSION

..

SU8ROUTINES

SET

SF
FAC-l 151,
DEFINE HICRO DIGIT
MRTSCN BX
0+12
,329
OOU8LE IX 5
(51 "
TNF GAM-2
,fAC
Bf'lf WICK-12
,MU-l
TFM GAM-4 151,20
,10
(5). ,
BXM WICK
,-2
AllOIl FOR SIGN
WIEXIT TF
IN-2
121,GA~-2
MOVE OAlA to 1/0 RECORD
Bl
BSWF
SF
GAM-3 151,
..
DEFINE HI ORO DIGIT FOR PLUS YALUE
WICK
BCX WI EXIT
,329
141 ..
WIDTH SPEC OK W'2+IX5 MORE THAN I
TR
GAM-29
,GAM-3 151 ..
SHIFT ERROR YALUE LEFT
ERFB
TFM EI+2
,61800
SET ERF8, ERASE RM
ERCOM BNf ERCOM2
,TYPE
TF
OAT OUD+2,DAT INH+2 ..
INSERT 110 DEY ICE CODE
TFM
(ORT
,-+23
••
OUTPUT ERR INFO
B
10PT
,OAT DUD-4,l
Bl
ER COM 2
•
hRITE H TYPE FROM FORMAT TO 110 RECORD
•
• ••••• W H TYPE •• IX 80 A IS SEL,IX 1 POINTS AT WIDTH SPEC"X 2
• ••••• IS AVAIL CHAR IN 1/0 REC. CALC ST AOR OF H DATA AND MOVE
•••••• H DATA TO to 110 REC
WHTYPE 8LX .+12
,309131
IX] • 1X1
8X
0+12
,IIIOTH III
8LXM ERF9-12
,'+12
161 ..
8R TO CHECK RECORD LENGTH
SM
311t
,_-.
WIDTH OS
"
TO
WH+23
,I
STORE LAST DIGIT
Cl1 "
TO
I
III,RECMK
WH
TRNM 11'1-1
121,1
MOYE DIGITS
t:Jt It
TOM I
III,XX
8X
8SIIF
,W lOtH 121
•
•
COMMON ROUTINE. WRT H,A,I,E AND F TYPES
JHB
CF
LOC
TFL FAC
,LOC
MOYE FIELD FROM PGM TO FAC
8SBA '+12
TF
WIDTH
,309
,11,
SlORE WIDTH
8LX .-.
161,WIOTH 141..
SET WIDTH IN 1X4
•
CK H,A ANO I TYPES FOR ER F9. II FOR E AND F IS ONLY NUMERIC
8CX
161,324
121..
AOV 110 REC PNTR.CK A 'NO I TYPES
ERF9
TFM EI
,679
,9,
SET ER F9 INO
8U" ER COM2
,99999 121..
SET IX 2 TO PREYENT FURTHER OUTPUT
•
•
IIRITE E AND F TYPE FRO~ FAC TO GA" liN ALPHA!
•
~AKE CKS FOR OYERSIZE REC ANO OYERSIZE FIELD IERF9 AND ERF.,
WEFCO~ BXM
.+ 12
,2
III ..
AOY FORMA T PPiTA FOR E AND F TYPES
8XM ERF9-12 ,12
161..
CK FOR ER F9. RTN IF NONE
TfM FL TEND
,'+24
BNF FlOAT2+12,fAC-I
TFM Fl TEND
,UN
•
MOYE
DATA TO DUD FOR OUTPUT IN El4.B FORMAT
BO
'+24
,FAC-9
"
CHECK FOR LOUSY ZEROS
TFM FAC
,-99
,10
IIF
MU-I
,FAC-2
$AYE MANT SIGN
tR
OUO-29
,II MASK-I
TFM liCK
,00000

PAGE
046'18
04630
04642
04654
04666
04618
04690
04102
04110
04122
04734
04146
04158
04110
010182
04194
04806

32
61
13

00000
0-3K9
02492
02961
COOKO
O-O-K
02731

16
H
26
16
49
49

OK4R 1
04642
02131
0471C
OK7l5
04722
02095
06834
0K1L6
04690
02710
02109
01014
01083
00565
00532
01014

04814
010826
04838
0.850
04861
04862
04874
04886
0.898
04910

65
61
66
12

0.826
0.838
04982
00314

00l-9
C4801
OMQ50
-0000

25
25
30
15
61

04909
000-1
02096
000-1
06834

000-1
C2403
00--1
99999
C4Q61

04922
049)4
049.6
04958
04970

33
06
60
26
65

06645
02492
04958
04861
0--00

00000
0664N
00001
0030R
OM861

04982
04994
05006

63
16
66

O--OC
02101
01014

00l2"
00019
99R99

05018
05C30
05042
05054
05066

62
62

05030
04982

16

02966

000-2
0--12
-5066
02491
-2506

H

16
62
26
49
32
63

31

o

44

01098

16

0296i

05078
05090
05102
05114
05126

43
16
71
31

05102
02492
02967
0271C

16

05209

05138
05150
05162
05174
05186
05198
05209
05210
05218
052)0
05242

21
66
46
15
25
15

05209
C5162
05186
02732
02135
02131

49

0030~
0212~

coooo
0-329
OK1L6
01800
03423
01015
-4805
-1071

02483
OOORR
C2490
06126
-0000

539
1620 MONITOR"
05100
05110'
05120
05730
05140
05150
05160
05710
05180
05790
05800
05810
05820
05830
05840
05850
05860
05810
05880
05890
05900
05910
05920
05930
05940
05950
05960
05910
05980
05990
06000
06010
06020
06030
06040
06050
06060
06010
06080
06090
06100
06110
06120
06130
06140
06150
06160
06110
06180
06190
06200
06210
06220
06230
06240
06250

A
IlXII
MOYEXP 8NL
tOM
to
TOM
WC~
OS

liCK

•• 12
-+24
OUD-l
DUO-4
DUO-2

YERSION 2

FORTRAN 11-0

SUBROUTINES

SET

,FAC
.MOVMANIOI

,

,2

,--.

,IICK-I

ZERO UP IS GIYEN P,OSITIYE SIGN

..

,0
Loco-a+EXPONENT
81
-]04
MOYMAN TNF DUD-ID
,FAC-2
SNF .+24
,MU-I
TOil DUD-29
,2
•
LIMn POSITIONS RT OF DEC TO B
TF
LOCO
,0111
..
MOY DEC PT SPEC TO IX 3
CM
LOCO
,.
,10
8NH 0+24
TFM LOCO
,8
,10
SF
LOCO
SM
II CK
,8
EXP-8
SliCK
,~OC 0
"
lOCO-8 + EXPONENT
tFM FAC-IO
,00
,101l,UP'NO SIZE OF FAC
BLX '+12
,LOCO
131..
IX 3 IIIll BE -LOCO
IX
.+12
,]19
141 , ,
REDUCE II BY OPT SPEC I II-lOCO I
BLX u12
,314
161"
NUT AYAIL CHAR ADR IN liD REG
AM
LaC 0
,.-.
CONVERT TO 2 LOCO
as
,.
LOCO
LOCATION OF DEC PT .FLAGS SEL 1l!3
SF
GAM-29
,FAC-9
aNF IIRT F
,RIIEFSII
..
F TYPE
MACetO TO SET UP E TYPE,WRITE AND ERROR CHECK
•
• •• CX 1I10TH SPECS
BC XM .+20
,-5
141
81
ER COIl-12
•
••••• SET UP IX REGS FOR PROCESSG MANT FROII FAC TO 110 REG' IINI
WRTE
IlX u12
,lIlDtH lSI..
PUT IIIDTH IN IX 5
,-14
151..
IX 5 • IIIDTH -14
BCXII '+24
BLX 0+]6
,WIDTH 141
8LXII U12
,14
141
8UII '+12
,.-'
151
•
IX, 4 CONTROLS P]SIT ION OF SIGN
•
IX 5 CONTOlS RT POSITION OF FAC
8X
'+12
,324
141..
DOUBlE 1I10TH
SF
3210
BX
0+12
,314
141 ..
IX 4 • IX 2- 1 WIDTH
•
••• PROCESS EXP FROM FAC TO liD REG IINI
S
II CX
,329
ADD 14-WIOTH TO CHAR
eo II ZER CK ,W CK-2 ..
EXP LESS TH.N -99
BLXM MOVEXP
,WlERCK+12 ..
GO TO SET EXP IN G'M AND RETURN
WZERCK 80
ER COIl-12,FAC-9
NON ZERO
TRNM IN-9
121,GAM-9
•
IX 6 MOOFS IN REFS
8XM f.lLl R
,-8
161..
EXP SPACE COMPENSATION IN IX6 IINI
•
•••• MACRO TO SET UP F TYPE, WR nE AND ERROR CHECK
WRTF
S
324
,FAC
SM
324
,I
.10, MUST BE ROO" FOR 1 CH'R H LEAST
8NH ER COIl-12,
WIDTH SPECS INSUFFICIENT
AM
fAC
,I
,10
BLX 0+12
,WCK
(5) If'
IX 5 ~OOFS FAC REFS.LOCO-8+EXP.CHAR

,10,

..

540

PAGE

05254
05266
05218
05290
05302
05314
05326
05338
05)50
05)62
05314
05386
05]91
0539,8
051010
05422
051034

13

o

44
15

05254

26
14

053n
05397
05302
05391
05391

41
16
32
12
22
16
65

0271C

0520~

C2492
05218

01300
00002
C5208
COOOO
02490
02961
00002
COO-O
000-8
01100
000-8
00000
000-8
05397
000-05LRl
0-319
0-U4
-0000

65
11

05209
02482
05362
05374
05386
05391

32
44

0271C
05610

02483
03333

64

051042

O-OON

49

04146

61

C

05442
05454
05466
05418
05490

64

051018

65
66

65

05502

05490

U

05502

CM801
O-OJ"
OM861
0-014
0-0-0

05502
05514
055'26

61
32
61

05514
00324
0553!

0-324
00000
C-314

055)8
05550
05562
05514
05586

22 05209
43 05574
66 05162
43 04146
30 '02088

00329
05201
05586
02483
02130

05598

62

05118

O--OQ

05610
05f>22
056310
056.6
05658

22
12
41

00324
00324
04146
02492
0567C

02492
COO-I
01100
000-1
ON2-9

11
65

051054

12

1620
06260
06210
06280 •

~ONITOR

II

VERSION

FORTRAN

1l~0

SUBROUT INES

SET

PAGE

CM
8NH

W CK
.-8
.10
W F lERO •
lERO OUTPUT
SPLIT INTO 3 CASES FOR WRT F TYPE
0629C •
• ••• IX5 PLUS .REQ lERO Fill FRC~ RIGHT IIXPI
063CO •
• ••• IX5 NEG,NON IERC.EXP NEG.REQS URO FILL FROM lEFTlIXNENI
06310 *
• ••• IX5 NEG. NON IERC.EXP NOT NEG. Nt lERO FILL REQOIFlLl R I
06320
BNF
, .. CIC
IXP
06330
BNF FILL R
,FAt
0634(] •
EXPAND FAe WJTH lEROS ON lEFT
06350 IXNEN TF
FAC-l0
.lERD-l0
06360
TFM -.30
.FAC-ll
06370
,FAC
A
·.18
06380
MF
,FAC-9
06390
TFM FAC
.01
.10
06400 •
• ••• FILL RIGHT SIDE OF 110 REC FielD WITH MANTISSA
06410 FlllR TNF
IN-2
(6J,FAC-2 151
06420
IN-3
TOM
161.7
06430
BX
a+12
JX5- lOCO
.319
15t..
06440
BX
FILL l
,lOCD 16",
JX6-2 leco
06450 •
• ••• Fill lEFT SIDE AS REQD.
06460 FILLl TNF
IN-2
(6I,FAC-l 151
06470 WEDEC TFM IN-2 161.3
,10. INSERT DEC PT IN lID REC
06480
BNF WF SIGN
.RWEFSW
06490 WS IGN TF
IN
141.GA~-28
INSERT SIGN
06500
87
8SWF
06510 IXP
SF
329
CONVERT 1X5 TO NEG
06520
FSl FAC-l0151.FAC-2
06530
BlXM Fill R
,99999 (5) ' .
AOJ FOR SHIFT OF FAC
06540 WFSIGN BlX a+12
.334
141
06550
S
324
,FAC
ADJ IX 4 FOR SIGN POSITION
06560
S
324
.FAt
06570
BXM W SIGN
.-2
FINE SIGN POSIT AOJ
Iltl"
065BO WFZERO eF
319
06590
TNF
IN-2
121. ZERO-16U I
06600
BX
*+12
.lOCD 161
06610
TFM IN-2
(61.3
,10
06620
B7
BSWF
06630 SLASH2 BO
WRITE
.nPE
06640
BXM •• 12
.-2
121
06650
CM
IN
121.00
.10
06660
BE
SLASH2+12
06670
TF
IN+4
121.FLIERS
06680 WRITE BlX ·.12
.IX2HlO 121
06690
TFM 10RT
,*+23
06100
10PT
,OATlNH-4 .7
B
06110
(61
B7
06720 WHASK OAC 2 • •

05826
05838
05850
05862
05874
05882
05894
05906
05918
05930
05942
05954
05966
05978
05990
06002
06014
06022
06034
06046
06058
06070
06082
06094
06106
06118
06127

06730

06131

8 X

06147

5 X

.

.-.

06740 EMASK
06750
06760 AS3
06770
06780

OAC 8.00000000 ..
00000000
DAe
5,E+OO'

MASK

FO~

EF WRT. ALPHA lERO SOURCE

e+oo'
DORG
34
38
49

1000
U
U
*.26

05670
05682

41

05209
05966

OOO-Q
C1100

05694
05106

44
44

05882
05778

C5209
02492

05718
05130
05742
05754
05766

26
16
21

02482
0576C
C576C
OOOOC
02492

02147
-2481
02492
02483
000-1

05778
05790
05802
05814

13

OK095
OK094
05814
05826

OK4RO
00007
e-3J9
ONl97

OK095
OKD95
05918
OK697
06834

OK4Rl
000-3
0333
02711

0032~

02095

COOOC
02490
9R9R9
0-334
C2492
02492
O-OOK
00000
C2PMl

06002

ONl~7

08000
08000
08012
08024

,701
,702

14

71
16
15
61

u

T3
16
44
26
49
32
05
66
6~

22
22
62

33
73
61
16
49
43
62
14
46
26
65
16
49
49

34
38
49

OK4Q2
05778
05930
00324
00324
05862
0031~

14

OK095 000-3
06834
06082
C3423
06046
OO-OK
02091 000-0
06034 C120C
02POl
C2859
06094
06P96
00565 -6117
00532 -1069
O--OC
2 X

08036
08036
0805C

C0701
C0702
00000

541
1620 MONITOR II
06790 A3

WERS ION 2

FORTRAN IJ-O

06800

OSC 14
.01568803101800
01568803703800
TRA

06BlO

TCO

06820
06B30
06840
06B50
06860
06870
068BO
06890
06900
06910
06920
06930
06940
06950
06960
06970
06980
06990
07000
07010
07020
07030
01040
07050
07060
07070
07080
07090
07100
07110
07120
07130
07140
07150
07160
07170 RATY
07180
07190 RAPT
07200
07210 RACD
07220
07230
07240
07250
07260
07270
07280
07290
01300
01)10

SECONDARY LINKAGES WITH READ BLOCK IN CORE
DORGSTART
OS
3
TF
FAC
.F1X-l
.11
a
FlU
,0(01
aUM FMON
NOP
,*((1)
BlXM FMO"
NaP
BlKM FMON
,0101
NOP
BUM FMON
.0101
Nap
BlXM FMON
.*101
Nap
TFL FAC
,11
,"-I
B
FLOAr2
,0(01
BlXM FMON
Nap
8lKM FMON
,·CO.
NOP
,.ro)
8UM FMON
NOP
aUM FMON
,.rOJ
NOP
,0(01
8lXM FMON
NOP
B
ClOB8
ClOTT
B
TF
00109
WArY 1
8
TF
0030.9
,·-1
8
IIAPTI
,.-1
TF
00309
8
IIACOI
,.-1
TF
00309
B
RATYI
TF
00309
,"-I
RAPTl
8
TF
00309
,"-I
B
RACDI
TFM ROCS
,00
.10
.RITYPEI61
8lK" SWl
H
.-12
8

SU8ROUTINES

08036
OB050
08062
08000

AS3

03866
03878
03890
03902
03914
0]926
03938
03950
03962
03974
03986
03998

04010
04022
04034
04046
04058
04070
0'1082
040910
01tl06
04118
0.4130
04142
04154
01tl66
0417B
04190
04202
04214
04226
04238
04250
04262
04274
042B6
04298
04310
04322
04334
04346
04358
04370
04382
04394
04406

H

·-12

.-12
ROSQP

14
36
49

03851
03853
038510

,--I

B
H
a
TFM

PAGE

SET

,FAt

542

26
49
66
41
66

u

66
41
66
41
66
41
06
49
66
41
66

41
66
41
66
41
66
41
49
49
26
49
26
49
26
49
26
49
26
49
26
49
16
66
4B
49
48
49
48
49
16

oooeo
OOOCC

3
02492
0727C
03564
OOOOC
03564
ooooe
03564
OOOOC
03564
00000
03564
OOOOC
021092

070B6
03564
OOOOC
03564
OOOOC
03564
OOOOC

0356'1
00000
03564
00000
03496
03516
0030~

03210
00309
03246
00309
03270
00309
03368
0030~

03404
00309
03424
05195
06586
00000
04334
ooooc
04358
00000
04382
04864

00500
00000

0385l
coooo
03878
COOOO
03902
00000
03926
00000
03950
00000
C3974
00000
0399P
00000
04022
00000
04046
00000
04070
00000
0409'1
COOOO
0'1118
00000
00000
00000
04165
00000
04189
COOOO
04213
00000
04237
OCOOO
04261
00000
04285
00000
000-0
ON-22
00000
00000
00000
OODOO
COOOO
00000
-2492

15

1620 MON ITOR 11
01320
07330
07340
07350
01360
07370
01380
01390
07400
01410
, 07420
01430
01HO
01450
07460
07470
07480
07490
01500
07510
07520
07530
07540
07550
07560
07570
07580
07590
07600
07610
07620
07630
07640
07650
07660
07670
07680
07690
01700
01710
01720
01730
01740
01750
07760
07770
07780
07790
07800
07810
07820
07830
07840
07850
07860
07870

RDERf7
RHTYPE

RERtOM
READA

REAOAI
READA2

RDSQP
ROG IVE

RETYPE
CHAR
RFTYPE

R [TYPE

VERSION

fORTUN 11-0

SU8ROUTINES

PAGE

SET
04418
04430
04442
0445'"

8lXM SWL
.READA 161
Tf
00324
,el11
.RFfVPE(6)
8lX~ SWl
Tf
00324
.0111
,RETYPEI61
8lXM SWl
TfM RHTYPE+35,IN-l
,10
8
RHTYPE
,611
,9
TF~
EI
87
ERtO~2
,0111
A
*+35
Sf
-+21
TO
."47
TO
,RECMK
,6
·-1
TRNH 1111
,IN-1121
TDM .-25
,0
,6
Tf
*+35
.-00309
A
00309
,-00309
8tXM BSWF
,0121
TFM EI
,9
,679
BlXM ERtOM2
,99998121
A
RDSQP
,0111
8NF .+1t8
.loe
, ZEROI0
TF
FAt
,K
RDSQP
S
BlXM e+48
,FAC 151
,10
RDSOP
,10
SM
,ROZERO
TFt FAC
BLXM -+12
.FAt-2151
TF
00324
,0111
BCXM READA2
,2"121
,REReOI'!-12101
BlXM RDGIVE
,-2
CF
IN-1I21
,10
,READA2+11I101
8CX READAI
SF
IN-lUI
RDSQP
,D0329
C
8NH •• 21t
BLXM RDGIVE
,RDERF7101
,IN-2121
TF
,_-5
OS
,BSWFIOI
BLXM RDGIVE
BS88 . . 12
RDGIVE
,LOC
MF
,6
TFL LOC
,FAe
MF
LOC
,RDGIVE
BSBA -00304
TFM RDSDIG
,05DOO
TFM CHAR
,00
,10
,--2
DS
87
RFTYPE+12
TFM RDSDIG
,55000
TF
00324
,0111
TF
RDCS
,2111
,2111
BXM RDCOM
,55500
TFM RDSDIG
,05
MM
,10
0111
8lX -+12
,981101

041066
010478
041090

04502
010514

04522

,.-.

045310

04546
010558

04570
04582
010594
010606

04618
04630
04642
04654
04666
04678
010690
0"'702
04714
010126

04738
04750
010762

04774
04786
04798
04810'
010822

04834
04846
04858
04864
04870
04882
04894
04906
D4918
04930
04942
04954
04963
04966
04974
04986
04998
05010
05022
05034
05046

---

66
26
66
26
66
16
49
16
49
21
32
25
25
30
15
26
21
64
16
66
21
44
26
22
66
12
06
66
26
64
66

33
63
32
24
H
66
26
66
60

71
C6

71
60
16
16
49
16
26
26
62
16
13
65

06586
00324
06586
00324
06586
04557
04522
02701
07014
04557
04555
04593
0455P
000-1
0455P
04629
0030~

06834
02707
07014
04864
04114
02492
04864
0415C
04864
02492
04750
00324
04786
04882
02096
04162
02096
04864
04858
04882
OOOOC
C
OU82
04894
04882
0664N
06645
0030~

05381
04963
C
04986
05381
00324
05195
05058
05381
000-0
05058

16

OM054
000-0
OMRH
000-0
CMR42
-2696
00010
00077
oeo-o
00000
00000
02403
02096
00000
CC30R
0030R
00-00
00079
99R98
000-0
06645
02761
02221
OK4R2
OOOJO
02769
OK4RO
000-0
CO-02
04630
COO-K
OM797
00000
00329
Cll00
04502
02095
06834
COO02
06645
OH92
04882
00001
-5000
000-0
N5000
000-0
eOO-2
COO-2
N5500
000-5
0-098

5~3
1620 MONITOR II
07880
07890
07900
07910
07920
07930
07940
07950
07960
07970
07980
07990
08000
08010
08020
01030
08040
08050
08060
08010

RDCoM

CNTS
READCC
ROCOMI

RDCS

08080 RDCOM2

08090
08100
08110
08120
08130
08140
08150
08160
08170
08180
08190
08200
08210
08220
08230

ROCOM3
RODEC
RDMNUS
RDSDIG
RoSSGN
RDSDEC
RDSERR
RDSETY
RDPlUS

082100

08250
08260
08270
082BO
08290
08300
08no
08320
08330
08HO
08350
08360
08370
08380
08390
08400
08410
08420
OB430

RDPll
ROE
RElYI

RETY2

RDECK

BUM
TFL
CF
TFM
OS
TFM
BNR
B7
eM
BE
CM
BNl
CM
OS
BE
CM
BE
BD
CM
BE
8D
CM
BE
TFL
TDM
87
TDM
TFM
B7
SF
DS
OS
DS
DS
DS
BD
MF
TDM
Bl
BD
TFM
B7
CM
BNE
SF
CM
BE
TD
B7
TD
SF
MF
A
87
BNF
SM

. . 12
FAC
RDCOM
eNTS

,0010

,*-2

ROADJ-6
RDeOMl
RDCOM3
INI21
ROBlNK
INI21
RODIG
INI2I
RDPlUS
INI2I
RDMNUS
RDCOH2
INI2I
RDOEC
RDCOM3
INI2I
RDE
FAC
RDSERR
RDADJ
ROSDEC
RDCS
RDADJ
RDCOH

VERSION

FORTRAN 11-0

SUBROUTINES

,FAC-lI151
,RDZERo
,10

,RUDce
,INI21

00324

66
06
33
16

05106

16
45
49

.00

.10

,10

,10

,DOLO

,10

,20

,10

,RDSOEC
,03

,10

,RDSETY
,45

,10

05210
05222
05234
05246
05258
05210
05282

,RDZERo
,0

,11

05318

,--2

05198

052910

05306
05330

,-5
,00

05338

,10

05350
053 6 2
05370
05381
05380
D5379

,.

,.-3
,--4

RETY2
CHAR-l
RDADJ
CHAR
CHAR-l
CHAR
FAC
RDADJ
RDADJ
FAt

PAGE
05058
05010
05082
05094
05103
D5118
05130
05138
05150
05162
05114
05186
05195

,--1
,--2

RDPLl
ROMNUS
RDSSGN
RDADJ
RDCOM3
RDADJ-6
RDADJ
INI21
e+24
RDCOM

SET

H
46
14
46
14
46
14
46
43
14
46
43
14
46
06
15
49
15
16
109

32

05378

05311
D5382

,RDSSGN
,RDCOM
,-5

053910
05406

,RDSETV
,RETYl"

05426
051038

103

05450
05458
05470
05482
05494
05506
05518
05530
05538
05550
D5562
05574
05586
05594
05606

49
14

05418

,20
,01

,10
,10

,INI21
,INI21
,ROCOM
,C~AR

,RDSDEC

.Ql

,10

5H

43

71
15
49

16
47
32

14
46
25
49
25
32

71
21
49
44
12

05070
02492
05058
05103
0
05156
05138
05306
02097
05638
02097
05626
02097
C
05382
02097
05370
0527C
02097
05338
05306
02097
05438
02492
05178

OK401
C2769
COOOO
OOOJO
-5118
C2097
000-0
C1200
OOOPO
01300
OOOJO
01200
OOOKO
01200
C5319
000-3
01200
05371
000M5
01200
02769
0000-

05162
05379

05195
05762
05058
0
0
0
C
C
05426
D5370
0538C
05762
05306
05756

OOOON
000-0
COOOO

05380
05058
OOOON
05377
-5458

05762

02097
05494
05058
00324
05538
04962
05762
04963
010962

04963
02492
05762
05762

02492

OOOKO
01200
00000
000-1
C1200
02097
02097
00000
05058
04963
05379
000-1

11

1620

~CNITOR

11

VERS leN 2

FORTR_N 11-0

SUBROUTINES

B1
ROCIG BO
ROBLNK BNF
AM
BL
TO
BXM

08920

TCO

08930
08940
08950
08960 FIX

SECONDARY LINKAGES WITH ARITH~ETlC BLOCK IN CORE
OCRG START
OS
3
,FIX-I
,11
TFL FAC

PAGE

SEr

ROAOJ
ROBlNK+l2 ,I N121
ROECK
,ROSOIG
,10
tNrs
,-01
·+48
.IN 121
01~1
,II ~I
e+12
,-5
ro~
ROSOIG
,ROSOH
BNF _+20
ROAOJ
B1
,01
FAC
AM
.10
ROAOJ
81
REAOtO
,ROSERR
BO
ROAOJ 8CX~ ROAOJi
,2121
,ROlERC
TFL FAt
TOM ROSERR
,0
ROAOJI+21t
B1
ROAOJi Btx ROAOJ-12 ,R08LNK+23141
FAC
,ROtS
S
TFM FIXENO+6 ,ROFIX3-12
SF
FAC-ll
,FAt-2
FAt-20
TF
,lOt
BNF ROFLT
11U-1
,RO~NUS
MF
FIXI+36
B1
,FAt-II
e+32
ROFLT BO
,FllER
TFL FAt
B1
*+32
,FAC-It
TF
FAC-2
FAC-2
,RO~NUS
MF
TFM F IXENO+6 ,RTN
,ROSERR
ROFIX3 BD
.+"8
,ROSERR
BNF e+2"
BUM ROGIVE
,ROERF1101
,RERCOM-12101
BLXM ROGIVE
BLXM ROGIVE
,8SWFIOI
•
•••••• RA 00 IT •• RD TO 110 REC FROM SELECTED INPUT
, •• 2)
RACOIT TFM 10RT
,OATlNH-4 ,1
B
10GT
.+24
.TYPE
BO
&Cit RWA2+36
BSWF
B1
OORG 8000
,101
AS2
31t
A2
,102
A2
38
49
-+26
,01565103103800
A2
OSC 14
01565103103800
08910
TRA

08440
08450
08460
08410
08480
08490
08500
08510
08520
08530
08540
08550
08560
08510
08580
08590
08600
08610
08620
08630
08640
08650
08660
08610
OB680
08690
08100
08110
08120
08130
08140
08150
08160
08110
08180
08190
08800
08810
08820
08830
08840
08850
08860
08810
08880
08890
08900

AS2

05618
05626
05638
05650
05662
056H
05686
05698
05110
05122
05130
05142
05150
05162
05174
051B6
05198
05806
05818
05830
05842
05854
05866
05818
05890
05898
05910
05922
05930
05942
05954
05966
05918
05990
06002
06014

49
43
44
11
41
25
62
15
44
49
11
49

66
66
66

05162
0565C
05594
05103
0511C
O-O-C
05698
05381
0513C
05162
02492
05162
05118
05806
02492
05318
0583C
05150
02492
02966
02481
02412
05898
02961
01306
05930
02492
05954
0249C
02490
02966
06014
06002
04882
04882
04882

06026
06038
06050
06062
06014
08000
08000
08012
08024
08036

16
49
43
46
49

00565
00566
06014
0619C
06834

-6049
-1069
C)423
00400

34
38
49

08036
08036
0805C
lit

C0101
00102

08050
08062
08000

36
49

CODOC
00000

ooooc

03851
03853
03854

06

3
C2492

C385L

03866
03818
03890
03902
03914
03926
03938
03950
03962
03914
03986
03998
04010
04022
04034
04046
04058
04010
04082
04094
04106
04118
04130
04142
04154
04166
010118
04190
04202
04214
04226
04238
04250
04262
04214
010286
04298
04310
OH22
04334
04346
04358
04310
04382
04394
04406
04H8
04430
04442
04454
04466
04478
04490
04502
04514
04526

49
44
49
23
49
28
49
28.
49
06
49
06
49
41t
49
C6
49
26
49
26
49
06
49
06
49
26
49
26
49
26
49
26
49
26
49
26
49
48
49
48
49
48
49
48
49
48
49
48
49
48
49
48
49
33
01
42

43

64
C6
15
49
63
22

16
32
26
44
11
49
43
06
49
26
11
16
43
44

18

02091
C5381
COO-J
C1300
02091
0-0-1
OOOON
05319
000-1
05318
00-02
02169
CCOOO
ON661
05195
-5954

oouoo
02490
06645
C5310
02481
03131

02488
05310
-2506
05318
05318
04502
04630
06834

ccoec
00500

545
1620 MONITOR II
08910
08980·
08990
09000
09010
09020
09030
09040
09050
09060
09010
09080
09090
09100
09110
09120
09130
09140
09150
09160
09110
09180
09190
09200
09210
09220
09230
09240
09250
09260
09210
09280
09290
09300
09310
09320
09330
09340
09350
09360
09310
09380
09390
09400
09410
091020
09430
09440
091050
09460
09410
09480
09490
09500
09510
09520

FXSR
FXM
FXO
FXDR
RSGN
FLOAT
FSBR

B
BNF
B
M
B
LO
B
LO
B
TFL
8
TFL
B
BNF
B

FOVR
F IXI
FAXI
FAXB
SET

TFL
B
TF

a

TF
B
TFL
B
TFL
B
TF
8
TF
B
TF
8
TF
B
TF
B
TF
B
H
B

H
B
H
B

FIX!
FXSRI+20
FURl
FAC
FXMI
99
FXOI
99
FXOI+l2
FAC
RSGNI
FAC
FLOAr2
FSBRI+26
FSBRI
IN
FOVRI
00344
FIXII
00339
FAXIl
IN
FIXBl
FAC
SET!
00309
WAnl
00309
IIAPT!
00309
IIACOI
00309
RATYl
00309
RAPT!
00309
RACOI

VERSION 2

,FAC
,FX'-I

,11

,FAC
,FXDR-I

,11

,RSGN-I

,11

,--1

,11

,FAC-2
,FAC
,FIXI-I

,11

,FAXI-1

,11

,FAXS-l

,11

,00344

,11

,--I

,--1
,--I
,--1
,--1

,--I

'-12
.-12
.-12

H

.-12

B
H
B

.-12

H
B

.-12

Ii

.-12
H
.-12
B
FAC-2
CF
FAOO HC
BB2
B

FS8R I

,FS8R-I

,11

FORnAN 11-0

SUBROUTINES

PAGE

SET

54 G

0121C
04686
04666
02492
04118
00099
0419C
00099
04802
02492
04514
02492
01086
04528
04502
02691
04548
00344
04886
00339
05206
02691
05522
02492
05118
00309
03210
00309
03246
00309
03210
00309
03368
00309
03404
00309
03424
00000
04310
COOOO
04334
OOOOC
04358
00000
04382
OOOOC
04406
00000
0443C
OOOOC
04454
00000
04478
0249C
02492

COOOO
C2492
00000
0390J
COOOO
02492
00000
0394R
00000
0391L
00000
0399P
00000
C2490
00000
02492
COOOO
C406R
00000
040n
00000
C411P
00000
CO)4M
00000
04165
00000
010189
COOOO
C4213
00000
04231
COOOO
04261
00000
04285
COOOO
00000
00000
COOOO
00000
COOOO
00000
00000
COOOO
00000
00000
COOOO
COOOO
00000
00000
COOOO
COOOO
00000
0402J

19

1620 MCNlTeR II
09530
09540

SF
B7
09550 FO~RI
TFl
09560
FOIV
09510
BS2
095BO RSGNI BNF
09590
BNF
09600
CF
09610
882
09620
SF
09630
882
09640
BNF
09650
CF
09660
BB2
09670
Sf
882
09680
09690 FXSRI Cf
87
09700
09710
SF
09720
A
09730
B7
09740 FXMl
SF
09750
TF
09760
CM
09770
8E
09780
AM
09790 FXMENC B
09800 fXC I
TF
09810
8lXM
09820
0
09830
BV
09840
TF
09850
8LXM
09860
TFM
09870
SlXM
09880 FIX 11 CM
09890
BE
09900
CM
09910
8NE
09920
8NF
09930
TFM
09940
81
09950
TO"
09960
MF
09970 PSI
TO
09980
MM
09990
BO
10000
CF
10010 OOOREV NOP
10020
8NF
10030
TFM
10040 FXZERO TF
10050
81
10060
TF
10010
TFM
10080
TFM

fAC-2
fSBRI+12
fAC
.FO\/R-l
FAC
• IN
- ... 52
-+26
FAC-2

VERSION 2

FORTUN 11-0

SUBROUTINES

SET

.ll

II FAC-l
.FAC-2

0105710

04586
04598
04610

FAC-2

-.26
FAC

010612

04624
04626
04638
04650
04.652
04664
04666
04678
04686
04698
04710
04718
04730
04742
04754
04766
04778
04790
04802
048H
04826
04838
04850
04862
04874
04886
04898
04910
04922
04934
0,>946
04958
04966
04978
04990
05002
05014
05026
05038
05050
05062
05074
05086
05094
05106
05118

,FAt

FAC
fAC
-+20
fAC
FAC
RTN
100MK
fAC
99"K
fXMENO
.+8
RTN
fAC
SET+12
100MK
-+36
FAC
RESET
EI
RESET
003H
FIXI+12
FAC
•• 44
RTN
EI
FXNINE
OOOREV+l
MU-I
*+21
.>9
.+24
MU-l
AXJ

..""

EI
FAC
ERROR
IN
FXMENO+6

PAGE
04528
04540
04548
04560
04572

,FXSR-l

,Il

,

,6

,99
,00

,610

,00000

,79

,fXO-1

,II

,--110)
,Fat

,6

,11
,99"K
,RTNIOI
,9
,571
,FXNINEIOI
,00
,10
,00
,00344
,771

.1,0
,9

,I
,FAC
,00344
,OOO~

,810

,99
,00344

,712

,9

,FXZ
,FAC
,FXERI

FXMENo-18,FX~UlT

12
49
06
09
42
44
44
33
42
32
42
44

33
42
32
42
33
49
32
21
49
32
26
14
46

11
49
26
66
29
46
26
66
16
66
14
46
14

47
44
16
49
15
71
25
13
H
33
41
44
16
26
49
2b
16
16

02490
04514
OH92
C2492

00000

0462f
04612
C249C

C2491
02490
00000

C404N
02697

02490

COOOC

0465.
02492

C249.
00000

C249.

COOOC

02492
04698
02492
OH92
02506

00000

0303~

00000
CC099
000-0
C1200
-0-00
COOOO
0392N
C4801
C2492
CI400
0244N
C2506
CON7I
07386
000-0
01200
000-0
CI200
00344
OOPll

02492
0244N
04778
04774
025C6
02492
04154
0303~

04862
OH92
05862
02707
05862
00344
07282
0 . . 92
04966
02506
02107
07)86
05039
02967
05011
05011
05038
02967
05HO
05094
02707
02492
02936
02697
04784
04760

20

00000
0387P

COOOI
02492
00344
0-0-5
C0099
00000
00000
00344
COP72
03099
02492
-5186
-5[30

547
1620 MONITOR II
10090
10100·
10110
10120
lOUD
10140
10150
10160
10170
10180
10190
10200
10210
10220
10230
10240
10250
10260
10210
10280
10290
10300
10310
10320
10330
10340
10350
10360
10310
10380
10390
10400
10410
10420
10430
10440
10450
10460
10470
10480
10490
10500
10510
10520
10530
10540
10550
10560
10570
10580
10590
10600
10610
10620
10630
10640

FXMULT M
8CXM
TFM
TFM
Bl
FXERI TFM
81
FUll CM
8E
80
8NF
TFM
81
8UM
MF
TDM
TD
81

AXJ

NOOIV

FSl
TFM
8NF
CF
TFl
TFl
FOlv
BXY
TFl
8CX~

TF
8LXM
FMUl
BNXV
TF
8LX~

FAX81

80
81
80
8NF
TFM

81

OSTS
OSTSI
QSTS2
ALSQI

SET!

MF
TF
8lX
87
FMUl
TF

aLK

81
TFM
BNF
TFM
81
CF
8X"
TF"
TF"

VERS ION 2

FORTRAN ll-O

SUB ROUT INES

SET

FAC
,IN
FXMl
,-1101
FXMEND+6 ,RTN
FXMENO-18,FXMEND
RTN
,713
,9
El
FXNINE
00339
,00
,10
ONEFAC
,FAC-9
·+44
ZERFAC
,00339
,714
,9
EI
INFFAC
SET+l2
,'-1101
MU-I
,FAC-2
ODDREV+I .9
PSI+21
,339
PSI+12
,FAC-2
FAC-lI
,775
,'I
EI
NOOIY
,00339
00339
,FAC
IN
FAC
,ONEZ
FAt
,IN
INFFAC
,FAC
IN
-+36
,-1111
FAC-2
,FAC-4
,RTNIOI
RESET
,IN
FAC
NOOIY>12
FAC-3
,FAC-5
,ERXV
RESET
.IN-9
-+20
ONEFAC
-+44
.FAC-9
ZER~AC
,IN-2
,711
,'I
El
INFFAC
FAX81
,FAC-2
;QSTS+6
FLTENO
SET+12
,If\ENTlOI
,0
QSTSI
,IN
FAC
,QSTS2+6
FLTENO
SET+12
,EXPENTIO I
ALSOI
.0
,RTN
FlTEND
R1N
,FAXBl
.676
,'I
EI
ERROR
00344
,13(0)
*+12
00309
,00000
00314
.00000

p~Ge

05130
05142
05154
05166
05118
05186
05198
05206
05218
05230
05242
05254
05266
05214
05286
05298
05310
05322
05330
05342
05354
05366
05378
05390
05402
05414
05426
05438
05450
05462
05414
05486
05498
05510
05522
05534
05542
·05554
05566
05518
05586
05598
05610
05622
05630
05642
05654
05666
05674
05686
05698
05110
05118
05730
05142
05754

,
,

540

23
64
16
16
49
16
49
14
46
43

44
16
49
66
71
15
25
49
05

16
44
33
06
06
09
46
06
64

26
66
03
47
26
66
43
49
43

44
16
4'1

11
26
65
"9
03
26
65
119
16
44
16
49
33
62
16
16

OH92
04718
04184
04760
02506
02707
01386
00339
02494
05274
02884
02107
02924
04154
02967
0503~

05011
05002
02481
02707
05426
00339
02697
OH92
C2492
02924
02691
05414
C249C
05862
02492
05438
C2489
05862
05542
02494
05586
02884
02707
02924
05522
02966
04154
0563C
C2492
02966
04154
05674
02966
02506
02707
02936
00344
05742
00309
00314

C2691
OOOOJ
-2506
-4178
OOP73
000-0
0120e
02483
CO]39
00P7Io
05273
02490
00009
00339
02490
OOP75
00339
00000
02492
03121
02697
01500
02492
C---J
02488
02506
02697
01500
02487
02968
02688
02483
02695
COP71
C2490
05628
03178
02697
05672
03183
-2506
05522
COO16
00000
00013
-COOO

-cooo

21

1620 MONITOR II
10650
1066e
10670
10680
10690
10700
10710
10720
10730
10740
10750
10760
10770
10780
10790
10800
10810
10820
10830
10840
10850
10860

CF

MU-I

OS

Qll
OZ2

QlF

RESET

T

10870 AU
10880 BU
10890 CEX
10900 DU
10910 DEES
10920
10930
10940
10950
10960
10970
10980
10990
11000
11010 ONE
11020 •
11030 CONST

,0101

VERSION

FORTRAN II-D

SU8RDUT INES

SET

,810

• e-2

OS

PAGE
05766
05175
05777
05778
05787
05789
057.0
05802
05813
05814
05826
05838
05850
05862
05874
05886
058.8
05910
05922
05.34

,_

SF
RESET+34 ,9090
,810
OS
.*-2
OS
,BNY '.24
CF
RESET+34
DS
It
,*
TFL QZF
,Qll
BNXV '.24
TFL QZF
,Ol2
8SBA 00344
,6
BY
•• 12
BNXV "12
AM
e+8
,00000
,19
FMUL QZF
,Ol2
8NF '.24
,MU-l
SF
FAC-2
8SB8 0 0 3 0 4 ,
,6
CONSTANTS REQUIREO FOR FEXP
DC
11
,12785175598 " EOO
ADJ FOR -.05
J2785175598
DC
10
,2540195232 "EO 1
K5100195232
DC
10
,2831555956
K831555.56
DC
12
,128117013714
J28117013114
DC
12
,239814182594
K39814182594
DC
10
',1122018454
J122018454
DC
10
,1412537545
J412537545
DC
10
,177B279410
JT7827.410
DC
10
,2238721139
K23B721139
DC
10
,2811382.31
K818382'31
DC
10
,35481 338.2
L5481338.2
DC
10
,44668 35922
M466835.22
DC
10
,5623413252
N623413252
DC
10
,70794 5.7844
P079457844
DC
10
,8.125 09381
Q912509381
DC
12
,100000000000
JOOOOOOOOOOO
CONSTANTS REQUIRED FOR FLN
DC
12
,0346 5735 9028
,,0.3
-34657359(28

33

02967

32

05896

22

0-1-1

C

C

ORORO

C
C

47
33

C5814
05896

CHaO
00000

4

05813
0585C
05813
0034~

05874
05886
058.4
05813
05934
0249C
ce30M

05956

11

05966

10

05916

It

05988

12

060CO

12

06010

10

06020

lC

06030

lC

0604C

IC

06050

lC

06060

IC

06070

lC

06080

lC

060.0

lC

06100

lC

06112

12

06124

12

C5771
CI500
05789
COOOI
C1400
C1500
-C-CO
05789
02967
00000
C0002

51 !J
1620 MONITOR II
11040
11050
11060
110'10
11080
11090
11100
11110
11120
U130
11140
11150
11160
11170
11180
11190

11200
11210

VERSION

FORTRAN 11-0

SU8ROUTINES

,1039 7207 7084
.,1.0
DC
12
JO 3.72071084
,1732 8679 5138
•• 1.1
DC
12
J73286795U8
• ,2.1
DC
12
,2426 0151 31'4
K42601513194
,2102 5850 9299,,2.3
LNI0
DC
12
K3025850.299
,7011 C678
RSQR2 DC
8
••• 7
P0710678
DC
•
,3009 9259
C7
L009925'4
,3996 585
DC
7
C5
L9.6585
,6666 6947 6
DC
9
C3
066669476'
CONSTANTS FOR ARC TAN
,-3333295775
DC ·10
L33329577N
,00
AT
DC
2
-0
,19964 10398
DC
10
J.96410398
,00
BT
DC
2
-0
,-1317798930
DC
10
J31779893- .
,00
CT
DC
2
-0
Z• • 24 TO .79 ••• PII7 ,COTC I,CSCC "CSCC I
••••••••••
RANGE ONE
,44879 8.505
DC
10
M4879895D5
ALPHA III
,00
AK
DC
2

11230 BK

DC
10
K0765213.7
DC
2

11250
11260
11270
11280
11290
11300
11310
11320

06148

12

06160

12

06172

12

06180
0618'
06196
06205
06215

10

06217
06227

lC

06229
06239

lC

06241
06251

It
2

,20765 21397

06263

lC

,01

BEfAll I

,53119 HI10
DC
10
N311941110
,01
GK
DC
2
-I
••••••••••
RANGE TWO Z• • 80 T02.076 ••• 2PII7 ,CDTC I,CSCI "CSCC. '
DC
10
,8975' 79010
Q975979010
DC
2
,00
-0
DC
10
, 7.747 H889
P.74733889
DC
2'
,00
-0
DC
10
,16359 63806
J635963806
DC
2
.01

-1
113]0 ••••••••••

12

06253

-1

U240

06136

.,

-0

11220

P~GE

SET

06265
06275

LC

06277

2

06287

Ie

06289
06299

IC

06301
06311

10

06313

2

RANGE THREE Z-2.077-INFIN ••• 3PII7 ,COTC "CSCC ,.CSCC ,

550

23

L620 MONI TOR II
11 340

VERS ION

11580

DC
La
.13463 96852
J346396852
DC
2
,01
-L
DC
LO
,22824 34744
K282 434 744
DC
,00
2
-0
,101)20 95084
DC
La
J052095084
DC
2
,OL
-1
DC
10
,0000000000, •
-OOCOOOOOO
DC
2
,-99
RR
DC
8
,15101CJ63
J5 707963
DC
2
01
-I
CONS T ANTS FOR S IN COS
DC
10
,-146102681~ ••
J46302683M
DC
10
403137HIO ..
M031377410
DC
10
9117805809 ..
R711805809
DC
10
,-233136lt992, ,
K33136499K
DC
10
3976072207 ..
1976072207
DC
10
,2500000000
K50000000C
DC
10
015915 49413
J591549413
DC
10
,7500000000
P500000000
OORG 8000
34
A4
,701
38
A4
,102
49
-+26
DSC
14
,0 L572503703800
01572503703800
TRA

11590

TCD

11600 CSTZS
11610

11 350
11360

11370
11380
L1390
11400
114LO
11420

.

11430 P IDV2
11440
11450 ASC
11460 SSC
11470 CSC
11480 CSC
11490 ESC
11500 PT25
115LO R2PI
11520 PT75
11530
11540 A S4
11550
11560
11570 A4

FORTRAN 11-0

SUBROUTINES

SET

PAGE
06323

AlP~A

131

06325
Ob335

BETA ( 31

LC

06337
06347

LC

06349
A ZERO

06359

HPHA 101

063bl

LC

06369
06311
E+I

06381

10

,

E+O

06391

Ie

,

E+O

06401

10

E+O

06411

IC

E+2

06421

LC

06431

LC

06441

IC

06451

LC

,

24

LC

08000
08000
08012
08024
08036

34
38
<9

C8036
08036

oee5e

C07CL
C0702

ceoco

14

08050
08062
08000

36
49

CCoCC
OCCCC

CC500

H

08074

48

OCCCC

OCOOO

DENO CSTZS

08014

AS4

cocao

551
1620 MONITOR 11
COMACC
COMPl T
OAlONG
DARITH
CATCUO
OATINH
o 1000A
OKOATA
ENOFOR
ENTA8S
ENTATN
ENTCOS
ENTDEO
ENTORR
ENTEXP
ENTFET
ENTF 10
ENTREC
ENTSC2
ENTSC3
ENTSOX
ENTSIN
ENTSCT
ENTSWO
ERCOM2
EXPENT
FINOIN
F IXENO
HaU2
FLTENO
FLIERS
FXMENC
FXMULT
FXNINE
FXIERO
INFFAC
I X2HLO
LOCACJ
MATRIX
MATRX2
MESERR
MONCAL
MOVEXP
MOVMAN
COOSEl
OOOREV
ONEFAC
OVFLOW
PROGST
RADOIT
ROAOJI
RCSLNK
RDCOMI
RDCOM2
ROCDM3
RDERF7

VERSION

02231
06360

ROFIX3
ROGI VE

05966

0~89~

RO~NUS

03667
01081
07073
02868
02860
02521
02323
02313
02303
02298
02293
02253
02283
02273
e2278
02258
02263
02268
02308
02318
02288
07014
03183
02404
02960
07086
02966
02859
04778
05130
07386
05074
02924
06796
06336
06444
06512
02699
00796
05162
05218
04786
05038
02494
02924
02226
06026
05806
05638
05138
05270
053C6
04502

ROPlUS
RDSOEC
ROSOIG
ROSERR
ROSETY
RCSSGN
RDlERQ
RUOAI
REACA2
REAoeo
REPSW3
RERCOM
RETYPE
RFTYPE
RHTYPE
RlTYPE
RWEFSW
100MK
99MK

05370
05382
05179
05381
05318
05377
05380
02769
04762
04786
05118
06640
04642
04942

Ai
A2
A3
A4
lEX
AK
ALSOI
ARITH
ASI
AS2
AS3
AS4
lSC

AT
HYPE
AXJ
BETA
BEX
BK
BSC
BSWF
ST
C3
C5
C1
COL
CEX
CHAR
ClOBB
CLOTT
CNTS
CONST
CSC
CT

0~882

0~91~

04522
05022
03333
03034
02445
080]6
080]6
08036
08036
05966
06253
05674
03675
08000
08000
08000
08000
06381
06217
OH06
05310
02630
05976
06265
06391
06834
06229
06205
06196
06189
03403
05988
04963
03496
03516
05103
06124
06401
06241

FORTRAN 11-0
CEES
CU
OSC
OUOH
QUO
DUMMY
EI
EMASK
ENTlN
ERCOM
ERF8
ERF9
ERREl
ERROR
ERXV
Ese
ElYPE
FAe
FAX81
FAXS
FUll
FAXI
FOVRI
FOVR
FILLl
FILLR
FIX!
FIXII
FIX!
FIX
FKOOO
flOAT
FLONE

SU8ROUTINES
06010
06000

OHll
02699
02739
99999
02101
061H
022~8

OH58
04746
04994
00602
02936
02968
06421
044H
02~92

05522
04118
05206
0~094
0~5~8
0~046

05826
05718
07270
04886
0~070

flIER

03854
02987
03998
03153
012H
03131

F~ON

0356~

FLU
F
FS8RI
FSBR
FTYPE
FXI,
FX9
FXD1
FXDR
FXO
FXERI
FXH
FXMI
FXM
FXSR I
FXSR
FXZ
GAM
OK
HTYPE
I NF

02219
0~502

04022
OH30
03109
03089
0~790

03950'
03926
05186
03072
04718
03902
04666
03878
03099
02139
06277
04478
03163

SET 5
INH
IN
lOCAL
10CT
10PT
IOR8C
10RT
10SK
HYPE
IXNEN
IXP
JH8
K
lNIO
lNENT
lOCO
lOC
LOGE
M2KMI
M2KP 1
MATSW
MU
MKP 1
MK
MKS
MU
Nl
N2
NOOIV
ONE
OHEZ
PAR
PIOV2
PS I
PH
PT25
PT15
oQo
oSTSI
oSTS2
OSTS
oSTZS
Oll
Ol2
olF
R2P I
RACOI
RACO
RAPTl
RAPT
UTYl
RATY
ROAOJ
ROALP
ROCOM
ROCS

PAGE
02521
02697
00116
00566
00532
0052a
00565
00554
04110
05118
05882
04922
02221
06112
03178
05391
06645
03l4.l
02942
02989
06638
03188
03168
03173
03173
02968
02233
02238
05426
06112
03121
038~3

06371
04990
03269
06431
06451
03552
05630
05666
05622
OB074
05117
05789
05813
06Hl
03424
04286
03404
04262
03368
0423B
05162
03H8
05058
05195

552

25
RODAI
RDDA
RDOEC
ROO I G
RDECK
RDE
ROFL T
RCPLI
ROSA
ROSQP
READA
REClG
REC.K
REDOA
REDO
REP2
REP3
REPEX
REP
REPSW
RESET
RETYl
RETY2
RSGNI
RSGN
RSQR2
RTN
RWA2
RWA3
RWA
SAVE
SCONS
SEll
SET
SLASH
SLIP
START
STOP
SWCFX
SWCMI
SWCM2
SWC
SWL
TRACE
TRFX
T
TYl
TYPE
UNfLO
WACOI
WACO
WAFX
WAPT!
WAPT
WAHL
WArY

03333
03325
05338
05626
05SQ4
05438

058QB
05426
03353
04864
04654
02243
C2403
C6326
06290
06Q54
06978
07002
06B8l
06637
05862
05458
05538
04574
03974
06L80
02506
06754
06718
06682
02592
04909
05718
04142
06384
00000
03851
02395
02410
03204
03209
06646
06586
03004
03066
05956
03245
03423
02904
03270
04214
04418
03246
04190
03210
04166

162C MONITOR II
~CK
~DSA

WEDEe
hH
WICK
WIDTH
WMASK

C520Q
Cl360
C5838
04886
0412l
04861
06121

WRITE
WRTA
WRTE
WRTF
WRTl2
WRTI
W

VERSION
06082
04490
05H2
05610
04546
04514
02240

FORTRAN 11-0
WSIGN
XSGN
HYPE
XX
lERO
SUSH2
STlERO

SUBROUTINES

SET 5

05862
OH18
06846
99999
02151
06022

WEFCOM
WFSIGN
WFIERO
WHTYPE
WIEXIT
~R IYEA
WRUCK

02111

PAGE
05018
05918
05966
04814
04690
04334
04382

WRULP
WRTSGN
WlERCK
lERFAC
lEROlO

END OF ONE ASSEMBLY.

553
1620 MONITOR II
00010
00020
00030
00040
00050
00060
0001·0
00080
00090
00100
00110
00120
00130
OOHO
00150
00160

oono

10RBC
10PT
.IOSK
10GT
ERRET
10RT
lOCAL
MONCAl

F
K
PROGST
COMADC
Nl
N2
W
REClG
ENTLN
ENTEXP
ENTSC2
ENTSC3
ENTSDX
ENTFIO
ENTREC
ENTFET
ENTSWO
ENTDRR
ENTOEC
ENTCOS
ENTSIN
ENTATN
ENTSQT
ENTABS

00180
00190
00200
00210
00220
00210
00240
00250
00260
00210
00280
00290
00300
00310
00320
00130
00340
00350
00360
00310
00380
00390
00400 STOP

.....

00410
00420
00430
00440
00450
00460
00410

RECMK
FINOIN
SWCFX
99MK

00480
00490 FAt
00500

VERSION 2

FORTRAN II-D

SU8ROUTINES

,,....

,..

00510 ONEFAC TFL FAC
00520 RTN
8S88 -+12
00530
BB2

PAGE

SET

1620 FORTRAN 11-0
SU8ROUTI NES WITH FLOATING PO INT HARDWARE
IOU ENTRY POINTS AND CONSTANTS
OS
.520
OS
.512
.554
DS
DS
.566
OS
.602
OS
.565
DS
.116
DS
.196
1620 FORTRAN 11-0 IN CORE AREAS
COMMUNICATION AREA
OoRG 2218
OS
2 .. FLOATING POINT 1I0RO lENGTH
os
Z.. FiXED PO INT WORD lENGTH
DS
5 .. SURTING ADDRESS DF MAINLINE PROGRAM
5 .. STARTING ADDRESS OF COMMON UEA
DS
OS
Z.. NUMBER OF WORDS IN lOGICAL RECORD
OS
5 .. NUMBER OF lOG ICAl RECORDS
DS
2 .. WDRD lENGTH
DS
J .. RECORD LENGTH
DS
5 .. ENTRY ADDRESS TO lOG SU8ROUTINE
DS
5 .. ENTRY ADDRESS TO EXPONENTI Al SUBROUTINE
OS
5 .. ENTRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE
DS
5 .. ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUlfNE
DS
5 .. ENTRY ADDRESS TO SWITCH D FIXED SUBROUTINE
DS
5 .. ENTRY ADDRESS TO FIND SUBROUTINE
DS
ENTRY ADDRESS TO RECORD SUBROUlfHE
DS
ENTRY ADDRESS TO FETCH SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SW ITCH 0 SUBROUTINE
DS
5 .. ENTRY ADDRESS TO ARRAY SU8ROUTINE
ENTRY ADDRESS TO DISK END SUBROUTINE
OS
OS
5 .. ENTRY ADORESS TO COSINE SUBROUTINE
DS
5 .. ENTRY ADDRESS TO SINE SUBROUTINE
OS
5 .. ENTRY ADDRESS TO ARCTANGENT SUBROUTINE
DS
5 .. ENTRY ADDRESS TO SQUARE ROOT SuBROUTI HE
DS
5 .. ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
OS
10. 'RUERVED FOR ENTRIES TO ADDEO SUBROUTINES
COMMON WORKING AREAS
5,STOP'
oAC
STOP'
OS
.STOP'8
OS
1
DS
5
TO
-SWCMl
.SWCFX-l
TFL -SIICM2
.SWCFX-2
-SWCMl
SF
.00000
DC
5
.00099
-0099
-38C8
Bl
OS
40
DC
1

.-

.'

,FlONE

55',

C

00520
00532
00554
00566
00602
00565
00116
00196

0
0

C
C
0

C
0

02218
02219
02221
02226
02231
02233
02238
02240
02243
02248
02253
02258
02263
02268
02213
02218
02283
02288
02293
02298
02303
02308
02313
02318
02323
02393

2
2
5
5
2
5
2
3
5
5
5
5
5
5
5
5

5
5
5

5
5
5
5
5
lC

02395
02403
02404
02409
02410
02422
02434
02445

C
1
5
25
06
32

0320~

Ol20R
0320M
5

02446
02492
02493

49

C380Q
40
1

02494
02506
02518

06
60

02492
0251e

42

02409
02408
00000

03153
00002

26
0329~

04630
055H
02884
02161

1620
00540 ENCFCR OAC
0
00550 INH
OS
00560 SAVE
OS
00510 BETA
OS
00580 IN
OS
00590 ~E SERR OAC

176
6,ER E

ER f:

006CO OUCH
00610 EI
00620 DUD
00610 GAM
00640 lERD
00650
00660 ROlERO
00670 ZEROIC
00680 STlERD
00690
00100
00110
00120
00730
OOHO
00150
00760

~ONI

TOR II

VERSICN 2

FORTR~~

11-0

SU~ROUT

INES

SET

l,e

1 X

.ENOFCR
tINfH71
, SAVE+38

02521
02592
02630
02697
02699

C
C
C
116
6 X

.MESERR

02699
02707
02739

0
a
30

02139
02757

0
18

02761

10

,

t

OS

as

• fo'E SERR+8

DC
30
.0
-000 0000000000000000 00 COOO 0000
OS
,DUD
DC
18
,0
-0 00 00000000 000000
DC
,0
10
-000000000
DC
,0
2
-0
OS
• RDZERD-2
DC
,0
2
-0
,0246810
00
00
, 02106810
00
,02106810
00
,0246810
00
,0246810
00
,0246810
00
,0246810
DC
2
.00
-0
DC
2
,0'

02769
02767
02771
02772
02184
02196
02808
02820
02832
02844
02851

·

00710 FLZERS

00180 OKOATA OSC ' 2
00
00790
OS~
DIOOOA
00800

PAGE
02521

DC

-0

-0
-0
-0

-0-0-0-02

5 X

02866
02867

,0

02868

,a
,a

02873

"

02882

,FLIER

02884
02896
02904
02916
02924
02924
02936
02942

-2868
1

02876

,FLZER

,INF
,INFFAC

,--5

-o-c-

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

02860
02866

·

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

02859

.00

"

00810 OIOOOA osc
0
00820
DC
5
-0000
00830
DC
3
-00
00840
oc
6
-0000'
00850 ZERFAC TFL FAC
00860
B7
-FL TENO
00870 UNFlO TFL FAC
00880
Bl
ERXV+12
00890 INFFAC TFL FAC
00900 oyno. os
00910 ERROR Rery 00001
00920 M2KM 1 OS

-0
-0
-0

,26

C6
49
06
49
06

02492
02960
02492
0298C
C2492

34

-OOOJ
0

02948
02960
02966
02968
02968
02980
02989
02987
02992
03004
03016
03028
03034

39
49

02699
C2506
0
0
02992
02701
0
0
02936
03COL
C2518
00 DOC

03040
03052
03064
03066
03072
03078

44
38
42
38

C3131
03131
03163

0

00102

555
1620 MONITOR II
00930
DOHa
00950
00960
00970
00980
00990
01000
OIDia
01020
01030
01040
01050
01060
01070
01080
01090
01100
01110
01120
01130
01140
01150
01160
01110
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
013CO

YERS ION 2

FORTRAN 11-0

SUBROUTINES

01310 MKS
01320 LNENT

,

-ooco

OS
2
DC
5
-OOUJ

PAGE

SET 6

WArY "ESERR
FIXEND 87
RTN
Fl TEND OS
,FIXENO+6
,FL TENO+2
MU
OS
,FAC
ERXV
BNF _+24
,0101
,810
AM
EI
,.-2
M2KPI OS
FKODO OS
,--It
ERROR
8
,6
TRACE
,FAt
TFl TRACE-l
BNC4 RTN+12
ReTY 00000
100MK oc
,100
,--5
5
-0100
,FAC-I
BNF TRFX
WNTY FAC-9
B82
,2
TRFX
WNTY FAC+I
FXH
,*-5
OS
882
1620 FORTRAN 11-0 FIXED POINT CONU~TS
FX9
DC
10
,9999999999
R999999999
FXl
,0000000000
DC
10
-000000000
FXI
,0000000001
DC
10
-000000001
oe
10, 1000000000
JOOOOOOOOO
2, 01
ONEZ
DC
-1
,0
DC
8
-0000000
,-99
FliER DC
2
RR
•
CONSTANTS REOU I REO FOR RElOCATABLE SUBROUTINES
,4342944B19
DC
10
M342944819
LOGE
,00
DC
2
-0
DC
.10000COO
8
JOOOOOOO
HCNE DC
2
.01
-1
,99999999
OC
8
R9999999
,99
INF
DC
2
R9
•
• ••••• WATY •• WAPT •• WACC. LeADS IX Al ~ITH FOR~AT ACR SUPPLIED
•
•••••• BY MAINLINE, STORES REQO MAX REC LNGTH + CODE fOR DEfiNER
MKPI
DC
5
,I
-0001
MK
DC
5
.0

,-I

556

11

49
06

41
H

02491
COI00

-2493
0

00100

42
10
lC

03109

10

03119

10

03121
03129
03131

03143
03151
03153
03161
03163

03168
03173

CCOCO
02492
00400
00102

5

03099

03141

CH92
0-1-1

03066
02483

03089

03173
03178

,~K

44

COI00

10

1620

~ONITOR

01330 .EXPENT OC
5
-OOOJ
OI34C MAX
OS
5
01150
OORG 03200
C1360 SWCMI
oSA SWC-I

II

VERS ION 2

FORTRAN 11-0

SUBROUTINES

SET 6

,-I

PAGE
03183
03188
03200
03204

5 X
-6801
5 X

0320~

01310 SWCM2

oSA

SWC-2

01380 WATYI
01390

TFL
TOM
B
OS
TFL
B
OS
TFL

MAX
TYPE
WRULP

01~00

OHIO
01420
01430
01HO
01450
01460
01470
01480
01490
01500
OISlO
01520
01530
01540
01550
01560
01510
01580
01590
01600
01610
01620
01630
016 ... 0
01650
01660

TVI
WAPT!

03209

,T't1
,0
,06113

03209
03210
03222
03234
03245
032"'6
03258
03269
03210

,19

"

MAX
,PT!
WRTALP-12,08113
,19
PH
WACO I
MAX
,COl
•
•••••• WRT ALP ••• PREP TO CAll
,-5
TOM TYPE
WRTAlP TOM RWEFSW
,I
RWEFSk OS
,--1
81
RWA
RATYI TFL MAX
,TYI
,0
TOM TYPE
ROAlP
8
,10159
,19
COl
OS
RAPT! TFL MAX
,PH
B7
ROALP-12
TYPE
OS
1
RACOI TFL MAX
,COl
TDM TYPE
,-5
,0
ROALP TOM RWEFSW
RWA
81
DUMMY DS
,99999
XX
,DUMMY
DS
START OS
,03851
OORG 3789
DSA WATY

"

..

WRT SECT IF NOT IN CORE
SET TYPE-WRITER SWITCH OFF

03282
03294
OH04
OH06
0331 ...
03326
03338
03349
03350
03362
03369
03370
D3382
03394
03406
99999
99999
03851
03789
03793

SET TYPE-WRITER SWITCH ON

"

SET TYPE-WRITER SWITCH OFF

06
15
49
06
49
06
15

15
49
06
15
49
C6
49
06
15
15
49

-6806
03188
03369
03294
C
03188
01282
C
C3188
03369
03304
0
068 ... 4
03188
OH69
03394
0
03188
03382
I
03188
03369
03304
06844
C
C
C

03245

oooec

-6J73
03269
-BJ13
03349
COUON
COOOI
03H5
00000
JOJ59
C3269
03349
OOOON
COOOO

01670

DSA

REP3

03793
03198

-4166
5 X

01680

OSA

TRACE

03198
03803

-714C
5 X

01690

DSI

SWC

03803
03808

-3004
5 X

01100

DSl

SWCFX

03808
03813

-6808
5 X

01710

DSA

SLASH

03813
03818

-241C
5 X

03818

-6546

557
1620 MONITOR II

VERSION 2

FDRTRAN II-D

SU8ROUT liliES

PAGE

SET

01720

DSA

REP

03823

01730

DSA

REDO

03823
0·3828

-70H
5

01740

DSA

XTYPE

03828
03833

-6452
5

01750

DSA

COMPLT

03833
03838

-1008
5 X

03838
01160 PAR

DSA

0

038~3

-6522
5

01710

DSA

MATRIX

03843
03U8

-ecce

0381t8

-6606

.....

01180
01190
01800
01810 FIX
01820
01830 FXSR
018~0

01850
01860
01870
01880
01890
01900
01910
01920
01930

FXM
FXD
FXDR
RSGN
flOAT

019~0

01950
01960
01910
01980
01990
02000
02010
02020
02030
02040
02050
02060
02010
02080
02090
021CO
02110
02120
02130
02HO
02150

FS8R
FOVR
FIXI
FAXI
FAX8
SET
WATY
WAPT
WACO
RATY
RAPT

SECONDARY LINKAGES
OORG START
DS
3
TFL FAe
,FIX-I
B
FlU
BNF FXSRh20 ,FAe
B
FURl
,FXM-I
M
fAe
B
FXMI
,FAC
99
LD
B
FXOI
99
,FIDR-I
LD
8
FXDhl2
TFL FAC
,RSGN-I
8
RSGNI
TFL FAt
,--I
B
FLOAT2
8NF FS8.RI+26 ,FAe-2
B
FS8RI
TFL
,FAC
IN
B
FDVRI
,FI XI-I
TF
0034 ...
B
FIXII
TF
,FAXI-I
00339
8
FAXIl
,FIXB-I
TFL
IN
B
FAI51
TFL FAe
,OO34~
8
SEll
TF
,.-1
00309
B
WATYI
,.-1
00309
TF
WAPTl
B
TF
,--I
00309
a
IIACOI
TF
00309
,*-1
RATYI
B
TF
00309
,*-1

5 X

5 X

03851
D3853

,II

0385~

03866
03878
D3890
03902
03914
03926
03938
03950
03962
03914
03986
D3998
04010

,II
.11

,II
,II

0~022

0403'"
·040 ...6
0 ... 058
04070
0 ... 082

,II
,Il

0~094

,II

04106
04118
0~130

,11

0 .... 42
04154
04166
0 ... 118
0 ... 190
0 ... 202
D4214
04226
04238
04250
042U

558

3
C6
49
4~

49

23
49
28
49
28
49
06
49
06
"'9
44
49
06
49
26
49
26
~9

06
"'9
06
49
26
49
26
49
26
49
26
49
26

02~92

01432
04686
0466t
02 ... 92
04118
00099
04790
00099
04802
02492
04574
02"'92
07248
04528
04502
C2697
04548
00344
04886
003]9
05206
02697
05522
02492
05718
00309
0321C
00309
03246
00309
0327C
003C9
CH14
00309

C385L
COOOO
02492
COOCO
C390J
COOOO
02492
CCOOO
C394R
COOOO
0397L
00000
O399P
COOOO
02490
OCOOO
02 ... 92
COOOO
0406R
CCOCO
C409L
COOOO
041lP
OCOOO
C034~

COOOO
04165
00000
04189
00000
04213
00000
04237
00000
04261

4

1620 MONITOR [(
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
·02280
02290
02300
02310
0232C
02HO
02340
02350
02360
02310
023BO
02390
02400
02410
02420
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710

RACO
ITYPE

B
TF
8
BO
B
H
B
H
8
H
B
BO
B

VERS ION 2

FORTRAN 11-0

SUBROUTINES

SET

RAPTl
,_-I
00309
RACOl
WRfI-24 .RWEFSW
RITVPE-12
.-12
.-12

'-12
WRITEA-12,RWEFSW
ArVPE
READA-12
FrV?E eo
WEFCDM-24.RJjEFS.
B
RFTVPE-12
ETVPE 80
WEFCCM-4B ,RWEFSW
B
REfYPE-12
HfYPE 80
WHTVPE-12.RWEFSW
8
RHTYPE-12
FSBRI CF
fAC-2
FAOC FAC
.FS8R-l
8B2
SF
FAC-2
B7
FSBR1+l2
FDVRI TFL FAC
.FDVR-l
FDIV FAC
.IN
BB2
KSGNI BNF -+52
.FAC-l
BNF -+26
.FAC-2
CF
FAC-2
BB2
FAC-2
SF
BB2
BNF -+26
.FAt
tF
FAt
BB2
SF
fAt
BB2
FXSRI CF
FAC
B7
-+20
SF
FAC
FAC
A
.FXSR-I
B7
RTN
FX~I
Sf
100MK
TF
FAt
.99
99MK
tM
.00
BE
f.MENO
0+8
AM
.00000
FXMENO B
RTN
FXOI
TF
.FXD-I
FAt
BLXM SET+12
.·-110 I
.FAt
100MK
0
•• 36
BY
TF
FAC
.99MK
BUM RESET
.RTNIOI
,511
TFM EI

.

.11

.11

.11
.6
.610
.79

.11
.6
.11
.9

PAGE
04274
04286
04298
04310
04322
04334
04346
0435B
04370
04382
04394
04406
04418
04430
04442
04454
04466
OHlB
04490
04502
Olt514
04526
04528
04540
0454B
04560
04572
04574
04586
0459B
04610
04612
04624
04626
04638
04650
04652
04664
04666
04678
04686
04698
04710
04718
04730
04742
04154
04766
04778
04190
04802
04814
04826
04838
04850
04862

49
26
49
43
49
48
49
loB
49
48
49
43
49
H
49
H
49
43
49
H
01
42
32
49
06
09
42
44
44

04874
04886
04898
04910
04922
04934
04946
04958
04966
04978
04990
05002
05014
05026
05038
05050
05062
05074
05086
05094
05106
05118
05130
05142
05154
05166
05178
05186
05198
05206
05218
05230
05242
05254
05266
05274
052B6
·05298
05310
05322
05330
05342
05354
05366
05378
05390
05402
05414
05426
05438
05450
05462
05474
05486
05498
05510

66
14
46
14
47
44
16
49
15
71
25

33
42

32

03350
00309
0337C
07780
10086
00000
04334
COOOO
0435e

00000
04382
0766C
09670
08344
10026
0832e
C99B2
C8104
09526
02490
02492

COOOO
04285
00000
03304
COOOO
00000
COOCO
COOOO
COOOO
00000
00000
03304
00000
03304
eoooo
OH04
00000
03304
eeooo
COOOO
0402J

02490
04514
02492
02492

00000

04626
04612
02490

e2491
02490
00000

02HC

oeooo

04652
02492

02492
00000

02492

00000

02492
04698
02492
02492
02506

00000
Ol87P

0404N
02697

42
H

33
42
32
42
33
49
32
21
49
32
26
14
46
11
49
26
66
29
46
26
66
16

0303~

02492
0244~

0477e
04174
02506
02492
04154
0303~

04862
02492
05862
02707

COCOC

00000
00099
OOO-C
el200
-0-00
00000
0392N
C4BCI
02492
01400
0244N
02506
OONH

559
1620 MON ITOR [(
02720
02730
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02B60
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270

FUll

PSI

OOOREV

BLXM
tM
BE
CM
BNE
BNF
TFM
B7
TOM
MF
TO
10M
BO
CF

NOP

BNF
TF~

FXlERO TF
B7
TF
TF"
TFM
FXMULT M
aeXM
TFM
TFM
B7
FURl TFM
B7
FAXII eM
BE
BO
BNF
TFIO
B7
BLXM
MF
rOM
TO
87
AXJ
FSL
TFM
BNF
tF
T.FL
TFL
FOIV
BXY
NOelY TFL
BCX~

TF
BlXM
FMUl
8UY
Tf
BlXM

RESET
00344
FIXI+12
fAt

*.4,.

RTN
EI
F.NINE
OOOREV+I
MU-l

•• 21

VERSION

FORTUN 11-0

SUBROUTINES

SET

.FXNINEIOI
.00
.10
.00

.10

.00344
.771

.9

.1
.FAt
.00344
.0005
.99

0+9
•• 24MU-I
AXJ
*+44
.00344
EI
.772
FAt
.FXl
ERROR
IN
.FAt
FXMEND+6 .FURI
FXMEND-18.FXMULT
fAC
.IN
f.MI
.-1101
FXMENO+6 .ATN
fXMEND-18.UMENO
UN
EI
.773
FXNINE
00339
.00
O.NEFAC
*.44
.FAC-9
IERFAC
.00H9
EI
.774
INFFAC
SET+12
•• -1101
MU-l
.FAC-2
OOOREY+l .9
PSI+21
.339
'SI+12
FAt-ll
.FAC-2
EI
.775
NOOIY
.00339
00339
.FAt
IN
FAt
.ONEZ
FAC
.11i'
INFFAC
IN
.FAt
.+36
.-1171
FAC-2
.FAt-4
RESET
.RTNIOI
FAt
.IN
NOOIV+12
FAC-3
.FAt-5
RESET
,ERXY

.810

.9

.9
.10

.9

.9

5(j(J

PAGE

13
43

H
41
44

16
26
49
26
16
16
23
64
16
16
49
16
49
14
46
43
4<\
16
49
66
71
15
25
49
05

16
44
H
06
06
09
46
06
64
26
66
03
47
26
66

05862
00344
07444
02492
04966
025C6
02707
07548
05039
02967
05011
05011
05038
02967
05HO
05094
02707
02lt92
02936
02697
0"784
0476C
02492
0471e
OH84
OH60
02506
02707
07548
00H9
02494
05274
02884
02707
02924
04154
02967
0503~

05011
05002
02481
02707
05426
OOH~

02697
02492
02492
02924
02697
05474
02490
05862
02492
05438
02489
05862

07548
eoo-o
01200
000-0
el200
eOH4
OOP71
ecool
02492
00344
0-0-5
C0099
00000
00000
00344
OOP72
03099
CH92
-5186
-5130
02697
OOOOJ
-2506
-10778
OOP73
000-0
01200
02483
00339
00P74
05273
02"90
00009
00339
02490
OOP75
00339
eoooo
02492
03121
02697
01500
02492
O---J
02488
02506
02697
01500
02487
02968

6

1620 MONITOR II
032BO
03290
03300
OBIO
03320
OB30
03340
OB50
OB60
01370
01380
OB90
OHCO
03410
OH20
03430
03440
03450
03460
03470
03480
03490
03500
03510
03520
03530
03540
03550
03560
03570
03580
0]590
03600
03610
03620
03630
03640
03650
03660
03670
03680
03690
03700
03710

FUBI

QSTS
OSTSI
QSTS2
ALSO I

BD
87
BO
BNF
TFM
B7
MF
TF
BlX
B7
FMUL
TF
BU
B7
TFM
BNF
TF~

SEll

87
CF
BX~

TFM
TFM
CF
OS

OZI
OZ2
QlF

RESET

-+20
ONEFAC

,IN-9

e+44
lERFAC
E1
INfFAC
FAXBI
FlTEND
SET+12
QSTSI
FAC
FlTEND
SET+l2
ALSQl
FlTEND
UN
EI
ERROR

,FAC-9
,IN-2
,777

YERSION 2

FORTRAN 11-0

su BRoun NE5

,9

,FAt-2
,QSTS+6
,LNENTIO I

,

,0

,IN
,QSTS2+6
,EXPENTIOI

,

,0

.RTN

,FAXBl
,676

,9

0031010

e+12
00309
00314
MU-I

,13101
,00000
,00000
,0101

,.,--2
,.,.-2
,.,QU

os

,810

SF
RESET+34 ,9090
,810
OS
OS
8NY e+24
CF
RESer+14
OS
4
TFl QZF
BNXV .+24
,Ql2
TFl QZF
,6
8SBA 00344
e+12
BY
BNXY e+12
. .8
,00000
,79
AM
,QZ2
FMUl QZF
BNF e+24
,MU-l
FAC-2
SF
BS'Be 00304
,6
CONSTANTS REQUIRED FOR FEXP
,12785175598 .. EOO
DC
11
J2785115598
,2540195232 • ,EOl
DC
10
K540195232
,2831555956
DC
10
K831555956
,128117013714
DC
12
J28111013714
,23981101B2594
DC
12
K398141825910
10
,112201845'1
DC
JI22018454
DC
10
,1412537545
J412531545

,

03720 lEX
03730 eEX
03740 CEX
03750 DEX
03760 DEES
03770

PAGE

SET

lOJ FOR -.05

05522

U

0553~

~9

05542
05554
05566
05518
05586
05598
05610
05622
05630
05642
05654
05666
05674
05686
05698
05710
05718
05730
05742
05754
05766
05775
05717
05778
05787
05789
05790
05802
05813
05814
05826
058]8
05850
05862
05874
05886
05898
05910
05922
05934

U

05956

44
16
49
71
26
65
M9
03
26
65
~9

16
44
16
49
33

62
16
16
33
32
47
33
06
47
06
60
106

47

11
03
44
32
60

05542
02494
05586
02884
02707
02924
05522
02966
04154
05630
OH92
02966
04154
05614
02966
02506
02107
02936
C034"
05142
00309
00314
02967
0
0
05896
C
e
05814
05896
4
05813
0585C
05813
0034~

05874
05886
05894
05813
05934
0249C
003e~

026B8
C24B3
02695
OOP77
02490
C5628
03118
C2697
05672
C3183
-2506
05522
00076
CCOOO
COOI3
-oooc
-COCC
0-1-1
CRORO
01400
ecooo
05777
C1500
05789
COOOI
01400
01500
-0-00
05789
0~967

CCOOC
COO02

11

05966

It

05976

10

05988

12

06000

12

06010

IC

06020

Ie

06030

10

06040

It

56 I
1620 MONITOR "
03780
01790
038CO
03810
03820
03830
03840
03850
03860 ONE
03810 •
03880 CaNST
03890
03900

03910
03920 LNIO
03930 RSQR2
03940 C7
03950 C5
03960 C3
03970
03980
03990 AI
0400{)
04010 81
0402C
04030 CI
04040
04050

VERSION 2

FORTRAN 11-0

SET

SUeROUTlNES

,1778279410

DC
10
J178219410
DC
10
,2238721139
K238721139
DC
10
,2818382931
K818382931
10
,35481 33892
DC
l548133892
,44668 35922
DC
10
M466835922
10
,56231t13252
DC
N623413252
10
,70794 57844
DC
P079451844
,89125 09381
10
DC
Q912509381
,100000000000
DC
12
JOOOOOOOOOOO
CONSTANTS REQUIRED FOR FlN
12
,0346 5735 902B
• ,0. 3
DC
-34657359C28
,1039 1207 7084
DC
12
" 1.0
JO 397207708'0
,1732 8679 S138
,,1.1
DC
12
J13286195138
,2426 0151 3194
,,2.7
DC
12
K42601513194
12
,2302
5850
9299,,2.3
DC
K30258509299
, •• 1
8
,7071 0678
DC
P0710678
,3009 9259
9
DC
lO0992594
,3996 585
DC
7
1996585
,6666 6947
DC
9
066669476
CONSTANTS FOR ARC TAN
10
,-3333295775
DC
l33329577N
,DO
DC
2
-0
10
.19964 10398
DC
J996HO]98
,00
DC
2
-0
,-1317798930
DC
10
J31779893,00
DC
2
-0
RANGE ONE Z' .l4 Ie .79 ••• PII1 ,CPI I,CSC ( I*CSC(
,44879 8950~
DC
10

..........

PAGE

06050

IC

06060

It

06070

IC

06080

Ie

06090

Ie

06100

It

0611l

12

06124

Il

06136

12

06148

12

06160

12

06172

12

06180
06189
06196
06205
06215

Ie

06217
06227

LC

06229
06239

Ie

06241
I
C6l51

Ie

~4e1989505

04060 AK
0407C

DC
2
-0
10
DC
K016521397

,DC
t

0625)

ALPHA (II

20 165 l1391

C6263

:"

,")
IJ ....

It

1620
04080 bK
04090
04100 GK
04110
04120

~CNI

TCR

((

~ERSION

FORTRAN ,11-0

SUBROUTINES

DC
,01
BETAIII
2
-I
DC
10
,53119 41110
N3119411IC
DC
,01
GA~~A III
,2
-I
RANGE TWO z· .80 T02.076 ••• 2PII7 ,COT( ) ,esc(
,89159 79010
DC
10

..........

SET

P~GE

10

PAGE

11

06265
06275

Ie

06277
I.ese (

)

It

06287

Q97~9790IC

04130
04140
04150
04160
OH70
04180
04190

..........

04200
04210
04220
04230
04240
04250
04260
04270
04280

,00
DC
2
-0
, 797H 33889
DC
10
P974 733889
DC
,00
2
-0
DC
10
016359 63806
J635963806
,01
DC
2
-I
RANGE THREE Z=2.077-INFIN ••• 3PII7 ,COT( ) ,cse ( ).ese (
,13463 96852
DC
10
J346396852
,01
~lPHA (31
DC
2
-1
DC
10
,22824 347H
K28H34744
,00
BETA 131
DC
2
-0
,10520 95084
DC
10
J052095084
,01
DC
2
-1
DC
10
,0000000000.,
A ZERC
-000000000
,-99
ALPHA (01
OC
2
RR
DC
,15707963
8
J5707963
,I
DC
2
-I
CONSTANTS FOR SIN cos
10
.-1463026834. ,
HI
DC
J46302683'
DC
10
, 4031377410 .. E'O
M031377UC
10
• 9717805809 .. E'O
DC
R117805809
,-2337364992. ,
HO
DC
10
K33736499K
E.2
DC
10
, 3916072207"
L976072207
,25000eeooo
DC
10
K500000000
.15915 494\3
DC
10
J591549413
DC
10
.75000CCOOO
P50COOOOoo

Ple~2

042CJO •

OHOO ASC
04]10 Bse
04320 esc
04330 esc
04340 ESC
04350 PT25
04360 R2PI
04370 PT75

06289
It

06299
06301
06311

It

06313
)

Ie

06323
06325
06335

10

06337
06347

10

06349
06359

10

06]61
06369
06371
06381

Ie

06391

Ie

06401

Ie

06411

Ie

06421

It

06431

Ie

06441

It

06451

IC

563
1620 MONITOR II
04380
04390
04400
010410
04420
OH30
04440
04450
04460
04470
04480
04490
04500
04510
04520
04530
04540
04550
04560
04570
04580
04590
04600
010610
04620
0"630
04640
010650
04660
04670
04680
04690
04700
04710
04720
04730
04740
04750
04760
04770
04780
04790
04800
04810
04820
04830
04840
04850
04860
010810

04880
04890
04900
04910
04920
04930

REOO

SO
TOM
BlXM
REOOA TOM
lOeACJ OS
TF
87
OS
CO"Pl T 8SSA

~ERS

ION 2

FORTRAN 11-0

SUSROUTIN E S

REOOA'12 ,MATSW
,I
SNC'\3
sn
.REDOA 161
SNl.13
.1

,.-1

00309
III
.2
SlASH.\2
2
. . \2
(6)
8lX~ SlASH'H ,RTN
(11 ..
AOJ IX 1 FORMAT PIITR
SLASH 8XM "12
• -3
16)
,Rwn
BLXM -+12
TOM SNC'13
.3
80
SLASH 2 .R~EFSW
16)
8
0
"ATRIX TOM MATSW
.1
TOM SWL+13
.9
,10
TFM lOCAOJ
.10
,MATRIX-I
SNF -+24
TF
lOeAOJ
.HMS
87
MATRX2'12
MATRX2 A
HURl X-I .loeAOJ
TF
,MATRIX-l
LOC
,10
SM
PAR
,01
BNE ·.24
TOM MUSN
.0
BNl SWC+l2
B82
SWl
SS8e -+12
MURX2
S8
TOM SNl+13
.9
,MATSW
SO
SNC'12
NOP
,loe
REPSW os
,--8
MATSW os
,*-7
REPSW3 OS
,--5
lOe
OS
swe
TOM S~l"13
.2
,RNEFSW
BO
JHB
SSBA -00334
•
•••••• RWA
••• ST OFIIiR CODE, RESET .REPSW.'.MATSW •• REPSW3 •
•
• ••••• SET SWl TO 88 TO OBJ PGM. INIT ERROR TO F9
RWA
TF
OATINH.2 ,"AX-3
,00000
TF" REPSW3
,2
TOM SWl'13
•
•••••• RWA3
••• LO IX A2 WI TH -.MAX.-I AND ST IN .IX2HlD,
RWA3
TFM 00314
,99997
00314
,MAX
S
IX2HlO
,00314
TF
•
•••••• RIoA2
••• RESET .eeMPSW. INIT
110 REe TO ALPHA BLANKS
•
• ••••• RelY IF IoATY,SKIP .RA 00 IT. IF hRTG
RWA2
TR
INH-l
,STlERC-I
, STlERC
TR
INH'86
,TYPE
SO
*+24
RelY 00000
,--5
IX2HlC os

"

SET
06H2
OM64
06476
06488
OM98
06500
06512
06520
06522
06534
06546
06558
06570
06582
06594
06606
06618
066]0
06642
06654
06666
06674
06686
06698
06710
06122
067H
06746
06748
06160
06772
06784
06796
06199
06800
06802
06807
06808
06820
06832

43
15
66
15
26
49

C65CC
06821
C6748
06761
C
00309
Ot558

C6800
COOOI
COM88
tOOOI
000-2

2

06534
06570
06558
0657C
06821
09372
0--00
06Bce
06761
06498
06666
06498
06686
06605
06807
03843
06734
06800
0682e

00001
OKN06
eCO-l
COQ80
COO03
03304
COOOO
COOOI
COO09
OUOJO
06605
03173

COO02
COOOO
COO09
06800
06807

15
43
60

C6160
06674
06761
0682e
OOCOC
0
e
C
0
06761
08224
0033"

06844
06856
06868

26
16
15

07237
06802
06761

03185
-0000
00002

06880
06892
06904

16

2Z

00314
C0314
06958

R9997
03188
00314

0252t
02607
06964
OOOOC
0

02710
02771
03369
OCI02

06916
06928
06940
06952
06958

56 f.

60
66
62
66
15
43
49
IS
15
16
44
26
49

21
26
12

47
15
46
42
60
42
15
H
41

26

31
31

43
34

06498
06605
COO-I
01200
00000
0\300

00002
03304
00001

1620 MONITOR II
04940
04950
04960
04970
04980
04990
050CO
05010
05020
05030
050'0
05050
05060
05070
05080
05090
05100
05110
05120
05130
05140
0515C
05160
05170
05180
05190

VERS ION 2

FORTRAN

11-0

SUBROUTINES

BSBA -+12
BO
BSWf
,RWEFS~
B7
RADOIT
•
• ••••• BSWF
fOR~AT CONTROL,BR TC fOR~AT SPEC IA,SET IX
•
TO PNT AT WIDTH SPEC IN FORMAT STATEMENT
BXM -5
t 1) ,8
(11
~S'F
XTYPE
MA
,309
*·23
BCX
BSWF
,*-.
(21
.99998 121
BLX" 8SWF
REP
BLXM *+12
,REPSW 171
(1) ,01
SM
0
.10
BH
REP2
BE
REPEX
A
0
171,.
I II
8NH REPEX
REP2
TF
00309
,2
III
BXM
BSWF
,-5
III
REP3
SF
REPSW3-1
BLX~ REP+12
,REPSW3171
REPEX
BXM BSWF
III
ERCOM2 RCTY
WATV OUOH
RCTY
TO
EI+2
,RECMK
B7
BSWF
CATINH OSA
INI21

...

SET

PAGE

DC
-0
05210
OGM
05220 CATDue OSA

DC
-0
05240
OGM
05250 FLOAT2 BSBA
05260
8LX
05210
CF
05280
CF
05290
MF
05100
80
05310
8exM
05320
87
05330
80
051.0
SF
05350
FSL
05360 FLT3
MF
05370
TF
05380
SF
05]90
MF
05400
87
05410 F IXI
TFM
05420
MF
05430
TF

069~6
Illl~

C330~

06996
07008
07020
07032

62
70
63
66
66
12
46
46
21
41
26
62
32
66
62

COO-N
07031
06996
06996
07056
0---0
01116
07164
O---C
07164
C0309
06996
06801
07056
06996

COO-8
00309
CC-CO
99R98
COPR9
COO-I
o llCO
CI200
000-4
01100
000-2
CCO-N
COOOO
00Q-2
CCO-'
COI02

3~

39
34
25
.9

ooooe

,MM

-2097
2

07246
07248
01260
07212
07284
07296
01308
01320
07332
07340
01352
07364
07376
07388
01400
07412
0142.
01432
0144.
01456

SET 1 X 5 TO -M

FAC-~

,FAt
.FAt+l

,

'-12
I
ZERFAC
FLT3
,328
FAC
( 51,1
FAC-IO
,FAt
328
,329
FAC
.329
FAC-9
FAC-2
,MU-l
FLTENO
FAC-20
,OCO
MU-I
,FAC-2
FAC-22
,FAC-2

,

I
5 X

07243
07245

(51 "

(5), ,

..

(51 ••

HI ORDER DIG
STEP
IX5 8Y
SMIP IF HI CROER DIGIT NOT ZERO

,7
EXP [S NEG [X5 VALUE

..

RESTORE ORIG SIGN

,6
,9

12

C2699
oeloc
00000
COI02
02709
C2.03
06996
5 X

07238
07243

HC+l151

-+32

~3

~9

07235
07231

,00

MU-l

COOCI

070~~

OUOH

e+12
e+12

D6916

07056
07068
07080
07092
01104
07116
07128
07140
07152
07164
07176
07188
07200
07212
0122.
07235

,00

05230

60

I

"

05200

06964
06976
06988

-2699
2

60
f5
33
33

11
H
64
~9

43

32
05

11
26
32
71
.9
16
71
26

I
C726C
07272
OK~R3

02488
02967
01340
073C8
02884
07376
OK.R2
02.82
00328
C2492
02483
0249C
0296C
C2.72
02961
0247C

COOOI
OLlP3
COOOO
COOOO
C2492
OK4R]
C-O-I
C0328
-0001
C2492
CC329
00329
COOOO
02967
CO-OC
0249C
C2490

565
1620 MON ITOR II
05440
05450
05460
05470
05480
05490
05500
05510
05520
055]0
05540
05550
05560
05570
05580
05590
05600
05610
05620
05610
05640
05650
05660
05670
05680
05690
05100
05710
05720
05730
05740
05750
05760
05770
05780
05790
05800
05810
05820
05830
05840
05850
05860
05870
05880
05890
05900
05910
05920
05930
05940
05950
05960
05970
05980
05990

VERSION

FORTRAN [[-0

SUBROUTINES

SET 6

,00
CM
FAC
.10
BH
·+32
TF
FAC
,FlU
87
FIXENO
C
FAC
.M
8NH
*.56
,512
TFM E[
,9
,FX9
F XN INE TF
FAC
MF
FAC
,MU-l
87
ERROR
.+59
TFM
,FAC-30
,fAt
A
*+47
,0
,11
TOM FAC-30
,FXl
TF
FAC
A
FAC
,*-.
XSGN
HF
,MU-I
FAC
87
FIXENO
,WRITU(61
8UM SWL
_R ITEA 8LXM ERF9-12
,*.12 (61 t.
8R TO CHECM RECORD LENGTH
8NF
WA FX
.FAC-I
TF
FAC
.FAC-2
SHIFT [F FL NO •
8XM
WRT A
.-8
141
WRTACK TF
IN-2
121,FAC
141
8SWF
8
WAH
8X
WRT A
.HK
141
WRTA
8NH WRTA CM
,01
8XH
WRT A
.-2
141
•
liRI TE I TYPE FROM FAC TO 1/0 REC
,MKPI
8LX .+12
SET 15 TO -K +1
C51"
,WRT [ (61
8LX~ SWL
_RTI
8NF WRT 12+12,FAt-1
FIXED ~UH8ER
TFH FIXENO+6 .WRT [2
87
FIX I
_RTI2
TFH FIXENO+6 ,fUN
,.+12
(61,.
8LXH ERF9-12
BR TO CHECK RECORD LENGTH
MF
MU-l
.FAC
TR
OUO-29
,FLZERS-29 f t
CLEARS DUO AREA
(51, ,
80
WRTSGN-12.fAC
HI ORO DIG LOC (IX 5 = -K+lI
,I
DECRE HICRO ZERO
8CXM '-12
(51"
FAC-l 151,
SF
OEFINE HIORD DIGIT
.+12
WRTSGN
(5) ••
.329
OOUBLE IX 5
TNF GAM-2
.FAC
WICK-12
.HU-l
8NF
TFH GAM-4 151,20
,10
,-2
8XM WICK
ALLOW FOR S [GN
t 5 •••
WlEX I T TF
IN-2
121,GAM-2
,OVE OAT A TO 110 RECORO
87
8SWF
GAM-3 151,
SF
DEFINE HI ORO O[GIT FOR PLUS VALUE
WICK
BCX
WI EXIT
(41.,
WiDTH SPEC OK W_2+IX5 MORE THAN 1
.329
GAM-29
TR
.GAM-3 (5) "
SHIFT ERROR VALUE LEFT
ERF8
TFM EI+2
.61800
SET ERF8, ERASE R~
ERCOM
8NF ERCOM2
tTVPE
TF
OAT OUD+2,DAT [Ntf.2 ••
INSERT 1/0 DEVICE CODE
10RT
CUTPUT ERR INFO
• *.2'3
TF"
.O.aT [JUC-4,1
B
IOPT
81
ER COM 2

..

ax

..
..

..

PAGE
01468
07480
07492
07504
07512
07524
07536
07548
07560
07572
07580
07592
01604
07616
07628
07640
07652
07660
07672
07684
07696
07708
07120
07732
07144
07756
07168

I'
46
26
49
2'
47

07180
07192
07804
07816
07828
07836
07848
07860
07872
07884
07896
07908
07920
07932
079H
07956
07968
07980
07992
08000
08012
08024
08036

65
66

080~8

0808~

4.
26
16
49

08096

~9

08060
08Q72

566

16
26

71
49
16
21
15
26
21

71
49
66
66

H
26
62
26
49
61
47
62

44
16
49
16
66

71
31
03
6'
32
61

73
44
16
62
26
49
32
63
31

16

02.92
07512
02492
C296C
02.92
0758C
027C7
02492
02492
029]6
01639
07639
02462
02492
02492
02492
02960
06748
08284
07744
02492
07756
02095
06996
07756
0772C
07756

000-0
01100
0099

07792
06748
07848
0296f
07432
02966
08284
02967
02710
07908
07884
OM4RI
07932
02737

OLl08
CPQO.
C2.91
-7836

oecoe

OOL5
08012
02095
06996
OK1L6
07980
0271C
02709
07176
07245
00565
00532
07116

02221
01100
OON72
03089
02961
-2462
02492
000003099
COOOO
C2967
OP072
CP084
02491
02.90
O-OOQ
OK492
00000
OLl73
01101
C-OOK

-2506
CPQ60
02'92
02830
OK.R2
0-0-1
00000
0-3K9
02492
02967
OOOM
C-O-K
02731
00000
0-329
CK1L6
07800
03369
07237
-8095
-7239

13

1620 MCNITOR II
06000

*

06C 10 •
06020 ..

060.10
06040
06050
06060
06070
06080
06090
06100
06110
06120
06130
06140
06150
0616C
06170
06180
06190
06200
06210
06220
06230
06240
06250
06260
06270
06280
06290
06300
06310
06320
06330
06340
06350
06360
06370
06380
06390
06400
06410
06420
06HO
06HO
06450
06460
06470
06480
06490
06500
06510
06520
06530
06540
06550

•

"HTYPE BLX

BX
10 ICTH

wH

BLX.
SM
OS
TO
TO
TRNM
TO,,",

BX

..
•
JHB

•
ERF9

~ERSICN

2

FORTRAN 11-0

SUBROUTINES

SET 6

'RITE H TYPE FROM FORMAT TO 110 RECCRC
• ••••• W H TYPE •• IX Be A IS SEL,IX 1 POINIS AT WICTH SPEC,IX 2
• ••••• IS A~AIL CHAR" lie REC. CALC ST AOR OF H OMA AND MOVE
H DATA 10 TC lie REC
BLX. JHB+36
,WHTYPEI61

-+12
*+12
ERF9-12

314

,309(3)

IX3 = IXI

,~I()TH

eLJ

,'+12

161"

,a-.

,.
WH+23
,!
(11..
1
(II,RECMK
IN-l
(21,!
131..
1
(U,XX
8SWF
,WIDTH 121

8R TO CHECK RECORD LENGTH
STORE LAST DIGIT
MOVE CIGITS

COMMON ROUTINE. WRT H,A,I,E AND F TYPES
CF
LOC
TF L FAC
,LOC
,11, MOVE FIELD FROM PGM TO F AC
8SBA '+12
TF
WIOTH
,309
,11,
STORE WIOTH
8IX
161,WIOTH 141..
SET WICTH IN IX4
CK H,A AND I TYPES FOR ER F9. W FOR E AND F IS CNLY NUMERIC
161,324
121..
AOV liD REC PNTR.CK A AND I HPES
8CX
TFM EI
,679
,9,
SET ER F9 INO
8LX. ER COM2
,99999 121..
SET [X 2 TO PREVENT FURTHER OUTPUr

..
•
•

WRITE E AND F TYPE FRO~ FAC TO GA~ I IN ALPHA I
~AKE CKS FOR OVERSIZE REC AND OVERSIZE FIELD IERF9 ANt ERFel
SF
RWEFSW
8UM SWL
,WEFCOMI61
CF
R~EFS'
BLX~ SWL
,WEFCO~161
"EFCOM 8XM e+12
,2
(U"
AOV FCR~Ar PHTR FOR E AND F TYPES
eXM ERF9-12,12
(61"
CK FOR ER F9. RTN IF NONE

TF"

FLTENO

,.+21t

BNF
TFM

..

MO~EXP

WCK
MO~MAN

..

FLOATZ+12,FAC-l
HTEND
,RTN
~OVE
DATA TO DUO FOR OUTPUT I~ EH.B FORMAT
80
-+24
,FAC-q
"
CHECK FeR LOUSY ZEROS
TF~
FAC
,-99
,10
MF
MU-I
,FAC-2
TR
OUO-29
,W MASK-I
TFM
WCK
,00000
A
WCK
,FAC
8UM e+12
,Ii!OVMANfO)
8NL
-+24
,
ZERO EXP [S GIVEN PCSITIVE SIGN
roM OUO-7
,2
TO
OUO-4
,WtK-I
,.-.
TOM OUO-2
OS
LOCO-B+EXPONENT
87
-304
TNF DUO-IO
,FAC-2
8NF -+24
,'-U-1
TOM OUD-29
,2
LIMIT POSITIONS RT Of DEC TO 8

"

PAGE

08104
08116
OB128
08140
OB 152
08163
08164
OB176
DB IBB
08200
08212

66
65
61
66
12

OQJ16
00L-9
08103
COJ52
-0000

25
25
30
15
61

0826C
08128
0814C
08284
00314
o
OB211
000-1
02096
000-1
06996

08224
08236
08248
08260
OB272

33
C6
60
26
65

06807
C24n
Oa26C
08163
0--00

00000
0680P
COOOI
0030R
00163

08284
08296
OB308

63
16
66

O--OC
02707
07176

00L24
00019
99899

08320
OB332
OB344
08356
08368
08380
08392
08404
08416

32
66
33
66
62
62
16
44
16

03304
06748
C33C4
06748
0838C
08284
02966
0726C
02966

00000
CQL68
COOOO
CQL68
000-2
C--12
-8416
02491
-2506

08428
OB440
08452
08464
OB476
08488
08500
08512
08524
08536
08548
08559
08560
08568
085BO
08592

43
16
71
31
16
21
66
46
15
25
15

C8452
C2492
02967
0271C

02483
COORR
02490
09476
-COOO
C2492
08568
o13CO
00002
C8558
oouOO

08604
OB616
08628
08640
08652
08664
08676
08688
OB700
OB712
08724
08736
08741
08148
OB760

26

0855~
OB55~

OB512
08536
02732
02135
02737
C

14

COO-l
02403
00--1
99999
08J63

003C~
0212~

08604
02710

02490
02961
00002

567
1620 MONITOR II
06560
06570
06580
06590
06600
06610
06620
06630
06640
06650
06660
06670
06680
06690
06100
06110
06720
06730
06HO
06750
06760
06770
06780
06190
06800
06810
06820
06830
06840
06850
06860
06870
06880
06890
06900
06910
06920
06930
06940
06950
06960
06910
06980
06990
01000
07010
01020
07030
07040
07050
07060
01010
01080
07090
01100
01110

,0111
,8

..

,B

,10

SM

W CK

,8

,10.

S
TFM
8LX

W CK
FAC-I0
'+12

,LOC

ex

LOCO

VERS ION

LOCO
LOCO
-+21t
LOCO
lOCO

TF
CM
BNH
TFM
SF

BlX
AM
OS

e+12
... 12
lOC 0

,aD

,LOCO

,319
,314

,e-.

FORTRAN 1[-0

SUBROUT INES

SET

MOV DEC PT SPEC TO IX 3

,10

EXP-8
..
LOCO-8 + EX PONENT
,1011,EXPANC SIZE OF FAC
131..
IX3 ~ILL BE -LOCO
141..
REDUCE W 8Y OPT SPEC IW-LOCOI
161"
NEXT AVAIL CHAR AOR [N 110 REG
CONVERT TO 2 LOCO
LOCATleN OF DEC PT .fLAGS SEL I n

,e
GAM-29
,FAC-9
WRT F
,RWEFS~
"
F TYPE
MACRO TO SET UP E TYPE, WR nE AND ERROR CHECK
.. .CK WIDTH SPECS
BeXM .+20
,-5
141
87
ER COM-12
••••• SET UP [X REGS FOR PROCESSG MANT FROM FAC TO 110 REG IINI
BLX '+12
,WIDTH 151..
PUT WICT~ IN IX 5
8CXM 0+24
,-14
151..
IX 5 • W[OTH -14
8LX 0+36
,WIDTH 141
,14
141
8LXM .+12
SF
BNF

•
•
WRTE

SLXM e+12

,0(5)

PAGE

H
41
16
32
12
22
16
65
61
65
11

32
44

08772
OB784

08741
08141
08652
OB741
08141
08559
08559
02482
08712
08124
08736
08741

08747
000-C8PM7
C-319
0-U4
-COOO

0271C
C896C

02483
C3304

08792
08036

O-OON

o

000-0
COO-8
01100
OOO-B
CCOOO
COO-8

08192
08B04
08816
OB828
08B40

65
64
65
66
66

08B04
08828
08852
08B40
08852

COIC3
C-OJM
OQ163
0-014
C-O-O

08852
08864
OB816

61
32
61

OB864
00324
08B88

0-324
COOOO
C-314

0888B
08900
08912
08924
08936

22
43
66
43
30

OB559
08924
OB512
08036
020B8

C0329
08557
OB936
024B3
02130

08948

62

C9128

O--OQ

OB960
08972
08984
08996
09008
09020
09032

22
12

00324
00324
08036
02492
0902C
08559
09316

02492
COO-l
01100
000-1
OQ5N9
COO-O
C1100

09232
0912e

08559
C2492

02482
09110
0911C

02741
-2481
02492

•
•

IX 4 CONTROLS P3SITION OF SIGN
IX 5 CONTOLS RT POSIT [ON OF FAC
8X
0+12
,324
141..
COUBlE WIDTH
SF
324
ex
e+12
,314
(4)"
IX 4 • IX 2- [ WIDTH
•
••• PROCESS EXP FROM FAC TO lID REG IINI
S
WCK
,329
ADD 14-WIOTH TO CHAR
BD
W ZER CK ,W CK-2
EXP lESS THAN -99
8UM MOVEXP
,WZERCK+12 ..
GO TO SET EXP IN GAM AND RETURN
WZERCK 80
ER COM-12,FAC-9
NON ZERO
TRNM IN-9
12J,GAM-9
•
IX 6 MOOFS IN REFS
8XM FILL R
,-8
161..
EXP SPACE COMPENSATION [N IX6 IINI
•
•••• MACRO TO SET UP F TYPE,WRITE AND ERROR CHECK
WRTF
S
324
,FAC
SM
324
,I
.10,
MUST BE RCOM FOR 1 CHAR AT LEAST
BNH ER COM-12,
..
WIDTH SPECS [NSUFFICIENT
AM
FAC
,I
,10
BLX e+12
,weI<.
(5)"
IX 5 MOOFS FAC REFS.U)CO-8+EXP'.CHAR
CM
W CK
,-8
.10
8NH
W F ZERO ,
ZERO CUT PUT
•
SPLIT INTO 3 CASES FOR WRT F TYPE
•
• ••• IX5 PLUS .REQ ZERO FILL FROM R[G~T IIXPI
•
• ••• IX5 NEG,NON ZERC.EXP NEG.REQS ZERO Fill FROM LEFTIIXNENI
•
[X5 NEG,NON ZERC.EXP NOT NEG. NC lERO Fill REQCIF[lL RI
8NF
IXP
,~CK
8NF F[LL R
,FAC
•
EXPAND FAC WITH ZEROS ON LEfT
FAC-l0
,ZERO-IC
IXNEN
TF
_+30
,F.aC-ll
TH
-+18
,-FAC
A

47
11
65
14

41

09044
09056
09068
09080
09092

568

26
16
21

15

162e
r 7120
07130
C714C
CH,O
07160
07170
07180
07190
01200
07210
07220
01230
07240
07250
07260
01270
0728C
01290
07300
07110
07320
07330
01140
07350
07360
01310
0138C
01390
014CO
07410
07420
07430
07440
07450
01460

~CNITCR

~F

II

VERSICN

FCRTRA~

II-D

SUBRCUTINES

~

SEI

tFA(-~

IF' FAC
,01
dO
•••• FILL RIGHT SIDE OF I/O REC F I ELC WITH MANTISSA
TNF IN-2 161,FAC-2 151
TOM
IN-3 161,7
8X
e+12
.319
1X5- loce
.5) "
8X
FILL L
.LCCD (61 tt
IX6-2 LCCO
•
.. .. FlU LEFT SIDE AS REQO.
FILU TNF IN-2 161,FAe-1 151
WEeEC TFM IN-2 16)'3
,10. INSERT eEC PT IN lIe REe
BNF WF SIGN ,RWEFSk
IN
141,GAM-28
"SIGN TF
INSERT SIGN
87
8SWF
IXP
SF
329
CONVERT IX5 TO NEG
FSL FAC-l015I,FAC-2
BLX~ FILL R
,99999 C5 •••
AOJ FOR SHIFT OF FAC
WFS IGN 8U *+12
,334
141
S
324
,fAe
AOJ IX 4 FOR SIGN POSITION
S
324
,FAe
8XM W SIGN
,-2
FINE SIGN PDSIT AOJ
WFZERO CF
319
TNF IN-2 121,ZERO-16111
8X
,lOCO 161
*+12
TFM IN-2 161,3
,10
81
BSWF
SLASH2 BO
WRITE
,TYPE
BXM -+12
,-2
121
CM
IN
121,00
.10
BE
SLASH2.12
TF
IN.4 121,FllERS
WRITE BLX -+12
,IX2HLCI21
TFM 10RT
.*+23
B
tOPT
,OATlNH-4 ,1
81
161
WM~SK
OAt 2, •

p~G(

09104
09116

71
16

OOCOC
02492

02483
000-1

09128
09140
09152
09164

73
15
61

OK095
Ck094
C9164
C9176

OK4RO
00007
C-3J9

II

FILLR

09176
09188
09200
09212
09224
09232
09244
09256
09268
09280
09292
09304
09316
09328
09340
09352
09364
09312
09384
09396
09408
09420
09432
09444
09456
09468
09417

,

,It •• ,

.-.

01470
01480 EMASK

OAt 8,00000000 ..
00000000
OAt 5,E+OO'

MASK FOR EF WRT.

~LPH~

ZERO SOURCE

73
16
H

26
49
32
05
66
65
22
22
62
33

73
61

16
49
43
62
14
46
26
65
16
49

49

09497

,617
EI
ERtOM2
RHTVPEHs,IN-l
*+35
,0111
-+21
*+41
.-1
,REtMK
1111
,IN-1121
--25
,0
-+35
,-00309
00309
,-00]09
BSWF
,0121
,619
EI
ERtOM2
,9999B121
SWl
,READAI61
RDSQP
,FAt

,--.

C~P47

OK095 OK4Rl
Ok095 000-3
09268 C3304
Ck691 02711
06996
00329 COOOO
Ck4Q2 02490
09128 9R9R9
09280 0-334
00324 C2492
00324 C2492
09212 C-OOK
00319 00000
02095 C2PMI
C9352 CQP41
OK095 COO-3
06996
09432 03369
09396 OO-OK
C2097 000-0
C9384 01200
C2PCI 02859
C9444 C6R58
C0565 -9461
00532 -7231
O--OC
2 X

09481

E+OO'

01490 ROERF7 TFM
07500
B1
01510
TFM
01520 RHTVPE A
01530
SF
01540
TO
01550
TO
01560
TRNM
01510
TOM
01580
TF
01590
A
01600
BtX~
01610
TFM
01620 RERtOM BLXM
01630
BLXM
01640 RE~DA TFM

61

16

,9

09506
09518
09526
09538
09550
09562
09514
09586
09598
09610
09622
09634
09646
09658
09610
09682

,6
,6

,9

5 X
16
49
16
21
32
25
25
30
15
26
21
H

16
66
66
16

02101
07176
C9513
09513
09511
096C~

0951L
000-1
0951L
09645
C03C~

06996
02101
01116
06148
C9904

00017
-2696
000-0
CCOOO

oeooo
C2403
02U96

coocc
C030R
C030R
00-00
OC019
99R98
CRC82
-2492

569
1620 MONITOR II
01650
01660
01670
01680
07690
01100
01110
01720
01130
01140
01150
01160
01110
01180
01190
01800
01810
01820
01830
01840
01850
01860
01870
01880
01890
019CO
01910
01920
01930
01940
01950
01960
01910
01980
01990
08000
08010
08020
08030
08040
08050
08060
08010
08080
08090
081CO
08110
08120
08130
08140
08150
08160
08110
08180
08190
08200

REAOAI
REAOA2

RDSQP
RDGIVE

RETVPE
tHAR
RFTVPE

)

RITYPE

RDtOM

tNTS
REAOte
RDCOMI

A
BNF
TF
S
BUM
SM
TFL
BLX"
TF
BeXII
BlXII
CF
8tX
SF
t
BNH
BlXM
TF
DS
BLXII
BSB8
MF
TFL
MF
8S8A
BUM
TFM
TFM
OS
B1
BLX"
TFM
TF
TF
BXM
BLXM
TFM
TFM
MM
BLX
BlK"
TF!
CF
TFM
os
TFM
8NR
B1
tM
8E

eM

Roes

BNL
tM
OS
BE
CM

VERS ION 2

ROSQP
-+1t8
FAe
ROSQP

,0111
,LOt
,ZER010

_+48

,FAe151
,10
,10
,ROZERC
,FAt-2151
,0111
,2121
,RERCOIl-12101
,-2
,10
,REAOA2.11141

ROSQP
FAt
-+12
00324
REAOA2
ROGIVE
IN-1I21
REAOAI
IN-1I21
ROSQP
-+24
ROGIVE

,K

,00329
,ROERF1101
,IN-2121

,.-5

ROGIVE
-+12
RDGIVE
LOC
LOt
-00304
SWL
RDSOIG
tHAR

,BSWFIOI
,Loe
,FAe
,RDGIVE

,6

,RETVPEI61
,05000
,00
.LO

,--2

RFTYPEH2
,RFTYPEI61
SWL
,55000
RDSDIG
,0111
00324
ROCS
,2111
ROtOM
,2111
SWL
.RITVPEI61
ROSOtG
,55500
,00
,10
RotS
,05
,10
0111
,98141
*+12
•• 12
,FAt-1l151
,RDZERC
FAt
ROtOM
,DOlO
tNTS
.LO

,--2

ROAOJ-6
ROtOMI
RotCM3
INI2)
ReBLNK
INI21
ROOIG
INI21
ROPLUS
INI21

,RElDte
,INI21

,00

,10

,10

.LO

,aCID

,10

,--2
.20

.LO

FORTRAN 11-0

SUBROUTINES

PAGE

SET 6
09694
09106
09118
09130
09742
09154
09166
09118
09190
09802
09814
09826
09838
09850
09862
09814
09886
09898
09904
09910
09922
09934
09946
09958
09910
09982
09994
10006
10015
10018
10026
10038
10050
10062
10014
10086
10098
.10110
10122
10134
10146
10158
10110
10182
10191
10194
10206
10218
10226
10238
10250
10262
10214
10283
10286
10298

570

21
44
26
22
66
12
C6
66
26
64
66
33
63
32
H

41
66
26
66
60
11
C6
11
60
66
16
16
49
66
16
26
26
62
66
16
16
13

65
66
06
33

16

C9904
C9154
C2492
C99C4
0979C
C99C4
02492
0919t
00324
09826
09922
02096
C9802
02096
09904
C9898
09922
OOOOC
0
09922
09934
C9922
0680P
06801
0030M
06148
10469
10015
C
1005C
C6148
10469
00324
10283
10146
06148
10469
10283
000-0
10146
10158
02492
10146
10191

CCO-O
C68C7
C2161
02221
CK4R2
OOOJO
C2769
OK4RO
000-0
00-02
C9646
COO-k
OR831
00000
00329
CllOO
C9506
02095
06996
00002
06807
02492
C9922
00001
ORR94
-5COC
000-0
1--38
N5000
000-0
000-2
000-2
1--98
N5500
000-0
COO-5
C-098
OK4QI
02169

coooo
OOOJO

G

16
45
49
14
46
14
46

14
46
14

10844
10226

J0206
02091

lC39~

C2091
10726
02091
10114
02091
0
1041C
02091

000-0
01200
COOPO
01300
COOJO
CI200
COOkO

11

1620 MONITOR II
08210
08220
08230

08240
08250
08260
08270
08280
08290
08]00
08310
08320
08330
08340
08350
08360
08310
0838C
08390
084CO
08410
08420
08430
08440
08450
OH60
08470
08480
08490
08500
08510
08520
08530
08540
08550
08560
08570
08580
08590
08600
08610
08620
08630
08640
08650
08660
08610
08680
08690
08700
08710
08120
08130
08140
08150
08160

ROCO~2

RCCOM]
ROOEC

BE
80
CM
8E
80
CM
8E
TF L
TOM
81
TOM
TFM
81
SF
OS
OS
OS
OS

ROMNUS
ROSOIO
ROSSON
ROSDEC
ROSERR
ROSEn as
ROP1US 80
MF
TOM
87
ROPli
BO
ROE
TFM
87
RErYI CM
BNE
SF
CM
8E
TO
87
RETY2
TO
SF
MF
A
81
ROECK 8NF
SM
81
RODIG 80
R081NK 8NF
AM
81
TO
BXM
TOM
8NF
B7
AM
81
80
ROAOJ BtXM
TEL
TOM

VERSION 2

FORTRAN ((-0

SU8ROUTINES

s~r

RD~NUS

ROCC~ 2
IN! 2)
RODEC
ROCOM3
IN! 2)
ROE
FAC
ROSERR
ROAOJ
ROSOEC
ROCS
ROAOJ
ROCOM

,RDSOEC
,03

,10
,10

,RDlERO
,0

,11

,-5
,DO

,10

,.

,.-1
,*-,2
,*-3

,.-.It

ROPl!
ROMNUS
ROSSGN
ROAOJ
ROCOM3
ROAOJ-6
ROAOJ
IN(2)

,ROSSGN
,RCCO~

,-5
,ROSerY
,RElYL
,20

,10

_+24

ROCOM
,01
00324
RErY2
,IN(2)
tHAR-l
ROAOJ
.IN (2)
CHAR
CHAR-I
tHAR
,RCCOM
,CHAR
FAt
ROAOJ
ROAOJ
,ROSOEC
FAt
,01
ROAOJ
R081NK'12,INI2)
ROECK
,ROSOIG
,-01
CNTS
-+48
0(5)
,IN(2)
,U5)
-+12
,-5
ROSOIG
-.20
,ROSOEt
ROAOJ
,01
FAt
ROAOJ
,ROSERR
REAOtO
,2 (2)
ROAOJl
FAt
,ROlERO
ROSERR
,0

PAGE
10310
10322
10334
10346
10358
10310
10382
10394
10406
10418
10426
10038
10450
10458
10469
10468
10461
10466
10465
10410
10482
10494
10506
10514
10526
10538
10546
10558
10510
10582
10594
10606
10618
10626
10638
10650
10662
10614
10682
10694
10706
10714
10726
1013A
10750
10762
107H
10786
10798
10810
10818
10830
108]8
10850
10862
10814

,ROSE TV

,45

6

,10

,10

,10

,10

46
43
14
46
43
14
46
06
15
49
15
16
49
32

10458
103S8
02097
1C426

H

10394
02097
lC526
02492
10466
10850
10467
10283
10850
10146
C
0
C
C
C
10514
10458
10468
1085C
10394
10844
1085C
02097
10582
10146
00324
10626
10014
1085C
10015
10014
10015
02492
1085C
10850
02492
1085C
10738
10682
10191
10798

25
62
15
44
49
II
49
4]
64
06
15

o-o-c
10786
10469
10818
IC85C
02492
1085C
10206
10894
02492
10466

49
63
22
16
]2
26
44
71

10918
10838
02492
02966
02481
02412
10986
02967
01468
11018
02492
11042
02490
C2490
02966
11102
11090
09922
09922
09922

43
11

15
49
43
16
49
14
47
32
14
~6

25
49
25
]2
71
21

49
44
12
49
43
44
II

18

CI200
10461
000-3
01200
10465
COOM5
C1200
02769
COOOOOOON
000-0
OOOCO

10468
10146
COOON
10465
J0546
OOOKO
01200
CCOCC
000-1
01200
02097
C2091
00000
10146
leOl5
10467
COO-l
02007
10469
OOO-J
01300
02091
0-0-1
CCOON
10467
000-1
10466
00-02
02769

cooce

571
lO20 MONITOR II

VERSION

FORTRAN 1[-0

SU8ROUTINES

ROAOJ 1+24
81
ROAOJI 8tx ROAOJ-12 ,R081NK'23(4)
,ROtS
FAt
S
TFM FIXENO'6 ,ROF[X]-12
SF
fAC-ll
,FAC-2
TF
FAC-20
BNF ROELT
.loe
MF
,ROMNUS
MU-I
F[XI.]6
81
_+32
,FAC-II
ROFll 80
,FllER
TFI fAt
B7
-+32
,FAt-4
TF
FAC-2
MF
FAt-2
,ROMNUS
TFM F [XENO_6 ,RTN
_+48
,RO SERR
ROF[X3 BO
,ROSERR
8NF -+24
,ROERF1(0)
BUM ROGIVE
,RERCOMIO)
BlXM ROGIVE
,BSWFIO)
B1XM ROGIVE
•
•••••• RA DO IT •• RO TO 110 REC FROM SElECTED [NPUr
,-+23
RADon TFM IORT
[OGT
,OATINH-4 ,7
8
, TYPE
80
-+24
8C4 RWA2+36
8SWF
Bl
OORG 15000
,701
AS4
34
A4
A4
,102
38
49
-.26
,01580008003200
A4
OSC 14
01580008003200
09080
TRA

08710
08180
08190
08800
08BIO
08820
OB8l0
08840
08850
08860
08810
08880
08890
OB900
08910
08920
08930
08940
08950
08960
08910
08980
08990
09000
09010
09020
09030
09040
09050
09060
09010

AS4

PAGE

SEr
10886
10894
10906
10918
10930
10942
10954
10966
10918
10986
10998
11010
11018
11030
110~2

11054
11066
11018
11090
11102

~9

43
06
49
26
71
16
43
44
66
66
66

1-749
le283
JI042
00000
02490
C6B01
10458
02481
0]131
02488
10~58

-2506
10466
10466
C9506
09658
06996

00565
00566
11162
06952
06996

JII31
-7231
03369
00400

34
38
49

15016
15036
1505C
14

00101
00702
COOOO

15050
15062
15000

36
49

00000

00500

48

00000

00000

11114
11126
11138
11150
11162
15000
15000
15012
15024
15036

09090

TCO

09100 QSTlS

H

15074

09110

OENO QSTlS

150H

572

16
49

43
46
49

ooooe

coooo

19

162C
eO~ACD

r
OA ru~o
OA f1NH
OIOUCA
OKOATA
CO~Pl

E~OFOR

C2231
C6522
07243
C1235
02868
02860
C2521
02323
02313

ENrABS
ENTATN
ENTecs
ENTOEO
ENTORR
EN IEXP
ENTFET
EN IFIO
ENTREC
EN I se2
ENTSC3
ENTSOK
ENTSIN
ENTSQT

02318

ENTS~O

02288

ERCOM2
EXPENT
FINOIN
F IXENO
FLOAT2
FLTENO
FLZERS
FXMENO
FXMUl T
FXNINE
FXlERO
INFFAC
1X2HLO
lOCAOJ
MATRIX
MAlRX2
MESERR

07176
03183
02404

ROSSG~

ROlERC
READAI
READA2
READec
REPSW3
RERCO'
RETYPE
RFTYPE
RHTYPE
RIlYPE
RWEFSW

02298
02293
02253
02283
02213
02218
02258
02263
02268
02308

100M~

99MK

H
lEX
AK
ALSQI
AS4
ASC
AT
ATYPE
UJ
BETA
8EX
8K
8SC
BSWF
BT
e3
C5
C7
COl
eEX
CHAR
eNTS
CONST
CSC
CT
DEES
OEX
DSC
OUDH
OUO
DUMMY
EI

02960
01248

02966
02859
04178
05130

07548
05074
02924

06958
06498
06606
06674
02699

~ONeAL

00796
08512
08568
05038
02494
02924

II

ROPLUS
ROSOEe
ROSDIG
ROSERR
ROSETY

0230~

MOVEXP
MeVMAN
oeOREY
ONEFAC
OVFLOW
PRDGST
RADOIl
RDAOJI
RDBLNK
ROCOMI
ROCOM2
RDCOM3
RDERF7
ROFIX3
RDGIVE
ROMNUS

~ONlTOR

02226
11114
10894
10126
10226
10358
10394
09506
11054
09922
10458

EMAS~

ENTlN
ERCO~

ERF8
ERF9

VERS ION
10470
10467
10469

10466
10465
10468
02769
09802
09826
10206
06802
09658
09994
10038
09538
10098
03304
03034
02"45
15036

05966
06253
05614
15000
06381
06217
04406
05330
02630
05976
06265
06391

06996
06229
06205
06196
06189
03349
05988
10015
10191
06124
06401
06241
06010
06000
06411
02699

02739
99999
02707
09497
02248
08048
08036
08296

FORT UN '11-0
ERRET
ERROR
ERKY
Ese
ETYPE
FAe
FAKBI
FAXB
FAKII
FAXI
FOVRI
FCVR
FILLl
FILLA
FIXI
FUll
FIXI
FIX
nODD
flOAT
FLONe
flU
FlleR
F
FSBRI
FSBR
FTYpe
Fll
FX9
FI01
FXDR
FID
FURl
FXH
FXM1
FXM
FXSRl
FISR
FXZ,
GAM
GK
HTYPE
INF
INH
IN
lOCAL
IDGT
10PT
10RBC
10RT
IOSK
ITYPE
UNEN
IXP
JHB
K

SUtiROUTlNES

SET 6

PAGE

00602
02936
02968
Of421
04454

LNIO
LNENT
LOCO
LOC
LOGE

06172
03118
C8Hl
06801
03H3

02492

~2~MI

02942

05522
OHI8
05206

M2~Pl

02989
06800
03188
03168
03173
03113
02968
02233
02238
05426
06112
03121
03843
06311
0"90
03269
06431
06451
05630
05666
05622

MATSW
~AX

04094
04548

M~P1
M~

04046
09176
09128
01432
04886
04070
03854
02987

MKS
MU
HI
N2
NOOIV
ONE
CNEZ
PAR
PIOV2
PSI
PTi
PT25
PT75
QSTSI
QSTS2
QSTS
QSTZS
QU
QZ2
QZF
R2PI
RAC01
RACO
RAPT I
RAPT
RUYl
RATY
RDADJ
ROAlP
RDCOM
RDCS
RODEC
RDDIG
RDECK
ROE
RDFlT
ROPll
ROSQP
READA
REClG
RECMK
REOOA

03998
03153
01376

03131
02219
04502
04022
04430
03109
03089
04790
03950
03926
05186
03072

04718
03902
04666
03818
03099
02739
06217
04478
03163
02521
02697
00716
00566
00532
00520
00565

005510
04310
09068
Q9232
08224
02221

Ree~

REP2
REP3

15074
05177
05789
05813
06441
03370
04286
on50
04262
03314
04238
10850
01394
10146
10283
10426
10114
10682
10526

10986
10514
09904
09682
02243
02403
06488
06H2
07116
07140

20
REPEX
REP
REPSW
RESET
RElYl
RElY2
RSGNI
RSGN
RSQR2
RTN
RWA2
R.Al
R.A
SAVE
SET!
SET
SLASH
START
STOP
SWCFX
swe~1
swe~2

SWC
SWL
TRACE
TRFX
T
TYl
TYPE
UNFLO
WACOI
WACO
WAFX
WAPTI
WAPT
WATYl
WATY
WCK
WEOEe
WH
WICK
WIDTH
WMASK
WRITE
WRTA
WRTE
WRTF
WRTI2
WRTI
W
WSIGN
XSGN
XTYPE

xx

ZERO
SlAS~2

01164
01044
06199

05862
10546
10626
C4514
03974
06180
02506
06916
06880
06844
02592
05118
04142
06546
03851
02395
02410
03204
03209
06808
0614ti
03004
03066
05956
03245
03369
02~04

03270
04214
07744
03246
04190
03210
04166
08559
09188
08188
08012
08163
09417
09432
07756
08792
08960
07836
C7804
02240
09212
07640
07008
99999
e2157
09372

573
1620 MONITOR II
STZERO
WEFeOM
WFSIGN

02771
08368

09268

WFlERO
WHTYpe
WIEXIT

VERS IDN 2
09316
08116
07980

FORTRAN 11-0
WRITEA
WRUCK
WRTALP

SUBROUTINES

07672
07120
03294

SET 6
WRTSGN
WZERCK
ZERFAC

END OF ONE ASSEMBLY.

57',

PAGE
01920
06924
028e4

ZEROIO

21
02167

1620

~ON

I TOR I I VERS ION 2

00010
1620 MCNITOR I I
00020
DORG 2426
16,0
00030 NAMBU F DC
-000 000000000000
00040
DC
2, '
00050
00060
00070
OOOBO
00C90
00100
00110
00120
0013C
00140
00150
00160

CIJRlAP
FLGRMK
ADoeo
EDADOR
seA COR
10lND
MLIND
EXTINO
SECT
lRO TS T
AOOSVE

00170 LDODA
00180

OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DC

VERSION 2

FCRTR~N

FCRTR~N

I 1-0

LO~CER

BLOCK

PAGE

II-D LOADER BLOCK 1
02426
02441

16

02443

1
1
5
5
5
1
1
1
3
I
5
1,'

02444
02445
02450
02455
02460
02461
02462
02463
02466
02467
02472
02473

DOA
.1,Q,Ot'"SUBT8L
1-0000-00-2522
DC
1, '

02414

14

02488

00190 SVEDCA OOA
,1,0,21,0
1-0000-21-0000
DC
1, '

02490

00200

02504

00210 INeDDA DDA
,1,0,lO,$UBTBl
1-0000-10-2522
00220
DC
1, '

02506

00230
OS
00240 SUBTBL OSS
00250
DC

02521
02522
03533

1
10ce
12

CO~MUNICATION

07280
07280
07300
07400
01400

2e
ICC
10C
C

GET 8LoCK 2

1,' ,-

00565
00566
00532
00796
07500
07512
07524
07536
07547

C
C
C
C
00565
00566
07542
CCCCC
1

TOI5+6,20.10

07548

11

07542

07560
07572
07584
07596
07608
07620
07632
07644
07656
07664
07664
07676
07688
01700
01712
07724
017]2
07732
07744
07156
07168
07780
07192
07804
07816
07828
01840
07852
01864
07876
07888
01900
07912
01924
07936
07948
01960
07972
07984
07996
08008
08020
OB032
08044
08056
08068
08019

14
47
25
14
47
17
25
43
49

07542
07536
07675
07675
07644
10204
07675
C7664
07632

JI717
C13CO
C7382
COO-4
OllOC
0-07B
C7383
C7675
CCOCC
000-0
00000
13032
-7499
00001
00000

00260
00270
00280
00290
003CO
00310
00320

OORG
OSS
Qo:iS
OSS
OS

1
1000

12,'

7280
20

100" SYSTEM
100. ,

14

02520

-ooboooooco'

CDAR
eOMSEe
INRK
SBPTBL
•
•

14

SECTCR
READ IN AREA FOR INOIOTOR RECORO

,INRK

oo:no •
00340
00]50
00360
00370
00380
00)90
00400
00410
00420
004]0
00440

*

•
10RT
IOGT
IOPT
MONCAl

OS
OS
OS
OS
TFM
8
MLINIT TFM
ToI S
TOM
DC

00~50

AM

,565
,5t.6
,532
,196
IORT,a+23"
10GT ,FOR,7

TOI 5+6, MT8l+11,.

INI HALIZE MAINLINE TA8LE

16
4.
16
15

-7523
JC216
J0607
COOOO
COOKO

575
1620 MONITOR I I VERSION 2 FORTRAN 11-0 LOADER BLOCK I
00460 ~S IlE CM
OO~ 70
BL
00480
TO
00490
CM
00500
8NH
00510
BTM
00520
TD
00530
80
00540
B
00550
OORG
00560 SU8SET AM
00510
TOM
00580
80
00590 ONE
TFM
00600
TDM
00610
8
00620
DORG
00630 TWO
TFM
OOMO LOoPRC TF
00650
AM
00660
TF
00670 START
TF
00680 GEToIM TFM
00690
B
00700
TFM
00710
A
00720
A
00730
TF
SM
00740
00750
TF
00760
SM
00770
TF
00780
TF
00790
TF
00800
TF
00810
TF
00820
TFM
00830
TF
00840
TF
00850
TO
00860
TFM
00870
TO
00880
tM
00890
8E
00900 S81NIT TFM
00910 SOlS
TOM
00920
DC
00930
00940
00950
00960 SSIZE
00970
00980
00990
010CO RDAGN

AM
TFM
AM
CM
8L
TFM
TR
TH

TO I S+6, MTBl +20'51+11
ToIS
SU8SET+ll,COMSEC+82, ,
SU8SET+l1,4,l0

PAGE

INITIALIZE ACORESS COUNTER

•• 36
EPRINT,78,8
SUBSET+l1,COMSEC+83

.+20.SU8SET+ll

--21t
.-]

-+:35, ,10
IOINO
TWO,ONETWO
AODCoW,7499
10lND,1
-+20
0-]

AOOCoW,12999
ADDSVE,AOOCOW
ADDSVE,l,10
FlOO+19,ADoCOW
CCeNT ,COMSEe+75"
GET CONTROL C~Ro COUNT
IORT. -+23.,
GET FIRST SECTOR CF tIM
IOGT,MAP,7
FlOO+18,O
FlOO+16,ee IN+27
FlOO+16, Ct IN+27
FLo0+36, AOOCOW
FLOD+18,21,10
FLSOoA+5, FLOD+18
FlSOoA+Stl,10
SU80oA+5, FLSOoA+5
FLOO+l,FLSOOA+5
FLOO+ 23 ,CCIN+44
FloO+26,CC IN+4/
SVEOoA+5, FLOC+18
StAODR,O
SECT, FLoO+26
EQAOCR,FLOO+n
FLOO+99,IOINO
EPRINT+49t39,10
FLGRMK,FLOD+99
CCCNT" 10, ANY CONTROL CARDS PRESENT
8RANCH IF NONE TO READ INOICATOR RECORD
XEQON",
INiTiALIZE SU8PRoGRAM TABLE
SOl S+6.STBl+ll"

1,' ,.
501S+6,5,10
5015+6,,61
5015+6,15,10
50 15+6,5 Tel +20-51 + 11

OB080
08092
OBI04
OB116
08128
08140
08152
08164

SOlS
SUBeO"

CeIN-l, INTeC"

INITIALIZE CONTRCL READ IN AREA

TFCe+ll,INOV-l

57(;

11

076~S

15
43
16
15
49

C2461
07732
0245C
02461
07744

16
26
11
26
26
16
49
16
21
21
26
12
26
12
26
26
26
26
26
16
26
26
25
16
25
14
46
16
15

02450
02472
02472
12B47
105C8
00565
00566
12846
12844
12844
12864
12846
12941
12941
12755
12835
12851
12B54
02495
02460
02466
02455
12927
10253
02445
10508
09648
08074
OOOOC
I

J2999
02450
000-1
02450
C7375
-7815
J2765
-OOCO
10550
10550
02450
OOOKI
12B46
000-1
12941
12941
10567
10570
12846
-0000
12854
12851
02461
00DL9
12927

11
16

08074

11

08074
08074
08068
12995
10522
08211

COO-5
-0000
COOJ5
J2737
C1300
-0000
10300
J0509

14
~7

16
31
16

0807~

coo-o

01200
JI717
00000

162C MONITOR II VERS I eN 2
0101C
01020
01030
01040
01050
01C60
01070
01080
01090
01lCO
01110
01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380
0\390
OUOO
OUIO
01420
01430
01HO
01450
01460
01470
01480
01490
01500
01510
01520
01530
01540
01550

TO

AMI
IFCC

AM
TF
TFM
B
CM
8NE
Bt4
TF~

SETRM

BNR
SM
CM
BE
B
OORG
SEIRM 1 CM
BE
AM
TOM

DC

FORTU~

11-0 LOACER BLOCK 1

PAGE

AM[+11,1t29,. GET I NPU I OEV ICE
TFCC+ll .. lC
NEXC+2
IORT,*.23,.
GET CONIRCL RECORO
IOGT ,NEXt-4, 7
NEXC+2,6,lO. IS I T A TYPEO ENTRY

.+24
ROAG~-12

•• 23,tCIN+16C
SETRMI
.-1,2.10
SETRM+ll,CClN
ROLOC+12
SETRM
--3
SETR~+11,,610

SETRM+l2
SETR'H11,2,IC
SETRM+11,,6

1,',*

RCTY
TFM IORT •• +23
B
I OPT, TYPE-4. 7
RCTY
TOM SETR ... l1. ,6
ROLOC BNR ·.32.CCIN
BTM EPRINT,71,8
MONCAl
8
OORG --3
CM
CCIN.14.10.
IS IT A CONTROL CARO
BNE ROLOC+l2
RMCHK
TFM *.2l.CCIN+2,. CHECK FOR RECORe 'UK IN LOCAL NAME
BNR ·+20
8
ROLOC+12
OORG --3
AM
RMCHK+23.2.10
CM
RMCHU23.CCIN+12
8NE RMCHK+12
CC IN+l0 ,LOCAl.e,. IS IT A LOC.L RECORD
C
8E
COLNAM ••• 8RANCM IF LOCAL
ROLOC+12
B
OORG --3
COLLECT AND STORE MAINLINE AND SUBPROGRAM NAMES
COlNAM BO
CONTINUE CARD TEST --8uNCH IF ON--+24, CONT"
TD~
MLIND.I"
TURN eN MAINLINE INDICATOR
TFM CONT.00100
NAMBUF-13.INTCC1-10 .. INITIALIZE COLLECT AREA
TR
RCMKCK SNR 8LNKCK.CCIN+12 .. TEST FCR RECORO ~ARK IN NAME
BTM EPRINT.72.8
MONCAL
B
CORG _-3
8LNKCK CII
CCI N+ 12 .. 10, TEST FOR BUNK
8E
END
CM
CCIN+12.23010. TEST FOR COMMA
SNE SPCHAR

......

08176
08188
08200
08212
08224
08236
08248
08260
08272
082B4
08296
08308
08320
08332
08340
08340
08352
08364
08376
08387

25
11
26
16
49
14
47
46
16
45
12
14
46
49

08388
08400
·OB412
08424
08436
OB448
08460
08472
08480
08480
08492
08504
08516
08528
08536
0,536
085108
08560
08572
08584
08596
08604

34
16
49
34
15
45
17
49

OOOOC
00565
C0532
OOCCC
0829N
084BC
10204
007~6

00102
-8423
J2734
00102
COOOC
10523
0-071
00000

H
H
16
45
49

10523
0846C
08527
0853t
0846C

000J4
01200
J0525
OOOCO
CCOOO

11
14
H
24
46
49

08527
08527
08516
10533
08604
08460

000-2
J0535
01200
10473
01200
COOOO

43
15
16
31
45
17
49

08628
02462
10274
02428
08684
10204
00796

10274
OOOCI
-0100
10446
10535
0-072
COOOO

14
46
14
47

10535
09932
10535
08752

000-0
01200

15
49

10273
0888C

COOOI
00000

14
41
26

10535
08664

02441

10533
08652

OOOMO
C1300
10535
00009
01100
00000
00000
02428
10535
00000

31
14
47
43
49

02426
02439
08948
08924
08664

02428
CCO-O
Cl200
02462
00000

16
15
15

02439
10272
02441
02440

000J3
00000
00000
COOOO
000-0
01200
000-0
CI200
10272
00000
C2462
JI717
J2737
00000

08604
08616
08628
08640
08652
08664
08676
08684
08684
08696
08708
08720

14
46
11
15

0819~

08211
12132
00565
C0566
12132
08272
08152
08295
08340
08295
08295
0846C
08284
0829~

08296
08295
082~~

00429
000-0
COOOO
-8235
J2726
000-6
01200
00400
J0683
OOOOC
COO-2
J0523
01200
00000
COO-O
01200
000-2
COOOO

I

coon

01200

577
1620 MONITOR II VERSION 2 FORTRAN 11-0 LOADER 8LOCK I

PAGE

01560
TOM COMINO.I" TURN ON COMMA INDICATOR
01570
B
ENTER
01580
CORG --3
01590 SPCHAR CM
CCIN+12.40.10. TEST FOR SPECIAL CHARACTER
01600
8L
RCMKCK+12
01610
TF
NAMBUF.CCIN+12 .. MOVE CMARACTER INTO COLLECT AREA
01620
CII
NAMBUF .69 ,10. TEST FeR ALPHA CHARACTER
01630
8H
-+2401640
TOM ALFIND.O., TURN eN ALPHA INDICATOR
01650
CF
NAM8UF-I
01660
TR
NAMBUF-15.NAMBUF-13 .. SHIFT COLLECT AREA
01670
TR
CCIN+IO.CCIN+12 .. SHIFT INPUT AREA
01680
B
RCMKCK
01690
CORG --3
01700
TR
NAMBUF-15.NAMBUF-13 •• SHIFT COLLECT AREA
01710 ENTER CM
NAMBUF-2,,10
01720
8NE LA8FUL
01730
BO
"20.MLIND
01740
8
RCMKCK+12
01750
DORG --3
01760
INSERT $ IF BLANK 'ATNLINE NAME
01770
TFM NAMBUF-2.13.10
01780
TOM ALF IND
01790 LABFUL TOM MAMBUF, ••
SET TRAILING 8UNK
01800
CF
NAMBUF-I
01810
CM
NAMBUF-l2"IO,
TEST FOR LEADING BUNKS
01820
8E
ENTER-12
01830
CM
NAMBUF-14 .. 10.
TEST FOR MAX LENGTM OF SIX CHARACTERS
01840
8NE RCMKCK+12
01850
80
RCMKCK+l2.AlFINO" TEST FOR ALL NUMERIC ENTRY
01860
SF
NAIIBUF-13
01870
80
MLSCH,IILINO"
TEST FOR TYPE OF ENTRY
01880 SUBSCH TFM SEARCH+ll.STBL+11"
INITIALIZE FOR SUBPROGRAM TA8LE SEARCH
01890
TFM TBLSZE+n. STBl+51-20+11
01900
8
SEARCH
01910
OORG --3
01920 'LSCH TFM SEARCH+ll.MT8l+11
01930
TFM TBLSZE+11.MT8L+51-20+n
01940 SEARCH SNR -+20.,. TEST FOR AVAILA8LE ENTRY
01950
B
lOAD
01960
CORG --3
01970
C
SEARCH+ll.NAM8UF-2.6. TEST FOR MUll I PLE ENTRY
01980
8NE -+32
01990
8TM EPRINT,7308
02000
B
MONCAL
02010
DORG --3
02020
AM
SEARCH+ll.20.10
02030 TBlSZE CM
SEARCH+lI." TEST FOR FULL TABLE
02040
BNE SEARCH
02050
BTM EPRINT,74.B
02060
8
MONCAL
02070
OORG --3
02080 LOAD
TF
SEARCH+ 11. NA~BUF-2. 6
02090
80
MAIN.MlIND
02100
AM
SUBCOW,20,I0
02110
AM
SEARCH+ll,8.10

578

08732
08744
08752
08752
08764
08776
08788
08800
08812
08824
08836
08848
08860
08868
08868
08880
08892
08904
08916
08924
08924
08936
08948
08960
08972

08984
08996
09008
09020
09032
09044
09056
09068
09080
09088
09U8
·09100
09112
09124
09132
09132
09144
09156
09168
09176
09176
09188

09200
09212
09224
09232
09232
09244
09256
09268

14
46
15
33
31
31
49

33
14
46

14
47

43
32
43
16
16
49

02441
08824
10272
0244C

02426

02429
08868
02427
08664
086M
02428
09088
09123
09l9~

09112

16
16
45
49

09123
09199
09132
09232

J0697
JI717
00000
COOCO

24
47
49

0912L
09176
10204
00796

02439
01200
0-073
COOOO

11
14
47
17
49

09123
09123
09112
10204
00796

OOOKO
-0000
01200
0-074
00000

26
H
11
11

0912L
09876
12995
09123

02439
02462

11

000~0

000-8

4

162C MONITOR I I VERSION 2 fORTRAN 11-0 LOACER BLOCK I
02120
02130 LOADl
021~0

02150
02160
02110
02180
02190
02200
02210
02220
02230
02240 RNOED
02250
02260
02270
02280
02290
02300
02310
02320
02330

TO~

SEARCH+ll,1,6, LOAD DIGIT TO INDICATE fLIPPEO SUBPROGRAM

BD
BO
BO
B

RNOEO-36.BLKINO
*+36,CCIN+13
*+24,CCIN'+14

PAGE
09280
09292
0930~

-+24

TOM

CaMINO
TR
CCIN+I0.CCIN+l2
RCMKCK-12
B
DORG .-3
cceNT, 1 ,lO, CEC~EMENT CARD COUNT BY ONE
SM
SUBCGW-l,2.10
AM
ROUNO, SUSCOk-l
BO
SUBOQA+ 5. SUBOOW-2
S
Tf
SUBODA+B. SUBCOW-2
TfM
IORT,.+23"
LOAO SUBPROGRAM TAHE IN SORATC~ AREA
8
IOPT.SUB,7
TF
MLCOW .SUBOOA+8. 6
AM
MLCO~t5,lO
TF
MLCOW, SU800A+5 ,6
CM
CCCNTt,LO
8NE
SBINIT
AM
MAINCT.20.10
023~0
BO
ROUNOI.MAINCT-l
02350 RNDEDI S
SUBODA+ 5.MAINC T-2
02360
TF
SUBDDA+8,MAI NCT-2
TFM
02370
SUBODA+13.MTBL
OB80
TFM
(ORT ••• 23,.
LOAD ~AINlINE TABLE
IOPT,SUB,l
02390
B
02400
TF
FlOO+2, MA I NC T-2
02410
TF
FLOD. 7, SU800"A+5"
STORE OISK LOAD ACORESS OF MAINLINE TABLE
02420
TF
LOOOA+5. FLOO+l
02430
Tf
LOOOA+8,fLOO+2
02440 XEQON
TF
COMSEC+ 11, FlSDOA+5
02450
TF
FlOOHl,FLOO+l
02460
SM
FlOO+3I,IO,10
02470
TF
INCODA+5,FLOD+H
02480
TFM
o+IB,SUBT8L+1I
02490
TOM
02500
OC
1,' ,e
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620 ROUNO
02630
02640
02650 ROUNOI
02660

AM
CM
BNE
TFM
8
TFM
B
TFM
8
B
CORG
AM

--6,20.10
.-18,SUBTBL+lOH

e-36
[ORT,·+23, •

STORE IN-CORE TABLE

10PToINC,l

JORT,.+23 ••

STORE COMMUNICATlCN SECTOR

IOPT,COM,7
IORT,"23
IOPT,FLS,7
XEQONI
--3
5UBCOW-2,l,10
RNOED
B
OORG ·-3
AM
MAINCT-2,I,10,
B
RNOEDI

09316
09328
09140
09352
09364
09372
09372
09384
09396
0940B
09420
09432
OHH
09~56

09468
09480
09492
09504
09516
09528
09540
09552
09564
09576
09588
09600
09612
0962~

09636
09648
09660
09672
096B4
09696
09708
09719
09120
09732
09744
09756
09768
09780
09792
09BO~

ROUND TO NEXT H IG~ER SECTOR

09B16
0982B
09B36
09B36
09848
09856
09856
09868

IS
~3
~3
~3

49
15

31
49
12

11
43
22
26
16
49
26

11
26
14
H

11
43
22
26
16
16
49
26
26
26
26
26
26
12
26
16
15

0912L
09372
09]40
09340
09352
10273
10533
08640

00001
10271
10536
10537
00000
COOCO
10535
COOOO

1050B
12994
09836
12755
12158
00565
00532
130013000
130010508
08056
10506
09856
12755
12758
12763
00565
00532
12830
12835
02479
024B2
07311
12859
12859
02511
09714
ooooe
1

000-1
000-2
lZ9Cjl4

12993
12993
-9455
J2742
12758
000-5
12755
000-0
01200
COOKO
10505
10504
10504
J0686
-9599
J2742
10504
12755
12835
12830
12941
12835
OOOJO
12859
-2533
ceooo

11
14
41
16
49
16
49
16
49
49

09714
09714
09708
00565
00532
00565
00532
00565
00532
10012

OOOKO
-3553
t1200
-9779
J2975
-9803
J2951
-9821
J2928
00000

11

12993
09408

000-1
COOOC

11

10504

49

095~0

000-1
00000

49

57!!
1620 MONITOR II VERSION 2
02670
02680 MAIN
02690
02700
02710
02120
027~0

02740
02750
02160
02770
02780
02790
02800
02810
02820
02830
02840
02850
02B60
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160

DORG
TOM
AM
TF
AM
B
DORG
ENC
80
TOM
8
OORG
TOM
SM
BE
8
XEQON I TOM

,

DC

XEQON2

EPR INT

CONT
COM INO
ALf I NO
BLK I NO
FOR

1,',-

TOM EXTINO
TF
SYEDOA+ 13,FlOD+18
TR
NAM8UF-lI,LDMN-l
CM
COM5EC+25 .. 10
-.56
8NE
TFM COM5EC+25.13.10
COMSEC+]5
CF
80
XEQON2,428
J540,,6
8
CORG - - )
NAMBUf ,COMSEC+35
TF
BD
XEQON2.~2B
)540 .. 6
B
DORG --)
TOM EXTlND,I
CM
COMSEC+75, ,10
1540.,6
BE
35",5,,6
B
OORG . - ]
ERROR, ~ESSAGE SUBROUTINE
TF
ERMESS+16,EPRINT-l
RCTY
WArY ERMESS
Rcry
JOBOUT,100
NOP
8B
,.-1 t
CONTINUE INDICATOR
OS
,*-2.
COM~A INDICATOR
OS
•• -3,
ALPMA I NO ICATOR
OS
•• -4. BLANK INOICATOR
OS
2,22
ose
22
DSA FORDOA
DC

FORTRA~

I, •

PAGE

11-0 LOADER BLOCK 1

_-3
MlIND .. , TURN OFF MAINLINE INDICATOR
MAINeT,20,10
MLCOW ,SEARC~+1I
MLCOW,3,10
lOADI
_-3
.+32,COMINO
BLKIND,I .. TURN ON BLANK INDICATOR
ENTER
.-3
CONT 01
CCCNT ,1,10
RDLOC+l2
TFCC
DDAR+14

09B76
09816
09888
09900
09912
09924
099]2
09932
09944
09956
09964
09964
09916
09988
10000
10012
10023

15

02~62

11
49

10506
1l00C
1l00C
09292

00000
OOOKe
09123
000-3
00000

43
15
49

09964
10271
OBB80

10273
00001
00000

15
12
46
49
15

10274
10508
08~60

00001
000-1
01200
ooooc
OCOOO

26

11

10024
100]6
10048
10060
10072
10084
10096
10108
10120
10128
10128

15
26
H
14
47

101~0

43

10152
10160
10160
10112
10184
10196

49

OB200
07294
1
C2463
0250]
0243e
07325
10128
07325
07335
10160
0354-

COOOO
12846
13022
000-0
e1200
000J3
00000
00428
00000

CH41
10160
0354-

07335

15

02~63

H

07375
03540354N

00001
000-0
C1200
COOOO

16
33

43
49
26

46
49

00~28

00000

1020~

10204
10216
10228
10240
10252
10264
10274
10213
10272
10271
10276
10282

26
34
39
34
41
42

1301~

ooooc
13003
00000
10475
ooooc
C
0
C
C
2

5 X

10282
10283

J0284

10284

14

03170 FORDO A OOA
,1,16051,45,2424
IJ6057-45-2424

580

10203
00102
00100
00102
00100
COOOO

I

1620
OHBC
OH~C

03200
03210
03220
03230
032~0

03250
03260
03210
032BO
03290
03300
OHIO
OB20
03330
OH~C

·

DC
INTCC

00
00
00
00
00
00
00
00
00
00
00
00
00
INTCC I 00
OORG
DC

·

~ONITOR

II VERSION 2

FORTU~

11-0 LOACER BLOCK I

PAGE

I.'

10298

, ,02

10300
10312
10324
10336
10348
10360
10312
10384
10396
10408
10420
10432
104104
101056

.. 02~6BIO
• .0246BIO
.. 0246BIO
•• 0246BIO
•• 0246810
• .0246BIO

.,0246810

• ,0246810
• .0246810
• .02U810
• ,0246810
•• 0246810
.. 0246810
'-4
1 ••

10~63

-0
-0

-0
-0
-0

-0
-0

-0
-0
-0
-0

-0
-0
-0

-OOOC
-0-0-0-0-0-0-0-0-O-C-0-0-0-0-

-o-c-

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

-O-C-0-0-0-0-

10520
10523
10686
11106
12130

82
102C
102C
J0523
2

10465
10415

2

2

10512
10514
10515

OHBO

DC

2.10

03490
03500 TYPE

JO
UGM
DSA

CCIN

12133
12138
12138

DC

2.6

121~0

2.02

1,2141
12142

03540

-6
DG!!
DSC
02
DSA

SU8DDA

12148

03550

DC

1.'

12148
1214'1

03520
03530 SUB

14 X

10506

12130
12132

03510

0-0-0

10463

5
82..
READ IN AREA FOR LOCAL CARCS
1020 .. MAlNLlNE NAME TABlE
1020 .. SUBPROGRAM NAME TABLE
CCIN

ST8L
NEXC

c-o-o

-o-c-

03430
03440
03450
03460
03410

~TBL

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

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

10508
10510

DS
DAS
DSS
DSS
DSA

c-o-o
c-o-o

-0-0-

03350 LOCAL DAC 5.LOCAL
LOCAL
OH60 JOBOUT DAC 14.J08 ABANDONED'
JOB A8ANDONED'
03310 MAINCT DC
5.0
-0000
033BO CCCNT OS
2 .. CONTROL CARD COUNT
03390 INDV
DC
2.6 .. TYPE IN LOCAL INFORMATION
-6
03400
DC
2.8 .. RElD LOCAL INFORMATION FRC~ PAPER TAPE
-8
03410
DC
2.10 .. RElD LOCAl INFORMATION HeM CARDS
JO
03420
DC
1,'
CKSll
CCIN

OCOOC

5

X

5 X

J0523
2

J215C
I

581
1620 MONITOR 11 VERSION 2 FORTRAN 11-0 LOADER BLOCK 1
03560 SUeOOA DDA ,1.0.0.STBL
1-0000-00J1106
03510
DC
1.'
03580 MAP

121M

2,22

12165

MAPDDA

12111

1.'

12111
12112

J2114

03610 MAPDDA DDA ,I,48DO,I,CCIN-l
1-4800-01J0522
03620
DC
1.'

12114

14

03630 LDMAIN DAC 19,LOAD MAINLINE PROG'
LOAD MAINLINE PROG'
03640
FORTRAN LOADER INFORMATION SECTOR
03650 •
0-2 CONTAINS SECTOR COUNT OF MAINLINE TABLE
03660 •
]-1 CONTAINS DISK ADDRESS OF MAINLINE TABlE
03610 •
9-13 CONTAINS DISK ADDRESS Of SCRATCH AREA
03680 •
1.... 18 CONTAINS DISK ADDRESS Of CDMMCN RESERVE AREA
03690 •
19-23 CONTAINS DISK ADDRESS OF EQUIVAlENCE TA8LE
03100 •
24-26 CONTAINS SECTOR COUNT OF EQUIVAlENCE UBlE
03110 •
21-31 CONTAINS ADDRESS OF IN-CORE SUBPROGRAM TA8LE
03120 •
32-36 CONTAINS INITIAL LOADING ADDRESS
03130 •
99 CONTAINS A flAGGED RECORD MARK
03140 FLCO
DSS 100
03150 FLS
DSC 2,02
02
03160
DSA FlSDDA

12191

19

12828
12928

10C
2

03590
03600

DSC
22
DSA

PAGE

12150

DC

03710

DC

1

1218B

12934
12934
12935

J2936
I

12936

14

03780 fLSDDA DDA .1.0,I.fLDD
1-0000-01J2828
03190
DC
1,"

'l2'150

03800 COM

DSC

12951

03810

DSA

2,22

5 x

22
COMDDA

12951
12951
12958

J296C
1
14

·

I,'

DDA ,1019663,I.CO"SEC
lJ9663-01-1300

12960

03840

DC

1 t·

12914

03850 INC

DSC
02
DSA

2.02

12915

INCDDA

12981

·

I ••

12981
12982

03820
03830

03860
03810

DC

CO~ODA

DC

582

-250f
I

[620
03880 SVE
03890
03900
03910

SU8CO~

DSC
22
DSA

2,22..

~ONITOR

II VERSION 2 FORTRAN 11-0 LOAVER BLOCK I

SVEDDA

12989

DC

1.

12989
12990

DC

5,0

I

13000

~LCOW

04060

5 X
-249C
I

12995

-0000
DC
5,0
-0000
03930 ER~ESS DAC
10, ERROR L
ERRUR L
DAC 5,MA[N'
03940 LDMN
MAIN'
03950 ONET.O DSC 5,00101
00101
03960 •
BLOCK LOADER
DORG 5000
03910
03980 BEG [N TO
TYPE-5,19999
03990
TO
SUB-I,19999
04000
SK
LOADER
WON LOADER
04010
04020
H
04030 LOADER DDA .1,16000,57,7500
IJ6000-57-7500
DG~
19999
04040
TCD BEG [N
04050
03920

PAGE
12983

LINKAGE TO SAVE COMMON ARE'

10 X

13003

2

13023
13032
05000
05000
05012
05024
05036
05048
05060

25
25
34
38
48

12733
12741
0506C
05060
00000

19999
19999
C0701
C0702
COOCC

14

19999
05000
00000

DE~O

58:1
1620 MONITOR II VERSION 2 FORTRAN 11-0 LOADER BLOCK
AooCOW
AooSVE
ALFINo
BLKINo
BLNKtK
tOLNAM
. COMDoA
COMINO
CON SEt
EPRINT
EQADOR
ERNESS
EXTlNo
FLGRMK
FLSOoA
FORDOA
GETOIM
INCooA
INTCCI
JOBOUT
LABFUL

02-UO
02472
10272
10271
08684
08604
12960
10213
01300
10204
02455
13003
02463
02445
12936
10284
01192
02506
10456
10475
08948

END OF ONE ASSEMBLY.

LOMAIN
LOADER
LooPRO
MAINtT
MAPooA
MLiNIT
MONtAL
NAMBUF
ONETWO
OVRLAP
RC~KCK

RNoEol
RO~Nol

AMI
BEGIN
CttNT
CCIN
CKSTl
CO ..
CoNT
oCAR

12191
05060
07144
10506
12774
07524
00196
02441
13032
02444
01652
09540
09856
08188
05000
10508
10523
10520
12951
10274
01280

ENO
ENTER
FLOo
FLS
FOR
INC
INDV
INRK
INTCt
IOGT
10lNO
10PT
10RT
LoooA
Lo .. H
LOAOI
LOAD
LOCAL
MAIN
.. AP
MLCOW

09932
08180
12828
1292B
lt216
12975
10510
01400
10300
00566
02461
00532
OC565
02414
13023
09292
09232
10465
09816
12165
13000

PAGE
MUNo
MLSCH
MSrzE
MT8L
NExt
ONE
RDAGN
RoLOt
RMCHK
RNoED
ROUND
SOlS
SECT
SETRM
SSIZE
START
STaL
SU8
SVE
TOIS
TFtt

02462
09088
07560
10686
12130
07700
08164
08H8
08504
09408
09836
0806B
02Ut
08284
oAll6
07780
11106
12142
12983
07536
08200

10

ToO
TYPE
XEQON
SBINIT
SBPTBL
SCADOR
SEARCH
SETR_l
SPCHAR
SUBCOo
SUBOoA
SUBSCH
SUBSET
SUBl8L
SVEDOA
T8LSlE
XEQON 1
XEQON2
lRoTST

07732
12738
09648
08056
C7400
02460
09112
08340
08752
12995
12750
09056
07664
02522
02490
09188
10012
10160
02467

1620 MONITOR II VERSION 2
00010
OO02e
00030
00040
0005C
00060
00070
00080
00090
001CO
00110
00120
00130
00140
00150
00160
00110
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360

10PT
IOGT
IORT
~ONCAL

F
K
PRCGST
COMAoe
Nl
N2
W
RECLG
ENTLN
ENTEXP
ENTSC2
ENTSC3
ENTSDX
ENTFIC
ENTREC
ENTFET
ENTSWO
ENTcRR
ENTOEc
ENTCoS
ENTSIN
ENTATN
ENTSQT
ENTA8S
LlBSU8

NA~BUF

00310

FoRrRA~

11-0 LoAtER BLOCK

PACE

1620 MeNITOR
VERSIC~ 2 FORTRA~ 11-0 LOAOER BLOCK 2
OS
.532
OS
.566
OS
.565
OS
.196
COMMUNICATION AREA
DORG 2218
OS
2 .. FLOATING POINT weRO LENGn
OS
2 .. FIXED POINT WORO LENGTH
OS
5 .. STARTING AOORESS OF MAINLI~E PROGRAM
OS
5 .. STARTING ADtRESS OF COMMON AREA
OS
2 .. ~UM8ER OF WORDS IN LOGICAL RECORD
OS
5 .. NUM8ER OF LOGICAL RECORDS
OS
2 .. WORD LENGTH
OS
3 .. RECORO LENGTH
OS
5 .. ENTRY ADDRESS TO LOG SU8RoUTlNE
OS
5 .. ENTRY AOORESS TO EXPoNENTI AL SUBROUTINE
OS
5 .. ENTRY ADDRESS TO OOU8LE SUBSCRIPT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO FIXED SWITCH 0 SU8ROUTINE
OS
5 .. ENTRY ADDRESS TO FINO SU8RoUTINE
OS
5 .. ENTRY AODRESS TO RECORD SUBROUTINE
OS
5 .. ENTRY ADDRESS TO FETCH SUBRoUT INE
OS
5 .. ENTRY ADDRESS TO SWITCH 0 SUBROUTINE
OS
5 .. ENTRY ADDRESS TO URlY SU8ROUTINE
OS
5 .. ENTRY AOORESS TO OISK ENO SUBROUTINE
OS
5 .. ENTRY ADDRESS TO COSINE SUBROUTINE
5 .. ENTRY ADDRESS TO SINE SU8ROUTINE
OS
OS
5 .. ENTRY ADDRESS TO UCTANGENT SUBROUTINE
OS
5 .. ENTRY ADDRESS TO SQUARE ROOT SUIIRDUTINE
OS
5 .. ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
RESERveD fOR ENTRIES TO .COED SUBROUTINES
OS
10"
OSS 30 •• LIBRARY SU8RoUTINE INDICATORS
1 ••
DC

"

00532
00566
00565
00196

·

DORG 2426
DC
16.0
-000000000000000
DC
2.'

00380 oVRLAP DC

02218
02219
02221
02226
02231
02233
02238
02240
02243
02248
02253
02258
02263
02268
02273
02218
02283
02288
02293
02298
02303
02308
02313
02318
02323
02393
02394
02424

5
5
5
7C
3C
1

02426
02441

16

1.0

02H4
02445
02450
02455
02460

5
5
5

5
5
5
5
5

5

02461

DC

1.0

02462

00450 EXT INO OS
OS
00460 SECT
00410 lRo TS I DC

1
3
1.0

02463
02466
02467

00480 ADOSVE OS

5

02412

~LINc

5

02443

00390 FLGR~K OS
1
5
00400 AcOCOW OS
5
00410 EQAOOR OS
00420 SCAOOR DC
5.0
-0000
00430 10lNO DC
1.0
00440

2
2
5
5
2
5
2
3
5
5
5

585
1620 MONITOR II VERSION 2 FoRTR_N 11-0 LOUER BLOCK 2

·

00490

DC

00500 LDDDA

DDA .1.o.o.SUBIBL
1-0000-00-2522
DC
1.'

00510

1 ••

PAGE
02473
02414

00520 SVEOOA DDA .1,0,21,0
1-0000-21-0000
1 ••
DC

02490

00530

02504

00540 INCDOA DOA .1.0.10.SU8TBL
1-0000-10-2522
DC
1.'

02506

00560 NoOATA DSC 1.1
1
00510 SUBTBL OSS 1000
00580
12, •
DC
-0000000000 •
00590
ENTRY FROM CALL LINK STATEMENT
00600 JAYENT NOP TSIYLO.COoRTP
00610
8SNX 0+12
00620
TF" 10RT ... U
00630
B
IOGT.CoM.7
00640
TfM COTPLD+13.25.10
00650
TF
DMEDDA+5.CoMSEC+ll
00660
TF
NAMBUF. 1495.11
00610
TF
COMSEC+35.NAM8UF
00680
GET FLOD SECTOR
TF" IORT.e+23 ••
00690
8
10GT.DME.l
00100
TF
SYEDOA+5.INRK+18
00110
TOM OME.2
TF
00120
AODCoW.INRK+36
00130
CM
ADDCoW.7499
00140
BNE -+24
00150
TOM SCADDR.1
00160
TF
ADOSVE.ADoCO~
00170
AM
ADDSVE.1.10
00780
TF
LDDDA+5.INRK+l
00190
TF
LDDOA+8.INRK+2
00800
TF
SECT.INRK+26
00810
TF
EQAooR.INRK+21
TF
00820
INtcOA+5.INRK+31
00830
TFM 0+18. SUBTBL+ll
00840
TO~
00850
DC
1,',-

02521

00550

00860
00870
00880
00890
00900
00910
00920 LNK INC
00930
00940

·

·

AM
tM
BNE
TFM
B
TD~

OS
TO
TDM

10INO.INRK+99
EXTlND.1

14

14

02520

02522
03533
03534
03546
03558
03510
03582
03594
03606
03618
03630
03642
03654
03666
03678
03690
03702
03114
03726
'03738
03750
03762
03774
03786
03798
03810
03822
03833

--6,20,10
'-18. SUBlBL+ 1031
*-36
IORT,.+23 ••
STCRE IN-CORE TABLE
IOPT, [NC. 7
lNKIND.l

14

02488

03834
03846
03858
03810
03882
03894
03904
03906
03918

,--I

5 ~-;:I

10ce
12
41
60
16
49

16
26
26
26
16
49
26
15
26
14

41
15
26
11
26
26
26
26
26
16
15

11
14

47
16
49
15
25
15

04390
0355B
00565
00566
05231
C6081
02441
01335
00565
00566
02495
06068
02450
02450
03726
02460
C2472
C2472
02479
02482
02466
02455
02511
03828
oocoe
1

05696
COOOO
-3581
-6091
000K5
07311
0149N
02441
-3653
-6068
07418
00002
07436
-1499
01200
00001
02450
000-1
07407
07402
01426
01423
07431
-2533
COOOO

03828
03828
03822
00565
00532
03904
C
02461
02463

CCOKO
-3553
C1200
-3893
-6139
00001
07499
00001

1620 MONITOR II VERSION 2 FORTRAN 11-0 LOACER BLOCK 2

PAGE

00g50
EQUIVALENCE IABLE SEARCH
00960 EQ SRC'" TF
EQUOOA+5, EQAOOR
oono
TFM
lNRK-t48,SECT
00geo
TH
REAC IN FOUR SECTORS OF EQUIV. TABLE
IORT,*+23"
009g0
B
IOGT ,EOU, 7
OIOCO COfo'PER TFM COMP+ll t SUBTBl+ll"
SEARCH E'UIV. TABLE
01010
BNR
*+20,COMP+ll,ll
01020
B
NXTRO+24
01030
OORG ·-3
01040 COMP
NA~BLJF
C
01050
BE
FOUND'
01060
AM
COMP+ll,l6.10. [NCREMENT TO NEXT IIIAfolE
01070
CM
COMP'" 11, SUBTBL+411 , t
TEST FOR END OF TA8LE
01080
BNE COMPER+12
010g0 NXTRC
CM
INRK+48,O,9,
TEST FOR END OF EQU[V. TABLE
01100
BH
·+20
01110
B
COORTP
01120
OORG ·-3
01130
SM
INRK+48,4,lO, DECREMENT SECTOR CCUNT
01140
AM
EQUOOA+5,4,10
01150
B
COMPER-24
01160 FOUNO
AM
COMP+U,4,10,
[NCREMENT TO GET D[M NUMBER
01170
TFM
0[MOO"5,4800
01180
O[ MOOA+6.COMP+ll,ll
S
011 gO
o [MOOA+6,COMP+ll,ll
S
01200
TDM 01,.00A+6. ,11
01210
READ [N O[M SECTOR
01220 FOuND 1 TFM
IORT,·+23
[OGT,O[M,7
01230
B
01240
TO
SECCT ,COMP+ 11,11
01250
CM
SECCT,5,10
01260
BL
-+24
01270
SM
sEteT,5.lo.
CALCULATE O[M ENTRV AOORESS
012BO
MM
SECCT,20,9
012g0
AM
99,INRk
01300
TR
0[MSVE,99.11
01310
OMEOOA,O[MSVE
TO
01320
TF
OMEOOA+5. O[ MSVE+5
01330
TR
DOAR, OMEODA,. MOVE SECTOR OOA TO PRCGRAM eeA AREA
01340
TFM
IORT •• +23,. REAO IN [NO[CATOR RECORO
01350
B
JOGT,DME,l
01160
TF
MOVE SECTOR COUNT
OOAR .. 8, 0 [M5VE+8"
01310
[ND[CATOR RECORD CHECK
01380
TOM UTlNO,O
013g0 T STVLD C
[NRK+ll,[NOCON, ,
CMECK FOR VALID [NO[CATOR RECORD
01400
BE
RELFRM
01410
INRK+5, INOCCN,. CHECK FOR VALID [TV [N CORE [MAGE
C
.+32
BE
01420
01430
BTM EPR[NT,75,8
01440
B
MONCAL
01450
OORG .-1
01460
BTM FlSBT.O,10
01410
TF
OOAR+ll, ADDS VE
014BO
TOM
INOR+7 ...
ceNVERT OEF[NER TC ceRE [MAGE
01HO
DC
1.' .•

OH30
03942
03g54
03g66
03g78
039g0
04002
04010
04010
04022
04034
04046
04058
04070
04082
04094
04102
04102
04114
04126
04138
04150
04162
04174
04186

26
16
16
4.9
16
45
4g

06161
C7448
00565
00566
C4021
04CIC
04094

C2455
-2466
-3977
-6147
-2533
0402J
00000

24
46
11
14
47
14
46
4g

02441
04138
04C21
04021
0399C
07448
04102
056g6

C1200
000J6
-2933
01200
CO-OO
01100
CCOOO

12
11
4g
11

07448
06161
03g54
04021
06205
06206
06206
06206

COO-4
000-4
00000
COO-4
-4800
C402J
0402J
COOO-

11
25
26
31
16
4g
26

00565
0056f
06283
06283
C4270
06283
06283
00099
06242
06076
06081
0128C
00565
00566
0128e

-4221
-61n
C402J
000-5
01300
COO-5
00-20
-1400
OOOgR
06242
06247
06076
-4365
-6068
C6250

04378
04390
04402
04414
04426
04438
04450
04458
0445B
04410
04482
044g3

15
24
46
24
46
17
4g

02463
01413
05382
07405
04458
05478
00796

00000
06267
Cl200
06261
01200
C-075
COOOO

17
26
15

05542
07H3
06186
1

000-0
02472
COOOO

044g4
04506

11
12

01285
07288

CCO-l
000-1

04518
04530
04542
04554
04566
04578
045g0
04602
04610
04610
04622
04634
04646
04658
04610
04678
04678
04690
04102
04114
04726

26
26
26
26
43
26
26
4g

02233
02238
0224C
02243
04610
02219
02221
04618

C7401
C7412
07414
07417
OH04
C7424
07426
COOOO

24
41
24
46
17
4g

07424
0465f
07426
04678
05478
007g6

0221g
01200
02221
01200
0-076
00000

26
21
26
26
26

02226
02226
02231
02503
06272

C7431
02472
01436
02231
07422

04138
04750

32
26

01431
02423

00000
07466

04162
04173
04114
04186
041g8
04810
04822
04834
04846
0485B
04870
04882
04893

15

OOOOC
1
00565
00532
-1500
04804
04804
047g8
02412
02472
02450
07423
1

041g8
04210
04222
04234
0424f
04258
04270
04282
04294
OH06
04318
04330
04342
04354
04366

16
22
22
15
If
4g
25
14
41
12

13
11

ccooo

587
1620 MONITOR II VERS [ON 2 FORTRAN 11-0 LOADER 8LOCK
01500
01510
01520
01530
01540
01550
01560
01570
01580
015g0
01600
01610
01620
01630
01640
01650
01660
01670
01680
016g0
01700
01110
01720
01130
01740
01150
01760
01110
01780
01790
01800
01810
01820
01830
01840
01850
01860
01870
01 B80
018g0
01 gOO

AM
SM

PAGE

DOAR+5.1,10,

[NCREMENT O[SK AOORESS BV ONE
DDAR+B.ltIO.
DECREMENT SECTOR COUNT BY ONE
[NITIAL[ZE fORTRAN COMMUN[CATloN AREA
CoMLO
TF
Nl, [NRK+7
TF
N2. [NRK+12
TF
W,INRK+lit
TF
RECLG. [NRK+17
BO
LNK,LNK[NO
TF
F, [NRK+24
TF
K, [NRK+26
8
ML
OORG .-3
LNK
C
INRK+24,F
BNE -+36
C
INRK+26,K
BE
ML
8TM EPR[NT,16,8
B
MONCAL
OoRG .-3
ML
Tf
PROGST,INRK+31
A
PROGS T, AOOSVE
Tf
COMAOO,INRK+36
TF
SVEODA+ 13 .CoMAOO
TF
MLLGTH, [NRK+22
INITIALIZE lIBRARV SUBROUTINE INO[CAToRS
SF
INRK+37
TF
L[B5U8+29,INAK+66
S AVE COMMON AREA
TOM
GP~K
OGM
TFM
IORT, •• 23"
PUT ZI SECTORS OF COMMON AREA IN SCRATCH
B
loPT,SVE,1
CLEAR
TR
7500, ZERoS,2
AM
CLEAR+6,500,9
C
CLEAR+6,CoMAOO
BL
CLEAR
TRVSlE TF
AOOSVE,Aoocaw
AM
AOOSVE,1,10
A
AOOCOW, [NRK+22
TOM
INRK+23
DC
1.' ,*

01910
01no
01HO S !lEaK
01 g40
01g50
01960
01g70
019BO
01gg0
02000
02010
02020
02030 RoPRCG
02040 SCHLO

.

C
ADDCO W, COMA DO
BH
ERML
BO
.+24,OVRLAP
BNCI ROPROG
ReTV
WATY NAMBUF-LOt,t
TYPE OUT NAME
SPTV
WNTV AoOSVE-4
SP TV
WNTV JNRK+ 18 •• ,
TVPE OUT LENGTH
WAn LOEO
LOAD PROGRA~S ROUTINE
Bo
CDTPLO,EXTIND" BRA~CH IF PRCGR~~ [N CARO OR TAPE
TF~
GET PRCGRA~ FRO~ C[SK
IORT. -.23"

04B94
04g06
04918
04930
04942
04g54
04966
04g78
04g90
05002
05014
05C26
05038

588

16

49
31

11
24

41
26

11
21
15
24
46
43
41
34
3g

COOOO
-4H7
-6111
06408
OONOO
02231
C 1300
02450
000-1
01422
00000

38
34
38
39

0245C
05616
04942
0502f
OOOOC
02431
COOOO
02468
OOOOC
07418
06Zg1

02231
CllOO
02444
00100
COI02
00100
00101
COlaO
00101
00100
COI00

43
16

05218
C0565

C2463
-5061

34

4

162C MON ITOR II VERS ION 2 FORTRAN 11-0 LOACER BLOCK 2
02050
02060
02010
0208C
02090
021ce
02110
02120
02130
02140
02150
0216C
02170
02180
02190
02200
02210
02220
Oi230
02240
02250
02260
02270

PAGE

8
IOGT.lNOR,1
•
TEST fOR SUBPROGRA~ CALLS
CAU2 TF
"35,AOOCO~
AM
•• 23.1,10
BNR CALL3
•
TEST fOR LI BRARV S~8RCUTI NE CALLS
80
CALL4,L18SUB
CM
.-1,LJRSU8+2~
8E
CALL6
.-25,1,10
AM
.-48
8
DORG .-3
CALU TF" IORT,.+2:J
8
IOGT,8Lh7
CALL4 TFM CALl]+23,8L4
CALl]
8
DORG .-3
eALL6 TFM CALL3+23,8L6
8
CALL3
OORG .-3
ROUTINE TO LOAD PROGRAM FROM CARD OR UPE
eOTPLC TDM 416
DC
1.' I .

02280
NOP
02290
SF
02300
CF
02310
TF
02320
SF
02330
TF
02340
TFM
02350
B
02360
TFM
02370
8
02380
TDM
02390
TOM
02400
B
OHIO
DDRG
02420 RELFRM TDM
02430
DC
02440
02450

TR
CF
rFM
TFM
BTM
TF
8

05050

~9

00566

-6119

05062
05074
05086

26
11
45

05097
05097
05154

C2450
000-1
COOOO

05098
05110
05122
05134

H
14
46
11
49

05118
05109
051ge

C2394
-2423
e1200
COO-l

05098

coooo

16
49
16
49

00565
00566
05177
05154

-5177
-6308
-6316

16
49

C5177
05154

-6324
00000

05218
05229

15

00416
1

COOOO

428,COMSEC+73
428
429
434,AODSVE
489
COMSEC+98,INRM019
IORT, •• 23,. PUT BACK CDMMUNICATION SECTOR
10PT ,eOM.l
IORT ••• 23,.
GET PROGRAM
10GT,EXT,l
EXTINO
NODAU,O
CALL2
0-3
INRK+80

U
32
33
26
32
26
16
49
16

0042B
00428
00429
00434
004n
07398
00565
00532
00565
00566
02463
02521
05062

01373
00000
00000
02472
00000
07479
-5325
-6091
-5349
-6115
00000
00000
00000

1 t' I.

05230
05242
05254
05266
05218
05290
05302
05314
05326
05338
05350
05362
05314
05382
05382
05393

15

07480
1

00000

INRK,INRK+8, • MeVE INDICATOR RECCRO TO CONFORM TO CARD IMAGE

05394

31

05~06

33

05418
05430

16
16
17
26
49

074CC
00427
00439
e7293
05542
06190
0451e

07408
00000
-0075
R9999
COO-O
02472
COOOO

06233
00000
06217
oooee
06041
00000

05477
00102
00100
00102
00100
00000

051~6

05154
05154
05166
05178
05190
05198
05198
05210
05218

~27

439,75
02470
DDAR+ I), 99999
02480
FLSBT,O,10
02~90
INOR+ll,ADOSVE
02500
COMLO
02510
ERROR MESSAGE SUBROUTINE
02520 EPRINT TF
ERMESS+ 16, EPRINT-I
02530
RCTY
02540
WArY ERMESS
02550
RCTV
02560
WArY JOBOUT
02570
BB
02580
DORG .-9
02~60

05~~2

05454
05466
05418
05490
05502
05514
05526
05538
05540

~9

15
15
49

26
3~

39
34
39
42

051C~

oeooo

589
1620 MONITOR II WERSION 2
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710
02720
02730
02740
02150
02760
02170
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
02880
02890
029'00
02910
02920
02930
02940
02950
02960
02910
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080

FLSBT

ERML

CDORTP
RHAOO

READ
RMCHK

HEADER

LOMES

03090 OVRMES
OllOO JOBOUT
03110 DME

OS
CM
BNE
SF
BD
TFM
TFM
BB2

FORTRA~'

PAGE

11-0 LOADER BlOCK 2

2
INRK+24,8,lO

05541

•• 60

05554
05566
05518
05590
05602
05614

055~2

10lND
0+36.10INO
AOOCOW.1I199
AODSWE,lI200

MAINLINE OVERLAP ROUTINE
RCTY
WHY NAMBUF-IO
WNTY INRK+18
WATY OVRMES
RCTY
WATV JOBOUT
MDNCAL
B
DORG 0-3
RCTV
,_-5
DS
WAlY LOMES
WHV NAMBUF-IO
LOAD CARO OR TAPE STORED PROGRAMS
TD
CDTP+2,CDMSEC+13
SM
CDTP+2,I,10
TFM IORT, •• 23"
GET INDICATOR RECORD
IOGT,CDTP-4.7
B
TFM 0+23,INRK
BNR . . 20
B
READ
DORG 0-3
RMCHK+11,I,10
AM
CM
RMCHK+ 1I,INRK+80
BNE RMCHK
INRKH
SF
CF
INRK+2
INRK+3
eF
CF
INRKH
CM
INR~+",413I,8
BNE HEADER
RClY
TF~
IORT,"23
IOPT,TYPE-4,7
B
8
CDORTP
DORG '-3
C
INRK+lhINDCON
BNE READ
BNF READ,INRK+16
TSTYLO
8
DORG .-3
DAe 7,LOAD
LOAD
DAC 9, OVERLAP'
OVERLAP'
DAe 14, JOB ABANCONED'
JOB ABANOCNEO'
Dse 2,02
02

43

16
16

000-8
e1200
COOOO
02461
JlI99
JI200

~2

05616
05628
05640
05652
05664
05676
05688
05696
05696
05702
05708
05720

34
39
38
39
34
39
49

ooooe
02431
074le
06023
OOOOC
C6041
00796

00102
eOl00
00100
00100
00102
C0100
COOOO

34

OOOOC
0
06009
02431

00100
00100

05732
05144
05756
05768
05780
05792
05804
05812
05812

25
12
16

C6280
0628C
00565
00566
058C3
05812
05756

07373
000-1
-5179
-6274
-7400
00000
00000

11 05803
14 ' 05803
47 05792
32 07401
07402
H
33 07403
07404
H
14 07404
47 05964
OOOOC
H
16 00565
49 00532
49 05696

000-1
-7480
01200
00000
00000
00000
00000
OM131
01200
00102
-5955
-6387
00000

24

06261
01200
07416
00000

0582~

05836
058~8

05860
05872
05884
.05896
05908
05920
05932
05944
05956
0596~
0596~

05916
05988
06000
06008
06009

39
39

~9

16
~5

49

47
44
~9

07413
05H6
05756
04390

eCI02

2

06023

9 X

06041

14 X

06068

59U

14
41
32

2
07424
05614
02461
05614
02450
02472

1620 MON ITOR II

VERSIO~

2

FORTR~~

11-0 LOAtER BLOCK 2

PAGE

03120

OSA

O~EOOA

0607~

03130

DC

1, '

06074
06075

-6076
1

06076

1~

031~C

O~EOOA

03150
03160

CO~

03170
03180
03190

OOA t 1,0,1, INRk
1-0000-01-7400
DC
1, '
DSC
22
DSA

03200
03210 EXT
03220
03230

06091

1, '

-610C
1

OOA ,1,19663,I,COMSEC
lJ9663-01-7300
DC
I, '

06100

14

DSC
2K
DSA

06115

,

2,-22

06121

1,'

06121
06122

-6124
1

06124

1~

,

DSC
02
OSA

06114

ExTDOA

03240 UTDOA DDA .1.19783.3,0
lJ9183-03-0000
03250
DC
I, '

03270

5 X

06097
06097
06098

DC

03260 INC

06090

CO~OOA

DC
CO~OOA

2.22

5 X

06138

2,02

06139

INCDOA

06145
06145
06146

5 X
-25C6
1

03280

DC

1,'

03290 EQU

OSC
22
DSA

2,22

061~7

EQUDOA

06153

I, '

06153
06154

-6156
1

06156

14

03300

,

03310

DC

03320 EQUOOA ODA ,1,O,4,SUBTBL
1-0000-04-2522
03330
DC
I,'
03140 SVE
03350
03160

DSC
D2
DU

DC

5 X

06170

2,02

06171

SVEDDA

06177

1,'

06177
06118

5 X
-249C
1

591
PAGE

1620 MONITOR II VERSION 2 FORTUN 11-0 LOADER BLOCK 2
03370 INCR
03380

03390
03400

Ol~

OHIO
03420

DSC
22
DSA

06119

2,22
DDAR,O

06185

DC

I,'

D6185
06190
06191

DSC
22
DSA

2,22

06192

OIMDDA

06198

I,'

06198
06199

-620C
1

06200

14

DC

,

,I,4800,I,INRK
03430 D INDDA DOA
1-'UOO-01-7400
03440
DC
I,'

,

03450 ERMESS OAC 10,ERROR
ERROR L
03460 lERONE DC
6,100001
JDOOOI
03470 DIMSVE DSS 20., RESERVES CURRENT DIM ENTRY
01480 INDCON DC
INDICATOR RECORD CONSTANT
6,981898"
R878"
03490 MLLGTH DS
5" LENGTH OF ~AINlINE PROGUM
03500 CDINP DS
1
DSA
03510 CDTP
INRK
03520

DC

03530
03540 SECCT

2,0

-0
DGM

06211

06242
06267
06212
06213
06218
06218
06280

DC

I, '

06314
06315

03600 BL4

OSC
2K
DSA

2,-22

06316

BL4DDA

06322

D3610

5 X

lC X

2C
5
1
5 X
-740C
2

06281
06283

03590

03510 BL3

1

06241

03580

ONET~O

03560 LOEO

-occe

06214

DC
2.0
-0
DSC 5,00101
00101
DAC 9. LOADED'
LOADED'
DSC 2,-22
2K
DSA BL3DDA

03550

-728C

06284
06291

2

06308
06314

03620

DC

,

I, '

06322
06323

03630 BL6

DSC
2K

2,-22

06324

5 U2

-6332
1

5 X
-6352
1

162C MONITeR II VERSION 2 FORTRAN 11-0

LOA~ER

BLOCK 2

PAGE

03640

oSA

BL600A

06330

03650

DC

I, '

06330
06331

-6312
I

.1,16102.38,3480

06332

14

0]660 BUODA DOA

5 x

IJ6102-38-3~80

03670

DC

6.3534'
-3534'
03680 BL400A oOA ,1,16940,26.3534
IJ6940-26-35H
03690
DC
6,3556'
-')556'
OHOO BL600A OoA ,1,16177,16,2522
IJ6177-16-2522
03110
DC
I, '

03120 TYPE

oSA

oc

03730

06351
14

06352
06371
06312

14

06386

DATA

06391

2,6

06391
06393

6,.OA'"

06394
06397

5 x
-6397
2

-6
03HO
03750 DATA

OG~

oAC

I
6 x

-DATA'

03760 lERoS
03170
03780
03790
03800 .
03810
03820

osc

03830

50.0

00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
oc I, '

03840
03850

,

03860
03870
03880
03890
03900
03910
03920
03930
03940
03950

OSC 50,0
00000000000000000 OOOCO 0000 OOOOCOOOOO 00000 000000000
CSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
oSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
CSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000 DC 00 0 0000 0 000 00000 0000 00 00000000000000000 0

IXIRG 7280
OOAR
DSS 20
CO"SEC DSS 100,. SYSTE" CO""UNICATION SECTOR
INRK
DSS 100. ,
READ IN AREA FOR INOICATCR RECORD
•
BLOCK LOADER
DORG 8000
BEGIN TO
GP"K.19999
TO
5ECCT-2.19999
TO
TVPE+3.19999

06408

50

06458

50

06508

5C

06558

50

06608

5C

06658

50

06108

5C

06758

50

06808

5C

06858

50

06908
07280
07280
07300
07400
08000
08000
08012
08024

2C
100
10C
25
25
25

04773
C6281
06394

34
38
48

oe012
08012
oooec

19999
19999
1~999

593
1620 MONITOR II VERSION Z FORTUN 11-0 LOADER 8LOCK 2
03960
03970
03980
03990 LOADER

SK
WON

LOADER
LOADER

H

04000
04010

DOA .1.16057.45.2424
lJ6057-45-2424
OGM 19999
TCO IIEGIN

04020

OENO

PAGE
08036
08048
08060
08072
19999
08000
00000

14

007Cl
00702
oeooo

10

1620 MONITOR 11 VERSICN
Aceco.
ACCSVE
BLlDOA
8LltOCA
BLbCCA
COORTP
COTPLD
CCMADD
CCMCCA
COM PER
COMSEC
DIMDDA
DIMSVE
OHEDDA
ENTABS
ENIATN
ENltOS
ENTDEO
EN TORR
ENIEXP
ENTFET
ENTFID
ENTREC
ENTSC2

02450
C2412
C6332
06352
C6312
05696
05218
02231
06100
03918
01300
06200
06242
06016
02323
02313
e2303
02298
02293
02253
02283
02273
02218
02258

ENTSC3
ENTSDX
ENTSIN
ENTSQT
ENTSWO
EPRINT
EQAODR
EOSRCH
EOuODA
ER~ESS

EXTDDA
EXIIND
FLGRMK
FOUND 1
HEADER
INCODA
INDCON
JAVENT
JOBOUT
L18SU8
LNKINO
LOADER
MLLGTH
MONtAL

02263

02268
02308
02318

02288
05418

02455
03930
06156
06211
06124
02463

02445
OU98
05964
02506

06261
0353~

06041

02394
03904
08012

06212
00196

FORTRA~

RELFR~

05382

BEGIN
BLl
BLIt
8L6
CUL2
CALL3
CALL4
tAU6
CDINP
CDTP
CLEAR
COMLD
COMP
COM
OATA

08000

DCAR
CIM
DME
ENTLN
EOU
ERML
EXT
FLS8T
FOUND
F

06308

GP~K

06316
06324
05062
05154
05118

INC
INCR
INRK
10GT
IOIND
10PT
10RT
K
LDCDA
LDED
LOMES
lNR
MLINO

02441

02521
OU84
02444

06023
02226

05026
05102

05198
06273
06278

04198
04518
04010
06091
06391

11

PAGE

11-0 LOACER BLOCK
NA~BUF
NCCAU
CNeTWO
CYRUP
CVRMES
PROGST
ROPROG
RELADD

01280

~L

06192

Nl

06068
02248
05616

N2
NXTRO
READ
RECLG

04618
02233
02238
04010
05156
02243

06115

R~CHK

051Q2

05542
0413B
02219
04113
06139
06119
01400
00566
02461
OC532
00565
02221

SCHLD
SECCT
SECT
SVE
TYPE

05038
06283
02466
06111
06391
02240
06408
02460
0491B
02522
02490
04846
04390
06241
02461

06141

~

ZEROS
SCAOOR
SIZEOK
-SUBTBL
SVEODA
IRYSZE
TSTVLD
ZERONE
ZROTST

02414
06291
06009
04610
02462

END OF ONE ASSEM8LY.

595

00010
00020
00030
00040
00050
00060
00010
00080
OD090
00100
00110
00120

00130

......

IOPT
10GT
IORT
MONCAL

F
K
PROGST
COMADD
NI
N2
W
RECLG
ENTLN
ENTEXP
ENTSC2
ENTSC3
ENTSDX
ENTFID
ENTREC
ENTFET
ENISWD
ENTORR
ENTOEO
ENTCOS
ENTSIN
ENTATN
ENISOT
ENTABS

00140
00150
00160
00110
00180
00190
00200
00210
00220
00230
00240
00250
00260
00210
00280
00290
00300
OOllO
00320
00330 LUSUB
OOHO

1620 MONITOR II VERSION 2 FORTRAN II-D LOADER BLOCK
1620 MONITOR II YERSION 2 FORTRA~ II-D LOADER BLOCK 3
DS
,532
,566
DS
,565
OS
,196
DS
COMMUNICATION AREA
DORG 2218
DS
2" FLOATING pOln WORD LENGTH
DS
2" FIXED POINT WORD LENGTH
DS
5" STARTING ADDRESS OF MAINLINE PROGU~
DS
5" STARTING ADDRESS OF COMMON AREA
DS
2" NUMBER OF WORDS IN LOGICAL RECORD
OS
5" NUMBER OF LOGICAL RECORDS
DS
2" WORD LENGTH
DS
3" RECORD LENGTH
DS
ENTRY ADDRESS TD LOG SUBRDUTINE
DS
5" ENTRY ADDRESS TO EXPONENTI AL SUBROUTINE
DS
5" ENTRY ADDRESS TO DOUBLE SUS5CRIPT SUBROUTINE
DS
5" ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE
DS
5" ENTRY ADDRESS TO- FIXED SWITCH 0 SUBROUTINE
DS
5" ENTRY ADORESS TO FIND SUBROUTINE
DS
5" ENTRY ADDRESS TO RECORD SUBROUTINE
DS
5" ENTRY ADDRESS TO FETCH SUBROUTINE
DS
5" ENTRY AODRESS TO SWITCH 0 SU8ROUTINE
DS
5" ENTRY ADORESS TO ARRAY SUBROUTINE
DS
5" ENTRY ADDRESS TO DISK END SU8ROUTINE
OS
5" ENTRY ADDRESS TO COSINE SUBROUTINE
OS
5" ENTRY ADDRESS TO SI HE SUBROUTI NE
OS
5" ENTRY ADDRESS TO ARCTANGENT SU8ROUTINE
OS
5" ENTRY ADDRESS TO SQUARE ROOT SUBRDUT INE
DS
5" ENTRY ADDRESS TO ABSOLUTE SUBROUTINE
DS
10 ••
RESERVED FOR ENTRIES TO ADDED SUBROUTINES
DSS 30, ,LIBRARY SUBROUTINE INDICATORS
DC
1,'

,,,

PAGE

00532

00566
00565
00196
02218
02219

02221
02226
02231
02233
02238
02240
022H
02248
02253
02258
02263

2
2
5
5
2
5
2
3
5
5
5
5

02268

5

02213
02218
02283
02288
02293
02298
02303
0230B
02313
02318
02323
02393
02394
02424

5
5
5
5
5
5
5
5
5
5
10
3C
1

00350
MAINLINE TABLE SEARCH
00360
DORG 2426
00310 NAMBUF DC
16,0

02426
-02441

16

00380

024U

...... ,

00390
00400
00410
00420
00430
00440
00450
00460
00470
00480
00490
00500

-oooooooocoooooo
DC
2,'

OVRLAP OS
FLGRMK DS
ADOCD~ OS
EOAODR DS
SCAD DR DS
!DIND OS
MLIND DS
EXIIND OS
SECT
DS
lROTST OS
ADDsve DS
DC

00510 LOCOA

1
1
5
5
5
1
I
1
3
1
5
1,'

DOA
,1,O,O,SU8TBL
1-0COO-00-Z522

5

02444
02445
02450
02455
02460
02461
02462
02463
02466
02467
02412
02473
02414

59G

14

1620
00520

OC

~ONlToR

II VERS ION 2 FOR1RAN II-D LOADER BLOCK 3

1 ••

PAGE

02488

00530 SVEDOA DDA
.1,0,21,0
1-0000-21-0000

02490

005ltC

DC

1,'

~2504

0055C DATA

DC

I.e

02505

00560 INCODA OOA
.1.0.10.SUB1Bl
1-COOO-l0-2522
00510
DC
1, I

02506

00580 NOOATA os
I
00590 SU81Bl OSS
1000
00600
DC
12,'
-0000000000'
COMSEC.15 .. 10.
BRANCH IF NO lOCAL CARDS
00610 RM1Bl CM
00620
BE
LOOINC
TFM IORT,.+23
00630
00640
B
IOGT,LO.l
TfM
*+23. SUBTBL+ll
00650
BNR *+32,.,
TEST FOR ENO Of ,.8LE
00660 SRCH
00610
TOM
T8L1NOd
,.-2
00680 TBl INC OS
00690
B
LOOINC
00100
OORG 0-3
00710
C
COMSEC+35, SRCH'11.11.
COMPARE NAMES
BE
TBLLO
00120
AM
SRCH.ll.20.10.
INCREMENT TO NEXT ENTRY
00130
00740
B
SRCH
EQUDOA.5.EQlDOR
00150 EQSRCH Tf
00160
Tf
INRK.48.SECT
TfM
IORT,o.23..
READ IN fOUR SECTORS CF EQUIV. TABLE
00110
00180
10GT.EQU.l
B
00190 COMP ER TFM COMP.ll.SUBTBL.ll..
SEARCH EQUIV. TABLE
00800
BNR *.20,COMP+ll,ll
B
EQSRCH-l .. 6
00810
OORG .-]
00820
00830 COMP
C
NAMBUF
00B40
BE
FOUND
00850
AM
COMP'l1,16.l0, I~CREMENT TO NEXT NAME
CM
COMP.ll.SUBTBL.411..
TEST FOR END OF TABLE
00860
00810
BHE COMPER'12
00880 NXTRD CM
INRK'48.0.9,
TEST FOR END OF EQUIV. TABLE
00890
8E
EQSRCH-l .. 6
00900
SM
INRK+48,4,lO,
DECREMENT SECTOR COUNT
AM
EQUOOA+5,4,1~
00910
8
COMPER-24
00920
00930 fOUNO
AH
COMP.ll.4.10,
INCREMENT TO GET OIM NUM8ER
00940
TFM DIMDD"5,4800
00950
S
DIHODA+6,CD'P'11.ll
00960
S
0IMODA'6,COHP'II,11
009TO
TO
SECCT ,OIMDDA+6
00980
READ IN DIM SECTOR
00990
TOM DIMDDA'6 .. 1I
01000
8TH
INCGET. "12

02521
02522
035]3

14

14

02520

03534
~3546

03558
03510
03582
~3594

03606
Olb15
03618
03626
03626
03638

1
lCCC
12
14
46
16
49
16
45
15

01315
05062
00565
00566
036C5
03626
03615

a

coo-O
C 12~0
-3581
-1211
-2533
O~OOO

00001

49

05062

COOOO

24
46
11
49
26
26
16
49
16
45
49

01335
04894
03605
03594
06991
07448
00565
OC566
03165
03T54
0367l

0360N
C1200
CCOKO

03154
03166

24
46

02441

~3178

11

00000
C12CO
COOJ6
-2933
01200
00-00
C1200
000-4
000-4

~3650

03662
03614
03686
0369B
~3110

03122
03734
03H6

coooc

02455
02466
-3121
-6911
-2533
0316N
CCOOO

03754

03190
03802
03814
03826
~3838

11

03874
03165
03165
03134
01448
0361L
01448
06991

49

036~8

coooo

11

03165
01051
01052
01052
06549

000-4
-4800
0316N
C316N
01052

01052
06810

0000-3958

14

41
14
46
12

03850
03862
03814
03886
03898
03910
03922

16
22
22
25

03934
03946

11

15

597
1620 MONI TOR II VERS ION 2 FORTRAN 11-0 LOADER BLOCK 3
01010
SF
£NOTST.ll .. 6,
SET -LOADED- INCICAToR
01020
8TM INCPUT,"12
01030 FOUNDI TFM
IORT,o+23
01040
8
IOGT,DIM,7
01050
TO
•• 22, SECtl
01060
TR
OIMSVE,INRK
01!l10
TO
OMEDOA,OIHSVE
01080
TF
DMEDDA+5.0IMSVE'5
01090
TR
OOAR.OHEODA..
,0VE SECTOR DoA TO PR~GRAM DCA AREA
01100
TFM
IORT,"23 .. READ IN INDICATOR RECORD
01110
8
IOGT,DHE.l
01120
TF
ODAR'B,DIHSVE'8..
HOVE SECTOR COUNT
01130
I NDICATDR RECORD CHECK
01140 TSTVLO C
INRK+13,INDCON..
CHECK FOR VALID INDICATOR RECORD
01150
BE
RELFRH
01160
C
INRK+5,1NOCoN..
CHECK FOR VALIDITY IN CORE IMAGE
01110
BE
."56
01180
8TM EPRINT,15,8
01190
RC TY
01200 INOCON DC
6,981898.0-4
R81898
01210
WAn J080UT
01220
B
MONeAL
01230
DORG .-3
01240
TFM DDAR+l3.1
01250
A
DDAR' 13, AOOCOW
01260
TOM
INOR+l,..
CONVERT DEFINER TO CORE IMAGE
01210
DC
1,' ,.
01280

01290

AM
SM

01300
B
01310
DORG
01320 TRYSlE TF
01330
AM
01340
A
01350
A
TOM
01360
01310
DC

OOAR+S,l,lO.
DOAR+8,l,lO.

INCREMENT 01 SK ADDRESS BY ONE
DECREMENT SECTOR COUNT 8Y ONE

PAGE
03958
03910
03982
03994
04006
04018
04030
04042
04054
04066
04018
04090

32
17
16
49
25
31
25
26
31
16
49
26

04102

24
46
24
46

~HH

~4126

0413B
04150

11

~4162

34

04169

16
21
15

01293
01293
01032

-0001
02450
00000

0423~
~4242

11

01285

12
49

01288
06514
02472
02412
06156
02450
OT423
1

02450
000-1
02412
01422
00000

24
H
22

0245C
06126
0245e

02231
C1300
01422

0435B

15

~4310

34·

C2444
OOCCC

OOOCI
00102

1

04262
~4262

26

04214
04286
0429B
.04310
04321

21
21
15

8

OORO '-3
ROUTINE TO READ INCICA1CR RECORD FRC' CARDS DR TAPE
LOAD CARD OR TAPE STORED PROGRAMS

COMP+24"t

BRANCH TO GET NEXT NAME

0~100

00000

AODSVE,ADDCOW
AODSVE,I,IO
SPROST,AODSVE
ADOCOW,INRK+22
INRK'23

01500
01510
01520

04169
01200
C4169
01200
0-075
00102

06921
00196

'-3

01490

01413
06514
01405
04194
06846
OOOOC
6

39
49

~4254

1,',_

~6962

06961
01280
00565
00566
01288

COOOO
-3982
-4005
-1038
06549
07400
C7082
01081
06962
-4089
-6954
01090

04114
04186
04194
04194
04206
04218
04229

SU8PRO-24

01380
C
AODCOW,COMADD
01390
BL
SllEOK
01400
S
AOOCO~.JNRK.22
01410 ••••••
OVERLAP INDICATION
01420
TD~
OVRLAP,I ..
TURN ON OVERLAP INDICATOR
01430
RCTY
0144C ONETWO OSC 5,00101,*-9
OOIC 1
01450
WArY NAM8UF-l0,..
lYPE PROGRAH NAME
01460
WN TY I NRK+ 18 •• t
TYPE LENGTH
01410
WATY OVRMES,.t
TYPE CVERlAP
01480
80
O.20.EXTIND •• BRANCH IF PROGRA' ON CARDS OR TAPE

0564N
06114
00565
C0566
04028
01082

~4322

04134
04346

11

04372
04382
04394
~4406

04418
04430
04438

598

000-1
COO-1

coooo

5
39
38
39
43
49

02431
0141B
C6909
04H8
03178

00100
C0100
00100

02463
COOOC

PAGE

1620 ~ONlTCR II VERSIC~ 2 FGRTRA~ 11-0 LOADER 8LeCK 3
01530
01540
01550 INC
01560

01570

OORG *-7
OSC
2.02
02
DSA
INCOOA

DC

01580 PHASEC BT'"
TO
01590
SM
01600
Tf~
01610 READ
B
01620
01630
TOM
TFH
01640
01650 GONXT
AM
BNR
01660 ENTST
01670
8
01680
OORG

rFM

01690

04435
04442
04442

H

I ••

J NCGET. * ... 12
CDTP+2.CO~SEC+73

COTP+2,1.l(J
IORT."23 ..

GET INDICATOR RECCRD

IOGT.COTP-4.7
EXTlNO.1

e+35,SUBTBl-9
ENTST+Il.20.10

e+20",

TEST FOR END OF TABLE

REAO
'-3

*+23,lNRK

017eo R~CHK
BNR
e+20
8
REAO
01710
01720
DORG '-3
01730
AM
RMCHK+ll.l.10
CM
RMCHX+II.INRX+80
01740
8NE
RMCHK
01750
SF
INRK+I
01760
Cf
INRK+2
01770
01780
CF
INRK+3
Cf
INRKH
01790
eM
INRK+4.4131,8
01800
BNE
HEADER
01810
RCTY
0182e
WHy DATAl
01830
01840
8
PHASEO
DORG .-3
01850
INRK+13.INDCON..
TEST FOR INDICATOR RECORe
01860 HEADER C
01870
8NE
READ
BNF e+20,INRK+16
01880
01890
BREAD
01900
DORG '-3
C
INRK+25.ENTST+ll,ll.
COMPARE NA~ES
01910
01920
8NE GONXT
01930
TF
NAMBUF.ENTST+ll.ll
01940
AM
ENTST+Il.6,l0
BNF .+32,ENTST+ll,ll
01950
01960
AM
ENTST+II.14.10
01970
B
ENTST
DORG .-3
01980
01990
Sf
ENTST+ll .. 6.
SET -LOADEO- INOICHOR
02000
BTM
INCPUT,"12
B
RElFRM
02010
DORG .-3
02020
FLIP SUBPROGRAM TABLE SEARCH
02030
AM
SRCH+U,3,lO
02040 T8LLO

48

ecccc

04448

5

04448
04449

-2506
1

COOOO

x

06810

-4462

45
49

07108
00565
00566
02463
04557
04557
04566
04486

-4509
-7102
OOOGI
-2513
COOKO
00000
COOCO

16
45
49

04589
04598
04486

-7400

II

0458S

14
47
32
33

04589

33
14
47
34
39
49

04578
07401
074C2
07403
07404
07404
04738
00000
07227
05918

000-1
-7480
C 1200
ceooo
ceooo
ooooe
ceooo
CMl.31
CI200
eOl02
00100
cOOOO

24
47
44
49

07413
04486
04782
04486

04169
e1200
07416
OOOGC

24
47
26

07.25
04534
02441
04557
04862
04557
04546

0455P
Cl200
0455P
000-6
0455P
000J4
OOOCO

49

0455P
06774
C6514

CCOOO
-4886
OCOOO

II

03605

CCO-3

26

07018
03605
07015
00565
00566
05014
05025
05105
05105
05094
05094
00565
00532

-4965
-7001
00000
-2533
02450
000-1
00000
05014
-5061
-7001

33
49

06810
05014
04978

-5074
00000
COOOO

45
49

05114
0554t

COOOO
00000

43

05H6
e5105
05094

GHON
000J8
00000

05105
05398
0502N
05214
C5105
05094

OOOJI
05014
0510N
01200
COO-7
00000

05105
0510N
05025
05105
0510N
05330
0502N
05330
0502N
05378

OOOJI
00000
000-5
000J6
02472
05014
-0000
01200
0510N
00000

05365
05360
00000
053605025
04990

0502N
0510N
-0000
COOOO
000J5
00000

05025
05442
06846
05514

-3533

04450
04462
04474
04486
0449B
04510
04522
04534
04546
04558
04566
04566
04578
04590
04598
0459B
04610
04622
04634
04646
04658
04610
04682
04694
04706
04718
0473C
04738
04738
04750
04762
04774
04782
OH82
04794
04806
04818
04830
04842
04854
04862
04862
04874
04886
04894

17
25
12
16

04894

4,
15
16

II

33

II
44

II
49
32

17

cnce

C7373
CCO-I

coooo
CGOOC

599
1620 MONITOR II VERSION 2 FORTRAN 11-0 LOADER BLOCX 3
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02170
02180
02190
02200
02210
02220
02230
02HO
02250
02260
02270
02280
02HO
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430
02440
02450
02460
02470
02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600

FlPOOA+8. SRCH+lI.11
SRCH+ll.5,10
FlPODA+5.SRCH+Il,LI
IORT.H23
IOGT.FLP.7
COMPAR
COMPAR+II.SUBT8L+II ••
INITIALIZE POINTER
COMPRE+Il.AODCOW
COMPRE+ll.I,IO
COMPRE
COMPRE.COMPAR
IORT'''23
IOPT.FLP.7
IN-CORE SUBPROGRAM TABLE SEARCH ANe LOAD
LOC INC BTM
INCGET,"12
CF
COMPAR
B
COMPAR-36
DORG .-3
COMPRE BNR
SERCH
B
SERCH3
CORC '-3
SERCH BD
o+32.COMPRE+11.11
AM
COMPRE+II.18.10
B
COMPRE
DORC '-3
AM
COMPRHIl.Il.IO
BNF
SERCH2.COMPAR
COMPAR+II.COMPRE+II.611.
CHECK FOR SAME NAME
C
8E
SERCHI
AM
COMPRH I l . 7 .10
8
COM PRE
OORG .-3
SERCH I SM
COMPRE+ll.Il.IO
TOM COMPRE+ll.0.6
AM
C0Jlo1PAR+ll.5,10
AM
COMPRE+ 11,16 .10
A
COMPRE+ I l ,AODSVE.6
8NF
0+56.COMPAR
CM
COMPAR+Il •• 67
BHE
'+32
TF
CaMPAR+ Il.COMPRE+ I l . 61l.
MOVE ADDRESS IN
B
SERCH2-20
DORC '-3
ROUTINE TO PLACE INOIRECT ENTRY ACDRESSES INTC SU8PROGRAMS
TF
0+35.COMPAR+1I.1I
TF
AM
TF
TFM
B
SF
TFM
TF
AM
COMPAR BNR
BNF
TFM
B

......

TF

*.18,COMPRE+ll,11

TFM

•••

SF

*-6,,6

MOVE AODRESS INTO PROGRA~

AM
COMPAR+II.15.10
B
COMPAR-24
DORG '-3
ROUTINE TO LOAC ENTRIES IN IN-CORE SUBPROGRAM TABLE
SERCH2 CM
COMPAR+ll.SUBT8L+10Il
8NE
-+32
BTM EPRINT t 79,e
8
MVADOo2.

PAGE
04906
04918
04930
04942
04954
04966
04978
04990
05002
05014
05026
05038
05050
05062
05074
05086
05094
05094
05106
05114
05114
05126
05138
05146
05146
05158
05170
05182
05194
05206
05214
05214
05226
0523B
05250
05262
05274
05286
05298

05310
05322
05330

11
26
16
49
32
16
26

II
45
44
16
49

17

II
49

II
44

21t
46

II
49
12
15

II

11
21
44
14

47
26
49

05330
05342
05354
05366
05378
05390
05398

26
26
16
32

05398
05410
05422
05434

H
47
17

11
49

49

6 U(I

C360N
OCC-5

a 360N

el200
0-079
00000

1620
02610
02620
026]0
02640
02650
02660
02670
02680
02690
02700
02710
02720
02730
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980
02990
03000
0]010
03020
0]030
03040
0]050
03060
0]070
03080
03090
03100
OHIO
03120
03130
03140
03150

~ONITOR

I [ VERSION 2

FORTR'~

rF~

ENcrs I

INCl3

PAGE

[[-0 LOADER BLOCK 3

DORG .-]
BNR SERCH+56 ,CO"-PAR+ 11,11
COMPARoll, CC~PRE+ II, 611
Tf
AM
COMPAR+ll,5,lO
AM
COMPRE+l1,5,lO
COMPAR+lI, CCMPREoll, 611
~VAOD
TF
A
CO"PAR+ 11, AODSVE, 6
CO,",P/lR+ll.15,lO
AM
COfo'!PRE+ll,2,10
AM
COMPAR
B
DORG .-3
_+44, COMPAR+ 11 t 11
SERC"] 8NR
TOM COMPRE+ 11,,6
BrM
r NCPUT,.+ 12
PHASEB
8
DORG '-3
COMPAR+ 11 ,2().10
AM
COMPAR-24
B
DORG '-3
LOAD D[ SK-STOREO SUBPROGRAMS
PHASEB 8rM
lNCGET.-+12

-+23, SUB'T8L" 11
TEST FOR END OF TABLE

BNR ... 41t, t ,
PROCOW,,9
CM
BNE PHASEC
CALL3
8
OORG . - ]
TF
NAM8UF,ENDTSToII,II
ENDTST+ll,6,10
AM
[NCI3-60,ENO~SToll,11
8NF
ENDTST+ll,l4,l0
AM
ENOTST
B
OORG 0-3
[NCPUT,*+12
BrM
SEARCH EQUIVALENCE TABLE
8TM
EQSRCH y *.l2.,
RETURN IF ENTRY NCT FOUND IN EQUIV. TA8lE
ENDTST+ll,l,lO
AM
8TM
INtGET,"12
BNF ,032,ENDTSTo11,l1
AM
ENDTST+l1,13,10
ENOTST
B
DORG 0-3
TYPE -LOAD NAMERCTY

3.0,*-5
PROtO. DC
-00
WATY lOMES
WATY NAM8UF-IO
BTM
INCGET,"12
ENDTST+,11.,6, SET -TYPED- INOlcnOR
SF
PROCOW,l,IO
AM
BTM
INCPUT,"12
TOM NOOATA,O
[NtH
8
OORG 0-3
tHECK AND TYPE OUT NAMES OF UNLOACED SUBPROGRAMS

05442
05442
05454
05466
05H8
05490
05502
05514
05526
055]8
05546
05546
05558
05570
05582
05590
05590
05602
05610
05610
05622
05634
05646
05658
05670
05678
05678
05690
05702
05714
05726
05734
05734
05746
05758
05770
057B2
05794
05806
05814

45
26
11
11
26
21
11
11
49

05170
0502N
05025
05105
0502N
0502N
05025
05105
05014

0502N
0510N
000-5
000-5
0510N
02472
000J5
000-2
00000

45
15

0559C
0510N
06774
0561C

0502N
00000
-5582

05025
04990

OOOKO
00000

06810
05645
0567e
0582C
04450
0597B

-5622
-2533
COOOO
00-00
01200
COOOO

11
49

02441
05645
05734
05645
056]4

0564N
000-6
0564N
000J4
COOOO

17
17

06774
03674

-5746
-5758

11

05645
06810
05814
05645
05634

OCO-I
-5782
0564N
000J3
OCOOO

17
49

11
49

17
16
45
14
47
49
26
11

44

17
44
11
49

oeooo

05814
05820

34

OOOOC
3

CO 102

05B26
05838
05850
05862
05874
05886
05898
05910
05918

39
39
17
32
11

0712~

COIOO
00100
-5862
CCOOO
000-1
-5898
00000
COOOO

17
15
49

C2431
06810
0564~

0582C
06174
02521
05794

, "\
1620 MONITOR II VERSION 2 FORTUN 11-0 lOADER BLOCK 3
03160
03170
03180
03190
03200
03210
03220
03230
03240
03250
03260
03270
03280
03290
03]00
03310
03]20
03BO
03340
03350
03360
03370
03380
03390
03400
OHIO
03420
03430
0]440
03450
03460
03470
0]480
03490
0]500
03510
03520
03530
03540
03550
03560
03570
03580
03590
03600
0361C
03620
03630
03640
03650
03660
03670
03680
03690
03700

PHASEC TOM
TF~

CALL]

MORE

TOM
8NR
80
TFM
B
TF
AM
BNF
AM
B
OORG
TOM
OS
ReTY
TOM
WAfY
WATY
8
DORG

OATA,I
++ 35, SUB TBl 011
MORE

*+1t8
PHASEC-12,MCRE

IORT,*+23
IOGT,8l3,7
NAMBUF,PHASEO+41,11
PHASED+H,6,10
'+32,PHASED047,11
PHASED041,14,10
PHASE0036
.-3
"ORE,I
• *-2
OATA,O
lDMES
NAMBUF-IO

.-80

'-3
S IZEOK 80
++24,OVRLAP
8NCI .+96
RCTY
,_-5
SPROST OS
WATY NAfI!BUF-IO., t
TYPE OUI NAME
SPTY
WNTY AODSVE-4
SPTY
SPRST OS
,*-5
WNTY INRK+18" ,
TYPE OUT LENGTH
WATY LDEO
LOAD PROGRAMS ROUTINE
TF
INOR+11,AOOSVE
80
.024,EXTINO
TF
ENTST+ I1,ENDTST+ 11
SM
ENTST+ll,l,IO
TF
.ota,ENTSTol1.11
Tf
ENTST+ll, SPROST ,6
ROPROG BD
COTPLO,EXTINO"
8RANCH IF PROGRAM IN CARD OR TAPE
SCHLO
TFM
IORT,*+23,.
GET PROGRAM FROM D[SK
8
IOGT,INOR,7
B
RMTel
OORG 0-3
ROUTINE ro LOAD PROGRA~ FROM CARO CR TAPE
COTPLO TOM 416
DC

~LLGT~

,

1,',.

TO
SF
OS
eF
TF
SF
TF
TFM

428,CQ"SEC+7)
428

"

429
4-34.AOOSVE

489
COMSEC+ge,INRK+19
IORT,.+23"
PUT BACK CCMMUNICAIICN SECTOR

PAGE
05918
05930
05942
05954
05966
05978
05990
06002
06014
06026
06038
06050
06058
06058
06067
06070
06082
06094
06106
0611B
06126
06126
06138
06150
06156
06162
06174
06186
06198
06204
06210
06222

15
16
15
45
43
16
49
26
11

06234

26
43
26
12
26
26
43
16

06246
06258
06270
06282
06294
06306
06318
06]30
06342
06350

49

02505
05965
06061
06002
04438
00565
00566
02441
05965
06058
05965
05954

44

11

COOOI
-2533

oooeo

COOOO
06067
-6001
-7142
0596N
OCO-6
0596N
QOOJ4
COOOO

15

06067

00001

34
15
39
39
49

OOOOC
02505
07129
02431
0603e

00102
COOOO
00100
OOIOC
CCOOO

43
47
H

06150
06234

02444
00100
00102

39

34
38
34
38
39

~9

49

a

ooooe

C
02431
00000
02468
OOOOC
0
01418
07111

00100
00101
COIOO
00101
COIOO
00100

07036
C6270
04557
04557
0630C
0455P
0635C
00565
00566
03534

02472
C2463
C5645
CCO-I
0455P
06156
C2463
-6341
-7025

ceooo

06350
06361

15

00416
I

00000

06362
06374
06385
06386
06398
06410
06422
06434

25
32

00428
00428

07373
00000

602

C

B

C042~

ccooc

26
32
26
16

00434
00489
07398
00565

02412
00000

07479
-6457

6

162C
B
03710
TFM
03720
03130
B
SM
0374C
03750
TOM
03760
B
03770
OORG
03780 RElFRM TOM
03190
OC

~ONlTeR

IORT,·"23"

PAGE

II VERSION 2 FORTRAN 11-0 LOACER BLOCK 3

IOPT ,COM, 7
GE I PRe GRAM

IOGT,EXT,1

PROCOW,l,lO
EXlIND
RMT8l
·-3
INRK+80

1,' ,*

[NRK,]NRK+8,t MOVE INDICATOR RECORD TO CONFORM TO CARO IMAGE
TR
CF
427
2,0,DO
-0
TFM
1,39,15
03830
TFM 00AR+13.99999
03840
TF
03850
SPROST .INRK+31
03860
AM
SPROST.6.I0
03870 5U8PRO C
TEST FeR EQUAL
INRK+24,f"
.+]6
038BO
BNE
03890
TEST fOR EQUAL
C
INRK+26,K"
03900
BE
·+ZIt
03910
BTM
EPRINT,76.8
03920
UPDATE SU8ROUTINE TA8LE
TFM
MOVE+ 11, INRK+31"
03930
TFM MOVE+6.ll BSUB
03940
OF
MOVE+7
03950 5UBOIG BO
MOVE.MOVE+ll.ll
MOVE> 12
03960
B
03970
DORG ·-3
039BO MOVE
TO
03990
MOVE+ll. ZERONE
A
04000
CM
MOVE+6, L 18SUB+30
04010
BE
TRYSZE
04020
SUBOIG
B
IORT,-+23
04030 INCPUT TFM
IOPT,INC,7
04040
B
04050
B
INCPUT-I •• 6
04060 INCGEl TFM
IORT.-+23
04070
B
10GT.INC.l
04080
INCGET-I .. 6
B
ERROR MESSAGE SUBROUTINE
04090
04100 EPRINT TF
ERMESS+16.EPRINT-1
RO TV
04110
6,100001,--4
04120 lERONE DC
JOOOOI
WAH NAMBUF-IO
04130
04140
WAH ERMESS
TOM
SVEOOA-I.I
04150
04160
BB
04170
OORG .-9
04180 OVRMES OAC
9. OVERLAP'

03800
03810
03820 SEce T

06446
06458
06470
06482
06494
06506
06514
06514
06525

49
16
49
12
IS
49

00532
00565
00566
05820
02463
03534

-7193
-6481
-7170
000-1

15

07480
I

00000

06526
065)8
06549

31
33

07400
OOUl
2

074C8
00000

06550
06562
06574
06586
06598
06610
06622
06634
06646
0665B
06670
06682
06694
06706
06714
06714
06726
0673B
06750
06762
06774
067B6
06798
06810
06822
06834

16
16
26

0043~

-0075
R9999
01431
000-6
02219
01200
02221
01200
0-076
-7437
-2394

oecoo
OCOOO

16
16
33
43
49

07293
06156
06156
07424
06646
01426
0665e
06B46
06725
06720
06721
067H
06726

25
21
14
46
49
16
49
49
16
49
49

00000
06725
0672C
04262
06694
00565
00532
0617L
00565
00566
0680R

OCOOO
C6865
-2424
C 1200

06846
06858
06B65

26
H

07019
OOOOC
6

06845
00102

06870
06882
06894
06906
06908
06909

39
39
15
42

02431
07063
OH89
00000

CCICO
00100
ceool
00000

II
24
47
24
46

11

ocooo
C672N

coooc

ceooo

-6191
-4442
COOOO
-6833
-4442
00000

9 X

OV~RLAP'

06921

04190 J080UT OAC
14.JOB ABANDONED'
JOB ABANDONED'
04200 OME
OSO
2.22
22

14 X

06954

603
1620 MONITOR II VERSION 2 FORTRAN 11-0 LOADER 8tOCK 3

PAGE

04210

OSA

OMEOO.

06960

04220

DC

I ••

06960
06961

-6962
I

04230 OMEOOA OOA
.1,O,leINRK
1-0000-01-7400
04240
I ••
DC

06962

14

04250 EQU

06977

04260

04210

OSC
22
OSA

DC

06976

2.22
EQUOOA

06983

I ••

06983
06984

-69B6
I

06986

14

042BO EQUOOA OOA
.1.C,4,SUBTel
1-0000-04-2522
04290
I ••
DC
04300 FL.P

5 X

07000

2.22

01001

FLPOOA

07001

I ••

07007
07008

-1010
1

04330 Fl PODA DOA
.l.O,O.SUBlBl
1-0000-00-2522
04340
I ••
DC

07010

14

04350 INOR

07025

04310

04320

OSC
22
OSA

5 X

DC

04360

OSC
22
OSA

5 x

07024

2.22
DDAR.O

07031

5 x

04370

DC

I ••

07031
01036
07037

04380 OIM

OSC
22
OSA

2.22

07038

DIMOOA

07044

I ••

07044
07045

-7046
I

07046

14

04390

044CO

I

DC

04410 o IMOOA OOA
,l,4800,l,JNRK
1-4800-01-7400
04410
I ••
OC
Olt430 ERMESS OAC
10.ERROR L
ERRCR L
0444C OIMSVE OSS
20" RESERHS CURRENT
04450 COTP
OSA
INRK

-72BC
-0000
I

5 X

07060

Ol~

ENTRV

07063

IC X

07082
07106

20

07106

-740e

60

If

5 x

1620 MONITOR II VERSION 2 FORTRU 11-0 LOAUR BLOCK 3
04460

DC
-0

04470
04480 LOED
04490

LD~ES

04500 BL3
04510
04520

2,0

DG~

DAe 9, LOADED'
LOADED'
OAe 1,LOAD
LOAD
DSC 2,-22
2K
OSA BUOOA

,

DC

1, '

04530 BL30DA DDA ,1,16940,26,3534
LJ6940-26-3534
04540
DC
6,3556'
-3556'
04550 EXT
DSC 2,-22
2K
04560
DSA ElTOOA

PAGE

07109
07111
07129

7 X

07142
5 X

07148
07148
07149

-715C
1

07150

14

07169
07110

2

5 X

07116
07116
07111

-1178
1

04580 EXTOOA aDA .1,19183, :J.O
LJ 9783-03-0000
04590
DC
10'

07178

14

04600 COM

04570

DC

1, '

,

07192

2,22

07193

COMOOA

07199

1, '

07199
07200

-7202
1

04630 CDMOOA OOA ,l,19663,l,COMS£C
LJ 9663-0 1-1300
04640
DC
1,'

01202

14

04650 LO

01217

04610
04620

OSC
22
OSA

DC

04660

OSC
22
OSA

04670

DC

04680 OATU

OAC

04690
04100
04710
04120
04730
OH40
04150

2,22

5 x

07216

LOODA

01223

1, '

07223
07224

-2474
1

07221

6

07280
07280
01300
01400

2C
100
10C

6,_0"A'
-DATA'

DORG 7280
DOAR
DSS 20
COM SEC OSS 100 •• SYSTEM COMMUNICATION SECTOR
INRK
DSS 100 ••
READ IN AREA FOR INDICATCR RECORD
•
8LDCK LOADER
DDRG 8000
COTP.3,19999
BEGIN TO

10

07108

08000
08000

5 x

25

01109

34
38
48

08048
08048
OOOOC
14

19999

Gu5
1620 MONITOR II VERSION 2 FDRTUN 11-0 LOADER BLOCK 3
04760
04170
OH80
04190 LOADER

PAGE
08012
08024
08036
08048

04800
04atO

SK
LOADER
WON LOADER
H
DOA ,1,16102,38,3480
LJ 6102- 38- 34 80
OGM 19999
TCO BEGIN

OU20

DENO

00000

19999
08000

GoG

C0701
C0702
COOOO

11

162C
ACCCOW
AOOSVE
BUOCA
CCTPlD
CO~AOO
CC~ODA

CC"PAR
C["PER
CC,.,PRE
CC"SEC
DI~DCA

OIMSVE
C"EDOA
HOTST
E~TABS

ENTATN
ENTCOS
ENTDEO
EN TCRR
EN TE XP
ENTFET
ENTFIO
EN TREC
ENTSC2
ENTSC3
ENTSDX

~ONITCR

02450

II VERSICN

ENTSIN
HTSQT
ENTSWC
EPRINT
EQADDR
EQSRCH
ECUOD.
ER"ESS
EXTDDA
EHIND

C2472
C1I50
C635C

02231
01202
05014
03722
05094
C1300
07046
01082
06962
C5634
C232J
C2313
C2303
02298
02293
02253
02283
02213
02278
02258
02263
02268

ELGR~K

ELPDDA
FOUND I
HEADER
INCDOA
INCGET
INCPUT
INOCON
JOeOUT
L18SU8
lOADER
lOOINC
MllGTH
MONCAL
NAMBUF
NCOATA

FCRTRA~

02308
02318
02288
06846
02455
03614
06986
01063
01178
02463
02445
01010
03982
04138
02506
06810
06114
04169
06921
02394
08048
05062
06385
00796
02441
02521

PAGe

11-0 LOACER BlOCK
ONETWC
(VRlAP
CVR~es

PHAse8
PHASEC
PHASED
PRCCDW
PROGST
ROPROG
RElFR~

BEGIN
813
CALl]
CDTP

ceMP

COM
DATAL
DATA
ODAR
O[M
DME
ENr~N
ENT T
EQU
EXT
FlP

04372

FOUND
F
GCNXT
INCI3
INC
INDR
INRK
10CT
IOINO
IOPT
10RT

02444
06909
05610
04450
05918
05820
02226
06306
06514
08000
01142
05978
01106
03154
01193
01221
02505
07280
01038
06954
02248
04546
06977
01170
07001

K

lOODA
LDEO
LOHS
LD
ML [NO
MORE
MOVE
MVAOO
NI
N2
NXTRO
READ
REClG
RMCHK

12

03814

R~TBl

02219
04534
05194
04442
07025
01400
00566
02461
00532
00565
02221
02414
07lll
01129
01211
02462
06061
06114
05490
02233
02238
01814
04486
02243
04518

SCHlD
seCCT
SECT
SERCH
SPRST
SRCH
TellC

•

SCAOOR
SERCH I
SERCH2
SERC>'3
SIZEOK
SPROST
SU80 I G
SU8PRO
SU8TBl
SVEOD~

TBLI NO
TRVSZE
TSTVlD
lERONE
ZROTST

END GF ONE ASSEMBLY.

6117
1620 MONITOR I [ VERSION 2 FORTRAN 11-0 lOADER 8LOCK
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130

NI
N2
W
RECLG
10RT
IOGT
10PT
L18SU8
COMADO
MONCAL
NAMBUF

00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260

OVRLA P Os
FLGRMK Os
AOOCO~ OS
EQADOR as
SCAODR as
IOIND OS
MLIND os
EXTINe os
SECT
OS
ZROTST OS
AOOSVE as
OC

00270 LOOOA
00280

1620 MONITOR I [ VERSION 2 FORTRAN 1[-0 lOADER 8l0CK "
OS
,2233
OS
,2238
,2240
OS
OS
. ,2243
OS
,565
,566
OS
OS
,532
OS
,2394
OS
,2231
,796
OS
OORG 2426
DC
16,0
-000000000000000
DC
2,'

"

PAGE
02<33
02238
02240
02243
00565
00566
00532
02394
02231
00196
02426
02HI

16

02443

1
1

02444
02445
02450
02455
02460
02461
02462
02463
02466
02461
02412
02413

5
5

5
1
1
1
3
1
5

I, '

OOA
,1.0,0,0
1-0000-00-0000
OC
1, '

02414

14

02488

00290 SVEOOA OOA
.1,Q,21,O
1-0000-21-0000
DC
I, '

02490

14

00300

02504

00310 DATA
OS
00320 [NCDOA ODA
,1,0:'0,0
1-0000-00-0000
00330
OC
I, '

02505
02506

00340 NOOATA OS
1
00350 SUBTBL OSS
1000
00360
12,'
DC
-0000000000'
00310 LNKAOO DS
5
00380 flPOOA DDA
,1,O,O,SUBTBl
1-0000-00-2522
I, •
00390
DC

02521
02522
03533

I
100C
12

03538
03540

5
14

I
14

02520

,

03554

00400
LIBRARY SUBROUTINE lCACER ROUTINE
00410 USUBA CF
PTRS. I
PTRS+6
00420
CF
00430
BNF -+24, WINO
00440
TFM llBOOA+5,4834

03556
03568
03580
03592

6US

13
~4

0562e
05633
03604

16

05613

33

00000
00000
C2461
-4834

03534
0631"
06549
o24ll6
051\4
06204
03594
04894
02240
02460
05214
05398
05546
06126
06156
066Q4'

0659B
02522
02490
03615

04262
04102

C6e65
02461

1620
00450

TFM

OOltt:O

8

00410
BD
00480
S
00490
CM
00500
BE
00510
B
00520
DORG
00530
CM
00540
8L
00550
CM
00560
BH
00510
TOM
BNR
005BO
AM
00590
00600 EMPTYS OS
00610
S
8
00620
00630
DORG
00640
AM
00650
TF
00660
AM
00670
TF
006e0
AM
00690
A
00700
AM
00110
TF
00720
C
00130
8NL
OOHO
TFM
00750
A
00760 OT~LO SM
SM
00710
00780
TOM
CM
00790
00800
8NE
00810
SM
00820
C
00830
BL
008ltO
TO~
00850
TF
00860
SM
00870
80
00880
BNCI
00890 SUBBUF RCTY
00900
DC
00910
00920
00930
00940
00950
00960
00910
00980
00990

.

CI~CT

WNTY
SPTY
OS
80
WNTY
TF
SPTY
WNTY
80

~ONI

TCR II VERS ION 2

IORT,*+23"

FORTRA~

IOGT.LIB.l

.+56, PTRS,ll.
BRANCH IF SUBRGUTINE FOUND
PTRS+I0,PTRCON. t
DECRE~ENT POINTERS TO NEXT ENTRY
PTRS,L1BSUR-1
RMTBL
.-48
.-3
PTRS, L1BSU805
."48
PTRS.L1BSUB07
_+24
ZROTST.l

*+44,PTRS+l0,ll
EMPTYSol,1l0

,.-3

PTRStlO.PTRCON .. DECRE~ENT POINTERS TO NEXT ENTRY
.-36
.-3
PTRSol0.8.10
lIBODA+8, PTR 5+10.11
PTRS010.5,lO
ADOSVE.ADDCOW
ADOSVE.l.10
INCREMENT ADDRESS COUNTER BY LENGTH
AOOCOW.PTRStlOoll.
PTRSol0.5.10
o IMCT .PTRSOl0.11
EMPTYS.OIMCT
SUBMIS
EMPTYS.0.l0
PTRS.OIMCT
PTRS.1010
DIMer.lolD

PlRS.I,6
OIMCT
OIMlO
PTRSo10,5.10
ADOCOW.COMADD

e+24
OVRUP.1
CALCULATE
SU88Uf06,PTRS"
SUBBUFo6.L1BSU8-1
. . 24.0VRLAP
LBSU81

SU8~OUTINE

NUMBU

1,' ,*-4
SUBBUF., ...

TYPE OUT SU8ROUTlNE

NUM8E~

,.-5
"24.0VRLAP
ADOSVE-It
SU88Uf06.PTRSHO.ll,
SU88UF+2, ..
. . n.OVRLAP

PAGE

II-D LOADER BLOCK 4

GET SUBROUTINE elM ENTRIES 16 SECTORS

MOVE ADDRESS INTO 8UFFER

TYPE OUT LENGTH OF SU8ROUTlNE

03604
03616
0362B
03640
03652
03664
03676
03684
03684
03696
03108
03720
03732
03144
03756
03164
03168
03780
03788
03788
03800
03812
03824
03836
03848
03860
03872
03884
03896
03908
03920
03932
03941t
03956
03968
03980
0399Z
04004
04016
04028
04040
04052
04064
Olt076
Olt088
Olt095

16
49
43
22
14
46
49

00565
00566
03684
05611
05627
04588
03628

-3627
-5595
0562P
05649
-2393
e1200
eoooo

14
47
14
46
15
45
11

05627
03744
05627
03744
02461
onB8
03764
0
05637
03744

-2399
01300
-2401
01100
00001
0563P
-00-1

05631
05616
05637
02472
02H2
0245C
056]1
04118
03764
05798
03764
05627
05627
Olt1l8
0562P
04118
03932
05637
02lt50
Olt04O
02444
04094
04094
04088
04260
00000
1

000-8
0563P
000-5
02450
000-1
0563P
COO-5
0563P
04118
01300
000-0
04118
000-1
000-1
00001
-0000
01200
'000-5
02231
01300
COOOI
05627
-2]93
02444
00100
COI02

Oltl00
04112
04118
04124
Olt136
Olt148
Olt160
04172
04184

38
lit

COIOO
C010l

43
38
26
34
38

Olt093
OOOOC
C
04148
02lt68
04094
OOOCO
04090

It]

04216

39
49

0566~

04260

00100
00000

39
22
12
49

05651
0245C
05631
03616

COIOO
0563P
000J3
00000

05637

000-5
0563P
000-3
0563P
05613
000-5
0563P
05608
-4379
-5686
-7408
00000

22
49
11
26
11
26
11

21
11
26
24
46
16
21
12
12
15
14
47
12

24
41
15
26
12
H
47
34

05649
00000

02444
oOloe
0563P
00101
00100
02444

609
1620 MONITOR 11 VERSION 2 FORTRaN 11-0 LOADER BLOCK 4
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
01110
01120
01130
01140
01150
01160
01170
01180
0\190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
0\340
0\350
01360
01370
01380
01390
0\400
011tl0
01420
01430
01440
0\450
01460
01470
014BO
01490
01500
01510
01520
01530
01540
01550

WATY LOED
8
LBSU81
DORG .-3
WATY OVRMES
S
AODCOW.PTRSHO.ll, RESET AODRESS COUNTER
SM
PTRsol0.13.10.
CORRECT DIM POINTER
8
LBSU8Ao60 ...
BRANCH TO CHECK NEXT ENTRY
DORG .-3
LBSUBI SM
PTRSol0.5.10.
DECREMENT Ol~ TO SECTOR COUNT
TF
l18DO . . 8, PTRso10 .11.
MOVE I N SECTOR COUNT
SM
PTRS+l0,3.10.
DECREMENT DIM TO DISK ADDRESS
TF
1I8DDA+5.PTRS+10.11.
TUNS FER DISK ADDRESS
TF
DMEDO . . 5.L18DO. . 5 ..
SET UP ONE SECTOR DDA
SM
PTRSHO.5.10. DECRE'ENT TO DISK DRIVE CODE
TD
UBDDA, PTRSHO.ll.
TUNS FER DR IVE CCDE
TO
OMEODA,L1BDDA
TFM IORT.·.23,. GET ONE SECTOR OF SU8ROUTINE
8
10GT ,DME, 7
TFM e+23.INRtc+a
LBSUB2 8NA RELOC
TF
99.PTRS05
A
99.INRK07
TD
e+35,99.11. SAVE OIGIT TO 8E OVERLAYED
TR
PTRS+5.1NRK+8.,6,
LOAD ENTRY ADDRESS
TOM 99,,6, RESTORE DIGIT
TF
LI8HloAOOSVE
TFM 1I8DOAH3.99999
CF
427
TFM 439
TFM IORT,·.23"
LOAD SUBROUTINES
10GT,UB,?
8
8
L8SU8A+84
OORG .-3
RELOCATE ENTRY ADDRESSES
RELOC AM
L8SU82011,4.10
A
L8SUB2H1.AODSVE ,6.
RELOCATE ADDRESS
AM
LBSU82011.1,10
l8SU82
8
DORG .-3
RMTBL CM
COMSEC075 .. 10.
8RANCH IF NO LCCAl CARDS
8NE .+48
CALl6 TF
INRKH.INCOOh5

......

SRCH

TF~

IORT,*+23

8
80
TFM
8
TFM
BNR
B
CORG
C
BE
AM
B
CORG

IOCT.BU.7
CALL6.0VRUP

IORT.*+23
IOGT.LD.7
"23, SUBTBlHI
TEST FOR END OF TABLE
*+20 •••
CALL6
.-3
CO"SECo35,SRCHoll,11
THLLO
SRCH+ll.20.IO,
INCREMENT TO NEXT ENTRY
SRCH
--3

PAGE
04196
04208
04216
Olt216
04228
04240

Olt252
04260
04260
04272
04281t
04296
04308
Olt320
01t332
Olt344
04356
04368
0 ... 380

04392
04404

04416
04428
04440

04452
Oltlt64

Olt416
04488
04500
04512
04521t
04536
04544

045lt4
04556
04568
04580

04588
Olt588
04600
04612
04624
04636
04648
04660
04672
04684
Olt696
Olt708
04716
Olt716
Olt728
04740
04752
04160

6 J 1I

12
26
12
26
26
12
25
25
16
49
16
45
26
21
25

II
15
26
16

33
16
16
49
49
11
21
11
49
14
41
26
16
49
43
16
49
16
45
49
24
46

11
49

056\6
05637

05613
05699

05637
05608
05694
00565
00566

04403
04544
00099
00099

Olt463
C563K
000,9R
05606
05621
00427
001t39
00565
00566
03640
04403
OHOL
04403

04392
07375

05632
07 33 00014 00000
,00000
002&0
TFM
00186 J6 00041 -0000
ANS
TF
ZOT+6
,BRINST +6
00198 KO 00472 00216
00270
00280 BRINST B7
00210 M9 00210 00000
00290 L3
M
03
,K
,11
00218 23 00034 0003R
00300
87
COLECT
00230 M9 00430 00000
00310 l2
02
00238 23 00024 0002R
M
.J
.11
00320
87
COLECT
00250 M9 00430 00000
00330
01
M
,11
00258 23 00014 00D1R
.1
00340
B7
COLECT
00270 M9 00430 00000
A
00350
ANS
,04
00278 Kl 00041 00009
MM.
00360 X
ANS
.00
,10
00290 J3 00041 000-0
00370
MF
Y
,99
00302 PI 00374 00099
00380
MA
YX+11
,BASE
00314 PO 00409 00004
00390
TO
BASE
,RECMK
00326 25 00004 02403
00400
TR
,BASE-4
*+31
00338 Ll 00369 00000
00410
MA
*+23
.99
00350 PO 00373 00099
00420
BlXM *+12
,7
00362 00 00374 -0362
,*
00430
A
99
,Y X+ 11
00374 2J 00099 00409
MF
00440
99
,Y
00386 7J 00099 00374
00450 YX
SF
95
,7
00398 3K 00095 -0398
,*
00460
AM
ENTRY2-1 ,DO
,10
00410 Jl 00005 000-0
00470 EXIT
67
ENTRY2-1
,6
00422 M9 OOOON 00000
00480 COlECT MA
t 00099
*+23
00430 PO 00453 00099
AM
00490
ANS
,00000
00442 Jl 00041 -0000
00500
AM
,00020
00454 Jl 00472 -0020
*+18
00510 lOT
87
00466 M9 00466 00000
00520 ANS
,ENTRY3-1
00041 00000
DS

..

.

642

PAGE
00530 KK
00540 WK ARE A
00550 BASE
00560 04
00570 01
00580 1
00590 02
00600 J
00610 03
00620 K
00630

OS
OSS 42
DS
OS
OS
OS
OS
OS
OS
OS
DENO

02221 00000
00000 00042
00004 00000
00009 00000
00014 00000
00019 00000
00024 00000
00029 00000
00034 00000
00039 00000

,02221
,00000
,WKAR EA+4
, WKAREA+9
,WKAR EA+ 14
,I~KAR

EA+ 19
,WKAREA+24
, WKAREA+29
,WKAREA+34
, WKAREA+39

00002

643
PAGE
00010*
0002000030 AOR

00040
00050
00060
00070
00080
00090

OSA

OORG
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
W
OS
OS
N2
Nl
OS
K
OS
F
OS
CORSIl OS
EEX IT
CHECK
INOUT
lOCAL
IOR8C
IORT
010
IOSK
INOS
ERRET
IOERR
IOGT
IOPT
FAC
o IOOOA
FINOIN
FP2
FKOOO
PAR
ERROR
EI
FIXENO
FlTENO
FLOAT
OKOATA
FIX
REClG

00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
0038000390 NOWlC
00400
00410
00420 OUT
00430
00440
00450 AlTEST
00460

FORTRAN II-o OK 10

OSC
OSA
DC
BV
A
882
TOM

VARIABLE

SWOFX ,F I NO, RECORD, FETCH, SWD, DRAY, DIOENO

AOR-4
.1636
.1268
,629
t 716
,520
,565
,820
,554
,610

,602
.630
,566
,532
,2492
.2821
.2915
.3052
,2961
.3843

,2984
.2615
,3068
.3118
,3998
.2813
,3854
.2243
.2240
.2238
.2233
.2221
.2219
t 7376
2,02
OIOOOA
1,@
*+12
8E2+20

,BE2+23

FINOI N

,)

fIND+IZ

,11,

00004 00005 -0058
00009 00005 -0282
00014 00005 -0616
00019 00005 -0580
00024 00005 -0498
00029 00005 -0222
00034 00005 -0552
00000
01636 00000
01268 00000
00629 00000
00716 00000
00520 00000
00565 00000
00820 00000
00554 00000
00610 00000
00602 00000
00630 00000
00566 00000
00532 00000
02492 00000
02821 00000
02915 00000
03052 00000
02967 00000
03843 00000
029810 00000
02615 00000
03068 00000
03118 00000
03998 00000
02813 00000
03854 00000
02243 00000
02240 00000
02238 00000
02233 00000
02221 00000
02219 00000
07376 '00000

00000
00006
00007
OOOOB
00020
00032
SET FIND INDICATOR OFF
00034
00046

00002
00005 -2821
00001
M6 00020 01400
KJ 00434 00437
42 00000 00000
15 02915 OOOOJ
M9 00294 00000

644

PAGE 10
00470
00480
00490
00500
00510
00520
00530
00540
00550
00560
00570
00580

SWDFX

FECH

RECD
MYER

TO
TFL
SF
B7
TO
TFL
87
TO
TFL
B7
BI
BI

00590
00600
00610 TOB8
00620 DRAY

B7
TF
B
TOM

00630

BO

00640

BD

00650
00660
00670 FINO

TFM
B
TOM

00680
00690
00700
00710
00720

SF
BNV
CF
BD
TFM

SWD-l
SWD-2
SWO-1

,SWOFX-l

00058 KN 00497 00057
,SI~DFX-2
00070 -0 00496 00056
00082 L2 00497 00000
swe
00094 M9 00498 000.00
FINO-I
,FETCH-l
00102 KN 00281 00579
FINO-2
,FETCH-2
00114 -0 00280 00578
FETCH+l2
00126 M9 005n 00000
FINO-l
,RECORO-1
00134 KN 00281 00615
FIND-2
,RECORO-2
00146 -0 00280 00614
RECORO+12
00158 M9 00628 00000
*+12,3700" TURN OFF WLRC IND
00166 M6 00178 03700
CHECK-12, 1900"
LET IORT HANDLE DISK OVERFLOW
00178 46 01256 01900
EEXIT",WLRC WAS ONLY ERROR
001904901.63600000
NLTEMP,Nl
00198 K6 00401 02233
DRAYl"O
00210 M9 01196 00000
TOBB+l,9"
SET TOBB TO BRANCH
00222 J5 00211 00009
EVEN,FKOOO"
TEST FOR EVEN ADDRESS
00234 "3 00818 02967
AGAIN,DOABLK+l"
BRANCH IF BUFFER PROG IN CORE
00246 ML 00964 00530
OSABLK+5,AGAIN
00258 JO 00547 -0964
SWO+12
00270 M9 00510 00000
FINOIN,O"
SET FINO INDICATOR ON •
00282 15 02915 00000
BE2+22
00294 L2 00436 00000
'+24
00306 M7 00330 01400
BE2+22
00318 L3 00436 00000
SEn
,FINOIN
00330 M3 00652 02915
RET02+6,SETl"
BRANCH TO COMPUTE AODRESS AND TESTI
00342 JO 00408 -0652

00130.
N2 ERROR ROUTINE
_I GRT N2a
00740 N2CK
CM
FIND-l
,00
,610,
00750
00160

BNH
C

00770
00780 RET02
00790 BUFFAR
00800 BE2
00810
00820
00830
00840

BH
B
OS
BV
AM
TFM
TF
BO

00850
00860
00810'
00880 •• •••
00890 SWOA
00900

TFM

8

IS I

ZERO OR NEG

00354 J4 0028J
00366 M7 00414
COMPARE I AND N2
00378 K4 0028J
00390 "6 00414
BE2
00402 49 00000
00413 00000
0041'" M6 00426
++12
00"26 J 1 00434
++8
,00000
,79
00438 16 02615
E1
,472
,9
00450 K6 00401
NLTEMP,Nl
ERROR,00A8LK,,8R IF CK MADE FROM EVEN ARRAY PROGRAM
00462 4L 02984
00474 J6 00705
DSAOTR+5, ERROR
00486 M9 00656
SETRMK

BE2
FIND-l,H2,6,

.-.
"

SWD SUBROUTINE
TOM
SWD+900,0
TFM '-11,41.10

000-0
01100
02238
01100
00000
01400
-0-00
OOM12
02233
00529
-2984
00000

00498 J5 01398 00000
00510 J6 00499 OOOMI

PAGE
00910
00920
00930.
00940 FETCH5
00950
00960
00970
00980 IOEND
00990
01000
01010
01020
01030
01040
01050
01060
01070 SETRMK
01080
01090
01100
01110 OOB
01120
01130
01140 OSAOTR
01150
01160 SWDI
01170
01180 ••
01190 IOREF2
01200
01210
01220 CK
01230
01240
01250
01260 CKI
01270
01280
01290 LINKB
01300
01310
01320
01330
01340
01350 ADDTOI

00522 M9 00708 00000
B
SWOl
00530
OORG '-3
SET UP LINKAGE FOR FLOAT
00530 20 03118 01194
TF
FLTENO,ICON8+5
00542 49 03998 00000
8
FLOAT
00549
DORG .-4
00552
OORG *+4
00552 JO 00705 -0552
TFM DSAilTR+5,OIOENO
00564 ML 00656 00421
BRANCH I F FETCH
80
SETRMK,FRIND"
00576 K4 00401 02233
C
NLTEMP, Nl
BRANCH IF BUFFER EMPTY
BE
SETRMK",
00588 M6 00656 01200
00600 JO 00408 -0620
ifM RETD2+6,o+20
00612 M9 00354 00000
87
NZCK
WRITE BUFFER TO FILE
IORT,++23. ,
TFM
00620 10 00565 -0643
00632 49 00532 -2813
IOPT ,DKDATA,7
8
00644 J1 0028J 000-1
FINO-l,1,610
AM
00656 KN 01398 01462
SNO+900,OKBUFF+ZOO
TO
00668 10 00565 -0743
TFM IORT,IORE'F2+U
00680 49 00566 00000
10GT
B
00681
DORG .-4
00687 00001
1,1
DSC
00692 00005 -OZOO
DSA 200
00695 00003
3,9
DC
DSA SWO,OIOEND
00700 00005 -0498
00705 00005 -0552.
00706 00001
DC
1,il
INCREMENT
BUFFER
ARROW
00708 K1 00413 02240
A
BUFFAR,W"
00720 ML 00984 00421
8RANCH IF FETCH
80
FETCH1, FRINC"
RECORD
CLEAR flAG ON ADDRESS OF DATA
CF
SWD-L,OATB,7,
00732 LL 00497 -1253
N1TEMP,1,l0 ,
DECREMENT WORD COUNT
SM
00744 J2 00401 000-1
00756 -0 0041L 0049P
TFL BUFFAR, SWD-l,611
CHECK FOR FULL BUFFER
NLTEMP,O,lO,
CM
00768 J4 00401 000-0
00780 M7 00210 01200
8NZ
TOB8
BR IF FETCH
00792 ML 00198 00421
BD
TOBB-12, FR I NO"
00804 J6 00854 -0532
TFM
LINKB+l8,I OPT
00816 ,JO 00408 -0836
TFM RETD2+6, LI NKB
00828 M9 00354 00000
N2CK
8
008~5
DORG
CALL CORRECT IORT ROUTINE
TFM
IORT,*+23"
008·36 10 00565 -0859
00848 49 00000 -2813
,DKDATA,7
B
INITIALIZE BUFFER ARROW
TFM SUFFAR,DKBUFF+199,.
00860 JO 00413 -1461
BUFFAR-2,RECLG
00872 K2 00411 02243
S
00884 MM 00908 00421
BNF
*+24,FRIND
00896 Kl 00413 02240
BUFFAR,W
A
FIND-l,l,610,
INCREMENT I
00908 J1 0028J 000-1
AM

.-4

646

n

PAGE 12
01360

',DIODDA+5,DIODDA+8, ,

A

01370
BD
8
01380
01390
DDRG
A
01400
01410 AGAIN
TF
01420
B
DORG
01430
01440 FETCH 1 C
8NE
01450

FETCH2,FRIND
TOBB-12
0-4
DRAY-I, FP2
SWD-l,ORAY-l
SliD
0-4
NlTEMP, Nl
FETCH2"

,

INCREMENT SECTOR ADDRESS
00920 21 02826
00932 ML 01028
00944 M9 00198
00951
00952 Kl 00221
00964 KO 00497
00976 M9 00498
00983
00984 K4 00401
BRANCH IF 8UFFER NOT EMPTY
00996 M7 01028
01008 J6 00854
01020 M9 00816
01027
01028 J2 00401

02829
00421
00000
03052
00221
00000
02233

01200
-0566
TFM
L1NKB+18'[OGT
00000
B
CKI
DORG 0-4
000-1
SM
Nl TEMP,!, 10
SEND THE WORD TO FAC
01040 00 02492 0041L
TFL
FAC, BUFFAR, 11
01052 M6 01064 01400
81
*+12,1400
TEST FOR FLOATING· ADDRESS AT SWO-l
01064 MM 01158 00497
FETCH3,SWD-l
8NF
IT IS A FIXED ADDRESS
01076 L3 00497 00000
SWD-l
CF
TEST FOR FLOATING WORD IN FAC
BNF
FETCH4, FAC-l
01088 M4 01170 02491
THE WORD IS FLOATING SET UP LINKAGE FOR FIX
01100 20 03074 01125
TF
FIXEND+6,ICON7+6
01112 49 03854 00000
B
FIX
01119
DORG '-4
01119 00001
DC
1,4
1,9
01120 00001
OSC
01125 00005 -1126
DSA RETFl T
01126 15 03069 00002
TOM
FIXEND+l,2
01138 15 03113 00002
TOM FLTEND-5,Z
BRANCH TO STORE NUMBER
01150 M9 01170 00000
B
FETCH4
01157
DORG _-4
BRANCH IF FIXED
BNF
FETCH5, FAC-I ..
01158 M4 00530 02491
STORE THE WORD IN MEMORY
0172001170 -6 0049P 02492
SHO-l,FAC,6
01730 FETCH4 TFL
CHECK FOR EMPTY 8UFFER
0174001i82 M9 00768 00000
01750
CK
8
01189
OORG _-4
01760
01189 00001
1,9
01770 ICON8 DC
01194 00005 -1126
01780
DSA RETFl T
DECREMENT WORD COUNT
01790 DRAY!
SM
PAR. t 1, 10"
01196 12 03843 000-1
01208 M7 01222 01200
8NZ *.+14
01800
01220 42 00000 00000
B8
01810
01222
DORG _-9
01820
01222 MM 00952 00221
8NF
AGAIN-12,ORAY-l
01830
01234 K2 00221 02221
DRAY-l,K
01840
S
01460
01470
01480
01490 FETCH2
01500*
01510
01520
01530*
01540
0155001560
0157001580
0159001600
01610
01620
01630 ICON7
01640
01650
01660 RETFL T
01670
01680.
01690 CKLD
01700
01710 FETCH3

647
PAGE 13
01850
01860
01B70 DATB
01B80
01890
01900 DK8UFF
01910.
0192001930_
0194001950 LDIRD
01960
01970
01980 DIMI
01990
02000
02010
02020
02030 STLDI
02040
02050
02060
02070
02080 HERE
02090

02100
0211002120_
02130
02140 SHD
02150
02160
02170
02180 DDABLK
02190
02200
02210 DSABLK

B
DORG
OSC
DSA
DC
OS

AGAIN
.-4
2,-00
008

l,il
,OAT8+9

01246
01253
01253
01259
01260
01262

M9 00964 00000

01261
01267
01268
01269
01ZH
01277
01282
01283
01284
01462
01296
0130B
01320
01332
01H4
01356
01363
01365
01370
01371
01377
013BO
01284

00002
00005 -1269
00001
00001
00005 -0209
00003
00005 -0498
00001
L3 01121 00000
00001
L3 01190 00000
10 00565 -1343
KN 01398 01462
4R 00532 -1261
10 00565 -1363
49 00716 00000
00002 2K
00005 -1371
00001 iI
00006 IJ9783
00003 -03
00006 -OOOOil

00002
00005 -0687
00001
00000

WRITE 2ND BLOCK
DSC
OSA
DC
DSC
OSA
DC
OSA
DC
CF
DGM
CF
TFM
TD
8
TRA

TCO

2,00
DIMI

l,il
I,!
209
3,9
SWD
l,il
ICIlIN7+2
DATB+9+200
ICON8+1
IORT ,HERE+ll
SHD+900, DKBUFF+20o
IOPT,LDIRD,7

STLDI

BLOCK 1 OF FETCH FI NO RECORD
DORG SWDA
TFM OSA8LK+5, SWO
TFM IORT, IOREF+l1
8
10GT
DORG _-4
OSC
1,1
OSA 209
DC
3,9
OSA SWO, SWD

02220
DC
02230
DORG
02240 OIDENO B
02250
BB
02260
DORG
02270 OAT!
DSC
02280
DSA
02290
DC

l,il
IOEND
OUT
*-9
2,-:00
DDABLK
1,@

00498
00498
00510
00522
00529
00529
00534
00537
00542
00547
0054B
00552
00552
00564
00566
00566
00572
00573

JO 00547 -049B
10 00565 -0853
49 00566 00000
00001
00005 -0209
'00003
00005 -0498
00005 -049B
00001
M9 00008 00000
42 00000 00000
00002
00005 -0529
00001

64S

PAGE 14
00578 00005
DS
02300
00580 M9 00102 00000
FECH
B
02310 FETCH
TO FETCH
INDICATOR
SET FETCH-RECORD
FRIND, 1, 11,
TOM
02320
00592 J5 00421 OOOOJ
SET
FIND
INDICATOR
OFF,
BRANCH TO
AITEST",
02330
00604 M9 00034 00000
AND
TEST
,
COMPUTE
ADDRESS
,
TEST
I
02340*
FOR DEFINE STATEMENT.
02350*
00616 M9 00134 00000
RECD
02360 RECORD B
SET FETCH-RECORD INDICATOR TO RECRD
TOM FRIND,O, ,
02370
00628 J5 00421 00000
00640 M9 00034 00000
B
ArrEST
02380
ADDRESS
IN DDA
SET
SECTOR
TFM
OIODOA+5,21B"
02390 SET!
00652 16 02826 -0218
OF
FILE
RECORD
COMPUTE
ADDRESS
FINO-1.,RECLG,6,
M
02400
00664 K3 0028J 02243
00676 21 02826 00099
DIODOA+5,99
A
02410
00688 M3 00732 02915
BRANCH IF NOT FIND
BD
*+44,FINOIN"
02420
00700 10 00565 -0723
IORT •• +23
02430 SSEEK TFM
TRANSFER TO 10RT TO SEEK
IOSK.DKDATA,7,
B
02440
00712 49 00554 -2813
00724 M9 00552 00000
DIOEND
02450
00732
DORG +-3
02460
ARROW
8UFFER
INITIALIZE
TFM BUFFAR,DKBUFF+199"
02470
00732 JO 00413 -1461
K2 00411 02243
00744
BUFFAR-2 ,R ECLG
S
02480
00756 K6 00401 02233
N1TEMP,Nl"
02490
TF
RECORO
LENGTH
IN DDA
STORE
DIOODA+8 ,RECLG"
TF
02500
00768 26 02829 02243
ADDRESS
OF
BUFFER
STORE
TFM DIODDA+13, DKBUFF+200, ,
02510
00780 10 02834 -1462
SUB LENGTH OF RECORD TO GET FIRST COR
01 DODA+ 11 ,RECLG"
02520
00792 22 02832 02243
INITIALIZE BRANCH BACK
TOM T086+1,2"
02530 OVER
00804 J5 00211 00002
OOB 16 42 00000 00000
8S
02540
00818
DORG _-9
02550
FLOATING
LENGTH IN TEMPA
STORE
TEMPA,
FP2,.
TF
02560 EVEN
00818 K6 00377 03052
BRANCH IF FLOATING ARRAY
BNF *+36,DRAY-l"
02570
00830 MM 00866 00221
00842 LL 00221 -0566
DRAY-I,DATI,7
02580 10REF CF
FIXED
LENGTH
IN TEMPA
STORE
TEMPA,K, ,
TF
02590
00854 K6 00377 02221
ADDRESS
OF
FIRST
ELEMENT
STORE
OJODOA+13,DRAY-l't
TF
02600
00866 20 02834 00221
00878
11
02834
-0001
DIODDA+13,1
AM
02610
HIGH ORDER POSITION OF ARRAY
DIODOA+l3,TEMPA"
S
02620
00890 2K 02834 00377
00902 K6 01149 02834
EVEN1+ll,DIODDA+13
TF
02630
00914 K3 00377 03843
TEMPA, PAR
M
02640
00926 32 00095 00000
95
SF
02650
00938 Kl 01149 00099
EVEN1+11,99
A
02660

6h
PAG~

00950 J4 01149 -0000
00962 M7 00986 01200
*+24
00974 J6 01149 -0000
EVEN1+ll,O
EVALUATE AND STORE LOW ORDER
POSiTION + 1 OF ARRAY
EVALUATE SECTOR COUNT
00986 11 00097 00-01
,9, ADD ONE' FOR GROUP MARK
AM
97,1.
00998 K5 010Z1 02243
*+23,RECLG
TO
01010 M3 01058 00251
OVER3, 251, ,
BRANCH IF RECLG IS 1
SO
01022
K5 01045 00097
TO
*+23,97
BRANCH IF EVEN NUMS OF SECTORS
*+24,210, ,
SO
01034 M3 01058 00210
01046 11 00097 000-1
97,1,10
AM
02780
01058 26 02829 00097
SET UP SECTOR COUNT
TF
DIODDA+8,97"
02790 OVER3
01070 ML 01094 0102J
OVER2,SOI2+11,11
SO
02800
01082 13 02829 OOONO
01 00DA+8; 50,10
02810
MM
01094 Kl 0028J 00097
ADD NUMSER OF RECORDS TO I
FINO-l,97.6,
02820 OVER2
A
01106 J2 0028J 000-1
FINO-l,l,bl0
02830
SM
01118 JO 00408 -1138
TFM RETD2+6,"20
02840
01130 M9 00354 00000
N2CK
02850
S
01137
DORG _-4
028bO
01138 K5 01221 00000
TO
EVEN2+11
02870 EVENI
BRANCH IF FETCH
FETCH8,FRIND, ,
80
02880
01150 ML 01248 00421
RECORD
02890SET GROUP MARK AT ENO OF ARRAY
EVEN1+l1,OKBUFF+200,6,
TO
02900
01162 KN 0114R 01462
WRITE ARRAY ONTO FILE
02910'
01174 10 00565 -1197
IORT,*+Z3
TFM
02920
01186 4R 00520 -0000
10RSC, NOWLC ,7
02930
B
01198 15 03113 00002
TOM
02940
FLTEND-5.2
RESTORE DIGIT
02950 EVEN2
TOM EVEN1+11 .. 6,
01210 J5 0114R 00000
01222 Jl 0028J 000-1
FIND-l,I,610
AM
02960
ADDRESS
INCREMENT
SECTOR
02970
OIODDA+5,DIODDA+8"
A
01234 21 02826 02829
01246 42 00000 00000
02980
BS·
01248
OORG .-9
02990
ERROR
ENTRY
010+35,
YTURN,
67,
INSERT
ADDRESS
FOR
03000 FETCH8 TFM
01248 10 0085N -1354
REAO
ARRAY
FROM
FILE
IORT,*+23,
t
03010
TFM
012bO 10 00565 -1283
01272 49 00566 -2813
IOGT,DKDATA,7
03020
B
I NOUT, CH ECK-12, ,R ES TORE SPEC lAL IORT ERROR EXIT
03030
TFM
01284 16 00629 -1256
TEST FOR NO GROUP MARK
0304001296 NN 01316 0114R
BNG *+20,EVENl+ll,1l
03050
01308 M9 01210 00000
B
EVEN2
03060
01315
DORG *-4
03070
01316 20 03118 01353
FL TEND, EVENSP+6
TF
03080
01328 16 02615 OOM73
EI,41,3,9
TFM
03090
01340 49 02984 00000
B
ERROR
03100
01347
DORG 0-4
03110
02670 CARRY
02680
02690
02700*
027100272002730
02740
02750 BDI2
02760
02770

CM
SNE
TFM

EVEN1+11,O

65\1

15

PAGE 16
03120 EVENSP DC
03130
OSC
03140
OSA
03150 YTURN
81
03160
8NI
03170
TFM

1,4
1,9
EVEN2-12

*+12,3700"
ERRET,1900"

ItWUT, MYER"

TURN OFF WLRC INO
GO ON IF NO OTHER ERROR
SET UP SECOND IORT ERROR EXIT

03240*

B
IOERR", LET I aRT CHECK ANY OTHER ERRORS
OORG .-4
OORG SWO+906
OS
2,N2CK+23
2,RET02-1
OS
OS
I,BE2+7
WRITE FIRST BLOCK

03250.
03260 OlM2
03270
03280
03290
03300
03310 LD2NO
03320
03330
03340 STLD2
03350
03360 GM
03370
033BO
03390
03400 NIO
03410

DSC
OSA
DC
DSA
DC
DSC
DSA
DC
TO
AM
CF
DGM
DGM
TFM
B
TRA

03420
03430

STL02
TCO
DoNO 7

03180
03190
03200
03210 TEMPA
03220 NlTEMP
03230 FRINO

1,1
200
3,9
SWD
1,@

01347
01348
01353
01354
01366

00001
00001
00005 -1198
M6 01366 03700
47 00602 01900

01378
01390
01397
01404
00377
00401
00421

10 00629 -0166
49 00630 00000

01404
01409
01412
01417
01418
01419
01425
01426
01428
01440
01452
01462
01398
01464
01476
01488
01500
01507
01509
01514
01515
01521
01524
01428
00007

2,00
DIM2
l,il
CARRY+7,CORSIZ
CARRY+8,[0'[0
EVENSP+2
DKBUFF+200
SWD+900
IORT,NIO+ll
IOPT,LD2ND,7

00002
00002
00001

00001
00005 -0200
00003
00005 -0498
00001
00002
00005 -1404
00001
K5 00957 07376
J 1 00958 OOOJO
L3 01349 00000
00001
00001
10 00565 -1487
4R 00532 -1419
10 00565 -1507
49 00716 00000
00002 2K
00005 -1515
00001 @
00006 IJ9783
00003 -03
00006 -OOOO@

651

PAGE 17

00010 ••• *.
00020****.

1620 FORTRAN II-O RELOCATABLE SINE AND COSINE ROUTINES
METHOD
COS'Xc#S I N'P I OV2-Xc
SIN'XctEITHER

00030.* •••
00040 •••• _
00050··**·
00060 ••• ••

l-~X **2t1/2+lX •• 4D/24-%X*.6t1 1720

OR

00070*.**_

X-~X.*

OOOBO

DSA

00090
00100 FCOS
00110.
0012000130.
00140
00150
00160 FSIN
00170.
0018000190.
00200
00210_
00220'

DORG --4
BLXM SET

3D/6+lX •• 5a/120-IX*. 7D/5040

FCOS, FSI N

,·-U:OEl

'[1

00004 00005 -0006
00009 00005 -0042
00005
00006 60 04142 OOOON

SET COSINE INDICATOR
TFM
IND
FSIN+24
8
8LXM SET

,00005

,111

,--IIOa

,11

00018 J6 00233 -OOON
00030 M9 00066 00000
00042 60 04142 0004J

SET SINE INDICATOR
TF"

IND

,00000

00054 J6 00233 -0000

SHIFT TO F+2 POSITIONS

00230.
00240 SH 1FT
00250.
00260'
00270_
00280
00290
00300
00310
00320
00330
00340
00350 ZERARG
0036000370.
0038000390 CKREO
00400
00410.
00420_
0043000440 NORED
00450
00460
00470 INO
00480
00490
00500
00510
00520*

FSL

FAC-3~4C

,FAC-2

00066 05 OK489 02490

SPECIAL CASE IF X IS LESS THAN 10. . '-FC OR GRE,ATER THAN lO.*F
C
BNH
C
BL
TFM
TFL
BLXM
BLXM

FAC
CKRAN
FAC
CKRED
EI
FAC
RESET
RESET

,MF
, F

,671
,9
,FLZER
, ER XV+ 2 4'Oc
,Z ERl'AC'Oc"

00078
00090
00102
00114
00126
00138
00150
00162

24
"7
24
M7
16
06
66
66

02492
01114
02492
00174
02615
02"92
06B08
06808

03054
01100
02219
01300
00071
03742
03144
02836

DOES ARGUMENT REQUIRE REDUCTION
CM
BH

FAC
RED

,DO

,10

00174 14 02492 000-0
00186 M6 00314 01100

NO ARGUMENT REDUCTION IS REQUIRED
CF
BNl
SF
OS

TF
TFM

TF
BD

NORED

,DO

*+36
NORED

"

NORED+ 11
AOD+ 11
00314
COS

,00000
, FMl

,96
, FAC
,J NO

00198
00210
00222
00233
00234
00246
00258
00270

L3 00198
M6 00246
L2 00198
00000
K6 00209
J6 01033
26 00314
ML 00650

652

00000
01300
00000
02969
-0096
02492
00233

PAGE 18
0053000540 SIN
00550
00560
0057000580_
0059000600 RED
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
007100072000730_
00740
00750
00760
00770 PLACE
00780
00790
00800
00810*
008200083000840 NORM
00850
00860
00B70
00880
00890
00900
0091000920_
0093000940 MORE
00950
00960
00970
00980_

INITIALIZE FOR SINE SERIES
,FAC-2
TF
BETA
,02
,10
TFM 00309
87
SET UP

00282 26 02603 02490
00294 16 00309 000-2
00306 M9 00686 00000

REDUCE ARGUMENT TO ONE CI RCL E
BNF
FADO
TOM
B7
S
BO
TF
LO
0
BNF
A

0+44

,IND

FAC
INO
CKREO
00309

,PIOV2
,0

*+24

, WJRS
,-ZEROM
,FAC-2
,TWOPI -2
,99
,TWOPI-2

*+24
99

RE~UCE

SF
A
MF
BO
SF

TF
TFM

,FAC

79
100:11:1
99Uc

MM
01
J5
M9
22
M3
26
28
29
M4
21

00314
00326
00338
00350
00358
00370
00382
00394
00406
0041B
00430

00358
02492
00233
00174
00309
00394
00079
001-0
000R9
00442
00099

00233
03526
00000
00000
02492
03018
0285R
02490
03396
00099
03396

ARGUMENT TO -1 LESS THAN X LESS THAN +1

99
99
MU-l
MORE
9914c
FAC-2
FAC

,PI-2
,99
,98%4c

,100
,00

,10

00442
00454
00466
0047B
00490
00502
00514

32 00099 00000
21 00099 03460
M3
32
26
16

00606
0-099
02490
02492

0-098
00000
00100
000-0

00526
00538
00550
00562
00574
00586
00598

M3
14
M6
32
05
12
M9

00174
02490
00162
OK490
OK489
02492
00526

OK489
000-0
01200
00000
02490
000-1
00000

00606
00618
00630
00642

22
33
Jl
"9

00099
00099
00233
00478

03524
00000
000-5
00000

71 03019 00099

NORM ALI Z E FAC
BO
CM
BE
SF
FSL
SM
B7

,FAC-314C
,00
,10

CK RED
FAC-2
ZERARG
FAC-2~4C

FAC-3¥4C , FAC-2
FAC
,01
NORM

,10

MORE REDUCTION IS REQUIRED
S
CF
AM
B7

99
99
INO
PLACE

,PIOV2-2
,05

,10

0099001000-

INI TI ALIZE FOR COSINE SERI ES

01010 COS
01020
01030
01040_
01050-

TF
TFM
TFM

BETA
FAC
00309

,9SCPF+2
,00
,01

,10
,10

00650 26 02603 03240
00662 16 02492 000-0
00674 16 00309 000-1

SET UP TO EVALUATE SERIES

653
PAGE 19

01060*.
01070 SETUP
01080
01090
01100
01110
01120
01130
0114001150_
0116001170 LOOP
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380 ADO
01390
0140001410.
0142001430 END
01440
01450
01460
01470_
0148001490.
01500 RESIZE
01510
0152001530.
0154001550 CKRAN
01560
01570
01580

TF
BD
TF
M

TF
SF
A

SAVE
*+24
79
FAC-2
FAC-2
FAC-2
00314

,8ETA
,WJRS
,-ZEROM
, FAC-2
,9714C
,00314

00686
00698
00710
00722
00734
00746
00758

26
M3
26
23
26
32
21

02565
00722
00079
02490
02490
02490
00314

02603
03018
0285R
02490
0-097
00000
00314

00770
00782
00794
00806
00818
00830
00842
00854
00866
00878
00890
00902
00914
00926
00938
00950
00962
·00974
00986
00998
01010
01022
01034

M3
26
23
26

21
OJ

00794
00079
02565
02565
02565
00309
00099
00079
00097
00913
00099
0-098
02565
01046
01022
00209
01046
01033
0103L
01046
0103L
02603
00770

03018
02B5R
02490
0-097
00099
00309
00309
02701
00000
00099
02565
-0000
00096
01200
00198
00314
01300
00314
000-0
01200
00096
00096
003-5

26
JO
M9
JO

02490
00532
00526
005.32

02603
-1078
00000
-0174

LOOP TO EVALUATE THE SERIES
BO
TF
M
TF
MF

"

A
TF
SF
TF
LO
OM
TF
BE
BNF
A
BL
A
CM
BE
MF
A
BX

.+24
79
SAVE
SAVE
SAVE
00309
99
79
97

,WJRS
, -ZERO"
, FAC-2
,9714c
,99
. ,00309
,00309
,ZERO-66

*+35

,99
99
,SAVE
9U4c
,96
SAVE
END
ADO
,NORED
NO REO+ll,00314
END
AOO+ll
,00314
,00
,610
*+47
END
,96
,6
>+23
BETA
,96
LOOP
,SIN+23Uc

,.-.

71
23
21
26
32
K6
28
19
26
M6
MM
Kl
M7
Kl
J4
M6

PI

EXIT FROM LOOP
TF
TFM
B7

TFM

FAC-2
NORM+6
NORM
NORM+6

,BETA

,*+20
,CK RED

01046
01058
01070
01078

RESIZE ANSER AND EXIT
FSR FAC-2
BUM RESET

, FAC-4
,FIXENDIOc

01090 08 02490 02488
01102 66 06808 03068

,IND

01114
01126
01134
01146

COS~O.Clll.

~O

87
TFL
87

*+20
RESI?E
FAC
RESIZE

,ONE

ML
M9
06
M9

01134
01090
02492
01090

'51,

00233
00000
03302
00000

PAGE 20
01590

00002

DENO 2

655

PAGE 21

00010 •••• 00020*.*._
00030 ••••
00040 ••••
00050····
00060
00070 FATN
000800009000100_
00110
00120
00130
00140
0015000160*
00170_
00180
00190
00200_
0021000220_
00230
00240*.
00250-

1&20 FORTRAN 11-0 RELOCATABLE ARCTANGENT ROUTINE
METHOD
A.X AND B#O IF ARG IS LESS THAN .29
AUX-.6a/U+.6'40
BL
NEXT
00450 WOW
SF
.291NO
00460
FSUB SAVE
00470
BO
*+24
TF
79
00480
·00490
FMUL FAC
00500
FADO FAC
00510
BO
*+24
00520
TF
79

,10

,WJRS
, -ZEROM
,FAC
,BETA
,00000

,-,*-1

OR SAVE

•

IFAC -

,FAC
,00

,10

,29

,10

,02
,SIXTEN
,WJRS
, -ZEROM
,51 XTEN

,10

, ONE

,WJRS
,-ZEROM

00102
00114
00126
00138
00150
00162
00174
00186
00197
00196

14 02492
M7 00198
06 02603
M3 00162
26 00079
09 02603
06 02492
L2 00197
00000
00000

00198
00210
00222
00234
00246
00258
00270
00282
00294
00306
00318
00330
00342
00354

06
14
M6
·147
14
M7
L2
02
M3
26
03
01
M3
26

000-0
01100
03302
03018
0285R
02492
02603
00000

.6o/l:! + .E._FACe
02565
02565
00270
00378
011490
00378
00196
02565
00318
00079
02492
02492
00366
00079

656

·02492
000-0
01100
01200
000K9
01300
000-2
03494
03018
0285R
03494
03302
03018
0285R

PAGE 22

00530
00540.
00550-

00560*
00570 NEXT
00580
00590
00600
00610
00620
00630
00640
00650
00660
00670 QST
00680
00690
00700
00710
00720.
0073000740_
00750 LOOP
00760
00770
00780
00790
00800
00810
00820 DIV
00830
00840
00850
00860
00870
00880
00890
00900
00910 ADD
00920
0093000940.
0095000960 ZOP
00970
00980
00990
01000
01010
01020
010300104001050.

FDIV SAVE

, FAC

00366 09 02565 02492

INITIALIZE FOR LOOP
TFL
aD
TF
M
TF
SF
TFM
CF
CM
BNL
SF
TF
TFM
TF
A

FAC

, SAVE

*+24

,WJRS

79
FAC-2
BETA
BETA
00309
ADD
FAC

, -ZEROM
,FAC-2
,97=413

4+36
ADD
QST+ll
'ADD+ll
QST-l
QST-l

,03

,10

,00
,DO
,00000

,10

,FMl
,00097
,FAC
, FAt

00378
00390
00402
00414
00426
00438
00450
00462
00474
00486
00498
00510
00522
00534
00546

06
M3
26
23
26
32
16
L3
14
M6
L2
K6
J6
K6
Kl

02492
00414
00079
02490
02603
02603
00309
00750
02492
00522
00750
00509
00761
00497
00497

02565
03018
0285R
02490
0-097
00000
000-3
00000
000-0
01300
00000
02969
-0097
02492
02492

00558
00570
00582
00594
00606
00618
00630
00642
00654
00666
00678
00690
00702
007[4
00726
00738
00750
00762

M3
26
23
26
26
28
29
M6
MM
KJ
M7
KJ
J4
M6
PI
21
OJ

00582
00079
02563
02563
02563
00079
00099
0-098
00774
00750
00509
00774
00761
0076J
00774
0076J
02490
00558

03018
0285R
02603
0-097
00099
02699
02563
00309
01200
00750
00497
01300
00497
000-0
01200
00097
00097
002Ql

00774
00786
00798
00810
00822
00834
00846

14
M6
M3
32
05
12
M9

02490
00854
00854
OK490
OK489
02492
00774

000-0
01200
OK489
00000
02490
000-1
00000

LOOP TO EVALUATE SERIES
BD
TF
M
TF
MF
TF
La
0
BE
8NF
A
8L
A
CM
8E
MF
A
8X

*+24

98~4D

,WJRS
,-ZEROM
,BETA
,9714a
,99
,ZERO-68
, SAVE-2
,00309

ADD
QST+ll

,QST-l

79
SAVE-2
SAVE-2
SAVE-2
79
99

zap
zap

ADD+ 11

*+47
ZOP
*+23
FAC-2
LOOP

,ADO
,QST-l
,DO

,610

,97

,6

,00097
,WOW+1Ula

71

SET UP FOR EXIT
CM
8E
80
SF
FSL
SM
B7

FAC~2
,00
,10
EXIT
EXIT
, FAC-3~4a
FAC-214a
FAC-3hD ,FAC-2
,10
FAC
,01
ZOP

PREPARE TO EXIT

657
PAGE 23
01060 EXIT
01070
01080
01090
01100
01110.
01120.
01130_
01140
01150 EXITS
01160

8NF
FADD
8NF
SF
FADD

*+24

,.291ND

FAC

,ATAN.b

*+36

,RECINO

FAC-2
FAC

,PIOV2

RESIZE TO
FAC-2
FSR
BLXM RESET
DEND 1

00854
00866
00878
00890
00902

MM
01
MI'!
32
01

00878
02492
00914
02490
02492

00196
03430
00197
00000
03526

DIGITS

,fAC-4
,FIXENOIOD

00914 08 02490 02488
00926 66 06808 03068
00001

PAGE 24

00010*****

OOOZO*****
00030*****
00040
00050 SQRT
00060·
00070'
00080*
00090
00100
00110*
00120'
00130*
00140
00150
00160
00170001800019000200 SQ2
00210
00220
0023000240.
0025000260
00270
00280
0029000300.
00310'
00320
00330
00340
00350
00360
00370
00380003900040000410 LOOP
00420
00430
00440
00450004600047000480 EXIT
00490
00500
00510
00520
00530-

RELOCATABLE SQUARE ROOT ROUT! NE
1620 FORTRAN 11-0
METHOD
THE SQUAR E ROOT IS TAKEN US ING THE ODD INTEGER METHOD
00004 00005 -0006
SQRT
DSA
00006 60 04142 OOOON
,SORT-Il0C,11
BLXM SET
I S ARGUMENT ZERO

*+24
BO
BLXM RESET

00018 M3 00042 OK491
00030 66 06B08 02836

, FAC-l~41l
,ZERFAC%O'

STORE SIGN AND COMPUTE EXP/2
MF
MM
BO

SQRT
FAC
SQ3

, FAC-2
,50
,98

010

00042 PI 00006 02490
00054 13 02492 OOONO
00066 M3 00422 00098

SAVE EXPONENT
MF

TF
A

97
FAC
00309

00078 71 00097 00099
00090 26 02492 00097
00102 21 00309 00324

,99
,97
,00324

PLACE ARGUMENT IN F I XEO PRODUCT AREA
BO
TF
lD

*+24
79
97ue.

00114 M3 00138 03018
00126 26 00079 0285R
00138 28 000R7 02490

,WJRS
,-ZEROM

,FAC-2

SET UP FOR lOOP
TF

TFM
TF
SM
TF
B7

GAM
GAM%4'
00309
00309
00314
lOOP+12

,ONE-2
,01
,00324
,01
,00334

,10
010

00150
00162
00174
00186
00198
00210

26
16
26
12
26
M9

00218
00230
00242
0025"

11 025N6 000-2
22 00-99 025N6
M6 00218 01300
04 00374 000-1

00266
00278
00290
00302
00314

26
13
32
11
26

02555
OK555
00309
00309
00314
00230

03300
000-1
00324
000-1
00334
00000

LOOP
AM
S
BNN
BCXM

,10
GAM+IUe ,02
,GAM+1Ua
9912e
LOOP
,OOOOllle
ADJ IX

PREPARE TO EXIT
TF
MM
SF
AM

U

79
GAM-l
9U4a
98
FAC-2

,-ZEROM
,50
,OS
,97

,10
010

00079
02554
0-098
00098
02490

0285R
OOONO
00000
000-5
00097

659
PAGE 25
00540_
0055000560
00570
00580
00590 GOUT
00600_
00610.
00620_
00630 ADJ IX
00640
00650
00660
00670_
0068000690.
00700 SQ3
00110
00720
00130
00740

WAS THERE AN ERROR
BNF
TFM
BlXM
BlXM

GOUT
EI
RESET
RESET

,SQRT
,9
,676
, ERXV+2410a
,FIXENOloa

00326
00338
00350
00362

MM
16
66
66

00362
02615
0680B
06B08

00006
00076
03144
03068

00374
00386
00398
00410

21
33
12
02

00-99
00-99
025N6
00230

025N5
00000
000-9
00-02

ADJUST INDEX

A
CF
SM
aXM

99%2a
,GAMlia
9912a
GAM+lIla ,09
,10
lOOP+12
,OOO0212a

ADJUS T FOR ODD EXPONENT
AM
TOM
CF
BXM
DENa

99
,50
,10
FAC-214a ,0
,11
FAC-114a
,OOOO111a
SQ2
1

00422 11 00099 OOONO
00434 15 OK490 000000446 33 OK491 00000
00458 02 00078 000-1
00001

,jill

PAGE 26

00010*****
00020
00030 ARS
00040
00050

1620 FORTRAN II-a
DSA
TFL

ASS
FAC

,ABS-l

BNF

*+26

,FAC-1

CF

FAC-2

SB

00060
00010
00080

DORG

~--9

CF

FAC

00090
00100 FAC
00 110

BB2
OS
DEND

t02492

RELOCATABLE ABSOLUTE VALUE ROUT! NE
00004 00005 -0006
.111
00006 00 02492 OOOON
,0
00018 M4 00044 02491
FLOAT ING POINT NUMBER
00030 33 02490 00000
00042 42 00000 00000
00044
FIXED POINT NUMBER
00044 33 02492 00000
00056 42 00000 00000
02492 00000
00001

ilIl

PAGE

00010*
00020
00030 FLN
00040
00050
00060

1620 FORTRAN IIO,MON II, FL PT,RELOC,FX L NATURAL LOG
DSA
FLN
BLXM SET
SO
NOT Z

,FlN-l %00,11
t

FAC-9

,672

,9

00080 NOTZ

TFM
SF
BLXM
TFM

EI
99
RESET
EXIT+ll

,OVFL DW%Oo"
,FIXENO %00"

00090

BNF

EVALPN

, FAC-2

00100
00110
00120

TFM
CF
TFM

EI
FAC-2
EXIT+ll

,673

00010

00004
00006
BR IF ARG IS NOT ZERO
00018
00030
00042
SET TO NEG NINES 00054
SET UP NORMAL EXIT

00005 -0006
60 04142 OOOON
M3
16
32
66

00066
02707
00099
05862

02483
00072
00000
02924

00066 J6 00649 -2960
,9

tERROR

BR IF ARG POSITIVE
0007B
00090
00102
SET UP ERROR EX IT
00114

M4 00126 02490
16 02707 00073
33 02490 00000
J6 00649 -2936

00130.

00140'U
IF N IS ARG, FIND X EQUAL PN SO THAT X IS GREATER THAN
ONE HALF AND P EQUALS 1 t 2, 4, 8.
00150**
00126 14 02484
FAC-8
,50
,10
00160 EVALPN CM
EVALEX
BR IF MOD VAL OF X IS IN RANGE
00170
BNL
00138 M6 00174
,FAC-2
MOD X EQUAL X PLUS X
FAC-2
00180
00150 21 02490
%20, ,
ADJ FOR NEXT VAL.UE
,12
BXM
EVALPN
00190
00162 02 00126
00200*
CALC I*LN TEN
00210**
FAC
, LN10
00220 EVALEX M
00230
00240

00250*
00260**
00270

00280
00290

00300
00310

00320
00330
00340
00350

00360
00370

TF
S

00410
00420
00430

..

,99
.CONST %20,

t

I4DIG
12

M
A
TF
M

02490
00-12

00174 23 02492 06172
00 186 26 02562 00099
00198 22 02562 06J24

EXPAND TO NINE DIGIT FI ELD AND CALC Z EQUA L X-R SQRZlX+RSQR2
.9
00210 26 02630
9
.5 TO
TF
BETA
t FAC-2
BETA-B
00222 15 02622
TOM
00234 71 02622
BETA-8
,BETA-7
MF
00246 22 02490
,R SQR 2
-.2 TO
.3
FAC-2
S·
,R SQR 2
1.7 00258 21 02630
A
BETA
1.2 TO
, FAC-2
00270 28 00089
LD
89
00282 29 00090
, BETA
0
90
IS Z
TF
BETA
.90
10 -.16TO .17
00294 26 02630
,99
RETAIN SIGN OF Z 00306 71 02630
MF
BETA
00318 23 02630
, BETA
BETA
M
,89
(0
.00 TO.029 IS Z SQRD
TF
SAVE
00330 26 02592

00380*
00390**
00400

SAV3
SAV3

OOONO
01300

SUM SERI ES USING HORNERS METHOD.
00342
,C 7
C7*Z SQRD 19
SAVE
00354
87
.C5
00366
FAC-2
,90
10
.4
, FAC-2
SAVE
C5+C7*lSQRD * ZSQRO
00378

02490
00000
02623
061BO
06180
02490
02630
00090
00099
02630
00089

23 02592 06189
21 00087 06196
26 02490 00090
23 02592 02490

8&2

PAGE
00440
00450

A
TF

88
FAC-2

,C3
,89

00460
00470
00480
00490

M
TOM
CF
TF

FAC-2
79
80
FAC";:!

, SAVE
,-2

FAC-2

,BETA

00500

00390 21 00088 06205

,88

00510

TFM

79

00520
00530
00540
0055000560

CF
MF
A

80
91
91

BLXM *+12

,99989 :UI:I"

00570
00580
00590

MF
MU-l
NOT ZER
80
BCXM *-12

,91
,,89

00600
00610
0062000630 NOTZER
00640
00650
00660
00670 EXIT
00680

TFL
B7

FAC
EXIT

SF
TFM
S
TF
8LXM
DE NO

89
FAC
FAC
FAC-2
RESET
1

t

10,

,99
,SAV3

,I

Ue

:UD,.

,FL ZER
Ue
,92
,309
,96
, XX

,10.
Ue
.Oe

10 ,SAVE C 3+C5*l **2+C7*Z **4
00402 26 02490 00089
00414 23 02490 02592
00426 15 00079 OOOOK
ADO Cl
00438 33 00080 00000
10 , SAVE Cl+C3*Z**2+C5*ZXX4+C7*Z •• 6
00450 26 02490 00088
OBTA ING FUe
MUL BY
00462 23 02490 02630
EX.PANO TO XXX. XX2S9Z5
00474 16 00079 000-0
00486 33 00080 00000
00498 71 00091 00099
MOVE SIGH
00510 21 00091 02562
PREP FOR NORMALIZATN
00522
00534
00546
8R I F RESULT NOT ZERO
00558
00570
00582
CALC EXPONENENT

00590
00602
00614
00626
00638
00001

06 00534 999Q9
71 02967 00091
M3 00590 000Q9
04 00546 000-1
06 02492 03131
M9 00638 00000
32
16
22
26
66

000Q9
02492
02492
02490
05862

00000
000R2
00309
000R6
99999

883

PAGE
1620 FORTRAN 110, MaN 1 I. FL PT,RELOC, FX L NATURAL EXP
00004 00005 -0006
DSA FEXP
soa, II. LO FAC.CK OV,EXV. SEL BAND A.
BLXM SET
,*-1
00006 60 04142 OOOON
00018 M3 00102 02483
,FAC-9
ZERO CHECK
00040
RANGE
BO
00030 06 02492 03153
,
FLONE
00050
TFL FAC
00042 66 05862 02960
,FIXEND.Oe
00060
BLXM RESET
,671t
,9,
EXP
ERR F4 OVFL IN
00070 E1o2
TFM El
00054 16 02707 00074
00066 MM 00090 00645
, EXIT+7
00080
BNF OVFLOX
,UNFLD .0_
00078 66 05862 02904
00090
BLXM RESET
,I NFFAC.O_
00090 66 05862 02924
00100 OVFLOX 8LXM RESET
EXIT+7
,FAC-2
STORE SIGN
00102 PI 00645 02490
00110 RANGE MF
, FAC';'2
XPNO TO 10 DIGIT MANT
00120
FSL FAC-ll
00114 05 02481 02490
10 DIGIT RESULT IN FAC-2
,LOG
00130
FMUL FAC
00126 03 02492 03143
,-7
00138 14 02492 OoO-P
,10
CM
FAC
00140
ASSUME RESULT IS ZERO
00150
FEXP+24
BL
00150 M7 00030 01300
00162 14 02492 000-3
,3
,10
00160 NONZ
CM
FAC
TOO LARGE FOR EXP
00170
BNL E12
00174 M6 00054 01300
, FAC
Ila, ,
00180
BX
ADJ IX 1 BU MOD EXP
*+ 12
·00186 01 00198 024R2
00198 26 02490 02752
00190
FAC-2
,13 ZERO
TF
00200
BNF *+24
,8.1
NO LOG ZE~O IN RESULT
00210 M4 00234 00081
,FLONE
00222 01 00234 031N3
BX
0.0210
·+12
00234 21 02490 OOORO
FAC-2
,90
lie
00220
A
,FAC-13
ENTER EXPONENT
00246 26 02492 02479
00230
TF
FAC
MANTISSA WAS POSIT I VE
00240 PORM
BNF CALC-24 ,EXIT+7
00258 MM 00350 00645
00250.*
ADJ FOR CASE OF ORIG ARGUMENT NEGAT'I VE
00270 32 02480 00000
FAC-12
00260
SF
00282 32 024Q2 00000
00270
SF.
FAC
00294 26 02630 06112
,ONE
00280
TF
BETA
" FAC-2
00306 22 02630 02490
00290
S
BETA
BETA-I0
00318 32 02620 00000
SF
00300
,BETA
00330 26 02490 02630
TF
FAC-Z
00310
00342 M9 0037.4 00000
00320
B7
CALC
AOJ AND CK FINAL CHAR
,1
t 10,
00330
AM
FAC
00350 II 02492. 000-1
CHAR MORE THAN 99
00340
BV
E12
00362 M6 00054 01400
00350NEG OR POSITIVE
00360CALCULATE Z EITHER
00370.
o IS DIGIT IN FAC-12. F IS FIELD FAe-ll THRU FAC-2.
00374 32 024Bl 00000
00380 CALC
SF
FAC-ll
, FAC-12
MOVE DIGIT THAT SELECT CONSTANT
00390
TO
313
003B6 25 00313 02480
00400*
EVP;LUATE F~ZI:l BY Y#Z+T ,W#Y**2 t V#%W%W+Ac+8o%Y+Cc
00410**
00010*
00020
00030 FEXP

"
"

ua

88 {I

2

PAGE
00429*-1100430
00440
00450
00460
00470
00480
00490
00500
00510
00520
00530

WHERE F%lc EQUALS E%V-O. T,A,B,C,D,AND E ARE CONSTANTS
00398 26 02630
,T
TF
BETA
,FAC-2
,.18 TO .23 VALUE OF YH+Z
11
A
BETA
00410 21 02630
,BETA-l
.03 TO .05 VALUE OF W
BETA-I
20
M
00422 23 02629
00434 26 02562
,A
TF
V
10 2.54
10 2.57 TO 2.62 W+A
,88
A
V
00446 21 02562
00458 26 02490
10
FAC-2
,89
TF
20
.07 TO
M
FAC-2
.13 00470 23 02490
,V
00482 26 02562
TF
10 2.8
,B
V
00494 21 02562
,89
A
V
00506 26 02490
TF
FAC-2
,C
,BETA
12 1.46 TO 1.51 Y+C
FAC-2
A
00518 21 02490
M
FAC-4
,V
20 04.3 TO 04.4 00530 23 02488
,0
13 01.9 TO 02.0 00542 22 00092
S
92
1.9 TO 2.0 00554 32 00081
12
81
SF
00566 26 02630
,92
12
BETA
TF
14 0.9 TO 1.1 00578 13 02630
,54
,10.
MM
BETA
00590 26 02630
,95
10
BETA
TF

00540
00550
00560
00570
00580
00590
00600_
00610 SELECT M

,

"

BETA

~'i, SF
81
00620
TF
FAC-2
00630
BLXM RESET
00640 EXIT
0065000660**.
00670 V
00680 A
00690 B
00700 C
00710 D
00720 13lERO
00730

,DEES

ZZD,t

,88
t FI XENDSOc

"t.

CONSTANTS REQUIRED FOR FEXP
,SAV3
OS
10
,AEX
OS
,BEX
OS
,CEX
DS
,DEX
DS
,lERO-18+13
DS
DEND

05956
02490
02629
05966
00088
00089
02562
05976
00089
05988
02630
02562
06000
00000
00092
000N4
00095

MUL BY APPROPO FACTOR
00602 23 02630 06-10
00614 32 00081 OODOO
00626 26 02490 00088
8
RESTORE OV,EXV. SEL BAND B. EXIT
00638 66 05862 02960
02562
05966
05976
05988
06000
02752
00001

00010
00000
DOODO
00000
00000
00000

us
PAGt

00010**-*_

00020***.
00030 ••• 00040 ••••
00050 ••••
00060 ••• •

00070 ••••

00080 •••• _
00090
00100
00110
00120
00130
00140
00150
00160
DOl70
OOIBO
00190
00200
00210
OOzzO
00230
00240
00250
00260
00270
00280
00290
00300
00310
003Z0
00330
00340
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
00450
00460
00470
00480
00490
00500
00510
00520

ENTRY2
ENTRY3

COM

BRINST
l3
l2

Y
YX
EXIT
COLECT
lOT
ANS

FORTRAN 1l-0 RELOCATABLE-5UBSCRIPTING ROUTINE ~FIXEDD
FOR TWO OR THREE DIMENSIONAL SUBSCRIPTfO VARIABLES
BTM ENTRYX, . . 12 WHERE U 2 OR 3
LINKAGE
OSA BASE,D4,Dld,02,J,03,K,OR/M
IF Q ADDRESS IS FLAGGED BASE IS FIXED
IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER
IF 01 IS FLAGGED - 110
INDEX REGISTER FLAGS ARE ON BASE
00004 00005 -0006
DSA ENTRY2, ENTRY3
00009 00005 ~0042
00005
DORG *-4
00006 JO 00216 -0238
TFM BRINST+6 ,L2
,10
00018 J6 00421 00012
TFM EXIT-l
,32
00030 M9 00078 00000
COM
B
00042 JO 00216 -0218
TFM BRINST+6 ,L3
,10
00054 J6 00421 000M2
TFM EXIT-I
.• 42
ENTRY2-1 , ENTRY3-1
00066 KO 00005 00041
TF
00078 PJ 00078 00005
MF
COM
,ENtRY2-1
00090 J6 00301 OOOJO
,10
TFM X+1l
,10
,COM
00102 MM 00126 00078
BNF
*+24
TF
,KK
00114 K6 00301 02221
X+1l
TR
WKAREA
,ENTRY2-1 ,11
00126 3J 00000 OOODN
,BASE
00138 PI 003B5 00004
MF
Y+1l
,01
00150 M4 00186 00014
BNF
*+36
00162 PJ 00301 00078
,COM
MF
X+1l
'00174 33 00014 00000
CF
01
00186 J6 00041 -0000
TFM
ANS
,00000
,BRINST +6
00198 KO 00472 00216
TF
ZOT+6
00210 M9 00210 00000
B7
M
,K
00218 23 00034 0003R
.II
03
COLECT
00230 M9 00430 00000
B7
,
J
,11
M
00238
00024 0002R
02
COLECT
00250 M9 00430 00000
B7
M
,I
,II
00258 23 00014 0001R
01
COLECT
00270 M9 00430 00000
87
,04
00278 ~I 00041 00009
A
ANS
ANS
,00
,10
00290 J3 0004,1 000-0
MM
MF'
Y
,99
00302 PI 00374 00099
MA
YX+1l
,8ASE
00314 PO 00409 00004
TO
00326 25 00004 02403
,RECMK
BASE
, BASE-4
00338 Ll 00369 00000
TR
*+31
,99
MA
00350 PO 00373 00099
*+23
BlXM *+12
,7
00362 f:)0 00374 -0362
00374, 2J 00099 00409
99
,YX+ 11
A
MF
99
,Y
00386 7J 00099 00374
95
SF
003~8 3K 00095 -0398
r1
,*
AM
ENTRY2-1 ,00
,10
00410 JI 00005 000-0
,6
ENTRY2-1
00422 M9 OOOON 00000
B7
MA
*+23
,00099
00430 PO 00453 00099
,00000
AM
00442 JI 00041 -0000
ANS
AM
,00020
00454 Jl 00472 -0020
*+18
00466 M9 00466 00000
B7
, ENTRY3-1
00041 00000
DS

"

n

,-

,

666

4

PAGE
00530
00540
00550
00560
00570
00580
00590
00600
00610
00620
00630
00640

KK
WKAREA
BASE
04
01
!
02
J

03
K

RECMK

OS
OSS
42
OS
DS
OS
OS
OS
OS
oS
OS
oS
OENO

02221
00000
00004
00009
00014
00019
00024
00029
00034
00039
02403
00002

,02221
.00000
WKAREA+4
WKAREA+9
• WKAREA+14
,IIKAREA+l9
, WKAREA+24
.WKAREA+29
, WKAREA+34
,WKAREA+39

t
t

,02403

00000
00042
00000
00000
00000
00000
00000
00000
00000
00000
00000

667
PAGE
00010.
00020.
00030 AOR

FORTRAN 11-0 OK 10
DSA

00040
OORG
00050 EEXn DS
00060 CHECK DS
00070 INOUT DS
00080 lOCAL
DS
00090 10RaC DS
00100 10RT
DS
00110 DID
DS
00120 10SK
DS
00130 INDS
DS
00140 ERRET DS
00150 IOERR
00160 IOGT
DS
00170 IOPT
00180 FAC
DS
00190 OIOODA OS
00200 FINOIN
00210 FKOOO
00220 PAR
OS
00230 ERROR OS
00240 EI
00250 RTN
00260 FIXENO DS
00270 FL TEND 'DS
00Z80 FLOAT DS
00290 OKOATA DS
00300 FIX
DS
00310 RECLG DS
00320 W
00330 N2
DS
00340 NI
DS
00350 K
00360 F
00370 CORS!Z
00380.
00390 NOWLC OSC
00400
OSA
00410
DC
00420 OUT
BV
00430
A
BB2
00440
00450 A neST TDM

as
as

as
as

as
os

os

as
as
os

00460

FIXED

SWDFX ,F I NO, RECORD. FETCH, SWO, DRAY ,0 I DE NO

ADR-4
01636
,1268
,629

,716
.520
,565
.820
.554

,lola
,602

,630
,566
.532
.2492
.2868
.2404
.2987
.3843
.2936
.2615
,2506
,2960
,2966
,3998
,2860
.3854
,2243
,2240
,2238
,2233
,2221
,2219
,7376
2,02
OIoOOA
1.01

*+l2
BE2+20

,BE'2+23

FINOIN

,!

FIND+l2

,11,

00004
00009
00014
00019
00024
00029
00034
00000
01636
01268
00629
00716
00520
00565
00820
00554
00610
00602
00630
00566
00532
02492
02868
02404
02987
03843
02936
02615
02506
02960
02966
03998
02860
03854
02243
02240
02238
02n3
022il
02219
07376

00000
00006
000'07
00008
00020
00032
SET FIND INDICATOR OFF
00034
00046'

00005
00005
00005
00005
00005
00005
00005

-0058
-0282
-0616
-0580
-0498
-0222
-0552

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
,00000
00002
00005 -28bS
00001
H6 00020 01400
KJ 00434 00437
42 00000 00000
15 02404 OOOOJ
M9 00294 00000

668

PAGE
00058 KN 00497 00057
, SWOFX-2
00070 -0 00496 00056
00082 LZ 00497 00000
00490
SF
00094 M9 00498 00000
00500
87
S~JD
00102 KN 00281 00579
, FETCH-l
F IND-l
00510 FECH
TO
00114 -0 00280 00578
, FETCH-2
F IND-2
00520
TFL
00126 M9 00592 00000
FETCH+12
00530
B7
00134 KN 00281 00615
F IND-l
,RECDRD-l
00540 RECD
TO
00146 -0 00280 00614
FIND-2
,RECORD-2
00550
TFL
00158 M9 00628 00000
RECORD+ 12
00560
87
00166 M6 00178 03700
*+12,3100., TURN OFF WLRC IND
00570 MYER
BI
CHECK-12,1900"
LET IORT HANDLE DISK OVERFLOW
00580
BI
00178460125601900
00190 49 01636 00000
EEXI TI f ' WLRC WAS QNL Y ERROR
00590
87
00198 K6 00401 02233
NlTEMP,Nl
00600
TF
00210 M9 01196 00000
DRAYl, ,0
00610 T088
8
SET
TDB8
TO
BRANCH
00620 DRAY
TOM
T088+1,9"
00222 J5 00211 00009
TEST FOR EVEN ADDRESS
00630
sO
EVEN,FKOOO"
00234 M3 00818 02987
BRANCH I F BUFFER PROG IN CORE
BD
AGAIN,DDABLK+l"
00640
00246 ML 00964 00530
0025B JO 00547 -0964
TFM
OSA8LK+5,AGAIN
00650
00270 M9 00510 00000
8
SWD+12
00660
SET FIND INDICATOR ON
00670 FIND
TOM
FINDIN,O"
00282 15 02404 00000
00294 L2 00436 00000
SF
8E2+22
00680
00306 M7 00330 01400
00690
BNV
*+24
00318 L3 00436 00000
CF
8E2+22
00700
00330
M3 00652 02404
BD
SET!
,FINOIN
00710
BRANCH TO COMPUTE ADDRESS AND TEST I
TFM
RETD2+6, SET 1"
00720
00342 JO 00408 -0652
00730.
N2 ERROR ROUTINE
U GRT N2a
00740 N2CK
CM
FIND-l
,00
,610,
IS I ZERO OR NEG
00354 J4 0028J 000-0
00366 M7 00414 01100
BNH
BE2
00750
COMPARE I AND N2
C
FIND-l,N2,6,
00760
00378 K4 0028J 02238
00390 M6 00414 01100
00770
BH
BE2
00402 49 00000 00000
00780 RET02
B
00413 00000
00790 BUFFAR OS
00414 M6 00426 01400
00800 BE2
BV
*+12
00426 Jl 00434 -0-00
*+8
t 00000
,79
00810
AM
00438 16 02615 00M72
EI
,472
,9
00820
TFM
00450 K6 00401 02233
NlTEMP,Nl
00830
TF
ERROR,DDABLK"BR IF CK MADE FROM EVEN ARRAY PROGRAM
BD
00840
00462 4L 02936 00529
00474 J6 00705 -2936
TFM DSAOTR+5,ERROR
00850
00486 M9 00656 00000
8
SETRMK
00860
00870'
SWD SUBROUTINE
OQ880****.
D0498 J 5 01398 00000
TOM SWD+900, 0
00890 SWOA
00510 J6 00499 OOOMI
TFM *-11,41,10
00900
00470 SWDFX
00480

TO
TFL

S\jQ-l
SWD-2
SWD-l

,

S~mFX-l

"

669
PAGE
00910
00920
00930.
00940 FETCH5
00950
00960
00970
009BO IOEND
00990
01000
01010
01020
01030
01040
01050
01060
01070 SETRMK
01080
01090
01100
01110 DDB
01120
01130
01140 DSAOTR
01150
01160 SWDI
01170

01180**
01190 IOREF2
01200
01210
01220 CK
01230
01240
01250
01260 CKI
01270
01280
01290 L1NKB
01300
01310
01320
01330
01340
01350 ADDTOI

SWDI
DORG .-3
SET UP LINKAGE FOR FLOAT

00522 M9 00708 00000
00530

00530 20 02966 01194
00542 49 03998 00000
00549
00552
00552 JO 00705 -0552
TFM
DSAOTR+5, DI OEND
00564 ML 00656 00421
BRANCH I F FETCH
eo SETRMK,FRINO"
00576 K4 0040 1 02233
C
NlTEMP,Nl
BRANCH IF 8UFFER EMPTY
BE
SETRMK",
00588 M6 00656 01200
00600 JO 00408 -0620
RETD2+6, *+20
TFM
00612 M9 00354 00000
B7
N2CK
WRITE BUFFER TO FILE
TFM
IORTt*+23, ,
00620 10 00565 -0643
00632 49 00532 -2860
IOPT ,DKDATA,7
B
00644 Jl 0028J 000-1
FIND-l,1,610
AM
00656 KN 01398 01462
SWD+900 ,DKBUFF+200
TO
00668 10 00565 -0743
IORT,IOREF2+11
TFM
00680 49 00566 00000
IOGT
B
00687
DORG
00687 00001
1,1
DSC
00692 00005 -0200
200
DSA
00695 00003
3,9
DC
00700 00005 -0498
SWD,DIOENO
DSA
00705 00005 -0552
00706 00001
DC
1,dJ
00708 Kl 00413 02240
INCREMENT BUFFER ARROW
A
BUFFAR,W"
00720 ML 00984 00421
BRANCH IF FETCH
BD
FETCH1,FRIND"
RECORD
CLEAR FLAG ON ADDRESS OF DATA
CF
SWD-l,DATB,7,
00732 LL 00497 -1253
DECREMENT WORD COUNT
N1TEMP,1,10 ,
SM
00744 J2 00401 000-1
00756 -0 0041L 0049P
BUFFAR, SWD-l, 611
TFL
CHECK FOR FULL BUFFER
NITEMP,O,lO,
CM
00768 J4 0040 1 000-0
00780 M7 00210 01200
BNl
TOBS
00792 ML 00198 00421
BR I F FETCH
BO
TOBB-12, FRINO"
00804 J6 00854 -0532
LlNKB+ 18, IOPT
TFM
00816 JO 00408 -0836
TFM RETD2+6,LlNKB
00828 M9 00354 00000
N2CK
8
00835
DORG 0-4
CALL CORRECT 10RT ROUTINE
IORT,*+23, ,
TFM
00836 10 00565 -0859
00848 49 00000 -2860
,DKDATA,7
B
INITIALIZE 8UFFER ARROW
BUFF AR, DKBUFF+ 199"
TFM
00860 JO 00413 -1461
00872 K2 00411 02243
BUFFAR-2,RECLG
S
00884 MM 00908 00421
8NF
*+24,FRIND
00896 Kl 00413 02240
BUFFAR, W
A
J 1 0028J 000-1
INCREMENT
I
00908
FIND-l,1,610,
AM

TF

FLTENO,ICON8+5

B

FLOAT

OORG *-4
DORG *+4

.-4

67U

PAGE
01360

01370
01380
01390
01400
01410 AGA IN
01420
01430
01440 FETCHI
01450

DIODDA+5,DIOODA+S, ,

FETCH2,FRIND
TDBB-12

BD

DORG -1',-4

DRAY-i, 10,10

AM
TF
B
DORG
C
BNE

S~W-l,DRAY-l

SI;o
*-4

NITEMP,Nl
FETCH2",

INCREMENT SECTOR ADDRESS
00920 21 02873
00932 ML 01028
00944 M9 00198
00951
00952 Jl 00221
00964 KD 00497
00976 "9 00498
00983
00984 K4 00401
BRANCH IF 8UFFER NOT EMPTY
00996 M7 01028
01008 J6 00854
01020 "9 00816
01027
01028 J2 00401

10

02876
00421
00000
OOOJO
00221
00000
02233

01200
-0566
TFM
LlNKB+18,IOGT
B
00000
CKI
OORG *-4
000-1
SM
NITEMP,l,lO
01500*
SEND THE WORD TO FAC
01040 00 02492 0041 L
01510
TFL
FAC,BUFFAR,11
01052 M6 01064 01400
~H12, 1400
01520
BI
TEST FOR FLOATING AOORESS AT SWO-l
01530*
01064 MM 01158 00497
FETCH3,SWD-l
01540
BNF
IT IS A FIXED ADDRESS
01550*
01076 L3 00497 00000
SWD-l
01560
CF
TEST FOR FLOATING WORD IN FAC
01570*
BNF
FETCH4, FAC-l
01088 M4 01170 02491
01580
01590*
THE IWRD I S FLOATING SET UP LINKAGE FOR FIX
01600
TF
FIX END+6, ICON7+6
01100 20 02966 01125
01112 49 03854 00000
01610
B
FIX
DORG '-4
01119
01620
01119 00001
1,4
01630 ICON7
DC
01640
DSC
1,9
01120 00001
01125 00005 -1126
DSA
RETFL T
01650
01660 RETFLT TFM
,RTN
01126 16 02966 -2506
FL TEND
01138 41 00000 00000
01670
NOP
BRANCH TO STORE NUMBER
01680*
01690 CKLD
B
FETCH4
01150 M9 01170 00000
01700
DORG *-4
01157
01710 FETCH3 BNF
FETCH5,FAC-l"
BRANCH IF F I XED
01158 M4 00530 02491
STORE THE WORD IN MEMORY
01720*
01730 FETCH4 TFL
$WD-l,FAC.b
01170 -6 0049P 02492
CHECK FOR EMPTY 8UFFER
01140*
01182 "9 00768 00000
01750
B
CK
01189
OORG .-4
01760
01189 00001
OC
1,9
01770 ICON8
01194 00005 -1126
01780
OSA
RETF L T
DECREMENT WORD COUNT
01790 DRAY!
SM
PAR,i,lO"
01196 12 03B43 000-1
01208 M7 01222 01200
01800
BNZ
"'+14
B8
01220 42 00000 00000
01810
DORG 0-9
01820
01222
01222 MM 00952 00221
AGAIN-12,ORAY-l
BNF
01830
DRAY-l,K
01234 K2 00221 02221
01840
S
01460
01470
01480
01490 FETCH2

671
PAGE 11
01850
01860
01870 DAT8
01880
01890
01900 OKBUFF
01910-

01920*
01930*
01940-.
01950 LOIRD
01960
01970
01980 OIMI
01990
02000
02010
02020
02030 STLDI
02040
02050
02060
02070
02080 HERE
02090

8
DORG
OSC
OSA
DC
OS

AGAIN
0-4

2,-00
ODB
1,~
t

DATB+9

01246 "9 00964 00000
01253
01253 00002
01259 00005 -0687
01260 0000 I
01262 00000

WRITE 2ND SLaCK
DSC
DSA
DC
OSC
OSA
OC
OSA
DC
CF
OG~

CF
TFM
TO
B
TRA

2,00
01 Ml
1,~

1,1
209
3,9
SWO
l,~

ICON7+2
OATB+9+200
ICON8+1
IORT,HERE+lI
SWD+900,DK8UFF+200
IOPT,LDIRO,7

01261
01267
01268
01269
01274
01277
01282
01283
01284
01462
01296
01308
01320
01332
01344
01356
01363

01365

02100

TCD

STLDI

02110*
02120*

BLOCK 1 OF FETCH FIND RECORD
DORG SWDA
02130
TF'M DSABLK+5, SWD
02140 SWO
lOR T, lOR E F+ 11
TFM
02150
IOGT
02160
8
ODRG ·-4
02170
1,1
02180 DOA8LK DSC
DSA
209
02190
3,9
02200
OC
SWO, SWD
DSABLK
OSA
02210
02,220
DC
OORG
02230
02240 DIDEND 8
02250
BB
02260
OORG
OSC
02270 OAT I
GSA
02280
OC
02290

I ,~
IOEND
OUT
.-9

2,-00
DDABLK
I,@

01370
01371
01377
01380
01284

00498
00498
00510
00522
00529
00529
00534
00537
00542

00002
00005 -1269
00001
00001
00005 -0209
00003
00005 -0498
00001
L3 01121 00000
00001
L3 01190 00000
10 00565 -1343
KN 01398 01462
4R 00532 -1261
10 00565 -1363
49 00716 00000
00002 2K
00005 -1371
00001 il
00006 1 J9783
00003 -03
00006 -0000.

JO 00541 -0498
10 00565 -0853
49 00566 00000

00001
00005 -0209
00003
00005 -0496
00547 00005 -0498
00548 00001
00552
00552 M9 00008 00000
00564 42 00000 00000
00566
00566 00002
00572 00005 -0529
00573 00001

672

PAG~

02300
02310 FETCH

OS
B
TDM

12

00578 00005

5

00580 M9 00102 00000
SET FETCH-RECORD INDICATOR TO FETCH
00592 J5 00421 OOOOJ
BRANCH TO SET FIND INDICATOR OFF,
AITEST",
02330
00604 M9 00034 00000
02340_
COMPUTE ADDRESS , TEST I , AND TEST
FOR DEFINE STATEMENT.
02350RECD
00616 M9 00134 00000
02360 RECORD B
SET FETCH-RECORD INDICATOR TO RECRD
02370
TOM
FRINO,Q"
00628 J5 00421 00000
8
AITEST
00640 M9 00034 00000
02380
02390 SET!
TFM
DIODDA+5,218, ,
SET SECTOR ADDRESS IN DDA
00652 16 02873 -021B
02400
M
COMPUTE ADDRESS OF FILE RECORD
FIND-l,RECLG,6,
00664 K3 0028J 02243
02410
, DIOOOA+5,99
00676 21 02873 00099
A
02420
*+44,FINOIN,t
BRANCH IF NOT FIND
0068B 113 00732 02404
BO
02430 SSEEK TFM
IORT.·+23
00700 10 00565 -0723
IOSK,DKDATA,7,
TRANSFER TO 10RT TO SEEK
02440
B
00712 49 00554 -2860
B
DIOEND
00724 M9 00552 00000
02450
02460
DORG '-3
00732
INITIALIZE BUFFER ARROW
TFM BUFFAR,DKBUFF+199"
02470
00732 JO 00413 -1461
BUFFAR-2,RECLG
00744 K2 00411 02243
S
02480
02490
TF
00756 K6 00401 02233
NITEMP,Nl ..
02500
OIODDA+8,RECLG, ,
STORE RECORD LENGTH IN DDA
TF
00768 26 02876 02243
STORE ADDRESS OF 8UFFER
02510
TFM oloDDA+l3, DKBUFF+200"
00780 10 02881 -1462
SUB LENGTH OF RECORD TO GET FIRST COR
QZ520
01 DDDA+ 11 ,R ECLG t'
00792 22 02879 02243
INITIALIZE BRANCH 8ACK
02530 OVER
TOM T088+1,2,.
00804 J5 00211 00002
00816 42 00000 00000
02540
BB
00818
oORG *-9
02550
TFM TEMPA,lO,lO,
STORE FLOATING LENGTH IN TEMP A
02560 EVEN
00818 J6 00377 OOOJO
BRANCH IF FLOATING ARRAY
02570
BNF *+36 t DRAY-! r,
00830 Mil 00866 00221
oRAY-l,oATl,7
00842 LL 00221 -0566
02580 10REF CF
TF
TEMPA,K. ,
STORE FIXED LENGTH IN TEMPA
02590
00854 K6 00377 02221
02600
TF
oIODoA+l3, DRAY-I"
STORE ADDRESS OF FIRST ELEMENT
00866 20 02881 00221
00878 11 02881 -0001
AM
DIODDA+13,1
02610
HIGH ORDER POSITION OF ARRAY
02620
S
DIoooA+l3, TEMPA"
00890 2K 02881 00317
00902 K6 01149 02881
TF
EVENl+ll,DIODDA+13
02630
00914 K3 00377 03843
02640
M
TEMPA,PAR
00926 32 00095 00000
95
02650
SF
EVENl+ll,99
00938 Kl 01149 00099
02660
A

02320

FECH

FRI~JD,

1,11,

873
PAGE 13
00950 J4 01149 -0000
00962 M7 00986 01200
-+24
00974 J6 01149 -0000
EVENl+11 ,0
EVALUATE AND STORE LOW ORDER
POSITION + 1 OF ARRAY
EVALUATE SECTOR COUNT
00986 11 00097 00-01
AM
97, 1
,9, ADD ONE FOR GROUP MARK
00998 K5 01021 02243
*+23,RECLG
TO
01010 M3 01058 00251
SO
OVER3,251"
8RANCH IF RECLG IS 1
01022 K5 01045 00097
*+23,97
TO
BRANCH IF EVEN NUMB OF SECTORS
SO
*+24,210"
01034 M3 01058 00210
01046 11 00097 000-1
97,1,10
AM
02780
01058 26 02876 00097
DIOODA+B,97"
SET UP SECTOR COUNT
02790 OVER3 TF
01070 ML 01094 0102J
02800
BD
OVER2, BDI 2+ 11,11
01082 13 02876 OOONO
DIODOA+8-,50,10
02810
MM
01094 Kl 0028J 00097
02820 OVER2
FINO-l.97,6,
ADO NUMBER OF RECORDS TO I
A
01106 J2 0028J 000-1
FINO-l,1,610
02830
SM
01118 JO 00408 -1138
02840
TF" RET02+6,*+2D
.01130 M9 00354 00000
02850
B
N2CK
01137
02860
DORG
01138 K5 01221 00000
TO
02870 EVENI
EVEN2+11
8RANCH IF FCTCH
02880
BD
FETCH8,FRIND ••
01150 ML 01248 00421
02890_
RECORD
SET GROUP MARK AT END OF ARRAY
02900
TO
EVENl+ll,DK8UFF+200,6,
01162 KN 0114R 01462
WRITE ARRAY ONTO FILE
0291001174 10 00565 -1197
02920
TFM
IORT,*+23
01186 4ft 00520 -0000
IORBC,NOWLC ,7
B
02930
01198 16 02966 -2506
TFM
FL TEND
. ,R TN
02940
RESTORE DIGIT
02950 EVEN2 TOM EVENl+ll,,6,
01210 J5 0114R 00000
01222 Jl 0028J 000'-1
FIND-l,I,610
AM
02960
INCREMENT SECTOR ADDRESS
DIODOA+5.0IODOA+B ••
02970
A
01234 21 02873 02876
01246 42 00000 00000
02980
BB
01248
OORG *-9
02990
INSERT ADDRESS FOR ERROR ENTRY
03000 FETCH8 TFM
oIO+35,YTURN,67,
01248 10 0085N -1354
READ ARRAY FROM FILE
TFM
03010
01260 10 00565 -1283
IOGT,OKOATA,7
01272 '49 00566 -2860
03020
B
INOUT,CHECK-12"RESTORE SPECIAL IORT ERROR EXIT
030·30
TFM
01284 16 00629 -1256
TEST FOR NO GROUP ·MARK
03040*
01296 NN 01316 0114R
03050
BNG *+20, EVENl+ ll, 11
01308 M9 01210 00000
03060
B
EVEN2
.01315
oORG *-4
03070
TF
Fl TENO, EVENSP+6
01316 20 02966 01353
03080
TFM
EI.473,9
01328 16 02615 OOM73
03090
01340 49 02936 00000
B
ERROR
03100
01347
OoRG 0-4
03110
02610 CARRY
02680
02690
02700*
02710*
0272002730
02740
02750 8012
02760
02770

CM
SNE
TFM

EVENl+11 ,0

'-4

PAGE 14
03120 EVENSP DC
03130
Dse
03140
DSA
03150 YTURN
BI
03160
BNI
03170
TFM

01347 00001

1.4
1.9

01348
01353
01354
TURN OFF WLRe IND
01366
ERRETf 1900, , GU ON IF NO OTHER ERROR
I NOUT, MY ER, , SET UP SECOND 10RT ERROR EXIT
01378
01390
IOERR,,, LET I DRT CHECK ANY OTHER ERRORS
03180
B
01397
OURG .-4
03190
01404
DORG SWD+906
03200
00377
TEMPA
2,N2CK+23
OS
03210
00401
2,RETDZ-l
03220 NITEMP OS
00421
03230 FRIND
OS
ItBE2+7
WRITE FIRST BLOCK
03240*
EVEN2-12

*+12,3700"

03250*
03260
03270
03280
03290
03300
03310
03320
03330
03340
03350
03360
03370
03380
03390
03400
0341D

DIM2

LD2ND

STLD2
GM

NIO

03420
03430

DSC
DSA
DC
DSA
DC
DSC
DSA
DC
TO
AM
CF
DGM
OGM
TFM

01404
01409
01412
01417
01418
01419
01425
01426
01428
01440
01452
01462
01398
01464
01476
D1488
01500
01507
01509
01514
01515
01521
01524
01428
00007

1,1
200
3.9

s.m

1.@

2,00
OIM2
1,@
CARRY+7, CORSI l

CARRY+8,lO,lO
EVENSP+2
DKBUFF+200
SWD+900

IORT,NIO+ll
IOPT,LD2ND,7

B

TRA

STLD2
TCD
DEND 7

00001
00005 -1198
M6 01366 03700
47 00602 01900
10 00629 -0166
49 00630 00000
00002

00002
00001

00001
00005 -0200
00003
00005 -0498
00001
00002
00005 -1404
00001
K5 00957 07376
J 1 00958 OOOJO
L3 01349 00000
00001
00001
ID D0565 -1487
4R 00532 -1419
ID 00565 -1507
49 00716 00000
00002 2K
00005 -1515
00001 @
00006 IJ9783
00003 -03
00006 -OOOO@

675
PAGE IS'

00010*
00020

1620 FORTRAN lID,MON II
DSA
FCOS
,FSIN

,FL PT .RELDC ,FX L

SINE-COSINE

00004 00005 -0006
00009 00005 -0042

00030
00040 FCDS

DDRG 0-4
BLXM SET

00050
00060
00070 FS IN

TFM SW+l
SICa
B
BLXM SET

00080
00090
00100·
00110 SICa
00120
00130
00140
00150
00160 TRYMAX
00170
00180
00190

MF
TFM

MU-l
SW+ 1

, FAC-2
,41

,10,

CM
BNL
BNF
HL
BLXM
CM
BL
TFM
BUM

FAC
TRY MAX

,-4

,10

*+24

t

FAC
RESET
FAC
MUL
EI
RESET

, FL ONE

,FeOS-lIDD,!l,
,-66

,10,

,FSIN-l%oc,ll,

,

00005
ARG TO FAC. SAVE OV,EXV. SEL IX
00006 60 04142
SET SW II COS
00018 J6 00247
00030 M9 00078
ARG TO FAC. SAVE OV,EXV. SEL IX
00042 60 04142
00054 71 02967
00066 J6 00247
SET SW #SIN

0007B 14 02492 OOO-M
NOT TOO SMALL
SIN

SW+ 1

B A
OOOON
00000
00000
B A
0004J
02490
OOOfll

00090 M6 00138 01300
00102 MM 00126 00247
00114 06 02492 03153

, FIXEND%Oo
,7
t 10

00126 66 05862 02960
00138 14 02492 000-7

,670

00150 M7 00186 01300
00162 16 02707 00070

,9

,UNFLO 100"

EXIT FOR CHAR MORE THAN 6
00174 66 05862 02904

00200-

00210**
00220 MUL
00230-

M

DIVIDE ARG BY 2 PI
R2P I
,FAC-2

001B6 23 06441 02490

..

SEPARATE FRACTIONAL PORTION OF ARG ANO PLACE IN GAM,10 DIGIT
, lERO-8
INIT TO ZEROS
00198 26 02739 02749
00250
TF
GAM
, FAC
00260
BX
un
00210 01 00222 024R2
*+12
tIC,
SET HI ORDER FLAG ON TENTHS POSIT
00270
SF
82
00222 32 000Q2 00000
::eIc, ,
00280
GAM
,91
POSITION FRACTIONAL PART
00234 21 02739 DOOR 1
00290 SW
BL,XM CK SlZ E ,99991 %10, ,
NOP IF SIN,RESET IX 1 IF COS
00246 06 00294 999Rl
0025B 22 02739 06431
GAM
00300 SINCDN S
t PT25
00270 33 02739 00000
00310
CF
GAM
00282 06 00294 999Rl
00320
BLXM CK SIlE
,99991 Un
0033000294 14 02731 OOONO
GAM-8
00340 CKSIlE CM
.50
.10
EVAl H-24,
F GREATER THAN .5
00350
BNL
00306 M6 00362 01300
, PT25
00360
TF
FAC-2
.25
00318 26 02490 06431
FAC-2
00330 22 02490 02739
00370
S
,GAM
.25-F
, FAC-2
STORE l IN GAMMA 00342 26 02739 02490
00380
TF
GAM
00354 M9 00386 00000
00390
B7
EVAL H
,PT75
F-.75
00362 22 02739 06451
00400
GAM
S
FAC-2
, GAM
00410
TF
00374 26 02490 02739
00420*
10 01 GI T FI ELD Z STORED IN GAM AND FAC-2.ABS V LESS THAN .25
00430**

00240***

676

PAGE 16
FAC-2
FAC-2
BETA
BETA
BETA
90
SAV3
SAV3
FAC-2
FAC-2
SAV3
89
FAC-2
FAC-2
81
FAC-2
FAC-2

, FAC-2
,89
,A
,88
, FAC-2
,99
,C
,90
,90
,B
, FAC-2

00440 EVALH
00450
00460
00470
00480
00490
00500
00510
00520
00530
00540
00550
00560
00570
00580
00590
00600
00610*
00620··
00630 NORM

M
TF
TF
A
M
MF
TF
A
A
A
M
A
TF
M
SF

00640
00650

BD
SIGN
BCXM *-12

,89

00660

TFL

FAC

, FLZ

00670
00680*
00690 SIGN
00700
00710
00720

B7

EXIT

SF
S
TF
BNF

%Ie
89
,309
FAC
FAC-2
,96
,99
EXIT

00730

BNF

EXIT-12

00740
00750
00760 EXIT
00770'
00780 FLZ
00790 A
00800 B
00810 C
00820 0
00830 E
00840

99
CF
HU-l
MF
,99
BlXM RESET
,FIXEND
CONSTANTS FOR SIN COS
OS
,FlZER
OS
,ASC
,BSC
OS
,CSC
OS
,OSC
OS
, ESC
OS
OENO

TF
M

.06
.06
X#Z*Z
-1.46
-1.4
A+ X
XU+Xe#Y--.084

Z*l-

,0
,89
,E
,90

,GAM

WIND UP TH I S FUNCTI ON
,92
TFM
FAC

,I

t

10,

SID, ,
Sla, ,

..

SIc, ,

,"U-l

C
Y+C
Y+X
Y+X+B
W
W+O
W+O

+.97
.89
-.024
+ .37
+.30
+.10

E*ZW+Oc

+4.0
+1.0

00386
00398
00410
00422
00434
00446
00458
00470
00482
00494
00506
00518
00530
00542
00554
00566
00578

23
26
26
21
23
71
26
21
21
21
Z3
21
26
23
32
26
23

INIT EXP FOR IX ADJ
00590 16
NORMALIZED
00602 M3
ADJ ADR REF TO MANTI SSA
00614 04
EXIT IF RESULT ZERO
00626 06
00638 H9
00646
ADJ EXP
00658
00670
MOVE "ANT
MU-l CONTROLS SIGN
00682
99
CONTROLS SIGN
00694
00706
00718
00730
03131
06381
06391
06401
06411
06421
00002

02490
02490
02630
02630
02630
00090
02562
02562
02490
02490
02562
00089
02490
02490
00081
02490
02490

02490
00089
06381
00088
02490
00099
06401
00090
00090
06391
02490
06411
00089
06421
00000
00090
02739

02492 000R2
00646 000Q9
00602 000-1
02492 03131
00730 00000

32 000Q9 00000
22 02492 00309
26 02490 000R6
H4 00730 00099
H4
33
71
66

00718
00099
02967
05862

02967
00000
00099
02960

00000
00000
00000
·00000
00000
00000

671
PAGE 17
00010.
00020
00030 FATN
00040
00050
00060 NONZ
00070
00080.
00090
00100
00110
00120
00130
00140
00150
00160.

00170*.
00180 CALC
00190
00200
00210
00220
00230 EVALCK
00240.
00250 ••• 00260 EVAL
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360.
00370 EXIT
00380
00390.
00400 K2
00410 K
00420
00430
00440'
00450 MAXVAL
00460
0047000480· ...
00490 K23

1620 FORTRAN IIO,HON II, FL PT, RELOC, FX L ARC TANGENT
OSA FATN
00004 00005 -0006
BLXM SET
IOa,11, SAVE OV, EXV. LO FAC. SEL IX BAND A
.*-1
00006 60 04142 OOOON
,FAC-9
Bo
NON Z
NON ZERO
00018 H3 00042 02483
BLXM RESET
,Z ERFACloa"
RESUL T ZERO, RESTORE OV,EXV.IX Bo B
00030 66 05862 02884
, FAC-2
MU-l
MF
STORE SIGN
00042 71 02967 02490
FSL· FAC-ll
,FAC-2
EXPAND TO 10 OIGIT MANT
00054 05 02481 02490
SPLIT INTO FOUR INTERVALS, ZERO THRU THREE
CM
FAC
,00
,10
00066 14 02492 000-0
K
NEGATIVE EXP
00078 M7 00378 01300
BL
BH
K 23
POSITIVE EXP
00090 M6 00434 01100
FAC-l0
,1O,
CM
,23
ZERO
EXP
00102 14 02482 000K3
BNH K
LESS THAN
.24
00114 M7 00378 01100
FAC-l0
,80
CM
,10
00126 14 02482 OOOQO
BNL K2
MORE THAN .79
00138 M6 00366 01300

..

....

,
,

CALCULATE HI 8K-GK/nAC+BKe
FAOO FAC
ue
,BK
TFL BETA
,GK
ue
FOIV BETA
,FAG
TFL FAC
,BK
%1"
FSUB FAC
,BETA
TFL BETA
, FAC

·00150
00162
00174
00186
00198
·00210

01
06
09
06
02
06

02492
02630
02630
02492
02492
02630

06205
062P7
02492
06205
02630
02492

EVALUATE
OF Z • Z - A*Z.*3 + B.Z**5 - C-Z-*7
FMUL BETA
,BETA
00222
TFL BETA-12
.BETA
00234
Z*.2
·00246
FMUL BETA
,C
·,B
8+C.Z •• 2
FADD BETA
00258
FMUL BETA
.8ETA-1Z
00270
FAOD BETA
,A
A+B*Z •• 2+C*Z •• 4
00282
FMUl BETA
,BETA-12
00294
FADD BETA
.ONEZ
00306
FMUL FAC
,BETA
FHa
00318
X:lc, ,
FADD FAC
,AK
AK + Fue
00330

03
G6
03
01
03
01
03
01
03
01

02630
02618
02630
02630
02630
02630
02630
02630
02492
02492

02630
02630
06241
06229
02618
06217
02618
03121
02630
062N3

'.'

..

FAC-2

TF

,FAC-4

BLXM RESET

,FI XENolOa

BLXM
CM
BNH
BlXM

CALC
FAC
EXIT
EVAl CK

.

TFL
B7

FAC
EXIT+12

,PIOV2

CM

,36
.-4

,108

CONVERT TO 8 DIG FIELD
00342 26 02490 02488
00354 66 0586.2 02960

..

lelc. ,

.80 TO 2.076

,10

lela"

INITIALIZE FOR POSITIVE EXP
FAC
.1
.10

ARG TOO SHALL
0.0 TO .23

00366
00378
00390
00402

06
14
M7
06

00150
02492
00342
00210

000L6
OOO-M
01100
001-8

00414 06 02492 06371
00426 M9 00354 00000
00434 14 02492 000-1

6h

PAGE 18

{

,
,08
,

00500
00510
00520
00530
00540

BE
CM
BNL
CM
BNH

00550 K3
00560**
00570 A
00580 B
00590 C
00600

,72
BLXM CALC
:Cle"
CONSTANTS FOR ARC TAN
,AT
OS
,BT
OS
OS
,CT
DEND

*+36

FAC
MAX VAL
FAC-8
K2

",10

",8

,2076

EXP EQUAL 0.1
ARG TOO LARGE

00446
00458
00470
00482

M6
14
M6
14

00482 01200
02492 000-8
00414 01300
02484 OK076

MANT LESS THAN 2.077
00494 M7 00366 01100
2.077 TO INFIN
00506 06 00150 00OP2
06217 00000
06229 00000
06241 00000
00001

679

,

PAGE 19
00010'
00020
00030 SQRT
00040
00050
00060

1620 FORTRAN IIO,MON II , FL
oSA
SQRT
&LXM SET
,SQRT-ll0D,11
,FAC-9
80
·+24
,ZERFACIOa,t
8LXM RESET
,10,
MM
,50
FAC

00070

MF

EXIT+7

00080
00090 SQ2
00100
00110

Bo
IIF
TF
LD

SQ3
97
FAC
97-L

00120
00130
00140 LOOP
00150
00160
00170
00180'
00190 EXIT
00200
00210
00220

TF
SLXM
AM
S
INN
SCXM

,PTl
GAM-2
,-L
l2D
LOOP+l2
GAM-I l2D,02
,10
91-L Ue,GAM-I 12D
LOOP
,1
AoJ IX
12D

MM
SF
TF
SNF

GAM-2
98-L
FAC-2
GOUT

"

,FAC-2
,98
,99
,97
JUD, FAC-2

"
"
"

,50

PT ,RELOC ,FX

SQUARE ROOT
00004 00005 -0006
00006 60 04142 OOOON
00018 M3 00042 02483
NOT ZERO ARG
ZERO ARG
00030 66 05862 02884
EXP/2 IN LOC 96 AND 97,SIGN IN 99
00042 13 02492 OOONO
REMOVE AND STORE SIGN OF ARG
00054 PI 00193 02490
00066 M3 00318 00098
EXP
SAVE
P SIGN
00078 71 00097 00099
EXP 0 RESULT
00090 26 02492 00097
CLR F A AND MOVE ADJ ARG
00102 28 00-89 02490
INIT RESULT MANT 00114 20 02737 00374
00126 06 00150 DO-DO
00138 11 02P38 000-2
00150 22 00003 02P38
00162 M6 00138 01300
00174 04 00270 00-01

~t

00186 13 02737 OOONO
00198 32 00090 00000
00210 26 02490 00097

,10

,lO5-l
,EXIT+7
,676

00230
00240
00250 GOUT
00260.
00270 ADJIX

TFM EI
BLXM RESET
8LXM RESET

,9,

A

91-L

UD,GAM-2 12a"

00280

CF

91-L

~ll:l,

,ERROR loa"
,FIXENDloa"

Mil
16
66
66

RESTORE TO PLUS VALUE
00270 21
CF REQD IF RESULT I S ZERO
00282 33
00294 12
00306 02

00258
02707
05862
05862

000Q3 02P37

SM
aXM

00320**

SET UP FOR ODD EXP EVALUATION
99
AM
,50
,10
EXPAND FIELD
TOM FAC-2-L
,11 t
FAC;"l-L
CF
,1
:&21:1, ,
aXM
SQ2
ADJ POSIT IN FPA

00318
00330
00342
00354

9
DC
DENO 1

00374 00009
00001

,10
Ue

,010000000

00193
00076
02956
02960

00003 00000
02P38 000-9
00150 000-2

00290
00300
00310*
00330 503
00 3 40
00350
00360
00370.
00380 PH
00390

GAM-I l2e,9
LOOP+12
,2

NOT NEG ORIG MANT
. 00222
SET ERROR IND
00234
ARG WAS NEG,EXIT 00246
NORMA'L EXIT
00258

11 00099 OOONO
15 02482 000033 02483 00000
02 00078 00-01

6811

PAGE 20

00010*****
00020
00030 ASS
00040
00050

1620 FORTRAN II-D
DSA
ASS
TFL
FAC
,ABS-l

8NF

*+26

CF

FAC-2

00060
00070
00080

BB
DORG 0-9
GF
FAG

00090
00100 FAG
00110

BB2
OS
OEND

,FAC-l

,02492

RELOCATABLE ABSOLUTE VALUE ROUTINE IFIXE
00004 00005 -0006
,111
00006 00 02492 OOOON
,0
00018 M4 00044 02491
FLOAT ING POINT NUMBER
00030 33 02490 00000
00042 42 00000 00000
00044
FIXED POINT NUMBER
00044 33 02492 00000
00056 42 00000 00000
02492 00000
00001

681
1620 MON "OR 11

...

DUP ROUTINE

00050
00060
00010
00080
00090 IIR
00100

TFM
I
TFM
81
OSC
02

aSA

,

00110

ose

00120 NR2

NR2

02251

I,'

02251
02258

JORt ••• 2]"

00160

OSC

00180
00190

DSC

00150

0

1

02201

IOPT,IIR,l
IORT,SLl,?
lOCAL
2,02

00110 SLl

OOHO

02202
00716
02202

02201
02208
02220
02232
022."
02251

ose I,D
0
5,0
DC
-0000
J·,o
DC
-00
,,0
DC
-0000
OSC I,'

00130

PAGE

SELECTION ROUTINE

00010
R,AO/IiRITE FOR CORE I MAGE LOAD
00020
ODRG 02202
OOOJO lOCAL OS
,716
00031 REPUC DSC I,D
0
000.0 RONR
DSA ROI
PUT CORE IMAGE PROGRAM

X

16
.9
16
.9

-5059
00565
00532
00565
00116

-2231
-2251
-2214

2
5 X
-2259

1

02259
0226.

,

5

0226?

3

02212

5

02213

2,-22

0221.

2

OSA

SLl

02280

5 X

,

I,'

02280
02281

Zf(

00200 SLl
00210
00220
00230
002.0
00250
00260 COR
00210
00280
00290 eOR2
00300

02282

OSC 1,1 .
I
5,1855.
DC
J855.
3,0.1
DC
\-41
5.2.02
DC
-2.02
DSA SOLOoN

.

OSC

1,'

'"

COR2.00101
COR2.00102

38
TRA

-2282
I

02281
02290

3

02295
02300

X

02300
02301
02302
0231.
02326
02338
02350

OOA ,I,18260,I,lEPLAC
lJ8260-01-2202
Teo COR

02302

68'l

-5106
I

3.
38
36
.9

02350
02350
00000
00000
I.

00101
00102
00500
00000

1620 MONI TOR 11
00380
00390
00400 SElEC
00410
00420
00430
00440 DDA
00450

OSC 101
1
5.0
DC
-0000
DC
3;0
-00
DC
5.0
-0000
OSC 1 ••

00500
00510
00520
00530
00540
00550
00560
00570
00580
00590
00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00120
00730
OOHO
00750
00760
00110
00780
00190
00800
OOSIO
00820
00830

PAGE

SelECT TFM
TFM
B
TFM
TFM
8
TO
TF"
B
LIS
TFM
SM
TFM
8
TFM
TFM
CT
BFlG
8NF
81
AM
AM
CM
BL
NEXT
CM
BE
AM
AM
AM
87
O~
TFM
B
TF
TF
TF

02402
02402
02414
02426
024H
02"3"

16
49
49

00565
00566
00000

-2425
-2434
00000

5 X

02440

-2442
1

02440
02441

1 ••

OSC

00410 OCF

00490

SelECTION ROUTINE

1620 [11 SK UTILITY PROGRAM SelECTION ROUTINE
OORG 2402
TFM lOR.T.·.23
B
IOGT.00A.7
8
00000
OORG '-3
OSC 2.22
22
OSA OCF

00460

00480

OUP ROUTiNE

02442
02447
OH50
02455
02456
02458
02470
02482
02494
02506
02518
02530
02542
02554
02566
02578
02590
02602
02614
02626
02638
02650
02658
02670
02682
02694
02706
02118
02130
02742
02754
02766
02774
02786
02798
02810
02822

HOLD2.0.10
IORT. -+23
IOGT.00AI.7
MCS+98.0.7
IORT.H23
IOPT,00Al,7
HOl02,MCS+49
IORT,.+23
IOGT,0IMl,7
01M4+ \3. REAO.27
HOlD2,1.lO

IORT,e+23
IOGT.USTl.7
BHG+1l ,READ+IOO
CNfl.002.29
'+20,READ+IOO,7
NEXT
CT+6.1,610
IFLG+Il.100,9
'FlG+ 11. READ+8000
IHG
HOL02.0.10
ON
CT+6,3,10
LIS+6,20.10
LlSTl+6.20.10
LIS
10RT ••• 23

lOG T, SPLSUB.l
SPLPKO+8.CNTl
SPLPK 1+8.CNTl+3
SPLPK2+8.CNTl+6

16
16
49
16
16
49
25
16
49
16
12
16
49
16
16
44
49
11
11
14
41

14
46
11
11
11
49
16
4'1
26
26
26

05907
00565
00566
17876
00565
00532
05907
00565
00566
J7993
05907
00565
00566
02649
-6432
02658
02706
0263K
02649
02649
02638
05907
02114
02632
02572
06428
02566
00565
00566
12653
12676
12699

000-0
-2493
-5908
-0000
-2529
-5908
17827
-2565
-6399
-9778
000-1
-2613
-6422
-9878
00-02
-9878
000-1
OOJOO
J7778
01300
000-0
01200
000-3
OOOKO
OOOKO
-2797
-6443
06432
06435
06438

£89

1620 MON ITOR 11
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
01\20
01\30
01\40
01\50
01160
01170
01\80
01\90
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380
0\390

TF
COMPAR C
BH
TR
81
TR
BNR
TF
TF
TFM
I
ITM

TO
CM
BE
CM
INE
8NF
CM
IE
TF
TFM

IT ..
eNR
TFM
e
TOM
CALCOM TFM
e
TFM
I
TFM
TR
TR
CALLO

DUP ROUTINE

SELECTION ROUTINE

P_GE

SPLPK3+8.CNTl+9
CNTl.CNTl+3
-+32
CNfl-2.CNTl+I

•• 20
CNTl+I.CNTl+4
COMPAR.CNTl+l
THROWS+8.CNfl
CORSI Z,CNTl

IORT.-+23
IOPT.SPlSUB.7
CLRIN.H12
HOlD2. SYSCAL
HOLD2,4tlO
CONTCO
HOLD2.6.10
NOCOMP
DMP.MCS+22
MCS+]9,0.8
CALLD
NEWDI M,MCS+39
DIMMER-i.MAP
0IMMER,*+12
CAUI'L,"AP

Ia.T ,.+23.,

CALL IN LOAD ROUTINE

IOGT,DOA2,7
IIEPLAC,0.10

IOItT ,.+23.,

IOGT,COM2.7
101H,H23
IOGT.DOA4.7
SELECHO.05100
DDA,00A5"
DCF.DCF5"
B
SELEC
DOIIG .-3
CALRPL eNF ·+32,MAP+19
TFM 0IMERR+22.7578.8
UP I
8
DOIIG '-3
MCS+35.1EROI2
C
8E
-+24BTM EOUIV.·+12
TF" JORT,-+23 ••
10GT .00Alt 7
8
TOM REPLAC.I
I
CALCOM
DORG '-3
SELERR TFM 0IMERR+22. 7579, 8
UPI
8
DDRG '-3
OMP
8NF MONCAL.MCS+23
TR
ODA,DOAb, •
TR
OCF.OCF6
TFM SELEC+30.02500
8
SELEC

CALL IN COMMON ROUT I NES

SET UP LAST CALL SEQUENCE
SP LI ST SUIIIOUTI NES

CALL IN REPLACE ROUTINE

SET UP CALL FOR DUMP ROUTINE

68 11

02834
02B46
02858
02870
02B82
02890
02902
02914
02926
02938
02950
02962
02914
02986
02998
03010
03022
03034
03046
03051
03070
0)012
03094
03106
03111
03130
03142
03154
03166
0311.
03190
OJZ02
03214
03226
03231
03246
03246
03258
03270
03278
03278
03290
03302
03314
03326
03338
03350
03358
03358
03370
03378
03378
03}90
03402
03414
03426

26
24
46
31
49
31
45
26
26
16
49

12722
06432
02890
OM30
02902
06433
02846
12745
12483
00565
00532
05246
05907
05907
03596
05'107
04692
03378
17817
03118
059H
05340
05346
03246
00565
00566
02202
00565
00566
00565
00566
02432
02434
02442
02402

06436
06433
06432
061>32
-2961
-6443
-2974
00475
000-4
01200
000-6
01200
17800
0-000
01200
17817
-5935
-3106
05935
-3141
-3434
000-0
-3117
-HIO
-3201
-3457
-5800
03503
03511
00000

16
49

03278
06341
05826

05954
OP578
00000

24
46
17
16
49
15
49

17813
03314
05538
00565
00566
02202
03154

06390
01200
-3314
-3337
-3526
00001
00000

16
49

0634\
05826

OP579
00000

44
31
31
16
49

00796
02434
02442
02432
02402

17101
05955
05963
-2500
00000

17
25
14
46
14
47
44
14
46
26
16

17
45
16
49
15
16
49
16
49
16
31
31

49

44

06441
06435
01100
06433

[620 MONITOR 11

01420

OORG .-3
DSC 2,22
22
OU OCF2

OIHO

OSC

01440 DCF2

OSC 1,1,.
1
5,18369
DC
J8369
3,027
DC
-27
5,05800
DC
-5800
OSC 1,'

01400
OIHO DDAl

,

01450
01"60
01,.70

aup

ROUJlNE

SELECT ION ROUT INE

01490 OOA,.
01500

OSC
22
OSA

03440
03441

10'
OLOAO

03450
03455

,

03463

I, ,

03463
03464

OSC 1.1.,
1
5,18480
DC
J8480
DC
3,031

01530
01540

03456
03457

OSC

COMMON

03465

5,08600
DC
-8600
OSC 1,'

01560
01570 CON2
01580

OSC
22
OSA

03473

3

03478

5

03U9

2,22

03480

CON22

03486
03486

,

01590

OSC

01600 CON22

OSC 1,1
1
5,18512
DC
J8512
3,030
DC
-30
5,10600
DC
J060D
OSC 1,'

01610
01620
01630
01640
01650 00A5
01660

OSC
22
OU

5 X
-3465
1

03UO

-31

01550

-3442
I

03442

OCfIt

01510

2

03447

2,22

01520 OCF4

4

03440

,

01480

PAGE
03434
03434

1,'

031087

2
X

-3488
1

031088
031093

5

03496

3

03501
03502

2,22

03503

2

OCF5

03509

5

t"
\

1620 MONITOR 11
01670

OSC

I, ,

01680 OCF5

OSC

1,1 ••

1
DC
5,18298
JU98
DC
3,033

01690
01700

OUP ROUTINE

SELECTION ROUTINE

SP LIST SU8ROUTINES

DC

,

OSC

03511
03516

5,02458

03524

1,'

03525

-2458
01720

-3511
1

03519

-33

01710

PAGE
03509
03510

5

01730 DDll

DSC

2,22

03526

2

01HO

OU

OCF3

03532

5

01750

OSC

,

1,'

03532
03533

-3534
1

Z2

01760

ocn

01770
01780
01790
01800
01810 00AP6
01820

OSC 1,1, •
1
DC
5,18400
J840Q
3,028
DC
-2.
5,05800
DC
-5800
OSC 1,'
OSC
22
OU

,

01890 EQUODA OSC
22
01900
OSA

3

03541
03548
03549
03'"

I, ,

OSC 101
1
DC
5,18247
J8247
3,013
DC
-13
5,05800
DC
-5800
OSC 1,'

01880

5

03542

03555
03556

OSC

01870

03539

OCFP6

01840 DCFP6

01860

0353,.

2,22

01830

01850

OREPL

03557
03562

03570

5

03571
03572

EQUOCF

03578

OSC

I, '

03578
03579

01920 EQUOCF OSC
1

1,1

.

5

03565

2,22

01910

5 X
-3557
1

68i;

03580

2
X

-3580
1

5

1620 MONI TOR 11
01930
01940
01950
01960

OUP ROUTINE

03585
03588
03593
0359~

03596
0]608
03620
03632
03644
03656
03668
03680
0]692
0]704
03716
03728

01970 CONTCO TFM CARDIO+2,O,lO
CAROIO+2.426
01980
TO
CAROIO+2
01990
CF
CARD1O+2,5,lO
AM
02000
CAROl 0+2,06,10
eM
02010
8NE *+60
02020
RC TY
02030
TFM [ORT,*+23
02040
IOPT. ENTMES-4. 7
8
02050
RCTY
Ol060
TFM tORT ,.+2.')
02070
10GT,CARDI0-4.7
02080
8
CM
CARDI0+2.06.10
02090
02100
8NE -+21t
8C4 CONTco+n
02110
TFM *.23,INPUT+159
02120
.+32.INPUJ
02130 80TEST 80
*-1,2,10
SM
02140
02150
8
--24
DORG ·-3
02160
80TEST+I1.3.10
AM
02170
80TEsr+l1.INPur+l0
02180
CM
.+32
02190
8H
TOM INPUT+lZ",
02200
OSC 1,' ,.
02210
02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02)80
02390
02400
02~10
02~20

02~40

02450
02460
02~70

02480
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710
02720
02730
027"0
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
02880
02890
02900
02910
02920
02930
02940
02950
02960
02970
02980

0]152
03764
03716
03788
03800
03812
03820
03820
03832
03844
03856
03867

-+20
8
OORG ·-3
TOM BOTEsr+Il .. 6
OSC 1,' ,CARDIO+2.06.10
-+72
CAROIO+2.06.10

IORT,*+23
lopr.CAROIO-4.7
80TEST+Il.INPUT+ 10

.+32
INPUT+12.0
... 20

TR
rR
rFM
8
OORG
C
8NE
TR
TR
TFM
8
DORG
C
8E
C
8E
C
BE
C
BNE
TR
TR
TFM
B
DORG
C
BHE
TFM
B
TFM
8
TFM

8
B
DORG
C
BNE
TR
TR
TFM
8
OORG
C
8HE
rR
TR
rFM
B
OORG
C
SNE
rR
TR
TFM

B
DORG

OUP ROUTINE

14
47
34
16
49
34

16
49
14
47
46
16
H

12
49

11
14
46
15

06397
06397
06397
06397
06397
03716
00000
00565
00532
00000
00565
00566
06397
03776
03668
03799
03820
03799
03788

000-0
00426
00000
000-5
000-6
01200
00102
-3703
-6236
00102
-3739
-6391
000-6
01200
00400
J3772
13613
000-2
00000

03799
03799
03876
13625
1

000-3
J]623
01100
00000

03888

00000

15

0379R
1

00000

03888
03900
03912
03924
03936
03948
03960
03972
03984
03996

14
46
16
34
16
49
34
14

06397
03972
06397
00000
00565
00532
00000
03799
04016
13625
04028

000-6
01200
000-6
00102
-3959
-6391
00102
J3623
01100
00000
00000

0379R
17801
13612
13623
04120

00000
000-0
00000
05989
01200

0~028

GSI

33
11

49

04016
04016

BOTEST+1hO.6
MCS+23.0.10
I NPUT-l
I NPUT+ 10. WRAO
e+56

16
25

03868
03876
03876
03887

0~008

.-)

1620 MONITOR 11
02430

o]no

.

CM
BE
TFM
RCTY
TFM
B
RCTY
CM
BH
TOM
B
DORG
rOM
TOM
SF
C
BHE

PAGE

SELECTION ROUTINE

5,18278
DC
J8278
3,020
OC
-20
5.08600
DC
-8600
OSC 1 ••

04040
04052
04064

~6

15
49
15
15
32
24
~7

SELECTION ROUTINE

OOA.OOAPI
OCF.DCFPI
SELEC+30.02502
SELEC
·-3
INPUT+I0.ALTR
-+56
DDA.DDAP2
DCF.DCFP2
SELEC+30.3000
SELEC
.-3
INPUT+I0.0UMP
DMP+12
IHPUTHO.LOAD
CALLD
INPUT+lO,REPL
CALRPL+68
INPUT+lO.COPY
e+56
DD_.DOAP5
OCF.DtFP5
SELEC+30.02700
SELEC

PAGE
04076
010088
04100
04112
OH20
OH20
04132
0~144

04156
04168
04180
04188
04188
04200
04212
04224
04236
04248
04260
04272
04284
04296
04308
04320
04328
04328
04340
04352
04364
04376
04388
04400
04412
04424
04432
04432
04444
0"456
04468
041080
04492
04500
04500
04512
045H
04536

.-)

INPUr+IO,DELer

•• 92
IORT,·+23
IOGT.00AP6.7
IORT.U2)
I OGT. EQUOOA. 7
IORT.un
IOGT.COM2,7
CALCOM+48
·-3
IHPUTHO.FINE
e+56
DOA.00AP7
DCF.OCFP7
SELEC+30.05000
SELEC
.-3
INPUT+I0.LA8L
_.56
DOA,OOAPB
OCF.OCFP8
SELEC+30.02502
SELEC
.-3
INPUT+lO,FLl8
-+56
00A.ODAP9
OCF.OCFP9
SElEC+30,03040
SELEC
·-3

045~8

04560
04568
04568
04580
0~592

GS~

0460"
04616
04628
04636

02434
02442
02432
02402

05990
05998
-2502
00000

107
31
31
16
49

13623
04188
02434
02442
02432
02402

06024
01200
06025
06033
-3000
00000

24
46
24
46
24
46
24
47
31
)1
16
49

13623
03390
13623
03118
13623
03314
13623
04328
02434
02442
02432
02402

06059
01200
06071
01200
06083
01200
06095
01200
06096
06104
-2700
00000

24
47
16
49
16
49
16
49
49

13623
04432
00565
00566
00565
00566
00565
00566
03202

06130
01200
-4375
-3549
-4399
-3572
-4423
-3480
00000

24
47

13623
04500
02434
02442
02432
02402

06142
01200
06143
06151
-5000
000'00

24
107
31
31
16
49

13623
04568
02434
02442
02432

06177
01200
06178
06186
-2502
00000

24
47
3.1
31
16
49

13623
04636
02434

31

31
16
~9

24

31
31
16
49

02~02

02~42

02432
02402

06212
01200
06213
06221
-30~0

00000

6

1620 MONI TOR 11
RCTY
02990
TFM
03000
03010
8
03020
H
8
03030
03040
DORG
03050 NOCOMP CM
03060
BHE
03070 R TURNl BNF
03080
TO
03090
TFM
03100
8
03110
TO
03120
TF"
TO
03130
MM
03140
03150
BO
8
03160
03170
oORG
03180
SM
03190
TF
03200
S
03210
80
03220
Bo
03230
B
OORG
03240
AM
03250
TF
03260
03270
CM
03280
BNL
TFM
03290
RC TY
03300
WATY
03310
03320
B
OORG
03330
TF
03340
BNF
03350
SF
03360
rFM
03370
03380
TFM
03390
B7
OSC
03400 ROI
02
03410
OSA
03420
03430 RD2
03HO
03450
03460

.

DSC

OUP ROUTINE

PAGE

SELECTION ROUTINE

olMERR
NDCOMP-20
.-3
WR2H3,MCS+S8
-+24.MCS+12
WR2+13
WR2+5.00800
10RT.ROWR
IOGr
2.02

04636
04648
04660
04672
04684
04692
04692
04104
04716
04728
04740
04752
04764
04776
04788
04800
04812
04824
04832
04832
04844
04856
04868
04880
04892
04900
0"900
04912
04924
04936
04948
0"960
04972
04984
04992
04992
05004
05016
05028
05040
05052
05059

R02

05065

I, •

05065
05066

IORT,.+23
IOPT,ERCD-4,7

MONCAl
·-3
HOlO2.5,lO
NDCOMP-56
MONCAl,428 ••

CHANGE TO ERROR MESS. lATER

UP1+14,REPLAC
lOR T •• +23,.

GET TWO SECTORS RO , WR

JOGT,SEt2,7
REPlAC,UP1+14
HOlO2,O,10
HOl02,MCS+88
HOlO2,5,lO
-+20.99

-+20
.-3
"CS+98,I,10
HOLD5,434 ••

COMPUTE SECTOR COUNT

HOLDS ,IICS+88
-.32,HOLD5
-+20. HOlD5-1
-+20
'-3
HOl05-2,1,10
WR2+8,HOl05-2
MCS+8B,02302
-+56
0IMERR+22 ,1179, 8

34
16
49
48
49

00000
00565
00532
00000
00796

00102
-4611
-6286
00000
00000

14
44
25
16
49
25
16
25
13
43
49

05907
04636
00796
05840
00565
00566
02202
05907
05907
05907
04832
04844

000-5
01200
00428
02202
-4163
-5082
05840
000-0
17866
000-5
00099
00000

12
26
22
43
43
49

17866
05897
05897
04900
04900
0"912

000-1
00434
11866
05897
05896
00000

11

05895
02267
17866
04992
06341
00000
06319
04612

000-1
05895
-2302
01300
OP179
00102
00100
00000

02272
05028
02272
02264
00565
00566
2

17866
17790
00000
-0800
-2207

41

26
14
46
16
34
39
49
26
44
32
16
16
49

5 X
-5067
1

05067

OSC 1,1
1
5.01400
DC
-1400
3.177
DC
J77
5.02302
DC
-2302

05072
05075
05080

5

689
1620 MONITOR 11

DUP ROUTINE

PAGE

SELECTION ROUTINE

03470

DSC

1 ••

05081

03480 SEC2

DSC
22
DSA

2.22

05082

SEC22

05088

1.'

05088
05089

03490
03500

OSC

03510 SEe22

OSC 1.1
1
DC
5,18260
J826Q
DC
3.1
-01
DC
5.02202
-2202
OSC 1 ••

03520
03530
03540
03550

.

03560 SOLDoN BTM
03510
TFM
03580
B
03590
TF
BNF
03600
03610
B
03620
DORG
03630
rF"
03640
B
03650
rFM
03660
TFM
03670
80
03680
8
03690 CLRIN TFM
03100
TOM
AM
03710
03720
CM
03730
BL
03140
87
03750 CCD
OSC
02
03760
OSA

03800

03820

DSC

05104
05106
05118
05130
05142
05154
05166
05174
05114
05186
05198
05210
05222
05234
05246
05258
05210
05282
05294
05306
05313

--6,1,10
.-18.INPUT+161

--36
CLRIN-l .. 6
2,02
CCD2

05319

1 ••

05319
05320

OSC 101
1
DC
5.01798
-1798
DC
3.2
-02
DSA INPUT-l

03810

05098
05103

IORT,.+23

OSC

03790

05095

loGT.CCD.7
INPUT+96,4hI0
INPUT +98.49.10
CALRPL+68.REPLAC
CALLD
"18.INPUT-1
INPUT-1.0

03780 CCD2

5 X
-5090
1

05090

CLRIN . . . 12
IORT.·+23
IOGT .DOAl. 7
INPUT+14.ZEROI2
_+20."'CS+22
-+32
'-3

03770

2

11
16
49
26
44
"9

05246
00565
00566
13681
05114
05198

-5118
-5141
-5908
06390
17800
00000

16
49
16
16
43
49
16
15
11
14
47
49

00565
00566
13709
13711
01314
03118
05264
13612
05264
05264
05258
0524N
2

-5197
-5313
000M4
000M9
02202
00000
J3612
00000
000-1
J3774
01300

5 X
-5321
1

05321
05326
05329
05334
05334
05335

1. '

690

5 X
J3612
1

1620 MONITOR 11

at

03840

oUP ROUJI NE

SELECTION ROUTINE

PAGE

5.0

10

05340

-0000

at
5.0
-0000
03860 DIMMER CM
NEWDIM.4994
BH·
03870
SELERR
03880
TF
HOLD6. ZER06
03890
TF
HOLD6.NEWOI"
03900
A
HOlD6.HOLo6
03910
HOlD6-3
CF
03920
HOlD6-4
SF
03930
AM
HOl06."8000.7
0]940
TF
oMREAo+5.HOlo6-1
03950
TF" IORT,"+23
03960
B
10GT.DoREAo.7
03910
TFM TREC+ll.READIN
03980
TO
"23.HOLD6
03990
AM
TREC+I0, 0, 10
04000 TREC
Til.
DIMMER-6 .. 6
04010
B
DIMMER-I •• 6
04020 EQUIV TFM NEWOIM,0002,8
04030
TFM DIMMER-'-6.MAP
040100
8TM DIMMER,"12
04050
tFM MAP+8.1t,9
04060
TFM MAP+13.REAOIN
04010
TOM MAP+14 ••
04080
OSC I. f t _
03850

04090
0"100
0-HI0
04120
01tl30
04140
04150
04160
04170
04180
04190
04200
04210
04220
04230
04240
04250
04260
04210
04280
04290
04300
04310
04320
0-U30
04340
04350
04360

05345
05346
05358
05370
05382
05394
05406
05H8
05430
05"42
0545"
05466
05478
05490
05502
05514
05526
05538
05550
05562
05514
05586
05598
05609

.

TFM
8
TFM
til
8E
BNR
TFM
B
OORG
C
BE
AM

05610
05622
05634
05646
05658
05610
05682
05694
05102
05102
05114
05126
05138
05146
05146
05158
05166
05166
05178
05190
05802
05814
05826
05838
05850
05862
05814
05886

10RT"+23
IOGT.MAPDDA.1
'+41. READ I N+11
8NR+11. READ I N+411
11.0
8NR
"32.REAOIN+1l
0IMERR+22.1517.8
UPI
'-3
NCSU5.8NR+11.11
ERREPL
8NR+11.16.10
B
8NR-24
OORG '-3
RO
AM
MAP+5.4.10
BNR-60
8
OORG '-3
ERREPl AM
BNRt11.4ol0
MCS+39.BNR+11,11
C
BE
EQUIV-l,,6
TFM 0IMERR+22.1516.8
TF
NCS+J5.ZER012
UPI
TFM MCS+39.0.8
RCTV
NUY DIMERR
TFM IORT.·+n
8
IOPT.DDA1.1
8
CALLD

05934
03358
06349
06349
06349
06346
063"5
06349
06369
00565
00566
05525
05513
05524
05340534N
059H
05340
05346
059-U
05948
05949
1

-4994
01100
06355
05934
06349
00000
00000
M8000
063"8
-5477
-6356
-6468
06349
000-0
00000
00000
0-002
-5935
-5574
00-04
-646B
00000

00565
00566
05681
05681
05746
05102
063"1
05826

-5633
-5898
-6479
-6819
01200
06H9
OPHl
00000

17B13
05166
056Bl
05646

0568J
01200
000J6
00000

"9

05940
05610

000-4
00000

11
24
46
16
26
16
34
J9
16
49
49

05681
17817
055)P
06341
11813
17817
00000
06319
00565
00532
03118

000-4
0568J
01200
OP51&
06390
0-000
0010Z
00100
-5885
-5908
00000

I"
46
26
26
21

33
32
11
26
16
49
16
25
11
31

49
16
16

17
16
16
15
16
49
16
14

46
45
11>
49
24
46

11
49

11

691

1620 MON ITOR 11
04310 HDL05

at

OUP ROUTINE

-00011
04380 IDRT
OS
.565
04390 IDPT
DS
.532
04400 "APDOA DSC 2,22
22
04410
DSA MAP
04420
04430 IDGT
04440 HOl02

059010

OS

.566
2.0

00566
05901

0
2

,415
2.22

00415
05908

0
2

DCFl

05914
05914
05915

,

1.'

04490 DCFl

DSC

1,1,.

04500

at

1

04520
04530

DSC

,

05921
05924
05929

1.'

,11718
04540 MCS
OS
04550 NEilD I M DC
4.0
-000
04560 MAP
OSC 20.0
00000000000000000000
,196
04510 MONCAl OS
04580 INPUT DAS 81,13613
04590 ODA6
OSC 2,22
22
04600
DSA DCF6

.

1 ••

04630

at

5.18430

04640

J8430
DC
3.050

DSC
OSC
1

1,1.,

05929
05930

J1118

11118
05934

0

1

"

05935

20

00196
13613
05955

0
81
2

05961
05961
05962

-5963
1

05963

ODUNP

05968

5

05911

-!HI

04660

-5916
1

05916

MONITOR COMM. SECTOR

5,19663

J9663
3.001
DC
-01
DSA MCS

04650

0
0
2

-5935
1

DSC

04620 DCF6

00565
0053Z
05898

05904
05905

04480

04610

5

1,'

04450 SYSCAL DS
04460 ODAl
DSC
22
04410
DU

04510

05891

OSC

DC
-0

11

PAGE

SELECTION ROUTINE

5.0,.

05912

OSC 5.02500
02500
DSC 1 ••

05917

Ii!J ~

5

2

1620 MONI TOR II

04680 OOAPI

DC
12.144466594144
J44466594144
OSC 2.22

04690

OSA

04670 WRAO

OUP ROUTINE

PAGE

SELECTION ROUTINE
05989

12

12

05990

22
OCFPI

05996

1 ••

05996
05997

04700

OSC

04710 DCFPl

OSC 1.1
I
5, l8220
DC
J8220
DC
3.027
-27
OSC 5.02502
02502
OSC I ••

04720
04730
04740
04750
04160 ALTR
04110 00AP2
04780

5 X
-5998
1

05998
06003
06006
06001
06012
06024

DC
12.11t4441536359
J44441536359
OSC 2.22
22
OSA OCFP2

12

06025
06031
06031
06032

I ••

5 X
-6033
1

04790

OSC

04800 OCFP2

OSC 1.1
1
DC
5019300
J9300
DC
3.038
-38
OSC 5.03000
03000
OSC I ••

06033

DC
12.11t4444H5457
J44444645457
12.14101053564144
DC
JH4535641410
12.1444591055753
DC
JIo4459455753
12.144443565768
DC
J44443565768
OSC 2.22
22
OSA OCFP5

06059

12

06071

12

06083

12

06095

12

04810
04820
04830
04840
04850 DUMP
04860 LOAD
04870 REPL
04880 COpy
04890 00AP5
04900

06041
06042

.

.

06041

06096
06102
06102
06103

1 ••

04910

DSC

04920 OCFP5

DSC 101
1
DC
5.19363
J9363

04930

06038

5 X
-6104
1

06104
06109

Gtl:.l
1620 MON ITOR 11
04940

DC

OUP ROUTINE

PAGE

SElEClI ON ROUTINE
06112

3.037

-37
04950
04960
04910 OELET
04980 FINE
04990 OOAPl
05000

DC
5.02700
-2700
OSC 1 ••

06117

12.144445534563
DC
J44445534563
12.144101064955105
DC
J44446495545
DSC 2.22
22
OSA DCFP7

06130

12

06142

12

06118

06143
061109
061109
06150

1 ••

5 X
-6151
1

05010

OSC

05020 DCFP7

DSC 101
1
DC
5.18139
J81J9
DC
3.038
-38
DSC 5.05000
05000
OSC 1 ••

06151

DC
12.1441053414253
J44453414253
DSC 2.22
22
DSA DCFP8

06111

12

06178

2

05030
050100
05050
05060
05070 LABL
05080 00AP8
05090

06156
06159
06160

06184
06184
06185

1 ••

05100

DSC

05110 OCFP8

DSC 1.1
1
5.18200
DC
J8200
DC
3.020
-20
OSC 5,02502
02502
OSC 1 ••

06186

12.144446534942
DC
J4H46534942
OSC 2.22
22
OSA OCFP9

06212

05120
05130
05140
05150
05160 HIB
05170 OOAP9
05180
05190

DSC

1 ••

05200 DCFP9

OSC
1

1.1

5

06165

X

-6186
1

06191
06194

3

06195
06200
12

06213
06219
06219
06220
06221
1'1'
Voj

-6221
1

13

1620 MONI TOR II

05240

DC
5018261
J8261
],017
DC
-17
DC
5,03000
-3000
oSt I, '

05250

OSC

05210
05220
0~230

05260 ENTMES oSA
05270
05271
05280 ENTER
05290 ERCD

OUP ROUTINE

06229
06234
06235

1.',13175

13775

ENTER

06240

.,. ............................................

3,06'
DC
-6'
,
DGM
05301
05310 ERRCo oAC 12, ERR CONTROL'
ERR CONTROL'
05320 DIMERR DAt 13, DUP'ERROR 00'
OUP.ERROR 00'
05130 Hol06 DC
6.0
-00000
05340 lER06 DC
6.0
-00000
05350 DOREAD OSC 2.22
22
05360
oSA DMREAD

asc

05370

aSt

DC

1 ••

05470

1
21 X

06290

5 X

06290
06293

-6295
3

06293
06295

1
12

06319

13 X

06362

5

06362
06363

-6364

06377

06390

12

06395
06395
06398

3,10'

DUP ROUTINE

SelECTiON ROUTiNE

-, ..............................................

PAGE

2.22

06398
06399

0lM2

06405

I ••
1.1

06407

05500

DC

5.04800

06412

-4800
).002
DC
-02
DC
5.17900
J1900
OSC I,'

05560
05570

DSC

05580 READ
05590 CNT!
05600

.DS
DC
-00

DC

5 X
J3613
3

U~

DSC
1

DS
OSt
22
OS"

5 X
-6468
1

DSC

05540 DIM4
05550 lISTl

1

06317
06378

05490 0lM2

05530

x

06369

05480

05520

x

06372

06405
06406

05510

5 X
-6407
1

06415
06420
06421

,11980
2,22

11980
06422

OlM4

06428

I, '

06428
06429

,09178
3,0

09778
06H2

),0

064)5

),0

06438

0
2
5 X
J1980
1

-00
05610

DC
-00

05620

DC

3,0

-00
DSC

06441

05630

I, '

06442
12645
12668
12691
12114
12137
OH43

2

05710

DS
OS
OSC
22
OSA

,12645
,12668
,12691
,12114
,12137
,12483
2,22
SUBSPl

064~9

5 X

05720

OSC

1. '

05640
05650
05660
05610
05680
05690
05100

SPlPKO
SPlPKI
SPlPK2
SPlPK3
THROWS
CORSll
SPlSUB

DS
DS

os
os

2

06364

I, •

1620 MON ITOR 11
oGM
oSt
22
oSA

06243
06245

06355

JO'

05451
05460 DIMI

5 X
-6245
3

06356

12,0
05430 ZERo12 DC
-00000000000
05440 CARDlo DSA
INPUT

05450

06240
06243

06349

05380 DMREAD DSt 101
1
05390
5,04800
DC
-4800
3,001
05400
DC
-01
05410
DSA RUDIN
05420

14

06226

3,06'
ot
-6'
oGM at, , ••••••••••••••••••••••••••••••••••••••••••••••••••••••••
OAt 21,ENTER oUP CNTRl REC ••
ENTER oUP CNTRl REt.'
oSA ERReD

05300

PAGE

SELECTION ROUTINE

12~83

05130 SUBSPl OSC 101
1
05140
DC
5018298
J8298
05750
3,033
DC

06~~9

-6~51

06~50

1

06451
06456
06459

-33

Get6

0
0
0
0
0
0

15

1620 MONITOR 11
05760
05770

DUP ROUTINE

05780

OAt
0
05790 REAOIN OSS
05800 SEl
TFH
05810
8
05820
TRA

PAGE

SElECflON ROUTlNE

06465

1.0

OH61

400

2,22

05840

OSC
22
OSA

06,,68
06868
06880
06892
06904
06916

SEl2

06922

05850

DC

1 ••

06922
06923

05830 SEll

lORT,.+23
IOPT,SEll,7

05860 SEL2

OSC
1

101

06924

05870

DC

5,18554

06929

05900

J8554
DC
3.041
-41
5.02402
DC
-2402
1 ••
DC

05910

TCD

05920

DEND

05880
05890

16

06464

5.12458
DC
J24,8
1 ••
OSt

1 X
16
49
36
49

"00
00565
00532
00000
00000
2

-6891
-6916
00500
00000

-6924
1

06932
06937
06938
06868

SEl

00000

8 Ui'
1620 MONITOR 11
BDTEST
tALCOM
CALRPL
tARDIO
COMPAR
tON Teo
CORSlZ
OOREAO
OIMERR
DIMMER
DMREAO
ENTMES
EQUDCF
EQUDOA
ERREPl
HAPODA
MONeAl
NEWDIM
NOCOMP
READlN
REPLAC
RTURNl
ALTR
BFlG
BNR

03188
03154
03246
06395
02846
03596
12483
06356
06119
05346
06364
06240
0]580
03512
05766
05898
00196
05934
04692
06468
02202
010116
06024
02638
05610

END OF ONE ASSEMBLY.

CAlLO
CC02
CCD
eLRlN
CNfl
COM22
CDM2
COpy
eOR2
COR
CT
OCH
DeF2
Dcn
DeF4
DeF5
DeF6
DCFPl
OCFP2
DCFP5
DCFP6
DCFP7
DCFP8
DCFP9
OCF

DUP ROUTINE
03118
05321
05313
05246
06H2
OH88
03480
06095
02350
02302
02626
05916
03442
03534
OH65
03511
05963
05998
06033
06104
03557
06151
06186
06221
02442

PAGE

SELECTION ROUTINE
DDAl
DDA2
DOAl
DDA4
00A5
ODA6
OOAPI
DDAP2
DOAP5
DDAP6
ODAP7
00AP8
DOAP9
DDA
DELET
DIMI
DlM2
DIM4
DMP
DN
DUIIP
ENTER
EQUlV
ERCO
ERRCD

05908
OH34
03526
03451
03503
05955
05990
06025
06096
03549
06143
06178
06213
02434
06130
06399
06407
17980
03378
02774
06059
06245
05538
06290
06295

FINE
FUB
HOLD2
HOLD5
HOL06
INPUT
lOCAL
IOGT
IOPT
10RT
UBl
LIS

lIsn

LOAD
HAP
HCS
NEXT
ROI
RD2
RD
ROWR
READ
REPL
SEC22
SEC2

06142
06212
05901
05897
063"9
13613
00716
00566
00532
00565
06111
02566
06"22
06071
05935
11178
02106
05059
05061
05746
02207
09778
06083
05090
05082

SEll
SEL2
SELfC
SEL
SLl
SL2
TREC
UPI
WR2
WRAO
WR
ZER06
SELEC T
SELERR
SOLDON
SPLPKO
SPLPK 1
SPLPK2
SPlPK3
SPlSUB
SU8SPl
SVSCAL
THROWS
ZER012

17
06916
06924
02402
06868
02274
02282
05514
05826
02259
05989
02251
06355
02458
033S8
05106
12645
12668
12691
12114
06443
06451
00415
12131
06390

1620 MONITOR II
00010
00020 OWRAO
00030
00040
00050
00060
00070
00080
00090
00100 lS
00110
00120
00130
00150
00160 NOl
00170
00180
00190 AN
00200
00210
00220
00230
002ltO
00250
00260
00210
00280
00290
00300
00310
00320
00330
00340
00350
00360 INIT
00370
00380
00390
OOitOO
00"10
00lt20
001030
00"40
00450
00460
00ltl0
00480
00490
00500
00510
00520

OORG
SF
SF
TFM
CM
BHE
SF
8
OORG
CF
CM
BHE
SF
B
OORG
CF
TFM
TFM
TO
AM
AM
CM
BHE
SF
SF
SF
TFM
TFM
BTM
TFM
TFM
BTM
TF
S
BL
RCTY
SF
SF
SF
SF
RCTY
WATY
8NF
WATY
B
OORG
WATY
ReTY
WATY
RCTY
TOM
OSC

00530
00540

TOM
OSC

001100

,
,

OUP ROUTINE

.OWRAD

PAGE

2502
CARO+31
CARo+n
CNI,O,IO
CARD+32.57.10
ZS
ROONLV
e+20
·-3
ROONLY
CARO+34.69.10
NOl
ZERO
-.20
·-3
ZERO
AN+6.NUIIER
AN+ Il.CAROH2
NUHER,CARO+12

02502
02502

32

1364~

0251~

32

02526
02538
02550
02562

16
14

13646
05132
136105
02582
05135
02594

00000
00000
000-0
000N7
01200
00000
00000

05135
13641
0263B
05138
02650

00000
00009
01200
00000
00000

025710

&N+6,I,10
AN+ll.2.10
AN+6. NUMER+26
AN
NUMER
NUMER+l4
NUMER+20
SETFLG+11.CARO+ll
COMFLG+11,CARD+23
SETFLG ... 12
SETFLG+ II.CARO+39
COMFLG+U.CARO+63
SETFLG,"12
HOL05.ENOAO
HoL05.STARTA
ERAOOR
BUTTON
AOORS-It
STARTA-4
ENOAD-It
NESI
"32,lERO
MES3

•• 20
·-3
NES2
MES4

lODRS+l,tt
1. ',-

ENOID+1 •••

1,' ,-

101
32
~9

02582
02582 33
02594 14
02606 47
02618
32
02630 49
02638
02638
33
02650 16
02662 16
026H 25
02686 II
02698
11
02710 H
02722 47
02734 32
027lt6
32
02758
32
02170
16
021B2
16
02794
11
02806
16
02818 16
02B30
11
02B42 26
02854 22
02866 Itl
02818 34
02B90 32
02902 32
02914 32
02926
32
02938
34
02950 39
02962 44
02974 39
02986 49
02994
02994 39
03006 34
03018 39
03030 .34
03042 IS
03053

05138
02680
02685
05091
02680
02685
02680
02674
05091
05105
05Ul
Olt555
Olt615
04544
04555
04615
04544
05123
05123
04lt82
00000
00455
05092
05106
05112
00000
04767
02994
04199
03006

00000
-5091
J3625
13625
000-1
000-2
-5111
01200
00000
00000
00000
J3621t
J3636
-2806
J3652
J3676
-28lt2

0"189
00000
04809
00000
05091
1

00100
00102
00100
00102
00000

03054
03065

05111
1

00000

IS

0~1l6

05110
01300
00102
00000
00000
00000
00000
00102
OOLOO
05138
00100
00000

199
1620 MONITOR 11
00550
00560
00510
00580
00590
00600
00610
00620
OD630
00640
00650
00660
00610
00680
00690
00100
00110
00120
00130
001'10
OD150
00160
00110
00180
00190
00800
00810
00820
00830
00840
00850
00860
00810
00880
00890
00900
00910
00920
00930
00940
00950
00960
00910
00980
00990
01000
01010
01020
01030
01040
01050
01060
01010
01080
01090

TF
TO
TDM
OSC
WNTY
SPTY
WNTV
SPTY
WNTY
TF
RCTY
8TM
ReTY
TON
TF
SM
SEEKTR TF
TD
CF
TFM
TO

MM
80

•

DUP IIOUTINE

.OWRAO

PAGE

HOLOA,ENOAO+l
HOLOA-6, ENOAO-5
SURTA+l .. ,

1,' ,"
AOORS-5
SURU-5
HOLDA-6
ENOAO+ 1, HOLDA
KYNESS,0+12
INlT+2,0
NEW+U,STARTA
NEW+U,I,IO
OCF+5,AOORS
OCF,AOORS-5
OCF
HDLD2,0,10
HDLD2,AODRS-l
HOL02,5,10
"20,99

e+20

.-3
HoLD2,1,10
DCF+4 ,HOL02
DCF+5,0
DCF+13, TRACK
WORKAO,AOORS
DI0+35, TEST ,61
10IlT,0+23
10GT.DATA.l
PUTNEN,INIT+2
TENPY,AODRS
"23. TEMPY-I
. .Z3.AJUST
TEMPY-I,O,IO
TEMPY.O
WORKAD. TEMPY
S
MM
WORKAD,105,9
SF
95
AM
99. TRACK-l01
TF
NEW+6,99
TOM INIT+2, I
B
PUTNEW+12
CDRG .-3
PUTIllEW TFM NEW+6. TRACK-l0l
AN
NEW+ll,I.IO
CF
NEW+ll
AM
NEW+6,105,9
NEW
TFM
BNF "20,ROONLY
CKZERO
8
OORG ·-3
OORG
SM
TO
TOM
TFM
TF
ROTRAK TFM
TFM
8
BD
TF
TO
TO
SM
TOM

7011

03066
03018
03090
03101

26
25
15

05130
05124
05111
1

05111
05111
00000

0]102
03114
03126
03138
03150
03162
03114
03186
03198
03210
03222
03234
032"6
03258
03210
03282
0329"
03306
03318
03330
03338
03338
03350
03362
03311t
03386
03398
03410
03422
03434
03"46
03"58
03"110
03482
03494
03506
03518
03530
03542
03554
03566
03518
03586
03586
03598
03610
03622
0363"
036"16
03658
03666

38
3"
38

05091
00000
05105
00000
05124
05111
00000
0"662
00000
02880
036"5
036"5
0,,981
04916
04916
05118
05118
05118
03338
03350

00100
OOLOI
00100
00101
00100
05130
00102
-3198
00102
00000
05110
000-1
05096
05091
00000
000-0
05095
000-5
00099
00000

05118
0"980
04981
04989
05145
0085111
00565
00566
03586
05152
03493
05151
05152
05145
051"15
00095
00099
03640
02880
03598

000-1
05118
00000
J3116
05096
-4006
-3433
-5153
02880
05096
05151
0,,529
000-0
00000
05152
00J05
00000
J3615
00099
00001
00000

03640
036"5
036"5
036"0
00000
03666
03102

J3615
000-1
00000
00J05
-0000
05135
00000

1"

38
26
3"

11

34
15
26
12
26
25
33
16
25

13
43
49
12
25

15
16
26
16
16
49
0
26
25
25
12
15
22
13
32
11
26
15
"19
16

11
33
11
16

""
"9

onu

2

1620 MONITOR II
TF
SM
CF
CKlERO BNF
TF
AM
TR
TF
AM
TOM
CKENO t
BNE
TFM
TOM
TFM
8
80
80
8
ODRG
tM
8NE
RITE8K TFM
TOM
TFM
8
80
BO
AM
8
DORG
81
TEST
81
AM
TOM
AM
tM
8l
8
01490
OORG
01500 WTNOFO SM
TO
01510
01520
TO
01530
TO
TO
015"0
TO
01550
01560
TO
RCTY
01570
TFM
01580
01590
8
TFM
01600
01610
8
RCTY
01620
016]0
TFM
TFM
01640
01650
TOM

01100
01110
01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01210
01280
01290
01300
01310
01320
01330
01340
01350
0\360
01370
01380
0\390
01400
01410
01420
01430
01440
01450
01460
01470
01480

OUP ROUTINE

PAGE

.OWRAO
03666
03678
03690
03702
03114
03126
03738
03750
03162
03774
03786
03798
03BIO
03822
03834
03846
03B58
03870
03882
03890
03890
03902
03914
03926
03938
03950
03962
03974
03986
03998
04006
04006
04018
04030
04042
04054
04066
04078
04090
0"098
04098
04110
04122
041H
04146
0"158
O'H70
0"182
04194
04206
04218
04230
04242
04254
04266
04278

.+30,NEW+b

-+18,4,10
CKENO,ZERO
*+30,NEW+6
*+18,1,10

,HUN
*+30,.-6
*+18,99,10

NEW+ 11, ENOAO

*+92
0IO+35,TEST,67
WAGAIN,O
lORT,.+23

IOPT,OATA,1
WTNOFO, TttRU
.-60,WAGAIN
EXIT2
·-3
NEW+6, TRACK+199IJ

PUTNEW+12
OIO+35,TEST,67
WAGAIN,O
lORT, •• 23
IOPT,OATA,7
WTNOFO, THRU
.-60, WAGA IN
AODRS-I,02,l0
SEEKTR
.-3
.+12,3600
ERROR,1900

OCF+5,1.lO
THRU,O
CNT.I,IO
tNT ,20,10
EXIT-12

EXIT-24
.-]

DCF+5 •• ,lO
NOFINO+12,OtF
NOFINO+14,DtFH
NOF INOH6,DtH2
NOF INO+ 18,DtH3
NOFINO+20,DtF+4
NOFINO+22,DtH5

JORT.·+23
IOPT,NOF-4,7

lORT,a+23
IOGT,OATA,7
TRK,TRAtK
.+18. TRACK.5
TRACK+5 .. 2.

03696
03696
00000
03786
03744
03144
00000
03780
03180
00000
036"5
03B90
0085N
04435
00565
00532
04098
03810
04426

03640
000-4
00000
05138
03640
000-1
04991
03744
OOOR9
00000
05116
01200
-4006
00000
-3851
-5153
04433
04435
00000

49

03640
03598
0085N
0"435
00565
00532
04098
03914
05095
03246

J5775
01200
-4006
00000
-3961
-5153
04433
04435
000-2
00000

"6
46
11
15
11
14
47
49

04018
00626
04981
04433
05132
05132
04406
04394

03600
01900
000-1
00000
000-1
OOOKO
01300
00000

12
25
25
25
25
25
25
34
16
49
16
49
lit
16
16
15

04981
04885
04887
04889
04891
04893
0"895
00000
00565
00532
00565
00566
00000
05113
04284
J3781

000-1
04976
04977
04978
04979
04980
04981
00102
-4211
-5177
-4241
-5153
00102
J3776
J3781
00000

26
12
33
44
26

11
31
26
II
15
24
41
16
15
16
49
43
43
49
14
47
16
15
16
49
43
43

11

hi
1620 MONITOR 11

OUP ROUTINE

.DWRAD

PAGE

01660

ost

1,',.

04289

01670
01680
01690
01700
01110
01720
01730
017"0
01750
01760
01770
01780
01790 EXIT
01800
01810 EXIT2
01820
01830
01840
01850
01860
01870 ERADDR
01880
01890
01900
01910
01920
01930

TFM
8
SP TY
AM
AM
tM
8NE
H
8
DORG
TOM
TOM
8
OORG
TOM
tF
BTM
8Y

IORT, a+23
IOPT,TRK-",7

04290
04302
04314
04326
04338
04350
010362
04374
04386
04394
04]94
04406
04418
0"426
04426
04438
0"450
041062
04474
04482
04482
04494
04506
04518
04530
04538
04542

.-42,105,9
TRK,105,9
TRK, TRAtK+2100
a-8.
EXIT2+12
.-3
THRU,l
WAGAIN,I
ERRET
.-3
SYStAL,3
BUTTON
KYMESS,HI2

a+12

MONtAl
OORG . - ]
TFM DIMERR+22, 1177,8
ReTY
WArY DIMERR

8

H

B
EX1T2+12
DORG .-3
5,0
at
-0000
01940 SETFLG SF
a.ll.CARO+ll.6
01950
AM
SETFlG+lI,I,IO
01960
tM
SETFlS+ll ,10,610
01970
ERI
8l
01980
AM
SETFLG+ll,I,10
01990 COMFLG tM
SETFlS+ll ,tARO+23
02000
8l
SETFlG
SETFlG-I, ,6
02010
8
02020
DORG .-3
02030 ERI
TFM 0IMERR+22,0071,8
ERAOOR+12
02040
B
02050
OORG .-3
02060
5,0
Ot
-0000
02070 KYMESS BNF a+32,8UTTON
TFM KEYMES+24, 5500, 8
02080
a+20
02090
8
OORG .-3
02100
TFM KEYME S+24 ,4646, 8
02110
02120
RtTY
02130
TFM [ORT to 8.23
[OPT ,M€SS-4, 7
02140
B
02150
H
KYHESS-L,,6
02160
8
02170 AJUST DC
10,0101010101.ERAODR+47
-101010101

00565
00532
00000
04284
05173
05173
04278
00000
04438

-4313
-5169
00101
00J05
00J05
J5876
01200
00000
00000

49

04433
04435
00602

00001
00001
00000

15
33
17
"6
"9

00475
00455
04662
04474
00796

00003
00000
-4462
OHOO
00000

16
34
39
"8
"9

04869
00000
04841
00000
044]8

OPI77
00102
00100
00000
00000

32

13624
000-1
OOOPO
01300
000-1
H636
01300
00000

11
11
I"
47
48
49
15

15

04604
04616
04628
04636
04636
04648
04656
0"660

14
,,7
"9

0455N
04555
0455N
0"636
04555
04555
04544
045'ol

16
49

0486,9
04494

0-071
00000

04662
0461'>
04686
04694
04694
0'0706
04118
0"730
04742
04754
04529

44

0"694
04923
04706

00455
ON500
00000

04923
00000
00565
00532
00000
0466J
10

OM646
00102
-"741
-5161
00000
00000

04544'
04556
04568
04580
010592

702

16
49
34

11
14

41
II

16
49
16
34
16
49
48
49

4

1620 MONITOR 11

OUP ROUTINE

oDNRAD

PAGE

02180 MESI

OAt 11.WRITE AND '
WR ITE AND '
DAC 5,SAVE'
02190 MES2
SAVE'
02200 ME 53
DAt 5,ZERO'
ZERO'
02210 MES4
DAt 19,5EEK
START STOP'
SEEK
START STOP'
02220 DIMERR OAt 13,OUP.ERROR 00'
DUp.ERROR 00'
02230 NOFINO DAC 13, ER SK 000000'
ER SK 000000'
02240 KEYMES OAt 39,OUP. TURN OFF WRITE ADDRESS KEY, START'
DUP. TURN OFF WR ITE ADDRESS KEY, STARl'
02250 TRACK DSS 2100,13776
02260 OtF
OSC 1,0
0
02270
DC
5,0

04161

02280

04189

2

04799
04809

19 X

2

04847

13

2

04873

13 X

04899

39

13776
04976

2100
1

04981

5

3,1120

04984

3

02290

DC
-20
OSA

TRAtK

04989

02300

DSt

,

1,'

04989
04990

J3716
1

02310 HUN

DSt 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0'
000000000000000000000000«)000000000000000000000000 '
OAS 11,136U
,tARO
OS
055 26
DC
2,0
-0
5,0
DC
-0000
DC
7,0
-000000
2,0
DC
-0
DC
3,0
-00
DC
3,0
-00
DC
7,0
-000000
7,0
DC
-000000
,NUIIER.5
OS
OS
,NUIIER+19
,NUIIER.25
OS
OSC 1,0,455
0
OSC 2,26
26

04991

50

05041

50

13613
1361)
05091
05118

81 X

-oooe

02320
02330
02340
02350
02360

CARD
INPUT
NUIIER
HOl02

02370 HOl05
02380 HOLDA
02390 tNT
02400 ROONLY
02410 ZERO
02420 WORUD
02430 TEIIPY
02440
02450
02460
02470

ADORS
STARTA
ENOAO
BUTTON

02480 OOAl

5

2

11

2

a

26
2

05123
05\30
05132

2

05135
05138
05145
05152
05096
05110
05116
00455

0
0

a
1

05153

703
1620 MONITOR 11

OUP ROUTINE

oONRAO

PAGE

02490

OSA

OCF

05159

5

02500

DC

1,'

05159
05160

-4916
1

,DDU
I,O,EXlT2+7

05153
04433

0
1

02510 DATA
02520 THRU

DS
DSC
0
02530 WAGAIN DSC
0
02540 10RT
OS
02550 10SK
DS
02560 10GT
OS
02590 010
OS
02580 ERRET OS
02570 ERROR OS
02600 10PT
OS
02610 10RBC OS
02620 MONCAl OS
02630 MESS
OSA

I,O,EXIT2.9

04435

1

,565
,554
,566
,820
,602
,626
,532
,520
,796
KEYMES

00565
00554
00566
00820
00602
00626
00532
001Z0
00796
05165

0
0
0
0
0
0
0
0
0
5

02640

3,06'

05165
05168

-4899
3

02650 TRK
02660
02610 NDF
02680

DC
-6'
OOM
OSA
DC
-0'
OOM
OSA
DC
-6'

.,

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

TUCK

05168
05173

3,00'

05173
05176

·,t , ••••••••••••••••••••••••••••••••••••••••••••••••••••••••
NOFIND

05176
05181

3,06'

05181
05184

00" .,.,

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

02690 SYSCAL OS
02100 WUD
TF"
02110
B
02120
TRA

,H5,
IDRT , •• 23
IOPT,WRAD107

02730 WRADI

2,22

02140

DSC
22
OSA

,

WRA02

05240

1,'

05240
05241

02150

DC

02160 IlRA02

OSt 1,1
1
DC
5,18220
J8220
DC
3,021

02170
02180
02190

05184
00475
05186
05198
05210
05222
05234,

05242
05247
05250

-27
5,02502
DC
-2502

05255

t'O,

X
J3176
3
X

-4873
3

16
49
36
49

1
0
00565
00532
00000
00000
2

-5209
-523"
00500
00000

5 X
-5242
1

6

1620 MONITOR 11

CUP ROUTINE

PAGE

.DWRAD

02800

DC

1,·

05256

02810

TCD

WRAD

05186

0282'0

DENU DWRAD

o

7

02502

?os
1620 MaN 1T0R 11
BUTTON
CKlERD
COMFLG
DIMERR
ERADDR
KEYMES
KYMESS
MONeAL
NOFINO
PUT NEW
RDONLY
RDTRAK
RITE8K
ADDRS

00455
03702
04604
04847
04482
04899
04662
00796
04873
03586
05135
03398
03914
05096

AJUST
AN
CARD
CkEND
CNT
DATA
DCF
DDAA
010
DWRAD
ENOAD
ERI
ERRET
ERROR

OUP ROUTINE
04529
02674
13613
03786
0'132
05153
04976
05153
00820
02502
05116
04636
00602
00626

'~

.0IlRAD
EXlf2
EXIT
HolD2
HOlD5
HOLDA
HUN
INIT
INPUT
10GT
10PT
IOR8C
10RT
10SK
MESl

04426
04·n8
05118
05123
05130
04991
02178
13613
00566
00532
00520
00565
00554
04767

END OF ONE ASSEMBLY.

7116

MES2
liE 53
MES4
MESS
NEW
NoF
NOZ
NUMER
TEMPY
TEST
THRU
TRACK
TRK
WRADI

PAGE
04789
04799
04809
05165
03634
05181
026,38
05091
05152
04006
04433
13776
05173
05234

WRAD2
WRAD
ZERO
ZS
SEEKTI\
SETFLG
STARTA
SYSeAL
IIAGAIN
WQRUD
WTNoFD

8
05242
05186
05138
02582
03246
04544
05110
00475
04435
05145
04098

1620 MONnOR 11
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100

10GT
10RT
10PT
DOAST

BOTCH

OORG
OS
OS
OS
OS
TFM
TFM
B
OORG

DC

DUP ROUTlNE

oDALlR

PAGE

3000
,566
,565
,532
,19800
6,SNEEZY

03000
00566
00565
00532
19800
03000
03012
03024
03032
03036

1,49,10
FUR2
0-3
5,0

-0000
2,0
DC
-0
00120 P
,6
OS
00130 Q
DS
,Il
00140 L
DS
,12
00150 FILL
,99999
DS
00160 TEMP
OS
3
00170 SAVAOD DS
5
00180 FUR2
RCTY
00190
SF
-+21
00200
TFM SECTAD+.2,
00210
DC
1, ',.-2
00110 COUNT

,
,

1,' ,--I

03082

1,',·

03083

00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00]40
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
00450
00460

WATY
RCTY
TFM
8
BC4
BNR
BNR
8NR
TOM
49
DCRG
BNR

AORMES

03084
0]096
03108
03120
03132
.0]1410
03156
03168
03180
03192
03200
03200
03212
03220
0]220
03232
03244
03256
03268
03280
03292
D]300
03]01

-3268
000M9
00000

5
2

DC

475,3

0
00006
00001
03048

0
0
0
0

00230

796
0-3
"20,SECTAD
PROOI
B
DORG 0-3
PROOI ReTY
WATY BAOTYP
RelY
48
,,,FOR AIR
SNEElY TF" fORT,"23
B
IOGT,TRWAOR.7
B
03000
DDRG 0-3
BAOTYP DAe 49, SECTDR ADOItESS ILLEGAL, START TO RE-ENTER -DAllR'
SECTDR ADDRESS ILLEGAL. START TO RE-ENTER 'OAllR'
00470 TRWADR Dse 2.22
22
00480
DSA SKUNK

16
16
49

00006
00011
00012
99999
03041
03046
03048
03060
03072
03081

DC

10RT ,0+23
fOGT,BRCI-4,7
AlOD-L
PROD I, SEC TAD+l
PRODl, SEC TAO+2
A200,SEeTAD-5

0
0

03038

00220

AI00

0

3
34
32
16

5
00000
03081
05484
1

00102
00000
-DODO

39
34
16
49
46
45
45
45
15
49

05439
00000
00565
00566
03096
03220
03220
03422
00475
00796

00100
00102
-3131
-6618
00400
05483
05484
05477
0000]
00000

45
49

03220
03220

05482
00000

00000

00102
00100
00102
00000
-3291
-3398
00000

34
39
34
48
16
49
49

onol

00000
00000
00565
00566
03000

49 X

03398

2

03404

5 X

2

7117
1620. MONnOR 11

DUP ROUTINE

oDAUR

PAGE

00490

DC

,

I, '

03404
03405

00500 SKUNK

Dse
0

I,D

03406

00510

DC
5019300
J9300
3,050
-50
5,03000
DC
-3000
DC
I, '

·03Ul

ReTY
BNF
B
DCRG
BNF
8
DCRG
BNF
8
OORG
BNF

03422
03434
03446

00520
00530
00540
00550 A200
00560
00570
00580
00590
00600
00610
00620
006]0
00640
00650
00660
00670
00680
00690
00700
00710
00720
OOllO
00740
00750
00760
Dono All0
00780
00790
00800
00810

DC

DC

03419
0)420
34
44
49

00000

034510
03220

00102
05482
00000

034510
034510

4~

03~7~

05~81

03466

49

03220

00000

44
49

03494
03220

00000

44
49

03514
03220

05479
00000

44
49

03534
03220

05"'8
00000

44

03554
03220

05477
00000

03607
03615
03603
03618
6

05482
-5504
00000
00000

03107~
03~74

03486
03494
113494
03506
03514
03514
03526
03534
03534
03546
03554
03554
03566
03578
03590
03602

'26"
16
32
~9

03610

05~80

3

03615

I,'

·03616

IORT,"23
IOGT,BRe2,7

03618
03630
03642
03654
03666
03678
0]690
03702
03714
03726
03738
03750

FRSTHF

lOOP9+P, *.2.l
lOOP, SEC rRl-11
ORIG
SECHF

lOOP9+P, -+2 *l
LOOP, SEerRl+39
ORIG

1

03414

0+20, SEC TAO
PRDDI
0-3
. . 20, SEC TAD-I
PRODl
0-3
"20,SEeTAO-2
PRODI
0-3
"20, SEeTAO-3
PROOI
B
DCRG 0-]
BNF . .20, SEtUD-4
PROOI
8
DORG 0-3
BNF . .20, SEeTAD-5
B
PRODI
DORG 0-3
TF
AllO+L+5,SEtTAD
TFM All0+L+13,SEeTRl
SF
All0+13
B
AllOPL, .. NO DORG
ose 6,0
DDOODD
3,001
DC
-01
5,0
DC
-00011

00820 AllOPL TFM
00830
B
OOUO
RCTY
00850
WArY
00860
TFM
00870
8TM
00880
WAlY
00890
ReTY
00900
WATY
00910
TF"
00920
8TM
00930
WArY

-1406

"t"

16
49
34

19
16

17
39
34
39
16

17
39

00565
00566
00000
06287
05432
05246
06307
00000
06327
05432
05246
06307

-3641
-6686
00102
00100
-3690
-5493
00100
00102
00100
-3750
-5543
00100

1620 MONITOR U

OUP ROUTINE

-OAUR

PAGE

OOHO TRWF I X RC TY
RCTY
00950
WArY SECME S
00960
RCrY
00910
00980
TF" SECTON,O
00990
5,00000,DC
-0000
01000 A 130
TFM
IORr,"+23
01010
IOGT,8RC3-4,1
B
01020
BC4 AI30-4-L
01030
BNR PROO2,SECTON+I
01040
8NR PROD2, SECTON+2
01050
BNR .+20,SECTON-l
01060
WRF ILE
B
01010
DORG .-3
BNF -+20, SEeTON
01080
B
PROO2
01090
01100
OORG --3
BNF .+20,SECTON-I
01110
01120
B
PROO2
01130
OORG . - ]
SF
SECTON-I
01140
01150
CM
SECTON,10,I0
01160
BH
PROO2
01170
SM
SECTON.I,9
TFM LOOP2+1I.SECTRI-I
01180
01190
LOOP2+1 0, SECTON
A
TF
SAYAOD,LOOP2+11
01200
01210
RCTY
01220
TFM COUNT,4.10
TFM LOOP9+P, ... 2-L
01230
01240
BT
LOOP2.LOOP2-1
01250
TFM
TRD I G+ 11, SEC TR I-I
01260
TFM TRDIG+6.SECTR2-1
01270
AM
TRDIG+6.I.I0
012BO
AM
TRDIG+ll,loI0
01290 TRDIG
TO
TROI G+ 11, SECTR 1+100
01300
CM
01310
BNE e-It8
01320
SPrY
WA TY MESX
01330
01340
RCTY
TR
AREA,CLEAR
01350
TFM
JORT,.+23
01360 AHO
I DGT ,8RC4-4, 7
01370
8
01380
8C4 A140
01390 •
TO PUCE AN INDICATION AfTER LAST CHARACTER ENTERED fROM THE
TYPEWRI TER
01400
TfM O+35,AREA+219
01410 StAN
01420
SM
e+23.2,10
fEMP
01430
TF
01440
80
SCANI. TEMP
01450
BO
SCANl, TEMP-l
01460
CM
SCAN+35,AREA+l
01470
BNE SCANH2
01480
RCTY

.

03762
03774
03786
03798
03810
03821

34
14
39
34
16

00000
00000
05601
00000
05626
5

00102
00102
00100
00102
-0000

03822
03834
03846
03858
03870
03882
03894
03902
03902
03914
03922
03922
03934
03942
03942
03954
03966
0397B
03990
04002
04014
04026
04038
04050
04062
04074
04086
04098
04110
010122

16
49
46
45
45
45
49

00565
00566
03114
06346
06346
03902
05126

-3845
-6694
00400
05621
05628
05625
00000

44
49

03922
06346

05626
00000

44
49

03942
06346

05625
00000

32
14
46
12
16
21
26
34
16
16
27
16
16
11

05625
05626
06346
05626
05293
05292
03046
00000
03038
05432
05282
04133
04128
04128
04133
00000
04133
04098
00000
05453
00000
05630

00000
OOOJO
01100
00-01
-5503
05626
05293
00102
OOO-.it
-40H
05281
-5503
-6183
000-1
000-1
00000
-5604
01200
00101
00100
00102

00565

-4229
-6102
00400

04134
04146
04158
04170
04182
04194
04206

II
25
14
41
34
39

H

04230

31
16
49
46

04242
04254
04266
04278
04290
04302
04314
04326

16
12
26
43
43
14
47
34

04277
04271
03041
04370
04370
04277
04254

04338
04350
04362
04370
04370
04382
04394
04406
041018
04430
04442
04454
04466
04478
041090
04502
04514
04526

39
34
49

06069
00000
04206

00100
00102
00000

26
12
13
21
32

03036
03036
03036
00097
00096
00099
06524
04484
04484
00000
04549
04788
04788
04549
03041
04570
04782

04217
-5629
000-5
05626
00000
OJOOO
01100
04277
000-2
000R9
-5629
03046
000-1
000-2
00000
03041
00000

03041
04866
03041
04526
03041
04662
03041
1
04782

000R9
01200
000-0
01200
000L4
01200
00000

03041
04770
03041
04514
030'01
04834
03041
04802
04782
03041
00000
04514

OOOKO
01200
00007
01200
000M1
.01200
00006
01200
01100
00000
03041
00000

04218

00566
04206

00000

05849

-5849
000-2
00000
03041
03040
-5631
01200
00102

709

1620 MONITOR 11
01490
01500
01510
01520
01530
01540
01550
01560
01510
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
01830
01840
01850
01860
01870
01880
01890
01900
01910
01920
01930
01940
01950

SCANI

11M

HEART

HOYE

FLRM

01960
01910
01980
01990 ftGM
02010
02020
02030

WArY
RCTY
8
DORG
TF
SM
A
SF
CM
BH
TF
AM
TFM
TFM
TF
AM
AM
TF
BNR
B
OORG
CM
8E
CM
8E
CM
8NE
TOM
DNB
8
DORG
CM
BE
CM
BE
CM
BE
CM
BE
BH
SF
TO
B
OORG
TOM

DUP ROUTINE

·OALTR

PAGE

NOTHNG
A140
·-3
BOTCH,SCAN+35
BOTCH, AREA-l
BOTCH ,05,10
97,SECTON
96
99,1000,8
PR003

·+30,SCAN+3S
·+18,2.10
.99.10
*+59, AREA-l
MOYE+6, SAVADO

MOYE+6,l,lP
-+23,2,10
TEMP

04538

-+20. TEMP
MOYE

.-3
TEMP,99,10
CORENO ••

t

TEMP,Q,lO

SENSED LAST 01Gn OF CORRECTION MADE TO SECTOR

HEART+36, .. SEHSEO A SPACE BETWEEN SECTIONS
TEMP,3'otlO,CHECK FOR NUMERIC BLANK

.+32
TEMP
1,MOYE
·-3
TEMP,ZO.10, CHECK FOR FLAGGED ZERO I HYPHEN I
MOYE-12
TEMP, 67 ,I O,CHK. FOR NO CHANGE
HEART+24
TEMP,47,10
FLC"

TEMP,66.10

FLRM
MOYE
TEMP

,TEMP
HEART+24
.-3
TEMP,

DC
,

1,',.

SF
B
OORG
TOM
OGM
SF
B
OORG

TEMP
"aVE
.-3
TEMP,O

04550
04562
04570
04570
04582
04594
04606
04618
04630
04642
04653
04654
04662

14
46
26

II
16
16
Z6
11
11
26
45
49
14
'06
14
46

14
47
15
49

04662

14

04674
04686
04698
04710
04722
04134
0'0746
04758
04110
04782
OH94

46

14
46
14
46
14
'06
46
32
25
49

00000

04802

... , ........................................................

TEMP
MOVE
'-3

7 J II

04802
04813

15

03041
1

00000

04814
04826
04834
04834
04845
04846
04858
04866

32
49

03041
04782

00000
00000

15

03041
1
03041
04782

00000

32
49

00000
00000

4

1620 MONITOR 11

DUP ROUTINE

-OALTR

02040 CORENO RCrV
02050
WATY FRSTHF
02060
TFM LOOP9+P , •• 2*l
02070
8TM LOOP. SECTR2-11
02080
WArY ORIG
02090
ReTY
02100
WATY FRSTHf
02110
TFM LOOP9+P,*.2*L
02120
8TM LOOP. SECTR1-11
02130
WATY CORRTD
02140
ReTY
02150
RClY
02160
WArV SECHF
02170
TFM LOOP9+P, •• 2-l
8TM LOOP. SECTRH39
02180
02190
WAH ORIG
02200
RCTY
02210
WArV SECHF
02220
TFM LOOP9+P, •• 2*L
02230
8TM LOOP.SECTRl+39
02240
WATY CORRTO
02250
8
TRWFIX
02260
ooRG 0-3
02270 WRFIlE TFM IORT .0+23
02280
8
IOPT.8RC2.7
02290
RCTY
02300
WATY FLSEC
02310
TF" IORT,"23
02320
8
IOPT.8RCI-4.7
02330
WAn CORRTD
023'00 HALT
NOP
02350
8
FUR2
02360
NOP
02370 LOOP
TF
LOOP2+11.0-1
02380
TFM COUNT.O.IO
02390
AM
LOOP2+11.10.10
02400 LOOP2 TFM TR+ll
02410
TFM TR+6.19989
02420
AN
TR+6.1.10
02430
AN
TR+11.I,10
02440 TR
TO
19990.
02450
CN
TR+6.19999
on60
BNE TR-24
02470 A 120
35
19990.00100
02480
SPTY
on90
AM
CDUNT.l,IO
02500
CM
COUNT.5.10
02510
8NE LOOP'24
02520 LooP9 B
Fill
02530 AORMES DAC 7.SECTOR'
SECTOR'
02540 MESX
OAC 12. TYPE CHANGE'
TYPE CHANGE'
02550 SECTAO DC
7.0
-000000
02560
6 .. BUFFER AREA IN CASE OF MI$TAKES ENTERING
OS

PAGE
04866
04878

04890
04902
0'0914

04926
04938
04950
04962

0'097'0
04986
04998
05010
05022
05034

05046
05058
05070

05082
05094
05106

05118

34
39
16

17
39
3'0
39
16

00000
05432
052'06
06307
00000
06287
05'032

17

05246

39
34
H
39
16

06163
00000
00000
06327
05432
05246
06307
00000

17
39
34
39
16
17
39
49

00102
00100
-4914
-6173
00100
00102
00100
-4974
-5'093
00100
00102
00102

06287

00100
-5046
-6223
00100
00102
00100

06327
05432

-5106

05246
06163
03762

-5543
00100
00000

00565
00532

05126

05126
05138
05150
05162
05171t
05186

05198
05210
05222

05234
05246

05258
05270
05282

05294
05306

05318
05330
05342

05354
05366
05378
05390
05402
05414
05426
05439

16
49
34
39
16
49
39
41
49
41
26
16
11
16
16
11
11
25

14
41
35
34
11

14
47
49

00000

-5149
-6686
00102
00100
-5197
-6678
00100
00000
00000
00000

05293

05245

03038

000-0
OOOJO
-0000
J9989
000-1
000-1
00000
J9999
01200
00100
00101
ODO-l
000-5
01200
00000
X
2

00000
06137
00565
00532

06163
00000

03048

05293
05341

05336
05336
053'01

19990
05336
05306
19990

00000
03038
03038
05270
99999
7

12 x

05"53
05482
FILE ADDRESS

05488

6

7JI
1620 MONITOR 11

OUP ROUTINE

oDALTR

PlGE

02570 SUBINS OSC 7,0
0000000
02580
DC
3.1
-01
02590
5.0
DC
-0000
02600 SECTU OSS 100
02610
OOM
02620 SECMES OAC 8,SECTION'
SECTlON'
02630 seCTON DC
5.0
-0000
I, •
02640
DC

05U9
05498

05504
05604
05607

02660
02670 AREA

OS
OSC 50.0
00000000000000000000000000000000000000000000000000
OSC 50.0
00000000000000000000000000000000000000000000000000
OSC '0,0
00000000000000000000000000000000000000000000000000
OSC 50.0
00000000000000000000000000000000000000000000000000
OSC 19 ••
000000000000000000 '
OSC 50,0
00000000000000000000000000000000000000000000000000
DSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50,0
00000000000000000000000000000000000000000000000000
OSC 50.0
00000000000000000000000000000000000000000000000000
OSC 19, •
000000000000000000'
TFM "30,CLEAR-2

02680
02690
02700
02710
02720 CLEAR
02730
02HO
02750
02760
02770 SFLAG
02780
02790
02800
02810
02820
02830

05627

I, •

DC

AM

•• 18,2,10

SF
CN
BNE
TRA

0-6.ClEAR+216
0-36

TCD

SFLAG

100
1
8

05626

,

02650

3

05503

05628
05629
05630

I
50

05680

50

05730

50

05780

50

05830

19

058,,9

50

05B99

50

05949

50

05999

50

06049
'06068
06080
06092

06101t
06116
06128
061"0
06068

0281t0
ooRG SFLAG
02850 NOTHNG OAC ]4,CORRECTIONS HAVE NOT BEEN E!HERED'
CORRECTIONS HAVE NOT BEEN ENTERED'
02860 FLSEC, OAC 13.DISK SECTOR '
DI SK SECTOR '
02870 CORRTD DAC 11, CORRECTED'
CORRECTED'
02880 SECTR2 OSS 101
02890 FRSTHF OAC IO,IST.HUF '
IST.HALF •

112

19
16
11
'32
14
41
36
49

06098
06098
00000
06098
06080
00000
00000

-5847
000-2
00000
-6065
01200
00500
00000

06068
06069

3" X

06137

13

06163

11

06184
06281

101
10

6

1620 MONITOR 11

OUP ROUTINE

-OALTR

PAGE

02900 ORIG

OAC 10, ORIGINAL'
ORIGINAL'
02910 SECHF OAC
10,2NO.HALf '
2110.HALF '
02920 PROO2 RCTY
02930
WlTY UGOOFO
02940
RCTY
02950
48
02960
TFM lORT .... 23
02970
IOGT,TRIIAOR,l
8
02980
03000
6
02990
ODRG '-3
03000 UGOOFO OAC 49, SEC TlON NUIIBER ILLEGAL, START TO RE-ENTER _OALTR'
SECTION NUMBER ILLEGAL, START TO RE-EIITER -OALTR'
03010 PROO3 RCTY
03020
WATV PROO31
03030
RCTY
03040
48
'OALU
'" RE-EllTER
03050
TFII 10RT ,-+23
03060
10GT, TRWAOR, 7
8
03070
8
03000
03080
DORG --3
03090 PROO31 OAC 37, TYPE-IN EXCEEDS SECTOR LENGTH, START'
TYPE-I N EXCEEDS SECTOR LENGTH, START'
03100 BRCI
OSA SECTAD-5

.. ,

06307

10 X

2

OUN

10

2

00000
06"27
00000

00102
00100

06346
06358
06310
06382
06394
06406
06418
06"26

34
39
3"
48
16
49
49

06421

06524
06536
06548
06560
06S12

065610

109

06596

49

06685

03120 BRC2

2,22

06686

03130

AllOH

06692

03140

DC

,

1,'

061093

03150 BRC3

OSA

SECTON-l'

-3602
1

06692

06698
-5625
3

06101

3,00'

·t. ,................••...........••.....•.......•...•.•.....
AREA+l

06701
06706

X
-5631
3

06106

DC

03\90 lABC
03200
03210

-6'
OGM
TFII
B
TRA

03220 TABA
03230

OSC
22
OSA

2

06685

06698

03\80

-6595
-3398
00000

-5H7
3

06682

OGII
OSA

00102
00000

3T

06605

),00'

03170 BRC4

00000
00565
00566
03000

2

00102
00100

06682

DC

DC
-0'

00000
06605
00000

06604

-0'
OGM
OSC
22
OSA

03\60

00102
00000
-6417
-3198
00000

49 X
3"
39
3"
48
16

03110

-t. ,..................•..............•••.•...•..............

00000

00565
00566
03000

],06'

06109

10RT,"23
IOPT,lAlA,7

06109
06110
06122
06134
06746

2,22

06758

TA8B

06764

... , ........................................................

1
16
49
36
49

00565
00532
00000

-6733
-6758
00500

00000
2

00000

7J3
1620 MON ITOR 11

OUP ROUTINE

-OALlR

PAGE

03240

DC

,

1,'

06764
06765

03250 TABB

OSC
1

1,1

06766

03260

5,19300
J9300
DC
3,038
-38

03270

DC

06711

5

06114

03280

DC

03290

-3000'
TCO TABC

06710

03300

DENO 0

00000

6,03000'

-6766
1

06780

6

8

1620 MONITOR 11
AIlOPL
ADRMES
BADTYP
COREND
tORRTD
FRSTHF
NOTHNG
PRODll
AI00
A 110
Al20
AUD
Alita
A200

03618
051039
03301
04866
0616J
06281
06069
06605
03108
03590
05366
0.3822

AREA
BOTCH
BRCI
BRC2
BRC3
BRC4
CLEAR
tOUNT
DDAST
FILL
FLGM
FUM
nSEC
FUR2

Ot,206
03422

DUP ROUTINE
05630
03036
06682
06686
06698
06106
05849
03038
19800
99999

oD~LTR

HALT
HEART
10GT
10PT
10RT
LOOP2
LOOP9
LOOP
L
MESX
MOYE
ORiG
PRODI
PROD2

0t,834
04802
06Ul
03048

PAGE
PRODl
P
g
SCANI
SCAN
seCHF
SFLAG
SKUNK
TABA
TABB
TABC
TEMP
TRDIG
TR

05210
04490
00566
00532
00565
05282
05426
05246
00012
05453
04182
06301
05220
06346

06524
OllO06
00011
04310
04242
06321
06068
03406
06158
06166
06110
0301tl
04122
05330

SAVADD
SECMES
SECTAD
seCTON
SEtTRI
SECTR2
SNEElY
SU81NS
TRWADR
TRWFIX
UGOOFD
WRFILE

9
03046
05601
05482
05626
05504
06184
03268
05489
03398
03162

Oblt21
05126

END OF UNE ASSEMBLY.

flS

.....
....

00010
00020
00030
00040'
00050 DUBL
00060
00070
00080
00090
00100
OOllO
OOlZO
OOUO
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240 SETFLG
00250
00260
00210
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
00401
00410
00420
00430
00440
00450
00"60
00t,70
00480

1620 HOHITOR 11

DUP ROUTINE

DISK UTILITY PROGRAM FOR 1620
OORG
SF
CM
BE
CM
BH
CM
Bl
SF
C
BE
TO
TO
TO
TO
TO
SF
CM
BE
TFM
SF
AM
CM
BL
AM
CM
8L
TO
TO

A
AM
TOM
TFM
TOM
TOM
TFM
B
TF
TO
AM
TO

oDUBl

PAGE

oDUBl

2502
INPUT+21 •• 10
INPUT+22,D,10
ERRI
INPUT+22,13,10
ERRI0
INPUT+22,10,10
URiO
INPUT+ll
I NPUT+20, ZEROIO
ERR!
PAtK,INPUT+20
PACK-ItlNPUT+18
PACK-2,INPUT+16
PACK-3,INPUT+14
PACII-4,INPUT+12

02502
02502
02514
02~26

02538
02550
02562
02514
02586
02598
02610
02622
02634
02646
02658
02610
02682
02694
02706
02718
02730
02742
02754
02166
02718
02190
02802
02814
02826
02838
02850
02862
02811t
1128.86
02B98
02910
02922
02934
02946
02958
02910
02982
02994
03006
0]018
03030
03042
03054
03066
03018
03090
03102
03110

P~tK-4

'Atll.O
ERRIO
SETFLG+11,INPUT+ll
"U,INPUT+ll,6
SETFLG+l1,I,10
SETFlG+ll, 70,610
ERRI0
SETFLG+11,l,10
SETFlG+ll , I NPUT+21
SETFlG
MOO,I NPUT+22
"47,INPUT+22

."35, •• 35

.+2),1,10

I NPUT+22. 0, 8
AODRS,RD~REA+ll"

DETERMINE AOORESS

00AL2+1,O,ll
DOAL"2,O
IORT,o+2]
10GT,ODALl,l
00AL8+8,RDAREA+88
_+22,INPUT+22
ADDRS.O,9
00Al2+1,AODRS,11
TO
DOAL4+1,ADDRS,11
TO
ODAL 6+1, ADDR S, 11
TO
OOAL8+1,ADDRS,ll
fO
ODAL2,INPUT+22
SM
00AL2+5,10000,1
00t,90
TFM IORT,"+23
00500
IOGT,OOAL1,1
B
00510
TFM TEST48+l1,RDAREA+61
00520
8NF RSPT, ROAREA+61
00530 rES"'8 8NR *+20,ROAREA+61
005t,0
RSPT
B
00550
ODRG 0-3

716

32

lit
t,6
14
46
14
41
32
24
46
25
25
25
25
25
32

14
46
16
32
11

H
It1
11
14
41
25
25
21

11
15
16
15
15
16
49
26
25

11
25
25
25
25
25
12
16
49
16
44
45
49

13634
13635
03906
13635
03926
13635
03926

1362t,
13633
03906
04314

0t,313
04312
04311
04310
04310
04314
03926
02741
0274J
02741
0214J
03926
02141
02141
02130
02513
02813
02813
02813
13635
04364
04286
04285
00565
00566
04270
02968
04364
04286
OltZll
04240
04263
04285
04290
00565
00566
03101
03190
03110
03190

000-0
000-0
01200
000P3
01100
OOOPO
01300
00000
04309
01200
13633
13631
13629
13627
13625
00000
-0000
01200
J3624
13624
000-1
OOOPO
01300
000-1
J3634
01300
13635
13635
02813
000-1
0-000
J3847
000000000
-2"933
-4211
13864
13635
00-00
0436M
0436M
0436M
0436M
13635
JOOOO
-3065
-4271
J3837
13837
13837
00000

-

1620 MONITOR 11
00560
00570
00580
00590
00600
00610
00620
00630
00640
00650
00660
00670
00680
00690
00700
00710
00720
00730
007"0
00750
00760
00770
00780
00790
00800
00810
00820
00830
00840
00850
00860
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00910
00911
00972
00973
00974
00980
00990
01000
01010
01020
01030
01040
01050
01060
01070

AM
CM
BH
BNF
B
OORG
CM
BE

.....
•

RSPT

SEV

SM
A

SM
A
SM
A
SM
CF
TFM
AM
CM
8L
TFM
8

LAB

.DLAIL

PAGE

TEST48+ 11 ,ROAREA+65, 1

-+32
TEST48. TESH8+ll.ll
RSPT
.-3
ROAREA+65. 04800. 7
LAB

03110
03122
03134
03146
03158
OJl66
03166
03178

11
14
46
44
49

03101
03101
01166
03090
03190

000-1
H8ltl
01100
0310J
00000

lit
46

13841
03634

-4800
01200

03190
03202
03214
03226
03238
03250
03262
03214
03286
03298
03310
03322
03334
03346
03358
03370
03382
0339"
03406
03"18
031030
03"42
03454
03466
03478
03490
03502
03514
03526
03538
03550
03562
035H
03586
03598
03610
03622

25
16
26
16
It9
16
l't
46
12
33
11
11
16
12
33
11
11
14
It7
11
26
12
21
12
21
12
21
12
21
12
33
16
11
14
47
16
49

04262
03261
03273
00565
00566
11779
03261
03322
03256
03250
03256
03256
03250
03256
03250
03256
03261
03261
03250
03256
03250
03256
03250
03256
03250
03256
03250
03256
03250
03256
03250
J2596
03568
03568
03562
00565
00532

13635
OPOOO
03213
-3249
-425"
OPOOO
OPOOO
01200
000-3
00000
000-3
000-4
OR200
000-3
00000
000-7
000-1
OP099
01300
000K4
043"3
000-4
02513
000-4
02513
000-8
02513
000-4
02513
000-1
00000
000-000-2
J9776
01300
-3633
-4254

03634
03646
03658
03670
03682

25
32
17
16
49

04216
00455
04000
00565
00566

04285
00000
-3670
-3693
-4208

03694
03106
OH18
03130
03142
03754
03166
03118
03190
03802
0381"
03826
03838
0]850
03862
03814
03886
03898
03906
03906
03918
03926
03926
03938
03950
03962
03974
03986
039'"
03998

32
26
16
16
16
49
25
16
49
16
33
26
16
49
33

REINITIALIZE SEQUENTIAL PROGRAM r ABLE
TO
TF"
TF
TF"
B
TFM
CM
8E
SM
CF
AM
AM
TFM
SM
CF
AM
AM
CM
8l
AM
TF
SM
A

....

OUP ROUTINE

TESH8+1101010

DOAlB.INPUT+22
SEV+l1.7000.8
SEV+23,'-1
IORT,

5EV+6.,6-

SEV+6.3.10
SEV+6,4,lO
SEV+6.9200.68
SEV+6,),10
SEV+6,.6

SEV+6.1.10
SEV+ll.I.IO
SEV+ll.7099.8
SEV
SEV+6.24.10
SEV+6.lSTENT+3.6
SEV+6,It,lO
SEY+6.MOD,6

SEV+6,",10
SEV+6,MOO,6
SEV+6,8,10
SEV+6,MDO,6
SEV+6.4,10
SEV+6,MOD,6

SEV+6,l.10
SEV+6, ,6
ROAREA-1180.00 ,21011

.-6,2.10
.-18. ROAREA+6000
.-36
IORT,"23
IOPT.DDAL1.1
LA8EL

TO
SF
8TM
TFH
8

*.. 23

IOGT.OOAL7.7
ROAREA-1997. 7000. 8
SEV+1l.7000.8
*+48
SEV+6.3.10

DISK

PACK

DDALto,DDALl
IUTTON
KYMESS,.+12
IORT,.+23
IOGT,OOAL3.7

H7
1620 MONI TOR 11
01080
01090
01091
01092
01100
01110
01120
01130
01140
01150
01160
01110
01180
01190
01200
01210
01220
01230
012100
01250 ERR1
01260
01270
01280 ERR10
01290
01300
01310
01320
01330
01340
01350

CUP ROUTINE

PAGE

·DUIL

SF
TF
TFM
TFM
TFM
8
TO
TFM
8
TFM
CF
TF
TFM
8
CF
BTM
TOM

RDARU
RDARU+9,PACK
ROAREA+99,79,10
RDARU+l04,19663,l
IORT ,.+23
I OPT, DOAL3t 7
DOAL6,DDALl
IORT,·+n
IOGT,DOAl5.7
ROAREA+1999,OOI99,7
RDAREA+1995
RDAREA+20]4.PACK
IORT,"2]
IOPT,DDAl5.1
BUTTON
KYMESS, .+12
SYSCAl,3
MONCAL
DORG .-3
TFM DIMERR+22,OOl1,1
8
ERR10+12
ODRG .-3
TFM DIMERR+Z2, 7110,8
RCTY
TFM IDRT,"23
IOpr.ERRMES-4,7
8

•

H

ERRI-20
8
DORG .-3
5,0
DC
-0000
01360 KYMESS 8NF "32,BUTTON
01310
TFM KEYMU+24,5500.8
01380
8
"20
01390
OORG .-3
TFM KEYMESU4."646,8
01"00
01410
RCTY
01420
TFM IORT,"23
01430
B
I OPT, MESS-4. 7
01",,0
H
01450
KYMESS-l, ,6
B
01460 RDAREA DSS 2100.13776
01470 KEYMES DAC U,DUP. TURN OFF WRITE ADDRESS KEY, START'
OUP. TURN OFF WRITE ADDRESS KEY, START'
01480 DIMERR OAC 13,DUP.ERROR AD'
Dup-eRROR DO'
01490 DOA13 DSC 2.26
26
01500
OSA DOAl4

,

01510

DSC

01520 DOAl"

DSC I,D
0
5019800
DC
J9BOO

01530

0"000
04012
04024
0"032
04032
0"0/04
·04056
0"068
04080
04092
13116
04105

15
"9

13776
13785
U875
13880
00565
00532
04239
005.65
00566
15775
15171
15810
00565
00532
0010"
04000
00475
00796

00000
043H
000P9
J9663
-3765
·4208
042B5
-3801
-4231
-0199
00000
04314
-3861
-42J1
00000
-3886
00003
00000

16
49

04205
03938

0-071
00000

16
31t
16
It9
48
49

04205
00000
00565
00532
00000
03886

OP110
00102
-3973
-"344
00000
00000

44
16
49

04032
04129
040"/0

00455
ON500
00000

16
34
16
49
48
49

04129 0"646
00000 00102
00565 -40079
00532 -4352
00000 00000
0399R 00000
2100
39 X

17

04183

13

0"208

2

0421'\
04214
04215

I, '

04216
0/0221

718

-/0216
I

1620 MONITOR 11
01540

DC
-20
OSA

01550

OUP ROUTINE

.0lABl

PAGE

3.020

04224

ROAREA

04229

01560

OSC

1. '

04229
04230

01570 OOAl5

OSC
26
OSA

2.26

04231

00Al6

04237

I, '

04237
04238

01580
01590

OSC

01600 OOAl6

OSC 1,0
0
5.19980
DC
J9980
DC
3,020
-20
OSA ROAREA

01610
01620
01630

5 X
-4239
1

04239
04244
04247
04252

01640

OSC

I, '

04252
04253

01650 00Al7

OSC
22
OSA

2,22

0102510

DOAl8

01660

5 X
J3776
1

5 X
J3776
1

04260

5 X
-4262
1

010260

01670

OSC

,

1, '

01680 00Al8

OSC
0

1,0

04262

01690

DC

5,19801

04261

04261

J9801
01100

DC

3,010

04270

01110

-10
OSA

ROARE A-2000

04275

01720

DSC

1, '

04215
04216

01130 OOAll

DSC
22
OSA

2,22

0"277

ODU2

04283

01740

5 X
J1776
1

5 X

D4283
01150

DSC

1, '

042810

01160 OOALl

OSC
0

1,0

04285

01710

DC

5.04800

04290

01180

-4800
3,002
DC
-02

-4285
1

04293

'Ill)
1620 MONITDR 11

DUP ROUTINE

.OlA8L

PAGE

01790

OSA

ROAREA

04298

01800

DSC

1, '

04298
04299

J3776
1

00565
00566
136U
OH09

0
0
81
10

01810
01820
01830
01840

10RT
10GT
INPUT
lEROIO

01850 PACK
01860 MONPK
01870 MONCAl
01880 BUTTON
01890 10PT
01900 lSTENT
01910
01920 ERRMES

OS
,565
OS
,566
OAS 11,13613
10,0
DC
-000000000
DC
5,0
-0000
DSC 1,0
0
DS
.796
OSC 1,0,455
0
OS
,532
DC
25,709901580004909901660162'
P09901580004909901660162 '
OSC 3,000
000
DSA OIMERR

OH14
OH15
00796
00455

0
1

00532
0103"0

0
25

OH41
043lt8

DC

3,06'

*,t •••••••••••••••••••••••••••••••••••••••••••••••••••••••••

019100 MESS

-6'
DGM
OSA

KEVMES

04351
04356

01950

DC

),06'

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

04356
Olt359

01960 AOORS

-6'
OG"
OSA

ROAREA+n

01t359
01t364

01970 MOO
01980 SVSCAl
01990 lABl
02000
02010

DS
OS
TFM
8
TRA

, OlA8l+11
,415
IORT,H23
IOPT,lABLl,7

02020 lA811

DSC
22

DU

0~361t
02513
001075
04366
OU18
01t390
041002
04414

2,22
LABl2

04420

02040

DC

I, '

04420
OH21

02050 lA8l2

DSC 1,1
1
DC
5.18200
J8200
DC
3,020
-20

010421

02060
02010

5 X

04348
04351

01930

02030

5 X

04422

044]0

7Zl/

-"183
3
1
5 X
-10105

3
1

5 X

16
49
36
49

H8lt7
0
0
00565
00532
00000
00000
2

-4389
-4414'
00500
00000

5 X
-4422
1

4

1620 MONITOR 11

OUP ROUTINE

oDUBl

02080

OC

02090

-2502
DC
1.'

04436

02100

TCD

04366

02110

DENO 02502

5.02502

PAGE

6

PAGE

1

04435

LABL

02502

12/
1620 MONITOR 11
BUTTOII
DIMERR
ERRMES
KEYMES
KYMESS
lSTEIIT
·MONCAL
RDAREA

00-U5
010183
04348
04105
04000
04340
00196

13716

END OF ONE ASSEMBLY.

ADORS
DDALl
DDAl2
DDALl
DDAL4
DDAL5
DDAL6
DDAl1

DUP ROUTlIIE
04364
04211
04285
04208
04216
04231
04239
04254

oDLAlil
DDAL8
DlABl
ERRIO
ERRI
INPUT
IIiGT
I OPT
IORT·

04262
02502
03926
03906
13613
00566
D0532
00565

LABLl
UBl2
LABl
LAB
MESS
MOD
MDIIPK
PACK

01010110
04U2
04366
03634
0lt.J56
02513
04315
0431'0

RSPT
SEV
SETFlG
SYSCAL
TESH8
ZER010

03190
03250
02130
004n
03090
04]09

1620 MONITOR 11

*

OUP ROUTI~E
OORG 3000
10RT
OS
.565
MONCAl OS
,796
IOGT
OS
,566
IOPT
OS
.532
04BOO ose 2.22
22
00080
OSA OIMOOA
00010
00020
00030
00040
00050
00060
00010

00090

DC

00100 OIMOOA ose
1
00110
OSA
00120

DC
-01
OSA

00130
00140
00150 OEQU
00160

OUP ROUTINE

.0FllB

PAGE

DFUB
03000
00565
00196
00566
00~32

03000
5~

03006

I ••

03006
03001

1.1

03008

4800

03013

3.1

03013
03016

5 X
-4800
3

OSEe

03021

DC

1 ••

03021
03022

-9900
1

ose
22
OSA

2.22

0]023

2

EQUIV

03029

.

5 X

00110

DC

1 ••

03029
03030

00180 L18EF

ose
22
OSA

2.22

030]1

OSEe

0]037

DC

1 ••

0]0.31
030.]8

-9900
1

OS

.10000
,9900
,13613
CC+25 •• ,

10000
09900
13613
03040
03052

a

00190

00200
00210
00220
00230
00240
00250
00Z60
00270
00280
00290
00300
00310
00320
00330

•
INEQU
osec

cc

OF1l8

OOHO AM
00350
00360
00370 8M

os
OS
SF
SF
80
BO
BO
87
80
87
TFM
AM
eM
IE
8NR

SET FLAG ON NUMBER
Ct+l1" t SET FLAG ON NAME
ERTEN.eC+23
ERTEN.CC+Z4
.+20.ce+25
ERTEN
·+20.ce+27
ERTEN
IM+11.CC-2
IM+ll.l
8M+ll.CC+29.7
RMOK

O]OH
0]076
03088
03100
03108
03120
03128
03140
03152
03164
03176

AM,O-O

X

-3008
I

-9940
1

5 X

32
32
4]
H
4]
49
43
49
16

11
H
46
45

0
0
136]8
13624
03140
03740
03108
03740
03128
03740
03187
03187
03187
03196
03140

00000
00000
13636
136]7
11638
13640
J3611
-0001
J3642
01200
00000

;:b
1620 MONITOR 11
00380
00390 •
00400 RMOK
00410
00420
00430
004/00
00450
00460
00470
00480 ROEQU
OO~90

00500
00510 AOEQU
00520
00530
00540
00550
00560 eOIlPN
00570
00580
00590
00600
00610 'lAMER
00620
00630
00640
00650 STERR

OUP ROUTINE

.OFLIS

PAGE

87

ERTEN

03188

8TII
TFM
8
TF
TFM
TFM
TR
SII
TFM
8
TFM
AM
8NR
87
eM
BH
C
BNE
ReTY
TFII
WArY
TOM
DC

CKlRO.OOolO

03196
03208
03220
03232
03244
03256
03268
03280
03292
0]304
03316
03328
03340
03352
03360
03372
03384
03396
03408
03420
03432
03444
03455

.

IORT,-+23,.
READ EQU TA8lE DIM
IOGT.04800.7
CNT,EQUIY+8, •
SAVE NUM8 SECTORS IN DIM
EQUIV+l30INEQU
EOUIY+8,8,9,
SET NUM SECTOR TO
OSEe.EQUIV

tNT.8.9
JORT,·.2:J"

READ EIGHT SECTORS OF TA8lE
IOGT.OEQU.7
COMPN+ll.1 NEQU-5
COIIPN+llol6
•• 20
,COfllPN+ll.ll
OKALL
COMPN+1l.INEQU+800
reSTL
CC+22.0.0
ADEQU
STERR+21t.7571.8
STERR
CC+24.0

1,',.

WHY &C+12
B7
EXITE
OAC 15.0UP. ERROR 51 •
oup. ERROR 51 •
00660 TESTL CM
CNT,O.9
00670 EQUIV OS
.OSEC+40
00680
8NH DUll
00690
A
EQUIV+5.EQUIV+8
00700
B1
ROEQU-12
00710 eNT
OS
,OFLIB+ll
00720
OS
2
001]0 eKZRO C
CC+22. ZERO,.
TEST FOR INVALID OPERAND OR OPERAND MISSING
00740
8E
£RONE
00750
e
ce+28.ZERO-8
00760
8NE OVERR
00770 ERONE RCTY
001BO
TFM STERR+21t.oon.8
00790
WArY STERR
00800 SYSeAL OS
,415
00810 EXITE H
00820
87
MONeAL
00830 OVERR TO
0IG.eC+25
008,,0
CF
DIG
00850
CM
DIG.7,no
00860
BNE ERTEN
00870
TO
OIG.eC+Z7
00880
eM
OIG,1,lO
00890
BE
OVTEN
00900 ERTEN RCTY
00910
TFM STERR+24.1170,8

7.Z,

031056
03468
03477
03506
09940
03518
03530
035~2

03051
03550
03552
03564
03516
03588
03600
03612
03624
00475
03636
036/08
03656
03668
03680
03692
03704
03116
03728
03740
03752

49

01740

11

03552
00565
00566
03051
09953
09948
09900
03051
00565
00566
0]]95
03395
03360
0/0162
0]]95
03506
13635
03328
00000
03501
03477
13637
1

16
49
26
16
16
31
12
16
49
16

11
45
49
14
46
2/0
ft1
34
16
39
15

000-0
-3231
-3000
09948
JOOOO
00-08
09940
00-08
-3315
-3023
-9995
-0016
0339N
J0800
01100
00000
01200
00102
OP571
00100
00000

39
49

13625 00100
03636
15 X

14

03051
0
04162
09945
03280
0
2
13635
03600
13641
03656
00000
03501
03471
0
00000
00796
03688
03688
03688

47
21
49
24
~6

24
~7

34
16
39
48
49
25
33
14

41

037~0

25

03688
03688
03796
00000
03501

14
46
34
16

00-00
01100
09948

03194
01200
03186
01200
00102
0-071
00100
00000.
13638
00000
-00-7
01200
13640
000-7
01200
00102
OP110

1620 MONITOR 11
00920
009.30
00940 DIG
00950 ZERO
00960
00970
00980
00990
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
OlllO
01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01280
01290
01300
01310
01320
01330
01340
01350
01360
01370
01380
01390
01'100
01410
01420
01430
01'1'10
01450
01'160

•
OVTEN
SFVAL
CVAL
CKSP

CK1ST

•
CKBLK

DUP ROUTINE

oDF1I8

PAGE

WATY STERR
81
EXITE
OS
.OVERR+32
DC
12.0
-00000000000
MORE VAll D OPERAND CHECKS
TFM SFVAL+6 • CC+ll
TFM CVAL
• CC+12
TOM SFVAL+13.9
000
SF
.SFYAL+ll
OS
49
CKIST
CM
CVAl
'11.610
ERTEN
BL
AM
CVAL .2
SFVAL+6 .. 6
CF
AM
SFVAL+6.2.10
SF
SFVAL+6 .. 6
CM
CVAl
.00.610
8E
CKBlK
&M
&VAL .CC+22
8NN RNGECK
81
SF VAL
TOM SFVAL+13.1
CM
CVAl.79.610
8H
ERTEN
CM
CVAL
.70.610
CKSP
BL
B7
ERTEN

0316'1
03716
03688
0379'1

C
BI
BNE

010052

210

01006'1

010076

'16
'17

0'1088
0'1100
0'1112
04124
0'1136
04148
04160
0'1162
0'1174
04088
0'1186
0'1198
04210
0'1222
0'1234
042'16
04258
0'1270
0'1282
0'1294

03796
03808
03820
03832
03843
03844
03856
03868
03880
03892
03904
03916
03928
039'10
03952
03964
03976
03984
03996
0'1008
04020
0'1032

0100104

CC+22.ZERO
0+12.1400
ERTEN

0
0
CHECK RANGE OF DIM NUNB
RNGECK CF
SFVAl+6.,6
CM
CC+28.7170.8
ERTEN
8L
CM
CC+28.7379.8
BH
ERTEN
SF
CC+ll
882
0
END OF VALIDITY CHECKS
DKALL TFN 10RT .0+23
RD lI8RAR Y NAMES
8
IOGT.1I8EF.7.
CD
DS
.RNGECK
TFM CO+ 11.1 NEQU-5
A2EQU AM
CO+11.16
C
CO+ll.NINES.67
8E
PUT
CM
CO+11.INEQU+719
8NH AlEOU
RCTY
TF" STERRo2'1.1511o.8
WATY STERR
NAMER
87

39
49

03477
03636
0
12

00100

16
16

03838
03843
03845
00000
0
03984
038U
03740
03843
03830
03838
03830
0384L
04052
03843
0'1088
03832

J3624
J3625
00009
00000

15
32
49
14

107
11
33
11
32
1'1
46
14
46
49
15
14
46
14

107
49

038105
038'1L
03740
038U
03856
03HO

00000
OOOMI
01300
-0002
00000
000-2
00000
000-0
01200
J3635
01300
00001
000P9
01100
OOOPO
01300

13635
04076
03140

03794
01'100
01200

33
14
47
14
46
32
42

0383Q
13641
037'10
13641
03740
13624

00000
OP17o
oUoO
OP379
01100
00000

16
'19

00565
00566
0
0'1099
0'1099
0'I09R
0'1314
04099
04198
00000
03501

-4185
-3031

16
11
24
'16
14

107
34
16
39
'19

031t17
034410

-9995
-0016
-4312
01200
J0719
01100
00102
OP574
00100

;~~
1620 MONITOR 11
01470 NINES

011080 PUT
01~90

01500
01510
01520
01530
015~0

01550
01560 0
01570
01580
01590
01600
01610

DUP ROUTINE

DC

12.999999999999
R99999999999
TF
CO+ll.CC+22.6
AM
CO+ll.4
TFM CO+ll.0.68
TD
CO+ll.CC+28.6
SM
CO+ll.1
TO
CO+ll.CC+26.6
TFM IORT.o+23
8
IOPT.lIaEF.7.
WR LURAY NAMES
WRITE CONFIRM MESSAGE
RCn
WATY PLACE
SM
CO+ll.1
TDM CO+ll.0.6

.
DC

1.· ..

oDF1I8

PAGE
0'1312
04314
04326
04338
04350
0~362

04374
04386
0'1398

0'1'158
0'1'170
0'1'182
04'19'1
0'1506
0'1518
0'1529

12
39
11
16

01690
01700

SM
CO+11.4
WNTY CO+ll .. 6
TDM SYSCAl.]
87
EXITE+l2
DAC 26.FORTRAN LI8 NAME ENTERED'
FDRTRAN LIB NAME ENTERED •

0'1530
0'1542
04554
04566
0'1575

DENO

00000

01710
01720
01730 PLACE·

AN
TDM

DC

1,' ,.

017'00 •

01750

~9

34
39

SM
WATY
AM
TFM

CO+ll,12
CO+ll .. 6
CO+ll.12
CO+U,O.610
CO+ll.3
CO+l1.0.6

26
11
16
25
12
25
16

04'110
0'1422
.04'134
04'1'16
0'0'157

01620
01630
016'10
01650
01660
01670
01680

4

12

12
15

11
15
12
38
15
49

0409R
04099
0409R
0409R
04099
0409R
00565
00532

13635
-0004
0-000
13641
-0001
13639
-4409
-3031

00000
0'0575
0'1099
0409R
1

00100
-0001
00000

0~099

0'o09R
04099
0409R
0'1099
0409R
1
04099
0409R
001075
03648
26

00102

-0012
00100
-0012
000-0
-0003
00000
-0004
00100
0000]
2

1620 MONITOR 11
OIMDOA
MONCAl
RNGECK
A2EQU
AOEQU
AM

8M
CC
CKIST

03008
00796
04088
04198
03328
03140
03176
13613
03984

CKBlK
CKSP
CKIRO
CNT
COIIPN
CO
CVAl
04800
DECU

DUP ROUTINE
04052
03856
03552
03051
03184
04088
03843
03000
03023

oDF1I8
OF~IB

DIG
DSEC
EQUIV
ERONE
ERTEN

HITE
INEQU
10GT

PAGE
03040
03688
09900
09940
03600
03740
03636
10000
00566

10PT
10RT
1I8EF
NAileR
NINES
OK ALL
OVERR
OVTEN
PLACE

00532
00565
03031
03444
04312
04162
03656
03796
04575

PUT
RDEQU
RMOK
SFVAl
STERR
TESTl
ZERO
SYSCAl

END OF ONE ASSEMBLY.

;<;
1620 MON ITOR 11 DUP ROUTINE
00010
00020
00030
00040
00050
00060

.DCOPY

PAGE

OORG 2700
DC
2,-11,6301
JJ
2,-33,6303
DC
II
2,-55,6305
DC
NN
DC
2,-17,6307

02700
06301

2,-99,6309

06309

pp
DC

06303
06305
06307

RR
00070 POINT OS
,6300
00080 LASTNO DC
5,9,6314
-0009
00090 NUMSEC DC
3,100,6317
JOO
00100 0
DeOPY
DUP ROUTINE
00110 INEQU OS
,10000
00120 CC
OS
.13613,
AlPHA INPUT FOR CONTRO~ STATEMENT
00130 10PT
OS
.532
00140 IOGT
OS
.566
00150 IORT
OS
.565
00160 10RBe OS
.520
00170 MONCAl OS
.796
00180 SYSCAL OS
,475
00190 •
CK FOR RK MK IN CONTROL RECORD
00200 OtOPY TFM TRM+ 11, CC-2
00210 BAKT
AM
TRM+11,2
00220
CM
TRM+11,CC+51'2
00230
8H
GOONT
00240 TRM
BNR BAKT .0_0
00250
TFM SHRR+2",7I70.8
00260
B7
ERONE+12
00270 •
00280 •
00290 GOONT BD
e+20.CC+13. ,
8R IF TO SECTOR GIVEN
00300
87
ERONE •••
OPERAND MISSING
00310
SF
CC+99t ••
SET UP AND CHECK FOR FilE PROTECTION DESIRED
CM
&C+100,57,10
00320
00330
8NE -+21t
001/00
SF
STCHG+l., •
SET INO IF FilE PROTECTION OESIREO
00350
80
SFSECl, eC+61., 8R IF SECTOR LIMITS GI VEN
00360 •
ROUTINE TO CONVERT A~PHA TO NUMERIC
00370 STCHG TFM STl+6,CC-+23
00380
TFM sn+11,CC+2/o
00390 STI
TO
CC+23,CC+24
00400
AM
STl+6,l
00410 •
CK FOR NON-NUMERIC SECTOR ADDRESS
00420
CM
STl+ll.CC+40
00430
8l
ON
004100
SM
STl+ II .1
00450
TO
-+35,STl+11.11
AM
001060
STl+ll.1
00470
CM
-+8,07000,110
001080
ON
BE
00490
CM
--13,0,10

{:til

06300
06314

0
5

06317

10000
13613
00532
00566
00565
00520
00796
00475
02700
02712
02724
02736
02H8
02760
02712

0
0
0
0
0
0
0
0

46
45
16
49

02759
02759
02759
02780
02712
03633
03552

43
49
32
14
/07
32
/03

02800
03540
13712
13713
028/08
02861
03176

00000
000N7
01200
00000
13614

02860
02872
02884
02896

16
16
25

02890
02895
13636
02890

J3636
J3637
13637
-0001

02908
02920
02932
029""
02956
02968
02980
02992

14
47
12
25

02895
03036
02895
02979
02895
02976
03036
02979

J3653
01300
-0001
0289N
-0001
-70-0
01200
000-0

02780
02792
.02800
02812
02824
02836
028"8

16
11

14

11

11
14
46
1"

J3611
-0002
J3715
01100
00000
OP170

13686

04114
03292
03196
03832
03477
03506
03794
00475

1620 MONITOR 11 OUP ROUTINE

PAGE

*DCOPY

8E
ON
TFM STERR"'2-4,7115,B
81
ERONE+12
AM
STl+ll.2
CM
STl+ll.CC+16
BL
STl
GET SYSTEM DIMS
8TM 8AK,CKlIM+ll"
OCOPV+68,5.10
MM
lASTNO,99, ,
PUT LARGEST LEGAL 01 M NUM8+l IN LASTNO
TF
SAVE SCRATCH AREA DIM
,DCOPV
OS
COPY+I00.COPY+20
TR
TOM COPY+HO.O
TOM COPY+I09.0
00630
A
COPY+I08.COPY+lOB
00640
00650 LENCS OS
.COPY+1I0
00660 LENSC os
.COPY+1I0
00b10 •
00680
8R I F NO SECTOR LIMITS
8NF GOAGIN. STCHG+13 ••
00690
LIMITS GIVEN - GO CHECK LIMITS
81
CKlIM",
00700 SFSECL SF
PRESERVE INDICATION THAT SECTOR LIMITS GIVEN
STCHG+13."
00710 DIMNO os
.CC+26
00120
81
STCHG
CHECK FOR VAll 0 LIMITS Q HAS NUM EQU DIM
CC+Jl,2.8,
00730 CKLIM
SF
00740
SF
CC+31
00150
CC+36.CCH2
C
8NH GOON
00160
TFM STER.R+24,1111,8, END ADDRESS GREATER THAN 8EGINNING ADDRESS
00710
00780
87
ERONE+12
GET DIM ROUTINE - ENTER USING 8TM 8AK.DIMADR
00790 •
GET DIM ROUTINE - UPON EXIT DIM IS IN ADDR AT RMCK+lI
00800
00810
OS
5
.-I,LASTNO.6.
CK FOR DIM IN RANGE
00820 UK
C
00830
8L
-+32 ••• 8R IF DIM OK
TFM STERR+24.0016.8,
DIM TOO URGE
00840
00850
87
ERONE+12.
TFM CALC 1 ,4800.,
CALCULATE THE FROM AODRESS 0 I M ADOR ES S
00860
00870
TDM CALC1+t,0
CAlCl+ I.BAK-l,1 1
A
00880
00890
A
CALCI +1. 8AK-l.ll
00900
TF
DDADI".CALC1 •• PUT SECTOR ADDRESS IN DOA
TFM IORT."Z3
00910
GET DIM
00920
B
IOGT.DEFl.7.
00930
TO
H22.CALCl+l
00940 RMCK
BNR 88DIM .RDOIM,7.8R IF 01" IS OK
TFM STERR+2lt. 0074,8,
ERROR-DIM NOT IN USE
00950
ERONE+12
00960
81
00970 88DIM 8B
00980 •
DIMNO-3
00990 GOAGIN SF
01000
CC+26.0.8
C"
01010
SNE BTND
01020
B1
EQUTLU, ••
GO GET 01" NUM8ER
TFM DDADI M+8.DCOPY-l00 ••
ALTER THE LINKAGE TO RD DIMS
01030 8TMD
ALTER THE DIM GET ROUTINE
01040
TF" RMCK+ll.OCOPV-lOO"
GET DIM
8TH 8AK,DJMNO, ,
01050
00500
00510
00520
00530 ON
00540
00550
00560
00510
00580
00590 •
00600 COPY
00610
00620

*

03004
03016
03028
03036
03048
03060
03012

46
16
49
11
14
41

03084

13
26

02168

31
15
15
21

02800
02810
02809
02808
0
0

02120
00000
00000
02808

44
49
32

03452
03196
02873
0
02860
13644
13650
13649

02813

03096
02100
03108
03120
03132
03144
02810
02810
03156
03168
03176
13639
03188
03196

03208
03220
03232
03244
03256
03267
03268

03280
0.3292
OH04
03312
OH24
03336
03348
03360
03372

03384
03396
03408
03420

03432

11

03036
03633
03552
02895
02895
02884
03268
06314

01200
OPI75
-0002
J3689
01300
-3201
000-5
00099

a

49
32
32
24
41
16
49

lit
H
16
49
16
15
21
21
·26
16
49
25
45
16
49
42

03968
03633
03552
5
0326P
03312
03633
03552
03642

03643
03643
03643
03657

00565
00566
03418
03440
03633

00000
0-002
00000
13655
01100
OPI77

06314
01300
0-076
-4800
00000
0326P
0326P
03642
-3395
-3644
03643
-2700
0-074

03552
00000

00000

32
14

13636
13639

41

0)496

00000
0-000
01200

49
16
16
17

03676

03508
03520

03532

49

04084
03633 0-071
00000 00102
03609 00100
00000 00000
03600 01400
00796
15 X
2

03440
03452

03464
03476
03488
0)496

03665
03419

-2600
-2600
J3639

03268

rltfJ
1620 MONITOR 11 DUP ROUT! NE
01060
01070
01080
01090
01100
01110
01120
01130
01140
01150
01160
01170
01180
01190

87

PAGE

*DCOPY

OKGOON

*
ERONE

TFH STERR+24.0071.8. ERROR-TO seCTOR NOT GIVEN
RCTY
WHY STERR
EXIT
H
_+12,1400
OKEXIT 81
87
MONeAl •••
ONLY EXIT FROM ROUTINE
STERR DAC 15.0UP* ERROR XX •
OUP* ERROR XX •
*
CALCI
DC
5.0
-0000
OS
1
DEFI
DSC 2.Z2
22
DSA DDADIM-5

.

01200
01210

03540

16

03552

34

03561>
03576
03588

39
48
46
49

03600
03609
03642
03643

03644
03650

DC

1.'

03650
03651

DSC
1

1,1

03652

01220 ROOI" os
.DCOPY
01230 DDADIM DC
5.0
-0000
OIHO
DC
3.1
-01
01250
DSA ROOIM

.

5 X
-3652
1

02700

0
5

03657
03660

5 X

03665

DC

1 ••

03666

-2700
1

DSC
22
DSA

2,22

03667

2

01290

DCOPY+40

03673

01300

DC

1 ••

03671
03674

01260
01270 *
01280 DEOU

01310
01320
01330
01340
01350
01360
01370
01380
01390
01400
01410
01420
01430
01440
01450

03665

•
•
TlU EQuiVALENCE fABLE
EOUTLU 80
-.20 t ce.ll
B7
ERONE •• ,
ERROR - ESSENTIAL OPERAND BLANK
CNT
OS
• ERONE+l8
TF
CNT.DCOPY+48 •• SAVE NUM SECTORS IN EQU TABLE
TFM DCOPY+53.INEQU.7.
FILL IN CORE AOORESS
TFM DCOPY+48,16,9,
SET NUM SECTORS TO 16
SF
CC+ll
SM
CNT.16,9
(ORT ,.+23 ••
RO 16 SECTORS EO TAB
RDEOU TF"
8
IOGT.OEQU.7
TFM COMPN+l1.1 NEQU-5
AOEQU
AM
COMPN+ Il, 16
8NR
*+20. COMPN+ 11,1 L

03616
03688

-2740
1

43
49

03558
03696
03708

03720
03732
03744
03756

03768
03780
03792
03804

73fj

26
16
16
32
12
16
49
16

03696

13624

03540
0

03558
02753

02748
13624

03558

11

00565
00566
03859
03859

45

03824

02748
JOOOO
00-16
00000
00-16
-3779
-3667
-9995
-0016
0385R

1620 HON ITOR 11 DUP ROUTINE
01460
01470
01480
OH90 •
01500 COMPH
01510
01520 FOUND
01530
01540
01550 •
01560 TESTl
01570
01580
01590
01600 ERR20
01610.
01620 •
01630 •
01640 GOON
01650
01660
01670
01680
01690 8AK3
01700
01710
01720
01730
01740
01750
01760
01770
01780
01790
01800
01810
01820
01830
01840
01850
01860·
01870
01880
01890
01900
01910
01920
01930
01940
01950
01960
01970
01980
01990

-DCOPY

PAGE

87
CM
6H

ERR20...
ERROR - NAME NOT IN EQU TAB
COMPN+11.INEQU+1600
reSTl".
BR IF END OF 16 SECTORS

03816
03824
03836

49
14
46

03948
03859
03904

C
BNE
AM
TF
87

CC+22..0 0 0
ADEQU ... ·8R NOT FOUND. TRY AGAIN
COMPN+11.4
DIMHO.COMPN+11.11. NAME FOUND - MOVE NUMBER
8JMD...
TAKE SAME PATH AS IF OIM NUM GI·VEN

03848
03860
03872
03884
03896

24
47
26
49

13635
0]792
D3859
13639
03496

00000
01200
-0004
0385R

CM
8NH
A
87
TFM
87

CNT.O.9

039010
03916
03928
03940
03948
03960

14
41
21
49
16
49

03558
03948
02145
03744
03633
03552

00-00
01100
02748

22

13655
13655
04312
13653
13652
13644
13645
13653
1

l3649
-0001
13655
00000
13655
00000
00000
00000

S
AM
TF
SF
TF
CF
SF
TDM
DC

,

ERR20 •••
DCOPY+45.DCOPY+48
ROEIIU-12
STERR+24.7270 ,8.
ERONE+12

ERROR -

NAME NOT IN Ell TAB

NOT IN EQ TAB

03968
03980
03992
04004
04016
04028
04040
04052
04063

CC+42,CC+36.. CHANGE SECTOR LIMITS TO SECTOR COUNT.
CC+U,I
SAVSCT,CCH2 .. SAVE THE SECTOR COUNT
CCHO
CC+39.CC+42
CC+l1", MOVE
CC+32 " ,
FLAG
CC+40,O

1,',-

TR
RDDIM,CC+31
87
LOK
OKGOOH TR
RDOIM,RMCK+11,l1. MOYE FROM DIM
TF
SAVSCT. RDDI"+ •• ,SAYE SECTOR COUNT
CF
SAVSCT-l
SAV2
OS
,LOK
TF" 1I0DIM+13,INEQU
•
. TItE NUMB SECTORS NEEDED IS IN SAVSCT
•
SF
CC+44
TF
RODIM+60+5.CC+48., MOVE THE
TD
IIDDIM+60.CC+43
TO SECTOR
TOM IIDOIM+14,O

DC

•

04064
04016
04084
04096
04108
04119
04120

1,',.

TR

RDDIM+60+6.RDDIM+6 .. PUT SECTOR COUNT + CORE ADDR IN TO DDA
•
GET SP LIST
TD
DDASPL.RDDIM+60..
GET CDIIIIECT MODULE AND
..n
.IIDDI M+61 .. ADDRESS SCHEME FOR SP LIST
TO
.+23
CF
TO
DDASPL+l.POINT
TFM I ORT •• +21..
llEAD THE
B
10GT.DEfSPL.l. SP LIST
•
SEAIICH FDR CYLINDER
IIDOIII+65;5
CYLCMP ""
TfM
94.10.10.
SET UP THE SP LIST CYL ENTRY
TF
cnCMP+3.96
_
CYLINDER DESIRED IS AT cnCMP+) IN lDU FORMAT

1620 MON ITOR 11 IlUP RounNE

DC

11
26

32
26
33
32

15
31

02700
04120
02700
04312
04310

0341R
027'()8
00000

16

02713

JOOOO

04132
OU44
04156
04168
04119

32
26
25
15

13651
02765
02760
0271"
1

00000
13661
13656
00000

04180

31

02766

02706

04192
04204
042.16
04228
0"240
04252

25
25
33
25
16
49

04327
04239
04239
04328
00565
00566

02760
02761
00000
06300
-4263
-4319

04264
04276
04288

13
16
26

02765
00094
04267

-0005
OOOPO
00096

o

49

04318

6

04319

2
5 X

04325

-4327

010325

1.'

04342
6

04326

1

1
19801

04327
04332

1
5

02080

3.100

04332
04335

J9801
3

02090
02100
02110
02120
02130
02140
02150
02160
02170
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360

DC
CKSPL

•
_

•
•
LAB

CH
WK.l

02370
02]80 WK2
02390 •
02/t00 •

INEOU

0'U40

1,'

04340
04341

LOOK FOR CYLINDER ENTRY OF TO CYLINDER
SF
INEOU .. 2
AM
CKSPL+6.4
AM
CKSPL+42.4
C
INEQU-l.CYLCM'+3.2
INE CKSPL
SP POINTER IN CKSPl+42 HAS ADOR OF CYL ENTRY FOR THE
CYLINDER CONTAINING THE TO SECTOR
TF
WK1.CKSPL+4l.1I. MOVE THE 10XX
TOM WKI-2.0.1I.
MAKE FIELD OXX
A
WKl.WK1..
FIVE DIGIT SECTOR AOOR OF cn IS AT WK2
WKl COI'H AINS THE 5 DIGIT SECTOR AODRESS OF THE TO CYL
ROOIM+65 CONTAINS THE5 DIGIT TO SECTOR ADDRESS
CKSPL+42 CONTAINS THE ADORESS OR THE TO CYL ENTRY IN SP LIST
SF
AM
AM
CM
8H
CM
8H

CKSPL+6 .. 6
CKSPL+6.4
CKSPL +42.4
CKSPL+4Z,9000.68
AVLENT
CKSPL+It2 •.7000.68
ERUNA
CKSPL+4Z,OOOI,68
SCRENT
OIMENT
4.0

04342
04354
04366
04378
04390

732

32
11

11
24
47

15

04558

SAYSCT CONTAINS THE seCTOR COUNT TO 8E COPIED
SENSC .CONTUNS THE SECTOR COUNT OF SCRATCH AREA

1

21

04557

1.0

5 X
JOOOO

26

04438
04450
04462
04474
04486
04498
04510
04522
04534
04546
04556

BE
17
DC
-000
OSC ltO

o
OSC
o

l3644

PAGE
04300
04312

02060 DDASPL OS
02070
DSA

DC
JOO
DSA

OP270

49
31
26
33

-DCOPY

02000
87
CKSPL
02010 SAYSCT DC
6.0
-00000
02020 SAVCPY DC
6.0
-00000
020)0 OEFSPL OSC 2. .22
22
02040
OSA DOASPL
02050

11

Jl600
01100

32
11
II
14
46
14
46
14
46
49

JOOOO
04348
04384
-9999
04342

00000
-000.
-0004
04267
01200

04556
04554
04556

0438"
000004556

043100
04348
04384
0438M
04560
·0438M
04648
0438"
04668
04728
4

00000
-000"
-0004
OROOO
01100
OPOOO
01100
0-001
01200

1620 MONITOR 11 DUP ROUTINE
02HO
02420
02430
02440
02450
02460
02410
02480
02490
02500
02510
02520
025)0
02540
02550
02560
02510
02580
02590
02600
02610
02620
02630
02640
02650
02660
02670
02680
02690
02100
02110
02720
02130
02740
02150
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02810
02880
02890
02900
02910
02920
02930
02940
02950
02960

•
AVLENT TF
SF
A
OUTFI C
8H
87
OUTF
SM
117
ERUNA TFM
87
SCRENT TF
A
CF
TFM
II
•
•
DIMENT TF
8TM
TR
A
C
IIH
117
•

.

fOUNDS TF
A
SM
CKIT
C
IINL
CM
liE

.

LAlll

AM
SF
AM
AM
CM

BH
CM

BH
AVL

117
TF

SF
A
C
IIH
87

PAGE

-DCOPY

WKA,CKSPL+42,l1
WKA-2
WK2. WKA,.
ADD THE AVAIL SECTORS TO START OF CYLINDER
WK2,RDDIM+65

-.20
LA8
WK2,I
FOUNDS
STERR+24,0078,8
ERONE+12
WK2,COPY+25
WK2,LENSC
STCHG+l
STERR+24,7I76,8
OUTf
WKA,CKSPLH2,II
BAK,WKl

WKDIM. RMCK+l1.11
WK2, WKO I M+8 ••
WK2,ROOIM+65
ERUNA .
LAII

ADD SECTOR COUNT TO IIEGIN Of CYl

WHEN FOUNDS IS ENTERED IIK2 CONTAINS AOOR OF LAST SECT AVAIL
WKHICP,RDDIII+65
WKHICP,RDDIII+68 .. ADD SECTOR COUNT TO THE TO SECTOR AOOR
WKHICP,l ..
OBTAIN THE LAST SECTOR TO 8E COPIED
WK2,WKHICP
COPYIT
CKSPL+42,OOO1068
ERONE+12
CKSPL+42,l0I0
CKSPL+42,,6
CKSPL+6.4
CKSPL+42,3
CKSPL+42 ,9000,68
AVL
CKSPL+42,7000,68
LAlll
ERUNA
IlKA,CKSPL+42,l1
IlKA-2
IIK2,WKA
IIK2,WKHICP, ,
WKHICP IS UST SECTOR TO BE COPIED
COPYIT
LABl

04560
04572
04584
04596
04608
04620
04628
04640
04648
04660
04668
04680
04692
04104
04716

26
32
21
24
46
49

16
49

04438
04558
04808
03633
03552
04558
04558
02861
03633
04628

04728
04140
04152
04164
01t776
04788
04800

26
17
31
21
24
46
49

06221
01268
06228
04558
04558
04648
04438

043814
-6221
Ol41R
06236
02765
01100

04808
04820
04832
04844
04856
04868
04880

26
21
12
24
46
14
46

06223
06223
06223
04558
05064
0103814
03552

02165
02768
-0001
06223
01300
0-001
01200

04892
04904
04916
04928
04940
04952

11
32
II

010384

000-1
00000
-0004
-0003
OROOO
01100
OPOOO
01100

33

11

04976
04988
04996
05008
05020
05032
050"
05056

14
46
14
46
49
26
32
21
24
46
49

05064
05076
050811
05100

26
16
26
25

049610

•
•
COPY SUBROUTINE
COpy IT TF
SAVE THE NUM Of SECTORS
SAVCPY, SAVSCT"
Tfll ROOIN+l3,INEQU
TF
ROOIII+25,RDDIN+65
RODIN+20,RIIDIM+60
TD

12
49
16
49
26
21

06227
06225
04558
010558
010628

0t,38M
04348
04384
0'>3814
04996
043814
04892

0438M
00000
06227
02765
01100
-0001
0-078
02725
02810
00000
OPi16
00000

046108

06227
06225
04558
04558
05064
04892

043814
00000
06227
06223
01100

04318
02133
02125
02120

04312
JOOOO
02765
02160

7~3

1620 MONITOR 11 DUP ROUTINE

PAGE

_OCOPY

,foUNOS
DS
OS
.RDEQU
SAVRD,RDDIN
TR
$AVIIR,RDDIII.20
TR
SAVCPY, NUN SEt
REPEAT . S
CHGP
ADJUST
8l
RDDIM+8,NUMSEC
TF
Tf
RDOIM+28.NUMSEC
ROIIR
87
SAVCPY,NUIISEC
ADJUST A
SAVCPY-2
SF
TF
RDDIII+8,SAVCPY
TF
RDDIM+28,SAVCPY
SAVCPY,SAVCPY
S
RDIIR
Tfll IORT,*+Z3
IDGT,DEflN,7, READ IN NUNSEC - OR LAST REMAINDER RECORD
II
SETFPR,CHGP+7 .. IIR WHILE FLIP PROTECTION IS OCCURRING
8D
WRDSKF TfN IORT, •• 23
IOPT,OEFDUT,7,
WRITE COPY
8
RDOIM+5,RDDIM+8
A
RODIM+25,RDoIII+28
A
SAVCPY-2
CFINS Cf
IS RD-IIR' FINISMED
CM
SAVCPY,O"
REPEAT
BNZ
TRANSfER OF DATA IS COMPLETE
87
LCOPY-12
OEflN OSC 2,22
22
03240
OSA ROOIM

02970
029110
02990
03000
03010
03020
03030
03040
03050
03060
03010
03080
03090
03100
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230

S4VRD
SAVIIR

,

DC

03250

03260 OEFOUT DSC
22
03270
DSA
03280
03290
03300
03310
03320
03330
03340

DC

053~2

31
31
22
47
26
26
49
21
32
26
26
22
16
49
43
16
49
21

0
0
04808
03756
04318
05192
02708
02728
05252
04318
04316
02708
02728
04318
00565
00566
06036
00565
00532
02105
02725

05324
05336
05n8
05360

21
33
14
47

04318
05136

05372
05379

49

05396
2

010316

1,'

05385
05386

-2700
I
2

2,22

05387

RDDIM+20

05393

1,'

05393
05394

BNf
87

.+20.STCHG+l

FILPRO
END ROUTINE
TDM SAVRO+6,O
1, I ,*
.DC
SAVIIR+6,0

02700
02120
06317
01300
06317
06317
06317
00000
04318
04318
04318
-5215
-5)19
05155
-5311
-5387
02708
02128
00000
-0000
01200

5 X

05385

5 X
-2120
I

CHECK fOR FILE PROTECTION DESIRED

•
LCOPY
•
ENDC

04808
03756
05112
05124
05136
05148
05160
05172
05184
05192
05204
05216
05228
05240
05252
05264
05276
05288
05300

05396
05408

44
49

05416
05714

02861

05416
05421

15

010814
1

00000

05428
05439

15

03762
I

00000

03350
03360

TDM

DC

1,' ,.

03370
03380

TOM

SAVSCT+l

05"0
05451

15

04313
1

00000

03390
03400
0]410

RCTY
WNTY SAVSCT-4
WATY flNMES

05452
05464
05476

34
38
39

00000
04308
05605

00102
00100
00100

DC

1,',·

.~ If

6

1620 MONITOR 11 OUP ROUTINE
8NF
WNTY
8
WNTV
WArY
WNTY
BNF
WArY
TOM
87

OH20
03430
031040

oOCOPY

PAGE

"36.STCHG+l
SAVRO+5

051t88
05500
05512
05524
05536
05548
05560
05572
05584
05596

• ... 24

03450
SAVRO
03460
FINMS2
03470
SAVWR
03480
"24. STCHG+1
03490
FL
03500
SYSCAL.1
03510
OKEXIT
03520 0
03530 FINMES OAC 30. SECTORS OF DATA COP lEO FROM'
SECTORS OF DATA COPIED FROM'
03540 FINMS2 OAC 5, TO •

.

TO

44
38
49
18
39
18
44
39
15
49

05605

05524
05743
05536
04808
05665
03756
05584
05675
00475
03588

02861
00100
00000
00100
00100
00100
02861
00100
00003

30 X

05665

2

'

OAC 20. AND FILE PROTECTED'
AND FILE PROTECTeD'
03560
FILE PROTECTION ROUTINE
03570 FILPRO RClY
03580
IIATV KEYMES
01590 SAVRO H
0.0.7
03600
DC
1,',-

05675
05714
05726
05138
05749

14
39
48

00000
05915
00000
1

00102
00100
-0000

03610
03620
1)3610
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03760

05750
05762
05774
05786
05798
05810
05822
05834
05846
05858
05870
05882
D5894
05902

16
15
15
15
26
26

05939
05380
05388
05155
05347
05354
02700
02720
02708
02728
05748
05743
05252
0'992

OM646
00006
00006
00001
05913
05900
03756
03756
00-20
00-20
04813
0"808

03550 Fl

03770
03780
03790
03800
03810
03820
03830
03840
03850
03860
03870
03880
03890
03900
03910
03920

TFH
TOM
TOM
TOM
TF
TF
TR
TR
TFH
TFH
TF
TO
87

KEY"ES+24.4646.8
OEFIN+l.6
OEFOUT+l.6
CHGP+7.1, ,
SET I NO FOR FILE PIIOT,ECTI ON BRANCH
CFINS+U.OUMl+U
CF I NS+18. OUH+6
RODIH.SAVIIR
RDDIH_20.SAVIIR
ROOIH+8.20.9
RODIH+28,20.9
SAVRO+10,SAVRO+'
SAVRO+'.SAVRO
ROIIR.,O
ENOHES.SETX+I0.0

DUM
OUMI
80
•
KEYMES OAC 39.0UPo TURN ON IIRITE ADDRESS KEY, START'
DUPo TURN ON IIRITE ADDRESS KEY. START'
•
ENDMES RCTY
IIATV KEYMES
H
117
ENDC
0
0
SELECT AND FILE PROTECT THE SECTORS COPIED
SETFPR TFM SFFL+lltINEQU.7
AM
SFFL+ll,4
CFH
TFM FLAG+1.U.10
SAVIIR+5, INEQU. 7
SFFl
C
IH
FLAG-12
PNT
,SFFl+ll
OS
IIKHICP,PNT,11
C
IL
SEn
TFM FLAG+l,)2,10

20 X

n

31
16
16
26
25
M9
H3

2

06210

39

05915
05992
06004
06016
06028

34
39
48
49

06036
06048
06060
06072
06084
06083
06096
06108
06120

16

00000
05915
00000
05416

11

06083
06083

16

061105

210

03761
06132
0
06223
06200
061"5

46
24
47
16

00102
00100
00000

JOOOO
-OOO~

OOOMI
JOOOO
01100
0608l
01300
00012

"")'"
"'r.Jd
1620 MONITOR 11 DUP ROUTINE
03930
03940
03950
03960
03970
03980
03990
04000
04010
04020
04030
04040
04050

FLAG

0

SM
SF
AM
CM
8NH
87

SETX
TOM
87
IIKHICP OS
WKA
DS
IIKDIM DSS
DENO

oDCOPY

I'NT.4

'NT,,6.
PNT.105
PNT .105020_INEQU
SETFPII+12
IIRDSKF
SETX+l0.9
IIRDSKF

5
4
20

PAGE
06132

THIS IS THE SET OR CLEAR FLAG INSTRUCTION

061410

12
32

06156
06168
06180
06192

14
47
49

06200
06212
06223
06227
06228
00000

11

15
49

06083
0608L
06083
06083
06048
05288

-0004
00000
-0105
J2100
01100

06210
05288
5
4
20

00009

9

1620 MONITOR 11 OUP ROUTINE
ADJUST
AVLENT
COPYIT
eneMP
DOA01M
OOASPL
OEFOUT
OEFSPL
OIIlENT
Ef'lDMES
EOUTlU
FILPRO
F INMES
F INNS2
FOUNDS
GOAGIN
KevNES
lASTNo
MONCAL
NUN SEe
OKExn

05192
04560
0506.
04264
03651
04321
05381

oKGooN
REPEAT
ADEQU
AVL
BAK3
8AK
8AKT
880lM
BTMO
CALel
ce
CFH
CFINS
CHGP
CKIT
CKLIM
CKSPL
CNT
CoMPN
COpy
OCOPY

0431~

OH26
05992
0361&
05714
05605
05665
04808
03452
05915
06314
00196
06317
03588

PAGE

-OCoPV

Olt08'o
05136
03792
04996
04028
03268
02712
034"0
03496
036'02
13613
06060
05336
05148
04844
03196
04342
03558
03848
02700
02100

OEFl
OEFIN
OEQU
OIMNo
DUM I
~UM

ENDe
ERoNE
ERR20
ERUNA
EXIT
flAG
fl
FOUND
GOON
GOoNT
INEQU
loGT
loPT
10RBC
I ORr

03644
05379
03661
13639
05902
05894
05416
03540
03948
0464B
03576
06144
05675
03872
03968
02780
10000
00566
00532
00520
00565

LAB
LA8l
LCoPV
LENtS
LENSC
LOK
ON
oUTFI
oUTF
PNT
POINT
ROOIM
RDEQU
RONR
RMCK
SAV2
SAVRD
SAVRo
SAVNR
SErx
SFFL

04438
04892
05'008
02810
02810
04120
03036
04596
04628
06083
06300
02700
03756
05252
03408
04119
04808
05138
03756
06200
06072

10

STl
STCHG
STERR
TESTL
TRM
WKI
WK2
WKA
WKOIM
SAVepy
SAvseT
SCRENT
SETFPR
SFSECl
SVSCAl
WKHICP
WRoSKF

END OF ONE ASSEMBLY.

1620 MONITOR 11
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100

DUP ROUTINE

OLoAD, OREP(;, OELET

PAGE

SUBROUTINES-Ol MMER,GETR,GETl, INSERT, REMOVE.F INO

10PT
10GT
IORr
KING

00110

OoRG
OS
OS
OS
OSC
02
OSA

H58
.532
.566
.565

2.02,.

,

00120

IX

00130 QUEEN

ose

OOA TO FLIP CORE IIHEN MOVING PROGRAMS

QUEEN

02464

1.'

02464
02465

1,1

02466

5.02000

02411

1
IX
-2000
00150

IX

00160

IX

02458
00532
00566
00565
02458

)0140

J40
6.05800'
-5800'
00170 CoRSIl IX
),080 .. THE CURRENT SIZE OF THE SPL
-80
00180 DIMERR OAt 14,OUP.ERRoR 00 '
DUP.ERROR 00 '
00190
TFM OIMERR+22,0011,8
00200 ERRO
RCTY
00210
IIATY OIMERR
00220
H
00230
B
MONCAL
00240
DDRG --3
00250 ONOOA OSC 2.22 .. 00A USED BY DIMMER TO READ IN ONE SECTOR
22
00260
DSA OMREAO

02485
02512
02524
.02536
02548
02560·
02568
02568

1.0

02576

00300
00310
00320

.

DSC

00330 RDNDDA ose
DSA

14

2

02507
00000
02485
00000
00796

0-071
00102
00100
00000
00000

2

-2576
I

02581
02584
02589

I,'

02590

2,22"oDA USED 8Y THE MOVER TO MOVE PROGRAMS

02591

RDMOVE

02597

22
00340

16
34
39
48
49

02514

00280 DNREAO OSC

DC
5,0
-0000
DC
3,1
-01
DC
5.19900
J99011

6

02483

02574
02575

o

X

02'174

I.'

00290

2

02480

DSC

00270

o
o
o

02597

2

-2599

02884
02860
03609
01904
02148
04556
04558
06221
06228
04118
04312
04668
06036
03116
00415
06223
05288

1620 MONITOR 11
00350

OSC

OUP ROUT! NE

OlOAO. OREPl. oElET

I ••

00360 ROMOVE OSC
1.0
0
5,·0
00310
DC
-0000
00]80
DC
3,1~0
J40
00]90
DC
5.05800
-5800
00400
1 ••
OSC
00410 WRHOOA OSC
22
00420
OSA
00~30

OSC

2,22, •

02599
0260~

02601
02612
02613
oOA USED BY THE MOVER TO TRANSFER PROGRAMS

02614

WRMOVE

02620

I ••

02620
02621

00440 WRMOVE OSC 1.0
0
00450
DC
5.0
-0000
00460
3.140
DC
J40
00470
DC
5.05800
-5800
00480
OSC 1 ••
00490 PKOOOA OSC
22
00500
OSA
00510

.

OSC

2,22,.

00590

OSC

02630

02636
OoA FOR HANDLING THE SPl ON MODULE ZERO

02631
02643

I ••

026H
0264"

5 X
-2645
I

02645
02650
02653
0265B
02659
oOA FOR HANDLING THE SPl ON MODULE ONE

02660

SPlPKI

02666

1 ••

02666
02667

5 X
-2668
I

02668
02613

'i ',\ \\

1620 MONITOR 11

DC

3

02635

00600 SPlPKI oSC
1.3
1
00610
DC
5.39801
19801

00620

5 X
-2622
I

02621

SPlPKO

2.22, •

2

02622

00520 SPlPKO OSC 1,1
1
00530
5.19801
DC
J9801
00540
3,080
DC
-80
00550
5.05800
DC
-5800
I ••
00560
OSC
00570 PKIooA OSC
22
00580
DSA

PAGE
02598

DUP ROUT INE

olOAD. OREPl. oElEr

3.080

PAGE
02676

-80
00630
00640

5.05800
DC
-5800
I ••
OSC

00650 PK200A oSC
22
00660
DSA
00670

OSC

2.22,~

02681
02682
DoA FOR HANDLING THE SPl ON MOOULE TWO

02683

SPlPK2

02689

1 ••

02689
02690

00680 SPlPK2 OSC 1.5
5
00690
5.59801
DC
N9801
00100
DC
3.080
-80
00110
DC
5.05800
-5800
00120
1 ••
OSC
00130 PK1DDA DSC

2,22, ,

X
-2691
1

02691
02696
02699
02704
02705
DDA FOR HANDLING THE SPl ON MODULE THREE

02106

22
00740
00750

oSA
OSC

SPLPK3

02112

I ••

02712
02713

00160 SPlPKl OSC 1.7
7
00770
DC
5.19801
P9801
00780
DC
3.080
-80
00790
DC
5.05800
-5800
00800
oSC 1 ••

02714

00810 THRoOA OSC
22
00820
oSA

2,22, ,DDA TO EXCHANGE CORE WHEN USING THE SPl

02129

THROWS

02135

00830

I ••

02135
02736

OSC

X

-2114
I

02119
02122

3

02727

5

02128

00840 THROWS DSC 1,1
I
00850
DC
5.19881
J9881
00860
3.080
DC
-80
00870
DC
5.05800
-5800
00880
DSC I ••

2

-2137
1

02737
02742
02745
02150
02151

"i'l"

5

1620 MONITOR 11

DUP ROUTINE

OLOAD. DREPL, DELET

PAGE

00890 BAVAIL DC
3,0 .. ACCUMULATES AVAILABLE BUNK SEtTORS FOUND IN NOVE
-00
00900 CALC2 DC
5.0
-0000
00910 GOLDEN DC
1.0 •• L1STER-4

0275"

00920 1I STER DC
4.0"HOLDS PRESENT SPL POSITION
-000
00930 N48000 DC
6.048000"FIRST SECTOR OF aiM MAP
-48000
00940
1.0. ,PACK CONTI NUEO
DC

02764

4

02770

6

02759
02760

02771

00950 PACK

DC

1,O"PACK NUM FOR SPLIST

02772

00960

DC

1, •

02773

00970 CAlC3

DC
6.0
-00000
DC
4.0" CALCULA" ON AREA
-000
DC
1.0" SET UP THE OVERRIDE CODE FOR COMPARISION

00980 CALC4
00990

02779

6

02783

4

02784

01000 lISTES DC
6.0"DESIRED SECTOR AODRESS FIND
-00000
01010 liSTer DC
4.0. ,NUMBER TO BE INSERTED SPL INSERT
-000
01020 HEX
DSC 1.0
0
01030 CONSTl DC
6.0 •• WORK AREAS
-00000
01040 CDNST2 DC
6.0 ••
-00000
01050 QtARRY DC
6.0. ,WHERE TO LOAD NEXT NOVED SECTORS
-00000
01060 QHOLO DC
6.0
-00000
01070 tONST5 DC
6.0
-00000
01080 CONST6 DC
6.0
-00000
01090 CONSn DC
6.0
-00000
01100 RACKET DC
".0
-000
4,0
01110 STEAL DC
-000
01120 CALC7 DC
3,0
-00
01130 FAKSEV DC
4.0 •• HAS SEVEN FROM LISTER
-000
01140 CO"NON DC
1.0

02790

6

02794

4

01150 NOM MaN DC
-0
01160 IIOSECA DC

02855

02795
02801

6

02801

6

02813

6

02819

6

02825

6

02831

6

02837

6

02841

4

02845

4

02848
02852

4

02853

2,0
1,0

02856

t~\

1620 MONITOR 11

DUP ROUTINE

PAGE

OLOAD, DREPl. DELET

01170 MOVESA DC
6,O .. FOR SECTOR ADDRESS
-00000
01180 MOVESC DC
3.0. ,FOR SECTOR COUNT
-00
01190 CONsre DC
5.0
-0000
01200
01210
SUBROIIT INE-GETR
01220
SUBROUTINE FOR SHIFTING ONE TO RIGHT IN THE SPL
01230
TOM HOMMON,l ••
012"0 GETR
INITIALIZE TO SAVE CORE FOR EXCHANGE OF SPL
01250 ClIPPP TF
94,PACK
01260
TFM 10RT, .. n
01270
IOPT,THRDDA,7
8
01280
8
REDSPL
01290
OORG ·-3
01300 GETRTR TF
tALC2, S PLCOR ..
LEFT PRESENT SPL C.A.
01310
AM
SPLCOR,04,10, LEFT END NEW ENTRY
01320
SF
SPLCOR,,6.NEW FLAG
01330 NEWDIM DC
",O,.,DESIRED DIM ENTRY
-000
01340
AM
tALC2,01,10,RIGHT END OF NEW ENTRY
01350
TF
lISTER,CAlC2,11
01360
WHYNOT
8
01370
OORG .-3
01380
SUBROUTINE-GETL
01390
01400
SUBROUTINE FOR SHIFTING ONE TO LEFT IN SPL
01410
01420 GETL
TOM NOMMON,2,
01430
8
CLlPPP
01440
OORG --3
01450 GETLTR TF
CALC2,SPLCOR
01460
SN
SPLCOR,0".10,LEFT END OF NEW ENTRY
01470
SPLCOR,,6,
SF
SM
CALC2 ,01, 10,RIGHT ENO NEW EIITRY
01480
01490
TF
lISTER,CALC2.11
01500
IIHYNOT
8
01510
OORG ·-3
01520
01530
SU8ROUT I NE-REMOVE
01540
REMOVES THE PRESENT ENTRY IN LI STER ANO CLOSES THE LIST
01550
01560 REMOVE TON HOMMON,] ••
01570
ClI PPP
8
01580
OORG .-3
CALC2,SPLCOR
01590 REMOTR TF
AM
CALC2,04,10,
01600
01610
TR
SPLCOR,CALC2.611,CLDSES HOLE
01620
SPLCOR •• 6
SF
5,0,'.DIN AODRESS SPL
01630 SPLCOR DC
-0000
01640
SM
CAlC2.01,10
01650
TF
lISTER.CALC2.11
01660
CF
SPLCOR, ,6
01670 SPLCYL DC
5.0,.,CYLINDER SPl
-0000

...

...

......

'4 1\'1

02862

6

02865

3

02810

02872
02884
02896
02908
02920
02928
02928
029lt0
02952
02963

15
26
16
49
"9

02855
00094
00565
00532
04702

00001
02772
-2919
-2729
00000

26
11

02759
03151
03l5J
4

03151
000-4
00000

02964
02976
02988
02996

11
26
49

02759
02764
03388

000-7
0275R
00000

15
"9

02855
02884

00002
00000

26
12
32
12
26
"9

02159
03151
0315J
02759
02764
03388

03151
000-4
00000
000-1
0275R
00000

15
49

02855
02884

00003
00000

26
11

02759
02759
0315J
Oll5J
5

03151
000-4
027SR
00000

02759
02764
0315J
5

000-1
0275R
00000

02996
03008
03016
03016
03028
03040
03052
0306"
'01076
03084

03084
03096
01104
0310'"
01116
03128
03140
03151
03152
03164
03176
03187

32

31
32
12
26
33

4

1620 MON I TOR 11
01680
01690
01700
01710
01720
01730
01740
01750
01760
01170
01780
01790
01800
01810
01820
01830
01840
01850
01860
01870
01880
01890
01900
01910
01920
01930
019"0
01950
01960
01910
01980
01990
02000
02010
02020
02030
02040
02050
02060
02010
02080
02090
02100
02110
02120
02130
02140
02150
02160
02110
02180
02190
02200
02210

DUP RUUTlNE

OlOAO, DREPL, DELET

PAGE

STOMP

CM
PACK,00,10ll, PACK ZERO
8E
WRTSPO
CM
PACK,OI,lOll,PACK ONE
8E
WRTSPI
CM
PACK,02,1011, PACK TWO
8E
WRTSP2
8
WRTSP.3", PACK THREE
DDRG '-3
ROUTINE FOR RETURNING APPROIATE SPL TO DISK
IORT,.+23
WRTSPO TFM
IOPT,PKODDA,7
8
WHYNDT
8
DORG '-3
WRTSPI TFM
IORT •• +23
IOPT,PK1DDA,7
8
WHYNOT
8
DORG '-3
WRTSP2 TFM
IORT, •• 23
IOPT,PK20DA,7
8
8
WHYNOT
DORG '-3
WRTSP3 TFM
IORT,*+23
IOPT,PK3DDA,7
8
WHYNOT TFM
lOR. T, .+23, ,RESTORES CORE BEFORE RETURNING TO MAINL INE

SU8ROUTINE-INSERT
INSERTS TO THE LEFT OF THE PRESENT ENTRYANO OPENS LIST
IOGT,THRODA,l
8
88
OORG '-9
INSERT TOM NO""0",4, ,
CLlPPP
B
OORG '-3
INSETR SF
SPLCOR.,6
5,Q,.,FIND SEC TOR TOTAL
FOUND DC
-0000
ROUTINE TO SEe IF LIST IS AlREADY FULL
TFM *+35.05800.7
AM
·+2].04.10
TIPSY 8NR '-12,99999, ,FINDS RECORD MARK AT END OF LIST
TF
tONST2. T1PSY+ll
AM
CONST2.0~.10
Tf
CNST3.CONST2
SM
CNSTl.05800.7
CNS Tl-2 .CORS IZ •• COMPARE 5 PRESENT SIZE TO DEFINED LIMIT
C
8L
NERR
TFM DIMERR+22, 7178. a
ERRD
I
DORG '-3
CNsn DC
5.0
-0000
NERR
TF
CONST2, TI PSY+ll.611,OPENS THE LIST
TF
CALC2,SPLCOR
AM
CALC2.C3.10
TF
CALC2.L1 STET .6,
INSERTS THE ENTRY FRO" L1STET
SPLCOR, ,6,
CF

03188
03200
03212
03224
03236
03248
03260
03268

14
46
14
46
14
46
49

02172
03268
02172
03300
02172
03332
03364

000-01200
OOO-J
01200
OOO-K
01200
00000·

03268
03280
03292
03300
01300
01312
01324
01332
03332
013"4
03356
0336"
03364
03376
03388

16
49
49

00565
00532
03388

-3291
-2637
00000

16
49
49

00565
00532
03388

-1323
-2660
00000

16
49

00565
00532
03388

-3355
-2683
00000

16

00565
00532
00565

-)387
-2706
-3411

03400
03412
03101"
0341"
03426
031t34
03"34
Olltlo5

49
"2

00566
00000

-2729
00000

15
49

02855
02884

00004
00000

32

0315J
5

00000

014106

16
11
45
26
11
26
12
2"
47
16
49

03481
03481
03458
02801
02807
03578
03518
03576
03580
02501
02524

-5800
000-4
99999
03481
000-4
02801
-5800
02483
01300
OP118
00000

26
26
11
26
33

0280P
02159
02159
0215R
0315J

0348J
03151
000-3
02794
00000

03"58
03470
OH82
03,,94
03506
03518
03530
035"2
0355"
03566
03574
03578
03580
03592
03604
03616
03628

109
16

109

'I r;1l
1620 MON I TOR 11

OUP ROUTlIIIE

PAGE

OLOAD. DR,EPL. DELET

5,19880 •• ,
02220 DRESTR DC
J9880
02230
AM
SPLCOR.4.10,
CF
SPLCOR •• 6
022"0
02250
8
STOMP •••
DORG . - ]
02260
02270
02280
THE 01 MMER SU8ROUTI NE FOR IRINGING IN A DIM ENTRY
02290
SPECIFIED IN -NEWOIM- TO BEGIN AT CORE POS ITION 19880
02300
02310 DIMMER C
NEWDI M, MUDIM
02320
8NH -+32
02330
TfM 0IMERR+22.0016.8
02340
87
ERRO
02350
TF
CALC2.NEWoIM
02360
A
CAlC2.CALC2
TF
02370
CAlC3.N48000
02380
A
CALC3,CALC2 .. NEW 01" SECTOR ADDRESS
TF
02390
OMR EAD+ 13. ORE S TR
TO
H23.CALC3
02"00
OHIO
SM
OMREAO+12.0.10.AOJUST DIM READER S A
02420
TF
DMREAO+5.CALC3-1
021030
TFM
IORT.·+23
02440
IOGT,DMoDA.l
8
OH50
88
02460
OORG .-9
02470
02480
THE FIND SUBROUTINE FOR LOCATING A POINT ON A PARTICULAR
02490
SPL FROM AN ADDRESS GIVEN IN -L1STES02500
02510 FIND
SF
lISTES-5 •• 8
02520
CF
L1STES-"
02530
TF
19885,lISTES"ACCEPTS SECTOR ARGUMENT
02540
BT
SPL I ST, SPlI ST-l. ,F I NOS TART OF CYLINDER
02550
TOM NOMMON.5
02560
ClIPPP
8
OORG ·~·3
02570
02580 F INOTR TF
CALC2-1.NEWDIM
TOM CALC2-" .. I1.FLAG ZERO
02590
MM
CALC2-1.02,10.FINo SECTOR
02600
02610
TFM ADRSPL .. 7. ZERO THE FIELD
02620
SF
97 ... PI CK UP COUNT
TF
02630
AORSPL-2.99 .. MOVE SECTOR CYL ADDRESS
AORSPL-4, LISTES-4
TO
026"0
02650
SF
ADRSPL-"
02660 TRYAGN TF
CALC2,SPLCOR ..
LEFT PRESENT SPL C.A.
02670
AM
SPLCOR,04,10, LEFT END NEW ENTRY
SF
SPLCOR. ,6.NEW FLAG
02680
AM
02690
CALC2.07.1O.RIGHT END OF NEW ENTRY
02100
TF
L1STER,CALC2.11
02710
TO
CALC4, SPlCOR, 11 t
02720
CM
CAlC4,09tlOll, BLANK SECTORS
02730
8E
AD08LK
TF
NEWDIM,lISTER
02740
PIMMER, 01 MMER-l
02750
8T
19885, AORSPl, ,DOE S THIS PROGRAM 8EGI~ ON THIS CYLINOER
02160
C

03639
03640
03652
0366"
03672

...

03672
03684
03696
03708
03716
03728
03740
03752
03764
03716
03768
03800
03812
03824
03836
03838

'i r, r,

03838
03850
03862
0387"
03886
03898
03906
03906
03918
03930
03942
03954
03966
03918
03990
04002
04014
0"026
04038
0"050
04062
04014
0"086
04098
04110
OH22

11

03151
0315J
03188

000-4
00000
00000

03849
01100
0-076

42

02963
03716
02507
02524
02759
02759
02179
02179
02589
03799
02588
02581
00565
00566
00000

02963
02159
02710
02759
03639
02119
000-0
02178
-3835
-2568
00000

32
33
26
21
15
49

02785
02186
19885
04330
02855
02884

0-000
00000
02790
04329
00005
00000

26

02758
02755
02758
0"520
00097
04518
04516
04516
02759
03151
0315J
02159
02764
02183
02183
04286
02963
03672
19885

02963
0000000-2
-0000
00000
00099
02186
00000
03151
000-4
00000
000-7
0215R
0315J
OOO-R
01200
02164
03671
04520

3]

"9

24
47
16

109
26
21
26
21
26
25

12
26
16

109

15
13
16
32
26
25
32
26

11
32
11
26
25
I"
46
26
27
24

6

1620 MONIfOR 11
BNL
02170
02780
S
SF
02790
02800
A
02810
A
02820 PLUSSR SF
02830
C
028~0
CF
02850
BNH
02860
TF
02870 RLGONE TFM
02880
8
02890
B
DORG
02900
02910 AOD8LK SF
02920
A
CF
02930
02940
B
02950
OORG
02960 NEVER DC
-0
02970 CLEVER DC
02980
02990
03000
03010
03020
03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
03140
03150
03160
03170
03180
03190
03200
03210
03220
03230
0321t0
03250
03260
03270
03280
03290
03300

OLOAO, OREPl, OElET

2,O,AOOBLK+11
1,O,A008LK+15

04321

19885,AORSPL

19883
19888,\9885
ADRSPL,\9888"

ADO SECTOR TOTAL, ADJUSTED IF NECESSARY

1I STES-~
ADRSPl,llSTES"HAS THE CORRECT ENTRY BEEN REACHED
1I STES-4
TRYAGN
FOUNO,ADRSPl

IORT,*+23
IOGT,THRDOA,7

-,,2, EXIT TO BE FILLED
<-3
lISTER-2
ADRSPL,lISTER"AOO IN THE COUNT FOR BLANK SECTORS
I I STER-2
PLUSSR
<-)

ROUTINE FOR 8RINGING IN THE PROPER LIST AND
SCANNING TO THE CORRECT CYLINDER ENTRY
SPLI ST TFM
IORT, <+23
8
IOPT,THRDOA,7
TOM 19880"l1,FLAG ZERO
111M
19885.05,10
CF
COMMON
SF
94."DESIREO CYLINDER
SF
93
TO
STARDT+ 10,95" SET-UP SEARCH FOR THE CORRECT CYLINDER
TO
STARDT+11 ,96
14M
llSTES-5,50000,7,USE OVERRIDE CODE TO DETERMINE MODULE
SF
94
8
RDSPL
DORG <-3
SPUNI BNF <+20,COMMON
8
GET8AK
OORG '-3
TOM CALC4-I,O,ll,SET-UP CALC4
TFM ADR SPL, 05800
LPSRDA NOP
'"
HOLDS COUNT POSITION FOR SPL LIST
TO
CALC4,ADRSPL
,Il,
PREPARE TO COMPARE
CF
CAlC4
CM
CALC4,7,IO
8E
COMCn
SPLAOD AM
AoRSPL
,04,10 .. NEXT ENTRY
8
AoRSPl+6
OORG '-3
RDSPl
TF
KEVE, 94
TF
NEVER,L1STES-4"CORRECT TENTHOUSANoS POSITION
TOM NEVER-I"ll
14M
NEVER,05,I0

80

-.24,99

OUP ROUTINE

04330
04342
04354
04366
04378
04390
04402
04414
04426
04438
04450
04462
04470
04470
04482
04490
04490
04502
04514
04526
04538
04S50
04562
04574
04586
04594
04594
04606
04618
04630
04642

~6

2Z
32
21
21
32
24
33
47
26
16
49
49

04182
19885
19883
19888
04520
02786
04520
02786
04002
03445
00565
00566
-4278

01300
04520
00000
Iq885
19888
00000
02790
00000
01i00
04520
-4271
-2729
00000

32
21
33
49

02762
04520
02762
04194

00000
02764
00000
00000

16
49
15

32
49

00565
00532
19880
19885
02853
00094
00093
05032
05033
02785
00094
04594

-4353
-2729
0000000-5
00000
00000
00000
00095
00096
NOOOO
00000
00000

44
49

0""90
05170

02853
00000

15
16
41
25
33
14
46
11
49

02782
04520
00000
02783
02783
02783
04986
04520
04526

0000-5800
00000
045200000
000-7
01200
000-4
00000

26
26
15
13
43

05009
04297
04296
04297
04666

00094
02786
0000000-5
00099

13
33
32
32
25
25

13

oLOAD, CREPL, DELET

AM
NEVER,I,IO
TO
CLEVER,NEVER
SF
CLEVER
ROUlI HE TO READ IN CORRECT SPL
TF
94,KEVE
REOSPl CM
94,O,\01l, PACK ZERO
TF
PACK,94"SAVE PACK NUM
BE
REOSPO
CM
94,1,1011,
PACK ONE
8E
REDSPI
CM
94,2,\011, PACK TWO
BE
REOSP2
CM
94,3,1011, PACK THREE
BE
REOSP3
REOSPO TO
SPLPKO+l,CLEVER
TFM
IORT,"n
B
IOGT,PKOOOA,7
B
SPUNI
DORG '-3
REOSPI TO
SPLPKI+l,ClEVER
TFM
IORT,'+23
8
IOGT ,PKI00A, 7
SPLINI
B
OORG '-3
REOSP2 TO
SPLPK2+l,ClEVER
TFM
10RT, . . n
8
IOGT,PK200A,7
8
SPUNI
OORG .-3
REOSP3 TO
SPLPK3+I,CLEVER
TFM tORT, -.23
B
IOGT,PK300A,7
B
SPUN)
DORG .-3
COHCYL TF
SPLCn,AORSPL
"cnCORE POSITION
SF
AORSPL, ,6
KEVE
OS
,COMCYl+23
AM
SPLCYL,03,IO
STAROT CM
SPLCYL,7000,68,IS THIS THE RIGHT CYLINDER
BE
SPLEXT
CF
AORSPL, ,6
8
SPLAOO
OORG --3
SPLEXT TF
SPLCOR,SPLCYl"FIND DIM NUM LOCATION
SM
SPLCYl,03,lO,BACK TO HIGH ORDER POSITION

Sf

PAGE
04134
04\46
04158
04170
04182
04194
04206
04218
04230
04242
04254
04266
04278
04286
04286
04298
OHIO
04322
04330
04297

1620 MONITOR II
03310
03320
03330
03340
03350
03360
03370
03380
03390
03400
03410
03420
03430
03440
03450
03460
03470
03480
03490
03500
0)510
03520
03530
03540
03550
03560
0.3570
03580
03590
03600
03610
03620
03630
03640
03650
03660
03670
03680
03690
03700
03710
03720
03730
03740
03750
03760
03710
03780
03790
03800
03810
03820
03830
03840
03850
03860

OUP ROUTINE

-+48

SPLCYl.•• 6

TF
NEWOIM,SPLCOR, Il,CYUNOER OESIREO
TF
lISTER,SPLCOR,ll,
TF
SPlCOR, SPlCYl
TF
SPLC Yl, ADRSPl
SF
COMMON
B
WHYNOT
DORG .-3
liNKAGE TO RETURN TO PROPER SUBROUTINE AFTER SAVING CORE
GH8AK CM
NOMMON, 01,10
8E
GETRTR

PAGE
04654
04666
04678

11
25
32

04297
04321
04321

000-1
04297
00000

04690
04102
04714
04726
04738
04750
04762
04774
04786
04198
04810
04822
04834
04846
04854
04854
04866
010878
04890
04898
04898
04910
04922
04934
04942
04942
04954
04966
04978
04986
010986
04998
05009
05010
05022
05034
05046
05058
05066
05066
05078
05090
05102
05114
05126
05138
05150
05162
05170

26
26
46
14
46
14
46
14
46
25
16
49
49

00094
00094
02772
04810
00094
04854
00094
04898
000910
04942
02646
00565
00566
04470

05009
000-00094
01200
OOO-J
01200
OOO-K
01200
OOO-l
01200
04321
-4845
-2637
00000

25
16
49
49

02669
00565
00566
04470

04321
-4889
-2660
00000

25
16
49
49

02692
00565
00566
04470

04321
-4933
-2683
00000

25
16
49
49

02715
00565
00566
04470

04321
-4977
-2706
00000

26
32

03187
0452-

04520
00000

11
14
46
33
49

03187
0318P
05066
045204574

000-3
OPOOO
01200
00000
00000

26
12
32
26
26
26
26
32
49

03151
03187
03l8P
02963
02764
03151
03181
02853
03388

03187
000-3
00000
0315J
0315J
03187
04520
00000
00000

14
46

02855
02928

000-1
01200

05170
05182

I~

o

1620 MONITOR 11
03870
03880
03890
03900
03910
03920
03930
039100
03950
03960
03970
0)980
03990
04000
04010
0"020
0"030
0"°40
010050
04060
04070
04080
04090
04100
04110
04120
04130
041100
04150
04160
04170
04180
04190
04200
04210
04220
04230
042100
04250
04260
0"270
04280
04290
04300
0")10
04)20
04HO
04340
04)50
04360
04310
04380
04)90
04400
04410
04420

0
•

aup ROUTINE

DLoAo, DREPL, DELET

PAGE

CM
NOMMoN,02,I0
BE
GETlTR
CM
NOMMON,OhlO
REMoTR
BE
CM
NOMMON, 010 ,10
BE
INSETR
B
FI.NOTR
DORG '-3
AORSPl OS
,lPSROA+6
PQR TI ON OF THE MOVER SUBROUTINE WHICH MOVES THE DATA
COHPFR TFM JORT.-.23
B
IOPT,KING,7,SAVE THE INFORMATION IN CDRE
CM
CAlC7,140,9,REGUlAR READ
SPCRED
Bl
SM
RDMoVE+5,140,9
SM
WRMoVE+5,I"O,9
WHIPIT TFH IORT,H23
B
IOGT,RDMDDA,7
TFM 10RT,o+2J
B
loPT,WRMDDA,1
SM
CAlC7.I40,9
CM
CALC7,HO,9
BNH SPCRED
SM
WRMOVE+5, 140,9,ADJUST COUNT AND DDA AFTER TRANSFER ING 140 Sf
SM
RDMoVE+' ,1"0,9
B
WHIPIT
DORG '-3
SPCRED TF
RDMoVE+8,CAlC7" TRANSFER LAST PORTION OF PROGRAM
TF
WRMoVf+8 ,CALC 7
S
WRMoYE+S,CALC1
S
RDMoVE+',CALC7
TFM IORT,"23
B
IOGT,RDMDDA,7
TFM 10RT,H23
loPT,WRMDDA,1
B
TFM NRMoVE+8,140,9, RESTORE CONSTANTS TO 140
TFM RoMDYE+8,14D,9
TF
SAVE ADDRESS OF LAST PRDGRAMS ORIGINAL SECTOR A
MPT ,19885"
TF
19885,WRMoVE+5"CoRRECT SECTOR ADDRESS IN DIM ENtRy
TFM loRT,"23
I OPT, DMDDA,1
B
TFM 10RT,"23
IOGT,KING,7
B
B
MARVEL
DORG 0-3
ERR
BNF "68,FoRT"CHECK FOR ERROR 60 IN DLOAD
TFM DIMERR+Z2,7670,8
RCTY
NATV DIMERR
BNF ERRO+24,DUMP
PATCH3
B
DORG 0-3
TFM DIMERR+22,0018,8
B
ERRD
DORG 0-)
.,9000
NINESC DC
ROOD

05194
05206
05218
05230
052"2
05254
05266
052710
04520

110
46
110
46
14
106
"9

02855
03016
02855
03104
02855
034310
03906

05274
05286
05298
05310
05322
053310
05346
05358
05370
05382
05394
05"06
05418
05UO
051042
05454
05"62
051062
05'>74
05U6
05498
05510
05522
05534
05546
05558
05510
05582
0559"
05606
05618
05630
05642
05654
05662
05662
05674
05686
05698
05710
05122
05730
057)0
05142
05150
05153

16
109
110
47
12
12
16
109
16
"9
12
110
47
12
12
49

00565
00532
02848
05462
02604
02627
00565
00566
00565
00532
02848
028"8
05462
02627
026010
053106

-5297
-2458
00J40
01300
OOJ40
00J40
-5369
-2591
-5393
-2614
00J40
00J40
01100
DOJ40
00J40
00000

26
26
22
16
49
16
49
16
16
26
26
16
109
16
49
49

02607
02630
02627
02604
00565
00566
00565
00532
02630
02601
08636
19885
00565
00532
00565
00566
10884

02848
02848
02848
02848
-5533
-2591
-5557
-2614
OOJIoO
00J40
19885
02627
-5629
-2568
-5653
-2458
00000

44
16
34
39
44
49

057)0
02507
00000
02485
02548
14956

13114
OP610
00102
00100
13426
00000

16
49

02501
02524

0-078
00000

10

000-2
01200
000-3
01200
000-10
01200
00000

0

22

4

1'~(

1620 MoN ITOR 11

DUP ROUTINE

DLoAD, DREPL, DElET

PAGE

04430 CoNST3 DC
6,0
-00000
04440 SPLFL TFM loRT,H23" LINKAGE FOR THRolllNG SACRED SIX TO DISK WHEN LOA
B
I OPT, SPLR2,1
0"450
OH60
TRA

05759

6

04410 SPLRI

DSC
1

1,1

05760
05712
05784
05196
05808

04480

DC

5,18298

05813

5

04490

DC
-33
DC

3,033

05816

)

5,02458
-2458
DSC I, '

05821

DSC
22
DSA

2,22

05823

SPlRl

05829

5
-5808
1

16
49
36
49

00565
00532
00000
00000
1

-5783
-5823
00500
00000

J8298
04500
04510
04520 SPLR2
01,530

05822

04540

DSC

I, '

05829
05830

04550

TCD

SPLFL

05760

04560
04570 MQVFl
04580
0"590

DORG 8500
TFM IORT,·.21"
LINKAGE FOR THRONING MOVER TO DISK WHEN LOADING
I OPT, MoVFll, 7
B
TRA

04600 MoYFll OSC
22
04610
DSA

,

01,620

DSC

2,22

08500
08500
08512
085210
08536
085"8

MoVFL2

08554

I, '

085510
08555

04630 MOVFL2 OSC 1,1
1
04640
5,18331
DC
J8331
04650
3,038
DC
-38
010660
5,08600
DC
-860D
04670
DSC I, •

2

16
109
36
109

00565
00532
00000
00000
2

-8523
-8548
00500
00000
X

-8556
I

08556
08561
08564
08569
08570

......

04680
04690
04700
THE MOVER SUBROUTINE FOR PREPARING A PLACE TO PUT A PROGRAM GIVE
04710
A STARTING SecTOR ADDRESS -MOVESA- AND A SECTOR COUNT -MOYESC04720
04730
04740
DORG 8600
04150 SFSUCE SF
SUCESS
04760
TF
MoVESC. SFSUCE+ll"
RESTORE MOVE SECTOR COUNT.

7\l\.

08600
08600
08612

32
26

13118
02865

00000
08611

II

1620 MONITOR 11

oUP ROUTINE

04860

DC

PAGE

oLOlo. OREPL. OELET

04170 EXITMR B
-",TO BE TF~ BY CALLING PROGRAM
04180
ODRG --3
04790 MPT
DC
5.0
-OOUO
04800 PRE7
TFM IORT t -+23
04810
IOGT,NOMA.7, LINKAGE FOR BRINGING IN THE SECOND HALF OF MOV
B
04820
PRE7A
B
04B30
OORG --3
04840 NOMA
OSC 2.22
22
04850
OSA NOMB

08624
08632
08636

49

08624

00000

08638
08650
08662
08670
08670

16
49
49

00565
00566
09000

-8661
-8670
00000

04870 NOMB

08678

04880

08683

OSC 1,1
1
DC
5.17J06
J7106
04890
DC
3.022
-22
04900
6,09000'
DC
-9000'
04910 TRWCAR DSC 2.22, t
DOl FOR MOVING DATA
22
04920
OSA MOVCAR
04930

DC

-8678
1

5

08686
6

08692
08693

5 X

08699

-8701
1

08699
08700

1 ••

08701

04940 MOVCAR OSC 1.0
0
04950
DC
5.0
-0000
04960
3.060
DC
-60
04970
5.13776
DC
J3776
04980
DC
1.'

2,22, •

5

08706
08709
08714
08715
08716

DOA FOR MOVING DATA

04990 TRW8US DSC
22
05000
OSA

MOVBUS

08722

05010

1.'

08722
08723

DC

2

08676
OB676
08677

1 ••

12

-8724
1

08724

05020 MOVBUS OSC 1.0
0
05030
DC
5.0
-0000
05040
3.060
DC
-60
05050
5.13776
DC
J3771l1
05060
DC

08729
08732
5

08737

I.'

08738

tljl},

1620 MON ITOR II
05070 TRWA
05080
05090

OSC
22
OSA
DC

2.22,.

OUP ROUTINE

OLOlO, OREPL. OELET

OOA FOR MOV I NGOATA

08145

5

I, '

08145
08746

-87lt7
1

08747
08752

05160
05170

DC

2.22,.

5

08755
08760

I.'

OSC
22
OSA

2

LOPElA

05100 LOPEZA OSC 1,0
0
05110
5,0
DC
-0000
05120
DC
3,060
-60
05130
DC
5,13776
J3776
05140
DC
05150 UWB

PAGE
08739

08761
DOA FOR MOVING DATA

08762

LOPElB

08768

I, •

08768
08769

05180 LOPEl8 OSC 1,0
0
05190
DC
5,0
-0008
05200
3,060·
DC
-60
05210
5,13776
DC
J3776
05220
DC
1,'

08770

,796
05230 MONITR OS
05240 KEY5
OSC 1,0
0
05250 CALC6 DC
5,0
-00011
05260 CAlC5 DC
6,0
-00000
05270 ZEROES DC
10,0
-000000000
05280 CURREN DC
3.0
-00
05290 LIMIT DC
3.099
-99
05300 KEY!
DSC 1.0
0
05310 OIMHLD DC
9.0
-00000000
05320 DIMENT OS
.19880. CONTROL FIELD FOR NOWOIM
05330 MOVER SF
MOVESA-5
05340
CF
MOVESA-4
05350
TF
SFSUCE+11.MOVeSC ••
STORE MOVE SECTOR COUNT.
05360
TF
FINO POINr ) N LI ST WHERE PROGRAM ) 5 TO BEG)
lISTES.MOVESA ••

00796
08785

2
5 X
-8770
1

08775
08778
08783
08784

ISO

0
1

·08790
08796

6

08806

10

08809
08812
08813
08822

9

19880
08824
08836
088.48
08860

0
02857
02B58
08611
02790

32

33
26
·26

00000
00000
02865
02862

13

1620 MONITOR 11
05370
05380
05390
05400
05410
05420
05430
05440
05450
05460
05410
05480
05490
05500
05510
05520
05530
05540
05550
05560
05510
05580
05590
05600
05610
05620
056]0
05640
05650
05660
05670
05680
05690
05700
05110
05720
05130
05140
05150
05160
05710
05180
05790
05800
05810
05820
05830
05840
05850
05860
05810
05880
05890
05900
05910
05920

TFM
8
.DORG
CM
BE
TF
BT
SF
TF

5

~OUTINE

DLOAD, DREPL, DEler

0-3
lISTER-3,09,IOll,LOOK FOR BLANK ENTRY
MIDNIT
NEItDIH.LJSTER" .MOVESA IS IN THE MIDDLE OF A PROGRAM
DIMHER,DI""ER-l
MOYESA-4
CONST5,19885
CDNST5,"OVESA
MOYESA-4
CONST5-2
BAVAIL,CONST5" ADJUST 8LANK AVAIL TO MINUS TO ALLON FOR DIM
FILTST,19899..
IS THE PROGRAM FILE PROTECTED
SUCESS .. ,ERROR EXIT
MDVESt,SFSUCE+lI"
RESTORE MOVE SECTOR COUNT.
EXIT"R

CF
SF
TF
BNF
MSTAKE CF
TF
B
DDRG 0-3
DSEVEN SF
1I STES-4
S
FOUND, LI STES
SF
FDUND-2
TF
CONST2, FOUND
ACTAJ C
CONST2,HOVESC" ENOUGH SECTORS AVAILABLE
BNL ACTAG
ACUH BT
GETR,GETR-I" LOOK FOR MORE ROI1M
lISTER-3,l,101l
C"
BE
ACTAH
CM
LIS TER-3,9.101l
SNE ACUK
SF
LISTER-2
A
CONSTZ.LISTER
B
ACTAJ
DDRG 0-3
ACUK TF
lISTES."OVESA" REPOSITION LISTER TO MOVESA
TFM RLGONE+30. >+20
B
FINO
DDRG 0-3
B
BLANK T. "
PROGRAMS MUS T BE MOVED
DDRG .-3
ACTAG TF
lISTES.MOVESA" REPOSITION FIND to MOVESA
TFM RLGONE+30.>+20
FINO
B
DDRG .-3
BT
GETR.GETR-l
lISTER-2
S~
lISTER,200.9
TF
CONSTl.99
BT
GETl,GETL-l
LISTER-2
SF
B
ACTAA
DDRG .-3
MIDNIT SF
MOVESA-4".
MOVESA I S AT AN AREA COVERED BY BLANK SEt TORS
SF
lISTER-2
GETR,GETR-I
BT
CM
LISTER-3.1,101l
BE
OSEVEN

""

1620 MONITOR 11
05930
05940
05950
05960
05910
05980
05990
06000
06010
06020
06030
06040
06050
06060
06010
06080
06090
06100
06110
06120
06130
06140
06150
06160
06110
06180
06190
06200
06210
06220
06230
06240
06250
06260
06210
06280
06290
06300
06310
06320
. 06330
06340
06350
06360
06310
06380
06390
06400
06410
06420
06430
06440
06450
06460
06410
06480

DUP

RLGONE>30,u20
FINO

OUP ROUTINE

PAGE
08812
08884
08892
08892
08904
08916
08928
08940
08952
08964
08976
08988
09000
09012
09024
09036
09048
09056
09056
09068
09080
09092
09104
09116
09128
09140
09152
09164
09116
09188
09200
09212
09220
09220
09232
09244
09252
09252
09260
09260
09212
09284
09292
09292
09304
09316
09328
09340
09352
09364
09312
09312
09384
09396
09408
09420

16
49

04284
03838

14
46
26
21
32
26
22
33
32
26
44
33
26
49

02761
09372
02963
03612
02858
02825
02825
02858
02823
02154
10204
13118
02865
08624

32
22
26
24
46
27
14
46
14
H
32
21
49

02186
03"45
0]443
02801
02801
09260
02812
02161
09128
02161
0922D
02162
02807
0910"

00000
03445
02865
01300
02871
OOO-P
01200
OOO-R
01200
00000
02764
00000

26
16
49

02190
04284
03838

02862
-9252
00000

10}48

00000

26
16
49

02790
04284
03838

02862
-9292
00000

27
32

02812
02762
02164
02801
02996
02162
09552

02811
00000
OOKOO
00099
02995
00000
00000

02858
02162
02872
02761
09056

00000
00000
02811
OOO-P
01200

12

n

26
27
32

"9
32
32
27

14
46

OLOAD. OREPL, DELEr

TF
NEWDIM.lISTER" POSITION END OF BLANKS FROM THIS DIMS SECTOR
BT
DIMMER. DIMMER-I
TF
CONSTl,19885
ZSEYEN TF
CONST6.MOVESA
TF 'CONSTl.CONSTl
BT
GETl.GETl-I
SF
1I STER-2
A
CONST6.MOVESC
CONST6,CONSTl" IS THERE ENOUGH ROOM TO LOAD THE MOVESC
C
BH
BLANKT
ACUA S
CONSTl,LISTER"ENOUGH ROOM HAS BEEN FOUND N!THOUT MOVING PRO
TF
CONST2,MDVESA
S
CDNST2.CDNSTl
SF
CDNST2-2
TF
>+35,CONST2"
PREPARE THE TRAILING NINES ENTRY
CF
"21
TFM L1STET,9000,8
tM
L1STET,9000.8
BE
"24
8T
I NSERf ,I NSERT-l
NONAME BT
REMDVE.RE"OYE-l
CM
lISTER-3,l.IOll
BME ACTAO
SF
lISTER-2
MM
lISTER,200,9
TFM 95,99010,
TO CDMPENSATE FOR PACK ADDRESSING
TF
CDN513.99
S
99,MDVESA
SF
91
C
99,MOVESC
BNL ACTAC
.to
MOVESA.99
S
MDVESC,99
TF
0+35,99" PREPARE EIGHTS ENTRY OF MOVESC
CF
0+21
TFM lISTET.8999.8
BT
INSERT,INSERT-I
BT
GETR, GETR-I
8
NDNAME
DDRG 0-3
ACT AD TF
NEWOIM.LlSTER"USE 01" ENTRY TO FIND SECTOR AORESS
8T
OIMMER,DIMMER-l
TF
CDNsr3019885
TO
CONSTl-5.19880
CF
CDNSTl-4
SF
CONSTl-5
ACTAC TF
o+35.MDVESC"PREPARE AN EIGHTS ENTRY OF MDVESC
CF
-+21
TFM LISTET.8000.8
BT
INSERT,INSERT-I
TF
CDNST2.MDVESA
A
CONST2, MOVESC
S
CDNSTl.CONST2
SF
CDNSTl-2
TF
o+35.CONsn"PREPARE THE LEAOING NINES ENTRY
CF
-+21

OOO-R
01200

02764
03611
00000
19885
02862
00000
00000

02825
19899
00000 '
08611
00000
00000

02790

PAGE
09432
09444
09456
09468
09480
09492
09504
09516
09528
09540
09552
09564
09576
09588
09600
09612
09624
09636
D9648
09660
D9612
09684
09696
09108
09120
09132
09144
09156
09168
09180
09192
09804
09816
09828
09840
09852
09864
'09816
09B88
09896
09896
D9908
09920
09932
09944
09956
09968
09&80
09'IJ92
10004
10016
10028
10040
10052
10064
10016

26
27
26
26
26
21
32
21
24
46
22
26

22
32
26
33
16
14
46
27
21
14
47
32
13
16
26
22
32
2"
46
21
22
26

33
16
27
21
49
26
21
26
25
33
32
26

33
16
27
26
21
22
32
26
33

14

-8892
00000

02963
03672
02801
02831
05759
02996
02162
02831
02831
10348
02801
02801
02807
02805
09635
09633
02794
02794
09672
03414
03084
02161
09896
02162
02164
00095
05159
00099
00091
00099
09968
02862
02865
09863
09861
02194
03414
02812
09672

00000
OOKOO
000R9
00099
02862
00000
02865
01300
00099
00099
00099
00000
OQ999
03413
02811
00000

02963
03612
05159
05754
05155
05154
10003
10001
02194
03414
02807
02807
05159
05157
10099
10097

02764
03671
19885
19880
00000
00000
02865
00000
00000
03413
02862
02865
02801
00000
05759
00000

02"164
036"11
19885
02862
02801
02995
00000
02865
02801
01100

02764
02862
02801
00000
02807
00000
OROOO
OROOO
01200
03413
03083
OOO-P

01200

15

1620 MONITOR 11
06490
06500
06510
06520
06530
06540
06550
06560
06510
06580
06590
06600
06610
06620
06630
06640
06650
06660
06610
06680
06690
06100
06710
06120
06130
06140
06150
06160
06170
06180
06790
06800
06810
06820
06830
06840
06850
06860
06810
06880
06890
06900
06910
06920
06930
06940
06950
06960
06970
06980
06990
01000
01010
01020

REMS I L

FIlTST
GORT

BLANKT

BAVCOM

BAVADD

MOVNOW

TFM
CM
BE
8T
CF
8T
CM
8NE
8T
B
DORG
BNG
B
DORG
BT
CM
BE
CM
BE
TF
BT
BNG
B
DORG
BNF
8
DORG
SF
TF
S
CF
SF
TF
CF
C
8NH
8
DORG
SF
A
B
DORG
S
CM
BE
SF
TF
CF
TFM
8T
TFM
S
TOM
DC

,

01030 REM8LK 8T

DUP ROUTINE

DlOAD, OREPL, DELET

PAGE

lISTET,9000,8
LISTET.9000,8

16
14
46
21
33
21
14
41
27
49

0219t
02794
10116
01414
02858
02996
02161
10148
02812
08600

OROOO
OROOO
01200
03413
00000
02995
OOO-Q
01200
02871
00000

55
49

10224
09024

19899
00000

27
110
46
14
46
26
27
55
49

02872
02161
10224
02161
10464
02963
03672
10328
10216

02871
OOO-P
01200
OOO-R
01200
02164
03671
19899
00000

104
49

10224
09024

19899
00000

32
26
22
33
32
26
24
41
109

02181
02825
03445
02181
03443
02154
03443
02865
10496
10224

00000
03445
02190
00000
00000
031045
00000
02754
01100
00000

32
21
109

02162
02154
10432

00000
02164
00000

22
14
106
32
26

02154
02754
10628
02162
10519
10511
02194
03414
02621
02621
02195
I

02865
00-00
01200
00000
02754
00000
OROOO
03413
-0000
02154
00000
03083

1,',·

10088
10100
10112
10124
10136
10148
10160
10112
10184
10196
10204
10204
10216
10224
10224
10236
10248
10260
10212
10284
10296
10308
10320
10328
10328
10HO
10348
103108
10360
10312
10384
10396
101008
10420
10432
104410
10456
10464
10464
10416
10488
10496
10496
10508
10520
10532
10544
10556
10568
10580
10592
10604
10616
10621

REMOVE,REMOVE-I. ,REMOVE LAST NINES ENTRY IF IT IS A PERFECT

10628

21

03084

10640
10652
106M
10616
10688
10100
10108
10108
10120
10132
10144
10156
10168
10180
10792
10800
10800
10812
10824
10836
10848
10860
10812
10884
10896
10908
10920
10932
10944
10956
10964
10964
10916
109B8
11000
11012
110210
·11036
11048
11060
11012
110810
H092
08500

14
106
26
21
21
49

02161
10108
02963
03612
02627
10812

OOO-P
01200
02164
03611
19885
00000

32

33
109

02763
02764
02621
02622
02623
02623
02622
10812

00000
OOKOO
00099
00000
04291
000-1
00000
00000

21
105
21
26
21
32
16
21
210
101
14
106
21
49

03084
10836
02996
02825
02825
02821
02963
02996
02621
08638
02161
10964
03084
10884

03083
02795
02995
02862
02865
00000
OR999
02"95
02825
01100
000-0
01100
03083
00000

24
46
26
21
26
26
25
21
26
25
109

02764
10944
02963
03612
02848
02719
02599
02719
02604
02622
05274

02963
01200
02164
03611
19888
19885
19B80
02848
02719
02599
00000

21
26
21

02812
02825
02996
02161
09108
02161
09132
02164
09196

02811
02164
02995
OOO-P
01200
OOO-R
01200
02825
01200

-+24
INSERT, INSERT-l
MOVE SA-4", POSIT I ON LISTER FOR EXIT
GETL,GETL-l
I I STER-lr08, 1011
.-24
GETR.GETR-l
SFSUCE
'-3
GORT,19899" CHECK FOR FILE PROTECTION
MSTAKE
'-3
GETR,GETR-l"
SEARCH FOR MORE BLANK SECTORS
I I STER-3.01.1011. CYl REPRESENTED
GORT
L1STER-3.09.1011. BLANKS
BAVAOO
NEWDI M. LI STER
DIMMER. DIMMER-l
_+20,19899, • FILE PROTECTED PROGRAM
F IL TST+12
'-3
GOR T .19899. , IMMOVABLE PROGRAM
MSTAKE
'-3
LI STES-3
CONST5.FOUND
FOUNO.lISTES
LISTES-3
FOUND-2
BAVAIL.FOUNO
FOUND-2
MOVESC.BAVAll .. IS HOL E BIG ENOUGH
MOVNOW
GORT
'-3
LlSTER-2." ADD IN COUNT OF 8LANK SECTORS FOUND
SAVAlL.LlSTER
8AVCOM
'-3
SAVAIl.MOVESC"
ADJUST LAST NINES ENTRY FOR FINal OUTPUT
BAVAIL,OOO.9,
REM8LK
lISTER-2
"35.BAVAIl

.+21
I I STET. 9000,8
INSERT. INSERT-I
WRMOVE+5" ,ZERO FIELD
WRMOVE+5.8AVAIL
HEX ••• RECORD MARK

33

33
16
21
16
22
15

16

Ua.
1620 MONITOR
07040
01050
01060
07010
01080
01090
01100
01110
01120
01130
011100
01150
01160
01110
01180
01190
01200
01210
01220
01230
07HO
01250
01260
07270
01280
01290
01300
07310
01320
07330
01340
·07350
07360
01310
01380

KSEVEN

RSEVEN
TOPPRO

MARVEL

WASH

01390
01400
01410
01420
01HO
OH40
01450
071060
01410

...

CM
BE
TF
8T
A
8
DORG
SF
MM
A
SF
S
AM
CF
8
DORG
8T
8NR
8T
TF
A
SF
TFM
8T
C
8NH
CM
8H
BT
8
DORG
C
8E
TF
BT
TF
TF
TO
A
TF
TO
8
OORG
TCO

11

DUP ROUTINE

DLoAD. DREPL, DELET

lISTER-3,01.IOll
KSEVEN
NEWDI M.LISTER" SET MOVER DDA FROM DIM ENTRY
01 MMER. DIMMER-l
WRMOVE+5.19885
TOPPRO
.-3
lISTER-I".SET MOVER DDA FROM CYLINDER ENTRY
lISTER,200.9
WRMOVE+5,99
WRMOVE
WRMOVE+I.NEVER
WRMOVE+I.01.I0
WRMOVE
TOP PRO
.-3
REMOVE,REMOVE-l
*+24,HEX
GETL, GETl-I, .ADJUST THE LISTER FOR NO EXACT FIT
CONST5,MOVESA
CONST5,MOVESC
CONSTS-4."SECTOR ADORES OF LAST SEC TOR TO 8E MOVED TOWARD
NEWDI M. 9999. 8
GETL.GETl-l
WRMOVE+5.CoNST5"HAS THE LAST PROGRAM JUST BEEN MOVED
PREl
lISTER-3.6.101I.FLAGGED ABOVE SIX
.+32" ,80TH NUMBERS ARE MINUS
REMOVE. REMOVE-I
MARVEL
.-3
LISTER,NEWOIM
WASH
NEWOIM.lISTER. ,BEGIN-MOVE PROGRAMS DOWN
DIMMER.DIMMER-I
CAlC7,19888, ,SECTOR COUNT
CAlC3.19885"INIT READ AND WRITE
ROMOVE.19880
CALC3.CALC7
ROMOVE+5,CAlC3
WRMOVE.RDMOVE
COMPFR
·-3
MOVFL

01480
DORG 09000
OH90
ROUTINE TO COMPLETE THE REMOVAL OF NON-PROGRAM ENTRieS
07500 PRE1A BT
GETR.GETR-I
01510
TF
tONST5.lI STER
01520 LOOPSY BT
SEARCH TOWARD THE LEFT FOR NEW 0 1M NUMBER
GETl.GETl-I"
01530
CM
LISTER-3.1,101l
015100
BE
SEVE NT
01550
CM
LI STER-3. 9, 1011
07560
BE
NINENT
01510
C
lISTER.CONST5
07580
8NE CHOICE

r5t,

PAGE

13
21
32
22

II

09000
09000
09012
09024
09036
090108
09060
09012
09084
09096

14
46
14
46
24
41

11

1620 MON !TOR 11
07590
07600
07610
07620
07630
07640
07650
07660
07670
07680
07690
07700
07710
07720
07130
07740
07750
07760
07770
07780
07790
07800
07810
07820
07830
D78~0

07850
07860
07870
01880
07890
07900
07910
07920
07930
019"0
07950
07960
07970
07980
07990
08000
08010
08020
08030
080"0
08050
08060
08070
08080
08090
08100
08110
08120
OB130

DUP ROUTINE

OlOAD. OREPl. OELET

SEVENT CM
LISTER.7000.a.CHECK FOR SPECIAL CASE OF CYLINDER ZERO
BE
SPECAS
NINENT BT
REMOVE. REMOVE-I
B
LOOPSY
DORG '-3
SPECAS TFM
19885, "
BT
REMOVE. REMOVE-I
TFM MAMY+ 1,41,10 ,NOP THE GETR IN THIS SPECIAL CASE
B
MEAT
DORG . - ]
CHOICE TF
NEWDIM.LlSTER
BT
OIMMER,DfMMER-l
LISTER,OOOI,e, CHECK FOR WORK REPRESENTED BY CYLINDER COUNT
CM
BNE ... 48
MM
19888,200,9
95
SF
A
19885.99
A
19885.19888
SET-UP FAKSEV AND RACKET
MEAT
MM
MOVESA-4.05.10
TOM MOVESA-4,l,ll
.+24,99
80
TOM MOVESA-400.11
TO
19881.HOVESA-4
TFM FAKSEV.7000.8
SF
19883
DELTA DC
5,00200,-0200
TFM RACKET .. 8
TF
RACKE T .19885 •• ESTA8Ll SH THE NUMBER OF SECTORS USED ON THIS C
CF
19883
TOM RACKET-2.1
MM
19883.05.10
BO
• ... 24,99
TOM RACKET-2.0
FAKSEV.98
TO
FAKSEV-l.97
TO
DELTA.RACKET ..
INIT TO 200 MI NUS RACKET
S
MAMY
BT
GETR. GETR-I ..
SHIFT OFF OF AN tHOR PROGRAM
TF
CONST5.HOVESA
CONST5.19885
S
CM
RACKET .0000.8
BNE CONCUO
TF
LISTET,FAkSEV"
REPLACE THE CYLINDER MARKER
BT
INSERT.INSERT-I
CM
tONST5.,1,
EIGHTS
BE
OELNT5 C
DELTA.CONST5 ••
IS THERE ENOUGH ROOM FOR REMAINING NINES ENT
BL
TAC
BH
TIC
SF
CONST5-2 ...
PERFECT FIT. INSERT THE NINES ENTRY
TF
. .n.CONST5
CF
-+21
TFM LISTET.9000.8
BT
INSERT. INSERT-l
AM
FAKSEV.Ol.IO

PAGE
09108
09120
09132
09144
0'H52
09152
09164
09176
09188
09196
09196
09208
09220
09132
09244
09256
09268
09280
09292
09304
09316
09328
09340
0935Z
09364
09375
09376
09388
09400
09412
09424
09436
09448
09,,60
09,,72
09484
09"96
09508
09520
09532
09544
09556
09568
09580
09592
09604
09616
09628
09640
09652
09664
09676
09688
09700

I~

0902~

OPOOO
01200
03083
00000

16
27
16
49

19885
03084
09497
09292

-0000
0308]
OOOMI
00000

26
27
14
47
13
12
21
ZI

OZ963
03672
02764
09280
19888
00095
19885
19885

02764
03671
0-001
OIZOO
OOKOO
00000
00099
19BBB

13
15

02858
02858
09340
02858
19881
02852
19883
5

000-5
OOOOJ
00099
0000OZ8.58
OPOOO
00000

02841
02841
19883
02839
19883
09460
02839
02852
02851
09375
02872
02825
02825
02841
09952
02794
Ollt14
02825
09984
09315
09812
0914"
02823
09687
09685
02794
OHI4
02852

0-000
19B85
00000
00001
000-5
00099
00000
00098
00097
02841
02871
02862
19885
0-000
01200
02852
03413
-0000
01200
02825
01300
01100
00000
02825
00000
OROOO
03413
000-1

~6

27
H

43
15
25
16
32
16
26

33
15

13
43
15
25
25
22
27

26
22
1~

47
26
27
I"
46
24
47
~6

32
26
33
16
27
11

02764
09152
03084

18

7~S
1620 MONITOR 11
08HO
08150
08160
08170
08180
08190
08200
08210
08220
08230
082"0
08250
08260
08270
08280
08290
08300
08JIO
08320
08330
08340
08350
08160
08370
08380
08390
08"00
08410
08"20
08430
08440
08"50
08460
08410
08"80
08490
08500
08510
08520
08530
08540
08550
08560
08570
08580
08590
08600
08610
08620
08630
086~0

08650
08660
08670
08680
08690

Tf

lISTET,FAKSEV"

DUP ROUTINE

DLOAD. DREPL. DELET

RESTORE THE CYLINDER MARKER

BT
INSERTdNSERT-I
B
EIGHTS
DORG '-3
r It
SF
CONST5-Z., t
INSERT THE NINES ENTRY
TF
·"15,CONST5
CF
-+21
TFM lISTET.9000.8
BT
INSERT. INSERT-l
B
EIGHTS
DORG ·-3
TAC
SF
DELTA-2 ..
FILL THE REST OF THE CYLINDER WITH NINES ENTRY
TF
·+35.0ElTA
CF
-+21
TFM LISTET.9000,8
CF
DELfA-2
BT
INSERT. INSERT-I
S
CONST5.0EL TA
AM
FAKSEV.OI.IO
TF
lISTET.FAKSEV ..
RESTORE THE CYLINDER MARKER
BT
INSERT. INSERT-I
TFM DELTA.00200.7.
B
DElNT5
DORG '-3
CONCUO CM
CONST5.00000.7.
SECTOR ADDRES FITS ON END OF PREVIOUS PROGR
BE
EIGHTS
B
DELNT5
DORG '-3
EIGHTS TF
.+35,MOYESC ••
INSERT AN EIGHTS ENTRY FOR MOVESt
CF
-+21
TFM L1STET,8000.8
8T
INSERT .INSERT-I
BT
GElL. GETL-I
SF
MOVESA-3
TF
RACKET .MOVESA
CF
MOVESA-3
SM
RACKET. 200.9
BNF ·-12.RACKET
AM
RAtKET.200.9
BT
GETL.GETL-I
ROUTINE TO RESTORE THE SPL TO I TS PROPER FORM
ALLRIT BT
GETR.GETR-l,. SHIFT TO PICK UP NEXT ENTRY TO ANALYZE
CM
L1STER-3.7.IOll
BE
BEAUTY
CM
LlSTER-3,9.IOll
BE
ADDRAC
CM
L1STER-lo8.IOll
BE
AOORAC
TF
NEWDIM,LlSTER"
BRING IN NEW DIM ENTRY TO FINO LENGTH
BT
DIMMER.OIMMER-I
SF
FAKSEV-I
MM
FAKSEV,200,9
SF
9~
S
95.NEVER
AM
95,01,10
CF
FAKSEV-I

75(;

PAGE
09712
09724
09736
0.r44

26
27

09744
09756
09768
09780
09792
09804
09812
09812
09824
09836
098"8
09860
09812
09884
09896
09908
09920
09932
099410
09952
09952
09964
09976
09984
09984
09996
10008
10020
10032
10044
10056
10068
10080
10092
1010~

10116
10128

~q

02794
03414
OQ984

noooo

32
26
33
16
27
49

02823
09791
09789
02194
01414
09984

00000
02825
00000
OROOO
034l.3
00000

32
26
16
33
27
22
11
26
27
16
49

09373
09859
09857
02794
09373
03414
02825
02852
0279/0
03414
09375
09604

00000
09375
00000
OROOO
00000
03413
09375
000-1
02852
03413
-0200
00000

14
46
"9

02825
0998"
09604

-0000
01200
00000

26
33
16
27
21
32
26
33
12
44
11
27

10019
10017
02794
03414
02996
02859
02841
02859
028itl
02841
02996

02865
00000
OQOOO
0)413
02995
00000
02862
00000
OOKOO
028"1
OOKOO
02995

27

02872
02761
10592
02761
10656
02761
10656
02963
03672
02851
02852
00094
00095
00095
02851

02871
OOO-P
01200
OOO-R
01200
OOO-Q
01200
02764
03671
00000
OOKOO
00000
04297
000-1
00000

33

101~0

lit

10152
10164
10176
10188
10200
10212
10224
10236
10248
10260
10272
10284
10296

46
II,
~6

14
"6
26
21
32

13
32
22

11
33

looeo

OlR"52
03413

19

1620 MON I TOR II
08700
08710
08720

C
BNL
S
SF
08730
A
087100
08750
A
08760 NUISY CM
08770
BE
08780
BNH
08790
CM
08800
BNH
08810
TF
08820
BT
AM
08830
08840
TF
08850
8T
TF
08860
08870
8T
08880 RAKES SM
08890
C
08900
BE
08910
BT
08920
B
OORG
OB930
08940
BT
08950 BEAUTY 8T
08960
tM
08'110
BE
08980
B
089'10
OORG
09000
BT
09010
B
09020
OORG
09030 AOORAt SF
09040
A
09050
tF
09060
B
09010
OORG
09080 EZEST AM
09090
TF
09100
BT
BT
09110
09120
B
OORG
09UO
09140 TELAST SF
09150
S
CF
09160
TFM
09170
09180
5
09190
SF
5
09200
TF
09210
09220
TF
CF
09230
09240
TFM
09250
8T

OUP ROUTINE

OlOAO, OREPl, OElET

19885,99, ,OOl:S THIS PROGRAM START ON A CYliNDER PREVIOUS TO
• .. lt8

19885,99
19881
19888,19885
RACKET ,19888
RACKET,200,'1, HAVE 200 SECTORS BEEN ACtOUNTEO FOR THIS CYLI
EZEST
AURlT
LlSTER-3,8,1011
TELAST
STEAl ,LISTER
GETR,GETR-I
FAKSEV,lolO
LI STET, FAKSEV .. RESTORE SEVENS MARKER
INSERT ,INSERT-I
LISTET,STEAL .. REPEAT THE DIM NUMBER
I NSER T,I NSERT-l
RACKET,200,9,
LI STER, FAKSEV
-+32

GETL,GETL-I
NOISY
'-3
REMOVE,REMOVE-l
GETL,GETl-l"
POSITION LISTER FOR EXIT
LlSTER-3,08,IOll
-.20
BEAUTY
'-3
GETR,GETR-I
SFSUtE
'-3
ADD THE BLANK OR EIGHTS SECTOR taUNT TO TOTAL
lISTER-2" ,
RACKET, LI STER
LlSTER-2
NOISY
'-3
FAKSEV,I,IO, INSERT CYL MARItER FOR A PERFECT FIT
LlSTET,FAIlSEV
GETR,GETR-I
INSERT ,INSERT-I
RAKES
'-3
LISTER-2
RACKET ,L1 STER" PREPARE THE SIZE OF THE EIGHTS ENTRY
LlSTER-2
CONSTB,200,8
tONSTI.RACKET
CON5T8-2
lISTER,CONST8
5TEAL,LlSTER
'+35,CONST8
-+21
lISTET,8000,8,
INSERT THE EIGHTS ENTRY
REMOVE THE INDICATOR FROM THE LIST
REMOVE,REMOVE-l"

PAGE
10308 24
10]20 46
10332 22
10344 32
10356 21
10368 ·21
10380 14
10392 46
10404 41
10416 14
10428 47
10440 26
10452 21
10464 11
10476 26
10488 27
10500 26
10512 21
10524 12
10536 24
10548 46
10560 21
10572 4'1
10580
10580 21
10592 21
10604 14
10616 46
10628 49
10636
10636 21
10648 49
10656
10656 32
10668 21
106BO 33
10692 49
10100
10700 II
10712 26
10124 27
10136 27
10148 49
10156
10156 32
10168 22
10780 33
10792 16
10804 22
10816 32
10828 22
10840 26
10852 26
10864 33
10876 16
10888 21

19885
10368
19885
1'1883
19888
02841
02841
10100
10128
02761
10756
02845
02812
02852
02194
03414
02194

00099
01]00
00099
00000
19885
19888
OOKOO
01200
01100
OOO-Q
01100
02764
02871
000-1
02852
03413

03414

02841
01164
10580
02996
10380

03413
OOKOO
02852
01200
029'15
00000

03084
029'16
02161
10636
10592

03083
02995
OOO-Q
01200
00000

02812
08600

00000

02162
02841
02762
10380

00000
02764
00000
00000

02852
02194
02812
03414
105H

000-1
02852
02811
03413
00000

02762
02841
02162
02810
02870
02868
02764
02845
10881
10885
02194
03084

00000
0216"
00000
0-200
02841
00000
02870
02764
02870
00000
OQOOO
03083

10900
10912
10924
10936
10948
10960
10972
10984
10996
llO08
11016

Ollt14
02852
02194
0341"
02794
03411t
02996
02841
02838
10380

20

02845

02871

;3;
1620 MONITOR 11
09260
09210
09280
09290
09300
093.10
09320
09330
09]40
09]50
09360
09310
09380 NOMt
09]90
09400
09410 NOMD
09420

DUP ROUTINE

DLDAO, OREPL, DELET

BT
INSERT ,INSERT-I
AM
FAKSEV,lo 10
TF
1I5TET,FAKSEV
BT
I NSERT ,INSERT-I"
I NSERT THE SEVENS MARKER
TF
LISTET,STEAL
BT
INSERT,IN5ERT-I"
REPLACE THE REDUCED INOltATOR
BT
GETL,GETL-I
TF
RACKET,LISTET
TOM RACKET-3,O,l1
B
NOISY
ODRG '-3
LINKAGE FOR PLACING THIS LAST PORTION OF MOVER ON DISK
TFM IORT,"23
10PT ,NOMO, 7
8
JRA
OSt
22
DSA

PAGE

2,22

11016
11028
liMO
11052
11064

NOME

11070

27

11
26
27
26
21
27
26
15
49
16
49
36
49

,

09430

DC

I,'

llOn
11072

09480

DSt 1,1
I
DC
5,11106
J7101J
3,022
DC
-22
6,09000'
DC
-9000'
TtD NOMt

09490
09500 DELFL
09510
09520

OORG 5600
TFM IORT,"23
IOPT,OELl,1
B
TRA

09530 OELI

DSC
22
DSA

05600
05600
05612
05624
05636
05648

09450
09460
09410

09540

OSC

09580

OSC 1,1
I
DC
5,182"7
J8247
DC
3,013

09590

-13
DC

09600

-5800
DSC 1,'

09510

09610 •

JI039
JI06"
00500
00000

Jl012
1

11080
11086

6

11016

2,22

09560 DEL2

03413
02995
02794
000000000

11011

OEL2

09550

028105

5 X

11010
09HO NOME

00565
00532
00000
00000
2

03413
000-1
02852
03413

0565"
·0565"
05655

1,'

05656
05661
05664

5,05800

05669
05610

DELETE PROGRAM RDUTI NE

(58

16
49
36
49

00565
00532
00000
00000
2

-5623
-5648
00500
00000

5 X
-5656
1

21

1620 MONITOR 11
09620
09630
09640
09650
09660
09670
09680
09690
09700
09710
09720
09730
09HO
09750
09760
09770
09780
09790
09800
09810
09820
09830
09840
09850
09860
09870
09880
09890
09900
09910
09920
09930
09940
09950
09960
09970
09980
09990
10000
10010
10020
10030
10040
10050
10060
10061
10062

DUP ROUTINE

DLOAD, DREPL, DELET

PAGE

22

•
•

...

DELET

...
DKDEl

loon

10064
10010 •
10080
10090
10100
10110
10120
10130

OORG 5800
SF
DELETE
DETERMINE MAX.NO. OF DIM ENTRIES
TFM MAXDIM,9999,8
TFM NEWOIM,3t8
BT
DIMMER,OIMMER-l
IBNR .+20.MAP
MONCAL
B
OORG ·-3
MAP+S.5,lO
14M
96
SF
99,1,10
514
MAXOIM,99
TF
SF
INPUT+ll
TF
PNAME,INPUT+22
TO
0IMNUM,INPUT>30
TO
0IMNUM-l,INPUT+28
TO
DIMNUM-2,INPUT+26
TO
OIMNUM-3t INPUT+24
SF
DIMNUM-3
CM
0IMNUM,O,8
BE
OKDEL-2"
IS DIM NO. IN RANGE
OIMNUM,MAXOIM
C
8MH -+32
TFM DIMERR+22,0076,8
ERRD
B
OORG 0-3
IS DIM NO. IN USE
TF
NEWDIM,OIMNUM
DIMMER,DIMMER-I
BT
BNR DKDEL,MAP
TFM DIMERR+22,7271,8
B
ERRD
OORG .-3
PNAME, ZER012
C
BE
ERRD-12
BTM EQUIY, . . 12
tM
DIMNUM,O,8
BNE -+32
TFM 0IMERR+22,7270,8
ERRD
B
DORG 0-3
NEWOIM,OIMHUM
TF
8T
DIMMER,DIMMER-l
8NR 0+20,MAP
87
EXIT3
DELETE ENTRY FROM SP LIST
8TM SPLDEL,"12
TF
NEWDIM,DIMNUM
BT
DIMMER,DIMMER-I
TF
fWRIT+5,MAP+5
TD
FWRIT.IIAP
TF
HOLD3,IIAP+8

05800
05800

32

13134

00000

05812
05824
05836
05848
05860
05868
05868
05880
05892
05904
05916
05928
05940
05952
05964
05976
05988
06000
06012

16
16
27
45
49

03849
02963
03672
05868
00796

OR999
0-001
03671
19880
00000

13
32
12
26
32
26
25
25
25
25
32

19888
00096
00099
03849
13624
13229
13190
13189
13188
13187
13187
13190
06124

000-5
00000
000-1
00099
00000
13635
13643
136"1
13639
13637
00000
0-000
01200

06024
06036
06048
06060
06068

24 13190
47 .06068
16 02507
49 02524

038"9
01100
0-07/,
00000

06068
06080
06092
06104
06116
06124
06124
06136
06148
Obl60
06172
06184

26
27
45
16
49

02963
03672
06148
02507
02524

13190
03671
19880
OP271
00000

Obl96

24
46
17
14
lt7
16
49

13229
02512
08606
13190
0620"
02507
0252"

13167
01200
-6160
0-000
01200
OP270
00000

06204
06204
06216
06228
06240

26
21
"5
"9

02963
03672
06248
06936

13190
03671
19880

17
26
21
26
25
26

12090
02963
03612
13212
13267
13193

-6260
13190
03611
19885
19880
19888

06320
06332
0634"
06356
06368
06380
06392
06404
06416
06428
06lt40
06452
06"64
06416
06488
06500
06512
06524
06532
06532
06544
06556
06568
06580
06592
0660"
06616
06624
06624
06636
06648
06660
06672
06684
06696
06708
06720
-06732
06744
06756
06768
06780
06792
06801t
06816
06828
06840
06852
06864
06876
06888
06899

26
16
26
25
32
12
"6
46
11
13
21
26
16
16
16
49
4"
49

13180
06523
13102
13097
19884
19885
06380
06452
19885
19885
06523
06102
13215
13280
00565
00566
06532
06624

19888
J1778
19885
19880
00000
OOOKO
01100
01200
OOOKtJ
00J05
00099
06523
00-20
J1178
-6511
J3451
11778
00000

12
46
11
14
47
16
11
49

13193
06864
06523
06523
06512
06523
13272
06488

000-1
01200
00J05
J9878
01300
J7178
OOOKO
00000

26
25
32
17
16
49
33
12
"6
11
14
47
16
It9

13272
13267
00455
11998
00565
00566
17118
13180
06768
06702
06702
06696
00565
00532
13272
06702
13180
06672
00455
11998
02963
03672
19880
I

13102
13097
00000
-6672
-6695
J3451
00000
000-1
01200
00J05
J9818
01300
-6791
J3451
OOOKO
J7718
00-00
01200
00000
-6864
13190
03611
00000

06900
06912
06924

26
16
49

19899
00565
00532

13174
-6935
-2568

-06248
06260
06272
0628~

06296
06308

I"

46

(S9
1620 MONITOR 11
10140
10150
10160
10170
10180
10190
10200
10210
10220
,10230
10240
10250
10260
10270
10280
10290
10300
10310
10320
10330
10340
10350
10360
10370
10380
10390
10400
10410
10420
10430
10440
10450
10460
10470
10480
10490
10500
10510
10520
10530
10'40
10550
10560
10570
10580
10590
10600
10610
10620
10630
10640
10650
10660
10670
10680

TF
TFM
TF
TD
SF
SM
8"
8l
All

MM

FLAG

tLEAR

CLFP

WROK

FPoK

A
TF
TFM
TFM
TFM
B
BNF
8
DORG
SM
81

PAGE

DLoAO, DREPl, DELET

LDADSt,MAP+8
FLAG+ll, TRACK2
lOADSA,IIAP+5
loADSA-5,MAP
MAP+"
MAP+5,20,10
--12

•• "8
MAP+5,20.10
IIAP+5,105,9
fLAG+ll,99
ClFP+6,FLAG+1I
FWRIT+8,20,9
FWRIT+U, TRAtU

IORT, •• 2]
(OGT,FPDDA,7
e.20, TRACK2 ••
CLEAR
--3
HoLDl,I,IO
FPoK
FLAG+llol05,9
AM
tM
FLAG+ 11, TRACK2+2100
FLAG
Bl
TFM FLAG+ll,TRACK2
AM
FIIRIT+5,20010
8
FlAG-2"
DORG --3
TF
FIIRIT+5,LOADSA
TO
"WRIT ,LOADSA-5
SF
BUTTON
8TII KYMESS ... 12
TFM 10RT, . . n
loGT,FPDDA,7
8
tF
TRAtK2",
SM
LOAoSt. 10 10
81
IIROK
AM
tLFP+6,105,9
tLFP+6, TRAtK2+2100
til
tLFP
8L
TFM (ORT,u23
(OPT,FPDOA,7
8
FIIRIT+5,20,10
All
TFM tLFP+6, TRACK2
tM
LOAOSt,0,9
8ME tLFP-24
tF
BUTTON
8TM KYIIESS."12
TF
NEIIDIM.OIMNUM
DIMMER,DIMMER-l
8T
TOM MAP",
ost 1,',.
TF
TFH
B

DUP ROUrINE

SEARtH FOR FILE PROTEtTlON

CLEAR FILE PROTEtTloN

REMOYE 01 M ENTRY

MAP+19.ZEROI9
IORT,H23
IOPT,DMDDA,l

i(;fj

11
16
14
41
33

17
26
21

15

2l

1620 MONITOR 11
10690 EXIT3
10700
10110
10120

10800 LOAD I

10820

PAGE

OLOAD. OREPL. OELET
06936
06948
06956
05600

SYSCAL.3
B
MONeAL
OORG --3
TCO OELFL

10730
10140
-OlOAO
10750
10760
OORG '0400
10770 LOAOH TFM
IORT, -.23
10780
IOPT.LOA02.7
B
10790
TRA

10810

OUP ROUTINE

TOH

15
109

00475
00796

00003
00000

16
49
36
109

00565
00532
00000
00000
1

-4423
-4463
00500
00000

24

INOEPENOENT ROUTINES
04400
04400
04412
04424
04436
041048

OSC
1.1
I
DC
5.18369
J8369
3,027
DC

0'0453
041056

-21
10830
10840
10850 LOA02
10860
10810
108BO
10890 OLOAO
10900
10910
10920
10930 HXNOSA
109100
10950
10960
10910
10980
10990
11000
11010
11020 DC2
UOlD
11040
11050
11060
11070
11080
11090
11100
11110
11120

010461

DC
5.05800
-5auo
1 ••
DSC
OSC
22
DSA

.

DSC

04462
04463

2.22
LOAOI

04469

1 ••

0101069
04410
05800
05800
05812
058210
05836
05835

OORG 5800
8TH SCRAO.-+l2
TO
MXNOSA-2.MCS+49
SF
MXNOSA-2.399.9
SM
MXNOSA.l00.9
DC
3.399.0LOAD+35
L99
TFH HOL02.0.10
TO
HOLD2.SYSCAL
IS CALL FROH CONTROL CARD
CH
HOL02.4.10
8NE SPS
TFM ATN+ll.INPUT+32
CONVERT CONTROL CARD TO NUMERIC
I
8TH ATNR.-+12
SF
HOLOCo+l0
HOLoeD+l1
SF
SF
HOLDe0+22
SF
HOLDCO+21
80
*.68.NTEST
CM
HOLOCO+26.0.1
8NE
-+24
TFH HOLOCO+26.02402.7
TF
MAPMA .HOLDCD+26
•• 44
87
CM
HOLoeO+26,o,7

5 X
-4448
1

25
32
12

09298
05833
05833
05835
3

-5812
11821
00L99
OOJOO

05848
05860

16
25

13104
11104

000-0
00475

05812
05884
05896

14
47
16

13104
01484
09053

000-4
01200
J3645

05908
05920
05932
05944
05956
05968
05980
05992
06004
06016
06D28
06036

11
32
32
32
32
43
14
41
16
26
49

08606
13056
13063
13068
13013
06036
13072
06016
13072
13150
06012
13072

-5920
00000
00000
00000
00000
13132
-0000
01200
-2402
13012

060108
06060
06072
06084
06096
06108
06120
06132
06144
06156
06168
06180
06188
06188
06200
06212
06224
06236
06248
06260
06212
06284
06296
06308
06320
06332
063"0
063"0
06352
06364
06316
06387

41

17

110

-0000

('iii
1620 MONITOR 11
11130
11140
11150
11160
11170 DC22
11180
11190
11200
11210
11220
11230
11240
11250
11260
11270
11280
11290
11300
11310
11320
11330
11340
11350
11360
11310
11380
11390
11400 OISKN
11UO
11420 HAIN81
11430
11440

8NE
TFM
TF
BO
SF
C
BE
TF
S
8NL
TFM
B
OORG
C
8L
C
BH
TF
S
AM
TF
SF
SF
CF
80
8
OORG
BD
8TH
BD
TOM
OSC

11450
lH60
11410
11480
11'090
11500
11510
11520
11530
11540
11550
11560
11570
11580
11590
11600
11610
11620
11630 SCROK
11640
11650
11660
11610

B
DORG
TD
SF
C
BE
SF
TF
TO
CF
SF
C
BH
TF

A
SM
C
8NL
SF
SF
CF
TF
CM

OUP ROUTINE

DLOAD, DREPL .OELET

.-32
MAPMA.99999,1
MAPEA,HOLDCD+31

OISKN.PHI ••

IF NOT ON DISK GOTO NOOISK

INPUT+39
I NPUT+50. ZEROl2
ERRD-12
HOL06.HOLDCO+l5
HOLD6,HOLDCD+9

.+32
DIMERR+22.1177 .8
ERRO
·-3
HOLDCD+9. SCR 1
SCERR
H.OLOCD+ 15, SCR2
SCERR
LOADSC. HOLoeo+ 15 ..
LOAOSC. HOLDCO+9
LOAOSC,I.l0
SCRACH.HOLDCD+9
LOADSC-2
SCRACH-4
SCRACH-5
MODDK1.RTEST
MAINBI
--3
MODNDI. RTES T

COMPUTE SECTOR COUNT

NOOlSK,·+12
.H2.PTEST
MAPRM.

1,' ,.

t t

NO FILE PROTECTION

•• 20

06388
06396
06396
06408
06"20
06432
06444
06456
06468
06480
OH92
06504
06516
06528
06540
06552
06564
06516
06588
06600
06612
06624
06636

·-3
MAPRM,GPMARK, ,

FILE PROTECTION

INPUT+63
INPUT+14. ZEROl2
NOSAC

MAPRM".

PAGE

IMMOVABLE PROGIUM

LOAOSA. HOlOCO+21
LOAOSA-5.HOLOCD+16
LOAOSA-4
LOADSA-5
LOADS A • SCR2
SCROK
HOLD6. LOAOSA
HOL D6, LOADSC
HOL06.1.10
HOL06.SCRI
SCERR
INPUT+ll
LOAOSA-4
LOAOSA-5
PNAME.INPUT+22
HOlOCD+3,O,8

'(62

46
16
49

06016
13150
13155
06340
13652
13663
02512
13215
13215
06188
02507
02524

01200
R9999
13077
13130
00000
13161
01200
13061
13055
01300
OPI71
00000

24
It1
24
46
26
22
11
26
32
32
33
43
"9

13055
12854
13061
12854
13180
13180
13180
13186
13118
13182
13181
10682
06364

13203
01300
13209
01100
13061
13055
000-1
13055
00000
00000
00000
13131
00000

43
11
B
15

10482
09866
06396
13115
I

13131
-636"
13133
00000

49

06408

00000

25
32
2"
46
32
26
25
33
32
24
46
26
21
12
24
46
32
32
33
26
14

13115
13676
13681
10886
13115
13102
13097
13098
13091
13102
06588
13215
132·15
13215
13215
128510
13624
13098
13097
13229
13049

13116
00000
13161
01200
00000
13061
13062
00000
00000
13209
01100
13102
13180
000-1
13203
01300
00000
00000
00000
13635
0-000

16
26
H
32
24
46
26

22

25

1620 MON ITOR 11
11680
11690
11700
11710
11720
11130
11140
11750
11760
11770
11780
11790
11800
11810
11820
11830
11840
11850
11860
11870
11880
11890
11900
11910
11920
11930
119"0
11950
11960
11970
11980
11990
12000
12010
12020
12030
12040
12050
12060
12010
12080
12090
12100
12110
12120
12130
12140
12150
12160
12110
12180
12190
12200
12210
12220
12230

BE
TF
BT
BNR
B
IlORG
RCTY
TFM
WArY
FINDON TFM
TF
TF
A
CF
AM
TF
TFM
B
TFM
TO
AM
TREC
BNR
B
DORG
AM
C

DUP ROUTINE

o IMERR+22, 7572 ,8
DIMERR
NEWOIM,204,8,
HOLD6, ZE R06
HOLD6,NEIIDIM
HDLD6,HDlD6
HOlD6-3
HDlD6-1.4800,B
D2REAO+5,HOlD6-1
IORT, •• 23
IOGT,DIREAD,l
TREC+ 11, TUCK
·+23,HOLD6
TREC+IO,O.10
.+20,TRACK
CALlMY
.-3
NEWDIM,I,10
NEWDIM,"AXDIM
EXITFl
BH
AM
TREC+Il,20,10
CM
TREC+ 11, TRACK+2100
TREC
Bl
B
F INooN+12
IIORG --3
EXITFl 8NF .+32,FORT
TFM DIMERR+Z2,1611,8
ERR+24
B
IIORG --3
TFM 01 MERR+22 ,0019, 8
ERRD
8
IlORG --3
CALlMY TF
DU'''UM,NEIIDIM
TF
MOVESC, lOADSC
TF
MOVEU,lOADSA
TO
MOVESA-5,lOADSA-5
TFM 10RT,un
IOGT,MOYODA,l
8
TFM EXITMR+6, . . 20
MOVER
8
IIORG --3
8NF ERR,SUCESS
TFM tORT, •• Z)
IOGT.EQUODA.7
8
TFM IORT.-+23
B
IDGT.COM2.7
TF
NEWDIM,DIMNUII
8T
OIMMER,DIMMER-l
8TM SETMAP,.+12

PAGE

OlOAD, DREPl, DElET

FINDON
NEWOIM,-HOLDCO.l
01 MMER,DIMMER-I
-+20,MAP
CAUMY
·-3

FIND FIRST I,INUSED DIM ENTRY

06648
06660
06672
066BIt
06696
06104
06104
06716
06728
06HO
06752
06764
06776
06788
06800
06812
06824
06836
06848
06860
06872
06884
06896
06904
06904
06916
06928
06940
06952
06964
06916
069B4
06984
06996
01008
01016
07016
07028
07036
07036
Dl048
070.0
07072
01084
07096
07108
07120
07128
07128
071~0

07152
0716"
07176
07188
07200
07212

46
26
27
It5
49

06740
02963
OU72
06704
07036

01200
130109
03671
19880
00000

34
16
39
16
26
26
21

00000
02507
02485
02963
13215
13215
13215
13212
13214
13504
00565
00566
06895
06883
06894
0690"
07036

00102
OP572
00100
0-204
13161
02963
13215
00000
OM800
13214
-6847
J3491
J3776
13215
000-0
13776
00000

02963
02963
06984
06895
06895
06884
06752

000-1
03849
01100
OOOKO
J5816
01300
00000

49

07016
02507
05686

13114
OP671
00000

16
49

02507
02524

0-079
00000

26
26
26
25
16
49
16
49

13190
02865
02862
02857
00565
00566
08630
08824

02963
13180
13102
13097
-7107
J324"
-7128
00000

44
16
49
16
49
26
27

05662
00565
00566
00565
00566
02963
03672
10738

13118
-7163
J3312
-1187
J3335
13190
03671
-1224

33
11
26
16
49
16
25
11
45
49
11
24
46

11
14
47
49
44

16

17

26

76 3
1620 MONITOR 11
12240
12250
12260
12270
12280
12290
12300
12310
12320
12330
12340
12350
12360
12370
12380
12390
12400
12410
12420
121t30
12"40
12450
12460
12470
12480
12490
U500
12510
12520
12530
12540
12550
12560
12570
12580
12590
12600
12610
12620
12630
12640
12650
• 12660
12670
12680
12690
12700
12710
12720
12730
12140
12750
12760
12170
12780
12190

OUP ROUTINE

OlOAD, DRE'L. DELET

8TM
8NF
TO
TFM
8
IIR2
OS
LOADRE TFM
SF
BTM
TFM
A
TO
SF
CF
TF
TF
A
SM
TF
TF
8NF
SF

IIRLAST •• +12
MONCAl.DUMP
MCS+23. DUMP
IORT.-+23
IOGT,OMPDIM,7
.2259
ATN+ 1l.INPUT+ 32
LOADRE
ATNR.e+12
INPUTH9,7070.8
1111.2+3,425
IIR2,422
1111.2
IIR2+1
HOlDCD+9,WR2+5,
HOlDCD+15,IIR2+5
HOlDCD+ 15, IIR2+8
HOlOCD+15,1,10
HOlDtD+26,IIR2+13
MAPMA, 1111.2+ 13
DC2.MCS+22
FORT
8
NOREl
IlORG --3
SPS
TFM PHI,O.9,
CM
HOl02,6,10
8NE lOAORE
TDM FREDOA,O
SF
FORT
TF
MAPMA,MCS+12
80
NOREl,MCS+22
TFM SCRACH, 0,7
TOM SCRACH-5,0
MODOkl
8
ODRG .-3
NOREI TF
1 NPUT+22, MCS+.15
TF
MAPEA,MCS+17
TO
DUMP,MCS+23
NEGATE TOM 'TEST ,0"
TF
1 NPUT+n , lER012
TF
HOlDCOHO, lER06, ,
TF
HOLDCO+],MCS+39
BNF •• ZO.LOADRE
8
Ot22
IIORG ·-3
TFM lOAOSC,0,9
TFM DtFStR+8,3,9
TFM OCFSCR+5,0,1
IN III TFM lOOP,4,10
TFM SCANl+6,REAOIN
TF" IORT,·+23
IOGT,DOASCR,l
8
SCAN 1 NOP READIN,O
TF
BNR+ 11, SCANI +6
TFM NODISk-I,MAINBI
8TM lCTEST,·.12

LOAO AFTER COMPILATION

NEGATE FILE PROTeCTION
CYLINDER SPEC.

71i /1

PAGE
07224
07236
0724B
07260
07272
02259
07284
07296
07308
07320
07332
073""
07356
07368
07380
07392
07404
07416
07428
07440
07452
07464
07476
07"B4
07484
07496
07508
07520
07532
075"
07556
07568
07580
07592
07600
07600
01612
07624
07636
076"8
07660
07612
07684
07696
07704
01704
01716
07728
07740
01752
0176"
01116
07188
07800
07812
01824

11842
00796
17801
00565
00566
0
09053
07284
08606
13662
02262
02259
02259
02260
13055
13061
13061
13061
13072
13150
05920
13114
07600

-7236
13426
13426
-7283
J3403

"9

13130
1310"
07284
13467
1311"
13150
07600
13186
13181
10682

00-00
000-6
01200
00000
00000
17790
17800
-0000
00000
00000

26
26
25
15
26
26
26
4"
"9

13635
13155
13426
13133
13687
13086
13049
0770"
06096

17813
17795
17801
00000
13167
13161
17817
0128"
00000

16
16
16
16
16
16
49

13180
13381
13378
13120
0779"
00565
00566
17778
09661
09865
09614

00-00
00-03
-0000
000-4
J7778
-7787
J3483
00000
07194
-6364
-1836

17
4"
25
16

"9

16
32
17
16
21
25
32
33
26
26
21
12
26
26
44
32
49
16
14
ItT
15
32
26

"3

16

15

'11
26
16
17

J3645
00000
-7320
OP070
00425
00422
00000
00000
0226"
02264
02261
000-1
02212
02272
17800
00000
00000

27

1620 MONITOR 11
12800
12810
12820
12830
12840
12850
12860 UPSCA
12870
12880
12890

12980
12990
13000
13010
13020 REPL2
13030
13040
13050
13060 DREPL
13010
13080
13090
13100
13110
13120
13130
13140
13150
13160
13110
13180
13190 ISTO
13200
13210
13220
13230
13240

PAGE

oLOAD. DREPL. oELET
01836
07848
07860
07872
01884
01892
07892
07904
07912
04400

LOOP, 10 10
UPSCA,LOOP
LOADSC, 3, 10
OCFSCR+5.3.10
B
INlll
CORG .-3
AM
SCANl+6.75,'1
SCANI
B
CORG ·-3
TCO LOAoH

12900
.DREPL INDEPENDENT
12910
12920
12930
DORG 4400
IORT,.+23
12940 REPLFL TFM
IOPT.REPL2,7
12950
B
12'160
TRA
12970 REPLI

oUP ROUTINE

SM
BO
AM
AM

04400
04400
04412
04424
04"36
04448

II
49

07794
07788

00-75
00000

16
4'1
36
49

00565
00532
00000
00000
1

-4423
-4463
00500
00000

11

28

04453
041056

04462

2.22

04"63
04469

oSC

1, •

04 .. 69
04470

DORG
TFM
8TM
TD
tM
aHE
SF
TFM
8TM
SF
SF
SF
SF
TF
tM
BE
TF
8T
8NR
TFM

5800
HOL02.0.10
SCRAo •• +12
HoLD2.SYSCAL
HOLD2.4,10

05800
05800
05812
05824
05836
05848
05860
05872
05884
05896
05908
05920
05932
05944
05956
05968
051180
051192
06004
06016

RElO
INPUT+ll
ATN+l1.INPUT+24
tARO TO NUMERlt

ATNR,.+lZ ..
HOLoCo+8
HOlDto+14
HDloto+26
HOLDtD+31
PNAME.IHPUT+22

HOlDCO+l,O.8.

5

04461

REPLI

.

000-1
13120
000-3
000-3
00000

ROUTINES

DSC 1.1
1
5,18400
DC
J840D
3,028
DC
-28
5.05800
DC
-5800
DSC 1 ••
DSC
22
DSA

II
49

13120
07892
13180
13178
07740

12
43

ERROR IF NO TO DIM

ERRD-12
NEilD 1M. HOLDt 0+1
DIMMER.DIMMER-I

-.32,"A'

0IMERR+22.0072.8

2

-4448
1
16

000-0
-5824
00475
000-4
01200
00000
J3631
-5896
00000
00000
00000
00000
13635
0-000
01200
13053
03671
19880
0-012

32
32
32
32
26
14
46
26
27
45
16

13104
09298
131M
13104
08172
13624
09053
08606
13054
13060
13072
13077
13229
13053
02512
02963
03612
06036
02501

06028
06036
06036

49

02524

44

06068

19899

06048
06060
06068
06068
06080

16
49

02507
02524

0-073
00000

26
25

13102
11097

19885
19880

06092
06104
06116
06128
06136
06148

26
43

13155
11634
13076
11582
13150
06180

13081
13132
-0000

06160
06171

15

13115
I

00000

06172
06180

49

061112

00000
13116

17
25
14
41
32
16

17

ut\
1620 MONITOR 11
13250
13260
13270
13280
13290
13300
13310
13320
13330
13340
13350
13360
13370
13380
13390 PAl2
13400
13410
13420
13430

DUP ROUTINE

DLOAD. DREPL. DELEr

8
ERROR IF TO DIN NOT IN USE
ERRO",
DDRG .-3
BNF "]z.NAP+"
ERROR IF TO DIM IS IMMOVA8LE
TFM DIMERR+22,0073,8
8
ERRD
CORG .-3
TF
LOADSA.MAP+5
LOADSA-5.MAP
TD
ENTRY AND CORE ADDRESSES FROM CARD
TF
MAPEA .HOLDCD+35
80
PATtH2+52.NTEST
tM
HOLotD+30,0.7
87
PATtH2
TFM I'IAPMA.99999.7
80
.+32.PTEST
NO FILE PROTECTION
TDM "APR" .. ,
DSC

1.· .•

13440
8
-+20
DDRG .-3
13450
13460
FILE PROTECTION
13470
TO
MAPRM.GPMARK
13480
PROGRAM IS MOVA8LE
13490
BD
NDISK.PHI
13500
IS THERE A FROM DIM
11510
CM
HOLDCD+3.0,8
13520 PATCH4 8NE NTZ
13530
PROGRAM IS IN WORK AREA
13540
SF
INPUT+39
13550
INPUT+50.ZER012
t
13560
ERRD-12
8E
HOLDCO+19.SCR2
13570
C
13580
aH
StERR
13590
C
HOLotD+ U, SCRI
8L
SCERR
13600
13610
COMPUTE SECTOR COUNT
13620
TF
LOADSC.HOLotD+19
13630
S
LOAoSC.HOLDtD+13
13MO
AM
loADSC,I.10
13650
SF
LOAoSC-2
13660
TF
SCRACH, HOLotD+13
13670
8
MAIN82
13680
ODRG .-3
13690 NTZ
TF
NEWDI M, HOLotO+]
11700
8"F "ZO,LOAOER
Nfl-68
13710
B
OORG ·-3
13120
13730
8f
DIMMER,oIMMER-l
13740
ERROR IF FROM DIM NOT IN USE
13750
8NR •• 32,MAP
13760
TF" DIMERR+2Z,0074,8
13170
ERRD
B
DORG .-3
13180
13790
ERROR IF FROM. DIM IS IMMOVABLE

..

PAGE

R9999
1313.3

06180

25

13115

061112

43

06848

13130

06204
06216

14
41

13049
06380

0-000
01200

06228
06240
06252
06264
06276
06288
06300

32
24
46
24
46
24
41

13652
13663
02512
13065
12854
13059
12854

00000
13167
01200
13209
01100
13203
01300

06312
06324
06336
06348
06360
06372
06380
06380
06392
06404
06412
0641Z

26
22
11
32
26
49

13180
13180
13180
13178
13186
06884

13065
13059
000-1
00000
13059
00000

26
44
49

02963
06412
06312

13049
11310
00000

27

03672

03671

45
16
49

06456
02507

19880
0-074
00000

06424
06436
06448
06456

i6(j

'"

411
16
43

00000

025210

29

1620 MON ITOR 11
13800
13810
13820
13830
13840
13850
13860
13810
13880
13890
13900
13910
13920
13930 .MORERO
13940
13950
13960
13970
13980
13990
14000
14010
Ilt020
11t030
Ilt040
14050
llt060
14070
14080
14090
14100
lit 110
14120
14130
141ltO
1ltl'0
14160
14170
14180
14190 NOISK
14200
14210
14220 MA[N82
14230
1lt240
14250
1"260
14270
1"280
lit290
1"300 •
1"310
110320
14330
14340
14350

BNF
TFM
B
OORG
TF
TOM
TFM
TOM
TFM
TF
TO
TFM
CM
BNH
SM
TFM
B
OORG
TF
S
TF
TFM
8
TFM
8
CM
BE
A
A
B
OORG
TOM
TFM
TO"

DUP ROUTINE

OLOAO, OREPL, DELET

.+32,"AP+19
0[MERR+22,0017 ,8
ERRD
·-3
LOAOSC,M_P+8
PUT FROM 01 M PROG. ON SCRATCH
FWROOA,O

FWRIT+5,O.7
FWRIT,O
FWRIT+13,TUCK
FREAO+5,MAP+5
FREAO,MAP
FREAD+ 13, TRACK
M4P+8.040,9

*+44
MAP+8.0,,"0,9

FREAO+8,040,9

.+32
.-3
FREAO+8,MAP+8
MAP+.,MAP+8

FWR 1T+8,FREAO+8
IORT,.+23
IOGT,FREOOA,7

IORT,*+23
IOPT,FNRDDA,7

MAP+8,O.9

.+44
FREAD+5,FREAD+8
FWRIT+5,FREAO+8
"DRERD
·-3
FNRDOA,2
SCRACH,O,7
FREDDA,O
ENTRY AND CORE ADDRESSES FROM FROM OIM MAP
CM
HOLDCD+35, 0,7
BHE PATCHl+12
PATCH 1
B7
80
"DDNOI,RYEST
BlM NOOISK,"12
TFM HOLDCD+3,O,8
BD
"ODDK1,RTEST
TFM IORT,.+23
IOGT,COM2,7
8
CN
HOLDtO+3,O,8
BE
*+36
DELETE FROM DIM FROII S.P.L1ST
TF
OINNUN,HOLDtD+3
8TM SPLDEL,.+12
DELETE TO 01 M FROM SP LIST
TF
01"NUN,HOLDCD+7
BTM SPLDEL,.+12
TF
NOYESA,lOAOSA
NOYESA-5,LOAOSA-5
TO
TF
NOVESC,LOADSC

P_GE
06456
061068
06480
06488
06488

44
16
49

06488 . 19899
02501 0-017
02524 00000

26

13180

19888

06500
06512
06524
06536
06548
06560
06572
06584
06596
06608
06620
06632
066ltO
06640
06652
06664
06676
06688
06700
06712
06724
06736
06748
06160
06772
06780
06780
06792
06B04

15
16
15
16
26
25
16
14
1t7
12
16
49

13459
13212
0261
13280
13287
13282
13295
19888
06640
19888
13290
06661t

00000
-0000
00000
J3176
19885
19880
J3776
00-40
01100
00-40
0D-40
00000

26
22
26
16
49
16
49
14
46
21
21
49

13290
19888
13275
00565
00566
00565
00532
19888
06780
13287
13272
06584

19888
19888
13290
-6699
J3467
-6723
J3459
00-00
01200
13290
13290
00000

15
16
15

13459
13186
13467

00002
-0000
00000

06816
06828
06840
068108
06860
06872
06884
06896
06908
06920
06932

lit
41
49

-0000
01200

16
It3
16
49
lit
46

13081
12810
12798
10482
09866
13049
10682
00565
00566
13049
06968

069lt4
06956

26
17

13190
12090

13049
-6968

06968
06980
06992
07004
07016

26

13190
12090
02862
02851
02865

13053
-6992
13102
13097
13180

07028
07040
07052
07064
07072
07012
07084
07092

16
49
16

00565
00566
08610
08824

-7051
J321t"
-7072
00000

"4
"9

07092
07312

13U8
00000

26
27
26
26
25
16
49

02963
03672
02865
02862
02857
08630
088H

J3053
03611
19888
19885
19880
-7172
00000

26
16
It9
14
It6
14
It6
16
16
49
49

13190
00565
00566
10606
on03
05662
130"9
05662
07103
00565
00566
01092

onOL
-7207
J3335
-7220
J30,,9
01200
0-000
01200
J30lt9
-7303
H244
00000

16
49
16
49

00565
00566
00565
00566

-7335
J3312
-7359
J3335

26
27
26
25
26
16
26
32
12
46
46
11

02963
03672
13272
13267
U193
07587
13139
U138
13139
07456
07528
13139
13139
07587
13275
13280
00565
00566
07596
07688

J3053
03671
19885
19880
19888
J3776
19885
00000
OOOKO
01100
01200
OOOKO
00J05
00099
00-20
J3776
-7575
J3451
13776
00000

43

17

17
26
25
26

30

13131
-6872
0-000
13131
-6919
J3335
0-000
01200

lliZ
1620 MONITOR 11
14360
1"370
14380
1"390
1lt400
14"10
14420
14430
1"440
14450
1"460
1"470
1"480
14"90
14500
1"510
14520
14530
14540
14550
14560
14570
1"580
14590
1"600
14610
14620
14630
14640
14650
1"660
1"670
14680
lIt690
14700
14710
1H20
14730
14740
14750
lit760
14770
1H80
14790
lit800
14810
14820
14830
lIt8,,0
1,,850
H860
Ilt870
1"880
14890
14900
14910

...

TFM
B
TFM
B
OORG
BNF
B
DORG

DUP ROUTINE

OLOAO, DREPL, OELET

10RT, . . U
IOGT,MOVDOA,7
EXITMR+6,"20
"OVER
.-3

·.20,AOK
UPDIM
·-3

INSERT TO AND FROM 01"5 INfO S.P.LIST
NEWDIM,HDLDCO+7,7
D1MMER,DIMMER-l
MOYESC,MAP+8
NOVESA,"AP+5
MOVESA-5,MAP
EXITJI'R+6,·+20
NOVER
·-3
DIMNUM,NOSPAC+l1,11
10RT, . . U
8
IOGf,COM2,7
8TM SPLlNS,.+12
CN
NOSPAC+11,HOLDCO+3
8E
ERR
MOLDtD+3,O,8
CM
8E
ERR
TFM NOSPAC+11,HOLOCO+3
TFM 10RT, . . Z3
IOGT,NOVOOA,7
B
8
NOSPAC
OORG .-3
UPDIM TFM IORT,.+23
B
IOGT,EQUDOA,7
fFM IORl,.+l3
IOGT,CON2,7
8
CLEAR ANY FILE PROTECTION IN TO ANO FRO" 01"
SEARFP TF
NEIIOIM,HOLDCD+7.7
8T
DIMMER,DIMMER-1
TF
FNR 1T+5 ,MAP+5
TO
FWRIT,MAP
TF
HOLD3,"AP+8
TFM TESTFP+ 11, TRACK
TF
HOLD5,MAP+5
SF
HOLD5-1
SM
HOLD5,ZO,10
8H
·-12
.+48
8Z
AM
HDLD5,20,10
HOLD5,l05,9
"M
TESTFP+ll,99
A
TFM FWRIT+8,020,9
TFM FWRIT+13, TRACK
TFM IORT,H23
8
10GT,FPDDA,7
TESTFP 8NF "20, TRACK
8
CLRFP
OORG '+-3
NOSPAC TF
BT
TF
fF
TO
TFM
8
OORG
TF
TFM

...

168

PAGE

07092
0710"
07116
07128
07140
07152
0716"
07172
07172
07181t
07196
07208
07220
07232
07244
07256
07268
07280
07292
0730"
07312
07312
07324
07336
07348
07360
07372
'07384
07396
07lt08
07420
07"32
07104"
07U6
07468
01lt80
07492
07504
07516
07528
07540
07552
0756<0
07576
07588
07596

"9

17

13
21
16
16
16
49
44
49

31

1620 MONITOR 11

DUP ROUTINE

DLD4D, DREPL .. DELET

14920
149]0
14940
14950
14960

SM
HOL03,1,10
Bl
NOFLGS
AM
TESTFP+11,105,9
CM
TESTFP+ 11, TRACK+2100
8L
TESTFP
14910
AM
FWR 1f+5,20.10
14980
TFM TESTFP+ll, TRACK
14990
B
TESTFP-2"
15000
oaRG . - ]
15010 CLRFP TF
HOLD] ,MAP+8
15020
TF
FWRIT+5,MAP+5
15030
TO
FWRIT,MAP
15040
FPSF+l,33010
TF"
15050
BTM FP,*+12
15060 NaFLGS CM
SEARFP+ 11 ,HaLOtD+3
15070
BE
ALLCLR
15080
CM
HaLOtO+3,O,8
15090
BE
ALLtLR
15100
TFM SEARFP+ll,HOLOtO+3
15110
B
SEARFP
15120
OORG ·-3
15130
REIIOVE NAMES
15140 ALLCLR C
HaLDCD+], HOLDCD+7
15150
8E
."108
15160
CM
HaLOtD+3,O,8
_+48
15170
8E
15180
SF
DELETE
15190
TF
DIII"UM,HaLDCD+3
15200
8TM EQUIV,"12
15210
SF
DELETE
15220
TF
01 MNUM, HaLDCD+7
15230
BTM EQUIV,"12
15240
TF
NEWDI M.HOLDCD+7
15250
BT
OIMMER,DIMMER-l
15260
BTM SETMAP.·+12
15270
C
HOLDCD+3,HOLOCO+7
15280
BE
VOILA
15290
tM
HaLDCD+3.0,8
15300
BE
VOILA
15310 •
DELETE FROM DIM REFERENCES
15320
TF
NEWOIM,HaLOtO+3
15330
BT
OIMMER,OIMMER-l
15340
BNR *+20, MAP
15350
MONCAL
B
15360
oaRG .-3
15370
TOM MAP, ••
15380
DSt

1.· ..

15390

151000
15'oIQ

151020 VOILA
151030
15'0100
15'050
15460

TF
TFM
8
8TM
BNF
TO
TF"
B

MAP+19.ZEROI9
10RT,.+23
IOPT,DMODA,l
NRLAST,.+12
MONCAl.DUMP
MCS+23,OUMP
IORT."23
IOGT,OMPOIM,7

1620 MONITOR II
15'070 RELD

OUP ROUTINE

PHI,O,10
151080
HOL02,6,10
151090
LOADER
15500
FORT
15510
OUMP,MtS+23
15520
PNAME.MtS+35
15530
HOLDCD+7.MCS+l9
155100
SCRACH.O, 7
15550
FREDDA,O
15560
-+20,MCS+22
15570
MOODKI
15580
--3
15590 NORE2
HDLDCD+30,MCS+12
15600
HOLDCD+35,MCS+17
15610
LOAOSt.0.9
15620
OCFSCR+8,3,9
15630
DCFSCR+5,O.7
15640 INIl2
LOOP,Io,10
15650
SCAN2+6,READIN
15660
IORT . . . n
15670
IDGT ,ODAStR. 7
15680 SCAN2
READIN.O
15690
IINR+l1,SCAN2+6
15100
NOOISK-l,REL02
15710
LtTEST,"12
15720
LDOP.l,10
15730
UPSCAN,LOOP
15740
AM
LOAOSC,3.10
15750
AM
DtFSCR+5.3,10
15160
8
INIT2
15110
OORG .-3
15180 UPSCAN AM
SCAH2+6,75,9
15190
8
StAN2
15800
oaRG ·-3
15810 RELD2 TFM PATCH'o+6,MAlNB2
15820
TOM P ArCH". 1. 9
15830
Bl
ISTO
15880
TCO REPLFL

DC

15980

DC
-31

15990

5,08600
DC
-8600
DSC 1, '

26
26

14
46
14
46
16
49

1319]
13272
11267
11643
11462
07371
07816
13049
07816
07371
07360

19888
198B5
19880
OOOLl
-7748
J3049
01200
0-000
01200
H049
00000

07816
07828
07840
07852
0786'0
07876
07888
07900
07912
07924
07936
07948
07960
07972
0798"
07996
08008

24
46
14
46
32
26
17
32
26
17
26
27
17
24
46
14
'06

13049
07936
130"9
07900
131H
13190
08606
13134
13190
08606
02963
03672
10738
13049
08112
130'09
08112

13053
01200
0-000
01200
00000
13049
-7900
00000
13053
-7936
13053
03671
-7972
13053
01200
0-000
01200

08020
OB032
OB04"
OB056
08064
OB06'o
08015

26
27
'05
'09

0296]
03672
08064
00796

13049
03671
19880
00000

15

19880
1

00000

08016
08088
08100
08112

26
16
49

081210

104

08136
08148
08160

25
16

19899
00565
00532
11842
00796
17801
00565
00566

1317"
-8111
-2568
-8124
13426
13426
-8171
J3"03

08172
08184
08196
08208
08220
08232

16
110

2~

16

11

n

109

PAGE

08256
08268
08280
08292
08300
08300
08312
0832"
08336
083'08
08360
08372
0838'0
08396
08'008
08420

081032
0810'0'0
081056
081068
08'080

081092
0850'0
OB512
08512
0852'0
08532
08532
085'0'0
08556
.0'0'000

07200
01200
07212
07224
07236
01248

1,1
5,18480

07253

3,031

01256

J841l0

16000

000-1
01200
OOJ05
J5876
OllOO
OOOKO
J3776
00000

082'010

....
.....

15970

ll193
07748
07587
07587
07576
13272
07587
07552

""

15890
15900
COMMON ROUTt NES FOR .DLOAO AND .OREPL
15910
15920
DORG 1200
15930 COMMFL TFM IORT,0+23
159100
8
IOPT.COMII2,1
15950
TRA
OSC
1

12
46
11
14
47
11
16
49

DLOAO, DREPL. DELEr

TFM
tM
BNE
SF
TO
TF
TF
TFM
TOM
80
B
oaRG
TF
TF
TFIII
TFIII
TFM
TFM
TFM
TFM
B
NOP
TF
TFM
8TM
SM
80

15960 tOM"1

PAGE
07596
07608
07620
07632
07644
07656
07668
07680
07688
07688
07700
07712
07724
07736
077"8
07760
07772
07784
07796
07808
07816

07261
01262

('(II

13130
13104
11310
ll114
13426
13229
13053
13186
13"67
08300
10682

000-0
000-6
01200
00000
17801
17813
17817
-0000
00000
17800
00000
17790
17795
00-00
00-03
-0000
000-4
J1178
-8401
H'o83
00000
0810110
-8532

'09

13076
13081
13180
13381
13318
13120
08'014
00565
00566
17778
09661
09865
09614
13120
08512
13180
13378
08360

000-1
13120
000-3
000-3
00000

11
109

08'014
08'008

00-75
00000

16
15
49

06222
06211
05956

-688'0
00009

16
'09
36

00565
00532
00000
00000
1

-7223
-7263
00500
00000

107
32
25
26
26
16

15
103
49
26
26
16
16
16
16
16
16

109
'01
26
16
17
12
43

11
11

109

5

-81056

32

33

1620 MONITOR 11

DUP RDUTINE

PAGE

DLOAD. DREPL. DUET

2.22

07263

16020

DSC
22
DSA

COMMI

07269

16030

DSC

1.'

07210

16040

DDRG 8100
TFM tORT, -+23
IOPT.EQU1.1
8
TRA

16010 COMM2

-1248
1

07269

16050 EQUFl
16060
16070
16080 EQUI
16090

DSC
22
DSA

08100
08100
08112

08124

2,22

08136
08148

EQU2

08154

1,'

08154
08155

16
49
36
49

00565
00532
00000
DOOOO
2

X

16100

DSC

DSC 1,1
1
DC
5,18218
J8218
3,020
DC
-20
5,08600
DC
-8600
DSC 1,'

08164

3

08169

5

DDRG 8600

08600

16120
16130
16140
16150
16160
16110
16180
16190

..

08156
08161

08110

EQUIValENCE TA8LE SUBROUTINE
5,0
DC
-0000
16200 EQUIY TFM ''EIIDIM,0002,8
DIMMER,DIMMER-l
16210
BT
16220
BNF SKNAME,DELETE
DIMNUM,O,8,
16230
CM
ANAME
16240
BE
DIMNUM,SUBLO,8
16250 LIMITS CM
B2READ
16260
8L
DIMNUM,SUBHI,8
16210
CM
16280
8H
82READ
16290
TFM tNINE+6,DIMNUM
TFM CNINE+11,TRACU15
16300
16310 IIITHIN TFM HOLD4,0,10
16320
TF
DI SKF+5,EQUDIM+5"
DISKF,EQUDIM
16330
TD
16340
TFM IORT ,.t23
IOGT,ODAKF,7
16350
16360
AM
HOLD4,ltl0
16310 CNINE C
liE
TFLG
16380
HOLD4,50,10
16390
CM
lMOO
IIRTl
8H
16410
AM
CNINE+ll.16,10

•

-8123
-8148
00500
00000

-8156
1

16110 EQU2

,-

3'0

08604

START DELEte OPERATION

08606
08618
08630
08642
08654

08666
08618
08690

IIITHIN SU8ROUTINE DIM LIMITS

."

08702
08114
08726
08738
08750
08762
08774
08786
08798
08810
08822
08834
08846
08858

16
21
44
14
46
14

H
14
46

16
16
16
26
2~

02963
03612
09690
13190

0-002
03671
13134
0-000

10466

01200

13190
09054

0-010

13190
09054
08816
08821
13191
13393
13188

00565

01300
0-039
01100
J3190
J3191
000-0
19885
19880
-8197
H443
000-1

16
49
11
24
46
14
46

00566
13197
00000
08818
13191

11

08821

08870
08878

49

08798

00000

08878

44
16
12
26

08986
0882J
08821
0882J
08821
08798

000-4
13243
OOOKO
00000

~9

08966
09022

13134
00000

16
49

02507
09974

OP574
00000

26

0882J
08821
0882J
00565
00532
10530

13190
-9045

13393
13393
13388
09185
09205
13366
13305
00565
00566
09185
09194
10530

19885
000-8
19880
J3776
J3791
00-20
00-20
-9161
J3443
OOOJI
00000
00000

13190
09294
09205
09274
09185
09205
09174

00000
01200
J5775
01200
000J6
000J6
00000

13393
09090

00-20
00000

15

15776
1

00000

26

09420
09420
09425
09425
13310
13371
13302

09205
000J5
09205
000-1
J3776
J5160
13393

08946

00000
01200
0001'10
OUOO
000J6

\IL
1620 MONITOR 11

16420
16430
16440
IH50
16460
16oHO
16... 80
16490
16500
16510
16520
16530
16540
16550
16560
16570
16580
16590
16600
16610
16620
16630
16640
16650
16660
16610
16680
16690
16700
16710
16720
16730
16740
16750
16760
16770
16780
16790
16800
16810
16820
16830
168... 0
16850
16860
16870
16880
16890
16900
16910
16920
16930
16940
16950
16960

TFLG

B
DDRG
8NF
TFM
SM
TF
AM

,

DDRG
IIRT2

BNF

B
DoRG
TFM

8
NoF
WRT

DDRG
TF
AM
TF
TFM

8
B
DDRG
82READ TF
AM
TO
INIrSC TFM
TFM
TFM
TFM
TFM
\I
AM
RECD
INR
B
DDRG
CMPAR C
8E
CM
BE
AM
AM
B
DDRG
INCRO AM
B
DDRG
CLOSE TDM
OSC

•
TF

SM
TF
AM
TFM
TFM
TF

CNINE-12
.-3
NOF,DELETE
CNINE+ll,9999,6
CNI NE+ll,4,10
CNINE+l!,NINElZ,6
CNINE+ll,20,10
CNINE-12
'-3
"20, DELETE
IIRT
--3
DIMERRtZ2, 757~,B
HULT2
--3
CNI NE+ll, PNAME ,6
CNINE+ll,4,10
CNINE+ll,DIMNUM,6
10RT ,.t23
IOPT,DOAKF,7
EXIT
e-3
DISKF+5,EQUOI M+5"
DISltF+5,8,10
DISKF,EQUDIM
RECD+l1.TRACK
CMPAR+ll. TRACK+15
tLOSR+8,20,9
CLOSII+8,20.9
IORT,o+23
10GT ,DDAKF. 7
'+23,11,10

e.20 •••
EXIT

--3
DIMNUM".
CLOSE
CHPAAtll, TRACK+1999"
INCRD
RECD+l1,16,10
CHPAR+ll,16,10
RECD
'-3
0ISKF+5,-20,9
INITSC
--3
CLOSUP+2000" ,

1.· .•

DUP ROUTINE

DLOAD, OREPL, DUET

PAGE

08890

08902
08914
08926
08938

11
~9

13134

09999

089~6

08946
08958
08966
08966
08978
08986
08986
08998
09010
09022
09034
090~6

4'0

11
26
16
49
~9

13229
OOO-~

J3~43

00000

09054
NOT IIITHIN LIMITS

0905~

09066
09078
09090
09102

091110

TEST FOR LAST ENTRY
LOOK FOR DIM NUM8lER
TEST FOR END OF 20 SECTORS

09126
09138
09150
09162
09174
09186
09194
09194
09206
09218
09230
09242
0925~

ROUTINE TO CLOSE IN LIST-

TRRECt6,CMPAR+1l
TRREC+6,15,10
TRREC+lI ,CMPARtll

09266
0927...
09214
09286
09294
09294
09305
09306
09318
09330
09342
09354
09366
09)78

TRREC+ll.l.,lO
CLOSW+13,CLOSUP
CLOSRtl3,CLOSUP+l984
CLOSWt5, 0 I SItH 5

772

26
11
25
16
16
16
16
16
49

11
45
~9

24
46
14
46

11
11
49

11
'09

12
26

11
16
16
26

35

1620 MONITOR 11
16970
16980
16990 TRREC
17000
17010
11020
11030
17040
11050
17D60

TF
AM
TR
BNR
TFM
B
TFM
B
TOM
DSC

CLOSR+5,DISKF+5
CLOSR+5,20.10

17010
17080
17090
17100
17110
17120
17130
I1HO
17150
17160
17170
17180
17190
1720D
11210
17220
11230
11240
17250
17260
17270
17280
17290
17300
17310
17320
17330
17340
17350
17360
11370
17380
17390
17400
17410
17420
17430
11440
17450
17460
17470
11480
17490
11500
17510

TR
AM
AM
B
DDRG
TF

CLOSUP, CLOSUP+2000
CLOSR+5,20.10
CLOSW+5,20,10
TRREC+l2
'-3
HOLD5,CLOSW+5"
HOL05, EOUDIM+5
HOLD5-2
HOLD5,EOUDIM+8
NOTOK

DONE

5
SF
C
8H
TFM
B
B
DDRG
NOTOK SM
TF
5
TF
B
DIIRG
5KNAME CM
BE
TF
TD
TFM
TFM
5CANN TFII
TFII
B
BHR
B
DIIRG
CNAMES C
BE
CM
8E

MULT

DUP ROUTINE

0,0"

DLOAD, DREPL, DELET

PAGE
09390
09402
0920 MONITOR 11
19170
19180
19190
19200
19210
19220
19230
19240
19250
19260
19270
19280
19290
19300
19310
19320
19330
19340
19350
19)60
19170
19380
19390
19400
19410
19420
19430
19440
19450
19UO
19HO
19480
19490
19500
19510
19520
19530
19540
19550
19560
19570
19580
19590
19600
19610
19620
19630
19640
19650
19660
19670
19680
19690
19700
19710
19120

8
LcrEST TFM
8Y
BNF
BNR
8NR
8
DORG
AM
CM
BE

SCRAD-l "I>
COUNT,O,IO,
-+12
NOALF ,BNR+ll, 11

oUP ROUTINE

olOAD, oREPl, oELET

LAST RECORD TEST

*+20,0

NOALF
·-3

COUNT,! ,10
COUNT,S,IO
-+32

AM
BNR+ll.l,10
8NR
8
DoRG 0-3
CM
8NR+l 1, 99999, 1>7
8Y
NoALF
8NE NOAlF
AM
BNR+ll,I,10
BNR NoALF,BNR+ll ,11
AM
BNR+1I,I,IO
BD
NoAlF,BNR+11,ll
AM
COUNT,I,IO
CM
COUNT ,1>5, 10
BNE ·-1t8
ALPHAS
B
ODRG 0-3
LCTEST-l, ,I>
NOALF 8
NoDISK TD , READ+2.PHJ,.
SM ' READ+2,1,10
TFM SCRACH,0,7
TDM FREDDA,O
TFM lOADSC,0,9
TFM SEQ,I
TFM DCFSCR+8,003,9
TFM DCFSCR+5,0,7
TOM DCFSCR,O
INITRo TFM READ,REAoIN"
TFM lOOP,04,10
TFM COMP+tl,READIN+79
TFM SF+1t ,READIN+75
ReADC TFM IORT,.+23
10GT ,READ-4, 7
8
TF
BNR+ll,REAo
BTM LCTES T,.+ 12
eM
PHI,05,10
BNE eOMP+60
SF
BNF COMP+36,REAOIN+75
COMP
C
SEQ,READIN+79"
SNE SEQERR
AM
SEQ,I,IO
SF+It,075,9
AM
AM
eOMP+1I,075,9
SM
LOoP,I,10
BO
INeRE,LOOP
TFM IORT,.+23
B
IOPT,00AseR,7
AM
LOADSC,03,10

SETUP READ DEY I CE

INIT. READ lOOP

CHECK FOR PROPER SEQUENCE

PAGE
091>02
09614
09626
09638
09650
09662
09670
09670
09682
09694
09706
09718
09721>
09721>
09738
09750
0971>2
09774
09786
09798
09810
09822
09834
09841>
09854
09854
09861>
09878
09890
09902
09914
09926
09938
09950
09962
09974
09986
09998
10010
10022
10034
10046
10058
10070
10082
10094
10106
10118
10130
10142
10154
10166
10178
10190
10202
10214

49
16
41>
44
45
49

0929P
13145
09638
091>70
09854

00000
000-0
01400
091>I>J
00000
00000

11
14
46
11
49

13145
13145
09721>
091>61
09650

000-1
000-5
01200
000-1
00000

14
41>
H

091>I>J
09854
09854
091>61
09854
0961>1
09854
13145
13145
09786
1021>1>

R9999
01400
01200
000-1
0966J
000-1
091>I>J
000-1
00005
01200
00000

49 09611
25 13481
12 13481
16 13186
15 13467
16 13180
16 ' 13128
16 13381
16 13378
15 13373
16 13479
16 13120
16 IOtl7
II> 10105
16 00565
49 00566
26 09661
17 091>14
14 13130
47 10166
44 10142
24 nl28
47 10178
11 13128
tl 10105
11 10117
12 13120
43 10246
II> 00565
49 00532
11 13180

00000
13130
000-1
-0000
00000
00-00
-0001
00-03
-0000
00000

11
45

11
43
11
14
47
49

09854

40

J7778

000-4
J7857
J7853

J0045
J3475
13479
J0070
000-5
01200
17B53
17857
01200
000-1
00-75
00-75
000-1
13120
J0213
J3483

000-3

777
1620 MONITOR 11
19730
19740
19150
19760
19170
19780
19190
19800
19810
19820
19830
19UO
19850
19860
19870
19880
19890
19900
19910
19920
19930

OUP ROUTINE

OLoAD, OREPL, DELET

DeFseR+5,03,10
B
INITRO
OORG .-3
]NCRE AM
READ,015,9
B
READC
DORG .-3
ALPHAS TFM SCREM,Q4,9,
COMPUTE SECTORS REMAINING
S
SCREM,LoOP
80
·+20,SCREM
8
MAINB
DORG .-3
NOP SCREM, 1,10, CHANGE TO SUBTRACT FOR NEW ~UMP
TF
OCFsCR+8, SCREM
TFM IORT,-+23
B
IOPT,00AseR,1
A
LoAIlSC,SCREM
MAINB B
NooISK-I,,6
DORG .-3
SEQERR RelY
TOM READIN+305" ,
OSC 1.',-

19940
19950
19960
19970
19980
19990
20000
20010 eco
20020

AM

WATY ERR SEQ
REAOIN+304,COMP+U,11
TF
WIITY REAOIN+300
H
B
REAOC
DORG ·-3
SYSTEM LOADER
DSC
02
OSA

PAGE
10226
1'0238
10246
10246
10258
10266
10266
10278
10290
10302
10310
10310
10322
10334
10346
10358
10370
10378
10378
10390
10"01

11
49

13378
09974

000-3
00000

11
49

13479
10022

00-15
00000

16
22
43
49

13123
13123
10310
10370

00-04
13120
13123
00000

4'1
21>
16
49
21
49

13123
13381
00565
00532
13180
0986N

000-1
13123
J0357
H483
13123
00000

34
15

00000
180B3
I

00102
00000

10402
10414
10426
10438
10450
10458

39
26
38
48
49

12913
18082
18078
00000
10022

00100
10llP
00100
00000
00000

NON-DISK

2,02

10458

eC02

10464

5
J041>1>
I

20030

OSC

I, '

10464
10465

20040 CC02

Dse
I

1,1

10466

20050

5,01798
DC
-1798
3,2
DC
-02
DSA INPUT-I

10"79

OSC

10479
10480

20060
20070
20080

20090 MOONol TOM
20100
TFM
20110
8
20120
CM
20130
BE
20140
TF
20150
B
20160
DORG
20170
TOM

I, '
SYSCAL,I,l1
tORT , •• 2l
IOPT,eto,7

10471

5

10414

3

10482
10494
10506
10518
10530
10542
10554
10562
10562

MAPEA,O,T
-+32
420,MAPEA
-+20
·-3

416",

n~

2

5 X
J3612
I

ooooJ

16
49
14
46
26
49

00475
00565
00532
13155
10562
00420
10574

J0517
J0458
-0000
01200
13155
00000

15

00416

00000

15

41

1620 MON ITOR 11

OUP ROUTINE

OLOAO, OREPL, OELET

PAGE

20180

OSC

1,' ,-

10573

20190
20200
20210
20220
20230
20240
20250
20260 SOL

TO
SF
TF
SF
CF
TFM

428,PHI
428
434,MAPMA
U9
429
IORT •• +23
IOGT,SOL,7
2,-22

L0574
10586
10598
10610
10622
10634
10646
10658

SOLl

10664
10664
10665

20270

B

OSC
2K
OSA

20280

OSC

I,'

20290 SOL2

OSC
I
OSA

1,1

10666

19783

10671

20300
20310

10671
106H

20320

10680

25
32
26
32
33
16
49

00428
00428
00434
00489
00429
00565
00566
2

42

13130
00000
13150
00000
00000
J0657
J0658

5 X
J0666
I

X
J9783
3

3,3
DC
-03
OC
6,0'
-0000'
20330 MOOOKI TOM SYSCAL,I,l1
20340
TFM IORT,"U
20350
8
IOPT,CCO,7
20360
TF
OLOCF+5, SCRAeH
20370
TO
OLOCF, SCRAeH-5
20380
SF
OLOCF+I
20390
CF
OLOeF
20400
TOM 428,0,11
20410
CM
MAPMA,0,7
20420
8E
*+32
20430
TF
OlO+ll ,MAPMA
20440
e+20
8
20450
DORG .-3
20460
TOM OLD.1, ..
20470
ose 1,',-

10682
10694
10706
10718
10730
10742
10754
10766
10778
10790
10802
10814
10822
10822
108]3

15
16
49
26
25
32
33
15
14
46
26
49

00475
00565
00532
10876
10871
10872
10871
00428
13150
10822
10869
10834

OOOOJ
J07l7
J0458
13186
13181
00000
00000
0000-0000
01200
13150
00000

15

10865

00000

20480
20490
20500 OLD

10834
10846
10858

16
49

20510

•
TFM

8
DSC
02
DSA

,

IORT,·+23
IOGT,OLO,7
2,02
DlDCF,O

10864

10'

10864
10869
10870

20520

DSe

20530 DLOCF

ose 1,0
0
5,0
DC
-0000
),999
DC
R99

20540
20550

1620 MONITOR 11
20560
20570
20580 NO SAC
20590
20600 FINDX
20610
20620

I

00565
00566
2

J0857
J0858
X

I

10876
10879

3

719

DUP ROUTINE

OlDAO, DREPL, DELET

PAGE
10884

TFM
87
DSe
2K
DSA

10886
10898
10905

10885

IORT,FINDX,7
lOCAL
2,-22
FINDXX

10911

1, '

10911
10912

16
49

00565
00716
2

J0905

X

J0913
1

20630 FINDn DSe 1,1
I
20640
DC
5tl8542
J8542
20650
DC
3,012
-12
20660
DSA NOS A

10921

3

10926

5 X

20670

DSA

NOSA

10926
10931

H800
5 X

20680

DSC

10'

10931
10932

H800
1

20690 SPD
20100
20710
20720
20730
20740
20750
20760
20770
20780
20790
20800
20810
20820
20830
208ltO
20850
20860
20870
20880
20890
20900
20910
20920 HERE
20930
20940
2095(1
20960
20970 SCRKD

eM
BNE
SF

10913
10918

LlSTER-3,7,1011
HERE
lISTER-l
MM
1I S TER, 200, 9
TF
lOAOSA,99
TO
lOAOSA-5,PACK
CF
lOAOSA-5
TD
·H7.l0AOSA-5
A
e+35,.+35
AM
.+23.1.10
TDM lOADSA-5, 0, 10
TFM IORT.un
B
IOGT,D3READ,7
TFM HOlD6-1,REAOIN+71
TO
U22.l0ADSA-5
AM
HOlD6-1,0,9
BD
"24,lOAOSA-4
TFM •• 25012,10
TD
lOADSA-4.HOl06-1.11
NOP lOADSA, 10000. 7
eF
LISTER-l
8
SCRKO
OORG ·-3
TF
NEWDI M, LI STER
BT
DIMMER,DIMMER-l
A

MAP+5,MAP+8

TF

lDADSA, HAP+5
lOAOSA-5,MAP
lDADSA,NINESC

TO

A

2

J0871
-0000

10871

OC
5,99999
R9999
DSe 1,'

Dse

6

10934
10946
10958
10970
10982
109910
11006
11018
11030
11042
'11054
11066
11078
11090
11102
11114
11126
11138
11150
11162
11174
11186
11194
11194
11206
11218
11230
11242
11254

ISO

5

32
13
26
25
33
25
21
11
15
16
49
16
25
11
43
16
25
41
33
49

14

02161
11194
02763
02764
13102
13097
13097
11065
11065
11065
13091
00565
00566
1321"
11124
13214
11150
11163
13098
13102
02163
11254

OOo-p
01200
00000
OOKOO
00099
02772
00000
13097
11065
000-1
000-0
JI089
J1286
J7849
13097
00-0(1
13098
000J2
1321M
JOOOO
00000
00000

26
27
21
26
25
21

02963
03672
19885
13102
13097
13102

02764
03671
1988B
19885
19880
05753

41

43

1620 MONITUR 11
20980
20990
21000
71010 03READ
21020
21030

S
8
DORG
DSC
22
OSA

DSC

DUP ROUTINE

PAGE

OLDAD, DREPL, DELET
11266
11278
11286
11286

LOAOSA,LOAOSC
SCROK
·-3
2,22
04READ

11292

1, '

11292
11293

21080

DSe

44

13180
00000

5 X
JI294
1

11299
11302
11307

5 X
J7778
1

11307
11308

1, '

11310
11322
11334
11346
11358
11370
11382
11394
11406
11418
11430
11442
11454
11'066
11478
11'090
11502
11514
11526
11538
11550
11562
11574
11582
11582
11594
11606
11614
11626
11634
11646
11658
01200

ATN+11,INPUT+24
LOADER
ATNR,.+L2

INPUT+49,7010.8
WR2 ... 3.425

WR2,H2
WR2

WR2+l
HOL OCD+13,WR2+5
HOLOeD+ 19, WR2+5
HOLOeO+19,WR2+8
HOlDCO+19.1,lO
HOloeD+ 30, WR2+13
RTEST,O
ISTO-24,,,eS+22
FORT
PTEST ,0
HOLoeD>], MeS+39
PNAME.MCS+35

OU"P, MC S+23
HOLDeD+ 35,,,eS+17
HOlDCO+3,O.8
ISTO
·-3

-+32
MAPMA,HOLoeD+30
PAT2+12
MAPMA,02402,1
PAT2+12
HOlOCO+)O,O.1

--52
PAT2
eOMMFL

16
32
17
16
21
25
32
33
26
26
21
12
26
15
32
15
26
26
25
26
16
49

09053
11310
08606
13662
02262
02259
02259
02260
13059
13065
13065
13065
13076
13131
05932
13114
131n
13053
13229
13426
13081
13049
05956

J3637
00000
J1346
OP070
00425
00422
00000
00000
02264
02264
02267
000-1
02272
00000
17800
00000
00000
17817
17813
17801
17795
0-000
00000

46
26
49
16
49
14
47
49

11614
13150
06148
13150
06148
13076
11594
06136

01200
13076

16
49
36
49

00565
00532
00000
00000
2

44

-2402
-0000
01200

10100

ODRG 10100

21420

13102
06588

11294

1,1
21.040 D4READ DSC
1
5,04800
21050
DC
-4800
),2
21060
DC
-02
21070
DSA READIN

21090 LOADER TFM
SF
21100
21110
BTM
21120
TFM
21130
A
TO
21140
21150
SF
21160
eF
TF
21170
21180
TF
A
21190
21200
SM
21210
TF
21220
TOM
8NF
21230
21240
SF
21250
TO"
TF
21260
21270
TF
'TO
21280
21290
TF
21300
TFM
21310
8
21320
DORG
21330 PATCH2 8E
TF
21340
21350
87
TFM
21360
87
21370
eM
21380
21190
8NE
21400
87
21410
Teo

22
49

H1
1620 MON ITOR 11
21430 eOMFL
21440
21450

TF"
8
TRA

21460 COMFLI DSC
22
21470
DSA
21480

OSC

OUP ROUTINE

OLDAO, DREPL, DELET

PAGE

IORT.*+23

10100
10112
10124
10136
10148

10PT ,eOMFLl, 7
2,22
eOMFL2

10154

1, '

10154
10155

21490 COMFL2 OSC
1,1
1
21500
5,18512
DC
J8512
21510
DC
3,030
-30
21520
5,10600
DC
J0600
21530
ose
1, '

10170

21540
21550

10600
10604

21560
21570
21580
21590
21600
21610
21620
21630
21640
21650
21660
21670
21680
21690
21700
21710
21720
21730
217'>0
21750
21760
21770
21780
21790
21800
21810
21820
21830
21840
21850
21860
21870

OORG 10600
5,0
DC
-0000
SPLINS TFM HOLD3,0,9
eM
llSTER-3,8,101l
8NE LOOK
A
HOL03,L1STER
8T
REMOVE,REMOVE-l
TF
llSTET,OIMNUM
INSERT,INSERT-l
8T
LOOK
e
HOL03,MOVEse
8E
SPLINS-l,,6
BT
GETL,GETL-l
8
SPllNS+12
SETMAP TF
MAP+5 .lOAOSA.,
TO
MAP,LOAOSA-5
eF
MAP
SF
MAP+l
TF
MAP+8,LOADse
BNF "24,STFLAG
MAPMA
SF
TF
MAP. 13, MAPHA
MAP+18,MAPEA
TF
TO
MAP+19,MAPRM
TF
DIMNUM,NEWDI~
IORT, •• 23
TFM
B
IOPT,DMODA,1
TFM
(ORT,*+23
IOG1,HCSl,7
8
TF
MCS+39, 01 MNUH
IORT, •• 23
TFM
IOPT ,MCS1, 7
8
•
INSERT DIMNUM IN SPLIST
BTH SPlINS,·+12
PNAME,IER012,.
e

JOI23
J0148
00500
00000

5 X
J0156
1

10156
10161
10164
10169

SET UP 0 I M ENTRY

WAS PROGRAM NAME GIVEN

.. ':>2

10606
10618
10630
10642
10654
10666
10618
10690
10702
10714
10726
10138
10750
10762
10774
10786
10798
10810
10822
10834
10846
10858
10870
10882
10894
10906
10918
10930
10942

16
14
47
21
27
26
27
24
46
27
49
26
25
33
32
26
44
32
26
26
25
26
16
49
16
26
16
49

13193
02761
10690
13193
03084
02794
03414
13193
1060N
02996
10618
19885
19880
19880
19881
19888
10822
13150
19893
19898
19899
13190
00565
00532
00565
00566
17817
00565
00532

00-00
OOO-Q
01200
02764
03083
13190
03'>13
02865
01200
02995
00000
13102
13097
00000
00000
13180
13537
00000
13150
13155
13115
02963
J0893
-2568
J0917
J3514
13190
J0953
J3514

10954
10966

17
24

10606
13229

J0966
13167

"9

45

1620 MONITOR 11
21880
21890
21900
21910
21920
219.30
21940
21950
21960
21970
21980
21990
22000
22010
22020
22030
22040
22050
22060
22070
22080
22090
22100
22110
22120
22130
221"0
22150
22160
22170
22180
22190
22200
22210
22220
22230
22240
22250
22260
22270
22280
22290
22300
22310
22320
22330
22340
22350
22360
22370
22380
22390
22400
22410
22420
22430

NONAM

BE
BTM
Tf
TO
SF
CF
TF
TO
TFM
TFM
C

DUP ROUTINE

.OLOAO, OREPL, DELEr

PAGE

NONAM

EQUIV,·.lZ, •

FREAO+5, SCRACH,.
FREAD.SCRAtH-5
FREAD'l
FREAD
fWRIT.5,LOADSA
fWR IT ,lOADSA-5
FREAD+l3. FAREA
FWRIT.1),FAREA
MAXSt ,lOADSC
ALTER
BL
TF
FREAD'8,LOADSC
TF
FWRIT.8,LOAOSC
lSK
TFM (ORr. -+23
8
IDGT,FREDOA,7
TFM IORT,"23
8
IOPT,FWRDDA,7
•• 20,PTEST
BD
ENDWRT 8
SErMAP-l .. 6
DDRG '-3
TFM FPSf'I,32,10
TF
HOLD3,LDADSC
Tf
FWRIT'5,LDADSA
FWRIT ,LOAOSA-5
TO
8TM FP,.+12
ENOWRT
B
DORG '-3
ALTER TF
HOLD3,LOADSC
S
HOLD3,"AXSt
TF
FREAO+8,MAlSC
TF
FWRIT+8,MAXSt
TFM IORT,"23
IOGT,FREDDA,7
B
TFM IORT .,,23
IOPT,FWRDOA,7
8
A
FREAD+5,MAXSC
F WR IT +5, MAX SC
A
MAXSC.HOLD3
C
ALTEh12
8L
Tf
fREAO+S.HOlD)
TF
FWU T +8, HOL03
8
LSK
FP
SF
8UTTON .. ,
BTM KYMESS, . . 12
TF
HOLD5.FWRIT+'
SF
HOLD5-1
TFM FPSF+6, TRAtKl
SM
HOLD5.20,lO
8H
'-12
e+48
81
AM
HOLD5,20,lO
MM
HOLD5.105.9
FPSF+6,99
A
TFM FWRIT+a,20,9
TFM FWRIT+13, TRACK2

PUT NAME IN EQUIVALENCE TABLE
LOAD PROGRAM TO DISK

FilE PROTECT AND LOAD PROGRAM

10978
10990
11002
11014
11026
1.1038
11050
11062
1107"
11086
11098
11110
11122
11134
111"6
11158
11170
11182
1119"
11206
11214
11214
11226
11238
11250
11262
11274
11282
11282
1129"
11306
11318
11330
11342
11354
11366
11318
11390
11402
11414
11426
11418
11450
11462
11"7"
11486
11498
11510
11522
11534
11546
11558
11570
11582
11594
11606

46
17
26
25
32
33
26
25
16
16
2"
47
26
26
16
49
16
"9
43
"9

11002
08606
13287
13282
13283
13282
13272
13267
13295
13280
13107
11282
1)290
13275
00565
00566
00565
00532
1071P

01200
Jl002
13186
13181
00000
00000
13102
13097
J3776
J3776
13180
01300
13180
13180
J1169
J3467
J119]
J3459
131.33
00000

16
26
26
25
17
49

11643
13193
13272
13267
11"62
11206

000L2
13180
13102
13097
J1274
00000

26
22
26
26
16
49
16
49
21
21
2"
47
26
26
49
32

13193
13193
13290
13275
00565
00566
00565
00532
13287
13272
13107
11294
13290
13275
111"6
00"55
11998
13139
13138
11648
13139
11522
11594
13119
13139
116"8
13275
13280

13180
13107
13107
13107
JI353
Jn67
J1377
J3459
13107
13107
13193
01300
13193
13193
00000
00000
Jl"86
13272
00000
J7778
OOOKO
01100
01200
OOOKO
00J05
00099
00-20
J7778

11618
11630
11642
11654
11666
11678
11690
11702
11714
11726
11738
11750
11762
11774
11782
11782
11794
11806
11818
11830
118"2
1185"
11866
11878
11890
11902
11914
11926
11938
11950
11962
11974
11986

16
49
32
12
14
46
11

17
26
32
16
12
U

46
11
13
21
16
16

112110

46

i'IiJ
1620 HoNITOR 11
22440
22450
22460
22470
22480
22490
22500
22510
22520
22530
22540
22550
22560
22570
22580
22590
22600
22610
22620
22630
22640
22650
22660
22670
22680
22690
22700
22710
22720
22730
22740
22750
22760
22770
22780
22790
22800
22810
22820
22830
22840
22B50
22860
22870
22880
22890
22900
22910
22920
22930
22940
22950
22960
22970
22980
22990

DUP ROUTINE

OLOAD. DREPL, DELET

TFH

IORT, "23
II
IOGT.FPODA,7
FPSF
SF
TRACK!
SM
HOLD3.1.10
CM
HOLD3.0,9
BE
DDNESF
AM
fPSF+6,105,9
eM
FPSF+6, TRACK2'2100
BNE FPSF
TFH IORT ",23
B
I OPT, FPDDA, 7
AM
FIIR 1T+5,20,10
TFM FPSF+6, TRACK2
B
FPSF-36.
DORG '-3
OONESF TFM IORT ",23
B
IOPT.FPDOA,7
CF
BUrrON
8TM KYMESS"+12
B
FP-l, .. 6
WRlAST TF
F INALM'30,PNAME ..
WRITE FINAL MESSAGE
Tf
NEWOIM,DIMNUM
BT
DIMMER,DIMMER-l
RCrY
WArY FINALM
TO
19999,IIAP'19
TF
1999B.DIMNUM
WNTY 19995
SPTY
WNTY MAP
ONTY 19999
TDM SYSCAL.3
B
IIRLAST-l .. 6
•
ADDRESS KEY MESSAGE SUBROUTINE
KYMESS B!'fF . .32. BUTTON
TFM KEYMES+24,5500, B
e+20
8
DORG '-3
TFM KEYMES+2", 4646. 8
ReTY
WAH KEYMES
H
B
KYMESS-l .. 6
DELETE DIM !'fO, FROM S.P. LIST
SPLDEL TF
NEWDIM,DIMNUM
8T
DIMMER,DIMMER-l
TF
L ISTES·,MAP+'
TO
LlSTES-5.HAP
TF
NINESt.MAP+8
TF
HOLo5,MAP'5
CF
NINESC-2
TFH RlGONE+30,.+20
B
FIND
OORG '-3
REMDEL C
LlSTER,OIMNUM
BHE SPloEL-l. ,6

PAGE

11998
12010
12022
12030
12030
12042
12054
12066
12078
12090
12102
1211"
12126
12138
12150
12162
12174
12186
12194
12194
12206

tM

16
49
11
16
49

00565
00566
17178
13193
13193
11782
116108
116"8
11642
00565
00532
13272
116"B
11606

J1641
J3451
00000
000-1
00-00
01200
00J05
J9878
01200
J17"9
J3"51
OOOKO
J7178
00000

16
"9
33
17
49
26
26
27
3"
39
25
26
38
34
38
35
15
"9

00565
00532
00"55
11998
11"6J
12905
02963
03672
00000
12875
19999
19998
19995
00000
19880
19999
00475
1I8"J

J1805
J3451
00000
J1830
00000
13229
13190
03671
00102
00100
19899
13190
00100
00101
00100
00100
00003
00000

4"
16
49

12030
12991
12042

00455
ON500
00000

16
34
39
48
49

12991
00000
12961
00000
1199P

OM6"6
00102
00100
00000
00000

26
27
26
25
26
26
33
16
49

02963
·03672
02790
02785
05753
13139
05751
0"28"
03838

13190
03671
19885
19880
19888
19885
00000
J2194
00000

21t
47

02764
1208R

13190
01200

14
It7

47

1620 MON ITOR 11
BT
23000
23010
CM
BE
23020
23030
CM
23040
BE
23050 INSOEL TF
23060
BT
23010
BT
23080
BT
23090
CM
23100
BNE
23110
SF
A
23120
23130
CF
8T
231~0
8
23150
23160
OQRG
23110 COMPRS SF
23180
A
23190
tF
23200
8T
23210
B
23220
OORG
23230 CnOEL BT
232t,0
tM
23250
BNE
23260
BT
23210
TFM
SM
23280
23290
BT
21300
BT
23310
B
23320
OQRG
23330 N0200 CM
23340
BE
23350
SF
23360
SM
BNF
23310
23380
A
TOM
23390
23400
tF
23410
CF
23420
TF
23430
BT
23440
BT
23450
BT
23460
B
23410
OORG
234BO VES9
SF
A
13490
23S00
5
tF
23510
23520
BT
23530
B
23540
OORG
23550 PATtHI TF

·DUP ROUTINE

PAGE

OLDAD. DREPL. DElET

REMDYE.REMDYE-I
LIS TER-3.1.l01l
CYLDEL
I I STER-3, 9.1011
COMPRS
lISTET.NINESC
INSERT .INSERT-l
GETl.GETL-l
GETl.GETL-l
I I STER-3. 9.1011
SPLDEL-I .. 6
1I STER-2
NINESC.LISTER
lISTER-2
REMDYE.REMOYE-l
COMPRS+36
'-3
lISTER-2
NINE SC. LI STER
lISTER-2
REMOYE.REMOYE-I
INSDEL
'-3
GETl.GETL-1
lISTER-l, 1.1011
N0200
GETR.GETR-I
LISTET.9200.8
NINESC.200.9
INSERT .INSERT-l
GETR.GETR-I
REMOEL
'-3
I I STER-3.9.1011
YES9
HOL05-2
HOL05.2DO.9
'-12.HOLD5
NINESt.HOLDS
HOL05-3.9.1I
HOLD5
HOLD5-·2
I I STET. HOLDS
GETR.GETR-l
INSERT • INSERT-l
GETR.GETR-I
REMOEL
'-3
lISTER-2
NINESC.lISTER
HOL05.lI 5 TER
LISTER-2
REMOYE.REMOYE-I
tYLDEL
'-3
MAPEA.HAP.U

12218
12230
12242
12254
12266
12218
12290
12302
123110
12326
12338
12350
12362
12314
12386
12398
12406
12406

121018
12430
12442
12454
12462
12462

1210110

21

0308~

I~

02161
12462
02161
12406

~8

49

124~2

03083
OOO-P
01200
OOO-R
01200
05153
03413
02995
02995
OOO-R
01200
00000
02164
00000
03083
00000

32
21
33
21
49

02162
05153
02162
03084
12218

00000
02164
00000
03083
00000

21
14
27
16
12
21
21
49

02996
02161
12566
02812
02194
05753
03414
02812
12194

02995
OOO-P
01200
02811
OR200
OOKOO
03413
02871
OOODO

14
46
32
12
44
21
15
33
33
26
21
27
27
49

02761
12130
13131
I3U9
12602
05153
13136
13U9
13111
02794
02872
03414
02872
12194

OOO-R
01200
00000
OOKOO
13139
13139
OOOOR
00000
00000
13139
02871
03413
02871
00000

32
21
22
33
21
49

02762
05153
13139
02162
03084
12462

00000
02164
02164
00000
03083
00000
19B98

46
14
46
26
21
21
21
14
41
32
21

33
21

Oi194
03414
02996
02996
02161
1208R
02162
05153
02162
03084

12486
12498
12510
12522
12534
12546
12558
12566
12566
1251B
12590
12602
12614
12626
12638
12650
12662
12674
12686
12698
12710
12722
12730
12130
12742
12754
12766
12778
12190
12198
12198

101

26

13155

12BIO
12822
12834
12846
12854
12866
12874
12815

14
41
26
49
16

13016
12846
13150
06884
02507
02524

785
1620 HONITOR 11
23560
23570
23580
23590
23600 SCERR
23610
23620
23630 FINALH
23640 RMARK
23650 ERRSEQ
23660 KEV"ES
23610
23680
23690
23700
23710

CLOSUP
INPUT
READIN
CARD

23720 HOLDCD
23730 MCS
23740 THOU
23150 LOADSA
23760 HOLD2
23710 "AXOIM
23180 MAXSt
23190 "CAS
23800 FORT
23810 "APR"

CH
BNE
TF
81
TFH

DIll' ROUTINE

DLOAD. DREPL. DELET

HOLDCD+30.0.7

•• 24

MAPHA .HAP+ 13
MUN82
01 HERR+22. 0075.8
B
ERRD
DORG --3
DAC
18.0K LOADED
OK LOADED
DAC 1.0
0
OAt 21.DUP-ERROR55 CARD SEQUENCE'
DUP-ERROR55 tARD SEQUENCE •
OAt 39.0UP' TURN OFF WRITE ADDRESS KEY. START'
DUP' TURN OFF WRITE ADDRESS KEV. START'
OAt 1.0
0
DSS 4000.13716
DAS 81, 13613
DS
,17718
DC
45.0
-00000000000000000000000000000000000000000000
OS
,CARD-44
OS
.17778
DC
6.100000
JOOOoo
DC
6.0
-00000
DC
2.0
-0
OS
O.FIND+ll
DC
3.050
-50
DC
6.0
-000110
DSt 1.0
0
DSt 1.0
0

PAGE

109

18 X
I

12913

21

12961

39 X

13716
13613
17718
13090

4000
81 X
0
45

13046
11178
13096

0
0
6

13102

6
2

03849
13107

0
3

13113

6

13U6
13111
13118
13120

2

13123
13128
00455
13130
13131
13132

t/)ti

0
2

2
2
2

I

UU5

." ..............................................

X

13045

13114

23820 GPMARK UGH
23830 FINOI" DSt 1.0
0
23840 AOK
DSt 1.0
0
23850 LOOP
DC
2.0
-0
23860 StREM DC
3.0
-00
23870 SEQ
5.0
DC
-0000
23880 BUTTON OS
.455
23890 PHI
DC
2.0
-0
23900 RTEST OSC
1.0
0
23910 NTEST DSC 1.0
0

0-075
00000

12911

13104

49

-0000
01200
19893

X

2

1620 MONITOR 11
23920 PTEST
23930 DELETE
23940 HOLD5
23950 CNT
23960 COUNT
23970 MAPMA
23980 MAPEA
23990 LER019
24000 ZER06
24010 LOADse
24020 SCRAeH
24030 DIMNUM
24040 HOLD3
24050 HOLD4
24060 seRl
24070 seR2
24080 HOLD6
24090
24100 PNAME
24110

DUP ROUTIN.E

DLOAD, DREPL,. DELET

Dse 1,0
0
DSC 1.0
0
DC
5.0
-0000
DC
3,0
-00
3,0
DC
-00
5,0
DC
-0000
DC
5.0
-0000
DC
19.0
-000000000000000000
DC
6,0,IER019-13
-00000
6,0
DC
-00000
DC
6,0
-00000
DC
4.0
-000
3,0
DC
-00
DC
4.0
-000
DC
6,0
-00000
DC
6.0
-00000
DC
6.0
-00000
DAe 1,0
0
12,0
DC
-00000000000
DAC 1.'

DSC

f3134

13142

13150
13155

24210
24220 FWRIT
24230
24240
24250
24260
24270 FREAO
24280
24290
24300
24310
24320 CLOSW
24330
24340
24350
24360

13174

19

13161

6

13180

6

13186
13190

13197
13203

13215

6

13217
13229

12

13231

2

13167

12

13243

12

13244
13250

1 ••

J3252
1

13252
13257
13260

i'87
DUP ROUTINE

DLDAD. DREPL, OElET

PAGE

OSC 1.1
1
5,0
DC
-00011
DC
3.0
-00
5,0
DC
-00011
OSC 1.'

13267

.

13266

13272

.

13275

3

13280

5

13281

OSC 1.1
1
DC
5.0
-0000
DC
3.0
-00
DC
5.0
-OODO
OSC 1.'

13282
13287
13290

3

13295
13296

DSC 1.1
1
DC
5,0
-000f)
DC
3.0
-00
DC
5.0
-0000
DSC 1. '

13297
13302
13305

3

13310
13311

24370 EQUDDA OSC
22
24380
OSA

2.22

13312

EQUDCF

13318

2H90

I ••

13318
13319

24400 EQUDCF DSC 1,1
1
24410
DC
5.18278
J8278
24420
DC
3.020
-20
24430
DC
5.08600
-8600
Dse 1.'
2"HO

13320

24450 CDM2

13335

24460

6

6

13265

DSC
22
DSA

"

13209

DC
5.D8600
-8600
Dse 1. '

DSC

4

13191

13250
13251

1620 MONITOR 11

3

13145

24170 MOVDCF DSC 1.1
1
24180
DC
5.18331
JU31
24190
DC
3.038
-38

24200

50

13139

24120 ZER012 DC
12.0.lEROI9-7
-00000000000
24130 NINEl2 DC
12.999999999999
R99999999999
24140 MOVDDA OSC 2.22
22
24150
DSA MDVDCF
24160

PAGE
13133

2

J3320
1

13325
13328
13333
13334

2,22
COM22

13341
13341

~d'
d'

5 X
J3343

51

1620 MON /TOR 11
24470

DSC

24480 CUM22

DSC 1,1
1
DC
5,18512
J8512
]'020
DC
-20
DC
5.10600
J0600
DSC 1 ••

24490
24500
24510
24520
24530 CLOSR

24540
24550

DUP RDUTINE

DlOAD, DREPl, DELET

PAGE

52

13342

1,'

133
CONST7
CONST8
CORSIZ
CURREN
CYlDEL
D1READ
02READ
D3READ
D...READ
DCFSCR
DDASCR
DELETE
DELNT5
DIMENT
DIMERR
DIMHLD
DI"MER
DIMNUII
OMPOIII
DMREAD

O~28&

101>5&
04520
07816
10128
10266
09054
00796
10~1>4

02154
10432
10592
10llt8
00455
01036
09196
04321
0288 ...
13427
13176
13435
09818
13979
04986
10148
10156
01200
02853
0527 ...
12406
09952
02801
02801
05159
02825
02831
02831
02870
02483
08809
12~62

13491
13499
11286
11294
13373

1]1083
13134
091>04
19880
02485
08822
03672
13190
13403
02576

DUP ROUTINE

DONE SF
ll782
ORESTR 031>39
OSEVEN 09056
OUPCRO UI>U
EIGHTS 0998"
ENDWRT ll201>
EOUDCf 13320
EOUODA 13312
EOUOIM 19880
ERRCYl
110276
ERRSEQ 12913
EXITFL 069810
EXJTMR 081>2~
FAKSEY 02852
FlllST 102010
FINAlM 12815
F INDOA 15044
FINDFL 14988
FINOIM 13111
FINDLF
15031>
FINDON 01>140
flNOTR 03901>
FINDXX 10913
fREDDA
13461
FWADDA 131059
GETBAK 05110
GETllR 03011>
GETATA 02928
GOLDEN 02160
GPMARK 13116
HOLDCD 13041>
HOLDI" 10498
INITRD 09974
INITSC 09090
12218
INSDEL
INSERT 03414
INSETR 03434
KEYMES
1291>1
kSEYEN 10108
KYMESS 11998
LCrEST 09614
LIMITS 011>1>1>
LISTER 02164
LISTES 02190
lISTET 02194
LOADER 11310
LOADFL 04400
LOADRE ,01284
LOADSA 13102
LDADSC 13180
LDOPSY 09024
LOPEZA 01141
LOPElB 08no
LPSRDA 04!U4
MAIN81 06364
MAINB2 01>884

DLOAO, OREPL, DELET
MARVEL
MAXDIM
MIONIT
MOOOK!
MOONOI
MONCAL
MONJTR
MORERO
MOYBUS
MOYCAR
MOVDCF
MOYDOA
MOYES A
MOYESC
MOVfll
MOYF12
MDYNOW
MSTAKE
MXNOSA
N48000
NEGATE
NEWDIM
NINEl2
NINENT
NINESC
NOOISK
NDFLGS
ND"MON
NO"ULT
NDNAME
NOSEeA
NDSPAC
Olllln
PATCH I
PAlCH2
PATtH3
PATtH4
PKDDOA
PK100A
PK2DDA
PK3DDA
PLUSSR
QCARRY
RACKET
RDMDDA
ROIIOYE
READIN
REDS'D
REDSPI
REDSP2
REDSP3
REDSPL
REIIILK
REMOEL
REMOTR
REMOVE

PAGE

10884
038 ... 9
09372
101>82
10~82

00796
00796
06584
08724
08101
13252
132H
02862
02865
085 ... 8
08551>
10496
09024
05835
02710
07631>
0291>3
13243
09132
05153
09866
01748
02855
10030
09612
02851>
01092
10130
12798
11582
14951>
06216
02Ul
02660
021>83
02101>
04194
02813
OZl41
02591
02599
11178
04810
041'"
0419.
04942
04102
10628
12194
01104
03084

REMS1L
REPLFL
RLGONE
RSEVEN
ACTAA
ACTAC
ACTAO
ACTAG
ACTAH
ACTAJ
ACTAK
ALTER
ANAME
AOK
ATNR
ATN
BNR
CALC2
CALC3
CAlC4
CALC5
CALC I>
CAlCl
CARD
CCD2
CCO
CHIL
CLEAR
CLFP
CLOSE
CLOSR
CLOSW
CLRFP
C"PAR
CNINE
CNST]
CNT
COM22
COM2
CDMFL
COMM1
COMM2
COIIP
COUNT
DCl
DC22
DC2
DDAKF
DEll
DEL2
DELEr
DELFL
DELTA
DISKF
DISKN
DLDCF

13443
051>48
05656
05800
051>00
09315
IH88
06340
10871

TRACK
TREC
TRREC
TRWA
TRWB
UPDIM
UPSCA
VOILA
WASH
WR2
WRDK
WRT2
WRT
YES9
ZEROI>
SCRACH
SEARFP
SEQERR
SETFLG
SETMAP
SEYENT
SFSUCE
SKNAME
SPCRED
SPECAS
SPLADD
SPLCDR
SPLCYl
SPLDEL
SPLEXT
SPlINI
SPlINS
SPlIST

11176
01>884
09414
08739
0871>2
07312
07892
08112
10944
02259
01>768
08946
09022
12130
1311>1
1,11BI>
01360
10178
09122
10138
09108
08600
091>90
0541>2
09152
04514
03151
03187
12090
05061>
04 ... 70
10606
04330

IOU&
04400
04254
10800
09552
09968
09896
09260
09128
09104
09220
11282
10466
UIl8
08606
09042
09&50
02759
02179
02783
08791>
08790
02848
13090
1041>1>
10458
14692
0662 ...
01>1>91>
0929...
13358
13297
07688
09194
08810
03578
13142
13343
ln35
10100
07248
07263
10101>
13145
09554
01>091>
0~920

58
OLD
OLOAO
OMOOA
OMPDM
DONE
DREPL
DUMP
ENTOK
EOU1
EOU2
EQUFL
EQUIV
ERRO
ERR
EXIT2
EXIT3
EXIT
EZEST
FAREA
FIND
FINOX
fLAG
FORT
FOUND
FPOOA
FPOK
FP
fPSF
FREAD
FWRIT
GETL
GETR
GORT
HERE
HEX
HILIM
HOLD2
HOLD 3
HOL04
HOLDS
HOLDI>
INCRD
'INCRE
INITI
INIT2
INPUT
lOCAL
10GT
10PT
10RT
ISTO
KEVE
KEVI
KEY~

KING
LGE

10858
05800
02568
13411
09542
05800
13426
10362
08148
08156
08100
08606
02524
05662
09110
06936
10530
10700
13776
03838
10905
06512
13114
034"5
134~1

06864
1141>2
11642
13282
1321>7
02996
02872
10224
11194
02795
13~23

13104
13193
13197
13139
13215
09274
10241>
017"0
08360
13613
00716
00561>
00532
00565
05951>
05009
08813
08185
02458
14808

iSS
II>ZO MONITOR 11

lI"lT

LOAD 1
LOAD2
LOLIM
LOOK
LOOP
LSK
IIAINB
MAMY
MAPEA
"APMA
MAPRM
MAP
MAISC
MCAS
IICSI
MCS2
MCS
HEAT
MOYER
MOYFL
HPT
MULT2
MULT
NDISK
NERR
NEVER
N0200
NOALF
NOf
NOISY
NOMA
NOM8

08812
04448
04463
13955
101>90
13120
11141>
10310
09491>
13155
U150
13115
19880
13107
13113
U514
13522
11118
09292
08824
08500
08636
09914
09906
06848
03580
04291
1251>1>
09854
08981>
10380
08610
08678

END OF ONE ASSEMBLY.

NOIIC
NOMO
NOME
NONAM
NOREl
NORE2
NOSAC
NOS A
NOTOK
NTEST
Nfl
DKOEl
PACK
PAT2
PHI
PNAME
PRETA
PRET
PTEST
QHOLD
QUEEN
R2
RAKES
RDSPL
READe
READ
RECD
RELD2
RELD
REPll
REPL2
RGE
RMARK

DUP ROUTINE

11016
11064
11012
11002
011>00
08300
10886
13800
09634
13132
06380
01>148
02112
06131>
13130
13229
09000
081>38
13133
02819
0241>6
08950
10524
04594
10022
13419
09114
08532
08112
04448
0441>3
14424
12911

DLOAD, DREPL. DELEr
R
RTEST
SCAN 1
SCAN2
SCANN
SCERR
SCOLD
SCRl
SCR2
SCRAD
SCREM
seRKO
SCROK
SECT
SEQ
SF
SMALL
SOll
SOL
SPD
SPLFL
SPLRl
SPLR2
SPS
STEAL
STOMP
SUBHI
SUlLO
TAC
TfLG
THOU
TIC
TIPSY

08754

lUll
01788
08408
0971>2
12854
1391>7
13203
13209
09298
13123
IlZ54
01>588
10234
13128
10094
14291>
10666
101>58
10934
05160
05808
05823
01484
02845
on88
00039
00010
09812
08818
13096
09744
03410

PAGE
SPLPKO
SPLPK 1
SPLPK2
SPLPK3
STAROT
STflAG
SUCESS
SYSCAL
TELAST
TES TFP
rHRDDA
THROWS
TOPPRO
TRACK2
TRACK3
TRW8US
TRWCAR
TRYAGN
UPSCAN
WHIPIT
WHYNOT
WITHIN
WRLAST
WRMDDA
WRMOVE
WRTSPO
WRTSP 1
WRTSP2
WRTSP3
ZER012
ZER019
ZEROES
ZSEVEN

59
02645
02668
02691
02714
05022
13537
13118
00475
10751>
07516
02729
02137
10812
11778
13171>
08711>
081>93
04002
08512
05346
03388
08138
11842
02614
02622
0321>8
03300
03332
03364
1311>7
13114
08806
0941>8

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

DoRG
DUMP
BNF
tF
TR
TFN
TF
TO
TF
BD
B
OORG
DUMPCC SF
SF
•
CM

8H

SPL

loRM

Bl

tM
BE
CM
BE
tN
8E
B
OORG
TFM
B
IlORG
TF"
8
IlORG
CN
BNE
SF
CN
8H
CM
BL
TFM
TD
AM
B
IlORG
CM
BE
CM
BNE
SF
CM
BE
TFM
TFM
B
TF
TFM
B
8NR

2500
DUMPCC, NCS+23"
toNTRo-2
FIlAO,'t02

OUP ROUTINE

.DDUNP

PAGE
02500
02500
02512
02524

IS CALL FROM SPS,FORTRAN

FlLAD+5.0,9

02536

FILAD+3,425
F1LAO,422
SC,FILAO+8
PAPST ,MCS+23
tA

02572

02548
02560
02584
02596
02603
02604
02616

'-4

CONTRO-2, , ,
TYPE-I

CALL FROM CONTROL RECDRD

44
H
Jl
16
26
25
26
43
49

02604
13611
05474
05479
05477
05474
13643
03246
03190

17801
00000
00402
OD-OO
00425
00422
05482
17801
00000

32
32

13611
13646

00000
00000

14
46
14
46
14
46
14
46
49

13647
02906
13647

13647
06494
06080

OOONO
01100
000M5
01200
000N9
01200
OOOMI
01200
00000

16
49

13643
03026

-0002
00000

16
49

13643

-0003

03026

00000

13647
06080
13648
13649
06080
13649
06080
13643
02897
13643
03026

00002
01200
00000
000P3
01100
OOOPO
01300
-0004
13649
000-0
00000

13647
04634
13647
02178
13636
13643
04278
05196

000N3
01200
000N4
01200
00000
000-0
01200
J3642
-3025
H636
13643
-306J
05474
05414

OETERMINE TYPE
TYPE,50,10
LORM
TYPE,45,I0
E
TYPE,49,10
I
TYPE,H,10
TYPA
ERRD-12
u3
NUMB,EENT
BI
'-4
NUMB,NENT
Bl
.-4
TYPE,62,10
ERRD-12
TYPE+l
TYPE+2,73,10
ERRD-12
TYPE+2,70,10
ERRD-12
NUNB,SENT
U23,TYPE+2
NUMB,O,IO
Bl
'-3
TYPE,53,10
L
TYPE,54,10
SPl
NUMB-7
NUMB,O,IO
NAME
TO+6,NUMB-l ..
AN-I ,*+23
AN" NUMB-7, 7
FIND+23,NUMB ..
TR+23,*+23,711
TEMAP,FILAD
CoNT,FILAD

02628
02640

02652
02664
02676
02688
02700
02712
02724
02738
02738
02750

02757
02758
02770
02717
02178
02790
02802

02814
02826
02838
02B50
02862
02874
02886
02898
02906
02906
02918
02930
02942
02954
02966
02978
02990
03002
03014
03026
03038
03050
03062

CoNV MAP NO TO NUMERIC
F I NO MAP ENTRY

14
47
32
14
46
14
47
16
25

II
49
14
46
14
47
32
14
46
16
16
49
26
16
49
45

02738
13647

02758

05165
05166
05045
05129
04974
03094

1$7
1620 MONITOR 11
00560
00570
00580
00590
00600
00610
00620
00630
00640
00650
,00660
00670
00680
00690
00700
00710
00720
00730
00740
00750
00760
00770
00780
00790
00800

•

tONT
B2

CA

PAPST
SETUP

00BI0 READ
00820

oono '.
00840
00850
00860
00870
00880
00890
00900
00910
00920
00930
00940
00950
00960
00970
00980
00990
01000
01010
01020
010)0
01040
01050
01060
01070
01080
01090
01100

INIT

.

DUP ROUTINE

ERRDR MAP NO NOT IN USE
TFM D I MERR+22, D074, 8
ERRD
B
OORG .-)
TF
SC.FtLAD+8 ••
10D-l
SF
IOD,57,10,
CM
PAPST
BE
CM
100,63,10
BE
TYPWRT
CM
100,43,10
8ME ERRD-12
CF
01, "
TFM SEQUEN,O
TFM ENOTES+ll, TSXC+)5
TFM REllT-6,FINISC
SETUP
B
IlORG '-4
SF
01",
TFM ENOTES+U,AI0+11
TFM RELLT-6,FINISP
TFM F ILAD+13,SECTOR ..
TFM FIUO+8,3,9,
TDM FILAO+14 ...
OSC 1,' ,TFM
B

PAGE

.0DUMP
0)074
0)086

16
~9

06319
06092

0-07~

00000

D309~

SAVE SC FROM FllAD
OUTPUT DEV ICE TEST

OUTPUT DEVICE IS CARDS

OUTPUT DEVICE IS PAPER TAPE
SET UP "AD OF FllAO
SET UP SECTOR CNT OF FILAO

loRT,H23
IOGT,FIlOOA,7

03094
03106
0311B
0)130
031'12
0)154
03166
03178
03190
0)202
03214
0)226
03238
03245
03246
0)258
0)270
03282
0)294
03306
OU17

26
32
14
46
14
46
14
47

O)31B
0)3)0
0)342
03)54
0)366

33
16
16
16
49
32
16
16
16
16

13643
13644
13645
03246
136105
05510
1364~

06080
02647
02627
05325
03560
03282

05482
00000
000N7
01200
00003
01200
000M3
D1200
00000
-0000
-3621
-7138
00000

02647
05325
03560
054B7
05482
05488
1

00000
-3457
-7194
J8000
00-03
00000

16
49

00565
00566

-3341
-5466

16
16
16

01457
03597
03621

J8000
J8079
J8000

14

13643
03422
02736
03434

000-3
01300

44
12
47

02736
03586
03965
03930
03457
05314
02736
0)434

000-4
026'17
-0000
-31070
000P5
13611
000-1
01200

14
47

13643

03654

000-3
01300
00D-3
01200
000-3
00000
-0000

15

INITIALIZE ADORESSES
TFIt
TFM
TFM

SCTEST CM
BNL
TF
8
IlORG
FOUR
TFM
BNF
II
AI0
TFM
BTM
AM
TYPENO BNF
SM'
8ME
•
CM
Bl
SM
BE
RELLT AM
B
ooRG
•
Tsxe
TFM

AlO+U, SECTOR
TSXC+ll, SECTOR+79
TSXC+35,SECTOR
SET LOOP COUNTER
SC,),IO
FOUR
LooP,SC
FoUR+12
'-'1
LoOP,'1,10
TSXC,OI
PAPER+35,XX,7,
PAPER,u12
AlO+II,75,10
ENDTES,CoNTRo-2
loOP,I,10

CAll PAPER TAPE

Ll

O)37B
0)390
0)402
01414
'0)421
03422
0)434
0)446
0)458
03470
0)1082
03494
0)506

46
26
49
16
44
16

17
11

136103
00000

liTTLE LOOP FINISHED
SC,),10

AI
SC,3,10
XX
FILAO+5.3.10
READ
.-4

0)518
03530
03542
03554
0)566
03578
03585

46
49

1364)
00000
05479
0)]18

0)586

16

04093

12
11

tAll eARO ROUHNE
A81+II, XX

711

1620
01110
01120
01130
011.0
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01210
01280
01290
01)00
01310
01320
01)30
01340
01150
01360
OU10
01)80
01190
01400
01.10
01.20
01.,0
01440
011t50
011t60
01ltl0
OIUO
01490
01500
01510
01520
01530

Al

A2

A3 :

Aft

PAPER
T03

0151t0 CARO

01550
01560
01510
01580 ABI
01590
01600
01610
01620
01630
016.0 FINI
01650
01660

TF"
B
AM
AM
B
OORG
CM
BNE
TF
TF
CF
CF
8MF
TF"
BTM
B
OORG
TFM
TFM
B
8
OORG
TF
CF
8NF
TFM
BTM
B
OORG
TFM
TFM
8
8
TF"
CF
TO
A
CM
8NE
ONPT
BTM
8
DORG
TF
TFM
TFM
CF
TD
SM
8E
S
8
OORG
AM
TF
TFM

MO~lTOR

OUP ROUTINE

11

-DDUMP

PAGE

PUN,-+23.711
CARD, SECTOR,1
TSXC+II, 15
TSXC+35,75
TYPENO
--4

se.l,lo,

REMAINING SC

A3
SEC TOR+14.9,ZERO
SEC TOR+ 12.,ZERO
SECTOR+125
SECTOR+lOO
Al,OI
PAPER+35, SECTOR+15"
PAPER,HI2
FINISP

LESS

THA~

03598
03610
03622
0363.
036.6
03653
THREE

03651t

03666
03618
03690
03702

SC-I-SPECIAL PAPER TAPE OUTPUT

--It

ASl+ll, SECTOR+154"
PUN,"23,111
CARD, SEC TOR+15
FU'IISC

SC-l

.-.
.-.

SPECIAL CARD OUTPUT

SECTOR+22It,ZERO
SECTOR+200

Alt. 01

PAPER+35, SECTOR+150"
PAPER,"12
FINISP

SC-2

AB1+11, SECTOR+229"
PUN, •• 2).711
CARO,SECTOR+150
FINISC
T03+6,19925
rD3+1
XX, . . ,2
T03+11.CONI
T03+6,20000
T03
19925
ERRDMP,_+12
PAPER-I,,6

SC-2

SPECIAL PAPER TAPE OUTPUT

SPEC UL CARD OUTPUT

~9

04034
03597
03621

11
11
49
lit
.1
26
26
33
33

."

0381~

26
33
44
16

03826
03838
03850
03B62
03874
03881
03B82
0389~

0391t2

0395.
03966
03978
03990
0.002
04014
0.026
04033

FINI+18,A81+11
ABl+6,SAV
CNTS,5,I0
AB1+1
SAV,XX,2
CNTS,l,lO
F-INI
ASl+11,CONI
ASI
--4
SEQUEN,l,lO
XX, SEQUEN
IORT.·+23

0725~

031H
03726
03138
03750
03162
03769
03110
03182
03794
03806
03BU

03906
03918
03930

_-It

16

01t031t

0.046
04058
04010
0.082
01t09.
OU06
OU18
0.130

oun
04138
OU50
OU62

16
11
49

16
16
49
49

03~82

-362J
JBOOO
-0075
-0015
00000

13643
03814
18149
18124
18125
18100
03770
03965
03930
07194

000-1
01200
07288
07288
00000
00000
026lt7
J8015
-3162
00000

0~093

J8154
-380N
18075
00000

07254
0~034

01138
18224
18200
03882
03965
03930

49

0719~

01288
00000
02647
J8150
-3874
00000

16
16
.9
49
16
33
25
21
I.
.1
35

04093
0125"
0.034
01U8
03960
03961
-0000
01965
03960
03954
19925
06152
0392R

J8229
-39IP
18150
00000
J9925
00000
00000
07384
KOOOO
01200
00200
-4026
00000

OH56
04088
02651
04089
-2965
02651
0.138
04093
010082

04093
-2965
000-5
00000
00000
000-1
01200
07384
00000

02627
00000
00565

000-1
02627
-4185

17

11
1t9
26
16
16
]3

25
12
46
22
.9

11
26
16

199
1620 MONI TOR 11
01610
01680
01690
01100
01710
01120
01130
011.0
01750
01160
01110 NAME
01180
01190
01800
01810
01820
01130
018100 COMPE
01850
01860
01810
01880 RO
01890
01900
01910
01920
01930
01940
01950 LOOP3
01960
01910
01980
01990
02000
02010
02020
02030
02040
02050 •
02060 ERNf
02010
02080
02090 FaUNa
02100
02110
02120 •
02130
02140 L
02150
02160
02110 STFLG
02180
02190
02200
02210
02220

B
TD
A
AM
CM
BNE
CF
AM
B
OORG
TF
TFM
B
SF
C
BE
TFM
CM
BNH
TF
TFM
TFM

I OPT, PUN-., 7
ABI+11,A81+6,611
AB1+11,CONI
CN15,1,10
CNT5,5,10
FIN1+48
PUN
PUN,l,lO
PUN,,6,

--.

FINO+2],E+11
TR+23,n23,1l1
FIND, FILAO ..
NAM-11
NAM,ZER012
ERRD-12
FILAO+13,EQUIV
FIUD+8,.O,9
RO
SAY,FIUO+8
FILAO+8,ItO,9
10RT ,.+23
a
10GT,FILOOA,l
TFM LOOP3+6,EQUIV+11 ..
TF
"n,LOOP3+6
BNR lOOP3,"
B
ERNF
OORG .-3
XX,NAM
C
8E
FOUND
AM
LDOP3+6,16.10
CM
LOOP3+6,EQUIY+.Oll
BL
lOOP3-32
SM
SAV,.O,IO
TF
F ILAD+8, SAy
AM
FILAD+',40,10
COMPE
B
OORG e-4"

DUP ROUTINE

BRANCH

-ClOUMP

PAGE

BACKS

OBTAIN EQUIVALENCE

TAB~E

DIM

0.114
041B6
04198
0.210
0.222

H

-7250

01023.

H

050105

027109

05129
05022
13624
13635
06080
05.81
05482
041t10
02965
05482
00565
00566
04484
04.69
04418
0.582

-431L

-5466
J6011
04.84
00000
00000

12
26
11
.9

00000
04602
0.484
04484
0.446
02965
05.82
05479
04362

13635
01200
000J6
kOO11
01300
OOOMO
02965
OOOMO
00000

16
1t9

06319
06092

OP2l0
00000

11

0448.
05045
03038

0.48M
00000

05196
0.616
0.688
13652
13653
04126
06319
06092

J3662
J3652
J3653
00000
OOOPO
01300
OP115
00000

25
21

11
14

0.2.6 33
0.258 11
04210 49
04211
0.218 ·26
04290 16
0.302 49
OHlIo 32
OH26 21t
0.338 106
0.350 16
010362

OHllt
0.386
OH98
0.1010

0.422
SEARCH EQUIVALENCE TABLE

00532
01t09L
04093
02651
02651
04186
01254
01254
Ot25M

010.,.
010 ••6

0 •• 58
0 ••10

110

n

26
16
16
.9
16
26
.5
49

0~08Q

07384
000-1
000-5
01200
00000
000-1
00000

05~1.

00000
07215
01200
J6000
00-40
01100
05482
00-40
-41033

010478

04418
0 ••90
0.502
OU14
0.526
0.538
0.550
04562
0.51.
·0.581

24
106

11
14

n

ERROR - NAME NOT IN EQUIY
TFM
B
OORG
AM
TF
B
DORG
TFM
TF"
TFM
SF
CM
BNL
TFM
B
OORG

DIMERR+22,1210,8
ERRD

_-3

LOOP3+6, •• 10
FIN0+23,LOOP3+6,11
81+12".

.-.

FIND MAP ENTRY CORRESPONDING TO
NAME

0.582
0.594
0.602
·0.602
01t614
046210

26
1t9

000-10

a.633

TD+6, SA1-1
STfLG+6,SAI-ll
STFlG+l8,SAl-10
SAI-11
SAl-IO,70,10
-+32
DIMERR+22,7115,8
ERRD
--3

01063.
046.6
04658
0.610
0.682
0.69.
04106
0.118
04126

SUu

16
16
16

32
14
.6
110
49

4

1620 MONITOR 11
02230
02HO
02250
02260
02210
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430
024"0
02450
02460
02"70
021010
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580

BEGS

TEMAP

FINO

TR

02590
02600
02610
02620 AN
02630
026100 TO
02650
02660
02610
02680
02690
02100
02110
02120
02130
021100 ERMAP
02750
02760
02110 ENOTES

CF
AM
AM
CM
8L
TFM
8
TFM
TFM
8
SF
SF
CF
TO
TF
TF
S
AM
8H
TFM
8
DORG
CM
INH
CM
IH
TFM
AM
A
TO
TOM
TFM
8
fR
TOM
OSC

STFLG+6,2,10
STFLG+18,2,l0
STFLG+6,SA2+1
STFLG
AN-lt*+23
AN, SAl-ll ,1
TO+6, SA2-1
AN-I. ... 23
AN. SA2-11,l
5AI-4
SA2-4
5AI-5
FILAO,SAI-5
FILAO+5,SAl
SC,SA2
SC,SAI
SC,1,10
82
0IMERR+22 ,1111, 8
ERRO
a-Io
FINO+23,O,10.
ERMAP
FINO+23,10994.8
ERMAP
5AFCF+5,MAPTAI, ,
SAFCF+6,KX
SAfCF+6,FINO+23
fR+lO,SAfCF+6 .
SAfCF+6,O

PAGE
0"126
04138
04150
010762
010114

04186
04198
010810

04822
04834
0108106

04858
04810
010882

04894
0"906
04918
010930
0109102

0"954
010966

,

TR+23
TA+23,1
TR+23.,6
TO+l1.TO+6,.
TO+ll,1
XX,XX,21
TO+6,1
TOoll,2
TOoll,AN-l,ll
TO
T006,1,10

IS MAP NO. WITHIN LIMITS

010974
010986
010998

05010
05022
05034

GIVEN DIM, READ ENTRY TO CORE

050106

05058
05070
05082
05094
05106
05118
05129
05130
051102
05154
05166
05118
05190
05202

ALPHA TO NUMERIC CONVERSION

052110

TO+6,,6

AN-l,I,10
AN-l,,6
.-10

o IMERR+22 ,0016 ,.
ERRO
·-3
LAST.XX,.

33
11
11
14
41
16

04610
04616
04688
0"616
04610
05165
05166
05196
05165
05166
13659
13611
13658
05414
05479
13643
13643
13643
03106
06319
06092

00000
000-2
000-2
H616
01300
-4809
J3652
H614
-4845
J3664
00000
00000
00000
13658
13663
13615
13663
000-1
01100
OPl11
00000

050"5
05294
05045
05294
05499
05500
05500
05116
05500
00565
00566
0512R
05488
1

000-0
01100
01499"
01100
-1oB00
-0000
05045
05500
00000
-5105
-5"58
18000
00000

05129
05129
0512R
05201
05201
-0000
05196
05201
05201
05190
05196
05190
05165
0516N

00000
-0001
00000
05196
-0001
-0000
-0001
-0002
0516N
01100
000-1
00000
000-1
00000

109

06319
06092

0-016
00000
00000

109

16
16
109

32
32
33
25
26
26
22
11
106

16
49

5

04973

I OGT , SAFOOA, 7
0+23, SECTOR,6
FllAD+14, ••

CF
AM
I
TF
SM
TO
SM
SM
C
AM
SF
AM
8
DORG
TFM
I
DORG
TF

aOOUMP

IORT,-.2]

1,',-

8H

QUP ROUTINE

STFLG+6, ,6

SPS-fORTRAN TERMINAL TEST - 99999

14
41
14
46
16
11
21
25
15
16
109

31
15

33
11
109

26
12
25
12
12

05226
05238
05250
05262
05274
05286
05293
05294
05306
05314
05314

210
106

26

02615

05326
05338
05350
05362
05314
05381
05382
053910

12

02615
03494
02651
05382
03"9"

000P5
0261N
000-5
0261N
00000

12
"6

02651
05426
02615
05362

000-1
01200

210

01262
07230
03494

0261N
01200
00000

11
32
11
49
16

aliI
1620 MONITOR 11
02180
02190
02800
02810 8HR
02820
02830
028100 IN8
02850
02860
02810
02880
02890 COM
02900
02910
02920
02930 SAFOOA

SM
INF
TFM
INR
8
DORG
SM
8E
AM
I
DORG
C
IE
I
DORG
OSC
22

OUP ROUTINE

PAGE

-OOUMP

LAST,n,10
TYPENO.12,UST,ll
CN15,5,10
IH8,UST,l1
TYPENOH2
.-10

CII15,l,10
COli
LAST,lo10
IINR
.-4
TRAlLolo,LUT,l1
FINISPollo
TVPENO+12
.-3
2,22

029100

DSA

SAfCF

02950

OSC

,

1,'

051006

05"18
05"25
05426
05438
051050
051058

104

16
"5
49

11
109

"6
49

05458
0510"

,

-51074

1,'

051012
051013

000010

0
1

,4
OS
OSC 1,0
0
5,0
DC
-0000
3,0
DC
-00
5,0
DC
-0000
OSC 6,00000'
00000'
OSC 6,0
000000
OSC 3,1
001
OSA SECTDR

01010
03040

03050 SAFCF
03060
03010
03080

,

DC

03090 TVPWRT eM
03100
INH
03110
TfM
03120
TFM
03130
TFM
TFM
031"0
03150
8

2

051066
051072

OSC

03020

-549"
1

2,22

02990 SENT
01000 FILAO
03010

051065

FILlO

02980

00000

2

05106,.

02960 fllODA OSC
22
02910
OSA

000-1

5 x
1

0510110

05419
3

051082

051087
051088

6

051094

6

05500
05507

X

05507
05508

1,'
TYPE,Io5,10
SPECAl

05510
05522
0553"

COUNT.O,9

fllAOoe,Io9
FILAD+13, 19900

055106

05558
05510
05582

IORT,*.2J
IOGT,FILDOA,7

802

J8000
1
lit
H

16
16
16
16
109

136107
05686
0'6078
051082

05481
00565
00566

000M5
01100
00-00
00-01
J9900
-5593
-5466

6

1620 MONITOR 11
RC fY
03160
03170
DNTY
03180
8TM
03190
AM
AM
03200
03210
C
03220
Bl
03230
8
03240
DORG
03250 SPECAl CM
03260
8E
03270
RCTY
03280
TFM
TFM
03290
03300
TFM
03310
TFM
03330
TFM
03340
IFM
033S0
8
03360
TFM
03370 TFWRIT IF
03380
BNR
03390
B
03400
DORG
03410
WArY
03420
SPTY
03440
IF
03450
WNTY
03460
SPTY
03470
SPTY
03480
AM
03500
AM
03510
AM
03520
CM
03530
8l
03540
RCTY
03550
A
03560
CM
03570
8l
03575
AM
03580
8
03590 NUMOUT DC

DUP ROUTINE

PAGE

*ODUMP

05594
05606
05616
05630
05642
05654
05666
05678
05686
05686
05698
05710
05722
05734
05746
05758
05710
05782
05794
05806
05818
05830
05842
OS850
05850
05862
05874
05886
05898
05910
05922
05934
05946
05958
05970
OS982
05994
06006
06018
06030
06042
06059

19900
ERROMP, ...·lZ
F:LAO-+5, 1.10

COUNT,I.lO
COUNT, SC

·-96
FINISP+36
'-3
TVPE,41dO
TYPA

FIlAO+8,32.9
FllAO+l3,EQUIY

CNT2.0,9
TFWR I T+ll,EQUI Y+ll
TFWR I T+67 ,EQUI Y+l5

IORT,-"23
IOGT,FIlDDA,7

COUNT,O,IO
NAMOUT+ 10,EQUIY'11

."20,TFWRtT+ll.l1
FINISP+36
'-3
NAMOUI
NUMOUT-l, EQUIY.lS
NUMOUT-4

TFWRIT+ll.16.10
TFWRIT+67,16,10
COUNT, 1,10
COUNT ,SolO
TFWRIT
CNT2,COUNT
CNT2,200,9
TFWRI T-12

FILAO+5,J2.10
TFWRI T-72

6,00000'
-0000'
03600 NAMOUT DAC
7, 000000 II

24
47
49

00000
19900
06152
05479
06076
06078
05570
07230

00102
00100
-5630
000-1
000-1
13643
01300
00000

14
46
34
16
16
16
16
16
16
49
16
26
4S
49

13647
06494
00000
05482
05481
06076
05829
OS885
00565
00566
06078
06071
05850
07230

OOOMI
01200
00102
00-32
-16000
00-00
J6011
J601S
-5805
-5466
000-0
16011
0582R
00000

39
34
26
38
34
J4
11
11
II
14
47
34
21
14
47

06061
00000
06058
06055
00000
00000
05829
05885
06078
06078
05818
00000
06076
06076
05806
05479
05746
6

00100
00101
16015
00100
00101
00101
eJOOJ6
000J6
000-1
000-5
01300
00102
06078
OOKOO
01300
00012
00000

17

11
11

11
49

06061

000000 '
]'0
DC
-00
COUNT
2,0
DC
-0
TFM 01 MERR+22. aOll. 8
ERRD
RCTY
TFM
IORT,·"23
JOpr.DATAT-4,7
8
H
8
MONCAl
ERRoMP 81
.+12,3600

03610 CNT2

06076

03620

06078

03630
03640
03650
03660
03670
03680
03690

34
35

7 X

06080
06092
06104
06116
06128
06140
06152

16
34
16
49
48
49
46

06319
00000
00565
00532
00000
00796
0616'

06164
06176
06188
06200
06208
06208
06220
06232
06244
06252
06253

46
46
46
49

06176
06188
06208
0615J

03700
03800
01900
00000

34
39
48
49

00000
06253
00000
0615J

00102
00100
00000
00000

0-071
00102
-6127
-6288
00000
00000
03600

811:;
1620 MONITOR
03700
03710
03720
03730
03740
03750
03760
03770
03780
03790
03800 ERDUMP
03810 DATAT

03820

IORT
IOPT
IOGT
MONCAl
CONTRO
DIMMER

OMoDA

04020

04030

11

OUP ROUTINE

.DDUMP

PAGE

."12,3700
."12,3800
.+20,1900
ERRDMP-l"b
'-3
ERoUMP

8

ERRoMP-l,,6
oDRG '-3
oAC
18,OUP'ERROR IN DUMP'
OUP'ERROR IN DUMP'
OSA OIMERR

DC

03830 olMERR
03840
03850
03860
03870
03880
03890
0]900
03910
03920
03930
03940
03950
03960
03970
03'180
03990
04000
04010

81
81
81
8
DORG
RCTY
WArY
H

5 X
-6297
3

06292
06295

3,06'

-6'
DG" Of' • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •
oAC
13,OUP.ERROR DO'
DUP.ERROR DO'
OS
,565
,532
OS
,566
OS
OS
.796
OAS
81,13613
TF
CAlC2,NEWOIM
A
CAlC2,CAlC2
TF
CAlC3,N48000
A
CALC 3,CALC2, ,NEW 01 M SECTOR ADDRESS
TF
DMREAo'I30DRESTR
TO
•• 23,CAlC3
SM
OMREAD+ 12 ,0,10, AD JUS T DIM READER S A
TF
DMREA0+5,CAlC3-1
TFM
IORT. * .. 23
IOGT, DMoOA, 7
8
88
DORG '-9
DSC
2,22
22
OSA OMREAD

DSC

18 X

06292

06295
06297
00565
00532
00566
00796
13613
06322
06334
06346
06358
06370
06382
06394
06406
06418
06430
06442
064410
06444
06450
06450
06451

I, '

04040 DMREAD OSC
I,D
0
04050
DC
5,0
-0000
04060
3,1
DC
-01
04070
DC
5,19900
J9900
04080
DSC
I, '

06452

,

06466

04090 CAlC3

6,0
DC
-00000

06472

06457
06460
06465

8u~

1
13 X

26
21
26
21
26
25
12
26
16
49
42

0
0
0
0
81 X
2
06471
07137
06477
06417
06472
06492
06472
06477
06465
06482
0640~
06472
06464
000-0
06457
06471
00565 -6441
00566 -6444
00000
00000

5 X
-6452
1

1620 MONITOR 11

OUP ROUTINE

PAGE

-OOUMP

5,0
DC
-0000
04110 ORESTR DC
5,19880
J9880
04120 TWICE DC
1t,0
-000
04130 N48000 DC
6,048000, ,FIRST SECTOR OF DIM MAP
-48000
04140 TVPA
TFM NEWoIM,0004,8
04150
TOM CONTRO+l5,,11
04160
NEWoIM,CoNTRO+l6, ,
A
04110
DIMMER, oIMMER-I
8T
04180
TO
oUMSV,19880
04190
oUMSV+I,19881
TO
04200
TFM IORT,*+23
04210
8
10GT,oUMSW,1
TFM TYPSEC,,, ZERO FIELD
04220
04230
TFM UPPER,10803
TFM LoWER,10800
042"0
04250
RCTY
04260
CF
10700
04270
TOM 10705.
01t280
1,' ,.
DC
04100 CALC2

04290
010300
010310 UREAL
04320
04330
04HO
04350

04360
04370
04380
04390
0""00
04'110
04420
04430
04"'10
04450
04460
04HO
04480
0"490
04500
04510 TONV
04520
04530
04540 NINIT
04550
04560
04510
04580
04590
04600

.

WNTY
RCTV
BNR
TOM
8
DORG

9

06H7
06482

061t86

4

06492
06494
06506
06518

06530
065-42
06554

06566
06518
06590
06602

06614
06626
06638
06650
06661

10100

06662

06614
"32,LOIIER,1l

06686
06698
06710
06118
06718
06730
06n2
06154

SYSCAL,3 ••

MoNCAL
--3
LoWER,,6
SF
TF
EXAMIN,UPPER,l1
CM
EXAMIN-3.7,1011
8E
FORWAR
CM
EXAMI N-3,9, 1011
liE
NINIT
EXAMIN,0001,8
CM
TONV
BE
EXAMIN,TWICE
C
FORIIAR
8E
TF
TIIICE.EXAMIN
TF
NElIoIM.EXAMIN
8T
DIMMER. oIMMER-I
A
TYPSEC.19888
8
FoRIlAR
DORG --3
AM
TYPSEC.200.9
8
FOtIIiAR
DORG --3
RCTV
CF
TYPSEC-4
WNTV TYPSEC-4
SF
TYPSEC-4
SF
EXAMIN-2
A
TYPSEC.EXAMIN
SPTV

16
15
21
21
25
25
16
49
16
16
16
34
33
15

07137
13648
07137
06322

00565
00566

38
34
45
15
49

06118

01098
01099
01117
07123
01128
00000
10100
10105
I

00475
00196

00100
00102
0712Q
00003
00000

0112Q
01133
01130
01058
01130
.06914
07133
06894

00000
0712L
OOO-P
01200
OOO-R
01200
0-001
01200

01133

06486

07058
06486
01137
06322
01111
01058

01200
07133
01133
06321
19888
00000

11
49

01117
01058

OOKOO
00000

34

00000
01113
01113
07113
07131
01111
00000

00102
00000
00100
00000
00000
01133
00101

32
26
14
46

06166

lit

06778
06190
06802
06814
06826
06838
06850
06862
0687"
06886
06894
06894
06906
06914
06914
06926
06938
06950
06962
06974
06986

"6
1'1
46
24
46
26
26
27
21
49

TYPSEC.Ol.IO
TVPSEC-4
TYPSEC-4
TVPSEC-4
TVPSEC.Ol.IO
UPPER.04,l0
lOWER.0".10
UREAL
--3
2.22

06998
07010
07022
01034
07046
01058
07010
010112
01090
07090

12
33
38
32

DUMSV

07096

1.'

01096
07097

33
38
32
32
21
34

10100
00000

0-004
0000136,,9
06321
19880
19881
-6589
-7090
-0000
J0803
J0800
00102
00000
00000

8/)5
1620 MONITOR 11
04610
SM
04620
CF
IINTV
0"630
04640
SF
04650
AM
0"660 FORIIAR AM
04670
AM
04680
8
04690
DORG
04100 DUMSW OSC
22
OHIO
DSA
04120

DC

OUP ROUTINE

-OOUMP

PAGE

047]0 DUMSV

DSC 1.1
1
04740
DC
5.19800
J9800
04750
DC
3.080
-80
04160
DC
6.10100'
J0700'
0"170 TVPSEC DC
5.0
-0000
04780
1 ••
DC
Oto190 UPPER

04800 LOWER
04810

11
11
11
49

01117
07113
01113
07113
01111
01123
01128
06686

000-1
00000
00100
00000
000-1
000-"
000-4
00000

2
5 X
-1098
1

07098
01103

5

01106

3

07112

6

01117

5

07118

DC
5.0
-0000
DC
5.0
-0000
DC
1.0

01123

5

07128

5

07129

04820 EXAM IN DC
".0
-000
04830 NEliolM DC
4.0
-000
04840 MAPTAS OS
0.4800
04850 LAST
DC
5,0.DUMPCC+ll
-0000
04860 SA2
OS
0.CONTRO+62
04810 CI'lT5
DC
2.0.DUMPCC+41
-0
04880 F1NISC CF
ZERD-2"
04890
TFM A81+11. TRAIL+79
04900
TFM PUN.*+23,111
04910
8
CARD. TRAIL
04920
8
FINISP+36
049]0
DORG --3
ZERO-24
0"940 FINISP CF
04950
TFM PAPER+35. TRA IL
04960
STM PAPER,."12
04970
TOM SVSCAL,3
04980
8
MONCAl
04990
DORG --3

0713]

"
4

07131
04800
02615

0
5

13675
02651

0
2

07138
07150
01162
01174
01186
01194
07194
07206
07218
012]0
012"2
07250

hG

33
16
16
49
49

33
16

11
15
49

00000

0726"
0"093
07254
04034
01230

-718N
01258
00000

0726"
03965
0]9)0
00475
00196

00000
-7258
-72]0
00003
00000

-1337

10

1620 MONITOR 11
05000 PUN

DSA

DUP ROUTINE

PAGE

*ODUMP

XX

DC
),04'
-4'
DGM *, ...........................................................
05020 RAil
DC
6,99999'
R9999'
05030 TRAil DS
0.RAIL-5
05040 ZERO
25,.0
DC
-000000000000000000000000
05050
DSC 45,0
000000000000000000000000000000000000000000000
05060
OSC ~-5,O
000000000000000000000000000000000000000000000
05070 lER012 OS
O.ZERO-13
05080 NUMB
OS
0.CDNTRO+30
05090 TYPE
OS
0, CONTRO+34
05100 AENT
DS
0,4
05110 MENT
DS
0,3
05120 EENT
OS
0.2
05130 SC
O,NUMB
OS
05140 SECTOR DSS 300.18000
05150 100
DS
O.CDNTRO+n
05160 01
1,0, DUMPce+4')
DC
05010

05110 SEQUEN DC

11

07254
07254
07257

-0000
3

01257
01263

1
6

07258
07288

0
25

01289

45

01334

45

01275
13643
13641
00D04
00003
00002
136H
18000
13645
02647

0
0
0
0
0
0
0
300
0

5.0,DUMPCC+23

02621

6.0,E-2

02736

I

-0000
051BO LOOP

DC

6

-00000
05UO SAY

DC

5.0, lORM+ 59

02965

1,',E-l

02737

-0000
05200 RM

DC

05210 NAM
05220 SAl
05230 CONI

DS
OS

0.CONTRO+22
O. CONTRO+50
DC
6.100001
JOOOOI
05240 EQUINO OS
0.FILAO+8
05250 XX
OS
0.0
05260 SYSCAl OS
.it75
05270 MCS
OS
.17118
05280
DAC
I,D
0
05290 EQUIV DSS 4000,16000
05300 JACK
TFM
10RT ••• n
05310
10PT, TEN,1
8
05320
TRA
05330 TEN
05140
05350

DSC
22
DSA

DC

13635
13663
07184

0
0
6

05482
00000
00475
11118
OH8f

0
0
0
0
1 X

2,22

16000
07388
07400
07U2
07424
01436

NINE

01442

I, '

07442
01443

16
49
36
49

4000
00565
00532
00000
00000
2

-HlI
-7436
00500
00000

5 X
-74""
1

tffl;1620 MDNITOR 11

DUP ROUTINE

PAGE

.DDUMP

05360 NINE

DSC
I

101

01444

05370

DC

01452

05400

5,18430
J8430
3,050
-50
DC
6,02500'
-2500'
TCD JACK

07449

DC

05410

DEND DUMP

02500

05380
05390

07458
01388

6

12

1620 MONITOR 11
CONTRa
D[MERR
D[MMER
DMREAD
DRESTR
DUMPCC
ENDTES
EgU[NO
ERDUMP
ERRDMP
EXAM[N
FllDDA
F[NISC
FIN[SP
FORWAR
MAPTA8
MONCAl
N4BOOO
NAMOUT
NEWDIM
NUMOUT
AI0
Al
A2
A3
A4

13613
06291
06322

ASI
AENT
AN
81
B2
BEGS
BNR
CAlC2
CAlC3
CARD
CA
CNT2
CNT5
COMPE
COM
CONI
CONT
COUNT
DATAT
DMDOA
DUMP
DUMSW
DUMSY
EENT
EQUIV
ERMAP

0645l
06482
02604
05314
05482
06253
06152
07133
05466
07138
07194
07058
04800
00796
06492
06061
07131
06059
03446
03654
03170
03814
038B2

DUP ROUTINE
0~082

00004
05166
03026
03106
04894
05362
06H7
06472
04034
03190
06076
02651
04362
05426

0738t,
0)094
06078
06292
06444
02500
07090
07098
00002
16000
0529~

.DDUMP
ERNF
ERRD

E
F[UD
F[NI
FIND
FOUND
FOUR
[N8
INIT
100
10GT
10PT
10RT
I
JACK
L1
LAST
lOOP3
lOOP
lORM
lOWER
l
MCS
MENT
NAME

PAGE
04582
06092
02138
0547"
04138
05022
04602
03422
05382
03342
13645
00566
00532
00565
02758
07388
03434
02615
04478
02736
02906
07128
04634
17778
00003
04278

NAM
'UNE
N[NIT
NUMR
O[
PAPER
PAPST
PUN
RA[l
RD
READ
RELLT
RM
SAl
SA2
SAFCF
SAV
SC
SENT
SETUP
SPL
STFlG
TD3
TO
TEMAP
TEN

TONY
TRA[l
TR
TSXC
TW[CE
TYPA
TYPE
UPPER
UREAL
XX
ZERO
SAFDDA
seTEST
SECTOR
SEOUEN
SPECAl
SYSCAl
TFWR IT
TYPEND
TYPSEC
TYPWRT
ZER012

1363S
01444
06914
13643
026H
03930
03246

Oll54
07263
04410
03318
03566
02737
13663
13675
05494
02965
11643
0000"
03282
02778
04670
0395~

05190
04974
07416

END OF ONE ASSEMBLY.

00010
00020
00030
00040
00050

000110
00070
00080
00090
00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240

.........
...
10PT
IOGT
IORT
olMMTR

oHooA

00250

1620 MaN ITOR' 11

OUP ROUT 1 NE

'DEF IN

PAGE

SUBROIIT INES- DIMMER.GETR.GETL .REMOVE .INSERT .FIND
THI S VERSION OPERATES WITH THE SPL alWAYS IN CORE Til JUST
BEFORE THE RETURN TO THE MONITOR
DORIO
OS
OS
OS
TF
A
TF
A
TF
TO
SM
TF
TFM
B
BB
DORG
DSC
22
DSA

2458
.532
.566
.565
CALC2.NEWDIM
CAlC2.CALC2
CALt3.N48000
CALC3,CALt2 .. NEW DIM SECTOR ADORESS
DMREAO+13.DRESTR
0+23.CALC3
D"RUD+l2.0.10.ADJUST DIM READER S A
DMREAO+5.CALC3-1
IORT.0+23
10GT ,OMDOA. 7
'-9
2.22 •• DDA FOR DIMMER-READS ONE SECTOR

02458
00532
00566
00565
OH58
02470
02482
02494
02506
02518
02530
02542
02554
02566
02578
02580
02580

26
21
26
21
26
25
12
26
16
49
t,2

0
0
0
02613
02613
02608
02608
02601
02541
02600
02593
00565
00566
00000

DMREAO

02586

5

DSC

1,'

02586
02587

-2588
1

00210 oMREAo DSC

1.0

02588

00260

00280
00290
00300
00310
00320 CALC]
00330 tALC2
00340 ORESTR
00350 N48000
00360 CORSIl
00370 THROoA
00380
00390

o

DC
5.0
,.0000
DC
3.1
-01
DC
5.19900
J9900
DSt

I.'

DC
6.0
-00000
DC
5.0
-0000
DC
5.19880 .. RESTORES CORE ADDRESS FOR DIM DDA
J9880
DC
6.048000 .. FIRST SECTOR OF DIM MAP
-48000
DC
3.080..
THE PRESENT LENGTH OF THE SPl
-80
OSC 2.02..
DoA FOR SAYING CORE WHEN MOVING THE EQV. TA8lE
02
DSA THROWS

OSC

1,,'

096t,9
02613
02624
02613
02618
02608
000-0
02601
-H77
-2580
00000

x

02593
02596
02601
02602
02608

6

02613

5

02618
02624
02627
02628

2

02634

5

02634
02635

-2636
1

x

13
06894
01258
05106
03586
06486
0649~

[3641
07123
06686
00000
01288
05458
03378
18000
02621
05686
00415
05818
03482
01117
05510
07215

1620 MONITOR 11

DUP ROUTINE

'DEFIN

PAGE

00400 THROWS OSC 1,0
0
00410
5,02000
DC
-2000
00420
DC
3,100
JOO
OOHO
DC
5,09800
-9800
00440
ose 1, '

02636
02641

,

DSC

00620

OSC

02675
00000

0-071
00102

39
48
49

02653

00100

00000
00796

00000
00000

2

02740

5 X
-2742
1

02742
02747

5

02750

3

02755
02756
DDA FDA SPl ON MODULE ONE

02757

SPlPKI

02763

1.'

02763
02764

00630 SPlPK 1 DSC 1,3
3
5,39801
DC
19801
00650
3,100
DC
JOO
00660
5,09800
DC
-9800
00670
ose 1.'

2,22"

11>
H

02734
02734

02740
02741

-2765
1

02765

006"0

00680 PK2DDA DSC
22
00690
DSA

13X

02653

1, '

2,22"

5

02678
02690
02702
02714
02726

00550 SPlPKO Dse 1.1
1
00560
5,19801
DC
J9801
00570
3,100
DC
JOO
00580
DC
5.09800
-9800
00590
DSC 1, '
00600 PK1DOA DSC
22
00610
DSA

3

02649
02650

00450 DJMERR DAe 13,DUP.ERROR 00'
DUP, ERROR 00'
00460
TFM DIMERR+22,0071.8
00470 ERRD
ReTY
WArY DIMERR
00480
00490
H
00500
B
796,,, MONeAl
00510
DDRG '-3
00520 PKODDA Dse 2.22" DDA FOR SPl ON MODULE ZERO
22
00530
OSA SPlPKO
00540

02644

02770
02173

3

02778
02779
DDA FOR SPl ON MDDUlE TWO

02710

SPlPK2

2

D2186

d_
162D MONITOR 11
ose

1, •

00710 SPlPKl OSC

1.5

00700

DUP RDUTINE

'DEFIN

PAGE
02786

02787
02788

5
00720
00730
00740
00750

5,59801
DC
1'19801
],100
DC
JOO
DC
5,09800
-9800
Dse 1.'

.

02793
02796

02801
02802

00760 PK30DA Dse
22
00770
DSA

SPlPK1·

02809

00780

1,'

02809
02810

Dse

2.22.,

DOA FOR SPl DN MDDUlE THREE

028D3

00790 SPlPK3 Dse 1,7
7
00800
5,79801
DC
P9801
00810
DC
3,100

02111

00820

02824

02816

5,09800
DC
-9800
OSC 1,'

00930 PACK

00950 eALe9
00960 CAlCft

DC
R
DC

-2811
1

5

02825

00840 ClEVU DC
2,0
-0
00850 BAVAll DC
3,O"OTAl BLANKS FOUND IN MOVE
-00
00860 FOUNO DC
5,0"FINDS SECTDR TDTAl
-0000
00870 ADRSPl DC
5,0
ADDRESS DF THE SPllST CDRE SEARCH PDINT
-0000
00880 SPlCYl DC
5,0"eYlINOEA SPl
-0000
00890 SPleOR DC
5.0"DI" ADDRESS SPL
-0000
00900 REPACK DC
2,0
-0
00910 UNPACK DC
2.0
-0
00920
DC
1,0"PACK CONTINUED

00940

2

02819

JOO

00830

-2788
1

1.9"PACK NUM FOR SPlIST

02827

2

02UO

3

02835
02840
02845
02850
02852
02854

2

02855
02856

1, '

02857

6,0
DC
-00000
DC
4,0" CALCULATION AREA
-000

%"1""""

02863

6

02867

4

2

1620 MONITOR 11
00970 HEX
00980 CONSTl
00990 CONST2
01000 UCARR Y
01010 QHOLD
01020 CONST5
01030 CONST6
01040 CONSrr
01050 RACKET
01060 STEAL
01070 CALCl
01080 FAKSEV
01090 COMMON

DUP ROUTINE

PAGE

.DEFIN

01100 NOMMON DC
-0
01110 NOSECA DC

4

02868

DSC 1.0
0
6,0. ,WORK AREAS
DC
-00000
6,0,.
DC
-00000
DC
6.0"WHERE TO LOAD NEXT MOVED SECTORS
-00000
DC
6.0
-00000
6.0
DC
-00000
6.0
DC
-00000
DC
6.0
-00000
DC
,..0" ACCUMULATES 200 SECTORS FOR A CYLINDER
-000
DC
4.0
-000
DC
3.0
-00
DC
4.0 .. HAS SEVEN FRO" LISTER
-000
DC
1.0

02814

6

02880

6

02886
02892
02898

6

02904

6

02910

6

02914

"
"

02918
02921

"

02925
02·926

2.0

02928

1.0

02929
02934

01120 CONSTB DC
5.0
-0000
01130 ERRRIT TFM DIMERR+22.7119.8
ERRD
01140
B
01150
OORG '-3
01160
SUBROUT INE-GETR
SHIFTS ONE TO RIGHT IN SPL
01170
01180
LEFT PRESENT SPL C.A.
CALC2. SPLCOR ..
01190 GETRTR TF
01200
SPLCOR.04.10. LEFT ENO NEW ENTRY
~
01210
SF
SPLCOR •• 6.NEW FLAG
AM
CALC2.07.10.RIGHT END OF NEil ENTRY
01220
01230
TF
LISTER.CALC2.11
012,,0
CF
SPLCOR •• 6
01250
8B
01260
OORG '-9
01270
01280
SUBROUTI NE-GElL
SHIFTS ONE TO lEFT IN THE SPL
01290
GETLTR
TF
CALC2.
SPLCOR
01300
01310
SM
SPLCOR,04.10.FELT END OF NEil ENTRY
SPLCOR, ,6,
01320
SF
CALC2,01,10,RIGHT END NEil ENTRY
01330
SM
01340
TF
L ISTER,CALC2.11
SPLCOR, ,6
01350
CF
01360
8B

02936
02948
02956

16
49

02675
02690

OP179
00000

02956
02968
02980
02992
03004
03016
03028
03030

26
11
32
11
26
33
42

02613
02850
028502613
09654
028500000

02850
000-4
00000
000-7
0261L
00000
00000

03030
0301t2
03054
03066
03078
03090
03102

26
12
32
12
26
33
42

02613
02850
028502613
09654
028500000

02850
000-4
00000
000-1
0261L
00000
00000

~jj
1620 MONITOR 11
01370
01380
01390
01400
01410
01420
01430
01440
01450
OH60
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
01190
01800
01810
01820
01830
01840
01850
01860
01870
0188.0
01890
01900
01910
01920

...

SUBROUTINE-REMOVE

REMOTR TF
~

.........

......

03104
REMOVES AN ENTRY FRON SPl

CALC2.SPLCOR
CALC2,04,10,
SPLCOR, CALC2, 611, CLOSES HOLE
SPLCOR,,6
CALC2,01,10
lISTER,CALC2.11
SPLCDR,,6

SU8ROUTINE-INSERT

~

NERR

PAGE

'DEFIN

03104
03116
03128
03140
03152
03164
03176
03188
03190

TR
SF
SM
TF
CF
88
OORG '-9

INSETR SF
TFM

TIPSY

DUP ROUTINE

DORG .-9

8NR
TF
AM
TF
SM
C
8L
RCTY
WNTY
TFH
8
OORG
TF
TF
AM
TF
CF
All
CF
88
OORG

26
11

31
32
12
26
33
42

02613
02613
0285028502613
09654
028500000

02850
000-4
026IL
00000
000-1
0261L
00000
00000

028503237
03237
03214
02880
02880
05130
05130
05128
03354
00000
02856
02675
02690

00000
-9800
000-4
99999
03237
000-4
02880
-9800
02627
01300
00102
00100
OP178
00000

028802613
02613
0261L
028502850
028500000

0323P
02850
000-3
09665
00000
000-4
00000
00000

09657
09656
19885
03956

00000
00000
09661
00000

028500095
02840
02840
09657
09657
03580

OOKOO
00000
00099
000-1
000-5
OOOOJ
00099

INSERTS AN ENTRY IN THE SPL

SPLCOR, ,6
'.35.09800,7
"23,04.10

--12,99999, • FINDS RECORD MARK IN SPL
CONST2, T1PSY+ll
CONST2.D4,10
CONSn,CONST2 ..
CONSn. 09800, 7
CONST3-2,CORSI Z"
I S THERE ROOM FOR ANOTHER ENTRY
NERR
PACK
DIMERR+22,7178,8,
THE SPL IS FULL MESSAGE
ERRO
'-3
CONST2.TIPSY+l1.611, OPENS A HOLE IN THE LIST
CALC2.SPLCOR
CALC2,03,10
CALC2 ,lI STET ,6
SPLCOR,,6,
SPLCOR,4,10.
SPLCOR. ,6
'-9

03190
03202
03214
03226
0323~

03250
03262
03274
03286
03298
03310
03322
03334
03346
03354
03354
03366
03378
03390
03402
03414
03426
03438
03440

32
16

11
45
26

11
26
12
24
47
34
38
16

49
26
26

11
26
33

11
33
42

SUBROUTINE-FINO
GIVEN A SECTOR ADDRESS THE LISTER
IS INITIALIZED TO COVER THAT ADDRESS

FINOTR CF
SF
TF
B
OORG
SPLEXT 11M
SF
TF
SII
Mil
TOM
80

lISTES-it
L1STES-5
19885.LI STES. ,ACCEPTS SECTOR ARGUMENT
SPLIST
.-3
SPLCOR.·200.69,
RETURNS WITH CYLINDER IN LISTER
95
AORSPl.99
AORSPL,OI.10
L1STES-4,05,10
L1STES-4,I,ll

03440
03452
03"64
03476
03484
03484
03496
03508
03520
03532
03544
03556

·.2"'.99

~M

33
32
26
49
13

12
26
12
13
15
43

5

1620 MONITOR 11
01930
01940
019'50
01960
01970
01980
01990
02000
02010
02020
02030
02040
02050
02060
02070
02080
02090
02100
02110
02120
02130
02140
02150
02160
02110
02180
02190
02200
02210
02220
02230
02240
02250
02260
02270
022BO
02290
02300
02310
02320
02310
02340
02350
02360
02370
02380
02390
02400
02410
02420
02430
02440
021050
02460
02410
02480

TOM
SM
CF
TRYAGN TF
AM
SF
AM
TF
CF
CM
BE
CM
BE
TF
BT
TOM
14M
TOM
BO
TOM
SM
S
BE
A
A
PlUSSR C
Bl
TF
B
OORG
AOOBlK SF

DUP ROUTiNE

.DEFIN

PAGE

lISTES-4.0dl
SPLCOR, 0), lO,SET AT HIGH ORDER OF LIST IN CORE
SPlCOR, ,6
LEFT PRESENT SPL C.A.
CALC2, SPlCOR"
SPlCOR.04.10. lEFT END NEW ENTRY
SPlCQR, .6 t NEW FLAG
CALC2.07.10.RIGHT ENO OF NEW ENTRY
L1STER.CAlC2.11
SPlCOR, ,6
1I S TER-3, 9.1011
ADOBLK
L ISlER,QOOI,a,
IF WORK AREA EXIT
PlUSSR+24
NEWOIM.llSTER
01 MMER. 0 I"MER-l
19880.0.11
19881.05.1011
19881.1.11
*+24,99, , 'MATCH-UP 1HE TENTHOUSANDS POSIT ION
19881,0.11
19885.01.10
19885, AORSPl
-+24
AORSPl.19885,.SUBTRACTS THE BACKFLOW
AORSPl.19888 .. ADD THE SECTOR COUNT TO SECTDR POSITION
AORSPl,llSTES
TRYAGN
FOUND .AORSPL
GODNY
'-3
LISTER-2 .. ,
ADD THE BLANK SECTOR COUNT

03568
03580
0)592
03604
03616
03628
03640
03652
0366.4
03676
03688
03700
03712
03724
03736
03148
03760
03772
03784
0)796
03808
03820
03832
03844
03856
03868
03880
03892
03904
03912
03912

0000000-3
00000
02850

46
21
21
24
47
26
49

09657
02850
028502613
02850
028502613
09654
028509651
03912
09654
03892
09649
09600
19880
19881
19881
03808
19881
19885
19885
03856
02840
02840
02840
036010
02835
09638

32

09652

00000

03924
03936
039108
03956
03956
03968
0)980
03992
010004
04016
04028
04040
010052
04064
04016
010084
010084
04096
0410B
04116
04116

21
H
49

02840
09652
03868

09654
00000
00000

15
13
32
32
25
25
26
43
26
49

19880
198B5
00094
00093
04114
04115
02852
09656
04084
00094
04220

0000000-5
00000
00000
00095
00096
00094
000-5
00099
02852
00000

13
32
49

09656
00094
04220

NOOOO
00000
00000

16

02840

-9800

04128
04140
04152
04164
04176
04188
010200
04212
04220

32
26
11
II,
46
11
109

0281002850
02850
02B5OH84
028402840
04128

00000
02840
000-3
OPOOO
01200
00000
000-4
00000

24
46
14
26
46
14
46
14
46
II,
46
49

00094
04116
02856
02854
04480
02856
04360
02856
04)92
02B56
0442'0
0'0456

02856
01200
OOO-R
00094
01200
000-01200
OOO-J
01200
OOO-K
01200
00000

16
49
49

00565
00532
0'0480

-4383
-2134
00000

16
49
49

00565
00532
04480

-4415
-2757
00000

16
49
49

00565
00532
010480

-'0447
-2780
00000

16
49

00565
00532

-41019
-2803

26
25
32

106
110
106
II,
46
25
16
49
109

02B56
02B27
02821
09657
04552
02827
02856
04668
02856
04112
02B56
04756
02BI2
00565
00566
04116

02854
09651
00000
000-5
00099
000-1
000-01200
OOO-J
01200
OOO-K
01200
02827
-4659
-2803
00000

25

02743

02827

15
12

33
26
11

3l
11
26
33
14
46
14
46
26
21
15
13
15

43
H
12

22

ODD-I,
00000
000-1
0261l
00000
OOO-R
01200
0-001
01200
09654
09599
0000OOO-N
OOOOJ
00099
0000000-1
02840
01200
19885
198BB
09661
01300
02840
00000

ROUT! NE FOR LOCATI NG THE CORRECT SPl IN CORE AND
DIRECTING THE liSTER TO THE CORRECT CYLINOER ENTRY
A
CF
B
OORG
SPlI S T TOM
MM
SF
SF
TO
TO
TF
MM
BO
TF
B
DORG
. MM
SF

AORSPL.llSTER
L1STER-2
PlUSSR
'-3
19880 .. 11.FLAG ZERO
19885,05,10
910 • .. DESIRED CYLINDER

93

STAROT+IO.95
STAROT+11.96
REPACK,94
L1STES-5.05.10
0+32.99 •• SIGNIFICANT OVERRIDE CODE
91o.REPACK
REOSPL
'-3
GENERATE PROPER MODULE fROM OVER IDE CODE
LI STES-5. 50000. 7.
94
B
REOSPL
DORG '-3
SPLINI TFM AORSPL.09800

13

~15""
1620 MONITOR 11
02490
02500
02510
02520
02530
02540
02550
02560
02570
02580
02590
02600
02610
02620
02630
02640
02650
02660
02610
026BO
02690
02700
02710
02120
02730
02740
02150
02760
02770
02180
02790
02800
02810
02820
02830
02840
02850
02860
02870
02B80
02890
02900
02910
02920
02930
02940
02950
02960
02910
02980
02990
03000
03010
03020
03030
030100

CLUCK

SF
TF
AM
STAROT CM
BE
CF
AM

AORSPl •• 6
SPLCOR.AORSPL
SPLCOR.03.10
SPLCOR. 7000.68.
SPlEXT

DUP ROUTINE

'OEFIN

PAGE

FINO THE CORRECT CYliNDER ENTRY

ADRSPl, ,6

AORSPl.04.10
CLUCK
OORG .-)
ROUT! NE TO WRITE BACK LIST ALREADY IN CORE IF NECESSARY
REDSPL C
94.PACK
BE
SPUNI
CM
PACK. 09.1011. FIRST TRIP
TF
UNPACK. 94
BE
SPORT
CM
PACK.OO.IOll, PACK ZERO
BE
IIRTSPO
CM
PACK.OI.IOll.PACK ONE
8E
IIRTSPI
CM
PACK.02.1011. PACK TWO
BE
WRTSP2
B
WRTSPJ, •• PACK THREE
DORG '-3
WRTSPO TFM
10RT
23
B
10PT ,PKODOA, 7
B
SPORT
OORG '-3
WRTSPI TFM
IORT .... 23
B
IOPT.PKIDOA.7
B
SPORT
OORG '-3
WRTSP2 TFM
IORT .... 23
8
IOPT.PK2DOA.7
8
SPORT
OORG ·-3
WRTSP3 TFM
IORT._+23
8
10PT. PK30DA. 7
ROUTINE TO. BRING IN DESIREO SPL IF NOT ALREADY IN CORE
SPORT TF
PACK.UNPACK •• SAVE PACK NUM
TO
CLEVER.ll STES-4
SF
CLEVER
14M
lISTES-4.05ol0
•• 24,99
BO
SM
CLEVER.OI,IO
CM
PACK.OolOll. PACK ZERO
BE
REOSPO
CM
PACK,t.lOll, PACK ONE
BE
REOSPI
CM
PACK.2.10ll. PACK TWO
BE
REOSP2
REOSP3 TO
SPLPK3+ I.ClEVER
TFM
IORT,4+23
B
IOGT.PK300A.7
B
SPLIN I
OORG '-3
REOSPO TO
SPlPKO+ I.CLEVER

8

04220
04232
Olo2H
04256
04268
010280
04292
010304
04316
0432B
0'1340
010352
04360
04360
04312
043B4
0'1392
04392
04it04
04416
0""'24
0""'210

.<..

04436
OH48
04456
04456
04468
04480
04492
04504
04516
0452B
04540
04552
04564
04576
04588
04600
04612
04624
04636
010648
04660
04668
04668

~/b

33

13
43
12

H

6

1620

~ON

ITOR 11

OUP ROUTINE

PAGE

'OEFIN

03050
TFM IORT,-+21
03060
8
10GT, PKODOl, 7
03070
8
SPLINI
03080
OORG ·-.1
03090 REOSPI TD
SPLPK1+ I, CLEVER
03100
TFM IORT,H2)
OHIO
a
IOGT,PK100l,7
03120
SPLINI
a
03130
OORG '-3
03140 REOSP2 TO
SPLPK2+1,CLEVER
03150
TFM [ORT ••• 23
03160
lOG T, PK200A, 7
a
03170
SPLINI
8
03180
/lORG '-3
03190
ROUTINE TO LOAD THE SACRED SIX TO DISK WHEN LOADING FROM CARDS
03200 SPLFL TFM IORT •• +23
10PT, SPLR2, 7
03210
8
03220
TRA
03230 SPLRI
03240
03250

03260

OSC
1,1
1
DC
5,19338
J9338
3,025
DC
-25
5,02458
DC

04680
04692
04704
04112
OH12

04724
04736
OH48
04756
04756
04768
04180
04792
04800
04800
04812
04824
04836
04848

16
49
49

00565
00566
OH16

-4703
-2734
00000

25
16
49
49

02766
00565
00566

02827
-4747
-2757
00000

2~

02789

16
49
49

00565
00566
04116

16
49
36
49

00565
00532
00000
00000
1

04116

02827
-4791
-2780
00000
-4823
-4863
00500
00000

04853
04856

04861

-24~8

03270

OSC

,

I, '

03280 SPLR2

OSC
22
oSA

2,22

04863

SPLRI

010869

03290

04862

03300

OSC

,

I, '

04869
04870

03310

TCO

SPLFL

04800

03)20
03330
03340
03350
03)60
0)370
03380
03390
03400
03410
0)420
03430

•
•
•
•
•

...

0000
0 00
0
0
0 00
0000

EEEEE
E
EEEE
E
EEEEE

FFFFF
F

FFFF
F
F

III
I
I
I
III

N
N
NN N
N N N
N NN
N
N

HEEE

E
EEEE
E
EEEEE

THE OEF I NE PROGRAM FOR REOEFINING THE SYSTEM PARAMETERS
DDRG 5000
TOM 13775,00000
DC
1.' ,-

05000
05000
05011

TR
TFM
8

05012
05024
05036
05048
05056

,

03440
03450
03460
031070
03480

5 X
-4848
1

9336,13612, ,
TRANSMIT THE DEFINE CONTROL CARD
IORT,H23
IOGT,SLlPRY,7, 8RING IN THE SECONDARY LINKAGE
OFINE
a
OORG '-3

15

13775
1

00000

31
16
49
49

09336
00565
00566
05174

13612
-5047
-5056
00000

~'7
1620 MONITOR 11
03490 SlIPRY OSC
22
03500
OSA

,

03510
03520

DC

2,22,.

OUP ROUTINE

-OEFIN

PAGE

OOA FOR THE SACRED SIX SECONDARY LINKAGE

05056

TAac

2

x

05062

I, '

TAac

05062

-5064

05063

1

OSC 1,1
1
03530
DC
5,18197
JU97
3,00)
03540
DC
-03
03550
6,09500'
DC
-9500'
03560 TRWSLO OSC 2,22,.
OOA FOR SHIFTING THE EQUIVALENCE LIST
22
03570
oSA SLOEQY

05079

2

05085

5 X

03580

05085
05086

DC

05064
05069
05072
05078

1,'

03590 SLoEQY OSC 1,0
0
5,0
DC
-0000
03610
3,060
DC
-60
03620
5,09800
DC
-9800
03630
DC
I, '

6

-5087
1

05087

03600

05092
05095

3

05100

5

05101

036100 TRWTLD OSC

2,02 ••

03650

02
OSA

TLOEQY

05108

03660

DC

I, '

05108
05109

ODA FOR SHIFTING THE EQUIVALENCE LIST

05102

03670 TLDEQV OSC 1,0
0
5,0
03680
DC
-0000
03690
3,060
OC
-60
5,09800
03700
DC
-9800
03710
DC
1,'

2

-5110
1

05110
05115

05118

3

05123

5

05124

6",0
03720 CONST3DC
-00000
03730 ZEROES DC
10,0
-000000000
03740
OSC 2,O"EXTENSION OF ZEROES

05130

6

05140

10

05141

00

03750 CURREN DC
-00

3,0

05145

~,4. OUPCRO+84
SF
OUPCRO+B7
CM
DUPCRD+90,OOOO,8
.+48
BE
TO
CS+45.DUPCRO+88
TO
tS+46.DUPCRO+90
SF
CS+45
SF
OUPCRO+93
CM
OUPCRO+96 ,0000,8
.+48
BE
TO
C S+47 .OUPCRO+94

TO

C S+48. OUPCRO+96

SF
SF
CM
BE
TO
SF
CM
BE

CS+47
OUPCRo+n
OUPCRO+ 34. 00.10

TO

CS+ 73. OUPCRO+I00
OUPCRO+I03
OUPCRO+ 10.... 00.10
·"36
CS+ 76. OUPCRO+I04
CS+76
OUPCRO+lll
OUPCRO+1l2.00.10

SF
CM
8E
TO
SF
SF
CM
BE
TO
TFM
B
B

06304
06316
06328
06340
06352
06364
06376
06388
06400
06412
06424
06436
0644B
06460
06472
06484
064'16
0650B
06520
06532
06544
06556
06568
06580
06592
06604
06616
06628
06640
06652
06664
06676

·+24
CS+49.0UPCRO+3...
DUPCRO+99
OUPCRO+I00.00.10

0668f1
06700
06712
06724
06736
06748
06760
06772
06784
06796
06808
06820
06832
06844
06856
06868

·+24

-+24
CS+83.0UPCRO+112

IORT,*+23
IOPT,lOX,7"

PLACE THE COMMUNICATION SECTOR BACK ON DISK

MONITR

25
4.

09656
05144
05656

19880
00001
00000

16
49

00565
00566

-6303
-6876

32
14
46
25
25
32
32
14
46
25
25
32
32
14
46
25
32
14
46
25
25
32
32
14
46
25
25
32
32
14
46
25
32
14
46
25
32
14
46
25
32
32
14
46
25
16
49
49

09408
09411
06376
05240
05241
05240
09414
09417
06448
05242
05243
05242
09420
09421
06496
05244
09424
09427
06568
05245
05246
05245

00000
0-000
01200

1~

0940Q

09411
00000
00000
0-000
01200
09415
09417
00000
00000
000-0
01200
09421
00000
0-000
01200
09425
09427
00000

09430

00000

09433
06640
05247
05248
05247
09370
09371
066B8
05249
09436
09437
06736
05273
09440
09441
06796
05276
05276

0-000
01200
09431
0943]
00000
00000
000-0
01200
09371
00000
000-0
01200
09437
00000
000-0
01200
09441
00000
00000
000-0
01200
09449
-6867
-6876
00000

09448
09449
06844
05283
00565
00532
06900

22

831
1620 MONITOR 11
10140
10150 lOX
10160

10170

OORG ·-3
2,22 ..
OSC
22
OSA FIElOX

DC

OUP ROUTINE

.OEFIN

PAGE
06876
06876

OOA FOR THE COMMUNICATION SECTOR

06882

I ••

cs

10180
OSS
100.05200
10190 FIElOX OSC
1.0
0
10200
5.19663
DC
J9663
10210
]'001
DC
-01
10220
OSA CS
10230
10240
10250
10260
10270
10280
10290
10300
10310
10320
10330
103100
10350
10360
10370
10380
10390
10400
10410
10420
10HO
10440
10450
10"60
10470
10480
10490
10500
10510
10520
10530
10540
10550

DC

-6884
1

05200
06884

100
1

06889
06892
06897

5 X

06897
06898

1.'

...

ROUTINE FOR WRITING BACK THE SPl TO THE PROPER PACK BEFORE
EXI TING TO MONITOR
MONITR CM
PACK,OO,lOll, PACK ZERO
R ITSPO
BE
CM
PACK.Ol.1011.PACK ONE
R ITSPI
BE
CM
PACK.02.1011. PACK TWO
R ITSP2
BE
CM
PACK.03.1011
BE
RITSP3
B
WHYNOT
OORG ·-3
R ITSPO TFM
IORT , •• 23
B
IOPT.PKOOOA.7
B
WHYNOT
DORG .-3
R ITSP 1 TFM
IORT , •• 23
B
IOPT,PKI00A.7
WHYNOT
B
OORG .-3
R ITSP2 TFH
IORT t ·"23
B
IOPT.PK200A.7
WHYNOT
B
OORG ·-3
R ITSP3 TFM
IORT,.+23
B
IOPT.PK300A.7
WHYNOT TOM
475,3
B
796t, ,MONtAl
OORG ·-3
ODFINI TF"
IORT ,."23.,
LINKAGE FOR THROWING PHASE3 TO DISK
B
IOPT.DOFIN2.1
TRA

10560 ODFIN2 OSC
22
10570
OSA

5 X

06882
06883

2,22

06900
06912
06924
06936
06948
06960
06972
06984
06996
07004
01004
07016
07028
07036
07036
07048
07060
07068
07068
07080
07092
07100
07100
07112
07124
07136
07144
07144
07156
07168
07180
07192

ODFIN3

07198

1:1." '?

"'-

-5200
1

14
46
49

02856
07004
02B56
07036
02856
07068
02856
07100
07124

000-01200
OOO-J
01200'
OOO-K
01200
OOO-l
01200
00000

16
49
49

00565
00532
07124

-7027
-2734
00000

16
49
49

00565
00532
07124

-7059
-2757
00000

16
49
49

00565
00532
07124

-7091
-2780
00000

16
49
15
49

00565
00532
00475
00796

-7123
-2B03
00003
00000

16
49
36
49

00565
00532
00000
00000
2

-7167
-7192
00500
00000

14
"6

14

46
14

46

5 X

23

1620
10580

DC

MO~ITOR

11

OUP ROUT

I~E

PAGE

-OEFIN
07198
0719<0

1.'

10590 UOF1N3 OSC 1.1
1
10600
DC
5.11084
J7084
10610
DC
3,022
-22
10620
DC
5.05200
-5200
1 ••
10630
DC
10640
10650
10660
10610
10680
10690
10100
10710
10120
10730
10140
10750
10160
10170
10180
10190
10800
10810
10820
10830
10840
10850
10860

TCO

GETL

07200
07205
01208
01213
01214
01144

DDFI~1

SECONDARY LINKAGE FOR THE FINO.GETl.GETR.REMDVE.INSERT
PROGRAMS TO SEE IF THE ROUT! NES ARE PRESENTLY I N CORE
OORG 9500
TFM CHEX>6.GETl TR
B
INCORE

09500
09500
09512
09520
09520
09532
09540
09540
09552
09560
09560
09572
09580
09580
09592
09600
09600
09612
09620
09625

OORG .-3

GETR
FIND
REMOVE
INSERT
DIMMER
MOVESA

10870 MOVESC
10880 EX ITMR
10890
10900 GOO~Y
10910
10920 NEWDIM
10930

24

-1200
1

TFM CHEX>6. GETRTR
B
INCORE
OORG --3
TFM CHEX+6.FINDTR
B
I NCORE
OORG --3
TFM CHEX+6.REMOTR
B
INCORE
OORG --3
TFM CHEX+b.INSETR
B
INCORE
OORG --3
TFM CHEX+6.0IMMTR
8
INCORE
OORG --3
DC
6,O"FOR SECTOR ADDRESS
-00000
DC
3,O"FOR SECTOR COUNT
-00
B
99999
OORG _-3
99999
B
DORG --3
DC
4.0
-000
DC
1,0" FOR COMPARING AT LlSTER-3

16
49

09122
09668

-3030
00000

16
49

09722
09668

-2956
00000

16
49

09722
09668

-3440
00000

16
49

09122
09668

-3104
00000

16
4'1

09722
09668

-3190
00000

16
49

09122
09668

-2458
00000

6

09628
09630
096]8
09638
09646
09649

3
49

99999

00000

49

99999

00000

4

09650

10940 LISTER DC
4.0
-000
10950
DC
1.0" TO SET-UP LlSTES OVERRIDE CODE

09654

4

10960 lISTES DC
6.0
-00000
10970 L1STET DC
4.0
-000

09661

6

09665

4

09655

8.;):1
1620 MONITOR 11
10980 LAYSPL DC
10990
11000
11010
11020
11030
11040
11050
11060

DUP ROUTINE

-OEFIN

1.0

INCORE BNF
TFM

CHEX.LAYSPL ••
I S THE ROUTINE ALREADY IN CORE
IORT ... 23
IOGT.SPLl.7
CF
LAYSPL
CHEX
99999
8
DORG --3
RLGONE OS
.GOONY-24
SPll
OSC 2,22 ••
DDA FOR BRINGING IN THE SACRED SIX
22
11070
OSA SPL2

110BO

B

,

DC

1.'

11090 SPl2

OSC 1,1
1
11100
DC
5,19338
J9338
11110
DC
3,025
-25
11120
6,02458'
DC
-2451'
TRA-TCD FOR THROIIING THE SECONDARY LINKAGE TO 0
11130 GREAT! TF" IORT ,-+23 ..
11140
B
IOPT.GREAT2.7
11150
TRA

PAGE
09666
09668
09680
09692
09704
09716
09724
09614
09124

09731
09740
09746

2.22

09802

lllBO

1, '

09802
09803

DEMO 0

-9732
1

09732

GREAT3

11240

09666
-9703
-9724
00000
00000

5 X

09730
09131

11160 GREAT2 OSC
22
DSA
11170

11190 GRUB OSC 1.1
1
11200
DC
5,18197
J8191
11210
DC
3.003
-03
11220
DC
6,09500'
-9500'
11230
TCD GREAT!

09716
00565
00566
09666
99999
0
2

09730

09748
09760
09712
097810
09796

DC

44
16
49
33
49

6
16
49
36
49

00565
00532
00000
00000
2

-98010
1

09804
'09809
09812

3

09818

6

09748
00000

-9771
-9796
00500
00000

25

1620
AOOBlK
ADRSPL
BA~AIL

CLEVER
ClFLAG
COMMON
COMPEL
eONST!
eONST2
CONSU
CONST5
CONST6
CONST7
CONST8
CONTIN
CORSIZ
CURREN
OOFINI
00FIN2
DOFIN)
00FIN4
00FIN5
DOFIN6
OIMERR
OIMMER
OIMMTR
OMREAO
ORESTR
OUMOIM
OUPCRO
ElCHEK
EQVLEN
ERROR1
ERROR8
ERRRIT
EXITMR
FAKSEV
F IElDX
FINDTR
F IXEQV
FIXSUP
GETlTR

~ONlTOR

11

GETRTR
GREATl
GREAT2
GREAT)
INCORE
INSERT
INSETR
JANITO
LAYSPL
LENLIS
LENseT
LISTER
LISTES
LI STET
LNGNFF
LOUNGE
MElANe
MONlfR
MOVESA
MOVESC
N48000
NEWOIM
NENTOT
NOMMON
HOSECA
NUMMOD
NURSES
OLOTOT
OUTSYO
PHASE2
PHASE3
PKODDA
PKIDOA
PK200A
PK300A
PKROOM
PLUSSR
QCARRY
RACKET
REOSPO
REOSPI
REOSP2

03912
02840
02830
02827
06136
02926
06780
02874
028BO
05130
02898
02904
02910
02934
07236
02627
05145
07144
07192
07200
08448
08496
08504
02653
09600
02458
02588
02618
08076
09337
06756
08400
05698
07216
02936
09630
02925
06884
03440
05818
06302
03030

OUP ROUTINE
02956
09148
09196
09804
09668
09580
Oll90
07676
09666
05840
05450
09654
09661
09665
06872
06214
07792
06900
09625
09628
02624
09649
06649
02928
02929
06422
07888
06653
06922
05600
05200
02734
02157
02780
02803
05606
03868
02886
029H
04668
04712
04756

PAGE

.OEFIN
REOSP)
REDSPl
REMOTR
REMOVE
REPACK
RETURN
RITSPO
RITSPI
RITSP2
R ITSP3
RLGONE
ROMENF

Ala
AeCUM
ACT2
lCTl
ACTN
ACTP
ACTQ
ACTR
lCTT
8B8
CALC2
CALC3
CALC4
CALC7
CALC9
CHEX
CLUCK
CS
DFINE
OL
OMOOA
DOC

El
EN023
ENUFF
ERR23
ERRD
ESOR
FIND
FOUND

04624
04220
03104
09560
02852
06512
07004
07036
07068
07100
09614
05718
06660
05863
06212
06144
05560
06280
05864
05956
05656
05804
02613
02608
02861
02921
02863
09716

GEll
GETR
GOONY
HERO
HEX
IOGT
10PT
10RT
KEY!
KEY5
LOX
LIMIT
LOOPI
LOOP2
LOOP3
LOOP4
LOOP5
LOOP6
LOOP7
LOOPA
LOOPB
LUCKY
MODS2
NERR
NWTOT
OOIM
OEQV
PACK
PATCH
QHOLO
SAR8
SARC
SARF
SARH
SARI
SARJ
SARK
SARL
SARN
.SARO
SARP
SPll

0~128

05200
05174
06715
02580
05958
05887
06921
06026
06282
02690
065]0
09540
02835

09500
09520
09638
07520
02868
00566
00532
00565
06335
05149
06B76
05U8
05944
06024
05992
06240
06164
06220
063]6
05888
05900
06154
Ob004
03)54
06~67

06656
06659
02856
05459
02892
05150
05158
08176
08184
07996
07100
08~24
08432
06970
07018
01026
09124

END OF ONE ASSEM8LY.

835
MONITOR SYSTEM LOADER
00010
00020
00030
00040
00050
00060
00010
00080
00090
00100
00110
00120
00130
00140
00150
00160
00110
00180
00190
00200
00210
00220
00230
00240
00250
00260
00210
00280
00290
00300
00310
00320
00330
003'10
00350
00360
00310
00380
00390
00400
00410
00420
00430
00440
00450
00460
00470
00480
00490
00500
00510
00520
005]0
00540
00550

PAGE

•
•

ntIS PROGRAM WILL LOAD MONITOR I SYSTEM TO DISK
FORMAT FOR CNTR CO IS
·Locr.rR NAMEPR SSSS5S EEEEEE NN NHS
OORG nolo
STAR
TR
3912,NAM-l
RACO 397] .. ,
RAPT IF PAPER TP
TFM TOI+6,4000
TFM TOI+ll,4003
SF
3912
SF
3988
8NR -+20.3983
81
ERHI
3985,LDCTR+12
C
8NE ERHI
TDI
TO
4000,4003,21
AM
TOI+6,1
AM
TOI+ll,2
CM
TOI+6,4067
8NE T01, ••
CONVfRT CNUL CO TO NUMERIC
SF1
SF
SET FIELD FLAG ON SECTOR AOOR
~OOl."
SF
4001",
AND ON SECTOR COUNT
TEMPSC OS
, SFl+11
SF
4014
4012,4005
S
ERHI
8L
TOM ~006,O ••
PLACE REC MK FOR TR
1.' ,.
DC

INlTl
•
•
•
COINI
RC

BF
CM

TR
AM
TF
TFM
SF
TF
TF
AM
TFM
TFM
TO

OSKOUT,4000
4012,1
TOT5EC.4012. ,
SAVE TOTAL SECTOR COUNT
TEMPSt.O
4060
CM+ll,4064
CM+9,4016
CM+ll,l
OSKOUT+8,O,9, MAKE SECTOR CNT ZERO
OSKOUT+ 13, 5000
NOP+l.1 ..
MAKE NLRC SW INTO NOP

01404
0140lt
01416
07428
074ltO
01452
01464
01476
07488
01496
07508
01520
01532
01544
07556
01568
01580
01592
01591
07604
01616
01628
01640
01651

31 03972
37 03913
16 07526
16 07531
32 03912
32 03988
45 07496
49 08042
24 03985
47 08042
25 , -4000
11 07526
11 07531
14 07526
47 07520
32 04001
32 04008
0
32 04014
22 04012
47 08042
15 04006
1

01652
07664
01676
01688
01100
01112
07124
01136
07148
01160
·07172

26
16
32
26
26
11
16
16
25

09028
04012
08511
07591
04060
01819
07817
07879
09036
090ftl
09281

04000
-0001
04012
-0000
00000
04064
04016
-0001
00-00
-5000
00001

07784
01796
07808
01820
01832
07844
01856
07868
07880
07892
07904
07916
01928
07940
07952

16
16
36
46
26
12
44
14
47
11
4]
14
46
14
46

01814
07814
-5000
07996
07861
07867
08466
-5079
08250
07819
08488
07814
08158
07814
08158

-5000
-5079
00500
00600
07874
-0004
00000
-0001
01200
-0001
08212
-5000
01200
-5075
01200

31

11

08866
00500
-4000
-4003
00000
00000
03983
080H
01200
-4003
-0001
-0002
-4067
01200
00000
00000
00000
04005
01300
00000

READ I NPUT FOR DISK LOAD
TFM
TFM
RNCO
81
TF
SM
8NF
CM
8NE
AM
80
CM
BE
CM
8E

RC+6,5000
CM+6,5079

5000, .2,

RNPT IF PAPER TAPE INPUT ••••••
HAL TRD,0600
NOP IF P. T.
BF+l1.CM"6"
8F+ll.4"
NOP IF P. T.
COl,
0 ..
NOP IF PAPER TP ••••••
507901,21, COMPARE CD SEQ NOP IF TP •••••
ERSEQ-12" ,
NOP IF TP •••••
CM+ll,1
ROTRL,ERSEQ+I0 .. 8R TO READ TRAILER
RC+6, 5000 .. C~ FOR FIRST CD OF SET
ADJUST
RC+6', 5075, ,2ND CO CK
AOJUST

6J(J

26

SPl2
SPLFL
SPLRI
SPLR2
SPORT
STEAL
TABA
TABH
TABC
TIPSY
TRWAA
TRWBB
SANDOR
SCRASN
SETKEY
SLDEQV
SLEEPY
SllPRY
SPLCOR
SPLCYL
SPLEXT
SPlINI
SPllST
SPLPKO
SPlPKI
SPLPK2
SPLPK3
STAROT
THROOA
THROWS
TlOEQV
TRWSLD
TRWTlO
TRYAGN
UNPACK
WHYNOT
WRTSPO
WRTSP1
WR TSP2
WRTSP3
ZEROES

09132
04800
04B48
04863
04480
02918
05696
05816
05064
03226
06946
06954
05402
05762
06456
05087
06074
05056
02850
02845
03484
04116
03956
02142
02765
02788
02811
04164
02628
02636
05110
05079
05102
03604
02854
01124
04360
04392
04424
04456
05140

MONITOR SYSTEM lOADER
00560
00510
00580
00590 *
00600 HAlTRO
00610
00620
00630 •
00640 lOCTR

CM
8E
81

PAGE

RC+6,5150 .. 3RO CO CK
ADJUST
WROSK .. ,
4TH CD WAS READ, WRITE 3 SECTORS

07964
07976
07988

lit
46
49

07814
08158
09042

-5150
01200

WATY *+15
OAC 6,HROER'
HROER'
Bl
RC

07996
08009

39

08011 00100
6 X
2

08020

49

07808

DAC 7 "lDCNTR
'lOCNTR
RC TY
WArY ERH1GH

08029
08042
0805"
08066
08078
08087

34
39
48
49

00000
08087
00000
07404
36

00102
00100
00000

08158
08170
081B2
08194
08206
08U8
08230
08242

11
11
11
11
2"
47
15
49

09036
07814
01814
07591
08511
07808
08272
07808

00-01
-0075
-0015
-0001
07591
01200.
00001

08250
08262
08274
08286
08298
08310

16
34
43
26
38
39

-7808
00102

08322

106

08334
08346
08354
08366
08375

48
49
39
49

08352
00000
08354
08464
08460
08191
08334
00000
0780B
08375
08322

00650 ERH!
00660
00610
H
00680
87
STAR
00690 ERHIGH OAC 36,CONTROl STATEMENT INVALID, RE-ENTER'
CONTROL STATEMENT INVAlIO, RE-ENTER'
00100 ADJUST AM
OSKOUT+8,I,9, INCREMENTSECTOR COUNT
00110
AM
RC+6.75"
INCREMENT READ-IN POINTER
00120
AM
CM+6,75"
INCREMENT SEQ NUM AOORESS
00130
AM
TEMPSC,l..
ADD TO COUNT OF SECTORS USED
00140
C
TOTSEC,TEMPSC" ALL SECTORS PREPARED FOR LOAD
00150
BNE RC " ,
REAO ANOTHER RECORD
00160
TOM ERSEQ+10.1 .. SET TERNINAl INDICATOR
00110
B7
RC
00180 •
00790 *
SEQUENCE ERROR ROUTINE
00800 •
00810
TFM SAVMS1+18,RC
00820 ERSEQ RCTY
00830
BD
TRSEQ, ERSEQ+lO
00840
TF
WOUT+4.CM+6,ll, TRANSFER IIRONG SEQ NO. FOR PRINTlN&
00850
WNTV IIOUT
00860
WATV ERR
00810
BI
*.12.0100
00880 SAVMSI H
00890
87
RC
00900 TRSEQ IIATY TC
00910
87
SAVMS1-lZ
00920 Te
OAC 8.TRAILER.
TRAltER
00930 ERR
OAC 35, CARD SEQ ERROR, CORRECT AND START'
CARD SEQ ERROR. CORRECT AND START'
00940 .. OUT
OSC 6.00000'
00000'
00950 *
00960 *
00970 •
TRAILER CARD EARLY DETECTION ROUTINE
00980 •
TFM CM+6,0.61.
00990 COl
SPECIAL SEQ NUM IF NON-SEQ AND NOT TRAILER
01000
B7
CM
01010 •
01020 •
01030 SUOR DC
3,999
R99
01040 •

08272
078714
00100
00100
00700
00000
00100

2

8 X

08391

35

2

078714
07868

-0000

081060

08466
08478

16
49

08487

3

PAGE

MONITOR SYSTEM LOADER
lAST CD READ AND CK
•
•
RNPT IF PAPER TAPE ••••••
READ TRAilER
ROUl RNeo 5311.,.
TOTSEC OS
.ROTRL+23
SF
5311
TFM SAVMS1+l8,ROTRl
5390,CM+ll..
NOP IF P.
C
NOP IF P. T.
8NE ERSEQ,.,
80
'+60,5318
80
'+48,5317
8NR 0+36.5316
5315,99999
CM
IIROSK", BR IF TRAILER OK
8E
ERAOR
NO TRAILER REC
•
•
RCTY
ERrR
IIATY NOTRL
RCTY
WATV NOTRl2
RCTY
81
. . 12,0700
TOM ERSEQ+l0.0
H
87
ERTR
NOTRl OAt 47,NO TRAILER REC. CORRECT, RE-lOAO COMPLETE DECK'
NO TRAILER REC. CORRECT, RE-lO.AO COMPLETE DECK'
01300 NOTRl2 OAC 30,WITH CNTR REC. AND BR TO 74010'
IIITH CNTR REC. AND 1111 TO 7404'
01310 •
01320 NAN
OAt !JO.

01050
01060
01070
01080
01090
0110.0
01110
01120
01130
01140
01150
01160
01170
01180
01190
OlZOO
OlZ10
OlZ20
OlZ30
OlZ40
01250
01260
01270
01280
01290

2

7 X

,......
.....

08488
08511
08500
08512
08524
08536
08548
08560
08572
08584
08596
08608
08620
08632
08644
08656
08668
08680
08692
08704
08711

36

05311

00500

32
16
24
,,7
43
45
14
46

05311
08352
05390
08262
0860B
08608
08608
05315
09042

00000
-8488
01879
01200
05318
05317
05316
R9999
01200

34
39
34
39
34
46
15
loB

00000
08713
00000
08807
00000
08680
08272
00000

00102
00100
00102
00100
00102
00700
00000
00000

109

08608

103

o

47 X

08807

30 X

2

08861

50 X

2

OAC

31,

08967

31 X

2

01340 OSKOUT OSS
01350
DC
-DO
01360
DS.

6
3,0

09028
09036

5000

09041

01330

6

3

-5000

09041
OU70'
01380 WROSK
01390
01400 SKI
01410
01420
01430
01"40
01"50

011060
01470 H2
01480
01490
01500 S"2
01510
01520
01530 •

WRITE DISK ROUTINE
C
OSKOUT+3,SKAOR" CK FOR SEEK NEEDED
BE
. . 36
SK
DSKOUT
TF
SKAOR, DSKOUTH .. SAVE SEEK ADDRESS
WON OSKOUT
CDN OSKOUT
BI
ASC,3800,.
8R OVERFLOW
BI
TEST,1900..
BR ANY OTHER ERROR
BNI 5M2,1900..
BR NO ERRORS
H
BI
'+12,0100
87
SKI
A
OSKOUT+5,DSKOUT+8 .. ADO NUMB SECT WRITTEN TO SECTOR AODR
BO
END,ERSEQ+l0..
BRANCH IF LAST WRITE
B7
INITI",
BRANCH IF NOT LAST WRITE

09042

090510

24
46
34
26
38
36

09066
09078
09090
09102
09114 106
09126 ·46
09138 47
09150 48
09162 "·6
09174 49
09182 21
09194 43

09206

109

09031
09090
09028
08487
09028
09028
09452
09214
09182
00000
09174
09066
09033
09508
07748

OB487
01200
00701
09031
00702
00703
03800
01900
01900
00000
00700
09036
08272

MONITOR SYSTEM LOADER
01540
01550
01560
01570
01580
01590
01600
01610
01620
01630
01640
01650
01660
01670
01680
01690
01700

TEn

81
81
81
81
81
81

PAGE

*+12,0600

4

09214
09226
09238
09250
09262
09274

46
46
46
46
46
46

09226
09238
09250
09262
09274
09286

00600
00700
01600
01100
03600
03700

09286
09298
09310
09318
09330
09342
09354
09366
09378
09387

41
25
49
15
34
39
46
48
49

09318
09287
09066
09281
00000
09387
09366
00000
09066
33

00000
00009

09452
09464
09476
09488
09500

46
11
11
12
49

09150
09041
09033
09036
09066

01900
-0100
-0001
00-01

09508
09520
09532
09544
09556
09568
09579

15
26
34
39
46
15

08272
09717
00000
09707
09568
04006
1

00000
03999
00102
00100
00700
00000

01880
WNTV 4000
01890
. . 12.0700
BI
01900
A
4005. TDTSEt ••
PREPARE FINAL
01910
SM
SECTDR TYPEOUT
4005.1 ..
01920
WATY LOMES2
01930
liN TV 4000
01940
-+12.0100
BI
01950
BC 1 •• 24
01960 SAYMES H
01970
B7
STAR
019BO •
01990 lDMES2 DAt 5. TO •
TD •
02000 LDMESS DAt 20.AAAUA LOADED FROM'
AAAUA LOADED FROM'

09580
09592
09604
09616
09628
09640
09652
096M
09676
09688

38
46
21
12
39
38
46

04000
09604
04005
04005
09697
04000
09664
09688
00000
07404

00100
00100
08511
-0001
00100
00100
00700
00100
00000

02010

OH04

01710
01720
01730
01HO
01750
01760
01170
01780
01790
01800
01810
01820
01830
01840
01850
01860
01870

*+12,0100
.+12,1600
*.12,1100
.+12.3600
*+12,3700

•
NOP

WRONG LEN REC CK ROUTINE
NOP ONESEC ... NOP 1ST TIME. 8RANCH 2ND TI ME
NOP+l,9
TO
87
SKI
ONESEC TOM NOP+1,1
RCTY
WA TV. DERR
.+12,0100
81
H
87
SKI
OERR
OAC 33.01SK RD WR ERROR. STARr TO RETRY'
DISK RD WR ERROR. SUR~"fO RETRY'
•
•
OVERF\.OW ROUTINE
ASt
81
H2.1900" BR IF OTHER ERROR ALSO
AM
DSKOUT+13, 100 •• INCREMENT tORE WRITE-OUT ADDRESS
AM
DSKOUT+5.1 ••
INCREMENT SECTOR AOOR
SM
DSI(OUT+8,1.9
87
SKI
•
•
END ROUTINE
•
END
TOM ERSEQ+lO,O
TF
LDMESS+IO. ~999 •• GET NAME I NTO MESSAGE
ReTV .
WATV LDMESS
.+12.0700
81
TOM 4006.0

DC

1.' ,.

DEND STAR

46

48
49

00001
00102
00100
00700
00000

2

09691

5 x

09701

20 x

2

83/1
MONITOR SYSTEM LDADER
ADJUST
DSKOUT
ERHIGH
HALTRD
LOMES2
.LDMESS
NDTRL2
DNESEt
ASt

OB158
09028
08087
01996
09697
09101
OB807
09318
09452

END OF ONE ASSEMBL V.

BF
COl
CDINI
CM
DERR
END
ERHI
ERR
ERSEO

07856
08466
07184
0786B
09387
0950B
08042
08)91
08262

PAGE
ERTR
H2
INITZ
lOCTR
NAM
NDP
NDTRL
Rt
RDTRL

08608
09150
07148
08029
08861
09216
08713
0780B
08488

SF 1
SKADR
SKI
SM2
STAR
Tt
TOI
TEST
TRSEO

01580
08481
09066
09182
07404
08175
07520
09214
08354

WOUT
WRDSK
SAVMES
SAVMSI
TEMPSC
rorsEt

08460
09042
09io76
08134
07591
08511

PAGE
HJOB
HSPSX
*L I STTYPEWRI TER
*TH I S PROGRAM COMPUTES THE AREA UNDER THE CURVE
*SQRTOX**2)ARCSINEX,WHERE X LIES BETWEEN a AND 1. THE AREA IS
*COMPUTEO BY S I MPSONS RULE
* FOR NUMERICAL INTEGRATION. THE AREA IS EVALUATED USING THREE
* DIFFERENT VALUES FOR OELTAX. THEY ARE 0.100, 0.050, AND 0.025.
START TF
OELTAX,X,7,TRANSMIT VALUE OF INCREMENT
OH02 26 04059 04066
TF
AREA,Z-3
OHl4 26 04088 04096
TF
XSUBN,UNIT
OH26 26 04106 04113
TOM SW3+1,l .. SET SW3 OFF
02438 15 03759 00001
TOM SW2+1,l .. SET SW2 OFF
02450 15 03567 00001
TOM SW1+l,l .. SET SW1 OFF
02462 15 03435 00001
TR
ASUBN-9,CONST-9 .. TRANSMIT ASUB5 TO ASUBO
OHH 31 04114 04175
TF
PS I X,ASUBN
02486 26 04245 04123
ASINE M
PS I X,XSUBN
02498 23 04245 OU06
SF
84
02510 32 00084 00000
BNF *+2*L,99
02522 44 02546 00099
SF
93
02534 32 00093 00000
TF
PSIX,93
02546 26 04245 00093
TR
'ASUBN-9, ASUBN+l
02558 31 04114 04124
A
PS I X,ASUBN
02570 21 04245 04123
BNR AS I NE,ASUBN+1
02582 45 02498 04124
BNC1 CONTA
02594 H 02798 00100
TO
POLY+U,PSIX-9
02606 25 04441 04236
TO
POLY+52,PSIX-8
02618 25 04445 OU37
TO
POLY+54,PSIX-7
02630 25 04447 04238
TO
POLY+56,PSIX-6
02642 25 04449 04239
TO
POLY+58, PS I X-5
02654 25 04451 04240
TO
POLY+60,PSIX-4
02666 25 04453 04241
TO
POLY+62,PSIX-3
02678 25 04455 04242
TO
POLY+6_,PSIX-2
02690 25 04457 04243
TO
POLY+66, PS I X-1
02702 25 04459 04244
TO
POLY+68,PSIX
02714 25 04461 04245
TO
POLY+12, XSUBN-6
02726 25 04405 04100
TO
POLY+16, XSUBN-5
02738 25 04409 04101
TO
POL Y+11, XSUBN-'
02750 25 04411 04102
TO
POLY+20,XSUBN-3
02762 25 04413 04103
RCTY
02774 H 00000 00102
WATY POLY
02786 39 04393 00100
CONTA TF
RAOCNO,UNIT
02798 26 OU53 04113
S
RAOCNO,XSUBN"RAOICANO • 1-X
02810 22 04253 04106
TR
RAOCNO,ZNINES-13,
02822 31 OU53 04268
BNCI CONTS
02834 47 02954 00100
TO
ARG+U,RADCNO-6
02846 25 04507 04247
TO
ARG+U,RAOCNO-5
02858 25 04511 04248
TO
ARG+U,RAOCNO-4
02870 25 04513 04249
ARG+50,RAOCNO-3
TO
02882 25 04515 04250

PAGE

CONTB
ROOT

CONTC

SWI

TO
TO
TO
RCTY
WATY
TF
TF
B
A
S
BNN
A
TR
SF
S
TF
BNF

ARG+52,RAOCNO-2
ARG+5 4, RAOCHO-1
ARG+56,RAOCNO

ARG
N IHE, TW09
OOOINT,ONEONE
*+2*L
0001NT-8, TWO
RAOCNO+ 7 ,000 I NT
ROOT
RAOCNO+7 ,0001 NT
RAOCNO-7,RAOCNO-6
RAOCNO-7
000INT-8,NINE
N1NE,NINE-1
ROOT+l*L, TWO+1
TF
SQRT,NINES
SF
RAOCNO+1
SQRT,RAOCNO+6
S
BNC1 CONTC
TO
GENRT+24,SQRT-5
TO
GENRT+28,SQRT-4
TO
GENRT+30,SQRT-3
GENRT+32,SQRT-2
TO
GENRT+34,SQRT-1
TO
GENRT+36,SQRT
TO
RCTY
WATY GENRT
SQRT,PSIX
M
SF
85
TF
TEMPI,94
BNC1 51'11
TO
FUNCT+IO, TEMPl-9
TO
FUNCT+14, TEMPl-8
TO
FUNCT+16, TEMP1-7
TO
FUNCT+18, TEMPl-6
TO
FUNCT+20, TEMPl-5
FUNCT+ZZ, TEMPI-4
TO
FUNCT+24, TEMPl-3
TO
TO
FUNCT+26, TEMPl-2
FUNCT+28, TEMP1-1
TO
FUNCT+30, TEMP1
TO
RCTY
WATY FUNCT
B
51'12
M
XSUBN,XSUBN
87
SF
TF
TEMP2,96
MM
TEMP2,3,10
SF
90
TF
RAOCNO,96
TF
PS I X,CONST+50
PS I X, TEMP1
S
TOM SW1+1,9

02194
02906
02918
02930
029U
02954
02966
02978
02990
03002
03014
03026
03038
03050
03062
030h
03086
03098
03110
03122
03134
03146
03158
03170
03182
03194
03206
03218
03230
032U
03254
03266
03278
03290
03302
03314
03326
03338
03350
03362
03374
03386
03198
03410
01422
03434
05446
03458
03470
03482
03494
03506
03518
03530
03542

81<

25
25
25
34
39
26
26

49
21

22
46
21
31
32
22
26
44
26
32
22
47
25

25
25
25
25
25
34
39
23
32
26
47
25
25
25
25
25
25
25
25
25
25
34
39
"
23
32
26
13
32
26
26
22
15

04517
04519
04521
00000
04465
04293
04319
03002
04311
OU60
02990
04260
OUU
04246
04311
04293
03002
04339
04254
OU39
03242
04549
04553
04555
04557
04559
04561
00000
04525
04339
00085
04355
03434
04575
04579
04581
04583
04585
04587
04589
04591
04593
04595
00000
04565
03566
04106
00087
04365
04365
00090
04253
04245
04245
03435

04251
04252
04253
00102
00100
04305
04333
00000
04287
04319
01300
04319
OU47
00000
04293
04292
04288
04345
00000
OU59
00100
04334
04335
04336
04337
04338
04339
00102
00100
04245
00000
00094
00100
04346
04347
04348
04349
04350
04351
04352
04353
04354
04355
00102
00100
00000
04106
00000
00096
000D3
00000
00096
04234
04355
00009

PAGE
ROOT-l~*L
S~12

OOOYN
A
AREA, TEMP1-~" FO+FN
INITIALIZATION FOR FSUBOOO
TF
XSUBN,OELTAX
TFM MULT+ll,4,1O
TOM SW2+1,9
TF
ACCUM, Z
TF
TEMP3,OELTAX
A
TEMP3, TEMP3
B
ASINE-3*L
QOOYN A
ACCUM, TEMPl
A
XSUBN, TEMP3
C
XSUBN,NINES
BNH AS INE-3*L
MUL T
MM
ACCUM
SF
88
A
AREA,95
SW3
B
*+6*L
* I N IT I AL I ZATI ON FOR FSU8EYEN
TFM MULT+ll,2,10
TF
ACCUM,Z
TF
XSUBN, TEMP3
TOM SW3-1,9
B
ASINE-3*L
M
AREA, DEL TAX
S·F
88
TF
TEMP1,97
M
tEMP1, THREES
TO
OUTPUT+26,OELTAX-5
TO
OUTPUT+28,OELTAX-~
TO
OUTPUT+30,OELTAX-3
TO
OUTPUT+46,83
TO
OUTPUT-50,84
TO
OUTPUT-52,85
TO
OUTPUT-54,86
TO
OUTPUT-56,87
TO
OUTPUT+58,88
RCTY
WATY OUTPUT
AM
START-ll,7,10
CM
START-ll, X-2l
BNE START
CALXIT CALL EXIT
AREA DEFINITIONS
OELTAX OS
7
X
DC
7,100000
DC
7,50000
DC
7,25000
AREA
OS
8
DC
11,0
Z
7
XSUBN OS
UNIT
DC
7, 1000000
ASUBN OSB 10,6
OS
1

035H ~9 02822 00000
03566 ~9 03674 00000
03578 21 0~088 0~351

*

*

03590
03602
036H
03626
03638
03650
03662
03674
03686
03698
03710
03722
03734
03746
03758

26
16
15
26
26
21
49

0~106 0~059

03733
03567
04376
04383
04383
02462

0000~

03770 16 03733
03782 26 04376
0379~ 26 04106
03806 15 03759
03818 49 02462
03830 23 04088
03842 32 00088
0385~ 26 0~355
03866 23 0~355
03878 25 0~625
03890 25 04627
03902 25 04629
03914 25 04645
03926 25 0~649
03938 25 04651
03950 25 0~6S3
03962 25 0~655
03974 25 04657
03986 34 00000
03998 39 04599
0~010 11 OH13
04022 1~ 02413
04034 47 02402
04046 49 00796

00002

04059
04066
010073
04080
04088
04099
04106
04113
04123
04174

21
21
24
~7

13
32

21
49

00009
04099
04059
04383
00000
0~376 04355
04106 04383
04106 0~345
02462 01100
0~376 00000
00088 00000
0~088 00095
03830 00000

00007
00007
00007
00007
00008
00011
00007
00007
00060
00001

L
PSIX
RAOCNO
ZN INES
TWO
NINE
TW09
OOOINT
ONEONE
SQRT
NINES
TEMPl
TEMP2
ACCUM
TEMP3
THREES
POLY
ARG
GENRT
FUNCT
OUTPUT

DC
DC
DC
DC
DC
DC
OS
OS
OS
OS
OS
DC
OS
OS
DC
OS
DC
OS
DC
OS
OS
OS
OS
DC
DAC

10,-4337769
10,19349939
10,-449588H
10,87876311
10,-214512362
11,15707952071

04184 00010
0~194 00010
04204 00010
04214 00010
042H 00010
04235 00011
,12
00012 00000
10
04245 00010
1
04246 00001
7
04253 00007
13
0426.6 00013
15,999999U
04281 00015
6
04287 00006
6
04293 00006
12,200000090000
04305 00012
14
04319 0001~
14,10000000000001
04333 00014
6
04339 00006
6,999999
04345 00006
10
04355 00010
10
04365 00010
11
04376 00011
7
OU83 00007
7,3333333
04390 00007
36, FOR X-D. 000, POLYNOM IAL-O. 0000000001
04393 00072
OAC 30,SQUARE ROOT ARGUMENT-O .0000001
04465 00060
DAC 20, SQUARE ROOT-O .00000'
04525 00040
DAC 17,F(X)-0.000000000'
04565 00034
OAC 31, FOR DEL TAX-O .000, AREA-O. 00000. 04599 00062
DEND START
02402

END OF ASSEMBL Y•
04660 CORE POSITIONS REQUIRED
00186 STATEMENTS PROCESSED

0~059

00000
00097
04390
04054
04055
04056
00083
OOOH
00085
00086
00087
00088
00102
00100
00007
04087
01200
00000

0100000
0050000
0025000
00000000000
1000000

PAGE
CONST

0~099
0~383

00009
00000

~

000~33776§

0019349939
004495888~

0087876311
021~512362

157079520H

00000009999999.
200000090000
10000000000001
999999

3333333

PAGE

EXECUTION
FOR
FOR
FOR
END

DELTAX-O.IOO, AREA-0.68656
DELTAX-O.050, AREA-0.682~1
DELTAX-0.025, AREA-0.68096
OF JOB

PAGE
UJOB

MONITOR II FORTRAN 11-0 SAMPLE PROGRAM

UFORX51

20
50

200
30

40
51

55
61

o I MENS I ON EClO), FClO), GClO), HC 5, 5), FUNCTC SO) ,HI C5, 5), VALUE(50)
DIMENSION ARG(10)
DEFINE DISK C10,200)
EQUIVALENCE (F, ARG), (VALUE,G,H), (FUNCT ,E,Hl)
SCSFCT( X)-S I NFC X)**2_COSF (X)**2
READ 999, XZERO, XMAX,DELX
READ 987 ,A, B,C,D
READ 992,(ARGCJ),J-l,lO)
READ 991,CVALUE(L),L-l,50)
READ 991,(FUNCT(L),L-1,50l
IND-l
RECORD(IND) ARG,VALUE,FUNCT
READ 988, C(H(M,N),N-1,5),M-l,5l
RECORD( rND) H
READ 98~,(FCI),1-1,10)
READ 98~,(G(J),J-1,10)
PRI NT 983
X-XZERO
Xl-SINF(X)
X2-COSFCX)
X3'SINF(X)/COSF(X)
X4-EXPF(X)
XS-EXPF(-X)
X6-LOGF(X)
X7-LOGF (X) /2.3058509
X8-SQRTF(X)
X9-ATANFC X)
XI0-LOGF(X3)/2.3058S09
PRINT 998,X,Xl,X2,X3
PRINT 998,X,X~,X5
PRINT 998,X,X6,X7
PRINT 998,X,X8
PRINT 998,X,X9,XI0
PRI NT 988
IF(X-XMAX) ~O,51,51
X-X_DELX
GO TO 30
DO 61 1-1,10,5
ECI )-SCSFCT(FCI»
00 55 J'1, 10, S
FCI )-J
PRI NT 999, FCI)
K-G(J)
PRINT 998,E(I)
PRINT 993,J,G(J),K
CONTINUE
CONTI NUE
IND-1
FETCH(IND) ARG,VALUE,FUNCT
00 63 J o 1,10

PAGE 2
00 70 L-1,50
IF CARGC J) -VALUE CL»70, 65,70
65 PRINT 990,ARG(J),FUNCTCL)
70 CONTINUE
63 CONTINUE
FETCHCI NO) H
DO 130 M-1,2
DO 80 N-1,3
HlCM, N)-H(M, N)*l. OE+2
PRINT 990,Hl(M,N)
80 CONTINUE
130 CONTINUE
PAUSE
GO TO 20
933 FORMATC11X 1HX 13X 6HSIN(X) lOX 6HCOS(X) lOX 6HTAN(X) /l1X1HX 13X
1 6HEXP(X) lOX 7HEXP(-X)/ 11X 1HX 13X 6HLOG(X) 9X SHLOG10(X)/ 11X
2 1HX 13X 7HSQRTCX)/ 1lX 1HX 13X 7HATAN(X) 7X 13HLOG10(TAN(Xll/l )
998 FORMATC_F16.S)
991 FORMAT(10F5.2)
992 FORMAT(F'.2,9F5.2)
993 FORMATCI3,5X,F10.7,5X,I3)
984 FORMAT(10F~. 2)
987 FORMATC F5. 3,lX, F5 .3, lX, F5 .3,lX, F5. 3)
999 FORMAT(3F4.0)
990 FORMAT<2F20. 71
988 FDRMAT(10F4.3)
END
00003 0001
00007 0005
00017 2305850901
00021 11003
110031 10000000113
110035 0002
00039 11010
110043 11050
00053
FUNCT 00H3
00053
E 00H3
00053
H1 00293
00553 VALUE 010H
00553
G 006U
00553
H 00793
01053
F 01143
01053
ARG 01143
01153
X*
01163
XMAX
01173
OELX

01183
01193

A
C
J
L
N
I

01197
01201
01205
01209

01219

X

01229

Xl

01239

X3
X5
X7
X9
XZERO
B

01H9

01259
01269

01279
01289
01299
01303
01307
01317

o

IND

M

X2

01327

X4

01337
01347

X6

01357
01361

XlO

111520
111580
112608
112620
113338
113382
113784
113820
h124
1I4H'
114280
1J~50'
114540
04602
1I50H
115014
115124
05114
115234
052H
115356
115396

X8

K
11020
11050
11200
11030
1I0~0

11051
11055
11061
11065
11070
11063
11080
8130
983
11991
11991
11992
11993
0984
11987
11999
0990
05~36 0988
1I5~90 LENGTH
S9999 NEXT COMMON
END OF COMP I LA TI ON
EXECUTION

MA I N 07500 115490 LOADED
15 12990 110376 LOADED
14 13366 110518 LOADED
12 U884 110142 LOADED
05 14626 111530 LOADED
03 16156 1I0~74 LOADED
02 16630 110650 LOADED
01 17280 00650 LOADED

PAGE

3

PAGE
SIN(X)
EXP(X)
LOG(X)
SQRTCX)
ATAN(X)

X
X
X
X
X
.~OOOOOOO

• 389~1833
1.~9182460

.40000000
.40000000
.40000000
.40000000

-.91629072
.63245553
.38050637

.50000000
.50000000
.50000000
.50000000
.50000000

.47942553
1.64872120
-.69314717
.70710678
.46364761

.60000000
.60000000
.60000000
.60000000
.60000000

.56464H6
1.82211870
-.51082562
.77459166
.54041950

COS(X)
EXP(-X)
LOGI0 (X)

TAN(X)

LOGI0(TAN(X»
.92106099
• 6703200~
-.39737639

.~2279320

-.37334248
.87758256
.60653065
-.30060363

.54630248

-.26219494
.82533561
.5USU63

.68413679

-.2215H54
- .16462356

1.
.99999998
2.1000000

1
6.

.99999998
2.6000000

6
1.

.99999999
2.1000000

1
6.

.99999999
2.6000000
5.0000000
10.0000000
24.0000000
11.0000000
39.0000000
17 .0000000
H.OOOOOOO
41.0000000
50.0000000
1.0000000
11.0000000
22.0000000
33 .0000000
66.0000000
77 .0000000
88 .0000000

5.1000000
10.1000000
24.1000000
11.1000000
39.1000000
17.1000000
u.l000000
U.I000000
50.1000000
1.1000000

849

PAGE

DATA
XZERO, XMAX, DELX
.40 .60 .10

A,B,C,O

ARG
~

.0 10.0 H.O 11.039.0 17.0 H.O 41.0 50.0 1.0

VALUE
1.0
11.0
21.0
31.0
41.0

r

2.0
12.0
22.0
32.0
U.O

3.0
13 .0
23 .0
n.o
43.0

4.0 5 0
H.O 15.0
H.O 25.0
H.O 35.0
44.0 -S.O

7 0 • 0
0 to. 0
11.0 1'.oi.o 0.0
21.0 27.0 21.0 2'.0 30.0
31.0 37.0 31.0 39.040.0
U.O 47.0 __ .0 U.O 50.0

2.10
12 .1
22.1
32.1
42.1

3.10
13 .1
23 .1
n.l
43.1

4.10
14.1
H.l
H.l
H.l

&.10
16.1
26.1
36.1
46.1

6 0
li.o

FUNCT
1.10
11.1
21.1
31.1
41.1

5.10
15.1
25.1
35.1
45.1

7.10
17.1
27.1
37.1
47.1

•• 10
11.1
21.1
38.1
48.1

H

.11' .22 .33 .44 .55 .66 .71 .88 .99 .10
.11 .12 .13 .14 .15 .16 .17 .11 .19 .20
.21 .22 .23 .24 .25

1.1 2.2 3.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0
G

2.1 2.2 3.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0

9.10
l ' .1
21.1
39.1
49.1

10.1
20.1
30.1
40.1
50.1

5

MONITOR .11
OVRlAY

INPUT OUTPUT ROUTINE

.----.----.
IN

r~-im-m~----i
·1

•• TEST DID

-

I

--------r-----I
I

I
I

•

••

PAGE

U

I 18
.----.---.
I~OICATOR

No----i----

NO

-YEs----11----m~~~ TO

I

•

10

ADD.

III

---------.--------DVRLAY

•

II

lA

•·;;;-1-;;-··. llioa
•

19. $ 19 011

•

N~----·I---·

• • zs

•

-.----.----*.

QVM.AY

l---ii;Jtli;IRD-~

----e-__
DIOY

•

IV
.----.---_a
•

Y:;--'I----- •

• TEST IF

-

28

•

211

.RETRN

110

LOADER
- NEEDED

.

II

•

•

.----.----.

-

lU

TlOll

II

•

Y~i---I-·

.----. ----e
•• ,:JNk6nhNE ••
· .
2N

•

I

2A

R PO!lIlION

ADDR~SS

--------e------OlDY

CHK2

1A

.
y;s---r::·
-

•

lU

I
-------r-----t I~OI~m:rE
TO

2N

ERROR COUNT
-WR irE BACK
ON 01 SK

I
I

•

...----.----. •

2X

I

I

2W

I

2J

I

RETRY

---------e--------AGAIN
NOERRI

2V

2K

.----.----. •

NO

• ERRORS
. ' 2l

-.----e----.
I .
YES

I

I

2$

2Y

r--mi~!~TRY----i
I
I
I

OVERLAY
MAIN
ROUTINE

I
I

I
---------.--------ERRET

ERRORS

2U

~gERRl

r--mi~;~-------i

•

1- 1~!i;:~------1
--------.-------

•

I

- TEST JF
- _ ~~R~ RV

--------r::~----

'.

ERROR

YES

Insl

I

2V

.-TEST DISK

ZR

TD

I
I
I

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

AGAIN

2J

211

--UPOATI-HiGH----

8

---------.---------I

I

• DESldA

I
I
I
I

I,-------I ilml~~~ I

-1-~-I~RlG8IT-----1

2 OF

2U

INITAl

.----.---.

ERROR
---------

2L

NO

j---iij;DATE--------1

YES

• OVIlLA Y

XO~

•

•

.

I
I

TO

J87NT

••

2A

PAGE

-------i--::--•• N

•

- TEST IF SPS • Dial
SUPERVI SOR
•
• NEEDED
lX
• ____ a ____ • •

YES

________ e _______ _

_-.--0
•·'1=816 •. ~~XIT

YES

• JUMP

·.----a----.
I

IT

I-----e---.llhV
I

. , 2"

2C

NO

CIIK:.---.---.
2P
•
•• lU~UIFON • • _NO
XO~

I

--------.------T) 2G

•

••CHKl

e----.--_e
•• ·mN~Me -••mz
·.---e_e.

-ND-T~--

lID'

2ft

IX

I

NO

CHit)
,
, !F SPt

----,-----I m~CH·C
I

f-smiitj~---l

I

---------·-SEEK----

.---.----.
•
•
IIIaR
•• TUI
I. CAF¥~II ••.·2S

•

lU

DIOl

INPU' OutPUT ROUTINE

1A

2.

I

I

r--~fl;~~iiE-------

YES

21

YES

•• GTEST
•
1Y

GTEST
•

•

TO

•

·.----.----.-

, t'
.
.----.--.
I

,) 111

1y

!

• - lHTEAhy
•

*--.---., NO
,. 111" :," -•mOR
• r vldD' 25

---------e---------

rl!ff~~-t=---1
---------...-------.

r3~p~n8ER

•

I

•

I

,.

YES

• GTEsr
•

NO

---------i--------as·
.-.:.:--. ----.

•

NECESSARY

•

25

I

lR

DIOX
,

I

IIDIiITOtt II.

-

SCRA CH

•

111
----f---tlhft!:11

I
I

-

.RETRN

~S&k~iI~c8Ce
RE AND

•

IV

a ____ •I ____
lW •

HI

lL

ERUT

2.

LOCN

DIO

I
I i~n-MDNTII
Ae*~A'O

I

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

II g~L~~ll~
ENTRY

•

• IS SEEk

YES

-------1---------

---tR------

. --II

EXECUXAON

DIDP

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

NO

·.----.---..
NO

IIOIICAl

---STAiiT·------OF PRrRAIi

YES

- TEiT FOR
• ERROR
liE ORD IIARK .-

1A

I
I

I

.----.----.•

• as

I

OVIILAY

CHU

flAG.

I ·10

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

JUMP

I
I

I
I
---------.--------I

·NO----r---.

II

8

r--m:R~~rf----i

120

•

1 OF

lU

II

•

It

..

lR

•-

IP

•

10

-

t~A~~D

~,~

-

• PtllFDRM NON • eRROR
- - ¥En
19 _ - 25

••• +2

j--IHALi-·------j

I

••

. - - - - . ____ a

•

- 19 ON

II

!

NONOSK

OIOY

2l

-,'---jnjl:-------ROUTINE

--------.--------TO

i

3A

lL

MONITOR II

I NPUT OUTPUT Roun NE

]A

E0040
]G
..
• NO
• TEST IF NDN • E0050
• DISK ERRDR
•
•
3F

•

STAGEO

II

38

TYPEOUT
ERROR [NOLCATION

3H

I

I
I

---------.-------I

[
[
[
[

---------.--------NOTE

3V

mn~

I

EROR

EXIT
CALL "ONITR

---------.------I

t,l

ENTRY.CALL
INDIRECT
BRANCH-PER
TYPE OPT [ON
.NOTE

I
t

1P

[STAGE3

I

---------·-STAGEi--

I

I

r-~gaV;lNii-Ei---i

I

SlAGE2

I

[

II

'j---iEAii-ivPEii----j
•

I

E0095

r-1iig~i~ii------i

I

·.----.----..
YES

Of

3U

e

NO
. ' lUILI&RIVE •• E0050
• CODE
• 1F

·yES--i----*.

r--:g~i~iT~i---1

.----.----.
3N

*----.---*

ERROR
STAGE 0
ROUTINE
fOLLOWS

I
I
I

PAGE

I

STAGE3

411

I

I 30
.---- .----.

•

• TEST 01 SK
•
110

YES

• E0070
•
3J

.---------*
NO
I

I

.----.----.
I

•

lUoo

•

.*YEST IF
EMPTY MAP

•

I
I

I
.---.----.

YES

• E0040
. ' 36

• • TEST IF
• DISK ID
• TIME

"

·,--.--..
II
•

•

~8090
3M

.----.----. ..
]8

·No---i----.

I

I

I
I

.---.--.

E0090

INCORRECT
CALL

I
I

'.

HO~LER

Ak~IGrh.o

•

TO

MOMITOR II

i.
I
---------i-------•

I 48
*----.----,.
•

• CYLINDER
' . DVERFLOII

NO

• RETRY
. ' 4F

·VES--r----.
I

cnOVF

4Q

~~L71i~ER

---------~-------

YES
lOI

•

•

·•---e---e.

DDVFL

•

-1--~~A'i=\iiE-----1
h3T

m,

_
3T

I

•

I

II

·YEs--T---'.
TO

4&

4L

loA

-1-- ili~lt~I~----l

NO

• • TVPEWR 'YER ••
•

·.----.----..
ERROR

YES

•

I

I
TO

4N

•

~81
4P

····.----.----.···
YES

3T

•

•

YES
• .l04
• 4S
ioU

U.
.----.----e

4U

• TEST FDR
EMPTY MAP
• ENTRY

I

I

YES

• MERR
58

4X

'·TEST FDR
ILLEGAL
• DRIVE CDDE

ROIM

I
I
------.------

I

3S

411

I
I
I
I
I

IDPA

TO

· .·
·"0.----.----.·
.----.----.
··No---T---'·
•

"R

DPERAnDN

.RETIPI

I
I
I

I .....----.--

4R

i---ft~iY'NDN~---j
I

~o

CHECK

STAGE3

loCi

·YES---;--:'.

I

4U

ERROR
SlAGEl
ROUTINE
FOLLDWS

NO
• • seT UP ·ERR. , , HOLLER
' . m~At~ECK , . 3T

--------r--------

or

4

.----.----.

4Q

.---.---.
-YES---'I--'.

l04

I

. ' m~AsgTI~ •• NORBC
• TEST IF RBC. 4H

!

• TEST FDR
ERRDR

NO

•

NO

COMPxi, ON

I

INSTRUCTION

4V

•

.--.---.
·.---.---..

*;"":-__ •I ____
"M e

•

3T

HOLLER

. ' fi~R8RPUNCH
•

10M

*----.-':"'-*

I

IDPA

.----.---..

•

4A

I
[
---------.---------

• 'PAPEII TAPE •• ~83
READ ERRDR
•
•

HDLLER

STAGEZ

---------j-----:--RETRY

,

l02

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

[

3Z

4P

YE S

4J

1

I

BACK CHECK

• PAPER TAPE '102
• PUNCH ERROR •

l03

UPDATE CVII.
PDSITION

3Y

DISKID

HDLLER

.----.----.

31

r--&~ip~~'jH~---1

·.----e---..

NOIIBC
4H
,
,
YES
• TEST
CHECK
' . A=O C TORS •• 3S

NO-----' ----

I

I

3T

4N

I

3V

lMORE

.'•m~lIm5R •' •.NaETRN
•,
•

i
-------e
______

MAPf~'

I
I
---------.-------,..-

e----. --__•

4G

If

•

PAGE

-1---oo-rHa-;EiD----1
BACK CHECK

I
.--.---.

•

r--iiiAm~------1

INPUT OUTPUT ROUTINE

40

I
I

3X

DISK[O

TO

.----1.----.
48

~RETR.N

-------::i~:------

•
• YES
• TEST OR Ive • ODVFL
• OVERFLOll
•
•
.. 4J

i---~g~~uiE~BW---i

3P

l---illfil!~~:~---I

.RETRN

i---cOMPur¥-rop----1
I
I

.·]P

•

1N

4.

---------1-------I ~~fRul~ION I

HOLLER

·.----.----..
·.----.----.

• BRANCH AS
• PRESET

MAPENT
••

-YES---·'----·,

3X

II

STAGE I

3S

' . l=~I~ATDRS. _.

NO----'--

n

3R

.----.--.

I&A.5

....

I
I

• • tHECK

3M

.. ·'TEST IF

!-----------------!

lMDRE

I

CHECK

STAGEl

3M

3l

I

ERROR ROUTINE

I

j---ij~~6ir----t

•

•

II
---------.--------E0095

j--'iiii~tiD-----~

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

ERROR
STAGEI
RDUTINE
FOLLDIIS

r--i8T;H~CAll---i

JL

E0080

yes

• HOLLER
•
3T

)W

*. W8o,o

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

YES

YES

• TEST IF
• CONTROL
• CARD TRAP

E0050

3C1

3K

•

I

I

•

ED100

·.---.----.ND

·. ---....---..
I

.----.---.

3J

• • TEST AT MAP.
• ,. READ TIME
•
.. 3Q

3D

• TES T ~F
' . &m~E~
NO

.--.----.

ED070
•

YES

• ROVCD

5D

loY

r--j~iTltmi~---j

I

~¢P~ ~A~L.

I

I
MESSAGE
I
---------r--------

I

MONITOR II

5A

IORT MAIN
LINE
ROUTINE

I

10RT CALL
AND

I

II

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

2S

I

58

TYPE EMPT1II
MAP ERROR
INDICATOR ..
OPERATOR
TYPE DIM.

5H

I

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

PHUEl

!
I
I

I
I
I

RESTORE
IORT MAIN

II
I

I kmlNE

.

• ·TESJ If

25

ERMIR

1·--·

.---.--_e

mlV8

lT

AauIS.

.

•

I '"

·.----.----..

·:·ii:~:ui·:·~RETRN

•---tt--..•

"YES

I '"
---.--.

.---.---.

••• l"l ISR

•

•

SUPER.

I
I

•

lH

NO
•• LeAD6

55

•

T) 5G

ND

Tol

I
I

I

-!---~§iFm~::---I
CODE.

55

LCBDI

lA

I
I

---------r--------

I

5V

r-mi~~t~k~----I
---------.--------I

.!
.----.----.

"

5Z

i~rl'''ILE
Gs

•• TEfT IF SPS • • •NO
•• =to~R~ANE •• ~~
"

FULL

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

YES

T) 'u

'N

5W

---------r:~----I

50

r-fD~ij'5~;;---1
--------.-------OVRLlV

•

I
I

DRIVE CODE.
RESTORE SK.
ROUTINE

I

LCA02

LClO'

VIS

I

I
TO

&A

PAGE

"

'*

r-l~eA~lir.:-1

6N

.---.---.

•
• TEfT If

..
':s---r::·

••..·l-;-ll-irJi.•••

6.

r-ftH~'=--1
LOA~~I

••

----.----.6.

.

mlCt~~R.I

6L

.

•• r2102·
•• 60

r-ni~Ui;;---i

.

U

M~~~HASEB

I
.----.---.

•

NO

•

I

.----.--.

LRA02

, •• T~Sl&f BV
•

•

·.----.---..
~P~

tUPER.

NO

I

TO

I

6N

NO

·N°----·I--··.

•• 0VIlLAY
•

U

I

m02

•

•

6T

6V

I

--sEi-;~iiE.-----

ARDRISI

i~IAsu.M~

6X

------::C:-----

.

•

YES

• NRN-DISK
• CHK4
•• kEt8c:i~lBlE . ' 2P

·

N~----r::·

;;~;-1·;-"··.

SRAOt

6"

•

•

II

.----.----.

PHASEB

6R

RELDt TAILE

•

bT

FDLlOWS

65

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

SRAOI

mll lSOIl
'l'taGrm

0;*

•

&V

I LINE SWITCH I
I
I
---------.--------&11

•

LCBOl
••

SRA02

IA

"i---Siy-iil"ii.i:-----j

I

";-5-I--.

lA

I
I
I
I

EXECUTE
PHASER

---------.--------OVRLAY

~"59 ttlcH *. SRA02
* BTsf'Cllib • 6V

I

•• SET TRA

•

I
I
I
I

i;'ERVISOR

PHASU

-------------..---OVlllAV

IA

j---REAo-1Nii------j

60

6Q

I

NO
OVRLAY

---------.--------OVIIlAV

·r-rniiiitiia---1
_..- ...---LCI02

•

ANl~ZER

.6D

V:;----I-

•

-1--lif~!Pe~=---1

r2B02

.aillR

& OF

6U

•• '~o2.tA25 "••

-----~--f"_::_----

5Y

j---iijsj(:ciLL-----j

I

·.----.---..

• sR

Till •• LeAO'
•
•
• 55
e--e__e

•

I

5R

LeADa

••6·lIll ••

' . raOI
•

LOAD

NO

IIULT.d LE

VES

-1--;"'
rABrmOR;--,
------e-----

I

• "TEST IF
•
NON-DISK

VIS

IUn·
F8~LO=1

6E

.----.I----.

NO
".LCAD6
•
5S

I ~g:hltTRE

'"

YES

•

5V

•

LCAD2
I 50
---REi--sp-----j

LCAD4

·.--tt_-..
IlL

• LO

NO

---------.--------10GT

NO
••• UUIJe.ft • •.LeAOI

5.

STAGE.

•• '"

5k

I - -_ _ _I_ e_ _ _ _ _I

HIII&.IR

~AOI

VE-S

50

~- liiii;~;:::--_,
¥V

••

B~TrftAD

••
,

_________ e _ - - . . ____

ROVCO

I

P",SEl

5C

t~~ERVISOR

•

·.----e-___ •.

5R

VES--r--·

u
.--.---e

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

I
.----.----.

8

• tEST IF TRA • LCBOl

I

·

••
•

mLE~

I

· •

5 OF

5U

•• CALL

5P

•

.----.----.

PHASE2

YES
• LCAD4
•

NO

SPS SUPER.
REl8~AT ABLE

I

•

•

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

--------.-------MERR

•
• DISK LOAD

I

I

~m~¥~

I

ERRDR

I
I
I
I
I

5N

j---i\esroRE------j

I

PAGE

. .----.--. .
.----.--:...

5G

j---i\esroRE,------j
I
I
I
I

INPUT OUTPUT ROUTINE

.

.----.----.

••• l~fle&F BY • •••NO+2
• SPS SUPER. •
7A
yES--j----· "

·

I

6Z

r-m::~!::----l
-'--------.--------.SUPER

8

MON'

.----.----.

TO~

flo
flo

•

MCAOI

••

·.----.----.
.
,

SYS.P~OGR~M'

NO

•

I
I
I
I

+2

1C

A~ITH.

EXECUTE
MONITOR OR
DUP. SUPER

,,

,
18
.----.----.

•

•

7N

RETURN THRU •
PRESET
•

• BRANCH

CH1Q4

SEcn

•----e----.
I

2P

1&

YES

II
I

1J

'j---sAve-fiiiie-----'j

'SYSTEM
'RETURN
ANAL HER
,

I
I
I,
I

,
,
---------.-------OVRlAY

lA

FOR OUP
SUPER. BRNCH
TO IORSC
AND RETURN

I
I
I
I

---------r-------I

•

•

7H

7"

•

YES
• • MONTR

--------,---------

MC.II06

•

•

---------.--------I

7M

.

LOAD
• ADDRESS

A8:~s--r:~'

I

I
I

.MONTR

4C~~dm

MONITOII /I

7X

INPUT OUTPUT ROUTINE

7T

1V

1X

~gM~sLOAO

7Y

j---HovE-FouNO-----

I
I

DIM ENTRY

n6I~m~TE

---------.--------I
I

I
I

AB07

II

---------.--------T) 7U

AB02

---------.--------AB01

AB05

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

OVERLAY AND
EX. MONITOR

YES

ABO]

AB06

.

•

I
I

NO.

I

~8ijT~~AANO

LAST ENTRY

A805

I

•

7W

TeST FOR

----------------I
MOVE NAME

7S

fEST FOR

.----. ----. •
.----.----.

I
I

*----.----* •

•

•

NO

7R

EXECUTE
SECTION 2

I

7'(

I

I

BEING OVRLD

•

YES
A606

.----.---I
I

m~Mm~S

•

ENTRY

NO

CALLING

I

..

CURRENT

I

I

i

2S

7V

COMPARE FOR •

7Q

-,---iiiiTi ilizE----"[

I
I

•

7M

.

YES

•

.----.----. •
•

*

----------------SAVE iORT

•

MCA06

·.---.----.
NO

I
II

ABOI

I
I
I
I

• TES! IF
MON TOR 19
• IN ORE

I

II

--------r--------

---------.-------"C.II03

flo

AND

II

ABO]

7P

r m lBLE
ADDRESS

I

'CYLINDER
'POSITION
I
I

.----.----.

I

II

I
I

7E

•

SEcn

i---iiEAii-liiii------j

j---SEY--·-------"[

MCAOO

.----.----.
I

i---iioVE-NAME-----i

I

I

10
MONITOR
CALLER
SUBROUTINE
FOllOWS

*----.----. •

NO

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

(---EKECUTe------(
,
,
,

•

• TEST IF END' fRROR
• OF TABLE
•

1A

MCAO]
1H
*----.----* • NO
•
• TEST IF
• MCAOO
•
OUP.CAll
•
1F

7 OF

7U

10RT LOAD
PROCESSOR
FOR NAMED
PROGRAMS

I
I
I
I

---------.--------OVRLAY

,

·
.
·.----.----.

PAGE

1G

j---REsrORE-------"[

YES

flo

TEST IF

CALLED BY A

•

INPUT OUTPUT ROUTINE

/I

1A

I

7l

"[---RESTORE-------"j
I
I
I
I

CORE.
SET UP GET
ENTRY.

I
,
I

,
---------.--------I

TO

I
I

8A

7S

MONITOR II

RELOCATING LOADER

u

j---REAO-i;;------j"
I
I
I
I

COMMUNICTN.
SEC TOR. GET
LOADER
FIELDS

..

I
I
I
I

•

* IS INPUT
FROM DISK
..

•

NO

YES

* INIT
*
•
IJ

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

NO

I

I
I

IN

j---iie.ii-iN-------j

I
I

I
I

POSITION IN
I NPUT AREA

I
I

I
I
I
I

I

r--im:E~iiiiii----i

II

•

I

I

II

I~~U¥E~IGiT

fI

L_:~::_::::

---------e---____ _
I

f
I

CEND

I
,

10

r--=~t8~[------i

II

•

I
I

"

I
.----.----.

.* liR~HI~PUT
•

*

YES--T~:·

•

I

•

YES

No----i---- "

•

•

•

1T

YES

iN

f

I

•

NO

CHARACTER

SEEK

20

YES---I----

I

.'·

.

•

YES

YES
THREE

." 2R

I
I
I

•

~gTRM
ZC

ZA

18DR~~P

II

I

I

•

ZU

e

,-,

·.·+2
•
2E

UAlc~9ftR

FlY

'_ "F 3AI YE

SIX

3R

I

---------i --------

I
I

----_____
w-_______ _I
I

I

2R

:m~H

COMPUT IN

--------'-RELOC---

3S

·•----.----e.

"

ZU

I

I

zw

j---CAlCUlATE-----j

I ~gaRESS
!
I---------.---------!
I

!

---------r-------THREE

YES

• FOUR

OF DATA FLO
" GREAT AS 0

I

YES

•-.;---.--. •
NO

I S LENGTH

NO

"

2V

.----. ----* •
e

•

.----.----.

!I

II

N°--T-::"
,

OF

FOUR
2U
i---~iivi-8lANK----i

2P

• .FOUR

1Y

NO

ONI

"

I
I
---------.---------

I~aIc~~R "

.

j~5!EN~

".

" A REC.MARK

I
.----.----.

21

ERD

I

""IS 1ST

I

NoTRM

I

,

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

,

·

II

PAGE

.----.----.

•• MAnlIER

I

".----.----e

Z"

20
*----.----*
•

I

.----.----.
TO

.----.----.

• EQ.To

I

---------.---------I

RELOCATING LOADER

,
, TEST F9R
' . J~mA DR

I---t~y-~~~----l
---------·-HE.----

!

CHARACTER

T) IU

MONITOR II

LY

I
I

---------e---------

TO' IG

•

I

HERE

j"---.iiJUS j -isr----j

r-Iij?~i t6lii~---~

Yp
'.T ST

.... II

I

I
I
I

BEGIN

I

I

.. NO
IS 1ST CHAR" BEGIN

.----.----.

---------r~:----•

NO

I IX
.----.----.

" ... ~~~aL TO

15

~83~ESS

iN

•

•

".Z

-,---!~~~i:y-----l

.---.-_e •
•

NO

I

lR

ENTRY AODR.

I

NO
*.TEST

JiTlnl~A~O

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

e

•

·.----.----..

••

RECORD

___J

.----.----.

II

•

IW
----------------READ 1

I

• IS THERE AN • •
•

---------;--------

.----.----.

YES

IQ

AIIQUNT TO

NO

• IS lST CHAR ....
.... ~~UAL TO
.. t~

.----.----.
I

j---RELiiClj'jo;;----j

I

I

START

NO

II

It

J

I
IV
.----.---.•
•

IP

.*IS THIS
•• ~~~
RETURN FROM "
•• T .C.O.
3S

10

I

I

I
--------- .--------I

.----.----*

j---REAO-iN-------j
SEGMENT

SEGMENT
THREE

I
I

---------.--------I
II

II

OF

lU

.---iiiive-ciiRe-----j

IH

---------.--------CENo

I
I

I

YES

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

II

*

e----. ----. •

* I S NEW SEQ. * TEST
" NUMBER OLO
•
•
IN
• PLUS ONE

---------e-------I
I 18
.---- .----.

PAGE
TEST

IG

2X

I---~~;I~j!::-----l
~Ag~ESS
!
--------1--------I

3M

I

.---- .----.
2.

••

•

l~oI~ITOR

·.----w_--_.

• FLAGGED

NO

2S

•

-1---1;i~U~i!:~---I

YES

•••+It
"2J

I

.----.----.

Zp

I

1--18~~ST-------i
I

I

ADDRESS

---------r------I

I

TO

I

Z&

2"

.
No----i----*

•• TEST FOR

•

INDICATOR

.. TWO

TO

I
I

ZN

I

••
•

•

lsa
3K

.

I 2T
....---.---,'15 LENGTH

"

.----.----."

YES

THREE

Ir~c~80VE

•

YES
*.START

IV

NO----j-----

II

~YDRE

"" g'E2tTtsF&D "" 3L

"

"

"

---------r--------

NO----;-----

I

I

FIEtS

.*

I ZY
.----.----.

2R

Zl

r--:8ii;t~-~bii---1

I

HIGH ADORES

I

---------.--------START

IV

MONITOR II

.----.----.

FIVE
•

•

3A

•

I
I

I
I
I

·No---T--12

•

YES

•

0* ~AAmTER

* pas.
•

IFB
•

NO

* olFB

.----.----.

30

0

RELOC

.---- .----.

3M

NO

•

NO

0

I

.----.-_....
I
.----.----.

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

I

I
I
I

RELDC

3M

RELOCATION
AMDUNT FROM
ADDRESS

I
I

I

i---PUT-iiRANCH----.
I
I
I
I

.. 0

m~~N TO

I

I

3S

I

I

----' AL

i uL2fi------1

I

I

MONITOR II
EXIT

"A

j---REAO-·-------j
COMMUNI CUN
SECTOR

I
I

I
I
--------T~~--j---iNiijlLiz.---j

I

I

AND EXIT lD
10RT THRU

I

RmL~~UTNE

I

---------.-------.EXIT

.. C
FROM T.R....
RETURN

E2
.. 0
~-iRANS"ji------j
I
ENTRY AODRI.

,

I

I Igom~cH
I
I
------------------•

I 48
.----.----.

o NON-DISK

•

INPUT

•

·.--------YES

• • EXIT
NO
•
• 4'

I

!

I
.."
j---ReAiiT------j

I

RECORD

I

!
!
---------.-------I

I
TO

4G

I

AIID.
TO •
RUO ATED

3U

..

..G

NUMBER

..A

NO

'0 RESET
o

4G

I

I
I

3Z

j---SAyElAST-----j
I
I
I
I

READ RECORD
SEC TOR AND
COUNT

I

I

I

I

---------.--------TO

II

4A

PAGE

-1--~gvi;1512cE----,
EXIT

I
I

TJ

3N

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

I

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

RELOCATING LOADER
RESET

tRmCTW

I
I

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

T)

n

--------t---------

r~81F

3M

3Y

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

3M

------------------RELOC

I
I

.----.----.

•• AtSlHI~PUT

RELDe

I

I

I
I

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

YES

I

I

ADDRESS I N
COMMON

..

311

I
I
I
I

---------.--------II
I 3X

NO

j---8RANCH-iND---j

I

ADDRESS TO
ADDRESS

I
I

. ' ~~smo~HM 00 THREE
o FLAGGED
• ZR

·yES--T---·.

3X

3W

3R

ONE

+2

'---ADDRELATiy---i

I

E2

I
I
I

I

..

I

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

TlVE ADORES
FROM
ADDRESS

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

--------- .--------.RETRN
SIX

•

I
I
I

r-i~j;!r------l

YES

3V

I

1

I

I

II

r-i~j;U~¥F---:

38

•

3P

30

I

NO

I

'---SUBTRic,------i

I'
I
---------.--------

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

YES

.RETRN

3d

.*.S THIS AN •• ~O
INDIRECT
• +2
• ADDRESS
•
3W

j---suiii:RElA:----'

3D

•

•

30

'---8RANCH-iii-----i
umN AND

.----.----.

•• !ES
• +2

I

I
I

• IS 1ST CHAR. THREE
• POSITION
•
• EQUAL B
ZR
o

• *INDIRECT
ADDRESS

3 OF

3U

.----.----.

3A

I

I

•

*

3H

.---.---.

YES

FlGGO..

YES

o

30

I
I
I

. ' JasmD~HAR 00·+2
• FLAGGE D
•
3K

3H

O

.----.----.
I

•

.----.----.

LESS12
•

•• Hs~AJ~A~LO ·0 LESS12
•

CHAR AND
LENGTH OF
DATA FIELD

I
I
--------....-------FIVE

II

n
.----.----.

.--..-. ----a
3N

j---ADJusrisi----i

YES

··.----.----.
•

PAGE

3G

• IS DATA FLO. FOUR
LESS THAN 7 •
2U
NO

RELOCATING LOADER

4 OF

MONITOR INPUT REtORD ANALYZER AND PRDtESSOR
lAo

MB030

I
I

END OF JOB

•

--------.------MB020

I

liB
.--.---.

•

I
I

m~fA~D

•

YES

·

NO---r-*-

• ¥UP

•

I
.--.---.

ID

•
• YES
• TiST IF
• M811011
P OGRAM liAS •
.
• LADED DISK' lR

·.----eI___•"
NO

IH

I

lH

IliH~II:::---1

•

• "TEST If EItO".
OF JOB
•
•

• TIST IF

--------~.--------MBOZO

10

·

"B195

•

SA

• MIUOB
IR

.

HI:~::--r~:'

------e-----MIIO)O

.----.--.

MIIOIO

MlllOI

lit

"·TEST IF

'.

.--_.•

""•Iftlad
NO

011

XRAn

".

I

CODE.
UPOATE HIGH
INDICATOR

---------;--------I

I

lX

nii.¢.l
------0---e--.--.

MIIlOO

e__-.-.

• lIOn

•

NO

lR

r-Hifo~

".}lllo

••

IN

N80IO

10

I

I

.----.IlY
----.

.' mlUmN •• M8210
•

·

I

IT

I !YrfP~a.·EO i

,ito
MeaG..____._e
Z.

_nOR INPU' ReCORD ANALYl ••

1-- ,!jj;IiDi-----1
---------e---._
____
.IIGT

•

lG

•

Me:U

21

iy!"alft&

IILiiB-""j

r

•

I
.---.---.
ZO

."TEST
TYPE

•

IFNPUI ". • a2R03

•

YES---I--

••

I

2F

••

NO--r:·
.--.--.
·Y~-·I--·.

•

•

r-im:;-----j
---------~------

I

2"

~--ii~8~~~------~

TO

2G

2 OF

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

•

YES

• MFlOI
. ' 3W

"O----i----·

2e

• TEST FOR

•• -oop-

YES

• MDPDl
_. 3l

CARD

NO----r---·
I
.----.----•
2W

Zl

-

No----i-----.

• TEST FOR
• -XEO- tARO
•

•

I
.---.-----

yes

• MXQOl
•
4C

2X

•

.'
•

211

!~~~S!O~ARD

YES

' . "XQO I
•

•No---i-----

I

2L

•

4C

2V

l--ryPE-ou.------1

-1---si~iii~-----1

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

-------e--------

MCROI

.--.---.
·vES--r---.

MeR05

2C

TO

2N

•• =2R05A
•

• 2'

II

iiUDNEXT
ONE

2M

--TEST FOR
• -PAUS-

•

-----T--------

.----.----.

•

II 2V
.----.----.
•

• "tEST
Fa. ."• 12110'
-TYPE-CARD

.•

2A

• TEST FOR
' . -FORX-CARD

ZH

•

28

MtR03

l---r;;i-oUi------l
MCIIOl

••Til' I'IJR ••• ISiol
• -, 1- CARD

------.---•

1&

1Z

PAGE

.--.-_e

2D

I=J3j

MtROlA

"

r.,ij~-l
----r=-~-

"IHIIDA
MCIIOl

END OF JOI

2A

2U

ZN

UAJO
•

.

---------r--------

PIOCISSOR

".

·.----e-___e.

• "EST FOil

NO

r-ni~,;::-----l
TO

2AI

•

-

VES--;----'

IV

---------1--------

---------.--------l1li0)0

1X

--------1

--------e---------

-:::::---i--~:_------------e--------MIl95

II

M8200

1---~i~DAi:AS---l

MIIl.O

111

",lIll,J,

16

•

11

IW

~~8Gm~UTf

~~iiiiiLiiE----l

111100

I

FINAl. LOAD

lH

118aoo

1V

j---SETSySCAL-----

NO

.1---il&~t~MCH----I

~'~7

•

lP
.---.---.

." ~uMY~BER .'

It

MlUO

5

IN

I

.MII035

•- TU\~~R'jI ••"B035

"

I OF

.---.---.

j-CHANGC------j

INTERPHAse
ENTRY TO
MONITOR

PAGE
MBllO

IG

MtROl

•

.

.---.----

"JBOl

2Z

•

YES

2C

• MJBD2
• • TEST
PRE VI ~FUS
•
• J08
LOSEO. 3B

·No---i---- .
e

TOI

]A

5

MO~[TOR

3"
.----.----.

"JB13

•
•
YES
• TEST [F ANY. UT07
PHASE BEGUN •
5A
•

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

•

NO

MJB02

3G

i---ciiMPUTe-------i
[

DR[VE CODE

[

[

I
I

38

II

MJB13A

I

i---MiivE-oDA------j
I
I
I

MESSAGE

I

,

I

I

---------r--------

3H

I

"J817

.---MOvE-iliM-----i

I
I
I

I
I
I

eOUIV.TABlE

I
[
[

I

[

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

--------*---------

I

[

[

•

[ 3t
.----.----.

I[

MJBI5
•

NO

• TEST [F ANY' "J803
ERRORS
•
•
3E

3J

"J830

,

I

PACK NUM8ER

[

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

I[

I[

YES

[

.----.----.

3D

j---TvPE-eiiiiiiit---.
[CHANGE
SOURCE

•

[

•

! ______________ 2

'.

I

I

"CRIll
3E
.----.----.

·.----.----..
NO

"J813A

"J812

•

[
[
[

MJBnA

31'

READ CHANGE

•

[
I
I

[

~nX

. ' 3J

m2ESSDR

•• "JBI7
•
3P

I

•

NO

•

,
II

II COMPILER
~g~EF8~~RAN I
[
-------.--------MRORI

3S

f~3fcm:Y

DECDDE CDl.

7

3P

3Y

II
I

"OPOI

3Z

-1---iiECiioE-cii~--i

i---SET-PHASE-----j

I

[
I
I
I

8-9,10,1112.

!
I

-------r-------

AND JOB
CARD AND
DIJP
I NO [CATOR

TO

II

4A

.----.--.

-I---OECOOE-ciiu.---,
7. GET DO'

I
I
I

FOR TH£ DIlP
SUPERVI SOIt

•

I
I
I

---------.-------"11081
msA~gNTRl,

•

MXQ05
-

-.

I

o

•
•

•

NO

-.--e--.
.
I
~lMmhL

..

· ,

•

o

0

loX

j---iiETURN--------i
CARRIAGE
~UMP 2

LJ~~~!~

YES

• UTI OF
0

5R

[
[

_______ J

I
1
I

ENTRY
ADDRESS
CLEAR FLAGS

I

I

II

---Nii----·-UTloE--- 50

EQUIVALENCE
TABLE. SET
UP FOR
LOADER

~!mH2~ TO
m9D~ ?4~o

--------.--------"XQ06

I[

4K

TYPE REST

41

itT

UT05
I
I

~m ~m~

AND SECTOR
LOCATION

I
I

JOB CLOSEOUT ROUTINE

!-----------------!
TO

II

ItU

II

I
OF CARD
[
---------.--------.RETRN

r--~t~fu~M~-----1

I
I
I
I

loY

i---SEY-iiECORO----.

0-99

4"

I
I
I
I

II'

"s

4L

j---MiivE-iii-----.

!--------o--------!

,
I
I

.----.----.
I

YES
• • RETRN

I

.---SEARCH--------.

YES MXQ07

loW

TEST IF
TYPE ENTRY

IV

ItF

~~W~~~GAL

-

I

,--oEciioC-----i
I

I
I

NO

I
[

I
I

I

-

•

I

"XQ07

.----.----.

NO

•

IV

I
I

48

TEST IF
PROGRAM 15
INHIBITED

.---.----.

UT06

I
I
---------.---.----I

€~~~ROL

STRIP.

PICK UP THE - "B195

i---SE'-iiiJECli---.

I

~~mlaL

SA.

U

•

MXQ06

.----.----.

SU8ROUTINE
TO TYPE A
MONITOR

YES

--------j"-::----PROGRAM
INDICATOR

I

..

I,

INDICATOR!

•

4V

ROUTINE TD

..

·No---T--'.
.---.--.

ItO

=~8SJ~Tn

I
I

.P

ItH

• UP

•---SE'-XEQ-OR--i

I,

I

YES
- TEST IF 01" • UTlOF
•
ENTRY PICK
-

CARD
PROCESSOR

MXQOl

I

.----.---.

I

f
I
---------.--------.RETRN

.----.----.
I

MXQDIt

I

[IOGT
I

NO

1t8

(IF

i---'BRANCH-'To-----i

•
•
YES
- TEST IF NON' A801
DISK LOAD
•
•
•
!IS

IL

't

PA.GE

ioU

4G

MXQOJ

[
[
[
[

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

·TO I 3U

3N

II

DUP CONTROL
CARD
PROCESSOR

NON ITOR I NPUT RECORD ANAL YlER AND PROCESSOR
It'

[
I
I
I

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

-::::~-r::-----

~iU ACMBER • _MJ817

TO

2C

FORX ENTRV
INDICATOR
DECODE COL.
7

j---u'-s;i-iiii---i

NO

3M

-YES-T--'

3H

I
I
1
I

3X
j---oEcDiie-ciil~---j
1
8,9-10
1

t!l2n.

"SPOI

•

• ERROR

I

---------·-MJiiiA-

NO
• MJIIl'

·yES---i-----I .
.---.--..

•---'YPE-Eiiiiii-=---i

MCROI

[

• TEST [F
' . ~?¥~~~ED

3H

!---~~~~-.-------!

.3W

j---SEY-fOii-oii----j

I
I

[

III
.----.--.

"J803

•
•
YES
• "J812
• SCAN REST
•
OF CARD
•
3F
• TEST ERROItS.

PROCESSED
READ NEXT

·.----.----..
~U:m

3Q
MFTOI

3R
•

3V

30

3K

IS TH[S

YES

2C

I
I

I

I

IL

FOR AND
FOR X CONH.
PROCESSOR

r--1Bii~ilr----i

I

·.----.----.

[,

[
I
[

!_-------.-------_!
"ROB 1

I
I
I

MJ810

r--~~i:i~r------I
I

FOR THIS
PACK AND
WRITE TO

!---~!~~-.--------!

[

AND SET
S YSCAl FOR
SPS

3P

.---Miive-fo-------i

[
[
[
[

[
[
[
[

OF

3U

I

'j---iNiiicATTi"---'j
JOB CARD
WAS READ.
TYPE OUT
DECODE CARll

MSP03

j---YVPE-.--------.

I

[

[
I

PAGE
IN

---------.--------I

[

I
I

[NPUT RECORD ANALYZER AND PROCESSOR

TO

II

5A

MONITOR INPUT RECORD ANALYZER AND .PROCESSOR

.----.----.5.-

---------,-----I l=bIM~lf I

UT07

o °TEST IF
o

.----.----.

END OF J08
o fORCED
o

YES

UTOl8

~O

0 0

+2

0

•

I

5C

0

I

AND FIELDS

I

I

----~-.------~RETRN

I

I

5G

o·

. o.

5 OF

5

PAGE

1 OF 29

•.--.---- • N¥
5N

t~ Ifp~:RDR

U IDE

o NOT ALLONED 0
o
0

5Q

.----.---.
unOD
--.----.00 n¥
Of
.----.---e
.---.---.
~RRKR.o. ~'tOf
YES

.EXIT
5P

58

I--~&&~ii~~---I

o

I
--------..--------I

I

unoc

PAGE

0 TO EIIROR

o

YES

rilHii~lj -1
uno

50

SJ

UTlOE

I,.
.----.-.
.•o·!.x.uI~J
• •• ~nDE
,l1li 11M •
~--r:o

0

5Q

.EXIT
5Q

OOI'PE

• 0

---------e---------

• o nit

1 DE

F ILANRS

o NOT ALLONED 0
o
0

p~M &~L~T

.--.---.•

•

. ' III

.EXIT

un Of

5R

-.,--i¥;i-&iLETE---1
"USAGE

SQ

•

---------.--------.EXIT

-.-. ..Mlec

.. •°llST
,,'MA I '
••

YEs---I--·

••

!IN

•

ILNIt

~--r::'
•• .--.-.
gsu.ms.0unDO

511

1-- ifili::~---I

•

------r-.-TO

'.

•

.----e-_.•

•

NUMI

0

SP

.IXIT

"

5" 1i-o--'HAn A-SECTION AI TEM'ORARY

00020 START

00160

I"

lU

-~~:'i~--I
I

THIS PART
IS MASTER

----____ e-_______ _

PROCesS

lBI.t!~lA:

ODDSD ST •• TZ

I

l=~TJtpnM

1.

I IMI=UH. I
I

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

---...----00040 A1Cl

10

l---";Iti~!t~--~

-----------------TO
'H_.A

a.

8S)

PAGE

SPS II-O---PHASE A---SECT ION AI PERMANENT
00180 PHASEA
pup
*
READl • INPUT
DEVICE
2G

2 ..
.----.----.
•

.----.----.

TYPE
00190 READ)

00240 REAOl

.

CARD

• READ2
•
•
2C

TO

I
I

I

FROM PAPER
TAPE
PROST"

•

I
I
I
I

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

I

00250 PROSTM

2G

'i---iiEAii-STMT-----'
I
I
I
I

•

00Z60

AREA FOR
TYPEWRI TER.
READ.

•

.----.----.

LJ!~!~~!~! ____

• READ CARD
•
RESEQ OECIQ
• REQUEST

•

•

•

.
.----.----.
i

•

I

3A

2R

ZS

1=I~oUCT
8\lRJ~Mlk

I

~~~~E

•

-------r-------

00290

28

I'--m~~:;~~;---I
II

•

1

•• !!!J~~s 'GDE ••
•• oH'~8¥TlNE
·--------.-----.•• ZA
TO
PHASEA

yes

• RSCAN
•
2F

I

i
l

00220

YES
00280

•

·.----.----.
NO

• • COL 6
o

I

IS CARD A
elL ST"r

J

i

I
I

I 20
.----.----.

00210 R2BE

I
I

o·IS STATEMNT·' ~~OPI
o COMMENTS
0

NO
• RSCAN
•
•
2F

·.----.----..
YES

lG

ZQ
.---- .----

0027.0
•

PROCON

ZP

AND SWITCHS
FOR NEW

ZN

2Q

•

.----.----*
I
II:

I
I
I

PROST"

00200 REA02

A1
0
0

'---RESET •Bii;;RS---'j
I
I

---------a-------TO

IS PHASE Al
OR A2 IN
• CORE
AZ

ZN

211

Z"
.----.----•

•

o

1---~~i:~A~~;;;;---1
I
I
I

2 OF 7"

I.

---------.-------OOZ)O RSCAN

I
I

ZI!

i---:~~~i·~:~~
NON-BLANK
TO COL 16

I

I
I

---I
I
I

I
---------tt_------TO
PROSTM

2N

8SZ
SPS 1I-0---PHASE A---SECT ION Al PEII"ANENT
JA

00300 UOPl

00360

.----.----.

•

• FIELD

•

•.---.---.
I
II

NO
00310 OP

•

311

00370 AND

'---REseT .------,

I

LABEL + NO
OF ERROR
MESSAGE II!
LAB NON-BIM

I

I

I

I
---------tt_-______
_

3H

t~C¥ft~I~~

00~30

OPI

•

•
DUTiNE
JlSTRN.

I
I

30,

•

ER3A

••

o

3P

a=S~b~lE

* ___

I

3W

yES---j-----

0

I

0

I

3F

-1---TRANsFER-----'i
I
I
I

VECTOR.

I
I
I
I

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

I

TO

I

ER 3

I

I
I

3X

CODE. PROC;

I
SUB INSTRN
I
---------.--------TO
LOlBl

I
00350 OK

3W

r-n~il!i~~:~----

.
•

I

i

00410

o

• • OP CDoe IN
o TABLE

I

---------r--------

tt_ _ _ •

i 38
.----.---.

003~0

NO

3V

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

IDA

I
I

NO

ER3

lA

•

3V

----.----.
•' ·
'.
.
· I

oono

OP

r-s~A~~~~iiT-----~

NO

YES
OPI

I
I
I
I

r--iig~~iiRiiR-----1

o • RECORD MAIII·. n~A
•
IN OP CODa
0

.---e_--_.
I
I
I 3D

STD ERROR
PROt. ER2

00460 ER3

*----.----.

•

DO~5D

·-------.------.
lDLn

'---CLEAR ·LAii-----j
TO

3P

·• iua

3U

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

•---PR-g-iEssiip---.
O

ERZ

I
I
I
I

I

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

~a8iE~$ CARD
CODE.

-}--lfKi'"------j

TO

i
00320

ImiTiNES

00~40

3N

2~: g~~sc

THE FOllOII-

3U

or

PAGE
OO~20

¥~Aa~~ ~'RE

•
•
YES
• RECORD MU't • ERZ

IN LABEL

3&

3G

853

IDA

?')

SPS 1I-0---PHASE A---SECTION Al PERMANENT

OOItBO TRSCAN

4~

00540

I---ELIMINATE----'
I
I

LEADING
COMMA

I
I

•

I
I

•

I
I

------------------II
I

00lt90 SCAN

I

48

00550

ltO

E=p9~

COMMA

00510---------1--::-----

o

•

No----OI---00520 PH88

r

oono
TIS

0

UcAloAMA"

00

u
:~Ai~fiiii----'

iI,
I
-------.--------

MRi

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

I

00560

r-~~~i'~F-----il
I

4H

rli~i:~!~~r--l
-------.------I

I
I
---------*-------

fl

00 sc

o

•

YES
• EULER
•
• 12U

I
'

I

mTCHES

00500 SCAN2

..----.----.
I

ERROR IN
- OPERAND

•

•

•

•
•

NA

4F

1

.----.----.
4N

00610 EVALAD
•

IS IT A
• OR -

•

I

00590

8UFFER FOR

4U

II

I

I

4P

00620

I
I

00630

4Q

CHAR.IN
OPERAND

I

I ltV
r-------·--------j

411

00640 8CMSPC

jn=O¥UrL--~

•

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

•

•

YES

·No----j----·.

•• GET

•

I
.----.----*

6A

4Y

.: ~!E~:i~A~ :. P;:15
•

•

NO

·.----.----..

•

YES

It!!

I

I

I ItZ
4---.----*
•

00660
•

-----j----

•
• IS CHAR A

NO
• PHB16

•

•

8LANK

•

50

.----.----.
YES
I
TO

TO' 4G

r-

,

A RM

00650 PH814

l---ii~hlli::~--~

UI

f!I~'i!~--~

5 OF 29

.----.----.

00840

------.----•
le."c

5A

PAGE

SPS II-o-I'HASI A-SECTICII! Ai PUMANIft'

00610 PHlll

I

4X
.---.----.

•• CHARllTER

0

005)0 SCANA

loW

---iET;~~ll~~~--­

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

••

o

I
I

i~ ~:m~~

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

*----.----. 0

TE5---1----

iI

,

NO
• IiHUACJE~
• PHI11
0_ AEl~fiMXH OK 0- 4M
o

DOL. ZERO

!_-------.-------_!

j---Gii-NExj-------,

I

II

OF A SYMBOL
---------.--------I

r--~~A8i;:~iiii:---i

e

I

€~~kmm

I
I

1________________!
00600

4 OF 29

ItU

-1---INiTiAlizE----r

NO

- EVALAD
•

.----.----*
I

YES

NO

r--l~FJOkAZB---1

I

.----. ----.

o RELOCATION

PAGE
00580 PH811

ltG

5U

•

••

•
• NO
Ii S'(MBOL • PH817
GR ATER
•
- TH N 6 CHAR •
5A

·.---.----.YES

00850 ASTER

EVALER
5V

* .----.----. •
- ANY ~~M80L _

*.

~~It. ING

YES

GE Tl
•• 5W

·.----4----.-

YE5----,---OOIOD

12U

NO

. 10

.. .

·:·ii~~~·:_;~11

00860 GETl

PHB19

5S

5W

r-;i;-t~l:~;;---I

"

.---.----.
.am..

. . .r.!-l
lID

5D

00700 PHIl6

I---j~l;ilr~--~

----.-----1

007l0--------i"-::----

•

0··----·---·. XU

.

.

• , eHAUeTER
coRAA,+..-. •

6A

No----r::·

00720

.0
•

*----.----.

.---.----.
I
TO

5G

55.

.--1!~iA!~~:---•

CHAlnm.

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

5X

•

··1
--------c--------1

•AMt~Ro' •• _~~i2
NO

PH811

. OOUO "H119

00830

•

uu

I

51

.

ER~k~

IflNG

CHECUD.

DOL • DOL+l

I

--------i------TO

5U

---------.--------TO
GET
00870 GETZ

6A

5X

r-'Sf&ti~~ET---i

I

SA

-1

!

--------*--------TO
GET

6A

SPS II-O---PHASE A---SECT ION Al PERMANENT
00890 GET

bA

.----.----.

I S THE
•
SYMBOL ALL
• NUMER'C

·

.--__ e_---.

NO

,
I

.

00950 GET AS r

YES
• TRNUMB

·
•

bN

• ---SETA;;LOC-----i
,
,
I

CTR RSYMSW
ON IF REL_
ASSEMBLY

YES.

I
,
I

6N

.---.----

.

01020 MOVE

DIGALF

I
I
I

·.----e----.

loR

BETA_

..

.. LPNSW ON

•

I

·

•

•

00910

•

---------.-------- B

.

.---- .----.

I bD
.---.----.
..

IS
$
PRESENT

I
I

loG

NO

00990 DIGALF

•

• .. lBAOD
YES
•

•

l~At

LABEL

1H

NO

01000

I

1

I

I

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

,I
'6X
.----.----*

yes

• • MOYE
•
6U

01050 SLOP
•
•
IS OPER

•

.----. ----

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

01010

Tim

CHARACTER

I
I
---------It_----LBMlD

I

7H

bY

-1:1---A~8~i;;;:-~~----

ALPHA

---------.--------I
I

01070

61

I
'---ALPHA-;;;-;;------

I,

I

,

1
-------__
e ________ _I
B
MORET

16R

I

01060

•

6T

ALPHA

YFS

• [
•
•

I
I

NO

loA

•

BLANK

NO

YES
•• 91~~~C~It.G •• DIVIDE
•
•
lA

L8ADD
1H

•

6S

.
·.----.---..
I
I
-1---ALPiiA -:-------.
•

r----A~Hii,------

I

I

1

I

I

loR

.---.----.•

loW

I

•----e----•

I

I'

009~0

•

I

•

loB

sH
••
···.----.----.
•
NO

I

1
1
1
1

'---SEr-LPNS;-----i

I

• e EM:~~HA

,

I

00930

01040

60

NUMER IC EQU
OF SYMBOL -

GET RETURN

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

6R

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

.----.----.·
I
.----.----. .. yes
..

•

I
I
I
I

,---sEr-i ETA-:---i

I

00920

DIGALF

009BO PHB25

YES

• • COLLECTIID • GETAST

bV

j---su8RDuiiNE----i

NUMERIC
EQUIVALENT

1G

I
I
I

01030 MORET

6P

---SETA- == --------

YES
• FERR

NO

..----.----.
I
II
loG
I
.----.----.

'II

00970 PHB23

I
I
I

I
1
---------.---------

I

I

I loB
.----.----.

00900

6 OF 70

ioU

.---AlPHA-;;;-------i

•

EVALER • NUMERIC SYM •
EXCEED FIVE •
•
12U
• DIGITS
•

!-------- .-------_!
TO

PAGE
00960 TRNUMB

loG

'

OPER

a

lERO

,

6V

I

---------.--------TO
SCAN2

4C

856
PAGE

SPS 1I-0---PHASE A---SECTION Ai PERMANENT
011~0

111

01080 DIVIDE

I

I

I

I
I
---------.-------TO
MORIET
01090

6V

78

,

1
I
I

I

ER5

---------.------TO
EVI

12V

1H
.---.---.

•
•
YES
• CHECK ONLY • GETR 1
•
REQUESTED
•

..

---------tt_------

-----.---.

NO

I

I 70..
.---.--...

1&

01150 lUDD

r--sE,-ii jvSij----j
I
,

FERR

r-lig~ift~f----i

i---~ir~A~~;;;:--i

LB2

..

IF

8A

01100 INTERM

••
..

..

~n8~ATlD"

·tt_---tt_---..

.. 12U

NO

~Q

C

01110 RTPN

·

YES

•• EVALER

.*. J~IR

10
.----.--

• *lPNSW OFF

..

.

..

7G

NO--r-:01120

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

..
• XR FLAGS
•
REQUESTED

NO
SCANA

-·.---tt_---..·
YES

01130

•

-

4F

I

i,

1'"
.---sE,-iC-----.
,
FLAGS ON
I
I
I

RESULT

I

!I

~ _______ o- ______

TO

SC.ttU

4F

857

1

O~

7'J

SPS II-D--PHASE A---SECTION U

PERMANENT

8.
---SEARCH-ciiiE---

01160 LB2

IN

II

01170
•

.---.---.

•• ~MNfiYM80~

•

IP

1- !ii¥il~:~:---I
aLolA
--------.------

NO

•• NIC

•

aG

01310 BSCYC

Ell ,

I ---I

EULER

120

I

i
I
---------e---------

I

•----.----:e-

01310

01200

•

YES

I

013"0

I

kW~o
9B

••

----Im;:--

--I ~ii!~;:
. ..--I
9.

Isnc

IV

...

' '~~

------...--asnc
-8V .-.
TO

01390

.----.----.

I

•

• &DMPARE

·.

•

90

,

\

HIGH

• aSH I

•• T8$l=~Ds~~: •• 9C
EQU---.----.
BSEQ
9A

.

PAGE

SPS II-o---I'"A.IE A-SICtlllll A1 'UMANIIIT

TO

8Y

81

013'0

-----tt_---

------

I

II

NLINE

I ..

riI:~jpr--l
...---

NO

..

-I---!ji;~'v;~i~---I
TO ....
---------.---------

I
l---a~fiiii&iii~

01370 ISLO

LI~I~ L FT

.

IllnlM'1II!
--------------

01160 1510

•

·.---.----.. a

•

I

8X

• ~REi IIEIULT ••

••

81
---_.--QH----

01210 GUill

I

*.

YES
•• R~~2~AUa~ •• ItELER
• lULiT~LIED • IIG

Nir----I---

8M

--------r-------.----.----.

80

•

I

-I---fj~~!:;fi~i---i
~Y~BolDN OF
I

EOUI YALENCE

•

BETWEEN
LIMITS

I

01320

80

8Y

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

-I---ALPHA:'S YMa

01190 LADDR

I

-1'----~;&i3Y~;------

I
I

yES--T--·
01110

---------i---------

8U

01290 ERSA
-

8U

l---iNllit\iiii----l

ON
RIYMSI'
.IIEl
YII •
REL RRO

88

r

as

01300

~'~~~TtU~

FOR
COllECTED
SYM80L.

--:S~--r-BS----

8 OF, 29

PAGE

01280

9 OF 29

PAGE 10 (IF '}(}

SPS [(-D---PHASE A---SECTIDN Al PERMANENT
01400 LDLBL

10h

01460 SVDG

*----.- ---t!-

TO
108

..

*----.--_....

YES
01420

NO

.. ER28
• -IOU

·

I

I

I
I

ION

INTER MEO.
DATA
SUBR OUTPUT

01520 ER28

Ie)
rol
1*.
I *1
1*1

I

I
I

---------.--------TO
PHASEA

2A

lOM

*----.----* ..
IS EMPTY

01480

i---AssEMBlE-----I
LABEL WI rH
HEAD FOR
TABLE

TO

I
I
---------.--------I

I

10J
--------- I' ---------

LDSOK

01540 ER4A

I

I

I-I

1*'
1*1
1*1
.*1

.
··tt----.----. .*
••

I-J

ER 4.

1*1
1*1

NO

L05lQK

01550 ERI9
•

•

•

•

10L

..

01560

lOX

-----.----. •

Nn

..----e----•.
IS THIS

..

~NI.J1Lt'

fiRST TIME
"
ERROR OCCUR • lON

I

I

I

I lOY
----------------I
STD ERROR
I
I

~~mEA

ION

SNOTeO

I
I

PROCEDURE
ER 19 •
SET sw TO
STOP PH B

---------.--------TO
SNOTCO

10F

ION

lOA

01450 LOSOK

..

1*1

1"1

TO

THIS SEer
IN CORE
DURING

lOY

lOW

PROCEDURE

YES

YES
ER4

I

STO ERROR

.-[--------_--------1 .. I

10F

10K

01500

IDe

II

1*1--------.--------1-1

8U

*---- .----.

•
.. WAS LABEL
...
FOUND

ION

SNoreD

PARTIAllY
FILLED BLO'
TO CORE IF
NECESSARY.

I
01440

I_I
1*1
I" I
1*'

IOV
----------------RESTORe

THI S SECT.
LOADS LABEL
TO SYMBOL
TABLE IN
CORE + DISC

II gm
~~R
LABEL
I
---------.-------• SUB
I BS

1_'

[*1--------.--------1 *1

I

01490

ERROR

PROCEDURE.
ER 2.

DISK AVAil
•
• FOR SYMBOLS .. lOX

TO

100
---------------I
SEARCH

STO

01530 ER4

NO
• ERI9

I ~SI~i;~ORE I
I
RESET TO
I
I ~8~BIH&~Y I
---------.---------

I
I
I
I

IOU

I -1--------.--------1- I

I

.----.----.

---------.--------01430

..

YES

10C

I
I
I
I

..

•

ION

i---(jUTPui--------j

SNOTCO

01470 TABFUL

*---- .. ----* ..

.. I S LABEL
.... VALID

01510 SNOTCO

I
LABEL I NTO
I
I
CORE. INSRT
I
LAB EQUIV
I
I
_________ tt ________ _
NEXT TO IT.
I
I

NO
01410

lOG

i---iNsfRr-------1

tl..
YES
.. LABEL F lEL-O .. SNoreD
BLANK
•
tIlON

*----.,----. •

• ROOM FOR
SYMBOL IN
-.CORE

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

YES

NO
• TABFUL
•
• lOH.

I

I

I
TO lOG

PAGE

SPS II-D---PHASE A---SECTION AI PERMANENT

.----.----.·
·
.
.·
·.----.----.··
IlA

01570 OUTPUT

IS THERE
ROOM ON

•

01 SK

YES

01580

..

•

·.----+----*
I

2P
0

•

•

I

.'

I 110
.---- .----.
•

~1~LO~~TPUT

*.seCTOR

.----.----.

yes
01600

I

I

I 110

...----.----...
YES

--------.--------OlbltO

,

llJ

r--~~A~g;~gyf----I

NO
00 2SECT

I

.. IlE

CORE BUFFER

RETURN.
---------.-_._-----I

11K

01650

mMO~h

OUTPUT TO
DISK

III

01660

SOURCE STAT
+ 7-01GIT

5RO~ ~~d

ON I-PASS

01670

:1
101
I*t

I

I 2PSOUT
I
I

II
I

11M

PACKED
8-DIGIT
CODES. 25
ON
2 SECT.
ON 2-PASS

..

0

NO
• RETRN

0

llU

,

liP

aOs~OURE

1,

SET SW TO
STOP PH 8

I'
let

1* (-------- *--------(*[
.RETRN

lIU

----wRITE· 6:0IG---CODES ro
DISK
2
SECTORS
RETURN.

I
---------.---------

I

I:1---srO-ERR(jii-----I:1:1

m~ TO

I

1

01700 2PSOUT

liN

•
• F lIST
OCCURANCE

01690

llH

"j---iiRIT"E· ,iiii------

I
I
I
I

.----.----.

01680 ER20

NO

o •

YES

.SUB

IP

•

0

2PASS

llG

llG

' . :"ED}MODE

011030

• WHICH MoDe
I OR 2-PA9S

01590

0

o WILL THIS

I

I
I 118
.----.---.

.----.----..
•*lt3
.
.----.---.
I

0lf>20 2PASS

NO
• ER20
llN

11

or

?'.'

SPS II-O---PHASE A---SECTION Ai PERMANENT
01710

120\

01740 EReOR
I-I

,

I 121!l
1·(-------.-------1-(
PRINT ERROR
1*1

1*1

MESSAGE

I-I

I-I

i:1--------.-------1 :I
I
.----.----.
.SUB

I EPItINT
I

01730

I-I

I

!

1*1
1*1

RESET CNTRS

I:l
~m~~ECORE I:
[*1--------*-------- [-I

I

01720

12G

I:
I---YVPE-MESS-----I:
I
I-I
+ BAD STHT
I_I

THI S IS sro
ERROR
PROCEDURE

12N

IUH

01750

•

.

.

01790 EVALER

I

I:,
M~,sm'
1:1
1-,
SYMBOL.
1*1
f: -----------------1:1
I

01800 EVI

,,
,
.----.----.
,

12V

•
•
ERROR STOP
_- REQUEST

28

NO

01810 CHKND

12G

I

!

12W

j---sEy-iiisUly----j

~~lOR

I,

• 126

-.NO----.----.
I .CNTNU
I
I

YES

* _ERCOR

*..----.----. .*

PASS 2.

---------.--------TO
IIUD]

12U

I: r--;;iiiNr'Eiiiioii---I: I

r--l~i~;aN;~------1
STOP all

1211

--ERROR STOR -_
REQUEST EO
-

PAGE 12 OF 29

I

mi~OOPRNO
TO ,OR RM

1
I

---------.---------I

I

I 12X

01820

r--jiji~:~

I

RETURN

--------\

I

---------.--------I

13.

.----.----..•

01830 CTEST

•

SPS 11-11--'"45£ A--SECTlOlI Al PERMANENT

_- 23~i

:~~~01

-.

·yEs----,--··.

• EXCEEDED

.----.----.

NO
BMT
13£

1311

01B40

•

.* FIRS~Eml
-

01850

•

h~ED

•

NO
-.BMT

-yES----,-- -

- 13E

130

--------,---.---I 1~~~CtloN
I
I
I
---------e---------

01860 EIIIA

I

130

I:I---YYP--!-RO~---J:I

I~I---~~~!~::~:~---I;
*

MES AG •

I

138

t.

I

PAGE 13 OF 29

SPS II-o---PHASE A---SECTION A2
01900 lNSTRN

14A

01960

"(---ADJUST -LOC---.
I
I

COUNTER TO
NEXT EVEN
LOCA TlON.

I

I

PAGE 14 Of 29

14G

-,I---F881~F------

1
I
I

I
,

1

3. DOBOMK
4. DOBI
5. DOROW

,

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

-..,.-------*---------

!

I

I

01910

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

I

I 148
--------.------CHECK P ANO

01970

Q FIELDS
FOR PROPER
fORMAT.

I
I

--------.------.SUB

I SCAN
I
I
I
01920
I 140
--------.-------LOCATION
COUNTER =
LOCATION
COUNTER +U

B. DOSVRS
9. DCDISK

i

020.10

114M

"---;:-iiol(
--------..,
,
7. DOSIOC

, l'IP

I

I
10.LDLBL
---------.--------

48

iI

01980

14J

rli:ggi~:;----I

L ______.______J

·--------.------- .

,
I
I

I

01930

01990

I 140
--------.------CHECK TO
SEE IF CORE

·--------.------.
~~M&~n

SUB. CTESl'
I

( 14K

.--sEi-iip7-OC----1

I ·
I

CODE - 01'
Q-IIODIF.

I

------.------TO
LDLIL

lOA

I
01940

I 148

t~A~~~ g~RE

,

,gb~?=n~

AND

1

01950

I 141'1

PROfESS
NO VI VA
INS RU~TlIIr.

,,
I

TO HG

PAGE 15 OF 2'1

SPS 1I-D--PHASE A-SECTION U
02030 OS.

15.

r-Hli~~'~~---l
--------*------020'10

, 158

•---EvAUili-e----•
l~hA~&~!'"

.

ImOUTINB

--------e-------,
02050

1150

~--fi~¥Ai,8

!

LlHH

N~----·I---·

--II

LSJ

---------i-------

I

02060

150

---EviliiiiE---2ND. LENG~
OPEUND--•

~g==OUTlN8

•

-------i",----02070

16R

158

r--m~ii~~EO----1
'TEMPR

I

I
I
---------.--------02080

y:s-~-·,----·

LSR

02200

.----.----.

•
•
NO
• 2ND. LENG~ • ER7
• OPERAND
•
• PRESENT
• 15L

.

*---------.

YES

I

TO'15G

--------.------TO

EVAL

L5T

-1---j;litE·99999---j
I
,
I

15G

IN LOCATION
COUNTER.

,
,
I

I
---------.----... -TO
N

165

SPS II-D---PHASE A---SECTION A2
02210 DAS

PACE 16 OF 29

16_

---'EvALulT'E----LENGTH OF
DPERANO--SUBROUTlNB

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

·--~~-.------- .
f

I

02220

02400

16B

---'EvALulTeo---LENGTH a
LNTH.

·

t
.---.----.
I

•

N°----I

•

.DSAC--j-----.

.'
•

.

16Y

O

DAS6s~~C

OAS+

DR ' . E
• 16R

--.

02230 --------;-:::----

.':,Trliu,i--'
.:
5pM.Ii"
.
.

LENGTH

·-----------------.
'·16Q

j--~AkVii'E-------,

I

I

02250.

16R

e----.----.
16.

o
o Pllvtl!eNEIl

E

00

o

0

0

t~DA~~sD

.------.

.02110

Ng

N SINI

00 161
0

l---~i;!NDiC:i--~

--------e----T)l6G

11.

r--iU!tjliiii------1
I

PRDI!EDURE

_________ e _ - -____ __

I

TO

DAQI

16M

16R

----------------f l8N9M~CS~ I
16X

~

I

!

LNTH.

--------r--------

. .___ .~.

02"30

I 16Y

I--------e---------!

.....··.1I1o
•.·~
••
••na

----STANDARD------!
ERROR
PROCEDURE

•
•
~i---i-·

TO

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

DI... NOlI..

It'

•

..------'s...

fall..

T)16U

SPS II-D---PHASE a-SICTlOII .2
02450 Eal0

E

02"20 ERa

, ,tZ

..~:--~::.

16"

02260 DAC

TO

~s-r

".

!

ADDRESS.

It. - -

•

---------e_-------.SUB
SCM
YES

I

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

-----T
-----.--.
.iilllAf' ",IV.
,
0"

OPERAND

116W

r--~8fi~il~N;~---1

.

02100
022"0

02UO DSAC

1601

022.0

--~~rbi;~-----

•

•

II

•

T.

02""0 ER.

1

DACR
161

r-mi!~::-----~
--------.--------TO

16N

DACR

16N

PAGE 11 OF 29

SPS Il-D---PHASE A---SECTION A2
02460 OSA

18A

02520 MODIFY

---CLEAii·LNTH---

j---LABEL·Aiiiiiis---j
I

I

188

•

I
II

02530

---EYALUATE----AODRESS Oil
OPERAND.
SUBROUTINe
SCAN

+5

I
I

180

02540

I
II

---LNTH-:'-LNltt---

I
II

02490
•

••

180
.----.----.

·.

BREAKER =
• AN RM

--.----.
NO
I

I

02500

.

18F

18B

02560

OPERANDS
FIELD

•

•

•

18 ..

.----.---. •

IS LNTH
GREATER
• THAN 50

18N

•

I

i~il~fYiiE • -.
--------.-------TO
LDLIl
IDA
CTEST

I

•

19..

.----.---.

A~ f2~~E~Ti

02160 G

•

YES

'. ERU
• 19C

·NO---r----.
THAN 50

•

02120 ER8A

-------r-------I

19D

02190 DCTEST

•

OF OPERAND
TO 50.

-------r-------I

19B

02800

---i&ak~~F----OPERAND_
SUBROUTlNB

19G

19R

•

19M

19L

!
I
--------r-------,

19M

'j---PU;:-CHAii----,

I
I
I
I

--------+-------CCOO2

*. 2~iRCO

-I--LABEL· AiiiiiiS----,

02810 CHARCO

j---STANDAiiii------'j
TO

DC OR OSC

=LOC CTR

·---!~~~~2------.
TO
G

ERROR
PROCEDURE

19K

.
··Dc----·I----•

---SET-LENGTM---

I
I
I
I

·

.-------.-------.
I
I
.----.---.

I

02150 ER9A

.

~'EST

A80RESS ' .
OF PEUND
•
• P_ESENT
• 19K

19Q

I

02140

.---.--.

.'

19H

02110

1911

-I--iiinKAiiD--,----j
PROCEDURE
I

021)0

I

•

I
I

l8X

COUNT INTO
INDIC CODE

I

I
I
---------.--------TO

E

-

••

•

•

.----.----. •

NO

IS IT ALPHA' NXT
I
•
• l8U

NUM. OR.

02610 CCON2
18X
• .---.----.•
YES
• OP GREATER. • LNTsr
•. THAN CHAR_
•
• COUNT
• 19A

.----.----.
I

NO

02680 ER10A

18S

i
I

18Y

r--~~i~~~y-----I

j---sTANiiaiiii------'j

L~:~:::

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

_______J

I
I
I
I

COUNT. 1

•

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

ERROR
PROCEDURE

02690 DCRH

I
II

I
I
I
I

18l

r--~~~~ttj~ii-----l

II

~ij~\~fi~s

OF

II

---------r-------IlNTH.'

TO 19A

PAGE 19 OF 2'1

1.9G

N~---"---'

I

I

02110

--------i-------

T)UU

SPS II-D---PHASE A---SECTION A2

.'•

StAN

02630 CCON

TO 18(;

02100 lNTST

~Umn¥iNE

I
I

lBT

••

I

I 1811

YES
CCoN

lilT
_---CHAUCTEii-----_

IBM

•

·.----.----.

NO

I
---CHESK-jF------

YES
• ER6

_

.----.----.
I

NO
02660

118R

026ZD

---~~~~.~~~---I
02570

•

•_

-I--l~-~iil~:-----I'
18B

... lax

I
I
---------r--------

I

11IL

,

---------.-------TO
DS ..1
02510 OSA2

·.---.---..
YES

I lav

18&

18Q

-------1-------fl~k¥H T~F

I

II

• -----.-----.
YES
• IS IT A
• CCON2
... COMMA
...

I

••

·.----.----*.

02650

r--m;'jNiiic-----l

02610

NO

IS THE
• E
•
INSTRUCTION •
• 16R
• A MACRO

•

18P

I

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

NO

MODIFY

02600 DC

I

I 18K
•

1---atlIF~;Cij~jA----

II

IIJ

• .---.----..

~~i2

•

I

•

18U

...
YES
IS THE NEXT' ER9A
CHARACTER A •
• RM
... 19f

•

i

TO

CODE

02550

••

•

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

t
i
---------r-------

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

I

I -------.---------I

_

'j-sE;:-'jitiiic-----'j
I

·5

PROCEDURE

--

--------a------

I

02640 NXT

*

~g5~mN+
LNTH_

_

•

I
I

02480

I

02590

---lOCATioii-----COUNTER

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

18H

18N

r--m~~iRii------i

I
I

I
I
---------.---------

I

02470 OSA 1

D2580 ER6

I

-lOC erR

I
I

·--------a------_.

I

PAGE 18 OF 29

18(;

SPS II-O---PHASE A---SECT ION A2

02820 DGM

PAGE 20 OF 29

20M

-..,-EvAt:iiiTE----ADDRESS
DPERAIIID-SU8ROUTlNB

---~!~~~~------- .
02830
•

LOB
.---.----.

•

:~ad~!D

TO

MACR02

21A

YES

.No---T--·.

• PROiRA"MER

••

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

• E

.
----.----. 2.'

•\6R

TO

DeCl2

I 200
-------.------

02840

..

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

-------;--------

I

02850

TO

DENII.

29'

200

'---;8c-;:&lfsI

I

----I

------...----I

TO

E

16K

PAGE 21 OF 29

SPS 1I-0--'H,,51 "--SeCTlDII AI

""'l~ii;~

-----r:~---l--~~!~~-----I
----e-----

02'lO fl.

...

...• ~J;~
...•
rR!lTbl
.--------.--------.

I

02910

02920

rI

21G

!:iiiA8-~-l

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

029.0

: --.:

02960 IOGET

IIIIU

.

13A

NO

••PUTSRJ

• 21R

--------e------TO

21U

21K

---iO--·"'o""'e"""-AL-';; 211'
21l

l-~ii:t:~:c:----~

02980-::::~--L:----1-~~ifii~&iiST---1
SUBR StAN

---------.--------TO
PUTSRJ

.8

21P

.----.---.•

• Rll

rliq:!~·-l

02910 SEU

.SUI

.. 6' 1158"0

I-r&i.IAOi~--i
TO

I"M

---------.--------•

.----e---.
oallo
1,1.1

---------

21N

I---fili!"ii:i~ --1

OiODO

21"

:·--tVE:-~JI:

O2"O'VI

21K

lDlBl

lOA

SPS 1I-0---PHASE A---SECTlOI'! A3
03060 OCARD

2lA

03100 PC ALL

j---se,-jNiijc::----j
I
FIELD.
EVALUATE
I
l i S T OPERAND
= ASSGND AD
I

I

Ol070

I SCAN

4B

II

I 228

03110

r--gSm~~2ND----

II

I
I
---------.--------

fI

f

.

o

I

.SU8

I SCAN

48

I

I

.----.----.
I 22C

•

•

•

WAS 1ST
OPRAND

PRESENO

.----.----.

I

o

NO
03090

•

•

•

YES
ME XI T

• 2LU

IS IT VALID

I

.----.----.
I
I

.

"

• ____ e ____ •

03150

""

"

~rt8AD

" 221'1

"

CALLEX

22U

II

LOCATIUN

I
II

03170

22P

22V

I

OPERANDS

I

I
I
I

I

f

I 22Q

03180 ER22

j---iiiii-;rro----j
I
,
I

LOC. CNTR

J~d~2T~P2g

I
I
I
I

2lU

22M

.---STANDARO------r
I

I

II

26 IF NOT
--------.--------TO
MEXIT

CODE. ADO
b fa LOt
CNTR

---jii---'-iiexlj---

48

ERROR PROC

I
I
I

I

I
I
I

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

21U

I

03190

I
I
I
I

22X

'I
---se'-I GNORe---•

---jii----o-M'Eiij---

~m l~EN

II

I
I
---------.---------

I
I
I

220

=AOORS CNnt
+1. ADD 8
TO ADDRS
CNTR

i---ADviNce-Loc---'j

j---seT-jNDlc-----j

'---lABEL ·EQuL'V--i
I
I
I
I

22U

r-1~ici;iiiNii----i

---------.--------.SU8 I SCA"

•

.

""WHICH ONE

I

03140

NO
ER22

122M

EXIT

I
I

I

H~~AO
221'1

I

I 22H
a----.----*
•

I 22J
.---.----

03120
•

1ST

YES

I

03080

•
I

---------*--------

I

II ~gCNE~~TR
II
EveN LOC.
I
I
---------.---------

6~~::~6

03160 CALLEX

22"

,---iDviNcE-------,

j---COllEtj-iNii---j

I
I
I
I

---------.--- ...----.SUB

PAGE 22 OF 29
03130 CLLOAO

,21G

2LU

CODE FUR PH
B. RESTORE
PHASE A2 TO
CORE

--------.-------TO
SNOTCD

03200' DDA

ION

22Y

r--mk~~F------I

OPERAND

I
--------.--------.SUB I SCAN
II

03210
o

I 22l
.---- .----.

. ' mt~C~~ER
• ADDRESS

,

4B

YES

o DDA2
o

• 236

.---.,..----.

NO

I

I

TO 23A

l'
"

PACE 23 OF 2_

SPS II-D---PHASE A--SECT ION U
03220

23.10

r-!i~~iI~i~---I

mm~O

------"'---r------0323D DDA2

I 238

j---CHECi(·------i
I
I

OPERANDS
2,3,4,5

I
I

I'

--------.------I
.SUB

I SC ....

48

1230
.---.----.

03240

•
•
YES
"PROGRAMMER ""EXIT
t~~I~~~O
""2lU

".
03250

o

Nii---T---"

,

I 230

j---iii:iusf------j
I
I

:I

AOOR. C TRoi
TO NEXT

rmTlON

I
I

I

--------1-------03260

I 238

'---LABEL ·iiiiiitS---j
I
I
I

-LOC CTR

I
I
I

---------r----I

03210

I

231'
.-------

-------- I

' TO
ADD 13
AOOR. C TR.I

----------------TO
HElOT

2lU

0.,.."

SPS 1I-0---PHASE A--SeCTlON ""

Z4_

03290 DEClZ

~--~5i~~~E~~---'
I

03300

SRANCH TO

j---EYAlUlTE------j
I
I

I

I 248

I
I
I

3.DOT
4.HEAD

ADDRESS
OPERAND

II

!---~!!~~2~~~~ ____!

I F~El8:1 ~~B I
---------.--------I
II
i--~:8ijf~-------j

PAGE 21t OF 29

2~G

03310 DMES

I

Q3320

I

I
J

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

ALPH
J
25A

2~H

I zu
.--.---.

.·IRfAKER A •• ~~IR"
• RECORD IIARK •
•
• 24'

•

N°--T:'

TO

.--------.--------.
TO

03440 DMSERl

lOlSl

lOA

24V

j---STANDARO------j

OMSERl

I
I

I
I

24V

ERROR
PROCEDURE

I
I

I
I

-----.,.--.--------TO

DM2

2~S

03390 M
ZitO
---D-~GiTS-:----1 o. THIS

.--..----.--------.
JRo~~~9R 8

TO

OMSERI

.----.---.

03"00 DM SEtlD

2"V

2ltR

··
.
N0-----I
•

• DIGITS * 0

•

YES
• DMSRM

•

• 2.1tP

--0

YES

Z~L

I

24P

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

• Z~M

03350

26A

---f&8iT s-:------

OPERAND ' . P?ND
EMPTY
•

•

0

K

03380 DMSRM

•

"IS.---.---.
·tt_---.-_.
I .

•

.----.---.

•

---------.--------I

03~0

24N

oORII, ALPHA. ' . ~=SRM
DR NUMERIL
•
• HODE FOUND • 2ltP

•

SNITCH FOR
ALPHA

03330

.

NUMR

,-.~fOitlii!S---1
liNG MODE

I
I
I

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

03370

-,-Uiiil.iDDiS----,
*lOC eTR

03"10 DII2
•

.---.---.
ZitS

~:OGR ~"~R

• 0

o AD5ilsl

o

•

YES

•• SET
• 2ltU

•

03360-::::----;-:::----

.. ---U-I-I;f=i--'.
iHoE~TINE

".

OJUO

•••

._-------j--------.

-----;-----TO Z"N

2~U

TD

SPS 1I-0--PHASE A-SECTION A"
03UO
• •0

•

Z5Ao
...--.---*
15 II AN
• •• ~RI3

o

•

• 25T

PAGE 25 OF 29

ZIG

03510 L

1---~8~i~J~i~ ---r

03570

•o

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

I

OUZO I

0"'0

25H

CHEca'NEXT
CHARACTER.
•

03530

A¥tIlOUTlNE

•

----i-:::--•

25H

N°----I-z-5K·
03'''0

IIARK FOUND

•

~AgyNGD=a~

•

03500

03550

o

--------~------

.

I
.----.----.
2511

•• RM FOUND

.---------.
NO
I

o

TOl25G

NO

•

~C'~a~9iNe
MODE

.

••

•

X~~R"

• 210P

I25P

I~I~DU

NE

.'

--------i-:::----

•• •
•

.--.----.
cl:~2L

•

•oKYES

.---.--.•

•

0

26A

•

• Z"R

I

Z5l

.----.----.

·•

••

• • 2!R

.o:-;;~~~-· t~IEND
•

••

.•
•.---.--.•

.----.----.

NO

'.

OJJ9D

o;;;~ji----o •• XlIRII
•• fHlIl i~o
..z",

•

A I • •• lliDR

.··---~iitiff"t!Hi--- ...

-

•

03~90 ::=:-r=~------c------

25N

.----.----.

oo'~~tlAT

C OR J
FOUND

.

BYG+2

••
0

• 25S

--------.-------TO

r-I

03620 ERn

03560

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

I·

25T

25M

I

n:~iliiii----PROCEDURE

---------.-------TO

i

TO 25N

875

DMSAlF

258

SPS II-D---PHASE A---SECTION 44
03630 K

264

03690

[---SET-S W[TCii----[
I
I
I
I

FOR NUM.

YES

(

03700

•

**WAS AOORE9S·.

SPECIFIED

•

BY PROG.

•

•

6~~NUM

26C.

II

•

•

I

IN~

268

II

03730

YES

• OHSRM

• THAN lOO

• 24P

..

•

*

YES

.----.----.
26"

.. * A RECORD
MARK FOUNIJ

.----.----.

NO

I
I

•
•

•

24R

I

.. 260

.

START IN AN

*

(

.

.----.---I

NO

(

I

TO 26G

PROCEOURE

I
I
---------.--------I

03800

26T
-------- I -------glm~ : 2

• •
•
YES
• WILL ALPHA
• I
• EVEN lOC.

26 S

II

.----.----

YES
OMS END

26D

r--~li~RARii-------

\It

•

I126M

03740

.

03190 ER 15

NO

" OMSNUM

I

I

26R

---OIG[T S-:------

--------e-------TO
DMSNUM

26L

MODE
CHANGE

.----.----.

•

*----*----.

265

DIGITS + I

*----.----* •

•

25G

I

03180

--------.-------I

• DIGITS

03680

2611

I
26K

I

*----.----* •

I
II

I. I

DMSNUM

yES---i----·

CONTROL
CHARACTER.
SUBROUTINE
ANAL

I
I

.*

a.NUMERIC

26U

---ANALYZ E-------

OTR
--------w-_____
_

NO

•

I
I

03720

CHARACTER.I

GREATER

TO

•
•
NO
• CHAR, NUMER • ERI5
•
OR FLAGGED
*

ERROR I

I

I
I 26[)

.

,J
) *)

260
. ---- .----.

YES

•

.----.----.
I

NO

--------------CHECK 'NEn

•

ANAl4

03770 OMESll
•

FOUND

I

..

SUBROUTi NE

---OIGITS-;------

--------.-------TO
L

26J

RIGHT RAREN •

I

03670

J *'
1* I

I. (

1*1--------.--------1. I

DIGITS + 1

.----. ----.

03710

--------w-------I

II

03760

I

ADDRESS BY·
ONE (II

SUBROUT

mg~DURE
I
I
I
( 26P

--------.-------I

---'NCREMENT----

03660 OMSNUM

~--------

260

I
I

I
I

03810 ERRORI
26U
1.1-------- .-------- I *1
1*1
TYPE ERROR
1*)
(*1
MESSAGE
1*1

I
--------.--------I

DIGITS + 2

I

03650

26H

---0IGI15 -:------

*--__ *----w

NO

26N

STANDARO

II

• 26Q

I

I
I
I
I

I
268

I

*

·.----.----.

(

I

NO
* DMES II

( OR )
FOUND

I

*----. - ---w

03750 ER 16
---~-----

I
I
I
I

--------- *--------03640

PAGE 26 OF ?q

26G

..

.. 25H

--------.-------TO
DMSNUM

*

I
I

26D

TO 26N

876
PAGE '17

SPS II-D---PHASE A---SECTION A4
03820 OVLC

27f1t

03880

---EVALuiTE-----

~m~m

I

•
--------.------I

I 21B
---SET-ADDRESS---

I

03890

•

I
I

.----.----.
I

I 210

*

•

03950

21H

OFF

OPERAND
•
--------.--------

II

EVAILEN

TO

•

·

END OF
OPERANDS

•

.----.---. *

•

NO

27F

03920 ENTER

.

II

27X

I

21L

03980

•

FIRST LNG1!H
OPERAND
SUBROUT INIl
EVALAD

... -------.-------(
I

I

TO 21G

.----. ----. *

• END Of
•
OPERANDS

*

* *----a----* *

03990

NO

YES
• DVENO

*

a

I 21S
.----.---it

.

127M

*

TO

oN----i---·

I

03930

~3~~MNT

BUFFER.

II

..
•
OFF
• TEST SWITCH • DVRTN
•
I
•
• 27U

--------.-------21F

21R

--------T--------

EVALAD TO
CHECK THE
VALIDITY OF
ADO. CONST.

---EVALuiTE-----

---------e--------I
I
II 27W
04020

i---50-REPlACES---I
I
I
I
I

CONTENTS OF
OVCKL

I
I
I
I

---------.--------TO
MOVED

I
---------r-------I :8~~ES~EOF I

03910 MOVED

YES
ER9D

---ENTER·suii:----

03870 EVALEN

.

•yES---i----* *

I

II

21K

I
I
(
1

I

21K
.----.----.

•

27V

(ERROR
(PROCEDURE
I
I

•
NO
. ' ~~~~LokESS ' . ER8B
* EQUAL TO 50 • 27V

rOI~~~lNm

03910 DVLP

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

•

16R

[---sTANDiRo------j

27Q
.----.----

03960 OVEND

OF CONSTANT

•

04010 ERaB

DVCKL +
LENGTH OF
OPERAND

--Tii----·-DVLP--

I
I 21J
---SEY-AODRESS---

03900

•
YES
WAS OPE RAND • OFF
PRESENT
*
• 27E

A2 BACK TO
CORE

--------.-------TO
E

---iiVCKL';-------

TEST SWITCH * DVLP
ONE{ 1)
•
• 21K

II

27T

---LOC:-6R:-;--LOC. CTR. +
DVCKL

270

--------.-------I

I
I
I

I

TO 27N

TO 21U

877

or

27U

---SET-I
NO CDe
LOAD PHASE

LENGTH OF
OPERAND
SUBROUTINE
EVAlAD

-------T:::----

*
ON----j-----

--------.-------I
•

.----.----.•
I

OF CONSTANt
• EVALUATBD
OPERAND.

•

OltOOO DVRTN

---iVALUi'TE-----•

I

I

a

OF

I
DVCKL
I
---------.---------

I

03840

27N

r--hmI~~iiF------

ADDRESS
OPERAND
SUBROUTlNIl
EVALAD

03830

03940

21G

04030 ER90

27R

21.

,---STANDARO------[
I
I

I
I

ERROR
PROCEDURE

I
I

I

I
---------.--------TO
ENTER

27L

lil

PAGE 28 OF 29

SPS II-D---PHASE A--SECTION A4

28N

04120 HEAD
•

----.----. •

o tHARACTER

•• o 6=

•
•

....---------..
••

~O

• +2
• 280

GREATER
THAN 13
I

YES'

I:

04060

.------e-------.
TO

lOLll

280

·NO---r-- .
I 280
.----.---.

•••~~im\.ER

• iN OPERAND

--------r----0~070--------1-------I
~Xftkl ~~NO
i

I'

04150

• 28T

21R

I

JOR

I

---------.--------.SUB I SCM

28Y

m2~DURE

!I
I

-:::~::-r:::-----

'j---serINoic:----'j
AND "EAD
CHAR. INTO
INDICATOR

I
I
I

coDe
I
'I
--------.--------I
OoUlO

-1---l~XiJlH;~----11

I

I

•••f'If 1

I

NO

280

I

I
I

04200

·.---.----..

TO 13

28W

'j---STANDAiiii------,

o

lOA

II

I
I
--------.--------TO
SETIND
D,,190 ER12

lIlz

o· HEADER
00
• OPERANO GTR •
o T"AN 1 CHAR 0 2ay

-III:---!i~~~:ii:. ----I

EObtyEl

ERROR
PROCEDURE

•-28W

I
I 28P
.---.----*

0"140

I
'

0

28U

-'---STA"NiiAiiii------i

NO

04UO

.----.----.

AM'

*---e---.
I

48

• .POWER

~:

0"180
YES
SElINO

0

I

28X

•---iiesiiili-------.
~~A~M2

"1.0.

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

------i~::-----

TO

SNDTCD

10N

0+160

281

rleUi~ijilr---l
---------.--------TO
HEAD

21N

ZIT

04170 ERll

.. ---iii;~Eii;----·.
•

·

BLANK.'

.

•

-----::i:::----87~
'AGE 29 OF 29

SPS II-D--P"ASE A---SEtTlDN A5
0~230

•
•

I

--:su;--i-StMN---- "8
0+2"0
-

,0+250

I 2911
----.---_·STIIIT A Tca -

0

•

• 0 29N

I

12911

n~

I

~l~A.UUENS

.-...--.---.
00

Iltop

."o o BE S OPPEIl _ 0 - 29U

NO--rI

291

--------;------A&ord~i
I

I iibRb

D

i

--------}------0,,280 STBEGN

129ft

I:
11--'YPE1NoiOii---I:1
10
PUNCH
101
10'

SYMBOL

10,

1:1
mh~sHo
I:
'*1--------*------(*,

I

TO 29G

•

·-----------------.
SNOTtO

10N

mISTER

\:1

g---:::::::-----J~I
129V

r-=~~Yift;To-----l
--------.--------TO
."NCAl

.--------.--------.
TO

0"260--------i":::----

04270

DRE

TO

--------,--------

O-'"AS, B TD

•----~OAO
;"A2----. •
,Atl INTO

043"0

..---.---,.NO

!:l

043311 AS TOP
29U
101-------.--------101

Z9N

0+120 TtO

ZU

OENO

~--~~;:iNoiGi--11
8m~~~e

• JIlin

SPS
00020 INITI

11-0,

PHASES 81 AND B2
00080 PHASES

T--~t~r~~i~---I
I

L1ZATIONS.

II

•

.----.----.
1&

.----e----..

YES

• ARE SUBROUT • SUBRT
INES USED
•

•

•

NO

10

00040

I

10

'_I-------e--------I_I

lH

002 t~1 ~~~!

i :--m¥;!~~iCE----1
lll

1M

1.1

00220

-,---REAg--soURCi----l
CAR lOR
I

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

I

CAU-B2

TAPE REt. I

I

I

---------r--------

I

IE

I

00110

lK

r--arPisr----

00120

I

00170

001110

-----.----IN
'.

•"~RDRIt
'.

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

T)

IG

.---.-_e
I

"

NO
"CHKlO
IP

S9ATi~ENTMT .0

"

YEs---r--'

00130-:::-----i--::-----

0"

IX
I
'

=~ST
IV

"

001Iil---iiEi~li~~;----' :1
"

I".

ERII XX

•

• ________ e ________ I_1

•

"I

YES

TO

00230

-------r~~----

SOURCE STMT

"

I

lR

1

-1','---ijti!8in~R;--,

.---.--.

III

r--tCiifj~i?---~IHsURYI I

tOR

o
• IS THU A
"" $9~'~AEiT
o

I
'
r--mij2~;-:;---i

I mMsm
'50.
--------_e
________ _1,

VEs---i---

E~m
U~5RDSI

'I
-----T-~-I

I

I

____ !--~!----I.I

/:I mM~~~ce I: I
1:1 IF REQUIRED 1:1
"1
1'1[
'.I-------e--------Ie

FROM DISK

00100 2PASS

START ASS'"
SLED OUTPUT
AT IST.SECT

IJ

0

GOI

r--m~W::-;;---I
I
I

•

1I.:I---Ac-ipj--------':I
CO~REC'ED
1-,
1'I'/:I1
I: tTMT.FROM
YPEMRITER

I~iss

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

I

I

i

00090
•

••

1 OF 2B

LU

00200

.NO----j-----.

I

I
I

•

IG

.*.S THIS A
• TWO PASS
• ASSEMBLY

L ______ .------J
00030

PAGE

.----.----.

111,

T)

IN

lU

881'
PAGE

SPS 11-0, PHASES III AND 112
00250 TRSCAN

2A

r--E~iBi=aTE---i

I

~OMMA

I

'

---------~-------00260 SCAN

.----.---e

00350 P"lll

o' " I~
•

"

OF 28

2N

AI

~

"

NO
".
EVALAD
•
2U

"

'211

i-~-~iTj~AZii---1
,

SlIlrCHES

,

OFF

,

!_------.------,
00270 SCAN2

I

2Q

---------F--------I, ~~:Bl~~K I

I'

CHARA~IER

I

l=p¥~ At~RA

.

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

00280---------~-::_---"

.----.----.
.N~----r--~"

slUA

,

.---.--:--.

002'10 PHS8

I

28

2X

.NO---j-----.
II

.----.----e

00420 PHB14

'"CHARACTER ". ~RBII
". :El~~M~HEGK . ' 2M

.

,

I mOCATA8IL I
I
I
---------.--------I
TOI 2G

00430

I

• e ~~815
. ' 3B

.

"yES---i-----

I

I 21'
'j--'ANiLViE-iia:---'j

2Y

.-.5 CHAR A
' . a~E~_iHAR

"YES--r---*

00300 SCANA

•• l~¥
. ' 4A

••
IS
' . CH:Rt~TER

.o'S IT A
0"
RECORD MARIK •
• 2F

•

I.

.----.----

00tl0 8CMSPC

.'

2Z

_.--~-.----.
.
• IS CHAR A
•
BLANK
-

NO
• PH816

-YES--T---'.
TO

]A

-

•

30

SPS J I-D. PHASES Bl AND B2
00440 PH811

3A

00500

'j----GET-NEXT----'j
II ~~A8~~l~~0 IJ
I

00450 PHB 15

.. "
,

I

2X

. ---.----.
3G

_

---------.--------8
BCMSPC

PAGE

IS

00550 OOLLAR -

....

CHARAC TER
AN ASTERISK.

-

-

-------r-------.
.----. ----.

00560

I

,---~:i~~lK~::----

II

:i~fC~EgOL+ll

-

I

I

,

NO

3D

-

•

CHAIACTER

,

COMMA.+.,r-"

,

CHKND

.--.---.

,

-'IS
CHAR I
OIVIOE ON

"

·NO---r-- TO

•

,

·e----.---_..
THE.

•

3W

PHBI9

3S

6Z
00640 GET2

3R

IN
BUFFER.

8

3A

I_-_._----.---------I

....

TO

GET

4A

00650 GET3
lY
i--SET-G~i-RET---i

35

..

••

II

PH811

00590 PHl19

3X

-II ---,~~~~¥i~~ET----l

I

TO

i

BLOP-l

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

NO----r::00490

3V

NO

~OLL.
I------.---------

I 3.
.---.----.
*. llJ

,A

bl

30

00580 'HII20

--------~-------

5

CHKND

YES
• • ANY SYMBOL • _ GETI
•
PRECEDING
•
•

----liii!='------,

I m~iNTTO I
.*

·.----e----..
*----.----*

~~820

·tt_---e---..

3"

-------~E--------

00480

NO

IS SYMBOL • PHBl7
GREATER
•
THAN 6 CHAR. 3A

•
YES
. ' lAAt S ~~OND ' . PH811
• OPERAND
•
30\

- CHKND
,
6Z

•----It--....
PH817

3U
.---.----.
•

---.---.
I

•

•

00620 ASTER
....

·.---.----.
I .

00510

yes

NO

00470 PHB16

-

YES

3C

GREATER
TH"'" SIX
, CHARACTERS

•

YES

CH"RAC TER
•
• PREtED ING S ' 3R

I

00460

•

3P

.... NON-BLANlit

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

i
.----.----.
•
•

00610

FOR $ N
SYMBOL.

.

3V

38

3N

---sET-sN-ITc;:;----

litER
_

3 OF 28

TO

GET

00790 MOYE

4U

4A

IUz
3X

JG

882

.---...._-.

00660 GIT
,
•

SPS 11-0. PHASES 11 AfiO IZ
007Z0 IITAST

U

,

YES
TRNUMI

·N°:-"'-I---.----.---. !fiIND
,
.
·N°--I--·'
.
-I! THE
ALV

" i3DrRtc

,

,

. ' 4N

.,

-1---g'IAi'ii~---1
A~s'IiIL'

.

---------.--------TO
OIGAl'

TRNUMB

lalND

'.•mm

4N

•• LPNSW ON

...

•

•

6Z

4Ci
• _ _ • _ __a.

00610

. ., COLLECT80·.

-

,

--,---.---.---I

00690

.*

-

4G

61

•

4R

PRfsENT

00800 MORET

.------.----.
8

00750 PHIIZ5

*. lfiloD

I

4.

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

,..o-i~:·

-.---.----..
i
LABEL

,

6A

-,----iNSERT---.
I

HEAD
CHARACTER

·NO----r--·.
•

64

•

I

.

I

e---.---*
4X

IS O'ER
llLANK

*...

1~IN2
2C

NO----r--I

4Y

ill---iiBBi;::-~~----1

- AlPHA

00840

---------r::-----

H

---------.--------8
MORET

883

.*

SA

r-:~::i:::~::---I

l---i~lii~-------l

I
I

,
I
---------.--------8
LBAOO

••}SeE
•• ItU

..:~-I"·~--··.
~nlDE
I I' ECEDING •
•

OOTIO

4F.

00820 BLOP

00830

00170

NO

I

411

r-sET-i:PNsii-----l
---------i---------

4R

..•EM=~eHA
•
•

-.

•

00810

4Q

I ~NIYN80f~ I
I.
.--.---

- ' 6A

.---.--.
.- •sU l~At - moo

4R

-----ETiitli-:-----

NO~-'-'

00700

DIGALF

00760 DIGAlF

40

IS

-.

X~hST

4 OF 28

. .NUMEUC SYM·'
FIVE . '

4.

00670

00710

PAGE

.----. ----.

00110

4V

---------.--------yo
StAN2

2C

SPS 11-0. PHASES B1 AND B2
00850 DIVIDE

PAGE

5 OF 28

5.10

i---ALPHA .-------j
I
I
I
I

-ALPHA/BE U

I
I
I
I

---fcj----o-iiiiitE,--00860

r-

ltV

58

SET- ii

iVSw---I

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

i

.----.--.

00810 INTERN

•

I

5&

o 0 ~n8fiATlOH

•

YES

0"

.---tt_--_.
C

•

EVALER

•

6X

2Q

NO

.---- .----.

00880 RTPH

•

5D

o LPNSW OFF

"•

00890

•

6Z

I

I
I 58
.----.---.
=MH¥~D

•

NO
o. SCANA
•
2F

·.---tt---_.
"
f
YES

00900

.

YES
• CHKND
•

.----tt_--_.

NO

o0
•

•

5F

--------A-------

I

m3~TON
I
------It_-___I
TO

SCMlA

2f

884

SPS II-D. PHASES 81 AND 82
00910 lBADD

611t

.----.---.

01010 CHECK

"11 IITN

1~I i~loll

o

.0

MGA[~CE

o

o

01090

6N

•

YES

¥AY
"I fir:· ••oNOOFY
ALRI'D~
6Y
•

00920

I

r~R~ftL;RQM I
I-----e--------REA 1---------

r

00990 GOTI T

.
00940

60

,

I

-6---8- -

.

•

•

• ~H~iK I F . BSERCH

". p~lTlU

I

00960

I'

611

8LOCK CTIt.

TO

6G

PHIZ5

o

.

6L
.----. ----

I

I

0

.YEt--j--*.

o AilE TH~"'

o.ml~L

I

01020

---------tt_--------

I

'

BIlK ." 6G

r---;~~;~;~;---j

I

TO

I

0

N

.0

NEXT

..

o

EQU--·I----·
.----. ----. •
.'

.. m.Plm Al ·oEYII

NO----r--

O

TO

6N

885

6U

•

•

611

•

n !ftlitcJ8

ON

•

yes

· 0 CORER5

lINE

0

0

CH:~:---r::'

01140

6T

o

I

"",I~-.!
.----.----.
•

• SEARCHED

6X

.

0

• 0

FIRST FULL

t

-1---~iifi;iRRiiR---i

611

BLOCK

6W

01120 EVALER

ER5

01010

6N

I~ai fiN~D i
------------------

NO

6N

I

-1---iftKil-RiSt~~----1

40

I
I
-------.--------TO

611

l LOCK

01110 ER5

":~;-I;~~O
• FOUN
6J'
•
•
•

-1--~NIT:FiiR-----1

i

I

01060

6Y

OF SYM80LS
I
--------.--------8
CHECK

--iiAiiO:iRA:----t

mIT

6N

-l---iig~iii~;:---!

lA:jhdXRCH

6K

01010 CFIL

yes

--I

I

011 00 MODFY

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

------A----ntl;lH:;~
------0-------

I

.---.----.
.·--T--·.

00950

niifi!~r--J.

I

1.60

01050

-----"--.-------

01000

l---i~Aliatji~---1

----------,1

6J

I

8l0CK

---------.--------CHECK

DIS' UNIT.

YIS----I---

i

mllhFOR
B

6P

010.0

6U

---------J --------I

N~----·I---

009]0

6 OF 28

PAGE

~1---PI2i~i~ii~-----1
.

NiAlI!wR RK

CO~"'.
-------.--------T) 1A

78

SPS 11-0, PHASES Bl AND B2
01150

,--------.-------,

Ol210 BSCYC

1"

I

BRANCH
BACK

I
I

71

,------F'Nii------,

I

I

I
I

MIDPOINT
BETWEEN
LIMITS

I

01260 BSEII

7N

01270 BSlO

7P

PAGE

1 OF 28

PAGE

8 OF 28

I
I

I
I
---------.--------I

!--------------!

I

7H

j--m~tCf;~;~--1

I

BY ADORES S
OF TABLE

I

I

---------.-------SYMBOL

TO

I

7G

BSeye

7Q

D1280 ISHI

-I --{i=t:~~i~--i

oJ
TABLE
I
SYMlOl
I
---------.--------TO
BSeyC

VEs---i---

I

01240

7G

?It

i--:lI~jli;:"·----1
I

01190

TO

MAlNt.Yb

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

1M

l'L

01250
lOW
BSLO
7P

_:-•ipiiii:;;•-:.~~:r
.----.---

EOU

ISIO

7N

886
5P511-D PHASE
Uo

01300 lINPRT

'n
.11

01360

8BlBN •-:;;;'-;;-'. B8&~
-. ClniUTlYE --aT
81f

~~~!l'INfHE
OUIJu
FOIt

-

SP .l STING
Ie RD ANDII

-

.---.--.
GOTO
PDSA

01310

01410

•

01440

•

GO:~::--i-::-

-

80

~---~:::~------l

I~ ~__m~t~:x5-IH

I 8.
.--.----.

01340

,

•

-----.-----

III

01400
,

•
YES
•• ISNSTRut
STMTfAN • DOINST
111'1 •

.No--T---- •

lOA

-1---SiMi:tS-OC;---1
Dse,iJt\ DME5

I
01410-----T-~---

I

01350
I 8F
I- 1--------.-------1-1

1:1
I-I
I-I

1:
I-I
I-I

1

TYPE lENGII'H

[

I-I

I-I

.1------------~-1.1

TO

I

8G

1'- ~B~~iijy~----TO
I

aT

01470 DaDS

l---~:::::~-----i

PUNCIf

I ~mm
1
-------.-------TOi 8N
OK.

---------i-------TO

887

I

8U

01490

I
I

I

I

8Y

.----.----. • os
_. M ~IMI aNB • .'HASEB
•
•
IG
-.----e----.
•

8X

------------------•
'
PHASEI

1:1---iFjYPEii---1:1

AN~ AODRESS
SUB.

rSTO~T

---------r-------ONB
01500

r-fr.;!ii~ir--l

01330

~ITH ~ENGTH

I

I IP
.---.----.
STilT. A - _ ~nOUT

_'IS
• OMES

8U

,--puNcii·CAiiii----,
I

--------j-------

.R

01430

01320

01480

IN

~-ii~;i~iF--l

i I~

r-m~~~;~~;----l
IG

--------e--------GOTO
GOSTKR

811

SPS 11-0 PHASE 83

01540

PAGE

9 OF 28

9'"
'-----ENTiRE-----'
I

I
I

CONSTANT
PROCESSED

I

I
I

~---~~--~.---~---!
YES

PH"'SEB

LG

SPSII-O PHASE 83

PAGE LO OF 28

01600 STACKR

lOG

ION

IH5rI~rU

•

g~':3' I~'
01610

,

YES--T---'

10H

01610 FIT

~8W~~BLE

•

WRtTEt

~Osl~

.----. ----* •

. ' ~~MIT~l~~s
• P~EVoS'MT

f

.

NO

•

NO

.---- .I----.
lOP

• DOES NON-

"

0 pK

',NEI/ll
• L1A

01730 MODI FI

8~TM!~h

LOV
----------------I
INITIAlIlE

I

• SETFRM

·.----.---.
I

I1
I

YES

01620

*----.----.
10Q

01610

10J
AT A TIME

'.

.
YES---·I-----

, =~tbIBNFY~

10K

01630
•

01740

. 'DOn OAT A"

.·lIB

I

lOX

-I---CLEAR· --------,
I
I
I

·N~----'I---'

...

.----. ----.

LOW

--------r-------

01750

YES
• IS 15-01GIT • MDOIFI
• BUFFER
•
• EMPTY
• 10V

01640

!

---ijilJ~;i~;~---DISK IF 300
oER
GIT BUFFo
S FUll
•

~~TFRM

lOR

*----.---e •

____

FOR FUll 15

L_:~:~:.::::

•'m

BUFFER TO
ZEROS

I

I
I
I

--------.--------GOTO

RETURN

LOU

lOt

•

• *.S THIS A ••

Teo

•

No----i----*

OL650

.----.----.

•

I~8AOR

• lOY

yES--i-----

110M

•

- I S THERE A
,
BREAK IN
',AOORS.SEQ

.----.----.
II

TO LON

lOP

I

01110
•

YES

'REMAIl
,
'10l

I .
.----.--lOT

01770 REMAll

.
yES--i----*

,'DOES DATA
• FIT
•

TOIIOU

•

~~LlT

"
• IlC

10l

-I---SET-U;-FOR-----'
to8~!~~Q!N

I RC.llItK.AOR
INDle.lNTHl

---------.--------I

GO TO

FIT

1
lOP

SPSII-D PHASE 83
01780 NEWIL

I

CHANGE IN
TYPE OF St-

MT.INEW INO
AND LENGTH)

I
I
I

GOTO

Fil

01790 SETFR"

liB

I

I

I

I

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

lOP
01820

'j---S"Er-A·FlAGI----

I

I

~5C~~M~~
~~~oya!M~

GOTO

"DOlFI

DATA WITH
ADR.+ LNTtt.

maCUABLE

OR NOT.

IllJ

01830

-I-----;~:~~----il

I
I

I ~M~Xlu~~ I
---------.-------GOTO
"DOlFI

---------c~:----II

'j---iiove-ovRFOO--j
I
I

I

I

I

---------r-------

10V

llC

01800 SPLIT

CODE FOR
DATA. I FUG-

mG~~ I K~~:

r--~~~f~~~iiN-----,

I

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

lIG

j---ser-up-jNii:---j

'j---SET-UP-FO'R---'j
I
I
I

PAGE 11 OF 28

01810 RELOOG

11"

8ACK

---------e---------

lOY

SP S 11-0 PHASE

n

PAGE 12 OF 28

1211

01840

01950 OSDN8

02000 OAS

UN

-I---fj~hiaje------i

TO PROCESS

E:
cHHATn
INShUCTlIlN

I

M!o~¥INE

--------.-------I
01960
•

I12P
.----.----.

.

• IS STMT A
•• DNa

•

.

1---fl~hYAje------1

II

~~~~~ViNE
SCAN.

II

02010--------r:::-----

r-ti~gj~::-:----~

NO

••
•

12U

*1;1

---------r~::-----

02020

.---.----.

•
• NO
. ' UstD2:~S~Y •• PROSGN
• PROGiAMMER • 12Y

..--e----..
YES

02030

1

112x

----1~3k~iF------1

I

OPERAND.

I

SU8ROUTI NE
SCAN

I

I

I
I

--------.--------B
L1NPRT
01940 FLAGGR

02040 PRDSGN

12L

--~ii:~hA~~---

9MhKNS.

01890

ill---i~~m;ii----I
I

IF ANY
I

------------------II
TO 12G

12Y

j---t8d~il;AVg:---i
~8E8XIE~~DAND

I

SET FJ.AVm

I

\1

I
A LNiH
X2
----_____
e ________
_

I

---------e--------8
LINPRT

BA

8A

8

L1NPRT

8A

SPSII-D PHASE B3

02050 DORG

PAGE 13 OF 28

13A1

r--~j~k~~i~-----I
[

I

SUBROUTlN8

I

I

SCAN.

-----------------I

i
I

02060

138

r--~~i~~~Ri~S----,1
I

NEW VALUE.

I
I
---------.------

i

02070

I 13C
,--LISTING----jI
[OUTPUT.
[

TYPE AND/OR

I

I :~Ni~05~Ro _I
---------e-----__
B

PHASEB

1G

SPSII-D PHASE

n

PAGE 14 OF 28

1~"

02080 Dt

02170 PH848

-l~~¥aTS;;::----

~~:!6uTIN'

I

14N

02200 H.

r-i~:ni'~i;--:

I

"

_________ e ________ _

I

148

L4P
.--.--.

02180

-1---A~Ek'NiTH-----1
THAN

10.SliT

I

"

02100-:::::--~:::_--•

.----.----. •

oo~ft~MiHa="
o REt. MARK
o

YES--i----

,

02190

NO

',PH.~8
l~N

0

.----.----.
8

H

14U

"

FLAGGED 0
OR J - R

"
Y£5-'I----

"
0

LEADING 0'5

14C

140

'14V

---;gj~it~ciiN----

~HREC

l--ijiii:iiii;----1
---------.--------8
TRREt

02220

.-------j-------- .
I
.----.----.
14W

•

•

". o IN~

IS

140

.---------I

,

•
0"

•

IS THERE..

o

02250
0

rk~~ BY~~, ""14H

*0

o

"
.---.----.
I

YES

TO/litG

14Y

CONsIINT A
RM

"
Y£5-NO
PHB4'

I

*----.----*

NO
H

I

I
I

--------r--------

o 14U

I 1411
.----.----*
•
•

iu

81G

YES
02130

•

CON~hNT

02240 DSC1
,

" DSC
DStl

-I---SEF~AG------I
R A~ST
I

I I~ HYPHEN
I
!...--~~T~~-I 148
_--.---.0:.
,

I

02230

r--~iii:~!iii:-~
02120

•

~TA~~ 0 "titY

DC----r---"

14t

I

I

02110

NO
"ERIO
0
15R

0

"YE5--j----- "
02210 HI

o"1S tHAR A ""

I
I

I.ENGTH.~O.

I

.----.----. •

•
" LNTH GRTR
THAN NUM.
o OF 01 GITS

----~-T---02090

14U

•

1----·"

0

11tZ

NO
".PHB51
• 15A

SPSII-D PHASE 83
02260 PHB51

15A

.----.----.

•

*

..

BY PROG OR

•

15G

I

158

I
I
I
I

02330

SCAN

--------.------150

RT. AOORS

I

=

I

I
I

AODR~

~. ISfT~~C~~~N

I

•

•

OSC

•
IS
• DSc)
INSTRUC HON •
• A DC OR O~ • 15f

·.----.----..
DC

I

I
I

02300 OC3

l15l1

---&~EP~iii~------

8~~2

CON~TANT

""m
•

15K

I~~~:~~~~~~~~~~~I
B

PHB52

I

I

.'

02350

..

••

I

-

!_-------.-------_!

"OC----i----- "

i

I 150
.----.----.

IS

RT. ADDR
LNTH

02390

.----.----.
.. "

---------*--------02290

I

I

I
I 15J

02340

I
I
I
I

[ 15P

i---lFT:-ioiiii:----1

I

1--------·-------1

I
I

I
I

02380 J

,

I

02280

15H

I---------.--------I

•

I

II

•

I
I
---------r--------

RT. ADDR
• I

I
I

TO OUTPUT
BUfFER

I

I

.--RT:-AOiiii-;-----

AND SET lit
ADDRESS

15N

r--~~~~~ii;------i

I
1

I

---"EVALUAT"E-OP--SU8.

02310 PHB52

~----~~~~.-------...!

I

I
I

LCTR =
LCTR +lNTH
RT. AOOR •

I
I

•

·.----.----.
PROG

02210

PROC

• AD OR ASSIGli • GOAND
• PROCESSOR

PAGE 15 Of 28

02320 GOAND
15G
1---ADoiis~-lcrR---i

CAN BE

PRlfnED

•
--------.------L1NPRT

02400 ERIO

15R

-1---sET-cDNsr:----SIZE TO
~~~Hl~DMPU-

PHASE A
I
---------.--------8
HI

UN

14Y

158

i---iir:-AOoii-:;----i
RT. AODR +
LNTH

I

I

I

I

I

I

.!----------------!
8
PHBS2
02310 OSC3

15N

1511

-,---iir-t-Ao-gii-:;----I
R • A OR4Il

I

I
I
I
I
I
I
- - - - - - ___ e _ - - ______
B

15N

PHBS2

89"
SPS II-D. PHASE B4

PAGE Ib Of 28

02490 oGM

02430

r--:~~-~·;~------!

--------- .---------I

I
I
---------.---------

L6P

'~sfRum~

Of REQUIRBO
ROUTINE

•

160

----EVAkulTE-----,
h~~RI~D.
I
SUBROUTlN8
•

OPEUND---SUBROUTINE
SCAN

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

02510

I

"

lUll
.--.---.

.No---T---"

"PR09RA!!NER

••

•
SCAIt.
•
---------.--------

:~~A~lsO

02520

1160

02510

"

YES

"DGNI

•*16T

"

------------------[

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

02460

OPERAItD.

~mOUTlNB

I

I

168

-,1--- mHp~~~----1
I

SECOND
OPERANDS.

02530

r-~~~~:~i:~:----l

I
,

---------r-------

--------.-------I

02470

i
I

161'1

1---ijpoATE-Aoi:---I

,

1165

02540 DGMI

I[

16T

r--:g~i;;;;~----i

COUNTER· B'II

I

~~gRm l~

lFT. AODRS.
AND

I

I
RT. AoDRS.
---------e--------

I
MACH.ASSGND
---------.--------

I

!

TO 16U

TO 16G

8U5

I

I IbY

l~og~T~~~K
I

AREA

--------T~::-------iiestoR"E------PHASE 83

THE PART
COVERED BY
PHASE R4

LlNPRT

I 16R

I

I

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

r-~gg;-~j=;~~---l

I

RT. ADDRS.

j------MOy"E--------

I
I

•

[

1---im~~TE----1

I

I

02560

I

02450

I

---i~ak~tr------

AND BRANtH-

02440 DSB

16U

-I---~i;~;;:------i

02500

16B

02550

16N

•
8A

SPS 11-0, PHASE 84
02580 OVlC

11.11

02640

---EVALUAyE-----

r-~~i~~

ammo

•

SUB. SCAN

-------j"------I

02590

I

'·IS

I

••

I
I
I

---------.--------I
02600
•

.----.-----

NO
02610

I

027Z0

·.----.--..

I
.---.---.

02610

110

ON

DVSIlI ON.

i
------tt--___
_I
DVUt 1

I1F

t

•

gJ~1I

I

ON

-1--

ON

•

--------.-------02790 OYLC4

OYlC4
•
• 17X

·---~~~!-~II~~~----02800

~JTcaN¥~~~'

Rfti'iUFP~
-------.----

l1X

OPERAND.

•

I
I
-------r::------------1------I cohall.. ,

I'~ili~:-----I

SA

---Ei=~ATE------

NO

---------&---------

111~
I'S~!uF I
I L":".
------.-----

I 1111

---iijAmE~;----THE PART
COVERED BY
PHASE B4
•
L1NPRT

YES--r::'

02140

UL

LNTH.

027BO

I

.---.----.• •

• END OF
• OPERANDS
•

I

II

!g6~ll~N.

---e----T--------

I ri;fl~I'DTO I

•• serC3
."11,.

17V

COUNTER =

I

17Q

bti IU~ER

I
I

'i---liicATlii;;------j

II

---------1---------

·.----.---.OR.

02610

•

omo------r:::-----

11K

. ' SlllTiH

".

OZ170

_______ _ •
• -----__
SUB. eSCAN

•• SIIITCH
•• gerC2
• OVSII2 ON OR •
' . OFF
.11P

I

ON

I

'l1J
.---.----.

YES
• TRNOFF
•
• l1E

..--.----..

I I1P

ADDRESS
CONSTANT

I1U

•
• OFF
. ' &Mr'~~HOR '.J
• OFF
• 15P

I

•---EvALiiliE------•

•

•\1Z

·.----.----*

.

I

02110 DVLCZ

Y~A~E~~

-,---yuiiN-lii,Wi---,
GOTD

11H

021>60 CHCKA
•

.---------..
ADDRESS
PRESENT

,

LNTH GTR·. ncYLC

LESS

1110

•
•
•

i

.----.----.

02160

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

I

02650 CHCK

I1N

r--i~ni~FF---~--I

.----. ----.

118

DVSW2 DN.

:- - - - -

02700

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

•

,---yiiiiPi-sii'iyCH---'
I
I
I
I

PAGE 17 OF • ,j

I1G

I1Y

-1---iPilfo;;lPiTii---1

I

I
---------.--------GOTO
CHCK

I1H

021'0

OZ'90 DVlC3

r-~--2iiBER----

02810 ERDYLC

~R=~B&6U I
LNTH

1.

T;.YE LENGTH

I

~AKF~mrT

-------r-------

•

---------j---------

LENGTH

50

3

•

TO IRA

TO 17U

')I1N

l1Z

---cyr-eFFEC:---

896
PAGE IB OF 28

SPS 11-0, PHASE ."
02820

02130 RSTR

18A

------sej-----

.

LNTH - 50

_ _ _ _ e_-- _ _ _ _

GOTO

CHatA

:•

.

02190

118

---------,---------

•- 51! Le'~Ta--'
~~ITU

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

.

N

:

fTR

TENP.

•

I

11 J
02140

1

02900

laH

-1--LEFq~¥Rs----l
,

r

o285o------T:--R'!Hi~tRDRs-1

OPE!!ND TO

lBU

---m;L~~i~jii---

I

LOCATION.

TEMP - LCTR
·________
e--------.
I

-:::::--i~~---

OZ960

-2iii--.--I

I

EXpJsiBli

18V

j---LEFj-liiiiiis;---j

I

-1---"¥XE

LfnR-. U
I

02950 SAVE

liN

LCTR.
LC R LlrR + 35

I
I
I

---------.--------I

I

DZ9lD-------l~:----

I

11811

------1---I

I------.-----nALHpUAND
SUI.

SCAN

02160-----i-:::--0292D

i--~~ji~itfiio---I

I

~HTJaT·BUF.
________
e _____ _

02110

filL

SUB.

-::::-i~~-l-----:;¥ii::~---1
•

--------T~~----

.----.----.

. ' OPEliNO
•
PRESENT
I

I
TO IBN

-~------e-------

I

I
:.---!!iiij5;----.:

029.0
•

YES

.

".----.---.
NO

mIt&.

SCAN

02880

•

-1-Riii~lf;~----1

02930

-1--mky1&fe;:--1

11IR

• /HB34&
• 18P

03000

SCAN

--------i-~::---­

r-n:!;m::----l

liT

·• ~ftni;R"

___ ~ ___ e _______
_ ••
BY

LINPRT

SUB.

8A

---------.--------')19A

SPS 11-0, PHASE 84
03010

PAGE 19 OF 28

19A

---eVAlU.4TE----2ND OPERAND
•

SUB.

SCAN

--------.-------I

•

[
[

.---.----.

03020

I

•

•

198

*

IS
OPERAND
PRESENT

.

YES

PHB36

• 190

NO
030]0

190

I---~;~m~-~~---I
80

I

I

I
I
---------i------[

I
I

03040 PH836

I

190

----MOVE-OPER----i
TO OUTPUT
BUFFER

I

I
I

I

---------.-------B
PHII3S

ISS

SPS 11-0, PHASE 84

PAGE 20 OF 28

20""

03050 DHES5

03210 K

---EvAkulTE-----

I[MODE.
~VMV~~RIC

a~M~t

--------------II
I

---------.---------[

2011

I

I

03080

.----.---.

03130

I

lPHA.

20P

~~AMA

'.

•.----.----. •
RII

M

05T~~J

03090 CON'T

:~~2E

I

2011

i---PRESETTINGi---1
•

INSTR~

ALL

I

ALPHA START

--------*------03150
•

03100
•

•

.----.----.

• 1ST.

ZOF

CHAR~

IN OPERAND
-.ARM

.--------.

NO

I

I
I

TO ZOG

YES

• M
•
*21X

I
.----.---.
:mm~ER

• ADDRESS

NO

03160
•

03230 K2

20W

---CHECK·CHAR:---

YES
- K

IN MESSAGE
OPERAND.

•• 20U

SUB. OTR

--------*-------I

•

I

-1---U~iIir:-----I
•

lOCAflON
COUNtER + 1
K

•

I

WILL START

I
IN EVEN LaC
I
--------.--------I

I
I

TO 20N

•

•

22J

I
I

I

I 20Y
.----.----.
•
•

YES

-

• 23A

CONSTANT

FOUND

YES

20U

'.l

ZOM

·.----.----..
PAREN OR RM

•

I

I

I

•
•
NO
• WAS A lEFT
• K3

03250

-I --m~lg~:;:;---I

I 20X

•

•

---------.--------GO T

.----.----.

03240

·*----.----..

.'

•

I A~¥p8~T :U~ I
--------.-------I
I[

I

MODE.

---------*---------

I ZOR

03200

• 20l

•

CTiONS STOR

20R

CHARACTER

---------..-------II
I

I
I
[

{

II

t

•

FOR seANNING IN
NUMERIC

I
I

.NO---T----.

• PR~AMMER
• _ mRt~~O

2lX

---AlPHA·-------

r--ANiTl1qzs---1

wlvA

I

.-------.------ .
LOQ
*---.--.
•

fOUNO . '20K

03140 PROGR

BUFFER USED IN

03190

CO.....
•
ALPH
NUMERC • WAS ~kPHA' • PROGR

-------T:~---­
I
I
I

•

--------.i-----20J

ZOO

l---il~j'!i;~:__--l
I

SUB. MODE

•

--------;------03010

20V

i---SET-SWITCH----i

-I---~'iii ;~~,-----il

I

II
I

03Z20 KI

MODE SWITDI

II

I

SUB. SCAN

03060

ZOU

1---SET-SWITCfi----i

··.----.----.
•

RM FOUND

NO

03260

•

•

.

YES

•

N

• 21W

•

I

.

[ zoz
.----.----

•
YES
• PARENTHESIS. STORE
OF ANY KINO •
• FOUND
• 21e

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

NO

I

I
TO 21A

SPS 11-0, PHASE B4
03210

j---iiiGiiriN----i
I

OUTPUT

I

IS
THAN 100

I

21G

I

I

03)40 L2

218

A RM IN

~~a·C~~=OL
8m~t A~F.

•

03410 L3

•

NO

• WAS A PAREN • L3
•
OR RM
•
' . FOUND
• 21Q

•

*

'.

?~:NBy~GTR

L4

•·20Y

*

I

-:------T:~:----•

YES
DIGITS

•

*' ZIT

,niNBtI.!lR

.---.----. •

YES

• l6
•

• 21Z

II

21X

---i~siit~i~~----

.---~~~:.-fl~~~!..---.

I

21 y

03~9D

---iiiiilTi-:iiiii---

il---~iiO~ii~------1

.

RM FOUND

..----.----.
.
I

FOUND IN
• MESSAGE OP

03480 M

03430---------i-:~:-----

YES
*• M

.---.----. •

• ANY CHARS.

NO

I 21R
-J---i~i=· ~,u~~---­

•

21Z

21V

I
I

•NO---j---- *

BUFFER.

• 21X

--------.-------GO ,
L2

N°---T:::'

03320

210
.---.---.
•
•

L6

r--i~5=~~AS-------

MODe
Kl

I

·

•

2ftA=8~E

*

0:1420

SUB. ANAL

•

03~60

•

• DIGITS IN

*

210

t~S&/~ g~t

•

GO T

034 70

2lJ

I

CHAR.

DIGITS -100

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

•

• .---------. *

--------~:::_--

03310

••

21H

---~~ik~if~~--•

--------*-------*• CTL.

I

I
.---.----.

03350

I
I
---------r------I

SUB. ANAL

03~00

L2

• -- ______
SUB. DTR
e ______ _ •

2lU

21e

03300

E~~hIG~¥
IN OIP BUF.

II
I 21P
.----.----.

CTl

IN MESSAGE
OPERAND.

j---PAREN·FDu;o---j

I

21H

---CHECK· CHAii:---

I

II DIP
~~l~IIao'lII
II
BUFFE"---------.--------GO T
0
03290 STORE

•

21U

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

---ANAlYii-CT\"--

Iii

i---PlACi·ii-ANii---j

0345D 0

21N

I
FOR SCANI
I
NING IN
I
ALPHA MODE.
I
I
I
---______
e ________ _I

I

03280

03390

i---siT-SWiTCH----i

mmR
I
---------r------II

PAGE 21 OF Z8

03330 Ll

2U1

21H
03500 •

::-----T:~:---- .

r--n~~i!~~;;;---i

I IN DIGITS. I
-------.---------

,J22A
PAGE 22 OF 28

SPS 11-0, PHASE B4
. 03570

Z2G

...-- ~ii-HI~:iiit--··.
BE
•
•

•

AND
CHANG.

--------e-------GOTO
Ll

03580 CONT

•

2lG

22H

-1- uii:~lER. ----I
------.----_.
CHANSt

GOTO

KZ

2011

·-I--~~~'u&;---I
I
tliT~!=:: I

--------r--~----

03540

.*

.*
•

.•

.1 220
.--.---Cn~~E

NO

*,CONT
• 22H

.----...I -.

YES
03550

•

.'

.----

I.----.
22K

03610

•

YES
~m. ,~~:r '.Ll

·.----.----..

• EVEN LOC
NO

03560

• 2lG

I

03620 PUT

1--~~lE~·~~~---.1

I

1=:U'D5~~i
BUFFER.
------*-----GOTO
K2
20W

I.

122ft
I

-1---i8ii-~~MOF-----1

OUT~UT BUA.
F8LL&UfNG~

I

---------.------I
I
TO 22G

22M

-1--~~~siN~-y~
OUTPU~ BUF.

---I
I

I SUB. DMSR2 I
--------.-------GOTO
K2

20W

SPS I I-D. PHASE B4

23 ...

03630 l

0.3690

---FINO-COM;;;---WHICH ENOS
STARTING
MODE OPER~
SUB. MODE

PAGE 23 OF 28

23G

i---GENERATe------1
I
I

POWER TABLE
IN OUTPUT

L_~~::~:

--------*------I

I

I

03700

---ReSTORe-----L1N1'RT
23(;

---:suii-Tsc:;N---I
I

I
I 230

03660

•

CHAR. OF

CONST.

o

230

03810

I

E?~~Ti~DRS.
ADDR CNTR

I

!_-------.-------_!
B
PHB43

I

1I 23K

03760 PH842

---iieSTORE-------

*----a----a

,

•

~~B45

.. 24A

I

I

I
I 23W

'---REPLACE-------j
I
WITH A R"
I
I
I
I
I
I--- ______ a ________ _I

23U

PH845

B

24A

23R

.-----iiouiV-----(
hJ~~AtO.
I
---------a-_______
_I

I

PHASE 83

·--------.--------.
TO

AT

I

I·

lINPRT

!

8A
0]110 PH844

I

I 23S

, a----.----a

••

---------.--------I

.

IS A

~~~~~~~T

.
0

YES
PH843

• • 23U

.----a-___ a

NO

2311

I
I

23T

01180

i---ev"iLuAre-----I

,'IS THE lAST',

YES

r--iST~~~~GTH----

I
I
I

a~mND

•

I
I

I

03750

•

ill---umeI' ~~:::----I

*

LIST ADDRS

TO LENGTH.

I
'
---------.------I

•• PH842
•• 23R

I

I 238

II

I 23V
.----.----.

NO

a----a----.

YES

j---i~r-~g;;eR-----

03680

.----.----. •

• • THAN 50

I 23J

03720

I

03800

1---~gg~~HH-rO---

!

03670

II

I
I 23P

•• h=~~jE~PER

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

28

..

!ES

• +2
• 23K

!
I

, .----.----. , NO
•
GREATER
• +2
, THAN 13
• 23F
,
.----.----.
YES
I
• POWER

•

NO

I
I
I
I

POWER NUHBR

*.

OPERAND

, PRESENT

03710

.---;;iive-

II

.----.----.
I

8A

.---eVAlUATe-----'
I
I
I
I

,

23U
co~sr:---i
I
TO INTER.
I
I
OUTPUT
I
I
BUFFER.
I
I
---______
a ________ _I

SUB.
SCAN
--------a--------

03740 PHS41

.-ADDRESS

-------- .------03650 DOT

_______J

.----.----.
•

03790 PHB43

LENGTH
OPERAND

I 23H

PHASE B3
THE PAR T
COVERED BY
PHASE B4

23101

---eVAlUATe------

I
I

I
I
I

I

I
I 238

03640

03130 OAC

---------r--------

I

TO 23G

TO 23U

91) 2
SPS II-D. PHASE B4
03820 PH845

•

•

•

24.

.----.----. •

PROC

IS THE ADOR • NOSINE

PROG. OR

•

'.PROC ASSIGN,' 24J

PROG--r----

I
•---ev"iLuATE------

03830

2"8

I

I 240

1--------·------lNTH *
ADDRS
I
I
I

,

-------T----.----.--- .....
I

•

,

•

248

I

03920
•

• 2ltG

•

!
I

2411

II
I

l~¥~R1DDR~

RT. ADDR92 ' lNTH

II
I

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

II

TO 2"G

II

03930

I----~~~~;

NO

I
I

0

24M

-:-------

LCTR
S

PHS46

240

24V

ENTRY TO
SKelETON
ADJUST
ADD. COUNTER

I
I
I
I

---------r-------I

I 24W

04000

r-~~~!i~~~i~A---~
---------r--------

1m

!

04010

--------R-------

L1NPRT

I

j---loRr-iloPicAL---j
I
I
I
I

••
R~~I9EEB3
••
•
THE ;ARf
•
•
COVERED BY
•
84
• ________
PHASE a ______
_•

• /H846

!_-------.-------_!

I

---------a---------

• 240

yES---i-----

I

1---iir:-AOiiiis-:---1

•

•

.----tt_---.

DSAC

.

I 24l
.----.----

•
•• IS ~~l~ A

OAt

TgRs~m~DN
fa
SKelETON

I

I

LNTH - 2

I
I
I
I

!

0.3990

24P

, lEPOI

I
LNTH * LCTR
I
---------.--------

COUNTER TO
NEXT EVEN
Fill IN
SKELETON

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

I 240

03970

.

I

-I---ii~~g~~~i~'---·,I

-I---Lm~!:-;_:---I

IS THIS" • PH8"7A
DSAC OR DAIC ,

·

0]960

24J

I 240

• ADDRS-[
RT. ADDRS.
2 • lNTH lIP

I
I
I

-------T--------

--------T::-----

---LFr:-loiiiis---

03860

"8A

24U

j---Aii:iusj-.iiii:---(

I
I
I

1---iieTUiiN-,iiii:----

I

r-:~f;;::----l
0l9l0

COUNTER TO
NEXT EVEN.
FILL IN

III

COVERED 8Y
PHASE 84

0]900 101051 NE

---------r-----.

03950

•---REsriiRe-----•
-------o-L.NPRr-

03980 ClEXIT

I
----~~~!:~!~~------!

T~~AJM]

I

03850 PH846

I

---------r-------03890
I 24H
•

24101

(---:\iiJUS r -:\iiii:---(

i

OPERAND

ADDRS OPER.

03840

03940 LI NKS

24G

i--LiT~-t~~~-----1

I

1 SUB. SCAN
--------i--------

03870

PAGE 24 OF 28

03880 PH847A

•
SA

24X

---RESroiie------PHASE 83
THE PART
COVERED BY
PHASE H4

--------.-------llNPRT

8A

SPS II-D. PHASE 86
0~030

25.

B6

PAGE 25 OF 2B

.----.----.

25G

010090

0"150 NOREP

PHASE B3
THE PART
COVERED BY

. --!~~~~ .!~------ .
lINPRT

258

O"O~O

0~100

01 SK

IUJ

*----.----.

• • TEST TYPE

""

g~FI=~~I

••

--.----. "

"....
NONE

~'AER

I

O

I

Olt1 70

I

THE PART

I

I

~RmEg6BY

PHASEB

IG

I 25P

-::-----i~:~---I
---------.--------m=:?DS TO

I

L'K

OUIO
•

I

zn
.---.----.

r--jmtH;io-----j

" OFF
•• l=fJc~ OPER ".NOTJ

• "rEST CAlL L"" HfL
NKS
•
• 25V

•

I
--------- .---------

-I--~~ip~~dii----i

SKELETON

0"120

25U

I

-----.-----

250

•

I " ~8VldmB2
!.MA~&. fD

---------1(-------=~il~ &3
I

-1--mA~~mG----IN ~EFINER

0"110
------~---------

I

."m

I
.----.----.

0~60

LOOK UP lST
OPERAND.

0~210

B

I

04160

25H

---------a--------I

250

START

VES
DISK
25H

I

".---a---. "

SA

-,---;i-To·AODRs----,
COUNTER.

AND BRANCHES TO FIRST
INSTRUCTION
OF REQUIRBD
ROUTINE

0~050

25"
..
•
YES
" TEST JRD
"E"
•• ~~~~S~¥~O~ ""250

---REsTDRE-------

SECONOARV
LINKAGE
CAllS IN
PHASE B6
FROM DISK

•

"

.

"

I

" 25T

omo

I

C8~~1i~0 1ST

--------T:::-----

.

.---.----

• "TEST OPERNO·. ~Mn~o
•• ~RRNOkmc "·m

. I

.--__ e ____ •

"

ALPH

0"260

25Z
--------j---------

I

!

mDEN~~Y

FOR THE
EQUIVELENT
TABLE

II
I
I

--------- .--------I

I

TO 26A

SPS 11-0. PHASE 86

PAGE 26 OF 28

"IG

SPS 11-0 PHASE B5

27/11

04360 B5

PAGE 27 Of 28

04420

21G

04480

27N

04520 DSA

j---MOVE-SECToii---j

SECONDARY
LINKAGE
CAllS IN
PHASE 85
fROM 01 SK

I
I

,

COUNT Of 3
TO llNPRT

---i~n¥gmr--

I
I

I

•

---------j--------I

04370

278

04490

AND BRANCt+ES TO fIR~T
INSTRUCTION
Of REQUIRBO
ROUTINE

04380 TRA

210

II

II

•

21R

0 ... 550

PHASEB

IG

04470

I

I
I

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

•

.----.----.

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

04590

I
--------j---------

I

I

I

280

i---UPDATi-iClR---j
I

04610

•

--------i-----SUB. DU

04670 MACI

I

I

Of 1St OPBI

I

---------r------I

I

I

04680

288

-,'---:!~~i~~~R ;;----1

,

I

2el

--UPDATE -Aiiiiii---

I

28/1

04690

128M

r-m;~~i~-------

PHASE B3
THE PART
COVERED 8'11
PHASE B5

--------.-------lINPRT

I

I
I

---iiESrORE-----•

~~hoOhpAN

ESS COUNTER

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

I

TO fiRST

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

RT. ADDR-5

04630

28K

--------j-----

I

04620

I

•

--SET-AODiiEss--

r--iin9g~;W;----

8A

·.

I

.

I

PAGE 28 Of 28

YES

I rl~fTA8GR I
--------T::~----

NO

•• 27V

TO 28A

288

TO LAST

•

b~sIT2~~RNO
---~.----.

I

I

127l

IS THIS THE' OSAI

YES

--------.------04600

•

••

I

OUTPUT CARO
lNTH • 5

I
I

.----.----.

r--m:Fj8kii----'
II

27Z

21Y

10 OPERANDS
I N BUFfER.

•

I

II

DSA3

04510 DSA]

IS
• MACl
INSTRUCTION •
• 28K
•
A MACRO
NO

!---~~~~~~--------!

I
I

TO 21N

•

I
I
I

L______ ._______ J

SPS 11-0 PHASE B5

•

EVALUATED
OPER. TO
OUTPUT

j"---Aliow·FOii-----j"

28 •

•

•

II 21X
j------;;iive-------i

04560 DSA2

I

TJ21G

04580

YES
• DSA2

·No----i-----.

I
I
I

~~Op~~HfiH

•

MORE THAN

!

127"
--------0------:8~IESIS~f
+8 f?~mE I

27F

j---;:Iii-iN-------,
I
I

• BUFfER HAS

• 10 OPERANDS • 27Y

I

I

I

I

•

PHASE 83

•

I 21W
4----.----.

I

BEGIN TO
SET UP
DISK
AOORESS

!----------------!

--------r------•

I
•---iiEsriiRE-------•
B

21V

FOR
ITS NUHE~IC
VALUE.
SU8.
SCAN

04540

1271

04460

I
I
I

BRANCH AND
RETURN

•

I

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

I1

•

DPE~AND

!_-------.-------_!
04510

---------.-------I

278

COUNTER TO
NEXT EVEN

I
I

27K

UNPRT

j---'ADJUS r'ADO:---j

04410

MA~K TO
lINPRT

I

-II,---;;OVE-R
EtOiiD----1
MARK TO

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

I
I
I

L1NPRT

04450

B5 fROM
DISK AND
BRANCH TO
MTRA

04400 MTRA

gSR~En

---------r--------

---iiE'AD-PH'Ase---

I
II

Of

-1---iiiiYE-REtiiiiii----,

I---:g~i;; ~-------

--------r---------iiVAlUATE-AN---

121Q

04500

04440

270

•

ADD~ESS

OPERANDS IN
OUTPUT
BUffER

04530 DSAl

L_~!~~:::----___!

BEGIN
TRANSFER ftI
RETURN
ADDRESS
ROUTINE

04390

I

I 27P

I---MOVE-COiiE-----I

21U

I
I
---------.--------I
I

I
TO 28N

-------.------8
PHASEB

lG

SPSlIB--SPS 11-0 MODIFICATION PROGRAM--ENTRY AND eTl STM PROCESS
00020 llBST

OOOBO PHASEA

lA

---t:OAO-PHAse---

II

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

PAGE

2 OF

I
I

---------.--------I
I

i

00090

18

I

---:sUB--Piiosps--

IH

-I---ii'¥:!~;;;~----l

I

PHASE A
ROUTINES
READ INPU'I'
RECORD

PHASEA.
READ STMT

I

j---MoiijFY------j
I
I
I
I

1 OF

j---ENTER·SPS-----j

A ROUTINES
INTO CORE

00030

PAGE

lG

~~~~h';XIT

5A

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

I

00040 PROCON

I

10

i:! ---m,;~;~~---I: I
i~1--------_--_-_1
~I
I
• SUB

5G

ROCK

.

I
.---.---

10

00050

•• -IN COL
• 1
•

•• ,aASEA
"
• 1G

r---.---I'liir--I

OOUO 1 _ "

.--------.--------.
t
• SUI

,.

IIIIWS

00120 CIP2

ootlO

28

1-- llii;;;~---l
---:Sua---IRo;----

oouo

.---.--"
.
•
•
N°----I-•

l~t,

•

00140

•••

•

20
.----.---*
•

~p ~orv

"

YES
AlR IN
•• 2H

•

=8S'AC
.
VEs--i---*

• • ROOM IN

••

TABLE

•

•

•

r

II

2J

211

A~~E~r~~---1

---------*--------TO
PHASEA

IG

II

aM

~'''-::lll

TO

'"&IlEA

16

~aI

l-~i:i;~---J
'0

2'
...----.--.

00150

~Hl!CJo

------.---

2G

·N°---I- .
TkRL~ Y IN

jl--

00190 NOSP.c

20

""" IN COL t ".

00160

5G

ALItIIl

,.

....sEA

lG

5

SPSLlB--SPS 11-0 MODIFICATION PROGRAM--DELETE OP CODE
00210 C2P

00260 NOTIN

r--~~~8-2m~---1
I
I

MODIFY SPS.
READ STHT..

I
I

TABLE
MESSAGE

PAGE

It OF

I
I

!_------.-----_!
TO
PHASEA

5A

I

00220 C2P2

3 OF

r--~&~E~~-------I

I
I

!_-------.------_!
• SUB I MOOSPS
II

PAGE

3G

lG

38

'i---Tvpe-STMT---'i
I

I

I

I

I

I

---------tt_-------.SU8 I ROOK

i

00210

.---.--...
I

•

•

10

•

• • IN COL ~

*

5G

YES

• ENOClP

*

·.---tt_--.....
i

*

•

2G

NO

002<10

.---.----.
I

•

•

3D

• OP CODE IN
TABLE

•

.

•--tt_--.

YES
00250

NO

• NOTIN
•
• 3G

I

I
I

38

i---8iLEit;------~

II
II
---------e_-------TO
PH'-SEA

IG

91n
SPSLIB--SPS 11-0 MODIFICATION PROGIlAM--DEFlNE SST--L 1ST OP--ENDLI8
00280 C<\P

00370 CIP



8Y

8E

-1---8ime~ri~~---i

I

OF 11

I
WKG AREA
_________
a ________ _II
I

---------.--------I

--------E--------~~~~CBYWFXD
FIELD LENGT

I

I

HI ORDER
DIGIT

I

a

au
i---~V~ERl~~:-----i

r--mil~Ljir---i

i---REiiucC;;------i
I
I
I

4Q

NO

WIEXIT

•

.

• ____ a ____ •

110 ROUTINES FIXED LENGTH

·yES---j----*.
III

IS ROSERR
A DIGIT

I

TO

80

o W SPEC
• 0

I

8H

1X

.----.----

WRT I
SQ
---------F------

8C

.---- .----.

•

NO

• ____ e ____ •

YES

I

---,iiiii--'-wiiT-i---

r--mFli~f~l~---i
I ~:~i L~NGTH I
---------a--------WRT A

•

lL

8N

BSNF

I
I

-.ROFlT

I

---------.---------i
•

o

I

FORTRAN ii-D

TO 110

•

NO
RDADJ
.. -1

I
I
---------.---------

-I---~~~r ~ ji~ii----i

o FIXED FLO

II

11s

8G

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

0

i

I~Le~M~rE

I
I

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

r-;~:;:~::::---i

-------::r::-----

7G

WRITEA

..

I

I

•

-t----iNcRiMeNT----1

I

I
---------e-_______
_I

I

I

I
I
I

lR

I

•

II

1W
i--------·I --------,

I

I
.----.----.

I
I

I
I
---------.--------ROFlX)

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

RDADJ

RD:~:---r~:·

7F

SET FLAG
ON ROCOM

TO

lQ

INDEX4 8Y
-I

1~

.----.----.

1T

7w

7V

FLOAT
ARGUMENT

1l

NO

,--------·--------1
I

!-------.--------~
GOTO
RDADJ 1+3

YES

I
I

ROSERR. 0

I

GOTO

ROFL T

I
I

I
I
I

I

---------.---------I

ROFIX3

1--------·--------1

r--A~r ~~~R-----i
7M

I
I

I
I

-------,..-.---------

TP

IN FAC

RDAOJI

I
I
I

I
I

I
I
I

I
I
I

I
II

I
I

CHARACTOR
MINUS

I

1J

FRDM 110
RECORD TO
,CHAR

7E

I

714

!_-------.-------_!

I
I

·.----.----.
.----.----.
YES

I

I
I

FI X
ARGUIIENT

'---PLACE ·ZERii----'j

I

I

---Giirii--O-RiiAiij--RETYI

I

j----INCRAMENT---I

70

ROAOJ-6
TO RETYI

1H

I
I

GOTO

'---MiivE-11"iy----i
I

j-----SEy·--------j

7Q

I
I

I
I
I

ROADJ

RETY2

---------.--------Ne
I
II

GOTO

i--------·--------I

NO

..

YES

---------a--------I

7M

YES RCCOM3

I
I

·

1 OF 11

TU

..

.--__ e ____ •

FROM 110
RECORD TO
CHAR-l

I
I
I

I
I
I

A DIGIT

I

..

I

I

1----IS-RDSEyV----j

I

1J

j---MiivE-11 jGly----j

ROADJ

RC E

•

• 010 INDEX 2 • RDAOJI
.. OVERFLOW
..

I
I

7B

I
I

I

1
. - ___ • ____ a

PAGE

• ____ • ___7N
.a

YES
• RETY2

IS INOEX4
EQUAL TO

NO

FAC = FAC-l

GOTO

.

110 ROUTINES FIXED LENGTH

I

I
I

I
I
I

•

I
I

1--------·--------1
I
I

•

7M

.----.----.
I

YES

FORTRAN 11-0

yES--T---·

•

95

TO

1 fI Ut/

9A

0

1620 MONITOR II YER 2
9A

CHAR IN WKG
AREA LEFT

I

I
I

ERF8

I

I
I

I
I

WITH ADR OF
.WHTYPE.

I

I
I

!_-------.-------_!
GOTO
JHB
+1

9B

WHTYPE

9H

j---STEP-FORMAY----!

---------.--------I

I

I
I
I

I
I
I

II
ER COM I 9C
.----.----.
•

...

9P

PNTR BY
.WIOTH. SET
1X6 TO AOR
OF NEXT BlK

---------.--------GOTO
ERF9-3

2Q

I
I
I
I

---------r-::-----

~{8T~E~p~~
I
---------.-------I

9E

-I

f

L_______________J
ERCOM2

2Q

I
·.----.----.
I .
9S
.----. ----.

9l

1--iiuTPUt-ERR----j
GOTO

ERCOM2

9R

I

~~~~A~¥ORT.

I
I
I

-1---:S~YfE~~HAA--i

II 8~h~i~ Ifi'o iI
---------.--------I

GOTe

!
II 9P
j---pur-wi iirH-----'
FROM FORMAT
STATEMENT
INTO.WIOTH.
AND IX It

TO F9 TYPE.
CHAR AVAI~
TO ONE HA~F

---------.---------I

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

90

j---jNsERf-iiuT----j

I

I
I
I

II

A

II ~~oex 6
II
----_
.... _--.--------

I

I

BO

r--gg~r~~~~------i

YES

..----.----.I

I

s~~Cix

I

9J

• SEL OUTPUT - ERCOM2
DEVICE IS
...
- TYPE WRITER. 2Q
NO

II

I

9R

9 OF 11

9U

j---SET-ER -jNO----j

FROM PGM TO

I

I
I

I

PAGE
ERF9

9N

j---HOVE-F jELii----j
I

I

'---SET-ER-'NO----'
I
TO F8 TYPE
I
I
I
I

JHB

j---LoAo-ix-;;-----j

I
I

---------.--------I
I
I
I

1/0 ROUTINES FIXED LENGTH

9G

j---sH'FT ·ALPHA---'
I

FORTRAN 11-0

---Miivi-0iGiTS----,

_. • fm

FROM FORMAT
TO V~ REt.
me81lIGn

•

---------r-::-----

~mLl

•

YES

-_em
•

9U

NO

9T

r-m~~:~:~~---l

--------.--------GOTO
BSIIF

1620 MONITOR II YER 2
lOA

I

TO E
lOAD
WITH
.WEF

TYPE
IX 6
AOR OF
COM.
SWl

."OVMAN.

3E

r--~gT;Rimw:----1

c8t OF I
---------.--------IfEFCOM

10C

3E

r--mn~~~r--i

I

IS

~~sIp~l~

MOYUP

10H
.---- .----.
•

-YEs---i----·

I

IIKG

I

BY 1 BlK
11 INSTI

I

I ~SRA~ FXO
I
I
INSURE REAL
I
ZERO'
I
---------.---------I
10F

j---SAVE- MA~r-----j

I

~~MR~~p+

I

IN .WCK.

INIT

I

I
I
---------.--------I
I
TO lOG

i

I lOY

j---sEY-sicN------j
I
PNTR FOR W
I
I DIGITS
I

NO
- .. OVEXP
_ "t~~

-

!_-------.-------_!

I
I

10J

lOW

r--~in2;~R~~---1

II

.IIEA

w ~~Ec!ltlOJ

exp BY 14-W

II

---------r::----

---------.--------GOTO
+2

-1---:'~~~E~=~iiF----1
~~n!~II~

r--i~l~sm-~:---I

9S

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

LOL

10E

j---FLiiAf.·:FAC:---j

.----.----.
I

YES

lOH

• +l

• lOX

lOY

lOX

I

---------.-------GOTO
ERF9 -2

THAN 14

•

100

-t---STEP- ix-(;-----j

SIGN.

.---- .----.

•

-I---ni~~r!:~:~---I

!

---------.--------I

GOTO

• EXP L~SS
-. THAN ERO

~m

SWL

WRT E
IOU
•
•
NO
- W SPEC ~ESS • •

1

---------.--------I
•

lOAD IX 6

GOTO

PAGE 10 OF II

1/0 ROUTINES FIXED leNGTH

MOVEXP

lOB

i

2A

lOG

I
I
I
I

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

GOTO

INDex 6

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

-I---b?tf l~;ii~;---i

~--SET:RWEFSW:---,
I

FORTRAN il-O

-I--~P~~;;------I

-I---gg~f~~;;------i
OF
INDEX 0

I
I
I

I
---------.---------

-,---NUMER ic-------j
MaYMAN

10M

Fill MANT

I

II OF
m~ mT
II
EXP
---------.---------

I

TO ION

I

DIGITS. SET
LO ORO DIG
PNTR- • FAC.

I
I
I

E5----I-----

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

lOS
-----.---•
'.

I 10V
.----.----.
•

Y

I

YES
. . ¥Hl~E& ~ORE • _IIR T
• SPEC +~
• IOU

·.----.----. GOTO

ERFS

9B

YES

·..----.----. • - EXP LESS
THAN -99
NO

• WIERCK

• llA

I

I
I

10Z

r-n~~~~~f:::---l
---------.--------GOTO
IfIERCK+l

lIB

1620 MONITOR II VER 2

•

•

11A
.----.----.
•

NO

.
· .----a----.
I

• ERF8

.FAC.

•

•

llG
.----. ----a

··.----a----..
•

98

YES

I

I

I
I
I
I

MOST ALPHA
CHAR FR WKG
AREA-TO 110
REC IE+XXI

..

I
I
I
I

•

98

I

I
.----.----.

• DEC SPEC +
EXP MORE
' . THAN ZERO

11M

YES

WE DEC

•

NO
• WFZERO
•
• 11U

I

!

I UJ

..

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

. ' 2E~x~P~gRE
.... THAN 8

No---i----*

YES

•• IXP

•

·

THAN -1

I
I

*. J'~L

.

•
• 11M

R

•

I
I
!_-------.-------_!
II
I UQ
.----.----.
..
.. NO
.. ~~~~Af TYPE ' .WFS IGN

II SIGN

.. liT

SIGN IHD
8SIIF

·VEs---i----II

NO

• WRITE
•
• llX

llW

j---;uT-iiec-Mj(----j
I

AFTER LAST
m~~oTO BE

I

I

I

t

I llX

I

2A

I
I
---------.---------

i

I llY

liS

-1---~g~l2~;;------i

r--~~jF ~i~Ac:---11
O~RaIGH~L

OF
INDEX 6

I
I

I

--------.--------GOTO
FILL R
IIFSIGN

•

•

1 /--~W5;-;:;:---i
10RT
I

- _______ e _______ _

I

• TYPEWRITER
• OUTPUT

WRITE

jl---i~si=riiGN----1

IXP

11 V
.----.---.

2A

I
I
---------.--------

llR

GOTO

I

I

SLASH2

I

·YES--·'----·

I

!---~~:--.--------!
GOTO
8SWF

llP

PT IN 1/0
C~CD~~ mC

I

WITH DEC PT
POSITIONED
INTO 1/0

I

I

..

I

.-EX'MORE

I
I

j---jNseiir-oec----j

.. " llS

I UK
.----.----.

•

I
II

llU

j---jNseRT-zeiiii---j

I

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

I

I

• ____ a ____ •

---------.--------GeTO
FILL R

SIDE OF 110
REC FLO
WITH MANT
AS REQO

I
I
I

I llH

I 118

4-RY-----i

WFlERO

llN

i--Fill-CY-------j

NO

• W SPEC MORE • ERF8
• THAN EXP+1
•

YES

i---~ove-

FILL L

..

PAGE II OF 11

1/0 ROUTINES FIXED LENGTH

WRT F

kZERCK

• ZERO IN

FORTRAN 11-0

11M

I

I

---------.---------I

liT

r--i2~;sleN;~;----I'

I

VALUE

I

---------.--------GOTO
W 51 GN

llR

/IJ 0;

16Z0 MONITOR II VER Z

FORTRAN 11-0

DISK 110 ROUTINE

PAGE

OF

10
j--------O--------I
I

T088. 42

I

II
II
---------.---------

I
I

OF HE
OVE FLOW
INDICATOR

l

I

I

II

..

SETl

NO
• •.SET1

.'.----.----.
.
I

• • INOFIND
CATOR
....

..

lQ

---------.--------GOTO
NZCK

•

.: li8Al2¥OR
1J

DIOENO

I

I
I

1F

SET FETCH
INOA~ATOR

mEK
: . 1E

1.5

--------T~~---I DDM9R

I

---------*--------GOTO
AITEST

•

i--iii~:;¥iji---1

I

I
1H

I
I
---------.--------

TJ 10

I

I IX
.---.----.

CN19EMPI
"A

--------.--------T088

-f-fj~;~:;~------I

j-------- o.--------j
FETCH

·Nii--T---'
I

I

Y~A~G

!_-------.-------_!

r-~iij:~i~------I

CII

.----.----.

SSEEK
1E
r----~;;~--------j

GOTO

FRIIM

10

r-;~~'~i,ij-----l

I

I 10EI~ss I

I

111

lQ

----crc;-li--------

-------T-~~---

YES

I

I

9RdmM

I

I

I
lC
.----.----.
..

TO

I
---------.---------

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

IV

j----RETURN-------j

-l---SAV-f-SYAiiii---j

.·

.
.
.
··.----.----.

NO
• ORAn

T08h4Z

YES

I

I
I

1Y

r--m~~rrii-----i

I

PROGRAM

I

I
I
---------.--------

10K

"

1620 MONITOR II VER 2
SWC

2A

•

•

•

'j-------- .--------,
I
I

I
I

lW

2C

I

AND THE

I

CKI

I
I

I

REAO-WR ITE
FROM BUFFER

I

I
I

I

I

---------.--------I

.----.I----.

GOTO

20

•

• IS FETCH
•
INDICATOR

•

ON

NO

I

IOREF2

I
I

•

2R

I

D~m=~NT

I

I

I

I

I

2F

•

•

I
.----.----.
.----.----.
I

• IS 8UFFAR
FULL

•

NO

T088

0
0

IX

.----.----.
ON

NO

•

2T

-1

TOBB

IW

2S

r--!j:i~;;::----l
--------.--------GO TO

CKI

I

TO

2W

USING ARITH
FIX

I

I

I

~~BrI~~

!_-------.-------_!
GOTO
FETCH~

·.----.----. .

FETCH)

2l

2X

YES

•

• IS FAC A
•
FLOATING
• POINT NO.

FETCH4

2l

.

USING ARITH

I

2J

I

I
I

l68T~~~AT

-- ---- --- .--------FETCH~

I
I

2Z

j-----,iij·--------,

I

VARIABLE
INTO CORE

I
I

L __ ~~~::~~ _____ J

2'

CK

GOTO

YES

2G

YES

j---Fix-FAC-------i

II

*0

•

•

'---FLOAT·;:"-----i

2M

ON

I
I
I
I
I

.--------NO
I
I
FETCH5 I 2Y

.----. ----.
"'1~O~m~R o~gOTOI
*
•
.----.---I .
•

YES

TO

Si'u~FAR I

IAMm~

YES
* .FETCH2

0

YES

I

2L

I
.----.---.

.----.----.
..----.----.
I

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

---------.--------CK

I

I

2V
.----.I ----.

NO

FETCH 1
2R
•
• NO
o 0 IlM~¥eFER
• 0 FETCH2
o
2T

2K

I OP~mION i
---------r--------

I

'j---PUT-A· VAR:----'j
INTO BUFFER

IJ

---------;---------

2E

I

*.

I

·.----.----.

I

• 0

j---iiii-,iiesej-----j

yes

• FETCHI
•

·.----.----..

I

N2CK

L1NKB

•

t

N2CK EXIT
TO (L1NKBI

2X

• IS FAC A
• FETCH4
F I XED PO I NT •
.. VARIABLE
•
2Z

•

2Q

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

r

•

I

--------r-------*

NO

• FETCH3
•

·.----*----•.
YES

I

mM~CTOR

2J

,-----SeT--------j

•

I

I

I

• SHOULD FAC
BE A FIXED
• POINT VAR.

2P

i---iNCREMENT-i---j

OmATION

.----.----*

2 OF

I

r---i~T; &A~j(jj----i

j---sET-iip~Tii-----'j

I
I

I
II

AODTOI

I

SWOA

II

I

I
I
I

•

*

I

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

!_-------.-------_!

---------*--------I

BUFFAR + W

I
I

2H

I

2B

r--~:;;~~-:------i

YES

• T08B
• -1

ON

II

REAC IN
SWO BLOCK

•

•
•----.----*
NO
I

II

I
I

PAGE
2U

2N

I S FETCH
INDICATOR

•o

1*1-----------------1 * I

I
I

.----.----.

DISK 1/0 ROUTINE

2G

1* I --------. -------- I. I
[*1
GOTO *+2
I-I
1.1
IF SWO
1'1
1'1
BLOCK IS
1'1
1'1
IN CORE
I.r
I-I
1*1

I
I

FORTRAN II-O

2F

2N

1/109

1620 MONITOR II VER 2
DRAY

I
I
I

*0
o

3B

•

AU.y
EVEN

·.----.----.
I

YES
o. EVEN
3E

o

•

3C
.---- I.----.

IS

o
SWD
LOCK IN
o CORE

I

EVEN

3E

r---;~~: ~-:------i

I

F .+ 2

.'•

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

I

3K

TO

I

•

FETCH8
3V

3L

I

---------li---------

tI·

~mv
O~~~
THE GROUP
MARK

------~-r::-----

3F

IS ARRAY
FIXED POINT

YES

.••

-:::::---j-::-----

I

I

ON-

3G

r--!~~~~~ENT-----i

NO

• +2
•
3H

I
t
---------r-------ADDR BY NO
SECTORS RD
OR WRITTEN

lJ

TOI 3U

I

I

---------.--------3V

i---?~i~8~i~~~E---i
I

ACTION FOR
WLRC-THEN

!

I
I

---_£~-~~~~-~~----!

I
II

•

•
•

•

-----.----.
3W

•

..----.----.
.
I
WAS ARRAY
CORRECT
LENGTH

0

YES

•

EVEN2
)S

NO

lr 3M
r---p~iN~:-------i

L______
GOTO

I

I
.----.----.
···.----.----..·.

IA~I~m~

YES

I

OBJECT
PROGR4M

FETCH8
•

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

I

!
I

3P

3R

---------.--------I

.----. ----.

I mK:~mR I
---------.------I
r-j~!j:~~~Ay---i

~YM XT

2C

•

i---RETURN-TO-----j

N°---T-::*
---------li--------

3J

-1---mi~iF5;-----1

I

,IUO-l

3H

--------r--------

30

---Goiii--o-siiiii----

I

-1--i~~~VI\i!i::---i
TH~ luy
I

I

AFTER

I
I

OF

3U

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

THE ARRAY

r---&VI~:~-------i

3N

I mAY
I
---------.---------

-1--m~¥bA~r-----1

NO
• o SWO
o
2A

*
*
YES--T---'
AGAIN

EVENI

r---~m;------i

I

NO

PAGE

r--;;~;~-:-----I

I

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

DISK 110 ROUTINE

3G

i-------.--------,
I T088. ~9
III

•

FORTRAN 11-0

3A

o ______

EVEN2

J
3S

1620

~ONITOR

II VER 2

OIOENO
loA
t *1--------.-------- t. I
101
GOTO 0+7
101
101
IF SWO
101
1.1
BLOCK IS
101
I-I
NOT IN
I-I
I-I
CORE
I-I

I
I

,

IOENO

I

IS FETCH
o
INOICATOR
ON
-o

I

.----.-- __ e

Ne

I

o

•

EVEN ARRAY
BLOCK

I
I

0

I

TO OBJECT
PROGRAM

I

OF

4

I

10K

r--;:~:;:~:---l

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

IJ

4E

BUFFAR
THROUGH
10RT

'I'

I
I
---------.---------

j----iiiijyE-OUy----j
I
I
,

•

•

•

14L
.----.----.
•
IS

PAR.

ZERO

•

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

YES

••
•

•

• -2
ItJ

N°---T-::·

'oF

j----jNciiEMENy----i

l---:8iji!~I:::----I

I
I
---------.--------III

--------.--------GOTO
AGAIN

I

T)

PAGE

I

DRAY!

I TO I 0+11
I
I
I
---------.--------GOTO
N2CK

I

4H

-,-----iiEyURN------j

YES

0 SETRMK
0
loG

o

40

I

I
I

---------r::-----

I

I

I

I

I

r--~~~iy ;:~~-----i
'

I
I

"

r---m~i;-~;----i
I ?~6Vm~R I

YES

- _ SETRMK
loG

.
No----i----*
IS BUFFAR
EMPTY

"OF

!

4C

.----.----. •

PAGE

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

loB

.----.----. •

•

DISK 110 ROUTINE

loG

j----REAii·iN------i

I *1--------*-------- 1*1
I
I

FORTRAN 11-0

SETRMK

30

loG

, U1/
1620 MONITOR II VER Z
MLINIT

FORTRAN 11-0

IA

IG

j---REAO-iN-------j

r-~~'~':~::---I

I nIiit'llE I

!-~t~_2

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

.---.----. •

----REAO- fN------j

•

I

.

i u~~br~: I
---------.--------LOOPRO

TIIO

.

1E·1------·-2~----1·1
---~~~!:~~--~--- ~
.---.----. *. ISis
•

IE

COLNAM

i--~3i~i~kiiE----i
I

TYPE OUT
¥RROR Lit

*

---------e--------I

N°----·I----·

IE

AND DDAS

•

I

I mM~'
I
---------e---------

I
.----.----.
I

•

•
•

.

.*IS RECORD

.

•

IR

•

ND----r~:·

IF

• ~_NY LOCAL
CONTROL
• CARDS

••

·yES---i-----.
TOI lG

•

•

~~QON
IY

r--~2~~ECy-------i
I

I

I
I
---------.-------_
...
TO

I

IN

.

2f

I

I,

TABLE

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

I

•

*
•

•

III
.----.----.

• NO
LAST RECORD • RDAGN
BEEN REAO
•
lH

·YES--T---*

-::::---i--::----

.---.----.

• • HAi LAU

••

·YES-r--·.

~gLNAM

•• ~~LMna •• tA
I IS
.----.--.•
•

•

NO
• '~S LAST
• DECCT
HAiIACTER A •
•
IU
• DIiiNA

·yES-T---·.
I

IT

l---~i~i~¥i:----~
---------.---------

TJ
I U1 2

IU

i

I

82~NT BY

lQ

I ~~bk&!U=

I

IV

RECORD

I

------,-------

IL

CONTINE
• RECORD

·

I

I

I

YES
•• ER3

•

I

•• l6tNAM
•• IL

I

j---iiECREMENy-----j

N~--T--·

.

.·lS
A
•• R2~0=gL

:---ii~m~i~:----l

i

ifT

mrRO?~AM
SC:U¥CH

IP
.--.---.
•

•• J1B~~ME IN

•

IU

j---LoAD ·--------i
_________
I
AREA e ________ _

•

I

DeCCT

NO
•• ER2
•
2E

·YES--·t---·.

IH

k~mD

IN
.--.----.
•

•• lAR=~~' IN
• FORM

lJ
.---.----.

10

LODPRO

•

_________
e ________ _I
I

N~----r~:·
---------,------GOTO

I

RDAGN

YES

• !.ONG fORM
• TIIO
•• K~Qa~m~T ••• 10

·

LOADER BLOCK I

I

IX

i---~2t2:; ~~------i

I

Im'c~N

I

-:~!!.r~-2

r-i~iYI!mE----i
IUB~RoERAM
I
I TABLE
_________
e _______ _

I
I

lZ

.----.-~--.

- • • 1S MAINLbNE • • NO
XEQON2
•• 6V~~R M N •• 2C

·.----.----*
I .
YES

TO

2A

1620 MONITOR 11 VER 2

FORTRAN 11-0

PAGE

LOADER BLOCK 1

2 Of

2A

*----.----*

•

•

•

• ODES

~AINLINE

*

• HAVE A NAME.

NO

..

TSTVLD
3H

.

* .----.---- *

YES

I

I
I

I
I

2B

j---Miive-NAMe-----j
I
I

INTO TYPING
BUFFER

I
I

I
I

I
I

---------.--------GO TO
TSTVLD
XEQON2

3H

2C

j---se"T-CARii-iiR---i
I

I
I
I
I

TAPE
INDICATOR

I
I
I

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

I

*

I
20
.----.----.
..

•

HAS HEADER

*

YES

TSTVLO

•• :~~8R~NBEEN •• 3H

*

*

NO----*-COORTP
EA2

48

2E

1*1--------.--------1* I

1*1
1*1

1*1
1*1

TVPE OUT
ERROR l2t

1:1
1*[

~~~MR

0

f:/
t*1

I *1--------*-------- I *1

ER3

2F

I:!---rype-tiur------I: I
1*1

1:1
1*

,RROR !.3 t

MU~MK

1'1

0

'* [--------.--------

I:
t*'

[*,

10 1 :I

1620 MONITOR II YER 2

FORTRAN 11-0

LOAOER BlOCK

3G

PAGE
TRVSZE

r-~mif------l

3N
.----.----.

• '1I1~l PROG
' . ~ARE'NTO

I

•

3H

.----.----.

•

YES
• RElOCATIO~ • RElFRM
' . n~5RgEAO R . ' 311

·.----e----..

I

NO

I
I
I
I

3Z

ves---·t----*
.----.----. •

..
•

3P

3U

AREAS USED
BY 10RT TO
LOAD PROGS.

I
I
I
I

---------*---------

I

.

I

3Y

r--~~~g;~~-------l

NO
• SWITCH 1 ON • RDPROG
•

or

i---iNi"Ti Alize----i

NO
• ERML

*

---------*-------TSTYLO

.

COTPLO

3

II ~~O~AWO
II
---------.--------GOT a
CUl2

3R

3J

.---- .----.•
•

•

NO
• COR~ IMAGE • ER5
TVP HEADER •
• REC RO
•
3V

*

YEs--T-::'

•

r-n!:~~~i~:----l
---------.---------

I

COMlO

3l

r--i~miFie-----l

II

COMMUNIC.
AREA

---------r::----ERMl

r--~~r~~t~i~~----I

II

9~ ~g~~9~H
AREA

II

---------.--------TO

I
I
I

3N

3Z

1*'--------.--------1.1
1:1
~m OUT

1,1
•

1:1

OYERtAP,ANO
J08

,*.

1·1

I: I---~~~~~~~~~-----I : I
I
TOI 4A

1620 MONITOR 11 VER 2

FORTRAN 11-0

LOADER BLOCK 2

PAGE

4 OF

4

PAGe

OF

3

4A

'j---SRANCH-rO-----'j

,
I

,

MONITOR

,

I
I

I
,

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

I,

,

COORTP ,
48
1* [--------.--------1-1
,.,
TYPE OUT
,.,
1*[

LOAD NAME

1*1
1*1
1*1

1*1

1*[
1* I
[*1

I *[--------*--------1* I
I

I
I

4t

'j---REAO-iN-ONE---i
,
,

tARO OR
TAPE RECORD

I
I

I
I

I
,

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

I

I 40
.----.----.
•
•

'. ma

• IS IT A

YES

•

48

.

3H

• tDORTP

·.----.----.
I
NO

I 4E
.----.----.
*.
IT

• *IS
A
• VAL C
• HEADER

·.----.----.
NO

t~¥VLD

tOORTP+l

Itt

, 01 ;;

1620 MONITOR II VER 2
RMTBL
•

e----.---_.

• N~RI ANl

'.

FORTRAN 11-0

•

NO

• LOOINC
IJ

·yES---i----*.
~R~chMS

LOADER BLOCK]

IG

lA

.• '

IN

i---iiOvr~ORR:-----

~nr:SU~~.

I

-I~--fjq~i=i~---l

f

PROg Loi~!D
I
---------.-------GOTO
SERCH2

--------r::----IB

ENTER

I
'

il---im~!~i;:----l

-1---PLACf. FLAG-----,

LIKE NAME
I
---------.---------

FLIP TABLE
---------.---------

J
.---- .----.

•

NO
• LOOINC
. ' IJ

·1 U
.----.----

·.----.----.
I .

•

*

YES

LINKS SUBP.
TABLE

---------r-------I

1

IE

i---COMPARE-------i
I

SUBPROGRAM

I'TABLE
~t~~SS~~~~

I

II

---------r-------•

I IF
.----.----.
•

• ANY EQUAL
• ENTRIES

-.fOUNO

yES---j----*
TO

I

IG

·NO----;----'.
U8'. TA8LE
ULL

*

r--~i~~~~~;~~;---I
lam ~2~RY

I

I

!

~3g~~·Tl=LE

---------.----GOTO
SERCH2

lK

.'

2X

I 1K
.----.----.

* *HAS LAST
**

~~lsEB

*.

·No----r~:*.
m~·L~2h~D

.* lQ

!

LmEe~~:y

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

•

FOUND

.----.----.

YES

I

TO

I

IN

NO
• ENTER

•

, 15
.---.----.
•

YES

*' C~f &COShK • * PHASEC

•

•

NO

I

• • LIKE ENTRY

•

12

.---~.----.

1M
.----.----.

NO

I

.----.----.
yes

'j---jeiiicH---------

I

IP

I

---------.--------•

.

Iii
•

SERCH2

10

'--GET-iiAiN-OR----t

II

.

ANa ENTRY

I

~L~HhA~IN

**IS IN CORE *.

1y

1P

-1---PLACe·NAMf----i

Rec. MK. IN

LOOINC

lC

•
• HAS EQUAL
' . ~an~CeEEN

lK

•

PHASED

IT
.----.----.

•

2R

NO

• HAS ENTRY
• *
' . IMAfhloeo . '

·.----.----..
YES

I

TO

I 0 1G

I

1U

H

I

1M
.----.----.
•

.

~8H~h ENTRY'.

NO

1620 MONITOR II VER 2

.----.----. •

TSTVLC

*

2A

1
1
I
I

II

I

I

.----.----.
1

•

·.----.----..

•

NO

f

• - IS SUBP. F • -

'.

- CARD OR

-

YES
- UTLD
•• 2K

I
.----.---.

•

YES

IUBP. K

MiMI~~

K

.----.-----

YES

_.

••

I

IOOTO

~i

e

NO
• EROLAP
•• 3A

2W

I

BLOCK ~
AND EXECUTE

1
2D

I

ER9

'*.
-

2X

IILFRM

lA

YES--T---'

ZL

~S:E

•

I.'

' *[
I-I
I! 1-----------------1:I

i

2Y

-'--'NCREMENT-----j

-1---iillni:iDER----1

NO
• SNITCH 1 ON • •
•
* • +2
2G

,-.

ERROR L9

2E

•

II

---------.--------I

!,I---yVj;E-OUT------I:1

r-~iq:ii::-----i
---------.--------GOTO
RMTBL

II

j---CALL-iN-------j

I

2K

2K

•

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

NO

I

TRYSZE

2V

YES
• - ANY NAMES • _ EXTLD
• BEEN TYPED
•

2Q

TABLE

• - ~~

I

I
I

•

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

•*----.----.•

YES

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

•• OF TA LE'

2P

.NO----r--·.

I

EXTLO'
•

- IS

••

I

20

•
• III I ~L PROG
••. ~OAE INTO

~~6

•• 3C

---------i-------1 ~CR:~UTlNE I

I
I

!

.---- 1.----.

.----.----.

SUBDIG

I
I
---------*--------TRYSZE

•

-

2C

FOR CORE
IMAGE LOAD

F

2 OF

2U
• .----.~---.
.
, . NO
• IS TH,S END. PHASED

YES--T---I

•

j---SEy-ijp-iiiiA----j
I
1

~2Y~b~~

2H

•• ~~PE IND.

I

I

!
.---.----.
I

28

• CORE IMAGE • ER5
TYPE HEADER •
• 2Z
• RECORD
YES

.----.---.

I
I
I
I

ENTRY ADDRS
INTO
CALLING
PROGRAM

---------*---------

•

PAGE
2N

j---LiiAO-suiij;:----j

YES

·*----.----..
NO

LOADER BLOCK 3

2G

• RELOCATION • RLFRH
• TYPE HEADER •
• 2L
• RECORD

•

FORTRAN It-D

I

IMAU

TO NHT

I

ENTRY

I

1
I
------------------GOTD

-------r::---

LDDINC+L

IK

I fs:oWiL8~~ I

!:I--~i:-I;Ni~i~:---II:1
lE~ YH
:

--------,--------

I:
1*

--------r-------

1* --------.--------Ie*
TJ 2G

TO

2N

10/'1
IUD MONITOR II YER 2
EROU'

JA

rlii~2mkA;-~1

--------r::----msiXee________ .
-_______
e
I .:.:I--lm~ei~~;~---I:I
RLAP

GOTO

EA6

:

RMTBL'
JC

It~:=m

1A

FORTRAN It-D

LOADER BLOCK)

PAGE

3 OF

3

1620 MONITOR II VER 2

·*---- .----. ..

LBSUBA

lA

..

• +2

.----.----.

YES

• ..

LOADER BLOCK 4

IG

NO

• IS F EQUAL
.. TO 8

FORTRAN ll-

1C

I
I

POINTER TO
NEXT ENTRY

I
I

1'1*1

I
I

'1

I

SUBROUTINE
NUMBER

IE

I
I

18

I

IH

I
I
I

TO READ IN
FIXED LNTH.
SUBROUTINE

I
I
I

I

I

1

1J
..
.. NO
• ENTRY FOR
• SUBMI S
SUBROUTI NE
•
•

I
I

I
I

I
I

... IN TABLE

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

I

INES

I

.----I.----.

I
.---.----.

'.

·N°---T---'.
m~O~m~O

I

.----.----.
I

•

.'

t~

IF

YES

I

I
TO

. ' l!1\Ll~¥8R.
• C6RE
o
•

TO

.----.----.

•
0
YES
•• ~2ID~DNTROl ••• .. 2

•

2C

GOTO

fORTRAN 11-0

.---.----.

o

•

GOTO

o

+2

0

•

e---.----. •
I~

OVERLAP

o

II:
•

,---TYPe-OUr------I: I,
LENGTH

1:·1
2l

•

YES
0

0

0

NO
CAlL'A

.NO----OI---··.

0

e----.--.. . .

0

YES
•

. ' 2~

2W

0

o IS CONSOLI
• SMITCH 1 ON
o

Izv
w----.----*
•

• OVERLAP
' . b~DtClTOR

.·;1

ZQ

o

I'

1:1

I: 1-----------------1 : I

N~---Ol----·

2K

2 OF

2U

2P

•• &AOICATOR.

•

•

0

2Z

:1---TYPe-our------I:1
1
1•
.1
•o

LOADED
MESSAGE

0 ,

•

.*1
•• --------*--------1*1
GOTO
tALL5A
21

0

---------r::-----

---------,--------Wmohm

I UikE.. I

20

e----.----_
~8~~~ NAME

I
.----.---.

TSTEND

·0
•

:

NO

CALL6
28

•

I

---------1--------it~~K ~
I

2L

o ENO OF
00 mr~OmM

•

YES

I
,

• CALL'
. ' 2P

·Nii---T--- .

.

2M

m~mRIN

!I

---------.--------I
CALLING PRO

TO

I

AND

EXECUTE

I

N°----:·I----·

r--~~r-ADiiiiess---i

II

2Y

_________ e ________ _

O

I

MeSSAGE

I: --------_--------1: I

I

2E

•

2X

II: 1---~~ii~2~T------ i1:1:i

_________ e ________ _

I

.'

•

2J

---------.--------I.

10

PAGE

CAU'

r-k8o¥;tkiPEi--l

r-umH~;~:----l

!

I IW

LIISU81

---------.--------GOTO
TSTEND

I

•

I

r-thijn:~;:---i

YES

0

Flt..;5

2C

I

I

YES

2N

_______ e ___ ...____ _

TA LE

I

LOADER BLOCK"

-,---ii 12Ai~In----I

I
I
---------.---------

,ADORlsSES

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

-----I~I
1:~1---~liiii~T
-------0-------1:

T
OVERLAP

i--1iAI~~ ~;------il

r--mRc1re------iI

IT

2H

L_:~~:~:~_:::_.J

-~-------r~:-----

IN

N0---OI---·

2B

lW

• • 0 +2
•
lU

o

o MAL~ fhlPER 0 0
•• It U IN

O

I
--------1-------CALL6

o

•

2A

NO---O,---O

2G

2A

Nii---T---

ti

---------r------

1620 MONITOR II VEA 2

•

•

• o ~"IRLA'
NOICATOR
• N

r-iiftm~k;;--l

IG

RMT8L

..
0
•
0

YES
..'
•

t6

•

I
I
I

e ____ .--__ •

•

NO
• LBSUBA

I
I
I

o

1M

• •

NO

LENGTH

N~---'I----'

• LAiT ENTRY • RMTBL
' . ~~r~KED
• ____ • ____ e . ' 2A

·

•

.

•

2~~~KED

LBSUBl

:1

Mm~G
I:: ----____

..
o
o

IV

LAST ENTRY

i---'er-HEAiieii----j
I
SECTOR
I

I-------r::---- .

I

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

YES

....

IQ

I:1--rIPe-our------ II : I

lL

• .. AS

I
I

•

YES"'--*-RMTBl

•

IE

••

IR

NUMSlR

1 ~~BR~b~
---------.---------

ti

I
:1--TYpe-iJUr------I:I

-,---~ft~;bm;----i

I

o

0 ______ - - ' :

lK

10

SCA~ 'A~bE

•

3A

YES--·t----·

r--i~i~jAFir---i
I

.. "

YES

....
..

.----.----.
I

NO

.----.I----a

lC

i---GET-i: iBRARy---i
SUBROUTINE
elM ENTRIES

.....

I

.----.----.
I

..

1.1
1:1

I-t
] *1
1·1--------.--------1*1

IP

.. OVER~AP
A~O' ATOR

I
---------r--------

!-------~!~~------!

I
I

..

!8~~65Ml
LENGTH

II

.----. ----a
I

r--1~&miNT-----i

1'1

TYPE OUT
OVERLAP
MESSAGE

1:1

'1
*1
101

t*I-------·*--------I*1

I

i---SET-UP-oiM----j

[e1--------. --------[*1

101
1'1

.1

101

!--------.--------~
GDTD
-2

I OF

lU

1*1--------.--------1-t
1'1
TYPE OUT
,.1

i---OECREMENT-----i
I

PAGE
IN

2T

:1---rYPE-our-----I: 1
:1 l~a:ll~G :
--------.-------

.

.

o

•

TJ 2U

2N

,

II


GREAlER OR
•
• EQUAL TO 3 •
~c

3Q

•

•

*----.----*

--_____ e _____ _

i---Ser-lODP-------1
I

I

• FLAG AT

1---iiiii~ii-----1

---------.--------Goro
pr
LOOPse

I
.---.----.

DOES LOOP
EQUlL ZERO

.----.----.
I
I
I
.
I 3V

3P

•.

.---.----.

6

YES

I

FLAG

r-iim~E-5----1

i

I

I

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

38

---------r-------I

•

•

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

I
---------.---------

. ' mmRS~:r •• lOOPSe
• EQUAL 3
•
3F

•

•

•

--PUNCH·
CAiiii-----1
IIITH SEQ.

I

II

I

lu

I

II

---iu~miir----!

I

30

I 3D
.----.----.

I

I
I
---------.---------

I

I---INlrllllze---1
I

I

1---iiuMP-RECiiiiii---'j

• PAPER
•
•
3M

---1t~;r-------i

--------...-------I
I

INcR. SEQ.

..

3H

I
i---R"EAiiTsEOT----1
'

i

. .----. ----..
·
i
CARD

38

READ

3'"

PT

•

• PIT OR
•
CARDS

I I~~MOR
I
------------------I
I
I
I

.---.----.
3G

PT

3011

SETUP

j---sEr-Up--------

3 OF

lU

* * 4Q
5J

5.1

6

DUP DUMP

PAGE

5.t11
---------.-----I
OUTPUT ON
I

5G
USER ENTERS
A .. DIGIT

CARD. PAPER
I
I
TAPE DR
I
TYPEWRITEIt
I
_________
e ________I
I
I
I
I
I
58
I

~:p ANW~@SRD

I

NO
GETDT

···.----.----.
·
*---- .----.

,

n8f~MDUMP.

COMPLETE

4Z

I

•

I 5H
.---.----*
•

I

NO

•• r~loAD "'ARK ' . CKNPNO
• ENTERED
o

5J

"111
.--e----.

YES

FINIS

"

FINIS
5J

I ;U:iiL'~V'~E I
-------.------------1---------

5J

6

5U

j---AiiiiTHE-------'j
I

SECTOR

I

II ¥~NJOJ~L
II
SECTOR tNT.
---------.--------GOTO
FORIIAR

KARK

...
,

FINIS

YES

5N
ROUTINE TO
TYPE
Am~ABlE

5 OF

68

5P

----jli:ml:~;---I
PROG LIST
I
-------.--------I

I

UREAL

5g

0
J8lllAR
0 0 0 i~ 1=&IR'-" -.
680Eny
_

"'ONITOR
GOTO
.U20N

1---

"

"0----

0

0

.---.---.
'" .It,liItlMItY
",

00

o

N°----I-----

i

•

51
.----.----.

NO
." nloAD "AIIK " "NAME
• ENTERED
"lX

•

"
.--.----.
FINIS

"

YES
ERR2

5J

0

55
.----.---.

O"IS TN1' IHE"" •
• WORK AI

"•

~----i~:·

-

•

1-- lat:;;AN------l

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

-------i---------

T) 5G

TO

DUP DUlilP
TONY

6AI

r-"lgo;~~ii------ii
TOT, Al
COUNT

---------j"-------YES'

I 68
"--.-..."

o

"

FORIIAI

.... UsJHIMf .
MONCAL.o

•

511

---------J--------; i!~811~n~~ ;
I
I

I

o

ND----r:

o.

~---i~~i~iR~ ---I
--------..--.----GOTO
URIAL

5g

'u

PAGE

6 OF

6

SEQUENT! AL PROGRAM LI ST HANDLING ROUTINE
14

I
I
J

THE
CHANGED
LIST SACK
I
I

[

[----PlACC-----[
CORE IN
UPPER HALF
OF WORK
AREA

I
I
I

---------.-------I
II

FROM THE
WORK AREA
TO CORE

I
I
I

---------.--------I

I

I
I

10

• ----PlACE --------.

I
I

I
I

I
I

ENTRY TO
RIGHT OF

[
[

I Lr~~iRAM
I
--------.--------

I ~~Mm2NER I
---------.---------

I

I

i

[

10

I
I
I
I

ENTRY
THAT WAS
I N THE
SCANNER

[
I
I
I

I[

lK

I

TO CALLI NG
PROGRAM

---------.--------I

i

r'~TRA"

2G

I

I

I

~8RA~
FA~M
W RK AREA

---------r::-----

RE STORE

CORE
FROM
WORK AREA

I

!

II

1R

ENTRY
THAT WAS
IN THE
SCANNER

1X

I

I
I
I
I

I
I

TO THE

-I----RETURN-------I
l~LLlNG

PaOGRAM
-------~-.---------

I

I

2e
j-----MiivE-~I---1

I
I

I
I

---------.-------:,1

21'1

j----;;lAce-;;iiii---j
I
I
I
J

--------*--------

I
T

PROGRA~

I

--·-------tf--- -- ----

--------T-~~----HOLE IN
THE SPL
TO LEFT

1

CALLING

I

I
I
I
I

I

I
I
I

IT

~~~~2

________!
IU

PAGE

ISEOSUBI

OF

2U

[---- iiRiNG -ii;;c~---I

I

1
I

CORE

FRO~

WORK AREA.

---------tf--------I
I

I
I

I

26

2G

AL

---------.--------I

T)

ENTRY
ICETRI

!

I

I___

---------a-------

TO

SEO~EIiJTI

I

,-----';;5 iR"j------,
INN'~EE~~~l I
JUST
I

ROUTINE

ENTRY IN
THE
SCANNER

IW
--------- -- -------

r---i~J~~~'N-----j

lG

ENTRY TO
THE RIGHT

I

I

IQ

I

IN THE

I

I
I
I
I

I

I

SEOUENTIAL PROGRAM LIST HANDLING ROUTINE

I
I
I
I

I

i

I
I

----~~-~~~~~~~----!

I
LIST
I
-------------------

I

--------- *- -- -------

I

l?G=~ySNB

I

---------.--------I

I

211

)
I
I

x9801

j-----iiPEN -A------.

I
I

11'1

I

CHANGfD
1I S1 TO
SECTOR

II

l-----~~~S~~;_----I

TO

I

I

I

I

I
I
I
I

j----RETURN -------1

I
l~A~~~R
I
---------e_-------I

I
I
I

CORE
INFORMATION
IN UPPER
WORK AREA

I

lB

ENTRY
THAT WA3

I
I
I
I

,-----liiCATe------i

j-----iieMOYe-----i
I
I

1V

i----WRI1 E-. RACK- --(

j---RETUR;;-------j
[

--- ------ .-------I

I

I
I
I

lP

I

I

i-----liiCATe-----.

---------tf--------I

[----PlACE--------i

IJ

j---siij;;G·j;;-----i
ENTIRE
SEQUEN TJ M.

ENTRY IN
SCANNER

I

II

IH

r--~~~A~~:?1~~---j

I
I
I
I

----------------PLAcE NEW

I

IJ

18

OF

lU

ROUTINE
TO INSERT
ENTRY TO
THE LIST
(INSERT)

I
I
I

!-----~~-~!~~!----!

I

I
I
I

PAGE
IN

[-----WR[TE-------i

ROUTINE
TO INSERl'
ENTRY TO
THE 1I ST
(REMOVE)

I
I
I
I

ISEQSUB)

IG

2V

j----RETui\N-ro- ---"i
I
I
I

CALLING
PROGRAM

I

I
I

I
I

--------- *----- - --I

I
I

SEQUENTIAL PROGRAM LIST HANDLING ROUTINE
MOVEXT

I

--------.-------I

MONTER

GORT

18

3H

i

SPL

r--~~5;~Aiii;;---il

~P" ~OUALS

I
I
I

LIS'

LOCATE
MOVESA IN
SEQ PRG LST

--------r--------

.----I.----3D

30

•• AREA

, 3H

••

No---r::·
.--.----.
.YES----I--·

NO·

MoVEXT • CAN THI S
•
PR.OGR.AM
3G
• BE MOVED

NINTEN

lSIT

.

THIS A • •
• • CYLIl NDER
• IN RV·
•

3H

BAVeOM

YES
GOUGE
3Z

l6~GE

•• HALaEIVGH*.

·YES---r--·.

.*

N

3Z

MOltTER

SEQUENTIAL PROGRAM LIST H'IIIILING ROUTINE

IS THIS
A ml~DER
I

!

SY

I
I

~~rsR~~

I
---------.--------GOTO
SliPPS
GOUGE

3Z

I
E
PRE ENT
I
II REMr
J~O~YSPL
I
I-------.---------I
TO

3U

I

4A

PAGE

.---.---.
.N

•• IS

THIS

•

•• ENfttNK ••
•
•

N°----·I---·
.P

~-------G-------

T~

II

I=R""='"
DIM ENTRY

______ e ______

I

.0

-------t-------

I LIL~i:OR I
-::::::--i-::---·~;-IX-tA----· •• ~~~UIIN

mURN ••
• THE
•u
• SECT

,

•

Lii-II--I-.

•

•

W

•

45

-I---~Brr~;-----I
FOR

p~m'8..

---------.-------GOTO
'SHIFT
BUNK,

4M

4T

-1---i~!~tlin~--1
Uol~~s

I

-------e-----GOTO

CUMPUR

4B

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

ISEOSUII

I

.··· .···.
·.----e----.·
I

tRDFYlHE
M8vE 10TTON

TO

II
I 3X
.---.----

I
I'
I
I
I

i
I
I
------r-----'

.F

IS THIS
NK

---------.--------e~mMlNE

j---'ftITlikiZ-E ----

19

.···MkO ···
·.----e----.·
NO

3T

31'1

I 3W
.---.----.

NO

311

_BUMD-

I

MARVEL

-1---I~:~:ii!iI----1
Fall PRAlB'M
--------.--------

•
•
•

II

3Q

I

I
I
I
I

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

3R

I .
.--.---

*.

1

3V

TO THE
LEFT IN
THE SPL

I
I
I
I

In

•

I
---------e_
____I
GOTO

I
I

---------r--------

I8I1T

I
I
I
I

i----siiiFf-ONE----i

SPACE

AVAILABLE
COUNTER

:8no/fWN
PR~'RAM
5E ORS GO
AT
A IME

fI

i&ti~ TO

BAVeON

6

3U

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

3H

'I----iai'imr--lI

i---~iE;R~~------1
I

3P

BLANU

I .
..--.---.
.

BAVADD

GOTO

311

YES·
•
•
BUNKT • IS MoVESA
•
IN A BLANIG
•

I
I
I
I
I

----____
e ________ _I
AVAILABLE

,1~!!R21IAL

I
I

GORT

I

I
I

lu

30

•

'j----.jjjj-iUNK-----

--------r------I

NO

3 OF

---------.--------TOPPRO

·•----e----..

.F

r-ii~~i~~i~~;---l

MOVESC
HOLDS THE
LENGTH OF
THE DESIR6D
HOLE

I'

I

GoTO

I

I
I

.---.----.

YES·
NINTEN •• HL~HI S A
3F
• PROTECTED

I

21

PAGE
3N

.----jVPE-iiu.---.
ERROR
I
I

ROUTINE
TO MOVE
PROGRAMS
ON THE
DISK

ISEQSU8'

3G

4R

• OF

6

SEQUENTIAL PROGRAM LIST HANDLING ROUTINE

ISEQSUBI

SEQUENTIAL PROGRAM lIST HAIIDLING ROUTINE

ISEQSUBI

PAGE

5 OF

6

5A

SPLIST
ROUTINE

~2MmB

58

~-- ~~a~~~~~---j
,
,
I

UPPER HALF
OF WORK
AREA

,
I
,

- - - - _____ e_ _______ _

I
I
'

50
1----SRiNG-~-----i

I m6~~rull I
I m~RAM
---------e_--_____
_I
I
I

PAGE

b

O~

(.

1620 DISK UTILITY PROGRAM 'OLOAD
NEXTl

1A

ADDRS.ON CO
IN MAP CORE
STORAGE

I

I
I

IB

I

.---- .----.

I

.----.---.
.
°·

10

SUBROUTlNB
ALPHA TO
NUMERIC,
ETC.

-------T----I

NO----;---O

•

• • IS PROGRAM

0

°

NO·
NEXT3

I

lW

I
I

---------.--------GOTO
MAlNBl
NDISK

YES

.--------.-----.
MAINBl

I
I

I

NEXT3

I
I

I

IX

lW

MARK IN
MAPRM

I

•

I

I

I

I

I

I

I

---------r------·.----.----..
I

NEXT.

YES
IMMOV

••
•

2F

•

•

IX

IS A TO

•

SECTOR ADOR

o SPECIFIED
o

0

0

No----r-~:o
j---~~ii;'~AG----j

°

I

I

IMmeUM)

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

I

I

·.----.----.
.
mcum

111

I

I

---------.--------GOTO
NEXTit

LU

.'

STORAGE
ADDRESS

1V

i---j;ui-iiECiiiio----i

1---r~~ji;l3;;---i
I
I

I

I

·.----.---..
I
l:L~E~g~~t

•

I

MARK IN
MAPRM
IMAP + 19)

I

I

• GIYEN

•

i---puj-Giiiuj;-----i

SUBROUTINE

I

·

1M

0

·.----.----,
YES

---Gojo-iiiiiiisii--GOTO

PROGRAM
BE FILE

o PROTECTED

•

ERRORl o 0 :R8R~mS

•

LU
.----.----.

* • IS
• TO

lU

IP

II lK
.----.---.
NO.
•

•

I 18
.----.----.
'.

YES

10

o

•

·.----.----..

.--.---. °

LOADER • PROG. TO BB
• CONVERTED T
BN
• CORE IMAGB

I
I

I

I OF 11

MAINBl

I

1J

NO
NDISK
IS INPUT
•
FROM
IP
• DISK

•

SCRATCH
ADDRS.WITH
ADORS.ON CO

I

IH

I 1~D~bON CD I
I
ENTRY
I
I
ADDRESS
I
-------.--------I

---GO-jO'AjNR---

NO
NEXTl
1G

I

IN

,---iNiTi iuze----i

i---pijj-G i ve;;-----,

•

It

=-=

I

NEXT2

YES-----li---.

YES..

I

!

I

•

I

!---~~~~~~~-------!

II

°

IG

i---puj-GivEN-----i

LOAO
PROGRAM
TO
DISK

NO·
COMPIL •• SVSCAL
3A

PAGE

~~XT5

I
I

ZB

I

---------.--------GOTO
NEllT2

II

• ARE CYlIN-

•

s •

o ••

YES--T---'

IH

TO

ZA

1620 DISK UTILITY PROGRAM .DLOAD

PAGE
2U
WRITE FINAL
MESSAGE FOR
LOADED
PROGRAM

2 OF 11

1-1--------.--------1-]

101
1*1
101
101

101
1'1
101
1*1

f: 1-----------------1: I

2C

'

{

2V

---REiuiiii-------CONTROL TO
MONCAL

.----------------.
GOTO
MONCAL

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

·.----.---.
I
2J

~RROR8
lU

·--------i--::----·
.---.----. •
NO.
°

ERROR8
IS THERE
• ROOM FOR
3U
• PROGRAM

·.--.---.
YES

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

I

I

IMMOV

·

28

LOADSC FRCIM

MO
FINOl

I

2Q

°

IS TO DIM

00

o

2K

PROGRAM'

II

---------r-----TO

I

2G

I

~~~mlED

ZS

o

•

0

.----.--.

YES

NO
OKMAP

.

I 2l
.----.---.

2F

m~aVABL8

2K

IHOLOI

i--SETFlAG-U;---,
I

i

OK:::D

I

II mC~52'~t.
II
SECI.PR.lIST
------------------GOTO
OKUOAD
II

·.----.---..

I

I

o.
o·

THERE

-1---pijj-;;AiiE-i;;---1
PNAME

•
•
•

,---coiipufe-----'
I

.·1 i

o. ~K8MaR

.0

•

I

I

I 2M
.---.----.
•

• IS TO DIM
NUMBER IN
• o USE

o
.----.----.
YES
I

TO

I

2N

....

,

.------.------.
!
2T

r--~iji~i~iN------l
o

,

I

I

I

-------::r:------

3S

11>20 DISK UTILITY PROGRAM 'PLOAD

PAGE

3.

COMPIL

r--&~~igfj~~gr--I
I

I

Iml~~gl~

I

..

YES·

NEXTa

• LOOP a 0

30

I

38

I
I

I
.----.----.

NEXTS

I

I
I
I

:--------.--------!
GOTD
MONeAL

3M

I

tgi~St+3

3K

3R

MAINll

I
I

--------e-----__ _
GOTO

319

ALPHAS

aG

lS

MONCAL

-1---RiTiiRli---------1

I l'Ef~IR'" I
---------.-------I
LIM TS

HALT

I~~~~:~:-----I

-1-

i---NEGATE-Fi~---i
I

O

L

•

I

Nun

I
I
I

30

LASTR

... ..----.----...
I

3V

i---oup;[ RROR-;;---i

I
I

------*--------GOTD
LAST2

Aa.I2 3!~ '.

NO

ERROR9

A ORS.8Y 3.

I

3D

REPLAC.'

3P

-11---ii~iE~H~----11

IS A TO PLM •
NO. GIYEN
•

YES.

I
I
I

HALT

~----------------!
GOTO
"ONtAL

---------*--------GO TO
LASH

I
·.----.---.
.
··yEs---r--.. •.
•

I
I
I

LOOP-1

30

•

j---OUP;ERROR-a---,

•

r-~~iae;iBi;~---I

I

PNAME

I

3E

3 OF II

)U

I

II
II
---------.--------NO
NEXn

•

NO

j---Pu"T-NiHe-i.N---'j
I

ERROR8

.
.----.---.
I

•

--------*-------I

I
I

.----.--.....
3N

~g::U8k

10

I

--------e----___ _

I

GOTO

.MONIT

I J"
.---.--.

r81DER • ·PROG.TO B8 ".

·

8N

'.

.

~8nE7U88T

N~---r--·

.'

TOI JG

16Z0 DISK UTILITY PROGRAM 'DREPL

PAGE

--------6--------I
SklPl

I

REPutE

ROGUM
e6YSK

I .
.----.----.
·
'.
.'
·
~21~ROI.

•

I

I
.---.----.

SKIPZ

Ulp] •• ' JS

.

•

l

SKIP]

-::::---r::---~-1---~~i2;~;G-----1
tMDYABLih

---------r-------•.-..l_.In
___*

4A

•

NUMBER IN
• USE

I

YES

TO

4G

'.
•

•

NO.
•
NTDISK.' Ais~NPUT ON ' .
SF

ERR0R5 . .

3T

.YEs---i----.

•.

•

Tal 4U

4V

4W

.----.----. •
:~&R~~nOR

'.
•

· I .

• wORK AREA

• ____ • ____ w

YES

I

4.

j---coMPuie-------I
I

I

MAP"M

I

NO.

SKIP4

-1--1v~Gf2UP----il

YES-I----

•

NO

!

---------.------.R

6U

·w----.----.
.
I
I
.----.----.
·vEs---i----*.
I

MlPRM

•

FROM DIM

.11

GOTO

I S THEME A

I

·1---:vi;;fiDiO---·i

I
.----.---.
·.----e__--_.
I

.----.----. •

NO·
•
ERROR I • ARE SECTOR
•
•
ADDREsses
•
7M
• GIVEN
•

.
N°---I---'

40

.'15 TO DIM

*.

4Z

4P

:ENlR~G· ••

• PiOTltTlh

y~S--O-I--·

~RROR2

4U

YES.

FRO"OM •

---------.--------I

48

• CALL FROM

4N

:HtRi.'loM
CARD INTO
IIAPMA

4 rH

LOADSC FROM

mf~R

I

I

!---~~~~!Ii~~~-----~
4Y

j---~~l;sIRii~~---i
I

IN PLACE OF

I

I 18~tm
--------.---------I
GOT a

"AIN82

.----.----4l.

FRONDM

NO.
•
ERROR4 • IS FROM DIM.
•
NUMBER IN
•
6W
• USE

·yes---i----*.
Tal 5A

i I

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

.----.----.

MAIN82

YES.
•
ERROR1 0 IS FROM OLM •
•
PROG.
•
loX
• IMMOVA8LE
0
o

NO
UPOIM
5U

.----.----.

0

YES

I

NO

II

GO TO

ERROR8

3U

I
I

----I

'MB~~mNE
•

FILE
PROTECTION

-------.-------GOTO

•

FP

9G

5J

I-~~~L~AUSA---i

I

0

0

I
I
5V
I
---GOTO-FP-------

I
SEOUENTIAL
I
I
PROGRAM
_________
e ________ _I
I
LIST
I

50

0

VES---i----·

5H

1---8i~e1i~'o

---------.-------1
II

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

0

I

I
I

58
I
.---PUr-FROM-----.
I
SECTOR CNlI.
I
I
IN LOAOSC
I
I
I
I
I

••

.

.----.----

UPDIM
5U
o
NO
SKIP5 o IS TO DIM
o 0 ~lh'ECTEO
5W
o

5N
'---jNseR'-rO----'
I
DIM BACK
I
INTO SP
I
I
LIST
I
I
I

5G

• *IS SCOLD
o LESS THAN
o LOAOSC
o

5 OF 11

PAGE

1620 DISK UTILITY PROGRAM oOREPL
5Ao

YES
SKIP6

I

MOVESA

68

-------i--------I

5K

r-w;~:AoSt----1
_ _ _ _ _e _ _ __

II

5L
--GOiD-·-------

~9not'YiI

5G
511

NTDISK

---;~Bn~:=----

.

~.aIM

.

----------------GOTO
MUH8Z

·---T-=-·
.--.---.

5U

o

FINISH
5Z
1.1-------.
--------1
••
fINAL
101
1:1
~EADEtE fOR
1:1
101
pROGRAM
101
101
1*[-------.--------1101••

-...---.--.
-.
I

0--r~M2IE ·0
A

.

5G

NRH~

101

•

NO

TO

TO

5N

II

6A

'os,
1620 DISK UTILITY PROGRAM _DREPL
loG

•

-----e----lMEtTlON

*_--.-_4>ft

SKIP6

o

SKIP'

•

0

.:1,,

~~OdAM

*

I*I-----r~~-----------e---------

II
I

gf~E~UII~~

fRO" S.P.
LIST

---------~-------

NO.
SKlP1
6H

0*
0

I 611
.---.---*
•

JM~O~,~r

,

PROTECT ED
o
YES
I

.---e-_e *
TO

0*

•

6G

1/)56

MOrtCAL

3S

ERROR3
6V
j---iiu,;iIROR-i---j
I
HALT
I
I
I
I
I
I

MONITOR
tDMMUN I tAT •

l:i--~iiB~ijik~-I:1

II
I

loP

---------.--------GOTO
MONCAL

60

PF.
----GDiO--°-;QNCAL--

NO---r:

.*.

GOTO

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

I

I
I
I
I
I

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

I

35

ERROR.
6N
j---uu,;eIRoR-4---j
I
HALT
I
I
I

r~i:'liC--l
~ik!t

•

FINISH fRDM DUI 5Z
- _ ti'lUAl"TO
_-

1:1

I

1 J!!iiLi;~~~--~
JS

6U

R~rjERROR 2

.1
I
I

-------*------I
I

IH

---------.--------GOTO
"ONeAL

loCi

U

9G

iND

N°---I--.--.---..
- -

YES.

ROGR M IN
IIORK AREA

----T----.,,'iII
A- ·1
I '~~jl~C.

6.

ERROR2

rli~LCii~Tii----i

GOTO"

ERD
YES
FINISH _ 0 - IS
FROM OUI - 0 _
5Z.
•

,

6 OF 11

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

6N

IlELD

---~i~h;----

PAGE

3S

I
I
--------.---------

35

ERROR1
loX
j---iiu,;fAiioR-;:---j
HALT
I
I
I
I
I
I
I
I
---iiOTO-o-iiONtAL--

3S

GOTO

MONCAl

SUBROUTINES SHAREO BY LOAD AND REPLACE
7A

ATNR

1G
.----.----.

ATNR
SUBROUTINe

lN

NODISK

1U
.----.--~.-*

NO·
•
NEXT9 • IS PRDG. TO ,
•
BE FILE
7J
- PROTECTED
,

NO"
..
LCTEST • IS INPUT ON •

..----.----.YES

..
CARDS
7Y..

YES

I
I

I
I

7H

I

I

,---"j-"jN-PTEsr----j

I
I

r--i~ii"jAl"jzE----l

I---;;OTo----Nfixiiii--I

!-------- .-------_!

IN FORT.
THIS IS NOT

I
I

I ~~~~~ LATI ON I
---------.-------I

I

lK

m~R~~pON

II
I

I

I

I

.----.---.
1Q

NO·
ERRORl,' A~vl~~UT
1M
,GIVEN

YES---,---III

,,

10

TAPE. PHI- 3
DISK. PHI- 0

I

I

YES

t

&DTD

,,.

.RTURN

ERROR I

71'1

1---~f:E'R~i---1
-------*----&OTO
IIOMCAL

1.0- N.Rut

--------e__------

""I S SEQUENCE" ..

*.

7Y

.----.----.
I
I
I

lR

r-~i!Ui~!~~---I

HALT.

I

I

GO TO READ

FOR READ

I

YES·

,

NEXTU ,

e_---.--*

8C.

LOOP. 0

-

N°-----I-'

.&

ALPHAS

•

,

-,-- U~fAilNr-----1

,

4-lDDP

•

7Y
e----.----*
•

AL HAS.- [islHHc~~5 ' .
8G"
..

.----.----.

NO

I

I
I 7l
.---lOOP;·--------j

1T

I

I

LODP-I

I

---------e---------I
TO

II

88

---~i~~i~:I8A----1

YES,
ENDSUB,- ~12tAll~

ADDd.

I
--~iiYii----REMD----

8M.

,

"•

SA

PAGE
SETMAP

-1---~iiicm:iii----1

8 OF

8U

SElMAP
SUBROUT INE

I

--------.--------&DrO

1

I

I

IN

LOADER

---------i--------I 11'1
.---.----.

I

I

-------::i-::------

U~IN&

MAIN81

lU
8V

"j---SET-UP-OIM----J
I

I1

LOADSA.

k~~0~CID5RS

MAPRM

1

II

---------*------- --

lT

NO----r::'

1--~iji;lj::~:---1

I

8W

-------T~:-----1--~iAJi~i~fiH ----I
2Ab

NDRk

--------r::---r-I:OAOSC:-------

I R~~mb~

I

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

I
-I---ggr:mr----{
ENDSU8

I

8M

CALL

I
I

!_-------.-------_!
GOTD

.RTURN

7T

LCTEST
YE~'

--ie.;t11Aiiii---"j
'MA~lcORD

LOADER

t

I

m~~~ENCE

I
---------.--------GOTO
READ

I

SU8ROUTINES SHARED 8Y LOAD AND REPLACE

8111

7X

I

I

1G

·

,---eRROR' 25~-----1

READ
I

IS

.*

CORRECT
NO

I
---------.--------i

2=LL

•

I
I
I
I
I

7W
.----.----.

r~~EST

I
I

I

INITRO 115
--------1--------!I!n~~mA !
d5DP.~
I

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

-1---::l:i~-liii----1

I
ro

~J~ER

I

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

.----.----. ·

YES

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

-1---RiTVRj-ro------,

NUM8ER

.. FLAGGED

I

I

'fL

78

.----. ---.* •
IS
'
,,

NO.
ERRORl ,
FORMAT
1M
- _ ~m~ATOR

i

I

I----~~-~~:~~~--i

I
I

..

7Y

1Q

AREA ADDRS.
FR9M OMM~~~iA ION

711

---------R--------~RH¥IDl CD. I
FROM ALPHA
I

---------~-------I

i

NUTtO

I

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

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

"j---CARD:p~"j;-;---"j

I
I

I

7V

NO"
..
LC TEST • I S SEQUENCE •

-,---;EY-UPWDRK---'

r-iiIN-PTEsi---l

•

,

,

7J

NEXT9

I
I

..

.----.----.

lP

"j---ClEAR 'FlAG---"j

·

..

.----.---..
I

I

I
I
I

I

18

7 OF 11

PAGE

-------r------TO

9A

II

PAGE

SUBROUTINES SHAREO BY LOAD AND REPLACE

9 OF Il

FP
FP
SUBROUTINE
ISET OR
CLEAR FilE
PROTECTION'
9K
:1:

1
I
I
I

0 .. DISK Al'
LOADSA

UPREAD

9H

1
I
I
I

I
I
I

WRITE
ADDRESS KEY
MESSAGE

9P

'i---jjii'iT'E·--------,

I---yuiiii-oii-------,

I---WRITE ·PRiiG:---i

I

I
I
I

i

TUCK

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

I

---------e--------

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

I
.----.----.

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

j---'ii~oiiE------i

'i---'iiiCHM'ENi-----,

!

-:::::--r::-----

I

i

NEXTl2 • FINISHED
•
LOADING
9A
YES

•

•

I

•

I

I

.---.----. •

.

NEXTD • IS PROGRAM
TO BE FILB
•
'IF
• PROTECTEO

I

!

•

I

FlAG

I

I

---------r------I

9L

~gDh

"

.

~D&Rt

--------.-------II

e_--.--.

GOTD

~nEAD • "FlU'
SHED
P 0 EeTiNG
9P
,TR
II
o

No--T--'

.Rl'IJRN

TO

,I

KEY

MESSAGE

N°--T-~O

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

'IS

-I--~iiij-OFF-----'

YES.
,
DONEfP,' ~lnJI~'¥NG ",
9R
,PROGRAII
•

SUBROUTINB

I

Til CK

e_--.----.

9B

---SET-UP-32-----

'1J

'I'"

DONEFP

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

YEs---'lr---'

8G

I

RDTRAK

-1--iiRIT'E.--------'

i--:8kE~i;'ifii:---i

•

,•

I
,

-------. ------GDTD

90

90

DISK READ
INSTRUCTION

I

I

I

I

i

9J

I

I

NO·

II

RDTUK

'Ie

NO.

I

I

'IT

---i'ETuiN-rO----NEXT BOI
AFTER CALL

•••
,

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

•

GOTO

.RTURN

'IN

PAGE 10 OF 11

SUBROUTINES SHARED.., lOAD AND REPUCE
EQUIV

10N

1010

-t---iK:~·~------j

l iKI~AlENOE
UBkoUTINB

NAME

I
---------.--------GOTO
EXIT

loa

YES·
ENDlAB

mUALENOE

°

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

•

.

•,
•

t

REAO ADDR 9~

I
I
I

---------r--------TO lOG

.----.---.

NDDEl

10M

YES..
EXIT
• ARE DIM
NUMBERS
llX
• EQUAl

°

,

No---T---'

AmEA~ls.

ENDUB
•

•

°

YES
UIT

111

.o.

lOT

.--~-.---

"'A~lms

A
o OPERATION
,

.----.----.

NO

I

TolIOU

TO ION

1 fJ 6/1

0

•

lOW

• FIND ONE

,,

I

,

o

101

'j---PUTNlii'E------'j
,
I
I

10J

I

lOS

---------.--------GOTO
. SCAN1

11J

lOll

...----.----..
Yi1'sT---'

--------li--------

,

"
*---.---.
I

I
I
I
I

•

NEXn~

I

II

-_.------.--------GO TO
COMPAR

'i---'iii'iTIAl'izil----,

WITHIN

I

.---.----.
I

I

I ~A~iIE~O
I
---------.---------

I lOR
---------A--------1 1~~:E,fiRls. I

triO.
. ..
Exn
• IS OIM NO.. •
•
GIVEN
,

SKNAME

°

10Z

I lOB

,

•

lOS.

!

YES

°

NO
ERRZ"

'100

I1X

.----.---.
I

o

'IS.
•
N xn~ •• J&A~~¥ORS °

------------------I

,
NO----r-*

10V

r--~~iji~A-9;S----1

.
.No---i----·.

i

DIMTST . . &~LI~P A
llG
• OPERATION

111

I 100
---.----.

r--~!ijt~;~;~---i

.--.---.

•
BETWEEN 10
.• AND 39

IlA

NO

Lac

T BLE

.yES---OI----O,

."15 OIM NO.

lOP

REACHED END
. ' OF TA"lLE

lOT.

I

YES.

.---- .----.•

NODUPL

----~i~iji~~------I

i

I

.

IOU
.---.----.
,

NO
NOllM

lOG

t=DT~'~ENO.

I
J
J

--------T:::----r-~m'E·--------I

I
I
---------.--------GOTO

EIIT

IlX

r--iiup;-·--------,I
ERIIZ~

I
I
I

m~R

10Z

H

I
I

--------.--------- lIX
GO TO

EXIT

SUBROUTINES SHAREO BY LOAD AND REPLACE

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

NOLI'"
YES
ERR23

•

110

•

DIMTsr

IS EQUIV
TARLE FULL

YES"
..
LIMITS. IS DIM NO. •

•

11J

.----.----.

NO

'ENTRY
,

SCAN AOORS.

NO..

I
I

---------.--------I

I

I

YES

uc

I

I

UO

---------.--------GOTO
EXU

11K

I

".

mr

•

llX

IlX

---------.--_....._-I

II .

I III

r-~mE·-------i
---------.--------GOTO
EXIT

llX

I m&'.hAu. I
NOLlM2

I

-------::i~~:------

T ABLE UP

----.--------I
I
I

..---- .I----..

•

I

llQ

I 111/
----------------WRITE'

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

• REACHED END •
OF TABLE
"

OISK

--------- *--------GOTD

I
I

IllR

l&~DIM

EXIT

*----.----*

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

ltV..

I

NO

I

--------.-------GOlD
.RTURN

I
I 11S
*---.----*
US'
". •
XU ~ ." Ut?3U 20
l1U"
..
".----.----.

.

lur

r-i~~E:EBi;~---l

-------.-------Goro

J06i

IlX

IN OElETE.
RETURN TO
CALL+l BOX

..

NO

SCAN3

---CLEAR ·FLAG----

." ARE DIM
•
" NOS. EQUAL
•

11M

--------1---------

SHIFTING

I

NO

I

ENTRY BY

,

---------j---------

IDF

j---REPlACE-------NAME AND
DIM
NO.
I
'" TH NINES

I
I
I
I

SECTORS OF
TABLE

I

ENOVET

.yES---i-----"

IlX

j---oijp;-·-------I
ERROR 23
NAME

I

I

•

SKNAME

NOllM2.' lM~~NN~O
11M
• AND 39

I

---------.-------GOTO
EXtT

•

..

llJ
*----.---.
NO"
..

I

DISK

EQUOIM
11v
----------------DELETE

liP

j---REAO-20-------,

..

LIMITS

"
j---WiijTE·------j
I

11H
.----.I ----.

• IS NAME
• GIVEN
1IX"

,

I

II

llN

GOTO

I

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

EXIT

,

REAO AOORS.

I

I
I

llU

----INCREMENT------

I

I

I

I
I

I

ERR23

,

.----.----.

1111

NEXT!5

i---j;,jlij Allze----j
..

I

,
,
---------4--------

I
I
I
I

GIVEN

NO

I

'---AOO-NEW------,

I

..

I

II

PAGE II OF II

11N

SCAN)

IlG

.----.----.

11k

ENDYEr

lIQ

ItN



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2014:03:04 13:31:51-08:00
Modify Date                     : 2014:03:04 13:12:02-08:00
Metadata Date                   : 2014:03:04 13:12:02-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:3d117005-b6c8-6c46-a627-8c0464373f22
Instance ID                     : uuid:6a7df2c1-e005-a247-9641-385161692174
Page Layout                     : SinglePage
Page Mode                       : UseOutlines
Page Count                      : 541