Entry at line 10203

   Route 9  File D1  type 14  chap 0  max block 195   annex at 0   Special form of dual printer (see 19) for software use
   Route 18  File B1  type 15  chap 4  max block 27   annex at 394   Dual input (PT or cards) (see 12.9)
   Route 27  File A1  type 07  chap 4  max block 75   annex at 452   Magnetic tape, first Assembler (see 13.1)
   Route 36  File A2  type 08  chap 4  max block 75   annex at 606   Magnetic tape, second Assembler
   Route 45  File A6  type 07  chap 4  max block 75   annex at 760   Magnetic tape, first Assembler (see 13.1)
CHAPS  10 chapters + 0  start at proc 100
Procedure 100 starts chapter 1
Procedure 101 starts chapter 2
Procedure 152 starts chapter 3
Procedure 327 starts chapter 4
Procedure 553 starts chapter 5
Procedure 680 starts chapter 6
Procedure 776 starts chapter 7
Procedure 918 starts chapter 8
Procedure 994 starts chapter 9
Procedure 995 starts chapter 10
Section:  3 in chap  2 at loc    0 N   48 short words  PROCR 'LENGTH' INDEX B/FWD
Section:  4 in chap  2 at loc   48 N  100 short words  PASS 0 INPUT UNPACKED
Section:  6 in chap  2 at loc  148 N  900 short words  PASS 0 OLD/NEW PROCR INDEX
Section: 17 in chap  2 at loc 1048 N  100 short words  WL'S IN PASS 0
Section: 22 in chap  2 at loc 1148 N  450 short words  PASS 0 PROCR INDEX
Section: 19 in chap  2 at loc 1598 N  460 short words  PASS 0 ADJUST DETAILS
Section: 21 in chap  2 at loc 2058 N  100 short words  PASS 0 UNIQUE REFS
Section:  2 in chap  1 at loc    0 N   10 short words  EXTENSION BACKWARDS OF SECTION 18
Section: 18 in chap  1 at loc   10 N 2500 short words  SEQUENCE CHANGES FORWARD AND BACK
Section:  1 in chap  3 at loc    0 N   46 short words  PASS 1 INPUT UNPACKED
Section: 28 in chap  3 at loc   46 N   46 short words  PASS 1 NEXT RECORD
Section: 29 in chap  3 at loc   92 N   44 short words  PASS 1 NEXT OUTPUT REC
Section: 66 in chap  4 at loc    0 N   24 short words  PASS 2 INPUT UNPACKED
Section: 67 in chap  4 at loc   24 N    4 short words  PASS 2 O/P UNPACKED
Section: 61 in chap  4 at loc   28 N  120 short words  PASS 2 WL'S
Section: 72 in chap  4 at loc  148 N   32 short words  SWITCH PROCR LENGTHS+CHAP LENGTHS
Section: 71 in chap  4 at loc  180 N   20 short words  17 'MR>3' DETAILS+COUNTER
Section: 94 in chap  4 at loc  200 N  100 short words  MISC EACH PASS
Section: 53 in chap  4 at loc  300 N    0 short words  PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
Section: 77 in chap  4 at loc  300 N   44 short words  PASS 2 NEXT INPUT REC
Section: 70 in chap  4 at loc  344 N    0 short words  PASS 1 SECTION DETAILS(LENGTH 50)
Section: 30 in chap  4 at loc  344 N   18 short words  UNPACKED PT FOR 08005
Section: 31 in chap  4 at loc  362 N   22 short words  FOR MT BLOCK FOR 08005
Section: 32 in chap  4 at loc  384 N  170 short words  TD WL'S FOR 08005
Section: 54 in chap  4 at loc  554 N  160 short words  PASS 1 ADJUST DETAILS
Section: 55 in chap  4 at loc  714 N   50 short words  PASS 1 UNIQUE REFS
Section: 92 in chap  4 at loc  764 N   38 short words  GENERAL ALL PASSES
Section: 91 in chap  4 at loc  802 N   36 short words  TWO OTRS.FILES LIST-TX AREAS LIST
Section: 98 in chap  4 at loc  838 N   12 short words  10 'ITEM+'DETAILS AND COUNTER
Section: 95 in chap  4 at loc  850 N   50 short words  48 SWITCH DETAILS AND COUNTER
Section: 99 in chap  4 at loc  900 N   50 short words  25 RADIX PAIRS PER PROGRAMME
Section: 23 in chap  4 at loc  950 N   48 short words  'PRINT PROCEDURES' INDICATORS
Section: 25 in chap  4 at loc  998 N   42 short words  'TRACE'DETAILS
Section: 40 in chap  4 at loc 1040 N   20 short words  FRILL FOR PRINTING REPORT SERIALS
Section: 27 in chap  4 at loc 1060 N   20 short words  PERMANENT WL'S
Section: 10 in chap  0 at loc  914 T  390 short words  PRINTER/CLEO I/P TX AREA
Section: 14 in chap  4 at loc 1080 N    0 short words  DUMMY
Section:  5 in chap  4 at loc 1080 T   54 short words  PT IN+PRINT
Section:  7 in chap  4 at loc 1134 T  150 short words  MTIN,OUT+PRINT
Section:  8 in chap  4 at loc 1284 T  150 short words  
Section:  9 in chap  4 at loc 1434 T  150 short words  
Section: 26 in chap  6 at loc    0 N 1080 short words  PROCR START ADDRESSES
Section: 11 in chap  7 at loc    0 N   20 short words  
Section: 13 in chap  7 at loc   20 N   32 short words  
Section: 16 in chap  7 at loc   52 N   40 short words  
Section: 15 in chap  7 at loc   92 N  100 short words  
Section: 24 in chap  7 at loc  192 N   36 short words  
Section: 12 in chap  9 at loc    0 N  120 short words  PASS 1 WL'S
Section: 93 in chap  9 at loc  120 N  450 short words  PASS 1 OLD/NEW PROCR INDEX
Section: 97 in chap  9 at loc  570 N  460 short words  PASS 1 ADJUST DETAILS
Section: 52 in chap  9 at loc 1030 N  100 short words  PASS 1 UNIQUE REFS
Section: 63 in chap 10 at loc    0 N   60 short words  PASS 2 60 SHORT CONSTS PER CHAPTER
Section: 62 in chap 10 at loc   60 N  220 short words  PASS 2 90 LONG+20 TSL PER CHAPTER
Section: 20 in chap 10 at loc  280 N  300 short words  PASS 2 100 ACTIVE SEQ CHANGES FWD

=============== First pass =================

   -------------------------
   Equivalent PROCRs 101 101
   Equivalent CHAPs 2 2
   Overlay 1 starts at proc 101

   Chapter 1
   Number of short constants =     3
   Number of long constants =     0
   Chap 1 has 4 constants
   Code starts at 46
   constants at    50
   long constants at    54

   -------------------------
   Equivalent PROCRs 101 152
   Equivalent CHAPs 2 3
   Overlay 2 starts at proc 152

   Chapter 2
   Number of short constants =    40
   Number of long constants =    55
   Chap 2 has 150 constants
   Code starts at 46
   constants at  2392
   long constants at  2432

   -------------------------
   Equivalent PROCRs 152 327
   Equivalent CHAPs 3 4
   Overlay 3 starts at proc 327
   Literal operand combined with others

   Chapter 3
   Number of short constants =    55
   Number of long constants =    80
   Chap 3 has 216 constants
   Code starts at 46
   constants at  5076
   long constants at  5132

   -------------------------
   Equivalent PROCRs 152 553
   Equivalent CHAPs 3 5
   Overlay 4 starts at proc 553

   Chapter 4
   Number of short constants =    24
   Number of long constants =    54
   Chap 4 has 132 constants
   Code starts at 46
   constants at  5114
   long constants at  5138

   -------------------------
   Equivalent PROCRs 152 680
   Equivalent CHAPs 3 6
   Overlay 5 starts at proc 680

   Chapter 5
   Number of short constants =     7
   Number of long constants =    47
   Chap 5 has 101 constants
   Code starts at 46
   constants at  4209
   long constants at  4216

   -------------------------
   Equivalent PROCRs 152 776
   Equivalent CHAPs 3 7
   Overlay 6 starts at proc 776

   Chapter 6
   Number of short constants =     8
   Number of long constants =    63
   Chap 6 has 134 constants
   Code starts at 46
   constants at  2936
   long constants at  2944

   -------------------------
   Equivalent PROCRs 152 918
   Equivalent CHAPs 3 8
   Overlay 7 starts at proc 918

   -------------------------
   Equivalent PROCRs 152 994
   Equivalent CHAPs 3 9
   Overlay 8 starts at proc 994

   Chapter 7
   Number of short constants =    53
   Number of long constants =   138
   Chap 7 has 330 constants
   Code starts at 46
   constants at  4694
   long constants at  4748

   -------------------------
   Equivalent PROCRs 101 995
   Equivalent CHAPs 2 10
   Overlay 9 starts at proc 995

   Chapter 8
   Number of short constants =     3
   Number of long constants =     7
   Chap 8 has 18 constants
   Code starts at 46
   constants at  2142
   long constants at  2146

   Chapter 9
   Number of short constants =     3
   Number of long constants =     0
   Chap 9 has 4 constants
   Code starts at 46
   constants at    46
   long constants at    50

   Chapter 10
   Number of short constants =     3
   Number of long constants =     0
   Chap 10 has 4 constants
   Code starts at 46
   constants at    46
   long constants at    50

=============== Memory allocation =================

Chapter 1 equivalent to 1 located at 5600
   Section  2 length   5 starts at  5654 EXTENSION BACKWARDS OF SECTION 18
   Section 18 length 1250 starts at  5664 SEQUENCE CHANGES FORWARD AND BACK
Chapter 2 equivalent to 2 located at 8192
   Section  3 length  24 starts at 10734 PROCR 'LENGTH' INDEX B/FWD
   Section  4 length  50 starts at 10782 PASS 0 INPUT UNPACKED
   Section  6 length 450 starts at 10882 PASS 0 OLD/NEW PROCR INDEX
   Section 17 length  50 starts at 11782 WL'S IN PASS 0
   Section 19 length 230 starts at 12332 PASS 0 ADJUST DETAILS
   Section 21 length  50 starts at 12792 PASS 0 UNIQUE REFS
   Section 22 length 225 starts at 11882 PASS 0 PROCR INDEX
Chapter 3 equivalent to 2 located at 8192
   Section  1 length  23 starts at 13484 PASS 1 INPUT UNPACKED
   Section 28 length  23 starts at 13530 PASS 1 NEXT RECORD
   Section 29 length  22 starts at 13576 PASS 1 NEXT OUTPUT REC
Chapter 4 equivalent to 2 located at 8192
   Section  5 length  27 starts at 14522 PT IN+PRINT
   Section  7 length  75 starts at 14576 MTIN,OUT+PRINT
   Section  8 length  75 starts at 14726 
   Section  9 length  75 starts at 14876 
   Section 14 length   0 starts at 14522 DUMMY
   Section 23 length  24 starts at 14392 'PRINT PROCEDURES' INDICATORS
   Section 25 length  21 starts at 14440 'TRACE'DETAILS
   Section 27 length  10 starts at 14502 PERMANENT WL'S
   Section 30 length   9 starts at 13786 UNPACKED PT FOR 08005
   Section 31 length  11 starts at 13804 FOR MT BLOCK FOR 08005
   Section 32 length  85 starts at 13826 TD WL'S FOR 08005
   Section 40 length  10 starts at 14482 FRILL FOR PRINTING REPORT SERIALS
   Section 53 length   0 starts at 13742 PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127
   Section 54 length  80 starts at 13996 PASS 1 ADJUST DETAILS
   Section 55 length  25 starts at 14156 PASS 1 UNIQUE REFS
   Section 61 length  60 starts at 13470 PASS 2 WL'S
   Section 66 length  12 starts at 13442 PASS 2 INPUT UNPACKED
   Section 67 length   2 starts at 13466 PASS 2 O/P UNPACKED
   Section 70 length   0 starts at 13786 PASS 1 SECTION DETAILS(LENGTH 50)
   Section 71 length  10 starts at 13622 17 'MR>3' DETAILS+COUNTER
   Section 72 length  16 starts at 13590 SWITCH PROCR LENGTHS+CHAP LENGTHS
   Section 77 length  22 starts at 13742 PASS 2 NEXT INPUT REC
   Section 91 length  18 starts at 14244 TWO OTRS.FILES LIST-TX AREAS LIST
   Section 92 length  19 starts at 14206 GENERAL ALL PASSES
   Section 94 length  50 starts at 13642 MISC EACH PASS
   Section 95 length  25 starts at 14292 48 SWITCH DETAILS AND COUNTER
   Section 98 length   6 starts at 14280 10 'ITEM+'DETAILS AND COUNTER
   Section 99 length  25 starts at 14342 25 RADIX PAIRS PER PROGRAMME
Chapter 5 equivalent to 2 located at 8192
Chapter 6 equivalent to 2 located at 8192
   Section 26 length 540 starts at 11262 PROCR START ADDRESSES
Chapter 7 equivalent to 2 located at 8192
   Section 11 length  10 starts at 13216 
   Section 13 length  16 starts at 13236 
   Section 15 length  50 starts at 13308 
   Section 16 length  20 starts at 13268 
   Section 24 length  18 starts at 13408 
Chapter 8 equivalent to 2 located at 8192
Chapter 9 equivalent to 2 located at 8192
   Section 12 length  60 starts at  8242 PASS 1 WL'S
   Section 52 length  50 starts at  9272 PASS 1 UNIQUE REFS
   Section 93 length 225 starts at  8362 PASS 1 OLD/NEW PROCR INDEX
   Section 97 length 230 starts at  8812 PASS 1 ADJUST DETAILS
Chapter 10 equivalent to 2 located at 8192
   Section 20 length 150 starts at  8522 PASS 2 100 ACTIVE SEQ CHANGES FWD
   Section 62 length 110 starts at  8302 PASS 2 90 LONG+20 TSL PER CHAPTER
   Section 63 length  30 starts at  8242 PASS 2 60 SHORT CONSTS PER CHAPTER
PROCR 100 in CHAP 1 overlay = 0
PROCR 101 in CHAP 2 overlay = 1
PROCR 152 in CHAP 3 overlay = 2
PROCR 327 in CHAP 4 overlay = 3
PROCR 553 in CHAP 5 overlay = 4
PROCR 680 in CHAP 6 overlay = 5
PROCR 776 in CHAP 7 overlay = 6
PROCR 918 in CHAP 8 overlay = 7
PROCR 994 in CHAP 9 overlay = 8
PROCR 995 in CHAP 10 overlay = 9

=============== Second pass =================
L160   loading procedure 0 for chapter 0
L5646   loading chapter 1

  Start of procedure 100 at location 46 in chapter 1 [5646]
                   [5646]   10000 PROCR  100                    CHAPTER ONE                       
                   [5646]   10001 NOTES                         MAIN OVERLAY ORDER TO RECALL PASS 0 
   PROCR 101 in CHAP 2 overlay = 1
24/0/3 5600        [5646]   10002 152  101     2 0 0        0                                   OVERLAY
23/0/2 101         [5647]   10003   C  101     2 0 0        0                                   OVERLAY
24/0/3 5650    Extra code needed to address 8240 from 5648 (different chapter)
24/1/0 48          [5649]   10004  76  102     2 0 0        0                                   JUMP unconditional

   Constants for chapter 1
   short constants at  5650
   long constants at  5654
0/0/1 0 [5650] 002000
0/0/2 0 [5651] 004000
0/0/3 0 [5652] 006000
0/0/0 0 [5653] 000000
L5600   loading procedure 0 for chapter 1
0/0/0 0 [5600] 000000
0/0/0 5600 [5601] 0015E0
0/0/0 5600 [5602] 0015E0
0/0/1 0 [5603] 002000
0/0/1 0 [5604] 002000
0/0/0 160 [5605] 0000A0
0/0/0 160 [5606] 0000A0
0/0/0 9 [5607] 000009
0/0/0 18 [5608] 000012
0/0/0 27 [5609] 00001B
0/0/0 36 [5610] 000024
0/0/0 45 [5611] 00002D
0/0/0 10 [5612] 00000A
16/0/0 74 [5613] 10004A
0/0/0 19 [5614] 000013
16/0/0 83 [5615] 100053
0/0/0 28 [5616] 00001C
16/0/0 92 [5617] 10005C
0/0/0 37 [5618] 000025
16/0/0 101 [5619] 100065
0/0/0 46 [5620] 00002E
16/0/0 110 [5621] 10006E
0/0/0 8 [5622] 000008
16/0/0 10 [5623] 10000A
16/0/0 12 [5624] 10000C
16/0/0 14 [5625] 10000E
0/0/0 0 [5626] 000000
0/0/0 0 [5627] 000000
0/0/0 0 [5628] 000000
0/0/0 0 [5629] 000000
0/0/0 0 [5630] 000000
0/0/0 0 [5631] 000000
0/0/0 0 [5632] 000000
0/0/0 0 [5633] 000000
0/0/0 0 [5634] 000000
0/0/0 0 [5635] 000000
0/0/0 0 [5636] 000000
0/0/0 0 [5637] 000000
0/0/0 0 [5638] 000000
0/0/0 0 [5639] 000000
L8238   loading chapter 2

  Start of procedure 101 at location 46 in chapter 2 [8238]
                   [8238]   10100 PROCR  101                    CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0 
   PROCR 152 in CHAP 3 overlay = 2
24/0/3 0           [8238]   10102 152  101     2 0 0        0                                   OVERLAY
23/0/2 102         [8239]   10103   C  152     2 0 0        0                                   OVERLAY

  Start of procedure 102 at location 48 in chapter 2 [8240]
                   [8240]   10200 PROCR  102                    STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE 

   Source: DavidH/Q1000056
0/0/3 0            [8240]   10202  62          0 0 0        0                                   SET EXCESS CONSTANTS
25/1/1 4096        [8241]   10203 125       4096 1 1        0                                   CLEAR INDICATORS
23/0/2 51          [8242]   10204 123  102     5 0 2        0                                   ENTER MASTER ROUTINE
0/0/0 0            [8243]   10205 100          0 0 0        0                                   HALT
2/1/0 2180         [8244]   10206   5  148    42 1 0        0 ORIGINAL(A)                       TRANSFER
2/1/0 6310         [8245]   10207   5   27     0 1 0        0 CLEAR WL'S                        TRANSFER
2/1/0 6312         [8246]   10208   5   27     2 1 0        0                                   TRANSFER
2/1/0 6314         [8247]   10209   5   27     4 1 0        0                                   TRANSFER
2/1/0 6316         [8248]   10210   5   27     6 1 0        0                                   TRANSFER
2/0/0 6321         [8249]   10211   5   27    11 0 0        0                                   TRANSFER
2/0/0 6323         [8250]   10212   5   27    13 0 0        0                                   TRANSFER
2/0/0 8177         [8251]   10213  84  786     2 0 0        0 CLEAR SWITCH 772                  SET SWITCH(ES) AT VARIABLE VALUE
23/0/3 1435        [8252]   10214 123  128     2 0 3        0 PROG TAG                          SELECT TAG
18/0/1 4           [8253]   10215  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
1/0/1 16           [8254]   10216  35          0 0 0    10000                                   PREPARE FOR DIGIT COLLATION
14/0/0 1330        [8255] a 10217  37  125     4 0 0        0 FORM LINKS                        REPLACE SELECTED BITS
14/0/0 1331        [8256] a 10218  37  125     5 0 0        0                                   REPLACE SELECTED BITS
14/0/0 1332        [8257] a 10219  37  125     6 0 0        0                                   REPLACE SELECTED BITS
25/0/3 0           [8258]   10220  94  102    87 0 3        0 /////           *REENTRY          STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 135         [8259] s
24/0/3 5           [8260]   10221 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 34           [8261]   10222 106         34 0 0        0 D1                                SELECT (N)
18/0/1 4124        [8262]   10223  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
2/1/0 6318         [8263]   10224   5   27     8 1 0        0 INITIAL PRINTER TYPE+CLEAR 'OFFLINE' TRANSFER
24/0/3 5           [8264]   10225 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 36           [8265]   10226 106         36 0 0        0 B1                                SELECT (N)
18/0/1 4124        [8266]   10227  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
1/1/2 4            [8267]   10228  12          0 0 0        4                                   SUBTRACT LITERAL
2/0/0 6320         [8268]   10229   5   27    10 0 0        0 INPUT TYPE                        TRANSFER
6/0/0 1422         [8269] a 10230   0  126    15 0 0        0 23/0/2                            SELECT
2/0/0 1414         [8270]   10231   5  126     7 0 0        0                                   TRANSFER
6/1/0 2181         [8271]   10232      148    42 2 0        0                                   SELECT
27/0/0 147         [8272]   10233  70  102    98 0 0        0 gTHINGS OK.EXIT                   JUMP IF A == 0
6/0/0 2180         [8273]   10234   0  148    42 0 0        0                                   SELECT
2/0/0 31           [8274]   10235   5  999    31 0 0        0                                   TRANSFER
1/1/3 7            [8275]   10236  10          0 0 0        7 RT7                               SELECT LITERAL
26/0/0 148         [8276]   10237  80  103     2 0 0        0                                   ENTER SUBROUTINE
27/0/0 92          [8277]   10238  70  102    45 0 0        0 gOK                               JUMP IF A == 0
1/1/3 8            [8278]   10239  10          0 0 0        8 RT8                               SELECT LITERAL
26/0/0 148         [8279]   10240  80  103     2 0 0        0                                   ENTER SUBROUTINE
27/0/0 92          [8280]   10241  70  102    45 0 0        0                                   JUMP IF A == 0
1/1/3 11           [8281]   10242  10          0 0 0        e RT11                              SELECT LITERAL
26/0/0 148         [8282]   10243  80  103     2 0 0        0                                   ENTER SUBROUTINE
27/0/1 170         [8283]   10244  71  104     2 0 0        0 gALARM*10                         JUMP IF A != 0
6/0/0 0            [8284]   10245  84  787     2 0 0        0 CLEAR SWITCH                      SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 8176         [8285]   10246   C  999     0 0 0        0 TO OPEN A9                        SET SWITCH(ES) AT VARIABLE VALUE
1/1/3 1            [8286]   10247  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6319         [8287]   10248   5   27     9 0 0        0                                   TRANSFER
24/0/3 22          [8288]   10249  96          0 0 2        0 ALLOC ROUTE                       SELECT MODIFIER
6/0/0 4            [8289]  
1/1/2 64           [8290]   10250  12          0 0 0       40 64                                SUBTRACT LITERAL
3/0/0 7            [8291]   10251   3  999     7 0 0        0                                   COPY
18/0/3 1           [8292]   10252  31          0 0 0        1                                   SHIFT (A) BY BITS
18/1/1 4127        [8293]   10253  32          0 0 0       1-                                   SHIFT (AB) BY QUARTETS
2/0/0 1409         [8294]   10254   5  126     2 0 0        0 CHANNEL                           TRANSFER
18/1/3 3           [8295]   10255  33          0 0 0        3                                   SHIFT (AB) BY BITS
2/0/0 1454         [8296]   10256   5  129     2 0 0        0 ROUTE                             TRANSFER
6/0/0 1409         [8297]   10257      126     2 0 0        0 CHANNEL                           SELECT
26/0/0 1835        [8298]   10258  80  143     2 0 0        0 *DEC                              ENTER SUBROUTINE
2/0/0 2180         [8299]   10259   5  148    42 0 0        0                                   TRANSFER
0/0/3 0            [8300]   10260  62          0 0 0        0                                   SET EXCESS CONSTANTS

   Source: RayS/Q1000057
6/0/0 6319         [8301]   10261       27     9 0 0        0                                   SELECT
27/0/0 181         [8302]   10262  70  104     9 0 0        0                                   JUMP IF A == 0
24/0/3 5           [8303]   10263 124  999     5 0 3        0 SP CHAP START                     MODIFY ADDRESS OF NEXT
24/0/3 32          [8304]   10264 124         32 0 3        0                                   MODIFY ADDRESS OF NEXT
24/0/3 16          [8305]   10265 124         16 0 3        0                                   MODIFY ADDRESS OF NEXT
1/1/3 0            [8306]   10266  10          0 0 0        0 START OF REEL CTRS                SELECT LITERAL
4/0/0 7            [8307]   10267   1  999     7 0 0        0                                   ADD
2/0/0 1829         [8308]   10268   5  142     2 0 0        0 WL                                TRANSFER
24/0/3 1829        [8309]   10269 124  142     2 0 3        0                                   MODIFY ADDRESS OF NEXT
2/0/0 0            [8310]   10270 102          0 0 0        0 CLEAR REEL CTR FOR ROUTE          TRANSFER (A) TO N
24/0/3 5           [8311]   10271 124  999     5 0 3        0 FORM MODIFIER FOR HIGH LOW        MODIFY ADDRESS OF NEXT
24/0/3 32          [8312]   10272 124         32 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 22           [8313]   10273 106         22 0 0        0                                   SELECT (N)
4/0/0 7            [8314]   10274   1  999     7 0 0        0                                   ADD
2/0/0 148          [8315]   10275   5  103     2 0 0        0                                   TRANSFER
24/0/3 5           [8316]   10276 124  999     5 0 3        0 TEST MACHINE IS HIGH DENSITY      MODIFY ADDRESS OF NEXT
24/0/3 32          [8317]   10277 124         32 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 21           [8318]   10278 106         21 0 0        0                                   SELECT (N)
27/0/0 181         [8319]   10279  70  104     9 0 0        0 gNO                               JUMP IF A == 0
6/0/0 31           [8320]   10280      999    31 0 0        0                                   SELECT
1/1/2 88           [8321]   10281  12          0 0 0       58 'H'(=HIGH DENSITY WANTED)         SUBTRACT LITERAL
27/0/1 168         [8322]   10282  71  103    22 0 0        0 gNO                               JUMP IF A != 0
1/1/3 1            [8323]   10283  10          0 0 0        1                                   SELECT LITERAL
24/0/3 148         [8324]   10284 124  103     2 0 3        0                                   MODIFY ADDRESS OF NEXT
2/0/0 0            [8325]   10285 102          0 0 0        0                                   TRANSFER (A) TO N
24/1/0 181         [8326]   10286  76  104     9 0 0        0                                   JUMP unconditional
24/0/3 22          [8327]   10287  96          0 0 3        0                                   SELECT MODIFIER
6/0/0 6            [8328]  
27/0/0 141         [8329]   10288  70  102    92 0 0        0 gPRINTER WANTED   REENTRY         JUMP IF A == 0
6/0/0 6319         [8330]   10289       27     9 0 0        0                                   SELECT
27/0/1 147         [8331]   10290  71  102    98 0 0        0 gMT WANTED AND GOT,EXIT           JUMP IF A != 0
24/1/0 81          [8332]   10291  76  102    34 0 0        0 gGET MT                           JUMP unconditional
6/0/0 6319         [8333]   10292       27     9 0 0        0                                   SELECT
27/0/0 147         [8334]   10293  70  102    98 0 0        0 gPRINTER WANTED AND GOT,EXIT      JUMP IF A == 0
6/0/0 6318         [8335]   10294       27     8 0 0        0 INITIAL PRINTER TYPE              SELECT
26/0/0 148         [8336]   10295  80  103     2 0 0        0                                   ENTER SUBROUTINE
27/0/1 170         [8337]   10296  71  104     2 0 0        0 gALARM*10                         JUMP IF A != 0
24/1/0 95          [8338]   10297  76  102    48 0 0        0                                   JUMP unconditional
26/0/3 1330        [8339] a 10298 126  125     4 0 3        0 gTO MAIN PATH                     LEAVE MASTER ROUTINE

  Start of procedure 103 at location 148 in chapter 2 [8340]
                   [8340]   10300 PROCR  103                103 ALLOCATE ANOTHER DEVICE           
0/0/0 0            [8340]   10302  81  103     2 0 0        0                                   START OF SUBROUTINE
2/0/0 1782         [8341]   10303   5  140     2 0 0        0                                   TRANSFER
26/1/2 2432        [8342]   10304  90          0 0 2       64                                   SET MODIFICATION REGISTER AT LITERAL
                   [8343]   10305   C          0 0 0      128                                   Limit
6/0/0 1782         [8343]   10306      140     2 0 0        0                                   SELECT
24/0/3 0           [8344]   10307 124  999     0 0 3        0                                   MODIFY ADDRESS OF NEXT
5/0/2 0            [8345]   10308 105          0 0 2        0                                   SUBTRACT (N) FROM (A)
27/0/0 167         [8346]   10309  70  103    21 0 0        0 gMATCH END                        JUMP IF A == 0
25/0/2 1           [8347]   10310  94  103     6 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 151         [8348] s
6/0/0 9            [8349]   10311      999     9 0 0        0 KNOWN MT ROUTE                    SELECT
1/1/2 24           [8350]   10312  12          0 0 0       18 CH3/0                             SUBTRACT LITERAL
27/0/3 167         [8351]   10313  73  103    21 0 0        0 gSLOW CHANNEL;END WITHOUT MATCH   JUMP IF A < 0
26/1/2 2434        [8352]   10314  90          0 0 2      192                                   SET MODIFICATION REGISTER AT LITERAL
                   [8353]   10315   C          0 0 0      240                                   Limit
24/0/3 0           [8353]   10316 124  999     0 0 3        0 TRY FAST CHANNEL                  MODIFY ADDRESS OF NEXT
6/0/2 0            [8354]   10317 106          0 0 2        0                                   SELECT (N)
5/0/0 1782         [8355]   10318   2  140     2 0 0        0                                   SUBTRACT
27/0/0 167         [8356]   10319  70  103    21 0 0        0                                   JUMP IF A == 0

   Source: RayS/Q1000058
25/0/2 1           [8357]   10320  94  103    16 0 2        1 THE ALLOCATED ROUTE               STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 161         [8358] s
26/0/1 148         [8359]   10321  82  103     2 0 0        0 (A) NONZERO IF NO MATCH           END OF SUBROUTINE / LEAVE SUBROUTINE
1/1/3 0            [8360]   10322  10          0 0 0        0                                   SELECT LITERAL
24/1/0 132         [8361]   10323  76  102    84 0 0        0                                   JUMP unconditional

  Start of procedure 104 at location 170 in chapter 2 [8362]
                   [8362]   10400 PROCR  104                104 ALARM IF CANT FIND REQUIRED ???   
26/0/3 1331        [8362] a 10402 126  125     5 0 3        0                                   LEAVE MASTER ROUTINE
1/1/3 16           [8363]   10403 150          0 0 0       10                                   OFFER OPTIONS
0/0/2 2395         [8364]  
25/1/1 4096        [8365]  
24/0/3 0           [8366]  
26/0/2 1           [8367]  
0/0/1 1751         [8368] s 10404   C  136    61 0 0        0 gUNLOAD                           
0/0/1 179          [8369] s 10405   C  104     7 0 0        0 gTRY AGAIN                        
0/0/1 237          [8370] s 10406   C  105    38 0 0        0 gAS YOU ARE                       
6/1/0 2180         [8371]   10407      148    42 1 0        0 ORIGINAL (A)                      SELECT
24/1/0 48          [8372]   10408  76  102     2 0 0        0                                   JUMP unconditional
24/0/3 5           [8373]   10409 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 34           [8374]   10410 106         34 0 0        0                                   SELECT (N)
18/1/1 4124        [8375]   10411  32          0 0 0       4-                                   SHIFT (AB) BY QUARTETS
2/0/0 1829         [8376]   10412   5  142     2 0 0        0 ROUTE TYPE                        TRANSFER
18/1/1 2           [8377]   10413  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/3 0            [8378]   10414  10          0 0 0        0 (ALT ROUTE)                       SELECT LITERAL
18/1/1 2           [8379]   10415  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
2/0/0 1835         [8380]   10416   5  143     2 0 0        0 ROUTE                             TRANSFER
24/0/3 5           [8381]   10417 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
24/0/3 32          [8382]   10418 124         32 0 3        0                                   MODIFY ADDRESS OF NEXT
24/0/3 12          [8383]   10419 124         12 0 3        0 START OF ASSEMBLER TABLE          MODIFY ADDRESS OF NEXT
1/1/3 0            [8384]   10420 101          0 1 3        0                                   SELECT LITERAL ADDRESS
0/0/2 1835         [8385]   10421  34  143     2 0 0        0 BITS 4-8                          SET (N) IN B
15/0/0 2234        [8386]   10422  36  148    96 0 0        0 8XCHANNEL                         COLLATE AND ADD
2/0/0 1409         [8387]   10423   5  126     2 0 0        0                                   TRANSFER

  Start of procedure 105 at location 196 in chapter 2 [8388]
                   [8388]   10500 PROCR  105                105 START PASS 0-DEAL WITH INITIAL TRANSLATION 
1/1/1 128          [8388]   10502  11          0 0 0       80 *                                 ADD LITERAL
6/0/0 196          [8389]   10503 106  105     2 0 0        0 **                                SELECT (N)
24/0/3 5           [8390]   10504 124  999     5 0 3        0 ADJUST ORDERS                     MODIFY ADDRESS OF NEXT
24/0/3 32          [8391]   10505 124         32 0 3        0 FOR FCC MACHINES                  MODIFY ADDRESS OF NEXT
4/0/0 32           [8392]   10506 104         32 0 0        0 *****                             ADD (N) TO (A)
3/0/0 218          [8393]   10507 103  105    24 0 0        0 ****                              COPY (A) TO N
2/0/0 225          [8394]   10508 102  105    31 0 0        0 ***                               TRANSFER (A) TO N
24/0/3 1409        [8395]   10509 124  126     2 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 0            [8396]   10510 106          0 0 0        0 LAST ROUTE ON CHANNEL             SELECT (N)
5/0/0 1835         [8397]   10511   2  143     2 0 0        0                                   SUBTRACT
27/0/1 209         [8398]   10512  71  105    15 0 0        0 NOT THIS ONE                      JUMP IF A != 0
24/0/3 1409        [8399]   10513 124  126     2 0 3        0                                   MODIFY ADDRESS OF NEXT
2/1/0 0            [8400]   10514 102          0 1 0        0 CLEAR DETAILS                     TRANSFER (A) TO N
24/0/3 1835        [8401]   10515 124  143     2 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 64           [8402]   10516 106         64 0 0        0 OLD ASL                           SELECT (N)
24/0/3 7           [8403]   10517 124  999     7 0 3        0 NEW ROUTE                         MODIFY ADDRESS OF NEXT
2/0/0 64           [8404]   10518 102         64 0 0        0                                   TRANSFER (A) TO N
6/0/0 1829         [8405]   10519      142     2 0 0        0 OLD ROUTE TYPE    LOAD NEW ROUTE  SELECT
24/0/3 1835        [8406]   10520 124  143     2 0 3        0                                   MODIFY ADDRESS OF NEXT
2/0/0 64           [8407]   10521 102         64 0 0        0                                   TRANSFER (A) TO N
6/0/0 1782         [8408]   10522      140     2 0 0        0 NEW ROUTE TYPE                    SELECT
18/0/1 2           [8409]   10523  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
1/1/1 128          [8410]   10524  11          0 0 0       80 ***** DON'T MOVE *****            ADD LITERAL
18/0/1 2           [8411]   10525  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 7            [8412]   10526   1  999     7 0 0        0 NEW ROUTE                         ADD

   Source: RayS/Q1000059
24/0/3 5           [8413]   10527 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
2/0/0 34           [8414]   10528 102         34 0 0        0                                   TRANSFER (A) TO N
6/0/0 7            [8415]   10529      999     7 0 0        0                                   SELECT
18/0/1 2           [8416]   10530  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
1/1/1 128          [8417]   10531  11          0 0 0       80 ***** DON'T MOVE *****            ADD LITERAL
24/0/3 5           [8418]   10532 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
2/0/0 35           [8419]   10533 102         35 0 0        0                                   TRANSFER (A) TO N
26/0/3 1332        [8420] a 10534 126  125     6 0 3        0                                   LEAVE MASTER ROUTINE
24/0/2 2252        [8421]   10535  52    3     0 0 0        0                                   EDIT
28/1/2 2542        [8422]   10536   C  149    16 0 0        0                                   
0/1/0 40           [8423]   10537 154    3     0 0 0        0                                   COMMENT IN LOG
0/0/3 0            [8424]  
24/0/2 2542        [8425]  
24/0/3 0           [8426]  
23/0/2 154         [8427]  
0/1/1 40           [8428]  
0/0/3 0            [8429]   10538  62          0 0 0        0                                   SET EXCESS CONSTANTS
26/0/0 1540        [8430]   10539  80  134     2 0 0        0 gINTERCHANGE A1;D1 ASL'S          ENTER SUBROUTINE
6/0/0 6320         [8431]   10540       27    10 0 0        0 INPUT TYPE                        SELECT
1/1/1 14           [8432]   10541  11          0 0 0        .                                   ADD LITERAL
0/1/2 2208         [8433]   10542  34  148    70 1 0        0                                   SET (N) IN B
26/0/0 1409        [8434]   10543  80  126     2 0 0        0 gOPEN B1                          ENTER SUBROUTINE
6/1/0 2436         [8435]   10544  54    3     0 1 0     2158 ALL SECTIONS PASS 0               BULK CLEAR
28/1/1 2542        [8436]  
6/1/0 2438         [8437]   10545  54   72     0 1 0      838 ALL SECTIONS PASS 2               BULK CLEAR
28/1/1 5398        [8438]  
26/0/0 1809        [8439]   10546  80  141     2 0 0        0 READ PT                           ENTER SUBROUTINE
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [8441]   10547        5     0 1 0        0                                   SELECT
5/1/0 2182         [8442]   10548   2  148    44 1 0        0 PROGM'                            SUBTRACT
3/1/0 2182         [8443]   10549   3  148    44 1 0        0 IND'INITIAL TRANSLATION'          COPY
27/0/1 353         [8444]   10550  71  107     2 0 0        0 gAMENDMENT                        JUMP IF A != 0
0/1/0 40           [8445]   10551  40   A6     0 0 0        0                                   OPEN FILE
0/0/3 0            [8446]  
0/1/2 2440         [8447]  
6/1/0 2442         [8448]  
1/1/1 45           [8449]  
25/1/1 4096        [8450]  
24/0/3 0           [8451]  
23/0/2 40          [8452]  
0/0/3 44           [8453]  
26/0/0 1497        [8454]   10552  80  131     2 0 0        0 gWRITE                            ENTER SUBROUTINE
1/1/3 99           [8455]   10553  10          0 0 0       63 99                                SELECT LITERAL
2/0/0 5495         [8456]   10554   5   94    45 0 0        0 TRANSLATORS PROCR                 TRANSFER
26/0/0 1809        [8457]   10555  80  141     2 0 0        0 READ PT                           ENTER SUBROUTINE
27/0/0 1346        [8458]   10556  70  125    19 0 0        0 gPT AT END SIGN                   JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [8460]   10557   0    5     0 1 0        0                                   SELECT
5/1/0 2210         [8461]   10558   2  148    72 1 0        0 TRAMD'                            SUBTRACT
27/0/1 277         [8462]   10559  71  105    66 0 0        0                                   JUMP IF A != 0
1/1/3 1            [8463]   10560  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6321         [8464]   10561   5   27    11 0 0        0 IND'INITIAL TRANSLATION'          TRANSFER
26/0/0 1497        [8465]   10562  80  131     2 0 0        0 gWRITE                            ENTER SUBROUTINE
26/0/0 1809        [8466]   10563  80  141     2 0 0        0 READ                              ENTER SUBROUTINE
27/0/0 1346        [8467]   10564  70  125    19 0 0        0 gPT AT END                        JUMP IF A == 0
24/1/0 273         [8468]   10565  76  105    62 0 0        0                                   JUMP unconditional
6/1/0 2444         [8469]   10566  54    4     0 1 0       18                                   BULK CLEAR
28/1/1 2590        [8470]  
6/0/0 6320         [8471]   10567       27    10 0 0        0                                   SELECT
1/1/2 1            [8472]   10568  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 286         [8473]   10569  70  105    73 0 0        0 gPT                               JUMP IF A == 0
24/0/2 2270        [8474]   10570  50    5     4 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 15    Extra code needed to address transit area no 1, section 5
28/0/2 4           [8476]   10571   C  150     4 0 0        0                                   
24/1/0 289         [8477]   10572  76  105    76 0 0        0                                   JUMP unconditional
24/0/2 2270        [8478]   10573 124  150     4 0 2        0                                   SELECT LITERAL AND DIVISION
24/1/2 15          [8479]   10574 124  999    15 1 2        0 SEC 5                             MODIFY ADDRESS OF NEXT
28/0/3 0           [8480]   10575 128          0 0 3        0                                   UNPACK VARIABLE FIELD DATA
6/1/0 2596         [8481]   10576        4     6 1 0        0                                   SELECT
5/1/0 2184         [8482]   10577   2  148    46 1 0        0 PROCR'                            SUBTRACT
27/0/1 294         [8483]   10578  71  105    81 0 0        0 gNO                               JUMP IF A != 0
3/0/0 2228         [8484]   10579   3  148    90 0 0        0 SET IND FOR 'PROCR'               COPY
24/1/0 304         [8485]   10580  76  105    91 0 0        0                                   JUMP unconditional
6/1/0 2596         [8486]   10581        4     6 1 0        0                                   SELECT
5/1/0 2186         [8487]   10582   2  148    48 1 0        0 TABLE'                            SUBTRACT
27/0/0 303         [8488]   10583  70  105    90 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [8489]   10584        4     6 1 0        0                                   SELECT
5/1/0 2188         [8490]   10585   2  148    50 1 0        0 CONST'                            SUBTRACT

   Source: RayS/Q1000060
27/0/1 347         [8491]   10586  71  106    37 0 0        0 gNOT A DIRECTIVE                  JUMP IF A != 0
0/0/2 2606         [8492]   10587  34    4    16 0 0        0 CONSTANT TYPE                     SET (N) IN B
15/0/0 2140        [8493]   10588  36  148     2 0 0        0 BIT 1                             COLLATE AND ADD
27/0/0 304         [8494]   10589  70  105    91 0 0        0 gSHORT                            JUMP IF A == 0
1/1/3 1            [8495]   10590  10          0 0 0        1                                   SELECT LITERAL
2/0/0 3590         [8496]   10591   5   17     0 0 0        0                                   TRANSFER
0/0/3 0            [8497]   10592  62          0 0 0        0                                   SET EXCESS CONSTANTS
1/1/3 1            [8498]   10593  10          0 0 0        1                                   SELECT LITERAL
7/0/0 5495         [8499]   10594   4   94    45 0 0        0 TRANSLATOR PROCR                  AUGMENT
0/0/3 2396         [8500]   10595  60          0 0 0        0                                   SET DECIMAL RADIX

  Start of procedure 106 at location 309 in chapter 2 [8501]
                   [8501]   10600 PROCR  106                106 DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION 
6/1/0 2598         [8501]   10602        4     8 1 0        0 CODERS PROCR                      SELECT
1/1/2 256          [8502]   10603  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 350         [8503]   10604  73  106    40 0 0        0 gLESS THAN 100                    JUMP IF A < 0
1/1/2 2201         [8504]   10605  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/2 350         [8505]   10606  72  106    40 0 0        0                                   JUMP IF A >= 0
6/1/0 2598         [8506]   10607        4     8 1 0        0 gGREATER THAN 998                 SELECT
26/0/0 1829        [8507]   10608  80  142     2 0 0        0 CONVERT TO BIN                    ENTER SUBROUTINE
1/1/2 100          [8508]   10609  12          0 0 0       64 -100                              SUBTRACT LITERAL
18/1/3 3           [8509]   10610  33          0 0 0       1-                                   SHIFT (AB) BY BITS
18/1/1 4127        [8510]  
2/1/0 3598         [8511]   10611   5   17     8 1 0        0                                   TRANSFER
27/1/0 323         [8512]   10612  74  106    15 0 0        0 gC-100 EVEN                       JUMP IF AB == 0        // 27, 1, 0
1/1/3 10           [8513]   10613  10          0 0 0        t                                   SELECT LITERAL
2/0/0 3599         [8514]   10614   5   17     9 0 0        0 NO OF BITS TO BE SHIFTED          TRANSFER
6/0/0 5495         [8515]   10615       94    45 0 0        0 TRANSLATORS PROCR                 SELECT
0/0/2 2206         [8516]   10616  34  148    68 0 0        0 BITS 1-10                         SET (N) IN B
24/0/1 3599        [8517]   10617 124   17     9 0 1        0 LS HALF EVEN PROCR NUMBER         MODIFY ADDRESS OF NEXT
18/1/3 0           [8518]   10618  33          0 0 0        0 /////                             SHIFT (AB) BY BITS
2/0/0 1829         [8519]   10619   5  142     2 0 0        0 WL                                TRANSFER
24/0/1 3598        [8520]   10620 124   17     8 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 3690        [8521]   10621  36   22     0 0 0        0                                   COLLATE AND ADD
27/0/1 350         [8522]   10622  71  106    40 0 0        0 gPROCR ALREADY USED               JUMP IF A != 0
6/0/0 1829         [8523]   10623      142     2 0 0        0                                   SELECT
24/0/1 3598        [8524]   10624 124   17     8 0 1        0                                   MODIFY ADDRESS OF NEXT
14/0/0 3690        [8525]   10625  37   22     0 0 0        0                                   REPLACE SELECTED BITS
0/0/3 0            [8526]   10626  62          0 0 0        0 SET BIN                           SET EXCESS CONSTANTS
6/0/0 5495         [8527]   10627       94    45 0 0        0 TRANSLATORS PROCR                 SELECT
1/0/1 0            [8528]   10628  19          0 0 0       14 DIVIDE BY 20                      DIVIDE LITERAL
18/1/1 4119        [8529]  
13/0/0 2397        [8530]  
2/0/0 3600         [8531]   10629   5   17    10 0 0        0                                   TRANSFER
18/1/1 9           [8532]   10630  32          0 0 0        9                                   SHIFT (AB) BY QUARTETS
2/0/0 3599         [8533]   10631   5   17     9 0 0        0                                   TRANSFER
6/0/0 3590         [8534]   10632       17     0 0 0        0 SHORT/LONG IND                    SELECT
24/0/1 3599        [8535]   10633 124   17     9 0 1        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0           [8536]   10634  31          0 0 0        0 /////                             SHIFT (A) BY BITS
24/0/1 3600        [8537]   10635 124   17    10 0 1        0                                   MODIFY ADDRESS OF NEXT
7/0/0 5445         [8538]   10636   4   94    5- 0 0        0 AUGMENT TABLE                     AUGMENT
26/0/0 1497        [8539]   10637  80  131     2 0 0        0 WRITE A6                          ENTER SUBROUTINE
0/0/3 2398         [8540]   10638  60          0 0 0        0                                   SET DECIMAL RADIX
24/1/0 265         [8541]   10639  76  105    55 0 0        0 gREAD PT, TEST NEXT BLOCK         JUMP unconditional
1/1/3 1            [8542]   10640  10          0 0 0        1                                   SELECT LITERAL
2/1/0 3607         [8543]   10641   5   17    16 2 0        0 SET 'PASS 0 DOESN'T LIKE IT'      TRANSFER
24/1/0 334         [8544]   10642  76  106    26 0 0        0 gO/P, UPDATE 'LENGTH' IND         JUMP unconditional

  Start of procedure 107 at location 353 in chapter 2 [8545]
                   [8545]   10700 PROCR  107                    START OF AMENDMENT RUN            
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [8546]   10702   0    5     0 1 0        0                                   SELECT
5/1/0 2190         [8547]   10703   2  148    52 1 0        0 'AMEND'                           SUBTRACT

   Source: GeoffC/Q1000061
27/0/0 375         [8548]   10704  70  107    16 0 0        0                                   JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [8550]   10705        5     0 1 0        0                                   SELECT
5/1/0 2210         [8551]   10706   2  148    72 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 1841        [8552]   10707  70  144     2 0 0        0 >                                 JUMP IF A == 0
1/1/3 3            [8553]   10708 150          0 0 0        3 ALARM*3                           OFFER OPTIONS
0/0/2 2399         [8554]  
25/1/1 4096        [8555]  
24/0/3 0           [8556]  
26/0/2 1           [8557]  
0/0/1 1751         [8558] s 10709   C  136    61 0 0        0 >UNLOAD                           
0/0/1 368          [8559] s 10710   C  107    11 0 0        0 >REENTER                          
6/0/0 6319         [8560]   10711       27     9 0 0        0                                   SELECT
4/1/0 2446         [8561]   10712  11          0 0 0   900000                                   ADD LITERAL
3/1/0 40           [8562]   10713  91          0 0 3        0 (END VALUE NON ZERO)              SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40          [8563]  
26/0/0 1540        [8564]   10714  80  134     2 0 0        0 >INTERCHANGE A1,D1 ASL'S          ENTER SUBROUTINE
24/0/3 0    Extra code needed to address 5646 from 8565 (different chapter)
24/1/0 5646        [8566]   10715  76  100     2 0 0        0                                   JUMP unconditional
26/0/0 1994        [8567]   10716  80  145     2 0 0        0 UNPACK AND CHECK AMEND BLOCK      ENTER SUBROUTINE
0/1/0 40           [8568]   10717  40   A6     0 0 0        0                                   OPEN FILE
0/0/3 0            [8569]  
0/1/2 2448         [8570]  
6/1/0 2450         [8571]  
1/1/1 45           [8572]  
25/1/1 4096        [8573]  
24/0/3 0           [8574]  
23/0/2 40          [8575]  
0/0/3 44           [8576]  
6/1/0 2452         [8577]   10718  54    9     4 1 0       50                                   BULK CLEAR
24/1/2 21    Extra code needed to address transit area no 4, section 9
28/1/1 4           [8579]  
3/1/0 40           [8580]   10719  91          0 0 3        0 CLEAR R3                          SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40          [8581]  
26/0/0 1497        [8582]   10720  80  131     2 0 0        0 >WRITE 'AMEND'                    ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 14           [8584]   10721   0   10    14 1 0        0                                   SELECT
5/1/0 2454         [8585]   10722  12          0 0 0  7.0000007.                                   SUBTRACT LITERAL
27/0/1 401         [8586]   10723  71  107    27 0 0        0 >NOT ISSUE 2.3 OUTPUT             JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 12           [8588]   10724   5   10    12 1 0        0                                   TRANSFER
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 14           [8590]   10725   5   10    14 1 0        0                                   TRANSFER
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 16           [8592]   10726   5   10    16 1 0        0                                   TRANSFER
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 17           [8594]   10727   0   10    16 2 0        0 'MULTI-RECORD'IND                 SELECT
2/0/0 6311         [8595]   10728   5   27     1 0 0        0                                   TRANSFER
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 15           [8597]   10729   0   10    14 2 0        0 'PSEUDO-ISSUE 5'IND               SELECT
2/0/0 6312         [8598]   10730   5   27     2 0 0        0                                   TRANSFER
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 13           [8600]   10731   0   10    12 2 0        0 'ISSUE 6 OR LATER'IND             SELECT
3/0/0 6310         [8601]   10732   3   27     0 0 0        0                                   COPY
27/0/1 717         [8602]   10733  71  111     2 0 0        0 >YES                              JUMP IF A != 0
26/0/0 1754        [8603]   10734  80  137     2 0 0        0 >READ MT                          ENTER SUBROUTINE
6/0/0 6311         [8604]   10735       27     1 0 0        0                                   SELECT
27/0/0 417         [8605]   10736  70  107    39 0 0        0 >1-RECORD BLOX                    JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 12           [8607]   10737   0   10    12 1 0        0                                   SELECT
24/1/0 419         [8608]   10738  76  107    40 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10           [8610]   10739   0   10    10 1 0        0                                   SELECT
5/1/0 2184         [8611]   10740   2  148    46 1 0        0 'PROCR'                           SUBTRACT
27/0/0 427         [8612]   10741  70  107    48 0 0        0                                   JUMP IF A == 0
4/1/0 2184         [8613]   10742   1  148    46 1 0        0                                   ADD
5/1/0 2186         [8614]   10743   2  148    48 1 0        0 'TABLE'                           SUBTRACT
27/0/0 427         [8615]   10744  70  107    48 0 0        0                                   JUMP IF A == 0
4/1/0 2186         [8616]   10745   1  148    48 1 0        0                                   ADD
5/1/0 2188         [8617]   10746   2  148    50 1 0        0 'CONST'                           SUBTRACT
27/0/1 411         [8618]   10747  71  107    34 0 0        0 >GET TO FIRST PROCR START         JUMP IF A != 0
6/0/0 6311         [8619]   10748       27     1 0 0        0                                   SELECT
27/0/0 438         [8620]   10749  70  107    52 0 0        0 >1-RECORD BLOX                    JUMP IF A == 0
0/1/0 40           [8621]   10750  59   10     6 0 8        0                                   SET MODIFICATION REGISTER FOR MERGE
0/0/3 0            [8622]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
24/0/2 6           [8624]  
3/0/0 8178         [8625]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
4/1/0 5            [8627]   10751   C   10     4 2 0        0                                   SET MODIFICATION REGISTER FOR MERGE
2/0/0 8179         [8628]  
0/1/1 40           [8629]  
6/0/0 6311         [8630]   10752       27     1 0 0        0                                   SELECT
27/0/0 443         [8631]   10753  70  107    56 0 0        0                                   JUMP IF A == 0
24/0/3 8178        [8632]   10754              6 1 8        0                                   SELECT
6/1/0 6            [8633]  
24/1/0 445         [8634]   10755  76  107    57 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10           [8636]   10756   0   10    10 1 0        0                                   SELECT

   Source: GeoffC/Q1000062
5/1/0 2198         [8637]   10757   2  148    60 1 0        0 'END  '                           SUBTRACT
27/0/0 576         [8638]   10758  70  109     9 0 0        0 gEND OF INTERCODE                 JUMP IF A == 0
4/1/0 2198         [8639]   10759   1  148    60 1 0        0                                   ADD
5/1/0 2184         [8640]   10760   2  148    46 1 0        0 'PROCR'                           SUBTRACT
27/0/0 487         [8641]   10761  70  108    12 0 0        0 gYES                              JUMP IF A == 0
4/1/0 2184         [8642]   10762   1  148    46 1 0        0                                   ADD
5/1/0 2186         [8643]   10763   2  148    48 1 0        0 'TABLE'                           SUBTRACT
27/0/0 486         [8644]   10764  70  108    11 0 0        0 gYES                              JUMP IF A == 0
4/1/0 2186         [8645]   10765   1  148    48 1 0        0                                   ADD
5/1/0 2188         [8646]   10766   2  148    50 1 0        0 'CONST'                           SUBTRACT
27/0/0 475         [8647]   10767  70  108     2 0 0        0 gYES                              JUMP IF A == 0
4/1/0 2188         [8648]   10768   1  148    50 1 0        0                                   ADD
5/1/0 2194         [8649]   10769   2  148    56 1 0        0 'DUMPS'                           SUBTRACT
27/0/0 567         [8650]   10770  70  109     2 0 0        0 gYES                              JUMP IF A == 0
4/1/0 2194         [8651]   10771   1  148    56 1 0        0                                   ADD
5/1/0 2196         [8652]   10772   2  148    58 1 0        0 'FILES'                           SUBTRACT
27/0/0 567         [8653]   10773  70  109     2 0 0        0 gYES                              JUMP IF A == 0
4/1/0 2196         [8654]   10774   1  148    58 1 0        0                                   ADD
5/1/0 2456         [8655]   10775  12          0 0 0  7551637455 'VALUE'                           SUBTRACT LITERAL
27/0/1 545         [8656]   10776  71  108    61 0 0        0 gNOT A DIRECTIVE                  JUMP IF A != 0
6/0/0 6311         [8657]   10777       27     1 0 0        0                                   SELECT
27/0/0 470         [8658]   10778  70  107    81 0 0        0                                   JUMP IF A == 0
24/0/3 8178        [8659]   10779              4 2 8        0                                   SELECT
6/1/0 5            [8660]  
24/1/0 472         [8661]   10780  76  107    82 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [8663]   10781   0   10     6 2 0        0 LINE SERIAL                       SELECT
27/0/0 545         [8664]   10782  70  108    61 0 0        0 gDON'T COUNT                      JUMP IF A == 0
25/0/3 1           [8665]   10783  94  108    61 0 3        1 g(NEVER RUNS OUT)                 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 545         [8666] s

  Start of procedure 108 at location 475 in chapter 2 [8667]
                   [8667]   10800 PROCR  108                    STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P 
6/0/0 6311         [8667]   10802       27     1 0 0        0                                   SELECT
27/0/0 480         [8668]   10803  70  108     6 0 0        0                                   JUMP IF A == 0
24/0/1 8178        [8669]   10804  34         14 2 8        0 CONST TYPE 05                     SET (N) IN B
0/1/2 15           [8670]  
24/1/0 482         [8671]   10805  76  108     7 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
0/1/2 21           [8673]   10806  34   10    20 2 0        0                                   SET (N) IN B
1/1/3 0            [8674]   10807  10          0 0 0        0                                   SELECT LITERAL
18/1/1 4124        [8675]   10808  32          0 0 0       4-                                   SHIFT (AB) BY QUARTETS
15/0/0 2140        [8676]   10809  36  148     2 0 0        0 BIT 1                             COLLATE AND ADD
27/0/0 487         [8677]   10810  70  108    12 0 0        0 gSHORT                            JUMP IF A == 0
1/1/3 1            [8678]   10811  10          0 0 0        1 ;TABLE                            SELECT LITERAL
2/0/0 2587         [8679]   10812   5    3    45 0 0        0 WL;PROCR                          TRANSFER
0/0/3 2400         [8680]   10813  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 1            [8681]   10814  10          0 0 0        1                                   SELECT LITERAL
7/0/0 3600         [8682]   10815   4   17    10 0 0        0 COUNT DIRECTIVE BLOX              AUGMENT
6/0/0 3600         [8683]   10816       17    10 0 0        0                                   SELECT
1/1/1 153          [8684]   10817  11          0 0 0       99                                   ADD LITERAL
26/0/0 1829        [8685]   10818  80  142     2 0 0        0 gBIN                              ENTER SUBROUTINE
3/0/3 2690         [8686]   10819   3    6     0 0 3        0                                   COPY
25/0/3 1           [8687]   10820  94          0 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 497         [8688]  
1/0/1 0            [8689]   10821  19          0 0 0       14 DIVIDE BY 20                      DIVIDE LITERAL
18/1/1 4119        [8690]  
13/0/0 2401        [8691]  
2/1/0 2180         [8692]   10822   5  148    42 1 0        0                                   TRANSFER
26/1/1 2180        [8693]   10823  91  148    42 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
18/1/1 9           [8694]   10824  32          0 0 0        9 REMAINDERgA                       SHIFT (AB) BY QUARTETS
2/0/0 2588         [8695]   10825   5    3    46 0 0        0 WL           PROCR                TRANSFER
6/0/0 2587         [8696]   10826   0    3    45 0 0        0 BIT IND                           SELECT
24/0/1 2588        [8697]   10827 124    3    46 0 1        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0           [8698]   10828  31          0 0 0        0 /////                             SHIFT (A) BY BITS
7/0/1 2537         [8699]   10829   4    3    5- 0 1        0 LIST IN 3/0-44                    AUGMENT
6/0/0 6312         [8700]   10830       27     2 0 0        0                                   SELECT
27/0/1 545         [8701]   10831  71  108    61 0 0        0 gPSEUDO-ISSUE 5                   JUMP IF A != 0

   Source: GeoffC/Q1000063
6/0/0 2592         [8702]   10832        4     2 0 0        0 PROG ID;TEST DUMMY CLEO MOD       SELECT
0/0/2 2594         [8703]   10833  34    4     4 0 0        0 PROG SERIAL                       SET (N) IN B
27/1/0 545         [8704]   10834  74  108    61 0 0        0 gSKIP BUILDING UP SEC 53 FROM LINE SERIA JUMP IF AB == 0        // 27, 1, 0
6/0/0 6311         [8705]   10835       27     1 0 0        0                                   SELECT
27/0/0 518         [8706]   10836  70  108    39 0 0        0                                   JUMP IF A == 0
24/0/3 8178        [8707]   10837              4 2 8        0                                   SELECT
6/1/0 5            [8708]  
24/1/0 520         [8709]   10838  76  108    40 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [8711]   10839   0   10     6 2 0        0 LINE SERIAL                       SELECT
18/0/1 4126        [8712]   10840  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [8713]   10841  80  142     2 0 0        0 gBIN(NEW PROG)                    ENTER SUBROUTINE
2/0/0 1835         [8714]   10842   5  143     2 0 0        0 WL                                TRANSFER
6/0/0 6311         [8715]   10843       27     1 0 0        0                                   SELECT
27/0/0 528         [8716]   10844  70  108    47 0 0        0                                   JUMP IF A == 0
24/0/3 8178        [8717]   10845             10 2 8        0                                   SELECT
6/1/0 11           [8718]  
24/1/0 530         [8719]   10846  76  108    48 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 17           [8721]   10847   0   10    16 2 0        0 OLD PROG                          SELECT
18/0/1 4126        [8722]   10848  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
27/0/0 545         [8723]   10849  70  108    61 0 0        0 gDON'T COUNT                      JUMP IF A == 0
26/0/0 1829        [8724]   10850  80  142     2 0 0        0 gBIN(NEW PROG)                    ENTER SUBROUTINE
18/1/3 3           [8725]   10851  33          0 0 0       1- HALVE                             SHIFT (AB) BY BITS
18/1/1 4127        [8726]  
24/0/3 22          [8727]   10852  92          0 0 2        0 (CLEARS A)                        SET MODIFIER AT VARIABLE
2/0/0 4            [8728]  
27/1/0 542         [8729]   10853  74  108    58 0 0        0 gEVEN                             JUMP IF AB == 0        // 27, 1, 0
0/0/2 2206         [8730]   10854  34  148    68 0 0        0 BITS 1-10                         SET (N) IN B
6/0/0 1835         [8731]   10855      143     2 0 0        0                                   SELECT
18/1/3 10          [8732]   10856  33          0 0 0       10                                   SHIFT (AB) BY BITS
24/1/0 544         [8733]   10857  76  108    60 0 0        0                                   JUMP unconditional
0/0/2 2206         [8734]   10858  34  148    68 0 0        0                                   SET (N) IN B
6/0/0 1835         [8735]   10859      143     2 0 0        0                                   SELECT
14/0/2 5500        [8736]   10860  37   53   50- 0 2        0                                   REPLACE SELECTED BITS
6/0/0 6311         [8737]   10861       27     1 0 0        0                                   SELECT
27/0/0 565         [8738]   10862  70  108    71 0 0        0 g1-RECORD BLOCKS                  JUMP IF A == 0
24/0/3 8178        [8739]   10863              0 2 8        0 CURRENT RECORD LENGTH             SELECT
6/1/0 1            [8740]  
2/0/0 1754         [8741]   10864   5  137     2 0 0        0                                   TRANSFER
24/0/1 1754        [8742]   10865  97  137     2 0 8        0                                   STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
23/0/0 0           [8743]   10866   C  107    52 0 0        0 gNOT EMPTY                        STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
0/0/1 8178         [8744]  
24/1/0 438         [8745] s
26/0/0 1754        [8746]   10867  80  137     2 0 0        0 gREAD A1                          ENTER SUBROUTINE
0/1/0 40           [8747]   10868  59   10     6 0 8        0                                   SET MODIFICATION REGISTER FOR MERGE
0/0/3 0            [8748]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
24/0/2 6           [8750]  
3/0/0 8178         [8751]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
4/1/0 5            [8753]   10869   C   10     4 2 0        0                                   SET MODIFICATION REGISTER FOR MERGE
2/0/0 8179         [8754]  
0/1/1 40           [8755]  
24/1/0 438         [8756]   10870  76  107    52 0 0        0                                   JUMP unconditional
26/0/0 1754        [8757]   10871  80  137     2 0 0        0 gREAD A1                          ENTER SUBROUTINE
24/1/0 438         [8758]   10872  76  107    52 0 0        0                                   JUMP unconditional

  Start of procedure 109 at location 567 in chapter 2 [8759]
                   [8759]   10900 PROCR  109                    DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5 
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [8760]   10902   0   10     6 2 0        0                                   SELECT
2/0/0 2587         [8761]   10903   5    3    45 0 0        0 STORE 5-DIGIT SERIAL FIRST LINE   TRANSFER
26/0/0 1754        [8762]   10904  80  137     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10           [8764]   10905   0   10    10 1 0        0                                   SELECT
5/1/0 2198         [8765]   10906   2  148    60 1 0        0 'END  '                           SUBTRACT
27/0/1 570         [8766]   10907  71  109     4 0 0        0                                   JUMP IF A != 0
24/1/0 584         [8767]   10908  76  109    15 0 0        0 ;END                              JUMP unconditional
6/0/0 6311         [8768]   10909       27     1 0 0        0                                   SELECT
27/0/0 581         [8769]   10910  70  109    13 0 0        0 gSINGLE-RECORD BLOX               JUMP IF A == 0
24/0/3 8178        [8770]   10911              4 2 8        0 LINE SERIAL                       SELECT
6/1/0 5            [8771]  
24/1/0 583         [8772]   10912  76  109    14 0 0        0                                   JUMP unconditional

   Source: RayS/Q1000064
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [8774]   10913   0   10     6 2 0        0                                   SELECT
2/0/0 2587         [8775]   10914   5    3    45 0 0        0 STORE HIGHEST LINE SERIAL         TRANSFER
6/0/0 2587         [8776]   10915        3    45 0 0        0                                   SELECT
27/0/1 591         [8777]   10916  71  109    22 0 0        0                                   JUMP IF A != 0
0/0/3 2402         [8778]   10917  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 3600         [8779]   10918   0   17    10 0 0        0 DIRECTIVE CTR                     SELECT
1/1/1 256          [8780]   10919  11          0 0 0      100                                   ADD LITERAL
18/0/1 2           [8781]   10920  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
3/0/0 2587         [8782]   10921   3    3    45 0 0        0                                   COPY
2/0/0 3611         [8783]   10922   5   17    21 0 0        0                                   TRANSFER
0/0/3 2403         [8784]   10923  60          0 0 0        0 HIGHEST EFFECTIVE LINE SERIAL     SET DECIMAL RADIX
1/0/1 3            [8785]   10924  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/0 2587        [8786]   10925  36    3    45 0 0        0 LINE SERIAL OF DUMPS/FILES/END    COLLATE AND ADD
27/0/0 597         [8787]   10926  70  109    28 0 0        0 gA PROCR-SHAPED LINE              JUMP IF A == 0
1/1/3 256          [8788]   10927  10          0 0 0      100 STEP PROCR                        SELECT LITERAL
4/0/0 2587         [8789]   10928   1    3    45 0 0        0                                   ADD
18/0/1 4126        [8790]   10929  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [8791]   10930  80  142     2 0 0        0 gTO BIN                           ENTER SUBROUTINE
2/0/0 2587         [8792]   10931   5    3    45 0 0        0 (HIGHEST B/FWD PROCR+1) IN BINARY TRANSFER
6/0/0 3600         [8793]   10932       17    10 0 0        0 DIRECTIVE CTR                     SELECT
1/1/1 256          [8794]   10933  11          0 0 0      100                                   ADD LITERAL
26/0/0 1829        [8795]   10934  80  142     2 0 0        0 gBIN                              ENTER SUBROUTINE
2/0/0 5495         [8796]   10935   5   94    45 0 0        0 PROVIS(MAX C/FWD  PROCR)+1        TRANSFER
6/0/0 6312         [8797]   10936       27     2 0 0        0                                   SELECT
27/0/1 684         [8798]   10937  71  110    27 0 0        0 gPEUDO-ISSUE 5 O/P                JUMP IF A != 0
26/1/3 2458        [8799]   10938  90          0 0 3        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8800]   10939   C          0 0 0      900                                   Limit
26/1/2 2460        [8800]   10940  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8801]   10941   C          0 0 0        2 TRICK SETTING                     Limit
26/0/0 1776        [8801]   10942  80  139     2 0 0        0 gGET NEXT LOCN                    ENTER SUBROUTINE
6/0/0 2592         [8802]   10943        4     2 0 0        0 PROG ID                           SELECT
0/0/2 2594         [8803]   10944  34    4     4 0 0        0 PROG SERIAL                       SET (N) IN B
27/1/1 620         [8804]   10945  75  109    51 0 0        0 gBY PASS,EXCEPT PROG'00000'       JUMP IF AB != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/2 5            [8806]   10946   0   10     4 2 2        0                                   SELECT
18/1/3 2           [8807]   10947  33          0 0 0      10-                                   SHIFT (AB) BY BITS
18/1/1 4125        [8808]  
2/0/3 2691         [8809]   10948   5    6     1 0 3        0                                   TRANSFER
18/1/3 10          [8810]   10949  33          0 0 0       10                                   SHIFT (AB) BY BITS
2/0/3 2690         [8811]   10950   5    6     0 0 3        0                                   TRANSFER
25/0/3 2           [8812]   10951  94  109    42 0 3        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 609         [8813] s
6/0/0 2592         [8814]   10952        4     2 0 0        0                                   SELECT
0/0/2 2594         [8815]   10953  34    4     4 0 0        0                                   SET (N) IN B
27/1/1 628         [8816]   10954  75  109    58 0 0        0 gNOT PROGM'00000'                 JUMP IF AB != 0
1/1/3 1            [8817]   10955  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6312         [8818]   10956   5   27     2 0 0        0 SET PSEUDO ISSUE 5                TRANSFER
24/1/0 684         [8819]   10957  76  110    27 0 0        0                                   JUMP unconditional
6/0/0 3600         [8820]   10958       17    10 0 0        0 COUNTER OF DIRECTIVE BLOX         SELECT
1/1/2 1280         [8821]   10959  12          0 0 0      500                                   SUBTRACT LITERAL
27/0/3 654         [8822]   10960  73  110     2 0 0        0 gOK                               JUMP IF A < 0
0/1/0 40           [8823]   10961  41   A1     0 0 0        1                                   CLOSE FILE
0/0/3 0            [8824]  
6/1/0 0            [8825]  
1/1/1 27           [8826]  
25/1/1 4096        [8827]  
24/0/3 0           [8828]  
23/0/2 41          [8829]  
0/1/1 40           [8830]  
0/1/0 40           [8831]   10962  45   A6     0 0 0        1                                   REWIND
0/0/3 0            [8832]  
6/1/0 0            [8833]  
1/1/1 45           [8834]  
25/1/1 4096        [8835]  
24/0/3 0           [8836]  
23/0/2 45          [8837]  
0/1/1 40           [8838]  
1/1/3 9            [8839]   10963 150          0 0 0        9                                   OFFER OPTIONS
0/0/2 2404         [8840]  
25/1/1 4096        [8841]  
24/0/3 0           [8842]  
26/0/2 1           [8843]  
0/0/1 1751         [8844] s 10964   C  136    61 0 0        0 gUNLOAD                           
0/0/1 368          [8845] s 10965   C  107    11 0 0        0 gREENTER                          

  Start of procedure 110 at location 654 in chapter 2 [8846]
                   [8846]   11000 PROCR  110                    STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5 
26/1/1 2462        [8846]   11002  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8847]   11003   C          0 0 0      460 (FOR ADJUST DETAILS)              Limit
26/1/3 2464        [8847]   11004  90          0 0 3        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8848]   11005   C          0 0 0      160 FOR STORING                       Limit

   Source: RayS/Q1000065
26/0/0 1776        [8848]   11006  80  139     2 0 0        0 gGET ITEM                         ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/2 5            [8850]   11007   0   10     4 2 2        0                                   SELECT
2/0/1 5804         [8851]   11008   5   54     0 0 1        0                                   TRANSFER
25/0/1 1           [8852]   11009  94          0 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 662         [8853]  
25/0/3 1           [8854]   11010  94  110     6 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 656         [8855] s
26/0/0 1776        [8856]   11011  80  139     2 0 0        0 gGET                              ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/2 5            [8858]   11012       10     4 2 2        0                                   SELECT
27/0/1 631         [8859]   11013  71  109    61 0 0        0 gALARM 7, TOO MANY ADJUST DETAILS JUMP IF A != 0
25/0/1 1           [8860]   11014  94  110    11 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 664         [8861] s
26/1/3 2466        [8862]   11015  90          0 0 3        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8863]   11016   C          0 0 0       50                                   Limit
26/1/1 2468        [8863]   11017  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8864]   11018   C          0 0 0      100 (FOR UNIQUE REFS)                 Limit
26/0/0 1776        [8864]   11019  80  139     2 0 0        0 gGET                              ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/2 5            [8866]   11020   0   10     4 2 2        0                                   SELECT
2/0/1 5964         [8867]   11021   5   55     0 0 1        0                                   TRANSFER
25/0/1 1           [8868]   11022  94          0 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 678         [8869]  
25/0/3 1           [8870]   11023  94  110    19 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 672         [8871] s
26/0/0 1776        [8872]   11024  80  139     2 0 0        0 gGET                              ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/2 5            [8874]   11025   0   10     4 2 2        0                                   SELECT
27/0/1 631         [8875]   11026  71  109    61 0 0        0 gALARM 7, TOO MANY UNIQUE REFS    JUMP IF A != 0
0/1/0 40           [8876]   11027  46   A1     8 0 0        1                                   RUN BACK
0/0/3 0            [8877]  
0/1/2 2470         [8878]   11028   C          0 0 0    ppppp                                   RUN BACK
6/1/0 0            [8879]  
1/1/1 27           [8880]  
25/1/1 4096        [8881]  
24/0/3 0           [8882]  
23/0/2 46          [8883]  
0/1/1 40           [8884]  
26/0/0 1754        [8885]   11029  80  137     2 0 0        0 gREAD                             ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 6            [8887]   11030   0   10     6 1 0        0                                   SELECT
5/1/0 2200         [8888]   11031   2  148    62 1 0        0 INDEX'                            SUBTRACT
27/0/0 715         [8889]   11032  70  110    41 0 0        0 gREAD FWD TO 'PASS 1'             JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 5            [8891]   11033   0   10     4 2 0        0                                   SELECT
5/0/0 2592         [8892]   11034   2    4     2 0 0        0 PROG IDENTITY                     SUBTRACT
27/0/1 706         [8893]   11035  71  110    39 0 0        0 gMISALIGNED                       JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [8895]   11036   0   10     6 2 0        0                                   SELECT
5/0/0 2594         [8896]   11037   2    4     4 0 0        0 SERIAL                            SUBTRACT
27/0/0 745         [8897]   11038  70  111    23 0 0        0 gOK                               JUMP IF A == 0
0/1/0 40           [8898]   11039  45   A1     0 0 0        1                                   REWIND
0/0/3 0            [8899]  
6/1/0 0            [8900]  
1/1/1 27           [8901]  
25/1/1 4096        [8902]  
24/0/3 0           [8903]  
23/0/2 45          [8904]  
0/1/1 40           [8905]  
26/0/0 1765        [8906]   11040  80  138     2 0 0        0 gOPEN A1                          ENTER SUBROUTINE
26/0/0 1670        [8907]   11041  80  136     2 0 0        0 gAPPROACH FROM START OF TAPE      ENTER SUBROUTINE
24/1/0 745         [8908]   11042  76  111    23 0 0        0                                   JUMP unconditional

  Start of procedure 111 at location 717 in chapter 2 [8909]
                   [8909]   11100 PROCR  111                    DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN 
26/1/1 2472        [8909]   11102  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [8910]   11103   C          0 0 0       46                                   Limit
26/0/0 1754        [8910]   11104  80  137     2 0 0        0 READ MT                           ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
24/0/2 5           [8912]   11105  55   10     4 2 0       46                                   BULK COPY
18/1/0 4123        [8913]   11106   C    3     0 0 1        0 INDEX 3/0-45                      
1/1/3 46           [8914]  
18/1/1 5           [8915]  
24/0/0 23          [8916]  
28/1/0 2542        [8917]  
25/0/1 23          [8918]   11107  94  111     4 0 1       23                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 718         [8919] s
6/0/0 2587         [8920]   11108        3    45 0 0        0                                   SELECT
26/0/0 1835        [8921]   11109  80  143     2 0 0        0 gDEC                              ENTER SUBROUTINE
18/0/1 2           [8922]   11110  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
2/0/0 3611         [8923]   11111   5   17    21 0 0        0 HIGHEST EFFECTIVE LINE SERIAL     TRANSFER
0/0/3 0            [8924]   11112  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 2587         [8925]   11113        3    45 0 0        0 (HIGHEST B/FWD PROCR+1) IN BINARY SELECT
18/0/1 5           [8926]   11114  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
1/1/1 100          [8927]   11115 101        100 1 1        0 CREATE B/FWD OLD-NEW PROCR INDEX  ADD LITERAL ADDRESS
3/1/0 40           [8928]   11116  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [8929]  
1/1/3 100          [8930]   11117 101        100 1 3        0                                   SELECT LITERAL ADDRESS
3/0/1 2590         [8931]   11118   3    6  100- 0 1        0 STORE ONE-FOR-ONE                 COPY
1/1/1 1            [8932]   11119  11          0 0 0        1                                   ADD LITERAL
25/0/1 1           [8933]   11120  94  111    18 0 1        1 MAX B/FWD PROCR                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 739         [8934] s

   Source: RayS/Q1000066
6/0/0 2587         [8935]   11121        3    45 0 0        0 =PROVIS MAX C/FWD PROCR           SELECT
2/0/0 5495         [8936]   11122   5   94    45 0 0        0                                   TRANSFER
24/0/2 2238        [8937]   11123  52   18     0 0 0        0                                   EDIT
24/0/3 0    Extra code needed to address 5664 from 8938 (different chapter)
28/1/2 5664        [8939]   11124   C  149     2 0 0        0                                   
0/1/0 40           [8940]   11125 154   18     0 0 0        0 TYPE 'AMEND' COMMENT              COMMENT IN LOG
0/0/3 0            [8941]  
24/0/3 0    Extra code needed to address 5664 from 8942 (different chapter)
24/0/2 5664        [8943]  
24/0/3 0           [8944]  
23/0/2 154         [8945]  
0/1/1 40           [8946]  

  Start of procedure 112 at location 755 in chapter 2 [8947]
                   [8947]   11200 PROCR  112                    READ/WRITE MODS UP TO FIRST DIRECTIVE 
26/0/0 1425        [8947]   11202  80  127     2 0 0        0 gREAD/TEST PT                     ENTER SUBROUTINE
27/0/0 759         [8948]   11203  70  112     6 0 0        0 gYES                              JUMP IF A == 0
26/0/0 1497        [8949]   11204  80  131     2 0 0        0 gWRITE                            ENTER SUBROUTINE
24/1/0 755         [8950]   11205  76  112     2 0 0        0                                   JUMP unconditional
6/0/0 2405         [8951]   11206  10          0 0 0     9999                                   SELECT LITERAL
3/0/0 3600         [8952]   11207   3   17    10 0 0        0 SET FOR SEQUENCE CHECKS           COPY
2/0/0 3604         [8953]   11208   5   17    14 0 0        0                                   TRANSFER
6/0/0 2593         [8954]   11209   0    4     3 0 0        0 LINE SERIAL                       SELECT
18/0/1 4125        [8955]   11210  30          0 0 0       3-                                   SHIFT (A) BY QUARTETS
1/1/2 91           [8956]   11211  12          0 0 0       5e *                                 SUBTRACT LITERAL
27/0/0 757         [8957]   11212  70  112     4 0 0        0 gMOD TO SECTIONS                  JUMP IF A == 0
6/1/0 3618         [8958]   11213       17    28 1 0        0 PROG + SERIAL                     SELECT
27/0/1 787         [8959]   11214  71  113    16 0 0        0 gNORMAL                           JUMP IF A != 0
1/1/3 1            [8960]   11215  10          0 0 0        1 PROGM 00000                       SELECT LITERAL
2/1/0 3606         [8961]   11216   5   17    16 1 0        0 SET PASS 0 DOESN'T LIKE IT        TRANSFER
26/0/0 1535        [8962]   11217  80  133     2 0 0        0 gCOPY                             ENTER SUBROUTINE
24/1/0 768         [8963]   11218  76  112    15 0 0        0 gIGNORE ALL MODS                  JUMP unconditional

  Start of procedure 113 at location 772 in chapter 2 [8964]
                   [8964]   11300 PROCR  113                    MAIN LOOP                         
26/0/0 1809        [8964]   11302  80  141     2 0 0        0 gREAD                             ENTER SUBROUTINE
27/0/0 1265        [8965]   11303  70  124     2 0 0        0 gPT END                           JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [8967]   11304   0    5     0 1 0        0                                   SELECT
5/1/0 2210         [8968]   11305   2  148    72 1 0        0 TRAMD'                            SUBTRACT
27/0/1 784         [8969]   11306  71  113    13 0 0        0 gNO                               JUMP IF A != 0
1/1/3 1            [8970]   11307  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6321         [8971]   11308   5   27    11 0 0        0 SET IND THAT TRAMDING             TRANSFER
26/0/0 1497        [8972]   11309  80  131     2 0 0        0 gWRITE                            ENTER SUBROUTINE
26/0/0 1809        [8973]   11310  80  141     2 0 0        0 gREAD                             ENTER SUBROUTINE
27/0/1 780         [8974]   11311  71  113     9 0 0        0 gNOT PT END                       JUMP IF A != 0
24/1/0 1265        [8975]   11312  76  124     2 0 0        0                                   JUMP unconditional
26/0/0 1519        [8976]   11313  80  132     2 0 0        0 gUNPACK                           ENTER SUBROUTINE
26/0/0 1454        [8977]   11314  80  129     2 0 0        0 gSTORE SWITCH, TEST DIRECTIVE     ENTER SUBROUTINE
27/0/1 1075        [8978]   11315  71  120     2 0 0        0                                   JUMP IF A != 0
0/0/3 2406         [8979]   11316  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 3600         [8980]   11317       17    10 0 0        0 CHECK SEQUENCE AT NEW DIRECTIVE   SELECT
5/1/0 2593         [8981]   11318   2    4     2 2 0        0                                   SUBTRACT
27/0/3 795         [8982]   11319  73  113    24 0 0        0 gOK                               JUMP IF A < 0
27/0/1 1145        [8983]   11320  71  121    44 0 0        0 gREJECT, READ/COPY TO NEXT DIRECTIVE JUMP IF A != 0
6/0/0 3602         [8984]   11321   0   17    12 0 0        0                                   SELECT
1/1/2 3            [8985]   11322  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/1 1145        [8986]   11323  71  121    44 0 0        0 gPREVIOUS NOT 'T' H53, IGNORE THIS JUMP IF A != 0
6/0/0 3611         [8987]   11324       17    21 0 0        0 MAX B/FWD LINE SERIAL             SELECT
5/1/0 2593         [8988]   11325   2    4     2 2 0        0 THIS LINE SERIAL                  SUBTRACT
27/0/2 802         [8989]   11326  72  113    31 0 0        0 gNORMAL                           JUMP IF A >= 0
1/1/3 1            [8990]   11327  10          0 0 0        1                                   SELECT LITERAL

   Source: GeoffC/Q1000067
2/1/0 3606         [8991]   11328   5   17    16 1 0        0 SET 'PASS 0 DOESNT LIKE IT'       TRANSFER
26/0/0 1535        [8992]   11329  80  133     2 0 0        0 gWRITE A6                         ENTER SUBROUTINE
24/1/0 798         [8993]   11330  76  113    27 0 0        0                                   JUMP unconditional
27/0/1 807         [8994]   11331  71  113    36 0 0        0 gOK                               JUMP IF A != 0
6/0/0 8175         [8995]   11332  86  129     2 0 0        0                                   SELECT SWITCH R
1/1/2 3            [8996]   11333  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/1 798         [8997]   11334  71  113    27 0 0        0 gMOD AT END IS NOT 'INSERT'       JUMP IF A != 0
24/1/0 1049        [8998]   11335  76  119     7 0 0        0 gINSERTING AT END SIGN            JUMP unconditional
6/1/0 2593         [8999]   11336        4     2 2 0        0                                   SELECT
18/0/1 4126        [9000]   11337  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [9001]   11338  80  142     2 0 0        0 BIN           TEST IF VALUE       ENTER SUBROUTINE
2/0/0 1835         [9002]   11339   5  143     2 0 0        0 ;DIRECTIVE?                       TRANSFER
24/0/1 1835        [9003]   11340 124  143     2 0 1        0 EQUIV OF CURRENT PROCR            MODIFY ADDRESS OF NEXT
6/0/0 2590         [9004]   11341        6  100- 0 0        0                                   SELECT
27/0/0 1145        [9005]   11342  70  121    44 0 0        0 gREJECT.READ/COPY TO NEXT DIRECTIVE JUMP IF A == 0
24/0/1 8175        [9006]   11343  85  129     2 0 0        0                                   SWITCH R
26/0/1 815         [9007]  
0/0/1 991          [9008]   11344   C  118     2 0 0        0 R                                 
0/0/1 820          [9009]   11345   C  114     2 0 0        0 D                                 
0/0/1 1044         [9010]   11346   C  119     2 0 0        0 T                                 
0/0/1 1019         [9011]   11347   C  118    30 0 0        0 A                                 

  Start of procedure 114 at location 820 in chapter 2 [9012]
                   [9012]   11400 PROCR  114                                                      
26/0/0 1477        [9012]   11402  80  130     2 0 0        0 gFIND 'PROCR 'LENGTH'             ENTER SUBROUTINE
2/0/0 3590         [9013]   11403   5   17     0 0 0        0 0=SHORT, 1=LONG                   TRANSFER
1/0/1 3            [9014]   11404  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/1/0 2593        [9015]   11405  36    4     2 2 0        0                                   COLLATE AND ADD
1/1/2 1            [9016]   11406  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 830         [9017]   11407  70  114    12 0 0        0 gDELETION BEGINS AT'NOTES'        JUMP IF A == 0
1/1/3 0            [9018]   11408  10          0 0 0        0                                   SELECT LITERAL
0/0/2 3590         [9019]   11409  34   17     0 0 0        0                                   SET (N) IN B
15/1/0 2593        [9020]   11410  36    4     2 2 0        0 LINE SERIAL                       COLLATE AND ADD
27/0/1 1145        [9021]   11411  71  121    44 0 0        0 gUNACCEPTABLE MOD                 JUMP IF A != 0
6/1/0 2593         [9022]   11412   0    4     2 2 0        0                                   SELECT
3/0/0 3604         [9023]   11413   3   17    14 0 0        0                                   COPY
18/0/1 8           [9024]   11414  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 837         [9025]   11415  70  114    19 0 0        0 gDELETING PROCR                   JUMP IF A == 0
6/0/0 3593         [9026]   11416       17     3 0 0        0 CTR OF ADJUST DETAILS             SELECT
1/1/2 460          [9027]   11417 101        460 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1145        [9028]   11418  70  121    44 0 0        0 gLIST FULL.COPY TO NEXT DIRECTIVE JUMP IF A == 0
26/0/0 1497        [9029]   11419  80  131     2 0 0        0 gWRITE A6                         ENTER SUBROUTINE
26/0/0 1809        [9030]   11420  80  141     2 0 0        0 gREAD                             ENTER SUBROUTINE
27/0/0 847         [9031]   11421  70  115     2 0 0        0 gPT AT END. SINGLE LINE DELETE    JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9033]   11422        5     0 1 0        0                                   SELECT
5/1/0 2210         [9034]   11423   2  148    72 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 847         [9035]   11424  70  115     2 0 0        0                                   JUMP IF A == 0
26/0/0 1519        [9036]   11425  80  132     2 0 0        0 gUNPACK                           ENTER SUBROUTINE
26/0/0 1454        [9037]   11426  80  129     2 0 0        0 gTEST DIRECTIVE                   ENTER SUBROUTINE
27/0/1 882         [9038]   11427  71  116     2 0 0        0 gNO, HENCE MULTIPLE DELETE        JUMP IF A != 0

  Start of procedure 115 at location 847 in chapter 2 [9039]
                   [9039]   11500 PROCR  115                    DEAL WITH SINGLE LINE DELETION    
6/0/0 3604         [9039]   11502   0   17    14 0 0        0                                   SELECT
3/0/0 3600         [9040]   11503   3   17    10 0 0        0 FOR SEQUENCE CHECKS               COPY
18/0/1 8           [9041]   11504  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/1 853         [9042]   11505  71  115     8 0 0        0 gNOT DELETING 'PROCR'             JUMP IF A != 0
6/0/0 3604         [9043]   11506       17    14 0 0        0                                   SELECT
24/1/0 899         [9044]   11507  76  116    19 0 0        0 gJOIN UP WITH MULTIPLE DELETION   JUMP unconditional
18/0/1 4120        [9045]   11508  30          0 0 0       8-                                   SHIFT (A) BY QUARTETS
1/1/2 1            [9046]   11509  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 871         [9047]   11510  70  115    26 0 0        0 gDELETING 'NOTES'ONLY             JUMP IF A == 0

   Source: GeoffC/Q1000068
1/1/3 0            [9048]   11511  10          0 0 0        0                                   SELECT LITERAL
5/0/0 3590         [9049]   11512   2   17     0 0 0        0                                   SUBTRACT
1/1/2 1            [9050]   11513  12          0 0 0        1                                   SUBTRACT LITERAL
2/0/0 3605         [9051]   11514   5   17    15 0 0        0                                   TRANSFER
6/0/0 3604         [9052]   11515       17    14 0 0        0                                   SELECT
18/1/1 4126        [9053]   11516  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
2/0/0 3609         [9054]   11517   5   17    19 0 0        0 PROCR                             TRANSFER
6/0/0 3604         [9055]   11518       17    14 0 0        0                                   SELECT
5/0/0 3605         [9056]   11519   2   17    15 0 0        0 -(NEGATIVE ADJUST DETAILS)        SUBTRACT
2/0/0 3604         [9057]   11520   5   17    14 0 0        0                                   TRANSFER
6/0/0 3604         [9058]   11521       17    14 0 0        0 LINE SERIAL+ADJUST DETAIL         SELECT
18/1/1 4126        [9059]   11522  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
5/0/0 3609         [9060]   11523   2   17    19 0 0        0                                   SUBTRACT
27/0/1 871         [9061]   11524  71  115    26 0 0        0 CARRY INTO NEXT PROCR.DON'T STORE JUMP IF A != 0
26/0/0 1782        [9062]   11525  80  140     2 0 0        0 gSTORE ADJUSTMENT                 ENTER SUBROUTINE
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9064]   11526   0    5     0 1 0        0                                   SELECT
18/0/1 4124        [9065]   11527  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4           [9066]   11528  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 2198         [9067]   11529   2  148    60 1 0        0 'END'                             SUBTRACT
27/0/0 1265        [9068]   11530  70  124     2 0 0        0 gPT AT END                        JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9070]   11531        5     0 1 0        0                                   SELECT
5/1/0 2210         [9071]   11532   2  148    72 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 778         [9072]   11533  70  113     7 0 0        0                                   JUMP IF A == 0
24/1/0 787         [9073]   11534  76  113    16 0 0        0 gTEST NEW DIRECTIVE IN SEQUENCE   JUMP unconditional

  Start of procedure 116 at location 882 in chapter 2 [9074]
                   [9074]   11600 PROCR  116                    DEAL WITH MULTIPLE DELETION       
6/1/0 2593         [9074]   11602        4     2 2 0        0                                   SELECT
18/0/1 4126        [9075]   11603  30          0 0 0       2- ;TEST IF DIRECTIVE                SHIFT (A) BY QUARTETS
26/0/0 1829        [9076]   11604  80  142     2 0 0        0 gBIN;IS VALUE SERIAL?             ENTER SUBROUTINE
2/0/0 1835         [9077]   11605   5  143     2 0 0        0                                   TRANSFER
24/0/1 1835        [9078]   11606 124  143     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 2590         [9079]   11607        6  100- 0 0        0                                   SELECT
27/0/0 1145        [9080]   11608  70  121    44 0 0        0 gATTEMPTING TO DELETE 'VALUE' REJECT JUMP IF A == 0
26/0/0 1477        [9081]   11609  80  130     2 0 0        0 gFIND PROCR 'LENGTH'              ENTER SUBROUTINE
2/0/0 3590         [9082]   11610   5   17     0 0 0        0                                   TRANSFER
0/0/2 3590         [9083]   11611  34   17     0 0 0        0                                   SET (N) IN B
15/1/0 2593        [9084]   11612  36    4     2 2 0        0 LINE SERIAL 'TO'                  COLLATE AND ADD
27/0/1 1145        [9085]   11613  71  121    44 0 0        0 gREJECT AMENDMENT                 JUMP IF A != 0
6/0/0 3604         [9086]   11614   0   17    14 0 0        0 'FROM'                            SELECT
5/1/0 2593         [9087]   11615   2    4     2 2 0        0 'TO'                              SUBTRACT
27/0/2 1145        [9088]   11616  72  121    44 0 0        0 gREJECT.OUT OF SEQUENCE           JUMP IF A >= 0
6/1/0 2593         [9089]   11617        4     2 2 0        0 'TO'PROCR                         SELECT
3/0/0 3600         [9090]   11618   3   17    10 0 0        0 FOR SEQUENCE CHECKS               COPY
18/1/1 4126        [9091]   11619  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
2/0/0 3605         [9092]   11620   5   17    15 0 0        0 3-DIGIT'TO'                       TRANSFER
6/0/0 3604         [9093]   11621       17    14 0 0        0 'FROM'PROCR                       SELECT
18/1/1 4126        [9094]   11622  32          0 0 0       2- 'TO'PROCR                         SHIFT (AB) BY QUARTETS
3/0/0 3609         [9095]   11623   3   17    19 0 0        0 '3-DIGIT'FROM'                    COPY
5/0/0 3605         [9096]   11624   2   17    15 0 0        0                                   SUBTRACT
27/0/0 910         [9097]   11625  70  116    30 0 0        0 gDELETIONS IN SAME PROCR          JUMP IF A == 0
6/0/0 3604         [9098]   11626       17    14 0 0        0 'FROM'SERIAL                      SELECT
18/0/1 8           [9099]   11627  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 932         [9100]   11628  70  117     2 0 0        0 gOK.ALLOW DELETION                JUMP IF A == 0
24/1/0 1145        [9101]   11629  76  121    44 0 0        0 gREJECT                           JUMP unconditional
18/1/1 2           [9102]   11630  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
27/0/0 932         [9103]   11631  70  117     2 0 0        0 g'FROM' PROCR DELETED ONLY        JUMP IF A == 0
6/0/0 3604         [9104]   11632   0   17    14 0 0        0                                   SELECT
18/0/1 8           [9105]   11633  30          0 0 0        8                                   SHIFT (A) BY QUARTETS

   Source: GeoffC/Q1000069
18/0/1 4120        [9106]   11634  30          0 0 0       8-                                   SHIFT (A) BY QUARTETS
1/1/2 1            [9107]   11635  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 1145        [9108]   11636  70  121    44 0 0        0 gMULTIPLE DELETION BEGINS AT'NOTES.REJE JUMP IF A == 0
6/0/0 3604         [9109]   11637       17    14 0 0        0 'FROM'SERIAL                      SELECT
5/1/0 2593         [9110]   11638   2    4     2 2 0        0 'TO'SERIAL                        SUBTRACT
5/0/0 3590         [9111]   11639   2   17     0 0 0        0 LENGTH                            SUBTRACT
1/1/2 1            [9112]   11640  12          0 0 0        1                                   SUBTRACT LITERAL
2/0/0 3605         [9113]   11641   5   17    15 0 0        0 (NEGATIVE ADJUST DETAIL)          TRANSFER
6/0/0 3604         [9114]   11642       17    14 0 0        0                                   SELECT
5/0/0 3605         [9115]   11643   2   17    15 0 0        0 -(NEGATIVE ADJUST DETAIL)         SUBTRACT
2/0/0 3604         [9116]   11644   5   17    14 0 0        0                                   TRANSFER
6/0/0 3604         [9117]   11645       17    14 0 0        0 LINE SERIAL+ADJUSTMENT            SELECT
18/0/1 4126        [9118]   11646  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
5/0/0 3609         [9119]   11647   2   17    19 0 0        0 PREVIOUS PROCR                    SUBTRACT
27/0/1 930         [9120]   11648  71  116    50 0 0        0 gCARRY INTO PROCR.DON'T STORE     JUMP IF A != 0
26/0/0 1782        [9121]   11649  80  140     2 0 0        0 gSTORE ADJUSTMENT                 ENTER SUBROUTINE
26/0/0 1497        [9122]   11650  80  131     2 0 0        0 gWRITE                            ENTER SUBROUTINE
24/1/0 772         [9123]   11651  76  113     2 0 0        0 gREAD NEXT BLOCK                  JUMP unconditional

  Start of procedure 117 at location 932 in chapter 2 [9124]
                   [9124]   11700 PROCR  117                    DELETE MANY PROCEDURES            
6/0/0 3605         [9124]   11702       17    15 0 0        0 'TO'PROCR                         SELECT
26/0/0 1829        [9125]   11703  80  142     2 0 0        0 gBIN                              ENTER SUBROUTINE
1/1/1 1            [9126]   11704  11          0 0 0        1                                   ADD LITERAL
5/0/0 2587         [9127]   11705   2    3    45 0 0        0 (HIGHEST PROCR+1)                 SUBTRACT
27/0/3 938         [9128]   11706  73  117     8 0 0        0                                   JUMP IF A < 0
1/1/3 0            [9129]   11707  10          0 0 0        0                                   SELECT LITERAL
4/0/0 2587         [9130]   11708   1    3    45 0 0        0                                   ADD
2/0/0 3605         [9131]   11709   5   17    15 0 0        0 EFFECTIVE'TO'PROCR                TRANSFER
6/0/0 3609         [9132]   11710       17    19 0 0        0 'FROM'PROCR                       SELECT
26/0/0 1829        [9133]   11711  80  142     2 0 0        0 gBIN                              ENTER SUBROUTINE
2/0/0 3609         [9134]   11712   5   17    19 0 0        0                                   TRANSFER
6/0/0 3604         [9135]   11713       17    14 0 0        0 'FROM' SERIAL                     SELECT
18/0/1 8           [9136]   11714  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 948         [9137]   11715  70  117    18 0 0        0                                   JUMP IF A == 0
1/1/3 1            [9138]   11716  10          0 0 0        1 NOT DELETING ALL 'FROM' PROCR     SELECT LITERAL
7/0/0 3609         [9139]   11717   4   17    19 0 0        0                                   AUGMENT
6/0/0 3605         [9140]   11718       17    15 0 0        0 'TO' PROCR+1                      SELECT
18/0/1 5           [9141]   11719  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 3609         [9142]   11720   1   17    19 0 0        0 'FROM' PROCR                      ADD
3/1/0 40           [9143]   11721  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [9144]  
1/1/3 0            [9145]   11722  10          0 0 0        0                                   SELECT LITERAL
2/0/0 3612         [9146]   11723   5   17    22 0 0        0 CTR OF VALUE BLOCKS               TRANSFER
6/0/1 2590         [9147]   11724        6  100- 0 1        0                                   SELECT
27/0/1 959         [9148]   11725  71  117    28 0 0        0 g                                 JUMP IF A != 0
1/1/3 1            [9149]   11726  10          0 0 0        1                                   SELECT LITERAL
7/0/0 3612         [9150]   11727   4   17    22 0 0        0 AUGMENT CTR OF VALUES             AUGMENT
25/0/1 1           [9151]   11728  94  117    24 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 955         [9152] s
6/0/0 3605         [9153]   11729       17    15 0 0        0                                   SELECT
5/0/0 3609         [9154]   11730   2   17    19 0 0        0                                   SUBTRACT
3/0/0 1829         [9155]   11731   3  142     2 0 0        0 WL-DELETED QTTY                   COPY
4/0/0 2407         [9156]   11732  11          0 0 0    20000 Bit 18                            ADD LITERAL
18/0/1 5           [9157]   11733  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
24/0/1 3609        [9158]   11734 124   17    19 0 1        0 'FROM'PROCR                       MODIFY ADDRESS OF NEXT
28/0/0 2590        [9159]   11735 128    6  100- 0 0        0 DELETE ALL PROCEDURES             BULK COPY SHORT NUMERIC
6/0/0 2587         [9160]   11736        3    45 0 0        0 HIGHEST PROCR+1                   SELECT
18/0/1 5           [9161]   11737  30          0 0 0        5                                   SHIFT (A) BY QUARTETS

   Source: KenK/Q1000070
4/0/0 3605         [9162]   11738   1   17    15 0 0        0  'TO'PROCR+1                      ADD
2/1/0 2180         [9163]   11739   5  148    42 1 0        0                                   TRANSFER
5/0/0 1829         [9164]   11740   2  142     2 0 0        0                                   SUBTRACT
4/0/0 3612         [9165]   11741   1   17    22 0 0        0 gNUMBER OF VALUES                 ADD
3/0/0 1835         [9166]   11742   3  143     2 0 0        0 (-DELETED QTTY)                   COPY
7/0/0 5495         [9167]   11743   4   94    45 0 0        0 REDUCE MAX C/FWD PROCR            AUGMENT
26/1/1 2180        [9168]   11744  91  148    42 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
25/0/1 0           [9169]   11745  94  117    47 0 1        0 /////                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 980         [9170] s
24/1/0 986         [9171]   11746  76  117    52 0 0        0 gNONE TO UPDATE                   JUMP unconditional
6/0/1 2590         [9172]   11747        6  100- 0 1        0                                   SELECT
27/0/0 984         [9173]   11748  70  117    51 0 0        0 gVALUE DON'T UPDATE               JUMP IF A == 0
6/0/0 1835         [9174]   11749      143     2 0 0        0 NON-ZERO LOCNS DELETED            SELECT
7/0/1 2590         [9175]   11750   4    6  100- 0 1        0 UPDATE PROCR                      AUGMENT
25/0/1 1           [9176]   11751  94  117    47 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 980         [9177] s
0/0/3 2408         [9178]   11752  60          0 0 0        0 DEC                               SET DECIMAL RADIX
6/0/0 3600         [9179]   11753       17    10 0 0        0  'TO' SERIAL                      SELECT
5/0/0 3604         [9180]   11754   2   17    14 0 0        0  'FROM' SERIAL                    SUBTRACT
27/0/0 871         [9181]   11755  70  115    26 0 0        0 gSINGLE LINE DELETE               JUMP IF A == 0
24/1/0 930         [9182]   11756  76  116    50 0 0        0                                   JUMP unconditional

  Start of procedure 118 at location 991 in chapter 2 [9183]
                   [9183]   11800 PROCR  118                     'R'DIRECTIVES AND 'A' DIRECTIVES 
1/0/1 3            [9183]   11802  35          0 0 0       11 ;DIRECTIVE LINE 'R'               PREPARE FOR DIGIT COLLATION
1/1/3 0            [9184]   11803  10          0 0 0        0                                   SELECT LITERAL
15/1/0 2593        [9185]   11804  36    4     2 2 0        0                                   COLLATE AND ADD
27/0/1 1019        [9186]   11805  71  118    30 0 0        0 gNOT REPLACING !***00!            JUMP IF A != 0
6/1/0 2593         [9187]   11806        4     2 2 0        0                                   SELECT
18/1/1 4126        [9188]   11807  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
26/0/0 1829        [9189]   11808  80  142     2 0 0        0 BIN                               ENTER SUBROUTINE
5/0/0 2587         [9190]   11809   2    3    45 0 0        0 HIGHEST B/FWD PROCR+1             SUBTRACT
27/0/2 1029        [9191]   11810  72  118    40 0 0        0 gREPLACING DUMPS OR FILES         JUMP IF A >= 0
6/1/0 2596         [9192]   11811        4     6 1 0        0                                   SELECT
5/1/0 2184         [9193]   11812   2  148    46 1 0        0  'PROCR'                          SUBTRACT
27/0/0 1013        [9194]   11813  70  118    24 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [9195]   11814        4     6 1 0        0                                   SELECT
5/1/0 2186         [9196]   11815   2  148    48 1 0        0  'TABLE'                          SUBTRACT
27/0/0 1012        [9197]   11816  70  118    23 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [9198]   11817        4     6 1 0        0                                   SELECT
5/1/0 2188         [9199]   11818   2  148    50 1 0        0  'CONST'                          SUBTRACT
27/0/1 1145        [9200]   11819  71  121    44 0 0        0 gNOT REPLACING BY ANOTHER DIRECTIVE ;REJE JUMP IF A != 0
0/0/2 2606         [9201]   11820  34    4    16 0 0        0                                   SET (N) IN B
15/0/0 2140        [9202]   11821  36  148     2 0 0        0 BIT 1                             COLLATE AND ADD
27/0/0 1013        [9203]   11822  70  118    24 0 0        0 gSHORT CONST                      JUMP IF A == 0
1/1/3 1            [9204]   11823  10          0 0 0        1                                   SELECT LITERAL
2/0/0 1835         [9205]   11824   5  143     2 0 0        0 WL=LENGTH OF REPLADEMENT          TRANSFER
26/0/0 1477        [9206]   11825  80  130     2 0 0        0 FIND 'LENGTH'OF REPLACED BLOCK    ENTER SUBROUTINE
3/0/0 3590         [9207]   11826   3   17     0 0 0        0                                   COPY
5/0/0 1835         [9208]   11827   2  143     2 0 0        0                                   SUBTRACT
27/0/1 1145        [9209]   11828  71  121    44 0 0        0 gTRYING TO CHANGE'LENGHT',REJECT  JUMP IF A != 0
24/1/0 1072        [9210]   11829  76  119    30 0 0        0 gOK                               JUMP unconditional
26/0/0 1477        [9211]   11830  80  130     2 0 0        0                                   ENTER SUBROUTINE
2/0/0 3590         [9212]   11831   5   17     0 0 0        0 gFIND'LENGTH'                     TRANSFER
1/0/1 3            [9213]   11832  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/1/0 2593        [9214]   11833  36    4     2 2 0        0 LINE SERIAL                       COLLATE AND ADD
1/1/2 1            [9215]   11834  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 1029        [9216]   11835  70  118    40 0 0        0 gNOTES                            JUMP IF A == 0
1/1/3 0            [9217]   11836  10          0 0 0        0                                   SELECT LITERAL
0/0/2 3590         [9218]   11837  34   17     0 0 0        0                                   SET (N) IN B

   Source: ChuckK/Q1000071
15/1/0 2593        [9219]   11838  36    4     2 2 0        0                                   COLLATE AND ADD
27/0/1 1145        [9220]   11839  71  121    44 0 0        0 >UNACCEPTABLE                     JUMP IF A != 0
6/1/0 2593         [9221]   11840        4     2 2 0        0                                   SELECT
3/0/0 3604         [9222]   11841   3   17    14 0 0        0                                   COPY
3/0/0 3600         [9223]   11842   3   17    10 0 0        0                                   COPY
18/1/1 4126        [9224]   11843  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
2/0/0 3609         [9225]   11844   5   17    19 0 0        0                                   TRANSFER
6/1/0 2596         [9226]   11845        4     6 1 0        0                                   SELECT
5/1/0 2184         [9227]   11846   2  148    46 1 0        0 PROCR'                            SUBTRACT
27/0/0 1145        [9228]   11847  70  121    44 0 0        0 >NOT ALLOWED                      JUMP IF A == 0
6/1/0 2596         [9229]   11848        4     6 1 0        0                                   SELECT
5/1/0 2186         [9230]   11849   2  148    48 1 0        0 TABLE'                            SUBTRACT
27/0/0 1145        [9231]   11850  70  121    44 0 0        0 >                                 JUMP IF A == 0
6/1/0 2596         [9232]   11851        4     6 1 0        0                                   SELECT
5/1/0 2188         [9233]   11852   2  148    50 1 0        0 CONST'                            SUBTRACT
27/0/0 1145        [9234]   11853  70  121    44 0 0        0 >TRYING TO REPLACE BY A DIRECTIVE JUMP IF A == 0
24/1/0 1072        [9235]   11854  76  119    30 0 0        0 >O/P                              JUMP unconditional

  Start of procedure 119 at location 1044 in chapter 2 [9236]
                   [9236]   11900 PROCR  119                    DEAL WITH INSERTIONS              
26/0/0 1477        [9236]   11902  80  130     2 0 0        0 FIND 'LENGTH';INSERTION FIRST LINE ENTER SUBROUTINE
2/0/0 3590         [9237]   11903   5   17     0 0 0        0                                   TRANSFER
0/0/2 3590         [9238]   11904  34   17     0 0 0        0                                   SET (N) IN B
15/1/0 2593        [9239]   11905  36    4     2 2 0        0                                   COLLATE AND ADD
27/0/1 1145        [9240]   11906  71  121    44 0 0        0 >UNACCEPTABLE                     JUMP IF A != 0
6/1/0 2593         [9241]   11907        4     2 2 0        0 LINE SERIAL                       SELECT
3/0/0 3600         [9242]   11908   3   17    10 0 0        0                                   COPY
2/0/0 3604         [9243]   11909   5   17    14 0 0        0                                   TRANSFER
6/0/0 3600         [9244]   11910       17    10 0 0        0                                   SELECT
3/0/0 3608         [9245]   11911   3   17    18 0 0        0                                   COPY
18/1/1 4126        [9246]   11912  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
26/0/0 1829        [9247]   11913  80  142     2 0 0        0 >TO BIN                           ENTER SUBROUTINE
2/0/0 3597         [9248]   11914   5   17     7 0 0        0 3 DIGIT REF 'INSERT BEFORE' BIN   TRANSFER
6/0/0 3611         [9249]   11915       17    21 0 0        0 HIGHEST LINR SERIAL               SELECT
5/0/0 3608         [9250]   11916   2   17    18 0 0        0 INSERT BEFORE' SERIAL             SUBTRACT
27/0/1 1066        [9251]   11917  71  119    24 0 0        0 >NOT INSERTING BEFORE END SIGN    JUMP IF A != 0
0/0/3 2409         [9252]   11918  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 3608         [9253]   11919       17    18 0 0        0                                   SELECT
1/1/1 153          [9254]   11920  11          0 0 0       99 ROUND UP INSERT SERIAL            ADD LITERAL
18/1/1 4126        [9255]   11921  32          0 0 0       2- TO DEAL WITH ISSUE 5 END          SHIFT (AB) BY QUARTETS
26/0/0 1829        [9256]   11922  80  142     2 0 0        0 >BIN                              ENTER SUBROUTINE
2/0/0 3597         [9257]   11923   5   17     7 0 0        0                                   TRANSFER
6/1/0 2593         [9258]   11924        4     2 2 0        0                                   SELECT
18/0/1 8           [9259]   11925  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 1072        [9260]   11926  70  119    30 0 0        0 >INSERTING BEFORE PROCR START NO.ADJUST JUMP IF A == 0
6/0/0 3593         [9261]   11927       17     3 0 0        0 CTR OF ADJUST DETAILS             SELECT
1/1/2 460          [9262]   11928 101        460 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1145        [9263]   11929  70  121    44 0 0        0 >LIST FULL COPY TO NEXR DIRECTIVE JUMP IF A == 0
26/0/0 1497        [9264]   11930  80  131     2 0 0        0 WRITE                             ENTER SUBROUTINE
26/0/0 1425        [9265]   11931  80  127     2 0 0        0 >READ/TEST PT                     ENTER SUBROUTINE
27/0/0 787         [9266]   11932  70  113    16 0 0        0 >YES                              JUMP IF A == 0

  Start of procedure 120 at location 1075 in chapter 2 [9267]
                   [9267]   12000 PROCR  120                    DEAL WITH NON-DIRECTIVE LINE      
24/0/1 8175        [9267]   12002  85  129     2 0 0        0                                   SWITCH R
26/0/1 1076        [9268]  
0/0/1 1081         [9269] s 12003   C  120     7 0 0        0 R                                 
0/0/1 1145         [9270]   12004   C  121    44 0 0        0 D-NOT ACCEPTED,  2 LINES ALREADY  
0/0/1 1103         [9271]   12005   C  121     2 0 0        0 T                                 
0/0/1 1081         [9272] s 12006   C  120     7 0 0        0 A                                 

   Source: TonyJ/Q1000072
0/0/3 2410         [9273]   12007  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 3590         [9274]   12008       17     0 0 0        0 CURRENT LENGTH                    SELECT
1/1/1 1            [9275]   12009  11          0 0 0        1                                   ADD LITERAL
7/0/0 3600         [9276]   12010   4   17    10 0 0        0 STEP SEQ  CTR                     AUGMENT
6/0/0 3600         [9277]   12011       17    10 0 0        0                                   SELECT
18/1/1 4126        [9278]   12012  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
5/0/0 3609         [9279]   12013   2   17    19 0 0        0 PROCR OF R OR A-DIRECTIVE         SUBTRACT
27/0/1 1099        [9280]   12014  71  120    25 0 0        0 > NOT STILL IN SAME PROCR         JUMP IF A != 0
6/1/0 2596         [9281]   12015        4     6 1 0        0                                   SELECT
5/1/0 2184         [9282]   12016   2  148    46 1 0        0  'PROCR'                          SUBTRACT
27/0/0 1145        [9283]   12017  70  121    44 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [9284]   12018        4     6 1 0        0                                   SELECT
5/1/0 2186         [9285]   12019   2  148    48 1 0        0 TABLE'                            SUBTRACT
27/0/0 1145        [9286]   12020  70  121    44 0 0        0 >UN ACCEPTABLE                    JUMP IF A == 0
6/1/0 2596         [9287]   12021        4     6 1 0        0                                   SELECT
5/1/0 2188         [9288]   12022   2  148    50 1 0        0 CONST                             SUBTRACT
27/0/0 1145        [9289]   12023  70  121    44 0 0        0 >UNACCEPTABLE                     JUMP IF A == 0
24/1/0 930         [9290]   12024  76  116    50 0 0        0                                   JUMP unconditional
6/0/0 2411         [9291]   12025  10          0 0 0       1-                                   SELECT LITERAL
5/0/0 3590         [9292]   12026   2   17     0 0 0        0                                   SUBTRACT
7/0/0 3600         [9293]   12027   4   17    10 0 0        0 STEP BACK SEQ CTR SO NEVER ALTERS AUGMENT
24/1/0 1145        [9294]   12028  76  121    44 0 0        0 > READ/COPY TO NEXT DIRECTIVE     JUMP unconditional

  Start of procedure 121 at location 1103 in chapter 2 [9295]
                   [9295]   12100 PROCR  121         DEAL WITH INSERTIONS                                           
6/1/0 2596         [9295]   12102        4     6 1 0        0 ;INSERTIONS                       SELECT
5/1/0 2184         [9296]   12103   2  148    46 1 0        0  'PROCR'                          SUBTRACT
27/0/0 1116        [9297]   12104  70  121    15 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [9298]   12105        4     6 1 0        0                                   SELECT
5/1/0 2186         [9299]   12106   2  148    48 1 0        0                                   SUBTRACT
27/0/0 1115        [9300]   12107  70  121    14 0 0        0                                   JUMP IF A == 0
6/1/0 2596         [9301]   12108        4     6 1 0        0                                   SELECT
5/1/0 2188         [9302]   12109   2  148    50 1 0        0  'CONST'                          SUBTRACT
27/0/1 1180        [9303]   12110  71  123     2 0 0        0  'NOT A DIRECTIVE'                JUMP IF A != 0
0/0/2 2606         [9304]   12111  34    4    16 0 0        0 CONST TYPE                        SET (N) IN B
15/0/0 2140        [9305]   12112  36  148     2 0 0        0 BIT 1                             COLLATE AND ADD
27/0/0 1116        [9306]   12113  70  121    15 0 0        0 > SHORT CONST                     JUMP IF A == 0
1/1/3 1            [9307]   12114  10          0 0 0        1                                   SELECT LITERAL
2/0/0 3590         [9308]   12115   5   17     0 0 0        0  'LENGTH' OF INSERTED PROCR       TRANSFER
1/0/1 0            [9309]   12116  35          0 0 0        0                                   PREPARE FOR DIGIT COLLATION
6/0/0 3608         [9310]   12117       17    18 0 0        0                                   SELECT
18/1/1 4126        [9311]   12118  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
1/1/3 0            [9312]   12119  10          0 0 0        0                                   SELECT LITERAL
27/1/0 1133        [9313]   12120  74  121    32 0 0        0 > INSERTING BEFORE PROCR START    JUMP IF AB == 0        // 27, 1, 0
6/0/0 3608         [9314]   12121       17    18 0 0        0                                   SELECT
5/0/0 3611         [9315]   12122   2   17    21 0 0        0                                   SUBTRACT
27/0/0 1133        [9316]   12123  70  121    32 0 0        0 > INSERTING AT END OF PROGM       JUMP IF A == 0
6/0/0 3600         [9317]   12124       17    10 0 0        0                                   SELECT
5/0/0 3604         [9318]   12125   2   17    14 0 0        0                                   SUBTRACT
27/0/0 1145        [9319]   12126  70  121    44 0 0        0 > NOT IN THE MIDDLE OF AN INSERTION JUMP IF A == 0
2/0/0 3605         [9320]   12127   5   17    15 0 0        0 ADJUST DETAIL                     TRANSFER
6/0/0 3600         [9321]   12128       17    10 0 0        0                                   SELECT
2/0/0 3604         [9322]   12129   5   17    14 0 0        0                                   TRANSFER
26/0/0 1782        [9323]   12130  80  140     2 0 0        0 STORE ADJUST DETAIL               ENTER SUBROUTINE
24/1/0 1145        [9324]   12131  76  121    44 0 0        0 > REJECT 'PROCR'                  JUMP unconditional
6/1/0 2598         [9325]   12132        4     8 1 0        0                                   SELECT

   Source: TonyJ/Q1000073
26/0/0 1829        [9326]   12133  80  142     2 0 0        0 CONVERT TO BIN                    ENTER SUBROUTINE
27/0/3 1145        [9327]   12134  73  121    44 0 0        0 > NEGATIVE, IGNORE                JUMP IF A < 0
3/0/0 3594         [9328]   12135   3   17     4 0 0        0 NEW PROCR NUMBER (BIN)            COPY
5/0/0 2587         [9329]   12136   2    3    45 0 0        0 HIGHEST B/FWD PROCR (BIN)         SUBTRACT
27/0/3 1145        [9330]   12137  73  121    44 0 0        0 NOT UNIQUE                        JUMP IF A < 0
6/0/0 3594         [9331]   12138       17     4 0 0        0                                   SELECT
1/1/2 999          [9332]   12139 101        999 1 2        0 MAX PROCR                         SUBTRACT LITERAL ADDRESS
27/0/2 1145        [9333]   12140  72  121    44 0 0        0 >IGNORE                           JUMP IF A >= 0
24/0/1 3594        [9334]   12141 124   17     4 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 2590         [9335]   12142 106    6  100- 0 0        0                                   SELECT (N)
27/0/0 1149        [9336]   12143  70  122     2 0 0        0 > OK, PROCR NOT ALREADY INSETED   JUMP IF A == 0
1/1/3 1            [9337]   12144  10          0 0 0        1 SET IND 'PASS 0 DOESN'T LIKE IT'  SELECT LITERAL
2/1/0 3606         [9338]   12145   5   17    16 1 0        0                                   TRANSFER
26/0/0 1535        [9339]   12146  80  133     2 0 0        0  READ/WRITE TO NEXT DIRECTIVE     ENTER SUBROUTINE
24/1/0 787         [9340]   12147  76  113    16 0 0        0                                   JUMP unconditional

  Start of procedure 122 at location 1149 in chapter 2 [9341]
                   [9341]   12200 PROCR  122       122    INSERT NEW PROCR INTO LIST IN SEC 6                                   
0/0/3 0            [9341]   12202  62          0 0 0        0 STEP BACK SEQ CTR SO NEVER ALTERS SET EXCESS CONSTANTS
6/0/0 2587         [9342]   12203        3    45 0 0        0 > READ/COPY TO NEXT DIRECTIVE     SELECT
18/0/1 5           [9343]   12204  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 3597         [9344]   12205   1   17     7 0 0        0                                   ADD
3/1/0 40           [9345]   12206  91          0 0 1        0  'PROCR'                          SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [9346]  
25/0/1 0           [9347]   12207  94  122    10 0 1        0 /////> NOT INSERTING BEFORE END SIGN STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1159        [9348] s
6/0/0 5495         [9349]   12208       94    45 0 0        0 CURRENT (HIGHEST C/FWD PROCR) +1  SELECT
24/1/0 1161        [9350]   12209  76  122    12 0 0        0                                   JUMP unconditional
24/0/1 3597        [9351]   12210 124   17     7 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 2590         [9352]   12211        6  100- 0 0        0 UPDATED REF ''INSERT BEFORE''     SELECT
2/0/0 1555         [9353]   12212   5  135     2 0 0        0                                   TRANSFER
1/1/3 1            [9354]   12213  10          0 0 0        1                                   SELECT LITERAL
7/0/0 5495         [9355]   12214   4   94    45 0 0        0                                   AUGMENT
6/0/0 3590         [9356]   12215   0   17     0 0 0        0 LENGTH IND                        SELECT

   Source: RayS/Q1000074

   Source: RayS/Q1000074
18/0/1 4           [9357]   12216  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
4/0/0 1555         [9358]   12217   1  135     2 0 0        0 UPDATED REF                       ADD
24/0/1 3594        [9359]   12218 124   17     4 0 1        0 CODER'S PROCR                     MODIFY ADDRESS OF NEXT
2/0/0 2590         [9360]   12219   5    6  100- 0 0        0                                   TRANSFER
25/0/1 0           [9361]   12220  94  122    22 0 1        0 /////                             STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1172        [9362] s
24/1/0 1178        [9363]   12221  76  122    27 0 0        0 gINSERTING BEFORE END SIGN, SKIP  JUMP unconditional
6/0/1 2590         [9364]   12222        6  100- 0 1        0                                   SELECT
27/0/0 1176        [9365]   12223  70  122    26 0 0        0 g'VALUE' DON'T UPDATE             JUMP IF A == 0
1/1/3 1            [9366]   12224  10          0 0 0        1                                   SELECT LITERAL
7/0/1 2590         [9367]   12225   4    6  100- 0 1        0                                   AUGMENT
25/0/1 1           [9368]   12226  94  122    22 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1172        [9369] s
0/0/3 2412         [9370]   12227  60          0 0 0        0                                   SET DECIMAL RADIX
24/1/0 1072        [9371]   12228  76  119    30 0 0        0 gREAD PT                          JUMP unconditional

  Start of procedure 123 at location 1180 in chapter 2 [9372]
                   [9372]   12300 PROCR  123                    INSERTING INSTRUCTIONS            
1/0/1 0            [9372]   12302  35          0 0 0        0                                   PREPARE FOR DIGIT COLLATION
6/0/0 3608         [9373]   12303       17    18 0 0        0                                   SELECT
5/0/0 2413         [9374]   12304  12          0 0 0    10002                                   SUBTRACT LITERAL
27/0/3 1145        [9375]   12305  73  121    44 0 0        0 gUNACCEPTABLE                     JUMP IF A < 0
6/0/0 3608         [9376]   12306       17    18 0 0        0                                   SELECT
18/1/1 4126        [9377]   12307  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
1/1/3 0            [9378]   12308  10          0 0 0        0                                   SELECT LITERAL
27/1/0 930         [9379]   12309  74  116    50 0 0        0 gINSERTING AT END OF PROCR        JUMP IF AB == 0        // 27, 1, 0
6/1/0 2593         [9380]   12310        4     2 2 0        0 LINE SERIAL                       SELECT
18/0/1 4126        [9381]   12311  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [9382]   12312  80  142     2 0 0        0 CONVERT TO BIN                    ENTER SUBROUTINE
5/0/0 2587         [9383]   12313   2    3    45 0 0        0 (HIGHEST B/FWD PROCR+1)           SUBTRACT
27/0/3 1234        [9384]   12314  73  123    56 0 0        0 gNOT A UNIQUE REF                 JUMP IF A < 0
6/0/0 3592         [9385]   12315       17     2 0 0        0                                   SELECT
1/1/2 100          [9386]   12316  12          0 0 0       64                                   SUBTRACT LITERAL
27/0/2 1234        [9387]   12317  72  123    56 0 0        0 gTOO MANY UNIQUE REFS, DON'T STORE THIS ONE JUMP IF A >= 0
6/1/0 2593         [9388]   12318        4     2 2 0        0 UNIQUE REF                        SELECT
24/0/1 3592        [9389]   12319 124   17     2 0 1        0                                   MODIFY ADDRESS OF NEXT
2/0/0 4600         [9390]   12320   5   21     0 0 0        0                                   TRANSFER
1/0/1 3            [9391]   12321  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/0 3604        [9392]   12322  36   17    14 0 0        0                                   COLLATE AND ADD
2/0/0 1670         [9393]   12323   5  136     2 0 0        0 ITEM DEC                          TRANSFER
6/0/0 3604         [9394]   12324       17    14 0 0        0                                   SELECT
18/0/1 4126        [9395]   12325  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [9396]   12326  80  142     2 0 0        0                                   ENTER SUBROUTINE
2/0/0 1809         [9397]   12327   5  141     2 0 0        0 REF BIN                           TRANSFER
24/0/1 1809        [9398]   12328 124  141     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 2590         [9399]   12329        6  100- 0 0        0                                   SELECT
26/0/0 1835        [9400]   12330  80  143     2 0 0        0 DEC                               ENTER SUBROUTINE
3/0/0 3609         [9401]   12331   3   17    19 0 0        0 UPDATED REF DEC                   COPY
18/0/1 2           [9402]   12332  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 1670         [9403]   12333   1  136     2 0 0        0 DEC ITEM NOT UPDATED              ADD
2/0/0 3596         [9404]   12334   5   17     6 0 0        0                                   TRANSFER
6/0/0 3597         [9405]   12335       17     7 0 0        0 INSERT BEFORE REF                 SELECT
5/0/0 1809         [9406]   12336   2  141     2 0 0        0                                   SUBTRACT
27/0/0 1218        [9407]   12337  70  123    40 0 0        0 gHASN'T GONE OVER THE TOP         JUMP IF A == 0
6/0/0 2414         [9408]   12338  10          0 0 0       1-                                   SELECT LITERAL
7/0/0 3609         [9409]   12339   4   17    19 0 0        0 TO GET THE RIGHT ADJUST DETAILS   AUGMENT
26/1/1 2474        [9410]   12340  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9411]   12341   C          0 0 0      460                                   Limit
6/0/1 4140         [9411]   12342       19     0 0 1        0                                   SELECT
27/0/0 1228        [9412]   12343  70  123    50 0 0        0 gEND OF ADJUST DETAILS            JUMP IF A == 0
18/0/1 4126        [9413]   12344  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
5/0/0 3609         [9414]   12345   2   17    19 0 0        0 3 DIGIT PROCR                     SUBTRACT

   Source: DavidH/Q1000110
27/0/1 1226        [9415]   12346  71  123    49 0 0        0                                   JUMP IF A != 0
6/0/1 4141         [9416]   12347       19     1 0 1        0                                   SELECT
7/0/0 3596         [9417]   12348   4   17     6 0 0        0 ADJUST ADDRESS                    AUGMENT
25/0/1 2           [9418]   12349  94  123    42 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1219        [9419] s
0/0/3 0            [9420]   12350  62          0 0 0        0 BIN                               SET EXCESS CONSTANTS
6/0/0 3596         [9421]   12351       17     6 0 0        0                                   SELECT
24/0/1 3592        [9422]   12352 124   17     2 0 1        0                                   MODIFY ADDRESS OF NEXT
2/0/0 4601         [9423]   12353 102   21     1 0 0        0                                   TRANSFER (A) TO N
1/1/3 2            [9424]   12354  10          0 0 0        2                                   SELECT LITERAL
7/0/0 3592         [9425]   12355   4   17     2 0 0        0                                   AUGMENT
0/0/3 2415         [9426]   12356  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 3590         [9427]   12357       17     0 0 0        0 LENGTH IND                        SELECT
1/1/1 1            [9428]   12358  11          0 0 0        1                                   ADD LITERAL
7/0/0 3604         [9429]   12359   4   17    14 0 0        0 AUGMENT'NEW'LINE SERIAL           AUGMENT
26/0/0 1497        [9430]   12360  80  131     2 0 0        0 O/P                               ENTER SUBROUTINE
26/0/0 1809        [9431]   12361  80  141     2 0 0        0 READ                              ENTER SUBROUTINE
27/0/0 1248        [9432]   12362  70  123    69 0 0        0 gPT AT END                        JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9434]   12363        5     0 1 0        0                                   SELECT
5/1/0 2210         [9435]   12364   2  148    72 1 0        0 'TRAMS'                           SUBTRACT
27/0/0 1248        [9436]   12365  70  123    69 0 0        0                                   JUMP IF A == 0
26/0/0 1519        [9437]   12366  80  132     2 0 0        0 UNPACK                            ENTER SUBROUTINE
26/0/0 1454        [9438]   12367  80  129     2 0 0        0 DIRECTIVE?                        ENTER SUBROUTINE
27/0/1 1075        [9439]   12368  71  120     2 0 0        0 gNO                               JUMP IF A != 0
6/0/0 3604         [9440]   12369       17    14 0 0        0 ;END OF MULTIPLE INSE             SELECT
5/0/0 3600         [9441]   12370   2   17    10 0 0        0 DIFFERENCE                        SUBTRACT
2/0/0 3605         [9442]   12371   5   17    15 0 0        0 QUANTITY ADJUST                   TRANSFER
6/0/0 3600         [9443]   12372       17    10 0 0        0                                   SELECT
2/0/0 3604         [9444]   12373   5   17    14 0 0        0                                   TRANSFER
26/0/0 1782        [9445]   12374  80  140     2 0 0        0 STORE ADJUST DETAIL               ENTER SUBROUTINE
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9447]   12375   0    5     0 1 0        0 g                                 SELECT
18/0/1 4124        [9448]   12376  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4           [9449]   12377  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 2198         [9450]   12378   2  148    60 1 0        0 'END  '                           SUBTRACT
27/0/0 1265        [9451]   12379  70  124     2 0 0        0                                   JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9453]   12380        5     0 1 0        0                                   SELECT
5/1/0 2210         [9454]   12381   2  148    72 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 778         [9455]   12382  70  113     7 0 0        0                                   JUMP IF A == 0
27/0/1 787         [9456]   12383  71  113    16 0 0        0 g PT AT DIRECTIVE                 JUMP IF A != 0

  Start of procedure 124 at location 1265 in chapter 2 [9457]
                   [9457]   12400 PROCR  124                    CONSTRUCT C/FWD PROCR LENGTH INDEX 
0/0/3 0            [9457]   12402  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/1/0 2476         [9458]   12403  54   94     0 0 0       45                                   BULK CLEAR
28/0/0 5450        [9459]  
6/0/0 2587         [9460]   12404        3    45 0 0        0 (HIGHEST B/FWD PROCR+1)           SELECT
18/0/1 5           [9461]   12405  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
1/1/1 100          [9462]   12406 101        100 1 1        0                                   ADD LITERAL ADDRESS
3/1/0 40           [9463]   12407  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [9464]  
26/1/2 2478        [9465]   12408  90          0 0 2        0 SCAN SEC 3                        SET MODIFICATION REGISTER AT LITERAL
                   [9466]   12409   C          0 0 0       45                                   Limit
26/1/3 2480        [9466]   12410  90          0 0 3        0 SCAN WORD IN SEC 3                SET MODIFICATION REGISTER AT LITERAL
                   [9467]   12411   C          0 0 0       20                                   Limit
0/0/2 2140         [9467]   12412  34  148     2 0 0        0 BIT 1                             SET (N) IN B
6/0/1 2590         [9468]   12413        6  100- 0 1        0                                   SELECT
27/0/0 1295        [9469]   12414  70  124    30 0 0        0 g PROCR DELETED                   JUMP IF A == 0
   Query: unreadable on photo
1/1/3 0            [9470]   12415  10          0 0 0        0                                   SELECT LITERAL

   Source: TonyJ/Q1000111
15/0/2 2542        [9471]   12416  36    3     0 0 2        0                                   COLLATE AND ADD
27/0/0 1295        [9472]   12417  70  124    30 0 0        0 > B/FWD PROCR WAS SHORT           JUMP IF A == 0
0/1/0 3590         [9473]   12418 100   17     0 1 0        0 COPY B                            COPY REGISTERS
6/0/1 2590         [9474]   12419        6  100- 0 1        0 C/FWD EQUIVALENT                  SELECT
1/0/1 0            [9475]   12420  19          0 0 0       14 20                                DIVIDE LITERAL
18/1/1 4119        [9476]  
13/0/0 2416        [9477]  
2/0/0 2180         [9478]   12421   5  148    42 0 0        0                                   TRANSFER
18/1/1 9           [9479]   12422  32          0 0 0        9                                   SHIFT (AB) BY QUARTETS
2/0/0 2181         [9480]   12423   5  148    43 0 0        0 REMAINDER                         TRANSFER
1/1/3 1            [9481]   12424  10          0 0 0        1                                   SELECT LITERAL
24/0/1 2181        [9482]   12425 124  148    43 0 1        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0           [9483]   12426  31          0 0 0        0 /////                             SHIFT (A) BY BITS
24/0/1 2180        [9484]   12427 124  148    42 0 1        0                                   MODIFY ADDRESS OF NEXT
7/0/0 5445         [9485]   12428   4   94    5- 0 0        0 SET C/FWD LENGTH IND              AUGMENT
0/1/1 3590         [9486]   12429 100   17     0 1 1        0 RESTORE B                         REPLACE REGISTERS
18/1/3 1           [9487]   12430  33          0 0 0        1 SHIFT COLLATOR                    SHIFT (AB) BY BITS
25/0/1 1           [9488]   12431  94  124    33 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1299        [9489] s
24/1/0 1303        [9490]   12432  76  124    35 0 0        0 > END                             JUMP unconditional
25/0/3 1           [9491]   12433  94  124    13 0 3        1 > THIS BIT NEXT WORD              STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1276        [9492]  
25/0/2 1           [9493]   12434  94  124    10 0 2        1 > NEXT WORD (SHOULD NEVER RUN OUT) STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1274        [9494] s
1/1/3 1000         [9495]   12435 101       1000 1 3        0 DEAL WITH INSERTED PROCEDURES     SELECT LITERAL ADDRESS
18/0/1 5           [9496]   12436  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 2587         [9497]   12437   1    3    45 0 0        0                                   ADD
3/1/0 40           [9498]   12438  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [9499]  
6/0/1 2590         [9500]   12439   0    6  100- 0 1        0                                   SELECT
27/0/0 1325        [9501]   12440  70  124    54 0 0        0 >NOT USED                         JUMP IF A == 0
18/1/1 4124        [9502]   12441  32          0 0 0       4-                                   SHIFT (AB) BY QUARTETS
27/0/0 1325        [9503]   12442  70  124    54 0 0        0 >SHORT PROCEDURE                  JUMP IF A == 0
1/1/3 0            [9504]   12443  10          0 0 0        0                                   SELECT LITERAL
18/1/1 4           [9505]   12444  32          0 0 0        4                                   SHIFT (AB) BY QUARTETS
1/0/1 0            [9506]   12445  19          0 0 0       14                                   DIVIDE LITERAL
18/1/1 4119        [9507]  
13/0/0 2417        [9508]  
2/1/0 2180         [9509]   12446   5  148    42 1 0        0                                   TRANSFER
26/1/2 2180        [9510]   12447  91  148    42 0 2        0                                   SET MODIFICATION REGISTER AT VARIABLE
18/1/1 9           [9511]   12448  32          0 0 0        9                                   SHIFT (AB) BY QUARTETS
2/0/0 3591         [9512]   12449   5   17     1 0 0        0                                   TRANSFER
1/1/3 1            [9513]   12450  10          0 0 0        1                                   SELECT LITERAL
24/0/1 3591        [9514]   12451 124   17     1 0 1        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0           [9515]   12452  31          0 0 0        0 /////                             SHIFT (A) BY BITS
7/0/2 5445         [9516]   12453   4   94    5- 0 2        0                                   AUGMENT
25/0/1 1           [9517]   12454  94  124    39 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1308        [9518] s
24/1/0 1333        [9519]   12455  76  125     6 0 0        0                                   JUMP unconditional

  Start of procedure 125 at location 1328 in chapter 2 [9520]
                   [9520]   12500 PROCR  125       125    END OF PASS 0                                   
24/0/1 8175        [9520]   12502  85  129     2 0 0        0 3 ORDER CONST                     SWITCH R
26/0/1 1329        [9521]  
0/0/1 237          [9522] s 12503   C  105    38 0 0        0                                   
0/0/1 171          [9523]   12504   C  104     3 0 0        0                                   
0/0/1 229          [9524]   12505   C  105    35 0 0        0                                   
26/1/1 2482        [9525]   12506  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9526]   12507   C          0 0 0      450                                   Limit
26/1/2 2484        [9526]   12508  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9527]   12509   C          0 0 0      900                                   Limit
1/1/3 0            [9527]   12510  10          0 0 0        0                                   SELECT LITERAL
1/0/1 15           [9528]   12511  35          0 0 0     1111                                   PREPARE FOR DIGIT COLLATION
15/0/2 2691        [9529]   12512  36    6     1 0 2        0                                   COLLATE AND ADD
18/0/3 10          [9530]   12513  31          0 0 0       10                                   SHIFT (A) BY BITS
15/0/2 2690        [9531]   12514  36    6     0 0 2        0                                   COLLATE AND ADD
2/0/1 3690         [9532]   12515   5   22     0 0 1        0                                   TRANSFER
25/0/1 1           [9533]   12516  94          0 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1343        [9534]  
25/0/2 2           [9535]   12517  94  125    12 0 2        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1337        [9536] s

   Source: TonyJ/Q1000112
24/1/0 1358        [9537]   12518  76  125    27 0 0        0                                   JUMP unconditional
0/0/3 0            [9538]   12519  62          0 0 0        0 SET BIN                           SET EXCESS CONSTANTS
6/0/0 2228         [9539]   12520      148    90 0 0        0 IND                               SELECT
27/0/0 1356        [9540]   12521  70  125    25 0 0        0                                   JUMP IF A == 0
1/1/3 17           [9541]   12522 150          0 0 0       11                                   OFFER OPTIONS
0/0/2 2418         [9542]  
25/1/1 4096        [9543]  
24/0/3 0           [9544]  
26/0/2 1           [9545]  
0/0/1 1751         [9546] s 12523   C  136    61 0 0        0 > END                             
0/0/1 368          [9547] s 12524   C  107    11 0 0        0 > REENTER                         
1/1/3 1            [9548]   12525  10          0 0 0        1                                   SELECT LITERAL
7/0/0 5495         [9549]   12526   4   94    45 0 0        0                                   AUGMENT
26/0/0 1497        [9550]   12527  80  131     2 0 0        0 > WRITE END                       ENTER SUBROUTINE
0/0/3 0            [9551]   12528  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 6320         [9552]   12529       27    10 0 0        0                                   SELECT
1/1/1 24           [9553]   12530  11          0 0 0       18 24                                ADD LITERAL
26/0/0 1409        [9554]   12531  80  126     2 0 0        0 > CLOSE B1                        ENTER SUBROUTINE
0/1/0 40           [9555]   12532  45   A6     0 0 0        0                                   REWIND
0/0/3 0            [9556]  
6/1/0 0            [9557]  
1/1/1 45           [9558]  
25/1/1 4096        [9559]  
24/0/3 0           [9560]  
23/0/2 45          [9561]  
0/1/1 40           [9562]  
24/0/2 3690        [9563]   12533  55   22     0 0 0     1010 OLD/NEW PROCRS + ADJUSTS + UNIQUE BULK COPY
18/1/0 4123        [9564]   12534   C   18     0 0 0        0                                   
1/1/3 1010         [9565]  
18/1/1 5           [9566]  
24/0/3 0    Extra code needed to address 5664 from 9567 (different chapter)
28/0/0 5664        [9568]  
24/0/2 5450        [9569]   12535  55   94     0 0 0       46                                   BULK COPY
18/1/0 4123        [9570]   12536   C   18  1010 0 0        0                                   
1/1/3 46           [9571]  
18/1/1 5           [9572]  
24/0/3 0    Extra code needed to address 6674 from 9573 (different chapter)
28/0/0 6674        [9574]  
3/1/0 40           [9575]   12537  91          0 0 3        0 CLEAR R3                          SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40          [9576]  
3/1/0 40           [9577]   12538  91          0 0 1        0 & R1                              SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40          [9578]  
26/0/0 1540        [9579]   12539  80  134     2 0 0        0 > INTERCHANGE A1. D1 ASL'S        ENTER SUBROUTINE
6/1/0 2182         [9580]   12540      148    44 1 0        0                                   SELECT
27/0/0 46          [9581]   12541  70  101     2 0 0        0 > INITIAL TRANSLATION             JUMP IF A == 0
0/1/0 40           [9582]   12542  48   A1     0 0 0        1 BACK 1  I/P > I/P                 STEP BACK
0/0/3 0            [9583]  
0/1/2 2486         [9584]   12543   C          0 0 0        1                                   STEP BACK
6/1/0 0            [9585]  
1/1/1 27           [9586]  
25/1/1 4096        [9587]  
24/0/3 0           [9588]  
23/0/2 48          [9589]  
0/1/1 40           [9590]  
0/1/0 40           [9591]   12544  42   A1     0 0 0        0                                   INPUT
0/0/3 0            [9592]  
0/0/2 16           [9593]   12545   C    7     0 0 0        0                                   INPUT
6/1/0 0            [9594]  
1/1/1 27           [9595]  
25/1/1 4096        [9596]  
24/0/3 0           [9597]  
23/0/2 42          [9598]  
0/1/1 40           [9599]  
24/1/0 46          [9600]   12546  76  101     2 0 0        0 > CANN PASS 1                     JUMP unconditional

  Start of procedure 126 at location 1409 in chapter 2 [9601]
                   [9601]   12600 PROCR  126       126 ENTER   OR B1                                   
0/0/0 0            [9601]   12602  81  126     2 0 0        0                                   START OF SUBROUTINE
18/0/1 5           [9602]   12603  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 8            [9603]   12604   1  999     8 0 0        0                                   ADD
25/1/1 4096        [9604]   12605 125       4096 1 1        0                                   CLEAR INDICATORS
24/0/3 0           [9605]   12606 124  999     0 0 3        0                                   MODIFY ADDRESS OF NEXT
23/0/2 160         [9606]   12607 123        160 0 2        0                                   ENTER MASTER ROUTINE
26/0/1 1409        [9607]   12608  82  126     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
0/1/0 40           [9608]   12609  41   A1     0 0 0        0 DUMMY FOR ENTRY TO MR             CLOSE FILE
0/0/3 0            [9609]  
6/1/0 0            [9610]  
1/1/1 27           [9611]  
25/1/1 4096        [9612]  
24/0/3 0           [9613]  
23/0/2 1           [9614]  
0/1/1 40           [9615]  
26/0/3 1412        [9616]   12610 126  126     5 0 3        0                                   LEAVE MASTER ROUTINE

  Start of procedure 127 at location 1425 in chapter 2 [9617]
                   [9617]   12700 PROCR  127       127    READ, TEST NEXT P/T BLOCK                                   
0/0/0 0            [9617]   12702  81  127     2 0 0        0 3 ORDER CONST                     START OF SUBROUTINE
26/0/0 1809        [9618]   12703  80  141     2 0 0        0 > READ PT                         ENTER SUBROUTINE
27/0/0 1265        [9619]   12704  70  124     2 0 0        0 > END                             JUMP IF A == 0
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0            [9621]   12705        5     0 1 0        0                                   SELECT
5/1/0 2210         [9622]   12706   2  148    72 1 0        0  'TRAMD'                          SUBTRACT
27/0/0 778         [9623]   12707  70  113     7 0 0        0 > YES                             JUMP IF A == 0
26/0/0 1519        [9624]   12708  80  132     2 0 0        0 > UNPACK                          ENTER SUBROUTINE
26/0/0 1454        [9625]   12709  80  129     2 0 0        0 > TEST DIRECTIVE                  ENTER SUBROUTINE
26/0/1 1425        [9626]   12710  82  127     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 128 at location 1435 in chapter 2 [9627]
                   [9627]   12800 PROCR  128       128    COPY INTERCODE BLOCKS                                   
0/0/0 0            [9627]   12802  81  128     2 0 0        0                                   START OF SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
24/0/2 4           [9629]   12803  55   10     4 1 0      148                                   BULK COPY
18/1/0 4123        [9630]   12804   C    8     4 1 0        0                                   
1/1/3 148          [9631]  
18/1/1 5           [9632]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4           [9634]  
0/1/0 40           [9635]   12805  43   A2     0 0 0        0                                   OUTPUT
0/0/3 0            [9636]  
0/0/2 18           [9637]   12806   C    8     0 0 0        0                                   OUTPUT
6/1/0 0            [9638]  
1/1/1 36           [9639]  
25/1/1 4096        [9640]  
24/0/3 0           [9641]  
23/0/2 43          [9642]  
0/1/1 40           [9643]  

   Source: KenK/Q1000113
26/0/0 1754        [9644]   12807  80  137     2 0 0        0 gREAD                             ENTER SUBROUTINE
26/0/1 1435        [9645]   12808  82  128     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 129 at location 1454 in chapter 2 [9646]
                   [9646]   12900 PROCR  129                    TEST DIRECTIVE                    
0/0/0 0            [9646]   12902  81  129     2 0 0        0                                   START OF SUBROUTINE
0/0/3 2419         [9647]   12903  60          0 0 0        0                                   SET DECIMAL RADIX
0/1/2 2594         [9648]   12904  34    4     4 1 0        0                                   SET (N) IN B
1/1/3 0            [9649]   12905  10          0 0 0        0                                   SELECT LITERAL
18/1/1 2           [9650]   12906  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/2 105          [9651]   12907  12          0 0 0       69                                   SUBTRACT LITERAL
27/0/0 1470        [9652]   12908  70  129    18 0 0        0                                   JUMP IF A == 0
1/1/1 21           [9653]   12909  11          0 0 0       15                                   ADD LITERAL
27/0/0 1469        [9654]   12910  70  129    17 0 0        0                                   JUMP IF A == 0
1/1/2 25           [9655]   12911  12          0 0 0       19                                   SUBTRACT LITERAL
27/0/0 1468        [9656]   12912  70  129    16 0 0        0                                   JUMP IF A == 0
1/1/1 34           [9657]   12913  11          0 0 0       22                                   ADD LITERAL
27/0/1 1476        [9658]   12914  71  129    24 0 0        0 gNO DIRECTIVE                     JUMP IF A != 0
1/1/3 1            [9659]   12915  10          0 0 0        1                                   SELECT LITERAL
1/1/1 1            [9660]   12916  11          0 0 0        1                                   ADD LITERAL
1/1/1 1            [9661]   12917  11          0 0 0        1                                   ADD LITERAL
1/1/1 1            [9662]   12918  11          0 0 0        1                                   ADD LITERAL
2/0/0 1477         [9663]   12919   5  130     2 0 0        0                                   TRANSFER
6/0/0 8175         [9664]   12920  86  129     2 0 0        0                                   SELECT SWITCH R
2/0/0 3602         [9665]   12921   5   17    12 0 0        0 STORE PREVIOUS SETTING            TRANSFER
6/0/0 1477         [9666]   12922  84  129     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 8175         [9667]   12923   C  130     2 0 0        0 (A)ZERO DIRECTIVE FOUND           SET SWITCH(ES) AT VARIABLE VALUE
26/0/1 1454        [9668]   12924  82  129     2 0 0        0 (A) NON=-ZERO,NO DIRECTIVE FOUND  END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 130 at location 1477 in chapter 2 [9669]
                   [9669]   13000 PROCR  130                    FIND 'LENGTH'                     
0/0/0 0            [9669]   13002  81  130     2 0 0        0                                   START OF SUBROUTINE
6/1/0 2593         [9670]   13003        4     2 2 0        0 LINE SERIAL OF AMENDMENT          SELECT
18/0/1 4126        [9671]   13004  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [9672]   13005  80  142     2 0 0        0 CONVERT TO BIN                    ENTER SUBROUTINE
1/1/2 100          [9673]   13006 101        100 1 2        0                                   SUBTRACT LITERAL ADDRESS
1/0/1 0            [9674]   13007  19          0 0 0       14 DIVIDE BY 20                      DIVIDE LITERAL
18/1/1 4119        [9675]  
13/0/0 2420        [9676]  
2/0/0 2180         [9677]   13008   5  148    42 0 0        0                                   TRANSFER
18/1/1 9           [9678]   13009  32          0 0 0        9                                   SHIFT (AB) BY QUARTETS
2/0/0 2181         [9679]   13010   5  148    43 0 0        0                                   TRANSFER
0/0/2 2140         [9680]   13011  34  148     2 0 0        0                                   SET (N) IN B
24/0/1 2181        [9681]   13012 124  148    43 0 1        0                                   MODIFY ADDRESS OF NEXT
18/1/3 0           [9682]   13013  33          0 0 0        0 /////                             SHIFT (AB) BY BITS
24/0/1 2180        [9683]   13014 124  148    42 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 2542        [9684]   13015  36    3     0 0 0        0                                   COLLATE AND ADD
27/0/0 1495        [9685]   13016  70  130    18 0 0        0 gSHORT                            JUMP IF A == 0
1/1/3 1            [9686]   13017  10          0 0 0        1                                   SELECT LITERAL
0/0/3 2421         [9687]   13018  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/1 1477        [9688]   13019  82  130     2 0 0        0 (A)=ZERO OR ONE                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 131 at location 1497 in chapter 2 [9689]
                   [9689]   13100 PROCR  131                    WRITE->A6 FROM SEC9               
0/0/0 0            [9689]   13102  81  131     2 0 0        0                                   START OF SUBROUTINE
26/0/0 1555        [9690]   13103  80  135     2 0 0        0 REPLACE 'BE' BY 'LE'              ENTER SUBROUTINE
6/1/0 2488         [9691]   13104  10          0 0 0  7.0000007.                                   SELECT LITERAL
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 52           [9693]   13105   5    9    52 1 0        0                                   TRANSFER
6/1/0 3606         [9694]   13106       17    16 1 0        0 IND'PASS 0 DIDN'T LIKE IT' NON-ZERO  SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 50           [9696]   13107   5    9    50 1 0        0                                   TRANSFER
0/1/0 40           [9697]   13108  43   A6     0 0 0        0                                   OUTPUT
0/0/3 0            [9698]  
0/0/2 20           [9699]   13109   C    9     0 0 0        0                                   OUTPUT
6/1/0 0            [9700]  
1/1/1 45           [9701]  
25/1/1 4096        [9702]  
24/0/3 0           [9703]  
23/0/2 43          [9704]  
0/1/1 40           [9705]  
6/1/0 2490         [9706]   13110  54    9     4 1 0       50                                   BULK CLEAR
24/1/2 21    Extra code needed to address transit area no 4, section 9
28/1/1 4           [9708]  
2/1/0 3606         [9709]   13111   5   17    16 1 0        0 CLEAR IND                         TRANSFER
26/0/1 1497        [9710]   13112  82  131     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

   Source: KenK/Q1000114

  Start of procedure 132 at location 1519 in chapter 2 [9711]
                   [9711]   13200 PROCR  132                    UNPACK POSSIBLE DIRECTIVE BLOCK   
0/0/0 0            [9711]   13202  81  132     2 0 0        0                                   START OF SUBROUTINE
1/1/3 0            [9712]   13203  10          0 0 0        0                                   SELECT LITERAL
2/1/0 2594         [9713]   13204   5    4     4 1 0        0 WL FOR AMEND DIRECTIVE            TRANSFER
2/1/0 2606         [9714]   13205   5    4    16 1 0        0                                   TRANSFER
24/0/1 6320        [9715]   13206  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 1524        [9716]  
0/0/1 1531         [9717] s 13207   C  132    12 0 0        0 gPT                               
0/0/1 1527         [9718] s 13208   C  132     9 0 0        0 gCARDS                            
24/0/2 2284        [9719]   13209  50    5     0 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 15    Extra code needed to address transit area no 1, section 5
28/0/2 0           [9721]   13210   C  150    18 0 0        0                                   
26/0/1 1519        [9722]   13211  82  132     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/0/2 2268        [9723]   13212 124  150     2 0 2        0 UNPACK PT                         SELECT LITERAL AND DIVISION
24/1/2 15          [9724]   13213 124  999    15 1 2        0                                   MODIFY ADDRESS OF NEXT
28/0/3 0           [9725]   13214 128          0 0 3        0                                   UNPACK VARIABLE FIELD DATA
26/0/1 1519        [9726]   13215  82  132     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 133 at location 1535 in chapter 2 [9727]
                   [9727]   13300 PROCR  133                    O/P WHEN MOD NOT ACCEPTED         
0/0/0 0            [9727]   13302  81  133     2 0 0        0                                   START OF SUBROUTINE
26/0/0 1497        [9728]   13303  80  131     2 0 0        0 gO/P TO A6                        ENTER SUBROUTINE
26/0/0 1425        [9729]   13304  80  127     2 0 0        0 gREAD/TEST PT                     ENTER SUBROUTINE
27/0/1 1536        [9730]   13305  71  133     3 0 0        0 gNOT YET                          JUMP IF A != 0
26/0/1 1535        [9731]   13306  82  133     2 0 0        0 NEXT DIRECTIVE FOUND->            END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 134 at location 1540 in chapter 2 [9732]
                   [9732]   13400 PROCR  134                    INTERCHANGE A1,D1 ASL'S SR        
0/0/0 0            [9732]   13402  81  134     2 0 0        0                                   START OF SUBROUTINE
25/1/1 4096        [9733]   13403 125       4096 1 1        0                                   CLEAR INDICATORS
23/0/2 1544        [9734]   13404 123  134     6 0 2        0                                   ENTER MASTER ROUTINE
26/0/1 1540        [9735]   13405  82  134     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
0/0/0 0            [9736]   13406 100          0 0 0        0                                   HALT
24/0/3 9           [9737]   13407 124  999     9 0 3        0                                   MODIFY ADDRESS OF NEXT
0/0/2 64           [9738]   13408 100         64 0 2        0                                   REPLACE (B) BY (N)
24/0/3 7           [9739]   13409 124  999     7 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 64           [9740]   13410 106         64 0 0        0                                   SELECT (N)
24/0/3 9           [9741]   13411 124  999     9 0 3        0 D1->A1                            MODIFY ADDRESS OF NEXT
2/0/0 64           [9742]   13412 102         64 0 0        0                                   TRANSFER (A) TO N
18/1/1 10          [9743]   13413  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/0/3 7           [9744]   13414 124  999     7 0 3        0 A1->D1                            MODIFY ADDRESS OF NEXT
2/0/0 64           [9745]   13415 102         64 0 0        0                                   TRANSFER (A) TO N
26/0/3 1544        [9746]   13416 126  134     6 0 3        0                                   LEAVE MASTER ROUTINE

  Start of procedure 135 at location 1555 in chapter 2 [9747]
                   [9747]   13500 PROCR  135                    REPLACE BE CHAR BY LE CHAR IN SEC 5  
0/0/0 0            [9747]   13502  81  135     2 0 0        0                                   START OF SUBROUTINE
24/0/1 6320        [9748]   13503  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 1557        [9749]  
0/0/1 1619         [9750] s 13504   C  135    51 0 0        0 gPT                               
0/0/1 1560         [9751] s 13505   C  135     6 0 0        0 gCARDS                            
1/1/3 0            [9752]   13506  10          0 0 0        0                                   SELECT LITERAL
2/0/0 1519         [9753]   13507   5  132     2 0 0        0                                   TRANSFER
26/1/1 2492        [9754]   13508  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9755]   13509   C          0 0 0       32                                   Limit
26/1/2 2494        [9755]   13510  90          0 0 2        8                                   SET MODIFICATION REGISTER AT LITERAL
                   [9756]   13511   C          0 0 0       2-                                   Limit
0/1/0 40           [9756]   13512  34    5     0 1 1        0                                   SET (N) IN B
0/0/3 0            [9757]  
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/1 0            [9759]  
2/1/0 42           [9760]  
0/1/1 40           [9761]  
1/1/3 0            [9762]   13513  10          0 0 0        0                                   SELECT LITERAL
18/1/1 2           [9763]   13514  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/2 126          [9764]   13515  12          0 0 0       7.                                   SUBTRACT LITERAL
27/0/0 1583        [9765]   13516  70  135    22 0 0        0 gBE FOUND                         JUMP IF A == 0
25/0/2 4098        [9766]   13517  94  135    13 0 2       2- gNEXT CHAR                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1570        [9767] s
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/1 0            [9769]   13518        5     0 1 1        0                                   SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/1 4            [9771]   13519   5    9     4 1 1        0                                   TRANSFER

   Source: KenK/Q1000115
25/0/1 2           [9772]   13520  94  135    10 0 1        2 gNEXT WORD                        STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1563        [9773]  
26/0/1 1555        [9774]   13521  82  135     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
0/1/0 3612         [9775]   13522 100   17    22 1 0        0 COPY B                            COPY REGISTERS
0/0/3 0            [9776]   13523  62          0 0 0        0                                   SET EXCESS CONSTANTS
24/0/3 22          [9777]   13524  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2            [9778]  
2/0/0 40           [9779]   13525  16          0 0 0        5                                   MULTIPLY LITERAL
0/0/2 2422         [9780]  
10/0/0 40          [9781]  
2/1/0 2180         [9782]   13526   5  148    42 1 0        0  =10 TIMES WORD NUMBER+CLEAR WL   TRANSFER
24/0/3 22          [9783]   13527  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4            [9784]  
3/0/0 1670         [9785]   13528   3  136     2 0 0        0                                   COPY
1/0/1 1            [9786]   13529  35          0 0 0        1                                   PREPARE FOR DIGIT COLLATION
14/0/0 2181        [9787]   13530  37  148    43 0 0        0                                   REPLACE SELECTED BITS
1/1/3 10           [9788]   13531  10          0 0 0        t                                   SELECT LITERAL
5/0/0 2181         [9789]   13532   2  148    43 0 0        0  =SUBTRACT R2 MODIFIER            SUBTRACT
7/0/0 2180         [9790]   13533   4  148    42 0 0        0 AUG COL POSN                      AUGMENT
0/0/3 2423         [9791]   13534  60          0 0 0        0                                   SET DECIMAL RADIX
1/0/1 3            [9792]   13535  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
1/1/3 94           [9793]   13536  10          0 0 0       5.                                   SELECT LITERAL
24/0/1 1670        [9794]   13537 124  136     2 0 1        0                                   MODIFY ADDRESS OF NEXT
18/1/1 0           [9795]   13538  32          0 0 0        0 /////                             SHIFT (AB) BY QUARTETS
24/1/2 15    Extra code needed to address transit area no 1, section 5
14/1/1 0           [9797]   13539  37    5     0 1 1        0 REPLACE BE BY LE                  REPLACE SELECTED BITS
0/0/3 0            [9798]   13540  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 1519         [9799]   13541      132     2 0 0        0 CT OF BE'S X 2                    SELECT
1/1/2 10           [9800]   13542  12          0 0 0        t                                   SUBTRACT LITERAL
27/0/0 1617        [9801]   13543  70  135    49 0 0        0 g5 ALREADY STORED                 JUMP IF A == 0
6/0/0 1519         [9802]   13544  92  132     2 0 4        0                                   SET MODIFIER AT VARIABLE
2/0/0 8184         [9803]  
6/0/0 2180         [9804]   13545      148    42 0 0        0                                   SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
0/0/0 0 act unimp  [9806]   13546   5    9    36 2 4        0 2XBE POSN CTR                     simulated modifier in other division
1/1/3 2            [9807]   13547  10          0 0 0        2                                   SELECT LITERAL
7/0/0 1519         [9808]   13548   4  132     2 0 0        0 STEP CTR                          AUGMENT
0/1/1 3612         [9809]   13549 100   17    22 1 1        0                                   REPLACE REGISTERS
24/1/0 1574        [9810]   13550  76  135    17 0 0        0 g NEXT CHAR                       JUMP unconditional
26/1/1 2496        [9811]   13551  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9812]   13552   C          0 0 0       56                                   Limit
26/1/2 2498        [9812]   13553  90          0 0 2        8                                   SET MODIFICATION REGISTER AT LITERAL
                   [9813]   13554   C          0 0 0       2-                                   Limit
0/1/0 40           [9813]   13555  34    5     0 1 1        0                                   SET (N) IN B
0/0/3 0            [9814]  
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/1 0            [9816]  
2/1/0 42           [9817]  
0/1/1 40           [9818]  
1/1/3 0            [9819]   13556  10          0 0 0        0                                   SELECT LITERAL
18/1/1 2           [9820]   13557  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/2 126          [9821]   13558  12          0 0 0       7.                                   SUBTRACT LITERAL
27/0/0 1643        [9822]   13559  70  135    67 0 0        0 g BE FOUND                        JUMP IF A == 0
25/0/2 4098        [9823]   13560  94  135    56 0 2       2- g GET NEXT CHAR                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1627        [9824] s
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/1 0            [9826]   13561        5     0 1 1        0 COPY TO O/P SECTION               SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/1 4            [9828]   13562   5    9     4 1 1        0                                   TRANSFER
25/0/1 2           [9829]   13563  94  135    53 0 1        2 gGET NEXT WORD                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1620        [9830] s
1/1/3 126          [9831]   13564  10          0 0 0       7. ;MISREAD                          SELECT LITERAL
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 46           [9833]   13565   5    9    46 1 0        0                                   TRANSFER
24/1/0 1145        [9834]   13566  76  121    44 0 0        0                                   JUMP unconditional
24/0/3 22          [9835]   13567  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4            [9836]  
2/0/0 1670         [9837]   13568   5  136     2 0 0        0                                   TRANSFER
1/0/1 3            [9838]   13569  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
1/1/3 94           [9839]   13570  10          0 0 0       5.                                   SELECT LITERAL
24/0/1 1670        [9840]   13571 124  136     2 0 1        0                                   MODIFY ADDRESS OF NEXT
18/1/1 0           [9841]   13572  32          0 0 0        0 /////                             SHIFT (AB) BY QUARTETS
24/1/2 15    Extra code needed to address transit area no 1, section 5
14/1/1 0           [9843]   13573  37    5     0 1 1        0 REPLACE BE BY LE                  REPLACE SELECTED BITS
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/1 0            [9845]   13574        5     0 1 1        0 COPY LAST WORD                    SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/1 4            [9847]   13575   5    9     4 1 1        0                                   TRANSFER
0/1/0 3612         [9848]   13576 100   17    22 1 0        0                                   COPY REGISTERS
0/0/3 0            [9849]   13577  62          0 0 0        0                                   SET EXCESS CONSTANTS
24/0/3 22          [9850]   13578  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2            [9851]  
1/1/1 4            [9852]   13579  11          0 0 0        4                                   ADD LITERAL

   Source: ChuckK/Q1000116
18/0/1 3           [9853]   13580  30          0 0 0        3 >Q4,5                             SHIFT (A) BY QUARTETS
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 49           [9855]   13581   5    9    48 2 0        0                                   TRANSFER
1/0/1 3            [9856]   13582  35          0 0 0       11 COLUMN POSITION                   PREPARE FOR DIGIT COLLATION
15/0/0 1670        [9857]   13583  36  136     2 0 0        0                                   COLLATE AND ADD
24/1/2 21    Extra code needed to address transit area no 4, section 9
14/1/0 49          [9859]   13584  37    9    48 2 0        0                                   REPLACE SELECTED BITS
0/0/3 3616         [9860]   13585 100   17    26 0 3        0                                   SET RADIX
26/0/1 1555        [9861]   13586  82  135     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 136 at location 1670 in chapter 2 [9862]
                   [9862]   13600 PROCR  136                    GET TO START OF AMENDED PROGRAM   
0/0/0 0            [9862]   13602  81  136     2 0 0        0                                   START OF SUBROUTINE
26/0/0 1754        [9863]   13603  80  137     2 0 0        0 READ MT                           ENTER SUBROUTINE
0/0/3 0            [9864]   13604  62          0 0 0        0                                   SET EXCESS CONSTANTS
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 4            [9866]   13605   0   10     4 1 0        0                                   SELECT
5/1/0 2202         [9867]   13606   2  148    64 1 0        0 FINIS'                            SUBTRACT
27/0/0 1730        [9868]   13607  70  136    51 0 0        0 >ALARM*02                         JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 9            [9870]   13608   0   10     8 2 0        0                                   SELECT
5/0/0 2424         [9871]   13609  12          0 0 0                                       SUBTRACT LITERAL
27/0/1 1671        [9872]   13610  71  136     3 0 0        0                                   JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10           [9874]   13611   0   10    10 1 0        0                                   SELECT
5/1/0 2192         [9875]   13612   2  148    54 1 0        0 PASS I'                           SUBTRACT
27/0/0 1720        [9876]   13613  70  136    43 0 0        0                                   JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 6            [9878]   13614   0   10     6 1 0        0                                   SELECT
5/1/0 2200         [9879]   13615   2  148    62 1 0        0 INDEX';USE'INDEX'DATA TO          SUBTRACT
27/0/1 1671        [9880]   13616  71  136     3 0 0        0 >NO;SEE IF PROGM ON TAPE          JUMP IF A != 0
26/0/0 1754        [9881]   13617  80  137     2 0 0        0 >READ                             ENTER SUBROUTINE
26/1/1 2500        [9882]   13618  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9883]   13619   C          0 0 0       48                                   Limit
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 5            [9884]   13620   0   10     4 2 1        0 PROG ID                           SELECT
5/0/0 2158         [9885]   13621   2  148    20 0 0        0                              SUBTRACT
27/0/1 1698        [9886]   13622  71  136    26 0 0        0 >NOT END SIGN                     JUMP IF A != 0
6/0/0 2230         [9887]   13623      148    92 0 0        0                                   SELECT
27/0/0 1671        [9888]   13624  70  136     3 0 0        0 >INTERCODE FOUND.REATO 'PASS I'   JUMP IF A == 0
24/1/0 1730        [9889]   13625  76  136    51 0 0        0 >ALARM02                          JUMP unconditional
4/0/0 2158         [9890]   13626   1  148    20 0 0        0                                   ADD
5/0/0 2592         [9891]   13627   2    4     2 0 0        0 PROG ID                           SUBTRACT
27/0/1 1717        [9892]   13628  71  136    41 0 0        0 >NOT                              JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 7            [9894]   13629   0   10     6 2 1        0                                   SELECT
5/0/0 2594         [9895]   13630   2    4     4 0 0        0 SERIAL                            SUBTRACT
27/0/1 1717        [9896]   13631  71  136    41 0 0        0 >NOT                              JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 8            [9898]   13632       10     8 1 1        0 PASS IND                          SELECT
1/1/2 32           [9899]   13633  12          0 0 0       20                                   SUBTRACT LITERAL
27/0/0 1717        [9900]   13634  70  136    41 0 0        0 >CLEO;SKIP                        JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 9            [9902]   13635       10     8 2 1        0                                   SELECT
27/0/0 1716        [9903]   13636  70  136    40 0 0        0 >INTERCODE                        JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 11           [9905]   13637       10    10 2 1        0 IDENTIFIER                        SELECT
2/0/0 8177         [9906]   13638  84  786     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
24/1/0 1717        [9907]   13639  76  136    41 0 0        0                                   JUMP unconditional
2/0/0 2230         [9908]   13640   5  148    92 0 0        0 SET'PROGRAM TAPE'                 TRANSFER
25/0/1 8           [9909]   13641  94  136    20 0 1        8                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1691        [9910] s
24/1/0 1689        [9911]   13642  76  136    17 0 0        0 >NEXT BLOCK                       JUMP unconditional
0/0/3 2425         [9912]   13643  60          0 0 0        0 SET DEC                           SET DECIMAL RADIX
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 5            [9914]   13644   0   10     4 2 0        0                                   SELECT

   Source: RayS/Q1000117
5/0/0 2592         [9915]   13645   2    4     2 0 0        0 PROG IDENTITY                     SUBTRACT
27/0/1 1671        [9916]   13646  71  136     3 0 0        0 gNO                               JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 7            [9918]   13647   0   10     6 2 0        0                                   SELECT
5/0/0 2594         [9919]   13648   2    4     4 0 0        0                                   SUBTRACT
27/0/1 1671        [9920]   13649  71  136     3 0 0        0 gNO                               JUMP IF A != 0
26/0/1 1670        [9921]   13650  82  136     2 0 0        0 MATCH FOUND                       END OF SUBROUTINE / LEAVE SUBROUTINE
0/1/0 40           [9922]   13651  41   A1     0 0 0        1                                   CLOSE FILE
0/0/3 0            [9923]  
6/1/0 0            [9924]  
1/1/1 27           [9925]  
25/1/1 4096        [9926]  
24/0/3 0           [9927]  
23/0/2 41          [9928]  
0/1/1 40           [9929]  
1/1/3 1            [9930]   13652  10          0 0 0        1                                   SELECT LITERAL
2/0/0 2230         [9931]   13653   5  148    92 0 0        0                                   TRANSFER
2/0/0 8177         [9932]   13654  84  786     2 0 0        0 CLEAR                             SET SWITCH(ES) AT VARIABLE VALUE
1/1/3 2            [9933]   13655 150          0 0 0        2                                   OFFER OPTIONS
0/0/2 2426         [9934]  
25/1/1 4096        [9935]  
24/0/3 0           [9936]  
26/0/2 1           [9937]  
0/0/1 1751         [9938] s 13656   C  136    61 0 0        0 gUNLOAD                           
0/0/1 1749         [9939] s 13657   C  136    59 0 0        0 gTRY NEW INPUT TAPE               
0/0/1 368          [9940] s 13658   C  107    11 0 0        0 gREENTER                          
26/0/0 1765        [9941]   13659  80  138     2 0 0        0 gOPEN A1                          ENTER SUBROUTINE
24/1/0 1671        [9942]   13660  76  136     3 0 0        0 gTRY AGAIN                        JUMP unconditional
25/1/1 4096        [9943]   13661 151          0 0 0        0                                   UNLOAD PROGRAMME
24/0/3 0           [9944]  
26/0/2 2           [9945]  

  Start of procedure 137 at location 1754 in chapter 2 [9946]
                   [9946]   13700 PROCR  137                    READ A1+SEC7                      
0/0/0 0            [9946]   13702  81  137     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40           [9947]   13703  42   A1     0 0 0        0                                   INPUT
0/0/3 0            [9948]  
0/0/2 12           [9949]   13704   C   10     0 0 0        0                                   INPUT
6/1/0 0            [9950]  
1/1/1 27           [9951]  
25/1/1 4096        [9952]  
24/0/3 0           [9953]  
23/0/2 42          [9954]  
0/1/1 40           [9955]  
26/0/1 1754        [9956]   13705  82  137     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 138 at location 1765 in chapter 2 [9957]
                   [9957]   13800 PROCR  138                    OPEN A1                           
0/0/0 0            [9957]   13802  81  138     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40           [9958]   13803  40   A1     0 0 0        1                                   OPEN FILE
0/0/3 0            [9959]  
0/1/2 2502         [9960]  
6/1/0 2504         [9961]  
1/1/1 27           [9962]  
25/1/1 4096        [9963]  
24/0/3 0           [9964]  
23/0/2 40          [9965]  
0/0/3 44           [9966]  
26/0/1 1765        [9967]   13804  82  138     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 139 at location 1776 in chapter 2 [9968]
                   [9968]   13900 PROCR  139                    GET NEXT ITEM                     
0/0/0 0            [9968]   13902  81  139     2 0 0        0                                   START OF SUBROUTINE
25/0/2 2           [9969]   13903  94  139     7 0 2        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1781        [9970]  
26/0/0 1754        [9971]   13904  80  137     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
26/1/2 2506        [9972]   13905  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9973]   13906   C          0 0 0       46                                   Limit
26/0/1 1776        [9973]   13907  82  139     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 140 at location 1782 in chapter 2 [9974]
                   [9974]   14000 PROCR  140                    STORE ADJUST DETAILS SR           
0/0/0 0            [9974]   14002  81  140     2 0 0        0                                   START OF SUBROUTINE
6/0/0 3593         [9975]   14003       17     3 0 0        0                                   SELECT
1/1/2 460          [9976]   14004 101        460 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/2 1808        [9977]   14005  72  140    28 0 0        0 gTOO MANY STORED                  JUMP IF A >= 0
1/1/3 0            [9978]   14006  10          0 0 0        0                                   SELECT LITERAL
1/0/1 3            [9979]   14007  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/0 3604        [9980]   14008  36   17    14 0 0        0                                   COLLATE AND ADD
2/0/0 1670         [9981]   14009   5  136     2 0 0        0 ITEM                              TRANSFER
6/0/0 3604         [9982]   14010       17    14 0 0        0                                   SELECT
18/0/1 4126        [9983]   14011  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
26/0/0 1829        [9984]   14012  80  142     2 0 0        0                                   ENTER SUBROUTINE
2/0/0 1809         [9985]   14013   5  141     2 0 0        0 BIN REF                           TRANSFER
24/0/1 1809        [9986]   14014 124  141     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 2590         [9987]   14015        6  100- 0 0        0 UPDATED REF                       SELECT
26/0/0 1835        [9988]   14016  80  143     2 0 0        0 gTO DEC                           ENTER SUBROUTINE
18/0/1 2           [9989]   14017  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 1670         [9990]   14018   1  136     2 0 0        0                                   ADD

   Source: RayS/Q1000118
24/0/1 3593        [9991]   14019 124   17     3 0 1        0                                   MODIFY ADDRESS OF NEXT
2/0/0 4140         [9992]   14020   5   19     0 0 0        0 LOCN OF ADJUSTMENT                TRANSFER
6/0/0 3605         [9993]   14021   0   17    15 0 0        0                                   SELECT
24/0/1 3593        [9994]   14022 124   17     3 0 1        0                                   MODIFY ADDRESS OF NEXT
2/0/0 4141         [9995]   14023   5   19     1 0 0        0 QUANTITY                          TRANSFER
0/0/3 0            [9996]   14024  62          0 0 0        0                                   SET EXCESS CONSTANTS
1/1/3 2            [9997]   14025  10          0 0 0        2                                   SELECT LITERAL
7/0/0 3593         [9998]   14026   4   17     3 0 0        0 STEP CTR                          AUGMENT
0/0/3 2427         [9999]   14027  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/1 1782       [10000]   14028  82  140     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 141 at location 1809 in chapter 2 [10001]
                  [10001]   14100 PROCR  141                    SR TO READ PT AND TEST END        
0/0/0 0           [10001]   14102  81  141     2 0 0        0                                   START OF SUBROUTINE
0/1/0 3612        [10002]   14103 100   17    22 1 0        0                                   COPY REGISTERS
0/0/3 0           [10003]   14104  62          0 0 0        0                                   SET EXCESS CONSTANTS
0/0/2 14          [10004]   14105  34  999    14 0 0        0                                   SET (N) IN B
6/0/0 6320        [10005]   14106       27    10 0 0        0                                   SELECT
1/1/1 4           [10006]   14107  11          0 0 0        4                                   ADD LITERAL
26/0/0 1409       [10007]   14108  80  126     2 0 0        0 gREAD B1                          ENTER SUBROUTINE
0/1/1 3612        [10008]   14109 100   17    22 1 1        0                                   REPLACE REGISTERS
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0           [10010]   14110        5     0 1 0        0                                   SELECT
5/1/0 2508        [10011]   14111  12          0 0 0  7258555573 SHEET'                            SUBTRACT LITERAL
27/0/1 1823       [10012]   14112  71  141    15 0 0        0                                   JUMP IF A != 0
26/0/0 1497       [10013]   14113  80  131     2 0 0        0                                   ENTER SUBROUTINE
24/1/0 1810       [10014]   14114  76  141     3 0 0        0 gREAD NEXT BLOCK                  JUMP unconditional
24/1/2 15    Extra code needed to address transit area no 1, section 5
6/1/0 0           [10016]   14115   0    5     0 1 0        0                                   SELECT
18/0/1 4124       [10017]   14116  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4          [10018]   14117  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 2198        [10019]   14118   2  148    60 1 0        0 END  '                            SUBTRACT
26/0/1 1809       [10020]   14119  82  141     2 0 0        0 (A)=0 IF END                      END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 142 at location 1829 in chapter 2 [10021]
                  [10021]   14200 PROCR  142                    CONVERT TO BIN                    
0/0/0 0           [10021]   14202  81  142     2 0 0        0                                   START OF SUBROUTINE
2/1/0 2180        [10022]   14203   5  148    42 1 0        0                                   TRANSFER
0/0/3 0           [10023]   14204  62          0 0 0        0                                   SET EXCESS CONSTANTS
24/0/2 2160       [10024]   14205 124  148    22 0 2        0                                   SELECT LITERAL AND DIVISION
12/1/0 2180       [10025]   14206 112  148    42 1 0        0                                   CONVERT
26/0/1 1829       [10026]   14207  82  142     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 143 at location 1835 in chapter 2 [10027]
                  [10027]   14300 PROCR  143                                                      
0/0/0 0           [10027]   14302  81  143     2 0 0        0 CONVERT TO DEC                    START OF SUBROUTINE
2/1/0 2180        [10028]   14303   5  148    42 1 0        0                                   TRANSFER
0/0/3 2428        [10029]   14304  60          0 0 0        0                                   SET DECIMAL RADIX
24/0/2 2140       [10030]   14305 124  148     2 0 2        0                                   SELECT LITERAL AND DIVISION
12/1/0 2180       [10031]   14306 112  148    42 1 0        0                                   CONVERT
26/0/1 1835       [10032]   14307  82  143     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 144 at location 1841 in chapter 2 [10033]
                  [10033]   14400 PROCR  144                    DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK  
26/0/0 1994       [10033]   14402  80  145     2 0 0        0 UNPACK AND CHECK PROG ID          ENTER SUBROUTINE
0/1/0 40          [10034]   14403  40   A6     0 0 0        0                                   OPEN FILE
0/0/3 0           [10035]  
0/1/2 2510        [10036]  
6/1/0 2512        [10037]  
1/1/1 45          [10038]  
25/1/1 4096       [10039]  
24/0/3 0          [10040]  
23/0/2 40         [10041]  
0/0/3 44          [10042]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 13          [10044]   14404   0   10    12 2 0        0                                   SELECT
2/0/0 6310        [10045]   14405   5   27     0 0 0        0 SET 'EX ISSUE 7' IND              TRANSFER
1/1/3 0           [10046]   14406  10          0 0 0        0                                   SELECT LITERAL
24/1/2 13    Extra code needed to address transit area no 0, section 10
0/1/2 12          [10048]   14407  34   10    12 1 0        0                                   SET (N) IN B
18/1/1 2          [10049]   14408  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/2 71          [10050]   14409  12          0 0 0       47                                   SUBTRACT LITERAL
27/0/3 631        [10051]   14410  73  109    61 0 0        0 gMADE BEFORE ISSUE 7, ALARM 7     JUMP IF A < 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 17          [10053]   14411       10    16 2 0        0 MULTIRECORD IND                   SELECT
2/0/0 6311        [10054]   14412   5   27     1 0 0        0                                   TRANSFER
6/1/0 2210        [10055]   14413   0  148    72 1 0        0 'TRAMD'                           SELECT

   Source: KenK/Q1000119
2/1/0 2190        [10056]   14414   5  148    52 1 0        0 OVER 'AMEND'                      TRANSFER
24/0/2 2248       [10057]   14415  55  149    12 1 0        4 ADD'->PTS'TO COMMENT              BULK COPY
18/1/0 4123       [10058]   14416   C  149    10 1 0        0                                   
1/1/3 4           [10059]  
18/1/1 5          [10060]  
28/1/1 2246       [10061]  
24/0/2 2238       [10062]   14417  52   18     0 0 0        0                                   EDIT
24/0/3 0    Extra code needed to address 5664 from 10063 (different chapter)
28/1/2 5664       [10064]   14418   C  149     2 0 0        0                                   
0/1/0 40          [10065]   14419 154   18     0 0 0        0 TYPE 'TRAMD' COMMENT              COMMENT IN LOG
0/0/3 0           [10066]  
24/0/3 0    Extra code needed to address 5664 from 10067 (different chapter)
24/0/2 5664       [10068]  
24/0/3 0          [10069]  
23/0/2 154        [10070]  
0/1/1 40          [10071]  
26/0/0 1497       [10072]   14420  80  131     2 0 0        0                                   ENTER SUBROUTINE
26/0/0 1809       [10073]   14421  80  141     2 0 0        0 READ PT                           ENTER SUBROUTINE
27/0/1 1880       [10074]   14422  71  144    20 0 0        0 gNOT END                          JUMP IF A != 0
26/0/0 1497       [10075]   14423  80  131     2 0 0        0 WRITE END BLOCK ***REWIND A6      ENTER SUBROUTINE
0/1/0 40          [10076]   14424  45   A6     0 0 0        0 REWIND A6                         REWIND
0/0/3 0           [10077]  
6/1/0 0           [10078]  
1/1/1 45          [10079]  
25/1/1 4096       [10080]  
24/0/3 0          [10081]  
23/0/2 45         [10082]  
0/1/1 40          [10083]  
0/0/3 0           [10084]   14425  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 6320        [10085]   14426       27    10 0 0        0                                   SELECT
1/1/1 24          [10086]   14427  11          0 0 0       18                                   ADD LITERAL
26/0/0 1409       [10087]   14428  80  126     2 0 0        0 CLOSE B1                          ENTER SUBROUTINE
6/1/0 2514        [10088]   14429  54    8     4 1 0       46                                   BULK CLEAR
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [10090]  
0/1/0 40          [10091]   14430  40   A2     0 0 0        0 ;OPEN OUTPUT                      OPEN FILE
0/0/3 0           [10092]  
0/1/2 2516        [10093]  
6/1/0 2518        [10094]  
1/1/1 36          [10095]  
25/1/1 4096       [10096]  
24/0/3 0          [10097]  
23/0/2 40         [10098]  
0/0/3 44          [10099]  
18/1/1 10         [10100]   14431  32          0 0 0       10 SPOOL NO->A                       SHIFT (AB) BY QUARTETS
2/0/0 8174        [10101]   14432  84  153     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
26/0/0 2016       [10102]   14433  80  146     2 0 0        0 WRITE TWO BLANK BLOCKS            ENTER SUBROUTINE
26/0/0 2016       [10103]   14434  80  146     2 0 0        0                                   ENTER SUBROUTINE
24/0/2 2212       [10104]   14435  55  148    74 1 0       10                                   BULK COPY
18/1/0 4123       [10105]   14436   C    8     4 1 0        0                                   
1/1/3 10          [10106]  
18/1/1 5          [10107]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [10109]  
26/0/0 2016       [10110]   14437  80  146     2 0 0        0 WRITE 'INDEX' BLOCK               ENTER SUBROUTINE
6/0/0 3618        [10111]   14438       17    28 0 0        0 PROG IDENTITY                     SELECT
3/0/0 5450        [10112]   14439   3   94     0 0 0        0                                   COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 5           [10114]   14440   3    8     4 2 0        0                                   COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 13          [10116]   14441   3    8    12 2 0        0                                   COPY
0/0/3 2429        [10117]   14442  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 1           [10118]   14443  10          0 0 0        1                                   SELECT LITERAL
1/0/1 3           [10119]   14444  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/0 3619       [10120]   14445  36   17    29 0 0        0                                   COLLATE AND ADD
14/0/0 3619       [10121]   14446  37   17    29 0 0        0 UPDATED PROG SERIAL               REPLACE SELECTED BITS
0/0/3 0           [10122]   14447  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 3619        [10123]   14448       17    29 0 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 7           [10125]   14449   3    8     6 2 0        0                                   COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 15          [10127]   14450   5    8    14 2 0        0                                   TRANSFER
1/1/3 2           [10128]   14451  10          0 0 0        2                                   SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 11          [10130]   14452   5    8    10 2 0        0                                   TRANSFER
1/1/3 3           [10131]   14453  10          0 0 0        3                                   SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 19          [10133]   14454   5    8    18 2 0        0                                   TRANSFER
1/1/3 4           [10134]   14455  10          0 0 0        4                                   SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 17          [10136]   14456   5    8    16 2 0        0                                   TRANSFER
6/1/0 2216        [10137]   14457      148    78 1 0        0                              SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 20          [10139]   14458   5    8    20 1 0        0                                   TRANSFER
26/0/0 2016       [10140]   14459  80  146     2 0 0        0                                   ENTER SUBROUTINE
6/0/0 3618        [10141]   14460       17    28 0 0        0 PROG IDENTITY                     SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 5           [10143]   14461   5    8     4 2 0        0                                   TRANSFER
6/0/0 3619        [10144]   14462       17    29 0 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 7           [10146]   14463   5    8     6 2 0        0                                   TRANSFER
6/1/0 2216        [10147]   14464      148    78 1 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 8           [10149]   14465   5    8     8 1 0        0                                   TRANSFER
6/1/0 2192        [10150]   14466      148    54 1 0        0  'PASS!'                          SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 10          [10152]   14467   5    8    10 1 0        0                                   TRANSFER
6/1/0 2520        [10153]   14468 155          0 0 0        0 TRANSLATOR SERIAL                 SELECT PROGRAM SERIAL TO A
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 12          [10155]   14469   5    8    12 1 0        0                                   TRANSFER
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 14          [10157]   14470   5    8    14 1 0        0                                   TRANSFER
6/0/0 6311        [10158]   14471       27     1 0 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 17          [10160]   14472   5    8    16 2 0        0 MULTI RECORD IND                  TRANSFER
26/0/0 2016       [10161]   14473  80  146     2 0 0        0 WRITE 'PASS 1' BLOCK              ENTER SUBROUTINE

   Source: KenK/Q1000120
26/0/0 1754       [10162]   14474  80  137     2 0 0        0 gREADA1                           ENTER SUBROUTINE
26/0/0 1435       [10163]   14475  80  128     2 0 0        0 gWRITE +READ;PROCR LENGTH INDEX   ENTER SUBROUTINE
26/0/0 1435       [10164]   14476  80  128     2 0 0        0                                   ENTER SUBROUTINE
6/0/0 3619        [10165]   14477       17    29 0 0        0                                   SELECT
3/0/0 5451        [10166]   14478   3   94     1 0 0        0                                   COPY
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 13          [10168]   14479   5   10    12 2 0        0 UPDATE SERIAL IN'PROGM'BLOCK      TRANSFER
26/0/0 1435       [10169]   14480  80  128     2 0 0        0 gCOPY                             ENTER SUBROUTINE
6/0/0 6311        [10170]   14481       27     1 0 0        0                                   SELECT
27/0/0 1983       [10171]   14482  70  144    85 0 0        0 gSINGLE-RECORD BLOCKS             JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 12          [10173]   14483   0   10    12 1 0        0                                   SELECT
24/1/0 1985       [10174]   14484  76  144    86 0 0        0 ;OF INTERCODE                     JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10          [10176]   14485   0   10    10 1 0        0                                   SELECT
5/1/0 2184        [10177]   14486   2  148    46 1 0        0  'PROCR'                          SUBTRACT
27/0/0 2033       [10178]   14487  70  147     2 0 0        0                                   JUMP IF A == 0
4/1/0 2184        [10179]   14488   1  148    46 1 0        0                                   ADD
5/1/0 2188        [10180]   14489   2  148    50 1 0        0  'CONST'                          SUBTRACT
27/0/0 2033       [10181]   14490  70  147     2 0 0        0                                   JUMP IF A == 0
4/1/0 2188        [10182]   14491   1  148    50 1 0        0                                   ADD
5/1/0 2186        [10183]   14492   2  148    48 1 0        0  'TABLE'                          SUBTRACT
27/0/1 1977       [10184]   14493  71  144    80 0 0        0                                   JUMP IF A != 0
24/1/0 2033       [10185]   14494  76  147     2 0 0        0                                   JUMP unconditional

  Start of procedure 145 at location 1994 in chapter 2 [10186]
                  [10186]   14500 PROCR  145                    UNPACK AMEND HEADING, GET TO PROGM START  
0/0/0 0           [10186]   14502  81  145     2 0 0        0                                   START OF SUBROUTINE
24/0/1 6320       [10187]   14503  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 1996       [10188]  
0/0/1 2003        [10189] s 14504   C  145     9 0 0        0 gPT                               
0/0/1 1999        [10190] s 14505   C  145     6 0 0        0 gCARDS                            
24/0/2 2276       [10191]   14506  50    5     0 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 15    Extra code needed to address transit area no 1, section 5
28/0/2 0          [10193]   14507   C  150    10 0 0        0                                   
24/1/0 2006       [10194]   14508  76  145    12 0 0        0                                   JUMP unconditional
24/0/2 2276       [10195]   14509 124  150    10 0 2        0 UNPACK PT                         SELECT LITERAL AND DIVISION
24/1/2 15         [10196]   14510 124  999    15 1 2        0                                   MODIFY ADDRESS OF NEXT
28/0/3 0          [10197]   14511 128          0 0 3        0                                   UNPACK VARIABLE FIELD DATA
6/0/0 2592        [10198]   14512        4     2 0 0        0 SUITE                             SELECT
18/0/1 2          [10199]   14513  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 2593        [10200]   14514   1    4     3 0 0        0                                   ADD
3/0/0 2592        [10201]   14515   3    4     2 0 0        0                                   COPY
2/0/0 3618        [10202]   14516   5   17    28 0 0        0 PROG ID                           TRANSFER
6/0/0 2594        [10203]   14517        4     4 0 0        0 PROG                              SELECT
2/0/0 3619        [10204]   14518   5   17    29 0 0        0                                   TRANSFER
26/0/0 1765       [10205]   14519  80  138     2 0 0        0 gOPEN A1                          ENTER SUBROUTINE
26/0/0 1670       [10206]   14520  80  136     2 0 0        0 gCHECK PROG ID, GET TO 'PASSI' BLOCK  ENTER SUBROUTINE
26/0/1 1994       [10207]   14521  82  145     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 146 at location 2016 in chapter 2 [10208]
                  [10208]   14600 PROCR  146                    O/P->A2                           
0/0/0 0           [10208]   14602  81  146     2 0 0        0                                   START OF SUBROUTINE
6/1/0 2522        [10209]   14603  10          0 0 0  7.0000007.                                   SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 50          [10211]   14604   5    8    50 1 0        0                                   TRANSFER
0/1/0 40          [10212]   14605  43   A2     0 0 0        0                                   OUTPUT
0/0/3 0           [10213]  
0/0/2 18          [10214]   14606   C    8     0 0 0        0                                   OUTPUT
6/1/0 0           [10215]  
1/1/1 36          [10216]  
25/1/1 4096       [10217]  
24/0/3 0          [10218]  
23/0/2 43         [10219]  
0/1/1 40          [10220]  
6/1/0 2524        [10221]   14607  54    8     4 1 0       46                                   BULK CLEAR
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [10223]  
26/0/1 2016       [10224]   14608  82  146     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 147 at location 2033 in chapter 2 [10225]
                  [10225]   14700 PROCR  147                     'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX  
6/0/0 6311        [10225]   14702       27     1 0 0        0                                   SELECT
27/0/0 2052       [10226]   14703  70  147    16 0 0        0                                   JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 5           [10228]   14704   0   10     4 2 0        0                                   SELECT

   Source: KenK/Q1000121
18/0/1 5          [10229]   14705  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
3/1/0 40          [10230]   14706  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40         [10231]  
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 12          [10233]   14707   0   10    12 1 1        0                                   SELECT
5/1/0 2198        [10234]   14708   2  148    60 1 0        0  'END'                            SUBTRACT
27/0/0 2056       [10235]   14709  70  147    19 0 0        0 gYES                              JUMP IF A == 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 7           [10237]   14710   0   10     6 2 1        0 RECORD LENGTH                     SELECT
2/0/0 2016        [10238]   14711   5  146     2 0 0        0                                   TRANSFER
24/0/1 2016       [10239]   14712  97  146     2 0 1        0                                   STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
25/0/1 0          [10240]   14713   C  147     7 0 0        0                                   STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
24/1/0 2040       [10241] s
26/0/0 1435       [10242]   14714  80  128     2 0 0        0 gWRITE/READ                       ENTER SUBROUTINE
24/1/0 2033       [10243]   14715  76  147     2 0 0        0                                   JUMP unconditional
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 10          [10245]   14716   0   10    10 1 0        0                                   SELECT
5/1/0 2198        [10246]   14717   2  148    60 1 0        0  'END'                            SUBTRACT
27/0/1 2050       [10247]   14718  71  147    14 0 0        0 gNOT YET                          JUMP IF A != 0
26/0/0 1435       [10248]   14719  80  128     2 0 0        0 gWRITE/READ/(END SIGNGET TO 'INDEX'  ENTER SUBROUTINE
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 6           [10250]   14720   0   10     6 1 0        0                                   SELECT
5/1/0 2214        [10251]   14721   2  148    76 1 0        0  'INDEX'                          SUBTRACT
27/0/1 2056       [10252]   14722  71  147    19 0 0        0 gNOT YET                          JUMP IF A != 0
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/0 11          [10254]   14723       10    10 2 0        0                                   SELECT
1/1/2 3           [10255]   14724  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/0 2082       [10256]   14725  70  147    33 0 0        0                                   JUMP IF A == 0
6/0/0 8177        [10257]   14726  86  786     2 0 0        0 PASS 3 ID                         SELECT SWITCH R
2/0/0 1829        [10258]   14727   5  142     2 0 0        0                                   TRANSFER
0/1/0 40          [10259]   14728  46   A1    10 0 0        1                                   RUN BACK
0/0/3 0           [10260]  
6/0/0 1829        [10261]   14729   C  142     2 0 0        0                                   RUN BACK
4/1/0 2526        [10262]  
18/1/1 4118       [10263]  
6/1/0 0           [10264]  
1/1/1 27          [10265]  
25/1/1 4096       [10266]  
24/0/3 0          [10267]  
23/0/2 46         [10268]  
0/1/1 40          [10269]  
26/0/0 1754       [10270]   14730  80  137     2 0 0        0                                   ENTER SUBROUTINE
1/1/3 3           [10271]   14731  10          0 0 0        3                                   SELECT LITERAL
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 11          [10273]   14732   5   10    10 2 0        0                                   TRANSFER
26/0/0 1435       [10274]   14733  80  128     2 0 0        0 gWRITE/READ                       ENTER SUBROUTINE
26/1/1 2528       [10275]   14734  90          0 0 1        0 ;DRAIN INDEX DETAILS              SET MODIFICATION REGISTER AT LITERAL
                  [10276]   14735   C          0 0 0       48                                   Limit
24/1/2 13    Extra code needed to address transit area no 0, section 10
6/1/1 5           [10277]   14736   0   10     4 2 1        0 PROG IDENTITY                     SELECT
5/0/0 2158        [10278]   14737   2  148    20 0 0        0                              SUBTRACT
27/0/0 2092       [10279]   14738  70  147    42 0 0        0 gEND                              JUMP IF A == 0
25/0/1 8          [10280]   14739  94  147    36 0 1        8                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2084       [10281] s
26/0/0 1754       [10282]   14740  80  137     2 0 0        0 gREAD                             ENTER SUBROUTINE
24/1/0 2083       [10283]   14741  76  147    34 0 0        0                                   JUMP unconditional
6/0/0 2430        [10284]   14742  10          0 0 0    1.006 1/1/3 6(R1 NON-ZERO)              SELECT LITERAL
3/0/0 6044        [10285]   14743   3   92    30 0 0        0 SET'AMEND RUN'                    COPY
3/0/0 6323        [10286]   14744   3   27    13 0 0        0 SET NONZERO                       COPY
3/0/0 6321        [10287]   14745   3   27    11 0 0        0                                   COPY
2/0/0 48          [10288] a 14746   5  101     4 0 0        0 CHANGE OLAY ORDER                 TRANSFER
1/1/3 2           [10289]   14747  10          0 0 0        2                                   SELECT LITERAL
2/0/0 6322        [10290]   14748   5   27    12 0 0        0 SET'PTS NEEDED'                   TRANSFER
26/0/0 1540       [10291]   14749  80  134     2 0 0        0 RESTORE ASLS                      ENTER SUBROUTINE
6/0/0 6319        [10292]   14750       27     9 0 0        0 OFF LINE PRINT?                   SELECT
27/0/0 2109       [10293]   14751  70  147    59 0 0        0 gPRINTER                          JUMP IF A == 0
6/1/0 2530        [10294]   14752  90          0 0 6        0                                   SET MODIFICATION REGISTER AT LITERAL
2/1/0 8180        [10295]   14753   C          0 0 0      300                                   Simulated modifier
6/0/0 8176        [10296]   14754  86  787     2 0 0        0 A9 OR NOT                         SELECT SWITCH R
27/0/1 2118       [10297]   14755  71  147    68 0 0        0 g'PRINT'BLOCK                     JUMP IF A != 0
6/1/0 2532        [10298]   14756  10          0 0 0  1200000 ;OPEN MT                          SELECT LITERAL
0/1/2 2236        [10299]   14757  34  148    98 1 0        0 OFF LINE PRINT?                   SET (N) IN B
24/1/0 2112       [10300]   14758  76  147    62 0 0        0                                   JUMP unconditional
6/0/0 6318        [10301]   14759       27     8 0 0        0 ;OPEN PRINTER                     SELECT
1/1/1 10          [10302]   14760  11          0 0 0        t                                   ADD LITERAL
18/0/1 5          [10303]   14761  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 7           [10304]   14762   1  999     7 0 0        0                                   ADD
25/1/1 4096       [10305]   14763 125       4096 1 1        0                                   CLEAR INDICATORS

   Source: ChuckK/Q1000122
24/0/3 0          [10306]   14764 124  999     0 0 3        0                                   MODIFY ADDRESS OF NEXT
23/0/2 160        [10307]   14765 123        160 0 2        0                                   ENTER MASTER ROUTINE
6/0/0 6319        [10308]   14766       27     9 0 0        0                                   SELECT
27/0/0 1388       [10309]   14767  70  125    40 0 0        0 >ENTER PASS  4                    JUMP IF A == 0
6/1/0 2534        [10310]   14768  10          0 0 0  6769596573 PRINT'                            SELECT LITERAL
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 4           [10312]   14769   5   10     4 1 0        0                                   TRANSFER
6/0/0 2431        [10313]   14770  10          0 0 0     8000                                   SELECT LITERAL
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 7           [10315]   14771   5   10     6 2 0        0                                   TRANSFER
6/1/0 2536        [10316]   14772 155          0 0 0        0                                   SELECT PROGRAM SERIAL TO A
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 8           [10318]   14773   5   10     8 1 0        0 TRANSLATOR SERIAL                 TRANSFER
6/0/0 3618        [10319]   14774       17    28 0 0        0 PROG ID                           SELECT
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 11          [10321]   14775   5   10    10 2 0        0                                   TRANSFER
6/1/0 2538        [10322]   14776  10          0 0 0  7.0000007.                                   SELECT LITERAL
24/1/2 13    Extra code needed to address transit area no 0, section 10
2/1/0 12          [10324]   14777   5   10    12 1 0        0                                   TRANSFER
6/1/0 2540        [10325]   14778  10          0 0 0   800000 ;WRITE A9 HDG BLOCK               SELECT LITERAL
0/0/2 12          [10326]   14779  34  999    12 0 0        0                                   SET (N) IN B
25/1/1 4096       [10327]   14780 125       4096 1 1        0                                   CLEAR INDICATORS
4/0/0 7           [10328]   14781   1  999     7 0 0        0                                   ADD
24/0/3 0          [10329]   14782 124  999     0 0 3        0                                   MODIFY ADDRESS OF NEXT
23/0/2 160        [10330]   14783 123        160 0 2        0                                   ENTER MASTER ROUTINE
24/1/0 1388       [10331]   14784  76  125    40 0 0        0 >ENTER PASS  4                    JUMP unconditional

  Start of procedure 148 at location 2140 in chapter 2 [10332]
                  [10332]   14800 CONST  148       1            CONVERT TABLES                    
0/0/0 1           [10332]   14802 (D)1;                 BIN>DEC                           00001 +00000
0/0/0 0           [10333]  
0/0/0 22          [10334]   14804 16;                                                     00016 +00000
0/0/0 0           [10335]  
0/0/0 598         [10336]   14806 256;                                                    00256 +00000
0/0/0 0           [10337]  
0/0/2 150         [10338]   14808 4096;                                                   04096 +00000
0/0/0 0           [10339]  
6/0/2 5430        [10340]   14810 65536;                                                  65536 +00000
0/0/0 0           [10341]  
4/1/0 1398        [10342]   14812 1048576;                                                48576 +00010
0/0/0 16          [10343]  
7/0/3 4630        [10344]   14814 16777216;                                               77216 +00167
0/0/0 359         [10345]  
3/0/2 5206        [10346]   14816 268435456;                                              35456 +02684
0/0/1 1668        [10347]  
6/0/3 4758        [10348]   14818 4294967296;                                             67296 +42949
4/0/1 2377        [10349]  
15/1/3 8191       [10350]   14820 ;                                             FFFFF +FFFFF
15/1/3 8191       [10351]  
0/0/0 1           [10352]   14822 1;                    DEC>BIN                           00001 +00000
0/0/0 0           [10353]  
0/0/0 10          [10354]   14824 t;                                                      0000A +00000
0/0/0 0           [10355]  
0/0/0 100         [10356]   14826 64;                                                     00064 +00000
0/0/0 0           [10357]  
0/0/0 1000        [10358]   14828 3.8;                                                    003E8 +00000
0/0/0 0           [10359]  
0/0/1 1808        [10360]   14830 2710;                                                   02710 +00000
0/0/0 0           [10361]  
1/1/0 1696        [10362]   14832 186t0;                                                  186A0 +00000
0/0/0 0           [10363]  
15/0/2 576        [10364]   14834 4240;                                                  F4240 +00000
0/0/0 0           [10365]  
8/1/0 5760        [10366]   14836 989680;                                                 89680 +00009
0/0/0 9           [10367]  
5/1/3 256         [10368]   14838 55.100;                                                5E100 +0005F
0/0/0 95          [10369]  
10/1/2 2560       [10370]   14840 3e9t+t00;                                               ACA00 +003B9
0/0/0 953         [10371]  
0/0/0 0           [10372]   14842 0;                    WL(A)                             00000 +00000
0/0/0 0           [10373]  
6/0/2 5988        [10374]   14844 (A)PROGM;                                               65764 +67696
6/0/3 5782        [10375]  
6/0/2 4969        [10376]   14846 (A)PROCR;                                               65369 +67696
6/0/3 5782        [10377]  
2/0/3 853         [10378]   14848 (A)TABLE;                                               26355 +73515
7/0/1 5397        [10379]  
5/0/3 4723        [10380]   14850 (A)CONST;                                               57273 +53666
5/0/1 5734        [10381]  
5/0/3 1364        [10382]   14852 AMEND;                                                  56554 +51645
5/0/0 5701        [10383]  
2/0/3 4697        [10384]   14854 (A)PASSI;                                               27259 +67517
6/0/3 5399        [10385]  
4/0/3 1906        [10386]   14856 (A)DUMPS;                                               46772 +54746
5/0/2 1862        [10387]  
3/0/2 5490        [10388]   14858 (A)FILES;                                               35572 +56596
5/0/3 1430        [10389]  
4/0/0 0           [10390]   14860 (A)END  ;                                               40000 +55655
5/0/2 5717        [10391]  
4/0/2 5495        [10392]   14862 (A)INDEX;                                               45577 +59655
5/1/0 5717        [10393]  
5/0/2 6514        [10394]   14864 FINIS;                                                  55972 +56596
5/0/3 1430        [10395]  
0/0/2 7774        [10396]   14866 (D)0000005.5.;        DOUBLE LINE END                   05E5E +00000
0/0/0 0           [10397]  
0/0/0 1023        [10398]   14868 (D)3;               BITS 1-10                         003FF +00000
0/0/0 0           [10399]  
0/1/0 0           [10400]   14870 0524108000;                                             08000 +05241
0/0/2 4673        [10401]  
1/0/3 1108        [10402]   14872 (A)TRAMD;                                               16454 +73695
7/0/1 5781        [10403]  
15/0/3 3951       [10404]   14874 (D)66666;                                          F6F6F +6F6F6
6/1/3 5878        [10405]  

   Source: DavidH/Q1000123
4/0/2 5495        [10406]   14876 (A)INDEX;                                               45577 +59655
5/1/0 5717        [10407]  
15/0/2 3919       [10408]   14878 ;                                                  F4F4F +4F4F4
4/1/3 5364        [10409]  
0/0/0 66          [10410]   14880 2;                                                      00042 +00000
0/0/0 0           [10411]  
1/0/2 6501        [10412]   14882 CHAIN;                                                  15965 +53585
5/0/1 5509        [10413]  
5/0/3 1364        [10414]   14884 FIEND;                                                  56554 +56595
5/0/3 1429        [10415]  
0/0/1 4144        [10416]   14886 08000;                                                  03030 +30483
3/0/0 1155        [10417]  
3/0/3 1619        [10418]   14888 ALLOC;                                                  36653 +51636
5/0/0 5686        [10419]  
5/0/2 5120        [10420]   14890 ATED ;                                                  55400 +51735
5/0/0 5941        [10421]  
3/0/3 2385        [10422]   14892 EXTRA;                                                  36951 +55777
5/0/2 6007        [10423]  
4/0/3 4949        [10424]   14894 ROUTE;                                                  47355 +69667
6/1/0 5735        [10425]  
0/0/0 248         [10426]   14896 (D)8;                                                  000F8 +00000
0/0/0 0           [10427]  
0/1/0 0           [10428]   14898 (D)0514908000;        BITS 4-8                          08000 +05149
0/0/2 4425        [10429]  

  Start of procedure 149 at location 2238 in chapter 2 [10430]
                  [10430]   14900 TABLE  149       1 1          TYPE'AMEND'COMMENT                
0/0/1 2224        [10430]   14902  148 86    0  0 2 0  5  0  0  0 0 0 0  08000'
3/0/0 5           [10431]  
0/0/1 2190        [10432]   14904  148 52    0  0 2 0  5  0  2  0 0 0 0  AMEND'
3/0/0 37          [10433]  
0/0/1 2592        [10434]   14906    4  2    0  0 0 0  5  0  2  0 0 0 0  PROG NO
0/0/0 37          [10435]  
0/0/1 2594        [10436]   14908    4  4    0  0 0 0  5  0  1  4 0 0 0  SERIAL NO
0/0/2 21          [10437]  
0/0/1 2204        [10438]   14910  148 66    0  0 2 0  2  3  3  0 0 0 1  DOUBLE LINE END
19/0/0 818        [10439]  
0/0/1 2294        [10440]   14912  151  2    0  0 2 0  5  0  5  0 0 0 0  <PTS
3/0/0 85          [10441]  
0/0/1 2204        [10442]   14914  148 66    0  0 2 0  2  3  3  0 0 0 1  DOUBLE LINE END
19/0/0 818        [10443]  
0/0/1 2224        [10444]   14916  148 86    0  0 2 0  5  0  0  0 0 0 0  08000'
3/0/0 5           [10445]  
0/0/1 2226        [10446]   14918  148 88    0  0 2 0  5  0  1  0 0 0 0  ALLOC'
3/0/0 21          [10447]  
0/0/1 2228        [10448]   14920  148 90    0  0 2 0  5  0  0  0 0 0 0  ATED'
3/0/0 5           [10449]  
0/0/1 2230        [10450]   14922  148 92    0  0 2 0  5  0  0  0 0 0 0  EXTRA'
3/0/0 5           [10451]  
0/0/1 2232        [10452]   14924  148 94    0  0 2 0  5  0  1  0 0 0 0  ROUTE'
3/0/0 21          [10453]  
0/0/1 2180        [10454]   14926  148 42    0  0 0 0  2  3  2  1 0 0 0  CHANNEL
0/0/0 4898        [10455]  
0/0/1 1454        [10456]   14928  129  2    0  0 0 0  1  4  0  0 0 0 0  ROUTE
0/0/0 1025        [10457]  
0/0/1 2204        [10458]   14930  148 66    0  0 2 0  2  3  1  0 0 0 1  DOUBLE LE
19/0/0 786        [10459]  

  Start of procedure 150 at location 2268 in chapter 2 [10460]
                  [10460]   15000 TABLE  150       3          3 UNPACK PT OR CARD INPUT           
0/0/1 2592        [10460]   15002    4  2    0  0 2 0  5  0  0  0 0 0 0  SER+AMEND DIRECTIVE
3/0/0 5           [10461]  
0/0/1 2596        [10462]   15004    4  6    0  0 2 0  5  0  0  0 0 0 0  DIRECTIVE WORD
3/0/0 5           [10463]  
0/0/1 2598        [10464]   15006    4  8    0  0 1 0  3  0  0  0 0 0 0  PROCR NUMBER
2/0/0 3           [10465]  
0/0/1 2606        [10466]   15008    4 16    0  0 0 0  1  0  0  0 0 0 1  /////TYPE OR(ANNOTATION+TYPE)
16/0/0 1          [10467]  
0/0/1 2596        [10468]   15010    4  6    0  0 2 0  5  0  0  0 0 0 0  (AMEND)
3/0/0 5           [10469]  
0/0/1 2592        [10470]   15012    4  2    0  0 0 0  3  0  0  0 0 0 0  SUITE
0/0/0 3           [10471]  
0/0/1 2593        [10472]   15014    4  3    0  0 0 0  2  0  0  0 0 0 0  JOB
0/0/0 2           [10473]  
0/0/1 2594        [10474]   15016    4  4    0  0 0 0  5  0  0  0 0 0 1  SERIAL
16/0/0 5          [10475]  
0/0/1 2592        [10476]   15018    4  2    0  0 2 0  5  0  0  0 0 0 0  SERIAL
3/0/0 5           [10477]  
0/0/1 2594        [10478]   15020    4  4    0  0 2 0  5  0  0  0 0 0 0  DIRECTIVE LETER
3/0/0 5           [10479]  
0/0/1 2596        [10480]   15022    4  6    0  0 2 0  5  0  0  0 0 0 0  DIRECTIVE WORD
3/0/0 5           [10481]  
0/0/1 2598        [10482]   15024    4  8    0  0 1 0  3  0  0  0 0 0 0  PROCR NUMBER
2/0/0 3           [10483]  
0/0/1 2606        [10484]   15026    4 16    0  0 0 0  1  0  0  0 0 0 1  TYPE
16/0/0 1          [10485]  

  Start of procedure 151 at location 2294 in chapter 2 [10486]
                  [10486]   15100 CONST  151       1          1                                   
7/0/3 4978        [10486]   15102 (A)+ PTS;                                               77372 +4C006
4/1/2 6           [10487]  
0/0/0 0           [10488]   15104 ;                                                       00000 +00000
0/0/0 0           [10489]  
0/0/0 0           [10490]   15106 ;                                                       00000 +00000
0/0/0 0           [10491]  
0/0/0 0           [10492]   15108 ;                                                       00000 +00000
0/0/0 0           [10493]  
0/0/0 0           [10494]   15110 ;                                                       00000 +00000
0/0/0 0           [10495]  
0/0/0 0           [10496]   15112 ;                                                       00000 +00000
0/0/0 0           [10497]  
0/0/0 0           [10498]   15114 ;                                                       00000 +00000
0/0/0 0           [10499]  
0/0/0 0           [10500]   15116 ;                                                       00000 +00000
0/0/0 0           [10501]  
0/0/0 0           [10502]   15118 ;                                                       00000 +00000
0/0/0 0           [10503]  
0/0/0 0           [10504]   15120 ;                                                       00000 +00000
0/0/0 0           [10505]  
0/0/0 0           [10506]   15122 ;                                                       00000 +00000
0/0/0 0           [10507]  
0/0/0 0           [10508]   15124 ;                                                       00000 +00000
0/0/0 0           [10509]  
0/0/0 0           [10510]   15126 ;                                                       00000 +00000
0/0/0 0           [10511]  
0/0/0 0           [10512]   15128 ;                                                       00000 +00000
0/0/0 0           [10513]  

   Source: ChuckK/Q1000124
0/0/0 0           [10514]   15130 ;                                                       00000 +00000
0/0/0 0           [10515]  
0/0/0 0           [10516]   15132 ;                                                       00000 +00000
0/0/0 0           [10517]  
0/0/0 0           [10518]   15134 ;                                                       00000 +00000
0/0/0 0           [10519]  
0/0/0 0           [10520]   15136 ;                                                       00000 +00000
0/0/0 0           [10521]  
0/0/0 0           [10522]   15138 ;                                                       00000 +00000
0/0/0 0           [10523]  
0/0/0 0           [10524]   15140 ;                                                       00000 +00000
0/0/0 0           [10525]  
0/0/0 0           [10526]   15142 ;                                                       00000 +00000
0/0/0 0           [10527]  
0/0/0 0           [10528]   15144 ;                                                       00000 +00000
0/0/0 0           [10529]  
0/0/0 0           [10530]   15146 ;                                                       00000 +00000
0/0/0 0           [10531]  
0/0/0 0           [10532]   15148 ;                                                       00000 +00000
0/0/0 0           [10533]  
0/0/0 0           [10534]   15150 ;                                                       00000 +00000
0/0/0 0           [10535]  
0/0/0 0           [10536]   15152 ;                                                       00000 +00000
0/0/0 0           [10537]  
0/0/0 0           [10538]   15154 ;                                                       00000 +00000
0/0/0 0           [10539]  
0/0/0 0           [10540]   15156 ;                                                       00000 +00000
0/0/0 0           [10541]  
0/0/0 0           [10542]   15158 ;                                                       00000 +00000
0/0/0 0           [10543]  
0/0/0 0           [10544]   15160 ;                                                       00000 +00000
0/0/0 0           [10545]  
0/0/0 0           [10546]   15162 ;                                                       00000 +00000
0/0/0 0           [10547]  
0/0/0 0           [10548]   15164 ;                                                       00000 +00000
0/0/0 0           [10549]  
0/0/0 0           [10550]   15166 ;                                                       00000 +00000
0/0/0 0           [10551]  
0/0/0 0           [10552]   15168 ;                                                       00000 +00000
0/0/0 0           [10553]  
0/0/0 0           [10554]   15170 ;                                                       00000 +00000
0/0/0 0           [10555]  
0/0/0 0           [10556]   15172 ;                                                       00000 +00000
0/0/0 0           [10557]  
0/0/0 0           [10558]   15174 ;                                                       00000 +00000
0/0/0 0           [10559]  
0/0/0 0           [10560]   15176 ;                                                       00000 +00000
0/0/0 0           [10561]  
0/0/0 0           [10562]   15178 ;                                                       00000 +00000
0/0/0 0           [10563]  
0/0/0 0           [10564]   15180 ;                                                       00000 +00000
0/0/0 0           [10565]  
0/0/0 0           [10566]   15182 ;                                                       00000 +00000
0/0/0 0           [10567]  
0/0/0 0           [10568]   15184 ;                                                       00000 +00000
0/0/0 0           [10569]  
0/0/0 0           [10570]   15186 ;                                                       00000 +00000
0/0/0 0           [10571]  
0/0/0 0           [10572]   15188 ;                                                       00000 +00000
0/0/0 0           [10573]  
0/0/0 0           [10574]   15190 ;                                                       00000 +00000
0/0/0 0           [10575]  
0/0/0 0           [10576]   15192 ;                                                       00000 +00000
0/0/0 0           [10577]  
0/0/0 0           [10578]   15194 ;                                                       00000 +00000
0/0/0 0           [10579]  
0/0/0 0           [10580]   15196 ;                                                       00000 +00000
0/0/0 0           [10581]  
0/0/0 0           [10582]   15198 ;                                                       00000 +00000
0/0/0 0           [10583]  

   Constants for chapter 2
   short constants at 10584
   long constants at 10624
0/0/1 0 [10584] 002000
0/0/2 0 [10585] 004000
0/0/3 0 [10586] 006000
0/0/0 3 [10587] 000003
6/0/3 1638 [10588] 066666
0/0/0 20 [10589] 000014
6/0/3 1638 [10590] 066666
0/0/0 2 [10591] 000002
6/0/3 1638 [10592] 066666
0/0/0 20 [10593] 000014
6/0/3 1638 [10594] 066666
6/0/3 1638 [10595] 066666
0/0/0 2 [10596] 000002
0/1/0 6553 [10597] 009999
6/0/3 1638 [10598] 066666
2/0/0 0 [10599] 020000
6/0/3 1638 [10600] 066666
6/0/3 1638 [10601] 066666
6/0/3 1638 [10602] 066666
16/0/0 1 [10603] 100001
6/0/3 1638 [10604] 066666
1/0/0 2 [10605] 010002
16/0/0 1 [10606] 100001
6/0/3 1638 [10607] 066666
0/0/0 20 [10608] 000014
0/0/0 20 [10609] 000014
0/0/0 2 [10610] 000002
6/0/3 1638 [10611] 066666
0/0/0 20 [10612] 000014
6/0/3 1638 [10613] 066666
0/0/0 5 [10614] 000005
6/0/3 1638 [10615] 066666
15/1/3 8191 [10616] 0FFFFF
6/0/3 1638 [10617] 066666
0/0/0 3 [10618] 000003
6/0/3 1638 [10619] 066666
6/0/3 1638 [10620] 066666
6/0/3 1638 [10621] 066666
1/1/3 6 [10622] 01E006
0/1/0 0 [10623] 008000
0/0/0 64 [10624] 000040
0/0/0 128 [10625] 000080
0/0/0 192 [10626] 0000C0
0/0/0 240 [10627] 0000F0
0/0/0 0 [10628] 000000
2/0/0 2158 [10629] 02086E
0/0/0 0 [10630] 000000
2/0/0 838 [10631] 020346
0/1/0 153 [10632] 008099
0/0/2 4422 [10633] 005146
0/0/0 0 [10634] 000000
0/0/0 0 [10635] 000000
0/0/0 0 [10636] 000000
2/0/0 18 [10637] 020012
0/0/0 0 [10638] 000000
0/0/0 9 [10639] 000009
0/1/0 153 [10640] 008099
0/0/2 4422 [10641] 005146
0/0/0 0 [10642] 000000
0/0/0 0 [10643] 000000
0/0/0 0 [10644] 000000
2/0/0 50 [10645] 020032
0/0/0 126 [10646] 00007E
7/1/3 0 [10647] 07E000
3/0/3 5205 [10648] 037455
7/0/2 5398 [10649] 075516
0/0/0 0 [10650] 000000
0/0/0 900 [10651] 000384
0/0/0 0 [10652] 000000
0/0/0 2 [10653] 000002
0/0/0 0 [10654] 000000
0/0/0 460 [10655] 0001CC
0/0/0 0 [10656] 000000
0/0/0 160 [10657] 0000A0
0/0/0 0 [10658] 000000
0/0/0 50 [10659] 000032
0/0/0 0 [10660] 000000
0/0/0 100 [10661] 000064
15/1/3 8191 [10662] 0FFFFF
0/0/0 8 [10663] 000008
0/0/0 0 [10664] 000000
0/0/0 46 [10665] 00002E
0/0/0 0 [10666] 000000
0/0/0 460 [10667] 0001CC
0/0/0 0 [10668] 000000
2/0/0 45 [10669] 02002D
0/0/0 0 [10670] 000000
0/0/0 45 [10671] 00002D
0/0/0 0 [10672] 000000
0/0/0 20 [10673] 000014
0/0/0 0 [10674] 000000
0/0/0 450 [10675] 0001C2
0/0/0 0 [10676] 000000
0/0/0 900 [10677] 000384
0/0/0 1 [10678] 000001
0/0/0 0 [10679] 000000
0/0/0 126 [10680] 00007E
7/1/3 0 [10681] 07E000
0/0/0 0 [10682] 000000
2/0/0 50 [10683] 020032
0/0/0 0 [10684] 000000
0/0/0 32 [10685] 000020
0/0/0 8 [10686] 000008
0/0/3 8190 [10687] 007FFE
0/0/0 0 [10688] 000000
0/0/0 56 [10689] 000038
0/0/0 8 [10690] 000008
0/0/3 8190 [10691] 007FFE
0/0/0 0 [10692] 000000
0/0/0 48 [10693] 000030
0/1/0 153 [10694] 008099
0/0/2 4417 [10695] 005141
0/0/0 0 [10696] 000000
0/0/0 0 [10697] 000000
0/0/0 0 [10698] 000000
0/0/0 46 [10699] 00002E
5/0/2 5491 [10700] 055573
7/0/1 1413 [10701] 072585
0/1/0 153 [10702] 008099
0/0/2 4422 [10703] 005146
0/0/0 0 [10704] 000000
0/0/0 0 [10705] 000000
0/0/0 0 [10706] 000000
2/0/0 46 [10707] 02002E
0/1/0 153 [10708] 008099
0/0/2 4418 [10709] 005142
0/0/0 0 [10710] 000000
0/0/0 0 [10711] 000000
0/0/2 321 [10712] 004141
3/0/0 1155 [10713] 030483
0/0/0 126 [10714] 00007E
7/1/3 0 [10715] 07E000
0/0/0 0 [10716] 000000
2/0/0 46 [10717] 02002E
0/0/0 0 [10718] 000000
0/0/0 10 [10719] 00000A
0/0/0 0 [10720] 000000
0/0/0 48 [10721] 000030
0/0/0 0 [10722] 000000
0/0/0 300 [10723] 00012C
0/0/0 0 [10724] 000000
0/0/0 18 [10725] 000012
9/0/3 1395 [10726] 096573
6/0/3 5781 [10727] 067695
0/0/2 321 [10728] 004141
3/0/0 1155 [10729] 030483
0/0/0 126 [10730] 00007E
7/1/3 0 [10731] 07E000
0/0/0 0 [10732] 000000
0/0/0 8 [10733] 000008
L8192   loading procedure 0 for chapter 2
0/0/0 0 [8192] 000000
0/0/0 5600 [8193] 0015E0
0/0/0 5600 [8194] 0015E0
0/0/1 0 [8195] 002000
0/0/1 0 [8196] 002000
0/0/0 160 [8197] 0000A0
0/0/0 160 [8198] 0000A0
0/0/0 9 [8199] 000009
0/0/0 18 [8200] 000012
0/0/0 27 [8201] 00001B
0/0/0 36 [8202] 000024
0/0/0 45 [8203] 00002D
0/0/0 10 [8204] 00000A
16/0/0 74 [8205] 10004A
0/0/0 19 [8206] 000013
16/0/0 83 [8207] 100053
0/0/0 28 [8208] 00001C
16/0/0 92 [8209] 10005C
0/0/0 37 [8210] 000025
16/0/0 101 [8211] 100065
0/0/0 46 [8212] 00002E
16/0/0 110 [8213] 10006E
0/0/0 8 [8214] 000008
16/0/0 10 [8215] 10000A
16/0/0 12 [8216] 10000C
16/0/0 14 [8217] 10000E
0/0/0 0 [8218] 000000
0/0/0 0 [8219] 000000
0/0/0 0 [8220] 000000
0/0/0 0 [8221] 000000
0/0/0 0 [8222] 000000
0/0/0 0 [8223] 000000
0/0/0 0 [8224] 000000
0/0/0 0 [8225] 000000
0/0/0 0 [8226] 000000
0/0/0 0 [8227] 000000
0/0/0 0 [8228] 000000
0/0/0 0 [8229] 000000
0/0/0 0 [8230] 000000
0/0/0 0 [8231] 000000
O00  8192 10734   Overlaying chapter 2 by 3, equivalent to chapter 2
L8238   loading chapter 3

  Start of procedure 152 at location 46 in chapter 3 [8238]
                   [8238]   15200 PROCR  152       152    START OF PASS 1                                   
                   [8238]   15201 NOTES                 TEST DID THE COMPILER READ IN THE TRANSLATOR                                   
   PROCR 327 in CHAP 4 overlay = 3
24/0/3 0           [8238]   15202 152  152     4 0 0        0 CALL/ENTER PASS 2                 OVERLAY
23/0/2 103         [8239]   15203   C  327     6 0 0        0 (OVERLAY THE OLAY ORDER)          OVERLAY
0/0/3 0            [8240]   15204  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/1/0 5132         [8241]   15205  54   25     0 1 0       42 CLEAR TRACE SECN                  BULK CLEAR
28/1/1 6248        [8242]  
6/0/0 6320         [8243]   15206       27    10 0 0        0                                   SELECT
1/1/2 1            [8244]   15207  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 57          [8245]   15208  70  152    12 0 0        0 >B1 IS PT                         JUMP IF A == 0
6/0/0 5075         [8246] a 15209      326     8 0 0        0 28/0/2                            SELECT
2/0/0 5071         [8247]   15210   5  326     4 0 0        0 SET 'UNPACK FIXED'                TRANSFER
24/1/0 62          [8248]   15211  76  152    17 0 0        0                                   JUMP unconditional
1/0/1 512          [8249]   15212 101        512 0 1        0 Q10                               PREPARE FOR DIGIT COLLATION
18/1/3 3           [8250]   15213  33          0 0 0        3                                   SHIFT (AB) BY BITS
1/1/3 0            [8251]   15214  10          0 0 0        0                                   SELECT LITERAL
14/1/0 4562        [8252]   15215  37  312     8 1 0        0 CLEAR BIT 40                      REPLACE SELECTED BITS
14/1/0 4568        [8253]   15216  37  312    14 1 0        0 DO.                               REPLACE SELECTED BITS
6/0/0 5073         [8254]   15217      326     6 0 0        0                                   SELECT
3/0/0 6246         [8255]   15218   3   23    46 0 0        0 SET 'PRINT PASS 2'                COPY
2/0/0 5070         [8256]   15219   5  326     3 0 0        0                                   TRANSFER
6/1/0 5134         [8257]   15220  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292        [8258]  

   Source: ChuckK/Q1000125
1/1/3 1            [8259]   15221  83  100     2 0 0        1 SET 'PRINT PASS 3'                SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8173         [8260]  
2/0/0 6316         [8261]   15222   5   27     6 0 0        0 CLEAR 'PT OMITTED'                TRANSFER
2/0/0 8172         [8262]   15223  84  511     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 8171         [8263]   15224  84  514     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 6314         [8264]   15225   5   27     4 0 0        0                                   TRANSFER
1/1/3 5            [8265]   15226  83  252     2 0 0        5 AMEND DIRECTIVE SWITCH            SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8170         [8266]  
24/0/3 22          [8267]   15227  95          0 0 1        0                                   SELECT MODIFICATION REGISTER
6/1/0 2            [8268]  
27/0/0 234         [8269]   15228  70  157     2 0 0        0 >COMPILER DIDN'T CALL TRAMSLATOR  JUMP IF A == 0
3/1/0 5292         [8270]   15229   3    1     0 1 0        0                                   COPY
6/1/0 5136         [8271]   15230  54   27     0 1 0       20                                   BULK CLEAR
28/1/1 6310        [8272]  
24/0/3 22          [8273]   15231  96          0 0 3        0 MOD ONLY         A9 IND           SELECT MODIFIER
6/0/0 6            [8274]  
3/0/0 6319         [8275]   15232   3   27     9 0 0        0 SET IND                           COPY
6/0/0 5079         [8276]   15233  10          0 0 0    70000                                   SELECT LITERAL
3/0/0 6310         [8277]   15234   3   27     0 0 0        0 SET 'MULTI RECORD'                COPY
3/0/0 6314         [8278]   15235   3   27     4 0 0        0 SET'COMPILER'                     COPY
2/0/0 6311         [8279]   15236   5   27     1 0 0        0 SET 'ISSUE 7 O/P'                 TRANSFER
6/1/0 5138         [8280]   15237  54   72     0 1 0      888                                   BULK CLEAR
28/1/1 5398        [8281]  
0/0/2 5293         [8282]   15238  34    1     1 0 0        0                                   SET (N) IN B
15/0/0 4798        [8283]   15239  36  320    22 0 0        0 1                                 COLLATE AND ADD
27/0/0 95          [8284]   15240  70  152    42 0 0        0                                   JUMP IF A == 0
1/1/3 2            [8285]   15241  83  100     2 0 0        2 SET 'DONT PRINT'                  SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8173         [8286]  
15/0/0 4717        [8287]   15242  36  318     2 0 0        0 BIT 2                             COLLATE AND ADD
1/1/2 2            [8288]   15243  12          0 0 0        2                                   SUBTRACT LITERAL
2/0/0 6246         [8289]   15244   5   23    46 0 0        0 INHIBIT PRINT                     TRANSFER
15/0/0 4725        [8290]   15245  36  318    10 0 0        0 BIT 3='PTS NEEDED'                COLLATE AND ADD
1/1/2 4            [8291]   15246  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/0 103         [8292]   15247  70  152    50 0 0        0 >NO                               JUMP IF A == 0
1/1/3 2            [8293]   15248  10          0 0 0        2                                   SELECT LITERAL
2/0/0 6322         [8294]   15249   5   27    12 0 0        0                                   TRANSFER
15/0/0 4722        [8295]   15250  36  318     7 0 0        0 BIT 4='CLEO TRAMD'IF NON-ZERO     COLLATE AND ADD
2/0/0 6312         [8296]   15251   5   27     2 0 0        0 SET'PSEUDO-ISSUE 5'               TRANSFER
1/1/3 450          [8297]   15252 101        450 1 3        0                                   SELECT LITERAL ADDRESS
18/0/1 5           [8298]   15253  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 5292         [8299]   15254   1    1     0 0 0        0 DATA START                        ADD
24/0/3 1           [8300]   15255 124  999     1 0 3        0                                   MODIFY ADDRESS OF NEXT
24/0/3 0    Extra code needed to address 5664 from 8301 (different chapter)
28/1/1 5664        [8302]   15256 128   18     0 1 1        0                                   BULK COPY LONG NUMERIC
2/0/0 145          [8303]   15257   5  153     2 0 0        0                                   TRANSFER
26/1/3 5140        [8304]   15258  90          0 0 3        0 CALC COMPILER'S HIGHEST PROCR     SET MODIFICATION REGISTER AT LITERAL
                   [8305]   15259   C          0 0 0      450                                   Limit
0/1/0 40           [8305]   15260  34   18     0 0 3        0                                   SET (N) IN B
0/0/3 0            [8306]  
24/0/3 0    Extra code needed to address 5664 from 8307 (different chapter)
6/0/3 5664         [8308]  
2/1/0 42           [8309]  
0/1/1 40           [8310]  
18/1/1 7           [8311]   15261  32          0 0 0        7                                   SHIFT (AB) BY QUARTETS
18/1/3 2           [8312]   15262  33          0 0 0        2                                   SHIFT (AB) BY BITS
5/0/0 145          [8313]   15263   2  153     2 0 0        0                                   SUBTRACT
27/0/3 124         [8314]   15264  73  152    66 0 0        0                                   JUMP IF A < 0
7/0/0 145          [8315]   15265   4  153     2 0 0        0 UPDATE                            AUGMENT
1/1/3 0            [8316]   15266  10          0 0 0        0                                   SELECT LITERAL
18/1/3 10          [8317]   15267  33          0 0 0       10                                   SHIFT (AB) BY BITS
5/0/0 145          [8318]   15268   2  153     2 0 0        0                                   SUBTRACT
27/0/3 129         [8319]   15269  73  152    71 0 0        0                                   JUMP IF A < 0
7/0/0 145          [8320]   15270   4  153     2 0 0        0 UPDATE                            AUGMENT
1/1/3 0            [8321]   15271  10          0 0 0        0                                   SELECT LITERAL
25/0/3 1           [8322]   15272  94  152    60 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 113         [8323] s
6/0/0 145          [8324]   15273      153     2 0 0        0                                   SELECT
1/1/1 1            [8325]   15274  11          0 0 0        1                                   ADD LITERAL
24/0/3 0    Extra code needed to address 6719 from 8326 (different chapter)
2/0/0 6719         [8327]   15275   5   18  1055 0 0        0 (HIGHEST C/FWD PROCR+1)IN BINARY  TRANSFER
6/1/0 5142         [8328]   15276  54   18   450 1 0      596                                   BULK CLEAR
24/0/3 0    Extra code needed to address 6114 from 8329 (different chapter)
28/1/1 6114        [8330]  
24/0/3 22          [8331]   15277  95          0 0 2        0                                   SELECT MODIFICATION REGISTER
6/1/0 4            [8332]  
2/1/0 5292         [8333]   15278   5    1     0 1 0        0 PROG ID+SERIAL                    TRANSFER
25/1/1 4096        [8334]   15279 125       4096 1 1        0                                   CLEAR INDICATORS
23/0/2 145         [8335]   15280 123  153     2 0 2        0 >SET ASL'S+GUARD WORDS            ENTER MASTER ROUTINE

   Source: TonyJ/Q1000126
24/1/0 209         [8336]   15281  76  156     2 0 0        0                                   JUMP unconditional

  Start of procedure 153 at location 145 in chapter 3 [8337]
                   [8337]   15300 PROCR  153       153    SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3                                   
0/0/0 0            [8337]   15302  81  153     2 0 0        0 LINK                              START OF SUBROUTINE
1/1/3 15           [8338]   15303  10          0 0 0                                           SELECT LITERAL
24/0/3 4714        [8339]   15304 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 56          [8340]   15305 123         56 1 0        0 SEC 5                             COPY INTO TAG
24/0/3 4714        [8341]   15306 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 210         [8342]   15307 123        210 1 0        0 SEC 7                             COPY INTO TAG
24/0/3 4714        [8343]   15308 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 364         [8344]   15309 123        364 1 0        0 SEC 8                             COPY INTO TAG
24/0/3 4714        [8345]   15310 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 518         [8346]   15311 123        518 1 0        0 SEC 9                             COPY INTO TAG
24/0/3 4714        [8347]   15312 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 576         [8348]   15313 123        576 1 0        0 B1                                COPY INTO TAG
24/0/3 4714        [8349]   15314 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 730         [8350]   15315 123        730 1 0        0 A1                                COPY INTO TAG
24/0/3 4714        [8351]   15316 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 884         [8352]   15317 123        884 1 0        0 A2                                COPY INTO TAG
24/0/3 4714        [8353]   15318 124  317    92 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 1038        [8354]   15319 123       1038 1 0        0 A6                                COPY INTO TAG

  Start of procedure 154 at location 163 in chapter 3 [8355]
                   [8355]   15400 PROCR  154       154    SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3                                   
23/0/3 4624        [8355]   15402 123  317     2 0 3        0 PROG TAG                          SELECT TAG
18/0/1 4           [8356]   15403  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
7/0/0 4714         [8357]   15404   4  317    92 0 0        0                                   AUGMENT
6/0/0 4714         [8358]   15405      317    92 0 0        0 ABS START                         SELECT
24/1/2 14          [8359]   15406 124  999    14 1 2        0 SEC 5                             MODIFY ADDRESS OF NEXT
3/0/0 64           [8360]   15407 103         64 0 0        0                                   COPY (A) TO N
1/1/1 58           [8361]   15408 101         58 1 1        0                                   ADD LITERAL ADDRESS
24/1/2 16          [8362]   15409 124  999    16 1 2        0 SEC 7                             MODIFY ADDRESS OF NEXT
3/0/0 64           [8363]   15410 103         64 0 0        0                                   COPY (A) TO N
1/1/1 154          [8364]   15411 101        154 1 1        0                                   ADD LITERAL ADDRESS
24/1/2 18          [8365]   15412 124  999    18 1 2        0 SEC 8                             MODIFY ADDRESS OF NEXT
3/0/0 64           [8366]   15413 103         64 0 0        0                                   COPY (A) TO N
1/1/1 154          [8367]   15414 101        154 1 1        0                                   ADD LITERAL ADDRESS
24/1/2 20          [8368]   15415 124  999    20 1 2        0 SEC 9                             MODIFY ADDRESS OF NEXT
3/0/0 64           [8369]   15416 103         64 0 0        0                                   COPY (A) TO N
1/1/1 154          [8370]   15417 101        154 1 1        0                                   ADD LITERAL ADDRESS
24/0/3 8           [8371]   15418 124  999     8 0 3        0 B1                                MODIFY ADDRESS OF NEXT
3/0/0 64           [8372]   15419 103         64 0 0        0                                   COPY (A) TO N
1/1/1 58           [8373]   15420 101         58 1 1        0                                   ADD LITERAL ADDRESS
24/0/3 9           [8374]   15421 124  999     9 0 3        0 A1                                MODIFY ADDRESS OF NEXT
3/0/0 64           [8375]   15422 103         64 0 0        0                                   COPY (A) TO N
1/1/1 154          [8376]   15423 101        154 1 1        0                                   ADD LITERAL ADDRESS
24/0/3 10          [8377]   15424 124  999    10 0 3        0 A2                                MODIFY ADDRESS OF NEXT
3/0/0 64           [8378]   15425 103         64 0 0        0                                   COPY (A) TO N
1/1/1 154          [8379]   15426 101        154 1 1        0                                   ADD LITERAL ADDRESS
24/0/3 11          [8380]   15427 124  999    11 0 3        0 A6                                MODIFY ADDRESS OF NEXT
2/0/0 64           [8381]   15428 102         64 0 0        0                                   TRANSFER (A) TO N

  Start of procedure 155 at location 190 in chapter 3 [8382]
                   [8382]   15500 PROCR  155       155    SET UP ASL'S FOR FILES                                   
24/0/3 5           [8382]   15502 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
6/0/0 34           [8383]   15503 106         34 0 0        0 PRINTER ROUTE ENTRY SPECIAL CHAPTER SELECT (N)
18/0/1 4124        [8384]   15504  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
2/0/0 6318         [8385]   15505   5   27     8 0 0        0                                   TRANSFER
1/0/1 15           [8386]   15506  35          0 0 0     1111 Q1-4                              PREPARE FOR DIGIT COLLATION
6/0/0 5            [8387]   15507      999     5 0 0        0 15-BIT START SPECIAL CHAP         SELECT
1/1/1 204          [8388]   15508 101        204 1 1        0                                   ADD LITERAL ADDRESS
24/1/2 12          [8389]   15509 124  999    12 1 2        0 SEC 10                            MODIFY ADDRESS OF NEXT

   Source: KenK/Q1000127
14/0/0 64          [8390]   15510 114         64 0 0        0                                   REPLACE SELECTED BITS
6/0/0 5            [8391]   15511      999     5 0 0        0                                   SELECT
1/1/1 598          [8392]   15512 101        598 1 1        0 394+204                           ADD LITERAL ADDRESS
24/1/2 7           [8393]   15513 124  999     7 1 2        0                                   MODIFY ADDRESS OF NEXT
14/0/0 64          [8394]   15514 114         64 0 0        0                                   REPLACE SELECTED BITS
1/1/3 15           [8395]   15515  10          0 0 0                                           SELECT LITERAL
24/0/3 5           [8396]   15516 124  999     5 0 3        0 SPECIAL CHAP 15-BIT START         MODIFY ADDRESS OF NEXT
23/1/0 596         [8397]   15517 123        596 1 0        0                                   COPY INTO TAG
24/0/3 5           [8398]   15518 124  999     5 0 3        0                                   MODIFY ADDRESS OF NEXT
23/1/0 990         [8399]   15519 123        990 1 0        0 204+392+394=D1                    COPY INTO TAG
26/0/3 145         [8400]   15520 126  153     2 0 3        0 gEXIT                             LEAVE MASTER ROUTINE

  Start of procedure 156 at location 209 in chapter 3 [8401]
                   [8401]   15600 PROCR  156                    TIDY UP FOR COMPILER              
6/1/0 5144         [8401]   15602  54   12     0 1 0      120                                   BULK CLEAR
28/1/1 50          [8402]  
6/1/0 5292         [8403]   15603   0    1     0 1 0        0                                   SELECT
2/1/0 50           [8404]   15604   5   12     0 1 0        0                                   TRANSFER
0/1/0 40           [8405]   15605  40   A1     0 0 0        1                                   OPEN FILE
0/0/3 0            [8406]  
0/1/2 5146         [8407]  
6/1/0 5148         [8408]  
1/1/1 27           [8409]  
25/1/1 4096        [8410]  
24/0/3 0           [8411]  
23/0/2 40          [8412]  
0/0/3 44           [8413]  
26/0/0 4119        [8414]   15606  80  291     2 0 0        0 gREAD                             ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 10           [8416]   15607   0    7    10 1 0        0                                   SELECT
5/1/0 1344         [8417]   15608   2  181    20 1 0        0  'PASS1'                          SUBTRACT
27/0/1 222         [8418]   15609  71  156     6 0 0        0 gNOT YET                          JUMP IF A != 0
1/1/3 1            [8419]   15610  10          0 0 0        1                                   SELECT LITERAL
3/0/0 6044         [8420]   15611   3   92    30 0 0        0                                   COPY
2/0/0 58           [8421]   15612   5   12     8 0 0        0                                   TRANSFER
6/1/0 4740         [8422]   15613      319    14 1 0        0  'END  '                          SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 4            [8424]   15614   5    9     4 1 0        0 SET END SIGN                      TRANSFER
24/1/0 311         [8425]   15615  76  158     3 0 0        0 gENTER PASS 1 (SIC)               JUMP unconditional

  Start of procedure 157 at location 234 in chapter 3 [8426]
                   [8426]   15700 PROCR  157                    TEST INITIAL RUN                  
                   [8426]   15701 NOTES      RADIX                                                
0/1/0 40           [8426]   15702  40   A6     0 0 0        1                                   OPEN FILE
0/0/3 0            [8427]  
0/1/2 5150         [8428]  
6/1/0 5152         [8429]  
1/1/1 45           [8430]  
25/1/1 4096        [8431]  
24/0/3 0           [8432]  
23/0/2 40          [8433]  
0/0/3 44           [8434]  
6/1/0 5154         [8435]   15703  54   12     0 1 0      120                                   BULK CLEAR
28/1/1 50          [8436]  
6/0/0 5080         [8437]   15704  10          0 0 0     6700                                   SELECT LITERAL
2/0/0 53           [8438]   15705   5   12     3 0 0        0 ERROR LETTER'P'                   TRANSFER
26/0/0 4130        [8439]   15706  80  292     2 0 0        0 gREAD FIRST BLOCK                 ENTER SUBROUTINE
24/0/2 1242        [8440]   15707 124  179     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [8441]   15708  80  326     2 0 0        0 gUNPACK BLOCK                     ENTER SUBROUTINE
0/0/3 5081         [8442]   15709  60          0 0 0        0                                   SET DECIMAL RADIX
6/1/0 5294         [8443]   15710        1     2 1 0        0 TESTTHIS IS AN                    SELECT
5/1/0 1340         [8444]   15711   2  181    16 1 0        0  'AMEND'                          SUBTRACT
27/0/0 261         [8445]   15712  70  157    20 0 0        0                                   JUMP IF A == 0
26/0/0 4258        [8446]   15713  80  297     2 0 0        0 gANNOTATION IF CARD               ENTER SUBROUTINE
26/0/0 1190        [8447]   15714  80  176     2 0 0        0 gCHECK PROGM BLOC                 ENTER SUBROUTINE
1/1/3 2            [8448]   15715  10          0 0 0        2                                   SELECT LITERAL
3/0/0 83           [8449]   15716   3   12    33 0 0        0 SET'PT INPUT'                     COPY
2/0/0 6322         [8450]   15717   5   27    12 0 0        0 SET'PTS NEEDED'                   TRANSFER
2/1/0 5300         [8451]   15718   5    1     8 1 0        0 ENSURE FIRST SERIAL=0,INITIAL TRANSLATIO  TRANSFER
24/1/0 348         [8452]   15719  76  160     2 0 0        0                                   JUMP unconditional
2/1/0 5308         [8453]   15720   5    1    16 1 0        0 CLEAR FOR INDS                    TRANSFER
2/1/0 5310         [8454]   15721   5    1    18 1 0        0                                   TRANSFER
24/0/2 1278        [8455]   15722 124  179    38 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [8456]   15723  80  326     2 0 0        0 gUNPACK 'AMEND' BLOCK AGAIN       ENTER SUBROUTINE
1/1/3 0            [8457]   15724  10          0 0 0        0                                   SELECT LITERAL
0/0/2 5308         [8458]   15725  34    1    16 0 0        0 PRINT INDS                        SET (N) IN B
15/0/0 4717        [8459]   15726  36  318     2 0 0        0 BIT 2                             COLLATE AND ADD
2/0/0 6246         [8460]   15727   5   23    46 0 0        0                                   TRANSFER
24/0/1 6320        [8461]   15728  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 270         [8462]  
0/0/1 276          [8463] s 15729   C  157    34 0 0        0 gPT                               
0/0/1 273          [8464] s 15730   C  157    31 0 0        0 gCARDS                            
6/1/0 5310         [8465]   15731        1    18 1 0        0                                   SELECT

   Source: RayS/Q1000128
1/1/2 115          [8466]   15732  12          0 0 0       73                                   SUBTRACT LITERAL
24/1/0 278         [8467]   15733  76  157    36 0 0        0                                   JUMP unconditional
6/1/0 5312         [8468]   15734        1    20 1 0        0                                   SELECT
5/1/0 5156         [8469]   15735  12          0 0 0  7300000000                                   SUBTRACT LITERAL
27/0/1 281         [8470]   15736  71  157    39 0 0        0                                   JUMP IF A != 0
1/1/3 2            [8471]   15737  10          0 0 0        2                                   SELECT LITERAL
24/1/0 282         [8472]   15738  76  157    40 0 0        0                                   JUMP unconditional
1/1/3 0            [8473]   15739  10          0 0 0        0                                   SELECT LITERAL
2/0/0 6322         [8474]   15740   5   27    12 0 0        0 0/2=PTS NO/YES                    TRANSFER
6/0/0 6310         [8475]   15741       27     0 0 0        0                                   SELECT
27/0/1 288         [8476]   15742  71  157    46 0 0        0 gISSUE 6 O/P                      JUMP IF A != 0
6/0/0 5308         [8477]   15743        1    16 0 0        0                                   SELECT
1/1/2 4            [8478]   15744  12          0 0 0        4                                   SUBTRACT LITERAL
2/0/0 6246         [8479]   15745   5   23    46 0 0        0 PRINT ISSUE5 O/P                  TRANSFER
6/0/0 5082         [8480]   15746  10          0 0 0       2-                                   SELECT LITERAL
15/0/0 4778        [8481]   15747  36  320     2 0 0        0 BIT 1                             COLLATE AND ADD
2/0/0 8173         [8482]   15748  84  100     2 0 0        0 SET AT 1 OR 2                     SET SWITCH(ES) AT VARIABLE VALUE
6/0/0 5309         [8483]   15749   0    1    17 0 0        0 CHANGE TO ISSUE?                  SELECT
2/0/0 1592         [8484]   15750   5  197     2 0 0        0 SR LINK                           TRANSFER
26/0/0 4258        [8485]   15751  80  297     2 0 0        0 gANNOTATION IF CARD               ENTER SUBROUTINE
27/0/1 299         [8486]   15752  71  157    57 0 0        0 gNOT CARD                         JUMP IF A != 0
6/1/0 5300         [8487]   15753   0    1     8 1 0        0 RE-FORM ISSUE+SERIAL IN 18'       SELECT
18/0/1 6           [8488]   15754  30          0 0 0        6                                   SHIFT (A) BY QUARTETS
4/1/0 5312         [8489]   15755   1    1    20 1 0        0 CARD SERIAL                       ADD
2/1/0 5300         [8490]   15756   5    1     8 1 0        0                                   TRANSFER
6/0/0 5296         [8491]   15757   0    1     4 0 0        0 SUITE                             SELECT
18/0/1 2           [8492]   15758  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 5298         [8493]   15759   1    1     6 0 0        0                                   ADD
2/0/0 50           [8494]   15760   5   12     0 0 0        0                                   TRANSFER
0/1/2 5300         [8495]   15761  34    1     8 1 0        0                                   SET (N) IN B
26/0/0 4826        [8496]   15762  80  321     2 0 0        0 RIGHT ALIGN                       ENTER SUBROUTINE
6/1/0 139          [8497]   15763   0   12    88 2 0        0                                   SELECT
2/0/0 51           [8498]   15764   5   12     1 0 0        0                                   TRANSFER
1/1/3 1            [8499]   15765  10          0 0 0        1 SET'AMEND RUN'                    SELECT LITERAL
3/0/0 6044         [8500]   15766   3   92    30 0 0        0                                   COPY
2/0/0 58           [8501]   15767   5   12     8 0 0        0                                   TRANSFER

  Start of procedure 158 at location 310 in chapter 3 [8502]
                   [8502]   15800 PROCR  158       0 0        0                                   
                   [8502]   15801 NOTES      RADIX                                                
26/0/0 4130        [8502]   15802  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
6/1/0 5158         [8503]   15803  54    1     0 0 0       46                                   BULK CLEAR
28/0/0 5292        [8504]  
26/0/0 4119        [8505]   15804  80  291     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 6            [8507]   15805   0    7     6 1 0        0                                   SELECT
5/1/0 1336         [8508]   15806   2  181    12 1 0        0 PROGM'                            SUBTRACT
27/0/1 313         [8509]   15807  71  158     4 0 0        0 gGET TO IT                        JUMP IF A != 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [8511]   15808        9     4 1 0        0                                   SELECT
5/1/0 1336         [8512]   15809   2  181    12 1 0        0 PROGM'                            SUBTRACT
27/0/0 337         [8513]   15810  70  159     2 0 0        0 ='PROGM' BLOCK IS AMENDED         JUMP IF A == 0
24/0/2 1176        [8514]   15811  50    7     4 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 4           [8516]   15812   C  175    32 0 0        0                                   
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 20          [8518]   15813  55    7    20 1 0       30 COPY ANNOTATION                   BULK COPY
18/1/0 4123        [8519]   15814   C    1    16 1 0        0                                   
1/1/3 30           [8520]  
18/1/1 5           [8521]  
28/1/1 5308        [8522]  
0/0/3 5083         [8523]   15815  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 1            [8524]   15816  10          0 0 0        1 AUGMENT PROG SERIAL               SELECT LITERAL
1/0/1 3            [8525]   15817  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/1/0 5301        [8526]   15818  36    1     8 2 0        0                                   COLLATE AND ADD
14/1/0 5301        [8527]   15819  37    1     8 2 0        0 NO CARRY AFTER 99                 REPLACE SELECTED BITS
24/1/0 348         [8528]   15820  76  160     2 0 0        0                                   JUMP unconditional

  Start of procedure 159 at location 337 in chapter 3 [8529]
                   [8529]   15900 PROCR  159                    INPUT AMENDMENTS TO PRGRAM        

   Source: RayS/Q1000129
                   [8529]   15901 NOTES      RADIX      HEADING                                   
24/0/2 1242        [8529]   15902 124  179     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [8530]   15903  80  326     2 0 0        0 gUNPACK NEW 'PROGM' BLOCK         ENTER SUBROUTINE
26/0/0 4258        [8531]   15904  80  297     2 0 0        0 gWORDS IF CARDS                   ENTER SUBROUTINE
6/0/0 51           [8532]   15905   0   12     1 0 0        0                                   SELECT
3/1/0 5301         [8533]   15906   3    1     8 2 0        0                                   COPY
1/1/1 1            [8534]   15907  11          0 0 0        1                                   ADD LITERAL
18/0/1 2           [8535]   15908  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
2/0/0 5292         [8536]   15909   5    1     0 0 0        0                                   TRANSFER
2/0/0 58           [8537]   15910   5   12     8 0 0        0 SET PAPER TAPE INPUT INDICATOR    TRANSFER
26/0/0 1190        [8538]   15911  80  176     2 0 0        0 gCHECK 'PROGM' BLOCK              ENTER SUBROUTINE
24/1/0 331         [8539]   15912  76  158    15 0 0        0 gUPDATE SERIAL                    JUMP unconditional

  Start of procedure 160 at location 348 in chapter 3 [8540]
                   [8540]   16000 PROCR  160                    OPEN O/P FILE;WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK 
                   [8540]   16001 NOTES                                                           
6/1/0 5160         [8540]   16002  54    8     4 0 0       46                                   BULK CLEAR
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/0/0 4           [8542]  
6/0/0 6314         [8543]   16003       27     4 0 0        0 COMPILER?                         SELECT
27/0/0 366         [8544]   16004  70  160     9 0 0        0 gNORMAL                           JUMP IF A == 0
0/1/0 40           [8545]   16005  48   A2     0 0 0        3 BACK 0 I/P+O/P                    STEP BACK
0/0/3 0            [8546]  
6/0/0 0            [8547]   16006   C  999     0 0 0        0                                   STEP BACK
4/1/0 5162         [8548]  
18/1/1 4118        [8549]  
6/1/0 0            [8550]  
1/1/1 36           [8551]  
25/1/1 4096        [8552]  
24/0/3 0           [8553]  
23/0/2 48          [8554]  
0/1/1 40           [8555]  
1/1/3 0            [8556]   16007  10          0 0 0        0 (ZERO SPOOL NUMBER)               SELECT LITERAL
24/1/0 376         [8557]   16008  76  160    11 0 0        0 g                                 JUMP unconditional
0/1/0 40           [8558]   16009  40   A2     0 0 0        0 OPEN FILE                         OPEN FILE
0/0/3 0            [8559]  
0/1/2 5164         [8560]  
6/1/0 5166         [8561]  
1/1/1 36           [8562]  
25/1/1 4096        [8563]  
24/0/3 0           [8564]  
23/0/2 40          [8565]  
0/0/3 44           [8566]  
18/1/1 10          [8567]   16010  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
2/0/0 8174         [8568]   16011  84  153     2 0 0        0 SPOOL NUMBER+WL                   SET SWITCH(ES) AT VARIABLE VALUE
26/0/0 4099        [8569]   16012  80  289     2 0 0        0                                   ENTER SUBROUTINE
26/0/0 4099        [8570]   16013  80  289     2 0 0        0 g2 BLANKS                         ENTER SUBROUTINE
24/0/2 4756        [8571]   16014  55  319    30 1 0       10                                   BULK COPY
18/1/0 4123        [8572]   16015   C    8     4 1 0        0                                   
1/1/3 10           [8573]  
18/1/1 5           [8574]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4           [8576]  
26/0/0 4099        [8577]   16016  80  289     2 0 0        0                                   ENTER SUBROUTINE
6/0/0 5296         [8578]   16017        1     4 0 0        0 SUITE                             SELECT
18/0/1 2           [8579]   16018  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 5298         [8580]   16019   1    1     6 0 0        0                                   ADD
3/0/0 82           [8581]   16020   3   12    32 0 0        0 WL=PROG IDENTITY                  COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 5            [8583]   16021   3    8     4 2 0        0                                   COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 13           [8585]   16022   3    8    12 2 0        0                                   COPY
6/1/0 5301         [8586]   16023   0    1     8 2 0        0 PROGRAM SERIAL                    SELECT
2/0/0 51           [8587]   16024   5   12     1 0 0        0 WL                                TRANSFER
6/0/0 1592         [8588]   16025   0  197     2 0 0        0 NEW ISSUE WL                      SELECT
27/0/0 401         [8589]   16026  70  160    30 0 0        0 gNO CHANGE                        JUMP IF A == 0
18/0/1 2           [8590]   16027  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
1/0/1 28           [8591]   16028  35          0 0 0    11100                                   PREPARE FOR DIGIT COLLATION
14/0/0 51          [8592]   16029  37   12     1 0 0        0 REPLACE EXISTING ISSUE            REPLACE SELECTED BITS
24/0/2 1174        [8593]   16030  52    1     8 0 0        0                                   EDIT
28/1/2 5300        [8594]   16031   C  175    30 0 0        0 RESTORE TD 1/8 WITH SIG ZEROS     
6/1/0 5300         [8595]   16032   0    1     8 1 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 6            [8597]   16033   3    8     6 1 0        0                                   COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 14           [8599]   16034   5    8    14 1 0        0                                   TRANSFER
1/1/3 2            [8600]   16035  10          0 0 0        2 INTERCODE IDENTIFIER              SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 11           [8602]   16036   5    8    10 2 0        0                                   TRANSFER
1/1/3 3            [8603]   16037  10          0 0 0        3 MACHINE CODE IDENTIFIER           SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 19           [8605]   16038   3    8    18 2 0        0                                   COPY
1/1/3 2            [8606]   16039  10          0 0 0        2                                   SELECT LITERAL
4/0/0 6322         [8607]   16040   1   27    12 0 0        0 0 OR 2                            ADD
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 17           [8609]   16041   5    8    16 2 0        0                                   TRANSFER
6/1/0 4757         [8610]   16042      319    30 2 0        0                              SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 21           [8612]   16043   5    8    20 2 0        0                                   TRANSFER
26/0/0 4099        [8613]   16044  80  289     2 0 0        0                                   ENTER SUBROUTINE
6/0/0 82           [8614]   16045       12    32 0 0        0                                   SELECT

   Source: TonyJ/Q1000130
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 5            [8616]   16046   5    8     4 2 0        0 PROG IDENTITY                     TRANSFER
6/1/0 5300         [8617]   16047        1     8 1 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 6            [8619]   16048   5    8     6 1 0        0 PROG SERIAL                       TRANSFER
6/0/0 5084         [8620]   16049  10          0 0 0                                       SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 9            [8622]   16050   5    8     8 2 0        0                                   TRANSFER
6/1/0 1344         [8623]   16051      181    20 1 0        0 PASSI'                            SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 10           [8625]   16052   5    8    10 1 0        0                                   TRANSFER
6/0/0 6314         [8626]   16053   0   27     4 0 0        0 NON-ZERO IF COMPILER              SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 15           [8628]   16054   3    8    14 2 0        0 SET 'PSEUDO ISSUE 5'              COPY
27/0/1 441         [8629]   16055  71  160    58 0 0        0                                   JUMP IF A != 0
6/1/0 5168         [8630]   16056 155          0 0 0        0 PROG SERIAL                       SELECT PROGRAM SERIAL TO A
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 12           [8632]   16057   3    8    12 1 0        0 ISSUE 6' ND                       COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 17           [8634]   16058   5    8    16 2 0        0 SET 'MULTI RECORD'                TRANSFER
26/0/0 4099        [8635]   16059  80  289     2 0 0        0                                   ENTER SUBROUTINE
24/0/3 0    Extra code needed to address 6719 from 8636 (different chapter)
6/0/0 6719         [8637]   16060       18  1055 0 0        0                                   SELECT
2/0/0 4749         [8638]   16061   5  319    23 0 0        0                                   TRANSFER
6/0/0 6314         [8639]   16062       27     4 0 0        0                                   SELECT
27/0/1 465         [8640]   16063  71  160    70 0 0        0 >COMPILER O/P                     JUMP IF A != 0
24/0/3 0    Extra code needed to address 6674 from 8641 (different chapter)
24/0/2 6674        [8642]   16064  55   18  1010 0 0       23 FIRST PROCR LENGTH DETAILS BLOCK  BULK COPY
18/1/0 4123        [8643]   16065   C    8     4 2 0        0 A6                                
1/1/3 23           [8644]  
18/1/1 5           [8645]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/0/1 5           [8647]  
26/0/0 4099        [8648]   16066  80  289     2 0 0        0                                   ENTER SUBROUTINE
24/0/3 0    Extra code needed to address 6697 from 8649 (different chapter)
24/0/2 6697        [8650]   16067  55   18  1033 0 0       23 SECOND PROCR LENGTH DETAILS BLOCK BULK COPY
18/1/0 4123        [8651]   16068   C    8     4 2 0        0                                   
1/1/3 23           [8652]  
18/1/1 5           [8653]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/0/1 5           [8655]  
26/0/0 4099        [8656]   16069  80  289     2 0 0        0                                   ENTER SUBROUTINE
24/0/2 1176        [8657]   16070  52    8     4 0 0        0                                   EDIT
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/2 4           [8659]   16071   C  175    32 0 0        0                                   
24/0/2 5308        [8660]   16072  55    1    16 1 0       30 COPY ANNOTATION                   BULK COPY
18/1/0 4123        [8661]   16073   C    8    20 1 0        0                                   
1/1/3 30           [8662]  
18/1/1 5           [8663]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 20          [8665]  
26/0/0 4099        [8666]   16074  80  289     2 0 0        0                                   ENTER SUBROUTINE
6/0/0 4711         [8667]   16075   0  317    89 0 0        0 ABS ADDRESS 18:2496               SELECT
2/0/0 6023         [8668]   16076   5   92     9 0 0        0                                   TRANSFER
0/0/3 5085         [8669]   16077  60          0 0 0        0                                   SET DECIMAL RADIX

  Start of procedure 161 at location 478 in chapter 3 [8670]
                   [8670]   16100 PROCR  161       161    DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS                                   
                   [8670]   16101 NOTES                                                           
6/0/0 58           [8670]   16102       12     8 0 0        0                                   SELECT
27/0/0 563         [8671]   16103  70  162     2 0 0        0 > FILES REPLACED EX PT            JUMP IF A == 0
26/0/0 4119        [8672]   16104  80  291     2 0 0        0 > READ 'ENTRY' EX MT              ENTER SUBROUTINE
1/1/3 0            [8673]   16105  10          0 0 0        0                                   SELECT LITERAL
24/1/2 17    Extra code needed to address transit area no 2, section 7
2/1/0 46           [8675]   16106   5    7    46 1 0        0 CLEAR REPORT WORDS                TRANSFER
24/1/2 17    Extra code needed to address transit area no 2, section 7
2/1/0 48           [8677]   16107   5    7    48 1 0        0                                   TRANSFER
2/0/0 83           [8678]   16108   5   12    33 0 0        0 SET 'MT INPUT'                    TRANSFER
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 9            [8680]   16109        7     8 2 0        0                                   SELECT
26/0/0 1619        [8681]   16110  80  200     2 0 0        0 > REPLACE PROCR                   ENTER SUBROUTINE
24/1/0 492         [8682]  
0/0/1 1223         [8683]   16111   C  178     2 0 0        0                                   
27/0/1 497         [8684]   16112  71  161    16 0 0        0 > OK                              JUMP IF A != 0
6/1/0 4766         [8685]   16113      319    40 1 0        0 ????R'                            SELECT
24/1/2 17    Extra code needed to address transit area no 2, section 7
2/1/0 48           [8687]   16114   5    7    48 1 0        0                                   TRANSFER
24/1/0 499         [8688]   16115  76  161    17 0 0        0 > USE OLD VALUE                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
2/1/0 9            [8690]   16116   5    7     8 2 0        0                                   TRANSFER
26/0/0 1057        [8691]   16117  80  171     2 0 0        0 > WRITE                           ENTER SUBROUTINE
26/0/0 4119        [8692]   16118  80  291     2 0 0        0 > READ                            ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 6            [8694]   16119        7     6 1 0        0                                   SELECT
5/1/0 1342         [8695]   16120   2  181    18 1 0        0 CHAPS                             SUBTRACT
27/0/0 522         [8696]   16121  70  161    33 0 0        0 > YES                             JUMP IF A == 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 9            [8698]   16122   0    7     8 2 0        0 ROUTE TYPE                        SELECT
26/0/0 2771        [8699]   16123  80  245     2 0 0        0 > TO BIN                          ENTER SUBROUTINE
18/1/3 2           [8700]   16124  33          0 0 0       2-                                   SHIFT (AB) BY BITS
18/1/1 4127        [8701]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
4/0/0 7            [8703]   16125   1    7     7 0 0        0 FILE ID                           ADD

   Source: KenK/Q1000131
18/1/3 2           [8704]   16126  33          0 0 0      18-                                   SHIFT (AB) BY BITS
18/1/1 4123        [8705]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 46           [8707]   16127        7    46 1 0        0                                   SELECT
26/0/0 766         [8708]   16128  80  164     2 0 0        0 gSTORE FILE DETAILS               ENTER SUBROUTINE
27/0/1 521         [8709]   16129  71  161    32 0 0        0 gLIST NOT FULL                    JUMP IF A != 0
6/1/0 4752         [8710]   16130      319    26 1 0        0 SET 'IGNORE'                      SELECT
24/1/2 17    Extra code needed to address transit area no 2, section 7
2/1/0 46           [8712]   16131   5    7    46 1 0        0                                   TRANSFER
24/1/0 499         [8713]   16132  76  161    17 0 0        0 gWRITE                            JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [8715]   16133        9     4 1 0        0                                   SELECT
5/1/0 1342         [8716]   16134   2  181    18 1 0        0  'CHAPS'                          SUBTRACT
27/0/0 806         [8717]   16135  70  165     2 0 0        0 gPT & MT BOTH AT 'CHAPS'          JUMP IF A == 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 9           [8719]   16136  55    7     8 2 0       30                                   BULK COPY
18/1/0 4123        [8720]   16137   C   12    13 0 0        0 ;MT 'CHAPS' UNAMENDED             
1/1/3 30           [8721]  
18/1/1 5           [8722]  
28/1/0 63          [8723]  
2/0/0 83           [8724]   16138   5   12    33 0 0        0 SET 'MT INPUT'                    TRANSFER
6/0/0 63           [8725]   16139       12    13 0 0        0 NUMBER OF CHAPS                   SELECT
26/0/0 2771        [8726]   16140  80  245     2 0 0        0 gTO BIN                           ENTER SUBROUTINE
2/0/0 63           [8727]   16141   5   12    13 0 0        0                                   TRANSFER
26/1/2 62          [8728]   16142  91   12    12 0 2        0                                   SET MODIFICATION REGISTER AT VARIABLE
6/0/2 64           [8729]   16143       12    14 0 2        0 START                             SELECT
26/0/0 1619        [8730]   16144  80  200     2 0 0        0 gREPLACE PROCR                    ENTER SUBROUTINE
24/1/0 541         [8731]  
0/0/1 1223         [8732]   16145   C  178     2 0 0        0                                   
27/0/1 546         [8733]   16146  71  161    50 0 0        0 gOK                               JUMP IF A != 0
6/1/0 4766         [8734]   16147      319    40 1 0        0  '????R'                          SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 48           [8736]   16148   5    8    48 1 0        0                                   TRANSFER
24/1/0 547         [8737]   16149  76  161    51 0 0        0 gUSE OLD VALUE                    JUMP unconditional
2/0/2 64           [8738]   16150   5   12    14 0 2        0                                   TRANSFER
25/0/2 1           [8739]   16151  94  161    43 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 537         [8740] s
24/0/2 64          [8741]   16152  55   12    14 0 0       14                                   BULK COPY
18/1/0 4123        [8742]   16153   C    7    10 2 0        0                                   
1/1/3 14           [8743]  
18/1/1 5           [8744]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/1 11          [8746]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 4           [8748]   16154  55    7     4 1 0       34 COPY ANNEXES                      BULK COPY
18/1/0 4123        [8749]   16155   C    8     4 1 0        0                                   
1/1/3 34           [8750]  
18/1/1 5           [8751]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4           [8753]  
24/1/0 867         [8754]   16156  76  165    51 0 0        0 gTO TEST 'STORE'                  JUMP unconditional

  Start of procedure 162 at location 563 in chapter 3 [8755]
                   [8755]   16200 PROCR  162                    DEAL WITH PT INPUT FOR ENTRY FILES  
                   [8755]   16201 NOTES                                                           
6/1/0 5170         [8755]   16202  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292        [8756]  
26/0/0 4130        [8757]   16203  80  292     2 0 0        0 gRAD PT                           ENTER SUBROUTINE
24/0/2 1242        [8758]   16204 124  179     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [8759]   16205  80  326     2 0 0        0 gUNPACK                           ENTER SUBROUTINE
26/0/0 4258        [8760]   16206  80  297     2 0 0        0 gCOPY ANNOTATION FOR CARDS        ENTER SUBROUTINE
6/0/0 5086         [8761]   16207  10          0 0 0     5500                                   SELECT LITERAL
2/0/0 53           [8762]   16208   5   12     3 0 0        0 LETTER E FOR REPORTS              TRANSFER
6/1/0 5294         [8763]   16209        1     2 1 0        0 ;CHECK 'ENTRY'                    SELECT
5/1/0 1338         [8764]   16210   2  181    14 1 0        0  'ENTRY'                          SUBTRACT
27/0/0 576         [8765]   16211  70  162    14 0 0        0 gOK                               JUMP IF A == 0
1/1/3 1            [8766]   16212  10          0 0 0        1                                   SELECT LITERAL
26/0/0 1212        [8767]   16213  80  177     2 0 0        0 gREPORT *E1                       ENTER SUBROUTINE
6/0/0 5296         [8768]   16214        1     4 0 0        0 ENTRY PROCR                       SELECT
1/1/2 256          [8769]   16215  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 581         [8770]   16216  73  162    19 0 0        0 gWRONG                            JUMP IF A < 0
1/1/2 2201         [8771]   16217  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/3 584         [8772]   16218  73  162    22 0 0        0 gOK                               JUMP IF A < 0
1/1/3 2            [8773]   16219  10          0 0 0        2                                   SELECT LITERAL
26/0/0 1212        [8774]   16220  80  177     2 0 0        0 gREPORT *E2                       ENTER SUBROUTINE
26/0/0 4248        [8775]   16221  80  295     2 0 0        0 IGNORE                            ENTER SUBROUTINE
1/1/3 1            [8776]   16222  10          0 0 0        1                                   SELECT LITERAL
2/0/0 83           [8777]   16223   5   12    33 0 0        0 SET 'PT INPUT'                    TRANSFER
6/0/0 5296         [8778]   16224        1     4 0 0        0                                   SELECT
26/0/0 1619        [8779]   16225  80  200     2 0 0        0 REPLACE PROCR                     ENTER SUBROUTINE
24/1/0 590         [8780]  
0/0/1 1223         [8781]   16226   C  178     2 0 0        0                                   

   Source: KenK/Q1000132
27/0/1 594         [8782]   16227  71  162    31 0 0        0 gOK                               JUMP IF A != 0
6/1/0 4766         [8783]   16228      319    40 1 0        0  '????R'                          SELECT
2/1/0 5336         [8784]   16229   5    1    44 1 0        0                                   TRANSFER
24/1/0 595         [8785]   16230  76  162    32 0 0        0                                   JUMP unconditional
2/0/0 5296         [8786]   16231   5    1     4 0 0        0 NEW PROCR                         TRANSFER
6/1/0 5298         [8787]   16232        1     6 1 0        0 PRIORITY CLASS                    SELECT
1/1/2 1            [8788]   16233  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/3 600         [8789]   16234  73  162    37 0 0        0 gWRONG                            JUMP IF A < 0
1/1/2 4            [8790]   16235  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/3 603         [8791]   16236  73  162    40 0 0        0 gOK                               JUMP IF A < 0
1/1/3 3            [8792]   16237  10          0 0 0        3                                   SELECT LITERAL
26/0/0 1212        [8793]   16238  80  177     2 0 0        0 gREPORT*E3                        ENTER SUBROUTINE
26/0/0 4248        [8794]   16239  80  295     2 0 0        0 IGNORE                            ENTER SUBROUTINE
24/0/2 1176        [8795]   16240  52    8     4 0 0        0                                   EDIT
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/2 4           [8797]   16241   C  175    32 0 0        0                                   
24/0/2 5308        [8798]   16242  55    1    16 1 0       30 ANNOTATION                        BULK COPY
18/1/0 4123        [8799]   16243   C    8    20 1 0        0                                   
1/1/3 30           [8800]  
18/1/1 5           [8801]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 20          [8803]  
26/0/0 4099        [8804]   16244  80  289     2 0 0        0 gWRITE                            ENTER SUBROUTINE
26/0/0 4130        [8805]   16245  80  292     2 0 0        0 gREAD PT;TESTS FOR END OF         ENTER SUBROUTINE
6/0/0 6044         [8806]   16246       92    30 0 0        0 ;PT FILE DETAILS                  SELECT
27/0/0 628         [8807]   16247  70  162    58 0 0        0 gINITIAL TRANSLATION              JUMP IF A == 0
26/0/0 4204        [8808]   16248  80  294     2 0 0        0 gTEST PT AT AMEND DIRECTIVE       ENTER SUBROUTINE
27/0/1 622         [8809]   16249  71  162    53 0 0        0 gYES                              JUMP IF A != 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [8811]   16250        9     4 1 0        0                                   SELECT
5/1/0 1342         [8812]   16251   2  181    18 1 0        0  'CHAPS'                          SUBTRACT
27/0/1 652         [8813]   16252  71  162    73 0 0        0 gASSUME ANOTHER FILE EX PT        JUMP IF A != 0
26/0/0 4119        [8814]   16253  80  291     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 6            [8816]   16254        7     6 1 0        0 ;IGNORE MT FILES                  SELECT
5/1/0 1342         [8817]   16255   2  181    18 1 0        0  'CHAPS'                          SUBTRACT
27/0/1 622         [8818]   16256  71  162    53 0 0        0 gREAD/IGNORE MT FILES->PROCESS MT CHAPS  JUMP IF A != 0
24/1/0 522         [8819]   16257  76  161    33 0 0        0 gPROCESS MT CHAPS                 JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [8821]   16258        9     4 1 0        0                                   SELECT
5/1/0 1342         [8822]   16259   2  181    18 1 0        0  'CHAPS'                          SUBTRACT
27/0/0 806         [8823]   16260  70  165     2 0 0        0 gEND OF FILE DETAILS EX PT        JUMP IF A == 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [8825]   16261        9     4 1 0        0                                   SELECT
18/0/1 4124        [8826]   16262  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4           [8827]   16263  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 4740         [8828]   16264   2  319    14 1 0        0  'END  '                          SUBTRACT
27/0/1 652         [8829]   16265  71  162    73 0 0        0                                   JUMP IF A != 0
6/1/0 5172         [8830]   16266  10          0 0 0   900000                                   SELECT LITERAL
4/0/0 6319         [8831]   16267   1   27     9 0 0        0                                   ADD
3/1/0 40           [8832]   16268  91          0 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40          [8833]  
1/1/3 1            [8834]   16269 150          0 0 0        1  END' BEFORE 'CHAPS'ALARM*01      OFFER OPTIONS
0/0/2 5087         [8835]  
25/1/1 4096        [8836]  
24/0/3 0           [8837]  
26/0/2 1           [8838]  
0/0/1 649          [8839] s 16270   C  162    72 0 0        0 gUNLOAD                           
0/0/0 5646         [8840]   16271   C  100     2 0 0        0 gRE-ENTER                         
25/1/1 4096        [8841]   16272 151          0 0 0        0                                   UNLOAD PROGRAMME
24/0/3 0           [8842]  
26/0/2 2           [8843]  
6/1/0 5174         [8844]   16273  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292        [8845]  
2/0/0 52           [8846]   16274   5   12     2 0 0        0 CLEAR CTR                         TRANSFER
24/0/2 1252        [8847]   16275 124  179    12 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [8848]   16276  80  326     2 0 0        0 gUNPACK FILE DETAILS              ENTER SUBROUTINE
26/0/0 4258        [8849]   16277  80  297     2 0 0        0 gUNPACK CARD ANNOTATION           ENTER SUBROUTINE

  Start of procedure 163 at location 658 in chapter 3 [8850]
                   [8850]   16300 PROCR  163                    CHECK/STORE/OUTPUT FILR DETAILS EX PT  
                   [8850]   16301 NOTES                                                           
6/0/0 5088         [8850]   16302  10          0 0 0     5600                                   SELECT LITERAL
2/0/0 53           [8851]   16303   5   12     3 0 0        0 ERROR LETER F                     TRANSFER
0/1/2 5294         [8852]   16304  34    1     2 1 0        0 FILE IDENTITY                     SET (N) IN B
26/0/0 4291        [8853]   16305  80  300     2 0 0        0 gL-ALIGN IN A                     ENTER SUBROUTINE

   Source: KenK/Q1000133
3/1/0 5294         [8854]   16306   3    1     2 1 0        0                                   COPY
18/1/1 4119        [8855]   16307  32          0 0 0       9-                                   SHIFT (AB) BY QUARTETS
1/1/2 5            [8856]   16308  12          0 0 0        5 CONTROL OF ALPHA PART             SUBTRACT LITERAL
27/0/3 680         [8857]   16309  73  163    24 0 0        0 gREPORT                           JUMP IF A < 0
1/1/3 0            [8858]   16310  10          0 0 0        0                                   SELECT LITERAL
18/1/1 1           [8859]   16311  32          0 0 0        1 BASIC OF ALPHA PART               SHIFT (AB) BY QUARTETS
1/1/2 10           [8860]   16312  12          0 0 0        t                                   SUBTRACT LITERAL
27/0/2 680         [8861]   16313  72  163    24 0 0        0 gREPORT                           JUMP IF A >= 0
1/1/3 0            [8862]   16314  10          0 0 0        0                                   SELECT LITERAL
18/1/1 2           [8863]   16315  32          0 0 0        2 NUMERIC PART                      SHIFT (AB) BY QUARTETS
1/1/2 48           [8864]   16316  12          0 0 0       30                                   SUBTRACT LITERAL
27/0/0 678         [8865]   16317  70  163    22 0 0        0 gOK                               JUMP IF A == 0
1/1/2 17           [8866]   16318  12          0 0 0       11                                   SUBTRACT LITERAL
27/0/3 680         [8867]   16319  73  163    24 0 0        0 gREPORT                           JUMP IF A < 0
1/1/2 9            [8868]   16320  12          0 0 0        9                                   SUBTRACT LITERAL
27/0/2 680         [8869]   16321  72  163    24 0 0        0 gREPORT                           JUMP IF A >= 0
1/1/3 0            [8870]   16322  10          0 0 0        0                                   SELECT LITERAL
27/1/0 682         [8871]   16323  74  163    26 0 0        0 gOK                               JUMP IF AB == 0        // 27, 1, 0
1/1/3 1            [8872]   16324  10          0 0 0        1                                   SELECT LITERAL
26/0/0 1212        [8873]   16325  80  177     2 0 0        0 gREPORT*F1                        ENTER SUBROUTINE
6/1/0 5296         [8874]   16326        1     4 1 0        0 ROUTE TYPE                        SELECT
1/1/2 1            [8875]   16327  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/3 722         [8876]   16328  73  163    62 0 0        0 gIGNORE                           JUMP IF A < 0
1/1/2 2            [8877]   16329  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 689         [8878]   16330  71  163    33 0 0        0 gNOT 3. DEC CARD O/P              JUMP IF A != 0
1/1/3 38           [8879]   16331  10          0 0 0       26                                   SELECT LITERAL
24/1/0 720         [8880]   16332  76  163    60 0 0        0 gSET BLOCK LENGTH                 JUMP unconditional
1/1/2 1            [8881]   16333  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 707         [8882]   16334  70  163    51 0 0        0 gGP PRINTER                       JUMP IF A == 0
1/1/2 21           [8883]   16335  12          0 0 0       15                                   SUBTRACT LITERAL
27/0/0 707         [8884]   16336  70  163    51 0 0        0 gRT 19                            JUMP IF A == 0
1/1/2 1            [8885]   16337  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 730         [8886]   16338  70  163    70 0 0        0 g OUT, IF RT20                    JUMP IF A == 0
1/1/2 1            [8887]   16339  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 722         [8888]   16340  70  163    62 0 0        0 gREJECT RT 21                     JUMP IF A == 0
1/1/2 1            [8889]   16341  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 730         [8890]   16342  70  163    70 0 0        0 g22,DATA LINK                     JUMP IF A == 0
1/1/2 1            [8891]   16343  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 722         [8892]   16344  70  163    62 0 0        0 gREJECT RT 23                     JUMP IF A == 0
1/1/2 1            [8893]   16345  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 730         [8894]   16346  70  163    70 0 0        0 gRT24                             JUMP IF A == 0
1/1/2 1            [8895]   16347  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 730         [8896]   16348  70  163    70 0 0        0 gRT25                             JUMP IF A == 0
27/0/2 722         [8897]   16349  72  163    62 0 0        0 gREJECT                           JUMP IF A >= 0
24/1/0 730         [8898]   16350  76  163    70 0 0        0                                   JUMP unconditional
6/1/0 5300         [8899]   16351        1     8 1 0        0 BLOCK LENGTH                      SELECT
26/0/0 2771        [8900]   16352  80  245     2 0 0        0 gTO BIN                           ENTER SUBROUTINE
18/1/3 2           [8901]   16353  33          0 0 0       6- DIVIDE BY 64                      SHIFT (AB) BY BITS
18/1/1 4126        [8902]  
2/1/0 40           [8903]   16354  39          0 0 0        0 ROUND UP                          ROUND UP
27/1/0 714         [8904]  
1/1/3 1            [8905]  
4/1/0 40           [8906]  
1/1/2 5            [8907]   16355  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/2 726         [8908]   16356  72  163    66 0 0        0 gTOO BIG                          JUMP IF A >= 0
1/1/1 5            [8909]   16357  11          0 0 0        5                                   ADD LITERAL
18/0/3 6           [8910]   16358  31          0 0 0        6                                   SHIFT (A) BY BITS
26/0/0 2765        [8911]   16359  80  244     2 0 0        0 gTO DEC                           ENTER SUBROUTINE
2/1/0 5300         [8912]   16360   5    1     8 1 0        0                                   TRANSFER
24/1/0 730         [8913]   16361  76  163    70 0 0        0                                   JUMP unconditional

   Source: ChuckK/Q1000134
1/1/3 2            [8914]   16362  10          0 0 0        2                                   SELECT LITERAL
26/0/0 1212        [8915]   16363  80  177     2 0 0        0 >REPORT*F2                        ENTER SUBROUTINE
26/0/0 4248        [8916]   16364  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
24/1/0 730         [8917]   16365  76  163    70 0 0        0                                   JUMP unconditional
1/1/3 4            [8918]   16366  10          0 0 0        4                                   SELECT LITERAL
26/0/0 1212        [8919]   16367  80  177     2 0 0        0 >REPORT*F4                        ENTER SUBROUTINE
26/0/0 4248        [8920]   16368  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
24/1/0 733         [8921]   16369  76  163    73 0 0        0                                   JUMP unconditional
6/1/0 5300         [8922]   16370   0    1     8 1 0        0 BLOCK LENGTH                      SELECT
27/0/3 726         [8923]   16371  73  163    66 0 0        0                                   JUMP IF A < 0
27/0/0 726         [8924]   16372  70  163    66 0 0        0                                   JUMP IF A == 0
24/1/0 779         [8925]   16373  76  164    15 0 0        0                                   JUMP unconditional
1/1/3 5            [8926]   16374  10          0 0 0        5                                   SELECT LITERAL
26/0/0 1212        [8927]   16375  80  177     2 0 0        0 >REPORT*F5                        ENTER SUBROUTINE
26/0/0 4248        [8928]   16376  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
6/1/0 5298         [8929]   16377        1     6 1 0        0 CHAP IND                          SELECT
27/0/3 741         [8930]   16378  73  163    81 0 0        0 >REPORT                           JUMP IF A < 0
1/1/2 256          [8931]   16379  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 744         [8932]   16380  73  163    84 0 0        0 >OK                               JUMP IF A < 0
1/1/3 3            [8933]   16381  10          0 0 0        3                                   SELECT LITERAL
26/0/0 1212        [8934]   16382  80  177     2 0 0        0 >REPORT*F3                        ENTER SUBROUTINE
26/0/0 4248        [8935]   16383  80  295     2 0 0        0 IGNORE                            ENTER SUBROUTINE
6/1/0 5296         [8936]   16384        1     4 1 0        0 ROUTE TYPE                        SELECT
26/0/0 2771        [8937]   16385  80  245     2 0 0        0 >TO BIN                           ENTER SUBROUTINE
18/1/3 2           [8938]   16386  33          0 0 0       2-                                   SHIFT (AB) BY BITS
18/1/1 4127        [8939]  
4/0/0 5295         [8940]   16387   1    1     3 0 0        0 FILE ID                           ADD
18/1/3 2           [8941]   16388  33          0 0 0      18-                                   SHIFT (AB) BY BITS
18/1/1 4123        [8942]  
6/1/0 5334         [8943]   16389        1    42 1 0        0                                   SELECT
26/0/0 766         [8944]   16390  80  164     2 0 0        0 >STORE DETAIL                     ENTER SUBROUTINE
27/0/1 755         [8945]   16391  71  163    93 0 0        0 >OK, LIST NOT FULL                JUMP IF A != 0
26/0/0 4248        [8946]   16392  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
24/0/2 1146        [8947]   16393  52    8     6 0 0        0                                   EDIT
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/2 6           [8949]   16394   C  175     2 0 0        0                                   
24/0/2 5320        [8950]   16395  55    1    28 1 0       18                                   BULK COPY
18/1/0 4123        [8951]   16396   C    8    32 1 0        0                                   
1/1/3 18           [8952]  
18/1/1 5           [8953]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 32          [8955]  
26/0/0 4099        [8956]   16397  80  289     2 0 0        0 >WRITE                            ENTER SUBROUTINE
24/1/0 613         [8957]   16398  76  162    45 0 0        0                                   JUMP unconditional

  Start of procedure 164 at location 766 in chapter 3 [8958]
                   [8958]   16400 PROCR  164       164            STORE FILE DETAILS SR             
                   [8958]   16401 NOTES                                                           
0/0/0 0            [8958]   16402  81  164     2 0 0        0                                   START OF SUBROUTINE
5/1/0 4752         [8959]   16403   2  319    26 1 0        0                                   SUBTRACT
27/0/0 777         [8960]   16404  70  164    13 0 0        0 >IGNORED ALREADY                  JUMP IF A == 0
1/1/3 16           [8961]   16405  10          0 0 0       10  =16                              SELECT LITERAL

   Source: ChuckK/Q1000135
5/0/0 6053         [8962]   16406   2   91     1 0 0        0                                   SUBTRACT
27/0/0 777         [8963]   16407  70  164    13 0 0        0 LIST FULL.  IGNORE                JUMP IF A == 0
18/1/1 5           [8964]   16408  32          0 0 0        5                                   SHIFT (AB) BY QUARTETS
24/0/1 6053        [8965]   16409 124   91     1 0 1        0                                   MODIFY ADDRESS OF NEXT
2/0/0 6057         [8966]   16410   5   91     5 0 0        0 STORE                             TRANSFER
1/1/3 2            [8967]   16411  10          0 0 0        2                                   SELECT LITERAL
7/0/0 6053         [8968]   16412   4   91     1 0 0        0 STEP CTR                          AUGMENT
0/0/3 5089         [8969]   16413  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/1 766         [8970]   16414  82  164     2 0 0        0 (A)=0 IF FILE TO BE IGNORED       END OF SUBROUTINE / LEAVE SUBROUTINE
6/0/0 5302         [8971]   16415        1    10 0 0        0 ALT ROUTE IND                     SELECT
27/0/1 785         [8972]   16416  71  164    21 0 0        0                                   JUMP IF A != 0
6/0/0 5296         [8973]   16417        1     4 0 0        0                                   SELECT
1/1/2 25           [8974]   16418  12          0 0 0       19                                   SUBTRACT LITERAL
27/0/0 734         [8975]   16419  70  163    74 0 0        0 >REPORT                           JUMP IF A == 0
24/1/0 737         [8976]   16420  76  163    77 0 0        0 >OK                               JUMP unconditional
6/0/0 5296         [8977]   16421        1     4 0 0        0 ROUTE TYPE                        SELECT
1/1/2 5            [8978]   16422  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/0 802         [8979]   16423  70  164    38 0 0        0 >PT                               JUMP IF A == 0
1/1/2 2            [8980]   16424  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 802         [8981]   16425  70  164    38 0 0        0 >MT 7                             JUMP IF A == 0
1/1/2 1            [8982]   16426  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 802         [8983]   16427  70  164    38 0 0        0 >MT 8                             JUMP IF A == 0
1/1/2 3            [8984]   16428  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/0 802         [8985]   16429  70  164    38 0 0        0 >MT 11                            JUMP IF A == 0
1/1/2 4            [8986]   16430  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/0 802         [8987]   16431  70  164    38 0 0        0 >PT 15                            JUMP IF A == 0
1/1/2 4            [8988]   16432  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/1 734         [8989]   16433  71  163    74 0 0        0 >REPORT. NOT 19                   JUMP IF A != 0
6/0/0 5302         [8990]   16434        1    10 0 0        0 SPECIAL ANNEX LENGTH              SELECT
5/0/0 5090         [8991]   16435  12          0 0 0     4096                                   SUBTRACT LITERAL
27/0/2 734         [8992]   16436  72  163    74 0 0        0 >REPORT                           JUMP IF A >= 0
24/1/0 737         [8993]   16437  76  163    77 0 0        0 >OK                               JUMP unconditional
6/0/0 5302         [8994]   16438        1    10 0 0        0 ALT ROUTE IND                     SELECT
1/1/2 1            [8995]   16439  12          0 0 0        1 >OK                               SUBTRACT LITERAL
27/0/0 737         [8996]   16440  70  163    77 0 0        0 >REPORT                           JUMP IF A == 0
24/1/0 734         [8997]   16441  76  163    74 0 0        0                                   JUMP unconditional

  Start of procedure 165 at location 806 in chapter 3 [8998]
                   [8998]   16500 PROCR  165            'CHAPS'  ON PT                                    
                   [8998]   16501 NOTES                                                           
6/0/0 5091         [8998]   16502  10          0 0 0     5300                                   SELECT LITERAL
3/0/0 83           [8999]   16503   3   12    33 0 0        0 SET 'PT IN'                       COPY
2/0/0 53           [9000]   16504   5   12     3 0 0        0 ERROR LETTER C                    TRANSFER
6/1/0 5176         [9001]   16505  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292        [9002]  
6/0/0 51           [9003]   16506       12     1 0 0        0 STORE AMEND SERIAL INDICATOR      SELECT
18/0/1 2           [9004]   16507  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
2/0/0 5292         [9005]   16508   5    1     0 0 0        0                                   TRANSFER
24/0/2 1294        [9006]   16509 124  180     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [9007]   16510  80  326     2 0 0        0 >UNPACK 'CHAPS'                   ENTER SUBROUTINE
6/0/0 5296         [9008]   16511        1     4 0 0        0 NO OF CHARS                       SELECT
1/1/2 1            [9009]   16512  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/3 821         [9010]   16513  73  165    16 0 0        0 >REPORT                           JUMP IF A < 0
1/1/2 20           [9011]   16514  12          0 0 0       14                                   SUBTRACT LITERAL
27/0/3 824         [9012]   16515  73  165    19 0 0        0 >OK                               JUMP IF A < 0
1/1/3 1            [9013]   16516  10          0 0 0        1                                   SELECT LITERAL

   Source: ChuckK/Q1000136
3/0/0 5296         [9014]   16517   3    1     4 0 0        0 (SAFE VALUE)                      COPY
26/0/0 1212        [9015]   16518  80  177     2 0 0        0 >REPORT*C1                        ENTER SUBROUTINE
6/0/0 5296         [9016]   16519        1     4 0 0        0                                   SELECT
26/0/0 2771        [9017]   16520  80  245     2 0 0        0 >TO BIN                           ENTER SUBROUTINE
2/0/0 63           [9018]   16521   5   12    13 0 0        0                                   TRANSFER
0/0/3 5092         [9019]   16522  60          0 0 0        0                                   SET DECIMAL RADIX
26/1/2 62          [9020]   16523  91   12    12 0 2        0 C:0                               SET MODIFICATION REGISTER AT VARIABLE
6/0/2 5297         [9021]   16524        1     5 0 2        0                                   SELECT
26/0/0 1619        [9022]   16525  80  200     2 0 0        0 >REPLACE PROCR                    ENTER SUBROUTINE
24/1/0 833         [9023]  
0/0/1 1223         [9024]   16526   C  178     2 0 0        0                                   
27/0/1 837         [9025]   16527  71  165    31 0 0        0 >OK                               JUMP IF A != 0
6/1/0 4766         [9026]   16528      319    40 1 0        0  '????R'                          SELECT
2/1/0 5336         [9027]   16529   5    1    44 1 0        0                                   TRANSFER
6/0/2 5297         [9028]   16530        1     5 0 2        0 OLD VALUE                         SELECT
3/0/2 64           [9029]   16531   3   12    14 0 2        0 STORE START POINTS                COPY
3/0/2 5297         [9030]   16532   3    1     5 0 2        0                                   COPY
1/1/2 256          [9031]   16533  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 843         [9032]   16534  73  165    37 0 0        0 >REPORT                           JUMP IF A < 0
1/1/2 2201         [9033]   16535  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/3 845         [9034]   16536  73  165    39 0 0        0 >OK                               JUMP IF A < 0
1/1/3 2            [9035]   16537  10          0 0 0        2                                   SELECT LITERAL
26/0/0 1212        [9036]   16538  80  177     2 0 0        0 >REPORT*C2                        ENTER SUBROUTINE
25/0/2 1           [9037]   16539  94  165    24 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 829         [9038] s
6/0/2 5297         [9039]   16540        1     5 0 2        0 NEXT CHAP START                   SELECT
27/0/0 851         [9040]   16541  70  165    44 0 0        0 >OK                               JUMP IF A == 0
1/1/3 3            [9041]   16542  10          0 0 0        3                                   SELECT LITERAL
26/0/0 1212        [9042]   16543  80  177     2 0 0        0 >REPORT*C3                        ENTER SUBROUTINE
24/0/2 5296        [9043]   16544  55    1     4 0 0       15 NO OF CHAPS*START                 BULK COPY
18/1/0 4123        [9044]   16545   C    8     8 2 0        0                                   
1/1/3 15           [9045]  
18/1/1 5           [9046]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/0/1 9           [9048]  
24/0/2 5326        [9049]   16546  55    1    34 1 0       12 REPORTS                           BULK COPY
18/1/0 4123        [9050]   16547   C    8    38 1 0        0                                   
1/1/3 12           [9051]  
18/1/1 5           [9052]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 38          [9054]  
24/0/2 1170        [9055]   16548  52    8     4 0 0        0 EDIT AMEND IND+'CHARS'            EDIT
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/2 4           [9057]   16549   C  175    26 0 0        0                                   
26/0/0 4130        [9058]   16550  80  292     2 0 0        0 >READ PT                          ENTER SUBROUTINE
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [9060]   16551        9     4 1 0        0 ;DEAL WITH 'STOR                  SELECT
5/1/0 1346         [9061]   16552   2  181    22 1 0        0  'STORE'                          SUBTRACT
27/0/0 874         [9062]   16553  70  165    57 0 0        0 >PT AT STORE                      JUMP IF A == 0
6/0/0 6044         [9063]   16554       92    30 0 0        0                                   SELECT
27/0/1 898         [9064]   16555  71  165    74 0 0        0 >MT UNAMENDED                     JUMP IF A != 0
24/1/0 912         [9065]   16556  76  166     2 0 0        0 >INITIAL TRANS WITHOUT STORE      JUMP unconditional
6/0/0 6044         [9066]   16557       92    30 0 0        0                                   SELECT
27/0/0 882         [9067]   16558  70  165    64 0 0        0 INITIAL TRANS                     JUMP IF A == 0
26/0/0 4119        [9068]   16559  80  291     2 0 0        0 READ A1                           ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 6            [9070]   16560        7     6 1 0        0                                   SELECT
5/1/0 1346         [9071]   16561   2  181    22 1 0        0  'STORE'                          SUBTRACT
27/0/1 882         [9072]   16562  71  165    64 0 0        0                                   JUMP IF A != 0
26/0/0 4119        [9073]   16563  80  291     2 0 0        0 READ A1                           ENTER SUBROUTINE
6/1/0 5178         [9074]   16564  54    1     0 1 0       20                                   BULK CLEAR
28/1/1 5292        [9075]  
24/0/2 1294        [9076]   16565 124  180     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [9077]   16566  80  326     2 0 0        0 UNPACK 'STORE'                    ENTER SUBROUTINE
26/0/0 4099        [9078]   16567  80  289     2 0 0        0 WRITE 'CHAPS'                     ENTER SUBROUTINE
24/0/2 5296        [9079]   16568  55    1     4 0 0        7                                   BULK COPY
18/1/0 4123        [9080]   16569   C    8     8 1 0        0                                   
1/1/3 7            [9081]  
18/1/1 5           [9082]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/0/1 9           [9084]  
6/1/0 1346         [9085]   16570      181    22 1 0        0  'STORE'                          SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 6            [9087]   16571   5    8     6 1 0        0                                   TRANSFER
26/0/0 4130        [9088]   16572  80  292     2 0 0        0 READ A6                           ENTER SUBROUTINE
24/1/0 912         [9089]   16573  76  166     2 0 0        0                                   JUMP unconditional
26/0/0 4119        [9090]   16574  80  291     2 0 0        0 READ A1        MT UNAMENDED       ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 6            [9092]   16575        7     6 1 0        0                                   SELECT

   Source: KenK/Q1000137
5/1/0 1346         [9093]   16576   2  181    22 1 0        0                                   SUBTRACT
27/0/1 912         [9094]   16577  71  166     2 0 0        0 gNOT STORE                        JUMP IF A != 0
26/0/0 4099        [9095]   16578  80  289     2 0 0        0 WRITE 'CHAPS'                     ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 4           [9097]   16579  55    7     4 1 0       40                                   BULK COPY
18/1/0 4123        [9098]   16580   C    8     4 1 0        0                                   
1/1/3 40           [9099]  
18/1/1 5           [9100]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4           [9102]  
26/0/0 4119        [9103]   16581  80  291     2 0 0        0 gREAD A1                          ENTER SUBROUTINE

  Start of procedure 166 at location 912 in chapter 3 [9104]
                   [9104]   16600 PROCR  166                    PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION  
                   [9104]   16601 NOTES                                                           
6/1/0 5180         [9104]   16602  10          0 0 0  pppppppppp                                   SELECT LITERAL
24/0/3 0    Extra code needed to address 8162 from 9105 (different chapter)
2/1/0 8162         [9106]   16603   5   18  2498 1 0        0 LIST END SIGN                     TRANSFER
24/0/3 0    Extra code needed to address 8160 from 9107 (different chapter)
2/1/0 8160         [9108]   16604   5   18  2496 1 0        0 CLEAR FIRST ENTRY                 TRANSFER
1/1/3 1            [9109]   16605  83  267     2 0 0        1 SAFETY SETTINGS                   SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8169         [9110]  
6/0/0 63           [9111]   16606   0   12    13 0 0        0 NO OF CHAPS                       SELECT
26/0/0 2765        [9112]   16607  80  244     2 0 0        0 gTO DEC                           ENTER SUBROUTINE
2/0/0 1332         [9113]   16608   5  181     8 0 0        0                                   TRANSFER
6/0/0 5093         [9114]   16609  10          0 0 0     7200                                   SELECT LITERAL
2/0/0 53           [9115]   16610   5   12     3 0 0        0 ERROR LETTERS                     TRANSFER
1/1/3 153          [9116]   16611  10          0 0 0       99                                   SELECT LITERAL
2/0/0 6017         [9117]   16612   5   92     3 0 0        0 FIRST PROCR-1                     TRANSFER
6/1/0 5182         [9118]   16613  90          0 0 4        0                                   SET MODIFICATION REGISTER AT LITERAL
2/1/0 8184         [9119]   16614   C          0 0 0       14 TO STORE CHAPTER ENDS             Simulated modifier
0/0/3 0            [9120]   16615  62          0 0 0        0                                   SET EXCESS CONSTANTS
26/1/3 62          [9121]   16616  91   12    12 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
1/1/1 1            [9122]   16617  11          0 0 0        1                                   ADD LITERAL
3/0/3 6024         [9123]   16618   3   92    10 0 3        0 STORE UNCORRECETD CHAP NUMBERS    COPY
25/0/3 1           [9124]   16619  94  166    17 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 930         [9125] s
0/0/3 5094         [9126]   16620  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 4097         [9127]   16621  10          0 0 0     1001                                   SELECT LITERAL
2/0/0 59           [9128]   16622   5   12     9 0 0        0 SET FIRST SECTION SERIAL NUMBER   TRANSFER
6/0/0 6044         [9129]   16623       92    30 0 0        0                                   SELECT
27/0/1 953         [9130]   16624  71  167     2 0 0        0 gNOT INITIAL TRANSLATION          JUMP IF A != 0
24/0/1 6320        [9131]   16625  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 940         [9132]  
0/0/1 943          [9133] s 16626   C  166    28 0 0        0 gPT                               
0/0/1 946          [9134] s 16627   C  166    30 0 0        0 gCARDS                            
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [9136]   16628        9     4 1 0        0                                   SELECT
24/1/0 948         [9137]   16629  76  166    31 0 0        0                                   JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 8            [9139]   16630        9     8 1 0        0                                   SELECT
26/0/0 4006        [9140]   16631  80  287     2 0 0        0 gTEST PT='PROCR' ETC              ENTER SUBROUTINE
6/0/0 88           [9141]   16632       12    38 0 0        0                                   SELECT
27/0/3 1370        [9142]   16633  73  185     2 0 0        0 gYES, END OF SECTION DETAILS      JUMP IF A < 0
26/0/0 1039        [9143]   16634  80  170     2 0 0        0 gUNPACK/OUTPUT PT                 ENTER SUBROUTINE
24/1/0 939         [9144]   16635  76  166    25 0 0        0                                   JUMP unconditional

  Start of procedure 167 at location 953 in chapter 3 [9145]
                   [9145]   16700 PROCR  167                    DEAL WITH UNAMENDED SECTION LINE  
26/0/0 1125        [9145]   16702  80  173     2 0 0        0 gTEST PT AT AMEND DIRECTIVE       ENTER SUBROUTINE
27/0/1 958         [9146]   16703  71  167     7 0 0        0                                   JUMP IF A != 0
0/1/2 1334         [9147]   16704  34  181    10 1 0        0 FIVE SQUARES                      SET (N) IN B
24/1/0 1015        [9148]   16705  76  169     3 0 0        0                                   JUMP unconditional
26/0/0 4119        [9149]   16706  80  291     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
6/0/0 95           [9150]   16707       12    45 0 0        0                                   SELECT
27/0/1 966         [9151]   16708  71  167    13 0 0        0 gNO MORE PT AMENDS TO SECTIONS    JUMP IF A != 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 5            [9153]   16709        7     4 2 0        0                                   SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
5/1/0 5            [9155]   16710   2    9     4 2 0        0                                   SUBTRACT

   Source: KenK/Q1000138
27/0/0 981         [9156]   16711  70  168     2 0 0        0 gMT AMENDED                       JUMP IF A == 0
27/0/3 1014        [9157]   16712  73  169     2 0 0        0 gMT>PT, REPORT                    JUMP IF A < 0
26/0/0 1136        [9158]   16713  80  174     2 0 0        0 gTEST MT=PROCR ETC                ENTER SUBROUTINE
6/0/0 88           [9159]   16714       12    38 0 0        0                                   SELECT
27/0/3 1370        [9160]   16715  73  185     2 0 0        0 gYES                              JUMP IF A < 0
24/0/2 1160        [9161]   16716  50    7     6 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 6           [9163]   16717   C  175    16 0 0        0                                   
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 32          [9165]   16718  55    7    32 1 0       16                                   BULK COPY
18/1/0 4123        [9166]   16719   C    1    28 1 0        0                                   
1/1/3 16           [9167]  
18/1/1 5           [9168]  
28/1/1 5320        [9169]  
2/1/0 5336         [9170]   16720   5    1    44 1 0        0 CLEAR REPORT WL                   TRANSFER
26/0/0 1068        [9171]   16721  80  172     2 0 0        0 gCHECK/EDIT/WRITE SECTION DETAIL  ENTER SUBROUTINE
24/1/0 957         [9172]   16722  76  167     6 0 0        0                                   JUMP unconditional

  Start of procedure 168 at location 981 in chapter 3 [9173]
                   [9173]   16800 PROCR  168                    EFFECT REPLACEMENTS, DELETIONS, INSERTIONS  
24/0/1 8170        [9173]   16802  85  252     2 0 0        0                                   SWITCH R
26/0/1 982         [9174]  
0/0/1 987          [9175] s 16803   C  168     7 0 0        0 gREPLACE                          
0/0/1 995          [9176] s 16804   C  168    15 0 0        0 gDELETE                           
0/0/1 1009         [9177] s 16805   C  168    27 0 0        0 gINSERT BEFORE                    
0/0/1 987          [9178] s 16806   C  168     7 0 0        0 gANNOTATION                       
26/0/0 1136        [9179]   16807  80  174     2 0 0        0 gTEST MT=PROCR ETC                ENTER SUBROUTINE
6/0/0 88           [9180]   16808   0   12    38 0 0        0                                   SELECT
27/0/3 1370        [9181]   16809  73  185     2 0 0        0 gYES ;'REPLACE'LOOP               JUMP IF A < 0
26/0/0 1039        [9182]   16810  80  170     2 0 0        0 gAPPLY PT                         ENTER SUBROUTINE
26/0/0 1125        [9183]   16811  80  173     2 0 0        0 gTEST NEXT PT=DIRECTIVE           ENTER SUBROUTINE
27/0/1 957         [9184]   16812  71  167     6 0 0        0 gYES                              JUMP IF A != 0
26/0/0 4119        [9185]   16813  80  291     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
24/1/0 987         [9186]   16814  76  168     7 0 0        0                                   JUMP unconditional
26/0/0 4130        [9187]   16815  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
26/0/0 1125        [9188]   16816  80  173     2 0 0        0 gTEST DIRECTIVE ;DELETE           ENTER SUBROUTINE
27/0/1 957         [9189]   16817  71  167     6 0 0        0 gYES                              JUMP IF A != 0
26/0/0 4119        [9190]   16818  80  291     2 0 0        0 gREAD MT                          ENTER SUBROUTINE
26/0/0 1136        [9191]   16819  80  174     2 0 0        0 g TEST MT=PROCR ETC               ENTER SUBROUTINE
6/0/0 88           [9192]   16820       12    38 0 0        0                                   SELECT
27/0/3 1370        [9193]   16821  73  185     2 0 0        0 gYES                              JUMP IF A < 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 5            [9195]   16822        7     4 2 0        0                                   SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
5/1/0 5            [9197]   16823   2    9     4 2 0        0                                   SUBTRACT
27/0/3 1014        [9198]   16824  73  169     2 0 0        0 gMODS OUT OF ORDER                JUMP IF A < 0
27/0/0 995         [9199]   16825  70  168    15 0 0        0 gEND OF DELETION                  JUMP IF A == 0
24/1/0 998         [9200]   16826  76  168    18 0 0        0 gREAD/IGNORE MT                   JUMP unconditional
26/0/0 4130        [9201]   16827  80  292     2 0 0        0 READ FIRST INSERTED BLOCK         ENTER SUBROUTINE
26/0/0 1039        [9202]   16828  80  170     2 0 0        0 gUNPACK/OUTPUT/READ NEXT PT BLOCK  ENTER SUBROUTINE
26/0/0 1125        [9203]   16829  80  173     2 0 0        0 gTEST AMEND DIRECTIVE             ENTER SUBROUTINE
27/0/0 1010        [9204]   16830  70  168    28 0 0        0 gNO                               JUMP IF A == 0
24/1/0 958         [9205]   16831  76  167     7 0 0        0 gYES                              JUMP unconditional

  Start of procedure 169 at location 1014 in chapter 3 [9206]
                   [9206]   16900 PROCR  169                    DEAL WITH SEQUENCE ERROR IN MODS  
0/1/2 5294         [9206]   16902  34    1     2 1 0        0                                   SET (N) IN B
24/1/2 19    Extra code needed to address transit area no 3, section 8
6/0/0 47           [9208]   16903   0    8    47 0 0        0 TEST TOP HALF TO BE'??5'          SELECT
5/0/0 4742         [9209] a 16904   2  318    27 0 0        0                                   SUBTRACT
27/0/0 1024        [9210]   16905  70  169    10 0 0        0 gLINE IGNORED, DONT OVERWRITE WORD  JUMP IF A == 0
1/1/3 0            [9211]   16906  10          0 0 0        0 CLEAR SIGN BIT A                  SELECT LITERAL
18/1/1 10          [9212]   16907  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 46           [9214]   16908   5    8    46 1 0        0                                   TRANSFER
24/1/0 1027        [9215]   16909  76  169    12 0 0        0                                   JUMP unconditional
18/1/1 10          [9216]   16910  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 44           [9218]   16911   5    8    44 1 0        0                                   TRANSFER

   Source: KenK/Q1000139
6/1/0 5296         [9219]   16912   0    1     4 1 0        0 AMEND LETTER                      SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 48           [9221]   16913   5    8    48 1 0        0                                   TRANSFER
1/0/1 15           [9222]   16914  35          0 0 0     1111                                   PREPARE FOR DIGIT COLLATION
1/1/3 7453         [9223]   16915  10          0 0 0     1:1:                                   SELECT LITERAL
3/0/0 6316         [9224]   16916   3   27     6 0 0        0 SET 'PT OMITTED'                  COPY
24/1/2 19    Extra code needed to address transit area no 3, section 8
14/1/0 48          [9226]   16917  37    8    48 1 0        0 PLANT '??'                        REPLACE SELECTED BITS
26/0/0 4130        [9227]   16918  80  292     2 0 0        0 gREADPT                           ENTER SUBROUTINE
26/0/0 1125        [9228]   16919  80  173     2 0 0        0 gTEST AMEND DIRECTIVE             ENTER SUBROUTINE
27/0/0 1035        [9229]   16920  70  169    18 0 0        0 gNO                               JUMP IF A == 0
24/1/0 958         [9230]   16921  76  167     7 0 0        0 gYES(DEAL WITH CURRENT MT BLOCK)  JUMP unconditional

  Start of procedure 170 at location 1039 in chapter 3 [9231]
                   [9231]   17000 PROCR  170                    AMENDS TO SECTION DESCRIPTION EX PT  
0/0/0 0            [9231]   17002  81  170     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5184         [9232]   17003  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292        [9233]  
24/0/2 1266        [9234]   17004 124  179    26 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069        [9235]   17005  80  326     2 0 0        0 gUNPACK PT SECTION                ENTER SUBROUTINE
26/0/0 4258        [9236]   17006  80  297     2 0 0        0 UNPACK ANNOTATION(CARDS)          ENTER SUBROUTINE
6/0/0 8170         [9237]   17007  86  252     2 0 0        0                                   SELECT SWITCH R
1/1/2 4            [9238]   17008  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/1 1052        [9239]   17009  71  170    13 0 0        0 gNOT 'UNPACK ANNOTATION'          JUMP IF A != 0
24/0/2 1160        [9240]   17010  50    7     6 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 6           [9242]   17011   C  175    16 0 0        0 UNPACK MT DETAILS                 
24/1/0 1054        [9243]   17012  76  170    15 0 0        0                                   JUMP unconditional
6/0/0 51           [9244]   17013   0   12     1 0 0        0 SET AMEND IND                     SELECT
2/0/0 5298         [9245]   17014   5    1     6 0 0        0                                   TRANSFER
26/0/0 4130        [9246]   17015  80  292     2 0 0        0 gREAD NEXT PT BLOCK               ENTER SUBROUTINE
26/0/0 1068        [9247]   17016  80  172     2 0 0        0 gCHECK/EDIT/OUTPUT SECTION DETAIL  ENTER SUBROUTINE
26/0/1 1039        [9248]   17017  82  170     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 171 at location 1057 in chapter 3 [9249]
                   [9249]   17100 PROCR  171                                                      
0/0/0 0            [9249]   17102  81  171     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40           [9250]   17103  43   A2     0 0 0        0                                   OUTPUT
0/0/3 0            [9251]  
0/0/2 16           [9252]   17104   C    7     0 0 0        0                                   OUTPUT
6/1/0 0            [9253]  
1/1/1 36           [9254]  
25/1/1 4096        [9255]  
24/0/3 0           [9256]  
23/0/2 43          [9257]  
0/1/1 40           [9258]  
26/0/1 1057        [9259]   17105  82  171     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 172 at location 1068 in chapter 3 [9260]
                   [9260]   17200 PROCR  172                    CHECK/EDIT/WRITE SECTION DETAILS  
0/0/0 0            [9260]   17202  81  172     2 0 0        0                                   START OF SUBROUTINE
26/0/0 1511        [9261]   17203  80  189     2 0 0        0 DELETE B/FWD REPORTS              ENTER SUBROUTINE
26/1/1 5186        [9262]   17204  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9263]   17205   C          0 0 0        4                                   Limit
26/1/2 5188        [9263]   17206  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9264]   17207   C          0 0 0        8                                   Limit
1/1/3 0            [9264]   17208  10          0 0 0        0                                   SELECT LITERAL
2/1/0 5336         [9265]   17209   5    1    44 1 0        0 CLEAR REPORT WORD                 TRANSFER
6/0/1 5294         [9266]   17210        1     2 0 1        0                                   SELECT
5/0/2 1327         [9267]   17211   2  181     3 0 2        0 LOWER LIMIT                       SUBTRACT
27/0/3 1080        [9268]   17212  73  172    16 0 0        0 gREPORT                           JUMP IF A < 0
6/0/2 1326         [9269]   17213      181     2 0 2        0 UPPER LIMIT                       SELECT
5/0/1 5294         [9270]   17214   2    1     2 0 1        0                                   SUBTRACT
27/0/2 1086        [9271]   17215  72  172    21 0 0        0 gOK                               JUMP IF A >= 0
24/0/3 22          [9272]   17216  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2            [9273]  
1/1/1 1            [9274]   17217  11          0 0 0        1                                   ADD LITERAL
26/0/0 1212        [9275]   17218  80  177     2 0 0        0 gREPORT S(NOMBER)                 ENTER SUBROUTINE
26/0/0 4248        [9276]   17219  80  295     2 0 0        0 gIGNORE SECTION                   ENTER SUBROUTINE
24/1/0 1111        [9277]   17220  76  172    44 0 0        0                                   JUMP unconditional
25/0/1 1           [9278]   17221  94          0 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1088        [9279]  
25/0/2 2           [9280]   17222  94  172    10 0 2        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1074        [9281] s
6/0/0 5296         [9282]   17223        1     4 0 0        0 TX AREA IND                       SELECT
27/0/0 1098        [9283]   17224  70  172    31 0 0        0 gNO                               JUMP IF A == 0
7/0/0 6020         [9284]   17225   4   92     6 0 0        0 AUG CTR                           AUGMENT

   Source: DavidH/Q1000140
6/0/0 6020         [9285]   17226       92     6 0 0        0                                   SELECT
1/1/2 9            [9286]   17227  12          0 0 0        9                                   SUBTRACT LITERAL
27/0/3 1098        [9287]   17228  73  172    31 0 0        0 gOK, NOT >8 TX AREAS              JUMP IF A < 0
1/1/3 5            [9288]   17229  10          0 0 0        5                                   SELECT LITERAL
24/1/0 1083        [9289]   17230  76  172    18 0 0        0 gREPORT, IGNORE                   JUMP unconditional
6/0/0 5294         [9290]   17231        1     2 0 0        0                                   SELECT
26/0/0 1358        [9291]   17232  80  183     2 0 0        0 gDECODE SEC NUMBER                ENTER SUBROUTINE
0/0/2 90           [9292]   17233  34   12    40 0 0        0                                   SET (N) IN B
15/0/3 122         [9293]   17234  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/1 1096        [9294]   17235  71  172    29 0 0        0 gSECTION ALREADY USED             JUMP IF A != 0
0/0/3 0            [9295]   17236  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 90           [9296]   17237       12    40 0 0        0                                   SELECT
7/0/3 122          [9297]   17238   4   12    72 0 3        0 SET 'i AM A SECTION' IND          AUGMENT
6/0/0 5296         [9298]   17239        1     4 0 0        0                                   SELECT
27/0/0 1111        [9299]   17240  70  172    44 0 0        0 gNOT TX AREA                      JUMP IF A == 0
6/0/0 90           [9300]   17241       12    40 0 0        0                                   SELECT
18/0/3 10          [9301]   17242  31          0 0 0       10                                   SHIFT (A) BY BITS
7/0/3 122          [9302]   17243   4   12    72 0 3        0 SET 'i AM A TX AREA' IND          AUGMENT
0/0/3 5095         [9303]   17244  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/0 4099        [9304]   17245  80  289     2 0 0        0 gWRITE PREVINS BLOCK              ENTER SUBROUTINE
24/0/2 1156        [9305]   17246  52    8     4 0 0        0                                   EDIT
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/2 4           [9307]   17247   C  175    12 0 0        0                                   
1/1/3 1            [9308]   17248  10          0 0 0        1                                   SELECT LITERAL
7/0/0 59           [9309]   17249   4   12     9 0 0        0 STEP SERIAL CTR                   AUGMENT
24/0/2 5320        [9310]   17250  55    1    28 1 0       18 ANNOTATION                        BULK COPY
18/1/0 4123        [9311]   17251   C    8    32 1 0        0                                   
1/1/3 18           [9312]  
18/1/1 5           [9313]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 32          [9315]  
26/0/1 1068        [9316]   17252  82  172     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 173 at location 1125 in chapter 3 [9317]
                   [9317]   17300 PROCR  173                    TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION 
0/0/0 0            [9317]   17302  81  173     2 0 0        0                                   START OF SUBROUTINE
26/0/0 4204        [9318]   17303  80  294     2 0 0        0 gTEST AMEND DIRECTIVE/END         ENTER SUBROUTINE
27/0/0 1135        [9319]   17304  70  173    12 0 0        0 gNO                               JUMP IF A == 0
6/0/0 5295         [9320]   17305        1     3 0 0        0 TOPCHAR OF SERIAL NUMBER          SELECT
18/0/1 4125        [9321]   17306  30          0 0 0       3-                                   SHIFT (A) BY QUARTETS
1/1/2 91           [9322]   17307  12          0 0 0       5e *                                 SUBTRACT LITERAL
27/0/0 1134        [9323]   17308  70  173    11 0 0        0 gIS MOD TO SECTIONS               JUMP IF A == 0
1/1/3 1            [9324]   17309  10          0 0 0        1                                   SELECT LITERAL
2/0/0 95           [9325]   17310   5   12    45 0 0        0                                   TRANSFER
1/1/3 1            [9326]   17311  10          0 0 0        1                                   SELECT LITERAL
26/0/1 1125        [9327]   17312  82  173     2 0 0        0 (A)=0 IF NOT DIRECTIVE            END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 174 at location 1136 in chapter 3 [9328]
                   [9328]   17400 PROCR  174                    TEST MT AT START OF CODING        
0/0/0 0            [9328]   17402  81  174     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6311         [9329]   17403       27     1 0 0        0                                   SELECT
27/0/0 1143        [9330]   17404  70  174     8 0 0        0 gSINGLE RECORD BLOCKS             JUMP IF A == 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 12           [9332]   17405        7    12 1 0        0 DIRECTIVE WORD                    SELECT
26/0/0 4006        [9333]   17406  80  287     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1136        [9334]   17407  82  174     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 10           [9336]   17408        7    10 1 0        0                                   SELECT
24/1/0 1141        [9337]   17409  76  174     6 0 0        0                                   JUMP unconditional

  Start of procedure 175 at location 1146 in chapter 3 [9338]
                   [9338]   17500 TABLE  175     1 1                                              
0/0/1 5294         [9338]   17502    1  2    0  0 2 0  5  0  0  0 0 0 0  FILE IDENTITY==FILES LINE
3/0/0 5            [9339]  
0/0/1 5296         [9340]   17504    1  4    0  0 0 0  5  0  0  5 0 0 0  RTE TYPE
0/0/2 4101         [9341]  
0/0/1 5298         [9342]   17506    1  6    0  0 0 0  5  0  0  5 0 0 0  RETN PERIOD
0/0/2 4101         [9343]  
0/0/1 5300         [9344]   17508    1  8    0  0 0 0  5  0  0  5 0 0 0  MAX BLOCK
0/0/2 4101         [9345]  
0/0/1 5302         [9346]   17510    1 10    0  0 0 0  5  0  0  5 0 0 1  ALT ROUTE
16/0/2 4101        [9347]  

   Source: DavidH/Q1000141
0/0/1 4734         [9348]   17512  319  8    0  0 2 0  1  0  0  0 0 0 0  *
3/0/0 1            [9349]  
0/0/1 59           [9350]   17514   12  9    0  0 0 0  4  1  0  3 0 0 0  SECTION SERIAL NUMBER
0/0/1 4356         [9351]  
0/0/1 5294         [9352]   17516    1  2    0  0 0 0  5  0  0  4 0 0 0  SECTION==SECTION LINE
0/0/2 5            [9353]  
0/0/1 5295         [9354]   17518    1  3    0  0 0 0  5  0  0  4 0 0 0  LENGTH
0/0/2 5            [9355]  
0/0/1 5296         [9356]   17520    1  4    0  0 0 0  5  0  0  4 0 0 0  TX AREA IND
0/0/2 5            [9357]  
0/0/1 5297         [9358]   17522    1  5    0  0 0 0  5  0  0  4 0 0 0  CHAPTER
0/0/2 5            [9359]  
0/0/1 5298         [9360]   17524    1  6    0  0 0 0  5  0  0  5 0 0 1  AMEND IND
16/0/2 4101        [9361]  
0/0/1 5292         [9362]   17526    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101         [9363]  
0/0/1 5294         [9364]   17528    1  2    0  0 2 0  5  0  0  0 0 0 1  'CHAPS'
19/0/0 5           [9365]  
0/0/1 51           [9366]   17530   12  1    0  0 0 0  5  0  0  4 0 0 1  FOR UPDATED SERIAL
16/0/2 5           [9367]  
0/0/1 5292         [9368]   17532    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101         [9369]  
0/0/1 5294         [9370]   17534    1  2    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5            [9371]  
0/0/1 5296         [9372]   17536    1  4    0  0 0 0  5  0  0  5 0 0 0  
0/0/2 4101         [9373]  
0/0/1 5298         [9374]   17538    1  6    0  0 0 0  5  0  0  4 0 0 0  
0/0/2 5            [9375]  
0/0/1 5300         [9376]   17540    1  8    0  0 2 0  5  0  0  0 0 0 0  SERIAL/CODER
3/0/0 5            [9377]  
0/0/1 5302         [9378]   17542    1 10    0  0 1 0 10  0  0 10 0 0 0  (SPACER)
2/1/1 10           [9379]  
0/0/1 5302         [9380]   17544    1 10    0  0 0 0  5  0  0  5 0 0 1  (SPACER)
16/0/2 4101        [9381]  

  Start of procedure 176 at location 1190 in chapter 3 [9382]
                   [9382]   17600 PROCR  176                    CHECK PERFORATING IN PROGM BLOCK  
                   [9382]   17601 NOTES                                                           
0/0/0 0            [9382]   17602  81  176     2 0 0        0                                   START OF SUBROUTINE
6/0/0 5296         [9383]   17603        1     4 0 0        0 SUITE                             SELECT
1/1/2 4096         [9384]   17604  12          0 0 0     1000                                   SUBTRACT LITERAL
27/0/3 1196        [9385]   17605  73  176     8 0 0        0 gOK                               JUMP IF A < 0
1/1/3 65           [9386]   17606  10          0 0 0       41                                   SELECT LITERAL
26/0/0 1212        [9387]   17607  80  177     2 0 0        0 gREPORT*P1                        ENTER SUBROUTINE
6/0/0 5298         [9388]   17608        1     6 0 0        0 JOB                               SELECT
1/1/2 256          [9389]   17609  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 1201        [9390]   17610  73  176    13 0 0        0 gOK                               JUMP IF A < 0
1/1/3 66           [9391]   17611  10          0 0 0       42                                   SELECT LITERAL
26/0/0 1212        [9392]   17612  80  177     2 0 0        0 gREPORT*P2                        ENTER SUBROUTINE
6/0/0 5296         [9393]   17613        1     4 0 0        0                                   SELECT
4/0/0 5298         [9394]   17614   1    1     6 0 0        0                                   ADD
27/0/1 1206        [9395]   17615  71  176    18 0 0        0 gOK                               JUMP IF A != 0
1/1/3 67           [9396]   17616  10          0 0 0       43                                   SELECT LITERAL
26/0/0 1212        [9397]   17617  80  177     2 0 0        0 gREPORT*P3                        ENTER SUBROUTINE
6/0/0 6044         [9398]   17618       92    30 0 0        0                                   SELECT
27/0/1 1209        [9399]   17619  71  176    21 0 0        0 gAMEND RUN                        JUMP IF A != 0
2/1/0 5300         [9400]   17620   5    1     8 1 0        0 CLEAR SERIAL NUMBER               TRANSFER
1/1/3 0            [9401]   17621  10          0 0 0        0                                   SELECT LITERAL
2/0/0 52           [9402]   17622   5   12     2 0 0        0 CLEAR CTR                         TRANSFER
26/0/1 1190        [9403]   17623  82  176     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 177 at location 1212 in chapter 3 [9404]
                   [9404]   17700 PROCR  177                    ERROR REPORT SR                   
0/0/0 0            [9404]   17702  81  177     2 0 0        0                                   START OF SUBROUTINE
2/0/0 54           [9405]   17703   5   12     4 0 0        0                                   TRANSFER
26/1/3 52          [9406]   17704  91   12     2 0 3        0 CTR                               SET MODIFICATION REGISTER AT VARIABLE
6/1/0 4734         [9407]   17705      319     8 1 0        0 ;*;                               SELECT
4/0/0 54           [9408]   17706   1   12     4 0 0        0 REPORT NUMBER                     ADD
4/0/0 53           [9409]   17707   1   12     3 0 0        0 REPORT LETTER                     ADD
2/1/3 5330         [9410]   17708   5    1    38 1 3        0                                   TRANSFER
1/1/2 2            [9411]   17709  12          0 0 0        2                                   SUBTRACT LITERAL
7/0/0 52           [9412]   17710   4   12     2 0 0        0 REDUCE CTR                        AUGMENT
1/1/3 0            [9413]   17711  10          0 0 0        0                                   SELECT LITERAL
26/0/1 1212        [9414]   17712  82  177     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 178 at location 1223 in chapter 3 [9415]
                   [9415]   17800 PROCR  178                    REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS 
0/0/0 0            [9415]   17802  81  178     2 0 0        0 (12/119=DEC PROCR)                START OF SUBROUTINE
6/0/0 169          [9416]   17803       12   119 0 0        0                                   SELECT
26/0/0 2771        [9417]   17804  80  245     2 0 0        0 gBIN                              ENTER SUBROUTINE

   Source: RayS/Q1000142
18/1/3 3           [9418]   17805  33          0 0 0       1-                                   SHIFT (AB) BY BITS
18/1/1 4127        [9419]  
2/1/0 4818         [9420]   17806   5  320    42 1 0        0                                   TRANSFER
26/1/1 4818        [9421]   17807  91  320    42 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
27/1/0 1236        [9422]   17808  74  178    12 0 0        0 gEVEN                             JUMP IF AB == 0        // 27, 1, 0
24/0/3 0    Extra code needed to address 5614 from 9423 (different chapter)
6/0/1 5614         [9424]   17809       18   50- 0 1        0                                   SELECT
18/0/3 2           [9425]   17810  31          0 0 0      10-                                   SHIFT (A) BY BITS
18/0/1 4125        [9426]  
24/1/0 1239        [9427]   17811  76  178    14 0 0        0                                   JUMP unconditional
0/0/2 4746         [9428]   17812  34  319    20 0 0        0 BITS 1-10                         SET (N) IN B
24/0/3 0    Extra code needed to address 5614 from 9429 (different chapter)
15/0/1 5614        [9430]   17813  36   18   50- 0 1        0                                   COLLATE AND ADD
26/0/0 2765        [9431]   17814  80  244     2 0 0        0 gDEC                              ENTER SUBROUTINE
26/0/1 1223        [9432]   17815  82  178     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
31/1/3 8191        [9433]  

  Start of procedure 179 at location 1242 in chapter 3 [9434]
                   [9434]   17900 TABLE  179   179 3 3          UNPACK PROGM/ENTRY/SECTION        
0/0/1 5294         [9434]   17902    1  2    0  0 2 0  5  0  0  0 0 0 0  PROGM/ENTRY
3/0/0 5            [9435]  
0/0/1 5296         [9436]   17904    1  4    0  0 1 0  3  0  0  0 0 0 0  SUITE NO/E POINT
2/0/0 3            [9437]  
0/0/1 5298         [9438]   17906    1  6    0  0 1 0  2  0  0  0 0 0 0  JOB NO/PRIORITY CLASS
2/0/0 2            [9439]  
0/0/1 5300         [9440]   17908    1  8    0  0 2 0  5  0  0  0 0 0 0  SERIAL, VERSION, BLANK/CODER
3/0/0 5            [9441]  
0/0/1 5308         [9442]   17910    1 16    0  0 2 1  5  0  0  0 0 0 1  /////ANNOTATION/CHECKER
27/0/0 5           [9443]  
0/0/1 98           [9444]   17912   12 48    0  0 0 0  2  0  0  0 0 0 0  FILES DESCRIPTION-SERIAL NO
0/0/0 2            [9445]  
0/0/1 5294         [9446]   17914    1  2    0  0 2 0  2  0  0  0 0 0 0  FILE ID
3/0/0 2            [9447]  
0/0/1 5296         [9448]   17916    1  4    0  0 1 0  2  0  0  0 0 0 0  ROUTE TYPE
2/0/0 2            [9449]  
0/0/1 5298         [9450]   17918    1  6    0  0 1 0  2  0  0  0 0 0 0  CHAPTER
2/0/0 2            [9451]  
0/0/1 5300         [9452]   17920    1  8    0  0 1 0  4  0  0  0 0 0 0  BLOCK LENGTH
2/0/0 4            [9453]  
0/0/1 5302         [9454]   17922    1 10    0  0 1 0  4  0  0  0 0 0 0  ALT ROUTE IND
2/0/0 4            [9455]  
0/0/1 5320         [9456]   17924    1 28    0  0 2 0  5  0  0  0 0 0 1  ANNOTATION
19/0/0 5           [9457]  
0/0/1 98           [9458]   17926   12 48    0  0 0 0  6  0  0  0 0 0 0  /////SERIAL-SEC DESCRIPTION
0/0/0 6            [9459]  
0/0/1 5294         [9460]   17928    1  2    0  0 0 0  2  0  0  0 0 0 0  SECTION NO
0/0/0 2            [9461]  
0/0/1 5295         [9462]   17930    1  3    0  0 0 0  4  0  0  0 0 0 0  LENGTH
0/0/0 4            [9463]  
0/0/1 5296         [9464]   17932    1  4    0  0 0 0  1  0  0  0 0 0 0  TX?
0/0/0 1            [9465]  
0/0/1 5297         [9466]   17934    1  5    0  0 0 0  2  0  0  0 0 0 0  CHAP NO
0/0/0 2            [9467]  
0/0/1 5320         [9468]   17936    1 28    0  0 2 0  5  0  0  0 0 0 1  ANNOTATION
19/0/0 5           [9469]  
0/0/1 5294         [9470]   17938    1  2    0  0 2 0  5  0  0  0 0 0 0  'AMEND'
3/0/0 5            [9471]  
0/0/1 5296         [9472]   17940    1  4    0  0 1 0  3  0  0  0 0 0 0  SUITE NO
2/0/0 3            [9473]  
0/0/1 5298         [9474]   17942    1  6    0  0 1 0  2  0  0  0 0 0 0  JOB NO
2/0/0 2            [9475]  
0/0/1 5300         [9476]   17944    1  8    0  0 2 0  2  0  0  0 0 0 0  (ISSUE+SERIAL)/ISSUE
3/0/0 2            [9477]  
0/0/1 5312         [9478]   17946    1 20    0  0 2 0  3  0  0  0 0 0 0  (WORDS ETC)/SERIAL
3/0/0 3            [9479]  
0/0/1 5308         [9480]   17948    1 16    0  0 0 0  1  0  0  0 0 0 0  ''PRINT PASS 3'' IND
0/0/0 1            [9481]  
0/0/1 5309         [9482]   17950    1 17    0  0 0 0  3  0  0  0 0 0 0  NEW ISSUE
0/0/0 3            [9483]  
0/0/1 5310         [9484]   17952    1 18    0  0 2 0  1  0  0  0 0 0 1  PTS IND(CARDS)
19/0/0 1           [9485]  

  Start of procedure 180 at location 1294 in chapter 3 [9486]
                   [9486]   18000 TABLE  180     3 3            UNPACK CHAPS BLOCK                
0/0/1 5294         [9486]   18002    1  2    0  0 2 0  5  0  0  0 0 0 0  CHAPS'
3/0/0 5            [9487]  
0/0/1 5296         [9488]   18004    1  4    0  0 0 0  2  0  0  0 0 0 0  NO OF CHAPS
0/0/0 2            [9489]  
0/0/1 5297         [9490]   18006    1  5    0  0 0 0  3  0  0  0 0 0 0  1-ST START
0/0/0 3            [9491]  
0/0/1 5298         [9492]   18008    1  6    0  0 0 0  3  0  0  0 0 0 0  2-ND START
0/0/0 3            [9493]  
0/0/1 5299         [9494]   18010    1  7    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9495]  
0/0/1 5300         [9496]   18012    1  8    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9497]  
0/0/1 5301         [9498]   18014    1  9    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9499]  
0/0/1 5302         [9500]   18016    1 10    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9501]  
0/0/1 5303         [9502]   18018    1 11    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9503]  
0/0/1 5304         [9504]   18020    1 12    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9505]  
0/0/1 5305         [9506]   18022    1 13    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9507]  
0/0/1 5306         [9508]   18024    1 14    0  0 0 0  3  0  0  0 0 0 0  10-TH START
0/0/0 3            [9509]  
0/0/1 5307         [9510]   18026    1 15    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9511]  
0/0/1 5308         [9512]   18028    1 16    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9513]  
0/0/1 5309         [9514]   18030    1 17    0  0 0 0  3  0  0  0 0 0 0  
0/0/0 3            [9515]  
0/0/1 5310         [9516]   18032    1 18    0  0 0 0  3  0  0  0 0 0 1  14-TH START
16/0/0 3           [9517]  

   Source: RayS/Q1000143

  Start of procedure 181 at location 1326 in chapter 3 [9518]
                   [9518]   18100 CONST  181       1            FUNCTIONAL                        
0/0/0 153          [9518]   18102 (D)100099;            UPPER/LOWER LIM SEC NUMBER        00099 +00001
0/0/0 1            [9519]  
0/0/2 150          [9520]   18104 4096;                 DO LENGTH                         04096 +00000
0/0/0 0            [9521]  
0/0/0 1            [9522]   18106 1;                    DO TX AREA IND                    00001 +00000
0/0/0 0            [9523]  
0/0/0 0            [9524]   18108 0;                    DO CHAP NUMBER                    00000 +00000
0/0/0 0            [9525]  
15/0/0 7967        [9526]   18110 1p1p1p1p1p;                                             F1F1F +1F1F1
1/1/3 4593         [9527]  
6/0/2 5988         [9528]   18112 (A)PROGM;                                               65764 +67696
6/0/3 5782         [9529]  
3/0/3 2424         [9530]   18114 ENTRY;                                                  36978 +55657
5/0/2 5719         [9531]  
5/0/3 1364         [9532]   18116 AMEND;                                                  56554 +51645
5/0/0 5701         [9533]  
1/0/3 1906         [9534]   18118 CHAPS;                                                  16772 +53585
5/0/1 5509         [9535]  
2/0/3 4697         [9536]   18120 PASSI;                                                  27259 +67517
6/0/3 5399         [9537]  
6/0/3 2389         [9538]   18122 STORE;                                                  66955 +72736
7/0/1 1846         [9539]  

  Start of procedure 182 at location 1348 in chapter 3 [9540]
                   [9540]   18200 CONST  182       1            DUMMY                             
0/0/0 0            [9540]   18202 (B)0;                                                   00000 +00000
0/0/0 0            [9541]  
0/0/0 0            [9542]   18204 ;                                                       00000 +00000
0/0/0 0            [9543]  
0/0/0 0            [9544]   18206 ;                                                       00000 +00000
0/0/0 0            [9545]  
0/0/0 0            [9546]   18208 ;                                                       00000 +00000
0/0/0 0            [9547]  
0/0/0 0            [9548]   18210 ;                                                       00000 +00000
0/0/0 0            [9549]  

  Start of procedure 183 at location 1358 in chapter 3 [9550]
                   [9550]   18300 PROCR  183                    DECODE SECTION NUMBER             
                   [9550]   18301 NOTES      RADIX D            BITS 1-10 OF 10 LOCATIONS         
0/0/0 0            [9550]   18302  81  183     2 0 0        0                                   START OF SUBROUTINE
27/0/0 1368        [9551]   18303  70  183    11 0 0        0 gZERO SECTION                     JUMP IF A == 0
18/1/1 4127        [9552]   18304  32          0 0 0       1- DIVIDE BY 10                      SHIFT (AB) BY QUARTETS
24/0/3 22          [9553]   18305  92          0 0 3        0 SET MODIFIER=LOCN;CLEAR A         SET MODIFIER AT VARIABLE
2/0/0 6            [9554]  
18/1/1 1           [9555]   18306  32          0 0 0        1 REMAINDER                         SHIFT (AB) BY QUARTETS
2/0/0 90           [9556]   18307   5   12    40 0 0        0 WL                                TRANSFER
1/1/3 1            [9557]   18308  10          0 0 0        1                                   SELECT LITERAL
24/0/0 90          [9558]   18309 124   12    40 0 0        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0           [9559]   18310  31          0 0 0        0 /////                             SHIFT (A) BY BITS
2/0/0 90           [9560]   18311   5   12    40 0 0        0 STORE COLLATION BIT               TRANSFER
26/0/1 1358        [9561]   18312  82  183     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 184 at location 1370 in chapter 3 [9562]
                   [9562]   18400 CONST  184       1 0        0 DUMMY                             

  Start of procedure 185 at location 1370 in chapter 3 [9562]
                   [9562]   18500 PROCR  185                    MAIN LOOP-DEAL WITH INITIAL TRANSLATION 
                   [9562]   18501 NOTES      RADIX                                                
24/0/3 0    Extra code needed to address 5664 from 9562 (different chapter)
24/0/2 5664        [9563]   18502  55   18     0 0 0     1010 COPY CURRENT AMEND DETAILS        BULK COPY
18/1/0 4123        [9564]   18503   C   93     0 0 0        0                                   
1/1/3 1010         [9565]  
18/1/1 5           [9566]  
28/0/0 170         [9567]  
6/1/0 5190         [9568]   18504  54   29     0 1 0       44                                   BULK CLEAR
28/1/1 5384        [9569]  
1/1/3 2            [9570]   18505  83  191     2 0 0        2 SAFETY SETTINGS                   SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8168         [9571]  
1/1/3 1            [9572]   18506  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6315         [9573]   18507   5   27     5 0 0        0 UNPACK SWITCH                     TRANSFER
6/0/0 6044         [9574]   18508   0   92    30 0 0        0                                   SELECT
3/1/0 58           [9575]   18509   3   12     8 1 0        0 (CLEAR 12/9)                      COPY
27/0/0 1395        [9576]   18510  70  185    14 0 0        0 gINITIAL TRANSLATION              JUMP IF A == 0
0/1/0 40           [9577]   18511  59    7     6 0 8        0 SET I/P MR                        SET MODIFICATION REGISTER FOR MERGE
0/0/3 0            [9578]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 6           [9580]  
3/0/0 8178         [9581]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
4/1/0 5            [9583]   18512   C    7     4 2 0        0                                   SET MODIFICATION REGISTER FOR MERGE
2/0/0 8179         [9584]  
0/1/1 40           [9585]  
24/1/0 2941        [9586]   18513  76  251     2 0 0        0                                   JUMP unconditional
1/1/3 1            [9587]   18514  10          0 0 0        1                                   SELECT LITERAL
2/0/0 83           [9588]   18515   5   12    33 0 0        0 SET 'PT INS INPUT'                TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [9590]   18516        9     4 1 0        0                                   SELECT
18/0/1 4124        [9591]   18517  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4           [9592]   18518  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 4740         [9593]   18519   2  319    14 1 0        0 'END  '                           SUBTRACT
27/0/0 4835        [9594]   18520  70  322     2 0 0        0 gEND OF INITIAL TRANSLATION       JUMP IF A == 0

   Source: RayS/Q1000144
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [9596]   18521        9     4 1 0        0                                   SELECT
5/1/0 4772         [9597]   18522   2  319    46 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 4835        [9598]   18523  70  322     2 0 0        0                                   JUMP IF A == 0
24/0/1 6320        [9599]   18524  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 1408        [9600]  
0/0/1 1411         [9601] s 18525   C  185    27 0 0        0 gPT                               
0/0/1 1414         [9602] s 18526   C  185    29 0 0        0 gCARDS                            
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4            [9604]   18527        9     4 1 0        0                                   SELECT
24/1/0 1416        [9605]   18528  76  185    30 0 0        0                                   JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 8            [9607]   18529        9     8 1 0        0                                   SELECT
26/0/0 4006        [9608]   18530  80  287     2 0 0        0 gTEST STACK DIRECTIVE             ENTER SUBROUTINE
26/0/0 3815        [9609]   18531  80  283     2 0 0        0 gUNPACK PT                        ENTER SUBROUTINE
26/0/0 1421        [9610]   18532  80  186     2 0 0        0 gCHECK/EDIT/OUTPUT                ENTER SUBROUTINE
26/0/0 4130        [9611]   18533  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
24/1/0 1397        [9612]   18534  76  185    16 0 0        0 gLOOP TILL END                    JUMP unconditional

  Start of procedure 186 at location 1421 in chapter 3 [9613]
                   [9613]   18600 PROCR  186                    START OF CHECK/EDIT/OUTPUT SR     
                   [9613]   18601 NOTES      RADIX                                                
0/0/0 0            [9613]   18602  81  186     2 0 0        0                                   START OF SUBROUTINE
6/0/0 88           [9614]   18603       12    38 0 0        0 STACKING DIRECTIVE                SELECT
27/0/0 1523        [9615]   18604  70  190     2 0 0        0 NO                                JUMP IF A == 0
27/0/2 1539        [9616]   18605  72  191     2 0 0        0 g'NOTES' BLOCK                    JUMP IF A >= 0
6/0/0 111          [9617]   18606       12    61 0 0        0 C-LINE MUST FOLLOW                SELECT
27/0/0 1428        [9618]   18607  70  186     9 0 0        0 INDICATOR                         JUMP IF A == 0
26/0/0 4252        [9619]   18608  80  296     2 0 0        0 IGNORE THIS INSTRUCTION           ENTER SUBROUTINE
6/0/0 104          [9620]   18609       12    54 0 0        0                                   SELECT
1/1/2 85           [9621]   18610  12          0 0 0       55                                   SUBTRACT LITERAL
27/0/0 1433        [9622]   18611  70  186    14 0 0        0                                   JUMP IF A == 0
1/1/3 0            [9623]   18612  10          0 0 0        0                                   SELECT LITERAL
2/1/0 110          [9624]   18613   5   12    60 1 0        0                                   TRANSFER
2/0/0 59           [9625]   18614   5   12     9 0 0        0                                   TRANSFER
2/0/0 93           [9626]   18615   5   12    43 0 0        0 CLEAR LINE INCREMENT FOR 'SER' CHECKS TRANSFER
6/0/0 6044         [9627]   18616       92    30 0 0        0                                   SELECT
27/0/1 1442        [9628]   18617  71  186    22 0 0        0 gAMEND RUN                        JUMP IF A != 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51           [9630]   18618        9    50 2 0        0 PASS 0 DOESN'T LIKE IT' IND       SELECT
27/0/0 1442        [9631]   18619  70  186    22 0 0        0 gOK                               JUMP IF A == 0
6/1/0 4766         [9632]   18620      319    40 1 0        0 ????R'                            SELECT
2/1/0 5336         [9633]   18621   5    1    44 1 0        0                                   TRANSFER
6/0/0 6315         [9634]   18622       27     5 0 0        0                                   SELECT
1/1/2 4            [9635]   18623  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/0 1491        [9636]   18624  70  187    38 0 0        0 gVALUE (DIRECTIVE OR DATA)        JUMP IF A == 0
6/0/0 6017         [9637]   18625       92     3 0 0        0                                   SELECT
1/1/1 1            [9638]   18626  11          0 0 0        1 FORM TRANSLATORS PROCR            ADD LITERAL
3/0/0 6017         [9639]   18627   3   92     3 0 0        0                                   COPY
3/0/0 50           [9640]   18628   3   12     0 0 0        0                                   COPY
2/0/0 54           [9641]   18629   5   12     4 0 0        0                                   TRANSFER

  Start of procedure 187 at location 1450 in chapter 3 [9642]
                   [9642]   18700 PROCR  187                    TEST NEW CHAPTER                  
6/1/0 5301         [9642]   18702        1     8 2 0        0                                   SELECT
18/0/1 4126        [9643]   18703  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
3/0/0 5306         [9644]   18704   3    1    14 0 0        0 B/FWD PROCR                       COPY
26/0/0 1619        [9645]   18705  80  200     2 0 0        0 gREPLACE PROCR                    ENTER SUBROUTINE
24/1/0 1456        [9646]  
0/0/1 1673         [9647]   18706   C  202     2 0 0        0                                   
5/0/0 6017         [9648]   18707   2   92     3 0 0        0                                   SUBTRACT
27/0/0 1460        [9649]   18708  70  187    11 0 0        0 gOK PASS 0 HASN'T BOOBED          JUMP IF A == 0
6/1/0 4766         [9650]   18709      319    40 1 0        0 ????R'                            SELECT
2/1/0 5336         [9651]   18710   5    1    44 1 0        0                                   TRANSFER
24/0/2 4434        [9652]   18711  52    1     8 0 0        0 EDIT NEW PROCR                    EDIT
28/1/2 5300        [9653]   18712   C  306     2 0 0        0                                   

   Source: ChuckK/Q1000145
6/0/0 6314         [9654]   18713       27     4 0 0        0                                   SELECT
27/0/1 1468        [9655]   18714  71  187    19 0 0        0 >COMPILER.DONT SET IND            JUMP IF A != 0
6/0/0 5306         [9656]   18715        1    14 0 0        0 OLD                               SELECT
5/0/0 54           [9657]   18716   2   12     4 0 0        0 NEW                               SUBTRACT
27/0/0 1468        [9658]   18717  70  187    19 0 0        0 >PROCR DOESNT CHANGE              JUMP IF A == 0
26/0/0 1494        [9659]   18718  80  188     2 0 0        0 >SET 'PRINT PROCR'                ENTER SUBROUTINE
6/0/0 6017         [9660]   18719       92     3 0 0        0                                   SELECT
1/1/2 256          [9661]   18720  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/1 1474        [9662]   18721  71  187    25 0 0        0 >NOT FIRST TIME THROUGH           JUMP IF A != 0
6/0/0 50           [9663]   18722   0   12     0 0 0        0 FIRST CODERS PROCR                SELECT
2/0/0 64           [9664]   18723   5   12    14 0 0        0 SET AS FIRST CHAP START           TRANSFER
24/1/0 1484        [9665]   18724  76  187    33 0 0        0                                   JUMP unconditional
24/0/1 8184        [9666]   18725       12    14 0 4        0                                   SELECT
6/0/0 64           [9667]  
5/0/0 50           [9668]   18726   2   12     0 0 0        0                                   SUBTRACT
27/0/1 1491        [9669]   18727  71  187    38 0 0        0 >THIS PROCR IS NOT A CHAPTER START JUMP IF A != 0
6/0/0 6017         [9670]   18728       92     3 0 0        0                                   SELECT
1/1/2 1            [9671]   18729  12          0 0 0        1                                   SUBTRACT LITERAL
26/0/0 2771        [9672]   18730  80  245     2 0 0        0 >CHAP END IN BIN                  ENTER SUBROUTINE
18/0/1 2           [9673]   18731  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
24/0/1 8184        [9674]   18732   4   92     9 0 4        0 STORE CHAP END POINT              AUGMENT
7/0/0 6023         [9675]  
0/0/3 0            [9676]   18733  62          0 0 0        0                                   SET EXCESS CONSTANTS
1/1/3 1            [9677]   18734  10          0 0 0        1                                   SELECT LITERAL
7/0/0 6014         [9678]   18735   4   92     0 0 0        0 STEP UNCORR CHAP IN BIN           AUGMENT
0/0/3 5096         [9679]   18736  60          0 0 0        0                                   SET DECIMAL RADIX
23/0/0 1           [9680]   18737  94          0 0 4        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
0/0/1 8184         [9681]  
24/1/0 1491        [9682]  
1/1/3 1            [9683]   18738  83  191     2 0 0        1 SET CHECK SWITCH FOR DIRECTIVES   SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8168         [9684]  
24/1/0 1539        [9685]   18739  76  191     2 0 0        0                                   JUMP unconditional

  Start of procedure 188 at location 1494 in chapter 3 [9686]
                   [9686]   18800 PROCR  188       188    SET IND IN SEC 23 IF PROCR TO BE PRINTED                                   
0/0/0 0            [9686]   18802  81  188     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6017         [9687]   18803       92     3 0 0        0 CURRENT PROCR                     SELECT
26/0/0 2771        [9688]   18804  80  245     2 0 0        0 >BIN                              ENTER SUBROUTINE
1/0/1 0            [9689]   18805  19          0 0 0       14                                   DIVIDE LITERAL
18/1/1 4119        [9690]  
13/0/0 5097        [9691]  
2/0/0 4818         [9692]   18806   5  320    42 0 0        0                                   TRANSFER
18/1/1 9           [9693]   18807  32          0 0 0        9                                   SHIFT (AB) BY QUARTETS
2/0/0 4819         [9694]   18808   5  320    43 0 0        0 REMAINDER                         TRANSFER
0/0/2 4798         [9695]   18809  34  320    22 0 0        0 1                                 SET (N) IN B
24/0/1 4819        [9696]   18810 124  320    43 0 1        0                                   MODIFY ADDRESS OF NEXT
18/1/3 0           [9697]   18811  33          0 0 0        0 /////                             SHIFT (AB) BY BITS
6/0/0 4796         [9698]   18812      320    20 0 0        0 pX5                               SELECT
24/0/1 4818        [9699]   18813 124  320    42 0 1        0                                   MODIFY ADDRESS OF NEXT
14/0/0 6195        [9700]   18814  37   23    5- 0 0        0 SET BIT                           REPLACE SELECTED BITS
0/0/3 5098         [9701]   18815  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/1 1494        [9702]   18816  82  188     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 189 at location 1511 in chapter 3 [9703]
                   [9703]   18900 PROCR  189       189    CHECK FOR B/FWD ERROR REPORTS                                   
                   [9703]   18901 NOTES            0 0        0                                   
0/0/0 0            [9703]   18902  81  189     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5334         [9704]   18903        1    42 1 0        0 LAST  5 CHARS OF ANNOTATION       SELECT
5/1/0 4752         [9705]   18904   2  319    26 1 0        0  '?????'                          SUBTRACT
27/0/0 1521        [9706]   18905  70  189    12 0 0        0                                   JUMP IF A == 0
6/1/0 5334         [9707]   18906        1    42 1 0        0                                   SELECT
5/1/0 5192         [9708]   18907  12          0 0 0  5p5p5p5p5p FIVE SQUARES                      SUBTRACT LITERAL
27/0/0 1521        [9709]   18908  70  189    12 0 0        0                                   JUMP IF A == 0
6/1/0 5334         [9710]   18909        1    42 1 0        0                                   SELECT
5/1/0 4750         [9711]   18910   2  319    24 1 0        0  'SHEET'                          SUBTRACT
27/0/1 1522        [9712]   18911  71  189    13 0 0        0                                   JUMP IF A != 0

   Source: ChuckK/Q1000146
2/1/0 5334         [9713]   18912   5    1    42 1 0        0 CLEAR OUT REPORT                  TRANSFER
26/0/1 1511        [9714]   18913  82  189     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 190 at location 1523 in chapter 3 [9715]
                   [9715]   19000 PROCR  190            CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION                                   
                   [9715]   19001 NOTES      RADIX                                                
6/0/0 6044         [9715]   19002       92    30 0 0        0                                   SELECT
27/0/1 1539        [9716]   19003  71  191     2 0 0        0                                   JUMP IF A != 0
0/1/2 5294         [9717]   19004  34    1     2 1 0        0 RIGHT ALIGN                       SET (N) IN B
26/0/0 4826        [9718]   19005  80  321     2 0 0        0 SERIAL NO                         ENTER SUBROUTINE
6/1/0 139          [9719]   19006       12    88 2 0        0                                   SELECT
5/0/0 93           [9720]   19007   2   12    43 0 0        0                                   SUBTRACT
27/0/0 1535        [9721]   19008  70  190    14 0 0        0 SERIAL NO IS IN FACT SERIAL       JUMP IF A == 0
6/0/0 8168         [9722]   19009  86  191     2 0 0        0                                   SELECT SWITCH R
1/1/2 6            [9723]   19010  12          0 0 0        6                                   SUBTRACT LITERAL
27/0/2 1539        [9724]   19011  72  191     2 0 0        0 >NO CHECK ON PM+TRIAL DATA        JUMP IF A >= 0
6/1/0 5194         [9725]   19012  10          0 0 0   725569 PUT'SER' IN ERROR INDICATOR       SELECT LITERAL
2/1/0 5336         [9726]   19013   5    1    44 1 0        0                                   TRANSFER
6/1/0 139          [9727]   19014       12    88 2 0        0 STORE THIS SERIAL NO              SELECT
4/0/0 140          [9728]   19015   1   12    90 0 0        0 gLONG/SHORT COUNTER               ADD
1/1/1 1            [9729]   19016  11          0 0 0        1 1                                 ADD LITERAL
2/0/0 93           [9730]   19017   5   12    43 0 0        0 TO TEST NEXT INSTRUCTION          TRANSFER

  Start of procedure 191 at location 1539 in chapter 3 [9731]
                   [9731]   19100 PROCR  191       0 0  SWITCH B                                   
                   [9731]   19101 NOTES      RADIX                                                
26/0/0 1511        [9731]   19102  80  189     2 0 0        0 >DELETE B/FWD ERROR REPORTS       ENTER SUBROUTINE
6/0/0 83           [9732]   19103       12    33 0 0        0                                   SELECT
27/0/0 1546        [9733]   19104  70  191     9 0 0        0 >EX MT                            JUMP IF A == 0
6/0/0 6044         [9734]   19105       92    30 0 0        0                                   SELECT
27/0/0 1546        [9735]   19106  70  191     9 0 0        0                                   JUMP IF A == 0
26/0/0 1494        [9736]   19107  80  188     2 0 0        0 >SET'PRINT PROCR'                 ENTER SUBROUTINE
1/1/3 0            [9737]   19108  10          0 0 0        0                                   SELECT LITERAL
24/0/1 8168        [9738]   19109  85  191     2 0 0        0                                   SWITCH R
26/0/1 1547        [9739]  
0/0/1 1762         [9740]   19110   C  205     2 0 0        0 STACKING DIRECTIVE                
0/0/1 1944         [9741]   19111   C  210     2 0 0        0 INSTRUCTIONS                      
0/0/1 3616         [9742]   19112   C  276     2 0 0        0 TABLES                            
0/0/1 3195         [9743]   19113   C  260     2 0 0        0 CONSTANTS                         
0/0/1 1553         [9744] s 19114   C  191    15 0 0        0 VALUE'=5                          
6/0/0 5301         [9745]   19115   0    1     9 0 0        0 REF                               SELECT
0/0/2 5302         [9746]   19116  34    1    10 0 0        0                                   SET (N) IN B
27/1/0 1561        [9747]   19117  74  191    23 0 0        0 ZERO REF & ITEM                   JUMP IF AB == 0        // 27, 1, 0
26/0/0 3610        [9748]   19118  80  275     2 0 0        0 >UPDATE ADDRESS                   ENTER SUBROUTINE
6/0/0 54           [9749]   19119   0   12     4 0 0        0                                   SELECT
2/0/0 5301         [9750]   19120   5    1     9 0 0        0 NEW REF                           TRANSFER
26/0/0 3634        [9751]   19121  80  277     2 0 0        0 CHECK ADJUSTED REF                ENTER SUBROUTINE
24/1/0 2810        [9752]   19122  76  247     2 0 0        0 >EDIT AND OUTPUT                  JUMP unconditional
24/0/1 8167        [9753]   19123  85  108     2 0 0        0                                   SWITCH R
26/0/1 1562        [9754]  
0/0/1 2810         [9755]   19124   C  247     2 0 0        0 >LAST REF/ITEM CORRECT            
0/0/1 1565         [9756] s 19125   C  191    26 0 0        0 >LAST REF/ITEM IGNORED            
26/0/0 1584        [9757]   19126  80  195     2 0 0        0 REPORT R                          ENTER SUBROUTINE
26/0/0 4248        [9758]   19127  80  295     2 0 0        0 IGNORE THIS LINE                  ENTER SUBROUTINE
24/1/0 2810        [9759]   19128  76  247     2 0 0        0 >EDIT AND OUTPUT                  JUMP unconditional

  Start of procedure 192 at location 1568 in chapter 3 [9760]
                   [9760]   19200 PROCR  192       0 0  CHECK I IS EVEN,REPORT IF NOT                                   
                   [9760]   19201 NOTES          0 0 0        0                                   
0/0/0 0            [9760]   19202  81  192     2 0 0        0                                   START OF SUBROUTINE
2/0/0 2771         [9761]   19203   5  245     2 0 0        0 ITEM TO WL=SR LINK                TRANSFER

   Source: ChuckK/Q1000147
1/1/3 1            [9762]   19204  10          0 0 0        1                                   SELECT LITERAL
18/1/1 4118        [9763]   19205  32          0 0 0      10-                                   SHIFT (AB) BY QUARTETS
15/0/0 2771        [9764]   19206  36  245     2 0 0        0                                   COLLATE AND ADD
27/0/0 1575        [9765]   19207  70  192     9 0 0        0 >OK                               JUMP IF A == 0
26/0/0 1588        [9766]   19208  80  196     2 0 0        0 >REPORT I                         ENTER SUBROUTINE
26/0/1 1568        [9767]   19209  82  192     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 193 at location 1576 in chapter 3 [9768]
                   [9768]   19300 PROCR  193                    ERROR REPORT OF D                 
                   [9768]   19301 NOTES                                                           
0/0/0 0            [9768]   19302  81  193     2 0 0        0                                   START OF SUBROUTINE
1/1/3 84           [9769]   19303  10          0 0 0       54 D                                 SELECT LITERAL
26/0/0 1600        [9770]   19304  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1576        [9771]   19305  82  193     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 194 at location 1580 in chapter 3 [9772]
                   [9772]   19400 PROCR  194                    ERROR REPORT OF M                 
                   [9772]   19401 NOTES                                                           
0/0/0 0            [9772]   19402  81  194     2 0 0        0                                   START OF SUBROUTINE
1/1/3 100          [9773]   19403  10          0 0 0       64 M                                 SELECT LITERAL
26/0/0 1600        [9774]   19404  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1580        [9775]   19405  82  194     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 195 at location 1584 in chapter 3 [9776]
                   [9776]   19500 PROCR  195                    ERROR REPORT OF R                 
                   [9776]   19501 NOTES                                                           
0/0/0 0            [9776]   19502  81  195     2 0 0        0                                   START OF SUBROUTINE
1/1/3 105          [9777]   19503  10          0 0 0       69                                   SELECT LITERAL
26/0/0 1600        [9778]   19504  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1584        [9779]   19505  82  195     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 196 at location 1588 in chapter 3 [9780]
                   [9780]   19600 PROCR  196                    ERROR REPORT OF I                 
                   [9780]   19601 NOTES                                                           
0/0/0 0            [9780]   19602  81  196     2 0 0        0                                   START OF SUBROUTINE
1/1/3 89           [9781]   19603  10          0 0 0       59 I                                 SELECT LITERAL
26/0/0 1600        [9782]   19604  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1588        [9783]   19605  82  196     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 197 at location 1592 in chapter 3 [9784]
                   [9784]   19700 PROCR  197                    ERROR REPORT OF L                 
                   [9784]   19701 NOTES                                                           
0/0/0 0            [9784]   19702  81  197     2 0 0        0                                   START OF SUBROUTINE
1/1/3 99           [9785]   19703  10          0 0 0       63 L                                 SELECT LITERAL
26/0/0 1600        [9786]   19704  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1592        [9787]   19705  82  197     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 198 at location 1596 in chapter 3 [9788]
                   [9788]   19800 PROCR  198                    ERROR REPORT OF T                 
                   [9788]   19801 NOTES                                                           
0/0/0 0            [9788]   19802  81  198     2 0 0        0                                   START OF SUBROUTINE
1/1/3 115          [9789]   19803  10          0 0 0       73 T                                 SELECT LITERAL
26/0/0 1600        [9790]   19804  80  199     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 1596        [9791]   19805  82  198     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 199 at location 1600 in chapter 3 [9792]
                   [9792]   19900 PROCR  199                    MAKE ERROR REPORT                 
                   [9792]   19901 NOTES                                                           
0/0/0 0            [9792]   19902  81  199     2 0 0        0                                   START OF SUBROUTINE
18/1/1 4118        [9793]   19903  32          0 0 0      10-                                   SHIFT (AB) BY QUARTETS
6/1/0 5336         [9794]   19904        1    44 1 0        0 TEST REPORT ALREADY MADE          SELECT
18/0/1 4126        [9795]   19905  30          0 0 0       2- WITH '????'                       SHIFT (A) BY QUARTETS
5/1/0 5196         [9796]   19906  12          0 0 0  5:5:5:5:                                   SUBTRACT LITERAL
27/0/0 1618        [9797]   19907  70  199    20 0 0        0 >YES,DON'T CORRUPT IT             JUMP IF A == 0
6/1/0 5336         [9798]   19908        1    44 1 0        0                                   SELECT
5/1/0 5198         [9799]   19909  12          0 0 0   725569  'SER'                            SUBTRACT LITERAL
27/0/1 1610        [9800]   19910  71  199    12 0 0        0                                   JUMP IF A != 0

   Source: ChuckK/Q1000148
2/1/0 5336         [9801]   19911   5    1    44 1 0        0 LET OTHERS TAKE PRECEDENCE        TRANSFER
1/1/3 0            [9802]   19912  10          0 0 0        0                                   SELECT LITERAL
18/1/1 10          [9803]   19913  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/1/2 165         [9804]   19914 124   12   115 1 2        0                                   MODIFY ADDRESS OF NEXT
18/0/1 0           [9805]   19915  30          0 0 0        0 /////                             SHIFT (A) BY QUARTETS
7/1/0 5336         [9806]   19916   4    1    44 1 0        0                                   AUGMENT
1/1/3 2            [9807]   19917  10          0 0 0        2                                   SELECT LITERAL
4/0/0 165          [9808]   19918   1   12   115 0 0        0                                   ADD
2/0/0 165          [9809]   19919   5   12   115 0 0        0                                   TRANSFER
26/0/1 1600        [9810]   19920  82  199     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 200 at location 1619 in chapter 3 [9811]
                   [9811]   20000 PROCR  200                    REPLACE CODERS PROCR TO C/FWD VALUE  
0/0/0 0            [9811]   20002  81  200     2 0 0        0                                   START OF SUBROUTINE
3/0/0 169          [9812]   20003   3   12   119 0 0        0                                   COPY
3/0/0 168          [9813]   20004   3   12   118 0 0        0                                   COPY
1/1/2 256          [9814]   20005  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 1646        [9815]   20006  73  200    27 0 0        0 >EX RANGE                         JUMP IF A < 0
1/1/2 2201         [9816]   20007  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/2 1646        [9817]   20008  72  200    27 0 0        0 >DON'T REPLACE                    JUMP IF A >= 0
6/0/0 83           [9818]   20009       12    33 0 0        0                                   SELECT
27/0/1 1638        [9819]   20010  71  200    21 0 0        0 >EX PT                            JUMP IF A != 0
6/0/0 6310         [9820]   20011       27     0 0 0        0                                   SELECT
27/0/1 1638        [9821]   20012  71  200    21 0 0        0 >ISSUE 6 O/P                      JUMP IF A != 0
6/0/0 6314         [9822]   20013       27     4 0 0        0                                   SELECT
27/0/1 1638        [9823]   20014  71  200    21 0 0        0 >COMPILER CALLED TRANSLATOR       JUMP IF A != 0
26/0/0 1647        [9824]   20015  80  201     2 0 0        0 >REPLACE EX ISSUE 5               ENTER SUBROUTINE
27/0/1 1636        [9825]   20016  71  200    19 0 0        0 >OK                               JUMP IF A != 0
26/0/0 1584        [9826]   20017  80  195     2 0 0        0 >REPORT R                         ENTER SUBROUTINE
24/1/0 1638        [9827]   20018  76  200    21 0 0        0                                   JUMP unconditional
3/0/0 169          [9828]   20019   3   12   119 0 0        0                                   COPY
2/0/0 168          [9829]   20020   5   12   118 0 0        0                                   TRANSFER
24/0/3 1619    Extra code needed to address caller
24/0/3 1    Extra code needed to address parameter
   !!! Non-zero item in parameter
26/0/0 0           [9832]   20021  80 1001     0 0 0        0 >REPLACE EX ISSUE 6               ENTER SUBROUTINE
27/0/1 1645        [9833]   20022  71  200    26 0 0        0 >OK                               JUMP IF A != 0
6/1/0 4766         [9834]   20023      319    40 1 0        0  '????R'                          SELECT
2/1/0 5336         [9835]   20024   5    1    44 1 0        0                                   TRANSFER
26/0/1 1619        [9836]   20025  82  200     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
3/0/0 169          [9837]   20026   3   12   119 0 0        0                                   COPY
26/0/1 1619        [9838]   20027  82  200     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 201 at location 1647 in chapter 3 [9839]
                   [9839]   20100 PROCR  201                    REPLACE CODERS PROCR-ISSUE 5 O/P  
0/0/0 0            [9839]   20102  81  201     2 0 0        0 (12/119)=DEC PROCR                START OF SUBROUTINE
6/0/0 6312         [9840]   20103       27     2 0 0        0                                   SELECT
27/0/0 1652        [9841]   20104  70  201     7 0 0        0 >NOT PSEUDO-ISSUE 5 O/P           JUMP IF A == 0
6/0/0 169          [9842]   20105       12   119 0 0        0 REPLACEMENT=ITSELF                SELECT
24/1/0 1670        [9843]   20106  76  201    23 0 0        0                                   JUMP unconditional
6/0/0 169          [9844]   20107       12   119 0 0        0                                   SELECT
1/1/2 1536         [9845]   20108  12          0 0 0      600                                   SUBTRACT LITERAL
27/0/2 1671        [9846]   20109  72  201    24 0 0        0 >OUT OF RANGE                     JUMP IF A >= 0
6/0/0 169          [9847]   20110       12   119 0 0        0                                   SELECT
26/0/0 2771        [9848]   20111  80  245     2 0 0        0 >TO BIN                           ENTER SUBROUTINE
18/1/3 3           [9849]   20112  33          0 0 0       1-                                   SHIFT (AB) BY BITS
18/1/1 4127        [9850]  
2/0/0 2771         [9851]   20113   5  245     2 0 0        0 SR LINK                           TRANSFER
27/1/0 1666        [9852]   20114  74  201    19 0 0        0 >EVEN                             JUMP IF AB == 0        // 27, 1, 0
24/0/1 2771        [9853]   20115 124  245     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 5500         [9854]   20116       53   50- 0 0        0                                   SELECT
18/0/3 2           [9855]   20117  31          0 0 0      10-                                   SHIFT (A) BY BITS
18/0/1 4125        [9856]  

   Source: TonyJ/Q1000149
24/1/0 1669        [9857]   20118  76  201    22 0 0        0                                   JUMP unconditional
0/0/2 4746         [9858]   20119  34  319    20 0 0        0 BITS 1 -10                        SET (N) IN B
24/0/1 2771        [9859]   20120 124  245     2 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 5500        [9860]   20121  36   53   50- 0 0        0                                   COLLATE AND ADD
26/0/0 2765        [9861]   20122  80  244     2 0 0        0 > TO DEC                          ENTER SUBROUTINE
26/0/1 1647        [9862]   20123  82  201     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
1/1/3 0            [9863]   20124  10          0 0 0        0                                   SELECT LITERAL
26/0/1 1647        [9864]   20125  82  201     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 202 at location 1673 in chapter 3 [9865]
                   [9865]   20200 PROCR  202       202    REPLACE CODERS PROCR-ISSUE 6 O/P                                   
0/0/0 0            [9865]   20202  81  202     2 0 0        0 (12/119-DEC PROCR)                START OF SUBROUTINE
6/0/0 169          [9866]   20203       12   119 0 0        0                                   SELECT
26/0/0 2771        [9867]   20204  80  245     2 0 0        0 > TO BIN                          ENTER SUBROUTINE
18/1/3 3           [9868]   20205  33          0 0 0       1-                                   SHIFT (AB) BY BITS
18/1/1 4127        [9869]  
2/0/0 2771         [9870]   20206   5  245     2 0 0        0                                   TRANSFER
27/1/0 1685        [9871]   20207  74  202    12 0 0        0 > EVEN                            JUMP IF AB == 0        // 27, 1, 0
24/0/1 2771        [9872]   20208 124  245     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 120          [9873]   20209       93   50- 0 0        0                                   SELECT
18/0/3 2           [9874]   20210  31          0 0 0      10-                                   SHIFT (A) BY BITS
18/0/1 4125        [9875]  
24/1/0 1688        [9876]   20211  76  202    15 0 0        0                                   JUMP unconditional
0/0/2 4746         [9877]   20212  34  319    20 0 0        0 BITS 1 -10                        SET (N) IN B
24/0/1 2771        [9878]   20213 124  245     2 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 120         [9879]   20214  36   93   50- 0 0        0                                   COLLATE AND ADD
26/0/0 2765        [9880]   20215  80  244     2 0 0        0 > TO DEC                          ENTER SUBROUTINE
26/0/1 1673        [9881]   20216  82  202     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 203 at location 1690 in chapter 3 [9882]
                   [9882]   20300 PROCR  203       203    ADJUST SR-ISSUE 5 O/P                                   
0/0/0 0            [9882]   20302  81  203     2 0 0        0 (A) = SERIAL TO BE ADJUSTED       START OF SUBROUTINE
26/1/1 5200        [9883]   20303  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9884]   20304   C          0 0 0      160                                   Limit
2/0/0 108          [9884]   20305   5   12    58 0 0        0                                   TRANSFER
2/0/0 96           [9885]   20306   5   12    46 0 0        0                                   TRANSFER
1/0/1 28           [9886]   20307  35          0 0 0    11100                                   PREPARE FOR DIGIT COLLATION
15/0/0 108         [9887]   20308  36   12    58 0 0        0                                   COLLATE AND ADD
2/0/0 80           [9888]   20309   5   12    30 0 0        0 STORE PROCR                       TRANSFER
15/0/1 5804        [9889]   20310  36   54     0 0 1        0                                   COLLATE AND ADD
27/0/0 1705        [9890]   20311  70  203    17 0 0        0 > END                             JUMP IF A == 0
5/0/0 80           [9891]   20312   2   12    30 0 0        0                                   SUBTRACT
27/0/0 1708        [9892]   20313  70  203    20 0 0        0 > PROCR MATCHES                   JUMP IF A == 0
27/0/2 1705        [9893]   20314  72  203    17 0 0        0 > POINT PASSED ;END               JUMP IF A >= 0
1/1/3 0            [9894]   20315  10          0 0 0        0                                   SELECT LITERAL
25/0/1 2           [9895]   20316  94  203    10 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1697        [9896] s
6/0/0 96           [9897]   20317       12    46 0 0        0 TOTAL ADJUSTMENT                  SELECT
4/0/0 108          [9898]   20318   1   12    58 0 0        0                                   ADD
26/0/1 1690        [9899]   20319  82  203     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
6/0/0 108          [9900]   20320       12    58 0 0        0 SEARCH WITHIN PROCR               SELECT
5/0/1 5804         [9901]   20321   2   54     0 0 1        0                                   SUBTRACT
27/0/3 1702        [9902]   20322  73  203    15 0 0        0 > NOT FOR THIS POINT IN PROCR     JUMP IF A < 0
6/0/1 5805         [9903]   20323       54     1 0 1        0                                   SELECT
7/0/0 96           [9904]   20324   4   12    46 0 0        0 FORM TOTAL ADJUSTMENT             AUGMENT
24/1/0 1702        [9905]   20325  76  203    15 0 0        0                                   JUMP unconditional

  Start of procedure 204 at location 1714 in chapter 3 [9906]
                   [9906]   20400 PROCR  204       204    ADJUST SR-ISSUE 6 O/P                                   
0/0/0 0            [9906]   20402  81  204     2 0 0        0                                   START OF SUBROUTINE
26/1/1 5202        [9907]   20403  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                   [9908]   20404   C          0 0 0      460                                   Limit
1/1/3 0            [9908]   20405  10          0 0 0        0 (12/58)= SERIAL TO BE ADJUSTED    SELECT LITERAL
2/0/0 96           [9909]   20406   5   12    46 0 0        0 CLEAR FOR TOTAL ADJUSTMENT        TRANSFER

   Source: TonyJ/Q1000150
1/0/1 28           [9910]   20407  35          0 0 0    11100                                   PREPARE FOR DIGIT COLLATION
15/0/0 108         [9911]   20408  36   12    58 0 0        0                                   COLLATE AND ADD
2/0/0 80           [9912]   20409   5   12    30 0 0        0 PROCR                             TRANSFER
15/0/1 620         [9913]   20410  36   97     0 0 1        0                                   COLLATE AND ADD
27/0/0 1735        [9914]   20411  70  204    23 0 0        0 > END                             JUMP IF A == 0
5/0/0 80           [9915]   20412   2   12    30 0 0        0                                   SUBTRACT
27/0/3 1732        [9916]   20413  73  204    21 0 0        0 > SEARCH                          JUMP IF A < 0
27/0/1 1735        [9917]   20414  71  204    23 0 0        0 > END                             JUMP IF A != 0
6/0/1 620          [9918]   20415       97     0 0 1        0                                   SELECT
5/0/0 108          [9919]   20416   2   12    58 0 0        0                                   SUBTRACT
27/0/0 1730        [9920]   20417  70  204    19 0 0        0                                   JUMP IF A == 0
27/0/2 1744        [9921]   20418  72  204    32 0 0        0 > NEXT ADJUST POINT IN PROCR IS LATER JUMP IF A >= 0
6/0/1 621          [9922]   20419       97     1 0 1        0                                   SELECT
7/0/0 96           [9923]   20420   4   12    46 0 0        0                                   AUGMENT
1/1/3 0            [9924]   20421  10          0 0 0        0                                   SELECT LITERAL
25/0/1 2           [9925]   20422  94  204    10 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1721        [9926] s
1/0/1 3            [9927]   20423  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
6/0/0 96           [9928]   20424       12    46 0 0        0 TOTAL ADJUSTMENT                  SELECT
15/0/0 108         [9929]   20425  36   12    58 0 0        0                                   COLLATE AND ADD
3/0/0 108          [9930]   20426   3   12    58 0 0        0 NEW ITEM                          COPY
1/1/2 256          [9931]   20427  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 1743        [9932]   20428  73  204    31 0 0        0                                   JUMP IF A < 0
6/1/0 4768         [9933]   20429      319    42 1 0        0  '????i'                          SELECT
2/1/0 5336         [9934]   20430   5    1    44 1 0        0 REPORT WRITTEN ITEM >99           TRANSFER
26/0/1 1714        [9935]   20431  82  204     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
4/0/1 621          [9936]   20432   1   97     1 0 1        0 QUANTITY (+ -)                    ADD
27/0/0 1747        [9937]   20433  70  204    35 0 0        0 > ADDRESS DELETED                 JUMP IF A == 0
27/0/2 1735        [9938]   20434  72  204    23 0 0        0 > NEXT IS INSERTION               JUMP IF A >= 0
6/0/0 5299         [9939]   20435   0    1     7 0 0        0                                   SELECT
5/0/0 5099         [9940]   20436  12          0 0 0    53000                                   SUBTRACT LITERAL
27/0/0 1759        [9941]   20437  70  204    47 0 0        0 > C-LINE REPORT                   JUMP IF A == 0
6/0/0 104          [9942]   20438       12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 83           [9943]   20439 101         83 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1735        [9944]   20440  70  204    23 0 0        0 > 83 DON'T REPORT                 JUMP IF A == 0
1/1/2 1            [9945]   20441 101          1 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1735        [9946]   20442  70  204    23 0 0        0 > 84                              JUMP IF A == 0
1/1/2 1            [9947]   20443 101          1 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1735        [9948]   20444  70  204    23 0 0        0 > 85                              JUMP IF A == 0
1/1/2 1            [9949]   20445 101          1 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 1735        [9950]   20446  70  204    23 0 0        0 > 86                              JUMP IF A == 0
6/1/0 4770         [9951]   20447      319    44 1 0        0  '???? DELTA'                     SELECT
2/1/0 5336         [9952]   20448   5    1    44 1 0        0                                   TRANSFER
24/1/0 1735        [9953]   20449  76  204    23 0 0        0                                   JUMP unconditional

  Start of procedure 205 at location 1762 in chapter 3 [9954]
                   [9954]   20500 PROCR  205       205    DEAL WITH PROCR/TABLE/CONST                                   
                   [9954]   20501 NOTES            RADIX                                              
6/1/0 5298         [9954]   20502        1     6 1 0        0                                   SELECT
5/1/0 4732         [9955]   20503   2  319     6 1 0        0 PROCR                             SUBTRACT
27/0/1 1767        [9956]   20504  71  205     7 0 0        0 NO                                JUMP IF A != 0
2/1/0 140          [9957]   20505   5   12    90 1 0        0                                   TRANSFER
24/1/0 2810        [9958]   20506  76  247     2 0 0        0 FORM SERIAL                       JUMP unconditional
6/1/0 5298         [9959]   20507        1     6 1 0        0                                   SELECT
5/1/0 4728         [9960]   20508   2  319     2 1 0        0 TABLE                             SUBTRACT

   Source: ChuckK/Q1000151
27/0/1 1786        [9961]   20509  71  206     5 0 0        0 NO                                JUMP IF A != 0
6/1/0 5204         [9962]   20510  10          0 0 0   100001 SET LONG/SHORT                    SELECT LITERAL
2/1/0 140          [9963]   20511   5   12    90 1 0        0 COUNTER                           TRANSFER
0/1/2 5308         [9964]   20512  34    1    16 1 0        0 TABLE TYPE                        SET (N) IN B
26/0/0 4826        [9965]   20513  80  321     2 0 0        0 >RIGHT ALIGN                      ENTER SUBROUTINE
6/1/0 139          [9966]   20514   0   12    88 2 0        0                                   SELECT
27/0/3 1780        [9967]   20515  73  205    20 0 0        0 TABLE TYPE IS                     JUMP IF A < 0
3/0/0 109          [9968]   20516   3   12    59 0 0        0                                   COPY
27/0/0 1780        [9969]   20517  70  205    20 0 0        0                                   JUMP IF A == 0
1/1/2 5            [9970]   20518  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/3 1783        [9971]   20519  73  206     2 0 0        0                                   JUMP IF A < 0
1/1/3 5            [9972]   20520  83  278     8 0 0        5 TABLE TYPE IS OUT                 SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8166         [9973]  
24/1/0 3812        [9974]   20521  76  282    29 0 0        0                                   JUMP unconditional

  Start of procedure 206 at location 1783 in chapter 3 [9975]
                   [9975]   20600 PROCR  206                                                      
                   [9975]   20601 NOTES      RADIX                                                
6/0/0 109          [9975]   20602  84  278     8 0 0        0 SET TABLE CHECKING                SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 8166         [9976]   20603   C   12    59 0 0        0 SWITCH ACCORDING TO               SET SWITCH(ES) AT VARIABLE VALUE
24/1/0 2810        [9977]   20604  76  247     2 0 0        0 FORM SERIAL NO.                   JUMP unconditional
6/1/0 5298         [9978]   20605        1     6 1 0        0                                   SELECT
5/1/0 4730         [9979]   20606   2  319     4 1 0        0 CONST                             SUBTRACT
27/0/1 1808        [9980]   20607  71  206    25 0 0        0 >NO                               JUMP IF A != 0
6/1/0 5206         [9981]   20608  54   94    60 0 0       40                                   BULK CLEAR
28/0/0 5510        [9982]  
0/0/2 4718         [9983]   20609  34  318     3 0 0        0 BIT 17                            SET (N) IN B
15/1/0 5309        [9984]   20610  36    1    16 2 0        0                                   COLLATE AND ADD
18/0/1 4124        [9985]   20611  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
3/0/0 140          [9986]   20612   3   12    90 0 0        0 LONG/SHORT IND                    COPY
27/0/1 1797        [9987]   20613  71  206    15 0 0        0 >LONG                             JUMP IF A != 0
1/1/3 48           [9988]   20614  10          0 0 0       30 ALPHA ZERO                        SELECT LITERAL
18/0/1 3           [9989]   20615  30          0 0 0        3                                   SHIFT (A) BY QUARTETS
1/0/1 24           [9990]   20616  35          0 0 0    11000                                   PREPARE FOR DIGIT COLLATION
14/0/0 5309        [9991]   20617  37    1    17 0 0        0                                   REPLACE SELECTED BITS
24/1/0 1803        [9992]   20618  76  206    21 0 0        0 SET ALPHA 0 OR 1                  JUMP unconditional
1/1/3 1            [9993]   20619  10          0 0 0        1                                   SELECT LITERAL
3/0/0 140          [9994]   20620   3   12    90 0 0        0                                   COPY
1/1/3 1            [9995]   20621  83  263     2 0 0        1 SAFETY VALUE                      SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165         [9996]  
1/1/3 4            [9997]   20622  10          0 0 0        4 SET CHECK SWITCH                  SELECT LITERAL
2/0/0 8168         [9998]   20623  84  191     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
24/1/0 2810        [9999]   20624  76  247     2 0 0        0 >O/P                              JUMP unconditional
6/1/0 5298        [10000]   20625   0    1     6 1 0        0                                   SELECT
5/1/0 4754        [10001]   20626   2  319    28 1 0        0  'VALUE'                          SUBTRACT
27/0/1 1815       [10002]   20627  71  207     2 0 0        0 >HENCE 'NOTES'                    JUMP IF A != 0
1/1/3 5           [10003]   20628  10          0 0 0        5                                   SELECT LITERAL
2/0/0 8168        [10004]   20629  84  191     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
2/1/0 140         [10005]   20630   5   12    90 1 0        0 CLEAR IND=SHORT                   TRANSFER
24/1/0 2810       [10006]   20631  76  247     2 0 0        0 O/P                               JUMP unconditional

  Start of procedure 207 at location 1815 in chapter 3 [10007]
                  [10007]   20700 PROCR  207                    DEAL WITH NOTES                   
                  [10007]   20701 NOTES      RADIX                                                
6/0/0 141         [10007]   20702       12    91 0 0        0                                   SELECT
27/0/1 1819       [10008]   20703  71  207     6 0 0        0                                   JUMP IF A != 0
1/1/3 2           [10009]   20704  10          0 0 0        2 FOR INSTRUCTIONS                  SELECT LITERAL
24/1/0 1820       [10010]   20705  76  207     7 0 0        0                                   JUMP unconditional
1/1/3 3           [10011]   20706  10          0 0 0        3 FOR TABLE ENTRIES                 SELECT LITERAL
2/0/0 8168        [10012]   20707  84  191     2 0 0        0 SET CHECK SWITCH                  SET SWITCH(ES) AT VARIABLE VALUE
5/0/0 88          [10013]   20708   2   12    38 0 0        0 DIRECTIVE IND FOR THIS LINE       SUBTRACT
27/0/3 2810       [10014]   20709  73  247     2 0 0        0 >IS'NOTES'(IE>0)                  JUMP IF A < 0
1/1/3 2           [10015]   20710  10          0 0 0        2                                   SELECT LITERAL
2/0/0 59          [10016]   20711   5   12     9 0 0        0 SET THIS LINE SERIAL              TRANSFER

   Source: ChuckK/Q1000152
24/1/0 1540       [10017]   20712  76  191     3 0 0        0 >TO CHECK SWITCH                  JUMP unconditional

  Start of procedure 208 at location 1826 in chapter 3 [10018]
                  [10018]   20800 PROCR  208                    REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI 
                  [10018]   20801 NOTES      RADIX                                                
0/0/0 0           [10018]   20802  81  208     2 0 0        0                                   START OF SUBROUTINE
0/1/2 5300        [10019]   20803  34    1     8 1 0        0 REF                               SET (N) IN B
26/0/0 4826       [10020]   20804  80  321     2 0 0        0 >RIGHT ALIGN                      ENTER SUBROUTINE
1/1/2 103         [10021]   20805  12          0 0 0       67                                   SUBTRACT LITERAL
3/0/0 3593        [10022]   20806   3  274     2 0 0        0                                   COPY
27/0/1 1834       [10023]   20807  71  208    10 0 0        0 >NOT'P'                           JUMP IF A != 0
6/0/0 50          [10024]   20808   0   12     0 0 0        0                                   SELECT
2/1/0 139         [10025]   20809   5   12    88 2 0        0                                   TRANSFER
6/1/0 139         [10026]   20810   0   12    88 2 0        0                                   SELECT
3/0/0 54          [10027]   20811   3   12     4 0 0        0                                   COPY
1/1/2 256         [10028]   20812  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 1856       [10029]   20813  73  208    32 0 0        0 >SECTION                          JUMP IF A < 0
1/1/2 2201        [10030]   20814  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/2 1856       [10031]   20815  72  208    32 0 0        0 >NOT REPLACEABLE (INCLUDES 999)   JUMP IF A >= 0
6/1/0 5302        [10032]   20816        1    10 1 0        0                                   SELECT
2/0/0 4204        [10033]   20817   5  294     2 0 0        0  'PREVIOUS' ITEM                  TRANSFER
26/0/0 1857       [10034]   20818  80  209     2 0 0        0 >CALC C/FWD ADDRESS               ENTER SUBROUTINE
6/0/0 6314        [10035]   20819       27     4 0 0        0                                   SELECT
27/0/1 1852       [10036]   20820  71  208    28 0 0        0 >COMPILER, DONT SET IND           JUMP IF A != 0
   Literal operand combined with others
6/1/0 3390        [10037]   20821       12    88 2 0  ;TEST IMPLICIT                                   SELECT
5/0/0 54          [10038]   20822   2   12     4 0 0        0 ;AMENDMENT                        SUBTRACT
27/0/1 1851       [10039]   20823  71  208    27 0 0        0 >CHANGE TO REF                    JUMP IF A != 0
6/1/0 5302        [10040]   20824        1    10 1 0        0                                   SELECT
5/0/0 4204        [10041]   20825   2  294     2 0 0        0                                   SUBTRACT
27/0/0 1852       [10042]   20826  70  208    28 0 0        0 >NO CHANGE TO ITEM                JUMP IF A == 0
26/0/0 1494       [10043]   20827  80  188     2 0 0        0 >SET'PRINT PROCEDURE'             ENTER SUBROUTINE
6/1/0 139         [10044]   20828       12    88 2 0        0                                   SELECT
2/0/0 54          [10045]   20829   5   12     4 0 0        0 NEW REF                           TRANSFER
24/0/2 4434       [10046]   20830  52    1     8 0 0        0 REPLACE REF WITH ZEROS            EDIT
28/1/2 5300       [10047]   20831   C  306     2 0 0        0                                   
26/0/1 1826       [10048]   20832  82  208     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 209 at location 1857 in chapter 3 [10049]
                  [10049]   20900 PROCR  209                    REPLACE AND ADJUSR ADDRESS        
                  [10049]   20901 NOTES                                                           
0/0/0 0           [10049]   20902  81  209     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6044        [10050]   20903       92    30 0 0        0                                   SELECT
27/0/1 1863       [10051]   20904  71  209     8 0 0        0 >NOT INITIAL                      JUMP IF A != 0
1/1/3 2           [10052]   20905  10          0 0 0        2                                   SELECT LITERAL
7/1/0 5302        [10053]   20906   4    1    10 1 0        0                                   AUGMENT
24/1/0 1905       [10054]   20907  76  209    50 0 0        0                                   JUMP unconditional
6/0/0 6310        [10055]   20908       27     0 0 0        0                                   SELECT
0/0/2 83          [10056]   20909  34   12    33 0 0        0                                   SET (N) IN B
27/1/1 1905       [10057]   20910  75  209    50 0 0        0 >ISSUE 6 I/P OR PT I/P            JUMP IF AB != 0
6/0/0 3593        [10058]   20911      274     2 0 0        0                                   SELECT
27/0/0 1905       [10059]   20912  70  209    50 0 0        0 >REF WAS'P'                       JUMP IF A == 0
6/0/0 6314        [10060]   20913       27     4 0 0        0                                   SELECT
27/0/1 1905       [10061]   20914  71  209    50 0 0        0 >COMPILER CALLED TRANSLATOR       JUMP IF A != 0
6/1/0 139         [10062]   20915       12    88 2 0        0                                   SELECT
2/0/0 169         [10063]   20916   5   12   119 0 0        0                                   TRANSFER
26/0/0 1647       [10064]   20917  80  201     2 0 0        0 >REPLACE OLD PROCR                ENTER SUBROUTINE
27/0/1 1893       [10065]   20918  71  209    38 0 0        0 >MATCH FOUND;NOW ADJUST           JUMP IF A != 0
6/1/0 139         [10066]   20919       12    88 2 0        0                                   SELECT
18/0/1 2          [10067]   20920  30          0 0 0        2 ;TRY UNIQUE REFS                  SHIFT (A) BY QUARTETS

   Source: ChuckK/Q1000153
4/0/0 5302        [10068]   20921   1    1    10 0 0        0                                   ADD
26/1/1 5208       [10069]   20922  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [10070]   20923   C          0 0 0       50                                   Limit
2/0/0 2771        [10070]   20924   5  245     2 0 0        0                                   TRANSFER
6/0/1 5965        [10071]   20925       55     1 0 1        0                                   SELECT
27/0/0 1885       [10072]   20926  70  209    30 0 0        0 >END,NO MATCH                     JUMP IF A == 0
5/0/0 2771        [10073]   20927   2  245     2 0 0        0                                   SUBTRACT
27/0/0 1887       [10074]   20928  70  209    32 0 0        0                                   JUMP IF A == 0
25/0/1 2          [10075]   20929  94  209    25 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1879       [10076] s
26/0/0 1584       [10077]   20930  80  195     2 0 0        0 >REPORT R                         ENTER SUBROUTINE
24/1/0 1905       [10078]   20931  76  209    50 0 0        0 >CARRY ON                         JUMP unconditional
6/0/1 5964        [10079]   20932       55     0 0 1        0 EQUIVALENT OF UNIQUE REF          SELECT
18/1/1 4126       [10080]   20933  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
2/1/0 139         [10081]   20934   5   12    88 2 0        0                                   TRANSFER
18/1/1 2          [10082]   20935  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
2/0/0 5302        [10083]   20936   5    1    10 0 0        0                                   TRANSFER
24/1/0 1905       [10084]   20937  76  209    50 0 0        0 >NOW REPLACE/ADJUST(NEW STYLE)    JUMP unconditional
3/1/0 139         [10085]   20938   3   12    88 2 0        0                                   COPY
18/0/1 2          [10086]   20939  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 5302        [10087]   20940   1    1    10 0 0        0                                   ADD
2/0/0 1690        [10088]   20941   5  203     2 0 0        0 WL                                TRANSFER
6/1/0 5302        [10089]   20942        1    10 1 0        0                                   SELECT
27/0/3 1905       [10090]   20943  73  209    50 0 0        0 >DONT ADJUST NEG ITEM             JUMP IF A < 0
6/0/0 1690        [10091]   20944      203     2 0 0        0                                   SELECT
26/0/0 1690       [10092]   20945  80  203     2 0 0        0 >ADJUST(OLD STYLE)                ENTER SUBROUTINE
18/1/1 4126       [10093]   20946  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
2/1/0 139         [10094]   20947   5   12    88 2 0        0                                   TRANSFER
18/1/1 2          [10095]   20948  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
2/0/0 5302        [10096]   20949   5    1    10 0 0        0                                   TRANSFER
6/1/0 139         [10097]   20950       12    88 2 0        0 REPLACE PROCR(NEW STYLE)          SELECT
3/0/0 168         [10098]   20951   3   12   118 0 0        0                                   COPY
2/0/0 169         [10099]   20952   5   12   119 0 0        0                                   TRANSFER
6/0/0 3593        [10100]   20953      274     2 0 0        0                                   SELECT
27/0/1 1912       [10101]   20954  71  209    57 0 0        0 >REF WAS NOT'P'                   JUMP IF A != 0
6/1/0 139         [10102]   20955       12    88 2 0        0                                   SELECT
24/1/0 1934       [10103]   20956  76  209    79 0 0        0                                   JUMP unconditional
26/0/0 1673       [10104]   20957  80  202     2 0 0        0 >REPLACE                          ENTER SUBROUTINE
27/0/1 1934       [10105]   20958  71  209    79 0 0        0 >MATCH                            JUMP IF A != 0
6/1/0 139         [10106]   20959       12    88 2 0        0                                   SELECT
18/0/1 2          [10107]   20960  30          0 0 0        2 TRY UNIQUE REFS                   SHIFT (A) BY QUARTETS
4/0/0 5302        [10108]   20961   1    1    10 0 0        0 (NEW STYLE)                       ADD
26/1/1 5210       [10109]   20962  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [10110]   20963   C          0 0 0      100                                   Limit
2/0/0 2771        [10110]   20964   5  245     2 0 0        0                                   TRANSFER
6/0/1 1080        [10111]   20965       52     0 0 1        0                                   SELECT
27/0/0 1925       [10112]   20966  70  209    70 0 0        0 >END,NO MATCH                     JUMP IF A == 0
5/0/0 2771        [10113]   20967   2  245     2 0 0        0                                   SUBTRACT
27/0/0 1928       [10114]   20968  70  209    73 0 0        0 >MATCH                            JUMP IF A == 0
25/0/1 2          [10115]   20969  94  209    65 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 1919       [10116] s
6/1/0 4766        [10117]   20970      319    40 1 0        0  '????R'                          SELECT
2/1/0 5336        [10118]   20971   5    1    44 1 0        0                                   TRANSFER
24/1/0 1943       [10119]   20972  76  209    88 0 0        0 >END                              JUMP unconditional
6/0/1 1081        [10120]   20973       52     1 0 1        0                                   SELECT
18/1/1 4126       [10121]   20974  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS

   Source: ChuckK/Q1000154
2/1/0 139         [10122]   20975   5   12    88 2 0        0                                   TRANSFER
18/1/1 2          [10123]   20976  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
2/0/0 5302        [10124]   20977   5    1    10 0 0        0                                   TRANSFER
24/1/0 1943       [10125]   20978  76  209    88 0 0        0 >NEW ADDRESS CALCULATED           JUMP unconditional
3/1/0 139         [10126]   20979   3   12    88 2 0        0                                   COPY
18/0/1 2          [10127]   20980  30          0 0 0        2 NEW REF                           SHIFT (A) BY QUARTETS
4/0/0 5302        [10128]   20981   1    1    10 0 0        0                                   ADD
2/0/0 108         [10129]   20982   5   12    58 0 0        0                                   TRANSFER
6/1/0 5302        [10130]   20983        1    10 1 0        0                                   SELECT
27/0/3 1943       [10131]   20984  73  209    88 0 0        0 >DONT ADJUST NEG ITEMS            JUMP IF A < 0
26/0/0 1714       [10132]   20985  80  204     2 0 0        0 >ADJUST SR(NEW STYLE)             ENTER SUBROUTINE
6/0/0 108         [10133]   20986       12    58 0 0        0 NEW ITEM                          SELECT
2/0/0 5302        [10134]   20987   5    1    10 0 0        0                                   TRANSFER
26/0/1 1857       [10135]   20988  82  209     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 210 at location 1944 in chapter 3 [10136]
                  [10136]   21000 PROCR  210                    BEGIN CHECKS ON ACTION OR C-LINE  
                  [10136]   21001 NOTES      RADIX                                                
26/0/0 1826       [10136]   21002  80  208     2 0 0        0 >DEAL WITH ADDRESS OF INSTRUCTION ENTER SUBROUTINE
6/0/0 54          [10137]   21003       12     4 0 0        0 NEW REF                           SELECT
1/1/2 256         [10138]   21004  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 1952       [10139]   21005  73  210    10 0 0        0 >SECTION                          JUMP IF A < 0
1/1/2 2201        [10140]   21006  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/2 1952       [10141]   21007  72  210    10 0 0        0 >REF=999+                         JUMP IF A >= 0
6/0/0 168         [10142]   21008       12   118 0 0        0 PEVIOUS PROCR                     SELECT
2/0/0 5314        [10143]   21009   5    1    22 0 0        0                                   TRANSFER
6/0/0 5299        [10144]   21010        1     7 0 0        0                                   SELECT
5/0/0 5100        [10145]   21011  12          0 0 0    53000  'C  '                            SUBTRACT LITERAL
27/0/1 1970       [10146]   21012  71  210    28 0 0        0 >NOT C-LINE                       JUMP IF A != 0
6/1/0 110         [10147]   21013       12    60 1 0        0                                   SELECT
27/0/0 2007       [10148]   21014  70  211     2 0 0        0 >IGNORE;C-LINE NOT POSSIBLE       JUMP IF A == 0
24/1/2 105        [10149]   21015 124   12    55 1 2        0                                   MODIFY ADDRESS OF NEXT
0/0/2 1           [10150]   21016 100          1 0 2        0 C-LINE CHECK CONSTANT TO B        REPLACE (B) BY (N)
6/0/0 4710        [10151]   21017   0  317    88 0 0        0 A 55 ACTION WILL TERMINATE        SELECT
2/0/0 4647        [10152]   21018   5  317    25 0 0        0 AFTER 2 C-LINES                   TRANSFER
0/0/3 0           [10153]   21019  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 104         [10154]   21020   0   12    54 0 0        0 ACION                             SELECT
1/1/2 43          [10155]   21021  12          0 0 0       2e  43                               SUBTRACT LITERAL
27/0/0 1967       [10156]   21022  70  210    25 0 0        0 >YES                              JUMP IF A == 0
1/1/1 1           [10157]   21023  11          0 0 0        1                                   ADD LITERAL
27/0/1 2004       [10158]   21024  71  210    62 0 0        0 >NOT                              JUMP IF A != 0
1/1/3 1           [10159]   21025  10          0 0 0        1                                   SELECT LITERAL
7/0/0 105         [10160]   21026   4   12    55 0 0        0 (TO GET NEXT C-LINE CHECK CONST)  AUGMENT
24/1/0 2004       [10161]   21027  76  210    62 0 0        0                                   JUMP unconditional
6/0/0 111         [10162]   21028       12    61 0 0        0                                   SELECT
27/0/0 1973       [10163]   21029  70  210    31 0 0        0                                   JUMP IF A == 0
26/0/0 4252       [10164]   21030  80  296     2 0 0        0                                   ENTER SUBROUTINE
0/1/2 5298        [10165]   21031  34    1     6 1 0        0                                   SET (N) IN B
26/0/0 4826       [10166]   21032  80  321     2 0 0        0 RIGHT ALIGN ACTION                ENTER SUBROUTINE
6/1/0 139         [10167]   21033   0   12    88 2 0        0                                   SELECT
27/0/3 2007       [10168]   21034  73  211     2 0 0        0 >NEGATIVE ACTION                  JUMP IF A < 0
1/1/2 345         [10169]   21035  12          0 0 0      159 REJECT ACTION>158                 SUBTRACT LITERAL
27/0/2 2007       [10170]   21036  72  211     2 0 0        0                                   JUMP IF A >= 0
6/1/0 139         [10171]   21037   0   12    88 2 0        0                                   SELECT
26/0/0 2771       [10172]   21038  80  245     2 0 0        0 >BIN                              ENTER SUBROUTINE
3/0/0 104         [10173]   21039   3   12    54 0 0        0 BINARY ACTION                     COPY
1/1/2 65          [10174]   21040  12          0 0 0       41  65                               SUBTRACT LITERAL

   Source: TonyJ/Q1000156
27/0/2 1996       [10175]   21041  72  210    54 0 0        0 > SECOND HALF OF TABLE            JUMP IF A >= 0
6/0/0 104         [10176]   21042   0   12    54 0 0        0                                   SELECT
18/0/1 3          [10177]   21043  30          0 0 0        3                                   SHIFT (A) BY QUARTETS
1/0/0 4614        [10178]   21044 101  316     2 0 0        0 TLU                               TABLE LOOK UP
18/1/1 10         [10179]   21045  32          0 0 0       10 ABS BIN ADDRESS > A               SHIFT (AB) BY QUARTETS
3/0/0 105         [10180]   21046   3   12    55 0 0        0 LOCN TO SELECT C-LINE CHECK CONSTANT COPY
6/0/0 104         [10181]   21047   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 55          [10182]   21048  12          0 0 0       37  = 55                             SUBTRACT LITERAL
27/0/1 2002       [10183]   21049  71  210    60 0 0        0 > NOT                             JUMP IF A != 0
6/1/0 5308        [10184]   21050   0    1    16 1 0        0 LITERAL                           SELECT
27/0/1 2000       [10185]   21051  71  210    58 0 0        0 > SET SECOND C-LINE IMPOSSIBLE    JUMP IF A != 0
6/0/0 4708        [10186]   21052   0  317    86 0 0        0                                   SELECT
24/1/0 2001       [10187]   21053  76  210    59 0 0        0 > SET SECOND C-LINE ESSENTIAL     JUMP unconditional
6/0/0 104         [10188]   21054   0   12    54 0 0        0                                   SELECT
18/0/1 3          [10189]   21055  30          0 0 0        3                                   SHIFT (A) BY QUARTETS
1/0/0 4656        [10190]   21056 101  317    34 0 0        0 TLU FOR ACTION > 64               TABLE LOOK UP
24/1/0 1987       [10191]   21057  76  210    45 0 0        0                                   JUMP unconditional
6/0/0 4710        [10192]   21058   0  317    88 0 0        0                                   SELECT
2/0/0 4647        [10193]   21059   5  317    25 0 0        0 CHECK CONST FOR ACTION 55 C-LINE  TRANSFER
24/1/2 105        [10194]   21060 124   12    55 1 2        0                                   MODIFY ADDRESS OF NEXT
0/0/2 0           [10195]   21061 100          0 0 2        0 CHECK CONST                       REPLACE (B) BY (N)
1/1/3 0           [10196]   21062  10          0 0 0        0                                   SELECT LITERAL
15/0/0 4719       [10197]   21063  36  318     4 0 0        0 Q1-3                              COLLATE AND ADD
27/0/1 2011       [10198]   21064  71  211     6 0 0        0 > ACTION EXISTS                   JUMP IF A != 0

   Source: TonyJ/Q1000160

  Start of procedure 211 at location 2007 in chapter 3 [10199]
                  [10199]   21100 PROCR  211       211                                              
                  [10199]   21101 NOTES            RADIX                                              
6/1/0 5212        [10199]   21102  10          0 0 0  5100000000                                   SELECT LITERAL
2/1/0 5336        [10200]   21103   5    1    44 1 0        0 NONEXISTENT ACTION = ERROR OF A   TRANSFER
26/0/0 4248       [10201]   21104  80  295     2 0 0        0                                   ENTER SUBROUTINE
24/1/0 2810       [10202]   21105  76  247     2 0 0        0                                   JUMP unconditional
18/0/1 4126       [10203]   21106  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
2/0/0 8164        [10204]   21107  84  227     2 0 0        0 LITERAL' SWITCH BY Q3             SET SWITCH(ES) AT VARIABLE VALUE
15/0/0 4720       [10205]   21108  36  318     5 0 0        0 BITS 5-7                          COLLATE AND ADD
18/0/1 4127       [10206]   21109  30          0 0 0       1-                                   SHIFT (A) BY QUARTETS
2/0/0 8163        [10207]   21110  84  217     2 0 0        0  'REF/ITEM'                       SET SWITCH(ES) AT VARIABLE VALUE
15/0/0 4721       [10208]   21111  36  318     6 0 0        0 BITS 1-3                          COLLATE AND ADD
2/0/0 8162        [10209]   21112  84  214     2 0 0        0  'DISC/MOD' SWITCH BY Q1          SET SWITCH(ES) AT VARIABLE VALUE
15/0/0 4722       [10210]   21113  36  318     7 0 0        0 BIT 4                             COLLATE AND ADD
2/0/0 111         [10211]   21114   5   12    61 0 0        0 IND THAT C-LINE ESSENTIAL         TRANSFER
15/0/0 4723       [10212]   21115  36  318     8 0 0        0 BIT 8                             COLLATE AND ADD
2/0/0 110         [10213]   21116   5   12    60 0 0        0 IND THAT C-LINE IS POSSIBLE       TRANSFER
2/0/0 109         [10214]   21117   5   12    59 0 0        0 CLEAR THIS                        TRANSFER

  Start of procedure 212 at location 2023 in chapter 3 [10215]
                  [10215]   21200 PROCR  212       212          0                                   
                  [10215]   21201 NOTES            RADIX          0                                   
0/0/3 5101        [10215]   21202  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 5302        [10216]   21203        1    10 0 0        0 MODULUS OF ITEM                   SELECT
5/0/0 5102        [10217]   21204  12          0 0 0     8192                                   SUBTRACT LITERAL
27/0/2 2029       [10218]   21205  72  212     8 0 0        0 > REPORT                          JUMP IF A >= 0
6/0/0 5303        [10219]   21206        1    11 0 0        0                                   SELECT
27/0/0 2030       [10220]   21207  70  212     9 0 0        0 > OK                              JUMP IF A == 0
26/0/0 1588       [10221]   21208  80  196     2 0 0        0 > REPORT 1                        ENTER SUBROUTINE
6/0/0 104         [10222]   21209   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 100         [10223]   21210  12          0 0 0       64 100                               SUBTRACT LITERAL
27/0/3 2047       [10224]   21211  73  212    26 0 0        0 > NOT MACHINE CODE                JUMP IF A < 0
6/0/0 104         [10225]   21212   0   12    54 0 0        0                                   SELECT

   Source: RayS/Q1000161
1/1/2 132         [10226]   21213  12          0 0 0       84 132                               SUBTRACT LITERAL
27/0/2 2047       [10227]   21214  72  212    26 0 0        0 gNOT MACHINE CODE                 JUMP IF A >= 0
6/1/0 5304        [10228]   21215   0    1    12 1 0        0 DISC                              SELECT
27/0/0 2041       [10229]   21216  70  212    20 0 0        0 gOK                               JUMP IF A == 0
1/1/2 1           [10230]   21217  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2041       [10231]   21218  70  212    20 0 0        0 gOK                               JUMP IF A == 0
26/0/0 1576       [10232]   21219  80  193     2 0 0        0 gREPORT D                         ENTER SUBROUTINE
6/1/0 5306        [10233]   21220   0    1    14 1 0        0 MOD                               SELECT
27/0/0 2104       [10234]   21221  70  217     2 0 0        0 gOK                               JUMP IF A == 0
1/1/2 4           [10235]   21222  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/3 2104       [10236]   21223  73  217     2 0 0        0 gOK                               JUMP IF A < 0
26/0/0 1580       [10237]   21224  80  194     2 0 0        0 gREPORT M                         ENTER SUBROUTINE
24/1/0 2104       [10238]   21225  76  217     2 0 0        0 gTO CHECK R,I,L                   JUMP unconditional
6/1/0 5304        [10239]   21226   0    1    12 1 0        0 D                                 SELECT
27/0/0 2056       [10240]   21227  70  213     7 0 0        0 gOK                               JUMP IF A == 0
6/0/0 5302        [10241]   21228   0    1    10 0 0        0                                   SELECT
26/0/0 1568       [10242]   21229  80  192     2 0 0        0 gCHECK I                          ENTER SUBROUTINE

  Start of procedure 213 at location 2051 in chapter 3 [10243]
                  [10243]   21300 PROCR  213                    TEST D AND M ARE IN RANGE         
                  [10243]   21301 NOTES      RADIX              ACCEPTABLE                        
6/1/0 5304        [10243]   21302        1    12 1 0        0                                   SELECT
27/0/3 2055       [10244]   21303  73  213     6 0 0        0                                   JUMP IF A < 0
1/1/2 3           [10245]   21304  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/3 2056       [10246]   21305  73  213     7 0 0        0                                   JUMP IF A < 0
26/0/0 1576       [10247]   21306  80  193     2 0 0        0 gREPORT D                         ENTER SUBROUTINE
6/1/0 5306        [10248]   21307        1    14 1 0        0 MOD DIGITS                        SELECT
27/0/0 2069       [10249]   21308  70  214     2 0 0        0 gOK                               JUMP IF A == 0
27/0/3 2067       [10250]   21309  73  213    18 0 0        0                                   JUMP IF A < 0
1/1/2 33          [10251]   21310  12          0 0 0       21                                   SUBTRACT LITERAL
27/0/2 2067       [10252]   21311  72  213    18 0 0        0 gWRONG                            JUMP IF A >= 0
6/0/0 5306        [10253]   21312   0    1    14 0 0        0                                   SELECT
1/1/2 4           [10254]   21313  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 2069       [10255]   21314  72  214     2 0 0        0                                   JUMP IF A >= 0
1/1/3 1           [10256]   21315  10          0 0 0        1 IF MR 1-3                         SELECT LITERAL
2/0/0 6018        [10257]   21316   5   92     4 0 0        0 SETTING 'REQUIRED' IND            TRANSFER
24/1/0 2069       [10258]   21317  76  214     2 0 0        0                                   JUMP unconditional
26/0/0 1580       [10259]   21318  80  194     2 0 0        0 gREPORT M                         ENTER SUBROUTINE
24/1/0 2009       [10260]   21319  76  211     4 0 0        0 gIGNORE                           JUMP unconditional

  Start of procedure 214 at location 2069 in chapter 3 [10261]
                  [10261]   21400 PROCR  214                                                      
                  [10261]   21401 NOTES      RADIX                                                
24/0/1 8162       [10261]   21402  85  214     2 0 0        0                                   SWITCH R
26/0/1 2070       [10262]  
0/0/1 2104        [10263]   21403   C  217     2 0 0        0 gD,M ANY VALUE                    
0/0/1 2087        [10264]   21404   C  215     2 0 0        0 gD,M MUST BOTH BE ZERO            
0/0/1 2092        [10265]   21405   C  215     7 0 0        0 gD ZERO, M ANY                    
0/0/1 2088        [10266]   21406   C  215     3 0 0        0 gM ZERO, D ANY                    
0/0/1 2094        [10267]   21407   C  215     9 0 0        0 gD ZERO, M NONZERO                
0/0/1 2095        [10268]   21408   C  215    10 0 0        0 gM NONZERO, D ANY                 
0/0/1 2078        [10269] s 21409   C  214    10 0 0        0 gD,M ZERO, R NON-ZERO IF L=0      
6/0/0 5308        [10270]   21410        1    16 0 0        0 L                                 SELECT
27/0/0 2084       [10271]   21411  70  214    16 0 0        0 gEXPECT R                         JUMP IF A == 0
6/1/0 5301        [10272]   21412   0    1     8 2 0        0 REF                               SELECT
27/0/0 2087       [10273]   21413  70  215     2 0 0        0 gOK                               JUMP IF A == 0
26/0/0 1584       [10274]   21414  80  195     2 0 0        0 gREPORT R                         ENTER SUBROUTINE

   Source: RayS/Q1000166
24/1/0 2087       [10275]   21415  76  215     2 0 0        0                                   JUMP unconditional
6/1/0 5301        [10276]   21416        1     8 2 0        0                                   SELECT
27/0/1 2087       [10277]   21417  71  215     2 0 0        0 gOK                               JUMP IF A != 0
26/0/0 1592       [10278]   21418  80  197     2 0 0        0 gREPORT L                         ENTER SUBROUTINE

  Start of procedure 215 at location 2087 in chapter 3 [10279]
                  [10279]   21500 PROCR  215                    CHECK D AND M                     
                  [10279]   21501 NOTES      RADIX                                                
26/0/0 2099       [10279]   21502  80  216     2 0 0        0                                   ENTER SUBROUTINE
6/1/0 5306        [10280]   21503        1    14 1 0        0                                   SELECT
27/0/0 2104       [10281]   21504  70  217     2 0 0        0                                   JUMP IF A == 0
26/0/0 1580       [10282]   21505  80  194     2 0 0        0 gREPORT M                         ENTER SUBROUTINE
24/1/0 2104       [10283]   21506  76  217     2 0 0        0                                   JUMP unconditional
26/0/0 2099       [10284]   21507  80  216     2 0 0        0                                   ENTER SUBROUTINE
24/1/0 2104       [10285]   21508  76  217     2 0 0        0 gCHECK D=0                        JUMP unconditional
26/0/0 2099       [10286]   21509  80  216     2 0 0        0                                   ENTER SUBROUTINE
6/1/0 5306        [10287]   21510        1    14 1 0        0 gOK                               SELECT
27/0/1 2104       [10288]   21511  71  217     2 0 0        0 gIGNORE                           JUMP IF A != 0
26/0/0 4248       [10289]   21512  80  295     2 0 0        0 gREPORT M                         ENTER SUBROUTINE
24/1/0 2090       [10290]   21513  76  215     5 0 0        0                                   JUMP unconditional

  Start of procedure 216 at location 2099 in chapter 3 [10291]
                  [10291]   21600 PROCR  216                    TO CHECK REFERENCE AND ITEM       
                  [10291]   21601 NOTES      RADIX                                                
0/0/0 0           [10291]   21602  81  216     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5304        [10292]   21603        1    12 1 0        0                                   SELECT
27/0/0 2103       [10293]   21604  70  216     6 0 0        0                                   JUMP IF A == 0
26/0/0 1576       [10294]   21605  80  193     2 0 0        0 gREPORT D                         ENTER SUBROUTINE
26/0/1 2099       [10295]   21606  82  216     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 217 at location 2104 in chapter 3 [10296]
                  [10296]   21700 PROCR  217                                                      
                  [10296]   21701 NOTES      RADIX                                                
24/0/1 8163       [10296]   21702  85  217     2 0 0        0                                   SWITCH R
26/0/1 2105       [10297]  
0/0/1 2113        [10298]   21703   C  218     2 0 0        0 gR ZERO, PROCR, SECTION OR '1000+' 
0/0/1 2171        [10299]   21704   C  219     2 0 0        0 gR, I BOTH ZERO                   
0/0/1 2177        [10300]   21705   C  220     2 0 0        0 MAINLINE OF FILE CONTROL          
0/0/1 2351        [10301]   21706   C  224     2 0 0        0 R=100-998 OR 1000+, I EVEN        
0/0/1 2371        [10302]   21707   C  225     2 0 0        0 gR IS A TRANSIT AREA              
0/0/1 2406        [10303]   21708   C  226     2 0 0        0 gR IN RANGE 100-998               
0/0/1 2169        [10304]   21709   C  218    58 0 0        0 gR IS PROCR OR SECTION, BUT NOT TX AREA 

  Start of procedure 218 at location 2113 in chapter 3 [10305]
                  [10305]   21800 PROCR  218                    SWITCH = 1                        
                  [10305]   21801 NOTES      RADIX                                                
6/0/0 54          [10305]   21802       12     4 0 0        0                                   SELECT
27/0/3 2147       [10306]   21803  73  218    36 0 0        0 gIGNORE R                         JUMP IF A < 0
27/0/1 2131       [10307]   21804  71  218    20 0 0        0 gOK                               JUMP IF A != 0
6/0/0 5306        [10308]   21805        1    14 0 0        0 MOD DIGITS                        SELECT
27/0/1 2160       [10309]   21806  71  218    49 0 0        0 gOK EXCEPT FOR 93,97              JUMP IF A != 0
6/1/0 5302        [10310]   21807   0    1    10 1 0        0 ITEM                              SELECT
27/0/3 2124       [10311]   21808  73  218    13 0 0        0 gACCEPT ONLY IF ITEM              JUMP IF A < 0

   Source: ChuckK/Q1000167
27/0/1 2166       [10312]   21809  71  218    55 0 0        0 >OK                               JUMP IF A != 0
6/0/0 104         [10313]   21810   0   12    54 0 0        0 ACTION                            SELECT
27/0/0 2147       [10314]   21811  70  218    36 0 0        0 >IGNORE R                         JUMP IF A == 0
24/1/0 2166       [10315]   21812  76  218    55 0 0        0 >OJ                               JUMP unconditional
1/1/3 0           [10316]   21813  10          0 0 0        0                                   SELECT LITERAL
1/0/1 1           [10317]   21814  35          0 0 0        1                                   PREPARE FOR DIGIT COLLATION
15/0/0 5302       [10318]   21815  36    1    10 0 0        0                                   COLLATE AND ADD
1/1/2 12          [10319]   21816  12          0 0 0        +                                   SUBTRACT LITERAL
27/0/0 2166       [10320]   21817  70  218    55 0 0        0 >OK(ITEM*)                        JUMP IF A == 0
26/0/0 4248       [10321]   21818  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
24/1/0 2175       [10322]   21819  76  219     6 0 0        0 >REPORT I                         JUMP unconditional
1/1/2 256         [10323]   21820  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 2142       [10324]   21821  73  218    31 0 0        0 >SECTION                          JUMP IF A < 0
1/1/2 2304        [10325]   21822  12          0 0 0      900                                   SUBTRACT LITERAL
27/0/3 2166       [10326]   21823  73  218    55 0 0        0 >OK                               JUMP IF A < 0
27/0/0 2147       [10327]   21824  70  218    36 0 0        0 >IGNORE IF=1000                   JUMP IF A == 0
1/1/2 33          [10328]   21825  12          0 0 0       21                                   SUBTRACT LITERAL
27/0/2 2147       [10329]   21826  72  218    36 0 0        0 >IGNORE IF>1020                   JUMP IF A >= 0
6/0/0 104         [10330]   21827   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 80          [10331]   21828  12          0 0 0       50  80                               SUBTRACT LITERAL
27/0/0 2147       [10332]   21829  70  218    36 0 0        0 >IGNORE                           JUMP IF A == 0
24/1/0 2166       [10333]   21830  76  218    55 0 0        0 >OK                               JUMP unconditional
6/0/0 54          [10334]   21831       12     4 0 0        0 DECSECTION                        SELECT
26/0/0 1358       [10335]   21832  80  183     2 0 0        0 >DECODE SECTION NUMBER            ENTER SUBROUTINE
0/0/2 90          [10336]   21833  34   12    40 0 0        0                                   SET (N) IN B
15/0/3 122        [10337]   21834  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/1 2166       [10338]   21835  71  218    55 0 0        0 >SECTION EXISTS                   JUMP IF A != 0
26/0/0 4248       [10339]   21836  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
26/0/0 1584       [10340]   21837  80  195     2 0 0        0 >REPORT R                         ENTER SUBROUTINE
6/0/0 8163        [10341]   21838  86  217     2 0 0        0                                   SELECT SWITCH R
1/1/2 5           [10342]   21839  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/0 2404       [10343]   21840  70  225    31 0 0        0 >42 OR 43 ACTION.IGNORE PREVIOUS LINE JUMP IF A == 0
6/0/0 104         [10344]   21841       12    54 0 0        0                                   SELECT
1/1/2 40          [10345]   21842 101         40 1 2        0 40                                SUBTRACT LITERAL ADDRESS
27/0/0 2404       [10346]   21843  70  225    31 0 0        0 >IGNORE PREVIOUS LINE             JUMP IF A == 0
1/1/2 93          [10347]   21844 101         93 1 2        0 133                               SUBTRACT LITERAL ADDRESS
27/0/0 2404       [10348]   21845  70  225    31 0 0        0 >IGNORE PREVIOUS LINE             JUMP IF A == 0
1/1/2 1           [10349]   21846 101          1 1 2        0 134                               SUBTRACT LITERAL ADDRESS
27/0/0 2404       [10350]   21847  70  225    31 0 0        0 >IGNORE PREVIOUS LINE             JUMP IF A == 0
24/1/0 2411       [10351]   21848  76  227     2 0 0        0                                   JUMP unconditional
6/0/0 104         [10352]   21849       12    54 0 0        0                                   SELECT
1/1/2 93          [10353]   21850 101         93 1 2        0 93?                               SUBTRACT LITERAL ADDRESS
27/0/0 2147       [10354]   21851  70  218    36 0 0        0 >REPORT                           JUMP IF A == 0
6/0/0 104         [10355]   21852       12    54 0 0        0                                   SELECT
1/1/2 97          [10356]   21853 101         97 1 2        0 97?                               SUBTRACT LITERAL ADDRESS
27/0/0 2147       [10357]   21854  70  218    36 0 0        0 >REPORT                           JUMP IF A == 0

   Source: ChuckK/Q1000168
6/0/0 109         [10358]   21855       12    59 0 0        0                                   SELECT
27/0/0 2411       [10359]   21856  70  227     2 0 0        0 >GO TO CHECK L                    JUMP IF A == 0
24/1/0 2374       [10360]   21857  76  225     5 0 0        0 >CHECK SECTION IS TX AREA         JUMP unconditional
26/0/0 3634       [10361]   21858  80  277     2 0 0        0 >CHECK REF                        ENTER SUBROUTINE
24/1/0 2411       [10362]   21859  76  227     2 0 0        0 >CHECK LITERAL                    JUMP unconditional

  Start of procedure 219 at location 2171 in chapter 3 [10363]
                  [10363]   21900 PROCR  219            TEST R AND I ARE BOTH ZERO                                   
                  [10363]   21901 NOTES      RADIX       SWITCH=2                                   
6/1/0 5301        [10363]   21902        1     8 2 0        0 TEST REF IS ZERO                  SELECT
27/0/1 2148       [10364]   21903  71  218    37 0 0        0                                   JUMP IF A != 0
6/1/0 5302        [10365]   21904        1    10 1 0        0                                   SELECT
27/0/0 2411       [10366]   21905  70  227     2 0 0        0                                   JUMP IF A == 0
26/0/0 1588       [10367]   21906  80  196     2 0 0        0 >REPORT I                         ENTER SUBROUTINE
24/1/0 2411       [10368]   21907  76  227     2 0 0        0 >NO CHECK LITERAL                 JUMP unconditional

  Start of procedure 220 at location 2177 in chapter 3 [10369]
                  [10369]   22000 PROCR  220            CHECK FILES                                   
                  [10369]   22001 NOTES      RADIX      D    SWITCH=3                                   
6/0/0 104         [10369]   22002       12    54 0 0        0 ACTION                            SELECT
1/1/2 40          [10370]   22003 101         40 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/1 2187       [10371]   22004  71  220    12 0 0        0 >NOT ACTION 40                    JUMP IF A != 0
6/1/0 110         [10372]   22005       12    60 1 0        0                                   SELECT
27/0/0 2187       [10373]   22006  70  220    12 0 0        0 >NOT C-LINE                       JUMP IF A == 0
6/0/0 5299        [10374]   22007        1     7 0 0        0                                   SELECT
5/0/0 5103        [10375]   22008  12          0 0 0    53000  'C  '                            SUBTRACT LITERAL
27/0/1 2187       [10376]   22009  71  220    12 0 0        0 >NOT THE C-LINE                   JUMP IF A != 0
6/1/0 5304        [10377]   22010        1    12 1 0        0 C-LINE DISC                       SELECT
27/0/1 2113       [10378]   22011  71  218     2 0 0        0 >CHECK REF IS SEC/PROCR           JUMP IF A != 0
6/0/0 6053        [10379]   22012       91     1 0 0        0                                   SELECT
18/0/1 5          [10380]   22013  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
2/1/0 8182        [10381]   22014  91          0 0 5        0                                   SET MODIFICATION REGISTER AT VARIABLE
6/0/0 4716        [10382]   22015      317    94 0 0        0 SET  2ND C-LINE POSSIBLE          SELECT
2/0/0 4636        [10383]   22016   5  317    14 0 0        0                                   TRANSFER
24/0/1 8182       [10384]   22017       91     5 0 5        0                                   SELECT
6/0/0 6057        [10385]  
18/1/3 2          [10386]   22018  33          0 0 0       6-                                   SHIFT (AB) BY BITS
18/1/1 4126       [10387]  
27/0/0 2209       [10388]   22019  70  220    30 0 0        0 >NO FILES                         JUMP IF A == 0
4/0/0 5104        [10389]   22020  11          0 0 0     4000 BIT 15                            ADD LITERAL
18/0/1 1          [10390]   22021  30          0 0 0        1                                   SHIFT (A) BY QUARTETS
5/0/0 5301        [10391]   22022   2    1     9 0 0        0                                   SUBTRACT
27/0/0 2218       [10392]   22023  70  220    39 0 0        0 >MATCH FOUND                      JUMP IF A == 0
23/0/0 2          [10393]   22024  94  220    17 0 5        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
0/0/1 8182        [10394]  
24/1/0 2192       [10395]  
6/0/0 5299        [10396]   22025        1     7 0 0        0                                   SELECT
5/0/0 5105        [10397]   22026  12          0 0 0    53000  'C  '                            SUBTRACT LITERAL
27/0/1 2209       [10398]   22027  71  220    30 0 0        0 >                                 JUMP IF A != 0
26/0/0 4248       [10399]   22028  80  295     2 0 0        0 SET C-LINE IMPOSS                 ENTER SUBROUTINE
26/0/0 4252       [10400]   22029  80  296     2 0 0        0 IGNORE PREVIOUS LINE              ENTER SUBROUTINE
26/0/0 1584       [10401]   22030  80  195     2 0 0        0 >REPORT R                         ENTER SUBROUTINE
26/0/0 4248       [10402]   22031  80  295     2 0 0        0 >IGNORE                           ENTER SUBROUTINE
6/0/0 104         [10403]   22032       12    54 0 0        0                                   SELECT
1/1/2 42          [10404]   22033 101         42 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2216       [10405]   22034  70  220    37 0 0        0                                   JUMP IF A == 0
1/1/2 1           [10406]   22035 101          1 1 2        0                                   SUBTRACT LITERAL ADDRESS

   Source: ChuckK/Q1000169
27/0/1 2512       [10407]   22036  71  235     2 0 0        0 >                                 JUMP IF A != 0
2/1/0 110         [10408]   22037   5   12    60 1 0        0 42 OR 43                          TRANSFER
24/1/0 2512       [10409]   22038  76  235     2 0 0        0 >                                 JUMP unconditional
0/0/3 0           [10410]   22039  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 104         [10411]   22040       12    54 0 0        0                                   SELECT
1/1/2 132         [10412]   22041 101        132 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2226       [10413]   22042  73  220    47 0 0        0 >HENCE GROUP 4                    JUMP IF A < 0
1/1/2 3           [10414]   22043 101          3 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2335       [10415]   22044  73  222     2 0 0        0 >ACTIONS 132-134                  JUMP IF A < 0
24/1/0 2411       [10416]   22045  76  227     2 0 0        0 >ACTION 156                       JUMP unconditional
27/0/0 2411       [10417]   22046  70  227     2 0 0        0 >ACTION 156;CHECK L               JUMP IF A == 0
1/1/3 0           [10418]   22047  10          0 0 0        0 CLEAR A                           SELECT LITERAL
18/1/3 6          [10419]   22048  33          0 0 0        6 ROUTE TYPE                        SHIFT (AB) BY BITS
1/1/2 5           [10420]   22049  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/3 2284       [10421]   22050  73  221    20 0 0        0 >RT1-4                            JUMP IF A < 0
27/0/0 2277       [10422]   22051  70  221    13 0 0        0 >RT5                              JUMP IF A == 0
1/1/2 1           [10423]   22052  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2266       [10424]   22053  70  221     2 0 0        0 >RT6                              JUMP IF A == 0
1/1/2 3           [10425]   22054  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/3 2288       [10426]   22055  73  221    24 0 0        0 >RT7,8                            JUMP IF A < 0
27/0/0 2284       [10427]   22056  70  221    20 0 0        0 >RT9                              JUMP IF A == 0
1/1/2 1           [10428]   22057  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2266       [10429]   22058  70  221     2 0 0        0 >RT10                             JUMP IF A == 0
1/1/2 1           [10430]   22059  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2288       [10431]   22060  70  221    24 0 0        0 >RT11                             JUMP IF A == 0
1/1/2 1           [10432]   22061  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2266       [10433]   22062  70  221     2 0 0        0 >RT12                             JUMP IF A == 0
1/1/2 1           [10434]   22063  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2331       [10435]   22064  70  221    65 0 0        0 >RT13                             JUMP IF A == 0
1/1/2 2           [10436]   22065  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2266       [10437]   22066  70  221     2 0 0        0 >RT15                             JUMP IF A == 0
1/1/2 1           [10438]   22067  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2284       [10439]   22068  70  221    20 0 0        0 >RT16                             JUMP IF A == 0
1/1/2 2           [10440]   22069  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2331       [10441]   22070  70  221    65 0 0        0 >RT 18                            JUMP IF A == 0
1/1/2 1           [10442]   22071  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2284       [10443]   22072  70  221    20 0 0        0 >RT19                             JUMP IF A == 0
1/1/2 1           [10444]   22073  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2261       [10445]   22074  70  220    82 0 0        0 >RT 20                            JUMP IF A == 0
1/1/2 2           [10446]   22075  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2320       [10447]   22076  70  221    55 0 0        0 >22                               JUMP IF A == 0
1/1/2 2           [10448]   22077  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2273       [10449]   22078  70  221     9 0 0        0 >RT24                             JUMP IF A == 0
1/1/2 1           [10450]   22079  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2325       [10451]   22080  71  221    60 0 0        0 >NOT 25                           JUMP IF A != 0
24/1/0 2284       [10452]   22081  76  221    20 0 0        0 >LIKE1                            JUMP unconditional
6/0/0 104         [10453]   22082       12    54 0 0        0 ACTION                            SELECT
1/1/2 40          [10454]   22083 101         40 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2339       [10455]   22084  70  222     6 0 0        0 >ACTION 40                        JUMP IF A == 0
1/1/2 1           [10456]   22085  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2325       [10457]   22086  70  221    60 0 0        0 >REJECT                           JUMP IF A == 0

  Start of procedure 221 at location 2266 in chapter 3 [10458]
                  [10458]   22100 PROCR  221            CHECK FILES (CONTD)                                   
6/0/0 104         [10458]   22102       12    54 0 0        0 ACTION                            SELECT
1/1/2 42          [10459]   22103 101         42 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2512       [10460]   22104  70  235     2 0 0        0 >OK                               JUMP IF A == 0

   Source: RayS/Q1000170
6/0/0 104         [10461]   22105       12    54 0 0        0 RT 1-6+9-10                       SELECT
1/1/2 42          [10462]   22106 101         42 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2512       [10463]   22107  73  235     2 0 0        0 gOK                               JUMP IF A < 0
24/1/0 2325       [10464]   22108  76  221    60 0 0        0 gREJECT                           JUMP unconditional
6/0/0 104         [10465]   22109       12    54 0 0        0 ACTION                            SELECT
1/1/2 42          [10466]   22110 101         42 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2512       [10467]   22111  70  235     2 0 0        0 gOK                               JUMP IF A == 0
24/1/0 2325       [10468]   22112  76  221    60 0 0        0 gREJECT                           JUMP unconditional
6/0/0 104         [10469]   22113       12    54 0 0        0 RT 5                              SELECT
1/1/2 44          [10470]   22114 101         44 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/1 2266       [10471]   22115  71  221     2 0 0        0                                   JUMP IF A != 0
6/0/0 5308        [10472]   22116        1    16 0 0        0 L                                 SELECT
1/1/2 3           [10473]   22117  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/0 2512       [10474]   22118  70  235     2 0 0        0 gOK                               JUMP IF A == 0
24/1/0 2433       [10475]   22119  76  228     4 0 0        0 gIGNORE L                         JUMP unconditional
6/0/0 104         [10476]   22120       12    54 0 0        0 RT 1-4+9                          SELECT
1/1/2 43          [10477]   22121 101         43 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2512       [10478]   22122  70  235     2 0 0        0 gOK                               JUMP IF A == 0
24/1/0 2269       [10479]   22123  76  221     5 0 0        0                                   JUMP unconditional
6/0/0 104         [10480]   22124   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 48          [10481]   22125  12          0 0 0       30 48                                SUBTRACT LITERAL
27/0/0 2315       [10482]   22126  70  221    50 0 0        0 gACTION 48                        JUMP IF A == 0
6/0/0 104         [10483]   22127       12    54 0 0        0                                   SELECT
1/1/2 41          [10484]   22128  12          0 0 0       29 41                                SUBTRACT LITERAL
27/0/0 2315       [10485]   22129  70  221    50 0 0        0 gACTION 41 FOR M/T                JUMP IF A == 0
6/0/0 104         [10486]   22130       12    54 0 0        0                                   SELECT
1/1/2 44          [10487]   22131  12          0 0 0       2+                                   SUBTRACT LITERAL
27/0/0 2310       [10488]   22132  70  221    45 0 0        0 g44                               JUMP IF A == 0
1/1/2 2           [10489]   22133  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2301       [10490]   22134  70  221    37 0 0        0 g46                               JUMP IF A == 0
1/1/2 1           [10491]   22135  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2411       [10492]   22136  71  227     2 0 0        0 gNOT 47, CHECK L                  JUMP IF A != 0
6/1/0 5302        [10493]   22137        1    10 1 0        0                                   SELECT
27/0/3 2308       [10494]   22138  73  221    43 0 0        0 gREPORT                           JUMP IF A < 0
1/0/1 0           [10495]   22139  35          0 0 0        0                                   PREPARE FOR DIGIT COLLATION
18/1/3 3          [10496]   22140  33          0 0 0       1-                                   SHIFT (AB) BY BITS
18/1/1 4127       [10497]  
1/1/3 0           [10498]   22141  10          0 0 0        0                                   SELECT LITERAL
27/1/0 2411       [10499]   22142  74  227     2 0 0        0 gEVEN, OK                         JUMP IF AB == 0        // 27, 1, 0
26/0/0 1588       [10500]   22143  80  196     2 0 0        0 REPORT I                          ENTER SUBROUTINE
24/1/0 2411       [10501]   22144  76  227     2 0 0        0                                   JUMP unconditional
6/1/0 5308        [10502]   22145        1    16 1 0        0 L                                 SELECT
1/1/2 2           [10503]   22146  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2512       [10504]   22147  70  235     2 0 0        0 gOK                               JUMP IF A == 0
1/1/2 1           [10505]   22148  12          0 0 0        1                                   SUBTRACT LITERAL
24/1/0 2431       [10506]   22149  76  228     2 0 0        0                                   JUMP unconditional
6/1/0 5308        [10507]   22150        1    16 1 0        0 LITERAL                           SELECT
27/0/3 2434       [10508]   22151  73  228     5 0 0        0 gREPORT L                         JUMP IF A < 0
1/1/2 4           [10509]   22152  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 2434       [10510]   22153  72  228     5 0 0        0 gREPORT L                         JUMP IF A >= 0
24/1/0 2512       [10511]   22154  76  235     2 0 0        0 gOK                               JUMP unconditional
6/0/0 4709        [10512]   22155      317    87 0 0        0 CONST FOR 2ND C-LINE              SELECT
2/0/0 4636        [10513]   22156   5  317    14 0 0        0                                   TRANSFER
6/0/0 104         [10514]   22157       12    54 0 0        0 ACTION                            SELECT

   Source: RayS/Q1000171
1/1/2 41          [10515]   22158 101         41 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/1 2284       [10516]   22159  71  221    20 0 0        0 gOK, NOT 41                       JUMP IF A != 0
6/1/0 5214        [10517]   22160  10          0 0 0  5100000000 A                                 SELECT LITERAL
2/1/0 5336        [10518]   22161   5    1    44 1 0        0                                   TRANSFER
26/0/0 4248       [10519]   22162  80  295     2 0 0        0 gIGNORE THIS INSTRUCTION          ENTER SUBROUTINE
24/0/3 0    Extra code needed to address 5714 from 10520 (different chapter)
2/1/0 5714        [10521]   22163   5    2    60 1 0        0 SET C LINE IMPOSSIBLE             TRANSFER
24/1/0 2211       [10522]   22164  76  220    32 0 0        0 gCHECK FOR C-LINE                 JUMP unconditional
6/0/0 104         [10523]   22165       12    54 0 0        0                                   SELECT
1/1/2 44          [10524]   22166 101         44 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2512       [10525]   22167  73  235     2 0 0        0 gOK                               JUMP IF A < 0
24/1/0 2325       [10526]   22168  76  221    60 0 0        0 gREJECT                           JUMP unconditional

  Start of procedure 222 at location 2335 in chapter 3 [10527]
                  [10527]   22200 PROCR  222                    ACTIONS 132-134                   
1/1/3 0           [10527]   22202  10          0 0 0        0 CLEAR A                           SELECT LITERAL
18/1/3 6          [10528]   22203  33          0 0 0        6 RT                                SHIFT (AB) BY BITS
1/1/2 17          [10529]   22204  12          0 0 0       11                                   SUBTRACT LITERAL
27/0/1 2325       [10530]   22205  71  221    60 0 0        0 gWRONG FILE                       JUMP IF A != 0
6/1/0 5302        [10531]   22206        1    10 1 0        0 ITEM                              SELECT
27/0/3 2129       [10532]   22207  73  218    18 0 0        0 gIGNORE I                         JUMP IF A < 0
27/0/0 2129       [10533]   22208  70  218    18 0 0        0 gIGNORE I                         JUMP IF A == 0
1/1/2 256         [10534]   22209  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/2 2129       [10535]   22210  72  218    18 0 0        0 gIGNORE I                         JUMP IF A >= 0
6/1/0 5302        [10536]   22211        1    10 1 0        0                                   SELECT
26/0/0 1358       [10537]   22212  80  183     2 0 0        0 gDECODE SECTION NO                ENTER SUBROUTINE
0/0/2 90          [10538]   22213  34   12    40 0 0        0 COLLATION BIT                     SET (N) IN B
18/1/3 10         [10539]   22214  33          0 0 0       10                                   SHIFT (AB) BY BITS
15/0/3 122        [10540]   22215  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/0 2129       [10541]   22216  70  218    18 0 0        0 gNOT A TX AREA, IGNORE I          JUMP IF A == 0
24/1/0 2387       [10542]   22217  76  225    17 0 0        0 gX AREA CHECK, & CHECK L          JUMP unconditional

  Start of procedure 223 at location 2351 in chapter 3 [10543]
                  [10543]   22300 PROCR  223                    ACTIONS 132-134                   

  Start of procedure 224 at location 2351 in chapter 3 [10543]
                  [10543]   22400 PROCR  224                    TEST R IS A PROCEDURE NUMBER      
                  [10543]   22401 NOTES      RADIX              SWITCH=4                          
6/0/0 54          [10543]   22402       12     4 0 0        0                                   SELECT
27/0/1 2355       [10544]   22403  71  224     6 0 0        0 gNOT ABSOLUTE ADDRESS             JUMP IF A != 0
6/0/0 5306        [10545]   22404   0    1    14 0 0        0 MOD DIGITS                        SELECT
27/0/1 2363       [10546]   22405  71  224    14 0 0        0 gOK                               JUMP IF A != 0
1/1/2 256         [10547]   22406  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 2147       [10548]   22407  73  218    36 0 0        0 gIGNORE R                         JUMP IF A < 0
1/1/2 2201        [10549]   22408  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/3 2363       [10550]   22409  73  224    14 0 0        0 gOK                               JUMP IF A < 0
1/1/2 2           [10551]   22410  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/3 2147       [10552]   22411  73  218    36 0 0        0 gIGNORE R                         JUMP IF A < 0
1/1/2 32          [10553]   22412  12          0 0 0       20                                   SUBTRACT LITERAL
27/0/2 2147       [10554]   22413  72  218    36 0 0        0 gIGNORE R                         JUMP IF A >= 0
6/0/0 104         [10555]   22414       12    54 0 0        0                                   SELECT
1/1/2 70          [10556]   22415 101         70 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2368       [10557]   22416  73  224    19 0 0        0 gCHECK I                          JUMP IF A < 0
1/1/2 10          [10558]   22417 101         10 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/3 2411       [10559]   22418  73  227     2 0 0        0 gACTION 70-79, DON'T CHECK I      JUMP IF A < 0
6/0/0 5302        [10560]   22419        1    10 0 0        0                                   SELECT
26/0/0 1568       [10561]   22420  80  192     2 0 0        0 gCHECK I EVEN                     ENTER SUBROUTINE

   Source: KenK/Q1000172
24/1/0 2411       [10562]   22421  76  227     2 0 0        0 gCHECK LITERAL                    JUMP unconditional

  Start of procedure 225 at location 2371 in chapter 3 [10563]
                  [10563]   22500 PROCR  225                                                      
                  [10563]   22501 NOTES      RADIX                                                
1/1/3 1           [10563]   22502  10          0 0 0        1 SWITCHES                          SELECT LITERAL
2/0/0 109         [10564]   22503   5   12    59 0 0        0                                   TRANSFER
24/1/0 2113       [10565]   22504  76  218     2 0 0        0 gCHECK R IS A SECTION             JUMP unconditional
1/1/3 0           [10566]   22505  10          0 0 0        0                                   SELECT LITERAL
0/0/2 90          [10567]   22506  34   12    40 0 0        0                                   SET (N) IN B
18/1/3 10         [10568]   22507  33          0 0 0       10                                   SHIFT (AB) BY BITS
15/0/3 122        [10569]   22508  36   12    72 0 3        0 COLLATE TX AREA IND               COLLATE AND ADD
27/0/0 2404       [10570]   22509  70  225    31 0 0        0 gNOT, IGNORE PREVIOUS INSTRUCTION  JUMP IF A == 0
1/1/3 0           [10571]   22510  10          0 0 0        0                                   SELECT LITERAL
0/0/2 4820        [10572]   22511  34  320    44 0 0        0 BITS 1-6                          SET (N) IN B
24/0/1 8182       [10573]   22512  36   91     5 0 5        0                                   COLLATE AND ADD
15/0/0 6057       [10574]  
1/1/2 3           [10575]   22513  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/0 2411       [10576]   22514  70  227     2 0 0        0 gRT 3 CARD O/P                    JUMP IF A == 0
1/1/2 1           [10577]   22515  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2411       [10578]   22516  70  227     2 0 0        0 gRT 4;GP PRINT                    JUMP IF A == 0
24/0/3 22         [10579]   22517  96          0 0 3        0                                   SELECT MODIFIER
6/0/0 6           [10580]  
1/0/1 0           [10581]   22518  35          0 0 0        0 CLEAR B                           PREPARE FOR DIGIT COLLATION
18/1/3 3          [10582]   22519  33          0 0 0       1- HALVE THE MODIFIER                SHIFT (AB) BY BITS
18/1/1 4127       [10583]  
24/0/3 22         [10584]   22520  92          0 0 3        0 SET NEW MODIFIER, CLEAR A         SET MODIFIER AT VARIABLE
2/0/0 6           [10585]  
27/1/0 2399       [10586]   22521  74  225    26 0 0        0 g NO REMAINDER                    JUMP IF AB == 0        // 27, 1, 0
0/0/2 90          [10587]   22522  34   12    40 0 0        0                                   SET (N) IN B
6/0/0 90          [10588]   22523       12    40 0 0        0                                   SELECT
18/1/3 10         [10589]   22524  33          0 0 0       10 FORM 5-LOCN MATRIX FOR ALL TX AREAS  SHIFT (AB) BY BITS
24/1/0 2401       [10590]   22525  76  225    28 0 0        0 NOT USED IN GPOP ORDERS           JUMP unconditional
6/0/0 90          [10591]   22526       12    40 0 0        0                                   SELECT
0/0/2 90          [10592]   22527  34   12    40 0 0        0                                   SET (N) IN B
14/0/3 150        [10593]   22528  37   12   100 0 3        0 SET BIT                           REPLACE SELECTED BITS
0/0/3 5106        [10594]   22529  60          0 0 0        0 AREA PATTERN                      SET DECIMAL RADIX
24/1/0 2411       [10595]   22530  76  227     2 0 0        0                                   JUMP unconditional
26/0/0 4252       [10596]   22531  80  296     2 0 0        0 IGNORE PREVIOUS;INSTRUCTION       ENTER SUBROUTINE
24/1/0 2209       [10597]   22532  76  220    30 0 0        0                                   JUMP unconditional

  Start of procedure 226 at location 2406 in chapter 3 [10598]
                  [10598]   22600 PROCR  226                    TEST REFERENCE IS GREATER THAN 99  
                  [10598]   22601 NOTES      RADIX              SWITCH=6                          
6/0/0 54          [10598]   22602       12     4 0 0        0                                   SELECT
1/1/2 256         [10599]   22603  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 2147       [10600]   22604  73  218    36 0 0        0                                   JUMP IF A < 0
1/1/2 2304        [10601]   22605  12          0 0 0      900                                   SUBTRACT LITERAL
27/0/2 2147       [10602]   22606  72  218    36 0 0        0 IGNORE R                          JUMP IF A >= 0

  Start of procedure 227 at location 2411 in chapter 3 [10603]
                  [10603]   22700 PROCR  227                    SWITCH FOR LITERALS               
                  [10603]   22701 NOTES      RADIX              CHECK L IS NOT > 10 QUARTETS      

   Source: KenK/Q1000173
6/1/0 5310        [10603]   22702   0    1    18 1 0        0                                   SELECT
27/0/1 2433       [10604]   22703  71  228     4 0 0        0 gIGNORE L                         JUMP IF A != 0
0/1/2 5308        [10605]   22704  34    1    16 1 0        0                                   SET (N) IN B
18/1/1 10         [10606]   22705  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
2/1/0 5310        [10607]   22706   5    1    18 1 0        0 STORE MODULUS L                   TRANSFER
24/0/1 8164       [10608]   22707  85  227     2 0 0        0                                   SWITCH R
26/0/1 2417       [10609]  
0/0/1 2512        [10610]   22708   C  235     2 0 0        0 gNO FURTHER CHECK                 
0/0/1 2459        [10611]   22709   C  233     2 0 0        0 gMOD L<8192                    
0/0/1 2436        [10612]   22710   C  229     2 0 0        0 gL POSITIVE/ZERO                  
0/0/1 2439        [10613]   22711   C  230     2 0 0        0 MOD<32                         
0/0/1 2444        [10614]   22712   C  231     2 0 0        0 L HAS DIGITS 0 OR 1               
0/0/1 2454        [10615]   22713   C  232     2 0 0        0 1-<L<16                     
0/0/1 2469        [10616]   22714   C  233    12 0 0        0 1-<L<8182                   
0/0/1 2478        [10617]   22715   C  234     2 0 0        0 -1<L<5 QTTS                 
0/0/1 2481        [10618]   22716   C  234     5 0 0        0 MOD L<4096                     
0/0/1 2493        [10619]   22717   C  234    17 0 0        0 gL NONZERO                        
0/0/1 2496        [10620]   22718   C  234    20 0 0        0 gL ZERO                           
0/0/1 2498        [10621]   22719   C  234    22 0 0        0 gL<100                         
0/0/1 2508        [10622]   22720   C  234    32 0 0        0 gIF L=0,MUST HAVE C-LINE          

  Start of procedure 228 at location 2431 in chapter 3 [10623]
                  [10623]   22800 PROCR  228                    MAKE REPORTS ON L                 
                  [10623]   22801 NOTES      RADIX              SWITCH=2                          
27/0/0 2512       [10623]   22802  70  235     2 0 0        0                                   JUMP IF A == 0
24/1/0 2434       [10624]   22803  76  228     5 0 0        0                                   JUMP unconditional
26/0/0 4248       [10625]   22804  80  295     2 0 0        0 gIGNORE                           ENTER SUBROUTINE
26/0/0 1592       [10626]   22805  80  197     2 0 0        0 gREPORT L                         ENTER SUBROUTINE
24/1/0 2512       [10627]   22806  76  235     2 0 0        0 gEND OF CHECKS                    JUMP unconditional

  Start of procedure 229 at location 2436 in chapter 3 [10628]
                  [10628]   22900 PROCR  229                    TEST L IS POSITIVE OR ZERO        
                  [10628]   22901 NOTES      RADIX              SWITCH=3                          
6/1/0 5308        [10628]   22902        1    16 1 0        0 (ACTIONS 11,12)                   SELECT
27/0/2 2512       [10629]   22903  72  235     2 0 0        0 gOK                               JUMP IF A >= 0
24/1/0 2433       [10630]   22904  76  228     4 0 0        0 gIGNORE L                         JUMP unconditional

  Start of procedure 230 at location 2439 in chapter 3 [10631]
                  [10631]   23000 PROCR  230                    L=1-31 INCLUSIVE                  
                  [10631]   23001 NOTES      RADIX              SWITCH=4                          

   Source: KenK/Q1000183
   Query:  believe item=18 by comparison to other procrs annotated MOD L
6/1/0 5310        [10631]   23002   0    1    18 1 0        0 MOD L;(ACTIONS 30-33)             SELECT
27/0/0 2434       [10632]   23003  70  228     5 0 0        0 gREPORT L                         JUMP IF A == 0
1/1/2 50          [10633]   23004  12          0 0 0       32                                   SUBTRACT LITERAL
27/0/2 2434       [10634]   23005  72  228     5 0 0        0 gREPORT L                         JUMP IF A >= 0
24/1/0 2512       [10635]   23006  76  235     2 0 0        0                                   JUMP unconditional

  Start of procedure 231 at location 2444 in chapter 3 [10636]
                  [10636]   23100 PROCR  231                    TEST DIGITS OF L ARE 1 OR 0       
                  [10636]   23101 NOTES      RADIX              SWITCH=5                          
26/1/3 5216       [10636]   23102  90          0 0 3        0 ACTION 35, CERTAIN GROUP 4        SET MODIFICATION REGISTER AT LITERAL
                  [10637]   23103   C          0 0 0       10                                   Limit
1/1/3 0           [10637]   23104  10          0 0 0        0                                   SELECT LITERAL
0/1/2 5308        [10638]   23105  34    1    16 1 0        0                                   SET (N) IN B
18/1/1 1          [10639]   23106  32          0 0 0        1                                   SHIFT (AB) BY QUARTETS
27/0/0 2451       [10640]   23107  70  231    10 0 0        0                                   JUMP IF A == 0
1/1/2 1           [10641]   23108  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2434       [10642]   23109  71  228     5 0 0        0                                   JUMP IF A != 0
25/0/3 1          [10643]   23110  94  231     6 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2447       [10644] s
24/1/0 2512       [10645]   23111  76  235     2 0 0        0 gOK                               JUMP unconditional

  Start of procedure 232 at location 2454 in chapter 3 [10646]
                  [10646]   23200 PROCR  232                    TEST L IS IN RANGE 1-15           
                  [10646]   23201 NOTES      RADIX              SWITCH=6                          
6/1/0 5308        [10646]   23202        1    16 1 0        0 ACTION 38                         SELECT
27/0/3 2433       [10647]   23203  73  228     4 0 0        0 gREPORT L IGNORE                  JUMP IF A < 0
1/1/2 22          [10648]   23204  12          0 0 0       16                                   SUBTRACT LITERAL
27/0/2 2434       [10649]   23205  72  228     5 0 0        0                                   JUMP IF A >= 0
24/1/0 2512       [10650]   23206  76  235     2 0 0        0 gOK                               JUMP unconditional

  Start of procedure 233 at location 2459 in chapter 3 [10651]
                  [10651]   23300 PROCR  233                    L IS LESS THAN 8192  BULK COPY   
                  [10651]   23301 NOTES      RADIX              SWITCH=7                          
6/0/0 111         [10651]   23302       12    61 0 0        0 C-LINE IND;(ACTION 90)            SELECT
27/0/1 2464       [10652]   23303  71  233     7 0 0        0 gNOT C-LINE                       JUMP IF A != 0
6/0/0 96          [10653]   23304       12    46 0 0        0 FIRST LINE LITERAL                SELECT
0/0/2 5310        [10654]   23305  34    1    18 0 0        0 C-LINE LITERAL                    SET (N) IN B
27/1/0 2434       [10655]   23306  74  228     5 0 0        0 gREPORT L IF BOTH ZERO            JUMP IF AB == 0        // 27, 1, 0
6/1/0 5310        [10656]   23307        1    18 1 0        0                                   SELECT
3/0/0 96          [10657]   23308   3   12    46 0 0        0                                   COPY
5/0/0 5107        [10658]   23309  12          0 0 0     8192                                   SUBTRACT LITERAL
27/0/2 2434       [10659]   23310  72  228     5 0 0        0 gREPORT L                         JUMP IF A >= 0
24/1/0 2512       [10660]   23311  76  235     2 0 0        0 gOK                               JUMP unconditional
6/1/0 5308        [10661]   23312        1    16 1 0        0 ACTION 55                         SELECT
27/0/3 2433       [10662]   23313  73  228     4 0 0        0 gIGNORE L                         JUMP IF A < 0
6/0/0 5304        [10663]   23314        1    12 0 0        0 DISC                              SELECT
27/0/0 2474       [10664]   23315  70  233    17 0 0        0 gSHORT                            JUMP IF A == 0
6/0/0 5108        [10665]   23316  10          0 0 0     4095                                   SELECT LITERAL
4/0/0 5109        [10666]   23317  11          0 0 0     4095                                   ADD LITERAL
5/1/0 5308        [10667]   23318   2    1    16 1 0        0                                   SUBTRACT
27/0/3 2433       [10668]   23319  73  228     4 0 0        0 gIGNORE L                         JUMP IF A < 0
24/1/0 2512       [10669]   23320  76  235     2 0 0        0 gOK                               JUMP unconditional

  Start of procedure 234 at location 2478 in chapter 3 [10670]
                  [10670]   23400 PROCR  234                                                      
                  [10670]   23401 NOTES      RADIX                                                
6/1/0 5308        [10670]   23402   0    1    16 1 0        0 LITERAL IN 5 QUARTETS             SELECT
18/0/1 4123       [10671]   23403  30          0 0 0       5- (LEAVE SIGN IN A)                 SHIFT (A) BY QUARTETS
24/1/0 2431       [10672]   23404  76  228     2 0 0        0                                   JUMP unconditional
6/0/0 104         [10673]   23405   0   12    54 0 0        0 ACTIONS 54,94                     SELECT
1/1/2 54          [10674]   23406  12          0 0 0       36                                   SUBTRACT LITERAL
27/0/1 2490       [10675]   23407  71  234    14 0 0        0 gNOT ACTION 54                    JUMP IF A != 0
6/1/0 5308        [10676]   23408   0    1    16 1 0        0                                   SELECT
27/0/3 2433       [10677]   23409  73  228     4 0 0        0 gIGNORE L                         JUMP IF A < 0
   Query: action believed to be 70: line 23411 may be missing or on next page
27/0/0 2510       [10678]   23410  70  234    34 0 0        0                                   JUMP IF A == 0

   Source: TonyJ/Q1000185
1/1/3 0           [10679]   23411  10          0 0 0        0                                   SELECT LITERAL
2/1/0 110         [10680]   23412   5   12    60 1 0        0                                   TRANSFER
24/1/0 2471       [10681]   23413  76  233    14 0 0        0 >CHECK RANGE                      JUMP unconditional
6/1/0 5310        [10682]   23414   0    1    18 1 0        0 MOD L                             SELECT
5/0/0 5110        [10683]   23415  12          0 0 0     4096                                   SUBTRACT LITERAL
24/1/0 2442       [10684]   23416  76  230     5 0 0        0                                   JUMP unconditional
6/1/0 5308        [10685]   23417   0    1    16 1 0        0 CHECK L NONZERO (ACTION 17:19)    SELECT
27/0/0 2434       [10686]   23418  70  228     5 0 0        0                                   JUMP IF A == 0
24/1/0 2512       [10687]   23419  76  235     2 0 0        0                                   JUMP unconditional
6/1/0 5308        [10688]   23420        1    16 1 0        0 CHECK L=0  ACTIONS 83             SELECT
24/1/0 2431       [10689]   23421  76  228     2 0 0        0                                   JUMP unconditional
6/1/0 5308        [10690]   23422        1    16 1 0        0 L<100                          SELECT
27/0/3 2434       [10691]   23423  73  228     5 0 0        0 > REPORT L                        JUMP IF A < 0
1/1/2 256         [10692]   23424  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/2 2433       [10693]   23425  72  228     4 0 0        0 > IGNORE L                        JUMP IF A >= 0
6/0/0 104         [10694]   23426   0   12    54 0 0        0 ACTION                            SELECT
1/1/2 83          [10695]   23427 101         83 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/1 2512       [10696]   23428  71  235     2 0 0        0 > NOT 83                          JUMP IF A != 0
6/0/0 5308        [10697]   23429   0    1    16 0 0        0                                   SELECT
27/0/0 2433       [10698]   23430  70  228     4 0 0        0 > IGNORE L                        JUMP IF A == 0
24/1/0 2512       [10699]   23431  76  235     2 0 0        0                                   JUMP unconditional
6/1/0 5308        [10700]   23432   0    1    16 1 0        0 ACTION 77, 78                     SELECT
27/0/1 2512       [10701]   23433  71  235     2 0 0        0 > OK                              JUMP IF A != 0
1/1/3 1           [10702]   23434  10          0 0 0        1 (ZERO L FOR 54, 77, 78 ACTIONS)   SELECT LITERAL
2/0/0 111         [10703]   23435   5   12    61 0 0        0 MUST BE C-LINE                    TRANSFER

  Start of procedure 235 at location 2512 in chapter 3 [10704]
                  [10704]   23500 PROCR  235       235    TEST FP/MG USED, STORE MR>3 DETAILS                                   
                  [10704]   23501 NOTES            RADIX                                              
0/0/3 0           [10704]   23502  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 104         [10705]   23503       12    54 0 0        0                                   SELECT
1/1/2 20          [10706]   23504  12          0 0 0       14 TEST ACTION IS 20 - 29            SUBTRACT LITERAL
27/0/3 2810       [10707]   23505  73  247     2 0 0        0                                   JUMP IF A < 0
1/1/2 10          [10708]   23506  12          0 0 0        t                                   SUBTRACT LITERAL
27/0/3 2527       [10709]   23507  73  235    17 0 0        0                                   JUMP IF A < 0
1/1/2 21          [10710]   23508  12          0 0 0       15                                   SUBTRACT LITERAL
27/0/3 2810       [10711]   23509  73  247     2 0 0        0 >30 - 50                          JUMP IF A < 0
1/1/2 15          [10712]   23510  12          0 0 0                                           SUBTRACT LITERAL
27/0/0 2524       [10713]   23511  70  235    14 0 0        0 > 66                              JUMP IF A == 0

   Source: RayS/Q1000186
1/1/2 1           [10714]   23512  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2529       [10715]   23513  71  235    19 0 0        0 gNOT 67                           JUMP IF A != 0
6/0/0 5111        [10716]   23514  10          0 0 0       1-                                   SELECT LITERAL
2/0/0 6019        [10717]   23515   5   92     5 0 0        0                                   TRANSFER
24/1/0 2529       [10718]   23516  76  235    19 0 0        0                                   JUMP unconditional
2/0/0 6019        [10719]   23517   5   92     5 0 0        0 SET F. PT. INDICATOR FOR PASS 3   TRANSFER
24/1/0 2810       [10720]   23518  76  247     2 0 0        0                                   JUMP unconditional
6/0/0 5306        [10721]   23519        1    14 0 0        0 MOD DIGITS                        SELECT
26/0/0 2771       [10722]   23520  80  245     2 0 0        0 gCONVERT                          ENTER SUBROUTINE
3/0/0 138         [10723]   23521   3   12    88 0 0        0 STORE                             COPY
27/0/0 2557       [10724]   23522  70  236     2 0 0        0                                   JUMP IF A == 0
1/1/2 4           [10725]   23523  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/3 2557       [10726]   23524  73  236     2 0 0        0 gMR 1-3                           JUMP IF A < 0
6/0/0 104         [10727]   23525       12    54 0 0        0 ACTION                            SELECT
1/1/2 59          [10728]   23526  12          0 0 0       3e 59                                SUBTRACT LITERAL
27/0/0 2542       [10729]   23527  70  235    32 0 0        0 gACTION 59                        JUMP IF A == 0
1/1/2 31          [10730]   23528  12          0 0 0       1p 31                                SUBTRACT LITERAL
27/0/3 2557       [10731]   23529  73  236     2 0 0        0 g<90                           JUMP IF A < 0
1/1/2 4           [10732]   23530  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 2557       [10733]   23531  72  236     2 0 0        0 g>93                              JUMP IF A >= 0
26/1/3 5430       [10734]   23532  91   71     0 0 3        0 CTR OF MR'S (INITIALLY 0:0)       SET MODIFICATION REGISTER AT VARIABLE
1/1/3 0           [10735]   23533  10          0 0 0        0                                   SELECT LITERAL
1/0/1 3           [10736]   23534  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/3 5432       [10737]   23535  36   71     2 0 3        0                                   COLLATE AND ADD
27/0/0 2551       [10738]   23536  70  235    40 0 0        0 gNONE STORED YET                  JUMP IF A == 0
5/0/0 138         [10739]   23537   2   12    88 0 0        0 THIS ONE                          SUBTRACT
27/0/0 2557       [10740]   23538  70  236     2 0 0        0 gALREADY STORED                   JUMP IF A == 0
25/0/3 1          [10741]   23539  94  235    33 0 3        1 gSEARCH                           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2543       [10742]  
6/0/0 6014        [10743]   23540       92     0 0 0        0 UNCORR CHAP (BIN)                 SELECT
18/0/1 4          [10744]   23541  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
4/0/0 138         [10745]   23542   1   12    88 0 0        0 MR (BIN)                          ADD
2/0/3 5432        [10746]   23543   5   71     2 0 3        0 STORE DETAIL                      TRANSFER
1/1/3 1           [10747]   23544  10          0 0 0        1                                   SELECT LITERAL
7/0/0 5431        [10748]   23545   4   71     1 0 0        0 AUG CTR                           AUGMENT

  Start of procedure 236 at location 2557 in chapter 3 [10749]
                  [10749]   23600 PROCR  236                    TEST ACTION IS C                  
                  [10749]   23601 NOTES      RADIX              FOR ACTIONS 85 AND 150            
0/0/3 0           [10749]   23602  62          0 0 0        0                                   SET EXCESS CONSTANTS

  Start of procedure 237 at location 2558 in chapter 3 [10750]
                  [10750]   23700 PROCR  237                    TEST FOR SEQUENCE CHANGES         
                  [10750]   23701 NOTES      RADIX                                                
6/0/0 104         [10750]   23702   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 70          [10751]   23703  12          0 0 0       46                                   SUBTRACT LITERAL
27/0/3 2726       [10752]   23704  73  243     2 0 0        0 gACTION <70                    JUMP IF A < 0
1/1/2 7           [10753]   23705  12          0 0 0        7                                   SUBTRACT LITERAL
27/0/3 2632       [10754]   23706  73  240     2 0 0        0 ACTIONS 70-76                     JUMP IF A < 0
1/1/2 2           [10755]   23707  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2632       [10756]   23708  70  240     2 0 0        0 gACTION 79                        JUMP IF A == 0
27/0/2 2570       [10757]   23709  72  237    14 0 0        0 gOTHERS                           JUMP IF A >= 0
6/1/0 5298        [10758]   23710   0    1     6 1 0        0 ACTION OR C                       SELECT
5/1/0 5218        [10759]   23711  12          0 0 0  5300000000                                   SUBTRACT LITERAL
27/0/1 2632       [10760]   23712  71  240     2 0 0        0 gMAINLINE OF 77, 78               JUMP IF A != 0
24/1/0 2810       [10761]   23713  76  247     2 0 0        0 gHENCE C-LINE OF 77-78            JUMP unconditional
1/1/2 6           [10762]   23714  12          0 0 0        6                                   SUBTRACT LITERAL
27/0/0 2585       [10763]   23715  70  238     2 0 0        0 gACTION 85                        JUMP IF A == 0

   Source: KenK/Q1000187
1/1/2 2           [10764]   23716  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2578       [10765]   23717  70  237    22 0 0        0 g87                               JUMP IF A == 0
1/1/2 7           [10766]   23718  12          0 0 0        7                                   SUBTRACT LITERAL
27/0/0 2622       [10767]   23719  70  239    13 0 0        0 gACTION 94                        JUMP IF A == 0
1/1/2 3           [10768]   23720  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/1 2582       [10769]   23721  71  237    26 0 0        0 gACTIONS>97                       JUMP IF A != 0
6/0/0 5299        [10770]   23722        1     7 0 0        0                                   SELECT
5/0/0 5112        [10771]   23723  12          0 0 0    53000                                   SUBTRACT LITERAL
27/0/0 2632       [10772]   23724  70  240     2 0 0        0 gIS C-LINE, COUNT AS CHANGE       JUMP IF A == 0
24/1/0 2810       [10773]   23725  76  247     2 0 0        0 gOUTPUT                           JUMP unconditional
1/1/2 53          [10774]   23726  12          0 0 0       35                                   SUBTRACT LITERAL
27/0/0 2578       [10775]   23727  70  237    22 0 0        0 gACTION 150                       JUMP IF A == 0
24/1/0 2611       [10776]   23728  76  239     2 0 0        0 gTRY MACHINE CODE ACTIONS         JUMP unconditional

  Start of procedure 238 at location 2585 in chapter 3 [10777]
                  [10777]   23800 PROCR  238                    FORM SWITCH DETAILS               
                  [10777]   23801 NOTES      RADIX                                                
6/0/0 5299        [10777]   23802        1     7 0 0        0                                   SELECT
5/0/0 5113        [10778]   23803  12          0 0 0    53000                                   SUBTRACT LITERAL
27/0/0 2632       [10779]   23804  70  240     2 0 0        0 gIS C-LINE OF 85 ACTION           JUMP IF A == 0
26/1/3 6100       [10780]   23805  91   95     0 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
6/0/0 54          [10781]   23806       12     4 0 0        0 PROCR                             SELECT
26/0/0 2771       [10782]   23807  80  245     2 0 0        0 gCONVERT                          ENTER SUBROUTINE
2/0/0 82          [10783]   23808   5   12    32 0 0        0                                   TRANSFER
1/1/3 0           [10784]   23809  10          0 0 0        0                                   SELECT LITERAL
0/0/2 4746        [10785]   23810  34  319    20 0 0        0 BITS 1-10                         SET (N) IN B
15/0/3 6102       [10786]   23811  36   95     2 0 3        0                                   COLLATE AND ADD
27/0/0 2600       [10787]   23812  70  238    16 0 0        0 gNONE STORED YET                  JUMP IF A == 0
5/0/0 82          [10788]   23813   2   12    32 0 0        0                                   SUBTRACT
27/0/0 2609       [10789]   23814  70  238    25 0 0        0 gALREADY STORED                   JUMP IF A == 0
25/0/3 1          [10790]   23815  94  238     9 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2592       [10791]  
6/0/0 6101        [10792]   23816   0   95     1 0 0        0                                   SELECT
1/1/2 48          [10793]   23817  12          0 0 0       30                                   SUBTRACT LITERAL
27/0/2 2609       [10794]   23818  72  238    25 0 0        0 gDONT STORE 49-TH                 JUMP IF A >= 0
6/0/0 6014        [10795]   23819   0   92     0 0 0        0 CURRENT BIN UNCORR CHAP           SELECT
18/0/1 4          [10796]   23820  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
4/0/0 82          [10797]   23821   1   12    32 0 0        0 SWITCH PROCR                      ADD
2/0/3 6102        [10798]   23822   5   95     2 0 3        0 STORE DETAIL                      TRANSFER
1/1/3 1           [10799]   23823  10          0 0 0        1                                   SELECT LITERAL
7/0/0 6101        [10800]   23824   4   95     1 0 0        0 STEP CTR                          AUGMENT
0/0/3 5114        [10801]   23825  60          0 0 0        0 COUNTER IN BINARY                 SET DECIMAL RADIX
24/1/0 2810       [10802]   23826  76  247     2 0 0        0 gO/P INSTRUCTION                  JUMP unconditional

  Start of procedure 239 at location 2611 in chapter 3 [10803]
                  [10803]   23900 PROCR  239                    MACHINE CODE SEQUENCE CHANGES     
                  [10803]   23901 NOTES      RADIX                                                
6/0/0 104         [10803]   23902   0   12    54 0 0        0 BIN ACTION                        SELECT
1/1/2 127         [10804]   23903  12          0 0 0       7p                                   SUBTRACT LITERAL
27/0/0 2632       [10805]   23904  70  240     2 0 0        0 gACTION 127/D/M                   JUMP IF A == 0
1/1/1 3           [10806]   23905  11          0 0 0        3                                   ADD LITERAL
27/0/1 2672       [10807]   23906  71  241     2 0 0        0 gNOT 124/D/M                      JUMP IF A != 0
6/0/0 5304        [10808]   23907        1    12 0 0        0                                   SELECT
1/1/2 1           [10809]   23908  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2672       [10810]   23909  71  241     2 0 0        0 gNOT 124/1/M                      JUMP IF A != 0
6/0/0 5306        [10811]   23910        1    14 0 0        0                                   SELECT
27/0/1 2672       [10812]   23911  71  241     2 0 0        0 gNOT 124/1/0                      JUMP IF A != 0
24/1/0 2632       [10813]   23912  76  240     2 0 0        0 ;ACTION 94                        JUMP unconditional
0/0/3 5115        [10814]   23913  60          0 0 0        0                                   SET DECIMAL RADIX
6/1/0 5308        [10815]   23914   0    1    16 1 0        0                                   SELECT
27/0/1 2626       [10816]   23915  71  239    17 0 0        0                                   JUMP IF A != 0

   Source: KenK/Q1000188
26/0/0 1592       [10817]   23916  80  197     2 0 0        0 gREPORT L                         ENTER SUBROUTINE
6/1/0 5300        [10818]   23917   0    1     8 1 0        0                                   SELECT
27/0/1 2632       [10819]   23918  71  240     2 0 0        0 gCOUNT AS SEQ CHANGE              JUMP IF A != 0
6/0/0 5302        [10820]   23919   0    1    10 0 0        0                                   SELECT
27/0/0 2810       [10821]   23920  70  247     2 0 0        0                                   JUMP IF A == 0
26/0/0 1588       [10822]   23921  80  196     2 0 0        0 gREPORT I                         ENTER SUBROUTINE
24/1/0 2810       [10823]   23922  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 240 at location 2632 in chapter 3 [10824]
                  [10824]   24000 PROCR  240                    TEST IF SEQUENCE CHANGE IS FORWARD OR BACK  
                  [10824]   24001 NOTES      RADIX                                                
6/0/0 54          [10824]   24002   0   12     4 0 0        0 DEC REF                           SELECT
1/1/2 2457        [10825]   24003  12          0 0 0      999                                   SUBTRACT LITERAL
27/0/2 2810       [10826]   24004  72  247     2 0 0        0                                   JUMP IF A >= 0
6/0/0 6017        [10827]   24005   0   92     3 0 0        0 (CURRENT LINE SERIAL)             SELECT
18/0/1 2          [10828]   24006  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/0 59          [10829]   24007   1   12     9 0 0        0 SEQ CHANGE SOURCE                 ADD
3/0/0 168         [10830]   24008   3   12   118 0 0        0 SOURCE                            COPY
5/1/0 5301        [10831]   24009   2    1     8 2 0        0 L-ALIGNED REF                     SUBTRACT
5/0/0 5302        [10832]   24010   2    1    10 0 0        0 ITEM                              SUBTRACT
27/0/3 2810       [10833]   24011  73  247     2 0 0        0 gSOURCE<DEST. SEQ CHANGE FWD   JUMP IF A < 0
6/1/0 5301        [10834]   24012        1     8 2 0        0                                   SELECT
27/0/0 2810       [10835]   24013  70  247     2 0 0        0 gSC TO ABS ADDRESS, DON'T STORE   JUMP IF A == 0
4/0/0 5302        [10836]   24014   1    1    10 0 0        0                                   ADD
27/0/3 2810       [10837]   24015  73  247     2 0 0        0 gSKIP                             JUMP IF A < 0
2/0/0 169         [10838]   24016   5   12   119 0 0        0 DESTINATION                       TRANSFER
6/1/0 168         [10839]   24017   0   12   118 1 0        0                                   SELECT
0/0/3 0           [10840]   24018  62          0 0 0        0                                   SET EXCESS CONSTANTS
24/1/2 6023       [10841]   24019 124   92     9 1 2        0 ABS START OF LIST 918+2496 INITIALLY)  MODIFY ADDRESS OF NEXT
1/1/0 0           [10842]   24020 101          0 1 0        0 TABLE LOOKUP                      TABLE LOOK UP
18/1/1 10         [10843]   24021  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
3/1/0 40          [10844]   24022  91          0 0 1        0 STORE LOCN OF FIRST GREATER       SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40         [10845]  
5/0/0 6023        [10846]   24023   2   92     9 0 0        0                                   SUBTRACT
18/0/1 5          [10847]   24024  30          0 0 0        5 SHIFT QTTY TO BE MOVED            SHIFT (A) BY QUARTETS
4/0/0 6023        [10848]   24025   1   92     9 0 0        0 START                             ADD
2/1/0 138         [10849]   24026   5   12    88 1 0        0 WL=BULK COPY TABLE ENTRY          TRANSFER
6/0/0 6023        [10850]   24027   0   92     9 0 0        0 CURRENT LIST START                SELECT
5/0/0 4712        [10851]   24028   2  317    90 0 0        0 ABS ADDRESS 18:0                  SUBTRACT
27/0/0 2810       [10852]   24029  70  247     2 0 0        0 gLIST FULL, DONT STORE            JUMP IF A == 0
6/0/0 5116        [10853]   24030  10          0 0 0       2-                                   SELECT LITERAL
7/0/0 6023        [10854]   24031   4   92     9 0 0        0 ADJUST FOR NEW START              AUGMENT
6/1/0 138         [10855]   24032       12    88 1 0        0                                   SELECT
24/1/2 6023       [10856]   24033 124   92     9 1 2        0                                   MODIFY ADDRESS OF NEXT
28/1/1 0          [10857]   24034 128          0 1 1        0 BULK COPY UP ONE WORD             BULK COPY LONG NUMERIC
25/0/1 4098       [10858]   24035  94          0 0 1       2- ADJUST                            STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2668       [10859]  
6/1/0 168         [10860]   24036       12   118 1 0        0 NEW SEQ CH BACK                   SELECT
24/0/3 0    Extra code needed to address absolute
2/1/1 0           [10862]   24037   5          0 1 1        0 PLACE IN LIST                     TRANSFER
24/1/0 2810       [10863]   24038  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 241 at location 2672 in chapter 3 [10864]
                  [10864]   24100 PROCR  241                    STORE OVERLAY DETAILS             
                  [10864]   24101 NOTES      RADIX                                                
6/0/0 104         [10864]   24102       12    54 0 0        0 BIN ACTION                        SELECT

   Source: KenK/Q1000189
1/1/2 152         [10865]   24103  12          0 0 0       98                                   SUBTRACT LITERAL
27/0/1 2726       [10866]   24104  71  243     2 0 0        0 gNOT ACTION 152, OVERLAY          JUMP IF A != 0
26/1/3 62         [10867]   24105  91   12    12 0 3        0 SCAN CHAPTER STARTS               SET MODIFICATION REGISTER AT VARIABLE
6/0/0 54          [10868]   24106       12     4 0 0        0 PROCR OF OLAID/OLAYER CHAP START  SELECT
5/0/3 64          [10869]   24107   2   12    14 0 3        0 NEXT CHAP START                   SUBTRACT
27/0/0 2684       [10870]   24108  70  241    13 0 0        0 gMATCH FOUND                      JUMP IF A == 0
25/0/3 1          [10871]   24109  94  241     6 0 3        1 gTRY NEXT                         STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2676       [10872]  
26/0/0 1584       [10873]   24110  80  195     2 0 0        0 gREPORT R                         ENTER SUBROUTINE
26/0/0 4248       [10874]   24111  80  295     2 0 0        0 gIGNORE INSTRUCTION               ENTER SUBROUTINE
24/1/0 2686       [10875]   24112  76  241    14 0 0        0 gPRETEND IS CHAP 1                JUMP unconditional
24/0/3 22         [10876]   24113  95          0 0 3        0                                   SELECT MODIFICATION REGISTER
6/1/0 6           [10877]  
1/1/1 1           [10878]   24114  11          0 0 0        1                                   ADD LITERAL
2/0/0 96          [10879]   24115   5   12    46 0 0        0                                   TRANSFER
6/0/0 111         [10880]   24116   0   12    61 0 0        0 IS C-LINE READ YET?               SELECT
27/0/0 2693       [10881]   24117  70  242     2 0 0        0 gTHIS IS C-LINE NOW               JUMP IF A == 0
6/0/0 96          [10882]   24118   0   12    46 0 0        0 OLAID CHAP                        SELECT
2/0/0 97          [10883]   24119   5   12    47 0 0        0                                   TRANSFER
24/1/0 2810       [10884]   24120  76  247     2 0 0        0 gO/P+READ C-LINE                  JUMP unconditional

  Start of procedure 242 at location 2693 in chapter 3 [10885]
                  [10885]   24200 PROCR  242                    UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS  
                  [10885]   24201 NOTES      RADIX                                                
1/1/3 16          [10885]   24202  10          0 0 0       10 BIT 5                             SELECT LITERAL
18/1/1 4118       [10886]   24203  32          0 0 0      10-                                   SHIFT (AB) BY QUARTETS
1/1/3 16          [10887]   24204  10          0 0 0       10                                   SELECT LITERAL
24/0/1 96         [10888]   24205 124   12    46 0 1        0 OLAYER;SET 'NON-UNIQUE' IND       MODIFY ADDRESS OF NEXT
14/0/0 6023       [10889]   24206  37   92     9 0 0        0 ;BIT 5                            REPLACE SELECTED BITS
24/0/1 97         [10890]   24207 124   12    47 0 1        0 OLAID                             MODIFY ADDRESS OF NEXT
14/0/0 6023       [10891]   24208  37   92     9 0 0        0                                   REPLACE SELECTED BITS
1/1/3 0           [10892]   24209  10          0 0 0        0                                   SELECT LITERAL
1/0/1 1           [10893]   24210  35          0 0 0        1                                   PREPARE FOR DIGIT COLLATION
24/0/1 96         [10894]   24211 124   12    46 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 6023       [10895]   24212  36   92     9 0 0        0 OLAYER PREVIOUS CORR CHAP         COLLATE AND ADD
2/0/0 96          [10896]   24213   5   12    46 0 0        0                                   TRANSFER
24/0/1 97         [10897]   24214 124   12    47 0 1        0                                   MODIFY ADDRESS OF NEXT
15/0/0 6023       [10898]   24215  36   92     9 0 0        0 CORR CHAP OF OLAID                COLLATE AND ADD
3/0/0 97          [10899]   24216   3   12    47 0 0        0                                   COPY
5/0/0 96          [10900]   24217   2   12    46 0 0        0                                   SUBTRACT
27/0/0 2810       [10901]   24218  70  247     2 0 0        0 gNO ADJUSTMENTS NEEDED            JUMP IF A == 0
27/0/3 2715       [10902]   24219  73  242    24 0 0        0 g12/46>12/47                      JUMP IF A < 0
0/0/2 96          [10903]   24220  34   12    46 0 0        0                                   SET (N) IN B
7/0/0 96          [10904]   24221   4   12    46 0 0        0                                   AUGMENT
18/1/1 10         [10905]   24222  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
2/0/0 97          [10906]   24223   5   12    47 0 0        0 GREATER IN 46;LESSER IN 47        TRANSFER
26/1/3 62         [10907]   24224  91   12    12 0 3        0 UNCORR CHAPS:0                    SET MODIFICATION REGISTER AT VARIABLE
1/0/1 1           [10908]   24225  35          0 0 0        1                                   PREPARE FOR DIGIT COLLATION
1/1/3 0           [10909]   24226  10          0 0 0        0                                   SELECT LITERAL
15/0/3 6024       [10910]   24227  36   92    10 0 3        0 CORR CHAP                         COLLATE AND ADD
5/0/0 96          [10911]   24228   2   12    46 0 0        0 GREATER IN THIS OVERLAY           SUBTRACT
27/0/1 2723       [10912]   24229  71  242    32 0 0        0 gNOT TO BE REPLACED               JUMP IF A != 0
6/0/0 97          [10913]   24230       12    47 0 0        0                                   SELECT
14/0/3 6024       [10914]   24231  37   92    10 0 3        0 REPLACE                           REPLACE SELECTED BITS
25/0/3 1          [10915]   24232  94  242    26 0 3        1 gTREAT ALL CHAPS                  STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2717       [10916]  
24/1/0 2810       [10917]   24233  76  247     2 0 0        0 O/P INSTRUCTION                   JUMP unconditional

  Start of procedure 243 at location 2726 in chapter 3 [10918]
                  [10918]   24300 PROCR  243                    STORE OLD/NEW RADICES FOR CONVERT ACTIONS  
                  [10918]   24301 NOTES      RADIX                                                
0/0/3 0           [10918]   24302  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 104         [10919]   24303       12    54 0 0        0                                   SELECT
1/1/2 93          [10920]   24304  12          0 0 0       5:                                   SUBTRACT LITERAL

   Source: TonyJ/Q1000190
27/0/0 2738       [10921]   24305  70  243    14 0 0        0 >ACTION 93 DEC-BIN                JUMP IF A == 0
1/1/1 28          [10922]   24306  11          0 0 0       1+                                   ADD LITERAL
27/0/0 2758       [10923]   24307  70  243    32 0 0        0 >ACTION 65 ANY-ANY                JUMP IF A == 0
1/1/1 2           [10924]   24308  11          0 0 0        2                                   ADD LITERAL
27/0/0 2737       [10925]   24309  70  243    13 0 0        0 >ACTION 63 DEC-STERLING           JUMP IF A == 0
1/1/2 1           [10926]   24310  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2777       [10927]   24311  71  246     2 0 0        0 >ACTION NOT 64, STERLING - DECIMAL JUMP IF A != 0
6/1/0 5220        [10928]   24312  10          0 0 0  7:802                                   SELECT LITERAL
4/0/0 5117        [10929]   24313  11          0 0 0    66.64                                   ADD LITERAL
4/1/0 5222        [10930]   24314  11          0 0 0  6666600000                                   ADD LITERAL
2/1/0 96          [10931]   24315   5   12    46 1 0        0 STORE OLD - NEW RADIX             TRANSFER
6/0/0 6021        [10932]   24316       92     7 0 0        0 CTR OF CONVERT TABLES TO DATE     SELECT
18/0/1 5          [10933]   24317  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
3/1/0 40          [10934]   24318  91          0 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40         [10935]  
27/0/0 2753       [10936]   24319  70  243    27 0 0        0 > NONE STORED YET                 JUMP IF A == 0
6/1/3 6150        [10937]   24320       99     0 1 3        0                                   SELECT
5/1/0 96          [10938]   24321   2   12    46 1 0        0                                   SUBTRACT
27/0/0 2810       [10939]   24322  70  247     2 0 0        0 > ALREADY STORED                  JUMP IF A == 0
25/0/3 2          [10940]   24323  94  243    20 0 3        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2745       [10941] s
6/0/0 6021        [10942]   24324   0   92     7 0 0        0                                   SELECT
1/1/2 50          [10943]   24325  12          0 0 0       32 50                                SUBTRACT LITERAL
27/0/2 2810       [10944]   24326  72  247     2 0 0        0 > DONT STORE 26-TH                JUMP IF A >= 0
6/1/0 96          [10945]   24327   0   12    46 1 0        0                                   SELECT
2/1/3 6150        [10946]   24328   5   99     0 1 3        0                                   TRANSFER
1/1/3 2           [10947]   24329  10          0 0 0        2                                   SELECT LITERAL
7/0/0 6021        [10948]   24330   4   92     7 0 0        0 AUG CTR                           AUGMENT
24/1/0 2810       [10949]   24331  76  247     2 0 0        0 > O/P INSTRUCTION                 JUMP unconditional
6/0/0 5308        [10950]   24332        1    16 0 0        0 L=RADIX                           SELECT
2/0/0 96          [10951]   24333   5   12    46 0 0        0                                   TRANSFER
6/0/0 111         [10952]   24334       12    61 0 0        0 C-LINE IND                        SELECT
27/0/0 2740       [10953]   24335  70  243    16 0 0        0 > THIS IS C-LINE;INSERT RADIX PAIR JUMP IF A == 0
6/0/0 96          [10954]   24336       12    46 0 0        0                                   SELECT
2/0/0 97          [10955]   24337   5   12    47 0 0        0 SET OLD RADIX                     TRANSFER
24/1/0 2810       [10956]   24338  76  247     2 0 0        0 > GET C-LINE                      JUMP unconditional

  Start of procedure 244 at location 2765 in chapter 3 [10957]
                  [10957]   24400 PROCR  244       244    CONVERT (A) TO DEC                                   
                  [10957]   24401 NOTES                                                           
0/0/0 0           [10957]   24402  81  244     2 0 0        0                                   START OF SUBROUTINE
2/1/0 4818        [10958]   24403   5  320    42 1 0        0                                   TRANSFER
0/0/3 5118        [10959]   24404  60          0 0 0        0 SET DEC                           SET DECIMAL RADIX
24/0/2 4778       [10960]   24405 124  320     2 0 2        0                                   SELECT LITERAL AND DIVISION
12/1/0 4818       [10961]   24406 112  320    42 1 0        0                                   CONVERT
26/0/1 2765       [10962]   24407  82  244     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 245 at location 2771 in chapter 3 [10963]
                  [10963]   24500 PROCR  245       245    CONVERT (A) TO BINARY                                   
                  [10963]   24501 NOTES                                                           
0/0/0 0           [10963]   24502  81  245     2 0 0        0                                   START OF SUBROUTINE
2/1/0 4818        [10964]   24503   5  320    42 1 0        0                                   TRANSFER
0/0/3 0           [10965]   24504  62          0 0 0        0 SET BIN                           SET EXCESS CONSTANTS
24/0/2 4798       [10966]   24505 124  320    22 0 2        0                                   SELECT LITERAL AND DIVISION
12/1/0 4818       [10967]   24506 112  320    42 1 0        0                                   CONVERT
26/0/1 2771       [10968]   24507  82  245     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 246 at location 2777 in chapter 3 [10969]
                  [10969]   24600 PROCR  246       246    STORE UNPACK AND CONDENSE                                   
                  [10969]   24601 NOTES      RADIX                                                
6/0/0 111         [10969]   24602   0   12    61 0 0        0                                   SELECT
27/0/0 2810       [10970]   24603  70  247     2 0 0        0 > THIS IS C-LINE                  JUMP IF A == 0
6/0/0 104         [10971]   24604   0   12    54 0 0        0 ACTION                            SELECT
1/1/2 51          [10972]   24605 101         51 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2786       [10973]   24606  70  246    11 0 0        0 > UNPACK                          JUMP IF A == 0

   Source: TonyJ/Q1000191
1/1/2 2           [10974]   24607 101          2 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/0 2786       [10975]   24608  70  246    11 0 0        0 >CONDENSE                         JUMP IF A == 0
1/1/2 104         [10976]   24609 101        104 1 2        0                                   SUBTRACT LITERAL ADDRESS
27/0/1 2810       [10977]   24610  71  247     2 0 0        0 >NOT EXPAND (157)                 JUMP IF A != 0
6/0/0 54          [10978]   24611       12     4 0 0        0 SECTION                           SELECT
26/0/0 2771       [10979]   24612  80  245     2 0 0        0 >CONVERT                          ENTER SUBROUTINE
3/0/0 138         [10980]   24613   3   12    88 0 0        0 SEC/ PROCR                        COPY
1/1/2 100         [10981]   24614  12          0 0 0       64 100                               SUBTRACT LITERAL
27/0/2 2810       [10982]   24615  72  247     2 0 0        0 >DON'T STORE FOR 3-DIGT REP       JUMP IF A >= 0
6/1/0 6088        [10983]   24616       98     0 1 0        0                                   SELECT
26/1/3 6088       [10984]   24617  91   98     0 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
27/0/0 2804       [10985]   24618  70  246    28 0 0        0 >NONE STORED YET                  JUMP IF A == 0
1/1/3 0           [10986]   24619  10          0 0 0        0                                   SELECT LITERAL
1/0/1 3           [10987]   24620  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
15/0/3 6090       [10988]   24621  36   98     2 0 3        0                                   COLLATE AND ADD
5/0/0 138         [10989]   24622   2   12    88 0 0        0                                   SUBTRACT
27/0/0 2810       [10990]   24623  70  247     2 0 0        0 > MATCH FWND                      JUMP IF A == 0
25/0/3 1          [10991]   24624  94  246    19 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 2794       [10992]  
6/0/0 6089        [10993]   24625   0   98     1 0 0        0                                   SELECT
1/1/2 10          [10994]   24626  12          0 0 0        t                                   SUBTRACT LITERAL
27/0/2 2810       [10995]   24627  72  247     2 0 0        0 > DONT STORE 11 - TH              JUMP IF A >= 0
6/0/0 6014        [10996]   24628   0   92     0 0 0        0 THIS CHAP UNCORR                  SELECT
18/0/1 4          [10997]   24629  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
4/0/0 138         [10998]   24630   1   12    88 0 0        0 SECTION                           ADD
2/0/3 6090        [10999]   24631   5   98     2 0 3        0                                   TRANSFER
1/1/3 1           [11000]   24632  10          0 0 0        1                                   SELECT LITERAL
7/0/0 6089        [11001]   24633   4   98     1 0 0        0 AUG CTR                           AUGMENT

  Start of procedure 247 at location 2810 in chapter 3 [11002]
                  [11002]   24700 PROCR  247       247    FORM SERIAL NUMBER                                   
                  [11002]   24701 NOTES            RADIX                                              

   Source: RayS/Q1000192
6/0/0 135         [11002]   24702   0   12    85 0 0        0 TEST IF TO IGNORE                 SELECT
27/0/0 2813       [11003]   24703  70  247     5 0 0        0 THIS BLOCK                        JUMP IF A == 0
26/0/0 4248       [11004]   24704  80  295     2 0 0        0 YES - IGNORE                      ENTER SUBROUTINE
0/0/3 5119        [11005]   24705  60          0 0 0        0                                   SET DECIMAL RADIX
6/0/0 6017        [11006]   24706       92     3 0 0        0 TRANSLATOR'S PROCR                SELECT
18/0/1 2          [11007]   24707  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
2/0/0 138         [11008]   24708   5   12    88 0 0        0                                   TRANSFER
6/0/0 8168        [11009]   24709  86  191     2 0 0        0                                   SELECT SWITCH R
1/1/2 5           [11010]   24710  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/0 2834       [11011]   24711  70  247    26 0 0        0 gVALUES                           JUMP IF A == 0
6/0/0 59          [11012]   24712       12     9 0 0        0 LONE SERIAL IN PROCR              SELECT
1/1/2 256         [11013]   24713  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 2834       [11014]   24714  73  247    26 0 0        0 gOK                               JUMP IF A < 0
6/0/0 8168        [11015]   24715  86  191     2 0 0        0                                   SELECT SWITCH R
1/1/2 2           [11016]   24716  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 2830       [11017]   24717  70  247    22 0 0        0 gINSTRUCTIONS, IGNORE             JUMP IF A == 0
1/0/1 63          [11018]   24718  35          0 0 0   111111 TABLE ENTRIES, CONSTS='SER'       PREPARE FOR DIGIT COLLATION
6/1/0 5224        [11019]   24719  10          0 0 0   725569                                   SELECT LITERAL
14/1/0 5336       [11020]   24720  37    1    44 1 0        0                                   REPLACE SELECTED BITS
24/1/0 2831       [11021]   24721  76  247    23 0 0        0                                   JUMP unconditional
26/0/0 4248       [11022]   24722  80  295     2 0 0        0 gIGNORE                           ENTER SUBROUTINE
1/1/3 153         [11023]   24723  10          0 0 0       99                                   SELECT LITERAL
5/0/0 140         [11024]   24724   2   12    90 0 0        0 (0=SHORT, 1=LONG)                 SUBTRACT
24/1/0 2835       [11025]   24725  76  247    27 0 0        0 gSET 98 OR 99                     JUMP unconditional
6/0/0 59          [11026]   24726       12     9 0 0        0                                   SELECT
7/0/0 138         [11027]   24727   4   12    88 0 0        0                                   AUGMENT
24/0/2 4438       [11028]   24728  52    1     2 0 0        0 EDIT SERIAL                       EDIT
28/1/2 5294       [11029]   24729   C  306     6 0 0        0                                   

  Start of procedure 248 at location 2838 in chapter 3 [11030]
                  [11030]   24800 PROCR  248                    AUGMENT INSTRUCTION COUNTER       
                  [11030]   24801 NOTES      RADIX                                                
1/1/3 0           [11030]   24802  10          0 0 0        0                                   SELECT LITERAL
24/0/1 8168       [11031]   24803  85  191     2 0 0        0                                   SWITCH R
26/0/1 2840       [11032]  
0/0/1 2848        [11033] s 24804   C  248    11 0 0        0 g'PROCR/TABLE'                    
0/0/1 2868        [11034]   24805   C  249    13 0 0        0 gINSTRUCTIONS/'NNOTES'            
0/0/1 2857        [11035]   24806   C  249     2 0 0        0 gTABLE ENTRY/'NOTES'              
0/0/1 2862        [11036]   24807   C  249     7 0 0        0 gCONSTANT/'CONST'                 
0/0/1 2846        [11037] s 24808   C  248     9 0 0        0 VALUE ENTRY/VALUE                 

   Source: RayS/Q1000193
2/1/0 5294        [11038]   24809   5    1     2 1 0        0 CLEAR LINE SERIAL                 TRANSFER
24/1/0 2850       [11039]   24810  76  248    13 0 0        0                                   JUMP unconditional
6/0/0 59          [11040]   24811   0   12     9 0 0        0 SERIAL THIS LINE WITHIN SECTION   SELECT
27/0/1 2855       [11041]   24812  71  248    18 0 0        0 gNOTES BLOCK                      JUMP IF A != 0
6/0/0 4748        [11042]   24813      319    22 0 0        0 SW 27/5 LAST TIME THRU            SELECT
1/1/2 3           [11043]   24814  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/1 2855       [11044]   24815  71  248    18 0 0        0 gLAST TIME WASN'T FOR CONSTANTS   JUMP IF A != 0
1/1/3 1           [11045]   24816  10          0 0 0        1                                   SELECT LITERAL
2/1/0 5390        [11046]   24817   5   29     6 1 0        0 CONSTS END SIGN                   TRANSFER
1/1/3 0           [11047]   24818  10          0 0 0        0                                   SELECT LITERAL
24/1/0 2868       [11048]   24819  76  249    13 0 0        0                                   JUMP unconditional

  Start of procedure 249 at location 2857 in chapter 3 [11049]
                  [11049]   24900 PROCR  249                    AUGMENT INSTRUCTION               
                  [11049]   24901 NOTES      RADIX                                                
6/0/0 59          [11049]   24902       12     9 0 0        0                                   SELECT
1/1/2 1           [11050]   24903  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 2868       [11051]   24904  70  249    13 0 0        0                                   JUMP IF A == 0
1/1/3 2           [11052]   24905  10          0 0 0        2                                   SELECT LITERAL
24/1/0 2869       [11053]   24906  76  249    14 0 0        0                                   JUMP unconditional
6/0/0 59          [11054]   24907       12     9 0 0        0                                   SELECT
27/0/1 2867       [11055]   24908  71  249    12 0 0        0 gNOT 'CONST' BLOCK                JUMP IF A != 0
1/1/3 1           [11056]   24909  10          0 0 0        1                                   SELECT LITERAL
7/0/0 59          [11057]   24910   4   12     9 0 0        0 (SO AS TO STEP BY 2 EVENTUALLY)   AUGMENT
24/1/0 2850       [11058]   24911  76  248    13 0 0        0 gTEST IF LAST SECTION WAS CONSTANTS JUMP unconditional
6/0/0 140         [11059]   24912   0   12    90 0 0        0                                   SELECT
1/1/1 1           [11060]   24913  11          0 0 0        1                                   ADD LITERAL
7/0/0 59          [11061]   24914   4   12     9 0 0        0                                   AUGMENT
6/0/0 83          [11062]   24915   0   12    33 0 0        0                                   SELECT
27/0/0 2875       [11063]   24916  70  249    20 0 0        0 gBLOCK EX MT                      JUMP IF A == 0
6/0/0 51          [11064]   24917   0   12     1 0 0        0                                   SELECT
18/0/1 2          [11065]   24918  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
2/1/0 5292        [11066]   24919   5    1     0 1 0        0 AMEND IND                         TRANSFER
2/1/0 6048        [11067]   24920   5   92    34 1 0        0 CLEAR                             TRANSFER

  Start of procedure 250 at location 2876 in chapter 3 [11068]
                  [11068]   25000 PROCR  250                    EDIT                              
0/0/3 0           [11068]   25002  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 4726        [11069]   25003      318    11 0 0        0 INDICATOR                         SELECT
27/0/0 2881       [11070]   25004  70  250     7 0 0        0 gFIRST RECORD                     JUMP IF A == 0
26/0/0 4042       [11071]   25005  80  288     2 0 0        0                                   ENTER SUBROUTINE
24/1/0 2882       [11072]   25006  76  250     8 0 0        0                                   JUMP unconditional
26/0/0 4099       [11073]   25007  80  289     2 0 0        0 gWRITE LAST SECTION               ENTER SUBROUTINE
6/0/0 88          [11074]   25008       12    38 0 0        0                                   SELECT
27/0/1 2907       [11075]   25009  71  250    30 0 0        0 gDIRECTIVE                        JUMP IF A != 0
6/0/0 6315        [11076]   25010       27     5 0 0        0 SWITCH                            SELECT
1/1/2 4           [11077]   25011  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/0 2899       [11078]   25012  70  250    25 0 0        0 gVALUES                           JUMP IF A == 0
24/0/1 6315       [11079]   25013 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 4424        [11080]   25014      305     6 0 0        0                                   SELECT
28/1/2 5386       [11081]   25015 128   29     2 1 2        0 EDIT PROCR, TABLE, CONST.         EDIT FIXED FIELD FORMATS
6/1/0 4774        [11082]   25016      319    48 1 0        0                                   SELECT
24/0/1 6315       [11083]   25017 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [11084]   25018 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT
28/1/1 5384       [11085]   25019 128   29     0 1 1        0 COPY ANNOTATION                   BULK COPY LONG NUMERIC
6/1/0 5336        [11086]   25020        1    44 1 0        0                                   SELECT
24/0/1 6315       [11087]   25021 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [11088]   25022 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT

   Source: RayS/Q1000194
2/1/0 5382        [11089]   25023   5   29    2- 1 0        0 COPY REPORTS PASS 1               TRANSFER
24/1/0 2928       [11090]   25024  76  250    48 0 0        0                                   JUMP unconditional
24/0/2 5303       [11091]   25025  55    1    11 0 0       16 VALUES                            BULK COPY
18/1/0 4123       [11092]   25026   C   29    10 2 0        0                                   
1/1/3 16          [11093]  
18/1/1 5          [11094]  
28/0/1 5395       [11095]  
24/0/2 4610       [11096]   25027  52   29     6 0 0        0 REF+ITEM                          EDIT
28/1/2 5390       [11097]   25028   C  315     2 0 0        0                                   
24/1/0 2928       [11098]   25029  76  250    48 0 0        0                                   JUMP unconditional
24/0/2 4458       [11099]   25030  52   29     2 0 0        0 DIRECTIVES                        EDIT
28/1/2 5386       [11100]   25031   C  307    16 0 0        0                                   
1/1/3 0           [11101]   25032  10          0 0 0        0                                   SELECT LITERAL
2/0/0 4748        [11102]   25033   5  319    22 0 0        0                                   TRANSFER
6/0/0 6315        [11103]   25034       27     5 0 0        0                                   SELECT
1/1/2 1           [11104]   25035  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 2920       [11105]   25036  71  250    43 0 0        0 gNOT PROCR                        JUMP IF A != 0
6/0/0 88          [11106]   25037       12    38 0 0        0                                   SELECT
27/0/3 2920       [11107]   25038  73  250    43 0 0        0 NOT NOTES OF PROCR                JUMP IF A < 0
6/1/0 5300        [11108]   25039        1     8 1 0        0                                   SELECT
2/1/0 5396        [11109]   25040   5   29    12 1 0        0 COPY 'RADIX'                      TRANSFER
2/1/0 5392        [11110]   25041   5   29     8 1 0        0 CLEAR                             TRANSFER
24/1/0 2922       [11111]   25042  76  250    45 0 0        0                                   JUMP unconditional
6/1/0 5336        [11112]   25043        1    44 1 0        0 PASS 1 REPORTS                    SELECT
2/1/0 5396        [11113]   25044   5   29    12 1 0        0                                   TRANSFER
24/0/2 5308       [11114]   25045  55    1    16 1 0       28 BULK COPY ANNOTATION              BULK COPY
18/1/0 4123       [11115]   25046   C   29    14 1 0        0                                   
1/1/3 28          [11116]  
18/1/1 5          [11117]  
28/1/1 5398       [11118]  
24/1/0 2930       [11119]   25047  76  250    50 0 0        0                                   JUMP unconditional
6/0/0 6315        [11120]   25048       27     5 0 0        0                                   SELECT
2/0/0 4748        [11121]   25049   5  319    22 0 0        0                                   TRANSFER
1/1/3 1           [11122]   25050  10          0 0 0        1                                   SELECT LITERAL
2/0/0 4726        [11123]   25051   5  318    11 0 0        0 SET INDICATOR                     TRANSFER
0/0/3 5120        [11124]   25052  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 0           [11125]   25053  10          0 0 0        0                                   SELECT LITERAL
2/0/0 165         [11126]   25054   5   12   115 0 0        0 ERROR REPROT SHIFT CONTROL        TRANSFER
6/0/0 6247        [11127]   25055   0   23    47 0 0        0                                   SELECT
1/0/1 15          [11128]   25056  35          0 0 0     1111                                   PREPARE FOR DIGIT COLLATION
14/1/0 5386       [11129]   25057  37   29     2 1 0        0                                   REPLACE SELECTED BITS
1/1/3 0           [11130]   25058  10          0 0 0        0                                   SELECT LITERAL
2/0/0 6247        [11131]   25059   5   23    47 0 0        0 IMPLICITLY AMENDED'               TRANSFER
26/0/1 1421       [11132]   25060  82  186     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 251 at location 2941 in chapter 3 [11133]
                  [11133]   25100 PROCR  251                    START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END 
26/0/0 4204       [11133]   25102  80  294     2 0 0        0 gTEST PT AT DIRECTIVE/END         ENTER SUBROUTINE
27/0/0 2964       [11134]   25103  70  252     2 0 0        0 gNO                               JUMP IF A == 0
6/0/0 95          [11135]   25104   0   12    45 0 0        0                                   SELECT
27/0/1 2956       [11136]   25105  71  251    14 0 0        0 gPT AT END                        JUMP IF A != 0
6/0/0 6311        [11137]   25106       27     1 0 0        0                                   SELECT
27/0/0 2950       [11138]   25107  70  251    10 0 0        0 gSINGLE-RECORD BLOCKS             JUMP IF A == 0
24/0/3 8178       [11139]   25108              4 2 8        0 (ABS MR)                          SELECT
6/1/0 5           [11140]  
24/1/0 2952       [11141]   25109  76  251    11 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 7           [11143]   25110   0    7     6 2 0        0 MT SERIAL                         SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
5/1/0 5           [11145]   25111   2    9     4 2 0        0 A6 SERIAL                         SUBTRACT
27/0/0 2964       [11146]   25112  70  252     2 0 0        0 gMT AMENDED                       JUMP IF A == 0
27/0/2 2970       [11147]   25113  72  253     2 0 0        0 gMT>PT, REPORT                    JUMP IF A >= 0

   Source: RayS/Q1000195
26/0/0 4274       [11148]   25114  80  299     2 0 0        0 gTEST MT=END                      ENTER SUBROUTINE
1/1/3 0           [11149]   25115  10          0 0 0        0 SET 'MT INPUT'                    SELECT LITERAL
2/0/0 83          [11150]   25116   5   12    33 0 0        0                                   TRANSFER
26/0/0 4332       [11151]   25117  80  303     2 0 0        0 gTEST MT=PROCR                    ENTER SUBROUTINE
26/0/0 3872       [11152]   25118  80  284     2 0 0        0 gUNPACK                           ENTER SUBROUTINE
26/0/0 1421       [11153]   25119  80  186     2 0 0        0 gCHECK/EDIT/OUTPUT                ENTER SUBROUTINE
26/0/0 4309       [11154]   25120  80  302     2 0 0        0 gGET NEXT RECORD                  ENTER SUBROUTINE
24/1/0 2943       [11155]   25121  76  251     4 0 0        0                                   JUMP unconditional

  Start of procedure 252 at location 2964 in chapter 3 [11156]
                  [11156]   25200 PROCR  252                    SWITCH FOR AMENDMENTS             
                  [11156]   25201 NOTES      RADIX                                                
24/0/1 8170       [11156]   25202  85  252     2 0 0        0                                   SWITCH R
26/0/1 2965       [11157]  
0/0/1 2986        [11158]   25203   C  254     2 0 0        0 gREPLACE                          
0/0/1 3023        [11159]   25204   C  255     2 0 0        0 gDELETE                           
0/0/1 3120        [11160]   25205   C  258     2 0 0        0 gINSERT BEFORE                    
0/0/1 3097        [11161]   25206   C  256     2 0 0        0 gREPLACE ANNOTATION               

  Start of procedure 253 at location 2970 in chapter 3 [11162]
                  [11162]   25300 PROCR  253                    DEAL WITH OUT-OF-SEQUENCE DIRECTIVE  
                  [11162]   25301 NOTES      RADIX                                                
6/1/0 5296        [11162]   25302        1     4 1 0        0 AMENDMENTS MODS ARE               SELECT
24/0/1 4748       [11163]   25303 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [11164]   25304 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5384        [11165]   25305   5   29     0 1 0        0 REPORT WORD                       TRANSFER
0/1/2 5294        [11166]   25306  34    1     2 1 0        0 SERIAL                            SET (N) IN B
26/0/0 3178       [11167]   25307  80  259     2 0 0        0 PUT ERROR REPORT                  ENTER SUBROUTINE
1/1/3 7517        [11168]   25308  10          0 0 0     1:5: '??' OF 5-DIGIT                   SELECT LITERAL
3/0/0 6316        [11169]   25309   3   27     6 0 0        0 SET 'PT OMITTED'                  COPY
1/0/1 15          [11170]   25310  35          0 0 0     1111 SERIAL AND                        PREPARE FOR DIGIT COLLATION
24/0/1 4748       [11171]   25311 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [11172]   25312 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
14/1/0 5384       [11173]   25313  37   29     0 1 0        0 REPORT WORD                       REPLACE SELECTED BITS
26/0/0 4130       [11174]   25314  80  292     2 0 0        0 INPUT ON PAPER                    ENTER SUBROUTINE
26/0/0 4204       [11175]   25315  80  294     2 0 0        0 FIND DIRECTIVE                    ENTER SUBROUTINE
27/0/0 2982       [11176]   25316  70  253    14 0 0        0 gREAD/IGNORE PT TO NEXT DIRECTIVE  JUMP IF A == 0
24/1/0 2943       [11177]   25317  76  251     4 0 0        0 gMAKE THIS AMENDMENT              JUMP unconditional

  Start of procedure 254 at location 2986 in chapter 3 [11178]
                  [11178]   25400 PROCR  254                    REPLACE                           
                  [11178]   25401 NOTES      RADIX                                                
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11179]   25402        9    50 2 0        0 'PASS 0' IND                      SELECT
27/0/1 3021       [11180]   25403  71  254    34 0 0        0 gREJECT                           JUMP IF A != 0
6/0/0 6315        [11181]   25404       27     5 0 0        0 'UNPACK SWITCH'                   SELECT
2/0/0 4252        [11182]   25405   5  296     2 0 0        0                                   TRANSFER
26/0/0 4332       [11183]   25406  80  303     2 0 0        0 gTEST MT=PROCR                    ENTER SUBROUTINE
6/0/0 88          [11184]   25407   0   12    38 0 0        0                                   SELECT
2/0/0 1592        [11185]   25408   5  197     2 0 0        0                                   TRANSFER
26/0/0 4185       [11186]   25409  80  293     2 0 0        0 gTEST PT=STACK DIRECTIVE          ENTER SUBROUTINE
6/0/0 88          [11187]   25410   0   12    38 0 0        0 IS REPLACING BLOCK STACK DIR  OR NOT SELECT
5/0/0 1592        [11188]   25411   2  197     2 0 0        0 ARE BOTH BLOCKS SIMILAR           SUBTRACT
27/0/1 3016       [11189]   25412  71  254    29 0 0        0  ILLEGAL?                         JUMP IF A != 0
1/1/3 1           [11190]   25413  10          0 0 0        1 SET AS PT INPUT                   SELECT LITERAL
2/0/0 83          [11191]   25414   5   12    33 0 0        0                                   TRANSFER
26/0/0 3815       [11192]   25415  80  283     2 0 0        0 gUNPACK PT                        ENTER SUBROUTINE
26/0/0 4274       [11193]   25416  80  299     2 0 0        0 gDON'T REPLACE END SIGN           ENTER SUBROUTINE
6/0/0 88          [11194]   25417   0   12    38 0 0        0                                   SELECT
27/0/2 3012       [11195]   25418  72  254    25 0 0        0 gNOT PT DIRECTIVE                 JUMP IF A >= 0
6/0/0 6311        [11196]   25419       27     1 0 0        0                                   SELECT
27/0/0 3009       [11197]   25420  70  254    23 0 0        0 g1 RECORD PER BLOCK               JUMP IF A == 0
24/0/3 8178       [11198]   25421              8 1 8        0 PROCR NO                          SELECT
6/1/0 8           [11199]  

   Source: RayS/Q1000196
24/1/0 3011       [11200]   25422  76  254    24 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 16          [11202]   25423   0    7    16 1 0        0                                   SELECT
2/1/0 5300        [11203]   25424   5    1     8 1 0        0 TRANSFER MT PROCR NUMBER          TRANSFER
26/0/0 4309       [11204]   25425  80  302     2 0 0        0 gGET NEXT A1 RECORD               ENTER SUBROUTINE
26/0/0 1421       [11205]   25426  80  186     2 0 0        0 gCHECK/EDIT/OUTPUT                ENTER SUBROUTINE
26/0/0 4130       [11206]   25427  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
24/1/0 2941       [11207]   25428  76  251     2 0 0        0                                   JUMP unconditional
6/0/0 88          [11208]   25429   0   12    38 0 0        0 PT DIRECTIVE                      SELECT
4/0/0 1592        [11209]   25430   1  197     2 0 0        0 MT DIRECTIVE                      ADD
27/0/2 2998       [11210]   25431  72  254    13 0 0        0 gNEITHER IS STACK DIRECTIVE, ALLOW REPLAC  JUMP IF A >= 0
6/0/0 4252        [11211]   25432      296     2 0 0        0                                   SELECT
2/0/0 6315        [11212]   25433   5   27     5 0 0        0 RESTORE SWITCH                    TRANSFER
1/1/3 105         [11213]   25434  10          0 0 0       69                                   SELECT LITERAL
24/1/0 3064       [11214]   25435  76  255    36 0 0        0 gREPORT                           JUMP unconditional

  Start of procedure 255 at location 3023 in chapter 3 [11215]
                  [11215]   25500 PROCR  255                    DELETION LOOP                     
                  [11215]   25501 NOTES      RADIX                                                
26/0/0 4274       [11215]   25502  80  299     2 0 0        0 gEND SIGN ON MT?                  ENTER SUBROUTINE
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [11217]   25503        9     4 1 0        0                                   SELECT
2/1/0 5292        [11218]   25504   5    1     0 1 0        0 STORE SERIAL                      TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11220]   25505        9    50 2 0        0 'PASS 0' IND                      SELECT
27/0/1 3063       [11221]   25506  71  255    35 0 0        0 gREPORT                           JUMP IF A != 0
26/0/0 4130       [11222]   25507  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
26/0/0 4204       [11223]   25508  80  294     2 0 0        0 gTEST DIRECTIVE                   ENTER SUBROUTINE
27/0/1 3076       [11224]   25509  71  255    46 0 0        0 gYES (SINGLE-LINE DELETE)         JUMP IF A != 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11226]   25510        9    50 2 0        0 PASS 0 IND                        SELECT
27/0/1 3063       [11227]   25511  71  255    35 0 0        0 gMOD REJECTED                     JUMP IF A != 0
6/0/0 6311        [11228]   25512       27     1 0 0        0                                   SELECT
27/0/0 3041       [11229]   25513  70  255    16 0 0        0 g1 RECORD/BLOCK                   JUMP IF A == 0
24/0/3 8178       [11230]   25514              4 2 8        0                                   SELECT
6/1/0 5           [11231]  
24/1/0 3043       [11232]   25515  76  255    17 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 7           [11234]   25516        7     6 2 0        0 MT SERIAL                         SELECT
18/0/1 8          [11235]   25517  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 3046       [11236]   25518  70  255    20 0 0        0 gDIRECTIVE DELETED                JUMP IF A == 0
26/0/0 1494       [11237]   25519  80  188     2 0 0        0 gSET 'PRINT PROCEDURE'            ENTER SUBROUTINE
26/0/0 4309       [11238]   25520  80  302     2 0 0        0 gGET NEXT RECORD                  ENTER SUBROUTINE
26/0/0 4274       [11239]   25521  80  299     2 0 0        0 gTEST END                         ENTER SUBROUTINE
6/0/0 6311        [11240]   25522       27     1 0 0        0                                   SELECT
27/0/0 3053       [11241]   25523  70  255    26 0 0        0                                   JUMP IF A == 0
24/0/3 8178       [11242]   25524              4 2 8        0                                   SELECT
6/1/0 5           [11243]  
24/1/0 3055       [11244]   25525  76  255    27 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 7           [11246]   25526        7     6 2 0        0 MT SERIAL                         SELECT
5/1/0 5295        [11247]   25527   2    1     2 2 0        0 PT SERIAL                         SUBTRACT
27/0/1 3062       [11248]   25528  71  255    34 0 0        0                                   JUMP IF A != 0
26/0/0 4309       [11249]   25529  80  302     2 0 0        0 gGET NEXT RECORD                  ENTER SUBROUTINE
26/0/0 4130       [11250]   25530  80  292     2 0 0        0 gREAD PT(NEXT DIRECTIVE)          ENTER SUBROUTINE
26/0/0 4204       [11251]   25531  80  294     2 0 0        0 gTEST DIRECTIVE                   ENTER SUBROUTINE
27/0/1 2943       [11252]   25532  71  251     4 0 0        0 gYES                              JUMP IF A != 0
24/1/0 3063       [11253]   25533  76  255    35 0 0        0 gREJECT                           JUMP unconditional
27/0/3 3046       [11254]   25534  73  255    20 0 0        0 gLOOP                             JUMP IF A < 0
1/1/3 84          [11255]   25535  10          0 0 0       54 REPORT                            SELECT LITERAL
18/0/1 8          [11256]   25536  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
24/0/1 4748       [11257]   25537 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [11258]   25538 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5384        [11259]   25539   5   29     0 1 0        0 REPORT WORD                       TRANSFER

   Source: RayS/Q1000197
6/0/0 6311        [11260]   25540       27     1 0 0        0                                   SELECT
27/0/0 3073       [11261]   25541  70  255    44 0 0        0 g1 RECORD BLOCK                   JUMP IF A == 0
24/0/1 8178       [11262]   25542  34          4 1 8        0                                   SET (N) IN B
0/1/2 4           [11263]  
24/1/0 2975       [11264]   25543  76  253     7 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
0/1/2 6           [11266]   25544  34    7     6 1 0        0 SERIAL BEING DELETED              SET (N) IN B
24/1/0 2975       [11267]   25545  76  253     7 0 0        0 gREPORT                           JUMP unconditional
6/0/0 6311        [11268]   25546       27     1 0 0        0                                   SELECT
27/0/0 3081       [11269]   25547  70  255    50 0 0        0                                   JUMP IF A == 0
24/0/3 8178       [11270]   25548              4 2 8        0                                   SELECT
6/1/0 5           [11271]  
24/1/0 3083       [11272]   25549  76  255    51 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 7           [11274]   25550        7     6 2 0        0                                   SELECT
18/0/1 8          [11275]   25551  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
27/0/0 3086       [11276]   25552  70  255    54 0 0        0                                   JUMP IF A == 0
26/0/0 1494       [11277]   25553  80  188     2 0 0        0                                   ENTER SUBROUTINE
26/0/0 4309       [11278]   25554  80  302     2 0 0        0 gGET RECORD AFTER DELETED ONE     ENTER SUBROUTINE
6/0/0 6311        [11279]   25555       27     1 0 0        0                                   SELECT
27/0/0 3092       [11280]   25556  70  255    59 0 0        0                                   JUMP IF A == 0
24/0/3 8178       [11281]   25557              4 2 8        0                                   SELECT
6/1/0 5           [11282]  
24/1/0 3094       [11283]   25558  76  255    60 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 7           [11285]   25559        7     6 2 0        0                                   SELECT
5/1/0 5293        [11286]   25560   2    1     0 2 0        0 PT SERIAL FOR DELETION            SUBTRACT
27/0/0 3086       [11287]   25561  70  255    54 0 0        0 gDELETE ALL BLOCKS THIS SERIAL    JUMP IF A == 0
24/1/0 2941       [11288]   25562  76  251     2 0 0        0                                   JUMP unconditional

  Start of procedure 256 at location 3097 in chapter 3 [11289]
                  [11289]   25600 PROCR  256                    REPLACE ANNOTATION                
                  [11289]   25601 NOTES      RADIX                                                
26/0/0 4332       [11289]   25602  80  303     2 0 0        0 gTEST MT=PROCR                    ENTER SUBROUTINE
26/0/0 3815       [11290]   25603  80  283     2 0 0        0 gUNPACK PT BLOCK                  ENTER SUBROUTINE
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11292]   25604        9    50 2 0        0 'PASS 0' IND                      SELECT
27/0/0 3104       [11293]   25605  70  256     8 0 0        0                                   JUMP IF A == 0
1/1/3 81          [11294]   25606  10          0 0 0       51                                   SELECT LITERAL
24/1/0 3064       [11295]   25607  76  255    36 0 0        0 gREPORT, READ NEXT DIRECTIVE      JUMP unconditional
1/1/3 1           [11296]   25608  10          0 0 0        1                                   SELECT LITERAL
3/0/0 6247        [11297]   25609   3   23    47 0 0        0 SET 'IMPLICITLY AMENDED'          COPY
2/0/0 136         [11298]   25610   5   12    86 0 0        0 SET IND FOR SR                    TRANSFER
26/0/0 3116       [11299]   25611  80  257     2 0 0        0                                   ENTER SUBROUTINE
1/1/3 0           [11300]   25612  10          0 0 0        0                                   SELECT LITERAL
2/0/0 136         [11301]   25613   5   12    86 0 0        0                                   TRANSFER
26/0/0 4130       [11302]   25614  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
1/1/3 0           [11303]   25615  10          0 0 0        0                                   SELECT LITERAL
2/0/0 83          [11304]   25616   5   12    33 0 0        0                                   TRANSFER
26/0/0 1421       [11305]   25617  80  186     2 0 0        0 SET 'MT IN'                       ENTER SUBROUTINE
26/0/0 4309       [11306]   25618  80  302     2 0 0        0 gCHECK/EDIT/OUTPUT                ENTER SUBROUTINE
24/1/0 2941       [11307]   25619  76  251     2 0 0        0 gGET NEXT A1 RECORD               JUMP unconditional

  Start of procedure 257 at location 3116 in chapter 3 [11308]
                  [11308]   25700 PROCR  257                    ENTRY TO 'UNPACK' SR              
0/0/0 0           [11308]   25702  81  257     2 0 0        0                                   START OF SUBROUTINE
6/0/0 3116        [11309]   25703   0  257     2 0 0        0                                   SELECT
2/0/0 3872        [11310]   25704   5  284     2 0 0        0 PLANT LINK                        TRANSFER
24/1/0 3875       [11311]   25705  76  284     4 0 0        0 AVOID BULK CLEAR                  JUMP unconditional

  Start of procedure 258 at location 3120 in chapter 3 [11312]
                  [11312]   25800 PROCR  258                    INSERTION LOOP                    
                  [11312]   25801 NOTES      RADIX                                                
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11313]   25802        9    50 2 0        0 PASS 0' IND                       SELECT
27/0/1 3170       [11314]   25803  71  258    46 0 0        0 gREPORT                           JUMP IF A != 0
2/0/0 88          [11315]   25804   5   12    38 0 0        0 SET NON DIRECTIVE                 TRANSFER
24/0/1 6315       [11316]   25805  87   27     5 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3125       [11317]  
0/0/1 3138        [11318] s 25806   C  258    17 0 0        0                                   
0/0/1 3138        [11319] s 25807   C  258    17 0 0        0                                   
0/0/1 3130        [11320] s 25808   C  258    10 0 0        0 CONST                             
0/0/1 3138        [11321] s 25809   C  258    17 0 0        0                                   

   Source: RayS/Q1000198
6/1/0 5226        [11322]   25810  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292       [11323]  
24/0/2 4556       [11324]   25811 124  312     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [11325]   25812  80  326     2 0 0        0 UNPACK (PRETEND ITS PROCR)        ENTER SUBROUTINE
1/1/3 0           [11326]   25813  10          0 0 0        0                                   SELECT LITERAL
2/1/0 5312        [11327]   25814   5    1    20 1 0        0 CLEAR CLEO WORD                   TRANSFER
2/1/0 5336        [11328]   25815   5    1    44 1 0        0 CLEAR ERROR WORD                  TRANSFER
24/1/0 3139       [11329]   25816  76  258    18 0 0        0                                   JUMP unconditional
26/0/0 3815       [11330]   25817  80  283     2 0 0        0 UNPACK                            ENTER SUBROUTINE
26/1/1 5228       [11331]   25818  90          0 0 1        6                                   SET MODIFICATION REGISTER AT LITERAL
                  [11332]   25819   C          0 0 0       44                                   Limit
6/1/1 5292        [11332]   25820        1     0 1 1        0                                   SELECT
27/0/1 3145       [11333]   25821  71  258    24 0 0        0 gREPORT, CODING                   JUMP IF A != 0
25/0/1 2          [11334]   25822  94  258    20 0 1        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3140       [11335] s
24/1/0 3164       [11336]   25823  76  258    41 0 0        0                                   JUMP unconditional
1/1/3 115         [11337]   25824  10          0 0 0       73                                   SELECT LITERAL
18/0/1 8          [11338]   25825  30          0 0 0        8                                   SHIFT (A) BY QUARTETS
24/0/1 4748       [11339]   25826 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [11340]   25827 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5384        [11341]   25828   5   29     0 1 0        0 REPORT WORD                       TRANSFER
6/0/0 6311        [11342]   25829       27     1 0 0        0                                   SELECT
27/0/0 3155       [11343]   25830  70  258    33 0 0        0 g1 RECORD/BLOCK                   JUMP IF A == 0
24/0/1 8178       [11344]   25831  34          4 1 8        0 LINE SERIAL                       SET (N) IN B
0/1/2 4           [11345]  
24/1/0 3157       [11346]   25832  76  258    34 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
0/1/2 6           [11348]   25833  34    7     6 1 0        0 LINE SERIAL                       SET (N) IN B
26/0/0 3178       [11349]   25834  80  259     2 0 0        0 STORE REPORT                      ENTER SUBROUTINE
1/1/3 7517        [11350]   25835  10          0 0 0     1:5:                                   SELECT LITERAL
3/0/0 6316        [11351]   25836   3   27     6 0 0        0 SET 'PT OMITTED'                  COPY
1/0/1 15          [11352]   25837  35          0 0 0     1111                                   PREPARE FOR DIGIT COLLATION
24/0/1 4748       [11353]   25838 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [11354]   25839 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
14/1/0 5384       [11355]   25840  37   29     0 1 0        0                                   REPLACE SELECTED BITS
26/0/0 4130       [11356]   25841  80  292     2 0 0        0 gREAD PT                          ENTER SUBROUTINE
26/0/0 4204       [11357]   25842  80  294     2 0 0        0 FIND AMENDMENT DIRECTIVE          ENTER SUBROUTINE
27/0/1 2943       [11358]   25843  71  251     4 0 0        0 gNEW DIRECTIVE OR END SIGN        JUMP IF A != 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 51          [11360]   25844        9    50 2 0        0 PASS 0' IND                       SELECT
27/0/0 3172       [11361]   25845  70  258    48 0 0        0 gMOD OK                           JUMP IF A == 0
1/1/3 115         [11362]   25846  10          0 0 0       73                                   SELECT LITERAL
24/1/0 3064       [11363]   25847  76  255    36 0 0        0 gREPORT, READ TO NEXT AMEND DIRECTIVE  JUMP unconditional
26/0/0 4185       [11364]   25848  80  293     2 0 0        0 gTEST STACK DIRECTIVE             ENTER SUBROUTINE
1/1/3 1           [11365]   25849  10          0 0 0        1                                   SELECT LITERAL
2/0/0 83          [11366]   25850   5   12    33 0 0        0 SET 'PT IS INPUT'                 TRANSFER
26/0/0 3815       [11367]   25851  80  283     2 0 0        0 gUNPACK                           ENTER SUBROUTINE
26/0/0 1421       [11368]   25852  80  186     2 0 0        0 gCHECK/EDIT/OUTPUT                ENTER SUBROUTINE
24/1/0 3164       [11369]   25853  76  258    41 0 0        0                                   JUMP unconditional

  Start of procedure 259 at location 3178 in chapter 3 [11370]
                  [11370]   25900 PROCR  259                    STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS  
0/0/0 0           [11370]   25902  81  259     2 0 0        0 (B)=REPORT WORD                   START OF SUBROUTINE
24/0/1 4748       [11371]   25903 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [11372]   25904 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 5399        [11373]   25905       29    15 0 0        0 LAST 2.5 CHARS ANNOTATION         SELECT
5/0/0 4753        [11374]   25906   2  319    27 0 0        0                                   SUBTRACT
27/0/0 3190       [11375]   25907  70  259    14 0 0        0 gLINE IGNORED;DON'T OVERWRITE WORD  JUMP IF A == 0
1/1/3 0           [11376]   25908  10          0 0 0        0 CLEAR SIGN BIT A                  SELECT LITERAL
18/1/1 10         [11377]   25909  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/0/1 4748       [11378]   25910 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT

   Source: ChuckK/Q1000199
24/0/1 4420       [11379]   25911 124  305     2 0 1        0 LAST FIVE CHARS ANNOTATION        MODIFY ADDRESS OF NEXT
2/1/0 5398        [11380]   25912   5   29    14 1 0        0                                   TRANSFER
26/0/1 3178       [11381]   25913  82  259     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
18/1/1 10         [11382]   25914  32          0 0 0       10                                   SHIFT (AB) BY QUARTETS
24/0/1 4748       [11383]   25915 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [11384]   25916 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5396        [11385]   25917   5   29    12 1 0        0                                   TRANSFER
26/0/1 3178       [11386]   25918  82  259     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 260 at location 3195 in chapter 3 [11387]
                  [11387]   26000 PROCR  260                    CONSTANTS ROUTINE                 
                  [11387]   26001 NOTES      RADIX                                                
2/0/0 119         [11387]   26002   5   12    69 0 0        0                                   TRANSFER
2/1/0 116         [11388]   26003   5   12    66 1 0        0 CLEAR INDICATORS                  TRANSFER
2/0/0 120         [11389]   26004   5   12    70 0 0        0                                   TRANSFER
2/0/0 8161        [11390]   26005  84  695     2 0 0        0 CLEAR WL=SWITCH                   SET SWITCH(ES) AT VARIABLE VALUE
26/1/2 116        [11391]   26006  91   12    66 0 2        0 CLEAR R2                          SET MODIFICATION REGISTER AT VARIABLE
26/1/3 5230       [11392]   26007  90          0 0 3        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [11393]   26008   C          0 0 0        5                                   Limit
26/1/1 5232       [11393]   26009  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [11394]   26010   C          0 0 0       18                                   Limit
6/1/0 5234        [11394]   26011  54   94     0 0 0       60 CLEAR UNPACK AREA                 BULK CLEAR
28/0/0 5450       [11395]  
0/0/3 0           [11396]   26012  62          0 0 0        0                                   SET EXCESS CONSTANTS
0/1/2 5298        [11397]   26013  34    1     6 1 0        0 FIRST WORD                        SET (N) IN B
6/0/0 83          [11398]   26014       12    33 0 0        0 NON ZERO IF EX PT                 SELECT
2/0/0 120         [11399]   26015   5   12    70 0 0        0 SET 'NE FOUND' IND                TRANSFER
24/1/0 3211       [11400]   26016  76  261     3 0 0        0                                   JUMP unconditional
26/0/0 4248       [11401]   26017  80  295     2 0 0        0 >IGNORE CONST                     ENTER SUBROUTINE

  Start of procedure 261 at location 3210 in chapter 3 [11402]
                  [11402]   26100 PROCR  261                                                      
                  [11402]   26101 NOTES      RADIX                                                
26/0/0 3593       [11402]   26102  80  274     2 0 0        0 >GET NEXT CHAR                    ENTER SUBROUTINE
18/1/1 2          [11403]   26103  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
3/1/0 138         [11404]   26104   3   12    88 1 0        0                                   COPY
1/1/2 125         [11405]   26105  12          0 0 0       7:                                   SUBTRACT LITERAL
27/0/0 3220       [11406]   26106  70  261    12 0 0        0 >NE                               JUMP IF A == 0
1/1/2 1           [11407]   26107  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3377       [11408]   26108  70  265     2 0 0        0 >BE,STORE NE AND END              JUMP IF A == 0
6/0/0 120         [11409]   26109       12    70 0 0        0                                   SELECT
27/0/1 3210       [11410]   26110  71  261     2 0 0        0 >NO, DONT STORE CHAR              JUMP IF A != 0
24/1/0 3225       [11411]   26111  76  261    17 0 0        0 >STORE AND PROCESS                JUMP unconditional
6/0/0 120         [11412]   26112       12    70 0 0        0  'NE FOUND' IND                   SELECT
27/0/0 3377       [11413]   26113  70  265     2 0 0        0 >YES, STORE NE AND END            JUMP IF A == 0
2/0/0 120         [11414]   26114   5   12    70 0 0        0                                   TRANSFER
2/0/0 120         [11415]   26115   5   12    70 0 0        0 CLEAR                             TRANSFER
24/1/0 3210       [11416]   26116  76  261     2 0 0        0 >GNC                              JUMP unconditional
6/0/0 138         [11417]   26117       12    88 0 0        0                                   SELECT
2/0/2 5450        [11418]   26118   5   94     0 0 2        0 STORE THIS CHAR                   TRANSFER

  Start of procedure 262 at location 3227 in chapter 3 [11419]
                  [11419]   26200 PROCR  262                                                      
                  [11419]   26201 NOTES      RADIX                                                

   Source: ChuckK/Q1000200
24/0/3 22         [11419]   26202  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4           [11420]  
25/0/2 1          [11421]   26203  94  262     4 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3231       [11422] s
27/0/1 3251       [11423]   26204  71  262    21 0 0        0 >NOT FIRST CHAR IN LINE           JUMP IF A != 0
6/0/0 138         [11424]   26205       12    88 0 0        0 THIS CHAR                         SELECT
1/1/2 122         [11425]   26206  12          0 0 0       7t                                   SUBTRACT LITERAL
27/0/0 3253       [11426]   26207  70  262    23 0 0        0 >'('                              JUMP IF A == 0
1/1/3 5           [11427]   26208  83  263    10 0 0        5 IGNORE '('                        SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11428]  
2/0/0 5510        [11429]   26209   5   94    60 0 0        0                                   TRANSFER
6/0/0 5511        [11430]   26210   0   94    61 0 0        0 SF CTR IN DIRECTIVE LINE          SELECT
27/0/0 3248       [11431]   26211  70  262    19 0 0        0 >WRONG                            JUMP IF A == 0
6/0/0 5512        [11432]   26212  84  267     2 0 0        0 SET CHECK SWITCH                  SET SWITCH(ES) AT VARIABLE VALUE
2/0/0 8169        [11433]   26213   C   94    62 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
6/0/0 5512        [11434]   26214   0   94    62 0 0        0 SWITCH FOR FIRST SUBFIELD         SELECT
1/1/2 5           [11435]   26215  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/1 3251       [11436]   26216  71  262    21 0 0        0 >NOT REL ADDRESS                  JUMP IF A != 0
1/1/3 1           [11437]   26217  83  695     2 0 0        1 SET WL=1                          SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8161        [11438]  
24/1/0 3251       [11439]   26218  76  262    21 0 0        0                                   JUMP unconditional
1/1/3 1           [11440]   26219  83  263    10 0 0        1 >IGNORE UNDIRECTED CONST          SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11441]  
26/0/0 3255       [11442]   26220  80  263    10 0 0        0 >CLEAR OUT ALL DETAILS            ENTER SUBROUTINE
6/0/0 138         [11443]   26221       12    88 0 0        0                                   SELECT
24/1/0 3263       [11444]   26222  76  263    10 0 0        0 CHECK                             JUMP unconditional
26/0/0 3255       [11445]   26223  80  263    10 0 0        0 >CLEAR OUT ALL DETAILS            ENTER SUBROUTINE
24/1/0 3274       [11446]   26224  76  263    20 0 0        0 >SET SWITCH AT 2                  JUMP unconditional

  Start of procedure 263 at location 3255 in chapter 3 [11447]
                  [11447]   26300 PROCR  263                                                      
                  [11447]   26301 NOTES      RADIX                                                
0/0/0 0           [11447]   26302  81  263    10 0 0        0                                   START OF SUBROUTINE
2/1/0 5510        [11448]   26303   5   94    60 1 0        0 CLEAR DETAILS                     TRANSFER
2/1/0 5512        [11449]   26304   5   94    62 1 0        0                                   TRANSFER
2/1/0 5514        [11450]   26305   5   94    64 1 0        0                                   TRANSFER
2/1/0 5516        [11451]   26306   5   94    66 1 0        0                                   TRANSFER
2/1/0 5518        [11452]   26307   5   94    68 1 0        0                                   TRANSFER
2/1/0 5520        [11453]   26308   5   94    70 1 0        0                                   TRANSFER
26/0/1 3255       [11454]   26309  82  263    10 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/0/1 8165       [11455]   26310  85  263    10 0 0        0                                   SWITCH R
26/0/1 3264       [11456]  
0/0/1 3209        [11457] s 26311   C  260    17 0 0        0 >IGNORE                           
0/0/1 3296        [11458] s 26312   C  263    40 0 0        0 >PREVIOUS WAS'C' DIRECTIV E LETTER 
0/0/1 3360        [11459] s 26313   C  264    39 0 0        0 >')' EXPECTED                     
0/0/1 3270        [11460] s 26314   C  263    16 0 0        0 >',' FORBIDDEN, '(' ALLOWED       
0/0/1 3277        [11461] s 26315   C  263    22 0 0        0 >'(' FORBIDDEN, ',' ALLOWED       
1/1/2 124         [11462]   26316  12          0 0 0       7+ COMMA                             SUBTRACT LITERAL
27/0/0 3248       [11463]   26317  70  262    19 0 0        0 >IGNORE                           JUMP IF A == 0
1/1/1 2           [11464]   26318  11          0 0 0        2                                   ADD LITERAL
27/0/1 3321       [11465]   26319  71  264     2 0 0        0 >CHECK CHAR                       JUMP IF A != 0
1/1/3 2           [11466]   26320  83  263    10 0 0        2 SET TO EXPECT DIRECTIVE LETTER    SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11467]  
24/1/0 3210       [11468]   26321  76  261     2 0 0        0 >GET NEXT CHAR                    JUMP unconditional
1/1/2 124         [11469]   26322  12          0 0 0       7+                                   SUBTRACT LITERAL
27/0/1 3293       [11470]   26323  71  263    37 0 0        0 >NOT COMMA                        JUMP IF A != 0
1/1/3 2           [11471]   26324  10          0 0 0        2                                   SELECT LITERAL
7/0/0 5510        [11472]   26325   4   94    60 0 0        0                                   AUGMENT
24/0/0 5510       [11473]   26326 124   94    60 0 0        0 SF CTR IN NON-DIRECTIVE LINE      MODIFY ADDRESS OF NEXT
6/0/0 5512        [11474]   26327       94    62 0 0        0 SF DETAILS                        SELECT
27/0/0 3248       [11475]   26328  70  262    19 0 0        0 >IGNORE                           JUMP IF A == 0
2/0/0 8169        [11476]   26329  84  267     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE

   Source: ChuckK/Q1000201
6/0/0 8169        [11477]   26330  86  267     2 0 0        0                                   SELECT SWITCH R
1/1/2 5           [11478]   26331  12          0 0 0        5                                   SUBTRACT LITERAL
27/0/1 3210       [11479]   26332  71  261     2 0 0        0 >NOT REL ADDRESS                  JUMP IF A != 0
24/0/3 22         [11480]   26333  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4           [11481]  
1/1/1 1           [11482]   26334  11          0 0 0        1                                   ADD LITERAL
2/0/0 8161        [11483]   26335  84  695     2 0 0        0 WL=LOCN OF SECOND CHAR            SET SWITCH(ES) AT VARIABLE VALUE
24/1/0 3210       [11484]   26336  76  261     2 0 0        0 >GET NEXT CHAR                    JUMP unconditional
1/1/1 2           [11485]   26337  11          0 0 0        2                                   ADD LITERAL
27/0/1 3321       [11486]   26338  71  264     2 0 0        0 >NOT '(', CHECK CHAR              JUMP IF A != 0
24/1/0 3209       [11487]   26339  76  260    17 0 0        0 >IGNORE;GET NEXT CHAR             JUMP unconditional
1/1/2 81          [11488]   26340  12          0 0 0       51                                   SUBTRACT LITERAL
27/0/0 3316       [11489]   26341  70  263    59 0 0        0 >A                                JUMP IF A == 0
1/1/2 1           [11490]   26342  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3314       [11491]   26343  70  263    57 0 0        0 >B                                JUMP IF A == 0
1/1/2 1           [11492]   26344  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3308       [11493]   26345  70  263    52 0 0        0 >C                                JUMP IF A == 0
1/1/2 1           [11494]   26346  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3315       [11495]   26347  70  263    58 0 0        0 >D                                JUMP IF A == 0
1/1/2 19          [11496]   26348  12          0 0 0       13                                   SUBTRACT LITERAL
27/0/0 3313       [11497]   26349  70  263    56 0 0        0 >P                                JUMP IF A == 0
1/1/2 2           [11498]   26350  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 3248       [11499]   26351  71  262    19 0 0        0 >IGNORE;NOT R                     JUMP IF A != 0
24/0/3 22         [11500]   26352  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4           [11501]  
1/1/1 2           [11502]   26353  11          0 0 0        2                                   ADD LITERAL
2/0/0 8161        [11503]   26354  84  695     2 0 0        0 WL=LOCN OF SECOND CHAR            SET SWITCH(ES) AT VARIABLE VALUE
1/1/3 1           [11504]   26355  10          0 0 0        1 RANDO                             SELECT LITERAL
1/1/1 1           [11505]   26356  11          0 0 0        1 P                                 ADD LITERAL
1/1/1 1           [11506]   26357  11          0 0 0        1 B                                 ADD LITERAL
1/1/1 1           [11507]   26358  11          0 0 0        1 D                                 ADD LITERAL
1/1/1 1           [11508]   26359  11          0 0 0        1 A                                 ADD LITERAL
2/0/0 8169        [11509]   26360  84  267     2 0 0        0 SET CHECKING SWITCH               SET SWITCH(ES) AT VARIABLE VALUE
1/1/3 3           [11510]   26361  83  263    10 0 0        3 SET TO EXPECT ')'                 SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11511]  
24/1/0 3210       [11512]   26362  76  261     2 0 0        0 >GET NEXT CHAR                    JUMP unconditional

  Start of procedure 264 at location 3321 in chapter 3 [11513]
                  [11513]   26400 PROCR  264                                                      
                  [11513]   26401 NOTES      RADIX                                                
24/0/1 8169       [11513]   26402  85  267     2 0 0        0 CHECK SWITCH                      SWITCH R
26/0/1 3322       [11514]  
0/0/1 3210        [11515]   26403   C  261     2 0 0        0 >A,GNC                            
0/0/1 3328        [11516] s 26404   C  264     8 0 0        0 >D                                
0/0/1 3337        [11517] s 26405   C  264    17 0 0        0 >B                                
0/0/1 3341        [11518] s 26406   C  264    21 0 0        0 >P                                
0/0/1 3346        [11519] s 26407   C  264    26 0 0        0 >R                                
6/0/0 138         [11520]   26408   0   12    88 0 0        0 ;DECIMAL                          SELECT
18/0/1 4127       [11521]   26409  30          0 0 0       1- CONTROL                           SHIFT (A) BY QUARTETS
1/1/2 2           [11522]   26410  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 3334       [11523]   26411  70  264    14 0 0        0 >REPORT *                         JUMP IF A == 0
1/1/2 3           [11524]   26412  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/3 3210       [11525]   26413  73  261     2 0 0        0 >OK                               JUMP IF A < 0
1/1/3 91          [11526]   26414  10          0 0 0       5e *                                 SELECT LITERAL
2/1/0 5336        [11527]   26415   5    1    44 1 0        0                                   TRANSFER
24/1/0 3210       [11528]   26416  76  261     2 0 0        0                                   JUMP unconditional

   Source: RayS/Q1000202
6/1/0 139         [11529]   26417   0   12    88 2 0        0 BASIC BINARY                      SELECT
1/1/2 10          [11530]   26418  12          0 0 0        t                                   SUBTRACT LITERAL
27/0/2 3334       [11531]   26419  72  264    14 0 0        0 gREPORT                           JUMP IF A >= 0
24/1/0 3328       [11532]   26420  76  264     8 0 0        0 gCHECK CONTROL                    JUMP unconditional
6/1/0 139         [11533]   26421   0   12    88 2 0        0 BASIC PATTERN                     SELECT
27/0/0 3328       [11534]   26422  70  264     8 0 0        0                                   JUMP IF A == 0
1/1/2 1           [11535]   26423  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3328       [11536]   26424  70  264     8 0 0        0                                   JUMP IF A == 0
24/1/0 3334       [11537]   26425  76  264    14 0 0        0 gREPORT                           JUMP unconditional
6/0/0 138         [11538]   26426       12    88 0 0        0 CHAR RELATIVE ADDRESS             SELECT
1/1/2 77          [11539]   26427  12          0 0 0       4:                                   SUBTRACT LITERAL
27/0/1 3353       [11540]   26428  71  264    33 0 0        0 gNOT COLON                        JUMP IF A != 0
6/0/0 116         [11541]   26429   0   12    66 0 0        0                                   SELECT
2/0/0 117         [11542]   26430   5   12    67 0 0        0 12/67=REF, 12/66=ITEM             TRANSFER
2/0/0 116         [11543]   26431   5   12    66 0 0        0                                   TRANSFER
24/1/0 3328       [11544]   26432  76  264     8 0 0        0 gCHECK CONTROL                    JUMP unconditional
6/0/0 116         [11545]   26433   0   12    66 0 0        0                                   SELECT
18/0/1 1          [11546]   26434  30          0 0 0        1                                   SHIFT (A) BY QUARTETS
4/1/0 139         [11547]   26435   1   12    88 2 0        0 ASSEMBLE REF/ITEM                 ADD
2/0/0 116         [11548]   26436   5   12    66 0 0        0                                   TRANSFER
1/1/3 5           [11549]   26437  83  263    10 0 0        5 INHIBIT ANOTHER DIRECTIVE         SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11550]  
24/1/0 3337       [11551]   26438  76  264    17 0 0        0 gCHECK AS BINARY                  JUMP unconditional
1/1/2 123         [11552]   26439  12          0 0 0       7e                                   SUBTRACT LITERAL
27/0/0 3369       [11553]   26440  70  264    48 0 0        0 gIS ')'                           JUMP IF A == 0
6/0/2 5448        [11554]   26441   0   94    2- 0 2        0                                   SELECT
1/1/2 82          [11555]   26442  12          0 0 0       52                                   SUBTRACT LITERAL
27/0/0 3337       [11556]   26443  70  264    17 0 0        0 LAST CHAR WAS 'B' +CHECK THIS     JUMP IF A == 0
6/0/2 5447        [11557]   26444   0   94    3- 0 2        0                                   SELECT
1/1/2 82          [11558]   26445  12          0 0 0       52                                   SUBTRACT LITERAL
27/0/0 3337       [11559]   26446  70  264    17 0 0        0 ONE BEFORE WAS 'B' +CHECK THIS    JUMP IF A == 0
24/1/0 3248       [11560]   26447  76  262    19 0 0        0 NEITHER WAS 'B' +IGNORE           JUMP unconditional
6/0/0 8169        [11561]   26448  86  267     2 0 0        0 CHECK SWITCH                      SELECT SWITCH R
24/0/0 5511       [11562]   26449 124   94    61 0 0        0 CTR IN DIRECTIVE LINE             MODIFY ADDRESS OF NEXT
2/0/0 5512        [11563]   26450   5   94    62 0 0        0                                   TRANSFER
1/1/3 2           [11564]   26451  10          0 0 0        2                                   SELECT LITERAL
7/0/0 5511        [11565]   26452   4   94    61 0 0        0                                   AUGMENT
1/1/3 4           [11566]   26453  83  263    10 0 0        4 COMMA FORBIDDEN'                  SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8165        [11567]  
24/1/0 3210       [11568]   26454  76  261     2 0 0        0 gGNC                              JUMP unconditional

  Start of procedure 265 at location 3377 in chapter 3 [11569]
                  [11569]   26500 PROCR  265                    TIDY UP AND REASSEMBLE CONST      
                  [11569]   26501 NOTES      RADIX                                                
1/1/3 125         [11569]   26502  10          0 0 0       7:                                   SELECT LITERAL
2/0/2 5450        [11570]   26503   5   94     0 0 2        0 STORE END SIGN                    TRANSFER
6/0/0 8165        [11571]   26504  86  263    10 0 0        0 DIRECTIVE SWITCH                  SELECT SWITCH R
1/1/2 4           [11572]   26505  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 3383       [11573]   26506  72  265     8 0 0        0 gOK SWITCH SETTINGS               JUMP IF A >= 0
26/0/0 4248       [11574]   26507  80  295     2 0 0        0 gIGNORE THIS CONST                ENTER SUBROUTINE
6/0/0 5510        [11575]   26508       94    60 0 0        0 COMMAS X2                         SELECT
27/0/0 3389       [11576]   26509  70  265    14 0 0        0                                   JUMP IF A == 0
1/1/1 2           [11577]   26510  11          0 0 0        2                                   ADD LITERAL
5/0/0 5511        [11578]   26511   2   94    61 0 0        0 DIRECTIVE CTR                     SUBTRACT
27/0/0 3389       [11579]   26512  70  265    14 0 0        0                                   JUMP IF A == 0
26/0/0 4248       [11580]   26513  80  295     2 0 0        0 gIGNORE THIS CONST                ENTER SUBROUTINE
6/0/0 5511        [11581]   26514       94    61 0 0        0 DIRECTIVE CTR                     SELECT
1/1/2 12          [11582]   26515  12          0 0 0        +                                   SUBTRACT LITERAL
27/0/3 3393       [11583]   26516  73  265    18 0 0        0 gOK, NOT MORE THAN 5              JUMP IF A < 0
26/0/0 4248       [11584]   26517  80  295     2 0 0        0 gIGNORE                           ENTER SUBROUTINE

   Source: RayS/Q1000203
24/0/3 22         [11585]   26518  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4           [11586]  
2/0/0 120         [11587]   26519   5   12    70 0 0        0 TOT NO OF CHARS                   TRANSFER
3/1/0 40          [11588]   26520  91          0 0 2        0 CLEAR BOTH                        SET MODIFICATION REGISTER AT VARIABLE
26/1/2 40         [11589]  
3/1/0 40          [11590]   26521  91          0 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/3 40         [11591]  
6/0/0 8161        [11592]   26522  86  695     2 0 0        0                                   SELECT SWITCH R
27/0/0 3428       [11593]   26523  70  265    47 0 0        0 gNO REL ADDRESS IN CONST          JUMP IF A == 0
3/1/0 40          [11594]   26524  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40         [11595]  
6/0/0 117         [11596]   26525   0   12    67 0 0        0 REF                               SELECT
1/1/2 256         [11597]   26526  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/3 3428       [11598]   26527  73  265    47 0 0        0 gSECTION                          JUMP IF A < 0
1/1/2 2201        [11599]   26528  12          0 0 0      899                                   SUBTRACT LITERAL
27/0/2 3428       [11600]   26529  72  265    47 0 0        0 gEX RANGE                         JUMP IF A >= 0
6/0/0 117         [11601]   26530   0   12    67 0 0        0                                   SELECT
26/0/0 1619       [11602]   26531  80  200     2 0 0        0 gREPLACE PROCR                    ENTER SUBROUTINE
24/1/0 3413       [11603]  
0/0/1 1673        [11604]   26532   C  202     2 0 0        0                                   
6/0/0 169         [11605]   26533       12   119 0 0        0                                   SELECT
0/0/3 0           [11606]   26534  62          0 0 0        0                                   SET EXCESS CONSTANTS
18/1/1 4126       [11607]   26535  32          0 0 0       2- REPLACE 3-DIGIT NUMBER            SHIFT (AB) BY QUARTETS
2/0/1 5449        [11608]   26536   5   94    1- 0 1        0 (FIRST DIGIT ALWAYS ZERO)         TRANSFER
18/1/1 1          [11609]   26537  32          0 0 0        1                                   SHIFT (AB) BY QUARTETS
27/0/1 3420       [11610]   26538  71  265    40 0 0        0                                   JUMP IF A != 0
1/1/3 48          [11611]   26539  10          0 0 0       30                                   SELECT LITERAL
2/0/1 5450        [11612]   26540   5   94     0 0 1        0                                   TRANSFER
18/1/1 1          [11613]   26541  32          0 0 0        1                                   SHIFT (AB) BY QUARTETS
27/0/1 3424       [11614]   26542  71  265    44 0 0        0                                   JUMP IF A != 0
1/1/3 48          [11615]   26543  10          0 0 0       30                                   SELECT LITERAL
2/0/1 5451        [11616]   26544   5   94     1 0 1        0                                   TRANSFER
6/1/0 5236        [11617]   26545  54    1     6 0 0       18                                   BULK CLEAR
28/0/0 5298       [11618]  
24/1/0 3470       [11619]   26546  76  265    83 0 0        0 gASSEMBLE                         JUMP unconditional
6/0/0 83          [11620]   26547   0   12    33 0 0        0                                   SELECT
27/0/0 3487       [11621]   26548  70  266    17 0 0        0 gMT                               JUMP IF A == 0
6/1/0 5238        [11622]   26549  54    1     6 0 0       18 CLEAR 1/6'-1.22'=EDIT AREA        BULK CLEAR
28/0/0 5298       [11623]  
24/0/1 6320       [11624]   26550  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3433       [11625]  
0/0/1 3470        [11626] s 26551   C  265    83 0 0        0 gPT                               
0/0/1 3436        [11627] s 26552   C  265    53 0 0        0 gCARDS                            
6/0/0 5511        [11628]   26553       94    61 0 0        0 DIRECTIVE CTR                     SELECT
1/1/2 4           [11629]   26554  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 3458       [11630]   26555  72  265    72 0 0        0 gMIXED CONSTANT                   JUMP IF A >= 0
6/0/0 8169        [11631]   26556  86  267     2 0 0        0                                   SELECT SWITCH R
1/1/2 1           [11632]   26557  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 3458       [11633]   26558  71  265    72 0 0        0 gNOT ALPHA                        JUMP IF A != 0
6/0/0 5450        [11634]   26559       94     0 0 0        0 FIRST CHAR                        SELECT
1/1/2 122         [11635]   26560  12          0 0 0       7t                                   SUBTRACT LITERAL
27/0/0 3446       [11636]   26561  70  265    63 0 0        0 g'('                              JUMP IF A == 0
6/0/0 5121        [11637]   26562  10          0 0 0       3-                                   SELECT LITERAL
1/1/1 3           [11638]   26563  11          0 0 0        3                                   ADD LITERAL
0/0/2 5122        [11639]   26564  17   12    90 0 0        3 LONG/SHORT CTR                    MULTIPLY LITERAL and ADD
10/0/0 140        [11640]  
4/1/0 5240        [11641]   26565  11          0 0 0  1.00002 END VLAUE 30                      ADD LITERAL
3/0/0 120         [11642]   26566   3   12    70 0 0        0 NEW CONSTANT LENGTH               COPY
3/1/0 40          [11643]   26567  91          0 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
26/1/1 40         [11644]  
1/1/3 125         [11645]   26568  10          0 0 0       7:                                   SELECT LITERAL
2/0/1 5450        [11646]   26569   5   94     0 0 1        0                                   TRANSFER
25/0/1 1          [11647]   26570  94  265    69 0 1        1 gCLEAR REST OF CONSTANT           STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3454       [11648] s
24/1/0 3470       [11649]   26571  76  265    83 0 0        0                                   JUMP unconditional
26/1/1 5242       [11650]   26572  90          0 0 1       28                                   SET MODIFICATION REGISTER AT LITERAL
                  [11651]   26573   C          0 0 0        0                                   Limit
6/0/1 5450        [11651]   26574       94     0 0 1        0                                   SELECT

   Source: TonyJ/Q1000204
27/0/1 3463       [11652]   26575  71  265    77 0 0        0 >FIRST NON ZERO CHAR FROM END     JUMP IF A != 0
25/0/1 4097       [11653]   26576  94  265    74 0 1       1-                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3459       [11654] s
1/1/3 125         [11655]   26577  10          0 0 0       7:                                   SELECT LITERAL
2/0/1 5451        [11656]   26578   5   94     1 0 1        0 SET CONST END                     TRANSFER
2/0/0 5479        [11657]   26579   5   94    29 0 0        0 CLEAR OLD END                     TRANSFER
24/0/3 22         [11658]   26580  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2           [11659]  
1/1/1 1           [11660]   26581  11          0 0 0        1                                   ADD LITERAL
2/0/0 120         [11661]   26582   5   12    70 0 0        0 NEW NUMBERS OF CHARS              TRANSFER
6/0/2 5450        [11662]   26583       94     0 0 2        0                                   SELECT

  Start of procedure 266 at location 3471 in chapter 3 [11663]
                  [11663]   26600 PROCR  266       266                                              
                  [11663]   26601 NOTES            RADIX          0 STORE OLD - NEW RADIX             
18/0/1 2          [11663]   26602  30          0 0 0        2 CTR OF CONVERT TABLES TO DATE     SHIFT (A) BY QUARTETS
4/0/2 5451        [11664]   26603   1   94     1 0 2        0                                   ADD
18/0/1 2          [11665]   26604  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/2 5452        [11666]   26605   1   94     2 0 2        0                                   ADD
18/0/1 2          [11667]   26606  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/2 5453        [11668]   26607   1   94     3 0 2        0                                   ADD
18/0/1 2          [11669]   26608  30          0 0 0        2                                   SHIFT (A) BY QUARTETS
4/0/2 5454        [11670]   26609   1   94     4 0 2        0                                   ADD
2/1/3 5298        [11671]   26610   5    1     6 1 3        0 STORE NEXT WORD OF CONST          TRANSFER
25/0/3 2          [11672]   26611 125          2 0 3        0                                   STEP ON AND TEST
25/0/2 5          [11673]   26612 125          5 0 2        0                                   STEP ON AND TEST
24/0/3 22         [11674]   26613  96          0 0 2        0                                   SELECT MODIFIER
6/0/0 4           [11675]  
1/1/2 1           [11676]   26614  12          0 0 0        1                                   SUBTRACT LITERAL
5/0/0 120         [11677]   26615   2   12    70 0 0        0 NO OF CHARS                       SUBTRACT
27/0/3 3470       [11678]   26616  73  265    83 0 0        0 > CYCLE FOR MULTIPLE OF 5         JUMP IF A < 0
6/1/0 5334        [11679]   26617        1    42 1 0        0                                   SELECT
5/1/0 4752        [11680]   26618   2  319    26 1 0        0                                   SUBTRACT
27/0/1 3492       [11681]   26619  71  266    22 0 0        0 > OK                              JUMP IF A != 0
26/0/0 3255       [11682]   26620  80  263    10 0 0        0 CLEAR ALL DETAILS                 ENTER SUBROUTINE
24/1/0 2810       [11683]   26621  76  247     2 0 0        0                                   JUMP unconditional
6/0/0 5511        [11684]   26622   0   94    61 0 0        0 SF CTR IN DIRECTIVE LINE          SELECT
1/1/2 4           [11685]   26623  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/2 2810       [11686]   26624  72  247     2 0 0        0 > CONST IS MIXED OR CONTAINS     JUMP IF A >= 0
26/1/1 5244       [11687]   26625  90          0 0 1        0 CLEAR MODIFIER                    SET MODIFICATION REGISTER AT LITERAL
                  [11688]   26626   C          0 0 0        0 /////                             Limit
6/0/1 5450        [11688]   26627       94     0 0 1        0 NEXT CHAR                         SELECT
1/1/2 122         [11689]   26628  12          0 0 0       7t Please check I have transcribed literal OK  SUBTRACT LITERAL
27/0/1 3506       [11690]   26629  71  267     2 0 0        0           > NOT '('               JUMP IF A != 0
6/0/1 5451        [11691]   26630   0   94     1 0 1        0 CHAR AFTER '('                    SELECT
25/0/1 1          [11692]   26631  94          0 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3502       [11693]  
1/1/2 123         [11694]   26632  12          0 0 0       7e Please check I have transcribed literal OK. As per DH email 6th March. )' SUBTRACT LITERAL
27/0/1 3499       [11695]   26633  71  266    30 0 0        0                                   JUMP IF A != 0
25/0/1 1          [11696]   26634  94          0 0 1        1 TO SELECT CHAR AFTER DIRECTIVE    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3506       [11697]  

  Start of procedure 267 at location 3506 in chapter 3 [11698]
                  [11698]   26700 PROCR  267       267    CONSTANTS SWITCH                                   
                  [11698]   26701 NOTES                                                           
24/0/1 8169       [11698]   26702  85  267     2 0 0        0                                   SWITCH R
26/0/1 3507       [11699]  
0/0/1 3539        [11700]   26703   C  268     2 0 0        0                                   
0/0/1 3548        [11701]   26704   C  269     2 0 0        0                                   
0/0/1 3562        [11702]   26705   C  270     2 0 0        0                                   
0/0/1 3585        [11703]   26706   C  272     2 0 0        0                                   
0/0/1 3513        [11704] s 26707   C  267     8 0 0        0 > RELATIVE ADDRESS                
6/0/0 117         [11705]   26708       12    67 0 0        0 REF (DEC)                         SELECT
1/1/2 4096        [11706]   26709  12          0 0 0     1000                                   SUBTRACT LITERAL
27/0/2 3533       [11707]   26710  72  267    28 0 0        0 > REPORT R                        JUMP IF A >= 0

   Source: TonyJ/Q1000205
1/1/1 3943        [11708]   26711  11          0 0 0      67 1000 - 99 BIN RADIX               ADD LITERAL
27/0/2 3535       [11709]   26712  72  267    30 0 0        0 >REF IS A PROCR                   JUMP IF A >= 0
6/0/0 117         [11710]   26713       12    67 0 0        0 SECTION IN DEC                    SELECT
27/0/0 2810       [11711]   26714  70  247     2 0 0        0 >ABS ADDRESS, NO CHECKS           JUMP IF A == 0
26/0/0 1358       [11712]   26715  80  183     2 0 0        0 >DECODE                           ENTER SUBROUTINE
0/0/2 90          [11713]   26716  34   12    40 0 0        0                                   SET (N) IN B
15/0/3 122        [11714]   26717  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/0 3533       [11715]   26718  70  267    28 0 0        0 > SECTION NON-EXISTENT;REPORT R   JUMP IF A == 0
1/1/3 0           [11716]   26719  10          0 0 0        0                                   SELECT LITERAL
18/1/3 10         [11717]   26720  33          0 0 0       10 SHIFT COLLATOR                    SHIFT (AB) BY BITS
15/0/3 122        [11718]   26721  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/1 3533       [11719]   26722  71  267    28 0 0        0 > SECTION IS TX AREA;REPORT R     JUMP IF A != 0
6/0/0 116         [11720]   26723       12    66 0 0        0 ITEM                              SELECT
5/0/0 5123        [11721]   26724  12          0 0 0     8191                                   SUBTRACT LITERAL
27/0/3 2810       [11722]   26725  73  247     2 0 0        0 > OK                              JUMP IF A < 0
26/0/0 1588       [11723]   26726  80  196     2 0 0        0 > REPORT                          ENTER SUBROUTINE
24/1/0 2810       [11724]   26727  76  247     2 0 0        0                                   JUMP unconditional
26/0/0 1584       [11725]   26728  80  195     2 0 0        0 > REPORT R                        ENTER SUBROUTINE
24/1/0 2810       [11726]   26729  76  247     2 0 0        0                                   JUMP unconditional
6/0/0 116         [11727]   26730       12    66 0 0        0 ITEM                              SELECT
1/1/2 153         [11728]   26731  12          0 0 0       99                                   SUBTRACT LITERAL
27/0/2 3531       [11729]   26732  72  267    26 0 0        0 > REPORT 1                        JUMP IF A >= 0
24/1/0 2810       [11730]   26733  76  247     2 0 0        0 > OK                              JUMP unconditional

  Start of procedure 268 at location 3539 in chapter 3 [11731]
                  [11731]   26800 PROCR  268       268    CHECK ALPHA CONSTANTS                                   
                  [11731]   26801 NOTES                                                           
6/0/0 140         [11731]   26802   0   12    90 0 0        0 LONG/SHORT CONST INDICATOR        SELECT
27/0/0 3542       [11732]   26803  70  268     5 0 0        0                                   JUMP IF A == 0
1/1/3 3           [11733]   26804  10          0 0 0        3                                   SELECT LITERAL
1/1/1 2           [11734]   26805  11          0 0 0        2                                   ADD LITERAL
24/0/3 22         [11735]   26806  98          0 0 1        0 > MODIFIER = DIRECTIVE LENGTH     ADD MODIFICATION REGISTER TO A
4/0/0 2           [11736]  
5/0/0 120         [11737]   26807   2   12    70 0 0        0 TOT CHARS IN CONST+1 (INDIRECTIVE) SUBTRACT
27/0/2 2810       [11738]   26808  72  247     2 0 0        0 > OK                              JUMP IF A >= 0
24/1/0 3590       [11739]   26809  76  273     2 0 0        0 > REPORT                          JUMP unconditional

  Start of procedure 269 at location 3548 in chapter 3 [11740]
                  [11740]   26900 PROCR  269       269    CHECK DECIMAL CONSTANTS                                   
                  [11740]   26901 NOTES            RADIX                                              
6/0/0 140         [11740]   26902   0   12    90 0 0        0 LONG/SHORT CONST INDICATOR        SELECT
27/0/0 3551       [11741]   26903  70  269     5 0 0        0 > SHORT                           JUMP IF A == 0
1/1/3 5           [11742]   26904  10          0 0 0        5                                   SELECT LITERAL
1/1/1 5           [11743]   26905  11          0 0 0        5                                   ADD LITERAL
2/0/0 117         [11744]   26906   5   12    67 0 0        0                                   TRANSFER
24/0/0 120        [11745]   26907 124   12    70 0 0        0 CHARS IN CONST                    MODIFY ADDRESS OF NEXT
6/0/0 5449        [11746]   26908       94    1- 0 0        0 FINAL BEFOR NE                    SELECT
1/1/2 16          [11747]   26909  12          0 0 0       10                                   SUBTRACT LITERAL
27/0/0 3559       [11748]   26910  70  269    13 0 0        0 > ALLOW FOR SIGN                  JUMP IF A == 0
6/0/0 117         [11749]   26911   0   12    67 0 0        0                                   SELECT
24/1/0 3543       [11750]   26912  76  268     6 0 0        0 > CHECK                           JUMP unconditional
6/0/0 117         [11751]   26913   0   12    67 0 0        0                                   SELECT
1/1/1 1           [11752]   26914  11          0 0 0        1                                   ADD LITERAL
24/1/0 3543       [11753]   26915  76  268     6 0 0        0 > CHECK                           JUMP unconditional

  Start of procedure 270 at location 3562 in chapter 3 [11754]
                  [11754]   27000 PROCR  270       270    BINARY NUMBERS                                   
                  [11754]   27001 NOTES            RADIX                                              
26/1/2 5246       [11754]   27002  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [11755]   27003   C          0 0 0       11                                   Limit
6/0/1 5450        [11755]   27004       94     0 0 1        0 NEXT CHAR                         SELECT

   Source: RayS/Q1000206
1/1/2 125         [11756]   27005  12          0 0 0       7:                                   SUBTRACT LITERAL
27/0/0 3579       [11757]   27006  70  271     2 0 0        0 gNUMBER END                       JUMP IF A == 0
1/1/1 109         [11758]   27007  11          0 0 0       6:                                   ADD LITERAL
27/0/0 3579       [11759]   27008  70  271     2 0 0        0 gMINUS SIGN                       JUMP IF A == 0
1/1/1 16          [11760]   27009  11          0 0 0       10                                   ADD LITERAL
2/1/0 60          [11761]   27010   5   12    10 1 0        0 STORE CHARACTER                   TRANSFER
6/1/0 116         [11762]   27011   0   12    66 1 0        0                                   SELECT
18/0/1 1          [11763]   27012  30          0 0 0        1                                   SHIFT (A) BY QUARTETS
4/1/0 61          [11764]   27013   1   12    10 2 0        0 BASIC QTT                         ADD
2/1/0 116         [11765]   27014   5   12    66 1 0        0 ASSEMBLE CONST QTT BY QTT         TRANSFER
25/0/1 1          [11766]   27015  94  270    16 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3576       [11767]  
25/0/2 1          [11768]   27016  94  270     4 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3563       [11769] s
24/1/0 3590       [11770]   27017  76  273     2 0 0        0 gREPORT TOO MANY CHARS            JUMP unconditional

  Start of procedure 271 at location 3579 in chapter 3 [11771]
                  [11771]   27100 PROCR  271                                                      
                  [11771]   27101 NOTES      RADIX                                                
6/0/0 140         [11771]   27102   0   12    90 0 0        0 LONG/SHORT CONST IND              SELECT
27/0/1 2810       [11772]   27103  71  247     2 0 0        0                                   JUMP IF A != 0
6/1/0 116         [11773]   27104       12    66 1 0        0                                   SELECT
5/1/0 5248        [11774]   27105  12          0 0 0  1048576                                   SUBTRACT LITERAL
27/0/2 3590       [11775]   27106  72  273     2 0 0        0                                   JUMP IF A >= 0
24/1/0 2810       [11776]   27107  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 272 at location 3585 in chapter 3 [11777]
                  [11777]   27200 PROCR  272                    BINARY PATTERN                    
                  [11777]   27201 NOTES      RADIX                                                
6/0/0 140         [11777]   27202   0   12    90 0 0        0 LONG/SHORT CONSTANT IND           SELECT
27/0/0 3588       [11778]   27203  70  272     5 0 0        0                                   JUMP IF A == 0
1/1/3 20          [11779]   27204  10          0 0 0       14                                   SELECT LITERAL
1/1/1 20          [11780]   27205  11          0 0 0       14                                   ADD LITERAL
24/1/0 3552       [11781]   27206  76  269     6 0 0        0 gCHECK LENGTH VIA DEC             JUMP unconditional

  Start of procedure 273 at location 3590 in chapter 3 [11782]
                  [11782]   27300 PROCR  273                    ERROR REPORT                      
                  [11782]   27301 NOTES      RADIX                                                
1/1/3 91          [11782]   27302  10          0 0 0       5e                                   SELECT LITERAL
2/1/0 5336        [11783]   27303   5    1    44 1 0        0                                   TRANSFER
24/1/0 2810       [11784]   27304  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 274 at location 3593 in chapter 3 [11785]
                  [11785]   27400 PROCR  274                    GET NEXT CHAR OF CONSTANT(IE NEXT WORD)  
                  [11785]   27401 NOTES      RADIX                                                
0/0/0 0           [11785]   27402  81  274     2 0 0        0                                   START OF SUBROUTINE
1/1/3 0           [11786]   27403  10          0 0 0        0                                   SELECT LITERAL
25/0/3 1          [11787]   27404  94  274    13 0 3        1 gHAVE NOT EXHAUSTED 5-CHAR WORD   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3609       [11788] s
25/0/1 2          [11789]   27405  94  274    10 0 1        2 STEP FOR NEXT WORD IF PRESENT     STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3603       [11790] s
26/0/0 4248       [11791]   27406  80  295     2 0 0        0 *IGNORE MORE THAN 45 CHAR         ENTER SUBROUTINE
1/1/3 125         [11792]   27407  10          0 0 0       7:                                   SELECT LITERAL
18/1/1 4126       [11793]   27408  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
26/0/1 3593       [11794]   27409  82  274     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
26/1/3 5250       [11795]   27410  90          0 0 3        0 R3 COUNTS A 5-CHAR WORD           SET MODIFICATION REGISTER AT LITERAL
                  [11796]   27411   C          0 0 0        5                                   Limit
0/1/0 40          [11796]   27412  34    1     6 1 1        0 NEXT WORD CONSTANT                SET (N) IN B
0/0/3 0           [11797]  
6/1/1 5298        [11798]  
2/1/0 42          [11799]  
0/1/1 40          [11800]  
26/0/1 3593       [11801]   27413  82  274     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 275 at location 3610 in chapter 3 [11802]
                  [11802]   27500 PROCR  275                    ALTERNATIVE ENTRY TO UPDATE ADDRESS  
0/0/0 0           [11802]   27502  81  275     2 0 0        0                                   START OF SUBROUTINE
2/1/0 139         [11803]   27503   5   12    88 2 0        0                                   TRANSFER
6/0/0 3610        [11804]   27504   0  275     2 0 0        0                                   SELECT
3/0/0 3593        [11805]   27505   3  274     2 0 0        0 SET NONZERO='NOT P'               COPY

   Source: RayS/Q1000207
2/0/0 1826        [11806]   27506   5  208     2 0 0        0                                   TRANSFER
24/1/0 1834       [11807]   27507  76  208    10 0 0        0 gENTER                            JUMP unconditional

  Start of procedure 276 at location 3616 in chapter 3 [11808]
                  [11808]   27600 PROCR  276                                                      
                  [11808]   27601 NOTES      RADIX                                                
2/0/0 53          [11808]   27602   5   12     3 0 0        0 CLEAR ERROR WL                    TRANSFER
26/1/2 5252       [11809]   27603  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [11810]   27604   C          0 0 0        8                                   Limit
6/0/2 5314        [11810]   27605   0    1    22 0 2        0 ITEM                              SELECT
2/0/0 5302        [11811]   27606   5    1    10 0 0        0                                   TRANSFER
6/1/2 5312        [11812]   27607   0    1    20 1 2        0 REF (NUM)                         SELECT
26/0/0 3610       [11813]   27608  80  275     2 0 0        0 gUPDATE ADDRESS                   ENTER SUBROUTINE
6/0/0 5302        [11814]   27609   0    1    10 0 0        0 NEW ITEM                          SELECT
2/0/2 5314        [11815]   27610   5    1    22 0 2        0                                   TRANSFER
6/0/0 54          [11816]   27611   0   12     4 0 0        0 NEW REF                           SELECT
2/0/2 5312        [11817]   27612   5    1    20 0 2        0                                   TRANSFER
26/0/0 3634       [11818]   27613  80  277     2 0 0        0 CHECK REF                         ENTER SUBROUTINE
6/0/0 5311        [11819]   27614        1    19 0 0        0 DISC                              SELECT
27/0/0 3631       [11820]   27615  70  276    18 0 0        0                                   JUMP IF A == 0
6/0/0 5302        [11821]   27616        1    10 0 0        0                                   SELECT
26/0/0 1568       [11822]   27617  80  192     2 0 0        0 gCHECK ITEM IS EVEN               ENTER SUBROUTINE
25/0/2 4          [11823]   27618  94  276     5 0 2        4                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 3618       [11824] s
24/1/0 3664       [11825]   27619  76  278     2 0 0        0                                   JUMP unconditional

  Start of procedure 277 at location 3634 in chapter 3 [11826]
                  [11826]   27700 PROCR  277                    SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES  
                  [11826]   27701 NOTES      RADIX                                                
0/0/0 0           [11826]   27702  81  277     2 0 0        0                                   START OF SUBROUTINE
1/1/3 1           [11827]   27703  83  108     2 0 0        1                                   SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8167        [11828]  
6/0/0 54          [11829]   27704       12     4 0 0        0 REF TO BE CHECKED                 SELECT
1/1/2 256         [11830]   27705  12          0 0 0      100                                   SUBTRACT LITERAL
27/0/2 3661       [11831]   27706  72  277    27 0 0        0 gNOT SECTION                      JUMP IF A >= 0
6/0/0 54          [11832]   27707   0   12     4 0 0        0                                   SELECT
27/0/3 3656       [11833]   27708  73  277    23 0 0        0                                   JUMP IF A < 0
27/0/0 3651       [11834]   27709  70  277    18 0 0        0                                   JUMP IF A == 0
26/0/0 1358       [11835]   27710  80  183     2 0 0        0 gDECODE SR                        ENTER SUBROUTINE
0/0/2 90          [11836]   27711  34   12    40 0 0        0                                   SET (N) IN B
15/0/3 122        [11837]   27712  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/0 3656       [11838]   27713  70  277    23 0 0        0 gIGNORE, SECTION NONEXISTENT      JUMP IF A == 0
18/1/3 10         [11839]   27714  33          0 0 0       10                                   SHIFT (AB) BY BITS
1/1/3 0           [11840]   27715  10          0 0 0        0                                   SELECT LITERAL
15/0/3 122        [11841]   27716  36   12    72 0 3        0                                   COLLATE AND ADD
27/0/1 3656       [11842]   27717  71  277    23 0 0        0 gIGNORE, SECTION IS TX AREA       JUMP IF A != 0
6/0/0 5302        [11843]   27718   0    1    10 0 0        0                                   SELECT
5/0/0 5124        [11844]   27719  12          0 0 0     8192                                   SUBTRACT LITERAL
27/0/3 3663       [11845]   27720  73  277    29 0 0        0                                   JUMP IF A < 0
26/0/0 1588       [11846]   27721  80  196     2 0 0        0 gREPORT I                         ENTER SUBROUTINE
24/1/0 3657       [11847]   27722  76  277    24 0 0        0                                   JUMP unconditional
26/0/0 1584       [11848]   27723  80  195     2 0 0        0 gREPORT R                         ENTER SUBROUTINE
26/0/0 4248       [11849]   27724  80  295     2 0 0        0 gIGNORE                           ENTER SUBROUTINE
1/1/3 2           [11850]   27725  83  108     2 0 0        2 IGNORE ANY MORE 'VALTHIS REF FOR  SET SWITCH(ES) AT LITERAL VALUE
2/0/0 8167        [11851]  
24/1/0 3663       [11852]   27726  76  277    29 0 0        0                                   JUMP unconditional
1/1/2 2304        [11853]   27727  12          0 0 0      900                                   SUBTRACT LITERAL
27/0/2 3656       [11854]   27728  72  277    23 0 0        0 gREF>999, IGNORE                  JUMP IF A >= 0
26/0/1 3634       [11855]   27729  82  277     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 278 at location 3664 in chapter 3 [11856]
                  [11856]   27800 PROCR  278                    TABLE SWITCH                      

   Source: RayS/Q1000208
                  [11856]   27801 NOTES      RADIX                                                
6/0/0 5311        [11856]   27802   0    1    19 0 0        0 DISC                              SELECT
27/0/3 3801       [11857]   27803  73  282    18 0 0        0 gREPORT T5                        JUMP IF A < 0
1/1/2 3           [11858]   27804  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/2 3801       [11859]   27805  72  282    18 0 0        0                                   JUMP IF A >= 0
6/0/0 5312        [11860]   27806   0    1    20 0 0        0 FIRST REF                         SELECT
27/0/0 3807       [11861]   27807  70  282    24 0 0        0 gREPORT T1                        JUMP IF A == 0
24/0/1 8166       [11862]   27808  85  278     8 0 0        0                                   SWITCH R
26/0/1 3671       [11863]  
0/0/1 3677        [11864]   27809   C  279     2 0 0        0                                   
0/0/1 3743        [11865]   27810   C  281     2 0 0        0                                   
0/0/1 3685        [11866]   27811   C  279    10 0 0        0 gTYPE 3                           
0/0/1 3764        [11867]   27812   C  281    23 0 0        0 gTYPE 4                           
0/0/1 2810        [11868]   27813   C  247     2 0 0        0                                   

  Start of procedure 279 at location 3677 in chapter 3 [11869]
                  [11869]   27900 PROCR  279                    TYPES 1 AND 3                     
                  [11869]   27901 NOTES      RADIX              EDIT AND UNPACK FIXED             
6/0/0 5304        [11869]   27902        1    12 0 0        0 NO OF CHARS                       SELECT
4/0/0 5306        [11870]   27903   1    1    14 0 0        0 SPACES                            ADD
7/0/0 55          [11871]   27904   4   12     5 0 0        0 TOTAL FOR TABLE                   AUGMENT
6/0/0 5308        [11872]   27905        1    16 0 0        0 SIGN                              SELECT
1/1/2 2           [11873]   27906  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 3685       [11874]   27907  71  279    10 0 0        0 gNOT SEPARATE CHARACTER           JUMP IF A != 0
1/1/3 1           [11875]   27908  10          0 0 0        1                                   SELECT LITERAL
7/0/0 55          [11876]   27909   4   12     5 0 0        0 STEP TOTAL                        AUGMENT
6/0/0 5316        [11877]   27910        1    24 0 0        0 SECOND REF                        SELECT
0/0/2 5318        [11878]   27911  34    1    26 0 0        0 SECON ITEM                        SET (N) IN B
27/1/1 3805       [11879]   27912  75  282    22 0 0        0 gREPORT T3                        JUMP IF AB != 0
6/0/0 5303        [11880]   27913        1    11 0 0        0                                   SELECT
27/0/1 3799       [11881]   27914  71  282    16 0 0        0 g'UNPACK TO BE' IS SET            JUMP IF A != 0
6/0/0 5311        [11882]   27915   0    1    19 0 0        0 DISC                              SELECT
1/1/2 1           [11883]   27916  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3694       [11884]   27917  70  279    19 0 0        0                                   JUMP IF A == 0
6/0/0 5125        [11885]   27918  10          0 0 0       5-                                   SELECT LITERAL
1/1/1 16          [11886]   27919  11          0 0 0       10                                   ADD LITERAL
5/0/0 5304        [11887]   27920   2    1    12 0 0        0 CHARS                             SUBTRACT
5/0/0 5305        [11888]   27921   2    1    13 0 0        0 DISCARDS                          SUBTRACT
27/0/3 3797       [11889]   27922  73  282    14 0 0        0 gINCONSISTENT WITH SOURCE LENGTH  JUMP IF A < 0
4/0/0 5304        [11890]   27923   1    1    12 0 0        0                                   ADD
4/0/0 5305        [11891]   27924   1    1    13 0 0        0                                   ADD
5/0/0 5307        [11892]   27925   2    1    15 0 0        0 ZEROS                             SUBTRACT
27/0/3 3791       [11893]   27926  73  282     8 0 0        0 gMORE ZEROS THAN SOURCE           JUMP IF A < 0
6/0/0 5304        [11894]   27927        1    12 0 0        0 CHARS                             SELECT
5/0/0 5307        [11895]   27928   2    1    15 0 0        0 ZEROS                             SUBTRACT
27/0/3 3791       [11896]   27929  73  282     8 0 0        0 gZEROS>NO CHARS 'T10'             JUMP IF A < 0

  Start of procedure 280 at location 3705 in chapter 3 [11897]
                  [11897]   28000 PROCR  280                                                      
                  [11897]   28001 NOTES      RADIX                                                
6/0/0 5306        [11897]   28002        1    14 0 0        0                                   SELECT
1/1/2 22          [11898]   28003  12          0 0 0       16                                   SUBTRACT LITERAL
27/0/2 3793       [11899]   28004  72  282    10 0 0        0 gTOO MANY SPCES                   JUMP IF A >= 0
6/0/0 5304        [11900]   28005   0    1    12 0 0        0 CHARS                             SELECT
27/0/0 3797       [11901]   28006  70  282    14 0 0        0 gREPORT 'T7'                      JUMP IF A == 0
6/0/0 5311        [11902]   28007   0    1    19 0 0        0 DISC                              SELECT
1/1/2 2           [11903]   28008  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 3715       [11904]   28009  71  280    12 0 0        0 gNOT ALPHA                        JUMP IF A != 0
6/0/0 5307        [11905]   28010   0    1    15 0 0        0 ZEROS                             SELECT
27/0/1 3791       [11906]   28011  71  282     8 0 0        0 gREPORT 'T10'                     JUMP IF A != 0
6/0/0 5309        [11907]   28012        1    17 0 0        0 STERLING INDICATOR                SELECT
27/0/1 3720       [11908]   28013  71  280    17 0 0        0                                   JUMP IF A != 0

   Source: RayS/Q1000209
5/0/0 113         [11909]   28014   2   12    63 0 0        0 STERLING CTR                      SUBTRACT
27/0/0 3727       [11910]   28015  70  280    24 0 0        0                                   JUMP IF A == 0
24/1/0 3741       [11911]   28016  76  280    38 0 0        0 gREPORT 'T12'                     JUMP unconditional
1/1/2 1           [11912]   28017  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 3787       [11913]   28018  71  282     4 0 0        0                                   JUMP IF A != 0
6/0/0 113         [11914]   28019       12    63 0 0        0                                   SELECT
1/1/2 2           [11915]   28020  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/0 3726       [11916]   28021  70  280    23 0 0        0                                   JUMP IF A == 0
1/1/1 3           [11917]   28022  11          0 0 0        3                                   ADD LITERAL
2/0/0 113         [11918]   28023   5   12    63 0 0        0                                   TRANSFER
6/0/0 5310        [11919]   28024        1    18 0 0        0 LAST TABLE ENTRY                  SELECT
3/0/0 56          [11920]   28025   3   12     6 0 0        0 COPY TO WL                        COPY
27/0/0 2810       [11921]   28026  70  247     2 0 0        0                                   JUMP IF A == 0
1/1/2 1           [11922]   28027  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 3785       [11923]   28028  71  282     2 0 0        0 g'T13' IF LTE WRONG               JUMP IF A != 0
6/0/0 55          [11924]   28029       12     5 0 0        0 CHARACTERS EDITED                 SELECT
4/0/0 55          [11925]   28030   1   12     5 0 0        0                                   ADD
18/0/1 9          [11926]   28031  30          0 0 0        9                                   SHIFT (A) BY QUARTETS
27/0/0 3738       [11927]   28032  70  280    35 0 0        0 gMULT OF 5                        JUMP IF A == 0
6/1/0 5254        [11928]   28033  10          0 0 0   727464 SUM'                              SELECT LITERAL
2/1/0 5336        [11929]   28034   5    1    44 1 0        0                                   TRANSFER
2/0/0 55          [11930]   28035   5   12     5 0 0        0 CLEAR STR AT EACH LTE             TRANSFER
5/0/0 113         [11931]   28036   2   12    63 0 0        0 STERLING INDICATORS NOT           SUBTRACT
27/0/0 2810       [11932]   28037  70  247     2 0 0        0 OCCURRED IN 3 CONSECUTIVE LINES   JUMP IF A == 0
7/0/0 113         [11933]   28038   4   12    63 0 0        0 CLEAR COUNTER                     AUGMENT
24/1/0 3787       [11934]   28039  76  282     4 0 0        0 ERROR REPORT T12                  JUMP unconditional

  Start of procedure 281 at location 3743 in chapter 3 [11935]
                  [11935]   28100 PROCR  281                    CHECK TABLES                      
                  [11935]   28101 NOTES      RADIX              TYPES 2 AND 4                     
6/0/0 5316        [11935]   28102        1    24 0 0        0 2ND REF                           SELECT
27/0/0 3764       [11936]   28103  70  281    23 0 0        0 gIS ZERO                          JUMP IF A == 0
18/0/1 4126       [11937]   28104  30          0 0 0       2-                                   SHIFT (A) BY QUARTETS
27/0/1 3754       [11938]   28105  71  281    13 0 0        0 g3 DIG REF                        JUMP IF A != 0
6/0/0 5312        [11939]   28106        1    20 0 0        0                                   SELECT
18/1/1 4126       [11940]   28107  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
27/0/1 3805       [11941]   28108  71  282    22 0 0        0 g3 DIG + 2 DIG 'T3'               JUMP IF A != 0
18/1/1 2          [11942]   28109  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
5/0/0 5316        [11943]   28110   2    1    24 0 0        0 2ND REF                           SUBTRACT
27/0/1 3805       [11944]   28111  71  282    22 0 0        0 g2 DIG REF                        JUMP IF A != 0
24/1/0 3761       [11945]   28112  76  281    20 0 0        0 gCHECK ITEMS                      JUMP unconditional
6/0/0 5312        [11946]   28113        1    20 0 0        0 1ST REF                           SELECT
18/1/1 4126       [11947]   28114  32          0 0 0       2-                                   SHIFT (AB) BY QUARTETS
27/0/0 3805       [11948]   28115  70  282    22 0 0        0 g2 DIG + 3 DIG RED (3 DIG) 'T3'   JUMP IF A == 0
6/0/0 5316        [11949]   28116        1    24 0 0        0 2ND REF                           SELECT
5/0/0 5312        [11950]   28117   2    1    20 0 0        0 1ST REF                           SUBTRACT
27/0/3 3805       [11951]   28118  73  282    22 0 0        0 g2ND REF <1ST REF (3 DIG) 'T3'  JUMP IF A < 0
27/0/1 3764       [11952]   28119  71  281    23 0 0        0                                   JUMP IF A != 0
6/0/0 5318        [11953]   28120        1    26 0 0        0 2ND ITEM                          SELECT
5/0/0 5314        [11954]   28121   2    1    22 0 0        0 FIRST ITEM                        SUBTRACT
27/0/3 3803       [11955]   28122  73  282    20 0 0        0 g2ND <1ST 'T4'                 JUMP IF A < 0
6/0/0 5303        [11956]   28123        1    11 0 0        0 'SINGLE/BE'                       SELECT
27/0/0 3770       [11957]   28124  70  281    29 0 0        0                                   JUMP IF A == 0
1/1/2 1           [11958]   28125  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 3799       [11959]   28126  71  282    16 0 0        0                                   JUMP IF A != 0
6/0/0 5310        [11960]   28127        1    18 0 0        0 LAST TABLE ENTRY'                 SELECT
27/0/0 3785       [11961]   28128  70  282     2 0 0        0                                   JUMP IF A == 0
6/0/0 5304        [11962]   28129        1    12 0 0        0 NO OF CHARS                       SELECT
27/0/1 3797       [11963]   28130  71  282    14 0 0        0                                   JUMP IF A != 0

   Source: RayS/Q1000210
6/0/0 5305        [11964]   28131        1    13 0 0        0 DISCARDS                          SELECT
27/0/1 3795       [11965]   28132  71  282    12 0 0        0                                   JUMP IF A != 0
6/0/0 5306        [11966]   28133        1    14 0 0        0 SPACES                            SELECT
27/0/1 3793       [11967]   28134  71  282    10 0 0        0                                   JUMP IF A != 0
6/0/0 5307        [11968]   28135        1    15 0 0        0 ZEROS                             SELECT
27/0/1 3791       [11969]   28136  71  282     8 0 0        0                                   JUMP IF A != 0
6/0/0 5308        [11970]   28137        1    16 0 0        0 SIGN                              SELECT
27/0/0 3782       [11971]   28138  70  281    41 0 0        0                                   JUMP IF A == 0
1/1/2 2           [11972]   28139  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 3789       [11973]   28140  71  282     6 0 0        0                                   JUMP IF A != 0
6/0/0 5309        [11974]   28141        1    17 0 0        0 STERLING IND                      SELECT
27/0/1 3787       [11975]   28142  71  282     4 0 0        0                                   JUMP IF A != 0
24/1/0 2810       [11976]   28143  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 282 at location 3785 in chapter 3 [11977]
                  [11977]   28200 PROCR  282                    MAKE REPORT 'T*'                  
                  [11977]   28201 NOTES      RADIX                                                
1/1/3 1           [11977]   28202  10          0 0 0        1                                   SELECT LITERAL
2/0/0 53          [11978]   28203   5   12     3 0 0        0                                   TRANSFER
1/1/3 1           [11979]   28204  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11980]   28205   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11981]   28206  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11982]   28207   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11983]   28208  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11984]   28209   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11985]   28210  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11986]   28211   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11987]   28212  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11988]   28213   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11989]   28214  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11990]   28215   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11991]   28216  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11992]   28217   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11993]   28218  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11994]   28219   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11995]   28220  10          0 0 0        1                                   SELECT LITERAL
7/0/0 53          [11996]   28221   4   12     3 0 0        0                                   AUGMENT
1/1/3 2           [11997]   28222  10          0 0 0        2                                   SELECT LITERAL
7/0/0 53          [11998]   28223   4   12     3 0 0        0                                   AUGMENT
1/1/3 1           [11999]   28224  10          0 0 0        1                                   SELECT LITERAL
4/0/0 53          [12000]   28225   1   12     3 0 0        0                                   ADD
2/0/0 138         [12001]   28226   5   12    88 0 0        0                                   TRANSFER
24/0/2 4438       [12002]   28227  52    1    44 0 0        0                                   EDIT
28/1/2 5336       [12003]   28228   C  306     6 0 0        0                                   
6/1/0 5256        [12004]   28229  10          0 0 0   730000                                   SELECT LITERAL
7/1/0 5336        [12005]   28230   4    1    44 1 0        0                                   AUGMENT

   Source: RayS/Q1000211
24/1/0 2810       [12006]   28231  76  247     2 0 0        0                                   JUMP unconditional

  Start of procedure 283 at location 3815 in chapter 3 [12007]
                  [12007]   28300 PROCR  283                    UNPACK PAPER TAPE PART ONE-DIRECTIVES  
                  [12007]   28301 NOTES      RADIX                                                
0/0/0 0           [12007]   28302  81  283     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5258        [12008]   28303  54    1     0 1 0       46                                   BULK CLEAR
28/1/1 5292       [12009]  
6/0/0 88          [12010]   28304       12    38 0 0        0                                   SELECT
27/0/0 3944       [12011]   28305  70  285     2 0 0        0 NOT A DIRECTIVE                   JUMP IF A == 0
24/0/1 6320       [12012]   28306  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3821       [12013]  
0/0/1 3824        [12014] s 28307   C  283     9 0 0        0                                   
0/0/1 3846        [12015] s 28308   C  283    31 0 0        0 CARDS                             
6/0/0 6044        [12016]   28309   0   92    30 0 0        0 AMEND RUN?                        SELECT
27/0/0 3828       [12017]   28310  70  283    13 0 0        0                                   JUMP IF A == 0
24/0/2 4542       [12018]   28311 124  311     2 0 2        0                                   SELECT LITERAL AND DIVISION
24/1/0 3829       [12019]   28312  76  283    14 0 0        0                                   JUMP unconditional
24/0/2 4544       [12020]   28313 124  311     4 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12021]   28314  80  326     2 0 0        0 UNPACK P/T S/DIR                  ENTER SUBROUTINE
6/0/0 6315        [12022]   28315   0   27     5 0 0        0                                   SELECT
1/1/2 2           [12023]   28316  12          0 0 0        2                                   SUBTRACT LITERAL
27/0/1 3843       [12024]   28317  71  283    28 0 0        0 gNOT TABLE                        JUMP IF A != 0
6/0/0 88          [12025]   28318   0   12    38 0 0        0                                   SELECT
27/0/3 3843       [12026]   28319  73  283    28 0 0        0 gNOT 'NOTES' OF TABLE             JUMP IF A < 0
1/1/3 0           [12027]   28320  10          0 0 0        0 S/DIR WAS 'NOTES' OF TABLE        SELECT LITERAL
2/1/0 5300        [12028]   28321   5    1     8 1 0        0 & MUST BE UNPACKED DIFFERENTLY    TRANSFER
6/0/0 6044        [12029]   28322   0   92    30 0 0        0                                   SELECT
27/0/0 3841       [12030]   28323  70  283    26 0 0        0 gINITIAL TRANSLATION              JUMP IF A == 0
24/0/2 4550       [12031]   28324 124  311    10 0 2        0                                   SELECT LITERAL AND DIVISION
24/1/0 3842       [12032]   28325  76  283    27 0 0        0                                   JUMP unconditional
24/0/2 4552       [12033]   28326 124  311    12 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12034]   28327  80  326     2 0 0        0 UNPACK CORRECTLY                  ENTER SUBROUTINE
1/1/3 0           [12035]   28328  10          0 0 0        0                                   SELECT LITERAL
2/1/0 5336        [12036]   28329   5    1    44 1 0        0 CLEAR ERROR WL                    TRANSFER
26/0/1 3815       [12037]   28330  82  283     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/0/2 4544       [12038]   28331  50    9     8 0 0        0 UNPACK S/DIR FROM CARD            UNPACK FIXED FIELD DATA
24/1/2 21    Extra code needed to address transit area no 4, section 9
28/0/2 8          [12040]   28332   C  311     4 0 0        0                                   
24/1/2 21    Extra code needed to address transit area no 4, section 9
24/0/2 18         [12042]   28333  55    9    18 1 0       16                                   BULK COPY
18/1/0 4123       [12043]   28334   C    1    18 1 0        0                                   
1/1/3 16          [12044]  
18/1/1 5          [12045]  
28/1/1 5310       [12046]  
6/1/0 5300        [12047]   28335   0    1     8 1 0        0                                   SELECT
18/0/1 4          [12048]   28336  30          0 0 0        4 LEFT ALIGN SECTION NO             SHIFT (A) BY QUARTETS
2/1/0 5300        [12049]   28337   5    1     8 1 0        0                                   TRANSFER
6/0/0 88          [12050]   28338   0   12    38 0 0        0                                   SELECT
27/0/3 3843       [12051]   28339  73  283    28 0 0        0 NOT 'NOTES'                       JUMP IF A < 0
6/0/0 6315        [12052]   28340       27     5 0 0        0                                   SELECT
1/1/2 1           [12053]   28341  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 3843       [12054]   28342  71  283    28 0 0        0 gNOT 'PROCR';LEAVE SR             JUMP IF A != 0
6/1/0 5310        [12055]   28343   0    1    18 1 0        0 S/DIR WAS ''NOTES'' OF PROCR      SELECT
2/1/0 5300        [12056]   28344   5    1     8 1 0        0 MOVE ''RADIX''                    TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
24/0/2 20         [12058]   28345  55    9    20 1 0       16 COPY WORDS                        BULK COPY
18/1/0 4123       [12059]   28346   C    1    18 1 0        0                                   
1/1/3 16          [12060]  
18/1/1 5          [12061]  
28/1/1 5310       [12062]  
26/0/1 3815       [12063]   28347  82  283     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 284 at location 3872 in chapter 3 [12064]
                  [12064]   28400 PROCR  284                    UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK  
                  [12064]   28401 NOTES      RADIX                                                

   Source: RayS/Q1000212
0/0/0 0           [12064]   28402  81  284     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5260        [12065]   28403  54    1     6 1 0       40                                   BULK CLEAR
28/1/1 5298       [12066]  
6/0/0 6311        [12067]   28404       27     1 0 0        0                                   SELECT
27/0/1 4342       [12068]   28405  71  304     2 0 0        0 gMULTI-RECORD BLOCKS              JUMP IF A != 0
6/0/0 88          [12069]   28406       12    38 0 0        0                                   SELECT
27/0/0 3898       [12070]   28407  70  284    21 0 0        0 gNOT DIRECTIVE                    JUMP IF A == 0
24/0/2 4444       [12071]   28408  50    7     4 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 4          [12073]   28409   C  307     2 0 0        0                                   
6/0/0 136         [12074]   28410       12    86 0 0        0                                   SELECT
27/0/0 3891       [12075]   28411  70  284    18 0 0        0                                   JUMP IF A == 0
6/0/0 6315        [12076]   28412       27     5 0 0        0                                   SELECT
1/1/2 1           [12077]   28413  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 3943       [12078]   28414  70  284    46 0 0        0 g'PROCR'                          JUMP IF A == 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 20          [12080]   28415   0    7    20 1 0        0                                   SELECT
2/1/0 5308        [12081]   28416   5    1    16 1 0        0 COPY TABLE OR CONST TYPE          TRANSFER
24/1/0 3943       [12082]   28417  76  284    46 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 20         [12084]   28418  55    7    20 1 0       30                                   BULK COPY
18/1/0 4123       [12085]   28419   C    1    16 1 0        0                                   
1/1/3 30          [12086]  
18/1/1 5          [12087]  
28/1/1 5308       [12088]  
24/1/0 3942       [12089]   28420  76  284    45 0 0        0                                   JUMP unconditional
24/0/1 6315       [12090]   28421  87   27     5 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3899       [12091]  
0/0/1 3917        [12092] s 28422   C  284    31 0 0        0 g'PROCR'                          
0/0/1 3921        [12093] s 28423   C  284    34 0 0        0 g'TABLE'                          
0/0/1 3925        [12094] s 28424   C  284    37 0 0        0 g'CONST'                          
0/0/1 3904        [12095] s 28425   C  284    26 0 0        0 VALUE'=4                          
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 9          [12097]   28426  55    7     8 2 0       36 R, I+VALUES                       BULK COPY
18/1/0 4123       [12098]   28427   C    1     9 0 0        0                                   
1/1/3 36          [12099]  
18/1/1 5          [12100]  
28/1/0 5301       [12101]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 44         [12103]   28428  55    7    44 2 0        6 ANNOTATION                        BULK COPY
18/1/0 4123       [12104]   28429   C    1    40 2 0        0                                   
1/1/3 6           [12105]  
18/1/1 5          [12106]  
28/1/1 5332       [12107]  
26/0/1 3872       [12108]   28430  82  284     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/0/2 4468       [12109]   28431  50    7     4 0 0        0 INSTRUCTIONS                      UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 4          [12111]   28432   C  308     2 0 0        0                                   
24/1/0 3934       [12112]   28433  76  284    41 0 0        0                                   JUMP unconditional
24/0/2 4488       [12113]   28434  50    7     4 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 17    Extra code needed to address transit area no 2, section 7
28/0/2 4          [12115]   28435   C  309     2 0 0        0 UNPACK TABLE ENTRIES.             
24/1/0 3934       [12116]   28436  76  284    41 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 12         [12118]   28437  55    7    12 1 0       18 CONSTANTS                         BULK COPY
18/1/0 4123       [12119]   28438   C    1     6 1 0        0                                   
1/1/3 18          [12120]  
18/1/1 5          [12121]  
28/1/1 5298       [12122]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 5           [12124]   28439        7     4 2 0        0 AMEND IND                         SELECT
2/1/0 5292        [12125]   28440   5    1     0 1 0        0                                   TRANSFER
6/0/0 136         [12126]   28441       12    86 0 0        0                                   SELECT
27/0/1 3943       [12127]   28442  71  284    46 0 0        0                                   JUMP IF A != 0
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 32         [12129]   28443  55    7    32 1 0       18                                   BULK COPY
18/1/0 4123       [12130]   28444   C    1    28 1 0        0                                   
1/1/3 18          [12131]  
18/1/1 5          [12132]  
28/1/1 5320       [12133]  
2/1/0 5336        [12134]   28445   5    1    44 1 0        0 CLEAR ERROR INDICATOR             TRANSFER
26/0/1 3872       [12135]   28446  82  284     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 285 at location 3944 in chapter 3 [12136]
                  [12136]   28500 PROCR  285                                                      
                  [12136]   28501 NOTES      RADIX                                                
24/0/1 6315       [12136]   28502  87   27     5 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3945       [12137]  
0/0/1 3950        [12138]   28503   C  286     2 0 0        0 g'PROCR'                          
0/0/1 3958        [12139] s 28504   C  286     9 0 0        0 g'TABLE'                          
0/0/1 3964        [12140] s 28505   C  286    14 0 0        0 g'CONST'                          
0/0/1 3843        [12141] s 28506   C  283    28 0 0        0 VALUE' (DUMMY)                    

  Start of procedure 286 at location 3950 in chapter 3 [12142]
                  [12142]   28600 PROCR  286                                                      
                  [12142]   28601 NOTES      RADIX                                                
24/0/2 4556       [12142]   28602 124  312     2 0 2        0                                   SELECT LITERAL AND DIVISION

   Source: RayS/Q1000213
26/0/0 5069       [12143]   28603  80  326     2 0 0        0 gINSTRUCTIONS                     ENTER SUBROUTINE
1/1/3 0           [12144]   28604  10          0 0 0        0                                   SELECT LITERAL
2/1/0 5312        [12145]   28605   5    1    20 1 0        0 CLEAR 'CLEO' WORD                 TRANSFER
24/0/1 6320       [12146]   28606  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3955       [12147]  
0/0/1 3990        [12148] s 28607   C  286    38 0 0        0 P/T INSTRUCTIONS                  
0/0/1 3970        [12149] s 28608   C  286    19 0 0        0 CARD INSTRUCTIONS                 
24/0/2 4574       [12150]   28609 124  313     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12151]   28610  80  326     2 0 0        0 gTABLE ENTRIES                    ENTER SUBROUTINE
24/0/1 6320       [12152]   28611  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3961       [12153]  
0/0/1 3843        [12154] s 28612   C  283    28 0 0        0                                   
0/0/1 3986        [12155] s 28613   C  286    35 0 0        0 TABLE ENTRY FROM CARD             
24/0/2 4604       [12156]   28614 124  314     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12157]   28615  80  326     2 0 0        0 gCONSTANTS                        ENTER SUBROUTINE
24/0/1 6320       [12158]   28616  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 3967       [12159]  
0/0/1 4002        [12160] s 28617   C  286    47 0 0        0 P/T CONST                         
0/0/1 3991        [12161] s 28618   C  286    39 0 0        0 CARD CONST                        
0/0/3 0           [12162]   28619  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/1/0 5300        [12163]   28620        1     8 1 0        0 REF ALPHA E-ALIGNED               SELECT
18/1/1 4124       [12164]   28621  32          0 0 0       4- TEST TOP CHAR                     SHIFT (AB) BY QUARTETS
1/1/2 16          [12165]   28622  12          0 0 0       10                                   SUBTRACT LITERAL
27/0/0 3977       [12166]   28623  70  286    26 0 0        0 g't' FIRST WAY                    JUMP IF A == 0
1/1/2 58          [12167]   28624  12          0 0 0       3t                                   SUBTRACT LITERAL
27/0/1 3978       [12168]   28625  71  286    27 0 0        0 gNOT 't' OTHER WAY                JUMP IF A != 0
6/0/0 5126        [12169]   28626  10          0 0 0     40.6                                   SELECT LITERAL
1/1/1 74          [12170]   28627  11          0 0 0       4t                                   ADD LITERAL
0/0/3 5127        [12171]   28628  60          0 0 0        0                                   SET DECIMAL RADIX
18/1/1 4122       [12172]   28629  32          0 0 0       6- R-ALIGN IN B                      SHIFT (AB) BY QUARTETS
26/0/0 4291       [12173]   28630  80  300     2 0 0        0 LEFT ALIGN                        ENTER SUBROUTINE
2/1/0 5300        [12174]   28631   5    1     8 1 0        0 REF ALPHA E-ALIGNED               TRANSFER
0/1/2 5298        [12175]   28632  34    1     6 1 0        0                                   SET (N) IN B
26/0/0 4291       [12176]   28633  80  300     2 0 0        0 LEFT ALIGN                        ENTER SUBROUTINE
2/1/0 5298        [12177]   28634   5    1     6 1 0        0 ACTION                            TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12179]   28635        9     4 1 0        0 LINE SERIAL                       SELECT
2/1/0 5294        [12180]   28636   5    1     2 1 0        0                                   TRANSFER
26/0/0 4266       [12181]   28637  80  298     2 0 0        0 gUNPACK ANNOTATION                ENTER SUBROUTINE
24/1/0 3843       [12182]   28638  76  283    28 0 0        0                                   JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12184]   28639        9     4 1 0        0 LINE SERIAL                       SELECT
2/1/0 5294        [12185]   28640   5    1     2 1 0        0                                   TRANSFER
26/0/0 4266       [12186]   28641  80  298     2 0 0        0 gUNPACK ANNOTATION                ENTER SUBROUTINE
1/1/3 125         [12187]   28642  10          0 0 0       7:                                   SELECT LITERAL
1/0/1 3           [12188]   28643  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
18/1/1 8          [12189]   28644  32          0 0 0        8                                   SHIFT (AB) BY QUARTETS
24/1/2 21    Extra code needed to address transit area no 4, section 9
14/1/0 18         [12191]   28645  37    9    18 1 0        0 IN 36-TH CHAR POSN                REPLACE SELECTED BITS
24/1/2 21    Extra code needed to address transit area no 4, section 9
14/1/0 6          [12193]   28646  37    9     6 1 0        0 IN 6-TH CHAR POSN                 REPLACE SELECTED BITS
24/0/2 4524       [12194]   28647  50    9     4 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 21    Extra code needed to address transit area no 4, section 9
28/0/2 4          [12196]   28648   C  310     8 0 0        0                                   
24/1/0 3843       [12197]   28649  76  283    28 0 0        0                                   JUMP unconditional

  Start of procedure 287 at location 4006 in chapter 3 [12198]
                  [12198]   28700 PROCR  287                    TEST WORD IN ACCUMULATOR          
                  [12198]   28701 NOTES      RADIX              IS A STACKING DIRECTIVE           
0/0/0 0           [12198]   28702  81  287     2 0 0        0                                   START OF SUBROUTINE
5/1/0 4730        [12199]   28703   2  319     4 1 0        0 'CONST'                           SUBTRACT
27/0/3 4039       [12200]   28704  73  287    35 0 0        0 gNOT DIRECTIVE                    JUMP IF A < 0
27/0/0 4032       [12201]   28705  70  287    28 0 0        0                                   JUMP IF A == 0
4/1/0 4730        [12202]   28706   1  319     4 1 0        0                                   ADD
5/1/0 4738        [12203]   28707   2  319    12 1 0        0 'NOTES'                           SUBTRACT
27/0/1 4018       [12204]   28708  71  287    14 0 0        0                                   JUMP IF A != 0
6/0/0 6315        [12205]   28709       27     5 0 0        0                                   SELECT
1/1/2 3           [12206]   28710  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/0 4039       [12207]   28711  70  287    35 0 0        0 gNOTES FOLLOWING 'CONST'-NOT DIRECTIVE  JUMP IF A == 0

   Source: RayS/Q1000214
1/1/3 16          [12208]   28712  10          0 0 0       10 SET (12/38)>0                     SELECT LITERAL
24/1/0 4037       [12209]   28713  76  287    33 0 0        0                                   JUMP unconditional
4/1/0 4738        [12210]   28714   1  319    12 1 0        0 'NOTES'                           ADD
5/1/0 4732        [12211]   28715   2  319     6 1 0        0 'PROCR'                           SUBTRACT
27/0/0 4034       [12212]   28716  70  287    30 0 0        0 gYES                              JUMP IF A == 0
27/0/3 4039       [12213]   28717  73  287    35 0 0        0 gNOT A DIRECTIVE                  JUMP IF A < 0
4/1/0 4732        [12214]   28718   1  319     6 1 0        0 'PROCR'                           ADD
5/1/0 4728        [12215]   28719   2  319     2 1 0        0 'TABLE'                           SUBTRACT
27/0/0 4033       [12216]   28720  70  287    29 0 0        0 gYES                              JUMP IF A == 0
27/0/3 4039       [12217]   28721  73  287    35 0 0        0 gNOT A DIRECTIVE                  JUMP IF A < 0
4/1/0 4728        [12218]   28722   1  319     2 1 0        0 'TABLE'                           ADD
5/1/0 4754        [12219]   28723   2  319    28 1 0        0 'VALUE'                           SUBTRACT
27/0/1 4039       [12220]   28724  71  287    35 0 0        0 gHENCE NOT A DIRECTIVE            JUMP IF A != 0
6/0/0 83          [12221]   28725       12    33 0 0        0                                   SELECT
27/0/1 4039       [12222]   28726  71  287    35 0 0        0 gPT IN, 'VALUE' ISNT A DIRECTIVE  JUMP IF A != 0
1/1/3 1           [12223]   28727  10          0 0 0        1                                   SELECT LITERAL
1/1/1 1           [12224]   28728  11          0 0 0        1 (CONST)                           ADD LITERAL
1/1/1 1           [12225]   28729  11          0 0 0        1 (TABLE)                           ADD LITERAL
1/1/1 1           [12226]   28730  11          0 0 0        1 (PROCR)                           ADD LITERAL
2/0/0 6315        [12227]   28731   5   27     5 0 0        0                                   TRANSFER
1/1/2 16          [12228]   28732  12          0 0 0       10                                   SUBTRACT LITERAL
2/0/0 88          [12229]   28733   5   12    38 0 0        0 SET<0 IF PROCR/TABLE/CONST/VALUE  TRANSFER
26/0/1 4006       [12230]   28734  82  287     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
1/1/3 0           [12231]   28735  10          0 0 0        0                                   SELECT LITERAL
2/0/0 88          [12232]   28736   5   12    38 0 0        0                                   TRANSFER
26/0/1 4006       [12233]   28737  82  287     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 288 at location 4042 in chapter 3 [12234]
                  [12234]   28800 PROCR  288                    SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL  
                  [12234]   28801 NOTES      RADIX                                                
0/0/0 0           [12234]   28802  81  288     2 0 0        0                                   START OF SUBROUTINE
6/0/0 160         [12235]   28803       12   110 0 0        0                                   SELECT
27/0/0 4051       [12236]   28804  70  288    11 0 0        0                                   JUMP IF A == 0
6/0/0 161         [12237]   28805       12   111 0 0        0 CARD SER ERROR                    SELECT
27/0/0 4050       [12238]   28806  70  288    10 0 0        0 gNO ERROR                         JUMP IF A == 0
24/0/1 4748       [12239]   28807 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [12240]   28808 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5384        [12241]   28809   5   29     0 1 0        0 WRONG SERIAL TO ERROR REPORT WORD  TRANSFER
2/0/0 160         [12242]   28810   5   12   110 0 0        0                                   TRANSFER
26/1/1 5262       [12243]   28811  90          0 0 1       44                                   SET MODIFICATION REGISTER AT LITERAL
                  [12244]   28812   C          0 0 0        2                                   Limit
6/1/1 5382        [12244]   28813       29    2- 1 1        0 LAST WORD                         SELECT
27/0/0 4056       [12245]   28814  70  288    17 0 0        0                                   JUMP IF A == 0
5/1/0 4736        [12246]   28815   2  319    10 1 0        0                                   SUBTRACT
27/0/1 4058       [12247]   28816  71  288    18 0 0        0                                   JUMP IF A != 0
25/0/1 4098       [12248]   28817  94  288    13 0 1       2-                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4052       [12249] s
24/0/3 22         [12250]   28818  96          0 0 1        0 CONTENTS OF MODIFIER              SELECT MODIFIER
6/0/0 2           [12251]  
3/1/0 5385        [12252]   28819   3   29     0 2 0        0 REC LENGTH                        COPY
1/1/3 144         [12253]   28820  10          0 0 0       90 TOTAL ROOM SEC 8                  SELECT LITERAL
5/0/0 4727        [12254]   28821   2  318    12 0 0        0                                   SUBTRACT
5/1/0 5385        [12255]   28822   2   29     0 2 0        0 CURRENT RECORD LENGTH             SUBTRACT
27/0/2 4077       [12256]   28823  72  288    32 0 0        0 g+VE OR ZERO                      JUMP IF A >= 0
6/0/0 4727        [12257]   28824      318    12 0 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
3/1/0 5           [12259]   28825   3    8     4 2 0        0 BLOCK LENGTH                      COPY
26/1/1 4727       [12260]   28826  91  318    12 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
6/1/0 4736        [12261]   28827      319    10 1 0        0 BE WORD                           SELECT

   Source: RayS/Q1000215
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/1 6           [12263]   28828   5    8     6 1 1        0                                   TRANSFER
26/0/0 4108       [12264]   28829  80  290     2 0 0        0 gWRITE                            ENTER SUBROUTINE
6/1/0 5264        [12265]   28830  54    8     4 1 0       46                                   BULK CLEAR
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [12267]  
2/0/0 4727        [12268]   28831   5  318    12 0 0        0                                   TRANSFER
1/1/3 6           [12269]   28832  10          0 0 0        6                                   SELECT LITERAL
2/0/0 52          [12270]   28833   5   12     2 0 0        0                                   TRANSFER
26/1/1 4727       [12271]   28834  91  318    12 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
24/0/2 5384       [12272]   28835  55   29     0 1 0        0 COPY TO SEC 8                     BULK COPY
18/1/0 4123       [12273]   28836   C    8     6 1 1        0                                   
0/1/0 40          [12274]  
0/0/3 0           [12275]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
24/0/2 6          [12277]  
24/0/3 22         [12278]  
4/0/0 2           [12279]  
2/0/0 40          [12280]  
0/1/1 40          [12281]  
6/1/0 5385        [12282]   28837   C   29     0 2 0        0                                   
18/1/1 5          [12283]  
24/1/2 40         [12284]  
28/1/1 0          [12285]  
6/1/0 5385        [12286]   28838       29     0 2 0        0                                   SELECT
7/0/0 4727        [12287]   28839   4  318    12 0 0        0 STEP QTTY IN BLOCK TO DATE        AUGMENT
6/1/0 5266        [12288]   28840  54   29     0 1 0       44 CLEAR SEC 29                      BULK CLEAR
28/1/1 5384       [12289]  
26/0/1 4042       [12290]   28841  82  288     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 289 at location 4099 in chapter 3 [12291]
                  [12291]   28900 PROCR  289                                                      
0/0/0 0           [12291]   28902  81  289     2 0 0        0                                   START OF SUBROUTINE
6/1/0 4736        [12292]   28903   0  319    10 1 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 50          [12294]   28904   5    8    50 1 0        0                                   TRANSFER
26/0/0 4108       [12295]   28905  80  290     2 0 0        0                                   ENTER SUBROUTINE
6/1/0 5268        [12296]   28906  54    8     4 1 0       46                                   BULK CLEAR
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [12298]  
26/0/1 4099       [12299]   28907  82  289     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 290 at location 4108 in chapter 3 [12300]
                  [12300]   29000 PROCR  290                                                      
0/0/0 0           [12300]   29002  81  290     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40          [12301]   29003  43   A2     0 0 0        0                                   OUTPUT
0/0/3 0           [12302]  
0/0/2 18          [12303]   29004   C    8     0 0 0        0                                   OUTPUT
6/1/0 0           [12304]  
1/1/1 36          [12305]  
25/1/1 4096       [12306]  
24/0/3 0          [12307]  
23/0/2 43         [12308]  
0/1/1 40          [12309]  
26/0/1 4108       [12310]   29005  82  290     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 291 at location 4119 in chapter 3 [12311]
                  [12311]   29100 PROCR  291                    READ B/FWD MT FILE                
0/0/0 0           [12311]   29102  81  291     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40          [12312]   29103  42   A1     0 0 0        0                                   INPUT
0/0/3 0           [12313]  
0/0/2 16          [12314]   29104   C    7     0 0 0        0                                   INPUT
6/1/0 0           [12315]  
1/1/1 27          [12316]  
25/1/1 4096       [12317]  
24/0/3 0          [12318]  
23/0/2 42         [12319]  
0/1/1 40          [12320]  
26/0/1 4119       [12321]   29105  82  291     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 292 at location 4130 in chapter 3 [12322]
                  [12322]   29200 PROCR  292                    INPUT OFF PAPER TAPE              
                  [12322]   29201 NOTES      RADIX                                                
0/0/0 0           [12322]   29202  81  292     2 0 0        0                                   START OF SUBROUTINE
26/0/0 4298       [12323]   29203  80  301     2 0 0        0 gREAD A6                          ENTER SUBROUTINE
24/0/1 6320       [12324]   29204  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 4133       [12325]  
0/0/1 4144        [12326] s 29205   C  292    13 0 0        0                                   
0/0/1 4136        [12327] s 29206   C  292     7 0 0        0 CARDS-CHECK CARD SER              
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 35          [12329]   29207        9    34 2 0        0                                   SELECT
5/0/0 161         [12330]   29208   2   12   111 0 0        0 PREVIOUS SER                      SUBTRACT
7/0/0 161         [12331]   29209   4   12   111 0 0        0 STORE THIS SER                    AUGMENT
1/1/2 1           [12332]   29210  12          0 0 0        1                                   SUBTRACT LITERAL
2/0/0 160         [12333]   29211   5   12   110 0 0        0 STORE ANY ERROR                   TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 34          [12335]   29212   5    9    34 1 0        0                                   TRANSFER
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12337]   29213        9     4 1 0        0                                   SELECT
5/1/0 4750        [12338]   29214   2  319    24 1 0        0 'SHEET'                           SUBTRACT
27/0/1 4166       [12339]   29215  71  292    34 0 0        0                                   JUMP IF A != 0
24/0/2 4440       [12340]   29216 124  306     8 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12341]   29217  80  326     2 0 0        0 UNPACK                            ENTER SUBROUTINE
0/1/2 138         [12342]   29218  34   12    88 1 0        0 SHEET NO                          SET (N) IN B
26/0/0 4826       [12343]   29219  80  321     2 0 0        0                                   ENTER SUBROUTINE
6/1/0 139         [12344]   29220   0   12    88 2 0        0                                   SELECT
5/0/0 142         [12345]   29221   2   12    92 0 0        0 PREVIOUS SER                      SUBTRACT
7/0/0 142         [12346]   29222   4   12    92 0 0        0 REPLACE BY CURRENT                AUGMENT
1/1/2 1           [12347]   29223  12          0 0 0        1 CHECK SEQUENCE                    SUBTRACT LITERAL

   Source: RayS/Q1000216
27/0/0 4131       [12348]   29224  70  292     3 0 0        0 gCORRECT                          JUMP IF A == 0
6/1/0 4750        [12349]   29225   0  319    24 1 0        0 'SHEET''                          SELECT
24/0/1 4748       [12350]   29226 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [12351]   29227 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5398        [12352]   29228   5   29    14 1 0        0                                   TRANSFER
6/1/0 138         [12353]   29229   0   12    88 1 0        0 WRONG NUMBER                      SELECT
24/0/1 4748       [12354]   29230 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4428       [12355]   29231 124  305    10 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5384        [12356]   29232   5   29     0 1 0        0                                   TRANSFER
24/1/0 4131       [12357]   29233  76  292     3 0 0        0                                   JUMP unconditional
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12359]   29234        9     4 1 0        0                                   SELECT
5/1/0 4772        [12360]   29235   2  319    46 1 0        0 'TRAMD'                           SUBTRACT
27/0/0 4184       [12361]   29236  70  292    49 0 0        0 gDON'T INSERT BE                  JUMP IF A == 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
0/1/2 49          [12363]   29237  34    9    48 2 0        0                                   SET (N) IN B
1/1/3 0           [12364]   29238  10          0 0 0        0                                   SELECT LITERAL
18/1/1 7          [12365]   29239  32          0 0 0        7                                   SHIFT (AB) BY QUARTETS
2/1/0 4818        [12366]   29240   5  320    42 1 0        0 WORD CTR                          TRANSFER
26/1/1 4818       [12367]   29241  91  320    42 0 1        0                                   SET MODIFICATION REGISTER AT VARIABLE
18/1/1 3          [12368]   29242  32          0 0 0        3                                   SHIFT (AB) BY QUARTETS
2/0/0 4042        [12369]   29243   5  288     2 0 0        0 COL POSN+WL                       TRANSFER
1/0/1 3           [12370]   29244  35          0 0 0       11                                   PREPARE FOR DIGIT COLLATION
1/1/3 126         [12371]   29245  10          0 0 0       7.                                   SELECT LITERAL
24/0/1 4042       [12372]   29246 124  288     2 0 1        0                                   MODIFY ADDRESS OF NEXT
18/1/1 0          [12373]   29247  32          0 0 0        0 /////                             SHIFT (AB) BY QUARTETS
24/1/2 21    Extra code needed to address transit area no 4, section 9
14/1/1 0          [12375]   29248  37    9     0 1 1        0                                   REPLACE SELECTED BITS
26/0/1 4130       [12376]   29249  82  292     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 293 at location 4185 in chapter 3 [12377]
                  [12377]   29300 PROCR  293                    TEST AMENDMENT IS A STACKING DIRECTIVE  
                  [12377]   29301 NOTES      RADIX                                                
0/0/0 0           [12377]   29302  81  293     2 0 0        0                                   START OF SUBROUTINE
6/1/0 5270        [12378]   29303  54    1     0 1 0        8                                   BULK CLEAR
28/1/1 5292       [12379]  
24/0/1 6320       [12380]   29304  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 4189       [12381]  
0/0/1 4199        [12382] s 29305   C  293    13 0 0        0                                   
0/0/1 4192        [12383] s 29306   C  293     7 0 0        0 CARDS                             
24/0/2 4544       [12384]   29307  50    9     8 0 0        0                                   UNPACK FIXED FIELD DATA
24/1/2 21    Extra code needed to address transit area no 4, section 9
28/0/2 8          [12386]   29308   C  311     4 0 0        0                                   
6/1/0 5300        [12387]   29309   0    1     8 1 0        0                                   SELECT
18/0/1 4          [12388]   29310  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
2/1/0 5300        [12389]   29311   5    1     8 1 0        0 L-ALIGN PROCR NUMBER              TRANSFER
24/1/0 4201       [12390]   29312  76  293    15 0 0        0                                   JUMP unconditional
24/0/2 4542       [12391]   29313 124  311     2 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12392]   29314  80  326     2 0 0        0                                   ENTER SUBROUTINE
6/1/0 5298        [12393]   29315        1     6 1 0        0                                   SELECT
26/0/0 4006       [12394]   29316  80  287     2 0 0        0 gTEST DIRECTIVE                   ENTER SUBROUTINE
26/0/1 4185       [12395]   29317  82  293     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 294 at location 4204 in chapter 3 [12396]
                  [12396]   29400 PROCR  294                    TEST FOR MOD END SIGN             
                  [12396]   29401 NOTES      RADIX              OR DIRECTIVE                      
0/0/0 0           [12396]   29402  81  294     4 0 0        0                                   START OF SUBROUTINE
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12398]   29403        9     4 1 0        0                                   SELECT
18/0/1 4124       [12399]   29404  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4          [12400]   29405  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 4740        [12401]   29406   2  319    14 1 0        0 'END  '                           SUBTRACT
27/0/0 4215       [12402]   29407  70  294    11 0 0        0                                   JUMP IF A == 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [12404]   29408        9     4 1 0        0                                   SELECT
5/1/0 4772        [12405]   29409   2  319    46 1 0        0 'TRAMD'                           SUBTRACT
27/0/1 4217       [12406]   29410  71  294    13 0 0        0                                   JUMP IF A != 0
6/1/0 5272        [12407]   29411  10          0 0 0   100000                                   SELECT LITERAL
24/1/0 4244       [12408]   29412  76  294    39 0 0        0                                   JUMP unconditional
1/1/3 0           [12409]   29413  10          0 0 0        0 CLEAR LOCATION TO WHICH           SELECT LITERAL

   Source: ChuckK/Q1000217
2/1/0 5296        [12410]   29414   5    1     4 1 0        0 AMENDMENT DIRECTIVE IS UNPACKED   TRANSFER
24/0/2 4550       [12411]   29415 124  311    10 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 5069       [12412]   29416  80  326     2 0 0        0 >UNPACK AMEND LETTER              ENTER SUBROUTINE
24/0/1 6320       [12413]   29417  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 4222       [12414]  
0/0/1 4227        [12415] s 29418   C  294    22 0 0        0 P/T                               
0/0/1 4225        [12416] s 29419   C  294    20 0 0        0 CARDS                             
0/1/2 5298        [12417]   29420  34    1     6 1 0        0                                   SET (N) IN B
24/1/0 4228       [12418]   29421  76  294    23 0 0        0                                   JUMP unconditional
0/1/2 5296        [12419]   29422  34    1     4 1 0        0                                   SET (N) IN B
1/1/3 0           [12420]   29423  10          0 0 0        0                                   SELECT LITERAL
18/1/1 2          [12421]   29424  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
1/1/2 105         [12422]   29425  12          0 0 0       69                                   SUBTRACT LITERAL
27/0/0 4241       [12423]   29426  70  294    36 0 0        0                                   JUMP IF A == 0
1/1/1 21          [12424]   29427  11          0 0 0       15                                   ADD LITERAL
27/0/0 4240       [12425]   29428  70  294    35 0 0        0                                   JUMP IF A == 0
1/1/2 25          [12426]   29429  12          0 0 0       19                                   SUBTRACT LITERAL
27/0/0 4239       [12427]   29430  70  294    34 0 0        0                                   JUMP IF A == 0
1/1/1 34          [12428]   29431  11          0 0 0       22                                   ADD LITERAL
27/0/1 4246       [12429]   29432  71  294    41 0 0        0                                   JUMP IF A != 0
1/1/3 1           [12430]   29433  10          0 0 0        1                                   SELECT LITERAL
1/1/1 1           [12431]   29434  11          0 0 0        1                                   ADD LITERAL
1/1/1 1           [12432]   29435  11          0 0 0        1                                   ADD LITERAL
1/1/1 1           [12433]   29436  11          0 0 0        1                                   ADD LITERAL
2/0/0 8170        [12434]   29437  84  252     2 0 0        0                                   SET SWITCH(ES) AT VARIABLE VALUE
1/1/3 1           [12435]   29438  10          0 0 0        1                                   SELECT LITERAL
3/1/0 94          [12436]   29439   3   12    44 1 0        0                                   COPY
26/0/1 4204       [12437]   29440  82  294     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
1/1/3 0           [12438]   29441  10          0 0 0        0                                   SELECT LITERAL
24/1/0 4244       [12439]   29442  76  294    39 0 0        0                                   JUMP unconditional

  Start of procedure 295 at location 4248 in chapter 3 [12440]
                  [12440]   29500 PROCR  295                    IGNORE THIS INSTRUCTION           
                  [12440]   29501 NOTES      RADIX                                                
0/0/0 0           [12440]   29502  81  295     2 0 0        0                                   START OF SUBROUTINE
6/1/0 4752        [12441]   29503      319    26 1 0        0 IGNORE INDICATOR                  SELECT
2/1/0 5334        [12442]   29504   5    1    42 1 0        0                                   TRANSFER
26/0/1 4248       [12443]   29505  82  295     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 296 at location 4252 in chapter 3 [12444]
                  [12444]   29600 PROCR  296                    IGNORE PREVIOUS INSTRUCTION       
                  [12444]   29601 NOTES      RADIX                                                
0/0/0 0           [12444]   29602  81  296     2 0 0        0                                   START OF SUBROUTINE
6/1/0 4752        [12445]   29603      319    26 1 0        0                                   SELECT
24/0/1 4748       [12446]   29604 124  319    22 0 1        0                                   MODIFY ADDRESS OF NEXT
24/0/1 4420       [12447]   29605 124  305     2 0 1        0                                   MODIFY ADDRESS OF NEXT
2/1/0 5398        [12448]   29606   5   29    14 1 0        0                                   TRANSFER
26/0/1 4252       [12449]   29607  82  296     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 297 at location 4258 in chapter 3 [12450]
                  [12450]   29700 PROCR  297                    gANNOTATION IF CARD               
                  [12450]   29701 NOTES      RADIX                                                
0/0/0 0           [12450]   29702  81  297     2 0 0        0                                   START OF SUBROUTINE
1/1/3 15          [12451]   29703  10          0 0 0        p                                   SELECT LITERAL
24/0/1 6320       [12452]   29704  87   27    10 0 0        0                                   SWITCH ACCORDING TO N
26/0/1 4261       [12453]  
0/0/1 4265        [12454] s 29705   C  297     8 0 0        0 P/T                               
0/0/1 4264        [12455] s 29706   C  297     7 0 0        0 CARDS                             
26/0/0 4266       [12456]   29707  80  298     2 0 0        0 BULK COPY WORDS-THUS SETTING (A)=0 ENTER SUBROUTINE
26/0/1 4258       [12457]   29708  82  297     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 298 at location 4266 in chapter 3 [12458]
                  [12458]   29800 PROCR  298                    BULK COPY ANNOTATION              
                  [12458]   29801 NOTES      RADIX                                                
0/0/0 0           [12458]   29802  81  298     2 0 0        0                                   START OF SUBROUTINE

   Source: ChuckK/Q1000218
24/1/2 21    Extra code needed to address transit area no 4, section 9
24/0/2 18         [12460]   29803  55    9    18 1 0       16                                   BULK COPY
18/1/0 4123       [12461]   29804   C    1    28 1 0        0                                   
1/1/3 16          [12462]  
18/1/1 5          [12463]  
28/1/1 5320       [12464]  
26/0/1 4266       [12465]   29805  82  298     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 299 at location 4274 in chapter 3 [12466]
                  [12466]   29900 PROCR  299                    TEST END SIGN ON MAG TAPE         
                  [12466]   29901 NOTES      RADIX                                                
0/0/0 0           [12466]   29902  81  299     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6311        [12467]   29903       27     1 0 0        0                                   SELECT
27/0/0 4280       [12468]   29904  70  299     7 0 0        0 >1 RECORD PER BLOCK               JUMP IF A == 0
24/0/3 8178       [12469]   29905              6 1 8        0                                   SELECT
6/1/0 6           [12470]  
24/1/0 4282       [12471]   29906  76  299     8 0 0        0                                   JUMP unconditional
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 10          [12473]   29907   0    7    10 1 0        0                                   SELECT
5/1/0 4740        [12474]   29908   2  319    14 1 0        0                                   SUBTRACT
27/0/0 4835       [12475]   29909  70  322     2 0 0        0                                   JUMP IF A == 0
4/1/0 4740        [12476]   29910   1  319    14 1 0        0                                   ADD
5/1/0 4742        [12477]   29911   2  319    16 1 0        0  'DUMPS'                          SUBTRACT
27/0/0 4835       [12478]   29912  70  322     2 0 0        0                                   JUMP IF A == 0
4/1/0 4742        [12479]   29913   1  319    16 1 0        0                                   ADD
5/1/0 4744        [12480]   29914   2  319    18 1 0        0  'FILES'                          SUBTRACT
27/0/0 4835       [12481]   29915  70  322     2 0 0        0                                   JUMP IF A == 0
26/0/1 4274       [12482]   29916  82  299     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 300 at location 4291 in chapter 3 [12483]
                  [12483]   30000 PROCR  300                    LEFT ALIGN SUBROUTINE             
                  [12483]   30001 NOTES      RADIX            D                                   
0/0/0 0           [12483]   30002  81  300     2 0 0        0 DATA IN B                         START OF SUBROUTINE
1/1/3 0           [12484]   30003  10          0 0 0        0                                   SELECT LITERAL
27/1/0 4297       [12485]   30004  74  300     8 0 0        0 ZERO NUMBER?                      JUMP IF AB == 0        // 27, 1, 0
18/1/1 2          [12486]   30005  32          0 0 0        2                                   SHIFT (AB) BY QUARTETS
27/0/0 4294       [12487]   30006  70  300     5 0 0        0                                   JUMP IF A == 0
18/1/1 8          [12488]   30007  32          0 0 0        8 LEFT ALIGN IN A                   SHIFT (AB) BY QUARTETS
26/0/1 4291       [12489]   30008  82  300     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 301 at location 4298 in chapter 3 [12490]
                  [12490]   30100 PROCR  301                                                      
0/0/0 0           [12490]   30102  81  301     2 0 0        0                                   START OF SUBROUTINE
0/1/0 40          [12491]   30103  42   A6     0 0 0        0                                   INPUT
0/0/3 0           [12492]  
0/0/2 20          [12493]   30104   C    9     0 0 0        0                                   INPUT
6/1/0 0           [12494]  
1/1/1 45          [12495]  
25/1/1 4096       [12496]  
24/0/3 0          [12497]  
23/0/2 42         [12498]  
0/1/1 40          [12499]  
26/0/1 4298       [12500]   30105  82  301     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 302 at location 4309 in chapter 3 [12501]
                  [12501]   30200 PROCR  302                    STEP MR.TEST END OF BLOCK         
0/0/0 0           [12501]   30202  81  302     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6311        [12502]   30203       27     1 0 0        0                                   SELECT
27/0/0 4330       [12503]   30204  70  302    13 0 0        0 >1 RECORD PER BLOCK               JUMP IF A == 0
24/0/3 8178       [12504]   30205              0 2 8        0 CURRENT RECORD LENGTH             SELECT
6/1/0 1           [12505]  
2/0/0 4119        [12506]   30206   5  291     2 0 0        0 WL                                TRANSFER
24/0/1 4119       [12507]   30207  97  291     2 0 8        0                                   STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
23/0/0 0          [12508]   30208   C  302    12 0 0        0 >BLOCK NOT EMPTY                  STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
0/0/1 8178        [12509]  
24/1/0 4329       [12510] s
26/0/0 4119       [12511]   30209  80  291     2 0 0        0 >READ A1                          ENTER SUBROUTINE
0/1/0 40          [12512]   30210  59    7     6 0 8        0                                   SET MODIFICATION REGISTER FOR MERGE
0/0/3 0           [12513]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
24/0/2 6          [12515]  
3/0/0 8178        [12516]  
24/1/2 17    Extra code needed to address transit area no 2, section 7
4/1/0 5           [12518]   30211   C    7     4 2 0        0                                   SET MODIFICATION REGISTER FOR MERGE
2/0/0 8179        [12519]  
0/1/1 40          [12520]  
26/0/1 4309       [12521]   30212  82  302     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
26/0/0 4119       [12522]   30213  80  291     2 0 0        0 >READ A1                          ENTER SUBROUTINE
26/0/1 4309       [12523]   30214  82  302     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 303 at location 4332 in chapter 3 [12524]
                  [12524]   30300 PROCR  303                    TEST MT=STACK DIRECTIVE           
0/0/0 0           [12524]   30302  81  303     2 0 0        0                                   START OF SUBROUTINE
6/0/0 6311        [12525]   30303       27     1 0 0        0                                   SELECT
27/0/0 4339       [12526]   30304  70  303     8 0 0        0                                   JUMP IF A == 0
24/0/3 8178       [12527]   30305              6 1 8        0                                   SELECT
6/1/0 6           [12528]  
26/0/0 4006       [12529]   30306  80  287     2 0 0        0                                   ENTER SUBROUTINE
26/0/1 4332       [12530]   30307  82  303     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE

   Source: ChuckK/Q1000219
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 10          [12532]   30308        7    10 1 0        0                                   SELECT
24/1/0 4337       [12533]   30309  76  303     6 0 0        0                                   JUMP unconditional

  Start of procedure 304 at location 4342 in chapter 3 [12534]
                  [12534]   30400 PROCR  304                    UNPACK MT-MULTIRECORD BLOCKS      
0/0/3 0           [12534]   30402  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/1/0 5274        [12535]   30403  54   28     0 1 0       46                                   BULK CLEAR
28/1/1 5338       [12536]  
6/0/0 88          [12537]   30404       12    38 0 0        0                                   SELECT
27/0/0 4382       [12538]   30405  70  304    37 0 0        0 >NOT DIRECTIVE                    JUMP IF A == 0
24/0/3 8178       [12539]   30406              0 2 8        0                                   SELECT
6/1/0 1           [12540]  
18/0/1 5          [12541]   30407  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 8178        [12542]   30408  98          0 0 8        0                                   ADD MODIFICATION REGISTER TO A
28/1/1 5338       [12543]   30409 128   28     0 1 1        0 COPY DIRECTIVE+LENGTH WORD        BULK COPY LONG NUMERIC
24/0/2 4458       [12544]   30410  50   28     2 0 0        0 UNPACK                            UNPACK FIXED FIELD DATA
28/0/2 5340       [12545]   30411   C  307    16 0 0        0                                   
6/0/0 6315        [12546]   30412       27     5 0 0        0                                   SELECT
1/1/2 1           [12547]   30413  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 4361       [12548]   30414  71  304    19 0 0        0 >NOT'PROCR'                       JUMP IF A != 0
6/0/0 88          [12549]   30415       12    38 0 0        0                                   SELECT
27/0/3 4361       [12550]   30416  73  304    19 0 0        0 >NOT NOTES OF PROCR               JUMP IF A < 0
6/1/0 5350        [12551]   30417       28    12 1 0        0                                   SELECT
2/1/0 5300        [12552]   30418   5    1     8 1 0        0 COPY 'RADIX'                      TRANSFER
6/0/0 136         [12553]   30419       12    86 0 0        0                                   SELECT
27/0/0 4376       [12554]   30420  70  304    34 0 0        0 >NOT 'REPLACE ANNOTATION'         JUMP IF A == 0
6/0/0 6315        [12555]   30421       27     5 0 0        0                                   SELECT
1/1/2 1           [12556]   30422  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/0 4371       [12557]   30423  70  304    29 0 0        0 >PROCR,TEST NOTES                 JUMP IF A == 0
1/1/2 1           [12558]   30424  12          0 0 0        1                                   SUBTRACT LITERAL
27/0/1 4373       [12559]   30425  71  304    31 0 0        0 >CONST                            JUMP IF A != 0
6/0/0 88          [12560]   30426       12    38 0 0        0                                   SELECT
27/0/2 4398       [12561]   30427  72  304    52 0 0        0 >NOTES OF TABLE                   JUMP IF A >= 0
24/1/0 4373       [12562]   30428  76  304    31 0 0        0 >NOT TABLE NOTES                  JUMP unconditional
6/0/0 88          [12563]   30429       12    38 0 0        0                                   SELECT
27/0/3 4398       [12564]   30430  73  304    52 0 0        0 >NOT NOTES OF PROCR               JUMP IF A < 0
6/1/0 5352        [12565]   30431       28    14 1 0        0                                   SELECT
2/1/0 5308        [12566]   30432   5    1    16 1 0        0 CONST/TABLE TYPE OR RADIX LETTER  TRANSFER
24/1/0 4398       [12567]   30433  76  304    52 0 0        0                                   JUMP unconditional
24/0/2 5352       [12568]   30434  55   28    14 1 0       26 ANNOTATION ETC EVEN IF ABSENT     BULK COPY
18/1/0 4123       [12569]   30435   C    1    16 1 0        0                                   
1/1/3 26          [12570]  
18/1/1 5          [12571]  
28/1/1 5308       [12572]  
24/1/0 4398       [12573]   30436  76  304    52 0 0        0                                   JUMP unconditional
6/0/0 6315        [12574]   30437       27     5 0 0        0                                   SELECT
1/1/2 4           [12575]   30438  12          0 0 0        4                                   SUBTRACT LITERAL
27/0/0 4412       [12576]   30439  70  304    66 0 0        0 >VALUES                           JUMP IF A == 0
24/0/3 8178       [12577]   30440              0 2 8        0                                   SELECT
6/1/0 1           [12578]  
3/0/0 4818        [12579]   30441   3  320    42 0 0        0 LENGTH                            COPY
24/0/1 6315       [12580]   30442 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
5/0/0 4420        [12581]   30443   2  305     2 0 0        0 (MAX DATA LENGTH*2)               SUBTRACT
27/0/2 4400       [12582]   30444  72  304    54 0 0        0 >RECORD HAS ANNOTATION            JUMP IF A >= 0
6/0/0 4818        [12583]   30445      320    42 0 0        0                                   SELECT
18/0/1 5          [12584]   30446  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 8178        [12585]   30447  98          0 0 8        0 DATA START                        ADD MODIFICATION REGISTER TO A
28/1/1 5338       [12586]   30448 128   28     0 1 1        0 COPY RECORD                       BULK COPY LONG NUMERIC
24/0/1 6315       [12587]   30449 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 4424        [12588]   30450      305     6 0 0        0                                   SELECT
28/0/2 5340       [12589]   30451 128   28     2 0 2        0 UNPACK-SEC1                       UNPACK FIXED FIELD DATA

   Source: RayS/Q1000220
0/0/3 5128        [12590]   30452  60          0 0 0        0                                   SET DECIMAL RADIX
26/0/1 3872       [12591]   30453  82  284     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
2/0/0 4819        [12592]   30454   5  320    43 0 0        0 ANNOTATION LENGTH ANNOTATED DATA  TRANSFER
6/0/0 136         [12593]   30455       12    86 0 0        0                                   SELECT
27/0/1 4409       [12594]   30456  71  304    63 0 0        0 gJUST HERE TO UNPACK NUMBERS      JUMP IF A != 0
6/0/0 4819        [12595]   30457      320    43 0 0        0                                   SELECT
18/0/1 5          [12596]   30458  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 8178        [12597]   30459  98          0 0 8        0                                   ADD MODIFICATION REGISTER TO A
24/0/1 6315       [12598]   30460 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
4/0/0 4420        [12599]   30461   1  305     2 0 0        0 DATA LENGTH+2                     ADD
28/1/1 5320       [12600]   30462 128    1    28 1 1        0 COPY ANNOTATION                   BULK COPY LONG NUMERIC
24/0/1 6315       [12601]   30463 124   27     5 0 1        0                                   MODIFY ADDRESS OF NEXT
6/0/0 4420        [12602]   30464      305     2 0 0        0                                   SELECT
24/1/0 4392       [12603]   30465  76  304    46 0 0        0 gUNPACK NUMBERS                   JUMP unconditional
24/0/3 8178       [12604]   30466              0 2 8        0 LENGTH VALUES                     SELECT
6/1/0 1           [12605]  
1/1/2 6           [12606]   30467  12          0 0 0        6                                   SUBTRACT LITERAL
18/0/1 5          [12607]   30468  30          0 0 0        5                                   SHIFT (A) BY QUARTETS
4/0/0 8178        [12608]   30469  98          0 0 8        0 START                             ADD MODIFICATION REGISTER TO A
1/1/1 7           [12609]   30470  11          0 0 0        7                                   ADD LITERAL
28/1/0 5301       [12610]   30471 128    1     9 1 0        0 ALPHA+NUM                         BULK COPY ALPHA TO SHORT
24/1/0 4398       [12611]   30472  76  304    52 0 0        0 gEXIT                             JUMP unconditional

  Start of procedure 305 at location 4420 in chapter 3 [12612]
                  [12612]   30500 CONST  305       0            FOR UNPACKING MULTIRECORD MT      
0/0/0 24          [12612]   30502 (B)24;                DIRECTIVES-ANNOTATION             +00018
0/0/0 24          [12613]   30503 24;                   ORDER LENGTH+2                    +00018
0/0/0 24          [12614]   30504 24;                   TABLE                             +00018
0/0/0 28          [12615]   30505 28;                   CONSTANT                          +0001C
0/0/0 28          [12616]   30506 28;                   VALUES                            +0001C
0/0/1 4468        [12617]   30507 (R)308:0;             UNPACK ORDERS                     +03174
0/0/1 4488        [12618]   30508 309:0;                UNPACK TABLES                     +03188
0/0/1 4518        [12619]   30509 310:0;                UNPACK CONSTANTS                  +031A6
0/0/0 12          [12620]   30510 (B)12;                DIRECTIVES-PASS 1 REPORTS         +0000C
0/0/0 22          [12621]   30511 22;                   ORDERS                            +00016
0/0/0 22          [12622]   30512 22;                   TABLE                             +00016
0/0/0 26          [12623]   30513 26;                   CONSTANT                          +0001A
0/0/0 42          [12624]   30514 42;                   VALUES                            +0002A
31/1/3 8191       [12625]  

  Start of procedure 306 at location 4434 in chapter 3 [12626]
                  [12626]   30600 TABLE  306   306 1            'INDEX' LINE                      
0/0/1 54          [12626]   30602   12  4    0  0 0 0  3  2  0  2 0 0 0  TO REPLACE CODERS REF
0/0/1 515         [12627]  
0/0/1 6022        [12628]   30604   92  8    0  0 0 0  2  0  0  2 0 0 1  
16/0/1 2          [12629]  
0/0/1 138         [12630]   30606   12 88    0  0 0 0  5  0  0  5 0 0 1  
16/0/2 4101       [12631]  
0/0/1 138         [12632]   30608   12 88    0  0 2 0  5  0  0  0 0 0 0  'SHEET '
3/0/0 5           [12633]  
0/0/1 138         [12634]   30610   12 88    0  0 2 0  5  0  0  0 0 0 1  SHEET NUMBER
19/0/0 5          [12635]  

  Start of procedure 307 at location 4444 in chapter 3 [12636]
                  [12636]   30700 TABLE  307   307 1            EDIT STACKING DIRECTIVE           
0/0/1 5292        [12636]   30702    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101        [12637]  
0/0/1 5294        [12638]   30704    1  2    0  0 2 0  5  0  0  0 0 0 0  'PROCR'/TABLE/CONST' ETC
3/0/0 5           [12639]  
0/0/1 6049        [12640]   30706   92 35    0  0 0 0  5  0  0  5 0 0 0  
0/0/2 4101        [12641]  
0/0/1 5298        [12642]   30708    1  6    0  0 2 0  5  0  0  0 0 0 0  TYPE
3/0/0 5           [12643]  
0/0/1 6048        [12644]   30710   92 34    0  0 1 0 10  0  0 10 0 0 0  
2/1/1 10          [12645]  
0/0/1 5300        [12646]   30712    1  8    0  0 2 0  5  0  0  0 0 0 0  NEW PROCR NUMBER
3/0/0 5           [12647]  
0/0/1 5306        [12648]   30714    1 14    0  0 0 0  5  0  0  4 0 0 1  PREVIOUS PROCR NUMBER
16/0/2 5          [12649]  
0/0/1 5292        [12650]   30716    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND-----MULTIREC BLOX
0/0/2 4101        [12651]  
0/0/1 5294        [12652]   30718    1  2    0  0 2 0  5  0  0  0 0 0 0  LINE SERIAL
3/0/0 5           [12653]  
0/0/1 5298        [12654]   30720    1  6    0  0 2 0  5  0  0  0 0 0 0  'PROCR' ETC
3/0/0 5           [12655]  
0/0/1 5300        [12656]   30722    1  8    0  0 2 0  5  0  0  0 0 0 0  CURRENT PROCR
3/0/0 5           [12657]  
0/0/1 5306        [12658]   30724    1 14    0  0 0 0  5  0  0  5 0 0 1  PREVIOUS PROCR
16/0/2 4101       [12659]  

   Source: RayS/Q1000221

  Start of procedure 308 at location 4468 in chapter 3 [12660]
                  [12660]   30800 TABLE  308   308 3            EDIT INSTRUCTIONS                 
0/0/1 5292        [12660]   30802    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101        [12661]  
0/0/1 5294        [12662]   30804    1  2    0  0 2 0  5  0  0  0 0 0 0  LINE SERIAL
3/0/0 5           [12663]  
0/0/1 5298        [12664]   30806    1  6    0  0 2 0  5  0  0  0 0 0 0  ACTION
3/0/0 5           [12665]  
0/0/1 5300        [12666]   30808    1  8    0  0 2 0  5  0  0  0 0 0 0  REF
3/0/0 5           [12667]  
0/0/1 5302        [12668]   30810    1 10    0  0 1 0  5  5  0  5 1 0 0  ITEM +/-
14/0/2 5381       [12669]  
0/0/1 5304        [12670]   30812    1 12    0  0 0 0  2  3  0  2 0 0 0  DISC
0/0/1 770         [12671]  
0/0/1 5306        [12672]   30814    1 14    0  0 0 0  3  2  0  3 0 0 0  MODIFIER
0/0/1 4611        [12673]  
0/0/1 5308        [12674]   30816    1 16    0  0 1 0 10  0  0 10 1 0 0  LITERAL +/-
14/1/1 10         [12675]  
0/0/1 5312        [12676]   30818    1 20    0  0 2 0  5  0  0  0 0 0 0  'CLEO' PARA WORD
3/0/0 5           [12677]  
0/0/1 5314        [12678]   30820    1 22    0  0 0 0  5  0  0  5 0 0 1  PREVIOUS PROCR NO
16/0/2 4101       [12679]  

  Start of procedure 309 at location 4488 in chapter 3 [12680]
                  [12680]   30900 TABLE  309   309 1            EDIT TABLE ENTRIES                
0/0/1 5292        [12680]   30902    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101        [12681]  
0/0/1 5294        [12682]   30904    1  2    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12683]  
0/0/1 5312        [12684]   30906    1 20    0  0 0 0  5  0  0  5 0 0 0  FIRST REF
0/0/2 4101        [12685]  
0/0/1 5314        [12686]   30908    1 22    0  0 0 0  5  0  0  5 0 0 0  FIRST ITEM
0/0/2 4101        [12687]  
0/0/1 5316        [12688]   30910    1 24    0  0 0 0  5  0  0  5 0 0 0  SECOND REF
0/0/2 4101        [12689]  
0/0/1 5318        [12690]   30912    1 26    0  0 0 0  5  0  0  5 0 0 0  SECOND ITEM
0/0/2 4101        [12691]  
0/0/1 5311        [12692]   30914    1 19    0  0 0 0  2  3  0  2 0 0 0  DISC
0/0/1 770         [12693]  
0/0/1 5303        [12694]   30916    1 11    0  0 0 0  3  2  0  3 0 0 0  SINGLE/TO BE
0/0/1 4611        [12695]  
0/0/1 5304        [12696]   30918    1 12    0  0 0 0  2  3  0  2 0 0 0  NO
0/0/1 770         [12697]  
0/0/1 5305        [12698]   30920    1 13    0  0 0 0  3  2  0  3 0 0 0  DISCARDED
0/0/1 4611        [12699]  
0/0/1 5306        [12700]   30922    1 14    0  0 0 0  2  3  0  2 0 0 0  SPACES
0/0/1 770         [12701]  
0/0/1 5307        [12702]   30924    1 15    0  0 0 0  3  2  0  3 0 0 0  ZEROS
0/0/1 4611        [12703]  
0/0/1 5308        [12704]   30926    1 16    0  0 0 0  1  4  0  1 0 0 0  SIGN
0/0/0 5121        [12705]  
0/0/1 5309        [12706]   30928    1 17    0  0 0 0  2  3  0  2 0 0 0  STERLING
0/0/1 770         [12707]  
0/0/1 5310        [12708]   30930    1 18    0  0 0 0  2  3  0  2 0 0 1  LAST TABLE ENTRY
16/0/1 770        [12709]  

  Start of procedure 310 at location 4518 in chapter 3 [12710]
                  [12710]   31000 TABLE  310   310 3            UNPACK CONSTANT AND EDIT          
0/0/1 5292        [12710]   31002    1  0    0  0 0 0  5  0  0  5 0 0 0  AMEND IND
0/0/2 4101        [12711]  
0/0/1 5294        [12712]   31004    1  2    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12713]  
0/0/1 6048        [12714]   31006   92 34    0  0 0 0  5  0  0  5 0 0 0  ZERO WORD
0/0/2 4101        [12715]  
0/0/1 5298        [12716]   31008    1  6    0  0 2 0  5  0  0  0 0 0 0  CONSTANT UNPACKED
3/0/0 5           [12717]  
0/0/1 5300        [12718]   31010    1  8    0  0 2 0  5  0  0  0 0 0 0  FIXED FIELD TO
3/0/0 5           [12719]  
0/0/1 5302        [12720]   31012    1 10    0  0 2 0  5  0  0  0 0 0 0  1/6' ONWARD
3/0/0 5           [12721]  
0/0/1 5304        [12722]   31014    1 12    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12723]  
0/0/1 5306        [12724]   31016    1 14    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12725]  
0/0/1 5308        [12726]   31018    1 16    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12727]  
0/0/1 5310        [12728]   31020    1 18    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12729]  
0/0/1 5312        [12730]   31022    1 20    0  0 2 0  5  0  0  0 0 0 0  
3/0/0 5           [12731]  
0/0/1 5314        [12732]   31024    1 22    0  0 2 0  5  0  0  0 0 0 1  
19/0/0 5          [12733]  

  Start of procedure 311 at location 4542 in chapter 3 [12734]
                  [12734]   31100 TABLE  311   311 3            UNPACK STACKING DIRECTIVE         
0/0/1 5294        [12734]   31102    1  2    0  0 2 0  5  0  0  0 0 0 0  SER+AMEND DIR?
3/0/0 5           [12735]  
0/0/1 5298        [12736]   31104    1  6    0  0 2 0  5  0  0  0 0 0 0  DIRECTIVE
3/0/0 5           [12737]  
0/0/1 5300        [12738]   31106    1  8    0  0 2 0  3  0  0  0 0 0 0  SECTION NO
3/0/0 3           [12739]  
0/0/1 5308        [12740]   31108    1 16    0  0 2 1  5  0  0  0 0 0 1  /////TYPE OR ANNOTATION
27/0/0 5          [12741]  
0/0/1 5294        [12742]   31110    1  2    0  0 2 0  5  0  0  0 0 0 0  SER NO +AMEND DIR?
3/0/0 5           [12743]  
0/0/1 5298        [12744]   31112    1  6    0  0 2 0  5  0  0  0 0 0 0  ''NOTES'' OF TABLE
3/0/0 5           [12745]  
0/0/1 5308        [12746]   31114    1 16    0  0 2 0  5  0  0  0 0 0 1  ANNOTATION
19/0/0 5          [12747]  

  Start of procedure 312 at location 4556 in chapter 3 [12748]
                  [12748]   31200 TABLE  312   312 3            UNPACK INSTRUCTIONS               
0/0/1 5294        [12748]   31202    1  2    0  0 2 0  6  0  0  0 0 0 0  /////SER+AMEND LETTER
3/0/0 6           [12749]  
0/0/1 5298        [12750]   31204    1  6    0  0 2 0  3  0  0  0 0 0 0  ACTION
3/0/0 3           [12751]  

   Source: RayS/Q1000222
0/0/1 5300        [12752]   31206    1  8    0  0 2 0  3  0  0  0 0 0 0  REF
3/0/0 3           [12753]  
0/0/1 5302        [12754]   31208    1 10    0  0 1 0  5  0  0  0 1 0 0  ITEM
14/0/0 5          [12755]  
0/0/1 5304        [12756]   31210    1 12    0  0 0 0  1  0  0  0 0 0 0  D
0/0/0 1           [12757]  
0/0/1 5306        [12758]   31212    1 14    0  0 0 0  2  0  0  0 0 0 0  M
0/0/0 2           [12759]  
0/0/1 5308        [12760]   31214    1 16    0  0 1 0 10  0  0  0 1 0 0  LITERAL
14/0/0 10         [12761]  
0/0/1 5320        [12762]   31216    1 28    0  0 2 0  5  0  0  0 0 0 0  NOTES FROM P/T -RUBBISH FROM CARD
3/0/0 5           [12763]  
0/0/1 5328        [12764]   31218    1 36    0  0 2 0  5  0  0  0 0 0 1  COMMENTARY FROM P/T
19/0/0 5          [12765]  

  Start of procedure 313 at location 4574 in chapter 3 [12766]
                  [12766]   31300 TABLE  313   313 3            UNPACK TABLE ENTRIES              
0/0/1 5294        [12766]   31302    1  2    0  0 2 0  6  0  0  0 0 0 0  /////SER+AMEND LETTER
3/0/0 6           [12767]  
0/0/1 5312        [12768]   31304    1 20    0  0 0 0  3  0  0  0 0 0 0  FIRST REF
0/0/0 3           [12769]  
0/0/1 5314        [12770]   31306    1 22    0  0 0 0  5  0  0  0 0 0 0  FIRST ITEM
0/0/0 5           [12771]  
0/0/1 5316        [12772]   31308    1 24    0  0 0 0  3  0  0  0 0 0 0  SECOND REF
0/0/0 3           [12773]  
0/0/1 5318        [12774]   31310    1 26    0  0 0 0  5  0  0  0 0 0 0  SECOND ITEM
0/0/0 5           [12775]  
0/0/1 5311        [12776]   31312    1 19    0  0 0 0  1  0  0  0 0 0 0  DISC
0/0/0 1           [12777]  
0/0/1 5303        [12778]   31314    1 11    0  0 0 0  1  0  0  0 0 0 0  SINGLE TO BE
0/0/0 1           [12779]  
0/0/1 5304        [12780]   31316    1 12    0  0 0 0  2  0  0  0 0 0 0  NO OF CHARS
0/0/0 2           [12781]  
0/0/1 5305        [12782]   31318    1 13    0  0 0 0  2  0  0  0 0 0 0  DISCARDS
0/0/0 2           [12783]  
0/0/1 5306        [12784]   31320    1 14    0  0 0 0  2  0  0  0 0 0 0  SPACES
0/0/0 2           [12785]  
0/0/1 5307        [12786]   31322    1 15    0  0 0 0  2  0  0  0 0 0 0  ZEROS
0/0/0 2           [12787]  
0/0/1 5308        [12788]   31324    1 16    0  0 0 0  1  0  0  0 0 0 0  SIGN
0/0/0 1           [12789]  
0/0/1 5309        [12790]   31326    1 17    0  0 0 0  1  0  0  0 0 0 0  p
0/0/0 1           [12791]  
0/0/1 5310        [12792]   31328    1 18    0  0 0 0  1  0  0  0 0 0 0  LTE
0/0/0 1           [12793]  
0/0/1 5320        [12794]   31330    1 28    0  0 2 0  5  0  0  0 0 0 1  P/T ANNOTATION-SPACES IF CARD
19/0/0 5          [12795]  

  Start of procedure 314 at location 4604 in chapter 3 [12796]
                  [12796]   31400 TABLE  314   314 3            UNPACK CONSTANT (FIRST STAGE)     
0/0/1 5294        [12796]   31402    1  2    0  0 2 0  6  0  0  0 0 0 0  /////SER+AMEND LETTER
3/0/0 6           [12797]  
0/0/1 5298        [12798]   31404    1  6    0  0 2 0  5  0  0  0 0 0 0  CONSTANT (OR FIRST 5 CHS OF CONST)
3/0/0 5           [12799]  
0/0/1 5320        [12800]   31406    1 28    0  0 2 0  5  0  0  0 0 0 1  ANNOTATION (FROM P/T) OR NEXT 5
19/0/0 5          [12801]  

  Start of procedure 315 at location 4610 in chapter 3 [12802]
                  [12802]   31500 TABLE  315   315 1            EDIT ALL BUT TRIAL DATA           
0/0/1 5301        [12802]   31502    1  9    0  0 0 0  5  0  0  4 0 0 0  REF---VALUES
0/0/2 5           [12803]  
0/0/1 5302        [12804]   31504    1 10    0  0 0 0  5  0  0  4 1 0 1  LTE
28/0/2 5          [12805]  

  Start of procedure 316 at location 4614 in chapter 3 [12806]
                  [12806]   31600 CONST  316       0            CHECKING CONST FOR INSTRUCTIONS   
0/0/3 2833        [12806]   31602 (D)06e11;             'LITERAL' SWITCH Q3               +06B11
0/1/0 2841        [12807]   31603 08e19;                'REF/ITEM' SW Q2                  +08B19
0/0/0 2833        [12808]   31604 00e11;                'DISC/MOD' SWITCH Q1              +00B11
0/1/0 6929        [12809]   31605 09e11;                                                  +09B11
0/1/1 290         [12810]   31606 0t122;                ACTION 10                         +0A122
0/1/2 802         [12811]   31607 0+322;                                                  +0C322
0/1/3 4096        [12812]   31608 0p000;                                                  +0F000
1/0/0 6673        [12813]   31609 11t11;                                                  +11A11
1/0/1 0           [12814]   31610 12000;                                                  +12000
1/0/1 6801        [12815]   31611 13t91;                                                  +13A91

  Start of procedure 317 at location 4624 in chapter 3 [12816]
                  [12816]   31700 CONST  317       0            CHECKING CONSTANTS FOR INSTRUCTIONS 
1/1/1 2833        [12816]   31702 (D)1te11;             ACTIONS 20-26                     +1AB11
1/1/2 0           [12817]   31703 1+000;                2728                              +1C000
1/1/2 6929        [12818]   31704 1:e11;                29                                +1DB11
2/0/0 5154        [12819]   31705 21422;                30-33                             +21422
2/0/1 2833        [12820]   31706 22e11;                                                  +22B11
2/0/1 5410        [12821]   31707 23522;                                                  +23522
2/0/2 6929        [12822]   31708 25e11;                                                  +25B11
2/0/3 1570        [12823]   31709 26622;                                                  +26622
2/0/3 6946        [12824]   31710 27e22;                                                  +27B22
2/1/0 5554        [12825]   31711 295e2;                                                  +295B2

   Source: RayS/Q1000223
0/0/0 1458        [12826]   31712 005e2;                ACTIONS 42, 43                    +005B2
2/1/1 6969        [12827]   31713 2ee39;                42, 43 FIRST C-LINE               +2BB39
0/0/0 3025        [12828]   31714 00e:1;                43 SECOND LINE                    +00BD1
0/0/0 2881        [12829]   31715 00e41;                44                                +00B41
2/1/2 3122        [12830]   31716 2++32;                                                  +2CC32
2/1/2 5425        [12831]   31717 2:531;                ACTIONS 46-49                     +2D531
3/0/0 5434        [12832]   31718 3153t;                46-49 C-LINES                     +3153A
0/0/0 276         [12833]   31719 00114;                ACTIONS 50-53                     +00114
3/0/2 6939        [12834]   31720 35e1e;                                                  +35B1B
0/0/0 2883        [12835]   31721 00e43;                ACTION 54                         +00B43
3/0/3 2449        [12836]   31722 36991;                                                  +36991
0/0/0 2835        [12837]   31723 00e13;                                                  +00B13
3/0/3 5913        [12838]   31724 37719;                                                  +37719
0/0/0 2961        [12839]   31725 00e91;                                                  +00B91
3/1/0 2833        [12840]   31726 38e11;                                                  +38B11
3/1/0 4375        [12841]   31727 39117;                57                                +39117
3/1/1 274         [12842]   31728 3t112;                                                  +3A112
3/1/1 4381        [12843]   31729 3e11:;                59                                +3B11D
0/0/0 2836        [12844]   31730 00e14;                C-LINE                            +00B14
3/1/2 6946        [12845]   31731 3:e22;                6061                              +3DB22
3/1/3 2082        [12846]   31732 3.822;                                                  +3E822
4/0/0 2833        [12847]   31733 40e11;                                                  +40B11
4/0/0 6169        [12848]   31734 41819;                                                  +41819
0/0/0 2082        [12849]   31735 00822;                                                  +00822
4/0/1 6946        [12850]   31736 43e22;                66.67                             +43B22
4/0/2 4096        [12851]   31737 45000;                6869                              +45000
4/1/2 2882        [12852]   31738 4+e42;                70-76                             +4CB42
4/1/3 3522        [12853]   31739 4.:+2;                77-78                             +4EDC2
0/0/0 2834        [12854]   31740 00e12;                C-LINE                            +00B12
4/1/3 6978        [12855]   31741 4pe42;                79                                +4FB42
5/0/0 3010        [12856]   31742 50e+2;                80                                +50BC2
0/0/0 2962        [12857]   31743 00e92;                C-LINE                            +00B92
5/0/1 2882        [12858]   31744 52e42;                81-82                             +52B42
5/0/1 7266        [12859]   31745 53+62;                83                                +53C62
5/0/2 3042        [12860]   31746 54e.2;                84                                +54BE2
0/0/0 2833        [12861]   31747 00e11;                84 C-LINE                         +00B11
5/0/2 7018        [12862]   31748 55e6t;                85                                +55B6A
0/0/0 3041        [12863]   31749 00e.1;                                                  +00BE1
5/0/3 354         [12864]   31750 56162;                86                                +56162
5/0/3 6939        [12865]   31751 57e1e;                                                  +57B1B
0/0/0 3041        [12866]   31752 00e.1;                C-LINE                            +00BE1
5/1/0 4096        [12867]   31753 59000;                                                  +59000
5/1/1 557         [12868]   31754 5t22:;                ACTION 90                         +5A22D
0/0/0 546         [12869]   31755 00222;                                                  +00222
5/1/2 6934        [12870]   31756 5:e16;                ACTIONS 91-93                     +5DB16
5/1/3 2325        [12871]   31757 5.915;                94                                +5E915
6/0/0 2853        [12872]   31758 60e25;                                                  +60B25
6/0/0 7061        [12873]   31759 61e95;                ACTION 97                         +61B95
0/0/0 2914        [12874]   31760 00e62;                                                  +00B62
6/0/1 6950        [12875]   31761 63e26;                9899                              +63B26
8/0/1 7057        [12876]   31762 83e91;                                                  +83B91
0/0/0 2833        [12877]   31763 00e11;                                                  +00B11
8/0/2 2866        [12878]   31764 84e32;                132                               +84B32
8/0/3 1338        [12879]   31765 8653t;                133-4                             +8653A
0/0/0 2914        [12880]   31766 00e62;                C-LINE                            +00B62
8/1/1 4096        [12881]   31767 8e000;                                                  +8B000
8/1/3 7057        [12882]   31768 8pe91;                140-143                           +8FB91
9/0/0 0           [12883]   31769 90000;                144                               +90000
9/0/2 2961        [12884]   31770 94e91;                ACTIONS 145-148                   +94B91
0/0/0 2833        [12885]   31771 00e11;                CONTINUATION LINES                +00B11

   Source: RayS/Q1000224
9/0/2 4096        [12886]   31772 95000;                                                  +95000
9/0/3 3103        [12887]   31773 96+1p;                                                  +96C1F
0/0/0 3041        [12888]   31774 00e.1;                                                  +00BE1
9/0/3 6946        [12889]   31775 97e22;                                                  +97B22
9/1/0 2890        [12890]   31776 98e4t;                                                  +98B4A
0/0/0 2882        [12891]   31777 00e42;                                                  +00B42
9/1/0 6946        [12892]   31778 99e22;                ACTION 153                        +99B22
9/1/1 2834        [12893]   31779 9te12;                ACTION 153-154                    +9AB12
9/1/1 6946        [12894]   31780 9ee22;                                                  +9BB22
9/1/2 2865        [12895]   31781 9+e31;                                                  +9CB31
9/1/2 6939        [12896]   31782 9:e1e;                                                  +9DB1B
0/0/0 2883        [12897]   31783 00e43;                C-LINE                            +00B43
9/1/3 1297        [12898]   31784 9.511;                                                  +9E511
15/1/3 4096       [12899]   31785 pp000;                                                  +FF000
0/0/0 2841        [12900]   31786 00e19;                CONST FOR ACTION 55=2 C-LINES     +00B19
0/0/0 3033        [12901]   31787 00e:9;                2ND C LINE RT 22 ACTION 43        +00BD9
0/0/0 2833        [12902]   31788 00e11;                =1 C-LINE                         +00B11
0/0/0 8160        [12903]   31789 (R)18:2496;           FOR SEQUENCE CHANGES              +01FE0
0/0/0 5664        [12904]   31790 (R)18:0;                                                +01620
0/0/1 170         [12905]   31791 (R)93:0;                                                +020AA
0/0/1 6330        [12906]   31792 (R)14:0;                                                +038BA
0/0/0 0           [12907]   31793 (D)0;                 ZERO IF RT9 PRINTER               +00000
0/0/0 3025        [12908]   31794 00e:1;                43 ACTIONS                        +00BD1

  Start of procedure 318 at location 4717 in chapter 3 [12909]
                  [12909]   31800 CONST  318       0            MISC                              
0/0/0 2           [12909]   31802 (D)2;                                                   +00002
1/0/0 0           [12910]   31803 10000;                BIT 17                            +10000
0/0/0 4095        [12911]   31804 ppp;                  Q1-3                              +00FFF
0/0/0 112         [12912]   31805 70;                   BITS 5-7                          +00070
0/0/0 7           [12913]   31806 7;                    BITS 1-3                          +00007
0/0/0 8           [12914]   31807 8;                    BIT 4                             +00008
0/0/0 128         [12915]   31808 80;                   BIT 8                             +00080
0/0/0 3840        [12916]   31809 p00;                                                    +00F00
0/0/0 4           [12917]   31810 4;                    BIT3                              +00004
0/0/0 0           [12918]   31811 0;                    FIRST RECORD INDICATOR            +00000
0/0/0 0           [12919]   31812 0;                    ACC.RECORD LENGTH                 +00000

  Start of procedure 319 at location 4728 in chapter 3 [12920]
                  [12920]   31900 CONST  319       1            ALPHA CONSTANTS                   
2/0/3 853         [12920]   31902 (A)TABLE;                                               26355 +73515
7/0/1 5397        [12921]  
5/0/3 4723        [12922]   31904 CONST;                                                  57273 +53666
5/0/1 5734        [12923]  
6/0/2 4969        [12924]   31906 PROCR;                                                  65369 +67696
6/0/3 5782        [12925]  
0/0/0 0           [12926]   31908 *    ;                                                  00000 +5B000
5/1/1 4096        [12927]  
0/0/0 126         [12928]   31910 (D)7.0000007.;        BLOCK END WORD                    0007E +7E000
7/1/3 0           [12929]  
3/0/2 5490        [12930]   31912 (A)NOTES;                                               35572 +65667
6/0/2 5735        [12931]  
4/0/0 0           [12932]   31914 END  ;                                                  40000 +55655
5/0/2 5717        [12933]  
4/0/3 1906        [12934]   31916 DUMPS;                                                  46772 +54746
5/0/2 1862        [12935]  
3/0/2 5490        [12936]   31918 FILES;                                                  35572 +56596
5/0/3 1430        [12937]  
0/0/0 1023        [12938]   31920 (D)pp+00003pp;        BITS 1-10 AND 31-40               003FF +FFC00
15/1/3 7168       [12939]  
0/0/0 0           [12940]   31922 0;                    EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHES   00000 +00000
0/0/0 0           [12941]  
5/0/2 5491        [12942]   31924 (A)SHEET;                                               55573 +72585
7/0/1 1413        [12943]  
13/0/2 7517       [12944]   31926 (D)5:5:5:5:5:;        '?????'                           D5D5D +5D5D5
5/1/2 5589        [12945]  
3/0/3 5205        [12946]   31928 (A)VALUE;                                               37455 +75516
7/0/2 5398        [12947]  
15/0/3 3951       [12948]   31930 (D)6p6p6p6p6p;                                          F6F6F +6F6F6
6/1/3 5878        [12949]  
4/0/2 5495        [12950]   31932 (A)INDEX;                                               45577 +59655
5/1/0 5717        [12951]  
15/0/2 3919       [12952]   31934 ppppp;                                                  F4F4F +4F4F4
4/1/3 5364        [12953]  
0/0/0 66          [12954]   31936 2;                                                      00042 +00000
0/0/0 0           [12955]  
1/0/2 6501        [12956]   31938 CHAIN;                                                  15965 +53585
5/0/1 5509        [12957]  
13/0/2 7529       [12958]   31940 ????R;                                                  D5D69 +5D5D5
5/1/2 5589        [12959]  
13/0/2 7513       [12960]   31942 ????I;                                                  D5D59 +5D5D5
5/1/2 5589        [12961]  
13/0/2 7515       [12962]   31944 ????*;                                                  D5D5B +5D5D5
5/1/2 5589        [12963]  

   Source: RayS/Q1000225
1/0/3 1108        [12964]   31946 (A)TRAMD;                                               16454 +73695
7/0/1 5781        [12965]  
0/0/1 5320        [12966]   31948 (B20)16(D)0(C)1:28;   BULK COPY                         034C8 +00010
0/0/0 16          [12967]  
5/0/2 6514        [12968]   31950 (A)FINIS;                                               55972 +56596
5/0/3 1430        [12969]  

  Start of procedure 320 at location 4778 in chapter 3 [12970]
                  [12970]   32000 CONST  320       1            CONVERT TABLES                    
0/0/0 1           [12970]   32002 (D)1;                 BIN+DEC                           00001 +00000
0/0/0 0           [12971]  
0/0/0 22          [12972]   32004 16;                                                     00016 +00000
0/0/0 0           [12973]  
0/0/0 598         [12974]   32006 256;                                                    00256 +00000
0/0/0 0           [12975]  
0/0/2 150         [12976]   32008 4096;                                                   04096 +00000
0/0/0 0           [12977]  
6/0/2 5430        [12978]   32010 65536;                                                  65536 +00000
0/0/0 0           [12979]  
4/1/0 1398        [12980]   32012 1048576;                                                48576 +00010
0/0/0 16          [12981]  
7/0/3 4630        [12982]   32014 16777216;                                               77216 +00167
0/0/0 359         [12983]  
3/0/2 5206        [12984]   32016 268435456;                                              35456 +02684
0/0/1 1668        [12985]  
6/0/3 4758        [12986]   32018 4294967296;                                             67296 +42949
4/0/1 2377        [12987]  
15/1/3 8191       [12988]   32020 pppppppppp;                                             FFFFF +FFFFF
15/1/3 8191       [12989]  
0/0/0 1           [12990]   32022 1;                    DEC+BIN                           00001 +00000
0/0/0 0           [12991]  
0/0/0 10          [12992]   32024 t;                                                      0000A +00000
0/0/0 0           [12993]  
0/0/0 100         [12994]   32026 64;                                                     00064 +00000
0/0/0 0           [12995]  
0/0/0 1000        [12996]   32028 3.8;                                                    003E8 +00000
0/0/0 0           [12997]  
0/0/1 1808        [12998]   32030 2710;                                                   02710 +00000
0/0/0 0           [12999]  
1/1/0 1696        [13000]   32032 186t0;                                                  186A0 +00000
0/0/0 0           [13001]  
15/0/2 576        [13002]   32034 p4240;                                                  F4240 +00000
0/0/0 0           [13003]  
8/1/0 5760        [13004]   32036 989680;                                                 89680 +00009
0/0/0 9           [13005]  
5/1/3 256         [13006]   32038 5p5.100;                                                5E100 +0005F
0/0/0 95          [13007]  
10/1/2 2560       [13008]   32040 3e9t+t00;                                               ACA00 +003B9
0/0/0 953         [13009]  
0/0/0 0           [13010]   32042 0;                    (A)WL                             00000 +00000
0/0/0 0           [13011]  
0/0/0 63          [13012]   32044 3p;                   BITS 1-6                          0003F +00000
0/0/0 0           [13013]  
1/0/3 1907        [13014]   32046 (A)CHAPT;                                               16773 +53585
5/0/1 5509        [13015]  
5/0/3 1364        [13016]   32048 PREND;                                                  56554 +67695
6/0/3 5781        [13017]  

  Start of procedure 321 at location 4826 in chapter 3 [13018]
                  [13018]   32100 PROCR  321                    RIGHT ALIGN A WORD                
                  [13018]   32101 NOTES      RADIX              PLACED IN B                       
0/0/0 0           [13018]   32102  81  321     2 0 0        0                                   START OF SUBROUTINE
1/1/3 0           [13019]   32103  10          0 0 0        0                                   SELECT LITERAL
2/1/0 138         [13020]   32104   5   12    88 1 0        0                                   TRANSFER
4/1/0 138         [13021]   32105   1   12    88 1 0        0                                   ADD
18/1/1 2          [13022]   32106  32          0 0 0        2 LEAVE A CLEAR                     SHIFT (AB) BY QUARTETS
2/1/0 138         [13023]   32107   5   12    88 1 0        0                                   TRANSFER
27/1/1 4829       [13024]   32108  75  321     5 0 0        0 AND PUT WORD                      JUMP IF AB != 0
6/1/0 138         [13025]   32109       12    88 1 0        0                                   SELECT
26/0/1 4826       [13026]   32110  82  321     2 0 0        0 IN 12/88'                         END OF SUBROUTINE / LEAVE SUBROUTINE

  Start of procedure 322 at location 4835 in chapter 3 [13027]
                  [13027]   32200 PROCR  322                    END ROUTINE                       
                  [13027]   32201 NOTES      RADIX                                                
0/0/3 5129        [13027]   32202  60          0 0 0        0                                   SET DECIMAL RADIX
1/1/3 1           [13028]   32203  10          0 0 0        1                                   SELECT LITERAL
7/0/0 6017        [13029]   32204   4   92     3 0 0        0 STEP PROCR                        AUGMENT
0/0/3 0           [13030]   32205  62          0 0 0        0                                   SET EXCESS CONSTANTS
6/0/0 4748        [13031]   32206      319    22 0 0        0 DIRECTIVE FOR LAST BLOCK EDITED   SELECT
1/1/2 3           [13032]   32207  12          0 0 0        3                                   SUBTRACT LITERAL
27/0/1 4844       [13033]   32208  71  322    11 0 0        0 gWASN'T  A CONSTANT               JUMP IF A != 0
1/1/3 1           [13034]   32209  10          0 0 0        1                                   SELECT LITERAL
2/0/0 5390        [13035]   32210   5   29     6 0 0        0                                   TRANSFER
26/0/0 4042       [13036]   32211  80  288     2 0 0        0 gO/P FINAL DATA BLOCK             ENTER SUBROUTINE
6/0/0 6017        [13037]   32212   0   92     3 0 0        0                                   SELECT
18/0/1 2          [13038]   32213  30          0 0 0        2                                   SHIFT (A) BY QUARTETS

   Source: TonyJ/Q1000226
2/0/0 138         [13039]   32214   5   12    88 0 0        0                                   TRANSFER
24/0/2 4438       [13040]   32215  52   29     4 0 0        0                                   EDIT
28/1/2 5388       [13041]   32216   C  306     6 0 0        0                                   
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [13043]   32217        9     4 1 0        0                                   SELECT
18/0/1 4124       [13044]   32218  30          0 0 0       4-                                   SHIFT (A) BY QUARTETS
18/0/1 4          [13045]   32219  30          0 0 0        4                                   SHIFT (A) BY QUARTETS
5/1/0 4740        [13046]   32220   2  319    14 1 0        0                                   SUBTRACT
27/0/0 4865       [13047]   32221  70  322    30 0 0        0 > END WITHOUT TD                  JUMP IF A == 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [13049]   32222        9     4 1 0        0                                   SELECT
5/1/0 4772        [13050]   32223   2  319    46 1 0        0  'TRAMD'                          SUBTRACT
27/0/0 4868       [13051]   32224  70  322    32 0 0        0                                   JUMP IF A == 0
6/1/0 5276        [13052]   32225  10          0 0 0  55555 5 SQUARES                         SELECT LITERAL
3/0/0 6316        [13053]   32226   3   27     6 0 0        0  'PT OMMITTED'                    COPY
2/1/0 5396        [13054]   32227   5   29    12 1 0        0                                   TRANSFER
26/0/0 4298       [13055]   32228  80  301     2 0 0        0 > READ PT                         ENTER SUBROUTINE
24/1/0 4850       [13056]   32229  76  322    17 0 0        0 > TEST NEXT BLOCK                 JUMP unconditional
6/1/0 4776        [13057]   32230      319    50 1 0        0  'FINIS'                          SELECT
24/1/2 21    Extra code needed to address transit area no 4, section 9
2/1/0 4           [13059]   32231   5    9     4 1 0        0                                   TRANSFER
6/1/0 4740        [13060]   32232      319    14 1 0        0                                   SELECT
2/1/0 5390        [13061]   32233   5   29     6 1 0        0  'END'                            TRANSFER
26/0/0 4042       [13062]   32234  80  288     2 0 0        0 > WRITE INTERCODE END SIGN        ENTER SUBROUTINE
26/0/0 5065       [13063]   32235  80  325     2 0 0        0                                   ENTER SUBROUTINE
26/1/1 5278       [13064]   32236  90          0 0 1        1                                   SET MODIFICATION REGISTER AT LITERAL
                  [13065]   32237   C          0 0 0      100                                   Limit
26/1/2 5280       [13065]   32238  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [13066]   32239   C          0 0 0      200                                   Limit
24/0/3 22         [13066]   32240  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2           [13067]  
26/0/0 2765       [13068]   32241  80  244     2 0 0        0 > TO DEC                          ENTER SUBROUTINE
0/0/3 0           [13069]   32242  62          0 0 0        0                                   SET EXCESS CONSTANTS
18/1/1 4127       [13070]   32243  32          0 0 0       1- DIVIDE BY 10                      SHIFT (AB) BY QUARTETS
24/0/3 22         [13071]   32244  92          0 0 3        0 TENS DIGIT                        SET MODIFIER AT VARIABLE
2/0/0 6           [13072]  
18/1/1 1          [13073]   32245  32          0 0 0        1                                   SHIFT (AB) BY QUARTETS
2/0/0 2765        [13074]   32246   5  244     2 0 0        0 WL                                TRANSFER
1/1/3 1           [13075]   32247  10          0 0 0        1                                   SELECT LITERAL
24/0/1 2765       [13076]   32248 124  244     2 0 1        0                                   MODIFY ADDRESS OF NEXT
18/0/3 0          [13077]   32249  31          0 0 0        0 /////BIT PATTERN OF UNITS DIGIT   SHIFT (A) BY BITS
3/0/0 2765        [13078]   32250   3  244     2 0 0        0                                   COPY
18/1/3 2          [13079]   32251  33          0 0 0      30- REL TO BIT 10 OF 8                SHIFT (AB) BY BITS
18/1/1 4120       [13080]  
15/0/3 122        [13081]   32252  36   12    72 0 3        0 12/72-81= SECTION BIT PATTERNS    COLLATE AND ADD
27/0/0 4910       [13082]   32253  70  322    68 0 0        0 > NOT TX AREA                     JUMP IF A == 0
24/0/3 22         [13083]   32254  96          0 0 3        0                                   SELECT MODIFIER
6/0/0 6           [13084]  
1/0/1 0           [13085]   32255  35          0 0 0        0 CLEAR B                           PREPARE FOR DIGIT COLLATION
18/1/3 3          [13086]   32256  33          0 0 0       1- HALVE                             SHIFT (AB) BY BITS
18/1/1 4127       [13087]  
24/0/3 22         [13088]   32257  92          0 0 3        0                                   SET MODIFIER AT VARIABLE
2/0/0 6           [13089]  
27/1/1 4901       [13090]   32258  75  322    61 0 0        0 > WAS ODD                         JUMP IF AB != 0
0/0/2 2765        [13091]   32259  34  244     2 0 0        0                                   SET (N) IN B
24/1/0 4903       [13092]   32260  76  322    63 0 0        0                                   JUMP unconditional
0/0/2 2765        [13093]   32261  34  244     2 0 0        0                                   SET (N) IN B
18/1/3 10         [13094]   32262  33          0 0 0       10                                   SHIFT (AB) BY BITS
15/0/3 150        [13095]   32263  36   12   100 0 3        0 12/100-104='TX AREA USED' INDS    COLLATE AND ADD
27/0/1 4910       [13096]   32264  71  322    68 0 0        0 > NOT PSEUDEO-TX AREA             JUMP IF A != 0
24/0/3 22         [13097]   32265  96          0 0 1        0                                   SELECT MODIFIER
6/0/0 2           [13098]  
2/0/2 6048        [13099]   32266   5   92    34 0 2        0 STORE SECTION NUMBER              TRANSFER
25/0/2 1          [13100]   32267  94          0 0 2        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4910       [13101]  
25/0/1 1          [13102]   32268  94  322    40 0 1        1 > NEXT SECTION                    STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4874       [13103] s

  Start of procedure 323 at location 4912 in chapter 3 [13104]
                  [13104]   32300 PROCR  323       323    CALC CHAPS INITIALLY                                   
6/0/0 5130        [13104]   32302  10          0 0 0    00                                   SELECT LITERAL
3/0/0 6247        [13105]   32303   3   23    47 0 0        0  (TO PRINT HEADING)               COPY

   Source: TonyJ/Q1000227
24/0/0 6014       [13106]   32304 124   92     0 0 0        0                                   MODIFY ADDRESS OF NEXT
7/0/0 6023        [13107]   32305   4   92     9 0 0        0  'LAST PROCR' IN FINAL CHAP       AUGMENT
26/1/3 62         [13108]   32306  91   12    12 0 3        0                                   SET MODIFICATION REGISTER AT VARIABLE
6/0/3 6024        [13109]   32307       92    10 0 3        0                                   SELECT
18/0/1 9          [13110]   32308  30          0 0 0        9                                   SHIFT (A) BY QUARTETS
18/0/1 4119       [13111]   32309  30          0 0 0       9- ISOLATE Q1-CORR CHAP              SHIFT (A) BY QUARTETS
5/0/0 6043        [13112]   32310   2   92    29 0 0        0 (ZERO INITIALLY)                  SUBTRACT
27/0/3 4923       [13113]   32311  73  323    13 0 0        0                                   JUMP IF A < 0
7/0/0 6043        [13114]   32312   4   92    29 0 0        0 UPDATE                            AUGMENT
25/0/3 1          [13115]   32313  94  323     7 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4917       [13116]  
1/1/3 1           [13117]   32314  10          0 0 0        1                                   SELECT LITERAL
7/0/0 6043        [13118]   32315   4   92    29 0 0        0 FORM CHAPS INITIALLY              AUGMENT
6/0/0 6023        [13119]   32316       92     9 0 0        0                                   SELECT
2/0/0 6022        [13120]   32317   5   92     8 0 0        0 STORE SC CTR                      TRANSFER
6/0/0 6043        [13121]   32318       92    29 0 0        0                                   SELECT
2/0/0 6023        [13122]   32319   5   92     9 0 0        0 SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT TRANSFER

  Start of procedure 324 at location 4931 in chapter 3 [13123]
                  [13123]   32400 PROCR  324       324    READ/COPY TRIAL DATA MODS                                   
                  [13123]   32401 NOTES      RADIX 1 0        0                                   
26/0/0 4099       [13123]   32402  80  289     2 0 0        0                                   ENTER SUBROUTINE
26/0/0 4099       [13124]   32403  80  289     2 0 0        0 > WRITE 2 BLANKS                  ENTER SUBROUTINE
6/1/0 4756        [13125]   32404      319    30 1 0        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 4           [13127]   32405   5    8     4 1 0        0 5 ALIGN MARKS                     TRANSFER
1/1/3 6           [13128]   32406  10          0 0 0        6                                   SELECT LITERAL
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/0/0 10          [13130]   32407   5    8    10 0 0        0                                   TRANSFER
26/0/0 4099       [13131]   32408  80  289     2 0 0        0 > WRITE ALIGN BLOCK FOR PASS 3    ENTER SUBROUTINE
6/1/0 4758        [13132]   32409      319    32 1 0        0  'INDEX'                          SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 4           [13134]   32410   5    8     4 1 0        0                                   TRANSFER
26/0/0 4099       [13135]   32411  80  289     2 0 0        0 > WRITE                           ENTER SUBROUTINE
26/1/1 5282       [13136]   32412  90          0 0 1        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [13137]   32413   C          0 0 0     1010                                   Limit
26/1/2 5284       [13137]   32414  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [13138]   32415   C          0 0 0       48                                   Limit
6/0/1 170         [13138]   32416       93     0 0 1        0                                   SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/2 5           [13140]   32417   5    8     4 2 2        0                                   TRANSFER
25/0/2 2          [13141]   32418  94  324    24 0 2        2                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4956       [13142] s
6/1/0 4736        [13143]   32419      319    10 1 0        0 BEW                               SELECT
24/1/2 19    Extra code needed to address transit area no 3, section 8
2/1/0 52          [13145]   32420   5    8    52 1 0        0                                   TRANSFER
26/0/0 4108       [13146]   32421  80  290     2 0 0        0 > WRITE                           ENTER SUBROUTINE
26/1/2 5286       [13147]   32422  90          0 0 2        0                                   SET MODIFICATION REGISTER AT LITERAL
                  [13148]   32423   C          0 0 0       48                                   Limit
25/0/1 1          [13148]   32424  94  324    16 0 1        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 4946       [13149] s
26/0/0 4108       [13150]   32425  80  290     2 0 0        0 > LAST BLOCK                      ENTER SUBROUTINE
26/0/0 4099       [13151]   32426  80  289     2 0 0        0                                   ENTER SUBROUTINE
26/0/0 4099       [13152]   32427  80  289     2 0 0        0 > TWO BLANKS                      ENTER SUBROUTINE
24/1/2 21    Extra code needed to address transit area no 4, section 9
6/1/0 4           [13154]   32428   0    9     4 1 0        0                                   SELECT
5/1/0 4776        [13155]   32429   2  319    50 1 0        0  'FINIS'                          SUBTRACT
27/0/0 4975       [13156]   32430  70  324    36 0 0        0                                   JUMP IF A == 0
24/1/2 21    Extra code needed to address transit area no 4, section 9
24/0/2 4          [13158]   32431  55    9     4 1 0       50                                   BULK COPY
18/1/0 4123       [13159]   32432   C    8     4 1 0        0                                   
1/1/3 50          [13160]  
18/1/1 5          [13161]  
24/1/2 19    Extra code needed to address transit area no 3, section 8
28/1/1 4          [13163]  
26/0/0 4099       [13164]   32433  80  289     2 0 0        0 > WRITE                           ENTER SUBROUTINE
26/0/0 4298       [13165]   32434  80  301     2 0 0        0 > READ                            ENTER SUBROUTINE
24/1/0 4961       [13166]   32435  76  324    28 0 0        0                                   JUMP unconditional
6/0/0 6314        [13167]   32436       27     4 0 0        0 COMPILER ?                        SELECT
27/0/0 4987       [13168]   32437  70  324    41 0 0        0 > NORMAL                          JUMP IF A == 0
0/1/0 40          [13169]   32438  46   A2    10 0 0        0  (TO START OF INTERCODE)          RUN BACK
0/0/3 0           [13170]  
0/1/2 5288        [13171]   32439   C          0 0 0        2                                   RUN BACK
6/1/0 0           [13172]  
1/1/1 36          [13173]  
25/1/1 4096       [13174]  
24/0/3 0          [13175]  
23/0/2 46         [13176]  
0/1/1 40          [13177]  
24/1/0 5003       [13178]   32440  76  324    43 0 0        0                                   JUMP unconditional
0/1/0 40          [13179]   32441  45   A2     0 0 0        0                                   REWIND
0/0/3 0           [13180]  
6/1/0 0           [13181]  
1/1/1 36          [13182]  
25/1/1 4096       [13183]  
24/0/3 0          [13184]  
23/0/2 45         [13185]  
0/1/1 40          [13186]  
0/1/0 40          [13187]   32442  45   A6     0 0 0        1                                   REWIND
0/0/3 0           [13188]  
6/1/0 0           [13189]  
1/1/1 45          [13190]  
25/1/1 4096       [13191]  
24/0/3 0          [13192]  
23/0/2 45         [13193]  
0/1/1 40          [13194]  

   Source: ChuckK/Q1000228
6/1/0 62          [13195]   32443   0   12    12 1 0        0 COPY DATA FOR PASS 2 PREP STAGE   SELECT
2/1/0 5450        [13196]   32444   5   94     0 1 0        0                                   TRANSFER
6/0/0 6044        [13197]   32445   0   92    30 0 0        0 IND OF AMEND RUN                  SELECT
27/0/0 46         [13198]   32446  70  152     2 0 0        0 >NO, CALL PASS 2                  JUMP IF A == 0
6/0/0 6314        [13199]   32447       27     4 0 0        0                                   SELECT
27/0/0 5012       [13200]   32448  70  324    52 0 0        0 >NORMAL                           JUMP IF A == 0
6/0/0 6312        [13201]   32449       27     2 0 0        0                                   SELECT
27/0/0 5044       [13202]   32450  70  324    74 0 0        0                                   JUMP IF A == 0
24/1/0 5027       [13203]   32451  76  324    58 0 0        0                                   JUMP unconditional
6/0/0 8177        [13204]   32452  86  786     2 0 0        0                                   SELECT SWITCH R
27/0/0 5044       [13205]   32453  70  324    74 0 0        0 >NO TRIAL DATA                    JUMP IF A == 0
2/0/0 4099        [13206]   32454   5  289     2 0 0        0 WL                                TRANSFER
0/1/0 40          [13207]   32455  47   A1    10 0 0        0 RUN TO START OF THIS PROGS MACHINE CODE RUN ON
0/0/3 0           [13208]  
6/0/0 4099        [13209]   32456   C  289     2 0 0        0                                   RUN ON
4/1/0 5290        [13210]  
18/1/1 4118       [13211]  
6/1/0 0           [13212]  
1/1/1 27          [13213]  
25/1/1 4096       [13214]  
24/0/3 0          [13215]  
23/0/2 47         [13216]  
0/1/1 40          [13217]  
26/0/0 4119       [13218]   32457  80  291     2 0 0        0 >READ A1                          ENTER SUBROUTINE
24/1/2 17    Extra code needed to address transit area no 2, section 7
6/1/0 4           [13220]   32458        7     4 1 0        0 ;TESTS FOR CLOSING A1             SELECT
5/1/0 4824        [13221]   32459   2  320    48 1 0        0  'PREND'                          SUBTRACT
27/0/0 5044       [13222]   32460  70  324    74 0 0        0 >YES                              JUMP IF A == 0
4/1/0 4824        [13223]   32461   1  320    48 1 0        0                                   ADD
5/1/0 4744        [13224]   32462   2  319    18 1 0        0  'FILES'                          SUBTRACT
27/0/0 5041       [13225]   32463  70  324    71 0 0        0                                   JUMP IF A == 0
4/1/0 4744        [13226]   32464   1  319    18 1 0        0                                   ADD
5/1/0 4822        [13227]   32465   2  320    46 1 0        0  'CHAPT'                          SUBTRACT
27/0/0 5041       [13228]   32466  70  324    71 0 0        0 >YES                              JUMP IF A == 0
4/1/0 4822        [13229]   32467   1  320    46 1 0        0                                   ADD
5/1/0 4776        [13230]   32468   2  319    50 1 0        0  'FINIS'                          SUBTRACT
27/0/0 5044       [13231]   32469  70  324    74 0 0        0 >YES                              JUMP IF A == 0
24/1/0 5026       [13232]   32470  76  324    57 0 0        0 >READ/IGNORE                      JUMP unconditional
1/1/3 1           [13233]   32471  10          0 0 0        1                                   SELECT LITERAL
2/0/0 6313        [13234]   32472   5   27     3 0 0        0                                   TRANSFER
24/1/0 46         [13235]   32473  76  152     2 0 0        0 >CALL PASS 2,LEAVE A1 OPEN        JUMP unconditional
2/0/0 6313        [13236]   32474   5   27     3 0 0        0                                   TRANSFER
6/0/0 6314        [13237]   32475       27     4 0 0        0 COMPILER CALLED TRANSLATOR?       SELECT
27/0/0 5056       [13238]   32476  70  324    79 0 0        0 >NO                               JUMP IF A == 0
0/1/0 40          [13239]   32477  45   A1     0 0 0        1                                   REWIND
0/0/3 0           [13240]  
6/1/0 0           [13241]  
1/1/1 27          [13242]  
25/1/1 4096       [13243]  
24/0/3 0          [13244]  
23/0/2 45         [13245]  
0/1/1 40          [13246]  
24/1/0 46         [13247]   32478  76  152     2 0 0        0 >CALL PASS 2                      JUMP unconditional
0/1/0 40          [13248]   32479  41   A1     0 0 0        1                                   CLOSE FILE
0/0/3 0           [13249]  
6/1/0 0           [13250]  
1/1/1 27          [13251]  
25/1/1 4096       [13252]  
24/0/3 0          [13253]  
23/0/2 41         [13254]  
0/1/1 40          [13255]  
24/1/0 46         [13256]   32480  76  152     2 0 0        0 >CALL PASS 2                      JUMP unconditional

  Start of procedure 325 at location 5065 in chapter 3 [13257]
                  [13257]   32500 PROCR  325                                                      
0/0/0 0           [13257]   32502  81  325     2 0 0        0                                   START OF SUBROUTINE
6/0/0 5065        [13258]   32503      325     2 0 0        0                                   SELECT
2/0/0 4042        [13259]   32504   5  288     2 0 0        0                                   TRANSFER
24/1/0 4065       [13260]   32505  76  288    24 0 0        0                                   JUMP unconditional

  Start of procedure 326 at location 5069 in chapter 3 [13261]
                  [13261]   32600 PROCR  326                    UNPACK SECTION 9 SUBROUTINE       
                  [13261]   32601 NOTES      RADIX                                                
0/0/0 0           [13261]   32602  81  326     2 0 0        0                                   START OF SUBROUTINE
24/1/2 0          [13262]   32603 124  999     0 1 2        0 (FORMED)                          MODIFY ADDRESS OF NEXT
28/0/3 4          [13263]   32604 128          4 0 3        0                                   UNPACK VARIABLE FIELD DATA
26/0/1 5069       [13264]   32605  82  326     2 0 0        0                                   END OF SUBROUTINE / LEAVE SUBROUTINE
24/1/2 21         [13265]   32606        9     0 0 0        0 DUMMY FOR PARAMETER               SELECT
6/0/0 0           [13266]  
28/0/2 4          [13267]   32607 128          4 0 2        0                                   UNPACK FIXED FIELD DATA

   Constants for chapter 3
   short constants at 13268
   long constants at 13324
0/0/1 0 [13268] 002000
0/0/2 0 [13269] 004000
0/0/3 0 [13270] 006000
7/0/0 0 [13271] 070000
0/0/3 1792 [13272] 006700
6/0/3 1638 [13273] 066666
16/0/0 2 [13274] 100002
6/0/3 1638 [13275] 066666
15/1/3 8191 [13276] 0FFFFF
6/0/3 1638 [13277] 066666
0/0/2 5376 [13278] 005500
0/0/0 2 [13279] 000002
0/0/2 5632 [13280] 005600
6/0/3 1638 [13281] 066666
0/0/2 150 [13282] 004096
0/0/2 4864 [13283] 005300
6/0/3 1638 [13284] 066666
0/0/3 4608 [13285] 007200
6/0/3 1638 [13286] 066666
6/0/3 1638 [13287] 066666
6/0/3 1638 [13288] 066666
0/0/0 20 [13289] 000014
6/0/3 1638 [13290] 066666
5/0/1 4096 [13291] 053000
5/0/1 4096 [13292] 053000
6/0/3 1638 [13293] 066666
0/1/0 402 [13294] 008192
5/0/1 4096 [13295] 053000
0/0/2 0 [13296] 004000
5/0/1 4096 [13297] 053000
6/0/3 1638 [13298] 066666
0/1/0 402 [13299] 008192
0/0/2 149 [13300] 004095
0/0/2 149 [13301] 004095
0/0/2 150 [13302] 004096
16/0/0 1 [13303] 100001
5/0/1 4096 [13304] 053000
5/0/1 4096 [13305] 053000
6/0/3 1638 [13306] 066666
6/0/3 1638 [13307] 066666
16/0/0 2 [13308] 100002
6/0/3 3684 [13309] 066E64
6/0/3 1638 [13310] 066666
6/0/3 1638 [13311] 066666
6/0/3 1638 [13312] 066666
16/0/0 3 [13313] 100003
0/0/0 3 [13314] 000003
0/1/0 401 [13315] 008191
0/1/0 402 [13316] 008192
16/0/0 5 [13317] 100005
0/0/2 230 [13318] 0040E6
6/0/3 1638 [13319] 066666
6/0/3 1638 [13320] 066666
6/0/3 1638 [13321] 066666
15/1/3 7936 [13322] 0FFF00
0/0/0 0 [13323] 000000
0/0/0 0 [13324] 000000
2/0/0 42 [13325] 02002A
0/0/0 0 [13326] 000000
2/0/0 46 [13327] 02002E
0/0/0 0 [13328] 000000
2/0/0 20 [13329] 020014
0/0/0 0 [13330] 000000
2/0/0 888 [13331] 020378
0/0/0 0 [13332] 000000
0/0/0 450 [13333] 0001C2
0/0/0 0 [13334] 000000
2/0/0 596 [13335] 020254
0/0/0 0 [13336] 000000
2/0/0 120 [13337] 020078
0/1/0 153 [13338] 008099
0/0/2 4417 [13339] 005141
0/0/0 0 [13340] 000000
0/0/0 0 [13341] 000000
0/1/0 153 [13342] 008099
0/0/2 4422 [13343] 005146
0/0/0 0 [13344] 000000
0/0/0 0 [13345] 000000
0/0/0 0 [13346] 000000
2/0/0 120 [13347] 020078
0/0/0 0 [13348] 000000
7/0/1 4096 [13349] 073000
0/0/0 0 [13350] 000000
2/0/0 46 [13351] 02002E
0/0/0 0 [13352] 000000
2/0/0 46 [13353] 02002E
0/0/0 0 [13354] 000000
0/0/0 0 [13355] 000000
0/1/0 153 [13356] 008099
0/0/2 4418 [13357] 005142
0/0/0 0 [13358] 000000
0/0/0 0 [13359] 000000
0/0/2 321 [13360] 004141
3/0/0 1155 [13361] 030483
0/0/0 0 [13362] 000000
2/0/0 46 [13363] 02002E
0/0/0 0 [13364] 000000
0/0/0 9 [13365] 000009
0/0/0 0 [13366] 000000
2/0/0 46 [13367] 02002E
0/0/0 0 [13368] 000000
2/0/0 46 [13369] 02002E
0/0/0 0 [13370] 000000
2/0/0 20 [13371] 020014
15/1/3 8191 [13372] 0FFFFF
15/1/3 8191 [13373] 0FFFFF
0/0/0 0 [13374] 000000
0/0/0 14 [13375] 00000E
0/0/0 0 [13376] 000000
2/0/0 46 [13377] 02002E
0/0/0 0 [13378] 000000
0/0/0 4 [13379] 000004
0/0/0 0 [13380] 000000
0/0/0 8 [13381] 000008
0/0/0 0 [13382] 000000
2/0/0 44 [13383] 02002C
15/0/2 8031 [13384] 0F5F5F
5/1/3 5621 [13385] 05F5F5
2/0/2 5481 [13386] 025569
0/0/0 7 [13387] 000007
13/0/2 7517 [13388] 0D5D5D
0/0/0 1493 [13389] 0005D5
2/0/2 5481 [13390] 025569
0/0/0 7 [13391] 000007
0/0/0 0 [13392] 000000
0/0/0 160 [13393] 0000A0
0/0/0 0 [13394] 000000
0/0/0 460 [13395] 0001CC
0/0/0 1 [13396] 000001
0/0/0 1 [13397] 000001
0/0/0 0 [13398] 000000
2/0/0 40 [13399] 020028
0/0/0 0 [13400] 000000
0/0/0 50 [13401] 000032
0/0/0 0 [13402] 000000
0/0/0 100 [13403] 000064
0/0/0 0 [13404] 000000
5/0/0 4096 [13405] 051000
0/0/0 0 [13406] 000000
5/0/0 4096 [13407] 051000
0/0/0 0 [13408] 000000
0/0/0 10 [13409] 00000A
0/0/0 0 [13410] 000000
5/0/1 4096 [13411] 053000
15/1/3 6146 [13412] 0FF802
0/0/0 2045 [13413] 0007FD
0/0/0 0 [13414] 000000
6/0/3 1638 [13415] 066666
2/0/2 5481 [13416] 025569
0/0/0 7 [13417] 000007
0/0/0 0 [13418] 000000
2/0/0 46 [13419] 02002E
0/0/0 6 [13420] 000006
0/0/0 44 [13421] 00002C
0/0/0 0 [13422] 000000
0/0/0 5 [13423] 000005
0/0/0 0 [13424] 000000
0/0/0 18 [13425] 000012
0/0/0 0 [13426] 000000
2/0/0 60 [13427] 02003C
0/0/0 0 [13428] 000000
2/0/0 18 [13429] 020012
0/0/0 0 [13430] 000000
2/0/0 18 [13431] 020012
0/0/0 2 [13432] 000002
0/0/0 30 [13433] 00001E
0/0/0 28 [13434] 00001C
0/0/0 0 [13435] 000000
0/0/0 0 [13436] 000000
0/0/0 0 [13437] 000000
0/0/0 0 [13438] 000000
0/0/0 11 [13439] 00000B
4/1/0 1398 [13440] 048576
0/0/0 16 [13441] 000010
0/0/0 0 [13442] 000000
0/0/0 5 [13443] 000005
0/0/0 0 [13444] 000000
0/0/0 8 [13445] 000008
2/0/3 5220 [13446] 027464
0/0/0 7 [13447] 000007
3/0/0 0 [13448] 030000
0/0/0 7 [13449] 000007
0/0/0 0 [13450] 000000
2/0/0 46 [13451] 02002E
0/0/0 0 [13452] 000000
2/0/0 40 [13453] 020028
0/0/0 44 [13454] 00002C
0/0/0 2 [13455] 000002
0/0/0 0 [13456] 000000
2/0/0 46 [13457] 02002E
0/0/0 0 [13458] 000000
2/0/0 44 [13459] 02002C
0/0/0 0 [13460] 000000
2/0/0 46 [13461] 02002E
0/0/0 0 [13462] 000000
2/0/0 8 [13463] 020008
0/0/0 0 [13464] 000000
0/0/0 1 [13465] 000001
0/0/0 0 [13466] 000000
2/0/0 46 [13467] 02002E
15/0/2 8031 [13468] 0F5F5F
5/1/3 5621 [13469] 05F5F5
0/0/0 1 [13470] 000001
0/0/0 100 [13471] 000064
0/0/0 0 [13472] 000000
0/0/0 200 [13473] 0000C8
0/0/0 0 [13474] 000000
0/0/0 1010 [13475] 0003F2
0/0/0 0 [13476] 000000
0/0/0 48 [13477] 000030
0/0/0 0 [13478] 000000
0/0/0 48 [13479] 000030
0/0/0 2 [13480] 000002
0/0/0 10 [13481] 00000A
0/0/0 0 [13482] 000000
0/0/0 10 [13483] 00000A
L8192   loading procedure 0 for chapter 3
0/0/0 0 [8192] 000000
0/0/0 5600 [8193] 0015E0
0/0/0 5600 [8194] 0015E0
0/0/1 0 [8195] 002000
0/0/1 0 [8196] 002000
0/0/0 160 [8197] 0000A0
0/0/0 160 [8198] 0000A0
0/0/0 9 [8199] 000009
0/0/0 18 [8200] 000012
0/0/0 27 [8201] 00001B
0/0/0 36 [8202] 000024
0/0/0 45 [8203] 00002D
0/0/0 10 [8204] 00000A
16/0/0 74 [8205] 10004A
0/0/0 19 [8206] 000013
16/0/0 83 [8207] 100053
0/0/0 28 [8208] 00001C
16/0/0 92 [8209] 10005C
0/0/0 37 [8210] 000025
16/0/0 101 [8211] 100065
0/0/0 46 [8212] 00002E
16/0/0 110 [8213] 10006E
0/0/0 8 [8214] 000008
16/0/0 10 [8215] 10000A
16/0/0 12 [8216] 10000C
16/0/0 14 [8217] 10000E
0/0/0 0 [8218] 000000
0/0/0 0 [8219] 000000
0/0/0 0 [8220] 000000
0/0/0 0 [8221] 000000
0/0/0 0 [8222] 000000
0/0/0 0 [8223] 000000
0/0/0 0 [8224] 000000
0/0/0 0 [8225] 000000
0/0/0 0 [8226] 000000
0/0/0 0 [8227] 000000
0/0/0 0 [8228] 000000
0/0/0 0 [8229] 000000
0/0/0 0 [8230] 000000
0/0/0 0 [8231] 000000
O01  8192 13484   Overlaying chapter 3 by 4, equivalent to chapter 2
L8238   loading chapter 4

  Start of procedure 327 at location 46 in chapter 4 [8238]
                   [8238]   32700 PROCR  327                    START OF PASS 2                   
                   [8238]   32702 NOTES      RADIX            B DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT 

   Source: ChuckK/Q1000229
   PROCR 553 in CHAP 5 overlay = 4
24/0/3 0           [8238]   32702 152  152     4 0 0        0 CALL/ENTER PASS 3                 OVERLAY
23/0/2 104         [8239]   32703   C  553     4 0 0        0                                   OVERLAY
6/1/0 16           [8240]   32704      999    16 1 0        0 COPY SEC 7 PARAS-PTS WL'S         SELECT
2/1/0 30           [8241]   32705   5  999    30 1 0        0                                   TRANSFER
6/1/0 5138         [8242]   32706  54    5     0 0 0       50                                   BULK CLEAR
24/1/2 15    Extra code needed to address transit area no 1, section 5
28/0/0 0           [8244]  
24/0/2 728         [8245]   32707  52    5     2 0 0        0                                   EDIT
24/1/2 15    Extra code needed to address transit area no 1, section 5
28/1/2 2           [8247]   32708   C  342    36 0 0        0 EDIT 'INDEX' LINE                 

  Start of procedure 328 at location 56 in chapter 4 [8248]
                   [8248]   32800 PROCR  328                    CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER 
                   [8248]   32801 NOTES      RADIX            B AND MOVE THE SC BACK LIST         
6/1/0 5140         [8248]   32802  54   72     3 0 0       14                                   BULK CLEAR
28/0/0 5401        [8249]  
6/1/0 5142         [8250]   32803  90          0 0 19       0                                   SET MODIFICATION REGISTER AT LITERAL
2/1/0 8188         [8251]   32804   C          0 0 0       10                                   Simulated modifier
6/1/0 5144         [8252]   32805  90          0 0 20       0                                   SET MODIFICATION REGISTER AT LITERAL
2/1/0 8186         [8253]   32806   C          0 0 0       10                                   Simulated modifier
1/1/3 1            [8254]   32807  10          0 0 0        1                                   SELECT LITERAL
2/0/0 5282         [8255]   32808   5   61     4 0 0        0 CTR INCREMENT                     TRANSFER
6/0/0 6101         [8256]   32809       95     1 0 0        0 NO OF SWITCHES                    SELECT
27/0/0 71          [8257]   32810  70  328    16 0 0        0 >NONE                             JUMP IF A == 0
2/0/0 5279         [8258]   32811   5   61     1 0 0        0                                   TRANSFER
1/1/3 10           [8259]   32812  10          0 0 0        t                                   SELECT LITERAL
2/0/0 5281         [8260]   32813   5   61     3 0 0        0 BIT SHIFT CONTROL                 TRANSFER
24/0/2 6100        [8261]   32814 124   95     0 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 108         [8262]   32815  80  329     2 0 0        0 >PROCESS                          ENTER SUBROUTINE
1/1/3 8            [8263]   32816  10          0 0 0        8                                   SELECT LITERAL
2/0/0 5281         [8264]   32817   5   61     3 0 0        0 BIT SHIFT CONTROL                 TRANSFER
6/0/0 6089         [8265]   32818       98     1 0 0        0 NO OF ITEM+                       SELECT
27/0/0 78          [8266]   32819  70  328    23 0 0        0 >NONE                             JUMP IF A == 0
2/0/0 5279         [8267]   32820   5   61     1 0 0        0                                   TRANSFER
24/0/2 6088        [8268]   32821 124   98     0 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 108         [8269]   32822  80  329     2 0 0        0 >PROCESS                          ENTER SUBROUTINE
26/1/3 5450        [8270]   32823  91   94     0 0 3        0 UNCORR CHAP CTR                   SET MODIFICATION REGISTER AT VARIABLE
1/1/3 1            [8271]   32824  10          0 0 0        1                                   SELECT LITERAL
18/1/1 4118        [8272]   32825  32          0 0 0      10-                                   SHIFT (AB) BY QUARTETS
15/0/3 5401        [8273]   32826  36   72     3 0 3        0                                   COLLATE AND ADD
7/0/3 5401         [8274]   32827   4   72     3 0 3        0 ROUND UP CTRS                     AUGMENT
25/0/3 1           [8275]   32828  94  328    24 0 3        1                                   STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24/1/0 79          [8276] s
6/0/0 5431         [8277]   32829       71     1 0 0        0 CTR OF INDIRECT MR'S              SELECT
27/0/0 92          [8278]   32830  70  328    36 0 0        0 >NONE                             JUMP IF A == 0
2/0/0 5279         [8279]   32831   5   61     1 0 0        0                                   TRANSFER
1/1/3 2            [8280]   32832  10          0 0 0        2                                   SELECT LITERAL
2/0/0 5282         [8281]   32833   5   61     4 0 0        0 CTR INCREMENT                     TRANSFER
24/0/2 5430        [8282]   32834 124   71     0 0 2        0                                   SELECT LITERAL AND DIVISION
26/0/0 108         [8283]   32835  80  329     2 0 0        0 >PROCESS                          ENTER SUBROUTINE
1/1/3 2            [8284]   32836  10          0 0 0        2 SEQ CHANGE LIST                   SELECT LITERAL
7/0/0 6022         [8285]   32837   4   92     8 0 0        0                                   AUGMENT
4/0/0 4995         [8286]