SHEET;1;
PROGM;080;0;1;INTERCODE TRANSLATOR
ENTRY;102;3
0;D1;14;0;195;;PRINTER(OR CLEO-SIZEDANNEX)
1;B1;15;4;27;;PT/CARDS MODS
2;A1;7;4;75
3;A2;8;4;75
4;A6;7;4;75
CHAPS;10;100;101;152;327;553;680;776;918;994;995
0;3;24;0;2;PROCR 'LENGTH' INDEX B/FWD
1;4;50;0;2;PASS 0 INPUT UNPACKED
2;6;450;0;2;PASS 0 OLD/NEW PROCR INDEX
3;17;50;0;2;WL'S IN PASS 0
4;22;225;0;2;PASS 0 PROCR INDEX
5;19;230;0;2;PASS 0 ADJUST DETAILS
6;21;50;0;2;PASS 0 UNIQUE REFS
7;2;5;0;1;EXTENSION BACKWARDS OF SECTION 18
8;18;1250;0;1;SEQUENCE CHANGES FORWARD AND BACK
9;1;23;0;3;PASS 1 INPUT UNPACKED
10;28;23;0;3;PASS 1 NEXT RECORD
11;29;22;0;3;PASS 1 NEXT OUTPUT REC
12;66;12;0;4;PASS 2 INPUT UNPACKED
13;67;2;0;4;PASS 2 O/P UNPACKED
14;61;60;0;4;PASS 2 WL'S
15;72;16;0;4;SWITCH PROCR LENGTHS+CHAP LENGTHS
16;71;10;0;4;17 'MR>3' DETAILS+COUNTER
17;94;50;0;4;MISC EACH PASS
18;53;0;0;4;PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
19;77;22;0;4;PASS 2 NEXT INPUT REC
20;70;0;0;4;PASS 1 SECTION DETAILS(LENGTH 50)
21;30;9;0;4;UNPACKED PT FOR 08005
22;31;11;0;4;FOR MT BLOCK FOR 08005
23;32;85;0;4;TD WL'S FOR 08005
24;54;80;0;4;PASS 1 ADJUST DETAILS
25;55;25;0;4;PASS 1 UNIQUE REFS
26;92;19;0;4;GENERAL ALL PASSES
27;91;18;0;4;TWO OTRS.FILES LIST-TX AREAS LIST
28;98;6;0;4;10 'ITEM+'DETAILS AND COUNTER
29;95;25;0;4;48 SWITCH DETAILS AND COUNTER
30;99;25;0;4;25 RADIX PAIRS PER PROGRAMME
31;23;24;0;4;'PRINT PROCEDURES' INDICATORS
32;25;21;0;4;'TRACE'DETAILS
33;40;10;0;4;FRILL FOR PRINTING REPORT SERIALS
34;27;10;0;4;PERMANENT WL'S
35;10;195;1;0;PRINTER/CLEO I/P TX AREA
36;14;0;0;4;DUMMY
37;5;27;1;4;PT IN+PRINT
38;7;75;1;4;MTIN,OUT+PRINT
39;8;75;1;4;
40;9;75;1;4;
41;26;540;0;6;PROCR START ADDRESSES
42;11;10;0;7;
43;13;16;0;7;
44;16;20;0;7;
45;15;50;0;7;
46;24;18;0;7;
47;12;60;0;9;PASS 1 WL'S
48;93;225;0;9;PASS 1 OLD/NEW PROCR INDEX
49;97;230;0;9;PASS 1 ADJUST DETAILS
50;52;50;0;9;PASS 1 UNIQUE REFS
51;63;30;0;10;PASS 2 60 SHORT CONSTS PER CHAPTER
52;62;110;0;10;PASS 2 90 LONG+20 TSL PER CHAPTER
53;20;150;0;10;PASS 2 100 ACTIVE SEQ CHANGES FWD
SHEET;2
PROCR;100;CHAPTER ONE
NOTES;;;MAIN OVERLAY ORDER TO RECALL PASS 0
0;152;101;0;0;0;0;
1;C;101;0;0;0;0;
2;76;102;0;0;0;0;
SHEET;3
PROCR;101;CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0
0;152;101;0;0;0;0;
1;C;152;0;0;0;0;
SHEET;4
PROCR;102;STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE
0;62;0;0;0;0;0;
1;125;0;4096;1;1;0;
2;123;102;3;0;2;0;
3;100;0;0;0;0;0;
4;5;148;40;1;0;0;ORIGINAL(A)
5;5;27;0;1;0;0;CLEAR WL'S
6;5;27;2;1;0;0;
7;5;27;4;1;0;0;
8;5;27;6;1;0;0;
9;5;27;11;0;0;0;
10;5;27;13;0;0;0;
11;84;786;0;0;0;0;CLEAR SWITCH 772
12;123;128;0;0;3;0;PROG TAG
13;30;0;0;0;0;4;
14;35;0;0;0;0;10000;
15;37;125;2;0;0;0;FORM LINKS
16;37;125;3;0;0;0;
17;37;125;4;0;0;0;
18;94;102;85;0;3;0;/////           *REENTRY
19;124;999;5;0;3;0;
20;106;0;34;0;0;0;D1
21;30;0;0;0;0;4-;
22;5;27;8;1;0;0;INITIAL PRINTER TYPE+CLEAR 'OFFLINE'
23;124;999;5;0;3;0;
24;106;0;36;0;0;0;B1
25;30;0;0;0;0;4-;
26;12;0;0;0;0;4;
27;5;27;10;0;0;0;INPUT TYPE
28;0;126;13;0;0;0;23/0/2
29;5;126;5;0;0;0;
30;;148;40;2;0;0;
31;70;102;96;0;0;0;gTHINGS OK.EXIT
32;0;148;40;0;0;0;
33;5;999;31;0;0;0;
34;10;0;0;0;0;7;RT7
35;80;103;0;0;0;0;
36;70;102;43;0;0;0;gOK
37;10;0;0;0;0;8;RT8
38;80;103;0;0;0;0;
39;70;102;43;0;0;0;
40;10;0;0;0;0;e;RT11
41;80;103;0;0;0;0;
42;71;104;0;0;0;0;gALARM*10
43;84;787;0;0;0;0;CLEAR SWITCH
44;C;999;0;0;0;0;TO OPEN A9
45;10;0;0;0;0;1;
46;5;27;9;0;0;0;
47;96;0;0;0;2;0;ALLOC ROUTE
48;12;0;0;0;0;40;64
49;3;999;7;0;0;0;
50;31;0;0;0;0;1;
51;32;0;0;0;0;1-;
52;5;126;0;0;0;0;CHANNEL
53;33;0;0;0;0;3;
54;5;129;0;0;0;0;ROUTE
55;;126;0;0;0;0;CHANNEL
56;80;143;0;0;0;0;*DEC
57;5;148;40;0;0;0;
58;62;0;0;0;0;0;
59;;27;9;0;0;0;
60;70;104;7;0;0;0;
61;124;999;5;0;3;0;SP CHAP START
62;124;0;32;0;3;0;
63;124;0;16;0;3;0;
64;10;0;0;0;0;0;START OF REEL CTRS
65;1;999;7;0;0;0;
66;5;142;0;0;0;0;WL
67;124;142;0;0;3;0;
68;102;0;0;0;0;0;CLEAR REEL CTR FOR ROUTE
69;124;999;5;0;3;0;FORM MODIFIER FOR HIGH LOW
70;124;0;32;0;3;0;
71;106;0;22;0;0;0;
72;1;999;7;0;0;0;
73;5;103;0;0;0;0;
74;124;999;5;0;3;0;TEST MACHINE IS HIGH DENSITY
75;124;0;32;0;3;0;
76;106;0;21;0;0;0;
77;70;104;7;0;0;0;gNO
78;;999;31;0;0;0;
79;12;0;0;0;0;58;'H'(=HIGH DENSITY WANTED)
80;71;103;20;0;0;0;gNO
81;10;0;0;0;0;1;
82;124;103;0;0;3;0;
83;102;0;0;0;0;0;
84;76;104;7;0;0;0;
85;96;0;0;0;3;0;
86;70;102;90;0;0;0;gPRINTER WANTED   REENTRY
87;;27;9;0;0;0;
88;71;102;96;0;0;0;gMT WANTED AND GOT,EXIT
89;76;102;32;0;0;0;gGET MT
90;;27;9;0;0;0;
91;70;102;96;0;0;0;gPRINTER WANTED AND GOT,EXIT
92;;27;8;0;0;0;INITIAL PRINTER TYPE
93;80;103;0;0;0;0;
94;71;104;0;0;0;0;gALARM*10
95;76;102;46;0;0;0;
96;126;125;2;0;3;0;gTO MAIN PATH
SHEET;5
PROCR;103;ALLOCATE ANOTHER DEVICE
0;81;103;0;0;0;0;
1;5;140;0;0;0;0;
2;90;0;0;0;2;64;
3;C;0;0;0;0;128;
4;;140;0;0;0;0;
5;124;999;0;0;3;0;
6;105;0;0;0;2;0;
7;70;103;19;0;0;0;gMATCH END
8;94;103;4;0;2;1;
9;;999;9;0;0;0;KNOWN MT ROUTE
10;12;0;0;0;0;18;CH3/0
11;73;103;19;0;0;0;gSLOW CHANNEL;END WITHOUT MATCH
12;90;0;0;0;2;192;
13;C;0;0;0;0;240;
14;124;999;0;0;3;0;TRY FAST CHANNEL
15;106;0;0;0;2;0;
16;2;140;0;0;0;0;
17;70;103;19;0;0;0;
18;94;103;14;0;2;1;THE ALLOCATED ROUTE 
19;82;103;0;0;0;0;(A) NONZERO IF NO MATCH
20;10;0;0;0;0;0;
21;76;102;82;0;0;0;
SHEET;6
PROCR;104;ALARM IF CANT FIND REQUIRED ???
0;126;125;3;0;3;0;
1;150;0;0;0;0;10;
2;C;136;59;0;0;0;gUNLOAD
3;C;104;5;0;0;0;gTRY AGAIN
4;C;105;36;0;0;0;gAS YOU ARE
5;;148;40;1;0;0;ORIGINAL (A)
6;76;102;0;0;0;0;
7;124;999;5;0;3;0;
8;106;0;34;0;0;0;
9;32;0;0;0;0;4-;
10;5;142;0;0;0;0;ROUTE TYPE
11;32;0;0;0;0;2;
12;10;0;0;0;0;0;(ALT ROUTE)
13;32;0;0;0;0;2;
14;5;143;0;0;0;0;ROUTE
15;124;999;5;0;3;0;
16;124;0;32;0;3;0;
17;124;0;12;0;3;0;START OF ASSEMBLER TABLE
18;101;0;0;1;3;0;
19;34;143;0;0;0;0;BITS 4-8
20;36;148;94;0;0;0;8XCHANNEL
21;5;126;0;0;0;0;
SHEET;7
PROCR;105;START PASS 0-DEAL WITH INITIAL TRANSLATION
0;11;0;0;0;0;80;*
1;106;105;0;0;0;0;**
2;124;999;5;0;3;0;ADJUST ORDERS
3;124;0;32;0;3;0;FOR FCC MACHINES
4;104;0;32;0;0;0;*****
5;103;105;22;0;0;0;****
6;102;105;29;0;0;0;***
7;124;126;0;0;3;0;
8;106;0;0;0;0;0;LAST ROUTE ON CHANNEL
9;2;143;0;0;0;0;
10;71;105;13;0;0;0;NOT THIS ONE
11;124;126;0;0;3;0;
12;102;0;0;1;0;0;CLEAR DETAILS
13;124;143;0;0;3;0;
14;106;0;64;0;0;0;OLD ASL
15;124;999;7;0;3;0;NEW ROUTE
16;102;0;64;0;0;0;
17;;142;0;0;0;0;OLD ROUTE TYPE    LOAD NEW ROUTE
18;124;143;0;0;3;0;
19;102;0;64;0;0;0;
20;;140;0;0;0;0;NEW ROUTE TYPE
21;30;0;0;0;0;2;
22;11;0;0;0;0;80;***** DON'T MOVE *****
23;30;0;0;0;0;2;
24;1;999;7;0;0;0;NEW ROUTE
25;124;999;5;0;3;0;
26;102;0;34;0;0;0;
27;;999;7;0;0;0;
28;30;0;0;0;0;2;
29;11;0;0;0;0;80;***** DON'T MOVE *****
30;124;999;5;0;3;0;
31;102;0;35;0;0;0;
32;126;125;4;0;3;0;
33;52;3;0;0;0;0;
34;C;149;14;0;0;0;
35;154;3;0;0;0;0;
36;62;0;0;0;0;0;
37;80;134;0;0;0;0;gINTERCHANGE A1;D1 ASL'S
38;;27;10;0;0;0;INPUT TYPE
39;11;0;0;0;0;.;
40;34;148;68;1;0;0;
41;80;126;0;0;0;0;gOPEN B1
42;54;3;0;1;0;2158;ALL SECTIONS PASS 0
43;54;72;0;1;0;838;ALL SECTIONS PASS 2
44;80;141;0;0;0;0;READ PT
45;;5;0;1;0;0;
46;2;148;42;1;0;0;PROGM'
47;3;148;42;1;0;0;IND'INITIAL TRANSLATION'
48;71;107;0;0;0;0;gAMENDMENT
49;40;A6;0;0;0;0;
50;80;131;0;0;0;0;gWRITE
51;10;0;0;0;0;63;99
52;5;94;45;0;0;0;TRANSLATORS PROCR
53;80;141;0;0;0;0;READ PT
54;70;125;17;0;0;0;gPT AT END SIGN
55;0;5;0;1;0;0;
56;2;148;70;1;0;0;TRAMD'
57;71;105;64;0;0;0;
58;10;0;0;0;0;1;
59;5;27;11;0;0;0;IND'INITIAL TRANSLATION'
60;80;131;0;0;0;0;gWRITE
61;80;141;0;0;0;0;READ
62;70;125;17;0;0;0;gPT AT END
63;76;105;60;0;0;0;
64;54;4;0;1;0;18;
65;;27;10;0;0;0;
66;12;0;0;0;0;1;
67;70;105;71;0;0;0;gPT
68;50;5;4;0;0;0;
69;C;150;2;0;0;0;
70;76;105;74;0;0;0;
71;124;150;2;0;2;0;
72;124;999;15;1;2;0;SEC 5
73;128;0;0;0;3;0;
74;;4;6;1;0;0;
75;2;148;44;1;0;0;PROCR'
76;71;105;79;0;0;0;gNO
77;3;148;88;0;0;0;SET IND FOR 'PROCR'
78;76;105;89;0;0;0;
79;;4;6;1;0;0;
80;2;148;46;1;0;0;TABLE'
81;70;105;88;0;0;0;
82;;4;6;1;0;0;
83;2;148;48;1;0;0;CONST'
84;71;106;35;0;0;0;gNOT A DIRECTIVE
85;34;4;16;0;0;0;CONSTANT TYPE
86;36;148;0;0;0;0;BIT 1
87;70;105;89;0;0;0;gSHORT
88;10;0;0;0;0;1;
89;5;17;0;0;0;0;
90;62;0;0;0;0;0;
91;10;0;0;0;0;1;
92;4;94;45;0;0;0;TRANSLATOR PROCR
93;60;0;0;0;0;0;
SHEET;8
PROCR;106;DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION
0;;4;8;1;0;0;CODERS PROCR
1;12;0;0;0;0;100;
2;73;106;38;0;0;0;gLESS THAN 100
3;12;0;0;0;0;899;
4;72;106;38;0;0;0;
5;;4;8;1;0;0;gGREATER THAN 998
6;80;142;0;0;0;0;CONVERT TO BIN
7;12;0;0;0;0;64;-100
8;33;0;0;0;0;1-;
9;5;17;8;1;0;0;
10;74;106;13;0;0;0;gC-100 EVEN
11;10;0;0;0;0;t;
12;5;17;9;0;0;0;NO OF BITS TO BE SHIFTED
13;;94;45;0;0;0;TRANSLATORS PROCR
14;34;148;66;0;0;0;BITS 1-10
15;124;17;9;0;1;0;LS HALF EVEN PROCR NUMBER
16;33;0;0;0;0;0;/////
17;5;142;0;0;0;0;WL
18;124;17;8;0;1;0;
19;36;22;0;0;0;0;
20;71;106;38;0;0;0;gPROCR ALREADY USED
21;;142;0;0;0;0;
22;124;17;8;0;1;0;
23;37;22;0;0;0;0;
24;62;0;0;0;0;0;SET BIN
25;;94;45;0;0;0;TRANSLATORS PROCR
26;19;0;0;0;0;14;DIVIDE BY 20
27;5;17;10;0;0;0;
28;32;0;0;0;0;9;
29;5;17;9;0;0;0;
30;;17;0;0;0;0;SHORT/LONG IND
31;124;17;9;0;1;0;
32;31;0;0;0;0;0;/////
33;124;17;10;0;1;0;
34;4;94;5-;0;0;0;AUGMENT TABLE
35;80;131;0;0;0;0;WRITE A6
36;60;0;0;0;0;0;
37;76;105;53;0;0;0;gREAD PT, TEST NEXT BLOCK
38;10;0;0;0;0;1;
39;5;17;16;2;0;0;SET 'PASS 0 DOESN'T LIKE IT'
40;76;106;24;0;0;0;gO/P, UPDATE 'LENGTH' IND
SHEET;9
PROCR;107;START OF AMENDMENT RUN
0;0;5;0;1;0;0;
1;2;148;50;1;0;0;'AMEND'
2;70;107;14;0;0;0;
3;;5;0;1;0;0;
4;2;148;70;1;0;0;'TRAMD'
5;70;144;0;0;0;0;g
6;150;0;0;0;0;3;ALARM*3
7;C;136;59;0;0;0;>UNLOAD
8;C;107;9;0;0;0;>REENTER
9;;27;9;0;0;0;
10;11;0;0;0;0;900000;
11;91;0;0;0;3;0;(END VALUE NON ZERO)
12;80;134;0;0;0;0;gINTERCHANGE A1,D1 ASL'S
13;76;100;0;0;0;0;
14;80;145;0;0;0;0;UNPACK AND CHECK AMEND BLOCK
15;40;A6;0;0;0;0;
16;54;9;4;1;0;50;
17;91;0;0;0;3;0;CLEAR R3
18;80;131;0;0;0;0;gWRITE 'AMEND'
19;0;10;14;1;0;0;
20;12;0;0;0;0;7.0000007.;
21;71;107;25;0;0;0;gNOT ISSUE 2.3 OUTPUT
22;5;10;12;1;0;0;
23;5;10;14;1;0;0;
24;5;10;16;1;0;0;
25;0;10;16;2;0;0;'MULTI-RECORD'IND
26;5;27;1;0;0;0;
27;0;10;14;2;0;0;'PSEUDO-ISSUE 5'IND
28;5;27;2;0;0;0;
29;0;10;12;2;0;0;'ISSUE 6 OR LATER'IND
30;3;27;0;0;0;0;
31;71;111;0;0;0;0;gYES
32;80;137;0;0;0;0;gREAD MT
33;;27;1;0;0;0;
34;70;107;37;0;0;0;g1-RECORD BLOX
35;0;10;12;1;0;0;
36;76;107;38;0;0;0;
37;0;10;10;1;0;0;
38;2;148;44;1;0;0;'PROCR'
39;70;107;46;0;0;0;
40;1;148;44;1;0;0;
41;2;148;46;1;0;0;'TABLE'
42;70;107;46;0;0;0;
43;1;148;46;1;0;0;
44;2;148;48;1;0;0;'CONST'
45;71;107;32;0;0;0;gGET TO FIRST PROCR START
46;;27;1;0;0;0;
47;70;107;50;0;0;0;g1-RECORD BLOX
48;59;10;6;0;8;0;
49;C;10;4;2;0;0;
50;;27;1;0;0;0;
51;70;107;54;0;0;0;
52;;0;6;1;8;0;
53;76;107;55;0;0;0;
54;0;10;10;1;0;0;
55;2;148;58;1;0;0;'END  '
56;70;109;7;0;0;0;gEND OF INTERCODE
57;1;148;58;1;0;0;
58;2;148;44;1;0;0;'PROCR'
59;70;108;10;0;0;0;gYES
60;1;148;44;1;0;0;
61;2;148;46;1;0;0;'TABLE'
62;70;108;9;0;0;0;gYES
63;1;148;46;1;0;0;
64;2;148;48;1;0;0;'CONST'
65;70;108;0;0;0;0;gYES
66;1;148;48;1;0;0;
67;2;148;54;1;0;0;'DUMPS'
68;70;109;0;0;0;0;gYES
69;1;148;54;1;0;0;
70;2;148;56;1;0;0;'FILES'
71;70;109;0;0;0;0;gYES
72;1;148;56;1;0;0;
73;12;0;0;0;0;7551637455;'VALUE'
74;71;108;59;0;0;0;gNOT A DIRECTIVE
75;;27;1;0;0;0;
76;70;107;79;0;0;0;
77;;0;4;2;8;0;
78;76;107;80;0;0;0;
79;0;10;6;2;0;0;LINE SERIAL
80;70;108;59;0;0;0;gDON'T COUNT
81;94;108;59;0;3;1;g(NEVER RUNS OUT)
SHEET;10
PROCR;108;STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P
0;;27;1;0;0;0;
1;70;108;4;0;0;0;
2;34;0;14;2;8;0;CONST TYPE 05
3;76;108;5;0;0;0;
4;34;10;20;2;0;0;
5;10;0;0;0;0;0;
6;32;0;0;0;0;4-;
7;36;148;0;0;0;0;BIT 1
8;70;108;10;0;0;0;gSHORT
9;10;0;0;0;0;1;;TABLE
10;5;3;45;0;0;0;WL;PROCR
11;60;0;0;0;0;0;
12;10;0;0;0;0;1;
13;4;17;10;0;0;0;COUNT DIRECTIVE BLOX
14;;17;10;0;0;0;
15;11;0;0;0;0;99;
16;80;142;0;0;0;0;gBIN
17;3;6;0;0;3;0;
18;94;0;0;0;3;1;
19;19;0;0;0;0;14;DIVIDE BY 20
20;5;148;40;1;0;0;
21;91;148;40;0;1;0;
22;32;0;0;0;0;9;REMAINDERgA
23;5;3;46;0;0;0;WL           PROCR
24;0;3;45;0;0;0;BIT IND
25;124;3;46;0;1;0;
26;31;0;0;0;0;0;/////
27;4;3;5-;0;1;0;LIST IN 3/0-44
28;;27;2;0;0;0;
29;71;108;59;0;0;0;gPSEUDO-ISSUE 5
30;;4;2;0;0;0;PROG ID;TEST DUMMY CLEO MOD
31;34;4;4;0;0;0;PROG SERIAL
32;74;108;59;0;0;0;gSKIP BUILDING UP SEC 53 FROM LINE SERIA
33;;27;1;0;0;0;
34;70;108;37;0;0;0;
35;;0;4;2;8;0;
36;76;108;38;0;0;0;
37;0;10;6;2;0;0;LINE SERIAL
38;30;0;0;0;0;2-;
39;80;142;0;0;0;0;gBIN(NEW PROG)
40;5;143;0;0;0;0;WL
41;;27;1;0;0;0;
42;70;108;45;0;0;0;
43;;0;10;2;8;0;
44;76;108;46;0;0;0;
45;0;10;16;2;0;0;OLD PROG
46;30;0;0;0;0;2-;
47;70;108;59;0;0;0;gDON'T COUNT
48;80;142;0;0;0;0;gBIN(NEW PROG)
49;33;0;0;0;0;1-;HALVE
50;92;0;0;0;2;0;(CLEARS A)
51;74;108;56;0;0;0;gEVEN
52;34;148;66;0;0;0;BITS 1-10
53;;143;0;0;0;0;
54;33;0;0;0;0;10;
55;76;108;58;0;0;0;
56;34;148;66;0;0;0;
57;;143;0;0;0;0;
58;37;53;50-;0;2;0;
59;;27;1;0;0;0;
60;70;108;69;0;0;0;g1-RECORD BLOCKS
61;;0;0;2;8;0;CURRENT RECORD LENGTH
62;5;137;0;0;0;0;
63;97;137;0;0;8;0;
64;C;107;50;0;0;0;gNOT EMPTY
65;80;137;0;0;0;0;gREAD A1
66;59;10;6;0;8;0;
67;C;10;4;2;0;0;
68;76;107;50;0;0;0;
69;80;137;0;0;0;0;gREAD A1
70;76;107;50;0;0;0;
SHEET;11
PROCR;109;DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5
0;0;10;6;2;0;0;
1;5;3;45;0;0;0;STORE 5-DIGIT SERIAL FIRST LINE
2;80;137;0;0;0;0;gREAD MT
3;0;10;10;1;0;0;
4;2;148;58;1;0;0;'END  '
5;71;109;2;0;0;0;
6;76;109;13;0;0;0;;END
7;;27;1;0;0;0;
8;70;109;11;0;0;0;gSINGLE-RECORD BLOX
9;;0;4;2;8;0;LINE SERIAL
10;76;109;12;0;0;0;
11;0;10;6;2;0;0;
12;5;3;45;0;0;0;STORE HIGHEST LINE SERIAL
13;;3;45;0;0;0;
14;71;109;20;0;0;0;
15;60;0;0;0;0;0;
16;0;17;10;0;0;0;DIRECTIVE CTR
17;11;0;0;0;0;100;
18;30;0;0;0;0;2;
19;3;3;45;0;0;0;
20;5;17;21;0;0;0;
21;60;0;0;0;0;0;HIGHEST EFFECTIVE LINE SERIAL
22;35;0;0;0;0;11;
23;36;3;45;0;0;0;LINE SERIAL OF DUMPS/FILES/END
24;70;109;26;0;0;0;gA PROCR-SHAPED LINE
25;10;0;0;0;0;100;STEP PROCR
26;1;3;45;0;0;0;
27;30;0;0;0;0;2-;
28;80;142;0;0;0;0;gTO BIN
29;5;3;45;0;0;0;(HIGHEST B/FWD PROCR+1) IN BINARY
30;;17;10;0;0;0;DIRECTIVE CTR
31;11;0;0;0;0;100;
32;80;142;0;0;0;0;gBIN
33;5;94;45;0;0;0;PROVIS(MAX C/FWD  PROCR)+1
34;;27;2;0;0;0;
35;71;110;25;0;0;0;gPEUDO-ISSUE 5 O/P
36;90;0;0;0;3;0;
37;C;0;0;0;0;900;
38;90;0;0;0;2;0;
39;C;0;0;0;0;2;TRICK SETTING
40;80;139;0;0;0;0;gGET NEXT LOCN
41;;4;2;0;0;0;PROG ID
42;34;4;4;0;0;0;PROG SERIAL
43;75;109;49;0;0;0;gBY PASS,EXCEPT PROG'00000'
44;0;10;4;2;2;0;
45;33;0;0;0;0;10-;
46;5;6;1;0;3;0;
47;33;0;0;0;0;10;
48;5;6;0;0;3;0;
49;94;109;40;0;3;2;
50;;4;2;0;0;0;
51;34;4;4;0;0;0;
52;75;109;56;0;0;0;gNOT PROGM'00000'
53;10;0;0;0;0;1;
54;5;27;2;0;0;0;SET PSEUDO ISSUE 5
55;76;110;25;0;0;0;
56;;17;10;0;0;0;COUNTER OF DIRECTIVE BLOX
57;12;0;0;0;0;500;
58;73;110;0;0;0;0;gOK
59;41;A1;0;0;0;1;
60;45;A6;0;0;0;1;
61;150;0;0;0;0;9;
62;C;136;59;0;0;0;gUNLOAD
63;C;107;9;0;0;0;gREENTER
SHEET;12
PROCR;110;STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5
0;90;0;0;0;1;0;
1;C;0;0;0;0;460;(FOR ADJUST DETAILS)
2;90;0;0;0;3;0;
3;C;0;0;0;0;160;FOR STORING
4;80;139;0;0;0;0;gGET ITEM
5;0;10;4;2;2;0;
6;5;54;0;0;1;0;
7;94;0;0;0;1;1;
8;94;110;4;0;3;1;
9;80;139;0;0;0;0;gGET
10;;10;4;2;2;0;
11;71;109;59;0;0;0;gALARM 7, TOO MANY ADJUST DETAILS
12;94;110;9;0;1;1;
13;90;0;0;0;3;0;
14;C;0;0;0;0;50;
15;90;0;0;0;1;0;
16;C;0;0;0;0;100;(FOR UNIQUE REFS)
17;80;139;0;0;0;0;gGET
18;0;10;4;2;2;0;
19;5;55;0;0;1;0;
20;94;0;0;0;1;1;
21;94;110;17;0;3;1;
22;80;139;0;0;0;0;gGET
23;0;10;4;2;2;0;
24;71;109;59;0;0;0;gALARM 7, TOO MANY UNIQUE REFS
25;46;A1;8;0;0;1;
26;C;0;0;0;0;ppppp;
27;80;137;0;0;0;0;gREAD
28;0;10;6;1;0;0;
29;2;148;60;1;0;0;INDEX'
30;70;110;39;0;0;0;gREAD FWD TO 'PASS 1'
31;0;10;4;2;0;0;
32;2;4;2;0;0;0;PROG IDENTITY
33;71;110;37;0;0;0;gMISALIGNED
34;0;10;6;2;0;0;
35;2;4;4;0;0;0;SERIAL
36;70;111;21;0;0;0;gOK
37;45;A1;0;0;0;1;
38;80;138;0;0;0;0;gOPEN A1
39;80;136;0;0;0;0;gAPPROACH FROM START OF TAPE
40;76;111;21;0;0;0;
SHEET;13
PROCR;111;DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN
0;90;0;0;0;1;0;
1;C;0;0;0;0;46;
2;80;137;0;0;0;0;READ MT
3;55;10;4;2;0;46;
4;C;3;0;0;1;0;INDEX 3/0-45
5;94;111;2;0;1;23;
6;;3;45;0;0;0;
7;80;143;0;0;0;0;gDEC
8;30;0;0;0;0;2;
9;5;17;21;0;0;0;HIGHEST EFFECTIVE LINE SERIAL
10;62;0;0;0;0;0;
11;;3;45;0;0;0;(HIGHEST B/FWD PROCR+1) IN BINARY
12;30;0;0;0;0;5;
13;101;0;100;1;1;0;CREATE B/FWD OLD-NEW PROCR INDEX
14;91;0;0;0;1;0;
15;101;0;100;1;3;0;
16;3;6;100-;0;1;0;STORE ONE-FOR-ONE
17;11;0;0;0;0;1;
18;94;111;16;0;1;1;MAX B/FWD PROCR
19;;3;45;0;0;0;=PROVIS MAX C/FWD PROCR
20;5;94;45;0;0;0;
21;52;18;0;0;0;0;
22;C;149;0;0;0;0;
23;154;18;0;0;0;0;TYPE 'AMEND' COMMENT
SHEET;14
PROCR;112;READ/WRITE MODS UP TO FIRST DIRECTIVE
0;80;127;0;0;0;0;gREAD/TEST PT
1;70;112;4;0;0;0;gYES
2;80;131;0;0;0;0;gWRITE
3;76;112;0;0;0;0;
4;10;0;0;0;0;9999;
5;3;17;10;0;0;0;SET FOR SEQUENCE CHECKS
6;5;17;14;0;0;0;
7;0;4;3;0;0;0;LINE SERIAL
8;30;0;0;0;0;3-;
9;12;0;0;0;0;5e;*
10;70;112;2;0;0;0;gMOD TO SECTIONS
11;;17;28;1;0;0;PROG + SERIAL
12;71;113;14;0;0;0;gNORMAL
13;10;0;0;0;0;1;PROGM 00000
14;5;17;16;1;0;0;SET PASS 0 DOESN'T LIKE IT
15;80;133;0;0;0;0;gCOPY
16;76;112;13;0;0;0;gIGNORE ALL MODS
SHEET;15
PROCR;113;MAIN LOOP
0;80;141;0;0;0;0;gREAD
1;70;124;0;0;0;0;gPT END
2;0;5;0;1;0;0;
3;2;148;70;1;0;0;TRAMD'
4;71;113;11;0;0;0;gNO
5;10;0;0;0;0;1;
6;5;27;11;0;0;0;SET IND THAT TRAMDING
7;80;131;0;0;0;0;gWRITE
8;80;141;0;0;0;0;gREAD
9;71;113;7;0;0;0;gNOT PT END
10;76;124;0;0;0;0;
11;80;132;0;0;0;0;gUNPACK
12;80;129;0;0;0;0;gSTORE SWITCH, TEST DIRECTIVE
13;71;120;0;0;0;0;
14;60;0;0;0;0;0;
15;;17;10;0;0;0;CHECK SEQUENCE AT NEW DIRECTIVE
16;2;4;2;2;0;0;
17;73;113;22;0;0;0;gOK
18;71;121;42;0;0;0;gREJECT, READ/COPY TO NEXT DIRECTIVE
19;0;17;12;0;0;0;
20;12;0;0;0;0;3;
21;71;121;42;0;0;0;gPREVIOUS NOT 'T' H53, IGNORE THIS
22;;17;21;0;0;0;MAX B/FWD LINE SERIAL
23;2;4;2;2;0;0;THIS LINE SERIAL
24;72;113;29;0;0;0;gNORMAL
25;10;0;0;0;0;1;
26;5;17;16;1;0;0;SET 'PASS 0 DOESNT LIKE IT'
27;80;133;0;0;0;0;gWRITE A6
28;76;113;25;0;0;0;
29;71;113;34;0;0;0;gOK
30;86;129;0;0;0;0;
31;12;0;0;0;0;3;
32;71;113;25;0;0;0;gMOD AT END IS NOT 'INSERT'
33;76;119;5;0;0;0;gINSERTING AT END SIGN
34;;4;2;2;0;0;
35;30;0;0;0;0;2-;
36;80;142;0;0;0;0;BIN           TEST IF VALUE
37;5;143;0;0;0;0;;DIRECTIVE?
38;124;143;0;0;1;0;EQUIV OF CURRENT PROCR
39;;6;100-;0;0;0;
40;70;121;42;0;0;0;gREJECT.READ/COPY TO NEXT DIRECTIVE
41;85;129;0;0;0;0;
42;C;118;0;0;0;0;R
43;C;114;0;0;0;0;D
44;C;119;0;0;0;0;T
45;C;118;28;0;0;0;A
SHEET;16
PROCR;114;
0;80;130;0;0;0;0;gFIND 'PROCR 'LENGTH'
1;5;17;0;0;0;0;0=SHORT, 1=LONG
2;35;0;0;0;0;11;
3;36;4;2;2;0;0;
4;12;0;0;0;0;1;
5;70;114;10;0;0;0;gDELETION BEGINS AT'NOTES'
6;10;0;0;0;0;0;
7;34;17;0;0;0;0;
8;36;4;2;2;0;0;LINE SERIAL
9;71;121;42;0;0;0;gUNACCEPTABLE MOD
10;0;4;2;2;0;0;
11;3;17;14;0;0;0;
12;30;0;0;0;0;8;
13;70;114;17;0;0;0;gDELETING PROCR
14;;17;3;0;0;0;CTR OF ADJUST DETAILS
15;101;0;460;1;2;0;
16;70;121;42;0;0;0;gLIST FULL.COPY TO NEXT DIRECTIVE
17;80;131;0;0;0;0;gWRITE A6
18;80;141;0;0;0;0;gREAD
19;70;115;0;0;0;0;gPT AT END. SINGLE LINE DELETE
20;;5;0;1;0;0;
21;2;148;70;1;0;0;'TRAMD'
22;70;115;0;0;0;0;
23;80;132;0;0;0;0;gUNPACK
24;80;129;0;0;0;0;gTEST DIRECTIVE
25;71;116;0;0;0;0;gNO, HENCE MULTIPLE DELETE
SHEET;17
PROCR;115;DEAL WITH SINGLE LINE DELETION
0;0;17;14;0;0;0;
1;3;17;10;0;0;0;FOR SEQUENCE CHECKS
2;30;0;0;0;0;8;
3;71;115;6;0;0;0;gNOT DELETING 'PROCR'
4;;17;14;0;0;0;
5;76;116;17;0;0;0;gJOIN UP WITH MULTIPLE DELETION
6;30;0;0;0;0;8-;
7;12;0;0;0;0;1;
8;70;115;24;0;0;0;gDELETING 'NOTES'ONLY
9;10;0;0;0;0;0;
10;2;17;0;0;0;0;
11;12;0;0;0;0;1;
12;5;17;15;0;0;0;
13;;17;14;0;0;0;
14;32;0;0;0;0;2-;
15;5;17;19;0;0;0;PROCR
16;;17;14;0;0;0;
17;2;17;15;0;0;0;-(NEGATIVE ADJUST DETAILS)
18;5;17;14;0;0;0;
19;;17;14;0;0;0;LINE SERIAL+ADJUST DETAIL
20;32;0;0;0;0;2-;
21;2;17;19;0;0;0;
22;71;115;24;0;0;0;CARRY INTO NEXT PROCR.DON'T STORE
23;80;140;0;0;0;0;gSTORE ADJUSTMENT
24;0;5;0;1;0;0;
25;30;0;0;0;0;4-;
26;30;0;0;0;0;4;
27;2;148;58;1;0;0;'END'
28;70;124;0;0;0;0;gPT AT END
29;;5;0;1;0;0;
30;2;148;70;1;0;0;'TRAMD'
31;70;113;5;0;0;0;
32;76;113;14;0;0;0;gTEST NEW DIRECTIVE IN SEQUENCE
SHEET;18
PROCR;116;DEAL WITH MULTIPLE DELETION
0;;4;2;2;0;0;
1;30;0;0;0;0;2-;;TEST IF DIRECTIVE
2;80;142;0;0;0;0;gBIN;IS VALUE SERIAL?
3;5;143;0;0;0;0;
4;124;143;0;0;1;0;
5;;6;100-;0;0;0;
6;70;121;42;0;0;0;gATTEMPTING TO DELETE 'VALUE' REJECT
7;80;130;0;0;0;0;gFIND PROCR 'LENGTH'
8;5;17;0;0;0;0;
9;34;17;0;0;0;0;
10;36;4;2;2;0;0;LINE SERIAL 'TO'
11;71;121;42;0;0;0;gREJECT AMENDMENT
12;0;17;14;0;0;0;'FROM'
13;2;4;2;2;0;0;'TO'
14;72;121;42;0;0;0;gREJECT.OUT OF SEQUENCE
15;;4;2;2;0;0;'TO'PROCR
16;3;17;10;0;0;0;FOR SEQUENCE CHECKS
17;32;0;0;0;0;2-;
18;5;17;15;0;0;0;3-DIGIT'TO'
19;;17;14;0;0;0;'FROM'PROCR
20;32;0;0;0;0;2-;'TO'PROCR
21;3;17;19;0;0;0;'3-DIGIT'FROM'
22;2;17;15;0;0;0;
23;70;116;28;0;0;0;gDELETIONS IN SAME PROCR
24;;17;14;0;0;0;'FROM'SERIAL
25;30;0;0;0;0;8;
26;70;117;0;0;0;0;gOK.ALLOW DELETION
27;76;121;42;0;0;0;gREJECT
28;32;0;0;0;0;2;
29;70;117;0;0;0;0;g'FROM' PROCR DELETED ONLY
30;0;17;14;0;0;0;
31;30;0;0;0;0;8;
32;30;0;0;0;0;8-;
33;12;0;0;0;0;1;
34;70;121;42;0;0;0;gMULTIPLE DELETION BEGINS AT'NOTES.REJE
35;;17;14;0;0;0;'FROM'SERIAL
36;2;4;2;2;0;0;'TO'SERIAL
37;2;17;0;0;0;0;LENGTH
38;12;0;0;0;0;1;
39;5;17;15;0;0;0;(NEGATIVE ADJUST DETAIL)
40;;17;14;0;0;0;
41;2;17;15;0;0;0;-(NEGATIVE ADJUST DETAIL)
42;5;17;14;0;0;0;
43;;17;14;0;0;0;LINE SERIAL+ADJUSTMENT
44;30;0;0;0;0;2-;
45;2;17;19;0;0;0;PREVIOUS PROCR
46;71;116;48;0;0;0;gCARRY INTO PROCR.DON'T STORE
47;80;140;0;0;0;0;gSTORE ADJUSTMENT
48;80;131;0;0;0;0;gWRITE
49;76;113;0;0;0;0;gREAD NEXT BLOCK
SHEET;19
PROCR;117;DELETE MANY PROCEDURES
0;;17;15;0;0;0;'TO'PROCR
1;80;142;0;0;0;0;gBIN
2;11;0;0;0;0;1;
3;2;3;45;0;0;0;(HIGHEST PROCR+1)
4;73;117;6;0;0;0;
5;10;0;0;0;0;0;
6;1;3;45;0;0;0;
7;5;17;15;0;0;0;EFFECTIVE'TO'PROCR
8;;17;19;0;0;0;'FROM'PROCR
9;80;142;0;0;0;0;gBIN
10;5;17;19;0;0;0;
11;;17;14;0;0;0;'FROM' SERIAL
12;30;0;0;0;0;8;
13;70;117;16;0;0;0;
14;10;0;0;0;0;1;NOT DELETING ALL 'FROM' PROCR
15;4;17;19;0;0;0;
16;;17;15;0;0;0;'TO' PROCR+1
17;30;0;0;0;0;5;
18;1;17;19;0;0;0;'FROM' PROCR
19;91;0;0;0;1;0;
20;10;0;0;0;0;0;
21;5;17;22;0;0;0;CTR OF VALUE BLOCKS
22;;6;100-;0;1;0;
23;71;117;26;0;0;0;g
24;10;0;0;0;0;1;
25;4;17;22;0;0;0;AUGMENT CTR OF VALUES
26;94;117;22;0;1;1;
27;;17;15;0;0;0;
28;2;17;19;0;0;0;
29;3;142;0;0;0;0;WL-DELETED QTTY
30;11;0;0;0;0;20000;Bit 18
31;30;0;0;0;0;5;
32;124;17;19;0;1;0;'FROM'PROCR
33;128;6;100-;0;0;0;DELETE ALL PROCEDURES
34;;3;45;0;0;0;HIGHEST PROCR+1
35;30;0;0;0;0;5;
36;1;17;15;0;0;0; 'TO'PROCR+1
37;5;148;40;1;0;0;
38;2;142;0;0;0;0;
39;1;17;22;0;0;0;gNUMBER OF VALUES
40;3;143;0;0;0;0;(-DELETED QTTY)
41;4;94;45;0;0;0;REDUCE MAX C/FWD PROCR
42;91;148;40;0;1;0;
43;94;117;45;0;1;0;/////
44;76;117;50;0;0;0;gNONE TO UPDATE
45;;6;100-;0;1;0;
46;70;117;49;0;0;0;gVALUE DON'T UPDATE
47;;143;0;0;0;0;NON-ZERO LOCNS DELETED
48;4;6;100-;0;1;0;UPDATE PROCR
49;94;117;45;0;1;1;
50;60;0;0;0;0;0;DEC
51;;17;10;0;0;0; 'TO' SERIAL
52;2;17;14;0;0;0; 'FROM' SERIAL
53;70;115;24;0;0;0;gSINGLE LINE DELETE
54;76;116;48;0;0;0;
SHEET;20
PROCR;118;'R'DIRECTIVES AND 'A' DIRECTIVES
0;35;0;0;0;0;11;;DIRECTIVE LINE 'R'
1;10;0;0;0;0;0;
2;36;4;2;2;0;0;
3;71;118;28;0;0;0;gNOT REPLACING !***00!
4;;4;2;2;0;0;
5;32;0;0;0;0;2-;
6;80;142;0;0;0;0;BIN
7;2;3;45;0;0;0;HIGHEST B/FWD PROCR+1
8;72;118;38;0;0;0;gREPLACING DUMPS OR FILES
9;;4;6;1;0;0;
10;2;148;44;1;0;0; 'PROCR'
11;70;118;22;0;0;0;
12;;4;6;1;0;0;
13;2;148;46;1;0;0; 'TABLE'
14;70;118;21;0;0;0;
15;;4;6;1;0;0;
16;2;148;48;1;0;0; 'CONST'
17;71;121;42;0;0;0;gNOT REPLACING BY ANOTHER DIRECTIVE ;REJE
18;34;4;16;0;0;0;
19;36;148;0;0;0;0;BIT 1
20;70;118;22;0;0;0;gSHORT CONST
21;10;0;0;0;0;1;
22;5;143;0;0;0;0;WL=LENGTH OF REPLADEMENT
23;80;130;0;0;0;0;FIND 'LENGTH'OF REPLACED BLOCK
24;3;17;0;0;0;0;
25;2;143;0;0;0;0;
26;71;121;42;0;0;0;gTRYING TO CHANGE'LENGHT',REJECT
27;76;119;28;0;0;0;gOK
28;80;130;0;0;0;0;
29;5;17;0;0;0;0;gFIND'LENGTH'
30;35;0;0;0;0;11;
31;36;4;2;2;0;0;LINE SERIAL
32;12;0;0;0;0;1;
33;70;118;38;0;0;0;gNOTES
34;10;0;0;0;0;0;
35;34;17;0;0;0;0;
36;36;4;2;2;0;0;
37;71;121;42;0;0;0;gUNACCEPTABLE
38;;4;2;2;0;0;
39;3;17;14;0;0;0;
40;3;17;10;0;0;0;
41;32;0;0;0;0;2-;
42;5;17;19;0;0;0;
43;;4;6;1;0;0;
44;2;148;44;1;0;0;PROCR'
45;70;121;42;0;0;0;gNOT ALLOWED
46;;4;6;1;0;0;
47;2;148;46;1;0;0;TABLE'
48;70;121;42;0;0;0;g
49;;4;6;1;0;0;
50;2;148;48;1;0;0;CONST'
51;70;121;42;0;0;0;gTRYING TO REPLACE BY A DIRECTIVE
52;76;119;28;0;0;0;gO/P
SHEET;21
PROCR;119;DEAL WITH INSERTIONS
0;80;130;0;0;0;0;FIND 'LENGTH';INSERTION FIRST LINE
1;5;17;0;0;0;0;
2;34;17;0;0;0;0;
3;36;4;2;2;0;0;
4;71;121;42;0;0;0;gUNACCEPTABLE
5;;4;2;2;0;0;LINE SERIAL
6;3;17;10;0;0;0;
7;5;17;14;0;0;0;
8;;17;10;0;0;0;
9;3;17;18;0;0;0;
10;32;0;0;0;0;2-;
11;80;142;0;0;0;0;gTO BIN
12;5;17;7;0;0;0;3 DIGIT REF 'INSERT BEFORE' BIN
13;;17;21;0;0;0;HIGHEST LINR SERIAL
14;2;17;18;0;0;0;INSERT BEFORE' SERIAL
15;71;119;22;0;0;0;gNOT INSERTING BEFORE END SIGN
16;60;0;0;0;0;0;
17;;17;18;0;0;0;
18;11;0;0;0;0;99;ROUND UP INSERT SERIAL
19;32;0;0;0;0;2-;TO DEAL WITH ISSUE 5 END
20;80;142;0;0;0;0;gBIN
21;5;17;7;0;0;0;
22;;4;2;2;0;0;
23;30;0;0;0;0;8;
24;70;119;28;0;0;0;gINSERTING BEFORE PROCR START NO.ADJUST
25;;17;3;0;0;0;CTR OF ADJUST DETAILS
26;101;0;460;1;2;0;
27;70;121;42;0;0;0;gLIST FULL COPY TO NEXR DIRECTIVE
28;80;131;0;0;0;0;WRITE
29;80;127;0;0;0;0;gREAD/TEST PT
30;70;113;14;0;0;0;gYES
SHEET;22
PROCR;120;DEAL WITH NON-DIRECTIVE LINE
0;85;129;0;0;0;0;
1;C;120;5;0;0;0;R
2;C;121;42;0;0;0;D-NOT ACCEPTED,  2 LINES ALREADY
3;C;121;0;0;0;0;T
4;C;120;5;0;0;0;A
5;60;0;0;0;0;0;
6;;17;0;0;0;0;CURRENT LENGTH
7;11;0;0;0;0;1;
8;4;17;10;0;0;0;STEP SEQ  CTR
9;;17;10;0;0;0;
10;32;0;0;0;0;2-;
11;2;17;19;0;0;0;PROCR OF R OR A-DIRECTIVE
12;71;120;23;0;0;0;g NOT STILL IN SAME PROCR
13;;4;6;1;0;0;
14;2;148;44;1;0;0; 'PROCR'
15;70;121;42;0;0;0;
16;;4;6;1;0;0;
17;2;148;46;1;0;0;TABLE'
18;70;121;42;0;0;0;gUN ACCEPTABLE
19;;4;6;1;0;0;
20;2;148;48;1;0;0;CONST
21;70;121;42;0;0;0;gUNACCEPTABLE
22;76;116;48;0;0;0;
23;10;0;0;0;0;1-;
24;2;17;0;0;0;0;
25;4;17;10;0;0;0;STEP BACK SEQ CTR SO NEVER ALTERS
26;76;121;42;0;0;0;g READ/COPY TO NEXT DIRECTIVE
SHEET;23
PROCR;121;DEAL WITH INSERTIONS
0;;4;6;1;0;0;;INSERTIONS 
1;2;148;44;1;0;0; 'PROCR'
2;70;121;13;0;0;0;
3;;4;6;1;0;0;
4;2;148;46;1;0;0;
5;70;121;12;0;0;0;
6;;4;6;1;0;0;
7;2;148;48;1;0;0; 'CONST'
8;71;123;0;0;0;0; 'NOT A DIRECTIVE'
9;34;4;16;0;0;0;CONST TYPE
10;36;148;0;0;0;0;BIT 1
11;70;121;13;0;0;0;g SHORT CONST
12;10;0;0;0;0;1;
13;5;17;0;0;0;0; 'LENGTH' OF INSERTED PROCR
14;35;0;0;0;0;0;
15;;17;18;0;0;0;
16;32;0;0;0;0;2-;
17;10;0;0;0;0;0;
18;74;121;30;0;0;0;g INSERTING BEFORE PROCR START
19;;17;18;0;0;0;
20;2;17;21;0;0;0;
21;70;121;30;0;0;0;g INSERTING AT END OF PROGM
22;;17;10;0;0;0;
23;2;17;14;0;0;0;
24;70;121;42;0;0;0;g NOT IN THE MIDDLE OF AN INSERTION
25;5;17;15;0;0;0;ADJUST DETAIL
26;;17;10;0;0;0;
27;5;17;14;0;0;0;
28;80;140;0;0;0;0;STORE ADJUST DETAIL
29;76;121;42;0;0;0;g REJECT 'PROCR'
30;;4;8;1;0;0;
31;80;142;0;0;0;0;CONVERT TO BIN
32;73;121;42;0;0;0;g NEGATIVE, IGNORE
33;3;17;4;0;0;0;NEW PROCR NUMBER (BIN)
34;2;3;45;0;0;0;HIGHEST B/FWD PROCR (BIN)
35;73;121;42;0;0;0;NOT UNIQUE
36;;17;4;0;0;0;
37;101;0;999;1;2;0;MAX PROCR
38;72;121;42;0;0;0;gIGNORE
39;124;17;4;0;1;0;
40;106;6;100-;0;0;0;
41;70;122;0;0;0;0;g OK, PROCR NOT ALREADY INSETED
42;10;0;0;0;0;1;SET IND 'PASS 0 DOESN'T LIKE IT'
43;5;17;16;1;0;0;
44;80;133;0;0;0;0; READ/WRITE TO NEXT DIRECTIVE
45;76;113;14;0;0;0;
SHEET;24
PROCR;122;INSERT NEW PROCR INTO LIST IN SEC 6
0;62;0;0;0;0;0;STEP BACK SEQ CTR SO NEVER ALTERS
1;;3;45;0;0;0;> READ/COPY TO NEXT DIRECTIVE
2;30;0;0;0;0;5;
3;1;17;7;0;0;0;
4;91;0;0;0;1;0; 'PROCR'
5;94;122;8;0;1;0;/////> NOT INSERTING BEFORE END SIGN
6;;94;45;0;0;0;CURRENT (HIGHEST C/FWD PROCR) +1
7;76;122;10;0;0;0;
8;124;17;7;0;1;0;
9;;6;100-;0;0;0;UPDATED REF ''INSERT BEFORE''
10;5;135;0;0;0;0;
11;10;0;0;0;0;1;
12;4;94;45;0;0;0;
13;0;17;0;0;0;0;LENGTH IND
14;30;0;0;0;0;4;
15;1;135;0;0;0;0;UPDATED REF
16;124;17;4;0;1;0;CODER'S PROCR
17;5;6;100-;0;0;0;
18;94;122;20;0;1;0;/////
19;76;122;25;0;0;0;gINSERTING BEFORE END SIGN, SKIP
20;;6;100-;0;1;0;
21;70;122;24;0;0;0;g'VALUE' DON'T UPDATE
22;10;0;0;0;0;1;
23;4;6;100-;0;1;0;
24;94;122;20;0;1;1;
25;60;0;0;0;0;0;
26;76;119;28;0;0;0;gREAD PT
SHEET;25
PROCR;123;INSERTING INSTRUCTIONS
0;35;0;0;0;0;0;
1;;17;18;0;0;0;
2;12;0;0;0;0;10002;
3;73;121;42;0;0;0;gUNACCEPTABLE
4;;17;18;0;0;0;
5;32;0;0;0;0;2-;
6;10;0;0;0;0;0;
7;74;116;48;0;0;0;gINSERTING AT END OF PROCR
8;;4;2;2;0;0;LINE SERIAL
9;30;0;0;0;0;2-;
10;80;142;0;0;0;0;CONVERT TO BIN
11;2;3;45;0;0;0;(HIGHEST B/FWD PROCR+1)
12;73;123;54;0;0;0;gNOT A UNIQUE REF
13;;17;2;0;0;0;
14;12;0;0;0;0;64;
15;72;123;54;0;0;0;gTOO MANY UNIQUE REFS, DON'T STORE THIS ONE
16;;4;2;2;0;0;UNIQUE REF
17;124;17;2;0;1;0;
18;5;21;0;0;0;0;
19;35;0;0;0;0;11;
20;36;17;14;0;0;0;
21;5;136;0;0;0;0;ITEM DEC
22;;17;14;0;0;0;
23;30;0;0;0;0;2-;
24;80;142;0;0;0;0;
25;5;141;0;0;0;0;REF BIN
26;124;141;0;0;1;0;
27;;6;100-;0;0;0;
28;80;143;0;0;0;0;DEC
29;3;17;19;0;0;0;UPDATED REF DEC
30;30;0;0;0;0;2;
31;1;136;0;0;0;0;DEC ITEM NOT UPDATED
32;5;17;6;0;0;0;
33;;17;7;0;0;0;INSERT BEFORE REF
34;2;141;0;0;0;0;
35;70;123;38;0;0;0;gHASN'T GONE OVER THE TOP
36;10;0;0;0;0;1-;
37;4;17;19;0;0;0;TO GET THE RIGHT ADJUST DETAILS
38;90;0;0;0;1;0;
39;C;0;0;0;0;460;
40;;19;0;0;1;0;
41;70;123;48;0;0;0;gEND OF ADJUST DETAILS
42;30;0;0;0;0;2-;
43;2;17;19;0;0;0;3 DIGIT PROCR
44;71;123;47;0;0;0;
45;;19;1;0;1;0;
46;4;17;6;0;0;0;ADJUST ADDRESS
47;94;123;40;0;1;2;
48;62;0;0;0;0;0;BIN
49;;17;6;0;0;0;
50;124;17;2;0;1;0;
51;102;21;1;0;0;0;
52;10;0;0;0;0;2;
53;4;17;2;0;0;0;
54;60;0;0;0;0;0;
55;;17;0;0;0;0;LENGTH IND
56;11;0;0;0;0;1;
57;4;17;14;0;0;0;AUGMENT'NEW'LINE SERIAL
58;80;131;0;0;0;0;O/P
59;80;141;0;0;0;0;READ
60;70;123;67;0;0;0;gPT AT END
61;;5;0;1;0;0;
62;2;148;70;1;0;0;'TRAMS'
63;70;123;67;0;0;0;
64;80;132;0;0;0;0;UNPACK
65;80;129;0;0;0;0;DIRECTIVE?
66;71;120;0;0;0;0;gNO
67;;17;14;0;0;0;;END OF MULTIPLE INSE
68;2;17;10;0;0;0;DIFFERENCE
69;5;17;15;0;0;0;QUANTITY ADJUST
70;;17;10;0;0;0;
71;5;17;14;0;0;0;
72;80;140;0;0;0;0;STORE ADJUST DETAIL
73;0;5;0;1;0;0;g
74;30;0;0;0;0;4-;
75;30;0;0;0;0;4;
76;2;148;58;1;0;0;'END  '
77;70;124;0;0;0;0;
78;;5;0;1;0;0;
79;2;148;70;1;0;0;'TRAMD'
80;70;113;5;0;0;0;
81;71;113;14;0;0;0;g PT AT DIRECTIVE
SHEET;26
PROCR;124;CONSTRUCT C/FWD PROCR LENGTH INDEX
0;62;0;0;0;0;0;
1;54;94;0;0;0;45;
2;;3;45;0;0;0;(HIGHEST B/FWD PROCR+1)
3;30;0;0;0;0;5;
4;101;0;100;1;1;0;
5;91;0;0;0;1;0;
6;90;0;0;0;2;0;SCAN SEC 3
7;C;0;0;0;0;45;
8;90;0;0;0;3;0;SCAN WORD IN SEC 3
9;C;0;0;0;0;20;
10;34;148;0;0;0;0;BIT 1
11;;6;100-;0;1;0;
12;70;124;28;0;0;0;g PROCR DELETED
13;10;0;0;0;0;0;
14;36;3;0;0;2;0;
15;70;124;28;0;0;0;g B/FWD PROCR WAS SHORT
16;100;17;0;1;0;0;COPY B
17;;6;100-;0;1;0;C/FWD EQUIVALENT
18;19;0;0;0;0;14;20
19;5;148;40;0;0;0;
20;32;0;0;0;0;9;
21;5;148;41;0;0;0;REMAINDER
22;10;0;0;0;0;1;
23;124;148;41;0;1;0;
24;31;0;0;0;0;0;/////
25;124;148;40;0;1;0;
26;4;94;5-;0;0;0;SET C/FWD LENGTH IND
27;100;17;0;1;1;0;RESTORE B
28;33;0;0;0;0;1;SHIFT COLLATOR
29;94;124;31;0;1;1;
30;76;124;33;0;0;0;g END
31;94;124;11;0;3;1;> THIS BIT NEXT WORD
32;94;124;8;0;2;1;> NEXT WORD (SHOULD NEVER RUN OUT)
33;101;0;1000;1;3;0;DEAL WITH INSERTED PROCEDURES
34;30;0;0;0;0;5;
35;1;3;45;0;0;0;
36;91;0;0;0;1;0;
37;0;6;100-;0;1;0;
38;70;124;52;0;0;0;gNOT USED
39;32;0;0;0;0;4-;
40;70;124;52;0;0;0;gSHORT PROCEDURE
41;10;0;0;0;0;0;
42;32;0;0;0;0;4;
43;19;0;0;0;0;14;
44;5;148;40;1;0;0;
45;91;148;40;0;2;0;
46;32;0;0;0;0;9;
47;5;17;1;0;0;0;
48;10;0;0;0;0;1;
49;124;17;1;0;1;0;
50;31;0;0;0;0;0;/////
51;4;94;5-;0;2;0;
52;94;124;37;0;1;1;
53;76;125;4;0;0;0;
SHEET;27
PROCR;125;END OF PASS 0
0;85;129;0;0;0;0;3 ORDER CONST
1;C;105;36;0;0;0;
2;C;104;1;0;0;0;
3;C;105;33;0;0;0;
4;90;0;0;0;1;0;
5;C;0;0;0;0;450;
6;90;0;0;0;2;0;
7;C;0;0;0;0;900;
8;10;0;0;0;0;0;
9;35;0;0;0;0;1111;
10;36;6;1;0;2;0;
11;31;0;0;0;0;10;
12;36;6;0;0;2;0;
13;5;22;0;0;1;0;
14;94;0;0;0;1;1;
15;94;125;10;0;2;2;
16;76;125;25;0;0;0;
17;62;0;0;0;0;0;SET BIN
18;;148;88;0;0;0;IND
19;70;125;23;0;0;0;
20;150;0;0;0;0;11;
21;C;136;59;0;0;0;> END
22;C;107;9;0;0;0;> REENTER
23;10;0;0;0;0;1;
24;4;94;45;0;0;0;
25;80;131;0;0;0;0;g WRITE END
26;62;0;0;0;0;0;
27;;27;10;0;0;0;
28;11;0;0;0;0;18;24
29;80;126;0;0;0;0;g CLOSE B1
30;45;A6;0;0;0;0;
31;55;22;0;0;0;1010;OLD/NEW PROCRS + ADJUSTS + UNIQUE
32;C;18;0;0;0;0;
33;55;94;0;0;0;46;
34;C;18;1010;0;0;0;
35;91;0;0;0;3;0;CLEAR R3
36;91;0;0;0;1;0;& R1
37;80;134;0;0;0;0;g INTERCHANGE A1. D1 ASL'S
38;;148;42;1;0;0;
39;70;101;0;0;0;0;g INITIAL TRANSLATION
40;48;A1;0;0;0;1;BACK 1  I/P > I/P
41;C;0;0;0;0;1;
42;42;A1;0;0;0;0;
43;C;7;0;0;0;0;
44;76;101;0;0;0;0;g CANN PASS 1
SHEET;28
PROCR;126;OR B1
0;81;126;0;0;0;0;
1;30;0;0;0;0;5;
2;1;999;8;0;0;0;
3;125;0;4096;1;1;0;
4;124;999;0;0;3;0;
5;123;0;160;0;2;0;
6;82;126;0;0;0;0;
7;41;A1;0;0;0;0;DUMMY FOR ENTRY TO MR
8;126;126;3;0;3;0;
SHEET;29
PROCR;127;READ, TEST NEXT P/T BLOCK
0;81;127;0;0;0;0;3 ORDER CONST
1;80;141;0;0;0;0;g READ PT
2;70;124;0;0;0;0;g END
3;;5;0;1;0;0;
4;2;148;70;1;0;0; 'TRAMD'
5;70;113;5;0;0;0;g YES
6;80;132;0;0;0;0;g UNPACK
7;80;129;0;0;0;0;g TEST DIRECTIVE
8;82;127;0;0;0;0;
SHEET;30
PROCR;128;COPY INTERCODE BLOCKS
0;81;128;0;0;0;0;
1;55;10;4;1;0;148;
2;C;8;4;1;0;0;
3;43;A2;0;0;0;0;
4;C;8;0;0;0;0;
5;80;137;0;0;0;0;gREAD 
6;82;128;0;0;0;0;
SHEET;31
PROCR;129;TEST DIRECTIVE 
0;81;129;0;0;0;0;
1;60;0;0;0;0;0;
2;34;4;4;1;0;0;
3;10;0;0;0;0;0;
4;32;0;0;0;0;2;
5;12;0;0;0;0;69;
6;70;129;16;0;0;0;
7;11;0;0;0;0;15;
8;70;129;15;0;0;0;
9;12;0;0;0;0;19;
10;70;129;14;0;0;0;
11;11;0;0;0;0;22;
12;71;129;22;0;0;0;gNO DIRECTIVE 
13;10;0;0;0;0;1;
14;11;0;0;0;0;1;
15;11;0;0;0;0;1;
16;11;0;0;0;0;1;
17;5;130;0;0;0;0;
18;86;129;0;0;0;0;
19;5;17;12;0;0;0;STORE PREVIOUS SETTING 
20;84;129;0;0;0;0;
21;C;130;0;0;0;0;(A)ZERO DIRECTIVE FOUND 
22;82;129;0;0;0;0;(A) NON=-ZERO,NO DIRECTIVE FOUND 
SHEET;32
PROCR;130;FIND 'LENGTH' 
0;81;130;0;0;0;0;
1;;4;2;2;0;0;LINE SERIAL OF AMENDMENT 
2;30;0;0;0;0;2-;
3;80;142;0;0;0;0;CONVERT TO BIN 
4;101;0;100;1;2;0;
5;19;0;0;0;0;14;DIVIDE BY 20 
6;5;148;40;0;0;0;
7;32;0;0;0;0;9;
8;5;148;41;0;0;0;
9;34;148;0;0;0;0;
10;124;148;41;0;1;0;
11;33;0;0;0;0;0;///// 
12;124;148;40;0;1;0;
13;36;3;0;0;0;0;
14;70;130;16;0;0;0;gSHORT 
15;10;0;0;0;0;1;
16;60;0;0;0;0;0;
17;82;130;0;0;0;0;(A)=ZERO OR ONE 
SHEET;33
PROCR;131;WRITE->A6 FROM SEC9 
0;81;131;0;0;0;0;
1;80;135;0;0;0;0;REPLACE 'BE' BY 'LE' 
2;10;0;0;0;0;7.0000007.;
3;5;9;52;1;0;0;
4;;17;16;1;0;0;IND'PASS 0 DIDN'T LIKE IT' NON-ZERO 
5;5;9;50;1;0;0;
6;43;A6;0;0;0;0;
7;C;9;0;0;0;0;
8;54;9;4;1;0;50;
9;5;17;16;1;0;0;CLEAR IND 
10;82;131;0;0;0;0;
SHEET;34
PROCR;132;UNPACK POSSIBLE DIRECTIVE BLOCK 
0;81;132;0;0;0;0;
1;10;0;0;0;0;0;
2;5;4;4;1;0;0;WL FOR AMEND DIRECTIVE 
3;5;4;16;1;0;0;
4;87;27;10;0;0;0;
5;C;132;10;0;0;0;gPT 
6;C;132;7;0;0;0;gCARDS 
7;50;5;0;0;0;0;
8;C;150;16;0;0;0;
9;82;132;0;0;0;0;
10;124;150;0;0;2;0;UNPACK PT 
11;124;999;15;1;2;0;
12;128;0;0;0;3;0;
13;82;132;0;0;0;0;
SHEET;35
PROCR;133;O/P WHEN MOD NOT ACCEPTED 
0;81;133;0;0;0;0;
1;80;131;0;0;0;0;gO/P TO A6 
2;80;127;0;0;0;0;gREAD/TEST PT 
3;71;133;1;0;0;0;gNOT YET 
4;82;133;0;0;0;0;NEXT DIRECTIVE FOUND-> 
SHEET;36
PROCR;134;INTERCHANGE A1,D1 ASL'S SR 
0;81;134;0;0;0;0;
1;125;0;4096;1;1;0;
2;123;134;4;0;2;0;
3;82;134;0;0;0;0;
4;100;0;0;0;0;0;
5;124;999;9;0;3;0;
6;100;0;64;0;2;0;
7;124;999;7;0;3;0;
8;106;0;64;0;0;0;
9;124;999;9;0;3;0;D1->A1 
10;102;0;64;0;0;0;
11;32;0;0;0;0;10;
12;124;999;7;0;3;0;A1->D1 
13;102;0;64;0;0;0;
14;126;134;4;0;3;0;
SHEET;37
PROCR;135;REPLACE BE CHAR BY LE CHAR IN SEC 5 
0;81;135;0;0;0;0;
1;87;27;10;0;0;0;
2;C;135;49;0;0;0;gPT 
3;C;135;4;0;0;0;gCARDS 
4;10;0;0;0;0;0;
5;5;132;0;0;0;0;
6;90;0;0;0;1;0;
7;C;0;0;0;0;32;
8;90;0;0;0;2;8;
9;C;0;0;0;0;2-;
10;34;5;0;1;1;0;
11;10;0;0;0;0;0;
12;32;0;0;0;0;2;
13;12;0;0;0;0;7.;
14;70;135;20;0;0;0;gBE FOUND 
15;94;135;11;0;2;2-;gNEXT CHAR 
16;;5;0;1;1;0;
17;5;9;4;1;1;0;
18;94;135;8;0;1;2;gNEXT WORD 
19;82;135;0;0;0;0;
20;100;17;22;1;0;0;COPY B 
21;62;0;0;0;0;0;
22;96;0;0;0;1;0;
23;16;0;0;0;0;5;
24;5;148;40;1;0;0; =10 TIMES WORD NUMBER+CLEAR WL 
25;96;0;0;0;2;0;
26;3;136;0;0;0;0;
27;35;0;0;0;0;1;
28;37;148;41;0;0;0;
29;10;0;0;0;0;t;
30;2;148;41;0;0;0; =SUBTRACT R2 MODIFIER 
31;4;148;40;0;0;0;AUG COL POSN 
32;60;0;0;0;0;0;
33;35;0;0;0;0;11;
34;10;0;0;0;0;5.;
35;124;136;0;0;1;0;
36;32;0;0;0;0;0;///// 
37;37;5;0;1;1;0;REPLACE BE BY LE 
38;62;0;0;0;0;0;
39;;132;0;0;0;0;CT OF BE'S X 2 
40;12;0;0;0;0;t;
41;70;135;47;0;0;0;g5 ALREADY STORED 
42;92;132;0;0;4;0;
43;;148;40;0;0;0;
44;5;9;36;2;4;0;2XBE POSN CTR 
45;10;0;0;0;0;2;
46;4;132;0;0;0;0;STEP CTR 
47;100;17;22;1;1;0;
48;76;135;15;0;0;0;g NEXT CHAR 
49;90;0;0;0;1;0;
50;C;0;0;0;0;56;
51;90;0;0;0;2;8;
52;C;0;0;0;0;2-;
53;34;5;0;1;1;0;
54;10;0;0;0;0;0;
55;32;0;0;0;0;2;
56;12;0;0;0;0;7.;
57;70;135;65;0;0;0;g BE FOUND 
58;94;135;54;0;2;2-;g GET NEXT CHAR 
59;;5;0;1;1;0;COPY TO O/P SECTION 
60;5;9;4;1;1;0;
61;94;135;51;0;1;2;gGET NEXT WORD 
62;10;0;0;0;0;7.;;MISREAD 
63;5;9;46;1;0;0;
64;76;121;42;0;0;0;
65;96;0;0;0;2;0;
66;5;136;0;0;0;0;
67;35;0;0;0;0;11;
68;10;0;0;0;0;5.;
69;124;136;0;0;1;0;
70;32;0;0;0;0;0;///// 
71;37;5;0;1;1;0;REPLACE BE BY LE 
72;;5;0;1;1;0;COPY LAST WORD 
73;5;9;4;1;1;0;
74;100;17;22;1;0;0;
75;62;0;0;0;0;0;
76;96;0;0;0;1;0;
77;11;0;0;0;0;4;
78;30;0;0;0;0;3;>Q4,5
79;5;9;48;2;0;0;
80;35;0;0;0;0;11;COLUMN POSITION
81;36;136;0;0;0;0;
82;37;9;48;2;0;0;
83;100;17;26;0;3;0;
84;82;135;0;0;0;0;
SHEET;38
PROCR;136;GET TO START OF AMENDED PROGRAM
0;81;136;0;0;0;0;
1;80;137;0;0;0;0;READ MT
2;62;0;0;0;0;0;
3;0;10;4;1;0;0;
4;2;148;62;1;0;0;FINIS'
5;70;136;49;0;0;0;gALARM*02
6;0;10;8;2;0;0;
7;12;0;0;0;0;£££££;
8;71;136;1;0;0;0;
9;0;10;10;1;0;0;
10;2;148;52;1;0;0;PASS I'
11;70;136;41;0;0;0;
12;0;10;6;1;0;0;
13;2;148;60;1;0;0;INDEX';USE'INDEX'DATA TO 
14;71;136;1;0;0;0;gNO;SEE IF PROGM ON TAPE
15;80;137;0;0;0;0;gREAD
16;90;0;0;0;1;0;
17;C;0;0;0;0;48;
18;0;10;4;2;1;0;PROG ID
19;2;148;18;0;0;0;£££££
20;71;136;24;0;0;0;gNOT END SIGN
21;;148;90;0;0;0;
22;70;136;1;0;0;0;gINTERCODE FOUND.REATO 'PASS I'
23;76;136;49;0;0;0;gALARM02
24;1;148;18;0;0;0;
25;2;4;2;0;0;0;PROG ID
26;71;136;39;0;0;0;gNOT 
27;0;10;6;2;1;0;
28;2;4;4;0;0;0;SERIAL
29;71;136;39;0;0;0;gNOT
30;;10;8;1;1;0;PASS IND
31;12;0;0;0;0;20;
32;70;136;39;0;0;0;gCLEO;SKIP
33;;10;8;2;1;0;
34;70;136;38;0;0;0;gINTERCODE
35;;10;10;2;1;0;IDENTIFIER
36;84;786;0;0;0;0;
37;76;136;39;0;0;0;
38;5;148;90;0;0;0;SET'PROGRAM TAPE'
39;94;136;18;0;1;8;
40;76;136;15;0;0;0;gNEXT BLOCK
41;60;0;0;0;0;0;SET DEC
42;0;10;4;2;0;0;
43;2;4;2;0;0;0;PROG IDENTITY
44;71;136;1;0;0;0;gNO
45;0;10;6;2;0;0;
46;2;4;4;0;0;0;
47;71;136;1;0;0;0;gNO
48;82;136;0;0;0;0;MATCH FOUND
49;41;A1;0;0;0;1;
50;10;0;0;0;0;1;
51;5;148;90;0;0;0;
52;84;786;0;0;0;0;CLEAR
53;150;0;0;0;0;2;
54;C;136;59;0;0;0;gUNLOAD
55;C;136;57;0;0;0;gTRY NEW INPUT TAPE
56;C;107;9;0;0;0;gREENTER
57;80;138;0;0;0;0;gOPEN A1
58;76;136;1;0;0;0;gTRY AGAIN
59;151;0;0;0;0;0;
SHEET;39
PROCR;137;READ A1+SEC7
0;81;137;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;10;0;0;0;0;
3;82;137;0;0;0;0;
SHEET;40
PROCR;138;OPEN A1
0;81;138;0;0;0;0;
1;40;A1;0;0;0;1;
2;82;138;0;0;0;0;
SHEET;41
PROCR;139;GET NEXT ITEM
0;81;139;0;0;0;0;
1;94;139;5;0;2;2;
2;80;137;0;0;0;0;gREAD MT
3;90;0;0;0;2;0;
4;C;0;0;0;0;46;
5;82;139;0;0;0;0;
SHEET;42
PROCR;140;STORE ADJUST DETAILS SR
0;81;140;0;0;0;0;
1;;17;3;0;0;0;
2;101;0;460;1;2;0;
3;72;140;26;0;0;0;gTOO MANY STORED
4;10;0;0;0;0;0;
5;35;0;0;0;0;11;
6;36;17;14;0;0;0;
7;5;136;0;0;0;0;ITEM
8;;17;14;0;0;0;
9;30;0;0;0;0;2-;
10;80;142;0;0;0;0;
11;5;141;0;0;0;0;BIN REF
12;124;141;0;0;1;0;
13;;6;100-;0;0;0;UPDATED REF
14;80;143;0;0;0;0;gTO DEC
15;30;0;0;0;0;2;
16;1;136;0;0;0;0;
17;124;17;3;0;1;0;
18;5;19;0;0;0;0;LOCN OF ADJUSTMENT 
19;0;17;15;0;0;0;
20;124;17;3;0;1;0;
21;5;19;1;0;0;0;QUANTITY 
22;62;0;0;0;0;0;
23;10;0;0;0;0;2;
24;4;17;3;0;0;0;STEP CTR 
25;60;0;0;0;0;0;
26;82;140;0;0;0;0;
SHEET;43
PROCR;141;SR TO READ PT AND TEST END 
0;81;141;0;0;0;0;
1;100;17;22;1;0;0;
2;62;0;0;0;0;0;
3;34;999;14;0;0;0;
4;;27;10;0;0;0;
5;11;0;0;0;0;4;
6;80;126;0;0;0;0;gREAD B1 
7;100;17;22;1;1;0;
8;;5;0;1;0;0;
9;12;0;0;0;0;7258555573;SHEET' 
10;71;141;13;0;0;0;
11;80;131;0;0;0;0;
12;76;141;1;0;0;0;gREAD NEXT BLOCK 
13;0;5;0;1;0;0;
14;30;0;0;0;0;4-;
15;30;0;0;0;0;4;
16;2;148;58;1;0;0;END  ' 
17;82;141;0;0;0;0;(A)=0 IF END 
SHEET;44
PROCR;142;CONVERT TO BIN 
0;81;142;0;0;0;0;
1;5;148;40;1;0;0;
2;62;0;0;0;0;0;
3;124;148;20;0;2;0;
4;112;148;40;1;0;0;
5;82;142;0;0;0;0;
SHEET;45
PROCR;143;
0;81;143;0;0;0;0;CONVERT TO DEC 
1;5;148;40;1;0;0;
2;60;0;0;0;0;0;
3;124;148;0;0;2;0;
4;112;148;40;1;0;0;
5;82;143;0;0;0;0;
SHEET;46
PROCR;144;DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK 
0;80;145;0;0;0;0;UNPACK AND CHECK PROG ID 
1;40;A6;0;0;0;0;
2;0;10;12;2;0;0;
3;5;27;0;0;0;0;SET 'EX ISSUE 7' IND 
4;10;0;0;0;0;0;
5;34;10;12;1;0;0;
6;32;0;0;0;0;2;
7;12;0;0;0;0;47;
8;73;109;59;0;0;0;gMADE BEFORE ISSUE 7, ALARM 7 
9;;10;16;2;0;0;MULTIRECORD IND 
10;5;27;1;0;0;0;
11;0;148;70;1;0;0;'TRAMD' 
12;5;148;50;1;0;0;OVER 'AMEND' 
13;55;149;10;1;0;4;ADD'->PTS'TO COMMENT 
14;C;149;8;1;0;0;
15;52;18;0;0;0;0;
16;C;149;0;0;0;0;
17;154;18;0;0;0;0;TYPE 'TRAMD' COMMENT 
18;80;131;0;0;0;0;
19;80;141;0;0;0;0;READ PT 
20;71;144;18;0;0;0;gNOT END 
21;80;131;0;0;0;0;WRITE END BLOCK ***REWIND A6 
22;45;A6;0;0;0;0;REWIND A6 
23;62;0;0;0;0;0;
24;;27;10;0;0;0;
25;11;0;0;0;0;18;
26;80;126;0;0;0;0;CLOSE B1 
27;54;8;4;1;0;46;
28;40;A2;0;0;0;0;;OPEN OUTPUT 
29;32;0;0;0;0;10;SPOOL NO->A 
30;84;153;0;0;0;0;
31;80;146;0;0;0;0;WRITE TWO BLANK BLOCKS 
32;80;146;0;0;0;0;
33;55;148;72;1;0;10;
34;C;8;4;1;0;0;
35;80;146;0;0;0;0;WRITE 'INDEX' BLOCK 
36;;17;28;0;0;0;PROG IDENTITY 
37;3;94;0;0;0;0;
38;3;8;4;2;0;0;
39;3;8;12;2;0;0;
40;60;0;0;0;0;0;
41;10;0;0;0;0;1;
42;35;0;0;0;0;11;
43;36;17;29;0;0;0;
44;37;17;29;0;0;0;UPDATED PROG SERIAL 
45;62;0;0;0;0;0;
46;;17;29;0;0;0;
47;3;8;6;2;0;0;
48;5;8;14;2;0;0;
49;10;0;0;0;0;2;
50;5;8;10;2;0;0;
51;10;0;0;0;0;3;
52;5;8;18;2;0;0;
53;10;0;0;0;0;4;
54;5;8;16;2;0;0;
55;;148;76;1;0;0;£££££ 
56;5;8;20;1;0;0;
57;80;146;0;0;0;0;
58;;17;28;0;0;0;PROG IDENTITY 
59;5;8;4;2;0;0;
60;;17;29;0;0;0;
61;5;8;6;2;0;0;
62;;148;76;1;0;0;
63;5;8;8;1;0;0;
64;;148;52;1;0;0; 'PASS!' 
65;5;8;10;1;0;0;
66;155;0;0;0;0;0;TRANSLATOR SERIAL 
67;5;8;12;1;0;0;
68;5;8;14;1;0;0;
69;;27;1;0;0;0;
70;5;8;16;2;0;0;MULTI RECORD IND 
71;80;146;0;0;0;0;WRITE 'PASS 1' BLOCK 
72;80;137;0;0;0;0;gREADA1 
73;80;128;0;0;0;0;gWRITE +READ;PROCR LENGTH INDEX 
74;80;128;0;0;0;0;
75;;17;29;0;0;0;
76;3;94;1;0;0;0;
77;5;10;12;2;0;0;UPDATE SERIAL IN'PROGM'BLOCK 
78;80;128;0;0;0;0;gCOPY 
79;;27;1;0;0;0;
80;70;144;83;0;0;0;gSINGLE-RECORD BLOCKS 
81;0;10;12;1;0;0;
82;76;144;84;0;0;0;;OF INTERCODE 
83;0;10;10;1;0;0;
84;2;148;44;1;0;0; 'PROCR' 
85;70;147;0;0;0;0;
86;1;148;44;1;0;0;
87;2;148;48;1;0;0; 'CONST' 
88;70;147;0;0;0;0;
89;1;148;48;1;0;0;
90;2;148;46;1;0;0; 'TABLE' 
91;71;144;78;0;0;0;
92;76;147;0;0;0;0;
SHEET;47
PROCR;145;UNPACK AMEND HEADING, GET TO PROGM START 
0;81;145;0;0;0;0;
1;87;27;10;0;0;0;
2;C;145;7;0;0;0;gPT 
3;C;145;4;0;0;0;gCARDS 
4;50;5;0;0;0;0;
5;C;150;8;0;0;0;
6;76;145;10;0;0;0;
7;124;150;8;0;2;0;UNPACK PT 
8;124;999;15;1;2;0;
9;128;0;0;0;3;0;
10;;4;2;0;0;0;SUITE 
11;30;0;0;0;0;2;
12;1;4;3;0;0;0;
13;3;4;2;0;0;0;
14;5;17;28;0;0;0;PROG ID 
15;;4;4;0;0;0;PROG 
16;5;17;29;0;0;0;
17;80;138;0;0;0;0;gOPEN A1 
18;80;136;0;0;0;0;gCHECK PROG ID, GET TO 'PASSI' BLOCK 
19;82;145;0;0;0;0;
SHEET;48
PROCR;146;O/P->A2 
0;81;146;0;0;0;0;
1;10;0;0;0;0;7.0000007.;
2;5;8;50;1;0;0;
3;43;A2;0;0;0;0;
4;C;8;0;0;0;0;
5;54;8;4;1;0;46;
6;82;146;0;0;0;0;
SHEET;49
PROCR;147;'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX 
0;;27;1;0;0;0;
1;70;147;14;0;0;0;
2;0;10;4;2;0;0;
3;30;0;0;0;0;5;
4;91;0;0;0;1;0;
5;0;10;12;1;1;0;
6;2;148;58;1;0;0; 'END' 
7;70;147;17;0;0;0;gYES 
8;0;10;6;2;1;0;RECORD LENGTH 
9;5;146;0;0;0;0;
10;97;146;0;0;1;0;
11;C;147;5;0;0;0;
12;80;128;0;0;0;0;gWRITE/READ 
13;76;147;0;0;0;0;
14;0;10;10;1;0;0;
15;2;148;58;1;0;0; 'END' 
16;71;147;12;0;0;0;gNOT YET 
17;80;128;0;0;0;0;gWRITE/READ/(END SIGNGET TO 'INDEX' 
18;0;10;6;1;0;0;
19;2;148;74;1;0;0; 'INDEX' 
20;71;147;17;0;0;0;gNOT YET 
21;;10;10;2;0;0;
22;12;0;0;0;0;3;
23;70;147;31;0;0;0;
24;86;786;0;0;0;0;PASS 3 ID 
25;5;142;0;0;0;0;
26;46;A1;10;0;0;1;
27;C;142;0;0;0;0;
28;80;137;0;0;0;0;
29;10;0;0;0;0;3;
30;5;10;10;2;0;0;
31;80;128;0;0;0;0;gWRITE/READ 
32;90;0;0;0;1;0;;DRAIN INDEX DETAILS 
33;C;0;0;0;0;48;
34;0;10;4;2;1;0;PROG IDENTITY 
35;2;148;18;0;0;0;£££££ 
36;70;147;40;0;0;0;gEND 
37;94;147;34;0;1;8;
38;80;137;0;0;0;0;gREAD 
39;76;147;32;0;0;0;
40;10;0;0;0;0;1.006;1/1/3 6(R1 NON-ZERO) 
41;3;92;30;0;0;0;SET'AMEND RUN' 
42;3;27;13;0;0;0;SET NONZERO 
43;3;27;11;0;0;0;
44;5;101;2;0;0;0;CHANGE OLAY ORDER 
45;10;0;0;0;0;2;
46;5;27;12;0;0;0;SET'PTS NEEDED' 
47;80;134;0;0;0;0;RESTORE ASLS 
48;;27;9;0;0;0;OFF LINE PRINT? 
49;70;147;57;0;0;0;gPRINTER 
50;90;0;0;0;6;0;
51;C;0;0;0;0;300;
52;86;787;0;0;0;0;A9 OR NOT 
53;71;147;66;0;0;0;g'PRINT'BLOCK 
54;10;0;0;0;0;1200000;;OPEN MT 
55;34;148;96;1;0;0;OFF LINE PRINT? 
56;76;147;60;0;0;0;
57;;27;8;0;0;0;;OPEN PRINTER 
58;11;0;0;0;0;t;
59;30;0;0;0;0;5;
60;1;999;7;0;0;0;
61;125;0;4096;1;1;0;
62;124;999;0;0;3;0;
63;123;0;160;0;2;0;
64;;27;9;0;0;0;
65;70;125;38;0;0;0;gENTER PASS  4
66;10;0;0;0;0;6769596573;PRINT'
67;5;10;4;1;0;0;
68;10;0;0;0;0;8000;
69;5;10;6;2;0;0;
70;155;0;0;0;0;0;
71;5;10;8;1;0;0;TRANSLATOR SERIAL
72;;17;28;0;0;0;PROG ID
73;5;10;10;2;0;0;
74;10;0;0;0;0;7.0000007.;
75;5;10;12;1;0;0;
76;10;0;0;0;0;800000;;WRITE A9 HDG BLOCK
77;34;999;12;0;0;0;
78;125;0;4096;1;1;0;
79;1;999;7;0;0;0;
80;124;999;0;0;3;0;
81;123;0;160;0;2;0;
82;76;125;38;0;0;0;gENTER PASS  4
SHEET;50
CONST;148;1;CONVERT TABLES
0;(D)1;BIN>DEC
2;16;
4;256;
6;4096;
8;65536;
10;1048576;
12;16777216;
14;268435456;
16;4294967296;
18;££££££££££;
20;1;DEC>BIN
22;t;
24;64;
26;3.8;
28;2710;
30;186t0;
32;£4240;
34;989680;
36;5£5.100;
38;3e9t+t00;
40;0;WL(A)
42;(A)PROGM;
44;(A)PROCR;
46;(A)TABLE;
48;(A)CONST;
50;AMEND;
52;(A)PASSI;
54;(A)DUMPS;
56;(A)FILES;
58;(A)END  ;
60;(A)INDEX;
62;FINIS;
64;(D)0000005.5.;DOUBLE LINE END
66;(D)3££;BITS 1-10
68;0524108000;
70;(A)TRAMD;
72;(D)6£6£6£6£6£;
74;(A)INDEX;
76;£££££;
78;2;
80;CHAIN;
82;FIEND;
84;08000;
86;ALLOC;
88;ATED;
90;EXTRA;
92;ROUTE;
94;(D)£8;
96;(D)0514908000;BITS 4-8
SHEET;51
TABLE;149;1;TYPE'AMEND'COMMENT
0;148;84;0;0;2;0;5;0;0;0;0;0;0;08000'
2;148;50;0;0;2;0;5;0;2;0;0;0;0;AMEND'
4;4;2;0;0;0;0;5;0;2;0;0;0;0;PROG NO
6;4;4;0;0;0;0;5;0;1;4;0;0;0;SERIAL NO
8;148;64;0;0;2;0;2;3;3;0;0;0;1;DOUBLE LINE END
10;151;0;0;0;2;0;5;0;5;0;0;0;0;<PTS
12;148;64;0;0;2;0;2;3;3;0;0;0;1;DOUBLE LINE END
14;148;84;0;0;2;0;5;0;0;0;0;0;0;08000'
16;148;86;0;0;2;0;5;0;1;0;0;0;0;ALLOC'
18;148;88;0;0;2;0;5;0;0;0;0;0;0;ATED'
20;148;90;0;0;2;0;5;0;0;0;0;0;0;EXTRA'
22;148;92;0;0;2;0;5;0;1;0;0;0;0;ROUTE'
24;148;40;0;0;0;0;2;3;2;1;0;0;0;CHANNEL
26;129;0;0;0;0;0;1;4;0;0;0;0;0;ROUTE
28;148;64;0;0;2;0;2;3;1;0;0;0;1;DOUBLE LE
SHEET;52
TABLE;150;3;UNPACK PT OR CARD INPUT
0;4;2;0;0;2;0;5;0;0;0;0;0;0;SER+AMEND DIRECTIVE
2;4;6;0;0;2;0;5;0;0;0;0;0;0;DIRECTIVE WORD
4;4;8;0;0;1;0;3;0;0;0;0;0;0;PROCR NUMBER
6;4;16;0;0;0;0;1;0;0;0;0;0;1;/////TYPE OR(ANNOTATION+TYPE)
8;4;6;0;0;2;0;5;0;0;0;0;0;0;(AMEND)
10;4;2;0;0;0;0;3;0;0;0;0;0;0;SUITE
12;4;3;0;0;0;0;2;0;0;0;0;0;0;JOB
14;4;4;0;0;0;0;5;0;0;0;0;0;1;SERIAL
16;4;2;0;0;2;0;5;0;0;0;0;0;0;SERIAL
18;4;4;0;0;2;0;5;0;0;0;0;0;0;DIRECTIVE LETER
20;4;6;0;0;2;0;5;0;0;0;0;0;0;DIRECTIVE WORD
22;4;8;0;0;1;0;3;0;0;0;0;0;0;PROCR NUMBER
24;4;16;0;0;0;0;1;0;0;0;0;0;1;TYPE
SHEET;53
CONST;151;1;
0;(A)+ PTS;
2;;
4;;
6;;
8;;
10;;
12;;
14;;
16;;
18;;
20;;
22;;
24;;
26;;
28;;
30;;
32;;
34;;
36;;
38;;
40;;
42;;
44;;
46;;
48;;
50;;
52;;
54;;
56;;
58;;
60;;
62;;
64;;
66;;
68;;
70;;
72;;
74;;
76;;
78;;
80;;
82;;
84;;
86;;
88;;
90;;
92;;
94;;
96;;
SHEET;54
PROCR;152;START OF PASS 1
NOTES;;;
0;152;152;2;0;0;0;CALL/ENTER PASS 2
1;C;327;4;0;0;0;(OVERLAY THE OLAY ORDER)
2;62;0;0;0;0;0;
3;54;25;0;1;0;42;CLEAR TRACE SECN
4;;27;10;0;0;0;
5;12;0;0;0;0;1;
6;70;152;10;0;0;0;gB1 IS PT
7;;326;6;0;0;0;28/0/2
8;5;326;2;0;0;0;SET 'UNPACK FIXED'
9;76;152;15;0;0;0;
10;101;0;512;0;1;0;Q10
11;33;0;0;0;0;3;
12;10;0;0;0;0;0;
13;37;312;6;1;0;0;CLEAR BIT 40
14;37;312;12;1;0;0;DO.
15;;326;4;0;0;0;
16;3;23;46;0;0;0;SET 'PRINT PASS 2'
17;5;326;1;0;0;0;
18;54;1;0;1;0;46;
19;83;100;0;0;0;1;SET 'PRINT PASS 3'
20;5;27;6;0;0;0;CLEAR 'PT OMITTED'
21;84;511;0;0;0;0;
22;84;514;0;0;0;0;
23;5;27;4;0;0;0;
24;83;252;0;0;0;5;AMEND DIRECTIVE SWITCH
25;95;0;0;0;1;0;
26;70;157;0;0;0;0;gCOMPILER DIDN'T CALL TRAMSLATOR
27;3;1;0;1;0;0;
28;54;27;0;1;0;20;
29;96;0;0;0;3;0;MOD ONLY         A9 IND
30;3;27;9;0;0;0;SET IND
31;10;0;0;0;0;70000;
32;3;27;0;0;0;0;SET 'MULTI RECORD'
33;3;27;4;0;0;0;SET'COMPILER'
34;5;27;1;0;0;0;SET 'ISSUE 7 O/P'
35;54;72;0;1;0;888;
36;34;1;1;0;0;0;
37;36;320;20;0;0;0;1
38;70;152;40;0;0;0;
39;83;100;0;0;0;2;SET 'DONT PRINT'
40;36;318;0;0;0;0;BIT 2
41;12;0;0;0;0;2;
42;5;23;46;0;0;0;INHIBIT PRINT
43;36;318;8;0;0;0;BIT 3='PTS NEEDED'
44;12;0;0;0;0;4;
45;70;152;48;0;0;0;gNO
46;10;0;0;0;0;2;
47;5;27;12;0;0;0;
48;36;318;5;0;0;0;BIT 4='CLEO TRAMD'IF NON-ZERO
49;5;27;2;0;0;0;SET'PSEUDO-ISSUE 5'
50;101;0;450;1;3;0;
51;30;0;0;0;0;5;
52;1;1;0;0;0;0;DATA START
53;124;999;1;0;3;0;
54;128;18;0;1;1;0;
55;5;153;0;0;0;0;
56;90;0;0;0;3;0;CALC COMPILER'S HIGHEST PROCR
57;C;0;0;0;0;450;
58;34;18;0;0;3;0;
59;32;0;0;0;0;7;
60;33;0;0;0;0;2;
61;2;153;0;0;0;0;
62;73;152;64;0;0;0;
63;4;153;0;0;0;0;UPDATE
64;10;0;0;0;0;0;
65;33;0;0;0;0;10;
66;2;153;0;0;0;0;
67;73;152;69;0;0;0;
68;4;153;0;0;0;0;UPDATE
69;10;0;0;0;0;0;
70;94;152;58;0;3;1;
71;;153;0;0;0;0;
72;11;0;0;0;0;1;
73;5;18;1055;0;0;0;(HIGHEST C/FWD PROCR+1)IN BINARY
74;54;18;450;1;0;596;
75;95;0;0;0;2;0;
76;5;1;0;1;0;0;PROG ID+SERIAL
77;125;0;4096;1;1;0;
78;123;153;0;0;2;0;>SET ASL'S+GUARD WORDS
79;76;156;0;0;0;0;
SHEET;55
PROCR;153;SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3
0;81;153;0;0;0;0;LINK
1;10;0;0;0;0;£;
2;124;317;90;0;3;0;
3;123;0;56;1;0;0;SEC 5
4;124;317;90;0;3;0;
5;123;0;210;1;0;0;SEC 7
6;124;317;90;0;3;0;
7;123;0;364;1;0;0;SEC 8
8;124;317;90;0;3;0;
9;123;0;518;1;0;0;SEC 9
10;124;317;90;0;3;0;
11;123;0;576;1;0;0;B1
12;124;317;90;0;3;0;
13;123;0;730;1;0;0;A1
14;124;317;90;0;3;0;
15;123;0;884;1;0;0;A2
16;124;317;90;0;3;0;
17;123;0;1038;1;0;0;A6
SHEET;56
PROCR;154;SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3
0;123;317;0;0;3;0;PROG TAG
1;30;0;0;0;0;4;
2;4;317;90;0;0;0;
3;;317;90;0;0;0;ABS START
4;124;999;14;1;2;0;SEC 5
5;103;0;64;0;0;0;
6;101;0;58;1;1;0;
7;124;999;16;1;2;0;SEC 7
8;103;0;64;0;0;0;
9;101;0;154;1;1;0;
10;124;999;18;1;2;0;SEC 8
11;103;0;64;0;0;0;
12;101;0;154;1;1;0;
13;124;999;20;1;2;0;SEC 9
14;103;0;64;0;0;0;
15;101;0;154;1;1;0;
16;124;999;8;0;3;0;B1
17;103;0;64;0;0;0;
18;101;0;58;1;1;0;
19;124;999;9;0;3;0;A1
20;103;0;64;0;0;0;
21;101;0;154;1;1;0;
22;124;999;10;0;3;0;A2
23;103;0;64;0;0;0;
24;101;0;154;1;1;0;
25;124;999;11;0;3;0;A6
26;102;0;64;0;0;0;
SHEET;57
PROCR;155;SET UP ASL'S FOR FILES
0;124;999;5;0;3;0;
1;106;0;34;0;0;0;PRINTER ROUTE ENTRY SPECIAL CHAPTER
2;30;0;0;0;0;4-;
3;5;27;8;0;0;0;
4;35;0;0;0;0;1111;Q1-4
5;;999;5;0;0;0;15-BIT START SPECIAL CHAP
6;101;0;204;1;1;0;
7;124;999;12;1;2;0;SEC 10
8;114;0;64;0;0;0;
9;;999;5;0;0;0;
10;101;0;598;1;1;0;394+204 
11;124;999;7;1;2;0;
12;114;0;64;0;0;0;
13;10;0;0;0;0;£;
14;124;999;5;0;3;0;SPECIAL CHAP 15-BIT START 
15;123;0;596;1;0;0;
16;124;999;5;0;3;0;
17;123;0;990;1;0;0;204+392+394=D1 
18;126;153;0;0;3;0;gEXIT 
SHEET;58
PROCR;156;TIDY UP FOR COMPILER 
0;54;12;0;1;0;120;
1;0;1;0;1;0;0;
2;5;12;0;1;0;0;
3;40;A1;0;0;0;1;
4;80;291;0;0;0;0;gREAD 
5;0;7;10;1;0;0;
6;2;181;18;1;0;0; 'PASS1' 
7;71;156;4;0;0;0;gNOT YET 
8;10;0;0;0;0;1;
9;3;92;30;0;0;0;
10;5;12;8;0;0;0;
11;;319;12;1;0;0; 'END  ' 
12;5;9;4;1;0;0;SET END SIGN 
13;76;158;1;0;0;0;gENTER PASS 1 (SIC) 
SHEET;59
PROCR;157;TEST INITIAL RUN 
NOTES;RADIX;;
0;40;A6;0;0;0;1;
1;54;12;0;1;0;120;
2;10;0;0;0;0;6700;
3;5;12;3;0;0;0;ERROR LETTER'P' 
4;80;292;0;0;0;0;gREAD FIRST BLOCK 
5;124;179;0;0;2;0;
6;80;326;0;0;0;0;gUNPACK BLOCK 
7;60;0;0;0;0;0;
8;;1;2;1;0;0;TESTTHIS IS AN 
9;2;181;14;1;0;0; 'AMEND' 
10;70;157;18;0;0;0;
11;80;297;0;0;0;0;gANNOTATION IF CARD 
12;80;176;0;0;0;0;gCHECK PROGM BLOC 
13;10;0;0;0;0;2;
14;3;12;33;0;0;0;SET'PT INPUT' 
15;5;27;12;0;0;0;SET'PTS NEEDED' 
16;5;1;8;1;0;0;ENSURE FIRST SERIAL=0,INITIAL TRANSLATIO 
17;76;160;0;0;0;0;
18;5;1;16;1;0;0;CLEAR FOR INDS 
19;5;1;18;1;0;0;
20;124;179;36;0;2;0;
21;80;326;0;0;0;0;gUNPACK 'AMEND' BLOCK AGAIN 
22;10;0;0;0;0;0;
23;34;1;16;0;0;0;PRINT INDS 
24;36;318;0;0;0;0;BIT 2 
25;5;23;46;0;0;0;
26;87;27;10;0;0;0;
27;C;157;32;0;0;0;gPT 
28;C;157;29;0;0;0;gCARDS 
29;;1;18;1;0;0;
30;12;0;0;0;0;73;
31;76;157;34;0;0;0;
32;;1;20;1;0;0;
33;12;0;0;0;0;7300000000;
34;71;157;37;0;0;0;
35;10;0;0;0;0;2;
36;76;157;38;0;0;0;
37;10;0;0;0;0;0;
38;5;27;12;0;0;0;0/2=PTS NO/YES
39;;27;0;0;0;0;
40;71;157;44;0;0;0;gISSUE 6 O/P
41;;1;16;0;0;0;
42;12;0;0;0;0;4;
43;5;23;46;0;0;0;PRINT ISSUE5 O/P
44;10;0;0;0;0;2-;
45;36;320;0;0;0;0;BIT 1
46;84;100;0;0;0;0;SET AT 1 OR 2
47;0;1;17;0;0;0;CHANGE TO ISSUE?
48;5;197;0;0;0;0;SR LINK
49;80;297;0;0;0;0;gANNOTATION IF CARD
50;71;157;55;0;0;0;gNOT CARD
51;0;1;8;1;0;0;RE-FORM ISSUE+SERIAL IN 18'
52;30;0;0;0;0;6;
53;1;1;20;1;0;0;CARD SERIAL
54;5;1;8;1;0;0;
55;0;1;4;0;0;0;SUITE
56;30;0;0;0;0;2;
57;1;1;6;0;0;0;
58;5;12;0;0;0;0;
59;34;1;8;1;0;0;
60;80;321;0;0;0;0;RIGHT ALIGN
61;0;12;88;2;0;0;
62;5;12;1;0;0;0;
63;10;0;0;0;0;1;SET'AMEND RUN'
64;3;92;30;0;0;0;
65;5;12;8;0;0;0;
SHEET;60
PROCR;158;
NOTES;RADIX;;
0;80;292;0;0;0;0;gREAD PT
1;54;1;0;0;0;46;
2;80;291;0;0;0;0;gREAD MT
3;0;7;6;1;0;0;
4;2;181;10;1;0;0;PROGM'
5;71;158;2;0;0;0;gGET TO IT
6;;9;4;1;0;0;
7;2;181;10;1;0;0;PROGM'
8;70;159;0;0;0;0;='PROGM' BLOCK IS AMENDED
9;50;7;4;0;0;0;
10;C;175;30;0;0;0;
11;55;7;20;1;0;30;COPY ANNOTATION
12;C;1;16;1;0;0;
13;60;0;0;0;0;0;
14;10;0;0;0;0;1;AUGMENT PROG SERIAL
15;35;0;0;0;0;11;
16;36;1;8;2;0;0;
17;37;1;8;2;0;0;NO CARRY AFTER 99
18;76;160;0;0;0;0;
SHEET;61
PROCR;159;INPUT AMENDMENTS TO PRGRAM
NOTES;RADIX;;
0;124;179;0;0;2;0;
1;80;326;0;0;0;0;gUNPACK NEW 'PROGM' BLOCK
2;80;297;0;0;0;0;gWORDS IF CARDS
3;0;12;1;0;0;0;
4;3;1;8;2;0;0;
5;11;0;0;0;0;1;
6;30;0;0;0;0;2;
7;5;1;0;0;0;0;
8;5;12;8;0;0;0;SET PAPER TAPE INPUT INDICATOR
9;80;176;0;0;0;0;gCHECK 'PROGM' BLOCK
10;76;158;13;0;0;0;gUPDATE SERIAL
SHEET;62
PROCR;160;OPEN O/P FILE;WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK
NOTES;;;
0;54;8;4;0;0;46;
1;;27;4;0;0;0;COMPILER?
2;70;160;7;0;0;0;gNORMAL
3;48;A2;0;0;0;3;BACK 0 I/P+O/P
4;C;999;0;0;0;0;
5;10;0;0;0;0;0;(ZERO SPOOL NUMBER)
6;76;160;9;0;0;0;g
7;40;A2;0;0;0;0;OPEN FILE
8;32;0;0;0;0;10;
9;84;153;0;0;0;0;SPOOL NUMBER+WL
10;80;289;0;0;0;0;
11;80;289;0;0;0;0;g2 BLANKS
12;55;319;28;1;0;10;
13;C;8;4;1;0;0;
14;80;289;0;0;0;0;
15;;1;4;0;0;0;SUITE
16;30;0;0;0;0;2;
17;1;1;6;0;0;0;
18;3;12;32;0;0;0;WL=PROG IDENTITY
19;3;8;4;2;0;0;
20;3;8;12;2;0;0;
21;0;1;8;2;0;0;PROGRAM SERIAL
22;5;12;1;0;0;0;WL
23;0;197;0;0;0;0;NEW ISSUE WL
24;70;160;28;0;0;0;gNO CHANGE
25;30;0;0;0;0;2;
26;35;0;0;0;0;11100;
27;37;12;1;0;0;0;REPLACE EXISTING ISSUE
28;52;1;8;0;0;0;
29;C;175;28;0;0;0;RESTORE TD 1/8 WITH SIG ZEROS
30;0;1;8;1;0;0;
31;3;8;6;1;0;0;
32;5;8;14;1;0;0;
33;10;0;0;0;0;2;INTERCODE IDENTIFIER
34;5;8;10;2;0;0;
35;10;0;0;0;0;3;MACHINE CODE IDENTIFIER
36;3;8;18;2;0;0;
37;10;0;0;0;0;2;
38;1;27;12;0;0;0;0 OR 2
39;5;8;16;2;0;0;
40;;319;28;2;0;0;£££££
41;5;8;20;2;0;0;
42;80;289;0;0;0;0;
43;;12;32;0;0;0;
44;5;8;4;2;0;0;PROG IDENTITY
45;;1;8;1;0;0;
46;5;8;6;1;0;0;PROG SERIAL
47;10;0;0;0;0;£££££;
48;5;8;8;2;0;0;
49;;181;18;1;0;0;PASSI'
50;5;8;10;1;0;0;
51;0;27;4;0;0;0;NON-ZERO IF COMPILER
52;3;8;14;2;0;0;SET 'PSEUDO ISSUE 5'
53;71;160;56;0;0;0;
54;155;0;0;0;0;0;PROG SERIAL
55;3;8;12;1;0;0;ISSUE 6' ND
56;5;8;16;2;0;0;SET 'MULTI RECORD'
57;80;289;0;0;0;0;
58;;18;1055;0;0;0;
59;5;319;21;0;0;0;
60;;27;4;0;0;0;
61;71;160;68;0;0;0;gCOMPILER O/P
62;55;18;1010;0;0;23;FIRST PROCR LENGTH DETAILS BLOCK
63;C;8;4;2;0;0;A6
64;80;289;0;0;0;0;
65;55;18;1033;0;0;23;SECOND PROCR LENGTH DETAILS BLOCK
66;C;8;4;2;0;0;
67;80;289;0;0;0;0;
68;52;8;4;0;0;0;
69;C;175;30;0;0;0;
70;55;1;16;1;0;30;COPY ANNOTATION
71;C;8;20;1;0;0;
72;80;289;0;0;0;0;
73;0;317;87;0;0;0;ABS ADDRESS 18:2496
74;5;92;9;0;0;0;
75;60;0;0;0;0;0;
SHEET;63
PROCR;161;DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS
NOTES;;;
0;;12;8;0;0;0;
1;70;162;0;0;0;0;g FILES REPLACED EX PT
2;80;291;0;0;0;0;g READ 'ENTRY' EX MT
3;10;0;0;0;0;0;
4;5;7;46;1;0;0;CLEAR REPORT WORDS
5;5;7;48;1;0;0;
6;5;12;33;0;0;0;SET 'MT INPUT'
7;;7;8;2;0;0;
8;80;200;0;0;0;0;g REPLACE PROCR
9;C;178;0;0;0;0;
10;71;161;14;0;0;0;g OK
11;;319;38;1;0;0;????R'
12;5;7;48;1;0;0;
13;76;161;15;0;0;0;g USE OLD VALUE
14;5;7;8;2;0;0;
15;80;171;0;0;0;0;g WRITE
16;80;291;0;0;0;0;g READ
17;;7;6;1;0;0;
18;2;181;16;1;0;0;CHAPS
19;70;161;31;0;0;0;g YES
20;0;7;8;2;0;0;ROUTE TYPE
21;80;245;0;0;0;0;g TO BIN
22;33;0;0;0;0;2-;
23;1;7;7;0;0;0;FILE ID
24;33;0;0;0;0;18-;
25;;7;46;1;0;0;
26;80;164;0;0;0;0;gSTORE FILE DETAILS 
27;71;161;30;0;0;0;gLIST NOT FULL 
28;;319;24;1;0;0;SET 'IGNORE' 
29;5;7;46;1;0;0;
30;76;161;15;0;0;0;gWRITE 
31;;9;4;1;0;0;
32;2;181;16;1;0;0; 'CHAPS' 
33;70;165;0;0;0;0;gPT & MT BOTH AT 'CHAPS' 
34;55;7;8;2;0;30;
35;C;12;13;0;0;0;;MT 'CHAPS' UNAMENDED 
36;5;12;33;0;0;0;SET 'MT INPUT' 
37;;12;13;0;0;0;NUMBER OF CHAPS 
38;80;245;0;0;0;0;gTO BIN 
39;5;12;13;0;0;0;
40;91;12;12;0;2;0;
41;;12;14;0;2;0;START 
42;80;200;0;0;0;0;gREPLACE PROCR 
43;C;178;0;0;0;0;
44;71;161;48;0;0;0;gOK 
45;;319;38;1;0;0; '????R' 
46;5;8;48;1;0;0;
47;76;161;49;0;0;0;gUSE OLD VALUE 
48;5;12;14;0;2;0;
49;94;161;41;0;2;1;
50;55;12;14;0;0;14;
51;C;7;10;2;0;0;
52;55;7;4;1;0;34;COPY ANNEXES 
53;C;8;4;1;0;0;
54;76;165;49;0;0;0;gTO TEST 'STORE' 
SHEET;64
PROCR;162;DEAL WITH PT INPUT FOR ENTRY FILES 
NOTES;;;
0;54;1;0;1;0;46;
1;80;292;0;0;0;0;gRAD PT 
2;124;179;0;0;2;0;
3;80;326;0;0;0;0;gUNPACK 
4;80;297;0;0;0;0;gCOPY ANNOTATION FOR CARDS 
5;10;0;0;0;0;5500;
6;5;12;3;0;0;0;LETTER E FOR REPORTS 
7;;1;2;1;0;0;;CHECK 'ENTRY' 
8;2;181;12;1;0;0; 'ENTRY' 
9;70;162;12;0;0;0;gOK 
10;10;0;0;0;0;1;
11;80;177;0;0;0;0;gREPORT *E1 
12;;1;4;0;0;0;ENTRY PROCR 
13;12;0;0;0;0;100;
14;73;162;17;0;0;0;gWRONG 
15;12;0;0;0;0;899;
16;73;162;20;0;0;0;gOK 
17;10;0;0;0;0;2;
18;80;177;0;0;0;0;gREPORT *E2 
19;80;295;0;0;0;0;IGNORE 
20;10;0;0;0;0;1;
21;5;12;33;0;0;0;SET 'PT INPUT' 
22;;1;4;0;0;0;
23;80;200;0;0;0;0;REPLACE PROCR 
24;C;178;0;0;0;0;
25;71;162;29;0;0;0;gOK 
26;;319;38;1;0;0; '????R' 
27;5;1;44;1;0;0;
28;76;162;30;0;0;0;
29;5;1;4;0;0;0;NEW PROCR 
30;;1;6;1;0;0;PRIORITY CLASS 
31;12;0;0;0;0;1;
32;73;162;35;0;0;0;gWRONG 
33;12;0;0;0;0;4;
34;73;162;38;0;0;0;gOK 
35;10;0;0;0;0;3;
36;80;177;0;0;0;0;gREPORT*E3 
37;80;295;0;0;0;0;IGNORE 
38;52;8;4;0;0;0;
39;C;175;30;0;0;0;
40;55;1;16;1;0;30;ANNOTATION 
41;C;8;20;1;0;0;
42;80;289;0;0;0;0;gWRITE 
43;80;292;0;0;0;0;gREAD PT;TESTS FOR END OF 
44;;92;30;0;0;0;;PT FILE DETAILS 
45;70;162;56;0;0;0;gINITIAL TRANSLATION 
46;80;294;0;0;0;0;gTEST PT AT AMEND DIRECTIVE 
47;71;162;51;0;0;0;gYES 
48;;9;4;1;0;0;
49;2;181;16;1;0;0; 'CHAPS' 
50;71;162;71;0;0;0;gASSUME ANOTHER FILE EX PT 
51;80;291;0;0;0;0;gREAD MT 
52;;7;6;1;0;0;;IGNORE MT FILES 
53;2;181;16;1;0;0; 'CHAPS' 
54;71;162;51;0;0;0;gREAD/IGNORE MT FILES->PROCESS MT CHAPS 
55;76;161;31;0;0;0;gPROCESS MT CHAPS 
56;;9;4;1;0;0;
57;2;181;16;1;0;0; 'CHAPS' 
58;70;165;0;0;0;0;gEND OF FILE DETAILS EX PT 
59;;9;4;1;0;0;
60;30;0;0;0;0;4-;
61;30;0;0;0;0;4;
62;2;319;12;1;0;0; 'END  ' 
63;71;162;71;0;0;0;
64;10;0;0;0;0;900000;
65;1;27;9;0;0;0;
66;91;0;0;0;3;0;
67;150;0;0;0;0;1; END' BEFORE 'CHAPS'ALARM*01 
68;C;162;70;0;0;0;gUNLOAD 
69;C;100;0;0;0;0;gRE-ENTER 
70;151;0;0;0;0;0;
71;54;1;0;1;0;46;
72;5;12;2;0;0;0;CLEAR CTR 
73;124;179;10;0;2;0;
74;80;326;0;0;0;0;gUNPACK FILE DETAILS 
75;80;297;0;0;0;0;gUNPACK CARD ANNOTATION 
SHEET;65
PROCR;163;CHECK/STORE/OUTPUT FILR DETAILS EX PT 
NOTES;;;
0;10;0;0;0;0;5600;
1;5;12;3;0;0;0;ERROR LETER F 
2;34;1;2;1;0;0;FILE IDENTITY 
3;80;300;0;0;0;0;gL-ALIGN IN A 
4;3;1;2;1;0;0;
5;32;0;0;0;0;9-;
6;12;0;0;0;0;5;CONTROL OF ALPHA PART 
7;73;163;22;0;0;0;gREPORT 
8;10;0;0;0;0;0;
9;32;0;0;0;0;1;BASIC OF ALPHA PART 
10;12;0;0;0;0;t;
11;72;163;22;0;0;0;gREPORT 
12;10;0;0;0;0;0;
13;32;0;0;0;0;2;NUMERIC PART 
14;12;0;0;0;0;30;
15;70;163;20;0;0;0;gOK 
16;12;0;0;0;0;11;
17;73;163;22;0;0;0;gREPORT 
18;12;0;0;0;0;9;
19;72;163;22;0;0;0;gREPORT 
20;10;0;0;0;0;0;
21;74;163;24;0;0;0;gOK 
22;10;0;0;0;0;1;
23;80;177;0;0;0;0;gREPORT*F1 
24;;1;4;1;0;0;ROUTE TYPE 
25;12;0;0;0;0;1;
26;73;163;60;0;0;0;gIGNORE 
27;12;0;0;0;0;2;
28;71;163;31;0;0;0;gNOT 3. DEC CARD O/P 
29;10;0;0;0;0;26;
30;76;163;58;0;0;0;gSET BLOCK LENGTH 
31;12;0;0;0;0;1;
32;70;163;49;0;0;0;gGP PRINTER 
33;12;0;0;0;0;15;
34;70;163;49;0;0;0;gRT 19 
35;12;0;0;0;0;1;
36;70;163;68;0;0;0;g OUT, IF RT20 
37;12;0;0;0;0;1;
38;70;163;60;0;0;0;gREJECT RT 21 
39;12;0;0;0;0;1;
40;70;163;68;0;0;0;g22,DATA LINK 
41;12;0;0;0;0;1;
42;70;163;60;0;0;0;gREJECT RT 23 
43;12;0;0;0;0;1;
44;70;163;68;0;0;0;gRT24 
45;12;0;0;0;0;1;
46;70;163;68;0;0;0;gRT25 
47;72;163;60;0;0;0;gREJECT 
48;76;163;68;0;0;0;
49;;1;8;1;0;0;BLOCK LENGTH 
50;80;245;0;0;0;0;gTO BIN 
51;33;0;0;0;0;6-;DIVIDE BY 64 
52;39;0;0;0;0;0;ROUND UP 
53;12;0;0;0;0;5;
54;72;163;64;0;0;0;gTOO BIG 
55;11;0;0;0;0;5;
56;31;0;0;0;0;6;
57;80;244;0;0;0;0;gTO DEC 
58;5;1;8;1;0;0;
59;76;163;68;0;0;0;
60;10;0;0;0;0;2;
61;80;177;0;0;0;0;gREPORT*F2
62;80;295;0;0;0;0;gIGNORE
63;76;163;68;0;0;0;
64;10;0;0;0;0;4;
65;80;177;0;0;0;0;gREPORT*F4
66;80;295;0;0;0;0;gIGNORE
67;76;163;71;0;0;0;
68;0;1;8;1;0;0;BLOCK LENGTH
69;73;163;64;0;0;0;
70;70;163;64;0;0;0;
71;76;164;13;0;0;0;
72;10;0;0;0;0;5;
73;80;177;0;0;0;0;gREPORT*F5
74;80;295;0;0;0;0;gIGNORE
75;;1;6;1;0;0;CHAP IND
76;73;163;79;0;0;0;gREPORT
77;12;0;0;0;0;100;
78;73;163;82;0;0;0;gOK
79;10;0;0;0;0;3;
80;80;177;0;0;0;0;gREPORT*F3
81;80;295;0;0;0;0;IGNORE
82;;1;4;1;0;0;ROUTE TYPE
83;80;245;0;0;0;0;gTO BIN
84;33;0;0;0;0; 2-;
85;1;1;3;0;0;0;FILE ID
86;33;0;0;0;0;18-;
87;;1;42;1;0;0;
88;80;164;0;0;0;0;gSTORE DETAIL
89;71;163;91;0;0;0;gOK, LIST NOT FULL
90;80;295;0;0;0;0;gIGNORE
91;52;8;6;0;0;0;
92;C;175;0;0;0;0;
93;55;1;28;1;0;18;
94;C;8;32;1;0;0;
95;80;289;0;0;0;0;gWRITE
96;76;162;43;0;0;0;
SHEET;66
PROCR;164;STORE FILE DETAILS SR
NOTES;;;
0;81;164;0;0;0;0;
1;2;319;24;1;0;0;
2;70;164;11;0;0;0;gIGNORED ALREADY
3;10;0;0;0;0;10; =16
4;2;91;1;0;0;0;
5;70;164;11;0;0;0;LIST FULL.  IGNORE
6;32;0;0;0;0;5;
7;124;91;1;0;1;0;
8;5;91;5;0;0;0;STORE
9;10;0;0;0;0;2;
10;4;91;1;0;0;0;STEP CTR
11;60;0;0;0;0;0;
12;82;164;0;0;0;0;(A)=0 IF FILE TO BE IGNORED
13;;1;10;0;0;0;ALT ROUTE IND
14;71;164;19;0;0;0;
15;;1;4;0;0;0;
16;12;0;0;0;0;19;
17;70;163;72;0;0;0;gREPORT
18;76;163;75;0;0;0;gOK
19;;1;4;0;0;0;ROUTE TYPE
20;12;0;0;0;0;5;
21;70;164;36;0;0;0;gPT
22;12;0;0;0;0;2;
23;70;164;36;0;0;0;gMT 7
24;12;0;0;0;0;1;
25;70;164;36;0;0;0;gMT 8
26;12;0;0;0;0;3;
27;70;164;36;0;0;0;gMT 11
28;12;0;0;0;0;4;
29;70;164;36;0;0;0;gPT 15
30;12;0;0;0;0;4;
31;71;163;72;0;0;0;gREPORT. NOT 19
32;;1;10;0;0;0;SPECIAL ANNEX LENGTH
33;12;0;0;0;0;4096;
34;72;163;72;0;0;0;gREPORT
35;76;163;75;0;0;0;gOK
36;;1;10;0;0;0;ALT ROUTE IND
37;12;0;0;0;0;1;>OK
38;70;163;75;0;0;0;gREPORT
39;76;163;72;0;0;0;
SHEET;67
PROCR;165;'CHAPS'  ON PT 
NOTES;;;
0;10;0;0;0;0;5300;
1;3;12;33;0;0;0;SET 'PT IN'
2;5;12;3;0;0;0;ERROR LETTER C
3;54;1;0;1;0;46;
4;;12;1;0;0;0;STORE AMEND SERIAL INDICATOR
5;30;0;0;0;0;2;
6;5;1;0;0;0;0;
7;124;180;0;0;2;0;
8;80;326;0;0;0;0;gUNPACK 'CHAPS'
9;;1;4;0;0;0;NO OF CHARS
10;12;0;0;0;0;1;
11;73;165;14;0;0;0;gREPORT
12;12;0;0;0;0;14;
13;73;165;17;0;0;0;gOK
14;10;0;0;0;0;1;
15;3;1;4;0;0;0;(SAFE VALUE)
16;80;177;0;0;0;0;gREPORT*C1
17;;1;4;0;0;0;
18;80;245;0;0;0;0;gTO BIN
19;5;12;13;0;0;0;
20;60;0;0;0;0;0;
21;91;12;12;0;2;0;C:0
22;;1;5;0;2;0;
23;80;200;0;0;0;0;gREPLACE PROCR
24;C;178;0;0;0;0;
25;71;165;29;0;0;0;gOK
26;;319;38;1;0;0; '????R'
27;5;1;44;1;0;0;
28;;1;5;0;2;0;OLD VALUE
29;3;12;14;0;2;0;STORE START POINTS
30;3;1;5;0;2;0;
31;12;0;0;0;0;100;
32;73;165;35;0;0;0;gREPORT
33;12;0;0;0;0;899;
34;73;165;37;0;0;0;gOK
35;10;0;0;0;0;2;
36;80;177;0;0;0;0;gREPORT*C2
37;94;165;22;0;2;1;
38;;1;5;0;2;0;NEXT CHAP START
39;70;165;42;0;0;0;gOK
40;10;0;0;0;0;3;
41;80;177;0;0;0;0;gREPORT*C3
42;55;1;4;0;0;15;NO OF CHAPS*START
43;C;8;8;2;0;0;
44;55;1;34;1;0;12;REPORTS
45;C;8;38;1;0;0;
46;52;8;4;0;0;0;EDIT AMEND IND+'CHARS'
47;C;175;24;0;0;0;
48;80;292;0;0;0;0;gREAD PT
49;;9;4;1;0;0;;DEAL WITH 'STOR
50;2;181;20;1;0;0; 'STORE'
51;70;165;55;0;0;0;gPT AT STORE
52;;92;30;0;0;0;
53;71;165;72;0;0;0;gMT UNAMENDED
54;76;166;0;0;0;0;gINITIAL TRANS WITHOUT STORE
55;;92;30;0;0;0;
56;70;165;62;0;0;0;INITIAL TRANS
57;80;291;0;0;0;0;READ A1
58;;7;6;1;0;0;
59;2;181;20;1;0;0; 'STORE'
60;71;165;62;0;0;0;
61;80;291;0;0;0;0;READ A1
62;54;1;0;1;0;20;
63;124;180;0;0;2;0;
64;80;326;0;0;0;0;UNPACK 'STORE'
65;80;289;0;0;0;0;WRITE 'CHAPS'
66;55;1;4;0;0;7;
67;C;8;8;1;0;0;
68;;181;20;1;0;0; 'STORE'
69;5;8;6;1;0;0;
70;80;292;0;0;0;0;READ A6
71;76;166;0;0;0;0;
72;80;291;0;0;0;0;READ A1        MT UNAMENDED
73;;7;6;1;0;0;
74;2;181;20;1;0;0;
75;71;166;0;0;0;0;gNOT STORE 
76;80;289;0;0;0;0;WRITE 'CHAPS' 
77;55;7;4;1;0;40;
78;C;8;4;1;0;0;
79;80;291;0;0;0;0;gREAD A1 
SHEET;68
PROCR;166;PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION 
NOTES;;;
0;10;0;0;0;0;pppppppppp;
1;5;18;2498;1;0;0;LIST END SIGN 
2;5;18;2496;1;0;0;CLEAR FIRST ENTRY 
3;83;267;0;0;0;1;SAFETY SETTINGS 
4;0;12;13;0;0;0;NO OF CHAPS 
5;80;244;0;0;0;0;gTO DEC 
6;5;181;6;0;0;0;
7;10;0;0;0;0;7200;
8;5;12;3;0;0;0;ERROR LETTERS 
9;10;0;0;0;0;99;
10;5;92;3;0;0;0;FIRST PROCR-1 
11;90;0;0;0;4;0;
12;C;0;0;0;0;14;TO STORE CHAPTER ENDS 
13;62;0;0;0;0;0;
14;91;12;12;0;3;0;
15;11;0;0;0;0;1;
16;3;92;10;0;3;0;STORE UNCORRECETD CHAP NUMBERS 
17;94;166;15;0;3;1;
18;60;0;0;0;0;0;
19;10;0;0;0;0;1001;
20;5;12;9;0;0;0;SET FIRST SECTION SERIAL NUMBER 
21;;92;30;0;0;0;
22;71;167;0;0;0;0;gNOT INITIAL TRANSLATION 
23;87;27;10;0;0;0;
24;C;166;26;0;0;0;gPT 
25;C;166;28;0;0;0;gCARDS 
26;;9;4;1;0;0;
27;76;166;29;0;0;0;
28;;9;8;1;0;0;
29;80;287;0;0;0;0;gTEST PT='PROCR' ETC 
30;;12;38;0;0;0;
31;73;185;0;0;0;0;gYES, END OF SECTION DETAILS 
32;80;170;0;0;0;0;gUNPACK/OUTPUT PT 
33;76;166;23;0;0;0;
SHEET;69
PROCR;167;DEAL WITH UNAMENDED SECTION LINE 
0;80;173;0;0;0;0;gTEST PT AT AMEND DIRECTIVE 
1;71;167;5;0;0;0;
2;34;181;8;1;0;0;FIVE SQUARES 
3;76;169;1;0;0;0;
4;80;291;0;0;0;0;gREAD MT 
5;;12;45;0;0;0;
6;71;167;11;0;0;0;gNO MORE PT AMENDS TO SECTIONS 
7;;7;4;2;0;0;
8;2;9;4;2;0;0;
9;70;168;0;0;0;0;gMT AMENDED 
10;73;169;0;0;0;0;gMT>PT, REPORT 
11;80;174;0;0;0;0;gTEST MT=PROCR ETC 
12;;12;38;0;0;0;
13;73;185;0;0;0;0;gYES 
14;50;7;6;0;0;0;
15;C;175;14;0;0;0;
16;55;7;32;1;0;16;
17;C;1;28;1;0;0;
18;5;1;44;1;0;0;CLEAR REPORT WL 
19;80;172;0;0;0;0;gCHECK/EDIT/WRITE SECTION DETAIL 
20;76;167;4;0;0;0;
SHEET;70
PROCR;168;EFFECT REPLACEMENTS, DELETIONS, INSERTIONS 
0;85;252;0;0;0;0;
1;C;168;5;0;0;0;gREPLACE 
2;C;168;13;0;0;0;gDELETE 
3;C;168;25;0;0;0;gINSERT BEFORE 
4;C;168;5;0;0;0;gANNOTATION 
5;80;174;0;0;0;0;gTEST MT=PROCR ETC 
6;0;12;38;0;0;0;
7;73;185;0;0;0;0;gYES ;'REPLACE'LOOP 
8;80;170;0;0;0;0;gAPPLY PT 
9;80;173;0;0;0;0;gTEST NEXT PT=DIRECTIVE 
10;71;167;4;0;0;0;gYES 
11;80;291;0;0;0;0;gREAD MT 
12;76;168;5;0;0;0;
13;80;292;0;0;0;0;gREAD PT 
14;80;173;0;0;0;0;gTEST DIRECTIVE ;DELETE 
15;71;167;4;0;0;0;gYES 
16;80;291;0;0;0;0;gREAD MT 
17;80;174;0;0;0;0;g TEST MT=PROCR ETC 
18;;12;38;0;0;0;
19;73;185;0;0;0;0;gYES 
20;;7;4;2;0;0;
21;2;9;4;2;0;0;
22;73;169;0;0;0;0;gMODS OUT OF ORDER 
23;70;168;13;0;0;0;gEND OF DELETION 
24;76;168;16;0;0;0;gREAD/IGNORE MT 
25;80;292;0;0;0;0;READ FIRST INSERTED BLOCK 
26;80;170;0;0;0;0;gUNPACK/OUTPUT/READ NEXT PT BLOCK 
27;80;173;0;0;0;0;gTEST AMEND DIRECTIVE 
28;70;168;26;0;0;0;gNO 
29;76;167;5;0;0;0;gYES 
SHEET;71
PROCR;169;DEAL WITH SEQUENCE ERROR IN MODS 
0;34;1;2;1;0;0;
1;0;8;47;0;0;0;TEST TOP HALF TO BE'??5' 
2;2;318;25;0;0;0;
3;70;169;8;0;0;0;gLINE IGNORED, DONT OVERWRITE WORD 
4;10;0;0;0;0;0;CLEAR SIGN BIT A 
5;32;0;0;0;0;10;
6;5;8;46;1;0;0;
7;76;169;10;0;0;0;
8;32;0;0;0;0;10;
9;5;8;44;1;0;0;
10;0;1;4;1;0;0;AMEND LETTER 
11;5;8;48;1;0;0;
12;35;0;0;0;0;1111;
13;10;0;0;0;0;1:1:;
14;3;27;6;0;0;0;SET 'PT OMITTED' 
15;37;8;48;1;0;0;PLANT '??' 
16;80;292;0;0;0;0;gREADPT 
17;80;173;0;0;0;0;gTEST AMEND DIRECTIVE 
18;70;169;16;0;0;0;gNO 
19;76;167;5;0;0;0;gYES(DEAL WITH CURRENT MT BLOCK) 
SHEET;72
PROCR;170;AMENDS TO SECTION DESCRIPTION EX PT 
0;81;170;0;0;0;0;
1;54;1;0;1;0;46;
2;124;179;24;0;2;0;
3;80;326;0;0;0;0;gUNPACK PT SECTION 
4;80;297;0;0;0;0;UNPACK ANNOTATION(CARDS) 
5;86;252;0;0;0;0;
6;12;0;0;0;0;4;
7;71;170;11;0;0;0;gNOT 'UNPACK ANNOTATION' 
8;50;7;6;0;0;0;
9;C;175;14;0;0;0;UNPACK MT DETAILS 
10;76;170;13;0;0;0;
11;0;12;1;0;0;0;SET AMEND IND 
12;5;1;6;0;0;0;
13;80;292;0;0;0;0;gREAD NEXT PT BLOCK 
14;80;172;0;0;0;0;gCHECK/EDIT/OUTPUT SECTION DETAIL 
15;82;170;0;0;0;0;
SHEET;73
PROCR;171;
0;81;171;0;0;0;0;
1;43;A2;0;0;0;0;
2;C;7;0;0;0;0;
3;82;171;0;0;0;0;
SHEET;74
PROCR;172;CHECK/EDIT/WRITE SECTION DETAILS 
0;81;172;0;0;0;0;
1;80;189;0;0;0;0;DELETE B/FWD REPORTS 
2;90;0;0;0;1;0;
3;C;0;0;0;0;4;
4;90;0;0;0;2;0;
5;C;0;0;0;0;8;
6;10;0;0;0;0;0;
7;5;1;44;1;0;0;CLEAR REPORT WORD 
8;;1;2;0;1;0;
9;2;181;1;0;2;0;LOWER LIMIT 
10;73;172;14;0;0;0;gREPORT 
11;;181;0;0;2;0;UPPER LIMIT 
12;2;1;2;0;1;0;
13;72;172;19;0;0;0;gOK 
14;96;0;0;0;1;0;
15;11;0;0;0;0;1;
16;80;177;0;0;0;0;gREPORT S(NOMBER) 
17;80;295;0;0;0;0;gIGNORE SECTION 
18;76;172;42;0;0;0;
19;94;0;0;0;1;1;
20;94;172;8;0;2;2;
21;;1;4;0;0;0;TX AREA IND 
22;70;172;29;0;0;0;gNO 
23;4;92;6;0;0;0;AUG CTR 
24;;92;6;0;0;0;
25;12;0;0;0;0;9;
26;73;172;29;0;0;0;gOK, NOT >8 TX AREAS
27;10;0;0;0;0;5;
28;76;172;16;0;0;0;gREPORT, IGNORE
29;;1;2;0;0;0;
30;80;183;0;0;0;0;gDECODE SEC NUMBER
31;34;12;40;0;0;0;
32;36;12;72;0;3;0;
33;71;172;27;0;0;0;gSECTION ALREADY USED
34;62;0;0;0;0;0;
35;;12;40;0;0;0;
36;4;12;72;0;3;0;SET 'i AM A SECTION' IND
37;;1;4;0;0;0;
38;70;172;42;0;0;0;gNOT TX AREA
39;;12;40;0;0;0;
40;31;0;0;0;0;10;
41;4;12;72;0;3;0;SET 'i AM A TX AREA' IND
42;60;0;0;0;0;0;
43;80;289;0;0;0;0;gWRITE PREVINS BLOCK
44;52;8;4;0;0;0;
45;C;175;10;0;0;0;
46;10;0;0;0;0;1;
47;4;12;9;0;0;0;STEP SERIAL CTR
48;55;1;28;1;0;18;ANNOTATION
49;C;8;32;1;0;0;
50;82;172;0;0;0;0;
SHEET;75
PROCR;173;TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION
0;81;173;0;0;0;0;
1;80;294;0;0;0;0;gTEST AMEND DIRECTIVE/END
2;70;173;10;0;0;0;gNO
3;;1;3;0;0;0;TOPCHAR OF SERIAL NUMBER
4;30;0;0;0;0;3-;
5;12;0;0;0;0;5e;*
6;70;173;9;0;0;0;gIS MOD TO SECTIONS
7;10;0;0;0;0;1;
8;5;12;45;0;0;0;
9;10;0;0;0;0;1;
10;82;173;0;0;0;0;(A)=0 IF NOT DIRECTIVE
SHEET;76
PROCR;174;TEST MT AT START OF CODING
0;81;174;0;0;0;0;
1;;27;1;0;0;0;
2;70;174;6;0;0;0;gSINGLE RECORD BLOCKS
3;;7;12;1;0;0;DIRECTIVE WORD
4;80;287;0;0;0;0;
5;82;174;0;0;0;0;
6;;7;10;1;0;0;
7;76;174;4;0;0;0;
SHEET;77
TABLE;175;1;
NOTES;;;
0;1;2;0;0;2;0;5;0;0;0;0;0;0;FILE IDENTITY==FILES LINE
2;1;4;0;0;0;0;5;0;0;5;0;0;0;RTE TYPE
4;1;6;0;0;0;0;5;0;0;5;0;0;0;RETN PERIOD
6;1;8;0;0;0;0;5;0;0;5;0;0;0;MAX BLOCK
8;1;10;0;0;0;0;5;0;0;5;0;0;1;ALT ROUTE
10;319;6;0;0;2;0;1;0;0;0;0;0;0;*
12;12;9;0;0;0;0;4;1;0;3;0;0;0;SECTION SERIAL NUMBER
14;1;2;0;0;0;0;5;0;0;4;0;0;0;SECTION==SECTION LINE
16;1;3;0;0;0;0;5;0;0;4;0;0;0;LENGTH
18;1;4;0;0;0;0;5;0;0;4;0;0;0;TX AREA IND
20;1;5;0;0;0;0;5;0;0;4;0;0;0;CHAPTER
22;1;6;0;0;0;0;5;0;0;5;0;0;1;AMEND IND
24;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
26;1;2;0;0;2;0;5;0;0;0;0;0;1;'CHAPS'
28;12;1;0;0;0;0;5;0;0;4;0;0;1;FOR UPDATED SERIAL
30;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
32;1;2;0;0;2;0;5;0;0;0;0;0;0;
34;1;4;0;0;0;0;5;0;0;5;0;0;0;
36;1;6;0;0;0;0;5;0;0;4;0;0;0;
38;1;8;0;0;2;0;5;0;0;0;0;0;0;SERIAL/CODER
40;1;10;0;0;1;0;10;0;0;10;0;0;0;(SPACER)
42;1;10;0;0;0;0;5;0;0;5;0;0;1;(SPACER)
SHEET;78
PROCR;176;CHECK PERFORATING IN PROGM BLOCK
NOTES;;;
0;81;176;0;0;0;0;
1;;1;4;0;0;0;SUITE
2;12;0;0;0;0;1000;
3;73;176;6;0;0;0;gOK
4;10;0;0;0;0;41;
5;80;177;0;0;0;0;gREPORT*P1
6;;1;6;0;0;0;JOB
7;12;0;0;0;0;100;
8;73;176;11;0;0;0;gOK
9;10;0;0;0;0;42;
10;80;177;0;0;0;0;gREPORT*P2
11;;1;4;0;0;0;
12;1;1;6;0;0;0;
13;71;176;16;0;0;0;gOK
14;10;0;0;0;0;43;
15;80;177;0;0;0;0;gREPORT*P3
16;;92;30;0;0;0;
17;71;176;19;0;0;0;gAMEND RUN
18;5;1;8;1;0;0;CLEAR SERIAL NUMBER
19;10;0;0;0;0;0;
20;5;12;2;0;0;0;CLEAR CTR
21;82;176;0;0;0;0;
SHEET;79
PROCR;177;ERROR REPORT SR
0;81;177;0;0;0;0;
1;5;12;4;0;0;0;
2;91;12;2;0;3;0;CTR
3;;319;6;1;0;0;;*;
4;1;12;4;0;0;0;REPORT NUMBER
5;1;12;3;0;0;0;REPORT LETTER
6;5;1;38;1;3;0;
7;12;0;0;0;0;2;
8;4;12;2;0;0;0;REDUCE CTR
9;10;0;0;0;0;0;
10;82;177;0;0;0;0;
SHEET;80
PROCR;178;REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS
0;81;178;0;0;0;0;(12/119=DEC PROCR)
1;;12;119;0;0;0;
2;80;245;0;0;0;0;gBIN
3;33;0;0;0;0;1-;
4;5;320;40;1;0;0;
5;91;320;40;0;1;0;
6;74;178;10;0;0;0;gEVEN
7;;18;50-;0;1;0;
8;31;0;0;0;0;10-;
9;76;178;12;0;0;0;
10;34;319;18;0;0;0;BITS 1-10
11;36;18;50-;0;1;0;
12;80;244;0;0;0;0;gDEC
13;82;178;0;0;0;0;
SHEET;81
TABLE;179;3;UNPACK PROGM/ENTRY/SECTION
NOTES;;;SALE DESCRIPTION FROM P/T & CARDS
0;1;2;0;0;2;0;5;0;0;0;0;0;0;PROGM/ENTRY
2;1;4;0;0;1;0;3;0;0;0;0;0;0;SUITE NO/E POINT
4;1;6;0;0;1;0;2;0;0;0;0;0;0;JOB NO/PRIORITY CLASS
6;1;8;0;0;2;0;5;0;0;0;0;0;0;SERIAL, VERSION, BLANK/CODER
8;1;16;0;0;2;1;5;0;0;0;0;0;1;/////ANNOTATION/CHECKER
10;12;48;0;0;0;0;2;0;0;0;0;0;0;FILES DESCRIPTION-SERIAL NO
12;1;2;0;0;2;0;2;0;0;0;0;0;0;FILE ID
14;1;4;0;0;1;0;2;0;0;0;0;0;0;ROUTE TYPE
16;1;6;0;0;1;0;2;0;0;0;0;0;0;CHAPTER
18;1;8;0;0;1;0;4;0;0;0;0;0;0;BLOCK LENGTH
20;1;10;0;0;1;0;4;0;0;0;0;0;0;ALT ROUTE IND
22;1;28;0;0;2;0;5;0;0;0;0;0;1;ANNOTATION
24;12;48;0;0;0;0;6;0;0;0;0;0;0;/////SERIAL-SEC DESCRIPTION
26;1;2;0;0;0;0;2;0;0;0;0;0;0;SECTION NO
28;1;3;0;0;0;0;4;0;0;0;0;0;0;LENGTH
30;1;4;0;0;0;0;1;0;0;0;0;0;0;TX?
32;1;5;0;0;0;0;2;0;0;0;0;0;0;CHAP NO
34;1;28;0;0;2;0;5;0;0;0;0;0;1;ANNOTATION
36;1;2;0;0;2;0;5;0;0;0;0;0;0;'AMEND'
38;1;4;0;0;1;0;3;0;0;0;0;0;0;SUITE NO
40;1;6;0;0;1;0;2;0;0;0;0;0;0;JOB NO
42;1;8;0;0;2;0;2;0;0;0;0;0;0;(ISSUE+SERIAL)/ISSUE
44;1;20;0;0;2;0;3;0;0;0;0;0;0;(WORDS ETC)/SERIAL
46;1;16;0;0;0;0;1;0;0;0;0;0;0;''PRINT PASS 3'' IND
48;1;17;0;0;0;0;3;0;0;0;0;0;0;NEW ISSUE
50;1;18;0;0;2;0;1;0;0;0;0;0;1;PTS IND(CARDS)
SHEET;82
TABLE;180;3;UNPACK CHAPS BLOCK
NOTES;;;FROM CARDS
0;1;2;0;0;2;0;5;0;0;0;0;0;0;CHAPS'
2;1;4;0;0;0;0;2;0;0;0;0;0;0;NO OF CHAPS
4;1;5;0;0;0;0;3;0;0;0;0;0;0;1-ST START
6;1;6;0;0;0;0;3;0;0;0;0;0;0;2-ND START
8;1;7;0;0;0;0;3;0;0;0;0;0;0;
10;1;8;0;0;0;0;3;0;0;0;0;0;0;
12;1;9;0;0;0;0;3;0;0;0;0;0;0;
14;1;10;0;0;0;0;3;0;0;0;0;0;0;
16;1;11;0;0;0;0;3;0;0;0;0;0;0;
18;1;12;0;0;0;0;3;0;0;0;0;0;0;
20;1;13;0;0;0;0;3;0;0;0;0;0;0;
22;1;14;0;0;0;0;3;0;0;0;0;0;0;10-TH START
24;1;15;0;0;0;0;3;0;0;0;0;0;0;
26;1;16;0;0;0;0;3;0;0;0;0;0;0;
28;1;17;0;0;0;0;3;0;0;0;0;0;0;
30;1;18;0;0;0;0;3;0;0;0;0;0;1;14-TH START
SHEET;83
CONST;181;1;FUNCTIONAL
0;(D)100099;UPPER/LOWER LIM SEC NUMBER
2;4096;DO LENGTH
4;1;DO TX AREA IND
6;0;DO CHAP NUMBER
8;1p1p1p1p1p;
10;(A)PROGM;
12;ENTRY;
14;AMEND;
16;CHAPS;
18;PASSI;
20;STORE;
SHEET;84
CONST;182;1;DUMMY
0;(B)0;
2;;
4;;
6;;
8;;
SHEET;85
PROCR;183;DECODE SECTION NUMBER
NOTES;RADIX;D;BITS 1-10 OF 10 LOCATIONS
0;81;183;0;0;0;0;
1;70;183;9;0;0;0;gZERO SECTION
2;32;0;0;0;0;1-;DIVIDE BY 10
3;92;0;0;0;3;0;SET MODIFIER=LOCN;CLEAR A
4;32;0;0;0;0;1;REMAINDER
5;5;12;40;0;0;0;WL
6;10;0;0;0;0;1;
7;124;12;40;0;0;0;
8;31;0;0;0;0;0;/////
9;5;12;40;0;0;0;STORE COLLATION BIT
10;82;183;0;0;0;0;
SHEET;86
CONST;184;1;DUMMY
SHEET;87
PROCR;185;MAIN LOOP-DEAL WITH INITIAL TRANSLATION
NOTES;RADIX;;
0;55;18;0;0;0;1010;COPY CURRENT AMEND DETAILS
1;C;93;0;0;0;0;
2;54;29;0;1;0;44;
3;83;191;0;0;0;2;SAFETY SETTINGS
4;10;0;0;0;0;1;
5;5;27;5;0;0;0;UNPACK SWITCH
6;0;92;30;0;0;0;
7;3;12;8;1;0;0;(CLEAR 12/9)
8;70;185;12;0;0;0;gINITIAL TRANSLATION
9;59;7;6;0;8;0;SET I/P MR
10;C;7;4;2;0;0;
11;76;251;0;0;0;0;
12;10;0;0;0;0;1;
13;5;12;33;0;0;0;SET 'PT INS INPUT'
14;;9;4;1;0;0;
15;30;0;0;0;0;4-;
16;30;0;0;0;0;4;
17;2;319;12;1;0;0;'END  '
18;70;322;0;0;0;0;gEND OF INITIAL TRANSLATION
19;;9;4;1;0;0;
20;2;319;44;1;0;0;'TRAMD'
21;70;322;0;0;0;0;
22;87;27;10;0;0;0;
23;C;185;25;0;0;0;gPT
24;C;185;27;0;0;0;gCARDS
25;;9;4;1;0;0;
26;76;185;28;0;0;0;
27;;9;8;1;0;0;
28;80;287;0;0;0;0;gTEST STACK DIRECTIVE
29;80;283;0;0;0;0;gUNPACK PT
30;80;186;0;0;0;0;gCHECK/EDIT/OUTPUT
31;80;292;0;0;0;0;gREAD PT
32;76;185;14;0;0;0;gLOOP TILL END
SHEET;88
PROCR;186;START OF CHECK/EDIT/OUTPUT SR
NOTES;RADIX;;
0;81;186;0;0;0;0;
1;;12;38;0;0;0;STACKING DIRECTIVE
2;70;190;0;0;0;0;NO
3;72;191;0;0;0;0;g'NOTES' BLOCK
4;;12;61;0;0;0;C-LINE MUST FOLLOW
5;70;186;7;0;0;0;INDICATOR
6;80;296;0;0;0;0;IGNORE THIS INSTRUCTION
7;;12;54;0;0;0;
8;12;0;0;0;0;55;
9;70;186;12;0;0;0;
10;10;0;0;0;0;0;
11;5;12;60;1;0;0;
12;5;12;9;0;0;0;
13;5;12;43;0;0;0;CLEAR LINE INCREMENT FOR 'SER' CHECKS
14;;92;30;0;0;0;
15;71;186;20;0;0;0;gAMEND RUN
16;;9;50;2;0;0;PASS 0 DOESN'T LIKE IT' IND
17;70;186;20;0;0;0;gOK
18;;319;38;1;0;0;????R'
19;5;1;44;1;0;0;
20;;27;5;0;0;0;
21;12;0;0;0;0;4;
22;70;187;36;0;0;0;gVALUE (DIRECTIVE OR DATA)
23;;92;3;0;0;0;
24;11;0;0;0;0;1;FORM TRANSLATORS PROCR
25;3;92;3;0;0;0;
26;3;12;0;0;0;0;
27;5;12;4;0;0;0;
SHEET;89
PROCR;187;TEST NEW CHAPTER
0;;1;8;2;0;0;
1;30;0;0;0;0;2-;
2;3;1;14;0;0;0;B/FWD PROCR
3;80;200;0;0;0;0;gREPLACE PROCR
4;C;202;0;0;0;0;
5;2;92;3;0;0;0;
6;70;187;9;0;0;0;gOK PASS 0 HASN'T BOOBED
7;;319;38;1;0;0;????R'
8;5;1;44;1;0;0;
9;52;1;8;0;0;0;EDIT NEW PROCR
10;C;306;0;0;0;0;
11;;27;4;0;0;0;
12;71;187;17;0;0;0;gCOMPILER.DONT SET IND
13;;1;14;0;0;0;OLD
14;2;12;4;0;0;0;NEW
15;70;187;17;0;0;0;gPROCR DOESNT CHANGE
16;80;188;0;0;0;0;gSET 'PRINT PROCR'
17;;92;3;0;0;0;
18;12;0;0;0;0;100;
19;71;187;23;0;0;0;gNOT FIRST TIME THROUGH
20;0;12;0;0;0;0;FIRST CODERS PROCR
21;5;12;14;0;0;0;SET AS FIRST CHAP START
22;76;187;31;0;0;0;
23;;12;14;0;4;0;
24;2;12;0;0;0;0;
25;71;187;36;0;0;0;gTHIS PROCR IS NOT A CHAPTER START
26;;92;3;0;0;0;
27;12;0;0;0;0;1;
28;80;245;0;0;0;0;gCHAP END IN BIN
29;30;0;0;0;0;2;
30;4;92;9;0;4;0;STORE CHAP END POINT
31;62;0;0;0;0;0;
32;10;0;0;0;0;1;
33;4;92;0;0;0;0;STEP UNCORR CHAP IN BIN
34;60;0;0;0;0;0;
35;94;0;0;0;4;1;
36;83;191;0;0;0;1;SET CHECK SWITCH FOR DIRECTIVES
37;76;191;0;0;0;0;
SHEET;90
PROCR;188;SET IND IN SEC 23 IF PROCR TO BE PRINTED
0;81;188;0;0;0;0;
1;;92;3;0;0;0;CURRENT PROCR
2;80;245;0;0;0;0;gBIN
3;19;0;0;0;0;14;
4;5;320;40;0;0;0;
5;32;0;0;0;0;9;
6;5;320;41;0;0;0;REMAINDER
7;34;320;20;0;0;0;1
8;124;320;41;0;1;0;
9;33;0;0;0;0;0;/////
10;;320;18;0;0;0;pX5
11;124;320;40;0;1;0;
12;37;23;5-;0;0;0;SET BIT
13;60;0;0;0;0;0;
14;82;188;0;0;0;0;
SHEET;91
PROCR;189;CHECK FOR B/FWD ERROR REPORTS
NOTES;;0;
0;81;189;0;0;0;0;
1;;1;42;1;0;0;LAST  5 CHARS OF ANNOTATION
2;2;319;24;1;0;0; '?????'
3;70;189;10;0;0;0;
4;;1;42;1;0;0;
5;12;0;0;0;0;5p5p5p5p5p;FIVE SQUARES
6;70;189;10;0;0;0;
7;;1;42;1;0;0;
8;2;319;22;1;0;0; 'SHEET'
9;71;189;11;0;0;0;
10;5;1;42;1;0;0;CLEAR OUT REPORT
11;82;189;0;0;0;0;
SHEET;92
PROCR;190;CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION
NOTES;RADIX;;
0;;92;30;0;0;0;
1;71;191;0;0;0;0;
2;34;1;2;1;0;0;RIGHT ALIGN
3;80;321;0;0;0;0;SERIAL NO
4;;12;88;2;0;0;
5;2;12;43;0;0;0;
6;70;190;12;0;0;0;SERIAL NO IS IN FACT SERIAL
7;86;191;0;0;0;0;
8;12;0;0;0;0;6;
9;72;191;0;0;0;0;gNO CHECK ON PM+TRIAL DATA
10;10;0;0;0;0;725569;PUT'SER' IN ERROR INDICATOR
11;5;1;44;1;0;0;
12;;12;88;2;0;0;STORE THIS SERIAL NO
13;1;12;90;0;0;0;gLONG/SHORT COUNTER
14;11;0;0;0;0;1;1
15;5;12;43;0;0;0;TO TEST NEXT INSTRUCTION
SHEET;93
PROCR;191;SWITCH B
NOTES;RADIX;;
0;80;189;0;0;0;0;gDELETE B/FWD ERROR REPORTS
1;;12;33;0;0;0;
2;70;191;7;0;0;0;gEX MT
3;;92;30;0;0;0;
4;70;191;7;0;0;0;
5;80;188;0;0;0;0;gSET'PRINT PROCR'
6;10;0;0;0;0;0;
7;85;191;0;0;0;0;
8;C;205;0;0;0;0;STACKING DIRECTIVE
9;C;210;0;0;0;0;INSTRUCTIONS
10;C;276;0;0;0;0;TABLES
11;C;260;0;0;0;0;CONSTANTS
12;C;191;13;0;0;0;VALUE'=5
13;0;1;9;0;0;0;REF
14;34;1;10;0;0;0;
15;74;191;21;0;0;0;ZERO REF & ITEM
16;80;275;0;0;0;0;gUPDATE ADDRESS
17;0;12;4;0;0;0;
18;5;1;9;0;0;0;NEW REF
19;80;277;0;0;0;0;CHECK ADJUSTED REF
20;76;247;0;0;0;0;gEDIT AND OUTPUT
21;85;108;0;0;0;0;
22;C;247;0;0;0;0;>LAST REF/ITEM CORRECT
23;C;191;24;0;0;0;>LAST REF/ITEM IGNORED
24;80;195;0;0;0;0;REPORT R
25;80;295;0;0;0;0;IGNORE THIS LINE
26;76;247;0;0;0;0;gEDIT AND OUTPUT
SHEET;94
PROCR;192;CHECK I IS EVEN,REPORT IF NOT
NOTES;0;0;
0;81;192;0;0;0;0;
1;5;245;0;0;0;0;ITEM TO WL=SR LINK
2;10;0;0;0;0;1;
3;32;0;0;0;0;10-;
4;36;245;0;0;0;0;
5;70;192;7;0;0;0;gOK
6;80;196;0;0;0;0;gREPORT I
7;82;192;0;0;0;0;
SHEET;95
PROCR;193;ERROR REPORT OF D 
NOTES;;;
0;81;193;0;0;0;0;
1;10;0;0;0;0;54;D
2;80;199;0;0;0;0;
3;82;193;0;0;0;0;
SHEET;96
PROCR;194;ERROR REPORT OF M 
NOTES;;;
0;81;194;0;0;0;0;
1;10;0;0;0;0;64;M
2;80;199;0;0;0;0;
3;82;194;0;0;0;0;
SHEET;97
PROCR;195;ERROR REPORT OF R 
NOTES;;;
0;81;195;0;0;0;0;
1;10;0;0;0;0;69;
2;80;199;0;0;0;0;
3;82;195;0;0;0;0;
SHEET;98
PROCR;196;ERROR REPORT OF I 
NOTES;;;
0;81;196;0;0;0;0;
1;10;0;0;0;0;59;I
2;80;199;0;0;0;0;
3;82;196;0;0;0;0;
SHEET;99
PROCR;197;ERROR REPORT OF L 
NOTES;;;
0;81;197;0;0;0;0;
1;10;0;0;0;0;63;L
2;80;199;0;0;0;0;
3;82;197;0;0;0;0;
SHEET;100
PROCR;198;ERROR REPORT OF T 
NOTES;;;
0;81;198;0;0;0;0;
1;10;0;0;0;0;73;T
2;80;199;0;0;0;0;
3;82;198;0;0;0;0;
SHEET;101
PROCR;199;MAKE ERROR REPORT 
NOTES;;;
0;81;199;0;0;0;0;
1;32;0;0;0;0;10-;
2;;1;44;1;0;0;TEST REPORT ALREADY MADE
3;30;0;0;0;0;2-;WITH '????'
4;12;0;0;0;0;5:5:5:5:;
5;70;199;18;0;0;0;gYES,DON'T CORRUPT IT
6;;1;44;1;0;0;
7;12;0;0;0;0;725569; 'SER'
8;71;199;10;0;0;0;
9;5;1;44;1;0;0;LET OTHERS TAKE PRECEDENCE
10;10;0;0;0;0;0;
11;32;0;0;0;0;10;
12;124;12;115;1;2;0;
13;30;0;0;0;0;0;/////
14;4;1;44;1;0;0;
15;10;0;0;0;0;2;
16;1;12;115;0;0;0;
17;5;12;115;0;0;0;
18;82;199;0;0;0;0;
SHEET;102
PROCR;200;REPLACE CODERS PROCR TO C/FWD VALUE 
0;81;200;0;0;0;0;
1;3;12;119;0;0;0;
2;3;12;118;0;0;0;
3;12;0;0;0;0;100;
4;73;200;25;0;0;0;gEX RANGE
5;12;0;0;0;0;899;
6;72;200;25;0;0;0;gDON'T REPLACE
7;;12;33;0;0;0;
8;71;200;19;0;0;0;gEX PT
9;;27;0;0;0;0;
10;71;200;19;0;0;0;gISSUE 6 O/P
11;;27;4;0;0;0;
12;71;200;19;0;0;0;gCOMPILER CALLED TRANSLATOR
13;80;201;0;0;0;0;gREPLACE EX ISSUE 5
14;71;200;17;0;0;0;gOK
15;80;195;0;0;0;0;gREPORT R
16;76;200;19;0;0;0;
17;3;12;119;0;0;0;
18;5;12;118;0;0;0;
19;80;1001;0;0;0;0;gREPLACE EX ISSUE 6
20;71;200;24;0;0;0;gOK
21;;319;38;1;0;0; '????R'
22;5;1;44;1;0;0;
23;82;200;0;0;0;0;
24;3;12;119;0;0;0;
25;82;200;0;0;0;0;
SHEET;103
PROCR;201;REPLACE CODERS PROCR-ISSUE 5 O/P 
0;81;201;0;0;0;0;(12/119)=DEC PROCR
1;;27;2;0;0;0;
2;70;201;5;0;0;0;gNOT PSEUDO-ISSUE 5 O/P
3;;12;119;0;0;0;REPLACEMENT=ITSELF
4;76;201;21;0;0;0;
5;;12;119;0;0;0;
6;12;0;0;0;0;600;
7;72;201;22;0;0;0;gOUT OF RANGE
8;;12;119;0;0;0;
9;80;245;0;0;0;0;gTO BIN
10;33;0;0;0;0;1-;
11;5;245;0;0;0;0;SR LINK
12;74;201;17;0;0;0;gEVEN
13;124;245;0;0;1;0;
14;;53;50-;0;0;0;
15;31;0;0;0;0;10-;
16;76;201;20;0;0;0;
17;34;319;18;0;0;0;BITS 1 -10
18;124;245;0;0;1;0;
19;36;53;50-;0;0;0;
20;80;244;0;0;0;0;g TO DEC
21;82;201;0;0;0;0;
22;10;0;0;0;0;0;
23;82;201;0;0;0;0;
SHEET;104
PROCR;202;REPLACE CODERS PROCR-ISSUE 6 O/P
0;81;202;0;0;0;0;(12/119-DEC PROCR)
1;;12;119;0;0;0;
2;80;245;0;0;0;0;g TO BIN
3;33;0;0;0;0;1-;
4;5;245;0;0;0;0;
5;74;202;10;0;0;0;g EVEN
6;124;245;0;0;1;0;
7;;93;50-;0;0;0;
8;31;0;0;0;0;10-;
9;76;202;13;0;0;0;
10;34;319;18;0;0;0;BITS 1 -10
11;124;245;0;0;1;0;
12;36;93;50-;0;0;0;
13;80;244;0;0;0;0;g TO DEC
14;82;202;0;0;0;0;
SHEET;105
PROCR;203;ADJUST SR-ISSUE 5 O/P
0;81;203;0;0;0;0;(A) = SERIAL TO BE ADJUSTED
1;90;0;0;0;1;0;
2;C;0;0;0;0;160;
3;5;12;58;0;0;0;
4;5;12;46;0;0;0;
5;35;0;0;0;0;11100;
6;36;12;58;0;0;0;
7;5;12;30;0;0;0;STORE PROCR
8;36;54;0;0;1;0;
9;70;203;15;0;0;0;g END
10;2;12;30;0;0;0;
11;70;203;18;0;0;0;g PROCR MATCHES
12;72;203;15;0;0;0;g POINT PASSED ;END
13;10;0;0;0;0;0;
14;94;203;8;0;1;2;
15;;12;46;0;0;0;TOTAL ADJUSTMENT
16;1;12;58;0;0;0;
17;82;203;0;0;0;0;
18;;12;58;0;0;0;SEARCH WITHIN PROCR
19;2;54;0;0;1;0;
20;73;203;13;0;0;0;g NOT FOR THIS POINT IN PROCR
21;;54;1;0;1;0;
22;4;12;46;0;0;0;FORM TOTAL ADJUSTMENT
23;76;203;13;0;0;0;
SHEET;106
PROCR;204;ADJUST SR-ISSUE 6 O/P
0;81;204;0;0;0;0;
1;90;0;0;0;1;0;
2;C;0;0;0;0;460;
3;10;0;0;0;0;0;(12/58)= SERIAL TO BE ADJUSTED
4;5;12;46;0;0;0;CLEAR FOR TOTAL ADJUSTMENT
5;35;0;0;0;0;11100;
6;36;12;58;0;0;0;
7;5;12;30;0;0;0;PROCR
8;36;97;0;0;1;0;
9;70;204;21;0;0;0;g END
10;2;12;30;0;0;0;
11;73;204;19;0;0;0;g SEARCH
12;71;204;21;0;0;0;g END
13;;97;0;0;1;0;
14;2;12;58;0;0;0;
15;70;204;17;0;0;0;
16;72;204;30;0;0;0;g NEXT ADJUST POINT IN PROCR IS LATER
17;;97;1;0;1;0;
18;4;12;46;0;0;0;
19;10;0;0;0;0;0;
20;94;204;8;0;1;2;
21;35;0;0;0;0;11;
22;;12;46;0;0;0;TOTAL ADJUSTMENT
23;36;12;58;0;0;0;
24;3;12;58;0;0;0;NEW ITEM
25;12;0;0;0;0;100;
26;73;204;29;0;0;0;
27;;319;40;1;0;0; '????i'
28;5;1;44;1;0;0;REPORT WRITTEN ITEM >99
29;82;204;0;0;0;0;
30;1;97;1;0;1;0;QUANTITY (+ -)
31;70;204;33;0;0;0;g ADDRESS DELETED
32;72;204;21;0;0;0;g NEXT IS INSERTION
33;0;1;7;0;0;0;
34;12;0;0;0;0;53000;
35;70;204;45;0;0;0;g C-LINE REPORT
36;;12;54;0;0;0;BIN ACTION
37;101;0;83;1;2;0;
38;70;204;21;0;0;0;g 83 DON'T REPORT
39;101;0;1;1;2;0;
40;70;204;21;0;0;0;g 84
41;101;0;1;1;2;0;
42;70;204;21;0;0;0;g 85
43;101;0;1;1;2;0;
44;70;204;21;0;0;0;g 86
45;;319;42;1;0;0; '???? DELTA'
46;5;1;44;1;0;0;
47;76;204;21;0;0;0;
SHEET;107
PROCR;205;DEAL WITH PROCR/TABLE/CONST
NOTES;RADIX;;
0;;1;6;1;0;0;
1;2;319;4;1;0;0;PROCR
2;71;205;5;0;0;0;NO
3;5;12;90;1;0;0;
4;76;247;0;0;0;0;FORM SERIAL
5;;1;6;1;0;0;
6;2;319;0;1;0;0;TABLE
7;71;206;3;0;0;0;NO
8;10;0;0;0;0;100001;SET LONG/SHORT
9;5;12;90;1;0;0;COUNTER
10;34;1;16;1;0;0;TABLE TYPE
11;80;321;0;0;0;0;gRIGHT ALIGN
12;0;12;88;2;0;0;
13;73;205;18;0;0;0;TABLE TYPE IS
14;3;12;59;0;0;0;
15;70;205;18;0;0;0;
16;12;0;0;0;0;5;
17;73;206;0;0;0;0;
18;83;278;6;0;0;5;TABLE TYPE IS OUT
19;76;282;27;0;0;0;
SHEET;108
PROCR;206;
NOTES;RADIX;;
0;84;278;6;0;0;0;SET TABLE CHECKING
1;C;12;59;0;0;0;SWITCH ACCORDING TO
2;76;247;0;0;0;0;FORM SERIAL NO.
3;;1;6;1;0;0;
4;2;319;2;1;0;0;CONST
5;71;206;23;0;0;0;gNO
6;54;94;60;0;0;40;
7;34;318;1;0;0;0;BIT 17
8;36;1;16;2;0;0;
9;30;0;0;0;0;4-;
10;3;12;90;0;0;0;LONG/SHORT IND
11;71;206;13;0;0;0;gLONG
12;10;0;0;0;0;30;ALPHA ZERO
13;30;0;0;0;0;3;
14;35;0;0;0;0;11000;
15;37;1;17;0;0;0;
16;76;206;19;0;0;0;SET ALPHA 0 OR 1
17;10;0;0;0;0;1;
18;3;12;90;0;0;0;
19;83;263;0;0;0;1;SAFETY VALUE
20;10;0;0;0;0;4;SET CHECK SWITCH
21;84;191;0;0;0;0;
22;76;247;0;0;0;0;gO/P
23;0;1;6;1;0;0;
24;2;319;26;1;0;0; 'VALUE'
25;71;207;0;0;0;0;gHENCE 'NOTES'
26;10;0;0;0;0;5;
27;84;191;0;0;0;0;
28;5;12;90;1;0;0;CLEAR IND=SHORT
29;76;247;0;0;0;0;O/P
SHEET;109
PROCR;207;DEAL WITH NOTES 
NOTES;RADIX;;
0;;12;91;0;0;0;
1;71;207;4;0;0;0;
2;10;0;0;0;0;2;FOR INSTRUCTIONS
3;76;207;5;0;0;0;
4;10;0;0;0;0;3;FOR TABLE ENTRIES
5;84;191;0;0;0;0;SET CHECK SWITCH
6;2;12;38;0;0;0;DIRECTIVE IND FOR THIS LINE
7;73;247;0;0;0;0;gIS'NOTES'(IE>0)
8;10;0;0;0;0;2;
9;5;12;9;0;0;0;SET THIS LINE SERIAL
10;76;191;1;0;0;0;gTO CHECK SWITCH
SHEET;110
PROCR;208;REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI
NOTES;RADIX;;
0;81;208;0;0;0;0;
1;34;1;8;1;0;0;REF
2;80;321;0;0;0;0;gRIGHT ALIGN
3;12;0;0;0;0;67;
4;3;274;0;0;0;0;
5;71;208;8;0;0;0;gNOT'P'
6;0;12;0;0;0;0;
7;5;12;88;2;0;0;
8;0;12;88;2;0;0;
9;3;12;4;0;0;0;
10;12;0;0;0;0;100;
11;73;208;30;0;0;0;gSECTION
12;12;0;0;0;0;899;
13;72;208;30;0;0;0;gNOT REPLACEABLE (INCLUDES 999)
14;;1;10;1;0;0;
15;5;294;0;0;0;0; 'PREVIOUS' ITEM
16;80;209;0;0;0;0;gCALC C/FWD ADDRESS
17;;27;4;0;0;0;
18;71;208;26;0;0;0;gCOMPILER, DONT SET IND
19;;12;88;2;0;;TEST IMPLICIT;
20;2;12;4;0;0;0;;AMENDMENT
21;71;208;25;0;0;0;gCHANGE TO REF
22;;1;10;1;0;0;
23;2;294;0;0;0;0;
24;70;208;26;0;0;0;gNO CHANGE TO ITEM
25;80;188;0;0;0;0;gSET'PRINT PROCEDURE'
26;;12;88;2;0;0;
27;5;12;4;0;0;0;NEW REF
28;52;1;8;0;0;0;REPLACE REF WITH ZEROS
29;C;306;0;0;0;0;
30;82;208;0;0;0;0;
SHEET;111
PROCR;209;REPLACE AND ADJUSR ADDRESS
NOTES;;;
0;81;209;0;0;0;0;
1;;92;30;0;0;0;
2;71;209;6;0;0;0;gNOT INITIAL
3;10;0;0;0;0;2;
4;4;1;10;1;0;0;
5;76;209;48;0;0;0;
6;;27;0;0;0;0;
7;34;12;33;0;0;0;
8;75;209;48;0;0;0;gISSUE 6 I/P OR PT I/P
9;;274;0;0;0;0;
10;70;209;48;0;0;0;gREF WAS'P'
11;;27;4;0;0;0;
12;71;209;48;0;0;0;gCOMPILER CALLED TRANSLATOR
13;;12;88;2;0;0;
14;5;12;119;0;0;0;
15;80;201;0;0;0;0;gREPLACE OLD PROCR
16;71;209;36;0;0;0;gMATCH FOUND;NOW ADJUST
17;;12;88;2;0;0;
18;30;0;0;0;0;2;;TRY UNIQUE REFS
19;1;1;10;0;0;0;
20;90;0;0;0;1;0;
21;C;0;0;0;0;50;
22;5;245;0;0;0;0;
23;;55;1;0;1;0;
24;70;209;28;0;0;0;gEND,NO MATCH
25;2;245;0;0;0;0;
26;70;209;30;0;0;0;
27;94;209;23;0;1;2;
28;80;195;0;0;0;0;gREPORT R
29;76;209;48;0;0;0;gCARRY ON
30;;55;0;0;1;0;EQUIVALENT OF UNIQUE REF
31;32;0;0;0;0;2-;
32;5;12;88;2;0;0;
33;32;0;0;0;0;2;
34;5;1;10;0;0;0;
35;76;209;48;0;0;0;gNOW REPLACE/ADJUST(NEW STYLE)
36;3;12;88;2;0;0;
37;30;0;0;0;0;2;
38;1;1;10;0;0;0;
39;5;203;0;0;0;0;WL
40;;1;10;1;0;0;
41;73;209;48;0;0;0;gDONT ADJUST NEG ITEM
42;;203;0;0;0;0;
43;80;203;0;0;0;0;gADJUST(OLD STYLE)
44;32;0;0;0;0;2-;
45;5;12;88;2;0;0;
46;32;0;0;0;0;2;
47;5;1;10;0;0;0;
48;;12;88;2;0;0;REPLACE PROCR(NEW STYLE)
49;3;12;118;0;0;0;
50;5;12;119;0;0;0;
51;;274;0;0;0;0;
52;71;209;55;0;0;0;gREF WAS NOT'P'
53;;12;88;2;0;0;
54;76;209;77;0;0;0;
55;80;202;0;0;0;0;gREPLACE
56;71;209;77;0;0;0;gMATCH
57;;12;88;2;0;0;
58;30;0;0;0;0;2;TRY UNIQUE REFS
59;1;1;10;0;0;0;(NEW STYLE)
60;90;0;0;0;1;0;
61;C;0;0;0;0;100;
62;5;245;0;0;0;0;
63;;52;0;0;1;0;
64;70;209;68;0;0;0;gEND,NO MATCH
65;2;245;0;0;0;0;
66;70;209;71;0;0;0;gMATCH
67;94;209;63;0;1;2;
68;;319;38;1;0;0; '????R'
69;5;1;44;1;0;0;
70;76;209;86;0;0;0;gEND
71;;52;1;0;1;0;
72;32;0;0;0;0;2-;
73;5;12;88;2;0;0;
74;32;0;0;0;0;2;
75;5;1;10;0;0;0;
76;76;209;86;0;0;0;gNEW ADDRESS CALCULATED
77;3;12;88;2;0;0;
78;30;0;0;0;0;2;NEW REF
79;1;1;10;0;0;0;
80;5;12;58;0;0;0;
81;;1;10;1;0;0;
82;73;209;86;0;0;0;gDONT ADJUST NEG ITEMS
83;80;204;0;0;0;0;gADJUST SR(NEW STYLE)
84;;12;58;0;0;0;NEW ITEM
85;5;1;10;0;0;0;
86;82;209;0;0;0;0;
SHEET;112
PROCR;210;BEGIN CHECKS ON ACTION OR C-LINE
NOTES;RADIX;;
0;80;208;0;0;0;0;gDEAL WITH ADDRESS OF INSTRUCTION
1;;12;4;0;0;0;NEW REF
2;12;0;0;0;0;100;
3;73;210;8;0;0;0;gSECTION
4;12;0;0;0;0;899;
5;72;210;8;0;0;0;gREF=999+
6;;12;118;0;0;0;PEVIOUS PROCR
7;5;1;22;0;0;0;
8;;1;7;0;0;0;
9;12;0;0;0;0;53000; 'C  '
10;71;210;26;0;0;0;gNOT C-LINE
11;;12;60;1;0;0;
12;70;211;0;0;0;0;gIGNORE;C-LINE NOT POSSIBLE
13;124;12;55;1;2;0;
14;100;0;1;0;2;0;C-LINE CHECK CONSTANT TO B
15;0;317;86;0;0;0;A 55 ACTION WILL TERMINATE
16;5;317;23;0;0;0;AFTER 2 C-LINES
17;62;0;0;0;0;0;
18;0;12;54;0;0;0;ACION
19;12;0;0;0;0;2e; 43
20;70;210;23;0;0;0;gYES
21;11;0;0;0;0;1;
22;71;210;60;0;0;0;gNOT
23;10;0;0;0;0;1;
24;4;12;55;0;0;0;(TO GET NEXT C-LINE CHECK CONST)
25;76;210;60;0;0;0;
26;;12;61;0;0;0;
27;70;210;29;0;0;0;
28;80;296;0;0;0;0;
29;34;1;6;1;0;0;
30;80;321;0;0;0;0;RIGHT ALIGN ACTION
31;0;12;88;2;0;0;
32;73;211;0;0;0;0;gNEGATIVE ACTION
33;12;0;0;0;0;159;REJECT ACTION>158
34;72;211;0;0;0;0;
35;0;12;88;2;0;0;
36;80;245;0;0;0;0;gBIN
37;3;12;54;0;0;0;BINARY ACTION
38;12;0;0;0;0;41; 65
39;72;210;52;0;0;0;g SECOND HALF OF TABLE
40;0;12;54;0;0;0;
41;30;0;0;0;0;3;
42;101;316;0;0;0;0;TLU
43;32;0;0;0;0;10;ABS BIN ADDRESS > A
44;3;12;55;0;0;0;LOCN TO SELECT C-LINE CHECK CONSTANT
45;0;12;54;0;0;0;BIN ACTION
46;12;0;0;0;0;37; = 55
47;71;210;58;0;0;0;g NOT
48;0;1;16;1;0;0;LITERAL
49;71;210;56;0;0;0;g SET SECOND C-LINE IMPOSSIBLE
50;0;317;84;0;0;0;
51;76;210;57;0;0;0;g SET SECOND C-LINE ESSENTIAL
52;0;12;54;0;0;0;
53;30;0;0;0;0;3;
54;101;317;32;0;0;0;TLU FOR ACTION > 64
55;76;210;43;0;0;0;
56;0;317;86;0;0;0;
57;5;317;23;0;0;0;CHECK CONST FOR ACTION 55 C-LINE
58;124;12;55;1;2;0;
59;100;0;0;0;2;0;CHECK CONST
60;10;0;0;0;0;0;
61;36;318;2;0;0;0;Q1-3
62;71;211;4;0;0;0;g ACTION EXISTS
SHEET;113
PROCR;211;
NOTES;RADIX;;
0;10;0;0;0;0;5100000000;
1;5;1;44;1;0;0;NONEXISTENT ACTION = ERROR OF A
2;80;295;0;0;0;0;
3;76;247;0;0;0;0;
4;30;0;0;0;0;2-;
5;84;227;0;0;0;0;LITERAL' SWITCH BY Q3
6;36;318;3;0;0;0;BITS 5-7
7;30;0;0;0;0;1-;
8;84;217;0;0;0;0; 'REF/ITEM'
9;36;318;4;0;0;0;BITS 1-3
10;84;214;0;0;0;0; 'DISC/MOD' SWITCH BY Q1
11;36;318;5;0;0;0;BIT 4
12;5;12;61;0;0;0;IND THAT C-LINE ESSENTIAL
13;36;318;6;0;0;0;BIT 8
14;5;12;60;0;0;0;IND THAT C-LINE IS POSSIBLE
15;5;12;59;0;0;0;CLEAR THIS
SHEET;114
PROCR;212;
NOTES;RADIX;;
0;60;0;0;0;0;0;
1;;1;10;0;0;0;MODULUS OF ITEM
2;12;0;0;0;0;8192;
3;72;212;6;0;0;0;g REPORT
4;;1;11;0;0;0;
5;70;212;7;0;0;0;g OK
6;80;196;0;0;0;0;g REPORT 1
7;0;12;54;0;0;0;BIN ACTION
8;12;0;0;0;0;64;100
9;73;212;24;0;0;0;g NOT MACHINE CODE
10;0;12;54;0;0;0;
11;12;0;0;0;0;84;132
12;72;212;24;0;0;0;gNOT MACHINE CODE
13;0;1;12;1;0;0;DISC
14;70;212;18;0;0;0;gOK
15;12;0;0;0;0;1;
16;70;212;18;0;0;0;gOK
17;80;193;0;0;0;0;gREPORT D
18;0;1;14;1;0;0;MOD
19;70;217;0;0;0;0;gOK
20;12;0;0;0;0;4;
21;73;217;0;0;0;0;gOK
22;80;194;0;0;0;0;gREPORT M
23;76;217;0;0;0;0;gTO CHECK R,I,L
24;0;1;12;1;0;0;D
25;70;213;5;0;0;0;gOK
26;0;1;10;0;0;0;
27;80;192;0;0;0;0;gCHECK I
SHEET;115
PROCR;213;TEST D AND M ARE IN RANGE
NOTES;RADIX;;ACCEPTABLE
0;;1;12;1;0;0;
1;73;213;4;0;0;0;
2;12;0;0;0;0;3;
3;73;213;5;0;0;0;
4;80;193;0;0;0;0;gREPORT D
5;;1;14;1;0;0;MOD DIGITS
6;70;214;0;0;0;0;gOK
7;73;213;16;0;0;0;
8;12;0;0;0;0;21;
9;72;213;16;0;0;0;gWRONG
10;0;1;14;0;0;0;
11;12;0;0;0;0;4;
12;72;214;0;0;0;0;
13;10;0;0;0;0;1;IF MR 1-3
14;5;92;4;0;0;0;SETTING 'REQUIRED' IND
15;76;214;0;0;0;0;
16;80;194;0;0;0;0;gREPORT M
17;76;211;2;0;0;0;gIGNORE
SHEET;116
PROCR;214;
NOTES;RADIX;;
0;85;214;0;0;0;0;
1;C;217;0;0;0;0;gD,M ANY VALUE
2;C;215;0;0;0;0;gD,M MUST BOTH BE ZERO
3;C;215;5;0;0;0;gD ZERO, M ANY
4;C;215;1;0;0;0;gM ZERO, D ANY
5;C;215;7;0;0;0;gD ZERO, M NONZERO
6;C;215;8;0;0;0;gM NONZERO, D ANY
7;C;214;8;0;0;0;gD,M ZERO, R NON-ZERO IF L=0
8;;1;16;0;0;0;L
9;70;214;14;0;0;0;gEXPECT R
10;0;1;8;2;0;0;REF
11;70;215;0;0;0;0;gOK
12;80;195;0;0;0;0;gREPORT R
13;76;215;0;0;0;0;
14;;1;8;2;0;0;
15;71;215;0;0;0;0;gOK
16;80;197;0;0;0;0;gREPORT L
SHEET;117
PROCR;215;CHECK D AND M
NOTES;RADIX;;
0;80;216;0;0;0;0;
1;;1;14;1;0;0;
2;70;217;0;0;0;0;
3;80;194;0;0;0;0;gREPORT M
4;76;217;0;0;0;0;
5;80;216;0;0;0;0;
6;76;217;0;0;0;0;gCHECK D=0
7;80;216;0;0;0;0;
8;;1;14;1;0;0;gOK
9;71;217;0;0;0;0;gIGNORE
10;80;295;0;0;0;0;gREPORT M
11;76;215;3;0;0;0;
SHEET;118
PROCR;216;TO CHECK REFERENCE AND ITEM
NOTES;RADIX;;
0;81;216;0;0;0;0;
1;;1;12;1;0;0;
2;70;216;4;0;0;0;
3;80;193;0;0;0;0;gREPORT D
4;82;216;0;0;0;0;
SHEET;119
PROCR;217;
NOTES;RADIX;;
0;85;217;0;0;0;0;
1;C;218;0;0;0;0;gR ZERO, PROCR, SECTION OR '1000+'
2;C;219;0;0;0;0;gR, I BOTH ZERO
3;C;220;0;0;0;0;MAINLINE OF FILE CONTROL
4;C;224;0;0;0;0;R=100-998 OR 1000+, I EVEN
5;C;225;0;0;0;0;gR IS A TRANSIT AREA
6;C;226;0;0;0;0;gR IN RANGE 100-998
7;C;218;56;0;0;0;gR IS PROCR OR SECTION, BUT NOT TX AREA
SHEET;120
PROCR;218;SWITCH = 1
NOTES;RADIX;;
0;;12;4;0;0;0;
1;73;218;34;0;0;0;gIGNORE R
2;71;218;18;0;0;0;gOK
3;;1;14;0;0;0;MOD DIGITS
4;71;218;47;0;0;0;gOK EXCEPT FOR 93,97
5;0;1;10;1;0;0;ITEM
6;73;218;11;0;0;0;gACCEPT ONLY IF ITEM
7;71;218;53;0;0;0;gOK
8;0;12;54;0;0;0;ACTION
9;70;218;34;0;0;0;gIGNORE R
10;76;218;53;0;0;0;gOJ
11;10;0;0;0;0;0;
12;35;0;0;0;0;1;
13;36;1;10;0;0;0;
14;12;0;0;0;0;+;
15;70;218;53;0;0;0;gOK(ITEM*)
16;80;295;0;0;0;0;gIGNORE
17;76;219;4;0;0;0;gREPORT I
18;12;0;0;0;0;100;
19;73;218;29;0;0;0;gSECTION
20;12;0;0;0;0;900;
21;73;218;53;0;0;0;gOK
22;70;218;34;0;0;0;gIGNORE IF=1000
23;12;0;0;0;0;21;
24;72;218;34;0;0;0;gIGNORE IF>1020
25;0;12;54;0;0;0;BIN ACTION
26;12;0;0;0;0;50; 80
27;70;218;34;0;0;0;gIGNORE
28;76;218;53;0;0;0;gOK
29;;12;4;0;0;0;DECSECTION
30;80;183;0;0;0;0;gDECODE SECTION NUMBER
31;34;12;40;0;0;0;
32;36;12;72;0;3;0;
33;71;218;53;0;0;0;gSECTION EXISTS
34;80;295;0;0;0;0;gIGNORE
35;80;195;0;0;0;0;gREPORT R
36;86;217;0;0;0;0;
37;12;0;0;0;0;5;
38;70;225;29;0;0;0;g42 OR 43 ACTION.IGNORE PREVIOUS LINE
39;;12;54;0;0;0;
40;101;0;40;1;2;0;40
41;70;225;29;0;0;0;gIGNORE PREVIOUS LINE
42;101;0;93;1;2;0;133
43;70;225;29;0;0;0;gIGNORE PREVIOUS LINE
44;101;0;1;1;2;0;134
45;70;225;29;0;0;0;gIGNORE PREVIOUS LINE
46;76;227;0;0;0;0;
47;;12;54;0;0;0;
48;101;0;93;1;2;0;93?
49;70;218;34;0;0;0;gREPORT
50;;12;54;0;0;0;
51;101;0;97;1;2;0;97?
52;70;218;34;0;0;0;gREPORT
53;;12;59;0;0;0;
54;70;227;0;0;0;0;gGO TO CHECK L
55;76;225;3;0;0;0;gCHECK SECTION IS TX AREA
56;80;277;0;0;0;0;gCHECK REF
57;76;227;0;0;0;0;gCHECK LITERAL
SHEET;121
PROCR;219;TEST R AND I ARE BOTH ZERO
NOTES;RADIX;;
0;;1;8;2;0;0;TEST REF IS ZERO
1;71;218;35;0;0;0;
2;;1;10;1;0;0;
3;70;227;0;0;0;0;
4;80;196;0;0;0;0;gREPORT I
5;76;227;0;0;0;0;gNO CHECK LITERAL
SHEET;122
PROCR;220;CHECK FILES
NOTES;RADIX;;
0;;12;54;0;0;0;ACTION
1;101;0;40;1;2;0;
2;71;220;10;0;0;0;gNOT ACTION 40
3;;12;60;1;0;0;
4;70;220;10;0;0;0;gNOT C-LINE
5;;1;7;0;0;0;
6;12;0;0;0;0;53000; 'C  '
7;71;220;10;0;0;0;gNOT THE C-LINE
8;;1;12;1;0;0;C-LINE DISC
9;71;218;0;0;0;0;gCHECK REF IS SEC/PROCR
10;;91;1;0;0;0;
11;30;0;0;0;0;5;
12;91;0;0;0;5;0;
13;;317;92;0;0;0;SET  2ND C-LINE POSSIBLE
14;5;317;12;0;0;0;
15;;91;5;0;5;0;
16;33;0;0;0;0;6-;
17;70;220;28;0;0;0;gNO FILES
18;11;0;0;0;0;4000;BIT 15
19;30;0;0;0;0;1;
20;2;1;9;0;0;0;
21;70;220;37;0;0;0;gMATCH FOUND
22;94;220;15;0;5;2;
23;;1;7;0;0;0;
24;12;0;0;0;0;53000; 'C  '
25;71;220;28;0;0;0;g
26;80;295;0;0;0;0;SET C-LINE IMPOSS
27;80;296;0;0;0;0;IGNORE PREVIOUS LINE
28;80;195;0;0;0;0;gREPORT R
29;80;295;0;0;0;0;gIGNORE
30;;12;54;0;0;0;
31;101;0;42;1;2;0;
32;70;220;35;0;0;0;
33;101;0;1;1;2;0;
34;71;235;0;0;0;0;g
35;5;12;60;1;0;0;42 OR 43
36;76;235;0;0;0;0;g
37;62;0;0;0;0;0;
38;;12;54;0;0;0;
39;101;0;132;1;2;0;
40;73;220;45;0;0;0;gHENCE GROUP 4
41;101;0;3;1;2;0;
42;73;222;0;0;0;0;gACTIONS 132-134
43;76;227;0;0;0;0;gACTION 156
44;70;227;0;0;0;0;gACTION 156;CHECK L
45;10;0;0;0;0;0;CLEAR A
46;33;0;0;0;0;6;ROUTE TYPE
47;12;0;0;0;0;5;
48;73;221;18;0;0;0;gRT1-4
49;70;221;11;0;0;0;gRT5
50;12;0;0;0;0;1;
51;70;221;0;0;0;0;gRT6
52;12;0;0;0;0;3;
53;73;221;22;0;0;0;gRT7,8
54;70;221;18;0;0;0;gRT9
55;12;0;0;0;0;1;
56;70;221;0;0;0;0;gRT10
57;12;0;0;0;0;1;
58;70;221;22;0;0;0;gRT11
59;12;0;0;0;0;1;
60;70;221;0;0;0;0;gRT12
61;12;0;0;0;0;1;
62;70;221;63;0;0;0;gRT13
63;12;0;0;0;0;2;
64;70;221;0;0;0;0;gRT15
65;12;0;0;0;0;1;
66;70;221;18;0;0;0;gRT16
67;12;0;0;0;0;2;
68;70;221;63;0;0;0;gRT 18
69;12;0;0;0;0;1;
70;70;221;18;0;0;0;gRT19
71;12;0;0;0;0;1;
72;70;220;80;0;0;0;gRT 20
73;12;0;0;0;0;2;
74;70;221;53;0;0;0;g22
75;12;0;0;0;0;2;
76;70;221;7;0;0;0;gRT24
77;12;0;0;0;0;1;
78;71;221;58;0;0;0;gNOT 25
79;76;221;18;0;0;0;gLIKE1
80;;12;54;0;0;0;ACTION
81;101;0;40;1;2;0;
82;70;222;4;0;0;0;gACTION 40
83;12;0;0;0;0;1;
84;70;221;58;0;0;0;gREJECT
SHEET;123
PROCR;221;CHECK FILES (CONTD)
0;;12;54;0;0;0;ACTION
1;101;0;42;1;2;0;
2;70;235;0;0;0;0;gOK
3;;12;54;0;0;0;RT 1-6+9-10 
4;101;0;42;1;2;0;
5;73;235;0;0;0;0;gOK
6;76;221;58;0;0;0;gREJECT
7;;12;54;0;0;0;ACTION
8;101;0;42;1;2;0;
9;70;235;0;0;0;0;gOK
10;76;221;58;0;0;0;gREJECT
11;;12;54;0;0;0;RT 5 
12;101;0;44;1;2;0;
13;71;221;0;0;0;0;
14;;1;16;0;0;0;L
15;12;0;0;0;0;3;
16;70;235;0;0;0;0;gOK
17;76;228;2;0;0;0;gIGNORE L
18;;12;54;0;0;0;RT 1-4+9 
19;101;0;43;1;2;0;
20;70;235;0;0;0;0;gOK
21;76;221;3;0;0;0;
22;0;12;54;0;0;0;BIN ACTION
23;12;0;0;0;0;30;48
24;70;221;48;0;0;0;gACTION 48
25;;12;54;0;0;0;
26;12;0;0;0;0;29;41
27;70;221;48;0;0;0;gACTION 41 FOR M/T
28;;12;54;0;0;0;
29;12;0;0;0;0;2+;
30;70;221;43;0;0;0;g44
31;12;0;0;0;0;2;
32;70;221;35;0;0;0;g46
33;12;0;0;0;0;1;
34;71;227;0;0;0;0;gNOT 47, CHECK L
35;;1;10;1;0;0;
36;73;221;41;0;0;0;gREPORT
37;35;0;0;0;0;0;
38;33;0;0;0;0;1-;
39;10;0;0;0;0;0;
40;74;227;0;0;0;0;gEVEN, OK
41;80;196;0;0;0;0;REPORT I
42;76;227;0;0;0;0;
43;;1;16;1;0;0;L
44;12;0;0;0;0;2;
45;70;235;0;0;0;0;gOK
46;12;0;0;0;0;1;
47;76;228;0;0;0;0;
48;;1;16;1;0;0;LITERAL
49;73;228;3;0;0;0;gREPORT L
50;12;0;0;0;0;4;
51;72;228;3;0;0;0;gREPORT L
52;76;235;0;0;0;0;gOK
53;;317;85;0;0;0;CONST FOR 2ND C-LINE
54;5;317;12;0;0;0;
55;;12;54;0;0;0;ACTION
56;101;0;41;1;2;0;
57;71;221;18;0;0;0;gOK, NOT 41
58;10;0;0;0;0;5100000000;A
59;5;1;44;1;0;0;
60;80;295;0;0;0;0;gIGNORE THIS INSTRUCTION
61;5;2;60;1;0;0;SET C LINE IMPOSSIBLE
62;76;220;30;0;0;0;gCHECK FOR C-LINE
63;;12;54;0;0;0;
64;101;0;44;1;2;0;
65;73;235;0;0;0;0;gOK
66;76;221;58;0;0;0;gREJECT
SHEET;124
PROCR;222;ACTIONS 132-134
0;10;0;0;0;0;0;CLEAR A
1;33;0;0;0;0;6;RT
2;12;0;0;0;0;11;
3;71;221;58;0;0;0;gWRONG FILE
4;;1;10;1;0;0;ITEM
5;73;218;16;0;0;0;gIGNORE I
6;70;218;16;0;0;0;gIGNORE I
7;12;0;0;0;0;100;
8;72;218;16;0;0;0;gIGNORE I
9;;1;10;1;0;0;
10;80;183;0;0;0;0;gDECODE SECTION NO
11;34;12;40;0;0;0;COLLATION BIT
12;33;0;0;0;0;10;
13;36;12;72;0;3;0;
14;70;218;16;0;0;0;gNOT A TX AREA, IGNORE I
15;76;225;15;0;0;0;gX AREA CHECK, & CHECK L
SHEET;125
PROCR;223;ACTIONS 132-134
SHEET;126
PROCR;224;TEST R IS A PROCEDURE NUMBER
NOTES;RADIX;;SWITCH=4
0;;12;4;0;0;0;
1;71;224;4;0;0;0;gNOT ABSOLUTE ADDRESS
2;0;1;14;0;0;0;MOD DIGITS
3;71;224;12;0;0;0;gOK
4;12;0;0;0;0;100;
5;73;218;34;0;0;0;gIGNORE R
6;12;0;0;0;0;899;
7;73;224;12;0;0;0;gOK
8;12;0;0;0;0;2;
9;73;218;34;0;0;0;gIGNORE R
10;12;0;0;0;0;20;
11;72;218;34;0;0;0;gIGNORE R
12;;12;54;0;0;0;
13;101;0;70;1;2;0;
14;73;224;17;0;0;0;gCHECK I
15;101;0;10;1;2;0;
16;73;227;0;0;0;0;gACTION 70-79, DON'T CHECK I
17;;1;10;0;0;0;
18;80;192;0;0;0;0;gCHECK I EVEN
19;76;227;0;0;0;0;gCHECK LITERAL 
SHEET;127
PROCR;225;
NOTES;RADIX;;
0;10;0;0;0;0;1;SWITCHES 
1;5;12;59;0;0;0;
2;76;218;0;0;0;0;gCHECK R IS A SECTION 
3;10;0;0;0;0;0;
4;34;12;40;0;0;0;
5;33;0;0;0;0;10;
6;36;12;72;0;3;0;COLLATE TX AREA IND 
7;70;225;29;0;0;0;gNOT, IGNORE PREVIOUS INSTRUCTION 
8;10;0;0;0;0;0;
9;34;320;42;0;0;0;BITS 1-6 
10;36;91;5;0;5;0;
11;12;0;0;0;0;3;
12;70;227;0;0;0;0;gRT 3 CARD O/P 
13;12;0;0;0;0;1;
14;70;227;0;0;0;0;gRT 4;GP PRINT 
15;96;0;0;0;3;0;
16;35;0;0;0;0;0;CLEAR B 
17;33;0;0;0;0;1-;HALVE THE MODIFIER 
18;92;0;0;0;3;0;SET NEW MODIFIER, CLEAR A  
19;74;225;24;0;0;0;g NO REMAINDER 
20;34;12;40;0;0;0;
21;;12;40;0;0;0;
22;33;0;0;0;0;10;FORM 5-LOCN MATRIX FOR ALL TX AREAS 
23;76;225;26;0;0;0;NOT USED IN GPOP ORDERS 
24;;12;40;0;0;0;
25;34;12;40;0;0;0;
26;37;12;100;0;3;0;SET BIT 
27;60;0;0;0;0;0;AREA PATTERN 
28;76;227;0;0;0;0;
29;80;296;0;0;0;0;IGNORE PREVIOUS;INSTRUCTION 
30;76;220;28;0;0;0;
SHEET;128
PROCR;226;TEST REFERENCE IS GREATER THAN 99 
NOTES;RADIX;;SWITCH=6 
0;;12;4;0;0;0;
1;12;0;0;0;0;100;
2;73;218;34;0;0;0;
3;12;0;0;0;0;900;
4;72;218;34;0;0;0;IGNORE R 
SHEET;129
PROCR;227;SWITCH FOR LITERALS 
NOTES;RADIX;;CHECK L IS NOT > 10 QUARTETS 
0;0;1;18;1;0;0;
1;71;228;2;0;0;0;gIGNORE L 
2;34;1;16;1;0;0;
3;32;0;0;0;0;10;
4;5;1;18;1;0;0;STORE MODULUS L 
5;85;227;0;0;0;0;
6;C;235;0;0;0;0;gNO FURTHER CHECK 
7;C;233;0;0;0;0;gMOD L<8192 
8;C;229;0;0;0;0;gL POSITIVE/ZERO 
9;C;230;0;0;0;0;MOD<32 
10;C;231;0;0;0;0;L HAS DIGITS 0 OR 1 
11;C;232;0;0;0;0;1-<L<16 
12;C;233;10;0;0;0;1-<L<8182 
13;C;234;0;0;0;0;-1<L<5 QTTS 
14;C;234;3;0;0;0;MOD L<4096 
15;C;234;15;0;0;0;gL NONZERO 
16;C;234;18;0;0;0;gL ZERO 
17;C;234;20;0;0;0;gL<100 
18;C;234;30;0;0;0;gIF L=0,MUST HAVE C-LINE 
SHEET;130
PROCR;228;MAKE REPORTS ON L 
NOTES;RADIX;;SWITCH=2 
0;70;235;0;0;0;0;
1;76;228;3;0;0;0;
2;80;295;0;0;0;0;gIGNORE 
3;80;197;0;0;0;0;gREPORT L 
4;76;235;0;0;0;0;gEND OF CHECKS 
SHEET;131
PROCR;229;TEST L IS POSITIVE OR ZERO 
NOTES;RADIX;;SWITCH=3 
0;;1;16;1;0;0;(ACTIONS 11,12) 
1;72;235;0;0;0;0;gOK 
2;76;228;2;0;0;0;gIGNORE L 
SHEET;132
PROCR;230;L=1-31 INCLUSIVE 
NOTES;RADIX;;SWITCH=4 
0;0;1;18;1;0;0;MOD L;(ACTIONS 30-33)
1;70;228;3;0;0;0;gREPORT L 
2;12;0;0;0;0;32;
3;72;228;3;0;0;0;gREPORT L 
4;76;235;0;0;0;0;
SHEET;133
PROCR;231;TEST DIGITS OF L ARE 1 OR 0 
NOTES;RADIX;;SWITCH=5 
0;90;0;0;0;3;0;ACTION 35, CERTAIN GROUP 4 
1;C;0;0;0;0;10;
2;10;0;0;0;0;0;
3;34;1;16;1;0;0;
4;32;0;0;0;0;1;
5;70;231;8;0;0;0;
6;12;0;0;0;0;1;
7;71;228;3;0;0;0;
8;94;231;4;0;3;1;
9;76;235;0;0;0;0;gOK 
SHEET;134
PROCR;232;TEST L IS IN RANGE 1-15 
NOTES;RADIX;;SWITCH=6 
0;;1;16;1;0;0;ACTION 38 
1;73;228;2;0;0;0;gREPORT L IGNORE 
2;12;0;0;0;0;16;
3;72;228;3;0;0;0;
4;76;235;0;0;0;0;gOK 
SHEET;135
PROCR;233;L IS LESS THAN 8192 – BULK COPY 
NOTES;RADIX;;SWITCH=7 
0;;12;61;0;0;0;C-LINE IND;(ACTION 90) 
1;71;233;5;0;0;0;gNOT C-LINE 
2;;12;46;0;0;0;FIRST LINE LITERAL 
3;34;1;18;0;0;0;C-LINE LITERAL 
4;74;228;3;0;0;0;gREPORT L IF BOTH ZERO 
5;;1;18;1;0;0;
6;3;12;46;0;0;0;
7;12;0;0;0;0;8192;
8;72;228;3;0;0;0;gREPORT L 
9;76;235;0;0;0;0;gOK 
10;;1;16;1;0;0;ACTION 55 
11;73;228;2;0;0;0;gIGNORE L 
12;;1;12;0;0;0;DISC 
13;70;233;15;0;0;0;gSHORT 
14;10;0;0;0;0;4095;
15;11;0;0;0;0;4095;
16;2;1;16;1;0;0;
17;73;228;2;0;0;0;gIGNORE L 
18;76;235;0;0;0;0;gOK 
SHEET;136
PROCR;234;
NOTES;RADIX;;
0;0;1;16;1;0;0;LITERAL IN 5 QUARTETS 
1;30;0;0;0;0;5-;(LEAVE SIGN IN A) 
2;76;228;0;0;0;0;
3;0;12;54;0;0;0;ACTIONS 54,94 
4;12;0;0;0;0;36;
5;71;234;12;0;0;0;gNOT ACTION 54 
6;0;1;16;1;0;0;
7;73;228;2;0;0;0;gIGNORE L 
8;70;234;32;0;0;0;
9;10;0;0;0;0;0;
10;5;12;60;1;0;0;
11;76;233;12;0;0;0;gCHECK RANGE
12;0;1;18;1;0;0;MOD L
13;12;0;0;0;0;4096;
14;76;230;3;0;0;0;
15;0;1;16;1;0;0;CHECK L NONZERO (ACTION 17:19)
16;70;228;3;0;0;0;
17;76;235;0;0;0;0;
18;;1;16;1;0;0;CHECK L=0  ACTIONS 83
19;76;228;0;0;0;0;
20;;1;16;1;0;0;L<100
21;73;228;3;0;0;0;g REPORT L
22;12;0;0;0;0;100;
23;72;228;2;0;0;0;g IGNORE L
24;0;12;54;0;0;0;ACTION
25;101;0;83;1;2;0;
26;71;235;0;0;0;0;g NOT 83
27;0;1;16;0;0;0;
28;70;228;2;0;0;0;g IGNORE L
29;76;235;0;0;0;0;
30;0;1;16;1;0;0;ACTION 77, 78
31;71;235;0;0;0;0;g OK
32;10;0;0;0;0;1;(ZERO L FOR 54, 77, 78 ACTIONS)
33;5;12;61;0;0;0;MUST BE C-LINE
SHEET;137
PROCR;235;TEST FP/MG USED, STORE MR>3 DETAILS
NOTES;RADIX;;
0;62;0;0;0;0;0;
1;;12;54;0;0;0;
2;12;0;0;0;0;14;TEST ACTION IS 20 - 29
3;73;247;0;0;0;0;
4;12;0;0;0;0;t;
5;73;235;15;0;0;0;
6;12;0;0;0;0;15;
7;73;247;0;0;0;0;g30 - 50
8;12;0;0;0;0;£;
9;70;235;12;0;0;0;g 66
10;12;0;0;0;0;1;
11;71;235;17;0;0;0;gNOT 67
12;10;0;0;0;0;1-;
13;5;92;5;0;0;0;
14;76;235;17;0;0;0;
15;5;92;5;0;0;0;SET F. PT. INDICATOR FOR PASS 3
16;76;247;0;0;0;0;
17;;1;14;0;0;0;MOD DIGITS
18;80;245;0;0;0;0;gCONVERT
19;3;12;88;0;0;0;STORE
20;70;236;0;0;0;0;
21;12;0;0;0;0;4;
22;73;236;0;0;0;0;gMR 1-3
23;;12;54;0;0;0;ACTION
24;12;0;0;0;0;3e;59
25;70;235;30;0;0;0;gACTION 59
26;12;0;0;0;0;1p;31
27;73;236;0;0;0;0;g<90
28;12;0;0;0;0;4;
29;72;236;0;0;0;0;g>93
30;91;71;0;0;3;0;CTR OF MR'S (INITIALLY 0:0)
31;10;0;0;0;0;0;
32;35;0;0;0;0;11;
33;36;71;2;0;3;0;
34;70;235;38;0;0;0;gNONE STORED YET
35;2;12;88;0;0;0;THIS ONE
36;70;236;0;0;0;0;gALREADY STORED
37;94;235;31;0;3;1;gSEARCH
38;;92;0;0;0;0;UNCORR CHAP (BIN)
39;30;0;0;0;0;4;
40;1;12;88;0;0;0;MR (BIN)
41;5;71;2;0;3;0;STORE DETAIL
42;10;0;0;0;0;1;
43;4;71;1;0;0;0;AUG CTR
SHEET;138
PROCR;236;TEST ACTION IS C
NOTES;RADIX;;FOR ACTIONS 85 AND 150
0;62;0;0;0;0;0;
SHEET;139
PROCR;237;TEST FOR SEQUENCE CHANGES
NOTES;RADIX;;
0;0;12;54;0;0;0;BIN ACTION
1;12;0;0;0;0;46;
2;73;243;0;0;0;0;gACTION <70
3;12;0;0;0;0;7;
4;73;240;0;0;0;0;ACTIONS 70-76
5;12;0;0;0;0;2;
6;70;240;0;0;0;0;gACTION 79
7;72;237;12;0;0;0;gOTHERS
8;0;1;6;1;0;0;ACTION OR C
9;12;0;0;0;0;5300000000;
10;71;240;0;0;0;0;gMAINLINE OF 77, 78
11;76;247;0;0;0;0;gHENCE C-LINE OF 77-78
12;12;0;0;0;0;6;
13;70;238;0;0;0;0;gACTION 85
14;12;0;0;0;0;2;
15;70;237;20;0;0;0;g87 
16;12;0;0;0;0;7;
17;70;239;11;0;0;0;gACTION 94 
18;12;0;0;0;0;3;
19;71;237;24;0;0;0;gACTIONS>97 
20;;1;7;0;0;0;
21;12;0;0;0;0;53000;
22;70;240;0;0;0;0;gIS C-LINE, COUNT AS CHANGE 
23;76;247;0;0;0;0;gOUTPUT 
24;12;0;0;0;0;35;
25;70;237;20;0;0;0;gACTION 150 
26;76;239;0;0;0;0;gTRY MACHINE CODE ACTIONS 
SHEET;140
PROCR;238;FORM SWITCH DETAILS 
NOTES;RADIX;;
0;;1;7;0;0;0;
1;12;0;0;0;0;53000;
2;70;240;0;0;0;0;gIS C-LINE OF 85 ACTION 
3;91;95;0;0;3;0;
4;;12;4;0;0;0;PROCR 
5;80;245;0;0;0;0;gCONVERT 
6;5;12;32;0;0;0;
7;10;0;0;0;0;0;
8;34;319;18;0;0;0;BITS 1-10 
9;36;95;2;0;3;0;
10;70;238;14;0;0;0;gNONE STORED YET 
11;2;12;32;0;0;0;
12;70;238;23;0;0;0;gALREADY STORED 
13;94;238;7;0;3;1;
14;0;95;1;0;0;0;
15;12;0;0;0;0;30;
16;72;238;23;0;0;0;gDONT STORE 49-TH 
17;0;92;0;0;0;0;CURRENT BIN UNCORR CHAP 
18;30;0;0;0;0;4;
19;1;12;32;0;0;0;SWITCH PROCR 
20;5;95;2;0;3;0;STORE DETAIL 
21;10;0;0;0;0;1;
22;4;95;1;0;0;0;STEP CTR 
23;60;0;0;0;0;0;COUNTER IN BINARY 
24;76;247;0;0;0;0;gO/P INSTRUCTION 
SHEET;141
PROCR;239;MACHINE CODE SEQUENCE CHANGES 
NOTES;RADIX;;
0;0;12;54;0;0;0;BIN ACTION 
1;12;0;0;0;0;7p;
2;70;240;0;0;0;0;gACTION 127/D/M 
3;11;0;0;0;0;3;
4;71;241;0;0;0;0;gNOT 124/D/M 
5;;1;12;0;0;0;
6;12;0;0;0;0;1;
7;71;241;0;0;0;0;gNOT 124/1/M 
8;;1;14;0;0;0;
9;71;241;0;0;0;0;gNOT 124/1/0 
10;76;240;0;0;0;0;;ACTION 94 
11;60;0;0;0;0;0;
12;0;1;16;1;0;0;
13;71;239;15;0;0;0;
14;80;197;0;0;0;0;gREPORT L 
15;0;1;8;1;0;0;
16;71;240;0;0;0;0;gCOUNT AS SEQ CHANGE 
17;0;1;10;0;0;0;
18;70;247;0;0;0;0;
19;80;196;0;0;0;0;gREPORT I 
20;76;247;0;0;0;0;
SHEET;142
PROCR;240;TEST IF SEQUENCE CHANGE IS FORWARD OR BACK 
NOTES;RADIX;;
0;0;12;4;0;0;0;DEC REF 
1;12;0;0;0;0;999;
2;72;247;0;0;0;0;
3;0;92;3;0;0;0;(CURRENT LINE SERIAL) 
4;30;0;0;0;0;2;
5;1;12;9;0;0;0;SEQ CHANGE SOURCE 
6;3;12;118;0;0;0;SOURCE 
7;2;1;8;2;0;0;L-ALIGNED REF 
8;2;1;10;0;0;0;ITEM 
9;73;247;0;0;0;0;gSOURCE<DEST. SEQ CHANGE FWD 
10;;1;8;2;0;0;
11;70;247;0;0;0;0;gSC TO ABS ADDRESS, DON'T STORE 
12;1;1;10;0;0;0;
13;73;247;0;0;0;0;gSKIP 
14;5;12;119;0;0;0;DESTINATION 
15;0;12;118;1;0;0;
16;62;0;0;0;0;0;
17;124;92;9;1;2;0;ABS START OF LIST 918+2496 INITIALLY) 
18;101;0;0;1;0;0;TABLE LOOKUP 
19;32;0;0;0;0;10;
20;91;0;0;0;1;0;STORE LOCN OF FIRST GREATER 
21;2;92;9;0;0;0;
22;30;0;0;0;0;5;SHIFT QTTY TO BE MOVED 
23;1;92;9;0;0;0;START 
24;5;12;88;1;0;0;WL=BULK COPY TABLE ENTRY 
25;0;92;9;0;0;0;CURRENT LIST START 
26;2;317;88;0;0;0;ABS ADDRESS 18:0 
27;70;247;0;0;0;0;gLIST FULL, DONT STORE 
28;10;0;0;0;0;2-;
29;4;92;9;0;0;0;ADJUST FOR NEW START 
30;;12;88;1;0;0;
31;124;92;9;1;2;0;
32;128;0;0;1;1;0;BULK COPY UP ONE WORD 
33;94;0;0;0;1;2-;ADJUST 
34;;12;118;1;0;0;NEW SEQ CH BACK 
35;5;0;0;1;1;0;PLACE IN LIST 
36;76;247;0;0;0;0;
SHEET;143
PROCR;241;STORE OVERLAY DETAILS 
NOTES;RADIX;;
0;;12;54;0;0;0;BIN ACTION
1;12;0;0;0;0;98;
2;71;243;0;0;0;0;gNOT ACTION 152, OVERLAY 
3;91;12;12;0;3;0;SCAN CHAPTER STARTS 
4;;12;4;0;0;0;PROCR OF OLAID/OLAYER CHAP START 
5;2;12;14;0;3;0;NEXT CHAP START 
6;70;241;11;0;0;0;gMATCH FOUND 
7;94;241;4;0;3;1;gTRY NEXT 
8;80;195;0;0;0;0;gREPORT R 
9;80;295;0;0;0;0;gIGNORE INSTRUCTION 
10;76;241;12;0;0;0;gPRETEND IS CHAP 1 
11;95;0;0;0;3;0;
12;11;0;0;0;0;1;
13;5;12;46;0;0;0;
14;0;12;61;0;0;0;IS C-LINE READ YET? 
15;70;242;0;0;0;0;gTHIS IS C-LINE NOW 
16;0;12;46;0;0;0;OLAID CHAP 
17;5;12;47;0;0;0;
18;76;247;0;0;0;0;gO/P+READ C-LINE 
SHEET;144
PROCR;242;UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS 
NOTES;RADIX;;
0;10;0;0;0;0;10;BIT 5 
1;32;0;0;0;0;10-;
2;10;0;0;0;0;10;
3;124;12;46;0;1;0;OLAYER;SET 'NON-UNIQUE' IND 
4;37;92;9;0;0;0;;BIT 5 
5;124;12;47;0;1;0;OLAID 
6;37;92;9;0;0;0;
7;10;0;0;0;0;0;
8;35;0;0;0;0;1;
9;124;12;46;0;1;0;
10;36;92;9;0;0;0;OLAYER PREVIOUS CORR CHAP 
11;5;12;46;0;0;0;
12;124;12;47;0;1;0;
13;36;92;9;0;0;0;CORR CHAP OF OLAID 
14;3;12;47;0;0;0;
15;2;12;46;0;0;0;
16;70;247;0;0;0;0;gNO ADJUSTMENTS NEEDED 
17;73;242;22;0;0;0;g12/46>12/47 
18;34;12;46;0;0;0;
19;4;12;46;0;0;0;
20;32;0;0;0;0;10;
21;5;12;47;0;0;0;GREATER IN 46;LESSER IN 47 
22;91;12;12;0;3;0;UNCORR CHAPS:0 
23;35;0;0;0;0;1;
24;10;0;0;0;0;0;
25;36;92;10;0;3;0;CORR CHAP 
26;2;12;46;0;0;0;GREATER IN THIS OVERLAY 
27;71;242;30;0;0;0;gNOT TO BE REPLACED 
28;;12;47;0;0;0;
29;37;92;10;0;3;0;REPLACE 
30;94;242;24;0;3;1;gTREAT ALL CHAPS 
31;76;247;0;0;0;0;O/P INSTRUCTION 
SHEET;145
PROCR;243;STORE OLD/NEW RADICES FOR CONVERT ACTIONS 
NOTES;RADIX;;
0;62;0;0;0;0;0;
1;;12;54;0;0;0;
2;12;0;0;0;0;5:;
3;70;243;12;0;0;0;gACTION 93 DEC-BIN
4;11;0;0;0;0;1+;
5;70;243;30;0;0;0;gACTION 65 ANY-ANY
6;11;0;0;0;0;2;
7;70;243;11;0;0;0;gACTION 63 DEC-STERLING
8;12;0;0;0;0;1;
9;71;246;0;0;0;0;gACTION NOT 64, STERLING - DECIMAL
10;10;0;0;0;0;7£:££802;
11;11;0;0;0;0;66.64;
12;11;0;0;0;0;6666600000;
13;5;12;46;1;0;0;STORE OLD - NEW RADIX
14;;92;7;0;0;0;CTR OF CONVERT TABLES TO DATE
15;30;0;0;0;0;5;
16;91;0;0;0;3;0;
17;70;243;25;0;0;0;g NONE STORED YET
18;;99;0;1;3;0;
19;2;12;46;1;0;0;
20;70;247;0;0;0;0;g ALREADY STORED
21;94;243;18;0;3;2;
22;0;92;7;0;0;0;
23;12;0;0;0;0;32;50
24;72;247;0;0;0;0;g DONT STORE 26-TH
25;0;12;46;1;0;0;
26;5;99;0;1;3;0;
27;10;0;0;0;0;2;
28;4;92;7;0;0;0;AUG CTR
29;76;247;0;0;0;0;g O/P INSTRUCTION
30;;1;16;0;0;0;L=RADIX
31;5;12;46;0;0;0;
32;;12;61;0;0;0;C-LINE IND
33;70;243;14;0;0;0;g THIS IS C-LINE;INSERT RADIX PAIR
34;;12;46;0;0;0;
35;5;12;47;0;0;0;SET OLD RADIX
36;76;247;0;0;0;0;g GET C-LINE
SHEET;146
PROCR;244;CONVERT (A) TO DEC
NOTES;;;
0;81;244;0;0;0;0;
1;5;320;40;1;0;0;
2;60;0;0;0;0;0;SET DEC
3;124;320;0;0;2;0;
4;112;320;40;1;0;0;
5;82;244;0;0;0;0;
SHEET;147
PROCR;245;CONVERT (A) TO BINARY
NOTES;;;
0;81;245;0;0;0;0;
1;5;320;40;1;0;0;
2;62;0;0;0;0;0;SET BIN
3;124;320;20;0;2;0;
4;112;320;40;1;0;0;
5;82;245;0;0;0;0;
SHEET;148
PROCR;246;STORE UNPACK AND CONDENSE
NOTES;RADIX;;
0;0;12;61;0;0;0;
1;70;247;0;0;0;0;g THIS IS C-LINE
2;0;12;54;0;0;0;ACTION
3;101;0;51;1;2;0;
4;70;246;9;0;0;0;g UNPACK
5;101;0;2;1;2;0;
6;70;246;9;0;0;0;gCONDENSE
7;101;0;104;1;2;0;
8;71;247;0;0;0;0;gNOT EXPAND (157)
9;;12;4;0;0;0;SECTION
10;80;245;0;0;0;0;gCONVERT
11;3;12;88;0;0;0;SEC/ PROCR
12;12;0;0;0;0;64;100
13;72;247;0;0;0;0;gDON'T STORE FOR 3-DIGT REP
14;;98;0;1;0;0;
15;91;98;0;0;3;0;
16;70;246;26;0;0;0;gNONE STORED YET
17;10;0;0;0;0;0;
18;35;0;0;0;0;11;
19;36;98;2;0;3;0;
20;2;12;88;0;0;0;
21;70;247;0;0;0;0;g MATCH FWND
22;94;246;17;0;3;1;
23;0;98;1;0;0;0;
24;12;0;0;0;0;t;
25;72;247;0;0;0;0;g DONT STORE 11 - TH
26;0;92;0;0;0;0;THIS CHAP UNCORR
27;30;0;0;0;0;4;
28;1;12;88;0;0;0;SECTION
29;5;98;2;0;3;0;
30;10;0;0;0;0;1;
31;4;98;1;0;0;0;AUG CTR
SHEET;149
PROCR;247;FORM SERIAL NUMBER
NOTES;RADIX;;
0;0;12;85;0;0;0;TEST IF TO IGNORE
1;70;247;3;0;0;0;THIS BLOCK
2;80;295;0;0;0;0;YES - IGNORE
3;60;0;0;0;0;0;
4;;92;3;0;0;0;TRANSLATOR'S PROCR
5;30;0;0;0;0;2;
6;5;12;88;0;0;0;
7;86;191;0;0;0;0;
8;12;0;0;0;0;5;
9;70;247;24;0;0;0;gVALUES
10;;12;9;0;0;0;LONE SERIAL IN PROCR
11;12;0;0;0;0;100;
12;73;247;24;0;0;0;gOK
13;86;191;0;0;0;0;
14;12;0;0;0;0;2;
15;70;247;20;0;0;0;gINSTRUCTIONS, IGNORE
16;35;0;0;0;0;111111;TABLE ENTRIES, CONSTS='SER'
17;10;0;0;0;0;725569;
18;37;1;44;1;0;0;
19;76;247;21;0;0;0;
20;80;295;0;0;0;0;gIGNORE
21;10;0;0;0;0;99;
22;2;12;90;0;0;0;(0=SHORT, 1=LONG)
23;76;247;25;0;0;0;gSET 98 OR 99
24;;12;9;0;0;0;
25;4;12;88;0;0;0;
26;52;1;2;0;0;0;EDIT SERIAL
27;C;306;4;0;0;0;
SHEET;150
PROCR;248;AUGMENT INSTRUCTION COUNTER
NOTES;RADIX;;
0;10;0;0;0;0;0;
1;85;191;0;0;0;0;
2;C;248;9;0;0;0;g'PROCR/TABLE'
3;C;249;11;0;0;0;gINSTRUCTIONS/'NNOTES'
4;C;249;0;0;0;0;gTABLE ENTRY/'NOTES'
5;C;249;5;0;0;0;gCONSTANT/'CONST'
6;C;248;7;0;0;0;VALUE ENTRY/VALUE
7;5;1;2;1;0;0;CLEAR LINE SERIAL
8;76;248;11;0;0;0;
9;0;12;9;0;0;0;SERIAL THIS LINE WITHIN SECTION
10;71;248;16;0;0;0;gNOTES BLOCK
11;;319;20;0;0;0;SW 27/5 LAST TIME THRU
12;12;0;0;0;0;3;
13;71;248;16;0;0;0;gLAST TIME WASN'T FOR CONSTANTS
14;10;0;0;0;0;1;
15;5;29;6;1;0;0;CONSTS END SIGN
16;10;0;0;0;0;0;
17;76;249;11;0;0;0;
SHEET;151
PROCR;249;AUGMENT INSTRUCTION
NOTES;RADIX;;
0;;12;9;0;0;0;
1;12;0;0;0;0;1;
2;70;249;11;0;0;0;
3;10;0;0;0;0;2;
4;76;249;12;0;0;0;
5;;12;9;0;0;0;
6;71;249;10;0;0;0;gNOT 'CONST' BLOCK
7;10;0;0;0;0;1;
8;4;12;9;0;0;0;(SO AS TO STEP BY 2 EVENTUALLY)
9;76;248;11;0;0;0;gTEST IF LAST SECTION WAS CONSTANTS
10;0;12;90;0;0;0;
11;11;0;0;0;0;1;
12;4;12;9;0;0;0;
13;0;12;33;0;0;0;
14;70;249;18;0;0;0;gBLOCK EX MT
15;0;12;1;0;0;0;
16;30;0;0;0;0;2;
17;5;1;0;1;0;0;AMEND IND
18;5;92;34;1;0;0;CLEAR
SHEET;152
PROCR;250;EDIT
0;62;0;0;0;0;0;
1;;318;9;0;0;0;INDICATOR
2;70;250;5;0;0;0;gFIRST RECORD
3;80;288;0;0;0;0;
4;76;250;6;0;0;0;
5;80;289;0;0;0;0;gWRITE LAST SECTION
6;;12;38;0;0;0;
7;71;250;28;0;0;0;gDIRECTIVE
8;;27;5;0;0;0;SWITCH
9;12;0;0;0;0;4;
10;70;250;23;0;0;0;gVALUES
11;124;27;5;0;1;0;
12;;305;4;0;0;0;
13;128;29;2;1;2;0;EDIT PROCR, TABLE, CONST.
14;;319;46;1;0;0;
15;124;27;5;0;1;0;
16;124;305;0;0;1;0;
17;128;29;0;1;1;0;COPY ANNOTATION
18;;1;44;1;0;0;
19;124;27;5;0;1;0;
20;124;305;0;0;1;0;
21;5;29;2-;1;0;0;COPY REPORTS PASS 1
22;76;250;46;0;0;0;
23;55;1;11;0;0;16;VALUES
24;C;29;10;2;0;0;
25;52;29;6;0;0;0;REF+ITEM
26;C;315;0;0;0;0;
27;76;250;46;0;0;0;
28;52;29;2;0;0;0;DIRECTIVES
29;C;307;14;0;0;0;
30;10;0;0;0;0;0;
31;5;319;20;0;0;0;
32;;27;5;0;0;0;
33;12;0;0;0;0;1;
34;71;250;41;0;0;0;gNOT PROCR
35;;12;38;0;0;0;
36;73;250;41;0;0;0;NOT NOTES OF PROCR
37;;1;8;1;0;0;
38;5;29;12;1;0;0;COPY 'RADIX'
39;5;29;8;1;0;0;CLEAR
40;76;250;43;0;0;0;
41;;1;44;1;0;0;PASS 1 REPORTS
42;5;29;12;1;0;0;
43;55;1;16;1;0;28;BULK COPY ANNOTATION
44;C;29;14;1;0;0;
45;76;250;48;0;0;0;
46;;27;5;0;0;0;
47;5;319;20;0;0;0;
48;10;0;0;0;0;1;
49;5;318;9;0;0;0;SET INDICATOR
50;60;0;0;0;0;0;
51;10;0;0;0;0;0;
52;5;12;115;0;0;0;ERROR REPROT SHIFT CONTROL
53;0;23;47;0;0;0;
54;35;0;0;0;0;1111;
55;37;29;2;1;0;0;
56;10;0;0;0;0;0;
57;5;23;47;0;0;0;IMPLICITLY AMENDED'
58;82;186;0;0;0;0;
SHEET;153
PROCR;251;START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END
0;80;294;0;0;0;0;gTEST PT AT DIRECTIVE/END
1;70;252;0;0;0;0;gNO
2;0;12;45;0;0;0;
3;71;251;12;0;0;0;gPT AT END
4;;27;1;0;0;0;
5;70;251;8;0;0;0;gSINGLE-RECORD BLOCKS
6;;0;4;2;8;0;(ABS MR)
7;76;251;9;0;0;0;
8;0;7;6;2;0;0;MT SERIAL
9;2;9;4;2;0;0;A6 SERIAL
10;70;252;0;0;0;0;gMT AMENDED
11;72;253;0;0;0;0;gMT>PT, REPORT
12;80;299;0;0;0;0;gTEST MT=END 
13;10;0;0;0;0;0;SET 'MT INPUT' 
14;5;12;33;0;0;0;
15;80;303;0;0;0;0;gTEST MT=PROCR 
16;80;284;0;0;0;0;gUNPACK 
17;80;186;0;0;0;0;gCHECK/EDIT/OUTPUT 
18;80;302;0;0;0;0;gGET NEXT RECORD 
19;76;251;2;0;0;0;
SHEET;154
PROCR;252;SWITCH FOR AMENDMENTS 
NOTES;RADIX;;
0;85;252;0;0;0;0;
1;C;254;0;0;0;0;gREPLACE 
2;C;255;0;0;0;0;gDELETE 
3;C;258;0;0;0;0;gINSERT BEFORE 
4;C;256;0;0;0;0;gREPLACE ANNOTATION 
SHEET;155
PROCR;253;DEAL WITH OUT-OF-SEQUENCE DIRECTIVE 
NOTES;RADIX;;
0;;1;4;1;0;0;AMENDMENTS MODS ARE
1;124;319;20;0;1;0;
2;124;305;8;0;1;0;
3;5;29;0;1;0;0;REPORT WORD 
4;34;1;2;1;0;0;SERIAL 
5;80;259;0;0;0;0;PUT ERROR REPORT
6;10;0;0;0;0;1:5:;'??' OF 5-DIGIT
7;3;27;6;0;0;0;SET 'PT OMITTED' 
8;35;0;0;0;0;1111;SERIAL AND
9;124;319;20;0;1;0;
10;124;305;8;0;1;0;
11;37;29;0;1;0;0;REPORT WORD 
12;80;292;0;0;0;0;INPUT ON PAPER 
13;80;294;0;0;0;0;FIND DIRECTIVE 
14;70;253;12;0;0;0;gREAD/IGNORE PT TO NEXT DIRECTIVE 
15;76;251;2;0;0;0;gMAKE THIS AMENDMENT 
SHEET;156
PROCR;254;REPLACE 
NOTES;RADIX;;
0;;9;50;2;0;0;'PASS 0' IND 
1;71;254;32;0;0;0;gREJECT 
2;;27;5;0;0;0;'UNPACK SWITCH' 
3;5;296;0;0;0;0;
4;80;303;0;0;0;0;gTEST MT=PROCR 
5;0;12;38;0;0;0;
6;5;197;0;0;0;0;
7;80;293;0;0;0;0;gTEST PT=STACK DIRECTIVE 
8;0;12;38;0;0;0;IS REPLACING BLOCK STACK DIR  OR NOT
9;2;197;0;0;0;0;ARE BOTH BLOCKS SIMILAR 
10;71;254;27;0;0;0; ILLEGAL?
11;10;0;0;0;0;1;SET AS PT INPUT 
12;5;12;33;0;0;0;
13;80;283;0;0;0;0;gUNPACK PT 
14;80;299;0;0;0;0;gDON'T REPLACE END SIGN 
15;0;12;38;0;0;0;
16;72;254;23;0;0;0;gNOT PT DIRECTIVE 
17;;27;1;0;0;0;
18;70;254;21;0;0;0;g1 RECORD PER BLOCK 
19;;0;8;1;8;0;PROCR NO 
20;76;254;22;0;0;0;
21;0;7;16;1;0;0;
22;5;1;8;1;0;0;TRANSFER MT PROCR NUMBER 
23;80;302;0;0;0;0;gGET NEXT A1 RECORD 
24;80;186;0;0;0;0;gCHECK/EDIT/OUTPUT 
25;80;292;0;0;0;0;gREAD PT 
26;76;251;0;0;0;0;
27;0;12;38;0;0;0;PT DIRECTIVE 
28;1;197;0;0;0;0;MT DIRECTIVE 
29;72;254;11;0;0;0;gNEITHER IS STACK DIRECTIVE, ALLOW REPLAC 
30;;296;0;0;0;0;
31;5;27;5;0;0;0;RESTORE SWITCH 
32;10;0;0;0;0;69;
33;76;255;34;0;0;0;gREPORT 
SHEET;157
PROCR;255;DELETION LOOP 
NOTES;RADIX;;
0;80;299;0;0;0;0;gEND SIGN ON MT? 
1;;9;4;1;0;0;
2;5;1;0;1;0;0;STORE SERIAL 
3;;9;50;2;0;0;'PASS 0' IND 
4;71;255;33;0;0;0;gREPORT 
5;80;292;0;0;0;0;gREAD PT 
6;80;294;0;0;0;0;gTEST DIRECTIVE 
7;71;255;44;0;0;0;gYES (SINGLE-LINE DELETE) 
8;;9;50;2;0;0;PASS 0 IND 
9;71;255;33;0;0;0;gMOD REJECTED 
10;;27;1;0;0;0;
11;70;255;14;0;0;0;g1 RECORD/BLOCK 
12;;0;4;2;8;0;
13;76;255;15;0;0;0;
14;;7;6;2;0;0;MT SERIAL 
15;30;0;0;0;0;8;
16;70;255;18;0;0;0;gDIRECTIVE DELETED 
17;80;188;0;0;0;0;gSET 'PRINT PROCEDURE' 
18;80;302;0;0;0;0;gGET NEXT RECORD 
19;80;299;0;0;0;0;gTEST END 
20;;27;1;0;0;0;
21;70;255;24;0;0;0;
22;;0;4;2;8;0;
23;76;255;25;0;0;0;
24;;7;6;2;0;0;MT SERIAL 
25;2;1;2;2;0;0;PT SERIAL 
26;71;255;32;0;0;0;
27;80;302;0;0;0;0;gGET NEXT RECORD 
28;80;292;0;0;0;0;gREAD PT(NEXT DIRECTIVE) 
29;80;294;0;0;0;0;gTEST DIRECTIVE 
30;71;251;2;0;0;0;gYES 
31;76;255;33;0;0;0;gREJECT 
32;73;255;18;0;0;0;gLOOP 
33;10;0;0;0;0;54;REPORT
34;30;0;0;0;0;8;
35;124;319;20;0;1;0;
36;124;305;8;0;1;0;
37;5;29;0;1;0;0;REPORT WORD 
38;;27;1;0;0;0;
39;70;255;42;0;0;0;g1 RECORD BLOCK 
40;34;0;4;1;8;0;
41;76;253;5;0;0;0;
42;34;7;6;1;0;0;SERIAL BEING DELETED 
43;76;253;5;0;0;0;gREPORT 
44;;27;1;0;0;0;
45;70;255;48;0;0;0;
46;;0;4;2;8;0;
47;76;255;49;0;0;0;
48;;7;6;2;0;0;
49;30;0;0;0;0;8;
50;70;255;52;0;0;0;
51;80;188;0;0;0;0;
52;80;302;0;0;0;0;gGET RECORD AFTER DELETED ONE 
53;;27;1;0;0;0;
54;70;255;57;0;0;0;
55;;0;4;2;8;0;
56;76;255;58;0;0;0;
57;;7;6;2;0;0;
58;2;1;0;2;0;0;PT SERIAL FOR DELETION 
59;70;255;52;0;0;0;gDELETE ALL BLOCKS THIS SERIAL 
60;76;251;0;0;0;0;
SHEET;158
PROCR;256;REPLACE ANNOTATION 
NOTES;RADIX;;
0;80;303;0;0;0;0;gTEST MT=PROCR 
1;80;283;0;0;0;0;gUNPACK PT BLOCK 
2;;9;50;2;0;0;'PASS 0' IND 
3;70;256;6;0;0;0;
4;10;0;0;0;0;51;
5;76;255;34;0;0;0;gREPORT, READ NEXT DIRECTIVE 
6;10;0;0;0;0;1;
7;3;23;47;0;0;0;SET 'IMPLICITLY AMENDED' 
8;5;12;86;0;0;0;SET IND FOR SR 
9;80;257;0;0;0;0;
10;10;0;0;0;0;0;
11;5;12;86;0;0;0;
12;80;292;0;0;0;0;gREAD PT 
13;10;0;0;0;0;0;
14;5;12;33;0;0;0;
15;80;186;0;0;0;0;SET 'MT IN' 
16;80;302;0;0;0;0;gCHECK/EDIT/OUTPUT 
17;76;251;0;0;0;0;gGET NEXT A1 RECORD 
SHEET;159
PROCR;257;ENTRY TO 'UNPACK' SR 
0;81;257;0;0;0;0;
1;0;257;0;0;0;0;
2;5;284;0;0;0;0;PLANT LINK 
3;76;284;2;0;0;0;AVOID BULK CLEAR 
SHEET;160
PROCR;258;INSERTION LOOP 
NOTES;RADIX;;
0;;9;50;2;0;0;PASS 0' IND 
1;71;258;44;0;0;0;gREPORT 
2;5;12;38;0;0;0;SET NON DIRECTIVE 
3;87;27;5;0;0;0;
4;C;258;15;0;0;0;
5;C;258;15;0;0;0;
6;C;258;8;0;0;0;CONST 
7;C;258;15;0;0;0;
8;54;1;0;1;0;46;
9;124;312;0;0;2;0;
10;80;326;0;0;0;0;UNPACK (PRETEND ITS PROCR) 
11;10;0;0;0;0;0;
12;5;1;20;1;0;0;CLEAR CLEO WORD 
13;5;1;44;1;0;0;CLEAR ERROR WORD 
14;76;258;16;0;0;0;
15;80;283;0;0;0;0;UNPACK 
16;90;0;0;0;1;6;
17;C;0;0;0;0;44;
18;;1;0;1;1;0;
19;71;258;22;0;0;0;gREPORT, CODING  
20;94;258;18;0;1;2;
21;76;258;39;0;0;0;
22;10;0;0;0;0;73;
23;30;0;0;0;0;8;
24;124;319;20;0;1;0;
25;124;305;8;0;1;0;
26;5;29;0;1;0;0;REPORT WORD 
27;;27;1;0;0;0;
28;70;258;31;0;0;0;g1 RECORD/BLOCK 
29;34;0;4;1;8;0;LINE SERIAL 
30;76;258;32;0;0;0;
31;34;7;6;1;0;0;LINE SERIAL 
32;80;259;0;0;0;0;STORE REPORT 
33;10;0;0;0;0;1:5:;
34;3;27;6;0;0;0;SET 'PT OMITTED' 
35;35;0;0;0;0;1111;
36;124;319;20;0;1;0;
37;124;305;8;0;1;0;
38;37;29;0;1;0;0;
39;80;292;0;0;0;0;gREAD PT 
40;80;294;0;0;0;0;FIND AMENDMENT DIRECTIVE
41;71;251;2;0;0;0;gNEW DIRECTIVE OR END SIGN 
42;;9;50;2;0;0;PASS 0' IND 
43;70;258;46;0;0;0;gMOD OK 
44;10;0;0;0;0;73;
45;76;255;34;0;0;0;gREPORT, READ TO NEXT AMEND DIRECTIVE 
46;80;293;0;0;0;0;gTEST STACK DIRECTIVE 
47;10;0;0;0;0;1;
48;5;12;33;0;0;0;SET 'PT IS INPUT' 
49;80;283;0;0;0;0;gUNPACK 
50;80;186;0;0;0;0;gCHECK/EDIT/OUTPUT 
51;76;258;39;0;0;0;
SHEET;161
PROCR;259;STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS 
0;81;259;0;0;0;0;(B)=REPORT WORD 
1;124;319;20;0;1;0;
2;124;305;0;0;1;0;
3;;29;15;0;0;0;LAST 2.5 CHARS ANNOTATION 
4;2;319;25;0;0;0;
5;70;259;12;0;0;0;gLINE IGNORED;DON'T OVERWRITE WORD 
6;10;0;0;0;0;0;CLEAR SIGN BIT A 
7;32;0;0;0;0;10;
8;124;319;20;0;1;0;
9;124;305;0;0;1;0;LAST FIVE CHARS ANNOTATION
10;5;29;14;1;0;0;
11;82;259;0;0;0;0;
12;32;0;0;0;0;10;
13;124;319;20;0;1;0;
14;124;305;0;0;1;0;
15;5;29;12;1;0;0;
16;82;259;0;0;0;0;
SHEET;162
PROCR;260;CONSTANTS ROUTINE
NOTES;RADIX;;
0;5;12;69;0;0;0;
1;5;12;66;1;0;0;CLEAR INDICATORS
2;5;12;70;0;0;0;
3;84;695;0;0;0;0;CLEAR WL=SWITCH
4;91;12;66;0;2;0;CLEAR R2
5;90;0;0;0;3;0;
6;C;0;0;0;0;5;
7;90;0;0;0;1;0;
8;C;0;0;0;0;18;
9;54;94;0;0;0;60;CLEAR UNPACK AREA
10;62;0;0;0;0;0;
11;34;1;6;1;0;0;FIRST WORD
12;;12;33;0;0;0;NON ZERO IF EX PT
13;5;12;70;0;0;0;SET 'NE FOUND' IND
14;76;261;1;0;0;0;
15;80;295;0;0;0;0;gIGNORE CONST
SHEET;163
PROCR;261;
NOTES;RADIX;;
0;80;274;0;0;0;0;gGET NEXT CHAR
1;32;0;0;0;0;2;
2;3;12;88;1;0;0;
3;12;0;0;0;0;7:;
4;70;261;10;0;0;0;gNE
5;12;0;0;0;0;1;
6;70;265;0;0;0;0;gBE,STORE NE AND END
7;;12;70;0;0;0;
8;71;261;0;0;0;0;gNO, DONT STORE CHAR
9;76;261;15;0;0;0;gSTORE AND PROCESS
10;;12;70;0;0;0; 'NE FOUND' IND
11;70;265;0;0;0;0;gYES, STORE NE AND END
12;5;12;70;0;0;0;
13;5;12;70;0;0;0;CLEAR
14;76;261;0;0;0;0;gGNC
15;;12;88;0;0;0;
16;5;94;0;0;2;0;STORE THIS CHAR
SHEET;164
PROCR;262;
NOTES;RADIX;;
0;96;0;0;0;2;0;
1;94;262;2;0;2;1;
2;71;262;19;0;0;0;gNOT FIRST CHAR IN LINE
3;;12;88;0;0;0;THIS CHAR
4;12;0;0;0;0;7t;
5;70;262;21;0;0;0;g'('
6;83;263;8;0;0;5;IGNORE '('
7;5;94;60;0;0;0;
8;0;94;61;0;0;0;SF CTR IN DIRECTIVE LINE
9;70;262;17;0;0;0;gWRONG
10;84;267;0;0;0;0;SET CHECK SWITCH
11;C;94;62;0;0;0;
12;0;94;62;0;0;0;SWITCH FOR FIRST SUBFIELD
13;12;0;0;0;0;5;
14;71;262;19;0;0;0;gNOT REL ADDRESS
15;83;695;0;0;0;1;SET WL=1
16;76;262;19;0;0;0;
17;83;263;8;0;0;1;gIGNORE UNDIRECTED CONST
18;80;263;8;0;0;0;gCLEAR OUT ALL DETAILS
19;;12;88;0;0;0;
20;76;263;8;0;0;0;CHECK
21;80;263;8;0;0;0;gCLEAR OUT ALL DETAILS
22;76;263;18;0;0;0;gSET SWITCH AT 2
SHEET;165
PROCR;263;
NOTES;RADIX;;
0;81;263;8;0;0;0;
1;5;94;60;1;0;0;CLEAR DETAILS
2;5;94;62;1;0;0;
3;5;94;64;1;0;0;
4;5;94;66;1;0;0;
5;5;94;68;1;0;0;
6;5;94;70;1;0;0;
7;82;263;8;0;0;0;
8;85;263;8;0;0;0;
9;C;260;15;0;0;0;>IGNORE
10;C;263;38;0;0;0;>PREVIOUS WAS'C' DIRECTIV E LETTER
11;C;264;37;0;0;0;>')' EXPECTED
12;C;263;14;0;0;0;>',' FORBIDDEN, '(' ALLOWED
13;C;263;20;0;0;0;>'(' FORBIDDEN, ',' ALLOWED
14;12;0;0;0;0;7+;COMMA
15;70;262;17;0;0;0;gIGNORE
16;11;0;0;0;0;2;
17;71;264;0;0;0;0;gCHECK CHAR
18;83;263;8;0;0;2;SET TO EXPECT DIRECTIVE LETTER
19;76;261;0;0;0;0;gGET NEXT CHAR
20;12;0;0;0;0;7+;
21;71;263;35;0;0;0;gNOT COMMA
22;10;0;0;0;0;2;
23;4;94;60;0;0;0;
24;124;94;60;0;0;0;SF CTR IN NON-DIRECTIVE LINE
25;;94;62;0;0;0;SF DETAILS
26;70;262;17;0;0;0;gIGNORE
27;84;267;0;0;0;0;
28;86;267;0;0;0;0;
29;12;0;0;0;0;5;
30;71;261;0;0;0;0;gNOT REL ADDRESS
31;96;0;0;0;2;0;
32;11;0;0;0;0;1;
33;84;695;0;0;0;0;WL=LOCN OF SECOND CHAR
34;76;261;0;0;0;0;gGET NEXT CHAR
35;11;0;0;0;0;2;
36;71;264;0;0;0;0;gNOT '(', CHECK CHAR
37;76;260;15;0;0;0;gIGNORE;GET NEXT CHAR
38;12;0;0;0;0;51;
39;70;263;57;0;0;0;gA
40;12;0;0;0;0;1;
41;70;263;55;0;0;0;gB
42;12;0;0;0;0;1;
43;70;263;50;0;0;0;gC
44;12;0;0;0;0;1;
45;70;263;56;0;0;0;gD
46;12;0;0;0;0;13;
47;70;263;54;0;0;0;gP
48;12;0;0;0;0;2;
49;71;262;17;0;0;0;gIGNORE;NOT R
50;96;0;0;0;2;0;
51;11;0;0;0;0;2;
52;84;695;0;0;0;0;WL=LOCN OF SECOND CHAR
53;10;0;0;0;0;1;RANDO
54;11;0;0;0;0;1;P
55;11;0;0;0;0;1;B
56;11;0;0;0;0;1;D
57;11;0;0;0;0;1;A
58;84;267;0;0;0;0;SET CHECKING SWITCH
59;83;263;8;0;0;3;SET TO EXPECT ')'
60;76;261;0;0;0;0;gGET NEXT CHAR
SHEET;166
PROCR;264;
NOTES;RADIX;;
0;85;267;0;0;0;0;CHECK SWITCH
1;C;261;0;0;0;0;>A,GNC
2;C;264;6;0;0;0;>D
3;C;264;15;0;0;0;>B
4;C;264;19;0;0;0;>P
5;C;264;24;0;0;0;>R
6;0;12;88;0;0;0;;DECIMAL
7;30;0;0;0;0;1-;CONTROL
8;12;0;0;0;0;2;
9;70;264;12;0;0;0;gREPORT *
10;12;0;0;0;0;3;
11;73;261;0;0;0;0;gOK
12;10;0;0;0;0;5e;*
13;5;1;44;1;0;0;
14;76;261;0;0;0;0;
15;0;12;88;2;0;0;BASIC BINARY
16;12;0;0;0;0;t;
17;72;264;12;0;0;0;gREPORT 
18;76;264;6;0;0;0;gCHECK CONTROL 
19;0;12;88;2;0;0;BASIC PATTERN
20;70;264;6;0;0;0;
21;12;0;0;0;0;1;
22;70;264;6;0;0;0;
23;76;264;12;0;0;0;gREPORT 
24;;12;88;0;0;0;CHAR RELATIVE ADDRESS
25;12;0;0;0;0;4:;
26;71;264;31;0;0;0;gNOT COLON 
27;0;12;66;0;0;0;
28;5;12;67;0;0;0;12/67=REF, 12/66=ITEM 
29;5;12;66;0;0;0;
30;76;264;6;0;0;0;gCHECK CONTROL 
31;0;12;66;0;0;0;
32;30;0;0;0;0;1;
33;1;12;88;2;0;0;ASSEMBLE REF/ITEM 
34;5;12;66;0;0;0;
35;83;263;8;0;0;5;INHIBIT ANOTHER DIRECTIVE 
36;76;264;15;0;0;0;gCHECK AS BINARY 
37;12;0;0;0;0;7e;
38;70;264;46;0;0;0;gIS ')' 
39;0;94;2-;0;2;0;
40;12;0;0;0;0;52;
41;70;264;15;0;0;0;LAST CHAR WAS 'B' +CHECK THIS 
42;0;94;3-;0;2;0;
43;12;0;0;0;0;52;
44;70;264;15;0;0;0;ONE BEFORE WAS 'B' +CHECK THIS 
45;76;262;17;0;0;0;NEITHER WAS 'B' +IGNORE 
46;86;267;0;0;0;0;CHECK SWITCH 
47;124;94;61;0;0;0;CTR IN DIRECTIVE LINE 
48;5;94;62;0;0;0;
49;10;0;0;0;0;2;
50;4;94;61;0;0;0;
51;83;263;8;0;0;4;COMMA FORBIDDEN' 
52;76;261;0;0;0;0;gGNC 
SHEET;167
PROCR;265;TIDY UP AND REASSEMBLE CONST 
NOTES;RADIX;;
0;10;0;0;0;0;7:;
1;5;94;0;0;2;0;STORE END SIGN 
2;86;263;8;0;0;0;DIRECTIVE SWITCH 
3;12;0;0;0;0;4;
4;72;265;6;0;0;0;gOK SWITCH SETTINGS 
5;80;295;0;0;0;0;gIGNORE THIS CONST 
6;;94;60;0;0;0;COMMAS X2 
7;70;265;12;0;0;0;
8;11;0;0;0;0;2;
9;2;94;61;0;0;0;DIRECTIVE CTR 
10;70;265;12;0;0;0;
11;80;295;0;0;0;0;gIGNORE THIS CONST 
12;;94;61;0;0;0;DIRECTIVE CTR 
13;12;0;0;0;0;+;
14;73;265;16;0;0;0;gOK, NOT MORE THAN 5 
15;80;295;0;0;0;0;gIGNORE 
16;96;0;0;0;2;0;
17;5;12;70;0;0;0;TOT NO OF CHARS
18;91;0;0;0;2;0;CLEAR BOTH
19;91;0;0;0;3;0;
20;86;695;0;0;0;0;
21;70;265;45;0;0;0;gNO REL ADDRESS IN CONST
22;91;0;0;0;1;0;
23;0;12;67;0;0;0;REF
24;12;0;0;0;0;100;
25;73;265;45;0;0;0;gSECTION
26;12;0;0;0;0;899;
27;72;265;45;0;0;0;gEX RANGE
28;0;12;67;0;0;0;
29;80;200;0;0;0;0;gREPLACE PROCR
30;C;202;0;0;0;0;
31;;12;119;0;0;0;
32;62;0;0;0;0;0;
33;32;0;0;0;0;2-;REPLACE 3-DIGIT NUMBER
34;5;94;1-;0;1;0;(FIRST DIGIT ALWAYS ZERO)
35;32;0;0;0;0;1;
36;71;265;38;0;0;0;
37;10;0;0;0;0;30;
38;5;94;0;0;1;0;
39;32;0;0;0;0;1;
40;71;265;42;0;0;0;
41;10;0;0;0;0;30;
42;5;94;1;0;1;0;
43;54;1;6;0;0;18;
44;76;265;81;0;0;0;gASSEMBLE
45;0;12;33;0;0;0;
46;70;266;15;0;0;0;gMT
47;54;1;6;0;0;18;CLEAR 1/6'-1.22'=EDIT AREA
48;87;27;10;0;0;0;
49;C;265;81;0;0;0;gPT
50;C;265;51;0;0;0;gCARDS
51;;94;61;0;0;0;DIRECTIVE CTR
52;12;0;0;0;0;4;
53;72;265;70;0;0;0;gMIXED CONSTANT
54;86;267;0;0;0;0;
55;12;0;0;0;0;1;
56;71;265;70;0;0;0;gNOT ALPHA
57;;94;0;0;0;0;FIRST CHAR
58;12;0;0;0;0;7t;
59;70;265;61;0;0;0;g'('
60;10;0;0;0;0;3-;
61;11;0;0;0;0;3;
62;17;12;90;0;0;3;LONG/SHORT CTR
63;11;0;0;0;0;1.00002;END VLAUE 30
64;3;12;70;0;0;0;NEW CONSTANT LENGTH
65;91;0;0;0;1;0;
66;10;0;0;0;0;7:;
67;5;94;0;0;1;0;
68;94;265;67;0;1;1;gCLEAR REST OF CONSTANT
69;76;265;81;0;0;0;
70;90;0;0;0;1;28;
71;C;0;0;0;0;0;
72;;94;0;0;1;0;
73;71;265;75;0;0;0;gFIRST NON ZERO CHAR FROM END
74;94;265;72;0;1;1-;
75;10;0;0;0;0;7:;
76;5;94;1;0;1;0;SET CONST END
77;5;94;29;0;0;0;CLEAR OLD END
78;96;0;0;0;1;0;
79;11;0;0;0;0;1;
80;5;12;70;0;0;0;NEW NUMBERS OF CHARS
81;;94;0;0;2;0;
SHEET;168
PROCR;266;
NOTES;RADIX;;STORE OLD - NEW RADIX
0;30;0;0;0;0;2;CTR OF CONVERT TABLES TO DATE
1;1;94;1;0;2;0;
2;30;0;0;0;0;2;
3;1;94;2;0;2;0;
4;30;0;0;0;0;2;
5;1;94;3;0;2;0;
6;30;0;0;0;0;2;
7;1;94;4;0;2;0;
8;5;1;6;1;3;0;STORE NEXT WORD OF CONST
9;125;0;2;0;3;0;
10;125;0;5;0;2;0;
11;96;0;0;0;2;0;
12;12;0;0;0;0;1;
13;2;12;70;0;0;0;NO OF CHARS
14;73;265;81;0;0;0;g CYCLE FOR MULTIPLE OF 5
15;;1;42;1;0;0;
16;2;319;24;1;0;0;
17;71;266;20;0;0;0;g OK
18;80;263;8;0;0;0;CLEAR ALL DETAILS
19;76;247;0;0;0;0;
20;0;94;61;0;0;0;SF CTR IN DIRECTIVE LINE
21;12;0;0;0;0;4;
22;72;247;0;0;0;0;g CONST IS MIXED OR CONTAINS €
23;90;0;0;0;1;0;CLEAR MODIFIER
24;C;0;0;0;0;0;/////
25;;94;0;0;1;0;NEXT CHAR
26;12;0;0;0;0;7t;Please check I have transcribed literal OK 
27;71;267;0;0;0;0;          > NOT '('
28;0;94;1;0;1;0;CHAR AFTER '('
29;94;0;0;0;1;1;
30;12;0;0;0;0;7e;Please check I have transcribed literal OK. As per DH email 6th March. )'
31;71;266;28;0;0;0;
32;94;0;0;0;1;1;TO SELECT CHAR AFTER DIRECTIVE
SHEET;169
PROCR;267;CONSTANTS SWITCH
NOTES;;;
0;85;267;0;0;0;0;
1;C;268;0;0;0;0;
2;C;269;0;0;0;0;
3;C;270;0;0;0;0;
4;C;272;0;0;0;0;
5;C;267;6;0;0;0;> RELATIVE ADDRESS
6;;12;67;0;0;0;REF (DEC)
7;12;0;0;0;0;1000;
8;72;267;26;0;0;0;g REPORT R
9;11;0;0;0;0;£67;1000 - 99 BIN RADIX
10;72;267;28;0;0;0;gREF IS A PROCR
11;;12;67;0;0;0;SECTION IN DEC
12;70;247;0;0;0;0;gABS ADDRESS, NO CHECKS
13;80;183;0;0;0;0;gDECODE
14;34;12;40;0;0;0;
15;36;12;72;0;3;0;
16;70;267;26;0;0;0;g SECTION NON-EXISTENT;REPORT R
17;10;0;0;0;0;0;
18;33;0;0;0;0;10;SHIFT COLLATOR
19;36;12;72;0;3;0;
20;71;267;26;0;0;0;g SECTION IS TX AREA;REPORT R
21;;12;66;0;0;0;ITEM
22;12;0;0;0;0;8191;
23;73;247;0;0;0;0;g OK
24;80;196;0;0;0;0;g REPORT
25;76;247;0;0;0;0;
26;80;195;0;0;0;0;g REPORT R
27;76;247;0;0;0;0;
28;;12;66;0;0;0;ITEM
29;12;0;0;0;0;99;
30;72;267;24;0;0;0;g REPORT 1
31;76;247;0;0;0;0;g OK
SHEET;170
PROCR;268;CHECK ALPHA CONSTANTS
NOTES;;;
0;0;12;90;0;0;0;LONG/SHORT CONST INDICATOR
1;70;268;3;0;0;0;
2;10;0;0;0;0;3;
3;11;0;0;0;0;2;
4;98;0;0;0;1;0;> MODIFIER = DIRECTIVE LENGTH
5;2;12;70;0;0;0;TOT CHARS IN CONST+1 (INDIRECTIVE)
6;72;247;0;0;0;0;g OK
7;76;273;0;0;0;0;g REPORT
SHEET;171
PROCR;269;CHECK DECIMAL CONSTANTS
NOTES;RADIX;;
0;0;12;90;0;0;0;LONG/SHORT CONST INDICATOR
1;70;269;3;0;0;0;g SHORT
2;10;0;0;0;0;5;
3;11;0;0;0;0;5;
4;5;12;67;0;0;0;
5;124;12;70;0;0;0;CHARS IN CONST
6;;94;1-;0;0;0;FINAL BEFOR NE
7;12;0;0;0;0;10;
8;70;269;11;0;0;0;g ALLOW FOR SIGN
9;0;12;67;0;0;0;
10;76;268;4;0;0;0;g CHECK
11;0;12;67;0;0;0;
12;11;0;0;0;0;1;
13;76;268;4;0;0;0;g CHECK
SHEET;172
PROCR;270;BINARY NUMBERS
NOTES;RADIX;;
0;90;0;0;0;2;0;
1;C;0;0;0;0;11;
2;;94;0;0;1;0;NEXT CHAR
3;12;0;0;0;0;7:;
4;70;271;0;0;0;0;gNUMBER END 
5;11;0;0;0;0;6:;
6;70;271;0;0;0;0;gMINUS SIGN 
7;11;0;0;0;0;10;
8;5;12;10;1;0;0;STORE CHARACTER 
9;0;12;66;1;0;0;
10;30;0;0;0;0;1;
11;1;12;10;2;0;0;BASIC QTT 
12;5;12;66;1;0;0;ASSEMBLE CONST QTT BY QTT 
13;94;270;14;0;1;1;
14;94;270;2;0;2;1;
15;76;273;0;0;0;0;gREPORT TOO MANY CHARS 
SHEET;173
PROCR;271;
NOTES;RADIX;;
0;0;12;90;0;0;0;LONG/SHORT CONST IND 
1;71;247;0;0;0;0;
2;;12;66;1;0;0;
3;12;0;0;0;0;1048576;
4;72;273;0;0;0;0;
5;76;247;0;0;0;0;
SHEET;174
PROCR;272;BINARY PATTERN 
NOTES;RADIX;;
0;0;12;90;0;0;0;LONG/SHORT CONSTANT IND 
1;70;272;3;0;0;0;
2;10;0;0;0;0;14;
3;11;0;0;0;0;14;
4;76;269;4;0;0;0;gCHECK LENGTH VIA DEC 
SHEET;175
PROCR;273;ERROR REPORT 
NOTES;RADIX;;
0;10;0;0;0;0;5e;
1;5;1;44;1;0;0;
2;76;247;0;0;0;0;
SHEET;176
PROCR;274;GET NEXT CHAR OF CONSTANT(IE NEXT WORD) 
NOTES;RADIX;;
0;81;274;0;0;0;0;
1;10;0;0;0;0;0;
2;94;274;11;0;3;1;gHAVE NOT EXHAUSTED 5-CHAR WORD 
3;94;274;8;0;1;2;STEP FOR NEXT WORD IF PRESENT 
4;80;295;0;0;0;0;*IGNORE MORE THAN 45 CHAR 
5;10;0;0;0;0;7:;
6;32;0;0;0;0;2-;
7;82;274;0;0;0;0;
8;90;0;0;0;3;0;R3 COUNTS A 5-CHAR WORD 
9;C;0;0;0;0;5;
10;34;1;6;1;1;0;NEXT WORD CONSTANT 
11;82;274;0;0;0;0;
SHEET;177
PROCR;275;ALTERNATIVE ENTRY TO UPDATE ADDRESS 
0;81;275;0;0;0;0;
1;5;12;88;2;0;0;
2;0;275;0;0;0;0;
3;3;274;0;0;0;0;SET NONZERO='NOT P' 
4;5;208;0;0;0;0;
5;76;208;8;0;0;0;gENTER 
SHEET;178
PROCR;276;
NOTES;RADIX;;
0;5;12;3;0;0;0;CLEAR ERROR WL 
1;90;0;0;0;2;0;
2;C;0;0;0;0;8;
3;0;1;22;0;2;0;ITEM 
4;5;1;10;0;0;0;
5;0;1;20;1;2;0;REF (NUM) 
6;80;275;0;0;0;0;gUPDATE ADDRESS 
7;0;1;10;0;0;0;NEW ITEM 
8;5;1;22;0;2;0;
9;0;12;4;0;0;0;NEW REF 
10;5;1;20;0;2;0;
11;80;277;0;0;0;0;CHECK REF 
12;;1;19;0;0;0;DISC 
13;70;276;16;0;0;0;
14;;1;10;0;0;0;
15;80;192;0;0;0;0;gCHECK ITEM IS EVEN 
16;94;276;3;0;2;4;
17;76;278;0;0;0;0;
SHEET;179
PROCR;277;SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES 
NOTES;RADIX;;
0;81;277;0;0;0;0;
1;83;108;0;0;0;1;
2;;12;4;0;0;0;REF TO BE CHECKED 
3;12;0;0;0;0;100;
4;72;277;25;0;0;0;gNOT SECTION 
5;0;12;4;0;0;0;
6;73;277;21;0;0;0;
7;70;277;16;0;0;0;
8;80;183;0;0;0;0;gDECODE SR 
9;34;12;40;0;0;0;
10;36;12;72;0;3;0;
11;70;277;21;0;0;0;gIGNORE, SECTION NONEXISTENT 
12;33;0;0;0;0;10;
13;10;0;0;0;0;0;
14;36;12;72;0;3;0;
15;71;277;21;0;0;0;gIGNORE, SECTION IS TX AREA 
16;0;1;10;0;0;0;
17;12;0;0;0;0;8192;
18;73;277;27;0;0;0;
19;80;196;0;0;0;0;gREPORT I 
20;76;277;22;0;0;0;
21;80;195;0;0;0;0;gREPORT R 
22;80;295;0;0;0;0;gIGNORE 
23;83;108;0;0;0;2;IGNORE ANY MORE 'VALTHIS REF FOR 
24;76;277;27;0;0;0;
25;12;0;0;0;0;900;
26;72;277;21;0;0;0;gREF>999, IGNORE 
27;82;277;0;0;0;0;
SHEET;180
PROCR;278;TABLE SWITCH 
NOTES;RADIX;;
0;0;1;19;0;0;0;DISC 
1;73;282;16;0;0;0;gREPORT T5 
2;12;0;0;0;0;3;
3;72;282;16;0;0;0;
4;0;1;20;0;0;0;FIRST REF 
5;70;282;22;0;0;0;gREPORT T1 
6;85;278;6;0;0;0;
7;C;279;0;0;0;0;
8;C;281;0;0;0;0;
9;C;279;8;0;0;0;gTYPE 3 
10;C;281;21;0;0;0;gTYPE 4 
11;C;247;0;0;0;0;
SHEET;181
PROCR;279;TYPES 1 AND 3 
NOTES;RADIX;;EDIT AND UNPACK FIXED 
0;;1;12;0;0;0;NO OF CHARS 
1;1;1;14;0;0;0;SPACES 
2;4;12;5;0;0;0;TOTAL FOR TABLE 
3;;1;16;0;0;0;SIGN 
4;12;0;0;0;0;2;
5;71;279;8;0;0;0;gNOT SEPARATE CHARACTER 
6;10;0;0;0;0;1;
7;4;12;5;0;0;0;STEP TOTAL 
8;;1;24;0;0;0;SECOND REF 
9;34;1;26;0;0;0;SECON ITEM 
10;75;282;20;0;0;0;gREPORT T3 
11;;1;11;0;0;0;
12;71;282;14;0;0;0;g'UNPACK TO BE' IS SET 
13;0;1;19;0;0;0;DISC 
14;12;0;0;0;0;1;
15;70;279;17;0;0;0;
16;10;0;0;0;0;5-;
17;11;0;0;0;0;10;
18;2;1;12;0;0;0;CHARS 
19;2;1;13;0;0;0;DISCARDS 
20;73;282;12;0;0;0;gINCONSISTENT WITH SOURCE LENGTH 
21;1;1;12;0;0;0;
22;1;1;13;0;0;0;
23;2;1;15;0;0;0;ZEROS 
24;73;282;6;0;0;0;gMORE ZEROS THAN SOURCE 
25;;1;12;0;0;0;CHARS 
26;2;1;15;0;0;0;ZEROS 
27;73;282;6;0;0;0;gZEROS>NO CHARS 'T10' 
SHEET;182
PROCR;280;
NOTES;RADIX;;
0;;1;14;0;0;0;
1;12;0;0;0;0;16;
2;72;282;8;0;0;0;gTOO MANY SPCES 
3;0;1;12;0;0;0;CHARS 
4;70;282;12;0;0;0;gREPORT 'T7' 
5;0;1;19;0;0;0;DISC 
6;12;0;0;0;0;2;
7;71;280;10;0;0;0;gNOT ALPHA 
8;0;1;15;0;0;0;ZEROS 
9;71;282;6;0;0;0;gREPORT 'T10' 
10;;1;17;0;0;0;STERLING INDICATOR 
11;71;280;15;0;0;0;
12;2;12;63;0;0;0;STERLING CTR 
13;70;280;22;0;0;0;
14;76;280;36;0;0;0;gREPORT 'T12' 
15;12;0;0;0;0;1;
16;71;282;2;0;0;0;
17;;12;63;0;0;0;
18;12;0;0;0;0;2;
19;70;280;21;0;0;0;
20;11;0;0;0;0;3;
21;5;12;63;0;0;0;
22;;1;18;0;0;0;LAST TABLE ENTRY 
23;3;12;6;0;0;0;COPY TO WL 
24;70;247;0;0;0;0;
25;12;0;0;0;0;1;
26;71;282;0;0;0;0;g'T13' IF LTE WRONG 
27;;12;5;0;0;0;CHARACTERS EDITED 
28;1;12;5;0;0;0;
29;30;0;0;0;0;9;
30;70;280;33;0;0;0;gMULT OF 5 
31;10;0;0;0;0;727464;SUM' 
32;5;1;44;1;0;0;
33;5;12;5;0;0;0;CLEAR STR AT EACH LTE 
34;2;12;63;0;0;0;STERLING INDICATORS NOT 
35;70;247;0;0;0;0;OCCURRED IN 3 CONSECUTIVE LINES
36;4;12;63;0;0;0;CLEAR COUNTER 
37;76;282;2;0;0;0;ERROR REPORT T12
SHEET;183
PROCR;281;CHECK TABLES 
NOTES;RADIX;;TYPES 2 AND 4 
0;;1;24;0;0;0;2ND REF 
1;70;281;21;0;0;0;gIS ZERO 
2;30;0;0;0;0;2-;
3;71;281;11;0;0;0;g3 DIG REF 
4;;1;20;0;0;0;
5;32;0;0;0;0;2-;
6;71;282;20;0;0;0;g3 DIG + 2 DIG 'T3' 
7;32;0;0;0;0;2;
8;2;1;24;0;0;0;2ND REF 
9;71;282;20;0;0;0;g2 DIG REF 
10;76;281;18;0;0;0;gCHECK ITEMS 
11;;1;20;0;0;0;1ST REF 
12;32;0;0;0;0;2-;
13;70;282;20;0;0;0;g2 DIG + 3 DIG RED (3 DIG) 'T3' 
14;;1;24;0;0;0;2ND REF 
15;2;1;20;0;0;0;1ST REF 
16;73;282;20;0;0;0;g2ND REF <1ST REF (3 DIG) 'T3' 
17;71;281;21;0;0;0;
18;;1;26;0;0;0;2ND ITEM 
19;2;1;22;0;0;0;FIRST ITEM 
20;73;282;18;0;0;0;g2ND <1ST 'T4' 
21;;1;11;0;0;0;'SINGLE/BE' 
22;70;281;27;0;0;0;
23;12;0;0;0;0;1;
24;71;282;14;0;0;0;
25;;1;18;0;0;0;LAST TABLE ENTRY' 
26;70;282;0;0;0;0;
27;;1;12;0;0;0;NO OF CHARS 
28;71;282;12;0;0;0;
29;;1;13;0;0;0;DISCARDS 
30;71;282;10;0;0;0;
31;;1;14;0;0;0;SPACES 
32;71;282;8;0;0;0;
33;;1;15;0;0;0;ZEROS 
34;71;282;6;0;0;0;
35;;1;16;0;0;0;SIGN 
36;70;281;39;0;0;0;
37;12;0;0;0;0;2;
38;71;282;4;0;0;0;
39;;1;17;0;0;0;STERLING IND 
40;71;282;2;0;0;0;
41;76;247;0;0;0;0;
SHEET;184
PROCR;282;MAKE REPORT 'T*' 
NOTES;RADIX;;
0;10;0;0;0;0;1;
1;5;12;3;0;0;0;
2;10;0;0;0;0;1;
3;4;12;3;0;0;0;
4;10;0;0;0;0;1;
5;4;12;3;0;0;0;
6;10;0;0;0;0;1;
7;4;12;3;0;0;0;
8;10;0;0;0;0;1;
9;4;12;3;0;0;0;
10;10;0;0;0;0;1;
11;4;12;3;0;0;0;
12;10;0;0;0;0;1;
13;4;12;3;0;0;0;
14;10;0;0;0;0;1;
15;4;12;3;0;0;0;
16;10;0;0;0;0;1;
17;4;12;3;0;0;0;
18;10;0;0;0;0;1;
19;4;12;3;0;0;0;
20;10;0;0;0;0;2;
21;4;12;3;0;0;0;
22;10;0;0;0;0;1;
23;1;12;3;0;0;0;
24;5;12;88;0;0;0;
25;52;1;44;0;0;0;
26;C;306;4;0;0;0;
27;10;0;0;0;0;730000;
28;4;1;44;1;0;0;
29;76;247;0;0;0;0;
SHEET;185
PROCR;283;UNPACK PAPER TAPE PART ONE-DIRECTIVES 
NOTES;RADIX;;
0;81;283;0;0;0;0;
1;54;1;0;1;0;46;
2;;12;38;0;0;0;
3;70;285;0;0;0;0;NOT A DIRECTIVE 
4;87;27;10;0;0;0;
5;C;283;7;0;0;0;
6;C;283;29;0;0;0;CARDS 
7;0;92;30;0;0;0;AMEND RUN? 
8;70;283;11;0;0;0;
9;124;311;0;0;2;0;
10;76;283;12;0;0;0;
11;124;311;2;0;2;0;
12;80;326;0;0;0;0;UNPACK P/T S/DIR 
13;0;27;5;0;0;0;
14;12;0;0;0;0;2;
15;71;283;26;0;0;0;gNOT TABLE 
16;0;12;38;0;0;0;
17;73;283;26;0;0;0;gNOT 'NOTES' OF TABLE 
18;10;0;0;0;0;0;S/DIR WAS 'NOTES' OF TABLE 
19;5;1;8;1;0;0;& MUST BE UNPACKED DIFFERENTLY 
20;0;92;30;0;0;0;
21;70;283;24;0;0;0;gINITIAL TRANSLATION 
22;124;311;8;0;2;0;
23;76;283;25;0;0;0;
24;124;311;10;0;2;0;
25;80;326;0;0;0;0;UNPACK CORRECTLY 
26;10;0;0;0;0;0;
27;5;1;44;1;0;0;CLEAR ERROR WL 
28;82;283;0;0;0;0;
29;50;9;8;0;0;0;UNPACK S/DIR FROM CARD 
30;C;311;2;0;0;0;
31;55;9;18;1;0;16;
32;C;1;18;1;0;0;
33;0;1;8;1;0;0;
34;30;0;0;0;0;4;LEFT ALIGN SECTION NO 
35;5;1;8;1;0;0;
36;0;12;38;0;0;0;
37;73;283;26;0;0;0;NOT 'NOTES' 
38;;27;5;0;0;0;
39;12;0;0;0;0;1;
40;71;283;26;0;0;0;gNOT 'PROCR';LEAVE SR 
41;0;1;18;1;0;0;S/DIR WAS ''NOTES'' OF PROCR 
42;5;1;8;1;0;0;MOVE ''RADIX'' 
43;55;9;20;1;0;16;COPY WORDS 
44;C;1;18;1;0;0;
45;82;283;0;0;0;0;
SHEET;186
PROCR;284;UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK 
NOTES;RADIX;;
0;81;284;0;0;0;0;
1;54;1;6;1;0;40;
2;;27;1;0;0;0;
3;71;304;0;0;0;0;gMULTI-RECORD BLOCKS 
4;;12;38;0;0;0;
5;70;284;19;0;0;0;gNOT DIRECTIVE 
6;50;7;4;0;0;0;
7;C;307;0;0;0;0;
8;;12;86;0;0;0;
9;70;284;16;0;0;0;
10;;27;5;0;0;0;
11;12;0;0;0;0;1;
12;70;284;44;0;0;0;g'PROCR' 
13;0;7;20;1;0;0;
14;5;1;16;1;0;0;COPY TABLE OR CONST TYPE 
15;76;284;44;0;0;0;
16;55;7;20;1;0;30;
17;C;1;16;1;0;0;
18;76;284;43;0;0;0;
19;87;27;5;0;0;0;
20;C;284;29;0;0;0;g'PROCR' 
21;C;284;32;0;0;0;g'TABLE' 
22;C;284;35;0;0;0;g'CONST' 
23;C;284;24;0;0;0;VALUE'=4 
24;55;7;8;2;0;36;R, I+VALUES 
25;C;1;9;0;0;0;
26;55;7;44;2;0;6;ANNOTATION 
27;C;1;40;2;0;0;
28;82;284;0;0;0;0;
29;50;7;4;0;0;0;INSTRUCTIONS 
30;C;308;0;0;0;0;
31;76;284;39;0;0;0;
32;50;7;4;0;0;0;
33;C;309;0;0;0;0;UNPACK TABLE ENTRIES. 
34;76;284;39;0;0;0;
35;55;7;12;1;0;18;CONSTANTS 
36;C;1;6;1;0;0;
37;;7;4;2;0;0;AMEND IND 
38;5;1;0;1;0;0;
39;;12;86;0;0;0;
40;71;284;44;0;0;0;
41;55;7;32;1;0;18;
42;C;1;28;1;0;0;
43;5;1;44;1;0;0;CLEAR ERROR INDICATOR
44;82;284;0;0;0;0;
SHEET;187
PROCR;285;
NOTES;RADIX;;
0;87;27;5;0;0;0;
1;C;286;0;0;0;0;g'PROCR' 
2;C;286;7;0;0;0;g'TABLE' 
3;C;286;12;0;0;0;g'CONST' 
4;C;283;26;0;0;0;VALUE' (DUMMY) 
SHEET;188
PROCR;286;
NOTES;RADIX;;
0;124;312;0;0;2;0;
1;80;326;0;0;0;0;gINSTRUCTIONS 
2;10;0;0;0;0;0;
3;5;1;20;1;0;0;CLEAR 'CLEO' WORD 
4;87;27;10;0;0;0;
5;C;286;36;0;0;0;P/T INSTRUCTIONS 
6;C;286;17;0;0;0;CARD INSTRUCTIONS 
7;124;313;0;0;2;0;
8;80;326;0;0;0;0;gTABLE ENTRIES 
9;87;27;10;0;0;0;
10;C;283;26;0;0;0;
11;C;286;33;0;0;0;TABLE ENTRY FROM CARD 
12;124;314;0;0;2;0;
13;80;326;0;0;0;0;gCONSTANTS 
14;87;27;10;0;0;0;
15;C;286;45;0;0;0;P/T CONST 
16;C;286;37;0;0;0;CARD CONST 
17;62;0;0;0;0;0;
18;;1;8;1;0;0;REF ALPHA E-ALIGNED 
19;32;0;0;0;0;4-;TEST TOP CHAR
20;12;0;0;0;0;10;
21;70;286;24;0;0;0;g't' FIRST WAY 
22;12;0;0;0;0;3t;
23;71;286;25;0;0;0;gNOT 't' OTHER WAY 
24;10;0;0;0;0;40.6;
25;11;0;0;0;0;4t;
26;60;0;0;0;0;0;
27;32;0;0;0;0;6-;R-ALIGN IN B 
28;80;300;0;0;0;0;LEFT ALIGN 
29;5;1;8;1;0;0;REF ALPHA E-ALIGNED 
30;34;1;6;1;0;0;
31;80;300;0;0;0;0;LEFT ALIGN 
32;5;1;6;1;0;0;ACTION 
33;;9;4;1;0;0;LINE SERIAL 
34;5;1;2;1;0;0;
35;80;298;0;0;0;0;gUNPACK ANNOTATION 
36;76;283;26;0;0;0;
37;;9;4;1;0;0;LINE SERIAL 
38;5;1;2;1;0;0;
39;80;298;0;0;0;0;gUNPACK ANNOTATION 
40;10;0;0;0;0;7:;
41;35;0;0;0;0;11;
42;32;0;0;0;0;8;
43;37;9;18;1;0;0;IN 36-TH CHAR POSN 
44;37;9;6;1;0;0;IN 6-TH CHAR POSN 
45;50;9;4;0;0;0;
46;C;310;6;0;0;0;
47;76;283;26;0;0;0;
SHEET;189
PROCR;287;TEST WORD IN ACCUMULATOR 
NOTES;RADIX;;IS A STACKING DIRECTIVE 
0;81;287;0;0;0;0;
1;2;319;2;1;0;0;'CONST' 
2;73;287;33;0;0;0;gNOT DIRECTIVE 
3;70;287;26;0;0;0;
4;1;319;2;1;0;0;
5;2;319;10;1;0;0;'NOTES' 
6;71;287;12;0;0;0;
7;;27;5;0;0;0;
8;12;0;0;0;0;3;
9;70;287;33;0;0;0;gNOTES FOLLOWING 'CONST'-NOT DIRECTIVE 
10;10;0;0;0;0;10;SET (12/38)>0 
11;76;287;31;0;0;0;
12;1;319;10;1;0;0;'NOTES' 
13;2;319;4;1;0;0;'PROCR' 
14;70;287;28;0;0;0;gYES 
15;73;287;33;0;0;0;gNOT A DIRECTIVE 
16;1;319;4;1;0;0;'PROCR' 
17;2;319;0;1;0;0;'TABLE' 
18;70;287;27;0;0;0;gYES 
19;73;287;33;0;0;0;gNOT A DIRECTIVE 
20;1;319;0;1;0;0;'TABLE' 
21;2;319;26;1;0;0;'VALUE' 
22;71;287;33;0;0;0;gHENCE NOT A DIRECTIVE 
23;;12;33;0;0;0;
24;71;287;33;0;0;0;gPT IN, 'VALUE' ISNT A DIRECTIVE 
25;10;0;0;0;0;1;
26;11;0;0;0;0;1;(CONST) 
27;11;0;0;0;0;1;(TABLE) 
28;11;0;0;0;0;1;(PROCR) 
29;5;27;5;0;0;0;
30;12;0;0;0;0;10;
31;5;12;38;0;0;0;SET<0 IF PROCR/TABLE/CONST/VALUE 
32;82;287;0;0;0;0;
33;10;0;0;0;0;0;
34;5;12;38;0;0;0;
35;82;287;0;0;0;0;
SHEET;190
PROCR;288;SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL 
NOTES;RADIX;;
0;81;288;0;0;0;0;
1;;12;110;0;0;0;
2;70;288;9;0;0;0;
3;;12;111;0;0;0;CARD SER ERROR 
4;70;288;8;0;0;0;gNO ERROR 
5;124;319;20;0;1;0;
6;124;305;8;0;1;0;
7;5;29;0;1;0;0;WRONG SERIAL TO ERROR REPORT WORD 
8;5;12;110;0;0;0;
9;90;0;0;0;1;44;
10;C;0;0;0;0;2;
11;;29;2-;1;1;0;LAST WORD 
12;70;288;15;0;0;0;
13;2;319;8;1;0;0;
14;71;288;16;0;0;0;
15;94;288;11;0;1;2-;
16;96;0;0;0;1;0;CONTENTS OF MODIFIER 
17;3;29;0;2;0;0;REC LENGTH 
18;10;0;0;0;0;90;TOTAL ROOM SEC 8 
19;2;318;10;0;0;0;
20;2;29;0;2;0;0;CURRENT RECORD LENGTH 
21;72;288;30;0;0;0;g+VE OR ZERO 
22;;318;10;0;0;0;
23;3;8;4;2;0;0;BLOCK LENGTH 
24;91;318;10;0;1;0;
25;;319;8;1;0;0;BE WORD 
26;5;8;6;1;1;0;
27;80;290;0;0;0;0;gWRITE 
28;54;8;4;1;0;46;
29;5;318;10;0;0;0;
30;10;0;0;0;0;6;
31;5;12;2;0;0;0;
32;91;318;10;0;1;0;
33;55;29;0;1;0;0;COPY TO SEC 8 
34;C;8;6;1;1;0;
35;C;29;0;2;0;0;
36;;29;0;2;0;0;
37;4;318;10;0;0;0;STEP QTTY IN BLOCK TO DATE 
38;54;29;0;1;0;44;CLEAR SEC 29 
39;82;288;0;0;0;0;
SHEET;191
PROCR;289;
0;81;289;0;0;0;0;
1;0;319;8;1;0;0;
2;5;8;50;1;0;0;
3;80;290;0;0;0;0;
4;54;8;4;1;0;46;
5;82;289;0;0;0;0;
SHEET;192
PROCR;290;
0;81;290;0;0;0;0;
1;43;A2;0;0;0;0;
2;C;8;0;0;0;0;
3;82;290;0;0;0;0;
SHEET;193
PROCR;291;READ B/FWD MT FILE 
0;81;291;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;7;0;0;0;0;
3;82;291;0;0;0;0;
SHEET;194
PROCR;292;INPUT OFF PAPER TAPE 
NOTES;RADIX;;
0;81;292;0;0;0;0;
1;80;301;0;0;0;0;gREAD A6 
2;87;27;10;0;0;0;
3;C;292;11;0;0;0;
4;C;292;5;0;0;0;CARDS-CHECK CARD SER 
5;;9;34;2;0;0;
6;2;12;111;0;0;0;PREVIOUS SER 
7;4;12;111;0;0;0;STORE THIS SER 
8;12;0;0;0;0;1;
9;5;12;110;0;0;0;STORE ANY ERROR 
10;5;9;34;1;0;0;
11;;9;4;1;0;0;
12;2;319;22;1;0;0;'SHEET' 
13;71;292;32;0;0;0;
14;124;306;6;0;2;0;
15;80;326;0;0;0;0;UNPACK 
16;34;12;88;1;0;0;SHEET NO 
17;80;321;0;0;0;0;
18;0;12;88;2;0;0;
19;2;12;92;0;0;0;PREVIOUS SER 
20;4;12;92;0;0;0;REPLACE BY CURRENT 
21;12;0;0;0;0;1;CHECK SEQUENCE 
22;70;292;1;0;0;0;gCORRECT 
23;0;319;22;1;0;0;'SHEET'' 
24;124;319;20;0;1;0;
25;124;305;0;0;1;0;
26;5;29;14;1;0;0;
27;0;12;88;1;0;0;WRONG NUMBER 
28;124;319;20;0;1;0;
29;124;305;8;0;1;0;
30;5;29;0;1;0;0;
31;76;292;1;0;0;0;
32;;9;4;1;0;0;
33;2;319;44;1;0;0;'TRAMD' 
34;70;292;47;0;0;0;gDON'T INSERT BE 
35;34;9;48;2;0;0;
36;10;0;0;0;0;0;
37;32;0;0;0;0;7;
38;5;320;40;1;0;0;WORD CTR 
39;91;320;40;0;1;0;
40;32;0;0;0;0;3;
41;5;288;0;0;0;0;COL POSN+WL 
42;35;0;0;0;0;11;
43;10;0;0;0;0;7.;
44;124;288;0;0;1;0;
45;32;0;0;0;0;0;///// 
46;37;9;0;1;1;0;
47;82;292;0;0;0;0;
SHEET;195
PROCR;293;TEST AMENDMENT IS A STACKING DIRECTIVE 
NOTES;RADIX;;
0;81;293;0;0;0;0;
1;54;1;0;1;0;8;
2;87;27;10;0;0;0;
3;C;293;11;0;0;0;
4;C;293;5;0;0;0;CARDS 
5;50;9;8;0;0;0;
6;C;311;2;0;0;0;
7;0;1;8;1;0;0;
8;30;0;0;0;0;4;
9;5;1;8;1;0;0;L-ALIGN PROCR NUMBER 
10;76;293;13;0;0;0;
11;124;311;0;0;2;0;
12;80;326;0;0;0;0;
13;;1;6;1;0;0;
14;80;287;0;0;0;0;gTEST DIRECTIVE 
15;82;293;0;0;0;0;
SHEET;196
PROCR;294;TEST FOR MOD END SIGN 
NOTES;RADIX;;OR DIRECTIVE 
0;81;294;2;0;0;0;
1;;9;4;1;0;0;
2;30;0;0;0;0;4-;
3;30;0;0;0;0;4;
4;2;319;12;1;0;0;'END  ' 
5;70;294;9;0;0;0;
6;;9;4;1;0;0;
7;2;319;44;1;0;0;'TRAMD' 
8;71;294;11;0;0;0;
9;10;0;0;0;0;100000;
10;76;294;37;0;0;0;
11;10;0;0;0;0;0;CLEAR LOCATION TO WHICH
12;5;1;4;1;0;0;AMENDMENT DIRECTIVE IS UNPACKED
13;124;311;8;0;2;0;
14;80;326;0;0;0;0;gUNPACK AMEND LETTER
15;87;27;10;0;0;0;
16;C;294;20;0;0;0;P/T
17;C;294;18;0;0;0;CARDS
18;34;1;6;1;0;0;
19;76;294;21;0;0;0;
20;34;1;4;1;0;0;
21;10;0;0;0;0;0;
22;32;0;0;0;0;2;
23;12;0;0;0;0;69;
24;70;294;34;0;0;0;
25;11;0;0;0;0;15;
26;70;294;33;0;0;0;
27;12;0;0;0;0;19;
28;70;294;32;0;0;0;
29;11;0;0;0;0;22;
30;71;294;39;0;0;0;
31;10;0;0;0;0;1;
32;11;0;0;0;0;1;
33;11;0;0;0;0;1;
34;11;0;0;0;0;1;
35;84;252;0;0;0;0;
36;10;0;0;0;0;1;
37;3;12;44;1;0;0;
38;82;294;0;0;0;0;
39;10;0;0;0;0;0;
40;76;294;37;0;0;0;
SHEET;197
PROCR;295;IGNORE THIS INSTRUCTION
NOTES;RADIX;;
0;81;295;0;0;0;0;
1;;319;24;1;0;0;IGNORE INDICATOR
2;5;1;42;1;0;0;
3;82;295;0;0;0;0;
SHEET;198
PROCR;296;IGNORE PREVIOUS INSTRUCTION
NOTES;RADIX;;
0;81;296;0;0;0;0;
1;;319;24;1;0;0;
2;124;319;20;0;1;0;
3;124;305;0;0;1;0;
4;5;29;14;1;0;0;
5;82;296;0;0;0;0;
SHEET;199
PROCR;297;gANNOTATION IF CARD
NOTES;RADIX;;
0;81;297;0;0;0;0;
1;10;0;0;0;0;p;
2;87;27;10;0;0;0;
3;C;297;6;0;0;0;P/T
4;C;297;5;0;0;0;CARDS
5;80;298;0;0;0;0;BULK COPY WORDS-THUS SETTING (A)=0
6;82;297;0;0;0;0;
SHEET;200
PROCR;298;BULK COPY ANNOTATION
NOTES;RADIX;;
0;81;298;0;0;0;0;
1;55;9;18;1;0;16;
2;C;1;28;1;0;0;
3;82;298;0;0;0;0;
SHEET;201
PROCR;299;TEST END SIGN ON MAG TAPE
NOTES;RADIX;;
0;81;299;0;0;0;0;
1;;27;1;0;0;0;
2;70;299;5;0;0;0;g1 RECORD PER BLOCK
3;;0;6;1;8;0;
4;76;299;6;0;0;0;
5;0;7;10;1;0;0;
6;2;319;12;1;0;0;
7;70;322;0;0;0;0;
8;1;319;12;1;0;0;
9;2;319;14;1;0;0; 'DUMPS'
10;70;322;0;0;0;0;
11;1;319;14;1;0;0;
12;2;319;16;1;0;0; 'FILES'
13;70;322;0;0;0;0;
14;82;299;0;0;0;0;
SHEET;202
PROCR;300;LEFT ALIGN SUBROUTINE
NOTES;RADIX;;
0;81;300;0;0;0;0;DATA IN B
1;10;0;0;0;0;0;
2;74;300;6;0;0;0;ZERO NUMBER?
3;32;0;0;0;0;2;
4;70;300;3;0;0;0;
5;32;0;0;0;0;8;LEFT ALIGN IN A
6;82;300;0;0;0;0;
SHEET;203
PROCR;301;
0;81;301;0;0;0;0;
1;42;A6;0;0;0;0;
2;C;9;0;0;0;0;
3;82;301;0;0;0;0;
SHEET;204
PROCR;302;STEP MR.TEST END OF BLOCK
0;81;302;0;0;0;0;
1;;27;1;0;0;0;
2;70;302;11;0;0;0;g1 RECORD PER BLOCK
3;;0;0;2;8;0;CURRENT RECORD LENGTH
4;5;291;0;0;0;0;WL
5;97;291;0;0;8;0;
6;C;302;10;0;0;0;>BLOCK NOT EMPTY
7;80;291;0;0;0;0;gREAD A1
8;59;7;6;0;8;0;
9;C;7;4;2;0;0;
10;82;302;0;0;0;0;
11;80;291;0;0;0;0;gREAD A1
12;82;302;0;0;0;0;
SHEET;205
PROCR;303;TEST MT=STACK DIRECTIVE
0;81;303;0;0;0;0;
1;;27;1;0;0;0;
2;70;303;6;0;0;0;
3;;0;6;1;8;0;
4;80;287;0;0;0;0;
5;82;303;0;0;0;0;
6;;7;10;1;0;0;
7;76;303;4;0;0;0;
SHEET;206
PROCR;304;UNPACK MT-MULTIRECORD BLOCKS
0;62;0;0;0;0;0;
1;54;28;0;1;0;46;
2;;12;38;0;0;0;
3;70;304;35;0;0;0;gNOT DIRECTIVE
4;;0;0;2;8;0;
5;30;0;0;0;0;5;
6;98;0;0;0;8;0;
7;128;28;0;1;1;0;COPY DIRECTIVE+LENGTH WORD
8;50;28;2;0;0;0;UNPACK
9;C;307;14;0;0;0; 
10;;27;5;0;0;0;
11;12;0;0;0;0;1;
12;71;304;17;0;0;0;gNOT'PROCR'
13;;12;38;0;0;0;
14;73;304;17;0;0;0;gNOT NOTES OF PROCR
15;;28;12;1;0;0;
16;5;1;8;1;0;0;COPY 'RADIX'
17;;12;86;0;0;0;
18;70;304;32;0;0;0;gNOT 'REPLACE ANNOTATION'
19;;27;5;0;0;0;
20;12;0;0;0;0;1;
21;70;304;27;0;0;0;gPROCR,TEST NOTES
22;12;0;0;0;0;1;
23;71;304;29;0;0;0;gCONST
24;;12;38;0;0;0;
25;72;304;50;0;0;0;gNOTES OF TABLE
26;76;304;29;0;0;0;gNOT TABLE NOTES
27;;12;38;0;0;0;
28;73;304;50;0;0;0;gNOT NOTES OF PROCR
29;;28;14;1;0;0;
30;5;1;16;1;0;0;CONST/TABLE TYPE OR RADIX LETTER
31;76;304;50;0;0;0;
32;55;28;14;1;0;26;ANNOTATION ETC EVEN IF ABSENT
33;C;1;16;1;0;0;
34;76;304;50;0;0;0;
35;;27;5;0;0;0;
36;12;0;0;0;0;4;
37;70;304;64;0;0;0;gVALUES
38;;0;0;2;8;0;
39;3;320;40;0;0;0;LENGTH
40;124;27;5;0;1;0;
41;2;305;0;0;0;0;(MAX DATA LENGTH*2)
42;72;304;52;0;0;0;gRECORD HAS ANNOTATION
43;;320;40;0;0;0;
44;30;0;0;0;0;5;
45;98;0;0;0;8;0;DATA START
46;128;28;0;1;1;0;COPY RECORD
47;124;27;5;0;1;0;
48;;305;4;0;0;0;
49;128;28;2;0;2;0;UNPACK-SEC1
50;60;0;0;0;0;0;
51;82;284;0;0;0;0;
52;5;320;41;0;0;0;ANNOTATION LENGTH ANNOTATED DATA
53;;12;86;0;0;0;
54;71;304;61;0;0;0;gJUST HERE TO UNPACK NUMBERS 
55;;320;41;0;0;0;
56;30;0;0;0;0;5;
57;98;0;0;0;8;0;
58;124;27;5;0;1;0;
59;1;305;0;0;0;0;DATA LENGTH+2 
60;128;1;28;1;1;0;COPY ANNOTATION 
61;124;27;5;0;1;0;
62;;305;0;0;0;0;
63;76;304;44;0;0;0;gUNPACK NUMBERS 
64;;0;0;2;8;0;LENGTH VALUES
65;12;0;0;0;0;6;
66;30;0;0;0;0;5;
67;98;0;0;0;8;0;START 
68;11;0;0;0;0;7;
69;128;1;9;1;0;0;ALPHA+NUM 
70;76;304;50;0;0;0;gEXIT 
SHEET;207
CONST;305;0;FOR UNPACKING MULTIRECORD MT 
0;(B)24;DIRECTIVES-ANNOTATION 
1;24;ORDER LENGTH+2 
2;24;TABLE 
3;28;CONSTANT 
4;28;VALUES 
5;(R)308:0;UNPACK ORDERS 
6;309:0;UNPACK TABLES 
7;310:0;UNPACK CONSTANTS 
8;(B)12;DIRECTIVES-PASS 1 REPORTS 
9;22;ORDERS 
10;22;TABLE 
11;26;CONSTANT 
12;42;VALUES 
SHEET;208
TABLE;306;1;'INDEX' LINE 
NOTES;;;
0;12;4;0;0;0;0;3;2;0;2;0;0;0;TO REPLACE CODERS REF
2;92;8;0;0;0;0;2;0;0;2;0;0;1;
4;12;88;0;0;0;0;5;0;0;5;0;0;1;
6;12;88;0;0;2;0;5;0;0;0;0;0;0;'SHEET '
8;12;88;0;0;2;0;5;0;0;0;0;0;1;SHEET NUMBER
SHEET;209
TABLE;307;1;EDIT STACKING DIRECTIVE
NOTES;;;
0;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
2;1;2;0;0;2;0;5;0;0;0;0;0;0;'PROCR'/TABLE/CONST' ETC
4;92;35;0;0;0;0;5;0;0;5;0;0;0;
6;1;6;0;0;2;0;5;0;0;0;0;0;0;TYPE
8;92;34;0;0;1;0;10;0;0;10;0;0;0;
10;1;8;0;0;2;0;5;0;0;0;0;0;0;NEW PROCR NUMBER
12;1;14;0;0;0;0;5;0;0;4;0;0;1;PREVIOUS PROCR NUMBER
14;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND-----MULTIREC BLOX
16;1;2;0;0;2;0;5;0;0;0;0;0;0;LINE SERIAL
18;1;6;0;0;2;0;5;0;0;0;0;0;0;'PROCR' ETC
20;1;8;0;0;2;0;5;0;0;0;0;0;0;CURRENT PROCR
22;1;14;0;0;0;0;5;0;0;5;0;0;1;PREVIOUS PROCR
SHEET;210
TABLE;308;3;EDIT INSTRUCTIONS
NOTES;;;
0;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
2;1;2;0;0;2;0;5;0;0;0;0;0;0;LINE SERIAL
4;1;6;0;0;2;0;5;0;0;0;0;0;0;ACTION
6;1;8;0;0;2;0;5;0;0;0;0;0;0;REF
8;1;10;0;0;1;0;5;5;0;5;1;0;0;ITEM +/-
10;1;12;0;0;0;0;2;3;0;2;0;0;0;DISC
12;1;14;0;0;0;0;3;2;0;3;0;0;0;MODIFIER
14;1;16;0;0;1;0;10;0;0;10;1;0;0;LITERAL +/-
16;1;20;0;0;2;0;5;0;0;0;0;0;0;'CLEO' PARA WORD
18;1;22;0;0;0;0;5;0;0;5;0;0;1;PREVIOUS PROCR NO
SHEET;211
TABLE;309;1;EDIT TABLE ENTRIES
NOTES;;;
0;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
2;1;2;0;0;2;0;5;0;0;0;0;0;0;
4;1;20;0;0;0;0;5;0;0;5;0;0;0;FIRST REF
6;1;22;0;0;0;0;5;0;0;5;0;0;0;FIRST ITEM
8;1;24;0;0;0;0;5;0;0;5;0;0;0;SECOND REF
10;1;26;0;0;0;0;5;0;0;5;0;0;0;SECOND ITEM
12;1;19;0;0;0;0;2;3;0;2;0;0;0;DISC
14;1;11;0;0;0;0;3;2;0;3;0;0;0;SINGLE/TO BE
16;1;12;0;0;0;0;2;3;0;2;0;0;0;NO
18;1;13;0;0;0;0;3;2;0;3;0;0;0;DISCARDED
20;1;14;0;0;0;0;2;3;0;2;0;0;0;SPACES
22;1;15;0;0;0;0;3;2;0;3;0;0;0;ZEROS
24;1;16;0;0;0;0;1;4;0;1;0;0;0;SIGN
26;1;17;0;0;0;0;2;3;0;2;0;0;0;STERLING
28;1;18;0;0;0;0;2;3;0;2;0;0;1;LAST TABLE ENTRY
SHEET;212
TABLE;310;3;UNPACK CONSTANT AND EDIT
NOTES;;;
0;1;0;0;0;0;0;5;0;0;5;0;0;0;AMEND IND
2;1;2;0;0;2;0;5;0;0;0;0;0;0;
4;92;34;0;0;0;0;5;0;0;5;0;0;0;ZERO WORD
6;1;6;0;0;2;0;5;0;0;0;0;0;0;CONSTANT UNPACKED
8;1;8;0;0;2;0;5;0;0;0;0;0;0;FIXED FIELD TO
10;1;10;0;0;2;0;5;0;0;0;0;0;0;1/6' ONWARD
12;1;12;0;0;2;0;5;0;0;0;0;0;0;
14;1;14;0;0;2;0;5;0;0;0;0;0;0;
16;1;16;0;0;2;0;5;0;0;0;0;0;0;
18;1;18;0;0;2;0;5;0;0;0;0;0;0;
20;1;20;0;0;2;0;5;0;0;0;0;0;0;
22;1;22;0;0;2;0;5;0;0;0;0;0;1;
SHEET;213
TABLE;311;3;UNPACK STACKING DIRECTIVE
NOTES;;;FROM CARDS OR PAPER TAPE
0;1;2;0;0;2;0;5;0;0;0;0;0;0;SER+AMEND DIR?
2;1;6;0;0;2;0;5;0;0;0;0;0;0;DIRECTIVE
4;1;8;0;0;2;0;3;0;0;0;0;0;0;SECTION NO
6;1;16;0;0;2;1;5;0;0;0;0;0;1;/////TYPE OR ANNOTATION
8;1;2;0;0;2;0;5;0;0;0;0;0;0;SER NO +AMEND DIR?
10;1;6;0;0;2;0;5;0;0;0;0;0;0;''NOTES'' OF TABLE
12;1;16;0;0;2;0;5;0;0;0;0;0;1;ANNOTATION
SHEET;214
TABLE;312;3;UNPACK INSTRUCTIONS
NOTES;;;FROM P/T OR CARDS
0;1;2;0;0;2;0;6;0;0;0;0;0;0;/////SER+AMEND LETTER
2;1;6;0;0;2;0;3;0;0;0;0;0;0;ACTION
4;1;8;0;0;2;0;3;0;0;0;0;0;0;REF
6;1;10;0;0;1;0;5;0;0;0;1;0;0;ITEM
8;1;12;0;0;0;0;1;0;0;0;0;0;0;D
10;1;14;0;0;0;0;2;0;0;0;0;0;0;M
12;1;16;0;0;1;0;10;0;0;0;1;0;0;LITERAL
14;1;28;0;0;2;0;5;0;0;0;0;0;0;NOTES FROM P/T -RUBBISH FROM CARD
16;1;36;0;0;2;0;5;0;0;0;0;0;1;COMMENTARY FROM P/T
SHEET;215
TABLE;313;3;UNPACK TABLE ENTRIES
0;1;2;0;0;2;0;6;0;0;0;0;0;0;/////SER+AMEND LETTER
2;1;20;0;0;0;0;3;0;0;0;0;0;0;FIRST REF
4;1;22;0;0;0;0;5;0;0;0;0;0;0;FIRST ITEM
6;1;24;0;0;0;0;3;0;0;0;0;0;0;SECOND REF
8;1;26;0;0;0;0;5;0;0;0;0;0;0;SECOND ITEM
10;1;19;0;0;0;0;1;0;0;0;0;0;0;DISC
12;1;11;0;0;0;0;1;0;0;0;0;0;0;SINGLE TO BE
14;1;12;0;0;0;0;2;0;0;0;0;0;0;NO OF CHARS
16;1;13;0;0;0;0;2;0;0;0;0;0;0;DISCARDS
18;1;14;0;0;0;0;2;0;0;0;0;0;0;SPACES
20;1;15;0;0;0;0;2;0;0;0;0;0;0;ZEROS
22;1;16;0;0;0;0;1;0;0;0;0;0;0;SIGN
24;1;17;0;0;0;0;1;0;0;0;0;0;0;p
26;1;18;0;0;0;0;1;0;0;0;0;0;0;LTE
28;1;28;0;0;2;0;5;0;0;0;0;0;1;P/T ANNOTATION-SPACES IF CARD
SHEET;216
TABLE;314;3;UNPACK CONSTANT (FIRST STAGE)
0;1;2;0;0;2;0;6;0;0;0;0;0;0;/////SER+AMEND LETTER
2;1;6;0;0;2;0;5;0;0;0;0;0;0;CONSTANT (OR FIRST 5 CHS OF CONST)
4;1;28;0;0;2;0;5;0;0;0;0;0;1;ANNOTATION (FROM P/T) OR NEXT 5
SHEET;217
TABLE;315;1;EDIT ALL BUT TRIAL DATA
0;1;9;0;0;0;0;5;0;0;4;0;0;0;REF---VALUES
2;1;10;0;0;0;0;5;0;0;4;1;0;1;LTE
SHEET;218
CONST;316;0;CHECKING CONST FOR INSTRUCTIONS
0;(D)06e11;'LITERAL' SWITCH Q3
1;08e19;'REF/ITEM' SW Q2
2;00e11;'DISC/MOD' SWITCH Q1
3;09e11;
4;0t122;ACTION 10
5;0+322;
6;0p000;
7;11t11;
8;12000;
9;13t91;
SHEET;219
CONST;317;0;CHECKING CONSTANTS FOR INSTRUCTIONS
0;(D)1te11;ACTIONS 20-26
1;1+000;2728
2;1:e11;29
3;21422;30-33
4;22e11;
5;23522;
6;25e11;
7;26622;
8;27e22;
9;295e2;
10;005e2;ACTIONS 42, 43
11;2ee39;42, 43 FIRST C-LINE
12;00e:1;43 SECOND LINE
13;00e41;44
14;2++32;
15;2:531;ACTIONS 46-49
16;3153t;46-49 C-LINES
17;00114;ACTIONS 50-53
18;35e1e;
19;00e43;ACTION 54
20;36991;
21;00e13;
22;37719;
23;00e91;
24;38e11;
25;39117;57
26;3t112;
27;3e11:;59
28;00e14;C-LINE
29;3:e22;6061
30;3.822;
31;40e11;
32;41819;
33;00822;
34;43e22;66.67
35;45000;6869
36;4+e42;70-76
37;4.:+2;77-78
38;00e12;C-LINE
39;4pe42;79
40;50e+2;80
41;00e92;C-LINE
42;52e42;81-82
43;53+62;83
44;54e.2;84
45;00e11;84 C-LINE
46;55e6t;85
47;00e.1;
48;56162;86
49;57e1e;
50;00e.1;C-LINE
51;59000;
52;5t22:;ACTION 90
53;00222;
54;5:e16;ACTIONS 91-93
55;5.915;94
56;60e25;
57;61e95;ACTION 97
58;00e62;
59;63e26;9899
60;83e91;
61;00e11;
62;84e32;132
63;8653t;133-4
64;00e62;C-LINE
65;8e000;
66;8pe91;140-143
67;90000;144
68;94e91;ACTIONS 145-148
69;00e11;CONTINUATION LINES
70;95000;
71;96+1p;
72;00e.1;
73;97e22;
74;98e4t;
75;00e42;
76;99e22;ACTION 153 
77;9te12;ACTION 153-154 
78;9ee22;
79;9+e31;
80;9:e1e;
81;00e43;C-LINE 
82;9.511;
83;pp000;
84;00e19;CONST FOR ACTION 55=2 C-LINES 
85;00e:9;2ND C LINE RT 22 ACTION 43 
86;00e11;=1 C-LINE 
87;(R)18:2496;FOR SEQUENCE CHANGES 
88;(R)18:0;
89;(R)93:0;
90;(R)14:0;
91;(D)0;ZERO IF RT9 PRINTER 
92;00e:1;43 ACTIONS 
SHEET;220
CONST;318;0;MISC 
0;(D)2;
1;10000;BIT 17 
2;ppp;Q1-3 
3;70;BITS 5-7 
4;7;BITS 1-3 
5;8;BIT 4 
6;80;BIT 8 
7;p00;
8;4;BIT3 
9;0;FIRST RECORD INDICATOR 
10;0;ACC.RECORD LENGTH 
SHEET;221
CONST;319;1;ALPHA CONSTANTS 
0;(A)TABLE;
2;CONST;
4;PROCR;
6;*    ;
8;(D)7.0000007.;BLOCK END WORD 
10;(A)NOTES;
12;END  ;
14;DUMPS;
16;FILES;
18;(D)pp+00003pp;BITS 1-10 AND 31-40 
20;0;EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHES 
22;(A)SHEET;
24;(D)5:5:5:5:5:;'?????' 
26;(A)VALUE;
28;(D)6p6p6p6p6p;
30;(A)INDEX;
32;ppppp;
34;2;
36;CHAIN;
38;????R;
40;????I;
42;????*;
44;(A)TRAMD;
46;(B20)16(D)0(C)1:28;BULK COPY
48;(A)FINIS;
SHEET;222
CONST;320;1;CONVERT TABLES
0;(D)1;BIN+DEC
2;16;
4;256;
6;4096;
8;65536;
10;1048576;
12;16777216;
14;268435456;
16;4294967296;
18;pppppppppp;
20;1;DEC+BIN
22;t;
24;64;
26;3.8;
28;2710;
30;186t0;
32;p4240;
34;989680;
36;5p5.100;
38;3e9t+t00;
40;0;(A)WL
42;3p;BITS 1-6
44;(A)CHAPT;
46;PREND;
SHEET;223
PROCR;321;RIGHT ALIGN A WORD
NOTES;RADIX;;PLACED IN B
0;81;321;0;0;0;0;
1;10;0;0;0;0;0;
2;5;12;88;1;0;0;
3;1;12;88;1;0;0;
4;32;0;0;0;0;2;LEAVE A CLEAR
5;5;12;88;1;0;0;
6;75;321;3;0;0;0;AND PUT WORD
7;;12;88;1;0;0;
8;82;321;0;0;0;0;IN 12/88'
SHEET;224
PROCR;322;END ROUTINE
NOTES;RADIX;;
0;60;0;0;0;0;0;
1;10;0;0;0;0;1;
2;4;92;3;0;0;0;STEP PROCR
3;62;0;0;0;0;0;
4;;319;20;0;0;0;DIRECTIVE FOR LAST BLOCK EDITED
5;12;0;0;0;0;3;
6;71;322;9;0;0;0;gWASN'T  A CONSTANT
7;10;0;0;0;0;1;
8;5;29;6;0;0;0;
9;80;288;0;0;0;0;gO/P FINAL DATA BLOCK
10;0;92;3;0;0;0;
11;30;0;0;0;0;2;
12;5;12;88;0;0;0;
13;52;29;4;0;0;0;
14;C;306;4;0;0;0;
15;;9;4;1;0;0;
16;30;0;0;0;0;4-;
17;30;0;0;0;0;4;
18;2;319;12;1;0;0;
19;70;322;28;0;0;0;g END WITHOUT TD
20;;9;4;1;0;0;
21;2;319;44;1;0;0; 'TRAMD'
22;70;322;30;0;0;0;
23;10;0;0;0;0;5£5£5£5£5£;5 SQUARES
24;3;27;6;0;0;0; 'PT OMMITTED'
25;5;29;12;1;0;0;
26;80;301;0;0;0;0;g READ PT
27;76;322;15;0;0;0;g TEST NEXT BLOCK
28;;319;48;1;0;0; 'FINIS'
29;5;9;4;1;0;0;
30;;319;12;1;0;0;
31;5;29;6;1;0;0; 'END'
32;80;288;0;0;0;0;g WRITE INTERCODE END SIGN
33;80;325;0;0;0;0;
34;90;0;0;0;1;1;
35;C;0;0;0;0;100;
36;90;0;0;0;2;0;
37;C;0;0;0;0;200;
38;96;0;0;0;1;0;
39;80;244;0;0;0;0;g TO DEC
40;62;0;0;0;0;0;
41;32;0;0;0;0;1-;DIVIDE BY 10
42;92;0;0;0;3;0;TENS DIGIT
43;32;0;0;0;0;1;
44;5;244;0;0;0;0;WL
45;10;0;0;0;0;1;
46;124;244;0;0;1;0;
47;31;0;0;0;0;0;/////BIT PATTERN OF UNITS DIGIT
48;3;244;0;0;0;0;
49;33;0;0;0;0;30-;REL TO BIT 10 OF 8
50;36;12;72;0;3;0;12/72-81= SECTION BIT PATTERNS
51;70;322;66;0;0;0;g NOT TX AREA
52;96;0;0;0;3;0;
53;35;0;0;0;0;0;CLEAR B
54;33;0;0;0;0;1-;HALVE
55;92;0;0;0;3;0;
56;75;322;59;0;0;0;g WAS ODD
57;34;244;0;0;0;0;
58;76;322;61;0;0;0;
59;34;244;0;0;0;0;
60;33;0;0;0;0;10;
61;36;12;100;0;3;0;12/100-104='TX AREA USED' INDS
62;71;322;66;0;0;0;g NOT PSEUDEO-TX AREA
63;96;0;0;0;1;0;
64;5;92;34;0;2;0;STORE SECTION NUMBER
65;94;0;0;0;2;1;
66;94;322;38;0;1;1;> NEXT SECTION
SHEET;225
PROCR;323;CALC CHAPS INITIALLY
0;10;0;0;0;0;£££00;
1;3;23;47;0;0;0; (TO PRINT HEADING)
2;124;92;0;0;0;0;
3;4;92;9;0;0;0; 'LAST PROCR' IN FINAL CHAP
4;91;12;12;0;3;0;
5;;92;10;0;3;0;
6;30;0;0;0;0;9;
7;30;0;0;0;0;9-;ISOLATE Q1-CORR CHAP
8;2;92;29;0;0;0;(ZERO INITIALLY)
9;73;323;11;0;0;0;
10;4;92;29;0;0;0;UPDATE
11;94;323;5;0;3;1;
12;10;0;0;0;0;1;
13;4;92;29;0;0;0;FORM CHAPS INITIALLY
14;;92;9;0;0;0;
15;5;92;8;0;0;0;STORE SC CTR
16;;92;29;0;0;0;
17;5;92;9;0;0;0;SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT
SHEET;226
PROCR;324;READ/COPY TRIAL DATA MODS
NOTES;RADIX;1;
0;80;289;0;0;0;0;
1;80;289;0;0;0;0;g WRITE 2 BLANKS
2;;319;28;1;0;0;
3;5;8;4;1;0;0;5 ALIGN MARKS
4;10;0;0;0;0;6;
5;5;8;10;0;0;0;
6;80;289;0;0;0;0;g WRITE ALIGN BLOCK FOR PASS 3
7;;319;30;1;0;0; 'INDEX'
8;5;8;4;1;0;0;
9;80;289;0;0;0;0;g WRITE
10;90;0;0;0;1;0;
11;C;0;0;0;0;1010;
12;90;0;0;0;2;0;
13;C;0;0;0;0;48;
14;;93;0;0;1;0;
15;5;8;4;2;2;0;
16;94;324;22;0;2;2;
17;;319;8;1;0;0;BEW
18;5;8;52;1;0;0;
19;80;290;0;0;0;0;g WRITE
20;90;0;0;0;2;0;
21;C;0;0;0;0;48;
22;94;324;14;0;1;1;
23;80;290;0;0;0;0;g LAST BLOCK
24;80;289;0;0;0;0;
25;80;289;0;0;0;0;g TWO BLANKS
26;0;9;4;1;0;0;
27;2;319;48;1;0;0; 'FINIS'
28;70;324;34;0;0;0;
29;55;9;4;1;0;50;
30;C;8;4;1;0;0;
31;80;289;0;0;0;0;g WRITE
32;80;301;0;0;0;0;g READ
33;76;324;26;0;0;0;
34;;27;4;0;0;0;COMPILER ?
35;70;324;39;0;0;0;g NORMAL
36;46;A2;10;0;0;0; (TO START OF INTERCODE)
37;C;0;0;0;0;2;
38;76;324;41;0;0;0;
39;45;A2;0;0;0;0;
40;45;A6;0;0;0;1;
41;0;12;12;1;0;0;COPY DATA FOR PASS 2 PREP STAGE
42;5;94;0;1;0;0;
43;0;92;30;0;0;0;IND OF AMEND RUN
44;70;152;0;0;0;0;gNO, CALL PASS 2
45;;27;4;0;0;0;
46;70;324;50;0;0;0;gNORMAL
47;;27;2;0;0;0;
48;70;324;72;0;0;0;
49;76;324;56;0;0;0;
50;86;786;0;0;0;0;
51;70;324;72;0;0;0;gNO TRIAL DATA
52;5;289;0;0;0;0;WL
53;47;A1;10;0;0;0;RUN TO START OF THIS PROGS MACHINE CODE
54;C;289;0;0;0;0;
55;80;291;0;0;0;0;gREAD A1
56;;7;4;1;0;0;;TESTS FOR CLOSING A1
57;2;320;46;1;0;0; 'PREND'
58;70;324;72;0;0;0;gYES
59;1;320;46;1;0;0;
60;2;319;16;1;0;0; 'FILES'
61;70;324;69;0;0;0;
62;1;319;16;1;0;0;
63;2;320;44;1;0;0; 'CHAPT'
64;70;324;69;0;0;0;gYES
65;1;320;44;1;0;0;
66;2;319;48;1;0;0; 'FINIS'
67;70;324;72;0;0;0;gYES
68;76;324;55;0;0;0;gREAD/IGNORE
69;10;0;0;0;0;1;
70;5;27;3;0;0;0;
71;76;152;0;0;0;0;gCALL PASS 2,LEAVE A1 OPEN
72;5;27;3;0;0;0;
73;;27;4;0;0;0;COMPILER CALLED TRANSLATOR?
74;70;324;77;0;0;0;gNO
75;45;A1;0;0;0;1;
76;76;152;0;0;0;0;gCALL PASS 2
77;41;A1;0;0;0;1;
78;76;152;0;0;0;0;gCALL PASS 2
SHEET;227
PROCR;325;
0;81;325;0;0;0;0;
1;;325;0;0;0;0;
2;5;288;0;0;0;0;
3;76;288;22;0;0;0;
SHEET;228
PROCR;326;UNPACK SECTION 9 SUBROUTINE
NOTES;RADIX;;
0;81;326;0;0;0;0;
1;124;999;0;1;2;0;(FORMED)
2;128;0;4;0;3;0;
3;82;326;0;0;0;0;
4;;9;0;0;0;0;DUMMY FOR PARAMETER
5;128;0;4;0;2;0;
SHEET;229
PROCR;327;START OF PASS 2
NOTES;RADIX;;DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT
0;152;152;2;0;0;0;CALL/ENTER PASS 3
1;C;553;2;0;0;0;
2;;999;16;1;0;0;COPY SEC 7 PARAS-PTS WL'S
3;5;999;30;1;0;0;
4;54;5;0;0;0;50;
5;52;5;2;0;0;0;
6;C;342;34;0;0;0;EDIT 'INDEX' LINE
SHEET;230
PROCR;328;CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER
NOTES;RADIX;;AND MOVE THE SC BACK LIST
0;54;72;3;0;0;14;
1;90;0;0;0;19;0;
2;C;0;0;0;0;10;
3;90;0;0;0;20;0;
4;C;0;0;0;0;10;
5;10;0;0;0;0;1;
6;5;61;4;0;0;0;CTR INCREMENT
7;;95;1;0;0;0;NO OF SWITCHES
8;70;328;14;0;0;0;gNONE
9;5;61;1;0;0;0;
10;10;0;0;0;0;t;
11;5;61;3;0;0;0;BIT SHIFT CONTROL
12;124;95;0;0;2;0;
13;80;329;0;0;0;0;gPROCESS
14;10;0;0;0;0;8;
15;5;61;3;0;0;0;BIT SHIFT CONTROL
16;;98;1;0;0;0;NO OF ITEM+
17;70;328;21;0;0;0;gNONE
18;5;61;1;0;0;0;
19;124;98;0;0;2;0;
20;80;329;0;0;0;0;gPROCESS
21;91;94;0;0;3;0;UNCORR CHAP CTR
22;10;0;0;0;0;1;
23;32;0;0;0;0;10-;
24;36;72;3;0;3;0;
25;4;72;3;0;3;0;ROUND UP CTRS
26;94;328;22;0;3;1;
27;;71;1;0;0;0;CTR OF INDIRECT MR'S
28;70;328;34;0;0;0;gNONE
29;5;61;1;0;0;0;
30;10;0;0;0;0;2;
31;5;61;4;0;0;0;CTR INCREMENT
32;124;71;0;0;2;0;
33;80;329;0;0;0;0;gPROCESS
34;10;0;0;0;0;2;SEQ CHANGE LIST
35;4;92;8;0;0;0;
36;1;545;72;0;0;0;ABS ADDRESS 18:2496
37;2;92;8;0;0;0;
38;3;344;0;0;0;0;QTY TO COPY
39;70;328;44;0;0;0;gNONE
40;30;0;0;0;0;5;
41;1;92;8;0;0;0;START
42;124;544;15;1;2;0;ABS ADDRESS 18/0
43;128;0;0;1;1;0;
44;;544;15;0;0;0;
45;1;344;0;0;0;0;QTTY
46;5;92;8;0;0;0;NEW LIST END
47;;27;4;0;0;0;COMPILER?
48;70;330;0;0;0;0;gNO
49;76;330;1;0;0;0;
SHEET;231
PROCR;329;PROCESS SW/ITEM+/INDIRECT MR LISTS
NOTES;;;
0;81;329;0;0;0;0;
1;3;61;0;0;0;0;
2;4;61;1;0;0;0;
3;91;61;0;0;1;0;
4;;0;2;0;1;0;
5;30;0;0;0;0;4-;
6;5;61;2;0;0;0;UNCORR CHAP
7;35;0;0;0;0;1;
8;124;61;2;0;1;0;
9;36;92;9;0;0;0;
10;32;0;0;0;0;4;
11;37;0;2;0;1;0;REPLACE BY CORR CHAP
12;94;329;4;0;1;1;>NEXT DETAIL
13;10;0;0;0;0;0;
14;5;61;2;0;0;0;
15;91;94;0;0;2;0;UNCORR CHAP CTR
16;10;0;0;0;0;1;
17;4;61;2;0;0;0;
18;91;61;0;0;1;0;
19;;0;2;0;1;0;
20;30;0;0;0;0;4-;
21;2;61;2;0;0;0;
22;71;329;31;0;0;0;gNOT IN THIS CORR CHAP
23;124;61;2;0;1;0;
24;;72;2;0;0;0;CTR WITHIN SWITCH PROCR
25;124;61;3;0;1;0;
26;31;0;0;0;0;0;/////AS NEEDED
27;4;0;2;0;1;0;
28;;61;4;0;0;0;INCREMENT
29;124;61;2;0;1;0;
30;4;72;2;0;0;0;STEP CTR
31;94;329;19;0;1;1;>NEXT DETAIL
32;94;329;16;0;2;1;>NEXT CORR CHAP
33;82;329;0;0;0;0;
SHEET;232
PROCR;330;OPEN FILES CLEAR W/LS
NOTES;RADIX;;PREP STAGE
0;40;A2;0;0;0;1;*****DON'T MOVE*****
1;0;27;9;0;0;0;
2;71;330;11;0;0;0;gNOT PRINT
3;;27;8;0;0;0;PRINTER TYPE
4;11;0;0;0;0;t;
5;30;0;0;0;0;5;
6;1;999;7;0;0;0;ROUTE
7;125;0;4096;1;1;0;
8;124;999;0;0;3;0;
9;123;0;160;0;2;0;>OPEN PRINTER OR MT A9
10;62;0;0;0;0;0;
11;54;61;0;0;0;120;
12;54;94;0;0;0;100;
13;54;66;0;0;0;34;66+49
14;10;0;0;0;0;1;
15;4;92;0;0;0;0;NO OF CHAPS
16;101;0;998;1;3;0;
17;1;92;0;0;0;0;(CHAPS CODED)+1
18;3;61;5;0;0;0;LONG CONSTS PROCR
19;11;0;0;0;0;1;
20;3;61;6;0;0;0;SHORT CONSTS PROCR
21;11;0;0;0;0;1;
22;5;61;7;0;0;0;TSL PROCR
23;10;0;0;0;0;800000;
24;1;27;9;0;0;0;
25;91;0;0;0;3;0;SET FOR REENTRY
SHEET;233
PROCR;331;I/P 1ST BLOCK, UNPACK, PRINT
NOTES;RADIX;B;PREP STAGE
0;80;539;0;0;0;0;gREAD
1;;8;6;1;0;0;
2;2;343;2;1;0;0;'PROGM'
3;70;331;10;0;0;0;gOK
4;;8;4;1;0;0;
5;12;0;0;0;0;5659650000;'  FIN'
6;71;331;0;0;0;0;gKEEP READING
7;150;0;0;0;0;4;
8;C;331;9;0;0;0;gUNLOAD
9;151;0;0;0;0;0;
10;50;8;4;0;0;0;
11;C;341;0;0;0;0;
12;52;8;2;0;0;0;
13;C;341;0;0;0;0;
14;;66;4;1;0;0;SUITE NO
15;30;0;0;0;0;2;
16;1;66;6;2;0;0;JOB NO
17;5;61;112;0;0;0;PROG ID
18;00;66;8;1;0;0;
19;5;72;0;1;0;0;ALPHA SERIAL NUMBER
20;;27;9;0;0;0;
21;70;331;46;0;0;0;gPRINTING
22;;27;4;0;0;0;
23;71;331;44;0;0;0;gDON'T WRITE HDG EITHER
24;86;787;0;0;0;0;
25;71;331;32;0;0;0;gDON'T OPEN A9
26;10;0;0;0;0;1200000;
27;34;343;12;1;0;0;
28;1;999;7;0;0;0;
29;125;0;4096;1;1;0;
30;124;999;0;0;3;0;
31;123;0;160;0;2;0;gOPEN A9 O/P MT
32;62;0;0;0;0;0;
33;10;0;0;0;0;6769596573;'PRINT'
34;5;10;4;1;0;0;
35;10;0;0;0;0;8000;
36;5;10;6;2;0;0;
37;155;0;0;0;0;0;
38;5;10;8;1;0;0;
39;;61;112;0;0;0;OBJECT PROG ID
40;5;10;10;2;0;0;
41;;544;0;1;0;0;
42;5;10;12;1;0;0;
43;80;541;0;0;0;0;gWRITE A9 HEADING BLOCK
44;90;0;0;0;6;0;PREPARE FOR 6 BLKS
45;C;0;0;0;0;300;
46;80;340;0;0;0;0;gWRITE/PRINT 'PROGM'
47;;27;4;0;0;0;COMPILER?
48;71;331;51;0;0;0;gYES
49;40;A6;0;0;0;0;
50;76;331;54;0;0;0;
51;48;A6;0;0;0;3;BACK 0 I/PgO/P
52;C;999;0;0;0;0;
53;76;331;62;0;0;0;gDON'T WRITE 'INDEX'
54;52;9;4;0;0;0;EDIT FIRST HEADING
55;C;341;10;0;0;0;BLOCK
56;80;514;0;0;0;0;OP
57;;543;18;0;0;0;'ppppp'
58;5;9;4;2;0;0;
59;;544;0;1;0;0;BEW
60;5;9;6;1;0;0;
61;80;514;0;0;0;0;gDUMMY 'INDEX' DATA
62;52;9;4;0;0;0;PROG & SERIAL FOR PASS 3
63;C;341;18;0;0;0;
64;5;9;16;1;0;0;
65;80;514;0;0;0;0;gSHORT RUBBISH BLOCK
66;80;539;0;0;0;0;I/P
67;50;8;4;0;0;0;
68;C;341;0;0;0;0;
69;;66;4;1;0;0;PROCR OF ENTRY
70;80;537;0;0;0;0;gCONVERT
71;5;72;2;0;0;0;
72;52;8;2;0;0;0;
73;C;341;0;0;0;0;
74;80;340;0;0;0;0;PRINT 'ENTRY'
75;52;9;4;0;0;0;EDIT SECOND BLOCK
76;C;341;26;0;0;0;
77;80;514;0;0;0;0;gO/P
SHEET;234
PROCR;332;DEAL WITH FILE IDS
NOTES;RADIX;B;
0;17;92;7;0;0;10;SPACE OCCUPIED BY CONVERT TABLES
1;101;0;204;1;1;0;FOR ALLOCATOR
2;5;61;100;0;0;0;SP CHAP SPACE CTR
3;0;91;1;0;0;0;2R
4;31;0;0;0;0;1-;
5;1;92;29;0;0;0;EXTRA CHAP NO
6;1;92;29;0;0;0;
7;3;61;40;0;0;0;LAST ROUTE PARAMETER
8;5;61;39;0;0;0;PARA CTR
9;0;91;1;0;0;0;2R
10;3;91;2;0;0;0;
11;5;91;3;0;0;0;
12;91;91;0;0;2;0;SCAN FILE LIST
13;90;0;0;0;1;0;O/P M.R.
14;C;0;0;0;0;48;
15;80;539;0;0;0;0;I/P
16;;8;6;1;0;0;
17;2;343;6;1;0;0;'CHAPS'
18;70;335;0;0;0;0;gYES
19;50;8;4;0;0;0;
20;C;341;50;0;0;0;UNPACK FILE IDENTITIES
21;;8;46;1;0;0;
22;2;542;26;1;0;0;'?????'
23;3;344;0;1;0;0;WL
24;70;334;0;0;0;0;gFILE IGNORED
25;;66;4;0;0;0;ROUTE TYPE
26;12;0;0;0;0;19;
27;70;332;52;0;0;0;gROUTE TYPE 19
28;;66;6;0;0;0;CHAP NO 
29;80;537;0;0;0;0;CONVERT TO BIN 
30;2;92;0;0;0;0;CHAPS +1 
31;73;333;0;0;0;0;gOK 
32;;542;26;1;0;0;?????' 
33;5;8;46;1;0;0;
34;5;344;0;1;0;0;
35;;91;3;0;0;0;2(R+T)=LIST LENGTH 
36;99;0;0;0;2;0;-R2 MODIFIER 
37;30;0;0;0;0;5;FORM LENGTH OF REMAINDER OF LIST Q6-10 
38;1;343;0;0;0;0;ADDRESS 91:6 
39;98;0;0;0;2;0;FORM ADDRESS OF FIRST TO OPY 
40;124;999;24;0;0;0;(R2) 
41;128;91;4;0;0;0;COPY UP TO DELETE A FILE 
42;12;0;0;0;0;2;
43;4;91;1;0;0;0;REDUCE CTRS FOR DELETED FILE 
44;4;91;2;0;0;0;
45;4;91;3;0;0;0;
46;124;999;22;0;3;0;
47;107;0;5;0;0;0;REDUCE R2 END VALUE 
48;11;0;0;0;0;1;
49;4;61;39;0;0;0;(REDUCE BY 1) 
50;4;61;40;0;0;0;
51;76;334;0;0;0;0;gFILE IGNORED 
52;;66;6;0;0;0;CHAPTER PAIR;RT19 
53;30;0;0;0;0;2;Q2->Q4 
54;35;0;0;0;0;1000;
55;124;91;3;0;1;0;
56;37;91;4;0;0;0;STORE TX AREA CHAP WITH GP DETAILS 
57;;66;10;0;0;0;SPECIAL LENGTH 
58;80;537;0;0;0;0;gBIN 
59;35;0;0;0;0;111;
60;124;91;3;0;1;0;
61;37;91;4;0;0;0;STORE HALF-LENGTH AS GP LENGTH 
62;;66;8;0;0;0;GP HALF-LENGTH 
63;80;537;0;0;0;0;gBIN 
64;76;333;7;0;0;0;
SHEET;235
PROCR;333;FILE IDS 
NOTES;RADIX;B;
0;;66;4;0;0;0;ROUTE TYPE 
1;12;0;0;0;0;3;
2;70;333;9;0;0;0;
3;12;0;0;0;0;1;
4;71;334;0;0;0;0;gNOT 4 
5;0;66;8;0;0;0;ANNEX LENGTH 
6;80;537;0;0;0;0;gCONVERT 
7;33;0;0;0;0;6-;DIVIDE BY 64 
8;5;61;8;0;0;0;MULTIPLES FOR Q10 FN WORD 
9;;61;39;0;0;0;PARA CTR 
10;11;0;0;0;0;1;
11;124;91;3;0;1;0;
12;5;91;5;0;0;0;TX AREA ENTRY 
13;35;0;0;0;0;1000;
14;;66;8;0;0;0;HALF LENGTH 
15;80;537;0;0;0;0;gBIN 
16;35;0;0;0;0;111;
17;11;0;0;0;0;2;
18;37;91;4;1;2;0;
19;35;0;0;0;0;10000;
20;;91;3;0;0;0;2(R+T) 
21;2;91;2;0;0;0;
22;30;0;0;0;0;4;CTR WITHIN GPTXAREAS 
23;37;91;4;1;2;0;
24;10;0;0;0;0;0;
25;124;91;3;0;1;0;
26;2;91;4;0;0;0;
27;124;91;3;0;1;0;
28;5;91;4;0;0;0;SET GP TX AREA SIGN B/T 
29;10;0;0;0;0;2;
30;4;91;3;0;0;0;STEP(ROUTES +TX AREAS) CTR 
31;4;61;39;0;0;0;STEP PARA CTR 
SHEET;236
PROCR;334;FILE IDS 
NOTES;RADIX;;
0;52;8;2;0;0;0;
1;C;341;50;0;0;0;
2;80;340;0;0;0;0;PRINT FILES 
3;0;344;0;1;0;0;
4;70;332;15;0;0;0;gFILE IGNORED 
5;94;0;0;0;2;2;
6;90;0;0;0;3;0;
7;C;0;0;0;0;6;
8;;66;4;1;3;0;
9;80;537;0;0;0;0;CONVERT 
10;5;66;4;1;3;0;
11;94;334;8;0;3;2;
12;35;0;0;0;0;1000;
13;;66;6;1;0;0;
14;30;0;0;0;0;3;
15;37;91;2;1;2;0;CHAP NO (BIN) 
16;;66;4;0;0;0;
17;12;0;0;0;0;13;
18;71;334;26;0;0;0;gNOT RT 19 
19;;66;6;0;0;0;PAIR OF CHAPS 
20;80;538;0;0;0;0;gDEC 
21;62;0;0;0;0;0;
22;35;0;0;0;0;1000;
23;30;0;0;0;0;3;
24;37;91;2;1;2;0;STORE Q1 OF DECIMAL PAIR 
25;76;334;31;0;0;0;
26;;66;8;1;0;0;ANNEX (BIN) IN WORDS 
27;11;0;0;0;0;2;
28;4;91;2;1;2;0;HALF LENGTH 
29;3;66;8;1;0;0;SET ANNEX LENGTH 
30;4;66;8;1;0;0;
31;0;66;4;1;0;0;ROUTE TYPE 
32;30;0;0;0;0;1;
33;5;66;4;1;0;0;
34;0;66;2;1;0;0;
35;30;0;0;0;0;6-;RT. ALIGN THE FILE I.D. 
36;5;66;2;1;0;0;
37;52;9;4;0;1;0;
38;C;341;62;0;0;0;
39;94;332;15;0;1;12;O/P CTR 
40;;544;0;1;0;0;B.E.WORD 
41;5;9;52;1;0;0;
42;80;514;0;0;0;0;
43;76;332;13;0;0;0;
SHEET;237
PROCR;335;O/P REMAINING FILE IDS, CHAP START POINTS
NOTES;RADIX;B;PREP
0;96;0;0;0;1;0;
1;70;335;5;0;0;0;
2;;544;0;1;0;0;BE WORD
3;5;9;4;1;1;0;
4;80;514;0;0;0;0;O/P
5;50;8;4;0;0;0;
6;C;342;0;0;0;0;UNPACK 'CHAPS'
7;54;70;0;1;0;100;CLEAR FOR SECTION DETAILS
8;80;512;0;0;0;0;gBLANK LINE
9;52;8;2;0;0;0;
10;C;342;0;0;0;0;
11;80;340;0;0;0;0;PRINT 'CHAPS'
12;80;539;0;0;0;0;gREAD MT
13;;8;6;1;0;0;
14;12;0;0;0;0;7273666955; 'STORE'
15;71;337;0;0;0;0;gNO
16;50;8;8;0;0;0;
17;C;342;6;0;0;0;66/6 ET SEQ
18;10;0;0;0;0;7273666955; 'STORE'
19;5;66;2;1;0;0;
20;5;66;4;1;0;0;
21;52;8;4;0;0;0;
22;C;342;2;0;0;0;
23;5;8;8;1;0;0;CLEAR
SHEET;238
PROCR;336;DEAL WITH 'STORE' DATA
0;91;92;28;0;1;0;CHAPS INITIALLY
1;92;0;0;0;1;0; (CLEAR MODIFIER)
2;;66;6;0;1;0;
3;12;0;0;0;0;1;
4;70;336;11;0;0;0;gOP,FIRST STORE
5;12;0;0;0;0;1;
6;71;336;14;0;0;0;gREJECT
7;10;0;0;0;0;20;BIT 6
8;32;0;0;0;0;10-;
9;10;0;0;0;0;20;
10;37;92;10;0;1;0;SET IND FOR SECOND STORE
11;94;336;2;0;1;1;
12;;66;7;0;1;0;
13;70;336;16;0;0;0;gOK
14;;542;26;1;0;0; '?????'
15;5;8;46;1;0;0;
16;80;340;0;0;0;0;gPRINT STORE
17;80;539;0;0;0;0;gREAD
SHEET;239
PROCR;337;PRINT CHAPS I/P & TEST S/D
NOTES;RADIX;B;PREP STAGE
0;80;530;0;0;0;0;gPRINT'INDEX'EX SEC 5
1;80;530;0;0;0;0;gPRINT BLANK LINE
2;76;337;5;0;0;0;
3;80;340;0;0;0;0;PRINT IGNORED SECTION
4;80;539;0;0;0;0;gREAD
5;;8;12;1;0;0;
6;2;542;6;1;0;0;PROCR
7;70;346;0;0;0;0;
8;1;542;6;1;0;0;
9;2;542;2;1;0;0;TABLE
10;70;346;0;0;0;0;
11;1;542;2;1;0;0;
12;2;542;4;1;0;0;CONST
13;70;346;0;0;0;0;
SHEET;240
PROCR;338;SECTION DETAILS
NOTES;RADIX;B;PREP STAGE
0;;8;14;1;0;0;AMEND IND
1;30;0;0;0;0;4;
2;5;8;2;1;0;0;
3;5;8;14;1;0;0;
4;50;8;2;0;0;0;
5;C;341;38;0;0;0;
6;52;8;2;0;0;0;
7;C;341;38;0;0;0;
8;;8;46;1;0;0;
9;2;542;26;1;0;0;?????
10;70;337;3;0;0;0;gIGNORE THIS SECTION
11;80;340;0;0;0;0;PRINT SECTIONS
12;;66;4;1;0;0;
13;80;537;0;0;0;0;CONVERT
14;5;66;4;1;0;0;
15;;66;8;1;0;0;
16;80;537;0;0;0;0;gCONVERT
17;5;66;8;1;0;0;CHAP OF SECTION
18;;66;2;1;0;0;
19;80;537;0;0;0;0;CONVERT
20;3;66;2;1;0;0;SECT NO
21;92;0;0;0;1;0;
22;;66;6;1;0;0;T.A. IND
23;70;339;14;0;0;0;-NOT T.A.
24;90;0;0;0;2;0;
25;C;0;0;0;0;4;
26;;92;34;0;2;0;CODER'S TRANSIT AREAS ONLY FOR GP O/P
27;2;66;2;1;0;0;SECTION NUMBER
28;70;339;14;0;0;0;gDON'T COUNT SECTION AS TRANSIT AREA
29;94;338;26;0;2;1;
30;10;0;0;0;0;2;
31;4;91;3;0;0;0;TX AREA CTR
32;4;66;4;1;0;0;INCREASE ANNEX LENGTH
33;4;61;39;0;0;0;PARA COUNTER
SHEET;241
PROCR;339;SECT DETAILS
NOTES;RADIX;B;PREP STAGE
0;0;66;4;1;0;0;LENGTH IN WORDS
1;31;0;0;0;0;5;IN LOCNS IN Q2
2;35;0;0;0;0;1;
3;124;66;8;0;0;0;UNCORRECTED CHAPTER
4;36;92;9;0;0;0;CORRECTED CHAP OF TRANSIT AREA
5;30;0;0;0;0;2;LENGTH Q7-10,CHAP Q6
6;1;61;39;0;0;0;PARA CTR
7;12;0;0;0;0;1;
8;30;0;0;0;0;3;PARAMETER IN Q4-5
9;1;66;2;1;0;0;SECTION NUMBER Q1-3
10;124;91;3;0;1;0;2(ROUTES+TX AREAS)
11;5;91;2;1;0;0;
12;;545;56;0;0;0;BIT 19 AND 20         BIT 20 FOR T.A. IND
13;76;339;15;0;0;0;
14;;545;7;0;0;0;BIT 19
15;17;66;4;1;0;32;LENGTH X 2 AND SHIFT Q
16;1;66;8;1;0;0;UNCORR CHAP NO
17;5;70;0;0;1;0;SECT DETS
18;92;66;8;0;2;0;UNCORR CHAP
19;0;61;54;0;2;0;SPACE CTR
20;124;66;2;0;0;0;SEC NO
21;5;94;0;0;0;0;SET REL START
22;0;66;4;0;0;0;
23;1;66;4;0;0;0;LENGTH (LOCNS)
24;4;61;54;0;2;0;
25;76;337;4;0;0;0;gNEXT SECTION
SHEET;242
PROCR;340;
0;81;340;0;0;0;0;
1;55;8;0;1;0;52;
2;C;7;0;1;0;0;
3;35;0;0;0;0;1111;
4;37;7;2;0;0;0;
5;80;511;0;0;0;0;PRINT
6;82;340;0;0;0;0;
SHEET;243
TABLE;341;1;
NOTES;;;
0;66;0;0;0;2;0;5;0;0;0;0;0;0;AMEND IND
2;66;2;0;0;2;0;5;0;11;0;0;0;0;PROGM/ENTRY
4;66;4;0;0;1;0;5;5;1;2;0;0;0;SUITE/PROCR
6;66;6;0;0;2;0;5;0;2;0;0;0;0;JOB/PRIORITY
8;66;8;0;0;2;0;5;0;1;0;0;0;1;SERIAL/CODER
10;343;10;0;0;2;0;5;0;0;0;0;0;0;ALIGN MARKS
12;343;8;0;0;2;0;5;0;0;0;0;0;0;'INDEX'
14;543;18;0;0;0;0;5;0;0;0;0;0;0;
16;343;13;0;0;0;0;1;3;4;0;0;0;0;'4'
18;66;4;0;0;1;0;3;7;0;0;0;0;0;PROG SUITE
20;66;6;0;0;2;0;2;3;0;0;0;0;0;PROG ID
22;66;8;0;0;2;0;5;0;0;0;0;0;0;PROG SERIAL
24;544;0;0;0;2;0;5;0;0;0;0;0;1;BEW
26;92;5;0;0;0;0;5;0;0;4;0;0;0;FP IND
28;92;4;0;0;0;0;5;0;0;4;0;0;0;MG
30;66;6;0;0;2;0;5;0;0;0;0;0;0;PRIORITY
32;92;0;0;0;0;0;5;0;0;4;0;0;0;CHAPS+1
34;92;29;0;0;0;0;5;0;0;4;0;0;0;CHAPS INITIALLY
36;544;0;0;0;2;0;5;0;0;0;0;0;1;BEW
38;66;10;0;0;2;0;5;0;0;0;0;0;0;AMEND IND
40;66;0;0;0;2;0;5;0;5;0;0;0;0;SERIAL/CODER
42;66;2;0;0;1;0;5;5;4;4;0;0;0;SEC NO
44;66;4;0;0;1;0;5;5;3;4;0;0;0;LENGTH
46;66;6;0;0;1;0;5;5;0;4;0;0;0;TX AREA IND
48;66;8;0;0;1;0;5;5;3;4;0;0;1;CHAP
50;66;0;0;0;2;0;5;0;0;0;0;0;0;AMEND IND == FILES
52;66;2;0;0;2;0;5;0;15;0;0;0;0;FILE ID
54;66;4;0;0;1;0;5;5;1;4;0;0;0;ROUTE TYPE
56;66;6;0;0;1;0;5;5;2;4;0;0;0;RETN PERIOD
58;66;8;0;0;1;0;5;5;2;4;0;0;0;MBS
60;66;10;0;0;1;0;5;5;0;4;0;0;1;ALT ROUTE
62;66;2;0;0;2;0;5;0;0;0;0;0;0;FILE ID == FILES
64;66;4;0;0;1;0;5;5;0;4;0;0;0;ROUTE TYPE
66;66;6;0;0;1;0;5;5;0;4;0;0;0;RETN PERIOD
68;66;8;0;0;1;0;5;5;0;4;0;0;0;MBS
70;61;0;0;0;0;0;5;0;0;4;0;0;0;START LOCN
72;66;10;0;0;1;0;5;5;0;4;0;0;1;ALT ROUTE
SHEET;244
TABLE;342;1;
0;66;0;0;0;2;0;5;0;0;0;0;0;0;AMEND IND
2;66;2;0;0;2;0;5;0;1;0;0;0;0;'CHAPS'
4;66;4;0;0;0;0;5;0;0;4;0;0;0;NUMBER OF CHAPS
6;66;6;0;0;0;0;5;0;1;4;0;0;0;1
8;66;7;0;0;0;0;5;0;1;5;0;0;0;2
10;66;8;0;0;0;0;5;0;1;5;0;0;0;3
12;66;9;0;0;0;0;5;0;1;5;0;0;0;4
14;66;10;0;0;0;0;5;0;1;5;0;0;0;5
16;66;11;0;0;0;0;5;0;1;5;0;0;0;6
18;66;12;0;0;0;0;5;0;1;5;0;0;0;7
20;66;13;0;0;0;0;5;0;1;5;0;0;0;8
22;66;14;0;0;0;0;5;0;1;5;0;0;0;9
24;66;15;0;0;0;0;5;0;1;5;0;0;0;10
26;66;16;0;0;0;0;5;0;1;5;0;0;0;11
28;66;17;0;0;0;0;5;0;1;5;0;0;0;12
30;66;18;0;0;0;0;5;0;1;5;0;0;0;13
32;66;19;0;0;0;0;5;0;1;5;0;0;1;14-TH START
34;343;8;0;0;2;0;5;0;6;0;0;0;0;'INDEX'
36;92;29;0;0;0;0;1;4;4;0;0;0;0;CHAPS INITIALLY
38;92;10;0;0;0;0;1;4;5;1;0;0;0;CORRECTED CHAPTER NUMBERS
40;92;11;0;0;0;0;1;4;5;1;0;0;0;
42;92;12;0;0;0;0;1;4;5;1;0;0;0;
44;92;13;0;0;0;0;1;4;5;1;0;0;0;
46;92;14;0;0;0;0;1;4;5;1;0;0;0;
48;92;15;0;0;0;0;1;4;5;1;0;0;0;
50;92;16;0;0;0;0;1;4;5;1;0;0;0;
52;92;17;0;0;0;0;1;4;5;1;0;0;0;
54;92;18;0;0;0;0;1;4;5;1;0;0;0;
56;92;19;0;0;0;0;1;4;5;1;0;0;0;
58;92;20;0;0;0;0;1;4;5;1;0;0;0;
60;92;21;0;0;0;0;1;4;5;1;0;0;0;
62;92;22;0;0;0;0;1;4;5;1;0;0;0;
64;92;23;0;0;0;0;1;4;5;1;0;0;1;LAST ENTRY
SHEET;245
CONST;343;1;FOR PASS 2 PREP STAGE
0;(R)91:6;
2;(A)PROGM;
4;ENTRY;
6;CHAPS;
8;INDEX;
10;(D)6p6p6p6p6p;
12;0514908000;08000 FILE A9
14;(A)
SHEET;246
PROCR;344;DUMMIES FOR SEC 61 DESCRIPTION
NOTES;;;
0;;61;0;0;0;0;ACTION WL/ENTRY POINT
1;;61;1;0;0;0;NON-ARITH IND
SHEET;247
PROCR;345;
0;81;345;0;0;0;0;
1;0;345;0;0;0;0;
2;5;509;0;0;0;0;
3;76;509;6;0;0;0;
SHEET;248
PROCR;346;FORM PARA CTR ETC
NOTES;RADIX;B;PREP STAGE
0;80;345;0;0;0;0;
1;80;363;0;0;0;0;gEDIT FIRST DIRECTIVE 
2;10;0;0;0;0;0;
3;5;545;97;0;0;0;
4;;61;39;0;0;0;
5;11;0;0;0;0;1;FORM 
6;3;61;41;0;0;0;MOD GROUP PARAMETER 
7;11;0;0;0;0;4;
8;5;61;39;0;0;0;TOTAL NO OF PARAMETORS 
9;0;92;8;0;0;0;LIST END 
10;30;0;0;0;0;5;
11;1;544;15;0;0;0;ABS ADDRESS 18:0 
12;91;0;0;0;1;0;
13;;544;14;0;0;0;ABS ADDRESS 18:2499 
14;5;61;118;0;0;0;LOCN CTR SC'S FWD 
15;;544;2;1;0;0;0:144 
16;5;61;44;1;0;0;O/P MOD CTR 
17;10;0;0;0;0;1;
18;5;61;111;0;0;0;UNCORRECTED CHAP NO. 
19;5;91;0;0;0;0;
20;54;63;0;1;0;580;63+62+20 
21;10;0;0;0;0;41;
22;5;61;26;1;0;0;TYPE 
23;5;61;28;1;0;0;SECTION NO. 
24;80;516;0;0;0;0;O/P TYPE S/R;THIS CLEARS S67 INIT 
25;10;0;0;0;0;1;
26;5;61;42;1;0;0;
27;5;61;109;0;0;0;CLEAR STERLING CTR 
28;5;67;0;0;0;0;67/0 NOT CLEARED BY O/P TYPE S/R 
SHEET;249
PROCR;347;O/P PARAS 
NOTES;RADIX;B;CHAP START ROUTINE 
0;;61;39;0;0;0;PARA CTR 
1;30;0;0;0;0;5;
2;5;61;0;1;0;0;
3;91;61;0;1;3;0;M/R 3 AT W/L 
4;95;0;0;0;3;0;
5;5;67;2;0;0;0;
6;80;518;0;0;0;0;
7;94;347;4;0;3;1;
8;10;0;0;0;0;3;
9;4;61;5;0;0;0;LONG PROCR 
10;4;61;6;0;0;0;SHORT PROCR 
11;4;61;7;0;0;0;TSL PROCR 
12;10;0;0;0;0;0;
13;35;0;0;0;0;1;
14;124;61;111;0;0;0;UNCORRECTED CHAP NO 
15;36;92;9;0;0;0;CORRECTED CHAP NUMBER 
16;3;61;51;0;0;0;
17;1;61;51;0;0;0;
18;5;61;3;0;0;0;
19;;61;5;0;0;0;
20;30;0;0;0;0;2;
21;1;61;3;0;0;0;
22;5;61;4;0;0;0;LN:2C 
23;10;0;0;0;0;.0000.;14:14 
24;5;61;12;1;0;0;LN CTR 
25;5;61;14;1;0;0;SN CTR 
26;;544;16;1;0;0;SE!! this line difficult to read – needs sight of original
27;5;61;16;1;0;0;TSL CTR 
28;5;61;10;1;0;0;
29;80;518;0;0;0;0;O/P ZERO COMPARTMENTFOR LINK 
30;80;453;0;0;0;0;O/P 25/1/1 4096+24/0/3 0 
31;10;0;0;0;0;700;7 IN Q3 
32;5;67;1;0;0;0;SET'MR ENTRY' IND 
33;0;545;58;0;0;0;23/0/2 0 
34;80;359;0;0;0;0;gO/P 
35;80;518;0;0;0;0;O/P TWO ZERO COMPARTMENTS 
36;80;518;0;0;0;0;
37;;546;13;0;0;0;26/0/1/6- 
38;80;498;0;0;0;0;gO/P INT SC 
SHEET;250
PROCR;348;SECTION START ROUTINE 
NOTES;RADIX;B;
0;62;0;0;0;0;0;
1;;0;6;1;12;0;
2;2;542;6;1;0;0;PROCR 
3;71;348;7;0;0;0;
4;10;0;0;0;0;1;
5;5;61;42;0;0;0;
6;76;350;2;0;0;0;
7;1;542;6;1;0;0;
8;2;542;0;1;0;0; 'VALUE' 
9;70;351;22;0;0;0;gYES 
10;80;353;0;0;0;0;ROUND UP SPACE CTR 
11;;0;14;2;12;0;CONST OR TABLE TYPE 
12;30;0;0;0;0;4-;
13;5;61;47;0;0;0;
14;10;0;0;0;0;2;
15;5;61;42;0;0;0;
16;;0;6;1;12;0;
17;2;542;2;1;0;0;TABLE 
18;70;350;1;0;0;0;
SHEET;251
PROCR;349;SECTION START ROUTINE 
NOTES;RADIX;B;
SHEET;252
PROCR;350;SECTION START ROUTINE 
NOTES;RADIX;B;
0;10;0;0;0;0;1; 'CONST' 
1;11;0;0;0;0;1;TABLE 
2;11;0;0;0;0;1;PROCR 
3;3;61;26;2;0;0;
4;84;352;0;0;0;0;
5;;7;12;2;0;0;NEW PROCR NO 
SHEET;253
PROCR;351;
NOTES;RADIX;B;
0;80;537;0;0;0;0;gCONVERT 
1;3;61;28;2;0;0;
2;3;61;10;0;0;0;CURRENT PROCR 
3;2;72;2;0;0;0;ENTRY PROCR 
4;71;351;7;0;0;0;gNO 
5;;61;43;0;0;0;
6;5;27;5;0;0;0;ENTRY LOCN 
7;0;61;43;0;0;0;
8;5;61;11;0;0;0;STORE PROCR START ADDRESS 
9;80;354;0;0;0;0;gSET'PRINT PROCEDURE'IND 
10;80;516;0;0;0;0;O/P TYPE 
11;10;0;0;0;0;80;TRACK 8 
12;5;61;46;0;0;0;HEAD OF FORM 
13;;27;4;0;0;0;COMPILER? 
14;70;351;18;0;0;0;gNO 
15;5;545;97;0;0;0;(ALWAYS PRINT DIRECTIVE BLOX) 
16;;23;46;0;0;0;
17;70;351;19;0;0;0;gPARTIAL. NO BLANK LINE 
18;80;530;0;0;0;0;gSECOND PRINT SR 
19;80;510;0;0;0;0;gPRINT 
20;80;360;0;0;0;0;BULK CLEAR SEC 7 
21;76;362;0;0;0;0;
22;86;352;0;0;0;0;;'VALUE' DIRECTIVE 
23;12;0;0;0;0;7;
24;70;351;11;0;0;0;g'VALUE' FOLLOWS 'VALUE' 
25;10;0;0;0;0;7;
26;3;61;26;2;0;0;
27;84;352;0;0;0;0;
28;5;61;28;1;0;0;CLEAR 'PROCR NUMBER' 
29;5;61;42;0;0;0;CLEAR SPACE CTR INCREMENT 
30;76;351;10;0;0;0;
SHEET;254
PROCR;352;SWITCH A 
NOTES;RADIX;B;
0;85;352;0;0;0;0;
1;C;370;0;0;0;0;INST 
2;C;475;0;0;0;0;TABLE 
3;C;454;0;0;0;0;CONST 
4;C;362;0;0;0;0;DUMMY 
5;C;362;0;0;0;0; ' ' 
6;C;362;0;0;0;0; ' ' 
7;C;480;0;0;0;0;VALUE 
SHEET;255
PROCR;353;SUBROUTINE 1 
NOTES;RADIX;B;ROUND OFF TO MULT OF 2 
0;81;353;0;0;0;0;
1;10;0;0;0;0;0;
2;34;544;4;0;0;0;
3;36;61;43;0;0;0;SPACE CTR 
4;70;353;9;0;0;0;
5;5;61;42;0;0;0;
6;5;67;0;1;0;0;
7;5;67;2;1;0;0;
8;80;518;0;0;0;0;gO/P ZERO LOCATION 
9;82;353;0;0;0;0;
SHEET;256
PROCR;354;EXTRACT 'PRINT' PROCEDURE'IND FROM ARRAY IN SEC 23 
0;81;354;0;0;0;0;
1;19;61;10;0;0;14;PROCR/20 
2;5;355;0;0;0;0;
3;32;0;0;0;0;9;
4;5;356;0;0;0;0;REMAINDER 
5;34;543;20;0;0;0;Line 35406 to 35411 taken from stuck on note: line 35412 is on next page.
6;124;356;0;0;1;0;
7;33;0;0;0;0;0;///// 
8;124;355;0;0;1;0;
9;36;23;5-;0;0;0;
10;5;23;47;0;0;0;NON-ZERO TO PRINT WHOLE PROCR
11;82;354;0;0;0;0;
SHEET;257
PROCR;355;O/P WITH ZERO REF: PARA=2C
NOTES;;;
0;81;355;0;0;0;0;(A)=INSTRUCTION
1;5;67;3;0;0;0;
2;;61;3;0;0;0;2C
3;5;67;2;0;0;0;
4;80;518;0;0;0;0;
5;82;355;0;0;0;0;
SHEET;258
PROCR;356;O/P NON-ARITH INSTRUCTION
NOTES;;;
0;81;356;0;0;0;0;
1;5;61;0;0;0;0;
2;10;0;0;0;0;1;
3;5;61;1;0;0;0;
4;80;536;0;0;0;0;gCOMPLEX O/P
5;82;356;0;0;0;0;
SHEET;259
PROCR;357;TEST SHORT/LONG NUMBER
NOTES;;;
0;81;357;0;0;0;0;
1;5;61;0;0;0;0;STORE ACTION
2;;61;53;0;0;0;
3;70;357;6;0;0;0;gSHORT NO
4;80;481;0;0;0;0;gLONG NO S/R
5;82;357;0;0;0;0;
6;80;483;0;0;0;0;gSHORT NO S/R
7;82;357;0;0;0;0;
SHEET;260
PROCR;358;O/P ARITH INSTRUCTION
NOTES;;;
0;81;358;0;0;0;0;
1;5;61;0;0;0;0;
2;5;61;1;0;0;0;
3;80;536;0;0;0;0;gCOMPLEX O/P
4;82;358;0;0;0;0;
SHEET;261
PROCR;359;O/P WITH ZERO REF/PARA
NOTES;;;
0;81;359;0;0;0;0;
1;5;67;3;0;0;0;
2;80;518;0;0;0;0;gO/P
3;82;359;0;0;0;0;
SHEET;262
PROCR;360;
0;81;360;0;0;0;0;
1;54;7;2;1;0;48;BULK CLEAR SECTION 7
2;82;360;0;0;0;0;
SHEET;263
PROCR;361;LN:2C SUBROUTINE
NOTES;;;
0;81;361;0;0;0;0;(A)=INSTRUCTION
1;5;67;3;0;0;0;
2;0;61;4;0;0;0;LN:2C FOR FIRST LN PROCR
3;5;67;2;0;0;0;IN CHAP
4;80;518;0;0;0;0;gO/P
5;82;361;0;0;0;0;
6;80;361;0;0;0;0;(THEN GET NEXT BLOCK)
SHEET;264
PROCR;362;GET NEXT BLOCK
NOTES;RADIX;B;
0;80;509;0;0;0;0;gREAD
1;;0;6;1;12;0;
2;2;542;4;1;0;0;'CONST'
3;73;352;0;0;0;0;gNOT A DIRECTIVE
4;80;363;0;0;0;0;EDIT DIRECTIVES
5;;0;6;1;12;0;
6;2;542;4;1;0;0;'CONST'
7;70;365;0;0;0;0;
8;1;542;4;1;0;0;
9;2;542;2;1;0;0;TABLE
10;70;365;0;0;0;0;
11;1;542;2;1;0;0;
12;2;542;6;1;0;0;'PROCR'
13;70;365;0;0;0;0;
14;1;542;6;1;0;0;
15;2;542;0;1;0;0;'VALUE'
16;70;351;22;0;0;0;gYES
17;1;542;0;1;0;0;
18;2;542;10;1;0;0;END(SPACE) (SPACE)
19;71;362;24;0;0;0;
20;10;0;0;0;0;1;
21;5;61;48;0;0;0;
22;80;364;0;0;0;0;gTEST PREVIOUS DIRECTIVE WAS 'VALUE'
23;76;365;12;0;0;0;
24;1;542;10;1;0;0;
25;2;542;8;1;0;0;'NOTES'
26;71;352;0;0;0;0;
27;80;510;0;0;0;0;gPRINT 'NOTES' LINE
28;80;360;0;0;0;0;BULK CLEAR SEC 7
29;76;362;0;0;0;0;
SHEET;265
PROCR;363;EDIT DIRECTIVES
0;81;363;0;0;0;0;
1;80;360;0;0;0;0;BULK CLEAR SEC 7
2;;77;2;1;0;0;AMEND IND
3;5;7;2;1;0;0;
4;;77;4;1;0;0;LINE SERIAL
5;5;7;6;1;0;0;
6;;77;6;1;0;0;'PROCR/TABLE/CONST/NOTES/VALUE/END'
7;5;7;10;1;0;0;
8;;77;8;1;0;0;PROCR NO
9;30;0;0;0;0;4-;
10;5;7;12;1;0;0;
11;;77;10;1;0;0;OLD PROCR NO
12;5;7;16;1;0;0;
13;;77;6;1;0;0;
14;2;542;8;1;0;0;'NOTES'
15;71;363;19;0;0;0;gNO
16;;77;12;1;0;0;'RADIX'
17;5;7;16;1;0;0;
18;76;363;21;0;0;0;
19;;77;12;1;0;0;PASS 1 REPORTS
20;5;7;48;1;0;0;
21;;77;6;1;0;0;
22;2;542;6;1;0;0;'PROCR'
23;70;363;27;0;0;0;gYES
24;;77;14;1;0;0;TABLE/CONST TYPE/RADIX LETTER
25;5;7;20;1;0;0;
26;76;363;29;0;0;0;
27;;77;14;1;0;0;FIRST 5 CHARS ANNOTATION
28;5;7;20;1;0;0;
29;55;77;16;1;0;26;COPY ANNOTATION
30;C;7;22;1;0;0;
31;82;363;0;0;0;0;
SHEET;266
PROCR;364;DEAL WITH 'VALUE' DIRECTIVE 
NOTES;;;
0;81;364;0;0;0;0;
1;86;352;0;0;0;0;SWITCH LAST TIME THRU
2;12;0;0;0;0;7;
3;71;364;13;0;0;0;gNOT 'VALUE'
4;;542;8;1;0;0; 'NOTES'
5;5;61;26;1;0;0;
6;5;67;2;0;0;0;REF=0;ITEM=SPACE CTR
7;;61;43;0;0;0;
8;5;67;3;0;0;0;
9;80;517;0;0;0;0;gO/P TERMINAL 'REF' UNIT
10;10;0;0;0;0;6;
11;5;61;26;2;0;0;
12;80;516;0;0;0;0;gO/P'TYPE6' 
13;82;364;0;0;0;0;
SHEET;267
PROCR;365;TEST NEW CHAP 
NOTES;RADIX;B;
0;80;364;0;0;0;0;gTEST LAST DIRECTIVE WAS 'VALUE'
1;;7;12;2;0;0;NEW PROCR
2;5;61;35;0;0;0;
3;124;61;111;0;0;0;THIS CHAP UNCORR
4;;92;9;0;0;0;LAST PROCR THIS CHAP
5;30;0;0;0;0;2-;
6;80;538;0;0;0;0;gCONVERT TO DEC
7;2;61;35;0;0;0;
8;72;348;0;0;0;0;NOT NEW CHAP
9;11;0;0;0;0;1;TEST THIS PROCEDURE SAFETY
10;71;348;0;0;0;0;ONE GREATER THAN PREDEVICE
11;62;0;0;0;0;0;
12;80;353;0;0;0;0;gROUND UP SPACE CTR
13;80;366;0;0;0;0;gROUND UP FORMED SECTIONS
14;80;367;0;0;0;0;gO/P FORMED SECTIONS
15;76;368;0;0;0;0;
SHEET;268
PROCR;366;ROUND UP SECTION CTRS 
NOTES;RADIX;B;SUBROUTINE
0;81;366;0;0;0;0;
1;90;0;0;0;2;0;
2;C;0;0;0;0;6;
3;0;61;13;0;2;0;END VALUE
4;31;0;0;0;0;2;
5;32;0;0;0;0;1-;(DIVIDE BY 4)
6;38;0;0;0;0;4;ROUND UP TO MULTIPLE OF 4
7;31;0;0;0;0;2;
8;5;61;13;0;2;0;
9;94;366;3;0;2;2;
10;82;366;0;0;0;0;
SHEET;269
PROCR;367;O/P FORMED SECTIONS 
NOTES;RADIX;B;SUBROUTINE
0;81;367;0;0;0;0;
1;10;0;0;0;0;600000;
2;5;61;0;1;0;0;
3;5;61;12;0;0;0;
4;5;61;2;0;0;0;
5;91;61;2;0;3;0;
6;;544;5;0;3;0;TYPE NO
7;5;61;26;1;0;0;
8;;61;5;0;3;0;
9;5;61;28;2;0;0;PROCR NUMBER
10;80;516;0;0;0;0;O/P TYPE
11;;544;8;0;3;0;
12;5;61;42;0;0;0;NO OF LOCNS TO STEP ON LON CTR ON O/P
13;124;61;0;0;0;0;
14;;61;12;1;0;0;SECT COUNTER
15;5;61;30;1;0;0;
16;0;61;30;0;0;0;
17;2;61;31;0;0;0;
18;70;367;28;0;0;0;gNOTHING TO OUTPUT
19;;544;8;0;0;0;4
20;30;0;0;0;0;5;
21;1;544;11;0;3;0;SECT NO OF TRANS SECT
22;1;61;30;0;0;0;
23;128;67;0;0;0;0;
24;80;518;0;0;0;0;O/P
25;123;0;4;0;0;0;
26;C;61;30;0;0;0;
27;76;367;19;0;0;0;
28;10;0;0;0;0;1;
29;4;61;2;0;0;0;
30;123;0;2;0;0;0;
31;C;61;0;0;0;0;
32;76;367;5;0;0;0;
33;82;367;0;0;0;0;
SHEET;270
PROCR;368;DEAL WITH TRANS VACANT SECTIONS 
NOTES;RADIX;B;CHAP END ROUTINE
0;10;0;0;0;0;1;TYPE 1
1;5;61;26;2;0;0;
2;101;0;1001;1;3;0;CALC SWITCH PROCR
3;1;61;111;0;0;0;THIS CHAP UNCORRECTED
4;5;61;28;2;0;0;61/43= CHAP LENGTH
5;80;516;0;0;0;0;gO/P 'TYPE'
6;;61;43;0;0;0;CHAP LENGTH
7;124;61;111;0;1;0;UNCORR CHAP
8;5;72;17;0;0;0;STORE 72/18-36
9;;542;22;1;0;0; 'TYPE.'
10;5;61;26;1;0;0;
11;5;61;28;1;0;0;
12;80;517;0;0;0;0;ALPHA O/P SR
13;10;0;0;0;0;1;
14;1;61;111;0;0;0;
15;3;61;111;0;0;0;
16;;61;48;0;0;0;
17;70;346;21;0;0;0;
18;76;369;1;0;0;0;
SHEET;271
PROCR;369;PROG END ROUTINE 
NOTES;RADIX;B;
0;76;369;7;0;0;0;THIS AN ORDER CONTANT
1;80;520;0;0;0;0;-O/P REMAINING DETS S/R
2;0;545;4;0;0;0;ALL THE p'S
3;5;66;2;1;0;0;SET AS BLOCK SERIAL
4;;369;0;0;0;0;
5;5;526;0;0;0;0;PLANT AN EXIT ORDER
6;76;522;21;0;0;0;gI/P C-LINE SR
7;10;0;0;0;0;1;
8;5;23;47;0;0;0;ALWAYS PRINT END SIGN
9;80;530;0;0;0;0;gBLANK LINE
10;80;511;0;0;0;0;gPRINT END SIGN
11;;72;2;0;0;0;ENTRY POINT
12;5;61;35;0;0;0;
13;80;486;0;0;0;0;
14;5;92;8;0;0;0;CHAP OF ENTRY
15;;27;5;0;0;0;ENTRY LOCN
16;5;92;6;0;0;0;
17;0;542;28;1;0;0;'TYPEp'
18;5;9;4;1;0;0;
19;;544;0;1;0;0;
20;5;9;6;1;0;0;BEW
21;80;514;0;0;0;0;-O/P REMAINING DETS S/R
22;80;539;0;0;0;0;gREAD A2
23;;8;4;1;0;0;
24;12;0;0;0;0;5659655972;'FINIS'
25;70;369;30;0;0;0;gEND
26;55;8;4;1;0;50;
27;C;9;4;1;0;0;
28;80;514;0;0;0;0;gWRITE A6
29;76;369;22;0;0;0;
30;55;70;0;1;0;100;COPY DETAILS FOR PASS 3
31;C;9;0;1;0;0;
32;;27;4;0;0;0;COMPILER?
33;71;327;0;0;0;0;gYES, CALL PASS 3
34;45;A6;0;0;0;0;REWIND O/P FILE
35;76;327;0;0;0;0;gCALL PASS 3
SHEET;272
PROCR;370;INST ROUTINE
NOTES;RADIX;B;NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE
0;10;0;0;0;0;1;
1;5;61;99;0;0;0;NON I/P IND
2;80;522;0;0;0;0;-I/P C-LINE S/R
3;;66;2;1;0;0;LINE SERIAL
4;5;67;0;1;0;0;
5;5;61;2;0;0;0;CLEAR MOD DIGITS
6;5;61;25;0;0;0;SET BINARY INDICATOR
7;0;61;110;0;0;0;GROUP+1
8;70;362;0;0;0;0;G.N.B.
9;73;362;0;0;0;0;G.N.B.
10;12;0;0;0;0;11;
11;72;362;0;0;0;0;G.N.B.
12;84;372;0;0;0;0;SWITCH B (GROUP)
13;C;61;110;0;0;0;
14;84;381;0;0;0;0;VARIANT SWITCH
15;C;61;50;0;0;0;VARIANT+1
16;0;61;13;0;0;0;LONG
17;101;0;148;1;2;0;TEST 32 REMAIN
18;72;371;0;0;0;0;gDUMP
19;0;61;15;0;0;0;SHORT
20;101;0;56;1;2;0;TEST 3 REMAIN
21;72;371;0;0;0;0;gDUMP
22;0;61;17;0;0;0;TSL
23;101;0;218;1;2;0;TEST 1 REMAINS
24;73;372;0;0;0;0;gOK
SHEET;273
PROCR;371;
NOTES;;;
0;80;366;0;0;0;0;gROUND UP CTRS
1;0;61;17;0;0;0;
2;2;61;16;0;0;0;TWICE TSL'S
3;31;0;0;0;0;1-;
4;1;61;15;0;0;0;SHORT
5;1;61;13;0;0;0;LONG
6;5;366;0;0;0;0;INCREMENT TO SPACE CTR
7;34;544;4;0;0;0;BIT 1
8;36;61;43;0;0;0;SPACE CTR
9;12;0;0;0;0;2;
10;2;366;0;0;0;0;LENTH OF FORMED CONSTANTS
11;1;545;44;0;0;0;24/1/0 TO NEXT ORDER
12;80;498;0;0;0;0;gO/P INT SC
13;80;353;0;0;0;0;gROUND UP SPACE CTR
14;80;367;0;0;0;0;gO/P FORMD SECTIONS
15;10;0;0;0;0;1;
16;5;61;42;0;0;0;SPACE CTR INCR
17;5;61;2;0;0;0;CLEAR
18;54;63;0;1;0;280;CLEAR 63+62
19;0;542;4;1;0;0;'CONST'
20;5;5;2;1;0;0;
21;5;61;12;1;0;0;
22;5;61;14;1;0;0;
23;80;530;0;0;0;0;gPRINT
24;0;544;16;1;0;0;180:180
25;5;61;16;1;0;0;TSL CTR
26;10;0;0;0;0;3;
27;4;61;5;0;0;0;AUG PROCR NUMBERS
28;4;61;6;0;0;0;
29;4;61;7;0;0;0;
30;10;0;0;0;0;6;
31;5;61;26;2;0;0;
32;80;516;0;0;0;0;gO/P 'TYPE 6'
SHEET;274
PROCR;372;SWITCH B
NOTES;RADIX;B;
0;10;0;0;0;0;0;
1;85;372;0;0;0;0;
2;C;373;0;0;0;0;GRP 0
3;C;374;0;0;0;0;1
4;C;379;0;0;0;0;2
5;C;381;0;0;0;0;3
6;C;387;0;0;0;0;4
7;C;400;0;0;0;0;5
8;C;411;0;0;0;0;6
9;C;417;0;0;0;0;7
10;C;422;0;0;0;0;8
11;C;430;0;0;0;0;9
12;C;440;3;0;0;0;10
13;C;440;2;0;0;0;11
14;C;440;1;0;0;0;12
15;C;440;0;0;0;0;13
16;C;445;0;0;0;0;14
17;C;447;0;0;0;0;15
SHEET;275
PROCR;373;GROUP 0 ACTIONS
NOTES;RADIX;B;
0;;61;50;0;0;0;
1;12;0;0;0;0;8;
2;73;373;8;0;0;0;gACTIONS 0-6
3;12;0;0;0;0;2;
4;72;373;12;0;0;0;gACTION 9
5;;545;25;0;0;0;0/0/2
6;80;356;0;0;0;0;gCOMPLEX O/P NON-A
7;80;521;0;0;0;0;gI/P INSTRUCTION
8;124;61;50;0;1;0;VARIANT+1
9;;545;5;0;0;0;
10;80;358;0;0;0;0;gCOMPLES O/P ARITH
11;76;362;0;0;0;0;gGNB
12;;545;16;0;0;0;18/1/1 1
13;80;359;0;0;0;0;gO/P
14;76;373;8;0;0;0;
SHEET;276
PROCR;374;GROUP 1 ACTIONS
NOTES;RADIX;;
0;;66;14;1;0;0;LITERAL
1;5;61;52;1;0;0;
2;;61;50;0;0;0;VARIANT+1
3;12;0;0;0;0;4;
4;72;376;0;0;0;0;gNOT ACTIONS 10-12
5;;66;15;0;0;0;
6;70;374;12;0;0;0;gSHORT LITERAL
7;124;61;50;0;0;0;
8;;545;5;0;0;0;
9;5;61;0;1;0;0;
10;80;481;0;0;0;0;LONG NO S/R
11;76;362;0;0;0;0;G.N.B
12;;61;50;0;0;0;VARIANT +1
13;12;0;0;0;0;2;TEST VARIANT >0
14;72;375;0;0;0;0;gNOT ACTION 10
15;;66;14;1;0;0;
16;73;375;7;0;0;0;-
SHEET;277
PROCR;375;GROUP 1 ACTIONS 0-2
NOTES;RADIX;B;
0;;544;20;0;0;0;1pppp
1;2;66;14;0;0;0;LITERAL (MODULUS)
2;73;375;7;0;0;0;gNOT LITERAL
3;124;61;50;0;0;0;
4;;545;19;0;0;0;
5;1;66;14;0;0;0;
6;76;382;7;0;0;0;-
7;124;61;50;0;0;0;
8;;545;5;0;0;0;
9;5;61;0;0;0;0;
10;80;483;0;0;0;0;SHORT NO S/R
11;76;362;0;0;0;0;-G.N.B.
SHEET;278
PROCR;376;ACTION 16
NOTES;RADIX;B;
0;80;534;0;0;0;0;-SUSPEND S/R
1;54;66;6;0;0;8;
2;;61;50;0;0;0;VARIANT +1
3;12;0;0;0;0;8;TEST VARIANT >6
4;72;377;0;0;0;0;gACTIONS 17 OR 19
5;;61;26;1;0;0;SUSPENDED REF
6;34;61;28;1;0;0;ITEM
7;75;376;10;0;0;0;gON(N)
8;;61;32;1;0;0;SUSPENDED MOD
9;70;376;13;0;0;0;gON(A)
10;;545;20;0;0;0;1/1/30
11;80;359;0;0;0;0;ZERO REF/PARA
12;76;376;15;0;0;0;
13;;546;2;0;0;0;2/1/0/6
14;80;361;0;0;0;0;gLN:2C SR
15;;545;25;0;0;0;0/0/2
16;80;357;0;0;0;0;gTEST LONG/SHORT NO S/R
17;0;61;26;1;0;0;SUSPENDED REF
18;34;61;28;1;0;0;SUSPENDED ITEM
19;75;376;22;0;0;0;
20;0;545;1;0;0;0;10/1/0 6
21;76;361;6;0;0;0;gLN:2C+GNB
22;80;535;0;0;0;0;gRESTORE
23;0;545;13;0;0;0;10/1/0 0
24;76;373;10;0;0;0;gO/P+GNB
SHEET;279
PROCR;377;ACTIONS 17 AND 19
NOTES;RADIX;B;
0;71;377;6;0;0;0;-IE VARIANT 9
1;;61;26;1;0;0;SUSPENDED REF
2;34;61;28;1;0;0;ITEM
3;75;376;15;0;0;0;gACTS ON(N)
4;;546;3;0;0;0;3/1/0/6
5;76;376;14;0;0;0;
6;;545;34;0;0;0;1/0/1 0
7;80;359;0;0;0;0;gO/P
8;0;61;26;1;0;0;REF
9;34;61;28;1;0;0;ITEM
10;74;377;14;0;0;0;
11;80;535;0;0;0;0;-RESTORE S/R
12;;545;6;0;0;0;6/0/0
13;80;358;0;0;0;0;gCOMPLEX O/P ARITH
14;;545;62;0;0;0;18/1/1/0/4119
15;80;359;0;0;0;0;gO/P
SHEET;280
PROCR;378;ACTION 19
NOTES;RADIX;B;
0;54;66;6;0;0;8;CLEAR REF, I,D,M
1;;545;15;0;0;0;13/0/0
2;80;357;0;0;0;0;gTEST SHORT/LONG NO SR
3;76;362;0;0;0;0;GNB
SHEET;281
PROCR;379;GROUP2
NOTES;RADIX;B;
0;5;66;10;1;0;0;CLEAR DISC
1;85;381;0;0;0;0;
2;C;379;15;0;0;0;20
3;C;379;12;0;0;0;21
4;C;379;12;0;0;0;22
5;C;379;12;0;0;0;23
6;C;379;18;0;0;0;24
7;C;379;12;0;0;0;25
8;C;379;12;0;0;0;26=MULTIPLY
9;C;362;0;0;0;0;27 GNB
10;C;362;0;0;0;0;28 GNB
11;C;379;12;0;0;0;29=DIVIDE
12;124;61;50;0;0;0;VARIANT+1
13;0;545;78;0;0;0;F.P. ACTION
14;76;373;10;0;0;0;gCOMPLEX O/P+GNB
15;0;545;84;0;0;0;21/0/0 DRAIN A*
16;80;380;0;0;0;0;F.P.S/R
17;76;362;0;0;0;0;G.N.B.
18;80;534;0;0;0;0;gSUSPEND
19;;545;82;0;0;0;21/1/0
20;80;380;0;0;0;0;F.P.S/R
21;80;535;0;0;0;0;gRESTORE
22;0;545;84;0;0;0;21/0/0
23;80;358;0;0;0;0;gCOMPLEX O/P
24;0;545;83;0;0;0;20/0/0 8
25;76;361;6;0;0;0;gLN:2C+GNB
SHEET;282
PROCR;380;GROUP 2 S/R
NOTES;RADIX;B;
0;81;380;0;0;0;0;
1;12;0;0;0;0;8;
2;80;361;0;0;0;0;gLN:2C SR
3;;545;80;0;0;0;20/0/0
4;80;358;0;0;0;0;gCOMPLEX O/P
5;82;380;0;0;0;0;
SHEET;283
PROCR;381;GROUP 3 SWITCH
NOTES;RADIX;B;
0;85;381;0;0;0;0;
1;C;382;0;0;0;0;30 QTT SHIFT A
2;C;382;12;0;0;0;31 BIT SHIFT A
3;C;382;0;0;0;0;32 QTT SHFT AB
4;C;382;12;0;0;0;33 BIT SHIFT AB
5;C;382;10;0;0;0;34 SELECT TO B
6;C;383;0;0;0;0;35 SET QTTS OF B
7;C;384;0;0;0;0;36 COLLATE
8;C;384;0;0;0;0;37 REPLACE BITS
9;C;385;0;0;0;0;38 ROUND OFF VBLE
10;C;386;0;0;0;0;39 ROUND UP
SHEET;284
PROCR;382;GROUP 3 30-33 AND 34
NOTES;RADIX;B;
0;;66;14;1;0;0;
1;72;382;4;0;0;0;
2;10;0;0;0;0;1020;SET NEGATIVE LITERAL
3;4;66;14;1;0;0;POSITIVE
4;124;61;50;0;0;0;
5;;545;29;0;0;0;18 ACTION
6;2;66;14;0;0;0;
7;5;67;3;0;0;0;
8;80;518;0;0;0;0;-O/P
9;76;362;0;0;0;0;-GNB
10;0;545;25;0;0;0;0/0/2
11;76;403;10;0;0;0;gCOMPLEX O/P+GNB
12;0;66;14;1;0;0;LITERAL
13;72;382;4;0;0;0;gTREAT AS ACTIONS 30, 32
14;32;0;0;0;0;10-;
15;10;0;0;0;0;0;COMPLEMENT IN B
16;36;544;18;0;0;0;BITS 1 2
17;5;518;0;0;0;0;g BIT SHIFTS LEFT REQUIRED
18;36;545;89;0;0;0;BITS 3-8+15
19;36;545;89;0;0;0;=(4096+32-N)X4
20;36;545;89;0;0;0;
21;36;545;89;0;0;0;
22;30;0;0;0;0;1-;DIVIDE COMPLEMENT BY 4
23;5;66;14;1;0;0;SET AS ADDRESS FOR QTT RIGHT SHIFT
24;2;518;0;0;0;0;
25;70;382;29;0;0;0;gNO BITS LEFT
26;124;61;50;0;0;0;VARIANT +1
27;1;545;29;0;0;0;18/D/3
28;80;359;0;0;0;0;gO/P
29;12;0;0;0;0;1;
30;4;61;50;0;0;0;REDUCE VARIANT
31;76;382;4;0;0;0;gO/P QTT SHIFT RIGHT
SHEET;285
PROCR;383;ACTION 35
NOTES;RADIX;;
0;0;66;14;1;0;0;
1;80;538;0;0;0;0;gCONVERT TO DEC
2;5;66;14;1;0;0;
3;62;0;0;0;0;0;
4;124;542;30;0;2;0;
5;112;66;14;1;0;0;CONVERT TO BASE 2
6;72;383;10;0;0;0;-
7;5;66;14;1;0;0;
8;2;66;14;1;0;0;
9;11;0;0;0;0;400;
10;1;545;34;0;0;0;1/0/1 ACTION
11;76;382;7;0;0;0;
SHEET;286
PROCR;384;ACTIONS 36 AND 37
NOTES;RADIX;B;
0;124;61;50;0;0;0;VARIANT +1
1;;545;28;0;0;0;15 OR 14
2;76;373;10;0;0;0;
SHEET;287
PROCR;385;ACTION 38
NOTES;RADIX;;
0;;545;37;0;0;0;1/0/2
1;1;66;14;1;0;0;LITERAL
2;76;382;7;0;0;0;O/P & GNB
SHEET;288
PROCR;386;ACTION 39
NOTES;RADIX;;
0;;545;28;0;0;0;2/1/0
1;80;361;0;0;0;0;gLN:2C SR
2;;546;4;0;0;0;27/1/0/2
3;80;498;0;0;0;0;gO/P INT SC
4;;545;51;0;0;0;1/1/3/0/1
5;80;359;0;0;0;0;gO/P
6;0;545;52;0;0;0;4/1/0 0
7;76;361;6;0;0;0;gLN:2C+GNB
SHEET;289
PROCR;387;GROUP 4 ACTIONS
NOTES;RADIX;;
0;;61;50;0;0;0;VARIANT + 1
1;12;0;0;0;0;4;
2;70;387;4;0;0;0;g43
3;80;508;0;0;0;0;0/1/0 0/0/3 S/R
4;0;66;6;0;0;0;FILE ID
5;5;61;54;0;0;0;
6;80;499;0;0;0;0;gCALC ROUTE PARA
7;5;61;114;0;0;0;
8;33;0;0;0;0;6;ROUTE TYPE
9;3;61;54;0;0;0;
10;12;0;0;0;0;7;
11;70;387;30;0;0;0;gRT7
12;12;0;0;0;0;4;
13;70;387;30;0;0;0;gRT11
14;12;0;0;0;0;4;
15;70;392;17;0;0;0;gRT15
16;12;0;0;0;0;5;
17;71;387;32;0;0;0;gNOT 20
18;;61;50;0;0;0;VARIANT+1
19;12;0;0;0;0;1;
20;71;387;32;0;0;0;gNOT 40
21;;66;8;0;0;0;CONVERT TO BINARY
22;80;537;0;0;0;0;
23;5;66;6;0;0;0;CLEAR
24;5;66;8;0;0;0;
25;;545;64;0;0;0;
26;80;356;0;0;0;0;gCOMPLEX O/P
27;;545;70;0;0;0;18/1/1/ 5-
28;80;359;0;0;0;0;
29;76;387;32;0;0;0;gEVERYTHING ELSE
30;11;0;0;0;0;8;IF 7 OR 11 SET=8
31;5;61;54;0;0;0;ROUTE TYPE
32;;91;4;0;3;0;
33;30;0;0;0;0;4-;GP CTR OR ZERO
34;1;91;1;0;0;0;2R
35;5;61;115;0;0;0;
36;124;61;115;0;1;0;
37;;91;5;0;0;0;GP TX AREA PARA
38;5;61;115;0;0;0;
39;;61;50;0;0;0;VARIANT+1
40;31;0;0;0;0;5;
41;1;61;54;0;0;0;ROUTE TYPE
42;31;0;0;0;0;3;
43;34;545;3;0;0;0;BITS 1-3
44;36;66;14;0;0;0;LITERAL
45;30;0;0;0;0;2;TO Q3,4,5
46;101;398;0;0;0;0;TABLE LOOKUP
47;100;61;56;1;0;0;
48;10;0;0;0;0;0;
49;35;0;0;0;0;11;Q1,2
50;124;61;58;0;3;0;
51;115;0;0;0;0;0;COLLATE MASTER ROUTE TYPE
52;33;0;0;0;0;7-;B8+B1
53;30;0;0;0;0;3;
54;33;0;0;0;0;6;B8+B19, B2-7+B1-6
55;5;61;61;0;0;0;
56;33;0;0;0;0;1;
57;5;61;60;0;0;0;SET SPECIAL IND FOR 'READ RT 10'
58;86;372;0;0;0;0;
59;12;0;0;0;0;.;
60;70;443;2;0;0;0;gCHEQUE-SORTER
61;;61;50;0;0;0;VARIANT+1
62;12;0;0;0;0;4;
63;71;392;6;0;0;0;
64;80;522;0;0;0;0;gNOT ACTION 43
65;80;508;0;0;0;0;gI/P C-LINE
66;0;66;6;2;0;0;0/1/0 0/0/3 S/R
67;80;537;0;0;0;0;gTO BIN
68;5;66;6;1;0;0;
69;0;61;54;0;0;0;ROUTE TYPE
70;12;0;0;0;0;3;
71;70;388;24;0;0;0;gCARD
72;12;0;0;0;0;1;
73;70;388;21;0;0;0;gGP PRINT
74;12;0;0;0;0;9;
75;70;391;0;0;0;0;gRT 13
76;12;0;0;0;0;5;
77;70;391;0;0;0;0;gRT 18
78;12;0;0;0;0;1;
79;71;393;4;0;0;0;gNOT ROUTE 19
80;0;545;6;0;0;0;6/0/0
81;1;61;114;0;0;0;RTE PARA
82;80;355;0;0;0;0;O/P
83;80;390;0;0;0;0;
84;70;387;90;0;0;0;gNO FN WORD BITS SET
85;0;545;11;0;0;0;2/0/0
86;101;0;8;1;1;0;
87;80;498;0;0;0;0;O/P
88;80;389;0;0;0;0;
89;76;387;93;0;0;0;
90;0;545;11;0;0;0;2/0/0
91;101;0;4;1;1;0;
92;80;498;0;0;0;0;O/P
93;;92;29;0;0;0;NUMBER OD CHAPS
94;80;504;0;0;0;0;gO/P 24/0/3 BY SPECIAL CHAP START
95;101;0;1001;1;3;0;
96;30;0;0;0;0;2;REF=1001, PARA=0
97;5;67;2;0;0;0;
SHEET;290
PROCR;388;43 DEAL WITH G.P. O/P
NOTES;RADIX;B;SET UP A FOR EDIT
0;0;545;45;0;0;0;26/0/0
1;80;359;0;0;0;0;g O/P 'ENTER PRINT SR'
2;;546;24;0;0;0;24/1/0 5
3;80;498;0;0;0;0;g O/P INT SEQ CHANGE
4;;61;114;0;0;0;
5;5;67;2;0;0;0;
6;80;359;0;0;0;0;gO/P ROUTE PARA AS A LITERAL
7;80;488;0;0;0;0;SELECT SECTION TX AREA PARA
8;11;0;0;0;0;1;
9;5;67;2;0;0;0;
10;80;359;0;0;0;0;gO/P ROUTE PARA AS LITYERAL
11;;61;115;0;0;0;GP TX AREA PARA
12;11;0;0;0;0;1;
13;5;67;2;0;0;0;
14;80;359;0;0;0;0;gO/P AS LITERAL
15;;61;8;0;0;0;TX AREA LENGTH (OVERFLOW FROM TX ABOVE PROC
16;118;0;7;0;3;0;X64
17;1;545;11;0;0;0;BIT 18
18;80;359;0;0;0;0;*****O/P TOP OF BULK CLEAR CONST
19;80;399;0;0;0;0;gRESTORE ABC
20;76;362;0;0;0;0;gGNB
21;80;390;0;0;0;0;
22;70;388;24;0;0;0;g NO FN WORD BITS SET
23;80;389;0;0;0;0;
24;5;66;10;1;0;0;
25;;545;64;0;0;0;24/0/2
26;80;356;0;0;0;0;COMPLEX O/P NON-ARITH
27;0;545;17;0;0;0;24/1/2
28;2;61;115;0;0;0;GP TX AREA PARA
29;12;0;0;0;0;1;
30;80;355;0;0;0;0;gO/P
31;;61;54;0;0;0;FILE TYPE
32;12;0;0;0;0;4;
33;70;388;35;0;0;0;gANELEX
34;0;545;24;0;0;0;BIT 14
35;1;545;65;0;0;0;29/0/1
36;80;359;0;0;0;0;gO/P
37;0;61;115;0;0;0;GP TX AREA PARA
38;76;393;5;0;0;0;
SHEET;291
PROCR;389;S/R TO SET BITS FOR PRINTING
0;81;389;0;0;0;0;
1;;545;25;0;0;0;0/0/2
2;80;357;0;0;0;0;gLONG O/P
3;;545;6;0;0;0;6/0/0
4;80;357;0;0;0;0;gLONGOP
5;80;535;0;0;0;0;gRESTORE
6;10;0;0;0;0;1;
7;5;66;10;1;0;0;
8;;545;36;0;0;0;
9;80;358;0;0;0;0;COMPLEX OP ARITH
10;;61;26;1;0;0;SUSPENDED REF
11;5;66;6;1;0;0;
12;82;389;0;0;0;0;
SHEET;292
PROCR;390;SET BITS FOR FN WORD 
0;81;390;0;0;0;0;
1;80;534;0;0;0;0;SUSPEND
2;12;0;0;0;0;1;
3;124;61;8;0;1;0;SET BITS OF 64 WORDS (1-4)
4;31;0;0;0;0;0;/////
5;11;0;0;0;0;10;
6;30;0;0;0;0;9;TO Q10
7;3;61;52;1;0;0;BITS FOR FN WORD
8;82;390;0;0;0;0;
SHEET;293
PROCR;391;DEAL WITH 43 FOR 'UPTIME' CARD READER 
0;;545;25;0;0;0;0/0/2 0
1;80;361;0;0;0;0;gLN:2C (ORIG(A)>B)
2;76;396;0;0;0;0;
SHEET;294
PROCR;392;GROUP 4 SWITCH 
NOTES;RADIX;;
0;81;392;6;0;0;0;
1;;61;39;0;0;0;LAST PARA NUMBER
2;5;67;2;0;0;0;
3;;545;20;0;0;0;1/1/3 0
4;80;359;0;0;0;0;gOUTPUT(SELECT PARA VALUE)
5;82;392;6;0;0;0;
6;85;381;0;0;0;0;
7;C;394;0;0;0;0;40
8;C;396;0;0;0;0;>41
9;C;393;0;0;0;0;42
10;C;393;0;0;0;0;43
11;C;393;17;0;0;0;44
12;C;396;1;0;0;0;45
13;C;394;57;0;0;0;46
14;C;394;57;0;0;0;47
15;C;394;57;0;0;0;>48
16;C;394;57;0;0;0;49
17;;61;50;0;0;0;V+1
18;12;0;0;0;0;2;
19;70;392;29;0;0;0;gCLOSE
20;72;393;0;0;0;0;gREAD
21;80;392;6;0;0;0;gO/P 1/1/3 P
22;;546;21;0;0;0;3/0/0 2
23;80;361;0;0;0;0;gLN:2C
24;;546;20;0;0;0;1/1/1 10
25;80;359;0;0;0;0;gO/P
26;;546;6;0;0;0;18/0/0 5
27;80;359;0;0;0;0;
28;76;394;0;0;0;0;
29;80;392;6;0;0;0;
30;;546;22;0;0;0;1/1/ 20
31;80;359;0;0;0;0;gO/P
32;;546;6;0;0;0;18/0/0 5
33;80;359;0;0;0;0;
34;76;396;0;0;0;0;
SHEET;295
PROCR;393;GROUP 4 
NOTES;RADIX;;VARIANTS 2 & 3
0;80;522;0;0;0;0;I/P C-LINE
1;;66;6;2;0;0;
2;80;537;0;0;0;0;CONVERT TO BIN
3;5;66;6;0;0;0;
4;80;488;0;0;0;0;gSELECT TX AREA PARA
5;1;545;25;0;0;0;0/0/2
6;80;355;0;0;0;0;gO/P
7;;61;54;0;0;0;ROUTE TYPE
8;12;0;0;0;0;18;
9;71;396;0;0;0;0;gNOT RT 24
10;;545;53;0;0;0;18/1/1 5
11;80;359;0;0;0;0;gO/P ZERO REF/PARA
12;;546;28;0;0;0;1/1/3 1
13;80;359;0;0;0;0;gO/P S/R
14;;545;70;0;0;0;18/1/1 5-
15;80;359;0;0;0;0;gO/P S/R
16;76;396;0;0;0;0;
17;0;545;25;0;0;0;0/0/2
18;80;361;0;0;0;0;gLN:2C SR
19;101;0;1;1;3;0;(A) NON ZERO
20;76;396;1;0;0;0;
SHEET;296
PROCR;394;GROUP 4 
NOTES;RADIX;B;
0;;61;54;0;0;0;
1;12;0;0;0;0;+;
2;71;394;32;0;0;0;gNOT AUTOLECTOR
3;;61;61;0;0;0;
4;5;543;41;0;0;0;
5;35;0;0;0;0;111;
6;36;91;4;0;3;0;ANNEX HALF-LENGTH
7;36;91;4;0;3;0;
8;12;0;0;0;0;2;
9;1;545;11;0;0;0;BIT 18
10;30;0;0;0;0;5;
11;5;61;60;1;0;0;
12;12;0;0;0;0;40;64-
13;5;61;52;1;0;0;
14;;545;6;0;0;0;6/0/0
15;80;357;0;0;0;0;gSHORT O/P
16;;61;114;0;0;0;ROUTE PARA
17;1;545;8;0;0;0;5/0/0
18;80;355;0;0;0;0;gO/P
19;;546;14;0;0;0;2/0/0 6
20;80;361;0;0;0;0;gLN:2C SR
21;;61;60;1;0;0;
22;5;61;52;1;0;0;
23;;545;6;0;0;0;6/0/0
24;80;357;0;0;0;0;gLONG O/P
25;;546;19;0;0;0;24/1/2 6
26;80;361;0;0;0;0;gLN:2C SR
27;10;0;0;0;0;+4000-;28/1/1 0
28;80;359;0;0;0;0;gO/P
29;;543;41;0;0;0;
30;5;61;61;0;0;0;
31;76;396;0;0;0;0;
32;12;0;0;0;0;8;
33;70;396;0;0;0;0;
34;;66;6;1;0;0;FILE IDENTITY R-ALIGNED
35;30;0;0;0;0;5;
36;1;61;112;0;0;0;PROG ID
37;5;61;52;1;0;0;
38;80;397;0;0;0;0;gTEST C-LINE FOLLOWS
39;3;397;0;0;0;0;
40;71;394;52;0;0;0;gNO
41;80;534;0;0;0;0;gSUSPEND
42;;66;10;0;0;0;C-LINE DISC
43;70;394;52;0;0;0;gANOTHER 40 ACTION
44;;66;6;2;0;0;REF
45;80;537;0;0;0;0;gBIN
46;5;66;6;1;0;0;
47;10;0;0;0;0;1;
48;5;66;10;1;0;0;
49;;545;25;0;0;0;0/0/2
50;80;356;0;0;0;0;gCOMPLEX O/P NON-ARITH
51;76;396;0;0;0;0;gGET NEXT LINE
52;;545;25;0;0;0;0/0/2
53;80;357;0;0;0;0;gLONG NUMBER O/P
54;;397;0;0;0;0;INDICATOR
55;71;396;18;0;0;0;
56;76;396;4;0;0;0;
57;80;522;0;0;0;0;IP C-LINE
58;;66;6;2;0;0;
59;80;537;0;0;0;0;CONVERT
60;3;66;6;1;0;0;
61;71;395;0;0;0;0;
62;0;61;28;1;0;0;SUSPENDED ITEM
63;30;0;0;0;0;5;
64;1;66;14;1;0;0;
65;5;61;52;1;0;0;
66;;545;25;0;0;0;0/0/2
67;80;357;0;0;0;0;gLONG NO O/P
68;76;396;0;0;0;0;-SET UP A
SHEET;297
PROCR;395;GROUP 4 
NOTES;RADIX;;VARIANTS 6,7,8,9
0;;61;50;0;0;0;
1;12;0;0;0;0;9;
2;73;395;6;0;0;0;
3;;545;25;0;0;0;0/0/2
4;80;356;0;0;0;0;gCOMPLEX O/P NON-ARITH
5;76;396;0;0;0;0;
6;;545;6;0;0;0;6/0/0
7;80;358;0;0;0;0;gCOMPLEX O/P ARITH
8;;61;28;1;0;0;SUSPENDED ITEM
9;30;0;0;0;0;5;
10;5;61;52;1;0;0;
11;;545;7;0;0;0;4/0/0
12;80;357;0;0;0;0;gLONG NO O/P
13;;545;60;0;0;0;18/1/1/0/10
14;80;359;0;0;0;0;gO/P
SHEET;298
PROCR;396;SET UP A 
NOTES;RADIX;;B
0;80;397;0;0;0;0;g TEST C-LINE FOLLOWS SR
1;3;397;0;0;0;0;STORE IND
2;71;396;18;0;0;0;g NO C-LINE
3;80;534;0;0;0;0;g SUSPEND C-LINE
4;0;61;50;0;0;0;V + 1
5;12;0;0;0;0;3;
6;73;396;18;0;0;0;g ACTIONS 40, 41 NOT 42, 43
7;0;545;53;0;0;0;18//1/1/5
8;80;359;0;0;0;0;g O/P
9;0;66;6;2;0;0;REP (UNCONVERTED FOR GROUP 4)
10;80;537;0;0;0;0;g CONVERT
11;5;66;6;1;0;0;
12;5;66;8;1;0;0;CLEAR ITEM
13;0;545;64;0;0;0;24/0/2
14;80;356;0;0;0;0;g COMPLEX O/P NON-A
15;;545;70;0;0;0;18/1/1  5-
16;80;359;0;0;0;0;g O/P
17;80;397;0;0;0;0;g I/P, SET 380/2  NONZERO
18;;61;54;0;0;0;ROUTE TYPE
19;12;0;0;0;0;£;
20;71;396;28;0;0;0;g OTHER THAN RT 15
21;;61;50;0;0;0;V + 1
22;12;0;0;0;0;3;
23;71;396;42;0;0;0;g NOT 42 ACTION
24;80;392;0;0;0;0;g O/P 1/1/3  R
25;0;546;6;0;0;0;18/0/0  5
26;80;359;0;0;0;0;g O/P
27;76;396;42;0;0;0;
28;;61;54;0;0;0;ROUTE TYPE
29;12;0;0;0;0;2;
30;70;396;33;0;0;0;
31;12;0;0;0;0;1;
32;71;396;38;0;0;0;g NOT RT 2 OR 3
33;;61;50;0;0;0;V + 1
34;12;0;0;0;0;2;ACTION 41
35;71;396;38;0;0;0;g NO
36;;545;25;0;0;0;0/0/2
37;80;355;0;0;0;0;g ZERO REF;PARA=2CNO
38;;61;60;1;0;0;
39;5;61;52;1;0;0;(61/52 IS CLEARED)
40;;545;6;0;0;0;6/0/0
41;80;357;0;0;0;0;g LONG NO O/P
42;0;61;114;0;0;0;ROUTE PARA
43;1;545;7;0;0;0;4/0/0
44;80;355;0;0;0;0;g O/P
45;80;453;0;0;0;0;g O/P 25/1/1 4096  > 24/0/3  0
46;10;0;0;0;0;100;
47;5;67;1;0;0;0;
48;;545;58;0;0;0;23/0/2
49;80;359;0;0;0;0;g O/P
50;0;397;0;0;0;0;C LINE FOLLOWS ?
51;71;397;10;0;0;0;g NO
52;80;535;0;0;0;0;g RESTORE C LINE
53;76;387;4;0;0;0;g ASSUME 40/41/44 ACTION. TRANSLATE C-LINE
SHEET;299
PROCR;397;TEST CONTINUATION LINE
NOTES;RADIX;;
0;81;397;0;0;0;0;
1;80;509;0;0;0;0;
2;;0;7;0;12;0;TOP OF L-ALIGNED ACTION
3;2;542;25;0;0;0;
4;71;397;9;0;0;0;g EXIT WITH A NONZERO IF NOT C-LINE
5;10;0;0;0;0;1;
6;5;61;99;0;0;0;NON I/P IND
7;80;522;0;0;0;0;C-LINE S/R
8;10;0;0;0;0;0;EXIT WITH A ZERO IF C-LINE
9;82;397;0;0;0;0;
10;0;61;50;0;0;0;V + 1
11;12;0;0;0;0;1;
12;71;397;19;0;0;0;g NOT ACTION 40
13;;61;54;0;0;0;
14;12;0;0;0;0;£;
15;71;397;25;0;0;0;g 40 BUT NOT RT 15
16;;546;23;0;0;0;0/0/2  2
17;80;361;0;0;0;0;g LN : 2C
18;76;397;25;0;0;;
19;12;0;0;0;0;4;
20;70;397;25;0;0;0;g ACTION 44
21;12;0;0;0;0;1;
22;70;397;30;0;0;0;g 45
23;80;399;0;0;0;0;g RESTORE ABC
24;76;362;1;0;0;0;g GNB (NON-INPUT)
25;80;405;0;0;0;0;g RESTORE C
26;;61;50;0;0;0;VARIANT +1
27;12;0;0;0;0;1;
28;70;362;1;0;0;0;g 40 ACTION
29;76;362;0;0;0;0;READ NEXT BLOCK
30;80;399;0;0;0;0;RESTORE ABC
31;76;362;0;0;0;0;
SHEET;300
CONST;398;0;
0;(B4)1(B5)1(B3)7(B7)11(B1)0;B17-20=VARIANT+1
1;1,3,7,13,0;B12-16=INTERCODE R,TYPE
2;1,4,7,14,0;B9-11=LITERAL
3;1,5,7,15,0;B2-8=MASTER R,TYPE
4;1,6,7,16,0;B1 =NON-STD CARD I/P
5;1,8,0,18,0;B8=IND FOR Q5 MASTER RT
6;1,8,7,17,0;
7;1,9,7,19,0;
8;1,10,7,16,0;
9;1,12,7,20,0;
10;1,13,7,16,0;
11;1,16,7,75,0;OPEN RT 16
12;1,18,7,16,0;
13;1,19,7,19,0;OPEN RT 19
14;1,20,7,53,0;DT
15;1,22,7,59,0;DATA LINK
16;1,25,7,55,0;
17;2,1,7,21,0;
18;2,3,7,23,0;
19;2,4,7,24,0;
20;2,5,7,25,0;
21;2,6,7,26,0;
22;2,8,0,28,0;
23;2,8,1,27,0;
24;2,8,2,45,0;
25;2,8,7,46,0;
26;2,9,7,29,0;
27;2,10,7,26,0;
28;2,12,7,30,0;
29;2,13,7,26,0;
30;2,16,7,85,0;CLOSE RT 16
31;2,18,7,26,0;
32;2,19,7,29,0;CLOSE RT 19
33;2,25,7,56,0;
34;3,5,7,5,0;
35;3,6,7,6,0;
36;3,8,7,7,0;
37;3,10,7,6,1;
38;3,12,7,10,0;
39;3,13,7,6,0;
40;3,17,7,52,0;ACTION 132
41;3,18,7,6,1;
42;3,20,7,54,0;DT
43;3,24,7,5,0;8 HOLE PT
44;4,1,7,1,0;
45;4,3,7,3,0;
46;4,4,7,4,0;
47;4,8,7,8,0;
48;4,9,7,9,0;
49;4,13,7,49,0;
50;4,16,7,65,0;WRITE RT 16
51;4,17,7,50,0;ACTION 133
52;4,18,7,49,0;
53;4,22,7,58,0;
54;5,5,7,48,0;
55;5,8,2,47,0;
56;5,8,7,48,0;
57;5,17,7,51,0;ACTION 134
58;5,25,7,57,0;
59;6,8,0,33,0;
60;6,8,7,34,0;
61;7,8,0,35,0;
62;7,8,7,36,0;
63;8,8,7,37,0;
64;9,8,0,39,0;
65;9,8,1,40,0;
66;9,8,2,43,0;
67;9,8,7,44,0;
68;10,8,0,41,0;
69;10,8,7,42,0;
SHEET;301
PROCR;399;0/1/1 S/R
NOTES;RADIX;B;
0;81;399;0;0;0;0;
1;;61;25;0;0;0;SET BINARY INDICATOR
2;12;0;0;0;0;1;
3;3;61;25;0;0;0;
4;70;399;6;0;0;0;
5;10;0;0;0;0;8;
6;1;545;19;0;0;0;0/1/1
7;80;361;0;0;0;0;gLN:2C SR
8;82;399;0;0;0;0;
SHEET;302
PROCR;400;GROUP 5 SWITCH
NOTES;RADIX;B;
0;85;381;0;0;0;0;
1;C;401;2;0;0;0;50
2;C;401;0;0;0;0;51
3;C;401;2;0;0;0;52
4;C;401;1;0;0;0;53
5;C;402;0;0;0;0;54
6;C;404;0;0;0;0;55
7;C;408;0;0;0;0;56
8;C;409;0;0;0;0;57
9;C;409;9;0;0;0;58=MERGE VARIABLE
10;C;410;0;0;0;0;59
SHEET;303
PROCR;401;ACTIONS 50-53
NOTES;RADIX;B;
0;10;0;0;0;0;1;
1;11;0;0;0;0;1;
2;5;61;84;0;0;0;-INDIC
3;5;66;10;1;0;0;CLEAR FIRST LINE DISC
4;80;522;0;0;0;0;- I/P C-LINE
5;10;0;0;0;0;0;
6;5;66;10;1;0;0;
7;;545;64;0;0;0;24/0/2
8;80;356;0;0;0;0;gCOMPLEX O/P NON-A
9;80;535;0;0;0;0;-REPLACE
10;124;61;50;0;0;0;VARIANT+1
11;;545;65;0;0;0;
12;80;356;0;0;0;0;gCOMPLEX O/P NON-A
13;;61;84;0;0;0;
14;70;362;0;0;0;0;-GNB
15;12;0;0;0;0;1;
16;70;401;21;0;0;0;gACTION 53
17;80;508;0;0;0;0;
18;;546;5;0;0;0;1/1/1/2
19;80;359;0;0;0;0;gO/P
20;80;405;0;0;0;0;RESTORE C
21;0;61;26;0;0;0;SUSPENDED REF
22;12;0;0;0;0;64;100
23;72;362;0;0;0;0;gGNB (NO +CTR)
24;80;535;0;0;0;0;RESTORE S/R
25;0;545;9;0;0;0;3/0/0
26;80;502;0;0;0;0;g'ITEM+' SR
27;76;362;0;0;0;0;gGNB (NO +CTR)
SHEET;304
PROCR;402;BULK CLEAR
NOTES;RADIX;B;ACTION 54
0;80;534;0;0;0;0;g SUSPEND FIRST LINEO/P
1;;66;14;1;0;0;LITERAL
2;70;402;6;0;0;0;g LITERAL ZERO
3;1;545;11;0;0;0;BIT 18
4;30;0;0;0;0;5;
5;76;402;10;0;0;0;
6;80;521;0;0;0;0; - I/P INST
7;80;508;0;0;0;0;0/1/0  0/0/3  S/R
8;80;406;0;0;0;0; - SECOND SUSPEND S/R
9;;545;11;0;0;0;BIT 18
10;5;61;52;1;0;0;
11;;545;6;0;0;0;6/0/0
12;80;357;0;0;0;0;g SHORT NO O/P
13;;66;14;1;0;0;LITERAL
14;71;403;2;0;0;0;g NO CONT LINE
15;80;407;0;0;0;0;g SECOND RESTORE S/R
16;;545;7;0;0;0;
17;80;358;0;0;0;0;g COMPLEX O/P ARITH
18;80;405;0;0;0;0;RESTORE C S/R
SHEET;305
PROCR;403;BULK CLEAR
NOTES;RADIX;;
0;;546;6;0;0;0;18/0/1/5
1;80;359;0;0;0;0;gO/P
2;80;535;0;0;0;0; - RESTORE S/R
3;;66;10;0;0;0;FIRST LINE DISC
4;70;403;9;0;0;0;
5;10;0;0;0;0;0;
6;5;66;10;1;0;0;CLEAR DISC
7;;546;27;0;0;0; 28/1/1
8;76;403;10;0;0;0;
9;;545;63;0;0;0; 28/0/0
10;80;356;0;0;0;0;g COMPLEX O/P NON-A
11;76;362;0;0;0;0;g GNB
SHEET;306
PROCR;404;BULK COPY
NOTES;RADIX;;
0;;66;14;1;0;0;LITERAL
1;5;61;113;0;0;0;W/L
2;80;522;0;0;0;0;I/P C-LINE
3;80;406;0;0;0;0;SECOND SUSPEND C/R
4;0;61;62;0;0;0;
5;70;404;8;0;0;0;g SHORT BEST
6;10;0;0;0;0;1;READ NEXT BLOCK
7;5;61;62;0;0;0;
8;;61;30;0;0;0;DISC. FIRST LINE
9;70;404;14;0;0;0;g SHORT SOURCE
10;10;0;0;0;0;1;
11;3;61;30;0;0;0;
12;2;61;62;0;0;0;
13;4;61;28;1;0;0;AUG BY 0 OR 1
14;80;535;0;0;0;0;RESTORE FIRST LINE
15;5;66;10;1;0;0;DISC
16;;545;64;0;0;0;24/0/2
17;80;356;0;0;0;0;g COMPLEX O/P NON-A
18;;545;70;0;0;0;18/1/15-
19;80;359;0;0;0;0;gO/P
20;;61;113;0;0;0;FIRST LINE LITERAL
21;71;404;26;0;0;0;
22;80;521;0;0;0;0;I/P INSTRUCTION
23;;545;6;0;0;0;6/0/0
24;80;358;0;0;0;0;g COMPLEX O/P ARITH
25;76;404;28;0;0;0;
26;1;545;20;0;0;0; 1/1/3
27;80;359;0;0;0;0;gO/P
28;;545;53;0;0;0;18/1/1/0/5
29;80;359;0;0;0;0;gO/P
30;80;407;0;0;0;0; SECOND RESTORE S/R
31;;61;30;0;0;0;1ST LINE DISC
32;3;66;10;0;0;0;
33;71;404;38;0;0;0;
34;0;61;62;0;0;0;DISC (2ND LINE)
35;70;404;38;0;0;0;
36;10;0;0;0;0;1;
37;4;66;8;1;0;0;ITEM
38;;545;63;0;0;0;28/0/0
39;124;61;62;0;0;0;C-LINE DISC
40;2;545;23;0;0;0;
41;76;403;10;0;0;0;g COMPLEX O/P > GNB
SHEET;307
PROCR;405;RESTORE C S/R
NOTES;RADIX;B;
0;81;405;0;0;0;0;
1;;61;25;0;0;0;BINARY INDICATOR
2;12;0;0;0;0;1;
3;3;61;25;0;0;0;
4;71;405;7;0;0;0;
5;;546;7;0;0;0;0/0/3/4
6;80;361;0;0;0;0;g LN:2C  SR
7;82;405;0;0;0;0;
SHEET;308
PROCR;406;SECOND SUSPEND S/R
NOTES;RADIX;B;
0;81;406;0;0;0;0;
1;;66;6;1;0;0;REF
2;5;61;60;0;0;0;
3;;66;8;1;0;0;ITEM
4;5;61;61;0;0;0;
5;;66;10;1;0;0;DISC
6;5;61;62;0;0;0;
7;;66;12;1;0;0;MOD
8;5;61;63;0;0;0;
9;;66;14;1;0;0;LIT
10;5;61;64;0;0;0;
11;;66;16;0;0;0;ITEM + IND
12;5;66;18;0;0;0;ITEM + IND (2ND STORE)
13;82;406;0;0;0;0;
SHEET;309
PROCR;407;SECOND RESTORE S/R
NOTES;RADIX;B;
0;81;407;0;0;0;0;
1;;61;60;0;0;0;
2;5;66;6;1;0;0;REF
3;;61;61;0;0;0;
4;5;66;8;1;0;0;ITEM
5;;61;62;0;0;0;
6;5;66;10;1;0;0;DISC
7;;61;63;0;0;0;
8;5;66;12;1;0;0;MOD
9;;61;64;0;0;0;
10;5;66;14;1;0;0;LIT
11;;66;18;0;0;0;ITEM + IND (2ND STORE)
12;5;66;16;0;0;0;ITEM + IND
13;82;407;0;0;0;0;
SHEET;310
PROCR;408;TABLE LOOK UP
NOTES;RADIX;B;
0;80;508;0;0;0;0;0/1/0 0/0/3 S/R
1;80;534;0;0;0;0;gSUSPEND
2;;545;47;0;0;0;1/0/0
3;80;356;0;0;0;0;gCOMPLEX O/P NON-A
4;;545;48;0;0;0;18/1/1 10
5;80;359;0;0;0;0;gO/P
6;0;61;32;0;0;0;SUSPENDED MOD DIGITS
7;70;408;17;0;0;0;gUNMODIFIED
8;;545;8;0;0;0;5/0/0
9;80;439;0;0;0;0;MR S/R
10;;61;26;0;0;0;REF
11;71;408;17;0;0;0;g
12;;61;28;0;0;0;ITEM
13;70;408;19;0;0;0;gDON'T BOTHER
14;1;545;22;0;0;0;1/1/2
15;80;359;0;0;0;0;gO/P
16;76;408;19;0;0;0;
17;;545;8;0;0;0;5/0/0
18;80;484;0;0;0;0;T.S.L'S
19;80;405;0;0;0;0;RESTORE C
20;76;362;0;0;0;0;GNB
SHEET;311
PROCR;409;MERGE FIXED FIELD
NOTES;RADIX;B;
0;;545;49;0;0;0;8/0/0
1;5;61;0;0;0;0;
2;;66;14;1;0;0;
3;70;409;6;0;0;0;
4;5;61;52;1;0;0;
5;76;375;10;0;0;0;gSHORT NO SR, GNB
6;5;66;12;1;0;0;CLEAR MOD DIGITS
7;;545;49;0;0;0;8/0/0
8;76;403;10;0;0;0;gCOMPLEX O/P + GNB
9;;545;50;0;0;0;8/1/0
10;80;355;0;0;0;0;gO/P
11;76;362;0;0;0;0;gGNB
SHEET;312
PROCR;410;ACTION 59
NOTES;RADIX;B;
0;80;508;0;0;0;0;0/1/0 0/0/3 SR
1;;66;12;1;0;0;
2;5;61;38;0;0;0;W/L
3;5;66;12;1;0;0;
4;;545;64;0;0;0;24/0/2
5;80;356;0;0;0;0;gCOMPLEX O/P NON-A
6;0;61;38;0;0;0;
7;5;61;32;0;0;0;TX MOD DIGITS
8;0;545;9;0;0;0;3/0/0
9;80;439;0;0;0;0;gMOD REGISTER SR
10;80;522;0;0;0;0;I/P C-LINE
11;;545;7;0;0;0;4/0/0
12;80;358;0;0;0;0;gCOMPLEX O/P ARITH
13;;61;38;0;0;0;
14;5;61;32;0;0;0;T. MOD DIGITS
15;;546;8;0;0;0;2/0/0/1
16;80;439;0;0;0;0;gMOD REGISTER S/R
17;80;399;0;0;0;0;g0/0/1
18;76;362;0;0;0;0;gGNB
SHEET;313
PROCR;411;GROUP 6 ACTIONS
NOTES;RADIX;B;VARIANT 0-2
0;;61;50;0;0;0;VARIANT+1
1;12;0;0;0;0;3;;
2;72;411;8;0;0;0;
3;124;61;50;0;0;0;
4;;544;20;0;0;0;DEC OR ST RADIX
5;5;61;52;1;0;0;W/L
6;;545;26;0;0;0;0/0/3
7;76;375;9;0;0;0;
8;71;412;0;0;0;0;
9;;66;14;1;0;0;LITERAL
10;76;411;5;0;0;0;
SHEET;314
PROCR;412;VARIANTS 3-5
NOTES;RADIX;B;STORE NO TO BE CONVERTED IF ACTION WORKS ON (A)
0;12;0;0;0;0;4;
1;72;415;0;0;0;0;gACTION 66-69
2;;66;12;0;0;0;MOD
3;71;413;0;0;0;0;gACTING ON (N)
4;0;66;6;0;0;0;REFERENCE
5;34;66;8;0;0;0;
6;75;413;0;0;0;0;
7;10;0;0;0;0;6;
8;1;545;28;0;0;0;2/1/0
9;80;361;0;0;0;0;gLN:2C SR
SHEET;315
PROCR;413;VARIANTS 3-5
NOTES;RADIX;B;
0;;61;50;0;0;0;TEST
1;12;0;0;0;0;6;VARIANT 5
2;70;414;2;0;0;0;-
3;80;534;0;0;0;0;- SUSPEND
4;124;61;50;0;0;0;
5;0;544;18;0;0;0;NEW RADIX
6;3;61;76;0;0;0;FORM TABLE W/L
7;5;61;52;1;0;0;W/L FOR S.N. S/R
8;;545;26;0;0;0;0/0/3
9;80;357;0;0;0;0;gCONSTS O/P
10;;61;50;0;0;0;
11;12;0;0;0;0;6;
12;70;414;8;0;0;0;
13;124;61;50;0;0;0;
14;0;544;17;0;0;0;OLD RADIX
15;5;61;77;0;0;0;
16;80;416;0;0;0;0;CONVERT S/R
17;80;535;0;0;0;0;gRESTORE SR
18;;66;12;0;0;0;MOD
19;71;414;0;0;0;0;gACTING ON (N)
20;0;66;6;0;0;0;
21;34;66;8;0;0;0;
22;75;414;0;0;0;0;gACTS ON (N)
23;0;545;2;0;0;0;12/1/0 6
24;76;361;6;0;0;0;gLN:2C+GNB
SHEET;316
PROCR;414;ACTIONS 63-65
NOTES;RADIX;B;
0;;545;56;0;0;0;12 TO B17
1;76;373;10;0;0;0;gCOMPLEX O/P+GNB
2;;66;14;0;0;0;
3;5;61;38;0;0;0;GEN W/L
4;80;522;0;0;0;0;- C-LINE S/R
5;54;66;6;0;0;8;
6;;66;14;0;0;0;
7;76;413;6;0;0;0;
8;;61;38;0;0;0;
9;76;413;15;0;0;0;
SHEET;317
PROCR;415;ACTIONS 66 AND 667
NOTES;RADIX;B;SET FP SIGDIG/NORMAL MODE
0;70;415;3;0;0;0;g66, SIGDIG
1;10;0;0;0;0;8000000025;=(B40+37)
2;76;415;4;0;0;0;;SELECT FP CONST
3;12;0;0;0;0;8000000025;TO PUT INTO 132'
4;5;61;52;1;0;0;
5;0;545;6;0;0;0;6/0/0
6;80;357;0;0;0;0;gLONG NO O/P
7;10;0;0;0;0;0;
8;80;504;0;0;0;0;gO/P 24/1/2 2C;COPY FP CONST
9;10;0;0;0;0;38084;3/1/0 132;LONG TO 132'
10;80;359;0;0;0;0;gO/P
11;0;61;50;0;0;0;VARIANT+1
12;12;0;0;0;0;7;TEST ACTION 67
13;71;362;0;0;0;0;gYES, GNB
14;80;504;0;0;0;0;gO/P 24/1/2 2C;COPY SHORT TO 132 TO
15;10;0;0;0;0;20084;2/0/0 132;SET SIGN BIT THERE
16;76;382;7;0;0;0;O/P AND GET NEXT BLOCK
SHEET;318
PROCR;416;CONVERSION TABLE S/R
NOTES;RADIX;B;
0;81;416;0;0;0;0;
1;;92;7;0;0;0;
2;30;0;0;0;0;5;
3;91;0;0;0;2;0;
4;70;416;9;0;0;0;gNONE STORED
5;;61;76;1;0;0;
6;2;99;0;1;2;0;
7;70;416;11;0;0;0;gMATCH
8;94;416;5;0;2;2;
9;10;0;0;0;0;53;=C
10;80;501;0;0;0;0;gMISMATCH SR
11;10;0;0;0;0;3.8;PROCR 1000
12;30;0;0;0;0;2;
13;1;92;29;0;0;0;FORM 2C FOR EXTRA CHAP
14;1;92;29;0;0;0;
15;12;0;0;0;0;1;REF: 2C-1
16;5;61;52;0;0;0;
17;96;0;0;0;2;0;
18;16;0;0;0;0;10;
19;5;61;53;0;0;0;CTR WITHIN PROCR
20;;545;6;0;0;0;6 TO B17
21;5;61;0;0;0;0;
22;80;485;0;0;0;0;TSL S/R
23;82;416;0;0;0;0;EXIT
SHEET;319
PROCR;417;GROUP 7 ACTIONS
NOTES;RADIX;B;
0;0;61;50;0;0;0;VARIANT+1
1;12;0;0;0;0;8;;TEST ACTIONS 77-79
2;73;417;35;0;0;0;gACTIONS 70-76
3;80;534;0;0;0;0;SUSPEND LINE
4;80;504;0;0;0;0;24/1/2 2C
5;0;61;50;0;0;0;V+1
6;12;0;0;0;0;t;
7;70;417;9;0;0;0;gACTION 79
8;10;0;0;0;0;2-;
9;12;0;0;0;0;10080;17/0/0 128
10;80;359;0;0;0;0;gO/P
11;0;61;50;0;0;0;V+1
12;12;0;0;0;0;t;;SELECT A*
13;70;417;32;0;0;0;gACTION 79;EXPT OR MANT
14;0;545;8;0;0;0;5/0/0;TO A
15;5;61;0;1;0;0;
16;0;66;14;1;0;0;LITERAL
17;71;417;25;0;0;0;gNO C-LINE
18;80;522;0;0;0;0;gI/P C-LINE;SUBTRACT NC1
19;80;536;0;0;0;0;gO/P INSTRUCTION;OR LITERAL
20;60;0;0;0;0;0;
21;12;0;0;0;0;1;
22;4;66;2;1;0;0;
23;62;0;0;0;0;0;
24;76;417;28;0;0;0;
25;5;61;52;1;0;0;LONG CONST W/L
26;;545;8;0;0;0;5/0/0
27;80;357;0;0;0;0;gLONG/SHORT NO S/R
28;80;535;0;0;0;0;RESTORE FORST LINE
29;0;61;50;0;0;0;V+1
30;12;0;0;0;0;8;79,78 AS 72
31;70;417;33;0;0;0;gACTION 77;77 AS 73
32;10;0;0;0;0;1-;
33;11;0;0;0;0;4;
34;3;61;50;0;0;0;SET TRICK VARIANT
35;5;61;1;0;0;0;SET NON-ARITH IND
36;80;489;0;0;0;0;gM&P
37;80;418;0;0;0;0;S. CHANGE S.R.
38;124;61;50;0;0;0;
39;;545;37;0;0;0;27 ACTION
40;5;61;0;0;0;0;
41;76;441;2;0;0;0;- STACK O/P GNB
SHEET;320
PROCR;418;S.C. S/R
NOTES;RADIX;B;
0;81;418;0;0;0;0;
1;0;66;6;1;0;0;REF
2;70;420;7;0;0;0;
3;12;0;0;0;0;3.7;999
4;72;420;7;0;0;0;g SKIP
5;;66;8;1;0;0;ITEM
6;71;418;11;0;0;0;g NOT TO PROCR START
7;;61;10;0;0;0;THIS PROCR
8;2;66;6;0;0;0;REF
9;72;419;28;0;0;0;g SC BACK TO PROCR STARTNOT TO PROCR START
10;76;418;21;0;0;0;gSC FORWARD
11;95;0;0;0;1;0;CURRENT HEAD OF 'SC BACK' LIST
12;30;0;0;0;0;5;
13;1;544;15;0;0;0;ABS ADDRESS 18/0
14;91;0;0;0;2;0;R2* (A)
15;94;418;17;0;2;0;/////
16;76;418;21;0;0;0;NO DESTS REPLACED YET
17;;66;2;0;0;0;THIS ORDER
18;2;0;1;0;2;0;INTERCODE DEST
19;70;420;0;0;0;0;g MATCH FOUND
20;94;418;17;0;2;2;> TRY NEXT
21;0;66;6;1;0;0;;ASSUME SEQ CH FWD
22;80;538;0;0;0;0;gREF TO DEC
23;30;0;0;0;0;2;
24;5;61;18;0;0;0;
25;0;66;8;1;0;0;
26;80;538;0;0;0;0;g ITEM TO DEC
27;11;0;0;0;0;2;ADD 2 TO ITEM
28;4;61;18;0;0;0;
29;62;0;0;0;0;0;SET BINARY
30;0;61;117;0;0;0;CTR OF SEC 20 LENGTH
31;91;0;0;0;2;0;ZERO END VALUE
32;70;419;7;0;0;0;g EMPTY
33;12;0;0;0;0;12+;300
34;73;418;38;0;0;0;g OK
35;10;0;0;0;0;78; 'Y'
36;80;501;0;0;0;0;g REPORT
37;82;418;0;0;0;0;g EXIT, DON'T SET S'C IND
38;0;20;3-;0;2;0;NEXT DEST (LAST IN LIST FIRST)
39;2;61;18;0;0;0;
40;73;419;7;0;0;0;g FITS NOW
SHEET;321
PROCR;419;S.C. S/R
NOTES;RADIX;;
0;0;20;3-;0;2;0;MOVE  LIST DOWN 1 ITEM
1;5;20;0;0;2;0;
2;0;20;2-;0;2;0;
3;5;20;1;0;2;0;
4;0;20;1-;0;2;0;
5;5;20;2;0;2;0;
6;94;418;38;0;2;3-;> NEXT
7;0;61;18;0;0;0;DEST OF NEWCOMER
8;5;20;0;0;2;0;
9;;66;2;1;0;0;SOURCE
10;5;20;1;0;2;0;
11;;66;8;1;0;0;
12;3;20;2;0;2;0;
13;70;419;26;0;0;0;g DEST IS A PROCR START
14;10;0;0;0;0;1;
15;5;67;1;0;0;0;SET 'SEQ' CH' IND
16;0;546;17;0;0;0;FLIPFLOP 0/10
17;30;0;0;0;0;4;TO Q5
18;1;61;118;0;0;0;ABS LOCN IN SEC 18 918:2499 INITIALLY)
19;5;20;2;0;2;0;
20;10;0;0;0;0;t;
21;2;546;17;0;0;0;
22;3;546;17;0;0;0;REVERSE
23;71;419;26;0;0;0;g NEXT TIME IS TOP 10 BITS OF SAME LOCN
24;12;0;0;0;0;1;
25;4;61;118;0;0;0;REDUCE ABS ADDRESS
26;10;0;0;0;0;3;
27;4;61;117;0;0;0;STEP CTR OF ACTIVE SC'S
28;82;418;0;0;0;0;
SHEET;322
PROCR;420;S.C.  S/R: MATCH FOUND IN SC BACK LIST
NOTES;RADIX;B;
0;34;0;0;0;2;0;PROCR + ITEM
1;33;0;0;0;0;30;
2;5;66;6;1;0;0;REF (BITS 11 - 20)
3;33;0;0;0;0;10;
4;5;66;8;1;0;0;ITEM (BITS 1 - 10)
5;96;0;0;0;2;0;
6;80;421;0;0;0;0;g CONTRACT LIST
7;82;418;0;0;0;0;
SHEET;323
PROCR;421;CONTRACT THE SC BACK LIST BY 1 WORD
NOTES;;;
0;81;421;0;0;0;0;
1;5;61;114;0;0;0;WORD TO BE OVERWRITTEN
2;95;0;0;0;1;0;
3;5;61;18;1;0;0;START/END OF LIST (ABS)
4;;61;19;0;0;0;
5;2;61;114;0;0;0;
6;70;421;16;0;0;0;g NONE TO BE MOVED
7;30;0;0;0;0;5;
8;1;61;114;0;0;0;
9;11;0;0;0;0;2;FORM SOURCE IN A
10;124;61;114;0;3;0;
11;128;0;0;1;1;0;COPY UP BY 1 WORD
12;12;0;0;0;0;2;
13;4;61;18;0;0;0;
14;4;61;19;0;0;0;ADJUST R1 FOR NEW LIST  POSITION
15;91;61;18;0;1;0;
16;82;421;0;0;0;0;
SHEET;324
PROCR;422;GROUP 8 SWITCH
NOTES;RADIX;B;
0;85;381;0;0;0;0;
1;C;423;3;0;0;0;> 80
2;C;423;0;0;0;0;> 81
3;C;424;0;0;0;0;82
4;C;425;0;0;0;0;83
5;C;426;0;0;0;0;84
6;C;427;0;0;0;0;85
7;C;424;4;0;0;0;86 ACTION;SELECT SWITCH SETTING
8;C;422;9;0;0;0;87 (85 ON A COMPT)
9;5;66;10;1;0;0;CLEAR DISC
10;0;546;1;0;0;0;24/0/1
11;80;356;0;0;0;0;gO/P NON-A
12;76;427;5;0;0;0;gCONTINUE AS 85
SHEET;325
PROCR;423;ACTIONS 81 AND 80
NOTES;0;0;
0;0;61;10;0;0;0;COPY CURRENT PROCR ACTION 81
1;5;61;9;0;0;0;
2;76;382;7;0;0;0;gO/P ZERO LOCN, GNB
3;80;534;0;0;0;0;g SUSPEND ACTION 80
4;90;0;0;0;2;0;
5;C;0;0;0;0;40;(UP TO 20 C-LINES)
6;80;397;0;0;0;0;g TEST C-LINE
7;71;423;17;0;0;0;g NO
8;0;66;6;0;0;0;
9;5;61;54;0;2;0;REF
10;;66;10;0;0;0;DISC
11;30;0;0;0;0;4;
12;4;61;54;0;2;0;STORE WITH REF
13;0;66;8;1;0;0;
14;5;61;55;0;2;0;ITEM(+-)
15;94;423;6;0;2;2;
16;80;509;0;0;0;0;PROMOTE READ NEXT BLOCK
17;80;535;0;0;0;0;gRESTORE FIRST LINE
18;96;0;0;0;2;0;
19;5;66;15;0;0;0;STORE MODIFIER OVER LITERAL
20;;66;6;0;0;0;BIN REF
21;101;0;1000;1;2;0;
22;73;423;25;0;0;0;gREF NOT 1000+
23;10;0;0;0;0;0;
24;76;423;27;0;0;0;gDON'T CLEAR ITEM
25;10;0;0;0;0;0;
26;5;66;8;1;0;0;CLEAR I.D.M
27;5;66;10;1;0;0;
28;5;66;12;1;0;0;
29;5;66;14;0;0;0;
30;0;545;45;0;0;0;26/0/0
31;80;356;0;0;0;0;gCOMPLEX O/P NON-A
32;;66;15;0;0;0;
33;70;362;1;0;0;0;gNO C-LINES, GNB(NON-I/P)
34;31;0;0;0;0;1-;
35;5;61;18;0;0;0;WL
36;;546;9;0;0;0;24/1/0/1
37;2;61;18;0;0;0;SPACE OCCUPIED BY C-LINES
38;80;498;0;0;0;0;gO/P INT SC
39;91;66;14;0;4;0;
40;35;0;0;0;0;111;
41;36;61;54;0;4;0;
42;3;66;6;0;0;0;REF
43;5;61;35;0;0;0;
44;80;486;0;0;0;0;gDETERMINE CHAPTER
45;32;0;0;0;0;1-;
46;71;423;49;0;0;0;gTX AREA
47;32;0;0;0;0;1;
48;76;423;54;0;0;0;
49;80;488;0;0;0;0;gPSEUDOROUTE SR
50;11;0;0;0;0;1;PARA
51;5;61;34;0;0;0;
52;5;66;6;1;0;0;CLEAR REF
53;76;423;64;0;0;0;
54;3;61;34;0;0;0;
55;70;423;58;0;0;0;gZERO PARA
56;12;0;0;0;0;1;
57;4;61;34;0;0;0;
58;;61;54;0;4;0;
59;30;0;0;0;0;4-;
60;70;423;63;0;0;0;gNO DISC IN C-LINE
61;10;0;0;0;0;2;
62;5;67;1;0;0;0;SEQ CH IND='ON'
63;0;61;55;0;4;0;ITEM
64;5;66;8;1;0;0;
65;5;61;0;0;0;0;CLEAR ACTION
66;80;531;0;0;0;0;gNEG NO
67;80;532;0;0;0;0;gSTACK
68;80;518;0;0;0;0;gO/P
69;94;423;40;0;4;2;
70;76;362;1;0;0;0;gGNB(NON-I/P)
SHEET;326
PROCR;424;ACTIONS 82 AND 86
NOTES;RADIX;B;
0;54;66;8;0;0;6;CLEAR I, D, M;ACTION 82
1;0;545;46;0;0;0;26/0/1
2;80;356;0;0;0;0;gCOMPLEX O/P NON-A
3;76;362;0;0;0;0;gGNB
4;10;0;0;0;0;0;;86 ACTION
5;5;61;113;0;0;0;INDICATOR WHETHER TO I/P OR NOT AT GNB.
6;;545;6;0;0;0;6/0/0
7;76;425;5;0;0;0;
SHEET;327
PROCR;425;ACTION 83
NOTES;RADIX;B;
0;;545;20;0;0;0;1/1/3
1;1;66;14;0;0;0;
2;80;359;0;0;0;0;gO/P
3;5;61;113;0;0;0;INDICATOR
4;;545;11;0;0;0;2/0/0
5;5;61;0;0;0;0;ACTION W/L
6;80;429;0;0;0;0;SWITCH SR
7;;61;113;0;0;0;
8;70;441;2;0;0;0;- STACK O/P GNB
9;80;532;0;0;0;0;- STACK
10;80;518;0;0;0;0;O/P
11;0;397;0;0;0;0;RESTORE IND
12;5;545;97;0;0;0;
13;76;362;1;0;0;0;- GNB (NO I/P)
SHEET;328
PROCR;426;ACTION 84
NOTES;RADIX;B;
0;80;534;0;0;0;0;- SUSPEND
1;80;397;0;0;0;0;gTEST C-LINE SR
2;3;61;113;0;0;0;NON-I/P IND
3;70;426;7;0;0;0;gYES
4;0;545;97;0;0;0;'PRINT ME' IND FOR LINE READ BY ACCIDENT
5;5;397;0;0;0;0;STORE IND
6;76;426;9;0;0;0;
7;;545;6;0;0;0;6/0/0
8;80;358;0;0;0;0;gCOMPLEX O/P ARITH
9;80;535;0;0;0;0;- RESTORE S/R
10;76;425;4;0;0;0;
SHEET;329
PROCR;427;ACTION 85
NOTES;RADIX;B;
0;80;429;0;0;0;0;SWITCH SR
1;0;546;1;0;0;0;24/0/1
2;5;61;0;0;0;0;
3;80;532;0;0;0;0; - STACK  S/R
4;80;518;0;0;0;0;g = O/P S/R
5;;545;46;0;0;0;26/0/1
6;80;498;0;0;0;0;g O/P  INT SC
7;80;522;0;0;0;0;I/P C-LINE S/R
8;10;0;0;0;0;0;
9;5;61;0;0;0;0;CLEAR ACTION W/L
SHEET;330
PROCR;428;ACTION 85  (2)
NOTES;RADIX;;
0;;66;6;0;0;0;
1;5;61;35;0;0;0;
2;80;486;0;0;0;0;
3;3;61;34;0;0;0;
4;70;428;6;0;0;0;g DON'T MAKE A PARA 1-
5;12;0;0;0;0;1;
6;4;61;34;0;0;0;
7;80;418;0;0;0;0;SEQUENCE CHANGE S/R
8;80;532;0;0;0;0;STACK
9;80;518;0;0;0;0;g O/P
10;76;427;7;0;0;0;
SHEET;331
PROCR;429;SWITCH S/R
NOTES;RADIX;B;
0;81;429;0;0;0;0;
1;91;95;0;0;8;0;NO OF SWITCHES
2;34;544;24;0;0;0;BITS 1-10
3;10;0;0;0;0;0;
4;36;95;2;0;8;0;
5;70;429;9;0;0;0;g MISMATCH
6;2;66;6;1;0;0;
7;70;429;11;0;0;0;g OK
8;94;429;3;0;8;1;
9;10;0;0;0;0;72;ERRORS
10;80;501;0;0;0;0;g MISMATCH SR
11;;95;2;0;8;0;
12;32;0;0;0;0;4-;CHAP TO Q1
13;3;61;54;0;0;0;
14;101;0;1001;1;1;0;(1001+CHAP)= SWITCH PROCR
15;5;66;6;0;0;0;PROCR TO SWITCH
16;33;0;0;0;0;6;
17;5;66;8;0;0;0;POSITION IN PROCR
18;;61;54;0;0;0;CHAP NO. SWITCH
19;2;61;51;0;0;0;THIS CHAP
20;70;429;24;0;0;0;g YES
21;1;61;51;0;0;0;
22;80;504;0;0;0;0;24/1/2/2C-1/2C S/R
23;76;429;25;0;0;0;g ZERO PARA
24;;61;3;0;0;0;
25;5;61;34;0;0;0;
26;82;429;0;0;0;0;
SHEET;332
PROCR;430;GROUP 9 SWITCH
NOTES;RADIX;;
0;85;381;0;0;0;0;
1;C;431;0;0;0;0;90
2;C;432;0;0;0;0;91
3;C;433;0;0;0;0;92
4;C;434;0;0;0;0;93
5;C;435;0;0;0;0;94
6;C;437;0;0;0;0;95
7;C;437;1;0;0;0;96
8;C;438;0;0;0;0;97
9;C;430;11;0;0;0;98 ADD(MR)
10;C;430;12;0;0;0;99 SUBTRACT (MR)
11;2;545;47;0;0;0;1/0/0  (A IS CLEAR)
12;1;545;8;0;0;0;5/0/0
13;5;537;0;0;0;0;
14;80;534;0;0;0;0;g SUSPEND
15;0;66;10;1;0;0;DISC
16;70;430;18;0;0;0;
17;0;545;27;0;0;0;BIT 16
18;1;537;0;0;0;0;WL
19;80;439;0;0;0;0;g MR SR
20;76;362;0;0;0;0;g GNB
SHEET;333
PROCR;431;ACTION 90
NOTES;RADIX;B;
0;80;534;0;0;0;0; - SUSPEND S/R
1;;66;14;1;0;0;
2;5;61;52;0;0;0;SUSPEND LITERAL
3;80;521;0;0;0;0;I/P INST S/R
4;;66;14;1;0;0;
5;5;61;53;0;0;0;
6;;61;52;0;0;0;
7;73;431;10;0;0;0;g NEGATIVE MODIFIER
8;0;61;53;0;0;0;
9;72;431;13;0;0;0;g POSITIVE MODIFIER > END VALUE
10;;545;47;0;0;0;BIT 17
11;4;61;52;0;0;0;START VALUE
12;4;61;53;0;0;0;END VALUE
13;;61;32;1;0;0;MOD DIGITS
14;12;0;0;0;0;4;
15;73;431;20;0;0;0;g MR 1 - 3
16;0;545;6;0;0;0;6/0/0;MR>3
17;5;61;0;0;0;0;A CLEAR AT START
18;80;481;0;0;0;0;g LONG NUMBER
19;76;431;26;0;0;0;
20;;545;45;0;0;0;26/0/0
21;124;61;32;0;0;0;
22;2;545;23;0;0;0;
23;5;61;0;0;0;0;
24;80;481;0;0;0;0;g LONG NO SR
25;76;362;0;0;0;0;g GNB
26;0;61;32;0;0;0;SUSPEND MOD DIGITS
27;5;61;2;0;0;0;
28;;545;28;0;0;0; 2/1/0
29;80;506;0;0;0;0;MR >3  SR
30;76;362;0;0;0;0;
SHEET;334
PROCR;432;ACTION 91
NOTES;RADIX;B;
0;10;0;0;0;0;0;STORE ABC SET BIN RA
1;5;66;10;1;0;0;CLEAR DISCRIMINANT
2;;66;6;1;0;0;REF
3;34;66;8;1;0;0;ITEM
4;74;432;17;0;0;0;g REF AND ITEM ZERO
5;;66;12;0;0;0;MOD DIGITS
6;3;61;32;0;0;0;
7;12;0;0;0;0;4;
8;72;432;12;0;0;0;gMR>3
9;;545;54;0;0;0;26/1/0
10;80;358;0;0;0;0;gCOMPLEX O/P ARITH
11;76;362;0;0;0;0;gGNB
12;10;0;0;0;0;0;
13;5;66;12;1;0;0;
14;0;545;55;0;0;0;6/1/0
15;80;358;0;0;0;0;gCOMPLEX O/P ARITH
16;76;431;26;0;0;0;
17;;66;12;0;0;0;MOD DIGITS
18;3;61;32;0;0;0;
19;12;0;0;0;0;4;
20;72;431;26;0;0;0;
21;;545;29;0;0;0;3/1/0
22;80;361;0;0;0;0;gLN:2C SR
23;0;545;54;0;0;0;26/1/0
24;124;66;12;0;0;0;MOD DIGITS
25;2;545;23;0;0;0;
26;76;361;6;0;0;0;gLN:2C +GNB
SHEET;335
PROCR;433;ACTION 92
NOTES;RADIX;B;
0;0;66;12;0;0;0;
1;5;61;32;0;0;0;WL
2;5;66;12;0;0;0;CLEAR MOD DIGITS
3;0;66;6;0;0;0;REF
4;34;66;8;0;0;0;ITEM
5;74;433;8;0;0;0;gACTS ON (A)
6;;545;6;0;0;0;6 TO B17
7;80;358;0;0;0;0;gCOMPLEX O/P ARITH
8;0;545;11;0;0;0;2/0/0
9;80;439;0;0;0;0;gMOD REGISTER SR
10;76;362;0;0;0;0;gGNB
SHEET;336
PROCR;434;ACTION 93 (1)
NOTES;RADIX;B;
0;80;508;0;0;0;0;-0/1/0 0/0/3 S/R
1;80;534;0;0;0;0;SUSPEND
2;;544;21;0;0;0;DEC RADIX
3;30;0;0;0;0;5;
4;5;61;76;1;0;0;
5;80;416;0;0;0;0;CONVERSION TABLE SR
6;80;535;0;0;0;0;REPLACE S/R
7;5;66;12;1;0;0;CLEAR
8;;545;56;0;0;0;12/0/0
9;80;358;0;0;0;0;gCOMPLEX O/P ARITH
10;;546;10;0;0;0;27/0/2/2
11;80;498;0;0;0;0;gO/P INT SC
12;;545;47;0;0;0;BIT 17
13;5;61;52;1;0;0;
14;;545;7;0;0;0;4/0/0
15;80;357;0;0;0;0;gSHORT NO O/P
16;;545;11;0;0;0;2/0/0 
17;80;439;0;0;0;0;MOD REGISTER S/R 
18;80;399;0;0;0;0;gRESTORE ABC 
19;76;362;0;0;0;0;gGNB 
SHEET;337
PROCR;435;ACTION 94 
NOTES;RADIX;B;
0;0;66;14;1;0;0;LITERAL 
1;72;435;4;0;0;0;
2;10;0;0;0;0;1000;4096 
3;4;66;14;0;0;0;AUGMENT MODULAS 
4;;66;12;0;0;0;
5;3;61;2;0;0;0;STORE DIGITS 
6;12;0;0;0;0;4;
7;72;436;14;0;0;0;gMR>3 
8;;545;57;0;0;0;25/0/0 
9;2;66;14;0;0;0;MOD L 
10;124;66;12;0;0;0;
11;2;545;23;0;0;0;0/0/0   0/0/3 
12;80;359;0;0;0;0;gOUTPUT 
SHEET;338
PROCR;436;ACTION 94 
NOTES;RADIX;B;
0;;66;6;1;0;0;REF
1;34;66;8;1;0;0;ITEM 
2;75;436;9;0;0;0;REF & ITEM NON ZERO 
3;;546;9;0;0;0;24/1/0/1 
4;80;498;0;0;0;0;gO/P INT SC 
5;0;61;50;0;0;0;VARIANT +1 ;TEST IF WE CAME IN 
6;12;0;0;0;0;8;;WITH 97 ACTION 
7;71;362;0;0;0;0;gGNB 
8;76;362;1;0;0;0;gGNB (NO INPUT) 
9;10;0;0;0;0;7;SET VARIAMT AS 
10;5;61;50;0;0;0;THOUGH 76 ACTION 
11;5;61;2;0;0;0;
12;5;66;12;1;0;0;
13;76;417;0;0;0;0;GROUP 7 ACTIONS 
14;0;545;59;0;0;0;23/0/0 ;MR>3 
15;2;66;14;0;0;0;MOD L 
16;80;359;0;0;0;0;gO/P, CLEAR A 
17;80;506;0;0;0;0;gMR>3 SR 
18;76;436;0;0;0;0;
SHEET;339
PROCR;437;ACTIONS 95 AND 96 
NOTES;RADIX;B;
0;0;545;27;0;0;0;BIT 16=DISC 
1;1;545;6;0;0;0;6/0/0 
2;32;0;0;0;0;10-;
3;0;66;12;0;0;0;
4;5;61;32;0;0;0;STORE MOD DIGITS 
5;32;0;0;0;0;10;ACTION 
6;80;439;0;0;0;0;gMOD REGISTER SR 
7;76;362;0;0;0;0;gGNB 
SHEET;340
PROCR;438;
NOTES;RADIX;B;ACTION 97 
0;80;534;0;0;0;0;
1;5;66;12;1;0;0;
2;5;66;10;1;0;0;CLEAR DISC. 
3;0;546;1;0;0;0;24/0/1
4;80;356;0;0;0;0;gCOMPLEX O/P NON-A
5;80;397;0;0;0;0;gTEST C-LINE FOLLOWS
6;70;438;10;0;0;0;gYES
7;10;0;0;0;0;0;
8;5;66;6;1;0;0;
9;5;66;8;1;0;0;
10;0;61;32;1;0;0;STORED MOD DIGITS
11;5;66;12;1;0;0;
12;76;435;0;0;0;0;
SHEET;341
PROCR;439;ARITHMETIC ON MOD REGISTERS=SEL/COPY/SUBTRACT/ADD
NOTES;;;
0;81;439;0;0;0;0;61/32=MR,(A)=ACTION+DISC
1;5;537;0;0;0;0;CONVERT SR LINK
2;0;61;32;0;0;0;
3;12;0;0;0;0;4;
4;72;439;14;0;0;0;gMR>3
5;80;505;0;0;0;0;g24/0/3 2C
6;0;537;0;0;0;0;ACTION
7;1;61;32;0;0;0;2M AS ADDRESS
8;1;61;32;0;0;0;
9;5;67;3;0;0;0;
10;0;61;41;0;0;0;MOD GROUP PARA
11;5;67;2;0;0;0;
12;80;518;0;0;0;0;gO/P
13;82;439;0;0;0;0;
14;0;61;32;0;0;0;
15;5;61;2;0;0;0;TX MOD DIGITS
16;0;537;0;0;0;0;ACTION+DISC
17;80;506;0;0;0;0;MR>3 SR
18;82;439;0;0;0;0;
SHEET;342
PROCR;440;M/C ACTIONS
NOTES;RADIX;B;CALCULATE PARAMETERS, TEST 24/1/0 OR 27/D/M
0;10;0;0;0;0;t;GROUP 13
1;11;0;0;0;0;t;12
2;11;0;0;0;0;t;11
3;12;0;0;0;0;1;10
4;1;61;50;0;0;0;V+1
5;3;61;0;0;0;0;ACTION
6;12;0;0;0;0;17;23
7;70;442;0;0;0;0;gACTION 23
8;12;0;0;0;0;9;
9;72;443;0;0;0;0;g32,33 OR 34
10;;66;6;0;0;0;REF  PARA 0 OR 2C ROUTINE
11;70;440;48;0;0;0;
12;3;61;35;0;0;0;
13;101;0;999;1;2;0;
14;71;440;35;0;0;0;gNOT REF 999
15;;543;42;1;0;0;CLEO'PARA WORD
16;70;440;35;0;0;0;gNOT APPLICABLE
17;32;0;0;0;0;6-;
18;70;440;22;0;0;0;gNOT FILE ID
19;5;61;54;0;0;0;
20;80;499;0;0;0;0;gCALC PARA
21;76;440;32;0;0;0;
22;32;0;0;0;0;2;
23;70;440;28;0;0;0;gNOT MR PARA,HENCE TX AREA
24;5;543;42;1;0;0;
25;0;61;41;0;0;0;MOD GROUP PARA
26;1;543;42;2;0;0;
27;76;440;32;0;0;0;
28;;543;42;2;0;0;
29;5;66;6;0;0;0;SECTION NUMBER
30;80;488;0;0;0;0;
31;11;0;0;0;0;1;
32;5;66;8;1;0;0;ITEM
33;5;66;6;1;0;0;CLEAR REF
34;76;440;45;0;0;0;gPARA 2C
35;0;61;112;0;0;0;PROG IDENTITY
36;30;0;0;0;0;2-;
37;12;0;0;0;0;90;
38;71;440;42;0;0;0;gNOT MASTER SUITE
39;80;486;0;0;0;0;
40;31;0;0;0;0;1;FORM 2C'
41;76;440;49;0;0;0;gSTORE PARA
42;80;486;0;0;0;0;gDET CHAP
43;2;61;51;0;0;0;THIS CHAP
44;71;440;48;0;0;0;-
45;;61;51;0;0;0;
46;1;61;51;0;0;0;
47;76;440;49;0;0;0;-
48;10;0;0;0;0;0;
49;5;61;34;0;0;0;PARA W/L
50;0;66;10;0;0;0;DISC
51;12;0;0;0;0;2;
52;71;440;56;0;0;0;gTAKE YOUR CHANCE
53;10;0;0;0;0;1;
54;3;66;10;0;0;0;
55;4;66;8;1;0;0;ADJUST ITEM
56;;61;0;0;0;0;ACTION
57;3;418;0;0;0;0;
58;31;0;0;0;0;1;
59;34;543;0;0;0;0;BIT 1
60;36;66;10;0;0;0;DISC
61;31;0;0;0;0;2;
62;34;544;18;0;0;0;BITS 1+2
63;36;66;12;0;0;0;MOD DIGITS
64;31;0;0;0;0;1;
65;30;0;0;0;0;3;
66;3;61;0;0;0;0;COMBINED A/D/M
67;30;0;0;0;0;5-;
68;70;440;76;0;0;0;gPOSITIVE ACTION
69;;61;0;0;0;0;
70;71;440;73;0;0;0;gNOT 'O-'
71;10;0;0;0;0;2;
72;5;67;1;0;0;0;SET IND
73;10;0;0;0;0;0;
74;2;61;0;0;0;0;
75;5;61;0;0;0;0;NEGATE ACTION
76;5;66;10;1;0;0;
77;5;66;12;1;0;0;
78;;61;0;0;0;0;
79;2;545;44;0;0;0;24/1/0
80;70;441;0;0;0;0;gIS A SEQ CHANGE
81;;418;0;0;0;0;
82;12;0;0;0;0;1e;TEST FOR 27/D/M
83;71;441;4;0;0;0;gNO
SHEET;343
PROCR;441;M/C ACTIONS
NOTES;RADIX;B;
0;80;418;0;0;0;0;-S.C. S/R
1;80;531;0;0;0;0;-NEG NO S/R
2;80;532;0;0;0;0;- STACK
3;76;382;8;0;0;0;- O/P GNB
4;;66;14;0;0;0;LITERAL
5;70;441;1;0;0;0;gNO 'M&P'
6;30;0;0;0;0;1-;
7;80;537;0;0;0;0;gBIN
8;5;66;12;0;0;0;SET EXTRA MOD DIGITS
9;;61;0;0;0;0;
10;80;356;0;0;0;0;gCOMPLEX O/PNON-ARITH
11;76;362;0;0;0;0;gGNB
SHEET;344
PROCR;442;ACTION 123/0/0
NOTES;RADIX;B;
0;;66;12;0;0;0;MOD
1;34;66;10;0;0;0;DISC
2;75;440;10;0;0;0;
3;5;61;34;0;0;0;SET PARA ZERO
4;0;545;59;0;0;0;23/0/0
5;5;61;0;0;0;0;
6;80;532;0;0;0;0;-STACK
7;80;518;0;0;0;0;-O/P
8;80;521;0;0;0;0;I/P INSTRUCTION
9;;66;6;0;0;0;
10;70;442;17;0;0;0;-ABS ADD
11;5;61;35;0;0;0;
12;80;486;0;0;0;0;-DET CHAP
13;3;61;34;0;0;0;
14;1;61;34;0;0;0;
15;70;442;17;0;0;0;gDON'T MAKE A PARA 1-
16;12;0;0;0;0;1;
17;5;61;34;0;0;0;
18;5;61;0;0;0;0;
19;76;441;1;0;0;0;
SHEET;345
PROCR;443;CHEQUE-SORTER ACTIONS 132-134
0;80;534;0;0;0;0;gSUSPEND S/R
1;76;387;3;0;0;0;
2;80;535;0;0;0;0;gREPLACE S/R
3;;66;8;0;0;0;
4;5;66;6;1;0;0;>REF
5;5;66;8;1;0;0;CLEAR ITEM
6;5;66;10;1;0;0;&DISC
7;5;66;12;1;0;0;&MOD
8;80;534;0;0;0;0;gRE-SUSPEND S/R
9;;61;50;0;0;0;V+1
10;12;0;0;0;0;3;
11;71;443;19;0;0;0;g133 OR 134
12;;545;64;0;0;0;24/0/2
13;80;356;0;0;0;0;gCOMPLEX O/P
14;;545;70;0;0;0;18/1/1 5-
15;80;359;0;0;0;0;gO/P
16;5;61;50;0;0;0;CLEAR
17;80;397;0;0;0;0;g'TEST CONTINUATION LINE'
18;76;396;38;0;0;0;g
19;12;0;0;0;0;1;
20;71;444;18;0;0;0;gACTION 134
SHEET;346
PROCR;444;CHEQUE-SORTER
0;34;544;19;0;0;0;BITS 5-19;ACTION 133
1;124;66;6;0;1;0;REF(EX-ITEM)
2;36;70;0;0;0;0;
3;30;0;0;0;0;1-;
4;12;0;0;0;0;2;
5;1;545;11;0;0;0;BIT 18
6;5;61;53;0;0;0;
7;5;61;52;0;0;0;CLEAR
8;;545;6;0;0;0;6/0/0
9;80;357;0;0;0;0;gLONG NO O/P
10;80;535;0;0;0;0;gREPLACE S/R
11;;545;63;0;0;0;28/0/0
12;80;356;0;0;0;0;COMPLEX O/P NON-A
13;;66;14;1;0;0;LITERAL
14;1;545;20;0;0;0;1/1/3
15;80;359;0;0;0;0;gO/P
16;;545;70;0;0;0;18/1/1 5-
17;80;359;0;0;0;0;gO/P
18;80;522;0;0;0;0;gI/P C-LINE S/R
19;;66;6;2;0;0;C-LINE REF
20;80;537;0;0;0;0;gBIN
21;5;66;6;1;0;0;
22;5;66;8;1;0;0;CLEAR ITEM, DISC, MOD DIGITS
23;5;66;10;1;0;0;
24;5;66;12;1;0;0;
25;76;443;12;0;0;0;
SHEET;347
PROCR;445;GROUP 14
NOTES;RADIX;;
0;5;66;10;1;0;0;CLEAR DISC
1;85;381;0;0;0;0;
2;C;445;11;0;0;0;140
3;C;445;15;0;0;0;141
4;C;445;15;0;0;0;142
5;C;445;15;0;0;0;143
6;C;362;0;0;0;0;144
7;C;445;15;0;0;0;145
8;C;445;18;0;0;0;146
9;C;445;21;0;0;0;147
10;C;445;25;0;0;0;148
11;0;545;20;0;0;0;1/1/3/0;140 ACTION
12;80;359;0;0;0;0;gO/P
13;0;545;34;0;0;0;1/0/1/0.
14;76;382;7;0;0;0;O/P AND GNB
15;124;61;50;0;0;0;VARIANT+1;141-3 +145 ACTIONS
16;0;545;72;0;0;0;APPROXIMATE 30 ACTION.
17;76;373;10;0;0;0;gCOMPLEX O/P+GNB
18;10;0;0;0;0;0;;146 ACTION
19;80;446;0;0;0;0;GRP 14 SR
20;76;362;0;0;0;0;GNB
21;0;545;77;0;0;0;30/0/0/8;147 ACTION
22;80;446;0;0;0;0;GRP 14 SR
23;0;545;79;0;0;0;31/0/0/8
24;76;361;6;0;0;0;gLN:2C+GNB
25;0;545;77;0;0;0;30/0/0/8;148 ACTION
26;80;446;0;0;0;0;GRP 14 SR
27;0;545;86;0;0;0;30/0/0 4
28;80;361;0;0;0;0;gLN:2C SR
29;0;545;79;0;0;0;31/0/0 8
30;80;361;0;0;0;0;gLN:2C SR
31;0;545;87;0;0;0;31/0/0 4
32;76;361;6;0;0;0;gLN:2C+GNB
SHEET;348
PROCR;446;SR FOR GROUP 14 ACTIONS 
NOTES;RADIX;B;
0;81;446;0;0;0;0;
1;70;446;3;0;0;0;
2;80;361;0;0;0;0;gLN:2C SR
3;10;0;0;0;0;1;
4;5;66;10;1;0;0;SET DISC
5;;545;6;0;0;0;6/0/0
6;80;358;0;0;0;0;gCOMPLEX O/P ARITH
7;80;522;0;0;0;0;I/P CONT LINE SR
8;10;0;0;0;0;1;
9;5;66;10;1;0;0;SET DISC
10;;545;12;0;0;0;9/0/0
11;80;358;0;0;0;0;gCOMPLEX O/P ARITH
12;82;446;0;0;0;0;
SHEET;349
PROCR;447;GROUP 15 ACTIONS 
NOTES;RADIX;B;
0;85;381;0;0;0;0;
1;C;447;10;0;0;0;150=OPTIONS
2;C;451;0;0;0;0;151=UNLOAD
3;C;450;0;0;0;0;152=OVERLAY
4;C;449;0;0;0;0;153
5;C;450;9;0;0;0;154=COMMENT IN LOG
6;C;448;18;0;0;0;155=SELECT PROG SERIAL>A
7;C;448;22;0;0;0;156=RELEASE ROUTE
8;C;448;35;0;0;0;157=EXPAND
9;C;448;45;0;0;0;158=COMPARE
10;;66;14;1;0;0;
11;5;61;52;1;0;0;LITERAL=OPT NUMBER
12;80;534;0;0;0;0;SUSPEND
13;90;0;0;0;2;0;(TO STORE UP TO 10 LINES)
14;C;0;0;0;0;20;
15;80;397;0;0;0;0;TEST C-LINE FOLLOWS
16;71;448;0;0;0;0;gNO
17;;66;6;1;0;0;
18;30;0;0;0;0;2;
19;1;66;8;1;0;0;ITEM
20;5;61;54;0;2;0;
21;0;66;2;1;0;0;LINE SERIAL NUMBER
22;5;61;55;0;2;0;
23;94;447;15;0;2;2;
SHEET;350
PROCR;448;GROUP 15 
NOTES;RADIX;B;
0;96;0;0;0;2;0;
1;3;66;22;1;0;0;W/L STORE MR2
2;31;0;0;0;0;1-;FORM NUMBER OF C-LINES
3;5;61;23;0;0;0;NUMBER OF C-LINES
4;;61;52;1;0;0;SUSPENDED LITERAL;TEST OPTION NO.
5;71;448;10;0;0;0;;GIVEN IN A COMPARTME
6;80;535;0;0;0;0;RESTORE FIRST LINE
7;;545;6;0;0;0;6/0/0
8;80;358;0;0;0;0;gCOMPLEX O/P ARITH
9;76;448;13;0;0;0;
10;;545;20;0;0;0;1/1/3
11;1;61;52;0;0;0;LITERAL
12;80;359;0;0;0;0;gO/P
13;0;61;23;0;0;0;NO OF C-LINES
14;5;61;52;1;0;0;W/L FOR SN CONST S/R
15;;545;25;0;0;0;0/0/2
16;80;357;0;0;0;0;gSHORT NO O/P S/R
17;76;451;0;0;0;0;
18;;72;0;1;0;0;ALPHA SERIAL;ACTION 155
19;5;61;52;1;0;0;
20;;545;6;0;0;0;6/0/0
21;76;378;2;0;0;0;gO/P+GNB
22;80;508;0;0;0;0;g0/1/0.0/0/3 SR;ACTION 156
23;;66;6;1;0;0;FILE ID
24;5;61;54;0;0;0;
25;80;499;0;0;0;0;EXIT WITH(A)=ROUTE PARA
26;1;545;6;0;0;0;6/0/0
27;80;355;0;0;0;0;gO/P
28;80;453;0;0;0;0;gO/P 25/1/1 4096,24/0/3
29;10;0;0;0;0;900;9 IN Q3
30;5;67;1;0;0;0;
31;;545;58;0;0;0;23/0/2
32;80;359;0;0;0;0;gO/P
33;80;399;0;0;0;0;0/1/1 O/P
34;76;362;0;0;0;0;gNEXT BLOCK
35;5;66;10;1;0;0;CLEAR DISC;ACTION 157
36;80;522;0;0;0;0;gSUSPEND, I/P C-LINE
37;10;0;0;0;0;0;
38;5;66;10;1;0;0;CLEAR C-LINE DISC
39;0;545;64;0;0;0;24/0/2
40;80;356;0;0;0;0;gCOMPLEX O/P NON-A
41;80;535;0;0;0;0;gRESTORE
42;0;546;25;0;0;0;29/0/3
43;80;356;0;0;0;0;gCOMPLEX O/P NON-A
44;76;401;17;0;0;0;gJOIN UP WITH 51 ACTION
45;5;66;10;1;0;0;CLEAR DISC;ACTION 158
46;0;66;14;0;0;0;LITERAL
47;70;448;49;0;0;0;g16/1/0 ORDER
48;10;0;0;0;0;2000-;(MAKE 16/1/1)
49;1;546;26;0;0;0;16/1/0
50;76;403;10;0;0;0;gCOMPLEX O/P NON-A * GNB
SHEET;351
PROCR;449;ACTION 153=SELECT DATE, TIME 
NOTES;0;0;
0;0;545;71;0;0;0;25/1/1 4096
1;80;359;0;0;0;0;gO/P
2;;546;16;0;0;0;23/0/22
3;80;498;0;0;0;0;gO/P INT SC
4;;546;11;0;0;0;24/1/0/7
5;80;498;0;0;0;0;gO/P INT SC
6;80;359;0;0;0;0;gO/P 0/0/0 (LINK)
7;80;504;0;0;0;0;gO/P 24/0/3 0
8;0;545;93;0;0;0;0/0/2 156
9;80;359;0;0;0;0;gO/P
10;80;504;0;0;0;0;gO/P 24/0/3 0
11;0;545;91;0;0;0;6/1/0 138
12;80;359;0;0;0;0;gO/P
13;;546;12;0;0;0;26/0/3/5-
14;80;498;0;0;0;0;gO/P INT SC
15;76;362;0;0;0;0;gGNB
SHEET;352
PROCR;450;GROUP 15 
NOTES;RADIX;B;ACTIONS 152 AND 154
0;80;522;0;0;0;0;-I/P C-LINE S/R
1;;66;6;1;0;0;
2;5;61;35;0;0;0;
3;80;486;0;0;0;0;   DETERMINE CHAPTER
4;5;61;23;0;0;0;CORRECTED CHAP
5;0;61;18;0;0;0;UNCORRECTED CHAPTER
6;5;61;52;1;0;0;
7;80;508;0;0;0;0;-0/1/0 0/0/3 S/R
8;76;448;4;0;0;0;-
9;5;66;10;1;0;0;CLEAR DISC
10;5;66;12;1;0;0;HOD
11;80;508;0;0;0;0;g0/1/0+0/0/3
12;0;545;64;0;0;0;24/0/2
13;80;356;0;0;0;0;gCOMPLEX O/P NON-A
SHEET;353
PROCR;451;GROUP 15 
NOTES;RADIX;B;
0;80;453;0;0;0;0;-NON INTERRUPT S/R
1;;61;50;0;0;0;
2;12;0;0;0;0;3;
3;72;452;24;0;0;0;gACTIONS 152,154
4;124;61;50;0;1;0;
5;0;545;93;0;0;0;
6;5;67;1;0;0;0; 'SEQ CHANGE' IND
7;0;545;61;0;0;0;26/0/2
8;80;359;0;0;0;0;gO/P
9;;61;50;0;0;0;
10;12;0;0;0;0;2;
11;70;362;0;0;0;0;GNB;IF 151 ACTION
SHEET;354
PROCR;452;GROUP 15 
NOTES;RADIX;B;ACTION 150
0;;66;22;1;0;0;STORED VALUE OF MR2
1;30;0;0;0;0;5;SET E.V. AT MODIFIERAND MODIFIER ZERO
2;70;362;1;0;0;0;gGNB(NO C-LINES)
3;91;0;0;0;3;0;
4;34;61;54;0;3;0;DEST
5;10;0;0;0;0;0;
6;32;0;0;0;0;8;
7;3;66;6;0;0;0;
8;5;61;35;0;0;0;
9;32;0;0;0;0;2;
10;5;66;8;0;0;0;
11;80;486;0;0;0;0;-DET CHAP
12;3;61;34;0;0;0;PARA
13;70;452;15;0;0;0;gDON'T MAKE PARA 1
14;12;0;0;0;0;1;
15;4;61;34;0;0;0;
16;0;61;55;0;3;0;SOURCE
17;5;66;2;1;0;0;
18;5;61;0;0;0;0;CLEAR ACTION W/L
19;80;418;0;0;0;0;S.C. S/R
20;80;532;0;0;0;0;STACK
21;80;518;0;0;0;0;O/P
22;94;452;4;0;3;2;gNEXT C-LINE
23;76;362;1;0;0;0;
24;124;61;50;0;0;0;
25;0;545;87;0;0;0;SEQ CHANGE IND
26;5;67;1;0;0;0;
27;0;545;58;0;0;0;23/0/2
28;80;359;0;0;0;0;gO/P
29;80;399;0;0;0;0;    RESTORES ABC
30;76;362;0;0;0;0;GNB
SHEET;355
PROCR;453;SET NON-INTERRUPTIBLE S/R
NOTES;RADIX;B;GROUPS 4 AND 15 BEFORE ENTER MASTER
0;81;453;0;0;0;0;
1;;545;71;0;0;0;25/1/1/4096
2;80;359;0;0;0;0;gO/P
3;80;504;0;0;0;0;gO/P 24/0/3 0
4;82;453;0;0;0;0;
SHEET;356
PROCR;454;CONSTANTS
NOTES;RADIX;B;
0;54;61;55;0;0;14;CLEAR W/LS
1;80;463;0;0;0;0;-PREP S/R
2;80;464;0;0;0;0;-GET NEXT CHAR S/R
3;10;0;0;0;0;0;
SHEET;357
PROCR;455;CONSTANTS
NOTES;RADIX;B;
0;80;464;0;0;0;0;-GET NEXT CHAR
1;10;0;0;0;0;1;
2;5;61;30;0;0;0;DEFN LINE IND
3;5;61;98;1;0;0;
4;91;61;60;0;2;0;
5;;61;24;0;0;0;THIS CHARACTER
6;12;0;0;0;0;51;A
7;70;456;4;0;0;0;
8;12;0;0;0;0;1;B
9;70;456;1;0;0;0;
10;12;0;0;0;0;1;
11;71;455;14;0;0;0;g NOT 'C'
12;10;0;0;0;0;10;16
13;76;455;19;0;0;0;gSET AS SUBFIELD LENGTH
14;12;0;0;0;0;1;
15;70;456;2;0;0;0;
16;12;0;0;0;0;13;P
17;70;456;3;0;0;0;
18;10;0;0;0;0;p;HENCE 'R'
19;5;61;55;0;2;0;SUBFIELD LENGTH
SHEET;358
PROCR;456;CONSTANTS
NOTES;RADIX;;
0;10;0;0;0;0;1;R,C=5
1;11;0;0;0;0;1;B=4
2;11;0;0;0;0;1;
3;11;0;0;0;0;1;
4;11;0;0;0;0;1;
5;3;61;62;0;2;0;SWITCH SETTING 
6;84;458;0;0;0;0;
7;80;464;0;0;0;0;GET NEXT CHAR 
8;12;0;0;0;0;7e;
9;70;457;0;0;0;0;
10;0;61;98;1;0;0;COLLECT * IN'(B*)' DIRECTIVE 
11;30;0;0;0;0;2;
12;1;61;24;0;0;0;THIS CHAR 
13;5;61;98;1;0;0;
14;76;456;7;0;0;0;LOOP UNTIL')'FOUND 
SHEET;359
PROCR;457;CONSTANTS 
NOTES;RADIX;B;
0;32;0;0;0;0;10;PRESERVE B DURING CURRENT 
1;5;61;96;1;0;0;
2;;61;98;2;0;0;
3;80;537;0;0;0;0;CONVERT NO OF BITS FOR BIN CONSTANT 
4;73;457;6;0;0;0;gSAFETY DEVICE 
5;4;61;55;0;2;0;AUG SHIFT CONTROL 
6;34;61;96;1;0;0;RESTORE B 
7;10;0;0;0;0;0;
SHEET;360
PROCR;458;CONSTANTS MAIN LOOP 
NOTES;RADIX;B;
0;80;464;0;0;0;0;GET NEXT CHAR 
1;12;0;0;0;0;7t;
2;70;458;13;0;0;0;gYES 
3;12;0;0;0;0;2;
4;70;460;0;0;0;0;
5;12;0;0;0;0;1;
6;70;461;0;0;0;0;gEND OF CONSTANT 
7;85;458;0;0;0;0;
8;C;467;0;0;0;0;ALPHA 
9;C;468;0;0;0;0;
10;C;469;0;0;0;0;
11;C;471;0;0;0;0;
12;C;473;0;0;0;0;
13;10;0;0;0;0;1;
14;5;61;61;0;0;0;MIXED CONST IND 
15;80;459;0;0;0;0;gSHIFT UP PREVIOUS SUBFIELD 
16;76;454;3;0;0;0;gGET NEXT CHAR 
SHEET;361
PROCR;459;CONSTANT S/R 
NOTES;RADIX;B;ADD THIS SUBFIELD TO PREVIOUS ONES 
0;81;459;0;0;0;0;
1;0;61;26;1;0;0;CONSTANT TO DATE 
2;124;61;60;0;0;0;SUBFIELD CTR 
3;124;61;55;0;0;0;LENGTH OF SUBFIELD IN BITE 
4;31;0;0;0;0;0;///// 
5;1;61;28;1;0;0;VALUE OF CURRENT SUBCONST 
6;5;61;26;1;0;0;
7;5;61;28;1;0;0;
8;10;0;0;0;0;1;
9;4;61;60;0;0;0;STEP SF CTR
10;82;459;0;0;0;0;
SHEET;362
PROCR;460;
NOTES;RADIX;B;
0;80;464;0;0;0;0;gGET NEXT CHAR AFTER COMMA
1;80;459;0;0;0;0;gADD IN SUBCONST PRECEDING COMMA
2;91;61;60;0;2;0;
3;84;458;0;0;0;0;
4;C;61;62;0;2;0;NET SUBFIELD TYPE
5;;61;24;0;0;0;NEXT CHAR AFTER COMMA
6;76;458;1;0;0;0;
SHEET;363
PROCR;461;
NOTES;RADIX;B;
0;80;459;0;0;0;0;gADD IN FINAL SUBCONST
1;;61;32;0;0;0;NEG IND
2;70;461;11;0;0;0;gCONSTANT IS POSITIVE
3;;61;47;0;0;0;CONST TYPE
4;70;461;9;0;0;0;SHORT CONST
5;10;0;0;0;0;0;
6;2;61;26;1;0;0;
7;5;61;26;1;0;0;
8;76;461;11;0;0;0;COMPLEMENT CONST LONG OR SHORT
9;2;61;26;0;0;0;
10;5;61;26;0;0;0;
11;;0;6;2;12;0;
12;5;61;31;0;0;0;SET END IND
13;80;511;0;0;0;0;gPRINT
14;80;462;0;0;0;0;gCONST O/P SR
15;;61;31;0;0;0;END IND
16;71;362;0;0;0;0;gYES, GNB
17;80;509;0;0;0;0;-I/P
18;80;463;0;0;0;0;-PREP S/R
19;10;0;0;0;0;0;CLEAR A FOR GET NEXT CHARACTER S/R
20;80;464;0;0;0;0;-GET NEXT CHAR
21;12;0;0;0;0;7t;122
22;70;461;27;0;0;0;gTHIS IS A DIRECTIVE LINE
23;;61;61;0;0;0;
24;71;460;2;0;0;0;gTHIS IS A MIXED CONSTANT
25;;61;24;0;0;0;NEXT CHARACTER
26;76;458;1;0;0;0;-
27;5;61;55;0;0;0;
28;5;61;56;1;0;0;
29;5;61;58;1;0;0;
30;76;455;0;0;0;0;gGET DIRECTIVE LETTER
SHEET;364
PROCR;462;
NOTES;RADIX;B;
0;81;462;0;0;0;0;
1;;61;27;0;0;0;MOST SIG HALF LONG CONST
2;5;67;3;0;0;0;
3;;61;26;0;0;0;LEAST SIG HALF
4;124;61;68;0;0;0;0 OR 2
5;5;67;1;0;0;0;
6;;61;47;0;0;0;CONST TYPE
7;71;462;14;0;0;0;-LONG NO CONST
8;;61;31;0;0;0;NONZERO IF FINAL CONST IN SECTION
9;71;462;14;0;0;0;-
10;10;0;0;0;0;2;
11;2;61;68;0;0;0;
12;3;61;68;0;0;0;
13;71;462;21;0;0;0;gFIRST TIME THROUGH
14;;61;26;1;0;0;
15;72;462;20;0;0;0;
16;;61;27;0;0;0;
17;71;462;20;0;0;0;gMOST SIG HALF IS NOT MINUS ZERO
18;10;0;0;0;0;80;B8
19;4;67;2;0;0;0;PARAMETER
20;80;518;0;0;0;0;O/P
21;82;462;0;0;0;0;END
SHEET;365
PROCR;463;
NOTES;RADIX;B;CONSTANTS PREP S/R
0;81;463;0;0;0;0;
1;54;61;26;0;0;8;CLEAR W/L'S
2;;77;2;1;0;0;AMEND IND
3;5;7;2;1;0;0;
4;;77;4;1;0;0;LINE SERIAL
5;5;7;6;1;0;0;
6;55;77;8;1;0;18;COPY CONSTANTS
7;C;7;12;1;0;0;
8;;77;26;1;0;0;PASS 1 REPORTS
9;5;7;48;1;0;0;
10;55;77;28;1;0;16;COPY ANNOTATION
11;C;7;32;1;0;0;
12;0;61;68;0;0;0;O/P IND
13;71;463;15;0;0;0;gSECOND HALF OF SHORT CONST
14;5;67;0;0;0;0;CLEAR THIS
15;;7;46;1;0;0;
16;2;542;26;1;0;0;IGNORE TRANSLATION IND
17;70;461;11;0;0;0;gYES, GO TO PRINT
18;90;0;0;0;3;0;
19;C;0;0;0;0;10;
20;34;77;8;1;0;0;FIRST WORD OF CONSTANT
21;10;0;0;0;0;2;
22;5;61;38;0;0;0;SET MOD CTR
23;5;61;60;0;0;0;S/F MOD
24;82;463;0;0;0;0;
SHEET;366
PROCR;464;GET NEXT CHAR S/R
NOTES;RADIX;B;
0;81;464;0;0;0;0;
1;32;0;0;0;0;2;
2;5;61;24;1;0;0;THIS CHAR W/L
3;94;464;10;0;3;2;
4;124;61;38;0;0;0;
5;34;77;8;1;0;0;NEXT WORD
6;10;0;0;0;0;2;
7;4;61;38;0;0;0;
8;90;0;0;0;3;0;
9;C;0;0;0;0;10;
10;;61;24;1;0;0;
11;82;464;0;0;0;0;
SHEET;367
PROCR;465;TEST (,NE S/R
NOTES;RADIX;B;CONSTANTS
0;81;465;0;0;0;0;
1;12;0;0;0;0;7t;(
2;70;465;6;0;0;0;
3;12;0;0;0;0;2;,
4;70;465;6;0;0;0;
5;12;0;0;0;0;1;NE
6;82;465;0;0;0;0;
SHEET;368
PROCR;466;PUT THIS CHAR INTO O/P WORD S/R
NOTES;RADIX;B;
0;81;466;0;0;0;0;
1;;61;28;1;0;0;
2;30;0;0;0;0;1;
3;1;61;24;2;0;0;NEXT CHAR(BASIC ONLY)
4;5;61;28;1;0;0;
5;82;466;0;0;0;0;
SHEET;369
PROCR;467;ALPHA CONSTANTS
NOTES;RADIX;B;
0;;61;30;0;0;0;DEFN LINE IND
1;70;467;5;0;0;0;gNO
2;10;0;0;0;0;8;
3;124;61;60;0;0;0;SF CTR
4;4;61;55;0;0;0;AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR
5;;61;28;1;0;0;
6;30;0;0;0;0;2;
7;1;61;24;0;0;0;
8;5;61;28;1;0;0;ADD IN THIS CHAR TO SUBCONST
9;76;458;0;0;0;0;
SHEET;370
PROCR;468;BINARY PATTERNS
NOTES;RADIX;B;
0;0;61;24;0;0;0;THIS CHARACTER
1;12;0;0;0;0;10;MINUS SIGN
2;70;468;13;0;0;0;
3;0;61;30;0;0;0;
4;70;468;8;0;0;0;g NOT DEFINITION LINE
5;10;0;0;0;0;1;
6;124;61;60;0;0;0;SF MOD
7;4;61;55;0;0;0;AUG SF LENGTH BY 1 BIT PER CHAR
8;;61;28;1;0;0;
9;1;61;28;1;0;0;
10;1;61;24;2;0;0;
11;5;61;28;1;0;0;ADD THIS BIT INTO SUBCONST
12;76;457;7;0;0;0;
13;0;61;60;0;0;0;TEST FIRST SUBFIELD
14;71;457;7;0;0;0;
15;10;0;0;0;0;1;
16;5;61;32;0;0;0;NEG INDICATOR
17;76;457;7;0;0;0;
SHEET;371
PROCR;469;DECIMAL CONSTS (-VE)
NOTES;RADIX;B;
0;;61;24;0;0;0;
1;12;0;0;0;0;10;NEG SIGN
2;71;470;0;0;0;0;
3;;61;60;0;0;0;S/F MOD
4;71;469;8;0;0;0;NOT FIRST MOD
5;10;0;0;0;0;1;
6;5;61;32;0;0;0;NEG IND
7;76;458;0;0;0;0;
8;10;0;0;0;0;1;BIT 1
9;124;61;60;0;0;0;SF MOD
10;124;61;55;0;0;0;SF LENGTH
11;31;0;0;0;0;0;/////
12;60;0;0;0;0;0;
13;2;61;28;1;0;0;FORM N BIT
14;5;61;28;1;0;0;DEC COMPT
15;62;0;0;0;0;0;
16;76;458;0;0;0;0;
SHEET;372
PROCR;470;DECIMAL CONSTANTS (+VE)
NOTES;RADIX;B;
0;;61;30;0;0;0;
1;70;470;5;0;0;0;gNOT DIRECTIVE LINE
2;10;0;0;0;0;4;
3;124;61;60;0;0;0;SF MOD
4;4;61;55;0;0;0;AUG SF LENGTH BY 4 BITS PER CHAR
5;80;466;0;0;0;0;gADD THIS CHAR TO O/P WORD
6;76;458;0;0;0;0;
SHEET;373
PROCR;471;
NOTES;RADIX;B;BINARY NO CONSTANTS
0;;61;24;0;0;0;
1;12;0;0;0;0;10;-SIGN
2;71;471;6;0;0;0;
3;10;0;0;0;0;1;
4;5;61;33;0;0;0;
5;76;471;7;0;0;0;
6;80;466;0;0;0;0;-THIS CHAR SET UP O/P
7;80;464;0;0;0;0;-GET NEXT CHAR
8;80;465;0;0;0;0;-TEST S/R
9;71;471;0;0;0;0;
10;32;0;0;0;0;10;
11;5;61;34;1;0;0;PRESERVE B
12;;61;28;1;0;0;DEC VALUE OF CONST
13;80;537;0;0;0;0;CONVERT
14;5;61;28;1;0;0;
15;34;61;34;1;0;0;RESTORE B
16;;61;33;0;0;0;NEG IND FOR BIN CONSTS
17;70;472;3;0;0;0;gNOT NEGATIVE
18;;61;60;0;0;0;S/F MOD
19;70;472;0;0;0;0;gFIRST S/F
20;10;0;0;0;0;1;
21;124;61;60;0;0;0;S/F MOD
22;124;61;55;0;0;0;S/F LENGTH=N
23;31;0;0;0;0;0;/////
24;2;61;28;1;0;0;FORM N-BIT COMPT
25;5;61;28;1;0;0;
26;76;472;2;0;0;0;
SHEET;374
PROCR;472;BINARY NO CONSTS
NOTES;RADIX;;
0;10;0;0;0;0;1;
1;5;61;32;0;0;0;NEG IND
2;5;61;33;0;0;0;BIN NO NEG IND
3;;61;24;0;0;0;
4;76;458;1;0;0;0;-
SHEET;375
PROCR;473;
NOTES;RADIX;;RELATIVE ADDRESS CONSTS
0;;61;24;0;0;0;
1;12;0;0;0;0;4:;
2;70;474;0;0;0;0;gCOLON
3;11;0;0;0;0;4:;
4;80;465;0;0;0;0;-TEST S/R
5;70;474;22;0;0;0;
6;80;466;0;0;0;0;-THIS CHAR SET UP O/P
7;80;464;0;0;0;0;-GET NEXT CHAR
8;76;473;0;0;0;0;
SHEET;376
PROCR;474;RELATIVE ADDRESS CONSTS
NOTES;RADIX;B;
0;32;0;0;0;0;10;
1;5;61;98;1;0;0;STORE REGISTER B
2;;61;28;1;0;0;
3;80;537;0;0;0;0;CONVERT
4;5;61;35;0;0;0;
5;91;61;68;0;2;0;
6;80;486;0;0;0;0;-DET CHAP S/R
7;3;67;0;0;2;0;PARA
8;70;474;11;0;0;0;ABS ADD
9;12;0;0;0;0;1;=2C-1
10;4;67;0;0;2;0;
11;;61;35;0;0;0;REF
12;30;0;0;0;0;2;
13;4;67;0;0;2;0;
14;10;0;0;0;0;0;
15;5;61;28;1;0;0;CLEAR FOR ITEM
16;34;61;98;1;0;0;
17;80;464;0;0;0;0;gGET NEXT CHAR
18;80;465;0;0;0;0;gTEST S/R
19;70;474;24;0;0;0;
20;80;466;0;0;0;0;gTHIS CHAR SET UP O/P
21;76;474;17;0;0;0;
22;91;61;68;0;2;0;
23;5;67;0;0;2;0;
24;32;0;0;0;0;10;
25;5;61;34;1;0;0;STORE 2
26;;61;28;1;0;0;
27;80;537;0;0;0;0;CONVERT ITEM
28;5;61;28;1;0;0;
29;34;61;34;1;0;0;REPLACE B
30;76;472;3;0;0;0;
SHEET;377
PROCR;475;TABLE ENTRIES
NOTES;RADIX;B;
0;50;77;2;0;0;0;
1;C;549;0;0;0;0;
2;52;7;2;0;0;0;EDIT TABLES
3;C;549;0;0;0;0;
4;;77;22;1;0;0;PASS 1 REPORTS
5;5;7;48;1;0;0;
6;55;77;24;1;0;16;COPY ANNOTATION
7;C;7;32;1;0;0;
8;80;511;0;0;0;0;PRINT
SHEET;378
PROCR;476;TABLE ENTRIES 
NOTES;RADIX;B;
0;90;0;0;0;2;0;
1;C;0;0;0;0;20;
2;;66;3;0;2;0;
3;80;537;0;0;0;0;CONVERT
4;5;66;3;0;2;0;
5;94;476;2;0;2;1;
6;90;0;0;0;2;0;
7;C;0;0;0;0;4;
8;;66;16;0;2;0;
9;101;0;100;1;2;0;
10;73;476;15;0;0;0;gSECTION
11;101;0;899;1;2;0;
12;72;476;15;0;0;0;g999
13;10;0;0;0;0;2-;
14;4;66;17;0;2;0;REDUCE ITEM FOR CALCS
15;94;476;8;0;2;2;
16;10;0;0;0;0;0;
17;34;61;47;0;0;0;TYPE
18;36;544;4;0;0;0;BIT 1
19;71;476;26;0;0;0;NOT TYPES 2 OR 4
20;0;66;19;0;0;0;SECOND ITEM
21;71;476;25;0;0;0;g'LAST ITEM' GIVEN
22;0;66;17;0;0;0;FIRST ITEM
23;71;476;25;0;0;0;
24;0;545;6;0;0;0;SOMETHING INTO Q5
25;5;67;2;0;0;0;
26;0;66;16;0;0;0;FIRST REF
27;5;61;35;0;0;0;REF
28;80;486;0;0;0;0;DET CHAP
SHEET;379
PROCR;477;TABLE ENTRIES 
NOTES;RADIX;;
0;3;67;0;0;0;0;
1;70;477;4;0;0;0;ABS ADD
2;12;0;0;0;0;1;
3;4;67;0;0;0;0;
4;;61;35;0;0;0;REF
5;30;0;0;0;0;2;
6;4;67;0;0;0;0;
7;0;66;3;0;0;0;SHORT/LONG/ALPHA
8;70;477;13;0;0;0;
9;12;0;0;0;0;1;
10;70;477;12;0;0;0;
11;;545;47;0;0;0;B17
12;1;545;11;0;0;0;B18
13;5;67;3;0;0;0;
14;;66;13;0;0;0;SIGN
15;70;478;0;0;0;0;
16;12;0;0;0;0;2;
17;70;477;19;0;0;0;
18;;545;49;0;0;0;B20
19;1;545;7;0;0;0;B19
20;4;67;3;0;0;0;
SHEET;380
PROCR;478;TABLE ENTRIES 
NOTES;RADIX;B;
0;0;66;4;0;0;0;SINGLE/BE
1;70;478;4;0;0;0;
2;;545;49;0;0;0;B20
3;4;67;3;0;0;0;
4;;66;12;0;0;0;ZEROS
5;30;0;0;0;0;1;
6;1;66;10;0;0;0;DISC
7;30;0;0;0;0;1;
8;1;66;11;0;0;0;SPACES
9;30;0;0;0;0;1;
10;1;66;5;0;0;0;NO OF CHARS
11;4;67;3;0;0;0;
12;;66;15;0;0;0;LTE
13;70;479;2;0;0;0;
14;10;0;0;0;0;0;
15;2;67;3;0;0;0;
16;70;479;0;0;0;0;
17;5;67;3;0;0;0;
18;76;479;2;0;0;0;
SHEET;381
PROCR;479;TABLE ENTRIES 
NOTES;RADIX;B;
0;10;0;0;0;0;80;B8
1;4;67;0;0;0;0;
2;0;66;17;0;0;0;FIRST ITEM
3;5;67;1;0;0;0;
4;;66;14;0;0;0;STERLING INDICATOR
5;70;479;14;0;0;0;
6;4;61;109;0;0;0;
7;0;61;109;0;0;0;
8;12;0;0;0;0;2;
9;71;479;14;0;0;0;
10;12;0;0;0;0;1;
11;5;61;109;0;0;0;SET CTR=1-
12;;545;47;0;0;0;B17
13;4;67;1;0;0;0;
14;0;66;15;0;0;0;LTE IND
15;70;382;8;0;0;0;gNO,O/P+GNB
16;5;61;109;0;0;0;
17;5;61;109;0;0;0;CLEAR STERLING CTR
18;76;382;8;0;0;0;gO/P+GNB
SHEET;382
PROCR;480;VALUES 
NOTES;RADIX;;
0;80;360;0;0;0;0;BULK CLEAR SEC 7
1;;0;8;2;12;0;
2;80;537;0;0;0;0;gTO BIN
3;5;66;8;1;0;0;
4;;0;6;2;12;0;
5;80;537;0;0;0;0;gTO BIN
6;3;66;6;2;0;0;REF
7;34;66;8;0;0;0;
8;74;480;26;0;0;0;gZERO REF,ITEM
9;101;0;100;1;2;0;
10;73;480;13;0;0;0;gREF=SECTION
11;10;0;0;0;0;2-;
12;4;66;8;1;0;0;REDUCE FOR CALCS
13;;542;8;1;0;0; 'NOTES'
14;3;61;26;1;0;0;
15;5;61;28;1;0;0;
16;0;66;6;2;0;0;REF
17;5;67;2;0;0;0;
18;0;66;8;1;0;0;ITEM
19;5;67;3;0;0;0;
20;5;67;0;0;0;0;CLEAR
21;80;517;0;0;0;0;O/P REF/ITEM UNIT(ALPHA O/P)
22;0;77;6;1;0;0;
23;5;7;8;1;0;0;REF
24;0;77;8;1;0;0;
25;5;7;10;1;0;0;ITEM
26;90;0;0;0;3;0;
27;C;0;0;0;0;32;
28;;77;12;2;3;0;
29;73;480;43;0;0;0;gNEG PARA=END OF LINE
30;5;67;2;0;0;0;
31;;77;10;2;3;0;
32;5;67;3;0;0;0;
33;52;7;12;0;3;0;
34;C;550;0;0;0;0;
35;80;518;0;0;0;0;O/P VALUE UNIT
36;94;480;28;0;3;4;
37;;77;6;0;0;0;REF
38;5;7;8;0;0;0;
39;;77;8;0;0;0;ITEM
40;5;7;10;0;0;0;
41;80;511;0;0;0;0;gPRINT
42;76;362;0;0;0;0;GNB
43;10;0;0;0;0;55; 'E'
44;5;7;14;1;3;0;
45;5;7;12;1;3;0;
46;76;480;41;0;0;0;
SHEET;383
PROCR;481;LONG NO CONST S/R 
NOTES;RADIX;B;
0;81;481;0;0;0;0;
1;91;61;12;0;3;0;
2;;61;5;0;0;0;LONG NO SECT NO
3;5;66;6;1;0;0;
4;10;0;0;0;0;1;
5;5;66;10;1;0;0;DISC
6;80;482;0;0;0;0;TSL AND LONG NO S/R
7;4;61;13;0;0;0;END VALUE
8;82;481;0;0;0;0;
SHEET;384
PROCR;482;LONG NO CONST & TSL S/R (1) 
NOTES;RADIX;B;
0;81;482;0;0;0;0;
1;94;482;3;0;3;0;/////
2;76;482;10;0;0;0;
3;;61;53;0;0;0;
4;2;62;1;0;3;0;COMPARE MOST SIG HALVES
5;71;482;9;0;0;0;gNO CHANGE OF MATCH
6;;62;0;1;3;0;
7;2;61;52;1;0;0;
8;70;482;13;0;0;0;MATCH FOUND
9;94;482;3;0;3;2;NO MATCH
10;;61;52;1;0;0;
11;5;62;0;1;3;0;
12;10;0;0;0;0;2;
13;5;537;0;0;0;0;WL=CONVERT SR LINK
14;96;0;0;0;3;0;MODIFIER
15;12;0;0;0;0;e4;180
16;73;482;19;0;0;0;g NOT TSL
17;31;0;0;0;0;1-;
18;76;482;20;0;0;0;
19;11;0;0;0;0;e4;180
20;5;66;8;1;0;0;
21;0;61;3;0;0;0;2C
22;5;61;34;0;0;0;
23;5;66;12;1;0;0;MOD
24;80;532;0;0;0;0;STACK
25;80;518;0;0;0;0;O/P
26;;537;0;0;0;0;WL
27;82;482;0;0;0;0;
SHEET;385
PROCR;483;> GNB
NOTES;RADIX;B;
0;81;483;0;0;0;0;
1;91;61;14;0;3;0;CTR OF SHORT NUMBERS TO DATE
2;0;61;15;0;0;0;CTR
3;70;483;8;0;0;0;NONE STORED YET
4;;61;52;1;0;0;NUMBER TO BE OUTPUT
5;2;63;0;0;3;0;NEXT NUMBER ALREADY OUTPUT
6;70;483;15;0;0;0;g MATCH
7;94;483;4;0;3;1;> TRY NEXT
8;;61;52;1;0;0;STORE NEWCOMER
9;5;63;0;0;3;0;IN NEXT FREE POSITION
10;;61;15;0;0;0; = RELATIVE POSITION IN LIST
11;5;66;8;1;0;0;SET AS ITEM
12;10;0;0;0;0;1;STEP ON FOR NEXT ITEM
13;4;61;15;0;0;0;CTR OF NUMBERS IN LIST
14;76;483;17;0;0;0;
15;96;0;0;0;3;0;MODIFIER
16;5;66;8;1;0;0;
17;;61;6;0;0;0;SN SECT NO
18;5;66;6;1;0;0;REF
19;5;66;10;1;0;0;DISC
20;5;66;12;1;0;0;M
21;;61;3;0;0;0;2C
22;5;61;34;0;0;0;PARA
23;80;532;0;0;0;0; - STACK
24;80;518;0;0;0;0; - O/P
25;82;483;0;0;0;0;
SHEET;386
PROCR;484;TSL S/R
NOTES;RADIX;B;
0;81;484;0;0;0;0;
1;5;61;0;0;0;0;
2;;66;6;1;0;0;REF
3;5;61;35;0;0;0;
4;80;486;0;0;0;0;
5;3;61;52;0;0;0;CHAP
6;12;0;0;0;0;1;
7;4;61;52;0;0;0;
8;0;61;28;1;0;0;
9;5;61;53;0;0;0;ITEM
10;0;61;35;0;0;0;
11;30;0;0;0;0;2;
12;4;61;52;0;0;0;REF12C-1
13;80;485;0;0;0;0;
14;82;484;0;0;0;0;
SHEET;387
PROCR;485;
NOTES;RADIX;B;
0;81;485;0;0;0;0;
1;91;61;16;0;3;0;TSL COUNTER
2;;61;7;0;0;0;
3;5;66;6;1;0;0;
4;5;66;10;1;0;0;DISC
5;80;482;0;0;0;0;TSL 7 LONG NO S/R
6;4;61;17;0;0;0;END VALUE
7;82;485;0;0;0;0;
SHEET;388
PROCR;486;
NOTES;RADIX;B;
0;81;486;0;0;0;0;
1;;61;35;0;0;0;REF
2;70;486;16;0;0;0;ABS ADD
3;12;0;0;0;0;64;100
4;72;487;0;0;0;0;
5;35;0;0;0;0;1;Q1
6;10;0;0;0;0;0;
7;124;61;35;0;0;0;
8;36;70;0;0;0;0;SECT DETS
9;5;61;18;0;0;0;
10;34;545;49;0;0;0;820
11;124;61;35;0;0;0;
12;36;70;0;0;0;0;SECT DETS
13;35;0;0;0;0;1;
14;124;61;18;0;0;0;UNCORRECTED CHAP
15;36;92;9;0;0;0;CORRECTED CHAP IN Q1
16;82;486;0;0;0;0;
SHEET;389
PROCR;487;
NOTES;RADIX;B;
0;12;0;0;0;0;383;899 REF 999
1;73;487;6;0;0;0;
2;71;487;8;0;0;0;g REF  >999, CHEAT
3;5;61;35;0;0;0;SET REF ZERO
4;;61;51;0;0;0;THIS CHAP
5;82;486;0;0;0;0;
6;11;0;0;0;0;3.7;999
7;30;0;0;0;0;2;PROCR IN Q3-5
8;101;92;10;0;0;0;BIN LAST PROCRS IN CHAP
9;32;0;0;0;0;10;
10;2;545;0;0;0;0;ABS ADDRESS 92/9
11;5;61;18;0;0;0;UNCORR C NO
12;76;486;13;0;0;0;
SHEET;390
PROCR;488;
NOTES;RADIX;B;
0;81;488;0;0;0;0;
1;91;91;2;0;3;0;2(R+T):2R
2;35;0;0;0;0;111-;Q1-3 AND SIGN
3;10;0;0;0;0;0;
4;36;91;4;0;3;0;TA DETAILS
5;2;66;6;0;0;0;REF
6;70;488;8;0;0;0;
7;94;488;3;0;3;2;
8;0;91;4;0;3;0;TA DETAILS
9;30;0;0;0;0;3-;
10;82;488;0;0;0;0;
SHEET;391
PROCR;489;START OF MOD AND PARAMETER SR
NOTES;0;0;
0;81;489;0;0;0;0;
1;0;66;16;0;0;0;ITEM+' IND
2;71;493;0;0;0;0;gYES
3;0;66;6;0;0;0;REF
4;101;0;1000;1;2;0;
5;72;495;0;0;0;0;gREF=1000+
6;0;66;6;0;0;0;
7;70;492;0;0;0;0;gABS ADDRESS
8;5;61;35;0;0;0;
9;80;486;0;0;0;0;gDETERMINE CHAPTER SR
10;32;0;0;0;0;1-;
11;71;494;0;0;0;0;gTRANSIT AREA
12;32;0;0;0;0;1;
13;3;61;34;0;0;0;STORE CHAP OF REFERENCE
14;2;61;51;0;0;0;THIS CHAP NUMBER
15;71;491;0;0;0;0;gOTHER CHAP
SHEET;392
PROCR;490;DEAL WITH THIS CHAP-M&P
NOTES;0;0;
0;0;61;2;0;0;0;MOD DIGITS
1;70;490;15;0;0;0;gNORMAL
2;12;0;0;0;0;4;
3;72;490;11;0;0;0;gMR>3
4;0;61;1;0;0;0;
5;70;490;15;0;0;0;
6;0;545;18;0;0;0;MR1-3 NON-A 24/0/0
7;2;61;41;0;0;0;MOD GROUP PARA
8;2;61;2;0;0;0;
9;80;355;0;0;0;0;gO/P
10;76;490;13;0;0;0;
11;0;546;1;0;0;0;MR>3 24/0/1
12;80;506;0;0;0;0;MR>3 SR
13;10;0;0;0;0;0;
14;5;61;2;0;0;0;CLEAR MOD DIGITS
15;0;61;3;0;0;0;
16;5;61;34;0;0;0;SET PARAMETER=2C
17;82;489;0;0;0;0;EXIT
SHEET;393
PROCR;491;M&P-DEAL WITH OTHER CHAPTER
NOTES;0;0;
0;80;497;0;0;0;0;TEST MODIFICATION
1;71;491;8;0;0;0;gYES
2;0;546;0;0;0;0;SIMPLE CASE 24/0/3
3;2;61;34;0;0;0;OTHER CHAP NUMBER
4;2;61;34;0;0;0;
5;11;0;0;0;0;1;
6;80;355;0;0;0;0;gO/P, CLEAR A
7;76;490;16;0;0;0;gCLEAR PARA
8;80;508;0;0;0;0;COMPLEX CASE ->O/P 0/1/0+0/0/3
9;0;545;6;0;0;0;6/0/0
10;1;61;34;0;0;0;OTHER CHAP NUMBER
11;1;61;34;0;0;0;
12;12;0;0;0;0;1;
13;80;355;0;0;0;0;SELECT START ADDRESS ->O/P
14;76;496;0;0;0;0;gM&P COMPLEX END
SHEET;394
PROCR;492;M&P-DEAL WITH ABSOLUTE ADDRESS
NOTES;0;0;
0;0;61;2;0;0;0;MOD DIGITS
1;70;492;36;0;0;0;gUNMODIFIED
2;12;0;0;0;0;4;
3;72;492;23;0;0;0;gMR>3
4;0;61;1;0;0;0;
5;70;492;34;0;0;0;gMR 1-3 ARITH
6;0;66;8;1;0;0;ITEM
7;73;492;13;0;0;0;
8;0;545;17;0;0;0;(1) POS ITEM 24/01/2002
9;2;61;41;0;0;0;MOD GROUP PARA
10;2;61;2;0;0;0;
11;80;355;0;0;0;0;gO/P
12;76;492;27;0;0;0;
13;80;508;0;0;0;0;gO/P 0/1/0+0/0/3
14;80;505;0;0;0;0;(2) NEG ITEM O/P 24/0/3 0
15;0;545;6;0;0;0;6/0/0
16;1;61;2;0;0;0;MOD DIGITS
17;1;61;2;0;0;0;
18;5;67;3;0;0;0;
19;0;61;41;0;0;0;MOD GROUP PARA
20;5;67;2;0;0;0;
21;80;518;0;0;0;0;gO/P
22;76;492;32;0;0;0;
23;0;66;8;1;0;0;MR>3 ITEM
24;73;492;29;0;0;0;(1) POSITIVE ITEM 
25;0;546;0;0;0;0;24/0/3 0
26;80;506;0;0;0;0;gMR>3 SR
27;5;61;2;0;0;0;CLEAR MOD DIGITS
28;76;496;27;0;0;0;gM&P END
29;80;508;0;0;0;0;gO/P 0/1/0+0/0/3
30;0;545;6;0;0;0;(2) NEG ITEM 6/0/0
31;80;506;0;0;0;0;gMR>3 SR
32;5;61;2;0;0;0;CLEAR MOD DIGITS
33;76;496;0;0;0;0;gM&P COMPLEX END
34;0;66;8;1;0;0;SIMPLE CASE ITEM
35;73;492;13;0;0;0;
36;80;505;0;0;0;0;O/P 24/0/3 0
37;76;496;27;0;0;0;g END
SHEET;395
PROCR;493;M&P-DEAL WITH 'ITEM+'
NOTES;0;0;
0;80;497;0;0;0;0;g TEST MODIFICATION
1;71;493;4;0;0;0;gYES
2;0;66;8;1;0;0;ITEM
3;72;493;8;0;0;0;gNORMAL
4;80;508;0;0;0;0;COMPLEX CASE ->O/P 0/1/0+0/0/3
5;0;545;6;0;0;0;6/0/0
6;80;502;0;0;0;0;g'ITEM+' SR 
7;76;496;0;0;0;0;g M&P COMPLEX END 
8;0;546;0;0;0;0;24/0/3 ;SIMPLE CASE 
9;80;502;0;0;0;0;g'ITEM +' SR 
10;76;496;27;0;0;0;M&P END 
SHEET;396
PROCR;494;M&P – DEAL WITH TRANSIT AREA REFERENCE 
NOTES;;;
0;80;497;0;0;0;0;gTEST MODIFICATION 
1;71;494;4;0;0;0;gYES 
2;0;66;8;1;0;0;ITEM 
3;72;494;9;0;0;0;gNORMAL 
4;80;508;0;0;0;0;gO/P 0/1/0+0/0/3 ;COMPLEX CASE 
5;80;500;0;0;0;0;gO/P 24/1/2 BY-(64+P) 
6;0;545;64;0;0;0;24/0/2 0 
7;80;359;0;0;0;0;gO/P 
8;76;496;0;0;0;0;gM&P COMPLEX END 
9;80;500;0;0;0;0;gO/P 24/1/2 BY -(64+P)  (SIMPLE CASE) 
10;76;496;27;0;0;0;gM&P END 
SHEET;397
PROCR;495;M&P-DEAL WITH REFERENCE 1000+ 
NOTES;;;
0;80;497;0;0;0;0;gTEST MODIFICATION 
1;71;495;4;0;0;0;gYES 
2;0;66;8;1;0;0;ITEM 
3;72;495;14;0;0;0;gNORMAL 
4;80;508;0;0;0;0;gO/P 0/1/0 +0/0/3 ;COMPLEX CASE 
5;80;503;0;0;0;0;gTEST CHAP 
6;;545;17;0;0;0;24/1/2 
7;2;66;6;0;0;0;
8;101;0;1000;1;1;0;
9;80;359;0;0;0;0;gO/P 
10;;545;64;0;0;0;24/0/2 
11;80;359;0;0;0;0;gO/P ZERO REF;ZERO PARA 
12;5;66;6;1;0;0;
13;76;496;0;0;0;0;gM&P COMPLEX END 
14;80;503;0;0;0;0;gTEST CHAP 
15;;545;17;0;0;0;24/1/2 
16;2;66;6;0;0;0;
17;101;0;1000;1;1;0;
18;80;359;0;0;0;0;gO/P 
19;5;66;6;1;0;0;
20;76;496;27;0;0;0;gM&P END 
SHEET;398
PROCR;496;M&P-DEAL WITH ADDRESS CALCULATIONS+END ROUTINE 
NOTES;;;
0;0;61;2;0;0;0;
1;70;496;15;0;0;0;gUNMODIFIED 
2;12;0;0;0;0;4;
3;72;496;13;0;0;0;gMR>3 
4;80;505;0;0;0;0;24/0/3 0 
5;0;545;7;0;0;0;4/0/0 
6;1;61;2;0;0;0;
7;1;61;2;0;0;0;
8;5;67;3;0;0;0;
9;0;61;41;0;0;0;MOD GROUP PARA 
10;5;67;2;0;0;0;
11;80;518;0;0;0;0;gO/P 
12;76;496;15;0;0;0;
13;0;545;7;0;0;0;4/0/0 
14;80;506;0;0;0;0;gMR>3 SR 
15;0;66;8;1;0;0;
16;72;496;20;0;0;0;gNOT NEGATIVE ITEM 
17;0;66;8;0;0;0;MODULUS 
18;1;545;22;0;0;0;1/1/2 0 
19;80;359;0;0;0;0;gO/P 
20;5;66;8;1;0;0;CLEAR ITEM, MOD DIGITS 
21;5;61;2;0;0;0;
22;;546;14;0;0;0;2/0/0/6 
23;80;361;0;0;0;0;gLN;2C SR 
24;80;399;0;0;0;0;g0/1/1 SR 
25;;546;15;0;0;0;24/0/3/6 
26;80;361;0;0;0;0;gLN;2C SR 
27;10;0;0;0;0;0;
28;5;61;34;0;0;0;CLEAR PARA, REF 
29;82;489;0;0;0;0;
SHEET;399
PROCR;497;M&P-TEST INDIRECT MODIFICATION 
NOTES;;;
0;81;497;0;0;0;0;
1;0;61;2;0;0;0;MOD DIGITS 
2;70;497;6;0;0;0;gNO 
3;12;0;0;0;0;4;
4;72;497;7;0;0;0;gYES(MR>3) 
5;0;61;1;0;0;0;(NON-ZERO IF NON-ARITH) 
6;82;497;0;0;0;0;
7;10;0;0;0;0;1;
8;82;497;0;0;0;0;(A)=0 IF 'DIRECT' MODIFICATION 
SHEET;400
PROCR;498;SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS 
NOTES;;;
0;81;498;0;0;0;0;
1;73;498;5;0;0;0;gNEGATIVE ACTIONS 
2;1;61;43;0;0;0;
3;2;61;11;0;0;0;START OF CURRENT PROCR 
4;76;498;7;0;0;0;
5;2;61;43;0;0;0;
6;1;61;11;0;0;0;
7;5;67;3;0;0;0;
8;0;61;10;0;0;0;CURRENT PROCR(IN THIS CHAPTER) 
9;30;0;0;0;0;2;
10;1;61;3;0;0;0;
11;5;67;2;0;0;0;PARA 
12;80;518;0;0;0;0;gO/P 
13;82;498;0;0;0;0;
SHEET;401
PROCR;499;SET(A)=ROUTE PARA;Q10B=FILE TYPE 
NOTES;;;
0;81;499;0;0;0;0;
1;91;91;0;0;3;0;2R:0 
2;0;91;5;0;3;0;
3;70;499;9;0;0;0;gLIST EMPTY
4;33;0;0;0;0;6-;ROUTE TYPE
5;1;545;25;0;0;0;BIT 15 TO RESTORE TOP CONTROL
6;2;61;54;0;0;0;FILE ID
7;70;499;11;0;0;0;gMATCH
8;94;499;2;0;3;2;
9;10;0;0;0;0;5:;
10;80;501;0;0;0;0;gREPORT'?????'
11;96;0;0;0;3;0;
12;31;0;0;0;0;1-;
13;1;92;29;0;0;0;NUMBER OF CHARS
14;1;92;29;0;0;0;
15;11;0;0;0;0;1;
16;82;499;0;0;0;0;
SHEET;402
PROCR;500;MODIFY BY ANNEX START SR 
NOTES;RADIX;B;T.A.S. MR LESS THAN 3 
0;81;500;0;0;0;0;
1;80;488;0;0;0;0;FORM TA PARAM
2;11;0;0;0;0;1;TO GIVE T2
3;2;545;17;0;0;0;24/1/2
4;5;67;3;0;0;0;
5;2;67;3;0;0;0;
6;80;355;0;0;0;0;gO/P
7;5;66;6;0;0;0;CLEAR REF
8;82;500;0;0;0;0;
SHEET;403
PROCR;501;MISMATCH SR FOR MR>3, SWITCHES, ITEM+ 
NOTES;;;
0;81;501;0;0;0;0;(A)=+,M,S OR C
1;32;0;0;0;0;2-;
2;1;542;26;1;0;0; '?????'
3;32;0;0;0;0;2;
4;5;5;46;1;0;0;
5;0;546;18;0;0;0;
6;71;501;10;0;0;0;gPREVIOUS RI/P RECORD WAS PRINTED
7;10;0;0;0;0;1;
8;5;545;97;0;0;0;
9;80;511;0;0;0;0;gPRINT LINE WE'RE REPORTING
10;80;530;0;0;0;0;gSECOND PRINT SR
11;82;501;0;0;0;0;
SHEET;404
PROCR;502;
NOTES;RADIX;B;DEAL WITH ITEM + S.R. 
0;81;502;0;0;0;0;
1;5;61;58;0;0;0;ACTION
2;91;98;0;0;3;0;
3;;98;1;0;0;0;CTR
4;70;502;11;0;0;0;gWRONG
5;35;0;0;0;0;11;
6;10;0;0;0;0;0;
7;36;98;2;0;3;0;
8;2;66;6;1;0;0;
9;70;502;13;0;0;0;gOK
10;94;502;6;0;3;1;
11;10;0;0;0;0;4+;ERROR +
12;80;501;0;0;0;0;gMISMATCH SR
13;;98;2;0;3;0;
14;80;507;0;0;0;0;
15;5;66;16;0;0;0;CLEAR ITEM+IND
16;5;66;6;1;0;0;CLEAR REFERENCE
17;82;502;0;0;0;0;
SHEET;405
PROCR;503;TEST IF IN OTHER CHAPTER-M&P REF 1000+ 
NOTES;;;
0;81;503;0;0;0;0;
1;;61;9;0;0;0;PROCR OF LAST 81 ACTION
2;5;61;35;0;0;0;
3;80;486;0;0;0;0;gDETERMINE CHAP SR
4;3;61;34;0;0;0;ADDRESSED CHAP
5;2;61;51;0;0;0;THIS CHAP NO
6;70;503;15;0;0;0;gTHIS CHAP
7;;61;34;0;0;0;
8;80;504;0;0;0;0;gO/P 24/0/3
9;;61;9;0;0;0;REF=PROCR
10;30;0;0;0;0;2;
11;5;67;2;0;0;0;PARA=0
12;;546;0;0;0;0;24/0/3
13;80;359;0;0;0;0;gO/P
14;82;503;0;0;0;0;
15;;61;9;0;0;0;
16;30;0;0;0;0;2;
17;1;61;3;0;0;0;2C
18;76;503;11;0;0;0;
SHEET;406
PROCR;504;OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START 
NOTES;;;
0;81;504;0;0;0;0;
1;70;504;6;0;0;0;g24/0/3 BY 0
2;5;67;3;0;0;0;
3;10;0;0;0;0;1;
4;2;67;3;0;0;0;
5;2;67;3;0;0;0;
6;1;546;0;0;0;0;24/0/3
7;80;355;0;0;0;0;gO/P
8;82;504;0;0;0;0;
SHEET;407
PROCR;505;OUTPUT 24/0/3 BY 0 
NOTES;RADIX;B;
0;81;505;0;0;0;0;
1;10;0;0;0;0;0;
2;80;504;0;0;0;0;
3;82;505;0;0;0;0;
SHEET;408
PROCR;506;MR GREATER THAN 3 SR 
NOTES;RADIX;B;M & P
0;81;506;0;0;0;0;
1;5;61;58;0;0;0;ACTION WL
2;91;71;0;0;3;0;
3;94;506;5;0;3;0;/////
4;76;506;11;0;0;0;gMISMATCH
5;35;0;0;0;0;11;
6;10;0;0;0;0;0;
7;36;71;2;0;3;0;
8;2;61;2;0;0;0;MOD DIGITS
9;70;506;13;0;0;0;gOK
10;94;506;6;0;3;1;
11;10;0;0;0;0;64;=M
12;80;501;0;0;0;0;gMISMATCH SR
13;0;71;2;0;3;0;
14;80;507;0;0;0;0;
15;82;506;0;0;0;0;
SHEET;409
PROCR;507;END ROUTINE FOR MR>3 AND ITEM+ SUBROUTINES 
0;81;507;0;0;0;0;
1;5;503;0;0;0;0;WL=SR LINK
2;0;61;58;0;0;0;
3;70;507;13;0;0;0;gZERO ACTION=15-BIT ADDRESS NEEDED
4;0;503;0;0;0;0;
5;30;0;0;0;0;4-;ISOLATE CORRECTED CHAP
6;2;61;51;0;0;0;
7;70;507;11;0;0;0;gTHIS CHAP
8;1;61;51;0;0;0;
9;80;504;0;0;0;0;gO/P 24/0/3 BY OTHER CHAP START
10;76;507;18;0;0;0;g(PARA=0)
11;0;61;3;0;0;0;2C
12;76;507;18;0;0;0;
13;0;503;0;0;0;0;
14;30;0;0;0;0;4-;
15;3;67;2;0;0;0;FORM PARA 2C'-1
16;1;67;2;0;0;0;
17;12;0;0;0;0;1;
18;5;67;2;0;0;0;
19;0;503;0;0;0;0;
20;32;0;0;0;0;4-;
21;101;0;1001;1;1;0;
22;30;0;0;0;0;2;
23;4;67;2;0;0;0;REF=1000+CHAP
24;10;0;0;0;0;0;
25;32;0;0;0;0;2;CTR WAS IN Q3,4
26;34;544;20;0;0;0;BITS 1-13
27;36;61;58;0;0;0;
28;37;61;58;0;0;0;PACK WITH ACTION
29;0;61;58;0;0;0;
30;80;359;0;0;0;0;gO/P
31;82;507;0;0;0;0;
SHEET;410
PROCR;508;0/1/0 AND 0/0/3 S/R 
NOTES;RADIX;B;M&P
0;81;508;0;0;0;0;
1;;61;25;0;0;0;BIN INDICATOR
2;70;508;4;0;0;0;
3;10;0;0;0;0;8;
4;1;545;27;0;0;0;0/1/0
5;80;361;0;0;0;0;gLN:2C SR
6;;61;25;0;0;0;BIN IND
7;71;508;10;0;0;0;WE ALREADY HAVE BINARY SET
8;;545;26;0;0;0;0/0/3
9;80;355;0;0;0;0;O/P
10;10;0;0;0;0;1;
11;4;61;25;0;0;0;
12;82;508;0;0;0;0;
SHEET;411
PROCR;509;I/P SR 
NOTES;RADIX;;
0;81;509;0;0;0;0;
1;;0;0;2;12;0;CURRENT RECORD LENGTH
2;5;537;0;0;0;0;
3;97;537;0;0;12;0;
4;C;509;6;0;0;0;
5;80;539;0;0;0;0;gREAD
6;10;0;0;0;0;0;
7;35;0;0;0;0;1111;
8;36;0;2;1;12;0;AMENDED IMPLICITLY IND
9;5;545;97;0;0;0;
10;37;0;2;1;12;0;CLEAR 2 CHARS
11;54;77;0;1;0;44;BULK CLEAR
12;55;0;0;1;12;0;
13;C;77;0;1;0;0;
14;C;0;0;2;12;0;
15;82;509;0;0;0;0;
SHEET;412
PROCR;510;PRINT LINE AND RE-SITE AMEND IND
NOTES;;;
0;81;510;0;0;0;0;
1;;8;4;1;0;0;
2;5;8;2;1;0;0;
3;5;8;4;1;0;0;
4;80;511;0;0;0;0;gPRINT
5;82;510;0;0;0;0;
SHEET;413
PROCR;511;PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE
NOTES;RADIX;B;
0;81;511;0;0;0;0;
1;0;544;0;1;0;0;BEW
2;5;7;50;1;0;0;
3;;7;46;1;0;0;
4;80;515;0;0;0;0;gREPORT IF TOP 4 CHARS='?'
5;70;511;10;0;0;0;gYES
6;;7;48;1;0;0;
7;70;511;42;0;0;0;gNO ERRORS
8;80;515;0;0;0;0;gTEST FOR REPORT
9;71;511;21;0;0;0;
10;94;511;12;0;20;0;/////
11;76;511;40;0;0;0;gNO MORE ROOM
12;;7;6;1;0;0;
13;70;511;40;0;0;0;gFILE HANDLING ERROR;NO SERIAL
14;30;0;0;0;0;8-;
15;12;0;0;0;0;5e;
16;70;511;40;0;0;0;gSECTION DESCRIPTION
17;;7;6;2;0;0;
18;5;40;0;0;20;0;
19;94;511;40;0;20;1;
20;76;511;40;0;0;0;
21;;7;32;1;0;0;FIRST 5 CHARS ANNOTATION
22;12;0;0;0;0;7171717171;'/////'
23;71;511;27;0;0;0;
24;35;0;0;0;0;111111;Q1-6
25;37;7;48;1;0;0;
26;76;511;42;0;0;0;gDON'T COUNT
27;94;511;29;0;19;0;/////
28;76;511;37;0;0;0;gNO MORE ROOM
29;;7;6;1;0;0;
30;70;511;37;0;0;0;gFILE HEADING ERROR;NO SERIAL
31;30;0;0;0;0;8-;
32;12;0;0;0;0;5e;
33;70;511;37;0;0;0;gSECTION DESCRIPTION ERROR
34;;7;6;2;0;0;
35;5;40;10;0;19;0;
36;94;0;0;0;19;1;
37;86;514;0;0;0;0;
38;11;0;0;0;0;1;STEP CTR OF OTHER ERRORS
39;84;514;0;0;0;0;
40;10;0;0;0;0;1;(PRINT REPORTED LINES)
41;5;545;97;0;0;0;
42;0;23;46;1;0;0;PRINT PROCR '+' PRINT ALL ' INDS
43;71;511;49;0;0;0;g PRINT
44;0;545;97;0;0;0;IMPLICITLY AMENDED'
45;70;511;54;0;0;0;g DONT PRINT
46;0;546;18;0;0;0;> LAST RECORD PRINTED ?
47;71;511;49;0;0;0;g YES
48;80;512;0;0;0;0;g BLANK LINE
49;0;61;46;0;0;0;HEAD OF FORM, OR ZERO
50;5;7;0;2;0;0;
51;80;513;0;0;0;0;gPRINT LINE
52;10;0;0;0;0;1;
53;3;61;46;0;0;0;SET FOR NEXT TIME
54;5;546;18;0;0;0;SET/CLEAR IND
55;82;511;0;0;0;0;
SHEET;414
PROCR;512;PRINT BLANK LINE UNCONDITIIONALLY
0;81;512;0;0;0;0;
1;;999;16;1;0;0;COPY SEC 7 PARAS
2;5;543;40;1;0;0;
3;0;999;8;0;0;0;PT ROUTE
4;5;999;16;0;0;0;
5;2;999;8;0;0;0;
6;12;0;0;0;0;40;64
7;5;999;17;0;0;0;CREATE R, - (64+R)
8;5;7;0;1;0;0;
9;;27;9;0;0;0;ON LINE ?
10;70;512;13;0;0;0;g YES
11;54;7;0;1;0;50;
12;76;512;15;0;0;0;g 'PRINT'
13;0;544;0;1;0;0;DEW
14;5;7;2;1;0;0;
15;80;513;0;0;0;0;g'PRINT EX SEC 7
16;0;543;40;1;0;0;
17;5;999;16;1;0;0;RESTORE SEC 7 PARAS
18;82;512;0;0;0;0;
SHEET;415
PROCR;513;PRINT SEC 7 (OR SEC 5, OR PT ANNEX)
0;81;513;0;0;0;0;
1;;27;9;0;0;0;
2;70;513;7;0;0;0;g PRINTER
3;55;7;0;1;0;50;
4;C;10;4;1;6;0;
5;80;540;0;0;0;0;g O/P>
6;82;513;0;0;0;0;
7;;27;8;0;0;0;PRINTER TYPE
8;12;0;0;0;0;9;
9;70;513;25;0;0;0;g SPECIAL
10;;545;49;0;0;0;BIT 20
11;5;7;1;0;0;0;
12;124;999;17;1;2;0;SEC 7
13;124;0;0;0;2;0;
14;124;999;13;1;2;0;SEC 10
15;129;0;0;0;1;0;
16;10;0;0;0;0;4;
17;30;0;0;0;0;5;
18;1;999;7;0;0;0;ROUTE
19;34;999;12;0;0;0;
20;125;0;4096;1;1;0;
21;124;999;0;0;3;0;
22;123;0;160;0;2;0;
23;62;0;0;0;0;0;
24;82;513;0;0;0;0;
25;55;7;0;1;0;54;
26;C;10;0;1;0;0;
27;10;0;0;0;0;9;
28;76;513;17;0;0;0;
SHEET;416
PROCR;514;OUTPUT 9 > A6
NOTES;RADIX;;
0;81;514;0;0;0;0;
1;43;A6;0;0;0;0;
2;C;9;0;0;0;0;
3;82;514;0;0;0;0;
SHEET;417
PROCR;515;TEST FOR DIASTROUS ERROR CONDITION IN PRINTER
NOTES;;;
0;81;515;0;0;0;0;
1;30;0;0;0;0;2-;
2;30;0;0;0;0;2;
3;11;0;0;0;0;5:;
4;2;542;26;1;0;0;?????'
5;71;515;9;0;0;0;g NOT DISASTROUS
6;86;511;0;0;0;0;STEP DISASTER CTR
7;11;0;0;0;0;1;
8;84;511;0;0;0;0;(CLEARS A)
9;82;515;0;0;0;0;
SHEET;418
PROCR;516;O/P TYPE SR
NOTES;RADIX;;
0;81;516;0;0;0;0;
1;91;61;44;0;2;0;
2;;61;26;1;0;0;TYPE NO ALPHA
3;1;542;16;1;0;0;TYPE (SPACE)
4;05;9;4;1;2;0;
5;;61;28;1;0;0;
6;05;9;6;1;2;0;
7;;61;43;0;0;0;SPACE CTR
8;05;9;8;2;2;0;
9;5;9;10;1;2;0;CLEAR
10;76;519;0;0;0;0;
SHEET;419
PROCR;517;ALPHA OUTPUT SR
NOTES;RADIX;;
0;81;517;0;0;0;0;
1;91;61;44;0;2;0;
2;;61;26;1;0;0;
3;5;9;4;1;2;0;
4;;61;28;1;0;0;
5;5;9;6;1;2;0;
6;;67;2;0;0;0;
7;5;9;8;2;2;0;
8;;67;3;0;0;0;
9;5;9;10;2;2;0;
10;;517;0;0;0;0;O/P ALPHA S/R LINK 
11;76;518;13;0;0;0;
SHEET;420
PROCR;518;
NOTES;RADIX;B;O/P S/R 
0;81;518;0;0;0;0;
1;;61;42;0;0;0;
2;4;61;43;0;0;0;AUGMENT LOCATION COUNTER 
3;91;61;44;0;2;0;
4;;67;0;0;0;0;SERIAL NO FOR INSTUCTIONS 
5;5;9;4;2;2;0;
6;;67;1;0;0;0;SC INDICATOR FOR INSIONS 
7;5;9;6;2;2;0;
8;;67;2;0;0;0;PARAMETER 
9;5;9;8;2;2;0;
10;;67;3;0;0;0;
11;5;9;10;2;2;0;
12;;518;0;0;0;0;LINK 
13;5;516;0;0;0;0;O/P TYPE S/R LINK 
SHEET;421
PROCR;519;O/P S/R 
NOTES;RADIX;B;
0;94;519;6;0;2;8;
1;;544;0;1;0;0;BE WORD 
2;5;9;4;1;2;0;
3;80;514;0;0;0;0;PREP STAGE OP 
4;90;0;0;0;2;0;
5;C;0;0;0;0;144;
6;95;0;0;0;2;0;
7;5;61;44;1;0;0;
8;5;67;1;0;0;0;CLEAR S67 
9;5;67;2;1;0;0;
10;82;516;0;0;0;0;
SHEET;422
PROCR;520;OP REMAINING DETAILS SR 
NOTES;RADIX;B;
0;81;520;0;0;0;0;
1;0;61;44;0;0;0;
2;70;520;7;0;0;0;NOTHING TO O/P 
3;91;61;44;0;2;0;OP CTR 
4;0;520;0;0;0;0;LINK 
5;5;516;0;0;0;0;O/P TYPE S/R LINK 
6;76;519;1;0;0;0;
7;82;520;0;0;0;0;
SHEET;423
PROCR;521;I/P INSTRUCTION SR 
NOTES;RADIX;B;
0;81;521;0;0;0;0;
1;80;509;0;0;0;0;- I/P 
2;10;0;0;0;0;1;
3;5;61;99;0;0;0;NON I/P IND 
4;80;522;0;0;0;0;- I/P C-LINE S/R 
5;82;521;0;0;0;0;
SHEET;424
PROCR;522;I/P C-LINE S/R
NOTES;RADIX;B;
0;81;522;0;0;0;0;
1;;61;99;0;0;0;NON I/P IND
2;71;522;8;0;0;0;
3;80;534;0;0;0;0;SUSPEND
4;80;509;0;0;0;0;INPUT
5;;0;6;1;12;0;
6;2;542;24;1;0;0;C,-,-,-,-,
7;71;362;1;0;0;0;-G.N.B.
8;50;77;2;0;0;0;
9;C;548;0;0;0;0;
10;52;7;2;0;0;0;EDIT INSTRUCTIONS
11;C;548;0;0;0;0;
12;;77;20;1;0;0;PREVIOUS PROCR NO
13;5;7;28;1;0;0;
14;;77;22;1;0;0;PASS 1 REPORTS
15;5;7;48;1;0;0;
16;55;77;24;1;0;16;COPY ANOTATION
17;C;7;32;1;0;0;
18;0;66;4;1;0;0;ACTION ALPHA
19;2;542;24;1;0;0;
20;70;526;0;0;0;0;gTHIS IS A C-LINE
21;10;0;0;0;0;0;
22;5;61;20;1;0;0;
23;94;522;25;0;1;0;/////
24;76;525;0;0;0;0;gNO UNMATCHED SEQ CHS BACK
25;;0;1;0;1;0;(R1 ABS) SC BACK DEST
26;2;66;2;1;0;0;SERIAL THIS ORDER
27;70;524;0;0;0;0;gTHIS IS A DESTINATION
28;72;525;0;0;0;0;gNOW TRY SEQ CH FWD LIST
29;;542;26;1;0;0;?????
30;5;61;20;1;0;0;
31;80;523;0;0;0;0;gSTORE 'ADDRESS'=CURRENT SPACE CTR
32;80;529;0;0;0;0;PRINT ENTRY POINT S/PRINT WRONG ENTRY PO
33;76;522;21;0;0;0;
SHEET;425
PROCR;523;
NOTES;0;0;
0;81;523;0;0;0;0;
1;;0;0;0;1;0;SOURCE OF SC BACK
2;3;61;0;0;0;0;
3;5;0;1;0;1;0;OVERWRITE DEST
4;0;61;20;1;0;0;
5;71;523;13;0;0;0;gIGNORED
6;35;0;0;0;0;11;
7;36;66;2;0;0;0;
8;12;0;0;0;0;2;
9;71;523;13;0;0;0;gNOT TO PROCR START
10;96;0;0;0;1;0;
11;80;421;0;0;0;0;gCONTRACT SC BACK LIST
12;76;523;18;0;0;0;gSTEP R1
13;0;61;10;0;0;0;CURRENT PROCR
14;31;0;0;0;0;10;
15;1;61;43;0;0;0;SPACE CTR
16;2;61;11;0;0;0;PROCR START
17;5;0;0;0;1;0;STORE  PROCR+ADDRESS IN PROCR I think this is first line of the sheet
18;94;523;19;0;1;2;STEP 
19;82;523;0;0;0;0;
SHEET;426
PROCR;524;I/P C-LINE S/R 
NOTES;RADIX;B;STORE ABS DEST FOR MATCHED SC'S BACK 
0;80;523;0;0;0;0;gstore address 
1;0;0;1;0;1;0;(R1 IS ABS) NEXT DEST 
2;2;66;2;0;0;0;THIS SERIAL 
3;71;525;41;0;0;0;gTRY SC FWD 
4;80;529;0;0;0;0;
5;76;524;0;0;0;0;gTHERE MAY BE MORE 
SHEET;427
PROCR;525;I/P C-LINE S/R 
NOTES;RADIX;B;TRY MATCH WITH SEQ CHS FWD 
0;0;61;117;0;0;0;CTR OF SEC 20 LENGTH 
1;70;526;0;0;0;0;gEMPTY 
2;0;20;0;0;0;0;SMALLEST DEST OF SC FWD 
3;70;526;0;0;0;0;gLIST EMPTY,SKIP TO END 
4;2;66;2;1;0;0;THIS SERIAL 
5;70;525;9;0;0;0;gIS DEST OF SEQ CH FWD 
6;72;526;0;0;0;0;gEARLIER THAN EARLIEST DEST 
7;0;542;26;1;0;0;
8;5;61;20;1;0;0;;SEQ CHS FORWARD 
9;;20;2;0;0;0;
10;30;0;0;0;0;6;
11;30;0;0;0;0;1-;
12;70;525;17;0;0;0;gSC TO PROCR START 
13;99;0;0;1;1;0;
14;72;525;17;0;0;0;gOK 
15;10;0;0;0;0;79;
16;80;501;0;0;0;0;gREPORT SR 
17;0;20;1;0;0;0;
18;5;61;0;0;0;0;
19;0;20;2;0;0;0;
20;70;525;30;0;0;0;gSC TO PROCR START 
21;30;0;0;0;0;4-;
22;5;523;0;0;0;0;FLIPFLOP 
23;0;61;43;0;0;0;SPACE CTR 
24;2;61;11;0;0;0;CURRENT PROCR START 
25;34;544;24;0;0;0;BITS 1-10 
26;124;523;0;0;1;0;0 OR 10 
27;33;0;0;0;0;0;///// 
28;124;20;2;0;3;0;ABS LOCN Q1-4 
29;114;0;0;0;0;0;PACK NEXT ENTRY->SEC 18 
30;0;61;117;0;0;0;
31;12;0;0;0;0;3;
32;3;61;117;0;0;0;REDUCE NO OF SC'S IN TRANSIT 
33;71;525;36;0;0;0;gLIST NOT EMPTY 
34;5;20;0;0;0;0;
35;76;525;39;0;0;0;gTEST IF LAST SC WAS WRONG 
36;124;20;3;0;2;0;
37;1;61;116;1;0;0;LENGTH IN 61/117 
38;128;20;0;0;0;0;UP 3 LOCNS 
39;;61;20;1;0;0;
40;71;522;32;0;0;0;gWAS A WRONG ENTRY POINT 
41;;61;117;0;0;0;CTR OF SECN 20 LENGTH 
42;70;525;55;0;0;0;gPRINT LINE 
43;;66;2;0;0;0;
44;2;20;0;0;0;0;NEXT SCFWD 
45;70;525;53;0;0;0;gPRINT ENTRY POINT 
46;73;525;55;0;0;0;gPRINT LINE 
47;;61;0;0;0;0;LIST 
48;70;525;50;0;0;0;
49;80;529;0;0;0;0;PRINT ENTRY POINT 
50;;542;26;1;0;0;????? 
51;5;61;20;1;0;0;
52;76;525;9;0;0;0;
53;80;529;0;0;0;0;
54;76;525;9;0;0;0;gMOVE LIST UP,TRY AGAIN 
55;52;7;2;0;0;0;EDIT ENTRY POINT 
56;C;551;6;0;0;0;
SHEET;428
PROCR;526;I/P C LINE S/R 
NOTES;RADIX;B;
0;10;0;0;0;0;0;
1;34;66;6;1;0;0;
2;80;533;0;0;0;0;RT ALIGN S/R 
3;5;66;6;1;0;0;
4;5;66;16;0;0;0;CLEAR INDICATOR 
5;35;0;0;0;0;1;QUARTET ONE. 
6;36;66;8;1;0;0;ITEM 
7;12;0;0;0;0;+;
8;71;527;0;0;0;0;gNOT 'ITEM+' 
9;10;0;0;0;0;1;
10;5;66;16;0;0;0;;IF IT IS SET 
11;;66;8;1;0;0;;INDICATOR 
12;30;0;0;0;0;1-;;AND REMOVE + 
13;72;526;15;0;0;0;
14;11;0;0;0;0;1;TO MAKE COMPLEMENT CORRECT 
15;5;66;8;1;0;0;
SHEET;429
PROCR;527;I/P C-LINE S/R 
NOTES;RADIX;B;
0;;77;38;1;0;0;IGNORE'IND 
1;2;542;26;1;0;0;
2;3;61;98;1;0;0;
3;70;527;29;0;0;0;
4;;77;24;1;0;0;FIRST 5 CHARS ANNOTATION 
5;12;0;0;0;0;7369515355;TRACE' 
6;71;527;29;0;0;0;gNO 
7;;66;4;1;0;0;
8;2;542;24;1;0;0;
9;70;528;47;0;0;0;gA C-LINE 
10;;66;5;0;0;0;
11;12;0;0;0;0;48300;
12;70;528;47;0;0;0;g80 ACTION 
13;12;0;0;0;0;150;
14;70;528;47;0;0;0;g85 
15;12;0;0;0;0;pp0;
16;70;528;47;0;0;0;g94 
17;12;0;0;0;0;30;
18;70;528;47;0;0;0;g97
19;0;25;0;0;0;0;
20;101;0;40;1;2;0;
21;72;528;47;0;0;0;gLIST FULL
22;;61;43;0;0;0;SPACESTR
23;30;0;0;0;0;5;
24;1;66;2;0;0;0;LINE SERIAL
25;124;25;0;0;1;0;
26;5;25;2;1;0;0;
27;10;0;0;0;0;2;
28;4;25;0;0;0;0;
29;80;511;0;0;0;0;PRINT
30;;66;6;2;0;0;DEC REF
31;12;0;0;0;0;100;
32;73;527;39;0;0;0;gSECTION
33;12;0;0;0;0;899;
34;72;527;39;0;0;0;g999 OR 1000+
35;60;0;0;0;0;0;
36;10;0;0;0;0;2-;
37;4;66;8;1;0;0;REDUCE ITEM
38;62;0;0;0;0;0;
39;;66;4;1;0;0;
40;2;542;24;1;0;0;C. . . . .
41;70;528;4;0;0;0;
42;34;66;4;1;0;0;
43;80;533;0;0;0;0;RT ALIGN S/R
44;5;66;4;1;0;0;
45;;66;4;2;0;0;ACTION
46;32;0;0;0;0;1-;
47;5;61;110;0;0;0;GROUP
48;32;0;0;0;0;1;
49;11;0;0;0;0;1;
50;5;61;50;0;0;0;VARIANT +1
SHEET;430
PROCR;528;
NOTES;RADIX;B;
0;0;61;110;0;0;0;
1;80;537;0;0;0;0;CONVERT
2;11;0;0;0;0;1;
3;5;61;110;0;0;0;GROUP+1
4;;61;98;1;0;0;W/L
5;71;528;8;0;0;0;
6;5;61;110;0;0;0;CLEAR GROUP WHEN 'IGNORE' IND SET
7;76;362;0;0;0;0;gGNB
8;124;543;20;0;2;0;
9;112;66;8;1;0;0;
10;5;66;8;1;0;0;ITEM TO BIN
11;124;543;20;0;2;0;
12;112;66;12;1;0;0;
13;5;66;12;1;0;0;MOD DIGITS TO BIN
14;0;61;110;0;0;0;
15;12;0;0;0;0;2;
16;70;528;42;0;0;0;gGROUP 1
17;12;0;0;0;0;3;
18;70;528;45;0;0;0;gGROUP 4
19;12;0;0;0;0;2;
20;70;528;42;0;0;0;gGROUP 6 
21;12;0;0;0;0;1;
22;70;528;42;0;0;0;gGROUP 7 
23;12;0;0;0;0;3;
24;73;528;39;0;0;0;gGROUPS,0,2,3,5,8,9 
25;12;0;0;0;0;3;
26;73;528;42;0;0;0;gGROUPS 10-12 
27;70;528;34;0;0;0;gGROUP13 
28;12;0;0;0;0;1;
29;70;528;42;0;0;0;gGROUP 14 
30;;61;50;0;0;0;VARIANT+1 
31;12;0;0;0;0;7;
32;70;528;45;0;0;0;g156,DON'T CONVERT REFF 
33;76;528;42;0;0;0;
34;;61;50;0;0;0;
35;12;0;0;0;0;3;
36;73;528;42;0;0;0;gACTION 130 OR 131 
37;10;0;0;0;0;0;
38;76;528;45;0;0;0;gACTION 132-134, DON'T CONVERT REF 
39;124;543;20;0;2;0;
40;112;66;14;1;0;0;
41;5;66;14;1;0;0;LITERAL TO BIN 
42;124;543;20;0;2;0;
43;112;66;7;1;0;0;
44;5;66;6;1;0;0;
45;5;61;99;0;0;0;
46;82;522;0;0;0;0;
47;10;0;0;0;0;65;N'  REPORT 'TRACE' 
48;35;0;0;0;0;11000;
49;30;0;0;0;0;3;
50;37;7;49;0;0;0;
51;76;527;29;0;0;0;
SHEET;431
PROCR;529;PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE 
NOTES;RADIX;B;
0;81;529;0;0;0;0;
1;0;61;20;1;0;0;
2;71;529;5;0;0;0;gPRINT REPORTED SC 
3;0;23;46;1;0;0; 'PRINT UNCONDITIONALLY' INDS 
4;70;529;10;0;0;0;gDON'T PRINT SEPARATE SC 
5;52;5;2;0;0;0;
6;C;551;0;0;0;0;
7;0;61;20;1;0;0; '?????'OR ZERO 
8;5;5;46;1;0;0;
9;80;530;0;0;0;0;
10;10;0;0;0;0;0;
11;5;61;0;0;0;0;CLEAR LIST 
12;82;529;0;0;0;0;
SHEET;432
PROCR;530;SECOND PRINT S/R 
NOTES;RADIX;B;
0;81;530;0;0;0;0;
1;0;544;0;1;0;0;BEW
2;5;5;50;1;0;0;
3;0;999;14;1;0;0;SEC 5 PARAS
4;5;999;16;1;0;0;CORRUPT SEC 7 PARAS
5;80;511;0;0;0;0;gPRINT SR(WHICH WILL USE SEC 5)
6;0;999;30;1;0;0;
7;5;999;16;1;0;0;RESTORE SEC 7 PARAS EX WL
8;54;5;2;1;0;48;
9;82;530;0;0;0;0;
SHEET;433
PROCR;531;NEG NO S/R 
NOTES;RADIX;B;
0;81;531;0;0;0;0;
1;10;0;0;0;0;0;
2;2;66;8;1;0;0;ITEM
3;70;531;15;0;0;0;DO NOT SET INDICATOR FOR ZERO ITEM
4;73;531;15;0;0;0;
5;5;66;8;1;0;0;
6;10;0;0;0;0;80;B8
7;4;61;34;0;0;0;PARA W/L
8;;66;10;1;0;0;
9;12;0;0;0;0;2;
10;71;531;15;0;0;0;
11;12;0;0;0;0;1;
12;4;66;8;1;0;0;
13;10;0;0;0;0;1;
14;5;66;10;1;0;0;
15;82;531;0;0;0;0;
SHEET;434
PROCR;532;STACK S/R 
NOTES;RADIX;B;
0;81;532;0;0;0;0;
1;0;61;0;0;0;0;ACTION
2;5;67;3;0;0;0;
3;;66;6;1;0;0;REF
4;30;0;0;0;0;2;
5;1;61;34;0;0;0;PARAM
6;5;67;2;0;0;0;
7;;66;10;1;0;0;
8;70;532;14;0;0;0;gDISC 0
9;12;0;0;0;0;2;
10;71;532;13;0;0;0;gNOT DISC 2
11;10;0;0;0;0;1;STEP ITEM
12;4;66;8;1;0;0;
13;;545;27;0;0;0;B16
14;124;66;12;0;1;0;MOD DIGITS
15;1;545;23;0;0;0;BITS IN B14 POSITION
16;1;66;8;0;0;0;ITEM
17;35;0;0;0;0;1111;
18;36;67;3;0;0;0;
19;37;67;3;0;0;0;PACK WITH ACTION
20;10;0;0;0;0;0;CLEAR A
21;82;532;0;0;0;0;
SHEET;435
PROCR;533;RT ALIGN S/R 
NOTES;RADIX;B;
0;81;533;0;0;0;0;
1;10;0;0;0;0;0;
2;5;61;18;1;0;0;
3;0;61;18;1;0;0;
4;32;0;0;0;0;2;
5;5;61;18;1;0;0;
6;75;533;3;0;0;0;
7;0;61;18;1;0;0;
8;82;533;0;0;0;0;
SHEET;436
PROCR;534;SUSPEND S/R 
NOTES;RADIX;B;
0;81;534;0;0;0;0;
1;55;66;6;1;0;8;
2;C;61;26;1;0;0;
3;;66;16;0;0;0;ITEM + IND 
4;5;66;17;0;0;0;ITEM + IND (STORE)
5;82;534;0;0;0;0;
SHEET;437
PROCR;535;REPLACE S/R 
NOTES;RADIX;B;
0;81;535;0;0;0;0;
1;55;61;26;1;0;8;
2;C;66;6;1;0;0;
3;;66;17;0;0;0;ITEM + IND (STORE)
4;5;66;16;0;0;0;ITEM + IND 
5;82;535;0;0;0;0;
SHEET;438
PROCR;536;OP INST S/R 
NOTES;RADIX;B;
0;81;536;0;0;0;0;
1;;66;12;1;0;0;MOD DIGITS
2;5;61;2;0;0;0;
3;80;489;0;0;0;0;gMOD AND PARAMETER
4;;61;2;0;0;0;
5;5;66;12;1;0;0;
6;0;66;8;1;0;0;
7;72;536;9;0;0;0;gNOT NEGATIVE ITEM
8;80;531;0;0;0;0;NEG NO
9;80;532;0;0;0;0;STACK
10;80;518;0;0;0;0;OP
11;82;536;0;0;0;0;
SHEET;439
PROCR;537;CONVERT (A) TO BINARY 
NOTES;RADIX;B;
0;81;537;0;0;0;0;
1;5;543;40;1;0;0;
2;62;0;0;0;0;0;
3;124;543;20;0;2;0;
4;112;543;40;1;0;0;
5;82;537;0;0;0;0;
SHEET;440
PROCR;538;CONVERT (A) TO DECIMAL 
NOTES;;;
0;81;538;0;0;0;0;
1;5;543;40;1;0;0;
2;60;0;0;0;0;0;
3;124;543;0;0;2;0;
4;112;543;40;1;0;0;
5;82;538;0;0;0;0;
SHEET;441
PROCR;539;A2>B 
0;81;539;0;0;0;0;
1;42;A2;0;0;0;0;
2;C;8;0;0;0;0;
3;59;8;6;0;12;0;
4;C;8;4;2;0;0;
5;82;539;0;0;0;0;
SHEET;442
PROCR;540;O/P>A9 
0;81;540;0;0;0;0;
1;94;540;7;0;6;50;FORM UP MULTIRECORD BLOCK
2;;544;0;1;0;0;BEW
3;5;10;306;1;0;0;
4;80;541;0;0;0;0;
5;90;0;0;0;6;0;SET UP MOD
6;C;0;0;0;0;300;
7;82;540;0;0;0;0;
SHEET;443
PROCR;541;WRITE A9 
0;81;541;0;0;0;0;
1;10;0;0;0;0;800000;
2;34;999;12;0;0;0;SEC 10
3;125;0;4096;1;1;0;
4;1;999;7;0;0;0;D1/A9
5;124;999;0;0;3;0;
6;123;0;160;0;2;0;
7;82;541;0;0;0;0;
SHEET;444
CONST;542;1;ALPHA CONSTANTS 
0;(A)VALUE;
2;TABLE;
4;CONST;
6;PROCR;
8;(A)NOTES;
10;END  ;END
12;DUMPS;
14;FILES;
16;TYPE ;
18;FIEND;
20;>    ;(Right arrow - CK)
22;TYPE.;
24;C    ;
26;?????;
28;TYPEp;
30;(B)1;CONVERT LITERALS OF 35 ACTION
32;2;
34;4;
36;8;
38;16;
40;32;
42;64;
44;128;
46;256;
48;512;
SHEET;445
CONST;543;1;CONVERT TABLES 
0;(D)1;
2;16;
4;256;
6;4096;
8;65536;
10;1048576;
12;16777216;
14;268435456;
16;4294967296;
18;pppppppppp;
20;1;DEC->BIN
22;t;
24;64;
26;3.8;
28;2710;
30;186t0;
32;p4240;
34;989680;
36;5p5.100;
38;3e9t+t00;
40;0;(A)WL
42;0;CLEO'PARA WORD
SHEET;446
CONST;544;0;DECIMAL CONSTANTS
0;(D)7.;B.E.
1;7.000;WORD
2;0;0:48 MR SETTING
3;90;MR NOW 0:144
4;1;FUNCTIONS WORDS
5;45;TYPES IN ALPHA
6;45;
7;44;
8;4;
9;4;
10;2;
11;(R)62:0;LONG NO SECT
12;63:0;SHORT NO SECT
13;62:0;T.DS.L. SECT
14;18:2499;FOR SEQUENCE CHANGES
15;18:0;
16;(B)180;FOR TSL STORAGE
17;180;
18;(D)3;
19;7ppp0;B5-19
20;1ppp;B1-13
21;66666;DEC RADIX
22;66.64;ST RADIX
23;66666;DEC RADIX
24;3pp;BITS 1-10
25;01000;BIT 13
26;3p;BITS 1-6
SHEET;447
CONST;545;0;INSTRUCTIONS
0;(R)92:9;
1;(D)t8006;10/1/0 6
2;+8006;12/1/0 6
3;7;
4;ppppp;THIS ISN'T A DUMMY
5;ppppp;
6;(D)60000;6
7;40000;4 B19
8;50000;5
9;30000;3
10;70000;7
11;20000;2   B18
12;90000;9
13;t0000;10
14;e0000;11
15;:0000;13
16;2t001-;18/1/1/0/1
17;8+000-;24/1/2
18;80000-;24/0/0
19;0t000;0/1/1
20;1.000;1/1/3
21;1t000;1/1/1
22;1+000;1/1/2
23;0;0/0/0
24;02000;0/0/1 B14
25;04000;0/0/2 B15
26;06000;0/0/3 B14-15
27;08000;0/1/0 B16
28;28000;2/1/0
29;38000;3/1/0
30;22000-;18/0/1
31;26000-;18/0/3
32;2t000-;18/1/1
33;2.000-;18/1/3
34;12000;1/0/1
35;£0000;15
36;.0000;14
37;14000;1/0/2
38;e0000-;27/0/0
39;e2000-;27/0/1
40;e4000-;27/0/2
41;e6000-;27/0/3
42;e8000-;27/1/0
43;et000-;27/1/1
44;88000-;24/1/0
45;t0000-;26/0/0
46;t2000-;26/0/1
47;10000;1/0/0 B17
48;2t00t-;18/1/1/0/10
49;80000;8/0/0 B20
50;88000;8/1/0
51;1.001;1/1/3/0/1
52;48000;4/1/0
53;2t005-;18/1/1/0/5
54;t8000-;26/1/0
55;68000;6/1/0
56;+0000;12
57;90000-;25/0/0
58;74000-;23/0/2
59;70000-;23/0/0
60;2e016-;18/1/1/0/10 (18/1/1/4096+22)
61;t4000-;26/0/2
62;2e017-;18/1/1/0/9- (18/1/1/4096+23)
63;+0000-;28/0/0
64;84000-;24/0/2
65;:2000-;29/0/1
66;+4000-;28/0/2
67;+6000-;
68;++000-;
69;+.000-;
70;2e01e-;
71;9e000-;
72;(R)18:2496;
73;(D)1;
74;£0000-;
75;£8000-;
76;.8000-;
77;.0008-;
78;.0000-;
79;£0008-;
80;40000-;
81;48000-;
82;58000-;
83;40008-;
84;50000-;
85;60000-;
86;.0004-;
87;£8004-;
88;68000-;
89;407+;
90;400;
91;6808t;
92;500;
93;0409+;
94;200;
95;300;
96;t6000-;
97;;
SHEET;448
CONST;546;0;
0;(D)86000-;
1;82000-;
2;28006;
3;38006;
4;e8002-;
5;1t002;
6;22005-;
7;06004;
8;20001;
9;88001-;
10;e4002-;
11;88007-;
12;t5££e-;
13;t1££t-;
14;20006;
15;86006-;
16;74002-;
17;0;
18;0;
19;8+006-;
20;1t00t;
21;30002;
22;1t014;
23;04002;
24;88005-;
25;:6000-;
26;8000-;
27;+t000-;
28;1.001;1/1/3 1
SHEET;449
TABLE;547;1;TRIAL DATA HEADING BLOCK 'FILES'
NOTES;;;
SHEET;450
TABLE;548;1;INSTRUCTIONS
NOTES;;;
0;66;0;0;0;2;0;5;0;0;0;0;0;0;AM IND
2;66;2;0;0;1;0;5;5;5;0;0;0;0;S. NO
4;66;4;0;0;2;0;5;0;4;0;0;0;0;ACTION
6;66;6;0;0;2;0;5;0;3;0;0;0;0;REF
8;66;8;0;0;1;0;5;5;0;4;2;0;0;ITEM
10;66;10;0;0;1;0;2;8;1;1;0;0;0;DISC
12;66;12;0;0;1;0;3;7;0;2;0;0;0;MOD
14;66;14;0;0;1;0;10;0;5;9;2;0;0;LITERAL
16;543;42;0;0;2;0;5;0;0;0;0;0;1;CLEO' PARA WORD
SHEET;451
TABLE;549;1;TABLES
NOTES;;;
0;66;0;0;0;2;0;5;0;0;0;0;0;0;AM IND
2;66;2;0;0;0;0;5;0;5;0;0;0;0;S NO
4;66;16;0;0;0;0;5;0;1;4;0;0;0;FIRST REF
6;66;17;0;0;0;0;5;0;1;4;0;0;0;FIRST ITEM
8;66;18;0;0;0;0;5;0;1;4;0;0;0;SECOND REF
10;66;19;0;0;0;0;5;0;1;4;0;0;0;SECOND ITEM
12;66;3;0;0;0;0;2;3;1;1;0;0;0;S/L/ALPHA
14;66;4;0;0;0;0;3;2;0;2;0;0;0;SINGLE/BE
16;66;5;0;0;0;0;2;3;2;1;0;0;0;NO OF CHARS
18;66;10;0;0;0;0;3;2;1;2;0;0;0;DISC
20;66;11;0;0;0;0;2;3;2;1;0;0;0;SPACES
22;66;12;0;0;0;0;3;2;1;2;0;0;0;ZEROS
24;66;13;0;0;0;0;1;4;2;0;0;0;0;SIGN
26;66;14;0;0;0;0;2;3;1;1;0;0;0;STERLING
28;66;15;0;0;0;0;2;3;1;1;0;0;1;LTE
SHEET;452
TABLE;550;1;VALUE
NOTES;;;
0;67;3;0;0;0;0;5;0;1;4;1;0;0;VALUE
2;67;2;0;0;0;0;4;1;0;3;0;0;1;PARA
SHEET;453
TABLE;551;1;ENTRY PT ADJUSTMENT PM POINTS
NOTES;;;
0;61;20;0;0;2;0;3;2;0;0;0;0;0;??? OR ZERO
2;61;0;0;0;0;0;5;0;1;0;0;0;0;ENTRY POINT
4;542;20;0;0;2;0;1;0;0;0;0;0;1;'+'
6;66;0;0;0;2;0;3;0;0;0;0;0;0;AMEND IND
8;61;0;0;0;0;0;5;0;1;0;0;0;0;ENTRY PT
10;542;20;0;0;2;0;1;0;0;0;0;0;1;g
SHEET;454
CONST;552;1;DUMMY FOR INSERTING M/C MODS
SHEET;455
PROCR;553;START OF PASS 3
NOTES;RADIX;;PREP STAGE
0;152;152;2;0;0;0;
1;C;680;0;0;0;0;
2;55;9;0;1;0;100;
3;C;15;0;1;0;0;
4;55;91;0;0;0;36;
5;C;24;0;0;0;0;
6;;27;4;0;0;0;COMPILER?
7;70;553;11;0;0;0;gNO
8;46;A6;10;0;0;0;REALIGN TO 'INDEX'
9;C;0;0;0;0;4;
10;76;553;12;0;0;0;
11;40;A6;0;0;0;1;INPUT EX PASS 2
12;54;16;0;0;0;40;
13;54;5;0;0;0;50;CLEAR PRINTER ANNEX
14;10;0;0;0;0;0;CLEAR DETAILS
15;5;94;0;0;0;0;OF SECTION 0
16;55;72;3;0;0;14;
17;C;16;5;0;0;0;
18;54;72;3;0;0;14;
19;90;0;0;0;3;0;
20;C;0;0;0;0;0;/////
21;;92;0;0;0;0;CHAPTERS CODED +1
22;30;0;0;0;0;5;
23;11;0;0;0;0;1;
24;91;0;0;0;1;0;
25;10;0;0;0;0;0;
26;35;0;0;0;0;1;
27;36;92;9;0;1;0;
28;5;16;2;0;0;0;CORRECTED CHAP
29;96;0;0;0;1;0;
30;5;16;1;0;0;0;UNCORR CHAP
31;10;0;0;0;0;10;BIT 5
32;32;0;0;0;0;10-;
33;36;92;9;0;1;0;UNIQUENESS IND Q2
34;32;0;0;0;0;2-;(CLEAR A)
35;75;553;38;0;0;0;gCHAP NOT UNIQUE
36;124;16;2;0;1;0;CORR CHAP
37;;16;4;0;0;0;SW SEC LENGTH
38;1;72;18;0;3;0;CHAP LENGTH (CODING ONLY)
39;5;16;3;0;0;0;START OF FIRST SEC IN UNCORR CHAP
40;5;16;4;0;0;0;CLEAR FOR TOT LENGTHS ALL SECS IN CHAP
SHEET;456
PROCR;554;UPDATE SEC INDEX, SWITCH PROCR STARTS
NOTES;;;
0;80;555;0;0;0;0;gDEAL WITH SECTIONS, ANNEXES
1;;16;3;0;0;0;UNCORR CHAP LENGTH
2;1;16;4;0;0;0;
3;124;16;2;0;1;0;CORR CHAP
4;2;72;2;0;0;0;
5;73;554;8;0;0;0;
6;124;16;2;0;1;0;
7;4;72;2;0;0;0;FORM MAX CORR CHAP LENGTH
8;94;554;9;0;3;1;
9;94;553;25;0;1;1;gNEXT UNCORR CHAP
10;91;92;28;0;1;0;COUNT CORR CHAPS
11;90;0;0;0;2;0;
12;C;0;0;0;0;0;/////
13;10;0;0;0;0;10;BIT 5
14;32;0;0;0;0;10-;
15;36;92;10;0;1;0;
16;70;554;21;0;0;0;gCHAP IS UNIQUE
17;0;72;3;0;1;0;
18;5;72;18;0;2;0;SWITCH PROCR START-END OF SECTIONS
19;0;16;5;0;1;0;
20;4;72;3;0;1;0;UPDATE CHAPTER LENGTH
21;94;554;22;0;2;1;
22;94;554;13;0;1;1;gNEXT CHAP
23;0;61;100;0;0;0;BASIC SPECIAL CHAP LENGTH
24;5;16;3;0;0;0;
25;5;16;1;0;0;0;ZERO UNCORR CHAP
26;0;92;29;0;0;0;
27;5;16;2;0;0;0;CORR CHAP=SPEC CHAP
28;5;16;4;0;0;0;CLEAR SUBTOTAL
29;80;555;0;0;0;0;gDEAL WITH SPECIAL CHAP
30;0;16;3;0;0;0;
31;1;16;4;0;0;0;FORM SPECIAL CHAP LENGTH
32;5;72;2;0;1;0;
33;101;0;214;1;3;0;
34;2;72;2;0;1;0;
35;73;554;37;0;0;0;
36;4;72;2;0;1;0;
37;101;0;220;1;3;0;FIRST CHAP MIN LENGTH=220
38;2;72;3;0;0;0;
39;73;554;41;0;0;0;gOK
40;4;72;3;0;0;0;
41;54;16;0;0;0;40;CLEAR W/L'S
42;0;92;29;0;0;0;
43;12;0;0;0;0;7;
44;73;554;46;0;0;0;gOK
45;10;0;0;0;0;0;
46;11;0;0;0;0;7;MAX VALUE=7
47;5;92;29;0;0;0;SPECIAL CHAP NUMBER
48;80;574;0;0;0;0;READ ALIGN BLOCK A6 NORMAL RUN, PREP STA
49;80;574;0;0;0;0;READ SECOND INDEX BLOXK
50;80;574;0;0;0;0;READ PROG DETAILS BLOCK
51;0;9;4;2;0;0;PROG ID
52;5;16;2;0;0;0;
53;0;9;6;2;0;0;PROG SERIAL
54;5;16;3;0;0;0;
55;54;13;0;0;0;14;
56;46;A2;10;0;0;1;BACK TO ALIGN BLOCK
57;C;0;0;0;0;6;
58;48;A2;0;0;0;0;(STEP SO AS TO OVERWRITE IT)
59;C;0;0;0;0;1;
60;;583;58;1;0;0;ALIGN MARKS
61;5;8;4;1;0;0;
62;;584;2;1;0;0;'INDEX'
63;5;8;6;1;0;0;
64;;583;58;2;0;0;
65;5;8;8;2;0;0;
66;10;0;0;0;0;3;INDEX IDENTIFIER
67;5;8;10;1;0;0;
68;80;577;0;0;0;0;gWRITE
69;80;556;0;0;0;0;gWRITE DETAILS
70;76;557;0;0;0;0;
SHEET;457
PROCR;555;PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR
0;81;555;0;0;0;0;
1;90;0;0;0;2;1;
2;C;0;0;0;0;100;
3;0;15;0;0;2;0;
4;70;555;16;0;0;0;gSECTION NOT USED
5;30;0;0;0;0;9;
6;30;0;0;0;0;9-;ISOLATE CHAP NUMBER Q1
7;2;16;1;0;0;0;
8;71;555;16;0;0;0;gNOT IN THIS UNCORR CHAP
9;0;16;3;0;0;0;
10;4;94;0;0;2;0;UPDATE SEC START
11;10;0;0;0;0;0;
12;34;15;0;0;2;0;
13;36;587;8;0;0;0;BITS 5-18
14;30;0;0;0;0;1-;
15;4;16;4;0;0;0;AUG SEC LENGTHS IN CHAP
16;94;555;3;0;2;1;gNEXT SECTION
17;91;91;0;0;2;0;2R:0
18;0;91;1;0;0;0;2R
19;70;555;60;0;0;0;gNO FILES
20;10;0;0;0;0;0;
21;35;0;0;0;0;1000;
22;36;91;4;0;2;0;UNCORR CHAP
23;30;0;0;0;0;3-;
24;2;16;1;0;0;0;CURRENT UNCORR CHAP
25;71;555;59;0;0;0;gNOT IN IT
26;34;587;3;0;0;0;BITS 1-6
27;36;91;5;0;2;0;ROUTE TYPE
28;12;0;0;0;0;3;
29;70;555;35;0;0;0;gGP
30;12;0;0;0;0;1;
31;70;555;35;0;0;0;gGP
32;12;0;0;0;0;£;
33;71;555;50;0;0;0;gNOT ROUTE 19
34;76;555;59;0;0;0;(DON'T INCLUDE ANNEX LENGTHS)
35;;91;4;0;2;0;
36;30;0;0;0;0;4-;GR CTR
37;1;91;1;0;0;0;2R
38;92;0;0;0;4;0;
39;35;0;0;0;0;111;
40;36;91;4;0;2;0;LENGTH OF GP ANNEX Q7-10
41;30;0;0;0;0;1;
42;1;16;2;0;0;0;CHAP NUMBER (CORRECTED) Q6
43;5;91;5;0;4;0;OVERWRITE DETAILS
44;36;91;4;0;2;0;ANNEX LENGTH
45;1;16;3;0;0;0;
46;1;16;4;0;0;0;
47;5;556;0;0;0;0;WL=SR LINK
48;2;556;0;0;0;0;STORE NEGATIVELY
49;5;91;4;0;4;0;STORE GP TX AREA START Q1-3
50;;16;2;0;0;0;CORRECTED CHAP
51;30;0;0;0;0;4;
52;1;16;3;0;0;0;UNCORR CHAP LENGTH
53;1;16;4;0;0;0;ALL SECTIONS+ANNEXES TO DATE
54;5;91;5;0;2;0;
55;35;0;0;0;0;111;HALF-LENGTH Q1-3
56;36;91;4;0;2;0;
57;31;0;0;0;0;1;FORM FULL ANNEX LENGTH
58;4;16;4;0;0;0;
59;94;555;20;0;2;2;
60;82;555;0;0;0;0;
SHEET;458
PROCR;556;SR TO WRITE 'INDEX' DATA
NOTES;;;
0;81;556;0;0;0;0;
1;;16;2;0;0;0;PROG ID
2;3;8;4;2;0;0;
3;5;8;12;2;0;0;
4;0;16;3;0;0;0;PROG SERIAL
5;3;8;6;2;0;0;
6;5;8;14;2;0;0;
7;10;0;0;0;0;2;
8;5;8;10;2;0;0;PASS 1 IDENTIFIER
9;10;0;0;0;0;3;
10;3;8;18;2;0;0;IDENTIFIER
11;10;0;0;0;0;2;
12;1;27;12;0;0;0;0/2=PTS NO/YES
13;5;8;16;2;0;0;PASS IND
14;;583;58;2;0;0;£££££
15;5;8;20;2;0;0;
16;80;577;0;0;0;0;gWRITE TO TAPE
17;82;556;0;0;0;0;
SHEET;459
PROCR;557;HEADING BLOCK
NOTES;RADIX;B;PREP STAGE
0;54;5;0;1;0;50;
1;90;0;0;0;1;0;
2;C;0;0;0;0;10;
3;80;576;0;0;0;0;gPRINT SPACERS
4;94;557;3;0;1;1;
5;;91;3;0;0;0;2(R+T)
6;2;91;2;0;0;0;
7;31;0;0;0;0;1-;
8;5;576;0;0;0;0;NO OF TX AREAS
9;;91;2;0;0;0;
10;31;0;0;0;0;1-;
11;5;577;0;0;0;0;NO OF FILES
12;10;0;0;0;0;80;HEAD OF FORM
13;5;587;7;0;0;0;
14;52;5;0;0;0;0;EDIT FIRST LINE
15;C;593;0;0;0;0;
16;;27;12;0;0;0;
17;70;557;20;0;0;0;gNO PTS
18;55;584;10;1;0;6;'PTS INCLUDED'
19;C;5;40;1;0;0;
20;80;576;0;0;0;0;gPRINT SPACERS
21;80;576;0;0;0;0;gSPACER
22;0;583;58;2;0;0;
23;5;8;4;2;0;0;
24;10;0;0;0;0;55;
25;5;8;6;2;0;0;
26;;16;2;0;0;0;PROG ID
27;5;8;8;2;0;0;
28;;16;3;0;0;0;PROG SERIAL
29;5;8;10;2;0;0;
30;0;583;68;1;0;0;'PASS 3'
31;5;8;12;1;0;0;
32;80;577;0;0;0;0;gWRITE
33;124;673;0;0;2;0;
34;91;0;0;0;3;0;FOR PARAMETERS
35;124;604;0;0;2;0;
36;91;0;0;0;2;0;FOR ORDERS
37;124;679;0;0;2;0;
38;91;0;0;0;1;0;SECOND LEVEL PARAS
39;90;0;0;0;5;0;
40;C;0;0;0;0;6;
41;90;0;0;0;8;0;SECOND LEVEL PARAS
42;C;0;0;0;0;3;
43;;673;0;0;0;0;
44;31;0;0;0;0;2;
45;5;598;9;0;0;0;
46;;679;0;0;0;0;
47;31;0;0;0;0;2;
48;5;598;15;0;0;0;
49;80;596;0;0;0;0;gWRITE 'UNLOADER'
50;80;596;0;0;0;0;gWRITE 'ALLOC STORE'
51;95;0;0;0;1;0;
52;5;593;0;1;0;0;
53;95;0;0;0;2;0;
54;5;593;2;1;0;0;
55;80;574;0;0;0;0;gREAD
56;55;9;4;1;0;10;
57;C;11;0;1;0;0;
58;;91;3;0;0;0;2(R+T)
59;2;91;2;0;0;0;2R
60;31;0;0;0;0;1-;FORM T
61;5;11;12;2;0;0;NO OF TX AREAS FOR ALLOCATOR
62;0;91;2;0;0;0;2R
63;31;0;0;0;0;1-;R
64;5;11;10;2;0;0;NO OF ROUTES
65;10;0;0;0;0;0;
66;3;11;14;2;0;0;NO OF DISCFILES
67;4;11;10;2;0;0;
SHEET;460
PROCR;558;OUTPUT SECOND HEADING BLOCK
NOTES;RADIX B;;PREP STAGE
0;55;11;0;1;0;16;
1;C;8;4;1;0;0;
2;5;92;28;0;0;0;CLEAR
3;;92;6;0;0;0;2ND HEADING BLOCK
4;5;8;20;2;0;0;
5;;92;8;0;0;0;CHAPTER
6;5;8;22;2;0;0;
7;91;92;28;0;2;0;
8;90;0;0;0;1;0;
9;C;0;0;0;0;14;
10;0;72;3;0;2;0;CHAP LENGTH
11;71;558;14;0;0;0;
12;;583;90;1;0;0;100,000 IN BIN
13;3;72;3;0;2;0;SET RIDICULOUS LENGTH
14;5;8;24;2;1;0;
15;10;0;0;0;0;20;BIT 6
16;32;0;0;0;0;10-;
17;36;92;10;0;2;0;
18;70;558;22;0;0;0;gNORMAL
19;10;0;0;0;0;0;
20;2;8;24;2;1;0;
21;5;8;24;2;1;0;SET IND THAT IN ANOTHER STORE
22;94;0;0;0;1;2;
23;94;558;10;0;2;1;
24;0;16;2;0;0;0;
25;5;8;38;2;0;0;PROG ID
26;0;16;3;0;0;0;
27;5;8;40;2;0;0;PROG SERIAL
28;10;0;0;0;0;5163636653;'ALLOC'
29;5;8;42;1;0;0;
30;;24;0;1;0;0;
31;70;558;87;0;0;0;gNO FILES
32;91;24;0;0;1;0;
33;90;0;0;0;2;0;
34;C;0;0;0;0;8;
35;10;0;0;0;0;0;
36;34;587;3;0;0;0;BITS 1-6
37;36;24;5;0;1;0;ROUTE TYPE
38;101;0;19;1;2;0;
39;71;558;86;0;0;0;gNOT 19
40;;24;4;0;1;0;OP TX AREA CTR
41;32;0;0;0;0;4-;
42;1;24;1;0;0;0;2R
43;5;577;0;0;0;0;WL
44;35;0;0;0;0;1000;
45;124;577;0;0;1;0;
46;36;24;4;0;0;0;CHAPTER NUMBER
47;70;558;55;0;0;0;gNO CHOICE
48;30;0;0;0;0;3-;
49;2;92;29;0;0;0;CHAPS IN PROGM
50;70;558;54;0;0;0;gOK
51;73;558;54;0;0;0;gOK
52;10;0;0;0;0;0;
53;76;558;55;0;0;0;gEX RANGE=NO CHOICE
54;1;92;29;0;0;0;
55;5;576;0;0;0;0;TX AREA CHAPTER
56;36;24;4;0;1;0;
57;30;0;0;0;0;3-;
58;70;558;65;0;0;0;gNO CHOICE
59;2;92;29;0;0;0;
60;70;558;64;0;0;0;gOK
61;73;558;64;0;0;0;gOK
62;10;0;0;0;0;0;
63;76;558;65;0;0;0;gEX RANGE=NO CHOICE
64;1;92;29;0;0;0;
65;5;596;0;0;0;0;ANNEX CHAPTER
66;35;0;0;0;0;111;
67;36;24;4;0;1;0;GP HALF-LENGTH
68;32;0;0;0;0;3-;
69;0;596;0;0;0;0;
70;31;0;0;0;0;3;
71;1;576;0;0;0;0;
72;33;0;0;0;0;13;
73;5;8;44;2;2;0;
74;35;0;0;0;0;111;
75;124;577;0;0;1;0;
76;36;24;4;0;0;0;SPECIAL HALF-LENGTH
77;11;0;0;0;0;2;(FOR GUARD WORD)
78;32;0;0;0;0;3-;
79;0;596;0;0;0;0;
80;31;0;0;0;0;3;
81;1;576;0;0;0;0;
82;33;0;0;0;0;13;
83;5;8;46;2;2;0;
84;94;558;86;0;2;4;
85;76;558;87;0;0;0;gEND AFTER 2 FILES
86;94;558;35;0;1;2;
87;80;577;0;0;0;0;gWRITE
SHEET;461
PROCR;559;SECOND HEADING LINE 
NOTES;RADIX;B;
0;91;593;0;0;1;0;
1;91;593;2;0;2;0;
2;80;596;0;0;0;0;gWRITE 'ALLOC ROUTES'
3;95;0;0;0;1;0;
4;5;593;0;1;0;0;
5;95;0;0;0;2;0;
6;5;593;2;1;0;0;
7;90;0;0;0;2;0;SET MOD REGISTERS
8;C;0;0;0;0;4;
9;;11;0;2;2;0;SELECT DETAIL
10;70;559;13;0;0;0;OUT IF ZERO
11;;583;2;1;0;0;ELSE SELECT
12;76;559;14;0;0;0;YES
13;;583;4;1;0;0;SELECT NO
14;5;13;0;1;2;0;STORE YES OR NO
15;94;559;9;0;2;2;REPEAT
16;0;92;6;0;0;0;
17;80;578;0;0;0;0;TO DEC
18;5;92;6;0;0;0;
19;62;0;0;0;0;0;RESET BINARY
20;52;5;2;0;0;0;
21;C;592;0;0;0;0;EDIT AND OUTPUT
22;80;576;0;0;0;0;gPRINT FP, MOD GP, ENTRY ETC
23;80;576;0;0;0;0;gSPACER
24;;11;8;2;0;0;>SPACER
25;5;13;2;1;0;0;
SHEET;462
PROCR;560;THIRD HEADING LINE 
NOTES;RADIX;B;PREP STAGE
0;;11;10;2;0;0;STORE
1;5;16;8;0;0;0;NO. OF FILES
2;0;11;8;2;0;0;NUMBER OF CHAPTERS INITIALLY
3;5;16;9;0;0;0;NO. OF CHAPTERS
4;54;13;0;0;0;14;CLEAR WL'S
5;91;92;28;0;2;0;
6;10;0;0;0;0;20;BIT 6
7;32;0;0;0;0;10-;
8;36;92;10;0;2;0;
9;70;560;13;0;0;0;gFIRST STORE
10;10;0;0;0;0;0;
11;2;72;3;0;2;0;NEGATE FOR SECOND STORE
12;76;560;14;0;0;0;
13;;72;3;0;2;0;
14;80;578;0;0;0;0;TO DEC
15;5;13;0;0;2;0;STORE CHAPTER LENGTHS
16;62;0;0;0;0;0;
17;;72;3;0;2;0;
18;12;0;0;0;0;2001;8193 INBIN
19;73;560;22;0;0;0;gOK
20;10;0;0;0;0;1;
21;3;13;10;0;0;0;
22;94;560;6;0;2;1;
23;0;13;1-;0;2;0;LAST CHAP LENGTH(DEC)
24;5;585;2;1;0;0;
25;0;585;2;0;0;0;MODULUS
26;12;0;0;0;0;506;
27;72;560;32;0;0;0;gOK
28;10;0;0;0;0;506;
29;5;585;2;0;0;0;
30;0;585;2;1;0;0;(PRESERVES ORIGINAL SIGN)
31;5;13;1-;0;2;0;PRINT SPECIAL CHAP AS MIN LENGTH 506
32;;13;10;0;0;0;
33;70;560;44;0;0;0;gOK
34;86;511;0;0;0;0;CTR DISATROUS ERRORs
35;11;0;0;0;0;1;
36;84;511;0;0;0;0;AUGMENT
37;10;0;0;0;0;5:5:5:5:5:; '?????'
38;90;0;0;0;2;0;
39;C;0;0;0;0;10;
40;3;5;40;1;2;0;25 QUESTION MARKS
41;94;560;40;0;2;2;
42;10;0;0;0;0;1;SET INDICATOR FOR *07
43;76;560;45;0;0;0;
44;10;0;0;0;0;0;OK-CLEAR INDICATOR
45;5;27;5;0;0;0;
46;52;5;2;0;0;0;EDIT AND OUTPUT
47;C;591;0;0;0;0;
48;80;576;0;0;0;0;PRINT
49;80;576;0;0;0;0;SPACER
50;52;5;2;0;0;0;
51;C;590;0;0;0;0;EDIT FILE DETAILS HEADING
52;80;576;0;0;0;0;PRINT
53;54;13;0;0;0;31;
SHEET;463
PROCR;561;FILE DETAILS 
NOTES;RADIX;B;PREP STAGE
0;0;91;0;1;0;0;
1;70;562;18;0;0;0;gNO FILES
2;91;0;0;0;4;0;2R:0
3;90;0;0;0;1;0;SET MOD REGISTER A
4;C;0;0;0;0;48;
5;80;574;0;0;0;0;READ FILE DETAILS ON A6
6;55;9;4;1;1;12;FILE DETAIL
7;C;11;0;1;0;0;
8;0;11;2;2;0;0;ROUTE TYPE 02
9;3;583;0;0;0;0;WL
10;12;0;0;0;0;20;
11;70;561;52;0;0;0;gBIN CARD O/P
12;12;0;0;0;0;80;
13;70;561;51;0;0;0;gBIN CARD I/P
14;12;0;0;0;0;60;
15;70;561;49;0;0;0;gNON-STD PT O/P(16)
16;12;0;0;0;0;10;
17;70;561;38;0;0;0;gRT 17
18;12;0;0;0;0;10;
19;70;561;40;0;0;0;gRT 18
20;12;0;0;0;0;10;
21;70;561;42;0;0;0;
22;12;0;0;0;0;10;
23;70;561;36;0;0;0;
24;12;0;0;0;0;20;
25;71;561;28;0;0;0;gNOT RT 22
26;10;0;0;0;0;+0;
27;76;561;53;0;0;0;gRT 22
28;12;0;0;0;0;20;
29;71;561;32;0;0;0;gNOT RT 24
30;10;0;0;0;0;50;
31;76;561;53;0;0;0;
32;12;0;0;0;0;10;
33;71;561;54;0;0;0;gNOT RT 25
34;10;0;0;0;0;.0;
35;76;561;53;0;0;0;
36;10;0;0;0;0;20;DT
37;76;561;53;0;0;0;gRT 2
38;10;0;0;0;0;e0;
39;76;561;53;0;0;0;
40;10;0;0;0;0;:0;
41;76;561;53;0;0;0;SET=13
42;10;0;0;0;0;80;
43;5;11;10;2;0;0;ALT ROUTE IND
44;5;11;6;1;0;0;ZERO START
45;5;11;8;1;0;0;
46;12;0;0;0;0;1;
47;5;11;4;2;0;0;
48;76;561;68;0;0;0;gSET ZERO START
49;10;0;0;0;0;10;
50;76;561;53;0;0;0;
51;10;0;0;0;0;30;
52;11;0;0;0;0;30;
53;5;11;2;2;0;0;FIB TO M/R
54;;11;10;2;0;0;TEST ALTERNATE
55;70;561;59;0;0;0;ROUTE IF 0,SET
56;10;0;0;0;0;0;=80: IF 1.SET=0
57;5;11;10;2;0;0;
58;76;561;61;0;0;0;
59;10;0;0;0;0;80;
60;5;11;10;2;0;0;
61;35;0;0;0;0;10000;
62;36;91;5;0;4;0;
63;30;0;0;0;0;4-;
64;31;0;0;0;0;1;DOUBLE CORR CHAP NO
65;5;11;4;2;0;0;
66;35;0;0;0;0;1111;
67;36;91;5;0;4;0;
68;5;11;8;2;0;0;START LOCATION
69;52;8;4;0;1;0;EDIT IN
70;C;597;14;0;0;0;
71;90;0;0;0;2;0;
72;C;0;0;0;0;10;CONVERT FILE DETAILS
73;0;11;2;2;2;0;
74;80;578;0;0;0;0;TO DEC
75;5;13;0;0;2;0;
76;94;561;73;0;2;2;
77;;583;0;0;0;0;
78;30;0;0;0;0;1-;
79;80;578;0;0;0;0;CONVERT ROUTE TYPE TO DEC
80;30;0;0;0;0;1;
81;5;583;0;0;0;0;
82;62;0;0;0;0;0;RESET BINARY
SHEET;464
PROCR;562;FILE DETAILS FOR PRINTOUT - BIT 20
NOTES;RADIX;B;
0;;13;8;0;0;0;
1;70;562;4;0;0;0;
2;;583;4;1;0;0;
3;76;562;5;0;0;0;
4;;583;2;1;0;0;
5;5;13;8;1;0;0;
6;0;11;4;2;0;0;
7;31;0;0;0;0;1-;
8;5;13;2;0;0;0;
9;52;5;2;0;0;0;
10;C;594;0;0;0;0;
11;80;576;0;0;0;0;g PRINT
12;94;562;14;0;4;2;
13;76;562;17;0;0;0;g ALL FILES PROCESSED
14;94;561;6;0;1;12;> NEXT FILE THIS BLOCK
15;80;577;0;0;0;0;g WRITE
16;76;561;3;0;0;0;g READ NEW BLOCK
17;80;577;0;0;0;0;g WRITE FINAL FILES BLOCK
18;52;5;2;0;0;0;EDIT HEADING & OUTPUT
19;C;594;12;0;0;0;HEADING BLOCK
20;80;576;0;0;0;0;PRINT TX AREA HEADING
SHEET;465
PROCR;563;TRANSIT AREA
NOTES;RADIX;B;
0;91;91;2;0;2;0;2 (R+T) :2R
1;94;563;3;0;2;0;/////
2;76;565;0;0;0;0;g ND TX AREAS
3;90;0;0;0;1;0;SET O/P MR
4;C;0;0;0;0;48;
5;91;91;0;0;4;0;2R:0
6;34;587;3;0;0;0;BITS 1 - 6
7;10;0;0;0;0;0;
8;36;24;5;0;4;0;ROUTE TYPE
9;12;0;0;0;0;13;
10;71;563;22;0;0;0;g NOT 19
11;;24;4;0;4;0;GP T, AREA CTR
12;30;0;0;0;0;4-;
13;1;24;1;0;0;0;2R
14;99;0;0;0;2;0;-R2 MODIFIER
15;71;563;22;0;0;0;gWE ARE NOT DEALING WITH RT 19 TX AREA
16;12;0;0;0;0;1;
17;5;13;2;2;0;0;NEG CHAP NUMBER
18;5;13;4;2;0;0;ZERO LENGTH
19;5;596;0;0;0;0;CLEAR FOR PRINT
20;5;13;0;0;0;0;ZERO START
21;76;564;0;0;0;0;
22;94;563;7;0;4;2;> TRY AGAIN
23;0;91;4;0;2;0;
24;72;563;27;0;0;0;g NOT GP TX AREA
25;0;91;4;1;2;0;(LOSES SIGN)
26;76;563;33;0;0;0;
27;30;0;0;0;0;8;
28;30;0;0;0;0;8-;CLEAR  Q3 - 10
29;3;13;0;0;0;0;
30;5;583;0;0;0;0;SEC NUMBER FOR PRINT
31;124;13;0;0;1;0;
32;0;94;0;0;0;0;SELECT SECTION START
33;5;13;0;0;0;0;
34;0;91;5;0;2;0;
35;32;0;0;0;0;1-;
36;5;13;4;2;0;0;TX AREA LENGTH
37;32;0;0;0;0;1;
38;3;596;0;0;0;0;CHAP
39;31;0;0;0;0;1;
40;5;13;2;2;0;0;TWICE CHAP FOR MT
SHEET;466
PROCR;564;OUTPUT TRANSIT AREA DETAILS
NOTES;RADIX;B;
0;52;8;4;0;1;0;EDIT
1;C;591;22;0;0;0;TRANSIT AREA DTLS
2;0;13;0;0;0;0;
3;80;578;0;0;0;0;TO DEC
4;5;13;0;0;0;0;TO BINARY
5;0;13;4;2;0;0;
6;80;578;0;0;0;0;TO DEC
7;5;13;4;0;0;0;
8;0;583;0;0;0;0;
9;80;578;0;0;0;0;TO DEC
10;5;583;0;0;0;0;SEC NUMBER
11;62;0;0;0;0;0;RESET BINARY
12;52;5;2;0;0;0;EDIT FOR PRINT
13;C;594;24;0;0;0;
14;0;91;4;0;2;0;
15;72;564;18;0;0;0;g NOT GP TX AREA
16;10;0;0;0;0;5767; 'GP'
17;5;5;4;1;0;0;
18;80;576;0;0;0;0;g PRINT
19;94;564;22;0;2;2;> MORE DETAILS YET
20;80;577;0;0;0;0;WRITE TX BLOCK
21;76;565;0;0;0;0;
22;94;563;5;0;1;6;
23;80;577;0;0;0;0;WRITE TX BLOCK
24;76;563;3;0;0;0;g RESET MR1 & START NEXT BLOCK
SHEET;467
PROCR;565;O/P LAST TWO CHUNKS AND WRITE COMPATIBILTY DATA
NOTES;;;
0;91;593;0;0;1;0;
1;91;593;2;0;2;0;
2;80;596;0;0;0;0;g O/P 'ALLOC FP/TAG'
3;80;596;0;0;0;0;g O/P 'SET UP PQ'
4;80;596;0;0;0;0;g O/P 'LOAD PROGRAM'
5;76;566;0;0;0;0;
SHEET;468
PROCR;566;PRINT SECTION START POINTS
NOTES;RADIX;;
0;;583;60;1;0;0; 'SEC'
1; 05;5;2;1;0;0;
2;;583;62;1;0;0; 'TION'
3; 05;5;4;1;0;0;
4;0;583;82;1;0;0;
5; 05;5;6;1;0;0;
6;90;0;0;0;1;1;SELECT 94/1 - 94/99
7;C;0;0;0;0;100;
8;80;576;0;0;0;0;gPRINT
9;90;0;0;0;2;0;
10;C;0;0;0;0;48;
11;;94;0;0;1;0;
12;70;566;25;0;0;0;gSEC NOT USED
13;80;578;0;0;0;0;TO DEC
14;5;583;1;0;0;0;SEC START
15;96;0;0;0;1;0;
16;80;578;0;0;0;0;TO DEC
17;5;583;0;0;0;0;SEC NUMBER
18;52;5;2;0;2;0;
19;C;595;0;0;0;0;
20;62;0;0;0;0;0;BIN
21;94;566;25;0;2;4;
22;80;576;0;0;0;0;PRINT
23;90;0;0;0;2;0;
24;C;0;0;0;0;48;
25;94;566;11;0;1;1;>NEXT SECTION
26;80;576;0;0;0;0;PRINT LAST LINE
27;76;569;0;0;0;0;gPRINT SWITCHES
SHEET;469
PROCR;567;PRINT LOCNS OF MOD REGISTERS 4-20
NOTES;;;
0;52;5;2;0;0;0;
1;C;595;6;0;0;0;
2;80;576;0;0;0;0;gPRINT HEADING
3;90;0;0;0;1;0;PRINT CONTROL
4;C;0;0;0;0;48;
5;90;0;0;0;2;0;
6;C;0;0;0;0;17;SEARCH SEC 71
7;34;71;2;0;2;0;
8;74;567;11;0;0;0;gNOT USED
9;80;570;0;0;0;0;gDECODE
10;80;571;0;0;0;0;gEDIT+PRINT
11;94;567;7;0;2;1;>NEXT MR
12;80;576;0;0;0;0;gPRINT LAST LINE
13;90;0;0;0;12;2499;
14;C;0;0;0;0;0;
15;90;0;0;0;5;0;
16;C;0;0;0;0;40;
17;91;0;0;0;1;0;CLEAR R1
18;76;553;0;0;0;0;CALL PASS 4
SHEET;470
PROCR;568;PRINT LOCATIONS OF ITEM+ COUNTERS
NOTES;;;
0;52;5;2;0;0;0;
1;C;595;10;0;0;0;
2;80;576;0;0;0;0;gPRINT HEADING
3;34;98;1;0;0;0;
4;74;567;0;0;0;0;gNONE
5;90;0;0;0;1;0;PRINT CONTROL
6;C;0;0;0;0;48;
7;90;0;0;0;2;0;
8;C;0;0;0;0;10;TO SEARCH SEC 98
9;34;98;2;0;2;0;
10;74;568;13;0;0;0;gNOT USED?
11;80;570;0;0;0;0;gDECODE
12;80;571;0;0;0;0;gEDIT AND PRINT
13;94;568;9;0;2;1;
14;80;576;0;0;0;0;gPRINT LAST LINE
15;76;567;0;0;0;0;gPRINT MOD REGISTERS
SHEET;471
PROCR;569;PRINT LOCATION OF SWITCHES
NOTES;;;
0;52;5;2;0;0;0;
1;C;595;14;0;0;0;
2;80;576;0;0;0;0;gPRINT HEADING
3;90;0;0;0;1;0;
4;C;0;0;0;0;48;
5;91;95;0;0;2;0;
6;94;569;8;0;2;0;/////
7;76;568;0;0;0;0;gPRINT ITEM+
8;10;0;0;0;0;0;
9;34;584;6;0;0;0;BITS 1-10
10;36;95;2;0;2;0;
11;70;569;21;0;0;0;gSTEP R2
12;5;583;2;0;0;0;
13;;95;2;0;2;0;
14;32;0;0;0;0;4-;
15;5;583;0;0;0;0;CHAP OF SWITCH
16;33;0;0;0;0;6;CTR IN PROCR
17;124;583;0;0;1;0;
18;1;72;17;0;0;0;PROCR START
19;5;583;1;0;0;0;
20;80;571;0;0;0;0;gEDIT AND PRINT
21;94;569;9;0;2;1;>NEXT SWITCH
22;80;576;0;0;0;0;gPRINT LAST LINE
23;76;568;0;0;0;0;gPRINT ITEM+
SHEET;472
PROCR;570;TO SORT OUT MR>3 AND ITEM+ COUNTERS
NOTES;;;
0;81;570;0;0;0;0;
1;32;0;0;0;0;6;
2;5;583;0;0;0;0;CHAP
3;32;0;0;0;0;2;CTR IN PROCR
4;124;583;0;0;1;0;
5;1;72;17;0;0;0;PROCR START
6;5;583;1;0;0;0;
7;32;0;0;0;0;2;
8;5;583;2;0;0;0;SEC NO/MOD REG WAS Q1.2
9;82;570;0;0;0;0;
SHEET;473
PROCR;571;EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS
NOTES;RADIX;;
0;81;571;0;0;0;0;
1;0;583;0;0;0;0;
2;80;578;0;0;0;0;TO DEC
3;5;583;0;0;0;0;
4;0;583;1;0;0;0;
5;80;578;0;0;0;0;
6;5;583;1;0;0;0;
7;0;583;2;0;0;0;
8;80;578;0;0;0;0;
9;5;583;2;0;0;0;
10;62;0;0;0;0;0;BIN
11;52;5;2;0;1;0;
12;C;595;18;0;0;0;
13;94;571;17;0;1;6;>LINE NOT FULL
14;80;576;0;0;0;0;gPRINT
15;90;0;0;0;1;0;
16;C;0;0;0;0;48;
17;82;571;0;0;0;0;
SHEET;474
PROCR;572;READ A2
NOTES;;;
0;81;572;0;0;0;0;
1;42;A2;0;0;0;0;
2;C;8;0;0;0;0;
3;82;572;0;0;0;0;
SHEET;475
PROCR;573;INPUT OFF PASS 2
NOTES;RADIX;B;SUB ROUTINE
0;81;573;0;0;0;0;
1;94;573;5;0;2;8;STANDARD INCREMENT
2;80;574;0;0;0;0;READ A6->SEC 9
3;90;0;0;0;2;0;
4;C;0;0;0;0;144;
5;82;573;0;0;0;0;
SHEET;476
PROCR;574;INPUT
NOTES;RADIX;B;SUB ROUTINE
0;81;574;0;0;0;0;
1;42;A6;0;0;0;0;
2;C;9;0;0;0;0;
3;82;574;0;0;0;0;
SHEET;477
PROCR;575;WRITE ON WORKING TAPE
NOTES;;;
0;81;575;0;0;0;0;
1;55;8;4;1;0;50;COPY ANNEXES
2;C;9;4;1;0;0;
3;0;583;54;1;0;0;BEW
4;5;9;52;1;0;0;
5;43;A6;0;0;0;0;
6;C;9;0;0;0;0;
7;54;9;0;0;0;52;
8;82;575;0;0;0;0;
SHEET;478
PROCR;576;PRINT
NOTES;RADIX;B;SUB ROUTINE
0;81;576;0;0;0;0;
1;62;0;0;0;0;0;
2;;583;54;1;0;0;
3;5;5;52;1;0;0;BEW
4;;587;7;0;0;0;HEAD OF FORM OR TRAC1
5;5;5;0;1;0;0;FUNCTION WORD
6;10;0;0;0;0;1;
7;5;587;7;0;0;0;
8;;27;9;0;0;0;
9;70;576;14;0;0;0;gPRINTER
10;55;5;0;1;0;50;
11;C;10;4;1;6;0;
12;80;580;0;0;0;0;gWRITE ON A9
13;76;576;36;0;0;0;
14;;27;8;0;0;0;PRINTER TYPE
15;12;0;0;0;0;9;
16;70;576;32;0;0;0;gSPECIAL
17;10;0;0;0;0;80000;
18;5;5;1;0;0;0;BIT 40
19;124;999;15;1;2;0;SEC 5
20;124;0;0;0;2;0;
21;124;999;13;1;2;0;SEC 10
22;129;0;0;0;1;0;
23;10;0;0;0;0;4;
24;30;0;0;0;0;5;
25;1;999;7;0;0;0;ROUTE
26;34;999;12;0;0;0;
27;125;0;4096;1;1;0;
28;124;999;0;0;3;0;
29;123;0;160;0;2;0;
30;62;0;0;0;0;0;
31;76;576;36;0;0;0;
32;55;5;0;1;0;54;
33;C;10;0;1;0;0;
34;10;0;0;0;0;9;
35;76;576;24;0;0;0;
36;54;5;0;0;0;50;
37;5;16;1;0;0;0;CLEAR INDICATOR
38;82;576;0;0;0;0;
SHEET;479
PROCR;577;OUTPUT ON A2
NOTES;RADIX;B;SUB ROUTINE
0;81;577;0;0;0;0;
1;;583;54;1;0;0;BEW
2;5;8;52;1;0;0;
3;43;A2;0;0;0;0;OUTPUT
4;C;8;0;0;0;0;
5;54;8;0;0;0;52;CLEAR
6;82;577;0;0;0;0;
SHEET;480
PROCR;578;CONVERT (A) TO DECIMAL
NOTES;;;
0;81;578;0;0;0;0;
1;5;585;2;1;0;0;
2;60;0;0;0;0;0;
3;124;586;20;0;2;0;
4;112;585;2;1;0;0;
5;82;578;0;0;0;0;
SHEET;481
PROCR;579;CONVERT (A) TO BIN
NOTES;;;
0;81;579;0;0;0;0;
1;5;585;2;1;0;0;
2;62;0;0;0;0;0;
3;124;586;0;0;2;0;
4;112;585;2;1;0;0;
5;82;579;0;0;0;0;
SHEET;482
PROCR;580;O/P>A9
0;81;580;0;0;0;0;
1;94;580;7;0;6;50;
2;;583;54;1;0;0;BEW
3;5;10;306;1;0;0;
4;80;581;0;0;0;0;
5;90;0;0;0;6;0;
6;C;0;0;0;0;300;
7;82;580;0;0;0;0;
SHEET;483
PROCR;581;WRITE A9
0;81;581;0;0;0;0;
1;10;0;0;0;0;800000;
2;34;999;12;0;0;0;SEC 10
3;125;0;4096;1;1;0;
4;1;999;7;0;0;0;D1/A9
5;124;999;0;0;3;0;
6;123;0;160;0;2;0;
7;82;581;0;0;0;0;
SHEET;484
CONST;582;1;PASS 3 BLISTER SPACE
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
54;0;
56;0;
58;0;
60;0;
62;0;
64;0;
66;0;
68;0;
70;0;
72;0;
74;0;
76;0;
78;0;
80;0;
82;0;
84;0;
86;0;
88;0;
90;0;
92;0;
94;0;
96;0;
SHEET;485
CONST;583;1;
0;(A)F.PT.;
2;YES;
4;NO;
6;MOD.;
8;GP.;
10;PRIOR;
12;ITY;
14;FIRST;
16;LOCN.;
18;CHAPT;
20;TYPE£;
22;FILES;
24;TRAN.;
26;AREAS;
28;ALT.R;
30;OUTES;
32;PROGR;
34;AMME;
36;SERIA;
38;ID.;
40;RTE.;
42;TYPE;
44;ST.OF;
46;BLOCK;
48;SIZE;
50;SIT;
52;PREND;
54;(D)7.0000007.;
56;(A)= CH/;
58;(D)6£6£6£6£6£;
60;(A)SEC;
62;TION.;
64;PROC;
66;EDURE;
68;PASS3;
70;(A)MR'S ;
72;4-20 ;
74;ITEM+;
76; CTRS;
78;SWITC;
80;HES  ;
82;(A)START;
84;NOTES;
86;SPOOL;
88;ENTRY;
90;(B)100000;100,000
SHEET;486
CONST;584;1;
0;(D)5.5.;
2;(A)INDEX;
4;CHAIN;
6;(D)7£££0003££;BITS 5-19+1-10
8;(A)08000;
10;PTS I;
12;NCLUD;
14;ED   ;
SHEET;487
CONST;585;1;CONVERT TABLE
0;(D)1;BIN>DEC
2;0;(A) WL
SHEET;488
CONST;586;1;COMPLIER'S CONVERT TABLES
0;(D)1;DEC>BIN
2;t;
4;64;
6;3.8;
8;2710;
10;186t0;
12;£4240;
14;989680;
16;5£5.100;
18;3e9t+t00;
20;1;BIN>DEC
22;16;
24;256;
26;4096;
28;65536;
30;1048576;
32;16777216;
34;268435456;
36;4294967296;
38;££££££££££;
SHEET;489
CONST;587;0;
0;(D)7;
1;80000;
2;0;THIS IS A 0/1 FLIPFLOP FOR SC'S FWD
3;3£;BITS 1-6
4;£0000;£ IN Q5
5;7£;
6;80;HEAD OF FORM
7;0;IND FOR HEAD OF FORM
8;3£££0;BITS 5-18
SHEET;490
TABLE;588;1;TRIAL DATA HEADING+T/W COMMENT
NOTES;;;
SHEET;491
TABLE;589;1;PRINT HEADING DATA
NOTES;;;
0;583;18;0;0;2;0;4;0;1;0;0;0;0;
2;583;36;0;0;2;0;1;0;0;0;0;0;0;
4;11;8;0;0;2;0;1;4;2;0;0;0;0;
6;583;22;0;0;2;0;5;0;3;0;0;0;0;
8;11;10;0;0;0;0;2;3;2;1;0;0;0;
10;583;24;0;0;2;0;5;0;7;0;0;0;0;
12;583;26;0;0;2;0;5;0;2;0;0;0;0;
14;11;12;0;0;0;0;2;3;2;1;0;0;0;
16;583;54;0;0;2;0;5;0;6;0;0;0;1;
18;13;4;0;0;0;0;5;0;0;0;0;0;0;
20;13;3;0;0;0;0;5;0;0;0;0;0;0;
22;13;0;0;0;0;0;5;0;0;0;0;0;0;
24;13;2;0;0;0;0;5;0;0;0;0;0;1;
SHEET;492
TABLE;590;1;PRINT
NOTES;;;G LINE
0;583;22;0;0;2;0;4;0;1;0;0;0;0;
2;583;38;0;0;2;0;3;2;2;0;0;0;0;FILE 10.
4;583;40;0;0;2;0;4;1;6;0;0;0;0;
6;583;42;0;0;2;0;4;1;2;0;0;0;0;RTE. TYPE
8;583;82;0;0;2;0;5;0;6;0;0;0;0;
10;583;16;0;0;2;0;5;0;2;0;0;0;0;START LOCN.
12;583;28;0;0;2;0;5;0;6;0;0;0;0;
14;583;30;0;0;2;0;5;0;0;0;0;0;0;ALT. ROUTES
16;583;46;0;0;2;0;5;0;4;0;0;0;0;
18;583;48;0;0;2;0;5;0;1;0;0;0;0;'BLOCK SIZE'
20;583;18;0;0;2;0;5;0;10;0;0;0;1;CHAPT
SHEET;493
TABLE;591;1;
NOTES;;;
0;583;48;0;0;2;0;5;0;3;0;0;0;0;LGTH.OF CHAPS
2;583;44;0;0;2;0;2;3;2;0;0;0;0;
4;583;18;0;0;2;0;4;0;2;0;0;0;0;
6;583;36;0;0;2;0;1;0;0;0;0;0;0;
8;13;0;0;0;0;0;5;0;2;4;2;0;0;
10;13;1;0;0;0;0;5;0;2;4;2;0;0;
12;13;2;0;0;0;0;5;0;2;4;2;0;0;
14;13;3;0;0;0;0;5;0;2;4;2;0;0;
16;13;4;0;0;0;0;5;0;2;4;2;0;0;
18;13;5;0;0;0;0;5;0;2;4;2;0;0;
20;13;6;0;0;0;0;5;0;2;4;2;0;1;
22;13;0;0;0;0;0;5;0;0;0;0;0;0;TX AREA DETAILS MT
24;13;2;0;0;2;0;5;0;0;0;0;0;0;
26;13;4;0;0;2;0;5;0;0;0;0;0;1;
SHEET;494
TABLE;592;1;
NOTES;;;
0;583;0;0;0;2;0;5;0;4;0;0;0;0;F.PT.
2;13;0;0;0;2;0;3;2;2;0;0;0;0;XXX
4;583;6;0;0;2;0;4;1;7;0;0;0;0;
6;583;8;0;0;2;0;3;2;2;0;0;0;0;MOD. GP.
8;13;2;0;0;2;0;3;2;2;0;0;0;0;XXX
10;583;10;0;0;2;0;5;0;7;0;0;0;0;
12;583;12;0;0;2;0;3;2;0;0;0;0;0;PRIORITY
14;11;4;0;0;2;0;1;4;2;0;0;0;0;XXX
16;583;88;0;0;2;0;5;0;7;0;0;0;0;'ENTRY'
18;583;56;0;0;2;0;4;0;0;0;0;0;0;'= CH'
20;92;8;0;0;0;0;1;4;0;0;0;0;0;CHAP NUMBER
22;583;56;0;0;2;0;1;4;0;0;0;0;0;'/'
24;92;6;0;0;0;0;4;1;0;3;0;0;1;LOCN IN CHAP
SHEET;495
TABLE;593;1;
NOTES;;;
0;587;6;0;0;0;0;5;0;0;4;0;0;0;CALL HEAD OF FORM
2;583;32;0;0;2;0;5;0;1;0;0;0;0;
4;583;34;0;0;2;0;4;1;0;0;0;0;0;
6;16;2;0;0;0;0;5;0;3;0;0;0;0;PROG IDENTITY
8;583;36;0;0;2;0;5;0;3;0;0;0;0;'SERIA-
10;583;16;0;0;2;0;1;0;0;0;0;0;0;'-L'
12;16;3;0;0;0;0;5;0;3;4;0;0;0;PROG SERIAL
14;583;18;0;0;2;0;4;0;15;0;0;0;0;'CHAP-'
16;583;36;0;0;2;0;1;0;0;0;0;0;0;-S'
18;92;29;0;0;0;0;1;4;2;0;0;0;0;NUMBER OF CHAPS
20;583;22;0;0;2;0;5;0;3;0;0;0;0;'FILES'
22;577;0;0;0;0;0;1;4;2;0;0;0;0;NUMBER OF FILES
24;583;24;0;0;2;0;5;0;6;0;0;0;0;'TRAN'
26;583;26;0;0;2;0;5;0;2;0;0;0;0;AREAS'
28;576;0;0;0;0;0;1;4;2;0;0;0;1;NUMBER OF TX AREAS
SHEET;496
TABLE;594;1;
0;11;0;0;0;2;0;5;0;6;0;0;0;0;FILE ID
2;583;0;0;0;0;0;4;0;12;3;0;0;0;ROUTE TYPE
4;13;6;0;0;0;0;4;1;13;3;0;0;0;START LOCATION
6;13;8;0;0;2;0;3;2;11;0;0;0;0;ALT ROUTE
8;13;4;0;0;0;0;4;1;12;3;0;0;0;LENGTH
10;13;2;0;0;0;0;4;1;12;3;0;0;1;CHAPT'
12;583;24;0;0;2;0;5;0;1;0;0;0;0;
14;583;26;0;0;2;0;5;0;2;0;0;0;0;
16;583;82;0;0;2;0;5;0;2;0;0;0;0;
18;583;16;0;0;2;0;5;0;2;0;0;0;0;
20;583;18;0;0;2;0;5;0;7;0;0;0;0;
22;583;48;0;0;2;0;5;0;6;0;0;0;1;LGTH
24;583;0;0;0;0;0;5;0;5;5;0;0;0;SEC NO
26;13;0;0;0;0;0;4;1;11;3;0;0;0;START  
28;596;0;0;0;0;0;1;4;13;0;0;0;0;CHAPTER
30;13;4;0;0;0;0;4;1;7;3;0;0;1;LENGTH
32;11;0;0;0;2;0;5;0;0;0;0;0;0;SENTINEL MARK
34;11;2;0;0;2;0;5;0;0;0;0;0;0;SENTINEL TYPE
36;11;4;0;0;2;0;5;0;0;0;0;0;0;PROG ID NO
38;11;6;0;0;2;0;5;0;0;0;0;0;1;SERIAL NO
SHEET;497
TABLE;595;1;
0;583;0;0;0;0;0;2;3;3;1;0;0;0;SEQ NO
2;583;56;0;0;2;0;1;0;0;0;0;0;0;='
4;583;1;0;0;0;0;4;1;0;3;0;0;1;SECTION START
6;583;70;0;0;2;0;5;0;0;0;0;0;0;MR'S 4-20
8;583;72;0;0;2;0;5;0;0;0;0;0;1;
10;583;74;0;0;2;0;5;0;0;0;0;0;0;ITEM+COUNTERS
12;583;76;0;0;2;0;5;0;0;0;0;0;1;
14;583;78;0;0;2;0;5;0;0;0;0;0;0;SWITCHES
16;583;80;0;0;2;0;5;0;0;0;0;0;1;
18;583;2;0;0;0;0;5;0;0;4;0;0;0;SW/MR/SEC
20;583;56;0;0;2;0;4;0;0;0;0;0;0;=CH'
22;583;0;0;0;0;0;1;4;0;0;0;0;0;CHAP NO
24;583;56;0;0;2;0;1;4;0;0;0;0;0;/'
26;583;1;0;0;0;0;4;1;0;3;0;0;1;POSITION
SHEET;498
PROCR;596;COPY CHUNK FROM STORE S/R
0;81;596;0;0;0;0;
1;96;0;0;0;2;0;STORE CHUNK START FOR PARAS 1 AND 5
2;5;598;0;0;0;0;
3;124;598;0;0;1;0;
4;101;0;0;1;3;0;
5;5;598;4;0;0;0;CHUNK START
6;124;999;19;1;2;0;SEC 8
7;124;0;0;0;2;0;
8;3;577;0;0;0;0;WL
9;11;0;0;0;0;30;48
10;30;0;0;0;0;5;
11;1;577;0;0;0;0;
12;91;0;0;0;4;0;
13;124;598;2;0;3;0;STORE WORD
14;106;0;0;0;2;0;
15;5;598;5;0;0;0;STORE WORD
16;34;598;8;1;0;0;FIRST LEVEL PARA WORD
17;33;0;0;0;0;3;NEXT ONE TO A
18;100;598;6;1;0;0;STORE (A) (B) (C)
19;94;596;27;0;5;1;TEST END OF PARA WORD
20;90;0;0;0;5;0;SET UP MR FOR
21;C;0;0;0;0;6;NEXT PARA WORD
22;124;598;2;0;3;0;STORE PARA WORD
23;106;0;1;0;3;0;STORE PARA WORD
24;33;0;0;0;0;2;RIGHT ALIGN WORD
25;5;598;9;0;0;0;
26;94;596;27;0;3;1;STEP PARAS MR
27;;598;6;0;0;0;TEST DUMMY PARA
28;12;0;0;0;0;6;
29;70;596;16;0;0;0;gYES
30;12;0;0;0;0;1;TEST SECOND LEVEL REQD
31;71;596;55;0;0;0;gNO
32;34;598;14;1;0;0;SCEOND LEVEL PARA WORD
33;33;0;0;0;0;6;NEXT ONE TO A
34;100;598;12;1;0;0;STORE (A) (B) (C)
35;94;596;43;0;8;1;TEST END OF PARA WORD
36;90;0;0;0;8;0;SET UP MR FOR
37;C;0;0;0;0;3;NEXT PARA WORD
38;124;598;2;0;3;0;STORE PARA WORD
39;106;0;1;0;1;0;
40;33;0;0;0;0;2;RIGHT ALIGN WORD
41;5;598;15;0;0;0;
42;94;596;43;0;1;1;STEP PARAS MR
43;;598;12;0;0;0;TEST SECOND LEVEL  
44;101;0;63;1;2;0;PARA=63(DUMMY)
45;70;596;32;0;0;0;gYES
46;101;0;1;1;1;0;TEST END SIGN(62)
47;71;596;53;0;0;0;gNO
48;;598;2;1;0;0;STORE END SIGN
49;5;0;4;1;4;0;END SIGN
50;5;0;6;1;4;0;
51;80;577;0;0;0;0;gWRITE LAST BLOCK
52;82;596;0;0;0;0;gLEAVE S/R
53;;598;12;1;0;0;STORE ACTUAL PARA
54;5;598;6;1;0;0;VALUE
55;;598;6;0;0;0;TEST PARA=1
56;12;0;0;0;0;1;
57;70;596;60;0;0;0;gYES
58;12;0;0;0;0;4;
59;71;596;64;0;0;0;gNO
60;35;0;0;0;0;1111;ADJUST ORDER BY
61;36;598;5;0;0;0;CHUNK START
62;2;598;4;0;0;0;
63;37;598;5;0;0;0;
64;;598;5;0;0;0;
65;5;0;6;2;4;0;
66;;598;6;0;0;0;
67;5;0;4;2;4;0;
68;94;596;69;0;2;1;WORD MR
69;94;596;13;0;4;4;gNEXT WORD
70;80;577;0;0;0;0;gWRITE
71;76;596;6;0;0;0;gNEXT BLOCK
SHEET;499
TABLE;597;3;
0;16;16;0;0;0;0;5;0;0;0;0;0;0;
2;587;0;0;0;0;0;5;0;0;0;0;0;0;
4;16;2;0;0;0;0;5;0;0;0;0;0;0;
6;16;3;0;0;0;0;5;0;0;0;0;0;0;SERIAL
8;583;18;0;0;2;0;5;0;0;0;0;0;1; 'CHAPT'
10;583;26;0;0;2;0;5;0;0;0;0;0;0;
12;16;16;0;0;0;0;5;0;3;4;0;0;1;
14;11;0;0;0;2;0;5;0;0;0;0;0;0;FILE IDENTITY
16;11;2;0;0;2;0;4;0;1;0;0;0;0;ROUTE TYPE
18;11;8;0;0;2;0;5;0;0;0;0;0;0;START LOCATION
20;11;4;0;0;2;0;5;0;0;0;0;0;0;TWICE CHAP
22;11;6;0;0;2;0;5;0;0;0;0;0;0;MAX BLOCK LENGTH
24;11;10;0;0;2;0;5;0;0;0;0;0;1;ALT ROUTE
SHEET;500
CONST;598;1;CONSTANTS 
0;(D)0;
2;(A)p    ;
4;0;CHUNK START/ORDER 
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
SHEET;501
PROCR;599;DUMMY 
SHEET;502
PROCR;600;
SHEET;503
PROCR;601;
SHEET;504
PROCR;602;
SHEET;505
PROCR;603;
SHEET;506
PROCR;604;PREPARATORY STAGE 
NOTES;RADIX;;
0;10;0;0;0;0;0;(29)TEST UNSUITABLE MASTER 
1;127;604;49;0;0;0;gYES(REJECT G) 
2;124;611;4;0;2;0;SET UP IND MODS 
3;5;604;26;0;0;0;AT 15 BIT 
4;124;611;6;0;2;0;ADDRESS 
5;5;604;29;0;0;0;
6;124;611;10;0;2;0;
7;5;604;45;0;0;0;
8;12;0;0;0;0;4;
9;4;611;3;0;0;0;TO ALLOW ROOM 
10;4;611;11;0;0;0;FOR 'A' AND 'B' 
11;10;0;0;0;0;0;(31)TEST 2 STORES 
12;70;604;14;0;0;0;gNO 
13;76;604;16;0;0;0;
14;;611;3;0;0;0;SET UP MR FOR 
15;5;611;1;0;0;0;ONE STORE AREA 
16;124;611;4;0;3;0;
17;106;0;0;0;0;0;NEXT PROG IDENTITY 
18;70;605;0;0;0;0;gUNLOAD THIS PROGRAM 
19;10;0;0;0;0;2;STEP CTR 
20;4;611;6;0;0;0;
21;124;611;4;0;3;0;MOVE DETAIL DOWN 
22;106;0;0;1;0;0;
23;124;611;6;0;3;0;
24;102;0;0;1;0;0;
25;123;0;2;0;0;0;(REENTRY AFTER UNLOAD) 
26;100;611;4;0;0;0;
27;76;604;16;0;0;0;
28;123;0;2;0;0;0;gNEXT ENTRY 
29;100;611;6;0;0;0;
30;76;604;32;0;0;0;
31;76;604;36;0;0;0;gLAST ENTRY 
32;;611;8;1;0;0;SET 10Xp IN REMAINING 
33;124;611;6;0;3;0;PQ LOCNS 
34;102;0;0;1;0;0;
35;76;604;28;0;0;0;
36;124;611;10;0;3;0;FIND SUFFICIENT STORE 
37;106;0;1;0;0;0;AREA FOR NEXT CHAP(500 LOCNS) 
38;2;611;8;0;0;0;ppppp 
39;70;604;44;0;0;0;gSKIP END SIGNS, TRUST MR 
40;1;611;8;0;0;0;
41;118;0;0;0;0;0;DUMMY 
42;101;0;516;1;2;0;
43;72;604;52;0;0;0;
44;123;0;2;0;0;0;
45;100;611;10;0;0;0;
46;76;604;36;0;0;0;
47;10;0;0;0;0;0;
48;12;0;0;0;0;4;C COMMENT 
49;11;0;0;0;0;57;G COMMENT 
50;124;611;12;0;3;0;
51;124;0;0;1;0;0;(14)->REJECT 
52;124;611;10;0;3;0;
53;106;0;0;0;0;0;15-BIT START 
54;124;611;12;0;3;0;
55;103;0;28;0;0;0;R2 MODIFIER 
56;124;611;12;0;3;0;
57;103;0;0;0;0;0;PLANT S/R LINK 
58;34;611;17;0;0;0;BITS 1-13 
59;114;611;17;0;0;0;
60;;611;17;0;0;0;CHUNK START PARA 
61;124;611;12;0;3;0;
62;102;0;1;0;0;0;
63;101;0;0;1;3;0;
64;124;611;12;0;3;0;SECOND ORDER 
65;124;0;1;1;0;0;gLOAD CHAP S/R 
SHEET;507
PROCR;605;UPDATE PREVIOUS SWITCH,UNLOAD FP/MG/TAG 
NOTES;RADIX;;
0;35;0;0;0;0;1111;Q1-4B,A CLEAR 
1;124;611;4;0;3;0;
2;115;0;1;0;0;0;START OF SWITCH 
3;5;604;0;1;0;0;
4;124;604;0;0;3;0;
5;106;0;37;0;0;0;SI+37 
6;5;611;16;0;0;0;SPECIAL CHAPTER START 
7;124;611;6;0;3;0;
8;106;0;1;0;0;0;SWITCH START OF PROC ABOVE THIS 
9;124;611;12;0;3;0;
10;102;0;30;1;0;0;SET R3 
11;126;604;0;1;2;0;THIS SWITCH STARTS>R2
12;124;611;12;0;3;0;
13;126;0;0;0;0;0;>'UPDATE SWITCH' S/R
14;124;611;16;0;3;0;
15;106;0;0;0;0;0;FP USED
16;70;605;26;0;0;0;gNO
17;126;611;12;1;2;0;6/0
18;101;0;14;1;3;0;
19;124;611;12;0;3;0;
20;123;0;128;1;2;0;TAG 14
21;10;0;0;0;0;0;
22;124;611;12;0;3;0;
23;102;0;128;1;2;0;CLEAR
24;125;0;2;0;2;0;
25;76;605;18;0;0;0;
26;124;611;16;0;3;0;
27;106;0;1;0;0;0;MOD GROUP
28;70;605;37;0;0;0;gNOT USED
29;31;0;0;0;0;3;
30;5;604;0;0;0;0;STORE 8M
31;126;611;12;1;2;0;6/0
32;101;0;14;1;3;0;
33;124;604;0;0;3;0;
34;123;0;2;1;2;0;TAG 14 INTO MOD GROUP
35;125;0;2;0;2;0;
36;76;605;33;0;0;0;
37;124;611;16;0;3;0;SPECIAL CHAP START
38;106;0;10;0;0;0;ALLOCATED TAG
39;3;604;0;0;0;0;W/L
40;32;0;0;0;0;1-;TAG TO Q10B
41;124;604;0;0;3;0;
42;118;0;0;1;0;0;SHIFT TAGX TO QXA
43;124;611;12;0;3;0;ZERO
44;107;0;0;1;0;0;AUG TAG AVAILABILITY LOCN
45;124;611;16;0;3;0;SPECIAL CHAP
46;126;0;18;1;2;0;2X(R+T)
47;126;611;12;1;3;0;6:0 FLIP FLOP
48;125;0;3;0;3;0;
49;125;0;3;0;3;0;
50;76;606;2;0;0;0;
51;126;611;12;1;3;0;06:00
52;124;611;16;0;3;0;NEXT ROUTE DETAIL
53;106;0;34;1;2;0;
54;72;606;2;0;0;0;
55;125;0;3;0;3;0;>NOT DEALLOCATED BY PROGRAM
SHEET;508
PROCR;606;UNLOAD ROUTES AND PSEUDO ROUTES
NOTES;RADIX;;103
0;125;0;1;0;2;0;
1;76;606;38;0;0;0;gALREADY DEALLOCATED
2;124;611;16;0;3;0;
3;106;0;34;0;2;0;NEXT DETAIL
4;32;0;0;0;0;4-;
5;5;604;11;0;0;0;Q5=ROUTE TYPE
6;32;0;0;0;0;2;
7;10;0;0;0;0;0;
8;32;0;0;0;0;2;Q1,2=ROUTE
9;70;606;38;0;0;0;
10;101;0;128;1;2;0;(32)TEST ALT ROUTE
11;70;606;38;0;0;0;gYES
12;101;0;128;1;1;0;(32)
13;3;604;12;0;0;0;ROUTE
14;32;0;0;0;0;1-;
15;33;0;0;0;0;1;STORE 8XCHANNEL
16;118;0;3;0;3;0;
17;5;604;13;0;0;0;
18;33;0;0;0;0;3;
19;5;604;14;0;0;0;STORE RTE NO MOD 8
20;;604;11;0;0;0;ROUTE TYPE
21;71;606;23;0;0;0;
22;;611;14;0;0;0;0££££
23;124;604;12;0;3;0;
24;102;0;64;0;0;0;
25;124;604;13;0;3;0;UPDATE ASSEMBLER TABLE
26;106;0;0;0;0;0;(12)
27;2;604;12;0;0;0;
28;71;606;32;0;0;0;gNOT THIS ROUTE
29;;611;8;0;0;0;SET £££££
30;124;604;13;0;3;0;
31;102;0;0;1;0;0;(12)
32;101;0;1;0;1;0;
33;101;0;0;1;3;0;
34;124;604;14;0;3;0;ROUTE IN CHANNEL
35;118;0;0;1;0;0;
36;124;604;13;0;3;0;
37;114;0;2;1;0;0;(12)
38;125;0;1;0;2;0;
39;76;605;49;0;0;0;gALT ROUTE OR NEXT ROUTE
SHEET;509
PROCR;607;UNLOAD STORAGE, CLEAR/SET TAG 14
NOTES;RADIX;;104 PREP STAGE
0;124;611;16;0;3;0;SPECIAL CHAP START
1;126;0;16;1;2;0;(2XCHAPS):0
2;124;611;16;0;3;0;
3;106;0;20;1;2;0;
4;5;604;0;1;0;0;END/START NEXT CHAP
5;126;604;0;1;3;0;
6;101;0;14;1;3;0;
7;124;611;12;0;3;0;
8;123;0;0;1;3;0;STACK TAG 14 EVERY WHERE
9;125;0;2;0;3;0;
10;76;607;7;0;0;0;
11;126;604;0;1;3;0;START/END NEXT CHAP
12;;604;0;0;0;0;START
13;2;611;16;0;0;0;SPECIAL CHAP START
14;71;607;18;0;0;0;gNOT SP CHAP
15;125;0;500;0;3;0;DON'T CLEAR FIRST 500
16;76;607;18;0;0;0;
17;76;608;0;0;0;0;gNONE TO CLEAR
18;10;0;0;0;0;0;
19;124;611;12;0;3;0;
20;102;0;0;1;3;0;
21;125;0;2;0;3;0;
22;76;607;19;0;0;0;
SHEET;510
PROCR;608;
NOTES;RADIX;;105
0;10;0;0;0;0;0;(31) TEST 2 STORES
1;70;608;7;0;0;0;gNO
2;0;604;0;0;0;0;CHAP START
3;2;610;35;0;0;0;CONST=DIV 4/0
4;73;608;7;0;0;0;gCHAP IN FIRST STORE
5;0;611;20;1;0;0;FOR SECOND
6;76;608;8;0;0;0;
7;0;611;18;1;0;0;FOR FIRST
8;5;604;14;1;0;0;
9;126;604;14;1;1;0;SET UP MRS
10;126;604;14;1;3;0;
11;124;611;12;0;3;0;NEXT STRIP
12;106;0;0;1;3;0;
SHEET;511
PROCR;609;UNLOAD NEXT CHAP-LOOK FOR JOINS
NOTES;RADIX;;106
0;05;604;10;1;0;0;W/L
1;00;604;10;0;0;0;NEXT STRIP START
2;70;609;20;0;0;0;gDUMMY, STEP R3
3;2;611;8;0;0;0;£££££
4;70;609;34;0;0;0;gLIST END
5;00;604;10;0;0;0;STRIP START
6;01;604;11;0;0;0;STRIP LENGTH
7;5;604;13;0;0;0;=STRIP END
8;34;611;17;0;0;0;BITS1-13
9;36;604;10;0;0;0;STRIP START
10;70;609;15;0;0;0;gSTART IS DIVISION BOUNDARY
11;00;604;10;0;0;0;STRIP START
12;2;604;1;0;0;0;CHAP END
13;70;609;22;0;0;0;gJOINS UP
14;10;0;0;0;0;0;
15;36;604;13;0;0;0;
16;70;609;20;0;0;0;gSTRIP END IS DIVISION BOUNDARY
17;;604;13;0;0;0;STRIP END
18;2;604;0;0;0;0;CHAP START
19;70;609;26;0;0;0;gJOINS UP
20;125;0;2;0;3;0;
21;76;608;11;0;0;0;gNEXT STRIP
22;;604;0;0;0;0;CHAP START
23;32;0;0;0;0;5-;
24;1;604;13;0;0;0;STRIP END
25;76;609;29;0;0;0;
26;00;604;10;0;0;0;STRIP START
27;32;0;0;0;0;5-;
28;1;604;1;0;0;0;CHAP END
29;32;0;0;0;0;5;
30;5;604;0;1;0;0;STORE SUPERCHAP
31;124;611;12;0;3;0;CLEAR STRIP DETAIL
32;102;0;0;1;3;0;
33;76;608;10;0;0;0;gLOOP AGAIN
34;2;604;0;0;0;0;START
35;4;604;1;0;0;0;CHANGE END OF LENGTH
SHEET;512
PROCR;610;SORT NEXT ITEM INTO STORAGE LIST
NOTES;RADIX;;107
0;124;604;14;0;3;0;CTR
1;106;0;0;1;0;0;
2;3;611;22;1;0;0;W/L
3;70;610;23;0;0;0;gDUMMY STEP CTR
4;2;611;8;1;0;0;£X10
5;70;610;26;0;0;0;gEND ROUTINE
6;;611;22;1;0;0;
7;2;604;0;1;0;0;DETAIL TO INSERT
8;73;610;15;0;0;0;gNOT YET
9;;604;0;1;0;0;
10;124;611;12;0;3;0;
11;102;0;0;1;1;0;WRITE INTO LIST
12;;611;22;1;0;0;
13;5;604;0;1;0;0;INSERT OVERWRITTEN ITEM NEXT TIME
14;76;610;18;0;0;0;
15;;611;22;1;0;0;WRITE ITEM BACK
16;124;611;12;0;3;0;
17;102;0;0;1;1;0;
18;125;0;2;0;1;0;STEP MR1
19;76;610;23;0;0;0;
20;10;0;0;0;0;51;TOO MANY STRIPS
21;124;611;12;0;3;0;INTERNAL IMPOSSIBILITY
22;124;0;0;1;0;0;(13)>XXXA
23;10;0;0;0;0;2;STEP CTR
24;4;604;14;0;0;0;
25;76;610;0;0;0;0;gNEXT STRIP
26;;604;0;1;0;0;INSERT FINAL DETAILS
27;124;611;12;0;3;0;
28;102;0;0;1;1;0;
29;;611;8;1;0;0;
30;124;611;12;0;3;0;
31;102;0;2;1;1;0;
32;125;0;2;0;2;0;STEP MR2
33;76;607;2;0;0;0;gUNLOAD NEXT CHAP
34;76;604;25;0;0;0;gUNLOAD NEXT PROGR
35;100;0;0;1;0;0;CONSTANT=DIV 4/0
36;;604;0;0;0;0;
37;10;0;0;0;0;0;DUMMY
SHEET;513
CONST;611;0;108
0;(D)0;(30)START FIRST TABLE
1;0;(31)START LAST TABLE
2;0;(31)DO
3;0;(3)END+4 OF LAST AREA
4;2;(29)START PQ
5;0;(30)END PQ
6;0;(29)END PQ
7;0;(20)START PQ
8;£££££;
9;£££££;
10;0;(30)START FIRST AREA
11;0;(3)END+4 OF LAST AREA
12;0;
13;6;
14;££££;
15;£0000;
16;0;
17;1£££;
18;0;(30)FIRST STORE
19;0;
20;0;(31)SECOND STORE
21;0;
22;0;W/L FOR STRIP DETAIL
23;0;
24;0;BLISTER SPACE
25;0;
SHEET;514
PROCR;612;DUMMY PROCEDURE START OF ALLOC STORAGE
NOTES;RADIX;;201
SHEET;515
PROCR;613;SET UP 1 OR 2 STORE AREAS
NOTES;RADIX;;202 STORE FOR CHAP DETAILS
0;101;0;0;1;3;0;(31)TEST 2 STORES
1;70;613;12;0;0;0;g1 AREA
2;10;0;0;0;0;0;
3;12;0;0;0;0;1;
4;4;621;4;0;0;0;SET SWITCH=2
5;10;0;0;0;0;0;
6;2;613;15;0;0;0;
7;4;622;28;0;0;0;(71>73 ORDER)
8;101;0;0;1;3;0;(31)FORM FIRST TABLE LENGTH
9;101;0;0;1;2;0;(30)
10;4;614;18;0;0;0;ADJUST MR SETTING
11;4;621;21;0;0;0;ADJUST ORDERS
12;124;613;24;0;3;0;
13;126;0;0;0;0;0;(7)>READ BLOCK
14;76;616;0;0;0;0;
15;100;0;0;0;2;0;CONSTANT
16;100;0;1;0;0;0;COLLATION CONST
17;100;0;0;0;0;0;INIT CHAP COLL CONST
18;100;0;0;0;0;0;TOT CHAPS FOR ALLOCATION
19;100;0;0;0;0;0;?
20;100;0;0;0;0;0;?
21;100;0;0;0;0;0;VBLE BIT PATTERN
22;100;0;0;0;0;0;START OF ALLOC IN STRIP
23;100;0;0;0;0;0;ZERO CONST)
24;100;0;0;0;0;0;;)R1 WL
25;100;0;0;0;0;0;TOTAL LENGTH COUNTER
26;100;0;0;0;0;0;W/L FOR ALLOC CHAPS
27;100;0;0;0;0;0;COLLATION CONSTANT
28;100;0;1;0;0;0;MIN WASTAGE BIT PATTERN
29;100;0;0;0;0;0;
SHEET;516
PROCR;614;STORE CARRIED FORWARD DETAILS
NOTES;RADIX;;203
0;124;614;18;0;3;0;BULK COPY TO
1;128;0;250;0;0;0;MIDDLE OF SPECIAL CHAP
2;124;614;18;0;3;0;
3;124;0;250;1;0;0;>NEW POSITION OF NEXT ORDER
4;106;614;16;1;0;0;COPY 40 LOCNS STORAGE TABLE TO CHAP 1/80
5;124;614;40;0;3;0;
6;128;0;80;0;0;0;
7;106;614;14;1;0;0;COPY 54 LOCNS MISC TO START OF EXTRA CHA
8;124;614;18;0;3;0;
9;128;0;0;0;0;0;
10;101;0;0;1;3;0;PARA TABLE START
11;124;614;13;0;3;0;
12;124;0;1;1;0;0;(6)>LOAD CHAP
13;100;0;0;0;0;0;ZERO
14;100;0;16;0;0;0;TABLE ENTRIES
15;100;0;54;0;0;0;
16;100;0;70;0;0;0;
17;100;0;40;0;0;0;
18;100;0;0;0;0;0;W/L'S FOR BEGIN/END
19;100;0;0;0;0;0;OF STORE AREAS
SHEET;517
CONST;615;0;204 DUMMY PROCEDURE FOR OVERWRITE
0;(B)64-;(11)MASTER PSEUDO
1;0;
SHEET;518
PROCR;616;INPUT CD DEAL WITH ANNEXES W/L'S
NOTES;RADIX;;205
0;124;615;0;1;2;0;UNPACK ALPHA->NUMERIC
1;124;0;25;0;2;0;CHAP DETAILS
2;32;0;0;0;0;5-;
3;101;0;28;1;3;0;
4;32;0;0;0;0;5;
5;128;612;1;1;0;0;
6;124;615;0;1;2;0;UNPACK ALPHA->NUMERIC
7;124;0;5;0;2;0;GENERAL DETAILS
8;32;0;0;0;0;5-;
9;101;0;20;1;3;0;
10;32;0;0;0;0;5;
11;128;615;0;1;0;0;
12;;612;8;1;0;0;TRANSFER PROG
13;5;615;12;1;0;0;SERIAL AND IDENTITY
14;101;612;0;1;3;0;TEST IF PTS REQD     ALLOC COMMENT
15;33;0;0;0;0;3;
16;32;0;0;0;0;1-;STORE PARAS FOR
17;5;615;10;0;0;0;ALLOC ROUTES
18;33;0;0;0;0;1;
19;3;615;11;0;0;0;STORE'TRIALS ALLOC'IND
20;70;616;28;0;0;0;gNOT TRIALS ALLOCATED
21;101;0;0;1;3;0;(28)PTS IN MASTER?
22;70;616;28;0;0;0;gYES
23;3;615;1;0;0;0;RESERVE MOD GROUP
24;0;619;12;0;0;0;
25;5;617;19;0;0;0;(TO STEP CTR IF PTS CHAP NEEDED)
26;101;0;1500;1;3;0;PTS SIZE
27;4;620;8;0;0;0;AUGMENT SPECIALSIZE
28;124;615;4;0;1;0;FIRST SPECIAL CHAP   (CHAPS INITIALLY)
29;103;612;1;0;0;0;
30;124;615;4;0;1;0;STORE PRINT S/R START
31;106;612;0;0;0;0;(SPEC CHAP LENGTH)
32;102;615;15;0;0;0;
33;;615;4;0;0;0;2XCHAPS
34;1;615;4;0;0;0;
35;5;615;17;0;0;0;
36;124;615;17;0;0;0;
37;102;615;20;1;0;0;CLEAR PTS DETAILS
38;101;0;0;1;3;0;PARA TABLE START
39;5;615;32;0;0;0;FOR TRANSLATOR
40;35;0;0;0;0;1;
41;124;613;24;0;3;0;
42;115;0;27;0;0;0;(3)MACHINE PRINTER TYPE
43;101;0;9;1;2;0;
44;103;615;14;0;0;0;STORE INDICATOR
45;71;617;0;0;0;0;gRTE TYPE 4
46;10;0;0;0;0;1;
47;4;617;20;0;0;0;
48;4;617;23;0;0;0;
49;106;619;10;0;0;0;
50;102;619;7;0;0;0;
SHEET;519
PROCR;617;FORM UP DETAILS FOR PRINTERS
NOTES;RADIX;;206
0;;615;17;0;0;0;SET UP MRS 2C:0
1;5;613;18;0;0;0;FOR LIST OF CHAPS
2;;615;4;0;0;0;
3;3;613;20;0;0;0;
4;101;0;4;1;1;0;AND LIST OF LENGTHS
5;5;613;21;0;0;0;
6;126;613;18;1;1;0;MR 2C: 0
7;126;613;20;1;3;0;2(C+2) : 0
8;5;615;22;1;1;0;ENSURE NO PRINT S/R UNLESS DESIRED
9;101;0;0;1;3;0;(28) IS THIS ISSUE 6+MASTER?
10;70;617;18;0;0;0;gNO
11;101;0;0;1;3;0;(48)BONUS TO SPECIAL CHAP FOR CMR
12;34;620;0;0;0;0;
13;124;615;4;0;1;0;
14;36;612;0;0;0;0;
15;124;615;4;0;1;0;
16;37;612;0;0;0;0;
17;10;0;0;0;0;0;DUMMY
18;;612;12;0;0;0;TEST ANY RT 19 PRINTERS
19;70;617;52;0;0;0;*FORMED ORDER*->NONE
20;0;612;11;0;0;0;*1 ADDED FOR SPECIAL PRINTER*
21;80;619;0;0;0;0;gBREAK UP DETAILS S/R
22;125;0;2;0;1;0;
23;0;612;13;0;0;0;*1 ADDED FOR SPECIAL PRINTER*
24;80;619;0;0;0;0;gBREAK UP DETAILS S/R
25;;615;21;0;1;0;
26;71;617;31;0;0;0;gCHAP CHOSEN
27;;615;20;0;1;0;ANNEXE LENGTH
28;;615;20;0;1;0;DUMMY
29;4;620;8;0;0;0;AUGMENT SPECIAL TOTAL
30;76;617;41;0;0;0;
31;5;613;18;0;0;0;
32; ;615;20;0;1;0;ANNEXE LENGTH
33;34;620;0;0;0;0;
34;124;613;18;0;1;0;CHAP LENGTH ALLOWING
35;36;612;0;0;0;0;FOR NEG CHAP LENGTH
36;124;613;18;0;1;0;
37;37;612;0;0;0;0;
38;;615;21;0;1;0;DOUBLE CHAP NO
39;4;615;21;0;1;0;
40;101;0;0;1;3;0;CLEAR CHAP LENGTH
41;5;612;2;0;3;0;
42;125;0;2;0;1;0;
43;125;0;1;0;3;0;
44;76;617;25;0;0;0;
45;106;615;14;0;0;0;TEST RTE TYPE 9
46;70;617;50;0;0;0;gYES
47;101;0;1;1;3;0;
48;4;618;19;0;0;0;ADJUST ORDERS FOR PRINT S/R LENGTH
49;10;0;0;0;0;2;(+5 IF GP)
50;11;0;0;0;0;2;(+3 IF SPECIAL)
51;11;0;0;0;0;1;(+1 IF TRIALS ALLOC)
52;1;615;4;0;0;0;CHAPS INITIALLY
53;5;613;18;0;0;0;CHAPS FOR ALLOCATION
54;34;620;0;1;0;0;Q1=10
55;124;615;4;0;1;0;INITIAL CHAPS X
56;118;0;0;1;3;0;FORM BITS 1-X
57;5;613;17;0;0;0;
58;124;613;18;0;1;0;TOT CHAPS Y
59;118;0;0;1;3;0;FORM BITS 1-Y
60;5;613;19;0;0;0;
61;91;614;18;0;3;0;R3 SCANS STORE AREA
62;5;614;18;0;0;0;CLEAR
63;0;613;18;0;0;0;TOT CHAPS
64;2;615;4;0;0;0;INIT CHAPS
65;70;618;0;0;0;0;gNO SPECIAL CHAPS
66;0;613;18;0;0;0;
67;5;613;25;0;0;0;
68;91;613;24;0;1;0;CHAPS:0
69;34;613;28;0;0;0;BIT 1
70;0;612;1;0;1;0;NEXT CHAP LENGTH
71;71;617;74;0;0;0;gUSED
72;36;620;0;0;0;0;Q1-5(IE B-> A)
73;4;619;11;0;0;0;STEP'CHAPS ALLOCATED'
74;33;0;0;0;0;1;SHIFT MARKER
75;125;0;1;0;1;0;
76;76;617;70;0;0;0;
77;10;0;0;0;0;0;CLEAR
78;2;619;11;0;0;0;
79;4;613;19;0;0;0;ADJUST'CHAPS UNALLOCATED'
SHEET;520
PROCR;618;STORE STORAGE TABLE & ROUND UP SP CH
NOTES;RADIX;;207
0;;615;4;0;0;0;MR1=0:C
1;5;613;25;0;0;0;
2;91;613;24;0;1;0;
3;34;613;28;0;0;0;BIT 1
4;101;0;8190;1;3;0;FORM MAXIMUM SIZE
5;2;620;8;0;0;0;FOR MATE OF SPECIALS
6;5;620;8;0;0;0;
7;;612;1;0;1;0;TEST CHAP SMALL ENOUGH
8;2;620;8;0;0;0;TO MATE WITH SPECIALS
9;72;618;12;0;0;0;gNO
10;;620;2;0;0;0;PACK BITS INTO
11;37;620;9;0;0;0;MATES PATTERN
12;33;0;0;0;0;1;
13;125;0;1;0;1;0;
14;76;618;7;0;0;0;gNEXT CHAP
15;;612;12;0;0;0;
16;34;620;0;0;0;0;
17;70;618;22;0;0;0;gNO RT 19 PRINTERS
18;10;0;0;0;0;0;CLEAR
19;76;618;21;0;0;0;*FORMED ORDER*(1 SUBTRACTED IF RT 4)
20;101;0;34;1;3;0;50=GP PRINT LENGTH
21;101;0;16;1;1;0;16=SP PRINT S/R LENGTH
22;124;615;4;0;1;0;
23;36;612;0;0;0;0;PRESENT SPECIAL CHAP LENGTH
24;101;0;506;1;2;0;
25;72;618;27;0;0;0;
26;10;0;0;0;0;0;
27;101;0;506;1;1;0;
28;124;615;4;0;1;0;
29;37;612;0;0;0;0;LENGTH AT LEAST 506
30;101;0;40;1;3;0;BULK COPY STORE
31;30;0;0;0;0;5;AVAILABILITY TABLE
32;101;0;0;1;1;0;(30)
33;128;615;54;0;0;0;
34;0;620;0;1;0;0;INSERT END SIGN
35;5;615;52;1;0;0;
36;76;621;0;0;0;0;
SHEET;521
PROCR;619;BREAK UP DETAILS S/R
NOTES;RADIX;;208
0;81;619;0;0;0;0;(A)=PRINTER(CHAPS*LENGTH)
1;32;0;0;0;0;4-;
2;5;615;23;0;1;0;FIRST CHAP
3;33;0;0;0;0;3;
4;5;615;27;0;1;0;SECOND CHAP
5;33;0;0;0;0;1;
6;32;0;0;0;0;3;
7;3;615;22;0;1;0;*FORMED*('TRANSFER'IF SPECIAL) LENGTH
8;5;615;26;0;1;0;
9;82;619;0;0;0;0;
10;5;615;22;0;1;0;LENGTH
11;100;0;0;0;0;0;BIT PATTERN FOR TOT CHAPS ALLOCATED TO D
12;70;617;51;0;0;0;ORDER CONST IN PROCR 205
13;10;0;0;0;0;0;DUMMY
SHEET;522
CONST;620;0;209 CONSTANTS
0;(D)ppppp;
1;ppppp;DIV BDRY COLL CONST
2;1ppp;
3;1-;
4;0;
5;8;
6;0;
7;t;
8;2-;TOTAL SPECIAL SIZE
9;0;MATES PATTERN
SHEET;523
PROCR;621;PREPARE TO ALLOCATE NEXT STRIP
NOTES;RADIX;;210
0;;620;0;0;0;0;TABLE END SIGN pX5 TEST IF LAST STRIP
1;3;613;16;0;0;0;SET UP MIN WASTAGE
2;2;615;54;0;3;0;NEXT STRIP LENGTH
3;71;621;30;0;0;0;gNOT END
4;76;621;5;0;0;0;*SWITCH*
5;76;621;9;0;0;0;(1) ALLOCATING IN 1 STORE ONLY ->REJECT
6;76;621;13;0;0;0;(2)2 STORES:END OF NEG->SECOND STORE
7;76;621;21;0;0;0;(3)2 STORES:END OF BOTH->FIRSTSTORE
8;76;621;9;0;0;0;(4)2 STORES:END OF BOTH->SECOND STORE
9;10;0;0;0;0;53;ALLOC FAILED
10;124;613;24;0;3;0;CODE LETTER C
11;124;0;0;1;0;0;(14)->REJECT ALLOCATION
12;76;621;4;0;0;0;ORDER CONST
13;10;0;0;0;0;0;RESET MR3
14;124;613;24;0;3;0;
15;102;0;30;1;0;0;CLEAR
16;12;0;0;0;0;1;
17;4;621;4;0;0;0;SET SWITCH=3
18;0;613;15;0;0;0;
19;4;622;28;0;0;0;(73->71 ORDER)
20;76;621;30;0;0;0;
21;10;0;0;0;0;0;*FORMED*SET R3 TO ADDRESS SECOND TABLE
22;124;613;24;0;3;0;
23;102;0;30;0;0;0;
24;00;615;54;0;3;0;TEST NO ROOM IN
25;2;620;0;0;0;0;2ND STORE
26;70;621;9;0;0;0;gYES
27;10;0;0;0;0;0;
28;12;0;0;0;0;1;
29;4;621;4;0;0;0;SET SWITCH=4
30;10;0;0;0;0;1;SET UP BIT PATTERN
31;5;613;22;1;0;0;AND ALLOC CONST
32;;613;18;0;0;0;SET UP MR1 SETTING
33;5;613;25;0;0;0;
SHEET;524
PROCR;622;ALLOCATE STRIP FOR MINIMUM WASTAGE
NOTES;RADIX;;211
0;10;0;0;0;0;0;CLEAR
1;34;613;22;0;0;0;VBLE PATTERN
2;36;619;11;0;0;0;ALLOC TO DATE'PATTERN
3;71;622;47;0;0;0;gDISCARD,SOME CHAP ALREADY USED
4;0;613;17;0;0;0;INITIAL CHAPS'PATTERN
5;2;613;19;0;0;0;CHAPS UNALLOCATED'PATTERN
6;72;622;21;0;0;0;gALL SPECIAL CHAPS ALLOCATED
7;10;0;0;0;0;0;
8;36;613;17;0;0;0;INITIAL'PATTERN
9;70;622;47;0;0;0;gDISCARD;CONTAINS SPECIALS ONLY
10;10;0;0;0;0;0;VBLE=OUTSTANDING
11;;613;19;0;0;0;UNALLOC
12;2;613;22;0;0;0;VARIABLE
13;5;615;96;0;0;0;FUTURE PATTERN
14;34;620;9;0;0;0;SUITABLE MATES PATTERN
15;36;615;96;0;0;0;ANY LEFT?
16;71;622;21;0;0;0;gYES,ACCEPTABLE PATTERN
17;34;613;17;0;0;0;INITIAL
18;36;615;96;0;0;0;FUTURE PATTERN
19;2;615;96;0;0;0;FUTURE PATTERN
20;71;622;47;0;0;0;gDISCARD,COULD USE UP SUITABLES
21;10;0;0;0;0;0;
22;5;613;26;1;0;0;CLEAR WL
23;100;613;28;0;2;0;BIT 1=DECODER
24;126;613;24;1;1;0;CHAPS:0
25;36;613;22;0;0;0;VBLE PATTERN
26;70;622;36;0;0;0;gCHAP NOT IN COMBINATION
27;;612;1;0;1;0;LENGTH
28;71;622;32;0;0;0;(73 FIRST TIME 2 STORES)->USE
29;101;0;0;1;3;0;
30;36;620;0;0;0;0;Q1-5(DECODER->A)
31;76;622;48;0;0;0;gSKIP SOME COMBINATIONS
32;5;615;96;1;0;0;
33;;615;96;0;0;0;MODULUS OF LENGTH
34;4;613;26;0;0;0;TOTAL FOR STRIP
35;10;0;0;0;0;0;CLEAR A
36;33;0;0;0;0;1;SHIFT COLLATOR
37;125;0;1;0;1;0;TEST LAST CHAP
38;76;622;25;0;0;0;gNO
39;;615;55;0;3;0;STRIP LENGTH
40;2;613;26;0;0;0;TOTAL CHAP LENGTHS
41;73;622;47;0;0;0;gDISCARD,TOO BIG
42;2;613;16;0;0;0;MIN WASTAGTE
43;72;622;47;0;0;0;gNO IMPROVEMENT
44;4;613;16;0;0;0;UPDATE MIN WASTAGE
45;0;613;22;0;0;0;VBLE PATTERN
46;5;613;29;0;0;0;STORE PATTERN GIVING BEST FIT
47;10;0;0;0;0;1;STEP BIT PATTERN
48;4;613;22;0;0;0;
49;0;613;19;0;0;0;CHAPS UNALLOCATED'PATTERN
50;2;613;22;0;0;0;VBLE PATTERN
51;72;622;0;0;0;0;gTRY AGAIN
52;125;0;2;0;3;0; TEST STRIP UNTOUCHED STEP MR3
53;;613;16;0;0;0;WASTAGE
54;2;620;0;0;0;0;ppppp
55;70;621;0;0;0;0;gYES
56;;615;53;0;3;0;LENGTH OF NEW STRIP
57;2;613;16;0;0;0;
58;5;613;26;0;0;0;
59;2;613;29;0;0;0;
60;4;613;19;0;0;0;UPDATE'CHAPS UNALLOCATED'
61;0;613;29;0;0;0;
62;4;619;11;0;0;0;UPDATE'CHAPS ALLOCATED'
63;10;0;0;0;0;0;CLEAR A
SHEET;525
PROCR;623;SET UP DETAILS OF REDUCED STRIP+START OF
NOTES;RADIX;;212 ALLOC IN STRIPS
0;100;620;2;0;2;0;
1;36;615;52;0;3;0;
2;70;623;9;0;0;0;gSTRIP BEGIN=DIV BEGIN
3;1;615;53;0;3;0;TEST STRIP END 
4;2;620;2;0;0;0;IS DIV END 
5;73;623;9;0;0;0;gNO,ALLOC FROM STRIP START
6;;613;16;0;0;0;MIN WASTAGE
7;5;613;23;0;0;0;
8;76;623;10;0;0;0;INDICATOR 
9;;613;26;0;0;0;STORE NEW STRIP LENGTH 
10;1;615;52;0;3;0;START AND END STRIP START
11;5;615;96;0;0;0;NEW STRIP START
12;;613;16;0;0;0;
13;5;615;97;0;0;0;STRIP LENGTH
14;;613;23;0;0;0;STORE ALLOC START MIN WASTAGE OR 0
15;1;615;52;0;3;0;
16;5;613;23;0;0;0;ALLOC START
17;10;0;0;0;0;0;DUMMY
SHEET;526
PROCR;624;ALLOCATE CHAPS IN THIS STRIP
NOTES;RADIX;;213
0;126;613;24;1;1;0;CHAPS;0
1;126;614;18;1;2;0;NEVER RUNS OUT
2;100;613;28;0;2;0;BIT 1=DECODER
3;36;613;29;0;0;0;PATTERN=MOST FAVOURABLE ALLOC IN STRIP
4;70;624;19;0;0;0;gTHIS CHAP NOT IN STRIP
5;00;612;1;0;1;0;LENGTH(+-)
6;5;615;94;1;0;0;
7;;613;23;0;0;0;
8;3;615;20;0;2;0;CHAP START 
9;1;615;94;0;0;0;MODULUS OF CHAP LENGTH 
10;3;615;21;0;2;0;CHAP END 
11;5;613;23;0;0;0;NEW ALLOC START 
12;124;613;24;0;3;0;
13;106;0;28;0;0;0;R2 MODIFER=CHAP-2 
14;2;615;17;0;0;0;CHAPS INITIALLY 
15;72;624;24;0;0;0;gTHIS IS A SPECIAL CHAPTER 
16;1;615;17;0;0;0;
17;102;613;27;0;0;0;(MAX NORMAL CHAP IN STRIP)-2 
18;5;612;1;0;1;0;CLEAR CHAP DETAILS 
19;33;0;0;0;0;1;SHIFT DECODER BIT 
20;125;0;2;0;2;0;
21;125;0;1;0;1;0;
22;76;624;3;0;0;0;gNEXT CHAP 
23;76;626;0;0;0;0;gNOW SORT REMAINDER OF STRIP 
24;;612;1;0;1;0;SPECIAL CHAP LENGTH(ALWAYS>0) 
25;124;613;27;0;0;0;
26;107;615;21;0;0;0;STEP END OF LAST NORMAL CHAP STRIP 
27;5;615;20;0;2;0;CHAP 
28;;613;27;0;0;0;
29;101;0;2;1;1;0;
30;5;615;21;0;2;0;STORE ASSOC CHAP FOR THIS SPECAIL 
31;76;624;18;0;0;0;gNEXT CHAP 
SHEET;527
PROCR;625;ADJUST NO OF CHAPS 
NOTES;RADIX;;214
SHEET;528
PROCR;626;SORT REDUCED STRIP AVAILABILITY,TEST ALL ALLOC 
NOTES;RADIX;;215
0;124;613;24;0;3;0;;SET MR2 
1;106;0;30;0;0;0;;NEVER RUNS OUT 
2;124;613;24;0;3;0;
3;102;0;28;1;0;0;;TEST NEW STRIP 
4;;615;97;0;0;0;;OF LENGTH ZERO 
5;71;626;15;0;0;0;gNO 
6;125;0;4098;0;3;0;
7;76;626;9;0;0;0;gIN CASE IT RUNS OUT 
8;10;0;0;0;0;0;DUMMY 
9;;615;54;1;2;0;MOVE NEXT ITEM DOWN 
10;3;615;52;1;2;0;
11;2;620;0;1;0;0;TEST END 
12;70;626;26;0;0;0;gYES 
13;125;0;2;0;2;0;STEP MR2 
14;76;626;9;0;0;0;gNEXT ITEM 
15;;615;50;1;2;0;FIND CORECT PLACE ;INSERT NEW STRIP 
16;2;615;96;1;0;0;;IN CORRECT PLACE 
17;73;626;24;0;0;0;gFOUND 
18;1;615;96;1;0;0;
19;3;615;52;1;2;0;
20;2;620;0;1;0;0;TEST END 
21;70;626;24;0;0;0;gYES 
22;125;0;4098;0;2;0;
23;76;626;15;0;0;0;
24;;615;96;1;0;0;INSERT NEW ITEM 
25;5;615;52;1;2;0;
26;0;613;19;0;0;0;CHARS UNALLOCATED'PATTERN 
27;71;621;0;0;0;0;gTRY AGAIN 
28;10;0;0;0;0;0;
29;5;615;16;0;0;0;CLEAR W/L 
SHEET;529
PROCR;627;ALLOCATION SUCCESSFUL-CALC RELATIVE START OF SPECIAL CHAPS 
NOTES;RADIX;;216 AND STORE PARAS FOR PTS 
0;;615;17;0;0;0;
1;4;620;7;0;0;0;
2;4;620;6;0;0;0;
3;126;615;16;1;1;0;R1=INIT CHAPS:0 
4;126;620;6;1;3;0;R3=10+INIT CHAPS:INIT CHAPS 
5;106;615;21;0;1;0;CHAP END 
6;105;615;20;0;1;0;CHAP START 
7;102;613;17;0;0;0; =CHAP LENGTH 
8;106;615;21;0;3;0;2X CHAP OF NEXT SPECIAL 
9;124;613;24;0;3;0;
10;105;0;26;0;0;0;-R1 MODIFIER 
11;101;0;2;1;2;0;
12;71;627;17;0;0;0;gNEXT SPEC CHAP NOT WITH THIS CHAP 
13;106;613;17;0;0;0;FORM SPECAL CHAPS 
14;105;615;20;0;3;0;RELATIVE START 
15;3;613;17;0;0;0;RESET CHAP END SIGN 
16;102;615;30;0;3;0;REL START THIS SPECIAL CHAP 
17;125;0;2;0;3;0;STEP MR3 
18;76;627;8;0;0;0;gNEXT SPEC CHAP 
19;125;0;2;0;1;0;STEP MR1 
20;76;627;4;0;0;0;gNEXT CHAP 
21;106;615;11;0;3;0;2X CHAP OF PTS=FIRST SPECIAL CHAP 
22;70;628;0;0;0;0;gNO PTS 
23;103;613;17;0;0;0;
24;30;0;0;0;0;4;
25;124;613;24;0;3;0;STORE CH NO IN PARAMETER 45 
26;102;0;43;0;0;0;PARAMETER 
27;124;613;17;0;1;0;
28;106;615;18;0;0;0;FORM CHAP START 
29;104;615;20;0;3;0;FOR PTS 
30;124;613;17;0;0;0;
31;103;615;19;0;0;0;STORE NEW CHAP END 
32;124;613;24;0;3;0;STORE PTS CHAP START 
33;107;0;43;0;0;0;
SHEET;530
PROCR;628;PREPARE TO CALL NEXT CHUNK 
NOTES;RADIX;;
0;124;615;17;0;1;0;START OF SPECIAL CHAP 
1;106;615;18;0;0;0;CHAP 
2;3;614;18;0;0;0;
3;101;0;54;1;1;0;SP CHAP START+52 
4;124;614;19;0;3;0;
5;103;0;28;0;0;0;SET HR2 
6;124;614;19;0;3;0;
7;103;0;5;0;0;0;SET PARAS 9 
8;124;614;19;0;3;0;
9;102;0;0;0;0;0;(6)LOAD CHAP SR LINK 
10;124;614;18;0;3;0;
11;101;0;0;1;3;0;
12;124;614;19;0;3;0;
13;103;0;2;0;0;0;CHAP START PARA 
14;101;0;54;1;1;0;
15;124;614;19;0;3;0;CHUNK START PARA
16;102;0;1;0;0;0;
17;10;0;0;0;0;0;DUMMY
SHEET;531
PROCR;629;PREPARE 1 OR 2 MOVES
NOTES;RADIX;;218 X=TABLE Y=SPEC Z=1ST CHAP STARTS
0;124;615;94;0;2;0;END OF ALL DATA
1;2;614;18;0;0;0;SPECIAL CHAP START
2;73;629;5;0;0;0;g OK PROVISIONALLY ) SPECIAL STARTS TOO LAT
3;101;0;170;1;2;0;(PROBABLY 164 OK)
4;73;629;10;0;0;0;g DOUBLE MOVE NEEDED
5;124;615;94;0;2;0;DATA END
6;2;615;20;0;0;0;CHAP 1 START
7;73;629;30;0;0;0;g OK, SINGLE MOVE
8;101;0;156;1;2;0;
9;72;629;30;0;0;0;g OK, SINGLE MOVE
10;101;0;250;1;3;0;ADJUST ORDERS
11;34;620;2;0;0;0;
12;36;614;18;0;0;0;
13;101;614;4;1;2;0;
14;4;614;4;0;0;0;TO WORK IN MIDDLE
15;4;614;7;0;0;0;OF SPECIAL GROUP
16;5;629;2;0;0;0;
17;2;629;2;0;0;0;
18;4;614;5;0;0;0;ADJUST NEGATIVE ORDERS
19;4;614;8;0;0;0;
20;4;614;11;0;0;0;
21;;614;18;0;0;0;ADJUST T/E
22;101;0;250;1;1;0;
23;4;614;14;0;0;0;
24;4;614;16;0;0;0;
25;124;614;4;0;2;0;FORM BULK COPY T/E
26;32;0;0;0;0;5-;
27;101;0;110;1;1;0;AMOUNT OF DATA
28;32;0;0;0;0;5;> MORE DETAILS YET
29;76;614;0;0;0;0;
30;124;614;4;0;2;0;ADJUST ORDERS TO
31;4;614;14;0;0;0;PRODUCE 15 BIT T/E's
32;4;614;16;0;0;0;
33;76;614;4;0;0;0;
34;100;0;0;0;0;0;
35;100;0;0;0;0;0;
36;100;0;0;0;0;0;
37;100;0;0;0;0;0;
38;100;0;0;0;0;0;
39;100;0;0;0;0;0;
40;100;0;0;0;0;0;
41;100;0;0;0;0;0;
SHEET;532
PROCR;630;300 START OF ALLOC ROUTES
NOTES;RADIX;;FIRST LOCN=54 OF SPECIAL CHAP
0;106;0;10;0;0;0;ALLOC COMMAND
1;32;0;0;0;0;2-;
SHEET;533
PROCR;631;
NOTES;RADIX;;302
0;12;0;0;0;0;1;
1;71;631;6;0;0;0;g NO ALT RTES
2;35;0;0;0;0;11;
3;37;645;6;0;0;0;EAR 
4;37;636;22;0;0;0;ORM 
5;37;638;1;0;0;0;FORM 1/1/1
6;101;0;0;1;3;0;(32)
7;71;631;14;0;0;0;g MORE THAN 8 CHANNELS
8;;645;26;1;0;0;
9;5;645;14;1;0;0;
10;;641;7;0;0;0;SET S/R FOR
11;5;641;4;0;0;0;8 CHANNELS
12;;645;10;1;0;0;M/R CONSTANTS
13;5;645;8;1;0;0;
14;101;0;2;1;3;0;
15;32;0;0;0;0;10-;
16;115;0;10;0;0;0;
17;70;631;25;0;0;0;gFORWARD ALLOC
18;;645;8;1;0;0;RESET MRS
19;5;645;2;1;0;0;
20;;645;10;1;0;0;
21;5;645;4;1;0;0;
22;101;0;4096;1;2;0;ADJUST STEP MR
23;4;642;5;0;0;0;VALUE
24;76;631;27;0;0;0;gLEAVE R IN COMMENT
25;35;0;0;0;0;1100;
26;37;645;6;1;0;0;CLEAR R
27;106;0;11;0;0;0;
28;71;631;31;0;0;0;gTRIALS
29;35;0;0;0;0;110000;LETE 
30;37;645;6;1;0;0;FOR NO TRIALS
31;106;0;12;1;0;0;PROG ID >SERIAL
32;5;630;0;1;0;0;>WL
33;76;635;0;0;0;0;
SHEET;534
CONST;632;1;303  CONSTANTS
0;(A)ALLOC;
2;(D)5.7:000000;LE + NE
4;1;
6;16;
8;256;
10;4096;
12;65536;
SHEET;535
PROCR;633;DUMMY PROCEDURE 970
NOTES;RADIX;;304
SHEET;536
PROCR;634;EDIT TABLE
NOTES;RADIX;;305
0;100;635;5;0;0;0;
1;100;0;5;0;2;0;DIV NO
2;100;635;0;0;0;0;
3;116;0;4101;0;0;0;1/0/0/5  ADDRESS IN DIVISION
4;100;632;0;0;0;0;ALLOC
5;101;0;5;0;0;0;
6;100;630;0;0;0;0;PROG ID
7;100;0;53;0;0;0;
8;100;630;1;0;0;0;PROG SERIAL
9;100;0;21;0;0;0;
10;100;0;0;0;0;0;(29) RUN NUMBER
11;100;0;21;0;0;0;
12;100;645;6;0;0;0;M
13;101;0;305;0;0;0;
14;100;645;6;0;0;0;T/N/R
15;117;0;563;0;0;0;2/3/3
SHEET;537
PROCR;635;FORM ALLOC COMMENT
NOTES;RADIX;;306
0;101;0;0;1;3;0;
1;101;0;1;1;2;0;
2;4;634;10;0;0;0;
3;124;634;4;0;2;0;TABLE START
4;124;0;20;0;3;0;
5;128;0;0;1;2;0;
6;101;0;16;1;3;0;CHAP 1 LOCATION
7;104;0;20;0;0;0;
8;5;633;12;0;0;0;
9;126;0;16;1;1;0;CHAPS:0
10;100;645;12;0;3;0;
11;106;0;20;0;1;0;BREAK UP CHAP
12;32;0;0;0;0;4-;START INTO
13;33;0;0;0;0;3;DIV NO AND
14;5;635;5;0;0;0;START WITHIN DIV
15;33;0;0;0;0;13;
16;5;635;0;0;0;0;
17;124;632;4;0;2;0;CONVERT CHAP START
18;112;635;0;0;0;0;TO DECIMAL
19;102;635;0;0;0;0;W/L
20;124;634;0;0;2;0;
21;124;633;12;0;3;0;DEST IN CHAP 1
22;128;0;0;1;2;0;EDIT CHAP START
23;100;632;2;0;3;0;RESET BINARY
24;101;0;4;1;3;0;
25;4;633;12;0;0;0;
26;125;0;2;0;1;0;
27;76;635;10;0;0;0;gNEXT CHAP
28;101;0;7805;1;3;0;TRANSFER L/E
29;124;0;20;0;3;0;AND N/E TO
30;103;0;14;1;0;0;
31;124;633;12;0;3;0;AND SECOND
32;102;0;0;1;0;0;LINES
33;124;633;4;0;2;0;SET UP IND MODS
34;5;638;22;0;0;0;AT 15 BIT ADDRESS
35;5;633;0;0;0;0;
36;124;633;16;0;2;0;
37;5;642;6;0;0;0;
38;80;641;0;0;0;0;SET ASL'S POSITIVE S/R
39;124;0;20;0;2;0;COPY 30 LOCNS FROM START OF CHAP 1
40;104;0;17;0;0;0;
41;32;0;0;0;0;5-;
42;101;0;30;1;1;0;
43;32;0;0;0;0;5;
44;128;633;18;0;0;0;BULK COPY SPEC CHAPS
45;106;0;11;0;0;0;TRIALS ALLOC' IND
46;70;635;51;0;0;0;gNO
47;10;0;0;0;0;0;(28)PTS IN MASTER?
48;70;635;51;0;0;0;gYES
49;10;0;0;0;0;0;(26)PTS PRINTS ON-LINE?
50;71;635;53;0;0;0;gYES(ALLOW SEARCH)
51;;635;50;0;0;0;SET INDICATOR
52;5;645;13;0;0;0;NON ZERO
53;;633;21;0;0;0;ROUTE 19'INDICCATOR
54;124;0;20;0;3;0;(2)
55;103;0;122;0;0;0;SET IND IN CHAP 1
56;70;636;0;0;0;0;gPRINT SR NOT NEEDED
57;101;0;8191;1;3;0;
58;32;0;0;0;0;10-;
59;106;0;15;0;0;0;
60;124;0;17;0;1;0;LOCATION OF PRINT S/R
61;115;0;18;0;0;0;
62;124;633;0;0;3;0;
63;102;0;5;0;0;0;
SHEET;538
PROCR;636;MAIN LOOP DEAL WITH TX AND FILES
NOTES;RADIX;;307
0;126;633;0;1;1;0;SET MRS 0/0
1;101;0;8;1;3;0;
2;5;633;1;0;0;0;
3;126;633;0;1;3;0;SET MR3 FOR SPECIAL CHAPS
4;106;0;5;0;0;0;TEST NO OF ROUTES
5;70;638;20;0;0;0;gNO ROUTES
6;5;633;1;0;0;0;
7;126;633;0;1;2;0;0/NO OF ROUTES
8;124;645;1;1;2;0;FORM INDIRECT
9;124;0;4;0;2;0;MODIFIER FOR
10;3;633;4;0;0;0;UNPACKING ALLOC
11;101;0;48;1;1;0;ROUTES CD
12;5;633;5;0;0;0;
13;124;633;0;0;3;0;
14;126;0;0;0;0;0;(7)>READ NEXT BLOCK
15;101;0;12;1;3;0;UNPACK NEXT PIECE FORM T/E
16;30;0;0;0;0;5;
17;1;633;4;0;0;0;
18;11;0;0;0;0;1;
19;128;633;6;1;0;0;UNPACK DETAIL
20;80;640;0;0;0;0;FIND ASL FOR ROUTE >SEARCH ASL'S S/R
21;125;0;1;0;1;0;STEP MR1
22;101;0;128;1;3;0;(1/1/3 0 IF ALT ALLOC)
23;1;633;11;0;0;0;REQD AND ALLOWED 
24;71;637;0;0;0;0;gNO ROUTES
25;80;640;0;0;0;0;FIND ASL FOR ALT ROUTE >SEARCH ASL'S S/R
26;76;637;7;0;0;0;gFORM FILE DETAIL
SHEET;539
PROCR;637;MAIN LOOP PART 2 FILE DETAILS AND COMMENT
NOTES;RADIX;;308
0;;633;7;0;0;0;TEST PSEUDO RTE
1;02;645;0;0;0;0;
2;71;637;5;0;0;0;gNO
3;103;0;34;0;1;0;CLEAR TOP HALF
4;76;638;10;0;0;0;gDEAL WITH TX AREAS FROM UP FILE DETAIL
5;101;0;128;1;3;0;(32)
6;102;0;34;0;1;0;ALT ROUTE
7;35;0;0;0;0;11;PLACE ALT RTE
8;115;0;34;0;1;0;IN Q3,4
9;32;0;0;0;0;2;
10;114;0;33;0;1;0;
11;35;0;0;0;0;11;FORM COMMENT 
12;10;0;0;0;0;0;CLEAR A
13;115;0;33;0;1;0;IN CHAPTER 1 
14;102;633;1;0;0;0;STORE FOR PRINTER
15;106;633;7;0;0;0;IF PRINTER RTE TYPE
16;101;0;4;1;2;0;
17;70;637;20;0;0;0;gPRINTER
18;101;0;5;1;2;0;
19;71;637;22;0;0;0;gNOT PRINTER
20;106;633;1;0;0;0;STORE RTE NO
21;103;645;13;0;0;0;
22;106;633;1;0;0;0;
23;80;644;0;0;0;0;gCHANNEL/ROUTE S/R
24;102;633;50;1;0;0;RTES
25;124;633;4;0;3;0;STORE FILE IDENTITY
26;106;0;0;1;0;0;
27;102;633;52;1;0;0;FILE IDENTITY
28;101;0;3;0;1;0;
29;115;0;34;0;1;0;
30;80;644;0;0;0;0;gCHANNEL RTE S/R
31;30;0;0;0;0;0;///// DUMMY ORDER
32;5;633;54;1;0;0;EDIT RTE DETAIL
33;35;0;0;0;0;1111;PACK FILE IDENT
34;106;633;52;1;0;0;INTO FILE DETAIL
35;114;0;34;0;1;0;
36;101;0;0;1;1;0;DUMMY ORDER
37;124;646;0;0;2;0;
38;124;633;12;0;3;0;
39;128;0;2;1;2;0;
SHEET;540
PROCR;638;MAIN LOOP PART 3 SET UP TX AND ANNEXES
NOTES;RADIX;;309
0;;633;11;0;0;0;
1;101;0;128;1;1;0;(1/1/1/ 0 IF ALT ALLOC)
2;70;638;8;0;0;0;gALT RTES REQD
3;10;0;0;0;0;65;
4;30;0;0;0;0;2;
5;35;0;0;0;0;111111;
6;124;633;12;0;3;0;
7;114;0;4;1;0;0;
8;10;0;0;0;0;4;
9;4;633;12;0;0;0;
10;124;633;9;0;1;0;
11;106;0;18;0;0;0;CHAP START
12;1;633;8;0;0;0;ANNEXE START
13;103;0;65;0;1;0;
14;12;0;0;0;0;2;
15;1;633;10;0;0;0;ANNEXE LENGTH
16;102;0;66;0;1;0;
17;125;0;1;0;1;0;STORE LOCATION
18;125;0;1;0;2;0;NO OF ROUTES
19;76;638;21;0;0;0;gNEXT ROUTE
20;76;638;25;0;0;0;*SWITCH*DO TX AREAS NEXT, OR END
21;123;0;12;0;0;0;*STEP BY 12=ROUTES, 6=TX AREAS*
22;100;633;4;0;0;0;
23;76;636;15;0;0;0;gUNPACK NEXT PIECE
24;76;636;8;0;0;0;gREAD NEXT BLOCK
25;;633;19;0;0;0;TEST RTE 7 REQUIRED
26;70;638;45;0;0;0;gNO
27;;645;14;1;0;0;SYNTHETIC ALLOC DETAILS FOR PTS ROUTE
28;102;0;34;1;1;0;STORE LOCATION
29;102;0;66;1;1;0;CLEAR ASL START/END
30;125;0;2;0;1;0;
31;;645;13;0;0;0;
32;71;638;59;0;0;0;gPRINTER FOUND
33;106;0;14;0;0;0;SET UP PRINTER ROUTE TYPE
34;11;0;0;0;0;9;
35;3;633;7;0;0;0;
36;5;633;11;0;0;0;AND ALT ROUTE DETAIL
37;10;0;0;0;0;1;STEP
38;107;0;5;0;0;0;
39;125;0;4097;0;2;0;PREPARE TO ENTER MAIN LOOP AGAIN
40;124;646;6;0;2;0;ADDRESS OF CONST 'PTS'
41;5;633;4;0;0;0;
42;;638;63;0;0;0;ARRANGE EXIT AFTER
43;5;638;20;0;0;0;ALLOCATING ROUTES
44;76;636;20;0;0;0;g
45;10;0;0;0;0;6;PREPARE FOR TX AREAS
46;4;638;21;0;0;0;CHANGE STEP ACTION
47;101;0;12;1;2;0;
48;4;636;15;0;0;0;CHANGE UNPACK ACTION
49;11;0;0;0;0;4;
50;4;636;19;0;0;0;CHANGE END SEQUENCE ADDRESS
51;;638;62;0;0;0;
52;5;638;20;0;0;0;SET UP PSEUDO ROUTE
53;;645;0;0;0;0;SET UP PSEUDO
54;3;633;7;0;0;0;ROUTE AND ALT ROUTE
55;5;633;11;0;0;0;DUMMY
56;10;0;0;0;0;0;
57;106;0;6;0;0;0;
58;76;636;5;0;0;0;gTX AREAS
59;10;0;0;0;0;1;
60;107;0;5;0;0;0;
61;76;638;45;0;0;0;gPREPARE FOR TX'S
62;76;639;0;0;0;0;gAFTER FINISHING TX'S
63;76;638;59;0;0;0;
SHEET;541
PROCR;639;END ROUTINE
NOTES;RADIX;;310
0;106;0;5;0;0;0;FORM 2*(TX+FILES)
1;104;0;6;0;0;0;
2;30;0;0;0;0;5;
3;70;640;65;0;0;0;gREJECT D
4;103;0;18;1;0;0;
5;107;0;18;1;0;0;
6;124;0;98;0;2;0;
7;124;633;0;0;3;0;
8;103;0;28;1;0;0;R2
9;124;633;0;0;3;0;(6)SR LINK
10;103;0;0;0;0;0;
11;101;0;44;1;3;0;
12;124;633;0;0;3;0;
13;107;0;1;0;0;0;(3)STEP PARA 1
14;10;0;0;0;0;1.1.;
15;124;633;12;0;3;0;
16;102;0;2;1;0;0;
17;101;0;0;1;3;0;(3)PARA TABLE START
18;124;633;0;0;3;0;
19;124;0;1;1;0;0;(6)>LOAD NEXT CHAPTER
SHEET;542
PROCR;640;SEARCH ASL'S ALLOWING FOR FUNNY ROUTE TYPES
NOTES;RADIX;;311
0;81;640;0;0;0;0;
1;00;642;11;0;0;0;PREPARE FOR SEARCH
2;05;642;3;0;0;0;ASL'S S/R
3;00;633;9;0;0;0;TEST RTE TYPE 19
4;72;640;29;0;0;0;gNO
5;;633;7;0;0;0;TEST PSEUDO ROUTE
6;2;645;0;0;0;0;
7;70;640;11;0;0;0;
8;106;0;14;0;0;0;SET UP PRINTER RTE
9;101;0;9;1;1;0;TYPE
10;5;633;7;0;0;0;
11;;633;20;0;3;0;
12;71;640;21;0;0;0;CHAP DETAILS
13;125;0;2;0;3;0;
14;76;640;11;0;0;0;
15;125;0;4098;0;3;0;NO MORE TX'S
16;101;0;1;1;2;0;
17;102;0;34;1;1;0;
18;102;0;66;1;1;0;
19;125;0;2;0;1;0;
20;76;638;18;0;0;0;
21;5;633;10;0;0;0;LENGTH
22;;633;21;0;3;0;
23;5;633;9;0;0;0;CHAP
24;;633;30;0;3;0;
25;5;633;8;0;0;0;ANNEXE START
26;125;0;2;0;3;0;
27;76;640;49;0;0;0;gTRY AND ALLOC
28;76;640;49;0;0;0;
29;106;633;7;0;0;0;
30;101;0;14;1;2;0;TEST RTE TYPE 14
31;71;640;35;0;0;0;gNO
32;106;0;14;0;0;0;SET UP PRINTER
33;101;0;9;1;1;0;RTE TYPE OF
34;5;633;7;0;0;0;MACHINE
35;;633;7;0;0;0;TEST RTE TYPE 15
36;101;0;15;1;2;0;
37;71;640;52;0;0;0;gNO
38;101;0;5;1;3;0;(33)PREFERRED ROUTE 5/6
39;03;633;7;0;0;0;
40;103;0;15;0;0;0;STORE RTE TYPE
41;12;0;0;0;0;5;STOP ALT ROUTE
42;70;640;44;0;0;0;IF RTE TYPE 6
43;05;633;11;0;0;0;
44;80;641;0;0;0;0;gSEARCH ASL'S S/R
45;101;0;6;1;3;0;TRY OTHER RTE
46;101;0;0;1;2;0;(33)0/1
47;03;633;7;0;0;0;
48;103;0;15;0;0;0;STORE RTE TYPE
49;12;0;0;0;0;5;STOP ALT RTE
50;70;640;52;0;0;0;IF RTE TYPE 6
51;05;633;11;0;0;0;
52;80;641;0;0;0;0;SEARCH ASL'S
53;;633;7;0;0;0;TEST RTE TYPES 7,8,11
54;80;643;0;0;0;0;gTEST S/R
55;71;640;59;0;0;0;gNO
56;;642;10;0;0;0;SEARCH FOR 7,8,11
57;5;642;3;0;0;0;
58;80;641;0;0;0;0;gSEARCH ASL'S S/R
59;;633;7;0;0;0;TEST PSEUDO ROOT
60;2;645;0;0;0;0;
61;71;640;65;0;0;0;gNO
62;;642;9;0;0;0;SEARCH ALL ASL'S
63;5;642;3;0;0;0;
64;80;641;0;0;0;0;gSEARCH ASL'S
65;;642;12;0;0;0;
66;5;642;3;0;0;0;
67;80;641;0;0;0;0;
68;10;0;0;0;0;54;'D'
69;124;633;0;0;3;0;
70;124;0;0;1;0;0;(14)>REJECT ALLOCATION
71;124;633;16;0;3;0;SETUP DETAIL
72;106;0;0;0;0;0;
73;2;645;0;0;0;0;STORE RTE TYPE 0
74;70;640;76;0;0;0;IF A PSEUDO ROUTE
75;1;645;0;0;0;0;RTE TYPE
76;30;0;0;0;0;4;IN QS
77;1;633;16;0;0;0;RTE NO IN Q1,2
78;101;0;64;1;2;0;
79;102;0;34;0;1;0;
80;124;633;16;0;3;0;SET ASL NEGATIVE
81;105;0;0;0;0;0;
82;124;633;16;0;3;0;
83;102;0;0;0;0;0;
84;82;640;0;0;0;0;
SHEET;543
PROCR;641;SEARCH ASL'S S/R
NOTES;RADIX;;312
0;81;641;0;0;0;0;
1;;645;2;1;0;0;SET UP INDIRECT
2;5;633;16;1;0;0;MODIFIER 64-128
3;80;642;0;0;0;0;gSEARCH ASL'S
4;;645;4;1;0;0;SET UP INDIRECT
5;5;633;16;1;0;0;MODIFIER 192-240
6;80;642;0;0;0;0;gSEARCH ASL'S
7;82;641;0;0;0;0;
SHEET;544
PROCR;642;SEARCH ASL'S S/R
NOTES;RADIX;;313
0;81;642;0;0;0;0;
1;124;633;16;0;3;0;SELECT ASL
2;106;0;0;0;0;0;
3;76;642;13;0;0;0;*****SWITCH ORDER
4;70;640;71;0;0;0;gFOUND
5;123;0;1;0;0;0;STEP IND MOD
6;100;633;16;0;0;0;
7;76;642;1;0;0;0;
8;82;642;0;0;0;0;gLEAVE S/R
9;30;0;0;0;0;1-;TEST RTE TYPES <15
10;80;643;0;0;0;0;TEST 7,8,11
11;2;633;7;0;0;0;TEST REQUIRED TYPE
12;76;642;13;0;0;0;
13;72;642;5;0;0;0;MAKE ASL POSITIVE
14;5;633;52;0;0;0;IF NEGATIVE
15;2;633;52;0;0;0;
16;124;633;16;0;3;0;
17;102;0;0;0;0;0;
18;76;642;5;0;0;0;gNEXT ASL
SHEET;545
PROCR;643;TEST 7,8,11 S/R
NOTES;RADIX;;314
0;81;643;0;0;0;0;
1;12;0;0;0;0;7;TEST 7,8,11 S/R
2;70;643;6;0;0;0;gYES
3;12;0;0;0;0;1;TEST 8
4;70;643;6;0;0;0;gYES
5;12;0;0;0;0;3;TEST 11
6;82;643;0;0;0;0;LEAVE S/R
SHEET;546
PROCR;644;CHANNEL/ROUTE S/R
NOTES;RADIX;;315
0;81;644;0;0;0;0;
1;32;0;0;0;0;1-;DIVIDE BY 8
2;33;0;0;0;0;1;
3;101;0;10;1;2;0;CONVERT CHANNEL
4;73;644;6;0;0;0;BINARY>DECIMAL
5;101;0;6;1;1;0;
6;101;0;10;1;1;0;
7;118;0;1;0;3;0;SPLIT UP CHANNEL
8;33;0;0;0;0;3;AND ROUTE
9;82;644;0;0;0;0;gLEAVE S/R
SHEET;547
CONST;645;0;316 MAIN LOOP CONSTANTS
0;(D)pppp;
1;(B)64-;
2;64;
3;128;
4;192;
5;240;
6;(D)36965;' MTRN'
7;647;
8;(B)240;
9;192;
10;128;
11;64;
12;(D)66666;
13;;
14;74000;(24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
15;70740-;
16;;
17;;
18;;
19;;
20;;
21;;
22;;
23;;
24;;
25;;
26;78000;
27;70780-;(24)SYNTHETIC ALLOC DETAILS FOR PROG TAP
SHEET;548
PROCR;646;MORE EDIT TABLES IN DISGUISE
0;100;633;52;0;0;0;FILE IDENTITY
1;101;0;515;0;0;0;2/0/3
2;100;633;50;0;0;0;RTE NO
3;100;0;4627;0;0;0;1/2/1/3
4;100;633;54;0;0;0;ALT RTE
5;116;0;4611;0;0;0;1/2/0/3
6;107;0;4978;0;3;0;)CONST 'PTS'
7;100;0;6;0;0;0;)
SHEET;549
PROCR;647;DUMMY PROCEDURE
NOTES;RADIX;;401
SHEET;550
PROCR;648;ALLOC TAG/FP/MG
NOTES;RADIX;;402 FIRST LOCN=98 OF SPECIAL CHAPTER
0;35;0;0;0;0;0;CLEAR B
1;124;0;20;0;1;0;(2)
2;101;0;0;1;3;0;13-BIT START CHAP 1
3;4;655;17;0;0;0;GET ADDRESS CORRECT
4;4;656;51;0;0;0;
5;5;648;0;0;0;0;WL
6;2;648;0;0;0;0;
7;4;655;15;0;0;0;
8;4;655;18;0;0;0;
9;4;655;20;0;0;0;
10;4;656;49;0;0;0;
11;4;656;52;0;0;0;
12;4;656;54;0;0;0;
13;10;0;0;0;0;0;DUMMY
14;101;0;2;1;3;0;(4)TEST>5 TAGS
15;101;0;0;1;2;0;(29)
16;70;648;20;0;0;0;gNO
17;124;657;0;0;3;0;SELECT AND SHIFT
18;106;0;1;0;0;0;LAST 5 TAGS
19;30;0;0;0;0;5;
20;124;657;0;0;3;0;FORMER TAG AVAILABILITY
21;104;0;0;0;0;0;
22;05;657;16;1;0;0;
23;106;0;9;0;0;0;FORM INITIAL ENTRY
24;104;0;9;0;0;0;POINT
25;107;648;26;0;0;0;=INITIAL CHAP
26;106;0;18;0;0;0;START+RELATIVE
27;104;0;8;0;0;0;ENTRY POINT
28;102;0;8;0;0;0;
29;;657;16;1;0;0;
30;70;648;61;0;0;0;gNO TAG AVAILABLE
31;32;0;0;0;0;1-;
32;05;657;16;1;0;0;
33;74;648;29;0;0;0;gTAG NOT FOUND YET
34;32;0;0;0;0;1;
35;103;0;10;0;0;0;ALLOC TAG
36;;657;16;1;0;0;RESIDUE
37;124;0;10;0;0;0;ALLOC TAG
38;118;0;0;0;0;0;
39;05;657;16;1;0;0;NEW TAG AVAILABILITY WORD
40;106;0;0;0;0;0;FP WANTED
41;70;648;46;0;0;0;gNO
42;124;657;0;0;3;0;
43;123;0;128;0;3;0;A*TAG
44;101;0;14;1;2;0;
45;71;648;59;0;0;0;gNOT AVAILABLE
46;126;657;14;1;3;0;24:0
47;106;0;1;0;0;0;MOD GROUP REQUIRED
48;71;648;52;0;0;0;gYES
49;124;0;20;0;3;0;START OF CHAP 1
50;102;0;10;1;0;0;CLEAR M IN ALLOC COMMENT
51;76;648;72;0;0;0;
52;124;657;0;0;3;0;
53;124;0;30;0;3;0;R3 MODIFIER
54;123;0;10;0;3;0;R2 TAG FOR EACH MOD GROUP
55;101;0;14;1;2;0;
56;70;648;65;0;0;0;gAVAILABLE
57;125;0;8;0;3;0;
58;76;648;52;0;0;0;
59;101;0;0;1;3;0;
60;101;0;1;1;2;0;A=NO FP/MG
61;101;0;3;1;2;0;B=NO TAB
62;101;0;85;1;1;0;E=NO 90K MATCH
63;124;657;0;0;3;0;(14)>REJECT ALLOCATION
64;124;0;0;1;0;0;>REJECT ALLOCATION
65;124;657;0;0;3;0;
66;106;0;30;0;0;0;R3 MODIFIER
67;31;0;0;0;0;1;
68;30;0;0;0;0;1-;DIVIDE BY 8
69;11;0;0;0;0;1;
70;124;0;20;0;3;0;START OF CH 1
71;107;0;10;1;0;0;SET MOD GROUP IN ALLOC COMMENT
72;102;0;1;0;0;0;
73;106;0;10;0;0;0;AUGMENT TAG TO
74;101;0;64;1;1;0;COMMENT
75;118;0;6;0;0;0;
76;124;0;20;0;3;0;
77;107;0;10;1;0;0;
78;101;0;0;1;3;0;DUMMY
SHEET;551
PROCR;649;45/90K CHUNK
NOTES;RADIX;;403
0;106;0;5;0;0;0;FILES
1;31;0;0;0;0;1;
2;5;657;1;0;0;0;2*FILES
3;;657;7;0;0;0;
4;70;650;0;0;0;0;gTHIS IS A 45K INSTALLATION
5;124;649;8;1;1;0;RESET MG 3
6;124;647;0;0;2;0;
7;3;657;4;0;0;0;FORM TABLE ENTRY
8;101;0;126;1;3;0;'----BE'
9;124;657;11;1;2;0;-64+R FOR CONTROL DATA PSEUDOROUTE
10;102;0;16;0;0;0;AS EMERGENCY STOP
11;;657;2;1;0;0;
12;128;647;0;1;1;0;CLEAR 16 LOCNS AS WORKING SPACE
13;124;657;4;0;2;0;TSL FOR UNPACKING
14;124;657;11;1;2;0;-64+R FOR CONTROL DATA PSEUDO-ROUTE
15;128;0;0;0;3;0;
SHEET;552
PROCR;650;45/90K CHUNK
NOTES;RADIX;;404 REARRANGE SPEC CHAP ROUTE DETAIL
0;126;657;0;1;1;0;2*ROUTES:0
1;106;0;34;1;1;0;
2;73;652;6;0;0;0;gRTE 7 DETAIL
3;101;0;0;1;1;0;DUMMY ORDER
4;32;0;0;0;0;10-;
5;32;0;0;0;0;1;
6;5;657;3;0;0;0;ALT RTE TYPE
7;32;0;0;0;0;4;
8;5;657;6;0;0;0;FILE IDENTITY
9;32;0;0;0;0;1;
10;5;657;2;0;0;0;ROUTE TYPE
11;32;0;0;0;0;2;
12;5;657;5;0;0;0;ALT ROUTE NO
13;32;0;0;0;0;2;
14;5;657;4;0;0;0;MAIN ROUTE NO
15;;657;7;0;0;0;INDICATOR
16;70;652;0;0;0;0;
SHEET;553
PROCR;651;45/90K CHUNK
NOTES;RADIX;;405 SET INDICATOR IF REQUIRED
0;;657;2;0;0;0;ROUTE TYPE
1;12;0;0;0;0;7;
2;70;651;7;0;0;0;gMAG TAPE FILE
3;12;0;0;0;0;1;
4;70;651;7;0;0;0;gMAG TAPE FILE
5;12;0;0;0;0;3;
6;71;652;0;0;0;0;gNOT A MAG TAPE FILE
7;126;657;8;1;2;0;SET MR2 AT 16:0
8;;647;0;1;2;0;
9;2;657;6;0;0;0;FILE IDENTITY
10;70;651;14;0;0;0;gMATCH SET IND=0 FOR 45K
11;125;0;2;0;2;0;
12;76;651;8;0;0;0;
13;101;0;1;1;3;0;SET IND=1 FOR 90K IF NO MATCH
14;124;657;4;0;3;0;ROUTE NO
15;103;0;0;0;0;0;(21)SET MASTER IND
16;32;0;0;0;0;1-;
17;;657;5;0;0;0;ALT ROUTE NO
18;101;0;128;1;2;0;(32) (>8 CHANNELS)
19;70;651;24;0;0;0;gALT ROUTE NOT USED
20;101;0;0;1;3;0;DRAIN
21;32;0;0;0;0;1;
22;124;657;5;1;2;0;ALT ROUTE NO
23;102;0;0;0;0;0;(22)SET MASTER IND
24;5;647;0;1;2;0;CLEAR ENTRY FROM
SHEET;554
PROCR;652;90K/45K CHUNK
NOTES;RADIX;;406
0;;657;3;0;0;0;ALT ROUTE TYPE
1;30;0;0;0;0;2;
2;1;657;4;0;0;0;MAIN ROUTE NO
3;30;0;0;0;0;2;
4;1;657;5;0;0;0;ALT ROUTE NO
5;102;0;35;0;1;0;SECOND M OF ROUTE DETAIL
6;125;0;2;0;1;0;
7;76;650;1;0;0;0;gNEXT ROUTE
8;;657;7;0;0;0;
9;70;653;0;0;0;0;g45K INSTALLATION
10;126;657;8;1;2;0;16:0
11;;647;0;1;2;0;
12;70;652;15;0;0;0;
13;101;0;0;1;3;0;UNMATCHED ENTRY IN LIST
14;76;648;62;0;0;0;gREJECT E
15;125;0;2;0;2;0;
16;76;652;11;0;0;0;
17;101;0;0;1;1;0;DUMMY ORDER
SHEET;555
PROCR;653;ARRANGE FOR SPECIAL, GP, OR NEITHER S/R
NOTES;RADIX;;407
0;124;0;20;0;3;0;CHAP 1
1;106;0;122;0;0;0;TEST FOR PRINTER
2;70;653;35;0;0;0;gNO PRINTER
3;124;0;0;0;2;0;SPECIAL CHAP DIVISION0
4;101;0;0;1;2;0;
5;3;655;24;0;0;0;STORE AS PARA FOR
6;5;656;58;0;0;0;PRINT S/R'S
7;106;0;20;0;0;0;FORM AND STORE
8;04;655;22;0;0;0;CHAP 1 PARA FOR
9;04;656;56;0;0;0;PRINT S/RS
10;10;0;0;0;0;0;
11;101;0;8;1;2;0;
12;30;0;0;0;0;4;
13;35;0;0;0;0;10000;
14;36;654;9;0;0;0;
15;70;653;17;0;0;0;
16;37;656;47;0;0;0;
17;10;0;0;0;0;0;
18;35;0;0;0;0;1;
19;36;654;9;0;0;0;
20;101;0;4;1;2;0;
21;70;653;29;0;0;0;g
22;124;655;0;0;2;0;FORM T/E FOR
23;32;0;0;0;0;5-;BULK COPYING
24;101;0;26;1;3;0;SP PRINTER S/R
25;32;0;0;0;0;5;TO CHAP
26;124;0;20;0;3;0;
27;128;0;154;0;0;0;TO CHAP 1
28;76;653;35;0;0;0;
29;124;656;0;0;2;0;FORM T/E FOR
30;32;0;0;0;0;5-;BULK COPYING
31;101;0;62;1;3;0;GP PRINTER S/R
32;32;0;0;0;0;5;CHAP 1
33;124;0;20;0;3;0;
34;128;0;120;0;0;0;
35;102;0;16;0;0;0;
36;124;647;0;0;2;0;RESET PARA 5
37;124;657;0;0;3;0;
38;102;0;5;0;0;0;
SHEET;556
PROCR;654;FINAL CHUNK
NOTES;RADIX;;408
0;126;657;16;1;1;0;W/L FOR NEW TAG AVAILABILITY WORD
1;124;0;98;0;2;0;
2;124;657;0;0;3;0;
3;103;0;28;1;0;0;MR2
4;124;657;0;0;3;0;
5;102;0;0;0;0;0;(6)SET SR LINK
6;101;0;0;1;3;0;PARAS TABLE START
7;124;657;0;0;3;0;
8;124;0;1;1;0;0;(6)>SECOND ORDER 'LOAD CHAPT' SR
9;100;0;0;0;0;0;(27)
SHEET;557
PROCR;655;SPECIAL PRINTER S/R
NOTES;RADIX;;409
0;100;0;0;0;0;0;LINK
1;101;0;0;1;3;0;FORM PSUEDOROUTE IN B FOR SPECIAL PRINTE
2;101;0;64;1;2;0;
3;124;647;0;0;3;0;S/R LINK
4;105;0;2;0;0;0;
5;32;0;0;0;0;10-;
6;10;0;0;0;0;9;ROUTE TYPE
7;30;0;0;0;0;5;
8;124;647;0;0;3;0;
9;104;0;1;0;0;0;PRINTER ROUTE
10;125;0;4096;1;1;0;
11;124;647;9;0;3;0;
12;123;0;159;0;2;0;ENTER MASTER
13;126;647;0;0;1;0;RETURN TO MAIN PROGRAM
14;100;0;0;0;0;0;DUMMY
15;124;0;178;0;3;0;
16;128;0;214;0;0;0;CLEAR SPECIAL CHAP
17;106;0;176;1;0;0;
18;124;0;178;0;3;0;
19;128;647;0;0;0;0;COPY TO SPECIAL CHAP
20;124;0;178;0;3;0;
21;124;0;204;1;0;0;>REENTER FINAL CHUNK
22;100;0;154;0;0;0;ABS START THIS SR IN CHAP 1
23;100;0;14;0;0;0;
24;100;0;0;0;0;0;SPECIAL CHAPTER
SHEET;558
PROCR;656;G.P. PRINTER S/R
NOTES;RADIX;;410
0;100;0;0;0;0;0;LINK
1;124;647;0;0;3;0;STORE DATA
2;124;0;2;1;2;0;
3;124;0;0;0;2;0;
4;102;647;48;0;0;0;
5;106;647;46;1;0;0;PACK COLUMNS BIT
6;100;647;46;1;2;0;INTO FUNCTION
7;124;647;48;0;3;0;
8;114;0;0;1;0;0;
9;124;647;0;0;3;0;FORM T/E
10;106;0;4;0;0;0;
11;118;0;5;0;0;0;
12;124;647;0;0;3;0;BULK CLEAR G.P. TRANSIT
13;124;0;3;1;2;0;AREA BEFORE EDIT
14;128;0;0;1;1;0;
15;106;647;48;0;0;0;
16;124;647;0;0;3;0;EDIT INTO G.P. TRANSIT AREA
17;124;0;3;1;2;0;
18;129;0;0;0;1;0;
19;102;647;48;0;0;0;
20;101;0;64;1;2;0;FORM PSEUDOROUTE IN B FOR G.P.PRINTER
21;124;647;0;0;3;0;
22;105;0;3;0;0;0;
23;32;0;0;0;0;10-;
24;10;0;0;0;0;4;ROUTE TYPE
25;30;0;0;0;0;5;
26;124;647;0;0;3;0;ROUTE NO
27;104;0;1;0;0;0;
28;125;0;4096;1;1;0;
29;124;647;46;0;3;0;
30;123;0;160;0;2;0;ENTER MASTER
31;124;647;48;0;3;0;
32;100;0;0;1;2;0;
33;10;0;0;0;0;2;STEP MODIFIER
34;4;647;48;0;0;0;
35;33;0;0;0;0;2;SELECT NEXT CHARACTER
36;10;0;0;0;0;0;
37;33;0;0;0;0;6;
38;12;0;0;0;0;1.;TEST L/E
39;70;648;5;0;0;0;gYES
40;12;0;0;0;0;20;TEST B/E
41;70;648;45;0;0;0;gYES
42;10;0;0;0;0;0;
43;75;648;35;0;0;0;gNEXT CHARACTER
44;76;648;31;0;0;0;gNEXT WORD
45;126;647;0;0;1;0;>LEAVE
46;100;0;0;0;0;0;ZERO
47;100;0;0;0;0;0;FN WORD
48;100;0;0;0;0;0;MODIFIER
49;124;0;178;0;3;0;
50;128;0;214;0;0;0;CLEAR SPECIAL CHAP
51;106;0;176;1;0;0;
52;124;0;178;0;3;0;
53;128;647;0;0;0;0;COPY TO SPECIAL CHAP
54;124;0;178;0;3;0;
55;124;0;204;1;0;0;>REENTER FINAL CHUNK
56;100;0;120;0;0;0;ABS START THIS SR IN CHAP 1
57;100;0;48;0;0;0;
58;100;0;0;0;0;0;SPECIAL CHAPTER
SHEET;559
CONST;657;0;411 CONSTS FOR 45/90K CHUNK
0;(D)0;ZERO
1;0;2*FILES
2;0;ROUTE TYPE/BULK CLEAR T
3;20010;ALT RTE TYPE/BULK CLEAR T
4;0;ROUTE NO/UNPACK TABLE
5;30000-;ALT RTE NO/UNPACK TABLE
6;0;FILE IDENTITY
7;0;(21)NONZERO IF 90K INSTALLATION
8;0;
9;10;MOD REGISTER CONSTANT
10;40-;(24) -(64+R) FOR PROGM ROUTE
11;40-;(23)=LOCN OF 45K ROUTES LIST
12;0;LAST BLOCK SERIAL
13;0;ON PROGM TAPE
14;0;
15;(B)24;MR 24:0
16;0;
17;;W/L
18;;
19;;
20;;
21;;
22;;
23;;
SHEET;560
PROCR;658;SET UP PROG IN PQ
NOTES;RADIX;;501 FIRST LOCN=98 OF SPECIAL CHAPTER
0;124;668;0;0;3;0;NEW TAG AVAILABILITY
1;106;0;26;1;0;0;
2;05;668;24;1;0;0;
3;101;0;2;1;2;0;ADJUST MR SETTING
4;4;668;12;0;0;0;
5;4;668;13;0;0;0;
6;10;0;0;0;0;0;DUMMY ORDER
7;106;0;15;0;0;0;
8;102;0;14;0;0;0;
9;106;0;2;0;0;0;PRIORITY CLASS
10;30;0;0;0;0;4;Q5
11;100;0;10;0;2;0;TAG T
12;110;668;7;0;0;0;
13;1;668;7;0;0;0;48(T+1)
14;124;668;0;0;3;0;
15;104;0;2;0;0;0;MR SWITCH START
16;30;0;0;0;0;5;
17;104;0;12;0;0;0;PROG IDENTITY
18;5;668;10;1;0;0;
19;126;668;12;1;1;0;SCAN PQ BACKWARDS
20;35;0;0;0;0;10000;Q5
21;124;668;0;0;3;0;
22;115;0;1;0;1;0;P CLASS NEXT ENTRY
23;2;668;14;0;0;0;£0000
24;70;658;32;0;0;0;gSTEP R1
25;1;668;14;0;0;0;£0000
26;2;668;11;0;0;0;
27;73;658;36;0;0;0;gINSERT NOW
28;124;668;0;0;3;0;
29;106;0;0;1;1;0;
30;124;668;0;0;3;0;
31;102;0;2;1;1;0;
32;125;0;4098;0;1;0;2-
33;76;658;21;0;0;0;
34;111;0;7;0;3;0;CONST>27/0/3
35;108;0;7;1;0;0;CONST>24/1/0
36;125;0;4096;1;1;0;SET NON-INT
37;;668;10;1;0;0;
38;124;668;0;0;3;0;
39;102;0;2;1;1;0;
40;35;0;0;0;0;1111;Q1-4
41;36;668;11;0;0;0;SWITCH START
42;124;668;0;0;3;0;
43;103;0;30;1;0;0;R3 MODIFIERS
44;4;658;34;0;0;0;AUG CONSTANTS
45;4;658;35;0;0;0;
46;5;668;6;0;0;0;
47;124;668;0;0;3;0;START OF SWITCH ABOVE
48;106;0;1;0;1;0;
49;124;668;0;0;3;0;
50;102;0;28;1;0;0;R2 MODIFIER
51;101;0;4;1;2;0;
52;4;660;26;0;0;0;ADJUST ORDERS
53;4;660;31;0;0;0;
54;04;660;18;0;0;0;
SHEET;561
PROCR;659;UPDATE PREVIOUS SWITCH, FORM SWITCH ORDERS
NOTES;RADIX;;502
0;124;668;0;0;3;0;
1;126;0;0;0;0;0;(8)>UPDATE SWITCH
2;10;0;0;0;0;0;
3;2;658;34;0;0;0;27/0/3>SI+7
4;124;668;0;0;3;0;
5;102;0;20;0;2;0;IN SJ+20 OF PREVIOUS SWITCH
6;124;668;0;0;3;0;
7;106;0;9;0;2;0;SJ+9
8;124;668;0;0;3;0;
9;105;0;7;0;2;0;SJ+7
10;71;659;14;0;0;0;gSWITCH NOT AT 2
11;2;658;35;0;0;0;24/1/0>SI+7
12;124;668;0;0;3;0;
13;102;0;7;0;2;0;TO SJ+7
14;10;0;0;0;0;0;
15;2;658;35;0;0;0;
16;124;668;0;0;3;0;
17;102;0;9;0;2;0;SET 24/1/0 IN SI+9 ALSO
SHEET;562
PROCR;660;PLACE CONSTANT IN SWITCH
NOTES;RADIX;;503
0;106;0;1;0;0;0;MOD GROUP
1;31;0;0;0;0;13;
2;124;668;0;0;3;0;
3;102;0;29;0;3;0;SI+29
4;106;0;10;0;0;0;TAG
5;30;0;0;0;0;4;
6;104;0;8;0;0;0;ABS ENTRY
7;124;668;0;0;3;0;
8;102;0;44;1;3;0;SET LINK CLEAR 45
9;124;0;0;0;2;0;SPECIAL CHAPTER START
10;124;668;0;0;3;0;
11;102;0;37;0;3;0;SI+37
12;106;0;12;0;0;0;PROG IDENTITY
13;124;668;0;0;3;0;
14;102;0;39;0;3;0;SI+39
15;124;668;0;0;3;0;
16;102;0;46;1;3;0;CLEAR THIS SI+46,47
17;124;668;0;0;3;0;
18;106;0;3;0;0;0;(29)RUN NUMBER
19;103;0;15;0;0;0;TO SPEC CHAP
20;124;668;0;0;3;0;
21;102;0;40;0;3;0;TO SI+40
22;101;0;0;1;3;0;(15) 'ROUTE CLOSED' ENTRY
23;124;668;0;0;3;0;
24;102;0;42;0;3;0;SI+42
25;124;668;0;0;3;0;
26;106;0;1;0;0;0;MOST SIG HALF OF A
27;30;0;0;0;0;3-;
28;12;0;0;0;0;7.;
29;70;660;33;0;0;0;gSET (AB)=ZERO
30;124;668;0;0;3;0;
31;100;0;0;1;1;0;VALUES>A&B,RUBBISH>C
32;76;660;34;0;0;0;
33;35;0;0;0;0;0;AB CLEAR
34;100;668;15;0;3;0;SET DECIMAL
35;124;668;0;0;3;0;
36;124;0;30;0;3;0;R3
37;100;0;30;1;0;0;SET ABC INITIAL ENTRY SI+30>34
SHEET;563
PROCR;661;UPDATE MASTER AVAILABILITY FOR FP/MG/TAG/STORE/ROUTE
NOTES;RADIX;;504 CLEAR ALLOC MOD REGISTERS
0;100;668;0;0;3;0;BINARY
1;106;0;0;0;0;0;FP IND
2;70;661;9;0;0;0;gNOT USED
3;106;0;10;0;0;0;PROG TAG
4;126;668;4;1;3;0;6/0
5;124;668;0;0;3;0;ZERO
6;123;0;128;1;3;0;
7;125;0;2;0;3;0;
8;76;661;5;0;0;0;
9;106;0;1;0;0;0;MOD GROUP
10;70;661;30;0;0;0;gNOT USED
11;31;0;0;0;0;3;
12;5;668;3;0;0;0;8M
13;106;0;10;0;0;0;TAG
14;126;668;4;1;3;0;6/0
15;124;668;3;0;3;0;8M
16;123;0;2;1;3;0;
17;125;0;2;0;3;0;
18;76;661;15;0;0;0;
19;106;0;1;0;0;0;MOD GROUP
20;12;0;0;0;0;3;
21;126;668;4;1;3;0;6/0
22;70;661;26;0;0;0;gMG3
23;;668;3;0;0;0;8M
24;11;0;0;0;0;2;OVER 'START OF COPY OF MG3' ADDRESS
25;5;668;2;0;0;0;
26;124;668;2;0;3;0;LOCN OF MR1 OF MOD GROUP
27;102;0;0;1;3;0;
28;125;0;2;0;3;0;
29;76;661;26;0;0;0;
30;101;0;0;1;3;0;(3)FORM QTTY TO COPY
31;101;0;0;1;2;0;(30)
32;12;0;0;0;0;4;
33;30;0;0;0;0;5;
34;101;0;80;1;1;0;
35;104;0;20;0;0;0;
36;124;668;0;0;3;0;
37;128;0;0;1;1;0;(30)UPDATE STORAGE
SHEET;564
PROCR;662;SET ASL'S
NOTES;RADIX;;505
0;0;668;24;1;0;0;UPDATE TAG AVAILABILITY
1;124;668;0;0;3;0;
2;102;0;0;1;0;0;
3;126;0;18;1;3;0;2X(R+T):0
4;35;0;0;0;0;11-;
5;115;0;34;1;3;0;ALLOC ROUTE
6;73;662;46;0;0;0;gNEGATIVE;IGNORE
7;5;668;3;0;0;0;W/L
8;106;0;10;0;0;0;TAG
9;30;0;0;0;0;4;
10;104;0;66;0;3;0;START
11;124;668;3;0;3;0;ROUTE
12;102;0;64;0;0;0;
13;106;0;35;0;3;0;FILE ID Q1=4
14;70;662;46;0;0;0;gTRANSIT AREA
15;106;0;34;0;3;0;RT IN Q5
16;30;0;0;0;0;4-;
17;12;0;0;0;0;7;TEST IF M/T
18;70;662;23;0;0;0;IE RTE TYPES
19;12;0;0;0;0;1;7,8,11
20;70;662;23;0;0;0;
21;12;0;0;0;0;3;
22;71;662;27;0;0;0;
23;124;668;3;0;3;0;
24;102;0;0;0;0;0;(16)CLEAR REEL CTR
25;76;662;35;0;0;0;
26;102;0;0;0;0;0;(35)CLEAR BLOCK COUNTER FOR MT ROUTE
27;11;0;0;0;0;5;TEST CARD INPUT
28;70;662;31;0;0;0;g80-COL CARDS(6)
29;12;0;0;0;0;7;
30;71;662;35;0;0;0;gNOT 40-COL CARDS(15)
31;124;668;3;0;3;0;
32;106;0;64;0;0;0;ASL FOR EVEN ROUTE
33;124;668;3;0;3;0;
34;102;0;65;0;0;0;COPY FOR ODD ROUTE
35;106;0;34;0;3;0;
36;30;0;0;0;0;6;ALT ROUTE Q3,4
37;30;0;0;0;0;8-;
38;12;0;0;0;0;80;(32)
39;70;662;46;0;0;0;gNOT USED
40;11;0;0;0;0;80;(32)
41;5;668;3;0;0;0;
42;106;0;10;0;0;0;TAG
43;30;0;0;0;0;4;
44;124;668;3;0;3;0;
45;102;0;64;0;0;0;SET IND THAT NOT AVAILABLE
46;10;0;0;0;0;0;CLEAR A
47;125;0;2;0;3;0;
48;76;662;4;0;0;0;gNEXT ROUTE
49;5;668;10;1;0;0;CLEAR THIS
50;124;668;0;0;3;0;
51;102;0;5;0;0;0;CLEAR PARAMETER 5
52;125;0;0;1;2;0;DUMMY
SHEET;565
PROCR;663;SET UP CHAP PARAS;ROUTE PARAS;TX AREA PARAS
NOTES;RADIX;;506 MOD GROUP PARAS AND SPECIAL PARAS
0;126;668;10;1;1;0;CLEAR
1;126;0;16;1;2;0;2XCHAPS:0
2;34;668;9;0;0;0;BITS 1-13
3;106;0;20;0;2;0;NEXT START
4;102;0;99;0;1;0;15 BIT
5;115;0;20;0;2;0;
6;102;0;100;0;1;0;
7;125;0;2;0;1;0;
8;125;0;2;0;2;0;
9;76;663;2;0;0;0;gNEXT CHAP
10;102;0;98;0;0;0;CLEAR PARA 0
11;106;0;5;0;0;0;FILES
12;104;0;5;0;0;0;
13;30;0;0;0;0;5;
14;124;668;0;0;3;0;
15;102;0;28;1;0;0;R2=2XROUTES:0
16;35;0;0;0;0;11-;
17;115;0;34;1;2;0;NEXT ROUTE
18;72;663;22;0;0;0;PARA
19;125;0;2;0;2;0;END OF ROUTES
20;76;663;19;0;0;0;gSTEP UP MR TO END
21;76;663;26;0;0;0;gEND
22;102;0;99;0;1;0;
23;125;0;1;0;1;0;
24;125;0;2;0;2;0;
25;76;663;17;0;0;0;gNEXT ROUTE
26;106;0;19;0;0;0;
27;124;668;0;0;3;0;
28;102;0;29;0;0;0;ADJUST END VALUE
29;35;0;0;0;0;11;
30;115;0;34;0;2;0;TX AREA
31;102;0;99;0;1;0;
32;105;0;99;0;1;0;
33;101;0;64;1;2;0;
34;102;0;100;0;1;0;
35;125;0;2;0;1;0;
36;125;0;2;0;2;0;
37;76;663;30;0;0;0;gNEXT TX AREA
38;106;0;1;0;0;0;MOD GROUP
39;31;0;0;0;0;3;
40;102;0;99;0;1;0;BM
41;105;0;99;0;1;0;
42;101;0;2;1;2;0;
43;103;0;100;0;1;0;-(8M+2)=R1
44;101;0;2;1;2;0;
45;103;0;101;0;1;0;-(8M+4)=R2
46;101;0;2;1;2;0;
47;102;0;102;0;1;0;-(8M+6)=R3
48;106;0;14;0;0;0;CONTROL DATA
49;102;0;103;0;1;0;ROUTE TYPE
50;124;668;0;1;1;0;MOD GROUP 0
51;124;668;0;0;3;0;
52;126;0;0;0;0;0;(17)->REQUEST T/W
53;124;668;0;0;3;0;RI MODIFIER
54;106;0;26;0;0;0;
55;11;0;0;0;0;5;
56;102;0;14;0;0;0;STORE(PARAS+1)FOR PTS
SHEET;566
PROCR;664;TYPE DATE TIME AND ALLOC COMMENT
NOTES;RADIX;;507
0;12;0;0;0;0;2;
1;4;668;19;0;0;0;SET TRUE ANNEX START
2;124;669;0;0;2;0;
3;124;668;19;0;3;0;
4;128;0;0;1;2;0;
5;;668;18;0;0;0;PARA 25
6;73;664;12;0;0;0;gMASTER TYPES PAGE HEADINGS ANYWAY
7;71;664;11;0;0;0;gCLOCK WORKING
8;10;0;0;0;0;1.1.;
9;124;668;19;0;3;0;
10;102;0;6;1;0;0;PREMATURE END
11;80;667;0;0;0;0;gTYPE
12;124;668;0;0;3;0;
13;126;0;0;0;0;0;(17)->REQUEST T/W
14;101;0;76;1;3;0;ANNEX LENGTH
15;30;0;0;0;0;5;
16;104;0;20;0;0;0;CHAP 1 START
17;124;668;0;0;3;0;
18;128;0;0;1;1;0;(18)->MR T/W ANNEX
19;124;668;0;0;3;0;
20;126;0;0;0;0;0;(19)EDIT TIME SR
21;80;667;0;0;0;0;gTYPE
SHEET;567
PROCR;665;CLEAR STORE STACK NEW TAG
NOTES;RADIX;;508
0;124;668;15;1;1;0;SET MOD GROUP 3
1;126;0;16;1;1;0;2XCHAPS:0
2;106;0;20;1;1;0;
3;5;668;10;1;0;0;START/END NEXT CHAP
4;124;0;0;0;2;0;
5;2;668;10;0;0;0;
6;126;668;10;1;2;0;TAG STACKER
7;126;668;10;1;3;0;CLEARER
8;71;665;13;0;0;0;gNOT SPECIAL CHAP
9;125;0;200;0;2;0;
10;125;0;500;0;3;0;
11;76;665;13;0;0;0;
12;76;665;21;0;0;0;gNONE TO CLEAR
13;125;0;180;0;3;0;STOP 180 CHAP 1
14;10;0;0;0;0;0;
15;106;665;14;0;0;0;CORRECTION AFTER
16;102;665;13;0;0;0;CHAP 1
17;124;668;0;0;3;0;
18;102;0;0;1;3;0;CLEAR STORE 
19;125;0;2;0;3;0;
20;76;665;17;0;0;0;
21;106;0;10;0;0;0;TAG  
22;124;668;0;0;3;0;
23;123;0;0;1;2;0;STACK AG
24;125;0;2;0;2;0;
25;76;665;22;0;0;0;
26;125;0;2;0;1;0;
27;76;665;2;0;0;0;gNEXT CHAPTER
28;101;0;0;1;3;0;(28)
29;70;666;0;0;0;0;gPTS PART OF MASTER
30;106;0;11;0;0;0;
31;70;666;0;0;0;0;gNOT TRIALS ALLOCATED
32;124;668;0;0;3;0;Q5 OF PARA 43=2X CHAP CONTAINING PTS
33;106;0;43;0;0;0;
34;30;0;0;0;0;4-;
35;4;665;37;0;0;0;
36;101;0;1500;1;3;0;ADD PTS SIZE TO CHAP
37;107;0;19;0;0;0;
SHEET;568
PROCR;666;LOAD FINAL CHUNK
NOTES;RADIX;;509
0;;668;6;0;0;0;SWITCH START   SET RI FOR ENTRY
1;32;0;0;0;0;5-;TO PROGRAM
2;124;0;0;0;2;0;SPECIAL CHAP START
3;32;0;0;0;0;5;
4;124;668;0;0;3;0;
5;102;0;26;1;0;0;RI
6;124;0;146;0;2;0;
7;124;668;0;0;3;0;
8;102;0;28;1;0;0;R2 MODIFIER
9;101;0;146;1;3;0;SET PARA 1 VALUE
10;124;668;0;0;3;0;13 BIT ADDRESS OF LOCN 140
11;102;0;1;0;0;0;
12;101;0;0;1;3;0;PARA TABLE START
13;124;668;0;0;3;0;
14;126;0;0;0;0;0;(6)->LOAD CHAP SR
15;;668;6;0;0;0;
16;124;0;214;1;0;0;
SHEET;569
PROCR;667;TYPEWRITER S/R
NOTES;RADIX;;511
0;81;667;0;0;0;0;MOD GROUP=0
1;124;668;0;0;3;0;
2;106;0;35;0;1;0;(SM+35)
3;11;0;0;0;0;2;
4;124;668;0;0;3;0;
5;102;0;7;0;1;0;gSM+7
6;124;667;11;0;2;0;
7;124;668;0;0;3;0;
8;102;0;42;0;1;0;RETURN ADDRESS
9;124;668;0;0;3;0;
10;124;0;0;1;0;0;(20)->TYPE
11;101;0;0;1;3;0;(15)ROUTE CLOSED'LINK
12;124;668;0;0;3;0;
13;103;0;7;0;1;0;gSM+7
14;124;668;0;0;3;0;
15;102;0;42;0;1;0;gSM+42
16;82;667;0;0;0;0;
SHEET;570
CONST;668;0;512
0;(B)0;ZERO
1;20;BULK COPY TE
2;0;(10)LOCN OF (MG3)
3;0;W/L
4;0;MOD REGISTER
5;6;
6;0;W/L
7;48;
8;0;NEW TAG AVAILABILITY WRD
9;8191;BITS 1-13
10;0;LONG W/L
11;0;
12;;(30)PQ START
13;;(29)PQ END
14;(D)p0000;
15;66666;DEC RADIX
16;35.5.;
17;517;
18;0;(25)CLOCK PARA
19;0;(18)T/W ASL
20;35500;
21;54517;
22;0;(43)PTS START+CHAP
23;0;
24;0;
25;;
SHEET;571
PROCR;669;EDIT TABLE IN DISGUISE
NOTES;RADIX;;513
0;100;668;20;0;0;0;DATE
1;103;0;5;0;0;0;
2;100;0;138;0;0;0;DAY Q5,6
3;102;0;1026;0;0;0;4/0/2
4;100;0;138;0;0;0;MONTH Q5,4
5;102;0;1554;0;0;0;
6;100;0;138;0;0;0;YEAR Q1,2
7;102;0;2066;0;0;0;
8;100;668;16;0;0;0;'AT'
9;103;0;290;0;0;0;
10;100;0;156;0;0;0;TIME
11;100;0;20;0;0;0;0/1/4
12;100;668;16;0;0;0;DOUBLE LINE END
13;119;0;786;0;0;0;
14;100;0;0;0;0;0;
15;100;0;0;0;0;0;
16;100;0;0;0;0;0;
17;100;0;0;0;0;0;
SHEET;572
PROCR;670;FINAL CHUNK=LOAD PROGRAM START=LOCN 146 OF SPECIAL CHAP
NOTES;RADIX;;601
0;128;670;4;1;1;0;CLEAR 150-197 OF SPECIAL CHAPTER
1;124;670;4;0;3;0;
2;124;0;0;1;0;0;(9)>REENTER MASTER
3;101;0;0;1;3;0;
4;100;0;0;0;0;0;T/E FOR CLEARING
5;102;0;48;0;0;0;FINAL CHUNK
6;124;0;16;0;1;0;
7;106;0;20;0;0;0;NEXT CHAP START
8;124;670;4;0;3;0;
9;102;0;28;1;0;0;R2
10;124;670;4;0;3;0;
11;126;0;0;0;0;0;(7)>READ BLOCK
12;124;671;0;1;2;0;-64+R
13;106;0;12;1;0;0;
14;2;671;2;1;0;0;'CHAPT'
15;71;670;10;0;0;0;gNOT AT CHAP HEADING
16;124;0;98;0;2;0;PARA TABLE START
17;124;670;4;0;3;0;
18;126;0;0;0;0;0;(6)>LOAD CHAP
19;123;0;2;0;0;0;
20;100;0;16;0;0;0;(ABSOLUTE ADDRESS FORMED IN 603)
21;76;670;6;0;0;0;gNEXT CHAPTER
22;76;670;29;0;0;0;*FORMED ORDER*(1/1/3 IF PTS TO BE LOADED
23;5;670;16;0;0;0;
24;101;0;23;1;2;0;
25;4;670;21;0;0;0;STEP LOOP EXIT
26;4;671;2;0;0;0;(CHAPT)>(CHAP')
27;106;0;200;0;0;0;
28;76;670;8;0;0;0;
29;126;0;18;1;2;0;STACK GUARD WORDS
30;106;0;67;0;2;0;
31;70;670;36;0;0;0;
32;5;670;6;0;0;0;
33;101;0;15;1;3;0;
34;124;670;6;0;3;0;
35;123;0;0;1;0;0;TAG 15 GUARD WORD
36;125;0;2;0;2;0;
37;76;670;30;0;0;0;
38;;671;1;0;0;0;24/1/0 23
39;101;0;0;1;2;0;-(SWITCH START)
40;124;670;4;0;3;0;
41;103;0;35;0;1;0;24/1/0 SI*23 IN SI*35
42;124;670;4;0;3;0;
43;102;0;7;0;1;0;TO SI+7
44;102;0;16;0;0;0;CLEAR MODIFIERS
45;124;670;4;1;1;0;MG 0
46;106;670;4;1;0;0;
47;76;670;0;0;0;0;gCLEAR AND ENTER
SHEET;573
CONST;671;0;602 PARA FOR LOAD CHAPTER
0;(B)64-;(11)PROG PSEUDOROUTE
1;(D)88017-;
2;(D)16773;
3;53585;
4;;
5;;
SHEET;574
PROCR;672;603 ARRANGE PTS LOADING LOCATION 200 OF SPECIAL CHAP
0;100;0;0;0;0;0;
1;128;0;204;1;1;0;CLEAR 204-214 OF
2;124;670;6;1;0;0;SPECIAL CHAP
3;128;0;214;1;1;0;CLEAR 214-END OF SPECIAL CHAP
4;106;670;5;0;0;0;
5;101;0;152;1;1;0;CLEAR FIRST 200
6;30;0;0;0;0;5;OF CHAPTER 1
7;124;0;20;0;3;0;
8;128;0;0;1;1;0;
9;106;672;12;1;0;0;
10;124;672;1;1;0;0;
11;100;0;0;0;0;0;
12;100;0;0;0;0;0;BULK CLEAR CONSTANT
13;102;0;10;0;0;0;
14;107;670;39;0;0;0;FORM 'SUBTRACT SWITCH START'
15;124;0;16;0;2;0;FORM ABS ADDRESS INDIREST MOD REGISTER
16;5;670;20;0;0;0;
17;124;670;4;0;3;0;SET UP 64 AND
18;106;0;64;0;0;0;(24)124 FOR USE
19;102;0;198;0;0;0;
20;124;670;4;0;3;0;
21;106;0;124;0;0;0;
22;102;0;199;0;0;0;
23;106;0;11;0;0;0;TEST PROGRAM TRIALS ALLOCATED
24;70;672;44;0;0;0;gNO
25;101;0;0;1;3;0;(28)TEST PTS IN MASTER CODING
26;70;672;44;0;0;0;gYES
27;;672;54;0;0;0;ARRANGE FOR PTS
28;102;670;22;0;0;0;LOADING PROCEDURE
29;35;0;0;0;0;1111;COLLATION CONST
30;36;672;56;0;0;0;PTS BEGINNING AND
31;124;670;4;0;3;0;SET UP PARA 2
32;103;0;2;0;0;0;15 BIT START PTS
33;102;0;200;0;0;0;END FOR LOADING
34;124;0;200;0;3;0;SET UP PARA 1
35;101;0;0;1;3;0;13 BIT START PTS
36;124;670;4;0;3;0;
37;102;0;1;0;0;0;
38;124;0;20;0;3;0;PARA 47 15 BIT
39;105;0;165;0;0;0;START OF PRINT S/R
40;1;672;57;0;0;0;
41;101;0;0;1;2;0;
42;124;670;4;0;3;0;
43;106;0;47;0;0;0;
44;124;0;20;0;3;0;TEST PRINT S/R
45;106;0;122;0;0;0;REQUIRED
46;70;672;51;0;0;0;gNO
47;106;672;55;0;0;0;SELECT BULK CLEAR
48;30;0;0;0;0;5;TABLE ENTRY
49;124;0;20;0;3;0;
50;124;0;169;1;0;0;>ENTER 'LOAD PRINT SR' IN CHAP 1
51;106;672;55;0;0;0;
52;30;0;0;0;0;5;
53;124;672;3;1;0;0;>LOAD CHAPS
54;106;670;3;0;0;0;
55;102;0;286;0;0;0;
56;100;0;0;0;0;0;43
57;126;0;0;0;1;0;
SHEET;575
CONST;673;0;FIRST LEVEL PARAS FOR UNLOADER
0;(B5)7(B3)1(B3)1(B3)1(B6)9;101/1 START OF PG
1;1,1,0,1,15;START OF 2ND ST TB
2;1,1,1,1,54;
3;1,0,1,0,9;
4;0,1,0,0,9;
5;0,1,1,1,9;
6;0,1,1,0,9;
7;1,0,0,1,54;
8;0,1,1,0,0;
9;1,7,1,0,8;REJ ALLOC COMM
10;1,7,1,1,9;LOAD NEXT CHAP
11;3,3,1,7,1;102/5 LOAD NEXT CHAP
12;0,1,1,0,9;
13;0,1,0,1,15;UPDATE SWITCH S/R
14;1,0,1,1,1;
15;0,0,1,0,1;
16;1,0,1,0,9;
17;0,1,0,0,9;
18;0,1,0,1,1;
19;4,1,0,1,0;
20;1,1,1,0,8;
21;0,1,1,0,1;103/1
22;0,0,0,1,55;CD RTE TYPE
23;1,7,6,1,0;
24;0,1,0,1,9;
25;1,1,0,1,57;USE OF ASS TABLE
26;1,1,1,7,0;USE OF ASS TABLE
27;1,0,1,7,1;USE OF ASS TABLE
28;1,0,1,0,9;104/1
29;0,1,0,0,9;
30;1,1,1,0,9;
31;0,1,0,0,15;105/6
32;1,1,1,1,9;
33;1,1,1,1,54;
34;1,0,1,1,9;106/3
35;1,1,1,1,9;
36;1,1,1,1,1;
37;1,1,1,1,1;
38;1,0,1,1,8;
39;1,0,1,1,1;
40;1,1,1,0,9;107/3
41;1,1,1,1,9;
42;1,0,1,1,9;
43;1,0,0,1,1;
44;7,0,1,1,9;XXX COMMENT
45;0,1,1,0,1;
46;1,0,1,0,63;108/5 STRT OF STRE TB
47;7,3,7,7,63;PRTY AND STR TAB STRT
48;0,0,7,3,0;STORE TAB START
49;0,0,0,0,56;
50;7,0,0,0,0;
51;7,6,6,6,54;
SHEET;576
CONST;674;0;FIRST LEVEL PARAS FOR ALLO STORAGE
0;(B5)7(B3)1(B3)0(B3)6(B6)1;202/1
1;0,1,1,6,63;
2;1,1,6,6,54;
3;1,7,1,0,0;READ NEXT BLOCK S/R
4;0,0,0,0,0;
5;0,0,0,0,0;
6;1,0,1,0,9;203/1
7;0,1,1,0,25;
8;7,0,0,0,0;LOAD NEXT CHAP S/R
9;0,0,7,0,8;204/3 205/5 RTE 0 PSDO RT
10;0,0,0,1,8;
11;0,0,0,1,9;
12;5,0,0,1,1;
13;1,7,1,1,9;
14;0,1,1,1,9;
15;1,1,1,1,9;
16;6,3,1,6,54;
17;0,1,3,0,9;
18;0,1,1,1,9;206/6
19;1,1,1,0,9;
20;1,1,7,1,57;
21;1,1,1,1,1;
22;1,1,1,0,9;
23;1,1,1,1,9;
24;1,1,1,1,9;
25;1,1,1,0,8;
26;0,1,1,1,1;
27;0,6,6,6,54;
28;0,0,1,1,9;
29;0,1,6,1,1;
30;1,1,1,1,9;
31;1,1,1,1,9;
32;1,0,0,1,1;
33;1,1,1,1,8;207/2
34;1,1,1,1,9;
35;1,0,0,1,9;
36;1,6,6,6,54;
37;0,1,0,0,9;
38;0,1,0,0,9;
39;0,0,7,1,9;
40;1,0,0,1,1;208/2
41;0,0,1,1,9;
42;0,1,0,6,0;209/5
43;0,0,0,0,0;
44;0,0,1,1,9;210/3
45;1,1,1,1,54;
46;1,0,1,7,8;REJECT ALLO COMM 
47;1,0,0,1,9;
48;1,0,6,6,54;
49;1,0,1,1,8;
50;6,6,0,1,1;
51;6,6,6,6,54;
52;1,1,0,1,9;211/3
53;1,1,1,0,9;
54;0,1,1,1,9;
55;1,1,1,1,8;
56;1,1,1,6,9;
57;1,1,0,1,9;
58;1,1,0,0,1;
59;1,1,1,1,9;
60;1,1,0,1,9;
61;1,0,1,1,9;
62;1,1,1,1,9;
63;0,6,1,1,9;212/3
64;1,1,1,1,9;
65;1,1,1,1,9;
66;1,0,6,6,54;
67;0,1,1,1,9;213/2
68;1,1,1,1,9;
69;1,1,0,1,9;
70;1,1,0,0,1;
71;1,1,1,1,9;
72;0,1,1,1,1;214/4 215/4
73;0,1,1,0,8;
74;1,1,1,1,6;
75;1,1,1,1,9;
76;1,1,0,1,9;
77;1,1,0,1,9;216/5
78;1,1,1,1,9;
79;1,1,0,0,9;
80;1,1,1,0,8;
81;1,1,1,1,1;
82;3,1,1,1,9;
83;1,3,6,6,9;217/5
84;1,0,1,0,11;
85;1,7,1,0,11;LOAD CHAP S/R
86;0,1,3,0,54;
87;1,1,1,0,9;218/1
88;1,1,0,1,1;
89;1,6,6,6,54;
90;1,1,1,1,9;
91;1,1,1,0,9;
92;1,0,0,0,9;
93;1,1,1,0,0;
94;0,0,0,0,6;
95;7,6,6,6,54;
SHEET;577
CONST;675;0;FIRST LEVEL PARAS FOR ALLOC
0;(B5)2(B3)0(B3)0(B3)1(B6)1;301/0 302/3
1;1,1,7,1,9;
2;1,1,1,1,0;
3;2,1,1,1,9;
4;0,1,1,0,10;
5;1,0,1,2,9;
6;0,0,6,6,54;303/1
7;0,0,0,0,0;
8;0,0,0,0,0;
9;5,0,5,0,40;304/1
10;5,0,5,0,56;RUN NUMBER
11;5,0,5,0,0;306/5
12;1,1,2,0,2;
13;1,2,1,2,0;
14;1,0,1,1,9;
15;1,1,0,1,1;
16;0,1,0,2,1;
17;0,1,1,1,9;
18;1,2,2,0,0;
19;1,2,1,7,15;
20;1,1,1,1,16;
21;1,0,0,2,18;
22;1,3,1,0,9;307/3
23;2,1,1,1,8;
24;1,0,1,1,56;READ NEXT BLOCK
25;6,6,6,6,1;
26;0,1,1,0,1;308/4
27;1,1,1,1,9;8 OR MORE CH
28;2,1,7,2,2;
29;0,2,6,6,54;
30;0,0,2,1,8;
31;1,0,1,1,9;
32;1,1,1,0,8;
33;2,1,0,1,1;
34;2,0,1,1,54;
35;0,1,0,1,0;309/2
36;0,1,0,0,9;
37;2,1,2,0,10;
38;0,0,1,1,1;
39;1,1,1,1,10;
40;2,0,1,1,16;
41;1,1,0,2,1;
42;1,1,1,1,1;
43;0,1,0,1,9;
44;1,1,1,0,54;
45;2,1,0,2,9;
46;1,2,2,0,10;310/2
47;2,2,1,0,54;
48;1,7,0,1,24;LOAD NEXT CHAP
49;1,0,3,1,56;311/6
50;1,1,1,1,9;
51;1,2,0,1,9;
52;0,1,0,0,18;
53;0,1,1,1,9;
54;1,0,1,1,8;
55;1,2,0,1,8;
56;1,7,1,2,1;OD RTE TYPE
57;1,1,0,7,10;CD RTE TYPE
58;0,1,1,1,9;
59;1,1,1,1,9;
60;1,1,1,1,9;
61;1,0,1,7,8;REJ ALLOC COMM
62;1,1,1,0,8;
63;2,1,0,1,1;
64;0,1,1,1,9;312/1
65;1,1,0,1,1;313/3
66;1,0,1,1,8;
67;1,1,1,1,9;
68;1,0,1,0,1;314/4
69;0,1,0,1,0;315/5
70;0,0,1,0,0;
71;0,1,0,7,0;316/3 PROG RTE NO
72;0,0,0,0,0;
73;0,0,0,0,56;PROG RTE NO
74;0,0,0,0,0;
75;0,0,0,0,56;PROG RTE NO
76;5,0,5,0,40;
77;0,0,7,6,54;
SHEET;578
CONST;676;0;FIRST LEVEL PARAS FOR ALLOC F/P TAG
0;(B5)0(B3)2(B3)0(B3)1(B6)9;402/1
1;1,1,1,1,9;
2;1,0,4,7,54;
3;1,1,4,0,12;
4;1,2,2,1,18;
5;2,1,1,0,9;
6;0,2,1,2,1;
7;2,1,1,0,1;
8;1,2,1,2,1;
9;1,0,0,0,8;
10;1,0,0,0,1;
11;7,1,0,0,0;REJ ALLOC COMMENT
12;2,0,2,2,0;
13;2,0,0,2,1;
14;1,1,1,1,8;
15;1,0,1,1,9;
16;0,1,2,1,54;
17;0,0,0,1,1;
18;0,1,0,1,1;
19;1,1,1,0,8;405/3
20;1,0,1,1,9;
21;1,0,1,0,15;45/90K
22;0,1,7,1,0;
23;1,7,1,1,1;406/4 45/90K IND
24;0,1,2,0,9;
25;1,1,1,1,1;
26;0,1,0,6,54;
27;2,0,1,2,17;407/1
28;1,2,1,1,0;
29;0,0,6,6,54;
30;1,1,1,0,1;
31;6,0,1,1,0;
32;0,2,0,1,8;
33;0,0,2,0,17;
34;1,3,6,6,54;
35;6,6,1,2,8;408/3 PRINT RT
36;1,7,3,1,63;LOAD NEXT CHAP
37;0,0,0,5,0;409/1
38;0,0,5,0,5;
39;0,5,0,6,54;
40;6,6,0,2,0;
41;5,0,2,0,0;
42;0,5,0,0,45;410/1
43;5,5,0,5,6;
44;0,5,0,0,45;
45;0,0,5,0,40;
46;0,0,0,5,0;
47;5,0,5,0,5;
48;0,0,0,0,40;
49;5,0,5,5,40;
50;0,0,6,6,54;
51;0,2,0,0,40;410 ENDS ODD'COS 409 ENDS EVEN
52;2,0,0,0,0;411/5
53;0,0,0,0,7;
54;0,0,7,7,0;
55;0,0,0,0,0;
56;0,0,0,0,62;
57;1,0,1,0,9;501/1
SHEET;579
CONST;677;0;FIRST LEVEL PARAS FOR SET UP PQ
0;(B5)0(B3)6(B3)6(B3)6(B6)50;
1;2,2,0,2,9;
2;1,0,0,2,9;
3;0,1,0,1,9;
4;1,1,1,0,8;
5;0,1,0,0,1;
6;1,6,6,6,54;
7;0,0,1,1,1;
8;1,1,1,0,8;
9;0,1,1,1,15;502/5 UPDATE SWITCH S/R
10;0,1,1,0,8;
11;1,0,1,1,8;
12;0,1,1,0,16;503/5
13;1,0,2,0,17;
14;0,2,1,0,17;
15;0,1,0,1,58;
16;1,0,7,1,1;START OF PRIORITY TAB
17;3,0,0,1,11;ROUTE CLOSED LINK
18;1,0,1,1,0;
19;1,2,1,2,9;504/1
20;0,0,1,2,8;
21;1,2,1,1,0;
22;1,2,0,1,9;
23;0,1,1,0,1;
24;3,7,0,0,2;
25;1,7,1,1,34;505/3
26;0,2,1,1,16;
27;2,1,0,2,10;
28;0,0,1,0,8;
29;1,1,7,1,56;
30;1,0,6,6,54;
31;1,1,0,1,2;
32;0,0,7,1,57;
33;2,0,1,0,0;
34;1,1,1,3,6;
35;1,2,1,2,18;506/1
36;2,0,0,1,18;
37;2,0,1,0,2;
38;1,0,1,6,54;
39;1,2,0,0,10;
40;1,0,0,2,18;
41;0,2,0,0,10;
42;0,2,2,0,16;
43;2,0,2,2,17;
44;1,7,1,0,2;REQUEST T/W S/R
45;6,6,6,6,1;507/5
46;1,1,0,1,9;
47;0,1,0,1,15;REQUEST T/W S/R
48;0,0,2,1,57;T/W ANNEXE
49;7,1,1,2,17;508/3 EDIT TIME SR
50;2,1,1,1,8;
51;0,1,1,0,1;
52;1,1,0,0,10;
53;1,0,0,1,1;
54;7,1,2,1,11;PTS IN MASTER?
55;0,1,0,2,8;509/5
56;2,0,1,0,54;
57;2,1,0,2,11;
58;3,1,7,1,16;510/6 LOAD CHAP S/R
59;1,0,0,1,1;
60;1,0,1,7,57;LOG ROUTINE/RTE CLSD LK
61;0,1,0,1,0;511/5
62;0,6,6,6,54;
63;6,6,6,6,54;
64;7,0,0,0,0;MOD GRP 3 STORE
65;0,0,0,0,63;PRRTY AND STRE TABS
66;0,0,0,0,63;CLOCK IND/T/W ANNEXE
67;0,0,7,0,0;PTS CHAP START
68;5,0,0,0,0;513/1
69;0,0,5,0,0;
70;5,0,0,0,0;
71;7,6,6,6,54;
SHEET;580
CONST;678;0;FIRST LEVEL PARAS OF FINAL CHUNK
0;(B5)1(B3)1(B3)7(B3)3(B6)0;601/1 RETURN AFTER PLS
1;6,2,2,1,1;
2;7,1,0,1,10;READ NEXT BLOCK
3;1,7,0,2,9;LOAD CHAP S/R
4;1,0,1,1,17;
5;2,2,1,1,1;
6;0,0,1,1,1;
7;0,1,0,2,9;
8;1,7,0,0,0;
9;0,0,2,1,17;
10;0,0,2,0,9;603/1
11;0,0,0,6,54;
12;1,2,1,1,58;
13;1,0,2,2,15;PTS IN MASTER
14;1,1,1,0,9;
15;3,2,2,0,11;
16;2,0,1,2,11;
17;2,0,1,1,2;
18;0,1,0,1,8;
19;7,0,7,6,54;PTS CHAP START
SHEET;581
CONST;679;0;SECOND LEVEL PARAS
0;(B8)29(B6)31(B6)14;UNLOADER
1;6,6,8;
2;32,32,12;
3;12,12,31;
4;13,63,63;
5;30,31,31;
6;29,30,29;
7;30,30,30;
8;31,62,31;2/ALLOC STORAGE
9;31,30,7;
10;6,11,28;
11;28,48,30;
12;14,6,62;
13;32,29,28;1/ALLOC ROUTES
14;26,7,63;
15;63,63,32;
16;6,6,33;
17;33,14,24;
18;24,63,63;
19;24,62,29;3/ALLOC F/P
20;14,22,32;
21;22,63,63;
22;63,6,6;
23;27,63,63;
24;21,24,23;
25;62,8,29;2/SET UP PQ
26;15,30,30;
27;16,35,32;
28;32,63,63;
29;63,63,63;DUMMY WORD
30;17,17,18;
31;19,28,6;
32;20,15,10;
33;30,29,25;
34;18,43,62;
35;9,7,6;1/LOAD CHAP
36;11,24,28;
37;43,62,63;
SHEET;582
PROCR;680;START OF PASS 4=READ/STORE PROCR START INDEX
0;152;152;0;0;0;0;
1;C;776;0;0;0;0;CALL PASS 5
2;0;27;13;0;0;0;
3;70;680;6;0;0;0;gNOT 'TRAMDING'
4;0;94;0;1;0;0;
5;5;16;2;1;0;0;
6;52;5;0;0;0;0;TYPE 'PROG OUT'
7;C;736;12;0;0;0;
8;0;27;12;0;0;0;
9;70;680;16;0;0;0;gNO PTS
10;10;0;0;0;0;4+677372;'+PTS'
11;5;5;12;1;0;0;
12;0;732;22;1;0;0;DOUBLE LE
13;5;5;14;1;0;0;
14;35;0;0;0;0;1111;
15;37;5;10;1;0;0;
16;154;5;0;0;0;0;
17;54;5;0;1;0;50;
18;0;27;13;0;0;0;
19;71;690;0;0;0;0;g'TRAMDING'
20;54;26;0;1;0;1080;
21;90;0;0;0;8;0;
22;C;0;0;0;0;48;FOR PROCR STARTS
23;90;0;0;0;2;0;
24;C;0;0;0;0;144;
25;80;722;0;0;0;0;READ A6>SEC 9
26;55;9;4;2;0;8;
27;C;11;0;2;0;0;
28;5;18;0;0;0;0;CLEAR CTR
29;;11;0;1;0;0;
30;32;0;0;0;0;2-;TEST TYPE AS EXPECTED
31;2;731;6;1;0;0;
32;70;680;39;0;0;0;gOK
33;10;0;0;0;0;900000;
34;1;27;9;0;0;0;
35;91;0;0;0;3;0;FOR REENTRY
36;150;0;0;0;0;8;
37;C;100;0;0;0;0;RE-ENTER PASS 0
38;C;680;23;0;0;0;>READ NEXT BLOCK
39;;9;0;2;0;0;
40;5;712;0;0;0;0;CURRENT BLOCK SERIAL WL
41;90;0;0;0;2;0;
42;C;0;0;0;0;144;
43;;9;4;1;2;0;
44;32;0;0;0;0;2-;
45;2;731;6;1;0;0;'TYPE'
46;71;680;61;0;0;0;gSTEP R2
47;32;0;0;0;0;2;
48;12;0;0;0;0;46;
49;70;680;61;0;0;0;g6=C-PROCR
50;12;0;0;0;0;1;
51;70;680;61;0;0;0;g7=VALUES
52;73;680;56;0;0;0;gTYPE 1-5
53;12;0;0;0;0;8;
54;70;680;64;0;0;0;gEND OF PROGM
55;76;680;61;0;0;0;
56;;9;6;2;2;0;
57;5;26;0;0;0;0;
58;;9;8;2;2;0;START
59;124;26;0;0;1;0;
60;5;26;0;0;0;0;
61;94;680;43;0;2;8;
62;80;722;0;0;0;0;gREAD
63;76;680;41;0;0;0;
64;46;A6;4;0;0;1;
65;C;0;0;0;0;£££££;
66;80;722;0;0;0;0;gREAD
67;;712;0;0;0;0;
68;2;9;0;2;0;0;
69;73;680;64;0;0;0;gRUN BACK FURTHER
70;71;680;66;0;0;0;gGET TO REQUIRED BLOCK
71;55;94;0;1;0;100;SECTION START ADDRESSES
72;C;26;0;1;0;0;
73;101;0;204;1;3;0;
74;5;26;1000;0;0;0;CONVERT TABLE START
75;124;92;29;0;1;0;
76;;26;1001;0;0;0;
77;124;92;29;0;1;0;
78;5;72;17;0;0;0;(TO PRESERVE IT IN COPY)
79;55;72;18;0;0;0;SWITCH PROCR STARTS
80;C;26;1002;0;0;0;
81;C;92;29;0;0;0;(CHAPS INITIALLY)
82;124;92;29;0;1;0;
83;;72;2;0;0;0;SPECIAL CHAP LENGTH
84;5;26;1001;0;0;0;SET START OF PRINT SR
85;5;27;7;0;0;0;CLEAR
SHEET;583
PROCR;681;SET UP BLOCKS FOR PTS
0;;16;2;0;0;0;PROG ID
1;5;8;6;2;0;0;
2;;16;3;0;0;0;PROG SERIAL
3;5;8;8;2;0;0;
4;;732;10;1;0;0; 'FIEND'
5;5;8;4;1;0;0;
6;80;727;0;0;0;0;WRITE'FIEND'BLOCK
7;90;0;0;0;2;0;
8;C;0;0;0;0;48;
9;90;0;0;0;1;0;
10;C;0;0;0;0;1000;
11;0;26;0;0;1;0;PROCR START INDEX
12;80;692;0;0;0;0;gOUT
13;94;681;11;0;1;1;
14;90;0;0;0;1;0;
15;C;0;0;0;0;14;FOR CHAPTER ENDS ETC
16;;92;10;0;1;0;
17;80;692;0;0;0;0;gOUT
18;94;681;16;0;1;1;
19;90;0;0;0;1;0;
20;C;0;0;0;0;40;FOR TRACE POINTS
21;;25;2;0;1;0;
22;80;692;0;0;0;0;gOUT
23;94;681;21;0;1;1;
24;90;0;0;0;1;0;
25;C;0;0;0;0;100;FOR SECTIONS
26;;15;0;0;1;0;
27;80;692;0;0;0;0;gOUT
28;94;681;26;0;1;1;
29;90;0;0;0;1;0;
30;C;0;0;0;0;36;FOR FILES AND TX AREAS
31;;24;0;0;1;0;
32;80;692;0;0;0;0;gOUT
33;94;681;31;0;1;1;
34;80;727;0;0;0;0;WRITE FINAL BLOCK
SHEET;584
PROCR;682;CHAPTER HEADING BLOCK - THE FIRST ONE
0;90;0;0;0;1;0;
1;C;0;0;0;0;48;
2;10;0;0;0;0;1;
3;5;16;16;0;0;0;
4;52;8;4;0;0;0;
5;C;738;0;0;0;0;
6;80;727;0;0;0;0;WRITE CHAP HEADING BLOCK
7;52;5;2;0;0;0;
8;C;738;10;0;0;0;
9;10;0;0;0;0;2;
10;3;16;16;0;0;0;
11;80;724;0;0;0;0;gPRINT CHAP HEADING
12;90;0;0;0;2;0;
13;C;0;0;0;0;144;
14;76;683;1;0;0;0;gDEAL WITH FIRST'TYPE'BLOCK
SHEET;585
PROCR;683;ENTRY POINT
NOTES;RADIX;B;MAIN LOOP
0;80;721;0;0;0;0;gGET NEXT ITEM
1;80;728;0;0;0;0;
2;;11;0;1;0;0;
3;32;0;0;0;0;2-;
4;2;731;6;1;0;0; 'TYPE'
5;71;695;0;0;0;0;gSWITCH NOT A 'TYPE' UNIT
6;32;0;0;0;0;2;
7;12;0;0;0;0;48;
8;72;686;0;0;0;0;(MUST BE 14=CHAP END)
9;11;0;0;0;0;8;
10;84;695;0;0;0;0;
11;00;11;4;2;0;0;
12;05;16;23;0;0;0;SPACE CTR FOR USE WITH VALUES
13;;11;2;2;0;0;
14;80;729;0;0;0;0;TO DEC
15;3;16;17;0;0;0;
16;5;733;4;0;0;0;STORE CURRENT PROCR
17;62;0;0;0;0;0;RESET BINARY
SHEET;586
PROCR;684;PRINT HEADING FOR INSTRUCTIONS
NOTES;RADIX;B;MAIN LOOP
0;85;100;0;0;0;0;
1;C;684;21;0;0;0;>PRINT
2;C;684;3;0;0;0;>DON'T PRINT
3;0;11;2;2;0;0;PROCR
4;70;683;0;0;0;0;gDON'T PRINT
5;0;11;4;2;0;0;PROCR START
6;80;729;0;0;0;0;TO DEC
7;62;0;0;0;0;0;
8;5;16;36;0;0;0;PROCR START
9;52;5;2;0;8;0;
10;C;738;14;0;0;0;
11;86;695;0;0;0;0;TYPE
12;12;0;0;0;0;6;
13;71;684;16;0;0;0;
14;10;0;0;0;0;537354; 'CTD'
15;5;5;2;1;8;0;
16;94;683;0;0;8;4;
17;80;724;0;0;0;0;gPRINT
18;90;0;0;0;8;0;
19;C;0;0;0;0;48;
20;76;683;0;0;0;0;
21;95;0;0;0;5;0;
22;5;731;36;1;0;0;
23;0;16;1;0;0;0;LINE PRINTED?
24;70;684;26;0;0;0;gYES
25;80;712;0;0;0;0;gO/P LINE
26;91;731;36;0;5;0;RESET R5
27;5;16;37;0;0;0;CLEAR SUBCTR
28;86;695;0;0;0;0;TEST TYPE 1
29;12;0;0;0;0;1;
30;71;685;0;0;0;0;IF NOT GO TO 728
31;0;731;26;1;0;0;SET UP'PROCEDURE'
32;34;731;28;1;0;0;
33;76;685;13;0;0;0;
SHEET;587
PROCR;685;PRINT OTHER HEADINGS
NOTES;RADIX;B;MAIN LOOP
0;12;0;0;0;0;5;
1;71;685;5;0;0;0;gNOT TYPE 6
2;10;0;0;0;0;5366657354;'CONTD'
3;5;5;2;1;0;0;
4;76;685;16;0;0;0;gPRINT
5;12;0;0;0;0;1;
6;71;685;11;0;0;0;gNOT TYPE 7
7;90;0;0;0;8;0;(FOR SPECIAL PRINTING)
8;C;0;0;0;0;40;
9;10;0;0;0;0;7551637455;'VALUE'
10;76;685;3;0;0;0;
11;0;731;30;1;0;0;
12;34;731;32;1;0;0;
13;100;16;18;1;0;0;
14;52;5;2;0;0;0;
15;C;738;40;0;0;0;HEADING BLOCK
16;80;724;0;0;0;0;
17;76;683;0;0;0;0;
SHEET;588
PROCR;686;CHAPTER END
NOTES;RADIX;B;MAIN LOOP
0;80;721;0;0;0;0;GET NEXT ITEM
1;80;728;0;0;0;0;
2;;11;0;1;0;0;
3;2;731;18;1;0;0;BEW
4;70;721;2;0;0;0;gREAD BLOCK, SR LINK STILL SET
5;;11;0;1;0;0;
6;30;0;0;0;0;2-;
7;2;731;6;1;0;0;'TYPE'
8;71;686;0;0;0;0;gLOOP
9;;735;8;0;0;0;£ IN Q5
10;5;8;4;2;1;0;=PARAMETER
11;5;8;6;1;1;0;
12;80;727;0;0;0;0;gWRITE
13;90;0;0;0;1;0;
14;C;0;0;0;0;48;
15;0;16;1;0;0;0;
16;70;687;0;0;0;0;
17;80;712;0;0;0;0;gO/P LINE
SHEET;589
PROCR;687;NEW CHAPTER HEADING
NOTES;RADIX;B;MAIN LOOP
0;10;0;0;0;0;0;
1;5;16;28;0;0;0;
2;5;16;37;0;0;0;CLEAR SERIAL SUB-CTR
3;52;8;4;0;0;0;EDIT
4;C;738;0;0;0;0;
5;0;16;16;0;0;0;
6;80;730;0;0;0;0;gTO BIN
7;5;8;4;2;0;0;BIN CHAP NUMBER ON MT
8;85;100;0;0;0;0;
9;C;687;14;0;0;0;>PRINT
10;C;687;11;0;0;0;>DON'T PRINT
11;80;724;0;0;0;0;g PRINT PROCR START LINE
12;90;0;0;0;8;0;
13;C;0;0;0;0;48;
14;52;5;2;0;0;0;
15;C;738;10;0;0;0;
16;90;0;0;0;5;0;
17;C;0;0;0;0;40;
18;60;0;0;0;0;0;
19;10;0;0;0;0;1;
20;4;16;16;0;0;0;STEP CHAP NUMBER (DEC)
21;62;0;0;0;0;0;
22;;16;16;0;0;0;THIS CHAP (DEC)
23;12;0;0;0;0;1;
24;2;92;29;0;0;0;SPECIAL CHAP (DEC)
25;71;687;33;0;0;0;
26;55;732;0;1;0;6; 'EXTRA CHAPTER'
27;C;5;10;1;0;0;
28;101;0;202;1;3;0;
29;5;16;28;0;0;0;SET LINE SERIAL
30;80;724;0;0;0;0;PRINT CHAP HEADING
31;80;727;0;0;0;0;g WRITE CHAP HEADING
32;76;688;0;0;0;0;g GENERATE SP CHAP
33;;11;0;1;0;0; 'TYPE (SOMETHING) '
34;2;731;2;1;0;0; 'TYPE£'
35;90;0;0;0;1;0;
36;C;0;0;0;0;0;/////
37;70;687;43;0;0;0;g END
38;90;0;0;0;1;0;
39;C;0;0;0;0;48;
40;80;724;0;0;0;0;g PRINT NEW CHAP HEADING
41;80;727;0;0;0;0;g WRITE NEW
42;76;683;2;0;0;0;g TEST WHICH TYPE
43;;27;7;0;0;0;CTR NEG ADDRESSES
44;70;687;69;0;0;0;g NONE
45;30;0;0;0;0;5;
46;91;0;0;0;3;0;
47;54;5;2;1;0;46;
48;80;724;0;0;0;0;
49;80;724;0;0;0;0;
50;80;724;0;0;0;0;3 BLANK LINES
51;10;0;0;0;0;6955560000; 'REF'
52;5;5;4;1;0;0;
53;10;0;0;0;0;6769665369; 'PROCR'
54;5;5;6;1;0;0;
55;80;724;0;0;0;0;g HEADING
56;;18;3;0;3;0;REF
57;80;729;0;0;0;0;g DEC
58;5;729;0;0;0;0;
59;;18;2;0;3;0;DEC PROCR
60;5;724;0;0;0;0;
61;62;0;0;0;0;0;
62;52;5;4;0;0;0;
63;C;736;8;0;0;0;
64;80;724;0;0;0;0;g PRINT
65;94;687;56;0;3;2;
66;80;724;0;0;0;0;g BLANKS
67;80;724;0;0;0;0;
68;80;724;0;0;0;0;
69;55;26;0;1;0;1000;PROCR START INDEX FOR 08005
70;C;18;1000;1;0;0;
71;;27;12;0;0;0;
72;70;680;0;0;0;0;g PTS NOT NEEDED. CALL PASS 5
73;76;711;0;0;0;0;
SHEET;590
PROCR;688;GENERATE START OF SPECIAL CHAPTER
0;10;0;0;0;0;£00;
1;5;13;0;2;0;0;PARA
2;101;0;202;1;3;0;
3;5;13;2;2;0;0;
4;80;714;0;0;0;0;g O/P
5;10;0;0;0;0;14;20
6;92;0;0;0;5;0;
7;10;0;0;0;0;0;
8;5;13;0;2;0;0;
9;5;13;2;2;0;0;
10;80;710;0;0;0;0;
11;80;710;0;0;0;0;O/P LOCNS 202 203 BLANK
SHEET;591
PROCR;689;CALCULATE CONVERT TABLE
0;;92;7;0;0;0;
1;30;0;0;0;0;5;
2;70;686;9;0;0;0;g NO TABLES
3;91;0;0;0;3;0;
4;;99;0;1;3;0;NEXT OLD/NEW RADIX PAIR
5;5;70;30;1;0;0;
6;95;0;0;0;3;0;
7;5;70;6;1;0;0;WL
8;10;0;0;0;0;1;
9;5;70;8;1;0;0;FIRST TABLE ENTRY
10;100;70;30;0;3;0;NEW RADIX
11;12;0;0;0;0;1;
12;32;0;0;0;0;10-;
13;10;0;0;0;0;0;
14;32;0;0;0;0;10;
15;5;70;0;1;0;0;LARGEST NUMBER IN NEW RADIX
16;100;70;31;0;3;0;OLD RADIX
17;12;0;0;0;0;1;
18;62;0;0;0;0;0;BIN
19;5;70;2;1;0;0;> COMPLEMENT
20;0;70;31;0;0;0;OLD RADIX
21;5;70;2;0;0;0;
22;34;70;2;1;0;0;(8) = 10QTTS OF OLD EXCESS CONSTS
23;90;0;0;0;4;0;
24;C;0;0;0;0;18;CALC 9 TE'S
25;36;735;11;0;0;0;Q1
26;5;70;4;0;0;0;EC Q1 - FORM 16-EC:0
27;2;70;4;0;0;0;FOR MR
28;11;0;0;0;0;10;
29;30;0;0;0;0;5;
30;5;70;2;1;0;0;
31;91;70;2;0;3;0;
32;100;70;30;0;3;0;SET NEW RADIX
33;2;70;0;1;0;0;LARGEST NO IN NEW RADIX
34;1;70;8;1;4;0;
35;72;689;54;0;0;0;g WILL GET O'FLOW
36;94;689;34;0;3;1;
37;1;70;0;1;0;0;
38;5;70;10;1;4;0;STORE NEXT TE
39;62;0;0;0;0;0;SET BINARY
40;32;0;0;0;0;1-;FOR NEXT QTT OF OLD RADIX
41;94;689;25;0;4;2;
42;90;0;0;0;3;0;
43;C;0;0;0;0;20;
44;0;70;8;0;3;0;
45;5;13;2;2;0;0;
46;80;710;0;0;0;0;
47;0;70;9;0;3;0;
48;5;13;2;2;0;0;
49;80;710;0;0;0;0;
50;94;689;44;0;3;2;
51;91;70;6;0;3;0;RESTORE R3
52;94;689;4;0;3;2;>NEXT CONVERT TABLE
53;76;686;9;0;0;0;gFINISH THE EXTRA CHAPTER
54;0;734;38;1;0;0;ALL THE p'S
55;76;689;38;0;0;0;gSTORE INFINITY AS TABLE ENTRY
SHEET;592
PROCR;690;DIRECTORY ENTRY FROM PASS 5-DEAL WITH END OF INTERCODE*PLS
0;;16;2;0;0;0;GENERATE INDEX DETAILS
1;3;8;4;2;0;0;
2;5;8;12;2;0;0;
3;;16;3;0;0;0;
4;3;8;6;2;0;0;
5;5;8;14;2;0;0;
6;10;0;0;0;0;2;
7;5;8;10;2;0;0;PASS 1 IDENTIFIER
8;10;0;0;0;0;3;
9;5;8;18;2;0;0;PASS 3 IDENTIFIER
10;10;0;0;0;0;4;
11;5;8;16;2;0;0;
12;;734;38;0;0;0; 'ppppp'
13;5;8;20;2;0;0;
14;80;727;0;0;0;0;gWRITE
15;80;694;0;0;0;0;A1-7
16;;7;4;2;0;0;TEST 'SENTINEL5'
17;2;734;38;0;0;0; 'ppppp'
18;71;690;15;0;0;0;gNO
19;35;0;0;0;0;1;
20;36;7;6;2;0;0;
21;12;0;0;0;0;5;
22;71;690;15;0;0;0;gNO
23;;16;3;0;0;0;
24;5;7;10;2;0;0;PROG SERIAL
25;80;704;0;0;0;0;gWRITE
26;80;694;0;0;0;0;gREAD
27;;7;42;1;0;0;
28;12;0;0;0;0;5163636653; 'ALLOC'
29;71;690;25;0;0;0;
30;;7;12;2;0;0;CHAPS INITIALLY
31;3;92;9;0;0;0;
32;5;92;29;0;0;0;
33;;16;3;0;0;0;
34;5;7;40;2;0;0;NEW PROG SERIAL
35;80;704;0;0;0;0;gWRITE
36;80;694;0;0;0;0;gREAD
37;;7;4;1;0;0;
38;2;732;10;1;0;0; 'FIEND'
39;71;690;35;0;0;0;gNOT YET
40;;16;3;0;0;0;
41;5;7;8;2;0;0;
42;80;704;0;0;0;0;
SHEET;593
PROCR;691;STORE 08005 DATA,ALIGN FILES,COPY M/CODE PROGRAM
0;90;0;0;0;2;0;TRICK
1;C;0;0;0;0;2;
2;90;0;0;0;1;0;FOR PROCR START INDEX
3;C;0;0;0;0;1000;
4;80;693;0;0;0;0;gGET
5;5;26;0;0;1;0;
6;94;691;4;0;1;1;
7;90;0;0;0;1;0;FOR CHAP DETAILS
8;C;0;0;0;0;14;
9;80;693;0;0;0;0;gGET
10;5;92;10;0;1;0;
11;94;691;9;0;1;1;
12;90;0;0;0;1;0;FOR TRACE POINTS
13;C;0;0;0;0;40;
14;80;693;0;0;0;0;gGET
15;5;25;2;0;1;0;
16;94;691;14;0;1;1;
17;90;0;0;0;1;0;FOR SECTIONS
18;C;0;0;0;0;100;
19;80;693;0;0;0;0;gGET
20;5;15;0;0;1;0;
21;94;691;19;0;1;1;
22;90;0;0;0;1;0;FOR FILES AND TX AREAS
23;C;0;0;0;0;36;
24;80;693;0;0;0;0;gGET
25;5;24;0;0;1;0;
26;94;691;24;0;1;1;
27;80;694;0;0;0;0;gREAD A1
28;;7;12;1;0;0;
29;2;731;0;1;0;0; 'CHAPT'
30;70;691;56;0;0;0;gHEADING BLOCK
31;;7;4;1;0;0;
32;2;731;0;1;0;0; 'CHAPT'
33;70;691;60;0;0;0;gTRIAL DATA START
34;1;731;0;1;0;0;
35;2;731;4;1;0;0; 'FILES'
36;70;691;60;0;0;0;gPM POINTS START
37;1;731;4;1;0;0;
38;12;0;0;0;0;55; 'E'
39;70;691;53;0;0;0;gYES
40;;7;12;1;0;0;
41;12;0;0;0;0;535851675+;(PTS HEADING)
42;71;691;58;0;0;0;gNO
43;80;694;0;0;0;0;(DRAIN OLD PTS PART ONE)
44;;7;4;1;0;0;
45;2;731;0;1;0;0; 'CHAPT'
46;70;691;60;0;0;0;
47;1;731;0;1;0;0;
48;2;731;4;1;0;0; 'FILES'
49;70;691;60;0;0;0;
50;1;731;4;1;0;0;
51;12;0;0;0;0;55; 'E'
52;71;691;43;0;0;0;
53;5;27;3;0;0;0;SET'NO B/FWD TRIAL DATA'
54;41;A1;0;0;0;1;CLOSE I/P
55;76;691;62;0;0;0;
56;;16;3;0;0;0;
57;5;7;10;2;0;0;
58;80;704;0;0;0;0;gWRITE
59;76;691;27;0;0;0;
60;10;0;0;0;0;1;
61;5;27;3;0;0;0;SET'DATA PRESENT'
62;40;A6;0;0;0;1;
63;76;687;69;0;0;0;
SHEET;594
PROCR;692;WRITE PTS BLOCK TO A2
0;81;692;0;0;0;0;
1;5;8;4;2;2;0;
2;94;692;6;0;2;2;
3;80;727;0;0;0;0;WRITE->A2
4;90;0;0;0;2;0;
5;C;0;0;0;0;48;
6;82;692;0;0;0;0;
SHEET;595
PROCR;693;READ/STORE NEXT'FIEND'ITEM
0;81;693;0;0;0;0;
1;94;693;6;0;2;2;
2;80;694;0;0;0;0;READ A1-7
3;80;704;0;0;0;0;COPY 7->8->A2
4;90;0;0;0;2;0;
5;C;0;0;0;0;48;
6;;7;4;2;2;0;
7;82;693;0;0;0;0;
SHEET;596
PROCR;694;READ A1-7
0;81;694;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;7;0;0;0;0;
3;82;694;0;0;0;0;
SHEET;597
PROCR;695;'TYPE'SWITCH
NOTES;RADIX;B;MAIN LOOP
0;85;695;0;0;0;0;
1;C;696;0;0;0;0;INSTRUCTIONS
2;C;702;0;0;0;0;TABLE ENTRIES
3;C;706;0;0;0;0;PROGRAMME CONSTS
4;C;706;0;0;0;0;TABLE STARTS
5;C;707;0;0;0;0;FORMED CONST
6;C;696;0;0;0;0;6=C-PROCR
7;C;708;0;0;0;0;7=VALUES
SHEET;598
PROCR;696;TEST FOR SEQUENCE CHANGE
NOTES;RADIX;B;INSTRUCTIONS
0;;11;4;2;0;0;
1;32;0;0;0;0;2-;
2;5;16;18;0;0;0;REF
3;33;0;0;0;0;1;
4;5;16;24;0;0;0;NEG ITEM IND
5;33;0;0;0;0;7;
6;5;13;0;2;0;0;PARA
7;34;11;6;2;0;0;ADM+ITEM
8;;11;2;2;0;0;TEST FOR SEQUENCE CHANGE
9;70;697;0;0;0;0;gNOT SEQ CHANGE OR MR ENTRY
10;12;0;0;0;0;1;
11;70;699;0;0;0;0;gIS SEQ CHANGE
12;12;0;0;0;0;1;
13;71;696;25;0;0;0;gNOT ACTION 16/0/0
14;36;735;1;0;0;0;BITS 1-13
15;5;16;19;0;0;0;MODULUS OF ITEM
16;34;16;24;0;0;0;
17;74;696;20;0;0;0;gPOSITIVE ITEM
18;1;16;19;0;0;0;
19;76;696;21;0;0;0;
20;2;16;19;0;0;0;
21;124;16;18;0;1;0;REF
22;2;26;0;0;0;0;
23;5;13;2;2;0;0;
24;76;698;10;0;0;0;gO/P
25;0;11;2;2;0;0;
26;5;13;0;2;0;0;COPY IND AS PARA
SHEET;599
PROCR;697;INSTRUCTIONS
NOTES;RADIX;B;INSTRUCTIONS
0;36;735;1;0;0;0;BITS 1-13
1;5;16;19;0;0;0;MODULUS OF ITEM
2;;11;6;2;0;0;
3;5;13;2;2;0;0;
4;34;16;24;0;0;0;
5;74;697;8;0;0;0;gNOT NEGATIVE ITEM
6;2;16;19;0;0;0;
7;5;16;19;0;0;0;(SET SIGN)
8;;16;19;0;0;0;
9;124;16;18;0;1;0;
10;1;26;0;0;0;0;PROCR START
11;73;698;0;0;0;0;gREPORT
12;34;735;1;0;0;0;BITS 1-13
13;37;13;2;2;0;0;
14;76;698;10;0;0;0;
SHEET;600
PROCR;698;REPORT ACTION WITH NEGATIVE ITEM
NOTES;RADIX;B;ACTION DETAILS
0;10;0;0;0;0;78000-;23/1/0 ACTION FOR LOCKOUT
1;5;13;2;2;0;0;
2;5;13;0;2;0;0;
3;91;27;7;0;3;0;CTR
4;;16;18;0;0;0;THIS REF
5;30;0;0;0;0;5;
6;1;733;4;0;0;0;CURRENT PROCR
7;5;18;2;1;3;0;
8;10;0;0;0;0;2;
9;4;27;7;0;0;0;STEP CTR
10;80;714;0;0;0;0;EDIT+WRITE INSTRUCTION
11;85;100;0;0;0;0;
12;C;700;0;0;0;0;>PRINT
13;C;683;0;0;0;0;>DON'T PRINT
SHEET;601
PROCR;699;SEQUENCE CHANGES
NOTES;RADIX;B;INSTRUCTIONS
0;0;735;13;0;0;0;FLIPFLOP
1;70;699;5;0;0;0;BOTTOM 10 BITS
2;0;18;0;0;12;0;
3;31;0;0;0;0;10-;
4;76;699;7;0;0;0;
5;34;735;12;0;0;0;BITS 1-10
6;36;18;0;0;12;0;
7;124;16;18;0;1;0;ITEM WITHIN PROCR IN A
8;1;26;0;0;0;0;
9;5;16;18;0;0;0;=SEQ CHANGE ADDRESS
10;34;11;6;2;0;0;
11;36;735;2;0;0;0;BITS 14-20+SIGN
12;73;699;15;0;0;0;
13;1;16;18;0;0;0;
14;76;699;16;0;0;0;
15;2;16;18;0;0;0;
16;5;13;2;2;0;0;
17;10;0;0;0;0;1;
18;2;735;13;0;0;0;
19;3;735;13;0;0;0;REVERSE FLIPFLOP
20;71;698;10;0;0;0;gNOW ADDRESSES TOP 10 BITS
21;94;0;0;0;12;1-;
22;76;698;10;0;0;0;gSAFETY
SHEET;602
PROCR;700;DECODE INSTRUCTION FOR PRINTING
NOTES;RADIX;B;INSTRUCTIONS
0;34;13;2;2;0;0;(A IS CLEAR)
1;32;0;0;0;0;6;
2;5;16;21;0;0;0;ACTION
3;33;0;0;0;0;1;
4;5;16;25;0;0;0;DISC
5;33;0;0;0;0;2;
6;5;16;26;0;0;0;MOD
7;33;0;0;0;0;13;
8;5;16;24;0;0;0;ADDRESS
9;0;13;2;2;0;0;
10;72;701;0;0;0;0;gPOSITIVE ACTION
11;10;0;0;0;0;10;16
12;4;16;21;0;0;0;
SHEET;603
PROCR;701;CONVERT FOR PRINT
NOTES;RADIX;B;INSTRUCTIONS
0;0;13;0;2;0;0;PARA
1;80;729;0;0;0;0;gCONVERT TO DEC
2;5;13;4;0;0;0;
3;0;16;24;0;0;0;ADDRESS
4;80;729;0;0;0;0;TO DEC
5;5;13;2;1;0;0;
6;0;16;21;0;0;0;ACTION
7;80;729;0;0;0;0;TO DEC
8;5;13;0;1;0;0;
9;62;0;0;0;0;0;RESET BINARY
10;52;5;4;0;5;0;
11;C;739;0;0;0;0;
12;10;0;0;0;0;1;
13;4;16;37;0;0;0;AUG SUBCTR
14;5;16;1;0;0;0;
15;94;683;0;0;5;10;
16;80;712;0;0;0;0;gO/P LINE
17;76;683;0;0;0;0;
SHEET;604
PROCR;702;FORM ADDRESS
NOTES;RADIX;B;
0;;11;0;2;0;0;
1;32;0;0;0;0;2-;SELECT REFERENCE
2;5;16;18;0;0;0;
3;33;0;0;0;0;1;
4;5;16;21;0;0;0;NEW ITEM IND
5;33;0;0;0;0;7;
6;3;13;0;2;0;0;
7;5;13;4;2;0;0;PARAMETER
SHEET;605
PROCR;703;DEAL WITH 2ND ITEM FOR CONDENSE
NOTES;RADIX;B;
0;;11;6;1;0;0;
1;5;13;6;1;0;0;STORE Q'S AND I'S
2;;11;4;2;0;0;
3;70;703;24;0;0;0;g NOT CONDENSE/UNPACK TABLE
4;124;16;18;0;1;0;REF
5;0;26;0;0;0;0;
6;35;0;0;0;0;1111;
7;36;11;4;2;0;0;(POSITIVE) ITEM
8;5;16;22;0;0;0;PROVISIONAL ADDRESS
9;0;13;6;2;0;0;Q + I
10;72;703;13;0;0;0;g NORMAL
11;2;16;22;0;0;0;
12;76;703;14;0;0;0;
13;1;16;22;0;0;0;
14;5;13;6;2;0;0;SET SECOND ADDRESS + LTE
15;34;16;21;0;0;0; '-0' IND
16;74;703;25;0;0;0;g NO, CALC FIRST ADDRESS
17;2;13;6;2;0;0;
18;70;703;22;0;0;0;
19;5;13;6;2;0;0;(SET SIGN BIT)
20;5;16;21;0;0;0;
21;76;703;25;0;0;0;
22;5;16;21;0;0;0;CLEAR THIS
23;0;735;6;0;0;0; £ IN Q4 (MINUS ZERO)
24;5;13;4;2;0;0;CLEAR PARA - FIXED FIELD
25;124;16;18;0;1;0;REF
26;0;26;0;0;0;0;
27;1;11;2;2;0;0;FIRST ITEM (ALWAYS > 0)
28;5;13;2;2;0;0;
29;0;16;21;0;0;0; '-0' IND
30;70;703;33;0;0;0;g NO
31;0;735;6;0;0;0;£ IN Q4
32;5;13;4;2;0;0;SET SECOND PARA
33;80;714;0;0;0;0;g O/P MT
34;0;13;0;2;0;0;PARA
35;80;729;0;0;0;0;TO DEC
36;5;16;22;0;0;0;
37;34;13;2;2;0;0;
38;32;0;0;0;0;6;DELETE B17
39;10;0;0;0;0;0;(STERLING INDICATOR)
40;32;0;0;0;0;4;
41;80;729;0;0;0;0;TO DEC
42;5;16;30;0;0;0;
43;62;0;0;0;0;0;RESET BINARY
44;35;0;0;0;0;10000;Q5
45;36;13;2;2;0;0;STERLING IND
46;4;16;22;0;0;0;STORE WITH PARA 
47;;13;4;1;0;0;SET UP SECOND HALF OF 
48;5;13;0;1;0;0;DETAILS FOR 
49;;13;6;1;0;0;OUTPUT 
50;5;13;2;1;0;0;
51;80;714;0;0;0;0;gO/P SECOND HALF 
52;76;705;0;0;0;0;
SHEET;606
PROCR;704;WRITE SEC 7->A2 
0;81;704;0;0;0;0;
1;55;7;4;1;0;50;
2;C;8;4;1;0;0;
3;80;727;0;0;0;0;WRITE 8->A2 
4;82;704;0;0;0;0;
SHEET;607
PROCR;705;
NOTES;RADIX;;
0;35;0;0;0;0;1111;Q1-4 0F INDS/QTTS 
1;85;100;0;0;0;0;
2;C;705;4;0;0;0;gPRINT 
3;C;683;0;0;0;0;gDONT PRINT 
4;36;13;2;2;0;0;
5;80;729;0;0;0;0;TO DEC 
6;62;0;0;0;0;0;ITEM FOR 
7;5;731;36;0;0;0;CONDENSE 
8;5;13;22;0;0;0;CLEAR'LAST TE'IND 
9;;13;2;2;0;0;QTTS+INDS 
10;73;705;14;0;0;0;g LAST TE 
11;;13;0;2;0;0;SECOND PARA 
12;30;0;0;0;0;3-;TEST Q 4 NON-ZERO 
13;70;705;16;0;0;0;g NOT LTE 
14;10;0;0;0;0;1;
15;5;13;22;0;0;0;SET LTE IND 
16;90;0;0;0;3;0;
17;C;0;0;0;0;5;
18;34;13;2;2;0;0;QTTS 
19;32;0;0;0;0;6;
20;5;13;0;0;3;0;
21;32;0;0;0;0;1;
22;94;705;20;0;3;1;STORE Q5-1 IN 13/0-4 
23;90;0;0;0;3;0;
24;C;0;0;0;0;5;
25;00;13;0;0;3;0;
26;80;729;0;0;0;0;TO DECIMAL 
27;05;13;0;0;3;0;
28;94;705;25;0;3;1;
29;62;0;0;0;0;0;
30;52;5;4;0;5;0;
31;C;738;20;0;0;0;
32;10;0;0;0;0;2;
33;4;16;37;0;0;0;AUG SUBCTR 
34;5;16;1;0;0;0;
35;94;683;0;0;5;20;
36;80;712;0;0;0;0;g O/P LINE 
37;76;683;0;0;0;0;
SHEET;608
PROCR;706;
NOTES;RADIX;B;DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S 
0;90;0;0;0;4;0;
1;C;0;0;0;0;8;
2;;11;0;2;4;0;
3;32;0;0;0;0;2-;
4;5;16;18;0;0;0;REF
5;32;0;0;0;0;2;
6;5;13;0;2;0;0;PARA
7;34;735;9;0;0;0;BIT 8
8;36;13;0;2;0;0;
9;70;706;12;0;0;0;gNOT MINUS ZERO
10;;735;6;0;0;0;p IN Q4
11;5;13;0;2;0;0;
12;86;695;0;0;0;0;
13;12;0;0;0;0;3;
14;71;706;20;0;0;0;gTABLE START
15;0;11;2;2;4;0;PROGRAM CONST
16;72;706;21;0;0;0;gPOSITIVE ITEM
17;124;16;18;0;1;0;
18;2;26;0;0;0;0;PROCR START
19;76;706;23;0;0;0;
20;0;11;2;2;4;0;
21;124;16;18;0;1;0;
22;1;26;0;0;0;0;
23;5;13;2;2;0;0;
24;80;714;0;0;0;0;gO/P
25;0;13;2;2;0;0;CONST
26;5;13;4;0;4;0;STORE FOR PRINT
27;0;13;0;2;0;0;PARA
28;5;13;6;0;4;0;
29;94;706;2;0;4;4;
30;85;100;0;0;0;0;
31;C;706;33;0;0;0;>PRINT
32;C;683;0;0;0;0;>DON'T PRINT
33;52;5;4;0;5;0;
34;C;737;4;0;0;0;
35;76;705;32;0;0;0;gVIA TABLE ENTRIES
SHEET;609
PROCR;707;DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS
NOTES;RADIX;B;FORMED CONSTS
0;90;0;0;0;4;0;4 CONSTANTS PER ITEM
1;C;0;0;0;0;8;
2;10;0;0;0;0;0;CLEAR PARA
3;5;13;0;2;0;0;
4;0;11;0;1;4;0;
5;5;13;2;1;0;0;
6;80;714;0;0;0;0;
7;94;707;4;0;4;2;
8;85;100;0;0;0;0;
9;C;707;11;0;0;0;>PRINT
10;C;683;0;0;0;0;>DON'T PRINT
11;90;0;0;0;4;0;
12;C;0;0;0;0;8;
13;0;11;0;2;4;0;
14;5;13;4;0;0;0;
15;5;13;6;0;0;0;
16;80;709;0;0;0;0;
17;94;707;13;0;4;2;
18;76;683;0;0;0;0;
SHEET;610
PROCR;708;VALUES
NOTES;RADIX;B;
0;;11;0;1;0;0;
1;2;731;22;1;0;0;NOTES'
2;71;708;30;0;0;0;gNOT NEW REF/ITEM
3;;11;4;2;0;0;REF
4;5;16;18;0;0;0;
5;;11;6;2;0;0;ITEM
6;124;16;18;0;0;0;
7;1;26;0;0;0;0;
8;02;16;23;0;0;0;CURRENT VALUE OF STACKER
9;03;13;2;2;0;0;>DELTA
10;04;16;23;0;0;0;>NEW VALUE OF STACKER
11;10;0;0;0;0;£00;
12;5;13;0;2;0;0;PARA FOR DELTA
13;80;714;0;0;0;0;WRITE
14;85;100;0;0;0;0;
15;C;708;17;0;0;0;>PRINT
16;C;683;0;0;0;0;>DON'T PRINT
17;0;13;0;2;0;0;PARA 
18;5;13;6;0;0;0;
19;0;13;2;2;0;0;VALUE
20;5;13;4;0;0;0;
21;10;0;0;0;0;1;
22;5;16;1;0;0;0;SET PRINT IND
23;52;5;4;0;8;0;
24;C;737;0;0;0;0;
25;94;683;0;0;8;10;
26;80;724;0;0;0;0;gPRINT
27;90;0;0;0;8;0;
28;C;0;0;0;0;40;
29;76;683;0;0;0;0;
30;10;0;0;0;0;1;
31;04;16;23;0;0;0;AUGMENT LOCN COUNTER
32;00;11;6;2;0;0;
33;5;13;2;2;0;0;VALUE
34;;11;4;2;0;0;PARA FOR VALUE
35;76;708;12;0;0;0;
SHEET;611
PROCR;709;PRINT CONVERT TABLES+TRANSLATOR'S CONSTS
0;81;709;0;0;0;0;
1;10;0;0;0;0;1;
2;4;16;37;0;0;0;
3;5;16;1;0;0;0;
4;52;5;4;0;5;0;
5;C;737;0;0;0;0;
6;94;709;8;0;5;10;
7;80;712;0;0;0;0;gO/P LINE
8;82;709;0;0;0;0;
SHEET;612
PROCR;710;
0;81;710;0;0;0;0;
1;80;714;0;0;0;0;gWRITE
2;;13;2;2;0;0;
3;5;13;4;0;0;0;
4;5;13;6;0;0;0;
5;85;100;0;0;0;0;
6;C;710;8;0;0;0;>PRINT
7;C;710;9;0;0;0;>DON'T PRINT
8;80;709;0;0;0;0;gPRINT
9;82;710;0;0;0;0;
SHEET;613
PROCR;711;GENERATE PTS(1)
0;10;0;0;0;0;535851675+;(CHAP')
1;5;8;12;1;0;0;
2;80;727;0;0;0;0;gWRITE
3;124;741;0;0;2;0;ORDERS
4;91;0;0;0;2;0;
5;124;716;0;0;2;0;FIRST LEVEL PARAS
6;91;0;0;0;3;0;
7;124;720;0;0;2;0;SECOND LEVEL PARAS
8;91;0;0;0;1;0;
9;0;716;0;0;0;0;
10;31;0;0;0;0;2;
11;5;713;9;0;0;0;
12;0;720;0;0;0;0;
13;31;0;0;0;0;2;
14;5;713;15;0;0;0;
15;90;0;0;0;5;0;
16;C;0;0;0;0;6;
17;90;0;0;0;8;0;
18;C;0;0;0;0;3;
19;96;0;0;0;2;0;STORE CHUNK START FOR PARAS 1 AND 5
20;5;713;0;0;0;0;
21;124;713;0;0;1;0;
22;101;0;0;1;3;0;
23;5;713;4;0;0;0;CHUNK START
24;124;999;19;1;2;0;SEC 8
25;124;0;0;0;2;0;
26;3;712;0;0;0;0;WL
27;101;0;48;1;1;0;
28;30;0;0;0;0;5;
29;1;712;0;0;0;0;WL
30;91;0;0;0;4;0;
31;124;713;2;0;3;0;STORE WORD
32;106;0;0;0;2;0;
33;5;713;5;0;0;0;STORE WORD
34;34;713;8;1;0;0;FIRST LEVEL PARA WORD
35;33;0;0;0;0;3;NEXT ONE TO A
36;100;713;6;1;0;0;STORE (A) (B) ©
37;94;711;45;0;5;1;TEST END OF PARA WORD
38;90;0;0;0;5;0;SET UP MR FOR
39;C;0;0;0;0;6;NEXT PARA WORD
40;124;713;2;0;3;0;STORE PARA WORD
41;106;0;1;0;3;0;STORE PARA WORD
42;33;0;0;0;0;2;RIGHT ALIGN WORD
43;5;713;9;0;0;0;
44;94;711;45;0;3;1;STEP PARAS MR
45;;713;6;0;0;0;TEST DUMMY PARA
46;12;0;0;0;0;6;
47;70;711;34;0;0;0;gYES
48;12;0;0;0;0;1;TEST SECOND LEVEL REQD
49;71;711;73;0;0;0;gNO
50;34;713;14;1;0;0;SECOND LEVEL PARA WORD
51;33;0;0;0;0;6;NEXT ONE TO A
52;100;713;12;1;0;0;STORE (A) (B) ©
53;94;711;61;0;8;1;TEST END OF PARA WORD
54;90;0;0;0;8;0;SET UP MR FOR
55;C;0;0;0;0;3;NEXT PARA WORD
56;124;713;2;0;3;0;STORE PARA WORD
57;106;0;1;0;1;0;
58;33;0;0;0;0;2;RIGHT ALLIGN WORD
59;5;713;15;0;0;0;
60;94;711;61;0;1;1;STEP PARAS MR
61;;713;12;0;0;0;TEST SECOND LEVEL
62;101;0;63;1;2;0;PARA = 63(DUMMY)
63;70;711;50;0;0;0;gYES
64;101;0;1;1;1;0;TEST END SIGN(62)
65;71;711;71;0;0;0;gNO
66;;713;2;1;0;0;STORE END SIGN
67;5;0;4;1;4;0;
68;5;0;6;1;4;0;
69;80;727;0;0;0;0;gWRITE LAST BLOCK
70;76;680;0;0;0;0;gCALL PASS 5
71;;713;12;1;0;0;STORE ACTUAL PARA
72;5;713;6;1;0;0;VALUE
73;;713;6;0;0;0;TEST PARA=1
74;12;0;0;0;0;1;
75;70;711;78;0;0;0;gYES
76;12;0;0;0;0;1;
77;71;711;88;0;0;0;gNO
78;101;0;8191;1;3;0;
79;32;0;0;0;0;10-;ADJUST ORDER BY
80;36;713;5;0;0;0;CHUNK START
81;2;713;4;0;0;0;
82;72;711;87;0;0;0;gTHIS CHAP
83;35;0;0;0;0;11111;ADJUST ORDER IN
84;10;0;0;0;0;0;PASS 1 OR 2 WHICH
85;36;713;5;0;0;0;REFERS TO COMMON
86;101;757;0;1;2;0;CODING START
87;37;713;5;0;0;0;
88;;713;5;0;0;0;
89;5;0;6;2;4;0;VALUE
90;;713;6;0;0;0;
91;5;0;4;2;4;0;PARA 
92;94;711;93;0;2;1;WORD MR
93;94;711;31;0;4;4;>NEXT WORD
94;80;727;0;0;0;0;gWRITE 
95;76;711;24;0;0;0;gNEXT BLOCK
SHEET;614
PROCR;712;PRINT LINE WHEN FULL,STEP SERIAL
NOTES;RADIX;B;SUB ROUTINE
0;81;712;0;0;0;0;
1;0;16;28;0;0;0;SERIAL AT STARTOF LINE
2;80;729;0;0;0;0;gTO DEC
3;5;731;38;0;0;0;WL
4;52;5;2;0;0;0;EDIT SERIAL
5;C;738;50;0;0;0;
6;80;724;0;0;0;0;gPRINT
7;62;0;0;0;0;0;
8;0;16;37;0;0;0;INCREMENT THIS LINE
9;4;16;28;0;0;0;UPDATE FOR NEXT
10;10;0;0;0;0;0;
11;5;16;37;0;0;0;
12;90;0;0;0;5;0;
13;C;0;0;0;0;40;
14;82;712;0;0;0;0;
SHEET;615
CONST;713;1;CONSTANTS
0;(D);
2;(A)p    ;
4;(D)0;CHUNK START/ORDER
6;0;A
8;0;B
10;0;C
12;0;A
14;0;B
16;0;C
SHEET;616
PROCR;714;GENERAL MAG-TAPE EDIT & OUTPUT
NOTES;RADIX;B;SUB ROUTINE
0;81;714;0;0;0;0;
1;0;13;0;1;0;0;QUICKER THAN EDIT
2;5;8;4;1;1;0;
3;0;13;2;1;0;0;
4;5;8;6;1;1;0;
5;94;714;9;0;1;4;
6;80;727;0;0;0;0;gWRITE BLOCK
7;90;0;0;0;1;0;
8;C;0;0;0;0;48;
9;82;714;0;0;0;0;
SHEET;617
PROCR;715;READ A2
NOTES;;;
0;81;715;0;0;0;0;
1;42;A2;0;0;0;0;
2;C;8;0;0;0;0;
3;82;715;0;0;0;0;
SHEET;618
CONST;716;0;FIRST LEVEL PARAS,GENERAL CODING
0;(B5)1(B3)1(B3)1(B3)1(B6)9;1000/0
1;1,1,1,1,0;1001/5
2;0,0,0,0,0;
3;0,0,0,0,0;
4;0,0,0,0,0;
5;0,0,0,0,0;
6;0,0,0,0,0;
7;0,0,0,0,0;
8;0,0,0,0,0;
9;0,0,0,0,0;
10;0,0,0,0,0;1002/5
11;0,0,0,0,0;
12;0,0,0,0,0;
13;0,0,0,0,0;
14;0,0,0,0,0;
15;0,0,0,0,0;
16;0,0,0,0,0;
17;0,0,0,0,0;
18;0,0,0,0,0;
19;0,0,0,0,1;1003/5
20;1,0,0,1,54;
21;7,0,1,0,54;
22;0,1,1,0,9;
23;1,7,1,0,15;
24;1,7,1,0,9;
25;7,1,0,1,57;
26;1,7,1,1,9;
27;6,6,6,6,54;
28;3,1,1,1,27;
29;1,7,1,1,8;
30;1,7,6,6,54;
31;0,1,1,0,8;
32;1,7,0,1,1;
33;1,1,0,0,7;
34;0,0,0,0,54;
35;1,3,1,0,8;
36;1,0,1,6,54;
37;1,0,1,7,9;
38;7,0,1,0,54;
39;1,1,7,1,9;
40;0,1,0,1,1;
41;0,1,0,1,1;
42;1,1,0,1,9;
43;1,0,1,0,1;
44;1,7,1,0,8;
45;6,1,3,1,1;
46;7,1,1,7,9;
47;1,6,6,1,9;
48;1,7,1,1,1;
49;0,0,0,1,9;
50;0,6,0,1,56;1004/4
51;1,0,1,1,31;
52;1,0,1,1,54;
53;7,0,0,6,54;1005/2
54;1,7,1,1,8;
55;1,1,0,0,9;
56;0,0,1,3,0;
57;1,0,6,6,54;
58;0,0,0,1,8;
59;0,1,1,0,15;
60;6,6,6,6,15;1006/5
61;1,1,1,7,57;
62;7,1,0,1,1;
63;0,1,0,1,15;
64;1,7,0,0,56;1007/3
65;1,0,1,0,15;
66;1,1,1,7,9;
67;1,0,0,0,11;
68;1,1,3,0,9;
69;1,7,6,6,0;
70;0,0,0,0,0;1009/3
71;0,0,0,0,0;
72;0,0,0,0,0;
73;0,0,0,0,0;
74;0,0,0,0,0;
75;0,0,0,0,0;
76;0,0,0,0,0;
77;0,0,0,0,0;1010/5
78;0,0,0,0,0;
79;0,0,0,0,0;
80;0,0,0,0,0;
81;0,0,0,0,0;
82;0,0,0,0,0;
83;0,0,0,0,0;
84;0,0,0,0,0;
85;0,0,0,0,0;
86;0,0,0,0,0;1011/5
87;0,0,0,0,0;
SHEET;619
CONST;717;0;FIRST LEVEL PARAS PASS 1
0;(B5)0(B3)0(B3)0(B3)0(B6)0;
1;0,0,0,0,0;
2;0,0,0,0,0;
3;0,0,0,0,0;
4;0,0,0,0,0;1012/5
5;0,0,0,0,0;
6;0,0,0,0,0;
7;0,0,0,0,0;
8;0,0,0,0,0;
9;0,0,0,0,0;
10;0,0,0,0,0;
11;0,0,0,0,0;
SHEET;620
CONST;718;0;FIRST LEVEL PARAS PASS 1
0;(B5)0(B3)0(B3)0(B3)0(B6)0;
1;0,0,0,0,0;
2;0,0,0,0,0;
3;0,0,0,0,0;
4;0,0,0,0,0;
5;0,0,0,0,0;
6;0,0,0,0,0;
7;0,0,0,0,0;1013/5
8;0,0,0,0,0;
9;0,0,0,0,54;
10;(B5)1(B3)0(B3)1(B3)0(B6)9;1014/0
11;3,1,1,0,9;
12;1,0,1,0,9;
13;1,0,1,1,9;
14;0,1,1,0,9;
15;0,1,1,0,1;
16;1,1,0,1,9;
17;1,1,6,6,54;
18;6,6,6,6,54;DUMMY WORD
19;0,1,1,1,9;
20;0,1,1,0,9;1015/3
21;0,1,1,1,9;
22;1,0,1,1,54;
23;6,6,1,1,1;1016/3
24;1,0,0,1,0;
25;1,0,0,0,8;
26;1,1,1,0,0;
27;1,0,1,0,9;
28;0,0,1,1,8;1017/4
29;1,1,1,0,9;
30;0,0,0,0,1;
31;0,1,1,0,1;1018/4
32;1,0,0,1,8;
33;0,0,1,0,9;
34;0,1,1,0,9;
35;0,1,1,1,9;1019/4
36;0,0,1,1,0;
37;0,1,0,0,8;
38;1,0,0,1,0;
39;1,0,1,0,1;1020/5
40;1,1,1,1,0;
41;1,1,1,1,1;
42;1,1,0,0,8;
43;0,0,0,0,8;
44;1,0,1,0,9;
45;1,0,0,1,0;
46;1,1,0,1,9;
47;1,1,0,0,9;
48;1,0,1,1,8;1021/4
49;1,1,1,0,9;
50;0,1,1,1,0;
51;1,1,6,6,54;
52;6,1,1,1,9;
53;0,1,1,0,1;
54;1,0,1,1,1;
55;1,6,6,6,54;
56;0,1,0,1,0;
57;1,1,1,0,8;1022/5
58;1,1,1,0,9;
59;1,0,0,1,9;
60;0,0,0,1,0;
61;1,0,1,1,1;
62;1,1,0,0,8;
63;0,1,1,0,9;
64;0,1,1,0,8;
65;1,7,1,0,9;1023/4
66;1,1,3,0,9;
67;0,1,0,0,8;
68;1,0,1,0,54;1024/2
69;1,1,0,0,8;1025/6
70;0,1,0,1,1;
71;0,0,2,2,0;1026/0 1027/5
72;0,0,0,0,0;
73;0,0,0,0,0;
74;0,0,0,0,0;1028/5
75;0,0,0,0,0;1029/5
76;0,0,0,0,0;1030/3 1031/5
77;0,0,0,0,0;
78;0,0,0,0,0;
79;0,0,0,0,0;
80;0,0,0,0,0;1032/3
81;0,0,7,6,54;
SHEET;621
PROCR;719;CLOSE OUTPUT FILES
NOTES;RADIX;;
0;81;719;0;0;0;0;
1;80;715;0;0;0;0;
2;0;8;4;1;0;0;
3;12;0;0;0;0;5659655972;FINIS'
4;71;719;1;0;0;0;
5;41;A2;0;0;0;1;CLOSE I/P
6;82;719;0;0;0;0;
SHEET;622
CONST;720;0;SECOND LEVEL PARAS
0;(B8)24(B6)50(B6)51;
1;24,24,7;
2;24,6,63;
3;51,38,24;
4;54,53,15;
5;50,34,15;
6;15,36,24;
7;37,36,52;
8;39,39,39;
9;18,39,41;
10;24,24,24;
11;24,16,62;
SHEET;623
PROCR;721;INPUT OFF PASS 2
NOTES;RADIX;B;SUB ROUTINE
0;81;721;0;0;0;0;
1;94;721;5;0;2;8;STANDARD INCREMENT
2;80;722;0;0;0;0;READ A6->SEC 9
3;90;0;0;0;2;0;
4;C;0;0;0;0;144;
5;82;721;0;0;0;0;
SHEET;624
PROCR;722;INPUT 
NOTES;RADIX;B;SUB ROUTINE
0;81;722;0;0;0;0;
1;42;A6;0;0;0;0;
2;C;9;0;0;0;0;
3;82;722;0;0;0;0;
SHEET;625
PROCR;723;WRITE ON WORKING TAPE
NOTES;;;
0;81;723;0;0;0;0;
1;55;8;4;1;0;50;COPY ANNEXES
2;C;9;4;1;0;0;
3;0;731;18;1;0;0;BEW
4;5;9;52;1;0;0;
5;43;A6;0;0;0;0;
6;C;9;0;0;0;0;
7;54;9;0;0;0;52;
8;82;723;0;0;0;0;
SHEET;626
PROCR;724;PRINT
NOTES;RADIX;B;SUB ROUTINE
0;81;724;0;0;0;0;
1;62;0;0;0;0;0;
2;;731;18;1;0;0;
3;5;5;52;1;0;0;BEW
4;10;0;0;0;0;1;ALWAYS TRACK 1
5;5;5;0;1;0;0;FUNCTION WORD
6;;27;9;0;0;0;
7;70;724;12;0;0;0;gPRINTER
8;55;5;0;1;0;50;
9;C;10;4;1;6;0;
10;80;725;0;0;0;0;gO/P
11;76;724;34;0;0;0;
12;;27;8;0;0;0;PRINTER TYPE
13;12;0;0;0;0;9;
14;70;724;30;0;0;0;gSPECIAL
15;10;0;0;0;0;80000;
16;5;5;1;0;0;0;BIT 40
17;124;999;15;1;2;0;SEC 5
18;124;0;0;0;2;0;
19;124;999;13;1;2;0;SEC 10
20;129;0;0;0;1;0;
21;10;0;0;0;0;4;
22;30;0;0;0;0;5;
23;1;999;7;0;0;0;ROUTE
24;34;999;12;0;0;0;
25;125;0;4096;1;1;0;
26;124;999;0;0;3;0;
27;123;0;160;0;2;0;
28;62;0;0;0;0;0;
29;76;724;34;0;0;0;
30;55;5;0;1;0;54;
31;C;10;0;1;0;0;
32;10;0;0;0;0;9;
33;76;724;22;0;0;0;
34;54;5;0;0;0;50;
35;5;16;1;0;0;0;CLEAR INDICATORS
36;82;724;0;0;0;0;
SHEET;627
PROCR;725;O/P->A9
0;81;725;0;0;0;0;
1;94;725;7;0;6;50;
2;;731;18;1;0;0;BEW
3;5;10;306;1;0;0;
4;80;726;0;0;0;0;gO/P
5;90;0;0;0;6;0;
6;C;0;0;0;0;300;
7;82;725;0;0;0;0;
SHEET;628
PROCR;726;WRITE A9
0;81;726;0;0;0;0;
1;10;0;0;0;0;800000;
2;34;999;12;0;0;0;SEC 10
3;125;0;4096;1;1;0;
4;1;999;7;0;0;0;D1/A9
5;124;999;0;0;3;0;
6;123;0;160;0;2;0;
7;82;726;0;0;0;0;
SHEET;629
PROCR;727;OUTPUT ON A2
NOTES;RADIX;B;SUB ROUTINE
0;81;727;0;0;0;0;
1;;731;18;1;0;0;BEW
2;5;8;52;1;0;0;
3;43;A2;0;0;0;0;OUTPUT 
4;C;8;0;0;0;0;
5;54;8;0;0;0;52;CLEAR 
6;82;727;0;0;0;0;
SHEET;630
PROCR;728;
0;81;728;0;0;0;0;
1;50;9;4;0;2;0;
2;C;737;12;0;0;0;UNPACK NEXT ITEM
3;82;728;0;0;0;0;
SHEET;631
PROCR;729;CONVERT (A) TO DECIMAL
NOTES;;;
0;81;729;0;0;0;0;
1;5;733;2;1;0;0;
2;60;0;0;0;0;0;
3;124;734;20;0;2;0;
4;112;733;2;1;0;0;
5;82;729;0;0;0;0;
SHEET;632
PROCR;730;CONVERT (A) TO BIN
NOTES;;;
0;81;730;0;0;0;0;
1;5;733;2;1;0;0;
2;62;0;0;0;0;0;
3;124;734;0;0;2;0;
4;112;733;2;1;0;0;
5;82;730;0;0;0;0;
SHEET;633
CONST;731;1;
0;(A)CHAPT;
2;TYPEp;
4;FILES;
6;TYPE;
8;ST.OF;
10;BLOCK;
12;SIZE;
14;SIT;
16;PREND;
18;(D)7.0000007.;
20;(A)START;
22;NOTES;
24;SPOOL;
26;(A)PROC;
28;EDURE;
30;SEC;
32;TION ;
34;(D)6p6p6p6p6p;
36;0;
38;0;
40;0;
42;(A)ON/=;
SHEET;634
CONST;732;1;
0;(A)EXTRA;
2; CHAP;
4;TER  ;
6;(D)7ppp0003pp;BITS 1-10+25-39
8;5.5.;
10;(A)FIEND;
12;(A)INDEX;
14;CHAIN;
16;08000;
18;PROG;
20;OUT;
22;(D)5.5.;
SHEET;635
CONST;733;1;CONVERT TABLE
0;(D)1;BIN->DEC
2;0;(A) WL
4;0;CURRENT PROCR
SHEET;636
CONST;734;1;COMPILER'S CONVERT TABLES
0;(D)1;DEC->BIN
2;t;
4;64;
6;3.8;
8;2710;
10;186t0;
12;p4240;
14;989680;
16;5p5.100;
18;3e9t+t00;
20;1;BIN->DEC
22;16;
24;256;
26;4096;
28;65536;
30;1048576;
32;16777216;
34;268435456;
36;4294967296;
38;pppppppppp;
SHEET;637
CONST;735;0;
0;(D)7;
1;1ppp;
2;p.000-;
3;7p;
4;8000;
5;6000;
6;p000;
7;80000;
8;p0000;
9;80;
10;p0000-;
11;p;
12;3pp;BITS 1-10
13;0;THIS IS A 0/1 FLIPFLOP FOR SC'S FWD
14;3p;BITS 1-6     75200
SHEET;638
TABLE;736;1;PRINT HEADING DATA
NOTES;;;
0;13;4;0;0;0;0;5;0;0;0;0;0;0;
2;13;3;0;0;0;0;5;0;0;0;0;0;0;
4;13;0;0;0;0;0;5;0;0;0;0;0;0;
6;13;2;0;0;0;0;5;0;0;0;0;0;1;75400
8;729;0;0;0;0;0;3;2;0;2;0;0;0;REF----ACTIONS WITH NEGATIVE ADDRESSES
10;724;0;0;0;0;0;5;0;2;4;0;0;1;PROCR
12;732;16;0;0;2;0;5;0;0;0;0;0;0;08000'
14;732;18;0;0;2;0;4;1;1;0;0;0;0;PROG'
16;732;20;0;0;2;0;3;2;1;0;0;0;0;OUT'
18;16;2;0;0;0;0;5;0;2;0;0;0;0;PROGM
20;16;3;0;0;0;0;5;0;2;4;0;0;0;SERIAL
22;732;22;0;0;2;0;2;3;0;0;0;0;1;DOUBLE LE
SHEET;639
TABLE;737;1;
NOTES;;;
0;13;4;0;0;0;0;5;0;7;4;2;0;0;
2;13;6;0;0;0;0;5;0;2;4;0;0;1;
4;13;4;0;0;0;0;5;0;7;4;2;0;0;CONST
6;13;6;0;0;0;0;5;0;2;4;0;0;0;PARA
8;13;8;0;0;0;0;5;0;12;4;2;0;0;CONST
10;13;10;0;0;0;0;5;0;2;4;0;0;1;
12;11;0;0;0;2;0;5;0;0;0;0;0;0;
14;11;2;0;0;2;0;5;0;0;0;0;0;0;
16;11;4;0;0;2;0;5;0;0;0;0;0;0;
18;11;6;0;0;2;0;5;0;0;0;0;0;1;
SHEET;640
TABLE;738;3;
NOTES;;;
0;16;16;0;0;0;0;5;0;0;0;0;0;0;
2;735;0;0;0;0;0;5;0;0;0;0;0;0;
4;16;2;0;0;0;0;5;0;0;0;0;0;0;
6;16;3;0;0;0;0;5;0;0;0;0;0;0;SERIAL
8;731;0;0;0;2;0;5;0;0;0;0;0;1;CHAPT'
10;731;0;0;0;2;0;5;0;0;0;0;0;0;
12;16;16;0;0;0;0;5;0;3;4;0;0;1;
14;16;17;0;0;0;0;4;1;1;3;0;0;0;PROCR NUMBER
16;731;42;0;0;2;0;1;4;0;0;0;0;0;='
18;16;36;0;0;0;0;4;1;0;3;0;0;1;PROCR START
20;16;22;0;0;0;0;1;0;4;0;0;0;0;p IND
22;16;30;0;0;0;0;4;1;3;3;0;0;0;FIRST ADDRESS
24;16;22;0;0;0;0;2;3;2;1;0;0;0;PARA
26;731;36;0;0;0;0;5;0;4;4;0;0;0;SECOND ADDRESS=Q1-4
28;13;0;0;0;0;0;2;3;2;1;0;0;0;Q5
30;13;1;0;0;0;0;2;3;1;1;0;0;0;Q4
32;13;2;0;0;0;0;2;3;1;1;0;0;0;Q3
34;13;3;0;0;0;0;2;3;1;1;0;0;0;Q2
36;13;4;0;0;0;0;2;3;1;1;0;0;0;Q1
38;13;22;0;0;0;0;1;4;3;0;0;0;1;LTE
40;16;18;0;0;2;0;5;0;0;0;0;0;0;
42;16;20;0;0;2;0;5;0;0;0;0;0;0;
44;16;17;0;0;0;0;4;1;1;3;0;0;1;PROCR NUMBER
46;13;0;0;0;2;0;5;0;0;0;0;0;0;
48;13;2;0;0;2;0;5;0;0;0;0;0;1;
50;731;38;0;0;0;0;5;0;0;4;0;0;1;
SHEET;641
TABLE;739;1;
0;13;0;0;0;0;0;2;3;6;1;0;0;0;A
2;16;25;0;0;0;0;1;4;2;0;0;0;0;D
4;16;26;0;0;0;0;1;4;2;0;0;0;0;M
6;13;2;0;0;0;0;4;1;2;3;0;0;0;ADDR
8;13;4;0;0;0;0;4;1;1;3;0;0;1;PARAMETER
SHEET;642
CONST;740;1;
0;(D)1;
2;2;
4;3;
6;4;
8;5;
10;6;
12;7;
14;8;
16;9;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
54;0;
56;0;
SHEET;643
PROCR;741;1000 ENTRIES TO PTS
0;124;757;5;1;0;0;>FROM PROG UNLOAD
1;76;746;0;0;0;0;gFROM STORE DUMP START
2;124;747;0;1;0;0;>FROM STORE DUMP END ROUTINE
3;124;748;0;1;0;0;>FROM TROFL
4;124;757;0;1;0;0;>FROM LOADER
5;124;757;1;1;0;0;>FROM PROGRAMME
6;76;745;61;0;0;0;gFROM'ABANDON VIA MASTER ALARM'
7;124;757;3;1;0;0;>FROM OVERLAY(END)
8;124;757;4;1;0;0;>FROM OVERLAY(START)
9;76;745;0;0;0;0;gFROM'ABANDON BY 2/0/1 COMMAND'
SHEET;644
CONST;742;1;1001 ANNEXE 1 FOR PASSES 1,2 AND 3
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
SHEET;645
CONST;743;1;1002 ANNEXE 2 FOR PASSES 1,2 AND 3
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
SHEET;646
PROCR;744;1003 OVERLAY FOR PTS(WL'S IN PASS 3)
0;125;0;4096;1;1;0;
1;126;749;19;0;0;0;SET(71)FOR MASTER
2;124;744;70;0;3;0;SET UP 64
3;124;0;3;0;3;0;AND 124
4;106;0;198;1;0;0;
5;124;744;70;0;3;0;
6;103;0;64;0;0;0;(24)
7;30;0;0;0;0;5-;
8;124;744;70;0;3;0;
9;103;0;124;0;0;0;
10;101;0;40;1;3;0;
11;34;744;68;0;0;0;1
12;80;749;0;0;0;0;gBACK 1 I/P->I/P
13;125;0;4096;1;1;0;
14;124;744;70;1;1;0;MOD GROUP 0
15;91;755;0;0;1;0;PROG SWITCH
16;124;744;70;0;3;0;
17;126;0;0;0;0;0;(50)REQUEST M/R,CLOSE PROGM SWITCH
18;91;751;4;0;1;0;MASTER SWITCH
19;10;0;0;0;0;7;
20;124;744;70;0;3;0;
21;102;0;0;0;0;0;(51)SET'OPT A'SWITCH
22;124;744;70;0;3;0;
23;106;0;64;0;0;0;(24)
24;124;744;70;0;3;0;
25;105;0;124;0;0;0;
26;127;744;36;0;0;0;>YES,AVOID READ
27;124;744;70;0;3;0;
28;106;0;0;0;0;0;(24)
29;102;744;74;0;0;0;
30;101;0;0;1;3;0;
31;124;744;70;0;3;0;
32;126;0;0;0;0;0;(7) READ BLOCK TO MR ANNEXES
33;106;744;74;0;0;0;
34;124;744;70;0;3;0;
35;102;0;0;0;0;0;(24)
36;124;744;70;1;1;0;MG 0
37;124;757;0;0;2;0;
38;3;757;0;1;0;0;
39;124;744;70;0;3;0;
40;102;0;2;0;0;0;SET PARA 2
41;91;757;0;0;2;0;CHUNK START
42;101;757;0;1;3;0;
43;124;744;70;0;3;0;
44;102;0;1;0;0;0;SET PARA 1
45;101;0;0;1;3;0;PARA TABLE START
46;124;744;70;0;3;0;
47;123;0;0;0;2;0;(6) LOAD CHAP SR
48;124;744;62;0;2;0;
49;1;744;69;0;0;0;14 IN Q5
50;124;755;0;0;3;0;
51;102;0;44;0;0;0;SET LINK IN PROG SWITCH
52;124;744;70;0;3;0;
53;102;0;0;0;0;0;(51)CLEAR 'OPT A' SWITCH
54;10;0;0;0;0;1;
55;4;744;72;0;0;0;STEP PASS IND(-1->0 or 0->1)
56;124;755;0;0;3;0;PROG SWITCH START
57;106;0;35;0;0;0;SI+35
58;124;755;0;0;3;0;
59;102;0;7;0;0;0;>SI+7 (OPEN SWITCH)
60;124;744;70;0;3;0;
61;124;0;0;1;0;0;>RELEASE MR SWITCH/ENTER PQ/RETURN(38)
62;125;0;4096;1;1;0;
63;126;749;19;0;0;0;RESET (71) FOR MASTER
64;101;0;40;1;3;0;
65;34;744;68;0;0;0;
66;80;749;0;0;0;0;gSETEP BACK 1 I/P->I/P
67;76;757;0;0;0;0;gENTER PTS(2,3)
68;100;0;1;0;0;0;CONSTS
69;114;0;0;0;0;0;
70;100;0;0;0;0;0;ZERO
71;100;0;0;0;0;0;(24)PTS CH/ROUTE NO
72;116;0;1;0;0;0;1-=PASS1,0=PASS2,1+PASS3 IN STORE
73;100;0;0;0;0;0;1=PROGM IN CONTROL,0=PTS IN CONTROL
74;100;0;0;0;0;0;STORE PARA 24
75;100;0;0;0;0;0;SPARE
SHEET;647
PROCR;745;1003A=DISENTANGLE THE ABANDON COMMANDS
0;124;744;70;0;3;0;SET MR3 FOR LOG      (2/0/1)COMMAND
1;126;0;53;1;3;0;(3)REQUEST QUEUE
2;124;744;70;0;3;0;FIND POSITION OP
3;106;0;2;0;0;0;THIS PROGRAMS LOG
4;124;744;70;0;3;0;REQUEST ENTRY
5;105;0;2;0;3;0;
6;127;745;9;0;0;0;>FOUND
7;125;0;2;0;3;0;
8;124;745;2;1;0;0;>NEXT ENTRY
9;124;744;70;0;3;0;
10;106;0;1;0;3;0;LINK IN LOG REQUEST QUEUE
11;70;745;19;0;0;0;gTHIS PROG NOT TRYING TO USE LOG
12;101;0;0;1;2;0;(54)
13;71;745;16;0;0;0;gTHIS PROG NOT TRYING TO OFFER OPTIONS
14;124;744;70;0;3;0;
15;102;0;0;0;0;0;(53) DELETE'OPT OUTSTANDING'IND
16;10;0;0;0;0;0;
17;124;744;70;0;3;0;
18;102;0;1;0;3;0;(53)DELETE LOG REQUEST
19;;744;72;0;0;0;PASS IND
20;71;745;51;0;0;0;gNOT PASS 2,ELSE SECOND ABDON
21;101;0;0;1;3;0;(15)'RC'LINK
22;3;744;72;0;0;0;SET'PASS 3'
23;3;745;47;0;0;0;SET'2/0/1 COMMAND IN PROGRESS'
24;124;744;70;0;3;0;
25;102;0;42;0;1;0;>SI+42
26;124;744;70;0;3;0;CLEAR ASSOC TIME
27;102;0;45;0;1;0;(SI->45)
28;124;751;4;0;3;0;MASTER SWITCH START
29;106;0;9;0;0;0;SM+9
30;124;751;4;0;3;0;SET CLOSED+INTERRUPTIBLE
31;102;0;7;0;0;0;>SM+7
32;124;751;4;0;3;0;
33;106;0;57;0;0;0;SM+57=SP+9
34;124;751;4;0;3;0;
35;102;0;6;0;0;0;>SM+6
36;0;744;73;0;0;0;
37;71;745;77;0;0;0;gPROG IN CONTROL
38;124;744;70;0;3;0;
39;106;0;44;0;1;0;PRESENT PTS LINK IN SI+44
40;5;745;82;0;0;0;
41;124;745;77;0;2;0;
42;1;744;69;0;0;0;14 IN Q5
43;124;744;70;0;3;0;
44;102;0;44;0;1;0;NEW LINK
45;124;755;0;0;3;0;
46;124;0;7;1;0;0;>SI+7 TO CONTINUE THIS DUMP
47;100;0;0;0;0;0;NONZERO='2/0/1 COMMAND IN PROGRESS'
48;124;744;70;1;1;0;MSG 0
49;124;744;70;0;3;0;
50;126;0;0;0;0;0;(50)REQUEST MASTER
51;124;751;4;0;3;0;SET MASTER SWITCH NON-INT
52;106;0;58;0;0;0;SM+58=SP+10
53;124;751;4;0;3;0;
54;102;0;6;0;0;0;>SM+6
55;124;744;70;0;3;0;
56;102;0;44;0;0;0;(3)CLEAR'TRIAL'IND
57;124;744;70;1;1;0;MG 0
58;10;0;0;0;0;0;*FORMED ORDER* 0/2='ABDON/END'
59;124;744;70;0;3;0;>RETURN TO'ABDON'COMMENT
60;124;0;0;1;0;0;(34)
61;0;745;47;0;0;0; '2/0/1'IND       (ABANDON OPTION)
62;70;745;67;0;0;0;gNO
63;101;0;1;1;3;0;(15)1*'RC' LINK
64;2;744;72;0;0;0;
65;70;745;48;0;0;0;gDURING PASS 3
66;76;745;51;0;0;0;gSOMETIME IN PASS 2
67;0;744;72;0;0;0;PASS IND
68;71;745;48;0;0;0;g1 OR 3
69;0;744;73;0;0;0;CONTROL IND
70;70;745;48;0;0;0;gPTS IN CONTROL
71;101;0;0;1;3;0;(15)'RC' LINK
72;3;744;72;0;0;0;SET'PTS 3'
73;124;744;70;0;3;0;
74;102;0;42;0;1;0;>SI+42
75;124;744;70;0;3;0;
76;102;0;45;0;1;0;CLEAR ASSOC TIME
77;10;0;0;0;0;0;
78;35;0;0;0;0;100;
79;37;757;21;0;0;0;CLEAR Q3=DISCARDS (2001/23)
80;126;757;8;0;0;0;>TYPE'OP ABANDONS(PROG)'    (2001/10)
81;126;745;82;0;1;0;
82;100;0;0;0;0;0;FORMED PASS 1=1014/4
83;10;0;0;0;0;2;ORDER CONST
SHEET;648
PROCR;746;1004 STORE DUMP (START)
0;124;744;71;0;3;0;TEST TAPE HAS JUST BEEN REWOUND
1;106;0;0;0;0;0;(36)
2;118;0;4124;0;0;0;;JUST BEEN REWOUND
3;127;746;6;0;0;0;>NO
4;125;0;0;1;2;0;
5;124;746;9;1;0;0;>
6;124;744;70;0;3;0;
7;124;0;35;0;3;0;(3)BLOCK CTRS
8;106;0;0;0;0;0;(24)PTS ROUTE
9;102;750;3;0;0;0;;SERIAL NO
10;101;0;27;1;3;0;;CLOSE STORE
11;80;749;0;0;0;0;.CLOSE I/P FILE
12;124;744;70;0;3;0;
13;124;0;0;1;0;0;(37)
SHEET;649
PROCR;747;1005 STORE DUMP (END)
0;10;0;0;0;0;0;
1;35;0;0;0;0;10000;
2;124;744;71;0;3;0;PROG ROUTE
3;114;0;0;0;0;0;(36)CLEAR Q5='REWIND'IND
4;106;750;3;0;0;0;;TEST PTS TAPE TO
5;127;747;32;0;0;0;>NO;BE REALIGNED
6;34;751;0;1;0;0;
7;101;0;17;1;3;0;
8;80;749;0;0;0;0;gOPEN I/P FILE
9;100;750;2;0;3;0;DEC
10;10;0;0;0;0;0;
11;12;0;0;0;0;1;
12;4;750;3;0;0;0;STEP DOWN REQUIRED BLOCK
13;100;744;70;0;3;0;BIN
14;101;0;10;1;3;0;WORD 10=IDENTIFIER LOCN
15;30;0;0;0;0;5;
16;124;744;70;0;3;0;
17;104;0;55;0;0;0;(3)PARA 55=IDENTIFIER VALUE
18;32;0;0;0;0;10-;
19;101;0;37;1;3;0;
20;80;749;0;0;0;0;gRUN FWD TO MACHINE CODE START
21;10;0;0;0;0;0;DUMMY
22;101;0;62;1;3;0;STORE DUMP PSEUDO
23;32;0;0;0;0;10-;
24;101;0;7;1;3;0;;REALIGN TAPE
25;80;749;0;0;0;0;gREAD;USING MR ANNEXES
26;124;744;70;0;3;0;
27;124;0;126;0;3;0;STORE PSEUDO
28;106;0;1;1;0;0;
29;2;750;3;0;0;0;REQUIRED BLOCK
30;71;747;22;0;0;0;gNOT YET
31;125;0;4096;1;1;0;
32;124;744;70;0;3;0;
33;124;0;0;1;0;0;(52)
SHEET;650
PROCR;748;1006 TRIAL OVER FLOW
0;124;744;70;0;3;0;STORE POSN OF OFLOW CONSTANT
1;106;0;0;0;0;0;(39)
2;102;750;3;0;0;0;
3;124;751;2;0;2;0;AMEND EDIT TABLE
4;124;744;70;0;3;0;AMEND EDIT TABLE
5;102;0;0;0;0;0;(39)
6;101;0;0;1;3;0;(39)
7;124;744;70;0;3;0;
8;128;0;0;1;2;0;(10)
9;124;744;70;0;3;0;
10;106;0;38;0;1;0;MOVE (24)
11;124;744;70;0;3;0;
12;102;0;44;0;1;0;
13;124;744;70;0;3;0;
14;106;0;35;0;1;0;SET S1=4
15;124;744;70;0;3;0;
16;102;0;7;0;1;0;
17;106;750;3;0;0;0;RESTORE EDIT TABLE
18;124;744;70;0;3;0;RESTORE EDIT TABLE
19;102;0;0;0;0;0;(39)
20;124;744;70;0;3;0;
21;124;0;0;1;0;0;(41)
SHEET;651
PROCR;749;1007 I/P O/P S/R RTE 7
0;100;0;0;0;0;0;LINK
1;118;0;5;0;0;0;FORM PARAMETER
2;101;0;0;1;1;0;(24)
3;125;0;4096;1;1;0;SET NON INT
4;124;750;0;0;3;0;MODIFY DIVISION
5;123;0;160;0;2;0;
6;126;749;0;0;1;0;>LEAVE S/R
7;100;0;0;0;0;0;;SWOP 64*R S/R
8;124;744;70;0;3;0;STORE(64*R)
9;106;0;64;0;0;0;
10;102;749;17;0;0;0;
11;106;749;18;0;0;0;RESET(64*R)
12;124;744;70;0;3;0;
13;102;0;64;0;0;0;
14;106;749;17;0;0;0;STORE NEXT(64*R)
15;102;749;18;0;0;0;
16;126;749;7;0;1;0;>LEAVE S/R
17;100;0;0;0;0;0;STORES FOR (64*R)
18;100;0;0;0;0;0;
19;100;0;0;0;0;0;
20;124;750;0;0;3;0;INTERCHANGE VALUES
21;100;0;24;0;2;0;(3)OF PARAMETER 24
22;106;749;29;0;0;0;
23;124;750;0;0;3;0;
24;102;0;24;0;0;0;(3)
25;32;0;0;0;0;10;
26;102;749;29;0;0;0;
27;126;749;7;0;0;0;
28;126;749;19;0;1;0;>LEAVE(S)
29;100;0;0;0;0;0;(24)
SHEET;652
CONST;750;0;1008 W/L'S USED BY GENERAL CODING
0;(D)00000;
1;00002;
2;66666;
3;00000;O'LAY AND STORE DUMP W/L
SHEET;653
CONST;751;1;1009 LONG CONSTANTS UDED BY GENERAL CODING
0;(D)0514808000;STORE DUMP I/P O/P CST
2;(A)TROFL;
4;0;WL FOR MASTER SWITCH START
6;0;8-31=UNPACK WL'S IN PASS 3
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;START OF 256-LOCN PRINT ANNEX PASS 3
34;0;
36;0;
38;0;
40;0;
42;0;
SHEET;654
CONST;752;1;1010 LIST AND PRINTER ANNEXE
0;(D)0;I/O SERIAL;ABS ADDRESS
2;0;REPLACED INSTRUCTIONS
4;0;CHAP,24 IND,TYPE;N1 ALLOC CHAP,N2
6;0;SEON START+LENGTH;SECN START
8;0;SEON NUMBER
10;0;
12;0;SUBSEQUENT SECNS
14;0;
16;0;
18;0;2ND PM POINT
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;3RD PM POINT
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
SHEET;655
CONST;753;1;1011 UNPACKED I/P AND LIST
0;(D)0;4TH PM POINT
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;5TH PM POINT
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
SHEET;656
CONST;754;1;1012 LIST CONTINUED
0;(D)0;6TH PM POINT
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;7TH PM POINT
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;8TH PM POINT
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
54;0;9TH PM POINT
56;0;
58;0;
60;0;
62;0;
64;0;
66;0;
68;0;
70;0;
72;0;10TH PM POINT
74;0;
76;0;
78;0;
80;0;
82;0;
84;0;
86;0;
88;0;
SHEET;657
CONST;755;0;1013 W/L'S COMMON TO PASSES 1 AND 2
0;(D)0;START OF SWITCH OF TRIAL PROG
1;0;START OF SP CHAP OF TRIAL PROG
2;0;NO OF PARAMETERS+1
3;0;NO OF INITIAL CHAPS
4;0;MOD GROUPX8
5;;PROG'S ENTRY POINT
6;;(A)ON ENTRY TO PROG
7;;(B) ON ENTRY TO PROG
8;;(C) ON ENTRY TO PROG
9;0;2ND HALF(B)
10;0;(C)
11;0;SPARE
SHEET;658
PROCR;756;ACHTUNG:IF THE NEXT PROCR IS ALTERED
NOTES;RADIX;;PROCR 1003 MUST BE CHANGED-IT ADDRESSES 2001 AS 1014
SHEET;659
PROCR;757;1014 STORE DETAILS (1)
0;5;772;2;1;0;0;TRIAL DATA IND Q1-5,LOSE SIGN->WL
1;125;0;4096;1;1;0;SET NON INT
2;124;770;6;0;3;0;
3;106;0;2;1;0;0;R1 OF MG 0
4;5;751;4;1;0;0;MASTER PROG SWITCH
5;124;770;6;0;3;0;
6;106;0;44;0;0;0;(3)SWITCH START EX PLS PARAS
7;102;755;0;0;0;0;
8;124;755;0;0;3;0;START OF SP CHAP 
9;106;0;37;0;0;0;
10;102;755;1;0;0;0;
11;106;755;0;1;0;0;SET (MR1)(MG0)FOR PROG UNDER TRIAL
12;124;770;6;0;3;0;
13;102;0;2;1;0;0;
14;124;755;0;0;3;0;STORE (A),(B),© ON ENTRY TO PROG
15;100;0;30;1;1;0;
16;100;755;6;1;0;0;
17;100;744;70;0;3;0;
18;124;755;0;0;3;0;STORE ENTRY POINT
19;106;0;44;0;0;0;
20;102;755;5;0;0;0;
21;106;775;0;1;0;0;CLEAR LIST
22;128;752;0;0;0;0;
23;124;755;0;0;3;0;SET PROGS MOD GROUP
24;124;0;29;1;1;0;
25;126;755;1;1;2;0;SET (MR2)=SP CHAP START
26;124;744;70;0;3;0;
27;106;0;14;0;2;0;STORE NO OF PARAMETERS+1
28;102;755;2;0;0;0;
29;124;744;70;0;3;0;
30;106;0;4;0;2;0;STORE NO OF INITIAL CHAPS
31;102;755;3;0;0;0;
32;124;744;70;0;3;0;
33;106;0;1;0;2;0;STORE 8XMOD GROUP
34;118;0;3;0;3;0;
35;102;755;4;0;0;0;
36;124;757;2;0;2;0;
37;5;745;82;0;0;0;SET LINK FOR'ABDON'
38;10;0;0;0;0;0;DUMMY ORDER
39;106;769;2;0;0;0;
40;102;749;18;0;0;0;
41;126;749;7;0;0;0;SET(71)FOR PTS
42;106;769;3;0;0;0;
43;124;744;70;0;3;0;
44;102;0;123;0;0;0;
45;101;752;0;1;3;0;SET MR1 AT
46;107;770;15;0;0;0;START AND END OF LIST
47;102;770;14;0;0;0;
48;126;770;14;1;1;0;
49;100;771;4;0;2;0;STEP PROG TAPE
50;101;0;40;1;3;0;BACK ONE BLOCK
51;126;749;0;0;0;0;g
SHEET;660
PROCR;758;1015 TEST DIRECTIVE
0;100;771;1;0;2;0;READ PROG TAPE
1;101;0;7;1;3;0;
2;126;749;0;0;0;0;>
3;124;771;0;1;2;0;
4;106;0;4;1;0;0;TEST=FILES
5;105;770;2;1;0;0;
6;127;759;0;0;0;0;>YES
7;104;770;2;1;0;0;TEST=CHAPT
8;105;770;0;1;0;0;
9;127;764;0;0;0;0;TEST=''E''
10;104;770;0;1;0;0;
11;101;0;85;1;2;0;
12;127;758;0;0;1;0;
13;76;744;0;0;0;0;gOLAY
SHEET;661
PROCR;759;1016 STORE PM POINT INFORMATION
0;106;775;2;1;0;0;FORM UP BULK COPY
1;124;770;6;0;3;0;TABLE
2;104;0;123;0;0;0;
3;128;774;0;1;0;0;COPY ALPHA->NUMERIC
4;106;774;0;0;0;0;STORE I/C SERIAL NO
5;102;0;1;0;1;0;
6;101;0;24;0;1;0;
7;115;774;3;0;0;0;COLLATE N1
8;118;0;4125;1;0;0;
9;102;0;4;0;1;0;STORE N1
10;115;774;3;0;0;0;COLLATE N2
11;118;0;3;0;0;0;
12;107;0;4;0;1;0;STORE N2
13;101;0;23;0;1;0;
14;124;755;4;0;3;0;8M
15;106;0;2;0;0;0;(MR1)
16;102;773;0;0;0;0;
17;126;773;0;1;3;0;SET MODIFIER MR3=MODIFIER MR1
18;115;774;2;0;0;0;COLLATE CHAP NO PM TYPE AND N3
19;103;0;5;0;1;0;AND STORE
20;118;0;4124;0;0;0;TEST PM TYPE
21;101;0;5;1;2;0;
22;127;763;0;0;0;0;>TYPE 5
23;101;0;4;1;2;0;
24;127;762;0;0;0;0;>TYPE 9(CLEO 6)
25;101;0;3;1;1;0;
26;127;762;0;0;0;0;>TYPE 6
27;127;759;29;0;2;0;gTYPE>6   TYPE 7=CLEO 1
28;101;0;5;1;1;0;;TYPE 8=CLEO 3
29;101;0;1;1;1;0;
30;102;772;3;0;0;0;W/L(FOR TYPE OR TYPE=5)
SHEET;662
PROCR;760;1017 CHAPTER PMS
0;126;770;6;1;2;0;SET(MR2)=16:0           TYPE 1,2,3,4,7,8
1;106;772;3;0;0;0;
2;101;0;3;1;2;0;;TEST CHAPTER DUMP
3;127;761;0;0;2;0;>NO
4;106;774;4;0;2;0;CHAP NO
5;127;763;0;0;0;0;>END OF CHAPS
6;103;0;8;0;3;0;STORE CHAP NO
7;104;774;4;0;2;0;
8;126;766;0;0;0;0;>FORM UP CHAP DETAILS
9;103;0;6;0;3;0;STORE CHAP START
10;118;0;4123;0;0;0;
11;105;0;6;0;3;0;
12;102;0;7;0;3;0;STORE CHAP LENGTH
13;125;0;3;0;3;0;
14;124;760;15;1;0;0;g
15;125;0;4;0;2;0;;TEST FOUR CHAPS DEAL
16;124;760;1;1;0;0;>NO;WITH
17;124;763;0;1;0;0;>YES
SHEET;663
PROCR;761;1018 SECTION PM'S
0;125;0;0;1;2;0;
1;101;0;7;0;1;0;
2;115;774;4;0;2;0;COLLATE OUT SECTION NO
3;127;763;0;0;0;0;>END OF SECNS
4;102;0;8;0;3;0;STORE SECN NO
5;101;0;16;0;1;0;
6;115;774;5;0;2;0;COLLATE TA IND
7;127;761;15;0;0;0;>NOT TA IE SECN
8;107;0;8;0;3;0;T A IND
9;125;0;0;1;2;0;
10;101;0;24;0;1;0;
11;115;774;4;0;2;0;COLLATE RTE PARAM
12;118;0;4125;0;0;0;2XRTE PARAM
13;126;767;0;0;0;0;>FORM UP -(64+P)
14;124;761;21;1;0;0;>
15;101;0;8;0;1;0;
16;115;774;4;0;2;0;CHAP NO (Q4)
17;115;774;4;0;2;0;
18;118;0;4125;0;0;0;
19;126;766;0;0;0;0;>FORM UP CHAP START
20;104;774;6;0;2;0;SECTION START
21;102;0;6;0;3;0;SECTION START
22;106;774;7;0;2;0;SECTION LENGTH
23;124;760;12;1;0;0;>
SHEET;664
PROCR;762;1019 TRACE POINTS PM'S
0;126;770;8;1;2;0;SET(MR2)=18:0
1;106;774;4;0;2;0;CHAP NO AND REL ADD
2;127;763;0;0;0;0;END OF TRACE PTS
3;102;0;6;0;3;0;STORE
4;101;0;16;0;1;0;;TEST PT IN SECN
5;115;774;5;0;2;0;
6;127;762;14;0;0;0;>NO,PROCR
7;118;0;3;0;3;0;
8;102;0;7;0;3;0;SET BIT 20 (SECN IND)
9;101;0;15;0;1;0;
10;115;774;5;0;2;0;REF
11;118;0;3;0;0;0;SHIFT 13 BITS LEFT
12;118;0;1;0;3;0;
13;124;762;17;1;0;0;>
14;101;0;15;0;1;0;
15;115;774;5;0;2;0;REF
16;118;0;2;0;0;0;
17;107;0;7;0;3;0;STORE
18;106;774;6;0;2;0;ITEM
19;107;0;7;0;3;0;STORE
20;125;0;2;0;3;0;
21;124;762;22;1;0;0;
22;125;0;3;0;2;0;
23;124;762;1;1;0;0;>NO
24;125;0;0;1;2;0;
SHEET;665
PROCR;763;1020 STORE REPLACED INSTRUCTIONS
0;101;0;1;0;1;0;TYPE 5
1;115;774;2;0;0;0;UNCORRECTED CHAP NO
2;105;755;3;0;0;0;
3;127;763;50;0;2;0;>NO
4;104;755;3;0;0;0;
5;103;772;1;0;0;0;W/L
6;118;0;2;0;0;0;
7;107;0;4;0;1;0;STORE ALLOCATED CHAP NO
8;106;772;1;0;0;0;
9;104;772;1;0;0;0;
10;126;766;0;0;0;0;>FORM UP CHAP START
11;104;774;1;0;0;0;
12;103;0;0;0;1;0;STORE ABS ADD
13;102;773;0;0;0;0;W/L
14;126;773;0;1;3;0;SET (MR3)=ABS ADD
15;124;744;70;0;3;0;
16;106;0;0;0;3;0;
17;103;0;2;0;1;0;
18;127;763;31;0;2;0;>YES
19;105;0;2;0;1;0;FORM COMPLEMENT OF ACTION
20;105;0;2;0;1;0;
21;118;0;3;0;3;0;ALIGN INSTRUCTION
22;118;0;4124;0;1;0;AT LEAST SIG END
23;101;0;64;1;2;0;
24;127;763;33;0;0;0;>24/0/0
25;101;0;1;1;2;0;
26;127;763;33;0;0;0;>24/0/1
27;101;0;2;1;2;0;
28;127;763;33;0;0;0;>24/0/3
29;101;0;3;1;2;0;
30;127;763;33;0;0;0;>24/1/2
31;106;769;0;0;0;0;25/1/0
32;124;763;37;1;0;0;
33;101;0;4096;1;3;0;
34;107;0;5;0;1;0;STORE 24 ACTION IND
35;124;744;70;0;3;0;
36;106;0;1;0;3;0;
37;102;0;3;0;1;0;STORE 2ND INSTRUCTION
38;100;771;2;0;2;0;
39;124;772;0;0;3;0;
40;115;0;18;0;0;0;COLLATE 13 BIT CHAP START
41;102;772;0;0;0;0;W/L
42;105;772;0;0;0;0;
43;105;755;2;0;0;0;NO OF PARAMS+1
44;104;769;1;0;0;0;26/0/0
45;124;744;70;0;3;0;
46;102;0;0;0;3;0;INSERT IN PROG
47;125;0;18;0;1;0;
48;124;758;0;1;0;0;>
49;124;758;0;1;0;0;>END OF 10 PM PTS
50;106;774;1;0;0;0;STORE REL ADDRESS
51;102;0;0;0;1;0;
52;124;763;47;1;0;0;>
SHEET;666
PROCR;764;1021 OPEN TRIAL DATA FILE
0;0;775;4;1;0;0;
1;124;770;6;0;3;0;
2;104;0;123;0;0;0;
3;128;774;0;1;1;0;>UNPACK
4;0;774;12;2;0;0;MT SET NUMBER
5;70;758;0;0;0;0;gIGNORE SET
6;12;0;0;0;0;9;
7;70;764;17;0;0;0;gALWAYS ACCEPT
8;34;772;2;0;0;0;TRIAL DATA IND
9;10;0;0;0;0;0;
10;36;771;5;0;0;0;Q1
11;2;774;12;2;0;0;
12;70;764;17;0;0;0;gACCEPT
13;10;0;0;0;0;0;
14;32;0;0;0;0;1-;
15;75;764;10;0;0;0;gCONTINUE SEARCH
16;76;758;0;0;0;0;gIGNORE SET
17;106;774;9;1;0;0;PSEUDO RTE PARAMETER
18;126;767;0;0;0;0;>FORM UP=(64+R)
19;102;772;1;0;0;0;W/L
20;106;774;3;1;0;0;RTE PARAMETER
21;126;767;0;0;0;0;>FORM UP=(64+R)
22;101;0;64;1;1;0;
23;5;767;0;0;0;0;WL
24;2;767;0;0;0;0;
25;30;0;0;0;0;0;///// DUMMY ORDERS
26;30;0;0;0;0;0;/////
27;102;772;0;0;0;0;W/L
28;124;755;0;0;3;0;STORE PROG RUN NO
29;106;0;40;0;0;0;
30;102;771;3;0;0;0;
31;0;774;6;2;0;0;MT RUN NUMBER
32;30;0;0;0;0;1;
33;1;774;12;2;0;0;SET NUMBER AS RERUN
34;124;755;0;0;3;0;
35;102;0;40;0;0;0;
36;106;774;1;1;0;0;PROG ID
37;118;0;4123;1;1;0;
38;104;774;4;1;0;0;FILE ID
39;118;0;4123;1;1;0;
40;101;0;18;1;1;0;
41;126;768;0;0;0;0;>I/P-O/P FOR TRIAL DATA
42;106;771;3;0;0;0;RESTORE RUN NO
43;124;755;0;0;3;0;
44;102;0;40;0;0;0;
SHEET;667
PROCR;765;1022 WRITE TRIAL DATA
0;106;774;11;1;0;0;
1;118;0;5;0;0;0;
2;102;773;0;1;0;0;
3;126;773;0;1;3;0;SET (MR3)=TRANSIT ARLENGTH
4;100;771;1;0;2;0;READ PROG TAPE
5;101;0;7;1;3;0;
6;126;749;0;0;0;0;g
7;126;770;10;1;2;0;SET (MR2) AT 48/0
8;124;770;6;0;3;0;;TEST NEXT WORD
9;124;0;123;0;3;0;;=FIEND
10;106;0;4;1;2;0;;TEST NEXT WORD
11;105;770;4;1;0;0;
12;127;765;41;0;0;0;>YES
13;124;770;6;0;3;0;CONVERT WORD FROM
14;124;0;123;0;3;0;DOUBLE ALPHA
15;106;0;5;1;2;0;TO ALPHA
16;118;0;5;0;0;0;
17;124;770;6;0;3;0;
18;124;0;123;0;3;0;
19;104;0;7;1;2;0;
20;124;772;1;1;2;0;STORE CONVERTED WORD
21;103;0;4;1;3;0;
22;105;770;12;1;0;0;;TEST BLOCK END WORD
23;127;765;29;0;0;0;>YES
24;125;0;2;0;3;0;;TEST END OF TRANSIT
25;124;765;38;1;0;0;>NO;AREA
26;106;770;12;1;0;0;B/E WORD
27;124;772;1;1;2;0;
28;102;0;4;1;3;0;
29;101;0;64;1;2;0;
30;105;772;1;0;0;0;
31;118;0;4118;1;0;0;SET (B)=PSEUDO RTE
32;101;0;8;1;1;0;
33;126;768;0;0;0;0;>I/P-O/P FOR TRIAL DATA
34;106;774;11;1;0;0;RESET (MR3) AT TRANSIT
35;118;0;5;0;0;0;AREA LENGTH
36;102;773;0;1;0;0;
37;126;773;0;1;3;0;
38;125;0;4;0;2;0;;TEST END OF INPUT
39;124;765;8;1;0;0;>NO;AREA
40;124;765;4;1;0;0;>YES
41;101;0;33;1;3;0;;REWIND FILE
42;126;768;0;0;0;0;>I/P-O/P FOR TRIAL DATA
43;125;0;0;1;2;0;
44;124;772;0;0;3;0;ROUTE
45;102;0;0;0;0;0;-16
46;124;758;0;1;0;0;>
SHEET;668
PROCR;766;1023 FORM UP CHAPTER START & END S/R
0;81;766;0;0;0;0;
1;3;767;0;0;0;0;2X CHAP
2;1;755;1;0;0;0;SPECIAL CHAP START
3;5;772;0;0;0;0;
4;124;770;6;0;3;0;
5;106;0;43;0;0;0;(3)
6;30;0;0;0;0;4-;
7;2;767;0;0;0;0;
8;70;766;11;0;0;0;gTHIS CHAP CONTAINS PTS
9;10;0;0;0;0;0;
10;76;766;13;0;0;0;
11;101;0;1500;1;2;0;(REDUCE CHAP END VALUE)
12;30;0;0;0;0;5;
13;124;772;0;0;3;0;
14;104;0;18;1;0;0;
15;82;766;0;0;0;0;
SHEET;669
PROCR;767;1024 FORM UP -(64+R)FROM RTE PARAMETER
0;100;0;0;0;0;0;
1;124;755;1;0;3;0;
2;104;0;20;0;0;0;START OF 1ST CHAP (2XRTE PARAM IN A)
3;102;772;0;0;0;0;W/L
4;124;772;0;0;3;0;
5;105;0;0;0;0;0;P
6;101;0;64;1;2;0;
7;126;767;0;0;1;0;>
SHEET;670
PROCR;768;1025 I/P O/P FOR TRIAL DATA S/R
0;100;0;0;0;0;0;
1;118;0;5;0;0;0;
2;104;772;0;0;0;0;
3;125;0;4096;1;1;0;SET NON INT
4;124;770;6;0;3;0;
5;123;0;160;0;2;0;>ENTER M/R
6;126;768;0;0;1;0;
SHEET;671
PROCR;769;1026 INSTRUCTION CONSTANTS FOR PASS 1
0;125;0;0;1;0;0;
1;126;0;0;0;0;0;
2;114;742;0;0;0;0;
3;114;743;0;0;0;0;
SHEET;672
CONST;770;1;1027 CONSTANTS FOR PASS 1
0;(A)CHAPT;
2;(A)FILES;
4;(A)FIEND;
6;(D)0001000000;16:00
8;0001200000;18:00
10;0003000000;48:0
12;7.0000007.;B/E/WORD
14;000e400000;180:0
16;0000500000;MR CONST
SHEET;673
CONST;771;0;1028 CONSTANTS FOR PASS 1
0;(D)0007e-;-123(P.RTE FOR RTE 0)
1;0003e;59 PRTE FOR RTE 0
2;01ppp;BITS 1-13
3;00000;RUN NO
4;00001;
5;p;Q1
SHEET;674
CONST;772;0;W/L'S FOR PASS 1 1029
0;(D)0;GENERAL W/L
1;0;GENERAL W/L
2;;TRIALS IND
3;0;PM TYPE W/L
SHEET;675
CONST;773;1;1030 LONG W/L'S FOR PASS 1
0;(D)0;W/L
SHEET;676
CONST;774;1;1031 UNPACKED I/P FOR PASS 1
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
SHEET;677
CONST;775;1;1032 BULK CLEAR AND COPY CONSTS
0;(D)200e400000;BULK CLEAR 180
2;0002+00007;BULK CLEAR 44 FROM7
4;0000.00006;BULK CLEAR 14 FROM6
SHEET;678
PROCR;776;START OF PASS 5
0;152;152;2;0;0;0;CALL REST OF PTS
1;C;918;0;0;0;0;
2;0;27;13;0;0;0;
3;71;777;16;0;0;0;g'TRAMDING'ONLY
4;76;777;0;0;0;0;
5;152;152;2;0;0;0;
6;C;994;0;0;0;0;
7;85;511;0;0;0;0;
8;C;776;0;0;0;0;
9;85;514;0;0;0;0;
10;C;776;0;0;0;0;
11;85;153;0;0;0;0;
12;C;776;0;0;0;0;
13;43;A1;0;0;0;0;SET UP SEC 5
14;C;5;0;0;0;0;
SHEET;679
PROCR;777;PREPARE FOR 08005
0;80;779;0;0;0;0;gREAD A6
1;;9;4;1;0;0;
2;2;908;10;1;0;0;INDEX'
3;71;777;0;0;0;0;
4;84;352;0;0;0;0;CLEAR SWITCH
5;90;0;0;0;1;0;
6;C;0;0;0;0;1010;
7;90;0;0;0;2;0;
8;C;0;0;0;0;48;
9;80;779;0;0;0;0;gREAD A6
10;;9;4;2;2;0;
11;5;18;10-;0;1;0;
12;94;777;14;0;1;1;
13;76;777;16;0;0;0;gEND
14;94;777;10;0;2;2;
15;76;777;7;0;0;0;
16;54;869;3;0;0;3;CLEAR CTRS
17;;27;3;0;0;0;
18;70;778;0;0;0;0;gNO B/FWD TRIAL DATA
19;48;A1;0;0;0;1;
20;C;0;0;0;0;1;
21;0;27;11;0;0;0;
22;71;778;2;0;0;0;PT=TRAMD
23;10;0;0;0;0;5565540000;END  '
24;5;9;0;1;0;0;NO PT TRAMD,SET END
25;76;781;0;0;0;0;
SHEET;680
PROCR;778;ALIGN A1,CHECK FIRST P/T BLOCK
NOTES;RADIX;B;
0;0;27;11;0;0;0;
1;70;882;0;0;0;0;gNO PT TRAMD OR MT TRIAL DATA
2;80;811;0;0;0;0;gREAD P/T
3;0;9;0;1;0;0;
4;2;870;0;1;0;0;TRAMD'
5;71;778;2;0;0;0;gNOT YET
6;62;0;0;0;0;0;
7;80;892;0;0;0;0;g3 BLANK LINES
8;80;892;0;0;0;0;
9;80;892;0;0;0;0;
10;76;781;0;0;0;0;
SHEET;681
PROCR;779;READ A6->9
0;81;779;0;0;0;0;
1;42;A6;0;0;0;0;
2;C;9;0;0;0;0;
3;82;779;0;0;0;0;
SHEET;682
PROCR;780;ADJUST INTERCODE ADDRESSES FOR DUMP POINTS
0;81;780;0;0;0;0;(A)=5-DIGIT SERIAL
1;3;875;2;0;0;0;WL
2;12;0;0;0;0;10000;
3;73;780;75;0;0;0;gREPORT REF<100
4;12;0;0;0;0;89899;
5;72;780;75;0;0;0;gREPORT REF>998
6;0;27;13;0;0;0;0
7;70;780;10;0;0;0;gNOT TRAMDING ONLY
8;0;875;2;0;0;0;
9;82;780;0;0;0;0;
10;0;875;2;0;0;0;
11;32;0;0;0;0;2-;
12;5;875;2;0;0;0;REF
13;32;0;0;0;0;2;
14;5;875;3;0;0;0;ITEM
15;;875;2;0;0;0;PROCR;REPLACE PROCR
16;80;821;0;0;0;0;gBIN
17;33;0;0;0;0;1-;HALVE
18;5;875;0;1;0;0;
19;91;875;0;0;3;0;
20;74;780;24;0;0;0;gEVEN
21;;18;60-;0;3;0;(STARTS 18/10-)
22;31;0;0;0;0;10-;
23;76;780;26;0;0;0;
24;34;868;4;0;0;0;BITS 1-10
25;36;18;60-;0;3;0;
26;80;822;0;0;0;0;gDEC
27;60;0;0;0;0;0;
28;70;780;64;0;0;0;gTRY UNIQUE REFS
29;5;875;2;0;0;0;NEW PROCR;ADJUST RESULT
30;5;875;0;0;0;0;CLEAR WL
31;90;0;0;0;3;0;
32;C;0;0;0;0;460;
33;;18;440;0;3;0;
34;32;0;0;0;0;2-;PROCR
35;70;780;46;0;0;0;gEND
36;2;875;2;0;0;0;NEW PROCR;
37;73;780;45;0;0;0;gSEARCH
38;71;780;46;0;0;0;gEND(GREATER)
39;32;0;0;0;0;2;ITEM IN PROCR
40;2;875;3;0;0;0;OLD ITEM
41;70;780;43;0;0;0;
42;72;780;57;0;0;0;gNEXT ADJUST POINT IS LATER
43;;18;441;0;3;0;
44;4;875;0;0;0;0;AUG TOTAL ADJUSTMENT
45;94;780;33;0;3;2;
46;;875;0;0;0;0;TOTAL ADJUSTMENT
47;1;875;3;0;0;0;OLD ITEM
48;3;875;3;0;0;0;
49;12;0;0;0;0;100;
50;72;780;62;0;0;0;gITEM TOO LARGE
51;62;0;0;0;0;0;
52;;875;2;0;0;0;NEW REF
53;30;0;0;0;0;2;
54;1;875;3;0;0;0;NEW ITEM
55;82;780;0;0;0;0;
56;76;780;79;0;0;0;gEXIT
57;1;18;441;0;3;0;
58;70;780;60;0;0;0;gADDRESS DELETED
59;72;780;46;0;0;0;gNEXT IS DELETION
60;10;0;0;0;0;5:5:5:5:7p;????DELTA'
61;76;805;1;0;0;0;
62;10;0;0;0;0;5:5:5:5:59;????I'
63;76;805;1;0;0;0;
64;;875;2;0;0;0;REF;UNIQUE REFS
65;30;0;0;0;0;2;
66;1;875;3;0;0;0;ITEM 
67;5;875;0;0;0;0;
68;90;0;0;0;3;0;
69;C;0;0;0;0;100;
70;;18;900;0;3;0;
71;70;780;75;0;0;0;gEND,REPORT
72;2;875;0;0;0;0;
73;70;780;78;0;0;0;gMATCH
74;94;780;70;0;3;2;
75;10;0;0;0;0;5:5:5:5:69;????R'
76;62;0;0;0;0;0;
77;76;805;1;0;0;0;
78;;18;901;0;3;0;
79;62;0;0;0;0;0;
80;82;780;0;0;0;0;
SHEET;683
PROCR;781;STORE TRANSLATOR'S INFORMATION
NOTES;RADIX;B;COPY TAPE TO TRIALS INFORMATION
0;0;92;29;0;0;0;INITIAL CHAPS
1;5;869;1;0;0;0;
2;52;5;2;0;0;0;EDIT PRINTER HEADING
3;C;875;0;0;0;0;
4;00;872;4;1;0;0;
5;80;817;0;0;0;0;PRINT
6;83;826;2;0;0;1;
7;83;129;0;0;0;2;
8;00;27;3;0;0;0;
9;71;781;13;0;0;0;gNO
10;00;870;6;1;0;0;PUT PREND IN ANNEXE
11;05;7;4;1;0;0;
12;76;782;0;0;0;0;
13;80;810;0;0;0;0;gREAD A1
14;00;7;4;1;0;0;
15;02;870;4;1;0;0;
16;70;783;0;0;0;0;gYES
17;80;841;0;0;0;0;gPRINT DUMPS HEADING
18;76;789;0;0;0;0;
SHEET;684
PROCR;782;INITIAL SUBMISSION OF DUMPS POINTS
NOTES;RADIX;B;AND TRIAL DATA
0;80;811;0;0;0;0;gREAD B1
1;00;9;0;1;0;0;
2;02;870;10;1;0;0;
3;70;783;9;0;0;0;gYES
4;01;870;10;1;0;0;
5;02;870;8;1;0;0;
6;70;782;13;0;0;0;
7;01;870;8;1;0;0;
8;30;0;0;0;0;4-;
9;12;0;0;0;0;556554;
10;70;804;1;0;0;0;gYES
11;80;820;0;0;0;0;gPRINT ERROR LINE
12;76;782;0;0;0;0;g
13;80;814;0;0;0;0;gUNPACK'FILES'
14;80;849;0;0;0;0;
15;80;848;0;0;0;0;gPROCESS/PRINT HEADING
16;80;838;0;0;0;0;gSET PRINT MR+CTRS
17;10;0;0;0;0;1-;
18;5;833;10;0;0;0;SET IND
19;80;784;0;0;0;0;gAPPLY PT
20;71;782;16;0;0;0;gNOT NEW DATA TYPE
21;76;803;35;0;0;0;gTEST
SHEET;685
PROCR;783;PROCESS P.M. POINTS
NOTES;RADIX;B;
0;0;27;11;0;0;0;
1;71;783;5;0;0;0;gPT=TRAMD
2;10;0;0;0;0;5565540000;SET PT='END  '
3;5;9;0;1;0;0;
4;76;803;35;0;0;0;gDEAL WITH MT TRIAL DATA
5;80;811;0;0;0;0;
6;0;9;0;1;0;0;;TEST DUMPS BLOC
7;2;870;10;1;0;0;;OF P/T
8;71;803;35;0;0;0;gNO
9;80;841;0;0;0;0;gPREPARE FOR DUMPS POINTS S/R
10;80;813;0;0;0;0;UNPACK P/T
11;80;842;0;0;0;0;PROCESS DUMPS POINT
12;80;811;0;0;0;0;gREAD P/T
13;80;826;0;0;0;0;gTEST P/T S/R
14;76;783;10;0;0;0;g
SHEET;686
PROCR;784;SR TO OUTPUT CURRENT BLOCK OF PT
NOTES;RADIX;B;
0;81;784;0;0;0;0;
1;80;811;0;0;0;0;READ P/T
2;80;791;0;0;0;0;gTEST END OF DATA TYPE
3;71;823;0;0;0;0;gUNPACK PT
4;;833;10;0;0;0;
5;70;787;17;0;0;0;gYES(EXIT WITH A ZERO)
6;86;786;0;0;0;0;BEW FOUND?
7;12;0;0;0;0;2;
8;71;787;15;0;0;0;gYES;EXIT WITH ZERO
9;83;352;0;0;0;1;SET NO
10;;872;2;1;0;0;
11;76;786;15;0;0;0;O/P IT
12;85;785;0;0;0;0;;TEST BLOCK AND
13;C;785;0;0;0;0;>NO;ITEM LENBTHS TO
14;C;784;15;0;0;0;>YES;BE CHECKED
15;85;781;0;0;0;0;;TEST BEGINNING
16;C;785;0;0;0;0;>NO;OF TD BLOCK
17;C;784;18;0;0;0;>YES
18;10;0;0;0;0;6;SET ITEM LGTH POSN
19;3;32;165;0;0;0;AT 6
20;1;32;96;2;0;0;
21;80;822;0;0;0;0;gCONVERT TO DEC
22;5;32;166;0;0;0;
SHEET;687
PROCR;785;DEAL WITH BLANK LINES
NOTES;RADIX;B;
0;35;0;0;0;0;11;
1;10;0;0;0;0;0;CLEAR A
2;36;32;92;2;0;0;Q1&2 OF PT LINE SERIAL
3;5;32;92;2;0;0;
4;;32;139;0;0;0;LINE CTR
5;2;32;92;2;0;0;PT LINE SERIAL
6;72;786;0;0;0;0;gNO
7;80;839;0;0;0;0;gSTEP WORD NOS BY      14  S/R
8;90;0;0;0;12;0;SET 7 ZERO WORDS
9;C;0;0;0;0;7;
10;80;851;0;0;0;0;gSTEP(MR1)S/R
11;94;785;10;0;12;1;
12;10;0;0;0;0;1;STEP LINE SERIAL CTR
13;60;0;0;0;0;0;BY 1
14;4;32;139;0;0;0;
15;62;0;0;0;0;0;
16;76;785;4;0;0;0;gGENERATE MORE BLANK LINES
SHEET;688
PROCR;786;PROCESS NEGATIVE WORDS
NOTES;RADIX;B;
0;60;0;0;0;0;0;
1;00;32;92;2;0;0;SET LINE CTR=LINE
2;11;0;0;0;0;1;SERIAL+1
3;05;32;139;0;0;0;
4;62;0;0;0;0;0;
5;0;32;94;1;5;0;NEXT PT WORD
6;72;786;15;0;0;0;gNO
7;00;32;94;2;5;0;
8;80;822;0;0;0;0;gCONVERT TO DEC
9;05;32;22;2;2;0;
10;10;0;0;0;0;5300000000;SET C SP SP SP SP 
11;35;0;0;0;0;1100000000;IN*WORD
12;37;32;22;1;2;0;
13;83;787;2;0;0;2;
14;02;32;94;1;5;0;
15;03;32;36;1;1;0;STORE FOR M/T
16;3;32;0;1;2;0;
17;;833;10;0;0;0;
18;71;786;32;0;0;0;gBLOCK AMENDMENT
19;;32;0;1;2;0;
20;85;781;0;0;0;0;FIRST WORD SWITCH
21;C;786;40;0;0;0;>NO
22;C;786;23;0;0;0;>YES
23;5;32;2;1;2;0;PUT 1ST WORD IN WORD 4 POSITION
24;5;32;0;1;2;0;
25;10;0;0;0;0;6;
26;3;32;165;0;0;0;SET
27;1;32;2;2;2;0;ADD BLOCK LENGTH
28;80;822;0;0;0;0;gDEC
29;5;32;166;0;0;0;SET AS NEW BLOCK LENGTH
30;83;781;0;0;0;1;RESET SWITCH
31;94;786;40;0;2;2;>(UNCONDITIONAL)
32;86;849;0;0;0;0;;BLOCK AMEND
33;12;0;0;0;0;2;
34;71;786;38;0;0;0;gNOT FIRST PRINTED LINE OF BLOCK
35;10;0;0;0;0;10000;
36;35;0;0;0;0;10000;
37;37;32;14;0;0;0;SET'>>'IND
38;80;858;0;0;0;0;gPROCESS WORD
39;76;786;55;0;0;0;
40;80;788;0;0;0;0;gSET'AMEND'IND,PROCESS WORD
41;86;830;0;0;0;0;
42;12;0;0;0;0;2;
43;71;786;51;0;0;0;gINSERTING,NOT REPLACING WORDS
44;;32;140;1;8;0;WORD BEING REPLACED
45;5;875;2;1;0;0;WL
46;80;861;0;0;0;0;STEP (MR8) S/R
47;80;840;0;0;0;0;STEP WORD CTR S/R
48;;875;2;1;0;0;WORD JUST REPLACED
49;2;872;2;1;0;0;BEW
50;70;786;55;0;0;0;gOK,BEW REPLACED BEW
51;86;786;0;0;0;0;BEW FOUND'SWITCH
52;12;0;0;0;0;1;
53;70;787;0;0;0;0;gBEW NOT OUTPUT
54;80;862;0;0;0;0;gDRAIN REST OF M/T BLOCK BEING AMENDED
55;85;786;2;0;0;0;;TEST B/E FOUND
56;C;787;0;0;0;0;>NO
57;C;787;12;0;0;0;>YES
58;C;787;13;0;0;0;>YES AT END OF LINE
SHEET;689
PROCR;787;PREPARE FOR NEXT BLOCK
NOTES;RADIX;B;
0;94;787;2;0;5;2;>NOT END OF THIS PT BLOCK
1;76;784;1;0;0;0;gREAD MORE PT
2;00;32;94;1;5;0;NEXT PT WORD
3;02;872;6;1;0;0; 'SXBE'=END SIGN
4;71;786;5;0;0;0;gNO
5;;833;10;0;0;0;
6;73;787;9;0;0;0;gINSERTING ENTIRE TD SET
7;10;0;0;0;0;1-;
8;82;784;0;0;0;0;(A)<0
9;10;0;0;0;0;0;DELETE END SIGN
10;5;32;94;1;5;0;
11;76;786;5;0;0;0;
12;80;853;0;0;0;0;gEND OF TRIAL DATA BLOCK S/R
13;86;352;0;0;0;0;
14;70;787;18;0;0;0;gEXIT WITH 1
15;10;0;0;0;0;0;
16;84;352;0;0;0;0;CLEAR SWITCH(EXIT WITH 0)
17;82;784;0;0;0;0;
18;10;0;0;0;0;1;EXIT WITH 1
19;82;784;0;0;0;0;
SHEET;690
PROCR;788;PROCESS WORD EXPT AND SET'->'IND
0;81;788;0;0;0;0;
1;96;0;0;0;2;0;
2;31;0;0;0;0;1-;
3;5;858;0;0;0;0;WL
4;124;858;0;0;1;0;
5;2;32;15;0;0;0;
6;124;858;0;0;1;0;
7;5;32;15;0;0;0;SET NEGATIVE
8;80;858;0;0;0;0;gPROCESS WORD
9;82;788;0;0;0;0;
SHEET;691
PROCR;789;PRINT DUMP POINT IF NOT TO BE AMENDED
NOTES;RADIX;B;
0;80;791;0;0;0;0;gTEST PT=END
1;70;789;19;0;0;0;gYES,REST OF MT DUMPS
2;0;9;0;1;0;0;
3;32;0;0;0;0;2-;
4;12;0;0;0;0;54746467; 'DUMP'
5;70;789;9;0;0;0;gYES
6;80;820;0;0;0;0;gPRINT PT
7;80;811;0;0;0;0;gREAD PT
8;76;789;0;0;0;0;
9;32;0;0;0;0;2;
10;12;0;0;0;0;59; 'I'
11;71;789;15;0;0;0;gNO
12;10;0;0;0;0;41;REPLACE 'DUMPI' BY 'DUMP1'
13;35;0;0;0;0;11;
14;37;9;0;1;0;0;
15;0;9;0;1;0;0;;TEST AMENDMENT TO TH
16;02;7;50;1;0;0;;DUMPS POINT
17;70;790;0;0;0;0;gYES
18;73;789;6;0;0;0;gREPORT PT
19;76;854;0;0;0;0;gOUTPUT DUMPS POINT EX MT
20;80;857;0;0;0;0;gREAD A1,TEST'CHART/PREND/E'
21;71;789;0;0;0;0;gNO,TEST PT
22;80;791;0;0;0;0;gTEST PT=END
23;70;803;35;0;0;0;gYES
24;80;820;0;0;0;0;gPRINT PT
25;80;811;0;0;0;0;gREAD PT
26;76;789;22;0;0;0;gLOOP TO PT END
SHEET;692
PROCR;790;IMPLEMENT DUMPS POINT AMDTS
NOTES;RADIX;B;
0;00;9;2;1;0;0;;TEST DIRECTIVE
1;30;0;0;0;0;8-;
2;12;0;0;0;0;54;
3;70;790;30;0;0;0;gDELETE
4;12;0;0;0;0;15;
5;70;790;18;0;0;0;gREPLACE
6;12;0;0;0;0;t;
7;71;789;6;0;0;0;gNOT INSERT,REPORT
8;80;811;0;0;0;0;gREAD PT;INSERTION
9;80;791;0;0;0;0;gTEST END
10;70;789;19;0;0;0;gYES,FINISH MT
11;0;9;0;1;0;0;
12;30;0;0;0;0;2-;
13;12;0;0;0;0;54746467; 'DUMP'
14;70;789;15;0;0;0;gEND OF INSERTION
15;80;813;0;0;0;0;gUNPACK PT
16;80;842;0;0;0;0;gPROCESS PT
17;76;790;8;0;0;0;
18;80;813;0;0;0;0;gUNPACK PT;REPLACEMENT
19;80;842;0;0;0;0;gPROCESS PT
20;80;811;0;0;0;0;gREAD PT
21;80;857;0;0;0;0;gREAD MT,TEST END
22;70;789;22;0;0;0;gYES
23;80;791;0;0;0;0;gTEST PT=END
24;70;789;19;0;0;0;gYES,FINISH MT
25;0;9;0;1;0;0;
26;30;0;0;0;0;2-;
27;12;0;0;0;0;54746467; 'DUMP'
28;70;789;15;0;0;0;gNEW DIRECTIVE
29;76;790;18;0;0;0;gASSUME REPLACES NEXT LINE
30;80;811;0;0;0;0;gREAD PT;DELETIONS
31;80;791;0;0;0;0;gTEST END
32;70;789;20;0;0;0;gYES DELETION ENDED
33;0;9;0;1;0;0;
34;30;0;0;0;0;2-;
35;12;0;0;0;0;54746467; 'DUMP'
36;71;789;20;0;0;0;gNO,READ MT,PREPARE TO REPORT PT
37;0;9;3;0;0;0;
38;70;790;41;0;0;0;gOK MULTIPLE DELETION
39;2;872;3;0;0;0;
40;71;789;20;0;0;0;gNOT MULTIPLE DELETION
41;80;857;0;0;0;0;gREAD MT,TEST END
42;70;789;24;0;0;0;gYES,PRINT REPORT
43;0;7;50;1;0;0;
44;2;9;0;1;0;0;
45;71;790;41;0;0;0;gDELETION NOT FINISHED
46;80;811;0;0;0;0;gREAD PT
47;76;789;20;0;0;0;
SHEET;693
PROCR;791;TEST PT=END OF DUMPS DATA
0;81;791;0;0;0;0;
1;0;9;0;1;0;0;
2;30;0;0;0;0;2-;
3;12;0;0;0;0;56596355; 'FILE'
4;70;791;8;0;0;0;gYES
5;0;9;0;1;0;0;
6;30;0;0;0;0;4-;
7;12;0;0;0;0;556554; 'END'
8;82;791;0;0;0;0;
SHEET;694
PROCR;792;'FILER'AND'FILED'DATA TYPES=REPLACEMENT/DELETION OF WHOLESET
NOTES;RADIX;B;WHOLE TD SET
0;00;7;4;1;0;0;;TEST CHAPT BLOCK
1;02;870;4;1;0;0;
2;71;804;0;0;0;0;gNO,ERROR
3;80;814;0;0;0;0;UNPACK
4;0;30;2;1;0;0;ROUTE IDENTIFIER
5;80;812;0;0;0;0;gR-ALIGN
6;02;7;26;1;0;0;;TEST RIGHT FILE
7;70;792;13;0;0;0;gYES
8;;7;26;1;0;0;
9;30;0;0;0;0;6;
10;5;30;2;1;0;0;
11;80;856;0;0;0;0;gPRINT'FILE UNALTERED'
12;76;792;0;0;0;0;g
13;0;7;18;2;0;0;
14;30;0;0;0;0;7;LOSE POSSIBLE pp IN Q4 AND Q5
15;30;0;0;0;0;7-;
16;5;869;6;0;0;0;
17;0;30;10;2;0;0;SET EX PT
18;80;812;0;0;0;0;gR-ALIGN
19;2;869;6;0;0;0;;TEST RIGHT SET
20;71;792;8;0;0;0;gNO
21;80;857;0;0;0;0;gREAD,TEST PREND,CHAPT OR E
22;71;792;21;0;0;0;gNO
23;76;797;15;0;0;0;g
SHEET;695
PROCR;793;'FILEA'DATA TYPE=FIND FILE BEING AMENDED
NOTES;RADIX;B;
0;80;829;0;0;0;0;gUNPACK PT
1;0;833;0;1;0;0;PT FILE
2;2;32;126;1;0;0;MT FILE
3;71;793;14;0;0;0;gNOT THIS
4;0;833;2;0;0;0;PT SET
5;2;32;125;0;0;0;MT SET
6;71;793;14;0;0;0;gNO
7;80;799;0;0;0;0;gTEST'FIEND';REPORT IF SO
8;0;833;10;0;0;0;NEXT IS BLOCK AMEND?
9;71;796;1;0;0;0;gYES,FINISH THIS BLOCK
10;0;833;4;0;0;0;PT BLOCK;(WORD AMEND)
11;2;32;138;0;0;0;PT BLOCK
12;71;796;1;0;0;0;gDIFFERENT BLOCK,FINISH THIS ONE
13;76;798;0;0;0;0;gAPPLY
14;80;864;0;0;0;0;gWRITE AND PRINT TO FIEND
15;00;7;4;1;0;0;;TEST CHAPT BLOCK
16;02;870;4;1;0;0;
17;71;804;0;0;0;0;gNO ERROR
18;0;833;0;1;0;0;PT FILE
19;2;7;26;1;0;0;MT FILE
20;71;793;25;0;0;0;gNO
21;35;0;0;0;0;1;
22;36;7;18;2;0;0;MT SET
23;2;833;2;0;0;0;PT SET
24;70;795;0;0;0;0;gYES
25;0;7;26;1;0;0;ROUTE IDENTIFIER
26;30;0;0;0;0;6;
27;5;30;2;1;0;0;
28;80;856;0;0;0;0;gPRINT'FILE UNALTERED'
29;76;793;15;0;0;0;g
SHEET;696
PROCR;794;PREPARE TO APPLY AMENDMENTS
NOTES;RADIX;B;
0;81;794;0;0;0;0;
1;00;7;12;2;0;0;RUN NO
2;05;30;4;0;0;0;
3;00;7;22;2;0;0;BLOCK SIZE
4;05;30;5;0;0;0;
5;00;7;20;2;0;0;SECN NO
6;05;30;6;0;0;0;
7;35;0;0;0;0;1;
8;36;7;18;2;0;0; 'CLEAN'SET NO
9;05;30;7;0;0;0;
10;00;7;24;2;0;0;IND
11;05;30;8;0;0;0;
12;00;7;10;1;0;0;FILE ID
13;30;0;0;0;0;6;
14;05;30;10;1;0;0;
15;80;849;0;0;0;0;gPROCESS TD HEADING
16;82;794;0;0;0;0;
SHEET;697
PROCR;795;ALIGN ON FIRST BLOCK TO BE AMENDED
NOTES;RADIX;B;
0;00;7;26;1;0;0;
1;03;32;126;1;0;0;STORE FILE ID
2;30;0;0;0;0;6;
3;05;30;2;1;0;0;
4;35;0;0;0;0;1;
5;36;7;18;2;0;0;CLEAN SET NO
6;05;32;125;0;0;0;
7;;833;10;0;0;0;
8;70;795;12;0;0;0;gWORD AMEND OF THIS BLOCK
9;0;833;4;0;0;0;BLOCK NUMBER
10;12;0;0;0;0;7;
11;70;797;0;0;0;0;gREPLACING FILE HEADING
12;80;794;0;0;0;0;
13;80;848;0;0;0;0;gPROCESS AND PRINT HEADING
14;10;0;0;0;0;8;SET BLOCK CTRS AT 8
15;05;32;138;0;0;0;
16;90;0;0;0;8;22;SET(MR8)=24:22
17;C;0;0;0;0;24;
18;80;861;0;0;0;0;gREAD AND STORE BLOCK
19;80;838;0;0;0;0;gSET SWITCHES AND WORD NOS
20;0;833;4;0;0;0;PT BLOCK NO
21;2;32;138;0;0;0;MT BLOCK NO
22;73;796;22;0;0;0;gMISALIGNED
23;70;798;0;0;0;0;gOPERATE ON THIS BLOCK
24;85;785;0;0;0;0;;TEST BLOCK AND
25;C;796;0;0;0;0;>NO;ITEM LENGTHS TO BE
26;C;795;27;0;0;0;>YES;CHECKED
27;00;32;140;2;0;0;STORE POSN OF B/E WORD
28;11;0;0;0;0;6;
29;80;822;0;0;0;0;gCONVERT TO DEC
30;05;32;166;0;0;0;
31;10;0;0;0;0;6;SET ITEM LENGTH POSN
32;05;32;165;0;0;0;=WORD 6
SHEET;698
PROCR;796;ALIGN ON REQD BLOCK(2)
NOTES;RADIX;B;
0;80;860;0;0;0;0;gPROCESS WORD
1;85;786;2;0;0;0;;TEST B/E FOUND
2;C;796;0;0;0;0;>NO
3;C;796;5;0;0;0;>YES
4;C;796;6;0;0;0;>YES,AT END OF LINE
5;80;853;0;0;0;0;gPRINT REST OF LINE
6;96;0;0;0;8;0;;TEST FIEND
7;98;0;0;0;8;0;
8;92;0;0;0;3;0;
9;00;7;4;1;3;0;
10;02;870;2;1;0;0;
11;71;795;19;0;0;0;gNO
12;0;833;4;0;0;0;PT BLOCK
13;2;32;138;0;0;0;PRESENT MT BLOCK
14;71;796;22;0;0;0;gERROR
15;0;833;10;0;0;0;
16;70;796;22;0;0;0;gERROR,WORD AMEND
17;86;830;0;0;0;0;
18;12;0;0;0;0;3;
19;71;796;22;0;0;0;gERROR,NOT INSERTING BLOCK
20;83;129;0;0;0;1;SET INSERTING BEFORE FIEND SWITCH
21;76;798;0;0;0;0;
22;80;820;0;0;0;0;gREPORT PT
23;76;803;37;0;0;0;g
SHEET;699
PROCR;797;'FILEA' FOR BLOCK 7-PROCESS FOLLOWING'FILES'BLOCK
NOTES;RADIX;B;
0;80;811;0;0;0;0;gREAD B1
1;80;814;0;0;0;0;UNPACK P/T
2;80;849;0;0;0;0;
3;80;848;0;0;0;0;gPROCESS AND PRINT HEADING
4;0;7;26;1;0;0;STORE FILE ID
5;5;32;126;1;0;0;
6;35;0;0;0;0;1;
7;36;7;18;2;0;0;
8;5;32;125;0;0;0;
9;10;0;0;0;0;8;SET BLOCK CTRS AT 8
10;5;32;138;0;0;0;
11;80;838;0;0;0;0;gSET UP WORD NOS
12;90;0;0;0;8;22;SET (MR8) AT 22:24
13;C;0;0;0;0;24;
14;80;861;0;0;0;0;gREAD AND STORE BLOCK
15;80;811;0;0;0;0;gREAD B1
16;;9;0;1;0;0;
17;12;0;0;0;0;5659635551; 'FILEA'
18;71;803;35;0;0;0;gNO
19;80;829;0;0;0;0;UNPACK
20;;833;4;0;0;0;BLOCK NO
21;2;32;138;0;0;0;
22;71;793;0;0;0;0;gNOT THIS
23;;833;0;1;0;0;FILE ID
24;2;32;126;1;0;0;
25;71;793;14;0;0;0;gNO
26;;833;2;1;0;0;SET NO
27;2;32;125;0;0;0;
28;71;793;14;0;0;0;gNO
29;85;129;0;0;0;0;HAVE WE INSERTED BEFORE FIEND?
30;C;797;32;0;0;0;YES
31;C;797;34;0;0;0;NO
32;83;129;0;0;0;2;RESET SWITCH
33;76;797;35;0;0;0;
34;80;799;0;0;0;0;TEST FIEND
35;;833;10;0;0;0;
36;70;793;10;0;0;0;gWORD AMDT
37;76;795;20;0;0;0;g
SHEET;700
PROCR;798;'FILEA'FOR DELETION/REPLACEMENT/INSERTION OF WHOLE BLOCKS
NOTES;RADIX;B;
0;0;833;10;0;0;0;IND
1;70;800;0;0;0;0;gWORD AMDT
2;85;830;2;0;0;0;AMDT TYPE SWITCH
3;C;798;6;0;0;0;>D
4;C;798;20;0;0;0;>R
5;C;798;22;0;0;0;>T
6;0;833;6;0;0;0;LAST BLOCK NO;DELETE BLOCK(S)
7;71;798;10;0;0;0;gDELETING SEVERAL
8;0;833;4;0;0;0;FIRST
9;5;833;6;0;0;0;SET AS LAST
10;80;799;0;0;0;0;gTEST'FIEND'
11;80;862;0;0;0;0;gREAD TO END OF BLOCK
12;0;833;4;0;0;0;FIRST
13;2;833;6;0;0;0;=LAST?
14;70;797;15;0;0;0;gYES
15;60;0;0;0;0;0;
16;10;0;0;0;0;1-;STEP BLOCK W/L 2
17;4;833;6;0;0;0;REDUCE LAST
18;62;0;0;0;0;0;
19;76;798;10;0;0;0;g
20;80;799;0;0;0;0;gTEST'FIEND'
21;80;862;0;0;0;0;gREAD TO END OF BLOCK
22;80;838;0;0;0;0;gNEW O/P BLOCK PRELIMS
23;80;784;0;0;0;0;gREAD/APPLY PT
24;73;798;23;0;0;0;gNOT END OF MT BLOCK
25;70;798;36;0;0;0;gNEW DT
26;80;811;0;0;0;0;gREAD PT
27;80;791;0;0;0;0;gTEST NEW DT?
28;70;798;36;0;0;0;gYES
29;86;830;0;0;0;0;AMDT TYPE SWITCH
30;12;0;0;0;0;3;
31;70;798;34;0;0;0;gINSERTION
32;80;799;0;0;0;0;gTEST'FIEND';REPLACEMENT
33;80;862;0;0;0;0;gREAD TO END OF BLOCK BEING REPLACED
34;80;838;0;0;0;0;gNEW O/P BLOCK PRELIMS
35;76;823;0;0;0;0;gUNPACK PT AND RETURN VIA S/R 768
36;85;786;2;0;0;0;DID LAST BLOCK HAVE BEN?
37;C;798;40;0;0;0;>NO
38;C;803;0;0;0;0;>YES
39;C;803;0;0;0;0;>YES
40;;872;2;1;0;0;BEW
41;3;32;36;1;1;0;FOR MT
42;5;32;0;1;2;0;AND PRINTER
43;80;788;0;0;0;0;gSET AMENDIND,PROCESS WORD
44;94;798;46;0;2;0;/////;END OF LINE
45;76;803;0;0;0;0;
46;80;853;0;0;0;0;gEND OF BLOCK S/R
47;76;803;0;0;0;0;
SHEET;701
PROCR;799;TEST I/P AT'FIEND'
0;81;799;0;0;0;0;
1;80;802;0;0;0;0;g
2;70;796;22;0;0;0;gREPORT
3;82;799;0;0;0;0;
SHEET;702
PROCR;800;ALIGN ON REQUIRED WORD
NOTES;RADIX;B;
0;85;781;0;0;0;0;FIRST WORD?
1;C;800;5;0;0;0;>NO
2;C;800;3;0;0;0;>YES
3;10;0;0;0;0;4;START AT WORD 4
4;5;32;164;0;0;0;
5;0;833;6;0;0;0;WORD
6;2;32;164;0;0;0;;REQD WORD
7;70;801;0;0;0;0;gYES
8;73;796;22;0;0;0;gYES;TEST ALIGNED AFTER
9;80;860;0;0;0;0;gPROCESS WORD
10;85;786;2;0;0;0;;TEST B/E WORD
11;C;800;14;0;0;0;>NO
12;C;800;16;0;0;0;
13;C;800;17;0;0;0;
14;80;840;0;0;0;0;STEP WORD CTR BY 2
15;76;800;5;0;0;0;g
16;80;853;0;0;0;0;gFINISH PRINTING BLOCK
17;80;820;0;0;0;0;gPRINT PT
18;80;838;0;0;0;0;gPREP FOR NEW BLOCK
19;76;803;37;0;0;0;gREAD
SHEET;703
PROCR;801;'FILEA' FOR DELETION/REPLACEMENT/INSERTION OF WORDS WITHIN CURRENT
NOTES;RADIX;B;
0;85;830;2;0;0;0;AMDT TYPE SWITCH
1;C;801;4;0;0;0;>D
2;C;801;26;0;0;0;>R
3;C;801;26;0;0;0;>T
4;0;833;8;0;0;0;LAST WORD;DELETE WORD(S)
5;71;801;8;0;0;0;gNO;TO BE DELETED
6;0;833;6;0;0;0;FRST
7;5;833;8;0;0;0;SET AS LAST
8;60;0;0;0;0;0;
9;;833;8;0;0;0;LAST
10;11;0;0;0;0;2;
11;5;833;8;0;0;0;
12;62;0;0;0;0;0;
13;;32;140;1;8;0;CURRENT MT WORD
14;2;872;2;1;0;0;
15;70;796;22;0;0;0;gDELETING BEW, REPORT
16;80;861;0;0;0;0;gSTEP(MR8)S/R
17;80;840;0;0;0;0;STEP WORD CTR BY 2
18;00;32;164;0;0;0;;TEST LAST WORD
19;2;833;8;0;0;0;>NO
20;71;801;13;0;0;0;
21;80;811;0;0;0;0;gREAD PT
22;80;791;0;0;0;0;gTEST RECOGNISABLE
23;70;803;6;0;0;0;gYES
24;80;820;0;0;0;0;gPRINT PT
25;76;801;21;0;0;0;
26;80;784;0;0;0;0;gREAD/APPLY PT
27;70;803;6;0;0;0;gNEW DATA TYPE
28;73;801;26;0;0;0;gNOT TD BLOCK END
29;76;801;21;0;0;0;gEXPECT A NEW DATA TYPE
SHEET;704
PROCR;802;TEST FIEND
0;81;802;0;0;0;0;
1;96;0;0;0;8;0;
2;98;0;0;0;8;0;
3;92;0;0;0;3;0;
4;;7;4;1;3;0;
5;2;870;2;1;0;0;
6;82;802;0;0;0;0;
SHEET;705
PROCR;803;TEST NEXT PT DIRECTIVE FOR SAME FILE/BOCK
NOTES;RADIX;B;
0;85;129;0;0;0;0;HAVE WE INSERTED BEFORE FIEND
1;C;803;3;0;0;0;
2;C;803;5;0;0;0;
3;83;129;0;0;0;2;RESET SWITCH
4;76;803;35;0;0;0;
5;80;838;0;0;0;0;
6;0;9;0;1;0;0;
7;12;0;0;0;0;5659635551;'FILEA'
8;70;803;13;0;0;0;
9;80;802;0;0;0;0;TEST FIEND
10;71;803;34;0;0;0;gNO
11;80;864;0;0;0;0;WRITE & PRINT TO FIEND
12;76;803;35;0;0;0;g
13;80;829;0;0;0;0;gUNPACK
14;;833;0;1;0;0;PT FILE
15;2;32;126;1;0;0;MT FILE
16;70;803;20;0;0;0;
17;80;802;0;0;0;0;gTEST FIEND
18;70;803;35;0;0;0;gYES
19;76;803;34;0;0;0;gNO
20;;833;2;0;0;0;PT SET
21;2;32;125;0;0;0;MT SET
22;71;803;17;0;0;0;
23;;833;4;0;0;0;PT BLOCK
24;2;32;138;0;0;0;MT BLOCK
25;71;803;30;0;0;0;
26;;833;10;0;0;0;
27;71;796;6;0;0;0;gBLOCK AMDT
28;80;799;0;0;0;0;gREPORT IF AT FIEND
29;76;798;0;0;0;0;gWORD AMDT TO SAME BLOCK
30;80;799;0;0;0;0;gREPORT IF AT FIEND
31;80;863;0;0;0;0;gFINISH BLOCK
32;80;838;0;0;0;0;gRESET SWITCHES
33;76;796;6;0;0;0;g
34;80;863;0;0;0;0;gPROCESS TO END OF BLOCK S/R
35;80;826;0;0;0;0;TEST P/T
36;80;820;0;0;0;0;gPRINT ERROR LINE
37;80;811;0;0;0;0;gREAD P/T
38;80;826;0;0;0;0;gTEST P/T
39;76;803;36;0;0;0;gPRINT UNTIL RECOGNISED
SHEET;706
PROCR;804;END ROUTINE
NOTES;RADIX;B;
0;80;820;0;0;0;0;gPRINT PT
1;;7;4;1;0;0;
2;02;870;4;1;0;0;
3;71;882;0;0;0;0;gNO, MUST BE PREND OR E
4;0;7;26;1;0;0;
5;30;0;0;0;0;6;
6;5;30;2;1;0;0;
7;80;856;0;0;0;0;gPRINT 'FILE UNALTERED LINE
8;76;804;1;0;0;0;
SHEET;707
PROCR;805;DUMP TYPE NOT IN RANGE OR TOO MANY POINTS
NOTES;RADIX;B;
0;0;872;18;1;0;0;'?????'
1;5;5;48;1;0;0;
2;62;0;0;0;0;0;
3;52;5;2;0;0;0;
4;C;877;0;0;0;0;
5;54;5;12;1;0;36;
6;00;872;16;1;0;0;REPLACE DUMPX BY SQUARES
7;05;5;4;1;0;0;
8;80;866;0;0;0;0;gADD ONE TO DISASTROUS CTR
9;94;0;0;0;4;1-;
10;80;817;0;0;0;0;gPRINT
11;82;842;0;0;0;0;gLEAVE DUMPS POIT S/R
12;52;5;2;0;0;0;EDIT DUMP POINT
13;C;877;0;0;0;0;
14;;872;18;1;0;0;'?????'
15;5;5;48;1;0;0;
16;54;5;10;1;0;38;
17;76;805;6;0;0;0;
SHEET;708
PROCR;806;N1,N2 OR N3 OUT OF RANGE S/R
NOTES;RADIX;;
0;81;806;0;0;0;0;
1;80;867;0;0;0;0;gADD ONE TO OTHERS CTR
2;10;0;0;0;0;414243;
3;37;871;38;1;0;0;PACK IN NO
4;10;0;0;0;0;0;
5;35;0;0;0;0;1111000000;
6;36;871;28;1;0;0;PACK IN*N
7;37;871;38;1;0;0;
8;101;0;255;1;3;0;
9;82;806;0;0;0;0;g
10;35;0;0;0;0;110000;
11;80;806;0;0;0;0;
12;76;843;15;0;0;0;g
13;35;0;0;0;0;1100;
14;80;806;0;0;0;0;
15;76;843;22;0;0;0;g
16;35;0;0;0;0;11;
17;80;806;0;0;0;0;
18;76;843;29;0;0;0;
SHEET;709
PROCR;807;SECOND ERROR WORD S/R
NOTES;RADIX;B;
0;81;807;0;0;0;0;
1;35;0;0;0;0;111100;
2;37;871;40;1;0;0;PACK IN *C S OR P
3;80;867;0;0;0;0;gADD ONE TO 'OTHERS' CTR
4;96;0;0;0;1;0;
5;71;807;10;0;0;0;gNO
6;35;0;0;0;0;11;
7;10;0;0;0;0;41;PACK IN ONE
8;37;871;40;1;0;0;
9;10;0;0;0;0;0;
10;82;807;0;0;0;0;g
SHEET;710
PROCR;808;THIRD ERROR WORD S/R
NOTES;RADIX;B;
0;81;808;0;0;0;0;
1;35;0;0;0;0;1100000000;
2;12;0;0;0;0;1;
3;70;808;14;0;0;0;g2ND CHAP
4;12;0;0;0;0;1;
5;70;808;13;0;0;0;g3RD CHAP
6;12;0;0;0;0;1;
7;70;808;12;0;0;0;g4TH CHAP
8;12;0;0;0;0;1;
9;70;808;11;0;0;0;g5TH CHAP
10;32;0;0;0;0;2-;6TH CHAP
11;32;0;0;0;0;2-;
12;32;0;0;0;0;2-;
13;32;0;0;0;0;2-;
14;10;0;0;0;0;4243444546;
15;37;871;42;1;0;0;PACK IN NO
16;82;808;0;0;0;0;g
SHEET;711
PROCR;809;IGNORE T D FILE ERROR S/R
NOTES;RADIX;B;
0;81;809;0;0;0;0;
1;0;871;40;1;0;0;ALREADY DONE?
2;2;872;18;1;0;0;'?????'
3;70;809;10;0;0;0;gYES
4;;872;18;1;0;0;'?????'
5;05;871;40;1;0;0;
6;0;868;0;0;0;0;'£££££'
7;35;0;0;0;0;11000;PACK ££ IN SET NUMBER
8;37;31;12;2;0;0;AS 'IGNORE' IND
9;80;866;0;0;0;0;gADD ONE TO 'DISASTROUS' CTR
10;82;809;0;0;0;0;
SHEET;712
PROCR;810;READ A1 S/R
NOTES;RADIX;B;
0;81;810;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;7;0;0;0;0;
3;82;810;0;0;0;0;
SHEET;713
PROCR;811;READ B1 S/R
NOTES;RADIX;B;
0;81;811;0;0;0;0;
1;80;779;0;0;0;0;gREAD
2;34;9;48;2;0;0;
3;10;0;0;0;0;0;
4;32;0;0;0;0;7;
5;91;0;0;0;3;0;
6;10;0;0;0;0;0;
7;32;0;0;0;0;3;
8;05;869;0;0;0;0;
9;35;0;0;0;0;11;
10;10;0;0;0;0;7.;
11;124;869;0;0;1;0;
12;32;0;0;0;0;0;/////
13;37;9;0;1;3;0;
14;55;9;4;1;0;44;
15;C;9;0;1;0;0;
16;82;811;0;0;0;0;
SHEET;714
PROCR;812;RIGHT-ALIGN(A) SR
0;81;812;0;0;0;0;
1;32;0;0;0;0;10-;N->B
2;5;869;12;1;0;0;CLEAR WL
3;0;869;12;1;0;0;
4;32;0;0;0;0;2;
5;5;869;12;1;0;0;
6;75;812;3;0;0;0;gNOT END
7;0;869;12;1;0;0;
8;82;812;0;0;0;0;
SHEET;715
PROCR;813;UNPACK DUMPS POINT P/T SR
NOTES;RADIX;B;
0;81;813;0;0;0;0;
1;54;30;0;0;0;18;
2;87;27;10;0;0;0;
3;C;813;8;0;0;0;P/T
4;C;813;5;0;0;0;CARD
5;50;9;0;0;0;0;UNPACK CARD
6;C;874;8;0;0;0;
7;76;813;11;0;0;0;
8;124;873;12;0;2;0;
9;124;999;21;1;2;0;SEC 9
10;128;0;0;0;3;0;UNPACK
11;;92;30;0;0;0;
12;70;813;14;0;0;0;gINITIAL TRANSLATION
13;82;813;0;0;0;0;
14;60;0;0;0;0;0;
15;10;0;0;0;0;2;
16;4;30;0;0;0;0;STEP LINE SERIAL
17;;30;1;0;0;0;PM TYPE
18;12;0;0;0;0;6;
19;71;813;29;0;0;0;gNOT LOCATION DUMP
20;90;0;0;0;3;0;
21;C;0;0;0;0;12;
22;;30;5;0;3;0;REF
23;70;813;29;0;0;0;gEND
24;12;0;0;0;0;100;
25;73;813;28;0;0;0;gNOT PROCR
26;10;0;0;0;0;2;
27;4;30;6;0;3;0;STEP ITEM
28;94;813;22;0;3;2;
29;62;0;0;0;0;0;
30;82;813;0;0;0;0;
SHEET;716
PROCR;814;UNPACK TD HEADING P/T S/R
NOTES;RADIX;B;
0;81;814;0;0;0;0;
1;54;30;0;0;0;18;
2;87;27;10;0;0;0;
3;C;814;14;0;0;0;P/T
4;C;814;5;0;0;0;CARD
5;50;9;0;0;0;0;UNPACK CARD
6;C;874;46;0;0;0;
7;;30;2;1;0;0;L-ALIGN ALPHA DATA
8;30;0;0;0;0;6;
9;5;30;2;1;0;0;
10;;30;10;1;0;0;
11;30;0;0;0;0;6;
12;5;30;10;1;0;0;
13;82;814;0;0;0;0;g
14;124;873;4;0;2;0;
15;124;999;21;1;2;0;SEC 9
16;128;0;0;0;3;0;UNPACK
17;82;814;0;0;0;0;
SHEET;717
PROCR;815;WRITE A2 FROM SECTION 1 S/R
NOTES;RADIX;B;
0;81;815;0;0;0;0;
1;55;7;4;1;0;50;
2;C;8;4;1;0;0;
3;43;A2;0;0;0;0;
4;C;8;0;0;0;0;
5;82;815;0;0;0;0;
SHEET;718
PROCR;816;WRITE A2 FROM SECTION 4 S/R
NOTES;RADIX;B;
0;81;816;0;0;0;0;
1;80;890;0;0;0;0;
2;82;816;0;0;0;0;
SHEET;719
PROCR;817;PRINT S/R
NOTES;RADIX;B;
0;81;817;0;0;0;0;
1;05;5;0;1;0;0;SET UP FUNCTION WORD
2;80;892;0;0;0;0;
3;82;817;0;0;0;0;
SHEET;720
PROCR;818;PRINT BLANK LINE
NOTES;RADIX;B;
0;81;818;0;0;0;0;
1;;27;9;0;0;0;ON LINE
2;70;818;5;0;0;0;gYES
3;54;5;0;1;0;50;BLANK LINE
4;76;818;7;0;0;0;
5;;872;2;1;0;0;BEW
6;5;5;2;1;0;0;
7;80;817;0;0;0;0;
8;82;818;0;0;0;0;
SHEET;721
PROCR;819;CLEAR 1ST 2 WORDS OF ANNEXE
NOTES;RADIX;;
0;81;819;0;0;0;0;
1;10;0;0;0;0;0;
2;05;5;2;1;0;0;
3;05;5;4;1;0;0;
4;82;819;0;0;0;0;
SHEET;722
PROCR;820;PRINT UNRECOGNISABLE P/T LINE S/R
NOTES;RADIX;B;
0;81;820;0;0;0;0;
1;80;818;0;0;0;0;gLINE FEED S/R
2;80;865;0;0;0;0;gSTEP'PT OMITTED'
3;00;871;44;1;0;0; 'P/T?  '
4;05;5;2;1;0;0;
5;;9;48;2;0;0;
6;30;0;0;0;0;3-;
7;12;0;0;0;0;4;
8;91;0;0;0;3;0;
9;10;0;0;0;0;0;CLEAR
10;35;0;0;0;0;11;(FOR ONE CHAR)
11;36;9;48;2;0;0;
12;5;821;0;0;0;0;WL
13;124;821;0;0;1;0;
14;32;0;0;0;0;0;///// SHIFT PACKING BITS OVER BE CHAR
15;37;9;0;1;3;0;CLEAR BE CHAR
16;55;9;0;1;0;32;
17;C;5;4;1;0;0;
18;80;817;0;0;0;0;gPRINT
19;80;818;0;0;0;0;gLINE FEED S/R
20;82;820;0;0;0;0;g
SHEET;723
PROCR;821;CONVERT TO BINARY S/R
NOTES;RADIX;B;
0;81;821;0;0;0;0;
1;5;908;52;1;0;0;
2;62;0;0;0;0;0;
3;124;909;0;0;2;0;
4;112;908;52;1;0;0;
5;82;821;0;0;0;0;
SHEET;724
PROCR;822;CONVERT TO DECIMAL S/R
NOTES;RADIX;B;
0;81;822;0;0;0;0;
1;5;908;52;1;0;0;
2;60;0;0;0;0;0;
3;124;909;20;0;2;0;
4;112;908;52;1;0;0;
5;62;0;0;0;0;0;
6;82;822;0;0;0;0;
SHEET;725
PROCR;823;UNPACK THIS PT/CARD BLOCK CHARACTER-BY-CHARACTER
NOTES;RADIX;B;
0;91;872;0;0;3;0;SET (MR3)=0:0
1;90;0;0;0;4;0;SET (MR4)=14:0
2;C;0;0;0;0;14;
3;90;0;0;0;5;0;SET (MRS)=5:0
4;C;0;0;0;0;5;
5;54;32;60;0;0;64;CLEAR W/L'S
6;55;9;0;0;0;32;
7;C;32;60;0;0;0;
8;87;27;10;0;0;0;
9;C;823;11;0;0;0;P/T
10;C;823;25;0;0;0;CARD
11;34;32;60;1;3;0;SET(B)AT 1ST WORD
12;32;0;0;0;0;2;
13;12;0;0;0;0;7:;
14;70;824;0;0;0;0;gYES
15;12;0;0;0;0;1;TEST BE
16;70;825;45;0;0;0;gYES
17;11;0;0;0;0;7.;
18;05;32;124;0;0;0;W/L 2
19;00;32;92;1;0;0;LINE SERIAL SO FAR
20;30;0;0;0;0;2;
21;01;32;124;0;0;0;
22;05;32;92;1;0;0;
23;80;827;0;0;0;0;gS/R A
24;76;823;13;0;0;0;g
25;00;32;60;1;0;0;STORE LINE SERIAL
26;05;32;92;1;0;0;
27;05;32;121;0;0;0;CLEAR CARD IND
28;94;823;29;0;3;2;
29;34;32;60;1;3;0;SET(B) AT NEXT WORD
30;32;0;0;0;0;2;
31;76;824;1;0;0;0;g
SHEET;726
PROCR;824;PSEUDO UNPACK-MAIN LOOP(1)
NOTES;RADIX;;B
0;80;827;0;0;0;0;gS/R A
1;12;0;0;0;0;7:;
2;70;824;16;0;0;0;gYES
3;12;0;0;0;0;1;
4;70;825;45;0;0;0;gYES
5;11;0;0;0;0;1p;
6;70;825;55;0;0;0;gYES
7;11;0;0;0;0;4;
8;70;825;0;0;0;0;gYES
9;11;0;0;0;0;5e;
10;05;32;124;0;0;0;W/L 2
11;00;32;122;1;0;0;W/L 1
12;30;0;0;0;0;2;
13;01;32;124;0;0;0;
14;05;32;122;1;0;0;
15;76;824;0;0;0;0;g
16;80;828;0;0;0;0;gS/R B
17;05;32;94;1;4;0;STORE WORD IN LIST
18;05;32;120;0;0;0;CLEAR*C IND
19;05;32;122;1;0;0;CLEAR W/L 1
20;94;824;0;0;4;2;STEP(MR4)
21;76;825;49;0;0;0;g
SHEET;727
PROCR;825;
NOTES;RADIX;B;
0;80;827;0;0;0;0;gS/R A
1;12;0;0;0;0;51;
2;70;825;43;0;0;0;gYES
3;12;0;0;0;0;1;
4;70;825;41;0;0;0;gYES
5;12;0;0;0;0;1;
6;70;825;52;0;0;0;gYES
7;12;0;0;0;0;1;
8;70;825;39;0;0;0;gYES
9;12;0;0;0;0;7;
10;70;825;37;0;0;0;gYES
11;12;0;0;0;0;8;
12;70;825;35;0;0;0;gYES
13;12;0;0;0;0;2;
14;70;825;33;0;0;0;gYES
15;12;0;0;0;0;:;
16;70;825;31;0;0;0;gYES
17;12;0;0;0;0;e;
18;71;825;22;0;0;0;gNO
19;80;867;0;0;0;0;gSTEP'OTHERS'
20;00;872;14;1;0;0;*****
21;76;824;17;0;0;0;g
22;12;0;0;0;0;1;
23;71;825;27;0;0;0;gNO
24;80;867;0;0;0;0;gSTEP'OTHERS'
25;00;872;14;1;0;0;*****
26;76;825;46;0;0;0;g
27;10;0;0;0;0;0;
28;80;827;0;0;0;0;gS/R A
29;12;0;0;0;0;7:;
30;76;825;18;0;0;0;g
31;10;0;0;0;0;5£;SQUARE
32;76;824;10;0;0;0;g
33;10;0;0;0;0;7:;NUMBER END
34;76;824;10;0;0;0;g
35;10;0;0;0;0;5.;LINE END
36;76;824;10;0;0;0;g
37;10;0;0;0;0;5e;STAR
38;76;824;10;0;0;0;
39;10;0;0;0;0;7£;TRIANGLE
40;76;824;10;0;0;0;g
41;10;0;0;0;0;7.;BLOCK END
42;76;824;10;0;0;0;g
43;10;0;0;0;0;6£;ALIGNMENT MARK
44;76;824;10;0;0;0;g
45;80;828;0;0;0;0;gS/R B
46;05;32;94;1;4;0;STORE WORD IN LIST
47;00;872;6;1;0;0;SET END SIGN IN LIST
48;05;32;96;1;4;0;
49;90;0;0;0;5;0;
50;C;0;0;0;0;14;
51;76;784;12;0;0;0;g
52;10;0;0;0;0;1;SET*C ID
53;05;32;120;0;0;0;
54;76;824;0;0;0;0;g
55;0;872;6;1;0;0;SET END SIGN IN LIST
56;5;32;94;1;4;0;
57;76;825;49;0;0;0;
SHEET;728
PROCR;826;TEST P/T S/R
NOTES;RADIX;B;
0;81;826;0;0;0;0;
1;00;9;0;1;0;0;
2;2;870;8;1;0;0; 'FILES''
3;70;826;15;0;0;0;gINSERTION
4;11;0;0;0;0;1.;
5;70;826;17;0;0;0;g'FILED' (DELETION)
6;12;0;0;0;0;15;
7;70;826;17;0;0;0;g'FILER' (REPLACEMENT)
8;11;0;0;0;0;18;
9;70;793;0;0;0;0;g'FILEA' (BLOCK/WORD AMENDMENT)
10;;9;0;1;0;0;
11;30;0;0;0;0;4-;
12;12;0;0;0;0;556554; 'END'
13;70;826;19;0;0;0;gYES
14;82;826;0;0;0;0;(REPORT)
15;80;864;0;0;0;0;FILE PREP
16;76;782;13;0;0;0;
17;80;864;0;0;0;0;FILE PREP
18;76;792;0;0;0;0;
19;80;864;0;0;0;0;
20;76;804;1;0;0;0;
SHEET;729
PROCR;827;PSEUDO UNPACK S/R A
NOTES;RADIX;B;
0;81;827;0;0;0;0;
1;94;827;13;0;5;1;STEP (MR5)
2;87;27;10;0;0;0;
3;C;827;9;0;0;0;P/T
4;C;827;5;0;0;0;CARD
5;00;32;121;0;0;0;
6;71;827;15;0;0;0;gYES
7;10;0;0;0;0;1;SET CARD IND
8;05;32;121;0;0;0;
9;90;0;0;0;5;0;RESET (MR5)
10;C;0;0;0;0;5;
11;94;827;12;0;3;2;STEP (MR3)
12;34;32;60;1;3;0;SET(B)AT NEXT WORD
13;32;0;0;0;0;2;
14;82;827;0;0;0;0;
15;10;0;0;0;0;0;
16;05;32;121;0;0;0;CLEAR CARD IND
17;90;0;0;0;5;1-;SET(MR5)AT-1:5
18;C;0;0;0;0;5;
19;94;827;20;0;3;2;STEP(MR3)
20;34;32;60;1;3;0;SET(B)AT NEXT WORD
21;76;824;16;0;0;0;g
SHEET;730
PROCR;828;PSEUDO UNPACK S/R B
NOTES;RADIX;B;
0;81;828;0;0;0;0;
1;00;32;120;0;0;0;
2;70;828;11;0;0;0;gNO
3;32;0;0;0;0;10;STORE(B)
4;05;32;128;1;0;0;
5;00;32;122;2;0;0;
6;80;821;0;0;0;0;gCONVERT TO BINARY
7;05;32;122;2;0;0;
8;34;32;128;1;0;0;RESTORE(B)
9;02;32;122;1;0;0;
10;76;828;12;0;0;0;g
11;00;32;122;1;0;0;
12;82;828;0;0;0;0;g
SHEET;731
PROCR;829;UNPACK'FILEA'BLOCK
NOTES;RADIX;B;
0;81;829;0;0;0;0;
1;54;833;0;1;0;10;
2;87;27;10;0;0;0;
3;C;829;5;0;0;0;>PT
4;C;832;0;0;0;0;>CARDS
5;124;873;16;0;2;0;
6;124;999;21;1;2;0;SEC 9
7;128;0;0;0;3;0;
8;0;833;0;1;0;0;FILE ID
9;80;812;0;0;0;0;gR-ALIGN
10;5;833;0;1;0;0;
11;0;833;4;1;0;0;
12;80;812;0;0;0;0;gR-ALIGN
13;32;0;0;0;0;2-;
14;5;869;12;1;0;0;WL
15;32;0;0;0;0;2;
16;12;0;0;0;0;54;
17;70;831;2;0;0;0;g'D' DELETE BLOCK(S)
18;12;0;0;0;0;15;
19;70;831;1;0;0;0;g'R' REPLACE BLOCK
20;12;0;0;0;0;t;
21;70;831;0;0;0;0;g'T' INSERT BLOCK
22;0;833;4;1;0;0;(ASSUME WORD AMEND
23;80;812;0;0;0;0;gR-ALIGN BLOCK NUMBER
24;0;869;12;2;0;0;
25;73;830;18;0;0;0;gREJECT
26;5;833;4;1;0;0;DEC BLOCK NUMBER
27;0;833;6;1;0;0;FIRST WORD NUMBER
28;80;812;0;0;0;0;gR-ALIGN
29;3;869;12;1;0;0;WL
30;32;0;0;0;0;2-;
31;10;0;0;0;0;0;
32;32;0;0;0;0;2;
33;12;0;0;0;0;54; 'D'
34;70;830;2;0;0;0;gDELETE WORD(S)
35;12;0;0;0;0;15;
36;70;830;1;0;0;0;g'R' REPLACE WORD(S)
37;12;0;0;0;0;t;
38;71;830;18;0;0;0;gNOT'T';REJECT
SHEET;732
PROCR;830;UNPACK P/T TD AMDTS (2)
NOTES;RADIX;B;
0;10;0;0;0;0;1;3=T
1;11;0;0;0;0;1;2=R
2;11;0;0;0;0;1;1=D
3;84;830;0;0;0;0;SET WORD AMEND SWITCH
4;0;869;12;1;0;0;
5;30;0;0;0;0;2-;
6;5;833;6;1;0;0;
7;0;833;6;2;0;0;
8;73;830;18;0;0;0;gREJECT
9;5;833;6;1;0;0;NUMERIC FIRST WORD NUMBER
10;0;833;8;1;0;0;LAST WORD(DELETIONS)
11;70;831;18;0;0;0;gOK
12;73;830;18;0;0;0;gREJECT
13;;833;6;0;0;0;FIRST
14;2;833;8;0;0;0;LAST
15;72;830;18;0;0;0;gREJECT
16;10;0;0;0;0;0;
17;76;831;18;0;0;0;
18;80;820;0;0;0;0;gPRINT PT
19;76;803;37;0;0;0;gREAD PT UNTIL DT RECOGNISED
SHEET;733
PROCR;831;UNPACK P/T TO AMDTS (3)
NOTES;RADIX;B;
0;10;0;0;0;0;1;3=T
1;11;0;0;0;0;1;2=R
2;11;0;0;0;0;1;1=D
3;84;830;0;0;0;0;SET BLOCK AMEND SWITCH
4;0;869;12;2;0;0;
5;73;830;18;0;0;0;gREJECT
6;5;833;4;1;0;0;STORE BLOCK NUMBER
7;0;833;6;1;0;0;
8;80;812;0;0;0;0;gR-ALIGN
9;5;869;12;1;0;0;
10;0;869;12;2;0;0;
11;73;830;18;0;0;0;gREJECT
12;3;833;6;1;0;0;LAST BLOCK(DELETIONS)
13;70;831;17;0;0;0;gOK
14;;833;4;0;0;0;FIRST
15;2;833;6;0;0;0;LAST
16;72;830;18;0;0;0;gREJECT
17;10;0;0;0;0;1;
18;5;833;10;0;0;0;ZERO=WORD AMEND;NONZERO=BLOCK AMEND
19;82;829;0;0;0;0;
SHEET;734
PROCR;832;UNPACK CARD TD AMDTS
NOTES;RADIX;B;
0;50;9;0;0;0;0;
1;C;874;62;0;0;0;
2;76;829;8;0;0;0;
SHEET;735
CONST;833;1;UNPACKED PT FOR 'FILEA' DATA
0;(D)0;'FILEA'/FILE ID R-ALIGNED
2;0;SET(NUMERIC)
4;0;BLOCK NUMBER(DEC NUMERIC)
6;0;START WORD/LAST BLOCK(DEC NUMERIC)
8;0;END WORD(DEC NUMERIC)
10;;ZERO=WORD AMEND;NONZERO=BLOCK AMEND
SHEET;736
PROCR;834;FORM UP RELATIVE ADDRESS S/R
NOTES;RADIX;B;
0;81;834;0;0;0;0;
1;05;869;0;0;0;0;STORE I/C SERIAL
2;35;0;0;0;0;11100;
3;36;869;0;0;0;0;COLLARE PROCR NO
4;30;0;0;0;0;2-;
5;80;821;0;0;0;0;gCONVERT TO BINARY
6;92;0;0;0;5;0;SET (MR5)=PROCR NO
7;90;0;0;0;3;0;
8;C;0;0;0;0;40;
9;00;25;2;0;3;0;
10;02;869;0;0;0;0;
11;70;834;25;0;0;0;gYES
12;94;834;9;0;3;2;>NO
13;;18;1000;0;5;0;PROCR START
14;3;822;0;0;0;0;PROCR START
15;70;834;26;0;0;0;gPROCR NOT THERE, LEAVE SR (A)=0
16;10;0;0;0;0;0;CLEAR A
17;35;0;0;0;0;11;COLLATE ITEM NO
18;36;869;0;0;0;0;
19;80;821;0;0;0;0;gCONVERT TO BINARY
20;12;0;0;0;0;2;BIN ITEM-2
21;3;821;0;0;0;0;WL
22;71;834;27;0;0;0;gIGNORE=LINE SERIAL, ACCEPT=PM 6 DATA
23;;822;0;0;0;0;PROCR=START
24;76;834;26;0;0;0;g
25;00;25;3;0;3;0;
26;82;834;0;0;0;0;
27;10;0;0;0;0;0;
28;82;834;0;0;0;0;
SHEET;737
PROCR;835;FORM UP CHAPTER NO S/R
NOTES;RADIX;B;
0;81;835;0;0;0;0;
1;05;869;0;0;0;0;STORE PROCR NO
2;90;0;0;0;3;1;
3;C;0;0;0;0;15;
4;35;0;0;0;0;11100;
5;10;0;0;0;0;0;
6;36;92;9;0;3;0;LAST PROCR IN CHAP
7;30;0;0;0;0;2-;
8;02;869;0;0;0;0;
9;72;835;11;0;0;0;g
10;94;835;5;0;3;1;>NO
11;10;0;0;0;0;0;
12;35;0;0;0;0;1;
13;36;92;9;0;3;0;CORRECTED CHAP NO
14;82;835;0;0;0;0;
SHEET;738
PROCR;836;FORM UP CHAPTER NO OF SECN
NOTES;RADIX;B;
0;81;836;0;0;0;0;
1;35;0;0;0;0;1;(A)=0
2;36;15;0;0;3;0;
3;92;0;0;0;5;0;
4;10;0;0;0;0;0;
5;36;92;9;0;5;0;CORRECTED CHAP
6;82;836;0;0;0;0;
SHEET;739
PROCR;837;FORM UP TRANSIT AREA PARAMETER S/R
NOTES;RADIX;B;
0;81;837;0;0;0;0;
1;05;869;0;0;0;0;STORE SECN NO
2;91;24;2;0;3;0;SET(MR3)=2(R+T)/2R
3;94;837;5;0;3;0;/////
4;76;837;11;0;0;0;gNO TX AREAS
5;35;0;0;0;0;111-;
6;36;24;4;0;3;0;SECN NO
7;02;869;0;0;0;0;
8;70;837;12;0;0;0;g
9;10;0;0;0;0;0;
10;94;837;6;0;3;2;>
11;82;837;0;0;0;0;g
12;35;0;0;0;0;11000;
13;36;24;4;0;3;0;TA PARAMETER
14;82;837;0;0;0;0;g
SHEET;740
PROCR;838;SET UP COUNTERS AT START OF NEW TRIAL DATA BLOCK
NOTES;RADIX;B;
0;81;838;0;0;0;0;
1;60;0;0;0;0;0;SET DECIMAL
2;90;0;0;0;3;0;
3;C;0;0;0;0;7;
4;10;0;0;0;0;2;
5;03;32;15;0;3;0;FOR PRINTING
6;11;0;0;0;0;2;
7;94;838;5;0;3;1;
8;62;0;0;0;0;0;SET BINARY
9;90;0;0;0;2;0;
10;C;0;0;0;0;14;
11;83;787;2;0;0;1;SET*SWITCH AT 1
12;83;786;2;0;0;1;SET B/E SWITCH AT 1
13;83;849;2;0;0;2;SET BLOCK NO SWITCH AT 2
14;83;781;0;0;0;2;SET FIRST WORD SWITCH AT 2
15;05;871;40;1;0;0;CLEAR ERROR WORD
16;80;818;0;0;0;0;gLINE FEED S/R
17;82;838;0;0;0;0;g
SHEET;741
PROCR;839;STEP WORD NUMBERS FOR PRINTED LINE BY 14
NOTES;RADIX;B;
0;81;839;0;0;0;0;
1;60;0;0;0;0;0;
2;90;0;0;0;3;0;
3;C;0;0;0;0;7;
4;35;0;0;0;0;1111;
5;10;0;0;0;0;14;
6;36;32;15;0;3;0;
7;5;32;15;0;3;0;(CLEAR PREVIOUS SIGN)
8;94;839;5;0;3;1;
9;62;0;0;0;0;0;
10;82;839;0;0;0;0;
SHEET;742
PROCR;840;STEP WORD COUNTER BY 2
NOTES;RADIX;B;
0;81;840;0;0;0;0;
1;10;0;0;0;0;2;
2;60;0;0;0;0;0;
3;04;32;164;0;0;0;
4;62;0;0;0;0;0;
5;82;840;0;0;0;0;
SHEET;743
PROCR;841;PREPARE FOR DUMPS POINTS S/R
NOTES;RADIX;B;
0;81;841;0;0;0;0;
1;80;818;0;0;0;0;gLINE FEED S/R
2;80;818;0;0;0;0;gLINE FEED S/R
3;90;0;0;0;4;0;SET(MR4)=11:0
4;C;0;0;0;0;11;
5;52;5;2;0;0;0;EDIT PM POINT HEADING
6;C;876;0;0;0;0;
7;80;817;0;0;0;0;gPRINT
8;;9;0;1;0;0;
9;30;0;0;0;0;4-;
10;12;0;0;0;0;556554; 'END'
11;70;841;13;0;0;0;gALREADY AT END
12;80;811;0;0;0;0;gREAD P/T
13;80;818;0;0;0;0;gLINE FEED S/R
14;82;841;0;0;0;0;g
SHEET;744
PROCR;842;PROCESS DUMPS POINT S/R
NOTES;RADIX;B;
0;81;842;0;0;0;0;
1;94;842;3;0;4;1;STEP(MR4)
2;76;805;12;0;0;0;gTOO MANY DUMPS POINTS
3;54;31;0;1;0;22;
4;5;871;38;1;0;0;CLEAR ERROR WORDS
5;5;871;40;1;0;0;
6;5;871;42;1;0;0;
7;0;30;0;0;0;0;STORE I/C SERIAL
8;80;780;0;0;0;0;gUPDATE ADDRESS
9;3;30;0;0;0;0;NEW SERIAL
10;3;31;0;0;0;0;
11;80;834;0;0;0;0;gFORM UP REL ADD S/R
12;70;805;12;0;0;0;gNOT PROCR START OR 'TRACE' ,REJECT
13;5;31;1;0;0;0;
14;96;0;0;0;5;0;BINARY PROCR NO
15;80;835;0;0;0;0;gFORM UP CHAP NO
16;96;0;0;0;3;0;UNCORRECTED CHAP
17;5;31;2;0;0;0;
SHEET;745
PROCR;843;PROCESS TYPE N1 N2 AND N3
NOTES;RADIX;B;
0;0;30;1;0;0;0;
1;70;805;0;0;0;0;gREJECT
2;73;805;0;0;0;0;
3;12;0;0;0;0;7;
4;72;805;0;0;0;0;gNO,ERROR
5;11;0;0;0;0;7;
6;30;0;0;0;0;4;
7;4;31;2;0;0;0;
8;84;780;15;0;0;0;SET SWITCH 2 BY TYPE
9;C;30;1;0;0;0;
10;0;30;2;0;0;0;
11;12;0;0;0;0;256;
12;72;806;10;0;0;0;gNO
13;11;0;0;0;0;256;
14;80;821;0;0;0;0;gCONVERT TO BINARY
15;30;0;0;0;0;3;
16;5;31;3;0;0;0;
17;0;30;3;0;0;0;
18;12;0;0;0;0;256;
19;72;806;13;0;0;0;gNO
20;11;0;0;0;0;256;
21;80;821;0;0;0;0;gCONVERT TO BINARY
22;4;31;3;0;0;0;
23;0;30;4;0;0;0;
24;70;806;16;0;0;0;gNO
25;12;0;0;0;0;256;
26;72;806;16;0;0;0;gNO
27;11;0;0;0;0;256;
28;80;821;0;0;0;0;gCONVERT TO BINARY
29;30;0;0;0;0;1;
30;4;31;2;0;0;0;
31;91;872;0;0;2;0;SET(MR2)=0:0
32;90;0;0;0;1;0;SET(MR1)=4:0
33;C;0;0;0;0;4;
SHEET;746
PROCR;844;PM TYPE SWITCH,DEAL WITH TYPES 1 &2
NOTES;RADIX;B;
0;85;780;15;0;0;0;SWITCH 2,PM TYPE
1;C;844;7;0;0;0;(1)
2;C;844;7;0;0;0;(2)
3;C;845;0;0;0;0;(3)
4;C;845;0;0;0;0;(4)
5;C;847;0;0;0;0;(5)
6;C;846;0;0;0;0;(6)
7;0;30;5;0;1;0;CHAP NO
8;70;847;0;0;0;0;gEND OF CHAPS
9;2;869;1;0;0;0;
10;70;844;12;0;0;0;gYES
11;72;845;42;0;0;0;gNO ERROR
12;1;869;1;0;0;0;
13;5;31;4;0;2;0;
14;94;844;15;0;2;4;
15;94;844;7;0;1;1;>NO
16;76;847;0;0;0;0;gYES
SHEET;747
PROCR;845;DEAL WITH TYPES 3 & 4
NOTES;RADIX;B;
0;0;30;5;0;1;0;SECN NO
1;70;847;0;0;0;0;gEND OF SECNS
2;73;845;47;0;0;0;gSECN<0
3;12;0;0;0;0;100;
4;72;845;47;0;0;0;gSECN>99
5;;30;5;0;1;0;SECN NO
6;80;821;0;0;0;0;gCONVERT TO BINARY
7;3;31;4;0;2;0;
8;92;0;0;0;3;0;SET (MR3)=SECN NO
9;0;15;0;0;3;0;
10;70;845;47;0;0;0;gNO ERROR
11;0;27;4;0;0;0;COMPILER?
12;70;845;20;0;0;0;NO->
13;95;0;0;0;2;0;
14;3;875;0;1;0;0;WL
15;124;999;24;0;3;0;
16;107;0;0;0;0;0;DOUBLE MR 2
17;0;7;20;2;2;0;CLEO LENGTH
18;91;875;0;0;2;0;RESET
19;76;845;23;0;0;0;
20;34;868;1;0;0;0;BITS 5->19
21;36;15;0;0;3;0;SECN LGTH
22;30;0;0;0;0;1-;
23;70;845;47;0;0;0;LENGTH ZERO
24;5;31;7;0;2;0;
25;34;868;2;0;0;0;BIT 20
26;36;15;0;0;3;0;
27;71;845;33;0;0;0;gYES
28;;18;1000;0;3;0;PROCR START
29;5;31;6;0;2;0;
30;80;836;0;0;0;0;FORM UP CHAP NO
31;30;0;0;0;0;3;
32;76;845;38;0;0;0;g
33;31;0;0;0;0;3-;
34;5;31;5;0;2;0;STORE TA IND
35;0;31;4;0;2;0;SECN NO
36;80;837;0;0;0;0;gFORM UP TA PARAMETER
37;70;845;47;0;0;0;gT A PARAM NOT FOUND
38;4;31;4;0;2;0;
39;94;845;40;0;2;4;
40;94;845;0;0;1;1;>NEXT SECN
41;76;847;0;0;0;0;g
42;10;0;0;0;0;5e5300;*C
43;80;807;0;0;0;0;g
44;70;844;15;0;0;0;g
45;80;808;0;0;0;0;g
46;76;844;15;0;0;0;g
47;10;0;0;0;0;5e7200;*S
48;80;807;0;0;0;0;g
49;70;845;40;0;0;0;g
50;80;808;0;0;0;0;g
51;76;845;40;0;0;0;g
52;10;0;0;0;0;5e6700;*P
53;80;807;0;0;0;0;g
54;70;846;58;0;0;0;
55;31;0;0;0;0;1-;
56;80;808;0;0;0;0;g
57;76;846;58;0;0;0;g
SHEET;748
PROCR;846;DEAL WITH TYPE 6
NOTES;RADIX;B;
0;90;0;0;0;1;0;SET(MR1)=6:0
1;C;0;0;0;0;12;
2;0;30;6;0;1;0;ITEM
3;73;845;52;0;0;0;gREPORT NEG ITEM
4;80;821;0;0;0;0;gCONVERT
5;5;31;6;0;2;0;
6;0;30;5;0;1;0;REF
7;70;847;0;0;0;0;gASSUME END OF DETAILS
8;73;845;52;0;0;0;gREPORT NEG
9;12;0;0;0;0;999;
10;72;845;52;0;0;0;gREPORT >998
11;0;30;5;0;1;0;
12;32;0;0;0;0;2-;
13;71;846;27;0;0;0;gPROCR
14;32;0;0;0;0;2;
15;80;821;0;0;0;0;gCONVERT REF
16;3;31;5;0;2;0;
17;92;0;0;0;3;0;SET(MR3)=BIN SECN
18;;18;1000;0;3;0;PROCR START
19;70;845;52;0;0;0;gNON-EXISTANT SECN
20;1;31;6;0;2;0;ITEM
21;5;31;4;0;2;0;
22;10;0;0;0;0;10000;SET SEC IND
23;4;31;5;0;2;0;
24;10;0;0;0;0;0;
25;80;836;0;0;0;0;gFORM UP CHAP NO
26;76;846;55;0;0;0;g
27;32;0;0;0;0;2;
28;80;821;0;0;0;0;gCONVERT REF
29;5;31;5;0;2;0;
30;0;30;6;0;1;0;ITEM(3-DIGIT REF)
31;12;0;0;0;0;2;
32;73;845;52;0;0;0;gREPORT<2
33;12;0;0;0;0;98;
34;72;845;52;0;0;0;gREPORT>99
35;0;30;5;0;1;0;REF
36;30;0;0;0;0;2;
37;60;0;0;0;0;0;SET DECIMAL
38;1;30;6;0;1;0;ITEM
39;62;0;0;0;0;0;RESET BINARY
40;80;780;0;0;0;0;gUPDATE ADDRESS
41;3;834;0;0;0;0;
42;32;0;0;0;0;2-;
43;5;30;5;0;1;0;NEW REF
44;32;0;0;0;0;2;
45;5;30;6;0;1;0;NEW ITEM
46;;834;0;0;0;0;
47;80;834;0;0;0;0;gFORM UP REL ADD
48;71;846;52;0;0;0;gOK
49;0;822;0;0;0;0;PROCR START
50;70;845;52;0;0;0;gREJECT
51;1;821;0;0;0;0;(BIN ITEM=2)
52;5;31;4;0;2;0;
53;95;0;0;0;5;0;
54;80;835;0;0;0;0;gFORM UP CHAP NO
55;30;0;0;0;0;4;
56;4;31;4;0;2;0;
57;94;846;58;0;2;3;
58;94;846;2;0;1;2;>NEXT TRACE POINT
SHEET;749
PROCR;847;FORM UP M/T BLOCK AND PRINT
NOTES;RADIX;B;
0;96;0;0;0;4;0;DUMP POINT NUMBER
1;3;869;2;0;0;0;
2;11;0;0;0;0;40;CONVERT TO ALPHA
3;1;870;12;1;0;0;DDUMP SP
4;5;8;50;1;0;0;
5;0;870;8;1;0;0;FILES
6;5;8;4;1;0;0;
7;55;31;0;0;0;22;
8;C;8;6;1;0;0;
9;80;816;0;0;0;0;WRITE
10;52;5;2;0;0;0;
11;C;877;0;0;0;0;
12;0;30;1;0;0;0;TEST TYPE 6
13;12;0;0;0;0;6;
14;70;847;18;0;0;0;gYES
15;52;5;18;0;0;0;
16;C;877;14;0;0;0;
17;76;847;29;0;0;0;
18;52;5;18;0;0;0;
19;C;877;32;0;0;0;
20;90;0;0;0;3;0;LEFT ALIGN ITEMS
21;C;0;0;0;0;24;
22;10;0;0;0;0;0;
23;34;5;22;1;3;0;
24;32;0;0;0;0;2;
25;70;847;24;0;0;0;
26;32;0;0;0;0;8;
27;5;5;22;1;3;0;
28;94;847;23;0;3;4;
29;80;817;0;0;0;0;gPRINT
30;82;842;0;0;0;0;g
SHEET;750
PROCR;848;PROCESS AND PRINT T.D. HEADING
NOTES;RADIX;B;
0;81;848;0;0;0;0;
1;52;5;2;0;0;0;EDIT
2;C;878;0;0;0;0;
3;0;872;4;1;0;0;HEAD OF FORM
4;80;817;0;0;0;0;PRINT
5;83;826;2;0;0;2;SET FIEND SWITCH
6;82;848;0;0;0;0;
SHEET;751
PROCR;849;PROCESS TRIAL DATA HEADING S/R (1)
NOTES;RADIX;B;
0;81;849;0;0;0;0;
1;0;16;2;0;0;0;PROG ID
2;5;31;0;2;0;0;
3;5;871;40;1;0;0;CLEAR ERROR W/L
4;0;30;4;0;0;0;RUN NO
5;3;32;167;0;0;0;
6;5;31;6;2;0;0;
7;0;30;7;0;0;0;T D SET NO
8;71;849;15;0;0;0;gNON-ZERO
9;80;867;0;0;0;0;gSTEP'OTHERS'
10;0;871;10;1;0;0;SET ERROR WORD=SET
11;30;0;0;0;0;4-;
12;5;871;40;1;0;0;
13;10;0;0;0;0;9;SET T D SET=9
14;3;30;7;0;0;0;
15;3;31;12;2;0;0;STORE FOR O/P
16;0;30;5;0;0;0;MAX BLOCK SIZE
17;12;0;0;0;0;1001;TEST>1000
18;73;849;24;0;0;0;gNO
19;0;871;30;1;0;0;SET UP ERROR REPORT
20;5;871;40;1;0;0;
21;80;867;0;0;0;0;gSTEP'OTHERS'
22;0;30;5;0;0;0;
23;12;0;0;0;0;1001;
24;11;0;0;0;0;1001;
25;3;32;168;0;0;0;
26;3;31;16;2;0;0;
27;80;821;0;0;0;0;gCONVERT TO BINARY
28;31;0;0;0;0;1;FORM(2N-4)
29;12;0;0;0;0;4;
30;5;31;10;2;0;0;
31;0;30;8;0;0;0;FIXED/VARIABLE IND
32;3;31;18;2;0;0;
33;70;849;39;0;0;0;gFIXED     SET UP IND IN
34;10;0;0;0;0;1;
35;3;30;8;0;0;0;
36;5;31;18;2;0;0;
37;0;871;36;1;0;0;     TD HEADING
38;76;849;40;0;0;0;gVAR
39;0;871;34;1;0;0;
40;5;871;38;1;0;0;
SHEET;752
PROCR;850;PROCESS TRIAL DATA HEADING (2)
NOTES;RADIX;B;
0;0;30;11;0;0;0;TEST TRUE FILE ID ZERO
1;70;850;11;0;0;0;gYES
2;32;0;0;0;0;3-;
3;5;869;0;0;0;0;COPY ALPHA PART TO W/L
4;0;30;3;0;0;0;TEST ALPHA PART OF
5;32;0;0;0;0;3-;RTE IDENTIFIER=
6;2;869;0;0;0;0;STORED ALPHA VALUE
7;70;850;9;0;0;0;gYES
8;80;809;0;0;0;0;gERROR S/R
9;0;30;10;1;0;0;
10;76;850;13;0;0;0;g
11;0;30;2;1;0;0;SET TRUE FILE ID=
12;3;30;10;1;0;0;ROUTE IDENTIFIER
13;30;0;0;0;0;6-;
14;5;31;4;1;0;0;
15;0;30;2;1;0;0;STORE RTE IDENTIFIER
16;30;0;0;0;0;6-;
17;5;31;20;1;0;0;
18;0;24;1;0;0;0;
19;70;850;28;0;0;0;gNO FILES
20;91;24;0;0;1;0;SET(MR1)=2R/0
21;;24;5;0;1;0;B7-20=FILE ID
22;31;0;0;0;0;6-;
23;11;0;0;0;0;4000;
24;30;0;0;0;0;1;
25;2;30;3;0;0;0;
26;70;850;33;0;0;0;gYES
27;94;850;21;0;1;2;
28;10;0;0;0;0;7777;DUMMY FILE IDENTY'XX'
29;3;31;20;1;0;0;ON MAG TAPE
30;30;0;0;0;0;6;
31;5;30;2;1;0;0;AND PRINTER
32;80;809;0;0;0;0;gERROR S/R
33;10;0;0;0;0;3p;BITS 1-6
34;32;0;0;0;0;10-;
35;36;24;5;0;1;0;
36;12;0;0;0;0;7;
37;70;850;43;0;0;0;gYES 7
38;12;0;0;0;0;1;
39;70;850;43;0;0;0;gYES 8
40;12;0;0;0;0;3;
41;70;850;43;0;0;0;gYES 11
42;80;809;0;0;0;0;gERROR S/R
43;95;0;0;0;1;0;FORM UP RTE PARAM
44;31;0;0;0;0;1-;
45;11;0;0;0;0;1;
46;1;869;1;0;0;0;NO OF INITIAL CHAPS
47;1;869;1;0;0;0;
48;5;31;2;2;0;0;
49;0;30;6;0;0;0;SECN NO
50;3;32;169;0;0;0;
51;3;31;14;2;0;0;
52;80;821;0;0;0;0;gCONVERT TO BINARY
53;80;837;0;0;0;0;gFORM UP PARAMETER
54;71;850;56;0;0;0;gT.A.PARAMETER FOUND
55;80;809;0;0;0;0;gERROR S/R
56;30;0;0;0;0;3-;
57;5;31;8;2;0;0;
58;80;818;0;0;0;0;gLINE FEED S/R
59;80;818;0;0;0;0;gLINE FEED S/R
60;54;8;0;0;0;54;
61;0;870;4;1;0;0;CHAPT
62;5;8;4;1;0;0;
63;55;31;0;1;0;22;
64;C;8;6;1;0;0;
65;80;816;0;0;0;0;WRITE
66;54;32;0;0;0;60;CLEAR W/L'S
67;10;0;0;0;0;8;SET BLOCK CTR AT 8
68;5;32;14;0;0;0;
69;90;0;0;0;1;0;SET (MR1) AT 24:0
70;C;0;0;0;0;24;
71;0;30;8;0;0;0;FIXED/VARIABLE IND
72;11;0;0;0;0;1;
73;84;785;0;0;0;0;SET BLOCK LGTH SWITCH
74;82;849;0;0;0;0;
SHEET;753
PROCR;851;OUTPUT M/T BLOCK S/R
NOTES;RADIX;B;
0;81;851;0;0;0;0;
1;85;781;0;0;0;0;TEST THIS IS FIRST WORD OF TD BLOCK
2;C;851;6;0;0;0;>NO
3;C;851;4;0;0;0;>YES
4;83;781;0;0;0;1;SET FIRST WORD SWITCH AT 1
5;76;851;21;0;0;0;
6;94;851;21;0;1;2;>NO    TEST END OF BLOCK
7;90;0;0;0;3;0;
8;C;0;0;0;0;24;
9;90;0;0;0;1;0;
10;C;0;0;0;0;48;
11;0;32;37;0;3;0;
12;5;8;4;2;1;0;
13;0;32;36;0;3;0;
14;5;8;6;2;1;0;
15;94;0;0;0;1;4;
16;94;851;11;0;3;2;
17;80;816;0;0;0;0;gWRITE
18;90;0;0;0;1;0;RESET (MR1)
19;C;0;0;0;0;24;
20;54;32;36;0;0;24;CLEAR W/L'S
21;82;851;0;0;0;0;
SHEET;754
PROCR;852;EDIT NEXT PRINTER TRIAL DATA LINE+BLOCK NUMBER IF REQUIRED
NOTES;RADIX;B;
0;81;852;0;0;0;0;
1;85;849;2;0;0;0;TEST BLOCK TO BE EDITED
2;C;852;19;0;0;0;>NO    
3;C;852;4;0;0;0;>YES
4;52;5;2;0;0;0;EDIT BLOCK NO
5;C;879;0;0;0;0;
6;60;0;0;0;0;0;
7;10;0;0;0;0;1;
8;4;32;14;0;0;0;STEP IT READY FOR NEXT BLOCK
9;62;0;0;0;0;0;
10;83;849;0;0;0;1;SET BLOCK NO SWITCH
11;0;32;14;0;0;0;
12;32;0;0;0;0;4-;
13;70;852;18;0;0;0;gNOT EX PT
14;10;0;0;0;0;2+2+0;>>'
15;5;5;3;0;0;0;
16;32;0;0;0;0;4;
17;5;32;14;0;0;0;CLEAR IND
18;76;852;20;0;0;0;
19;80;819;0;0;0;0;CLEAR ANNEXE START
20;52;5;6;0;0;0;EDIT LINE
21;C;879;6;0;0;0;
22;95;0;0;0;1;0;SET 'EX PT' INDS
23;5;869;12;1;0;0;WL
24;95;0;0;0;2;0;
25;5;908;52;1;0;0;WL
26;90;0;0;0;1;0;SCAN WORD NUMBERS
27;C;0;0;0;0;7;
28;90;0;0;0;2;0;SCAN SEC 5
29;C;0;0;0;0;42;
30;;32;15;0;1;0;
31;72;852;35;0;0;0;gNORMAL
32;35;0;0;0;0;110;
33;10;0;0;0;0;2t0;'->'
34;37;5;7;0;2;0;
35;94;0;0;0;1;1;
36;94;852;30;0;2;6;
37;91;869;12;0;1;0;RESTORE
38;91;908;52;0;2;0;
39;82;852;0;0;0;0;
SHEET;755
PROCR;853;END OF TRIAL DATA BLOCK S/R
NOTES;RADIX;B;
0;81;853;0;0;0;0;
1;80;852;0;0;0;0;gEDIT BLOCK NO IF REQD
2;10;0;0;0;0;2t;SET(MR3)=42/3XMR
3;30;0;0;0;0;5;
4;98;0;0;0;2;0;
5;98;0;0;0;2;0;
6;98;0;0;0;2;0;
7;91;0;0;0;3;0;
8;54;5;6;0;3;6;CLEAR REST OF ANNEXE
9;94;853;8;0;3;6;
10;5;32;139;0;0;0;CLEAR LINE CTR
11;80;817;0;0;0;0;PRINT
12;85;787;2;0;0;0;
13;C;853;20;0;0;0;>NO
14;C;853;15;0;0;0;>YES
15;52;5;6;0;0;0;EDIT LINE
16;C;880;0;0;0;0;
17;80;819;0;0;0;0;CLEAR ANNEXE START
18;80;817;0;0;0;0;PRINT
19;54;32;22;0;0;14;
20;83;786;2;0;0;3;
21;82;853;0;0;0;0;
SHEET;756
PROCR;854;PROCESS DUMP POINT FROM MT
NOTES;RADIX;B;
0;00;7;6;2;0;0;I/C SERIAL
1;05;30;0;0;0;0;
2;35;0;0;0;0;10000;
3;36;7;10;2;0;0;PM TYPE
4;30;0;0;0;0;4-;
5;05;30;1;0;0;0;
6;35;0;0;0;0;11000;N1
7;36;7;12;2;0;0;
8;30;0;0;0;0;3-;
9;80;822;0;0;0;0;gCONVERT TO DEC
10;05;30;2;0;0;0;
11;35;0;0;0;0;11;N2
12;36;7;12;2;0;0;
13;80;822;0;0;0;0;gCONVERT TO DEC
14;05;30;3;0;0;0;
15;35;0;0;0;0;110;N3
16;36;7;10;2;0;0;
17;30;0;0;0;0;1-;
18;80;822;0;0;0;0;gCONVERT TO DEC
19;05;30;4;0;0;0;
SHEET;757
PROCR;855;-2
NOTES;RADIX;B;
0;00;30;1;0;0;0;
1;12;0;0;0;0;6;
2;71;855;17;0;0;0;gNO
3;90;0;0;0;1;0;SET (MR1)=6:0
4;C;0;0;0;0;12;
5;91;872;0;0;2;0;SET (MR2)=0:0
6;10;0;0;0;0;0;
7;35;0;0;0;0;1111;
8;36;7;16;2;2;0;REF
9;80;822;0;0;0;0;gCONVERT TO DEC
10;5;30;5;0;1;0;
11;0;7;18;2;2;0;ITEM
12;80;822;0;0;0;0;gCONVERT TO DEC
13;5;30;6;0;1;0;
14;94;855;15;0;2;6;
15;94;855;6;0;1;2;>NEXT ONE
16;76;855;34;0;0;0;g
17;0;30;1;0;0;0;;TEST TYPE 5
18;12;0;0;0;0;5;
19;71;855;24;0;0;0;gNO
20;5;30;5;0;0;0;CLEAR W/L'S
21;5;30;6;1;0;0;
22;5;30;8;1;0;0;
23;76;855;34;0;0;0;g
24;90;0;0;0;1;0;SET (MR1)=4:0
25;C;0;0;0;0;4;
26;91;872;0;0;2;0;SET (MR2)=0:0
27;10;0;0;0;0;0;
28;35;0;0;0;0;111;
29;36;7;14;2;2;0;CHAP OR SECN NO
30;80;822;0;0;0;0;gCONVERT TO DEC
31;5;30;5;0;1;0;
32;94;855;33;0;2;8;
33;94;855;27;0;1;1;>NEXT ONE
34;80;842;0;0;0;0;gPROCESS DUMPS POINT
35;76;789;20;0;0;0;
SHEET;758
PROCR;856;PRINT FILE UNALTERED S/R
NOTES;RADIX;B;
0;81;856;0;0;0;0;
1;0;27;0;0;0;0;;TEST ISSUE 6 OR
2;30;0;0;0;0;4-;;EARLIER
3;12;0;0;0;0;7;
4;72;856;53;0;0;0;gNO
5;0;7;10;1;0;0;FILE ID
6;5;30;10;1;0;0;
7;0;7;12;2;0;0;RUN NO
8;5;30;4;0;0;0;
9;5;30;7;0;0;0;SET NO
10;5;30;8;0;0;0;IND
11;0;7;16;2;0;0;TA LGTH
12;31;0;0;0;0;1-;
13;80;822;0;0;0;0;gTO DEC
14;5;30;5;0;0;0;
15;62;0;0;0;0;0;
16;0;7;14;2;0;0;P RTE PARAM
17;30;0;0;0;0;3;;SEARCH LIST FOR
18;5;869;0;0;0;0;W/L;SECN ASSOCIATED
19;91;24;2;0;3;0;2(R+T):2R;WITH THIS P RTE
20;94;856;22;0;3;0;/////
21;76;856;28;0;0;0;gNO TX AREAS
22;35;0;0;0;0;11000;
23;36;24;4;0;3;0;
24;2;869;0;0;0;0;
25;70;856;29;0;0;0;gSECN FOUND
26;10;0;0;0;0;0;
27;94;856;22;0;3;2;
28;80;809;0;0;0;0;NOT FOUND ERROR S/R
29;35;0;0;0;0;111;
30;36;24;4;0;3;0;SECN NO
31;80;821;0;0;0;0;gTO BIN
32;5;30;6;0;0;0;
33;0;7;8;2;0;0;RTE PARAM
34;2;869;1;0;0;0;NO OF CHAPS
35;2;869;1;0;0;0;
36;12;0;0;0;0;1;
37;31;0;0;0;0;1;
38;91;0;0;0;3;0;
39;;24;5;0;3;0;FILE ID BITS 7-20
40;31;0;0;0;0;6-;
41;11;0;0;0;0;4000;RESTORE TOP CONTROL
42;30;0;0;0;0;6;
43;5;30;2;1;0;0;TRUE FILE ID OF TRIAL DATA SET
44;80;849;0;0;0;0;gPROCESS T D HEADING
45;80;848;0;0;0;0;gPRINT T D HEADING
46;10;0;0;0;0;8;SET BLOCK CTR 2 AT 8
47;5;32;138;0;0;0;
48;90;0;0;0;8;22;SET(MR8)=24:22
49;C;0;0;0;0;24;
50;80;861;0;0;0;0;gREAD AND STORE BLOCK
51;80;864;0;0;0;0;gPRINT T D SET
52;82;856;0;0;0;0;g
53;80;794;0;0;0;0;gPROCESS T D        HEADING
54;;23;46;0;0;0; 'PRINTOUT'INDICATOR
55;71;856;45;0;0;0;gPRINT ALL B/FWD DATA
56;0;871;40;1;0;0;ERROR WORD
57;71;856;45;0;0;0;gHEADING REPORTED;PRINT WHOLE SET
58;0;7;26;1;0;0;STORE FILE ID
59;5;871;42;0;0;0;
60;52;5;2;0;0;0;EDIT 'FILE UNALTERED' LINE
61;C;881;0;0;0;0;
62;80;817;0;0;0;0;gPRINT
63;80;857;0;0;0;0;gREAD,TEST CHAPT,PREND OR E
64;70;856;67;0;0;0;gYES
65;80;815;0;0;0;0;gWRITE A2
66;76;856;63;0;0;0;g
67;83;826;2;0;0;1;SET FIEND SWITCH AT 1
68;82;856;0;0;0;0;
SHEET;759
PROCR;857;READ A1,TEST CHAPT PREND OR E
NOTES;RADIX;B;
0;81;857;0;0;0;0;
1;80;810;0;0;0;0;gREAD A1
2;0;7;4;1;0;0;
3;2;870;6;1;0;0;
4;70;857;10;0;0;0;gYES
5;1;870;6;1;0;0;
6;2;870;4;1;0;0;
7;70;857;10;0;0;0;gYES
8;1;870;4;1;0;0;
9;12;0;0;0;0;55;
10;82;857;0;0;0;0;
SHEET;760
PROCR;858;FORM TD WORD FOR PRINTING S/R
NOTES;RADIX;B;
0;81;858;0;0;0;0;
1;00;32;0;1;2;0;TEST ERROR WORD
2;02;872;14;1;0;0;
3;71;858;8;0;0;0;gNO
4;00;872;14;1;0;0;
5;05;32;22;1;2;0;
6;83;787;2;0;0;2;SET -LINE SWITCH AT 2
7;76;858;69;0;0;0;
8;10;0;0;0;0;3p;SET (B)=63
9;32;0;0;0;0;10-;
10;36;32;0;1;2;0;TEST WORD CONTAINS
11;05;32;122;1;0;0;W/L
12;36;872;6;1;0;0;
13;02;32;122;1;0;0;
14;70;858;60;0;0;0;gYES
15;10;0;0;0;0;0;
16;36;872;8;1;0;0;TEST WORD CONTAINS
17;02;32;122;1;0;0;
18;70;858;67;0;0;0;gYES
19;32;0;0;0;0;2;
20;10;0;0;0;0;0;TEST END OF WORD
21;75;858;10;0;0;0;gNO
22;85;786;2;0;0;0;TEST B/E FOUND
23;C;858;69;0;0;0;>NO
24;C;858;26;0;0;0;>YES
25;C;803;36;0;0;0;GHASTLY MISTAKE
26;;872;2;1;0;0;SAFETY
27;5;32;36;1;1;0;
28;0;32;0;1;2;0;
29;12;0;0;0;0;5200000052;
30;70;858;35;0;0;0;gYES
31;35;0;0;0;0;110000;ERROR REPORT B
32;10;0;0;0;0;525963;BIL
33;37;871;40;1;0;0;
34;80;867;0;0;0;0;gADD ONE TO OTHERS CTR
35;85;785;0;0;0;0;;TEST BLOCK AND ITEM
36;C;858;85;0;0;0;>NO;LGHS BEING CHECKED
37;C;858;38;0;0;0;>YES
38;96;0;0;0;2;0;;FORM UP WORD NO
39;31;0;0;0;0;1-;;OF B/E WORD
40;92;0;0;0;3;0;
41;10;0;0;0;0;0;
42;35;0;0;0;0;1111;
43;36;32;15;0;3;0;
44;02;32;166;0;0;0;;WORD CORRECT
45;70;858;50;0;0;0;gYES
46;35;0;0;0;0;11;ERROR REPORT L
47;10;0;0;0;0;525963;
48;37;871;40;1;0;0;
49;80;867;0;0;0;0;gADD ONE TO OTHERS CTR
50;10;0;0;0;0;0;
51;35;0;0;0;0;1111;
52;36;32;15;0;3;0;
53;02;32;165;0;0;0;;LGTHS CORRECT
54;70;858;72;0;0;0;gOK
55;35;0;0;0;0;1100;ERROR REPORT 1
56;10;0;0;0;0;525963;
57;37;871;40;1;0;0;
58;80;867;0;0;0;0;gADD ONE TO 'OTHERS'CTR
59;76;858;72;0;0;0;
60;83;786;2;0;0;2;SET B/E FOUND SWITCH AT 2
61;0;872;10;1;0;0;REPLACE B/E BY B
62;37;32;0;1;2;0;
63;0;872;14;1;0;0;SET UP *
64;37;32;22;1;2;0;
65;83;787;2;0;0;2;SET*LINE SWITCH AT 2
66;76;858;19;0;0;0;g
67;0;872;12;1;0;0;REPLACE L/E BY L
68;76;858;62;0;0;0;g
69;85;785;0;0;0;0;CHECK BLOCK AND ITEM LENGTH'
70;C;858;85;0;0;0;>NO
71;C;858;72;0;0;0;>YES
72;96;0;0;0;2;0;
73;31;0;0;0;0;1-;
74;5;839;0;0;0;0;WL
75;35;0;0;0;0;1111;
76;124;839;0;0;1;0;
77;36;32;15;0;0;0;PRINTER WORD NUMBER
78;2;32;165;0;0;0;POSITION OF NEXT ITEM LENGTH WORD
79;71;858;85;0;0;0;gNOT ITEM LENGTH POSITION
80;;32;36;2;1;0;ITEM LENGTH
81;80;822;0;0;0;0;gDEC
82;60;0;0;0;0;0;
83;4;32;165;0;0;0;EXPECTED POSITION NEXT ITEM LENGTH WORD
84;62;0;0;0;0;0;
85;80;851;0;0;0;0;gWRITE O/P IF FULL
86;94;859;20;0;2;2;PRINTER LINE N OT FULL
87;90;0;0;0;3;0;TEST ZERO ANNEX
88;C;0;0;0;0;14;
89;;32;0;1;3;0;
90;71;859;0;0;0;0;gSOMETHING TO PRINT
91;94;858;89;0;3;2;
92;76;859;14;0;0;0;gNOTHING TO PRINT
SHEET;761
PROCR;859;PRINT LINE OF TRIAL DATA
0;80;852;0;0;0;0;gEDIT BLOCK NUMBER
1;80;817;0;0;0;0;gPRINT
2;85;787;0;0;0;0;LAST LINE CONTAINED FUNNIES'
3;C;859;14;0;0;0;>NO
4;C;859;5;0;0;0;>YES
5;80;819;0;0;0;0;gCLEAR FRONT OF ANNEX
6;52;5;6;0;0;0;EDIT WEIRD LINE
7;C;880;0;0;0;0;
8;80;817;0;0;0;0;gPRINT
9;54;32;22;1;0;14;
10;85;786;0;0;0;0;BEW FOUND IN MT TRIAL DATA'
11;C;859;14;0;0;0;>NO
12;C;859;19;0;0;0;>YES
13;C;803;36;0;0;0;>GHASTLY MISTAKE
14;90;0;0;0;2;0;
15;C;0;0;0;0;14;
16;80;839;0;0;0;0;gSTEP MT WORD NUMBERS
17;83;787;0;0;0;1;CLEAR'FUNNY LINE'IND
18;82;858;0;0;0;0;
19;83;786;0;0;0;3;SET'BEW FOUND AND PRINTED'
20;82;858;0;0;0;0;
SHEET;762
PROCR;860;PROCESS UNAMENDED TRIAL DATA WORD EX MT
NOTES;RADIX;B;
0;81;860;0;0;0;0;
1;0;32;140;1;8;0;NEXT I/P MT WORD
2;3;32;36;1;1;0;STORE FOR MT O/P
3;5;32;0;1;2;0;STORE FOR PRINTING
4;85;781;0;0;0;0;TEST 1ST WORD OF BLOCK
5;C;860;20;0;0;0;>NO
6;C;860;7;0;0;0;>YES
7;85;785;0;0;0;0;TEST BLOCK AND ITEM LGTHS TO BE CHECKED
8;C;860;15;0;0;0;>NO
9;C;860;10;0;0;0;>YES
10;10;0;0;0;0;6;SET ITEM LGTH POSN=6
11;3;32;165;0;0;0;
12;1;32;0;2;2;0;FORM AND STORE POSN OF B/E WORD
13;80;822;0;0;0;0;gCONVERT TO DEC
14;5;32;166;0;0;0;
15;83;781;0;0;0;1;SET SWITCH AT 1
16;0;32;0;1;2;0;(DON'T PRINT FIRST WORD IN'WORD 2'POSITION
17;5;32;2;1;2;0;NEXT POSN
18;5;32;0;1;2;0;
19;94;860;20;0;2;2;STEP(MR2)
20;80;858;0;0;0;0;gPROCESS WORD
21;80;861;0;0;0;0;gADDRESS NEXT I/P MT WORD
22;82;860;0;0;0;0;gLEAVE S/R
SHEET;763
PROCR;861;ADDRESS NEXT I/P TRIAL DATA WORD EX MT
NOTES;RADIX;B;
0;81;861;0;0;0;0;
1;;32;140;1;8;0;LAST MT WORD
2;2;872;2;1;0;0;BEW
3;71;861;8;0;0;0;gNO
4;60;0;0;0;0;0;
5;10;0;0;0;0;1;
6;4;32;138;0;0;0;
7;62;0;0;0;0;0;STEP I/P BLOCK CTR
8;94;861;25;0;8;2;
9;80;810;0;0;0;0;gREAD A1
10;95;0;0;0;1;0;PRESERVE
11;5;875;0;1;0;0;
12;90;0;0;0;1;0;COPY NEXT I/P BLOCK
13;C;0;0;0;0;48;
14;90;0;0;0;3;0;
15;C;0;0;0;0;24;
16;0;7;4;2;1;0;
17;30;0;0;0;0;5;
18;1;7;6;2;1;0;
19;5;32;140;1;3;0;
20;94;0;0;0;1;4;
21;94;861;16;0;3;2;
22;91;875;0;0;1;0;RESTORE MR1
23;90;0;0;0;8;0;RESET (MR8)
24;C;0;0;0;0;24;
25;82;861;0;0;0;0;
SHEET;764
PROCR;862;READ TO END OF BLOCK S/R
NOTES;RADIX;B;
0;81;862;0;0;0;0;
1;00;32;140;1;8;0;;TEST B/E WORD
2;02;872;2;1;0;0;
3;70;862;6;0;0;0;gYES LEAVE S/R
4;80;861;0;0;0;0;gSTEP MR8 S/R
5;76;862;1;0;0;0;g
6;80;861;0;0;0;0;gADDRESS NEXT I/P MT WORD S/R
7;82;862;0;0;0;0;g
SHEET;765
PROCR;863;PROCESS TO END OF TD BLOCK S/R
NOTES;RADIX;B;
0;81;863;0;0;0;0;
1;85;786;2;0;0;0;B/E SWITCH
2;C;863;5;0;0;0;>NO
3;C;863;7;0;0;0;>YES
4;C;863;8;0;0;0;>YES
5;80;860;0;0;0;0;gPROCESS WORD
6;76;863;1;0;0;0;g
7;80;853;0;0;0;0;gEND OF TRIAL DATA BLOCK S/R
8;82;863;0;0;0;0;
SHEET;766
PROCR;864;WRITE AND PRINT TO FIEND S/R
NOTES;RADIX;B;
0;81;864;0;0;0;0;
1;00;7;4;1;0;0;;TEST PREND OR
2;02;870;6;1;0;0;;E BLOCK IN ANNEXE
3;70;864;20;0;0;0;gYES
4;01;870;6;1;0;0;
5;12;0;0;0;0;55;
6;70;864;20;0;0;0;gYES
7;11;0;0;0;0;55;;TEST CHAPT
8;02;870;4;1;0;0;
9;70;864;20;0;0;0;gYES
10;96;0;0;0;8;0;;TEST FIEND REACHED
11;98;0;0;0;8;0;
12;92;0;0;0;2;0;
13;00;7;4;1;2;0;
14;02;870;2;1;0;0;
15;70;864;19;0;0;0;gYES
16;80;838;0;0;0;0;gRESET WORD NOS,MR2 AND SWITCHES
17;80;863;0;0;0;0;gPROCESS TO END OF T.D.BLOCK
18;76;864;10;0;0;0;
19;80;810;0;0;0;0;READ A1
20;85;826;2;0;0;0;FIEND SWITCH
21;C;864;51;0;0;0;
22;C;864;23;0;0;0;
23;90;0;0;0;12;0;
24;C;0;0;0;0;24;
25;90;0;0;0;3;0;
26;C;0;0;0;0;48;
27;00;32;37;0;12;0;
28;05;8;4;2;3;0;
29;00;32;36;0;12;0;
30;05;8;6;2;3;0;
31;94;0;0;0;3;4;
32;94;864;27;0;12;2;
33;96;0;0;0;1;0;
34;98;0;0;0;1;0;
35;92;0;0;0;1;0;
36;00;870;2;1;0;0;FIEND
37;05;8;4;1;1;0;
38;80;816;0;0;0;0;WRITE
39;52;5;2;0;0;0;
40;C;879;0;0;0;0;EDIT BLOCK NUMBER
41;10;0;0;0;0;5659655972;FINIS'
42;5;5;8;1;0;0;
43;;27;9;0;0;0;
44;70;864;47;0;0;0;gYES
45;54;5;10;0;0;40;CLEAR REST OF LINE
46;76;864;49;0;0;0;gPRINT
47;0;872;2;1;0;0;BEW
48;5;5;10;1;0;0;
49;80;817;0;0;0;0;gPRINT
50;83;826;2;0;0;1;RESET FIEND SWITCH
51;82;864;0;0;0;0;
SHEET;767
PROCR;865;ADD ONE TO P/T OMITTED COUNTER
0;81;865;0;0;0;0;
1;10;0;0;0;0;1;
2;60;0;0;0;0;0;
3;04;869;3;0;0;0;
4;62;0;0;0;0;0;
5;82;865;0;0;0;0;
SHEET;768
PROCR;866;ADD ONE TO DISASTROUS COUNTER
0;81;866;0;0;0;0;
1;10;0;0;0;0;1;
2;60;0;0;0;0;0;
3;04;869;4;0;0;0;
4;62;0;0;0;0;0;
5;82;866;0;0;0;0;
SHEET;769
PROCR;867;ADD ONE TO OTHERS COUNTER
0;81;867;0;0;0;0;
1;10;0;0;0;0;1;
2;60;0;0;0;0;0;
3;04;869;5;0;0;0;
4;62;0;0;0;0;0;
5;82;867;0;0;0;0;
SHEET;770
CONST;868;0;
0;(D)ppppp;
1;3ppp0;BITS 5-18
2;80000;BIT 20
3;123.:;PRINTING
4;3pp;BITS 1-10
SHEET;771
CONST;869;0;
0;(D)0;GENERAL W/L
1;0;NO OF CHAPS INITIALLY
2;0;W/L FOR PRINTING
3;0;P/T OMITTED
4;0;DISASTROUS
5;0;OTHERS
6;;ACTUAL SET NUMBER IN Q1
7;;
8;;FILE
9;;
10;;SET NUMBER
11;;
12;;WL FOR R-ALIGN SR
13;;
SHEET;772
CONST;870;1;ALPHA CONSTANTS
0;(A)TRAMD;
2;FIEND;
4;CHAPT;
6;PREND;
8;(A)FILES;
10;(A)DUMPS;
12;(A)DUMP ;
14;PROG ;
16;IND  ;
SHEET;773
CONST;871;1;PRINTING CONSTANTS
0;(A)ERIAL;
2;TYPE;
4;CHAPS;
6;SECNS;
8;POINT;
10;SETOR;
12;BLOCK;
14;LGTH;
16;(A)RUN(D)7t7e;
18;UNALT;
20;ERED ;
22;RAMME;
24;TRIAL;
26;DATA ;
28;*NAND;
30;  MBS;
32;ORDER;
34;= FIX;
36;= VAR;
38;;PRINTER W/L
40;;ERROR W/L
42;;ERROR W/L
44;(D)5:677173  ;?P/T
SHEET;774
CONST;872;1;DECIMAL CONSTANTS
0;(D)0;
2;7.0000007.;B/E WORD
4;0000000800;HEAD OF FORM FUNCTION WD
6;7.7.7.7.7.;BLOCK ENDS
8;5.5.5.5.5.;LINE ENDS
10;5252525252;B'S
12;6363636363;L'S
14;5e5e5e5e5e;ASTERISKS
16;5p5p5p5p5p;SQUARES
18;5:5:5:5:5:;QUESTION MARKS
SHEET;775
TABLE;873;4;VARIOUS UNPACK TABLES
NOTES;;;
0;30;0;0;0;2;0;0;0;0;0;0;0;0;TRAMD
2;30;2;0;0;0;1;0;0;0;0;0;0;1;SUITE JOB SERIAL
4;30;0;0;0;2;0;0;0;0;0;0;0;0;FILES
6;30;2;0;0;2;0;0;0;0;0;0;0;0;ROUTE IDENTIFIER
8;30;10;0;0;2;0;0;0;0;0;0;0;0;FILE ID
10;30;4;0;0;0;1;0;0;0;0;0;0;1;RUN NO , BLOCK SIZE, SECN, SET,IND
12;869;0;0;0;0;0;0;0;0;0;0;0;0;LINE SERIAL
14;30;0;0;0;0;1;0;0;0;0;0;0;1;P M POINT
16;833;0;0;0;2;0;0;0;0;0;0;0;0;FILEA'
18;833;0;0;0;2;0;0;0;0;0;0;0;0;FILE
20;833;2;0;0;1;0;0;0;0;0;0;0;0;SET
22;833;4;0;0;2;0;0;0;0;0;0;0;0;BLOCK (+LETTER ?)
24;833;6;0;0;2;0;0;0;0;0;0;0;0;FIRST WORD/LAST BLOCK (+LETTER ?)
26;833;8;0;0;1;0;0;0;0;0;0;0;1;LAST WORD
SHEET;776
TABLE;874;3;UNPACK TABLES FOR CARDS
NOTES;;;
0;30;0;0;0;2;0;5;0;0;0;0;0;0;TRAMD
2;30;2;0;0;0;0;3;0;0;0;0;0;0;SUITE
4;30;3;0;0;0;0;2;0;0;0;0;0;0;JOB
6;30;4;0;0;0;0;5;0;0;0;0;0;1;SERIAL
8;30;0;0;0;0;0;6;0;0;0;0;0;0;/////LINE SERIAL
10;30;0;0;0;0;0;5;0;0;0;0;0;0;I/O SERIAL
12;30;1;0;0;0;0;1;0;0;0;0;0;0;TYPE
14;30;2;0;0;0;0;3;0;0;0;0;0;0;N1
16;30;3;0;0;0;0;3;0;0;0;0;0;0;N2
18;30;4;0;0;0;0;3;0;0;0;0;0;0;N3
20;30;5;0;0;0;0;4;0;0;0;0;0;0;DETAILS
22;30;6;0;0;0;0;4;0;0;0;0;0;0;
24;30;7;0;0;0;0;4;0;0;0;0;0;0;
26;30;8;0;0;0;0;4;0;0;0;0;0;0;
28;30;9;0;0;0;0;4;0;0;0;0;0;0;
30;30;10;0;0;0;0;4;0;0;0;0;0;0;
32;30;11;0;0;0;0;4;0;0;0;0;0;0;
34;30;12;0;0;0;0;4;0;0;0;0;0;0;
36;30;13;0;0;0;0;4;0;0;0;0;0;0;
38;30;14;0;0;0;0;4;0;0;0;0;0;0;
40;30;15;0;0;0;0;4;0;0;0;0;0;0;
42;30;16;0;0;0;0;4;0;0;0;0;0;0;
44;30;17;0;0;0;0;4;0;0;0;0;0;1;
46;30;0;0;0;2;0;5;0;0;0;0;0;0;FILES
48;30;2;0;0;2;0;2;0;0;0;0;0;0;RTE IDENT
50;30;10;0;0;2;0;2;0;0;0;0;0;0;FILE ID
52;30;4;0;0;0;0;4;0;0;0;0;0;0;RUN NO
54;30;5;0;0;0;0;4;0;0;0;0;0;0;BLOCK LGTH
56;30;6;0;0;0;0;2;0;0;0;0;0;0;SECN NO
58;30;7;0;0;0;0;1;0;0;0;0;0;0;SET NO
60;30;8;0;0;0;0;1;0;0;0;0;0;1;IND
62;833;0;0;0;2;0;5;0;0;0;0;0;0;FILEA'
64;833;0;0;0;2;0;2;0;0;0;0;0;0;FILE ID
66;833;2;0;0;1;0;1;0;0;0;0;0;0;SET
68;833;4;0;0;2;0;5;0;0;0;0;0;0;
70;833;6;0;0;2;0;5;0;0;0;0;0;0;
72;833;8;0;0;1;0;5;0;0;0;0;0;1;
SHEET;777
TABLE;875;1;PRINTER HEADING
NOTES;;;
0;870;14;0;0;2;0;4;0;5;0;0;0;0;PROG'
2;871;22;0;0;2;0;5;0;0;0;0;0;0;RAMME
4;16;2;0;0;0;0;5;0;1;0;0;0;0;PROG ID
6;870;8;0;0;2;0;1;4;2;0;0;0;0;2 SP S
8;871;0;0;0;2;0;5;0;0;0;0;0;0;SERIAL
10;16;3;0;0;0;0;5;0;1;4;0;0;0;PROG SERIAL
12;871;24;0;0;2;0;5;0;2;0;0;0;0;2 SP TRIAL
14;871;26;0;0;2;0;4;0;1;0;0;0;0;SP DATA
16;871;28;0;0;2;0;3;2;1;0;0;0;0;SP AND
18;870;10;0;0;2;0;5;0;1;0;0;0;0;SP DUMPS
20;871;8;0;0;2;0;5;0;1;0;0;0;0;SP POINT
22;870;8;0;0;2;0;1;4;0;0;0;0;0;S
24;872;2;0;0;2;0;1;1;1;0;0;0;1;
SHEET;778
TABLE;876;1;PM POINT HEADING LINE
NOTES;;;
0;871;6;0;0;2;0;1;0;13;0;0;0;0;13 SP S
2;871;0;0;0;2;0;5;0;0;0;0;0;0;ERIAL
4;871;2;0;0;2;0;4;1;2;0;0;0;0;2SP TYPE
6;871;6;0;0;2;0;1;3;2;0;0;0;0;2SPN
8;868;3;0;0;0;0;1;0;0;0;0;0;0;1
10;871;6;0;0;2;0;1;3;3;0;0;0;0;3 SP N
12;868;3;0;0;0;0;1;1;0;0;0;0;0;2
14;871;6;0;0;2;0;1;3;3;0;0;0;0;3 SP N
16;868;3;0;0;0;0;1;2;0;0;0;0;0;3
18;871;4;0;0;2;0;5;0;5;0;0;0;0;5 SP CHAPS
20;871;6;0;0;2;0;5;0;1;0;0;0;0;SP SECNS
22;871;10;0;0;2;0;2;3;1;0;0;0;0;SP OR
24;871;8;0;0;2;0;5;0;1;0;0;0;0;SP POINT
26;871;6;0;0;2;0;1;0;0;0;0;0;0;S
28;872;2;0;0;2;0;1;1;4;0;0;0;1;B/E
SHEET;779
TABLE;877;1;PRINT PM POINT LINE
NOTES;;;
0;870;10;0;0;2;0;4;0;5;0;0;0;0;DUMP
2;869;2;0;0;0;0;1;4;0;0;0;0;0;DUMP NO
4;30;0;0;0;0;0;5;0;3;0;0;0;0;3 SP R/C SERIAL
6;30;1;0;0;0;0;2;3;4;1;2;0;0;4SP TYPE
8;30;2;0;0;0;0;3;2;1;2;2;0;0;1SP TYPE*****
10;30;3;0;0;0;0;3;2;1;2;2;0;0;1SP N2
12;30;4;0;0;0;0;3;2;1;2;2;0;1;1SP N3
14;30;5;0;0;0;0;3;2;6;3;2;0;0;IST CHAP OR SECN
16;30;6;0;0;0;0;3;2;6;3;2;0;0;2ND CHAP OR SECN
18;30;7;0;0;0;0;3;2;6;3;2;0;0;3RD CHAP OR SECN
20;30;8;0;0;0;0;3;2;6;3;2;0;0;4TH CHAP OR SECN
22;872;0;0;0;1;0;10;0;0;10;0;0;0;10 SP
24;871;38;0;0;2;0;5;0;15;0;0;0;0;14 SP ERROR REPORT
26;871;40;0;0;2;0;5;0;0;0;0;0;0;15 SP ERROR REPORT
28;871;42;0;0;2;0;5;0;0;0;0;0;0;MORE
30;872;2;0;0;2;0;5;0;0;0;0;0;1;
32;30;5;0;0;0;0;3;2;6;2;0;0;0;6SP FIRST REF
34;868;3;0;0;0;0;1;4;0;0;0;0;0;:
36;30;6;0;0;0;0;4;1;0;3;2;0;0;1ST ITEM
38;30;7;0;0;0;0;3;2;1;2;0;0;0;1SP 2ND REF
40;868;3;0;0;0;0;1;4;0;0;0;0;0;:
42;30;8;0;0;0;0;4;1;0;3;2;0;0;2ND ITEM
44;30;9;0;0;0;0;3;2;1;2;0;0;0;1SP 3RD REF
46;868;3;0;0;0;0;1;4;0;0;0;0;0;:
48;30;10;0;0;0;0;4;1;0;3;2;0;0;3RD ITEM
50;30;11;0;0;0;0;3;2;1;2;0;0;0;1SP 4TH REF
52;868;3;0;0;0;0;1;4;0;0;0;0;0;:
54;30;12;0;0;0;0;4;1;0;3;2;0;0;4TH ITEM
56;30;13;0;0;0;0;3;2;1;2;0;0;0;1SP 5TH REF
58;868;3;0;0;0;0;1;4;0;0;0;0;0;:
60;30;14;0;0;0;0;4;1;0;3;2;0;0;5TH ITEM
62;30;15;0;0;0;0;3;2;1;2;0;0;0;1SP 6TH REF
64;868;3;0;0;0;0;1;4;0;0;0;0;0;:
66;30;16;0;0;0;0;4;1;0;3;2;0;0;6TH ITEM
68;871;38;0;0;2;0;5;0;0;0;0;0;0;ERROR REPORTS
70;871;40;0;0;2;0;5;0;0;0;0;0;0;
72;871;42;0;0;2;0;5;0;0;0;0;0;0;
74;872;2;0;0;2;0;5;0;0;0;0;0;1;8/E
SHEET;780
TABLE;878;1;TRIAL DATA HEADING LINE
NOTES;;;
0;870;8;0;0;2;0;4;0;5;0;0;0;0;FILE
2;30;2;0;0;2;0;2;0;1;0;0;0;0;SP FILE ID
4;871;16;0;0;2;0;1;3;1;0;0;0;0;SP (
6;30;10;0;0;2;0;2;0;0;0;0;0;0;OTHER FILE ID
8;871;16;0;0;2;0;1;4;0;0;0;0;0;)
10;871;16;0;0;2;0;3;0;2;0;0;0;0;ZSP RUN
12;32;167;0;0;0;0;4;1;1;3;0;0;0;SP RUN NO
14;871;12;0;0;2;0;5;0;2;0;0;0;0;2SP BLOCK
16;871;14;0;0;2;0;4;1;1;0;0;0;0;SP LGTH
18;32;168;0;0;0;0;4;1;1;3;0;0;0;SP LENGTH
20;871;6;0;0;2;0;4;0;2;0;0;0;0;2SP SECN
22;32;169;0;0;0;0;2;3;1;1;0;0;0;
24;871;10;0;0;2;0;3;0;2;0;0;0;0;2SP SET
26;30;7;0;0;0;0;2;3;1;1;0;0;0;
28;870;16;0;0;2;0;3;0;2;0;0;0;0;'IND'
30;30;8;0;0;0;0;1;4;1;0;0;0;0;
32;871;38;0;0;2;0;5;0;1;0;0;0;0;SP IND
34;872;0;0;0;1;0;10;0;15;10;0;0;0;25 SPACES
36;871;40;0;0;2;0;5;0;10;0;0;0;0;10 SP ERROR REPORT
38;872;2;0;0;2;0;1;1;0;0;0;0;1;
SHEET;781
TABLE;879;1;EDIT LINE OF TRIAL DATA
NOTES;;;
0;868;3;0;0;0;0;1;3;3;0;0;0;0;3SP.
2;32;14;0;0;0;0;4;1;1;3;0;0;0;BLOCK NO
4;868;3;0;0;0;0;1;3;0;0;0;0;1;.
6;32;15;0;0;0;0;4;1;2;3;0;0;0;2 SP WORD NO
8;868;3;0;0;0;0;1;3;2;0;0;0;0;2SP.
10;32;0;0;0;2;0;5;0;0;0;0;0;0;1ST WORD
12;868;3;0;0;0;0;1;3;0;0;0;0;0;.
14;32;16;0;0;0;0;4;1;2;3;0;0;0;
16;868;3;0;0;0;0;1;3;2;0;0;0;0;
18;32;2;0;0;2;0;5;0;0;0;0;0;0;
20;868;3;0;0;0;0;1;3;0;0;0;0;0;
22;32;17;0;0;0;0;4;1;2;3;0;0;0;
24;868;3;0;0;0;0;1;3;2;0;0;0;0;
26;32;4;0;0;2;0;5;0;0;0;0;0;0;
28;868;3;0;0;0;0;1;3;0;0;0;0;0;
30;32;18;0;0;0;0;4;1;2;3;0;0;0;
32;868;3;0;0;0;0;1;3;2;0;0;0;0;
34;32;6;0;0;2;0;5;0;0;0;0;0;0;
36;868;3;0;0;0;0;1;3;0;0;0;0;0;
38;32;19;0;0;0;0;4;1;2;3;0;0;0;
40;868;3;0;0;0;0;1;3;2;0;0;0;0;
42;32;8;0;0;2;0;5;0;0;0;0;0;0;
44;868;3;0;0;0;0;1;3;0;0;0;0;0;
46;32;20;0;0;0;0;4;1;2;3;0;0;0;
48;868;3;0;0;0;0;1;3;2;0;0;0;0;
50;32;10;0;0;2;0;5;0;0;0;0;0;0;
52;868;3;0;0;0;0;1;3;0;0;0;0;0;
54;32;21;0;0;0;0;4;1;2;3;0;0;0;
56;868;3;0;0;0;0;1;3;2;0;0;0;0;
58;32;12;0;0;2;0;5;0;0;0;0;0;0;
60;868;3;0;0;0;0;1;3;0;0;0;0;0;
62;871;40;0;0;2;0;3;2;2;0;0;0;0;2SP ERROR INDS
64;872;2;0;0;2;0;5;0;0;0;0;0;1;B/E
SHEET;782
TABLE;880;1;EDIT + LINE
NOTES;;;
0;32;22;0;0;2;0;5;0;9;0;0;0;0;
2;32;24;0;0;2;0;5;0;10;0;0;0;0;
4;32;26;0;0;2;0;5;0;10;0;0;0;0;
6;32;28;0;0;2;0;5;0;10;0;0;0;0;
8;32;30;0;0;2;0;5;0;10;0;0;0;0;
10;32;32;0;0;2;0;5;0;10;0;0;0;0;
12;32;34;0;0;2;0;5;0;10;0;0;0;0;
14;872;2;0;0;2;0;1;1;0;0;0;0;1;
SHEET;783
TABLE;881;1;FILE UNALTERED LINE
NOTES;;;
0;870;8;0;0;2;0;4;0;15;0;0;0;0;15SP FILE
2;871;42;0;0;2;0;2;3;2;0;0;0;0;2SP FILE ID
4;871;10;0;0;2;0;1;2;3;0;0;0;0;3SP T
6;870;0;0;0;2;0;1;4;1;0;0;0;0;'D'
8;871;10;0;0;2;0;3;0;1;0;0;0;0;SP SET
10;30;7;0;0;0;0;2;3;1;1;0;0;0;SP SET NO
12;871;18;0;0;2;0;5;0;3;0;0;0;0;3SP UNALT
14;871;20;0;0;2;0;4;0;0;0;0;0;0;ERED
16;872;2;0;0;2;0;1;1;1;0;0;0;1;
SHEET;784
PROCR;882;08005 INSERTED BEFORE HERE-FINAL ROUTINES
0;0;27;3;0;0;0;
1;70;882;7;0;0;0;
2;;27;4;0;0;0;COMPILER CALLED TRANSLATOR?
3;70;882;6;0;0;0;gNO
4;45;A1;0;0;0;1;REWIND
5;76;882;7;0;0;0;
6;41;A1;0;0;0;1;
7;54;8;4;1;0;48;
8;10;0;0;0;0;55;
9;5;8;4;1;0;0;
10;80;890;0;0;0;0;gWRITE'E'
11;;27;12;0;0;0;
12;71;776;0;0;0;0;gCALL PASS 6,WRITE PTS(2)AND(3)
13;;908;0;1;0;0;'PREND'
14;5;8;4;1;0;0;
15;;16;2;0;0;0;PROG ID
16;5;8;6;2;0;0;
17;80;890;0;0;0;0;gWRITE'PREND'
18;;908;10;1;0;0;'INDEX'   'INDEX'BLOX
19;5;8;6;1;0;0;
20;;908;24;2;0;0;'£££££'
21;5;8;8;2;0;0;
22;10;0;0;0;0;4;
23;5;8;10;1;0;0;
24;;908;24;1;0;0;ALIGNMENT MARKS
25;5;8;4;1;0;0;
26;80;890;0;0;0;0;gWRITE
27;;16;2;0;0;0;PROG IDENTITY
28;3;8;4;2;0;0;
29;5;8;12;2;0;0;
30;;16;3;0;0;0;PROG SERIAL
31;3;8;6;2;0;0;
32;5;8;14;2;0;0;
33;10;0;0;0;0;2;
34;5;8;10;2;0;0;
35;10;0;0;0;0;3;
36;3;8;18;2;0;0;
37;10;0;0;0;0;2;
38;1;27;12;0;0;0;0/2=PTS NO/YES
39;5;8;16;2;0;0;
40;;908;24;2;0;0; 'ppppp'
41;5;8;20;2;0;0;
42;80;890;0;0;0;0;gWRITE'INDEX'DATA
43;45;A6;0;0;0;1;
44;54;5;0;1;0;48;
45;90;0;0;0;1;0;
46;C;0;0;0;0;5;
47;80;892;0;0;0;0;gPRINT 5 BLANK LINES
48;94;882;47;0;1;1;
49;55;908;76;1;0;26;
50;C;5;10;1;0;0;
51;80;888;0;0;0;0;gSUPPRESS I/C IF TRAMD ONLY
52;80;892;0;0;0;0;gPRINT
SHEET;785
PROCR;883;PRINT FINAL LINE, TEST FOR PASS 3 COPY
0;90;0;0;0;1;0;
1;C;0;0;0;0;13;
2;;27;6;0;0;0; 'PT OMITTED'
3;70;883;6;0;0;0;gNO
4;;908;72;1;0;0; 'YES'
5;76;883;7;0;0;0;
6;;908;74;1;0;0; 'NO'
7;5;5;12;1;0;0;
8;0;869;3;0;0;0;TRIAL DATA PT IND
9;70;883;12;0;0;0;
10;0;908;72;1;0;0; 'YES'
11;76;883;13;0;0;0;
12;0;908;74;1;0;0; 'NO'
13;5;5;18;1;0;0;
14;80;915;0;0;0;0;PRINT
15;94;0;0;0;1;4;
16;;869;4;0;0;0;TD'DISASTEROUS'
17;5;908;54;0;0;0;
18;86;511;0;0;0;0;SERIOUS ERRORS CTR
19;80;912;0;0;0;0;CONVERT
20;80;916;0;0;0;0;EDIT
21;80;915;0;0;0;0;PRINT
22;94;0;0;0;1;4;
23;;869;5;0;0;0;TD'OTHERS'
24;5;908;54;0;0;0;
25;86;514;0;0;0;0;OTHER ERRORS CTR
26;80;912;0;0;0;0;CONVERT
27;80;916;0;0;0;0;EDIT
28;80;915;0;0;0;0;PRINT
29;54;40;0;0;0;20;
30;62;0;0;0;0;0;
31;80;892;0;0;0;0;gMORE BLANK LINES
32;94;883;31;0;1;1;
33;155;0;0;0;0;0;TRANSLATOR SERIAL
34;5;908;38;1;0;0;
35;55;908;26;1;0;14;
36;C;5;6;1;0;0;
37;153;0;0;0;0;0;DATE
38;5;908;38;1;0;0;
39;86;153;0;0;0;0;A2 SPOOL NUMBER
40;5;908;20;0;0;0;
41;52;5;20;0;0;0;
42;C;910;16;0;0;0;
43;80;892;0;0;0;0;PRINT 'MADE BY'
44;;27;9;0;0;0;
45;71;883;53;0;0;0;gOFF-LINE PRINT
46;;27;8;0;0;0;PRINTER TYPE
47;11;0;0;0;0;14;
48;30;0;0;0;0;5;
49;1;999;7;0;0;0;
50;125;0;4096;1;1;0;
51;124;999;0;0;3;0;
52;123;0;160;0;2;0;CLOSE PRINTER
53;62;0;0;0;0;0;
54;46;A2;10;0;0;0;RUN BACK TO SECOND'INDEX'BLOCK
55;C;0;0;0;0;3;
56;10;0;0;0;0;1;
57;5;908;58;0;0;0;SET IND
58;;16;2;0;0;0;PROGM BEING TRANSLATED
59;12;0;0;0;0;8000;
60;70;883;72;0;0;0;gTRANSLATOR
61;;16;2;0;0;0;
62;12;0;0;0;0;9001;
63;70;883;72;0;0;0;gMASTER
64;;16;2;0;0;0;
65;12;0;0;0;0;8060;
66;70;897;3;0;0;0;gCOMPILER;ALARM 5
67;12;0;0;0;0;1;
68;70;897;1;0;0;0;gBIG COMPILER
69;12;0;0;0;0;5;
70;70;897;0;0;0;0;gCHAR HANDLING COMP
71;76;884;38;0;0;0;gORDINARY PROGMS
72;10;0;0;0;0;0;
73;5;908;58;0;0;0;CLEAR IND
74;0;27;4;0;0;0;COMPILER?
75;70;883;81;0;0;0;gNO
76;34;999;9;0;0;0;A1 ROUTE---INTERCHANGE A1,A6
77;0;999;11;0;0;0;A6 ROUTE
78;5;999;9;0;0;0;>A1
79;32;0;0;0;0;10;
80;5;999;11;0;0;0;>A6
81;40;A6;0;0;0;0;
82;100;908;52;1;0;0;SPOOL NUMBER->66
83;52;9;4;0;0;0;
84;C;910;32;0;0;0;
85;154;9;4;0;0;0;TYPE COMMENT
86;80;893;0;0;0;0;gWRITE BLANKS
87;80;893;0;0;0;0;gWRITE 2 BLANK BLOCKS->A6
88;80;894;0;0;0;0;READ A2
89;10;0;0;0;0;2;
90;5;8;10;2;0;0;
91;;908;2;1;0;0; 'CHAIN'
92;5;8;12;1;0;0;
93;80;893;0;0;0;0;gA6
94;80;894;0;0;0;0;A2->
SHEET;786
PROCR;884;ALARM 6 or 7
0;;27;4;0;0;0;COMPILER?
1;70;884;4;0;0;0;gNO
2;10;0;0;0;0;2;
3;76;884;6;0;0;0;
4;10;0;0;0;0;2;
5;1;27;12;0;0;0;0/2=PTS NO/YES
6;5;8;8;2;0;0;
7;10;0;0;0;0;ppppp;
8;5;8;12;2;0;0;
9;80;893;0;0;0;0;gA6
10;80;894;0;0;0;0;A2->
11;0;8;6;1;0;0;
12;2;908;10;1;0;0; 'INDEX'
13;70;884;16;0;0;0;gYES
14;80;893;0;0;0;0;gWRITE
15;76;884;10;0;0;0;
16;80;893;0;0;0;0;gWRITE 'INDEX'
17;80;894;0;0;0;0;gREAD
18;;27;4;0;0;0;COMPILER?
19;70;884;22;0;0;0;gNO
20;10;0;0;0;0;2;
21;76;884;24;0;0;0;
22;10;0;0;0;0;2;
23;1;27;12;0;0;0;0/2=PTS NO/YES
24;5;8;8;2;0;0;
25;10;0;0;0;0;ppppp;
26;5;8;12;2;0;0;
27;80;893;0;0;0;0;gWRITE
28;41;A6;0;0;0;0;
29;0;27;4;0;0;0;COMPILER?
30;70;884;36;0;0;0;gNO
31;34;999;9;0;0;0;RESTORE A1,A6 ROUTE NUMBERS
32;0;999;11;0;0;0;
33;5;999;9;0;0;0;
34;32;0;0;0;0;10;
35;5;999;11;0;0;0;
36;46;A2;10;0;0;1;RUN BACK TO SECOND 'INDEX' BLOCK
37;C;0;0;0;0;3;
38;90;0;0;0;1;0;CLEAR R1
39;C;0;0;0;0;0;/////
40;10;0;0;0;0;6;
41;5;908;20;0;0;0;
42;0;27;9;0;0;0;
43;70;884;50;0;0;0;gON-LINE PRINT
44;86;511;0;0;0;0; 'DISASTEROUS'
45;1;869;4;0;0;0;(TD)
46;71;884;54;0;0;0;
47;0;27;6;0;0;0; 'PT OMITTED'
48;1;869;3;0;0;0;(TD)
49;71;884;54;0;0;0;
50;;27;7;0;0;0;
51;71;884;54;0;0;0;gREF/PROCR REPORT
52;;27;5;0;0;0;25?'S IND
53;70;884;56;0;0;0;
54;10;0;0;0;0;7;
55;5;908;20;0;0;0;
56;;27;9;0;0;0;
57;70;884;76;0;0;0;gON
58;101;0;300;1;3;0;
59;99;0;0;0;6;0;
60;5;890;0;0;0;0;
61;54;10;4;0;6;0;CLEAR REST OF ANNEX
62;C;890;0;0;0;0;
63;;908;22;1;0;0;
64;5;10;306;1;0;0;
65;80;914;0;0;0;0;WRITE LAST BLOCK
66;54;10;0;1;0;306;
67;;908;22;1;0;0;BEW
68;5;10;306;1;0;0;
69;80;914;0;0;0;0;WRITE BLANK BLOCK
70;34;909;0;0;0;0;STEP BACK A9
71;10;0;0;0;0;2700000;O/P->O/P 1 BLOCK
72;1;999;7;0;0;0;
73;125;0;4096;1;1;0;
74;124;999;0;0;3;0;
75;123;0;160;0;2;0;
76;150;908;20;0;0;0;ALARM 6 or 7
77;C;884;83;0;0;0;>END
78;C;884;97;0;0;0;>CLOSE FILES:REENTER TO PRINT
79;C;883;72;0;0;0;>COPY TO PASS 3 O/P TO A6
80;C;885;22;0;0;0;
81;C;885;41;0;0;0;
82;C;885;26;0;0;0;
83;80;911;0;0;0;0;
84;80;889;0;0;0;0;gCLOSE A9
85;;908;58;0;0;0;
86;71;884;91;0;0;0;
87;;27;4;0;0;0;
88;70;884;96;0;0;0;
89;80;891;0;0;0;0;CLOSE A6
90;76;884;96;0;0;0;
91;;27;4;0;0;0;
92;70;884;95;0;0;0;gNO
93;40;A1;0;0;0;1;
94;41;A1;0;0;0;1;
95;80;891;0;0;0;0;gOPEN AND CLOSE A6
96;151;0;0;0;0;0;
97;80;911;0;0;0;0;
SHEET;787
PROCR;885;IF AMEND BEWARE ADDRESSES OF 23/0/2'S
0;90;0;0;0;3;0;
1;C;0;0;0;0;2;
2;80;889;0;0;0;0;CLOSE A9 OR PRINTER
3;;27;9;0;0;0;
4;70;885;7;0;0;0;gON
5;90;0;0;0;3;0;
6;C;0;0;0;0;4;
7;;27;4;0;0;0;
8;71;885;11;0;0;0;
9;;893;0;0;0;0;
10;76;100;0;0;0;0;gCALL TRANSLATOR PASS 0
11;80;891;0;0;0;0;OPEN AND CLOSE A6
12;125;0;4096;1;1;0;
13;123;895;0;0;2;0;
14;124;909;0;0;2;0;
15;32;0;0;0;0;5-;
16;101;0;80;1;3;0;
17;32;0;0;0;0;5;ESTORE COMPILER
18;124;999;5;0;3;0;
19;128;0;204;1;1;0;
20;;893;0;0;0;0;
21;76;100;0;0;0;0;gCALL COMPILER PASS 1
22;80;886;0;0;0;0;IS MATCH HD?;OPT 4
23;70;885;30;0;0;0;gNO
24;10;0;0;0;0;0;
25;76;887;0;0;0;0;
26;80;886;0;0;0;0;IS MATCH HD?;OPT 6
27;70;885;30;0;0;0;gNO
28;10;0;0;0;0;58;H
29;76;887;0;0;0;0;
30;80;911;0;0;0;0;
31;90;0;0;0;3;1;
32;C;0;0;0;0;2;
33;;27;9;0;0;0;OFF?
34;70;885;7;0;0;0;
35;84;787;0;0;0;0;CLEAR,A9 NOW CLOSED
36;C;999;0;0;0;0;
37;80;889;0;0;0;0;CLOSE A9 OR PRINTER
38;90;0;0;0;3;1;
39;C;0;0;0;0;4;
40;76;885;7;0;0;0;
41;;27;9;0;0;0;
42;70;885;22;0;0;0;gAS OPT 4
43;83;787;0;0;0;1;
44;80;911;0;0;0;0;gCLOSE A2
45;90;0;0;0;3;1;
46;C;0;0;0;0;3;
47;76;885;7;0;0;0;
SHEET;788
PROCR;886;TEST IF MACHINE IS HIGH DENSITY
0;81;886;0;0;0;0;
1;123;886;3;0;2;0;
2;82;886;0;0;0;0;
3;100;0;0;0;0;0;
4;124;999;5;0;3;0;
5;124;0;32;0;3;0;
6;106;0;21;0;0;0;
7;126;886;3;0;3;0;
SHEET;789
PROCR;887;INFORM MASTER OF DENSITY REQUIRED
0;5;893;0;0;0;0;
1;123;887;3;0;2;0;
2;76;885;30;0;0;0;
3;100;0;0;0;0;0;
4;124;999;5;0;3;0;
5;124;0;32;0;3;0;
6;106;0;22;0;0;0;
7;1;999;7;0;0;0;
8;5;891;0;0;0;0;
9;;893;0;0;0;0;
10;124;891;0;0;3;0;
11;102;0;0;0;0;0;
12;126;887;3;0;3;0;
SHEET;790
PROCR;888;
0;81;888;12;0;0;0;
1;34;27;13;0;0;0;(DONT SPOIL CLEARNESS OF A)
2;74;888;7;0;0;0;gNOT TRAMD ONLY
3;5;5;10;1;0;0;CLEAR
4;5;5;12;1;0;0;
5;5;5;14;1;0;0;
6;54;5;22;1;0;14;
7;82;888;0;0;0;0;
SHEET;791
PROCR;889;CLOSE A9
0;81;889;0;0;0;0;
1;;27;9;0;0;0;>PRINTING
2;70;889;10;0;0;0;
3;84;787;0;0;0;0;CLEAR'DONT OPEN A9' IND
4;C;999;0;0;0;0;
5;10;0;0;0;0;1+00000;
6;1;999;7;0;0;0;
7;125;0;4096;1;1;0;
8;124;999;0;0;3;0;
9;123;0;160;0;2;0;
10;82;889;0;0;0;0;
SHEET;792
PROCR;890;WRITE->A2
0;81;890;0;0;0;0;
1;;908;22;1;0;0;
2;5;8;52;1;0;0;
3;43;A2;0;0;0;0;
4;C;8;0;0;0;0;
5;54;8;0;1;0;52;
6;82;890;0;0;0;0;
SHEET;793
PROCR;891;OPEN & CLOSE A6
0;81;891;0;0;0;0;
1;40;A6;0;0;0;1;
2;41;A6;0;0;0;1;
3;82;891;0;0;0;0;
SHEET;794
PROCR;892;PRINT SR
0;81;892;0;0;0;0;
1;62;0;0;0;0;0;
2;;908;22;1;0;0;
3;5;5;52;1;0;0;
4;;908;58;0;0;0;HEAD OF FORM OR TRACK 1
5;5;5;0;2;0;0;
6;10;0;0;0;0;1;
7;5;908;58;0;0;0;
8;;27;9;0;0;0;
9;70;892;14;0;0;0;gPRINTER
10;55;5;0;1;0;50;
11;C;10;4;1;6;0;
12;80;913;0;0;0;0;O/P->A9
13;76;892;36;0;0;0;
14;;27;8;0;0;0;PRINTER TYPE
15;12;0;0;0;0;9;
16;70;892;32;0;0;0;gSPECIAL PRINTER
17;10;0;0;0;0;80000;
18;5;5;1;0;0;0;
19;124;999;15;1;2;0;
20;124;0;0;0;2;0;
21;124;999;13;1;2;0;
22;129;0;0;0;1;0;
23;10;0;0;0;0;4;
24;30;0;0;0;0;5;
25;1;999;7;0;0;0;
26;34;999;12;0;0;0;
27;125;0;4096;1;1;0;
28;124;999;0;0;3;0;
29;123;0;160;0;2;0;
30;62;0;0;0;0;0;
31;76;892;36;0;0;0;
32;55;5;0;1;0;54;
33;C;10;0;1;0;0;
34;10;0;0;0;0;9;
35;76;892;24;0;0;0;
36;54;5;0;1;0;50;
37;82;892;0;0;0;0;
SHEET;795
PROCR;893;WRITE ON A6
0;81;893;0;0;0;0;
1;55;8;4;1;0;50;
2;C;9;4;1;0;0;
3;;908;22;1;0;0;BEW
4;5;9;52;1;0;0;
5;43;A6;0;0;0;0;
6;C;9;0;0;0;0;
7;54;9;0;1;0;52;
8;82;893;0;0;0;0;
SHEET;796
PROCR;894;READ A2
0;81;894;0;0;0;0;
1;42;A2;0;0;0;0;
2;C;8;0;0;0;0;
3;82;894;0;0;0;0;
SHEET;797
PROCR;895;DELETE GUARD WORDS
0;81;895;0;0;0;0;
1;124;999;5;0;3;0;
2;126;0;20;1;2;0;
3;80;896;0;0;0;0;
4;124;999;5;0;3;0;
5;126;0;22;1;2;0;
6;80;896;0;0;0;0;
7;124;999;5;0;3;0;
8;126;0;24;1;2;0;
9;125;0;204;0;2;0;
10;80;896;0;0;0;0;
11;90;0;0;0;1;0;
12;C;0;0;0;0;0;/////
13;126;895;0;0;3;0;
SHEET;798
PROCR;896;STACK TAG SR
0;81;896;0;0;0;0;
1;123;909;0;0;3;0;PROG TAG
2;124;999;0;0;3;0;
3;123;0;0;1;2;0;
4;94;896;2;0;2;2;
5;82;896;0;0;0;0;
SHEET;799
PROCR;897;
0;10;0;0;0;0;5;
1;11;0;0;0;0;11;
2;4;908;12;0;0;0;
3;150;0;0;0;0;5;PAUSE TO PUT TRANSLATOR ON A1 ROUTE
4;C;897;7;0;0;0;
5;C;883;72;0;0;0;
6;C;898;30;0;0;0;
7;;16;2;0;0;0;ARE WE 08066?
8;12;0;0;0;0;8066;
9;71;897;25;0;0;0;gNO
10;10;0;0;0;0;9;
11;5;909;96;0;0;0;
12;80;900;0;0;0;0;MERGE S/R
13;90;0;0;0;1;0;
14;C;0;0;0;0;6;
15;;870;2;0;1;0;
16;80;899;0;0;0;0;CONVERT TO DEC
17;94;897;15;0;1;2;
18;52;870;8;0;0;0;EDIT CHAP LENGTHS
19;C;910;0;0;0;0;FOR TYPING
20;154;870;8;0;0;0;TYPE
21;10;0;0;0;0;4630;
22;5;908;12;0;0;0;
23;91;16;10;0;1;0;SET M/R AT NO OFCHAPS
24;76;898;9;0;0;0;gCOPY TRANSLATOR
25;40;A1;0;0;0;1;
26;80;903;0;0;0;0;gREAD A1 TO SEC 7
27;;7;4;1;0;0;
28;2;908;4;1;0;0; 'FINIS'
29;71;897;32;0;0;0;
30;41;A1;0;0;0;1;
31;76;897;3;0;0;0;
32;;7;4;2;0;0;
33;12;0;0;0;0;ppppp;
34;71;897;26;0;0;0;
35;35;0;0;0;0;1;
36;36;7;6;2;0;0;
37;12;0;0;0;0;5;
38;71;897;26;0;0;0;gNOT SENTINEL 5
39;;7;8;2;0;0;
40;12;0;0;0;0;8000;
41;71;897;26;0;0;0;g NOT TRANSLATOR
42;80;903;0;0;0;0;
43;;7;42;1;0;0;
44;2;908;8;1;0;0; 'ALLOC'
45;71;897;42;0;0;0;
46;40;A6;0;0;0;0;OPEN FOR FINAL PROGM
47;32;0;0;0;0;10;
48;5;869;12;0;0;0;SPOOL NUMBER
49;80;904;0;0;0;0;WRITE 2 ZERO BLOX
50;80;904;0;0;0;0;
51;80;894;0;0;0;0;gREAD A2
52;10;0;0;0;0;2;INDEX IDENTIFIER
53;5;8;10;2;0;0;
54;;908;2;1;0;0;
55;5;8;12;1;0;0;
56;80;904;0;0;0;0;gWRITE
57;80;894;0;0;0;0;gREAD A2
58;10;0;0;0;0;2;
59;5;8;8;2;0;0;
60;10;0;0;0;0;ppppp;
61;5;8;12;2;0;0;
62;80;904;0;0;0;0;gWRITE
63;80;894;0;0;0;0;gREAD A2
64;;8;42;1;0;0;
65;2;908;8;1;0;0; 'ALLOC'
66;70;897;69;0;0;0;
67;80;904;0;0;0;0;gWRITE SEC 8 TO A6
68;76;897;63;0;0;0;
69;90;0;0;0;1;0;REFORM ALLOC DATA
70;C;0;0;0;0;6;
71;;7;24;2;1;0;MAXAMISE ALL 3 CHAP LENGTHS
72;2;8;24;2;1;0;
73;73;897;75;0;0;0;
74;4;8;24;2;1;0;
75;0;8;24;2;1;0;
76;80;899;0;0;0;0;CONVERT TO DEC
77;94;897;71;0;1;2;
78;52;870;8;0;0;0;
79;C;910;0;0;0;0;
80;154;870;8;0;0;0;TYPE COMBINED CHAP LENGTHS
81;10;0;0;0;0;4630;
82;5;908;12;0;0;0;
83;0;8;10;2;0;0;TOTAL CHAPS IN OBJECT PROGRAM
84;5;16;10;1;0;0;
85;91;16;10;0;1;0;0:X
86;10;0;0;0;0;4;
87;4;8;10;2;0;0;
88;80;904;0;0;0;0;gWRITE
SHEET;800
PROCR;898;COPY OBJECT PROGRAM: JOIN ON TRANSLATOR
0;80;894;0;0;0;0;READ A2
1;;8;4;1;0;0;
2;2;908;0;1;0;0; 'PREND'
3;71;898;6;0;0;0;gNO
4;41;A2;0;0;0;1;CSE
5;76;898;8;0;0;0;
6;80;904;0;0;0;0;gWRITE A6
7;76;898;0;0;0;0;
8;80;905;0;0;0;0;gREAD A1 TO SEC 8 OF TRANSLATOR
9;80;907;0;0;0;0;'CHAPT' SR
10;71;898;8;0;0;0;gNOT START
11;76;898;15;0;0;0;g(AT START OF PASS 1 NOW)
12;80;905;0;0;0;0;gREAD A1
13;80;907;0;0;0;0;g'CHAPT' SR
14;71;898;25;0;0;0;gNO
15;80;905;0;0;0;0;READ/WRITE FIRST BLOCK
16;80;904;0;0;0;0;
17;80;905;0;0;0;0;READ/WRITE SECOND BLOCK
18;80;904;0;0;0;0;
19;80;905;0;0;0;0;READ BLOCK WITH LOCN 35=1/1/3 N
20;0;16;10;0;0;0;X=TOT CHAPS IN OBJECT PROGM
21;11;0;0;0;0;1.001;1/1/3 1
22;5;8;50;2;0;0;
23;10;0;0;0;0;1;
24;4;16;10;0;0;0;STEP CTR
25;;8;4;1;0;0;
26;2;908;0;1;0;0;'PREND'
27;70;899;8;0;0;0;gYES
28;80;904;0;0;0;0;gWRITE A6
29;76;898;12;0;0;0;gLOOP
30;80;900;0;0;0;0;MERGE S/R
31;41;A1;0;0;0;1;
32;40;A1;0;0;0;1;
33;80;903;0;0;0;0;READ A1 TO SECN 7
34;80;906;0;0;0;0;
35;C;909;81;0;0;0;
36;;7;6;1;0;0;
37;2;908;10;1;0;0;'INDEX'
38;71;898;33;0;0;0;gGET TO INDEX BLOCK
39;80;903;0;0;0;0;
40;;7;4;2;0;0;
41;12;0;0;0;0;8000;
42;71;898;33;0;0;0;gGET TO TRANS
43;;7;6;2;0;0;
44;30;0;0;0;0;2-;
45;12;0;0;0;0;899;
46;71;898;33;0;0;0;gGET TO 899 VERSION
47;80;903;0;0;0;0;READ
48;80;906;0;0;0;0;
49;C;909;81;0;0;0;
50;;7;42;1;0;0;
51;2;908;8;1;0;0;'ALLOC'
52;71;898;47;0;0;0;gGET TO ALLOC BLOCK
53;90;0;0;0;1;0;
54;C;0;0;0;0;6;
55;;870;2;0;1;0;
56;2;7;24;2;1;0;
57;73;898;60;0;0;0;
58;94;898;55;0;1;2;
59;76;897;13;0;0;0;gALL CHAPS OK
60;46;A6;10;0;0;0;RUN BACK TO PASS 3 START
61;C;0;0;0;0;2;
62;42;A6;0;0;0;0;READ
63;C;8;0;0;0;0;
64;;8;42;1;0;0;
65;2;908;8;1;0;0;ALLOC' 
66;71;898;62;0;0;0;gGET TO ALLOC BLOCK 
67;90;0;0;0;1;0;
68;C;0;0;0;0;6;
69;;7;24;2;1;0;
70;2;870;2;0;1;0;
71;73;898;74;0;0;0;gCHAP NOT BIGGER 
72;4;8;24;2;1;0;
73;4;870;2;0;1;0;
74;94;898;69;0;1;2;
75;48;A6;0;0;0;3;
76;C;0;0;0;0;1;
77;80;904;0;0;0;0;REWRITE ALLOC BLOCK 
78;47;A6;2;0;0;0;
79;C;0;0;0;0;ppppp;
80;48;A6;0;0;0;0;
81;C;0;0;0;0;1;
82;76;897;13;0;0;0;gJOIN UP 
SHEET;801
PROCR;899;END ROUTINE 
0;81;899;0;0;0;0;CONVERT S/R 
1;5;870;0;0;0;0;
2;60;0;0;0;0;0;
3;124;909;20;0;2;0;
4;112;870;0;0;0;0;
5;5;870;2;0;1;0;
6;62;0;0;0;0;0;
7;82;899;0;0;0;0;
8;80;904;0;0;0;0;g WRITE 'PREND' 
9;;908;24;1;0;0;
10;5;8;4;1;0;0;
11;0;908;10;1;0;0;INDEX' 
12;5;8;6;1;0;0;
13;10;0;0;0;0;ppppp;
14;5;8;8;2;0;0;
15;10;0;0;0;0;3;
16;5;8;10;1;0;0;
17;80;904;0;0;0;0;g WRITE 2ND INDEX BLOCK 
18;80;902;0;0;0;0;
19;41;A1;0;0;0;1;
20;41;A6;0;0;0;0;
21;125;0;0;1;2;0;CLEAR 
22;5;908;58;0;0;0;
23;5;909;96;0;0;0;
24;76;884;38;0;0;0;
SHEET;802
PROCR;900;S/R TO MERGE 08066 AND 08061 
0;81;900;0;0;0;0;
1;40;A6;0;0;0;0;
2;32;0;0;0;0;10;
3;5;869;12;0;0;0;SPOOL NUMBER 
4;80;904;0;0;0;0;WRITE 2 BLANK BLOCKS 
5;80;904;0;0;0;0;
6;;908;24;1;0;0;ALIGNMENT MARKS 
7;5;8;4;1;0;0;
8;;908;10;1;0;0;
9;5;8;6;1;0;0;INDEX' 
10;10;0;0;0;0;ppppp;
11;5;8;8;2;0;0;
12;10;0;0;0;0;2;
13;5;8;10;2;0;0;
14;80;904;0;0;0;0;WRITE 
15;80;902;0;0;0;0;WRITE 2ND INDEX BLOCK 
16;47;A2;10;0;0;0;
17;C;0;0;0;0;2;
18;80;894;0;0;0;0;READ A2 TO SCN 8 
19;80;906;0;0;0;0;
20;C;909;80;0;0;0;
21;;8;12;1;0;0;
22;12;0;0;0;0;6751727243; 'PASS 3' 
23;71;900;18;0;0;0;gREAD TILL PASS 3 
24;80;904;0;0;0;0;WRITE 
25;80;894;0;0;0;0;READ A2 
26;80;906;0;0;0;0;
27;C;909;80;0;0;0;
28;;8;42;1;0;0;
29;2;908;8;1;0;0; 'ALLOC' 
30;71;900;24;0;0;0;gCOPY BLOCKS TILL 'ALLOC' 
31;;8;10;2;0;0;
32;5;16;10;1;0;0;
33;90;0;0;0;1;0;;STORE CHAP LENGHTS 
34;C;0;0;0;0;6;
35;;8;24;2;1;0;
36;5;870;2;0;1;0;
37;94;900;35;0;1;2;
38;80;904;0;0;0;0;WRITE 
39;80;894;0;0;0;0;READ A2 
40;80;906;0;0;0;0;
41;C;909;80;0;0;0;
42;;8;12;1;0;0;
43;2;908;6;1;0;0; 'CHAPT' 
44;71;900;38;0;0;0;WRITE UNTIL CHAPT 
SHEET;803
PROCR;901;
0;40;A1;0;0;0;1;
1;80;905;0;0;0;0;READ A1 
2;80;906;0;0;0;0;
3;C;909;81;0;0;0;
4;;8;6;1;0;0;
5;2;908;10;1;0;0; 'INDEX' 
6;71;901;1;0;0;0;gGET TO INDEX 
7;80;905;0;0;0;0;READ NEXT BLOCK 
8;;8;4;2;0;0;
9;12;0;0;0;0;8061;HAS CORR PROG BEEN LOADED? 
10;71;897;3;0;0;0;gNO, RETURN TO *05 
11;80;905;0;0;0;0;READ A1 
12;80;906;0;0;0;0;
13;C;909;81;0;0;0;
14;0;8;42;1;0;0;
15;2;908;8;1;0;0; 'ALLOC' 
16;71;901;11;0;0;0;gGET TO ALLOC 
17;90;0;0;0;1;0;
18;C;0;0;0;0;6;;COMPARE CHAP LENGHTS 
19;;8;24;2;1;0;;08066 AND 08061 
20;2;870;2;0;1;0;
21;73;901;23;0;0;0;
22;4;870;2;0;1;0;
23;94;901;19;0;1;2;
24;80;905;0;0;0;0;READ A1 TO SECN 8 
25;80;906;0;0;0;0;
26;C;909;81;0;0;0;
27;;8;12;1;0;0;
28;2;908;6;1;0;0; 'CHAPT' 
29;71;901;24;0;0;0;gGET TO'CHAPT' 
30;90;0;0;0;1;1;
31;C;0;0;0;0;5;
32;;16;2;0;0;0;PROG ID 08066 
33;5;8;8;2;0;0;
34;;16;3;0;0;0;SERIAL 
35;5;8;10;2;0;0;
36;80;904;0;0;0;0;WRITE 
37;80;905;0;0;0;0;READ 
38;80;906;0;0;0;0;
39;C;909;81;0;0;0;
40;;8;12;1;0;0;
41;2;908;6;1;0;0; 'CHAPT' 
42;71;901;36;0;0;0;gWRITE CONTENTS 
43;94;901;32;0;1;1;gWRITE CHAPT BLOCK 
44;80;894;0;0;0;0;READ A2 
45;80;906;0;0;0;0;
46;C;909;80;0;0;0;
47;;8;12;1;0;0;
48;2;908;6;1;0;0; 'CHAPT' 
49;71;901;44;0;0;0;gGET TO CHAPT 
50;;8;4;2;0;0;
51;12;0;0;0;0;5;
52;71;901;44;0;0;0;gGET TO CHAPT 5 
53;90;0;0;0;1;5;
54;C;0;0;0;0;10;
55;80;904;0;0;0;0;WRITE 
56;80;894;0;0;0;0;READ A2 
57;80;906;0;0;0;0;
58;C;909;80;0;0;0;
59;;8;12;1;0;0;
60;2;908;6;1;0;0; 'CHAPT' 
61;71;901;55;0;0;0;gWRITE CONTENTS 
62;94;901;55;0;1;1;gWRITE CHAPT BLOCK 
63;80;905;0;0;0;0;READ A1 
64;80;906;0;0;0;0;
65;C;909;81;0;0;0;
66;;8;12;1;0;0;
67;2;908;6;1;0;0; 'CHAPT' 
68;71;901;63;0;0;0;GET TO CHAPT 
69;;8;4;2;0;0;
70;101;0;10;1;2;0;
71;71;901;63;0;0;0;gGET TO CHAPT 10 
72;;16;2;0;0;0;PROG ID 08066 
73;5;8;8;2;0;0;
74;;16;3;0;0;0;SERIAL 
75;5;8;10;2;0;0;
76;80;904;0;0;0;0;WRITE 
77;80;905;0;0;0;0;READ A1 
78;80;906;0;0;0;0;
79;C;909;81;0;0;0;
80;;8;4;1;0;0;
81;2;908;0;1;0;0; 'PREND' 
82;70;901;89;0;0;0;
83;;8;12;1;0;0;
84;2;908;6;1;0;0;'CHAPT'
85;71;901;76;0;0;0;gWRITE CONTENTS
86;;8;4;2;0;0;
87;101;0;13;1;2;0;
88;71;901;72;0;0;0;gWRITE CHAPT BLOCK
89;41;A2;0;0;0;1;
90;82;900;0;0;0;0;
SHEET;804
PROCR;902;WRITE 2ND INDEX BLOCK S/R
0;81;902;0;0;0;0;
1;;16;2;0;0;0;PROG ID
2;5;8;4;2;0;0;
3;;16;3;0;0;0;SERIAL
4;5;8;6;2;0;0;
5;10;0;0;0;0;2;
6;3;8;8;2;0;0;
7;5;8;10;2;0;0;
8;10;0;0;0;0;£££££;
9;5;8;12;2;0;0;
10;80;904;0;0;0;0;WRITE
11;82;902;0;0;0;0;
SHEET;805
PROCR;903;READ A1>SEC 7
0;81;903;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;7;0;0;0;0;
3;82;903;0;0;0;0;
SHEET;806
PROCR;904;WRITE SEC 8>A6
0;81;904;0;0;0;0;
1;55;8;4;1;0;50;
2;C;9;4;1;0;0;
3;;908;22;1;0;0;BEW
4;5;9;52;1;0;0;
5;54;8;4;1;0;50;
6;43;A6;0;0;0;0;
7;C;9;0;0;0;0;
8;82;904;0;0;0;0;
SHEET;807
PROCR;905;READ A1>SEC 8
0;81;905;0;0;0;0;
1;42;A1;0;0;0;0;
2;C;8;0;0;0;0;
3;82;905;0;0;0;0;
SHEET;808
PROCR;906;TEST FINIS ON A2 AND A1 (08066 ONLY)
0;81;906;0;0;0;0;
1;;8;4;1;0;0;
2;2;908;4;1;0;0;'FINIS'
3;71;906;8;0;0;0;gNO
4;;1001;0;0;0;0;
5;5;909;92;0;0;0;
6;154;909;82;0;0;0;
7;76;884;38;0;0;0;
8;82;906;0;0;0;0;
SHEET;809
PROCR;907;'CHAPT' SR
0;81;907;0;0;0;0;
1;;8;12;1;0;0;
2;2;908;6;1;0;0;'CHAPT'
3;71;907;22;0;0;0;gNO
4;0;8;4;2;0;0;CHAP NUMBER
5;12;0;0;0;0;4;
6;2;909;96;0;0;0;0 OR 9
7;73;907;9;0;0;0;gCHAP 1, PASS 0, SPECIAL
8;76;907;14;0;0;0;
9;80;905;0;0;0;0;gREAD
10;0;8;12;1;0;0;
11;2;908;6;1;0;0;'CHAPT'
12;71;907;9;0;0;0;gDRAIN TO NEXT CHAP START
13;76;907;4;0;0;0;
14;125;0;1;0;1;0;STEP CTR
15;96;0;0;0;1;0;
16;5;8;4;2;0;0;SET CHAP NUMBER
17;;16;2;0;0;0;OBJECT PROG ID
18;5;8;8;2;0;0;
19;;16;3;0;0;0;SERIAL
20;5;8;10;2;0;0;
21;80;904;0;0;0;0;gWRITE A6
22;82;907;0;0;0;0;A CLEAR IF WAS 'CHAPT'
SHEET;810
CONST;908;1;
0;(A)PREND;
2;CHAIN;
4;FINIS;
6;CHAPT;
8;ALLOC;
10;INDEX;
12;(A)08060;
14;CHAPS;
16;   ON;
18;(D)5.5.;
20;(A)0;
22;(D)7.0000007.;
24;6£6£6£6£6£;
26;(A)MADE ;
28;BY 08;
30;000 I;
32;SSUE ;
34;8  SE;
36;RIAL ;
38;70000;
40;/;
42;SPOOL;
44;08000;
46;MAKES;
48;COPY ;
50;PASS3;
52;0;WL'S
54;0;WL'S
56;0;WL'S
58;0;IND
60;(A)PT OM;
62;ITTED;
64;DISAS;
66;TROUS;
68;OTHER;
70;S    ;
72;YES;
74;NO;
76;   IN;
78;TERCO;
80;DE   ;
82;  TRI;
84;AL DA;
86;TA   ;
88;SERIA;
90;L NUM;
92;BERS ;
94;OF IN;
96;TERCO;
96;DE RE;/////
96;PORTS;/////
SHEET;811
CONST;909;1;COMPILER'S CONVERT TABLES
0;(D)1;DEC->BIN
2;t;
4;64;
6;3.8;
8;2710;
10;186t0;
12;p4240;
14;989680;
16;5p5.100;
18;3e9t+t00;
20;1;BIN->DEC
22;16;
24;256;
26;4096;
28;65536;
30;1048576;
32;16777216;
34;268435456;
36;4294967296;
38;pppppppppp;
40;1;STERLINGgBIN
42;+;
44;78;
46;p0;
48;960;
50;5:+0;
52;3t980;
54;249p00;
56;16.3600;
58;.4.1+00;
60;1;BINgSTERLING
62;14;
64;1014;
66;17014;
68;273014;
70;4369014;
72;69905014;
74;1118481014;
76;pppppppppp;
78;pppppppppp;
80;1000020000;
82;(A)08000;
84; UNEX;
86;PECTE;
88;D FIN;
90;IS ON;
92; A   ;
94;(D)5.5.;
96;0;N.B. THIS IS NOT SPARE
SHEET;812
TABLE;910;1;
0;908;12;0;0;2;0;5;0;0;0;0;0;0;08060'
2;908;14;0;0;2;0;5;0;1;0;0;0;0;CHAPS'
4;870;2;0;0;0;0;5;0;1;4;0;0;0;LENGTHS
6;870;4;0;0;0;0;5;0;1;4;0;0;0;
8;870;6;0;0;0;0;5;0;0;4;0;0;0;
10;908;16;0;0;2;0;2;3;2;0;0;0;0;ON'
12;869;12;0;0;0;0;5;0;1;0;0;0;0;SPOOL NUMBER
14;908;18;0;0;2;0;2;3;0;0;0;0;1;DOUBLE LE
16;908;16;0;0;2;0;2;3;1;0;0;0;0;ON'
18;908;38;0;0;1;0;2;4;1;2;0;0;0;DAY
20;908;40;0;0;2;0;1;4;0;0;0;0;0;/'
22;908;38;0;0;0;0;2;1;0;2;0;0;0;MONTH
24;908;40;0;0;2;0;1;4;0;0;0;0;0;/'
26;908;38;0;0;0;0;2;3;0;2;0;0;0;YEAR
28;908;42;0;0;2;0;5;0;2;0;0;0;0;SPOOL'
30;908;20;0;0;0;0;5;0;1;5;0;0;1;NUMBER
32;908;44;0;0;2;0;5;0;2;0;0;0;0;08000'
34;908;46;0;0;2;0;5;0;1;0;0;0;0;MAKES
36;908;50;0;0;2;0;5;0;1;0;0;0;0;PASS5
38;908;48;0;0;2;0;5;0;1;0;0;0;0;COPY'
40;908;16;0;0;2;0;2;3;0;0;0;0;0;ON'
42;908;54;0;0;0;0;5;0;1;5;0;0;0;SPOOL NUMBER
44;908;18;0;0;2;0;2;3;0;0;0;0;1;DOUBLE LINE END
46;905;0;0;0;0;0;3;2;0;2;0;0;0;REF----ACTIONS WITH NEG ADDRESS
48;904;0;0;0;0;0;5;0;2;4;0;0;1;PROCR
50;908;52;0;0;0;0;4;1;1;3;0;0;0;TRANSLATOR REPORTS
52;908;54;0;0;0;0;5;0;10;4;0;0;0;08005 REPORTS
54;40;0;0;0;0;0;5;0;6;5;0;0;0;SERIAL NUMBERS OF
56;40;1;0;0;0;0;5;0;1;5;0;0;0;INTERCODE REPORTS
58;40;2;0;0;0;0;5;0;1;5;0;0;0;
60;40;3;0;0;0;0;5;0;1;5;0;0;0;
62;40;4;0;0;0;0;5;0;1;5;0;0;0;
64;40;5;0;0;0;0;5;0;1;5;0;0;0;
66;40;6;0;0;0;0;5;0;1;5;0;0;0;
68;40;7;0;0;0;0;5;0;1;5;0;0;0;
70;40;8;0;0;0;0;5;0;1;5;0;0;0;
72;40;9;0;0;0;0;5;0;1;5;0;0;1;
SHEET;813
PROCR;911;CLOSE I/P FILE
0;81;911;0;0;0;0;
1;0;908;4;1;0;0;FINIS'
2;124;999;10;0;3;0;
3;124;0;64;1;2;0;
4;102;0;4;1;0;0;PLANT
5;41;A2;0;0;0;1;
6;82;911;0;0;0;0;
SHEET;814
PROCR;912;CONVERT TO DEC
0;81;912;0;0;0;0;
1;5;911;0;0;0;0;
2;60;0;0;0;0;0;
3;124;909;20;0;2;0;
4;112;911;0;0;0;0;
5;82;912;0;0;0;0;
SHEET;815
PROCR;913;O/P->A9
0;81;913;0;0;0;0;
1;94;913;7;0;6;50;
2;;908;22;1;0;0;
3;5;10;306;1;0;0;
4;80;914;0;0;0;0;
5;90;0;0;0;6;0;
6;C;0;0;0;0;300;
7;82;913;0;0;0;0;
SHEET;816
PROCR;914;WRITE A9
0;81;914;0;0;0;0;
1;10;0;0;0;0;800000;
2;34;999;12;0;0;0;SEC 10
3;125;0;4096;1;1;0;
4;1;999;7;0;0;0;D1/A9
5;124;999;0;0;3;0;
6;123;0;160;0;2;0;
7;82;914;0;0;0;0;
SHEET;817
PROCR;915;COPY WORDS FOR ERROR TOTALS REPORTS
0;81;915;0;0;0;0;
1;;908;60;1;1;0;
2;5;5;6;1;0;0;
3;;908;62;1;1;0;
4;5;5;8;1;0;0;
5;80;888;0;0;0;0;gSUPPRESS I/C IF TRAMD ONLY
6;80;892;0;0;0;0;PRINT
7;82;915;0;0;0;0;
SHEET;818
PROCR;916;EDIT NUMBER OF REPORTS
0;81;916;0;0;0;0;
1;5;908;52;0;0;0;
2;52;5;12;0;0;0;
3;C;910;50;0;0;0;
4;55;40;10;0;0;10;COPY'OTHERS'SERIAL NOS
5;C;40;0;0;0;0;
6;82;916;0;0;0;0;
SHEET;819
CONST;917;1;BLISTER SPACE PASS 5
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
28;0;
30;0;
32;0;
34;0;
36;0;
38;0;
40;0;
42;0;
44;0;
46;0;
48;0;
50;0;
52;0;
54;0;
56;0;
58;0;
SHEET;820
PROCR;918;PASS 6=REMAINDER OF PTS
0;152;101;0;0;0;0;
1;C;995;-2;0;0;0;
2;124;992;0;0;2;0;SECOND LEVEL PARAS
3;91;0;0;0;1;0;SECOND LEVEL PARAS
4;124;922;0;0;2;0;
5;91;0;0;0;2;0;ORDERS
6;124;987;0;0;2;0;
7;91;0;0;0;3;0;FIRST LEVEL PARAS
8;0;987;0;0;0;0;
9;31;0;0;0;0;2;
10;5;921;9;0;0;0;
11;0;992;0;0;0;0;
12;31;0;0;0;0;2;
13;5;921;15;0;0;0;
14;90;0;0;0;5;0;
15;C;0;0;0;0;6;
16;90;0;0;0;8;0;
17;C;0;0;0;0;3;
18;80;920;0;0;0;0;gO/P PTS(2)
19;10;0;0;0;0;5358596773;CHIPT'
20;5;8;12;1;0;0;
21;80;919;0;0;0;0;gWRITE
22;80;920;0;0;0;0;gO/P PTS(3)
23;76;882;13;0;0;0;gO/P'PREND'
SHEET;821
PROCR;919;WRITE8->A2
0;81;919;0;0;0;0;
1;10;0;0;0;0;7.0000007.;
2;5;8;52;1;0;0;
3;43;A2;0;0;0;0;
4;C;8;0;0;0;0;
5;54;8;4;1;0;50;
6;82;919;0;0;0;0;
SHEET;822
PROCR;920;WRITE CHUNK.SR
0;81;920;0;0;0;0;
1;96;0;0;0;2;0;STORE CHUNK START FOR PARAS 1 AND 5
2;5;921;0;0;0;0;
3;124;921;0;0;1;0;
4;101;0;0;1;3;0;
5;5;921;4;0;0;0;CHUNK START
6;124;999;19;1;2;0;
7;124;0;0;0;2;0;
8;3;919;0;0;0;0;
9;101;0;48;1;1;0;
10;30;0;0;0;0;5;
11;1;919;0;0;0;0;
12;91;0;0;0;4;0;
13;124;921;2;0;3;0;STORE WORD
14;106;0;0;0;2;0;
15;5;921;5;0;0;0;STORE WORD
16;34;921;8;1;0;0;FIRST LEVEL PARA WORD
17;33;0;0;0;0;3;NEXT ONE TO A
18;100;921;6;1;0;0;STORE (A) (B) ( C)
19;94;920;27;0;5;1;TEST END OF PARA WORD
20;90;0;0;0;5;0;SET UP MR FOR
21;C;0;0;0;0;6;NEXT PARA WORD
22;124;921;2;0;3;0;STORE PARA WORD
23;106;0;1;0;3;0;STORE PARA WORD
24;33;0;0;0;0;2;RIGHT ALIGN WORD
25;5;921;9;0;0;0;
26;94;920;27;0;3;1;STEP PARAS MR
27;;921;6;0;0;0;TEST DUMMY PARA
28;12;0;0;0;0;6;
29;70;920;16;0;0;0;gYES
30;12;0;0;0;0;1;TEST SECOND LEVEL REQD
31;71;920;55;0;0;0;gNO
32;34;921;14;1;0;0;SECOND LEVEL PARA WORD
33;33;0;0;0;0;6;NEXT ONE TO A
34;100;921;12;1;0;0;STORE (A) (B) ( C)
35;94;920;43;0;8;1;TEST END OF PARA WORD
36;90;0;0;0;8;0;SET UP MR FOR
37;C;0;0;0;0;3;NEXT PARA WORD
38;124;921;2;0;3;0;STORE PARA WORD
39;106;0;1;0;1;0;
40;33;0;0;0;0;2;RIGHT ALIGN WORD
41;5;921;15;0;0;0;
42;94;920;43;0;1;1;STEP PARAS MR
43;;921;12;0;0;0;TEST SECOND LEVEL
44;101;0;63;1;2;0;PARA=63(DUMMY)
45;70;920;32;0;0;0;gYES
46;101;0;1;1;1;0;TEST END SIGN(62)
47;71;920;53;0;0;0;gNO
48;;921;2;1;0;0;STORE END SIGN
49;5;0;4;1;4;0;
50;5;0;6;1;4;0;
51;80;919;0;0;0;0;gWRITE LAST BLOCK
52;82;920;0;0;0;0;gLEAVE S/R
53;;921;12;1;0;0;STORE ACTUAL PARA
54;5;921;6;1;0;0;VALUE
55;;921;6;0;0;0;TEST PARA=1
56;12;0;0;0;0;1;
57;70;920;60;0;0;0;gYES
58;12;0;0;0;0;1;
59;71;920;70;0;0;0;gNO
60;101;0;8191;1;3;0;
61;32;0;0;0;0;10-;
62;36;921;5;0;0;0;INSTRUCTION 13-BIT ADDRESS
63;101;987;0;1;2;0;PTS(2,3)END
64;73;920;78;0;0;0;gNORMAL ORDER NOT ADDRESSING PTS(1)
65;35;0;0;0;0;11111;
66;10;0;0;0;0;0;
67;36;921;5;0;0;0;
68;101;757;0;1;2;0;PTS(2,3)START IN PTS(1)
69;37;921;5;0;0;0;
70;;921;5;0;0;0;
71;5;0;6;2;4;0;
72;;921;6;0;0;0;
73;5;0;4;2;4;0;
74;94;920;75;0;2;1;WORD MR
75;94;920;13;0;4;4;>NEXT WORD
76;80;919;0;0;0;0;
77;76;920;6;0;0;0;gNEXT BLOCK
78;101;987;0;1;1;0;
79;2;921;4;0;0;0;13-BIT CHUNK START
80;76;920;69;0;0;0;
SHEET;823
CONST;921;1;CONSTANTS
0;(D);
2;(A)£    ;
4;(D)0;CHUNK START/ORDER
6;0;A
8;0;B
10;0;C
12;0;A
14;0;B
16;0;C
SHEET;824
PROCR;922;2001 WRITE START BLOCK
0;124;922;30;1;0;0;>FROM PASS1
1;124;923;0;1;0;0;>FROM PROGRAMME
2;124;935;0;1;0;0;>FROM OPT 20 AND ABDON
3;124;937;0;1;0;0;>FROM OVERLAY(END)
4;76;939;0;0;0;0;gFROM OVERLAY(START)
5;10;0;0;0;0;2;(FROM PROGRAM UNLOAD)
6;5;741;0;0;0;0;SET 'END' IND
7;76;931;2;0;0;0;
8;100;0;0;0;0;0;LINK
9;124;755;0;0;3;0;PROG ID
10;106;0;39;0;0;0;WL
11;5;932;0;0;0;0;
12;124;922;20;0;2;0;
13;128;751;32;1;2;0;
14;124;751;32;0;2;0;
15;125;0;4096;1;1;0;
16;124;951;6;0;3;0;
17;123;0;168;0;2;0;
18;100;951;6;0;3;0;
19;126;922;8;0;1;0;
20;100;953;6;0;0;0;'PTS' ('OP')
21;101;0;515;0;0;0;2/0/3(0/0/3)
22;100;953;0;0;0;0;'ABAND'
23;101;0;21;0;0;0;1/5
24;100;953;2;0;0;0;'ONS'
25;101;0;3;0;0;0;
26;100;932;0;0;0;0;PROG ID
27;100;0;21;0;0;0;1/5
28;100;953;2;0;0;0;DOUBLE LE
29;117;0;770;0;0;0;3/0/2
30;100;950;4;0;2;0;
31;101;0;7;1;3;0;
32;126;749;0;0;0;0;
33;124;950;6;1;2;0;
34;106;0;4;1;0;0;
35;105;953;4;1;0;0;
36;127;922;41;0;0;0;>YES
37;124;950;6;1;2;0;
38;106;0;12;1;0;0;
39;105;951;2;1;0;0;
40;127;922;30;0;1;0;>NO
41;100;954;0;0;2;0;
42;101;0;44;1;3;0;
43;126;749;0;0;0;0;>STEP BACK 1 I/P>
44;124;952;12;0;2;0;SET UP
45;102;930;9;0;0;0;IND MOD REG
46;124;952;14;0;2;0;AND ANOTHER
47;102;933;8;0;0;0;
48;0;755;0;0;0;0;SWITCH START
49;101;0;39;1;1;0;
50;5;952;10;0;0;0;ADDRESS OF PROG ID
51;124;952;0;0;2;0;
52;124;950;6;1;2;0;-123
53;128;0;4;1;2;0;EDIT 'START' BLOCK
54;126;942;0;0;0;0;>WRITE BLOCK, SET TAG 15
55;125;0;4096;1;1;0;SET NON INT
56;0;955;4;1;0;0;
57;124;755;4;0;3;0;8X MOD GROUP
58;128;0;2;0;0;0;CLEAR PROGS MOD REGISTERS
59;10;0;0;0;0;£;
60;3;744;73;0;0;0;SET 'PROG IN CONTROL'
61;5;949;9;0;0;0;SET 'STATE OF TAPE' IND
62;100;755;6;1;1;0;RESTORE ORIGINAL (ABC)
63;126;755;5;0;3;0;>GO TO PROGS ENTRY POINT
SHEET;825
PROCR;923;2002 ENTRY FROM PM POINT VIA 172-STORE LINKS, TEST TIME FOR PM
0;100;952;0;1;0;0;(ABC)>WL AND PROG SWITCH
1;124;755;0;0;3;0;
2;100;0;30;1;0;0;
3;100;951;6;0;3;0;BIN
4;106;955;0;1;0;0;STORE CONTENTS OF
5;104;755;4;0;0;0;PROG'S MOD REGS
6;128;952;6;0;0;0;
7;5;744;73;0;0;0;SET 'PTS IN CONTROL'
8;101;0;15;0;1;0;
9;124;951;6;0;3;0;
10;115;0;172;0;0;0;ADDRESS OF PM SR LINK
11;101;0;4;1;2;0;
12;102;952;5;0;0;0;
13;124;952;5;0;3;0;STORE PM SR LINK-1
14;106;0;0;0;0;0;
15;101;0;1;1;2;0;
16;102;949;4;0;0;0;
17;80;946;0;0;0;0;gSET MR2 TO SCAN PM LIST
18;106;0;0;0;2;0;
19;105;949;4;0;0;0;
20;71;924;26;0;0;0;gNO, STEP R2
21;106;0;6;1;2;0;TEST NOTHING TO DUMP
22;70;924;3;0;0;0;gRETURN TO PROG
23;10;0;0;0;0;0;
24;101;0;3;0;1;0;COLLATE N1
25;115;0;4;0;2;0;
26;127;924;0;0;1;0;>NO
27;101;0;6;0;1;0;
28;115;0;5;0;2;0;
29;71;926;0;0;0;0;gNO,TAKE A DUMP
SHEET;826
PROCR;924;RETURN TO PROGRAM AFTER DUMP OR IF NOT DUMPING THIS TIME
0;106;0;4;0;2;0;AUGMENT N1 BY -1
1;101;0;1;1;2;0;
2;102;0;4;0;2;0;
3;101;0;8;0;1;0;AUGMENT LINK BY
4;115;0;5;0;2;0;24 ACTION IND
5;118;0;4125;0;0;0;
6;124;952;5;0;3;0;
7;107;0;0;0;0;0;
8;106;0;2;0;2;0;REPLACE INSTRUCTIONS
9;124;952;5;0;3;0;
10;102;0;4;0;0;0;
11;106;0;3;0;2;0;
12;124;952;5;0;3;0;
13;102;0;5;0;0;0;
14;102;949;0;1;0;0;CLEAR W/L'S 1,2
15;102;949;2;0;0;0;AND 3
16;106;956;0;1;0;0;
17;124;755;4;0;3;0;PROG'S MOD REGS
18;128;0;2;0;0;0;
19;125;0;4096;1;1;0;
20;10;0;0;0;0;1;
21;5;744;73;0;0;0;SET'PROG IN CONTROL'
22;76;924;23;0;0;0;DUMMY
23;100;952;0;1;1;0;RESTORE A;B;C
24;124;951;6;0;3;0;
25;126;0;172;0;3;0;>RETURN TO PROGRAM VIA PTS SR
26;125;0;18;0;2;0;
27;76;923;18;0;0;0;gNEXT PM POINT
28;126;922;8;0;0;0;>TYPE'PTS ABANDONS(PROG)'
29;76;935;8;0;0;0;gCONTINUE AS IF ABDON COMMAND
SHEET;827
PROCR;925;2004 TYPE'PTS ABANDONS(PROG)'
SHEET;828
PROCR;926;2005 SET UP HEADING BLOCK
0;101;0;16;1;2;0;STEP N3 BY -1
1;114;0;5;0;2;0;
2;106;949;9;0;0;0;
3;127;926;5;0;1;0;>YES
4;126;948;0;0;0;0;>RUN FORWARD TO FINIS:STEP BACK 1
5;101;0;15;1;3;0;SET STATE OF TAPE INAT 15
6;102;949;9;0;0;0;
7;101;0;24;0;1;0;SET N1=N2
8;115;0;4;0;2;0;
9;118;0;4125;0;0;0;
10;107;0;4;0;2;0;
11;125;0;0;1;2;0;
12;101;0;16;0;1;0;
13;115;0;5;0;2;0;
14;103;949;2;0;0;0;COPY TAPE TO W/L 3
15;105;950;0;0;0;0;
16;127;926;19;0;1;0;>NO
17;106;950;0;0;0;0;
18;124;935;14;1;0;0;>YES
19;126;947;0;0;0;0;>TRANSFER CONTENTS OF MOD REGS TO O/P SE
20;106;0;1;0;2;0;;TRANSFER I/C SERIAL
21;124;950;6;1;2;0;;TO O/P SECN
22;102;0;9;1;0;0;
23;126;951;6;1;1;0;SET(MR1)=10/0
24;126;951;8;1;3;0;SET(MR3)=5/0
25;106;952;0;0;3;0;;TRANSFER CONTENTS
26;124;950;6;1;2;0;;OF (A), (B), C) TO
27;102;0;11;1;1;0;;O/P SECN
28;125;0;2;0;1;0;STEP MR1
29;124;926;30;1;0;0;>
30;125;0;1;0;3;0;STEP MR3
31;124;926;25;1;0;0;>
SHEET;829
PROCR;927;2006 SET UP HEADING BLOCK (2)
0;101;0;1;1;3;0;SET HEADING IND
1;102;949;5;0;0;0;
2;106;951;10;1;0;0;SET IND MOD AT 12/0
3;102;952;12;1;0;0;
4;106;949;2;0;0;0;TRANSFER PM TYPE TO SECN
5;124;950;6;1;2;0;
6;103;0;7;1;0;0;;TEST PM TYPE 6
7;105;950;7;0;0;0;
8;127;933;0;0;0;0;>YES
9;127;927;18;0;2;0;>YES;TEST TYPE >6
10;30;0;0;0;0;4-;
11;101;0;2;1;1;0;;TEST TYPE 4
12;127;927;15;0;0;0;>YES
13;101;0;2;1;1;0;;TEST TYPE 2
14;127;927;21;0;1;0;>NO
15;101;0;1;1;3;0;SET COMP DUMP TAKEN
16;102;949;7;0;0;0;
17;124;927;21;1;0;0;>
18;103;949;8;0;0;0;SET CLEO DUMP TAKEN IND
19;105;950;1;0;0;0;;TEST TYPE 9 DUMP
20;127;933;0;0;0;0;>YES
21;124;952;12;0;1;0;;TEST ZERO CHAP
22;106;0;6;0;2;0;;OR SECN START
23;127;930;11;0;0;0;>YES END OF DUMP
24;127;927;32;0;2;0;>NO;TEST IF TRANSIT AREA
25;106;952;12;0;0;0;
26;124;755;4;0;3;0;
27;104;0;4;0;0;0;
28;102;949;3;0;0;0;W/L
29;124;949;3;0;1;0;
30;124;0;6;0;3;0;
31;106;0;0;0;0;0;TRANSIT AREA START
32;118;0;6;0;0;0;FORM UP 13 BIT ADD 
33;118;0;4122;0;0;0;OF SECTION OR CHAP START
34;103;952;16;0;0;0;;SET (MR1) AT START/S
35;124;950;6;1;2;0;;+LENGTH
36;103;0;33;1;0;0;;TRANSFER (MR1) TO
37;124;952;12;0;1;0;;O/P SECN
38;104;0;7;0;2;0;SECTION LENGTH
39;118;0;6;0;0;0;FORM UP 15 BIT ADD 
40;118;0;4122;0;0;0;OF SECTION END
41;103;952;17;0;0;0;
42;124;950;6;1;2;0;
43;102;0;35;1;0;0;
44;101;0;3;0;1;0;
45;124;952;12;0;1;0;
46;115;0;8;0;2;0;CHAP OR SECN NO
47;126;941;0;0;0;0;>CONVERT TO DEC
48;124;950;6;1;2;0;
49;107;0;7;1;0;0;
SHEET;830
PROCR;928;2007 OUTPUT THIS DUMP'S HEADING BLOCK
0;106;949;5;0;0;0;
1;127;928;7;0;0;0;>NO
2;125;0;0;1;2;0;CLEAR IND
3;102;949;5;0;0;0;
4;101;0;4096;1;3;0;SET IND IN O/P SECN
5;124;950;6;1;2;0;1 IN Q4
6;107;0;7;1;0;0;32=ABS START,34=ABS END AREA DUMPED
7;106;951;0;1;0;0;4='DUMPS',36=BEW
8;124;950;6;1;2;0;(6)Q1+2=DEC SEC/CHAP,Q4=HEAD IND
9;102;0;4;1;0;0;Q5=DUMP TYPE
10;106;951;16;1;0;0;10,12,14=(ABC) 8=PM POINT
11;124;950;6;1;2;0;
12;102;0;36;1;0;0;BEW
13;126;942;0;0;0;0;>WRITE BLOCK S/R
SHEET;831
PROCR;929;2008 MAIN DUMP ROUTINE
0;126;943;0;0;0;0;>SET (MR3)=(123)+48/(123)
1;106;949;1;0;0;0;
2;127;934;0;0;1;0;>YES
3;101;0;20;1;3;0;SET ABSURD TAG
4;102;951;20;0;0;0;
5;124;952;16;0;3;0;
6;123;0;0;0;3;0;
7;105;951;20;0;0;0;
8;127;929;16;0;0;0;>NO
9;107;951;20;0;0;0;STORE NEW TAG
10;106;951;20;1;0;0;TRANSFER TAG CHANGE
11;102;0;4;1;3;0;WORD TO O/P SECN
12;102;0;6;1;3;0;
13;125;0;4;0;3;0;
14;124;929;16;1;0;0;>NO
15;126;944;0;0;0;0;>OUTPUT BLOCK AND
16;106;951;12;1;0;0;
17;104;952;16;0;0;0;
18;124;755;4;0;3;0;
19;124;0;6;0;1;0;COPY LONG WORD
20;128;0;5;0;1;0;TO O/P SECN
21;126;952;16;1;1;0;
22;125;0;2;0;1;0;
23;124;929;25;1;0;0;>NO
24;124;930;0;1;0;0;>YES
25;101;0;2;1;3;0;STEP INDIRECT MOD
26;107;952;16;0;0;0;
27;106;952;16;0;0;0;TEST IF SECN ENDS AT 7/8191
28;118;0;4124;0;0;0;
29;127;930;0;0;1;0;>YES
30;125;0;4;0;3;0;
31;124;929;5;1;0;0;>NO
32;126;944;0;0;0;0;>OUTPUT BLOCK AND RESET (MR3)
33;124;929;5;1;0;0;>
SHEET;832
PROCR;930;2009 END OF DUMPS
0;125;0;4;0;3;0;
1;124;930;2;1;0;0;
2;126;944;0;0;0;0;>WRITE BLOCK
3;106;952;17;0;0;0;
4;2;941;7;0;0;0;
5;127;936;4;0;0;0;>YES
6;106;949;0;0;0;0;
7;127;930;14;0;1;0;>YES
8;123;0;3;0;0;0;
9;100;952;12;0;0;0;
10;124;927;4;1;0;0;>NO
11;;745;47;0;0;0;
12;70;924;3;0;0;0;gNORMAL
13;76;935;8;0;0;0;gDO FINAL DUMP AFTER THIS
14;126;952;12;1;1;0;
15;125;0;1;0;1;0;
16;124;930;21;1;0;0;>NO
17;106;949;2;0;0;0;
18;70;931;0;0;0;0;gYES,END OF FINAL DUMP
19;125;0;0;1;2;0;
20;76;930;11;0;0;0;gTHIS WAY FOR TYPE 5
21;101;0;1;1;3;0;STEP IND MOD
22;107;952;12;0;0;0;
23;124;936;4;1;0;0;>
SHEET;833
PROCR;931;2010 ENTRY FROM PROGRAMUNLOAD
0;5;741;0;0;0;0;SET'ABDON'IND
1;125;0;4096;1;1;0;
2;5;744;73;0;0;0;SET 'PTS IN CONTROL'
3;;949;8;0;0;0;TEST CLEO DUMP TAKEN
4;127;931;12;0;1;0;>YES
5;124;951;6;0;3;0;TEST BTS PRINTS ON-LINE
6;106;0;26;0;0;0;(3)
7;127;931;12;0;0;0;>NO
8;12;0;0;0;0;1;
9;71;932;15;0;0;0;gYES O'LAY PASS 3
10;106;949;7;0;0;0;TEST ANY DUMPS 2 OR 4 TAKEN(COMPARISONS)
11;127;932;15;0;1;0;>YES O'LAY PASS 3
12;106;949;9;0;0;0;
13;127;931;15;0;1;0;>YES
14;80;948;0;0;0;0;gGET TO'FINIS'BEFORE CLOSING FILE
15;101;0;28;1;3;0;
16;126;749;0;0;0;0;>CLOSE RTE 7 TAPE
17;125;0;4096;1;1;0;SET NON INT
18;0;745;47;0;0;0; '2/0/1' IND
19;71;745;51;0;0;0;gYES
20;0;741;0;0;0;0; 'PROG END' IND
21;70;745;48;0;0;0;gNO
22;0;745;83;0;0;0;1/1/3 2
23;5;745;58;0;0;0;
24;76;745;48;0;0;0;
25;10;0;0;0;0;0;DUMMY ORDER
SHEET;834
PROCR;932;2011 PREPARE TO READ IN PASS 3
0;100;0;0;0;0;0;LINK
1;106;949;9;0;0;0;TEST TAPE ALIGNED 
2;127;932;14;0;0;0;>NO
3;100;951;26;1;2;0;RUN BACK TO START 
4;101;0;35;1;3;0;(O/P) 
5;126;749;0;0;0;0;
6;101;0;10;1;3;0;10=WORD HOLDING IDENTIFIER
7;30;0;0;0;0;5;
8;124;744;70;0;3;0;
9;104;0;55;0;0;0;(3)
10;32;0;0;0;0;10-;
11;101;0;36;1;3;0;
12;126;749;0;0;0;0;>
13;101;0;1;1;3;0;
14;126;932;0;0;1;0;>LEAVE S/R
15;101;0;40;1;3;0;
16;34;744;68;0;0;0;
17;106;749;0;0;0;0;DUMMY
18;80;932;0;0;0;0;gALIGN TAPE
19;100;950;4;0;2;0;READ TO START 
20;101;0;7;1;3;0;OF PASS 3 OF 
21;126;749;0;0;0;0;>READ
22;124;950;6;1;2;0;
23;106;0;12;1;0;0;
24;105;951;24;1;0;0;
25;71;932;19;0;0;0;gNOT AT 'CHIPT' YET
26;0;745;47;0;0;0;'2/0/1' IND
27;70;744;0;0;0;0;gNOT SET, NORMAL OLAY
28;125;0;4096;1;1;0;
29;126;749;7;0;0;0;>SET(71)FOR MASTER
30;101;0;40;1;3;0;
31;34;744;68;0;0;0;
32;80;749;0;0;0;0;gBACK 1 I/P>I/P
33;125;0;4096;1;1;0;
34;124;755;0;0;3;0;CLOSE PROGM SWITCH
35;106;0;9;0;0;0;
36;124;755;0;0;3;0;
37;102;0;7;0;0;0;
38;124;744;70;1;1;0;MG 0
39;76;744;18;0;0;0;gCONTINUE WITH OLAY
SHEET;835
PROCR;933;2012 FORM UP NUMBER OF TRACE POINTS
0;101;0;1;1;3;0;SET W/L 2 NON ZERO
1;102;949;1;0;0;0;
2;106;951;10;1;0;0;SET IND MOD=12:0
3;102;952;14;1;0;0;TEST I/C SERIAL 
4;124;952;14;0;1;0;
5;106;0;7;0;2;0;
6;127;933;10;0;0;0;>YES
7;123;0;2;0;0;0;TEST END OF TRACE PT 
8;100;952;14;0;0;0;
9;124;933;4;1;0;0;>NO
10;106;952;14;0;0;0;
11;124;950;6;1;2;0;TRANSFER 2XNO OF
12;102;0;35;1;0;0;TRACE PTS TO O/P SECN
13;124;950;6;1;2;0;
14;102;0;33;1;0;0;
15;106;952;14;0;0;0;SET IND MOD AT 2XNO OF TRACE PTS/0
16;118;0;5;0;0;0;
17;102;952;12;1;0;0;
18;124;928;0;1;0;0;g
SHEET;836
PROCR;934;2013 DUMP TRACE POINTS
0;125;0;0;1;2;0;
1;100;950;10;0;2;0;BIT 20   TEST SEC OR PROCR
2;124;952;12;0;1;0;
3;115;0;7;0;2;0;
4;127;934;14;0;0;0;gPROCR
5;125;0;0;1;2;0;
6;100;950;11;0;2;0;BITS 14->19
7;124;952;12;0;1;0;0
8;115;0;7;0;2;0;REF
9;118;0;3;0;3;0;
10;118;0;4124;0;0;0;
11;102;0;7;1;3;0;
12;100;950;9;0;2;0;BITS 1->13
13;124;934;20;1;0;0;g
14;101;0;28;0;1;0;Q3,4,5
15;124;952;12;0;1;0;
16;115;0;7;0;2;0;REF
17;118;0;4126;0;0;0;
18;102;0;7;1;3;0;
19;101;0;3;0;1;0;
20;124;952;12;0;1;0;
21;115;0;7;0;2;0;ITEM
22;102;0;5;1;3;0;
23;101;0;15;0;1;0;
24;124;952;12;0;1;0;TRANSFER REL ADD TO
25;115;0;6;0;2;0;O/P SECN
26;102;0;9;1;3;0;
27;101;0;16;0;1;0;
28;124;952;12;0;1;0;FORM UP 2X CHAP NO
29;115;0;6;0;2;0;
30;118;0;4124;0;0;0;
31;118;0;1;0;3;0;
32;126;945;0;0;0;0;gFORM UP CHAP START
33;102;952;14;1;0;0;START+END
34;106;952;14;0;0;0;START ONLY
35;104;0;9;1;3;0;
36;103;0;11;1;3;0;TRANSFER ABS ADD TO O/P SECN
37;103;949;3;0;0;0;W/L
38;118;0;3;0;3;0;ROUND DOWN TO EVEN ADDRESS
39;118;0;4127;0;0;0;
40;118;0;1;0;3;0;
41;104;951;12;1;0;0;
42;104;951;12;1;0;0;
43;124;755;4;0;3;0;COPY 2 LONG WORDS
44;124;0;6;0;1;0;
45;128;0;13;0;1;0;
46;124;949;3;0;3;0;TFRANSFER TAG TO O/P SECN
47;123;0;0;0;3;0;
48;101;0;64;1;1;0;
49;118;0;8;0;0;0;
50;104;0;6;1;3;0;
51;102;0;6;1;3;0;
52;126;952;12;1;1;0;TEST END OF TRACE POINTS
53;125;0;2;0;1;0;
54;124;934;59;1;0;0;gNO
55;106;951;16;1;0;0;SET UP B/E WORD
56;102;0;20;1;3;0;
57;126;942;0;0;0;0;gWRITE BLOCK
58;124;924;3;1;0;0;g
59;101;0;2;1;3;0;STEP IND MOD
60;107;952;12;0;0;0;
61;125;0;16;0;3;0;TEST END OF BLOCK
62;124;934;0;1;0;0;gNO
63;126;944;0;0;0;0;gOUTPUT BLOCK AND RESET (MR3)
64;124;934;0;1;0;0;g
SHEET;837
PROCR;935;2014 FROM UNLOADER WHEN PROG IS ABANDONED
0;10;0;0;0;0;0;
1;5;744;73;0;0;0;SET 'PTS IN CONTROL'
2;106;955;0;1;0;0;STORE CONTENTS
3;104;755;4;0;0;0;OF PROGS MOD
4;128;952;6;0;0;0;REGS
5;124;951;6;0;3;0;SET PROGS MOD
6;124;0;2;0;3;0;GROUP
7;124;0;29;1;1;0;
8;126;947;0;0;0;0;gTRANSFER CONTENTS OF MOD REGS TO O/P SE
9;125;0;0;1;2;0;
10;102;949;2;0;0;0;CLEAR DUMP TYPE OF DUMP IN PROGRESS
11;106;950;2;0;0;0;10 IN Q5
12;103;949;5;0;0;0;SET HEADING IND
13;103;949;6;0;0;0;SET TYPE 7 IND
14;102;949;0;0;0;0;STORE TYPE IN W/L 1
15;0;949;9;0;0;0;TEST TAPE ALIGNED AT END OF DUMPS
16;71;936;0;0;0;0;gYES
17;80;948;0;0;0;0;gRUN FWD TO 'FINIS'
18;10;0;0;0;0;p;
19;5;949;9;0;0;0;SET ALIGN IND
SHEET;838
PROCR;936;2015 INITIAL AND FINAL DUMPS
0;101;0;1;1;3;0;SET IND MOD AT
1;103;952;12;0;0;0;NO OF CHAPS+1/1
2;104;755;3;0;0;0;
3;102;952;13;0;0;0;
4;106;949;0;0;0;0;TRANSFER PM TYPE
5;124;950;6;1;2;0;TO O/P SECN
6;102;0;7;1;0;0;
7;106;949;6;0;0;0;TEST TYPE 7 IND SET
8;127;936;18;0;0;0;gNO
9;0;941;7;0;0;0;PQ END    FINAL DUMP
10;103;952;17;0;0;0;
11;124;950;6;1;2;0;SET MOD REG IN O/P SECN
12;102;0;35;1;0;0;AT 600:0
13;102;952;16;0;0;0;
14;124;950;6;1;2;0;
15;102;0;32;1;0;0;
16;102;949;6;0;0;0;CLEAR TYPE 7 IND
17;76;928;0;0;0;0;gJOIN UP WITH MAIN DUMP ROUTINE
18;0;952;12;0;0;0;CHAP NO    INITIAL DUMP
19;124;950;6;1;2;0;
20;107;0;7;1;0;0;
21;104;952;12;0;0;0;
22;126;945;0;0;0;0;.FORM UP CHAP START AND END
23;103;952;16;1;0;0;
24;124;950;6;1;2;0;
25;102;0;33;1;0;0;
26;106;952;17;0;0;0;
27;124;950;6;1;2;0;
28;102;0;35;1;0;0;
29;76;928;0;0;0;0;gJOIN UP WITH MAIN DUMP ROUTINE
SHEET;839
PROCR;937;2016 ENTRY AT END OF PROGRAM OVERLAY
0;126;946;0;0;0;0;>SET UP (MR2)
1;124;755;0;0;3;0;STORE OVERLAYED CHAP
2;106;0;32;0;0;0;
3;103;949;0;0;0;0;
4;104;949;0;0;0;0;SET (MR1) AI
5;104;755;1;0;0;0;((2XCHAP NO)+SP CHAP START
6;102;952;14;0;0;0;
7;126;952;14;1;1;0;
8;124;755;0;0;3;0;
9;106;0;30;0;0;0;TEST O'LAYING CHAP 
10;105;755;3;0;0;0;AN INITIAL CHAP 
11;127;937;13;0;3;0;>YES
12;101;0;1;1;2;0;
13;104;755;3;0;0;0;STORE CORRECTED O'LAYING
14;102;949;1;0;0;0;CHAP NO
15;101;0;1;0;1;0;TEST PM PT DETAILS 
16;115;0;5;0;2;0;ZERO 
17;127;937;27;0;0;0;>YES
18;105;949;1;0;0;0;TEST O'LAYING CHAP 
19;127;938;0;0;0;0;>YES
20;104;949;1;0;0;0;
21;105;949;0;0;0;0;TEST OVERLAID 
22;127;937;25;0;1;0;>NO
23;105;0;0;0;2;0;SET PM POINT CLOSED
24;102;0;0;0;2;0;
25;125;0;18;0;2;0;TEST ALL PTS 
26;124;937;1;1;0;0;CHECKED >NO
27;102;949;0;1;0;0;CLEAR WLS
28;102;949;2;0;0;0;
29;102;949;9;0;0;0;CLEAR STATE OF TAPE IND
30;10;0;0;0;0;0;DUMMY ORDER
31;126;749;7;0;0;0;>RESTORE(71)FOR PTS
32;124;951;6;0;3;0;
33;124;0;0;1;0;0;(40)
SHEET;840
PROCR;938;2017
0;101;0;4;0;1;0;TEST PM POINT 
1;115;0;4;0;2;0;NOT YET USED 
2;127;938;7;0;0;0;>YES
3;125;0;0;1;2;0;
4;105;0;0;0;2;0;SET PM POINT
5;102;0;0;0;2;0;OPEN
6;124;938;39;1;0;0;>
7;106;949;0;0;0;0;SET ALLOCATED CHAP
8;118;0;2;0;0;0;NO IN LIST
9;114;0;4;0;2;0;
10;124;951;6;0;3;0;
11;106;0;18;0;1;0;FORM ABS ADD OF
12;104;0;0;0;2;0;PM POINT
13;103;0;0;0;2;0;
14;102;952;14;0;0;0;
15;126;952;14;1;3;0;
16;124;951;6;0;3;0;
17;106;0;0;0;3;0;STORE REPLACED INSTRUCTION
18;103;0;2;0;2;0;
19;127;938;32;0;2;0;gYES      TEST ACTION POSITIVE
20;105;0;2;0;2;0;FORM COMPLEMENT
21;105;0;2;0;2;0;OF ACTION
22;118;0;3;0;3;0;ALIGN INSTRUCTION
23;118;0;4124;0;1;0;AT LEAST SIG END
24;101;0;64;1;2;0;
25;127;938;34;0;0;0;g24/0/0
26;101;0;1;1;2;0;
27;127;938;34;0;0;0;g24/0/1
28;101;0;2;1;2;0;
29;127;938;34;0;0;0;g24/0/3
30;101;0;3;1;2;0;
31;127;938;34;0;0;0;g24/1/2
32;0;950;5;0;0;0;25/01/2000
33;124;938;38;1;0;0;g
34;101;0;4096;1;3;0;SET 24 ACTION IND
35;107;0;5;0;2;0;IN LIST
36;124;951;6;0;3;0;
37;106;0;1;0;3;0;STORE NEXT INSTRUCTION
38;102;0;3;0;2;0;
39;106;0;0;0;2;0;
40;102;952;14;0;0;0;
41;126;952;14;1;3;0;
42;34;950;9;0;0;0;BITS 1-13
43;124;951;6;0;3;0;
44;115;0;18;0;1;0;
45;5;949;2;0;0;0;
46;2;949;2;0;0;0;
47;2;755;2;0;0;0;(PARAS+1)
48;1;950;8;0;0;0;26/0/0
49;124;951;6;0;3;0;
50;102;0;0;0;3;0;INSERT ENTRY POINT
51;76;937;25;0;0;0;
SHEET;841
PROCR;939;2017A ENTRY AT START OF PROGRAM OVERLAY
0;80;932;0;0;0;0;gRUN BACK TO M/CODE START
1;126;749;7;0;0;0;gSET(71)FOR MASTER
2;10;0;0;0;0;0;DUMMY
3;0;949;9;0;0;0;REALIGNMENT IND
4;124;951;6;0;3;0;
5;124;0;0;1;0;0;(45)->DO OVERLAY
SHEET;842
PROCR;940;2018 INSTRUCTION CONSTANTS FOR PASS 2
SHEET;843
PROCR;941;2019 CONVERT S/R
0;100;0;0;0;0;0;
1;102;949;3;0;0;0;W/L
2;100;950;3;0;3;0;SET DECIMAL
3;124;954;0;0;2;0;
4;112;949;3;0;0;0;CONVERT TO DECIMAL
5;100;951;6;0;3;0;SET BINARY
6;126;941;0;0;1;0;
7;100;0;0;0;0;0;(49)CONST IN PROCR 2015=PQ END
SHEET;844
PROCR;942;2020 WRITE S/R
0;100;0;0;0;0;0;
1;100;950;4;0;2;0;
2;101;0;8;1;3;0;
3;126;749;0;0;0;0;gI/P-O/P FOR RTE 7 S/R
4;106;955;2;1;0;0;BULK CLEAR O/P SECN
5;124;950;6;1;2;0;
6;128;0;0;1;1;0;
7;125;0;4096;1;1;0;
8;10;0;0;0;0;0;DUMMY ORDER
9;124;951;6;0;3;0;
10;126;0;0;0;0;0;(42)->SET TAG 15
11;126;942;0;0;1;0;gLEAVE S/R
SHEET;845
PROCR;943;2021 SET UP (MR3) S/R
0;100;0;0;0;0;0;LINK
1;124;950;6;1;2;0;-123
2;101;0;0;1;3;0;13-BIT ASL
3;103;952;14;0;0;0;48+(123)/(123)
4;101;0;48;1;1;0;
5;102;952;15;0;0;0;
6;126;952;14;1;3;0;
7;126;943;0;0;1;0;
SHEET;846
PROCR;944;2022 OUTPUT BLOCK AND RESET(MR3)S/R
0;100;0;0;0;0;0;
1;106;951;16;1;0;0;SET UP B/E WORD
2;102;0;4;1;3;0;
3;126;942;0;0;0;0;gWRITE BLOCK
4;126;943;0;0;0;0;gRESET (MR3)
5;126;944;0;0;1;0;gLEAVE S/R
SHEET;847
PROCR;945;2023 FORM UP CHAP START AND END S/R
0;81;945;0;0;0;0;
1;3;949;3;0;0;0;2XCHAP
2;1;755;1;0;0;0;SPECIAL CHAP START
3;5;946;0;0;0;0;WL
4;124;951;6;0;3;0;
5;106;0;43;0;0;0;(3)PARA 43=TWICE PTS CHAP IN Q5
6;30;0;0;0;0;4-;
7;2;949;3;0;0;0;
8;70;945;11;0;0;0;gTHIS CHAP CONTAINS PTS
9;10;0;0;0;0;0;
10;76;945;13;0;0;0;
11;101;0;1500;1;2;0;REDUCE CHAP END BY PTS LENGTH
12;30;0;0;0;0;5;
13;124;946;0;0;3;0;
14;104;0;18;1;0;0;CHAP DETAILS EX SPECIAL CHAPTER
15;82;945;0;0;0;0;
SHEET;848
PROCR;946;2024 SET UP(MR2) S/R
0;100;0;0;0;0;0;
1;101;752;0;1;3;0;START OF LIST
2;103;952;14;0;0;0;W/L
3;101;0;180;1;1;0;
4;102;952;15;0;0;0;
5;126;952;14;1;2;0;
6;126;946;0;0;1;0;>LEAVE S/R
7;100;0;4097;1;0;0;CONST=09001(PROCR 2001)
SHEET;849
PROCR;947;2025 TRANSFER CONTENTS OF MOD REGS TO O/P SECN
0;100;0;0;0;0;0;
1;126;951;10;1;1;0;SET (MR1) AT 12/0
2;126;951;18;1;3;0;SET (MR3) AT 6/0
3;106;952;6;0;3;0;
4;126;941;0;0;0;0;>CONVERT TO DECIMAL
5;124;950;6;1;2;0;
6;102;0;21;1;1;0;
7;125;0;2;0;1;0;
8;124;947;9;1;0;0;>
9;125;0;1;0;3;0;
10;124;947;3;1;0;0;>
11;126;947;0;0;1;0;>LEAVE S/R
SHEET;850
PROCR;948;2026 RUN FWD TO FINIS,STEP BACK 1 S/R
0;100;0;0;0;0;0;
1;100;951;14;1;2;0;///// IN WORD 2
2;101;0;38;1;3;0;RUN BACK CONST
3;126;749;0;0;0;0;>I/P O/P S/R RTE 7
4;124;951;6;0;3;0;
5;124;0;64;0;3;0;
6;106;0;4;1;0;0;
7;101;0;0;1;1;0;
8;105;953;4;1;0;0;
9;127;948;1;0;1;0;>NO
10;100;954;1;0;2;0;
11;101;0;44;1;3;0;
12;126;749;0;0;0;0;>I/P O/P S/R
13;126;948;0;0;1;0;>LEAVE S/R
SHEET;851
CONST;949;0;2027 SHORT W/L'S FOR PASS 2
0;(D)0;W/L 1 ALSO USED IN O'LAY
1;0;W/L 2 ALSO USED IN O'LAY
2;0;
3;0;GENARAL W/L
4;0;W/L FOR PMSR LINK-1
5;0;HEADING IND
6;0;TYPE 10 IND
7;0;COMP DUMP TAKEN IND
8;0;CLEO DUMP TAKEN IND
9;0;DUMP TAKEN SINCE O'LAY IND
SHEET;852
CONST;950;0;2028 SHORT CONSTANTS FOR PASS 2
0;(D)50000;
1;30000;
2;t0000;
3;66666;
4;0003e;59
5;98000-;25/0/1 ORDER
6;0007e-;-(123) P RTE FOR RTE 7
7;60000;
8;t0000-;26/0/0 ORDER
9;01ppp;BITS 1->13
10;80000;BIT 20
11;7.000;BITS 14->19
SHEET;853
CONST;951;1;2029 LONG CONSTANTS FOR PASS 2
0;(A)DUMPS;
2;START;
4;(D)6p6p6p6p6p;RESTART MARK WORD
6;0000t00000;10:0
8;0000500000;5:0
10;0000+00000;12:0
12;0000200000;2:0
14;00002ppppp;
16;7.0000007.;BLOSK END WORD
18;0000600000;6:0
20;7777000000;XX/TAG W/L
22;00004ppppp;
24;(A)CHIPT;
26;(D)0000tppppp;
SHEET;854
PROCR;952;2030 EDIT TABLE FOR'START'BLOCK,THEN LONG WL'S 
0;100;946;7;0;0;0;09001
1;100;0;5;0;0;0;
2;100;0;175;0;0;0;DATE
3;100;0;5;0;0;0;
4;100;0;156;0;0;0;TIME
5;100;0;5;0;0;0;
6;100;951;4;0;0;0;ALIGN WORD
7;101;0;5;0;0;0;
8;100;952;16;0;0;0; 'START'
9;101;0;5;0;0;0;
10;100;0;0;0;0;0;PROG ID
11;100;0;5;0;0;0;
12;100;0;49;0;0;0;(3)PQ END
13;100;0;5;0;0;0;
14;100;951;16;0;0;0;BEW
15;117;0;5;0;0;0;
16;101;0;2419;0;3;0;CONST='START'
17;107;0;1845;0;1;0;
SHEET;855
CONST;953;1;2031 TYPING ANNEXE FOR ABANDON
0;(A)ABAND;TYPING CONSTANTS
2;(A)ONS(D)5.5.;
4;(A)FINIS;
6; OPTS;
SHEET;856
CONST;954;1;2032 BINARY TO DECIMAL CONVERSION TABLE
0;(D)0000000001;
2;0000000016;
4;0000000256;
6;0000004096;
8;0000065536;
SHEET;857
CONST;955;1;2033 BULK CLEAR COPY ITEMS
0;(D)0000600002;BULK COPY MOD REGS
2;2003600000;BULK CLEAR 54
4;2000600000;BULK CLEAR 6
SHEET;858
PROCR;956;2034 TABLES
0;100;952;6;0;0;0;RESTORE MOD REGS
1;100;0;6;0;0;0;
SHEET;859
PROCR;957;3801 PREPERATION AND W/L'S
0;35;0;0;0;0;11;
1;10;0;0;0;0;2;
2;4;957;5;0;0;0;(STEP ORDER)
3;124;982;0;0;3;0;
4;124;0;3;0;3;0;SPECIAL CHAP START=R1 END VALUE
5;106;0;30;0;0;0;SCAN PROGRAM'S ALLOCATED ROUTE LIST
6;114;979;20;0;0;0;STORE ROUTE NUMBER
7;118;0;4124;1;0;0;RTE TYPE IN Q1
8;101;0;4;1;2;0;
9;70;957;12;0;0;0;gROUTE TYPE 4
10;101;0;5;1;2;0;
11;127;957;0;0;1;0;>NOT PRINTER TRY NEXT ONE
12;124;751;32;0;2;0;PRINT ASL
13;1;957;29;0;0;0;14 IN Q5
14;124;979;20;0;3;0;ROUTE
15;102;0;64;0;0;0;
16;101;0;64;1;2;0;
17;2;979;20;0;0;0;
18;5;979;21;0;0;0;FORM-(64+R)
19;124;961;14;0;2;0;
20;102;965;21;0;0;0;
21;124;980;4;0;2;0;
22;102;967;21;0;0;0;
23;124;980;6;0;2;0;
24;102;967;25;0;0;0;
25;;979;20;0;0;0;
26;124;982;0;0;3;0;RTE NO
27;102;0;26;0;0;0;(3) SET FOR PRINT SR
28;76;962;0;0;0;0;
29;114;0;0;0;0;0;CONST
SHEET;860
CONST;958;1;3001 EXTRA ROOM FOR 120 COLS
0;(D);
2;;
4;;
6;;
8;;
10;;
12;;
14;;
16;;
18;;
20;;
22;;
24;;
26;;
28;;
30;;
32;;
34;;
36;;
38;;
40;;
42;;
44;;
46;;
48;;
50;;
52;;
54;;
56;;
58;;
60;;
62;;
64;;
SHEET;861
CONST;959;1;3001A
0;(D);
2;;
4;;
6;;
8;;
10;;
12;;
14;;
16;;
18;;
20;;
22;;
24;;
26;;
28;;
30;;
32;;
34;;
36;;
38;;
40;;
42;;
44;;
46;;
48;;
50;;
52;;
54;;
56;;
58;;
60;;
62;;
64;;
66;;
68;;
70;;
72;;
74;;
76;;
78;;
80;;
82;;
84;;
86;;
88;;
SHEET;862
PROCR;960;3001B=TABLE1
0;100;981;14;0;0;0; 'PRINT'
1;101;0;229;0;0;0;14/5
2;100;981;16;0;0;0; 'OUT'
3;101;0;19;0;0;0;1/3
4;100;981;16;0;0;0; 'OF'
5;101;0;786;0;0;0;3/1/2
6;100;981;22;0;0;0; 'DUMPS'
7;101;0;21;0;0;0;1/3
8;100;981;16;0;0;0; 'OF'
9;101;0;786;0;0;0;3/1/2
10;100;980;8;0;0;0;(PROG ID)
11;100;0;21;0;0;0;1/5
12;100;981;24;0;0;0; 'TAKEN'
13;101;0;21;0;0;0;1/5
14;100;981;26;0;0;0; 'ON'
15;101;0;18;0;0;0;1/2
16;100;980;6;0;0;0;(DAY)
17;102;0;5154;0;0;0;1/4/2/2
18;100;980;6;0;0;0;(MONTH)
19;102;0;5650;0;0;0;1/6/1/2
20;100;980;6;0;0;0;(YEAR)
21;102;0;2066;0;0;0;8/1/2
22;100;981;26;0;0;0; 'AT'
23;101;0;786;0;0;0;3/1/2
24;100;980;5;0;0;0;(HRS)
25;100;0;4130;0;0;0;1/0/2/2
26;100;980;5;0;0;0;(MINS)
27;100;0;4626;0;0;0;1/2/1/2
28;100;981;32;0;0;0;BE
29;117;0;1089;0;0;0;4/4/1
30;100;0;0;0;0;0;BULK CLEAR
31;102;0;36;0;0;0;CONSTANT
SHEET;863
PROCR;961;DUMMY PROCEDURE
SHEET;864
PROCR;962;3002 RUN FORARD TO START AND OPEN PRINTER
0;100;980;4;1;2;0;SET CONST IN B
1;101;0;38;1;3;0;SET TYPE IN A
2;126;749;0;0;0;0;>I/P O/P RTE 7
3;100;982;6;0;2;0;
4;101;0;7;1;3;0;
5;126;749;0;0;0;0;>I/P O/P RTE 7
6;124;982;3;1;2;0;TEST IF START OF BLOCK
7;106;0;12;1;0;0;
8;105;980;6;1;0;0; 'START'
9;127;962;0;0;1;0;>NO
10;101;0;20;1;2;0;FORM T/E
11;126;976;0;0;0;0;>FORM T/E S/R
12;128;980;3;1;0;0;BULK COPY ALPHA->NUMERIC
13;124;982;0;0;3;0;
14;106;0;138;1;0;0;STORE 6 CHARACTER DATE
15;102;980;6;1;0;0;
16;124;982;0;0;3;0;TEST IF CLOCK EXISTS
17;106;0;25;0;0;0;(3)
18;127;962;21;0;1;0;>YES
19;102;980;5;0;0;0;CLEAR TIME
20;102;981;26;0;0;0;CLEAR 'AT'
21;76;962;24;0;0;0;*****SPARE ORDERS
22;124;979;21;1;2;0;
23;128;0;0;1;1;0;
24;101;0;10;1;3;0;
25;126;978;0;0;0;0;>OPEN/CLOSE S/R
26;106;960;30;1;0;0;CLEAR AREA
27;128;744;0;1;1;0;
28;124;960;0;0;2;0;HEADING LINE
29;126;977;0;0;0;0;gEDIT AND O/P S/R
SHEET;865
PROCR;963;3003 READ NEXT BLOCK,TEST DUMPS,TEST FINIS,END ROUTINE
0;100;982;6;0;2;0;READ NEXT BLOCK
1;101;0;7;1;3;0;
2;126;749;0;0;0;0;gI/P O/P RTE 7
3;124;982;3;1;2;0;TEST DUMPS BLOCK
4;106;0;4;1;0;0;
5;105;981;22;1;0;0;'DUMPS'
6;127;964;0;0;0;0;gYES
7;104;981;22;1;0;0;TEST FINIS BLOCK
8;105;981;30;1;0;0;'FINIS
9;127;965;0;0;1;0;gNO
10;124;983;0;0;2;0;EDIT FINIS LINE
11;126;977;0;0;0;0;gEDIT AND O/P S/R
12;101;0;20;1;3;0;CLOSE PRINTER FILE
13;126;978;0;0;0;0;gOPEN/CLOSE S/R
14;101;0;27;1;3;0;
15;126;749;0;0;0;0;gCLOSE RTE 7 TAPE
16;125;0;4096;1;1;0;SET NON -INT
17;0;741;0;0;0;0;ABDON/END'IND
18;70;745;48;0;0;0;gABDON
19;0;745;83;0;0;0;1/1/3 2
20;5;745;58;0;0;0;
21;76;745;48;0;0;0;gEND
SHEET;866
PROCR;964;3004 PRINT HEADING BLOCKS
0;106;975;13;0;0;0;RESET ORDER
1;102;965;0;0;0;0;
2;126;976;0;0;0;0;gFORM T/E S/R    UNPACK DUMPS BLOCK
3;128;751;7;1;0;0;ALPHA->NUM
4;;751;8;0;0;0;DUMP TYPE IN Q5
5;118;0;4124;1;0;0;
6;102;982;2;0;0;0;
7;118;0;1;1;0;0;TEST HEADING IND SET
8;127;964;22;0;0;0;gNO
9;106;982;2;0;0;0;TEST DUMP TYPE 6
10;101;0;6;1;2;0;
11;127;964;14;0;0;0;gYES
12;;751;21;0;0;0;TEST 600 LOCNS OF M/R TO BE OUTPUT
13;127;964;52;0;0;0;gYES
14;124;983;2;0;2;0;(BLANK LINE)
15;126;977;0;0;0;0;gEDIT AND O/P S/R
16;124;984;0;0;2;0;
17;126;977;0;0;0;0;gEDIT AND O/P S/R
18;124;984;16;0;2;0;
19;126;977;0;0;0;0;gEDIT AND O/P S/R
20;124;984;34;0;2;0;
21;126;977;0;0;0;0;gEDIT AND O/P S/R
22;106;982;2;0;0;0;TEST PM TYPE
23;101;0;3;1;2;0;
24;127;964;34;0;3;0;g1,2
25;101;0;2;1;2;0;
26;127;964;38;0;3;0;g3,4
27;101;0;2;1;2;0;
28;127;964;45;0;3;0;g5,6
29;101;0;3;1;2;0;TEST DUMP TYPE 10
30;127;964;34;0;0;0;>YES
31;106;964;33;0;0;0;STOP PROCESSING BLOCKS
32;102;965;0;0;0;0;UNTIL NEXT DUMPS BLOCK
33;124;963;0;1;0;0;>READ NEXT BLOCK
34;106;981;6;1;0;0;FORM UP CHAPTER CHAPTER FOR 1,2,7
35;102;981;14;1;0;0;OR SECTION 
36;106;981;8;1;0;0;
37;124;964;42;1;0;0;
38;106;981;10;1;0;0;SECTION FOR 3,4
39;102;981;14;1;0;0;
40;102;961;16;0;0;0;CLEAR INDICATORS
41;106;981;12;1;0;0;
42;102;981;16;1;0;0;
43;124;985;0;0;2;0;
44;126;977;0;0;0;0;>EDIT AND O/P S/R
45;;751;22;0;0;0;START/END ADDRESSES
46;118;0;5;0;0;0;128 FOR DUMP TYPE 6
47;104;751;21;0;0;0;
48;103;961;14;1;0;0;FOR DUMP TYPE 6
49;102;980;4;1;0;0;FOR SECT OR CHAP 
50;102;980;3;0;0;0;CLEAR CHAP ADDRESS C 
51;124;963;0;1;0;0;>READ NEXT BLOCK
52;102;981;24;0;0;0;SET 0-600 INDICATOR 
53;124;985;10;0;2;0;
54;126;977;0;0;0;0;HEADING LINES >EDIT AND O/P S/R
55;124;984;34;0;2;0;
56;126;977;0;0;0;0;>EDIT AND O/P S/R
57;124;985;20;0;2;0;
58;126;977;0;0;0;0;>EDIT AND O/P S/R
59;124;964;45;1;0;0;
SHEET;867
PROCR;965;3005 TEST PM TYPE AND PROCESS PM TYPE 6
0;101;0;16;1;3;0;UNPACK ALPHA>NUMERIC 
1;126;976;0;0;0;0;>FORM T/E
2;128;751;7;1;0;0;UNPACK
3;106;982;0;1;0;0;SET IND MOD REG 2 
4;102;980;6;1;0;0;0/48 
5;106;982;2;0;0;0;
6;101;0;6;1;2;0;TEST PM TYPE 6 
7;127;966;0;0;1;0;>NO
8;102;980;0;0;0;0;CLEAR NEW/OLD IND FOR S/R
9;124;980;6;0;1;0;STORE NEXT LONG WORD 
10;124;751;11;0;2;0;AND FORM SIGN PARAS 
11;126;975;0;0;0;0;>STORE LONG WORD ETC S/R
12;124;980;6;0;1;0;
13;124;751;7;0;2;0;REL+ABS ADDRESS
14;1;979;22;1;0;0;4 IN Q6
15;128;980;1;0;0;0;BULK COPY SHORT>SHORT
16;102;980;20;1;0;0;SET PARAS AT 0 FOR NEW WORD
17;126;971;0;0;0;0;PRINT NEXT LINE FORM UP AND O/P S/R
18;101;0;6;1;3;0;STEP IND MRS ADJUST IND MRS
19;107;980;6;0;0;0;
20;123;0;2;0;0;0;TEST LAST TRACE
21;100;961;14;0;0;0;
22;124;967;24;1;0;0;>NO, NEXT TRACE
23;124;963;0;1;0;0;>YES, NEXT BLOCK
SHEET;868
PROCR;966;PROCESS NEXT WORD ON MT BLOCK,DECODE IF AN INSTRUCTION 
0;106;963;4;0;0;0;FORM UP ACTIONM ;TEST TAG CHANGE 
1;104;980;6;0;0;0;;REQUIRED 
2;104;980;6;0;0;0;
3;102;966;5;0;0;0;
4;124;982;3;1;2;0;MODIFY BY 123 
5;106;0;0;1;0;0;*FORMED ORDER* NEXT WORD EX T/X AREA 
6;105;981;48;1;0;0; 'XX   ' 
7;127;966;12;0;3;0;gNOT CHANGE 
8;118;0;4;0;0;0;NEW TAG TO Q5 
9;103;980;2;0;0;0;;STORE NEW TAG 
10;102;981;27;0;0;0;;SET TAG CHANGE IND 
11;124;967;24;1;0;0;STEP MRS 
12;101;0;0;1;3;0;SET PARAS=0 ;STORE NEW LONG WORD 
13;102;980;0;0;0;0;;AND FORM SIGN PATTER 
14;124;980;6;0;1;0;I/O MODIFIER 
15;124;751;7;0;2;0;
16;80;975;0;0;0;0;gDECODE/STORE''AFTER'' 
17;10;0;0;0;0;0;DUMMY ORDER 
18;124;982;0;0;3;0;
19;126;0;0;0;0;0;(42)SET TAG 15 
20;101;0;2;1;3;0;FORM PARAS 
21;102;980;0;0;0;0;
22;106;980;4;0;0;0;
23;80;975;0;0;0;0;gDECODE/STORE''BEFORE'' 
24;106;980;14;1;0;0;TEST SIGN PATTERNS  TEST WORDS EQUAL 
25;105;980;16;1;0;0;EQUAL 
26;127;966;30;0;1;0;gNO 
27;106;980;12;1;0;0;TEST MAGNITUDE EQUAL 
28;105;980;10;1;0;0;
29;127;966;43;0;0;0;gYES ;->YES 
30;106;981;24;0;0;0;;TEST 0-600 SET 
31;127;966;42;0;0;0;gYES 
32;0;980;4;0;0;0;ADDRESS TO WRITE INTO 
33;124;982;0;0;3;0;
34;105;0;3;0;0;0;R1 END=SPECIAL CHAP START 
35;73;966;38;0;0;0;gOK 
36;101;0;204;1;2;0;
37;73;966;42;0;0;0;gNEVER OVERWRITE 0-203 OF SPECIAL CHAPTE 
38;124;980;10;0;2;0;;COPY NEW RECORD 
39;104;980;18;1;0;0;;TO STORE 
40;124;980;4;0;3;0;
41;128;0;0;0;0;0;
42;101;0;1;1;3;0;;SET EQUALITY INDIC 
43;102;980;9;0;0;0;
44;123;966;45;0;2;0;;SET TAG 14 
45;100;0;0;0;0;0;
SHEET;869
PROCR;967;TEST PM TYPE 
0;106;982;2;0;0;0;;SWTICH BY PM TYPE 
1;101;0;5;1;2;0;
2;127;967;18;0;0;0;
3;101;0;1;1;1;0;
4;127;968;0;0;0;0;
5;101;0;2;1;1;0;
6;127;968;0;0;0;0;
7;106;981;27;0;0;0;;TEST TAG CHANGE 
8;127;967;13;0;1;0;gYES ;INDICATOR SET 
9;106;980;10;1;0;0;TEST LONG WORD 
10;127;967;13;0;1;0;TRUE ZERO >NO
11;106;980;14;1;0;0;
12;127;967;16;0;0;0;>YES
13;101;0;0;1;3;0;FORM PARAMETER
14;102;980;20;1;0;0;
15;126;970;0;0;0;0;>FORM UP AND O/P S/R**
16;101;0;0;1;3;0;***DELETE 
17;102;981;27;0;0;0;CLEAR TAG CHANGE INDICATOR
18;101;0;2;1;3;0;STEP ADDRESS COUNTER
19;107;980;3;0;0;0;
20;123;0;2;0;0;0;STEP IND MR1 
21;100;980;4;0;0;0;
22;124;967;24;1;0;0;
23;124;963;0;1;0;0;>NEXT BLOCK
24;123;0;2;0;0;0;STEP IND MR2 
25;100;980;6;0;0;0;
26;124;965;5;1;0;0;>NEXT WORD
27;124;963;0;1;0;0;>NEXT BLOCK
SHEET;870
PROCR;968;3008 TYPES 2 AND 4
0;106;980;9;0;0;0;TEST NEW WORD=OLD 
1;127;967;18;0;0;0;>YES
2;106;980;12;1;0;0;TEST OLD WORD MAGNITUDE=0
3;127;968;6;0;1;0;IS TRUE ZERO >NO
4;106;980;16;1;0;0;SIGN PATTERN=0
5;127;967;9;0;0;0;>YES >YES
6;106;980;22;1;0;0;
7;102;980;20;1;0;0;
8;126;970;0;0;0;0;>FORM UP AND O/P S/R
9;124;967;9;1;0;0;>OUTPUT NEW WORD
SHEET;871
PROCR;969;3009 CONVERT S/R BINARY>DECIMAL
0;100;0;0;0;0;0;LINK
1;100;961;18;1;0;0;STORE (A) (B) ( C)
2;100;982;5;0;3;0;SET DECIMAL
3;124;980;24;0;2;0;SELECT TABLE START
4;112;961;18;0;0;0;CONVERT
5;102;961;18;1;0;0;
6;100;961;18;1;1;0;RESET (A) (B) ( C)
7;126;969;0;0;1;0;>LEAVE S/R
SHEET;872
PROCR;970;33010 FORM UP AND O/P S/R IF NOT TYPE 6
0;100;0;0;0;0;0;LINK
1;101;0;31;0;1;0;COLLATION CONST
2;106;980;4;0;0;0;CONVERT AND STORE 
3;118;0;3;1;3;0;REL ADDRESS REMOVE DIVISION NO
4;118;0;4124;1;0;0;
5;114;980;2;0;0;0;STORE DIVISION NO
6;101;0;0;1;3;0;CLEAR A
7;118;0;13;1;3;0;
8;102;980;1;0;0;0;STORE ADDRESS
9;126;971;0;0;0;0;>FORM UP AND OUTPUT S/R
10;126;970;0;0;1;0;>LEAVE S/R
11;5;961;0;0;0;0;ORDER CONST
SHEET;873
PROCR;971;FORM UP LINE OF PRINT,PRINT IT,PRINT STARRY LINE IF REQUIRED 
0;81;971;0;0;0;0;
1;124;980;21;0;1;0;0/2=OLD/NEW WORD 
2;124;980;10;0;2;0;
3;1;980;18;1;0;0;2 IN Q6=QTTY 
4;128;980;12;0;0;0;COPY CURRENT LONG WORD->WL 
5;124;980;21;0;1;0;
6;0;980;14;1;0;0;COPY INDS THAT ACTION>16 
7;5;980;16;1;0;0;
8;35;0;0;0;0;1111;
9;36;980;2;0;0;0;DIVISION OR REF 
10;126;973;0;0;0;0;CONVERT AND STORE 
11;106;980;1;0;0;0;CONVERT 13 BIT ADDRESS 
12;126;969;0;0;0;0;(OR ITEM) TO DECIMAL 
13;102;980;1;0;0;0;
14;100;980;12;1;2;0;;PROCESS LONG WORD 
15;126;974;0;0;0;0;gPROCESS WORD S/R ;MOSST SIG HALF 
16;106;980;16;0;0;0;STORE SIGN PARAS 
17;102;980;17;0;0;0;
18;126;974;0;0;0;0;gPROCESS WORD S/R ;LEAST SIG HALF 
19;106;980;12;1;0;0;STORE ALPHA WORD 
20;102;981;16;1;0;0;;L/E'S IN LONG WORD 
21;102;980;16;1;0;0;;WITH B'S AND L'S 
22;34;974;13;0;0;0;BITS 1-6 
23;115;981;16;1;0;0;STORE NEXT QRTET ;LINE 
24;102;981;14;1;0;0;
25;115;981;50;1;0;0;TET FOR B/E 
26;105;981;14;1;0;0;
27;127;971;30;0;0;0;gYES 
28;101;0;0;1;3;0;
29;124;971;32;1;0;0;gNO 
30;106;981;4;1;0;0;g'S AND B'S 
31;124;971;36;1;0;0;
32;115;981;52;1;0;0;TEST FOR L/E'S 
33;105;981;14;1;0;0;
34;71;971;39;0;0;0;gNO 
35;106;981;2;1;0;0;
36;114;981;16;1;0;0;
37;106;981;0;1;0;0;
38;114;980;16;1;0;0;g'S 
39;118;0;2;1;0;0;
40;101;0;0;1;3;0;
41;127;971;23;1;1;0;gNEXT QRTET 
42;106;980;2;0;0;0;;CONVERT TAG S/R 
43;118;0;4124;0;0;0;SHIFT TO Q1 
44;126;973;0;0;0;0;CONVERT AND TRANSFER S/R 
45;106;980;3;0;0;0;RELATIVE ADDRESS 
46;126;973;0;0;0;0;gCONVERT AND TRANSFER S/R 
47;124;986;0;0;2;0;;EDIT LINE 
48;126;977;0;0;0;0;gEDIT AND O/P S/R 
49;106;980;16;1;0;0;;OUTPUT * LINE 
50;127;971;53;0;0;0;;IF NEEDED 
51;124;986;36;0;2;0;;EDIT LINE 
52;126;977;0;0;0;0;gEDIT AND O/P S/R 
53;0;970;11;0;0;0;RESET ORDDER 
54;5;972;1;0;0;0;
55;126;971;0;0;1;0;;FOR NEXT WORD 
SHEET;874
PROCR;972;3812 TRANSPER S/R 
0;81;972;0;0;0;0;
1;5;961;0;0;0;0;>FORMED ORDER
2;10;0;0;0;0;1;
3;4;972;1;0;0;0;STEP ADDRESS
4;10;0;0;0;0;0;CLEAR A
5;82;972;0;0;0;0;
SHEET;875
PROCR;973;3013 CONVERT AND TRANSFER S/R
0;100;0;0;0;0;0;LINK
1;126;969;0;0;0;0;>CONVERT S/R
2;126;972;0;0;0;0;>TRANSFER S/R
3;126;973;0;0;1;0;>LEAVE S/R
SHEET;876
PROCR;974;3014 PROCESS WORD S/R
0;100;0;0;0;0;0;LINK
1;101;0;0;1;3;0;TRANSFER ACTION CLEAR A
2;118;0;1;1;0;0;SHIFT ACTION INTO B
3;104;980;17;0;0;0;0 OR 16 IF ACTION <OR >16
4;126;973;0;0;0;0;DISCRIMINANT D IN A
5;118;0;1;1;3;0;>TRANSFER
6;126;972;0;0;0;0;MODIFIER M IN A
7;118;0;2;1;3;0;>TRANSFER
8;126;972;0;0;0;0;ADDRESS 
9;118;0;1;1;3;0;
10;118;0;3;1;0;0;
11;126;973;0;0;0;0;>CONVERT AND TRANSFER
12;126;974;0;0;1;0;>LEAVE S/R
13;100;0;63;0;0;0;CONST=BITS 1-6
SHEET;877
PROCR;975;3015 STORE LONG WORD AND FORM SIGN PARAS S/R
0;100;0;0;0;0;0;LINK
1;104;980;18;1;0;0;STORE WORD FORM T/E
2;124;980;0;0;0;0;
3;128;980;10;0;0;0;BULK COPY LONG WORD
4;124;980;0;0;1;0;0/2=OLD/NEW WORD
5;124;980;10;0;2;0;
6;1;979;24;1;0;0;1 IN Q6
7;118;0;0;0;0;0;DUMMY ORDER
8;128;981;25;0;0;0;BULK COPY SHORT WORD
9;100;981;24;1;1;0;FORM SIGN PATTERN FORM SIGN PATTERN
10;127;975;13;0;3;0;0 IF POSIVIE FOR LEAST SIG HALF
11;101;0;0;1;3;0;16 IF POSITIVE POSITIVE
12;124;975;14;1;0;0;
13;101;0;16;1;3;0;NEGATIVE
14;124;980;0;0;1;0;
15;102;980;14;0;0;0;
16;124;980;0;0;1;0;FORM SIGN PATTERN
17;100;980;10;1;1;0;FOR MOST SIG HALF
18;127;975;21;0;3;0;
19;101;0;0;1;3;0;POSITIVE
20;124;975;22;1;0;0;
21;101;0;16;1;3;0;NEGATIVE
22;124;980;0;0;0;0;
23;102;980;15;0;0;0;
24;100;982;0;0;3;0;RESET BINARY
25;126;975;0;0;1;0;
SHEET;878
PROCR;976;3016 UNPACK FROM WORD 6 S/R
0;100;0;0;0;0;0;LINK
1;101;0;32;1;1;0;FORM T/E
2;118;0;5;0;0;0;
3;101;0;5;1;1;0;
4;124;982;0;0;3;0;
5;104;0;123;0;0;0;
6;126;976;0;0;1;0;gLEAVE S/R 
7;10;0;0;0;0;0;DUMMY ORDER 
SHEET;879
PROCR;977;3017 EDIT AND O/P S/R 
0;81;977;0;0;0;0;
1;128;744;10;1;2;0;
2;124;986;48;0;2;0;EDIT 20 SPACES 
3;128;744;2;1;2;0;BEFORE PRINTING 
4;5;744;0;1;0;0;CLEAR FUNCTION WORD 
5;101;0;1;0;1;0;
6;124;982;0;0;3;0;
7;115;0;27;0;0;0;
8;12;0;0;0;0;4;
9;70;977;22;0;0;0;gGP PRINTER 
10;124;744;0;0;2;0;;SPECIAL PRINT 
11;1;979;26;1;0;0;48 IN Q6 
12;124;979;21;1;2;0;
13;128;0;0;1;1;0;COPY ANNEX,CLEAR A 
14;;979;20;0;0;0;
15;32;0;0;0;0;5-;ROUTE IN TOP OF B 
16;;979;20;0;0;0;
17;32;0;0;0;0;5-;AND IN BOTTOM 
18;80;978;0;0;0;0;gPRINT 
19;123;979;0;0;2;0;gTEST PRINT FINISHED 
20;10;0;0;0;0;0;CLEAR A 
21;82;977;0;0;0;0;(YES) 
22;10;0;0;0;0;8;;GP PRINT 
23;30;0;0;0;0;4;
24;5;744;1;0;0;0;(PRINT ON COLS 1-120) 
25;124;744;0;0;2;0;
26;124;979;21;1;2;0;
27;129;0;0;0;1;0;EDIT 
28;10;0;0;0;0;0;CLEAR A 
29;76;977;14;0;0;0;gGO TO PRINT 
SHEET;880
PROCR;978;3018 ENTER MASTER FOR PRINTER 
0;100;0;0;0;0;0;LINK 
1;118;0;5;0;0;0;FORM T/E 
2;124;982;0;0;3;0;
3;104;0;26;1;0;0;(PARAS 26,27) 
4;125;0;4096;1;1;0;SET NON INT 
5;124;982;0;0;3;0;
6;123;0;160;0;2;0;gOPEN PRINTER 
7;126;978;0;0;1;0;gLEAVE S/R 
SHEET;881
PROCR;979;3019 TEST PREVIOUS PRINT ORDER FINISHED 
0;81;979;0;0;0;0;
1;125;0;4096;1;1;0;
2;124;982;0;1;1;0;MG C 
3;;979;20;0;0;0;ROUTE 
4;124;982;0;0;3;0;
5;102;0;30;0;1;0;gSI+30 
6;;979;19;0;0;0;“26/1/0” 
7;2;979;20;0;0;0;
8;124;982;0;0;3;0;
9;102;0;7;0;1;0;SI+7 
10;124;982;0;0;3;0;
11;102;0;45;0;1;0;CLEAR ASSOCIATED TIME
12;124;979;15;0;2;0;(RETURN ADDRESS)
13;124;982;0;0;3;0;
14;124;0;174;1;0;0;>MASTER TO TEST ROUTE
15;124;982;0;0;3;0;
16;124;0;2;0;3;0;
17;124;0;29;1;1;0;RESTORE PROG'S MOD GROUP
18;126;979;0;0;3;0;>(SET INTERRUPTIBLE)
19;126;0;0;1;0;0;CONST
20;100;0;0;0;0;0;WL FOR ALLOCATED ROUTE R
21;100;0;0;0;0;0;WL FOR-(64+R)
22;100;0;0;0;0;0;)COPY 4
23;100;0;4;0;0;0;)
24;100;0;0;0;0;0;(COPY 1
25;100;0;1;0;0;0;(
26;100;0;0;0;0;0;)COPY 48
27;100;0;48;0;0;0;)
SHEET;882
CONST;980;1;3020 W/L'S AND CONVERT TABLES
0;(D)0;I/O SERIAL/W/L
2;0;RELATIVE ADDRESS/TAG
4;t£££££;TIME/DATE,IND MOD1
6;(A)START;(LONG DATE)IND MOD 2
8;(D)0;=INDIC/PROG IDENTITY
10;0;NEW LONG WORD
12;0;OLD LONG WORD
14;0;0/16 IN ODD/EVEN IF ODD/EVEN NEW WORD PO
16;0;DITTO FOR OLD VALUE OF WORD
18;200000;TABLE CONSTANT
20;0;PARAS NEW/OLD
22;(D)2000(A)*;OLD WORD CONSTANT
24;(D)1;CONVERT TABLE
26;16;BINARY>DECIMAL
28;256;
30;4096;
32;65536;
SHEET;883
CONST;981;1;3021 ALPHA CONSTANTS
0;(A)*****;
2;LLLLL;
4;BBBBB;
6;(A)CHAPT;CONSTANTS FOR HEADING
8;ER   ;BLOCKS
10;(A)SECTI;
12;ON   ;
14;PRINT;W/L FOR HEADING
16;OUTOF;W/L FOR HEADING
18;POINT;CONSTANTS FOR PRINTING
20;P M B;HEADING BLOCK
22;(A)DUMPS;
24;TAKEN;W/L/0-600 IND
26;ON AT;TAG CH IND/W/L
28;(A)PROGM;
30;(A)FINIS;
32;(A)TYPE(D)7.;
34;(A)FINAL;
36;MASTE;
38;R ROU;
40;MR1  ;
42;MR2  ;
44;MR3  ;
46;TINE ;
48;XX   ;
50;(D)7.7.7.7.7.;
52;5.5.5.5.5.;
SHEET;884
CONST;982;0;3022 NUMERIC CONSTANTS
0;(D)00000;ZERO
1;00018;M/R SETTING 0/24
2;0;STORE FOR PM TYPE
3;7e-;ASL 123
4;3:;61
5;66666;
6;3e;59
7;0;
SHEET;885
PROCR;983;3023 TABLE 1
0;100;981;30;0;0;0;FINIS
1;101;0;5;0;0;0;
2;100;981;32;0;0;0;B/E
3;117;0;1029;0;0;0;
SHEET;886
PROCR;984;3024 TABLE 2
0;100;981;28;0;0;0;15 SP PROGM
1;101;0;245;0;0;0;
2;100;980;8;0;0;0;SP PROG ID
3;100;0;21;0;0;0;
4;100;981;20;0;0;0;4SP PM
5;101;0;68;0;0;0;
6;100;981;18;0;0;0;POINT
7;101;0;5;0;0;0;
8;108;751;9;0;0;0;LINE SERIAL
9;100;0;53;0;0;0;
10;100;981;32;0;0;0;4SP TYPE
11;101;0;68;0;0;0;
12;100;982;2;0;0;0;SP TYPE NO
13;100;0;1041;0;0;0;
14;100;981;32;0;0;0;2SP B/E
15;117;0;1057;0;0;0;
16;100;981;6;0;0;0;15SP A
17;101;0;753;0;0;0;
18;108;751;11;0;0;0;(A)
19;100;0;53;0;0;0;
20;108;751;10;0;0;0;
21;106;0;1285;0;0;0;
22;100;981;20;0;0;0;4SP B
23;101;0;1089;0;0;0;
24;108;751;13;0;0;0;(B)
25;100;0;53;0;0;0;
26;108;751;12;0;0;0;
27;106;0;1285;0;0;0;
28;100;981;6;0;0;0;4SP C
29;101;0;65;0;0;0;
30;108;751;14;0;0;0;©
31;104;0;53;0;0;0;
32;100;981;32;0;0;0;4SP B/E
33;117;0;1089;0;0;0;
34;100;981;40;0;0;0;MR1
35;101;0;243;0;0;0;
36;108;751;16;0;0;0;(R1)
37;104;0;21;0;0;0;
38;108;751;15;0;0;0;
39;104;0;5;0;0;0;
40;100;981;42;0;0;0;MR2
41;101;0;67;0;0;0;
42;108;751;18;0;0;0;(R2)
43;104;0;21;0;0;0;CONTENTS OF MR2
44;108;751;17;0;0;0;
45;104;0;5;0;0;0;
46;100;981;44;0;0;0;MR3
47;101;0;67;0;0;0;
48;108;751;20;0;0;0;(MR3)
49;104;0;21;0;0;0;
50;108;751;19;0;0;0;
51;104;0;5;0;0;0;
52;100;981;32;0;0;0;3SP BE
53;117;0;1073;0;0;0;
SHEET;887
PROCR;985;3025 TABLE 3
0;100;980;8;0;0;0;15 SP PROG ID
1;100;0;245;0;0;0;
2;100;981;14;0;0;0;2SP CHAPTER/SECTION
3;101;0;37;0;0;0;
4;100;981;16;0;0;0;
5;101;0;5;0;0;0;
6;108;751;8;0;0;0;CHAP/SECTION
7;100;0;4866;0;0;0;
8;100;981;32;0;0;0;B/E
9;117;0;1025;0;0;0;
10;100;981;28;0;0;0;15SP PROGM
11;101;0;245;0;0;0;
12;100;980;8;0;0;0;SERIAL NO
13;100;0;21;0;0;0;
14;100;981;34;0;0;0;FINAL
15;101;0;37;0;0;0;
16;100;981;22;0;0;0;DUMP
17;101;0;20;0;0;0;
18;100;981;32;0;0;0;SP B/E
19;117;0;1041;0;0;0;
20;100;981;36;0;0;0;MASTER
21;101;0;245;0;0;0;
22;100;981;38;0;0;0;ROUTINE
23;101;0;5;0;0;0;
24;100;981;46;0;0;0;
25;101;0;5;0;0;0;
26;100;981;32;0;0;0;4SP B/E
27;117;0;1089;0;0;0;
SHEET;888
PROCR;986;3026 TABLE 4
0;100;980;20;0;0;0;ASTERISK
1;101;0;1025;0;0;0;4/0/1
2;100;961;0;0;0;0;DIVISION NO OR REF
3;100;0;515;0;1;0;2/2/0/3
4;100;980;1;0;0;0;13 BIT DEC ADD
5;100;0;5;0;2;0;4/0/0/5
6;100;961;10;0;0;0;RELATIVE ADDRESS
7;100;0;21;0;2;0;4/0/1/5
8;100;980;4;0;0;0;15 BIT BINARY ADDRESS
9;100;0;4117;0;0;0;1/0/1/5
10;100;961;5;0;0;0;ACTION
11;100;0;531;0;1;0;2/2/1/3
12;100;961;6;0;0;0;DISC
13;100;0;1041;0;0;0;4/1/1
14;100;961;7;0;0;0;MOD
15;100;0;1041;0;0;0;4/1/1
16;100;961;8;0;0;0;ADDRESS
17;100;0;21;0;2;0;1/5
18;100;961;1;0;0;0;ACTION
19;100;0;531;0;1;0;2/2/1/3
20;100;961;2;0;0;0;DISC
21;100;0;1041;0;0;0;4/1/1
22;100;961;3;0;0;0;MOD
23;100;0;1041;0;0;0;4/1/4
24;100;961;4;0;0;0;ADDRESS
25;100;0;21;0;2;0;1/5
26;100;980;12;0;0;0;LSH NUMERIC
27;104;0;69;0;2;0;4/0/2/5
28;100;980;13;0;0;0;MSH NUMERIC
29;104;0;37;0;2;0;4/0/2/5
30;100;981;16;0;0;0;PROCESSED ALPHA
31;101;0;37;0;0;0;2/5
32;100;961;9;0;0;0;TAG
33;100;0;4882;0;0;0;1/3/1/2
34;100;981;50;0;0;0;BEW
35;117;0;5;0;0;0;0/5
36;100;982;0;0;0;0;STARRY LINE
37;100;0;4341;0;2;0;5/0/15/5
38;100;982;0;0;0;0;
39;100;0;4341;0;2;0;
40;100;982;0;0;0;0;
41;100;0;4341;0;2;0;
42;100;982;0;0;0;0;
43;100;0;4117;0;2;0;5/0/1/5
44;100;980;16;0;0;0;STARTS
45;101;0;53;0;0;0;
46;100;981;50;0;0;0;BEW
47;117;0;5;0;0;0;0/5
48;100;982;0;0;0;0;20 SPACES
49;116;0;4341;0;2;0;
SHEET;889
CONST;987;0;FIRST LEVEL PARAS PASS 2
0;(B5)1(B3)1(B3)1(B3)1(B6)8;2001/0
1;1,1,0,1,1;
2;1,1,1,0,8;
3;1,1,2,0,16;
4;2,0,2,0,16;
5;1,0,1,1,1;
6;1,1,0,1,9;
7;0,1,6,6,54;
8;6,1,1,1,9;
9;0,1,1,1,6;
10;1,0,1,1,0;
11;1,1,1,1,9;2002/5
12;0,1,1,1,9;
13;0,1,0,0,54;
14;1,1,0,0,9;
15;0,1,1,0,8;
16;0,0,1,6,54;
17;6,6,6,6,54;
18;0,0,1,0,0;2003/4
19;0,0,0,1,0;
20;1,0,0,1,1;
21;1,1,1,0,6;
22;0,1,1,1,8;
23;0,1,1,1,6;2004/5 2005/5
24;0,1,1,1,1;
25;0,0,0,0,0;
26;0,1,1,1,9;
27;1,0,1,0,9;
28;1,1,0,0,8;
29;1,0,1,1,9;2006/2
30;1,0,1,1,8;
31;0,1,0,1,1;
32;1,1,1,1,8;
33;1,1,1,1,1;
34;1,0,0,0,1;
35;1,0,1,0,0;
36;1,1,0,0,8;
37;1,1,0,1,8;2007/4
38;1,0,1,0,9;
39;0,1,1,0,9;2008/6
40;1,1,0,1,8;
41;1,1,1,1,0;
42;0,1,1,1,9;
43;0,0,1,0,9;
44;0,1,1,0,8;
45;1,1,1,6,54;
46;0,1,1,1,9;2009/0
47;1,1,0,1,9;
48;1,1,1,6,54;
49;6,0,1,1,8;
50;1,0,1,1,8;2010/5
51;1,1,1,6,11;
52;1,0,1,1,9;
53;1,1,0,1,1;
54;1,1,1,1,9;
55;0,6,6,0,9;2011/4
56;1,0,1,0,1;
57;3,0,0,1,54;
58;0,1,0,1,9;
59;1,0,1,6,54;
60;1,0,1,1,9;
61;0,1,0,1,8;
62;1,0,1,0,9;
63;0,6,6,6,54;2012/1
64;1,1,1,1,1;
65;0,1,1,1,8;
66;1,0,1,0,9;
67;0,1,1,0,8;2013/0
68;1,1,0,0,0;
69;1,1,0,1,0;
70;0,0,1,0,0;
71;1,0,0,0,8;
72;0,0,1,1,8;
73;0,1,0,0,1;
74;1,1,0,0,8;
75;0,0,0,0,8;
76;1,1,0,1,8;
77;1,0,1,1,8;2014/6
78;1,1,1,1,8;
79;0,1,0,1,9;
80;1,6,6,6,54;
81;1,1,1,1,1;
82;0,1,1,1,9;2015/0
83;0,1,1,1,9;
84;0,1,1,0,9;
85;1,1,0,1,9;
86;1,0,1,1,1;
87;1,1,0,1,9;2016/0
88;1,1,1,0,9;
89;0,1,1,6,0;
90;1,1,1,1,9;
91;0,0,0,1,49;
SHEET;890
CONST;988;0;FIRST LEVEL PARA PASS 2 CONTD
0;(B5)1(B3)1(B3)0(B3)1(B6)15;
1;0,0,1,0,0;2017/1
2;1,1,0,0,8;
3;0,0,1,1,8;
4;0,1,0,0,0;
5;0,1,0,1,1;
6;0,1,1,1,0;
7;1,0,0,0,9;
8;1,1,0,1,9;
9;1,1,0,1,9;2017A/5
10;0,1,1,7,1;2018/5 2019/5
11;1,1,1,1,15;
12;0,1,0,1,9;2020/1
13;0,0,0,1,57;
14;0,1,0,6,54;2022/1
15;1,0,1,1,8;2022/6
16;1,0,1,1,8;2023/6
17;1,1,1,1,24;
18;1,1,0,1,0;
19;1,0,1,0,54;2024/4
20;1,1,0,1,9;
21;0,6,6,6,54;
22;0,1,1,1,9;2025/0
23;0,0,1,0,9;
24;0,1,0,1,15;2026/0
25;0,0,1,1,8;
26;1,1,0,0,0;2027/3
27;0,0,0,0,0;
28;0,0,0,0,0;2028/0
29;0,0,0,0,0;
30;0,0,0,0,0;2029/0
31;0,0,0,0,0;
32;0,0,0,0,0;
33;0,0,0,0,0;
34;0,0,0,0,16;2030/5
35;0,0,0,0,16;
36;2,0,0,0,24;
37;2,0,0,0,0;2031/5
38;0,0,0,0,0;
39;0,0,0,0,0;2032/1
40;0,0,0,0,0;2033/5
41;0,0,0,0,16;2034/5
42;7,6,6,6,54;(CHAP END)
43;6,6,6,6,54;DUMMY WORD
SHEET;891
CONST;989;0;FIRST LEVEL PARAS PASS 3
0;(B5)0(B3)0(B3)1(B3)1(B6)0;3001/0
1;1,0,0,1,1;
2;1,1,1,0,6;
3;1,1,1,1,9;
4;1,1,1,1,25;
5;0,6,6,6,54;
6;0,0,0,0,0;3001.5/1
7;0,0,0,0,0;
8;0,0,0,0,0;
9;0,0,0,0,0;
10;0,0,0,0,0;
11;0,0,0,0,0;
12;0,0,0,0,0;
13;0,0,0,0,0;
14;0,0,0,0,0;
15;0,0,0,0,0;
16;0,0,0,0,0;3001A/1
17;0,0,0,0,0;
18;0,0,0,0,0;
19;0,0,0,0,0;
20;0,0,0,0,0;
21;0,0,0,0,0;
22;0,0,0,0,0;
23;0,0,0,0,0;
24;0,0,0,0,0;
25;0,0,0,0,0;
26;0,0,0,0,0;
27;0,0,0,0,0;
28;0,0,0,0,0;
29;0,0,0,0,0;
30;0,0,0,0,0;
31;0,0,0,0,0;
32;2,0,2,0,16;30018/1
33;2,0,2,0,16;
34;2,0,2,0,16;
35;2,0,2,0,16;
36;2,0,2,0,16;
37;0,0,1,0,9;3002/3
38;0,1,1,0,9;
39;0,1,1,1,1;
40;1,3,1,1,9;
41;1,0,0,1,9;
42;1,1,6,6,54;
43;1,0,1,1,1;3003/0
44;1,1,1,1,9;
45;0,1,0,1,1;
46;1,1,1,1,49;3004/6
47;6,6,6,6,54;
48;1,1,1,1,54;
49;0,1,0,1,8;
50;1,1,1,1,9;
51;1,1,1,1,9;
52;0,1,0,1,1;
53;0,1,1,1,9;
54;1,1,1,1,9;
55;1,1,1,1,8;
56;1,1,6,6,54;
57;1,1,1,1,9;
58;1,1,1,1,8;3005/6
59;1,1,1,1,8;
60;1,1,1,1,9;
61;1,1,6,1,9;
62;0,1,0,1,9;
63;1,1,1,1,8;3006/0
64;1,1,0,1,9;
65;0,1,1,1,8;
66;1,7,0,1,9;
67;1,1,1,1,9;
68;1,1,1,1,1;
69;0,1,1,1,8;
70;0,1,1,0,8;3007/5
71;1,0,1,0,9;
72;1,1,1,1,8;
73;1,1,0,1,1;
74;0,1,1,1,1;
75;1,1,1,1,9;3008/3
76;1,1,1,1,9;
77;0,1,1,1,9;3009/0
78;1,1,0,0,8;3010/3
79;0,1,0,0,9;
80;1,1,6,6,54;
81;6,0,6,6,9;3011/2
82;1,1,1,1,8;
83;1,1,1,1,9;
84;1,1,1,1,9;
85;1,1,1,1,9;
86;1,0,1,6,49;
87;1,1,1,1,9;
88;1,1,0,0,9;
89;0,1,1,1,9;
90;1,1,1,1,9;
91;1,0,1,0,8;3012/2
92;1,0,1,1,8;3013/2 3014/6
93;0,0,1,1,1;
94;0,1,0,0,9;
95;0,6,6,6,54;
96;0,1,1,1,9;3015/1
97;1,0,1,1,8;
SHEET;892
CONST;990;0;
0;(B5)1(B3)0(B3)1(B3)1(B6)9;
1;1,0,1,0,9;
2;1,1,0,0,0;3016/3
3;1,0,1,0,1;3017/4
4;1,1,1,0,11;
5;0,1,1,6,54;
6;1,1,0,1,1;
7;0,1,1,0,8;
8;0,1,1,1,0;
9;1,0,0,1,54;3018/2
10;3,0,1,0,8;3019/6
11;0,1,1,1,1;
12;(B5)1(B3)1(B3)0(B3)1(B6)1;
13;1,0,1,0,1;
14;0,0,0,0,0;
15;0,0,0,6,54;
16;0,0,0,0,0;3020/1
17;0,0,0,0,0;
18;0,0,0,0,0;
19;(B5)0(B3)0(B3)0(B3)0(B6)0;
20;0,0,0,0,0;
21;0,0,0,0,0;3021/5
22;0,0,0,0,0;
23;0,0,0,0,0;
24;0,0,0,0,0;
25;0,0,0,0,0;
26;0,0,0,0,0;
27;0,0,0,0,0;
SHEET;893
CONST;991;0;FIRST LEVEL PARAS PASS C CONTD
0;(B5)0(B3)0(B3)0(B3)0(B6)0;
1;0,0,0,0,0;
2;0,0,0,0,0;3022/5
3;0,0,0,0,0;
4;2,0,2,0,16;3023/1+3024/5
5;2,0,2,0,16;
6;2,0,2,0,16;
7;2,0,2,0,16;
8;2,0,2,0,16;
9;2,0,2,0,16;
10;2,0,2,0,16;
11;2,0,2,0,16;
12;2,0,2,0,16;
13;2,0,2,0,16;3025/4
14;2,0,2,0,16;
15;2,0,2,0,16;
16;2,0,2,0,16;
17;2,0,2,0,16;
18;2,0,2,0,16;3026/2
19;2,0,2,0,16;
20;2,0,2,0,16;
21;2,0,2,0,16;
22;2,0,2,0,16;
23;2,0,2,0,16;
24;2,0,2,0,16;
25;2,0,2,0,16;
26;2,0,2,0,62;
SHEET;894
CONST;992;0;SECOND LEVEL PARAS
0;(B8)40(B6)45(B6)49;PASS 2
1;42,24,62;
2;42,62,63;PASS 3
SHEET;895
CONST;993;1;BLISTER SPACE
0;(D)0;
2;0;
4;0;
6;0;
8;0;
10;0;
12;0;
14;0;
16;0;
18;0;
20;0;
22;0;
24;0;
26;0;
SHEET;896
PROCR;994;CHAPTER 9
SHEET;897
PROCR;995;CHAPTER 10
END