7    1980                MERGE 52                                        MERGE52
7    1990                CONTROL CARD AND TAPE LABEL CARD INFORMATION               
6    2000   00151                                                                   
5001 2010                                                                           
5004 2020                P1                                                         
5002 2030                L1                                                         
5004 2040                P2                                                         
5002 2050                L2                                                         
5004 2060                P3                                                         
5002 2070                L3                                                         
5004 2080                P4                                                         
5002 2090                L4                                                         
5004 2100                P5                                                         
5002 2110                L5                                                         
5004 2120                INDIVIDUAL RECORD LENGTH, INPUT                            
5003 2130                INPUT GROUPING                                             
5001 2140                PADDING INDICATOR                                          
5005 2150                AVAILABLE MEMORY                                           
5010 2160                # INPUT RECORDS IF KNOWN                                   
5001 2170                HASH TOTAL INDICATOR                                       
5002 2180                # REELS OF INPUT A                                         
5002 2190                # REELS OF INPUT B                                         
5002 2200                # REELS OF INPUT C                                         
5002 2210                # REELS INPUT D                                            
5002 2220                # REELS INPUT E                                            
5002 2230                GW LENGTH                                                  
5001 2240                ORDER OF MERGE                                             
5013 2250                END OF TAPE LABEL CARD AREA                                
5003 2260                                                                           
6    3000    3000 001 -  0205                                                       
7    3001                ATTEMPT TO RECLAIM HASH TOTALS FROM UNREADABLE REC         
2035 3002            00  PROGRAM FOR RECLAIMING HASH TOTALS                         
2040 3003                FROM UNREADABLE RECORDS ON THIS TAPE                       
1    3010SEL 0207    00                                                             
1    3011RWD 0002    00                                                             
     3012RAD12220    15                                                             
1    3013SEL 0205    00                                                             
     3020RD 20020    00  READ RECORD FROM 0205                                      
     3030TRA 3230    00                                                             
     3040RCV20020+01000  G/H BEHIND HASH TOTAL                                      
     3050TMT12440    01                                                             
     3060SUB12140    15  SUBTRACT ONE                                               
     3070TRZ 3100    15                                                             
     3080ADM 3040    11  ADD RECORD LGTH TO RCV ADDR                                
     3090TR  3040    00                                                             
     3100RCV 3040-00300  RESET RCV ADDR                                             
     3110TMT 3740-00313                                                             
     3120RAD12220    15  RECORDS PER BLOCK                                          
     3121RAD12130    14  000 IN ASU 14                                              
1    3130SEL 0207    00                                                             
     3140WR 20020    00                                                             
     3150TRA 3280    00                                                             
     3160SUB12140    15  SUBTRACT ONE                                               
     3170TRZ 3200    15                                                             
     3180ADM 3140    11  ADD RECORD LENGTH TO WR ADDR                               
     3190TR  3130    00                                                             
     3200RCV 3140-00300  RESET WR ADDR                                              
     3210TMT 3750-00313                                                             
     3220TR  3012    00                                                             
1    3230SEL 0902    00  TURN OFF INDICATOR                                         
     3240TRS 3250    00                                                             
1    3250SEL 0205    00                                                             
     3260TRS 3390    00                                                             
     3270TR  3040    00  TO CONTINUE                                                
1    3280SEL 0901    00                                                             
     3290TRS 3729    00  HASH TOTAL CONTAINS REDUNDANT CHARACTER                    
1    3300SEL 0902    00                                                             
     3310TRS 3350    00                                                             
1    3320SEL 0207    00                                                             
     3330TRS 3731    00  EOF WRITING 0207                                           
     3340TR  3160    00  TO CONTINUE                                                
1    3350SEL 0207    00                                                             
1    3360BSP 0004    00                                                             
     3370NTR 3140    14                                                             
     3380TR  3731    00  PRESISTENT 0902                                            
1    3390SEL 0205    00                                                             
1    3400IOF 0000    00                                                             
1    3410RWD 0002    00                                                             
1    3460SEL 0207    00                                                             
1    3470WTM 0001    00                                                             
1    3480RWD 0002    00                                                             
     3490RAD12130    14  000 IN ASU 14                                              
1    3500RD  0000    00                                                             
     3510TRA 3560    00                                                             
1    3520LOD 0009    05  LOAD HASH TOTAL                                            
     3530ADD12160    05  STRIP ZONING                                               
     3540ADM12020    05  ADD TO ACCUMULATED HASH TOTAL                              
     3550TR  3500    00                                                             
1    3560SEL 0902    00                                                             
     3570TRS 3610    00                                                             
1    3580SEL 0207    00                                                             
     3590TRS 3641    00  TO COMPARE HASH TOTALS                                     
     3600TR  3520    00  TO CONTINUE                                                
1    3610SEL 0207    00                                                             
1    3620BSP 0004    00                                                             
     3630NTR 3500    14                                                             
     3640TR  3734    00  PERSISTENT 0902                                            
1    3641IOF 0000    00                                                             
1    3642RWD 0002    00                                                             
     3650LOD12020    05  LOAD HASH TOTAL ACCUMULATED FROM RECORDS                   
     3660CMP12040    05  COMPARE TO HASH TOTAL ACCUMULATED                          
     3670TRE 3701    00  FROM END OF INPUT TAPES                                    
     3671RAD12100    14                                                             
     3672ADD12120    14                                                             
     3673ADM 3701    14  REVISE RCV ADDRESS                                         
1    3680SET 0012    14  REVISE HASH TOTAL MSG                                      
     3690LOD 3760    14                                                             
     3700UNL 3770    14                                                             
     3701RCV 3770-00600  PLACE G/M                                                  
     3702TMT12360    01                                                             
1    3710SEL 0500    00                                                             
     3720WR  3770-02700  HASH TOTAL MSG                                             
     3721UNL11430-00401  SW 59B TO TR                                               
     3722TR 11310    00                                                             
1    3729SEL 0902    00  TURN OFF INDICATOR                                         
     3730TRS 3731    00                                                             
1    3731SEL 0205    00                                                             
1    3732IOF 0000    00                                                             
1    3733RWD 0002    00                                                             
1    3734SEL 0207    00                                                             
1    3735IOF 0000    00                                                             
1    3736RWD 0002    00                                                             
     3737TR 11310    00                                                             
7    3739                CONSTANTS                                                  
3    3740   20020+010    ADDR TO PLACE G/M BEHIND FIRST HASH TOTAL                  
3    3750   20020        ADDR OF FIRST HASH TOTAL                                   
2012 3760                DO NOT AGREE                                               
2028 3770                I/O HASH TOTALS AGREE                                      
2001 3780                                                                           
6    3900    3000                                                                   
1    3910RCV 0000    00  PLACE G/M AT END OF LAST WRITE AREA                        
     3920TMT12010    01                                                             
7    4001                WRITE A CHECKPOINT                                         
     4010TRA 4270    00                                                             
1    4020SEL 0902    00                                                             
     4030TRS 4270    00                                                             
1    4040SEL 0901    00                                                             
     4050TRS 4270    00                                                             
     4060ST 12730    03                                                             
     4070ST 12740    04                                                             
     4080ST 12750    06                                                             
     4090ST 12760    07                                                             
     4100ST 12770    08                                                             
     4110ST 20060    09                                                             
     4120ST 30050    10                                                             
     4130ST 12780    12                                                             
     4140RAD12130    14                                                             
1    4150SEL 0207    00  WRITE ALL OF MEMORY ON 0207                                
1    4160WR  0000    01                                                             
1    4170WR 19999    01                                                             
     4180TRA 4200    00                                                             
1    4190TR          00  SWITCH 9                                                   
7    4191                ERROR WRITING CHECKPOINT                                   
1    4200SEL 0207    00  BACKSPACE 0207                                             
1    4210BSP 0004    00                                                             
1    4220BSP 0004    00                                                             
1    4230SEL 0901    00                                                             
     4240TRS 4290    00                                                             
1    4250SEL 0902    00                                                             
     4260TRS 4340    00                                                             
1    4270HLT 0010    00  FALSE TRA  GO TO RESTART                                   
     4280TR  4430    00  GO TO RESTART                                              
     4290RCV12310    00  PUT 7 IN ERROR                                             
     4300TMT 4200    01  MESSAGE                                                    
1    4310SEL 0500    00                                                             
     4320WR 12300+00100                                                             
     4330TR  4430    00  GO TO RESTART                                              
     4340RCV12390    00  PUT 7 IN ERROR MESSAGE                                     
     4350TMT 4200    01  902 WRITING C/P                                            
1    4360SEL 0500    00                                                             
     4370WR 12380+00100                                                             
     4380RCV 4540-00300                                                             
     4390TMT11900-00313                                                             
     4400NTR 4150    14                                                             
1    4410HLT 0011    00  PERSISTENT 902 WRITING C/P  START TO TRY AGAIN             
     4420TR  4140    00  BACK TO TRY WRITING 3 MORE TIMES                           
7    4421                RESTART PROCEDURE                                          
1    4430SET 0000    00  CLEAR 00 AND ASU                                           
1    4440SET 0256    00                                                             
1    4450SET 0000    01                                                             
1    4460SET 0260    01                                                             
     4470RCV 4540-00300  TR ADDRESS AFTER TURNING OFF                               
     4480TMT11910-00301  ERROR LIGHTS                                               
     4490TRA 4500    00                                                             
1    4500SEL 0901    00                                                             
     4510TRS 4520    00                                                             
1    4520SEL 0902    00                                                             
     4530TRS 4540    00                                                             
1    4540TR          00  SWITCH 10                                                  
1    4550SEL 0201    00                                                             
1    4560IOF 0000    00                                                             
1    4570RWD 0002    00                                                             
     4580RAD12140    01  SET ASU 01 TO 1                                            
     4590TR 11050    00  TO REWIND INPUT TAPES                                      
1    4600IOF 0000    00                                                             
1    4610RWD 0002    00                                                             
     4620RAD12130    14  SET ASU 14                                                 
1    4630SEL 0207    00  SELECT C/P TAPE                                            
1    4640BSP 0004    00                                                             
1    4650BSP 0004    00                                                             
1    4660RD  0000    00  READ C/P TAPE                                              
1    4670RD 19999    00                                                             
     4680TRA 4990    00                                                             
     4690RAD12590    00  CTR A                                                      
     4700TRZ 4750    00                                                             
1    4710SEL 0200    00                                                             
1    4720RD  0000    01                                                             
     4730SUB12140    00                                                             
     4740TR  4700    00                                                             
     4750RAD12600    00  CTR B                                                      
     4760TRZ 4810    00                                                             
1    4770SEL 0202    00                                                             
1    4780RD  0000    01                                                             
     4790SUB12140    00                                                             
     4800TR  4760    00                                                             
     4810RAD12610    00  CTR C                                                      
     4820TRZ20100    00                                                             
1    4830SEL 0204    00                                                             
1    4840RD  0000    01                                                             
     4850SUB12140    00                                                             
     4860TR  4820    00                                                             
     4870RAD12640    00  CTR R                                                      
     4880TRZ 4930    00                                                             
1    4890SEL 0201    00                                                             
1    4900RD  0000    01                                                             
     4910SUB12140    00                                                             
     4920TR  4880    00                                                             
     4930RAD12650    00  CTR U                                                      
     4940TRZ 5050    00  TRANSFER TO RESET ALL ASU CONTENTS                         
1    4950SEL 0205    00                                                             
1    4960RD  0000    01                                                             
     4970SUB12140    00                                                             
     4980TR  4940    00                                                             
1    4990SEL 0902    00                                                             
     5000TRS 5020    00                                                             
     5010TR  4270    00  HALT                                                       
     5020NTR 4630    14                                                             
1    5030HLT 0012    00  902 READING C/P DURING R/S                                 
     5040TR  4620    00  MAKE THREE MORE ATTEMPTS TO READ                           
7    5041                SET UP ASUS                                                
     5050RAD12140    01  1 TO # 1                                                   
1    5060SET 0001    02                                                             
     5070LOD12140    02  A TO 02                                                    
     5080RAD12730    03  # RECORDS IN WRITE AREA IN 3 # R/B INITIALLY               
     5090RAD12740    04  # OF WR AREAS BEFORE RETURNING TO FIRST                    
1    5100SET 0010    05  FOR HASH TOTAL                                             
     5110RAD12750    06  # OF REC IN A BEFORE RETURNING TO FIRST                    
     5120RAD12760    07  # OF REC IN B BEFORE RETURNING TO FIRST                    
     5130RAD12770    08  # OF REC IN C BEFORE RETURNING TO FIRST                    
     5140RAD20060    09  # OF REC IN D BEFORE RETURNING TO FIRST                    
     5150RAD30050    10  # OF REC IN E BEFORE RETURNING TO FIRST                    
     5160RAD12200    11  RECORD LENGTH 4 PLACES                                     
     5170RAD12780    12  # OF REC IN WR AREA BEFORE RETURNING TO FIRST              
1    5180SET 0004    13                                                             
     5190LOD12790    13  COMPLIMENT TO RESTORE TMTS                                 
1    5200SET         00  SET ACC TO CONTROL WORD LENGTH                             
     5210TR  4190    00  SWITCH 1A                                                  
1    5220TR  0004    00                                                             
7    5221                INITIAL READ IN ROUTINE                                    
     5230NOP 5330    00  SW 2A TR IF NO TAPE LABEL ON INPUT                         
1    5240SEL 0200    00  READ TAPE LABEL                                            
1    5250RWW 0000    00                                                             
1    5260RD  0000    00                                                             
     5270TMT12440    01                                                             
1    5280SEL 0500    00                                                             
     5290WR 12320+00100  WRITE TAPE #                                               
1    5300WR  0000    00  TYPE TAPE LABEL                                            
1    5310HLT 0013    00  AFTER TYPING TAPE LABEL  EXAMINE AND START                 
     5320ADM12590    01                                                             
     5330RAD12130    14  RESTORE CTR FOR ERROR ROUTINES                             
     5340ADM12590    01  ADD 1 TO CTR A, B, C, D, OR E                              
1    5350SEL 0200    00  READ FIRST RECORD                                          
1    5360RWW 0000    00                                                             
1    5361RD  0000    00                                                             
     5362NOP10390    00  SWITCH 2B TR FOR SINGLE RECORDS NOT ENDING IN R/M          
     5370TRA 5400    00                                                             
1    5380TR  0079    00                                                             
     5390TR  7400    00  TO CONTINUE MERGING                                        
7    5391                TRA ROUTINE FOR INITIAL READ IN                            
1    5400SEL 0902    00                                                             
     5410TRS 5470    00                                                             
1    5420SEL 0200    00                                                             
     5430TRS 5450    00                                                             
     5440TR  4270    00  HALT                                                       
1    5450HLT 0014    00  EOF READING FIRST RECORD   CHANGE TAPE + START             
     5460TR  4430    00  TRANSFER TO RESTART                                        
     5470RCV12270    00  WRITE ERROR MESSAGE                                        
     5480TMT 5350    01                                                             
     5490RCV 5620    00  TAPE # TO BACKSPACE INSTRUCTION                            
     5500TMT 5350    01                                                             
1    5510SEL 0500    00                                                             
     5520WR 12270-01100                                                             
     5530RCV 4540-00300                                                             
     5540TMT11920-00313                                                             
     5550TR  4490    00                                                             
     5560NTR 5620    14                                                             
     5570RCV10250-00300  SET RETURN ADDRESSES READ ADDRESS                          
     5580TMT 5360-00313  INTO WRITE UNREADABLE ADDRESS                              
     5590RCV10380-00300  RETURN ADDR IF RECORD IS NOT CORRECTED                     
     5600TMT11850-00313                                                             
     5610TR 10220    00  WRITE RECORD ON ERROR TAPE                                 
1    5620SEL 0200    00  BACKSPACE FOR 902                                          
1    5630BSP 0004    00  AND TRY TO                                                 
     5640TR  5360    00  READ AGAIN                                                 
7    5641                MERGE                                                      
     5650NOP 5920    00  SWITCH 11 TR AT END OF INPUT A                             
     5660LOD12830    00  LOAD C W A                                                 
     5670NOP 5700    00  SWITCH 12 TR AT END OF INPUT B                             
     5680CMP12850    00  COMPARE A TO B                                             
     5690TRH 5920    00  A B                                                        
     5700NOP 5730    00  SWITCH 13 TR AT END OF INPUT C                             
     5710CMP12870    00  COMPARE A TO C                                             
     5720TRH 6160    00  A C                                                        
     5730NOP20210    00  SWITCH 14 TR FOR 4 OR 5 WAY                                
7    5731                TMT A TO WRITE AREA                                        
1    5740RCV 0004    00                                                             
1    5750TMT 0004    00                                                             
     5760RCV 7340    00  PLACE # OF TAPE UNIT A TO RWW                              
     5770TMT12060-00401  SEQ ROUTINE                                                
     5780UNL 6690-00401  SW 25 TO TR                                                
     5790SUB12140    06  TEST FOR LAST RECORD IN A                                  
     5800TRZ 5850    06                                                             
     5810ADM 5830    11  ADD RECORD LENGTH TO MOVE NEXT RECORD                      
1    5820RCV 0004    00  MOVE NEXT RECORD INTO POSITION OF FIRST                    
1    5830TMT 0004    00                                                             
     5840TR  6360    00  TO SEQUENCE CHECK                                          
7    5841                LAST RECORD USED FROM AREA A                               
     5850RAD12220    06  RESTORE RECORD CTR                                         
     5860ADM 5830    13  RESTORE ADDRESS BY COMPLIMENTING                           
     5870RCV 7320-00300                                                             
     5880TMT11810-00313  ADDR CTR A TO ADD MEM INSTR                                
     5890RCV 7350-00300  ADDRESS OF A TO                                            
     5900TMT11740-00313  RWW                                                        
     5910TR  6350    00                                                             
7    5911                A B                                                        
     5920NOP 6170    00  SW 15 TR AT END OF INPUT B                                 
     5930LOD12850    00                                                             
     5940NOP 5970    00  SW 16 TR AT END OF INPUT C                                 
     5950CMP12870    00  COMPARE B TO C                                             
     5960TRH 6170    00  B C                                                        
     5970NOP20190    00  SW 17 TR FOR 4 OR 5 WAY                                    
7    5971                TMT B TO WRITE AREA                                        
1    5980RCV 0004    00                                                             
1    5990TMT 0004    00                                                             
     6000RCV 7340    00  PLACE # OF TAPE UNIT B INTO RWW                            
     6010TMT12060-00301  SEQ ROUTINE                                                
     6020UNL 6700-00401  SW 26 TO TR                                                
     6030SUB12140    07  TEST FOR LAST RECORD IN B                                  
     6040TRZ 6090    07                                                             
     6050ADM 6070    11  ADD RECORD LENGTH TO MOVE NEXT RECORD                      
1    6060RCV 0004    00  MOVE NEXT RECORD INTO POSITION OF FIRST                    
1    6070TMT 0004    00                                                             
     6080TR  6360    00  TO SEQUENCE CHECK                                          
7    6081                LAST RECORD IN B                                           
     6090RAD12220    07  RESTORE RECORD CTR                                         
     6100ADM 6070    13  RESTORE ADDRESS BY COMPLIMENTING                           
     6110RCV 7320-00300                                                             
     6120TMT11820-00313  ADDR CTR B TO ADD MEM INSTR                                
     6130RCV 7350-00300  ADDRESS OF B TO                                            
     6140TMT11750-00313  RWW                                                        
     6150TR  6350    00                                                             
7    6151                A GREATER THANM C B GREATER THAN C                         
     6160UNL 6840-00401  SW 28 TO TR                                                
     6170LOD12870    00  LOAD CONTROL WORD C                                        
     6180NOP20160    00  SW 18 TR FOR 4 OR 5 WAY                                    
1    6190RCV 0004    00  MOVE C TO WRITE AREA                                       
1    6200TMT 0004    00                                                             
     6210RCV 7340    00  PLACE # OF TAPE UNIT C TO RWW                              
     6220TMT12060-00201  SEQ ROUTINE                                                
     6230SUB12140    08  TEST FOR LAST RECORD IN C                                  
     6240TRZ 6290    08                                                             
     6250ADM 6270    11  ADD RECORD LENGTH TO MOVE NEXT RECORD                      
1    6260RCV 0004    00  MOVE NEXT RECORD INTO POSITION OF FIRST                    
1    6270TMT 0004    00                                                             
     6280TR  6360    00  TRANSFER TO SEQUENCE CHECK                                 
7    6281                LAST RECORD IN C                                           
     6290RAD12220    08  RESTORE RECORD CTR                                         
     6300ADM 6270    13  RESTORE ADDRESS BY COMPLIMENTING                           
     6310RCV 7320-00300                                                             
     6320TMT11830-00313                                                             
     6330RCV 7350-00300  ADDRESS OF C TO                                            
     6340TMT11760-00313  RWW                                                        
     6350UNL 6680-00401  SW 24 TO TR                                                
7    6351                SEQUENCE CHECK                                             
     6360CMP11980    00                                                             
     6370TRH 6510    00                                                             
     6380TRE 6510    00                                                             
7    6381                OUT OF SEQUENCE                                            
     6390RCV 6430    00  TAPE # OF SEL INSTR                                        
     6400TMT 7340    01                                                             
     6410RCV12420+00400  TAPE # TO ERROR MESSAGE                                    
     6420TMT 6430    01                                                             
1    6430SEL 0200    00                                                             
1    6440BSP 0004    00                                                             
1    6450RD  0000    00                                                             
1    6460SEL 0500    00                                                             
     6470WR 12420+00100                                                             
1    6471HLT 0015    00  OUT OF SEQUENCE                                            
1    6480WR  0000    00                                                             
     6500TR  6471    00                                                             
     6510UNL11980    00  UNLOAD CW FOR NEXT COMPARISON                              
     6520TR  6560    00  SW 22 TR IF BLANK PADDING                                  
     6530CMP11990    00                                                             
     6540TRE10390    00                                                             
1    6560LOD 0009    05  HASH                                                       
     6570ADD12160    05  STRIP ZONING                                               
     6580ADM12000    05  ADD TO HASH TOTAL                                          
     6590SUB12140    03  TEST TO SEE IF END OF WRITE AREA                           
     6600TRZ 7210    03                                                             
     6610ADM 6560    11  ADD RECORD LENGTH TO GET NEXT HASH TOTAL FIGURE            
     6620ADM 5740    11  ADD RECORD LENGTH TO RCVS                                  
     6630ADM 5980    11                                                             
     6640ADM 6190    11                                                             
     6650ADM20340    11                                                             
     6660ADM30180    11                                                             
     6670RAD12200    11  RECORD LENGTH                                              
     6680NOP 7290    00  SWITCH 24                                                  
     6690NOP 6910    00  SWITCH 25 TR TO PULL CW A                                  
     6700NOP 7060    00  SWITCH 26 TR TO PULL CW B                                  
     6710NOP20520    00  SWITCH 27 TR TO PULL CW D OR E                             
1    6720SET 0000    14  PULL CW C                                                  
     6730RCV12870    00                                                             
1    6740TMT 0000    14                                                             
1    6750SET 0000    14                                                             
1    6760TMT 0000    14                                                             
1    6770SET 0000    14                                                             
1    6780TMT 0000    14                                                             
1    6790SET 0000    14                                                             
1    6800TMT 0000    14                                                             
1    6810SET 0000    14                                                             
1    6820TMT 0000    14                                                             
     6830RAD12140    01  RESTORE ASU 01 TO ONE                                      
     6840NOP 6870    00  SWITCH 28                                                  
     6850TR  5920    00  SWITCH 29 NOP FOR EOF A+B+C                                
     6860TR 20680    00  EOF ABC ON 4 OR 5 WAY                                      
     6870UNL 6840-00402  SW 28 TO NOP                                               
     6880LOD12830    00                                                             
     6890TR  5700    00  SW 30 NOP FOR EOF A+B+C                                    
     6900TR 20680    00  EOF ABC ON 4 OR 5 WAY                                      
1    6910SET 0000    14  PULL CW A                                                  
     6920RCV12830    00                                                             
1    6930TMT 0000    14                                                             
1    6940SET 0000    14                                                             
1    6950TMT 0000    14                                                             
1    6960SET 0000    14                                                             
1    6970TMT 0000    14                                                             
1    6980SET 0000    14                                                             
1    6990TMT 0000    14                                                             
1    7000SET 0000    14                                                             
1    7010TMT 0000    14                                                             
     7020RAD12140    01  RESTORE ASU # 01 TO ONE                                    
     7030UNL 6690-00402  SW 25 TO NOP                                               
     7040TR  5650    00  SW 32 NOP FOR EOF A+B+C                                    
     7050TR 20680    00  EOF ABC ON 4 OR 5 WAY                                      
1    7060SET 0000    14  PULL CW B                                                  
     7070RCV12850    00                                                             
1    7080TMT 0000    14                                                             
1    7090SET 0000    14                                                             
1    7100TMT 0000    14                                                             
1    7110SET 0000    14                                                             
1    7120TMT 0000    14                                                             
1    7130SET 0000    14                                                             
1    7140TMT 0000    14                                                             
1    7150SET 0000    14                                                             
1    7160TMT 0000    14                                                             
     7170RAD12140    01                                                             
     7180UNL 6700-00402  SW 26 TO NOP                                               
     7190TR  5650    00  SW 31 NOP FOR EOF A+B+C                                    
     7200TR 20680    00  EOF ABC ON 4 OR 5 WAY                                      
     7210RAD12220    03  RESTORE ASU # 03                                           
     7220SUB12140    12  TESC FOR END OF LAST WRITE AREA                            
     7230TRZ 7260    12                                                             
     7240RAD12190    11  RECORD LENGTH PLUS 5 TO GET BEGINNING OF NEXT              
     7250TR  6610    00                                                             
     7260LOD12800    11  COMPLIMENT ADDED TO RESTORE RCVS                           
     7270RAD12240    12  RESTORE ASU 12                                             
     7280TR  6610    00  INTO WR ADDRESS                                            
     7290NOP10390    00  SWITCH 36                                                  
     7300NOP11680    00  SWITCH 37                                                  
     7310ADM12640    01  ADD 1 TO CTR R                                             
1    7320ADM 0000    00                                                             
     7330RAD12130    14  000 IN ASU 14                                              
1    7340SEL 0200    00                                                             
1    7350RWW 0000    00                                                             
1    7360SEL 0201    00                                                             
1    7370WR  0000    00                                                             
     7371NOP10430    00  SW 23 TR FOR SINGLE REC NOT ENDING IN R/M                  
     7380TRA 7500    00                                                             
     7390ADM12660    01  ADD 1 TO BLOCKS MERGED                                     
     7400UNL 6680-00402  SW 24 TO NOP                                               
     7410SUB12140    04  TEST IF LAST WR AREA JUST USED                             
     7420TRZ 7460    04                                                             
     7430RAD12210    14  MODIFY WR ADDRESS                                          
     7440ADM 7370    14                                                             
     7450TR  6690    00                                                             
     7460RAD12240    04  RESTORE ASU 04                                             
     7470RCV 7370-00300  RESET WRITE ADDRESS                                        
     7480TMT11770-00313                                                             
     7490TR  6690    00                                                             
7    7491                TRA ROUTINE                                                
     7500LOD 7340    01  # OF TAPE READ                                             
     7510UNL 8430    01                                                             
     7520UNL 7750    01                                                             
     7530UNL 5240    01                                                             
     7540UNL 5350    01                                                             
     7550UNL12330    01  INTO TAPE LABEL MESSAGE                                    
     7560UNL12350    01                                                             
     7570UNL12370-00501                                                             
     7580UNL 9810    01                                                             
     7590UNL 9880    01                                                             
     7600UNL10010    01                                                             
     7610UNL12310    01  TAPE NUMBER TO ERROR MESSAGE                               
     7620UNL 9340    01                                                             
     7630UNL 5420    01                                                             
     7640UNL 9060    01                                                             
     7650UNL 9210    01                                                             
     7660UNL 9140    01                                                             
     7670UNL12490    01  INTO HASH TOTAL MSG                                        
     7680RAD12140    01  RESTORE ASU # 1 TO 1                                       
1    7690SEL 0901    00  TEST 0901                                                  
     7700TRS 8700    00                                                             
1    7710SEL 0902    00  TEST 0902                                                  
     7720TRS 9760    00                                                             
1    7730SEL 0201    00  END OF FILE ON OUTPUT                                      
     7740TRS 7780    00                                                             
1    7750SEL 0200    00  TEST FOR EOF ON INPUT                                      
     7760TRS 8730    00                                                             
     7770TR  4270    00  HALT                                                       
7    7771                END OF FILE ON OUTPUT                                      
1    7780SEL 0203    00  WAS TAPE CHANGED AT LAST EOF QUEST                         
     7790TRS 8660    00                                                             
     7800RAD12130    14                                                             
1    7810SEL 0201    00                                                             
1    7820WTM 0001    00                                                             
1    7830IOF 0000    00                                                             
     7840WR 12000-00900  WRITE HASH TOTAL ON OUTPUT TAPE                            
     7850TRA 7930    00                                                             
     7860LOD12000    05  HASH TOTAL FOR EACH O/P TAPE                               
     7870ADM12020    05  ADD TO ACCUMULATED HASH TOTAL                              
1    7880SET 0000    05                                                             
1    7890SET 0010    05                                                             
     7900UNL12000    05  RESET HASH TOTAL TO ZERO                                   
1    7910ION 0003    00                                                             
     7920TR  8030    00  TO REWIND TAPE                                             
1    7930SEL 0901    00                                                             
     7940TRS 8700    00                                                             
1    7950SEL 0902    00                                                             
     7960TRS 7980    00                                                             
     7970TR  7860    00  TO CONTINUE                                                
1    7980SEL 0201    00                                                             
1    7990BSP 0004    00                                                             
     8000NTR 7840    14                                                             
1    8010HLT 0016    00  PERSISTENT 902 WRITING HASH TOTAL                          
     8020TR  7840    00                                                             
1    8030RWD 0002    00                                                             
     8040NOP11021    00  SWITCH 53 TR FOR END OF JOB                                
     8050NOP 8600    00  SWITCH 54                                                  
     8060UNL 8050-00401  SW 54 TO TR                                                
     8070UNL12290    01  TAPE NO INTO MESSAGE                                       
     8080UNL 7780    01  AND INTO SELECT                                            
     8090LOD12070    01  LOAD # OF SECOND O/P TAPE                                  
     8100UNL 7360    01  PLACE IN RWW AND SELECT INSTRUCTIONS                       
     8110UNL 7730    01  FOR EOF                                                    
     8120UNL 8390    01  TO WRITE TAPE LABEL                                        
     8130UNL 8510    01                                                             
     8140UNL 4550    01                                                             
     8150UNL 4890    01                                                             
     8160UNL12370    01  902 ERROR MESSAGE FOR RWW                                  
     8170UNL 9830    01  TO BACKSPACE TAPE                                          
     8180UNL 9940    01  TO SEPARATE WRITE                                          
     8190UNL12390    01  902 ERROR MESSAGE FOR WRITE                                
     8200UNL10190    01                                                             
     8210UNL12310    01                                                             
     8220UNL 7810    01                                                             
     8230UNL 7980    01                                                             
     8240RAD12140    01  RESTORE ASU # 1 TO 1                                       
     8250RAD12110    14  SET CTR R TO ZERO                                          
     8260ST 12640    14                                                             
     8270RCV 4190-00300                                                             
     8280TMT11780-00313                                                             
     8290TR  4010    00  TR TO C/P                                                  
1    8300SEL 0500    00                                                             
     8310WR 12290-01000  WRITE # OF COMPLETED TAPE                                  
     8320RCV 4540-00300                                                             
     8330TMT11930-00313                                                             
     8340TR  4490    00                                                             
     8350RCV 4190-00300                                                             
     8360TMT11880-00313                                                             
     8370TR  4010    00                                                             
     8380NOP 8430    00  SW 55 TR IF NO TAPE LABEL                                  
1    8390SEL 0203    00  WRITE TAPE LABEL                                           
     8400WR  2250-08000                                                             
     8410TRA 8460    00                                                             
     8420ADM12640    01                                                             
1    8430SEL 0200    00  TEST FOR END OF INPUT                                      
     8440TRS 8570    00                                                             
     8450TR  7390    00                                                             
1    8460SEL 0901    00                                                             
     8470TRS 8700    00                                                             
1    8480SEL 0902    00                                                             
     8490TRS 8510    00                                                             
     8500TR  4270    00  HALT                                                       
1    8510SEL 0203    00                                                             
1    8520BSP 0004    00                                                             
1    8530SEL 0500    00                                                             
     8540WR 12380+00100                                                             
1    8550HLT 0017    00  902 WRITING TAPE LABEL  START TO TRY AGAIN                 
     8560TR  8390    00                                                             
     8570RCV 4190-00300  SW 9 TO GO TO EOF INPUT ROUTINE                            
     8580TMT11790-00313                                                             
     8590TR  4010    00  TO CHECK POINT                                             
     8600UNL 8050-00402  SW 54 TO NOP                                               
     8610LOD 7360    01  TAPE # INTO MESSAGE                                        
     8620UNL12290    01  AND INTO SELECT                                            
     8630UNL 7780    01                                                             
     8640RAD12140    01  LOAD NO OF 1ST OUTPUT TAPE                                 
     8650TR  8100    00                                                             
1    8660SEL 0500    00                                                             
     8670WR 12270+00200  WRITE MESSAGE AGAIN                                        
1    8680HLT 0018    00  CHANGE OUTPUT TAPE                                         
     8690TR  7780    00                                                             
     8700RCV12310    00                                                             
     8710TMT 7360    01                                                             
     8720TR  4310    00                                                             
7    8721                END OF FILE ON INPUT                                       
     8730RCV 5340-00300  CORRECT CTR IN ADD MEM INSTR                               
     8740TMT 7320-00313                                                             
     8750RCV 5320-00300                                                             
     8760TMT 7320-00313                                                             
     8770RCV 8800-00300                                                             
     8780TMT 7320-00313                                                             
     8790RAD12110    01  SET CTR TO ZERO                                            
1    8800ST  0000    01                                                             
     8810RAD12140    01                                                             
     8820ADM12660    01  ADD 1 TO BLOCKS MERGED                                     
1    8830SET 0001    00                                                             
     8840LOD 7340    00  LAST DIGIT OF INPUT TAPE ADDR                              
     8850MPY12170    00  TO DETERMINE CORRECT EOF ROUTINE                           
1    8860SHR 0001    00                                                             
     8870ADD12180    00  ADDR OF EOF A TRANSFER INSTR                               
     8880UNL 8900    00                                                             
1    8890SET 0000    00  RESET ACC                                                  
1    8900TR  00      00  SW 44 TR TO CORRECT EOF ROUTINE                            
     8910TR  9660    00  EOF A                                                      
     8920TR  9550    00  EOF B                                                      
     8930TR  8960    00  EOF C                                                      
     8940TR 20780    00  EOF D                                                      
     8950TR 30620    00  EOF E                                                      
7    8951                END OF FILE C                                              
     8960RAD12690    14  # OF REELS OF C                                            
     8970SUB12140    14                                                             
     8980TRZ 9390    14  END OF ALL REELS OF C                                      
     8990ST 12690    14  # OF REELS OF C REMAINING                                  
1    9000SET 0004    14                                                             
     9010LOD11760    14  READ IN ADDRESS OF C                                       
     9020UNL 5250    14                                                             
     9030UNL 5300    14                                                             
     9040UNL 5360    14                                                             
     9050RAD12130    14                                                             
1    9060SEL 0200    00                                                             
     9070NOP 9250    00  SWITCH 45                                                  
1    9080IOF 0000    00                                                             
     9090RD 12050-00900  READ HASH TOTAL FROM END OF TAPE                           
     9100TRA 9140    00                                                             
     9110LOD12050    05                                                             
     9120ADM12040    05  ACCUMULATE HASH TOTALS FROM INPUT                          
     9130TR  9250    00  TRANSFER TO REWIND TAPE                                    
1    9140SEL 0200    00                                                             
     9150TRS 9190    00                                                             
1    9160SEL 0902    00                                                             
     9170TRS 9190    00                                                             
     9180TR  4270    00  HALT                                                       
1    9190SEL 0500    00                                                             
     9200WR 12490-02200  902 READING HASH TOTAL                                     
1    9210SEL 0200    00                                                             
1    9220BSP 0004    00                                                             
     9230NTR 9060    14                                                             
     9240UNL11190-00401  SW 59A TO TR                                               
     9250NOP 9440    00  SWITCH 46                                                  
1    9260RWD 0002    00                                                             
1    9270ION 0003    00                                                             
     9280RCV 4190-00300                                                             
     9290TMT11870-00313                                                             
     9300TR  4010    00  TO CHECKPOINT                                              
1    9310SEL 0500    00  TYPE # OF TAPE TO BE CHANGED                               
     9320WR 12340+00100  CHANGE 0204                                                
1    9330HLT 0020    00  CHANGE INPUT TAPE                                          
1    9340SEL 0200    00  TAPE HAS NOT BEEN CHANGED                                  
     9350TRS 9310    00  TYPE MSG AND HALT AGAIN                                    
     9360RCV 4190-00300  SWITCH 9 TO INITIAL READ IN ROUTINE                        
     9370TMT11860-00313                                                             
     9380TR  4010    00  TO CHECK POINT                                             
     9390UNL 5700-00401  SW 13 TO TR                                                
     9400UNL 5940-00401  SW 16 TO TR                                                
     9410UNL 9470-00402  SW 51 TO NOP                                               
     9420UNL 9250-00401  SW 46 TO TR                                                
     9430TR  9050    00                                                             
     9440UNL 9250-00402  SW 46 TO NOP                                               
     9450TR  9520    00  SWITCH 49                                                  
     9460TR  9520    00  SWITCH 50                                                  
     9470TR  9520    00  SWITCH 51                                                  
     9480NOP20990    00  SWITCH 52 TR FOR 4 OR 5 WAY EXCEPT EOF D+E                 
     9490RCV 4190-00300  SW 9 TO END OF JOB                                         
     9500TMT11800-00313                                                             
     9510TR  4010    00  TRANSFER TO CHECK POINT                                    
     9520RCV 4190-00300  SW 9 TO CONTINUE MERGE                                     
     9530TMT11720-00313                                                             
     9540TR  4010    00  TO CHECK POINT                                             
7    9541                END OF FILE 8                                              
     9550RAD12680    14  # OF REELS OF 8                                            
     9560SUB12140    14                                                             
     9570TRZ 9620    14  END OF ALL REELS OF 8                                      
     9580ST 12680    14                                                             
1    9590SET 0004    14                                                             
     9600LOD11750    14  READ IN ADDRESS OF 8                                       
     9610TR  9020    00                                                             
     9620UNL 5670-00401  SW 12 TO TR                                                
     9630UNL 5920-00401  SW 15 TO TR                                                
     9640UNL 9460-00402  SW 50 TO NOP                                               
     9650TR  9420    00                                                             
7    9651                END OF FILE A                                              
     9660RAD12670    14  # OF REELS OF A                                            
     9670SUB12140    14                                                             
     9680TRZ 9730    14  END OF ALL REELS OF A                                      
     9690ST 12670    14                                                             
1    9700SET 0004    14                                                             
     9710LOD11740    14  READ IN ADDRESS OF A                                       
     9720TR  9020    00                                                             
     9730UNL 5650-00401  SW 11 TO TR                                                
     9740UNL 9450-00402  SW 49 TO NOP                                               
     9750TR  9420    00                                                             
1    9760SEL 0500    00                                                             
     9770WR 12360+00100  WRITE ERROR MESSAGE.                                       
     9780RCV 4540-00300                                                             
     9790TMT11940-00313                                                             
     9800TR  4490    00                                                             
1    9810SEL 0200    00                                                             
1    9820BSP 0004    00                                                             
1    9830SEL 0201    00                                                             
1    9840BSP 0004    00                                                             
     9850NTR 7340    14                                                             
     9860RCV 9890-00300 SEPERATE READ ROUTINE                                       
     9870TMT 7350-00313 PLACE READ ADDRESS FOR READ                                 
1    9880SEL 0200    00                                                             
1    9890RWW         00                                                             
1    9891RD  0000    00                                                             
     9892NOP10470    00 SW 57A TR FOR SINGLE REC NOT ENDING IN R/M                  
     9900TRA 9990    00                                                             
     9910UNL 9970-00402 SW 57B TO NOP                                               
7    9911               SEPARATE WRITE ROUTINE.                                     
     9920RCV 9950-00300 WRITE ADDRESS TO SEPARATE ROUTINE.                          
     9930TMT 7370-00313 FROM RWW                                                    
1    9940SEL 0201    00 WRITE                                                       
1    9950WR          00                                                             
     9960TRA10110    00 TRA QUEST                                                   
     9970NOP 8730    00 SW 57B NOP IF ERROR CORRECTED ITSELF                        
     9980TR  7390    00 BACK TO MAIN ROUTINE.                                       
1    9990SEL 0902    00 ERROR ON RD                                                 
    10000TRS10060    00                                                             
1   10010SEL 0200    00 END OF FILE ON INPUT QUEST                                  
    10020TRS10040    00                                                             
    10030TR  4270    00 HALT                                                        
    10040UNL 9970-00401 SW 57B TO TR                                                
    10050TR  9920    00 TO SEPARATE WRITE ROUTINE                                   
    10060RCV10250-00300 READ ADDRESS INTO UNREADABLE ROUTINE                        
    10070TMT 9890-00313                                                             
    10080RCV10380-00300                                                             
    10090TMT11840-00313 RETURN ADDRESS IF RECORD IS DROPPED                         
    10100TR 10220    00                                                             
1   10110SEL 0901    00                                                             
    10120TRS 8700    00                                                             
1   10130SEL 0902    00                                                             
    10140TRS10160    00 TR TO TEST FOR EOF ON OUTPUT                                
    10150TR  7730    00                                                             
1   10160SEL 0500    00 WRITE ERROR MESSAGE                                         
    10170WR 12380+00100                                                             
1   10180HLT 0019    00 902 WRITING  HAVE R/W 3 TIMES  START TO TRY AGAIN           
1   10190SEL 0201    00 BACKSPACE WRITE TAPE                                        
1   10200BSP 0004    00                                                             
    10210TR  9940    00 BACK TO TRY AGAIN                                           
7   10211               WRITE A RECORD THAT CANT BE READ                            
1   10220SEL 0500    00 WRITE MESSAGE INCLUDING ADDRESS OF RECORD                   
    10230WR 12400+00100                                                             
1   10240SEL 0205    00 WRITE RECORD ON TAPE 0205                                   
1   10250WRE         00                                                             
    10260RCV 4540-00300 SET TR ADDR AFTER TURNING OFF ERROR LIGHTS                  
    10270TMT11890-00313                                                             
    10280TR  4490    00                                                             
    10290ADM12700    01 ADD 1 TO # OF BLOCKS DROPPED FROM MERGE                     
    10300ADM12650    01 ADD 1 TO CTR U FOR CHECKPOINT                               
    10310LOD12560    01 REPLACE G/M AT END OF READ AREAS                            
1   10320UNL 0000    01 AFTER GIVING WRE INSTRUCTION                                
1   10330UNL 0000    01                                                             
1   10340UNL 0000    01                                                             
1   10350UNL 0000    01                                                             
1   10360UNL 0000    01                                                             
    10370RAD12140    01                                                             
1   10380TR          00 SWITCH 58                                                   
7   10381               BLANKS PADDING AREA - ALSO USED FOR NINES PADDING           
7   10382               OR FOR SPECIAL INSTR FOR SINGLE REC WITH NO R/M             
    10390LOD11990    00                                                             
1   10400CMP 0000    00                                                             
    10410TRE10530    00                                                             
    10420RCV10440-00300                                                             
    10430TMT11970-00313                                                             
1   10440CMP 0000    00 DOES RECORD CONSIST OF PADDING                              
    10450TRE10500    00 YES                                                         
    10460UNL 7290-00402 SW 36 TO NOP                                                
1   10470SEL 0201    00 RWD TO WIPE OUT BLANK PADDING BLOCKS                        
1   10480RWD 0002    00                                                             
    10490TR 11680    00 READ OVER TAPE LABEL, IF REQUIRED                           
    10500ADM12710    01 ADD 1 TO # PADDING RECORDS WRITTEN                          
    10510ADM10440    11 ADD RECORD LENGTH TO CMP INSTR                              
    10520TR 10440    00                                                             
    10530ADM12720    01 ADD 1 TO PADDING BLOCKS DROPPED                             
    10540RAD12210    14                                                             
    10550ADM10400    14 ADD TO CMP NEXT BLOCK OF BLANKS                             
    10560ADM11970    14                                                             
    10570TR  7320    00                                                             
7   11001               END OF JOB                                                  
    11010UNL 8040-00401 SW 53 TO TR                                                 
    11020TR  7800    00                                                             
    11021UNL11140-00402 SW 56 TO NOP                                                
    11050RAD12250    14 NO. OF TAPES IN ASU 14                                      
1   11060SEL 0200    00                                                             
1   11070IOF 0000    00                                                             
1   11080RWD 0002    00                                                             
    11090ADM11060    01 INCREASE TAPE ADDR BY TWO                                   
    11100ADM11060    01                                                             
    11110NTR11060    14                                                             
    11120UNL11060    14 RESET TAPE ADDR TO 0200                                     
1   11130SEL 0205    00                                                             
    11140TR  4600    00 SW 56 NOP FOR END OF JOB                                    
1   11150WTM 0001    00                                                             
    11160RAD12130    14 000 IN ASU 14                                               
1   11170SEL 0205    00                                                             
1   11180RWD 0002    00                                                             
    11190NOP11301    00 SWITCH 99A                                                  
    11200RD  3002-03400 READ IN PROGRAM TO ATTEMPT HASH TOTAL COMPARISON            
    11210TRA11230    00 USING RECORDS DUMPED ON 0205                                
    11220TR  3010    00                                                             
1   11230SEL 0902    00                                                             
    11240TRS11260    00                                                             
    11250TR  3010    00 TO CONTINUE                                                 
    11260RCV12270    00                                                             
    11270TMT12410    01 5 TO ERROR MSG                                              
1   11280SEL 0500    00                                                             
    11290WR 12270-01100 902 READ 0205                                               
    11300NTR11170    14 TO TRY AGAIN                                                
1   11301SEL 0207    00                                                             
1   11302RWD 0002    00                                                             
    11310RAD12700    00 # OF BLOCKS DROPPED                                         
    11320UNL12450-02200                                                             
1   11330SEL 0500    00                                                             
    11340WR 12450-02300 # OF BLOCKS DROPPED                                         
    11350ADD12660    00 BLOCK DROPPED PLUS BLOCKS MERGED                            
    11360MPY12220    00 MPY BY RECORDS PER BLOCK                                    
    11370CMP12030    00                                                             
    11380TRE11400    00 HAVE CORRECT # OF RECORDS                                   
    11390WR 12570-02200 # I/P REC UNEQ # MERGED                                     
    11400RAD12720    00                                                             
    11410UNL12550-02300                                                             
    11420WR 12550-02300 # OF PADDING BLOCKS DROPPED                                 
    11430NOP11450    00 SWITCH 59B                                                  
    11440WR 12470-02500 HASH TOTAL COMPARISON VOID                                  
    11450RAD12660    00 BLOCKS MERGED                                               
    11460SUB12720    00 SUBTRACT PADDING BLOCKS DROPPED                             
    11470MPY12220    00 MPY BY RECORDS PER BLOCK                                    
    11480UNL12530-02800 # OF RECORDS MERGED                                         
    11490RAD12710    00                                                             
    11500UNL12530-00800 PADDING RECORDS WRITTEN                                     
    11510WR 12530-03700 # OF RECORDS WRITTEN                                        
    11520RCV12290    00                                                             
    11530TMT 7360    01                                                             
    11540WR 12290-01000 REMOVE OUTPUT TAPE                                          
    11550WR 12510-00800 MERGE END                                                   
1   11560HLT 9999    00 FINAL STOP                                                  
7   11571               ROUTINE FOR STOPPING AT END OF DAY                          
    11580RCV 4190-00300                                                             
    11590TMT11860-00313                                                             
1   11600SEL 0207    00                                                             
1   11610RWD 0002    00                                                             
1   11620WR  0000    01                                                             
1   11630WR 19999    01                                                             
    11640TRA11660    00                                                             
1   11650HLT 3333    00                                                             
1   11660HLT 0021    00 TRA HALT                                                    
    11670TR 11600    00 TO TRY AGAIN                                                
7   11671               READ OVER TAPE LABEL, IF REQD WITH BL PADDING               
7   11672               PLACE G/M TO PREVENT WRITING NINE PADDING BLOCK             
1   11680RD  0000    01 READ OVER TAPE LABEL                                        
    11690TR  7310    00                                                             
200511700                                                                           
7   11701               CONSTANTS AND WORK AREAS                                    
3   11710    7390       ADDR TO CONTINUE MERGE                                      
3   11720    7400       ADDR TO CONTINUE MERGE                                      
3   11730    5650       ADDR OF MERGE                                               
200411740               0000 READ ADDRESS OF A                                      
200411750               0000 READ ADDRESS OF B                                      
200411760               0000 READ ADDRESS OF C                                      
200411770               0000  WRITE ADDR OF FIRST AREA                              
3   11780    8300       ADDR OF INSTR TO WRITE OUTPUT TAPE NUMBER                   
3   11790    8730       ADDR OF EOF INPUT ROUTINE                                   
3   11800   11010       ADDR OF END OF JOB ROUTINE                                  
3   11810   12590    01 ADDR OF CTR A                                               
3   11820   12600    01 ADDR OF CTR B                                               
3   11830   12610    01 ADDR OF CTR C                                               
3   11840    7320       RETURN ADDR IF RECORD IS NOT CORRECTED                      
3   11850    5330       RETURN ADDR IF RECORD IS NOT CORRECTED                      
3   11860    5230       ADDR OF INITIAL READ IN ROUTINE                             
3   11870    9310       ADDR OF CHANGE INPUT TAPE MSG                               
3   11880    8380       ADDR TO CONTINUE EOF OUTPUT ROUTINE                         
3   11890   10290       ADDR TO CONTINUE UNREADABLE RECORD ROUTINE                  
3   11900    4400       ADDR TO CONTINUE C/P ROUTINE                                
3   11910    4550       ADDR TO CONTINUE RESTART ROUTINE                            
3   11920    5560       ADDR TO CONTINUE INITIAL READ IN ROUTINE                    
3   11930    8350       ADDR TO CONTINUE EOF OUTPUT ROUTINE                         
3   11940    9810       ADDR OF INSTR TO BACKSPACE TAPES                            
3   11950   10450                                                                   
3   11960   12020    05 ADDR OF ACCUMULATED HASH TOTAL                              
200411970               0000 WORK AREA FOR PADDING                                  
205011980                                                                           
205011990               9999999999999999999999999999999999999999999999999999        
201012000               0000000000  HASH TOTLA UNSIGNED                             
200112010               |                                                           
201012020               0000000000 ACCUMULATED HASH TOTAL                           
501012030               # INPUT RECORDS                                             
201012040               0000000000  ACCUM HASH TOTAL FROM TAPES                     
201012050               0000000000 HASH TOTAL FROM EACH TAPE                        
200512060               02468                                                       
200112070               3                                                           
200312080               000   # R/B. UNSIGNED                                       
7   12081               SIGNED CONSTANTS                                            
200112090                                                                           
200412100              +0002                                                        
200512110              +00000                                                       
200412120              +0005                                                        
200312130              +000                                                         
200112140              +1                                                           
200112150              +4                                                           
200112160              -0                                                           
200412170              +0025                                                        
3   12180    8910      +ADDR OF EOF A TRANSFER INSTR                                
200412190              +RECORD LENGHT PLUS FIVE                                     
200412200              +0000 RECORD LENGTH                                          
200412210              +BLOCK LENGTH PLUS FIVE                                      
200312220              +000 # RECORDS PER BLOCK                                     
200412230              +0000 LENGTH OF C W                                          
200112240              +0     ORDER OF MERGE                                        
200512250              +00000  TO DETER CORRECT # OF TAPES TO BE READ IN            
201012260                                                                           
7   12261               MESSAGES                                                    
201212270               902 READ 200                                                
200912280               |REPEAT                                                     
201112290               REMOVE 0201                                                 
200112300               | G/M                                                       
201412310               901 WRITE 0201                                              
200112320               | G/M                                                       
200912330               TAPE 0200                                                   
200112340               | G/M                                                       
201112350               CHANGE 0200                                                 
200112360               | G/M                                                       
201712370               902 R/W 0200 0201                                           
200112380               | G/M                                                       
201412390               902 WRITE 0201                                              
200112400               | G/M                                                       
202112410               BLOCK WRITTEN ON 0205                                       
200112420               | G/M                                                       
202012430               0200 OUT OF SEQUENCE                                        
200112440               | G/M                                                       
202412450                  BLOCKS WRITTEN ON 205                                    
200112460               |                                                           
202612470               HASH TOTAL COMPARISON VOID                                  
200112480               | G/M                                                       
202312490               902 RD HASH TOT ON 0200                                     
200112500               | G/M                                                       
200912510               MERGE END                                                   
200112520               |                                                           
203812530                          REC MERGED INCL     PADDING                      
200112540               |                                                           
202412550                 PADDING BLOCKS DROPPED                                    
200112560               |                                                           
202312570               # I/P REC UNEQ # MERGED                                     
200112580               |                                                           
200512590              +00000 CTR A                                                 
200512600              +00000 CTR B                                                 
200512610              +00000 CTR C                                                 
200512620              +00000     CTR D                                             
200512630              +00000     CTR E                                             
200512640              +00000 CTR R                                                 
200512650              +00000 CTR U                                                 
200712660              +0000000  BLOCKS MERGED                                      
200212670              +01 # OF REELS OF INPUT A                                    
200212680              +01 # OF REELS OF INPUT B                                    
200212690              +01 # OF REELS OF INPUT C                                    
200212700              +00     # BLOCKS DROPPED FROM MERGE                          
200312710              +000    # BLOCKS PADDED RECORDS WRITTEN                      
200112720              +0 # PADDING BLOCKS DROPPED                                  
200312730               # RECORDS IN WR AREA                                        
200112740              +0     # OF WRITE AREA                                       
500312750              +000     # OF RECORDS IN A                                   
500312760              +000     # OF RECORDS IN B                                   
500312770              +000     # OF RECORDS IN C                                   
500112780              +0     # OF WRITE AREAS                                      
500412790               COMPLIMENT TO RESTORE TMTS                                  
500412800               COMPLIMENT TO RESTORE WRITE AREA                            
6   12810                                                                         
6   12820   00000                                                                   
500112830               BEGINNING OF CWA                                            
504912840                                                                           
500112850               BEGINNING OF CWB                                            
504912860                                                                           
500112870               BEGINNING OF CWC                                            
504912880                                                                           
6   20010   12810     -                                                             
500120020               BEGINNING OF CWD                                            
504920030                                                                           
200120040                                                                           
500220050                    # OF REELS OF INPUT D                                  
500320060              +000     # OF RECORDS IN D                                   
3   20070   12620    01 ADDRESS OF CTR D                                            
3   20080   30170       ADDR OF LOAD CW E INSTR                                     
200420090               0000     READ IN ADDRESS OF D                               
    20100RAD12620    00 CTR D                                                       
    20110TRZ30080    00                                                             
1   20120SEL 0206    00                                                             
1   20130RD  0000    01                                                             
    20140SUB12140    00                                                             
    20150TR 20110    00                                                             
7   20151               FOUR WAY MERGE                                              
    20160UNL20250-00401 SW 21 TO TR                                                 
    20170UNL20700-00401 SW 42 TO TR                                                 
    20180TR 20210    00                                                             
    20190UNL20240-00401 SW 20 TO TR                                                 
    20200UNL20710-00401 SW 43 TO TR                                                 
    20210NOP30140    00 SW 19 TR FOR E LESS THEN D ON 5 WAY                         
7   20211               A/B/C COMPARED TO D                                         
    20220CMP20020    00                                                             
    20230TRH20330    00                                                             
    20240NOP20300    00 SWITCH 20                                                   
    20250NOP20270    00 SWITCH 21                                                   
    20260TR  5740    00 TO MOVE A TO WRITE AREA                                     
    20270UNL20250-00402 SW 21 TO NOP                                                
    20280UNL20700-00402 SW 43 TO NOP                                                
    20290TR  6190    00 TO MOVE C TO WRITE AREA                                     
    20300UNL20240-00402 SW 20 TO NOP                                                
    20310UNL20710-00402 SW 43 TO NOP                                                
    20320TR  5980    00 TO MOVE B TO WRITE AREA                                     
7   20321               A/B/C GREATER THEN D                                        
    20330LOD20020    00 LOAD CW D                                                   
1   20340RCV 0004    00 MOVE D TO WRITE AREA                                        
1   20350TMT 0004    00                                                             
    20360RCV 7340    00 PLACE # OF TAPE UNTI D IN RWW                               
    20370TMT12060-00101 SEQ ROUTINE                                                 
    20380UNL 6710-00401 SW 27 TO TR                                                 
    20390SUB12140    09 TEST FOR LAST RECORD IN D                                   
    20400TRZ20450    09                                                             
    20410ADM20430    11 ADD RECORD LENGTH TO MOVE NEXT RECORD                       
1   20420RCV 0004    00 MOVE NEXT RECORD INTO POSITION OF FIRST                     
1   20430TMT 0004    00                                                             
    20440TR  6360    00 TO SEQUENCE CHECK                                           
7   20441               LAST RECORD IN D                                            
    20450RAD12220    09 RESTORE RECORD CTR                                          
    20460ADM20430    13 RESTORE ADDRESS BY COMPLIMENTING                            
    20470RCV 7320-00300 ADDR CTR D TO ADD MEM INSTR                                 
    20480TMT20070-00313                                                             
    20490RCV 7350-00300 ADDR OF D TO                                                
    20500TMT20090-00313 RWW                                                         
    20510TR  6350    00                                                             
    20520NOP30370    00 SWITCH 33 TR TO PULL CW E                                   
1   20530SET 0000    14 PULL CW D                                                   
    20540RCV20020    00                                                             
1   20550TMT 0000    14                                                             
1   20560SET 0000    14                                                             
1   20570TMT 0000    14                                                             
1   20580SET 0000    14                                                             
1   20590TMT 0000    14                                                             
1   20600SET 0000    14                                                             
1   20610TMT 0000    14                                                             
1   20620SET 0000    14                                                             
1   20630TMT 0000    14                                                             
    20640RAD12140    01 RESTORE ASU 01 TO 1                                         
    20650UNL 6710-00402 SW 27 TO NOP                                                
    20660TR 20680    00 SWITCH 34 NOP FOR EOF D AND E                               
    20670TR  5650    00 EOF D+E ON 4 OR 5 WAY                                       
    20680NOP30530    00 SWITCH 38 TR FOR 5 WAY                                      
7                         RELOAD CW A/B/C                                             
    20690NOP20330    00 SWITCH 39 TR FOR EOF A+B+C                                  
    20700NOP20740    00 SWITCH 42 TR TO LOAD CW C                                   
    20710NOP20760    00 SWITCH 43 TR TO LOAD CW B                                   
    20720LOD12830    00 LOAD CW A                                                   
    20730TR 20210    00 TO COMPARE                                                  
    20740LOD12870    00 LOAD CW C                                                   
    20750TR 20210    00 TO COMPARE                                                  
    20760LOD12850    00 LOAD CW B                                                   
    20770TR 20210    00 TO COMPARE                                                  
7   20771               END OF FILE D                                               
    20780RAD20050    14 # OF REELS OF D                                             
    20790SUB12140    14                                                             
    20800TRZ20850    14 END OF ALL REELS OF D                                       
    20810ST 20050    14 # OF REELS OF D REMAINING                                   
1   20820SET 0004    14                                                             
    20830LOD20090    14 READ IN ADDRESS OF D                                        
    20840TR  9020    00                                                             
7   20841               END OF ALL REELS OF D                                       
    20850UNL20210-00401 SW 19 TO TR                                                 
    20860UNL20900-00402 SW 47 TO NOP                                                
    20870RCV20690-00300                                                             
    20880TMT20080-00313 SET SW 39 TO ALTERNATE TRANSFER                             
    20890UNL20680-00402 SW 38 TO NOP                                                
    20900TR  9420    00 SW 47 NOP FOR EOF D                                         
    20910NOP 9420    00 SW 48 TR FOR 5 WAY EXCEPT EOF E                             
7   20911               EOF D+E                                                     
    20920UNL 5730-00402 SW 14 TO NOP                                                
    20930UNL 5970-00402 SW 17 TO NOP                                                
    20940UNL 6180-00402 SW 18 TO NOP                                                
    20950UNL20660-00402 SW 34 TO NOP                                                
    20960UNL 9480-00402 SW 52 TO NOP                                                
    20970UNL30510-00402 SW 35 TO NOP                                                
    20980TR  9420    00                                                             
7   20981               EOF A+B+C                                                   
    20990UNL30560-00401 SW 40 TO TR                                                 
    21000UNL30590-00401 SW 41 TO TR                                                 
    21010UNL20690-00401 SW 39 TO TR                                                 
    21020UNL 7040-00402 SW 32 TO NOP                                                
    21030UNL 6850-00402 SW 29 TO NOP                                                
    21040UNL 6890-00402 SW 30 TO NOP                                                
    21050UNL 7190-00402 SW 31 TO NOP                                                
    21060TR  9520    00                                                             
500130010               BEGINNING OF CW E                                           
504930020                                                                           
200130030                                                                           
500230040                    # OF REELS OF INPUT E                                  
500330050              +000     # OF RECORDS IN E                                   
3   30060   12630    01 ADDRESS OF CTR E                                            
200430070               0000     READ IN ADDRESS OF E                               
    30080RAD12630    00 CTR E                                                       
    30090TRZ 4870    00                                                             
1   30100SEL 0208    00                                                             
1   30110RD  0000    01                                                             
    30120SUB12140    00                                                             
    30130TR 30090    00                                                             
7   30131               FIVE WAY MERGE                                              
    30140CMP30010    00 A/B/C COMPARED TO E                                         
    30150TRH30170    00                                                             
    30160TR 20240    00                                                             
7   30161               A/B/C GREATER THAN E                                        
    30170LOD30010    00 LOAD CW E                                                   
1   30180RCV 0004    00 MOVE E TO WRITE AREA                                        
1   30190TMT 0004    00                                                             
    30200RCV 7340    00 PLACE # OF TAPE UNIT E IN RWW                               
    30210TMT12060    01 SEQ ROUTINE                                                 
    30220UNL20520-00401 SW 33 TO TR                                                 
    30230UNL 6710-00401 SW 27 TO TR                                                 
    30240SUB12140    10 TEST FOR LAST RECORD IN E                                   
    30250TRZ30300    10                                                             
    30260ADM30280    11 ADD RECORD LENGTH TO MOVE NEXT RECORD                       
1   30270RCV 0004    00 MOVE NEXT RECORD INTO POSITION OF FIRST                     
1   30280TMT 0004    00                                                             
    30290TR  6360    00 TO SEQUENCE CHECK                                           
7   30291               LAST RECORD IN E                                            
    30300RAD12220    10 RESTORE RECORD CTR                                          
    30310ADM30280    13 RESTORE ADDRESS BY COMPLIMENTING                            
    30320RCV 7320-00300 ADDR CTR E TO ADD MEM INSTR                                 
    30330TMT30060-00313                                                             
    30340RCV 7350-00300 ADDR OF E TO                                                
    30350TMT30070-00313 RWW                                                         
    30360TR  6350    00                                                             
1   30370SET 0000    14 PULL CW E                                                   
    30380RCV30010    00                                                             
1   30390TMT 0000    14                                                             
1   30400SET 0000    14                                                             
1   30410TMT 0000    14                                                             
1   30420SET 0000    14                                                             
1   30430TMT 0000    14                                                             
1   30440SET 0000    14                                                             
1   30450TMT 0000    14                                                             
1   30460SET 0000    14                                                             
1   30470TMT 0000    14                                                             
    30480RAD12140    01                                                             
    30490UNL20520-00402 SW 33 TO NOP                                                
    30500UNL 6710-00402 SW 27 TO NOP                                                
    30510TR 20680    00 SWITCH 35 NOP FOR EOF D+E                                   
    30520TR  5650    00 EOF D+E ON 4 OR 5 WAY                                       
7   30521               COMPARE D TO E                                              
    30530LOD20020    00 LOAD CW D                                                   
    30540CMP30010    00 D E                                                         
    30550TRH30590    00                                                             
    30560NOP20330    00 SWITCH 40 TR FOR EOF A+B+C                                  
    30570UNL20210-00402 SW 19 TO NOP                                                
    30580TR 20700    00                                                             
    30590NOP30170    00 SWITCH 41 TR FOR EOF A+B+C                                  
    30600UNL20210-00401 SW 19 TO TR                                                 
    30610TR 20700    00                                                             
7   30611               END OF FILE E                                               
    30620RAD30040    14 # OF REELS OF E                                             
    30630SUB12140    14                                                             
    30640TRZ30690    14 END OF ALL REELS OF E                                       
    30650ST 30040    14 # OF REELS OF E REMAINING                                   
1   30660SET 0004    14                                                             
    30670LOD30070    14 READ IN ADDRESS OF E                                        
    30680TR  9020    00                                                             
7   30681               END OF ALL REELS OF E                                       
    30690UNL20210-00402 SW 19 TO NOP                                                
    30700UNL20910-00402 SW 48 TO NOP                                                
    30710TR 20890    00                                                             
7   50001               ASSIGNMENT PROGRAM                                          
1   50010RCV         00 MOVE INSTRUCTIONS FOR PULLING                               
    50020TMT80040    00 CONTROL WORDS INITIALLY                                     
    50030TR  4010    00 TO CHECKPOINT                                               
1   50040SEL 0100    00O                                                            
    50050RD  2010+00100                                                             
    50060TRA51030    00                                                             
1   50070SET 0003    03 LOAD INPUT GROUPING                                         
    50080LOD 2130    03                                                             
    50090CMP59410    03 COMPARE TO BLANKS                                           
    50100TRE51170    00                                                             
1   50110SET 0005    05                                                             
    50120RAD59430    01 ASU 01 TO 1                                                 
1   50130SET 0001    02 ASU 02 TO A                                                 
    50140LOD59430    02                                                             
1   50141SET 0004    06 FOR P1, 2, 3, 5, OR 5                                       
1   50150SET 0002    00                                                             
    50160LOD 2030    00 L1                                                          
    50170CMP59410    00 COMPARE TO BLANKS                                           
    50180TRE51230    00                                                             
    50190ST 60270    00 COMPUTE COMBINED LENGTH OF CW                               
    50200LOD 2050    00 L2                                                          
    50210CMP59410    00                                                             
    50220TRE59330    00 TO TEST P1                                                  
    50230ADM60270    00                                                             
    50240LOD 2070    00 L3                                                          
    50250CMP59410    00                                                             
    50260TRE59270    00 TO TEST P1 + P2                                             
    50270ADM60270    00                                                             
    50280LOD 2090    00 L4                                                          
    50290CMP59410    00                                                             
    50300TRE59210    00 TO TEST P1, 2, 3                                            
    50310ADM60270    00                                                             
    50320LOD 2110    00 L5                                                          
    50330CMP59410    00                                                             
    50340TRE59150    00 TO TEST P1, 2, 3, 4                                         
    50350ADM60270    00                                                             
    50360TR 59090    00 TO TEST P1, 2, 3, 4, 5                                      
    50370RAD60270    00                                                             
    50380CMP59600    00 COMBINED CW LENGTH COMPARED TO 50                           
    50390TRH51200    00 GREATER THAN 50                                             
    50400CMP 2230    00 COMPARE TO GIVEN CW LENGTH                                  
    50410TRE50430    00                                                             
    50420TR 50960    00                                                             
1   50430SET 0001    06                                                             
    50440LOD 2240    06                                                             
1   50450SET 0005    05 LOAD AVAILABLE MEMORY                                       
    50460LOD 2150    05 COMPARE TO BLANKS                                           
    50470CMP59410    05                                                             
    50480TRE51260    05                                                             
1   50490SET 0004    08                                                             
    50500LOD 2180    00 # REELS INPUT A                                             
    50510CMP59410    00 COMPARE TO BLANKS                                           
    50520TRE51000    00                                                             
    50530CMP59610    00 COMPARE TO ZEROS                                            
    50540TRE51110    00                                                             
    50550ST 12670    00                                                             
    50560LOD 2190    00 # REELS INPUT B                                             
    50570CMP59410    00                                                             
    50580TRE51000    00                                                             
    50590CMP59610    00 COMPARE TO ZEROS                                            
    50600TRE51140    00                                                             
    50610ST 12680    00                                                             
    50620LOD 2200    00 # REELS INPUT C                                             
    50630CMP59410    00                                                             
    50640TRE50850    00 # OF REELS OF C EQUAL TO BLANKS                             
    50650CMP59610    00                                                             
    50660TRE50850    00 # REELS C EQAUL TO ZERO                                     
    50670ST 12690    00                                                             
    50680LOD 2210    00 # REELS INPUT D                                             
    50690CMP59410    00 COMPARE TO BLANKS                                           
    50700TRE50880    00                                                             
    50710CMP59610    00 COMPARE TO ZEROS                                            
    50720TRE50880    00                                                             
    50730ST 20050    00                                                             
    50740LOD 2220    00 # REELS INPUT E                                             
    50750CMP59410    00                                                             
    50760TRE50920    00 COMPARE TO BLANKS                                           
    50770CMP59610    00                                                             
    50780TRE50920    00 COMPARE TO ZEROS                                            
    50790ST 30040    00                                                             
    50800CMP59650    06 HAVE FIVE INPUTS                                            
    50810TRE51920    00 COMPARE ORDER OF MERGE TO FIVE                              
1   50820SEL 0500    00 WRONG ORDER OF MERGE GIVEN                                  
    50830WR 60420-02500                                                             
    50840TR 50980    00                                                             
    50850CMP59620    06 TWO INPUTS                                                  
    50860TRE51290    00 COMPARE ORDER OF MERGE TO TWO                               
    50870TR 50820    00                                                             
    50880CMP59630    06 THREE INPUTS                                                
    50890ST 12240    06                                                             
    50900TRE51370    00 COMPARE ORDER OF MERGE TO 3                                 
    50910TR 50820    00                                                             
    50920CMP59640    06 FOUR INPUTS                                                 
    50930ST 12240    06                                                             
    50940TRE51670    00 COMPARE ORDER OF MERGE TO FOUR                              
    50950TR 50820    00                                                             
1   50960SEL 0500    00                                                             
    50970WR 60280-02400 SUM L NOT EQ TOTAL LNG CW                                   
1   50980HLT 0003    00 COMMON HALT FOR MISPUNCHED CONTROL CARD                     
    50990TR 50040    00                                                             
1   51000SEL 0500    00                                                             
    51010WR 60300-02000 NO REELS INPUT BLANK                                        
    51020TR 50980    00                                                             
1   51030SEL 0902    00                                                             
    51040TRS51090    00                                                             
1   51050SEL 0100    00                                                             
    51060TRS51090    00                                                             
1   51070HLT 0002    00 FALSE TRA READING CONTROL CARD RELOAD CARD                  
    51080TR 50040    00                                                             
1   51090HLT 0001    00 902 OR EOF ON CONTROL CARD RELOAD OR LOAD                   
    51100TR 50040    00                                                             
1   51110SEL 0500    00                                                             
    51120WR 60320-02100 NO REELS INPUT A ZERO                                       
    51130TR 50980    00                                                             
1   51140SEL 0500    00                                                             
    51150WR 60340-02100 NO REELS INPUT B ZERO                                       
    51160TR 50980    00                                                             
1   51170SEL 0500    00                                                             
    51180WR 60360-00700 1G BLANK                                                    
    51190TR 50980    00                                                             
1   51200SEL 0500    00                                                             
    51210WR 60380-01100 LNG CW GR 50                                                
    51220TR 50980    00                                                             
1   51230SEL 0500    00                                                             
    51240WR 60400-01000 L1 IS BLANK                                                 
    51250TR 50980    00                                                             
    51260LOD59670    05 IF EQUAL TO BLANKS                                          
    51270UNL 2150    05 UNLOAD 20000                                                
    51280TR 50490    00                                                             
    51290UNL12250-00202 TWO WAY MERGE                                               
    51300ADD12140    06 ADD ONE TO ORDER OF MERGE                                   
    51310ST 12240    06                                                             
    51320UNL80410-00401 SW 4 TO TR                                                  
    51330UNL 5700-00401 SW 13 TO TR                                                 
    51340UNL 5940-00401 SW 16 TO TR                                                 
    51350UNL 9470-00402 SW 51 TO NOP                                                
    51360UNL58230-00401                                                             
7   51361               THREE WAY MERGE                                             
    51370UNL10350-00402 AVOID PLACING EXTRA GROUP MARKS                             
    51380UNL 4120-00402                                                             
    51390UNL 4110-00402                                                             
    51400UNL 5140-00402                                                             
    51410UNL 5150-00402                                                             
    51420UNL10360-00402 WHEN DUMPING RECORD                                         
    51430UNL 6650-00402                                                             
    51440UNL 6660-00402                                                             
    51450UNL52320-00402 TO COMPUTE READ IN ADDRESS                                  
    51460UNL52330-00402                                                             
    51470UNL53650-00401                                                             
    51480UNL80100-00402 NOOP INSTRUCTIONS TO PLACE G/M AFTER                        
    51490UNL80110-00402 D AND E READ AND WRITE AREAS                                
    51500UNL56460-00401                                                             
    51510UNL80530-00401 SW 5 TO TR                                                  
    51520UNL80150-00402                                                             
    51530UNL58270-00401                                                             
    51540UNL57740-00402                                                             
    51550UNL57750-00402                                                             
    51560UNL80140-00402                                                             
    51570UNL12250-00302                                                             
    51580UNL54320-00401                                                             
    51590RCV 4820-00300 PLACE ADDR IN TRZ IN RESTART                                
    51600TMT59790-00308                                                             
    51610RCV52810-00300 PLACE ADDR OF LENGTH OF PROG IN SUB                         
    51620TMT59820-00308 INSTR                                                       
    51660TR 52000    00 TO COMPUTE BLOCK SIZE                                       
7   51661               FOUR WAY MERGE                                              
    51670UNL52320-00402 SW 60 TO NOOP                                               
    51680UNL80650-00401 SW 6 TO TR                                                  
    51690UNL80110-00402 NOOP INSTR PLACING G/M AFTER READ AREA                      
    51700UNL80150-00402                                                             
    51710UNL58310-00401                                                             
    51720UNL56540-00401                                                             
    51730UNL10360-00402                                                             
    51740UNL 6660-00402                                                             
    51750UNL 4120-00402                                                             
    51760UNL 5150-00402                                                             
    51770UNL12250-00402                                                             
    51780UNL53870-00401                                                             
    51790UNL54380-00401                                                             
    51800UNL57720-00402                                                             
    51810UNL20990    02                                                             
    51820UNL21000    02                                                             
    51830UNL20970    02                                                             
    51870RCV20110-00300 TRZ ADDR IN R/S CHANGED TO ELIMINATE.                       
    51880TMT59790-00308 FIFTH BSP CTR                                               
    51890RCV52810-00300 ADDR OF LENGTH OF PROG                                      
    51900TMT59810-00308                                                             
    51910TR 51960    00                                                             
7   51911               FIVE WAY MERGE                                              
    51920ST 12240    06                                                             
    51930UNL20680-00401 SW 38 TO TR                                                 
    51940UNL80780-00402 SW 7 TO NOP                                                 
    51950UNL20910-00401 SW 48 TO TR                                                 
    51960UNL 5730-00401 SW 14 TO TR                                                 
    51970UNL 9480-00401 SW 52 TO TR                                                 
    51980UNL 5970-00401 SW 17 TO TR                                                 
    51990UNL 6180-00401 SW 18 TO TR                                                 
1   52000SET 0004    03                                                             
    52010LOD 2120    03 RECORD LENGTH                                               
    52020CMP59680    03 COMPARE TO 0009                                             
    52030TRH52070    03                                                             
1   52040SEL 0500    00                                                             
    52050WR 60480-02200 RECORD LENGTH TOO SMALL                                     
    52060TR 50980    00                                                             
1   52070SET 0003    00                                                             
    52080LOD 2130    00 RECORD PER BLOCK                                            
    52090NTR52090    00                                                             
    52100TRZ57170    00 INPUT GROUPING IS 000                                       
    52110LOD 2120    03                                                             
    52120ST 12200    03 RECORD LENGTH                                               
    52130ADD12120    03 ADD FIVE                                                    
    52140ST 12190    03 RECORD LENGTH PLUS FIVE                                     
    52150UNL12080    00 REC PER BLOCK TO CONSTANT AREA                              
    52160ST 12220    00                                                             
    52170ST 12730    00                                                             
    52180MPY12200    00 RECORD LENGTH TIEMS # R/B                                   
1   52190SET 0004    00 EQUAL BLOCK LENGTH                                          
    52200ST 59460    00                                                             
    52210ADD12120    00 ADD FIVE                                                    
    52220ST 12210    00                                                             
    52230SUB12120    00 SUBTRACT FIVE                                               
    52240LOD 2150    05 TEST AVAILABLE MEMORY FOR MODEL TWO                         
    52250CMP59670    05                                                             
    52260TRH52320    00                                                             
    52270UNL 4170-00402 NOOP EXTRA READ WRITE AND BSP IN                            
    52280UNL 4220-00402 CHECKPOINT AND RESTART                                      
    52290UNL 4650-00402                                                             
    52300UNL 4670-00402                                                             
    52310UNL11630-00402                                                             
    52320TR 57470    00 SW 60 TR IF 5 WAY MERGE                                     
    52330TR 57500    00 SW 61 TR IF 4 WAY MERGE                                     
    52340MPY59480    00 MULTIPLY BLOCK LENGTH BY SIX                                
    52350ADD59510    00 ADD PROGRAM LENGTH PLUS 30                                  
    52360CMP 2150    00 COMPARE TO AVAILABLE MEMORY                                 
    52370TRH56810    00 BLOCK SIZE TO LARGE                                         
    52380LOD 2150    00                                                             
    52390SUB59550    00 SUBTRACT LENGTH OF INSTRUCTION AREA                         
    52400UNL60260    00                                                             
    52410ADD59490    00 ADD FOUR                                                    
    52420UNL60250    00                                                             
1   52430SET 0001    10                                                             
    52440LOD60250-00410 LOAD HIGH ORDER POSITION TO DETER ZONING                    
    52450TRZ52570    10                                                             
    52460CMP59620    10 COMPARE TO 2                                                
    52470TRE52530    10                                                             
    52480TRH52550    00                                                             
    52490LOD12090    10 EQUAL TO 1                                                  
    52500ADM60250-00310 LOAD AND ADD BLANK                                          
    52510ADM60260-00310                                                             
    52520TR 52570    00                                                             
    52530LOD59570    10 EQUAL TO 2                                                  
    52540TR 52500    00                                                             
    52550LOD59560    10                                                             
    52560TR 52500    00                                                             
    52570RCV50010-00300 PUT ADDRESS OF AREA INTO RCV                                
    52580TMT60250-00308 INSTRUCTION                                                 
1   52590SET 0004    10                                                             
    52600LOD60260    10                                                             
    52610ADM60010    10                                                             
    52620ADM80180    10                                                             
    52630ADM80410    10                                                             
    52640ADM80530    10                                                             
    52650ADM80650    10                                                             
    52750ADM80830    10                                                             
    52760ADM80810    10                                                             
    52780ADM80780    10                                                             
    52790ADM 5220    10                                                             
    52800ADM 5380    10                                                             
    52810RAD59590    00 LENGTH OF PROGRAM FOR 3 4 OR 5 WAY MERGE                    
    52820ADM 5250    00 OR BEGINNING OF FIRST READ AREA                             
    52830ADM 5260    00                                                             
    52840ADM 5300    00                                                             
    52850ADM 5360    00                                                             
    52860ADM80210    00                                                             
    52870ADM80230    00                                                             
    52880ADM80250    00                                                             
    52890ADM80270    00                                                             
    52900ADM80290    00                                                             
    52920ADM80070    00                                                             
    52930ADM 5750    00                                                             
    52940ADM 5820    00                                                             
    52950ADM 5830    00                                                             
    52960ADM 6930    00                                                             
    52970ADM 6950    00                                                             
    52980ADM 6970    00                                                             
    52990ADM 6990    00                                                             
    53000ADM 7010    00                                                             
    53010ADM 7350    00                                                             
    53020ADM10320    00                                                             
    53030ADM11740    00                                                             
    53040ADM59740    00                                                             
    53050UNL59850    00                                                             
    53060TR 53270    00                                                             
    53070ADM80320    00                                                             
    53080ADM80340    00                                                             
    53090ADM80360    00                                                             
    53100ADM80380    00                                                             
    53110ADM80400    00                                                             
    53130ADM80080    00                                                             
    53140ADM 5990    00                                                             
    53150ADM 6060    00                                                             
    53160ADM 6070    00                                                             
    53170ADM 7080    00                                                             
    53180ADM 7100    00                                                             
    53190ADM 7120    00                                                             
    53200ADM 7140    00                                                             
    53210ADM 7160    00                                                             
    53220ADM11750    00                                                             
    53230ADM10330    00                                                             
    53240ADM59750    00                                                             
    53250RCV53420-00300                                                             
    53260TMT59930-00308                                                             
1   53270SET 0005    00                                                             
    53280LOD59850    00                                                             
    53290ADD12210    00                                                             
    53300UNL59850    00                                                             
    53310LOD59850-00401 LOAD HIGH ORDER POSITION                                    
    53320TRZ53380    01                                                             
    53330CMP59620    01 COMPARE TO TWO                                              
    53340TRE53430    00                                                             
    53350TRH53450    00                                                             
    53360LOD12090    01                                                             
    53370ADM59850-00301 ADD ZONING                                                  
1   53380SET 0004    00                                                             
    53390LOD59850    00 RELOAD ADDRESS                                              
    53400SGN59850-00301 STRIP ZONING FOR NEXT ADDITION                              
    53410RAD59430    01 RESTORE ASU 01 TO 1                                         
    53420TR 53070    00                                                             
    53430LOD59570    01 LOAD MINUS SIGN                                             
    53440TR 53370    00                                                             
    53450LOD59560    01 LOAD PLUS SIGN                                              
    53460TR 53370    00                                                             
    53470ADM80440    00                                                             
    53480ADM80460    00                                                             
    53490ADM80480    00                                                             
    53500ADM80500    00                                                             
    53510ADM80520    00                                                             
    53520ADM80090    00                                                             
    53540ADM10340    00                                                             
    53550ADM 6200    00                                                             
    53560ADM 6260    00                                                             
    53570ADM 6270    00                                                             
    53580ADM 6740    00                                                             
    53590ADM 6760    00                                                             
    53600ADM 6780    00                                                             
    53610ADM 6800    00                                                             
    53620ADM 6820    00                                                             
    53630ADM11760    00                                                             
    53640ADM59760    00                                                             
    53650NOP54090    00                                                             
    53660RCV53420-00300                                                             
    53670TMT59860-00308 RETURN ADDRESS AFTER ADDING BLOCK LENGTH                    
    53680TR 53270    00 ADD BLOCK LENGTH PLUS 5 AND ZONE                            
    53690ADM59770    00                                                             
    53700ADM20350    00                                                             
    53710ADM20420    00                                                             
    53720ADM20430    00                                                             
    53730ADM20090    00                                                             
    53740ADM20550    00                                                             
    53750ADM20570    00                                                             
    53760ADM20590    00                                                             
    53770ADM20610    00                                                             
    53780ADM20630    00                                                             
    53790ADM80560    00                                                             
    53800ADM80580    00                                                             
    53810ADM80600    00                                                             
    53820ADM80620    00                                                             
    53830ADM80640    00                                                             
    53840ADM80100    00                                                             
    53850ADM10350    00                                                             
    53870NOP54090    00                                                             
    53880RCV53420-00300                                                             
    53890TMT59870-00308 SET RETURN ADDRESS AFTER ADDING BLOCK LENGTH                
    53900TR 53270    00                                                             
    53910ADM30190    00 FIFTH READ IN AREA                                          
    53920ADM30270    00                                                             
    53930ADM30280    00                                                             
    53940ADM30070    00                                                             
    53950ADM30390    00                                                             
    53960ADM30410    00                                                             
    53970ADM30430    00                                                             
    53980ADM30450    00                                                             
    53990ADM30470    00                                                             
    54000ADM80680    00                                                             
    54010ADM80720    00                                                             
    54020ADM80740    00                                                             
    54030ADM80760    00                                                             
    54040ADM59780    00                                                             
    54050ADM80700    00                                                             
    54060ADM10360    00                                                             
    54070ADM80110    00                                                             
    54090RCV53420-00300                                                             
    54100TMT59880-00308 SET RETURN ADDR AFTER ADDING BLOCK LENGTH                   
    54110TR 53270    00 TRANSFER TO ADD BLOCK LENGTH                                
    54120ADM 5740    00                                                             
    54130ADM 5980    00                                                             
    54140ADM 6190    00                                                             
    54150ADM 6450    00                                                             
    54160ADM 6480    00                                                             
    54170ADM 6560    00                                                             
    54180ADM 7370    00                                                             
    54190ADM10400    00                                                             
    54200ADM10440    00                                                             
    54210ADM11770    00                                                             
    54220ADM30180    00                                                             
    54230ADM20340    00                                                             
    54240ADM11970    00                                                             
    54260ADM80120    00                                                             
    54270RCV53420-00300                                                             
    54280TMT59890-00308                                                             
    54290TR 53270    00                                                             
    54300ADM80130    00                                                             
    54320NOP54440    00 SWITCH TR FOR 3 WAY MERGE                                   
    54330RCV53420-00300                                                             
    54340TMT59900-00308                                                             
    54350TR 53270    00                                                             
    54370ADM80140    00                                                             
    54380NOP54440    00 TR FOR FOUR WAY MERGE                                       
    54390RCV53420-00300                                                             
    54400TMT59910-00308                                                             
    54410TR 53270    00                                                             
    54430ADM80150    00                                                             
    54440RCV53420-00300                                                             
    54450TMT59920-00308                                                             
    54460TR 53270    00                                                             
    54480ADM 3910    00 INSTR FOR PLACING G/M AT END OF LAST WRITE AREA             
    54490RAD59460    00 BLOCK LENGTH                                                
    54500ADM 3910    00 ADD TO ADDRESSES TO                                         
    54510ADM80070    00 PLACE G/M AT END OF READ IN AREAS AND AT                    
    54520ADM80080    00 END OF WRITE OUT AREAS                                      
    54530ADM80090    00                                                             
    54540ADM80100    00                                                             
    54550ADM80110    00                                                             
    54560ADM10320    00 AFTER DUNPING UNREADABLE RECPRD                             
    54570ADM10330    00                                                             
    54580ADM10340    00                                                             
    54590ADM10350    00                                                             
    54600ADM10360    00                                                             
    54610ADM80120    00                                                             
    54620ADM80130    00                                                             
    54630ADM80140    00                                                             
    54640ADM80150    00                                                             
    54650SUB12200    00                                                             
    54660ADM10400    00                                                             
1   54670SEL 0916    00 ALTERATION SWITCH FOR TAPE LABEL                            
    54680TRS59040    00                                                             
1   54690SEL 0915    00                                                             
    54700TRS59060    00                                                             
7   54701               COMPUTE ADDRESSES TO PULL CONTROL WORD                      
1   54710SET 0002    03                                                             
    54720LOD 2030    03 LOAD L1                                                     
    54730ADM80190    03 ADD TO SET INSTRUCTIONS                                     
    54740ADM80300    03                                                             
    54750ADM80420    03                                                             
    54760ADM80540    03                                                             
    54770ADM80660    03                                                             
    54780ADM 6720    03                                                             
    54790ADM 6910    03                                                             
    54800ADM 7060    03                                                             
    54810ADM20530    03                                                             
    54820ADM30370    03                                                             
    54830ST  2030    03                                                             
    54840RAD 2020    04 LOAD P1                                                     
    54850SUB 2030    04                                                             
    54870ADM80210    04                                                             
    54880ADM80320    04                                                             
    54890ADM80440    04                                                             
    54900ADM80560    04                                                             
    54910ADM80680    04                                                             
    54920ADM 6740    04                                                             
    54930ADM 6930    04                                                             
    54940ADM 7080    04                                                             
    54950ADM20550    04                                                             
    54960ADM30390    04                                                             
    54970LOD 2050    03 LOAD L2                                                     
    54980CMP59410    03 COMP TO BLANKS                                              
    54990TRE56060    03 ONLY ONE CONTROL FIELD                                      
    55000ADM80220    03                                                             
    55010ADM80330    03                                                             
    55020ADM80450    03                                                             
    55030ADM80570    03                                                             
    55040ADM80690    03                                                             
    55050ADM 6750    03                                                             
    55060ADM 6940    03                                                             
    55070ADM 7090    03                                                             
    55080ADM20560    03                                                             
    55090ADM30400    03                                                             
    55100ST  2050    03                                                             
    55110RAD 2040    04 LOAD P2                                                     
    55120SUB 2050    04                                                             
    55140ADM80230    04                                                             
    55150ADM80340    04                                                             
    55160ADM80460    04                                                             
    55170ADM80580    04                                                             
    55180ADM80700    04                                                             
    55190ADM 6760    04                                                             
    55200ADM 6950    04                                                             
    55210ADM 7100    04                                                             
    55220ADM20570    04                                                             
    55230ADM30410    04                                                             
    55240LOD 2070    03 LOAD L3                                                     
    55250CMP59410    03 COMPARE TO BLANKS                                           
    55260TRE56690    00 ONLY TWO CONTROL FIELDS                                     
    55270ADM80240    03                                                             
    55280ADM80350    03                                                             
    55290ADM80470    03                                                             
    55300ADM80590    03                                                             
    55310ADM80710    03                                                             
    55320ADM 6770    03                                                             
    55330ADM 6960    03                                                             
    55340ADM30420    03                                                             
    55350ADM 7110    03                                                             
    55360ADM20580    03                                                             
    55370ST  2070    03                                                             
    55380RAD 2060    04 LOAD P3                                                     
    55390SUB 2070    04                                                             
    55410ADM80250    04                                                             
    55420ADM80360    04                                                             
    55430ADM80480    04                                                             
    55440ADM80600    04                                                             
    55450ADM80720    04                                                             
    55460ADM 6780    04                                                             
    55470ADM 6970    04                                                             
    55480ADM 7120    04                                                             
    55490ADM20590    04                                                             
    55500ADM30430    04                                                             
    55510LOD 2090    03 LOAD L4                                                     
    55520CMP59410    03 COMPARE TO BLANKS                                           
    55530TRE56630    03 THREE CONTROL FIELSS                                        
    55540ADM80260    03                                                             
    55550ADM80370    03                                                             
    55560ADM80490    03                                                             
    55570ADM80610    03                                                             
    55580ADM80730    03                                                             
    55590ADM 6790    03                                                             
    55600ADM 6980    03                                                             
    55610ADM 7130    03                                                             
    55620ADM20600    03                                                             
    55630ADM30440    03                                                             
    55640ST  2090    03                                                             
    55650RAD 2080    04 LOAD P4                                                     
    55660SUB 2090    04                                                             
    55680ADM80270    04                                                             
    55690ADM80380    04                                                             
    55700ADM80500    04                                                             
    55710ADM80620    04                                                             
    55720ADM80740    04                                                             
    55730ADM 6800    04                                                             
    55740ADM 6990    04                                                             
    55750ADM 7140    04                                                             
    55760ADM20610    04                                                             
    55770ADM30450    04                                                             
    55780LOD 2110    03  LOAD L5                                                    
    55790CMP59410    03  COMPARE TO BLANKS                                          
    55800TRE56850    03  FOUR CONTROL FIELDS                                        
    55810ADM80280    03                                                             
    55820ADM80390    03                                                             
    55830ADM80510    03                                                             
    55840ADM80630    03                                                             
    55850ADM80750    03                                                             
    55860ADM 6810    03                                                             
    55870ADM 7000    03                                                             
    55880ADM 7150    03                                                             
    55890ADM20620    03                                                             
    55900ADM30460    03                                                             
    55910ST  2110    03                                                             
    55920RAD 2100    04  LOAD P5                                                    
    55930SUB 2110    04                                                             
    55950ADM80290    04                                                             
    55960ADM80400    04                                                             
    55970ADM80520    04                                                             
    55980ADM80640    04                                                             
    55990ADM80760    04                                                             
    56000ADM 6820    04                                                             
    56010ADM 7010    04                                                             
    56020ADM 7160    04                                                             
    56030ADM20630    04                                                             
    56040ADM30470    04                                                             
    56050TR 56880    00  HAVE SET INSTR TO PULL CONTROL WORDS                       
7   56051                ONLY ONE CONTROL FIELD                                     
1   56060SET 0005    05  INSERT TRANSFER INSTRUCTIONS                               
    56070RCV 6720-00400                                                             
    56080TMT59710-00405                                                             
    56090RCV 6690-00300                                                             
    56100TMT59720-00304                                                             
    56110RCV 6700-00300                                                             
    56120TMT59730-00304                                                             
    56130RCV80190-00400                                                             
    56140TMT60000    05                                                             
    56150UNL 5660    04                                                             
    56160UNL 6880    04                                                             
    56170UNL 5930    04                                                             
    56180UNL 5680    04                                                             
    56190UNL 5950    04                                                             
    56200UNL 5710    04                                                             
    56210UNL 6170    04                                                             
    56220UNL20220    04                                                             
    56230UNL20330    04                                                             
    56240UNL30530    04                                                             
    56250UNL30140    04                                                             
    56260UNL30170    04                                                             
    56270UNL30540    04                                                             
    56280UNL80790    04                                                             
    56290UNL80800    04                                                             
    56300UNL20720    04                                                             
    56310UNL20740    04                                                             
    56320UNL20760    04                                                             
    56330LOD59740    04                                                             
    56340ADM 5660    04                                                             
    56350ADM 6880    04                                                             
    56360ADM20720    04                                                             
    56370LOD59750    04                                                             
    56380ADM 5930    04                                                             
    56390ADM 5680    04                                                             
    56400ADM20760    04                                                             
    56410LOD59760    04                                                             
    56420ADM 5950    04                                                             
    56430ADM 5710    04                                                             
    56440ADM 6170    04                                                             
    56450ADM20740    04                                                             
    56460NOP56620    00   TR FOR 3 WAY MERGE                                        
    56470LOD59770    04                                                             
    56480ADM20220    04                                                             
    56490ADM20330    04                                                             
    56500ADM30530    04                                                             
    56510ADM80790    04                                                             
    56520RCV20530-00400                                                             
    56530TMT60030    05                                                             
    56540NOP56620    00  TR IF FOUR WAY MERGE                                       
    56550LOD59780    04                                                             
    56560ADM30140    04                                                             
    56570ADM30170    04                                                             
    56580ADM30540    04                                                             
    56590ADM80800    04                                                             
    56600RCV30370-00400                                                             
    56610TMT60050    05                                                             
    56620TR 56880    00  HAVE AVOIDED PULLING CONTROL WORD                          
    56630RAD59440    06  +0010                                                      
    56640ADM56700    06  CHANGE ADDRESSES TO MODIFY                                 
    56650ADM56720    06  RECEIVE INSTRUCTIONS                                       
    56660ADM56740    06                                                             
    56670ADM56760    06                                                             
    56680ADM56780    06                                                             
1   56690SET 0005    05                                                             
    56700RCV 6770-00400                                                             
    56710TMT59940    05                                                             
    56720RCV 6960-00400                                                             
    56730TMT59960    05                                                             
    56740RCV 7110-00400                                                             
    56750TMT59980    05                                                             
    56760RCV20580-00400                                                             
    56770TMT60030    05                                                             
    56780RCV30420-00400                                                             
    56790TMT60050    05                                                             
    56800TR 56880    00                                                             
1   56810SEL 0500    00                                                             
    56820WR 60460-02100                                                             
1   56830HLT 0004    00  BLOCK LENGT TOO LARGE                                      
    56840TR 56830    00                                                             
    56850RAD59440    06                                                             
    56860ADD59440    06  ADD 20 TO RECEIVE INSTRUCTIONS                             
    56870TR 56640    00                                                             
7   56871                ADD LENGTH OF CONTROL WORDS TO INSTRUCTIONS                
1   56880SET 0002    04                                                             
    56890LOD 2230    04                                                             
1   56900SET 0004    04                                                             
    56910UNL 5200    04                                                             
    56920UNL 8890    04  INTO SET AFTER DETER PROPER EOF                            
    56930ST 12230    04                                                             
    56940SUB12140    04                                                             
    56950ADM30530    04                                                             
    56960ADM30540    04                                                             
    56970ADM20720    04                                                             
    56980ADM20740    04                                                             
    56990ADM20760    04                                                             
    57000ADM 5660    04                                                             
    57010ADM 5930    04                                                             
    57020ADM 5680    04                                                             
    57030ADM 5950    04                                                             
    57040ADM 5710    04                                                             
    57050ADM 6170    04                                                             
    57060ADM 6880    04                                                             
    57070ADM11970    04                                                             
    57080ADM10400    04                                                             
    57090ADM20220    04                                                             
    57100ADM20330    04                                                             
    57110ADM30140    04                                                             
    57120ADM30170    04                                                             
    57130ADM80790    04                                                             
    57140ADM80800    04                                                             
    57150TR 57530    00  TRANSFER TO TEST PADDING                                   
    57170UNL57850-00402                                                             
    57180UNL 2130    01  1 AS R/B                                                   
    57190UNL58450-00402  SET SWITCH TO MOVE INSTRUCTIONS                            
    57200UNL80900-00401  SW 8 TO TR                                                 
    57210UNL80051-00401  SW 18 TO TR                                                
    57220UNL 5362-00401  SW 28 TO TR                                                
    57230UNL 7371-00401  SW 23 TO TR                                                
    57240UNL 9892-00401  SW 57A TO TR                                               
    57250UNL10310-00402  NOP INSTR TO REPLACE GROUP MARKS                           
    57260UNL10320-00402  AT END OF READ AREAS AFTER                                 
    57270UNL10330-00402  WRITE UNREADBALE RECORD                                    
    57280UNL10340-00402                                                             
    57290UNL10350-00402                                                             
    57300UNL10360-00402                                                             
    57310UNL10370-00402                                                             
1   57330SET 0004    01                                                             
1   57340SET 0001    12                                                             
    57350LOD 2120    12  LOW ORDER POSITION OF RECORD LENGTH                        
    57360CMP59440+00112  COMPARE TO 4                                               
    57370TRE57420    00                                                             
    57380CMP59680    12                                                             
    57390TRE57420    00  COMPARE TO 9                                               
    57400ADM 2120    01                                                             
    57410TR 57350    00  TRY AGAIN                                                  
    57420ADM 2120    01  ADD ONE TO RECORD LENGTH                                   
1   57440SET 0001    01                                                             
    57450LOD 2130    00                                                             
    57460TR 52110    00  USING 001 AS REC PER BLOCK                                 
1   57470LNG 0001    00  MULTIPLY BY 10                                             
    57480ADD59580    00  PROGRAM LENGTH                                             
    57490TR 52360    00                                                             
    57500MPY59500    00  MULTIPLY BLOCK LENGTH BY 8                                 
    57510ADD59530    00  ADD PROGRAM LENGTH PLUS 40                                 
    57520TR 52360    00                                                             
7   57521                COMPUTE COMPLEMENTS                                        
    57530RAD59450    00  40000                                                      
    57540SUB59460    00  MINUS BLOCK LENGTH                                         
    57550ADD12200    00  PLUS RECORD LENGTH                                         
    57560UNL60020    00                                                             
    57570LOD60020-00401                                                             
    57580TRZ57640    01                                                             
    57590CMP59620    01                                                             
    57600TRE57770    01                                                             
    57610TRH57790    01                                                             
    57620LOD12090    01                                                             
    57630ADM60020-00301                                                             
    57640TR 57690    00                                                             
    57650RCV12800-00300                                                             
    57660TMT60020-00308                                                             
    57670RAD12140    01                                                             
    57680TR 57810    00                                                             
    57690RCV12790-00300                                                             
    57700TMT60020-00308                                                             
    57710UNL57640-00402                                                             
    57720SUB12210    00                                                             
    57730SUB12210    00                                                             
    57740SUB12210    00                                                             
    57750SUB12210    00                                                             
    57760TR 57560    00                                                             
    57770LOD59570    01  EQUAL TO TWO                                               
    57780TR 57630    00                                                             
    57790LOD59560    01  EQUAL TO THREE                                             
    57800TR 57630    00                                                             
7   57801                TEST PADDING                                               
1   57810SET 0001    07                                                             
    57820LOD 2140    07                                                             
    57830CMP59680    07                                                             
    57840TRE58960    00  NINES PADDING                                              
    57850UNL 7290-00401  SW 36 TO TR FOR BLANK PADDING                              
1   57860SET 0010    07                                                             
    57870LOD59410    07                                                             
    57880UNL11990-04007  SET CONSTANT TO BLANKS                                     
    57890UNL11990-03007                                                             
    57900UNL11990-02007                                                             
    57910UNL11990-01007                                                             
    57920UNL11990    07                                                             
1   57930SET 0001    00  LOAD HASH INDICATOR                                        
    57940LOD 2170    00                                                             
    57950CMP59420    00  COMPARE TO H                                               
    57960TRE57980    00                                                             
    57970TR 58990    00                                                             
1   57980SET 0010    00  LOAD # INPUT RECORDS                                       
    57990LOD 2160    00                                                             
    58000CMP59410    00                                                             
    58010TRE59020    00                                                             
    58020UNL12030    00                                                             
7   58021                REWIND TAPES                                               
1   58030SEL 0201    00                                                             
1   58040IOF 0000    00                                                             
1   58050RWD 0002    00                                                             
1   58060SEL 0203    00                                                             
1   58070IOF 0000    00                                                             
1   58080RWD 0002    00                                                             
1   58090SEL 0205    00                                                             
1   58100IOF 0000    00                                                             
1   58110RWD 0002    00                                                             
1   58120RD  0000    01                                                             
    58130ADM12650    01  ADD 1 TO CTR U FOR PROGRAM LOADED ON TAPE 0205             
1   58140SEL 0207    00                                                             
1   58150IOF 0000    00                                                             
1   58160RWD 0002    00                                                             
1   58170SEL 0200    00                                                             
1   58180IOF 0000    00                                                             
1   58190RWD 0002    00                                                             
1   58200SEL 0202    00                                                             
1   58210IOF 0000    00                                                             
1   58220RWD 0002    00                                                             
    58230NOP58350    00  TRANSFER FOR 2 WAY MERGE                                   
1   58240SEL 0204    00                                                             
1   58250IOF 0000    00                                                             
1   58260RWD 0002    00                                                             
    58270NOP58350    00  TRANSFER FOR 3 WAY MERGE                                   
1   58280SEL 0206    00                                                             
1   58290IOF 0000    00                                                             
1   58300RWD 0002    00                                                             
    58310NOP58350    00  TR FOR 4 WAY MERGE                                         
1   58320SEL 0208    00                                                             
    58330UNL 5210-00402  SW 1A TO NOP                                               
1   58340RWD 0002    00                                                             
1   58350SET 0004    08                                                             
    58360RAD12730    03                                                             
    58370RAD12240    04                                                             
    58380RAD12220    06                                                             
    58390RAD12220    07                                                             
    58400RAD12220    08                                                             
    58410RAD12220    09                                                             
    58420RAD12220    10                                                             
    58430RAD12240    12                                                             
1   58440SET 0004    13                                                             
    58450TR 58520    00  SW 64 NOP FOR SINGLE RECORDS NOT ENDING IN R/M             
    58460RCV10390    00  MOVE SPECIAL INSTRUCTIONS FOR SINGLE                       
    58470TMT75010    00  REC NOT ENDING IN R/M                                      
    58490TR 58520    00  SWITCH 62 NOOP IF NINES PADDING                            
    58500RCV10390    00                                                             
    58510TMT70010    00                                                             
1   58511SET 0015    15                                                             
    58512LOD70230    15                                                             
    58513UNL11700    15                                                             
    58520TR 58570    00  SWITCH 63 TR FOR TAPE LABEL ON OUTPUT                      
    58530UNL 5210-00402  SW 1 TO NOP                                                
    58540RCV 4190-00300                                                             
    58550TMT59830-00313                                                             
    58560TR 50010    00                                                             
1   58570SEL 0100    00                                                             
    58580RWW 2250-08000                                                             
    58590RD  2250-08000                                                             
    58600TRA58710    00                                                             
    58610TMT60290    01  TMT G/M                                                    
    58620RCV 4190-00300  SWITCH 9 TO RETURN TO WRITE TAPE LABEL                     
    58630TMT59690-00313                                                             
    58640TR  4010    00  TO CHECKPOINT                                              
    58650ADM12640    01  ADD 1 TO CTR R                                             
    58660RAD12130    14                                                             
1   58670SEL 0201    00                                                             
    58680WR  2250-08000  WRITE TAPE LABEL                                           
    58690TRA58790    00                                                             
    58700TR 58530    00                                                             
1   58710SEL 0902    00  TRA READING TAPE LABEL CARD                                
    58720TRS58770    00                                                             
1   58730SEL 0100    00                                                             
    58740TRS58770    00                                                             
1   58750HLT 0005    00  FALSE TRA READING TAPE LABEL CARD                          
    58760TR 58570    00                                                             
1   58770HLT 0006    00  902 OR EOF READING TAPE LABEL CARD                         
    58780TR 58570    00                                                             
1   58790SEL 0901    00                                                             
    58800TRS 8700    00                                                             
1   58810SEL 0902    00                                                             
    58820TRS58890    00                                                             
1   58830SEL 0201    00                                                             
    58840TRS58870    00                                                             
1   58850HLT 0007    00  FALSE TRA WRITING TAPE LABEL ON FIRST TAPE                 
    58860TR  4430    00  TRANSFER TO RESTART                                        
1   58870HLT 0008    00  EOF ON O/P WRITING TAPE LABEL  USE LONGER TAPE             
    58880TR 58660    00                                                             
1   58890SEL 0500    00                                                             
    58900WR 60440-00900                                                             
1   58910SEL 0201    00                                                             
1   58920BSP 0004    00                                                             
    58930NTR58670    14                                                             
1   58940HLT 0009    00  902 WRITING TAPE LABEL  HAVE TRIED 3 TIMES                 
    58950TR 58660    00                                                             
    58960UNL58490-00402  NINES PADDING                                              
    58970UNL 6520-00402  SW 22 TO NOP                                               
    58980TR 57930    00                                                             
    58990UNL11190-00401  SW 59A TO TR                                               
    58991UNL11430-00401  SW 59B TO TR                                               
    59000UNL 9070-00401  SW 45 TO TR SINCE NO HASH TOTAL ON INPUT                   
    59010TR 57980    00                                                             
    59020UNL11380-00401  MAKE TRE A TR                                              
    59030TR 58030    00                                                             
    59040UNL 5230-00401  SW 2A TO TR SINCE NO TAPE LABEL ON INPUT                   
    59050TR 54690    00                                                             
    59060UNL 8380-00401  SW 55 TO TR SINCE NO TAPE LABEL ON OUTPUT                  
    59070UNL58520-00402  SWITCH 63 TO NOOP                                          
    59071UNL11680-00402  NOP READ OVER TAPE LABEL                                   
    59080TR 54710    00                                                             
    59090LOD 2100    06  P5                                                         
    59100CMP59670    06  COMPARE TO 0000                                            
    59110TRH59150    06                                                             
1   59120SEL 0500    00                                                             
    59130WR 60500-01100  P5 INCORRECT                                               
    59140UNL59390-00402                                                             
    59150LOD 2080    06  P4                                                         
    59160CMP59670    06                                                             
    59170TRH59210    06                                                             
1   59180SEL 0500    00                                                             
    59190WR 60520-01100  P4 INCORRECT                                               
    59200UNL59390-00402                                                             
    59210LOD 2060    06  P3                                                         
    59220CMP59670    06                                                             
    59230TRH59270    06                                                             
1   59240SEL 0500    00                                                             
    59250WR 60540-01100  P3 INCORRECT                                               
    59260UNL59390-00402                                                             
    59270LOD 2040    06  P2                                                         
    59280CMP59670    06                                                             
    59290TRH59330    06                                                             
1   59300SEL 0500    00                                                             
    59310WR 60560-01100  P2 INCORRECT                                               
    59320UNL59390-00402                                                             
    59330LOD 2020    06  P1                                                         
    59340CMP59670    06                                                             
    59350TRH59390    06                                                             
1   59360SEL 0500    00                                                             
    59370WR 60580-01100  P1 INCORRECT                                               
    59380UNL59390-00402                                                             
    59390TR 50370    00                                                             
    59400TR 50980    00                                                             
201059410                                      10 BLANKS                            
200159420               H                                                           
200159430              +1                                                           
200459440              +0010                                                        
200559450              +40000                                                       
200459460              +0000    BLOCK LENGTH                                        
200459470              +4790                                                        
200159480              +6                                                           
200159490              +4                                                           
200159500              +8                                                           
200459510              +4660                                                        
200459520              +4630                                                        
200459530              +5220                                                        
200459540              +5180                                                        
200359550              +515                                                         
200159560               +                                                           
200159570               -                                                           
200459580              +5620                                                        
200459590              +5570                                                        
7   59591               UNSIGNED CONSTANTS                                          
200259600               50                                                          
200359610               000                                                         
200159620               2                                                           
200159630               3                                                           
200159640               4                                                           
200159650               5                                                           
200159660               1                                                           
200559670               20000                                                       
200159680               9                                                           
3   59690   58650                                                                   
200159700               1                                                           
3   59710    6840                                                                   
3   59720    7030                                                                   
3   59730    7180                                                                   
200459740               0000  ADDR OF FIRST READ IN AREA                            
200459750               0000 ADDR OF SECOND READ IN AREA                            
200459760               0000 ADDR OF THIRD READ IN AREA                             
200459770               0000                                                        
200459780               0000                                                        
3   59790    4870       FOR TRZ IN RESTART IN 3 WAY MERGE                           
3   59800   59590                                                                   
3   59810   59540                                                                   
3   59820   59520                                                                   
3   59830    5050                                                                   
3   59840   20070+004   WORK AREA FOR COMPUTING END OF RD A                         
200559850               00000                                                       
3   59860   53690                                                                   
3   59870   53910                                                                   
3   59880   54120                                                                   
3   59890   54300                                                                   
3   59900   54370                                                                   
3   59910   54430                                                                   
3   59920   54480                                                                   
3   59930   53470                                                                   
200159940               1                                                           
3   59950    6830       TRANSFER FOR OMITTING INSTR WHILE PULLING CW                
200159960               1                                                           
3   59970    7020                                                                   
200159980               1                                                           
3   59990    7170                                                                   
200160000               1                                                           
200460010               0379                                                        
500560020               FOR COMPUTING COMPLEMENT                                    
200160030               1                                                           
3   60040   20640                                                                   
200160050               1                                                           
3   60060   30480                                                                   
500560240               TO PREVENT OVERFLOW WHEN COMPUTING END OF C                 
500560250               TO DETER WHERE INSTR FOR PULLING CW SHOULD GO               
500560260                                                                           
500360270               WORK AREA FOR CW LENGTH                                     
202560280               SUM L NOT EQ TOTAL LNG CW                                   
200160290               | G/M                                                       
202160300               NO REELS INPUT BLANK                                        
200160310               | G/M                                                       
202260320               NO REELS INPUT A ZERO                                       
200160330               | G/M                                                       
202260340               NO REELS INPUT B ZERO                                       
200160350               | G/M                                                       
200860360               1G BLANK                                                    
200160370               | G/M                                                       
201260380               LNG CW GR 50                                                
200160390               | G/M                                                       
201160400               L1 IS BLANK                                                 
200160410               | G/M                                                       
202660420               WRONG ORDER OF MERGER GIVEN                                 
200160430               | G/M                                                       
201060440               902 ON 201                                                  
200160450               | G/M                                                       
202260460               BLOCK LENGTH TOO LARGE                                      
200160470               | G/M                                                       
202360480               RECORD LENGTH TO SMALL                                      
200160490               | G/M                                                       
201260500               P5 INCORRECT                                                
200160510               | G/M                                                       
201260520               P4 INCORRECT                                                
200160530               | G/M                                                       
201260540               P3 INCORRECT                                                
200160550               | G/M                                                       
201260560               P2 INCORRECT                                                
200160570               | G/M                                                       
201260580               P1 INCORRECT                                                
200160590               | G/M                                                       
7   70001               NINES PADDING INSTRUCTIONS                                  
    70010CMP12080    03 IS OUTPUT BLOCK FILLED                                      
    70020TRE10430    00                                                             
    70030ADM12710    01 BLOCK NOT FILLED ADD 1 TO # OF PADDING RECORDS              
    70040TR  6560    00                                                             
    70050RCV 6580-00300 ADD REMAINING PADDING TO                                    
    70060TMT11960-00313 ADDUMULATED HASH TOTAL                                      
1   70070SET 0003    14                                                             
    70080LOD 5740    14 SET UP ADDR TO PLACE G/M IN WRITE AREA                      
    70090SUB12150    14                                                             
    70100UNL11680    14                                                             
    70110RCV11680-00300                                                             
    70120TMT 5740-00301                                                             
    70130UNL 7300-00401 SW 37 TO TR                                                 
    70140UNL10410-00402 NOP ADM INSTR                                               
1   70150NOP 0000    00                                                             
    70160UNL 9840-00402 NOP WR TAPE BSP IN 902 ROUTINE                              
    70170ADM12720    01 ADD 1 TO PADDING BLOCKS DROPPED                             
    70180TR  6560    00                                                             
200470190                                                                           
200170200               #                                                           
1   70210RCV         00                                                             
    70220TMT12340    01                                                             
    70230TR  7320    00                                                             
7   75001               SPECIAL INSTR FOR SINGLE REC NOT ENDING IN R/M              
    75010TMT12010    01 PLACE G/M + 5 R/M BEHIND                                    
    75020TMT10500+00101 SINGLE REC NOT ENDING IN R/M                                
    75030TMT10500+00213                                                             
    75040TR  5370    00                                                             
    75050TMT12010    01 G/M + 5 R/M                                                 
    75060TMT10500+00101                                                             
    75070TMT10500+00213                                                             
    75080TR  7380    00                                                             
    75090TMT12010    01 G/M + 5 R/M                                                 
    75100TMT10500+00101                                                             
    75110TMT10500+00213                                                             
    75120TR  9900    00                                                             
200175130               #                                                           
200175140               #                                                           
200175150               #                                                           
200175160               #                                                           
200175170               #                                                           
7   80001               PULL CONTROL WORD INITIALLY                                 
    80040UNL 5210-00401 SW 1A TO TR                                                 
    80050RAD12250    04                                                             
    80051NOP 5230    00 SWITCH 1B TR FOR SINGLE REC NOT ENDING IN R/M               
    80060LOD12560    01 PLACE G/M AT END OF READ AREAS                              
1   80070UNL 0000    01                                                             
1   80080UNL 0000    01                                                             
1   80090UNL 0000    01                                                             
1   80100UNL 0000    01                                                             
1   80110UNL 0000    01                                                             
1   80120UNL 0000    01 PLACE G/M AT END OF WRITE AREAS                             
1   80130UNL 0000    01                                                             
1   80140UNL 0000    01                                                             
1   80150UNL 0000    01                                                             
    80160RAD12140    01 RESTORE ASU 01 TO 1                                         
    80170TR  5230    00                                                             
1   80180NTR 0449    04                                                             
7   80181               HAVE READ IN ALL TAPES  PULL CONTROL WORDS                  
1   80190SET 0000    14                                                             
    80200RCV12830    00                                                             
1   80210TMT 0000    14                                                             
1   80220SET 0000    14                                                             
1   80230TMT 0000    14                                                             
1   80240SET 0000    14                                                             
1   80250TMT 0000    14                                                             
1   80260SET 0000    14                                                             
1   80270TMT 0000    14                                                             
1   80280SET 0000    14                                                             
1   80290TMT 0000    14                                                             
1   80300SET 0000    14 PULL CONTROL WORD FOR B                                     
    80310RCV12850    00                                                             
1   80320TMT 0000    14                                                             
1   80330SET 0000    14                                                             
1   80340TMT 0000    14                                                             
1   80350SET 0000    14                                                             
1   80360TMT 0000    14                                                             
1   80370SET 0000    14                                                             
1   80380TMT 0000    14                                                             
1   80390SET 0000    14                                                             
1   80400TMT 0000    14                                                             
1   80410NOP 0414    00 SW 4 TR IF 2 WAY MERGE                                      
1   80420SET 0000    14 PULL CONTROL WORD FOR C                                     
    80430RCV12870    00                                                             
1   80440TMT 0000    14                                                             
1   80450SET 0000    14                                                             
1   80460TMT 0000    14                                                             
1   80470SET 0000    14                                                             
1   80480TMT 0000    14                                                             
1   80490SET 0000    14                                                             
1   80500TMT 0000    14                                                             
1   80510SET 0000    14                                                             
1   80520TMT 0000    14                                                             
1   80530NOP 0414    00 SW 5 TR IF 3 WAY MERGE                                      
1   80540SET 0000    14 PULL CONTROL WORD FOR D                                     
    80550RCV20020    00                                                             
1   80560TMT 0000    14                                                             
1   80570SET 0000    14                                                             
1   80580TMT 0000    14                                                             
1   80590SET 0000    14                                                             
1   80600TMT 0000    14                                                             
1   80610SET 0000    14                                                             
1   80620TMT 0000    14                                                             
1   80630SET 0000    14                                                             
1   80640TMT 0000    14                                                             
1   80650NOP 0414    00 SW 6 TR IF 5 WAY MERGE                                      
1   80660SET 0000    14 PULL CONTROL WORD FOR E                                     
    80670RCV30010    00                                                             
1   80680TMT 0000    14                                                             
1   80690SET 0000    14                                                             
1   80700TMT 0000    14                                                             
1   80710SET 0000    14                                                             
1   80720TMT 0000    14                                                             
1   80730SET 0000    14                                                             
1   80740TMT 0000    14                                                             
1   80750SET 0000    14                                                             
1   80760TMT 0000    14                                                             
    80770RAD12140    01                                                             
1   80780TR  0414    00 SW 7 NO FOR 5 WAY MERGE                                     
    80790LOD20020    00 LOAD CWD                                                    
    80800CMP30010    00                                                             
1   80810TRH 0409    00                                                             
    80820UNL20210-00402 SW 19 TO NOP                                                
1   80830TR  0414    00                                                             
    80840UNL20210-00401 SW 19 TO TR                                                 
    80850RCV 4190-00300                                                             
    80860TMT11730-00313 SW 9 TO GO TO MERGE                                         
    80870RAD12140    01                                                             
    80880RAD12240    04                                                             
    80890UNL 5380-00402 SW 3 TO NOP                                                 
    80900NOP 4010    00 SWITCH 8 TR FOR SINGLE REC NOT ENDING IN R/M                
    80910TR  3910    00 TO PLACE G/M AT END OF LAST WRITE AREA                      
7   81110               MODIFY ADDRESSES BEFORE READING NEXT TAPE                   
    81120RAD12100    14 +0002 IN ASU 14                                             
    81130ADM 5240    14 ADD TO SELECT FOR TAPE LABEL                                
    81140ADM 5350    14 FOR READ                                                    
    81150ADM12330    14 FOR MESSAGE                                                 
    81160ADM 5420    14 TO TEST FOR EOF                                             
    81170RAD12210    14 BLOCK LENGTH PLUS 5                                         
    81180ADM 5250    14 MODIFY READ AND WRITE ADDRESSEES                            
    81190ADM 5300    14 FOR TAPE LABEL AND READ IN AREA                             
    81200ADM 5360    14                                                             
    81210RAD12120    14 +0005                                                       
    81220ADM 5340    14 FOR CTRS                                                    
    81230ADM 5320    14                                                             
    81240TR  5230    00 TRANSFER BACK TO READ NEXT TAPE                             
200481250                                                                           
200181260               #                                                           
