Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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".

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

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