Source Code

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

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

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

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

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

Page 576

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

023540,002087: 33,6476           02124                           TC       ENDOFJOB                              
023541,002088: 

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624

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

Page 625

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

Page 626

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

Page 627

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

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