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.

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

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

Page 576

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624

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

Page 625

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

Page 626

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

Page 627

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

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