Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

029231,000002:                                                                                                  ## Copyright:   Public domain.
029232,000003:                                                                                                  ## Filename:    P40-P47.agc
029233,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
029234,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
029235,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
029236,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
029237,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
029238,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
029239,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
029240,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
029241,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
029242,000013:                                                                                                  ##              is correct.
029243,000014:                                                                                                  ## Assembler:   yaYUL
029244,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029245,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029246,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
029247,000018: 
029248,000019:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
029249,000020: 
029250,000021: 35,3477  E6,1466                                  EBANK=   DAPDATR1                              
029251,000022: 31,3704                                           BANK     31                                    
029252,000023: 24,2000                                           SETLOC   P40S                                  
029253,000024: 24,2000                                           BANK                                           
029254,000025: 
029255,000026: 24,2073                                           COUNT    24/P40                                
029256,000027: 
029257,000028: 24,2073           05574        P40CSM             TC       DOWNFLAG                              
029258,000029: 24,2074           00023                           ADRES    ENG2FLAG                              
029259,000030: 
029260,000031: 24,2075           06006                           TC       INTPRET                               
029261,000032: 24,2076           43135                           SLOAD    BOFF                                  
029262,000033: 24,2077           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
029263,000034: 24,2100           01347                                    XDELVFLG                              
029264,000035: 24,2101           50104                                    P40S/C                                #  NO    CSTEER = ECSTEER
029265,000036: 24,2102           77745                           DLOAD                                          #  YES   CSTEER = ZERO
029266,000037: 24,2103           15334                                    HI6ZEROS                              
029267,000038: 24,2104           17703        P40S/C             STODL    CSTEER                                
029268,000039: 24,2105           10411                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
029269,000040: 24,2106           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
029270,000041: 24,2107           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
029271,000042: 24,2110           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
029272,000043: 
029273,000044: 24,2111           77776                           EXIT                                           
029274,000045: 24,2112           04676                           TC       BANKCALL                              
029275,000046: 24,2113           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
029276,000047: 
029277,000048: 24,2114           06006        P40PVA             TC       INTPRET                               
029278,000049: 24,2115           77624                           CALL                                           
029279,000050: 24,2116           34073                                    S40.1                                 #  COMPUTE VGTIG,UT
029280,000051: 24,2117           77624                           CALL                                           
029281,000052: 24,2120           51577                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
029282,000053: 24,2121           77414                           SET      EXIT                                  
029283,000054: 24,2122           01073                                    PFRATFLG                              
029284,000055: 24,2123           02303        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
029285,000056: 24,2124           00003                           RELINT                                         
029286,000057: 24,2125           04676                           TC       BANKCALL                              
029287,000058: 24,2126           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
029288,000059: 24,2127           45033                           CS       ONE                                   #  FOR UPDATEVG
029289,000060: 24,2130           55744                           TS       NBRCYCLS                              
029290,000061: 24,2131           05562                           TC       UPFLAG                                
029291,000062: 24,2132           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
029292,000063: 
029293,000064: 24,2133           02326                           TC       P41/P40                               
029294,000065: 24,2134           02343                           TC       P41/DSP                               #  P41
029295,000066: 
029296,000067: 24,2135           32425        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED
029297,000068: 24,2136           55145                           TS       NVWORD1                               #  BELOW
029298,000069: 
029299,000070: 24,2137           06006                           TC       INTPRET                               
029300,000071: 24,2140           51575                           VLOAD    ABVAL                                 #  FOR R2
029301,000072: 24,2141           03721                                    VGTIG                                 
029302,000073: 24,2142           17773                           STODL    VGDISP                                
029303,000074: 24,2143           15334                                    HI6ZEROS                              
029304,000075: 24,2144           03426                           STORE    DVTOTAL                               
029305,000076: 24,2145           77776                           EXIT                                           
029306,000077: 
029307,000078: 24,2146           00006                           EXTEND                                         
029308,000079: 24,2147           33064                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
029309,000080: 24,2150           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
029310,000081: 
029311,000082: 24,2151           32420        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
029312,000083: 24,2152           04676                           TC       BANKCALL                              
029313,000084: 24,2153           21045                           CADR     GOPERF1                               
029314,000085: 24,2154           12275                           TCF      POST41                                #  V34
029315,000086: 24,2155           12435                           TCF      TST,TRIM                              #  V33
029316,000087: 24,2156           45033        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
029317,000088: 24,2157           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
029318,000089: 
029319,000090: 24,2160           35035                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
029320,000091: 24,2161           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
029321,000092:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
029322,000093: 
029323,000094: 24,2162           35033                           CAF      ONE                                   
029324,000095: 24,2163           05261                           TC       WAITLIST                              
029325,000096: 24,2164  E6,1466                                  EBANK=   DAPDATR1                              
029326,000097: 24,2164           02271 40066                     2CADR    S40.6                                 
029327,000098: 
029328,000099: 24,2166           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
029329,000100: 24,2167           32417                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
029330,000101: 24,2170           12172                           TCF      +2                                    #  HOLE
029331,000102: 24,2171           33067                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
029332,000103: 24,2172           04676                           TC       BANKCALL                              
029333,000104: 24,2173           01732                           CADR     DELAYJOB                              
029334,000105: 24,2174           05406                           TC       2PHSCHNG                              
029335,000106: 24,2175           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
029336,000107: 24,2176           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
029337,000108: 24,2177           35033        P40S/RS            CAF      ONE                                   
029338,000109: 24,2200           05261                           TC       WAITLIST                              #  P41/SDP
029339,000110: 24,2201  E7,1412                                  EBANK=   TIG                                   
029340,000111: 24,2201           03263 50067                     2CADR    CLOKTASK                              
029341,000112: 
029342,000113: 24,2203           00003                           RELINT                                         
029343,000114: 
029344,000115: 24,2204           03371        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
029345,000116: 24,2205  E7,1412                                  EBANK=   TIG                                   
029346,000117: 24,2205           06006                           TC       INTPRET                               
029347,000118: 24,2206           45345                           DLOAD    DSU                                   
029348,000119: 24,2207           03413                                    TIG                                   
029349,000120: 24,2210           10416                                    SEC29.96                              
029350,000121: 24,2211           00041                           STORE    TDEC1                                 
029351,000122: 
029352,000123: 24,2212           77624                           CALRB                                          #  RETURN IN BASIC
029353,000124: 24,2213           27557                                    MIDTOAV1                              
029354,000125: 24,2214           12216                           TCF      +2                                    
029355,000126: 24,2215           02237                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
029356,000127: 24,2216           00006        P40SET             EXTEND                                         
029357,000128: 24,2217           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
029358,000129: 24,2220           53673                           DXCH     P40TMP                                
029359,000130: 24,2221           00006                           EXTEND                                         
029360,000131: 24,2222           43067                           DCS      5SECDP                                #  FOR TTGBLNK
029361,000132: 24,2223           21673                           DAS      P40TMP                                
029362,000133: 24,2224           00006                           EXTEND                                         
029363,000134: 24,2225           31673                           DCA      P40TMP                                
029364,000135: 24,2226           05356                           TC       LONGCALL                              
029365,000136: 24,2227  E7,1412                                  EBANK=   TIG                                   
029366,000137: 24,2227           02437 50067                     2CADR    TIGBLNK                               
029367,000138: 
029368,000139: 24,2231           05426                           TC       PHASCHNG                              
029369,000140: 24,2232           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
029370,000141: 
029371,000142: 24,2233           15233                           TCF      ENDOFJOB                              
029372,000143: 24,2234           04676        P40BLNKR           TC       BANKCALL                              
029373,000144: 24,2235           20703                           CADR     CLEANDSP                              #  REMOVE RESIDUE
029374,000145: 24,2236           15233                           TCF      ENDOFJOB                              
029375,000146: 24,2237  E7,1412                                  EBANK=   TIG                                   
029376,000147: 24,2237           00006        P40SNEWM           EXTEND                                         
029377,000148: 24,2240           31246                           DCA      PIPTIME1                              
029378,000149: 24,2241           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
029379,000150: 24,2242           00006                           EXTEND                                         
029380,000151: 24,2243           32416                           DCA      SEC29.96                              
029381,000152: 24,2244           21413                           DAS      TIG                                   
029382,000153: 24,2245           12216                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
029383,000154: 
029384,000155: 24,2246  E6,1466                                  EBANK=   DAPDATR1                              
029385,000156: 24,2246           32426        POSTBURN           CAF      V16N40                                
029386,000157: 24,2247           04676                           TC       BANKCALL                              
029387,000158: 24,2250           20704                           CADR     REFLASH                               
029388,000159: 24,2251           12275                           TCF      POST41                                #  V34 GO FINISH
029389,000160: 24,2252           12254                           TCF      P40RCS                                #  PROCEED
029390,000161: 24,2253           12246                           TCF      POSTBURN                              #  RECYCLE
029391,000162: 24,2254           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
029392,000163: 24,2255           32462                           DCA      ACADN85                               
029393,000164: 24,2256           53223                           DXCH     AVEGEXIT                              
029394,000165: 24,2257           35056                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
029395,000166: 24,2260           04676                           TC       BANKCALL                              
029396,000167: 24,2261           01732                           CADR     DELAYJOB                              
029397,000168: 
029398,000169: 24,2262           02303        P40MINDB           TCR      SETMINDB   -1                         
029399,000170: 24,2263           00003                           RELINT                                         
029400,000171: 24,2264           05426        TIGNOW             TC       PHASCHNG                              
029401,000172: 24,2265           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
029402,000173: 24,2266           57777                           OCT      57777                                 #  PRIO 20 NOVAC
029403,000174: 24,2267           32424                           CAF      V16N85B                               
029404,000175: 24,2270           04676                           TC       BANKCALL                              
029405,000176: 24,2271           20704                           CADR     REFLASH                               
029406,000177: 24,2272           12275                           TCF      POST41                                #  FINISH P40/P41
029407,000178: 24,2273           12275                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
029408,000179: 24,2274           12264                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
029409,000180: 
029410,000181: 24,2275           00006        POST41             EXTEND                                         
029411,000182: 24,2276           32460                           DCA      SERVCADR                              
029412,000183: 24,2277           53223                           DXCH     AVEGEXIT                              
029413,000184: 24,2300           14106                           TCF      GOTOPOOH                              
029414,000185: 
029415,000186: 24,2301           00056        MINDB              DEC      46         B-14                       
029416,000187: 24,2302           00707        MAXDB              DEC      455        B-14                       
029417,000188: 24,2303  E6,1466                                  EBANK=   DAPDATR1                              
029418,000189: 24,2303           00004                 -1        INHINT                                         
029419,000190: 24,2304           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
029420,000191: 24,2305           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
029421,000192: 24,2306           00006                           EXTEND                                         #  IN AUTOPILOT
029422,000193: 24,2307           30034                           DCA      CDUY                                  
029423,000194: 24,2310           53574                           DXCH     THETADY                               
029424,000195: 24,2311           32301                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
029425,000196: 24,2312           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
029426,000197: 24,2313           45030                           CS       BIT4                                  #  EBANK = E6
029427,000198: 24,2314           71466                           MASK     DAPDATR1                              
029428,000199: 24,2315           55466                           TS       DAPDATR1                              
029429,000200: 24,2316           00002                           TC       Q                                     
029430,000201: 
029431,000202: 24,2317  E6,1466                                  EBANK=   DAPDATR1                              
029432,000203: 24,2317           00004                 -1        INHINT                                         
029433,000204: 24,2320           32302        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
029434,000205: 24,2321           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
029435,000206: 24,2322           41466                           CS       DAPDATR1                              
029436,000207: 24,2323           75030                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
029437,000208: 24,2324           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
029438,000209: 24,2325           00002                           TC       Q                                     #  EBANK = E6
029439,000210: 
029440,000211:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
029441,000212: 
029442,000213: 27,2000                                           SETLOC   P40S2                                 
029443,000214: 27,2000                                           BANK                                           
029444,000215: 
029445,000216: 27,2615  E6,1466                                  EBANK=   DAPDATR1                              
029446,000217: 27,2615                                           COUNT    24/P41                                
029447,000218: 
029448,000219: 27,2615           05562        P41CSM             TC       UPFLAG                                
029449,000220: 27,2616           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
029450,000221: 
029451,000222: 27,2617           06006                           TC       INTPRET                               
029452,000223: 27,2620           77745                           DLOAD                                          
029453,000224: 27,2621           15334                                    HI6ZEROS                              #  FOR P41 CSTEER =0
029454,000225: 27,2622           03703                           STORE    CSTEER                                
029455,000226: 
029456,000227: 27,2623           43145                           DLOAD    BON                                   
029457,000228: 27,2624           10413                                    FRCS2                                 #  2JET THRUST FOR S40.1
029458,000229: 27,2625           00700                                    NJETSFLG                              
029459,000230: 27,2626           50106                                    P40S/F                                #  NJETS = 1 2-JET
029460,000231: 27,2627           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
029461,000232: 27,2630           10413                                    FRCS2                                 
029462,000233: 27,2631           50106                                    P40S/F                                
029463,000234: 
029464,000235: 24,2000                                           SETLOC   P40S                                  
029465,000236: 24,2000                                           BANK                                           
029466,000237: 
029467,000238: 24,2326           41011        P41/P40            CS       MODREG                                
029468,000239: 24,2327           75033                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
029469,000240: 24,2330           00006                           EXTEND                                         
029470,000241: 24,2331           12333                           BZF      +2                                    #  P41
029471,000242: 24,2332           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
029472,000243: 24,2333           00002                           TC       Q                                     
029473,000244: 
029474,000245: 24,2334           35016        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
029475,000246: 24,2335           05150                           TC       NOVAC                                 
029476,000247: 24,2336  E6,1466                                  EBANK=   DAPDATR1                              
029477,000248: 24,2336           02264 50066                     2CADR    TIGNOW                                
029478,000249: 
029479,000250: 24,2340           05574        P40CLK             TC       DOWNFLAG                              
029480,000251: 24,2341           00155                           ADRES    TIMRFLAG                              
029481,000252: 
029482,000253: 24,2342           15340                           TCF      TASKOVER                              
029483,000254: 
029484,000255: 24,2343           32423        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
029485,000256: 24,2344           55145                           TS       NVWORD1                               
029486,000257: 
029487,000258: 24,2345           06006                           TC       INTPRET                               
029488,000259: 24,2346           77624                           CALL                                           #  COMPUTE
029489,000260: 24,2347           50370                                    P40CNV85                              #        VGTIG IN CTRL COORDS
029490,000261: 24,2350           77776                           EXIT                                           
029491,000262: 24,2351           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
029492,000263: 24,2352           32462                           DCA      ACADN85                               
029493,000264: 24,2353           53223                           DXCH     AVEGEXIT                              
029494,000265: 24,2354           05406                           TC       2PHSCHNG                              
029495,000266: 24,2355           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
029496,000267: 24,2356           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
029497,000268: 
029498,000269: 24,2357           12177                           TCF      P40S/RS                               
029499,000270: 24,2360           32424        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
029500,000271: 24,2361           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
029501,000272: 24,2362           32416                           CAF      SEC29.96   +1                         
029502,000273: 24,2363           05261                           TC       WAITLIST                              
029503,000274: 24,2364  E6,1466                                  EBANK=   DAPDATR1                              
029504,000275: 24,2364           02334 50066                     2CADR    TTG/0                                 
029505,000276: 
029506,000277: 24,2366           45031                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
029507,000278: 24,2367           12571                           TCF      TTGPHS                                
029508,000279: 24,2370           40220        P40CNV85           STQ      SETPD                                 
029509,000280: 24,2371           03730                                    QTEMP1                                
029510,000281: 24,2372           00001                                    0                                     
029511,000282: 24,2373           41575                           VLOAD    PUSH                                  
029512,000283: 24,2374           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
029513,000284: 24,2375           77624                           CALL                                           
029514,000285: 24,2376           45431                                    S41.1                                 
029515,000286: 24,2377           37665                           STCALL   VGBODY                                
029516,000287: 24,2400           03730                                    QTEMP1                                
029517,000288: 
029518,000289: 24,2401  E6,1466                                  EBANK=   DAPDATR1                              
029519,000290: 24,2401           06006        CALCN85            TC       INTPRET                               
029520,000291: 24,2402           77624                           CALL                                           
029521,000292: 24,2403           51107                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
029522,000293: 24,2404           77624                           CALL                                           
029523,000294: 24,2405           50370                                    P40CNV85                              #  COMPUTE VGBODY
029524,000295: 24,2406           77776                           EXIT                                           
029525,000296: 24,2407           03220                           TC       SERVXT                                
029526,000297: 24,2410           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
029527,000298: 
029528,000299: 24,2412           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
029529,000300: 
029530,000301:                                                                                                  #        B+7 NEWTONS/E+4
029531,000302: 24,2414           04700        SEC24.96           DEC      2496       B-14                       
029532,000303: 24,2415           00000 05664  SEC29.96           2DEC     2996       B-28                       
029533,000304: 
029534,000305: 24,2417           03410        18SEC              DEC      1800       B-14                       
029535,000306: 24,2420           00204        P40CKLS2           OCT      204                                   
029536,000307: 24,2421           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
029537,000308: 24,2422     4377               OCT12              =        TEN                                   
029538,000309: 24,2422           04123        V1683              VN       1683                                  
029539,000310: 24,2423           01525        V06N85B            VN       0685                                  
029540,000311: 24,2424           04125        V16N85B            VN       1685                                  
029541,000312: 24,2425           01450        V06N40             VN       0640                                  
029542,000313: 24,2426           04050        V16N40             VN       1640                                  
029543,000314: 24,2427           00027        OCT27/24           OCT      27                                    
029544,000315: 24,2430           00053        OCT53              OCT      53                                    
029545,000316: 24,2431           00035        OCT35              OCT      35                                    
029546,000317: 24,2432  E6,1466                                  EBANK=   DAPDATR1                              
029547,000318: 24,2432           03155 12066  T5IDL24            2CADR    T5IDLOC                               
029548,000319: 
029549,000320: 24,2434           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
029550,000321:                                                                                                  #  B+16 KG/SEC (NOTE, EMDOT IS PAD-LOADED,
029551,000322:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
029552,000323:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
029553,000324: 24,2435           35033        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
029554,000325: 24,2436           12157                           TCF      TRIMONLY   +1                         
029555,000326: 24,2437           33067        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
029556,000327: 24,2440           05261                           TC       WAITLIST                              
029557,000328: 24,2441  E7,1412                                  EBANK=   TIG                                   
029558,000329: 24,2441           02555 50067                     2CADR    TIGAVEG                               
029559,000330: 
029560,000331: 24,2443           35035                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
029561,000332: 24,2444           55145                           TS       NVWORD1                               
029562,000333: 
029563,000334: 24,2445           35102                           CAF      PRIO14                                
029564,000335: 24,2446           05150                           TC       NOVAC                                 
029565,000336: 24,2447  E7,1412                                  EBANK=   TIG                                   
029566,000337: 24,2447           02234 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
029567,000338: 
029568,000339: 24,2451           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
029569,000340: 24,2452           04114        P40TSK             TC       NEWPHASE                              
029570,000341: 24,2453           00004                           OCT      4                                     
029571,000342: 24,2454           05340                           TC       TASKOVER                              
029572,000343: 
029573,000344: 24,2455  E7,1412                                  EBANK=   TIG                                   
029574,000345: 24,2455           02511 50067  ACADN83            2CADR    CALCN83                               
029575,000346: 
029576,000347: 24,2457  E7,1412                                  EBANK=   TIG                                   
029577,000348: 24,2457           03231 76067  SERVCADR           2CADR    SERVEXIT                              
029578,000349: 
029579,000350: 24,2461  E6,1466                                  EBANK=   DAPDATR1                              
029580,000351: 24,2461           02401 50066  ACADN85            2CADR    CALCN85                               
029581,000352: 
029582,000353:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
029583,000354: 
029584,000355: 24,2463                                           COUNT    24/P47                                
029585,000356: 
029586,000357: 24,2463  E7,1412                                  EBANK=   TIG                                   
029587,000358: 24,2463           04676        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
029588,000359: 24,2464           17653                           CADR     R02BOTH                               
029589,000360: 24,2465           06006                           TC       INTPRET                               
029590,000361: 24,2466           77624                           CALRB                                          
029591,000362: 24,2467           27547                                    MIDTOAV2                              
029592,000363: 24,2470           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
029593,000364: 24,2471           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
029594,000365: 24,2472           05261                           TC       WAITLIST                              
029595,000366: 24,2473  E7,1412                                  EBANK=   TIG                                   
029596,000367: 24,2473           02500 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
029597,000368: 
029598,000369: 24,2475           05426                           TC       PHASCHNG                              
029599,000370: 24,2476           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
029600,000371: 24,2477           15233                           TCF      ENDOFJOB                              
029601,000372: 
029602,000373: 24,2500  E7,1672                                  EBANK=   P40TMP                                
029603,000374: 24,2500           00006        TIGON              EXTEND                                         
029604,000375: 24,2501           32456                           DCA      ACADN83                               
029605,000376: 24,2502           53223                           DXCH     AVEGEXIT                              
029606,000377: 24,2503           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
029607,000378: 24,2504           05150                           TC       NOVAC                                 
029608,000379: 24,2505  E7,1412                                  EBANK=   TIG                                   
029609,000380: 24,2505           02534 50067                     2CADR    P47BODY                               
029610,000381: 
029611,000382: 24,2507           45032                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
029612,000383: 24,2510           12571                           TCF      TTGPHS                                
029613,000384: 
029614,000385: 24,2511  E7,1412                                  EBANK=   TIG                                   
029615,000386: 24,2511           06006        CALCN83            TC       INTPRET                               
029616,000387: 24,2512           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
029617,000388: 24,2513           00001                                    0                                     
029618,000389: 24,2514           53375                           VLOAD    VAD                                   
029619,000390: 24,2515           03665                                    DELVCTL                               
029620,000391: 24,2516           03433                                    DELVREF                               
029621,000392: 24,2517           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
029622,000393: 24,2520           45006                           PUSH     CALL                                  
029623,000394: 24,2521           45431                                    S41.1                                 
029624,000395: 24,2522           37675                           STCALL   DELVIMU                               
029625,000396: 24,2523           70542                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
029626,000397: 24,2524           77776                           EXIT                                           
029627,000398: 24,2525           05426                           TC       PHASCHNG                              
029628,000399: 24,2526           10035                           OCT      10035                                 
029629,000400: 24,2527           35036                           CAF      FIVE                                  
029630,000401: 24,2530           05622                           TC       GENTRAN                               
029631,000402: 24,2531           01457                           ADRES    DV47TEMP                              
029632,000403: 24,2532           01664                           ADRES    DELVCTL                               
029633,000404: 
029634,000405: 24,2533           03220                           TC       SERVXT                                
029635,000406: 24,2534           06006        P47BODY            TC       INTPRET                               
029636,000407: 24,2535           77775                           VLOAD                                          
029637,000408: 24,2536           15334                                    HI6ZEROS                              
029638,000409: 24,2537           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
029639,000410: 24,2540           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
029640,000411: 24,2541           77776                           EXIT                                           
029641,000412: 24,2542           35103        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
029642,000413: 24,2543           05224                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
029643,000414: 24,2544           05426                           TC       PHASCHNG                              
029644,000415: 24,2545           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
029645,000416: 24,2546           62777                           OCT      62777                                 #  PRIO 15 NOVAC
029646,000417: 24,2547           32422        P47/DSP            CAF      V1683                                 
029647,000418: 24,2550           04676                           TC       BANKCALL                              
029648,000419: 24,2551           20720                           CADR     GOFLASH                               
029649,000420: 24,2552           04106                           TC       GOTOPOOH                              
029650,000421: 24,2553           04106                           TC       GOTOPOOH                              
029651,000422: 24,2554           12534                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
029652,000423: 
029653,000424:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
029654,000425: 
029655,000426: 24,2555  E7,1412                                  EBANK=   TIG                                   
029656,000427: 24,2555                                           COUNT    24/P40                                
029657,000428: 

Reconstruction: TIGAVEG has been changed to clear PFRATFLG at the beginning of TIGAVEG as part of PCR-966, "Clear preferred orientation flag in P40/41".

029661,000432: 24,2555           45030        TIGAVEG            CS       PFRATBIT                              #  TASK (4.37 PROTECTS)
029662,000433: 24,2556           70076                           MASK     FLAGWRD2                              
029663,000434: 24,2557           54076                           TS       FLAGWRD2                              
029664,000435: 
029665,000436: 24,2560           02326                           TC       P41/P40                               
029666,000437: 24,2561           12360                           TCF      P41REDSP                              #  P41
029667,000438: 
029668,000439: 24,2562           32425                           CAF      V06N40                                #  UNBLANK DISPLAY
029669,000440: 24,2563           55145                           TS       NVWORD1                               
029670,000441: 
029671,000442: 24,2564           32414                           CAF      SEC24.96                              
029672,000443: 24,2565           05261                           TC       WAITLIST                              
029673,000444: 24,2566  E7,1412                                  EBANK=   TIG                                   
029674,000445: 24,2566           02577 50067                     2CADR    TIG-5                                 
029675,000446: 
029676,000447: 24,2570           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
029677,000448: 24,2571           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
029678,000449: 24,2572           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
029679,000450: 
029680,000451: 24,2573           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
029681,000452: 24,2574           15340                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
029682,000453: 24,2575           04715                           TC       POSTJUMP                              
029683,000454: 24,2576           76714                           CADR     PREREAD                               
029684,000455: 
029685,000456:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
029686,000457: 
029687,000458: 24,2577  E7,1412                                  EBANK=   TIG                                   
029688,000459: 24,2577           33067        TIG-5              CAF      5SEC                                  
029689,000460: 24,2600           05261                           TC       WAITLIST                              
029690,000461: 24,2601  E6,1466                                  EBANK=   DAPDATR1                              
029691,000462: 24,2601           02615 50066                     2CADR    TIG-0                                 
029692,000463: 
029693,000464: 24,2603           45023                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
029694,000465: 24,2604           55145                           TS       NVWORD1                               
029695,000466: 
029696,000467: 24,2605           05406                           TC       2PHSCHNG                              
029697,000468: 24,2606           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
029698,000469: 24,2607           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
029699,000470: 
029700,000471: 24,2610           35016                           CAF      PRIO20                                
029701,000472: 24,2611           05163                           TC       FINDVAC                               
029702,000473: 24,2612  E7,1427                                  EBANK=   TGO                                   
029703,000474: 24,2612           02501 34067                     2CADR    S40.13                                
029704,000475: 
029705,000476: 24,2614           15340                           TCF      TASKOVER                              
029706,000477: 
029707,000478:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
029708,000479: 
029709,000480: 24,2615  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
029710,000481: 24,2615           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
029711,000482: 24,2616           75017                           MASK     BIT13                                 
029712,000483: 24,2617           26103                           ADS      FLAGWRD7                              
029713,000484: 
029714,000485: 24,2620           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
029715,000486: 24,2621           75020                           MASK     BIT12                                 
029716,000487: 24,2622           00006                           EXTEND                                         
029717,000488: 24,2623           15340                           BZF      TASKOVER                              #  WAIT FOR V99P
029718,000489: 
029719,000490: 24,2624           32425                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
029720,000491: 24,2625           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
029721,000492: 
029722,000493: 24,2626           05426                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
029723,000494: 24,2627           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
029724,000495: 
029725,000496: 24,2630           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
029726,000497: 24,2631           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
029727,000498: 24,2632           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
029728,000499: 24,2633           30025                           DCA      TIME2                                 #        FOR RESTARTS
029729,000500: 24,2634           53337                           DXCH     TEVENT                                
029730,000501: 24,2635           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
029731,000502: 24,2636           75025                           MASK     BIT7                                  
029732,000503: 24,2637           26101                           ADS      FLAGWRD5                              
029733,000504: 24,2640           35017        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
029734,000505: 24,2641           00006                           EXTEND                                         
029735,000506: 24,2642           05011                           WOR      DSALMOUT                              
029736,000507: 
029737,000508: 24,2643           35023        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
029738,000509: 24,2644           70076                           MASK     FLAGWRD2                              
029739,000510: 24,2645           10000                           CCS      A                                     
029740,000511: 24,2646           12736                           TCF      IMPLBURN                              #  IMPULSIVE
029741,000512: 24,2647           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029742,000513: 24,2650           75017                           MASK     BIT13                                 
029743,000514: 24,2651           26102                           ADS      FLAGWRD6                              
029744,000515: 
029745,000516: 24,2652           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
029746,000517: 24,2653           70102                           MASK     FLAGWRD6                              
029747,000518: 24,2654           54102                           TS       FLAGWRD6                              
029748,000519: 
029749,000520: 24,2655           00006                           EXTEND                                         #  KILL RCS
029750,000521: 24,2656           32433                           DCA      T5IDL24                               
029751,000522: 24,2657           53313                           DXCH     T5LOC                                 
029752,000523: 
029753,000524: 24,2660           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
029754,000525: 24,2661           04114                           TC       NEWPHASE                              
029755,000526: 24,2662           00004                           OCT      4                                     
029756,000527: 
029757,000528: 24,2663           05303                           TC       FIXDELAY                              
029758,000529: 24,2664           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
029759,000530: 
029760,000531: 24,2665           45033        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029761,000532: 24,2666           55644                           TS       TVCPHASE                              
029762,000533: 24,2667           35035                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
029763,000534: 24,2670           55653                           TS       TVCEXPHS                              
029764,000535: 24,2671           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
029765,000536: 24,2672           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
029766,000537: 24,2673           65015                           AD       BIT15                                 
029767,000538: 24,2674           54102                           TS       FLAGWRD6                              
029768,000539: 
029769,000540: 24,2675           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029770,000541: 24,2676           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
029771,000542: 24,2677           40000                           COM                                            
029772,000543: 24,2700           52765                           DXCH     -PHASE6                               
029773,000544: 
029774,000545: 24,2701           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
029775,000546: 24,2702           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
029776,000547: 24,2703           53705                           DXCH     ERRBTMP                               
029777,000548: 
029778,000549: 24,2704           45036                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
029779,000550: 24,2705           04114                           TC       NEWPHASE                              
029780,000551: 24,2706           00004                           OCT      4                                     
029781,000552: 
029782,000553: 24,2707           35013                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
029783,000554: 24,2710           54030                           TS       TIME5                                 
029784,000555: 24,2711           00006                           EXTEND                                         
029785,000556: 24,2712           33072                           DCA      TVCON2C                               #  (TVCDAPON)
029786,000557: 24,2713           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
029787,000558: 
029788,000559: 24,2714           05303                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029789,000560: 24,2715           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
029790,000561: 
029791,000562: 24,2716           35017        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
029792,000563: 24,2717           70102                           MASK     FLAGWRD6                              
029793,000564: 24,2720           10000                           CCS      A                                     
029794,000565: 24,2721           02727                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
029795,000566: 24,2722           02732                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
029796,000567: 
029797,000568: 24,2723           00006                           EXTEND                                         
029798,000569: 24,2724           35035                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
029799,000570: 24,2725           52761                           DXCH     -PHASE4                               
029800,000571: 
029801,000572: 24,2726           15340        ENDIGN             TCF      TASKOVER                              
029802,000573: 
029803,000574: 24,2727           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
029804,000575: 24,2730           75021                           MASK     BIT11                                 
029805,000576: 24,2731           26076                           ADS      FLAGWRD2                              
029806,000577: 
029807,000578: 
029808,000579: 24,2732           35035        ULAGEOFF           CAF      ZERO                                  
029809,000580: 24,2733           00006                           EXTEND                                         
029810,000581: 24,2734           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
029811,000582: 24,2735           00002                           TC       Q                                     
029812,000583: 
029813,000584: 24,2736           45017        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
029814,000585: 24,2737           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
029815,000586: 24,2740           54102                           TS       FLAGWRD6                              
029816,000587: 
029817,000588: 24,2741           03371                           TCR      E7SETTER                              
029818,000589: 
029819,000590: 24,2742  E7,1412                                  EBANK=   TIG                                   
029820,000591: 24,2742           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029821,000592: 24,2743           31430                           DCA      TGO                                   
029822,000593: 24,2744           53413                           DXCH     TIG                                   
029823,000594: 24,2745           00006                           EXTEND                                         
029824,000595: 24,2746           30025                           DCA      TIME2                                 
029825,000596: 24,2747           21413                           DAS      TIG                                   
029826,000597: 
029827,000598: 24,2750           05406                           TC       2PHSCHNG                              
029828,000599: 24,2751           40153                           OCT      40153                                 #  A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
029829,000600: 24,2752           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
029830,000601: 24,2753           77777                           DEC      -0         B-14                       #  -0 CS
029831,000602: 24,2754  E6,1466                                  EBANK=   DAPDATR1                              
029832,000603: 24,2754           02762 50066                     2CADR    IMPLCONT                              
029833,000604: 
029834,000605: 24,2756           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
029835,000606: 24,2757           05261                           TC       WAITLIST                              
029836,000607: 24,2760  E7,1427                                  EBANK=   TGO                                   
029837,000608: 24,2760           02771 50067                     2CADR    ENGINOFF                              
029838,000609: 
029839,000610: 24,2762           45023        IMPLCONT           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
029840,000611: 24,2763           70076                           MASK     FLAGWRD2                              
029841,000612: 24,2764           54076                           TS       FLAGWRD2                              
029842,000613: 
029843,000614: 24,2765           03374                           TCR      E6SETTER                              
029844,000615: 24,2766  E6,1466                                  EBANK=   DAPDATR1                              
029845,000616: 
029846,000617: 24,2766           35035                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
029847,000618: 24,2767           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
029848,000619: 
029849,000620: 24,2770           12652                           TCF      PREPTVC                               
029850,000621: 
029851,000622: 24,2771  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029852,000623: 24,2771           03374        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
029853,000624: 24,2772  E6,1466                                  EBANK=   DAPDATR1                              
029854,000625: 24,2772           31474                           CAE      CSMMASS                               
029855,000626: 24,2773           55654                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
029856,000627: 24,2774           05406                           TC       2PHSCHNG                              
029857,000628: 24,2775           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
029858,000629: 24,2776           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
029859,000630: 24,2777           03022        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
029860,000631: 24,3000           42427                           CS       OCT27/24                              #  (OCTAL 27)
029861,000632: 24,3001           04114                           TC       NEWPHASE                              
029862,000633: 24,3002           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
029863,000634: 
029864,000635: 24,3003           05303                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
029865,000636: 24,3004           00372                           DEC      250        B-14                       
029866,000637: 
029867,000638: 24,3005           02320        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
029868,000639: 
029869,000640: 24,3006           04754                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029870,000641: 24,3007           42036                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029871,000642: 
029872,000643: 24,3010           04754                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029873,000644: 24,3011           13370                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
029874,000645: 
029875,000646: 24,3012           03074                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
029876,000647: 
029877,000648: 24,3013           05426                           TC       PHASCHNG                              
029878,000649: 24,3014           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
029879,000650: 24,3015           34724                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
029880,000651: 24,3016           05150                           TC       NOVAC                                 
029881,000652: 24,3017  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
029882,000653: 24,3017           02246 50066                     2CADR    POSTBURN                              
029883,000654: 
029884,000655: 24,3021           15340                           TCF      TASKOVER                              
029885,000656: 
029886,000657: 24,3022  E6,1466                                  EBANK=   DAPDATR1                              
029887,000658: 24,3022           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
029888,000659: 24,3023           30025                           DCA      TIME2                                 
029889,000660: 24,3024           53337                           DXCH     TEVENT                                
029890,000661: 24,3025           45025                           CS       BIT7                                  #  RESET ENGONFLG
029891,000662: 24,3026           70101                           MASK     FLAGWRD5                              
029892,000663: 24,3027           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
029893,000664: 24,3030           45017                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
029894,000665: 24,3031           00006                           EXTEND                                         
029895,000666: 24,3032           03011                           WAND     DSALMOUT                              
029896,000667: 
029897,000668: 24,3033           35016                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
029898,000669: 24,3034           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
029899,000670: 24,3035           05012                           WOR      CHAN12                                
029900,000671: 24,3036           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
029901,000672:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
029902,000673:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
029903,000674: 24,3037           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
029904,000675: 24,3040           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
029905,000676: 24,3041           22000                           LXCH     A                                     
029906,000677: 24,3042           00006                           EXTEND                                         
029907,000678: 24,3043           75055                           MP       1SEC                                  #  DEC 100
029908,000679: 24,3044           61654                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
029909,000680: 24,3045           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
029910,000681: 
029911,000682: 24,3046           31644                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
029912,000683: 24,3047           65033                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
029913,000684: 24,3050           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
029914,000685: 24,3051           13062                           BZF      BTRIMR                                #  NO.  INITIALIZATION NOT COMPLETE
029915,000686: 24,3052           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
029916,000687: 24,3053           74105                           MASK     OCT60000                              
029917,000688: 24,3054           00006                           EXTEND                                         
029918,000689: 24,3055           63062                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
029919,000690: 24,3056           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
029920,000691: 24,3057           55423                           TS       PACTOFF                               
029921,000692: 24,3060           31603                           CAE      DELYBAR                               
029922,000693: 24,3061           55424                           TS       YACTOFF                               
029923,000694: 24,3062           00002        BTRIMR             TC       Q                                     
029924,000695: 24,3063  E6,1466                                  EBANK=   DAPDATR1                              
029925,000696: 24,3063           03210 50066  STEERADS           2CADR    STEERING                              
029926,000697: 
029927,000698: 24,3065           37703        .6SECT5            OCT      37703                                 
029928,000699: 24,3066           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
029929,000700: 24,3067           00764        5SEC               DEC      500        B-14                       
029930,000701: 24,3070           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
029931,000702: 24,3071  E6,1466                                  EBANK=   DAPDATR1                              
029932,000703: 24,3071           02205 36066  TVCON2C            2CADR    TVCDAPON                              
029933,000704: 
029934,000705: 24,3073           00004                 -1        INHINT                                         
029935,000706: 24,3074           43070        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029936,000707: 24,3075           00006                           EXTEND                                         #        OPTICS DAC
029937,000708: 24,3076           03012                           WAND     CHAN12                                
029938,000709: 24,3077           45033                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
029939,000710: 24,3100           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
029940,000711: 24,3101           35035                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029941,000712: 24,3102           55145                           TS       NVWORD1                               
029942,000713: 24,3103           45021                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
029943,000714: 24,3104           70103                           MASK     FLAGWRD7                              
029944,000715: 24,3105           54103                           TS       FLAGWRD7                              
029945,000716: 24,3106           00002                           TC       Q                                     
029946,000717: 24,3107  E6,1466                                  EBANK=   DAPDATR1                              
029947,000718: 24,3107           43020        UPDATEVG           STQ      BON                                   
029948,000719: 24,3110           03730                                    QTEMP1                                
029949,000720: 24,3111           01307                                    XDELVFLG                              
029950,000721: 24,3112           51136                                    CALL40.8                              
029951,000722: 
029952,000723: 24,3113           50135                           SLOAD    BMN                                   
029953,000724: 24,3114           03345                                    NBRCYCLS                              
029954,000725: 24,3115           51142                                    SETUP.9                               
029955,000726: 
029956,000727: 24,3116           53375                           VLOAD    VAD                                   
029957,000728: 24,3117           03347                                    DELVSUM                               
029958,000729: 24,3120           03433                                    DELVREF                               
029959,000730: 24,3121           03355                           STORE    DELVSUMP                              
029960,000731: 24,3122           77776                           EXIT                                           
029961,000732: 24,3123           35033                           CA       ONE                                   
029962,000733: 24,3124           61744                           AD       NBRCYCLS                              
029963,000734: 24,3125           55745                           TS       NBRCYCLP                              
029964,000735: 
029965,000736: 24,3126           05426                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
029966,000737: 24,3127           10035                           OCT      10035                                 
029967,000738: 
029968,000739: 24,3130           31745                           CA       NBRCYCLP                              
029969,000740: 24,3131           55744                           TS       NBRCYCLS                              
029970,000741: 24,3132           06006                           TC       INTPRET                               
029971,000742: 24,3133           77775                           VLOAD                                          
029972,000743: 24,3134           03355                                    DELVSUMP                              
029973,000744: 24,3135           03347                           STORE    DELVSUM                               
029974,000745: 
029975,000746: 24,3136           77624        CALL40.8           CALL                                           
029976,000747: 24,3137           34226                                    S40.8                                 
029977,000748: 24,3140           77650                           GOTO                                           
029978,000749: 24,3141           03730                                    QTEMP1                                
029979,000750: 
029980,000751: 24,3142           67214        SETUP.9            BON      SLOAD                                 
029981,000752: 24,3143           01310                                    FIRSTFLG                              
029982,000753: 24,3144           51157                                    SURELY.9                              
029983,000754: 24,3145           03346                                    NBRCYCLP                              
029984,000755: 24,3146           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
029985,000756: 24,3147           00047                                    X1                                    
029986,000757: 24,3150           03705                                    BDT                                   
029987,000758: 24,3151           53257                           VSR*     VAD                                   
029988,000759: 24,3152           20563                                    0          -14D,1                     
029989,000760: 24,3153           03646                                    VGTEMP                                
029990,000761: 24,3154           77651                           VSU                                            
029991,000762: 24,3155           03347                                    DELVSUM                               
029992,000763: 24,3156           03721                           STORE    VGPREV                                
029993,000764: 24,3157           77776        SURELY.9           EXIT                                           
029994,000765: 24,3160           35017                           CAF      PRIO10                                
029995,000766: 24,3161           05163                           TC       FINDVAC                               
029996,000767: 24,3162  E6,1466                                  EBANK=   DAPDATR1                              
029997,000768: 24,3162           02364 34066                     2CADR    S40.9                                 
029998,000769: 
029999,000770: 24,3164           05406                           TC       2PHSCHNG                              
030000,000771: 24,3165           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
030001,000772: 24,3166           10035                           OCT      10035                                 
030002,000773: 24,3167           06006                           TC       INTPRET                               
030003,000774: 24,3170           77775                           VLOAD                                          
030004,000775: 24,3171           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
030005,000776: 24,3172           27570                           STOVL    RINIT                                 
030006,000777: 24,3173           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
030007,000778: 24,3174           17576                           STODL    VINIT                                 
030008,000779: 24,3175           01205                                    PIPTIME                               
030009,000780: 24,3176           03474                           STORE    TNIT                                  
030010,000781: 24,3177           77621                           BDSU                                           
030011,000782: 24,3200           03656                                    TPASS4                                
030012,000783: 24,3201           27423                           STOVL    DELLT4                                
030013,000784: 24,3202           15334                                    HI6ZEROS                              
030014,000785: 24,3203           17347                           STODL    DELVSUM                               
030015,000786: 24,3204           15334                                    HI6ZEROS                              
030016,000787: 24,3205           03345                           STORE    NBRCYCLS                              
030017,000788: 24,3206           77650                           GOTO                                           
030018,000789: 24,3207           51136                                    CALL40.8                              
030019,000790: 24,3210  E6,1466                                  EBANK=   DAPDATR1                              
030020,000791: 24,3210           06006        STEERING           TC       INTPRET                               
030021,000792: 24,3211           77624                           CALL                                           
030022,000793: 24,3212           51107                                    UPDATEVG                              
030023,000794: 24,3213           77776                           EXIT                                           
030024,000795: 24,3214           35023                           CAF      BIT9                                  #  CHECK IMPULSW
030025,000796: 24,3215           70076                           MASK     FLAGWRD2                              
030026,000797: 24,3216           10000                           CCS      A                                     
030027,000798: 24,3217           13222                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
030028,000799: 24,3220           04715        SERVXT             TC       POSTJUMP                              
030029,000800: 24,3221           77231                           CADR     SERVEXIT                              
030030,000801: 24,3222           35017                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
030031,000802: 24,3223           00006                           EXTEND                                         
030032,000803: 24,3224           02011                           RAND     DSALMOUT                              
030033,000804: 24,3225           00006                           EXTEND                                         
030034,000805: 24,3226           13220                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
030035,000806: 24,3227           03371                           TCR      E7SETTER                              
030036,000807: 24,3230  E7,1412                                  EBANK=   TIG                                   
030037,000808: 24,3230           00004                           INHINT                                         
030038,000809: 24,3231           00006                           EXTEND                                         
030039,000810: 24,3232           31413                           DCA      TIG                                   
030040,000811: 24,3233           52155                           DXCH     MPAC                                  
030041,000812: 24,3234           00006                           EXTEND                                         
030042,000813: 24,3235           40025                           DCS      TIME2                                 
030043,000814: 24,3236           20155                           DAS      MPAC                                  
030044,000815: 24,3237           07224                           TCR      DPAGREE                               
030045,000816: 24,3240           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
030046,000817: 24,3241           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
030047,000818: 24,3242           13245                           TCF      +3                                    
030048,000819: 24,3243           13245                           TCF      +2                                    
030049,000820: 24,3244           35035                           CAF      ZERO                                  
030050,000821: 24,3245           65033                           AD       ONE                                   
030051,000822: 24,3246           56001                           XCH      L                                     
030052,000823: 24,3247           35035                           CA       ZERO                                  
030053,000824: 24,3250           53430                           DXCH     TGO                                   
030054,000825: 24,3251           31430                           CA       TGO        +1                         
030055,000826: 24,3252           05261                           TC       WAITLIST                              
030056,000827: 24,3253  E7,1427                                  EBANK=   TGO                                   
030057,000828: 24,3253           02771 50067                     2CADR    ENGINOFF                              
030058,000829: 
030059,000830: 24,3255           05406                           TC       2PHSCHNG                              
030060,000831: 24,3256           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
030061,000832: 24,3257           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
030062,000833: 24,3260           05574                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
030063,000834: 24,3261           00044                           ADRES    IMPULSW                               #  RESTARTS OK
030064,000835: 24,3262           13220                           TCF      SERVXT                                
030065,000836: 
030066,000837:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
030067,000838: 
030068,000839: 24,3263  E7,1412                                  EBANK=   TIG                                   
030069,000840: 24,3263           35021        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
030070,000841: 24,3264           70103                           MASK     FLAGWRD7                              
030071,000842: 24,3265           10000                           CCS      A                                     
030072,000843: 24,3266           13272                           TCF      CLOCKON                               
030073,000844: 24,3267           05426                           TC       PHASCHNG                              
030074,000845: 24,3270           00006                           OCT      00006                                 #  KILL RESTART
030075,000846: 24,3271           05340                           TC       TASKOVER                              
030076,000847: 
030077,000848: 24,3272           00006        CLOCKON            EXTEND                                         
030078,000849: 24,3273           30025                           DCA      TIME2                                 
030079,000850: 24,3274           53661                           DXCH     TTOGO                                 
030080,000851: 24,3275           00006                           EXTEND                                         
030081,000852: 24,3276           41413                           DCS      TIG                                   
030082,000853: 24,3277           21661                           DAS      TTOGO                                 
030083,000854: 
030084,000855: 24,3300           35055        SETCLOCK           CAF      1SEC                                  
030085,000856: 24,3301           05261                           TC       WAITLIST                              
030086,000857: 24,3302  E7,1412                                  EBANK=   TIG                                   
030087,000858: 24,3302           03263 50067                     2CADR    CLOKTASK                              
030088,000859: 
030089,000860: 24,3304           11145                           CCS      NVWORD1                               
030090,000861: 24,3305           13310                           TCF      +3                                    
030091,000862: 24,3306           13320                           TCF      SETTB6                                
030092,000863: 
030093,000864: 24,3307           13310                           TCF      +1                                    
030094,000865: 24,3310           42423                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
030095,000866: 24,3311           61145                           AD       NVWORD1                               
030096,000867: 24,3312           00006                           EXTEND                                         
030097,000868: 24,3313           13323                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
030098,000869: 
030099,000870: 24,3314           37664                           CAF      PRIO27                                
030100,000871: 24,3315           05150                           TC       NOVAC                                 
030101,000872: 24,3316  E6,1466                                  EBANK=   DAPDATR1                              
030102,000873: 24,3316           03335 50066                     2CADR    CLOCKJOB                              
030103,000874: 
030104,000875: 24,3320           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
030105,000876: 24,3321           55065                           TS       TBASE6                                
030106,000877: 24,3322           15340                           TCF      TASKOVER                              
030107,000878: 
030108,000879: 24,3323           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
030109,000880: 24,3324           05163                           TC       FINDVAC                               
030110,000881: 24,3325  E6,1466                                  EBANK=   DAPDATR1                              
030111,000882: 24,3325           03330 50066                     2CADR    DYNDISP                               
030112,000883: 
030113,000884: 24,3327           13320                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
030114,000885: 24,3330           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
030115,000886: 24,3331           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
030116,000887: 24,3332           50370                                    P40CNV85                              
030117,000888: 24,3333           77776                           EXIT                                           
030118,000889: 24,3334           13345                           TCF      CKNVWRD1                              
030119,000890: 
030120,000891:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
030121,000892: 
030122,000893: 24,3335  E6,1466                                  EBANK=   DAPDATR1                              
030123,000894: 24,3335           30032        CLOCKJOB           CA       CDUX                                  
030124,000895: 24,3336           54772                           TS       CDUSPOTX                              
030125,000896: 24,3337           30033                           CA       CDUY                                  
030126,000897: 24,3340           54766                           TS       CDUSPOTY                              
030127,000898: 24,3341           30034                           CA       CDUZ                                  
030128,000899: 24,3342           54770                           TS       CDUSPOTZ                              
030129,000900: 24,3343           04676                           TC       BANKCALL                              
030130,000901: 24,3344           47557                           CADR     QUICTRIG                              
030131,000902: 24,3345           00004        CKNVWRD1           INHINT                                         
030132,000903: 24,3346           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
030133,000904: 24,3347           13366                           TCF      NOFLASH                               
030134,000905: 24,3350           15233                           TCF      ENDOFJOB                              
030135,000906: 24,3351           13360                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
030136,000907: 24,3352           32425        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
030137,000908: 24,3353           04676                           TC       BANKCALL                              
030138,000909: 24,3354           20715                           CADR     CLOCPLAY                              
030139,000910: 24,3355           13435                           TCF      V97T                                  #  TERMINATE
030140,000911: 24,3356           13470                           TCF      V97P                                  #  PROCEED
030141,000912: 24,3357           13517                           TCF      V97E                                  #  ENTER
030142,000913: 
030143,000914: 24,3360           32425        ENGREQST           CAF      V06N40                                
030144,000915: 24,3361           04676                           TC       BANKCALL                              
030145,000916: 24,3362           20715                           CADR     CLOCPLAY                              
030146,000917: 24,3363           13405                           TCF      V99T                                  #  TERMINATE
030147,000918: 24,3364           13413                           TCF      V99P                                  #  PROCEED
030148,000919: 24,3365           13377                           TCF      V99E                                  #  ENTER
030149,000920: 
030150,000921: 24,3366           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
030151,000922: 24,3367           04676                           TC       BANKCALL                              
030152,000923: 24,3370           20707                           CADR     REGODSP                               
030153,000924: 
030154,000925: 24,3371           35074        E7SETTER           CAF      EBANK7                                
030155,000926: 24,3372           54003                           TS       EBANK                                 
030156,000927: 24,3373  E7,1412                                  EBANK=   TIG                                   
030157,000928: 24,3373           00002                           TC       Q                                     
030158,000929: 
030159,000930: 24,3374           35073        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
030160,000931: 24,3375           54003                           TS       EBANK                                 
030161,000932: 24,3376  E6,1466                                  EBANK=   DAPDATR1                              
030162,000933: 24,3376           00002                           TC       Q                                     
030163,000934: 
030164,000935: 24,3377  E6,1466                                  EBANK=   DAPDATR1                              
030165,000936: 24,3377           05406        V99E               TC       2PHSCHNG                              
030166,000937: 24,3400           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
030167,000938: 24,3401           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
030168,000939: 24,3402           50777                           OCT      50777                                 #  PRIO 27 NOVAC
030169,000940: 24,3403           03073        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
030170,000941: 24,3404           12254                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
030171,000942: 
030172,000943: 24,3405  E6,1466                                  EBANK=   DAPDATR1                              
030173,000944: 24,3405           05406        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
030174,000945: 24,3406           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
030175,000946: 24,3407           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
030176,000947: 24,3410           50777                           OCT      50777                                 #  PRIO 27 NOVAC
030177,000948: 24,3411           03073        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
030178,000949: 24,3412           12275                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
030179,000950: 
030180,000951: 24,3413           00004        V99P               INHINT                                         
030181,000952: 24,3414           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
030182,000953: 24,3415           75020                           MASK     BIT12                                 
030183,000954: 24,3416           10000                           CCS      A                                     
030184,000955: 24,3417           13432                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
030185,000956: 
030186,000957: 24,3420           35020        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
030187,000958: 24,3421           26103                           ADS      FLAGWRD7                              
030188,000959: 24,3422           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
030189,000960: 24,3423           75017                           MASK     BIT13                                 
030190,000961: 24,3424           00006                           EXTEND                                         
030191,000962: 24,3425           13432                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
030192,000963: 
030193,000964: 24,3426           35033        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
030194,000965: 24,3427           05261                           TC       WAITLIST                              #  SET UP IGNITION HERE
030195,000966: 24,3430  E6,1466                                  EBANK=   DAPDATR1                              
030196,000967: 24,3430           02630 50066                     2CADR    IGNITION                              
030197,000968: 
030198,000969: 24,3432           32425        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
030199,000970: 24,3433           55145                           TS       NVWORD1                               
030200,000971: 24,3434           15233        ENDV99P            TCF      ENDOFJOB                              
030201,000972: 
030202,000973: 24,3435  E6,1474                                  EBANK=   CSMMASS                               
030203,000974: 24,3435           05406        V97T               TC       2PHSCHNG                              
030204,000975: 24,3436           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
030205,000976: 24,3437           00674                           OCT      00674                                 #  A, 4.67 = V97TJOB (-0 CS), TBASE OLD
030206,000977: 24,3440           35035        V97TJOB            CAF      ZERO                                  #  DISABLE CLOCKJOB
030207,000978: 24,3441           55145                           TS       NVWORD1                               
030208,000979: 24,3442           35033                           CAF      BIT1                                  
030209,000980: 24,3443           05251                           TC       TWIDDLE                               
030210,000981: 24,3444           03446                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
030211,000982: 24,3445           15233                           TCF      ENDOFJOB                              
030212,000983: 
030213,000984: 24,3446  E6,1474                                  EBANK=   CSMMASS                               
030214,000985: 24,3446           32434        V97TTASK           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030215,000986: 24,3447           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030216,000987: 24,3450           55654                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
030217,000988: 24,3451           05426                           TC       PHASCHNG                              
030218,000989: 24,3452           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030219,000990: 24,3453           77777                           DEC      -0         B-14                       #  -0 CS
030220,000991: 
030221,000992: 24,3454           03022                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
030222,000993: 24,3455           05426                           TC       PHASCHNG                              
030223,000994: 24,3456           40714                           OCT      40714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE NOW
030224,000995: 24,3457           05303                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030225,000996: 24,3460           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030226,000997: 
030227,000998: 24,3461  E6,1466                                  EBANK=   DAPDATR1                              
030228,000999: 24,3461           04754        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030229,001000: 24,3462           42036                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
030230,001001: 24,3463           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
030231,001002: 24,3464           05150                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
030232,001003: 24,3465  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
030233,001004: 24,3465           03405 50066                     2CADR    V99T                                  
030234,001005: 
030235,001006: 24,3467           15340        ENDV97T            TCF      TASKOVER                              
030236,001007: 
030237,001008: 24,3470  E6,1444                                  EBANK=   V97VCNTR                              
030238,001009: 24,3470           05426        V97P               TC       PHASCHNG                              
030239,001010: 24,3471           00734                           OCT      00734                                 #  A, 4.73 = V97PJOB (-0 CS), TBASE OLD
030240,001011:                                                                                                  #  IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
030241,001012: 24,3472           32425        V97PJOB            CAF      V06N40                                #  REDISPLAY V06N40
030242,001013: 24,3473           55145                           TS       NVWORD1                               
030243,001014: 24,3474           35033                           CAF      BIT1                                  
030244,001015: 24,3475           05251                           TC       TWIDDLE                               
030245,001016: 24,3476           03500                           ADRES    V97PTASK                              
030246,001017: 24,3477           15233                           TCF      ENDOFJOB                              
030247,001018: 
030248,001019: 24,3500  E6,1444                                  EBANK=   V97VCNTR                              
030249,001020: 24,3500           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
030250,001021: 24,3501           55643                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
030251,001022:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
030252,001023:                                                                                                  #        THE VERB 97 PROCEED)
030253,001024: 24,3502           05562                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
030254,001025: 24,3503           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
030255,001026: 24,3504           05562                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
030256,001027: 24,3505           00042                           ADRES    STEERSW                               
030257,001028: 24,3506           05426                           TC       PHASCHNG                              
030258,001029: 24,3507           40134                           OCT      40134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE NOW
030259,001030: 24,3510           05303                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
030260,001031: 24,3511           00310                           DEC      200        B-14                       
030261,001032: 
030262,001033: 24,3512  E7,1777                                  EBANK=   WHOCARES                              
030263,001034: 24,3512           05574        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
030264,001035: 24,3513           00030                           ADRES    IDLEFAIL                              
030265,001036: 24,3514           05426                           TC       PHASCHNG                              
030266,001037: 24,3515           00004                           OCT      00004                                 #  KILL GROUP 4
030267,001038: 24,3516           15340        ENDV97P            TCF      TASKOVER                              
030268,001039: 
030269,001040: 24,3517  E7,1777                                  EBANK=   WHOCARES                              
030270,001041: 24,3517           05426        V97E               TC       PHASCHNG                              
030271,001042: 24,3520           00534                           OCT      00534                                 #  A, 4.53 = V97EJOB (-0 CS), TBASE OLD
030272,001043:                                                                                                  #  IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
030273,001044: 24,3521           32425        V97EJOB            CAF      V06N40                                #  REDISPLAY V06N40
030274,001045: 24,3522           55145                           TS       NVWORD1                               
030275,001046: 24,3523           35033                           CAF      BIT1                                  
030276,001047: 24,3524           05261                           TC       WAITLIST                              
030277,001048: 24,3525  E7,1412                                  EBANK=   TIG                                   
030278,001049: 24,3525           03530 50067                     2CADR    V97ETASK                              
030279,001050: 
030280,001051: 24,3527           15233                           TCF      ENDOFJOB                              
030281,001052: 
030282,001053: 24,3530  E7,1412                                  EBANK=   TIG                                   
030283,001054: 24,3530           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
030284,001055: 24,3531           55412                           TS       TIG                                   
030285,001056: 24,3532           03374                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
030286,001057: 24,3533  E6,1474                                  EBANK=   CSMMASS                               
030287,001058: 24,3533           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030288,001059: 24,3534           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030289,001060: 24,3535           55654                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
030290,001061: 24,3536           05426                           TC       PHASCHNG                              
030291,001062: 24,3537           40754                           OCT      40754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE NOW
030292,001063: 24,3540           03022        SPSOFF97           TCR      SPSOFF                                
030293,001064: 24,3541           05426                           TC       PHASCHNG                              
030294,001065: 24,3542           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
030295,001066: 24,3543           05303                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030296,001067: 24,3544           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030297,001068: 
030298,001069: 24,3545  E6,1466                                  EBANK=   DAPDATR1                              
030299,001070: 24,3545           35033        V97E40.6           CAF      BIT1                                  
030300,001071: 24,3546           05261                           TC       WAITLIST                              
030301,001072: 24,3547  E6,1447                                  EBANK=   CNTR                                  
030302,001073: 24,3547           02260 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
030303,001074: 
030304,001075: 24,3551           04754                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030305,001076: 24,3552           42036                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
030306,001077:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
030307,001078: 
030308,001079: 24,3553           05406                           TC       2PHSCHNG                              
030309,001080: 24,3554           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
030310,001081: 24,3555           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030311,001082: 24,3556           77777                           DEC      -0         B-14                       #  -0 CS
030312,001083: 
030313,001084: 24,3557           45102        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
030314,001085: 24,3560           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
030315,001086: 24,3561           65017                           AD       BIT13                                 
030316,001087: 24,3562           54103                           TS       FLAGWRD7                              
030317,001088: 24,3563           05303                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
030318,001089: 24,3564           00036                           DEC      30         B-14                       
030319,001090: 
030320,001091: 24,3565           45023        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
030321,001092: 24,3566           55145                           TS       NVWORD1                               
030322,001093: 24,3567           05406                           TC       2PHSCHNG                              
030323,001094: 24,3570           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
030324,001095: 24,3571           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
030325,001096: 24,3572           35016                           CAF      PRIO20                                #  SET UP TIMEBURN
030326,001097: 24,3573           05163                           TC       FINDVAC                               
030327,001098: 24,3574  E7,1427                                  EBANK=   TGO                                   
030328,001099: 24,3574           02501 34067                     2CADR    S40.13                                
030329,001100: 
030330,001101: 24,3576           15340        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
030331,001102:                                                                                                  #        TO FLASHING V99 RESPONSE
030332,001103: 
030333,001104:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
030334,001105:                                                                                                  #  MOD BY ZELDIN
030335,001106: 
030336,001107:                                                                                                  #  FUNCTIONAL DESCRIPTION
030337,001108:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
030338,001109:                                                                                                  #        VECTOR(VGTIG).
030339,001110: 
030340,001111:                                                                                                  #  CALLING SEQUENCE
030341,001112:                                                                                                  #        L       CALL
030342,001113:                                                                                                  #        L+1             S40.1
030343,001114: 
030344,001115:                                                                                                  #  NORMAL EXIT MODE
030345,001116:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
030346,001117:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
030347,001118: 
030348,001119:                                                                                                  #  SUBROUTINES CALLED
030349,001120:                                                                                                  #        CSMPREC
030350,001121:                                                                                                  #        INITVEL
030351,001122:                                                                                                  #        CALCGRAV
030352,001123:                                                                                                  #        MIDGIM
030353,001124: 
030354,001125:                                                                                                  #  ALARM OR ABORT EXIT MODES
030355,001126:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
030356,001127: 
030357,001128:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030358,001129:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP B16 KGM
030359,001130:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030360,001131:                                                                                                  #    IF DELTA-V MANEUVER
030361,001132:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030362,001133:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
030363,001134:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
030364,001135:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
030365,001136:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
030366,001137:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
030367,001138:                                                                                                  #        CSTEER = 0                                      DP
030368,001139:                                                                                                  #    IF AIMPOINT STEERING
030369,001140:                                                                                                  #    IF AIMPT STEER
030370,001141:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
030371,001142:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
030372,001143:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1
030373,001144:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
030374,001145: 
030375,001146:                                                                                                  #  OUTPUT
030376,001147:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030377,001148:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
030378,001149:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
030379,001150:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
030380,001151:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
030381,001152:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030382,001153:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
030383,001154:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
030384,001155:                                                                                                  #                        POSITION AT TIME OF IGNITION
030385,001156: 
030386,001157:                                                                                                  #  DEBRIS        QTEMP1
030387,001158:                                                                                                  #                MPAC, QPRET
030388,001159:                                                                                                  #                PUSHLIST
030389,001160:                                                                                                  #                RTX2,RTX1
030390,001161: 
030391,001162: 14,2011                                           BANK     14                                    
030392,001163: 16,2000                                           SETLOC   P40S1                                 
030393,001164: 16,2000                                           BANK                                           
030394,001165: 
030395,001166: 16,2073                                           COUNT    16/S40.1                              
030396,001167: 
030397,001168: 16,2073           77214        S40.1              SET      VLOAD                                 
030398,001169: 16,2074           01070                                    FIRSTFLG                              
030399,001170: 16,2075           11566                                    LO6ZEROS                              
030400,001171: 16,2076           03705                           STORE    BDT                                   
030401,001172: 16,2077           43020                           STQ      BOF                                   
030402,001173: 16,2100           03657                                    QTEMP                                 
030403,001174: 16,2101           01347                                    XDELVFLG                              
030404,001175: 16,2102           34171                                    S40.1B                                #  LAMBERT
030405,001176: 16,2103           51575                           VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
030406,001177: 16,2104           03646                                    DELVSIN                               
030407,001178: 16,2105           03654                           STORE    DELVSAB                               #  COMPUTE FOR P30/P40 INTERFACE
030408,001179:                                                                                                  #        THUS PERMITTING MODULE-ONLY CHANGE
030409,001180: 16,2106           77201                           SETPD    VLOAD                                 
030410,001181: 16,2107           00001                                    0                                     
030411,001182: 16,2110           03640                                    VTIG                                  
030412,001183: 16,2111           03576                           STORE    VINIT                                 
030413,001184: 16,2112           53435                           VXV      UNIT                                  
030414,001185: 16,2113           03632                                    RTIG                                  
030415,001186: 16,2114           27713                           STOVL    UT                                    #  UP IN UT
030416,001187: 16,2115           03632                                    RTIG                                  
030417,001188: 16,2116           03570                           STORE    RINIT                                 
030418,001189: 16,2117           65236                           VSQ      PDDL                                  
030419,001190: 16,2120           00045                                    36D                                   
030420,001191: 16,2121           56275                           DMPR     DDV                                   
030421,001192: 16,2122           34225                                    THETACON                              
030422,001193: 16,2123           41205                           DMP      DMP                                   
030423,001194: 16,2124           03654                                    DELVSAB                               
030424,001195: 16,2125           03076                                    WEIGHT/G                              
030425,001196: 16,2126           77671                           DDV                                            
030426,001197: 16,2127           03727                                    F                                     
030427,001198: 16,2130           24017                           STOVL    14D                                   
030428,001199: 16,2131           03646                                    DELVSIN                               
030429,001200: 
030430,001201: 16,2132           74241                           DOT      VXSC                                  
030431,001202: 16,2133           03713                                    UT                                    
030432,001203: 16,2134           03713                                    UT                                    
030433,001204: 16,2135           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030434,001205: 16,2136           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030435,001206: 16,2137           03646                                    DELVSIN                               
030436,001207: 16,2140           00017                                    14D                                   
030437,001208: 16,2141           63356                           SIN      PDVL                                  
030438,001209: 16,2142           00007                                    6D                                    
030439,001210: 16,2143           53435                           VXV      UNIT                                  
030440,001211: 16,2144           03713                                    UT                                    
030441,001212: 16,2145           45561                           VXSC     STADR                                 
030442,001213: 16,2146           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
030443,001214: 16,2147           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030444,001215: 16,2150           00017                                    14D                                   
030445,001216: 16,2151           74346                           COS      VXSC                                  
030446,001217: 16,2152           74255                           VAD      VXSC                                  
030447,001218: 16,2153           03721                                    VGTIG                                 
030448,001219: 16,2154           00045                                    36D                                   
030449,001220: 16,2155           53352                           VSL2     VAD                                   
030450,001221: 16,2156           77626                           STADR                                          
030451,001222: 16,2157           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030452,001223: 
030453,001224: 16,2160           77656                           UNIT                                           
030454,001225: 16,2161           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030455,001226: 16,2162           03721                                    VGTIG                                 
030456,001227: 16,2163           43006                           PUSH     SET                                   
030457,001228: 16,2164           01072                                    AVFLAG                                
030458,001229: 16,2165           77624                           CALL                                           
030459,001230: 16,2166           10647                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030460,001231: 16,2167           77650                           GOTO                                           
030461,001232: 16,2170           03657                                    QTEMP                                 
030462,001233: 16,2171           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
030463,001234: 16,2172           03413                                    TIG                                   
030464,001235: 16,2173           36037                                    TWODT                                 
030465,001236: 16,2174           14041                           STODL    TDEC1                                 
030466,001237: 16,2175           03656                                    TPASS4                                
030467,001238: 16,2176           77625                           DSU                                            
030468,001239: 16,2177           00041                                    TDEC1                                 
030469,001240: 16,2200           37423                           STCALL   DELLT4                                
030470,001241: 16,2201           61651                                    AGAIN                                 
030471,001242: 16,2202           77775                           VLOAD                                          
030472,001243: 16,2203           03612                                    VIPRIME                               
030473,001244: 16,2204           17713                           STODL    UT                                    
030474,001245: 16,2205           03413                                    TIG                                   
030475,001246: 16,2206           00041                           STORE    TDEC1                                 
030476,001247: 16,2207           77621                           BDSU                                           
030477,001248: 16,2210           03656                                    TPASS4                                
030478,001249: 16,2211           37423                           STCALL   DELLT4                                
030479,001250: 16,2212           61651                                    AGAIN                                 
030480,001251: 16,2213           41575                           VLOAD    PUSH                                  
030481,001252: 16,2214           03646                                    DELVEET3                              
030482,001253: 16,2215           03721                           STORE    VGTIG                                 
030483,001254: 16,2216           45014                           SET      CALL                                  
030484,001255: 16,2217           01072                                    AVFLAG                                
030485,001256: 16,2220           10647                                    MIDGIM                                
030486,001257: 16,2221           52001                           SETPD    GOTO                                  
030487,001258: 16,2222           00001                                    0                                     
030488,001259: 16,2223           61704                                    CALCUT                                
030489,001260: 
030490,001261: 16,2224           00024 13714  THETACON           2DEC     .31830989  B-8                        
030491,001262: 
030492,001263: 30,2000                                           SETLOC   P40S3                                 
030493,001264: 30,2000                                           BANK                                           
030494,001265: 
030495,001266: 30,3645                                           COUNT    24/S40.1                              
030496,001267: 
030497,001268: 30,3645           04000 00000  EP4(45)H           2DEC     .125                                  
030498,001269: 
030499,001270: 30,3647           00707 03434  EP4(10)H           2DEC     .027777777                            
030500,001271: 
030501,001272: 30,3651           45020        AGAIN              STQ      CALL                                  
030502,001273: 30,3652           03730                                    QTEMP1                                
030503,001274: 30,3653           27100                                    THISPREC                              
030504,001275: 30,3654           66134                           SXA,2    SXA,1                                 
030505,001276: 30,3655           03746                                    RTX2                                  
030506,001277: 30,3656           03745                                    RTX1                                  
030507,001278: 30,3657           77775                           VLOAD                                          
030508,001279: 30,3660           00001                                    RATT                                  
030509,001280: 30,3661           03632                           STORE    RTIG                                  
030510,001281: 30,3662           27570                           STOVL    RINIT                                 
030511,001282: 30,3663           00007                                    VATT                                  
030512,001283: 30,3664           03640                           STORE    VTIG                                  
030513,001284: 30,3665           03576                           STORE    VINIT                                 
030514,001285: 30,3666           67201                           SETPD    SLOAD                                 
030515,001286: 30,3667           00001                                    0                                     
030516,001287: 30,3670           15334                                    HI6ZEROS                              
030517,001288: 30,3671           43125                           PDDL     BON                                   
030518,001289: 30,3672           21646                                    EP4(45)H                              
030519,001290: 30,3673           03705                                    NORMSW                                
030520,001291: 30,3674           61677                                    +3                                    
030521,001292: 30,3675           77745                           DLOAD                                          
030522,001293: 30,3676           21650                                    EP4(10)H                              
030523,001294: 30,3677           45006                           PUSH     CALL                                  
030524,001295: 30,3700           22000                                    INITVEL                               
030525,001296: 30,3701           52001                           SETPD    GOTO                                  
030526,001297: 30,3702           00001                                    0                                     
030527,001298: 30,3703           03730                                    QTEMP1                                
030528,001299: 30,3704           45175        CALCUT             VLOAD    CALL                                  
030529,001300: 30,3705           03632                                    RTIG                                  
030530,001301: 30,3706           77355                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
030531,001302: 30,3707           70372                           VSL1     V/SC                                  
030532,001303: 30,3710           21747                                    200CS                                 #  G AT 2(-5) M/CS. CS
030533,001304: 30,3711           52315                           PDVL     VSU                                   
030534,001305: 30,3712           03612                                    VIPRIME                               
030535,001306: 30,3713           03713                                    UT                                    
030536,001307: 30,3714           52341                           V/SC     VSU                                   
030537,001308: 30,3715           21747                                    200CS                                 
030538,001309: 30,3716           72561                           VXSC     VSL2                                  
030539,001310: 30,3717           03703                                    CSTEER                                
030540,001311: 30,3720           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
030541,001312: 30,3721           03721                                    VGTIG                                 
030542,001313: 30,3722           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
030543,001314: 
030544,001315: 30,3723           74241                           DOT      VXSC                                  
030545,001316: 30,3724           00015                                    12D                                   
030546,001317: 30,3725           00001                                    0                                     
030547,001318: 30,3726           51352                           VSL2     BVSU                                  
030548,001319: 30,3727           00015                                    12D                                   
030549,001320: 30,3730           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
030550,001321: 30,3731           03727                                    F                                     
030551,001322: 30,3732           56261                           SRR      DDV                                   
030552,001323: 30,3733           21605                                    4                                     
030553,001324: 30,3734           03076                                    WEIGHT/G                              
030554,001325: 30,3735           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
030555,001326: 30,3736           00015                                    12D                                   
030556,001327: 30,3737           77636                           VSQ                                            
030557,001328: 30,3740           75421                           BDSU     SQRT                                  
030558,001329: 30,3741           76561                           VXSC     VSL1                                  
030559,001330: 30,3742           53455                           VAD      UNIT                                  
030560,001331: 30,3743           00015                                    12D                                   
030561,001332: 30,3744           37713                           STCALL   UT                                    
030562,001333: 30,3745           03657                                    QTEMP                                 
030563,001334: 30,3746           01440 00000  200CS              2DEC     200        B-12                       
030564,001335: 
030565,001336:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
030566,001337:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
030567,001338:                                                                                                  #  MOD BY ZELDIN
030568,001339: 
030569,001340:                                                                                                  #  FUNCTIONAL DESCRIPTION
030570,001341:                                                                                                  #        
030571,001342:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030572,001343:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030573,001344:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
030574,001345:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030575,001346:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030576,001347:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
030577,001348:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030578,001349:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
030579,001350:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030580,001351: 
030581,001352:                                                                                                  #  CALLING SEQUENCE
030582,001353:                                                                                                  #        L       CALL
030583,001354:                                                                                                  #        L+1             S40.2,3
030584,001355: 
030585,001356:                                                                                                  #  NORMAL EXIT MODE
030586,001357:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
030587,001358: 
030588,001359:                                                                                                  #  SUBROUTINES CALLED
030589,001360:                                                                                                  #        CALCGA
030590,001361: 
030591,001362:                                                                                                  #  ALARM OR ABORT MODES
030592,001363:                                                                                                  #        NONE
030593,001364: 
030594,001365:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030595,001366:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
030596,001367:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
030597,001368:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
030598,001369:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
030599,001370:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
030600,001371: 
030601,001372:                                                                                                  #  OUTPUT
030602,001373:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
030603,001374:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
030604,001375:                                                                                                  #        YSCREF
030605,001376:                                                                                                  #        ZSCREF
030606,001377:                                                                                                  #        GIMBAL ANGLES IN THETAD
030607,001378:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
030608,001379: 
030609,001380:                                                                                                  #  DEBRIS
030610,001381:                                                                                                  #        PUSHLIST, QPRET, MPAC
030611,001382:                                                                                                  #        QTEMP   TEMP. ERASABLE
030612,001383: 
030613,001384: 24,3577                                           BANK     24                                    
030614,001385: 24,2000                                           SETLOC   P40S                                  
030615,001386: 24,2000                                           BANK                                           
030616,001387: 24,3577                                           COUNT*   $$/S40.2                              
030617,001388: 24,3577           64375        S40.2,3            VLOAD    MXV                                   
030618,001389: 24,3600           03713                                    UT                                    
030619,001390: 24,3601           01736                                    REFSMMAT                              
030620,001391: 24,3602           44172                           VSL1     STQ                                   
030621,001392: 24,3603           03657                                    QTEMP                                 
030622,001393: 24,3604           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
030623,001394: 24,3605           43001                           SETPD    BON                                   
030624,001395: 24,3606           00001                                    0                                     
030625,001396: 24,3607           00704                                    ENG2FLAG                              
030626,001397: 24,3610           51720                                    S40.2,3B                              
030627,001398: 24,3611           77745                           DLOAD                                          
030628,001399: 24,3612           15334                                    HI6ZEROS                              
030629,001400: 24,3613           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
030630,001401: 24,3614           03025                                    YACTOFF                               
030631,001402: 24,3615           72405                           DMP      SL1                                   
030632,001403: 24,3616           11757                                    TRIMSCAL                              
030633,001404: 24,3617           41415                           DAD      PUSH                                  
030634,001405: 24,3620           11761                                    YBIAS                                 
030635,001406: 24,3621           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
030636,001407: 24,3622           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
030637,001408: 24,3623           77735                           SLOAD                                          
030638,001409: 24,3624           03024                                    PACTOFF                               
030639,001410: 24,3625           72405                           DMP      SL1                                   
030640,001411: 24,3626           11757                                    TRIMSCAL                              
030641,001412: 24,3627           41415                           DAD      PUSH                                  
030642,001413: 24,3630           11763                                    PBIAS                                 
030643,001414: 24,3631           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
030644,001415: 24,3632           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
030645,001416: 24,3633           14323                           STODL    ZSCREF                                #  SIN(P +P0)
030646,001417: 24,3634           00007                                    6                                     
030647,001418: 24,3635           72405                           DMP      SL1                                   
030648,001419: 24,3636           00005                                    4                                     
030649,001420: 24,3637           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
030650,001421: 24,3640           00007                                    6                                     
030651,001422: 24,3641           72405                           DMP      SL1                                   
030652,001423: 24,3642           00003                                    2                                     
030653,001424: 24,3643           77666                           VDEF                                           
030654,001425: 
030655,001426: 24,3644           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
030656,001427: 24,3645           00323                                    ZSCREF                                
030657,001428: 24,3646           72405                           DMP      SL1                                   
030658,001429: 24,3647           00005                                    4                                     
030659,001430: 24,3650           41325                           PDDL     DMP                                   
030660,001431: 24,3651           00323                                    ZSCREF                                
030661,001432: 24,3652           00003                                    2                                     
030662,001433: 24,3653           57552                           SL1      DCOMP                                 
030663,001434: 24,3654           77666                           VDEF                                           
030664,001435: 
030665,001436: 24,3655           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030666,001437: 24,3656           77666                           VDEF                                           
030667,001438: 
030668,001439: 24,3657           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030669,001440: 24,3660           00323                                    ZSCREF                                
030670,001441: 24,3661           65325                           PDDL     PDDL                                  
030671,001442: 24,3662           00315                                    YSCREF                                
030672,001443: 24,3663           00307                                    XSCREF                                
030673,001444: 24,3664           77666                           VDEF                                           
030674,001445: 24,3665           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030675,001446: 24,3666           03713                                    UT                                    
030676,001447: 24,3667           53515                           PDVL     UNIT                                  
030677,001448: 24,3670           03632                                    RTIG                                  
030678,001449: 24,3671           57435                           VXV      VCOMP                                 
030679,001450: 24,3672           00001                                    0                                     
030680,001451: 24,3673           41456                           UNIT     PUSH                                  
030681,001452: 24,3674           77624                           CALL                                           
030682,001453: 24,3675           51737                                    TSTRXUT                               
030683,001454: 24,3676           57435                           VXV      VCOMP                                 
030684,001455: 24,3677           00001                                    0                                     
030685,001456: 24,3700           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030686,001457: 24,3701           00307                                    XSCREF                                
030687,001458: 24,3702           76505                           VXM      VSL1                                  
030688,001459: 24,3703           00001                                    0                                     
030689,001460: 24,3704           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030690,001461: 24,3705           00315                                    YSCREF                                
030691,001462: 24,3706           76505                           VXM      VSL1                                  
030692,001463: 24,3707           00001                                    0                                     
030693,001464: 24,3710           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
030694,001465: 24,3711           00323                                    ZSCREF                                
030695,001466: 24,3712           76505                           VXM      VSL1                                  
030696,001467: 24,3713           00001                                    0                                     
030697,001468: 24,3714           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030698,001469: 24,3715           52001                           SETPD    GOTO                                  
030699,001470: 24,3716           00001                                    0                                     
030700,001471: 24,3717           03657                                    QTEMP                                 
030701,001472: 24,3720           77775        S40.2,3B           VLOAD                                          
030702,001473: 24,3721           15332                                    UNITX                                 
030703,001474: 24,3722           27351                           STOVL    SCAXIS                                
030704,001475: 24,3723           03713                                    UT                                    
030705,001476: 24,3724           00307                           STORE    XSCREF                                
030706,001477: 24,3725           53435                           VXV      UNIT                                  
030707,001478: 24,3726           03632                                    RTIG                                  
030708,001479: 24,3727           34007                           STCALL   6D                                    
030709,001480: 24,3730           51737                                    TSTRXUT                               
030710,001481: 24,3731           00315                           STORE    YSCREF                                
030711,001482: 24,3732           57435                           VXV      VCOMP                                 
030712,001483: 24,3733           00307                                    XSCREF                                
030713,001484: 24,3734           77772                           VSL1                                           
030714,001485: 24,3735           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
030715,001486: 24,3736           03657                                    QTEMP                                 
030716,001487: 24,3737           46145        TSTRXUT            DLOAD    BHIZ                                  
030717,001488: 24,3740           00045                                    36D                                   
030718,001489: 24,3741           51744                                    BADVCTOR                              
030719,001490: 24,3742           43575                           VLOAD    RVQ                                   
030720,001491: 24,3743           00007                                    6D                                    
030721,001492: 24,3744           53575        BADVCTOR           VLOAD    UNIT                                  
030722,001493: 24,3745           03632                                    RTIG                                  
030723,001494: 24,3746           53515                           PDVL     UNIT                                  
030724,001495: 24,3747           03640                                    VTIG                                  
030725,001496: 24,3750           53322                           VSR3     VAD                                   
030726,001497: 24,3751           53435                           VXV      UNIT                                  
030727,001498: 24,3752           03713                                    UT                                    
030728,001499: 24,3753           77676                           VCOMP                                          
030729,001500: 24,3754           00007                           STORE    6D                                    
030730,001501: 24,3755           77616                           RVQ                                            
030731,001502: 24,3756           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
030732,001503: 
030733,001504: 24,3760           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
030734,001505: 
030735,001506: 24,3762           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
030736,001507: 
030737,001508:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
030738,001509: 
030739,001510:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
030740,001511:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
030741,001512:                                                                                                  #  MOD BY ZELDIN
030742,001513: 
030743,001514:                                                                                                  #  FUNCTIONAL DESCRIPTION
030744,001515: 
030745,001516:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
030746,001517:                                                                                                  #        TO CONTROL COORDS.
030747,001518: 
030748,001519:                                                                                                  #  CALLING SEQUENCE
030749,001520: 
030750,001521:                                                                                                  #        L       CALL
030751,001522:                                                                                                  #        L+1             S41.1
030752,001523: 
030753,001524:                                                                                                  #  NORMAL EXIT MODE
030754,001525:                                                                                                  #        
030755,001526:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
030756,001527: 
030757,001528:                                                                                                  #  SUBROUTINES CALLED:
030758,001529: 
030759,001530:                                                                                                  #        CALCSMSC
030760,001531:                                                                                                  #        CDUTRIG
030761,001532: 
030762,001533:                                                                                                  #  ALARM OR ABORT MODES
030763,001534: 
030764,001535:                                                                                                  #        NONE
030765,001536: 
030766,001537:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030767,001538: 
030768,001539:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
030769,001540:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
030770,001541: 
030771,001542:                                                                                                  #  OUTPUT
030772,001543: 
030773,001544:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
030774,001545: 
030775,001546:                                                                                                  #  DEBRIS:
030776,001547: 
030777,001548:                                                                                                  #        QTEMP           TEMP ERASABLE
030778,001549:                                                                                                  #        QPRET
030779,001550: 
030780,001551: 24,3764                                           COUNT    22/S41.1                              
030781,001552: 
030782,001553: 22,2000                                           SETLOC   P40S5                                 
030783,001554: 22,2000                                           BANK                                           
030784,001555: 
030785,001556: 22,3431           45020        S41.1              STQ      CALL                                  
030786,001557: 22,3432           03657                                    QTEMP                                 
030787,001558: 22,3433           47501                                    CDUTRIG                               
030788,001559: 22,3434           77775                           VLOAD                                          
030789,001560: 22,3435           45121                           MXV      CALL                                  
030790,001561: 22,3436           01736                                    REFSMMAT                              
030791,001562: 22,3437           47646                                    *SMNB*                                
030792,001563: 22,3440           74321                           MXV      VXSC                                  
030793,001564: 22,3441           05003                                    QUADROT                               
030794,001565: 22,3442           05446                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
030795,001566: 22,3443           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
030796,001567: 22,3444           03657                                    QTEMP                                 
030797,001568: 22,3445           24000 00000  TENBNK14           2DEC     10.        B-4                        
030798,001569: 
030799,001570:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
030800,001571:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030801,001572:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030802,001573:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030803,001574:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
030804,001575:                                                                                                  #  CALLING SEQ   CALL S40.8
030805,001576:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030806,001577:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
030807,001578:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030808,001579:                                                                                                  #                                IN METERS/CS AT +7.
030809,001580:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030810,001581:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030811,001582:                                                                                                  #                                METERS/CS AT +7.
030812,001583:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030813,001584:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
030814,001585:                                                                                                  #                IDLEFAIL -      A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030815,001586:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030816,001587:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
030817,001588:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030818,001589:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
030819,001590:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030820,001591:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030821,001592:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
030822,001593:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030823,001594:                                                                                                  #  DEBRIS        OMEGAXC, +1
030824,001595:                                                                                                  #  SUBROUTINES USED      -       *SMNB*, ALARM
030825,001596: 
030826,001597: 16,2000                                           SETLOC   P40S1                                 
030827,001598: 16,2000                                           BANK                                           
030828,001599: 16,2226  E6,1466                                  EBANK=   DAPDATR1                              
030829,001600: 16,2226                                           COUNT    16/S40.8                              
030830,001601: 
030831,001602: 16,2226           44001        S40.8              SETPD    STQ                                   
030832,001603: 16,2227           00001        SPBIT1                      00D                                   
030833,001604: 16,2230           03657                                    QTEMP                                 
030834,001605: 16,2231           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
030835,001606: 16,2232           03433                                    DELVREF                               
030836,001607: 16,2233           03705                                    BDT                                   
030837,001608: 16,2234           77655                           VAD                                            
030838,001609: 16,2235           03721                                    VGPREV                                
030839,001610: 16,2236           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
030840,001611: 
030841,001612: 16,2237           77646                           ABVAL                                          
030842,001613: 16,2240           03773                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
030843,001614: 16,2241           77776                           EXIT                                           
030844,001615: 16,2242           05426                           TC       PHASCHNG                              
030845,001616: 16,2243           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
030846,001617: 
030847,001618: 16,2244           06006                           TC       INTPRET                               
030848,001619: 16,2245           77775                           VLOAD                                          
030849,001620: 16,2246           03460                                    VG                                    
030850,001621: 16,2247           03721                           STORE    VGPREV                                
030851,001622: 16,2250           77214                           BOFF     VLOAD                                 
030852,001623: 16,2251           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
030853,001624: 16,2252           03657                                    QTEMP                                 
030854,001625: 16,2253           03433                                    DELVREF                               
030855,001626: 16,2254           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
030856,001627: 16,2255           41335                           SLOAD    DMP                                   
030857,001628: 16,2256           01350                                    DVTHRESH                              #  SC.AT B-2 M/CS
030858,001629: 16,2257           36047                                    DPB-9                                 
030859,001630: 16,2260           77621                           BDSU                                           
030860,001631: 16,2261           77640                           BMN                                            
030861,001632: 16,2262           40241                                    LOTHRUST                              
030862,001633: 16,2263           77414        CGTRACK            BON      EXIT                                  #  ENABLE TVCDAP CG TRACKING
030863,001634: 16,2264           04700                                    SWTOVER                               
030864,001635: 16,2265           34360                                    FREPSET                               #  V46 SWITCHOVER HAS OCCURRED (CSM/LM)
030865,001636: 16,2266           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
030866,001637: 16,2267           75016                           MASK     BIT14                                 
030867,001638: 16,2270           10000                           CCS      A                                     
030868,001639: 16,2271           35033                           CAF      BIT1                                  
030869,001640: 16,2272           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
030870,001641: 16,2273           31421                           CAE      EREPFRAC                              
030871,001642: 16,2274           55642        REPFRACS           TS       REPFRAC                               
030872,001643: 
030873,001644: 16,2275           06006                           TC       INTPRET                               
030874,001645: 16,2276           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
030875,001646: 16,2277           03433                                    DELVREF                               
030876,001647: 16,2300           03705                                    BDT                                   
030877,001648: 16,2301           77656                           UNIT                                           
030878,001649: 16,2302           41441                           DOT      PUSH                                  #  (00D)
030879,001650: 16,2303           03460                                    VG                                    
030880,001651: 16,2304           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
030881,001652: 16,2305           40233                                    INCRSVG                               #        DISPLAY ALARM IF NOT
030882,001653: 16,2306           36043                                    2VEXHUST                              
030883,001654: 16,2307           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
030884,001655: 16,2310           11564                                    LODPHALF                              
030885,001656: 16,2311           70501                           NORM     SR1                                   
030886,001657: 16,2312           00047                                    X1                                    
030887,001658: 16,2313           60325                           PDDL     NORM                                  
030888,001659: 16,2314           00045                                    36D                                   #  (MAG DELVG)
030889,001660: 16,2315           00050                                    X2                                    
030890,001661: 16,2316           77665                           BDDV                                           
030891,001662: 16,2317           53664                           XSU,2    SL*                                   
030892,001663: 16,2320           00046                                    X1                                    
030893,001664: 16,2321           57607                                    0          -9D,2                      
030894,001665: 16,2322           41405                           DMP      PUSH                                  #  (00D)
030895,001666: 16,2323           36041                                    -FOURDT                               
030896,001667: 16,2324           54335                           SLOAD    SR                                    
030897,001668: 16,2325           03013                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
030898,001669: 16,2326           20617                                    14D                                   
030899,001670: 16,2327           45421                           BDSU     STADR                                 
030900,001671: 16,2330           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
030901,001672: 16,2331           77615                           DAD                                            
030902,001673: 16,2332           01205                                    PIPTIME                               
030903,001674: 16,2333           17413                           STODL    TIG                                   
030904,001675: 16,2334           03430                                    TGO                                   
030905,001676: 16,2335           50025                           DSU      BMN                                   
030906,001677: 16,2336           36045                                    FOURSEC                               
030907,001678: 16,2337           40220                                    S40.81                                
030908,001679: 
030909,001680: 16,2340           74375        XPRODUCT           VLOAD    VXSC                                  
030910,001681: 16,2341           03705                                    BDT                                   
030911,001682: 16,2342           03703                                    CSTEER                                
030912,001683: 16,2343           52352                           VSL2     VSU                                   
030913,001684: 16,2344           03433                                    DELVREF                               
030914,001685: 16,2345           63256                           UNIT     PDVL                                  
030915,001686: 16,2346           03460                                    VG                                    
030916,001687: 16,2347           47256                           UNIT     VXV                                   
030917,001688: 16,2350           45121                           MXV      CALL                                  
030918,001689: 16,2351           01736                                    REFSMMAT                              #  (REFSMMAT/2)
030919,001690: 16,2352           47646                                    *SMNB*                                
030920,001691: 16,2353           77761                           VXSC                                           
030921,001692: 16,2354           03235                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
030922,001693: 16,2355           03126        OMEGACLC           STORE    OMEGAC                                
030923,001694: 16,2356           77650                           GOTO                                           
030924,001695: 16,2357           03657                                    QTEMP                                 
030925,001696: 16,2360           77545        FREPSET            DLOAD    EXIT                                  #  POST-SQITCHOVER CSM/LM.  LOAD FROM LOW-
030926,001697: 16,2361           36602                                    FREPFRAC                              #        BANDWIDTH PARAMETER IN FIXED MEMORY
030927,001698: 16,2362           30154                           CAE      MPAC                                  
030928,001699: 16,2363           12274                           TCF      REPFRACS                              
030929,001700: 
030930,001701: 17,2000                                           SETLOC   DAPS7                                 
030931,001702: 17,2000                                           BANK                                           
030932,001703: 17,2036                                           COUNT    17/S40.8                              
030933,001704: 
030934,001705: 17,2036           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
030935,001706: 
030936,001707: 17,2040           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
030937,001708: 
030938,001709: 17,2042           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
030939,001710: 
030940,001711: 17,2044           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
030941,001712: 
030942,001713: 17,2046           00040 00000  DPB-9              2DEC     1          B-9                        
030943,001714: 
030944,001715: 20,2000                                           SETLOC   DAPS6                                 
030945,001716: 20,2000                                           BANK                                           
030946,001717: 
030947,001718: 20,2220                                           COUNT    20/S40.8                              
030948,001719: 
030949,001720: 20,2220           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
030950,001721: 20,2221           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
030951,001722: 20,2222           15334                                    HI6ZEROS                              
030952,001723: 20,2223           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
030953,001724: 20,2224           77776                           EXIT                                           
030954,001725: 20,2225           35013                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
030955,001726: 20,2226           55447                           TS       CNTR                                  
030956,001727: 20,2227           06006                           TC       INTPRET                               
030957,001728: 20,2230           52014                           CLEAR    GOTO                                  
030958,001729: 20,2231           01264                                    STEERSW                               #  RESTARTS OK
030959,001730: 20,2232           03657                                    QTEMP                                 
030960,001731: 20,2233           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
030961,001732: 20,2234           05664                           TC       ALARM                                 #  IN WRONG DIRECTION.
030962,001733: 20,2235           01407                           OCT      01407                                 
030963,001734: 20,2236           06006                           TC       INTPRET                               
030964,001735: 20,2237           77650                           GOTO                                           
030965,001736: 20,2240           03657                                    QTEMP                                 
030966,001737: 
030967,001738: 20,2241           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
030968,001739: 20,2242           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
030969,001740: 20,2243           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
030970,001741: 20,2244           15334                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
030971,001742: 20,2245           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
030972,001743: 20,2246           77776                           EXIT                                           
030973,001744: 
030974,001745: 20,2247           45035                           CS       ZERO                                  
030975,001746: 20,2250           55643                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
030976,001747: 20,2251           55655                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
030977,001748: 20,2252           55642                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
030978,001749: 20,2253           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
030979,001750: 
030980,001751: 20,2254           06006                           TC       INTPRET                               
030981,001752: 20,2255           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
030982,001753: 20,2256           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
030983,001754: 20,2257           03657                                    QTEMP                                 #  RESTARTS OK
030984,001755: 
030985,001756:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030986,001757:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030987,001758:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
030988,001759:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
030989,001760:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030990,001761:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
030991,001762:                                                                                                  #  INPUT         RNIT    -       ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030992,001763:                                                                                                  #                VNIT    -       ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030993,001764:                                                                                                  #                VRPREV  -       LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030994,001765:                                                                                                  #                                METERS/CS AT +7.
030995,001766:                                                                                                  #                NOMTIG  -       TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
030996,001767:                                                                                                  #                DELLT4  -       TRANSFER TIME FROM PIPTIME TO TARGET %+28"
030997,001768:                                                                                                  #                TNIT    -       TIME OF RNIT AND VNIT IN CS AT +28
030998,001769:                                                                                                  #                GDT/2   -       HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030999,001770:                                                                                                  #                                ACCERERATION OF GRAVITY IN METERS/CS AT +7.
031000,001771:                                                                                                  #                DELVREF -       CHANGE IN VELOCITY DURING LAST 2 SEC IN
031001,001772:                                                                                                  #                                METERS/CS AT +7.
031002,001773:                                                                                                  #                NORMSW          SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
031003,001774:                                                                                                  #                                165 TO 195 DEGREES
031004,001775:                                                                                                  #                                RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
031005,001776:                                                                                                  #  OUTPUT        VGTEMP  -       VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
031006,001777:                                                                                                  #                COGA    -       INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
031007,001778:                                                                                                  #                                OR PREVIOUS PASS THRU S40.9
031008,001779:                                                                                                  #                GOBL/2  -       OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
031009,001780:                                                                                                  #                VRPREV  -       VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
031010,001781:                                                                                                  #                BDT     -       B VECTOR IN METERS/CS AT +7.
031011,001782:                                                                                                  #  SUBROUTINES USED -    INITVEL
031012,001783: 
031013,001784: 16,2000                                           SETLOC   P40S1                                 
031014,001785: 16,2000                                           BANK                                           
031015,001786: 
031016,001787: 16,2364  E6,1744                                  EBANK=   NBRCYCLS                              
031017,001788: 16,2364                                           COUNT    16/S40.9                              
031018,001789: 
031019,001790: 16,2364           06006        S40.9              TC       INTPRET                               
031020,001791: 16,2365           71201                           SETPD    DLOAD                                 
031021,001792: 16,2366           00001                                    00D                                   
031022,001793: 16,2367           11566                                    LO6ZEROS                              
031023,001794: 16,2370           77725                           PDDL                                           
031024,001795: 16,2371           26247                                    EP4(45)L                              
031025,001796: 16,2372           71214                           BON      DLOAD                                 
031026,001797: 16,2373           03705                                    NORMSW                                
031027,001798: 16,2374           34376                                    +2                                    
031028,001799: 16,2375           26251                                    EP4(10)L                              
031029,001800: 16,2376           77606                           PUSH                                           
031030,001801: 16,2377           45014                           CLEAR    CALL                                  
031031,001802: 16,2400           00675                                    GUESSW                                
031032,001803: 16,2401           22002                                    HAVEGUES                              
031033,001804: 16,2402           77776                           EXIT                                           
031034,001805: 16,2403           05426                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
031035,001806: 16,2404           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
031036,001807: 16,2405           10000                           OCT      10000                                 
031037,001808: 16,2406           06006                           TC       INTPRET                               
031038,001809: 16,2407           77614        ENDLAMB            BON                                            
031039,001810: 16,2410           01310                                    FIRSTFLG                              
031040,001811: 16,2411           34427                                    FIRSTTME                              
031041,001812: 16,2412           52375                           VLOAD    VSU                                   
031042,001813: 16,2413           03612                                    VIPRIME                               
031043,001814: 16,2414           03466                                    VRPREV                                
031044,001815: 16,2415           45325                           PDDL     DSU                                   
031045,001816: 16,2416           03474                                    TNIT                                  
031046,001817: 16,2417           03476                                    TNITPREV                              
031047,001818: 16,2420           55261                           SL       BDDV                                  
031048,001819: 16,2421           20222                                    17D                                   
031049,001820: 16,2422           26243                                    200CSHI                               
031050,001821: 16,2423           77761                           VXSC                                           
031051,001822: 16,2424           76451                           VSU      VSL1                                  
031052,001823: 16,2425           01207                                    GDT/2                                 
031053,001824: 16,2426           03705                           STORE    BDT                                   
031054,001825: 16,2427           57535        FIRSTTME           SLOAD    DCOMP                                 
031055,001826: 16,2430           03747                                    RTX2                                  
031056,001827: 16,2431           77640                           BMN                                            
031057,001828: 16,2432           34447                                    MOONCASE                              
031058,001829: 16,2433           53575                           VLOAD    UNIT                                  
031059,001830: 16,2434           01171                                    RN                                    
031060,001831: 16,2435           45345                           DLOAD    DSU                                   
031061,001832: 16,2436           01205                                    PIPTIME                               
031062,001833: 16,2437           03450                                    NOMTIG                                
031063,001834: 16,2440           56205                           DMP      DDV                                   
031064,001835: 16,2441           26245                                    EARTHMU                               
031065,001836: 16,2442           00043                                    34D                                   
031066,001837: 16,2443           53361                           VXSC     VAD                                   
031067,001838: 16,2444           01215                                    GOBL/2                                
031068,001839: 16,2445           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
031069,001840: 16,2446           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
031070,001841: 16,2447           77776        MOONCASE           EXIT                                           
031071,001842: 16,2450           05426                           TC       PHASCHNG                              
031072,001843: 16,2451           04021                           OCT      04021                                 #  C, JOB BELOW
031073,001844: 
031074,001845: 16,2452           06006        COPY40.9           TC       INTPRET                               
031075,001846: 16,2453           77745                           DLOAD                                          
031076,001847: 16,2454           03474                                    TNIT                                  
031077,001848: 16,2455           27476                           STOVL    TNITPREV                              
031078,001849: 16,2456           03612                                    VIPRIME                               
031079,001850: 16,2457           03466                           STORE    VRPREV                                
031080,001851: 16,2460           77414                           CLEAR    EXIT                                  
031081,001852: 16,2461           01270                                    FIRSTFLG                              
031082,001853: 16,2462           45033                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
031083,001854: 16,2463           55744                           TS       NBRCYCLS                              
031084,001855: 16,2464           05426        ENDS40.9           TC       PHASCHNG                              
031085,001856: 16,2465           00001                           OCT      00001                                 
031086,001857: 16,2466           15233                           TCF      ENDOFJOB                              
031087,001858: 
031088,001859: 16,2467           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
031089,001860: 16,2470           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
031090,001861: 16,2471           11566                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
031091,001862: 16,2472           17347                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
031092,001863: 16,2473           11566                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
031093,001864: 16,2474           27345                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
031094,001865: 16,2475           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
031095,001866: 16,2476           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
031096,001867: 16,2477           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
031097,001868: 16,2500           12462                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
031098,001869: 
031099,001870: 13,2000                                           SETLOC   P40S4                                 
031100,001871: 13,2000                                           BANK                                           
031101,001872: 13,2242                                           COUNT*   $$/S40.9                              
031102,001873: 
031103,001874: 13,2242           01440 00000  200CSHI            2DEC     200        B-12                       
031104,001875: 
031105,001876: 13,2244           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
031106,001877: 
031107,001878: 13,2246           04000 00000  EP4(45)L           2DEC     .125                                  
031108,001879: 
031109,001880: 13,2250           00707 03434  EP4(10)L           2DEC     .027777777                            
031110,001881: 
031111,001882:                                                                                                  #  NAME                  S40.13 - TIMEBURN
031112,001883: 
031113,001884:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
031114,001885:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
031115,001886:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
031116,001887:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
031117,001888:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
031118,001889: 
031119,001890:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
031120,001891: 
031121,001892:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
031122,001893:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
031123,001894:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
031124,001895:                                                                                                  #                        MDOT -  RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
031125,001896:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
031126,001897:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
031127,001898: 
031128,001899:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
031129,001900:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
031130,001901:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
031131,001902:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
031132,001903:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
031133,001904:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
031134,001905: 
031135,001906: 16,2000                                           SETLOC   P40S1                                 
031136,001907: 16,2000                                           BANK                                           
031137,001908: 16,2501  E7,1427                                  EBANK=   TGO                                   
031138,001909: 16,2501                                           COUNT    16/40.13                              
031139,001910: 
031140,001911: 16,2501           06006        S40.13             TC       INTPRET                               
031141,001912: 16,2502           43001                           SETPD    SET                                   
031142,001913: 16,2503           00001                                    00D                                   
031143,001914: 16,2504           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
031144,001915: 16,2505           51575                           VLOAD    ABVAL                                 
031145,001916: 16,2506           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
031146,001917: 16,2507           77776                           EXIT                                           
031147,001918: 16,2510           35025                           CAF      BIT7                                  #  TEST +X TRANSLATION
031148,001919: 16,2511           00006                           EXTEND                                         
031149,001920: 16,2512           06031                           RXOR     CHAN31                                
031150,001921: 16,2513           75025                           MASK     BIT7                                  
031151,001922: 16,2514           00006                           EXTEND                                         
031152,001923: 16,2515           12577                           BZF      NOTADDUL                              
031153,001924: 16,2516           06006                           TC       INTPRET                               
031154,001925: 16,2517           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
031155,001926: 16,2520           36057                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
031156,001927: 16,2521           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
031157,001928: 16,2522           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
031158,001929: 16,2523           00700                                    NJETSFLG                              
031159,001930: 16,2524           34525                                    S40.130                               
031160,001931: 16,2525           77621        S40.130            BDSU                                           
031161,001932: 16,2526           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
031162,001933: 16,2527           01770                                    K1VAL                                 #  M.NETWON-CS AT +24
031163,001934: 16,2530           03076                                    WEIGHT/G                              
031164,001935: 16,2531           50021                           BDSU     BMN                                   
031165,001936: 16,2532           00001                                    00D                                   
031166,001937: 16,2533           34556                                    S40.131                               #  TGO LESS THAN 100 CS
031167,001938: 16,2534           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7
031168,001939: 16,2535           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
031169,001940: 16,2536           36053                                    3.5SEC                                #  350 CS AT +14
031170,001941: 16,2537           65221                           BDSU     PDDL                                  
031171,001942: 16,2540           03076                                    WEIGHT/G                              
031172,001943: 16,2541           01775                                    FANG                                  
031173,001944: 16,2542           60405                           DMP      SR2                                   
031174,001945: 16,2543           36055                                    5SECOND                               #  500 CS AT +14
031175,001946: 16,2544           41471                           DDV      PUSH                                  #  04D = TEMP2
031176,001947: 16,2545           51021                           BDSU     BPL                                   
031177,001948: 16,2546           00003                                    02D                                   
031178,001949: 16,2547           34572                                    S40.133                               #  TGO GREATER THAN 600 CS
031179,001950: 16,2550           55345                           DLOAD    BDDV                                  
031180,001951: 16,2551           43205                           DMP      DAD                                   
031181,001952: 16,2552           36055                                    5SECOND                               #  500 CS AT +14
031182,001953: 16,2553           36051                                    1SEC2D                                #  100 CS AT +14
031183,001954: 16,2554           77650                           GOTO                                           
031184,001955: 16,2555           34563                                    S40.132                               
031185,001956: 16,2556           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
031186,001957: 16,2557           03076                                    WEIGHT/G                              
031187,001958: 16,2560           56215                           DAD      DDV                                   
031188,001959: 16,2561           01772                                    K2VAL                                 #  M.NEWTON-CS AT +24
031189,001960: 16,2562           01774                                    K3VAL                                 #  M.NEWTONS AT +10
031190,001961: 16,2563           77776        S40.132            EXIT                                           
031191,001962: 16,2564  E7,1427                                  EBANK=   TGO                                   
031192,001963: 16,2564           07226                           TC       TPAGREE                               
031193,001964: 16,2565           30154                           CA       MPAC                                  
031194,001965: 16,2566           56001                           XCH      L                                     
031195,001966: 16,2567           35035                           CA       ZERO                                  
031196,001967: 16,2570           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
031197,001968: 16,2571           02574                           TC       S40.134                               
031198,001969: 16,2572           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
031199,001970: 16,2573           01266                                    IMPULSW                               
031200,001971: 16,2574           05426        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
031201,001972: 16,2575           00003                           OCT      3                                     
031202,001973: 
031203,001974: 16,2576           15233                           TCF      ENDOFJOB                              
031204,001975: 
031205,001976: 16,2577           06006        NOTADDUL           TC       INTPRET                               
031206,001977: 16,2600           77650                           GOTO                                           
031207,001978: 16,2601           34526                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
031208,001979: 17,2000                                           SETLOC   DAPS7                                 
031209,001980: 17,2000                                           BANK                                           
031210,001981: 
031211,001982: 17,2050                                           COUNT    17/40.13                              
031212,001983: 
031213,001984: 17,2050  E3,1767               K1VAL              =        EK1VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
031214,001985: 17,2050  E3,1771               K2VAL              =        EK2VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
031215,001986: 17,2050  E3,1773               K3VAL              =        EK3VAL                                #  SP PAD LOAD B+09 NEWTONS/E+4
031216,001987: 17,2050           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14
031217,001988: 17,2052           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
031218,001989: 
031219,001990: 17,2054           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
031220,001991: 
031221,001992: 17,2056           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
031222,001993:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
031223,001994:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
031224,001995:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
031225,001996: 
031226,001997:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031227,001998:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
031228,001999:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
031229,002000: 
031230,002001:                                                                                                  #  FUNCTIONAL DESCRIPTION
031231,002002:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031232,002003:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
031233,002004:                                                                                                  #                OF GIMBAL MOTION ON GPI
031234,002005:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031235,002006:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
031236,002007:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031237,002008:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031238,002009:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
031239,002010:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
031240,002011:                                                                                                  #                OF RESTARTING ACTUATORS.
031241,002012: 
031242,002013:                                                                                                  #  CALLING SEQUENCE....
031243,002014:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031244,002015: 
031245,002016:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031246,002017: 
031247,002018:                                                                                                  #  SUBROUTINES CALLED....
031248,002019:                                                                                                  #        OUTPUT (INTERNAL)
031249,002020:                                                                                                  #        FIXDELAY
031250,002021: 
031251,002022:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
031252,002023: 
031253,002024:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
031254,002025:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031255,002026:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031256,002027:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
031257,002028:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
031258,002029:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031259,002030:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031260,002031: 
031261,002032:                                                                                                  #  OUTPUT
031262,002033:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
031263,002034:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
031264,002035: 
031265,002036:                                                                                                  #  DEBRIS
031266,002037:                                                                                                  #        TEMPR60, CNTR
031267,002038: 
031268,002039: 17,2060                                           BANK     17                                    
031269,002040: 20,2000                                           SETLOC   DAPS6                                 
031270,002041: 20,2000                                           BANK                                           
031271,002042: 
031272,002043: 20,2260  E6,1447                                  EBANK=   CNTR                                  
031273,002044: 20,2260                                           COUNT    20/S40.6                              
031274,002045: 
031275,002046: 20,2260           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031276,002047: 20,2261           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
031277,002048: 20,2262           00006                           EXTEND                                         
031278,002049: 20,2263           62265                           BZMF     +2                                    
031279,002050: 20,2264           15340                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031280,002051: 
031281,002052: 20,2265           45033                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
031282,002053: 20,2266           55445                           TS       MRKRTMP                               
031283,002054: 
031284,002055: 20,2267           35033                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031285,002056: 20,2270           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
031286,002057:                                                                                                  #        NORMALLY +0, BY S40.6)
031287,002058: 
031288,002059: 20,2271  E6,1447                                  EBANK=   CNTR                                  
031289,002060: 20,2271           45035        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031290,002061: 20,2272           55303                           TS       OPTIND                                
031291,002062: 
031292,002063: 20,2273           45032                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
031293,002064: 20,2274           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
031294,002065: 20,2275           03012                           WAND     CHAN12                                #        NORMAL STATE)
031295,002066: 
031296,002067: 20,2276           32363                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
031297,002068: 20,2277           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
031298,002069: 20,2300           05012                           WOR      CHAN12                                
031299,002070: 
031300,002071: 20,2301           05303                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031301,002072: 20,2302           00006                           DEC      6          B-14                       #        RELAY LATCHING
031302,002073: 
031303,002074: 20,2303           35032                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031304,002075: 20,2304           00006                           EXTEND                                         
031305,002076: 20,2305           05012                           WOR      CHAN12                                
031306,002077: 
031307,002078: 20,2306           05303                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031308,002079: 20,2307           00002                           DEC      2          B-14                       #        RELAY LATCHING
031309,002080: 
031310,002081: 20,2310           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031311,002082: 20,2311           12351                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031312,002083:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
031313,002084: 
031314,002085: 20,2312           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031315,002086: 20,2313           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
031316,002087: 20,2314           00006                           EXTEND                                         
031317,002088: 20,2315           62347                           BZMF     GIMTRIM                               #  (TRIM ONLY)
031318,002089: 
031319,002090: 20,2316           45035        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031320,002091: 20,2317           55447                           TS       CNTR                                  
031321,002092: 
031322,002093: 20,2320           32365        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031323,002094: 20,2321           02334                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
031324,002095: 20,2322           32364                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031325,002096: 20,2323           02334                           TC       OUTPUT                                
031326,002097: 20,2324           32365                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031327,002098: 20,2325           02334                           TC       OUTPUT                                
031328,002099: 
031329,002100: 20,2326           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
031330,002101: 20,2327           10000                           CCS      A                                     
031331,002102: 20,2330           12347                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031332,002103: 20,2331           45033                           CS       BIT1                                  #  SET UP YAW TEST
031333,002104: 20,2332           55447                           TS       CNTR                                  
031334,002105: 20,2333           12320                           TCF      GIMDTEST                              #  FOR YAW TEST
031335,002106: 
031336,002107: 20,2334           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031337,002108: 20,2335           23146                           QXCH     TEMPR60                               
031338,002109: 
031339,002110: 20,2336           51447                           INDEX    CNTR                                  
031340,002111: 20,2337           54054                           TS       TVCPITCH                              
031341,002112: 
031342,002113: 20,2340           51447                           INDEX    CNTR                                  
031343,002114: 20,2341           35021                           CAF      BIT11                                 
031344,002115: 20,2342           00006                           EXTEND                                         
031345,002116: 20,2343           05014                           WOR      CHAN14                                
031346,002117: 
031347,002118: 20,2344           05303                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031348,002119: 20,2345           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
031349,002120: 20,2346           01146                           TC       TEMPR60                               
031350,002121: 
031351,002122: 20,2347           05303        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031352,002123: 20,2350           00620                           DEC      400        B-14                       
031353,002124: 
031354,002125: 20,2351           45035                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031355,002126: 20,2352           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
031356,002127: 20,2353           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
031357,002128: 20,2354           45035                           CS       ZERO                                  
031358,002129: 20,2355           61424                           AD       YACTOFF                               
031359,002130: 20,2356           54053                           TS       TVCYAW                                
031360,002131: 
031361,002132: 20,2357           35076                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
031362,002133: 20,2360           00006                           EXTEND                                         
031363,002134: 20,2361           05014                           WOR      CHAN14                                
031364,002135: 
031365,002136: 20,2362           15340        ENDS40.6           TCF      TASKOVER                              
031366,002137: 
031367,002138: 20,2363           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031368,002139: 20,2364           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031369,002140: 20,2365           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031370,002141: 
031371,002142:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
031372,002143: 
031373,002144: 20,2366                                           COUNT    20/S41.2                              
031374,002145: 
031375,002146: 20,2366           31466        S41.2              CA       DAPDATR1                              
031376,002147: 20,2367           76214                           MASK     THREE                                 
031377,002148: 20,2370           60000                           AD       A                                     
031378,002149: 20,2371           55130                           TS       RATEINDX                              
031379,002150: 
031380,002151: 20,2372           00004                           INHINT                                         
031381,002152: 20,2373           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031382,002153: 20,2374           74371                           MASK     PRIO30                                #        =10)
031383,002154: 20,2375           67705                           AD       -BIT14                                #  (OCT57777)
031384,002155: 20,2376           00006                           EXTEND                                         
031385,002156: 20,2377           12404                           BZF      TOGETHER                              #  YES
031386,002157: 
031387,002158: 20,2400           45032                           CS       BIT2                                  #  NO, UNSET FLAG
031388,002159: 20,2401           70103                           MASK     FLAGWRD7                              
031389,002160: 20,2402           54103                           TS       FLAGWRD7                              
031390,002161: 
031391,002162: 20,2403           12407                           TCF      +4                                    
031392,002163: 
031393,002164: 20,2404           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
031394,002165: 20,2405           75032                           MASK     BIT2                                  
031395,002166: 20,2406           26103                           ADS      FLAGWRD7                              
031396,002167: 
031397,002168: 20,2407           00003                           RELINT                                         
031398,002169: 
031399,002170: 20,2410           31466                           CA       DAPDATR1                              
031400,002171: 20,2411           75030                           MASK     BIT4                                  
031401,002172: 20,2412           00006                           EXTEND                                         
031402,002173: 20,2413           62415                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
031403,002174: 20,2414           32515                           CA       DEC409                                
031404,002175: 20,2415           62516                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
031405,002176: 20,2416           55655                           TS       ADB                                   
031406,002177: 
031407,002178: 20,2417           31466                           CA       DAPDATR1                              
031408,002179: 20,2420           75025                           MASK     BIT7                                  #  QUAD BD
031409,002180: 20,2421           00006                           EXTEND                                         
031410,002181: 20,2422           62424                           BZMF     +2                                    
031411,002182: 20,2423           35033                           CA       ONE                                   
031412,002183: 20,2424           55631                           TS       XTRANS                                
031413,002184: 20,2425           31466                           CA       DAPDATR1                              
031414,002185: 20,2426           75022                           MASK     BIT10                                 #  QUAD AC
031415,002186: 20,2427           00006                           EXTEND                                         
031416,002187: 20,2430           62432                           BZMF     +2                                    
031417,002188: 20,2431           45033                           CS       ONE                                   
031418,002189: 20,2432           27631                           ADS      XTRANS                                
031419,002190: 
031420,002191: 20,2433           00004                           INHINT                                         
031421,002192: 20,2434           00006                           EXTEND                                         
031422,002193: 20,2435           12442                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
031423,002194: 20,2436           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
031424,002195: 20,2437           75015                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
031425,002196: 20,2440           26075                           ADS      FLAGWRD1                              
031426,002197: 20,2441           12445                           TCF      +4                                    
031427,002198: 20,2442           45015                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
031428,002199: 20,2443           70075                           MASK     FLAGWRD1                              
031429,002200: 20,2444           54075                           TS       FLAGWRD1                              
031430,002201: 20,2445           00003                           RELINT                                         
031431,002202: 20,2446           31467                           CA       DAPDATR2                              
031432,002203: 20,2447           75017                           MASK     BIT13                                 
031433,002204: 20,2450           00006                           EXTEND                                         
031434,002205: 20,2451           62453                           BZMF     +2                                    
031435,002206: 20,2452           12454                           TCF      +2                                    
031436,002207: 20,2453           45033                           CS       ONE                                   
031437,002208: 20,2454           40000                           COM                                            
031438,002209: 20,2455           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
031439,002210: 
031440,002211: 20,2456           31467                           CA       DAPDATR2                              
031441,002212: 20,2457           75022                           MASK     BIT10                                 
031442,002213: 20,2460           10000                           CCS      A                                     
031443,002214: 20,2461           12465                           TCF      +4                                    
031444,002215: 20,2462           35033                           CA       ONE                                   
031445,002216: 20,2463           55626                           TS       RACFAIL                               
031446,002217: 20,2464           12475                           TCF      BDFAIL                                
031447,002218: 20,2465           35035                           CA       ZERO                                  
031448,002219: 20,2466           55626                           TS       RACFAIL                               
031449,002220: 20,2467           31467                           CA       DAPDATR2                              
031450,002221: 20,2470           75030                           MASK     BIT4                                  
031451,002222: 20,2471           10000                           CCS      A                                     
031452,002223: 20,2472           12475                           TCF      BDFAIL                                
031453,002224: 20,2473           45033                           CS       ONE                                   
031454,002225: 20,2474           55626                           TS       RACFAIL                               
031455,002226: 20,2475           31467        BDFAIL             CA       DAPDATR2                              
031456,002227: 20,2476           75025                           MASK     BIT7                                  
031457,002228: 20,2477           10000                           CCS      A                                     
031458,002229: 20,2500           12504                           TCF      +4                                    
031459,002230: 20,2501           35033                           CA       ONE                                   
031460,002231: 20,2502           55627                           TS       RBDFAIL                               
031461,002232: 20,2503           00002                           TC       Q                                     
031462,002233: 20,2504           35035                           CA       ZERO                                  
031463,002234: 20,2505           55627                           TS       RBDFAIL                               
031464,002235: 20,2506           31467                           CA       DAPDATR2                              
031465,002236: 20,2507           75033                           MASK     BIT1                                  
031466,002237: 20,2510           10000                           CCS      A                                     
031467,002238: 20,2511           00002                           TC       Q                                     
031468,002239: 20,2512           45033                           CS       ONE                                   
031469,002240: 20,2513           55627                           TS       RBDFAIL                               
031470,002241: 20,2514           00002                           TC       Q                                     
031471,002242: 
031472,002243:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
031473,002244: 
031474,002245: 42,3605                                           BANK     42                                    
031475,002246: 42,2000                                           SETLOC   EXTVBS                                
031476,002247: 42,2000                                           BANK                                           
031477,002248: 
031478,002249: 42,3605           45023        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
031479,002250: 42,3606           00006                           EXTEND                                         
031480,002251: 42,3607           03012                           WAND     CHAN12                                
031481,002252: 42,3610           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
031482,002253: 42,3611           00006                           EXTEND                                         
031483,002254: 42,3612           75031                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
031484,002255: 42,3613           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
031485,002256: 42,3614           50000                           INDEX    A                                     
031486,002257: 42,3615           13616                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
031487,002258: 
031488,002259: 42,3616           13630                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
031489,002260: 42,3617           13623                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
031490,002261: 42,3620           13623                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
031491,002262: 42,3621           04715                           TC       POSTJUMP                              
031492,002263: 42,3622           67225                           CADR     SATSTKON                              
031493,002264: 42,3623           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
031494,002265: 42,3624           04754                           TCR      IBNKCALL                              
031495,002266: 42,3625           42036                           CADR     RCSDAPON                              
031496,002267: 42,3626           00003                           RELINT                                         
031497,002268: 42,3627           13645                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
031498,002269: 42,3630           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
031499,002270: 42,3631           33650                           DCA      T5IDLDAP                              
031500,002271: 42,3632           53313                           DXCH     T5LOC                                 
031501,002272: 42,3633           05574                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
031502,002273: 42,3634           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
031503,002274: 42,3635           05574                           TC       DOWNFLAG                              
031504,002275: 42,3636           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
031505,002276: 42,3637           00004                           INHINT                                         
031506,002277: 42,3640           04754                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
031507,002278: 42,3641           42644                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
031508,002279: 42,3642           00003                           RELINT                                         
031509,002280: 42,3643           35033                           CAF      BIT1                                  #  KILL KALCMANU JOB
031510,002281: 42,3644           55332                           TS       HOLDFLAG                              
031511,002282: 42,3645           04715        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
031512,002283: 42,3646           66123                           CADR     GOPIN                                 
031513,002284: 42,3647  E6,1423                                  EBANK=   PACTOFF                               
031514,002285: 42,3647           03155 12106  T5IDLDAP           2CADR    T5IDLOC                               
031515,002286: 
031516,002287: 42,3651  30,2000                                  SBANK=   LOWSUPER                              
031517,002288: 17,2060                                           BANK     17                                    
031518,002289: 20,2000                                           SETLOC   DAPS6                                 
031519,002290: 20,2000                                           BANK                                           
031520,002291: 
031521,002292: 20,2515           00631        DEC409             DEC      409        B-14                       
031522,002293: 20,2516           00056        DEC46              DEC      46         B-14                       
031523,002294: 
031524,002295: 
031525,002296:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
031526,002297: 20,2517           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
031527,002298: 20,2520           00006                           EXTEND                                         
031528,002299: 20,2521           72544                           MP       CONTONE                               
031529,002300: 20,2522           55623                           TS       J/M                                   
031530,002301: 
031531,002302: 20,2523           31471                           CA       IAVG                                  
031532,002303: 20,2524           00006                           EXTEND                                         
031533,002304: 20,2525           72544                           MP       CONTONE                               
031534,002305: 20,2526           55624                           TS       J/M1                                  
031535,002306: 
031536,002307: 20,2527           55625                           TS       J/M2                                  
031537,002308: 
031538,002309: 20,2530           00006                           EXTEND                                         
031539,002310: 20,2531           32546                           DCA      CONTTWO                               
031540,002311: 20,2532           00006                           EXTEND                                         
031541,002312: 20,2533           11470                           DV       IXX                                   
031542,002313: 20,2534           55620                           TS       KMJ                                   
031543,002314: 
031544,002315: 20,2535           00006                           EXTEND                                         
031545,002316: 20,2536           32546                           DCA      CONTTWO                               
031546,002317: 20,2537           00006                           EXTEND                                         
031547,002318: 20,2540           11471                           DV       IAVG                                  
031548,002319: 20,2541           55621                           TS       KMJ1                                  
031549,002320: 
031550,002321: 20,2542           55622                           TS       KMJ2                                  
031551,002322: 
031552,002323: 20,2543           00002                           TC       Q                                     
031553,002324: 
031554,002325: 20,2544           25137        CONTONE            DEC      .662034                               #  2PI/M
031555,002326: 20,2545           00023 12522  CONTTWO            2DEC     .00118                                
031556,002327: 
031557,002328: 20,2547                                           COUNT    24/TVNG                               
031558,002329: 
031559,002330: 31,3704                                           BANK     31                                    
031560,002331: 24,2000                                           SETLOC   P40S                                  
031561,002332: 24,2000                                           BANK                                           
031562,002333: 
031563,002334: 24,3764           37405        POS-2.5            OCT      37405                                 
031564,002335: 24,3765  E6,1466                                  EBANK=   DAPDATR1                              
031565,002336: 24,3765           02026 42066  RCSCADR            2CADR    RCSUP                                 
031566,002337: 
031567,002338: 24,3767           37704        6SECT5             OCT      37704                                 
031568,002339: 24,3770                                           COUNT    21/RCSUP                              
031569,002340: 
031570,002341: 20,2547                                           BANK     20                                    
031571,002342: 
031572,002343: 21,2000                                           SETLOC   DAPS3                                 
031573,002344: 21,2000                                           BANK                                           
031574,002345: 
031575,002346: 
031576,002347: 21,2026           22016        RCSUP              LXCH     BANKRUPT                              
031577,002348: 21,2027           00006                           EXTEND                                         
031578,002349: 21,2030           22012                           QXCH     QRUPT                                 
031579,002350: 
031580,002351: 21,2031           02036                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
031581,002352: 
031582,002353: 21,2032           15347                           TCF      RESUME                                
031583,002354: 
031584,002355: 21,2033  E6,1466                                  EBANK=   DAPDATR1                              
031585,002356: 21,2033           02134 42066  RCSADDR            2CADR    RCSATT                                
031586,002357: 
031587,002358: 21,2035           37704        0.6SECT5           OCT      37704                                 
031588,002359: 
031589,002360:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
031590,002361: 21,2036           32035        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
031591,002362: 21,2037           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
031592,002363: 21,2040           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
031593,002364: 
031594,002365: 21,2041           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
031595,002366: 21,2042           75031                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
031596,002367: 21,2043           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
031597,002368: 
031598,002369: 21,2044           00006                           EXTEND                                         
031599,002370: 21,2045           32034                           DCA      RCSADDR                               #  (RCSATT)
031600,002371: 21,2046           53313                           DXCH     T5LOC                                 
031601,002372: 
031602,002373: 21,2047           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
031603,002374: 21,2050           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
031604,002375: 21,2051           65016                           AD       BIT14                                 
031605,002376: 21,2052           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
031606,002377: 
031607,002378: 21,2053           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
031608,002379: 
031609,002380: 

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