Source Code

021451,000002: ## Copyright: Public domain. 021452,000003: ## Filename: 501_MISSION_CONTROL_PROGRAM.agc 021453,000004: ## Purpose: Part of the source code for Solarium build 55. This 021454,000005: ## is for the Command Module's (CM) Apollo Guidance 021455,000006: ## Computer (AGC), for Apollo 6. 021456,000007: ## Assembler: yaYUL --block1 021457,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 021458,000009: ## Website: www.ibiblio.org/apollo/index.html 021459,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 021460,000011: ## Mod history: 2009-09-26 JL Created. 021461,000012: ## 2016-08-20 RSB Typos. 021462,000013: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 021463,000014: ## and fixed errors found. 021464,000015:

Page 553

021466,000017: 
021467,000018: 32,6000                                           SETLOC   64000                                 
021468,000019: 32,6000           20017        LIFTOFF            INHINT                                         
021469,000020: 32,6001           02677                           TC       READTIME   +1                         #  SAVE TIME OF LIFTOFF
021470,000021: 32,6002           40572                           CS       RUPTSTOR                              
021471,000022: 32,6003           51462                           TS       TLIFTOFF                              
021472,000023: 32,6004           40573                           CS       RUPTSTOR   +1                         
021473,000024: 32,6005           51463                           TS       TLIFTOFF   +1                         
021474,000025: 
021475,000026: 32,6006           40000                           COM                                            
021476,000027: 32,6007           50666                           TS       TBASE4                                
021477,000028: 
021478,000029: 32,6010           33533        CALL4.11           CAF      ELEVEN                                
021479,000030: 32,6011           02312                           TC       NEWPHASE                              
021480,000031: 32,6012           00004                           OCT      00004                                 
021481,000032: 
021482,000033: 32,6013           10000                           CCS      A                                     
021483,000034: 32,6014           06022                           TC       SETLIFT                               
021484,000035: 32,6015           06022                           TC       SETLIFT                               
021485,000036: 
021486,000037: 32,6016           20017                           INHINT                                         
021487,000038: 32,6017           37567                           CAF      2SEC                                  #  ALLOW 2 SECS FOR BACK-UP GRR COMPUTATION
021488,000039: 32,6020           02173                           TC       WAITLIST                              
021489,000040: 32,6021           64025                           CADR     TARGTASK                              
021490,000041: 
021491,000042: 32,6022           03416        SETLIFT            TC       FLAG1UP                               
021492,000043: 32,6023           00002                           OCT      00002                                 
021493,000044: 
021494,000045: 32,6024           03151                           TC       JAMTERM                               #  FLUSH V75 GRR BACKUP.
021495,000046: 
021496,000047: 32,6025           33557        TARGTASK           CAF      THIRTY1                               
021497,000048: 32,6026           02312                           TC       NEWPHASE                              
021498,000049: 32,6027           00004                           OCT      00004                                 
021499,000050: 
021500,000051: 32,6030           35501                           CAF      ZERO                                  
021501,000052: 32,6031           50665                           TS       TBASE3                                
021502,000053: 
021503,000054: 32,6032           34516                           CAF      ONE                                   
021504,000055: 32,6033           02312                           TC       NEWPHASE                              
021505,000056: 32,6034           00003                           OCT      00003                                 
021506,000057: 
021507,000058: 32,6035           35501                           CAF      ZERO                                  #  FIX UP TBASE5 FOR READACCS RESTART AND
021508,000059: 32,6036           60667                           AD       TBASE5                                #    LOAD 2 SECS INTO TIME COUNTERS (I.E.
021509,000060: 32,6037           61463                           AD       TLIFTOFF   +1                         #    ZERO THE AGC CLOCK AT LIFT-OFF)
021510,000061: 32,6040           64520                           AD       NEG1/2                                
021511,000062: 32,6041           64520                           AD       NEG1/2                                
021512,000063: 32,6042           30667                           XCH      TBASE5                                
021513,000064: 
021514,000065: 32,6043           33565                           CAF      200DEC                                
021515,000066: 32,6044           50036                           TS       TIME1                                 
021516,000067: 
021517,000068: 32,6045           33560                           CAF      THIRTY2                               

Page 554

021519,000070: 32,6046           02312                           TC       NEWPHASE                              
021520,000071: 32,6047           00004                           OCT      00004                                 
021521,000072: 
021522,000073: 32,6050           43565                           CS       200DEC                                #  CALL ON BOOST MONITOR
021523,000074: 32,6051           61563                           AD       TROLL      +1                         
021524,000075: 32,6052           02173                           TC       WAITLIST                              
021525,000076: 32,6053           64066                           CADR     MON1TASK                              
021526,000077: 
021527,000078: 32,6054           32146        REDO4.32           CAF      PRIO12                                
021528,000079: 32,6055           02046                           TC       FINDVAC                               
021529,000080: 32,6056           50000                           CADR     TARGJOB                               
021530,000081: 
021531,000082: 32,6057           35501                           CAF      ZERO                                  #  FINALLY ZERO TIME2
021532,000083: 32,6060           50035                           TS       TIME2                                 
021533,000084: 
021534,000085: 32,6061           02256                           TC       TASKOVER                              
021535,000086: 
021536,000087: 32,6062           32170        REDO4.31           CAF      PRIO35                                
021537,000088: 32,6063           02052                           TC       NOVAC                                 
021538,000089: 32,6064           11147                           CADR     ENEMA                                 
021539,000090: 
021540,000091: 32,6065           06030                           TC       TARGTASK   +3                         
021541,000092: 
021542,000093: 
021543,000094: 
021544,000095: 24,6000                                           BANK     24                                    
021545,000096: 
021546,000097: 24,6000           05654        TARGJOB            TC       BANKCALL                              #  COMMAND IMUCDU TO ATT. CONTROL MODE
021547,000098: 24,6001           30223                           CADR     IMUATTC                               
021548,000099: 
021549,000100: 24,6002           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO BOOST ATTITUDE MONITOR
021550,000101: 24,6003           00011                           OCT      00011                                 
021551,000102: 
021552,000103: 24,6004           03516                           TC       SETHETAD                              #  FORCE THETAD,+1,+2 TO EQUAL CDUX,Y,Z
021553,000104: 
021554,000105: 24,6005           04000                           TC       INTPRET                               
021555,000106: 
021556,000107: 24,6006           66776                           DSU      0                                     #  TARGET VECTORS INITIALLY REFERENCED TO
021557,000108: 24,6007           01463                                    TLIFTOFF                              #  GRR. WILL NOW UPDATE THEM TO LIFT-OFF
021558,000109: 24,6010           01467                                    TIME2GR                               
021559,000110: 24,6011           33145                           STORE    DTEAROT                               
021560,000111: 
021561,000112: 24,6012           45176                           DMOVE    0                                     
021562,000113: 24,6013           01630                                    TPACIF1                               
021563,000114: 24,6014           33537                           STORE    TPACIFC                               
021564,000115: 
021565,000116: 24,6015           45176                           DMOVE    0                                     
021566,000117: 24,6016           01620                                    TATLAN1                               
021567,000118: 24,6017           33527                           STORE    TATLANT                               

Page 555

021569,000120: 24,6020           75176                           VMOVE    0                                     
021570,000121: 24,6021           01632                                    RTPACIF1                              
021571,000122: 24,6022           33115                           STORE    RTINIT                                
021572,000123: 
021573,000124: 24,6023           76776                           ITC      0                                     
021574,000125: 24,6024           13450                                    EARROT1                               
021575,000126: 
021576,000127: 24,6025           47576                           NOLOD    0                                     
021577,000128: 24,6026           33541                           STORE    RTPACIFC                              
021578,000129: 
021579,000130: 24,6027           75176                           VMOVE    0                                     
021580,000131: 24,6030           01622                                    RTATLAN1                              
021581,000132: 24,6031           33115                           STORE    RTINIT                                
021582,000133: 
021583,000134: 24,6032           76776                           ITC      0                                     
021584,000135: 24,6033           13450                                    EARROT1                               
021585,000136: 
021586,000137: 24,6034           47576                           NOLOD    0                                     
021587,000138: 24,6035           33531                           STORE    RTATLANT                              
021588,000139: 
021589,000140: 24,6036           77576                           EXIT     0                                     
021590,000141: 
021591,000142: 24,6037           05654        TARGET             TC       BANKCALL                              #  WAIT FOR COMPLETION OF MODE SWITCH
021592,000143: 24,6040           30331                           CADR     IMUSTALL                              
021593,000144: 24,6041           03066                           TC       CURTAINS                              #  TRAP IF INCOMPLETE
021594,000145: 
021595,000146: 24,6042           44516                           CS       ONE                                   
021596,000147: 24,6043           02312                           TC       NEWPHASE                              
021597,000148: 24,6044           00004                           OCT      00004                                 
021598,000149: 
021599,000150: 24,6045           02124                           TC       ENDOFJOB                              
021600,000151: 

Page 556

021602,000153: 
021603,000154: 32,6066                                           BANK     32                                    
021604,000155: 
021605,000156: 32,6066           32143        MON1TASK           CAF      PRIO5                                 
021606,000157: 32,6067           02046                           TC       FINDVAC                               
021607,000158: 32,6070           64074                           CADR     MONITJOB                              
021608,000159: 
021609,000160: 32,6071           03416                           TC       FLAG1UP                               #  SET MONIT FLAG
021610,000161: 32,6072           00040        MONITMSK           OCT      00040                                 
021611,000162: 
021612,000163: 32,6073           02256                           TC       TASKOVER                              
021613,000164: 
021614,000165: 
021615,000166: 
021616,000167: 32,6074           02276        MONITJOB           TC       PHASCHNG                              
021617,000168: 32,6075           03203                           OCT      03203                                 
021618,000169: 
021619,000170: 32,6076           04000                           TC       INTPRET                               
021620,000171: 
021621,000172: 32,6077           76575                           RTB      1                                     #  FORM TIME SINCE START OF MONITOR
021622,000173: 32,6100           66776                           DSU                                            
021623,000174: 32,6101           20253                                    LOADTIME                              
021624,000175: 32,6102           01565                                    TPITCH                                
021625,000176: 32,6103           33571                           STORE    TMONITOR                              #  SCALED AT 2(+28) CS
021626,000177: 
021627,000178: 32,6104           47574                           NOLOD    2                                     #  TEST IF TIME TO START PITCH MONITOR
021628,000179: 32,6105           43605                           BPL      LODON                                 
021629,000180: 32,6106           45176                           DMOVE                                          
021630,000181: 32,6107           24113                                    +3                                    
021631,000182: 32,6110           07227                                    DPZERO                                #  NO
021632,000183: 32,6111           33571                           STORE    TMONITOR                              
021633,000184: 
021634,000185: 32,6112           47573        PITCH1             NOLOD    3                                     #  TEST IF TIME TO STOP MONITOR
021635,000186: 32,6113           66756                           DSU      BMN                                   
021636,000187: 32,6114           41423                           LODON    DMOVE                                 
021637,000188: 32,6115           42576                           SWITCH                                         
021638,000189: 32,6116           01567                                    TENDPTCH                              
021639,000190: 32,6117           24124                                    +4                                    
021640,000191: 32,6120           01567                                    TENDPTCH                              #  IF IT IS, SET TMONITOR TO MAX AND REMOVE
021641,000192: 32,6121           00033                                    MONITFLG                              #   MONIT FLAG
021642,000193: 32,6122           33571                           STORE    TMONITOR                              
021643,000194: 
021644,000195: 32,6123           45174                           DMOVE    2                                     #  DO SIGN AGREE AND RESCALE TO 2(+14) CS
021645,000196: 32,6124           76516                           RTB      TSLT                                  
021646,000197: 32,6125           76516                           RTB      TSLT                                  
021647,000198: 32,6126           01571                                    TMONITOR                              
021648,000199: 32,6127           20404                                    SGNAGREE                              
021649,000200: 32,6130           00017                                    14D                                   
021650,000201: 32,6131           24246                                    POLYENT1                              #  SOLVE PITCH POLYNOMIAL
021651,000202: 32,6132           00005                                    4                                     
021652,000203: 32,6133           32025                           STORE    20D                                   #  CHI SCALED AT 1 REV.

Page 557

021654,000205: 32,6134           57176                           SIN      0                                     
021655,000206: 32,6135           00025                                    20D                                   
021656,000207: 
021657,000208: 32,6136           45176                           DMOVE    0                                     
021658,000209: 32,6137           07227                                    DPZERO                                
021659,000210: 
021660,000211: 32,6140           55175                           COS      1                                     
021661,000212: 32,6141           41176                           VDEF                                           
021662,000213: 32,6142           00025                                    20D                                   
021663,000214: 32,6143           32027                           STORE    22D                                   #  UNIT VECTOR ALONG VEHICLE ROLL AXIS
021664,000215: 
021665,000216: 32,6144           47576                           NOLOD    0                                     
021666,000217: 32,6145           33411                           STORE    XSCD                                  
021667,000218: 
021668,000219: 32,6146           45176                           DMOVE    0                                     
021669,000220: 32,6147           01415                                    XSCD       +4                         
021670,000221: 32,6150           32027                           STORE    22D                                   #  FORM VECTOR (XSCD +4, 0, -XSCD) AT 22D
021671,000222: 
021672,000223: 32,6151           47176                           COMP     0                                     
021673,000224: 32,6152           01411                                    XSCD                                  
021674,000225: 32,6153           32033                           STORE    26D                                   
021675,000226: 
021676,000227: 32,6154           76572        ROLLER             RTB      4                                     #  FORM DESIRED ROLL EXCURSION
021677,000228: 32,6155           66712                           DSU      DDV                                   
021678,000229: 32,6156           66756                           DSU      BMN                                   
021679,000230: 32,6157           41423                           LODON    DMOVE                                 
021680,000231: 32,6160           76576                           RTB                                            
021681,000232: 32,6161           20253                                    LOADTIME                              
021682,000233: 32,6162           01563                                    TROLL                                 
021683,000234: 32,6163           01701                                    1/RLLRTE                              
021684,000235: 32,6164           01703                                    MAXROLL                               
021685,000236: 32,6165           24171                                    +3                                    
021686,000237: 32,6166           07227                                    DPZERO                                #  IF EXCEEDS MAX VALUE, SET ROLL ATTITUDE
021687,000238: 32,6167           20265                                    FRESHPD                               #    TO ZERO
021688,000239: 
021689,000240: 32,6170           47576                           NOLOD    0                                     
021690,000241: 32,6171           32025                           STORE    20D                                   #  ROLL ANGLE SCALED AT 1 REV.
021691,000242: 
021692,000243: 32,6172           47575                           NOLOD    1                                     
021693,000244: 32,6173           57176                           SIN                                            
021694,000245: 32,6174           32023                           STORE    18D                                   
021695,000246: 
021696,000247: 32,6175           47575                           NOLOD    1                                     
021697,000248: 32,6176           63766                           TSLT     VXSC                                  
021698,000249: 32,6177           00002                                    1                                     
021699,000250: 32,6200           00027                                    22D                                   
021700,000251: 32,6201           33417                           STORE    YSCD                                  
021701,000252: 
021702,000253: 32,6202           55175                           COS      1                                     
021703,000254: 32,6203           47176                           COMP                                           

Page 558

021705,000256: 32,6204           00025                                    20D                                   
021706,000257: 32,6205           33421                           STORE    YSCD       +2                         
021707,000258: 
021708,000259: 32,6206           47574                           NOLOD    2                                     
021709,000260: 32,6207           47166                           COMP     VXSC                                  
021710,000261: 32,6210           44776                           VSLT                                           
021711,000262: 32,6211           00027                                    22D                                   
021712,000263: 32,6212           00002                                    1                                     
021713,000264: 32,6213           33425                           STORE    ZSCD                                  
021714,000265: 
021715,000266: 32,6214           45176                           DMOVE    0                                     
021716,000267: 32,6215           00023                                    18D                                   
021717,000268: 32,6216           33427                           STORE    ZSCD       +2                         
021718,000269: 
021719,000270: 32,6217           76776                           ITC      0                                     #  RESOLVE INTO NB COORDS.
021720,000271: 32,6220           12167                                    CALCSCNB                              
021721,000272: 
021722,000273: 32,6221           76776                           ITC      0                                     #  EXTRACT EULER ANGLES FROM XNB MATRIX
021723,000274: 32,6222           12072                                    CALCCDU                               
021724,000275: 
021725,000276: 32,6223           47576                           NOLOD    0                                     #  STORE THE ANGLES
021726,000277: 32,6224           32701                           STORE    THETAD                                
021727,000278: 
021728,000279: 32,6225           77576                           EXIT     0                                     
021729,000280: 
021730,000281: 32,6226           34511                           CAF      BIT6                                  #  TEST IF MONIT FLAG SET
021731,000282: 32,6227           70646                           MASK     FLAGWRD1                              
021732,000283: 32,6230           10000                           CCS      A                                     
021733,000284: 32,6231           06074                           TC       MONITJOB                              #  IT IS. RECYCLE MONITJOB
021734,000285: 
021735,000286: 32,6232           20017                           INHINT                                         #  CALL TUMBLE MONITOR IN TTUMON SECS
021736,000287: 32,6233           41572                           CS       TTUMON                                
021737,000288: 32,6234           40000                           COM                                            
021738,000289: 32,6235           02173                           TC       WAITLIST                              
021739,000290: 32,6236           64250                           CADR     TUMBTSK1                              
021740,000291: 
021741,000292: 32,6237           40036                           CS       TIME1                                 
021742,000293: 32,6240           50665                           TS       TBASE3                                
021743,000294: 
021744,000295: 32,6241           35503                           CAF      TWO                                   
021745,000296: 32,6242           02312                           TC       NEWPHASE                              
021746,000297: 32,6243           00003                           OCT      00003                                 
021747,000298: 
021748,000299: 32,6244           02124                           TC       ENDOFJOB                              
021749,000300: 
021750,000301: 
021751,000302: 
021752,000303: 32,6245           33534        POLYENT1           CAF      TWELVE                                #  RTB HERE PRIOR TO ENTERING ERASABLE FOR
021753,000304: 32,6246           51574                           TS       POLYORDR                              #    POLYNOMIAL
021754,000305: 32,6247           01573                           TC       POLYENTR                              

Page 559

021756,000307: 
021757,000308: 32,6250           33553        TUMBTSK1           CAF      TWENTY7                               
021758,000309: 32,6251           02312                           TC       NEWPHASE                              
021759,000310: 32,6252           00003                           OCT      3                                     
021760,000311: 
021761,000312: 32,6253           32155                           CAF      PRIO22                                
021762,000313: 32,6254           02046                           TC       FINDVAC                               
021763,000314: 32,6255           64257                           CADR     TUMBJOB1                              
021764,000315: 
021765,000316: 32,6256           06325                           TC       RESET1                                
021766,000317: 
021767,000318: 
021768,000319: 
021769,000320: 32,6257           05654        TUMBJOB1           TC       BANKCALL                              #  SWITCH IMUCDU MODE TO FINE ALIGN
021770,000321: 32,6260           30163                           CADR     IMUFINNW                              
021771,000322: 
021772,000323: 32,6261           05654                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF MODE SWITCH
021773,000324: 32,6262           30331                           CADR     IMUSTALL                              
021774,000325: 32,6263           03066                           TC       CURTAINS                              
021775,000326: 
021776,000327: 32,6264           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO TUMBLE MONITOR
021777,000328: 32,6265           00014                           OCT      00014                                 
021778,000329: 
021779,000330: 32,6266           04000                           TC       INTPRET                               #  ...NO 01407 ALARMS, PLEASE....
021780,000331: 
021781,000332: 32,6267           75575                           AXT,1    1                                     
021782,000333: 32,6270           76776                           ITC                                            
021783,000334: 32,6271           00007                                    6                                     
021784,000335: 32,6272           12001                                    CDUTRIG                               
021785,000336: 
021786,000337: 32,6273           75176                           VMOVE    0                                     
021787,000338: 32,6274           01315                                    CDUTEMP                               
021788,000339: 32,6275           33345                           STORE    DUPCDU                                
021789,000340: 
021790,000341: 32,6276           77576                           EXIT     0                                     
021791,000342: 
021792,000343: 32,6277           02124                           TC       ENDOFJOB                              
021793,000344: 
021794,000345: 32,6300           32155        TUMBTASK           CAF      PRIO22                                
021795,000346: 32,6301           02046                           TC       FINDVAC                               
021796,000347: 32,6302           50046                           CADR     TUMBJOB                               
021797,000348: 
021798,000349: 32,6303           34516                           CAF      BIT1                                  #  TEST IF TUMBLE FLAG SET
021799,000350: 32,6304           70646                           MASK     FLAGWRD1                              
021800,000351: 32,6305           10000                           CCS      A                                     
021801,000352: 32,6306           06325                           TC       RESET1                                #  IT IS. CONTINUE TO MONITOR
021802,000353: 
021803,000354: 32,6307           40647                           CS       FLAGWRD2                              #  TEST IF BURN IS TUMBLE ARREST (I.E. HAS
021804,000355: 32,6310           74516                           MASK     BIT1                                  #  CORRECTIVE ACTION STARTED)
021805,000356: 32,6311           10000                           CCS      A                                     
021806,000357: 32,6312           06321                           TC       TUMTEST1                              #  IT HAS NOT

Page 560

021808,000359: 32,6313           40011                           CS       OUT1                                  #  IT HAS. TEST IF ENGINE ON YET. IF NOT,
021809,000360: 32,6314           74502                           MASK     BIT13                                 #  WAIT BEFORE TURNING IT OFF AGAIN
021810,000361: 32,6315           10000                           CCS      A                                     
021811,000362: 32,6316           06325                           TC       RESET1                                
021812,000363: 
021813,000364: 32,6317           05720                           TC       POSTJUMP                              #  LEAP TO CUT SPS ENGINE
021814,000365: 32,6320           64710                           CADR     ENGINOFF                              
021815,000366: 
021816,000367: 32,6321           36335        TUMTEST1           CAF      NOTUMASK                              #  TEST IF NEXT BURN HAS BEEN SET
021817,000368: 32,6322           70647                           MASK     FLAGWRD2                              
021818,000369: 32,6323           10000                           CCS      A                                     
021819,000370: 32,6324           06331                           TC       TASK3OUT                              
021820,000371: 
021821,000372: 32,6325           36677        RESET1             CAF      1SEC32                                #  RECALL IN 1 SEC
021822,000373: 32,6326           02173                           TC       WAITLIST                              
021823,000374: 32,6327           64300                           CADR     TUMBTASK                              
021824,000375: 
021825,000376: 32,6330           02256                           TC       TASKOVER                              
021826,000377: 
021827,000378: 32,6331           44516        TASK3OUT           CS       ONE                                   
021828,000379: 32,6332           02312                           TC       NEWPHASE                              
021829,000380: 32,6333           00003                           OCT      00003                                 
021830,000381: 
021831,000382: 32,6334           02256                           TC       TASKOVER                              #  IT HAS. KILL TUMBLE MONITOR
021832,000383: 
021833,000384: 32,6335           00016        NOTUMASK           OCT      00016                                 #  (OR OF SPS1, ABRT, TABT)
021834,000385: 

Page 561

021836,000387: 
021837,000388: 24,6046                                           BANK     24                                    
021838,000389: 
021839,000390: 24,6046           36111        TUMBJOB            CAF      NOTUMSK1                              #  SKIP THIS JOB IF NEXT BURN HAS BEEN SET
021840,000391: 24,6047           70647                           MASK     FLAGWRD2                              
021841,000392: 24,6050           10000                           CCS      A                                     
021842,000393: 24,6051           02124                           TC       ENDOFJOB                              
021843,000394: 
021844,000395: 24,6052           04000                           TC       INTPRET                               
021845,000396: 
021846,000397: 24,6053           75176                           VMOVE    0                                     #  SAVE PRESENT CDUX,Y,Z
021847,000398: 24,6054           01345                                    DUPCDU                                
021848,000399: 24,6055           33323                           STORE    CDUBUF                                
021849,000400: 
021850,000401: 24,6056           75575                           AXT,1    1                                     #  FORM DP CDUX,Y,Z
021851,000402: 24,6057           76776                           ITC                                            
021852,000403: 24,6060           00007                                    6                                     
021853,000404: 24,6061           12001                                    CDUTRIG                               
021854,000405: 
021855,000406: 24,6062           75176                           VMOVE    0                                     #  SAVE DUPLICATE CDUX,Y,Z
021856,000407: 24,6063           01315                                    CDUTEMP                               #  SCALED AT 1 REV
021857,000408: 24,6064           33345                           STORE    DUPCDU                                
021858,000409: 
021859,000410: 24,6065           47575                           NOLOD    1                                     
021860,000411: 24,6066           74765                           VSU      AXT,1                                 
021861,000412: 24,6067           01323                                    CDUBUF                                
021862,000413: 24,6070           00007                                    6                                     
021863,000414: 24,6071           33315                           STORE    CDUTEMP                               
021864,000415: 
021865,000416: 24,6072           76776                           ITC      0                                     #  COMPUTE SIN OF CDUX,Y,Z
021866,000417: 24,6073           12041                                    SINCOS                                #  DIFFERENCES AND PUT IN SINCDU,+2,+4
021867,000418: 
021868,000419: 24,6074           71174                           ABVAL    2                                     
021869,000420: 24,6075           66756                           DSU      BMN                                   
021870,000421: 24,6076           77576                           EXIT                                           
021871,000422: 24,6077           01331                                    SINCDU                                
021872,000423: 24,6100           10113                                    CRIT                                  
021873,000424: 24,6101           10106                                    NOTUMBLE                              
021874,000425: 
021875,000426: 24,6102           03416                           TC       FLAG1UP                               #  SET TUMB FLAG
021876,000427: 24,6103           00001                           OCT      00001                                 
021877,000428: 
021878,000429: 24,6104           02124                           TC       ENDOFJOB                              
021879,000430: 
021880,000431: 24,6105           77576        NOTUMBLE           EXIT     0                                     
021881,000432: 24,6106           03430                           TC       FLAG1DWN                              #  REMOVE TUMBLE FLAG
021882,000433: 24,6107           00001                           OCT      00001                                 
021883,000434: 
021884,000435: 24,6110           02124                           TC       ENDOFJOB                              
021885,000436: 
021886,000437: 24,6111           00016        NOTUMSK1           OCT      16                                    

Page 562

021888,000439: 24,6112           00262 25271  CRIT               2DEC     0.010905                              #  SIN(5DEG/2) SCALED AT 2(+2)
021889,000440: 

Page 563

021891,000442: 
021892,000443: 32,6336                                           BANK     32                                    
021893,000444: 
021894,000445: 
021895,000446: 
021896,000447: 32,6336           40036        S4BSMSEP           CS       TIME1                                 #  BRANCH HERE ON RECEIPT OF S4B/CSM SEP
021897,000448: 32,6337           50666                           TS       TBASE4                                
021898,000449: 
021899,000450: 32,6340           03430                           TC       FLAG1DWN                              #  RESET UPDAT FLAG
021900,000451: 32,6341           20000                           OCT      20000                                 
021901,000452: 
021902,000453: 32,6342           03373                           TC       RELAYON                               #  SET SCS +X TRANS, ATTITUDE CONTROL MODE,
021903,000454: 32,6343           40221                           OCT      40221                                 #  GIMBAL MOT POWER DISCRETES (C27,23,30)
021904,000455: 
021905,000456: 32,6344           34516                           CAF      BIT1                                  #  TEST IF TUMB FLAG SET
021906,000457: 32,6345           70646                           MASK     FLAGWRD1                              
021907,000458: 32,6346           10000                           CCS      A                                     
021908,000459: 32,6347           06462                           TC       SETUMB2                               
021909,000460: 
021910,000461: 32,6350           03416                           TC       FLAG1UP                               #  SET INTP FLAG
021911,000462: 32,6351           01000        INTPMASK           OCT      01000                                 
021912,000463: 
021913,000464: 32,6352           02276                           TC       PHASCHNG                              
021914,000465: 32,6353           01404                           OCT      01404                                 
021915,000466: 
021916,000467: 32,6354           20017                           INHINT                                         
021917,000468: 32,6355           36505                           CAF      1.7SEC                                #  WAIT 1.7 SECS FOR RECEIPT OF ABORT SIG.
021918,000469: 32,6356           02173                           TC       WAITLIST                              
021919,000470: 32,6357           64374                           CADR     ABRTWAIT                              
021920,000471: 
021921,000472: 32,6360           03302        TRYGRAB            TC       GRABDSP                               #  TRY TO GRAB DISPLAY
021922,000473: 32,6361           06366                           TC       CLEANOUT                              #  ALREADY GRABBED. FLUSH OUT GRABBER
021923,000474: 
021924,000475: 32,6362           03362                           TC       FREEDSP                               #  WE HAVE IT. AND LET IT GO
021925,000476: 
021926,000477: 32,6363           03416        SETS4SEP           TC       FLAG1UP                               #  SET S4BSM FLAG
021927,000478: 32,6364           00200                           OCT      00200                                 
021928,000479: 
021929,000480: 32,6365           02124                           TC       ENDOFJOB                              
021930,000481: 
021931,000482: 32,6366           20017        CLEANOUT           INHINT                                         
021932,000483: 32,6367           32170                           CAF      PRIO35                                #  MAKE HIGH PRIO JOB TO FLUSH OUT PINBALL
021933,000484: 32,6370           02052                           TC       NOVAC                                 
021934,000485: 32,6371           11147                           CADR     ENEMA                                 
021935,000486: 32,6372           20016                           RELINT                                         
021936,000487: 
021937,000488: 32,6373           06363                           TC       SETS4SEP                              
021938,000489: 
021939,000490: 32,6374           32160        ABRTWAIT           CAF      PRIO25                                #  CONTINUE WITH SAME PRIORITY AS S4BSMSEP
021940,000491: 32,6375           02052                           TC       NOVAC                                 
021941,000492: 32,6376           64400                           CADR     ABORTEST                              

Page 564

021943,000494: 32,6377           02256                           TC       TASKOVER                              
021944,000495: 
021945,000496: 32,6400           34516        ABORTEST           CAF      ONE                                   #  SET VGCNTR FOR 2 PASSES THRU CALCVGB
021946,000497: 32,6401           51446                           TS       VGCNTR                                
021947,000498: 
021948,000499: 32,6402           03430                           TC       FLAG1DWN                              #  RESET UPDAT FLAG
021949,000500: 32,6403           20000                           OCT      20000                                 
021950,000501: 
021951,000502: 32,6404           34501                           CAF      BIT14                                 #  TEST IF ABORT SIGNAL RECEIVED
021952,000503: 32,6405           70645                           MASK     STATE                                 
021953,000504: 32,6406           10000                           CCS      A                                     
021954,000505: 32,6407           06427                           TC       SETABORT                              #  IT WAS. BRANCH TO ABORT
021955,000506: 
021956,000507: 32,6410           20017                           INHINT                                         
021957,000508: 32,6411           36504                           CAF      8.3SEC                                #  SET CALL TO TURN OFF +X 10 SEC AFTER SEP
021958,000509: 32,6412           02173                           TC       WAITLIST                              
021959,000510: 32,6413           64663                           CADR     PLUSXOFF                              
021960,000511: 32,6414           20016                           RELINT                                         
021961,000512: 
021962,000513: 32,6415           03504                           TC       SETBRNSW                              #  SET BURN TO SPS1
021963,000514: 32,6416           00010        SPS1MASK           OCT      00010                                 
021964,000515: 
021965,000516: 32,6417           36426                           CAF      SPS1LOC                               #  SET LOCATION FOR NOMINAL SPS1 VR COMP
021966,000517: 32,6420           51470                           TS       VRCADR                                
021967,000518: 
021968,000519: 32,6421           02276                           TC       PHASCHNG                              
021969,000520: 32,6422           02504                           OCT      02504                                 
021970,000521: 
021971,000522: 32,6423           02362        REDO4.21           TC       NEWMODE                               #  SET MAJOR MODE TO PRE-SPS1
021972,000523: 32,6424           00031                           OCT      00031                                 
021973,000524: 
021974,000525: 32,6425           03151                           TC       JAMTERM                               #  FLUSH V75 S4BSMSEP BACKUP.
021975,000526: 
021976,000527: 32,6426           52454        SPS1LOC            CADR     501SPS1                               
021977,000528: 
021978,000529: 32,6427           03504        SETABORT           TC       SETBRNSW                              #  SET BURN TO ABORT
021979,000530: 32,6430           00002                           OCT      00002                                 
021980,000531: 
021981,000532: 32,6431           02276                           TC       PHASCHNG                              
021982,000533: 32,6432           02004                           OCT      02004                                 
021983,000534: 
021984,000535: 32,6433           20017                           INHINT                                         
021985,000536: 32,6434           36510                           CAF      3.8SEC                                #  START ENGINE IN 4.3 SECS
021986,000537: 32,6435           02173                           TC       WAITLIST                              
021987,000538: 32,6436           64527                           CADR     ATTCNOFF                              
021988,000539: 32,6437           20016                           RELINT                                         
021989,000540: 
021990,000541: 32,6440           05654        REDO4.16           TC       BANKCALL                              #  SET IMU TO ATT. CONTROL MODE
021991,000542: 32,6441           30223                           CADR     IMUATTC                               

Page 565

021993,000544: 32,6442           03516                           TC       SETHETAD                              #  SET THETAD,+1,+2 TO AGREE WITH CDUX,Y,Z
021994,000545: 
021995,000546: 32,6443           36461                           CAF      ABORTLOC                              #  SET LOCATION FOR ABORT VR COMPUTATIONS
021996,000547: 32,6444           51470                           TS       VRCADR                                
021997,000548: 
021998,000549: 32,6445           35503                           CAF      TWO                                   #  SET VGCNTR FOR THREE PASSES THROUGH
021999,000550: 32,6446           51446                           TS       VGCNTR                                #  CALCVGB BEFORE ISSUING STEER COMMANDS
022000,000551: 
022001,000552: 32,6447           37655                           CAF      35DEG                                 #  SET THRUST ANGLE TO 35 DEG ABOVE HORIZON
022002,000553: 32,6450           51442                           TS       LOOKANG                               
022003,000554: 
022004,000555: 32,6451           03416                           TC       FLAG1UP                               #  SET STEER FLAG FOR ABORT STEERING
022005,000556: 32,6452           00010                           OCT      00010                                 
022006,000557: 
022007,000558: 32,6453           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO ABORT BURN
022008,000559: 32,6454           00073                           OCT      00073                                 
022009,000560: 
022010,000561: 32,6455           05654                           TC       BANKCALL                              #  WAIT FOR MODE SWITCH TO COMPLETE
022011,000562: 32,6456           30331                           CADR     IMUSTALL                              
022012,000563: 32,6457           03066                           TC       CURTAINS                              #  CATCH-ALL FOR FAILURE TO IMU MODE SWITCH
022013,000564: 
022014,000565: 32,6460           03151                           TC       JAMTERM                               #  FLUSH OUT V75
022015,000566: 
022016,000567: 32,6461           52530        ABORTLOC           CADR     501ABORT                              
022017,000568: 
022018,000569: 32,6462           03504        SETUMB2            TC       SETBRNSW                              #  SET BURN TO TUMBLE ARREST
022019,000570: 32,6463           00001        ARRSTMSK           OCT      00001                                 
022020,000571: 
022021,000572: 32,6464           33537                           CAF      FIFTN                                 
022022,000573: 32,6465           02312                           TC       NEWPHASE                              
022023,000574: 32,6466           00004                           OCT      4                                     
022024,000575: 
022025,000576: 32,6467           20017                           INHINT                                         
022026,000577: 32,6470           36700                           CAF      2.5SEC                                #  START ENGINE AT 3.0 SECS AFTER SEP.
022027,000578: 32,6471           02173                           TC       WAITLIST                              #  SEPARATION
022028,000579: 32,6472           64527                           CADR     ATTCNOFF                              
022029,000580: 32,6473           20016                           RELINT                                         
022030,000581: 
022031,000582: 32,6474           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO TUMBLE ARREST BURN
022032,000583: 32,6475           00074                           OCT      00074                                 
022033,000584: 
022034,000585: 32,6476           06360                           TC       TRYGRAB                               
022035,000586: 
022036,000587: 32,6477           03462        ABORTRPT           TC       STATEUP                               #  COME HERE ON RECEIPT OF UPLINK ABORT
022037,000588: 32,6500           20000                           OCT      20000                                 #    VERB, NOUN. SET THE ABORT SIGNAL
022038,000589: 
022039,000590: 32,6501           03373                           TC       RELAYON                               #  SET SCS BACKUP ABORT DISCRETE (C33)
022040,000591: 32,6502           42000                           OCT      42000                                 
022041,000592: 
022042,000593: 32,6503           02124                           TC       ENDOFJOB                              

Page 566

022044,000595: 32,6504           01476        8.3SEC             DEC      830        B-14                       
022045,000596: 32,6505           00252        1.7SEC             DEC      170        B-14                       
022046,000597: 32,6506           22244        93.8SEC            DEC      9380       B-14                       
022047,000598: 32,6507           02032        10.5SEC            DEC      1050       B-14                       
022048,000599: 32,6510           00574        3.8SEC             DEC      380        B-14                       
022049,000600: 

Page 567

022051,000602: 
022052,000603: 32,6511           03373        GIMPOWON           TC       RELAYON                               #  SET SCS GMP DISCRETE (C30)
022053,000604: 32,6512           40200                           OCT      40200                                 
022054,000605: 
022055,000606: 32,6513           33550                           CAF      TWENTY4                               
022056,000607: 32,6514           02312                           TC       NEWPHASE                              
022057,000608: 32,6515           00004                           OCT      00004                                 
022058,000609: 
022059,000610: 32,6516           40036                           CS       TIME1                                 
022060,000611: 32,6517           50666                           TS       TBASE4                                
022061,000612: 
022062,000613: 32,6520           33551                           CAF      TWENTY5                               
022063,000614: 32,6521           02312                           TC       NEWPHASE                              
022064,000615: 32,6522           00004                           OCT      00004                                 
022065,000616: 
022066,000617: 32,6523           37151                           CAF      11.5SEC                               
022067,000618: 32,6524           02173                           TC       WAITLIST                              
022068,000619: 32,6525           64527                           CADR     ATTCNOFF                              
022069,000620: 
022070,000621: 32,6526           02256                           TC       TASKOVER                              
022071,000622: 
022072,000623: 32,6527           33542        ATTCNOFF           CAF      EIGHTN                                
022073,000624: 32,6530           02312                           TC       NEWPHASE                              
022074,000625: 32,6531           00004                           OCT      00004                                 
022075,000626: 
022076,000627: 32,6532           40036                           CS       TIME1                                 
022077,000628: 32,6533           50666                           TS       TBASE4                                
022078,000629: 
022079,000630: 32,6534           03405                           TC       RELAYOFF                              #  REMOVE SCS ATT. CONTROL DISCRETE (C23)
022080,000631: 32,6535           40001                           OCT      40001                                 
022081,000632: 
022082,000633: 32,6536           33543                           CAF      NINETEEN                              
022083,000634: 32,6537           02312                           TC       NEWPHASE                              
022084,000635: 32,6540           00004                           OCT      00004                                 
022085,000636: 
022086,000637: 32,6541           36676                           CAF      0.25SEC                               
022087,000638: 32,6542           02173                           TC       WAITLIST                              
022088,000639: 32,6543           64545                           CADR     DVMODEON                              
022089,000640: 
022090,000641: 32,6544           02256                           TC       TASKOVER                              
022091,000642: 
022092,000643: 32,6545           03373        DVMODEON           TC       RELAYON                               #  SET SCS DV MODE DISCRETE (C24)
022093,000644: 32,6546           40002                           OCT      40002                                 
022094,000645: 
022095,000646: 32,6547           33544                           CAF      TWENTY0                               
022096,000647: 32,6550           02312                           TC       NEWPHASE                              
022097,000648: 32,6551           00004                           OCT      00004                                 
022098,000649: 
022099,000650: 32,6552           36676                           CAF      0.25SEC                               
022100,000651: 32,6553           02173                           TC       WAITLIST                              
022101,000652: 32,6554           64562                           CADR     ENGINEON                              

Page 568

022103,000654: 32,6555           02256                           TC       TASKOVER                              
022104,000655: 
022105,000656: 32,6556           44516        TASK4OUT           CS       ONE                                   
022106,000657: 32,6557           02312                           TC       NEWPHASE                              
022107,000658: 32,6560           00004                           OCT      00004                                 
022108,000659: 
022109,000660: 32,6561           02256                           TC       TASKOVER                              
022110,000661: 
022111,000662: 32,6562           44502        ENGINEON           CS       BIT13                                 #  SET BIT13, OUT1 TO 1  (ENGINE ON)
022112,000663: 32,6563           51447                           TS       DVCNTR                                #  MUST BE NEGATIVE INITIALLY
022113,000664: 32,6564           70011                           MASK     OUT1                                  
022114,000665: 32,6565           64502                           AD       BIT13                                 
022115,000666: 32,6566           50011                           TS       OUT1                                  
022116,000667: 
022117,000668: 32,6567           02677                           TC       READTIME   +1                         
022118,000669: 32,6570           40572                           CS       RUPTSTOR                              
022119,000670: 32,6571           51462                           TS       TENGON                                
022120,000671: 32,6572           40573                           CS       RUPTSTOR   +1                         
022121,000672: 32,6573           51463                           TS       TENGON     +1                         
022122,000673: 
022123,000674: 32,6574           03416                           TC       FLAG1UP                               #  SET DVMON, STEER FLAGS
022124,000675: 32,6575           00030                           OCT      00030                                 
022125,000676: 
022126,000677: 32,6576           33550                           CAF      TWENTY4                               #  SEE IF THIS EITHER A SPS1 OR SPS2 BURN
022127,000678: 32,6577           70647                           MASK     FLAGWRD2                              
022128,000679: 32,6600           10000                           CCS      A                                     
022129,000680: 32,6601           06603                           TC       +2                                    #  YES
022130,000681: 32,6602           06636                           TC       TUMTEST2                              #  NO
022131,000682: 
022132,000683: 32,6603           10651                           CCS      PHASE2                                #  TEST FOR PHASE2 VALUE.
022133,000684: 32,6604           64341                           AD       NEG3                                  #  WAS IT GREATER THAN 4 ORIGINALLY...
022134,000685: 32,6605           10000                           CCS      A                                     #  TEST NEW SUM.
022135,000686: 32,6606           06642                           TC       ROLLTASK   -3                         
022136,000687: 32,6607           06642                           TC       ROLLTASK   -3                         #  GOES UNLESS PHASE2 WERE +1,2,3, OR 4.
022137,000688: 32,6610           06611                           TC       +1                                    #  1,2 OR 3 FALL IN HERE
022138,000689: 
022139,000690: 32,6611           44516                           CS       ONE                                   #  +4 COMES HERE.
022140,000691: 32,6612           02312                           TC       NEWPHASE                              #  IN WHICH CASES, WE MAKE GROUP 2 INACTIVE
022141,000692: 32,6613           00002                           OCT      2                                     
022142,000693: 
022143,000694: 32,6614           32170                           CAF      PRIO35                                #  AND THEN FLUSH OUT EVERYTHING.
022144,000695: 32,6615           02052                           TC       NOVAC                                 
022145,000696: 32,6616           11147                           CADR     ENEMA                                 #  FORCE A PROGRAMMED RESTART
022146,000697: 
022147,000698: 32,6617           06642                           TC       ROLLTASK   -3                         
022148,000699: 
022149,000700: 
022150,000701: 
022151,000702: 32,6620           36707        3OR4TEST           CAF      SPS34MSK                              
022152,000703: 32,6621           70647                           MASK     FLAGWRD2                              

Page 569

022154,000705: 32,6622           10000                           CCS      A                                     
022155,000706: 32,6623           06625                           TC       +2                                    
022156,000707: 32,6624           06636                           TC       TUMTEST2                              #  IT IS NOT
022157,000708: 
022158,000709: 32,6625           33547                           CAF      TWENTY3                               
022159,000710: 32,6626           02312                           TC       NEWPHASE                              
022160,000711: 32,6627           00004                           OCT      00004                                 
022161,000712: 
022162,000713: 32,6630           36701                           CAF      3SEC                                  #  SHUT ENGINE DOWN IN 3 SECS
022163,000714: 32,6631           02173                           TC       WAITLIST                              
022164,000715: 32,6632           64710                           CADR     ENGINOFF                              
022165,000716: 
022166,000717: 32,6633           03430        STEEROFF           TC       FLAG1DWN                              
022167,000718: 32,6634           00010        STEERMSK           OCT      00010                                 
022168,000719: 
022169,000720: 32,6635           02256                           TC       TASKOVER                              
022170,000721: 
022171,000722: 32,6636           36463        TUMTEST2           CAF      ARRSTMSK                              #  TEST IF BURN IS TUMBLE ARREST
022172,000723: 32,6637           70647                           MASK     FLAGWRD2                              
022173,000724: 32,6640           10000                           CCS      A                                     
022174,000725: 32,6641           06660                           TC       STR4OUT                               
022175,000726: 
022176,000727: 32,6642           33546                           CAF      TWENTY2                               
022177,000728: 32,6643           02312                           TC       NEWPHASE                              
022178,000729: 32,6644           00004                           OCT      4                                     
022179,000730: 
022180,000731: 32,6645           40646        ROLLTASK           CS       FLAGWRD1                              #  TEST IF STEER FLAG SET
022181,000732: 32,6646           76634                           MASK     STEERMSK                              
022182,000733: 32,6647           10000                           CCS      A                                     
022183,000734: 32,6650           02256                           TC       TASKOVER                              #  IT IS NOT. KILL ROLLTASK
022184,000735: 
022185,000736: 32,6651           34502                           CAF      PRIO10                                #  SUBMIT JOB TO DO ROLL STEERING
022186,000737: 32,6652           02046                           TC       FINDVAC                               
022187,000738: 32,6653           66322                           CADR     ROLLJOB                               
022188,000739: 
022189,000740: 32,6654           36703        REDO4.22           CAF      5SEC32                                #  RECALL ROLLTASK IN 5 SECS
022190,000741: 32,6655           02173                           TC       WAITLIST                              
022191,000742: 32,6656           64645                           CADR     ROLLTASK                              
022192,000743: 
022193,000744: 32,6657           02256                           TC       TASKOVER                              
022194,000745: 
022195,000746: 32,6660           03430        STR4OUT            TC       FLAG1DWN                              
022196,000747: 32,6661           00010                           OCT      00010                                 
022197,000748: 
022198,000749: 32,6662           06556                           TC       TASK4OUT                              
022199,000750: 
022200,000751: 32,6663           03405        PLUSXOFF           TC       RELAYOFF                              #  REMOVE SCS +X TRANS DISCRETE (C27)
022201,000752: 32,6664           40020                           OCT      40020                                 
022202,000753: 
022203,000754: 32,6665           03416                           TC       FLAG1UP                               #  SET INITFLAG TO ENABLE MANEUVER TO SPS1

Page 570

022205,000756: 32,6666           00400                           OCT      00400                                 #    BURN ATTITUDE
022206,000757: 
022207,000758: 32,6667           36706                           CAF      89.5SEC                               #  START ENGINE IN 90 SECS
022208,000759: 32,6670           02173                           TC       WAITLIST                              
022209,000760: 32,6671           64527                           CADR     ATTCNOFF                              
022210,000761: 
022211,000762: 32,6672           33535                           CAF      THIRTEEN                              
022212,000763: 32,6673           02312                           TC       NEWPHASE                              
022213,000764: 32,6674           00004                           OCT      00004                                 
022214,000765: 
022215,000766: 32,6675           02256                           TC       TASKOVER                              
022216,000767: 
022217,000768: 32,6676           00031        0.25SEC            DEC      25         B-14                       
022218,000769: 32,6677           00144        1SEC32             DEC      100        B-14                       
022219,000770: 32,6700           00372        2.5SEC             DEC      250        B-14                       
022220,000771: 32,6701           00454        3SEC               DEC      300        B-14                       
022221,000772: 32,6702           00536        3.5SEC             DEC      350        B-14                       
022222,000773: 32,6703           00764        5SEC32             DEC      500        B-14                       
022223,000774: 32,6704           01130        6SEC               DEC      600        B-14                       
022224,000775: 32,6705           02734        15SEC              DEC      1500       B-14                       
022225,000776: 32,6706           21366        89.5SEC            DEC      8950       B-14                       
022226,000777: 32,6707     4503               SHDNMSK            EQUALS   BIT12                                 
022227,000778: 32,6707           00140        SPS34MSK           OCT      00140                                 
022228,000779: 

Page 571

022230,000781: 
022231,000782: 32,6710           44502        ENGINOFF           CS       BIT13                                 #  SET ENGINE OFF
022232,000783: 32,6711           70011                           MASK     OUT1                                  
022233,000784: 32,6712           50011                           TS       OUT1                                  
022234,000785: 
022235,000786: 32,6713           02677                           TC       READTIME   +1                         #  SAVE TIME OF CUTOFF
022236,000787: 32,6714           40572                           CS       RUPTSTOR                              
022237,000788: 32,6715           51462                           TS       TCUTOFF                               
022238,000789: 32,6716           40573                           CS       RUPTSTOR   +1                         
022239,000790: 32,6717           51463                           TS       TCUTOFF    +1                         
022240,000791: 
022241,000792: 32,6720           03430                           TC       FLAG1DWN                              #  DISABLE DV MONITOR
022242,000793: 32,6721           00020                           OCT      00020                                 
022243,000794: 
022244,000795: 32,6722           40044                           CS       PIPAX                                 #  SAVE DELTAV AT ENGINE OFF TIME.
022245,000796: 32,6723           51222                           TS       VAVEGON                               
022246,000797: 32,6724           40045                           CS       PIPAY                                 
022247,000798: 32,6725           51223                           TS       VAVEGON    +1                         #  USE VAVEGON AREA FOR THIS.
022248,000799: 32,6726           40046                           CS       PIPAZ                                 
022249,000800: 32,6727           51224                           TS       VAVEGON    +2                         
022250,000801: 
022251,000802: 32,6730           03405                           TC       RELAYOFF                              #  REMOVE SCS +X TRANS DISCRETE (C27)
022252,000803: 32,6731           40020                           OCT      40020                                 
022253,000804: 
022254,000805: 32,6732           40647                           CS       FLAGWRD2                              #  TEST IF THAT WAS A TUMBLE BURN
022255,000806: 32,6733           76463                           MASK     ARRSTMSK                              
022256,000807: 32,6734           10000                           CCS      A                                     
022257,000808: 32,6735           06774                           TC       SPS1TEST                              
022258,000809: 
022259,000810: 32,6736           34516                           CAF      ONE                                   
022260,000811: 32,6737           51446                           TS       VGCNTR                                
022261,000812: 
022262,000813: 32,6740           03416                           TC       FLAG1UP                               #  SET INTP,INIT FLAGS
022263,000814: 32,6741           01400                           OCT      01400                                 
022264,000815: 
022265,000816: 32,6742           34501                           CAF      BIT14                                 #  TEST IF ABORT SIGNAL RECEIVED
022266,000817: 32,6743           70645                           MASK     STATE                                 
022267,000818: 32,6744           10000                           CCS      A                                     
022268,000819: 32,6745           06764                           TC       VRCAD                                 #  IT WAS, JUMP TO DO TUMBLE ABORT BURN
022269,000820: 
022270,000821: 32,6746           36506                           CAF      93.8SEC                               #  START ENGINE IN 94.3 SECS
022271,000822: 32,6747           02173                           TC       WAITLIST                              
022272,000823: 32,6750           64527                           CADR     ATTCNOFF                              
022273,000824: 
022274,000825: 32,6751           36426                           CAF      SPS1LOC                               #  SET LOCATION FOR NOMINAL SPS1 VR COMP
022275,000826: 32,6752           51470                           TS       VRCADR                                
022276,000827: 
022277,000828: 32,6753           32160                           CAF      PRIO25                                #  ESTABLISH MORE PRE-SPS1 BURN LOGIC
022278,000829: 32,6754           02052                           TC       NOVAC                                 
022279,000830: 32,6755           64423                           CADR     REDO4.21                              

Page 572

022281,000832: 
022282,000833: 32,6756           33535                           CAF      THIRTEEN                              
022283,000834: 32,6757           02312                           TC       NEWPHASE                              
022284,000835: 32,6760           00004                           OCT      4                                     
022285,000836: 
022286,000837: 32,6761           03504        REDO4.13           TC       SETBRNSW                              #  SET BURN TO SPS1
022287,000838: 32,6762           00010                           OCT      00010                                 
022288,000839: 
022289,000840: 32,6763           06331                           TC       TASK3OUT                              
022290,000841: 
022291,000842: 32,6764           36461        VRCAD              CAF      ABORTLOC                              #  SET LOCATION TO ABORT VR COMPUTATION
022292,000843: 32,6765           51470                           TS       VRCADR                                
022293,000844: 
022294,000845: 32,6766           34473                           CAF      THREE                                 
022295,000846: 32,6767           02312                           TC       NEWPHASE                              
022296,000847: 32,6770           00003                           OCT      00003                                 
022297,000848: 
022298,000849: 32,6771           03504        REDO3.3            TC       SETBRNSW                              #  SET BURN TO ABORT AFTER TUMBLE
022299,000850: 32,6772           00004        TABTMASK           OCT      00004                                 
022300,000851: 
022301,000852: 32,6773           02256                           TC       TASKOVER                              
022302,000853: 
022303,000854: 32,6774           33554        SPS1TEST           CAF      TWENTY8                               
022304,000855: 32,6775           02312                           TC       NEWPHASE                              
022305,000856: 32,6776           00004                           OCT      4                                     
022306,000857: 
022307,000858: 32,6777           41463                           CS       TCUTOFF    +1                         
022308,000859: 32,7000           50665                           TS       TBASE3                                
022309,000860: 32,7001           50666                           TS       TBASE4                                
022310,000861: 
022311,000862: 32,7002           40647                           CS       FLAGWRD2                              #  TEST IF THAT WAS A SPS1 BURN
022312,000863: 32,7003           76416                           MASK     SPS1MASK                              
022313,000864: 32,7004           10000                           CCS      A                                     
022314,000865: 32,7005           07070                           TC       SETMOD23                              
022315,000866: 
022316,000867: 32,7006           36507                           CAF      10.5SEC                               #  CALL COAST PHASE IN 10.5 SECS
022317,000868: 32,7007           02173                           TC       WAITLIST                              
022318,000869: 32,7010           50114                           CADR     COASTPHS                              
022319,000870: 
022320,000871: 32,7011           37150                           CAF      7SEC                                  #  DUPLICATE GMPOFF SEQUENCE BEFORE SETTING
022321,000872: 32,7012           02173                           TC       WAITLIST                              #  BURN SWITCH.  (FOR RESTART LOGIC.)
022322,000873: 32,7013           65110                           CADR     GIMPOWOF                              
022323,000874: 
022324,000875: 32,7014           35502                           CAF      FOUR                                  #  3.4 RESTART KEEPS POWER OFF SEQ. GOING.
022325,000876: 32,7015           02312                           TC       NEWPHASE                              
022326,000877: 32,7016           00003                           OCT      3                                     
022327,000878: 
022328,000879: 32,7017           34473                           CAF      THREE                                 
022329,000880: 32,7020           02312                           TC       NEWPHASE                              
022330,000881: 32,7021           00004                           OCT      00004                                 
022331,000882: 

Page 573

022333,000884: 
022334,000885: 32,7022           03504        REDO4.3            TC       SETBRNSW                              #  SET BURN TO SPS2
022335,000886: 32,7023           00020        SPS2MASK           OCT      00020                                 
022336,000887: 
022337,000888: 32,7024           02256                           TC       TASKOVER                              
022338,000889: 
022339,000890: 32,7025           40647        SPS2TEST           CS       FLAGWRD2                              #  TEST IF THAT WAS A SPS2 BURN
022340,000891: 32,7026           77023                           MASK     SPS2MASK                              
022341,000892: 32,7027           10000                           CCS      A                                     
022342,000893: 32,7030           07050                           TC       SPS3TEST                              
022343,000894: 
022344,000895: 32,7031           37146                           CAF      0.75SEC                               
022345,000896: 32,7032           02173                           TC       WAITLIST                              
022346,000897: 32,7033           31550                           CADR     CGTASK                                
022347,000898: 
022348,000899: 32,7034           36704                           CAF      6SEC                                  #  CALL FOR GMP ON IN 6 SECS
022349,000900: 32,7035           02173                           TC       WAITLIST                              
022350,000901: 32,7036           64511                           CADR     GIMPOWON                              
022351,000902: 
022352,000903: 32,7037           35362                           CAF      SEVEN                                 
022353,000904: 32,7040           02312                           TC       NEWPHASE                              
022354,000905: 32,7041           00003                           OCT      00003                                 
022355,000906: 
022356,000907: 32,7042           33232                           CAF      TEN                                   
022357,000908: 32,7043           02312                           TC       NEWPHASE                              
022358,000909: 32,7044           00004                           OCT      00004                                 
022359,000910: 
022360,000911: 32,7045           03504        REDO4.10           TC       SETBRNSW                              #  SET BURN TO SPS3
022361,000912: 32,7046           00040        SPS3MASK           OCT      00040                                 
022362,000913: 
022363,000914: 32,7047           02256                           TC       TASKOVER                              
022364,000915: 
022365,000916: 32,7050           40647        SPS3TEST           CS       FLAGWRD2                              #  TEST IF THAT WAS A SPS3 BURN
022366,000917: 32,7051           77046                           MASK     SPS3MASK                              
022367,000918: 32,7052           10000                           CCS      A                                     
022368,000919: 32,7053           07070                           TC       SETMOD23                              #  IT WAS NOT. (EITHER A, TABT, OR SPS4)
022369,000920: 
022370,000921: 32,7054           33536                           CAF      FOURTN                                
022371,000922: 32,7055           02312                           TC       NEWPHASE                              
022372,000923: 32,7056           00004                           OCT      00004                                 
022373,000924: 
022374,000925: 32,7057           36704        GMPON              CAF      6SEC                                  #  CALL FOR ENGINE ON IN 10 SECS
022375,000926: 32,7060           02173                           TC       WAITLIST                              
022376,000927: 32,7061           64511                           CADR     GIMPOWON                              
022377,000928: 
022378,000929: 32,7062           32144        REDO4.14           CAF      PRIO7                                 
022379,000930: 32,7063           02052                           TC       NOVAC                                 
022380,000931: 32,7064           65143                           CADR     MODE44                                
022381,000932: 
022382,000933: 32,7065           03504                           TC       SETBRNSW                              #  SET BURN TO SPS4
022383,000934: 32,7066           00100        SPS4MASK           OCT      00100                                 

Page 574

022385,000936: 32,7067           02256                           TC       TASKOVER                              
022386,000937: 
022387,000938: 32,7070           32144        SETMOD23           CAF      PRIO7                                 #  MAKE JOB TO CHANGE MODE
022388,000939: 32,7071           02052                           TC       NOVAC                                 
022389,000940: 32,7072           65140                           CADR     MODE23                                
022390,000941: 
022391,000942: 32,7073           33532                           CAF      NINE                                  
022392,000943: 32,7074           02312                           TC       NEWPHASE                              
022393,000944: 32,7075           00003                           OCT      00003                                 
022394,000945: 
022395,000946: 32,7076           44516                           CS       ONE                                   
022396,000947: 32,7077           02312                           TC       NEWPHASE                              
022397,000948: 32,7100           00004                           OCT      00004                                 
022398,000949: 
022399,000950: 32,7101           37150        GMPOFF             CAF      7SEC                                  
022400,000951: 32,7102           02173                           TC       WAITLIST                              
022401,000952: 32,7103           65110                           CADR     GIMPOWOF                              
022402,000953: 
022403,000954: 32,7104           35502                           CAF      FOUR                                  
022404,000955: 32,7105           02312                           TC       NEWPHASE                              
022405,000956: 32,7106           00003                           OCT      00003                                 
022406,000957: 
022407,000958: 32,7107           02256                           TC       TASKOVER                              
022408,000959: 
022409,000960: 32,7110           36702        GIMPOWOF           CAF      3.5SEC                                #  CALL FOR DV MODE OFF IN 3.5 SECS
022410,000961: 32,7111           02173                           TC       WAITLIST                              
022411,000962: 32,7112           65124                           CADR     DVMODOFF                              
022412,000963: 
022413,000964: 32,7113           03405                           TC       RELAYOFF                              
022414,000965: 32,7114           40200                           OCT      40200                                 
022415,000966: 
022416,000967: 32,7115           34477                           CAF      FIVE                                  
022417,000968: 32,7116           02312                           TC       NEWPHASE                              
022418,000969: 32,7117           00003                           OCT      00003                                 
022419,000970: 
022420,000971: 32,7120           02256                           TC       TASKOVER                              
022421,000972: 
022422,000973: 32,7121           03405        GMPOFF3            TC       RELAYOFF                              #  REMOVE SCS GMP DISCRETE (C30)
022423,000974: 32,7122           40200                           OCT      40200                                 
022424,000975: 
022425,000976: 32,7123           06331                           TC       TASK3OUT                              
022426,000977: 
022427,000978: 32,7124           03405        DVMODOFF           TC       RELAYOFF                              #  REMOVE SCS DV MODE DISCRETE (C24)
022428,000979: 32,7125           40002                           OCT      40002                                 
022429,000980: 
022430,000981: 32,7126           34475                           CAF      SIX                                   
022431,000982: 32,7127           02312                           TC       NEWPHASE                              
022432,000983: 32,7130           00003                           OCT      00003                                 
022433,000984: 
022434,000985: 32,7131           36676                           CAF      0.25SEC                               

Page 575

022436,000987: 32,7132           02173                           TC       WAITLIST                              
022437,000988: 32,7133           65135                           CADR     ATTCONON                              
022438,000989: 
022439,000990: 32,7134           02256                           TC       TASKOVER                              
022440,000991: 
022441,000992: 32,7135           03373        ATTCONON           TC       RELAYON                               #  SET SCS ATT. CONT. DISCRETE (C23)
022442,000993: 32,7136           40001                           OCT      40001                                 
022443,000994: 
022444,000995: 32,7137           06331                           TC       TASK3OUT                              
022445,000996: 
022446,000997: 32,7140           02362        MODE23             TC       NEWMODE                               #  SET MAJOR MODE TO ATTITUDE HOLD
022447,000998: 32,7141           00023                           OCT      00023                                 
022448,000999: 32,7142           02124                           TC       ENDOFJOB                              
022449,001000: 
022450,001001: 32,7143           02362        MODE44             TC       NEWMODE                               #  SET MAJOR MODE TO SPS4
022451,001002: 32,7144           00044                           OCT      00044                                 
022452,001003: 32,7145           02124                           TC       ENDOFJOB                              
022453,001004: 
022454,001005: 
022455,001006: 
022456,001007: 32,7146           00113        0.75SEC            DEC      75         B-14                       
022457,001008: 32,7147           00144        1SEC               DEC      100        B-14                       
022458,001009: 32,7150           01274        7SEC               DEC      700        B-14                       
022459,001010: 32,7151           02176        11.5SEC            DEC      1150       B-14                       
022460,001011: 

Page 576

022462,001013: 
022463,001014: 24,6114                                           BANK     24                                    
022464,001015: 
022465,001016: 24,6114           03416        COASTPHS           TC       FLAG1UP                               #  GET SET TO START COAST PHASE ACTIVITY
022466,001017: 24,6115           40000        COASTMSK           OCT      40000                                 #  SET COAST FLAG
022467,001018: 
022468,001019: 24,6116           36142                           CAF      289.5SEC   +1                         #  SET UP LONGCALL TO FDAONTSK IN 289.5 SEC
022469,001020: 24,6117           51461                           TS       LONGTIME   +1                         
022470,001021: 24,6120           36141                           CAF      289.5SEC                              
022471,001022: 24,6121           51460                           TS       LONGTIME                              
022472,001023: 
022473,001024: 24,6122           36140                           CAF      FDAILOC                               
022474,001025: 24,6123           51467                           TS       CALLCADR                              
022475,001026: 
022476,001027: 24,6124           05742                           TC       IBNKCALL                              #  MAKE WAITLIST CALL MORE THAN 120 SECS
022477,001028: 24,6125           10552                           CADR     LONGCALL                              
022478,001029: 
022479,001030: 24,6126           32146                           CAF      PRIO12                                #  ESTABLISH INITIAL VERTICAL JOB
022480,001031: 24,6127           02046                           TC       FINDVAC                               
022481,001032: 24,6130           66621                           CADR     SOAKINIT                              
022482,001033: 
022483,001034: 24,6131           35503                           CAF      TWO                                   
022484,001035: 24,6132           02312                           TC       NEWPHASE                              
022485,001036: 24,6133           00002                           OCT      00002                                 
022486,001037: 
022487,001038: 24,6134           35502                           CAF      FOUR                                  
022488,001039: 24,6135           02312                           TC       NEWPHASE                              
022489,001040: 24,6136           00004                           OCT      00004                                 
022490,001041: 
022491,001042: 24,6137           02256                           TC       TASKOVER                              
022492,001043: 
022493,001044: 24,6140           50143        FDAILOC            CADR     FDAONTSK                              
022494,001045: 24,6141           00001 30426  289.5SEC           2DEC     28950      B-28                       
022495,001046: 
022496,001047: 
022497,001048: 24,6143           03373        FDAONTSK           TC       RELAYON                               #  SET SCS FDAI ALIGN DISCRETE (C31)
022498,001049: 24,6144           40400                           OCT      40400                                 
022499,001050: 
022500,001051: 24,6145           36175                           CAF      10SEC                                 
022501,001052: 24,6146           02173                           TC       WAITLIST                              
022502,001053: 24,6147           50154                           CADR     FDAOFTSK                              #  CALL FDAI OFF IN 10 SECS
022503,001054: 
022504,001055: 24,6150           34477                           CAF      FIVE                                  
022505,001056: 24,6151           02312                           TC       NEWPHASE                              
022506,001057: 24,6152           00004                           OCT      00004                                 
022507,001058: 
022508,001059: 24,6153           02256                           TC       TASKOVER                              
022509,001060: 
022510,001061: 24,6154           36177        FDAOFTSK           CAF      -310SEC    +1                         
022511,001062: 24,6155           61557                           AD       TCOAST     +1                         

Page 577

022513,001064: 24,6156           51461                           TS       LONGTIME   +1                         
022514,001065: 
022515,001066: 24,6157           35501                           CAF      ZERO                                  
022516,001067: 24,6160           66176                           AD       -310SEC                               
022517,001068: 24,6161           61556                           AD       TCOAST                                
022518,001069: 24,6162           51460                           TS       LONGTIME                              
022519,001070: 
022520,001071: 24,6163           36200                           CAF      UPTSKLOC                              
022521,001072: 24,6164           51467                           TS       CALLCADR                              
022522,001073: 
022523,001074: 24,6165           05742                           TC       IBNKCALL                              
022524,001075: 24,6166           10552                           CADR     LONGCALL                              
022525,001076: 
022526,001077: 24,6167           34475                           CAF      SIX                                   
022527,001078: 24,6170           02312                           TC       NEWPHASE                              
022528,001079: 24,6171           00004                           OCT      4                                     
022529,001080: 
022530,001081: 24,6172           03405        FDOFTSK1           TC       RELAYOFF                              #  REMOVE SCS FDAI ALIGN DISCRETE (C31).
022531,001082: 24,6173           40400                           OCT      40400                                 
022532,001083: 
022533,001084: 24,6174           02256                           TC       TASKOVER                              
022534,001085: 
022535,001086: 24,6175           01750        10SEC              DEC      1000       B-14                       
022536,001087: 24,6176           77776 43347  -310SEC            2DEC     -31000     B-28                       
022537,001088: 
022538,001089: 24,6200           50201        UPTSKLOC           CADR     UPTASK                                
022539,001090: 
022540,001091: 
022541,001092: 
022542,001093: 14,7550                                           BANK     14                                    
022543,001094: 
022544,001095: 14,7550           32154        CGTASK             CAF      PRIO21                                #  ESTABLISH CGJOB TO REMOVE ANGULAR CG
022545,001096: 14,7551           02046                           TC       FINDVAC                               #  MOTION DEVELOPED DURING SPS2 BURN
022546,001097: 14,7552           31562                           CADR     CGJOB                                 
022547,001098: 
022548,001099: 14,7553           37572                           CAF      1.25S14                               
022549,001100: 14,7554           02173                           TC       WAITLIST                              
022550,001101: 14,7555           65121                           CADR     GMPOFF3                               
022551,001102: 
022552,001103: 14,7556           34513                           CAF      EIGHT                                 
022553,001104: 14,7557           02312                           TC       NEWPHASE                              
022554,001105: 14,7560           00003                           OCT      3                                     
022555,001106: 
022556,001107: 14,7561           02256                           TC       TASKOVER                              
022557,001108: 
022558,001109: 14,7562           02362        CGJOB              TC       NEWMODE                               #  SET MAJOR MODE TO SPS3 BURN
022559,001110: 14,7563           00043                           OCT      00043                                 
022560,001111: 
022561,001112: 14,7564           04000                           TC       INTPRET                               
022562,001113: 

Page 578

022564,001115: 14,7565           75175                           VMOVE    1                                     #  GET NOMINAL SPS2 CG CHANGE ABOUT IMU
022565,001116: 14,7566           76575                           RTB      EXIT                                  #  GIMBAL AXES INTO VAC, SCALED AT KE/2 REV
022566,001117: 14,7567           13534                                    DELCDU                                #  (KE =1.5), AND DECREMENT THETAD, +1, +2
022567,001118: 14,7570           20416                                    INCRCDUS                              
022568,001119: 
022569,001120: 14,7571           02124                           TC       ENDOFJOB                              
022570,001121: 
022571,001122: 14,7572           00175        1.25S14            DEC      125        B-14                       
022572,001123: 
022573,001124: 32,7152                                           BANK     32                                    
022574,001125: 

Page 579

022576,001127: 
022577,001128: 32,7152           37254        READACCS           CAF      PIPCADR                               #  BRANCH TO PIPA READ ROUTINE
022578,001129: 32,7153           05750                           TC       ISWCALL                               
022579,001130: 
022580,001131: 32,7154           35503                           CAF      TWO                                   
022581,001132: 32,7155           02312                           TC       NEWPHASE                              
022582,001133: 32,7156           00005                           OCT      00005                                 
022583,001134: 
022584,001135: 32,7157           41465        REDO5.2            CS       PIPTIME    +1                         
022585,001136: 32,7160           50667                           TS       TBASE5                                
022586,001137: 
022587,001138: 32,7161           35503                           CAF      TWO                                   
022588,001139: 32,7162           51035                           TS       PIPAGE                                
022589,001140: 
022590,001141: 32,7163           34514                           CAF      ENTRYMSK                              #  TEST IF ENTRY FLAG SET
022591,001142: 32,7164           70646                           MASK     FLAGWRD1                              
022592,001143: 32,7165           10000                           CCS      A                                     
022593,001144: 32,7166           07212                           TC       SETUPENT                              
022594,001145: 
022595,001146: 32,7167           40646                           CS       FLAGWRD1                              #  TEST IF COAST FLAG SET
022596,001147: 32,7170           77256                           MASK     CSTMASK                               
022597,001148: 32,7171           10000                           CCS      A                                     
022598,001149: 32,7172           03062                           TC       CCSHOLE                               
022599,001150: 32,7173           07216                           TC       SETUPSOK                              #  IT IS. DO NOT RESET READACCS
022600,001151: 
022601,001152: 32,7174           37257                           CAF      ABORT32                               #  TEST IF ABORT BURN IS SET. IF SO, NEED
022602,001153: 32,7175           70647                           MASK     FLAGWRD2                              #  2.5SECS COMPUTING INTERVAL
022603,001154: 32,7176           10000                           CCS      A                                     
022604,001155: 
022605,001156: 32,7177           07222                           TC       CHANGEDT                              #  IT IS
022606,001157: 
022607,001158: 32,7200           37567                           CAF      2SEC                                  #  IT IS NOT. CALL READACCS IN 2 SECS
022608,001159: 32,7201           02173                           TC       WAITLIST                              
022609,001160: 32,7202           65152                           CADR     READACCS                              
022610,001161: 
022611,001162: 32,7203           32152        MAKESERV           CAF      PRIO16                                #  ESTABLISH SERVICER ROUTINE
022612,001163: 32,7204           02046                           TC       FINDVAC                               
022613,001164: 32,7205           65262                           CADR     SERVICER                              
022614,001165: 
022615,001166: 32,7206           34473                           CAF      THREE                                 
022616,001167: 32,7207           02312                           TC       NEWPHASE                              
022617,001168: 32,7210           00005                           OCT      5                                     
022618,001169: 
022619,001170: 32,7211           02256                           TC       TASKOVER                              
022620,001171: 
022621,001172: 32,7212           37567        SETUPENT           CAF      2SEC                                  #  CALL ENTRY ROUTINES IN 2 SECS
022622,001173: 32,7213           02173                           TC       WAITLIST                              
022623,001174: 32,7214           56004                           CADR     PIPUP                                 
022624,001175: 
022625,001176: 32,7215           07203                           TC       MAKESERV                              

Page 580

022627,001178: 
022628,001179: 32,7216           37567        SETUPSOK           CAF      2SEC                                  #  CALL SOAKTASK IN 2 SECS
022629,001180: 32,7217           02173                           TC       WAITLIST                              
022630,001181: 32,7220           66657                           CADR     SOAKTASK                              
022631,001182: 
022632,001183: 32,7221           07203                           TC       MAKESERV                              
022633,001184: 
022634,001185: 32,7222           34516        CHANGEDT           CAF      BIT1                                  #  FORCE SERVICER TO SET DELTAT TO 2.5 SECS
022635,001186: 32,7223           51030                           TS       DELTAT     +1                         
022636,001187: 
022637,001188: 32,7224           37260                           CAF      2.5SEC32                              #  CALL READACCS IN 2.5 SECS
022638,001189: 32,7225           07201                           TC       MAKESERV   -2                         
022639,001190: 
022640,001191: 32,7226           37257        REREADAC           CAF      ABORT32                               #  READACCS RESTART LOCATION
022641,001192: 32,7227           70647                           MASK     FLAGWRD2                              
022642,001193: 32,7230           10000                           CCS      A                                     
022643,001194: 32,7231           07234                           TC       SET2.5S                               
022644,001195: 
022645,001196: 32,7232           37255        CAFREPIP           CAF      REPIPCAD                              
022646,001197: 32,7233           07153                           TC       READACCS   +1                         
022647,001198: 
022648,001199: 32,7234           47260        SET2.5S            CS       2.5SEC32                              
022649,001200: 32,7235           60667                           AD       TBASE5                                
022650,001201: 32,7236           60036                           AD       TIME1                                 
022651,001202: 32,7237           30572                           XCH      RUPTSTOR                              
022652,001203: 
022653,001204: 32,7240           10572                           CCS      RUPTSTOR                              
022654,001205: 32,7241           07232                           TC       CAFREPIP                              
022655,001206: 32,7242           07232                           TC       CAFREPIP                              
022656,001207: 32,7243           37260                           CAF      2.5SEC32                              
022657,001208: 32,7244           60572                           AD       RUPTSTOR                              
022658,001209: 
022659,001210: 32,7245           64476                           AD       POSMAX                                
022660,001211: 32,7246           50000                           TS       A                                     
022661,001212: 32,7247           07232                           TC       CAFREPIP                              
022662,001213: 
022663,001214: 32,7250           40572                           CS       RUPTSTOR                              
022664,001215: 32,7251           02173                           TC       WAITLIST                              
022665,001216: 32,7252           65232                           CADR     CAFREPIP                              
022666,001217: 
022667,001218: 32,7253           02256                           TC       TASKOVER                              
022668,001219: 
022669,001220: 32,7254           61313        PIPCADR            CADR     PIPASR                                
022670,001221: 32,7255           61364        REPIPCAD           CADR     REPIPASR                              
022671,001222: 32,7256     4504               CHDTMASK           EQUALS   BIT11                                 
022672,001223: 32,7256     4514               ENTRYMSK           EQUALS   BIT3                                  
022673,001224: 32,7256     4504               READMASK           EQUALS   BIT11                                 
022674,001225: 32,7256           40000        CSTMASK            OCT      40000                                 
022675,001226: 32,7257           00006        ABORT32            OCT      6                                     
022676,001227: 32,7260           00372        2.5SEC32           DEC      250        B-14                       
022677,001228: 32,7261           00620        4SEC               DEC      400        B-14                       

Page 581

022679,001230: 
022680,001231: 32,7262           05654        SERVICER           TC       BANKCALL                              #  COMPENSATE THE PIPA DATA IN THE DELV
022681,001232: 32,7263           31017                           CADR     1/PIPA                                #  REGISTERS.
022682,001233: 
022683,001234: 32,7264           40645                           CS       STATE                                 #  TEST IF PIPAS BIAS IS TO BE DISREGARDED
022684,001235: 32,7265           74503                           MASK     BIT12                                 
022685,001236: 32,7266           10000                           CCS      A                                     
022686,001237: 32,7267           07276                           TC       REDO5.3                               #  NO
022687,001238: 
022688,001239: 32,7270           51001                           TS       DELV                                  #  YES, CLEAR OUT DELV AS LONG AS BIAS FLAG
022689,001240: 32,7271           51002                           TS       DELV       +1                         #       IS SET.
022690,001241: 32,7272           51003                           TS       DELV       +2                         
022691,001242: 32,7273           51004                           TS       DELV       +3                         
022692,001243: 32,7274           51005                           TS       DELV       +4                         
022693,001244: 32,7275           51006                           TS       DELV       +5                         
022694,001245: 
022695,001246: 32,7276           04000        REDO5.3            TC       INTPRET                               
022696,001247: 
022697,001248: 32,7277           76776                           ITC      0                                     #  SEE IF TIME FOR STATE VECTOR UPDATE.
022698,001249: 32,7300           15712                                    501UPCHK                              #  (501 & 2 ONLY).
022699,001250: 
022700,001251: 32,7301           76776        REGSTEP            ITC      0                                     
022701,001252: 32,7302           21551                                    CALCRVG                               
022702,001253: 
022703,001254: 32,7303           33533        AVGRET             CAF      ELEVEN                                #  ROUTINE CYCLES 12 TIMES TO SAVE OLD VR,
022704,001255: 32,7304           50115        AGAIN              TS       MPAC                                  #    VN FOR RESTARTS
022705,001256: 32,7305           20115                           INDEX    MPAC                                  
022706,001257: 32,7306           41416                           CS       VR                                    
022707,001258: 32,7307           20115                           INDEX    MPAC                                  
022708,001259: 32,7310           51263                           TS       VR1                                   #  (TEMPORARIES IN AMEMORY)
022709,001260: 32,7311           10115                           CCS      MPAC                                  
022710,001261: 32,7312           07304                           TC       AGAIN                                 
022711,001262: 
022712,001263: 32,7313           41446                           CS       VGCNTR                                #  SAVE FOR RESTARTS
022713,001264: 32,7314           51261                           TS       VGCNT1                                
022714,001265: 32,7315           41447                           CS       DVCNTR                                
022715,001266: 32,7316           51262                           TS       DVCNT1                                
022716,001267: 
022717,001268: 32,7317           02276                           TC       PHASCHNG                              
022718,001269: 32,7320           02705                           OCT      02705                                 
022719,001270: 
022720,001271: 32,7321           04000        RE5.23             TC       INTPRET                               
022721,001272: 
022722,001273: 32,7322           43576                           TEST     0                                     #  TEST IF ENTRY FLAG SET
022723,001274: 32,7323           00036                                    ENTRYFLG                              
022724,001275: 32,7324           25354                                    GETFF                                 #  IT IS NOT
022725,001276: 32,7325           45176                           DMOVE    0                                     
022726,001277: 32,7326           21144                                    LAD                                   
022727,001278: 32,7327           33576                           STORE    INITL/D                               
022728,001279: 
022729,001280: 32,7330           75575                           AXT,1    1                                     

Page 582

022731,001282: 32,7331           43565                           TEST     AXT,1                                 
022732,001283: 32,7332           00001                                    0                                     
022733,001284: 32,7333           00003                                    ABORTSIG                              
022734,001285: 32,7334           25337                                    PACIFIC                               
022735,001286: 32,7335           00011                                    8D                                    
022736,001287: 32,7336           46176        PACIFIC            COMP*    0                                     
022737,001288: 32,7337           03275                                    TPACIFC,1                             
022738,001289: 32,7340           33145                           STORE    DTEAROT                               
022739,001290: 
022740,001291: 32,7341           74176                           VMOVE*   0                                     
022741,001292: 32,7342           03301                                    RTPACIFC,1                            
022742,001293: 32,7343           33115                           STORE    RTINIT                                
022743,001294: 
022744,001295: 32,7344           76776                           ITC      0                                     
022745,001296: 32,7345           13450                                    EARROT1                               
022746,001297: 
022747,001298: 32,7346           77576                           EXIT     0                                     
022748,001299: 
022749,001300: 32,7347           35501                           CAF      ZERO                                  #  RESET DELTAT +1 TO ZERO
022750,001301: 32,7350           51030                           TS       DELTAT     +1                         
022751,001302: 
022752,001303: 32,7351           05720                           TC       POSTJUMP                              #  GO TO ENTRY INITIALIZATION ROUTINE.
022753,001304: 32,7352           61430                           CADR     STARTENT                              
022754,001305: 
022755,001306: 32,7353           76776        GETFF              ITC      0                                     #  COMPUTE TIME TO FREE-FALL TO RTERM
022756,001307: 32,7354           22001                                    CALCTFF                               
022757,001308: 
022758,001309: 32,7355           43575        COASTEST           TEST     1                                     #  TEST IF COAST FLAG SET
022759,001310: 32,7356           75026                           VMOVE    VSRT                                  
022760,001311: 32,7357           00022                                    COASTFLG                              
022761,001312: 32,7360           25454                                    TFFTEST                               
022762,001313: 32,7361           00766                                    RN                                    #  IT IS. TRANSFER RN,VN TO ORBITAL
022763,001314: 32,7362           00002                                    RSCALE     -15D                       
022764,001315: 32,7363           33101                           STORE    RRECT                                 #  INTEGRATION ROUTINE
022765,001316: 
022766,001317: 32,7364           75176                           VMOVE    0                                     
022767,001318: 32,7365           00774                                    VN                                    
022768,001319: 32,7366           33107                           STORE    VRECT                                 
022769,001320: 
022770,001321: 32,7367           77576                           EXIT     0                                     
022771,001322: 
022772,001323: 32,7370           41456                           CS       TFF                                   #  SEE IF TFF IS POSMAX (I.E.- WILL NOT
022773,001324: 32,7371           64476                           AD       POSMAX                                #    INTERSECT 400,000 FT)
022774,001325: 32,7372           10000                           CCS      A                                     
022775,001326: 
022776,001327: 32,7373           03462                           TC       STATEUP                               #  ALL O.K., SO SET TFF2 FLAG TO ENABLE
022777,001328: 32,7374           10000                           OCT      10000                                 #    (TFF - TFFMIN) CALCULATIONS FOR SPS2
022778,001329: 32,7375           07406                           TC       NOMCASE                               #    IGNITION SEQUENCE
022779,001330: 
022780,001331: 32,7376           41720                           CS       TFFNOM                                #  WILL NOT INTERSECT 400,000 FT, SO SET

Page 583

022782,001333: 32,7377           40000                           COM                                            #    TFF TO NOMINAL VALUE TO COMPUTE
022783,001334: 32,7400           51456                           TS       TFF                                   #    TAVEGON AND TCOAST FOR A SPS2 BURN
022784,001335: 
022785,001336: 32,7401           41721                           CS       TFFNOM     +1                         
022786,001337: 32,7402           40000                           COM                                            
022787,001338: 32,7403           51457                           TS       TFF        +1                         
022788,001339: 
022789,001340: 32,7404           03474                           TC       STATEDWN                              #  RESET TFF2 FLAG SO THAT SPS2 IGNITION IS
022790,001341: 32,7405           10000                           OCT      10000                                 #    SCHEDULED A FIXED TIME AFTER AVE G. ON
022791,001342: 
022792,001343: 32,7406           04000        NOMCASE            TC       INTPRET                               
022793,001344: 
022794,001345: 32,7407           66776                           DSU      0                                     #  TIME TO TURN AVE G ON =TFF-23MIN.
022795,001346: 32,7410           01457                                    TFF                                   
022796,001347: 32,7411           25571                                    23MIN                                 
022797,001348: 32,7412           33211                           STORE    TAVEGON                               
022798,001349: 
022799,001350: 32,7413           47574                           NOLOD    2                                     #  TIME OF COAST = PIPTIME + (TFF-25MIN)
022800,001351: 32,7414           66756                           DSU      BMN                                   #  - TCUTOFF
022801,001352: 32,7415           66742                           DSU      DAD                                   
022802,001353: 32,7416           25573                                    2MIN                                  
022803,001354: 32,7417           25433                                    SPS2NOW                               #  TAVEGON TOO SMALL-SCHEDULE SPS2 NOW
022804,001355: 32,7420           01463                                    TCUTOFF                               
022805,001356: 32,7421           01465                                    PIPTIME                               
022806,001357: 32,7422           33557                           STORE    TCOAST                                
022807,001358: 
022808,001359: 32,7423           77576                           EXIT     0                                     
022809,001360: 
022810,001361: 32,7424           41465                           CS       PIPTIME    +1                         #  START UP FREE-FALL GYRO DRIFT COMP.
022811,001362: 32,7425           40000                           COM                                            
022812,001363: 32,7426           50755                           TS       OLDBT1                                
022813,001364: 
022814,001365: 32,7427           03440                           TC       FLAG2UP                               #  BEGINS WITH NEXT IDLETASK. SET DRIFTFLG
022815,001366: 32,7430           40000                           OCT      40000                                 
022816,001367: 
022817,001368: 32,7431           02124                           TC       ENDOFJOB                              #  SERVICER DIES HERE AT START OF COASTPHS.
022818,001369: 
022819,001370: 32,7432           77576        SPS2NOW            EXIT     0                                     
022820,001371: 
022821,001372: 32,7433           03416                           TC       FLAG1UP                               #  SET INIT FLAG TO ENABLE MANEUVER TO
022822,001373: 32,7434           00400                           OCT      00400                                 #    SPS2 BURN ATTITUDE
022823,001374: 
022824,001375: 32,7435           34516                           CAF      ONE                                   
022825,001376: 32,7436           51446                           TS       VGCNTR                                
022826,001377: 
022827,001378: 32,7437           03430                           TC       FLAG1DWN                              #  REMOVE COAST FLAG TO CANCEL COLD SOAK
022828,001379: 32,7440           40000                           OCT      40000                                 
022829,001380: 
022830,001381: 32,7441           44516                           CS       ONE                                   #  LET ENEMA KILL COLD SOAK MANUEVER
022831,001382: 32,7442           02312                           TC       NEWPHASE                              

Page 584

022833,001384: 32,7443           00002                           OCT      00002                                 
022834,001385: 
022835,001386: 32,7444           44516                           CS       ONE                                   #  LET ENEMA KILL CALL FOR FDAONTSK
022836,001387: 32,7445           02312                           TC       NEWPHASE                              
022837,001388: 32,7446           00004                           OCT      00004                                 
022838,001389: 
022839,001390: 32,7447           32151                           CAF      PRIO15                                #  DO AN EMEMA AFTER THIS JOB
022840,001391: 32,7450           02052                           TC       NOVAC                                 
022841,001392: 32,7451           11147                           CADR     ENEMA                                 #  RESTART READACCS AND WAIT FOR TFFMIN
022842,001393: 
022843,001394: 32,7452           04000                           TC       INTPRET                               
022844,001395: 
022845,001396: 32,7453           43575        TFFTEST            TEST     1                                     #  TEST IF TFFMIN SHOULD BE CHECKED.
022846,001397: 32,7454           66616                           DSU      BPL                                   #  TFF2 FLAG SET AT SPS1 CUTOFF
022847,001398: 32,7455           00004                                    TFF2FLAG                              
022848,001399: 32,7456           25514                                    TFFTEST1                              
022849,001400: 32,7457           01457                                    TFF                                   
022850,001401: 32,7460           01677                                    TFFMIN                                
022851,001402: 32,7461           25514                                    TFFTEST1                              
022852,001403: 32,7462           77576                           EXIT     0                                     
022853,001404: 
022854,001405: 32,7463           20017        TESTTFF            INHINT                                         
022855,001406: 32,7464           37575                           CAF      90SEC32                               
022856,001407: 32,7465           02173                           TC       WAITLIST                              
022857,001408: 32,7466           50463                           CADR     PLUSX2                                
022858,001409: 
022859,001410: 32,7467           11722                           CCS      S2SWITCH                              #  SEE IF 2ND BURN ATTITUDE TO BE COMPUTED
022860,001411: 32,7470           07477                           TC       SET32                                 #  NO
022861,001412: 32,7471           07477                           TC       SET32                                 
022862,001413: 32,7472           07473                           TC       +1                                    
022863,001414: 32,7473           03416                           TC       FLAG1UP                               #  SET INIT FLAG TO RE:MANEUVER TO SPS2
022864,001415: 32,7474           00400                           OCT      00400                                 #    BURN ATTITUDE
022865,001416: 
022866,001417: 32,7475           34516                           CAF      ONE                                   
022867,001418: 32,7476           51446                           TS       VGCNTR                                
022868,001419: 
022869,001420: 32,7477           02362        SET32              TC       NEWMODE                               #  SET MAJOR MODE TO PRE-SPS2
022870,001421: 32,7500           00032                           OCT      00032                                 
022871,001422: 
022872,001423: 32,7501           03504                           TC       SETBRNSW                              #  SET BURN TO SPS2 BACK UP SETTING
022873,001424: 32,7502           00020                           OCT      00020                                 
022874,001425: 
022875,001426: 32,7503           40036                           CS       TIME1                                 
022876,001427: 32,7504           50666                           TS       TBASE4                                
022877,001428: 
022878,001429: 32,7505           33556                           CAF      THIRTY                                
022879,001430: 32,7506           02312                           TC       NEWPHASE                              
022880,001431: 32,7507           00004                           OCT      00004                                 
022881,001432: 
022882,001433: 32,7510           03474                           TC       STATEDWN                              #  REMOVE TFF2FLAG

Page 585

022884,001435: 32,7511           10000                           OCT      10000                                 
022885,001436: 
022886,001437: 32,7512           04000                           TC       INTPRET                               
022887,001438: 
022888,001439: 32,7513           43574        TFFTEST1           TEST     2                                     #  TEST IF INTP FLAG SET
022889,001440: 32,7514           65132                           ABS      DSU                                   
022890,001441: 32,7515           73615                           BMN      TEST                                  
022891,001442: 32,7516           00027                                    INTPFLAG                              
022892,001443: 32,7517           25603                                    INITEST                               #  IT IS NOT. CONTINUE AT INITEST
022893,001444: 32,7520           01457                                    TFF                                   #  TEST IF TFF LESS THAN 95 SECS
022894,001445: 32,7521           25601                                    DP95SEC                               
022895,001446: 32,7522           25542                                    SHUTDWN1                              #  IT IS. PREPARE TO FREE-FALL RE-ENTER
022896,001447: 32,7523           00032                                    INT1FLAG                              #  TEST IF FIRST INTERUPT FLAG SET
022897,001448: 32,7524           25530                                    +3                                    #  IT IS NOT
022898,001449: 
022899,001450: 32,7525           77576                           EXIT     0                                     #  IT IS. WAIT FOR 95 SEC INTERUPT
022900,001451: 32,7526           07741                           TC       ENDSER32                              
022901,001452: 
022902,001453: 32,7527           47575                           NOLOD    1                                     #  TEST IF TFF LESS THAN 200 SECS
022903,001454: 32,7530           66616                           DSU      BPL                                   
022904,001455: 32,7531           25577                                    DP105SEC                              
022905,001456: 32,7532           25603                                    INITEST                               #  IT IS NOT. CONTINUE
022906,001457: 
022907,001458: 32,7533           77576                           EXIT     0                                     
022908,001459: 32,7534           05654                           TC       BANKCALL                              #  IT IS. BRANCH TO SHUTDOWN ROUTINES
022909,001460: 32,7535           67037                           CADR     SHUTDOWN                              
022910,001461: 
022911,001462: 32,7536           03416                           TC       FLAG1UP                               
022912,001463: 32,7537           00100                           OCT      00100                                 
022913,001464: 
022914,001465: 32,7540           07546                           TC       SHTFLGUP                              
022915,001466: 
022916,001467: 32,7541           77576        SHUTDWN1           EXIT     0                                     
022917,001468: 32,7542           05654                           TC       BANKCALL                              
022918,001469: 32,7543           67037                           CADR     SHUTDOWN                              
022919,001470: 
022920,001471: 32,7544           03430                           TC       FLAG1DWN                              #  REMOVE INTP FLAG (DISABLE TFF DECISIONS)
022921,001472: 32,7545           01000                           OCT      01000                                 
022922,001473: 
022923,001474: 32,7546           03416        SHTFLGUP           TC       FLAG1UP                               #  SET SHTDN FLAG
022924,001475: 32,7547           04000                           OCT      04000                                 
022925,001476: 
022926,001477: 32,7550           07741                           TC       ENDSER32                              
022927,001478: 
022928,001479: 
022929,001480: 
022930,001481: 32,7551           33533        REDO5.23           CAF      ELEVEN                                #  RE-ESTABLISH VR, DIFFVECT IN CASE OF
022931,001482: 32,7552           50115                           TS       MPAC                                  #  5.23 RESTART
022932,001483: 32,7553           20115                           INDEX    MPAC                                  
022933,001484: 32,7554           41263                           CS       VR1                                   

Page 586

022935,001486: 32,7555           20115                           INDEX    MPAC                                  
022936,001487: 32,7556           51416                           TS       VR                                    
022937,001488: 32,7557           10115                           CCS      MPAC                                  
022938,001489: 32,7560           07552                           TC       REDO5.23   +1                         
022939,001490: 
022940,001491: 32,7561           41261                           CS       VGCNT1                                
022941,001492: 32,7562           51446                           TS       VGCNTR                                
022942,001493: 32,7563           41262                           CS       DVCNT1                                
022943,001494: 32,7564           51447                           TS       DVCNTR                                
022944,001495: 
022945,001496: 32,7565           07321                           TC       RE5.23                                
022946,001497: 
022947,001498: 
022948,001499: 
022949,001500: 32,7566           00000        DP2SEC             DEC      0.0                                   
022950,001501: 32,7567           00310        2SEC               DEC      200        B-14                       
022951,001502: 32,7570           00010 15420  23MIN              2DEC     138000     B-28                       
022952,001503: 32,7572           00000 27340  2MIN               2DEC     12000      B-28                       
022953,001504: 32,7574           00077        OCT77              OCT      00077                                 
022954,001505: 32,7575           21450        90SEC32            DEC      9000       B-14                       
022955,001506: 32,7576           00000 24404  DP105SEC           2DEC     10500      B-28                       
022956,001507: 32,7600           00000 22434  DP95SEC            2DEC     9500       B-28                       
022957,001508: 

Page 587

022959,001510: 
022960,001511: 32,7602           77576        INITEST            EXIT     0                                     
022961,001512: 32,7603           40646                           CS       FLAGWRD1                              #  TEST IF THIS IS AN INITIAL PASS
022962,001513: 32,7604           74506                           MASK     INITMASK                              
022963,001514: 32,7605           10000                           CCS      A                                     
022964,001515: 32,7606           07664                           TC       DVMNTEST                              #  IT IS NOT
022965,001516: 
022966,001517: 32,7607           40647                           CS       FLAGWRD2                              #  TEST IF BURN IS ABORT AFTER TUMBLE ARRET
022967,001518: 32,7610           76772                           MASK     TABTMASK                              
022968,001519: 32,7611           10000                           CCS      A                                     
022969,001520: 32,7612           07617                           TC       INITISE                               #  IT IS NOT
022970,001521: 
022971,001522: 32,7613           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO POST TUMBLE RECOVERY
022972,001523: 32,7614           00071                           OCT      00071                                 
022973,001524: 
022974,001525: 32,7615           37654                           CAF      31.8DEG                               #  TO REGAIN ATTITUDE AFTER TUMBLE SET AN
022975,001526: 32,7616           51442                           TS       LOOKANG                               #  AVERAGE ANGLE TO HORIZON OF 31.8 DEGS.
022976,001527: 
022977,001528: 32,7617           04000        INITISE            TC       INTPRET                               
022978,001529: 
022979,001530: 32,7620           75176                           VMOVE    0                                     #  DEFINES TRAJECTORY PLANE FOR YAW
022980,001531: 32,7621           00774                                    VN                                    #    STEERING. USED IN CALCVGB
022981,001532: 32,7622           33107                           STORE    VIGNTION                              
022982,001533: 
022983,001534: 32,7623           76776                           ITC      0                                     #  BRANCH TO VG, B VECTOR COMPUTATIONS
022984,001535: 32,7624           12421                                    CALCVGB                               
022985,001536: 
022986,001537: 32,7625           77576                           EXIT     0                                     
022987,001538: 
022988,001539: 32,7626           11446                           CCS      VGCNTR                                #  WAIT FOR SECOND PASS THRU CALCVGB BEFORE
022989,001540: 32,7627           07631                           TC       +2                                    #  COMPUTING THRUST ATTITUDE
022990,001541: 32,7630           07633                           TC       +3                                    
022991,001542: 
022992,001543: 32,7631           51446                           TS       VGCNTR                                
022993,001544: 32,7632           07741                           TC       ENDSER32                              
022994,001545: 
022995,001546: 32,7633           04000                           TC       INTPRET                               
022996,001547: 
022997,001548: 32,7634           76776                           ITC      0                                     
022998,001549: 32,7635           26256                                    BURNINIT                              
022999,001550: 
023000,001551: 32,7636           77576                           EXIT     0                                     
023001,001552: 
023002,001553: 32,7637           20017                           INHINT                                         
023003,001554: 32,7640           32146                           CAF      PRIO12                                #  ESTABLISH JOB TO COMPUTE MANEUVER TO
023004,001555: 32,7641           02046                           TC       FINDVAC                               #  BURN INITIAL ATTITUDE
023005,001556: 32,7642           66404                           CADR     ATTIJOB                               
023006,001557: 
023007,001558: 32,7643           34516                           CAF      ONE                                   #  SET VGCNTR FOR TWO PASSES THROUGH
023008,001559: 32,7644           51446                           TS       VGCNTR                                #  CALCVGB BEFORE ISSUINS STEER COMMANDS

Page 588

023010,001561: 32,7645           37655                           CAF      35DEG                                 #  RESTORE ANGLE TO HORIZON TO 35 DEGS
023011,001562: 32,7646           51442                           TS       LOOKANG                               
023012,001563: 
023013,001564: 32,7647           02276                           TC       PHASCHNG                              
023014,001565: 32,7650           00402                           OCT      00402                                 
023015,001566: 
023016,001567: 32,7651           03430                           TC       FLAG1DWN                              #  REMOVE INIT FLAG
023017,001568: 32,7652           00400                           OCT      00400                                 
023018,001569: 
023019,001570: 32,7653           07741                           TC       ENDSER32                              
023020,001571: 
023021,001572: 32,7654           02647        31.8DEG            DEC      0.088333                              #  SCALED AT 1 REV
023022,001573: 32,7655           03071        35DEG              DEC      0.097222                              
023023,001574: 32,7656     4506               INITMASK           EQUALS   BIT9                                  
023024,001575: 
023025,001576: 32,7656           77576        VRFAIL             EXIT     0                                     #  EXIT HERE IF FAILURE TO COMPUTE ABORT VR
023026,001577: 
023027,001578: 32,7657           11446                           CCS      VGCNTR                                #  TEST IF THIS IS LAST PASS
023028,001579: 32,7660           07662                           TC       +2                                    
023029,001580: 32,7661           07737                           TC       ENDSHUT                               #  IT IS. DO SHUTDOWN
023030,001581: 
023031,001582: 32,7662           51446                           TS       VGCNTR                                #  WAIT FOR MORE
023032,001583: 32,7663           07741                           TC       ENDSER32                              
023033,001584: 
023034,001585: 32,7664           40646        DVMNTEST           CS       FLAGWRD1                              #  TEST IF DV MONITOR IS ENABLED
023035,001586: 32,7665           74512                           MASK     DVMONMSK                              
023036,001587: 32,7666           10000                           CCS      A                                     
023037,001588: 32,7667           07741                           TC       ENDSER32                              #  IT IS NOT
023038,001589: 
023039,001590: 32,7670           04000                           TC       INTPRET                               
023040,001591: 
023041,001592: 32,7671           71174                           ABVAL    2                                     #  TEST IF DELV MAG. EXCEEDS DVMIN
023042,001593: 32,7672           66756                           DSU      BMN                                   
023043,001594: 32,7673           77576                           EXIT                                           
023044,001595: 32,7674           01002                                    DELV                                  
023045,001596: 32,7675           26001                                    DVMIN                                 
023046,001597: 32,7676           25704                                    NODELTAV                              #  IT DOES NOT. START DV MONITOR
023047,001598: 
023048,001599: 32,7677           44516                           CS       ONE                                   #  IT DOES. (DVCNTR NORMALLY NEGATIVE)
023049,001600: 32,7700           51447                           TS       DVCNTR                                
023050,001601: 
023051,001602: 32,7701           05654                           TC       BANKCALL                              
023052,001603: 32,7702           66002                           CADR     STRTEST                               
023053,001604: 
023054,001605: 32,7703           77576        NODELTAV           EXIT     0                                     
023055,001606: 32,7704           11447                           CCS      DVCNTR                                
023056,001607: 
023057,001608: 32,7705           07712                           TC       DVALARM                               #  AFTER FIRST TIME SET ALARM
023058,001609: 32,7706           07717                           TC       SHUTDWN3                              #  5 PASSES UP. PREPARE FOR RE-ENTRY

Page 589

023060,001611: 32,7707           33532                           CAF      NINE                                  #  FIRST TIME SET DVCNTR FOR 10 PASSES
023061,001612: 32,7710           51447                           TS       DVCNTR                                
023062,001613: 
023063,001614: 32,7711           07741                           TC       ENDSER32                              
023064,001615: 
023065,001616: 32,7712           03007        DVALARM            TC       ALARM                                 
023066,001617: 32,7713           01402                           OCT      01402                                 
023067,001618: 
023068,001619: 32,7714           11447                           CCS      DVCNTR                                
023069,001620: 32,7715           51447                           TS       DVCNTR                                
023070,001621: 
023071,001622: 32,7716           07741                           TC       ENDSER32                              
023072,001623: 
023073,001624: 32,7717           40647        SHUTDWN3           CS       FLAGWRD2                              
023074,001625: 32,7720           76416                           MASK     SPS1MASK                              
023075,001626: 32,7721           10000                           CCS      A                                     
023076,001627: 32,7722           07735                           TC       SHUTDWN4                              #  SHUT DOWN IF NOT DOING SPS1 BURN
023077,001628: 
023078,001629: 32,7723           20017                           INHINT                                         #  CALL ON ENGINE-OFF IMMEDIATELY IF SPS1
023079,001630: 32,7724           34516                           CAF      ONE                                   
023080,001631: 32,7725           02173                           TC       WAITLIST                              
023081,001632: 32,7726           64710                           CADR     ENGINOFF                              
023082,001633: 32,7727           20016                           RELINT                                         
023083,001634: 
023084,001635: 32,7730           03430                           TC       FLAG1DWN                              #  REMOVE STEER FLAG
023085,001636: 32,7731           00010                           OCT      00010                                 
023086,001637: 
023087,001638: 32,7732           02276                           TC       PHASCHNG                              
023088,001639: 32,7733           04104                           OCT      04104                                 
023089,001640: 
023090,001641: 32,7734           07741                           TC       ENDSER32                              
023091,001642: 
023092,001643: 32,7735           03416        SHUTDWN4           TC       FLAG1UP                               #  ENABLE FREE-FALL INTERRUPT
023093,001644: 32,7736           01000                           OCT      01000                                 
023094,001645: 
023095,001646: 32,7737           05654        ENDSHUT            TC       BANKCALL                              
023096,001647: 32,7740           67037                           CADR     SHUTDOWN                              
023097,001648: 
023098,001649: 32,7741           05654        ENDSER32           TC       BANKCALL                              #  EXIT FROM SERVICER FROM BANK 32
023099,001650: 32,7742           66241                           CADR     ENDSERV                               
023100,001651: 
023101,001652: 33,6000                                           SETLOC   66000                                 
023102,001653: 33,6000     4512               DVMONMSK           EQUALS   BIT5                                  
023103,001654: 33,6000           00005 06565  DVMIN              2DEC     0.000318008                            #  2FT/S SCALED AT 19.16928 M/CS
023104,001655: 
023105,001656: 33,6002           40646        STRTEST            CS       FLAGWRD1                              #  TEST IF STEER FLAG SET
023106,001657: 33,6003           74513                           MASK     BIT4                                  
023107,001658: 33,6004           10000                           CCS      A                                     
023108,001659: 33,6005           06241                           TC       ENDSERV                               #  IT IS NOT

Page 590

023110,001661: 33,6006           04000                           TC       INTPRET                               
023111,001662: 
023112,001663: 33,6007           76776                           ITC      0                                     
023113,001664: 33,6010           12421                                    CALCVGB                               
023114,001665: 
023115,001666: 33,6011           77576                           EXIT     0                                     
023116,001667: 
023117,001668: 33,6012           02276                           TC       PHASCHNG                              
023118,001669: 33,6013           00505                           OCT      00505                                 
023119,001670: 
023120,001671: 33,6014           11446        REDO5.5            CCS      VGCNTR                                
023121,001672: 33,6015           06017                           TC       +2                                    #  BEFORE TESTING VG AND GENERATING STEERIN
023122,001673: 33,6016           06034                           TC       JUMP10                                #  COMMANDS
023123,001674: 
023124,001675: 33,6017           51360                           TS       ERRORSUM                              #  ZERO STEER ERROR SUM
023125,001676: 33,6020           51361                           TS       ERRORSUM   +1                         
023126,001677: 33,6021           51362                           TS       ERRORSUM   +2                         
023127,001678: 33,6022           51363                           TS       ERRORSUM   +3                         
023128,001679: 33,6023           51364                           TS       ERRORSUM   +4                         
023129,001680: 33,6024           51365                           TS       ERRORSUM   +5                         
023130,001681: 
023131,001682: 33,6025           36033                           CAF      MDTINIT                               
023132,001683: 33,6026           51444                           TS       MDT                                   
023133,001684: 33,6027           51445                           TS       MDT        +1                         
023134,001685: 
023135,001686: 33,6030           11446                           CCS      VGCNTR                                
023136,001687: 33,6031           51446                           TS       VGCNTR                                
023137,001688: 
023138,001689: 33,6032           06241                           TC       ENDSERV                               
023139,001690: 
023140,001691: 33,6033           00076        MDTINIT            DEC      0.00381                               #  16FT/S/S FOR 2.5 SECS AT 2(+5)M/CS
023141,001692: 
023142,001693: 33,6034           03452        JUMP10             TC       FLAG2DWN                              #  REMOVE CALC FLAG (KILLS ATTITUDE MAN-
023143,001694: 33,6035           02000                           OCT      02000                                 #  EUVER IF STILL ACTIVE)
023144,001695: 
023145,001696: 33,6036           04000                           TC       INTPRET                               
023146,001697: 
023147,001698: 33,6037           75775                           VXSC     1                                     
023148,001699: 33,6040           46753                           BVSU     UNIT                                  
023149,001700: 33,6041           01002                                    DELV                                  
023150,001701: 33,6042           21742                                    KPIP                                  
023151,001702: 33,6043           01411                                    CBDT                                  
023152,001703: 33,6044           33403                           STORE    UNITMDT                               
023153,001704: 
023154,001705: 33,6045           47575                           NOLOD    1                                     #  TEST IF VG INCREASING WITH THRUST
023155,001706: 33,6046           42616                           DOT      BPL                                   
023156,001707: 33,6047           01353                                    VG                                    
023157,001708: 33,6050           26235                                    VGALARM                               #  IT IS. BRANCH TO CUT ENGINE AND WAIT
023158,001709: 33,6051           32033                           STORE    26D                                   #  VG ACTUAL

Page 591

023160,001711: 33,6052           70776                           DAD      0                                     #  SUM TWO INTERVALS OF MDT
023161,001712: 33,6053           00037                                    30D                                   
023162,001713: 33,6054           01445                                    MDT                                   
023163,001714: 
023164,001715: 33,6055           64773        JUMP9              DMP      3                                     #  RESCALE VG ACTUAL TO 2(+5)M/CS
023165,001716: 33,6056           63746                           TSLT     BOV                                   
023166,001717: 33,6057           62746                           DDV      BOV                                   #  IF NO OVER FLOW ON DIVISION, LESS THAN
023167,001718: 33,6060           64772                           DMP      ITC                                   #  2 INTERVALS OF VG LEFT
023168,001719: 33,6061           00033                                    26D                                   
023169,001720: 33,6062           26163                                    0.995                                 
023170,001721: 33,6063           00004                                    3                                     
023171,001722: 33,6064           26072                                    STEERLAW                              
023172,001723: 33,6065           77777                                    -                                     
023173,001724: 33,6066           26072                                    STEERLAW                              
023174,001725: 33,6067           01030                                    DELTAT                                
023175,001726: 33,6070           26173                                    SETTGO                                #  BRANCH TO SET TIME-TO-GO TO CUT-OFF
023176,001727: 
023177,001728: 33,6071           45176        STEERLAW           DMOVE    0                                     #  SAVE NEW VALUE OF MDT
023178,001729: 33,6072           00037                                    30D                                   
023179,001730: 33,6073           33445                           STORE    MDT                                   
023180,001731: 
023181,001732: 33,6074           64776                           DMP      0                                     
023182,001733: 33,6075           26165                                    K1STEER                               #  =(0.815...)(STEER GAIN)
023183,001734: 33,6076           01030                                    DELTAT                                
023184,001735: 
023185,001736: 33,6077           71173                           ABVAL    3                                     #  STEERING CROSS PRODUCT COMPUTED HERE
023186,001737: 33,6100           57706                           TSLC     BDDV                                  
023187,001738: 33,6101           75606                           VXSC     VXV                                   
023188,001739: 33,6102           44376                           VSLT*                                          
023189,001740: 33,6103           01353                                    VG                                    
023190,001741: 33,6104           00050                                    X2                                    
023191,001742: 33,6105           77777                                    -                                     
023192,001743: 33,6106           01353                                    VG                                    
023193,001744: 33,6107           01403                                    UNITMDT                               
023194,001745: 33,6110           00002                                    0,2                                   
023195,001746: 33,6111           33345                           STORE    STEERROR                              #  FIRST TERM IN STEERLAW OUTPUT. SCALED
023196,001747:                                                                                                  #  AT ONE REVOLUTION
023197,001748: 33,6112           47575                           NOLOD    1                                     #  INCREMENT SUM OF STEER ERRORS
023198,001749: 33,6113           75642                           VXSC     VAD                                   
023199,001750: 33,6114           26167                                    K2STEER                               #  =(INTEGRATOR GAIN)/(STEER GAIN)
023200,001751: 33,6115           01361                                    ERRORSUM                              
023201,001752: 
023202,001753: 33,6116           47574                           NOLOD    2                                     #  TEST IF MAGNITUDE OF INTEGRATED STEER
023203,001754: 33,6117           71132                           ABVAL    DSU                                   #  ERROR EXCEEDS MAX ALLOWABLE
023204,001755: 33,6120           43776                           BPL                                            
023205,001756: 33,6121           26171                                    ERRORMAX                              
023206,001757: 33,6122           26126                                    SUMPOINT                              
023207,001758: 
023208,001759: 33,6123           75176                           VMOVE    0                                     
023209,001760: 33,6124           33361                           STORE    ERRORSUM                              #  STORE NEW STEER ERROR SUM

Page 592

023211,001762: 
023212,001763: 33,6125           50775        SUMPOINT           VAD      1                                     #  SUM ERROR AND INTEGRATED ERROR TERMS
023213,001764: 33,6126           76572                           RTB      ITC                                   
023214,001765: 33,6127           01345                                    STEERROR                              
023215,001766: 33,6130           01361                                    ERRORSUM                              
023216,001767: 33,6131           20265                                    FRESHPD                               
023217,001768: 33,6132           12375                                    CDUDRIVE                              #  BRANCH WITH TOTAL STEERLAW OUTPUT IN VAC
023218,001769:                                                                                                  #  SCALED AT ONE REVOLUTION
023219,001770: 33,6133           44775        STREXIT            VSLT     1                                     
023220,001771: 33,6134           47175                           COMP     EXIT                                  #  RESCALE VG TO 2(+5)M/CS FOR DISPLAY
023221,001772: 33,6135           01353                                    VG                                    
023222,001773: 33,6136           00003                                    2                                     
023223,001774: 
023224,001775: 33,6137           03302                           TC       GRABDSP                               #  TRY TO GRAB DISPLAY
023225,001776: 33,6140           06156                           TC       NODISP                                #  ALREADY GRABBED. SKIP VG DISPLAY
023226,001777: 
023227,001778: 33,6141           20067                           INDEX    FIXLOC                                #  LOAD UPPER REGISTERS OF VG INTO DSPTEM1
023228,001779: 33,6142           40040                           CS       VAC                                   
023229,001780: 33,6143           50616                           TS       DSPTEM1                               
023230,001781: 
023231,001782: 33,6144           20067                           INDEX    FIXLOC                                
023232,001783: 33,6145           40042                           CS       VAC        +2                         
023233,001784: 33,6146           50617                           TS       DSPTEM1    +1                         
023234,001785: 
023235,001786: 33,6147           20067                           INDEX    FIXLOC                                
023236,001787: 33,6150           40044                           CS       VAC        +4                         
023237,001788: 33,6151           50620                           TS       DSPTEM1    +2                         
023238,001789: 
023239,001790: 33,6152           36157                           CAF      V06N40                                
023240,001791: 33,6153           03100                           TC       NVSUB                                 
023241,001792: 33,6154           03250                           TC       RELDSPON                              
023242,001793: 
023243,001794: 33,6155           03362                           TC       FREEDSP                               
023244,001795: 
023245,001796: 33,6156           06241        NODISP             TC       ENDSERV                               
023246,001797: 
023247,001798: 33,6157           00640        V06N40             OCT      00640                                 #  VERB 06 NOUN 40
023248,001799: 33,6160           06057 03250  1.523              2DEC     1.523      B-3                        
023249,001800: 33,6162           37656 02437  0.995              2DEC     0.995                                 
023250,001801: 33,6164           03204 33423  K1STEER            2DEC     0.101859164                            #  (STEER GAIN =1/8)
023251,001802: 33,6166           02436 27024  K2STEER            2DEC     0.08                                  #  (INTEGRATOR GAIN =0.01)
023252,001803: 33,6170           00026 30133  ERRORMAX           2DEC     0.001388888                            #  1 DEGREE SCALED AT 2 REVS
023253,001804: 
023254,001805: 33,6172           47574        SETTGO             NOLOD    2                                     #  COME HERE TO SET ENGINE-OFF CALL
023255,001806: 33,6173           56633                           TSRT     COMP                                  
023256,001807: 33,6174           43575                           TEST     EXIT                                  
023257,001808: 33,6175           00005                                    4                                     #  C(MPAC) = TIME-TO-CUTOFF SINCE PIPTIME

Page 593

023259,001810: 33,6176           00035                                    STEERFLG                              #  SCALED AT 2(+14) CS
023260,001811: 33,6177           26134                                    STREXIT                               
023261,001812: 
023262,001813: 33,6200           30115                           XCH      MPAC                                  
023263,001814: 33,6201           51460                           TS       LONGTIME                              #  SAVE MPAC  (USED IN RESTARTS)
023264,001815: 
023265,001816: 33,6202           20017        REDO4.1            INHINT                                         
023266,001817: 33,6203           40036                           CS       TIME1                                 
023267,001818: 33,6204           50666                           TS       TBASE4                                
023268,001819: 33,6205           61465                           AD       PIPTIME    +1                         
023269,001820: 33,6206           10000                           CCS      A                                     
023270,001821: 33,6207           64500                           AD       BIT15                                 
023271,001822: 33,6210           06213                           TC       +3                                    
023272,001823: 33,6211           64516                           AD       ONE                                   
023273,001824: 33,6212           40000                           COM                                            
023274,001825: 
023275,001826: 33,6213           61460                           AD       LONGTIME                              #  (TEMP FOR MPAC)
023276,001827: 33,6214           61560                           AD       TDECAY                                #  EFFECTIVE THRUST DECAY TIME
023277,001828: 33,6215           51461                           TS       LONGTIME   +1                         
023278,001829: 33,6216           10000                           CCS      A                                     #  TEST FOR - OR 0 WAITLIST CALLS
023279,001830: 33,6217           06222                           TC       +3                                    
023280,001831: 33,6220           06222                           TC       +2                                    
023281,001832: 33,6221           35501                           CAF      ZERO                                  
023282,001833: 33,6222           64516                           AD       ONE                                   
023283,001834: 33,6223           02173                           TC       WAITLIST                              
023284,001835: 33,6224           64710                           CADR     ENGINOFF                              
023285,001836: 
023286,001837: 33,6225           02276                           TC       PHASCHNG                              
023287,001838: 33,6226           00104                           OCT      00104                                 
023288,001839: 
023289,001840: 33,6227           03430                           TC       FLAG1DWN                              #  REMOVE STEER FLAG
023290,001841: 33,6230           00010                           OCT      00010                                 
023291,001842: 
023292,001843: 33,6231           02276                           TC       PHASCHNG                              
023293,001844: 33,6232           00204                           OCT      00204                                 
023294,001845: 
023295,001846: 33,6233           06241                           TC       ENDSERV                               
023296,001847: 
023297,001848: 33,6234           77576        VGALARM            EXIT     0                                     
023298,001849: 33,6235           03007                           TC       ALARM                                 
023299,001850: 33,6236           01401                           OCT      01401                                 
023300,001851: 
023301,001852: 33,6237           05654                           TC       BANKCALL                              
023302,001853: 33,6240           65717                           CADR     SHUTDWN3                              
023303,001854: 
023304,001855: 33,6241           11030        ENDSERV            CCS      DELTAT     +1                         #  IF BIT1 PRESENT IN DELTAT +1, SET DELTAT
023305,001856: 33,6242           36252                           CAF      HALFSEC                               #  1/PIPADT TO 2.5SECS (FOR ABORT STEERING)
023306,001857: 33,6243           66253                           AD       TWOSEC                                
023307,001858: 33,6244           51027                           TS       DELTAT                                
023308,001859: 33,6245           60000                           DOUBLE                                         

Page 594

023310,001861: 33,6246           50755                           TS       1/PIPADT                              
023311,001862: 
023312,001863: 33,6247           02276                           TC       PHASCHNG                              
023313,001864: 33,6250           00105                           OCT      00105                                 
023314,001865: 
023315,001866: 33,6251           02124                           TC       ENDOFJOB                              
023316,001867: 
023317,001868: 33,6252           03100        HALFSEC            DEC      50         B-9                        
023318,001869: 33,6253           14400        TWOSEC             DEC      200        B-9                        
023319,001870: 33,6254           00007        ALLABORT           OCT      7                                     
023320,001871: 

Page 595

023322,001873: 
023323,001874: 33,6255           53574        BURNINIT           AXC,1    2                                     #  C(X1)= 0  (TABT,ABRT,SPS1)
023324,001875: 33,6256           45415                           ITA      TEST                                  #       =-2  (SPS2)
023325,001876: 33,6257           53576                           AXC,1                                          
023326,001877: 33,6260           00001                                    0                                     
023327,001878: 33,6261           00052                                    S2                                    
023328,001879: 33,6262           00054                                    SPS2FLAG                              
023329,001880: 33,6263           26266                                    +2                                    
023330,001881: 33,6264           00003                                    2                                     
023331,001882: 
023332,001883: 33,6265           76776                           ITC      0                                     #  COMPUTE DESIRED THRUST DIRECTION
023333,001884: 33,6266           13402                                    CALCXSC                               
023334,001885: 
023335,001886: 33,6267           76575                           RTB      1                                     #  SET UP CG ROTATION MATRIX IN PD
023336,001887: 33,6270           42176                           SMOVE*                                         
023337,001888: 33,6271           20271                                    ZEROVAC                               
023338,001889: 33,6272           03621                                    CGZ,1                                 
023339,001890: 33,6273           32007                           STORE    6                                     
023340,001891: 
023341,001892: 33,6274           47575                           NOLOD    1                                     
023342,001893: 33,6275           47065                           COMP     AST,1                                 
023343,001894: 33,6276           00007                                    6                                     
023344,001895: 33,6277           32003                           STORE    2                                     
023345,001896: 
023346,001897: 33,6300           42176                           SMOVE*   0                                     
023347,001898: 33,6301           03611                                    CGY,1                                 
023348,001899: 33,6302           32005                           STORE    4                                     
023349,001900: 
023350,001901: 33,6303           47575                           NOLOD    1                                     
023351,001902: 33,6304           47165                           COMP     AXT,1                                 
023352,001903: 33,6305           00023                                    18D                                   
023353,001904: 33,6306           32015                           STORE    12D                                   
023354,001905: 
023355,001906: 33,6307           74174        REPEAT2            VMOVE*   2                                     #  COMPUTE DESIRED SPACECRAFT ATTITUDE
023356,001907: 33,6310           51640                           VXM      VAD*                                  #  MATRIX FROM DESIRED THRUST ATT. MATRIX
023357,001908: 33,6311           73176                           UNIT                                           
023358,001909: 33,6312           00045                                    18D,1                                 
023359,001910: 33,6313           01367                                    XSC                                   
023360,001911: 33,6314           03021                                    XSC        +18D,1                     
023361,001912: 33,6315           37065                           STORE    XSCD       +18D,1                     
023362,001913: 
023363,001914: 33,6316           51575                           TIX,1    1                                     
023364,001915: 33,6317           44576                           ITCI                                           
023365,001916: 33,6320           26310                                    REPEAT2                               
023366,001917: 33,6321           00052                                    S2                                    

Page 596

023368,001919: 
023369,001920: 33,6322           04000        ROLLJOB            TC       INTPRET                               
023370,001921: 
023371,001922: 33,6323           75575                           AXT,1    1                                     #  GET SIN,COS OF THETAD,+1,+2
023372,001923: 33,6324           54572                           AST,2    ITC                                   
023373,001924: 33,6325           00007                                    6                                     
023374,001925: 33,6326           26360                                    ROLLEXIT                              
023375,001926: 33,6327           12013                                    THETRIG                               
023376,001927: 
023377,001928: 33,6330           76776                           ITC      0                                     #  COMPUTE NAV. BASE CORRDINATES
023378,001929: 33,6331           12110                                    CALCSMNB                              
023379,001930: 
023380,001931: 33,6332           75776                           VXSC     0                                     #  COMPUTE XSC
023381,001932: 33,6333           01477                                    XNB                                   
023382,001933: 33,6334           12241                                    COS33                                 
023383,001934: 
023384,001935: 33,6335           75774                           VXSC     2                                     
023385,001936: 33,6336           50615                           VAD      TEST                                  
023386,001937: 33,6337           47176                           COMP                                           
023387,001938: 33,6340           01513                                    ZNB                                   
023388,001939: 33,6341           12237                                    SIN33                                 
023389,001940: 33,6342           77777                                    -                                     
023390,001941: 33,6343           00054                                    SPS2FLAG                              #  IF SPS2, INVERT XSC
023391,001942: 33,6344           26347                                    HEADWN1                               
023392,001943: 33,6345           32027                           STORE    22D                                   
023393,001944: 
023394,001945: 33,6346           47573        HEADWN1            NOLOD    3                                     
023395,001946: 33,6347           41753                           VXV      UNIT                                  #  =KR(TVC)(UNIT(XSC*RN)*YSC), WHERE
023396,001947: 33,6350           41766                           VXV      VXSC                                  #        DT(MAX) = 10 SECS,
023397,001948: 33,6351           44772                           VSLT     ITC                                   #        MAX ROLL GAIN = 1.0
023398,001949: 33,6352           00766                                    RN                                    
023399,001950: 33,6353           01505                                    YNB                                   #  ( =YSC)
023400,001951: 33,6354           26403                                    KR(TVC)                               #  TVC ROLL CONTROL GAIN
023401,001952: 33,6355           00004                                    3                                     
023402,001953: 33,6356           12402                                    CDUDRVE2                              #  SUBENTRY OF CDUDRIVE
023403,001954: 
023404,001955: 33,6357           77576        ROLLEXIT           EXIT     0                                     
023405,001956: 
023406,001957: 33,6360           40646                           CS       FLAGWRD1                              #  TEST IF STEER FLAG SET BEFORE SETTING
023407,001958: 33,6361           74513                           MASK     BIT4                                  #  BURN MAJOR MODE
023408,001959: 33,6362           10000                           CCS      A                                     
023409,001960: 33,6363           02124                           TC       ENDOFJOB                              
023410,001961: 
023411,001962: 33,6364           34512                           CAF      BIT5                                  #  TEST IF BURN SWITCH IS SET TO SPS2
023412,001963: 33,6365           70647                           MASK     FLAGWRD2                              
023413,001964: 33,6366           10000                           CCS      A                                     
023414,001965: 33,6367           06377                           TC       SPS2MODE                              #  IT IS
023415,001966: 
023416,001967: 33,6370           40647                           CS       FLAGWRD2                              #  TEST IF BURN IS SPS1
023417,001968: 33,6371           74513                           MASK     BIT4                                  
023418,001969: 33,6372           10000                           CCS      A                                     

Page 597

023420,001971: 33,6373           02124                           TC       ENDOFJOB                              #  IT IS NOT
023421,001972: 
023422,001973: 33,6374           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO SPS1
023423,001974: 33,6375           00041                           OCT      00041                                 
023424,001975: 33,6376           02124                           TC       ENDOFJOB                              
023425,001976: 
023426,001977: 33,6377           02362        SPS2MODE           TC       NEWMODE                               #  SET MAJOR MODE TO SPS2
023427,001978: 33,6400           00042                           OCT      00042                                 
023428,001979: 
023429,001980: 33,6401           02124                           TC       ENDOFJOB                              
023430,001981: 
023431,001982: 33,6402           00516 07363  KR(TVC)            2DEC     0.0204                                #  ROLL GAIN =0.05, DT =5.0 SECS
023432,001983: 

Page 598

023434,001985: 
023435,001986:                                                                                                  #  THIS ROUTINE CONTROLS THE USE OF CALCMANU IN COMPUTING, TIMING AND PERFORMING THE SEQUENCE OF MANEUVERS DURING
023436,001987:                                                                                                  #  A LARGE ATTITUDE MANEUVER. FLIGHT 501 INVOLVES SUCH A MANEUVER WHEN ORIENTING TO
023437,001988:                                                                                                  #        1.  ABORT BURN INITIAL ATTITUDE AFTER A TUMBLE ARREST
023438,001989:                                                                                                  #        2.  NOMINAL FIRST BURN INITIAL ATTITUDE
023439,001990:                                                                                                  #        3.  LOCAL VERTICAL AFTER NOMINAL FIRST BURN
023440,001991:                                                                                                  #        4.  NOMINAL SECOND BURN INITIAL ATTITUDE
023441,001992:                                                                                                  #        5.  SM/CM SEPARATION ATTITUDE
023442,001993:                                                                                                  #        6.  CM PRE-ENTRY ATTITUDE
023443,001994: 
023444,001995: 
023445,001996: 
023446,001997: 33,6404           05654        ATTIJOB            TC       BANKCALL                              
023447,001998: 33,6405           30223                           CADR     IMUATTC                               
023448,001999: 
023449,002000: 33,6406           03516                           TC       SETHETAD                              
023450,002001: 
023451,002002: 33,6407           05654                           TC       BANKCALL                              
023452,002003: 33,6410           30331                           CADR     IMUSTALL                              
023453,002004: 33,6411           03066                           TC       CURTAINS                              
023454,002005: 
023455,002006: 33,6412           04000                           TC       INTPRET                               
023456,002007: 
023457,002008: 33,6413           76776        ATTIJOB1           ITC      0                                     
023458,002009: 33,6414           26500                                    GETMANU                               
023459,002010: 
023460,002011: 33,6415           77576                           EXIT     0                                     
023461,002012: 
023462,002013: 33,6416           20017                           INHINT                                         
023463,002014: 33,6417           34516                           CAF      0.01SEC                               
023464,002015: 33,6420           02173                           TC       WAITLIST                              
023465,002016: 33,6421           66525                           CADR     DOMANU                                
023466,002017: 
023467,002018: 33,6422           02124                           TC       ENDOFJOB                              
023468,002019: 
023469,002020: 
023470,002021: 
023471,002022: 33,6423           04000        ATTIJOB2           TC       INTPRET                               
023472,002023: 
023473,002024: 33,6424           76776                           ITC      0                                     
023474,002025: 33,6425           26500                                    GETMANU                               
023475,002026: 
023476,002027: 33,6426           77576                           EXIT     0                                     
023477,002028: 33,6427           02124                           TC       ENDOFJOB                              
023478,002029: 
023479,002030: 
023480,002031: 
023481,002032: 33,6430           47576        SNAPOUT            NOLOD    0                                     
023482,002033: 33,6431           32701                           STORE    THETAD                                
023483,002034: 
023484,002035: 33,6432           43575                           TEST     1                                     #  TEST IF SHTDN FLAG SET (I.E. HAS FREE-

Page 599

023486,002037: 33,6433           43575                           TEST     EXIT                                  #  FALL INTERUPT OCCURRED)
023487,002038: 33,6434           00025                                    SHTDNFLG                              
023488,002039: 33,6435           26447                                    JUMP7                                 
023489,002040: 33,6436           00043                                    CDUXFLAG                              #  TEST IF CDUXFLAG SET (I.E. HAS CM/SM
023490,002041: 33,6437           26473                                    ENDMANU                               #  SEPARATION OCCURRED)
023491,002042: 
023492,002043: 33,6440           03416                           TC       FLAG1UP                               #  SET ENTRY FLAG
023493,002044: 33,6441           00004                           OCT      00004                                 
023494,002045: 
023495,002046: 33,6442           44516                           CS       ONE                                   
023496,002047: 33,6443           02312                           TC       NEWPHASE                              
023497,002048: 33,6444           00003                           OCT      00003                                 
023498,002049: 
023499,002050: 33,6445           02124                           TC       ENDOFJOB                              
023500,002051: 
023501,002052: 33,6446           43575        JUMP7              TEST     1                                     
023502,002053: 33,6447           77576                           EXIT                                           
023503,002054: 33,6450           00022                                    COASTFLG                              
023504,002055: 33,6451           26460                                    JUMP6                                 
023505,002056: 
023506,002057: 33,6452           03416                           TC       FLAG1UP                               #  SET SOAK FLAG FOR BEGINNING OF CONTROL
023507,002058: 33,6453           10000                           OCT      10000                                 #    AT COLD SOAK ATTITUDE
023508,002059: 
023509,002060: 33,6454           02362                           TC       NEWMODE                               
023510,002061: 33,6455           00022                           OCT      00022                                 
023511,002062: 
023512,002063: 33,6456           06473                           TC       ENDMANU    +1                         
023513,002064: 
023514,002065: 33,6457           43576        JUMP6              TEST     0                                     
023515,002066: 33,6460           00056                                    TABTFLAG                              
023516,002067: 33,6461           26473                                    ENDMANU                               
023517,002068: 
023518,002069: 33,6462           77576                           EXIT     0                                     
023519,002070: 
023520,002071: 33,6463           20017                           INHINT                                         
023521,002072: 33,6464           34516                           CAF      0.01SEC                               
023522,002073: 33,6465           02173                           TC       WAITLIST                              
023523,002074: 33,6466           64527                           CADR     ATTCNOFF                              
023524,002075: 
023525,002076: 33,6467           35503                           CAF      TWO                                   #  SET VGCNTR FOR THREE PASSES THROUGH
023526,002077: 33,6470           51446                           TS       VGCNTR                                #  CALCVGB BEFORE STARTING ABORT STEERING
023527,002078: 
023528,002079: 33,6471           06473                           TC       ENDMANU    +1                         
023529,002080: 
023530,002081: 33,6472           77576        ENDMANU            EXIT     0                                     
023531,002082: 
023532,002083: 33,6473           44516                           CS       ONE                                   
023533,002084: 33,6474           02312                           TC       NEWPHASE                              
023534,002085: 33,6475           00002                           OCT      2                                     

Page 600

023536,002087: 33,6476           02124                           TC       ENDOFJOB                              
023537,002088: 

Page 601

023539,002090: 
023540,002091: 33,6477           45575        GETMANU            ITA      1                                     
023541,002092: 33,6500           76776                           ITC                                            
023542,002093: 33,6501           01475                                    EXITCAD1                              
023543,002094: 33,6502           14001                                    CALCMANU                              
023544,002095: 
023545,002096: 33,6503           43576                           TEST     0                                     
023546,002097: 33,6504           00046                                    CALCFLAG                              
023547,002098: 33,6505           26431                                    SNAPOUT                               
023548,002099: 
023549,002100: 33,6506           53574                           AXC,1    2                                     
023550,002101: 33,6507           43455                           TEST     AXC,1                                 
023551,002102: 33,6510           43455                           TEST     AXC,1                                 
023552,002103: 33,6511           00001                                    0                                     
023553,002104: 33,6512           00045                                    ROLLFLAG                              
023554,002105: 33,6513           26521                                    SETDTH                                
023555,002106: 33,6514           00003                                    2                                     
023556,002107: 33,6515           00043                                    CDUXFLAG                              
023557,002108: 33,6516           26521                                    SETDTH                                
023558,002109: 33,6517           00005                                    4                                     
023559,002110: 
023560,002111: 33,6520           44176        SETDTH             DMOVE*   0                                     
023561,002112: 33,6521           33461                                    DTH,1                                 
023562,002113: 33,6522           33453                           STORE    DTHETA                                
023563,002114: 
023564,002115: 33,6523           44576                           ITCI     0                                     
023565,002116: 33,6524           01475                                    EXITCAD1                              
023566,002117: 
023567,002118: 
023568,002119: 
023569,002120: 33,6525     4516               0.01SEC            EQUALS   BIT1                                  
023570,002121: 

Page 602

023572,002123: 
023573,002124: 33,6525           03440        DOMANU             TC       FLAG2UP                               #  SET DOMANU FLAG
023574,002125: 33,6526           01000        DOMANMSK           OCT      01000                                 
023575,002126: 
023576,002127: 33,6527           40647        DOMANU1            CS       FLAGWRD2                              #  KILL DOMANU IF CALC FLAG NOT SET
023577,002128: 33,6530           74504                           MASK     BIT11                                 #  (CALCMASK)
023578,002129: 33,6531           10000                           CCS      A                                     
023579,002130: 33,6532           06552                           TC       DOMANOFF                              
023580,002131: 
023581,002132: 33,6533           36526                           CAF      DOMANMSK                              #  TEST IF DOMAN FLAG SET
023582,002133: 33,6534           70647                           MASK     FLAGWRD2                              
023583,002134: 33,6535           10000                           CCS      A                                     
023584,002135: 33,6536           06543                           TC       SETMANU                               #  IT IS
023585,002136: 
023586,002137: 33,6537           36556                           CAF      TPAD       +1                         #  IT IS NOT. START NEXT MANEUVER IN TPAD
023587,002138: 33,6540           02173                           TC       WAITLIST                              #  SECS
023588,002139: 33,6541           66525                           CADR     DOMANU                                
023589,002140: 
023590,002141: 33,6542           02256                           TC       TASKOVER                              
023591,002142: 
023592,002143: 33,6543           32156        SETMANU            CAF      PRIO23                                #  ESTABLISH MANUJOB
023593,002144: 33,6544           02046                           TC       FINDVAC                               
023594,002145: 33,6545           66560                           CADR     MANUJOB                               
023595,002146: 
023596,002147: 33,6546           36557                           CAF      0.5SEC                                #  RECALL DOMANU1 IN 0.5 SECS
023597,002148: 33,6547           02173                           TC       WAITLIST                              
023598,002149: 33,6550           66527                           CADR     DOMANU1                               
023599,002150: 
023600,002151: 33,6551           02256                           TC       TASKOVER                              
023601,002152: 
023602,002153: 33,6552           03452        DOMANOFF           TC       FLAG2DWN                              #  REMOVE DOMANU FLAG
023603,002154: 33,6553           01000                           OCT      01000                                 
023604,002155: 
023605,002156: 33,6554           02256                           TC       TASKOVER                              
023606,002157: 
023607,002158: 
023608,002159: 
023609,002160: 33,6555           00000        TPAD               DEC      0.0                                   
023610,002161: 33,6556           00764        5SEC               DEC      500        B-14                       
023611,002162: 33,6557           00062        0.5SEC             DEC      50         B-14                       
023612,002163: 
023613,002164: 
023614,002165: 
023615,002166: 33,6560           04000        MANUJOB            TC       INTPRET                               
023616,002167: 
023617,002168: 33,6561           66775                           DSU      1                                     #  TEST IF THETAMAN LESS THAN DTHETA.
023618,002169: 33,6562           43633                           BPL      COMP                                  
023619,002170: 33,6563           01453                                    DTHETA                                
023620,002171: 33,6564           01455                                    THETAMAN                              
023621,002172: 33,6565           26572                                    JUMP4                                 #  IT IS. STORE REMAINING THETAMAN
023622,002173: 33,6566           33455                           STORE    THETAMAN                              

Page 603

023624,002175: 33,6567           76776                           ITC      0                                     
023625,002176: 33,6570           26601                                    DRIVECDU                              
023626,002177: 
023627,002178: 33,6571           45176        JUMP4              DMOVE    0                                     #  STORE REMAINING THETAMAN IN DTHETA
023628,002179: 33,6572           01455                                    THETAMAN                              
023629,002180: 33,6573           33453                           STORE    DTHETA                                
023630,002181: 
023631,002182: 33,6574           77576                           EXIT     0                                     
023632,002183: 
023633,002184: 33,6575           03452                           TC       FLAG2DWN                              #  REMOVE DOMAN FLAG
023634,002185: 33,6576           01000                           OCT      01000                                 
023635,002186: 
023636,002187: 33,6577           04000                           TC       INTPRET                               
023637,002188: 
023638,002189: 33,6600           75775        DRIVECDU           VXSC     1                                     #  FORM INCREMENTAL MANEUVER VECTOR
023639,002190: 33,6601           44772                           VSLT     ITC                                   
023640,002191: 33,6602           01323                                    WC                                    
023641,002192: 33,6603           01453                                    DTHETA                                
023642,002193: 33,6604           00002                                    1                                     
023643,002194: 33,6605           12375                                    CDUDRIVE                              
023644,002195: 
023645,002196: 33,6606           43576                           TEST     0                                     #  TEST IF DOMAN FLAG SET
023646,002197: 33,6607           00047                                    DOMANFLG                              
023647,002198: 33,6610           26614                                    NEXTMAN                               #  IT IS NOT. GET NEXT MANEUVER
023648,002199: 
023649,002200: 33,6611           77576                           EXIT     0                                     
023650,002201: 33,6612           02124                           TC       ENDOFJOB                              
023651,002202: 
023652,002203: 33,6613           77576        NEXTMAN            EXIT     0                                     
023653,002204: 
023654,002205: 33,6614           20017                           INHINT                                         
023655,002206: 33,6615           32146                           CAF      PRIO12                                #  ESTABLISH ATTIJOB2 TO COMPUTE NEXT MAN.
023656,002207: 33,6616           02046                           TC       FINDVAC                               
023657,002208: 33,6617           66423                           CADR     ATTIJOB2                              
023658,002209: 
023659,002210: 33,6620           02124                           TC       ENDOFJOB                              
023660,002211: 

Page 604

023662,002213: 
023663,002214: 33,6621           02362        SOAKINIT           TC       NEWMODE                               #  SET MAJOR MODE TO MANEUVER TO COLDSOAK
023664,002215: 33,6622           00021                           OCT      00021                                 
023665,002216: 
023666,002217: 33,6623           04000                           TC       INTPRET                               
023667,002218: 
023668,002219: 33,6624           43176                           SMOVE    0                                     
023669,002220: 33,6625           01676                                    ANGLEZ                                #  COLDSOAK -  Z GIMBAL ANGLE
023670,002221: 
023671,002222: 33,6626           43176                           SMOVE    0                                     
023672,002223: 33,6627           01675                                    ANGLEY                                #  COLDSOAK -  Y GIMBAL ANGLE
023673,002224: 
023674,002225: 33,6630           43175                           SMOVE    1                                     
023675,002226: 33,6631           41033                           VDEF     COMP                                  
023676,002227: 33,6632           01674                                    ANGLEX                                #  COLDSOAK -  X GIMBAL ANGLE
023677,002228: 33,6633           33315                           STORE    CDUTEMP                               
023678,002229: 
023679,002230: 33,6634           75575                           AXT,1    1                                     
023680,002231: 33,6635           76776                           ITC                                            
023681,002232: 33,6636           00007                                    6                                     
023682,002233: 33,6637           12041                                    SINCOS                                
023683,002234: 
023684,002235: 33,6640           76776                           ITC      0                                     
023685,002236: 33,6641           12110                                    CALCSMNB                              #  NAV BASE IN SM COORDINATES
023686,002237: 
023687,002238: 33,6642           76776                           ITC      0                                     
023688,002239: 33,6643           12213                                    CALCNBSC                              #  SC IN SM COORDINATES
023689,002240: 
023690,002241: 33,6644           75176                           VMOVE    0                                     
023691,002242: 33,6645           01367                                    XSC                                   
023692,002243: 33,6646           33411                           STORE    XSCD                                  
023693,002244: 
023694,002245: 33,6647           75176                           VMOVE    0                                     
023695,002246: 33,6650           01375                                    YSC                                   
023696,002247: 33,6651           33417                           STORE    YSCD                                  
023697,002248: 
023698,002249: 33,6652           75176                           VMOVE    0                                     
023699,002250: 33,6653           01403                                    ZSC                                   
023700,002251: 33,6654           33425                           STORE    ZSCD                                  
023701,002252: 
023702,002253: 33,6655           76776                           ITC      0                                     #  BRANCH TO DO MANEUVER
023703,002254: 33,6656           26414                                    ATTIJOB1                              
023704,002255: 

Page 605

023706,002257: 
023707,002258: 33,6657           45501        SOAKTASK           CS       ZERO                                  #  COME HERE FIRST TIME ONLY. CLEAR OUT
023708,002259: 33,6660           51001                           TS       DELV                                  #  DELV FOR FREE-FALL COMPUTATIONS
023709,002260: 33,6661           51002                           TS       DELV       +1                         
023710,002261: 33,6662           51003                           TS       DELV       +2                         
023711,002262: 33,6663           51004                           TS       DELV       +3                         
023712,002263: 33,6664           51005                           TS       DELV       +4                         
023713,002264: 33,6665           51006                           TS       DELV       +5                         
023714,002265: 
023715,002266: 33,6666           34500        SOAKTSK1           CAF      BIT15                                 #  TEST IF COAST FLAG SET
023716,002267: 33,6667           70646                           MASK     FLAGWRD1                              
023717,002268: 33,6670           10000                           CCS      A                                     
023718,002269: 33,6671           03062                           TC       CCSHOLE                               
023719,002270: 33,6672           02256                           TC       TASKOVER                              
023720,002271: 
023721,002272: 33,6673           35362                           CAF      SEVEN                                 
023722,002273: 33,6674           02312                           TC       NEWPHASE                              
023723,002274: 33,6675           00005                           OCT      0005                                  
023724,002275: 
023725,002276: 33,6676           40036        REDO5.7            CS       TIME1                                 
023726,002277: 33,6677           50667                           TS       TBASE5                                
023727,002278: 
023728,002279: 33,6700           34513                           CAF      EIGHT                                 
023729,002280: 33,6701           02312                           TC       NEWPHASE                              
023730,002281: 33,6702           00005                           OCT      00005                                 
023731,002282: 
023732,002283: 33,6703           36712                           CAF      2SEC33                                
023733,002284: 33,6704           02173                           TC       WAITLIST                              
023734,002285: 33,6705           66666                           CADR     SOAKTSK1                              
023735,002286: 
023736,002287: 33,6706           32147                           CAF      PRIO13                                
023737,002288: 33,6707           02046                           TC       FINDVAC                               
023738,002289: 33,6710           66713                           CADR     SOAKJOB                               
023739,002290: 
023740,002291: 33,6711           02256                           TC       TASKOVER                              
023741,002292: 
023742,002293: 33,6712           00310        2SEC33             DEC      200        B-14                       
023743,002294: 

Page 606

023745,002296: 
023746,002297: 33,6713           40646        SOAKJOB            CS       FLAGWRD1                              #  TEST SOAKFLAG
023747,002298: 33,6714           74502                           MASK     BIT13                                 
023748,002299: 33,6715           10000                           CCS      A                                     
023749,002300: 33,6716           07030                           TC       SOAKEXIT                              #  SOAKFLAG OFF
023750,002301: 33,6717           04000                           TC       INTPRET                               #   SOAKFLAG ON
023751,002302: 
023752,002303: 33,6720           45176                           DMOVE    0                                     #  SET DELTAT TO 4 SECS FOR ORBITAL INT.
023753,002304: 33,6721           27036                                    DT4SEC                                
023754,002305: 33,6722           33030                           STORE    DELTAT                                
023755,002306: 
023756,002307: 33,6723           75176                           VMOVE    0                                     #  SAVE VRECT AND RRECT IN CASE OF RESTARTS
023757,002308: 33,6724           01101                                    RRECT                                 
023758,002309: 33,6725           33656                           STORE    RRECCMEM                              
023759,002310: 
023760,002311: 33,6726           75176                           VMOVE    0                                     
023761,002312: 33,6727           01107                                    VRECT                                 
023762,002313: 33,6730           33664                           STORE    VRECCMEM                              
023763,002314: 
023764,002315: 33,6731           77576                           EXIT     0                                     
023765,002316: 33,6732           02276                           TC       PHASCHNG                              
023766,002317: 33,6733           01205                           OCT      01205                                 
023767,002318: 
023768,002319: 33,6734           03430        REDO5.10           TC       FLAG1DWN                              #  REMOVE COAST, SOAK FLAGS
023769,002320: 33,6735           50000                           OCT      50000                                 
023770,002321: 
023771,002322: 33,6736           04000                           TC       INTPRET                               
023772,002323: 
023773,002324: 33,6737           75176                           VMOVE    0                                     #  RESTORE RRECT AND VRECT FROM CMEMORY.
023774,002325: 33,6740           01656                                    RRECCMEM                              
023775,002326: 33,6741           33101                           STORE    RRECT                                 
023776,002327: 
023777,002328: 33,6742           75176                           VMOVE    0                                     
023778,002329: 33,6743           01664                                    VRECCMEM                              
023779,002330: 33,6744           33107                           STORE    VRECT                                 
023780,002331: 
023781,002332: 33,6745           76776                           ITC      0                                     #  BRANCH TO DO ORBITAL INTEGRATION
023782,002333: 33,6746           20001                                    AVETOMD1                              
023783,002334: 
023784,002335: 33,6747           75175                           VMOVE    1                                     
023785,002336: 33,6750           44776                           VSLT                                           
023786,002337: 33,6751           01231                                    RIG-4SEC                              
023787,002338: 33,6752           00002                                    RSCALE     -15D                       
023788,002339: 33,6753           32766                           STORE    RN                                    #  SET RN TO 4 SECS BEFORE IGNITION
023789,002340: 
023790,002341: 33,6754           76575                           RTB      1                                     
023791,002342: 33,6755           76776                           ITC                                            
023792,002343: 33,6756           20265                                    FRESHPD                               
023793,002344: 33,6757           21643                                    CALCGRAV                              
023794,002345: 
023795,002346: 33,6760           75176                           VMOVE    0                                     

Page 607

023797,002348: 33,6761           01107                                    VIGNTION                              
023798,002349: 33,6762           32774                           STORE    VN                                    #  SET VN AT IGNITION
023799,002350: 
023800,002351: 33,6763           75575                           AXT,1    1                                     #  GET VR AT 4 SECS BEFORE IGNITION
023801,002352: 33,6764           67572                           SXA,1    ITC                                   
023802,002353: 33,6765           12462                                    501SPS2                               
023803,002354: 33,6766           01471                                    VRCADR                                
023804,002355: 33,6767           12421                                    CALCVGB                               
023805,002356: 
023806,002357: 33,6770           75175                           VMOVE    1                                     
023807,002358: 33,6771           44776                           VSLT                                           
023808,002359: 33,6772           01101                                    RIGNTION                              
023809,002360: 33,6773           00002                                    RSCALE     -15D                       
023810,002361: 33,6774           32766                           STORE    RN                                    #  SET RN AT IGNITION
023811,002362: 
023812,002363: 33,6775           76776                           ITC      0                                     
023813,002364: 33,6776           21643                                    CALCGRAV                              
023814,002365: 
023815,002366: 33,6777           76776                           ITC      0                                     
023816,002367: 33,7000           12421                                    CALCVGB                               #  GET VR AT IGNITION. COMPUTE CBDT
023817,002368: 
023818,002369: 33,7001           76776                           ITC      0                                     
023819,002370: 33,7002           26256                                    BURNINIT                              #  INITIALISE BURN
023820,002371: 
023821,002372: 33,7003           45176                           DMOVE    0                                     
023822,002373: 33,7004           27034                                    DT2SEC                                
023823,002374: 33,7005           33030                           STORE    DELTAT                                #  RESTORE DELTAT TO 2 SECS FOR SPS2
023824,002375: 
023825,002376: 33,7006           75176                           VMOVE    0                                     
023826,002377: 33,7007           01223                                    VAVEGON                               
023827,002378: 33,7010           32774                           STORE    VN                                    #  INITIALISE CALCRVG FOR TURN-ON
023828,002379: 
023829,002380: 33,7011           75175                           VMOVE    1                                     
023830,002381: 33,7012           44776                           VSLT                                           
023831,002382: 33,7013           01215                                    RAVEGON                               
023832,002383: 33,7014           00002                                    RSCALE     -15D                       
023833,002384: 33,7015           32766                           STORE    RN                                    
023834,002385: 
023835,002386: 33,7016           76776                           ITC      0                                     
023836,002387: 33,7017           21643                                    CALCGRAV                              
023837,002388: 
023838,002389: 33,7020           77576                           EXIT     0                                     
023839,002390: 
023840,002391: 33,7021           34516                           CAF      ONE                                   #  SET VGCNTR FOR TWO PASSES THRU CALCVGB
023841,002392: 33,7022           51446                           TS       VGCNTR                                #  BEFORE SPS2 STEERING
023842,002393: 
023843,002394: 33,7023           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO READY FOR R,V,T UPDATE
023844,002395: 33,7024           00024                           OCT      00024                                 
023845,002396: 
023846,002397: 33,7025           02276                           TC       PHASCHNG                              #  CHANGE PHASE TO 5.20 TO ENABLE V76 RST.

Page 608

023848,002399: 33,7026           02405                           OCT      02405                                 
023849,002400: 
023850,002401: 33,7027           02124                           TC       ENDOFJOB                              
023851,002402: 
023852,002403: 33,7030           02276        SOAKEXIT           TC       PHASCHNG                              
023853,002404: 33,7031           01305                           OCT      01305                                 
023854,002405: 
023855,002406: 33,7032           02124                           TC       ENDOFJOB                              
023856,002407: 
023857,002408: 33,7033           14400 00000  DT2SEC             2DEC     200        B-9                        
023858,002409: 33,7035           31000 00000  DT4SEC             2DEC     400        B-9                        
023859,002410: 24,6201                                           BANK     24                                    
023860,002411: 

Page 609

023862,002413: 
023863,002414:                                                                                                  #  UPTASK AND UPJOB OCCUR 120 SECS BEFORE PLUSX2 AND INCORPORATE STATE VECTOR UPDATES VIA VERB 76
023864,002415: 
023865,002416: 24,6201           36352        UPTASK             CAF      10SEC24                               #  SCHEDULE FDAI ALIGN OFF IN 10 SECS
023866,002417: 24,6202           02173                           TC       WAITLIST                              
023867,002418: 24,6203           50327                           CADR     FDAIOFF2                              
023868,002419: 
023869,002420: 24,6204           03373                           TC       RELAYON                               #  SET SCS FDAI ALIGN DISCRETE (C31)
023870,002421: 24,6205           40400                           OCT      40400                                 
023871,002422: 
023872,002423: 24,6206           34373                           CAF      PRIO6                                 #  ESTABLISH UPJOB
023873,002424: 24,6207           02046                           TC       FINDVAC                               
023874,002425: 24,6210           50225                           CADR     UPJOB                                 
023875,002426: 
023876,002427: 24,6211           35362                           CAF      SEVEN                                 
023877,002428: 24,6212           02312                           TC       NEWPHASE                              
023878,002429: 24,6213           00004                           OCT      00004                                 
023879,002430: 
023880,002431: 24,6214           40036                           CS       TIME1                                 
023881,002432: 24,6215           50666                           TS       TBASE4                                
023882,002433: 
023883,002434: 24,6216           44516                           CS       ONE                                   #  REMOVE UPDATE RESTART CAPABILITY
023884,002435: 24,6217           02312                           TC       NEWPHASE                              
023885,002436: 24,6220           00005                           OCT      5                                     
023886,002437: 
023887,002438: 24,6221           34513                           CAF      EIGHT                                 
023888,002439: 24,6222           02312                           TC       NEWPHASE                              
023889,002440: 24,6223           00004                           OCT      00004                                 
023890,002441: 
023891,002442: 24,6224           02256                           TC       TASKOVER                              
023892,002443: 
023893,002444: 24,6225           02362        UPJOB              TC       NEWMODE                               #  REVERT TO ATTITUDE HOLD WITH NO V76.
023894,002445: 24,6226           00022                           OCT      22                                    
023895,002446: 
023896,002447: 24,6227           32566                           CAF      LDNLST1                               #  REVERT BACK TO DOWNLIST 1.
023897,002448: 24,6230           50672                           TS       DNLSTADR                              
023898,002449: 
023899,002450: 24,6231           04000                           TC       INTPRET                               
023900,002451: 
023901,002452: 24,6232           43574                           TEST     2                                     #  NO FURTHER ACTION IF NO V76 COMPLETED.
023902,002453: 24,6233           70742                           DAD      DAD                                   #  IF SO, FORM DT FOR FINAL INTEGRATION.
023903,002454: 24,6234           66776                           DSU                                            
023904,002455: 24,6235           00023                                    UPDATFLG                              
023905,002456: 24,6236           10310                                    NOSTATE                               
023906,002457: 24,6237           01463                                    TCUTOFF                               
023907,002458: 24,6240           01557                                    TCOAST                                
023908,002459: 24,6241           10351                                    DP120SEC                              
023909,002460: 24,6242           01115                                    STBUFF     +12D                       
023910,002461: 24,6243           33211                           STORE    TAVEGON                               
023911,002462: 
023912,002463: 24,6244           52775                           MXV      1                                     

Page 610

023914,002465: 24,6245           44776                           VSLT                                           
023915,002466: 24,6246           01101                                    RRECT                                 
023916,002467: 24,6247           01052                                    REFSMMAT                              
023917,002468: 24,6250           00002                                    1                                     #  THIS ASSUMES THAT UPDATE SCALED 2(26)M
023918,002469: 24,6251           33656                           STORE    RRECCMEM                              
023919,002470: 
023920,002471: 24,6252           52775                           MXV      1                                     
023921,002472: 24,6253           44776                           VSLT                                           
023922,002473: 24,6254           01107                                    VRECT                                 
023923,002474: 24,6255           01052                                    REFSMMAT                              
023924,002475: 24,6256           00002                                    1                                     #  THIS ASSUMES THAT UPDATE SCALED 2(7)M/CS
023925,002476: 24,6257           33664                           STORE    VRECCMEM                              
023926,002477: 
023927,002478: 24,6260           77576                           EXIT     0                                     
023928,002479: 24,6261           02276                           TC       PHASCHNG                              
023929,002480: 24,6262           03504                           OCT      03504                                 
023930,002481: 
023931,002482: 24,6263           04000        REDO4.29           TC       INTPRET                               
023932,002483: 24,6264           75176                           VMOVE    0                                     
023933,002484: 24,6265           01656                                    RRECCMEM                              
023934,002485: 24,6266           33101                           STORE    RRECT                                 
023935,002486: 
023936,002487: 24,6267           75176                           VMOVE    0                                     
023937,002488: 24,6270           01664                                    VRECCMEM                              
023938,002489: 24,6271           33107                           STORE    VRECT                                 
023939,002490: 
023940,002491: 24,6272           76776                           ITC      0                                     
023941,002492: 24,6273           20010                                    AVETOMD2                              
023942,002493: 
023943,002494: 24,6274           75176                           VMOVE    0                                     #  LEAVE RAVEGON, VAVEGON IN RN, VN.
023944,002495: 24,6275           01223                                    VAVEGON                               
023945,002496: 24,6276           32774                           STORE    VN                                    
023946,002497: 
023947,002498: 24,6277           44776                           VSLT     0                                     
023948,002499: 24,6300           01215                                    RAVEGON                               
023949,002500: 24,6301           00002                                    RSCALE     -15D                       
023950,002501: 24,6302           32766                           STORE    RN                                    
023951,002502: 
023952,002503: 24,6303           76575                           RTB      1                                     
023953,002504: 24,6304           76776                           ITC                                            
023954,002505: 24,6305           20265                                    FRESHPD                               
023955,002506: 24,6306           21643                                    CALCGRAV                              
023956,002507: 
023957,002508: 24,6307           76776        NOSTATE            ITC      0                                     #  GO GET TFF
023958,002509: 24,6310           22001                                    CALCTFF                               
023959,002510: 
023960,002511: 24,6311           66775                           DSU      1                                     #  SEE IF TFF IS TOO HIGH
023961,002512: 24,6312           43775                           BPL      EXIT                                  
023962,002513: 24,6313           01457                                    TFF                                   
023963,002514: 24,6314           10356                                    TFFLIMIT                              

Page 611

023965,002516: 24,6315           10324                                    TFF2DOWN                              #  YES
023966,002517: 
023967,002518: 24,6316           02362        SETMM23            TC       NEWMODE                               #  HOLD ATTITUDE AFTER ORBITAL INTEGRATION
023968,002519: 24,6317           00023                           OCT      23                                    
023969,002520: 
023970,002521: 24,6320           02276                           TC       PHASCHNG                              
023971,002522: 24,6321           01104                           OCT      01104                                 
023972,002523: 
023973,002524: 24,6322           03151        REDO4.9            TC       JAMTERM                               #  FLUSH OUT V76 IF STILL IN PINBALL
023974,002525: 
023975,002526: 
023976,002527: 
023977,002528: 24,6323           77576        TFF2DOWN           EXIT     0                                     
023978,002529: 24,6324           03474                           TC       STATEDWN                              #  RESET TFF2 FLAG
023979,002530: 24,6325           10000                           OCT      10000                                 
023980,002531: 24,6326           06316                           TC       SETMM23                               
023981,002532: 
023982,002533: 
023983,002534: 
023984,002535: 24,6327           03405        FDAIOFF2           TC       RELAYOFF                              #  REMOVE SCS FDAI ALIGN DISCRETE (C31)
023985,002536: 24,6330           40400                           OCT      40400                                 
023986,002537: 
023987,002538: 24,6331           36353                           CAF      105SEC                                
023988,002539: 24,6332           02173                           TC       WAITLIST                              
023989,002540: 24,6333           50335                           CADR     PREAVGON                              
023990,002541: 
023991,002542: 24,6334           02256                           TC       TASKOVER                              
023992,002543: 
023993,002544: 
023994,002545: 
023995,002546: 24,6335           36354        PREAVGON           CAF      5SEC24                                
023996,002547: 24,6336           02173                           TC       WAITLIST                              
023997,002548: 24,6337           50357                           CADR     AVGON                                 
023998,002549: 
023999,002550: 24,6340           03405                           TC       RELAYOFF                              #  BACK-UP FDAI ALIGN OFF IN CASE OF
024000,002551: 24,6341           40400                           OCT      40400                                 #    RESTARTS
024001,002552: 
024002,002553: 24,6342           03430                           TC       FLAG1DWN                              #  REMOVE UPDAT FLAG TO KILL ORB. INTEGR.
024003,002554: 24,6343           20000                           OCT      20000                                 
024004,002555: 
024005,002556: 24,6344           33553                           CAF      TWENTY7                               
024006,002557: 24,6345           02312                           TC       NEWPHASE                              
024007,002558: 24,6346           00004                           OCT      4                                     
024008,002559: 
024009,002560: 24,6347           02256                           TC       TASKOVER                              
024010,002561: 
024011,002562: 24,6350           00000 27340  DP120SEC           2DEC     12000      B-28                       
024012,002563: 24,6352           01750        10SEC24            DEC      1000       B-14                       
024013,002564: 24,6353           24404        105SEC             DEC      10500      B-14                       

Page 612

024015,002566: 24,6354           00764        5SEC24             DEC      500        B-14                       
024016,002567: 24,6355           34631 23146  TFFLIMIT           2DEC     .9                                    #  JUST SO ITS HIGH
024017,002568: 

Page 613

024019,002570: 
024020,002571:                                                                                                  #  SHUTDOWN IS A CLOSED SUBROUTINE WHICH IS ENTERED PRIOR TO CM/SM SEPARATION. ITS PURPOSE IS TO CLOSE OUT ALL SCS
024021,002572:                                                                                                  #  FUNCTIONS NOT CONCERNED WITH SEPARATION AND ENTRY, AND TO INITIATE THOSE THAT ARE
024022,002573: 
024023,002574: 33,7037                                           BANK     33                                    
024024,002575: 
024025,002576: 33,7037           20017        SHUTDOWN           INHINT                                         
024026,002577: 33,7040           32162                           CAF      PRIO27                                #  ESTABLISH HIGH PRIO JOB TO DO SHUTDOWN
024027,002578: 33,7041           02052                           TC       NOVAC                                 
024028,002579: 33,7042           11147                           CADR     ENEMA                                 #  CLEANS OUT EXEC AND WAITLIST.
024029,002580: 33,7043           20016                           RELINT                                         
024030,002581: 
024031,002582: 33,7044           34516                           CAF      ONE                                   #  EFFECTIVELY STOP ANY WAITLIST ACTIVITY
024032,002583: 33,7045           50037                           TS       TIME3                                 
024033,002584: 
024034,002585: 33,7046           44516                           CS       ONE                                   
024035,002586: 33,7047           02312                           TC       NEWPHASE                              
024036,002587: 33,7050           00004                           OCT      00004                                 
024037,002588: 
024038,002589: 33,7051           44516                           CS       ONE                                   
024039,002590: 33,7052           02312                           TC       NEWPHASE                              
024040,002591: 33,7053           00002                           OCT      00002                                 
024041,002592: 
024042,002593: 33,7054           33232                           CAF      TEN                                   
024043,002594: 33,7055           02312                           TC       NEWPHASE                              
024044,002595: 33,7056           00003                           OCT      00003                                 
024045,002596: 
024046,002597: 33,7057           05702                           TC       SWRETURN                              #  (LOCATION OF TC Q)
024047,002598: 
024048,002599: 
024049,002600: 
024050,002601: 33,7060           20017        SHUTJOB            INHINT                                         
024051,002602: 33,7061           44502                           CS       BIT13                                 #  SHUT OFF ENGINE BIT
024052,002603: 33,7062           70011                           MASK     OUT1                                  
024053,002604: 33,7063           50011                           TS       OUT1                                  
024054,002605: 
024055,002606: 33,7064           03405                           TC       RELAYOFF                              #  REMOVE SCS +X TRANS DISCRETE
024056,002607: 33,7065           40020                           OCT      40020                                 
024057,002608: 
024058,002609: 33,7066           03430                           TC       FLAG1DWN                              #  REMOVE DVMON, STEER, INIT FLAGS
024059,002610: 33,7067           00430                           OCT      00430                                 
024060,002611: 
024061,002612: 33,7070           05654                           TC       BANKCALL                              #  SET IMUCDU TO ATT. CONTROL (MAY BE RE-
024062,002613: 33,7071           30223                           CADR     IMUATTC                               #  DUNDANT CALL)
024063,002614: 
024064,002615: 33,7072           03516                           TC       SETHETAD                              #  FORCE THETAD, +1, +2 TO READ CDUX,Y,Z
024065,002616: 
024066,002617: 33,7073           36254                           CAF      ALLABORT                              #  TEST IF ANY ABORT BURN SET
024067,002618: 33,7074           70647                           MASK     FLAGWRD2                              

Page 614

024069,002620: 33,7075           10000                           CCS      A                                     
024070,002621: 33,7076           07101                           TC       +3                                    #  IT IS
024071,002622: 
024072,002623: 33,7077           03504                           TC       SETBRNSW                              #  IT IS NOT. SET BURN TO LAST (SPS4)
024073,002624: 33,7100           00100                           OCT      00100                                 
024074,002625: 
024075,002626: 33,7101           05654                           TC       BANKCALL                              #  WAIT FOR MODE SWITCH TO COMPLETE
024076,002627: 33,7102           30331                           CADR     IMUSTALL                              
024077,002628: 33,7103           03066                           TC       CURTAINS                              #  CATCH-ALL FOR MODE SWITCH FAILURES
024078,002629: 
024079,002630: 33,7104           40036                           CS       TIME1                                 
024080,002631: 33,7105           50665                           TS       TBASE3                                
024081,002632: 
024082,002633: 33,7106           34505                           CAF      BIT10                                 #  TEST IF INTP FLAG SET (I.E. HAS 95 SEC
024083,002634: 33,7107           70646                           MASK     FLAGWRD1                              #  INTERUPT OCCURRED)
024084,002635: 33,7110           10000                           CCS      A                                     
024085,002636: 33,7111           07116                           TC       TESTGMP                               #  IT HAS NOT
024086,002637: 
024087,002638: 33,7112           34510                           CAF      BIT7                                  #  TEST IF INT1 FLAG SET (I.E. HAS 200 SEC
024088,002639: 33,7113           70646                           MASK     FLAGWRD1                              #  INTEREUPT OCCURRED)
024089,002640: 33,7114           10000                           CCS      A                                     
024090,002641: 33,7115           07126                           TC       SHUTJOB1                              #  IT HAS
024091,002642: 
024092,002643: 33,7116           34507        TESTGMP            CAF      BIT8                                  #  TEST IF SCS GMP DISCRETE SET
024093,002644: 33,7117           70725                           MASK     DSPTAB     +13D                       
024094,002645: 33,7120           10000                           CCS      A                                     
024095,002646: 33,7121           07147                           TC       GMPOFF1                               #  IF IT IS, TURN IT OFF
024096,002647: 
024097,002648: 33,7122           34515                           CAF      BIT2                                  #  TEST IF DV MODE SET
024098,002649: 33,7123           70725                           MASK     DSPTAB     +13D                       
024099,002650: 33,7124           10000                           CCS      A                                     
024100,002651: 33,7125           07156                           TC       DVMODOF1                              #  IF IT IS, TURN IT OFF
024101,002652: 
024102,002653: 33,7126           40646        SHUTJOB1           CS       FLAGWRD1                              #  TEST IF SHUTDN FLAG SET
024103,002654: 33,7127           74503                           MASK     BIT12                                 
024104,002655: 33,7130           10000                           CCS      A                                     
024105,002656: 33,7131           07215                           TC       SETATTC                               #  IT IS NOT. SHUTDOWN NOT DUE TO TFF
024106,002657: 
024107,002658: 33,7132           34505                           CAF      BIT10                                 #  TEST IF THIS IS 200 OR 95 SEC INTERRUPT
024108,002659: 33,7133           70646                           MASK     FLAGWRD1                              #  (INTP FLAG)
024109,002660: 33,7134           10000                           CCS      A                                     
024110,002661: 33,7135           07211                           TC       SETSEP                                #  200 SEC INTERRUPT
024111,002662: 
024112,002663: 33,7136           03452        KILLMANU           TC       FLAG2DWN                              #  REMOVE CALC FLAG (KILL ANY MANEUVER)
024113,002664: 33,7137           02000                           OCT      02000                                 
024114,002665: 
024115,002666: 33,7140           20017                           INHINT                                         #  ALLOW 5 SECS FOR CSM TO SETTLE FROM ANY
024116,002667: 33,7141           36556                           CAF      5SEC                                  #  ATTITUDE MANEUVER BEFORE SEPARATING
024117,002668: 33,7142           02173                           TC       WAITLIST                              
024118,002669: 33,7143           67260                           CADR     CDUXTASK                              

Page 615

024120,002671: 33,7144           02276                           TC       PHASCHNG                              
024121,002672: 33,7145           01303                           OCT      01303                                 
024122,002673: 
024123,002674: 33,7146           02124                           TC       ENDOFJOB                              
024124,002675: 
024125,002676: 33,7147           20017        GMPOFF1            INHINT                                         
024126,002677: 33,7150           36712                           CAF      2SEC33                                #  CALL FOR SCS GMP OFF IN 2 SECS
024127,002678: 33,7151           02173                           TC       WAITLIST                              
024128,002679: 33,7152           67166                           CADR     GMPOFF2                               
024129,002680: 
024130,002681: 33,7153           02276                           TC       PHASCHNG                              
024131,002682: 33,7154           02703                           OCT      02703                                 
024132,002683: 
024133,002684: 33,7155           02124                           TC       ENDOFJOB                              
024134,002685: 
024135,002686: 33,7156           20017        DVMODOF1           INHINT                                         
024136,002687: 33,7157           37221                           CAF      3.5SEC33                              #  CALL FOR DV MODE OFF IN 3.5 SECS
024137,002688: 33,7160           02173                           TC       WAITLIST                              
024138,002689: 33,7161           67177                           CADR     DVMODOF2                              
024139,002690: 33,7162           20016                           RELINT                                         
024140,002691: 
024141,002692: 33,7163           02276                           TC       PHASCHNG                              
024142,002693: 33,7164           03003                           OCT      03003                                 
024143,002694: 
024144,002695: 33,7165           02124                           TC       ENDOFJOB                              
024145,002696: 
024146,002697: 33,7166           03405        GMPOFF2            TC       RELAYOFF                              #  REMOVE SCS GMP DISCRETE
024147,002698: 33,7167           40200                           OCT      40200                                 
024148,002699: 
024149,002700: 33,7170           37221                           CAF      3.5SEC33                              #  CALL FOR DV MODE OFF IN 3.5 SECS
024150,002701: 33,7171           02173                           TC       WAITLIST                              
024151,002702: 33,7172           67177                           CADR     DVMODOF2                              
024152,002703: 
024153,002704: 33,7173           33551                           CAF      TWENTY5                               
024154,002705: 33,7174           02312                           TC       NEWPHASE                              
024155,002706: 33,7175           00003                           OCT      3                                     
024156,002707: 
024157,002708: 33,7176           02256                           TC       TASKOVER                              
024158,002709: 
024159,002710: 33,7177           03405        DVMODOF2           TC       RELAYOFF                              #  REMOVE SCS DV MODE DISCRETE
024160,002711: 33,7200           40002                           OCT      40002                                 
024161,002712: 
024162,002713: 33,7201           37220                           CAF      0.25S33                               #  CALL FOR SCS ATT. CONTROL IN U/4 SEC
024163,002714: 33,7202           02173                           TC       WAITLIST                              
024164,002715: 33,7203           67205                           CADR     SHUTASK                               
024165,002716: 
024166,002717: 33,7204           02256                           TC       TASKOVER                              
024167,002718: 
024168,002719: 33,7205           32162        SHUTASK            CAF      PRIO27                                #  ESTABLISH JOB TO RESUME SHUTDOWN PROCESS
024169,002720: 33,7206           02052                           TC       NOVAC                                 

Page 616

024171,002722: 33,7207           67126                           CADR     SHUTJOB1                              
024172,002723: 
024173,002724: 33,7210           02256                           TC       TASKOVER                              
024174,002725: 
024175,002726: 33,7211           20017        SETSEP             INHINT                                         
024176,002727: 33,7212           32146                           CAF      PRIO12                                
024177,002728: 33,7213           02046                           TC       FINDVAC                               #  CM/SM SEPARATION ATTITUDE
024178,002729: 33,7214           67224                           CADR     SEPMANU                               
024179,002730: 
024180,002731: 33,7215           03373        SETATTC            TC       RELAYON                               #  SET SCS ATT. CONTROL DISCRETE (C23)
024181,002732: 33,7216           40001                           OCT      40001                                 
024182,002733: 
024183,002734: 33,7217           02124                           TC       ENDOFJOB                              
024184,002735: 
024185,002736: 33,7220           00031        0.25S33            DEC      25         B-14                       
024186,002737: 33,7221           00536        3.5SEC33           DEC      350        B-14                       
024187,002738: 33,7222           00764        5SEC33             DEC      500        B-14                       
024188,002739: 33,7223           01274        7SEC33             DEC      700        B-14                       
024189,002740: 

Page 617

024191,002742: 
024192,002743: 33,7224           02362        SEPMANU            TC       NEWMODE                               #  SET MAJOR MODE TO SEPARATION MANEUVER
024193,002744: 33,7225           00061                           OCT      00061                                 
024194,002745: 
024195,002746: 33,7226           04000                           TC       INTPRET                               
024196,002747: 
024197,002748: 33,7227           73175                           UNIT     1                                     #  COMPUTE DESIRED S/C ORIENTATION FOR
024198,002749: 33,7230           75633                           VXSC     COMP                                  #  CM/SM SEPARATION
024199,002750: 33,7231           00774                                    VN                                    
024200,002751: 33,7232           27257                                    COS60                                 
024201,002752: 
024202,002753: 33,7233           47575                           NOLOD    1                                     
024203,002754: 33,7234           41753                           VXV      UNIT                                  
024204,002755: 33,7235           00766                                    RN                                    
024205,002756: 33,7236           33417                           STORE    YSCD                                  #  YSCD IS ALONG (RN*VN)
024206,002757: 
024207,002758: 33,7237           47573                           NOLOD    3                                     
024208,002759: 33,7240           41753                           VXV      UNIT                                  
024209,002760: 33,7241           75642                           VXSC     VAD                                   
024210,002761: 33,7242           47176                           COMP                                           
024211,002762: 33,7243           00774                                    VN                                    
024212,002763: 33,7244           27255                                    SIN60                                 
024213,002764: 33,7245           33411                           STORE    XSCD                                  #  XSCD IS 60 DEG ABOVE VELOCITY VECTOR
024214,002765: 
024215,002766: 33,7246           47575                           NOLOD    1                                     
024216,002767: 33,7247           41753                           VXV      UNIT                                  
024217,002768: 33,7250           01417                                    YSCD                                  
024218,002769: 33,7251           33425                           STORE    ZSCD                                  
024219,002770: 
024220,002771: 33,7252           76776                           ITC      0                                     #  BRANCH TO PERFORM MANEUVER TO THE
024221,002772: 33,7253           26414                                    ATTIJOB1                              #  SEPARATION ATTITUDE
024222,002773: 
024223,002774: 33,7254           33555 01106  SIN60              2DEC     0.86603                               
024224,002775: 33,7256           20000 00000  COS60              2DEC     0.5                                   
024225,002776: 

Page 618

024227,002778: 
024228,002779: 33,7260           36556        CDUXTASK           CAF      5SEC                                  #  ALLOW 5 SECS FOR CDUX RESOLVER SCALE
024229,002780: 33,7261           02173                           TC       WAITLIST                              #  CHANGE
024230,002781: 33,7262           67342                           CADR     CM/SMTSK                              
024231,002782: 
024232,002783: 33,7263           34501                           CAF      PRIO20                                
024233,002784: 33,7264           02046                           TC       FINDVAC                               
024234,002785: 33,7265           67274                           CADR     CDUXJOB                               
024235,002786: 
024236,002787: 33,7266           03405                           TC       RELAYOFF                              #  SET SCS TO MONITOR MODE
024237,002788: 33,7267           40007                           OCT      40007                                 
024238,002789: 
024239,002790: 33,7270           33534                           CAF      TWELVE                                
024240,002791: 33,7271           02312                           TC       NEWPHASE                              
024241,002792: 33,7272           00003                           OCT      00003                                 
024242,002793: 
024243,002794: 33,7273           02256                           TC       TASKOVER                              
024244,002795: 
024245,002796: 
024246,002797: 
024247,002798: 33,7274           40700        CDUXJOB            CS       THETAD                                
024248,002799: 33,7275           40000                           COM                                            
024249,002800: 33,7276           51314                           TS       CDUTEMP                               
024250,002801: 
024251,002802: 33,7277           11314                           CCS      CDUTEMP                               #  GET MAGNITUDE OF THETAD
024252,002803: 33,7300           64516                           AD       ONE                                   
024253,002804: 33,7301           07303                           TC       +2                                    
024254,002805: 33,7302           64516                           AD       ONE                                   
024255,002806: 33,7303           50115                           TS       MPAC                                  #  AND SAVE IT
024256,002807: 
024257,002808: 33,7304           25777                           EXTEND                                         #  FIND NEAREST INTEGER MULTIPLE OF 1/16
024258,002809: 33,7305           47353                           MP       15/16TH                               
024259,002810: 33,7306           64504                           AD       BIT11                                 
024260,002811: 33,7307           77354                           MASK     HIGH4                                 
024261,002812: 33,7310           30115                           XCH      MPAC                                  #  AND SAVE IT
024262,002813: 
024263,002814: 33,7311           25777                           EXTEND                                         #  SHIFT ORIGINAL THETAD RIGHT 4 PLACES
024264,002815: 33,7312           44504                           MP       BIT11                                 
024265,002816: 33,7313           60115                           AD       MPAC                                  #  AND ADD INTEGER MULTIPLE
024266,002817: 33,7314           20017                           INHINT                                         
024267,002818: 33,7315           50700                           TS       THETAD                                
024268,002819: 
024269,002820: 33,7316           11314                           CCS      CDUTEMP                               #  ATTACH SIGN OF ORIGINAL THETAD
024270,002821: 33,7317           30115                           XCH      MPAC                                  #  MPAC HAS POSITIVE CDUBIAS
024271,002822: 33,7320           07324                           TC       +4                                    
024272,002823: 33,7321           40700                           CS       THETAD                                
024273,002824: 33,7322           50700                           TS       THETAD                                
024274,002825: 
024275,002826: 33,7323           40115                           CS       MPAC                                  #  COMPLEMENT INTEGER MULTIPLE
024276,002827: 33,7324           51450                           TS       K1ROLL                                #  SCALED AT 1/2 REV FOR ENTRY
024277,002828: 33,7325           20016                           RELINT                                         

Page 619

024279,002830: 33,7326           02276                           TC       PHASCHNG                              
024280,002831: 33,7327           01503                           OCT      01503                                 
024281,002832: 
024282,002833: 33,7330           03440        REDO3.13           TC       FLAG2UP                               #  SET CDUX FLAG
024283,002834: 33,7331           20000                           OCT      20000                                 
024284,002835: 
024285,002836: 33,7332           05654                           TC       BANKCALL                              #  CHANGE IMUCDU MODE TO RE-ENTRY
024286,002837: 33,7333           30216                           CADR     IMUREENT                              
024287,002838: 
024288,002839: 33,7334           05654                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF MODE SWITCH
024289,002840: 33,7335           30331                           CADR     IMUSTALL                              
024290,002841: 33,7336           03066                           TC       CURTAINS                              #  CATCH-ALL FOR MODE SWITCH FAILURES
024291,002842: 
024292,002843: 33,7337           02276                           TC       PHASCHNG                              
024293,002844: 33,7340           01603                           OCT      01603                                 
024294,002845: 
024295,002846: 33,7341           02124                           TC       ENDOFJOB                              
024296,002847: 
024297,002848: 
024298,002849: 
024299,002850: 33,7342           03373        CM/SMTSK           TC       RELAYON                               #  SET SCS ENTRY MODE AND CM/SM SEPARATION
024300,002851: 33,7343           40014                           OCT      40014                                 #  DISCRETES
024301,002852: 
024302,002853: 33,7344           33537                           CAF      FIFTN                                 
024303,002854: 33,7345           02312                           TC       NEWPHASE                              
024304,002855: 33,7346           00003                           OCT      00003                                 
024305,002856: 
024306,002857: 33,7347           36556                           CAF      5SEC                                  #  SET CALL TO START PRE-ENTRY ATTITUDE
024307,002858: 33,7350           02173                           TC       WAITLIST                              #  MANEUVER IN 5 SECS
024308,002859: 33,7351           67355                           CADR     ENTATASK                              
024309,002860: 
024310,002861: 33,7352           02256                           TC       TASKOVER                              
024311,002862: 
024312,002863: 33,7353           36000        15/16TH            OCT      36000                                 
024313,002864: 33,7354           74000        HIGH4              OCT      74000                                 
024314,002865: 

Page 620

024316,002867: 
024317,002868: 33,7355           32146        ENTATASK           CAF      PRIO12                                
024318,002869: 33,7356           02046                           TC       FINDVAC                               
024319,002870: 33,7357           67361                           CADR     ENTAJOB                               
024320,002871: 
024321,002872: 33,7360           02256                           TC       TASKOVER                              
024322,002873: 
024323,002874: 
024324,002875: 
024325,002876: 33,7361           02362        ENTAJOB            TC       NEWMODE                               #  SET MAJOR MODE TO PRE-ENTRY MANEUVER
024326,002877: 33,7362           00062                           OCT      00062                                 
024327,002878: 
024328,002879: 33,7363           35501                           CAF      ZERO                                  
024329,002880: 33,7364           51472                           TS       ROLLC                                 #  ROLLC = +0
024330,002881: 33,7365           51473                           TS       ROLLC      +1                         
024331,002882: 
024332,002883: 33,7366           04000                           TC       INTPRET                               
024333,002884: 
024334,002885: 33,7367           76776        GOGETUNB           ITC      0                                     #  COMPUTE DESIRED NAV BASE COORDS.
024335,002886: 33,7370           21244                                    GETUNB                                
024336,002887: 
024337,002888: 33,7371           76776                           ITC      0                                     #  GET DESIRED S/C COORSD
024338,002889: 33,7372           12213                                    CALCNBSC                              
024339,002890: 
024340,002891: 33,7373           75176                           VMOVE    0                                     #  TRANSFER DESIRED S/C UNIT VECTORS
024341,002892: 33,7374           01367                                    XSC                                   
024342,002893: 33,7375           33411                           STORE    XSCD                                  
024343,002894: 
024344,002895: 33,7376           75176                           VMOVE    0                                     
024345,002896: 33,7377           01375                                    YSC                                   
024346,002897: 33,7400           33417                           STORE    YSCD                                  
024347,002898: 
024348,002899: 33,7401           75176                           VMOVE    0                                     
024349,002900: 33,7402           01403                                    ZSC                                   
024350,002901: 33,7403           33425                           STORE    ZSCD                                  
024351,002902: 
024352,002903: 33,7404           76776                           ITC      0                                     #  BRANCH TO PERFORM MANEUVER TO PRE-ENTRY
024353,002904: 33,7405           26414                                    ATTIJOB1                              #  ATTITUDE
024354,002905: 
024355,002906: 33,7406           00007        ABORT33            OCT      00007                                 #  (OR OF ARRST,TABT,ABRT)
024356,002907: 
024357,002908: 
024358,002909: 
024359,002910: 24,6357                                           BANK     24                                    
024360,002911: 
024361,002912: 24,6357           36456        AVGON              CAF      PIPCAD24                              #  CLEAR AND EXCHANGE PIPAS TO SAVE DELV
024362,002913: 24,6360           05750                           TC       ISWCALL                               #  ACCUMULATED DURING COAST PERIOD
024363,002914: 
024364,002915: 24,6361           03452                           TC       FLAG2DWN                              #  DISABLE FREE-FALL GYRO BIAS COMPENSATION
024365,002916: 24,6362           40000                           OCT      40000                                 #  (REMOVE DRIFT FLAG)

Page 621

024367,002918: 24,6363           03462                           TC       STATEUP                               #  SET BIAS FLAG
024368,002919: 24,6364           04000                           OCT      04000                                 
024369,002920: 
024370,002921: 24,6365           41465                           CS       PIPTIME    +1                         
024371,002922: 24,6366           50667                           TS       TBASE5                                
024372,002923: 
024373,002924: 24,6367           34475                           CAF      SIX                                   
024374,002925: 24,6370           02312                           TC       NEWPHASE                              
024375,002926: 24,6371           00005                           OCT      00005                                 
024376,002927: 
024377,002928: 24,6372           34502                           CAF      BIT13                                 #  IF TFF2 FLAG NOT SET, DO WHAT SERVICER
024378,002929: 24,6373           70645                           MASK     STATE                                 #    WOULD HAVE DONE WHEN TFF = TFFMIN
024379,002930: 24,6374           10000                           CCS      A                                     
024380,002931: 24,6375           06433                           TC       GO/ON                                 #  TFF2 FLAG SET
024381,002932: 
024382,002933: 24,6376           03504                           TC       SETBRNSW                              #  SET BURN TO SPS2 BACK UP SETTING
024383,002934: 24,6377           00020                           OCT      00020                                 
024384,002935: 
024385,002936: 24,6400           03416                           TC       FLAG1UP                               #  SET INIT FLAG TO RE-MANEUVER TO SPS2 ATT
024386,002937: 24,6401           00400                           OCT      00400                                 
024387,002938: 
024388,002939: 24,6402           34516                           CAF      ONE                                   
024389,002940: 24,6403           51446                           TS       VGCNTR                                
024390,002941: 
024391,002942: 24,6404           11724                           CCS      REDOSPS1                              #  TFF2 FLAG DOWN, SEE IF DO SPS1 AGAIN
024392,002943: 24,6405           06414                           TC       CONTINUE                              #  NO
024393,002944: 24,6406           06414                           TC       CONTINUE                              
024394,002945: 24,6407           06410                           TC       +1                                    
024395,002946: 
024396,002947: 24,6410           03504                           TC       SETBRNSW                              #  YES, SET BURN TO SPS1
024397,002948: 24,6411           00010                           OCT      00010                                 
024398,002949: 
024399,002950: 24,6412           36455                           CAF      LOCSPS1                               
024400,002951: 24,6413           51470                           TS       VRCADR                                
024401,002952: 
024402,002953: 24,6414           33556        CONTINUE           CAF      THIRTY                                
024403,002954: 24,6415           02312                           TC       NEWPHASE                              
024404,002955: 24,6416           00004                           OCT      00004                                 
024405,002956: 
024406,002957: 24,6417           40036                           CS       TIME1                                 
024407,002958: 24,6420           50666                           TS       TBASE4                                
024408,002959: 
024409,002960: 24,6421           36453                           CAF      2SEC24                                #  START READACCS IN 2 SECS
024410,002961: 24,6422           02173                           TC       WAITLIST                              
024411,002962: 24,6423           65152                           CADR     READACCS                              
024412,002963: 
024413,002964: 24,6424           36454                           CAF      90SEC24                               #  SCHEDULE IGNITION IN 2 MINUTES
024414,002965: 24,6425           02173                           TC       WAITLIST                              
024415,002966: 24,6426           50463                           CADR     PLUSX2                                

Page 622

024417,002968: 
024418,002969: 24,6427           32170                           CAF      PRIO35                                
024419,002970: 24,6430           02052                           TC       NOVAC                                 
024420,002971: 24,6431           50457                           CADR     MODE32                                
024421,002972: 
024422,002973: 24,6432           02256                           TC       TASKOVER                              
024423,002974: 
024424,002975: 24,6433           34473        GO/ON              CAF      THREE                                 
024425,002976: 24,6434           02312                           TC       NEWPHASE                              
024426,002977: 24,6435           00002                           OCT      00002                                 
024427,002978: 
024428,002979: 24,6436           44516                           CS       ONE                                   
024429,002980: 24,6437           02312                           TC       NEWPHASE                              
024430,002981: 24,6440           00004                           OCT      00004                                 
024431,002982: 
024432,002983: 24,6441           36453                           CAF      2SEC24                                #  TURN ON READACCS IN 2 SECS
024433,002984: 24,6442           02173                           TC       WAITLIST                              
024434,002985: 24,6443           65152                           CADR     READACCS                              
024435,002986: 
024436,002987: 24,6444           32170                           CAF      PRIO35                                #  JOB TO CHANGE MM AND FINISH DRIFT COMP
024437,002988: 24,6445           02052                           TC       NOVAC                                 
024438,002989: 24,6446           50477                           CADR     MODE26                                
024439,002990: 
024440,002991: 24,6447           32146        GO/ON1             CAF      PRIO12                                #  DO ATTITUDE MANEUVER FOR SPS2 BURN
024441,002992: 24,6450           02046                           TC       FINDVAC                               
024442,002993: 24,6451           66412                           CADR     ATTIJOB1   -1                         
024443,002994: 
024444,002995: 24,6452           02256                           TC       TASKOVER                              
024445,002996: 
024446,002997: 24,6453           00310        2SEC24             DEC      200        B-14                       
024447,002998: 24,6454           21450        90SEC24            DEC      9000       B-14                       
024448,002999: 24,6455           52454        LOCSPS1            CADR     501SPS1                               
024449,003000: 24,6456           61313        PIPCAD24           CADR     PIPASR                                
024450,003001: 
024451,003002: 
024452,003003: 
024453,003004: 24,6457           02362        MODE32             TC       NEWMODE                               #  SET MAJOR MODE TO PRE-SPS2
024454,003005: 24,6460           00032                           OCT      00032                                 
024455,003006: 
024456,003007: 24,6461           05720                           TC       POSTJUMP                              #  FINISH DRIFT COMPUTATIONS
024457,003008: 24,6462           50501                           CADR     MODE26     +2                         
024458,003009: 
024459,003010: 
024460,003011: 
024461,003012: 24,6463           36476        PLUSX2             CAF      18SEC24                               
024462,003013: 24,6464           02173                           TC       WAITLIST                              
024463,003014: 24,6465           64511                           CADR     GIMPOWON                              
024464,003015: 
024465,003016: 24,6466           03474                           TC       STATEDWN                              #  REMOVE BIAS FLAG
024466,003017: 24,6467           04000                           OCT      04000                                 

Page 623

024468,003019: 
024469,003020: 24,6470           03373                           TC       RELAYON                               #  SET SCS +X TRANS DISCRETE (C27)
024470,003021: 24,6471           40020                           OCT      40020                                 
024471,003022: 
024472,003023: 24,6472           33541                           CAF      SEVENTN                               
024473,003024: 24,6473           02312                           TC       NEWPHASE                              
024474,003025: 24,6474           00004                           OCT      4                                     
024475,003026: 
024476,003027: 24,6475           02256                           TC       TASKOVER                              
024477,003028: 
024478,003029: 24,6476           03410        18SEC24            DEC      1800       B-14                       
024479,003030: 
024480,003031: 
024481,003032: 
024482,003033: 24,6477           02362        MODE26             TC       NEWMODE                               #  SET MAJOR MODE TO HOLD SPS2 ATTITUDE
024483,003034: 24,6500           00026                           OCT      00026                                 #    UNTIL TFFMIN
024484,003035: 
024485,003036: 24,6501           03416                           TC       FLAG1UP                               #  SET INTP FLAG
024486,003037: 24,6502           01000                           OCT      01000                                 
024487,003038: 
024488,003039: 24,6503           41465                           CS       PIPTIME    +1                         #  CALL LASTBIAS ROUTINE
024489,003040: 24,6504           40000                           COM                                            
024490,003041: 24,6505           50115                           TS       MPAC                                  
024491,003042: 
024492,003043: 24,6506           36511                           CAF      COMP2SEC                              
024493,003044: 24,6507           05720                           TC       POSTJUMP                              
024494,003045: 24,6510           31343                           CADR     LASTBIAS                              
024495,003046: 
024496,003047: 24,6511           31000        COMP2SEC           DEC      200        B+6                        
024497,003048: 

Page 624

024499,003050: 
024500,003051:    3373                                           BANK     1                                     
024501,003052: 
024502,003053:    3373           20001        RELAYON            INDEX    Q                                     
024503,003054:    3374           40000                           CS       0                                     
024504,003055:    3375           20017                           INHINT                                         
024505,003056:    3376           70725                           MASK     DSPTAB     +13D                       
024506,003057:    3377           20001                           INDEX    Q                                     
024507,003058:    3400           60000                           AD       0                                     
024508,003059:    3401           50725                           TS       DSPTAB     +13D                       
024509,003060:    3402           20016                           RELINT                                         
024510,003061:    3403           20001                           INDEX    Q                                     
024511,003062:    3404           00001                           TC       1                                     
024512,003063: 
024513,003064:    3405           20001        RELAYOFF           INDEX    Q                                     
024514,003065:    3406           40000                           CS       0                                     
024515,003066:    3407           20017                           INHINT                                         
024516,003067:    3410           70725                           MASK     DSPTAB     +13D                       
024517,003068:    3411           64500                           AD       BIT15                                 
024518,003069:    3412           50725                           TS       DSPTAB     +13D                       
024519,003070:    3413           20016                           RELINT                                         
024520,003071:    3414           20001                           INDEX    Q                                     
024521,003072:    3415           00001                           TC       1                                     
024522,003073: 
024523,003074:    3416           20001        FLAG1UP            INDEX    Q                                     
024524,003075:    3417           40000                           CS       0                                     
024525,003076:    3420           20017                           INHINT                                         
024526,003077:    3421           70646                           MASK     FLAGWRD1                              
024527,003078:    3422           20001                           INDEX    Q                                     
024528,003079:    3423           60000                           AD       0                                     
024529,003080:    3424           50646                           TS       FLAGWRD1                              
024530,003081:    3425           20016                           RELINT                                         
024531,003082:    3426           20001                           INDEX    Q                                     
024532,003083:    3427           00001                           TC       1                                     
024533,003084: 
024534,003085:    3430           20001        FLAG1DWN           INDEX    Q                                     
024535,003086:    3431           40000                           CS       0                                     
024536,003087:    3432           20017                           INHINT                                         
024537,003088:    3433           70646                           MASK     FLAGWRD1                              
024538,003089:    3434           50646                           TS       FLAGWRD1                              
024539,003090:    3435           20016                           RELINT                                         
024540,003091:    3436           20001                           INDEX    Q                                     
024541,003092:    3437           00001                           TC       1                                     
024542,003093: 
024543,003094:    3440           20001        FLAG2UP            INDEX    Q                                     
024544,003095:    3441           40000                           CS       0                                     
024545,003096:    3442           20017                           INHINT                                         
024546,003097:    3443           70647                           MASK     FLAGWRD2                              
024547,003098:    3444           20001                           INDEX    Q                                     
024548,003099:    3445           60000                           AD       0                                     
024549,003100:    3446           50647                           TS       FLAGWRD2                              

Page 625

024551,003102:    3447           20016                           RELINT                                         
024552,003103:    3450           20001                           INDEX    Q                                     
024553,003104:    3451           00001                           TC       1                                     
024554,003105: 
024555,003106:    3452           20001        FLAG2DWN           INDEX    Q                                     
024556,003107:    3453           40000                           CS       0                                     
024557,003108:    3454           20017                           INHINT                                         
024558,003109:    3455           70647                           MASK     FLAGWRD2                              
024559,003110:    3456           50647                           TS       FLAGWRD2                              
024560,003111:    3457           20016                           RELINT                                         
024561,003112:    3460           20001                           INDEX    Q                                     
024562,003113:    3461           00001                           TC       1                                     
024563,003114: 
024564,003115:    3462           20001        STATEUP            INDEX    Q                                     
024565,003116:    3463           40000                           CS       0                                     
024566,003117:    3464           20017                           INHINT                                         
024567,003118:    3465           70645                           MASK     STATE                                 
024568,003119:    3466           20001                           INDEX    Q                                     
024569,003120:    3467           60000                           AD       0                                     
024570,003121:    3470           50645                           TS       STATE                                 
024571,003122:    3471           20016                           RELINT                                         
024572,003123:    3472           20001                           INDEX    Q                                     
024573,003124:    3473           00001                           TC       1                                     
024574,003125: 
024575,003126:    3474           20001        STATEDWN           INDEX    Q                                     
024576,003127:    3475           40000                           CS       0                                     
024577,003128:    3476           20017                           INHINT                                         
024578,003129:    3477           70645                           MASK     STATE                                 
024579,003130:    3500           50645                           TS       STATE                                 
024580,003131:    3501           20016                           RELINT                                         
024581,003132:    3502           20001                           INDEX    Q                                     
024582,003133:    3503           00001                           TC       1                                     
024583,003134: 
024584,003135:    3504           43515        SETBRNSW           CS       BURNMASK                              
024585,003136:    3505           20017                           INHINT                                         
024586,003137:    3506           70647                           MASK     FLAGWRD2                              
024587,003138:    3507           20001                           INDEX    Q                                     
024588,003139:    3510           60000                           AD       0                                     
024589,003140:    3511           50647                           TS       FLAGWRD2                              
024590,003141:    3512           20016                           RELINT                                         
024591,003142:    3513           20001                           INDEX    Q                                     
024592,003143:    3514           00001                           TC       1                                     
024593,003144: 
024594,003145:    3515           00177        BURNMASK           OCT      00177                                 
024595,003146: 
024596,003147: 
024597,003148: 
024598,003149:    3516           20017        SETHETAD           INHINT                                         
024599,003150:    3517           40047                           CS       CDUX                                  
024600,003151:    3520           40000                           COM                                            

Page 626

024602,003153:    3521           50700                           TS       THETAD                                
024603,003154:    3522           40050                           CS       CDUY                                  
024604,003155:    3523           40000                           COM                                            
024605,003156:    3524           50701                           TS       THETAD     +1                         
024606,003157:    3525           40051                           CS       CDUZ                                  
024607,003158:    3526           40000                           COM                                            
024608,003159:    3527           50702                           TS       THETAD     +2                         
024609,003160:    3530           20016                           RELINT                                         
024610,003161:    3531           00001                           TC       Q                                     
024611,003162: 
024612,003163: 
024613,003164: 
024614,003165:    3532           00011        NINE               DEC      9          B-14                       
024615,003166:    3533           00013        ELEVEN             OCT      00013                                 
024616,003167:    3534     3533               11DEC              EQUALS   ELEVEN                                
024617,003168:    3534           00014        TWELVE             OCT      00014                                 
024618,003169:    3535           00015        THIRTN             OCT      00015                                 
024619,003170:    3536     3535               THIRTEEN           EQUALS   THIRTN                                
024620,003171:    3536           00016        FOURTN             OCT      00016                                 
024621,003172:    3537           00017        FIFTN              OCT      00017                                 
024622,003173:    3540           00020        SIXTN              OCT      00020                                 
024623,003174:    3541           00021        SEVENTN            OCT      00021                                 
024624,003175:    3542           00022        EIGHTN             OCT      00022                                 
024625,003176:    3543           00023        NINETEEN           DEC      19         B-14                       
024626,003177:    3544           00024        TWENTY0            OCT      00024                                 
024627,003178:    3545     3544               TWENTY             EQUALS   TWENTY0                               
024628,003179:    3545           00025        TWENTY1            OCT      00025                                 
024629,003180:    3546           00026        TWENTY2            OCT      00026                                 
024630,003181:    3547           00027        TWENTY3            OCT      00027                                 
024631,003182:    3550           00030        TWENTY4            OCT      00030                                 
024632,003183:    3551           00031        TWENTY5            OCT      00031                                 
024633,003184: 
024634,003185:    3552           00032        TWENTY6            DEC      26         B-14                       
024635,003186: 
024636,003187:    3553           00033        TWENTY7            DEC      27         B-14                       
024637,003188: 
024638,003189:    3554           00034        TWENTY8            DEC      28         B-14                       
024639,003190:    3555           00035        TWENTY9            DEC      29         B-14                       
024640,003191:    3556           00036        THIRTY             DEC      30         B-14                       
024641,003192:    3557     3556               30DEC              EQUALS   THIRTY                                
024642,003193:    3557           00037        THIRTY1            DEC      31         B-14                       
024643,003194:    3560           00040        THIRTY2            DEC      32         B-14                       
024644,003195:    3561           00050        FORTY              DEC      40         B-14                       
024645,003196:    3562     3561               40DEC              EQUALS   FORTY                                 
024646,003197:    3562           00062        FIFTY              DEC      50         B-14                       
024647,003198:    3563     3562               50DEC              EQUALS   FIFTY                                 
024648,003199:    3563           00074        SIXTY              DEC      60         B-14                       
024649,003200:    3564     3563               60DEC              EQUALS   SIXTY                                 
024650,003201:    3564           00144        100DEC             DEC      100        B-14                       
024651,003202:    3565           00310        200DEC             DEC      200        B-14                       

Page 627

024653,003204:    3566           00454        300DEC             DEC      300        B-14                       
024654,003205:    3567           00620        400DEC             DEC      400        B-14                       
024655,003206:    3570           00764        500DEC             DEC      500        B-14                       
024656,003207:    3571           01130        600DEC             DEC      600        B-14                       
024657,003208:    3572     3571               SIXHNDRD           EQUALS   600DEC                                
024658,003209:    3572           01750        1000DEC            DEC      1000       B-14                       
024659,003210:    3573           03720        2000DEC            DEC      2000       B-14                       

End of include-file 501_MISSION_CONTROL_PROGRAM.agc.  Parent file is MAIN.agc