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.

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

Page 426

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

Page 427

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

Page 428

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

Page 429

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

Page 430

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

Page 431

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

Page 432

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

Page 433

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

Page 434

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

Page 435

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

Page 436

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

Page 437

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

Page 438

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

Page 439

016705,000522: 34,6707           06237                           TC       ENDTEST1                              
016706,000523: 34,6710           06000                           TC       MISALIGN                              
016707,000524: 

Page 440

016709,000526: 
016710,000527: 34,6711           51224                           TS       NDXCTR                                
016711,000528: 34,6712           31573                           XCH      RETAA                                 
016712,000529: 34,6713           05723                           TC       BANKJUMP                              
016713,000530: 

Page 441

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

Page 442

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

Page 443

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

Page 444

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

Page 445

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

Page 446

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

Page 447

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

Page 448

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

Page 449

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

Page 450

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

Page 451

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

Page 452

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

Page 453

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

Page 454

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

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

017309,001126: 34,7752           00051 33163  ERUNITS1           2DEC     685683     B-28                       
017310,001127: 

Page 460

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

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