Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

028555,000002:                                                                                                  ## Copyright:   Public domain.
028556,000003:                                                                                                  ## Filename:    P40-P47.agc
028557,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
028558,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
028559,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
028560,000007:                                                                                                  ## Assembler:   yaYUL
028561,000008:                                                                                                  ## Reference:   pp. 640-692.
028562,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028563,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028564,000011:                                                                                                  ## Mod history: 08/15/04 RSB.   Began transcribing.  Unfortunately, while
028565,000012:                                                                                                  ##                              there's a corresponding Luminary131 file,
028566,000013:                                                                                                  ##                              there's not too much overlap with it.
028567,000014:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
028568,000015:                                                                                                  ##              2011-05-07 JL   Flag SBANK= workarounds for future removal. 
028569,000016:                                                                                                  ##                              Fix garbled section on page 671.
028570,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
028571,000018:                                                                                                  ##                              original harcopy, as opposed to the PDF page
028572,000019:                                                                                                  ##                              numbers in 1701.pdf.
028573,000020:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
028574,000021:                                                                                                  ##                              vs the already-proofed corresponding Colossus
028575,000022:                                                                                                  ##                              237 and Comanche 55 source-code files
028576,000023:                                                                                                  ##                              and corrected errors found.
028577,000024:                                                                                                  ##
028578,000025:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
028579,000026:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
028580,000027:                                                                                                  ## document read, in part:
028581,000028:                                                                                                  ##
028582,000029:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
028583,000030:                                                                                                  ##      2021111-041.  October 28, 1968.  
028584,000031:                                                                                                  ##
028585,000032:                                                                                                  ##      This AGC program shall also be referred to as
028586,000033:                                                                                                  ##                              Colossus 1A
028587,000034:                                                                                                  ##
028588,000035:                                                                                                  ##      Prepared by
028589,000036:                                                                                                  ##                      Massachusetts Institute of Technology
028590,000037:                                                                                                  ##                      75 Cambridge Parkway
028591,000038:                                                                                                  ##                      Cambridge, Massachusetts
028592,000039:                                                                                                  ##      under NASA contract NAS 9-4065.
028593,000040:                                                                                                  ##
028594,000041:                                                                                                  ## Refer directly to the online document mentioned above for further information.
028595,000042:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
028596,000043:                                                                                                  ##
028597,000044:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
028598,000045:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
028599,000046:                                                                                                  ## source file, and then is proofed to incorporate any changes.
028600,000047: 

Page 640

028602,000049:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
028603,000050: 
028604,000051: 35,3755  E6,1466                                  EBANK=   DAPDATR1                              
028605,000052: 31,3215                                           BANK     31                                    
028606,000053: 24,2000                                           SETLOC   P40S                                  
028607,000054: 24,2000                                           BANK                                           
028608,000055: 
028609,000056: 24,2002                                           COUNT    24/P40                                
028610,000057: 
028611,000058: 24,2002           05447        P40CSM             TC       DOWNFLAG                              
028612,000059: 24,2003           00023                           ADRES    ENG2FLAG                              
028613,000060: 
028614,000061: 24,2004           06006                           TC       INTPRET                               
028615,000062: 24,2005           43135                           SLOAD    BOFF                                  
028616,000063: 24,2006           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
028617,000064: 24,2007           01347                                    XDELVFLG                              
028618,000065: 24,2010           50013                                    P40S/C                                #  NO    CSTEER = ECSTEER
028619,000066: 24,2011           77745                           DLOAD                                          #  YES   CSTEER = ZERO
028620,000067: 24,2012           15332                                    HI6ZEROS                              
028621,000068: 24,2013           17703        P40S/C             STODL    CSTEER                                
028622,000069: 24,2014           10335                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
028623,000070: 24,2015           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
028624,000071: 24,2016           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
028625,000072: 24,2017           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
028626,000073: 
028627,000074: 24,2020           77776                           EXIT                                           
028628,000075: 24,2021           04555                           TC       BANKCALL                              
028629,000076: 24,2022           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
028630,000077: 
028631,000078: 24,2023           06006        P40PVA             TC       INTPRET                               
028632,000079: 24,2024           77624                           CALL                                           
028633,000080: 24,2025           34000                                    S40.1                                 #  COMPUTE VGTIG,UT
028634,000081: 24,2026           77624                           CALL                                           
028635,000082: 24,2027           51512                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
028636,000083: 24,2030           77414                           SET      EXIT                                  
028637,000084: 24,2031           01073                                    PFRATFLG                              
028638,000085: 24,2032           02212        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
028639,000086: 24,2033           00003                           RELINT                                         
028640,000087: 24,2034           04555                           TC       BANKCALL                              
028641,000088: 24,2035           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
028642,000089: 24,2036           44712                           CS       ONE                                   #  FOR UPDATEVG
028643,000090: 24,2037           55746                           TS       NBRCYCLS                              
028644,000091: 24,2040           05435                           TC       UPFLAG                                
028645,000092: 24,2041           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
028646,000093: 
028647,000094: 24,2042           02252                           TC       P41/P40                               
028648,000095: 24,2043           02267                           TC       P41/DSP                               #  P41
028649,000096: 
028650,000097: 24,2044           32351        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED

Page 641

028652,000099: 24,2045           55145                           TS       NVWORD1                               #  BELOW
028653,000100: 
028654,000101: 24,2046           06006                           TC       INTPRET                               
028655,000102: 24,2047           51575                           VLOAD    ABVAL                                 #  FOR R2
028656,000103: 24,2050           03721                                    VGTIG                                 
028657,000104: 24,2051           17654                           STODL    VGDISP                                
028658,000105: 24,2052           15332                                    HI6ZEROS                              
028659,000106: 24,2053           03426                           STORE    DVTOTAL                               
028660,000107: 24,2054           77776                           EXIT                                           
028661,000108: 
028662,000109: 24,2055           00006                           EXTEND                                         
028663,000110: 24,2056           32773                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
028664,000111: 24,2057           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
028665,000112: 
028666,000113: 24,2060           32344        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
028667,000114: 24,2061           04555                           TC       BANKCALL                              
028668,000115: 24,2062           20751                           CADR     GOPERF1                               
028669,000116: 24,2063           12204                           TCF      POST41                                #  V34
028670,000117: 24,2064           12362                           TCF      TST,TRIM                              #  V33
028671,000118: 24,2065           44712        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
028672,000119: 24,2066           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
028673,000120: 
028674,000121: 24,2067           34714                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
028675,000122: 24,2070           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
028676,000123:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
028677,000124: 
028678,000125: 24,2071           34712                           CAF      ONE                                   
028679,000126: 24,2072           05140                           TC       WAITLIST                              
028680,000127: 24,2073  30,2000                                  SBANK=   LOWSUPER                              
028681,000128: 24,2073  E6,1466                                  EBANK=   DAPDATR1                              
028682,000129: 24,2073           02051 40066                     2CADR    S40.6                                 
028683,000130: 
028684,000131: 24,2075           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
028685,000132: 24,2076           32343                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
028686,000133: 24,2077           12101                           TCF      +2                                    #  HOLE
028687,000134: 24,2100           32776                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
028688,000135: 24,2101           04555                           TC       BANKCALL                              
028689,000136: 24,2102           01732                           CADR     DELAYJOB                              
028690,000137: 24,2103           05261                           TC       2PHSCHNG                              
028691,000138: 24,2104           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
028692,000139: 24,2105           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
028693,000140: 24,2106           34712        P40S/RS            CAF      ONE                                   
028694,000141: 24,2107           05140                           TC       WAITLIST                              #  P41/SDP
028695,000142: 24,2110  E7,1412                                  EBANK=   TIG                                   
028696,000143: 24,2110           03172 50067                     2CADR    CLOKTASK                              
028697,000144: 
028698,000145: 24,2112           00003                           RELINT                                         
028699,000146: 
028700,000147: 24,2113           03304        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
028701,000148: 24,2114  E7,1412                                  EBANK=   TIG                                   

Page 642

028703,000150: 24,2114           06006                           TC       INTPRET                               
028704,000151: 24,2115           45345                           DLOAD    DSU                                   
028705,000152: 24,2116           03413                                    TIG                                   
028706,000153: 24,2117           10342                                    SEC29.96                              
028707,000154: 24,2120           00041                           STORE    TDEC1                                 
028708,000155: 
028709,000156: 24,2121           77624                           CALRB                                          #  RETURN IN BASIC
028710,000157: 24,2122           27577                                    MIDTOAV1                              
028711,000158: 24,2123           12125                           TCF      +2                                    
028712,000159: 24,2124           02146                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
028713,000160: 24,2125           00006        P40SET             EXTEND                                         
028714,000161: 24,2126           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
028715,000162: 24,2127           53673                           DXCH     P40TMP                                
028716,000163: 24,2130           00006                           EXTEND                                         
028717,000164: 24,2131           42776                           DCS      5SECDP                                #  FOR TTGBLNK
028718,000165: 24,2132           21673                           DAS      P40TMP                                
028719,000166: 24,2133           00006                           EXTEND                                         
028720,000167: 24,2134           31673                           DCA      P40TMP                                
028721,000168: 24,2135           05231                           TC       LONGCALL                              
028722,000169: 24,2136  E7,1412                                  EBANK=   TIG                                   
028723,000170: 24,2136           02364 50067                     2CADR    TIGBLNK                               
028724,000171: 
028725,000172: 24,2140           05301                           TC       PHASCHNG                              
028726,000173: 24,2141           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
028727,000174: 
028728,000175: 24,2142           15112                           TCF      ENDOFJOB                              
028729,000176: 24,2143           04555        P40BLNKR           TC       BANKCALL                              
028730,000177: 24,2144           20607                           CADR     CLEANDSP                              #  REMOVE RESIDUE
028731,000178: 24,2145           15112                           TCF      ENDOFJOB                              
028732,000179: 24,2146  E7,1412                                  EBANK=   TIG                                   
028733,000180: 24,2146           00006        P40SNEWM           EXTEND                                         
028734,000181: 24,2147           31246                           DCA      PIPTIME1                              
028735,000182: 24,2150           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
028736,000183: 24,2151           00006                           EXTEND                                         
028737,000184: 24,2152           32342                           DCA      SEC29.96                              
028738,000185: 24,2153           21413                           DAS      TIG                                   
028739,000186: 24,2154           12125                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
028740,000187: 
028741,000188: 24,2155  E6,1466                                  EBANK=   DAPDATR1                              
028742,000189: 24,2155           32353        POSTBURN           CAF      V16N40                                
028743,000190: 24,2156           04555                           TC       BANKCALL                              
028744,000191: 24,2157           20610                           CADR     REFLASH                               
028745,000192: 24,2160           12204                           TCF      POST41                                #  V34 GO FINISH
028746,000193: 24,2161           12163                           TCF      P40RCS                                #  PROCEED
028747,000194: 24,2162           12155                           TCF      POSTBURN                              #  RECYCLE
028748,000195: 24,2163           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
028749,000196: 24,2164           32407                           DCA      ACADN85                               
028750,000197: 24,2165           53223                           DXCH     AVEGEXIT                              
028751,000198: 24,2166           34735                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
028752,000199: 24,2167           04555                           TC       BANKCALL                              

Page 643

028754,000201: 24,2170           01732                           CADR     DELAYJOB                              
028755,000202: 
028756,000203: 24,2171           02212        P40MINDB           TCR      SETMINDB   -1                         
028757,000204: 24,2172           00003                           RELINT                                         
028758,000205: 24,2173           05301        TIGNOW             TC       PHASCHNG                              
028759,000206: 24,2174           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
028760,000207: 24,2175           20000                           OCT      20000                                 #  PRIO 20
028761,000208: 24,2176           32350                           CAF      V16N85B                               
028762,000209: 24,2177           04555                           TC       BANKCALL                              
028763,000210: 24,2200           20610                           CADR     REFLASH                               
028764,000211: 24,2201           12204                           TCF      POST41                                #  FINISH P40/P41
028765,000212: 24,2202           12204                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
028766,000213: 24,2203           12173                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
028767,000214: 
028768,000215: 24,2204           00006        POST41             EXTEND                                         
028769,000216: 24,2205           32405                           DCA      SERVCADR                              
028770,000217: 24,2206           53223                           DXCH     AVEGEXIT                              
028771,000218: 24,2207           14106                           TCF      GOTOPOOH                              
028772,000219: 24,2210           00056        MINDB              DEC      46         B-14                       
028773,000220: 24,2211           00707        MAXDB              DEC      455        B-14                       
028774,000221: 24,2212  E6,1466                                  EBANK=   DAPDATR1                              
028775,000222: 24,2212           00004                 -1        INHINT                                         
028776,000223: 24,2213           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
028777,000224: 24,2214           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
028778,000225: 24,2215           00006                           EXTEND                                         #  IN AUTOPILOT
028779,000226: 24,2216           30034                           DCA      CDUY                                  
028780,000227: 24,2217           53574                           DXCH     THETADY                               
028781,000228: 24,2220           32210                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
028782,000229: 24,2221           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
028783,000230: 24,2222           44707                           CS       BIT4                                  #  EBANK = E6
028784,000231: 24,2223           71466                           MASK     DAPDATR1                              
028785,000232: 24,2224           55466                           TS       DAPDATR1                              
028786,000233: 24,2225           00002                           TC       Q                                     
028787,000234: 
028788,000235: 24,2226  E6,1466                                  EBANK=   DAPDATR1                              
028789,000236: 24,2226           00004                 -1        INHINT                                         
028790,000237: 24,2227           32211        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
028791,000238: 24,2230           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
028792,000239: 24,2231           41466                           CS       DAPDATR1                              
028793,000240: 24,2232           74707                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
028794,000241: 24,2233           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
028795,000242: 24,2234           00002                           TC       Q                                     #  EBANK = E6
028796,000243: 

Page 644

028798,000245:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
028799,000246: 
028800,000247: 24,2235  E6,1466                                  EBANK=   DAPDATR1                              
028801,000248: 24,2235                                           COUNT    24/P41                                
028802,000249: 
028803,000250: 24,2235           05435        P41CSM             TC       UPFLAG                                
028804,000251: 24,2236           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
028805,000252: 
028806,000253: 24,2237           06006                           TC       INTPRET                               
028807,000254: 24,2240           77745                           DLOAD                                          
028808,000255: 24,2241           15332                                    HI6ZEROS                              #  FOR P41 CSTEER =0
028809,000256: 24,2242           03703                           STORE    CSTEER                                
028810,000257: 
028811,000258: 24,2243           43145                           DLOAD    BON                                   
028812,000259: 24,2244           10337                                    FRCS2                                 #  2JET THRUST FOR S40.1
028813,000260: 24,2245           00700                                    NJETSFLG                              
028814,000261: 24,2246           50015                                    P40S/F                                #  NJETS = 1 2-JET
028815,000262: 24,2247           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
028816,000263: 24,2250           10337                                    FRCS2                                 
028817,000264: 24,2251           50015                                    P40S/F                                
028818,000265: 
028819,000266: 24,2252           41011        P41/P40            CS       MODREG                                
028820,000267: 24,2253           74712                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
028821,000268: 24,2254           00006                           EXTEND                                         
028822,000269: 24,2255           12257                           BZF      +2                                    #  P41
028823,000270: 24,2256           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
028824,000271: 24,2257           00002                           TC       Q                                     
028825,000272: 
028826,000273: 24,2260           34675        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
028827,000274: 24,2261           05027                           TC       NOVAC                                 
028828,000275: 24,2262  E6,1466                                  EBANK=   DAPDATR1                              
028829,000276: 24,2262           02173 50066                     2CADR    TIGNOW                                
028830,000277: 
028831,000278: 24,2264           05447        P40CLK             TC       DOWNFLAG                              
028832,000279: 24,2265           00155                           ADRES    TIMRFLAG                              
028833,000280: 
028834,000281: 24,2266           15213                           TCF      TASKOVER                              
028835,000282: 
028836,000283: 24,2267           32347        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
028837,000284: 24,2270           55145                           TS       NVWORD1                               
028838,000285: 
028839,000286: 24,2271           06006                           TC       INTPRET                               
028840,000287: 24,2272           77624                           CALL                                           #  COMPUTE
028841,000288: 24,2273           50314                                    P40CNV85                              #        VGTIG IN CTRL COORDS
028842,000289: 24,2274           77776                           EXIT                                           
028843,000290: 24,2275           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
028844,000291: 24,2276           32407                           DCA      ACADN85                               
028845,000292: 24,2277           53223                           DXCH     AVEGEXIT                              

Page 645

028847,000294: 24,2300           05261                           TC       2PHSCHNG                              
028848,000295: 24,2301           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
028849,000296: 24,2302           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
028850,000297: 
028851,000298: 24,2303           12106                           TCF      P40S/RS                               
028852,000299: 24,2304           32350        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
028853,000300: 24,2305           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
028854,000301: 24,2306           32342                           CAF      SEC29.96   +1                         
028855,000302: 24,2307           05140                           TC       WAITLIST                              
028856,000303: 24,2310  E6,1466                                  EBANK=   DAPDATR1                              
028857,000304: 24,2310           02260 50066                     2CADR    TTG/0                                 
028858,000305: 
028859,000306: 24,2312           44710                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
028860,000307: 24,2313           12513                           TCF      TTGPHS                                
028861,000308: 24,2314           40220        P40CNV85           STQ      SETPD                                 
028862,000309: 24,2315           03730                                    QTEMP1                                
028863,000310: 24,2316           00001                                    0                                     
028864,000311: 24,2317           41575                           VLOAD    PUSH                                  
028865,000312: 24,2320           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
028866,000313: 24,2321           77624                           CALL                                           
028867,000314: 24,2322           45426                                    S41.1                                 
028868,000315: 24,2323           37665                           STCALL   VGBODY                                
028869,000316: 24,2324           03730                                    QTEMP1                                
028870,000317: 
028871,000318: 24,2325  E6,1466                                  EBANK=   DAPDATR1                              
028872,000319: 24,2325           06006        CALCN85            TC       INTPRET                               
028873,000320: 24,2326           77624                           CALL                                           
028874,000321: 24,2327           51016                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
028875,000322: 24,2330           77624                           CALL                                           
028876,000323: 24,2331           50314                                    P40CNV85                              #  COMPUTE VGBODY
028877,000324: 24,2332           77776                           EXIT                                           
028878,000325: 24,2333           03127                           TC       SERVXT                                
028879,000326: 
028880,000327: 24,2334           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
028881,000328: 24,2336           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
028882,000329:                                                                                                  #        B+7 NEWTONS/E+4
028883,000330: 24,2340           04700        SEC24.96           DEC      2496       B-14                       
028884,000331: 24,2341           00000 05664  SEC29.96           2DEC     2996       B-28                       
028885,000332: 24,2343           03410        18SEC              DEC      1800       B-14                       
028886,000333: 24,2344           00204        P40CKLS2           OCT      204                                   
028887,000334: 24,2345           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
028888,000335: 24,2346     4377               OCT12              =        TEN                                   
028889,000336: 24,2346           04123        V1683              VN       1683                                  
028890,000337: 24,2347           01525        V06N85B            VN       0685                                  
028891,000338: 24,2350           04125        V16N85B            VN       1685                                  
028892,000339: 24,2351           01450        V06N40             VN       0640                                  
028893,000340: 24,2352           24020        P40OK99            OCT      24020                                 #  BITS 14,12, AND 5 FOR LINUS VERB 99
028894,000341: 24,2353           04050        V16N40             VN       1640                                  

Page 646

028896,000343: 24,2354           00027        OCT27/24           OCT      27                                    
028897,000344: 24,2355           00053        OCT53              OCT      53                                    
028898,000345: 24,2356           00035        OCT35              OCT      35                                    
028899,000346: 24,2357  E6,1466                                  EBANK=   DAPDATR1                              
028900,000347: 24,2357           03143 12066  T5IDL24            2CADR    T5IDLOC                               
028901,000348: 24,2361           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
028902,000349:                                                                                                  #  B+16 KB/SEC (NOTE, EMDOT IS PAD-LOADED,
028903,000350:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
028904,000351:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
028905,000352: 24,2362           34712        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028906,000353: 24,2363           12066                           TCF      TRIMONLY   +1                         
028907,000354: 24,2364           32776        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
028908,000355: 24,2365           05140                           TC       WAITLIST                              
028909,000356: 24,2366  E7,1412                                  EBANK=   TIG                                   
028910,000357: 24,2366           02502 50067                     2CADR    TIGAVEG                               
028911,000358: 
028912,000359: 24,2370           34714                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
028913,000360: 24,2371           55145                           TS       NVWORD1                               
028914,000361: 
028915,000362: 24,2372           34761                           CAF      PRIO14                                
028916,000363: 24,2373           05027                           TC       NOVAC                                 
028917,000364: 24,2374  E7,1412                                  EBANK=   TIG                                   
028918,000365: 24,2374           02143 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
028919,000366: 
028920,000367: 24,2376           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
028921,000368: 24,2377           04114        P40TSK             TC       NEWPHASE                              
028922,000369: 24,2400           00004                           OCT      4                                     
028923,000370: 24,2401           05213                           TC       TASKOVER                              
028924,000371: 
028925,000372: 24,2402  E7,1412                                  EBANK=   TIG                                   
028926,000373: 24,2402           02436 50067  ACADN83            2CADR    CALCN83                               
028927,000374: 
028928,000375: 24,2404  E7,1412                                  EBANK=   TIG                                   
028929,000376: 24,2404           03132 76067  SERVCADR           2CADR    SERVEXIT                              
028930,000377: 
028931,000378: 24,2406  E6,1466                                  EBANK=   DAPDATR1                              
028932,000379: 24,2406           02325 50066  ACADN85            2CADR    CALCN85                               
028933,000380: 

Page 647

028935,000382:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
028936,000383: 
028937,000384: 24,2410                                           COUNT    24/P47                                
028938,000385: 
028939,000386: 24,2410  E7,1412                                  EBANK=   TIG                                   
028940,000387: 24,2410           04555        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
028941,000388: 24,2411           17573                           CADR     R02BOTH                               
028942,000389: 24,2412           06006                           TC       INTPRET                               
028943,000390: 24,2413           77624                           CALRB                                          
028944,000391: 24,2414           27573                                    MIDTOAV2                              
028945,000392: 
028946,000393: 24,2415           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
028947,000394: 24,2416           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
028948,000395: 24,2417           05140                           TC       WAITLIST                              
028949,000396: 24,2420  E7,1412                                  EBANK=   TIG                                   
028950,000397: 24,2420           02425 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
028951,000398: 
028952,000399: 24,2422           05301                           TC       PHASCHNG                              
028953,000400: 24,2423           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
028954,000401: 24,2424           15112                           TCF      ENDOFJOB                              
028955,000402: 
028956,000403: 24,2425  E7,1672                                  EBANK=   P40TMP                                
028957,000404: 24,2425           00006        TIGON              EXTEND                                         
028958,000405: 24,2426           32403                           DCA      ACADN83                               
028959,000406: 24,2427           53223                           DXCH     AVEGEXIT                              
028960,000407: 24,2430           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
028961,000408: 24,2431           05027                           TC       NOVAC                                 
028962,000409: 24,2432  E7,1412                                  EBANK=   TIG                                   
028963,000410: 24,2432           02461 50067                     2CADR    P47BODY                               
028964,000411: 
028965,000412: 24,2434           44711                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
028966,000413: 24,2435           12513                           TCF      TTGPHS                                
028967,000414: 24,2436  E7,1412                                  EBANK=   TIG                                   
028968,000415: 24,2436           06006        CALCN83            TC       INTPRET                               
028969,000416: 24,2437           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
028970,000417: 24,2440           00001                                    0                                     
028971,000418: 24,2441           53375                           VLOAD    VAD                                   
028972,000419: 24,2442           03665                                    DELVCTL                               
028973,000420: 24,2443           03433                                    DELVREF                               
028974,000421: 24,2444           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
028975,000422: 24,2445           45006                           PUSH     CALL                                  
028976,000423: 24,2446           45426                                    S41.1                                 
028977,000424: 24,2447           37675                           STCALL   DELVIMU                               
028978,000425: 24,2450           70436                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
028979,000426: 24,2451           77776                           EXIT                                           
028980,000427: 24,2452           05301                           TC       PHASCHNG                              
028981,000428: 24,2453           10035                           OCT      10035                                 

Page 648

028983,000430: 24,2454           34715                           CAF      FIVE                                  
028984,000431: 24,2455           05475                           TC       GENTRAN                               
028985,000432: 24,2456           01457                           ADRES    DV47TEMP                              
028986,000433: 24,2457           01664                           ADRES    DELVCTL                               
028987,000434: 
028988,000435: 24,2460           03127                           TC       SERVXT                                
028989,000436: 24,2461           06006        P47BODY            TC       INTPRET                               
028990,000437: 24,2462           77775                           VLOAD                                          
028991,000438: 24,2463           15332                                    HI6ZEROS                              
028992,000439: 24,2464           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
028993,000440: 24,2465           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
028994,000441: 24,2466           77776                           EXIT                                           
028995,000442: 24,2467           34762        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
028996,000443: 24,2470           05103                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
028997,000444: 24,2471           05301                           TC       PHASCHNG                              
028998,000445: 24,2472           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
028999,000446: 24,2473           15000                           OCT      15000                                 #  PRIO 15
029000,000447: 24,2474           32346        P47/DSP            CAF      V1683                                 
029001,000448: 24,2475           04555                           TC       BANKCALL                              
029002,000449: 24,2476           20624                           CADR     GOFLASH                               
029003,000450: 24,2477           04106                           TC       GOTOPOOH                              
029004,000451: 24,2500           04106                           TC       GOTOPOOH                              
029005,000452: 24,2501           12461                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
029006,000453: 

Page 649

029008,000455:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
029009,000456: 
029010,000457: 24,2502  E7,1412                                  EBANK=   TIG                                   
029011,000458: 24,2502                                           COUNT    24/P40                                
029012,000459: 
029013,000460: 24,2502           02252        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
029014,000461: 24,2503           12304                           TCF      P41REDSP                              #  P41
029015,000462: 
029016,000463: 24,2504           32351                           CAF      V06N40                                #  UNBLANK DISPLAY
029017,000464: 24,2505           55145                           TS       NVWORD1                               
029018,000465: 
029019,000466: 24,2506           32340                           CAF      SEC24.96                              
029020,000467: 24,2507           05140                           TC       WAITLIST                              
029021,000468: 24,2510  E7,1412                                  EBANK=   TIG                                   
029022,000469: 24,2510           02521 50067                     2CADR    TIG-5                                 
029023,000470: 
029024,000471: 24,2512           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
029025,000472: 24,2513           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
029026,000473: 24,2514           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
029027,000474: 
029028,000475: 24,2515           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
029029,000476: 24,2516           15213                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
029030,000477: 24,2517           04574                           TC       POSTJUMP                              
029031,000478: 24,2520           76604                           CADR     PREREAD                               
029032,000479: 

Page 650

029034,000481:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
029035,000482: 
029036,000483: 24,2521  E7,1412                                  EBANK=   TIG                                   
029037,000484: 24,2521           32776        TIG-5              CAF      5SEC                                  
029038,000485: 24,2522           05140                           TC       WAITLIST                              
029039,000486: 24,2523  E6,1466                                  EBANK=   DAPDATR1                              
029040,000487: 24,2523           02537 50066                     2CADR    TIG-0                                 
029041,000488: 
029042,000489: 24,2525           44702                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
029043,000490: 24,2526           55145                           TS       NVWORD1                               
029044,000491: 
029045,000492: 24,2527           05261                           TC       2PHSCHNG                              
029046,000493: 24,2530           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
029047,000494: 24,2531           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
029048,000495: 
029049,000496: 24,2532           34675                           CAF      PRIO20                                
029050,000497: 24,2533           05042                           TC       FINDVAC                               
029051,000498: 24,2534  E7,1427                                  EBANK=   TGO                                   
029052,000499: 24,2534           02404 34067                     2CADR    S40.13                                
029053,000500: 
029054,000501: 24,2536           15213                           TCF      TASKOVER                              
029055,000502: 

Page 651

029057,000504:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
029058,000505: 
029059,000506: 24,2537  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
029060,000507: 24,2537           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
029061,000508: 24,2540           74676                           MASK     BIT13                                 
029062,000509: 24,2541           26103                           ADS      FLAGWRD7                              
029063,000510: 
029064,000511: 24,2542           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
029065,000512: 24,2543           74677                           MASK     BIT12                                 
029066,000513: 24,2544           00006                           EXTEND                                         
029067,000514: 24,2545           15213                           BZF      TASKOVER                              #  WAIT FOR V99P
029068,000515: 
029069,000516: 24,2546           32351                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
029070,000517: 24,2547           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
029071,000518: 
029072,000519: 24,2550           05301                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
029073,000520: 24,2551           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
029074,000521: 
029075,000522: 24,2552           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
029076,000523: 24,2553           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
029077,000524: 24,2554           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
029078,000525: 24,2555           30025                           DCA      TIME2                                 #        FOR RESTARTS
029079,000526: 24,2556           53337                           DXCH     TEVENT                                
029080,000527: 24,2557           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
029081,000528: 24,2560           74704                           MASK     BIT7                                  
029082,000529: 24,2561           26101                           ADS      FLAGWRD5                              
029083,000530: 24,2562           34676        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
029084,000531: 24,2563           00006                           EXTEND                                         
029085,000532: 24,2564           05011                           WOR      DSALMOUT                              
029086,000533: 
029087,000534: 24,2565           34702        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
029088,000535: 24,2566           70076                           MASK     FLAGWRD2                              
029089,000536: 24,2567           10000                           CCS      A                                     
029090,000537: 24,2570           12655                           TCF      IMPLBURN                              #  IMPULSIVE
029091,000538: 24,2571           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029092,000539: 24,2572           74676                           MASK     BIT13                                 
029093,000540: 24,2573           26102                           ADS      FLAGWRD6                              
029094,000541: 
029095,000542: 24,2574           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
029096,000543: 24,2575           70102                           MASK     FLAGWRD6                              
029097,000544: 24,2576           54102                           TS       FLAGWRD6                              
029098,000545: 
029099,000546: 24,2577           00006                           EXTEND                                         #  KILL RCS
029100,000547: 24,2600           32360                           DCA      T5IDL24                               
029101,000548: 24,2601           53313                           DXCH     T5LOC                                 
029102,000549: 
029103,000550: 24,2602           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
029104,000551: 24,2603           04114                           TC       NEWPHASE                              
029105,000552: 24,2604           00004                           OCT      4                                     
029106,000553: 

Page 652

029108,000555: 24,2605           05156                           TC       FIXDELAY                              
029109,000556: 24,2606           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
029110,000557: 
029111,000558: 24,2607           44712        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029112,000559: 24,2610           55654                           TS       TVCPHASE                              
029113,000560: 24,2611           34714                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
029114,000561: 24,2612           55661                           TS       TVCEXPHS                              
029115,000562: 24,2613           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
029116,000563: 24,2614           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
029117,000564: 24,2615           64674                           AD       BIT15                                 
029118,000565: 24,2616           54102                           TS       FLAGWRD6                              
029119,000566: 
029120,000567: 24,2617           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029121,000568: 24,2620           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
029122,000569: 24,2621           40000                           COM                                            
029123,000570: 24,2622           52765                           DXCH     -PHASE6                               
029124,000571: 
029125,000572: 24,2623           44715                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
029126,000573: 24,2624           04114                           TC       NEWPHASE                              
029127,000574: 24,2625           00004                           OCT      4                                     
029128,000575: 
029129,000576: 24,2626           34672                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
029130,000577: 24,2627           54030                           TS       TIME5                                 
029131,000578: 24,2630           00006                           EXTEND                                         
029132,000579: 24,2631           33001                           DCA      TVCON2C                               #  (TVCDAPON)
029133,000580: 24,2632           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
029134,000581: 
029135,000582: 24,2633           05156                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029136,000583: 24,2634           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
029137,000584: 
029138,000585: 24,2635           34676        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
029139,000586: 24,2636           70102                           MASK     FLAGWRD6                              
029140,000587: 24,2637           10000                           CCS      A                                     
029141,000588: 24,2640           02646                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
029142,000589: 24,2641           02651                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
029143,000590: 
029144,000591: 24,2642           00006                           EXTEND                                         
029145,000592: 24,2643           34714                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
029146,000593: 24,2644           52761                           DXCH     -PHASE4                               
029147,000594: 
029148,000595: 24,2645           15213        ENDIGN             TCF      TASKOVER                              
029149,000596: 24,2646           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
029150,000597: 24,2647           74700                           MASK     BIT11                                 
029151,000598: 24,2650           26076                           ADS      FLAGWRD2                              
029152,000599: 
029153,000600: 24,2651           34714        ULAGEOFF           CAF      ZERO                                  
029154,000601: 24,2652           00006                           EXTEND                                         
029155,000602: 24,2653           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5

Page 653

029157,000604: 24,2654           00002                           TC       Q                                     
029158,000605: 24,2655           44676        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
029159,000606: 24,2656           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
029160,000607: 24,2657           54102                           TS       FLAGWRD6                              
029161,000608: 
029162,000609: 24,2660           03304                           TCR      E7SETTER                              
029163,000610: 
029164,000611: 24,2661  E7,1412                                  EBANK=   TIG                                   
029165,000612: 24,2661           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029166,000613: 24,2662           31430                           DCA      TGO                                   
029167,000614: 24,2663           53413                           DXCH     TIG                                   
029168,000615: 24,2664           00006                           EXTEND                                         
029169,000616: 24,2665           30025                           DCA      TIME2                                 
029170,000617: 24,2666           21413                           DAS      TIG                                   
029171,000618: 
029172,000619: 24,2667           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
029173,000620: 24,2670           05140                           TC       WAITLIST                              
029174,000621: 24,2671  E7,1427                                  EBANK=   TGO                                   
029175,000622: 24,2671           02706 50067                     2CADR    ENGINOFF                              
029176,000623: 
029177,000624: 24,2673           05261                           TC       2PHSCHNG                              #  PROTECT ....
029178,000625: 24,2674           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029179,000626: 24,2675           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029180,000627: 24,2676           77777                           DEC      -0         B-14                       #  -0 CS
029181,000628: 
029182,000629: 24,2677           44702                           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
029183,000630: 24,2700           70076                           MASK     FLAGWRD2                              
029184,000631: 24,2701           54076                           TS       FLAGWRD2                              
029185,000632: 
029186,000633: 24,2702           03307                           TCR      E6SETTER                              
029187,000634: 24,2703  E6,1466                                  EBANK=   DAPDATR1                              
029188,000635: 
029189,000636: 24,2703           34714                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
029190,000637: 24,2704           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
029191,000638: 
029192,000639: 24,2705           12574                           TCF      PREPTVC                               
029193,000640: 24,2706  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029194,000641: 24,2706           03307        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
029195,000642: 24,2707  E6,1466                                  EBANK=   DAPDATR1                              
029196,000643: 24,2707           31474                           CAE      CSMMASS                               
029197,000644: 24,2710           55662                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
029198,000645: 24,2711           05261                           TC       2PHSCHNG                              
029199,000646: 24,2712           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
029200,000647: 24,2713           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
029201,000648: 24,2714           02737        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
029202,000649: 24,2715           42354                           CS       OCT27/24                              #  (OCTAL 27)

Page 654

029204,000651: 24,2716           04114                           TC       NEWPHASE                              
029205,000652: 24,2717           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
029206,000653: 
029207,000654: 24,2720           05156                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
029208,000655: 24,2721           00372                           DEC      250        B-14                       
029209,000656: 
029210,000657: 24,2722           02227        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
029211,000658: 
029212,000659: 24,2723           04633                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029213,000660: 24,2724           42010                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029214,000661: 
029215,000662: 24,2725           04633                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029216,000663: 24,2726           13207                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
029217,000664: 
029218,000665: 24,2727           03003                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
029219,000666: 
029220,000667: 24,2730           05301                           TC       PHASCHNG                              
029221,000668: 24,2731           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
029222,000669: 24,2732           34603                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
029223,000670: 24,2733           05027                           TC       NOVAC                                 
029224,000671: 24,2734  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
029225,000672: 24,2734           02155 50066                     2CADR    POSTBURN                              
029226,000673: 
029227,000674: 24,2736           15213                           TCF      TASKOVER                              
029228,000675: 
029229,000676: 24,2737  E6,1466                                  EBANK=   DAPDATR1                              
029230,000677: 24,2737           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
029231,000678: 24,2740           30025                           DCA      TIME2                                 
029232,000679: 24,2741           53337                           DXCH     TEVENT                                
029233,000680: 24,2742           44704                           CS       BIT7                                  #  RESET ENGONFLG
029234,000681: 24,2743           70101                           MASK     FLAGWRD5                              
029235,000682: 24,2744           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
029236,000683: 24,2745           44676                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
029237,000684: 24,2746           00006                           EXTEND                                         
029238,000685: 24,2747           03011                           WAND     DSALMOUT                              
029239,000686: 
029240,000687: 24,2750           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
029241,000688:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
029242,000689:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
029243,000690: 24,2751           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
029244,000691: 24,2752           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
029245,000692: 24,2753           22000                           LXCH     A                                     
029246,000693: 24,2754           00006                           EXTEND                                         
029247,000694: 24,2755           74734                           MP       1SEC                                  #  DEC 100
029248,000695: 24,2756           61662                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
029249,000696: 24,2757           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
029250,000697: 
029251,000698: 24,2760           34674        BESTTRIM           CAF      BIT15                                 #  CHECK FOR SWITCHOVER, SELECT BEST TRIMS
029252,000699: 24,2761           70105                           MASK     FLAGWRD9                              #        FOR NEXT IGNITION (OR REIGNITION)
029253,000700: 24,2762           00006                           EXTEND                                         

Page 655

029255,000702: 24,2763           12765                           BZF      DBARTRIM                              #  PRE-SWITCHOVER
029256,000703: 24,2764           00002                           TC       Q                                     #  POST-SWITCHOVER, SO LEAVE TRIMS AS ARE
029257,000704: 
029258,000705: 24,2765           31621        DBARTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELP,YBAR
029259,000706: 24,2766           55425                           TS       PACTOFF                               
029260,000707: 24,2767           31623                           CAE      DELYBAR                               
029261,000708: 24,2770           55426                           TS       YACTOFF                               
029262,000709: 24,2771           00002                           TC       Q                                     
029263,000710: 
029264,000711: 24,2772  E6,1466                                  EBANK=   DAPDATR1                              
029265,000712: 24,2772           03117 50066  STEERADS           2CADR    STEERING                              
029266,000713: 
029267,000714: 24,2774           37703        .6SECT5            OCT      37703                                 
029268,000715: 24,2775           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
029269,000716: 24,2776           00764        5SEC               DEC      500        B-14                       
029270,000717: 24,2777           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
029271,000718: 24,3000  E6,1466                                  EBANK=   DAPDATR1                              
029272,000719: 24,3000           02030 36066  TVCON2C            2CADR    TVCDAPON                              
029273,000720: 
029274,000721: 24,3002           00004                 -1        INHINT                                         
029275,000722: 24,3003           42777        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029276,000723: 24,3004           00006                           EXTEND                                         #        OPTICS DAC
029277,000724: 24,3005           03012                           WAND     CHAN12                                
029278,000725: 24,3006           44712                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
029279,000726: 24,3007           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
029280,000727: 24,3010           34714                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029281,000728: 24,3011           55145                           TS       NVWORD1                               
029282,000729: 24,3012           44700                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
029283,000730: 24,3013           70103                           MASK     FLAGWRD7                              
029284,000731: 24,3014           54103                           TS       FLAGWRD7                              
029285,000732: 24,3015           00002                           TC       Q                                     
029286,000733: 24,3016  E6,1466                                  EBANK=   DAPDATR1                              
029287,000734: 24,3016           43020        UPDATEVG           STQ      BON                                   
029288,000735: 24,3017           03730                                    QTEMP1                                
029289,000736: 24,3020           01307                                    XDELVFLG                              
029290,000737: 24,3021           51045                                    CALL40.8                              
029291,000738: 
029292,000739: 24,3022           50135                           SLOAD    BMN                                   
029293,000740: 24,3023           03347                                    NBRCYCLS                              
029294,000741: 24,3024           51051                                    SETUP.9                               
029295,000742: 
029296,000743: 24,3025           53375                           VLOAD    VAD                                   
029297,000744: 24,3026           03351                                    DELVSUM                               
029298,000745: 24,3027           03433                                    DELVREF                               
029299,000746: 24,3030           03357                           STORE    DELVSUMP                              
029300,000747: 24,3031           77776                           EXIT                                           
029301,000748: 24,3032           34712                           CA       ONE                                   
029302,000749: 24,3033           61746                           AD       NBRCYCLS                              
029303,000750: 24,3034           55747                           TS       NBRCYCLP                              

Page 656

029305,000752: 24,3035           05301                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
029306,000753: 24,3036           10035                           OCT      10035                                 
029307,000754: 
029308,000755: 24,3037           31747                           CA       NBRCYCLP                              
029309,000756: 24,3040           55746                           TS       NBRCYCLS                              
029310,000757: 24,3041           06006                           TC       INTPRET                               
029311,000758: 24,3042           77775                           VLOAD                                          
029312,000759: 24,3043           03357                                    DELVSUMP                              
029313,000760: 24,3044           03351                           STORE    DELVSUM                               
029314,000761: 
029315,000762: 24,3045           77624        CALL40.8           CALL                                           
029316,000763: 24,3046           34130                                    S40.8                                 
029317,000764: 24,3047           77650                           GOTO                                           
029318,000765: 24,3050           03730                                    QTEMP1                                
029319,000766: 
029320,000767: 24,3051           67214        SETUP.9            BON      SLOAD                                 
029321,000768: 24,3052           01310                                    FIRSTFLG                              
029322,000769: 24,3053           51066                                    SURELY.9                              
029323,000770: 24,3054           03350                                    NBRCYCLP                              
029324,000771: 24,3055           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
029325,000772: 24,3056           00047                                    X1                                    
029326,000773: 24,3057           03705                                    BDT                                   
029327,000774: 24,3060           53257                           VSR*     VAD                                   
029328,000775: 24,3061           20563                                    0          -14D,1                     
029329,000776: 24,3062           03646                                    VGTEMP                                
029330,000777: 24,3063           77651                           VSU                                            
029331,000778: 24,3064           03351                                    DELVSUM                               
029332,000779: 24,3065           03721                           STORE    VGPREV                                
029333,000780: 24,3066           77776        SURELY.9           EXIT                                           
029334,000781: 24,3067           34676                           CAF      PRIO10                                
029335,000782: 24,3070           05042                           TC       FINDVAC                               
029336,000783: 24,3071  E6,1466                                  EBANK=   DAPDATR1                              
029337,000784: 24,3071           02257 34066                     2CADR    S40.9                                 
029338,000785: 
029339,000786: 24,3073           05261                           TC       2PHSCHNG                              
029340,000787: 24,3074           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
029341,000788: 24,3075           10035                           OCT      10035                                 
029342,000789: 24,3076           06006                           TC       INTPRET                               
029343,000790: 24,3077           77775                           VLOAD                                          
029344,000791: 24,3100           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
029345,000792: 24,3101           27570                           STOVL    RINIT                                 
029346,000793: 24,3102           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
029347,000794: 24,3103           17576                           STODL    VINIT                                 
029348,000795: 24,3104           01205                                    PIPTIME                               
029349,000796: 24,3105           03474                           STORE    TNIT                                  
029350,000797: 24,3106           77621                           BDSU                                           
029351,000798: 24,3107           03656                                    TPASS4                                
029352,000799: 24,3110           27423                           STOVL    DELLT4                                
029353,000800: 24,3111           15332                                    HI6ZEROS                              
029354,000801: 24,3112           17351                           STODL    DELVSUM                               

Page 657

029356,000803: 24,3113           15332                                    HI6ZEROS                              
029357,000804: 24,3114           03347                           STORE    NBRCYCLS                              
029358,000805: 24,3115           77650                           GOTO                                           
029359,000806: 24,3116           51045                                    CALL40.8                              
029360,000807: 24,3117  E6,1466                                  EBANK=   DAPDATR1                              
029361,000808: 24,3117           06006        STEERING           TC       INTPRET                               
029362,000809: 24,3120           77624                           CALL                                           
029363,000810: 24,3121           51016                                    UPDATEVG                              
029364,000811: 24,3122           77776                           EXIT                                           
029365,000812: 24,3123           34702                           CAF      BIT9                                  #  CHECK IMPULSW
029366,000813: 24,3124           70076                           MASK     FLAGWRD2                              
029367,000814: 24,3125           10000                           CCS      A                                     
029368,000815: 24,3126           13131                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
029369,000816: 24,3127           04574        SERVXT             TC       POSTJUMP                              
029370,000817: 24,3130           77132                           CADR     SERVEXIT                              
029371,000818: 24,3131           34676                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
029372,000819: 24,3132           00006                           EXTEND                                         
029373,000820: 24,3133           02011                           RAND     DSALMOUT                              
029374,000821: 24,3134           00006                           EXTEND                                         
029375,000822: 24,3135           13127                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
029376,000823: 24,3136           03304                           TCR      E7SETTER                              
029377,000824: 24,3137  E7,1412                                  EBANK=   TIG                                   
029378,000825: 24,3137           00004                           INHINT                                         
029379,000826: 24,3140           00006                           EXTEND                                         
029380,000827: 24,3141           31413                           DCA      TIG                                   
029381,000828: 24,3142           52155                           DXCH     MPAC                                  
029382,000829: 24,3143           00006                           EXTEND                                         
029383,000830: 24,3144           40025                           DCS      TIME2                                 
029384,000831: 24,3145           20155                           DAS      MPAC                                  
029385,000832: 24,3146           07224                           TCR      DPAGREE                               
029386,000833: 24,3147           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
029387,000834: 24,3150           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
029388,000835: 24,3151           13154                           TCF      +3                                    
029389,000836: 24,3152           13154                           TCF      +2                                    
029390,000837: 24,3153           34714                           CAF      ZERO                                  
029391,000838: 24,3154           64712                           AD       ONE                                   
029392,000839: 24,3155           56001                           XCH      L                                     
029393,000840: 24,3156           34714                           CA       ZERO                                  
029394,000841: 24,3157           53430                           DXCH     TGO                                   
029395,000842: 24,3160           31430                           CA       TGO        +1                         
029396,000843: 24,3161           05140                           TC       WAITLIST                              
029397,000844: 24,3162  E7,1427                                  EBANK=   TGO                                   
029398,000845: 24,3162           02706 50067                     2CADR    ENGINOFF                              
029399,000846: 
029400,000847: 24,3164           05261                           TC       2PHSCHNG                              
029401,000848: 24,3165           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029402,000849: 24,3166           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
029403,000850: 24,3167           05447                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
029404,000851: 24,3170           00044                           ADRES    IMPULSW                               #  RESTARTS OK

Page 658

029406,000853: 24,3171           13127                           TCF      SERVXT                                
029407,000854: 

Page 659

029409,000856:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
029410,000857: 
029411,000858: 24,3172  E7,1412                                  EBANK=   TIG                                   
029412,000859: 24,3172           34700        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
029413,000860: 24,3173           70103                           MASK     FLAGWRD7                              
029414,000861: 24,3174           10000                           CCS      A                                     
029415,000862: 24,3175           13201                           TCF      CLOCKON                               
029416,000863: 24,3176           05301                           TC       PHASCHNG                              
029417,000864: 24,3177           00006                           OCT      00006                                 #  KILL RESTART
029418,000865: 24,3200           05213                           TC       TASKOVER                              
029419,000866: 
029420,000867: 24,3201           00006        CLOCKON            EXTEND                                         
029421,000868: 24,3202           30025                           DCA      TIME2                                 
029422,000869: 24,3203           53661                           DXCH     TTOGO                                 
029423,000870: 24,3204           00006                           EXTEND                                         
029424,000871: 24,3205           41413                           DCS      TIG                                   
029425,000872: 24,3206           21661                           DAS      TTOGO                                 
029426,000873: 
029427,000874: 24,3207           34734        SETCLOCK           CAF      1SEC                                  
029428,000875: 24,3210           05140                           TC       WAITLIST                              
029429,000876: 24,3211  E7,1412                                  EBANK=   TIG                                   
029430,000877: 24,3211           03172 50067                     2CADR    CLOKTASK                              
029431,000878: 
029432,000879: 24,3213           11145                           CCS      NVWORD1                               
029433,000880: 24,3214           13217                           TCF      +3                                    
029434,000881: 24,3215           13227                           TCF      SETTB6                                
029435,000882: 
029436,000883: 24,3216           13217                           TCF      +1                                    
029437,000884: 24,3217           42347                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
029438,000885: 24,3220           61145                           AD       NVWORD1                               
029439,000886: 24,3221           00006                           EXTEND                                         
029440,000887: 24,3222           13232                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
029441,000888: 
029442,000889: 24,3223           37664                           CAF      PRIO27                                
029443,000890: 24,3224           05027                           TC       NOVAC                                 
029444,000891: 24,3225  E6,1466                                  EBANK=   DAPDATR1                              
029445,000892: 24,3225           03244 50066                     2CADR    CLOCKJOB                              
029446,000893: 
029447,000894: 24,3227           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
029448,000895: 24,3230           55065                           TS       TBASE6                                
029449,000896: 24,3231           15213                           TCF      TASKOVER                              
029450,000897: 
029451,000898: 24,3232           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
029452,000899: 24,3233           05042                           TC       FINDVAC                               
029453,000900: 24,3234  E6,1466                                  EBANK=   DAPDATR1                              
029454,000901: 24,3234           03237 50066                     2CADR    DYNDISP                               
029455,000902: 
029456,000903: 24,3236           13227                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK

Page 660

029458,000905: 24,3237           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
029459,000906: 24,3240           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
029460,000907: 24,3241           50314                                    P40CNV85                              
029461,000908: 24,3242           77776                           EXIT                                           
029462,000909: 24,3243           13254                           TCF      CKNVWRD1                              
029463,000910: 

Page 661

029465,000912:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
029466,000913: 
029467,000914: 24,3244  E6,1466                                  EBANK=   DAPDATR1                              
029468,000915: 24,3244           30032        CLOCKJOB           CA       CDUX                                  
029469,000916: 24,3245           54772                           TS       CDUSPOTX                              
029470,000917: 24,3246           30033                           CA       CDUY                                  
029471,000918: 24,3247           54766                           TS       CDUSPOTY                              
029472,000919: 24,3250           30034                           CA       CDUZ                                  
029473,000920: 24,3251           54770                           TS       CDUSPOTZ                              
029474,000921: 24,3252           04555                           TC       BANKCALL                              
029475,000922: 24,3253           47510                           CADR     QUICTRIG                              
029476,000923: 24,3254           00004        CKNVWRD1           INHINT                                         
029477,000924: 24,3255           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
029478,000925: 24,3256           13301                           TCF      NOFLASH                               
029479,000926: 24,3257           15112                           TCF      ENDOFJOB                              
029480,000927: 24,3260           13270                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
029481,000928: 24,3261           32351        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
029482,000929: 24,3262           04555                           TC       BANKCALL                              
029483,000930: 24,3263           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO, INHINT OK
029484,000931: 24,3264           13350                           TCF      V97T                                  #  TERMINATE
029485,000932: 24,3265           13403                           TCF      V97P                                  #  PROCEED
029486,000933: 24,3266           13432                           TCF      V97E                                  #  ENTER
029487,000934: 24,3267           13276                           TCF      PASTERET                              
029488,000935: 
029489,000936: 24,3270           32351        ENGREQST           CAF      V06N40                                
029490,000937: 24,3271           04555                           TC       BANKCALL                              
029491,000938: 24,3272           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO, INHINT OK
029492,000939: 24,3273           13320                           TCF      V99T                                  #  TERMINATE
029493,000940: 24,3274           13326                           TCF      V99P                                  #  PROCEED
029494,000941: 24,3275           13312                           TCF      V99E                                  #  ENTER
029495,000942: 
029496,000943: 24,3276           32352        PASTERET           CAF      P40OK99                               #  IMMED RETURN - SET UP V99 OR V97
029497,000944: 24,3277           05415                           TCR      LINUS                                 
029498,000945: 24,3300           15112                           TCF      ENDOFJOB                              
029499,000946: 24,3301           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
029500,000947: 24,3302           04555                           TC       BANKCALL                              
029501,000948: 24,3303           20616                           CADR     REGODSP                               
029502,000949: 24,3304           34753        E7SETTER           CAF      EBANK7                                
029503,000950: 24,3305           54003                           TS       EBANK                                 
029504,000951: 24,3306  E7,1412                                  EBANK=   TIG                                   
029505,000952: 24,3306           00002                           TC       Q                                     
029506,000953: 
029507,000954: 24,3307           34752        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
029508,000955: 24,3310           54003                           TS       EBANK                                 
029509,000956: 24,3311  E6,1466                                  EBANK=   DAPDATR1                              

Page 662

029511,000958: 24,3311           00002                           TC       Q                                     
029512,000959: 
029513,000960: 24,3312  E6,1466                                  EBANK=   DAPDATR1                              
029514,000961: 24,3312           05261        V99E               TC       2PHSCHNG                              
029515,000962: 24,3313           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029516,000963: 24,3314           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029517,000964: 24,3315           27000                           OCT      27000                                 
029518,000965: 24,3316           03002        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029519,000966: 24,3317           12163                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
029520,000967: 
029521,000968: 24,3320  E6,1466                                  EBANK=   DAPDATR1                              
029522,000969: 24,3320           05261        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
029523,000970: 24,3321           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029524,000971: 24,3322           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029525,000972: 24,3323           27000                           OCT      27000                                 
029526,000973: 24,3324           03002        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029527,000974: 24,3325           12204                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
029528,000975: 24,3326           00004        V99P               INHINT                                         
029529,000976: 24,3327           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
029530,000977: 24,3330           74677                           MASK     BIT12                                 
029531,000978: 24,3331           10000                           CCS      A                                     
029532,000979: 24,3332           13345                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
029533,000980: 
029534,000981: 24,3333           34677        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
029535,000982: 24,3334           26103                           ADS      FLAGWRD7                              
029536,000983: 24,3335           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
029537,000984: 24,3336           74676                           MASK     BIT13                                 
029538,000985: 24,3337           00006                           EXTEND                                         
029539,000986: 24,3340           13345                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
029540,000987: 
029541,000988: 24,3341           34712        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
029542,000989: 24,3342           05140                           TC       WAITLIST                              #  SET UP IGNITION HERE
029543,000990: 24,3343  E6,1466                                  EBANK=   DAPDATR1                              
029544,000991: 24,3343           02552 50066                     2CADR    IGNITION                              
029545,000992: 
029546,000993: 24,3345           32351        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
029547,000994: 24,3346           55145                           TS       NVWORD1                               
029548,000995: 24,3347           15112        ENDV99P            TCF      ENDOFJOB                              
029549,000996: 
029550,000997: 24,3350  E6,1474                                  EBANK=   CSMMASS                               
029551,000998: 24,3350           05261        V97T               TC       2PHSCHNG                              
029552,000999: 24,3351           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
029553,001000: 24,3352           40674                           OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
029554,001001: 24,3353           34712                           CAF      BIT1                                  
029555,001002: 24,3354           05130                           TC       TWIDDLE                               
029556,001003: 24,3355           03357                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
029557,001004: 24,3356           15112                           TCF      ENDOFJOB                              
029558,001005: 

Page 663

029560,001007: 24,3357  E6,1474                                  EBANK=   CSMMASS                               
029561,001008: 24,3357           34714        V97TTASK           CAF      ZERO                                  #  DISABLE CLOCKJOB
029562,001009: 24,3360           55145                           TS       NVWORD1                               
029563,001010: 24,3361           32361                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029564,001011: 24,3362           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
029565,001012: 24,3363           55662                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
029566,001013: 24,3364           05301                           TC       PHASCHNG                              
029567,001014: 24,3365           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029568,001015: 24,3366           77777                           DEC      -0         B-14                       #  -0 CS
029569,001016: 
029570,001017: 24,3367           02737                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
029571,001018: 24,3370           05301                           TC       PHASCHNG                              
029572,001019: 24,3371           00714                           OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
029573,001020: 24,3372           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
029574,001021: 24,3373           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
029575,001022: 
029576,001023: 24,3374  E6,1466                                  EBANK=   DAPDATR1                              
029577,001024: 24,3374           04633        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029578,001025: 24,3375           42010                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
029579,001026: 24,3376           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
029580,001027: 24,3377           05027                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
029581,001028: 24,3400  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
029582,001029: 24,3400           03320 50066                     2CADR    V99T                                  
029583,001030: 
029584,001031: 24,3402           15213        ENDV97T            TCF      TASKOVER                              
029585,001032: 24,3403  E6,1444                                  EBANK=   V97VCNTR                              
029586,001033: 24,3403           05301        V97P               TC       PHASCHNG                              
029587,001034: 24,3404           40734                           OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
029588,001035: 24,3405           34712                           CAF      BIT1                                  
029589,001036: 24,3406           05130                           TC       TWIDDLE                               
029590,001037: 24,3407           03411                           ADRES    V97PTASK                              
029591,001038: 24,3410           15112                           TCF      ENDOFJOB                              
029592,001039: 
029593,001040: 24,3411  E6,1444                                  EBANK=   V97VCNTR                              
029594,001041: 24,3411           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
029595,001042: 24,3412           55653                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
029596,001043:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
029597,001044:                                                                                                  #        THE VERB 97 PROCEED)
029598,001045: 24,3413           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029599,001046: 24,3414           55145                           TS       NVWORD1                               
029600,001047: 24,3415           05435                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
029601,001048: 24,3416           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
029602,001049: 24,3417           05435                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
029603,001050: 24,3420           00042                           ADRES    STEERSW                               
029604,001051: 24,3421           05301                           TC       PHASCHNG                              
029605,001052: 24,3422           00134                           OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
029606,001053: 24,3423           05156                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
029607,001054: 24,3424           00310                           DEC      200        B-14                       

Page 664

029609,001056: 24,3425  E7,1777                                  EBANK=   WHOCARES                              
029610,001057: 24,3425           05447        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
029611,001058: 24,3426           00030                           ADRES    IDLEFAIL                              
029612,001059: 24,3427           05301                           TC       PHASCHNG                              
029613,001060: 24,3430           00004                           OCT      00004                                 #  KILL GROUP 4
029614,001061: 24,3431           15213        ENDV97P            TCF      TASKOVER                              
029615,001062: 24,3432  E7,1777                                  EBANK=   WHOCARES                              
029616,001063: 24,3432           05301        V97E               TC       PHASCHNG                              
029617,001064: 24,3433           40534                           OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
029618,001065: 24,3434           34712                           CAF      BIT1                                  
029619,001066: 24,3435           05140                           TC       WAITLIST                              
029620,001067: 24,3436  E7,1412                                  EBANK=   TIG                                   
029621,001068: 24,3436           03441 50067                     2CADR    V97ETASK                              
029622,001069: 
029623,001070: 24,3440           15112                           TCF      ENDOFJOB                              
029624,001071: 
029625,001072: 24,3441  E7,1412                                  EBANK=   TIG                                   
029626,001073: 24,3441           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
029627,001074: 24,3442           55412                           TS       TIG                                   
029628,001075: 24,3443           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029629,001076: 24,3444           55145                           TS       NVWORD1                               
029630,001077: 24,3445           03307                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
029631,001078: 24,3446  E6,1474                                  EBANK=   CSMMASS                               
029632,001079: 24,3446           32361                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029633,001080: 24,3447           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
029634,001081: 24,3450           55662                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
029635,001082: 24,3451           05301                           TC       PHASCHNG                              
029636,001083: 24,3452           00754                           OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
029637,001084: 24,3453           02737        SPSOFF97           TCR      SPSOFF                                
029638,001085: 24,3454           05301                           TC       PHASCHNG                              
029639,001086: 24,3455           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
029640,001087: 24,3456           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
029641,001088: 24,3457           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
029642,001089: 
029643,001090: 24,3460  E6,1466                                  EBANK=   DAPDATR1                              
029644,001091: 24,3460           34712        V97E40.6           CAF      BIT1                                  
029645,001092: 24,3461           05140                           TC       WAITLIST                              
029646,001093: 24,3462  E6,1447                                  EBANK=   CNTR                                  
029647,001094: 24,3462           02040 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
029648,001095: 
029649,001096: 24,3464           04633                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029650,001097: 24,3465           42010                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
029651,001098:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
029652,001099: 
029653,001100: 24,3466           05261                           TC       2PHSCHNG                              
029654,001101: 24,3467           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
029655,001102: 24,3470           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029656,001103: 24,3471           77777                           DEC      -0         B-14                       #  -0 CS

Page 665

029658,001105: 24,3472           44761        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
029659,001106: 24,3473           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
029660,001107: 24,3474           64676                           AD       BIT13                                 
029661,001108: 24,3475           54103                           TS       FLAGWRD7                              
029662,001109: 24,3476           05156                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
029663,001110: 24,3477           00036                           DEC      30         B-14                       
029664,001111: 
029665,001112: 24,3500           44702        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
029666,001113: 24,3501           55145                           TS       NVWORD1                               
029667,001114: 24,3502           05261                           TC       2PHSCHNG                              
029668,001115: 24,3503           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
029669,001116: 24,3504           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
029670,001117: 24,3505           34675                           CAF      PRIO20                                #  SET UP TIMEBURN
029671,001118: 24,3506           05042                           TC       FINDVAC                               
029672,001119: 24,3507  E7,1427                                  EBANK=   TGO                                   
029673,001120: 24,3507           02404 34067                     2CADR    S40.13                                
029674,001121: 
029675,001122: 24,3511           15213        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
029676,001123:                                                                                                  #        TO FLASHING V99 RESPONSE
029677,001124: 
029678,001125:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
029679,001126:                                                                                                  #  MOD BY ZELDIN
029680,001127: 
029681,001128:                                                                                                  #  FUNCTIONAL DESCRIPTION
029682,001129:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
029683,001130:                                                                                                  #        VECTOR(VGTIG).
029684,001131: 
029685,001132:                                                                                                  #  CALLING SEQUENCE
029686,001133:                                                                                                  #        L       CALL
029687,001134:                                                                                                  #        L+1             S40.1
029688,001135: 
029689,001136:                                                                                                  #  NORMAL EXIT MODE
029690,001137:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
029691,001138:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
029692,001139: 
029693,001140:                                                                                                  #  SUBROUTINES CALLED
029694,001141:                                                                                                  #        CSMPREC
029695,001142:                                                                                                  #        INITVEL
029696,001143:                                                                                                  #        CALCGRAV
029697,001144:                                                                                                  #        MIDGIM
029698,001145: 
029699,001146:                                                                                                  #  ALARM OR ABORT EXIT MODES
029700,001147:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
029701,001148: 
029702,001149:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029703,001150:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS SP B16 KGM
029704,001151:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
029705,001152:                                                                                                  #    IF DELTA-V MANEUVER
029706,001153:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
029707,001154:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
029708,001155:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
029709,001156:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
029710,001157:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
029711,001158:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
029712,001159:                                                                                                  #        CSTEER = 0                                      DP

Page 666

029714,001161:                                                                                                  #    IF AIMPOINT STEERING
029715,001162:                                                                                                  #    IF AIMPT STEER
029716,001163:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
029717,001164:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
029718,001165:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1
029719,001166:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
029720,001167: 
029721,001168:                                                                                                  #  OUTPUT
029722,001169:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
029723,001170:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
029724,001171:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
029725,001172:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
029726,001173:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
029727,001174:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
029728,001175:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
029729,001176:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
029730,001177:                                                                                                  #                        POSITION AT TIME OF IGNITION
029731,001178: 
029732,001179:                                                                                                  #  DEBRIS        QTEMP1
029733,001180:                                                                                                  #                MPAC, QPRET
029734,001181:                                                                                                  #                PUSHLIST
029735,001182:                                                                                                  #                RTX2,RTX1
029736,001183: 
029737,001184: 14,2002                                           BANK     14                                    
029738,001185: 16,2000                                           SETLOC   P40S1                                 
029739,001186: 16,2000                                           BANK                                           
029740,001187: 
029741,001188: 16,2000                                           COUNT    16/S40.1                              
029742,001189: 
029743,001190: 16,2000           77214        S40.1              SET      VLOAD                                 
029744,001191: 16,2001           01070                                    FIRSTFLG                              
029745,001192: 16,2002           11456                                    LO6ZEROS                              
029746,001193: 16,2003           03705                           STORE    BDT                                   
029747,001194: 16,2004           43020                           STQ      BOF                                   
029748,001195: 16,2005           03657                                    QTEMP                                 
029749,001196: 16,2006           01347                                    XDELVFLG                              
029750,001197: 16,2007           34073                                    S40.1B                                #  LAMBERT
029751,001198: 16,2010           77201                           SETPD    VLOAD                                 #  EXTERNAL DELTA V
029752,001199: 16,2011           00001                                    0                                     
029753,001200: 16,2012           03640                                    VTIG                                  
029754,001201: 16,2013           03576                           STORE    VINIT                                 
029755,001202: 16,2014           53435                           VXV      UNIT                                  
029756,001203: 16,2015           03632                                    RTIG                                  
029757,001204: 16,2016           27713                           STOVL    UT                                    #  UP IN UT
029758,001205: 16,2017           03632                                    RTIG                                  
029759,001206: 16,2020           03570                           STORE    RINIT                                 
029760,001207: 16,2021           65236                           VSQ      PDDL                                  
029761,001208: 16,2022           00045                                    36D                                   
029762,001209: 16,2023           56205                           DMP      DDV                                   
029763,001210: 16,2024           34127                                    THETACON                              
029764,001211: 16,2025           41205                           DMP      DMP                                   
029765,001212: 16,2026           03654                                    DELVSAB                               
029766,001213: 16,2027           03076                                    WEIGHT/G                              

Page 667

029768,001215: 16,2030           77671                           DDV                                            
029769,001216: 16,2031           03727                                    F                                     
029770,001217: 16,2032           24017                           STOVL    14D                                   
029771,001218: 16,2033           03646                                    DELVSIN                               
029772,001219: 
029773,001220: 16,2034           74241                           DOT      VXSC                                  
029774,001221: 16,2035           03713                                    UT                                    
029775,001222: 16,2036           03713                                    UT                                    
029776,001223: 16,2037           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
029777,001224: 16,2040           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
029778,001225: 16,2041           03646                                    DELVSIN                               
029779,001226: 16,2042           00017                                    14D                                   
029780,001227: 16,2043           63356                           SIN      PDVL                                  
029781,001228: 16,2044           00007                                    6D                                    
029782,001229: 16,2045           53435                           VXV      UNIT                                  
029783,001230: 16,2046           03713                                    UT                                    
029784,001231: 16,2047           45561                           VXSC     STADR                                 
029785,001232: 16,2050           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
029786,001233: 16,2051           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
029787,001234: 16,2052           00017                                    14D                                   
029788,001235: 16,2053           74346                           COS      VXSC                                  
029789,001236: 16,2054           74255                           VAD      VXSC                                  
029790,001237: 16,2055           03721                                    VGTIG                                 
029791,001238: 16,2056           00045                                    36D                                   
029792,001239: 16,2057           53352                           VSL2     VAD                                   
029793,001240: 16,2060           77626                           STADR                                          
029794,001241: 16,2061           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
029795,001242: 
029796,001243: 16,2062           77656                           UNIT                                           
029797,001244: 16,2063           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
029798,001245: 16,2064           03721                                    VGTIG                                 
029799,001246: 16,2065           43006                           PUSH     SET                                   
029800,001247: 16,2066           01072                                    AVFLAG                                
029801,001248: 16,2067           77624                           CALL                                           
029802,001249: 16,2070           10653                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
029803,001250: 16,2071           77650                           GOTO                                           
029804,001251: 16,2072           03657                                    QTEMP                                 
029805,001252: 16,2073           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
029806,001253: 16,2074           03413                                    TIG                                   
029807,001254: 16,2075           36001                                    TWODT                                 
029808,001255: 16,2076           14041                           STODL    TDEC1                                 
029809,001256: 16,2077           03656                                    TPASS4                                
029810,001257: 16,2100           77625                           DSU                                            
029811,001258: 16,2101           00041                                    TDEC1                                 
029812,001259: 16,2102           37423                           STCALL   DELLT4                                
029813,001260: 16,2103           61663                                    AGAIN                                 
029814,001261: 16,2104           77775                           VLOAD                                          
029815,001262: 16,2105           03612                                    VIPRIME                               
029816,001263: 16,2106           17713                           STODL    UT                                    
029817,001264: 16,2107           03413                                    TIG                                   

Page 668

029819,001266: 16,2110           00041                           STORE    TDEC1                                 
029820,001267: 16,2111           77621                           BDSU                                           
029821,001268: 16,2112           03656                                    TPASS4                                
029822,001269: 16,2113           37423                           STCALL   DELLT4                                
029823,001270: 16,2114           61663                                    AGAIN                                 
029824,001271: 16,2115           41575                           VLOAD    PUSH                                  
029825,001272: 16,2116           03646                                    DELVEET3                              
029826,001273: 16,2117           03721                           STORE    VGTIG                                 
029827,001274: 16,2120           45014                           SET      CALL                                  
029828,001275: 16,2121           01072                                    AVFLAG                                
029829,001276: 16,2122           10653                                    MIDGIM                                
029830,001277: 16,2123           52001                           SETPD    GOTO                                  
029831,001278: 16,2124           00001                                    0                                     
029832,001279: 16,2125           61716                                    CALCUT                                
029833,001280: 
029834,001281: 16,2126           00024 13714  THETACON           2DEC     .31830989  B-8                        
029835,001282: 
029836,001283: 30,2000                                           SETLOC   P40S3                                 
029837,001284: 30,2000                                           BANK                                           
029838,001285: 30,3657                                           COUNT    24/S40.1                              
029839,001286: 
029840,001287: 30,3657           04000 00000  EP4(45)H           2DEC     .125                                  
029841,001288: 30,3661           00707 03434  EP4(10)H           2DEC     .027777777                            
029842,001289: 
029843,001290: 30,3663           45020        AGAIN              STQ      CALL                                  
029844,001291: 30,3664           03730                                    QTEMP1                                
029845,001292: 30,3665           27022                                    THISPREC                              
029846,001293: 30,3666           66134                           SXA,2    SXA,1                                 
029847,001294: 30,3667           03746                                    RTX2                                  
029848,001295: 30,3670           03745                                    RTX1                                  
029849,001296: 30,3671           77775                           VLOAD                                          
029850,001297: 30,3672           00001                                    RATT                                  
029851,001298: 30,3673           03632                           STORE    RTIG                                  
029852,001299: 30,3674           27570                           STOVL    RINIT                                 
029853,001300: 30,3675           00007                                    VATT                                  
029854,001301: 30,3676           03640                           STORE    VTIG                                  
029855,001302: 30,3677           03576                           STORE    VINIT                                 
029856,001303: 30,3700           67201                           SETPD    SLOAD                                 
029857,001304: 30,3701           00001                                    0                                     
029858,001305: 30,3702           15332                                    HI6ZEROS                              
029859,001306: 30,3703           43125                           PDDL     BON                                   
029860,001307: 30,3704           21660                                    EP4(45)H                              
029861,001308: 30,3705           03705                                    NORMSW                                
029862,001309: 30,3706           61711                                    +3                                    
029863,001310: 30,3707           77745                           DLOAD                                          
029864,001311: 30,3710           21662                                    EP4(10)H                              
029865,001312: 30,3711           45006                           PUSH     CALL                                  
029866,001313: 30,3712           22000                                    INITVEL                               

Page 669

029868,001315: 30,3713           52001                           SETPD    GOTO                                  
029869,001316: 30,3714           00001                                    0                                     
029870,001317: 30,3715           03730                                    QTEMP1                                
029871,001318: 30,3716           45175        CALCUT             VLOAD    CALL                                  
029872,001319: 30,3717           03632                                    RTIG                                  
029873,001320: 30,3720           77256                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
029874,001321: 30,3721           70372                           VSL1     V/SC                                  
029875,001322: 30,3722           21761                                    200CS                                 #  G AT 2(-5) M/CS. CS
029876,001323: 30,3723           52315                           PDVL     VSU                                   
029877,001324: 30,3724           03612                                    VIPRIME                               
029878,001325: 30,3725           03713                                    UT                                    
029879,001326: 30,3726           52341                           V/SC     VSU                                   
029880,001327: 30,3727           21761                                    200CS                                 
029881,001328: 30,3730           72561                           VXSC     VSL2                                  
029882,001329: 30,3731           03703                                    CSTEER                                
029883,001330: 30,3732           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
029884,001331: 30,3733           03721                                    VGTIG                                 
029885,001332: 30,3734           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
029886,001333: 
029887,001334: 30,3735           74241                           DOT      VXSC                                  
029888,001335: 30,3736           00015                                    12D                                   
029889,001336: 30,3737           00001                                    0                                     
029890,001337: 30,3740           51352                           VSL2     BVSU                                  
029891,001338: 30,3741           00015                                    12D                                   
029892,001339: 30,3742           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
029893,001340: 30,3743           03727                                    F                                     
029894,001341: 30,3744           56261                           SRR      DDV                                   
029895,001342: 30,3745           21605                                    4                                     
029896,001343: 30,3746           03076                                    WEIGHT/G                              
029897,001344: 30,3747           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029898,001345: 30,3750           00015                                    12D                                   
029899,001346: 30,3751           77636                           VSQ                                            
029900,001347: 30,3752           75421                           BDSU     SQRT                                  
029901,001348: 30,3753           76561                           VXSC     VSL1                                  
029902,001349: 30,3754           53455                           VAD      UNIT                                  
029903,001350: 30,3755           00015                                    12D                                   
029904,001351: 30,3756           37713                           STCALL   UT                                    
029905,001352: 30,3757           03657                                    QTEMP                                 
029906,001353: 30,3760           01440 00000  200CS              2DEC     200        B-12                       
029907,001354: 

Page 670

029909,001356:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
029910,001357:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
029911,001358:                                                                                                  #  MOD BY ZELDIN
029912,001359: 
029913,001360:                                                                                                  #  FUNCTIONAL DESCRIPTION
029914,001361:                                                                                                  #        
029915,001362:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
029916,001363:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
029917,001364: 
029918,001365:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
029919,001366: 
029920,001367:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
029921,001368:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
029922,001369:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
029923,001370:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
029924,001371:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
029925,001372: 
029926,001373:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
029927,001374: 
029928,001375:                                                                                                  #  CALLING SEQUENCE
029929,001376:                                                                                                  #        L       CALL
029930,001377:                                                                                                  #        L+1             S40.2,3
029931,001378: 
029932,001379:                                                                                                  #  NORMAL EXIT MODE
029933,001380:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
029934,001381: 
029935,001382:                                                                                                  #  SUBROUTINES CALLED
029936,001383:                                                                                                  #        CALCGA
029937,001384: 
029938,001385:                                                                                                  #  ALARM OR ABORT MODES
029939,001386:                                                                                                  #        NONE
029940,001387: 
029941,001388:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029942,001389:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
029943,001390:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
029944,001391:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
029945,001392:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
029946,001393:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
029947,001394: 
029948,001395:                                                                                                  #  OUTPUT
029949,001396:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
029950,001397:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
029951,001398:                                                                                                  #        YSCREF
029952,001399:                                                                                                  #        ZSCREF
029953,001400:                                                                                                  #        GIMBAL ANGLES IN THETAD
029954,001401:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
029955,001402: 
029956,001403:                                                                                                  #  DEBRIS
029957,001404:                                                                                                  #        PUSHLIST, QPRET, MPAC
029958,001405:                                                                                                  #        QTEMP   TEMP. ERASABLE
029959,001406: 
029960,001407: 24,3512                                           BANK     24                                    
029961,001408: 24,2000                                           SETLOC   P40S                                  
029962,001409: 24,2000                                           BANK                                           
029963,001410: 24,3512                                           COUNT*   $$/S40.2                              
029964,001411: 
029965,001412: 24,3512           64375        S40.2,3            VLOAD    MXV                                   
029966,001413: 24,3513           03713                                    UT                                    
029967,001414: 24,3514           01736                                    REFSMMAT                              
029968,001415: 24,3515           44172                           VSL1     STQ                                   
029969,001416: 24,3516           03657                                    QTEMP                                 
029970,001417: 24,3517           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
029971,001418: 24,3520           43001                           SETPD    BON                                   
029972,001419: 24,3521           00001                                    0                                     

Page 671

029974,001421: 24,3522           00704                                    ENG2FLAG                              
029975,001422: 24,3523           51633                                    S40.2,3B                              
029976,001423: 24,3524           77745                           DLOAD                                          
029977,001424: 24,3525           15332                                    HI6ZEROS                              
029978,001425: 24,3526           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
029979,001426: 24,3527           03027                                    YACTOFF                               
029980,001427: 24,3530           72405                           DMP      SL1                                   
029981,001428: 24,3531           11672                                    TRIMSCAL                              
029982,001429: 24,3532           41415                           DAD      PUSH                                  
029983,001430: 24,3533           11674                                    YBIAS                                 
029984,001431: 24,3534           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
029985,001432: 24,3535           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
029986,001433: 24,3536           77735                           SLOAD                                          
029987,001434: 24,3537           03026                                    PACTOFF                               
029988,001435: 24,3540           72405                           DMP      SL1                                   
029989,001436: 24,3541           11672                                    TRIMSCAL                              
029990,001437: 24,3542           41415                           DAD      PUSH                                  
029991,001438: 24,3543           11676                                    PBIAS                                 
029992,001439: 24,3544           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
029993,001440: 24,3545           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
029994,001441: 24,3546           14323                           STODL    ZSCREF                                #  SIN(P +P0)
029995,001442: 24,3547           00007                                    6                                     
029996,001443: 24,3550           72405                           DMP      SL1                                   
029997,001444: 24,3551           00005                                    4                                     
029998,001445: 24,3552           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
029999,001446: 24,3553           00007                                    6                                     
030000,001447: 24,3554           72405                           DMP      SL1                                   
030001,001448: 24,3555           00003                                    2                                     
030002,001449: 24,3556           77666                           VDEF                                           
030003,001450: 
030004,001451: 24,3557           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
030005,001452: 24,3560           00323                                    ZSCREF                                
030006,001453: 24,3561           72405                           DMP      SL1                                   
030007,001454: 24,3562           00005                                    4                                     
030008,001455: 24,3563           41325                           PDDL     DMP                                   
030009,001456: 24,3564           00323                                    ZSCREF                                
030010,001457: 24,3565           00003                                    2                                     
030011,001458: 24,3566           57552                           SL1      DCOMP                                 
030012,001459: 24,3567           77666                           VDEF                                           
030013,001460: 
030014,001461: 24,3570           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030015,001462: 24,3571           77666                           VDEF                                           
030016,001463: 
030017,001464: 24,3572           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030018,001465: 24,3573           00323                                    ZSCREF                                
030019,001466: 24,3574           65325                           PDDL     PDDL                                  
030020,001467: 24,3575           00315                                    YSCREF                                
030021,001468: 24,3576           00307                                    XSCREF                                
030022,001469: 24,3577           77666                           VDEF                                           

Page 672

030024,001471: 24,3600           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030025,001472: 24,3601           03713                                    UT                                    
030026,001473: 24,3602           53515                           PDVL     UNIT                                  
030027,001474: 24,3603           03632                                    RTIG                                  
030028,001475: 24,3604           57435                           VXV      VCOMP                                 
030029,001476: 24,3605           00001                                    0                                     
030030,001477: 24,3606           41456                           UNIT     PUSH                                  
030031,001478: 24,3607           77624                           CALL                                           
030032,001479: 24,3610           51652                                    TSTRXUT                               
030033,001480: 24,3611           57435                           VXV      VCOMP                                 
030034,001481: 24,3612           00001                                    0                                     
030035,001482: 24,3613           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030036,001483: 24,3614           00307                                    XSCREF                                
030037,001484: 24,3615           76505                           VXM      VSL1                                  
030038,001485: 24,3616           00001                                    0                                     
030039,001486: 24,3617           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030040,001487: 24,3620           00315                                    YSCREF                                
030041,001488: 24,3621           76505                           VXM      VSL1                                  
030042,001489: 24,3622           00001                                    0                                     
030043,001490: 24,3623           24315                           STOVL    YSCREF                                #  Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2
030044,001491: 24,3624           00323                                    ZSCREF                                
030045,001492: 24,3625           76505                           VXM      VSL1                                  
030046,001493: 24,3626           00001                                    0                                     
030047,001494: 24,3627           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030048,001495: 24,3630           52001                           SETPD    GOTO                                  
030049,001496: 24,3631           00001                                    0                                     
030050,001497: 24,3632           03657                                    QTEMP                                 
030051,001498: 24,3633           77775        S40.2,3B           VLOAD                                          
030052,001499: 24,3634           15330                                    UNITX                                 
030053,001500: 24,3635           27351                           STOVL    SCAXIS                                
030054,001501: 24,3636           03713                                    UT                                    
030055,001502: 24,3637           00307                           STORE    XSCREF                                
030056,001503: 24,3640           53435                           VXV      UNIT                                  
030057,001504: 24,3641           03632                                    RTIG                                  
030058,001505: 24,3642           34007                           STCALL   6D                                    
030059,001506: 24,3643           51652                                    TSTRXUT                               
030060,001507: 24,3644           00315                           STORE    YSCREF                                
030061,001508: 24,3645           57435                           VXV      VCOMP                                 
030062,001509: 24,3646           00307                                    XSCREF                                
030063,001510: 24,3647           77772                           VSL1                                           
030064,001511: 24,3650           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
030065,001512: 24,3651           03657                                    QTEMP                                 
030066,001513: 24,3652           46145        TSTRXUT            DLOAD    BHIZ                                  
030067,001514: 24,3653           00045                                    36D                                   
030068,001515: 24,3654           51657                                    BADVCTOR                              
030069,001516: 24,3655           43575                           VLOAD    RVQ                                   
030070,001517: 24,3656           00007                                    6D                                    
030071,001518: 24,3657           53575        BADVCTOR           VLOAD    UNIT                                  
030072,001519: 24,3660           03632                                    RTIG                                  
030073,001520: 24,3661           53515                           PDVL     UNIT                                  

Page 673

030075,001522: 24,3662           03640                                    VTIG                                  
030076,001523: 24,3663           53322                           VSR3     VAD                                   
030077,001524: 24,3664           53435                           VXV      UNIT                                  
030078,001525: 24,3665           03713                                    UT                                    
030079,001526: 24,3666           77676                           VCOMP                                          
030080,001527: 24,3667           00007                           STORE    6D                                    
030081,001528: 24,3670           77616                           RVQ                                            
030082,001529: 24,3671           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
030083,001530: 24,3673           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
030084,001531: 24,3675           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
030085,001532: 
030086,001533:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
030087,001534: 
030088,001535:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
030089,001536:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
030090,001537:                                                                                                  #  MOD BY ZELDIN
030091,001538: 
030092,001539:                                                                                                  #  FUNCTIONAL DESCRIPTION
030093,001540: 
030094,001541:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
030095,001542:                                                                                                  #        TO CONTROL COORDS.
030096,001543: 
030097,001544:                                                                                                  #  CALLING SEQUENCE
030098,001545: 
030099,001546:                                                                                                  #        L       CALL
030100,001547:                                                                                                  #        L+1             S41.1
030101,001548: 
030102,001549:                                                                                                  #  NORMAL EXIT MODE
030103,001550:                                                                                                  #        
030104,001551:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
030105,001552: 
030106,001553:                                                                                                  #  SUBROUTINES CALLED:
030107,001554: 
030108,001555:                                                                                                  #        CALCSMSC
030109,001556:                                                                                                  #        CDUTRIG
030110,001557: 
030111,001558:                                                                                                  #  ALARM OR ABORT MODES
030112,001559: 
030113,001560:                                                                                                  #        NONE
030114,001561: 
030115,001562:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030116,001563: 
030117,001564:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
030118,001565:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
030119,001566: 
030120,001567:                                                                                                  #  OUTPUT
030121,001568: 
030122,001569:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
030123,001570: 
030124,001571:                                                                                                  #  DEBRIS:
030125,001572: 
030126,001573:                                                                                                  #        QTEMP           TEMP ERASABLE
030127,001574:                                                                                                  #        QPRET
030128,001575: 
030129,001576: 24,3677                                           COUNT    22/S41.1                              
030130,001577: 
030131,001578: 22,2000                                           SETLOC   P40S5                                 
030132,001579: 22,2000                                           BANK                                           
030133,001580: 
030134,001581: 22,3426           45020        S41.1              STQ      CALL                                  
030135,001582: 22,3427           03657                                    QTEMP                                 
030136,001583: 22,3430           47432                                    CDUTRIG                               
030137,001584: 22,3431           77775                           VLOAD                                          
030138,001585: 22,3432           45121                           MXV      CALL                                  
030139,001586: 22,3433           01736                                    REFSMMAT                              
030140,001587: 22,3434           47577                                    *SMNB*                                

Page 674

030142,001589: 22,3435           74321                           MXV      VXSC                                  
030143,001590: 22,3436           05004                                    QUADROT                               
030144,001591: 22,3437           05443                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
030145,001592: 22,3440           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
030146,001593: 22,3441           03657                                    QTEMP                                 
030147,001594: 22,3442           24000 00000  TENBNK14           2DEC     10.        B-4                        
030148,001595: 

Page 675

030150,001597:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
030151,001598:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030152,001599:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030153,001600:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030154,001601:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
030155,001602:                                                                                                  #  CALLING SEQ   CALL S40.8
030156,001603:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030157,001604:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
030158,001605:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030159,001606:                                                                                                  #                                IN METERS/CS AT +7.
030160,001607:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030161,001608:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030162,001609:                                                                                                  #                                METERS/CS AT +7.
030163,001610:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030164,001611:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
030165,001612:                                                                                                  #                IDLEFAIL-       A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030166,001613:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030167,001614:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
030168,001615:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030169,001616:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
030170,001617:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030171,001618:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030172,001619:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
030173,001620:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030174,001621:                                                                                                  #  DEBRIS        OMEGAXC, +1
030175,001622:                                                                                                  #  SUBROUTINES USED -  *SMNB*, ALARM
030176,001623: 
030177,001624: 16,2000                                           SETLOC   P40S1                                 
030178,001625: 16,2000                                           BANK                                           
030179,001626: 16,2130  E6,1466                                  EBANK=   DAPDATR1                              
030180,001627: 16,2130                                           COUNT    16/S40.8                              
030181,001628: 
030182,001629: 16,2130           44001        S40.8              SETPD    STQ                                   
030183,001630: 16,2131           00001        SPBIT1                      00D                                   
030184,001631: 16,2132           03657                                    QTEMP                                 
030185,001632: 16,2133           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
030186,001633: 16,2134           03433                                    DELVREF                               
030187,001634: 16,2135           03705                                    BDT                                   
030188,001635: 16,2136           77655                           VAD                                            
030189,001636: 16,2137           03721                                    VGPREV                                
030190,001637: 16,2140           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
030191,001638: 
030192,001639: 16,2141           77646                           ABVAL                                          
030193,001640: 16,2142           03654                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
030194,001641: 16,2143           77776                           EXIT                                           
030195,001642: 16,2144           05301                           TC       PHASCHNG                              
030196,001643: 16,2145           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
030197,001644: 
030198,001645: 16,2146           06006                           TC       INTPRET                               
030199,001646: 16,2147           77775                           VLOAD                                          

Page 676

030201,001648: 16,2150           03460                                    VG                                    
030202,001649: 16,2151           03721                           STORE    VGPREV                                
030203,001650: 16,2152           77214                           BOFF     VLOAD                                 
030204,001651: 16,2153           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
030205,001652: 16,2154           03657                                    QTEMP                                 
030206,001653: 16,2155           03433                                    DELVREF                               
030207,001654: 16,2156           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
030208,001655: 16,2157           41335                           SLOAD    DMP                                   
030209,001656: 16,2160           01354                                    DVTHRESH                              #  SC.AT B-2 M/CS
030210,001657: 16,2161           36011                                    DPB-9                                 
030211,001658: 16,2162           77621                           BDSU                                           
030212,001659: 16,2163           77440                           BMN      EXIT                                  
030213,001660: 16,2164           40021                                    LOTHRUST                              
030214,001661: 16,2165           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
030215,001662: 16,2166           74675                           MASK     BIT14                                 
030216,001663: 16,2167           10000                           CCS      A                                     
030217,001664: 16,2170           34712                           CAF      BIT1                                  
030218,001665: 16,2171           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
030219,001666: 16,2172           31423                           CAE      EREPFRAC                              
030220,001667: 16,2173           55652                           TS       REPFRAC                               
030221,001668: 
030222,001669: 16,2174           06006                           TC       INTPRET                               
030223,001670: 16,2175           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
030224,001671: 16,2176           03433                                    DELVREF                               
030225,001672: 16,2177           03705                                    BDT                                   
030226,001673: 16,2200           77656                           UNIT                                           
030227,001674: 16,2201           41441                           DOT      PUSH                                  #  (00D)
030228,001675: 16,2202           03460                                    VG                                    
030229,001676: 16,2203           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
030230,001677: 16,2204           40013                                    INCRSVG                               #        DISPLAY ALARM IF NOT
030231,001678: 16,2205           36005                                    2VEXHUST                              
030232,001679: 16,2206           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
030233,001680: 16,2207           11454                                    LODPHALF                              
030234,001681: 16,2210           70501                           NORM     SR1                                   
030235,001682: 16,2211           00047                                    X1                                    
030236,001683: 16,2212           60325                           PDDL     NORM                                  
030237,001684: 16,2213           00045                                    36D                                   #  (MAG DELVG)
030238,001685: 16,2214           00050                                    X2                                    
030239,001686: 16,2215           77665                           BDDV                                           
030240,001687: 16,2216           53664                           XSU,2    SL*                                   
030241,001688: 16,2217           00046                                    X1                                    
030242,001689: 16,2220           57607                                    0          -9D,2                      
030243,001690: 16,2221           41405                           DMP      PUSH                                  #  (00D)
030244,001691: 16,2222           36003                                    -FOURDT                               
030245,001692: 16,2223           54335                           SLOAD    SR                                    
030246,001693: 16,2224           03016                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
030247,001694: 16,2225           20617                                    14D                                   
030248,001695: 16,2226           45421                           BDSU     STADR                                 
030249,001696: 16,2227           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
030250,001697: 16,2230           77615                           DAD                                            

Page 677

030252,001699: 16,2231           01205                                    PIPTIME                               
030253,001700: 16,2232           17413                           STODL    TIG                                   
030254,001701: 16,2233           03430                                    TGO                                   
030255,001702: 16,2234           50025                           DSU      BMN                                   
030256,001703: 16,2235           36007                                    FOURSEC                               
030257,001704: 16,2236           40000                                    S40.81                                
030258,001705: 
030259,001706: 16,2237           74375        XPRODUCT           VLOAD    VXSC                                  
030260,001707: 16,2240           03705                                    BDT                                   
030261,001708: 16,2241           03703                                    CSTEER                                
030262,001709: 16,2242           52352                           VSL2     VSU                                   
030263,001710: 16,2243           03433                                    DELVREF                               
030264,001711: 16,2244           63256                           UNIT     PDVL                                  
030265,001712: 16,2245           03460                                    VG                                    
030266,001713: 16,2246           47256                           UNIT     VXV                                   
030267,001714: 16,2247           45121                           MXV      CALL                                  
030268,001715: 16,2250           01736                                    REFSMMAT                              #  (REFSMMAT/2)
030269,001716: 16,2251           47577                                    *SMNB*                                
030270,001717: 16,2252           77761                           VXSC                                           
030271,001718: 16,2253           03245                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
030272,001719: 16,2254           03126        OMEGACLC           STORE    OMEGAC                                
030273,001720: 16,2255           77650                           GOTO                                           
030274,001721: 16,2256           03657                                    QTEMP                                 
030275,001722: 
030276,001723: 17,2000                                           SETLOC   DAPS7                                 
030277,001724: 17,2000                                           BANK                                           
030278,001725: 17,2000                                           COUNT    17/S40.8                              
030279,001726: 
030280,001727: 17,2000           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
030281,001728: 17,2002           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
030282,001729: 17,2004           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
030283,001730: 17,2006           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
030284,001731: 17,2010           00040 00000  DPB-9              2DEC     1          B-9                        
030285,001732: 
030286,001733: 20,2000                                           SETLOC   DAPS6                                 
030287,001734: 20,2000                                           BANK                                           
030288,001735: 
030289,001736: 20,2000                                           COUNT    20/S40.8                              
030290,001737: 
030291,001738: 20,2000           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
030292,001739: 20,2001           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
030293,001740: 20,2002           15332                                    HI6ZEROS                              
030294,001741: 20,2003           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
030295,001742: 20,2004           77776                           EXIT                                           
030296,001743: 20,2005           34672                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
030297,001744: 20,2006           55447                           TS       CNTR                                  

Page 678

030299,001746: 20,2007           06006                           TC       INTPRET                               
030300,001747: 20,2010           52014                           CLEAR    GOTO                                  
030301,001748: 20,2011           01264                                    STEERSW                               #  RESTARTS OK
030302,001749: 20,2012           03657                                    QTEMP                                 
030303,001750: 20,2013           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
030304,001751: 20,2014           05537                           TC       ALARM                                 #  IN WRONG DIRECTION.
030305,001752: 20,2015           01407                           OCT      01407                                 
030306,001753: 20,2016           06006                           TC       INTPRET                               
030307,001754: 20,2017           77650                           GOTO                                           
030308,001755: 20,2020           03657                                    QTEMP                                 
030309,001756: 
030310,001757: 20,2021           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
030311,001758: 20,2022           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
030312,001759: 20,2023           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
030313,001760: 20,2024           15332                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
030314,001761: 20,2025           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
030315,001762: 20,2026           77776                           EXIT                                           
030316,001763: 
030317,001764: 20,2027           44714                           CS       ZERO                                  
030318,001765: 20,2030           55653                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
030319,001766: 20,2031           55663                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
030320,001767: 20,2032           55652                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
030321,001768: 20,2033           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
030322,001769: 
030323,001770: 20,2034           06006                           TC       INTPRET                               
030324,001771: 20,2035           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
030325,001772: 20,2036           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
030326,001773: 20,2037           03657                                    QTEMP                                 #  RESTARTS OK
030327,001774: 

Page 679

030329,001776:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030330,001777:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030331,001778:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
030332,001779:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
030333,001780:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030334,001781:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
030335,001782:                                                                                                  #  INPUT         RNIT  - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030336,001783:                                                                                                  #                VNIT  - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030337,001784:                                                                                                  #                VRPREV- LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030338,001785:                                                                                                  #                        METERS/CS AT +7.
030339,001786:                                                                                                  #                NOMTIG- TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
030340,001787:                                                                                                  #                DELLT4- TRANSFER TIME FROM PIPTIME TO TARGET %+28"
030341,001788:                                                                                                  #                TNIT  - TIME OF RNIT AND VNIT IN CS AT +28
030342,001789:                                                                                                  #                GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030343,001790:                                                                                                  #                        ACCERERATION OF GRAVITY IN METERS/CS AT +7.
030344,001791:                                                                                                  #                DELVREF- CHANGE IN VELOCITY DURING LAST 2 SEC IN
030345,001792:                                                                                                  #                        METERS/CS AT +7.
030346,001793:                                                                                                  #                NORMSW  SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
030347,001794:                                                                                                  #                        165 TO 195 DEGREES
030348,001795:                                                                                                  #                        RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
030349,001796:                                                                                                  #  OUTPUT        VGTEMP- VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
030350,001797:                                                                                                  #                COGA  - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
030351,001798:                                                                                                  #                        OR PREVIOUS PASS THRU S40.9
030352,001799:                                                                                                  #                GOBL/2- OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
030353,001800:                                                                                                  #                VRPREV- VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
030354,001801:                                                                                                  #                BDT   - B VECTOR IN METERS/CS AT +7.
030355,001802:                                                                                                  #  SUBROUTINES USED - INITVEL
030356,001803: 
030357,001804: 16,2000                                           SETLOC   P40S1                                 
030358,001805: 16,2000                                           BANK                                           
030359,001806: 
030360,001807: 16,2257  E6,1746                                  EBANK=   NBRCYCLS                              
030361,001808: 16,2257                                           COUNT    16/S40.9                              
030362,001809: 
030363,001810: 16,2257           06006        S40.9              TC       INTPRET                               
030364,001811: 16,2260           71201                           SETPD    DLOAD                                 
030365,001812: 16,2261           00001                                    00D                                   
030366,001813: 16,2262           11456                                    LO6ZEROS                              
030367,001814: 16,2263           77725                           PDDL                                           
030368,001815: 16,2264           34401                                    EP4(45)L                              
030369,001816: 16,2265           71214                           BON      DLOAD                                 
030370,001817: 16,2266           03705                                    NORMSW                                
030371,001818: 16,2267           34271                                    +2                                    
030372,001819: 16,2270           34403                                    EP4(10)L                              
030373,001820: 16,2271           77606                           PUSH                                           
030374,001821: 16,2272           45014                           CLEAR    CALL                                  
030375,001822: 16,2273           00675                                    GUESSW                                
030376,001823: 16,2274           22002                                    HAVEGUES                              
030377,001824: 16,2275           77776                           EXIT                                           
030378,001825: 16,2276           05301                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
030379,001826: 16,2277           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW

Page 680

030381,001828: 16,2300           10000                           OCT      10000                                 
030382,001829: 16,2301           06006                           TC       INTPRET                               
030383,001830: 16,2302           77614        ENDLAMB            BON                                            
030384,001831: 16,2303           01310                                    FIRSTFLG                              
030385,001832: 16,2304           34322                                    FIRSTTME                              
030386,001833: 16,2305           52375                           VLOAD    VSU                                   
030387,001834: 16,2306           03612                                    VIPRIME                               
030388,001835: 16,2307           03466                                    VRPREV                                
030389,001836: 16,2310           45325                           PDDL     DSU                                   
030390,001837: 16,2311           03474                                    TNIT                                  
030391,001838: 16,2312           03476                                    TNITPREV                              
030392,001839: 16,2313           55261                           SL       BDDV                                  
030393,001840: 16,2314           20222                                    17D                                   
030394,001841: 16,2315           34375                                    200CSHI                               
030395,001842: 16,2316           77761                           VXSC                                           
030396,001843: 16,2317           76451                           VSU      VSL1                                  
030397,001844: 16,2320           01207                                    GDT/2                                 
030398,001845: 16,2321           03705                           STORE    BDT                                   
030399,001846: 16,2322           57535        FIRSTTME           SLOAD    DCOMP                                 
030400,001847: 16,2323           03747                                    RTX2                                  
030401,001848: 16,2324           77640                           BMN                                            
030402,001849: 16,2325           34342                                    MOONCASE                              
030403,001850: 16,2326           53575                           VLOAD    UNIT                                  
030404,001851: 16,2327           01171                                    RN                                    
030405,001852: 16,2330           45345                           DLOAD    DSU                                   
030406,001853: 16,2331           01205                                    PIPTIME                               
030407,001854: 16,2332           03450                                    NOMTIG                                
030408,001855: 16,2333           56205                           DMP      DDV                                   
030409,001856: 16,2334           34377                                    EARTHMU                               
030410,001857: 16,2335           00043                                    34D                                   
030411,001858: 16,2336           53361                           VXSC     VAD                                   
030412,001859: 16,2337           01215                                    GOBL/2                                
030413,001860: 16,2340           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
030414,001861: 16,2341           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
030415,001862: 16,2342           77776        MOONCASE           EXIT                                           
030416,001863: 16,2343           05301                           TC       PHASCHNG                              
030417,001864: 16,2344           04021                           OCT      04021                                 #  C, JOB BELOW
030418,001865: 
030419,001866: 16,2345           06006        COPY40.9           TC       INTPRET                               
030420,001867: 16,2346           77745                           DLOAD                                          
030421,001868: 16,2347           03474                                    TNIT                                  
030422,001869: 16,2350           27476                           STOVL    TNITPREV                              
030423,001870: 16,2351           03612                                    VIPRIME                               
030424,001871: 16,2352           03466                           STORE    VRPREV                                
030425,001872: 16,2353           77414                           CLEAR    EXIT                                  
030426,001873: 16,2354           01270                                    FIRSTFLG                              
030427,001874: 16,2355           44712                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
030428,001875: 16,2356           55746                           TS       NBRCYCLS                              
030429,001876: 16,2357           05301        ENDS40.9           TC       PHASCHNG                              
030430,001877: 16,2360           00001                           OCT      00001                                 

Page 681

030432,001879: 16,2361           15112                           TCF      ENDOFJOB                              
030433,001880: 
030434,001881: 16,2362           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
030435,001882: 16,2363           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
030436,001883: 16,2364           11456                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
030437,001884: 16,2365           17351                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
030438,001885: 16,2366           11456                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
030439,001886: 16,2367           27347                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
030440,001887: 16,2370           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
030441,001888: 16,2371           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
030442,001889: 16,2372           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
030443,001890: 16,2373           12355                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
030444,001891: 
030445,001892: 16,2374           01440 00000  200CSHI            2DEC     200        B-12                       
030446,001893: 16,2376           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
030447,001894: 16,2400           04000 00000  EP4(45)L           2DEC     .125                                  
030448,001895: 16,2402           00707 03434  EP4(10)L           2DEC     .027777777                            
030449,001896: 

Page 682

030451,001898:                                                                                                  #  NAME                  S40.13 - TIMEBURN
030452,001899: 
030453,001900:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
030454,001901:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
030455,001902:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
030456,001903:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
030457,001904:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
030458,001905: 
030459,001906:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
030460,001907: 
030461,001908:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
030462,001909:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
030463,001910:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
030464,001911:                                                                                                  #                        MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
030465,001912:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
030466,001913:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
030467,001914: 
030468,001915:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
030469,001916:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
030470,001917:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
030471,001918:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
030472,001919:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
030473,001920:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
030474,001921: 
030475,001922: 16,2404  E7,1427                                  EBANK=   TGO                                   
030476,001923: 16,2404                                           COUNT    16/40.13                              
030477,001924: 
030478,001925: 16,2404           06006        S40.13             TC       INTPRET                               
030479,001926: 16,2405           43001                           SETPD    SET                                   
030480,001927: 16,2406           00001                                    00D                                   
030481,001928: 16,2407           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
030482,001929: 16,2410           51575                           VLOAD    ABVAL                                 
030483,001930: 16,2411           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
030484,001931: 16,2412           77776                           EXIT                                           
030485,001932: 16,2413           34704                           CAF      BIT7                                  #  TEST +X TRANSLATION
030486,001933: 16,2414           00006                           EXTEND                                         
030487,001934: 16,2415           06031                           RXOR     CHAN31                                
030488,001935: 16,2416           74704                           MASK     BIT7                                  
030489,001936: 16,2417           00006                           EXTEND                                         
030490,001937: 16,2420           12502                           BZF      NOTADDUL                              
030491,001938: 16,2421           06006                           TC       INTPRET                               
030492,001939: 16,2422           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
030493,001940: 16,2423           36027                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
030494,001941: 16,2424           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
030495,001942: 16,2425           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
030496,001943: 16,2426           00700                                    NJETSFLG                              
030497,001944: 16,2427           34430                                    S40.130                               
030498,001945: 16,2430           77621        S40.130            BDSU                                           
030499,001946: 16,2431           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
030500,001947: 16,2432           36013                                    K1VAL                                 #  M.NETWON-CS AT +24
030501,001948: 16,2433           03076                                    WEIGHT/G                              
030502,001949: 16,2434           50021                           BDSU     BMN                                   
030503,001950: 16,2435           00001                                    00D                                   
030504,001951: 16,2436           34461                                    S40.131                               #  TGO LESS THAN 100 CS
030505,001952: 16,2437           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7

Page 683

030507,001954: 16,2440           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
030508,001955: 16,2441           36023                                    3.5SEC                                #  350 CS AT +14
030509,001956: 16,2442           65221                           BDSU     PDDL                                  
030510,001957: 16,2443           03076                                    WEIGHT/G                              
030511,001958: 16,2444           03727                                    F                                     #  F AT +7
030512,001959: 16,2445           60405                           DMP      SR2                                   
030513,001960: 16,2446           36025                                    5SECOND                               #  500 CS AT +14
030514,001961: 16,2447           41471                           DDV      PUSH                                  #  04D = TEMP2
030515,001962: 16,2450           51021                           BDSU     BPL                                   
030516,001963: 16,2451           00003                                    02D                                   
030517,001964: 16,2452           34475                                    S40.133                               #  TGO GREATER THAN 600 CS
030518,001965: 16,2453           55345                           DLOAD    BDDV                                  
030519,001966: 16,2454           43205                           DMP      DAD                                   
030520,001967: 16,2455           36025                                    5SECOND                               #  500 CS AT +14
030521,001968: 16,2456           36021                                    1SEC2D                                #  100 CS AT +14
030522,001969: 16,2457           77650                           GOTO                                           
030523,001970: 16,2460           34466                                    S40.132                               
030524,001971: 16,2461           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
030525,001972: 16,2462           03076                                    WEIGHT/G                              
030526,001973: 16,2463           56215                           DAD      DDV                                   
030527,001974: 16,2464           36015                                    K2VAL                                 #  M.NEWTON-CS AT +24
030528,001975: 16,2465           36017                                    K3VAL                                 #  M.NEWTONS AT +10
030529,001976: 16,2466           77776        S40.132            EXIT                                           
030530,001977: 16,2467  E7,1427                                  EBANK=   TGO                                   
030531,001978: 16,2467           07226                           TC       TPAGREE                               
030532,001979: 16,2470           30154                           CA       MPAC                                  
030533,001980: 16,2471           56001                           XCH      L                                     
030534,001981: 16,2472           34714                           CA       ZERO                                  
030535,001982: 16,2473           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
030536,001983: 16,2474           02477                           TC       S40.134                               
030537,001984: 
030538,001985: 16,2475           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
030539,001986: 16,2476           01266                                    IMPULSW                               
030540,001987: 16,2477           05301        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
030541,001988: 16,2500           00003                           OCT      3                                     
030542,001989: 
030543,001990: 16,2501           15112                           TCF      ENDOFJOB                              
030544,001991: 16,2502           06006        NOTADDUL           TC       INTPRET                               
030545,001992: 16,2503           77650                           GOTO                                           
030546,001993: 16,2504           34431                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
030547,001994: 17,2000                                           SETLOC   DAPS7                                 
030548,001995: 17,2000                                           BANK                                           
030549,001996: 
030550,001997: 17,2012                                           COUNT    17/40.13                              
030551,001998: 
030552,001999: 17,2012           00001 27221  K1VAL              2DEC     884.52887  B-23                       #  19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
030553,002000: 17,2014           00000 22244  K2VAL              2DEC     293.137805 B-23                       #   6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2

Page 684

030555,002002: 17,2016           00570 33235  K3VAL              2DEC     11.7766668 B-9                        #  26475 LBS, SC.AT B+9 NEWTONS/E+4
030556,002003: 17,2020           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14
030557,002004: 17,2022           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
030558,002005: 17,2024           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
030559,002006: 17,2026           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
030560,002007:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
030561,002008:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
030562,002009:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)

Page 685

030564,002011:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
030565,002012:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
030566,002013:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
030567,002014: 
030568,002015:                                                                                                  #  FUNCTIONAL DESCRIPTION
030569,002016:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
030570,002017:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
030571,002018:                                                                                                  #                OF GIMBAL MOTION ON GPI
030572,002019:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
030573,002020:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
030574,002021:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
030575,002022:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
030576,002023:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
030577,002024:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
030578,002025:                                                                                                  #                OF RESTARTING ACTUATORS.
030579,002026: 
030580,002027:                                                                                                  #  CALLING SEQUENCE....
030581,002028:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
030582,002029: 
030583,002030:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
030584,002031: 
030585,002032:                                                                                                  #  SUBROUTINES CALLED....
030586,002033:                                                                                                  #        OUTPUT (INTERNAL)
030587,002034:                                                                                                  #        FIXDELAY
030588,002035: 
030589,002036:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
030590,002037: 
030591,002038:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
030592,002039:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
030593,002040:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
030594,002041:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
030595,002042:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
030596,002043:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
030597,002044:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
030598,002045: 
030599,002046:                                                                                                  #  OUTPUT
030600,002047:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
030601,002048:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
030602,002049: 
030603,002050:                                                                                                  #  DEBRIS
030604,002051:                                                                                                  #        TEMPR60, CNTR
030605,002052: 
030606,002053: 17,2030                                           BANK     17                                    
030607,002054: 20,2000                                           SETLOC   DAPS6                                 
030608,002055: 20,2000                                           BANK                                           
030609,002056: 
030610,002057: 20,2040  E6,1447                                  EBANK=   CNTR                                  
030611,002058: 20,2040                                           COUNT    20/S40.6                              
030612,002059: 
030613,002060: 20,2040           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
030614,002061: 20,2041           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
030615,002062: 20,2042           00006                           EXTEND                                         
030616,002063: 20,2043           62045                           BZMF     +2                                    
030617,002064: 20,2044           15213                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
030618,002065: 
030619,002066: 20,2045           44712                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY

Page 686

030621,002068: 20,2046           55445                           TS       MRKRTMP                               
030622,002069: 20,2047           34712                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
030623,002070: 20,2050           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
030624,002071:                                                                                                  #        NORMALLY +0, BY S40.6)
030625,002072: 20,2051  E6,1447                                  EBANK=   CNTR                                  
030626,002073: 20,2051           44714        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
030627,002074: 20,2052           55303                           TS       OPTIND                                
030628,002075: 
030629,002076: 20,2053           44711                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
030630,002077: 20,2054           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
030631,002078: 20,2055           03012                           WAND     CHAN12                                #        NORMAL STATE)
030632,002079: 
030633,002080: 20,2056           32143                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
030634,002081: 20,2057           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
030635,002082: 20,2060           05012                           WOR      CHAN12                                
030636,002083: 
030637,002084: 20,2061           05156                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
030638,002085: 20,2062           00006                           DEC      6          B-14                       #        RELAY LATCHING
030639,002086: 
030640,002087: 20,2063           34711                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
030641,002088: 20,2064           00006                           EXTEND                                         
030642,002089: 20,2065           05012                           WOR      CHAN12                                
030643,002090: 
030644,002091: 20,2066           05156                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
030645,002092: 20,2067           00002                           DEC      2          B-14                       #        RELAY LATCHING
030646,002093: 
030647,002094: 20,2070           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
030648,002095: 20,2071           12131                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
030649,002096:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
030650,002097: 
030651,002098: 20,2072           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
030652,002099: 20,2073           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
030653,002100: 20,2074           00006                           EXTEND                                         
030654,002101: 20,2075           62127                           BZMF     GIMTRIM                               #  (TRIM ONLY)
030655,002102: 
030656,002103: 20,2076           44714        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
030657,002104: 20,2077           55447                           TS       CNTR                                  
030658,002105: 
030659,002106: 20,2100           32145        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
030660,002107: 20,2101           02114                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
030661,002108: 20,2102           32144                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
030662,002109: 20,2103           02114                           TC       OUTPUT                                
030663,002110: 20,2104           32145                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
030664,002111: 20,2105           02114                           TC       OUTPUT                                
030665,002112: 
030666,002113: 20,2106           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST

Page 687

030668,002115: 20,2107           10000                           CCS      A                                     
030669,002116: 20,2110           12127                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
030670,002117: 20,2111           44712                           CS       BIT1                                  #  SET UP YAW TEST
030671,002118: 20,2112           55447                           TS       CNTR                                  
030672,002119: 20,2113           12100                           TCF      GIMDTEST                              #  FOR YAW TEST
030673,002120: 20,2114           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
030674,002121: 20,2115           23146                           QXCH     TEMPR60                               
030675,002122: 
030676,002123: 20,2116           51447                           INDEX    CNTR                                  
030677,002124: 20,2117           54054                           TS       TVCPITCH                              
030678,002125: 
030679,002126: 20,2120           51447                           INDEX    CNTR                                  
030680,002127: 20,2121           34700                           CAF      BIT11                                 
030681,002128: 20,2122           00006                           EXTEND                                         
030682,002129: 20,2123           05014                           WOR      CHAN14                                
030683,002130: 
030684,002131: 20,2124           05156                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
030685,002132: 20,2125           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
030686,002133: 20,2126           01146                           TC       TEMPR60                               
030687,002134: 20,2127           05156        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
030688,002135: 20,2130           00620                           DEC      400        B-14                       
030689,002136: 
030690,002137: 20,2131           44714                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
030691,002138: 20,2132           61425                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
030692,002139: 20,2133           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
030693,002140: 20,2134           44714                           CS       ZERO                                  
030694,002141: 20,2135           61426                           AD       YACTOFF                               
030695,002142: 20,2136           54053                           TS       TVCYAW                                
030696,002143: 
030697,002144: 20,2137           34755                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
030698,002145: 20,2140           00006                           EXTEND                                         
030699,002146: 20,2141           05014                           WOR      CHAN14                                
030700,002147: 
030701,002148: 20,2142           15213        ENDS40.6           TCF      TASKOVER                              
030702,002149: 20,2143           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
030703,002150: 20,2144           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
030704,002151: 20,2145           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
030705,002152: 
030706,002153:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
030707,002154: 
030708,002155: 20,2146                                           COUNT    20/S41.2                              
030709,002156: 20,2146           31466        S41.2              CA       DAPDATR1                              

Page 688

030711,002158: 20,2147           76214                           MASK     THREE                                 
030712,002159: 20,2150           60000                           AD       A                                     
030713,002160: 20,2151           55130                           TS       RATEINDX                              
030714,002161: 
030715,002162: 20,2152           00004                           INHINT                                         
030716,002163: 20,2153           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
030717,002164: 20,2154           74371                           MASK     PRIO30                                #        =10)
030718,002165: 20,2155           67705                           AD       -BIT14                                #  (OCT57777)
030719,002166: 20,2156           00006                           EXTEND                                         
030720,002167: 20,2157           12164                           BZF      TOGETHER                              #  YES
030721,002168: 
030722,002169: 20,2160           44711                           CS       BIT2                                  #  NO, UNSET FLAG
030723,002170: 20,2161           70103                           MASK     FLAGWRD7                              
030724,002171: 20,2162           54103                           TS       FLAGWRD7                              
030725,002172: 
030726,002173: 20,2163           12167                           TCF      +4                                    
030727,002174: 
030728,002175: 20,2164           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
030729,002176: 20,2165           74711                           MASK     BIT2                                  
030730,002177: 20,2166           26103                           ADS      FLAGWRD7                              
030731,002178: 
030732,002179: 20,2167           00003                           RELINT                                         
030733,002180: 
030734,002181: 20,2170           31466                           CA       DAPDATR1                              
030735,002182: 20,2171           74707                           MASK     BIT4                                  
030736,002183: 20,2172           00006                           EXTEND                                         
030737,002184: 20,2173           62175                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
030738,002185: 20,2174           32275                           CA       DEC409                                
030739,002186: 20,2175           62276                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
030740,002187: 20,2176           55655                           TS       ADB                                   
030741,002188: 
030742,002189: 20,2177           31466                           CA       DAPDATR1                              
030743,002190: 20,2200           74704                           MASK     BIT7                                  #  QUAD BD
030744,002191: 20,2201           00006                           EXTEND                                         
030745,002192: 20,2202           62204                           BZMF     +2                                    
030746,002193: 20,2203           34712                           CA       ONE                                   
030747,002194: 20,2204           55631                           TS       XTRANS                                
030748,002195: 20,2205           31466                           CA       DAPDATR1                              
030749,002196: 20,2206           74701                           MASK     BIT10                                 #  QUAD AC
030750,002197: 20,2207           00006                           EXTEND                                         
030751,002198: 20,2210           62212                           BZMF     +2                                    
030752,002199: 20,2211           44712                           CS       ONE                                   
030753,002200: 20,2212           27631                           ADS      XTRANS                                
030754,002201: 
030755,002202: 20,2213           00004                           INHINT                                         
030756,002203: 20,2214           00006                           EXTEND                                         
030757,002204: 20,2215           12222                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
030758,002205: 20,2216           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
030759,002206: 20,2217           74674                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
030760,002207: 20,2220           26075                           ADS      FLAGWRD1                              

Page 689

030762,002209: 20,2221           12225                           TCF      +4                                    
030763,002210: 20,2222           44674                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
030764,002211: 20,2223           70075                           MASK     FLAGWRD1                              
030765,002212: 20,2224           54075                           TS       FLAGWRD1                              
030766,002213: 20,2225           00003                           RELINT                                         
030767,002214: 20,2226           31467                           CA       DAPDATR2                              
030768,002215: 20,2227           74676                           MASK     BIT13                                 
030769,002216: 20,2230           00006                           EXTEND                                         
030770,002217: 20,2231           62233                           BZMF     +2                                    
030771,002218: 20,2232           12234                           TCF      +2                                    
030772,002219: 20,2233           44712                           CS       ONE                                   
030773,002220: 20,2234           40000                           COM                                            
030774,002221: 20,2235           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
030775,002222: 
030776,002223: 20,2236           31467                           CA       DAPDATR2                              
030777,002224: 20,2237           74701                           MASK     BIT10                                 
030778,002225: 20,2240           10000                           CCS      A                                     
030779,002226: 20,2241           12245                           TCF      +4                                    
030780,002227: 20,2242           34712                           CA       ONE                                   
030781,002228: 20,2243           55626                           TS       RACFAIL                               
030782,002229: 20,2244           12255                           TCF      BDFAIL                                
030783,002230: 20,2245           34714                           CA       ZERO                                  
030784,002231: 20,2246           55626                           TS       RACFAIL                               
030785,002232: 20,2247           31467                           CA       DAPDATR2                              
030786,002233: 20,2250           74707                           MASK     BIT4                                  
030787,002234: 20,2251           10000                           CCS      A                                     
030788,002235: 20,2252           12255                           TCF      BDFAIL                                
030789,002236: 20,2253           44712                           CS       ONE                                   
030790,002237: 20,2254           55626                           TS       RACFAIL                               
030791,002238: 20,2255           31467        BDFAIL             CA       DAPDATR2                              
030792,002239: 20,2256           74704                           MASK     BIT7                                  
030793,002240: 20,2257           10000                           CCS      A                                     
030794,002241: 20,2260           12264                           TCF      +4                                    
030795,002242: 20,2261           34712                           CA       ONE                                   
030796,002243: 20,2262           55627                           TS       RBDFAIL                               
030797,002244: 20,2263           00002                           TC       Q                                     
030798,002245: 20,2264           34714                           CA       ZERO                                  
030799,002246: 20,2265           55627                           TS       RBDFAIL                               
030800,002247: 20,2266           31467                           CA       DAPDATR2                              
030801,002248: 20,2267           74712                           MASK     BIT1                                  
030802,002249: 20,2270           10000                           CCS      A                                     
030803,002250: 20,2271           00002                           TC       Q                                     
030804,002251: 20,2272           44712                           CS       ONE                                   
030805,002252: 20,2273           55627                           TS       RBDFAIL                               
030806,002253: 20,2274           00002                           TC       Q                                     
030807,002254: 
030808,002255:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
030809,002256: 
030810,002257: 42,3521                                           BANK     42                                    
030811,002258: 42,2000                                           SETLOC   EXTVBS                                

Page 690

030813,002260: 42,2000                                           BANK                                           
030814,002261: 
030815,002262: 42,3521           44702        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
030816,002263: 42,3522           00006                           EXTEND                                         
030817,002264: 42,3523           03012                           WAND     CHAN12                                
030818,002265: 42,3524           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
030819,002266: 42,3525           00006                           EXTEND                                         
030820,002267: 42,3526           74710                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
030821,002268: 42,3527           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
030822,002269: 42,3530           50000                           INDEX    A                                     
030823,002270: 42,3531           13532                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
030824,002271: 
030825,002272: 42,3532           13544                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
030826,002273: 42,3533           13537                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
030827,002274: 42,3534           13537                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
030828,002275: 42,3535           04574                           TC       POSTJUMP                              
030829,002276: 42,3536           67211                           CADR     SATSTKON                              
030830,002277: 42,3537           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
030831,002278: 42,3540           04633                           TCR      IBNKCALL                              
030832,002279: 42,3541           42010                           CADR     RCSDAPON                              
030833,002280: 42,3542           00003                           RELINT                                         
030834,002281: 42,3543           13561                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
030835,002282: 42,3544           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
030836,002283: 42,3545           33564                           DCA      T5IDLDAP                              
030837,002284: 42,3546           53313                           DXCH     T5LOC                                 
030838,002285: 42,3547           05447                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
030839,002286: 42,3550           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
030840,002287: 42,3551           05447                           TC       DOWNFLAG                              
030841,002288: 42,3552           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
030842,002289: 42,3553           00004                           INHINT                                         
030843,002290: 42,3554           04633                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
030844,002291: 42,3555           42616                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
030845,002292: 42,3556           00003                           RELINT                                         
030846,002293: 42,3557           34712                           CAF      BIT1                                  #  KILL KALCMANU JOB
030847,002294: 42,3560           55332                           TS       HOLDFLAG                              
030848,002295: 42,3561           04574        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
030849,002296: 42,3562           66121                           CADR     GOPIN                                 

[WORKAROUND] RSB 2004

030851,002298: 42,3563  40,2000                                  SBANK=   PINSUPER                              
030852,002299: 42,3563  E6,1425                                  EBANK=   PACTOFF                               
030853,002300: 42,3563           03143 12106  T5IDLDAP           2CADR    T5IDLOC                               
030854,002301: 
030855,002302: 17,2030                                           BANK     17                                    
030856,002303: 20,2000                                           SETLOC   DAPS6                                 
030857,002304: 20,2000                                           BANK                                           
030858,002305: 
030859,002306: 20,2275           00631        DEC409             DEC      409        B-14                       
030860,002307: 20,2276           00056        DEC46              DEC      46         B-14                       
030861,002308: 
030862,002309:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)

Page 691

030864,002311: 20,2277           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
030865,002312: 20,2300           00006                           EXTEND                                         
030866,002313: 20,2301           72324                           MP       CONTONE                               
030867,002314: 20,2302           55623                           TS       J/M                                   
030868,002315: 
030869,002316: 20,2303           31471                           CA       IAVG                                  
030870,002317: 20,2304           00006                           EXTEND                                         
030871,002318: 20,2305           72324                           MP       CONTONE                               
030872,002319: 20,2306           55624                           TS       J/M1                                  
030873,002320: 
030874,002321: 20,2307           55625                           TS       J/M2                                  
030875,002322: 
030876,002323: 20,2310           00006                           EXTEND                                         
030877,002324: 20,2311           32326                           DCA      CONTTWO                               
030878,002325: 20,2312           00006                           EXTEND                                         
030879,002326: 20,2313           11470                           DV       IXX                                   
030880,002327: 20,2314           55620                           TS       KMJ                                   
030881,002328: 
030882,002329: 20,2315           00006                           EXTEND                                         
030883,002330: 20,2316           32326                           DCA      CONTTWO                               
030884,002331: 20,2317           00006                           EXTEND                                         
030885,002332: 20,2320           11471                           DV       IAVG                                  
030886,002333: 20,2321           55621                           TS       KMJ1                                  
030887,002334: 
030888,002335: 20,2322           55622                           TS       KMJ2                                  
030889,002336: 
030890,002337: 20,2323           00002                           TC       Q                                     
030891,002338: 
030892,002339: 20,2324           25137        CONTONE            DEC      .662034                               #  2PI/M
030893,002340: 20,2325           00023 12522  CONTTWO            2DEC     .00118                                
030894,002341: 
030895,002342: 20,2327                                           COUNT    24/TVNG                               
030896,002343: 
030897,002344: 31,3215                                           BANK     31                                    
030898,002345: 24,2000                                           SETLOC   P40S                                  
030899,002346: 24,2000                                           BANK                                           
030900,002347: 
030901,002348: 24,3677           37405        POS-2.5            OCT      37405                                 

[WORKAROUND] RSB 2004

030903,002350: 24,3700  40,2000                                  SBANK=   PINSUPER                              
030904,002351: 24,3700  E6,1466                                  EBANK=   DAPDATR1                              
030905,002352: 24,3700           02000 42106  RCSCADR            2CADR    RCSUP                                 
030906,002353: 
030907,002354: 24,3702           37704        6SECT5             OCT      37704                                 
030908,002355: 24,3703                                           COUNT    21/RCSUP                              
030909,002356: 
030910,002357: 20,2327                                           BANK     20                                    
030911,002358: 
030912,002359: 21,2000                                           SETLOC   DAPS3                                 
030913,002360: 21,2000                                           BANK                                           
030914,002361: 
030915,002362: 21,2000           22016        RCSUP              LXCH     BANKRUPT                              

Page 692

030917,002364: 21,2001           00006                           EXTEND                                         
030918,002365: 21,2002           22012                           QXCH     QRUPT                                 
030919,002366: 
030920,002367: 21,2003           02010                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030921,002368: 
030922,002369: 21,2004           15222                           TCF      RESUME                                
030923,002370: 
030924,002371: 21,2005  E6,1466                                  EBANK=   DAPDATR1                              
030925,002372: 21,2005           02106 42106  RCSADDR            2CADR    RCSATT                                
030926,002373: 
030927,002374: 21,2007           37704        0.6SECT5           OCT      37704                                 
030928,002375: 
030929,002376:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030930,002377: 21,2010           32007        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030931,002378: 21,2011           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
030932,002379: 21,2012           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030933,002380: 
030934,002381: 21,2013           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030935,002382: 21,2014           74710                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
030936,002383: 21,2015           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
030937,002384: 
030938,002385: 21,2016           00006                           EXTEND                                         
030939,002386: 21,2017           32006                           DCA      RCSADDR                               #  (RCSATT)
030940,002387: 21,2020           53313                           DXCH     T5LOC                                 
030941,002388: 
030942,002389: 21,2021           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
030943,002390: 21,2022           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
030944,002391: 21,2023           64675                           AD       BIT14                                 
030945,002392: 21,2024           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030946,002393: 
030947,002394: 21,2025           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

End of include-file P40-P47.agc.  Parent file is MAIN.agc