Source Code

These source-code files are part of a reconstructed copy of Corona 261, the final, flown release of the Block I Command Module (CM) Apollo Guidance Computer (AGC) software for the AS-202 mission.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241, 1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo 4 and 6 software, Solarium 55, was used as a starting point, since it was directly derived from Corona and (at least in theory) only minimally modified.

Since only binary dumps (rather than listings) of Corona are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

018113,000002:                                                                                                  ## Copyright:   Public domain.
018114,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_2.agc
018115,000004:                                                                                                  ## Purpose:     A section of Corona revision 261.
018116,000005:                                                                                                  ##              It is part of the source code for the Apollo Guidance Computer
018117,000006:                                                                                                  ##              (AGC) for AS-202. No original listings of this software are
018118,000007:                                                                                                  ##              available; instead, this file was created via disassembly of
018119,000008:                                                                                                  ##              the core rope modules actually flown on the mission.
018120,000009:                                                                                                  ## Assembler:   yaYUL
018121,000010:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
018122,000011:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
018123,000012:                                                                                                  ## Mod history: 2023-05-27 MAS  Created from Solarium 55.
018124,000013: 
018125,000014: 
018126,000015: 34,6000                                           SETLOC   70000                                 
018127,000016: 
018128,000017: 34,6000           05654        MISALIGN           TC       BANKCALL                              
018129,000018: 34,6001           25331                           CADR     OGCZERO                               
018130,000019: 34,6002           03310                           TC       GRABDSP                               
018131,000020: 34,6003           03316                           TC       PREGBSY                               
018132,000021: 34,6004           33517                           CAF      11DEC                                 
018133,000022: 34,6005           51311                           TS       PTS                                   
018134,000023: 34,6006           35501                           CAF      ZERO                                  
018135,000024: 34,6007           51312                           TS       PTS        +1                         
018136,000025: 34,6010           51224        BBB                TS       NDXCTR                                
018137,000026: 34,6011           21224                           INDEX    NDXCTR                                
018138,000027: 34,6012           41204                           CS       GENPL      +68D                       
018139,000028: 34,6013           21224                           INDEX    NDXCTR                                
018140,000029: 34,6014           61212                           AD       GENPL      +74D                       
018141,000030: 34,6015           21224                           INDEX    NDXCTR                                
018142,000031: 34,6016           51212                           TS       GENPL      +74D                       
018143,000032: 34,6017           36235                           CAF      63DEC                                 
018144,000033: 34,6020           61224                           AD       NDXCTR                                
018145,000034: 34,6021           10000                           CCS      A                                     
018146,000035: 34,6022           44473                           CS       THREE                                 
018147,000036: 34,6023           61224                           AD       NDXCTR                                
018148,000037: 34,6024           06010                           TC       BBB                                   
018149,000038: 34,6025           51224        CCCC               TS       NDXCTR                                
018150,000039: 34,6026           04000                           TC       INTPRET                               
018151,000040: 34,6027           73576                           LXA,1    0                                     
018152,000041: 34,6030           01225                                    NDXCTR                                
018153,000042: 34,6031           44175                           DMOVE*   1                                     
018154,000043: 34,6032           66776                           DSU                                            
018155,000044: 34,6033           02421                                    GENPL      +72D,1                     
018156,000045: 34,6034           01101                                    GENPL                                 
018157,000046: 34,6035           36421                           STORE    GENPL      +72D,1                     
018158,000047: 34,6036           77576                           EXIT     0                                     
018159,000048: 34,6037           41224                           CS       NDXCTR                                
018160,000049: 34,6040           66236                           AD       69DEC                                 
018161,000050: 34,6041           10000                           CCS      A                                     
018162,000051: 34,6042           34473                           CAF      THREE                                 
018163,000052: 34,6043           61224                           AD       NDXCTR                                
018164,000053: 34,6044           06025                           TC       CCCC                                  
018165,000054: 34,6045           51100                           TS       GENPL                                 
018166,000055: 34,6046           51101                           TS       GENPL      +1                         
018167,000056: 34,6047           51312                           TS       RUN                                   
018168,000057: 34,6050           34473                           CAF      THREE                                 
018169,000058: 34,6051           51224        DDDD               TS       NDXCTR                                
018170,000059: 34,6052           04000                           TC       INTPRET                               
018171,000060: 34,6053           73576                           LXA,1    0                                     
018172,000061: 34,6054           01225                                    NDXCTR                                
018173,000062: 34,6055           66376                           DSU*     0                                     
018174,000063: 34,6056           02421                                    GENPL      +72D,1                     
018175,000064: 34,6057           02405                                    GENPL      +66D,1                     
018176,000065: 34,6060           47575                           NOLOD    1                                     
018177,000066: 34,6061           56740                           TSRT     DAD*                                  
018178,000067: 34,6062           00002                                    1                                     
018179,000068: 34,6063           02405                                    GENPL      +66D,1                     
018180,000069: 34,6064           36421                           STORE    GENPL      +72D,1                     
018181,000070: 34,6065           47575                           NOLOD    1                                     
018182,000071: 34,6066           63742                           TSLT     DAD                                   
018183,000072: 34,6067           00003                                    2                                     
018184,000073: 34,6070           01521                                    OGC                                   
018185,000074: 34,6071           33521                           STORE    OGC                                   
018186,000075: 34,6072           44174                           DMOVE*   2                                     
018187,000076: 34,6073           63643                           TSLT     DSQ                                   
018188,000077: 34,6074           70776                           DAD                                            
018189,000078: 34,6075           02421                                    GENPL      +72D,1                     
018190,000079: 34,6076           00005                                    4                                     
018191,000080: 34,6077           01525                                    MGC                                   
018192,000081: 34,6100           33525                           STORE    MGC                                   
018193,000082: 34,6101           77576                           EXIT     0                                     
018194,000083: 34,6102           41312                           CS       RUN                                   
018195,000084: 34,6103           40000                           COM                                            
018196,000085: 34,6104           61224                           AD       NDXCTR                                
018197,000086: 34,6105           40000                           COM                                            
018198,000087: 34,6106           66235                           AD       63DEC                                 
018199,000088: 34,6107           10000                           CCS      A                                     
018200,000089: 34,6110           34475                           CAF      SIX                                   
018201,000090: 34,6111           61224                           AD       NDXCTR                                
018202,000091: 34,6112           06051                           TC       DDDD                                  
018203,000092: 34,6113           61312                           AD       RUN                                   
018204,000093: 34,6114           51224        EEEE               TS       NDXCTR                                
018205,000094: 34,6115           21224                           INDEX    NDXCTR                                
018206,000095: 34,6116           41113                           CS       GENPL      +11D                       
018207,000096: 34,6117           40000                           COM                                            
018208,000097: 34,6120           51572                           TS       TEMDELV                               
018209,000098: 34,6121           35501                           CAF      ZERO                                  
018210,000099: 34,6122           51573                           TS       TEMDELV    +1                         
018211,000100: 34,6123           04000                           TC       INTPRET                               
018212,000101: 34,6124           71576                           LXC,1    0                                     
018213,000102: 34,6125           01225                                    NDXCTR                                
018214,000103: 34,6126           45176                           DMOVE    0                                     
018215,000104: 34,6127           77777                                    -                                     
018216,000105: 34,6130           47574                           NOLOD    2                                     
018217,000106: 34,6131           63706                           TSLT     BDDV                                  
018218,000107: 34,6132           70776                           DAD                                            
018219,000108: 34,6133           00006                                    5                                     
018220,000109: 34,6134           01573                                    TEMDELV                               
018221,000110: 34,6135           01523                                    IGC                                   
018222,000111: 34,6136           33523                           STORE    IGC                                   
018223,000112: 34,6137           63775                           TSLT     1                                     
018224,000113: 34,6140           61776                           BDDV                                           
018225,000114: 34,6141           77777                                    -                                     
018226,000115: 34,6142           00004                                    3                                     
018227,000116: 34,6143           01573                                    TEMDELV                               
018228,000117: 34,6144           44174                           DMOVE*   2                                     
018229,000118: 34,6145           63722                           TSLT     DMP                                   
018230,000119: 34,6146           70776                           DAD                                            
018231,000120: 34,6147           02223                                    GENPL      +9D,1                      
018232,000121: 34,6150           00005                                    4                                     
018233,000122: 34,6151           77777                                    -                                     
018234,000123: 34,6152           01101                                    GENPL                                 
018235,000124: 34,6153           33101                           STORE    GENPL                                 
018236,000125: 34,6154           77576                           EXIT     0                                     
018237,000126: 34,6155           41224                           CS       NDXCTR                                
018238,000127: 34,6156           66235                           AD       63DEC                                 
018239,000128: 34,6157           61312                           AD       RUN                                   
018240,000129: 34,6160           64341                           AD       NEG3                                  
018241,000130: 34,6161           10000                           CCS      A                                     
018242,000131: 34,6162           34475                           CAF      SIX                                   
018243,000132: 34,6163           61224                           AD       NDXCTR                                
018244,000133: 34,6164           06114                           TC       EEEE                                  
018245,000134: 34,6165           04000                           TC       INTPRET                               
018246,000135: 34,6166           64776                           DMP      0                                     
018247,000136: 34,6167           01521                                    OGC                                   
018248,000137: 34,6170           01101                                    GENPL                                 
018249,000138: 34,6171           64775                           DMP      1                                     
018250,000139: 34,6172           66776                           DSU                                            
018251,000140: 34,6173           01525                                    MGC                                   
018252,000141: 34,6174           01523                                    IGC                                   
018253,000142: 34,6175           51175                           DSQ      1                                     
018254,000143: 34,6176           56776                           TSRT                                           
018255,000144: 34,6177           01521                                    OGC                                   
018256,000145: 34,6200           00002                                    1                                     
018257,000146: 34,6201           63774                           TSLT     2                                     
018258,000147: 34,6202           64732                           DMP      DSU                                   
018259,000148: 34,6203           61722                           BDDV     DMP                                   
018260,000149: 34,6204           01312                                    PTS                                   
018261,000150: 34,6205           00012                                    11                                    
018262,000151: 34,6206           01525                                    MGC                                   
018263,000152: 34,6207           77777                                    -                                     
018264,000153: 34,6210           77777                                    -                                     
018265,000154: 34,6211           30234                                    K                                     
018266,000155: 34,6212           32622                           STORE    DSPTEM2                               
018267,000156: 34,6213           77576                           EXIT     0                                     
018268,000157: 34,6214           05654                           TC       BANKCALL                              
018269,000158: 34,6215           14000                           CADR     FLASHON                               
018270,000159: 34,6216           37730                           CAF      V06N66E                               
018271,000160: 34,6217           03106                           TC       NVSUB                                 
018272,000161: 34,6220           03323                           TC       PRENVBSY                              
018273,000162: 34,6221           03144                           TC       ENDIDLE                               
018274,000163: 34,6222           06237                           TC       ENDTEST1                              
018275,000164: 34,6223           34473                           CAF      THREE                                 
018276,000165: 34,6224           51312                           TS       RUN                                   
018277,000166: 34,6225           05654                           TC       BANKCALL                              
018278,000167: 34,6226           25331                           CADR     OGCZERO                               
018279,000168: 34,6227           35501                           CAF      ZERO                                  
018280,000169: 34,6230           51100                           TS       GENPL                                 
018281,000170: 34,6231           51101                           TS       GENPL      +1                         
018282,000171: 34,6232           06051                           TC       DDDD                                  
018283,000172: 
018284,000173: 
018285,000174: 
018286,000175: 34,6233           02321 00000  K                  2DEC     1.233      E3         B-14            
018287,000176: 34,6235           00077        63DEC              DEC      63         B-14                       
018288,000177: 34,6236           00105        69DEC              DEC      69         B-14                       
018289,000178: 
018290,000179: 
018291,000180: 
018292,000181: 34,6237           05654        ENDTEST1           TC       BANKCALL                              
018293,000182: 34,6240           25406                           CADR     ENDTEST                               
018294,000183: 
018295,000184: 
018296,000185: 34,6241           05706        FINDNAVB           TC       MAKECADR                              
018297,000186: 34,6242           51573                           TS       RETAA                                 
018298,000187: 34,6243           05654                           TC       BANKCALL                              
018299,000188: 34,6244           30453                           CADR     MKRELEAS                              
018300,000189: 34,6245           34516                           CAF      ONE                                   
018301,000190: 34,6246           50616                           TS       DSPTEM1                               
018302,000191: 34,6247           37731                           CAF      V01N30E                               #  MARK ON TARGET 1
018303,000192: 34,6250           03106                           TC       NVSUB                                 
018304,000193: 34,6251           03323                           TC       PRENVBSY                              
018305,000194: 34,6252           34516                           CAF      ONE                                   
018306,000195: 34,6253           05654                           TC       BANKCALL                              
018307,000196: 34,6254           30406                           CADR     SXTMARK                               
018308,000197: 34,6255           05654                           TC       BANKCALL                              
018309,000198: 34,6256           30327                           CADR     OPTSTALL                              
018310,000199: 34,6257           06237                           TC       ENDTEST1                              
018311,000200: 34,6260           20735                           INDEX    MARKSTAT                              
018312,000201: 34,6261           40000                           CS       0                                     
018313,000202: 34,6262           40000                           CS       A                                     
018314,000203: 34,6263           51302                           TS       VACADR                                #  TIME OF MARK
018315,000204: 34,6264           20735                           INDEX    MARKSTAT                              
018316,000205: 34,6265           40001                           CS       1                                     
018317,000206: 34,6266           40000                           CS       A                                     
018318,000207: 34,6267           51303                           TS       VACADR     +1                         
018319,000208: 34,6270           40735                           CS       MARKSTAT                              
018320,000209: 34,6271           51304                           TS       MKSTAT1                               
018321,000210: 34,6272           05654                           TC       BANKCALL                              
018322,000211: 34,6273           30453                           CADR     MKRELEAS                              
018323,000212: 34,6274           35503                           CAF      TWO                                   
018324,000213: 34,6275           50616                           TS       DSPTEM1                               
018325,000214: 34,6276           37731                           CAF      V01N30E                               #  MARK ON TARGET 4
018326,000215: 34,6277           03106                           TC       NVSUB                                 
018327,000216: 34,6300           03323                           TC       PRENVBSY                              
018328,000217: 34,6301           34516                           CAF      ONE                                   
018329,000218: 34,6302           05654                           TC       BANKCALL                              
018330,000219: 34,6303           30406                           CADR     SXTMARK                               
018331,000220: 34,6304           11305                           CCS      COAROFIN                              #  COARSE ALIGN OR FINE ALIGN MARKS
018332,000221: 34,6305           06374                           TC       CLGNMARK                              
018333,000222: 34,6306           41304                           CS       MKSTAT1                               
018334,000223: 34,6307           65503                           AD       TWO                                   
018335,000224: 34,6310           20067                           INDEX    FIXLOC                                
018336,000225: 34,6311           50050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
018337,000226: 34,6312           04000                           TC       INTPRET                               #  OPT-NB-SM    TARGET 1
018338,000227: 34,6313           73576                           LXA,1    0                                     
018339,000228: 34,6314           01305                                    MKSTAT1                               
018340,000229: 34,6315           76776                           ITC      0                                     
018341,000230: 34,6316           04733                                    SXTNB                                 
018342,000231: 34,6317           44775                           VSLT     1                                     
018343,000232: 34,6320           76776                           ITC                                            
018344,000233: 34,6321           00041                                    STARM                                 
018345,000234: 34,6322           00001                                    0                                     
018346,000235: 34,6323           04524                                    NBSM                                  
018347,000236: 34,6324           47576                           NOLOD    0                                     
018348,000237: 34,6325           33403                           STORE    STARAD                                
018349,000238: 34,6326           45176                           DMOVE    0                                     
018350,000239: 34,6327           01303                                    VACADR                                
018351,000240: 34,6330           33175                           STORE    TMARK                                 
018352,000241: 34,6331           77576                           EXIT     0                                     
018353,000242: 
018354,000243: 34,6332           04000        EARRTCOM           TC       INTPRET                               #  COMPENSATE BETWEEN FINE ALIGN MARKS
018355,000244: 34,6333           76776                           ITC      0                                     
018356,000245: 34,6334           30613                                    EARTHR                                
018357,000246: 34,6335           76776                           ITC      0                                     
018358,000247: 34,6336           30634                                    OUTGYR                                
018359,000248: 34,6337           77576                           EXIT     0                                     
018360,000249: 34,6340           05654                           TC       BANKCALL                              
018361,000250: 34,6341           30331                           CADR     IMUSTALL                              
018362,000251: 34,6342           06237                           TC       ENDTEST1                              
018363,000252: 34,6343           10734                           CCS      OPTCADR                               
018364,000253: 34,6344           06347                           TC       +3                                    
018365,000254: 34,6345           06332                           TC       EARRTCOM                              
018366,000255: 34,6346           06347                           TC       +1                                    
018367,000256: 34,6347           05654                           TC       BANKCALL                              
018368,000257: 34,6350           30327                           CADR     OPTSTALL                              
018369,000258: 34,6351           06237                           TC       ENDTEST1                              
018370,000259: 34,6352           35503                           CAF      TWO                                   
018371,000260: 34,6353           60735                           AD       MARKSTAT                              
018372,000261: 34,6354           20067                           INDEX    FIXLOC                                
018373,000262: 34,6355           50050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
018374,000263: 34,6356           04000                           TC       INTPRET                               #  OPT-NB-SM    TARGET 4
018375,000264: 34,6357           71576                           LXC,1    0                                     
018376,000265: 34,6360           00736                                    MARKSTAT                              
018377,000266: 34,6361           76776                           ITC      0                                     
018378,000267: 34,6362           04733                                    SXTNB                                 
018379,000268: 34,6363           44775                           VSLT     1                                     
018380,000269: 34,6364           76776                           ITC                                            
018381,000270: 34,6365           00041                                    STARM                                 
018382,000271: 34,6366           00001                                    0                                     
018383,000272: 34,6367           04524                                    NBSM                                  
018384,000273: 34,6370           47576                           NOLOD    0                                     
018385,000274: 34,6371           33411                           STORE    STARAD     +6                         
018386,000275: 34,6372           76776                           ITC      0                                     
018387,000276: 34,6373           30421                                    MATXDET                               
018388,000277: 
018389,000278: 34,6374           04000        CLGNMARK           TC       INTPRET                               #  OPT-NB       TARGET 1
018390,000279: 34,6375           73576                           LXA,1    0                                     
018391,000280: 34,6376           01305                                    MKSTAT1                               
018392,000281: 34,6377           76776                           ITC      0                                     
018393,000282: 34,6400           04733                                    SXTNB                                 
018394,000283: 34,6401           75176                           VMOVE    0                                     
018395,000284: 34,6402           00041                                    STARM                                 
018396,000285: 34,6403           33403                           STORE    STARAD                                
018397,000286: 34,6404           77576                           EXIT     0                                     
018398,000287: 34,6405           05654                           TC       BANKCALL                              
018399,000288: 34,6406           30327                           CADR     OPTSTALL                              
018400,000289: 34,6407           06237                           TC       ENDTEST1                              
018401,000290: 34,6410           04000                           TC       INTPRET                               #  OPT-NB       TARGET 4
018402,000291: 34,6411           71576                           LXC,1    0                                     
018403,000292: 34,6412           00736                                    MARKSTAT                              
018404,000293: 34,6413           76776                           ITC      0                                     
018405,000294: 34,6414           04733                                    SXTNB                                 
018406,000295: 34,6415           75176                           VMOVE    0                                     
018407,000296: 34,6416           00041                                    STARM                                 
018408,000297: 34,6417           33411                           STORE    STARAD     +6                         
018409,000298: 
018410,000299: 34,6420           75176        MATXDET            VMOVE    0                                     #  CALCULATE TRANSFORMATION MATRIX
018411,000300: 34,6421           01101                                    TAR1POS                               
018412,000301: 34,6422           32007                           STORE    6                                     
018413,000302: 34,6423           75176                           VMOVE    0                                     
018414,000303: 34,6424           01107                                    TAR1POS    +6                         
018415,000304: 34,6425           32015                           STORE    12D                                   
018416,000305: 34,6426           76776                           ITC      0                                     
018417,000306: 34,6427           04761                                    AXISGEN                               
018418,000307: 34,6430           75176                           VMOVE    0                                     
018419,000308: 34,6431           01477                                    XDC                                   
018420,000309: 34,6432           33403                           STORE    STARAD                                
018421,000310: 34,6433           75176                           VMOVE    0                                     
018422,000311: 34,6434           01505                                    YDC                                   
018423,000312: 34,6435           33411                           STORE    STARAD     +6                         
018424,000313: 34,6436           75176                           VMOVE    0                                     
018425,000314: 34,6437           01513                                    ZDC                                   
018426,000315: 34,6440           33417                           STORE    STARAD     +12D                       
018427,000316: 34,6441           77576                           EXIT     0                                     
018428,000317: 34,6442           31573                           XCH      RETAA                                 
018429,000318: 34,6443           05723                           TC       BANKJUMP                              
018430,000319: 
018431,000320: 
018432,000321: 34,6444           05706        PUTPOSX            TC       MAKECADR                              
018433,000322: 34,6445           51573                           TS       RETAA                                 
018434,000323: 34,6446           04000                           TC       INTPRET                               
018435,000324: 34,6447           76776                           ITC      0                                     
018436,000325: 34,6450           04644                                    CALCGA                                
018437,000326: 34,6451           77576                           EXIT     0                                     
018438,000327: 34,6452           05654                           TC       BANKCALL                              
018439,000328: 34,6453           30104                           CADR     IMUCOARS                              #  INITIATE COARSE ALIGN MODE
018440,000329: 34,6454           05654                           TC       BANKCALL                              
018441,000330: 34,6455           30331                           CADR     IMUSTALL                              #  WAIT FOR IMUCOARS COMPLETION
018442,000331: 34,6456           06237                           TC       ENDTEST1                              
018443,000332: 34,6457           31573                           XCH      RETAA                                 
018444,000333: 34,6460           05723                           TC       BANKJUMP                              
018445,000334: 
018446,000335: 
018447,000336: 
018448,000337: 34,6461           05706        SMDCALC            TC       MAKECADR                              
018449,000338: 34,6462           51573                           TS       RETAA                                 
018450,000339: 34,6463           04000                           TC       INTPRET                               
018451,000340: 34,6464           52775                           MXV      1                                     
018452,000341: 34,6465           44776                           VSLT                                           
018453,000342: 34,6466           01425                                    XSM                                   
018454,000343: 34,6467           01403                                    STARAD                                
018455,000344: 34,6470           00002                                    1                                     
018456,000345: 34,6471           33477                           STORE    XDC                                   
018457,000346: 34,6472           52775                           MXV      1                                     
018458,000347: 34,6473           44776                           VSLT                                           
018459,000348: 34,6474           01433                                    YSM                                   
018460,000349: 34,6475           01403                                    STARAD                                
018461,000350: 34,6476           00002                                    1                                     
018462,000351: 34,6477           33505                           STORE    YDC                                   
018463,000352: 34,6500           41775                           VXV      1                                     
018464,000353: 34,6501           44776                           VSLT                                           
018465,000354: 34,6502           01477                                    XDC                                   
018466,000355: 34,6503           01505                                    YDC                                   
018467,000356: 34,6504           00002                                    1                                     
018468,000357: 34,6505           33513                           STORE    ZDC                                   
018469,000358: 34,6506           76776                           ITC      0                                     
018470,000359: 34,6507           04353                                    CALCGTA                               
018471,000360: 34,6510           76776                           ITC      0                                     
018472,000361: 34,6511           30634                                    OUTGYR                                
018473,000362: 34,6512           77576                           EXIT     0                                     
018474,000363: 34,6513           31573                           XCH      RETAA                                 
018475,000364: 34,6514           05723                           TC       BANKJUMP                              
018476,000365: 
018477,000366: 
018478,000367: 34,6515           05706        LATAZCHK           TC       MAKECADR                              
018479,000368: 34,6516           51573                           TS       RETAA                                 
018480,000369: 34,6517           04000                           TC       INTPRET                               #  CHECK LATITUDE AND NAVBASE AZIMUTH
018481,000370: 34,6520           63776                           TSLT     0                                     
018482,000371: 34,6521           01315                                    LATITUDE                              
018483,000372: 34,6522           00003                                    2                                     
018484,000373: 34,6523           32620                           STORE    DSPTEM1    +1                         
018485,000374: 34,6524           45175                           DMOVE    1                                     
018486,000375: 34,6525           76575                           RTB      EXIT                                  
018487,000376: 34,6526           01317                                    AZIMUTH                               
018488,000377: 34,6527           20324                                    1STO2S                                
018489,000378: 34,6530           30115                           XCH      MPAC                                  
018490,000379: 34,6531           50616                           TS       DSPTEM1                               
018491,000380: 34,6532           05654                           TC       BANKCALL                              
018492,000381: 34,6533           25153                           CADR     LATAZCK1                              
018493,000382: 
018494,000383: 34,6534           04000                           TC       INTPRET                               
018495,000384: 34,6535           43175                           SMOVE    1                                     
018496,000385: 34,6536           76576                           RTB                                            
018497,000386: 34,6537           00617                                    DSPTEM1                               
018498,000387: 34,6540           20303                                    CDULOGIC                              
018499,000388: 34,6541           33317                           STORE    AZIMUTH                               
018500,000389: 34,6542           43175                           SMOVE    1                                     
018501,000390: 34,6543           56776                           TSRT                                           
018502,000391: 34,6544           00620                                    DSPTEM1    +1                         
018503,000392: 34,6545           00003                                    2                                     
018504,000393: 34,6546           33315                           STORE    LATITUDE                              
018505,000394: 34,6547           77576                           EXIT     0                                     
018506,000395: 34,6550           31573                           XCH      RETAA                                 
018507,000396: 34,6551           05723                           TC       BANKJUMP                              
018508,000397: 
018509,000398: 
018510,000399: 34,6552           04000        TARGSM             TC       INTPRET                               
018511,000400: 34,6553           76776                           ITC      0                                     
018512,000401: 34,6554           31755                                    ERTHRVEN                              
018513,000402: 34,6555           76776                           ITC      0                                     
018514,000403: 34,6556           03510                                    PROCTARG                              
018515,000404: 34,6557           75176                           VMOVE    0                                     
018516,000405: 34,6560           01403                                    TARGET1                               
018517,000406: 34,6561           33101                           STORE    TAR1POS                               
018518,000407: 34,6562           75176                           VMOVE    0                                     
018519,000408: 34,6563           01411                                    TARGET1    +6                         
018520,000409: 34,6564           33107                           STORE    TAR1POS    +6                         
018521,000410: 34,6565           76776                           ITC      0                                     
018522,000411: 34,6566           03461                                    MAKEXSM                               
018523,000412: 34,6567           77576                           EXIT     0                                     
018524,000413: 34,6570           05654                           TC       BANKCALL                              
018525,000414: 34,6571           24050                           CADR     POSLOAD                               
018526,000415: 
018527,000416: 
018528,000417: 34,6572           76576        ALGNINIT           RTB      0                                     
018529,000418: 34,6573           20270                                    ZEROVAC                               
018530,000419: 34,6574           45176                           DMOVE    0                                     
018531,000420: 34,6575           05174                                    ZERODP                                
018532,000421: 34,6576           55175                           COS      1                                     
018533,000422: 34,6577           47176                           COMP                                           
018534,000423: 34,6600           01315                                    LATITUDE                              
018535,000424: 34,6601           57175                           SIN      1                                     
018536,000425: 34,6602           41166                           VDEF     VXSC                                  #  (SIN,-COS,0)
018537,000426: 34,6603           01315                                    LATITUDE                              
018538,000427: 34,6604           31733                                    OMEG/MS                               
018539,000428: 34,6605           33177                           STORE    VMARK                                 
018540,000429: 34,6606           76576                           RTB      0                                     
018541,000430: 34,6607           20252                                    LOADTIME                              
018542,000431: 34,6610           33175                           STORE    TMARK                                 
018543,000432: 34,6611           40576                           ITCQ     0                                     
018544,000433: 
018545,000434: 
018546,000435: 34,6612           76576        EARTHR             RTB      0                                     
018547,000436: 34,6613           20252                                    LOADTIME                              
018548,000437: 34,6614           32051                           STORE    S1                                    
018549,000438: 34,6615           47573                           NOLOD    3                                     
018550,000439: 34,6616           66716                           DSU      TSLT                                  
018551,000440: 34,6617           75652                           VXSC     MXV                                   
018552,000441: 34,6620           50776                           VAD                                            
018553,000442: 34,6621           01175                                    TMARK                                 
018554,000443: 34,6622           00013                                    10D                                   
018555,000444: 34,6623           01177                                    VMARK                                 
018556,000445: 34,6624           01425                                    XSM                                   
018557,000446: 34,6625           01521                                    OGC                                   
018558,000447: 34,6626           33521                           STORE    OGC                                   
018559,000448: 34,6627           45176                           DMOVE    0                                     
018560,000449: 34,6630           00051                                    S1                                    
018561,000450: 34,6631           33175                           STORE    TMARK                                 
018562,000451: 34,6632           40576                           ITCQ     0                                     
018563,000452: 
018564,000453: 
018565,000454: 34,6633           75575        OUTGYR             AXT,1    1                                     
018566,000455: 34,6634           55561                           AST,1    AXT,2                                 
018567,000456: 34,6635           00007                                    6                                     
018568,000457: 34,6636           00003                                    2                                     
018569,000458: 34,6637           00001                                    0                                     
018570,000459: 34,6640           56376        OUTGYR1            TSRT*    0                                     
018571,000460: 34,6641           03255                                    OGC        +6,1                       
018572,000461: 34,6642           00022                                    8D,2                                  
018573,000462: 34,6643           36505                           STORE    GYROD      +6,1                       
018574,000463: 34,6644           63375                           TSLT*    1                                     
018575,000464: 34,6645           65376                           BDSU*                                          
018576,000465: 34,6646           02505                                    GYROD      +6,1                       
018577,000466: 34,6647           00022                                    8D,2                                  
018578,000467: 34,6650           03255                                    OGC        +6,1                       
018579,000468: 34,6651           37255                           STORE    OGC        +6,1                       
018580,000469: 34,6652           51576                           TIX,1    0                                     
018581,000470: 34,6653           30641                                    OUTGYR1                               
018582,000471: 34,6654           75575                           AXT,1    1                                     
018583,000472: 34,6655           76401                           RTB      ITCQ                                  
018584,000473: 34,6656           01235                                    GYROD                                 
018585,000474: 34,6657           20375                                    PULSEIMU                              
018586,000475: 
018587,000476: 
018588,000477: 
018589,000478: 
018590,000479: 
018591,000480: 
018592,000481: 34,6660           05706        STORRSLT           TC       MAKECADR                              
018593,000482: 34,6661           51573                           TS       RETAA                                 
018594,000483: 34,6662           04000                           TC       INTPRET                               
018595,000484: 34,6663           71576                           LXC,1    0                                     
018596,000485: 34,6664           01225                                    NDXCTR                                
018597,000486: 34,6665           47574                           NOLOD    2                                     
018598,000487: 34,6666           63722                           TSLT     DMP                                   
018599,000488: 34,6667           76576                           RTB                                            
018600,000489: 34,6670           00011                                    8D                                    
018601,000490: 34,6671           31735                                    SCALFTR                               
018602,000491: 34,6672           20403                                    SGNAGREE                              
018603,000492: 34,6673           36201                           STORE    GENPL,1                               
018604,000493: 34,6674           77576                           EXIT     0                                     
018605,000494: 34,6675           31230                           XCH      STOREPL                               
018606,000495: 34,6676           21224                           INDEX    NDXCTR                                
018607,000496: 34,6677           51102                           TS       GENPL      +2                         
018608,000497: 34,6700           41224                           CS       NDXCTR                                
018609,000498: 34,6701           61307                           AD       MAXPTS2                               
018610,000499: 34,6702           10000                           CCS      A                                     
018611,000500: 34,6703           34473                           CAF      THREE                                 
018612,000501: 34,6704           61224                           AD       NDXCTR                                
018613,000502: 34,6705           06711                           TC       +4                                    
018614,000503: 34,6706           11313                           CCS      EROPTN                                
018615,000504: 34,6707           06237                           TC       ENDTEST1                              
018616,000505: 34,6710           06000                           TC       MISALIGN                              
018617,000506: 
018618,000507: 
018619,000508: 34,6711           51224                           TS       NDXCTR                                
018620,000509: 34,6712           31573                           XCH      RETAA                                 
018621,000510: 34,6713           05723                           TC       BANKJUMP                              
018622,000511: 
018623,000512: 
018624,000513: 34,6714           75575        TJLAL              AXT,1    1                                     
018625,000514: 34,6715           55576                           AST,1                                          
018626,000515: 34,6716           00007                                    6                                     
018627,000516: 34,6717           00003                                    2                                     
018628,000517: 34,6720           66375        TJLAL1             DSU*     1                                     
018629,000518: 34,6721           64740                           DMP      DAD*                                  
018630,000519: 34,6722           02017                                    DELVX      +6,1                       
018631,000520: 34,6723           02245                                    FILDELX    +6,1                       
018632,000521: 34,6724           31751                                    VRECTC3                               
018633,000522: 34,6725           02245                                    FILDELX    +6,1                       
018634,000523: 34,6726           36245                           STORE    FILDELX    +6,1                       
018635,000524: 34,6727           51576                           TIX,1    0                                     
018636,000525: 34,6730           30721                                    TJLAL1                                
018637,000526: 34,6731           40576                           ITCQ     0                                     
018638,000527: 
018639,000528: 
018640,000529: 34,6732           35503        FALNE1             CAF      TWO                                   
018641,000530: 34,6733           67740                           AD       FLNDX                                 
018642,000531: 34,6734           20067                           INDEX    FIXLOC                                
018643,000532: 34,6735           50050                           TS       S1                                    
018644,000533: 34,6736           04000                           TC       INTPRET                               
018645,000534: 34,6737           52775                           MXV      1                                     
018646,000535: 34,6740           44772                           VSLT     ITC                                   
018647,000536: 34,6741           01425                                    XSM                                   
018648,000537: 34,6742           01403                                    STARAD                                
018649,000538: 34,6743           00002                                    1                                     
018650,000539: 34,6744           04524                                    NBSM                                  
018651,000540: 34,6745           47576                           NOLOD    0                                     
018652,000541: 34,6746           33477                           STORE    XDC                                   
018653,000542: 34,6747           52775                           MXV      1                                     
018654,000543: 34,6750           44772                           VSLT     ITC                                   
018655,000544: 34,6751           01433                                    YSM                                   
018656,000545: 34,6752           01403                                    STARAD                                
018657,000546: 34,6753           00002                                    1                                     
018658,000547: 34,6754           04524                                    NBSM                                  
018659,000548: 34,6755           47576                           NOLOD    0                                     
018660,000549: 34,6756           33505                           STORE    YDC                                   
018661,000550: 34,6757           41775                           VXV      1                                     
018662,000551: 34,6760           44776                           VSLT                                           
018663,000552: 34,6761           01477                                    XDC                                   
018664,000553: 34,6762           01505                                    YDC                                   
018665,000554: 34,6763           00002                                    1                                     
018666,000555: 34,6764           33513                           STORE    ZDC                                   
018667,000556: 34,6765           76776                           ITC      0                                     
018668,000557: 34,6766           04353                                    CALCGTA                               
018669,000558: 34,6767           76776                           ITC      0                                     
018670,000559: 34,6770           30634                                    OUTGYR                                
018671,000560: 34,6771           77576                           EXIT     0                                     
018672,000561: 34,6772           05654                           TC       BANKCALL                              
018673,000562: 34,6773           30331                           CADR     IMUSTALL                              
018674,000563: 34,6774           06237                           TC       ENDTEST1                              
018675,000564: 34,6775           05654                           TC       BANKCALL                              
018676,000565: 34,6776           24600                           CADR     FALNED                                
018677,000566: 
018678,000567: 
018679,000568: 34,6777           47575        VERTRECT           NOLOD    1                                     
018680,000569: 34,7000           51622                           VXM      VSLT                                  
018681,000570: 34,7001           01425                                    XSM                                   
018682,000571: 34,7002           00002                                    1                                     
018683,000572: 34,7003           32001                           STORE    0                                     
018684,000573: 34,7004           45176                           DMOVE    0                                     
018685,000574: 34,7005           00043                                    VAC        +2                         
018686,000575: 34,7006           47176                           COMP     0                                     
018687,000576: 34,7007           00045                                    VAC        +4                         
018688,000577: 34,7010           43175                           SMOVE    1                                     
018689,000578: 34,7011           41176                           VDEF                                           
018690,000579: 34,7012           05174                                    ZERODP                                
018691,000580: 34,7013           47575                           NOLOD    1                                     
018692,000581: 34,7014           75622                           VXSC     VSLT                                  
018693,000582: 34,7015           31737                                    INTCON1                               
018694,000583: 34,7016           00002                                    1                                     
018695,000584: 34,7017           74773                           VSU      3                                     
018696,000585: 34,7020           71766                           BOV      VXSC                                  
018697,000586: 34,7021           44642                           VSLT     VAD                                   
018698,000587: 34,7022           52642                           MXV      VAD                                   
018699,000588: 34,7023           00001                                    0                                     
018700,000589: 34,7024           00023                                    18D                                   
018701,000590: 34,7025           31037                                    ERECTND                               
018702,000591: 34,7026           31737                                    INTCON1                               
018703,000592: 34,7027           00002                                    1                                     
018704,000593: 34,7030           77777                                    -                                     
018705,000594: 34,7031           01425                                    XSM                                   
018706,000595: 34,7032           01521                                    OGC                                   
018707,000596: 34,7033           33521                           STORE    OGC                                   
018708,000597: 34,7034           75176                           VMOVE    0                                     
018709,000598: 34,7035           32023                           STORE    18D                                   
018710,000599: 34,7036           40576        ERECTND            ITCQ     0                                     
018711,000600: 
018712,000601: 
018713,000602: 34,7037           21223        POSNJUMP           INDEX    POSITON                               
018714,000603: 34,7040           07041                           TC       +1                                    
018715,000604: 34,7041           06237                           TC       ENDTEST1                              
018716,000605: 34,7042           07050                           TC       POS1                                  
018717,000606: 34,7043           07055                           TC       POS2                                  
018718,000607: 34,7044           07075                           TC       POS3                                  
018719,000608: 34,7045           07121                           TC       POS4                                  
018720,000609: 34,7046           05654                           TC       BANKCALL                              
018721,000610: 34,7047           24076                           CADR     POSNRETN                              
018722,000611: 
018723,000612: 34,7050           44516        POS1               CS       ONE                                   
018724,000613: 34,7051           51226                           TS       PIPNDX                                
018725,000614: 34,7052           45503                           CS       TWO                                   
018726,000615: 34,7053           51227                           TS       PIPNDX     +1                         
018727,000616: 34,7054           07046                           TC       POS1       -2                         
018728,000617: 
018729,000618: 
018730,000619: 
018731,000620: 34,7055           04000        POS2               TC       INTPRET                               
018732,000621: 34,7056           75175                           VMOVE    1                                     
018733,000622: 34,7057           47176                           COMP                                           
018734,000623: 34,7060           01425                                    XSM                                   
018735,000624: 34,7061           75176                           VMOVE    0                                     
018736,000625: 34,7062           01441                                    ZSM                                   
018737,000626: 34,7063           33425                           STORE    XSM                                   
018738,000627: 34,7064           75176                           VMOVE    0                                     
018739,000628: 34,7065           77777                                    -                                     
018740,000629: 34,7066           33441                           STORE    ZSM                                   
018741,000630: 34,7067           77576                           EXIT     0                                     
018742,000631: 34,7070           45501                           CS       ZERO                                  
018743,000632: 34,7071           51226                           TS       PIPNDX                                
018744,000633: 34,7072           44516                           CS       ONE                                   
018745,000634: 34,7073           51227                           TS       PIPNDX     +1                         
018746,000635: 34,7074           07046                           TC       POS1       -2                         
018747,000636: 
018748,000637: 
018749,000638: 
018750,000639: 34,7075           04000        POS3               TC       INTPRET                               
018751,000640: 34,7076           75176                           VMOVE    0                                     
018752,000641: 34,7077           01425                                    XSM                                   
018753,000642: 34,7100           75176                           VMOVE    0                                     
018754,000643: 34,7101           01441                                    ZSM                                   
018755,000644: 34,7102           75176                           VMOVE    0                                     
018756,000645: 34,7103           01433                                    YSM                                   
018757,000646: 34,7104           33441                           STORE    ZSM                                   
018758,000647: 34,7105           75176                           VMOVE    0                                     
018759,000648: 34,7106           77777                                    -                                     
018760,000649: 34,7107           33425                           STORE    XSM                                   
018761,000650: 34,7110           75176                           VMOVE    0                                     
018762,000651: 34,7111           77777                                    -                                     
018763,000652: 34,7112           33433                           STORE    YSM                                   
018764,000653: 34,7113           77576                           EXIT     0                                     
018765,000654: 34,7114           45501                           CS       ZERO                                  
018766,000655: 34,7115           51226                           TS       PIPNDX                                
018767,000656: 34,7116           45503                           CS       TWO                                   
018768,000657: 34,7117           51227                           TS       PIPNDX     +1                         
018769,000658: 34,7120           07046                           TC       POS1       -2                         
018770,000659: 
018771,000660: 
018772,000661: 34,7121           04000        POS4               TC       INTPRET                               
018773,000662: 34,7122           41775                           VXV      1                                     
018774,000663: 34,7123           73176                           UNIT                                           
018775,000664: 34,7124           01433                                    YSM                                   
018776,000665: 34,7125           01441                                    ZSM                                   
018777,000666: 34,7126           33425                           STORE    XSM                                   
018778,000667: 34,7127           77576                           EXIT     0                                     
018779,000668: 34,7130           07046                           TC       POS1       -2                         
018780,000669: 
018781,000670: 
018782,000671: 
018783,000672: 34,7131           37741        NBPOSPL            CAF      MTRXLD                                
018784,000673: 34,7132           50034                           TS       OVCTR                                 #  ZERO STARAD
018785,000674: 34,7133           35501                           CAF      ZERO                                  
018786,000675: 34,7134           20034                           INDEX    OVCTR                                 
018787,000676: 34,7135           51402                           TS       STARAD                                
018788,000677: 34,7136           10034                           CCS      OVCTR                                 
018789,000678: 34,7137           07132                           TC       NBPOSPL    +1                         
018790,000679: 
018791,000680: 34,7140           04000                           TC       INTPRET                               #  SETS UP AZIMUTH AND VERTICAL VECTORS
018792,000681: 34,7141           76576                           RTB      0                                     #  FOR AXISGEN,RESULTS TO BE USED IN CALCGA
018793,000682: 34,7142           20270                                    ZEROVAC                               #  TO COMPUTE COARSE ALIGN ANGLES
018794,000683: 34,7143           53575                           AXC,1    1                                     
018795,000684: 34,7144           57557                           XSU,1    VMOVE*                                
018796,000685: 34,7145           31671                                    SCNBAZ                                
018797,000686: 34,7146           01232                                    NBPOS                                 
018798,000687: 34,7147           00001                                    0,1                                   
018799,000688: 34,7150           33403                           STORE    STARAD                                #  AZIMUTH IN NB COORDS
018800,000689: 34,7151           53575                           AXC,1    1                                     
018801,000690: 34,7152           57557                           XSU,1    VMOVE*                                
018802,000691: 34,7153           31711                                    SCNBVER                               
018803,000692: 34,7154           01232                                    NBPOS                                 
018804,000693: 34,7155           00001                                    0,1                                   
018805,000694: 34,7156           33411                           STORE    STARAD     +6                         #  VERTICAL IN NB COORDS
018806,000695: 34,7157           55175                           COS      1                                     
018807,000696: 34,7160           47176                           COMP                                           
018808,000697: 34,7161           01317                                    AZIMUTH                               
018809,000698: 34,7162           32011                           STORE    8D                                    
018810,000699: 
018811,000700: 34,7163           57176                           SIN      0                                     
018812,000701: 34,7164           01317                                    AZIMUTH                               
018813,000702: 34,7165           32013                           STORE    10D                                   #  AZIMUTH IN CER
018814,000703: 34,7166           75176                           VMOVE    0                                     
018815,000704: 34,7167           31717                                    LABNBVER                              
018816,000705: 34,7170           32015                           STORE    12D                                   #   VERTICAL IN CER
018817,000706: 34,7171           76776                           ITC      0                                     
018818,000707: 34,7172           04761                                    AXISGEN                               
018819,000708: 
018820,000709: 34,7173           75176                           VMOVE    0                                     
018821,000710: 34,7174           01477                                    XDC                                   
018822,000711: 34,7175           33403                           STORE    STARAD                                
018823,000712: 
018824,000713: 34,7176           75176                           VMOVE    0                                     
018825,000714: 34,7177           01505                                    YDC                                   
018826,000715: 34,7200           33411                           STORE    STARAD     +6                         
018827,000716: 
018828,000717: 34,7201           75176                           VMOVE    0                                     
018829,000718: 34,7202           01513                                    ZDC                                   
018830,000719: 34,7203           33417                           STORE    STARAD     +12D                       
018831,000720: 34,7204           77576                           EXIT     0                                     
018832,000721: 34,7205           05654                           TC       BANKCALL                              
018833,000722: 34,7206           25513                           CADR     POSSET                                
018834,000723: 
018835,000724: 
018836,000725: 34,7207           11232        RESULTS            CCS      TESTNDX                               
018837,000726: 34,7210           07241                           TC       CDUCALC                               
018838,000727: 34,7211           07260                           TC       PIPCALC                               
018839,000728: 34,7212           07241                           TC       CDUCALC                               
018840,000729: 34,7213           41246        SFCALC             CS       DATAPL     +4                         
018841,000730: 34,7214           61252                           AD       DATAPL     +8D                        
018842,000731: 34,7215           51242                           TS       DATAPL                                
018843,000732: 
018844,000733: 34,7216           04000                           TC       INTPRET                               
018845,000734: 34,7217           54775                           TSU      1                                     
018846,000735: 34,7220           63631                           TSLT     ROUND                                 
018847,000736: 34,7221           01254                                    DATAPL     +9D                        
018848,000737: 34,7222           01250                                    DATAPL     +5                         
018849,000738: 34,7223           00017                                    14D                                   
018850,000739: 34,7224           43174                           SMOVE    2                                     
018851,000740: 34,7225           64712                           DMP      DDV                                   
018852,000741: 34,7226           76576                           RTB                                            
018853,000742: 34,7227           01243                                    DATAPL                                
018854,000743: 34,7230           31743                                    DC585                                 
018855,000744: 34,7231           00001                                    0                                     
018856,000745: 34,7232           20403                                    SGNAGREE                              
018857,000746: 34,7233           32622                           STORE    DSPTEM2                               
018858,000747: 34,7234           77576                           EXIT     0                                     
018859,000748: 34,7235           03310                           TC       GRABDSP                               
018860,000749: 34,7236           03316                           TC       PREGBSY                               
018861,000750: 34,7237           05654                           TC       BANKCALL                              
018862,000751: 34,7240           25256                           CADR     FINISH                                
018863,000752: 
018864,000753: 
018865,000754: 34,7241           04000        CDUCALC            TC       INTPRET                               
018866,000755: 34,7242           66774                           DSU      2                                     
018867,000756: 34,7243           61722                           BDDV     DMP                                   
018868,000757: 34,7244           76576                           RTB                                            
018869,000758: 34,7245           01245                                    DATAPL     +2                         
018870,000759: 34,7246           01243                                    DATAPL                                
018871,000760: 34,7247           01215                                    GENPL      +76D                       
018872,000761: 34,7250           31745                                    ERUNITS                               #  2DEC.66666
018873,000762: 34,7251           20403                                    SGNAGREE                              
018874,000763: 34,7252           32622                           STORE    DSPTEM2                               
018875,000764: 34,7253           77576                           EXIT     0                                     
018876,000765: 
018877,000766: 34,7254           03310                           TC       GRABDSP                               
018878,000767: 34,7255           03316                           TC       PREGBSY                               
018879,000768: 34,7256           05654                           TC       BANKCALL                              
018880,000769: 34,7257           25256                           CADR     FINISH                                
018881,000770: 
018882,000771: 
018883,000772: 34,7260           04000        PIPCALC            TC       INTPRET                               
018884,000773: 34,7261           76576                           RTB      0                                     
018885,000774: 34,7262           20264                                    FRESHPD                               
018886,000775: 34,7263           54775                           TSU      1                                     
018887,000776: 34,7264           63631                           TSLT     ROUND                                 
018888,000777: 34,7265           01105                                    GENPL      +4                         
018889,000778: 34,7266           01244                                    DATAPL     +1                         
018890,000779: 34,7267           00014                                    11D                                   
018891,000780: 34,7270           51176                           DSQ      0                                     
018892,000781: 34,7271           00001                                    0                                     #  T1(2) IN 2,3
018893,000782: 34,7272           64775                           DMP      1                                     
018894,000783: 34,7273           41176                           VDEF                                           
018895,000784: 34,7274           00001                                    0                                     
018896,000785: 34,7275           00003                                    2                                     
018897,000786: 34,7276           33132                           STORE    GENPL      +25D                       
018898,000787: 34,7277           54775                           TSU      1                                     
018899,000788: 34,7300           63631                           TSLT     ROUND                                 
018900,000789: 34,7301           01112                                    GENPL      +9D                        
018901,000790: 34,7302           01244                                    DATAPL     +1                         
018902,000791: 34,7303           00014                                    11D                                   
018903,000792: 34,7304           51176                           DSQ      0                                     
018904,000793: 34,7305           00001                                    0                                     
018905,000794: 34,7306           64775                           DMP      1                                     #  T2(2) IN 6
018906,000795: 34,7307           41176                           VDEF                                           
018907,000796: 34,7310           00001                                    0                                     
018908,000797: 34,7311           00003                                    2                                     
018909,000798: 34,7312           33140                           STORE    GENPL      +31D                       
018910,000799: 34,7313           54775                           TSU      1                                     
018911,000800: 34,7314           63631                           TSLT     ROUND                                 
018912,000801: 34,7315           01117                                    GENPL      +14D                       
018913,000802: 34,7316           01244                                    DATAPL     +1D                        
018914,000803: 34,7317           00014                                    11D                                   
018915,000804: 34,7320           51176                           DSQ      0                                     
018916,000805: 34,7321           00001                                    0                                     
018917,000806: 34,7322           64775                           DMP      1                                     
018918,000807: 34,7323           41176                           VDEF                                           
018919,000808: 34,7324           00001                                    0                                     
018920,000809: 34,7325           00003                                    2                                     
018921,000810: 34,7326           33146                           STORE    GENPL      +37D                       
018922,000811: 34,7327           41775                           VXV      1                                     
018923,000812: 34,7330           42776                           DOT                                            
018924,000813: 34,7331           01140                                    GENPL      +31D                       
018925,000814: 34,7332           01146                                    GENPL      +37D                       
018926,000815: 34,7333           01132                                    GENPL      +25D                       
018927,000816: 34,7334           33156                           STORE    GENPL      +45D                       #  D2
018928,000817: 34,7335           45176                           DMOVE    0                                     
018929,000818: 34,7336           01110                                    GENPL      +7                         
018930,000819: 34,7337           33132                           STORE    GENPL      +25D                       
018931,000820: 34,7340           45176                           DMOVE    0                                     
018932,000821: 34,7341           01115                                    GENPL      +12D                       
018933,000822: 34,7342           33140                           STORE    GENPL      +31D                       
018934,000823: 34,7343           45176                           DMOVE    0                                     
018935,000824: 34,7344           01122                                    GENPL      +17D                       
018936,000825: 34,7345           33146                           STORE    GENPL      +37D                       
018937,000826: 34,7346           41774                           VXV      2                                     
018938,000827: 34,7347           42712                           DOT      DDV                                   
018939,000828: 34,7350           64771                           DMP      RTB                                   
018940,000829: 34,7351           01140                                    GENPL      +31D                       
018941,000830: 34,7352           01146                                    GENPL      +37D                       
018942,000831: 34,7353           01132                                    GENPL      +25D                       
018943,000832: 34,7354           01156                                    GENPL      +45D                       
018944,000833: 34,7355           31747                                    ERUNITS2                              
018945,000834: 34,7356           20403                                    SGNAGREE                              
018946,000835: 34,7357           32622                           STORE    DSPTEM2                               
018947,000836: 34,7360           77576                           EXIT     0                                     
018948,000837: 34,7361           03310                           TC       GRABDSP                               
018949,000838: 34,7362           03316                           TC       PREGBSY                               
018950,000839: 34,7363           05654                           TC       BANKCALL                              
018951,000840: 34,7364           25256                           CADR     FINISH                                
018952,000841: 
018953,000842: 
018954,000843: 34,7365           04000        CHKCALC            TC       INTPRET                               
018955,000844: 34,7366           76575                           RTB      1                                     
018956,000845: 34,7367           76576                           RTB                                            
018957,000846: 34,7370           20270                                    ZEROVAC                               
018958,000847: 34,7371           20264                                    FRESHPD                               
018959,000848: 34,7372           54775                           TSU      1                                     
018960,000849: 34,7373           63631                           TSLT     ROUND                                 
018961,000850: 34,7374           01264                                    DATAPL     +17D                       
018962,000851: 34,7375           01245                                    DATAPL     +2                         
018963,000852: 34,7376           00015                                    12D                                   
018964,000853: 34,7377           66774                           DSU      2                                     
018965,000854: 34,7400           63722                           TSLT     DMP                                   
018966,000855: 34,7401           62776                           DDV                                            
018967,000856: 34,7402           01262                                    DATAPL     +15D                       
018968,000857: 34,7403           01243                                    DATAPL                                
018969,000858: 34,7404           00015                                    12D                                   
018970,000859: 34,7405           31743                                    DC585                                 #  GZ IN 0,1
018971,000860: 34,7406           54775                           TSU      1                                     
018972,000861: 34,7407           63631                           TSLT     ROUND                                 
018973,000862: 34,7410           01271                                    DATAPL     +22D                       
018974,000863: 34,7411           01252                                    DATAPL     +7                         
018975,000864: 34,7412           00015                                    12D                                   
018976,000865: 34,7413           66774                           DSU      2                                     
018977,000866: 34,7414           63722                           TSLT     DMP                                   
018978,000867: 34,7415           62776                           DDV                                            
018979,000868: 34,7416           01267                                    DATAPL     +20D                       
018980,000869: 34,7417           01250                                    DATAPL     +5                         
018981,000870: 34,7420           00015                                    12D                                   
018982,000871: 34,7421           31743                                    DC585                                 #  GY IN 2,3
018983,000872: 34,7422           54775                           TSU      1                                     
018984,000873: 34,7423           63631                           TSLT     ROUND                                 
018985,000874: 34,7424           01276                                    DATAPL     +27D                       
018986,000875: 34,7425           01257                                    DATAPL     +12D                       
018987,000876: 34,7426           00015                                    12D                                   
018988,000877: 34,7427           33216                           STORE    TESTTIME                              
018989,000878: 34,7430           66774                           DSU      2                                     
018990,000879: 34,7431           63722                           TSLT     DMP                                   
018991,000880: 34,7432           62603                           DDV      VDEF                                  
018992,000881: 34,7433           01274                                    DATAPL     +25D                       
018993,000882: 34,7434           01255                                    DATAPL     +10D                       
018994,000883: 34,7435           00015                                    12D                                   
018995,000884: 34,7436           31743                                    DC585                                 
018996,000885: 34,7437           01216                                    TESTTIME                              #  G IN 0,1,2,3,4,5
018997,000886: 34,7440           71175                           ABVAL    1                                     
018998,000887: 34,7441           63771                           TSLT     RTB                                   
018999,000888: 34,7442           00001                                    0                                     
019000,000889: 34,7443           00002                                    1                                     
019001,000890: 34,7444           20403                                    SGNAGREE                              
019002,000891: 34,7445           32622                           STORE    DSPTEM2                               
019003,000892: 34,7446           77576                           EXIT     0                                     
019004,000893: 34,7447           03310                           TC       GRABDSP                               
019005,000894: 34,7450           03316                           TC       PREGBSY                               
019006,000895: 34,7451           05654                           TC       BANKCALL                              
019007,000896: 34,7452           25205                           CADR     SHOW                                  
019008,000897: 
019009,000898: 34,7453           04000                           TC       INTPRET                               
019010,000899: 34,7454           45176                           DMOVE    0                                     
019011,000900: 34,7455           01303                                    DATAPL     +32D                       
019012,000901: 34,7456           45176                           DMOVE    0                                     
019013,000902: 34,7457           01301                                    DATAPL     +30D                       
019014,000903: 34,7460           45174                           DMOVE    2                                     
019015,000904: 34,7461           41153                           VDEF     UNIT                                  
019016,000905: 34,7462           44776                           VSLT                                           
019017,000906: 34,7463           01255                                    DATAPL     +10D                       
019018,000907: 34,7464           00002                                    1                                     #  V1 IN 6,7,8,9,10,11
019019,000908: 34,7465           45176                           DMOVE    0                                     
019020,000909: 34,7466           01307                                    DATAPL     +36D                       
019021,000910: 34,7467           45176                           DMOVE    0                                     
019022,000911: 34,7470           01305                                    DATAPL     +34D                       
019023,000912: 34,7471           45174                           DMOVE    2                                     
019024,000913: 34,7472           41153                           VDEF     UNIT                                  
019025,000914: 34,7473           44776                           VSLT                                           
019026,000915: 34,7474           01274                                    DATAPL     +25D                       
019027,000916: 34,7475           00002                                    1                                     #  V2 IN 12,13,14,15,1 ,17
019028,000917: 
019029,000918: 34,7476           41773                           VXV      3                                     
019030,000919: 34,7477           71116                           ABVAL    TSLT                                  
019031,000920: 34,7500           62722                           DDV      DMP                                   
019032,000921: 34,7501           76576                           RTB                                            
019033,000922: 34,7502           00007                                    6                                     
019034,000923: 34,7503           00015                                    12D                                   
019035,000924: 34,7504           00002                                    1                                     
019036,000925: 34,7505           01216                                    TESTTIME                              
019037,000926: 34,7506           31753                                    ERUNITS1                              
019038,000927: 34,7507           20403                                    SGNAGREE                              
019039,000928: 34,7510           32622                           STORE    DSPTEM2                               
019040,000929: 34,7511           77576                           EXIT     0                                     
019041,000930: 
019042,000931: 34,7512           05654                           TC       BANKCALL                              
019043,000932: 34,7513           25205                           CADR     SHOW                                  
019044,000933: 34,7514           06237                           TC       ENDTEST1                              
019045,000934: 
019046,000935: 
019047,000936: 34,7515           05706        STOPHOR            TC       MAKECADR                              
019048,000937: 34,7516           51573                           TS       RETAA                                 
019049,000938: 34,7517           04000                           TC       INTPRET                               
019050,000939: 34,7520           76776                           ITC      0                                     
019051,000940: 34,7521           30613                                    EARTHR                                
019052,000941: 34,7522           76776                           ITC      0                                     
019053,000942: 34,7523           30634                                    OUTGYR                                
019054,000943: 34,7524           77576                           EXIT     0                                     
019055,000944: 34,7525           05654                           TC       BANKCALL                              
019056,000945: 34,7526           30331                           CADR     IMUSTALL                              
019057,000946: 34,7527           06237                           TC       ENDTEST1                              
019058,000947: 34,7530           31573                           XCH      RETAA                                 
019059,000948: 34,7531           05723                           TC       BANKJUMP                              
019060,000949: 
019061,000950: 
019062,000951: 34,7532           05706        SCRINTP            TC       MAKECADR                              
019063,000952: 34,7533           51573                           TS       RETAA                                 
019064,000953: 34,7534           04000                           TC       INTPRET                               
019065,000954: 34,7535           47575                           NOLOD    1                                     
019066,000955: 34,7536           54776                           TSU                                            
019067,000956: 34,7537           01250                                    DATAPL     +5                         
019068,000957: 34,7540           32001                           STORE    0                                     #  T1:T0
019069,000958: 
019070,000959: 34,7541           47575                           NOLOD    1                                     
019071,000960: 34,7542           60776                           TAD                                            
019072,000961: 34,7543           01250                                    DATAPL     +5                         
019073,000962: 34,7544           33250                           STORE    DATAPL     +5                         #  TN
019074,000963: 
019075,000964: 34,7545           77174                           TMOVE    2                                     
019076,000965: 34,7546           63631                           TSLT     ROUND                                 
019077,000966: 34,7547           64742                           DMP      DAD                                   
019078,000967: 34,7550           00001                                    0                                     
019079,000968: 34,7551           00015                                    12D                                   
019080,000969: 34,7552           01101                                    GENPL                                 
019081,000970: 34,7553           01103                                    GENPL      +2                         
019082,000971: 34,7554           33103                           STORE    GENPL      +2                         
019083,000972: 34,7555           77576                           EXIT     0                                     
019084,000973: 
019085,000974: 34,7556           11220                           CCS      COUNTPL                               
019086,000975: 34,7557           07574                           TC       SUMSUM1                               
019087,000976: 
019088,000977: 34,7560           04000                           TC       INTPRET                               
019089,000978: 34,7561           71576                           LXC,1    0                                     
019090,000979: 34,7562           01225                                    RESULTCT                              #  FIRST=4
019091,000980: 34,7563           77176                           TMOVE    0                                     #  SECOND=9
019092,000981: 34,7564           01250                                    DATAPL     +5                         
019093,000982: 34,7565           36201                           STORE    GENPL,1                               
019094,000983: 34,7566           45176                           DMOVE    0                                     
019095,000984: 34,7567           01103                                    GENPL      +2                         
019096,000985: 34,7570           36207                           STORE    GENPL      +3,1                       
019097,000986: 34,7571           77576                           EXIT     0                                     
019098,000987: 34,7572           31573                           XCH      RETAA                                 
019099,000988: 34,7573           05723                           TC       BANKJUMP                              
019100,000989: 
019101,000990: 
019102,000991: 
019103,000992: 34,7574           05654        SUMSUM1            TC       BANKCALL                              
019104,000993: 34,7575           25456                           CADR     SUMSUM                                
019105,000994: 
019106,000995: 
019107,000996: 34,7576           04000        FALNED1            TC       INTPRET                               
019108,000997: 34,7577           76776                           ITC      0                                     
019109,000998: 34,7600           30573                                    ALGNINIT                              
019110,000999: 34,7601           77576                           EXIT     0                                     
019111,001000: 34,7602           11232                           CCS      TESTNDX                               
019112,001001: 34,7603           07666                           TC       LABTEST1                              
019113,001002: 34,7604           07606                           TC       +2                                    
019114,001003: 34,7605           07606                           TC       +1                                    
019115,001004: 34,7606           05654                           TC       BANKCALL                              
019116,001005: 34,7607           25331                           CADR     OGCZERO                               
019117,001006: 34,7610           05654                           TC       BANKCALL                              
019118,001007: 34,7611           25343                           CADR     FLTRZERO                              
019119,001008: 34,7612           34510        FRECT              CAF      BIT7                                  
019120,001009: 34,7613           51230                           TS       STOREPL                               
019121,001010: 34,7614           35501                           CAF      ZERO                                  #  VERTICAL ERECTION BY NULLING PIPAS
019122,001011: 34,7615           50044                           TS       PIPAX                                 
019123,001012: 34,7616           50045                           TS       PIPAY                                 
019124,001013: 34,7617           50046                           TS       PIPAZ                                 
019125,001014: 34,7620           33240        WARTNEW            CAF      TEN                                   #  CALL A SPADE A SPADE...HOMER
019126,001015: 34,7621           51220                           TS       COUNTPL                               
019127,001016: 34,7622           20017                           INHINT                                         
019128,001017: 34,7623           33544                           CAF      50DEC                                 
019129,001018: 34,7624           02173                           TC       WAITLIST                              
019130,001019: 34,7625           71631                           CADR     WARTNEW1                              
019131,001020: 34,7626           37630                           CAF      WART2ADR                              
019132,001021: 34,7627           02127                           TC       JOBSLEEP                              
019133,001022: 34,7630           71634        WART2ADR           CADR     WART2NEW                              
019134,001023: 34,7631           37630        WARTNEW1           CAF      WART2ADR                              
019135,001024: 34,7632           02060                           TC       JOBWAKE                               
019136,001025: 34,7633           02256                           TC       TASKOVER                              
019137,001026: 34,7634           04000        WART2NEW           TC       INTPRET                               
019138,001027: 34,7635           76576                           RTB      0                                     
019139,001028: 34,7636           20345                                    READPIPS                              
019140,001029: 34,7637           33002                           STORE    DELVX                                 
019141,001030: 34,7640           76776                           ITC      0                                     
019142,001031: 34,7641           30715                                    TJLAL                                 
019143,001032: 34,7642           77576                           EXIT     0                                     
019144,001033: 34,7643           11220                           CCS      COUNTPL                               
019145,001034: 34,7644           07621                           TC       WARTNEW    +1                         
019146,001035: 34,7645           04000                           TC       INTPRET                               
019147,001036: 34,7646           75175                           VMOVE    1                                     
019148,001037: 34,7647           76776                           ITC                                            
019149,001038: 34,7650           01115                                    FILDELX                               
019150,001039: 34,7651           31000                                    VERTRECT                              
019151,001040: 34,7652           76776                           ITC      0                                     
019152,001041: 34,7653           30613                                    EARTHR                                
019153,001042: 34,7654           76776                           ITC      0                                     
019154,001043: 34,7655           30634                                    OUTGYR                                
019155,001044: 34,7656           77576                           EXIT     0                                     
019156,001045: 34,7657           05654                           TC       BANKCALL                              
019157,001046: 34,7660           30331                           CADR     IMUSTALL                              
019158,001047: 34,7661           06237                           TC       ENDTEST1                              
019159,001048: 
019160,001049: 34,7662           11230                           CCS      STOREPL                               
019161,001050: 34,7663           07613                           TC       FRECT      +1                         
019162,001051: 34,7664           05654                           TC       BANKCALL                              
019163,001052: 34,7665           24721                           CADR     TSTJUMP                               
019164,001053: 
019165,001054: 
019166,001055: 
019167,001056: 34,7666           05654        LABTEST1           TC       BANKCALL                              
019168,001057: 34,7667           24751                           CADR     LABTEST                               
019169,001058: 
019170,001059: 
019171,001060: 34,7670           67222 51710  SCNBAZ             2DEC     -.27232                               #  AZIMUTH OF NB IS ERAD IN AS Z AXIS EAST
019172,001061: 34,7672           00000 00000                     2DEC     0          B-28                       
019173,001062: 34,7674           15327 37747                     2DEC     .4194335                              
019174,001063: 34,7676           00000 00000  LABNBAZ            2DEC     0          B-28                       
019175,001064: 34,7700           00000 00000                     2DEC     0          B-28                       
019176,001065: 34,7702           20000 00000                     2DEC     .5                                    
019177,001066: 34,7704           00000 00000  LABNBAZ1           2DEC     0          B-28                       
019178,001067: 34,7706           00000 00000                     2DEC     0          B-28                       
019179,001068: 34,7710           15327 37747  SCNBVER            2DEC     .4194335                              
019180,001069: 34,7712           00000 00000                     2DEC     0          B-28                       
019181,001070: 34,7714           10555 26067                     2DEC     .27232                                
019182,001071: 34,7716           20000 00000  LABNBVER           2DEC     .5                                    
019183,001072: 34,7720           00000 00000                     2DEC     0          B-28                       
019184,001073: 34,7722           00000 00000                     2DEC     0          B-28                       
019185,001074: 34,7724           00000 00000  LBNBVER1           2DEC     0          B-28                       
019186,001075: 34,7726           57777 77777                     2DEC     -.5                                   
019187,001076: 34,7730           00666        V06N66E            OCT      00666                                 
019188,001077: 34,7731           00130        V01N30E            OCT      00130                                 
019189,001078: 34,7732           03711 33265  OMEG/MS            2DEC     .12169524                             
019190,001079: 34,7734           24365 30244  SCALFTR            2DEC     .64                                   
019191,001080: 34,7736           24000        INTCON1            DEC      40         B+8                        
019192,001081: 34,7737           00000                           DEC      0          B-14                       
019193,001082: 34,7740           01100        FLNDX              ADRES    GENPL                                 
019194,001083: 34,7741           00021        MTRXLD             DEC      17         B-14                       
019195,001084: 34,7742           01111 00000  DC585              2DEC     585        B+14                       
019196,001085: 34,7744           00406 36355  ERUNITS            2DEC     4308205    B-28                       #  CONSTANT CORRECTED FOR SIDEREAL RATE
019197,001086: 34,7746           00002 12725  ERUNITS2           2DEC     38357      B-28                       
019198,001087: 34,7750           03146 14632  VRECTC3            2DEC     .1                                    
019199,001088: 34,7752           00051 33163  ERUNITS1           2DEC     685683     B-28                       
019200,001089: 
019201,001090: 
019202,001091: 34,7754           76576        ERTHRVEN           RTB      0                                     
019203,001092: 34,7755           20270                                    ZEROVAC                               
019204,001093: 34,7756           55176                           COS      0                                     
019205,001094: 34,7757           01315                                    LATITUDE                              
019206,001095: 34,7760           45176                           DMOVE    0                                     
019207,001096: 34,7761           05174                                    ZERODP                                
019208,001097: 34,7762           57175                           SIN      1                                     
019209,001098: 34,7763           41166                           VDEF     VXSC                                  
019210,001099: 34,7764           01315                                    LATITUDE                              
019211,001100: 34,7765           31733                                    OMEG/MS                               
019212,001101: 34,7766           33177                           STORE    VMARK                                 
019213,001102: 34,7767           40576                           ITCQ     0                                     

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