Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

016182,000002:                                                                                                  ## Copyright:   Public domain.
016183,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_2.agc
016184,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
016185,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
016186,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
016187,000007:                                                                                                  ## Assembler:   yaYUL --block1
016188,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
016189,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
016190,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
016191,000011:                                                                                                  ## Mod history: 2009-10-04 JL   Created.
016192,000012:                                                                                                  ##              2009-10-30 JL   Fixed filename comment.
016193,000013:                                                                                                  ##              2016-08-20 RSB  Typos.
016194,000014:                                                                                                  ##              2016-08-23 RSB  More of the same.
016195,000015:                                                                                                  ##              2016-12-28 RSB  Proofed comment text using octopus/ProoferComments,
016196,000016:                                                                                                  ##                              and fixed errors found.
016197,000017: 

Page 426

016199,000019: 
016200,000020: 34,6000                                           SETLOC   70000                                 
016201,000021: 
016202,000022: 34,6000           05654        MISALIGN           TC       BANKCALL                              
016203,000023: 34,6001           25331                           CADR     OGCZERO                               
016204,000024: 34,6002           03302                           TC       GRABDSP                               
016205,000025: 34,6003           03310                           TC       PREGBSY                               
016206,000026: 34,6004           33533                           CAF      11DEC                                 
016207,000027: 34,6005           51311                           TS       PTS                                   
016208,000028: 34,6006           35501                           CAF      ZERO                                  
016209,000029: 34,6007           51312                           TS       PTS        +1                         
016210,000030: 34,6010           51224        BBB                TS       NDXCTR                                
016211,000031: 34,6011           21224                           INDEX    NDXCTR                                
016212,000032: 34,6012           41204                           CS       GENPL      +68D                       
016213,000033: 34,6013           21224                           INDEX    NDXCTR                                
016214,000034: 34,6014           61212                           AD       GENPL      +74D                       
016215,000035: 34,6015           21224                           INDEX    NDXCTR                                
016216,000036: 34,6016           51212                           TS       GENPL      +74D                       
016217,000037: 34,6017           36235                           CAF      63DEC                                 
016218,000038: 34,6020           61224                           AD       NDXCTR                                
016219,000039: 34,6021           10000                           CCS      A                                     
016220,000040: 34,6022           44473                           CS       THREE                                 
016221,000041: 34,6023           61224                           AD       NDXCTR                                
016222,000042: 34,6024           06010                           TC       BBB                                   
016223,000043: 34,6025           51224        CCCC               TS       NDXCTR                                
016224,000044: 34,6026           04000                           TC       INTPRET                               
016225,000045: 34,6027           73576                           LXA,1    0                                     
016226,000046: 34,6030           01225                                    NDXCTR                                
016227,000047: 34,6031           44175                           DMOVE*   1                                     
016228,000048: 34,6032           66776                           DSU                                            
016229,000049: 34,6033           02421                                    GENPL      +72D,1                     
016230,000050: 34,6034           01101                                    GENPL                                 
016231,000051: 34,6035           36421                           STORE    GENPL      +72D,1                     
016232,000052: 34,6036           77576                           EXIT     0                                     
016233,000053: 34,6037           41224                           CS       NDXCTR                                
016234,000054: 34,6040           66236                           AD       69DEC                                 
016235,000055: 34,6041           10000                           CCS      A                                     
016236,000056: 34,6042           34473                           CAF      THREE                                 
016237,000057: 34,6043           61224                           AD       NDXCTR                                
016238,000058: 34,6044           06025                           TC       CCCC                                  
016239,000059: 34,6045           51100                           TS       GENPL                                 
016240,000060: 34,6046           51101                           TS       GENPL      +1                         
016241,000061: 34,6047           51312                           TS       RUN                                   
016242,000062: 34,6050           34473                           CAF      THREE                                 
016243,000063: 34,6051           51224        DDDD               TS       NDXCTR                                
016244,000064: 34,6052           04000                           TC       INTPRET                               
016245,000065: 34,6053           73576                           LXA,1    0                                     
016246,000066: 34,6054           01225                                    NDXCTR                                
016247,000067: 34,6055           66376                           DSU*     0                                     
016248,000068: 34,6056           02421                                    GENPL      +72D,1                     
016249,000069: 34,6057           02405                                    GENPL      +66D,1                     
016250,000070: 34,6060           47575                           NOLOD    1                                     

Page 427

016252,000072: 34,6061           56740                           TSRT     DAD*                                  
016253,000073: 34,6062           00002                                    1                                     
016254,000074: 34,6063           02405                                    GENPL      +66D,1                     
016255,000075: 34,6064           36421                           STORE    GENPL      +72D,1                     
016256,000076: 34,6065           47575                           NOLOD    1                                     
016257,000077: 34,6066           63742                           TSLT     DAD                                   
016258,000078: 34,6067           00003                                    2                                     
016259,000079: 34,6070           01521                                    OGC                                   
016260,000080: 34,6071           33521                           STORE    OGC                                   
016261,000081: 34,6072           44174                           DMOVE*   2                                     
016262,000082: 34,6073           63643                           TSLT     DSQ                                   
016263,000083: 34,6074           70776                           DAD                                            
016264,000084: 34,6075           02421                                    GENPL      +72D,1                     
016265,000085: 34,6076           00005                                    4                                     
016266,000086: 34,6077           01525                                    MGC                                   
016267,000087: 34,6100           33525                           STORE    MGC                                   
016268,000088: 34,6101           77576                           EXIT     0                                     
016269,000089: 34,6102           41312                           CS       RUN                                   
016270,000090: 34,6103           40000                           COM                                            
016271,000091: 34,6104           61224                           AD       NDXCTR                                
016272,000092: 34,6105           40000                           COM                                            
016273,000093: 34,6106           66235                           AD       63DEC                                 
016274,000094: 34,6107           10000                           CCS      A                                     
016275,000095: 34,6110           34475                           CAF      SIX                                   
016276,000096: 34,6111           61224                           AD       NDXCTR                                
016277,000097: 34,6112           06051                           TC       DDDD                                  
016278,000098: 34,6113           61312                           AD       RUN                                   
016279,000099: 34,6114           51224        EEEE               TS       NDXCTR                                
016280,000100: 34,6115           21224                           INDEX    NDXCTR                                
016281,000101: 34,6116           41113                           CS       GENPL      +11D                       
016282,000102: 34,6117           40000                           COM                                            
016283,000103: 34,6120           51572                           TS       TEMDELV                               
016284,000104: 34,6121           35501                           CAF      ZERO                                  
016285,000105: 34,6122           51573                           TS       TEMDELV    +1                         
016286,000106: 34,6123           04000                           TC       INTPRET                               
016287,000107: 34,6124           71576                           LXC,1    0                                     
016288,000108: 34,6125           01225                                    NDXCTR                                
016289,000109: 34,6126           45176                           DMOVE    0                                     
016290,000110: 34,6127           77777                                    -                                     
016291,000111: 34,6130           47574                           NOLOD    2                                     
016292,000112: 34,6131           63706                           TSLT     BDDV                                  
016293,000113: 34,6132           70776                           DAD                                            
016294,000114: 34,6133           00006                                    5                                     
016295,000115: 34,6134           01573                                    TEMDELV                               
016296,000116: 34,6135           01523                                    IGC                                   
016297,000117: 34,6136           33523                           STORE    IGC                                   
016298,000118: 34,6137           63775                           TSLT     1                                     
016299,000119: 34,6140           61776                           BDDV                                           
016300,000120: 34,6141           77777                                    -                                     
016301,000121: 34,6142           00004                                    3                                     

Page 428

016303,000123: 34,6143           01573                                    TEMDELV                               
016304,000124: 34,6144           44174                           DMOVE*   2                                     
016305,000125: 34,6145           63722                           TSLT     DMP                                   
016306,000126: 34,6146           70776                           DAD                                            
016307,000127: 34,6147           02223                                    GENPL      +9D,1                      
016308,000128: 34,6150           00005                                    4                                     
016309,000129: 34,6151           77777                                    -                                     
016310,000130: 34,6152           01101                                    GENPL                                 
016311,000131: 34,6153           33101                           STORE    GENPL                                 
016312,000132: 34,6154           77576                           EXIT     0                                     
016313,000133: 34,6155           41224                           CS       NDXCTR                                
016314,000134: 34,6156           66235                           AD       63DEC                                 
016315,000135: 34,6157           61312                           AD       RUN                                   
016316,000136: 34,6160           64341                           AD       NEG3                                  
016317,000137: 34,6161           10000                           CCS      A                                     
016318,000138: 34,6162           34475                           CAF      SIX                                   
016319,000139: 34,6163           61224                           AD       NDXCTR                                
016320,000140: 34,6164           06114                           TC       EEEE                                  
016321,000141: 34,6165           04000                           TC       INTPRET                               
016322,000142: 34,6166           64776                           DMP      0                                     
016323,000143: 34,6167           01521                                    OGC                                   
016324,000144: 34,6170           01101                                    GENPL                                 
016325,000145: 34,6171           64775                           DMP      1                                     
016326,000146: 34,6172           66776                           DSU                                            
016327,000147: 34,6173           01525                                    MGC                                   
016328,000148: 34,6174           01523                                    IGC                                   
016329,000149: 34,6175           51175                           DSQ      1                                     
016330,000150: 34,6176           56776                           TSRT                                           
016331,000151: 34,6177           01521                                    OGC                                   
016332,000152: 34,6200           00002                                    1                                     
016333,000153: 34,6201           63774                           TSLT     2                                     
016334,000154: 34,6202           64732                           DMP      DSU                                   
016335,000155: 34,6203           61722                           BDDV     DMP                                   
016336,000156: 34,6204           01312                                    PTS                                   
016337,000157: 34,6205           00012                                    11                                    
016338,000158: 34,6206           01525                                    MGC                                   
016339,000159: 34,6207           77777                                    -                                     
016340,000160: 34,6210           77777                                    -                                     
016341,000161: 34,6211           30234                                    K                                     
016342,000162: 34,6212           32622                           STORE    DSPTEM2                               
016343,000163: 34,6213           77576                           EXIT     0                                     
016344,000164: 34,6214           05654                           TC       BANKCALL                              
016345,000165: 34,6215           14000                           CADR     FLASHON                               
016346,000166: 34,6216           37730                           CAF      V06N66E                               
016347,000167: 34,6217           03100                           TC       NVSUB                                 
016348,000168: 34,6220           03315                           TC       PRENVBSY                              
016349,000169: 34,6221           03136                           TC       ENDIDLE                               
016350,000170: 34,6222           06237                           TC       ENDTEST1                              
016351,000171: 34,6223           34473                           CAF      THREE                                 
016352,000172: 34,6224           51312                           TS       RUN                                   

Page 429

016354,000174: 34,6225           05654                           TC       BANKCALL                              
016355,000175: 34,6226           25331                           CADR     OGCZERO                               
016356,000176: 34,6227           35501                           CAF      ZERO                                  
016357,000177: 34,6230           51100                           TS       GENPL                                 
016358,000178: 34,6231           51101                           TS       GENPL      +1                         
016359,000179: 34,6232           06051                           TC       DDDD                                  
016360,000180: 
016361,000181: 
016362,000182: 
016363,000183: 34,6233           02321 00000  K                  2DEC     1.233      E3         B-14            
016364,000184: 34,6235           00077        63DEC              DEC      63         B-14                       
016365,000185: 34,6236           00105        69DEC              DEC      69         B-14                       
016366,000186: 
016367,000187: 
016368,000188: 
016369,000189: 34,6237           05654        ENDTEST1           TC       BANKCALL                              
016370,000190: 34,6240           25406                           CADR     ENDTEST                               
016371,000191: 

Page 430

016373,000193: 
016374,000194: 34,6241           05706        FINDNAVB           TC       MAKECADR                              
016375,000195: 34,6242           51573                           TS       RETAA                                 
016376,000196: 34,6243           05654                           TC       BANKCALL                              
016377,000197: 34,6244           30453                           CADR     MKRELEAS                              
016378,000198: 34,6245           34516                           CAF      ONE                                   
016379,000199: 34,6246           50616                           TS       DSPTEM1                               
016380,000200: 34,6247           37731                           CAF      V01N30E                               #  MARK ON TARGET 1
016381,000201: 34,6250           03100                           TC       NVSUB                                 
016382,000202: 34,6251           03315                           TC       PRENVBSY                              
016383,000203: 34,6252           34516                           CAF      ONE                                   
016384,000204: 34,6253           05654                           TC       BANKCALL                              
016385,000205: 34,6254           30406                           CADR     SXTMARK                               
016386,000206: 34,6255           05654                           TC       BANKCALL                              
016387,000207: 34,6256           30327                           CADR     OPTSTALL                              
016388,000208: 34,6257           06237                           TC       ENDTEST1                              
016389,000209: 34,6260           20735                           INDEX    MARKSTAT                              
016390,000210: 34,6261           40000                           CS       0                                     
016391,000211: 34,6262           40000                           CS       A                                     
016392,000212: 34,6263           51302                           TS       VACADR                                #  TIME OF MARK
016393,000213: 34,6264           20735                           INDEX    MARKSTAT                              
016394,000214: 34,6265           40001                           CS       1                                     
016395,000215: 34,6266           40000                           CS       A                                     
016396,000216: 34,6267           51303                           TS       VACADR     +1                         
016397,000217: 34,6270           40735                           CS       MARKSTAT                              
016398,000218: 34,6271           51304                           TS       MKSTAT1                               
016399,000219: 34,6272           05654                           TC       BANKCALL                              
016400,000220: 34,6273           30453                           CADR     MKRELEAS                              
016401,000221: 34,6274           35503                           CAF      TWO                                   
016402,000222: 34,6275           50616                           TS       DSPTEM1                               
016403,000223: 34,6276           37731                           CAF      V01N30E                               #  MARK ON TARGET 4
016404,000224: 34,6277           03100                           TC       NVSUB                                 
016405,000225: 34,6300           03315                           TC       PRENVBSY                              
016406,000226: 34,6301           34516                           CAF      ONE                                   
016407,000227: 34,6302           05654                           TC       BANKCALL                              
016408,000228: 34,6303           30406                           CADR     SXTMARK                               
016409,000229: 34,6304           11305                           CCS      COAROFIN                              #  COARSE ALIGN OR FINE ALIGN MARKS
016410,000230: 34,6305           06374                           TC       CLGNMARK                              
016411,000231: 34,6306           41304                           CS       MKSTAT1                               
016412,000232: 34,6307           65503                           AD       TWO                                   
016413,000233: 34,6310           20067                           INDEX    FIXLOC                                
016414,000234: 34,6311           50050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
016415,000235: 34,6312           04000                           TC       INTPRET                               #  OPT-NB-SM    TARGET 1
016416,000236: 34,6313           73576                           LXA,1    0                                     
016417,000237: 34,6314           01305                                    MKSTAT1                               
016418,000238: 34,6315           76776                           ITC      0                                     
016419,000239: 34,6316           04733                                    SXTNB                                 
016420,000240: 34,6317           44775                           VSLT     1                                     
016421,000241: 34,6320           76776                           ITC                                            
016422,000242: 34,6321           00041                                    STARM                                 
016423,000243: 34,6322           00001                                    0                                     

Page 431

016425,000245: 34,6323           04524                                    NBSM                                  
016426,000246: 34,6324           47576                           NOLOD    0                                     
016427,000247: 34,6325           33403                           STORE    STARAD                                
016428,000248: 34,6326           45176                           DMOVE    0                                     
016429,000249: 34,6327           01303                                    VACADR                                
016430,000250: 34,6330           33175                           STORE    TMARK                                 
016431,000251: 34,6331           77576                           EXIT     0                                     
016432,000252: 
016433,000253: 34,6332           04000        EARRTCOM           TC       INTPRET                               #  COMPENSATE BETWEEN FINE ALIGN MARKS
016434,000254: 34,6333           76776                           ITC      0                                     
016435,000255: 34,6334           30613                                    EARTHR                                
016436,000256: 34,6335           76776                           ITC      0                                     
016437,000257: 34,6336           30634                                    OUTGYR                                
016438,000258: 34,6337           77576                           EXIT     0                                     
016439,000259: 34,6340           05654                           TC       BANKCALL                              
016440,000260: 34,6341           30331                           CADR     IMUSTALL                              
016441,000261: 34,6342           06237                           TC       ENDTEST1                              
016442,000262: 34,6343           10734                           CCS      OPTCADR                               
016443,000263: 34,6344           06347                           TC       +3                                    
016444,000264: 34,6345           06332                           TC       EARRTCOM                              
016445,000265: 34,6346           06347                           TC       +1                                    
016446,000266: 34,6347           05654                           TC       BANKCALL                              
016447,000267: 34,6350           30327                           CADR     OPTSTALL                              
016448,000268: 34,6351           06237                           TC       ENDTEST1                              
016449,000269: 34,6352           35503                           CAF      TWO                                   
016450,000270: 34,6353           60735                           AD       MARKSTAT                              
016451,000271: 34,6354           20067                           INDEX    FIXLOC                                
016452,000272: 34,6355           50050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
016453,000273: 34,6356           04000                           TC       INTPRET                               #  OPT-NB-SM    TARGET 4
016454,000274: 34,6357           71576                           LXC,1    0                                     
016455,000275: 34,6360           00736                                    MARKSTAT                              
016456,000276: 34,6361           76776                           ITC      0                                     
016457,000277: 34,6362           04733                                    SXTNB                                 
016458,000278: 34,6363           44775                           VSLT     1                                     
016459,000279: 34,6364           76776                           ITC                                            
016460,000280: 34,6365           00041                                    STARM                                 
016461,000281: 34,6366           00001                                    0                                     
016462,000282: 34,6367           04524                                    NBSM                                  
016463,000283: 34,6370           47576                           NOLOD    0                                     
016464,000284: 34,6371           33411                           STORE    STARAD     +6                         
016465,000285: 34,6372           76776                           ITC      0                                     
016466,000286: 34,6373           30421                                    MATXDET                               
016467,000287: 
016468,000288: 34,6374           04000        CLGNMARK           TC       INTPRET                               #  OPT-NB       TARGET 1
016469,000289: 34,6375           73576                           LXA,1    0                                     
016470,000290: 34,6376           01305                                    MKSTAT1                               
016471,000291: 34,6377           76776                           ITC      0                                     
016472,000292: 34,6400           04733                                    SXTNB                                 
016473,000293: 34,6401           75176                           VMOVE    0                                     
016474,000294: 34,6402           00041                                    STARM                                 

Page 432

016476,000296: 34,6403           33403                           STORE    STARAD                                
016477,000297: 34,6404           77576                           EXIT     0                                     
016478,000298: 34,6405           05654                           TC       BANKCALL                              
016479,000299: 34,6406           30327                           CADR     OPTSTALL                              
016480,000300: 34,6407           06237                           TC       ENDTEST1                              
016481,000301: 34,6410           04000                           TC       INTPRET                               #  OPT-NB       TARGET 4
016482,000302: 34,6411           71576                           LXC,1    0                                     
016483,000303: 34,6412           00736                                    MARKSTAT                              
016484,000304: 34,6413           76776                           ITC      0                                     
016485,000305: 34,6414           04733                                    SXTNB                                 
016486,000306: 34,6415           75176                           VMOVE    0                                     
016487,000307: 34,6416           00041                                    STARM                                 
016488,000308: 34,6417           33411                           STORE    STARAD     +6                         
016489,000309: 
016490,000310: 34,6420           75176        MATXDET            VMOVE    0                                     #  CALCULATE TRANSFORMATION MATRIX
016491,000311: 34,6421           01101                                    TAR1POS                               
016492,000312: 34,6422           32007                           STORE    6                                     
016493,000313: 34,6423           75176                           VMOVE    0                                     
016494,000314: 34,6424           01107                                    TAR1POS    +6                         
016495,000315: 34,6425           32015                           STORE    12D                                   
016496,000316: 34,6426           76776                           ITC      0                                     
016497,000317: 34,6427           04761                                    AXISGEN                               
016498,000318: 34,6430           75176                           VMOVE    0                                     
016499,000319: 34,6431           01477                                    XDC                                   
016500,000320: 34,6432           33403                           STORE    STARAD                                
016501,000321: 34,6433           75176                           VMOVE    0                                     
016502,000322: 34,6434           01505                                    YDC                                   
016503,000323: 34,6435           33411                           STORE    STARAD     +6                         
016504,000324: 34,6436           75176                           VMOVE    0                                     
016505,000325: 34,6437           01513                                    ZDC                                   
016506,000326: 34,6440           33417                           STORE    STARAD     +12D                       
016507,000327: 34,6441           77576                           EXIT     0                                     
016508,000328: 34,6442           31573                           XCH      RETAA                                 
016509,000329: 34,6443           05723                           TC       BANKJUMP                              
016510,000330: 

Page 433

016512,000332: 
016513,000333: 34,6444           05706        PUTPOSX            TC       MAKECADR                              
016514,000334: 34,6445           51573                           TS       RETAA                                 
016515,000335: 34,6446           04000                           TC       INTPRET                               
016516,000336: 34,6447           76776                           ITC      0                                     
016517,000337: 34,6450           04644                                    CALCGA                                
016518,000338: 34,6451           77576                           EXIT     0                                     
016519,000339: 34,6452           05654                           TC       BANKCALL                              
016520,000340: 34,6453           30104                           CADR     IMUCOARS                              #  INITIATE COARSE ALIGN MODE
016521,000341: 34,6454           05654                           TC       BANKCALL                              
016522,000342: 34,6455           30331                           CADR     IMUSTALL                              #  WAIT FOR IMUCOARS COMPLETION
016523,000343: 34,6456           06237                           TC       ENDTEST1                              
016524,000344: 34,6457           31573                           XCH      RETAA                                 
016525,000345: 34,6460           05723                           TC       BANKJUMP                              
016526,000346: 
016527,000347: 
016528,000348: 
016529,000349: 34,6461           05706        SMDCALC            TC       MAKECADR                              
016530,000350: 34,6462           51573                           TS       RETAA                                 
016531,000351: 34,6463           04000                           TC       INTPRET                               
016532,000352: 34,6464           52775                           MXV      1                                     
016533,000353: 34,6465           44776                           VSLT                                           
016534,000354: 34,6466           01425                                    XSM                                   
016535,000355: 34,6467           01403                                    STARAD                                
016536,000356: 34,6470           00002                                    1                                     
016537,000357: 34,6471           33477                           STORE    XDC                                   
016538,000358: 34,6472           52775                           MXV      1                                     
016539,000359: 34,6473           44776                           VSLT                                           
016540,000360: 34,6474           01433                                    YSM                                   
016541,000361: 34,6475           01403                                    STARAD                                
016542,000362: 34,6476           00002                                    1                                     
016543,000363: 34,6477           33505                           STORE    YDC                                   
016544,000364: 34,6500           41775                           VXV      1                                     
016545,000365: 34,6501           44776                           VSLT                                           
016546,000366: 34,6502           01477                                    XDC                                   
016547,000367: 34,6503           01505                                    YDC                                   
016548,000368: 34,6504           00002                                    1                                     
016549,000369: 34,6505           33513                           STORE    ZDC                                   
016550,000370: 34,6506           76776                           ITC      0                                     
016551,000371: 34,6507           04353                                    CALCGTA                               
016552,000372: 34,6510           76776                           ITC      0                                     
016553,000373: 34,6511           30634                                    OUTGYR                                
016554,000374: 34,6512           77576                           EXIT     0                                     
016555,000375: 34,6513           31573                           XCH      RETAA                                 
016556,000376: 34,6514           05723                           TC       BANKJUMP                              
016557,000377: 

Page 434

016559,000379: 
016560,000380: 34,6515           05706        LATAZCHK           TC       MAKECADR                              
016561,000381: 34,6516           51573                           TS       RETAA                                 
016562,000382: 34,6517           04000                           TC       INTPRET                               #  CHECK LATITUDE AND NAVBASE AZIMUTH
016563,000383: 34,6520           63776                           TSLT     0                                     
016564,000384: 34,6521           01315                                    LATITUDE                              
016565,000385: 34,6522           00003                                    2                                     
016566,000386: 34,6523           32620                           STORE    DSPTEM1    +1                         
016567,000387: 34,6524           45175                           DMOVE    1                                     
016568,000388: 34,6525           76575                           RTB      EXIT                                  
016569,000389: 34,6526           01317                                    AZIMUTH                               
016570,000390: 34,6527           20325                                    1STO2S                                
016571,000391: 34,6530           30115                           XCH      MPAC                                  
016572,000392: 34,6531           50616                           TS       DSPTEM1                               
016573,000393: 34,6532           05654                           TC       BANKCALL                              
016574,000394: 34,6533           25153                           CADR     LATAZCK1                              
016575,000395: 
016576,000396: 34,6534           04000                           TC       INTPRET                               
016577,000397: 34,6535           43175                           SMOVE    1                                     
016578,000398: 34,6536           76576                           RTB                                            
016579,000399: 34,6537           00617                                    DSPTEM1                               
016580,000400: 34,6540           20304                                    CDULOGIC                              
016581,000401: 34,6541           33317                           STORE    AZIMUTH                               
016582,000402: 34,6542           43175                           SMOVE    1                                     
016583,000403: 34,6543           56776                           TSRT                                           
016584,000404: 34,6544           00620                                    DSPTEM1    +1                         
016585,000405: 34,6545           00003                                    2                                     
016586,000406: 34,6546           33315                           STORE    LATITUDE                              
016587,000407: 34,6547           77576                           EXIT     0                                     
016588,000408: 34,6550           31573                           XCH      RETAA                                 
016589,000409: 34,6551           05723                           TC       BANKJUMP                              
016590,000410: 

Page 435

016592,000412: 
016593,000413: 34,6552           04000        TARGSM             TC       INTPRET                               
016594,000414: 34,6553           76776                           ITC      0                                     
016595,000415: 34,6554           31755                                    ERTHRVEN                              
016596,000416: 34,6555           76776                           ITC      0                                     
016597,000417: 34,6556           03475                                    PROCTARG                              
016598,000418: 34,6557           75176                           VMOVE    0                                     
016599,000419: 34,6560           01403                                    TARGET1                               
016600,000420: 34,6561           33101                           STORE    TAR1POS                               
016601,000421: 34,6562           75176                           VMOVE    0                                     
016602,000422: 34,6563           01411                                    TARGET1    +6                         
016603,000423: 34,6564           33107                           STORE    TAR1POS    +6                         
016604,000424: 34,6565           76776                           ITC      0                                     
016605,000425: 34,6566           03446                                    MAKEXSM                               
016606,000426: 34,6567           77576                           EXIT     0                                     
016607,000427: 34,6570           05654                           TC       BANKCALL                              
016608,000428: 34,6571           24050                           CADR     POSLOAD                               
016609,000429: 

Page 436

016611,000431: 
016612,000432: 34,6572           76576        ALGNINIT           RTB      0                                     
016613,000433: 34,6573           20271                                    ZEROVAC                               
016614,000434: 34,6574           45176                           DMOVE    0                                     
016615,000435: 34,6575           05174                                    ZERODP                                
016616,000436: 34,6576           55175                           COS      1                                     
016617,000437: 34,6577           47176                           COMP                                           
016618,000438: 34,6600           01315                                    LATITUDE                              
016619,000439: 34,6601           57175                           SIN      1                                     
016620,000440: 34,6602           41166                           VDEF     VXSC                                  #  (SIN,-COS,0)
016621,000441: 34,6603           01315                                    LATITUDE                              
016622,000442: 34,6604           31733                                    OMEG/MS                               
016623,000443: 34,6605           33177                           STORE    VMARK                                 
016624,000444: 34,6606           76576                           RTB      0                                     
016625,000445: 34,6607           20253                                    LOADTIME                              
016626,000446: 34,6610           33175                           STORE    TMARK                                 
016627,000447: 34,6611           40576                           ITCQ     0                                     
016628,000448: 

Page 437

016630,000450: 
016631,000451: 34,6612           76576        EARTHR             RTB      0                                     
016632,000452: 34,6613           20253                                    LOADTIME                              
016633,000453: 34,6614           32051                           STORE    S1                                    
016634,000454: 34,6615           47573                           NOLOD    3                                     
016635,000455: 34,6616           66716                           DSU      TSLT                                  
016636,000456: 34,6617           75652                           VXSC     MXV                                   
016637,000457: 34,6620           50776                           VAD                                            
016638,000458: 34,6621           01175                                    TMARK                                 
016639,000459: 34,6622           00013                                    10D                                   
016640,000460: 34,6623           01177                                    VMARK                                 
016641,000461: 34,6624           01425                                    XSM                                   
016642,000462: 34,6625           01521                                    OGC                                   
016643,000463: 34,6626           33521                           STORE    OGC                                   
016644,000464: 34,6627           45176                           DMOVE    0                                     
016645,000465: 34,6630           00051                                    S1                                    
016646,000466: 34,6631           33175                           STORE    TMARK                                 
016647,000467: 34,6632           40576                           ITCQ     0                                     
016648,000468: 

Page 438

016650,000470: 
016651,000471: 34,6633           75575        OUTGYR             AXT,1    1                                     
016652,000472: 34,6634           55561                           AST,1    AXT,2                                 
016653,000473: 34,6635           00007                                    6                                     
016654,000474: 34,6636           00003                                    2                                     
016655,000475: 34,6637           00001                                    0                                     
016656,000476: 34,6640           56376        OUTGYR1            TSRT*    0                                     
016657,000477: 34,6641           03255                                    OGC        +6,1                       
016658,000478: 34,6642           00022                                    8D,2                                  
016659,000479: 34,6643           36505                           STORE    GYROD      +6,1                       
016660,000480: 34,6644           63375                           TSLT*    1                                     
016661,000481: 34,6645           65376                           BDSU*                                          
016662,000482: 34,6646           02505                                    GYROD      +6,1                       
016663,000483: 34,6647           00022                                    8D,2                                  
016664,000484: 34,6650           03255                                    OGC        +6,1                       
016665,000485: 34,6651           37255                           STORE    OGC        +6,1                       
016666,000486: 34,6652           51576                           TIX,1    0                                     
016667,000487: 34,6653           30641                                    OUTGYR1                               
016668,000488: 34,6654           75575                           AXT,1    1                                     
016669,000489: 34,6655           76401                           RTB      ITCQ                                  
016670,000490: 34,6656           01235                                    GYROD                                 
016671,000491: 34,6657           20376                                    PULSEIMU                              
016672,000492: 
016673,000493: 
016674,000494: 
016675,000495: 
016676,000496: 
016677,000497: 
016678,000498: 34,6660           05706        STORRSLT           TC       MAKECADR                              
016679,000499: 34,6661           51573                           TS       RETAA                                 
016680,000500: 34,6662           04000                           TC       INTPRET                               
016681,000501: 34,6663           71576                           LXC,1    0                                     
016682,000502: 34,6664           01225                                    NDXCTR                                
016683,000503: 34,6665           47574                           NOLOD    2                                     
016684,000504: 34,6666           63722                           TSLT     DMP                                   
016685,000505: 34,6667           76576                           RTB                                            
016686,000506: 34,6670           00011                                    8D                                    
016687,000507: 34,6671           31735                                    SCALFTR                               
016688,000508: 34,6672           20404                                    SGNAGREE                              
016689,000509: 34,6673           36201                           STORE    GENPL,1                               
016690,000510: 34,6674           77576                           EXIT     0                                     
016691,000511: 34,6675           31230                           XCH      STOREPL                               
016692,000512: 34,6676           21224                           INDEX    NDXCTR                                
016693,000513: 34,6677           51102                           TS       GENPL      +2                         
016694,000514: 34,6700           41224                           CS       NDXCTR                                
016695,000515: 34,6701           61307                           AD       MAXPTS2                               
016696,000516: 34,6702           10000                           CCS      A                                     
016697,000517: 34,6703           34473                           CAF      THREE                                 
016698,000518: 34,6704           61224                           AD       NDXCTR                                
016699,000519: 34,6705           06711                           TC       +4                                    
016700,000520: 34,6706           11313                           CCS      EROPTN                                

Page 439

016702,000522: 34,6707           06237                           TC       ENDTEST1                              
016703,000523: 34,6710           06000                           TC       MISALIGN                              
016704,000524: 

Page 440

016706,000526: 
016707,000527: 34,6711           51224                           TS       NDXCTR                                
016708,000528: 34,6712           31573                           XCH      RETAA                                 
016709,000529: 34,6713           05723                           TC       BANKJUMP                              
016710,000530: 

Page 441

016712,000532: 
016713,000533: 34,6714           75575        TJLAL              AXT,1    1                                     
016714,000534: 34,6715           55576                           AST,1                                          
016715,000535: 34,6716           00007                                    6                                     
016716,000536: 34,6717           00003                                    2                                     
016717,000537: 34,6720           66375        TJLAL1             DSU*     1                                     
016718,000538: 34,6721           64740                           DMP      DAD*                                  
016719,000539: 34,6722           02017                                    DELVX      +6,1                       
016720,000540: 34,6723           02245                                    FILDELX    +6,1                       
016721,000541: 34,6724           31751                                    VRECTC3                               
016722,000542: 34,6725           02245                                    FILDELX    +6,1                       
016723,000543: 34,6726           36245                           STORE    FILDELX    +6,1                       
016724,000544: 34,6727           51576                           TIX,1    0                                     
016725,000545: 34,6730           30721                                    TJLAL1                                
016726,000546: 34,6731           40576                           ITCQ     0                                     
016727,000547: 

Page 442

016729,000549: 
016730,000550: 34,6732           35503        FALNE1             CAF      TWO                                   
016731,000551: 34,6733           67740                           AD       FLNDX                                 
016732,000552: 34,6734           20067                           INDEX    FIXLOC                                
016733,000553: 34,6735           50050                           TS       S1                                    
016734,000554: 34,6736           04000                           TC       INTPRET                               
016735,000555: 34,6737           52775                           MXV      1                                     
016736,000556: 34,6740           44772                           VSLT     ITC                                   
016737,000557: 34,6741           01425                                    XSM                                   
016738,000558: 34,6742           01403                                    STARAD                                
016739,000559: 34,6743           00002                                    1                                     
016740,000560: 34,6744           04524                                    NBSM                                  
016741,000561: 34,6745           47576                           NOLOD    0                                     
016742,000562: 34,6746           33477                           STORE    XDC                                   
016743,000563: 34,6747           52775                           MXV      1                                     
016744,000564: 34,6750           44772                           VSLT     ITC                                   
016745,000565: 34,6751           01433                                    YSM                                   
016746,000566: 34,6752           01403                                    STARAD                                
016747,000567: 34,6753           00002                                    1                                     
016748,000568: 34,6754           04524                                    NBSM                                  
016749,000569: 34,6755           47576                           NOLOD    0                                     
016750,000570: 34,6756           33505                           STORE    YDC                                   
016751,000571: 34,6757           41775                           VXV      1                                     
016752,000572: 34,6760           44776                           VSLT                                           
016753,000573: 34,6761           01477                                    XDC                                   
016754,000574: 34,6762           01505                                    YDC                                   
016755,000575: 34,6763           00002                                    1                                     
016756,000576: 34,6764           33513                           STORE    ZDC                                   
016757,000577: 34,6765           76776                           ITC      0                                     
016758,000578: 34,6766           04353                                    CALCGTA                               
016759,000579: 34,6767           76776                           ITC      0                                     
016760,000580: 34,6770           30634                                    OUTGYR                                
016761,000581: 34,6771           77576                           EXIT     0                                     
016762,000582: 34,6772           05654                           TC       BANKCALL                              
016763,000583: 34,6773           30331                           CADR     IMUSTALL                              
016764,000584: 34,6774           06237                           TC       ENDTEST1                              
016765,000585: 34,6775           05654                           TC       BANKCALL                              
016766,000586: 34,6776           24600                           CADR     FALNED                                
016767,000587: 

Page 443

016769,000589: 
016770,000590: 34,6777           47575        VERTRECT           NOLOD    1                                     
016771,000591: 34,7000           51622                           VXM      VSLT                                  
016772,000592: 34,7001           01425                                    XSM                                   
016773,000593: 34,7002           00002                                    1                                     
016774,000594: 34,7003           32001                           STORE    0                                     
016775,000595: 34,7004           45176                           DMOVE    0                                     
016776,000596: 34,7005           00043                                    VAC        +2                         
016777,000597: 34,7006           47176                           COMP     0                                     
016778,000598: 34,7007           00045                                    VAC        +4                         
016779,000599: 34,7010           43175                           SMOVE    1                                     
016780,000600: 34,7011           41176                           VDEF                                           
016781,000601: 34,7012           05174                                    ZERODP                                
016782,000602: 34,7013           47575                           NOLOD    1                                     
016783,000603: 34,7014           75622                           VXSC     VSLT                                  
016784,000604: 34,7015           31737                                    INTCON1                               
016785,000605: 34,7016           00002                                    1                                     
016786,000606: 34,7017           74773                           VSU      3                                     
016787,000607: 34,7020           71766                           BOV      VXSC                                  
016788,000608: 34,7021           44642                           VSLT     VAD                                   
016789,000609: 34,7022           52642                           MXV      VAD                                   
016790,000610: 34,7023           00001                                    0                                     
016791,000611: 34,7024           00023                                    18D                                   
016792,000612: 34,7025           31037                                    ERECTND                               
016793,000613: 34,7026           31737                                    INTCON1                               
016794,000614: 34,7027           00002                                    1                                     
016795,000615: 34,7030           77777                                    -                                     
016796,000616: 34,7031           01425                                    XSM                                   
016797,000617: 34,7032           01521                                    OGC                                   
016798,000618: 34,7033           33521                           STORE    OGC                                   
016799,000619: 34,7034           75176                           VMOVE    0                                     
016800,000620: 34,7035           32023                           STORE    18D                                   
016801,000621: 34,7036           40576        ERECTND            ITCQ     0                                     
016802,000622: 

Page 444

016804,000624: 
016805,000625: 34,7037           21223        POSNJUMP           INDEX    POSITON                               
016806,000626: 34,7040           07041                           TC       +1                                    
016807,000627: 34,7041           06237                           TC       ENDTEST1                              
016808,000628: 34,7042           07050                           TC       POS1                                  
016809,000629: 34,7043           07055                           TC       POS2                                  
016810,000630: 34,7044           07075                           TC       POS3                                  
016811,000631: 34,7045           07121                           TC       POS4                                  
016812,000632: 34,7046           05654                           TC       BANKCALL                              
016813,000633: 34,7047           24076                           CADR     POSNRETN                              
016814,000634: 
016815,000635: 34,7050           44516        POS1               CS       ONE                                   
016816,000636: 34,7051           51226                           TS       PIPNDX                                
016817,000637: 34,7052           45503                           CS       TWO                                   
016818,000638: 34,7053           51227                           TS       PIPNDX     +1                         
016819,000639: 34,7054           07046                           TC       POS1       -2                         
016820,000640: 
016821,000641: 
016822,000642: 
016823,000643: 34,7055           04000        POS2               TC       INTPRET                               
016824,000644: 34,7056           75175                           VMOVE    1                                     
016825,000645: 34,7057           47176                           COMP                                           
016826,000646: 34,7060           01425                                    XSM                                   
016827,000647: 34,7061           75176                           VMOVE    0                                     
016828,000648: 34,7062           01441                                    ZSM                                   
016829,000649: 34,7063           33425                           STORE    XSM                                   
016830,000650: 34,7064           75176                           VMOVE    0                                     
016831,000651: 34,7065           77777                                    -                                     
016832,000652: 34,7066           33441                           STORE    ZSM                                   
016833,000653: 34,7067           77576                           EXIT     0                                     
016834,000654: 34,7070           45501                           CS       ZERO                                  
016835,000655: 34,7071           51226                           TS       PIPNDX                                
016836,000656: 34,7072           44516                           CS       ONE                                   
016837,000657: 34,7073           51227                           TS       PIPNDX     +1                         
016838,000658: 34,7074           07046                           TC       POS1       -2                         
016839,000659: 
016840,000660: 
016841,000661: 
016842,000662: 34,7075           04000        POS3               TC       INTPRET                               
016843,000663: 34,7076           75176                           VMOVE    0                                     
016844,000664: 34,7077           01425                                    XSM                                   
016845,000665: 34,7100           75176                           VMOVE    0                                     
016846,000666: 34,7101           01441                                    ZSM                                   
016847,000667: 34,7102           75176                           VMOVE    0                                     
016848,000668: 34,7103           01433                                    YSM                                   
016849,000669: 34,7104           33441                           STORE    ZSM                                   
016850,000670: 34,7105           75176                           VMOVE    0                                     
016851,000671: 34,7106           77777                                    -                                     
016852,000672: 34,7107           33425                           STORE    XSM                                   
016853,000673: 34,7110           75176                           VMOVE    0                                     
016854,000674: 34,7111           77777                                    -                                     

Page 445

016856,000676: 34,7112           33433                           STORE    YSM                                   
016857,000677: 34,7113           77576                           EXIT     0                                     
016858,000678: 34,7114           45501                           CS       ZERO                                  
016859,000679: 34,7115           51226                           TS       PIPNDX                                
016860,000680: 34,7116           45503                           CS       TWO                                   
016861,000681: 34,7117           51227                           TS       PIPNDX     +1                         
016862,000682: 34,7120           07046                           TC       POS1       -2                         
016863,000683: 

Page 446

016865,000685: 
016866,000686: 34,7121           04000        POS4               TC       INTPRET                               
016867,000687: 34,7122           41775                           VXV      1                                     
016868,000688: 34,7123           73176                           UNIT                                           
016869,000689: 34,7124           01433                                    YSM                                   
016870,000690: 34,7125           01441                                    ZSM                                   
016871,000691: 34,7126           33425                           STORE    XSM                                   
016872,000692: 34,7127           77576                           EXIT     0                                     
016873,000693: 34,7130           07046                           TC       POS1       -2                         
016874,000694: 
016875,000695: 
016876,000696: 
016877,000697: 34,7131           37741        NBPOSPL            CAF      MTRXLD                                
016878,000698: 34,7132           50034                           TS       OVCTR                                 #  ZERO STARAD
016879,000699: 34,7133           35501                           CAF      ZERO                                  
016880,000700: 34,7134           20034                           INDEX    OVCTR                                 
016881,000701: 34,7135           51402                           TS       STARAD                                
016882,000702: 34,7136           10034                           CCS      OVCTR                                 
016883,000703: 34,7137           07132                           TC       NBPOSPL    +1                         
016884,000704: 
016885,000705: 34,7140           04000                           TC       INTPRET                               #  SETS UP AZIMUTH AND VERTICAL VECTORS
016886,000706: 34,7141           76576                           RTB      0                                     #  FOR AXISGEN,RESULTS TO BE USED IN CALCGA
016887,000707: 34,7142           20271                                    ZEROVAC                               #  TO COMPUTE COARSE ALIGN ANGLES
016888,000708: 34,7143           53575                           AXC,1    1                                     
016889,000709: 34,7144           57557                           XSU,1    VMOVE*                                
016890,000710: 34,7145           31671                                    SCNBAZ                                
016891,000711: 34,7146           01232                                    NBPOS                                 
016892,000712: 34,7147           00001                                    0,1                                   
016893,000713: 34,7150           33403                           STORE    STARAD                                #  AZIMUTH IN NB COORDS
016894,000714: 34,7151           53575                           AXC,1    1                                     
016895,000715: 34,7152           57557                           XSU,1    VMOVE*                                
016896,000716: 34,7153           31711                                    SCNBVER                               
016897,000717: 34,7154           01232                                    NBPOS                                 
016898,000718: 34,7155           00001                                    0,1                                   
016899,000719: 34,7156           33411                           STORE    STARAD     +6                         #  VERTICAL IN NB COORDS
016900,000720: 34,7157           55175                           COS      1                                     
016901,000721: 34,7160           47176                           COMP                                           
016902,000722: 34,7161           01317                                    AZIMUTH                               
016903,000723: 34,7162           32011                           STORE    8D                                    
016904,000724: 
016905,000725: 34,7163           57176                           SIN      0                                     
016906,000726: 34,7164           01317                                    AZIMUTH                               
016907,000727: 34,7165           32013                           STORE    10D                                   #  AZIMUTH IN CER
016908,000728: 34,7166           75176                           VMOVE    0                                     
016909,000729: 34,7167           31717                                    LABNBVER                              
016910,000730: 34,7170           32015                           STORE    12D                                   #   VERTICAL IN CER
016911,000731: 34,7171           76776                           ITC      0                                     
016912,000732: 34,7172           04761                                    AXISGEN                               
016913,000733: 
016914,000734: 34,7173           75176                           VMOVE    0                                     
016915,000735: 34,7174           01477                                    XDC                                   

Page 447

016917,000737: 34,7175           33403                           STORE    STARAD                                
016918,000738: 
016919,000739: 34,7176           75176                           VMOVE    0                                     
016920,000740: 34,7177           01505                                    YDC                                   
016921,000741: 34,7200           33411                           STORE    STARAD     +6                         
016922,000742: 
016923,000743: 34,7201           75176                           VMOVE    0                                     
016924,000744: 34,7202           01513                                    ZDC                                   
016925,000745: 34,7203           33417                           STORE    STARAD     +12D                       
016926,000746: 34,7204           77576                           EXIT     0                                     
016927,000747: 34,7205           05654                           TC       BANKCALL                              
016928,000748: 34,7206           25513                           CADR     POSSET                                
016929,000749: 

Page 448

016931,000751: 
016932,000752: 34,7207           11232        RESULTS            CCS      TESTNDX                               
016933,000753: 34,7210           07241                           TC       CDUCALC                               
016934,000754: 34,7211           07260                           TC       PIPCALC                               
016935,000755: 34,7212           07241                           TC       CDUCALC                               
016936,000756: 34,7213           41246        SFCALC             CS       DATAPL     +4                         
016937,000757: 34,7214           61252                           AD       DATAPL     +8D                        
016938,000758: 34,7215           51242                           TS       DATAPL                                
016939,000759: 
016940,000760: 34,7216           04000                           TC       INTPRET                               
016941,000761: 34,7217           54775                           TSU      1                                     
016942,000762: 34,7220           63631                           TSLT     ROUND                                 
016943,000763: 34,7221           01254                                    DATAPL     +9D                        
016944,000764: 34,7222           01250                                    DATAPL     +5                         
016945,000765: 34,7223           00017                                    14D                                   
016946,000766: 34,7224           43174                           SMOVE    2                                     
016947,000767: 34,7225           64712                           DMP      DDV                                   
016948,000768: 34,7226           76576                           RTB                                            
016949,000769: 34,7227           01243                                    DATAPL                                
016950,000770: 34,7230           31743                                    DC585                                 
016951,000771: 34,7231           00001                                    0                                     
016952,000772: 34,7232           20404                                    SGNAGREE                              
016953,000773: 34,7233           32622                           STORE    DSPTEM2                               
016954,000774: 34,7234           77576                           EXIT     0                                     
016955,000775: 34,7235           03302                           TC       GRABDSP                               
016956,000776: 34,7236           03310                           TC       PREGBSY                               
016957,000777: 34,7237           05654                           TC       BANKCALL                              
016958,000778: 34,7240           25256                           CADR     FINISH                                
016959,000779: 

Page 449

016961,000781: 
016962,000782: 34,7241           04000        CDUCALC            TC       INTPRET                               
016963,000783: 34,7242           66774                           DSU      2                                     
016964,000784: 34,7243           61722                           BDDV     DMP                                   
016965,000785: 34,7244           76576                           RTB                                            
016966,000786: 34,7245           01245                                    DATAPL     +2                         
016967,000787: 34,7246           01243                                    DATAPL                                
016968,000788: 34,7247           01215                                    GENPL      +76D                       
016969,000789: 34,7250           31745                                    ERUNITS                               #  2DEC.66666
016970,000790: 34,7251           20404                                    SGNAGREE                              
016971,000791: 34,7252           32622                           STORE    DSPTEM2                               
016972,000792: 34,7253           77576                           EXIT     0                                     
016973,000793: 
016974,000794: 34,7254           03302                           TC       GRABDSP                               
016975,000795: 34,7255           03310                           TC       PREGBSY                               
016976,000796: 34,7256           05654                           TC       BANKCALL                              
016977,000797: 34,7257           25256                           CADR     FINISH                                
016978,000798: 

Page 450

016980,000800: 
016981,000801: 34,7260           04000        PIPCALC            TC       INTPRET                               
016982,000802: 34,7261           76576                           RTB      0                                     
016983,000803: 34,7262           20265                                    FRESHPD                               
016984,000804: 34,7263           54775                           TSU      1                                     
016985,000805: 34,7264           63631                           TSLT     ROUND                                 
016986,000806: 34,7265           01105                                    GENPL      +4                         
016987,000807: 34,7266           01244                                    DATAPL     +1                         
016988,000808: 34,7267           00014                                    11D                                   
016989,000809: 34,7270           51176                           DSQ      0                                     
016990,000810: 34,7271           00001                                    0                                     #  T1(2) IN 2,3
016991,000811: 34,7272           64775                           DMP      1                                     
016992,000812: 34,7273           41176                           VDEF                                           
016993,000813: 34,7274           00001                                    0                                     
016994,000814: 34,7275           00003                                    2                                     
016995,000815: 34,7276           33132                           STORE    GENPL      +25D                       
016996,000816: 34,7277           54775                           TSU      1                                     
016997,000817: 34,7300           63631                           TSLT     ROUND                                 
016998,000818: 34,7301           01112                                    GENPL      +9D                        
016999,000819: 34,7302           01244                                    DATAPL     +1                         
017000,000820: 34,7303           00014                                    11D                                   
017001,000821: 34,7304           51176                           DSQ      0                                     
017002,000822: 34,7305           00001                                    0                                     
017003,000823: 34,7306           64775                           DMP      1                                     #  T2(2) IN 6
017004,000824: 34,7307           41176                           VDEF                                           
017005,000825: 34,7310           00001                                    0                                     
017006,000826: 34,7311           00003                                    2                                     
017007,000827: 34,7312           33140                           STORE    GENPL      +31D                       
017008,000828: 34,7313           54775                           TSU      1                                     
017009,000829: 34,7314           63631                           TSLT     ROUND                                 
017010,000830: 34,7315           01117                                    GENPL      +14D                       
017011,000831: 34,7316           01244                                    DATAPL     +1D                        
017012,000832: 34,7317           00014                                    11D                                   
017013,000833: 34,7320           51176                           DSQ      0                                     
017014,000834: 34,7321           00001                                    0                                     
017015,000835: 34,7322           64775                           DMP      1                                     
017016,000836: 34,7323           41176                           VDEF                                           
017017,000837: 34,7324           00001                                    0                                     
017018,000838: 34,7325           00003                                    2                                     
017019,000839: 34,7326           33146                           STORE    GENPL      +37D                       
017020,000840: 34,7327           41775                           VXV      1                                     
017021,000841: 34,7330           42776                           DOT                                            
017022,000842: 34,7331           01140                                    GENPL      +31D                       
017023,000843: 34,7332           01146                                    GENPL      +37D                       
017024,000844: 34,7333           01132                                    GENPL      +25D                       
017025,000845: 34,7334           33156                           STORE    GENPL      +45D                       #  D2
017026,000846: 34,7335           45176                           DMOVE    0                                     
017027,000847: 34,7336           01110                                    GENPL      +7                         
017028,000848: 34,7337           33132                           STORE    GENPL      +25D                       
017029,000849: 34,7340           45176                           DMOVE    0                                     
017030,000850: 34,7341           01115                                    GENPL      +12D                       

Page 451

017032,000852: 34,7342           33140                           STORE    GENPL      +31D                       
017033,000853: 34,7343           45176                           DMOVE    0                                     
017034,000854: 34,7344           01122                                    GENPL      +17D                       
017035,000855: 34,7345           33146                           STORE    GENPL      +37D                       
017036,000856: 34,7346           41774                           VXV      2                                     
017037,000857: 34,7347           42712                           DOT      DDV                                   
017038,000858: 34,7350           64771                           DMP      RTB                                   
017039,000859: 34,7351           01140                                    GENPL      +31D                       
017040,000860: 34,7352           01146                                    GENPL      +37D                       
017041,000861: 34,7353           01132                                    GENPL      +25D                       
017042,000862: 34,7354           01156                                    GENPL      +45D                       
017043,000863: 34,7355           31747                                    ERUNITS2                              
017044,000864: 34,7356           20404                                    SGNAGREE                              
017045,000865: 34,7357           32622                           STORE    DSPTEM2                               
017046,000866: 34,7360           77576                           EXIT     0                                     
017047,000867: 34,7361           03302                           TC       GRABDSP                               
017048,000868: 34,7362           03310                           TC       PREGBSY                               
017049,000869: 34,7363           05654                           TC       BANKCALL                              
017050,000870: 34,7364           25256                           CADR     FINISH                                
017051,000871: 

Page 452

017053,000873: 
017054,000874: 34,7365           04000        CHKCALC            TC       INTPRET                               
017055,000875: 34,7366           76575                           RTB      1                                     
017056,000876: 34,7367           76576                           RTB                                            
017057,000877: 34,7370           20271                                    ZEROVAC                               
017058,000878: 34,7371           20265                                    FRESHPD                               
017059,000879: 34,7372           54775                           TSU      1                                     
017060,000880: 34,7373           63631                           TSLT     ROUND                                 
017061,000881: 34,7374           01264                                    DATAPL     +17D                       
017062,000882: 34,7375           01245                                    DATAPL     +2                         
017063,000883: 34,7376           00015                                    12D                                   
017064,000884: 34,7377           66774                           DSU      2                                     
017065,000885: 34,7400           63722                           TSLT     DMP                                   
017066,000886: 34,7401           62776                           DDV                                            
017067,000887: 34,7402           01262                                    DATAPL     +15D                       
017068,000888: 34,7403           01243                                    DATAPL                                
017069,000889: 34,7404           00015                                    12D                                   
017070,000890: 34,7405           31743                                    DC585                                 #  GZ IN 0,1
017071,000891: 34,7406           54775                           TSU      1                                     
017072,000892: 34,7407           63631                           TSLT     ROUND                                 
017073,000893: 34,7410           01271                                    DATAPL     +22D                       
017074,000894: 34,7411           01252                                    DATAPL     +7                         
017075,000895: 34,7412           00015                                    12D                                   
017076,000896: 34,7413           66774                           DSU      2                                     
017077,000897: 34,7414           63722                           TSLT     DMP                                   
017078,000898: 34,7415           62776                           DDV                                            
017079,000899: 34,7416           01267                                    DATAPL     +20D                       
017080,000900: 34,7417           01250                                    DATAPL     +5                         
017081,000901: 34,7420           00015                                    12D                                   
017082,000902: 34,7421           31743                                    DC585                                 #  GY IN 2,3
017083,000903: 34,7422           54775                           TSU      1                                     
017084,000904: 34,7423           63631                           TSLT     ROUND                                 
017085,000905: 34,7424           01276                                    DATAPL     +27D                       
017086,000906: 34,7425           01257                                    DATAPL     +12D                       
017087,000907: 34,7426           00015                                    12D                                   
017088,000908: 34,7427           33216                           STORE    TESTTIME                              
017089,000909: 34,7430           66774                           DSU      2                                     
017090,000910: 34,7431           63722                           TSLT     DMP                                   
017091,000911: 34,7432           62603                           DDV      VDEF                                  
017092,000912: 34,7433           01274                                    DATAPL     +25D                       
017093,000913: 34,7434           01255                                    DATAPL     +10D                       
017094,000914: 34,7435           00015                                    12D                                   
017095,000915: 34,7436           31743                                    DC585                                 
017096,000916: 34,7437           01216                                    TESTTIME                              #  G IN 0,1,2,3,4,5
017097,000917: 34,7440           71175                           ABVAL    1                                     
017098,000918: 34,7441           63771                           TSLT     RTB                                   
017099,000919: 34,7442           00001                                    0                                     
017100,000920: 34,7443           00002                                    1                                     
017101,000921: 34,7444           20404                                    SGNAGREE                              
017102,000922: 34,7445           32622                           STORE    DSPTEM2                               
017103,000923: 34,7446           77576                           EXIT     0                                     

Page 453

017105,000925: 34,7447           03302                           TC       GRABDSP                               
017106,000926: 34,7450           03310                           TC       PREGBSY                               
017107,000927: 34,7451           05654                           TC       BANKCALL                              
017108,000928: 34,7452           25205                           CADR     SHOW                                  
017109,000929: 
017110,000930: 34,7453           04000                           TC       INTPRET                               
017111,000931: 34,7454           45176                           DMOVE    0                                     
017112,000932: 34,7455           01303                                    DATAPL     +32D                       
017113,000933: 34,7456           45176                           DMOVE    0                                     
017114,000934: 34,7457           01301                                    DATAPL     +30D                       
017115,000935: 34,7460           45174                           DMOVE    2                                     
017116,000936: 34,7461           41153                           VDEF     UNIT                                  
017117,000937: 34,7462           44776                           VSLT                                           
017118,000938: 34,7463           01255                                    DATAPL     +10D                       
017119,000939: 34,7464           00002                                    1                                     #  V1 IN 6,7,8,9,10,11
017120,000940: 34,7465           45176                           DMOVE    0                                     
017121,000941: 34,7466           01307                                    DATAPL     +36D                       
017122,000942: 34,7467           45176                           DMOVE    0                                     
017123,000943: 34,7470           01305                                    DATAPL     +34D                       
017124,000944: 34,7471           45174                           DMOVE    2                                     
017125,000945: 34,7472           41153                           VDEF     UNIT                                  
017126,000946: 34,7473           44776                           VSLT                                           
017127,000947: 34,7474           01274                                    DATAPL     +25D                       
017128,000948: 34,7475           00002                                    1                                     #  V2 IN 12,13,14,15,1 ,17
017129,000949: 
017130,000950: 34,7476           41773                           VXV      3                                     
017131,000951: 34,7477           71116                           ABVAL    TSLT                                  
017132,000952: 34,7500           62722                           DDV      DMP                                   
017133,000953: 34,7501           76576                           RTB                                            
017134,000954: 34,7502           00007                                    6                                     
017135,000955: 34,7503           00015                                    12D                                   
017136,000956: 34,7504           00002                                    1                                     
017137,000957: 34,7505           01216                                    TESTTIME                              
017138,000958: 34,7506           31753                                    ERUNITS1                              
017139,000959: 34,7507           20404                                    SGNAGREE                              
017140,000960: 34,7510           32622                           STORE    DSPTEM2                               
017141,000961: 34,7511           77576                           EXIT     0                                     
017142,000962: 
017143,000963: 34,7512           05654                           TC       BANKCALL                              
017144,000964: 34,7513           25205                           CADR     SHOW                                  
017145,000965: 34,7514           06237                           TC       ENDTEST1                              
017146,000966: 

Page 454

017148,000968: 
017149,000969: 34,7515           05706        STOPHOR            TC       MAKECADR                              
017150,000970: 34,7516           51573                           TS       RETAA                                 
017151,000971: 34,7517           04000                           TC       INTPRET                               
017152,000972: 34,7520           76776                           ITC      0                                     
017153,000973: 34,7521           30613                                    EARTHR                                
017154,000974: 34,7522           76776                           ITC      0                                     
017155,000975: 34,7523           30634                                    OUTGYR                                
017156,000976: 34,7524           77576                           EXIT     0                                     
017157,000977: 34,7525           05654                           TC       BANKCALL                              
017158,000978: 34,7526           30331                           CADR     IMUSTALL                              
017159,000979: 34,7527           06237                           TC       ENDTEST1                              
017160,000980: 34,7530           31573                           XCH      RETAA                                 
017161,000981: 34,7531           05723                           TC       BANKJUMP                              
017162,000982: 

Page 455

017164,000984: 
017165,000985: 34,7532           05706        SCRINTP            TC       MAKECADR                              
017166,000986: 34,7533           51573                           TS       RETAA                                 
017167,000987: 34,7534           04000                           TC       INTPRET                               
017168,000988: 34,7535           47575                           NOLOD    1                                     
017169,000989: 34,7536           54776                           TSU                                            
017170,000990: 34,7537           01250                                    DATAPL     +5                         
017171,000991: 34,7540           32001                           STORE    0                                     #  T1:T0
017172,000992: 
017173,000993: 34,7541           47575                           NOLOD    1                                     
017174,000994: 34,7542           60776                           TAD                                            
017175,000995: 34,7543           01250                                    DATAPL     +5                         
017176,000996: 34,7544           33250                           STORE    DATAPL     +5                         #  TN
017177,000997: 
017178,000998: 34,7545           77174                           TMOVE    2                                     
017179,000999: 34,7546           63631                           TSLT     ROUND                                 
017180,001000: 34,7547           64742                           DMP      DAD                                   
017181,001001: 34,7550           00001                                    0                                     
017182,001002: 34,7551           00015                                    12D                                   
017183,001003: 34,7552           01101                                    GENPL                                 
017184,001004: 34,7553           01103                                    GENPL      +2                         
017185,001005: 34,7554           33103                           STORE    GENPL      +2                         
017186,001006: 34,7555           77576                           EXIT     0                                     
017187,001007: 
017188,001008: 34,7556           11220                           CCS      COUNTPL                               
017189,001009: 34,7557           07574                           TC       SUMSUM1                               
017190,001010: 
017191,001011: 34,7560           04000                           TC       INTPRET                               
017192,001012: 34,7561           71576                           LXC,1    0                                     
017193,001013: 34,7562           01225                                    RESULTCT                              #  FIRST=4
017194,001014: 34,7563           77176                           TMOVE    0                                     #  SECOND=9
017195,001015: 34,7564           01250                                    DATAPL     +5                         
017196,001016: 34,7565           36201                           STORE    GENPL,1                               
017197,001017: 34,7566           45176                           DMOVE    0                                     
017198,001018: 34,7567           01103                                    GENPL      +2                         
017199,001019: 34,7570           36207                           STORE    GENPL      +3,1                       
017200,001020: 34,7571           77576                           EXIT     0                                     
017201,001021: 34,7572           31573                           XCH      RETAA                                 
017202,001022: 34,7573           05723                           TC       BANKJUMP                              
017203,001023: 
017204,001024: 
017205,001025: 
017206,001026: 34,7574           05654        SUMSUM1            TC       BANKCALL                              
017207,001027: 34,7575           25456                           CADR     SUMSUM                                
017208,001028: 

Page 456

017210,001030: 
017211,001031: 34,7576           04000        FALNED1            TC       INTPRET                               
017212,001032: 34,7577           76776                           ITC      0                                     
017213,001033: 34,7600           30573                                    ALGNINIT                              
017214,001034: 34,7601           77576                           EXIT     0                                     
017215,001035: 34,7602           11232                           CCS      TESTNDX                               
017216,001036: 34,7603           07666                           TC       LABTEST1                              
017217,001037: 34,7604           07606                           TC       +2                                    
017218,001038: 34,7605           07606                           TC       +1                                    
017219,001039: 34,7606           05654                           TC       BANKCALL                              
017220,001040: 34,7607           25331                           CADR     OGCZERO                               
017221,001041: 34,7610           05654                           TC       BANKCALL                              
017222,001042: 34,7611           25343                           CADR     FLTRZERO                              
017223,001043: 34,7612           34510        FRECT              CAF      BIT7                                  
017224,001044: 34,7613           51230                           TS       STOREPL                               
017225,001045: 34,7614           35501                           CAF      ZERO                                  #  VERTICAL ERECTION BY NULLING PIPAS
017226,001046: 34,7615           50044                           TS       PIPAX                                 
017227,001047: 34,7616           50045                           TS       PIPAY                                 
017228,001048: 34,7617           50046                           TS       PIPAZ                                 
017229,001049: 34,7620           33232        WARTNEW            CAF      TEN                                   #  CALL A SPADE A SPADE...HOMER
017230,001050: 34,7621           51220                           TS       COUNTPL                               
017231,001051: 34,7622           20017                           INHINT                                         
017232,001052: 34,7623           33562                           CAF      50DEC                                 
017233,001053: 34,7624           02173                           TC       WAITLIST                              
017234,001054: 34,7625           71631                           CADR     WARTNEW1                              
017235,001055: 34,7626           37630                           CAF      WART2ADR                              
017236,001056: 34,7627           02127                           TC       JOBSLEEP                              
017237,001057: 34,7630           71634        WART2ADR           CADR     WART2NEW                              
017238,001058: 34,7631           37630        WARTNEW1           CAF      WART2ADR                              
017239,001059: 34,7632           02060                           TC       JOBWAKE                               
017240,001060: 34,7633           02256                           TC       TASKOVER                              
017241,001061: 34,7634           04000        WART2NEW           TC       INTPRET                               
017242,001062: 34,7635           76576                           RTB      0                                     
017243,001063: 34,7636           20346                                    READPIPS                              
017244,001064: 34,7637           33002                           STORE    DELVX                                 
017245,001065: 34,7640           76776                           ITC      0                                     
017246,001066: 34,7641           30715                                    TJLAL                                 
017247,001067: 34,7642           77576                           EXIT     0                                     
017248,001068: 34,7643           11220                           CCS      COUNTPL                               
017249,001069: 34,7644           07621                           TC       WARTNEW    +1                         
017250,001070: 34,7645           04000                           TC       INTPRET                               
017251,001071: 34,7646           75175                           VMOVE    1                                     
017252,001072: 34,7647           76776                           ITC                                            
017253,001073: 34,7650           01115                                    FILDELX                               
017254,001074: 34,7651           31000                                    VERTRECT                              
017255,001075: 34,7652           76776                           ITC      0                                     
017256,001076: 34,7653           30613                                    EARTHR                                
017257,001077: 34,7654           76776                           ITC      0                                     
017258,001078: 34,7655           30634                                    OUTGYR                                
017259,001079: 34,7656           77576                           EXIT     0                                     
017260,001080: 34,7657           05654                           TC       BANKCALL                              

Page 457

017262,001082: 34,7660           30331                           CADR     IMUSTALL                              
017263,001083: 34,7661           06237                           TC       ENDTEST1                              
017264,001084: 
017265,001085: 34,7662           11230                           CCS      STOREPL                               
017266,001086: 34,7663           07613                           TC       FRECT      +1                         
017267,001087: 34,7664           05654                           TC       BANKCALL                              
017268,001088: 34,7665           24721                           CADR     TSTJUMP                               
017269,001089: 
017270,001090: 
017271,001091: 
017272,001092: 34,7666           05654        LABTEST1           TC       BANKCALL                              
017273,001093: 34,7667           24751                           CADR     LABTEST                               
017274,001094: 

Page 458

017276,001096: 
017277,001097: 34,7670           67222 51710  SCNBAZ             2DEC     -.27232                               #  AZIMUTH OF NB IS ERAD IN AS Z AXIS EAST
017278,001098: 34,7672           00000 00000                     2DEC     0          B-28                       
017279,001099: 34,7674           15327 37747                     2DEC     .4194335                              
017280,001100: 34,7676           00000 00000  LABNBAZ            2DEC     0          B-28                       
017281,001101: 34,7700           00000 00000                     2DEC     0          B-28                       
017282,001102: 34,7702           20000 00000                     2DEC     .5                                    
017283,001103: 34,7704           00000 00000  LABNBAZ1           2DEC     0          B-28                       
017284,001104: 34,7706           00000 00000                     2DEC     0          B-28                       
017285,001105: 34,7710           15327 37747  SCNBVER            2DEC     .4194335                              
017286,001106: 34,7712           00000 00000                     2DEC     0          B-28                       
017287,001107: 34,7714           10555 26067                     2DEC     .27232                                
017288,001108: 34,7716           20000 00000  LABNBVER           2DEC     .5                                    
017289,001109: 34,7720           00000 00000                     2DEC     0          B-28                       
017290,001110: 34,7722           00000 00000                     2DEC     0          B-28                       
017291,001111: 34,7724           00000 00000  LBNBVER1           2DEC     0          B-28                       
017292,001112: 34,7726           57777 77777                     2DEC     -.5                                   
017293,001113: 34,7730           00666        V06N66E            OCT      00666                                 
017294,001114: 34,7731           00130        V01N30E            OCT      00130                                 
017295,001115: 34,7732           03711 33265  OMEG/MS            2DEC     .12169524                             
017296,001116: 34,7734           24365 30244  SCALFTR            2DEC     .64                                   
017297,001117: 34,7736           24000        INTCON1            DEC      40         B+8                        
017298,001118: 34,7737           00000                           DEC      0          B-14                       
017299,001119: 34,7740           01100        FLNDX              ADRES    GENPL                                 
017300,001120: 34,7741           00021        MTRXLD             DEC      17         B-14                       
017301,001121: 34,7742           01111 00000  DC585              2DEC     585        B+14                       
017302,001122: 34,7744           00406 36355  ERUNITS            2DEC     4308205    B-28                       #  CONSTANT CORRECTED FOR SIDEREAL RATE
017303,001123: 34,7746           00002 12725  ERUNITS2           2DEC     38357      B-28                       
017304,001124: 34,7750           03146 14632  VRECTC3            2DEC     .1                                    

Page 459

017306,001126: 34,7752           00051 33163  ERUNITS1           2DEC     685683     B-28                       
017307,001127: 

Page 460

017309,001129: 
017310,001130: 34,7754           76576        ERTHRVEN           RTB      0                                     
017311,001131: 34,7755           20271                                    ZEROVAC                               
017312,001132: 34,7756           55176                           COS      0                                     
017313,001133: 34,7757           01315                                    LATITUDE                              
017314,001134: 34,7760           45176                           DMOVE    0                                     
017315,001135: 34,7761           05174                                    ZERODP                                
017316,001136: 34,7762           57175                           SIN      1                                     
017317,001137: 34,7763           41166                           VDEF     VXSC                                  
017318,001138: 34,7764           01315                                    LATITUDE                              
017319,001139: 34,7765           31733                                    OMEG/MS                               
017320,001140: 34,7766           33177                           STORE    VMARK                                 
017321,001141: 34,7767           40576                           ITCQ     0                                     

End of include-file IMU_PERFORMANCE_TESTS_2.agc.  Parent file is MAIN.agc